diff --git a/bootstrap/idris2_app/idris2.rkt b/bootstrap/idris2_app/idris2.rkt index 9c886b8be..6df417a22 100755 --- a/bootstrap/idris2_app/idris2.rkt +++ b/bootstrap/idris2_app/idris2.rkt @@ -8,22 +8,16 @@ (require rnrs/io/ports-6) (require srfi/19) (require ffi/unsafe ffi/unsafe/define) -(require racket/flonum)(define-ffi-definer define-libc (ffi-lib "libc" '("6" #f))) -(define-libc system (_fun _string/utf-8 -> _int)) -(define-libc getenv (_fun _string/utf-8 -> _pointer)) -(define-libc exit (_fun _int -> _void)) -(define-ffi-definer define-libidris2_support (ffi-lib "libidris2_support" )) -(define-libidris2_support idris2_isNull (_fun _pointer -> _int)) -(define-libidris2_support idris2_putStr (_fun _string/utf-8 -> _void)) -(define-libidris2_support idris2_getString (_fun _pointer -> _string/utf-8)) -(define-libidris2_support idris2_getStr (_fun -> _string/utf-8)) +(require racket/flonum)(define-ffi-definer define-libidris2_support (ffi-lib "libidris2_support" )) (define-libidris2_support idris2_writeLine (_fun _pointer _string/utf-8 -> _int)) (define-libidris2_support idris2_stdout (_fun -> _pointer)) (define-libidris2_support idris2_stdin (_fun -> _pointer)) (define-libidris2_support idris2_seekLine (_fun _pointer -> _int)) (define-libidris2_support idris2_removeFile (_fun _string/utf-8 -> _int)) (define-libidris2_support idris2_readLine (_fun _pointer -> _pointer)) -(define-libc fgetc (_fun _pointer -> _int)) +(define-ffi-definer define-libc (ffi-lib #f))(define-libc fgetc (_fun _pointer -> _int)) +(define-libidris2_support idris2_popen (_fun _string/utf-8 _string/utf-8 -> _pointer)) +(define-libidris2_support idris2_pclose (_fun _pointer -> _void)) (define-libidris2_support idris2_openFile (_fun _string/utf-8 _string/utf-8 -> _pointer)) (define-libc fflush (_fun _pointer -> _int)) (define-libidris2_support idris2_fileSize (_fun _pointer -> _int)) @@ -33,12 +27,18 @@ (define-libidris2_support idris2_eof (_fun _pointer -> _int)) (define-libidris2_support idris2_closeFile (_fun _pointer -> _void)) (define-libc chmod (_fun _string/utf-8 _int -> _int)) +(define-libidris2_support idris2_isNull (_fun _pointer -> _int)) +(define-libidris2_support idris2_putStr (_fun _string/utf-8 -> _void)) +(define-libidris2_support idris2_getString (_fun _pointer -> _string/utf-8)) +(define-libidris2_support idris2_getStr (_fun -> _string/utf-8)) (define-libidris2_support idris2_openDir (_fun _string/utf-8 -> _pointer)) (define-libidris2_support idris2_nextDirEntry (_fun _pointer -> _pointer)) (define-libidris2_support idris2_currentDirectory (_fun -> _pointer)) (define-libidris2_support idris2_createDir (_fun _string/utf-8 -> _int)) (define-libidris2_support idris2_closeDir (_fun _pointer -> _void)) (define-libidris2_support idris2_changeDir (_fun _string/utf-8 -> _int)) +(define-libc getenv (_fun _string/utf-8 -> _pointer)) +(define-libc exit (_fun _int -> _void)) (define-libc strlen (_fun _string/utf-8 -> _int)) (define-libidris2_support idris2_writeBufferData (_fun _pointer _bytes _int _int -> _int)) (define-libidris2_support idris2_readBufferData (_fun _pointer _bytes _int _int -> _int)) @@ -69,11 +69,9 @@ (define blodwen-toSignedInt (lambda (x bits) - (let ((ma (arithmetic-shift 1 bits))) - (if (or (< x (- 0 ma)) - (>= x ma)) - (remainder x ma) - x)))) + (if (bitwise-bit-set? x bits) + (bitwise-ior x (arithmetic-shift (- 1) bits)) + (bitwise-and x (- (arithmetic-shift 1 bits) 1))))) (define blodwen-toUnsignedInt (lambda (x bits) @@ -117,14 +115,8 @@ (lambda (x) (inexact->exact (floor x)))) -(define truncate-bits - (lambda (x bits) - (if (bitwise-bit-set? x bits) - (bitwise-ior x (arithmetic-shift (- 1) bits)) - (bitwise-and x (- (arithmetic-shift 1 bits) 1))))) - (define blodwen-bits-shl-signed - (lambda (x y bits) (truncate-bits (arithmetic-shift x y) bits))) + (lambda (x y bits) (blodwen-toSignedInt (arithmetic-shift x y) bits))) (define exact-truncate (lambda (x) @@ -548,18 +540,6 @@ (define (blodwen-register-object obj proc) (register-finalizer obj (lambda (ptr) ((proc ptr) 'erased))) obj) -(define System-prim__system (lambda (farg-0 farg-1) (system farg-0))) -(define System-prim__getEnv (lambda (farg-0 farg-1) (getenv farg-0))) -(define System-prim__getArgCount (lambda (farg-0) (blodwen-arg-count ))) -(define System-prim__getArg (lambda (farg-0 farg-1) (blodwen-arg farg-0))) -(define System-prim__exit (lambda (farg-0 farg-1) (exit farg-0) (vector 0 ))) -(define PreludeC-45Types-fastUnpack (lambda (farg-0) (string-unpack farg-0))) -(define PreludeC-45Types-fastPack (lambda (farg-0) (string-pack farg-0))) -(define PreludeC-45Types-fastConcat (lambda (farg-0) (string-concat farg-0))) -(define PrimIO-prim__nullAnyPtr (lambda (farg-0) (idris2_isNull farg-0))) -(define PreludeC-45IO-prim__putStr (lambda (farg-0 farg-1) (idris2_putStr farg-0) (vector 0 ))) -(define PreludeC-45IO-prim__getString (lambda (farg-0) (idris2_getString farg-0))) -(define PreludeC-45IO-prim__getStr (lambda (farg-0) (idris2_getStr ))) (define SystemC-45File-prim__writeLine (lambda (farg-0 farg-1 farg-2) (idris2_writeLine farg-0 farg-1))) (define SystemC-45File-prim__stdout (lambda () (idris2_stdout ))) (define SystemC-45File-prim__stdin (lambda () (idris2_stdin ))) @@ -567,6 +547,8 @@ (define SystemC-45File-prim__removeFile (lambda (farg-0 farg-1) (idris2_removeFile farg-0))) (define SystemC-45File-prim__readLine (lambda (farg-0 farg-1) (idris2_readLine farg-0))) (define SystemC-45File-prim__readChar (lambda (farg-0 farg-1) (fgetc farg-0))) +(define SystemC-45File-prim__popen (lambda (farg-0 farg-1 farg-2) (idris2_popen farg-0 farg-1))) +(define SystemC-45File-prim__pclose (lambda (farg-0 farg-1) (idris2_pclose farg-0) (vector 0 ))) (define SystemC-45File-prim__open (lambda (farg-0 farg-1 farg-2) (idris2_openFile farg-0 farg-1))) (define SystemC-45File-prim__flush (lambda (farg-0 farg-1) (fflush farg-0))) (define SystemC-45File-prim__fileSize (lambda (farg-0 farg-1) (idris2_fileSize farg-0))) @@ -576,6 +558,13 @@ (define SystemC-45File-prim__eof (lambda (farg-0 farg-1) (idris2_eof farg-0))) (define SystemC-45File-prim__close (lambda (farg-0 farg-1) (idris2_closeFile farg-0) (vector 0 ))) (define SystemC-45File-prim__chmod (lambda (farg-0 farg-1 farg-2) (chmod farg-0 farg-1))) +(define PreludeC-45Types-fastUnpack (lambda (farg-0) (string-unpack farg-0))) +(define PreludeC-45Types-fastPack (lambda (farg-0) (string-pack farg-0))) +(define PreludeC-45Types-fastConcat (lambda (farg-0) (string-concat farg-0))) +(define PrimIO-prim__nullAnyPtr (lambda (farg-0) (idris2_isNull farg-0))) +(define PreludeC-45IO-prim__putStr (lambda (farg-0 farg-1) (idris2_putStr farg-0) (vector 0 ))) +(define PreludeC-45IO-prim__getString (lambda (farg-0) (idris2_getString farg-0))) +(define PreludeC-45IO-prim__getStr (lambda (farg-0) (idris2_getStr ))) (define SystemC-45Directory-prim__openDir (lambda (farg-0 farg-1) (idris2_openDir farg-0))) (define SystemC-45Directory-prim__fileErrno (lambda (farg-0) (idris2_fileErrno ))) (define SystemC-45Directory-prim__dirEntry (lambda (farg-0 farg-1) (idris2_nextDirEntry farg-0))) @@ -583,6 +572,11 @@ (define SystemC-45Directory-prim__createDir (lambda (farg-0 farg-1) (idris2_createDir farg-0))) (define SystemC-45Directory-prim__closeDir (lambda (farg-0 farg-1) (idris2_closeDir farg-0) (vector 0 ))) (define SystemC-45Directory-prim__changeDir (lambda (farg-0 farg-1) (idris2_changeDir farg-0))) +(define System-prim__system (lambda (farg-0 farg-1) (blodwen-system farg-0))) +(define System-prim__getEnv (lambda (farg-0 farg-1) (getenv farg-0))) +(define System-prim__getArgCount (lambda (farg-0) (blodwen-arg-count ))) +(define System-prim__getArg (lambda (farg-0 farg-1) (blodwen-arg farg-0))) +(define System-prim__exit (lambda (farg-0 farg-1) (exit farg-0) (vector 0 ))) (define DataC-45Buffer-stringByteLength (lambda (farg-0) (strlen farg-0))) (define DataC-45Buffer-prim__writeBufferData (lambda (farg-0 farg-1 farg-2 farg-3 farg-4) (idris2_writeBufferData farg-0 farg-1 farg-2 farg-3))) (define DataC-45Buffer-prim__setString (lambda (farg-0 farg-1 farg-2 farg-3) (blodwen-buffer-setstring farg-0 farg-1 farg-2))) @@ -597,8 +591,6 @@ (define DataC-45Buffer-prim__getByte (lambda (farg-0 farg-1 farg-2) (blodwen-buffer-getbyte farg-0 farg-1))) (define DataC-45Buffer-prim__copyData (lambda (farg-0 farg-1 farg-2 farg-3 farg-4 farg-5) (blodwen-buffer-copydata farg-0 farg-1 farg-2 farg-3 farg-4))) (define DataC-45Buffer-prim__bufferSize (lambda (farg-0) (blodwen-buffer-size farg-0))) -(define LibrariesC-45DataC-45StringC-45Iterator-uncons (lambda (farg-0 farg-1) (blodwen-string-iterator-next farg-0 farg-1))) -(define LibrariesC-45DataC-45StringC-45Iterator-fromString (lambda (farg-0) (blodwen-string-iterator-new farg-0))) (define SystemC-45Clock-prim__osClockValid (lambda (farg-0 farg-1) (blodwen-is-time? farg-0))) (define SystemC-45Clock-prim__osClockSecond (lambda (farg-0 farg-1) (blodwen-clock-second farg-0))) (define SystemC-45Clock-prim__osClockNanosecond (lambda (farg-0 farg-1) (blodwen-clock-nanosecond farg-0))) @@ -608,6 +600,8 @@ (define SystemC-45Clock-prim__clockTimeMonotonic (lambda (farg-0) (blodwen-clock-time-monotonic ))) (define SystemC-45Clock-prim__clockTimeGcReal (lambda (farg-0) (blodwen-clock-time-gcreal ))) (define SystemC-45Clock-prim__clockTimeGcCpu (lambda (farg-0) (blodwen-clock-time-gccpu ))) +(define LibrariesC-45DataC-45StringC-45Iterator-uncons (lambda (farg-0 farg-1) (blodwen-string-iterator-next farg-0 farg-1))) +(define LibrariesC-45DataC-45StringC-45Iterator-fromString (lambda (farg-0) (blodwen-string-iterator-new farg-0))) (define LibrariesC-45UtilsC-45Term-prim__setupTerm (lambda (farg-0) (idris2_setupTerm ) (vector 0 ))) (define LibrariesC-45UtilsC-45Term-prim__getTermCols (lambda (farg-0) (idris2_getTermCols ))) (define IdrisC-45IDEModeC-45REPL-prim__fdopen (lambda (farg-0 farg-1 farg-2) (fdopen farg-0 farg-1))) @@ -629,211 +623,204 @@ (define u--prim__sub_Integer (lambda (arg-0 arg-1) (- arg-0 arg-1))) (define u--prim__mul_Integer (lambda (arg-0 arg-1) (* arg-0 arg-1))) (define IdrisC-45Main-main (lambda (ext-0) (IdrisC-45Driver-mainWithCodegens '() ext-0))) -(define IdrisC-45Driver-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32stMain-6714 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 ext-0) (let ((sc0 arg-23)) (case (vector-ref sc0 0) ((0) (vector 1 (vector 0 ))) (else (let ((act-24 ((System-exitWith (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-0)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-0) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (let ((act-17 (arg-578 eta-0))) (let ((act-16 (arg-580 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (let ((act-24 (arg-876 eta-0))) ((arg-877 act-24) eta-0))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-0) (let ((act-51 (arg-879 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) (cons 1 (vector 0 ))) ext-0))) (vector 1 act-24))))))) -(define IdrisC-45Driver-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32stMain-6424 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 ext-0) (let ((sc0 arg-22)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((act-24 (let ((act-24 (IdrisC-45IDEModeC-45REPL-initIDESocketFile e-2 e-3 ext-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (let ((act-25 (let ((act-25 ((PreludeC-45IO-putStrLn (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-0)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-0) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (let ((act-17 (arg-578 eta-0))) (let ((act-16 (arg-580 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (let ((act-25 (arg-876 eta-0))) ((arg-877 act-25) eta-0))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-0) (let ((act-51 (arg-879 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) e-4) ext-0))) (vector 1 act-25)))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((act-26 ((System-exitWith (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-0)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-0) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (let ((act-17 (arg-578 eta-0))) (let ((act-16 (arg-580 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (let ((act-26 (arg-876 eta-0))) ((arg-877 act-26) eta-0))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-0) (let ((act-51 (arg-879 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) (cons 1 (vector 0 ))) ext-0))) (vector 1 act-26)))))))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-25 (IdrisC-45REPLC-45Opts-setOutput arg-12 (vector 0 0 e-6 e-6) ext-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (IdrisC-45IDEModeC-45REPL-replIDE arg-6 arg-16 arg-7 arg-17 arg-12 ext-0))))))))))))))))))) -(define IdrisC-45Driver-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32stMain-6324 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (IdrisC-45REPLC-45Opts-setOutput arg-12 (vector 0 0 (SystemC-45File-stdin) (SystemC-45File-stdout)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (IdrisC-45IDEModeC-45REPL-replIDE arg-6 arg-16 arg-7 arg-17 arg-12 eta-0))))))) (else (lambda (eta-0) (IdrisC-45Driver-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32stMain-6424 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 (IdrisC-45CommandLine-ideSocketModeAddress arg-0) eta-0))))))) -(define IdrisC-45Driver-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32stMain-6276 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (cond ((equal? sc0 0) (IdrisC-45Driver-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32stMain-6324 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 (let ((sc1 arg-9)) (cond ((equal? sc1 0) 1) (else 0))))) (else (lambda (eta-0) (let ((act-24 (IdrisC-45REPL-repl arg-6 arg-16 arg-7 arg-17 arg-12 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (CoreC-45ContextC-45Log-showTimeRecord arg-6 eta-0))))))))))) -(define IdrisC-45Driver-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32stMain-6028 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 ext-0) (let ((sc0 arg-19)) (cond ((equal? sc0 0) (IdrisC-45Package-findIpkg arg-6 arg-12 arg-7 arg-11 ext-0)) (else (vector 1 arg-11)))))) -(define IdrisC-45Driver-case--caseC-32blockC-32inC-32updateEnv-5173 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 ext-0) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (CoreC-45Context-setCG arg-0 e-1 ext-0))) (else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 (PreludeC-45TypesC-45String-C-43C-43 "Unknown code generator " (PreludeC-45Show-u--show_Show_String arg-7))) ext-0)))))) -(define IdrisC-45Driver-n--18843-5628-u--renderError (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 ((IdrisC-45Error-perror arg-2 arg-3 arg-4 arg-5) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (IdrisC-45Pretty-render arg-4 e-5 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 58 e-6) ext-0))))))))))))) -(define IdrisC-45Driver-updateREPLOpts (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 ((IdrisC-45Env-idrisGetEnv (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-0)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-0) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (let ((act-17 (arg-578 eta-0))) (let ((act-16 (arg-580 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (let ((act-25 (arg-876 eta-0))) ((arg-877 act-25) eta-0))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-0) (let ((act-51 (arg-879 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) "EDITOR" (vector 0 )) ext-0))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((act-26 (set-box! arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-18 (vector-ref sc3 2))) (let ((e-2 (vector-ref sc3 3))) (let ((e-3 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-16 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (let ((e-11 (vector-ref sc3 12))) (let ((e-12 (vector-ref sc3 13))) (let ((e-13 (vector-ref sc3 14))) (let ((e-14 (vector-ref sc3 15))) (let ((e-15 (vector-ref sc3 16))) (vector 0 e-0 e-18 e-2 e-3 e-4 e-1 e-16 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15)))))))))))))))))))) (vector 1 act-26)))) (else (vector 1 (vector 0 ))))))))))))))))) -(define IdrisC-45Driver-updateEnv (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 ((IdrisC-45Env-idrisGetEnv (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-0)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-0) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (let ((act-17 (arg-578 eta-0))) (let ((act-16 (arg-580 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (let ((act-25 (arg-876 eta-0))) ((arg-877 act-25) eta-0))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-0) (let ((act-51 (arg-879 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) "IDRIS2_PREFIX" (vector 0 )) ext-0))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (CoreC-45Context-setPrefix arg-0 e-1 ext-0))) (else (CoreC-45Context-setPrefix arg-0 (IdrisPaths-yprefix) ext-0)))))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-27 (let ((act-27 ((IdrisC-45Env-idrisGetEnv (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-0)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-0) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (let ((act-17 (arg-578 eta-0))) (let ((act-16 (arg-580 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (let ((act-27 (arg-876 eta-0))) ((arg-877 act-27) eta-0))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-0) (let ((act-51 (arg-879 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) "IDRIS2_PATH" (vector 0 )) ext-0))) (vector 1 act-27)))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (let ((sc4 e-8)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) ((CoreC-45Core-traverseList1_ (lambda (eta-0) (lambda (eta-1) (CoreC-45Context-addExtraDir arg-0 eta-0 eta-1))) (DataC-45List1-u--map_Functor_List1 (lambda (eta-0) (DataC-45String-trim eta-0)) (DataC-45String-split (lambda (arg-1) (PreludeC-45EqOrd-u--C-61C-61_Eq_Char arg-1 (LibrariesC-45UtilsC-45Path-pathSeparator))) e-1))) ext-0))) (else (vector 1 (vector 0 ))))))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-29 (let ((act-29 ((IdrisC-45Env-idrisGetEnv (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-0)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-0) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (let ((act-17 (arg-578 eta-0))) (let ((act-16 (arg-580 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (let ((act-29 (arg-876 eta-0))) ((arg-877 act-29) eta-0))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-0) (let ((act-51 (arg-879 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) "IDRIS2_DATA" (vector 0 )) ext-0))) (vector 1 act-29)))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-30 (let ((sc6 e-10)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) ((CoreC-45Core-traverseList1_ (lambda (eta-0) (lambda (eta-1) (CoreC-45Context-addDataDir arg-0 eta-0 eta-1))) (DataC-45List1-u--map_Functor_List1 (lambda (eta-0) (DataC-45String-trim eta-0)) (DataC-45String-split (lambda (arg-1) (PreludeC-45EqOrd-u--C-61C-61_Eq_Char arg-1 (LibrariesC-45UtilsC-45Path-pathSeparator))) e-1))) ext-0))) (else (vector 1 (vector 0 ))))))) (let ((sc6 act-30)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((act-31 (let ((act-31 ((IdrisC-45Env-idrisGetEnv (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-0)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-0) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (let ((act-17 (arg-578 eta-0))) (let ((act-16 (arg-580 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (let ((act-31 (arg-876 eta-0))) ((arg-877 act-31) eta-0))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-0) (let ((act-51 (arg-879 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) "IDRIS2_LIBS" (vector 0 )) ext-0))) (vector 1 act-31)))) (let ((sc7 act-31)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc7 1))) (let ((act-32 (let ((sc8 e-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) ((CoreC-45Core-traverseList1_ (lambda (eta-0) (lambda (eta-1) (CoreC-45Context-addLibDir arg-0 eta-0 eta-1))) (DataC-45List1-u--map_Functor_List1 (lambda (eta-0) (DataC-45String-trim eta-0)) (DataC-45String-split (lambda (arg-1) (PreludeC-45EqOrd-u--C-61C-61_Eq_Char arg-1 (LibrariesC-45UtilsC-45Path-pathSeparator))) e-1))) ext-0))) (else (vector 1 (vector 0 ))))))) (let ((sc8 act-32)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((act-33 (let ((act-33 ((IdrisC-45Env-idrisGetEnv (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-0)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-0) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (let ((act-17 (arg-578 eta-0))) (let ((act-16 (arg-580 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (let ((act-33 (arg-876 eta-0))) ((arg-877 act-33) eta-0))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-0) (let ((act-51 (arg-879 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) "IDRIS2_PACKAGE_PATH" (vector 0 )) ext-0))) (vector 1 act-33)))) (let ((sc9 act-33)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref sc9 1))) (let ((act-34 (let ((sc10 e-14)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) ((CoreC-45Core-traverseList1_ (lambda (eta-0) (lambda (eta-1) (CoreC-45Context-addPackageDir arg-0 eta-0 eta-1))) (DataC-45List1-u--map_Functor_List1 (lambda (eta-0) (DataC-45String-trim eta-0)) (DataC-45String-split (lambda (arg-1) (PreludeC-45EqOrd-u--C-61C-61_Eq_Char arg-1 (LibrariesC-45UtilsC-45Path-pathSeparator))) e-1))) ext-0))) (else (vector 1 (vector 0 ))))))) (let ((sc10 act-34)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((act-35 (let ((act-35 ((IdrisC-45Env-idrisGetEnv (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-0)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-0) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (let ((act-17 (arg-578 eta-0))) (let ((act-16 (arg-580 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (let ((act-35 (arg-876 eta-0))) ((arg-877 act-35) eta-0))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-0) (let ((act-51 (arg-879 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) "IDRIS2_CG" (vector 0 )) ext-0))) (vector 1 act-35)))) (let ((sc11 act-35)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-16 (vector-ref sc11 1))) (let ((act-36 (let ((sc12 e-16)) (case (vector-ref sc12 0) ((1) (let ((e-1 (vector-ref sc12 1))) (let ((u--cg (vector 1 e-1))) (IdrisC-45Driver-case--caseC-32blockC-32inC-32updateEnv-5173 arg-0 e-5 e-6 e-8 e-10 e-12 e-14 e-1 u--cg (CoreC-45Options-getCG (let ((sc13 e-5)) (let ((e-4 (vector-ref sc13 5))) e-4)) e-1) ext-0)))) (else (vector 1 (vector 0 ))))))) (let ((sc12 act-36)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((act-37 (let ((act-37 (unbox arg-0))) (vector 1 act-37)))) (let ((sc13 act-37)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-18 (vector-ref sc13 1))) (let ((act-38 (CoreC-45Core-u--catch_Catchable_Core_Error (lambda (eta-0) (IdrisC-45SetOptions-addPkgDir arg-0 "prelude" (IdrisC-45PackageC-45Types-anyBounds) eta-0)) (lambda (eta-0) (lambda (eta-1) (vector 1 (vector 0 )))) ext-0))) (let ((sc14 act-38)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((act-39 (CoreC-45Core-u--catch_Catchable_Core_Error (lambda (eta-0) (IdrisC-45SetOptions-addPkgDir arg-0 "base" (IdrisC-45PackageC-45Types-anyBounds) eta-0)) (lambda (eta-0) (lambda (eta-1) (vector 1 (vector 0 )))) ext-0))) (let ((sc15 act-39)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((act-40 (CoreC-45Context-addDataDir arg-0 (LibrariesC-45UtilsC-45Path-C-60C-47C-62 (let ((sc16 e-18)) (let ((e-4 (vector-ref sc16 5))) (let ((sc17 e-4)) (let ((e-52 (vector-ref sc17 1))) (let ((sc18 e-52)) (let ((e-57 (vector-ref sc18 6))) e-57)))))) (LibrariesC-45UtilsC-45Path-C-60C-47C-62 (PreludeC-45TypesC-45String-C-43C-43 "idris2-" (IdrisC-45Version-showVersion 1 (IdrisC-45Version-version))) "support")) ext-0))) (let ((sc16 act-40)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((act-41 (CoreC-45Context-addLibDir arg-0 (LibrariesC-45UtilsC-45Path-C-60C-47C-62 (let ((sc17 e-18)) (let ((e-4 (vector-ref sc17 5))) (let ((sc18 e-4)) (let ((e-53 (vector-ref sc18 1))) (let ((sc19 e-53)) (let ((e-58 (vector-ref sc19 6))) e-58)))))) (LibrariesC-45UtilsC-45Path-C-60C-47C-62 (PreludeC-45TypesC-45String-C-43C-43 "idris2-" (IdrisC-45Version-showVersion 1 (IdrisC-45Version-version))) "lib")) ext-0))) (let ((sc17 act-41)) (case (vector-ref sc17 0) ((0) (let ((e-2 (vector-ref sc17 1))) (vector 0 e-2))) (else (let ((act-42 (let ((act-42 ((SystemC-45Directory-currentDir (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-0)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-0) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (let ((act-17 (arg-578 eta-0))) (let ((act-16 (arg-580 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (let ((act-42 (arg-876 eta-0))) ((arg-877 act-42) eta-0))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-0) (let ((act-51 (arg-879 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-7803) arg-7803)))) ext-0))) (vector 1 act-42)))) (let ((sc18 act-42)) (case (vector-ref sc18 0) ((0) (let ((e-2 (vector-ref sc18 1))) (vector 0 e-2))) (else (let ((e-23 (vector-ref sc18 1))) (let ((sc19 e-23)) (case (vector-ref sc19 0) ((1) (let ((e-1 (vector-ref sc19 1))) (CoreC-45Context-addLibDir arg-0 e-1 ext-0))) (else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 "Can't get current directory") ext-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) -(define IdrisC-45Driver-tryYaffle (lambda (arg-0) (let ((sc0 arg-0)) (if (null? sc0) (lambda (eta-0) (vector 1 1)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((25) (let ((e-4 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (YaffleC-45Main-yaffleMain e-4 '() eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (vector 1 0))))))))(else (IdrisC-45Driver-tryYaffle e-3)))))))))) -(define IdrisC-45Driver-tryTTM (lambda (arg-0) (let ((sc0 arg-0)) (if (null? sc0) (lambda (eta-0) (vector 1 1)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((26) (let ((e-4 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (CoreC-45Metadata-dumpTTM e-4 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (vector 1 0))))))))(else (IdrisC-45Driver-tryTTM e-3)))))))))) -(define IdrisC-45Driver-stMain (lambda (arg-0 arg-1 ext-0) (let ((act-24 ((IdrisC-45Driver-tryYaffle arg-1) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 1) (let ((act-25 ((IdrisC-45Driver-tryTTM arg-1) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((_-0 1)) (let ((sc3 e-6)) (cond ((equal? sc3 1) (let ((act-26 (CoreC-45Context-initDefs ext-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (let ((u--updated (PreludeC-45Types-u--foldl_Foldable_List (lambda (u--o) (lambda (lamc-0) (let ((sc5 lamc-0)) (let ((e-2 (car sc5))) (CoreC-45Options-addCG (cons e-2 (vector 6 e-2)) u--o))))) (let ((sc5 e-7)) (let ((e-4 (vector-ref sc5 5))) e-4)) arg-0))) (let ((act-27 (CoreC-45Core-newRef (vector "Core.Context.Ctxt" ) (let ((sc5 e-7)) (let ((e-0 (vector-ref sc5 1))) (let ((e-1 (vector-ref sc5 2))) (let ((e-2 (vector-ref sc5 3))) (let ((e-3 (vector-ref sc5 4))) (let ((e-30 (vector-ref sc5 6))) (let ((e-29 (vector-ref sc5 7))) (let ((e-28 (vector-ref sc5 8))) (let ((e-8 (vector-ref sc5 9))) (let ((e-9 (vector-ref sc5 10))) (let ((e-10 (vector-ref sc5 11))) (let ((e-11 (vector-ref sc5 12))) (let ((e-12 (vector-ref sc5 13))) (let ((e-13 (vector-ref sc5 14))) (let ((e-14 (vector-ref sc5 15))) (let ((e-15 (vector-ref sc5 16))) (let ((e-16 (vector-ref sc5 17))) (let ((e-17 (vector-ref sc5 18))) (let ((e-18 (vector-ref sc5 19))) (let ((e-19 (vector-ref sc5 20))) (let ((e-20 (vector-ref sc5 21))) (let ((e-21 (vector-ref sc5 22))) (let ((e-22 (vector-ref sc5 23))) (let ((e-23 (vector-ref sc5 24))) (let ((e-24 (vector-ref sc5 25))) (let ((e-25 (vector-ref sc5 26))) (let ((e-26 (vector-ref sc5 27))) (let ((e-27 (vector-ref sc5 28))) (vector 0 e-0 e-1 e-2 e-3 u--updated e-30 e-29 e-28 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27))))))))))))))))))))))))))))) ext-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-28 (CoreC-45Core-newRef (vector "Idris.Syntax.Syn" ) (IdrisC-45Syntax-initSyntax) ext-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-29 (CoreC-45Context-setCG e-8 (PreludeC-45Types-maybe (lambda () (vector 0 )) (lambda () (lambda (eta-0) (vector 6 (Builtin-fst eta-0)))) (DataC-45List-headC-39 arg-0)) ext-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((act-30 (CoreC-45InitPrimitives-addPrimitives e-8 ext-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((act-31 (CoreC-45Context-setWorkingDir e-8 "." ext-0))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((act-32 (let ((act-32 (CoreC-45Context-getSession e-8 ext-0))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref sc10 1))) (let ((sc11 (IdrisC-45Driver-ignoreMissingIpkg arg-1))) (cond ((equal? sc11 0) (CoreC-45Context-setSession e-8 (let ((sc12 e-13)) (let ((e-0 (vector-ref sc12 1))) (let ((e-1 (vector-ref sc12 2))) (let ((e-2 (vector-ref sc12 3))) (let ((e-3 (vector-ref sc12 4))) (let ((e-4 (vector-ref sc12 5))) (let ((e-23 (vector-ref sc12 6))) (let ((e-22 (vector-ref sc12 7))) (let ((e-21 (vector-ref sc12 8))) (let ((e-19 (vector-ref sc12 10))) (let ((e-18 (vector-ref sc12 11))) (let ((e-17 (vector-ref sc12 12))) (let ((e-16 (vector-ref sc12 13))) (let ((e-15 (vector-ref sc12 14))) (let ((e-14 (vector-ref sc12 15))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-23 e-22 e-21 0 e-19 e-18 e-17 e-16 e-15 e-14)))))))))))))))) ext-0)) (else (vector 1 (vector 0 )))))))))))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((act-33 (IdrisC-45Driver-updateEnv e-8 ext-0))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((u--ide (IdrisC-45SetOptions-ideMode arg-1))) (let ((u--ideSocket (IdrisC-45SetOptions-ideModeSocket arg-1))) (let ((u--outmode (let ((sc12 u--ide)) (cond ((equal? sc12 0) (vector 0 0 (SystemC-45File-stdin) (SystemC-45File-stdout))) (else (vector 1 1)))))) (let ((u--fname (IdrisC-45Driver-findInput arg-1))) (let ((act-34 (CoreC-45Core-newRef (vector "Idris.REPL.Opts.ROpts" ) (IdrisC-45REPLC-45Opts-defaultOpts u--fname u--outmode arg-0) ext-0))) (let ((sc12 act-34)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-15 (vector-ref sc12 1))) (let ((act-35 ((IdrisC-45Driver-showInfo e-8 e-15 arg-1) ext-0))) (let ((sc13 act-35)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-16 (vector-ref sc13 1))) (let ((sc14 e-16)) (cond ((equal? sc14 0) (vector 1 (vector 0 ))) (else (let ((act-36 (IdrisC-45Package-processPackageOpts e-8 e-9 e-15 arg-1 ext-0))) (let ((sc15 act-36)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-17 (vector-ref sc15 1))) (let ((sc16 e-17)) (cond ((equal? sc16 0) (vector 1 (vector 0 ))) (else ((PreludeC-45Basics-flip (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (CoreC-45Core-u--catch_Catchable_Core_Error eta-0 eta-1 eta-2)))) (lambda (eta-0) (lambda (eta-1) (IdrisC-45Driver-n--18843-5628-u--renderError arg-1 arg-0 e-8 e-9 e-15 eta-0 eta-1))) (lambda (eta-0) (let ((act-37 ((IdrisC-45SetOptions-preOptions e-8 e-15 arg-1) eta-0))) (let ((sc17 act-37)) (case (vector-ref sc17 0) ((0) (let ((e-2 (vector-ref sc17 1))) (vector 0 e-2))) (else (let ((e-18 (vector-ref sc17 1))) (let ((_-1 1)) (let ((sc18 e-18)) (cond ((equal? sc18 0) (let ((act-38 (let ((sc19 (IdrisC-45Driver-checkVerbose arg-1))) (cond ((equal? sc19 0) (IdrisC-45REPLC-45Opts-setOutput e-15 (vector 1 1) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc19 act-38)) (case (vector-ref sc19 0) ((0) (let ((e-2 (vector-ref sc19 1))) (vector 0 e-2))) (else (let ((act-39 (CoreC-45Core-newRef (vector "Core.UnifyState.UST" ) (CoreC-45UnifyState-initUState) eta-0))) (let ((sc20 act-39)) (case (vector-ref sc20 0) ((0) (let ((e-2 (vector-ref sc20 1))) (vector 0 e-2))) (else (let ((e-20 (vector-ref sc20 1))) (let ((act-40 (CoreC-45Core-newRef (vector "Core.Metadata.MD" ) (CoreC-45Metadata-initMetadata) eta-0))) (let ((sc21 act-40)) (case (vector-ref sc21 0) ((0) (let ((e-2 (vector-ref sc21 1))) (vector 0 e-2))) (else (let ((e-21 (vector-ref sc21 1))) (let ((act-41 (IdrisC-45Driver-updateREPLOpts e-15 eta-0))) (let ((sc22 act-41)) (case (vector-ref sc22 0) ((0) (let ((e-2 (vector-ref sc22 1))) (vector 0 e-2))) (else (let ((act-42 (CoreC-45Context-getSession e-8 eta-0))) (let ((sc23 act-42)) (case (vector-ref sc23 0) ((0) (let ((e-2 (vector-ref sc23 1))) (vector 0 e-2))) (else (let ((e-23 (vector-ref sc23 1))) (let ((act-43 (let ((sc24 (let ((sc25 e-23)) (let ((e-1 (vector-ref sc25 2))) e-1)))) (cond ((equal? sc24 0) (vector 1 (vector 0 ))) (else (let ((act-43 (IdrisC-45REPLC-45Common-iputStrLn e-15 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String (IdrisC-45Driver-banner)) eta-0))) (let ((sc25 act-43)) (case (vector-ref sc25 0) ((0) (let ((e-2 (vector-ref sc25 1))) (vector 0 e-2))) (else (let ((sc26 (DataC-45List-isCons arg-0))) (cond ((equal? sc26 0) (IdrisC-45REPLC-45Common-iputStrLn e-15 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "With codegen for:") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-hsep (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (PreludeC-45Types-u--map_Functor_List eta-3 eta-4))))) (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String (Builtin-fst eta-1))) arg-0))) eta-0)) (else (vector 1 (vector 0 )))))))))))))) (let ((sc24 act-43)) (case (vector-ref sc24 0) ((0) (let ((e-2 (vector-ref sc24 1))) (vector 0 e-2))) (else (let ((act-44 (let ((_-2 0)) (IdrisC-45Driver-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32stMain-6028 arg-1 arg-0 _-0 _-1 e-7 u--updated e-8 e-9 u--ide u--ideSocket u--outmode u--fname e-15 e-16 e-17 _-2 e-20 e-21 e-23 (let ((sc25 e-23)) (let ((e-2 (vector-ref sc25 3))) e-2)) eta-0)))) (let ((sc25 act-44)) (case (vector-ref sc25 0) ((0) (let ((e-2 (vector-ref sc25 1))) (vector 0 e-2))) (else (let ((e-25 (vector-ref sc25 1))) (let ((act-45 (IdrisC-45REPLC-45Opts-setMainFile e-15 e-25 eta-0))) (let ((sc26 act-45)) (case (vector-ref sc26 0) ((0) (let ((e-2 (vector-ref sc26 1))) (vector 0 e-2))) (else (let ((act-46 (let ((sc27 e-25)) (case (vector-ref sc27 0) ((0) (CoreC-45ContextC-45Log-logTime e-8 (lambda () "+ Loading prelude") (lambda (eta-1) (let ((act-46 (let ((sc28 (let ((sc29 e-23)) (let ((e-0 (vector-ref sc29 1))) e-0)))) (cond ((equal? sc28 0) (vector 1 (vector 0 ))) (else (IdrisC-45ProcessIdr-readPrelude e-8 e-20 e-9 0 eta-1)))))) (let ((sc28 act-46)) (case (vector-ref sc28 0) ((0) (let ((e-2 (vector-ref sc28 1))) (vector 0 e-2))) (else (vector 1 (vector 0 ))))))) eta-0)) (else (let ((e-2 (vector-ref sc27 1))) (CoreC-45ContextC-45Log-logTime e-8 (lambda () "+ Loading main file") (lambda (eta-1) (let ((act-46 (IdrisC-45REPL-loadMainFile e-8 e-20 e-9 e-21 e-15 e-2 eta-1))) (let ((sc28 act-46)) (case (vector-ref sc28 0) ((0) (let ((e-3 (vector-ref sc28 1))) (vector 0 e-3))) (else (let ((e-27 (vector-ref sc28 1))) (let ((act-47 (IdrisC-45REPL-displayErrors e-8 e-20 e-9 e-21 e-15 e-27 eta-1))) (let ((sc29 act-47)) (case (vector-ref sc29 0) ((0) (let ((e-3 (vector-ref sc29 1))) (vector 0 e-3))) (else (vector 1 e-27))))))))))) eta-0))))))) (let ((sc27 act-46)) (case (vector-ref sc27 0) ((0) (let ((e-2 (vector-ref sc27 1))) (vector 0 e-2))) (else (let ((e-27 (vector-ref sc27 1))) (let ((act-47 (CoreC-45Core-u--catch_Catchable_Core_Error (IdrisC-45SetOptions-postOptions e-8 e-20 e-9 e-21 e-15 e-27 arg-1) (lambda (u--err) (lambda (eta-1) (CoreC-45Core-C-42C-62 (lambda (eta-2) (IdrisC-45REPLC-45Common-emitError e-8 e-15 e-9 u--err eta-2)) (lambda (eta-2) (vector 1 1)) eta-1))) eta-0))) (let ((sc28 act-47)) (case (vector-ref sc28 0) ((0) (let ((e-2 (vector-ref sc28 1))) (vector 0 e-2))) (else (let ((e-28 (vector-ref sc28 1))) (let ((_-2 0)) (let ((sc29 e-28)) (cond ((equal? sc29 0) (let ((u--doRepl 0)) ((IdrisC-45Driver-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32stMain-6276 arg-1 arg-0 _-0 _-1 e-7 u--updated e-8 e-9 u--ide u--ideSocket u--outmode u--fname e-15 e-16 e-17 _-2 e-20 e-21 e-23 e-25 e-27 u--doRepl (PreludeC-45Basics-C-124C-124 u--ide (lambda () u--ideSocket))) eta-0))) (else (let ((act-48 (let ((act-48 (unbox e-15))) (vector 1 act-48)))) (let ((sc30 act-48)) (case (vector-ref sc30 0) ((0) (let ((e-2 (vector-ref sc30 1))) (vector 0 e-2))) (else (let ((e-29 (vector-ref sc30 1))) (let ((act-49 (CoreC-45ContextC-45Log-showTimeRecord e-8 eta-0))) (let ((sc31 act-49)) (case (vector-ref sc31 0) ((0) (let ((e-2 (vector-ref sc31 1))) (vector 0 e-2))) (else (let ((u--doRepl 1)) (IdrisC-45Driver-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32stMain-6714 arg-1 arg-0 _-0 _-1 e-7 u--updated e-8 e-9 u--ide u--ideSocket u--outmode u--fname e-15 e-16 e-17 _-2 e-20 e-21 e-23 e-25 e-27 u--doRepl e-29 (let ((sc32 e-29)) (let ((e-40 (vector-ref sc32 7))) e-40)) eta-0)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (vector 1 (vector 0 ))))))))))))) ext-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (vector 1 (vector 0 )))))))))))) (else (vector 1 (vector 0 )))))))))))) -(define IdrisC-45Driver-showInfo (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (if (null? sc0) (lambda (eta-0) (vector 1 1)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((36) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (IdrisC-45REPLC-45Common-iputStrLn arg-1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String (CoreC-45Options-toString (let ((sc3 e-5)) (let ((e-4 (vector-ref sc3 5))) (let ((sc4 e-4)) (let ((e-39 (vector-ref sc4 1))) e-39)))))) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (vector 1 0))))))))))))(else (IdrisC-45Driver-showInfo arg-0 arg-1 e-3)))))))))) -(define IdrisC-45Driver-quitOpts (lambda (arg-0) (let ((sc0 arg-0)) (if (null? sc0) (lambda (eta-0) 0) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((11) (PreludeC-45Interfaces-C-62C-62 (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-0)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-0) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (let ((act-17 (arg-578 eta-0))) (let ((act-16 (arg-580 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (let ((act-24 (arg-876 eta-0))) ((arg-877 act-24) eta-0))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-0) (let ((act-29 (arg-879 eta-0))) (act-29 eta-0)))))) (PreludeC-45IO-putStrLn (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-0)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-0) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (let ((act-17 (arg-578 eta-0))) (let ((act-16 (arg-580 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (let ((act-24 (arg-876 eta-0))) ((arg-877 act-24) eta-0))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-0) (let ((act-51 (arg-879 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) (IdrisC-45CommandLine-versionMsg)) (lambda () (lambda (eta-0) 1)))) ((12) (PreludeC-45Interfaces-C-62C-62 (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-0)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-0) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (let ((act-17 (arg-578 eta-0))) (let ((act-16 (arg-580 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (let ((act-24 (arg-876 eta-0))) ((arg-877 act-24) eta-0))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-0) (let ((act-29 (arg-879 eta-0))) (act-29 eta-0)))))) (PreludeC-45IO-putStrLn (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-0)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-0) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (let ((act-17 (arg-578 eta-0))) (let ((act-16 (arg-580 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (let ((act-24 (arg-876 eta-0))) ((arg-877 act-24) eta-0))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-0) (let ((act-51 (arg-879 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) (IdrisC-45CommandLine-usage)) (lambda () (lambda (eta-0) 1)))) ((10) (PreludeC-45Interfaces-C-62C-62 (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-0)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-0) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (let ((act-17 (arg-578 eta-0))) (let ((act-16 (arg-580 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (let ((act-24 (arg-876 eta-0))) ((arg-877 act-24) eta-0))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-0) (let ((act-29 (arg-879 eta-0))) (act-29 eta-0)))))) (PreludeC-45IO-putStrLn (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-0)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-0) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (let ((act-17 (arg-578 eta-0))) (let ((act-16 (arg-580 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (let ((act-24 (arg-876 eta-0))) ((arg-877 act-24) eta-0))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-0) (let ((act-51 (arg-879 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) (IdrisPaths-yprefix)) (lambda () (lambda (eta-0) 1))))(else (IdrisC-45Driver-quitOpts e-3)))))))))) -(define IdrisC-45Driver-mainWithCodegens (lambda (arg-0 ext-0) (let ((act-24 (IdrisC-45CommandLine-getCmdOpts ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((act-25 ((IdrisC-45Driver-quitOpts e-2) ext-0))) ((PreludeC-45Interfaces-when (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-0)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-0) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (let ((act-17 (arg-578 eta-0))) (let ((act-16 (arg-580 eta-0))) (act-17 act-16))))))))) act-25 (lambda () (PreludeC-45Interfaces-C-62C-62 (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-0)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-0) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (let ((act-17 (arg-578 eta-0))) (let ((act-16 (arg-580 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (let ((act-26 (arg-876 eta-0))) ((arg-877 act-26) eta-0))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-0) (let ((act-29 (arg-879 eta-0))) (act-29 eta-0)))))) (lambda (eta-0) (LibrariesC-45UtilsC-45Term-setupTerm eta-0)) (lambda () (lambda (eta-0) (CoreC-45Core-coreRun (lambda (eta-1) (IdrisC-45Driver-stMain arg-0 e-2 eta-1)) (lambda (u--err) (PreludeC-45Interfaces-C-62C-62 (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-1)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-1) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-1) (let ((act-17 (arg-578 eta-1))) (let ((act-16 (arg-580 eta-1))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-1) (let ((act-26 (arg-876 eta-1))) ((arg-877 act-26) eta-1))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-1) (let ((act-29 (arg-879 eta-1))) (act-29 eta-1)))))) (PreludeC-45IO-putStrLn (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-1)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-1) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-1) (let ((act-17 (arg-578 eta-1))) (let ((act-16 (arg-580 eta-1))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-1) (let ((act-26 (arg-876 eta-1))) ((arg-877 act-26) eta-1))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-1) (let ((act-51 (arg-879 eta-1))) (act-51 eta-1)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) (PreludeC-45TypesC-45String-C-43C-43 "Uncaught error: " (CoreC-45Core-u--show_Show_Error u--err))) (lambda () (System-exitWith (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-1)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-1) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-1) (let ((act-17 (arg-578 eta-1))) (let ((act-16 (arg-580 eta-1))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-1) (let ((act-26 (arg-876 eta-1))) ((arg-877 act-26) eta-1))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-1) (let ((act-51 (arg-879 eta-1))) (act-51 eta-1)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) (cons 1 (vector 0 )))))) (lambda (u--res) (lambda (eta-1) (vector 0 ))) eta-0)))))) ext-0)))) (else (let ((e-5 (vector-ref sc0 1))) ((PreludeC-45Interfaces-C-62C-62 (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-0)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-0) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (let ((act-17 (arg-578 eta-0))) (let ((act-16 (arg-580 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (let ((act-25 (arg-876 eta-0))) ((arg-877 act-25) eta-0))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-0) (let ((act-29 (arg-879 eta-0))) (act-29 eta-0)))))) (PreludeC-45IO-putStrLn (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-0)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-0) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (let ((act-17 (arg-578 eta-0))) (let ((act-16 (arg-580 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (let ((act-25 (arg-876 eta-0))) ((arg-877 act-25) eta-0))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-0) (let ((act-51 (arg-879 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) e-5) (lambda () (PreludeC-45IO-putStrLn (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-0)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-0) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (let ((act-17 (arg-578 eta-0))) (let ((act-16 (arg-580 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (let ((act-25 (arg-876 eta-0))) ((arg-877 act-25) eta-0))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-0) (let ((act-51 (arg-879 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) (IdrisC-45CommandLine-usage)))) ext-0)))))))) -(define IdrisC-45Driver-ignoreMissingIpkg (lambda (arg-0) (let ((sc0 arg-0)) (if (null? sc0) 1 (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((32) 0)(else (IdrisC-45Driver-ignoreMissingIpkg e-3)))))))))) -(define IdrisC-45Driver-findInput (lambda (arg-0) (let ((sc0 arg-0)) (if (null? sc0) (vector 0 ) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((22) (let ((e-4 (vector-ref sc1 1))) (vector 1 e-4)))(else (IdrisC-45Driver-findInput e-3)))))))))) -(define IdrisC-45Driver-checkVerbose (lambda (arg-0) (let ((sc0 arg-0)) (if (null? sc0) 1 (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((15) 0)(else (IdrisC-45Driver-checkVerbose e-3)))))))))) -(define IdrisC-45Driver-banner (lambda () (PreludeC-45TypesC-45String-C-43C-43 " ____ __ _ ___ \u000a" (PreludeC-45TypesC-45String-C-43C-43 " / _/___/ /____(_)____ |__ \\ \u000a" (PreludeC-45TypesC-45String-C-43C-43 " / // __ / ___/ / ___/ __/ / Version " (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Version-showVersion 0 (IdrisC-45Version-version)) (PreludeC-45TypesC-45String-C-43C-43 "\u000a" (PreludeC-45TypesC-45String-C-43C-43 " _/ // /_/ / / / (__ ) / __/ https://www.idris-lang.org \u000a" (PreludeC-45TypesC-45String-C-43C-43 " /___/\\__,_/_/ /_/____/ /____/ Type :? for help \u000a" (PreludeC-45TypesC-45String-C-43C-43 "\u000a" "Welcome to Idris 2. Enjoy yourself!")))))))))) -(define YaffleC-45Main-case--yaffleMain-4724 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 ext-0) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (cond ((equal? sc1 "ttc") (let ((act-24 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc2 eta-0)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))) (lambda (eta-0) (let ((act-24 ((PreludeC-45IO-putStrLn (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-1)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-1) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-1) (let ((act-17 (arg-578 eta-1))) (let ((act-16 (arg-580 eta-1))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-1) (let ((act-24 (arg-876 eta-1))) ((arg-877 act-24) eta-1))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-1) (let ((act-51 (arg-879 eta-1))) (act-51 eta-1)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) "Processing as TTC") eta-0))) (vector 1 act-24))) ext-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-25 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc3 eta-0)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))) (lambda (eta-0) (CoreC-45Binary-readFromTTC (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124UnitC-44MkUnitC-124C-41 arg-10255 arg-10257 eta-1)))) (lambda (arg-10258) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124UnitC-44MkUnitC-124C-41 arg-10258 eta-1)))) arg-3 arg-5 0 (CoreC-45FC-emptyFC) 0 arg-1 (CoreC-45NameC-45Namespace-nsAsModuleIdent (CoreC-45NameC-45Namespace-emptyNS)) (CoreC-45NameC-45Namespace-emptyNS) eta-0)) ext-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc4 eta-0)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))) (lambda (eta-0) (let ((act-26 ((PreludeC-45IO-putStrLn (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-1)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-1) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-1) (let ((act-17 (arg-578 eta-1))) (let ((act-16 (arg-580 eta-1))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-1) (let ((act-26 (arg-876 eta-1))) ((arg-877 act-26) eta-1))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-1) (let ((act-51 (arg-879 eta-1))) (act-51 eta-1)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) "Read TTC") eta-0))) (vector 1 act-26))) ext-0))))))))))(else (let ((act-24 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc1 eta-0)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))) (lambda (eta-0) (let ((act-24 ((PreludeC-45IO-putStrLn (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-1)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-1) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-1) (let ((act-17 (arg-578 eta-1))) (let ((act-16 (arg-580 eta-1))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-1) (let ((act-24 (arg-876 eta-1))) ((arg-877 act-24) eta-1))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-1) (let ((act-51 (arg-879 eta-1))) (act-51 eta-1)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) "Processing as TTImp") eta-0))) (vector 1 act-24))) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (TTImpC-45ProcessDecls-processTTImpFile arg-3 arg-4 arg-5 arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 0) (let ((act-26 ((CoreC-45Directory-pathToNS (let ((sc4 arg-6)) (let ((e-0 (vector-ref sc4 1))) e-0)) (let ((sc4 arg-6)) (let ((e-12 (vector-ref sc4 2))) e-12)) arg-1) ext-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-27 (CoreC-45Directory-makeBuildDirectory arg-3 e-7 ext-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((act-28 (let ((act-28 (CoreC-45Directory-getTTCFileName arg-3 arg-1 "ttc" ext-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc6 1))) (CoreC-45Binary-writeToTTC (cons (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (YaffleC-45Main-u--full_HasNames_C-40C-124UnitC-44MkUnitC-124C-41 arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (lambda (eta-0) (YaffleC-45Main-u--resolved_HasNames_C-40C-124UnitC-44MkUnitC-124C-41 arg-3812 arg-3813 eta-0))))) (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124UnitC-44MkUnitC-124C-41 arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124UnitC-44MkUnitC-124C-41 arg-10258 eta-0))))) arg-3 arg-5 (vector 0 ) e-9 ext-0)))))))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc7 eta-0)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))) (lambda (eta-0) (let ((act-29 ((PreludeC-45IO-putStrLn (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-1)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-1) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-1) (let ((act-17 (arg-578 eta-1))) (let ((act-16 (arg-580 eta-1))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-1) (let ((act-29 (arg-876 eta-1))) ((arg-877 act-29) eta-1))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-1) (let ((act-51 (arg-879 eta-1))) (act-51 eta-1)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) "Written TTC") eta-0))) (vector 1 act-29))) ext-0))))))))))))))) (else (vector 1 (vector 0 )))))))))))))))))))(else (let ((act-24 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc0 eta-0)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))) (lambda (eta-0) (let ((act-24 ((PreludeC-45IO-putStrLn (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-1)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-1) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-1) (let ((act-17 (arg-578 eta-1))) (let ((act-16 (arg-580 eta-1))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-1) (let ((act-24 (arg-876 eta-1))) ((arg-877 act-24) eta-1))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-1) (let ((act-51 (arg-879 eta-1))) (act-51 eta-1)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) "Processing as TTImp") eta-0))) (vector 1 act-24))) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((act-25 (TTImpC-45ProcessDecls-processTTImpFile arg-3 arg-4 arg-5 arg-1 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (cond ((equal? sc2 0) (let ((act-26 ((CoreC-45Directory-pathToNS (let ((sc3 arg-6)) (let ((e-0 (vector-ref sc3 1))) e-0)) (let ((sc3 arg-6)) (let ((e-1 (vector-ref sc3 2))) e-1)) arg-1) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (CoreC-45Directory-makeBuildDirectory arg-3 e-7 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-28 (let ((act-28 (CoreC-45Directory-getTTCFileName arg-3 arg-1 "ttc" ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (CoreC-45Binary-writeToTTC (cons (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (YaffleC-45Main-u--full_HasNames_C-40C-124UnitC-44MkUnitC-124C-41 arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (lambda (eta-0) (YaffleC-45Main-u--resolved_HasNames_C-40C-124UnitC-44MkUnitC-124C-41 arg-3812 arg-3813 eta-0))))) (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124UnitC-44MkUnitC-124C-41 arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124UnitC-44MkUnitC-124C-41 arg-10258 eta-0))))) arg-3 arg-5 (vector 0 ) e-9 ext-0)))))))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc6 eta-0)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))) (lambda (eta-0) (let ((act-29 ((PreludeC-45IO-putStrLn (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-1)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-1) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-1) (let ((act-17 (arg-578 eta-1))) (let ((act-16 (arg-580 eta-1))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-1) (let ((act-29 (arg-876 eta-1))) ((arg-877 act-29) eta-1))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-1) (let ((act-51 (arg-879 eta-1))) (act-51 eta-1)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) "Written TTC") eta-0))) (vector 1 act-29))) ext-0))))))))))))))) (else (vector 1 (vector 0 ))))))))))))))))))) -(define YaffleC-45Main-u--resolved_HasNames_C-40C-124UnitC-44MkUnitC-124C-41 (lambda (arg-0 arg-1 ext-0) (vector 1 (vector 0 )))) -(define YaffleC-45Main-u--full_HasNames_C-40C-124UnitC-44MkUnitC-124C-41 (lambda (arg-0 arg-1 ext-0) (vector 1 (vector 0 )))) -(define YaffleC-45Main-yaffleMain (lambda (arg-0 arg-1 ext-0) (let ((act-24 (CoreC-45Context-initDefs ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (CoreC-45Core-newRef (vector "Core.Context.Ctxt" ) e-5 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (CoreC-45Core-newRef (vector "Core.Metadata.MD" ) (CoreC-45Metadata-initMetadata) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (CoreC-45Core-newRef (vector "Core.UnifyState.UST" ) (CoreC-45UnifyState-initUState) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (CoreC-45Context-getDirs e-6 ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-29 ((YaffleC-45Main-processArgs arg-1) ext-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-30 (CoreC-45Context-setLogTimings e-6 e-10 ext-0))) (let ((sc6 act-30)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((act-31 (CoreC-45InitPrimitives-addPrimitives e-6 ext-0))) (let ((sc7 act-31)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((act-32 (YaffleC-45Main-case--yaffleMain-4724 arg-1 arg-0 e-5 e-6 e-7 e-8 e-9 e-10 (LibrariesC-45UtilsC-45Path-extension arg-0) ext-0))) (let ((sc8 act-32)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((act-33 (let ((act-33 (unbox e-8))) (vector 1 act-33)))) (let ((sc9 act-33)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (YaffleC-45REPL-repl e-6 e-7 e-8 ext-0))))))))))))))))))))))))))))))))))))))))))))))))) -(define YaffleC-45Main-usage (lambda () "Usage: yaffle [--timing]")) -(define YaffleC-45Main-processArgs (lambda (arg-0) (let ((sc0 arg-0)) (if (null? sc0) (lambda (eta-0) (vector 1 1)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (lambda (clam-0) (let ((sc1 e-2)) (cond ((equal? sc1 "--timing") (let ((sc2 e-3)) (if (null? sc2) (vector 1 0) (let ((act-24 ((PreludeC-45Interfaces-C-62C-62 (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-0)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-0) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (let ((act-17 (arg-578 eta-0))) (let ((act-16 (arg-580 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (let ((act-24 (arg-876 eta-0))) ((arg-877 act-24) eta-0))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-0) (let ((act-29 (arg-879 eta-0))) (act-29 eta-0)))))) (PreludeC-45Interfaces-ignore (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (PreludeC-45IO-u--map_Functor_IO eta-2 eta-3 eta-4)))))) (PreludeC-45IO-putStrLn (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-0)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-0) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (let ((act-17 (arg-578 eta-0))) (let ((act-16 (arg-580 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (let ((act-24 (arg-876 eta-0))) ((arg-877 act-24) eta-0))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-0) (let ((act-51 (arg-879 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) (YaffleC-45Main-usage))) (lambda () (System-exitWith (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-0)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-0) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (let ((act-17 (arg-578 eta-0))) (let ((act-16 (arg-580 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (let ((act-24 (arg-876 eta-0))) ((arg-877 act-24) eta-0))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-0) (let ((act-51 (arg-879 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) (cons 1 (vector 0 ))))) clam-0))) (vector 1 act-24)))))(else (let ((act-24 ((PreludeC-45Interfaces-C-62C-62 (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-0)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-0) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (let ((act-17 (arg-578 eta-0))) (let ((act-16 (arg-580 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (let ((act-24 (arg-876 eta-0))) ((arg-877 act-24) eta-0))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-0) (let ((act-29 (arg-879 eta-0))) (act-29 eta-0)))))) (PreludeC-45Interfaces-ignore (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (PreludeC-45IO-u--map_Functor_IO eta-2 eta-3 eta-4)))))) (PreludeC-45IO-putStrLn (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-0)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-0) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (let ((act-17 (arg-578 eta-0))) (let ((act-16 (arg-580 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (let ((act-24 (arg-876 eta-0))) ((arg-877 act-24) eta-0))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-0) (let ((act-51 (arg-879 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) (YaffleC-45Main-usage))) (lambda () (System-exitWith (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-0)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-0) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (let ((act-17 (arg-578 eta-0))) (let ((act-16 (arg-580 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (let ((act-24 (arg-876 eta-0))) ((arg-877 act-24) eta-0))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-0) (let ((act-51 (arg-879 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) (cons 1 (vector 0 ))))) clam-0))) (vector 1 act-24)))))))))))) -(define System-case--getEnv-4207 (lambda (arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (let ((sc1 arg-1)) (let ((e-1 (car sc1))) (let ((sc2 e-1)) (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (let ((e-7 (vector-ref sc3 2))) ((e-7 'erased) (vector 0 ))))))))) (else (let ((sc1 arg-1)) (let ((e-1 (car sc1))) (let ((sc2 e-1)) (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (let ((e-7 (vector-ref sc3 2))) ((e-7 'erased) (vector 1 (PreludeC-45IO-prim__getString arg-3)))))))))))))) -(define System-case--getArgs-4095 (lambda (arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (PreludeC-45Interfaces-for (cons (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (PreludeC-45Types-u--map_Functor_List u--func arg-143))))) (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (lambda (u--b) (lambda (u--a) (lambda (u--f) (lambda (i_con-0) (lambda (arg-2343) (lambda (arg-2345) (PreludeC-45Types-u--traverse_Traversable_List i_con-0 arg-2343 arg-2345)))))))) (let ((sc1 arg-1)) (let ((e-1 (car sc1))) (let ((sc2 e-1)) (let ((e-5 (vector-ref sc2 1))) e-5))))) (PreludeC-45Types-u--rangeFromTo_Range_C-36a (cons (vector 0 (vector 0 (lambda (arg-4) (lambda (arg-5) (bs+ arg-4 arg-5 63))) (lambda (arg-4) (lambda (arg-5) (bs* arg-4 arg-5 63))) (lambda (arg-6) (blodwen-toSignedInt arg-6 63))) (lambda (arg-184) (lambda (arg-185) (PreludeC-45Num-u--div_Integral_Int arg-184 arg-185))) (lambda (arg-186) (lambda (arg-187) (PreludeC-45Num-u--mod_Integral_Int arg-186 arg-187)))) (cons (vector 0 (cons (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Int arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Int arg-383 arg-384)))) (vector 0 (vector 0 (lambda (arg-4) (lambda (arg-5) (bs+ arg-4 arg-5 63))) (lambda (arg-4) (lambda (arg-5) (bs* arg-4 arg-5 63))) (lambda (arg-6) (blodwen-toSignedInt arg-6 63))) (lambda (arg-56) (PreludeC-45Num-u--negate_Neg_Int arg-56)) (lambda (arg-57) (lambda (arg-58) (PreludeC-45Num-u--C-45_Neg_Int arg-57 arg-58)))))) 0 (PreludeC-45Num-u--C-45_Neg_Int arg-2 1)) (lambda (u--x) (let ((sc1 arg-1)) (let ((e-2 (cdr sc1))) ((e-2 'erased) (lambda (eta-0) (System-prim__getArg u--x eta-0)))))))) (else (let ((sc1 arg-1)) (let ((e-1 (car sc1))) (let ((sc2 e-1)) (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (let ((e-7 (vector-ref sc3 2))) ((e-7 'erased) '())))))))))))) -(define System-system (lambda (arg-1 arg-2) (let ((sc0 arg-1)) (let ((e-2 (cdr sc0))) ((e-2 'erased) (lambda (eta-0) (System-prim__system arg-2 eta-0))))))) -(define System-getEnv (lambda (arg-1 arg-2) (let ((sc0 arg-1)) (let ((e-1 (car sc0))) (let ((sc1 e-1)) (let ((e-4 (vector-ref sc1 2))) ((((e-4 'erased) 'erased) (let ((sc2 arg-1)) (let ((e-6 (cdr sc2))) ((e-6 'erased) (lambda (eta-0) (System-prim__getEnv arg-2 eta-0)))))) (lambda (u--env) (System-case--getEnv-4207 arg-1 arg-2 u--env (PreludeC-45EqOrd-u--C-47C-61_Eq_Int (PrimIO-prim__nullAnyPtr (PrimIO-prim__forgetPtr u--env)) (blodwen-toSignedInt 0 63))))))))))) -(define System-getArgs (lambda (arg-1) (let ((sc0 arg-1)) (let ((e-1 (car sc0))) (let ((sc1 e-1)) (let ((e-4 (vector-ref sc1 2))) ((((e-4 'erased) 'erased) (let ((sc2 arg-1)) (let ((e-6 (cdr sc2))) ((e-6 'erased) (lambda (eta-0) (System-prim__getArgCount eta-0)))))) (lambda (u--n) (System-case--getArgs-4095 arg-1 u--n (PreludeC-45EqOrd-u--C-62_Ord_Int u--n (blodwen-toSignedInt 0 63))))))))))) -(define System-exitWith (lambda (arg-2 arg-3) (let ((sc0 arg-3)) (if (null? sc0) (let ((sc1 arg-2)) (let ((e-2 (cdr sc1))) ((e-2 'erased) (Builtin-believe_me (lambda (eta-0) (System-prim__exit 0 eta-0)))))) (let ((e-0 (car sc0))) (let ((sc1 arg-2)) (let ((e-2 (cdr sc1))) ((e-2 'erased) (Builtin-believe_me (lambda (eta-0) (System-prim__exit e-0 eta-0))))))))))) -(define DataC-45String-with--parseIntegerC-44parseIntTrimmed-3288 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (cond ((equal? sc0 "") (let ((sc1 arg-4)) (if (null? sc1) (vector 0 ) (let ((sc2 arg-4)) (let ((e-0 (car sc2))) (let ((e-1 (cdr sc2))) (DataC-45String-case--withC-32blockC-32inC-32parseIntegerC-44parseIntTrimmed-3303 arg-1 arg-2 e-1 e-0 (PreludeC-45EqOrd-u--C-61C-61_Eq_Char e-0 #\-))))))))(else (let ((sc0 arg-4)) (let ((e-0 (car sc0))) (let ((e-1 (cdr sc0))) (DataC-45String-case--withC-32blockC-32inC-32parseIntegerC-44parseIntTrimmed-3303 arg-1 arg-2 e-1 e-0 (PreludeC-45EqOrd-u--C-61C-61_Eq_Char e-0 #\-)))))))))) -(define DataC-45String-with--parsePositiveC-44parsePosTrimmed-3204 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (cond ((equal? sc0 "") (let ((sc1 arg-4)) (if (null? sc1) (vector 0 ) (let ((sc2 arg-4)) (let ((e-0 (car sc2))) (let ((e-1 (cdr sc2))) (let ((sc3 e-0)) (cond ((equal? sc3 #\+) (PreludeC-45Types-u--map_Functor_Maybe (lambda (eta-0) (let ((sc4 arg-1)) (let ((e-3 (vector-ref sc4 3))) (e-3 eta-0)))) (DataC-45String-parseNumWithoutSign (PreludeC-45Types-fastUnpack e-1) 0)))(else (DataC-45String-case--withC-32blockC-32inC-32parsePositiveC-44parsePosTrimmed-3236 arg-1 arg-2 e-1 e-0 (PreludeC-45Basics-C-38C-38 (PreludeC-45EqOrd-u--C-62C-61_Ord_Char e-0 #\0) (lambda () (PreludeC-45EqOrd-u--C-60C-61_Ord_Char e-0 #\9)))))))))))))(else (let ((sc0 arg-4)) (let ((e-0 (car sc0))) (let ((e-1 (cdr sc0))) (let ((sc1 e-0)) (cond ((equal? sc1 #\+) (PreludeC-45Types-u--map_Functor_Maybe (lambda (eta-0) (let ((sc2 arg-1)) (let ((e-3 (vector-ref sc2 3))) (e-3 eta-0)))) (DataC-45String-parseNumWithoutSign (PreludeC-45Types-fastUnpack e-1) 0)))(else (DataC-45String-case--withC-32blockC-32inC-32parsePositiveC-44parsePosTrimmed-3236 arg-1 arg-2 e-1 e-0 (PreludeC-45Basics-C-38C-38 (PreludeC-45EqOrd-u--C-62C-61_Ord_Char e-0 #\0) (lambda () (PreludeC-45EqOrd-u--C-60C-61_Ord_Char e-0 #\9))))))))))))))) -(define DataC-45String-with--ltrim-3000 (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (cond ((equal? sc0 "") (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) "")(else (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((u--str (string-cons e-0 e-1))) (DataC-45String-case--withC-32blockC-32inC-32ltrim-3013 e-1 e-2 e-0 u--str (PreludeC-45Types-isSpace e-0)))))))))))(else (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((u--str (string-cons e-0 e-1))) (DataC-45String-case--withC-32blockC-32inC-32ltrim-3013 e-1 e-2 e-0 u--str (PreludeC-45Types-isSpace e-0)))))))))))) -(define DataC-45String-with--asList-2985 (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (cond ((equal? sc0 "") (let ((sc1 arg-1)) (if (null? sc1) (vector 0 ) (let ((sc2 arg-1)) (let ((e-0 (car sc2))) (let ((e-1 (cdr sc2))) (vector 1 e-0 e-1 (lambda () (DataC-45String-asList e-1)))))))))(else (let ((sc0 arg-1)) (let ((e-0 (car sc0))) (let ((e-1 (cdr sc0))) (vector 1 e-0 e-1 (lambda () (DataC-45String-asList e-1))))))))))) -(define DataC-45String-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32withC-32blockC-32inC-32parseIntegerC-44parseIntTrimmed-3387 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (PreludeC-45Types-u--map_Functor_Maybe (lambda (eta-0) (let ((sc1 (Builtin-fst arg-1))) (let ((e-3 (vector-ref sc1 3))) (e-3 eta-0)))) (DataC-45String-parseNumWithoutSign (PreludeC-45Types-fastUnpack arg-3) (PreludeC-45Cast-u--cast_Cast_Int_Integer (PreludeC-45Num-u--C-45_Neg_Int (PreludeC-45Types-ord arg-4) (PreludeC-45Types-ord #\0)))))) (else (vector 0 )))))) -(define DataC-45String-case--caseC-32blockC-32inC-32withC-32blockC-32inC-32parseIntegerC-44parseIntTrimmed-3343 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (PreludeC-45Types-u--map_Functor_Maybe (lambda (eta-0) (let ((sc1 (Builtin-fst arg-1))) (let ((e-3 (vector-ref sc1 3))) (e-3 eta-0)))) (DataC-45String-parseNumWithoutSign (PreludeC-45Types-fastUnpack arg-3) (PreludeC-45Cast-u--cast_Cast_Int_Integer 0)))) (else (DataC-45String-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32withC-32blockC-32inC-32parseIntegerC-44parseIntTrimmed-3387 arg-1 arg-2 arg-3 arg-4 (PreludeC-45Basics-C-38C-38 (PreludeC-45EqOrd-u--C-62C-61_Ord_Char arg-4 #\0) (lambda () (PreludeC-45EqOrd-u--C-60C-61_Ord_Char arg-4 #\9))))))))) -(define DataC-45String-case--withC-32blockC-32inC-32parseIntegerC-44parseIntTrimmed-3303 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (PreludeC-45Types-u--map_Functor_Maybe (lambda (u--y) (let ((sc1 (Builtin-snd arg-1))) (let ((e-2 (vector-ref sc1 2))) (e-2 (let ((sc2 (Builtin-fst arg-1))) (let ((e-4 (vector-ref sc2 3))) (e-4 u--y))))))) (DataC-45String-parseNumWithoutSign (PreludeC-45Types-fastUnpack arg-3) 0))) (else (DataC-45String-case--caseC-32blockC-32inC-32withC-32blockC-32inC-32parseIntegerC-44parseIntTrimmed-3343 arg-1 arg-2 arg-3 arg-4 (PreludeC-45EqOrd-u--C-61C-61_Eq_Char arg-4 #\+))))))) -(define DataC-45String-case--withC-32blockC-32inC-32parsePositiveC-44parsePosTrimmed-3236 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (PreludeC-45Types-u--map_Functor_Maybe (lambda (eta-0) (let ((sc1 arg-1)) (let ((e-3 (vector-ref sc1 3))) (e-3 eta-0)))) (DataC-45String-parseNumWithoutSign (PreludeC-45Types-fastUnpack arg-3) (PreludeC-45Cast-u--cast_Cast_Int_Integer (PreludeC-45Num-u--C-45_Neg_Int (PreludeC-45Types-ord arg-4) (PreludeC-45Types-ord #\0)))))) (else (vector 0 )))))) -(define DataC-45String-case--parseNumWithoutSign-3169 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (DataC-45String-parseNumWithoutSign arg-1 (+ (* arg-2 10) (PreludeC-45Cast-u--cast_Cast_Int_Integer (PreludeC-45Num-u--C-45_Neg_Int (PreludeC-45Types-ord arg-0) (PreludeC-45Types-ord #\0)))))) (else (vector 0 )))))) -(define DataC-45String-case--span-3063 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (cons (PreludeC-45Types-fastPack e-2) (PreludeC-45Types-fastPack e-3))))))) -(define DataC-45String-case--withC-32blockC-32inC-32ltrim-3013 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (DataC-45String-with--ltrim-3000 arg-0 (arg-1))) (else arg-3))))) -(define DataC-45String-case--caseC-32blockC-32inC-32wordsC-39-2838 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (cons e-2 (DataC-45String-wordsC-39 e-3))))))) -(define DataC-45String-case--wordsC-39-2825 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (if (null? sc0) '() (DataC-45String-case--caseC-32blockC-32inC-32wordsC-39-2838 arg-0 arg-1 (DataC-45List-break (lambda (eta-0) (PreludeC-45Types-isSpace eta-0)) arg-1)))))) -(define DataC-45String-n--3250-3202-u--parsePosTrimmed (lambda (arg-1 arg-2 arg-3) (DataC-45String-with--parsePositiveC-44parsePosTrimmed-3204 'erased arg-1 arg-3 arg-3 (DataC-45String-strM arg-3)))) -(define DataC-45String-n--3331-3286-u--parseIntTrimmed (lambda (arg-1 arg-2 arg-3) (DataC-45String-with--parseIntegerC-44parseIntTrimmed-3288 'erased arg-1 arg-3 arg-3 (DataC-45String-strM arg-3)))) -(define DataC-45String-n--2923-2860-u--addSpace (lambda (arg-0 arg-1 arg-2) (PreludeC-45TypesC-45List-C-43C-43 arg-1 (cons #\ arg-2)))) -(define DataC-45String-wordsC-39 (lambda (arg-0) (DataC-45String-case--wordsC-39-2825 arg-0 (DataC-45List-dropWhile (lambda (eta-0) (PreludeC-45Types-isSpace eta-0)) arg-0)))) -(define DataC-45String-words (lambda (arg-0) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (PreludeC-45Types-fastPack eta-0)) (DataC-45String-wordsC-39 (PreludeC-45Types-fastUnpack arg-0))))) -(define DataC-45String-unwordsC-39 (lambda (arg-0) (let ((sc0 arg-0)) (if (null? sc0) '() (DataC-45String-foldr1 (lambda (eta-0) (lambda (eta-1) (DataC-45String-n--2923-2860-u--addSpace arg-0 eta-0 eta-1))) arg-0))))) -(define DataC-45String-unwords (lambda (ext-0) (PreludeC-45Types-fastPack (DataC-45String-unwordsC-39 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (PreludeC-45Types-fastUnpack eta-0)) ext-0))))) -(define DataC-45String-trim (lambda (ext-0) (DataC-45String-ltrim (PreludeC-45Types-reverse (DataC-45String-ltrim (PreludeC-45Types-reverse ext-0)))))) -(define DataC-45String-toLower (lambda (arg-0) (PreludeC-45Types-fastPack (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (PreludeC-45Types-toLower eta-0)) (PreludeC-45Types-fastUnpack arg-0))))) -(define DataC-45String-strTail (lambda (ext-0) (substring ext-0 1 (string-length ext-0)))) -(define DataC-45String-strSubstr (lambda (ext-0 ext-1 ext-2) (string-substr ext-0 ext-1 ext-2))) -(define DataC-45String-strM (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 "") '())(else (Builtin-believe_me (cons (string-ref arg-0 0) (substring arg-0 1 (string-length arg-0))))))))) -(define DataC-45String-strLength (lambda (ext-0) (string-length ext-0))) -(define DataC-45String-strIndex (lambda (ext-0 ext-1) (string-ref ext-0 ext-1))) -(define DataC-45String-split (lambda (arg-0 arg-1) (DataC-45List1-u--map_Functor_List1 (lambda (eta-0) (PreludeC-45Types-fastPack eta-0)) (DataC-45List-split arg-0 (PreludeC-45Types-fastUnpack arg-1))))) -(define DataC-45String-span (lambda (arg-0 arg-1) (DataC-45String-case--span-3063 arg-1 arg-0 (DataC-45List-span arg-0 (PreludeC-45Types-fastUnpack arg-1))))) -(define DataC-45String-singleton (lambda (arg-0) (PreludeC-45Types-strCons arg-0 ""))) -(define DataC-45String-parsePositive (lambda (arg-1 arg-2) (DataC-45String-n--3250-3202-u--parsePosTrimmed arg-1 arg-2 (DataC-45String-trim arg-2)))) -(define DataC-45String-parseNumWithoutSign (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (if (null? sc0) (vector 1 arg-1) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (DataC-45String-case--parseNumWithoutSign-3169 e-2 e-3 arg-1 (PreludeC-45Basics-C-38C-38 (PreludeC-45EqOrd-u--C-62C-61_Ord_Char e-2 #\0) (lambda () (PreludeC-45EqOrd-u--C-60C-61_Ord_Char e-2 #\9)))))))))) -(define DataC-45String-parseInteger (lambda (arg-1 arg-2) (DataC-45String-n--3331-3286-u--parseIntTrimmed arg-1 arg-2 (DataC-45String-trim arg-2)))) -(define DataC-45String-ltrim (lambda (arg-0) (DataC-45String-with--ltrim-3000 arg-0 (DataC-45String-asList arg-0)))) -(define DataC-45String-isSuffixOf (lambda (arg-0 arg-1) (DataC-45List-isSuffixOf (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Char arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Char arg-4 arg-5)))) (PreludeC-45Types-fastUnpack arg-0) (PreludeC-45Types-fastUnpack arg-1)))) -(define DataC-45String-isPrefixOf (lambda (arg-0 arg-1) (DataC-45List-isPrefixOf (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Char arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Char arg-4 arg-5)))) (PreludeC-45Types-fastUnpack arg-0) (PreludeC-45Types-fastUnpack arg-1)))) -(define DataC-45String-isInfixOf (lambda (arg-0 arg-1) (DataC-45List-isInfixOf (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Char arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Char arg-4 arg-5)))) (PreludeC-45Types-fastUnpack arg-0) (PreludeC-45Types-fastUnpack arg-1)))) -(define DataC-45String-foldr1 (lambda (arg-1 arg-2) (let ((sc0 arg-2)) (if (null? sc0) (Builtin-idris_crash "Unhandled input for Data.String.foldr1 at Data/String.idr:14:1--14:17") (let ((e-1 (car sc0))) (let ((e-2 (cdr sc0))) (let ((sc1 e-2)) (if (null? sc1) e-1 ((arg-1 e-1) (DataC-45String-foldr1 arg-1 e-2)))))))))) -(define DataC-45String-fastUnlines (lambda (ext-0) (PreludeC-45Types-fastConcat (DataC-45List-intersperse "\u000a" ext-0)))) -(define DataC-45String-fastAppend (lambda (ext-0) (PreludeC-45Types-fastConcat ext-0))) -(define DataC-45String-break (lambda (arg-0 ext-0) (DataC-45String-span (lambda (eta-0) (let ((sc0 (arg-0 eta-0))) (cond ((equal? sc0 0) 1) (else 0)))) ext-0))) -(define DataC-45String-asList (lambda (arg-0) (DataC-45String-with--asList-2985 arg-0 (DataC-45String-strM arg-0)))) -(define DataC-45List1-n--2252-782-u--loop (lambda (arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (if (null? sc0) arg-3 (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (DataC-45List1-n--2252-782-u--loop arg-1 arg-2 e-2 e-3))))))) -(define DataC-45List1-u--traverse_Traversable_List1 (lambda (arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (let ((e-1 (car sc0))) (let ((e-2 (cdr sc0))) (let ((sc1 arg-3)) (let ((e-3 (vector-ref sc1 3))) ((((e-3 'erased) 'erased) (let ((sc2 arg-3)) (let ((e-6 (vector-ref sc2 3))) ((((e-6 'erased) 'erased) (let ((sc3 arg-3)) (let ((e-10 (vector-ref sc3 2))) ((e-10 'erased) (lambda (eta-0) (lambda (eta-1) (cons eta-0 eta-1))))))) (arg-4 e-1))))) (PreludeC-45Types-u--traverse_Traversable_List arg-3 arg-4 e-2))))))))) -(define DataC-45List1-u--null_Foldable_List1 (lambda (arg-1) (lambda () 1))) -(define DataC-45List1-u--map_Functor_List1 (lambda (arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-1 (car sc0))) (let ((e-2 (cdr sc0))) (cons (arg-2 e-1) (PreludeC-45Types-u--map_Functor_List arg-2 e-2))))))) -(define DataC-45List1-u--foldr_Foldable_List1 (lambda (arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-1 (car sc0))) (let ((e-2 (cdr sc0))) ((arg-2 e-1) (PreludeC-45Types-u--foldr_Foldable_List arg-2 arg-3 e-2))))))) -(define DataC-45List1-u--foldl_Foldable_List1 (lambda (arg-2 arg-3 arg-4) ((DataC-45List1-u--foldr_Foldable_List1 (lambda (eta-0) (lambda (eta-1) (PreludeC-45Basics-flip (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (eta-2 (eta-3 eta-4))))) (lambda (eta-2) (PreludeC-45Basics-flip arg-2 eta-0 eta-2)) eta-1))) (lambda (eta-0) eta-0) arg-4) arg-3))) -(define DataC-45List1-u--foldlM_Foldable_List1 (lambda (arg-3 arg-4 arg-5 ext-0) (DataC-45List1-u--foldl_Foldable_List1 (lambda (u--ma) (lambda (u--b) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) u--ma) (lambda (eta-0) (PreludeC-45Basics-flip arg-4 u--b eta-0))))))) (let ((sc0 arg-3)) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 2))) ((e-5 'erased) arg-5))))) ext-0))) -(define DataC-45List1-u--compare_Ord_C-40List1C-32C-36aC-41 (lambda (arg-1 arg-2 arg-3) (PreludeC-45Types-u--compare_Ord_C-40ListC-32C-36aC-41 arg-1 (DataC-45List1-forget arg-2) (DataC-45List1-forget arg-3)))) -(define DataC-45List1-u--C-61C-61_Eq_C-40List1C-32C-36aC-41 (lambda (arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (let ((e-1 (car sc0))) (let ((e-2 (cdr sc0))) (let ((sc1 arg-3)) (let ((e-4 (car sc1))) (let ((e-5 (cdr sc1))) (PreludeC-45Basics-C-38C-38 (let ((sc2 arg-1)) (let ((e-6 (car sc2))) ((e-6 e-1) e-4))) (lambda () (PreludeC-45Types-u--C-61C-61_Eq_C-40ListC-32C-36aC-41 arg-1 e-2 e-5))))))))))) -(define DataC-45List1-singleton (lambda (arg-1) (cons arg-1 '()))) -(define DataC-45List1-reverseOnto (lambda (arg-1 arg-2) (let ((sc0 arg-2)) (if (null? sc0) arg-1 (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (DataC-45List1-reverseOnto (cons e-2 (DataC-45List1-forget arg-1)) e-3))))))) -(define DataC-45List1-reverse (lambda (arg-1) (let ((sc0 arg-1)) (let ((e-1 (car sc0))) (let ((e-2 (cdr sc0))) (DataC-45List1-reverseOnto (DataC-45List1-singleton e-1) e-2)))))) -(define DataC-45List1-last (lambda (arg-1) (let ((sc0 arg-1)) (let ((e-1 (car sc0))) (let ((e-2 (cdr sc0))) (DataC-45List1-n--2252-782-u--loop e-1 e-2 e-1 e-2)))))) -(define DataC-45List1-forget (lambda (arg-1) (let ((sc0 arg-1)) (let ((e-1 (car sc0))) (let ((e-2 (cdr sc0))) (cons e-1 e-2)))))) -(define DataC-45List1-cons (lambda (arg-1 arg-2) (cons arg-1 (DataC-45List1-forget arg-2)))) +(define CompilerC-45Common-case--castInt-3317 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (if (null? arg-4) (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 (PreludeC-45TypesC-45String-C-43C-43 "invalid cast: + " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_Constant arg-2) (PreludeC-45TypesC-45String-C-43C-43 " + ' -> ' + " (CoreC-45TT-u--show_Show_Constant arg-1))))) eta-0)) (let ((e-2 (car arg-4))) (let ((e-3 (cdr arg-4))) (if (null? e-2) (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 (PreludeC-45TypesC-45String-C-43C-43 "invalid cast: + " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_Constant arg-2) (PreludeC-45TypesC-45String-C-43C-43 " + ' -> ' + " (CoreC-45TT-u--show_Show_Constant arg-1))))) eta-0)) (let ((e-6 (car e-2))) (let ((e-7 (cdr e-2))) (case (vector-ref e-6 0) ((25) (if (null? e-3) (if (null? e-7) (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 (PreludeC-45TypesC-45String-C-43C-43 "invalid cast: + " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_Constant arg-2) (PreludeC-45TypesC-45String-C-43C-43 " + ' -> ' + " (CoreC-45TT-u--show_Show_Constant arg-1))))) eta-0)) (let ((e-9 (unbox e-7))) (if (null? e-3) (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 (PreludeC-45TypesC-45String-C-43C-43 "invalid cast: + " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_Constant arg-2) (PreludeC-45TypesC-45String-C-43C-43 " + ' -> ' + " (CoreC-45TT-u--show_Show_Constant arg-1))))) eta-0)) (let ((e-12 (car e-3))) (let ((e-13 (cdr e-3))) (case (vector-ref e-12 0) ((25) (let ((e-1 (vector-ref arg-3 1))) ((e-1 e-9) arg-0))) ((24) (let ((e-10 (vector-ref arg-3 3))) ((e-10 e-9) arg-0))) ((26) (let ((e-5 (vector-ref arg-3 5))) ((e-5 e-9) arg-0)))(else (if (null? e-13) (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 (PreludeC-45TypesC-45String-C-43C-43 "invalid cast: + " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_Constant arg-2) (PreludeC-45TypesC-45String-C-43C-43 " + ' -> ' + " (CoreC-45TT-u--show_Show_Constant arg-1))))) eta-0)) (let ((e-15 (unbox e-13))) (let ((e-8 (vector-ref arg-3 6))) (((e-8 e-9) e-15) arg-0))))))))))) (let ((e-19 (cdr e-3))) (if (null? e-19) (if (null? e-7) (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 (PreludeC-45TypesC-45String-C-43C-43 "invalid cast: + " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_Constant arg-2) (PreludeC-45TypesC-45String-C-43C-43 " + ' -> ' + " (CoreC-45TT-u--show_Show_Constant arg-1))))) eta-0)) (let ((e-9 (unbox e-7))) (if (null? e-3) (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 (PreludeC-45TypesC-45String-C-43C-43 "invalid cast: + " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_Constant arg-2) (PreludeC-45TypesC-45String-C-43C-43 " + ' -> ' + " (CoreC-45TT-u--show_Show_Constant arg-1))))) eta-0)) (let ((e-12 (car e-3))) (let ((e-13 (cdr e-3))) (case (vector-ref e-12 0) ((25) (let ((e-1 (vector-ref arg-3 1))) ((e-1 e-9) arg-0))) ((24) (let ((e-10 (vector-ref arg-3 3))) ((e-10 e-9) arg-0))) ((26) (let ((e-5 (vector-ref arg-3 5))) ((e-5 e-9) arg-0)))(else (if (null? e-13) (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 (PreludeC-45TypesC-45String-C-43C-43 "invalid cast: + " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_Constant arg-2) (PreludeC-45TypesC-45String-C-43C-43 " + ' -> ' + " (CoreC-45TT-u--show_Show_Constant arg-1))))) eta-0)) (let ((e-15 (unbox e-13))) (let ((e-8 (vector-ref arg-3 6))) (((e-8 e-9) e-15) arg-0))))))))))) (let ((e-21 (unbox e-19))) (let ((e-0 (vector-ref arg-3 0))) ((e-0 e-21) arg-0))))))) ((24) (if (null? e-3) (if (null? e-7) (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 (PreludeC-45TypesC-45String-C-43C-43 "invalid cast: + " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_Constant arg-2) (PreludeC-45TypesC-45String-C-43C-43 " + ' -> ' + " (CoreC-45TT-u--show_Show_Constant arg-1))))) eta-0)) (let ((e-9 (unbox e-7))) (if (null? e-3) (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 (PreludeC-45TypesC-45String-C-43C-43 "invalid cast: + " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_Constant arg-2) (PreludeC-45TypesC-45String-C-43C-43 " + ' -> ' + " (CoreC-45TT-u--show_Show_Constant arg-1))))) eta-0)) (let ((e-12 (car e-3))) (let ((e-13 (cdr e-3))) (case (vector-ref e-12 0) ((25) (let ((e-1 (vector-ref arg-3 1))) ((e-1 e-9) arg-0))) ((24) (let ((e-10 (vector-ref arg-3 3))) ((e-10 e-9) arg-0))) ((26) (let ((e-5 (vector-ref arg-3 5))) ((e-5 e-9) arg-0)))(else (if (null? e-13) (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 (PreludeC-45TypesC-45String-C-43C-43 "invalid cast: + " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_Constant arg-2) (PreludeC-45TypesC-45String-C-43C-43 " + ' -> ' + " (CoreC-45TT-u--show_Show_Constant arg-1))))) eta-0)) (let ((e-15 (unbox e-13))) (let ((e-8 (vector-ref arg-3 6))) (((e-8 e-9) e-15) arg-0))))))))))) (let ((e-25 (cdr e-3))) (if (null? e-25) (if (null? e-7) (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 (PreludeC-45TypesC-45String-C-43C-43 "invalid cast: + " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_Constant arg-2) (PreludeC-45TypesC-45String-C-43C-43 " + ' -> ' + " (CoreC-45TT-u--show_Show_Constant arg-1))))) eta-0)) (let ((e-9 (unbox e-7))) (if (null? e-3) (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 (PreludeC-45TypesC-45String-C-43C-43 "invalid cast: + " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_Constant arg-2) (PreludeC-45TypesC-45String-C-43C-43 " + ' -> ' + " (CoreC-45TT-u--show_Show_Constant arg-1))))) eta-0)) (let ((e-12 (car e-3))) (let ((e-13 (cdr e-3))) (case (vector-ref e-12 0) ((25) (let ((e-1 (vector-ref arg-3 1))) ((e-1 e-9) arg-0))) ((24) (let ((e-10 (vector-ref arg-3 3))) ((e-10 e-9) arg-0))) ((26) (let ((e-5 (vector-ref arg-3 5))) ((e-5 e-9) arg-0)))(else (if (null? e-13) (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 (PreludeC-45TypesC-45String-C-43C-43 "invalid cast: + " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_Constant arg-2) (PreludeC-45TypesC-45String-C-43C-43 " + ' -> ' + " (CoreC-45TT-u--show_Show_Constant arg-1))))) eta-0)) (let ((e-15 (unbox e-13))) (let ((e-8 (vector-ref arg-3 6))) (((e-8 e-9) e-15) arg-0))))))))))) (let ((e-27 (unbox e-25))) (let ((e-10 (vector-ref arg-3 2))) ((e-10 e-27) arg-0))))))) ((26) (if (null? e-3) (if (null? e-7) (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 (PreludeC-45TypesC-45String-C-43C-43 "invalid cast: + " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_Constant arg-2) (PreludeC-45TypesC-45String-C-43C-43 " + ' -> ' + " (CoreC-45TT-u--show_Show_Constant arg-1))))) eta-0)) (let ((e-9 (unbox e-7))) (if (null? e-3) (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 (PreludeC-45TypesC-45String-C-43C-43 "invalid cast: + " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_Constant arg-2) (PreludeC-45TypesC-45String-C-43C-43 " + ' -> ' + " (CoreC-45TT-u--show_Show_Constant arg-1))))) eta-0)) (let ((e-12 (car e-3))) (let ((e-13 (cdr e-3))) (case (vector-ref e-12 0) ((25) (let ((e-1 (vector-ref arg-3 1))) ((e-1 e-9) arg-0))) ((24) (let ((e-10 (vector-ref arg-3 3))) ((e-10 e-9) arg-0))) ((26) (let ((e-5 (vector-ref arg-3 5))) ((e-5 e-9) arg-0)))(else (if (null? e-13) (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 (PreludeC-45TypesC-45String-C-43C-43 "invalid cast: + " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_Constant arg-2) (PreludeC-45TypesC-45String-C-43C-43 " + ' -> ' + " (CoreC-45TT-u--show_Show_Constant arg-1))))) eta-0)) (let ((e-15 (unbox e-13))) (let ((e-8 (vector-ref arg-3 6))) (((e-8 e-9) e-15) arg-0))))))))))) (let ((e-31 (cdr e-3))) (if (null? e-31) (if (null? e-7) (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 (PreludeC-45TypesC-45String-C-43C-43 "invalid cast: + " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_Constant arg-2) (PreludeC-45TypesC-45String-C-43C-43 " + ' -> ' + " (CoreC-45TT-u--show_Show_Constant arg-1))))) eta-0)) (let ((e-9 (unbox e-7))) (if (null? e-3) (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 (PreludeC-45TypesC-45String-C-43C-43 "invalid cast: + " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_Constant arg-2) (PreludeC-45TypesC-45String-C-43C-43 " + ' -> ' + " (CoreC-45TT-u--show_Show_Constant arg-1))))) eta-0)) (let ((e-12 (car e-3))) (let ((e-13 (cdr e-3))) (case (vector-ref e-12 0) ((25) (let ((e-1 (vector-ref arg-3 1))) ((e-1 e-9) arg-0))) ((24) (let ((e-10 (vector-ref arg-3 3))) ((e-10 e-9) arg-0))) ((26) (let ((e-5 (vector-ref arg-3 5))) ((e-5 e-9) arg-0)))(else (if (null? e-13) (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 (PreludeC-45TypesC-45String-C-43C-43 "invalid cast: + " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_Constant arg-2) (PreludeC-45TypesC-45String-C-43C-43 " + ' -> ' + " (CoreC-45TT-u--show_Show_Constant arg-1))))) eta-0)) (let ((e-15 (unbox e-13))) (let ((e-8 (vector-ref arg-3 6))) (((e-8 e-9) e-15) arg-0))))))))))) (let ((e-33 (unbox e-31))) (let ((e-4 (vector-ref arg-3 4))) ((e-4 e-33) arg-0)))))))(else (if (null? e-7) (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 (PreludeC-45TypesC-45String-C-43C-43 "invalid cast: + " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_Constant arg-2) (PreludeC-45TypesC-45String-C-43C-43 " + ' -> ' + " (CoreC-45TT-u--show_Show_Constant arg-1))))) eta-0)) (let ((e-9 (unbox e-7))) (if (null? e-3) (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 (PreludeC-45TypesC-45String-C-43C-43 "invalid cast: + " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_Constant arg-2) (PreludeC-45TypesC-45String-C-43C-43 " + ' -> ' + " (CoreC-45TT-u--show_Show_Constant arg-1))))) eta-0)) (let ((e-12 (car e-3))) (let ((e-13 (cdr e-3))) (case (vector-ref e-12 0) ((25) (let ((e-1 (vector-ref arg-3 1))) ((e-1 e-9) arg-0))) ((24) (let ((e-10 (vector-ref arg-3 3))) ((e-10 e-9) arg-0))) ((26) (let ((e-5 (vector-ref arg-3 5))) ((e-5 e-9) arg-0)))(else (if (null? e-13) (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 (PreludeC-45TypesC-45String-C-43C-43 "invalid cast: + " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_Constant arg-2) (PreludeC-45TypesC-45String-C-43C-43 " + ' -> ' + " (CoreC-45TT-u--show_Show_Constant arg-1))))) eta-0)) (let ((e-15 (unbox e-13))) (let ((e-8 (vector-ref arg-3 6))) (((e-8 e-9) e-15) arg-0))))))))))))))))))))) +(define CompilerC-45Common-case--getExtraRuntimeC-44getArg-2931 (lambda (arg-0 arg-1 arg-2) (let ((e-2 (car arg-2))) (let ((e-3 (cdr arg-2))) (let ((sc1 (PreludeC-45EqOrd-u--C-61C-61_Eq_String (DataC-45String-trim e-2) "extraRuntime"))) (cond ((equal? sc1 1) (box (DataC-45String-trim (PreludeC-45Types-substr (+ 1 0) (PreludeC-45TypesC-45String-length e-3) e-3)))) (else '()))))))) +(define CompilerC-45Common-case--locate-2701 (lambda (arg-0 arg-1 arg-2) (if (null? arg-2) "" (let ((e-2 (car arg-2))) (let ((e-3 (cdr arg-2))) (if (null? e-3) (let ((sc2 (PreludeC-45Types-elem (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Char arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Char arg-4 arg-5)))) #\. (PreludeC-45Types-fastUnpack e-2)))) (cond ((equal? sc2 1) e-2) (else (PreludeC-45TypesC-45String-C-43C-43 e-2 (PreludeC-45TypesC-45String-C-43C-43 "." (CompilerC-45Common-dylib_suffix)))))) (let ((e-6 (car e-3))) (CoreC-45Core-cond (cons (cons (lambda () (PreludeC-45EqOrd-u--C-61C-61_Eq_String (CompilerC-45Common-dylib_suffix) "dll")) (lambda () (PreludeC-45TypesC-45String-C-43C-43 e-2 (PreludeC-45TypesC-45String-C-43C-43 "-" (PreludeC-45TypesC-45String-C-43C-43 e-6 ".dll"))))) (cons (cons (lambda () (PreludeC-45EqOrd-u--C-61C-61_Eq_String (CompilerC-45Common-dylib_suffix) "dylib")) (lambda () (PreludeC-45TypesC-45String-C-43C-43 e-2 (PreludeC-45TypesC-45String-C-43C-43 "." (PreludeC-45TypesC-45String-C-43C-43 e-6 ".dylib"))))) '())) (PreludeC-45TypesC-45String-C-43C-43 e-2 (PreludeC-45TypesC-45String-C-43C-43 "." (PreludeC-45TypesC-45String-C-43C-43 (CompilerC-45Common-dylib_suffix) (PreludeC-45TypesC-45String-C-43C-43 "." e-6)))))))))))) +(define CompilerC-45Common-case--caseC-32blockC-32inC-32parseCCC-44findTarget-2570 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((e-2 (car arg-6))) (let ((e-3 (cdr arg-6))) (cond ((equal? e-3 "") (box (cons (DataC-45String-trim e-2) '())))(else (box (cons (DataC-45String-trim e-2) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (DataC-45String-trim eta-0)) (CompilerC-45Common-n--9594-2450-u--getOpts arg-0 arg-1 arg-2 (DataC-45String-strTail e-3))))))))))) +(define CompilerC-45Common-case--parseCCC-44getOpts-2467 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((e-2 (car arg-4))) (let ((e-3 (cdr arg-4))) (cond ((equal? e-3 "") (cons e-2 '()))(else (cons e-2 (CompilerC-45Common-n--9594-2450-u--getOpts arg-0 arg-1 arg-2 (DataC-45String-strTail e-3))))))))) +(define CompilerC-45Common-case--caseC-32blockC-32inC-32getNamedDef-1081 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (if (null? arg-5) (vector 1 '()) (let ((e-2 (unbox arg-5))) (let ((act-24 (CompilerC-45Common-warnIfHole arg-0 e-2 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (vector 1 (box (cons arg-0 (cons (let ((e-0 (vector-ref arg-3 0))) e-0) e-2))))))))))) +(define CompilerC-45Common-n--7379-540-u--tag (lambda (arg-0 arg-1 arg-2) (cond ((equal? arg-2 0) 0) ((equal? arg-2 1) 1) ((equal? arg-2 2) 2) (else 3)))) +(define CompilerC-45Common-n--10116-2920-u--readPath (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 ((SystemC-45File-readFile (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-24 (arg-811 eta-0))) ((arg-812 act-24) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-51 (arg-814 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) arg-1) ext-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (case (vector-ref e-5 0) ((1) (let ((e-2 (vector-ref e-5 1))) (vector 1 e-2))) (else (let ((e-6 (vector-ref e-5 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 49 arg-1 e-6) ext-0)))))))))) +(define CompilerC-45Common-n--10116-2919-u--paths (lambda (arg-0) (DataC-45List-nub (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_String arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_String arg-4 arg-5)))) (DataC-45List-mapMaybe (lambda (eta-0) (CompilerC-45Common-n--10116-2918-u--getArg arg-0 eta-0)) (DataC-45List-reverse arg-0))))) +(define CompilerC-45Common-n--8604-1563-u--nonErased (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (let ((act-24 (unbox arg-3))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact arg-4 (let ((e-0 (vector-ref e-5 0))) e-0)) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (if (null? e-6) (vector 1 1) (let ((e-1 (unbox e-6))) (vector 1 (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega (let ((e-7 (vector-ref e-1 7))) e-7) (AlgebraC-45Semiring-erased (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))))))))))))))))) +(define CompilerC-45Common-n--9594-2451-u--hasTarget (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 (DataC-45String-span (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Char arg-5 #\:)) arg-4))) (let ((e-2 (car sc0))) (PreludeC-45EqOrd-u--C-61C-61_Eq_String e-2 arg-3))))) +(define CompilerC-45Common-n--9594-2450-u--getOpts (lambda (arg-0 arg-1 arg-2 arg-3) (cond ((equal? arg-3 "") '())(else (CompilerC-45Common-case--parseCCC-44getOpts-2467 arg-0 arg-1 arg-2 arg-3 (DataC-45String-span (lambda (arg-4) (PreludeC-45EqOrd-u--C-47C-61_Eq_Char arg-4 #\,)) arg-3)))))) +(define CompilerC-45Common-n--10116-2918-u--getArg (lambda (arg-0 arg-1) (CompilerC-45Common-case--getExtraRuntimeC-44getArg-2931 arg-0 arg-1 (DataC-45String-break (lambda (arg-2) (PreludeC-45EqOrd-u--C-61C-61_Eq_Char arg-2 #\=)) arg-1)))) +(define CompilerC-45Common-n--8520-1484-u--fullShow (lambda (arg-0 arg-1 arg-2) (case (vector-ref arg-2 0) ((4) (let ((e-1 (vector-ref arg-2 2))) (CoreC-45Name-u--show_Show_Name e-1)))(else (CoreC-45Name-u--show_Show_Name arg-2))))) +(define CompilerC-45Common-n--8436-1405-u--fullShow (lambda (arg-0 arg-1 arg-2) (case (vector-ref arg-2 0) ((4) (let ((e-1 (vector-ref arg-2 2))) (CoreC-45Name-u--show_Show_Name e-1)))(else (CoreC-45Name-u--show_Show_Name arg-2))))) +(define CompilerC-45Common-n--8352-1326-u--fullShow (lambda (arg-0 arg-1 arg-2) (case (vector-ref arg-2 0) ((4) (let ((e-1 (vector-ref arg-2 2))) (CoreC-45Name-u--show_Show_Name e-1)))(else (CoreC-45Name-u--show_Show_Name arg-2))))) +(define CompilerC-45Common-n--8185-1175-u--fullShow (lambda (arg-0 arg-1 arg-2 arg-3) (case (vector-ref arg-3 0) ((4) (let ((e-1 (vector-ref arg-3 2))) (CoreC-45Name-u--show_Show_Name e-1)))(else (CoreC-45Name-u--show_Show_Name arg-3))))) +(define CompilerC-45Common-n--9594-2452-u--findTarget (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (if (null? arg-4) '() (let ((e-2 (car arg-4))) (let ((e-3 (cdr arg-4))) (let ((sc1 (CompilerC-45Common-n--9594-2451-u--hasTarget arg-0 arg-1 arg-2 arg-3 e-2))) (cond ((equal? sc1 1) (CompilerC-45Common-case--caseC-32blockC-32inC-32parseCCC-44findTarget-2570 arg-0 arg-1 arg-2 e-2 e-3 arg-3 (DataC-45String-span (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Char arg-5 #\:)) e-2))) (else (CompilerC-45Common-n--9594-2452-u--findTarget arg-0 arg-1 arg-2 arg-3 e-3))))))))) +(define CompilerC-45Common-n--8520-1485-u--dumpDef (lambda (arg-0 arg-1 arg-2) (let ((e-2 (car arg-2))) (let ((e-3 (cdr arg-2))) (PreludeC-45TypesC-45String-C-43C-43 (CompilerC-45Common-n--8520-1484-u--fullShow arg-0 arg-1 e-2) (PreludeC-45TypesC-45String-C-43C-43 " = " (PreludeC-45TypesC-45String-C-43C-43 (CompilerC-45VMCode-u--show_Show_VMDef e-3) "\u000a"))))))) +(define CompilerC-45Common-n--8436-1406-u--dumpDef (lambda (arg-0 arg-1 arg-2) (let ((e-2 (car arg-2))) (let ((e-3 (cdr arg-2))) (PreludeC-45TypesC-45String-C-43C-43 (CompilerC-45Common-n--8436-1405-u--fullShow arg-0 arg-1 e-2) (PreludeC-45TypesC-45String-C-43C-43 " = " (PreludeC-45TypesC-45String-C-43C-43 (CompilerC-45ANF-u--show_Show_ANFDef e-3) "\u000a"))))))) +(define CompilerC-45Common-n--8352-1327-u--dumpDef (lambda (arg-0 arg-1 arg-2) (let ((e-2 (car arg-2))) (let ((e-3 (cdr arg-2))) (PreludeC-45TypesC-45String-C-43C-43 (CompilerC-45Common-n--8352-1326-u--fullShow arg-0 arg-1 e-2) (PreludeC-45TypesC-45String-C-43C-43 " = " (PreludeC-45TypesC-45String-C-43C-43 (CompilerC-45LambdaLift-u--show_Show_LiftedDef e-3) "\u000a"))))))) +(define CompilerC-45Common-n--8185-1176-u--dumpCase (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 ((CoreC-45Context-lookupCtxtExact arg-3 (let ((e-0 (vector-ref arg-2 0))) e-0)) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (if (null? e-5) (vector 1 "") (let ((e-2 (unbox e-5))) (let ((e-19 (vector-ref e-2 19))) (if (null? e-19) (vector 1 "") (let ((e-23 (unbox e-19))) (vector 1 (PreludeC-45TypesC-45String-C-43C-43 (CompilerC-45Common-n--8185-1175-u--fullShow arg-0 arg-1 arg-2 arg-3) (PreludeC-45TypesC-45String-C-43C-43 " = " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45CompileExpr-u--show_Show_NamedDef e-23) "\u000a"))))))))))))))) +(define CompilerC-45Common-u--compare_Ord_UsePhase (lambda (arg-0 arg-1) (PreludeC-45EqOrd-u--compare_Ord_Int (CompilerC-45Common-n--7379-540-u--tag arg-1 arg-0 arg-0) (CompilerC-45Common-n--7379-540-u--tag arg-1 arg-0 arg-1)))) +(define CompilerC-45Common-u--C-62C-61_Ord_UsePhase (lambda (arg-0 arg-1) (PreludeC-45EqOrd-u--C-47C-61_Eq_Ordering (CompilerC-45Common-u--compare_Ord_UsePhase arg-0 arg-1) 0))) +(define CompilerC-45Common-warnIfHole (lambda (arg-0 arg-1 ext-0) (case (vector-ref arg-1 0) ((3) (let ((act-24 ((PreludeC-45IO-putStrLn (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-24 (arg-811 eta-0))) ((arg-812 act-24) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-51 (arg-814 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) (PreludeC-45TypesC-45String-C-43C-43 "Warning: compiling hole " (CoreC-45Name-u--show_Show_Name arg-0))) ext-0))) (vector 1 act-24)))(else (vector 1 0))))) +(define CompilerC-45Common-replaceEntry (lambda (arg-0 arg-1) (let ((e-2 (car arg-1))) (let ((e-3 (cdr arg-1))) (lambda (clam-0) (if (null? e-3) (vector 1 0) (let ((e-6 (unbox e-3))) (let ((e-9 (car e-6))) (let ((e-10 (cdr e-6))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-4 (vector-ref eta-0 1))) (vector 0 e-4))) (else (vector 1 0)))) (lambda (eta-0) (CoreC-45Context-addContextEntry arg-0 e-9 (vector 9 e-2) e-10 eta-0)) clam-0)))))))))) +(define CompilerC-45Common-pathLookup (lambda (arg-0 ext-0) (let ((act-24 ((IdrisC-45Env-idrisGetEnv (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-24 (arg-811 eta-0))) ((arg-812 act-24) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-51 (arg-814 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) "PATH" 0) ext-0))) (let ((u--extensions (let ((sc0 (SystemC-45Info-isWindows))) (cond ((equal? sc0 1) (cons ".exe" (cons ".cmd" (cons ".bat" (cons "" '()))))) (else (cons "" '())))))) (let ((u--pathList (DataC-45List1-forget (DataC-45String-split (lambda (arg-1) (PreludeC-45EqOrd-u--C-61C-61_Eq_Char arg-1 (LibrariesC-45UtilsC-45Path-pathSeparator))) (DataC-45Maybe-fromMaybe (lambda () "/usr/bin:/usr/local/bin") act-24))))) (let ((u--candidates (PreludeC-45Types-u--C-62C-62C-61_Monad_List u--pathList (lambda (u--p) (PreludeC-45Types-u--C-62C-62C-61_Monad_List arg-0 (lambda (u--x) (PreludeC-45Types-u--C-62C-62C-61_Monad_List u--extensions (lambda (u--y) (PreludeC-45Types-u--pure_Applicative_List (PreludeC-45TypesC-45String-C-43C-43 u--p (PreludeC-45TypesC-45String-C-43C-43 "/" (PreludeC-45TypesC-45String-C-43C-43 u--x u--y)))))))))))) ((SystemC-45File-firstExists (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-25 (arg-811 eta-0))) ((arg-812 act-25) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-51 (arg-814 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) u--candidates) ext-0))))))) +(define CompilerC-45Common-parseCC (lambda (arg-0 arg-1) (if (null? arg-0) '() (let ((e-2 (car arg-0))) (let ((e-3 (cdr arg-0))) (PreludeC-45Types-u--C-60C-124C-62_Alternative_Maybe (CompilerC-45Common-n--9594-2452-u--findTarget e-2 e-3 arg-1 e-2 arg-1) (lambda () (CompilerC-45Common-parseCC e-3 arg-1)))))))) +(define CompilerC-45Common-natHackNames (lambda () (cons (vector 1 "prim__add_Integer") (cons (vector 1 "prim__sub_Integer") (cons (vector 1 "prim__mul_Integer") (cons (vector 0 (CoreC-45NameC-45Namespace-typesNS) (vector 1 "prim__integerToNat")) '())))))) +(define CompilerC-45Common-locate (lambda (arg-0 arg-1) (let ((u--fname (CompilerC-45Common-case--locate-2701 arg-1 arg-0 (DataC-45String-words arg-1)))) (lambda (eta-0) (let ((act-24 (CoreC-45Core-u--catch_Catchable_Core_Error (lambda (eta-1) (CoreC-45Directory-findLibraryFile arg-0 u--fname eta-1)) (lambda (u--err) (lambda (eta-1) (vector 1 u--fname))) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (cons u--fname e-5)))))))))) +(define CompilerC-45Common-getNamedDef (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact arg-1 (let ((e-0 (vector-ref e-5 0))) e-0)) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (if (null? e-6) (vector 1 '()) (let ((e-2 (unbox e-6))) (let ((bind-0 (box e-2))) (CompilerC-45Common-case--caseC-32blockC-32inC-32getNamedDef-1081 arg-1 arg-0 e-5 e-2 bind-0 (let ((e-19 (vector-ref e-2 19))) e-19) ext-0)))))))))))))) +(define CompilerC-45Common-getMinimalDef (lambda (arg-0 ext-0) (case (vector-ref arg-0 0) ((1) (let ((e-0 (vector-ref arg-0 1))) (vector 1 (cons e-0 '())))) (else (let ((e-1 (vector-ref arg-0 1))) (let ((e-2 (vector-ref arg-0 2))) (let ((act-24 (CoreC-45Core-newRef (vector "Libraries.Utils.Binary.Bin" ) e-2 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_CDef arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_CDef arg-1461 eta-0)))) e-5 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-3 (vector-ref act-25 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1461) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_Name arg-1458 arg-1461 eta-2)))) (lambda (arg-1461) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1461 eta-2)))) (cons (lambda (arg-1458) (lambda (arg-1461) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Bool arg-1458 arg-1461 eta-2)))) (lambda (arg-1461) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Bool arg-1461 eta-2))))) arg-1457 arg-1460 eta-1)))) (lambda (arg-1461) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_Name arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1462 eta-2)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Bool arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Bool arg-1462 eta-2))))) arg-1461 eta-1)))) arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_Name arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1462 eta-2)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Bool arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Bool arg-1462 eta-2))))) arg-1456 arg-1459 eta-1)))) (lambda (arg-1462) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_Name arg-1456 arg-1459 eta-2)))) (lambda (arg-1463) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1463 eta-2)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Bool arg-1456 arg-1459 eta-2)))) (lambda (arg-1463) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Bool arg-1463 eta-2))))) arg-1462 eta-1)))) arg-1461 eta-0)))) e-5 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-3 (vector-ref act-26 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref act-26 1))) (let ((u--refsR (PreludeC-45Types-u--map_Functor_Maybe (lambda (eta-0) (LibrariesC-45DataC-45NameMap-fromList eta-0)) e-7))) (let ((act-27 (CoreC-45TTC-u--fromBuf_TTC_FC e-5 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-3 (vector-ref act-27 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref act-27 1))) (let ((act-28 (CoreC-45TTC-u--fromBuf_TTC_RigCount e-5 ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-3 (vector-ref act-28 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref act-28 1))) (let ((act-29 (CoreC-45TTC-u--fromBuf_TTC_Name e-5 ext-0))) (case (vector-ref act-29 0) ((0) (let ((e-3 (vector-ref act-29 1))) (vector 0 e-3))) (else (let ((e-10 (vector-ref act-29 1))) (let ((u--def (vector e-8 e-10 (vector 10 e-8 0) '() '() '() '() e-9 '() 2 (cons (vector 0 ) (vector 0 )) '() '() u--refsR 0 0 1 (vector 0 ) e-6 '() '()))) (vector 1 (cons u--def (box (cons e-1 e-2)))))))))))))))))))))))))))))))))))) +(define CompilerC-45Common-getExtraRuntime (lambda (arg-0 ext-0) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (CompilerC-45Common-n--10116-2920-u--readPath arg-0 eta-0 eta-1))) (CompilerC-45Common-n--10116-2919-u--paths arg-0) '() ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (PreludeC-45Interfaces-concat (cons (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_String arg-2 arg-3))) (PreludeC-45Types-u--neutral_Monoid_String))) (DataC-45List-intersperse "\u000a" e-5))))))))) +(define CompilerC-45Common-getCompileData (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-getSession arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((u--ns (CoreC-45TT-getRefs (vector 9 -1) arg-3))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-0))))) arg-3 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (CoreC-45Context-toResolvedNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-2) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-2)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-2) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-2))))) eta-0 eta-1))) (CompilerC-45Common-natHackNames) '() ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (let ((act-28 (CoreC-45Context-getNextEntry arg-0 ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-28 1))) (let ((act-29 (let ((act-29 ((DataC-45IOArray-newArray (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-29 (arg-811 eta-0))) ((arg-812 act-29) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-51 (arg-814 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) e-9) ext-0))) (vector 1 act-29)))) (case (vector-ref act-29 0) ((0) (let ((e-2 (vector-ref act-29 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref act-29 1))) (let ((act-30 (CoreC-45ContextC-45Log-logTime arg-0 (lambda () "++ Get names") (CompilerC-45Common-getAllDesc arg-0 (PreludeC-45TypesC-45List-C-43C-43 e-8 (LibrariesC-45DataC-45NameMap-keys u--ns)) e-10 e-5) ext-0))) (case (vector-ref act-30 0) ((0) (let ((e-2 (vector-ref act-30 1))) (vector 0 e-2))) (else (let ((act-31 (let ((act-31 ((DataC-45IOArray-toList (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-31 (arg-811 eta-0))) ((arg-812 act-31) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-51 (arg-814 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) e-10) ext-0))) (vector 1 act-31)))) (case (vector-ref act-31 0) ((0) (let ((e-2 (vector-ref act-31 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref act-31 1))) (let ((u--entries (DataC-45List-mapMaybe (lambda (eta-0) eta-0) e-12))) (let ((u--allNs (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (vector 9 (Builtin-fst eta-0))) u--entries))) (let ((act-32 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-2) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-2)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-2) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-2))))) eta-0 eta-1))) u--allNs '() ext-0))) (case (vector-ref act-32 0) ((0) (let ((e-2 (vector-ref act-32 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref act-32 1))) (let ((act-33 (CoreC-45Core-filterM (lambda (eta-0) (lambda (eta-1) (CompilerC-45Common-n--8604-1563-u--nonErased arg-3 arg-2 arg-1 arg-0 eta-0 eta-1))) e-13 ext-0))) (case (vector-ref act-33 0) ((0) (let ((e-2 (vector-ref act-33 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref act-33 1))) (let ((act-34 (CoreC-45ContextC-45Log-logTime arg-0 (lambda () "++ Merge lambda") (lambda (eta-0) (CoreC-45Core-traverse_ (lambda (eta-1) (lambda (eta-2) (CompilerC-45Inline-mergeLamDef arg-0 eta-1 eta-2))) e-14 eta-0)) ext-0))) (case (vector-ref act-34 0) ((0) (let ((e-2 (vector-ref act-34 1))) (vector 0 e-2))) (else (let ((act-35 (CoreC-45ContextC-45Log-logTime arg-0 (lambda () "++ Fix arity") (lambda (eta-0) (CoreC-45Core-traverse_ (lambda (eta-1) (lambda (eta-2) (CompilerC-45Inline-fixArityDef arg-0 eta-1 eta-2))) e-14 eta-0)) ext-0))) (case (vector-ref act-35 0) ((0) (let ((e-2 (vector-ref act-35 1))) (vector 0 e-2))) (else (let ((act-36 (CoreC-45ContextC-45Log-logTime arg-0 (lambda () "++ Forget names") (lambda (eta-0) (CoreC-45Core-traverse_ (lambda (eta-1) (lambda (eta-2) (CompilerC-45CompileExpr-mkForgetDef arg-0 eta-1 eta-2))) e-14 eta-0)) ext-0))) (case (vector-ref act-36 0) ((0) (let ((e-2 (vector-ref act-36 1))) (vector 0 e-2))) (else (let ((act-37 (let ((act-37 (CompilerC-45CompileExpr-compileExp arg-0 e-7 ext-0))) (case (vector-ref act-37 0) ((0) (let ((e-2 (vector-ref act-37 1))) (vector 0 e-2))) (else (let ((e-18 (vector-ref act-37 1))) ((CompilerC-45Inline-fixArityExp '() arg-0 e-18) ext-0))))))) (case (vector-ref act-37 0) ((0) (let ((e-2 (vector-ref act-37 1))) (vector 0 e-2))) (else (let ((e-18 (vector-ref act-37 1))) (let ((u--mainname (vector 2 "__mainExpression" 0))) (let ((act-38 (CompilerC-45LambdaLift-liftBody '() arg-1 u--mainname e-18 ext-0))) (case (vector-ref act-38 0) ((0) (let ((e-2 (vector-ref act-38 1))) (vector 0 e-2))) (else (let ((e-19 (vector-ref act-38 1))) (let ((e-2 (car e-19))) (let ((e-3 (cdr e-19))) (let ((act-39 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (CompilerC-45Common-getNamedDef arg-0 eta-0 eta-1))) e-14 '() ext-0))) (case (vector-ref act-39 0) ((0) (let ((e-4 (vector-ref act-39 1))) (vector 0 e-4))) (else (let ((e-20 (vector-ref act-39 1))) (let ((act-40 (let ((sc17 (CompilerC-45Common-u--C-62C-61_Ord_UsePhase arg-2 1))) (cond ((equal? sc17 1) (CoreC-45ContextC-45Log-logTime arg-0 (lambda () "++ Lambda lift") (lambda (eta-0) (CoreC-45Core-traverseC-39 (lambda (eta-1) (lambda (eta-2) (CompilerC-45LambdaLift-lambdaLift arg-0 arg-1 eta-1 eta-2))) e-14 '() eta-0)) ext-0)) (else (vector 1 '())))))) (case (vector-ref act-40 0) ((0) (let ((e-4 (vector-ref act-40 1))) (vector 0 e-4))) (else (let ((e-21 (vector-ref act-40 1))) (let ((u--lifted (cons (cons u--mainname (vector 0 '() '() e-2)) (PreludeC-45TypesC-45List-C-43C-43 e-3 (PreludeC-45Interfaces-concat (cons (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (cons (lambda (arg-4) (lambda (arg-5) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-4 arg-5))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) e-21))))) (let ((act-41 (let ((sc18 (CompilerC-45Common-u--C-62C-61_Ord_UsePhase arg-2 2))) (cond ((equal? sc18 1) (CoreC-45ContextC-45Log-logTime arg-0 (lambda () "++ Get ANF") (lambda (eta-0) (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-0) (let ((e-22 (car lamc-0))) (let ((e-4 (cdr lamc-0))) (let ((act-41 (CompilerC-45ANF-toANF e-4 clam-0))) (case (vector-ref act-41 0) ((0) (let ((e-23 (vector-ref act-41 1))) (vector 0 e-23))) (else (let ((e-23 (vector-ref act-41 1))) (vector 1 (cons e-22 e-23)))))))))) u--lifted '() eta-0)) ext-0)) (else (vector 1 '())))))) (case (vector-ref act-41 0) ((0) (let ((e-4 (vector-ref act-41 1))) (vector 0 e-4))) (else (let ((e-22 (vector-ref act-41 1))) (let ((act-42 (let ((sc19 (CompilerC-45Common-u--C-62C-61_Ord_UsePhase arg-2 3))) (cond ((equal? sc19 1) (CoreC-45ContextC-45Log-logTime arg-0 (lambda () "++ Get VM Code") (lambda (eta-0) (vector 1 (CompilerC-45VMCode-allDefs e-22))) ext-0)) (else (vector 1 '())))))) (case (vector-ref act-42 0) ((0) (let ((e-4 (vector-ref act-42 1))) (vector 0 e-4))) (else (let ((e-23 (vector-ref act-42 1))) (let ((act-43 (let ((act-43 (unbox arg-0))) (vector 1 act-43)))) (case (vector-ref act-43 0) ((0) (let ((e-4 (vector-ref act-43 1))) (vector 0 e-4))) (else (let ((e-24 (vector-ref act-43 1))) (let ((act-44 ((PreludeC-45Types-maybe (lambda () (lambda (eta-0) (vector 1 0))) (lambda () (lambda (u--f) (lambda (eta-0) (let ((act-44 (let ((act-44 ((PreludeC-45IO-putStrLn (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-1)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-1) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-1) (let ((act-17 (arg-528 eta-1))) (let ((act-16 (arg-530 eta-1))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-1) (let ((act-44 (arg-811 eta-1))) ((arg-812 act-44) eta-1))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-1) (let ((act-51 (arg-814 eta-1))) (act-51 eta-1)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) (PreludeC-45TypesC-45String-C-43C-43 "Dumping case trees to " u--f)) eta-0))) (vector 1 act-44)))) (case (vector-ref act-44 0) ((0) (let ((e-4 (vector-ref act-44 1))) (vector 0 e-4))) (else (CompilerC-45Common-dumpCases e-24 u--f e-14 eta-0))))))) (let ((e-33 (vector-ref e-6 10))) e-33)) ext-0))) (case (vector-ref act-44 0) ((0) (let ((e-4 (vector-ref act-44 1))) (vector 0 e-4))) (else (let ((act-45 ((PreludeC-45Types-maybe (lambda () (lambda (eta-0) (vector 1 0))) (lambda () (lambda (u--f) (lambda (eta-0) (let ((act-45 (let ((act-45 ((PreludeC-45IO-putStrLn (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-1)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-1) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-1) (let ((act-17 (arg-528 eta-1))) (let ((act-16 (arg-530 eta-1))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-1) (let ((act-45 (arg-811 eta-1))) ((arg-812 act-45) eta-1))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-1) (let ((act-51 (arg-814 eta-1))) (act-51 eta-1)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) (PreludeC-45TypesC-45String-C-43C-43 "Dumping lambda lifted defs to " u--f)) eta-0))) (vector 1 act-45)))) (case (vector-ref act-45 0) ((0) (let ((e-4 (vector-ref act-45 1))) (vector 0 e-4))) (else ((CompilerC-45Common-dumpLifted u--f u--lifted) eta-0))))))) (let ((e-33 (vector-ref e-6 11))) e-33)) ext-0))) (case (vector-ref act-45 0) ((0) (let ((e-4 (vector-ref act-45 1))) (vector 0 e-4))) (else (let ((act-46 ((PreludeC-45Types-maybe (lambda () (lambda (eta-0) (vector 1 0))) (lambda () (lambda (u--f) (lambda (eta-0) (let ((act-46 (let ((act-46 ((PreludeC-45IO-putStrLn (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-1)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-1) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-1) (let ((act-17 (arg-528 eta-1))) (let ((act-16 (arg-530 eta-1))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-1) (let ((act-46 (arg-811 eta-1))) ((arg-812 act-46) eta-1))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-1) (let ((act-51 (arg-814 eta-1))) (act-51 eta-1)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) (PreludeC-45TypesC-45String-C-43C-43 "Dumping ANF defs to " u--f)) eta-0))) (vector 1 act-46)))) (case (vector-ref act-46 0) ((0) (let ((e-4 (vector-ref act-46 1))) (vector 0 e-4))) (else ((CompilerC-45Common-dumpANF u--f e-22) eta-0))))))) (let ((e-33 (vector-ref e-6 12))) e-33)) ext-0))) (case (vector-ref act-46 0) ((0) (let ((e-4 (vector-ref act-46 1))) (vector 0 e-4))) (else (let ((act-47 ((PreludeC-45Types-maybe (lambda () (lambda (eta-0) (vector 1 0))) (lambda () (lambda (u--f) (lambda (eta-0) (let ((act-47 (let ((act-47 ((PreludeC-45IO-putStrLn (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-1)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-1) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-1) (let ((act-17 (arg-528 eta-1))) (let ((act-16 (arg-530 eta-1))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-1) (let ((act-47 (arg-811 eta-1))) ((arg-812 act-47) eta-1))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-1) (let ((act-51 (arg-814 eta-1))) (act-51 eta-1)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) (PreludeC-45TypesC-45String-C-43C-43 "Dumping VM defs to " u--f)) eta-0))) (vector 1 act-47)))) (case (vector-ref act-47 0) ((0) (let ((e-4 (vector-ref act-47 1))) (vector 0 e-4))) (else ((CompilerC-45Common-dumpVMCode u--f e-23) eta-0))))))) (let ((e-33 (vector-ref e-6 13))) e-33)) ext-0))) (case (vector-ref act-47 0) ((0) (let ((e-4 (vector-ref act-47 1))) (vector 0 e-4))) (else (let ((act-48 (CoreC-45Core-traverse_ (lambda (eta-0) (CompilerC-45Common-replaceEntry arg-0 eta-0)) u--entries ext-0))) (case (vector-ref act-48 0) ((0) (let ((e-4 (vector-ref act-48 1))) (vector 0 e-4))) (else (vector 1 (vector e-18 (DataC-45List-mapMaybe (lambda (eta-0) eta-0) e-20) u--lifted e-22 e-23)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) +(define CompilerC-45Common-getAllDesc (lambda (arg-0 arg-1 arg-2 arg-3) (if (null? arg-1) (lambda (eta-0) (vector 1 0)) (let ((e-2 (car arg-1))) (let ((e-3 (cdr arg-1))) (case (vector-ref e-2 0) ((9) (let ((e-4 (vector-ref e-2 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((DataC-45IOArray-readArray (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-1)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-1) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-1) (let ((act-17 (arg-528 eta-1))) (let ((act-16 (arg-530 eta-1))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-1) (let ((act-24 (arg-811 eta-1))) ((arg-812 act-24) eta-1))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-1) (let ((act-51 (arg-814 eta-1))) (act-51 eta-1)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) arg-2 e-4) eta-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((u--n (vector 9 e-4))) (if (null? e-5) (let ((act-25 ((CoreC-45Context-lookupContextEntry u--n (let ((e-0 (vector-ref arg-3 0))) e-0)) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-6 (vector-ref act-25 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-25 1))) (if (null? e-6) ((CompilerC-45Common-getAllDesc arg-0 e-3 arg-2 arg-3) eta-0) (let ((e-7 (unbox e-6))) (let ((e-8 (cdr e-7))) (let ((act-26 (CompilerC-45Common-getMinimalDef e-8 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-10 (vector-ref act-26 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-26 1))) (let ((e-12 (car e-10))) (let ((e-11 (cdr e-10))) (let ((act-27 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (case (vector-ref eta-1 0) ((0) (let ((e-13 (vector-ref eta-1 1))) (vector 0 e-13))) (else (vector 1 0)))) (lambda (eta-1) (CoreC-45Context-addDef arg-0 u--n e-12 eta-1)) eta-0))) (case (vector-ref act-27 0) ((0) (let ((e-13 (vector-ref act-27 1))) (vector 0 e-13))) (else (let ((sc10 (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega (let ((e-27 (vector-ref e-12 7))) e-27) (AlgebraC-45Semiring-erased (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)))))) (cond ((equal? sc10 1) (let ((act-28 (let ((act-28 ((DataC-45IOArray-writeArray (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-1)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-1) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-1) (let ((act-17 (arg-528 eta-1))) (let ((act-16 (arg-530 eta-1))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-1) (let ((act-28 (arg-811 eta-1))) ((arg-812 act-28) eta-1))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-1) (let ((act-51 (arg-814 eta-1))) (act-51 eta-1)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) arg-2 e-4 (cons e-4 e-11)) eta-0))) (vector 1 act-28)))) (case (vector-ref act-28 0) ((0) (let ((e-14 (vector-ref act-28 1))) (vector 0 e-14))) (else (let ((u--refs (CoreC-45Context-refersToRuntime e-12))) (let ((act-29 (CoreC-45Core-traverseC-39 (lambda (eta-1) (lambda (eta-2) (CoreC-45Context-toResolvedNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-3) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-3)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-3) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-3))))) eta-1 eta-2))) (LibrariesC-45DataC-45NameMap-keys u--refs) '() eta-0))) (case (vector-ref act-29 0) ((0) (let ((e-15 (vector-ref act-29 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref act-29 1))) ((CompilerC-45Common-getAllDesc arg-0 (PreludeC-45TypesC-45List-C-43C-43 e-15 e-3) arg-2 arg-3) eta-0)))))))))) (else ((CompilerC-45Common-getAllDesc arg-0 e-3 arg-2 arg-3) eta-0)))))))))))))))))))) ((CompilerC-45Common-getAllDesc arg-0 e-3 arg-2 arg-3) eta-0))))))))))(else (CompilerC-45Common-getAllDesc arg-0 e-3 arg-2 arg-3)))))))) +(define CompilerC-45Common-exists (lambda (arg-0 ext-0) (let ((act-24 ((SystemC-45File-openFile (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-24 (arg-811 eta-0))) ((arg-812 act-24) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-51 (arg-814 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) arg-0 0) ext-0))) (case (vector-ref act-24 0) ((1) (let ((e-2 (vector-ref act-24 1))) ((PreludeC-45Interfaces-C-62C-62 (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-25 (arg-811 eta-0))) ((arg-812 act-25) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-29 (arg-814 eta-0))) (act-29 eta-0)))))) (SystemC-45File-closeFile (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-25 (arg-811 eta-0))) ((arg-812 act-25) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-51 (arg-814 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) e-2) (lambda () (lambda (eta-0) 1))) ext-0))) (else 0))))) +(define CompilerC-45Common-execute (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (CoreC-45Context-getDirs arg-0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((u--tmpDir (CoreC-45Options-execBuildDir e-5))) (let ((act-25 (CoreC-45Directory-ensureDirectoryExists u--tmpDir ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 (let ((e-1 (cdr arg-1))) ((((e-1 arg-0) u--tmpDir) arg-2) ext-0)))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (vector 1 0)))))))))))))) +(define CompilerC-45Common-dylib_suffix (lambda () (CoreC-45Core-cond (cons (cons (lambda () (PreludeC-45Types-elem (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_String arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_String arg-4 arg-5)))) (SystemC-45Info-os) (cons "windows" (cons "mingw32" (cons "cygwin32" '()))))) (lambda () "dll")) (cons (cons (lambda () (PreludeC-45EqOrd-u--C-61C-61_Eq_String (SystemC-45Info-os) "darwin")) (lambda () "dylib")) '())) "so"))) +(define CompilerC-45Common-dumpVMCode (lambda (arg-0 arg-1) (let ((u--cstrs (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CompilerC-45Common-n--8520-1485-u--dumpDef arg-1 arg-0 eta-0)) arg-1))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((SystemC-45File-writeFile (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-1)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-1) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-1) (let ((act-17 (arg-528 eta-1))) (let ((act-16 (arg-530 eta-1))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-1) (let ((act-24 (arg-811 eta-1))) ((arg-812 act-24) eta-1))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-1) (let ((act-51 (arg-814 eta-1))) (act-51 eta-1)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) arg-0 (DataC-45String-fastAppend u--cstrs)) eta-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (case (vector-ref e-5 0) ((1) (let ((e-2 (vector-ref e-5 1))) (cond (else (vector 1 0))))) (else (let ((e-6 (vector-ref e-5 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 49 arg-0 e-6) eta-0)))))))))))) +(define CompilerC-45Common-dumpLifted (lambda (arg-0 arg-1) (let ((u--cstrs (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CompilerC-45Common-n--8352-1327-u--dumpDef arg-1 arg-0 eta-0)) arg-1))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((SystemC-45File-writeFile (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-1)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-1) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-1) (let ((act-17 (arg-528 eta-1))) (let ((act-16 (arg-530 eta-1))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-1) (let ((act-24 (arg-811 eta-1))) ((arg-812 act-24) eta-1))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-1) (let ((act-51 (arg-814 eta-1))) (act-51 eta-1)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) arg-0 (DataC-45String-fastAppend u--cstrs)) eta-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (case (vector-ref e-5 0) ((1) (let ((e-2 (vector-ref e-5 1))) (cond (else (vector 1 0))))) (else (let ((e-6 (vector-ref e-5 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 49 arg-0 e-6) eta-0)))))))))))) +(define CompilerC-45Common-dumpCases (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (CompilerC-45Common-n--8185-1176-u--dumpCase arg-2 arg-1 arg-0 eta-0 eta-1))) arg-2 '() ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (let ((act-25 ((SystemC-45File-writeFile (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-25 (arg-811 eta-0))) ((arg-812 act-25) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-51 (arg-814 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) arg-1 (DataC-45String-fastAppend e-5)) ext-0))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (case (vector-ref e-6 0) ((1) (let ((e-2 (vector-ref e-6 1))) (cond (else (vector 1 0))))) (else (let ((e-7 (vector-ref e-6 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 49 arg-1 e-7) ext-0)))))))))))))) +(define CompilerC-45Common-dumpANF (lambda (arg-0 arg-1) (let ((u--cstrs (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CompilerC-45Common-n--8436-1406-u--dumpDef arg-1 arg-0 eta-0)) arg-1))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((SystemC-45File-writeFile (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-1)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-1) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-1) (let ((act-17 (arg-528 eta-1))) (let ((act-16 (arg-530 eta-1))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-1) (let ((act-24 (arg-811 eta-1))) ((arg-812 act-24) eta-1))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-1) (let ((act-51 (arg-814 eta-1))) (act-51 eta-1)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) arg-0 (DataC-45String-fastAppend u--cstrs)) eta-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (case (vector-ref e-5 0) ((1) (let ((e-2 (vector-ref e-5 1))) (cond (else (vector 1 0))))) (else (let ((e-6 (vector-ref e-5 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 49 arg-0 e-6) eta-0)))))))))))) +(define CompilerC-45Common-copyLib (lambda (arg-0 ext-0) (let ((e-2 (car arg-0))) (let ((e-3 (cdr arg-0))) (let ((sc1 (PreludeC-45EqOrd-u--C-61C-61_Eq_String e-2 e-3))) (cond ((equal? sc1 1) (vector 1 0)) (else (let ((act-24 (let ((act-24 (LibrariesC-45UtilsC-45Binary-readFromFile e-3 ext-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (case (vector-ref e-5 0) ((1) (let ((e-4 (vector-ref e-5 1))) (let ((act-25 (let ((act-25 ((LibrariesC-45UtilsC-45Binary-writeToFile e-2 e-4) ext-0))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-6 (vector-ref act-25 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-25 1))) (case (vector-ref e-6 0) ((1) (vector 1 0)) (else (let ((e-7 (vector-ref e-6 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 49 e-2 e-7) ext-0)))))))))) (else (vector 1 0)))))))))))))) +(define CompilerC-45Common-compile (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (CoreC-45Context-getDirs arg-0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((u--tmpDir (CoreC-45Options-execBuildDir e-5))) (let ((u--outputDir (CoreC-45Options-outputDirWithDefault e-5))) (let ((act-25 (CoreC-45Directory-ensureDirectoryExists u--tmpDir ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45Directory-ensureDirectoryExists u--outputDir ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (CoreC-45ContextC-45Log-logTime arg-0 (lambda () "+ Code generation overall") (let ((e-0 (car arg-1))) (((((e-0 arg-0) u--tmpDir) u--outputDir) arg-2) arg-3)) ext-0))))))))))))))) +(define CompilerC-45Common-castInt (lambda (arg-0 arg-1 arg-2 arg-3) (CompilerC-45Common-case--castInt-3317 arg-3 arg-2 arg-1 arg-0 (cons (cons arg-1 (CoreC-45TT-intKind arg-1)) (cons arg-2 (CoreC-45TT-intKind arg-2)))))) +(define SystemC-45File-n--4119-2133-u--getMs (lambda (arg-0 ext-0) (PreludeC-45Interfaces-sum (cons (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (vector (lambda (arg-2) (lambda (arg-3) (bs+ arg-2 arg-3 63))) (lambda (arg-4) (lambda (arg-5) (bs* arg-4 arg-5 63))) (lambda (arg-6) (blodwen-toSignedInt arg-6 63)))) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (SystemC-45File-n--4119-2132-u--getM arg-0 eta-0)) ext-0)))) +(define SystemC-45File-n--4119-2132-u--getM (lambda (arg-0 arg-1) (cond ((equal? arg-1 0) 4) ((equal? arg-1 1) 2) (else 1)))) +(define SystemC-45File-u--show_Show_FileError (lambda (arg-0) (case (vector-ref arg-0 0) ((0) (let ((e-0 (vector-ref arg-0 1))) (PreludeC-45TypesC-45String-C-43C-43 "File error: " (PreludeC-45Show-u--show_Show_Int e-0)))) ((1) "File Read Error") ((2) "File Write Error") ((3) "File Not Found") ((4) "Permission Denied") (else "File Exists")))) +(define SystemC-45File-writeFile (lambda (arg-1 arg-2 arg-3) (SystemC-45File-withFile arg-1 arg-2 1 (lambda (eta-0) (let ((e-1 (car arg-1))) (let ((e-5 (vector-ref e-1 0))) (let ((e-7 (vector-ref e-5 1))) ((e-7 'erased) eta-0))))) (lambda (eta-0) (PreludeC-45Basics-flip (lambda (eta-1) (lambda (eta-2) (SystemC-45File-fPutStr arg-1 eta-1 eta-2))) arg-3 eta-0))))) +(define SystemC-45File-withFile (lambda (arg-3 arg-4 arg-5 arg-6 arg-7) (let ((e-1 (car arg-3))) (let ((e-4 (vector-ref e-1 1))) ((((e-4 'erased) 'erased) (SystemC-45File-openFile arg-3 arg-4 arg-5)) (lambda (_-0) (case (vector-ref _-0 0) ((1) (let ((e-6 (vector-ref _-0 1))) (let ((e-8 (car arg-3))) (let ((e-10 (vector-ref e-8 1))) ((((e-10 'erased) 'erased) (arg-7 e-6)) (lambda (u--res) (PreludeC-45Interfaces-C-62C-62 (let ((e-13 (car arg-3))) e-13) (SystemC-45File-closeFile arg-3 e-6) (lambda () (let ((e-13 (car arg-3))) (let ((e-16 (vector-ref e-13 0))) (let ((e-18 (vector-ref e-16 1))) ((e-18 'erased) u--res)))))))))))) (else (let ((e-6 (vector-ref _-0 1))) (PreludeC-45Interfaces-C-60C-36C-62 (let ((e-8 (car arg-3))) (let ((e-11 (vector-ref e-8 0))) (let ((e-14 (vector-ref e-11 0))) e-14))) (lambda (eta-0) (vector 0 eta-0)) (arg-6 e-6))))))))))) +(define SystemC-45File-stdout (lambda () (SystemC-45File-prim__stdout))) +(define SystemC-45File-stdin (lambda () (SystemC-45File-prim__stdin))) +(define SystemC-45File-returnError (lambda (arg-2) (let ((e-1 (car arg-2))) (let ((e-4 (vector-ref e-1 1))) ((((e-4 'erased) 'erased) (let ((e-6 (cdr arg-2))) ((e-6 'erased) (lambda (eta-0) (SystemC-45File-prim__fileErrno eta-0))))) (lambda (u--err) (let ((e-7 (car arg-2))) (let ((e-10 (vector-ref e-7 0))) (let ((e-12 (vector-ref e-10 1))) ((e-12 'erased) (vector 0 (cond ((equal? u--err 0) (vector 1 )) ((equal? u--err 1) (vector 2 )) ((equal? u--err 2) (vector 3 )) ((equal? u--err 3) (vector 4 )) ((equal? u--err 4) (vector 5 ))(else (vector 0 (PreludeC-45Num-u--C-45_Neg_Int u--err 5))))))))))))))) +(define SystemC-45File-removeFile (lambda (arg-1 arg-2) (let ((e-1 (car arg-1))) (let ((e-4 (vector-ref e-1 1))) ((((e-4 'erased) 'erased) (let ((e-6 (cdr arg-1))) ((e-6 'erased) (lambda (eta-0) (SystemC-45File-prim__removeFile arg-2 eta-0))))) (lambda (u--res) (let ((sc1 (PreludeC-45EqOrd-u--C-61C-61_Eq_Int u--res (blodwen-toSignedInt 0 63)))) (cond ((equal? sc1 1) (SystemC-45File-ok arg-1 0)) (else (SystemC-45File-returnError arg-1)))))))))) +(define SystemC-45File-readLinesOnto (lambda (arg-1 arg-2 arg-3 arg-4 arg-5) (if (null? arg-4) (let ((e-1 (car arg-1))) (let ((e-5 (vector-ref e-1 0))) (let ((e-7 (vector-ref e-5 1))) ((e-7 'erased) (vector 1 (cons 0 (DataC-45List-reverse arg-2))))))) (let ((e-0 (unbox arg-4))) (let ((e-1 (car arg-1))) (let ((e-4 (vector-ref e-1 1))) ((((e-4 'erased) 'erased) (SystemC-45File-fEOF arg-1 arg-5)) (lambda (_-0) (cond ((equal? _-0 0) (cond ((equal? arg-3 0) (PreludeC-45InterfacesC-45Monad-u--C-62C-62C-61_Monad_ComposeC-40C-40C-46C-32C-36mC-41C-32C-36tC-41 (cons (let ((e-7 (car arg-1))) e-7) (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (case (vector-ref arg-133 0) ((0) (let ((e-6 (vector-ref arg-133 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref arg-133 1))) (vector 1 (u--func e-6))))))))) (lambda (u--a) (lambda (arg-527) (vector 1 arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (case (vector-ref arg-528 0) ((0) (let ((e-6 (vector-ref arg-528 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref arg-528 1))) (case (vector-ref arg-530 0) ((1) (let ((e-8 (vector-ref arg-530 1))) (vector 1 (e-6 e-8)))) (else (let ((e-11 (vector-ref arg-530 1))) (vector 0 e-11)))))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (PreludeC-45Types-u--C-62C-62C-61_Monad_C-40EitherC-32C-36eC-41 arg-811 arg-812))))) (lambda (u--a) (lambda (arg-814) (PreludeC-45Types-u--join_Monad_C-40EitherC-32C-36eC-41 arg-814)))) (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (case (vector-ref arg-133 0) ((0) (let ((e-6 (vector-ref arg-133 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref arg-133 1))) (vector 1 (u--func e-6))))))))) (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_C-40EitherC-32C-36eC-41 u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_C-40EitherC-32C-36eC-41 u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_C-40EitherC-32C-36eC-41 arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_C-40EitherC-32C-36eC-41 i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_C-40EitherC-32C-36eC-41 arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_C-40EitherC-32C-36eC-41 i_con-0 u--f arg-1100))))))) (lambda (u--b) (lambda (u--a) (lambda (u--f) (lambda (i_con-0) (lambda (arg-2543) (lambda (arg-2545) (PreludeC-45Types-u--traverse_Traversable_C-40EitherC-32C-36eC-41 i_con-0 arg-2543 arg-2545)))))))))) (SystemC-45File-fGetLine arg-1 arg-5) (lambda (u--str) (SystemC-45File-readLinesOnto arg-1 (cons u--str arg-2) 0 (e-0) arg-5))))(else (let ((e-6 (- arg-3 1))) (PreludeC-45Interfaces-C-42C-62 (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (PreludeC-45InterfacesC-45Functor-u--map_Functor_ComposeC-40C-40C-46C-32C-36fC-41C-32C-36gC-41 (cons (let ((sc3 (Builtin-fst (cons (let ((e-8 (car arg-1))) (let ((e-11 (vector-ref e-8 0))) e-11)) (vector (lambda (b-0) (lambda (a-0) (lambda (func-0) (lambda (arg-134) (case (vector-ref arg-134 0) ((0) (let ((e-7 (vector-ref arg-134 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref arg-134 1))) (vector 1 (func-0 e-7))))))))) (lambda (a-0) (lambda (arg-527) (vector 1 arg-527))) (lambda (b-0) (lambda (a-0) (lambda (arg-528) (lambda (arg-530) (case (vector-ref arg-528 0) ((0) (let ((e-7 (vector-ref arg-528 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref arg-528 1))) (case (vector-ref arg-530 0) ((1) (let ((e-8 (vector-ref arg-530 1))) (vector 1 (e-7 e-8)))) (else (let ((e-11 (vector-ref arg-530 1))) (vector 0 e-11)))))))))))))))) (let ((e-9 (vector-ref sc3 0))) e-9)) (let ((sc3 (Builtin-snd (cons (let ((e-8 (car arg-1))) (let ((e-11 (vector-ref e-8 0))) e-11)) (vector (lambda (b-0) (lambda (a-0) (lambda (func-0) (lambda (arg-134) (case (vector-ref arg-134 0) ((0) (let ((e-7 (vector-ref arg-134 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref arg-134 1))) (vector 1 (func-0 e-7))))))))) (lambda (a-0) (lambda (arg-527) (vector 1 arg-527))) (lambda (b-0) (lambda (a-0) (lambda (arg-528) (lambda (arg-530) (case (vector-ref arg-528 0) ((0) (let ((e-7 (vector-ref arg-528 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref arg-528 1))) (case (vector-ref arg-530 0) ((1) (let ((e-8 (vector-ref arg-530 1))) (vector 1 (e-7 e-8)))) (else (let ((e-11 (vector-ref arg-530 1))) (vector 0 e-11)))))))))))))))) (let ((e-9 (vector-ref sc3 0))) e-9))) u--func arg-133))))) (lambda (u--a) (lambda (arg-527) (PreludeC-45InterfacesC-45Applicative-u--pure_Applicative_ComposeC-40C-40C-46C-32C-36fC-41C-32C-36gC-41 (cons (let ((e-8 (car arg-1))) (let ((e-11 (vector-ref e-8 0))) e-11)) (vector (lambda (u--b) (lambda (a-0) (lambda (u--func) (lambda (arg-133) (case (vector-ref arg-133 0) ((0) (let ((e-7 (vector-ref arg-133 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref arg-133 1))) (vector 1 (u--func e-7))))))))) (lambda (a-0) (lambda (arg-528) (vector 1 arg-528))) (lambda (u--b) (lambda (a-0) (lambda (arg-528) (lambda (arg-530) (case (vector-ref arg-528 0) ((0) (let ((e-7 (vector-ref arg-528 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref arg-528 1))) (case (vector-ref arg-530 0) ((1) (let ((e-8 (vector-ref arg-530 1))) (vector 1 (e-7 e-8)))) (else (let ((e-11 (vector-ref arg-530 1))) (vector 0 e-11))))))))))))) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (PreludeC-45InterfacesC-45Applicative-u--C-60C-42C-62_Applicative_ComposeC-40C-40C-46C-32C-36fC-41C-32C-36gC-41 (cons (let ((e-8 (car arg-1))) (let ((e-11 (vector-ref e-8 0))) e-11)) (vector (lambda (b-0) (lambda (a-0) (lambda (u--func) (lambda (arg-133) (case (vector-ref arg-133 0) ((0) (let ((e-7 (vector-ref arg-133 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref arg-133 1))) (vector 1 (u--func e-7))))))))) (lambda (a-0) (lambda (arg-527) (vector 1 arg-527))) (lambda (b-0) (lambda (a-0) (lambda (arg-529) (lambda (arg-531) (case (vector-ref arg-529 0) ((0) (let ((e-7 (vector-ref arg-529 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref arg-529 1))) (case (vector-ref arg-531 0) ((1) (let ((e-8 (vector-ref arg-531 1))) (vector 1 (e-7 e-8)))) (else (let ((e-11 (vector-ref arg-531 1))) (vector 0 e-11))))))))))))) arg-528 arg-530)))))) (SystemC-45File-fSeekLine arg-1 arg-5) (SystemC-45File-readLinesOnto arg-1 arg-2 e-6 (box e-0) arg-5)))))) (else (let ((e-7 (car arg-1))) (let ((e-10 (vector-ref e-7 0))) (let ((e-12 (vector-ref e-10 1))) ((e-12 'erased) (vector 1 (cons 1 (DataC-45List-reverse arg-2))))))))))))))))) +(define SystemC-45File-readFilePage (lambda (arg-1 arg-2 arg-3 arg-4) (SystemC-45File-withFile arg-1 arg-4 0 (lambda (eta-0) (let ((e-1 (car arg-1))) (let ((e-5 (vector-ref e-1 0))) (let ((e-7 (vector-ref e-5 1))) ((e-7 'erased) eta-0))))) (lambda (eta-0) (SystemC-45File-readLinesOnto arg-1 '() arg-2 arg-3 eta-0))))) +(define SystemC-45File-readFile (lambda (arg-1 ext-0) (let ((e-1 (car arg-1))) (let ((e-5 (vector-ref e-1 0))) (let ((e-8 (vector-ref e-5 0))) ((((e-8 'erased) 'erased) (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-9 (vector-ref eta-0 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref eta-0 1))) (vector 1 (PreludeC-45Types-fastConcat (Builtin-snd e-9)))))))) (SystemC-45File-readFilePage arg-1 0 (DataC-45Fuel-forever) ext-0))))))) +(define SystemC-45File-popen (lambda (arg-1 arg-2 arg-3) (let ((e-1 (car arg-1))) (let ((e-4 (vector-ref e-1 1))) ((((e-4 'erased) 'erased) (let ((e-6 (cdr arg-1))) ((e-6 'erased) (lambda (eta-0) (SystemC-45File-prim__popen arg-2 (SystemC-45File-modeStr arg-3) eta-0))))) (lambda (u--ptr) (let ((sc1 (PreludeC-45EqOrd-u--C-47C-61_Eq_Int (PrimIO-prim__nullAnyPtr u--ptr) (blodwen-toSignedInt 0 63)))) (cond ((equal? sc1 1) (SystemC-45File-returnError arg-1)) (else (let ((e-7 (car arg-1))) (let ((e-10 (vector-ref e-7 0))) (let ((e-12 (vector-ref e-10 1))) ((e-12 'erased) (vector 1 u--ptr)))))))))))))) +(define SystemC-45File-pclose (lambda (arg-1 arg-2) (let ((e-2 (cdr arg-1))) ((e-2 'erased) (lambda (eta-0) (SystemC-45File-prim__pclose arg-2 eta-0)))))) +(define SystemC-45File-openFile (lambda (arg-1 arg-2 arg-3) (let ((e-1 (car arg-1))) (let ((e-4 (vector-ref e-1 1))) ((((e-4 'erased) 'erased) (let ((e-6 (cdr arg-1))) ((e-6 'erased) (lambda (eta-0) (SystemC-45File-prim__open arg-2 (SystemC-45File-modeStr arg-3) eta-0))))) (lambda (u--res) (let ((sc1 (PreludeC-45EqOrd-u--C-47C-61_Eq_Int (PrimIO-prim__nullAnyPtr u--res) (blodwen-toSignedInt 0 63)))) (cond ((equal? sc1 1) (SystemC-45File-returnError arg-1)) (else (SystemC-45File-ok arg-1 u--res)))))))))) +(define SystemC-45File-ok (lambda (arg-2 arg-3) (let ((e-1 (car arg-2))) (let ((e-5 (vector-ref e-1 0))) (let ((e-7 (vector-ref e-5 1))) ((e-7 'erased) (vector 1 arg-3))))))) +(define SystemC-45File-modeStr (lambda (arg-0) (cond ((equal? arg-0 0) (let ((sc1 (SystemC-45Info-isWindows))) (cond ((equal? sc1 1) "rb") (else "r")))) ((equal? arg-0 1) (let ((sc1 (SystemC-45Info-isWindows))) (cond ((equal? sc1 1) "wb") (else "w")))) ((equal? arg-0 2) (let ((sc1 (SystemC-45Info-isWindows))) (cond ((equal? sc1 1) "ab") (else "a")))) ((equal? arg-0 3) (let ((sc1 (SystemC-45Info-isWindows))) (cond ((equal? sc1 1) "rb+") (else "r+")))) ((equal? arg-0 4) (let ((sc1 (SystemC-45Info-isWindows))) (cond ((equal? sc1 1) "wb+") (else "w+")))) (else (let ((sc1 (SystemC-45Info-isWindows))) (cond ((equal? sc1 1) "ab+") (else "a+"))))))) +(define SystemC-45File-mkMode (lambda (arg-0) (bs+ (bs+ (bs* (SystemC-45File-n--4119-2133-u--getMs arg-0 (let ((e-0 (vector-ref arg-0 0))) e-0)) 64 63) (bs* (SystemC-45File-n--4119-2133-u--getMs arg-0 (let ((e-1 (vector-ref arg-0 1))) e-1)) 8 63) 63) (SystemC-45File-n--4119-2133-u--getMs arg-0 (let ((e-2 (vector-ref arg-0 2))) e-2)) 63))) +(define SystemC-45File-firstExists (lambda (arg-1 arg-2) (if (null? arg-2) (let ((e-1 (car arg-1))) (let ((e-5 (vector-ref e-1 0))) (let ((e-7 (vector-ref e-5 1))) ((e-7 'erased) '())))) (let ((e-2 (car arg-2))) (let ((e-3 (cdr arg-2))) (let ((e-1 (car arg-1))) (let ((e-6 (vector-ref e-1 1))) ((((e-6 'erased) 'erased) (SystemC-45File-exists arg-1 e-2)) (lambda (bind-0) (cond ((equal? bind-0 1) (let ((e-9 (car arg-1))) (let ((e-12 (vector-ref e-9 0))) (let ((e-14 (vector-ref e-12 1))) ((e-14 'erased) (box e-2)))))) (else (SystemC-45File-firstExists arg-1 e-3)))))))))))) +(define SystemC-45File-fileSize (lambda (arg-1 arg-2) (let ((e-1 (car arg-1))) (let ((e-4 (vector-ref e-1 1))) ((((e-4 'erased) 'erased) (let ((e-6 (cdr arg-1))) ((e-6 'erased) (lambda (eta-0) (SystemC-45File-prim__fileSize arg-2 eta-0))))) (lambda (u--res) (let ((sc1 (PreludeC-45EqOrd-u--C-62C-61_Ord_Int u--res (blodwen-toSignedInt 0 63)))) (cond ((equal? sc1 1) (SystemC-45File-ok arg-1 u--res)) (else (SystemC-45File-returnError arg-1)))))))))) +(define SystemC-45File-fileModifiedTime (lambda (arg-1 arg-2) (let ((e-1 (car arg-1))) (let ((e-4 (vector-ref e-1 1))) ((((e-4 'erased) 'erased) (let ((e-6 (cdr arg-1))) ((e-6 'erased) (lambda (eta-0) (SystemC-45File-prim__fileModifiedTime arg-2 eta-0))))) (lambda (u--res) (let ((sc1 (PreludeC-45EqOrd-u--C-62_Ord_Int u--res (blodwen-toSignedInt 0 63)))) (cond ((equal? sc1 1) (SystemC-45File-ok arg-1 u--res)) (else (SystemC-45File-returnError arg-1)))))))))) +(define SystemC-45File-fileError (lambda (arg-1 arg-2) (let ((e-1 (car arg-1))) (let ((e-4 (vector-ref e-1 1))) ((((e-4 'erased) 'erased) (let ((e-6 (cdr arg-1))) ((e-6 'erased) (lambda (eta-0) (SystemC-45File-prim__error arg-2 eta-0))))) (lambda (u--x) (let ((e-7 (car arg-1))) (let ((e-10 (vector-ref e-7 0))) (let ((e-12 (vector-ref e-10 1))) ((e-12 'erased) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int u--x (blodwen-toSignedInt 0 63)))))))))))) +(define SystemC-45File-fflush (lambda (arg-1 arg-2) (let ((e-1 (car arg-1))) (let ((e-5 (vector-ref e-1 0))) (let ((e-8 (vector-ref e-5 0))) ((((e-8 'erased) 'erased) (lambda (eta-0) 0)) (let ((e-9 (cdr arg-1))) ((e-9 'erased) (lambda (eta-0) (SystemC-45File-prim__flush arg-2 eta-0)))))))))) +(define SystemC-45File-fSeekLine (lambda (arg-1 arg-2) (let ((e-1 (car arg-1))) (let ((e-4 (vector-ref e-1 1))) ((((e-4 'erased) 'erased) (let ((e-6 (cdr arg-1))) ((e-6 'erased) (lambda (eta-0) (SystemC-45File-prim__seekLine arg-2 eta-0))))) (lambda (u--res) (let ((sc1 (PreludeC-45EqOrd-u--C-47C-61_Eq_Int u--res (blodwen-toSignedInt 0 63)))) (cond ((equal? sc1 1) (SystemC-45File-returnError arg-1)) (else (SystemC-45File-ok arg-1 0)))))))))) +(define SystemC-45File-fPutStr (lambda (arg-1 arg-2 arg-3) (let ((e-1 (car arg-1))) (let ((e-4 (vector-ref e-1 1))) ((((e-4 'erased) 'erased) (let ((e-6 (cdr arg-1))) ((e-6 'erased) (lambda (eta-0) (SystemC-45File-prim__writeLine arg-2 arg-3 eta-0))))) (lambda (u--res) (let ((sc1 (PreludeC-45EqOrd-u--C-61C-61_Eq_Int u--res (blodwen-toSignedInt 0 63)))) (cond ((equal? sc1 1) (SystemC-45File-returnError arg-1)) (else (SystemC-45File-ok arg-1 0)))))))))) +(define SystemC-45File-fGetLine (lambda (arg-1 arg-2) (let ((e-1 (car arg-1))) (let ((e-4 (vector-ref e-1 1))) ((((e-4 'erased) 'erased) (let ((e-6 (cdr arg-1))) ((e-6 'erased) (lambda (eta-0) (SystemC-45File-prim__readLine arg-2 eta-0))))) (lambda (u--res) (let ((sc1 (PreludeC-45EqOrd-u--C-47C-61_Eq_Int (PrimIO-prim__nullAnyPtr (PrimIO-prim__forgetPtr u--res)) (blodwen-toSignedInt 0 63)))) (cond ((equal? sc1 1) (SystemC-45File-returnError arg-1)) (else (SystemC-45File-ok arg-1 (PreludeC-45IO-prim__getString u--res))))))))))) +(define SystemC-45File-fGetChar (lambda (arg-1 arg-2) (let ((e-1 (car arg-1))) (let ((e-4 (vector-ref e-1 1))) ((((e-4 'erased) 'erased) (let ((e-6 (cdr arg-1))) ((e-6 'erased) (lambda (eta-0) (SystemC-45File-prim__readChar arg-2 eta-0))))) (lambda (u--c) (let ((e-7 (car arg-1))) (let ((e-9 (vector-ref e-7 1))) ((((e-9 'erased) 'erased) (let ((e-11 (cdr arg-1))) ((e-11 'erased) (lambda (eta-0) (SystemC-45File-prim__error arg-2 eta-0))))) (lambda (u--ferr) (let ((sc2 (PreludeC-45EqOrd-u--C-47C-61_Eq_Int u--ferr (blodwen-toSignedInt 0 63)))) (cond ((equal? sc2 1) (SystemC-45File-returnError arg-1)) (else (SystemC-45File-ok arg-1 (PreludeC-45Cast-u--cast_Cast_Int_Char u--c))))))))))))))) +(define SystemC-45File-fEOF (lambda (arg-1 arg-2) (let ((e-1 (car arg-1))) (let ((e-4 (vector-ref e-1 1))) ((((e-4 'erased) 'erased) (let ((e-6 (cdr arg-1))) ((e-6 'erased) (lambda (eta-0) (SystemC-45File-prim__eof arg-2 eta-0))))) (lambda (u--res) (let ((e-7 (car arg-1))) (let ((e-10 (vector-ref e-7 0))) (let ((e-12 (vector-ref e-10 1))) ((e-12 'erased) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int u--res (blodwen-toSignedInt 0 63)))))))))))) +(define SystemC-45File-exists (lambda (arg-1 arg-2) (let ((e-1 (car arg-1))) (let ((e-4 (vector-ref e-1 1))) ((((e-4 'erased) 'erased) (SystemC-45File-openFile arg-1 arg-2 0)) (lambda (_-0) (case (vector-ref _-0 0) ((1) (let ((e-6 (vector-ref _-0 1))) (PreludeC-45Interfaces-C-62C-62 (let ((e-8 (car arg-1))) e-8) (SystemC-45File-closeFile arg-1 e-6) (lambda () (let ((e-8 (car arg-1))) (let ((e-11 (vector-ref e-8 0))) (let ((e-13 (vector-ref e-11 1))) ((e-13 'erased) 1)))))))) (else (let ((e-8 (car arg-1))) (let ((e-11 (vector-ref e-8 0))) (let ((e-13 (vector-ref e-11 1))) ((e-13 'erased) 0)))))))))))) +(define SystemC-45File-closeFile (lambda (arg-1 arg-2) (let ((e-2 (cdr arg-1))) ((e-2 'erased) (lambda (eta-0) (SystemC-45File-prim__close arg-2 eta-0)))))) +(define SystemC-45File-chmodRaw (lambda (arg-1 arg-2 arg-3) (let ((e-1 (car arg-1))) (let ((e-4 (vector-ref e-1 1))) ((((e-4 'erased) 'erased) (let ((e-6 (cdr arg-1))) ((e-6 'erased) (lambda (eta-0) (SystemC-45File-prim__chmod arg-2 arg-3 eta-0))))) (lambda (u--ok) (let ((sc1 (PreludeC-45EqOrd-u--C-61C-61_Eq_Int u--ok (blodwen-toSignedInt 0 63)))) (cond ((equal? sc1 1) (let ((e-7 (car arg-1))) (let ((e-10 (vector-ref e-7 0))) (let ((e-12 (vector-ref e-10 1))) ((e-12 'erased) (vector 1 0)))))) (else (SystemC-45File-returnError arg-1)))))))))) +(define SystemC-45File-chmod (lambda (arg-1 arg-2 arg-3) (SystemC-45File-chmodRaw arg-1 arg-2 (SystemC-45File-mkMode arg-3)))) +(define SystemC-45Info-os (lambda () (blodwen-os))) +(define SystemC-45Info-isWindows (lambda () (PreludeC-45Types-elem (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_String arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_String arg-4 arg-5)))) (SystemC-45Info-os) (cons "windows" (cons "mingw32" (cons "cygwin32" '())))))) (define PreludeC-45Uninhabited-absurd (lambda (arg-2 arg-3) (display "Error: Executed 'void'"))) -(define PreludeC-45Basics-C-124C-124 (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (cond ((equal? sc0 0) 0) (else (arg-1)))))) -(define PreludeC-45Basics-uncurry (lambda (arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) ((arg-3 e-2) e-3)))))) -(define PreludeC-45Basics-ifThenElse (lambda (arg-1 arg-2 arg-3) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (arg-2)) (else (arg-3)))))) +(define PreludeC-45Basics-uncurry (lambda (arg-3 arg-4) (let ((e-2 (car arg-4))) (let ((e-3 (cdr arg-4))) ((arg-3 e-2) e-3))))) (define PreludeC-45Basics-flip (lambda (arg-3 arg-4 arg-5) ((arg-3 arg-5) arg-4))) (define PreludeC-45Basics-curry (lambda (arg-3 arg-4 arg-5) (arg-3 (cons arg-4 arg-5)))) -(define PreludeC-45Basics-cong (lambda (arg-5) (let ((sc0 arg-5)) (vector 0 )))) -(define PreludeC-45Basics-C-38C-38 (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (cond ((equal? sc0 0) (arg-1)) (else 1))))) -(define Builtin-snd (lambda (arg-2) (let ((sc0 arg-2)) (let ((e-3 (cdr sc0))) e-3)))) +(define PreludeC-45Basics-cong (lambda (arg-5) (cond (else 0)))) +(define Builtin-snd (lambda (arg-2) (let ((e-3 (cdr arg-2))) e-3))) (define Builtin-idris_crash (lambda (ext-0) (blodwen-error-quit (string-append "ERROR: " ext-0)))) -(define Builtin-fst (lambda (arg-2) (let ((sc0 arg-2)) (let ((e-2 (car sc0))) e-2)))) +(define Builtin-fst (lambda (arg-2) (let ((e-2 (car arg-2))) e-2))) (define Builtin-believe_me (lambda (ext-0) ext-0)) -(define PreludeC-45Types-case--caseC-32blockC-32inC-32rangeFromTo-6286 (lambda (arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (PreludeC-45Types-takeUntil (lambda (arg-0) (let ((sc1 (Builtin-fst (Builtin-snd arg-1)))) (let ((e-5 (vector-ref sc1 5))) ((e-5 arg-0) arg-2)))) (PreludeC-45Types-countFrom arg-3 (lambda (u--x) (let ((sc1 (Builtin-snd (Builtin-snd arg-1)))) (let ((e-3 (vector-ref sc1 3))) ((e-3 u--x) (let ((sc2 (Builtin-snd (Builtin-snd arg-1)))) (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (let ((e-7 (vector-ref sc3 3))) (e-7 1)))))))))))) (else (cons arg-3 '())))))) -(define PreludeC-45Types-case--rangeFromTo-6233 (lambda (arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (PreludeC-45Types-takeUntil (lambda (arg-0) (let ((sc1 (Builtin-fst (Builtin-snd arg-1)))) (let ((e-6 (vector-ref sc1 6))) ((e-6 arg-0) arg-3)))) (PreludeC-45Types-countFrom arg-2 (lambda (arg-0) (let ((sc1 (Builtin-snd (Builtin-snd arg-1)))) (let ((e-1 (vector-ref sc1 1))) (let ((sc2 e-1)) (let ((e-6 (vector-ref sc2 1))) ((e-6 arg-0) (let ((sc3 (Builtin-snd (Builtin-snd arg-1)))) (let ((e-9 (vector-ref sc3 1))) (let ((sc4 e-9)) (let ((e-10 (vector-ref sc4 3))) (e-10 1)))))))))))))) (else (PreludeC-45Types-case--caseC-32blockC-32inC-32rangeFromTo-6286 arg-1 arg-3 arg-2 (let ((sc1 (Builtin-fst (Builtin-snd arg-1)))) (let ((e-4 (vector-ref sc1 4))) ((e-4 arg-2) arg-3))))))))) -(define PreludeC-45Types-case--caseC-32blockC-32inC-32rangeFromTo-6012 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (PreludeC-45Types-takeUntil (lambda (arg-3) (PreludeC-45Types-u--C-60C-61_Ord_Nat arg-3 arg-0)) (PreludeC-45Types-countFrom arg-1 (lambda (u--n) (PreludeC-45Types-minus u--n (+ 1 0)))))) (else (cons arg-1 '())))))) -(define PreludeC-45Types-case--rangeFromTo-5984 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (PreludeC-45Types-takeUntil (lambda (arg-3) (PreludeC-45Types-u--C-62C-61_Ord_Nat arg-3 arg-0)) (PreludeC-45Types-countFrom arg-1 (lambda (eta-0) (+ 1 eta-0))))) (else (PreludeC-45Types-case--caseC-32blockC-32inC-32rangeFromTo-6012 arg-0 arg-1 (PreludeC-45Types-u--C-62_Ord_Nat arg-1 arg-0))))))) -(define PreludeC-45Types-case--takeUntil-5779 (lambda (arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (cons arg-1 '())) (else (cons arg-1 (PreludeC-45Types-takeUntil arg-3 (arg-2)))))))) -(define PreludeC-45Types-case--toLower-5620 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (cast-int-char (bs+ (cast-char-boundedInt arg-0 63) 32 63))) (else arg-0))))) -(define PreludeC-45Types-case--toUpper-5606 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (cast-int-char (PreludeC-45Num-u--C-45_Neg_Int (cast-char-boundedInt arg-0 63) 32))) (else arg-0))))) -(define PreludeC-45Types-case--substr-5421 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (string-substr (blodwen-toSignedInt arg-2 63) (blodwen-toSignedInt arg-1 63) arg-0)) (else ""))))) -(define PreludeC-45Types-case--compare-4580 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 1) (PreludeC-45Types-u--compare_Ord_C-40ListC-32C-36aC-41 arg-1 arg-3 arg-5))(else arg-6))))) -(define PreludeC-45Types-case--count-567 (lambda (arg-2 arg-3 arg-4 arg-5 ext-0) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (+ 1 ext-0)) (else ext-0))))) -(define PreludeC-45Types-case--max-479 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0))))) -(define PreludeC-45Types-case--min-465 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0))))) -(define PreludeC-45Types-case--prim__integerToNat-340 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (Builtin-believe_me arg-0)) (else 0))))) -(define PreludeC-45Types-n--5716-5632-u--hexChars (lambda (arg-0) (cons #\0 (cons #\1 (cons #\2 (cons #\3 (cons #\4 (cons #\5 (cons #\6 (cons #\7 (cons #\8 (cons #\9 (cons #\A (cons #\B (cons #\C (cons #\D (cons #\E (cons #\F '())))))))))))))))))) -(define PreludeC-45Types-u--traverse_Traversable_List (lambda (arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (if (null? sc0) (let ((sc1 arg-3)) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) '()))) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 arg-3)) (let ((e-4 (vector-ref sc1 3))) ((((e-4 'erased) 'erased) (let ((sc2 arg-3)) (let ((e-6 (vector-ref sc2 3))) ((((e-6 'erased) 'erased) (let ((sc3 arg-3)) (let ((e-10 (vector-ref sc3 2))) ((e-10 'erased) (lambda (eta-0) (lambda (eta-1) (cons eta-0 eta-1))))))) (arg-4 e-2))))) (PreludeC-45Types-u--traverse_Traversable_List arg-3 arg-4 e-3)))))))))) -(define PreludeC-45Types-u--traverse_Traversable_C-40EitherC-32C-36eC-41 (lambda (arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 arg-4)) (let ((e-4 (vector-ref sc1 2))) ((e-4 'erased) (vector 0 e-2)))))) (else (let ((e-5 (vector-ref sc0 1))) (PreludeC-45Interfaces-C-60C-36C-62 (let ((sc1 arg-4)) (let ((e-1 (vector-ref sc1 1))) e-1)) (lambda (eta-0) (vector 1 eta-0)) (arg-5 e-5)))))))) +(define PreludeC-45Types-case--compare-3918 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (cond ((equal? arg-6 1) (PreludeC-45Types-u--compare_Ord_C-40ListC-32C-36aC-41 arg-1 arg-3 arg-5))(else arg-6)))) +(define PreludeC-45Types-n--5816-4858-u--hexChars (lambda (arg-0) (cons #\0 (cons #\1 (cons #\2 (cons #\3 (cons #\4 (cons #\5 (cons #\6 (cons #\7 (cons #\8 (cons #\9 (cons #\A (cons #\B (cons #\C (cons #\D (cons #\E (cons #\F '())))))))))))))))))) +(define PreludeC-45Types-u--traverse_Traversable_List (lambda (arg-3 arg-4 arg-5) (if (null? arg-5) (let ((e-2 (vector-ref arg-3 1))) ((e-2 'erased) '())) (let ((e-2 (car arg-5))) (let ((e-3 (cdr arg-5))) (let ((e-4 (vector-ref arg-3 2))) ((((e-4 'erased) 'erased) (let ((e-6 (vector-ref arg-3 2))) ((((e-6 'erased) 'erased) (let ((e-10 (vector-ref arg-3 1))) ((e-10 'erased) (lambda (eta-0) (lambda (eta-1) (cons eta-0 eta-1)))))) (arg-4 e-2)))) (PreludeC-45Types-u--traverse_Traversable_List arg-3 arg-4 e-3)))))))) +(define PreludeC-45Types-u--traverse_Traversable_C-40EitherC-32C-36eC-41 (lambda (arg-4 arg-5 arg-6) (case (vector-ref arg-6 0) ((0) (let ((e-2 (vector-ref arg-6 1))) (let ((e-4 (vector-ref arg-4 1))) ((e-4 'erased) (vector 0 e-2))))) (else (let ((e-5 (vector-ref arg-6 1))) (PreludeC-45Interfaces-C-60C-36C-62 (let ((e-1 (vector-ref arg-4 0))) e-1) (lambda (eta-0) (vector 1 eta-0)) (arg-5 e-5))))))) +(define PreludeC-45Types-u--toList_Foldable_Maybe (lambda (ext-0) (PreludeC-45Types-u--foldr_Foldable_Maybe (lambda (eta-0) (lambda (eta-1) (cons eta-0 eta-1))) '() ext-0))) +(define PreludeC-45Types-u--toList_Foldable_List (lambda (ext-0) ext-0)) +(define PreludeC-45Types-u--toList_Foldable_C-40EitherC-32C-36eC-41 (lambda (ext-0) (PreludeC-45Types-u--foldr_Foldable_C-40EitherC-32C-36eC-41 (lambda (eta-0) (lambda (eta-1) (cons eta-0 eta-1))) '() ext-0))) (define PreludeC-45Types-u--rangeFrom_Range_Nat (lambda (arg-0) (PreludeC-45Types-countFrom arg-0 (lambda (eta-0) (+ 1 eta-0))))) -(define PreludeC-45Types-u--rangeFrom_Range_C-36a (lambda (arg-1 arg-2) (PreludeC-45Types-countFrom arg-2 (lambda (arg-0) (let ((sc0 (Builtin-snd (Builtin-snd arg-1)))) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-6 (vector-ref sc1 1))) ((e-6 (let ((sc2 (Builtin-snd (Builtin-snd arg-1)))) (let ((e-9 (vector-ref sc2 1))) (let ((sc3 e-9)) (let ((e-10 (vector-ref sc3 3))) (e-10 1)))))) arg-0))))))))) -(define PreludeC-45Types-u--rangeFromTo_Range_Nat (lambda (arg-0 arg-1) (PreludeC-45Types-case--rangeFromTo-5984 arg-1 arg-0 (PreludeC-45Types-u--C-62_Ord_Nat arg-1 arg-0)))) -(define PreludeC-45Types-u--rangeFromTo_Range_C-36a (lambda (arg-1 arg-2 arg-3) (PreludeC-45Types-case--rangeFromTo-6233 arg-1 arg-2 arg-3 (let ((sc0 (Builtin-fst (Builtin-snd arg-1)))) (let ((e-4 (vector-ref sc0 4))) ((e-4 arg-3) arg-2)))))) -(define PreludeC-45Types-u--pure_Applicative_Maybe (lambda (ext-0) (vector 1 ext-0))) +(define PreludeC-45Types-u--rangeFrom_Range_C-36a (lambda (arg-1 arg-2) (PreludeC-45Types-countFrom arg-2 (lambda (arg-0) (let ((sc0 (Builtin-snd (Builtin-snd arg-1)))) (let ((e-1 (vector-ref sc0 0))) (let ((e-6 (vector-ref e-1 0))) ((e-6 (let ((sc0 (Builtin-snd (Builtin-snd arg-1)))) (let ((e-9 (vector-ref sc0 0))) (let ((e-10 (vector-ref e-9 2))) (e-10 1))))) arg-0)))))))) +(define PreludeC-45Types-u--rangeFromTo_Range_Nat (lambda (arg-0 arg-1) (let ((sc0 (PreludeC-45Types-u--C-62_Ord_Nat arg-1 arg-0))) (cond ((equal? sc0 1) (PreludeC-45Types-takeUntil (lambda (arg-2) (PreludeC-45Types-u--C-62C-61_Ord_Nat arg-2 arg-1)) (PreludeC-45Types-countFrom arg-0 (lambda (eta-0) (+ 1 eta-0))))) (else (let ((sc1 (PreludeC-45Types-u--C-62_Ord_Nat arg-0 arg-1))) (cond ((equal? sc1 1) (PreludeC-45Types-takeUntil (lambda (arg-2) (PreludeC-45Types-u--C-60C-61_Ord_Nat arg-2 arg-1)) (PreludeC-45Types-countFrom arg-0 (lambda (u--n) (PreludeC-45Types-prim__integerToNat (- u--n (+ 1 0))))))) (else (cons arg-0 '()))))))))) +(define PreludeC-45Types-u--rangeFromTo_Range_C-36a (lambda (arg-1 arg-2 arg-3) (let ((sc0 (let ((sc1 (Builtin-fst (Builtin-snd arg-1)))) (let ((e-4 (vector-ref sc1 3))) ((e-4 arg-3) arg-2))))) (cond ((equal? sc0 1) (PreludeC-45Types-takeUntil (lambda (arg-0) (let ((sc1 (Builtin-fst (Builtin-snd arg-1)))) (let ((e-6 (vector-ref sc1 5))) ((e-6 arg-0) arg-3)))) (PreludeC-45Types-countFrom arg-2 (lambda (arg-0) (let ((sc1 (Builtin-snd (Builtin-snd arg-1)))) (let ((e-1 (vector-ref sc1 0))) (let ((e-6 (vector-ref e-1 0))) ((e-6 arg-0) (let ((sc1 (Builtin-snd (Builtin-snd arg-1)))) (let ((e-9 (vector-ref sc1 0))) (let ((e-10 (vector-ref e-9 2))) (e-10 1)))))))))))) (else (let ((sc1 (let ((sc2 (Builtin-fst (Builtin-snd arg-1)))) (let ((e-4 (vector-ref sc2 3))) ((e-4 arg-2) arg-3))))) (cond ((equal? sc1 1) (PreludeC-45Types-takeUntil (lambda (arg-0) (let ((sc2 (Builtin-fst (Builtin-snd arg-1)))) (let ((e-5 (vector-ref sc2 4))) ((e-5 arg-0) arg-3)))) (PreludeC-45Types-countFrom arg-2 (lambda (u--x) (let ((sc2 (Builtin-snd (Builtin-snd arg-1)))) (let ((e-3 (vector-ref sc2 2))) ((e-3 u--x) (let ((sc2 (Builtin-snd (Builtin-snd arg-1)))) (let ((e-6 (vector-ref sc2 0))) (let ((e-7 (vector-ref e-6 2))) (e-7 1))))))))))) (else (cons arg-2 '()))))))))) +(define PreludeC-45Types-u--pure_Applicative_Maybe (lambda (ext-0) (box ext-0))) (define PreludeC-45Types-u--pure_Applicative_List (lambda (arg-1) (cons arg-1 '()))) -(define PreludeC-45Types-u--null_Foldable_Maybe (lambda (arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda () 0)) (else (lambda () 1)))))) -(define PreludeC-45Types-u--null_Foldable_List (lambda (arg-1) (let ((sc0 arg-1)) (if (null? sc0) (lambda () 0) (lambda () 1))))) -(define PreludeC-45Types-u--null_Foldable_C-40EitherC-32C-36eC-41 (lambda (arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (lambda () 0)) (else (lambda () 1)))))) +(define PreludeC-45Types-u--null_Foldable_Maybe (lambda (arg-1) (if (null? arg-1) (lambda () 1) (lambda () 0)))) +(define PreludeC-45Types-u--null_Foldable_List (lambda (arg-1) (if (null? arg-1) (lambda () 1) (lambda () 0)))) +(define PreludeC-45Types-u--null_Foldable_C-40EitherC-32C-36eC-41 (lambda (arg-2) (case (vector-ref arg-2 0) ((0) (lambda () 1)) (else (lambda () 0))))) (define PreludeC-45Types-u--neutral_Monoid_String (lambda () "")) (define PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41 (lambda () '())) -(define PreludeC-45Types-u--min_Ord_Nat (lambda (arg-0 arg-1) (PreludeC-45Types-case--min-465 arg-1 arg-0 (PreludeC-45Types-u--C-60_Ord_Nat arg-0 arg-1)))) -(define PreludeC-45Types-u--max_Ord_Nat (lambda (arg-0 arg-1) (PreludeC-45Types-case--max-479 arg-1 arg-0 (PreludeC-45Types-u--C-62_Ord_Nat arg-0 arg-1)))) -(define PreludeC-45Types-u--map_Functor_Maybe (lambda (arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (vector 1 (arg-2 e-1)))) (else (vector 0 )))))) -(define PreludeC-45Types-u--map_Functor_List (lambda (arg-2 arg-3) (let ((sc0 arg-3)) (if (null? sc0) '() (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (cons (arg-2 e-2) (PreludeC-45Types-u--map_Functor_List arg-2 e-3)))))))) +(define PreludeC-45Types-u--min_Ord_Nat (lambda (arg-0 arg-1) (let ((sc0 (PreludeC-45Types-u--C-60_Ord_Nat arg-0 arg-1))) (cond ((equal? sc0 1) arg-0) (else arg-1))))) +(define PreludeC-45Types-u--min_Ord_C-40MaybeC-32C-36aC-41 (lambda (arg-1 arg-2 arg-3) (let ((sc0 (PreludeC-45Types-u--C-60_Ord_C-40MaybeC-32C-36aC-41 arg-1 arg-2 arg-3))) (cond ((equal? sc0 1) arg-2) (else arg-3))))) +(define PreludeC-45Types-u--min_Ord_C-40ListC-32C-36aC-41 (lambda (arg-1 arg-2 arg-3) (let ((sc0 (PreludeC-45Types-u--C-60_Ord_C-40ListC-32C-36aC-41 arg-1 arg-2 arg-3))) (cond ((equal? sc0 1) arg-2) (else arg-3))))) +(define PreludeC-45Types-u--max_Ord_Nat (lambda (arg-0 arg-1) (let ((sc0 (PreludeC-45Types-u--C-62_Ord_Nat arg-0 arg-1))) (cond ((equal? sc0 1) arg-0) (else arg-1))))) +(define PreludeC-45Types-u--max_Ord_C-40MaybeC-32C-36aC-41 (lambda (arg-1 arg-2 arg-3) (let ((sc0 (PreludeC-45Types-u--C-62_Ord_C-40MaybeC-32C-36aC-41 arg-1 arg-2 arg-3))) (cond ((equal? sc0 1) arg-2) (else arg-3))))) +(define PreludeC-45Types-u--max_Ord_C-40ListC-32C-36aC-41 (lambda (arg-1 arg-2 arg-3) (let ((sc0 (PreludeC-45Types-u--C-62_Ord_C-40ListC-32C-36aC-41 arg-1 arg-2 arg-3))) (cond ((equal? sc0 1) arg-2) (else arg-3))))) +(define PreludeC-45Types-u--map_Functor_Maybe (lambda (arg-2 arg-3) (if (null? arg-3) '() (let ((e-1 (unbox arg-3))) (box (arg-2 e-1)))))) +(define PreludeC-45Types-u--map_Functor_List (lambda (arg-2 arg-3) (if (null? arg-3) '() (let ((e-2 (car arg-3))) (let ((e-3 (cdr arg-3))) (cons (arg-2 e-2) (PreludeC-45Types-u--map_Functor_List arg-2 e-3))))))) (define PreludeC-45Types-u--join_Monad_Maybe (lambda (arg-1) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe arg-1 (lambda (eta-0) eta-0)))) (define PreludeC-45Types-u--join_Monad_List (lambda (arg-1) (PreludeC-45Types-u--C-62C-62C-61_Monad_List arg-1 (lambda (eta-0) eta-0)))) (define PreludeC-45Types-u--join_Monad_C-40EitherC-32C-36eC-41 (lambda (arg-2) (PreludeC-45Types-u--C-62C-62C-61_Monad_C-40EitherC-32C-36eC-41 arg-2 (lambda (eta-0) eta-0)))) (define PreludeC-45Types-u--fromInteger_Num_Nat (lambda (arg-0) (PreludeC-45Types-prim__integerToNat arg-0))) -(define PreludeC-45Types-u--foldr_Foldable_Maybe (lambda (arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) arg-3) (else (let ((e-2 (vector-ref sc0 1))) ((arg-2 e-2) arg-3))))))) -(define PreludeC-45Types-u--foldr_Foldable_List (lambda (arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (if (null? sc0) arg-3 (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) ((arg-2 e-2) (PreludeC-45Types-u--foldr_Foldable_List arg-2 arg-3 e-3)))))))) -(define PreludeC-45Types-u--foldr_Foldable_C-40EitherC-32C-36eC-41 (lambda (arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) arg-4) (else (let ((e-5 (vector-ref sc0 1))) ((arg-3 e-5) arg-4))))))) +(define PreludeC-45Types-u--foldr_Foldable_Maybe (lambda (arg-2 arg-3 arg-4) (if (null? arg-4) arg-3 (let ((e-2 (unbox arg-4))) ((arg-2 e-2) arg-3))))) +(define PreludeC-45Types-u--foldr_Foldable_List (lambda (arg-2 arg-3 arg-4) (if (null? arg-4) arg-3 (let ((e-2 (car arg-4))) (let ((e-3 (cdr arg-4))) ((arg-2 e-2) (PreludeC-45Types-u--foldr_Foldable_List arg-2 arg-3 e-3))))))) +(define PreludeC-45Types-u--foldr_Foldable_C-40EitherC-32C-36eC-41 (lambda (arg-3 arg-4 arg-5) (case (vector-ref arg-5 0) ((0) arg-4) (else (let ((e-5 (vector-ref arg-5 1))) ((arg-3 e-5) arg-4)))))) (define PreludeC-45Types-u--foldl_Foldable_Maybe (lambda (arg-2 arg-3 arg-4) ((PreludeC-45Types-u--foldr_Foldable_Maybe (lambda (eta-0) (lambda (eta-1) (PreludeC-45Basics-flip (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (eta-2 (eta-3 eta-4))))) (lambda (eta-2) (PreludeC-45Basics-flip arg-2 eta-0 eta-2)) eta-1))) (lambda (eta-0) eta-0) arg-4) arg-3))) -(define PreludeC-45Types-u--foldl_Foldable_List (lambda (arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (if (null? sc0) arg-3 (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (PreludeC-45Types-u--foldl_Foldable_List arg-2 ((arg-2 arg-3) e-2) e-3))))))) +(define PreludeC-45Types-u--foldl_Foldable_List (lambda (arg-2 arg-3 arg-4) (if (null? arg-4) arg-3 (let ((e-2 (car arg-4))) (let ((e-3 (cdr arg-4))) (PreludeC-45Types-u--foldl_Foldable_List arg-2 ((arg-2 arg-3) e-2) e-3)))))) (define PreludeC-45Types-u--foldl_Foldable_C-40EitherC-32C-36eC-41 (lambda (arg-3 arg-4 arg-5) ((PreludeC-45Types-u--foldr_Foldable_C-40EitherC-32C-36eC-41 (lambda (eta-0) (lambda (eta-1) (PreludeC-45Basics-flip (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (eta-2 (eta-3 eta-4))))) (lambda (eta-2) (PreludeC-45Basics-flip arg-3 eta-0 eta-2)) eta-1))) (lambda (eta-0) eta-0) arg-5) arg-4))) -(define PreludeC-45Types-u--foldlM_Foldable_Maybe (lambda (arg-3 arg-4 arg-5 ext-0) (PreludeC-45Types-u--foldl_Foldable_Maybe (lambda (u--ma) (lambda (u--b) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) u--ma) (lambda (eta-0) (PreludeC-45Basics-flip arg-4 u--b eta-0))))))) (let ((sc0 arg-3)) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 2))) ((e-5 'erased) arg-5))))) ext-0))) -(define PreludeC-45Types-u--foldlM_Foldable_List (lambda (arg-3 arg-4 arg-5 ext-0) (PreludeC-45Types-u--foldl_Foldable_List (lambda (u--ma) (lambda (u--b) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) u--ma) (lambda (eta-0) (PreludeC-45Basics-flip arg-4 u--b eta-0))))))) (let ((sc0 arg-3)) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 2))) ((e-5 'erased) arg-5))))) ext-0))) -(define PreludeC-45Types-u--foldlM_Foldable_C-40EitherC-32C-36eC-41 (lambda (arg-4 arg-5 arg-6 ext-0) (PreludeC-45Types-u--foldl_Foldable_C-40EitherC-32C-36eC-41 (lambda (u--ma) (lambda (u--b) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) u--ma) (lambda (eta-0) (PreludeC-45Basics-flip arg-5 u--b eta-0))))))) (let ((sc0 arg-4)) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 2))) ((e-5 'erased) arg-6))))) ext-0))) -(define PreludeC-45Types-u--empty_Alternative_Maybe (lambda () (vector 0 ))) +(define PreludeC-45Types-u--foldlM_Foldable_Maybe (lambda (arg-3 arg-4 arg-5 ext-0) (PreludeC-45Types-u--foldl_Foldable_Maybe (lambda (u--ma) (lambda (u--b) (let ((e-2 (vector-ref arg-3 1))) ((((e-2 'erased) 'erased) u--ma) (lambda (eta-0) (PreludeC-45Basics-flip arg-4 u--b eta-0)))))) (let ((e-1 (vector-ref arg-3 0))) (let ((e-5 (vector-ref e-1 1))) ((e-5 'erased) arg-5))) ext-0))) +(define PreludeC-45Types-u--foldlM_Foldable_List (lambda (arg-3 arg-4 arg-5 ext-0) (PreludeC-45Types-u--foldl_Foldable_List (lambda (u--ma) (lambda (u--b) (let ((e-2 (vector-ref arg-3 1))) ((((e-2 'erased) 'erased) u--ma) (lambda (eta-0) (PreludeC-45Basics-flip arg-4 u--b eta-0)))))) (let ((e-1 (vector-ref arg-3 0))) (let ((e-5 (vector-ref e-1 1))) ((e-5 'erased) arg-5))) ext-0))) +(define PreludeC-45Types-u--foldlM_Foldable_C-40EitherC-32C-36eC-41 (lambda (arg-4 arg-5 arg-6 ext-0) (PreludeC-45Types-u--foldl_Foldable_C-40EitherC-32C-36eC-41 (lambda (u--ma) (lambda (u--b) (let ((e-2 (vector-ref arg-4 1))) ((((e-2 'erased) 'erased) u--ma) (lambda (eta-0) (PreludeC-45Basics-flip arg-5 u--b eta-0)))))) (let ((e-1 (vector-ref arg-4 0))) (let ((e-5 (vector-ref e-1 1))) ((e-5 'erased) arg-6))) ext-0))) +(define PreludeC-45Types-u--foldMap_Foldable_Maybe (lambda (arg-2 arg-3 ext-0) (PreludeC-45Types-u--foldr_Foldable_Maybe (lambda (eta-0) (lambda (eta-1) (let ((e-1 (car arg-2))) ((e-1 (arg-3 eta-0)) eta-1)))) (let ((e-2 (cdr arg-2))) e-2) ext-0))) +(define PreludeC-45Types-u--foldMap_Foldable_List (lambda (arg-2 arg-3 ext-0) (PreludeC-45Types-u--foldl_Foldable_List (lambda (u--acc) (lambda (u--elem) (let ((e-1 (car arg-2))) ((e-1 u--acc) (arg-3 u--elem))))) (let ((e-2 (cdr arg-2))) e-2) ext-0))) +(define PreludeC-45Types-u--foldMap_Foldable_C-40EitherC-32C-36eC-41 (lambda (arg-3 arg-4 ext-0) (PreludeC-45Types-u--foldr_Foldable_C-40EitherC-32C-36eC-41 (lambda (eta-0) (lambda (eta-1) (let ((e-1 (car arg-3))) ((e-1 (arg-4 eta-0)) eta-1)))) (let ((e-2 (cdr arg-3))) e-2) ext-0))) +(define PreludeC-45Types-u--empty_Alternative_Maybe (lambda () '())) (define PreludeC-45Types-u--empty_Alternative_List (lambda () '())) -(define PreludeC-45Types-u--compare_Ord_Nat (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (cond ((equal? sc0 0) (let ((sc1 arg-1)) (cond ((equal? sc1 0) 1)(else 0))))(else (let ((e-0 (- arg-0 1))) (let ((sc0 arg-1)) (cond ((equal? sc0 0) 2)(else (let ((e-2 (- arg-1 1))) (PreludeC-45Types-u--compare_Ord_Nat e-0 e-2))))))))))) -(define PreludeC-45Types-u--compare_Ord_C-40MaybeC-32C-36aC-41 (lambda (arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) 1) (else 0)))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) 2) (else (let ((e-8 (vector-ref sc1 1))) (let ((sc2 arg-1)) (let ((e-10 (vector-ref sc2 2))) ((e-10 e-2) e-8))))))))))))) -(define PreludeC-45Types-u--compare_Ord_C-40ListC-32C-36aC-41 (lambda (arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (if (null? sc0) (let ((sc1 arg-3)) (if (null? sc1) 1 0)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 arg-3)) (if (null? sc1) 2 (let ((e-10 (car sc1))) (let ((e-11 (cdr sc1))) (PreludeC-45Types-case--compare-4580 arg-1 e-2 e-3 e-10 e-11 (let ((sc2 arg-1)) (let ((e-12 (vector-ref sc2 2))) ((e-12 e-2) e-10)))))))))))))) +(define PreludeC-45Types-u--compare_Ord_Nat (lambda (arg-0 arg-1) (cond ((equal? arg-0 0) (cond ((equal? arg-1 0) 1)(else 0)))(else (let ((e-0 (- arg-0 1))) (cond ((equal? arg-1 0) 2)(else (let ((e-2 (- arg-1 1))) (PreludeC-45Types-u--compare_Ord_Nat e-0 e-2))))))))) +(define PreludeC-45Types-u--compare_Ord_C-40MaybeC-32C-36aC-41 (lambda (arg-1 arg-2 arg-3) (if (null? arg-2) (if (null? arg-3) 1 0) (let ((e-2 (unbox arg-2))) (if (null? arg-3) 2 (let ((e-8 (unbox arg-3))) (let ((e-10 (vector-ref arg-1 1))) ((e-10 e-2) e-8)))))))) +(define PreludeC-45Types-u--compare_Ord_C-40ListC-32C-36aC-41 (lambda (arg-1 arg-2 arg-3) (if (null? arg-2) (if (null? arg-3) 1 0) (let ((e-2 (car arg-2))) (let ((e-3 (cdr arg-2))) (if (null? arg-3) 2 (let ((e-10 (car arg-3))) (let ((e-11 (cdr arg-3))) (PreludeC-45Types-case--compare-3918 arg-1 e-2 e-3 e-10 e-11 (let ((e-12 (vector-ref arg-1 1))) ((e-12 e-2) e-10))))))))))) (define PreludeC-45Types-u--C-62_Ord_Nat (lambda (arg-0 arg-1) (PreludeC-45EqOrd-u--C-61C-61_Eq_Ordering (PreludeC-45Types-u--compare_Ord_Nat arg-0 arg-1) 2))) -(define PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (lambda (arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (arg-3 e-2))))))) -(define PreludeC-45Types-u--C-62C-62C-61_Monad_List (lambda (arg-2 arg-3) (PreludeC-45Interfaces-concatMap (cons (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (cons (lambda (arg-4) (lambda (arg-5) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-4 arg-5))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) arg-3 arg-2))) -(define PreludeC-45Types-u--C-62C-62C-61_Monad_C-40EitherC-32C-36eC-41 (lambda (arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (arg-4 e-5))))))) +(define PreludeC-45Types-u--C-62_Ord_C-40MaybeC-32C-36aC-41 (lambda (arg-1 arg-2 arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Ordering (PreludeC-45Types-u--compare_Ord_C-40MaybeC-32C-36aC-41 arg-1 arg-2 arg-3) 2))) +(define PreludeC-45Types-u--C-62_Ord_C-40ListC-32C-36aC-41 (lambda (arg-1 arg-2 arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Ordering (PreludeC-45Types-u--compare_Ord_C-40ListC-32C-36aC-41 arg-1 arg-2 arg-3) 2))) +(define PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (lambda (arg-2 arg-3) (if (null? arg-2) '() (let ((e-2 (unbox arg-2))) (arg-3 e-2))))) +(define PreludeC-45Types-u--C-62C-62C-61_Monad_List (lambda (arg-2 arg-3) (PreludeC-45Interfaces-concatMap (cons (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (cons (lambda (arg-4) (lambda (arg-5) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-4 arg-5))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) arg-3 arg-2))) +(define PreludeC-45Types-u--C-62C-62C-61_Monad_C-40EitherC-32C-36eC-41 (lambda (arg-3 arg-4) (case (vector-ref arg-3 0) ((0) (let ((e-2 (vector-ref arg-3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref arg-3 1))) (arg-4 e-5)))))) (define PreludeC-45Types-u--C-62C-61_Ord_Nat (lambda (arg-0 arg-1) (PreludeC-45EqOrd-u--C-47C-61_Eq_Ordering (PreludeC-45Types-u--compare_Ord_Nat arg-0 arg-1) 0))) -(define PreludeC-45Types-u--C-61C-61_Eq_Nat (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (cond ((equal? sc0 0) (let ((sc1 arg-1)) (cond ((equal? sc1 0) 0)(else 1))))(else (let ((e-0 (- arg-0 1))) (let ((sc0 arg-1)) (cond ((equal? sc0 0) 1)(else (let ((e-1 (- arg-1 1))) (PreludeC-45Types-u--C-61C-61_Eq_Nat e-0 e-1))))))))))) -(define PreludeC-45Types-u--C-61C-61_Eq_C-40MaybeC-32C-36aC-41 (lambda (arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) 0) (else 1)))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) 1) (else (let ((e-8 (vector-ref sc1 1))) (let ((sc2 arg-1)) (let ((e-1 (car sc2))) ((e-1 e-2) e-8))))))))))))) -(define PreludeC-45Types-u--C-61C-61_Eq_C-40ListC-32C-36aC-41 (lambda (arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (if (null? sc0) (let ((sc1 arg-3)) (if (null? sc1) 0 1)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 arg-3)) (if (null? sc1) 1 (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (PreludeC-45Basics-C-38C-38 (let ((sc2 arg-1)) (let ((e-1 (car sc2))) ((e-1 e-2) e-6))) (lambda () (PreludeC-45Types-u--C-61C-61_Eq_C-40ListC-32C-36aC-41 arg-1 e-3 e-7))))))))))))) -(define PreludeC-45Types-u--C-60C-124C-62_Alternative_Maybe (lambda (arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (vector 1 e-1))) (else (arg-2)))))) +(define PreludeC-45Types-u--C-62C-61_Ord_C-40MaybeC-32C-36aC-41 (lambda (arg-1 arg-2 arg-3) (PreludeC-45EqOrd-u--C-47C-61_Eq_Ordering (PreludeC-45Types-u--compare_Ord_C-40MaybeC-32C-36aC-41 arg-1 arg-2 arg-3) 0))) +(define PreludeC-45Types-u--C-62C-61_Ord_C-40ListC-32C-36aC-41 (lambda (arg-1 arg-2 arg-3) (PreludeC-45EqOrd-u--C-47C-61_Eq_Ordering (PreludeC-45Types-u--compare_Ord_C-40ListC-32C-36aC-41 arg-1 arg-2 arg-3) 0))) +(define PreludeC-45Types-u--C-61C-61_Eq_Nat (lambda (arg-0 arg-1) (cond ((equal? arg-0 0) (cond ((equal? arg-1 0) 1)(else 0)))(else (let ((e-0 (- arg-0 1))) (cond ((equal? arg-1 0) 0)(else (let ((e-1 (- arg-1 1))) (PreludeC-45Types-u--C-61C-61_Eq_Nat e-0 e-1))))))))) +(define PreludeC-45Types-u--C-61C-61_Eq_C-40MaybeC-32C-36aC-41 (lambda (arg-1 arg-2 arg-3) (if (null? arg-2) (if (null? arg-3) 1 0) (let ((e-2 (unbox arg-2))) (if (null? arg-3) 0 (let ((e-8 (unbox arg-3))) (let ((e-1 (car arg-1))) ((e-1 e-2) e-8)))))))) +(define PreludeC-45Types-u--C-61C-61_Eq_C-40ListC-32C-36aC-41 (lambda (arg-1 arg-2 arg-3) (if (null? arg-2) (if (null? arg-3) 1 0) (let ((e-2 (car arg-2))) (let ((e-3 (cdr arg-2))) (if (null? arg-3) 0 (let ((e-6 (car arg-3))) (let ((e-7 (cdr arg-3))) (let ((sc2 (let ((e-1 (car arg-1))) ((e-1 e-2) e-6)))) (cond ((equal? sc2 1) (PreludeC-45Types-u--C-61C-61_Eq_C-40ListC-32C-36aC-41 arg-1 e-3 e-7)) (else 0))))))))))) +(define PreludeC-45Types-u--C-60C-124C-62_Alternative_Maybe (lambda (arg-1 arg-2) (if (null? arg-1) (arg-2) (let ((e-1 (unbox arg-1))) (box e-1))))) (define PreludeC-45Types-u--C-60C-124C-62_Alternative_List (lambda (arg-1 arg-2) (PreludeC-45TypesC-45List-C-43C-43 arg-1 (arg-2)))) (define PreludeC-45Types-u--C-60_Ord_Nat (lambda (arg-0 arg-1) (PreludeC-45EqOrd-u--C-61C-61_Eq_Ordering (PreludeC-45Types-u--compare_Ord_Nat arg-0 arg-1) 0))) +(define PreludeC-45Types-u--C-60_Ord_C-40MaybeC-32C-36aC-41 (lambda (arg-1 arg-2 arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Ordering (PreludeC-45Types-u--compare_Ord_C-40MaybeC-32C-36aC-41 arg-1 arg-2 arg-3) 0))) +(define PreludeC-45Types-u--C-60_Ord_C-40ListC-32C-36aC-41 (lambda (arg-1 arg-2 arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Ordering (PreludeC-45Types-u--compare_Ord_C-40ListC-32C-36aC-41 arg-1 arg-2 arg-3) 0))) (define PreludeC-45Types-u--C-60C-61_Ord_Nat (lambda (arg-0 arg-1) (PreludeC-45EqOrd-u--C-47C-61_Eq_Ordering (PreludeC-45Types-u--compare_Ord_Nat arg-0 arg-1) 2))) +(define PreludeC-45Types-u--C-60C-61_Ord_C-40MaybeC-32C-36aC-41 (lambda (arg-1 arg-2 arg-3) (PreludeC-45EqOrd-u--C-47C-61_Eq_Ordering (PreludeC-45Types-u--compare_Ord_C-40MaybeC-32C-36aC-41 arg-1 arg-2 arg-3) 2))) +(define PreludeC-45Types-u--C-60C-61_Ord_C-40ListC-32C-36aC-41 (lambda (arg-1 arg-2 arg-3) (PreludeC-45EqOrd-u--C-47C-61_Eq_Ordering (PreludeC-45Types-u--compare_Ord_C-40ListC-32C-36aC-41 arg-1 arg-2 arg-3) 2))) (define PreludeC-45Types-u--C-60C-43C-62_Semigroup_String (lambda (ext-0 ext-1) (PreludeC-45TypesC-45String-C-43C-43 ext-0 ext-1))) -(define PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40MaybeC-32C-36aC-41 (lambda (arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) arg-2) (else (let ((e-2 (vector-ref sc0 1))) (vector 1 e-2))))))) +(define PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40MaybeC-32C-36aC-41 (lambda (arg-1 arg-2) (if (null? arg-1) arg-2 (let ((e-2 (unbox arg-1))) (box e-2))))) (define PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 (lambda (ext-0 ext-1) (PreludeC-45TypesC-45List-C-43C-43 ext-0 ext-1))) -(define PreludeC-45Types-u--C-60C-42C-62_Applicative_Maybe (lambda (arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (vector 1 (e-1 e-3))))(else (vector 0 ))))))(else (vector 0 )))))) -(define PreludeC-45Types-u--C-60C-42C-62_Applicative_List (lambda (arg-2 arg-3) (PreludeC-45Interfaces-concatMap (cons (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (cons (lambda (arg-4) (lambda (arg-5) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-4 arg-5))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) (lambda (u--f) (PreludeC-45Types-u--map_Functor_List u--f arg-3)) arg-2))) -(define PreludeC-45Types-u--C-47C-61_Eq_Nat (lambda (arg-0 arg-1) (let ((sc0 (PreludeC-45Types-u--C-61C-61_Eq_Nat arg-0 arg-1))) (cond ((equal? sc0 0) 1) (else 0))))) -(define PreludeC-45Types-u--C-47C-61_Eq_C-40MaybeC-32C-36aC-41 (lambda (arg-1 arg-2 arg-3) (let ((sc0 (PreludeC-45Types-u--C-61C-61_Eq_C-40MaybeC-32C-36aC-41 arg-1 arg-2 arg-3))) (cond ((equal? sc0 0) 1) (else 0))))) -(define PreludeC-45Types-u--C-47C-61_Eq_C-40ListC-32C-36aC-41 (lambda (arg-1 arg-2 arg-3) (let ((sc0 (PreludeC-45Types-u--C-61C-61_Eq_C-40ListC-32C-36aC-41 arg-1 arg-2 arg-3))) (cond ((equal? sc0 0) 1) (else 0))))) +(define PreludeC-45Types-u--C-60C-42C-62_Applicative_Maybe (lambda (arg-2 arg-3) (if (null? arg-2) '() (let ((e-1 (unbox arg-2))) (if (null? arg-3) '() (let ((e-3 (unbox arg-3))) (box (e-1 e-3)))))))) +(define PreludeC-45Types-u--C-60C-42C-62_Applicative_List (lambda (arg-2 arg-3) (PreludeC-45Interfaces-concatMap (cons (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (cons (lambda (arg-4) (lambda (arg-5) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-4 arg-5))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) (lambda (u--f) (PreludeC-45Types-u--map_Functor_List u--f arg-3)) arg-2))) +(define PreludeC-45Types-u--C-47C-61_Eq_Nat (lambda (arg-0 arg-1) (let ((sc0 (PreludeC-45Types-u--C-61C-61_Eq_Nat arg-0 arg-1))) (cond ((equal? sc0 1) 0) (else 1))))) +(define PreludeC-45Types-u--C-47C-61_Eq_C-40MaybeC-32C-36aC-41 (lambda (arg-1 arg-2 arg-3) (let ((sc0 (PreludeC-45Types-u--C-61C-61_Eq_C-40MaybeC-32C-36aC-41 arg-1 arg-2 arg-3))) (cond ((equal? sc0 1) 0) (else 1))))) +(define PreludeC-45Types-u--C-47C-61_Eq_C-40ListC-32C-36aC-41 (lambda (arg-1 arg-2 arg-3) (let ((sc0 (PreludeC-45Types-u--C-61C-61_Eq_C-40ListC-32C-36aC-41 arg-1 arg-2 arg-3))) (cond ((equal? sc0 1) 0) (else 1))))) (define PreludeC-45Types-u--C-43_Num_Nat (lambda (ext-0 ext-1) (+ ext-0 ext-1))) (define PreludeC-45Types-u--C-42_Num_Nat (lambda (ext-0 ext-1) (* ext-0 ext-1))) -(define PreludeC-45Types-toUpper (lambda (arg-0) (PreludeC-45Types-case--toUpper-5606 arg-0 (PreludeC-45Types-isLower arg-0)))) -(define PreludeC-45Types-toLower (lambda (arg-0) (PreludeC-45Types-case--toLower-5620 arg-0 (PreludeC-45Types-isUpper arg-0)))) +(define PreludeC-45Types-toUpper (lambda (arg-0) (let ((sc0 (PreludeC-45Types-isLower arg-0))) (cond ((equal? sc0 1) (cast-int-char (PreludeC-45Num-u--C-45_Neg_Int (cast-char-boundedInt arg-0 63) 32))) (else arg-0))))) +(define PreludeC-45Types-toLower (lambda (arg-0) (let ((sc0 (PreludeC-45Types-isUpper arg-0))) (cond ((equal? sc0 1) (cast-int-char (bs+ (cast-char-boundedInt arg-0 63) 32 63))) (else arg-0))))) (define PreludeC-45Types-tan (lambda (arg-0) (fltan arg-0))) -(define PreludeC-45Types-takeUntil (lambda (arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-1 (car sc0))) (let ((e-2 (cdr sc0))) (PreludeC-45Types-case--takeUntil-5779 e-1 e-2 arg-1 (arg-1 e-1))))))) -(define PreludeC-45Types-take (lambda (arg-1 arg-2) (let ((sc0 arg-1)) (cond ((equal? sc0 0) '())(else (let ((e-0 (- arg-1 1))) (let ((sc0 arg-2)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (cons e-2 (PreludeC-45Types-take e-0 (e-3)))))))))))) -(define PreludeC-45Types-substr (lambda (arg-0 arg-1 arg-2) (PreludeC-45Types-case--substr-5421 arg-2 arg-1 arg-0 (PreludeC-45EqOrd-u--C-60_Ord_Integer arg-0 (PreludeC-45TypesC-45String-length arg-2))))) -(define PreludeC-45Types-strUncons (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 "") (vector 0 ))(else (vector 1 (cons (string-ref arg-0 0) (substring arg-0 1 (string-length arg-0))))))))) +(define PreludeC-45Types-takeUntil (lambda (arg-1 arg-2) (let ((e-1 (car arg-2))) (let ((e-2 (cdr arg-2))) (let ((sc1 (arg-1 e-1))) (cond ((equal? sc1 1) (cons e-1 '())) (else (cons e-1 (PreludeC-45Types-takeUntil arg-1 (e-2)))))))))) +(define PreludeC-45Types-take (lambda (arg-1 arg-2) (cond ((equal? arg-1 0) '())(else (let ((e-0 (- arg-1 1))) (let ((e-2 (car arg-2))) (let ((e-3 (cdr arg-2))) (cons e-2 (PreludeC-45Types-take e-0 (e-3)))))))))) +(define PreludeC-45Types-substr (lambda (arg-0 arg-1 arg-2) (let ((sc0 (PreludeC-45EqOrd-u--C-60_Ord_Integer arg-0 (PreludeC-45TypesC-45String-length arg-2)))) (cond ((equal? sc0 1) (string-substr (blodwen-toSignedInt arg-0 63) (blodwen-toSignedInt arg-1 63) arg-2)) (else ""))))) +(define PreludeC-45Types-strUncons (lambda (arg-0) (cond ((equal? arg-0 "") '())(else (box (cons (string-ref arg-0 0) (substring arg-0 1 (string-length arg-0)))))))) (define PreludeC-45Types-strCons (lambda (ext-0 ext-1) (string-cons ext-0 ext-1))) (define PreludeC-45Types-sqrt (lambda (arg-0) (flsqrt arg-0))) (define PreludeC-45Types-sin (lambda (arg-0) (flsin arg-0))) (define PreludeC-45Types-reverse (lambda (ext-0) (string-reverse ext-0))) -(define PreludeC-45Types-prim__integerToNat (lambda (arg-0) (PreludeC-45Types-case--prim__integerToNat-340 arg-0 (let ((sc0 (or (and (<= 0 arg-0) 1) 0))) (cond ((equal? sc0 0) 1)(else 0)))))) +(define PreludeC-45Types-prim__integerToNat (lambda (arg-0) (let ((sc0 (let ((sc1 (or (and (<= 0 arg-0) 1) 0))) (cond ((equal? sc1 0) 0)(else 1))))) (cond ((equal? sc0 1) (Builtin-believe_me arg-0)) (else 0))))) (define PreludeC-45Types-ord (lambda (ext-0) (cast-char-boundedInt ext-0 63))) -(define PreludeC-45Types-minus (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (cond ((equal? sc0 0) 0)(else (let ((sc0 arg-1)) (cond ((equal? sc0 0) arg-0)(else (let ((sc0 arg-0)) (cond ((equal? sc0 0) (blodwen-error-quit "Nat case not covered"))(else (let ((e-0 (- arg-0 1))) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (blodwen-error-quit "Nat case not covered"))(else (let ((e-1 (- arg-1 1))) (PreludeC-45Types-minus e-0 e-1))))))))))))))))) -(define PreludeC-45Types-maybe (lambda (arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (arg-2)) (else (let ((e-2 (vector-ref sc0 1))) ((arg-3) e-2))))))) +(define PreludeC-45Types-maybe (lambda (arg-2 arg-3 arg-4) (if (null? arg-4) (arg-2) (let ((e-2 (unbox arg-4))) ((arg-3) e-2))))) (define PreludeC-45Types-log (lambda (arg-0) (fllog arg-0))) (define PreludeC-45TypesC-45String-length (lambda (arg-0) (PreludeC-45Types-u--fromInteger_Num_Nat (string-length arg-0)))) -(define PreludeC-45TypesC-45List-length (lambda (arg-1) (let ((sc0 arg-1)) (if (null? sc0) 0 (let ((e-3 (cdr sc0))) (+ 1 (PreludeC-45TypesC-45List-length e-3))))))) -(define PreludeC-45Types-isUpper (lambda (arg-0) (PreludeC-45Basics-C-38C-38 (PreludeC-45EqOrd-u--C-62C-61_Ord_Char arg-0 #\A) (lambda () (PreludeC-45EqOrd-u--C-60C-61_Ord_Char arg-0 #\Z))))) -(define PreludeC-45Types-isSpace (lambda (arg-0) (PreludeC-45Basics-C-124C-124 (PreludeC-45EqOrd-u--C-61C-61_Eq_Char arg-0 #\ ) (lambda () (PreludeC-45Basics-C-124C-124 (PreludeC-45EqOrd-u--C-61C-61_Eq_Char arg-0 (integer->char 9)) (lambda () (PreludeC-45Basics-C-124C-124 (PreludeC-45EqOrd-u--C-61C-61_Eq_Char arg-0 (integer->char 13)) (lambda () (PreludeC-45Basics-C-124C-124 (PreludeC-45EqOrd-u--C-61C-61_Eq_Char arg-0 (integer->char 10)) (lambda () (PreludeC-45Basics-C-124C-124 (PreludeC-45EqOrd-u--C-61C-61_Eq_Char arg-0 (integer->char 12)) (lambda () (PreludeC-45Basics-C-124C-124 (PreludeC-45EqOrd-u--C-61C-61_Eq_Char arg-0 (integer->char 11)) (lambda () (PreludeC-45EqOrd-u--C-61C-61_Eq_Char arg-0 (integer->char 160)))))))))))))))) -(define PreludeC-45Types-isOctDigit (lambda (arg-0) (PreludeC-45Basics-C-38C-38 (PreludeC-45EqOrd-u--C-62C-61_Ord_Char arg-0 #\0) (lambda () (PreludeC-45EqOrd-u--C-60C-61_Ord_Char arg-0 #\7))))) -(define PreludeC-45Types-isNL (lambda (arg-0) (PreludeC-45Basics-C-124C-124 (PreludeC-45EqOrd-u--C-61C-61_Eq_Char arg-0 (integer->char 13)) (lambda () (PreludeC-45EqOrd-u--C-61C-61_Eq_Char arg-0 (integer->char 10)))))) -(define PreludeC-45Types-isLower (lambda (arg-0) (PreludeC-45Basics-C-38C-38 (PreludeC-45EqOrd-u--C-62C-61_Ord_Char arg-0 #\a) (lambda () (PreludeC-45EqOrd-u--C-60C-61_Ord_Char arg-0 #\z))))) -(define PreludeC-45Types-isHexDigit (lambda (arg-0) (PreludeC-45Types-elem (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Char arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Char arg-4 arg-5)))) (PreludeC-45Types-toUpper arg-0) (PreludeC-45Types-n--5716-5632-u--hexChars arg-0)))) -(define PreludeC-45Types-isDigit (lambda (arg-0) (PreludeC-45Basics-C-38C-38 (PreludeC-45EqOrd-u--C-62C-61_Ord_Char arg-0 #\0) (lambda () (PreludeC-45EqOrd-u--C-60C-61_Ord_Char arg-0 #\9))))) -(define PreludeC-45Types-isAlphaNum (lambda (arg-0) (PreludeC-45Basics-C-124C-124 (PreludeC-45Types-isDigit arg-0) (lambda () (PreludeC-45Types-isAlpha arg-0))))) -(define PreludeC-45Types-isAlpha (lambda (arg-0) (PreludeC-45Basics-C-124C-124 (PreludeC-45Types-isUpper arg-0) (lambda () (PreludeC-45Types-isLower arg-0))))) -(define PreludeC-45Types-getAt (lambda (arg-1 arg-2) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (let ((sc1 arg-2)) (if (null? sc1) (let ((sc2 arg-2)) (vector 0 )) (let ((e-3 (car sc1))) (vector 1 e-3)))))(else (let ((e-1 (- arg-1 1))) (let ((sc0 arg-2)) (if (null? sc0) (let ((sc1 arg-2)) (vector 0 )) (let ((e-7 (cdr sc0))) (PreludeC-45Types-getAt e-1 e-7)))))))))) +(define PreludeC-45TypesC-45List-length (lambda (arg-1) (if (null? arg-1) 0 (let ((e-3 (cdr arg-1))) (+ 1 (PreludeC-45TypesC-45List-length e-3)))))) +(define PreludeC-45Types-isUpper (lambda (arg-0) (let ((sc0 (PreludeC-45EqOrd-u--C-62C-61_Ord_Char arg-0 #\A))) (cond ((equal? sc0 1) (PreludeC-45EqOrd-u--C-60C-61_Ord_Char arg-0 #\Z)) (else 0))))) +(define PreludeC-45Types-isSpace (lambda (arg-0) (let ((sc0 (PreludeC-45EqOrd-u--C-61C-61_Eq_Char arg-0 #\ ))) (cond ((equal? sc0 1) 1) (else (let ((sc1 (PreludeC-45EqOrd-u--C-61C-61_Eq_Char arg-0 (integer->char 9)))) (cond ((equal? sc1 1) 1) (else (let ((sc2 (PreludeC-45EqOrd-u--C-61C-61_Eq_Char arg-0 (integer->char 13)))) (cond ((equal? sc2 1) 1) (else (let ((sc3 (PreludeC-45EqOrd-u--C-61C-61_Eq_Char arg-0 (integer->char 10)))) (cond ((equal? sc3 1) 1) (else (let ((sc4 (PreludeC-45EqOrd-u--C-61C-61_Eq_Char arg-0 (integer->char 12)))) (cond ((equal? sc4 1) 1) (else (let ((sc5 (PreludeC-45EqOrd-u--C-61C-61_Eq_Char arg-0 (integer->char 11)))) (cond ((equal? sc5 1) 1) (else (PreludeC-45EqOrd-u--C-61C-61_Eq_Char arg-0 (integer->char 160)))))))))))))))))))))) +(define PreludeC-45Types-isOctDigit (lambda (arg-0) (let ((sc0 (PreludeC-45EqOrd-u--C-62C-61_Ord_Char arg-0 #\0))) (cond ((equal? sc0 1) (PreludeC-45EqOrd-u--C-60C-61_Ord_Char arg-0 #\7)) (else 0))))) +(define PreludeC-45Types-isNL (lambda (arg-0) (let ((sc0 (PreludeC-45EqOrd-u--C-61C-61_Eq_Char arg-0 (integer->char 13)))) (cond ((equal? sc0 1) 1) (else (PreludeC-45EqOrd-u--C-61C-61_Eq_Char arg-0 (integer->char 10))))))) +(define PreludeC-45Types-isLower (lambda (arg-0) (let ((sc0 (PreludeC-45EqOrd-u--C-62C-61_Ord_Char arg-0 #\a))) (cond ((equal? sc0 1) (PreludeC-45EqOrd-u--C-60C-61_Ord_Char arg-0 #\z)) (else 0))))) +(define PreludeC-45Types-isHexDigit (lambda (arg-0) (PreludeC-45Types-elem (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Char arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Char arg-4 arg-5)))) (PreludeC-45Types-toUpper arg-0) (PreludeC-45Types-n--5816-4858-u--hexChars arg-0)))) +(define PreludeC-45Types-isDigit (lambda (arg-0) (let ((sc0 (PreludeC-45EqOrd-u--C-62C-61_Ord_Char arg-0 #\0))) (cond ((equal? sc0 1) (PreludeC-45EqOrd-u--C-60C-61_Ord_Char arg-0 #\9)) (else 0))))) +(define PreludeC-45Types-isAlphaNum (lambda (arg-0) (let ((sc0 (PreludeC-45Types-isDigit arg-0))) (cond ((equal? sc0 1) 1) (else (PreludeC-45Types-isAlpha arg-0)))))) +(define PreludeC-45Types-isAlpha (lambda (arg-0) (let ((sc0 (PreludeC-45Types-isUpper arg-0))) (cond ((equal? sc0 1) 1) (else (PreludeC-45Types-isLower arg-0)))))) +(define PreludeC-45Types-getAt (lambda (arg-1 arg-2) (cond ((equal? arg-1 0) (if (null? arg-2) '() (let ((e-3 (car arg-2))) (box e-3))))(else (let ((e-1 (- arg-1 1))) (if (null? arg-2) '() (let ((e-7 (cdr arg-2))) (PreludeC-45Types-getAt e-1 e-7)))))))) (define PreludeC-45Types-floor (lambda (arg-0) (flfloor arg-0))) (define PreludeC-45Types-exp (lambda (arg-0) (flexp arg-0))) -(define PreludeC-45Types-elem (lambda (arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (if (null? sc0) 1 (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (PreludeC-45Basics-C-124C-124 (let ((sc1 arg-1)) (let ((e-1 (car sc1))) ((e-1 arg-2) e-2))) (lambda () (PreludeC-45Types-elem arg-1 arg-2 e-3))))))))) -(define PreludeC-45Types-either (lambda (arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) ((arg-3) e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((arg-4) e-5))))))) +(define PreludeC-45Types-elem (lambda (arg-1 arg-2 arg-3) (if (null? arg-3) 0 (let ((e-2 (car arg-3))) (let ((e-3 (cdr arg-3))) (let ((sc1 (let ((e-1 (car arg-1))) ((e-1 arg-2) e-2)))) (cond ((equal? sc1 1) 1) (else (PreludeC-45Types-elem arg-1 arg-2 e-3))))))))) +(define PreludeC-45Types-either (lambda (arg-3 arg-4 arg-5) (case (vector-ref arg-5 0) ((0) (let ((e-2 (vector-ref arg-5 1))) ((arg-3) e-2))) (else (let ((e-5 (vector-ref arg-5 1))) ((arg-4) e-5)))))) (define PreludeC-45Types-countFrom (lambda (arg-1 arg-2) (cons arg-1 (lambda () (PreludeC-45Types-countFrom (arg-2 arg-1) arg-2))))) -(define PreludeC-45Types-count (lambda (arg-2 arg-3 ext-0) (let ((sc0 arg-2)) (let ((e-1 (vector-ref sc0 1))) (((((e-1 'erased) 'erased) (lambda (u--v) (lambda (eta-0) (PreludeC-45Types-case--count-567 arg-2 arg-3 u--v (arg-3 u--v) eta-0)))) 0) ext-0))))) +(define PreludeC-45Types-count (lambda (arg-2 arg-3 ext-0) (let ((e-6 (vector-ref arg-2 5))) (((((e-6 'erased) 'erased) (cons (lambda (arg-4) (lambda (arg-5) (PreludeC-45InterfacesC-45NumC-45Semigroup-u--C-60C-43C-62_Semigroup_AdditiveC-36a (vector (lambda (arg-6) (lambda (arg-7) (PreludeC-45Types-u--C-43_Num_Nat arg-6 arg-7))) (lambda (arg-6) (lambda (arg-7) (PreludeC-45Types-u--C-42_Num_Nat arg-6 arg-7))) (lambda (arg-6) (PreludeC-45Types-u--fromInteger_Num_Nat arg-6))) arg-4 arg-5))) (PreludeC-45InterfacesC-45NumC-45Monoid-u--neutral_Monoid_AdditiveC-36a (vector (lambda (arg-4) (lambda (arg-5) (PreludeC-45Types-u--C-43_Num_Nat arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45Types-u--C-42_Num_Nat arg-4 arg-5))) (lambda (arg-6) (PreludeC-45Types-u--fromInteger_Num_Nat arg-6)))))) (lambda (u--x) (let ((sc0 (arg-3 u--x))) (cond ((equal? sc0 1) (+ 1 0)) (else 0))))) ext-0)))) (define PreludeC-45Types-cos (lambda (arg-0) (flcos arg-0))) (define PreludeC-45Types-chr (lambda (ext-0) (cast-int-char ext-0))) (define PreludeC-45Types-ceiling (lambda (arg-0) (flceiling arg-0))) @@ -841,149 +828,126 @@ (define PreludeC-45Types-asin (lambda (arg-0) (flasin arg-0))) (define PreludeC-45Types-acos (lambda (arg-0) (flacos arg-0))) (define PreludeC-45TypesC-45String-C-43C-43 (lambda (arg-0 arg-1) (string-append arg-0 arg-1))) -(define PreludeC-45TypesC-45List-C-43C-43 (lambda (arg-1 arg-2) (let ((sc0 arg-1)) (if (null? sc0) arg-2 (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (cons e-2 (PreludeC-45TypesC-45List-C-43C-43 e-3 arg-2)))))))) -(define PreludeC-45Num-case--mod-460 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 1) (remainder arg-1 arg-0))(else (Builtin-idris_crash "Unhandled input for Prelude.Num.case block in mod at Prelude/Num.idr:121:3--123:40")))))) -(define PreludeC-45Num-case--div-441 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 1) (bs/ arg-1 arg-0 63))(else (Builtin-idris_crash "Unhandled input for Prelude.Num.case block in div at Prelude/Num.idr:118:3--120:40")))))) -(define PreludeC-45Num-case--abs-409 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (PreludeC-45Num-u--negate_Neg_Int arg-0)) (else arg-0))))) -(define PreludeC-45Num-case--mod-338 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 1) (remainder arg-1 arg-0))(else (Builtin-idris_crash "Unhandled input for Prelude.Num.case block in mod at Prelude/Num.idr:85:3--87:44")))))) -(define PreludeC-45Num-case--div-319 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 1) (quotient arg-1 arg-0))(else (Builtin-idris_crash "Unhandled input for Prelude.Num.case block in div at Prelude/Num.idr:82:3--84:44")))))) -(define PreludeC-45Num-case--abs-287 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (PreludeC-45Num-u--negate_Neg_Integer arg-0)) (else arg-0))))) +(define PreludeC-45TypesC-45List-C-43C-43 (lambda (arg-1 arg-2) (if (null? arg-1) arg-2 (let ((e-2 (car arg-1))) (let ((e-3 (cdr arg-1))) (cons e-2 (PreludeC-45TypesC-45List-C-43C-43 e-3 arg-2))))))) (define PreludeC-45Num-u--negate_Neg_Integer (lambda (arg-0) (- 0 arg-0))) (define PreludeC-45Num-u--negate_Neg_Int (lambda (arg-0) (bs- 0 arg-0 63))) (define PreludeC-45Num-u--negate_Neg_Double (lambda (arg-0) (- arg-0))) -(define PreludeC-45Num-u--mod_Integral_Integer (lambda (arg-0 arg-1) (PreludeC-45Num-case--mod-338 arg-1 arg-0 (PreludeC-45EqOrd-u--C-61C-61_Eq_Integer arg-1 0)))) -(define PreludeC-45Num-u--mod_Integral_Int (lambda (arg-0 arg-1) (PreludeC-45Num-case--mod-460 arg-1 arg-0 (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-1 (blodwen-toSignedInt 0 63))))) +(define PreludeC-45Num-u--mod_Integral_Integer (lambda (arg-0 arg-1) (let ((sc0 (PreludeC-45EqOrd-u--C-61C-61_Eq_Integer arg-1 0))) (cond ((equal? sc0 0) (remainder arg-0 arg-1))(else (Builtin-idris_crash "Unhandled input for Prelude.Num.case block in mod at Prelude.Num:85:3--87:44")))))) +(define PreludeC-45Num-u--mod_Integral_Int (lambda (arg-0 arg-1) (let ((sc0 (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-1 (blodwen-toSignedInt 0 63)))) (cond ((equal? sc0 0) (remainder arg-0 arg-1))(else (Builtin-idris_crash "Unhandled input for Prelude.Num.case block in mod at Prelude.Num:121:3--123:40")))))) (define PreludeC-45Num-u--fromInteger_Num_Double (lambda (ext-0) (exact->inexact ext-0))) -(define PreludeC-45Num-u--div_Integral_Integer (lambda (arg-0 arg-1) (PreludeC-45Num-case--div-319 arg-1 arg-0 (PreludeC-45EqOrd-u--C-61C-61_Eq_Integer arg-1 0)))) -(define PreludeC-45Num-u--div_Integral_Int (lambda (arg-0 arg-1) (PreludeC-45Num-case--div-441 arg-1 arg-0 (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-1 (blodwen-toSignedInt 0 63))))) -(define PreludeC-45Num-u--abs_Abs_Integer (lambda (arg-0) (PreludeC-45Num-case--abs-287 arg-0 (PreludeC-45EqOrd-u--C-60_Ord_Integer arg-0 0)))) -(define PreludeC-45Num-u--abs_Abs_Int (lambda (arg-0) (PreludeC-45Num-case--abs-409 arg-0 (PreludeC-45EqOrd-u--C-60_Ord_Int arg-0 (blodwen-toSignedInt 0 63))))) +(define PreludeC-45Num-u--div_Integral_Integer (lambda (arg-0 arg-1) (let ((sc0 (PreludeC-45EqOrd-u--C-61C-61_Eq_Integer arg-1 0))) (cond ((equal? sc0 0) (quotient arg-0 arg-1))(else (Builtin-idris_crash "Unhandled input for Prelude.Num.case block in div at Prelude.Num:82:3--84:44")))))) +(define PreludeC-45Num-u--div_Integral_Int (lambda (arg-0 arg-1) (let ((sc0 (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-1 (blodwen-toSignedInt 0 63)))) (cond ((equal? sc0 0) (bs/ arg-0 arg-1 63))(else (Builtin-idris_crash "Unhandled input for Prelude.Num.case block in div at Prelude.Num:118:3--120:40")))))) +(define PreludeC-45Num-u--abs_Abs_Integer (lambda (arg-0) (let ((sc0 (PreludeC-45EqOrd-u--C-60_Ord_Integer arg-0 0))) (cond ((equal? sc0 1) (PreludeC-45Num-u--negate_Neg_Integer arg-0)) (else arg-0))))) +(define PreludeC-45Num-u--abs_Abs_Int (lambda (arg-0) (let ((sc0 (PreludeC-45EqOrd-u--C-60_Ord_Int arg-0 (blodwen-toSignedInt 0 63)))) (cond ((equal? sc0 1) (PreludeC-45Num-u--negate_Neg_Int arg-0)) (else arg-0))))) (define PreludeC-45Num-u--C-47_Fractional_Double (lambda (ext-0 ext-1) (/ ext-0 ext-1))) (define PreludeC-45Num-u--C-45_Neg_Integer (lambda (ext-0 ext-1) (- ext-0 ext-1))) (define PreludeC-45Num-u--C-45_Neg_Int (lambda (ext-0 ext-1) (bs- ext-0 ext-1 63))) (define PreludeC-45Num-u--C-45_Neg_Double (lambda (ext-0 ext-1) (- ext-0 ext-1))) (define PreludeC-45Num-u--C-43_Num_Double (lambda (ext-0 ext-1) (+ ext-0 ext-1))) (define PreludeC-45Num-u--C-42_Num_Double (lambda (ext-0 ext-1) (* ext-0 ext-1))) -(define PreludeC-45EqOrd-case--compare-2410 (lambda (arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (cond ((equal? sc0 0) (let ((sc1 arg-2)) (let ((e-2 (vector-ref sc1 2))) ((e-2 arg-4) arg-6)))) (else (let ((sc1 arg-3)) (let ((e-2 (vector-ref sc1 2))) ((e-2 arg-5) arg-7)))))))) -(define PreludeC-45EqOrd-case--max-2285 (lambda (arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) arg-5) (else arg-4))))) -(define PreludeC-45EqOrd-case--min-2243 (lambda (arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) arg-5) (else arg-4))))) -(define PreludeC-45EqOrd-case--caseC-32blockC-32inC-32compare-1993 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) 1) (else 2))))) -(define PreludeC-45EqOrd-case--compare-1976 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) 0) (else (PreludeC-45EqOrd-case--caseC-32blockC-32inC-32compare-1993 arg-0 arg-1 (PreludeC-45EqOrd-u--C-61C-61_Eq_String arg-1 arg-0))))))) -(define PreludeC-45EqOrd-case--max-1959 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0))))) -(define PreludeC-45EqOrd-case--min-1945 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0))))) -(define PreludeC-45EqOrd-case--caseC-32blockC-32inC-32compare-1879 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) 1) (else 2))))) -(define PreludeC-45EqOrd-case--compare-1862 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) 0) (else (PreludeC-45EqOrd-case--caseC-32blockC-32inC-32compare-1879 arg-0 arg-1 (PreludeC-45EqOrd-u--C-61C-61_Eq_Double arg-1 arg-0))))))) -(define PreludeC-45EqOrd-case--caseC-32blockC-32inC-32compare-1309 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) 1) (else 2))))) -(define PreludeC-45EqOrd-case--compare-1292 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) 0) (else (PreludeC-45EqOrd-case--caseC-32blockC-32inC-32compare-1309 arg-0 arg-1 (PreludeC-45EqOrd-u--C-61C-61_Eq_Integer arg-1 arg-0))))))) -(define PreludeC-45EqOrd-case--max-1275 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0))))) -(define PreludeC-45EqOrd-case--min-1261 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0))))) -(define PreludeC-45EqOrd-case--caseC-32blockC-32inC-32compare-1195 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) 1) (else 2))))) -(define PreludeC-45EqOrd-case--compare-1178 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) 0) (else (PreludeC-45EqOrd-case--caseC-32blockC-32inC-32compare-1195 arg-0 arg-1 (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-1 arg-0))))))) -(define PreludeC-45EqOrd-case--max-1161 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0))))) -(define PreludeC-45EqOrd-case--min-1147 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0))))) -(define PreludeC-45EqOrd-case--max-1053 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0))))) -(define PreludeC-45EqOrd-case--min-1039 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0))))) -(define PreludeC-45EqOrd-u--min_Ord_String (lambda (arg-0 arg-1) (PreludeC-45EqOrd-case--min-1945 arg-1 arg-0 (PreludeC-45EqOrd-u--C-60_Ord_String arg-0 arg-1)))) -(define PreludeC-45EqOrd-u--min_Ord_Integer (lambda (arg-0 arg-1) (PreludeC-45EqOrd-case--min-1261 arg-1 arg-0 (PreludeC-45EqOrd-u--C-60_Ord_Integer arg-0 arg-1)))) -(define PreludeC-45EqOrd-u--min_Ord_Int (lambda (arg-0 arg-1) (PreludeC-45EqOrd-case--min-1147 arg-1 arg-0 (PreludeC-45EqOrd-u--C-60_Ord_Int arg-0 arg-1)))) -(define PreludeC-45EqOrd-u--min_Ord_Bool (lambda (arg-0 arg-1) (PreludeC-45EqOrd-case--min-1039 arg-1 arg-0 (PreludeC-45EqOrd-u--C-60_Ord_Bool arg-0 arg-1)))) -(define PreludeC-45EqOrd-u--min_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (lambda (arg-2 arg-3 arg-4 arg-5) (PreludeC-45EqOrd-case--min-2243 arg-2 arg-3 arg-5 arg-4 (PreludeC-45EqOrd-u--C-60_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 arg-2 arg-3 arg-4 arg-5)))) -(define PreludeC-45EqOrd-u--max_Ord_String (lambda (arg-0 arg-1) (PreludeC-45EqOrd-case--max-1959 arg-1 arg-0 (PreludeC-45EqOrd-u--C-62_Ord_String arg-0 arg-1)))) -(define PreludeC-45EqOrd-u--max_Ord_Integer (lambda (arg-0 arg-1) (PreludeC-45EqOrd-case--max-1275 arg-1 arg-0 (PreludeC-45EqOrd-u--C-62_Ord_Integer arg-0 arg-1)))) -(define PreludeC-45EqOrd-u--max_Ord_Int (lambda (arg-0 arg-1) (PreludeC-45EqOrd-case--max-1161 arg-1 arg-0 (PreludeC-45EqOrd-u--C-62_Ord_Int arg-0 arg-1)))) -(define PreludeC-45EqOrd-u--max_Ord_Bool (lambda (arg-0 arg-1) (PreludeC-45EqOrd-case--max-1053 arg-1 arg-0 (PreludeC-45EqOrd-u--C-62_Ord_Bool arg-0 arg-1)))) -(define PreludeC-45EqOrd-u--max_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (lambda (arg-2 arg-3 arg-4 arg-5) (PreludeC-45EqOrd-case--max-2285 arg-2 arg-3 arg-5 arg-4 (PreludeC-45EqOrd-u--C-62_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 arg-2 arg-3 arg-4 arg-5)))) -(define PreludeC-45EqOrd-u--compare_Ord_String (lambda (arg-0 arg-1) (PreludeC-45EqOrd-case--compare-1976 arg-1 arg-0 (PreludeC-45EqOrd-u--C-60_Ord_String arg-0 arg-1)))) -(define PreludeC-45EqOrd-u--compare_Ord_Integer (lambda (arg-0 arg-1) (PreludeC-45EqOrd-case--compare-1292 arg-1 arg-0 (PreludeC-45EqOrd-u--C-60_Ord_Integer arg-0 arg-1)))) -(define PreludeC-45EqOrd-u--compare_Ord_Int (lambda (arg-0 arg-1) (PreludeC-45EqOrd-case--compare-1178 arg-1 arg-0 (PreludeC-45EqOrd-u--C-60_Ord_Int arg-0 arg-1)))) -(define PreludeC-45EqOrd-u--compare_Ord_Double (lambda (arg-0 arg-1) (PreludeC-45EqOrd-case--compare-1862 arg-1 arg-0 (PreludeC-45EqOrd-u--C-60_Ord_Double arg-0 arg-1)))) -(define PreludeC-45EqOrd-u--compare_Ord_Bool (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (cond ((equal? sc0 1) (let ((sc1 arg-1)) (cond ((equal? sc1 1) 1) (else 0)))) (else (let ((sc1 arg-1)) (cond ((equal? sc1 1) 2) (else 1)))))))) -(define PreludeC-45EqOrd-u--compare_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (lambda (arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 arg-5)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (PreludeC-45EqOrd-case--compare-2410 arg-2 arg-3 e-2 e-3 e-6 e-7 (let ((sc2 arg-2)) (let ((e-1 (vector-ref sc2 1))) (let ((sc3 e-1)) (let ((e-13 (cdr sc3))) ((e-13 e-2) e-6)))))))))))))) -(define PreludeC-45EqOrd-u--C-62_Ord_String (lambda (arg-0 arg-1) (let ((sc0 (or (and (string>? arg-0 arg-1) 1) 0))) (cond ((equal? sc0 0) 1)(else 0))))) -(define PreludeC-45EqOrd-u--C-62_Ord_Integer (lambda (arg-0 arg-1) (let ((sc0 (or (and (> arg-0 arg-1) 1) 0))) (cond ((equal? sc0 0) 1)(else 0))))) -(define PreludeC-45EqOrd-u--C-62_Ord_Int (lambda (arg-0 arg-1) (let ((sc0 (or (and (> arg-0 arg-1) 1) 0))) (cond ((equal? sc0 0) 1)(else 0))))) -(define PreludeC-45EqOrd-u--C-62_Ord_Double (lambda (arg-0 arg-1) (let ((sc0 (or (and (> arg-0 arg-1) 1) 0))) (cond ((equal? sc0 0) 1)(else 0))))) -(define PreludeC-45EqOrd-u--C-62_Ord_Char (lambda (arg-0 arg-1) (let ((sc0 (or (and (char>? arg-0 arg-1) 1) 0))) (cond ((equal? sc0 0) 1)(else 0))))) +(define PreludeC-45EqOrd-u--min_Ord_String (lambda (arg-0 arg-1) (let ((sc0 (PreludeC-45EqOrd-u--C-60_Ord_String arg-0 arg-1))) (cond ((equal? sc0 1) arg-0) (else arg-1))))) +(define PreludeC-45EqOrd-u--min_Ord_Integer (lambda (arg-0 arg-1) (let ((sc0 (PreludeC-45EqOrd-u--C-60_Ord_Integer arg-0 arg-1))) (cond ((equal? sc0 1) arg-0) (else arg-1))))) +(define PreludeC-45EqOrd-u--min_Ord_Int (lambda (arg-0 arg-1) (let ((sc0 (PreludeC-45EqOrd-u--C-60_Ord_Int arg-0 arg-1))) (cond ((equal? sc0 1) arg-0) (else arg-1))))) +(define PreludeC-45EqOrd-u--min_Ord_Bool (lambda (arg-0 arg-1) (let ((sc0 (PreludeC-45EqOrd-u--C-60_Ord_Bool arg-0 arg-1))) (cond ((equal? sc0 1) arg-0) (else arg-1))))) +(define PreludeC-45EqOrd-u--min_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (lambda (arg-2 arg-3 arg-4 arg-5) (let ((sc0 (PreludeC-45EqOrd-u--C-60_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 arg-2 arg-3 arg-4 arg-5))) (cond ((equal? sc0 1) arg-4) (else arg-5))))) +(define PreludeC-45EqOrd-u--max_Ord_String (lambda (arg-0 arg-1) (let ((sc0 (PreludeC-45EqOrd-u--C-62_Ord_String arg-0 arg-1))) (cond ((equal? sc0 1) arg-0) (else arg-1))))) +(define PreludeC-45EqOrd-u--max_Ord_Integer (lambda (arg-0 arg-1) (let ((sc0 (PreludeC-45EqOrd-u--C-62_Ord_Integer arg-0 arg-1))) (cond ((equal? sc0 1) arg-0) (else arg-1))))) +(define PreludeC-45EqOrd-u--max_Ord_Int (lambda (arg-0 arg-1) (let ((sc0 (PreludeC-45EqOrd-u--C-62_Ord_Int arg-0 arg-1))) (cond ((equal? sc0 1) arg-0) (else arg-1))))) +(define PreludeC-45EqOrd-u--max_Ord_Bool (lambda (arg-0 arg-1) (let ((sc0 (PreludeC-45EqOrd-u--C-62_Ord_Bool arg-0 arg-1))) (cond ((equal? sc0 1) arg-0) (else arg-1))))) +(define PreludeC-45EqOrd-u--max_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (lambda (arg-2 arg-3 arg-4 arg-5) (let ((sc0 (PreludeC-45EqOrd-u--C-62_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 arg-2 arg-3 arg-4 arg-5))) (cond ((equal? sc0 1) arg-4) (else arg-5))))) +(define PreludeC-45EqOrd-u--compare_Ord_String (lambda (arg-0 arg-1) (let ((sc0 (PreludeC-45EqOrd-u--C-60_Ord_String arg-0 arg-1))) (cond ((equal? sc0 1) 0) (else (let ((sc1 (PreludeC-45EqOrd-u--C-61C-61_Eq_String arg-0 arg-1))) (cond ((equal? sc1 1) 1) (else 2)))))))) +(define PreludeC-45EqOrd-u--compare_Ord_Integer (lambda (arg-0 arg-1) (let ((sc0 (PreludeC-45EqOrd-u--C-60_Ord_Integer arg-0 arg-1))) (cond ((equal? sc0 1) 0) (else (let ((sc1 (PreludeC-45EqOrd-u--C-61C-61_Eq_Integer arg-0 arg-1))) (cond ((equal? sc1 1) 1) (else 2)))))))) +(define PreludeC-45EqOrd-u--compare_Ord_Int (lambda (arg-0 arg-1) (let ((sc0 (PreludeC-45EqOrd-u--C-60_Ord_Int arg-0 arg-1))) (cond ((equal? sc0 1) 0) (else (let ((sc1 (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-0 arg-1))) (cond ((equal? sc1 1) 1) (else 2)))))))) +(define PreludeC-45EqOrd-u--compare_Ord_Double (lambda (arg-0 arg-1) (let ((sc0 (PreludeC-45EqOrd-u--C-60_Ord_Double arg-0 arg-1))) (cond ((equal? sc0 1) 0) (else (let ((sc1 (PreludeC-45EqOrd-u--C-61C-61_Eq_Double arg-0 arg-1))) (cond ((equal? sc1 1) 1) (else 2)))))))) +(define PreludeC-45EqOrd-u--compare_Ord_Bool (lambda (arg-0 arg-1) (cond ((equal? arg-0 0) (cond ((equal? arg-1 0) 1) (else 0))) (else (cond ((equal? arg-1 0) 2) (else 1)))))) +(define PreludeC-45EqOrd-u--compare_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (lambda (arg-2 arg-3 arg-4 arg-5) (let ((e-2 (car arg-4))) (let ((e-3 (cdr arg-4))) (let ((e-6 (car arg-5))) (let ((e-7 (cdr arg-5))) (let ((sc2 (let ((e-1 (vector-ref arg-2 0))) (let ((e-13 (cdr e-1))) ((e-13 e-2) e-6))))) (cond ((equal? sc2 1) (let ((e-12 (vector-ref arg-2 1))) ((e-12 e-2) e-6))) (else (let ((e-12 (vector-ref arg-3 1))) ((e-12 e-3) e-7))))))))))) +(define PreludeC-45EqOrd-u--C-62_Ord_String (lambda (arg-0 arg-1) (let ((sc0 (or (and (string>? arg-0 arg-1) 1) 0))) (cond ((equal? sc0 0) 0)(else 1))))) +(define PreludeC-45EqOrd-u--C-62_Ord_Integer (lambda (arg-0 arg-1) (let ((sc0 (or (and (> arg-0 arg-1) 1) 0))) (cond ((equal? sc0 0) 0)(else 1))))) +(define PreludeC-45EqOrd-u--C-62_Ord_Int (lambda (arg-0 arg-1) (let ((sc0 (or (and (> arg-0 arg-1) 1) 0))) (cond ((equal? sc0 0) 0)(else 1))))) +(define PreludeC-45EqOrd-u--C-62_Ord_Double (lambda (arg-0 arg-1) (let ((sc0 (or (and (> arg-0 arg-1) 1) 0))) (cond ((equal? sc0 0) 0)(else 1))))) +(define PreludeC-45EqOrd-u--C-62_Ord_Char (lambda (arg-0 arg-1) (let ((sc0 (or (and (char>? arg-0 arg-1) 1) 0))) (cond ((equal? sc0 0) 0)(else 1))))) (define PreludeC-45EqOrd-u--C-62_Ord_Bool (lambda (arg-0 arg-1) (PreludeC-45EqOrd-u--C-61C-61_Eq_Ordering (PreludeC-45EqOrd-u--compare_Ord_Bool arg-0 arg-1) 2))) (define PreludeC-45EqOrd-u--C-62_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (lambda (arg-2 arg-3 arg-4 arg-5) (PreludeC-45EqOrd-u--C-61C-61_Eq_Ordering (PreludeC-45EqOrd-u--compare_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 arg-2 arg-3 arg-4 arg-5) 2))) -(define PreludeC-45EqOrd-u--C-62C-61_Ord_String (lambda (arg-0 arg-1) (let ((sc0 (or (and (string>=? arg-0 arg-1) 1) 0))) (cond ((equal? sc0 0) 1)(else 0))))) -(define PreludeC-45EqOrd-u--C-62C-61_Ord_Integer (lambda (arg-0 arg-1) (let ((sc0 (or (and (>= arg-0 arg-1) 1) 0))) (cond ((equal? sc0 0) 1)(else 0))))) -(define PreludeC-45EqOrd-u--C-62C-61_Ord_Int (lambda (arg-0 arg-1) (let ((sc0 (or (and (>= arg-0 arg-1) 1) 0))) (cond ((equal? sc0 0) 1)(else 0))))) -(define PreludeC-45EqOrd-u--C-62C-61_Ord_Double (lambda (arg-0 arg-1) (let ((sc0 (or (and (>= arg-0 arg-1) 1) 0))) (cond ((equal? sc0 0) 1)(else 0))))) -(define PreludeC-45EqOrd-u--C-62C-61_Ord_Char (lambda (arg-0 arg-1) (let ((sc0 (or (and (char>=? arg-0 arg-1) 1) 0))) (cond ((equal? sc0 0) 1)(else 0))))) +(define PreludeC-45EqOrd-u--C-62C-61_Ord_String (lambda (arg-0 arg-1) (let ((sc0 (or (and (string>=? arg-0 arg-1) 1) 0))) (cond ((equal? sc0 0) 0)(else 1))))) +(define PreludeC-45EqOrd-u--C-62C-61_Ord_Integer (lambda (arg-0 arg-1) (let ((sc0 (or (and (>= arg-0 arg-1) 1) 0))) (cond ((equal? sc0 0) 0)(else 1))))) +(define PreludeC-45EqOrd-u--C-62C-61_Ord_Int (lambda (arg-0 arg-1) (let ((sc0 (or (and (>= arg-0 arg-1) 1) 0))) (cond ((equal? sc0 0) 0)(else 1))))) +(define PreludeC-45EqOrd-u--C-62C-61_Ord_Double (lambda (arg-0 arg-1) (let ((sc0 (or (and (>= arg-0 arg-1) 1) 0))) (cond ((equal? sc0 0) 0)(else 1))))) +(define PreludeC-45EqOrd-u--C-62C-61_Ord_Char (lambda (arg-0 arg-1) (let ((sc0 (or (and (char>=? arg-0 arg-1) 1) 0))) (cond ((equal? sc0 0) 0)(else 1))))) (define PreludeC-45EqOrd-u--C-62C-61_Ord_Bool (lambda (arg-0 arg-1) (PreludeC-45EqOrd-u--C-47C-61_Eq_Ordering (PreludeC-45EqOrd-u--compare_Ord_Bool arg-0 arg-1) 0))) (define PreludeC-45EqOrd-u--C-62C-61_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (lambda (arg-2 arg-3 arg-4 arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Ordering (PreludeC-45EqOrd-u--compare_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 arg-2 arg-3 arg-4 arg-5) 0))) -(define PreludeC-45EqOrd-u--C-61C-61_Eq_String (lambda (arg-0 arg-1) (let ((sc0 (or (and (string=? arg-0 arg-1) 1) 0))) (cond ((equal? sc0 0) 1)(else 0))))) -(define PreludeC-45EqOrd-u--C-61C-61_Eq_Ordering (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (cond ((equal? sc0 0) (let ((sc1 arg-1)) (cond ((equal? sc1 0) 0)(else 1)))) ((equal? sc0 1) (let ((sc1 arg-1)) (cond ((equal? sc1 1) 0)(else 1)))) ((equal? sc0 2) (let ((sc1 arg-1)) (cond ((equal? sc1 2) 0)(else 1))))(else 1))))) -(define PreludeC-45EqOrd-u--C-61C-61_Eq_Integer (lambda (arg-0 arg-1) (let ((sc0 (or (and (= arg-0 arg-1) 1) 0))) (cond ((equal? sc0 0) 1)(else 0))))) -(define PreludeC-45EqOrd-u--C-61C-61_Eq_Int (lambda (arg-0 arg-1) (let ((sc0 (or (and (= arg-0 arg-1) 1) 0))) (cond ((equal? sc0 0) 1)(else 0))))) -(define PreludeC-45EqOrd-u--C-61C-61_Eq_Double (lambda (arg-0 arg-1) (let ((sc0 (or (and (= arg-0 arg-1) 1) 0))) (cond ((equal? sc0 0) 1)(else 0))))) -(define PreludeC-45EqOrd-u--C-61C-61_Eq_Char (lambda (arg-0 arg-1) (let ((sc0 (or (and (char=? arg-0 arg-1) 1) 0))) (cond ((equal? sc0 0) 1)(else 0))))) -(define PreludeC-45EqOrd-u--C-61C-61_Eq_Bool (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (cond ((equal? sc0 0) (let ((sc1 arg-1)) (cond ((equal? sc1 0) 0)(else 1)))) ((equal? sc0 1) (let ((sc1 arg-1)) (cond ((equal? sc1 1) 0)(else 1))))(else 1))))) -(define PreludeC-45EqOrd-u--C-61C-61_Eq_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (lambda (arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 arg-5)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (PreludeC-45Basics-C-38C-38 (let ((sc2 arg-2)) (let ((e-1 (car sc2))) ((e-1 e-2) e-6))) (lambda () (let ((sc2 arg-3)) (let ((e-1 (car sc2))) ((e-1 e-3) e-7))))))))))))) -(define PreludeC-45EqOrd-u--C-60_Ord_String (lambda (arg-0 arg-1) (let ((sc0 (or (and (stringchar 127)) eta-0))))))) -(define PreludeC-45Show-case--protectEsc-6962 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) "\\&") (else ""))))) -(define PreludeC-45Show-n--2371-7508-u--showC-39 (lambda (arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (if (null? sc0) arg-3 (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-3)) (if (null? sc1) (PreludeC-45TypesC-45String-C-43C-43 arg-3 (let ((sc2 arg-1)) (let ((e-1 (car sc2))) (e-1 e-2)))) (PreludeC-45Show-n--2371-7508-u--showC-39 arg-1 arg-2 (PreludeC-45TypesC-45String-C-43C-43 arg-3 (PreludeC-45TypesC-45String-C-43C-43 (let ((sc2 arg-1)) (let ((e-1 (car sc2))) (e-1 e-2))) ", ")) e-3))))))))) -(define PreludeC-45Show-n--1858-7031-u--asciiTab (lambda (arg-0) (cons "NUL" (cons "SOH" (cons "STX" (cons "ETX" (cons "EOT" (cons "ENQ" (cons "ACK" (cons "BEL" (cons "BS" (cons "HT" (cons "LF" (cons "VT" (cons "FF" (cons "CR" (cons "SO" (cons "SI" (cons "DLE" (cons "DC1" (cons "DC2" (cons "DC3" (cons "DC4" (cons "NAK" (cons "SYN" (cons "ETB" (cons "CAN" (cons "EM" (cons "SUB" (cons "ESC" (cons "FS" (cons "GS" (cons "RS" (cons "US" '())))))))))))))))))))))))))))))))))) +(define PreludeC-45Show-n--2176-6624-u--showC-39 (lambda (arg-1 arg-2 arg-3 arg-4) (if (null? arg-4) arg-3 (let ((e-2 (car arg-4))) (let ((e-3 (cdr arg-4))) (if (null? e-3) (PreludeC-45TypesC-45String-C-43C-43 arg-3 (let ((e-1 (car arg-1))) (e-1 e-2))) (PreludeC-45Show-n--2176-6624-u--showC-39 arg-1 arg-2 (PreludeC-45TypesC-45String-C-43C-43 arg-3 (PreludeC-45TypesC-45String-C-43C-43 (let ((e-1 (car arg-1))) (e-1 e-2)) ", ")) e-3))))))) +(define PreludeC-45Show-n--1670-6163-u--asciiTab (lambda (arg-0) (cons "NUL" (cons "SOH" (cons "STX" (cons "ETX" (cons "EOT" (cons "ENQ" (cons "ACK" (cons "BEL" (cons "BS" (cons "HT" (cons "LF" (cons "VT" (cons "FF" (cons "CR" (cons "SO" (cons "SI" (cons "DLE" (cons "DC1" (cons "DC2" (cons "DC3" (cons "DC4" (cons "NAK" (cons "SYN" (cons "ETB" (cons "CAN" (cons "EM" (cons "SUB" (cons "ESC" (cons "FS" (cons "GS" (cons "RS" (cons "US" '())))))))))))))))))))))))))))))))))) (define PreludeC-45Show-u--show_Show_String (lambda (arg-0) (PreludeC-45Types-strCons #\" (PreludeC-45Show-showLitString (PreludeC-45Types-fastUnpack arg-0) "\"")))) (define PreludeC-45Show-u--show_Show_Nat (lambda (arg-0) (PreludeC-45Show-u--show_Show_Integer arg-0))) (define PreludeC-45Show-u--show_Show_Integer (lambda (arg-0) (PreludeC-45Show-u--showPrec_Show_Integer (vector 0 ) arg-0))) (define PreludeC-45Show-u--show_Show_Int (lambda (arg-0) (PreludeC-45Show-u--showPrec_Show_Int (vector 0 ) arg-0))) (define PreludeC-45Show-u--show_Show_Double (lambda (arg-0) (PreludeC-45Show-u--showPrec_Show_Double (vector 0 ) arg-0))) -(define PreludeC-45Show-u--show_Show_Char (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 #\') "'\\''")(else (PreludeC-45Types-strCons #\' ((PreludeC-45Show-showLitChar arg-0) "'"))))))) -(define PreludeC-45Show-u--show_Show_Bool (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 0) "True") (else "False"))))) -(define PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (lambda (arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (PreludeC-45TypesC-45String-C-43C-43 "(" (PreludeC-45TypesC-45String-C-43C-43 (let ((sc1 (Builtin-fst arg-2))) (let ((e-1 (car sc1))) (e-1 e-2))) (PreludeC-45TypesC-45String-C-43C-43 ", " (PreludeC-45TypesC-45String-C-43C-43 (let ((sc1 (Builtin-snd arg-2))) (let ((e-1 (car sc1))) (e-1 e-3))) ")"))))))))) +(define PreludeC-45Show-u--show_Show_Char (lambda (arg-0) (cond ((equal? arg-0 #\') "'\\''")(else (PreludeC-45Types-strCons #\' ((PreludeC-45Show-showLitChar arg-0) "'")))))) +(define PreludeC-45Show-u--show_Show_Bool (lambda (arg-0) (cond ((equal? arg-0 1) "True") (else "False")))) +(define PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (lambda (arg-2 arg-3) (let ((e-2 (car arg-3))) (let ((e-3 (cdr arg-3))) (PreludeC-45TypesC-45String-C-43C-43 "(" (PreludeC-45TypesC-45String-C-43C-43 (let ((sc1 (Builtin-fst arg-2))) (let ((e-1 (car sc1))) (e-1 e-2))) (PreludeC-45TypesC-45String-C-43C-43 ", " (PreludeC-45TypesC-45String-C-43C-43 (let ((sc1 (Builtin-snd arg-2))) (let ((e-1 (car sc1))) (e-1 e-3))) ")")))))))) (define PreludeC-45Show-u--show_Show_C-40MaybeC-32C-36aC-41 (lambda (arg-1 arg-2) (PreludeC-45Show-u--showPrec_Show_C-40MaybeC-32C-36aC-41 arg-1 (vector 0 ) arg-2))) -(define PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (lambda (arg-1 arg-2) (PreludeC-45TypesC-45String-C-43C-43 "[" (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-n--2371-7508-u--showC-39 arg-1 arg-2 "" arg-2) "]")))) +(define PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (lambda (arg-1 arg-2) (PreludeC-45TypesC-45String-C-43C-43 "[" (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-n--2176-6624-u--showC-39 arg-1 arg-2 "" arg-2) "]")))) (define PreludeC-45Show-u--show_Show_C-40C-40EitherC-32C-36aC-41C-32C-36bC-41 (lambda (arg-2 arg-3) (PreludeC-45Show-u--showPrec_Show_C-40C-40EitherC-32C-36aC-41C-32C-36bC-41 arg-2 (vector 0 ) arg-3))) (define PreludeC-45Show-u--showPrec_Show_String (lambda (arg-0 arg-1) (PreludeC-45Show-u--show_Show_String arg-1))) (define PreludeC-45Show-u--showPrec_Show_Nat (lambda (arg-0 arg-1) (PreludeC-45Show-u--show_Show_Nat arg-1))) @@ -992,26 +956,26 @@ (define PreludeC-45Show-u--showPrec_Show_Double (lambda (ext-0 ext-1) (PreludeC-45Show-primNumShow (lambda (eta-0) (number->string eta-0)) ext-0 ext-1))) (define PreludeC-45Show-u--showPrec_Show_Bool (lambda (arg-0 arg-1) (PreludeC-45Show-u--show_Show_Bool arg-1))) (define PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (lambda (arg-2 arg-3 arg-4) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 arg-2 arg-4))) -(define PreludeC-45Show-u--showPrec_Show_C-40MaybeC-32C-36aC-41 (lambda (arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) "Nothing") (else (let ((e-2 (vector-ref sc0 1))) (PreludeC-45Show-showCon arg-2 "Just" (PreludeC-45Show-showArg arg-1 e-2)))))))) +(define PreludeC-45Show-u--showPrec_Show_C-40MaybeC-32C-36aC-41 (lambda (arg-1 arg-2 arg-3) (if (null? arg-3) "Nothing" (let ((e-2 (unbox arg-3))) (PreludeC-45Show-showCon arg-2 "Just" (PreludeC-45Show-showArg arg-1 e-2)))))) (define PreludeC-45Show-u--showPrec_Show_C-40ListC-32C-36aC-41 (lambda (arg-1 arg-2 arg-3) (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 arg-1 arg-3))) -(define PreludeC-45Show-u--showPrec_Show_C-40C-40EitherC-32C-36aC-41C-32C-36bC-41 (lambda (arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (PreludeC-45Show-showCon arg-3 "Left" (PreludeC-45Show-showArg (Builtin-fst arg-2) e-2)))) (else (let ((e-5 (vector-ref sc0 1))) (PreludeC-45Show-showCon arg-3 "Right" (PreludeC-45Show-showArg (Builtin-snd arg-2) e-5)))))))) -(define PreludeC-45Show-u--compare_Ord_Prec (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((4) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((4) (let ((e-1 (vector-ref sc1 1))) (PreludeC-45Types-u--compare_Ord_Nat e-0 e-1)))(else (PreludeC-45EqOrd-u--compare_Ord_Integer (PreludeC-45Show-precCon arg-0) (PreludeC-45Show-precCon arg-1)))))))(else (PreludeC-45EqOrd-u--compare_Ord_Integer (PreludeC-45Show-precCon arg-0) (PreludeC-45Show-precCon arg-1))))))) +(define PreludeC-45Show-u--showPrec_Show_C-40C-40EitherC-32C-36aC-41C-32C-36bC-41 (lambda (arg-2 arg-3 arg-4) (case (vector-ref arg-4 0) ((0) (let ((e-2 (vector-ref arg-4 1))) (PreludeC-45Show-showCon arg-3 "Left" (PreludeC-45Show-showArg (Builtin-fst arg-2) e-2)))) (else (let ((e-5 (vector-ref arg-4 1))) (PreludeC-45Show-showCon arg-3 "Right" (PreludeC-45Show-showArg (Builtin-snd arg-2) e-5))))))) +(define PreludeC-45Show-u--compare_Ord_Prec (lambda (arg-0 arg-1) (case (vector-ref arg-0 0) ((4) (let ((e-0 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((4) (let ((e-1 (vector-ref arg-1 1))) (PreludeC-45Types-u--compare_Ord_Nat e-0 e-1)))(else (PreludeC-45EqOrd-u--compare_Ord_Integer (PreludeC-45Show-precCon arg-0) (PreludeC-45Show-precCon arg-1))))))(else (PreludeC-45EqOrd-u--compare_Ord_Integer (PreludeC-45Show-precCon arg-0) (PreludeC-45Show-precCon arg-1)))))) (define PreludeC-45Show-u--C-62_Ord_Prec (lambda (arg-0 arg-1) (PreludeC-45EqOrd-u--C-61C-61_Eq_Ordering (PreludeC-45Show-u--compare_Ord_Prec arg-0 arg-1) 2))) (define PreludeC-45Show-u--C-62C-61_Ord_Prec (lambda (arg-0 arg-1) (PreludeC-45EqOrd-u--C-47C-61_Eq_Ordering (PreludeC-45Show-u--compare_Ord_Prec arg-0 arg-1) 0))) -(define PreludeC-45Show-showParens (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (cond ((equal? sc0 1) arg-1) (else (PreludeC-45TypesC-45String-C-43C-43 "(" (PreludeC-45TypesC-45String-C-43C-43 arg-1 ")"))))))) -(define PreludeC-45Show-showLitString (lambda (arg-0 ext-0) (let ((sc0 arg-0)) (if (null? sc0) ext-0 (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (cond ((equal? sc1 #\") (PreludeC-45TypesC-45String-C-43C-43 "\\\"" (PreludeC-45Show-showLitString e-3 ext-0)))(else ((PreludeC-45Show-showLitChar e-2) (PreludeC-45Show-showLitString e-3 ext-0))))))))))) -(define PreludeC-45Show-showLitChar (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 (integer->char 7)) (lambda (arg-1) (PreludeC-45TypesC-45String-C-43C-43 "\\a" arg-1))) ((equal? sc0 (integer->char 8)) (lambda (arg-1) (PreludeC-45TypesC-45String-C-43C-43 "\\b" arg-1))) ((equal? sc0 (integer->char 12)) (lambda (arg-1) (PreludeC-45TypesC-45String-C-43C-43 "\\f" arg-1))) ((equal? sc0 (integer->char 10)) (lambda (arg-1) (PreludeC-45TypesC-45String-C-43C-43 "\\n" arg-1))) ((equal? sc0 (integer->char 13)) (lambda (arg-1) (PreludeC-45TypesC-45String-C-43C-43 "\\r" arg-1))) ((equal? sc0 (integer->char 9)) (lambda (arg-1) (PreludeC-45TypesC-45String-C-43C-43 "\\t" arg-1))) ((equal? sc0 (integer->char 11)) (lambda (arg-1) (PreludeC-45TypesC-45String-C-43C-43 "\\v" arg-1))) ((equal? sc0 (integer->char 14)) (lambda (eta-0) (PreludeC-45Show-protectEsc (lambda (arg-1) (PreludeC-45EqOrd-u--C-61C-61_Eq_Char arg-1 #\H)) "\\SO" eta-0))) ((equal? sc0 (integer->char 127)) (lambda (arg-1) (PreludeC-45TypesC-45String-C-43C-43 "\\DEL" arg-1))) ((equal? sc0 #\\) (lambda (arg-1) (PreludeC-45TypesC-45String-C-43C-43 "\\\\" arg-1)))(else (PreludeC-45Show-case--showLitChar-7198 arg-0 (PreludeC-45Types-getAt (PreludeC-45Types-u--fromInteger_Num_Nat (char->integer arg-0)) (PreludeC-45Show-n--1858-7031-u--asciiTab arg-0)))))))) +(define PreludeC-45Show-showParens (lambda (arg-0 arg-1) (cond ((equal? arg-0 0) arg-1) (else (PreludeC-45TypesC-45String-C-43C-43 "(" (PreludeC-45TypesC-45String-C-43C-43 arg-1 ")")))))) +(define PreludeC-45Show-showLitString (lambda (arg-0 ext-0) (if (null? arg-0) ext-0 (let ((e-2 (car arg-0))) (let ((e-3 (cdr arg-0))) (cond ((equal? e-2 #\") (PreludeC-45TypesC-45String-C-43C-43 "\\\"" (PreludeC-45Show-showLitString e-3 ext-0)))(else ((PreludeC-45Show-showLitChar e-2) (PreludeC-45Show-showLitString e-3 ext-0))))))))) +(define PreludeC-45Show-showLitChar (lambda (arg-0) (cond ((equal? arg-0 (integer->char 7)) (lambda (arg-1) (PreludeC-45TypesC-45String-C-43C-43 "\\a" arg-1))) ((equal? arg-0 (integer->char 8)) (lambda (arg-1) (PreludeC-45TypesC-45String-C-43C-43 "\\b" arg-1))) ((equal? arg-0 (integer->char 12)) (lambda (arg-1) (PreludeC-45TypesC-45String-C-43C-43 "\\f" arg-1))) ((equal? arg-0 (integer->char 10)) (lambda (arg-1) (PreludeC-45TypesC-45String-C-43C-43 "\\n" arg-1))) ((equal? arg-0 (integer->char 13)) (lambda (arg-1) (PreludeC-45TypesC-45String-C-43C-43 "\\r" arg-1))) ((equal? arg-0 (integer->char 9)) (lambda (arg-1) (PreludeC-45TypesC-45String-C-43C-43 "\\t" arg-1))) ((equal? arg-0 (integer->char 11)) (lambda (arg-1) (PreludeC-45TypesC-45String-C-43C-43 "\\v" arg-1))) ((equal? arg-0 (integer->char 14)) (lambda (eta-0) (PreludeC-45Show-protectEsc (lambda (arg-1) (PreludeC-45EqOrd-u--C-61C-61_Eq_Char arg-1 #\H)) "\\SO" eta-0))) ((equal? arg-0 (integer->char 127)) (lambda (arg-1) (PreludeC-45TypesC-45String-C-43C-43 "\\DEL" arg-1))) ((equal? arg-0 #\\) (lambda (arg-1) (PreludeC-45TypesC-45String-C-43C-43 "\\\\" arg-1)))(else (lambda (clam-0) (let ((sc0 (PreludeC-45Types-getAt (PreludeC-45Types-u--fromInteger_Num_Nat (char->integer arg-0)) (PreludeC-45Show-n--1670-6163-u--asciiTab arg-0)))) (if (null? sc0) (let ((sc1 (PreludeC-45EqOrd-u--C-62_Ord_Char arg-0 (integer->char 127)))) (cond ((equal? sc1 1) (PreludeC-45Types-strCons #\\ (PreludeC-45Show-protectEsc (lambda (eta-0) (PreludeC-45Types-isDigit eta-0)) (PreludeC-45Show-u--show_Show_Int (cast-char-boundedInt arg-0 63)) clam-0))) (else (PreludeC-45Types-strCons arg-0 clam-0)))) (let ((e-1 (unbox sc0))) (PreludeC-45Types-strCons #\\ (PreludeC-45TypesC-45String-C-43C-43 e-1 clam-0)))))))))) (define PreludeC-45Show-showCon (lambda (arg-0 arg-1 arg-2) (PreludeC-45Show-showParens (PreludeC-45Show-u--C-62C-61_Ord_Prec arg-0 (vector 6 )) (PreludeC-45TypesC-45String-C-43C-43 arg-1 arg-2)))) -(define PreludeC-45Show-showArg (lambda (arg-1 arg-2) (PreludeC-45TypesC-45String-C-43C-43 " " (let ((sc0 arg-1)) (let ((e-2 (cdr sc0))) ((e-2 (vector 6 )) arg-2)))))) -(define PreludeC-45Show-protectEsc (lambda (arg-0 arg-1 arg-2) (PreludeC-45TypesC-45String-C-43C-43 arg-1 (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-case--protectEsc-6962 arg-2 arg-1 arg-0 (PreludeC-45Show-firstCharIs arg-0 arg-2)) arg-2)))) -(define PreludeC-45Show-primNumShow (lambda (arg-1 arg-2 arg-3) (let ((u--str (arg-1 arg-3))) (PreludeC-45Show-showParens (PreludeC-45Basics-C-38C-38 (PreludeC-45Show-u--C-62C-61_Ord_Prec arg-2 (vector 5 )) (lambda () (PreludeC-45Show-firstCharIs (lambda (arg-0) (PreludeC-45EqOrd-u--C-61C-61_Eq_Char arg-0 #\-)) u--str))) u--str)))) -(define PreludeC-45Show-precCon (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) 0) ((1) 1) ((2) 2) ((3) 3) ((4) 4) ((5) 5) (else 6))))) -(define PreludeC-45Show-firstCharIs (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 "") 1)(else (arg-0 (string-ref arg-1 0))))))) -(define PreludeC-45IO-u--map_Functor_IO (lambda (arg-2 arg-3 ext-0) (let ((act-3 (arg-3 ext-0))) (arg-2 act-3)))) +(define PreludeC-45Show-showArg (lambda (arg-1 arg-2) (PreludeC-45TypesC-45String-C-43C-43 " " (let ((e-2 (cdr arg-1))) ((e-2 (vector 6 )) arg-2))))) +(define PreludeC-45Show-protectEsc (lambda (arg-0 arg-1 arg-2) (PreludeC-45TypesC-45String-C-43C-43 arg-1 (PreludeC-45TypesC-45String-C-43C-43 (let ((sc0 (PreludeC-45Show-firstCharIs arg-0 arg-2))) (cond ((equal? sc0 1) "\\&") (else ""))) arg-2)))) +(define PreludeC-45Show-primNumShow (lambda (arg-1 arg-2 arg-3) (let ((u--str (arg-1 arg-3))) (PreludeC-45Show-showParens (let ((sc0 (PreludeC-45Show-u--C-62C-61_Ord_Prec arg-2 (vector 5 )))) (cond ((equal? sc0 1) (PreludeC-45Show-firstCharIs (lambda (arg-0) (PreludeC-45EqOrd-u--C-61C-61_Eq_Char arg-0 #\-)) u--str)) (else 0))) u--str)))) +(define PreludeC-45Show-precCon (lambda (arg-0) (case (vector-ref arg-0 0) ((0) 0) ((1) 1) ((2) 2) ((3) 3) ((4) 4) ((5) 5) (else 6)))) +(define PreludeC-45Show-firstCharIs (lambda (arg-0 arg-1) (cond ((equal? arg-1 "") 0)(else (arg-0 (string-ref arg-1 0)))))) +(define PreludeC-45IO-u--map_Functor_IO (lambda (arg-2 arg-3 ext-0) (let ((act-5 (arg-3 ext-0))) (arg-2 act-5)))) (define PreludeC-45IO-putStrLn (lambda (arg-1 arg-2) (PreludeC-45IO-putStr arg-1 (string-append arg-2 "\u000a")))) -(define PreludeC-45IO-putStr (lambda (arg-1 arg-2) (let ((sc0 arg-1)) (let ((e-2 (cdr sc0))) ((e-2 'erased) (lambda (eta-0) (PreludeC-45IO-prim__putStr arg-2 eta-0))))))) +(define PreludeC-45IO-putStr (lambda (arg-1 arg-2) (let ((e-2 (cdr arg-1))) ((e-2 'erased) (lambda (eta-0) (PreludeC-45IO-prim__putStr arg-2 eta-0)))))) (define PreludeC-45IO-printLn (lambda (arg-2 arg-3) (PreludeC-45IO-putStrLn (Builtin-fst arg-2) (let ((sc0 (Builtin-snd arg-2))) (let ((e-1 (car sc0))) (e-1 arg-3)))))) -(define PreludeC-45IO-getLine (lambda (arg-1) (let ((sc0 arg-1)) (let ((e-2 (cdr sc0))) ((e-2 'erased) (lambda (eta-0) (PreludeC-45IO-prim__getStr eta-0))))))) +(define PreludeC-45IO-getLine (lambda (arg-1) (let ((e-2 (cdr arg-1))) ((e-2 'erased) (lambda (eta-0) (PreludeC-45IO-prim__getStr eta-0)))))) (define PreludeC-45Cast-u--cast_Cast_String_Integer (lambda (ext-0) (cast-string-int ext-0))) (define PreludeC-45Cast-u--cast_Cast_String_Int (lambda (ext-0) (cast-string-boundedInt ext-0 63))) (define PreludeC-45Cast-u--cast_Cast_String_Double (lambda (ext-0) (cast-string-double ext-0))) @@ -1029,666 +993,229 @@ (define PreludeC-45Cast-u--cast_Cast_Char_Integer (lambda (ext-0) (char->integer ext-0))) (define PreludeC-45Cast-u--cast_Cast_Char_Int (lambda (ext-0) (cast-char-boundedInt ext-0 63))) (define PreludeC-45Cast-u--cast_Cast_Bits64_Integer (lambda (ext-0) ext-0)) -(define DataC-45List-case--sortBy-3655 (lambda (arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (DataC-45List-mergeBy arg-2 (DataC-45List-sortBy arg-2 e-2) (DataC-45List-sortBy arg-2 e-3))))))) -(define DataC-45List-case--mergeBy-3510 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (cons arg-1 (DataC-45List-mergeBy arg-5 arg-2 (cons arg-3 arg-4))))(else (cons arg-3 (DataC-45List-mergeBy arg-5 (cons arg-1 arg-2) arg-4))))))) -(define DataC-45List-case--mapMaybe-3395 (lambda (arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (DataC-45List-mapMaybe arg-4 arg-3)) (else (let ((e-2 (vector-ref sc0 1))) (cons e-2 (DataC-45List-mapMaybe arg-4 arg-3)))))))) -(define DataC-45List-case--replaceWhen-2006 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) arg-1) (else arg-4))))) -(define DataC-45List-case--caseC-32blockC-32inC-32partition-1872 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (cons (cons arg-3 arg-4) arg-5)) (else (cons arg-4 (cons arg-3 arg-5))))))) -(define DataC-45List-case--partition-1851 (lambda (arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (DataC-45List-case--caseC-32blockC-32inC-32partition-1872 arg-2 arg-3 arg-1 e-2 e-3 (arg-3 arg-1))))))) -(define DataC-45List-case--splitAt-1799 (lambda (arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (cons (cons arg-2 e-2) e-3)))))) -(define DataC-45List-case--split-1727 (lambda (arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-3)) (if (null? sc1) (DataC-45List1-singleton e-2) (let ((e-7 (cdr sc1))) (cons e-2 (DataC-45List1-forget (DataC-45List-split arg-2 e-7))))))))))) -(define DataC-45List-case--caseC-32blockC-32inC-32span-1653 (lambda (arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (cons (cons arg-3 e-2) e-3)))))) -(define DataC-45List-case--span-1633 (lambda (arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (DataC-45List-case--caseC-32blockC-32inC-32span-1653 arg-2 arg-3 arg-1 (DataC-45List-span arg-3 arg-2))) (else (cons '() (cons arg-1 arg-2))))))) -(define DataC-45List-case--caseC-32blockC-32inC-32spanBy-1575 (lambda (arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (cons (cons arg-5 e-2) e-3)))))) -(define DataC-45List-case--spanBy-1525 (lambda (arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (cons '() (cons arg-2 arg-3))) (else (let ((e-2 (vector-ref sc0 1))) (DataC-45List-case--caseC-32blockC-32inC-32spanBy-1575 arg-3 arg-4 arg-2 e-2 (DataC-45List-spanBy arg-4 arg-3)))))))) -(define DataC-45List-case--deleteBy-1401 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) arg-3) (else (cons arg-2 (DataC-45List-deleteBy arg-4 arg-1 arg-3))))))) -(define DataC-45List-case--nubByC-44nubByC-39-1319 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (DataC-45List-n--3787-1301-u--nubByC-39 arg-4 arg-3 arg-2)) (else (cons arg-1 (DataC-45List-n--3787-1301-u--nubByC-39 (cons arg-1 arg-4) arg-3 arg-2))))))) -(define DataC-45List-case--lookupBy-1198 (lambda (arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (vector 1 arg-4)) (else (DataC-45List-lookupBy arg-6 arg-2 arg-5)))))) -(define DataC-45List-case--find-1128 (lambda (arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (vector 1 arg-1)) (else (DataC-45List-find arg-3 arg-2)))))) -(define DataC-45List-case--filter-1072 (lambda (arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (cons arg-1 (DataC-45List-filter arg-3 arg-2))) (else (DataC-45List-filter arg-3 arg-2)))))) -(define DataC-45List-case--dropWhile-1018 (lambda (arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (DataC-45List-dropWhile arg-3 arg-2)) (else (cons arg-1 arg-2)))))) -(define DataC-45List-n--6204-3792-u--spreadHeads (lambda (arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (if (null? sc0) arg-4 (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 arg-4)) (if (null? sc1) (cons (cons e-2 '()) (DataC-45List-n--6204-3792-u--spreadHeads arg-1 arg-2 e-3 '())) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (cons (cons e-2 e-6) (DataC-45List-n--6204-3792-u--spreadHeads arg-1 arg-2 e-3 e-7)))))))))))) -(define DataC-45List-n--6014-3606-u--splitRec (lambda (arg-1 arg-2 arg-4 arg-5 arg-6) (let ((sc0 arg-4)) (if (null? sc0) (cons arg-5 (arg-6 '())) (let ((e-2 (cdr sc0))) (let ((sc1 e-2)) (if (null? sc1) (cons arg-5 (arg-6 '())) (let ((e-5 (cdr sc1))) (let ((sc2 arg-5)) (if (null? sc2) (cons arg-5 (arg-6 '())) (let ((e-7 (car sc2))) (let ((e-8 (cdr sc2))) (DataC-45List-n--6014-3606-u--splitRec arg-1 arg-2 e-5 e-8 (lambda (eta-0) (arg-6 (cons e-7 eta-0)))))))))))))))) -(define DataC-45List-n--6014-3607-u--split (lambda (arg-1 arg-2 arg-3) (DataC-45List-n--6014-3606-u--splitRec arg-1 arg-2 arg-3 arg-3 (lambda (eta-0) eta-0)))) -(define DataC-45List-n--3787-1301-u--nubByC-39 (lambda (arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (if (null? sc0) '() (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (DataC-45List-case--nubByC-44nubByC-39-1319 e-2 e-3 arg-2 arg-1 (DataC-45List-elemBy arg-2 e-2 arg-1)))))))) +(define DataC-45String-with--parseIntegerC-44parseIntTrimmed-2985 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (cond ((equal? arg-3 "") (if (null? arg-4) '() (let ((e-0 (car arg-4))) (let ((e-1 (cdr arg-4))) (let ((sc3 (PreludeC-45EqOrd-u--C-61C-61_Eq_Char e-0 #\-))) (cond ((equal? sc3 1) (PreludeC-45Types-u--map_Functor_Maybe (lambda (u--y) (let ((sc4 (Builtin-snd arg-1))) (let ((e-2 (vector-ref sc4 1))) (e-2 (let ((sc4 (Builtin-fst arg-1))) (let ((e-5 (vector-ref sc4 2))) (e-5 u--y))))))) (DataC-45String-parseNumWithoutSign (PreludeC-45Types-fastUnpack e-1) 0))) (else (let ((sc4 (PreludeC-45EqOrd-u--C-61C-61_Eq_Char e-0 #\+))) (cond ((equal? sc4 1) (PreludeC-45Types-u--map_Functor_Maybe (lambda (eta-0) (let ((sc5 (Builtin-fst arg-1))) (let ((e-3 (vector-ref sc5 2))) (e-3 eta-0)))) (DataC-45String-parseNumWithoutSign (PreludeC-45Types-fastUnpack e-1) (PreludeC-45Cast-u--cast_Cast_Int_Integer 0)))) (else (let ((sc5 (let ((sc6 (PreludeC-45EqOrd-u--C-62C-61_Ord_Char e-0 #\0))) (cond ((equal? sc6 1) (PreludeC-45EqOrd-u--C-60C-61_Ord_Char e-0 #\9)) (else 0))))) (cond ((equal? sc5 1) (PreludeC-45Types-u--map_Functor_Maybe (lambda (eta-0) (let ((sc6 (Builtin-fst arg-1))) (let ((e-3 (vector-ref sc6 2))) (e-3 eta-0)))) (DataC-45String-parseNumWithoutSign (PreludeC-45Types-fastUnpack e-1) (PreludeC-45Cast-u--cast_Cast_Int_Integer (PreludeC-45Num-u--C-45_Neg_Int (PreludeC-45Types-ord e-0) (PreludeC-45Types-ord #\0)))))) (else '())))))))))))))(else (let ((e-0 (car arg-4))) (let ((e-1 (cdr arg-4))) (let ((sc1 (PreludeC-45EqOrd-u--C-61C-61_Eq_Char e-0 #\-))) (cond ((equal? sc1 1) (PreludeC-45Types-u--map_Functor_Maybe (lambda (u--y) (let ((sc2 (Builtin-snd arg-1))) (let ((e-2 (vector-ref sc2 1))) (e-2 (let ((sc2 (Builtin-fst arg-1))) (let ((e-5 (vector-ref sc2 2))) (e-5 u--y))))))) (DataC-45String-parseNumWithoutSign (PreludeC-45Types-fastUnpack e-1) 0))) (else (let ((sc2 (PreludeC-45EqOrd-u--C-61C-61_Eq_Char e-0 #\+))) (cond ((equal? sc2 1) (PreludeC-45Types-u--map_Functor_Maybe (lambda (eta-0) (let ((sc3 (Builtin-fst arg-1))) (let ((e-3 (vector-ref sc3 2))) (e-3 eta-0)))) (DataC-45String-parseNumWithoutSign (PreludeC-45Types-fastUnpack e-1) (PreludeC-45Cast-u--cast_Cast_Int_Integer 0)))) (else (let ((sc3 (let ((sc4 (PreludeC-45EqOrd-u--C-62C-61_Ord_Char e-0 #\0))) (cond ((equal? sc4 1) (PreludeC-45EqOrd-u--C-60C-61_Ord_Char e-0 #\9)) (else 0))))) (cond ((equal? sc3 1) (PreludeC-45Types-u--map_Functor_Maybe (lambda (eta-0) (let ((sc4 (Builtin-fst arg-1))) (let ((e-3 (vector-ref sc4 2))) (e-3 eta-0)))) (DataC-45String-parseNumWithoutSign (PreludeC-45Types-fastUnpack e-1) (PreludeC-45Cast-u--cast_Cast_Int_Integer (PreludeC-45Num-u--C-45_Neg_Int (PreludeC-45Types-ord e-0) (PreludeC-45Types-ord #\0)))))) (else '()))))))))))))))) +(define DataC-45String-with--parsePositiveC-44parsePosTrimmed-2901 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (cond ((equal? arg-3 "") (if (null? arg-4) '() (let ((e-0 (car arg-4))) (let ((e-1 (cdr arg-4))) (cond ((equal? e-0 #\+) (PreludeC-45Types-u--map_Functor_Maybe (lambda (eta-0) (let ((e-3 (vector-ref arg-1 2))) (e-3 eta-0))) (DataC-45String-parseNumWithoutSign (PreludeC-45Types-fastUnpack e-1) 0)))(else (let ((sc3 (let ((sc4 (PreludeC-45EqOrd-u--C-62C-61_Ord_Char e-0 #\0))) (cond ((equal? sc4 1) (PreludeC-45EqOrd-u--C-60C-61_Ord_Char e-0 #\9)) (else 0))))) (cond ((equal? sc3 1) (PreludeC-45Types-u--map_Functor_Maybe (lambda (eta-0) (let ((e-3 (vector-ref arg-1 2))) (e-3 eta-0))) (DataC-45String-parseNumWithoutSign (PreludeC-45Types-fastUnpack e-1) (PreludeC-45Cast-u--cast_Cast_Int_Integer (PreludeC-45Num-u--C-45_Neg_Int (PreludeC-45Types-ord e-0) (PreludeC-45Types-ord #\0)))))) (else '())))))))))(else (let ((e-0 (car arg-4))) (let ((e-1 (cdr arg-4))) (cond ((equal? e-0 #\+) (PreludeC-45Types-u--map_Functor_Maybe (lambda (eta-0) (let ((e-3 (vector-ref arg-1 2))) (e-3 eta-0))) (DataC-45String-parseNumWithoutSign (PreludeC-45Types-fastUnpack e-1) 0)))(else (let ((sc1 (let ((sc2 (PreludeC-45EqOrd-u--C-62C-61_Ord_Char e-0 #\0))) (cond ((equal? sc2 1) (PreludeC-45EqOrd-u--C-60C-61_Ord_Char e-0 #\9)) (else 0))))) (cond ((equal? sc1 1) (PreludeC-45Types-u--map_Functor_Maybe (lambda (eta-0) (let ((e-3 (vector-ref arg-1 2))) (e-3 eta-0))) (DataC-45String-parseNumWithoutSign (PreludeC-45Types-fastUnpack e-1) (PreludeC-45Cast-u--cast_Cast_Int_Integer (PreludeC-45Num-u--C-45_Neg_Int (PreludeC-45Types-ord e-0) (PreludeC-45Types-ord #\0)))))) (else '()))))))))))) +(define DataC-45String-with--ltrim-2697 (lambda (arg-0 arg-1) (cond ((equal? arg-0 "") (case (vector-ref arg-1 0) ((0) "")(else (let ((e-0 (vector-ref arg-1 1))) (let ((e-1 (vector-ref arg-1 2))) (let ((e-2 (vector-ref arg-1 3))) (let ((u--str (string-cons e-0 e-1))) (let ((sc2 (PreludeC-45Types-isSpace e-0))) (cond ((equal? sc2 1) (DataC-45String-with--ltrim-2697 e-1 (e-2))) (else u--str))))))))))(else (let ((e-0 (vector-ref arg-1 1))) (let ((e-1 (vector-ref arg-1 2))) (let ((e-2 (vector-ref arg-1 3))) (let ((u--str (string-cons e-0 e-1))) (let ((sc1 (PreludeC-45Types-isSpace e-0))) (cond ((equal? sc1 1) (DataC-45String-with--ltrim-2697 e-1 (e-2))) (else u--str))))))))))) +(define DataC-45String-with--asList-2681 (lambda (arg-0 arg-1) (cond ((equal? arg-0 "") (if (null? arg-1) (vector 0 ) (let ((e-0 (car arg-1))) (let ((e-1 (cdr arg-1))) (vector 1 e-0 e-1 (lambda () (DataC-45String-asList e-1)))))))(else (let ((e-0 (car arg-1))) (let ((e-1 (cdr arg-1))) (vector 1 e-0 e-1 (lambda () (DataC-45String-asList e-1))))))))) +(define DataC-45String-case--wordsC-39-2519 (lambda (arg-0 arg-1) (if (null? arg-1) '() (let ((sc1 (DataC-45List-break (lambda (eta-0) (PreludeC-45Types-isSpace eta-0)) arg-1))) (let ((e-2 (car sc1))) (let ((e-3 (cdr sc1))) (cons e-2 (DataC-45String-wordsC-39 e-3)))))))) +(define DataC-45String-n--2832-2899-u--parsePosTrimmed (lambda (arg-1 arg-2 arg-3) (DataC-45String-with--parsePositiveC-44parsePosTrimmed-2901 'erased arg-1 arg-3 arg-3 (DataC-45String-strM arg-3)))) +(define DataC-45String-n--2913-2983-u--parseIntTrimmed (lambda (arg-1 arg-2 arg-3) (DataC-45String-with--parseIntegerC-44parseIntTrimmed-2985 'erased arg-1 arg-3 arg-3 (DataC-45String-strM arg-3)))) +(define DataC-45String-n--2502-2554-u--addSpace (lambda (arg-0 arg-1 arg-2) (PreludeC-45TypesC-45List-C-43C-43 arg-1 (cons #\ arg-2)))) +(define DataC-45String-wordsC-39 (lambda (arg-0) (DataC-45String-case--wordsC-39-2519 arg-0 (DataC-45List-dropWhile (lambda (eta-0) (PreludeC-45Types-isSpace eta-0)) arg-0)))) +(define DataC-45String-words (lambda (arg-0) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (PreludeC-45Types-fastPack eta-0)) (DataC-45String-wordsC-39 (PreludeC-45Types-fastUnpack arg-0))))) +(define DataC-45String-unwordsC-39 (lambda (arg-0) (if (null? arg-0) '() (DataC-45String-foldr1 (lambda (eta-0) (lambda (eta-1) (DataC-45String-n--2502-2554-u--addSpace arg-0 eta-0 eta-1))) arg-0)))) +(define DataC-45String-unwords (lambda (ext-0) (PreludeC-45Types-fastPack (DataC-45String-unwordsC-39 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (PreludeC-45Types-fastUnpack eta-0)) ext-0))))) +(define DataC-45String-trim (lambda (ext-0) (DataC-45String-ltrim (PreludeC-45Types-reverse (DataC-45String-ltrim (PreludeC-45Types-reverse ext-0)))))) +(define DataC-45String-toLower (lambda (arg-0) (PreludeC-45Types-fastPack (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (PreludeC-45Types-toLower eta-0)) (PreludeC-45Types-fastUnpack arg-0))))) +(define DataC-45String-stringToNatOrZ (lambda (ext-0) (PreludeC-45Types-u--fromInteger_Num_Nat (cast-string-int ext-0)))) +(define DataC-45String-strTail (lambda (ext-0) (substring ext-0 1 (string-length ext-0)))) +(define DataC-45String-strM (lambda (arg-0) (cond ((equal? arg-0 "") '())(else (Builtin-believe_me (cons (string-ref arg-0 0) (substring arg-0 1 (string-length arg-0)))))))) +(define DataC-45String-strLength (lambda (ext-0) (string-length ext-0))) +(define DataC-45String-strIndex (lambda (ext-0 ext-1) (string-ref ext-0 ext-1))) +(define DataC-45String-split (lambda (arg-0 arg-1) (DataC-45List1-u--map_Functor_List1 (lambda (eta-0) (PreludeC-45Types-fastPack eta-0)) (DataC-45List-split arg-0 (PreludeC-45Types-fastUnpack arg-1))))) +(define DataC-45String-span (lambda (arg-0 arg-1) (let ((sc0 (DataC-45List-span arg-0 (PreludeC-45Types-fastUnpack arg-1)))) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (cons (PreludeC-45Types-fastPack e-2) (PreludeC-45Types-fastPack e-3))))))) +(define DataC-45String-singleton (lambda (arg-0) (PreludeC-45Types-strCons arg-0 ""))) +(define DataC-45String-parsePositive (lambda (arg-1 arg-2) (DataC-45String-n--2832-2899-u--parsePosTrimmed arg-1 arg-2 (DataC-45String-trim arg-2)))) +(define DataC-45String-parseNumWithoutSign (lambda (arg-0 arg-1) (if (null? arg-0) (box arg-1) (let ((e-2 (car arg-0))) (let ((e-3 (cdr arg-0))) (let ((sc1 (let ((sc2 (PreludeC-45EqOrd-u--C-62C-61_Ord_Char e-2 #\0))) (cond ((equal? sc2 1) (PreludeC-45EqOrd-u--C-60C-61_Ord_Char e-2 #\9)) (else 0))))) (cond ((equal? sc1 1) (DataC-45String-parseNumWithoutSign e-3 (+ (* arg-1 10) (PreludeC-45Cast-u--cast_Cast_Int_Integer (PreludeC-45Num-u--C-45_Neg_Int (PreludeC-45Types-ord e-2) (PreludeC-45Types-ord #\0)))))) (else '())))))))) +(define DataC-45String-parseInteger (lambda (arg-1 arg-2) (DataC-45String-n--2913-2983-u--parseIntTrimmed arg-1 arg-2 (DataC-45String-trim arg-2)))) +(define DataC-45String-ltrim (lambda (arg-0) (DataC-45String-with--ltrim-2697 arg-0 (DataC-45String-asList arg-0)))) +(define DataC-45String-isSuffixOf (lambda (arg-0 arg-1) (DataC-45List-isSuffixOf (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Char arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Char arg-4 arg-5)))) (PreludeC-45Types-fastUnpack arg-0) (PreludeC-45Types-fastUnpack arg-1)))) +(define DataC-45String-isPrefixOf (lambda (arg-0 arg-1) (DataC-45List-isPrefixOf (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Char arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Char arg-4 arg-5)))) (PreludeC-45Types-fastUnpack arg-0) (PreludeC-45Types-fastUnpack arg-1)))) +(define DataC-45String-isInfixOf (lambda (arg-0 arg-1) (DataC-45List-isInfixOf (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Char arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Char arg-4 arg-5)))) (PreludeC-45Types-fastUnpack arg-0) (PreludeC-45Types-fastUnpack arg-1)))) +(define DataC-45String-foldr1 (lambda (arg-1 arg-2) (if (null? arg-2) (Builtin-idris_crash "Unhandled input for Data.String.foldr1 at Data.String:34:1--34:17") (let ((e-1 (car arg-2))) (let ((e-2 (cdr arg-2))) (if (null? e-2) e-1 ((arg-1 e-1) (DataC-45String-foldr1 arg-1 e-2)))))))) +(define DataC-45String-fastUnlines (lambda (ext-0) (PreludeC-45Types-fastConcat (DataC-45List-intersperse "\u000a" ext-0)))) +(define DataC-45String-fastAppend (lambda (ext-0) (PreludeC-45Types-fastConcat ext-0))) +(define DataC-45String-break (lambda (arg-0 ext-0) (DataC-45String-span (lambda (eta-0) (let ((sc0 (arg-0 eta-0))) (cond ((equal? sc0 1) 0) (else 1)))) ext-0))) +(define DataC-45String-asList (lambda (arg-0) (DataC-45String-with--asList-2681 arg-0 (DataC-45String-strM arg-0)))) +(define DataC-45List1-n--2073-771-u--loop (lambda (arg-1 arg-2 arg-3 arg-4) (if (null? arg-4) arg-3 (let ((e-2 (car arg-4))) (let ((e-3 (cdr arg-4))) (DataC-45List1-n--2073-771-u--loop arg-1 arg-2 e-2 e-3)))))) +(define DataC-45List1-u--traverse_Traversable_List1 (lambda (arg-3 arg-4 arg-5) (let ((e-1 (car arg-5))) (let ((e-2 (cdr arg-5))) (let ((e-3 (vector-ref arg-3 2))) ((((e-3 'erased) 'erased) (let ((e-6 (vector-ref arg-3 2))) ((((e-6 'erased) 'erased) (let ((e-10 (vector-ref arg-3 1))) ((e-10 'erased) (lambda (eta-0) (lambda (eta-1) (cons eta-0 eta-1)))))) (arg-4 e-1)))) (PreludeC-45Types-u--traverse_Traversable_List arg-3 arg-4 e-2))))))) +(define DataC-45List1-u--toList_Foldable_List1 (lambda (ext-0) (DataC-45List1-forget ext-0))) +(define DataC-45List1-u--pure_Applicative_List1 (lambda (arg-1) (DataC-45List1-singleton arg-1))) +(define DataC-45List1-u--null_Foldable_List1 (lambda (arg-1) (lambda () 0))) +(define DataC-45List1-u--map_Functor_List1 (lambda (arg-2 arg-3) (let ((e-1 (car arg-3))) (let ((e-2 (cdr arg-3))) (cons (arg-2 e-1) (PreludeC-45Types-u--map_Functor_List arg-2 e-2)))))) +(define DataC-45List1-u--foldr_Foldable_List1 (lambda (arg-2 arg-3 arg-4) (let ((e-1 (car arg-4))) (let ((e-2 (cdr arg-4))) ((arg-2 e-1) (PreludeC-45Types-u--foldr_Foldable_List arg-2 arg-3 e-2)))))) +(define DataC-45List1-u--foldl_Foldable_List1 (lambda (arg-2 arg-3 arg-4) (let ((e-1 (car arg-4))) (let ((e-2 (cdr arg-4))) (PreludeC-45Types-u--foldl_Foldable_List arg-2 ((arg-2 arg-3) e-1) e-2))))) +(define DataC-45List1-u--foldlM_Foldable_List1 (lambda (arg-3 arg-4 arg-5 ext-0) (DataC-45List1-u--foldl_Foldable_List1 (lambda (u--ma) (lambda (u--b) (let ((e-2 (vector-ref arg-3 1))) ((((e-2 'erased) 'erased) u--ma) (lambda (eta-0) (PreludeC-45Basics-flip arg-4 u--b eta-0)))))) (let ((e-1 (vector-ref arg-3 0))) (let ((e-5 (vector-ref e-1 1))) ((e-5 'erased) arg-5))) ext-0))) +(define DataC-45List1-u--foldMap_Foldable_List1 (lambda (arg-2 arg-3 arg-4) (let ((e-1 (car arg-4))) (let ((e-2 (cdr arg-4))) (let ((e-4 (car arg-2))) ((e-4 (arg-3 e-1)) (PreludeC-45Types-u--foldMap_Foldable_List arg-2 arg-3 e-2))))))) +(define DataC-45List1-u--compare_Ord_C-40List1C-32C-36aC-41 (lambda (arg-1 arg-2 arg-3) (PreludeC-45Types-u--compare_Ord_C-40ListC-32C-36aC-41 arg-1 (DataC-45List1-forget arg-2) (DataC-45List1-forget arg-3)))) +(define DataC-45List1-u--C-62C-62C-61_Monad_List1 (lambda (arg-2 arg-3) (let ((e-1 (car arg-2))) (let ((e-2 (cdr arg-2))) (DataC-45List1-appendl (arg-3 e-1) (PreludeC-45Types-u--C-62C-62C-61_Monad_List e-2 (lambda (eta-0) (DataC-45List1-forget (arg-3 eta-0))))))))) +(define DataC-45List1-u--C-61C-61_Eq_C-40List1C-32C-36aC-41 (lambda (arg-1 arg-2 arg-3) (let ((e-1 (car arg-2))) (let ((e-2 (cdr arg-2))) (let ((e-4 (car arg-3))) (let ((e-5 (cdr arg-3))) (let ((sc2 (let ((e-6 (car arg-1))) ((e-6 e-1) e-4)))) (cond ((equal? sc2 1) (PreludeC-45Types-u--C-61C-61_Eq_C-40ListC-32C-36aC-41 arg-1 e-2 e-5)) (else 0))))))))) +(define DataC-45List1-singleton (lambda (arg-1) (cons arg-1 '()))) +(define DataC-45List1-reverseOnto (lambda (arg-1 arg-2) (if (null? arg-2) arg-1 (let ((e-2 (car arg-2))) (let ((e-3 (cdr arg-2))) (DataC-45List1-reverseOnto (cons e-2 (DataC-45List1-forget arg-1)) e-3)))))) +(define DataC-45List1-reverse (lambda (arg-1) (let ((e-1 (car arg-1))) (let ((e-2 (cdr arg-1))) (DataC-45List1-reverseOnto (DataC-45List1-singleton e-1) e-2))))) +(define DataC-45List1-last (lambda (arg-1) (let ((e-1 (car arg-1))) (let ((e-2 (cdr arg-1))) (DataC-45List1-n--2073-771-u--loop e-1 e-2 e-1 e-2))))) +(define DataC-45List1-fromList (lambda (arg-1) (if (null? arg-1) '() (let ((e-2 (car arg-1))) (let ((e-3 (cdr arg-1))) (box (cons e-2 e-3))))))) +(define DataC-45List1-forget (lambda (arg-1) (let ((e-1 (car arg-1))) (let ((e-2 (cdr arg-1))) (cons e-1 e-2))))) +(define DataC-45List1-cons (lambda (arg-1 arg-2) (cons arg-1 (DataC-45List1-forget arg-2)))) +(define DataC-45List1-appendl (lambda (arg-1 arg-2) (let ((e-1 (car arg-1))) (let ((e-2 (cdr arg-1))) (cons e-1 (PreludeC-45TypesC-45List-C-43C-43 e-2 arg-2)))))) +(define DataC-45List-n--5394-3345-u--spreadHeads (lambda (arg-1 arg-2 arg-3 arg-4) (if (null? arg-3) arg-4 (let ((e-2 (car arg-3))) (let ((e-3 (cdr arg-3))) (if (null? arg-4) (cons (cons e-2 '()) (DataC-45List-n--5394-3345-u--spreadHeads arg-1 arg-2 e-3 '())) (let ((e-6 (car arg-4))) (let ((e-7 (cdr arg-4))) (cons (cons e-2 e-6) (DataC-45List-n--5394-3345-u--spreadHeads arg-1 arg-2 e-3 e-7)))))))))) +(define DataC-45List-n--5223-3168-u--splitRec (lambda (arg-1 arg-2 arg-4 arg-5 arg-6) (if (null? arg-4) (cons arg-5 (arg-6 '())) (let ((e-2 (cdr arg-4))) (if (null? e-2) (cons arg-5 (arg-6 '())) (let ((e-5 (cdr e-2))) (if (null? arg-5) (cons arg-5 (arg-6 '())) (let ((e-7 (car arg-5))) (let ((e-8 (cdr arg-5))) (DataC-45List-n--5223-3168-u--splitRec arg-1 arg-2 e-5 e-8 (lambda (eta-0) (arg-6 (cons e-7 eta-0))))))))))))) +(define DataC-45List-n--5223-3169-u--split (lambda (arg-1 arg-2 arg-3) (DataC-45List-n--5223-3168-u--splitRec arg-1 arg-2 arg-3 arg-3 (lambda (eta-0) eta-0)))) +(define DataC-45List-n--3202-1206-u--nubByC-39 (lambda (arg-1 arg-2 arg-3) (if (null? arg-3) '() (let ((e-2 (car arg-3))) (let ((e-3 (cdr arg-3))) (let ((sc1 (DataC-45List-elemBy arg-2 e-2 arg-1))) (cond ((equal? sc1 1) (DataC-45List-n--3202-1206-u--nubByC-39 arg-1 arg-2 e-3)) (else (cons e-2 (DataC-45List-n--3202-1206-u--nubByC-39 (cons e-2 arg-1) arg-2 e-3)))))))))) (define DataC-45List-u--zip_Zippable_List (lambda (ext-0 ext-1) (DataC-45List-u--zipWith_Zippable_List (lambda (__leftTupleSection-0) (lambda (__infixTupleSection-0) (cons __leftTupleSection-0 __infixTupleSection-0))) ext-0 ext-1))) -(define DataC-45List-u--zipWith_Zippable_List (lambda (arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (if (null? sc0) '() (let ((sc1 arg-5)) (if (null? sc1) '() (let ((sc2 arg-4)) (let ((e-1 (car sc2))) (let ((e-2 (cdr sc2))) (let ((sc3 arg-5)) (let ((e-4 (car sc3))) (let ((e-5 (cdr sc3))) (cons ((arg-3 e-1) e-4) (DataC-45List-u--zipWith_Zippable_List arg-3 e-2 e-5)))))))))))))) -(define DataC-45List-u--zipWith3_Zippable_List (lambda (arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-5)) (if (null? sc0) '() (let ((sc1 arg-6)) (if (null? sc1) '() (let ((sc2 arg-7)) (if (null? sc2) '() (let ((sc3 arg-5)) (let ((e-1 (car sc3))) (let ((e-2 (cdr sc3))) (let ((sc4 arg-6)) (let ((e-4 (car sc4))) (let ((e-5 (cdr sc4))) (let ((sc5 arg-7)) (let ((e-7 (car sc5))) (let ((e-8 (cdr sc5))) (cons (((arg-4 e-1) e-4) e-7) (DataC-45List-u--zipWith3_Zippable_List arg-4 e-2 e-5 e-8))))))))))))))))))) +(define DataC-45List-u--zipWith_Zippable_List (lambda (arg-3 arg-4 arg-5) (if (null? arg-4) '() (if (null? arg-5) '() (let ((e-1 (car arg-4))) (let ((e-2 (cdr arg-4))) (let ((e-4 (car arg-5))) (let ((e-5 (cdr arg-5))) (cons ((arg-3 e-1) e-4) (DataC-45List-u--zipWith_Zippable_List arg-3 e-2 e-5)))))))))) +(define DataC-45List-u--zipWith3_Zippable_List (lambda (arg-4 arg-5 arg-6 arg-7) (if (null? arg-5) '() (if (null? arg-6) '() (if (null? arg-7) '() (let ((e-1 (car arg-5))) (let ((e-2 (cdr arg-5))) (let ((e-4 (car arg-6))) (let ((e-5 (cdr arg-6))) (let ((e-7 (car arg-7))) (let ((e-8 (cdr arg-7))) (cons (((arg-4 e-1) e-4) e-7) (DataC-45List-u--zipWith3_Zippable_List arg-4 e-2 e-5 e-8))))))))))))) (define DataC-45List-u--zip3_Zippable_List (lambda (ext-0 ext-1 ext-2) (DataC-45List-u--zipWith3_Zippable_List (lambda (__leftTupleSection-0) (lambda (__infixTupleSection-0) (lambda (__infixTupleSection-1) (cons __leftTupleSection-0 (cons __infixTupleSection-0 __infixTupleSection-1))))) ext-0 ext-1 ext-2))) -(define DataC-45List-u--uninhabited_Uninhabited_C-40C-124C-40C-40C-61C-61C-61C-32NilC-41C-32C-40C-40PreludeC-46C-58C-58C-32C-36xC-41C-32C-36xsC-41C-41C-44C-40C-40C-126C-61C-126C-32NilC-41C-32C-40C-40PreludeC-46C-58C-58C-32C-36xC-41C-32C-36xsC-41C-41C-124C-41 (lambda (arg-0) (blodwen-error-quit "No clauses"))) -(define DataC-45List-u--uninhabited_Uninhabited_C-40C-124C-40C-40C-61C-61C-61C-32C-40C-40PreludeC-46C-58C-58C-32C-36xC-41C-32C-36xsC-41C-41C-32NilC-41C-44C-40C-40C-126C-61C-126C-32C-40C-40PreludeC-46C-58C-58C-32C-36xC-41C-32C-36xsC-41C-41C-32NilC-41C-124C-41 (lambda (arg-0) (blodwen-error-quit "No clauses"))) +(define DataC-45List-u--uninhabited_Uninhabited_C-40C-124C-40C-40C-61C-61C-61C-32NilC-41C-32C-40C-40C-58C-58C-32C-36xC-41C-32C-36xsC-41C-41C-44C-40C-40C-126C-61C-126C-32NilC-41C-32C-40C-40C-58C-58C-32C-36xC-41C-32C-36xsC-41C-41C-124C-41 (lambda (arg-0) (blodwen-error-quit "No clauses"))) +(define DataC-45List-u--uninhabited_Uninhabited_C-40C-124C-40C-40C-61C-61C-61C-32C-40C-40C-58C-58C-32C-36xC-41C-32C-36xsC-41C-41C-32NilC-41C-44C-40C-40C-126C-61C-126C-32C-40C-40C-58C-58C-32C-36xC-41C-32C-36xsC-41C-41C-32NilC-41C-124C-41 (lambda (arg-0) (blodwen-error-quit "No clauses"))) (define DataC-45List-unionBy (lambda (arg-1 arg-2 arg-3) (PreludeC-45TypesC-45List-C-43C-43 arg-2 (PreludeC-45Types-u--foldl_Foldable_List (lambda (eta-0) (lambda (eta-1) (PreludeC-45Basics-flip (lambda (eta-2) (lambda (eta-3) (DataC-45List-deleteBy arg-1 eta-2 eta-3))) eta-0 eta-1))) (DataC-45List-nubBy arg-1 arg-3) arg-2)))) -(define DataC-45List-union (lambda (arg-1 ext-0 ext-1) (DataC-45List-unionBy (lambda (eta-0) (lambda (eta-1) (let ((sc0 arg-1)) (let ((e-1 (car sc0))) ((e-1 eta-0) eta-1))))) ext-0 ext-1))) -(define DataC-45List-transpose (lambda (arg-1) (let ((sc0 arg-1)) (if (null? sc0) '() (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (DataC-45List-n--6204-3792-u--spreadHeads e-2 e-3 e-2 (DataC-45List-transpose e-3)))))))) -(define DataC-45List-toList (lambda (arg-2 ext-0) (let ((sc0 arg-2)) (let ((e-1 (vector-ref sc0 1))) (((((e-1 'erased) 'erased) (lambda (eta-0) (lambda (eta-1) (cons eta-0 eta-1)))) '()) ext-0))))) -(define DataC-45List-take (lambda (arg-1 arg-2) (let ((sc0 arg-1)) (cond ((equal? sc0 0) '())(else (let ((e-0 (- arg-1 1))) (let ((sc0 arg-2)) (if (null? sc0) '() (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (cons e-2 (DataC-45List-take e-0 e-3)))))))))))) -(define DataC-45List-tails (lambda (arg-1) (cons arg-1 (let ((sc0 arg-1)) (if (null? sc0) '() (let ((e-3 (cdr sc0))) (DataC-45List-tails e-3))))))) -(define DataC-45List-tailC-39 (lambda (arg-1) (let ((sc0 arg-1)) (if (null? sc0) (vector 0 ) (let ((e-3 (cdr sc0))) (vector 1 e-3)))))) -(define DataC-45List-splitAt (lambda (arg-1 arg-2) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (cons '() arg-2))(else (let ((e-0 (- arg-1 1))) (let ((sc0 arg-2)) (if (null? sc0) (cons '() '()) (let ((e-3 (car sc0))) (let ((e-4 (cdr sc0))) (DataC-45List-case--splitAt-1799 e-0 e-3 e-4 (DataC-45List-splitAt e-0 e-4)))))))))))) -(define DataC-45List-split (lambda (arg-1 arg-2) (DataC-45List-case--split-1727 arg-2 arg-1 (DataC-45List-break arg-1 arg-2)))) -(define DataC-45List-spanBy (lambda (arg-2 arg-3) (let ((sc0 arg-3)) (if (null? sc0) (cons '() '()) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (DataC-45List-case--spanBy-1525 e-2 e-3 arg-2 (arg-2 e-2)))))))) -(define DataC-45List-span (lambda (arg-1 arg-2) (let ((sc0 arg-2)) (if (null? sc0) (cons '() '()) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (DataC-45List-case--span-1633 e-2 e-3 arg-1 (arg-1 e-2)))))))) -(define DataC-45List-sortBy (lambda (arg-1 arg-2) (let ((sc0 arg-2)) (if (null? sc0) '() (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-3)) (if (null? sc1) (cons e-2 '()) (DataC-45List-case--sortBy-3655 arg-2 arg-1 (DataC-45List-n--6014-3607-u--split arg-2 arg-1 arg-2)))))))))) -(define DataC-45List-sort (lambda (arg-1 ext-0) (DataC-45List-sortBy (lambda (eta-0) (lambda (eta-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) ((e-2 eta-0) eta-1))))) ext-0))) +(define DataC-45List-union (lambda (arg-1 ext-0 ext-1) (DataC-45List-unionBy (lambda (eta-0) (lambda (eta-1) (let ((e-1 (car arg-1))) ((e-1 eta-0) eta-1)))) ext-0 ext-1))) +(define DataC-45List-transpose (lambda (arg-1) (if (null? arg-1) '() (let ((e-2 (car arg-1))) (let ((e-3 (cdr arg-1))) (DataC-45List-n--5394-3345-u--spreadHeads e-2 e-3 e-2 (DataC-45List-transpose e-3))))))) +(define DataC-45List-take (lambda (arg-1 arg-2) (cond ((equal? arg-1 0) '())(else (let ((e-0 (- arg-1 1))) (if (null? arg-2) '() (let ((e-2 (car arg-2))) (let ((e-3 (cdr arg-2))) (cons e-2 (DataC-45List-take e-0 e-3)))))))))) +(define DataC-45List-tails (lambda (arg-1) (cons arg-1 (if (null? arg-1) '() (let ((e-3 (cdr arg-1))) (DataC-45List-tails e-3)))))) +(define DataC-45List-tailC-39 (lambda (arg-1) (if (null? arg-1) '() (let ((e-3 (cdr arg-1))) (box e-3))))) +(define DataC-45List-splitAt (lambda (arg-1 arg-2) (cond ((equal? arg-1 0) (cons '() arg-2))(else (let ((e-0 (- arg-1 1))) (if (null? arg-2) (cons '() '()) (let ((e-3 (car arg-2))) (let ((e-4 (cdr arg-2))) (let ((sc1 (DataC-45List-splitAt e-0 e-4))) (let ((e-2 (car sc1))) (let ((e-5 (cdr sc1))) (cons (cons e-3 e-2) e-5)))))))))))) +(define DataC-45List-split (lambda (arg-1 arg-2) (let ((sc0 (DataC-45List-break arg-1 arg-2))) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (if (null? e-3) (DataC-45List1-singleton e-2) (let ((e-7 (cdr e-3))) (cons e-2 (DataC-45List1-forget (DataC-45List-split arg-1 e-7)))))))))) +(define DataC-45List-spanBy (lambda (arg-2 arg-3) (if (null? arg-3) (cons '() '()) (let ((e-2 (car arg-3))) (let ((e-3 (cdr arg-3))) (let ((sc1 (arg-2 e-2))) (if (null? sc1) (cons '() (cons e-2 e-3)) (let ((e-4 (unbox sc1))) (let ((sc2 (DataC-45List-spanBy arg-2 e-3))) (let ((e-6 (car sc2))) (let ((e-5 (cdr sc2))) (cons (cons e-4 e-6) e-5)))))))))))) +(define DataC-45List-span (lambda (arg-1 arg-2) (if (null? arg-2) (cons '() '()) (let ((e-2 (car arg-2))) (let ((e-3 (cdr arg-2))) (let ((sc1 (arg-1 e-2))) (cond ((equal? sc1 1) (let ((sc2 (DataC-45List-span arg-1 e-3))) (let ((e-5 (car sc2))) (let ((e-4 (cdr sc2))) (cons (cons e-2 e-5) e-4))))) (else (cons '() (cons e-2 e-3)))))))))) +(define DataC-45List-sortBy (lambda (arg-1 arg-2) (if (null? arg-2) '() (let ((e-2 (car arg-2))) (let ((e-3 (cdr arg-2))) (if (null? e-3) (cons e-2 '()) (let ((sc2 (DataC-45List-n--5223-3169-u--split arg-2 arg-1 arg-2))) (let ((e-5 (car sc2))) (let ((e-4 (cdr sc2))) (DataC-45List-mergeBy arg-1 (DataC-45List-sortBy arg-1 e-5) (DataC-45List-sortBy arg-1 e-4))))))))))) +(define DataC-45List-sort (lambda (arg-1 ext-0) (DataC-45List-sortBy (lambda (eta-0) (lambda (eta-1) (let ((e-2 (vector-ref arg-1 1))) ((e-2 eta-0) eta-1)))) ext-0))) (define DataC-45List-snoc (lambda (arg-1 arg-2) (PreludeC-45TypesC-45List-C-43C-43 arg-1 (cons arg-2 '())))) -(define DataC-45List-reverseOnto (lambda (arg-1 arg-2) (let ((sc0 arg-2)) (if (null? sc0) arg-1 (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (DataC-45List-reverseOnto (cons e-2 arg-1) e-3))))))) +(define DataC-45List-reverseOnto (lambda (arg-1 arg-2) (if (null? arg-2) arg-1 (let ((e-2 (car arg-2))) (let ((e-3 (cdr arg-2))) (DataC-45List-reverseOnto (cons e-2 arg-1) e-3)))))) (define DataC-45List-reverse (lambda (ext-0) (DataC-45List-reverseOnto '() ext-0))) -(define DataC-45List-replicate (lambda (arg-1 arg-2) (let ((sc0 arg-1)) (cond ((equal? sc0 0) '())(else (let ((e-0 (- arg-1 1))) (cons arg-2 (DataC-45List-replicate e-0 arg-2)))))))) -(define DataC-45List-replaceWhen (lambda (arg-1 arg-2 arg-3) (PreludeC-45Types-u--map_Functor_List (lambda (u--c) (DataC-45List-case--replaceWhen-2006 arg-2 arg-3 arg-1 u--c (arg-1 u--c))) arg-3))) -(define DataC-45List-replaceOn (lambda (arg-1 arg-2 ext-0 ext-1) (DataC-45List-replaceWhen (lambda (arg-0) (let ((sc0 arg-1)) (let ((e-1 (car sc0))) ((e-1 arg-0) arg-2)))) ext-0 ext-1))) -(define DataC-45List-partition (lambda (arg-1 arg-2) (let ((sc0 arg-2)) (if (null? sc0) (cons '() '()) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (DataC-45List-case--partition-1851 e-2 e-3 arg-1 (DataC-45List-partition arg-1 e-3)))))))) -(define DataC-45List-nubBy (lambda (ext-0 ext-1) (DataC-45List-n--3787-1301-u--nubByC-39 '() ext-0 ext-1))) -(define DataC-45List-nub (lambda (arg-1 ext-0) (DataC-45List-nubBy (lambda (eta-0) (lambda (eta-1) (let ((sc0 arg-1)) (let ((e-1 (car sc0))) ((e-1 eta-0) eta-1))))) ext-0))) -(define DataC-45List-mergeReplicate (lambda (arg-1 arg-2) (let ((sc0 arg-2)) (if (null? sc0) '() (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (cons arg-1 (cons e-2 (DataC-45List-mergeReplicate arg-1 e-3))))))))) -(define DataC-45List-mergeBy (lambda (arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (if (null? sc0) arg-3 (let ((sc1 arg-3)) (if (null? sc1) arg-2 (let ((sc2 arg-2)) (let ((e-1 (car sc2))) (let ((e-2 (cdr sc2))) (let ((sc3 arg-3)) (let ((e-4 (car sc3))) (let ((e-5 (cdr sc3))) (DataC-45List-case--mergeBy-3510 e-1 e-2 e-4 e-5 arg-1 ((arg-1 e-1) e-4)))))))))))))) -(define DataC-45List-mapMaybe (lambda (arg-2 arg-3) (let ((sc0 arg-3)) (if (null? sc0) '() (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (DataC-45List-case--mapMaybe-3395 e-2 e-3 arg-2 (arg-2 e-2)))))))) -(define DataC-45List-lookupBy (lambda (arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (if (null? sc0) (vector 0 ) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (DataC-45List-case--lookupBy-1198 arg-3 e-6 e-7 e-3 arg-2 ((arg-2 arg-3) e-6))))))))))) -(define DataC-45List-lookup (lambda (arg-2 ext-0 ext-1) (DataC-45List-lookupBy (lambda (eta-0) (lambda (eta-1) (let ((sc0 arg-2)) (let ((e-1 (car sc0))) ((e-1 eta-0) eta-1))))) ext-0 ext-1))) -(define DataC-45List-last (lambda (arg-1) (let ((sc0 arg-1)) (let ((e-1 (car sc0))) (let ((e-2 (cdr sc0))) (let ((sc1 e-2)) (if (null? sc1) e-1 (DataC-45List-last e-2)))))))) +(define DataC-45List-replicate (lambda (arg-1 arg-2) (cond ((equal? arg-1 0) '())(else (let ((e-0 (- arg-1 1))) (cons arg-2 (DataC-45List-replicate e-0 arg-2))))))) +(define DataC-45List-replaceWhen (lambda (arg-1 arg-2 arg-3) (PreludeC-45Types-u--map_Functor_List (lambda (u--c) (let ((sc0 (arg-1 u--c))) (cond ((equal? sc0 1) arg-2) (else u--c)))) arg-3))) +(define DataC-45List-replaceOn (lambda (arg-1 arg-2 ext-0 ext-1) (DataC-45List-replaceWhen (lambda (arg-0) (let ((e-1 (car arg-1))) ((e-1 arg-0) arg-2))) ext-0 ext-1))) +(define DataC-45List-partition (lambda (arg-1 arg-2) (if (null? arg-2) (cons '() '()) (let ((e-2 (car arg-2))) (let ((e-3 (cdr arg-2))) (let ((sc1 (DataC-45List-partition arg-1 e-3))) (let ((e-5 (car sc1))) (let ((e-4 (cdr sc1))) (let ((sc2 (arg-1 e-2))) (cond ((equal? sc2 1) (cons (cons e-2 e-5) e-4)) (else (cons e-5 (cons e-2 e-4))))))))))))) +(define DataC-45List-nubBy (lambda (ext-0 ext-1) (DataC-45List-n--3202-1206-u--nubByC-39 '() ext-0 ext-1))) +(define DataC-45List-nub (lambda (arg-1 ext-0) (DataC-45List-nubBy (lambda (eta-0) (lambda (eta-1) (let ((e-1 (car arg-1))) ((e-1 eta-0) eta-1)))) ext-0))) +(define DataC-45List-mergeReplicate (lambda (arg-1 arg-2) (if (null? arg-2) '() (let ((e-2 (car arg-2))) (let ((e-3 (cdr arg-2))) (cons arg-1 (cons e-2 (DataC-45List-mergeReplicate arg-1 e-3)))))))) +(define DataC-45List-mergeBy (lambda (arg-1 arg-2 arg-3) (if (null? arg-2) arg-3 (if (null? arg-3) arg-2 (let ((e-1 (car arg-2))) (let ((e-2 (cdr arg-2))) (let ((e-4 (car arg-3))) (let ((e-5 (cdr arg-3))) (let ((sc4 ((arg-1 e-1) e-4))) (cond ((equal? sc4 0) (cons e-1 (DataC-45List-mergeBy arg-1 e-2 (cons e-4 e-5))))(else (cons e-4 (DataC-45List-mergeBy arg-1 (cons e-1 e-2) e-5))))))))))))) +(define DataC-45List-mapMaybe (lambda (arg-2 arg-3) (if (null? arg-3) '() (let ((e-2 (car arg-3))) (let ((e-3 (cdr arg-3))) (let ((sc1 (arg-2 e-2))) (if (null? sc1) (DataC-45List-mapMaybe arg-2 e-3) (let ((e-4 (unbox sc1))) (cons e-4 (DataC-45List-mapMaybe arg-2 e-3)))))))))) +(define DataC-45List-lookupBy (lambda (arg-2 arg-3 arg-4) (if (null? arg-4) '() (let ((e-2 (car arg-4))) (let ((e-3 (cdr arg-4))) (let ((e-6 (car e-2))) (let ((e-7 (cdr e-2))) (let ((sc2 ((arg-2 arg-3) e-6))) (cond ((equal? sc2 1) (box e-7)) (else (DataC-45List-lookupBy arg-2 arg-3 e-3))))))))))) +(define DataC-45List-lookup (lambda (arg-2 ext-0 ext-1) (DataC-45List-lookupBy (lambda (eta-0) (lambda (eta-1) (let ((e-1 (car arg-2))) ((e-1 eta-0) eta-1)))) ext-0 ext-1))) +(define DataC-45List-last (lambda (arg-1) (let ((e-1 (car arg-1))) (let ((e-2 (cdr arg-1))) (if (null? e-2) e-1 (DataC-45List-last e-2)))))) (define DataC-45List-isSuffixOfBy (lambda (arg-1 arg-2 arg-3) (DataC-45List-isPrefixOfBy arg-1 (DataC-45List-reverse arg-2) (DataC-45List-reverse arg-3)))) -(define DataC-45List-isSuffixOf (lambda (arg-1 ext-0 ext-1) (DataC-45List-isSuffixOfBy (lambda (eta-0) (lambda (eta-1) (let ((sc0 arg-1)) (let ((e-1 (car sc0))) ((e-1 eta-0) eta-1))))) ext-0 ext-1))) -(define DataC-45List-isPrefixOfBy (lambda (arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (if (null? sc0) 0 (let ((sc1 arg-3)) (if (null? sc1) 1 (let ((sc2 arg-2)) (let ((e-1 (car sc2))) (let ((e-2 (cdr sc2))) (let ((sc3 arg-3)) (let ((e-4 (car sc3))) (let ((e-5 (cdr sc3))) (PreludeC-45Basics-C-38C-38 ((arg-1 e-1) e-4) (lambda () (DataC-45List-isPrefixOfBy arg-1 e-2 e-5))))))))))))))) -(define DataC-45List-isPrefixOf (lambda (arg-1 ext-0 ext-1) (DataC-45List-isPrefixOfBy (lambda (eta-0) (lambda (eta-1) (let ((sc0 arg-1)) (let ((e-1 (car sc0))) ((e-1 eta-0) eta-1))))) ext-0 ext-1))) -(define DataC-45List-isNil (lambda (arg-1) (let ((sc0 arg-1)) (if (null? sc0) 0 1)))) -(define DataC-45List-isInfixOf (lambda (arg-1 arg-2 arg-3) (PreludeC-45Interfaces-any (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (lambda (eta-0) (DataC-45List-isPrefixOf arg-1 arg-2 eta-0)) (DataC-45List-tails arg-3)))) -(define DataC-45List-isCons (lambda (arg-1) (let ((sc0 arg-1)) (if (null? sc0) 1 0)))) -(define DataC-45List-intersperse (lambda (arg-1 arg-2) (let ((sc0 arg-2)) (if (null? sc0) '() (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (cons e-2 (DataC-45List-mergeReplicate arg-1 e-3)))))))) -(define DataC-45List-intersectAllBy (lambda (arg-1 arg-2) (let ((sc0 arg-2)) (if (null? sc0) '() (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (DataC-45List-filter (lambda (u--x) (PreludeC-45Interfaces-all (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (lambda (eta-0) (DataC-45List-elemBy arg-1 u--x eta-0)) e-3)) e-2))))))) -(define DataC-45List-intersectAll (lambda (arg-1 ext-0) (DataC-45List-intersectAllBy (lambda (eta-0) (lambda (eta-1) (let ((sc0 arg-1)) (let ((e-1 (car sc0))) ((e-1 eta-0) eta-1))))) ext-0))) -(define DataC-45List-init (lambda (arg-1) (let ((sc0 arg-1)) (let ((e-1 (car sc0))) (let ((e-2 (cdr sc0))) (let ((sc1 e-2)) (if (null? sc1) '() (cons e-1 (DataC-45List-init e-2))))))))) -(define DataC-45List-headC-39 (lambda (arg-1) (let ((sc0 arg-1)) (if (null? sc0) (vector 0 ) (let ((e-2 (car sc0))) (vector 1 e-2)))))) -(define DataC-45List-head (lambda (arg-1) (let ((sc0 arg-1)) (let ((e-1 (car sc0))) e-1)))) -(define DataC-45List-foldr1By (lambda (arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-1 (car sc0))) (let ((e-2 (cdr sc0))) (let ((sc1 e-2)) (if (null? sc1) (arg-3 e-1) ((arg-2 e-1) (DataC-45List-foldr1By arg-2 arg-3 e-2))))))))) +(define DataC-45List-isSuffixOf (lambda (arg-1 ext-0 ext-1) (DataC-45List-isSuffixOfBy (lambda (eta-0) (lambda (eta-1) (let ((e-1 (car arg-1))) ((e-1 eta-0) eta-1)))) ext-0 ext-1))) +(define DataC-45List-isPrefixOfBy (lambda (arg-1 arg-2 arg-3) (if (null? arg-2) 1 (if (null? arg-3) 0 (let ((e-1 (car arg-2))) (let ((e-2 (cdr arg-2))) (let ((e-4 (car arg-3))) (let ((e-5 (cdr arg-3))) (let ((sc4 ((arg-1 e-1) e-4))) (cond ((equal? sc4 1) (DataC-45List-isPrefixOfBy arg-1 e-2 e-5)) (else 0))))))))))) +(define DataC-45List-isPrefixOf (lambda (arg-1 ext-0 ext-1) (DataC-45List-isPrefixOfBy (lambda (eta-0) (lambda (eta-1) (let ((e-1 (car arg-1))) ((e-1 eta-0) eta-1)))) ext-0 ext-1))) +(define DataC-45List-isNil (lambda (arg-1) (if (null? arg-1) 1 0))) +(define DataC-45List-isInfixOf (lambda (arg-1 arg-2 arg-3) (PreludeC-45Interfaces-any (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (lambda (eta-0) (DataC-45List-isPrefixOf arg-1 arg-2 eta-0)) (DataC-45List-tails arg-3)))) +(define DataC-45List-isCons (lambda (arg-1) (if (null? arg-1) 0 1))) +(define DataC-45List-intersperse (lambda (arg-1 arg-2) (if (null? arg-2) '() (let ((e-2 (car arg-2))) (let ((e-3 (cdr arg-2))) (cons e-2 (DataC-45List-mergeReplicate arg-1 e-3))))))) +(define DataC-45List-intersectAllBy (lambda (arg-1 arg-2) (if (null? arg-2) '() (let ((e-2 (car arg-2))) (let ((e-3 (cdr arg-2))) (DataC-45List-filter (lambda (u--x) (PreludeC-45Interfaces-all (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (lambda (eta-0) (DataC-45List-elemBy arg-1 u--x eta-0)) e-3)) e-2)))))) +(define DataC-45List-intersectAll (lambda (arg-1 ext-0) (DataC-45List-intersectAllBy (lambda (eta-0) (lambda (eta-1) (let ((e-1 (car arg-1))) ((e-1 eta-0) eta-1)))) ext-0))) +(define DataC-45List-init (lambda (arg-1) (let ((e-1 (car arg-1))) (let ((e-2 (cdr arg-1))) (if (null? e-2) '() (cons e-1 (DataC-45List-init e-2))))))) +(define DataC-45List-headC-39 (lambda (arg-1) (if (null? arg-1) '() (let ((e-2 (car arg-1))) (box e-2))))) +(define DataC-45List-head (lambda (arg-1) (let ((e-1 (car arg-1))) e-1))) +(define DataC-45List-foldr1By (lambda (arg-2 arg-3 arg-4) (let ((e-1 (car arg-4))) (let ((e-2 (cdr arg-4))) (if (null? e-2) (arg-3 e-1) ((arg-2 e-1) (DataC-45List-foldr1By arg-2 arg-3 e-2))))))) (define DataC-45List-foldr1 (lambda (arg-1 arg-2) (DataC-45List-foldr1By arg-1 (lambda (eta-0) eta-0) arg-2))) -(define DataC-45List-find (lambda (arg-1 arg-2) (let ((sc0 arg-2)) (if (null? sc0) (vector 0 ) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (DataC-45List-case--find-1128 e-2 e-3 arg-1 (arg-1 e-2)))))))) -(define DataC-45List-filter (lambda (arg-1 arg-2) (let ((sc0 arg-2)) (if (null? sc0) '() (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (DataC-45List-case--filter-1072 e-2 e-3 arg-1 (arg-1 e-2)))))))) -(define DataC-45List-elemBy (lambda (arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (if (null? sc0) 1 (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (PreludeC-45Basics-C-124C-124 ((arg-1 arg-2) e-2) (lambda () (DataC-45List-elemBy arg-1 arg-2 e-3))))))))) -(define DataC-45List-dropWhile (lambda (arg-1 arg-2) (let ((sc0 arg-2)) (if (null? sc0) '() (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (DataC-45List-case--dropWhile-1018 e-2 e-3 arg-1 (arg-1 e-2)))))))) -(define DataC-45List-drop (lambda (arg-1 arg-2) (let ((sc0 arg-1)) (cond ((equal? sc0 0) arg-2)(else (let ((e-0 (- arg-1 1))) (let ((sc0 arg-2)) (if (null? sc0) '() (let ((e-4 (cdr sc0))) (DataC-45List-drop e-0 e-4)))))))))) -(define DataC-45List-deleteBy (lambda (arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (if (null? sc0) '() (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (DataC-45List-case--deleteBy-1401 arg-2 e-2 e-3 arg-1 ((arg-1 arg-2) e-2)))))))) -(define DataC-45List-delete (lambda (arg-1 ext-0 ext-1) (DataC-45List-deleteBy (lambda (eta-0) (lambda (eta-1) (let ((sc0 arg-1)) (let ((e-1 (car sc0))) ((e-1 eta-0) eta-1))))) ext-0 ext-1))) -(define DataC-45List-consInjective (lambda (arg-6) (let ((sc0 arg-6)) (cons (vector 0 ) (vector 0 ))))) +(define DataC-45List-find (lambda (arg-1 arg-2) (if (null? arg-2) '() (let ((e-2 (car arg-2))) (let ((e-3 (cdr arg-2))) (let ((sc1 (arg-1 e-2))) (cond ((equal? sc1 1) (box e-2)) (else (DataC-45List-find arg-1 e-3))))))))) +(define DataC-45List-filter (lambda (arg-1 arg-2) (if (null? arg-2) '() (let ((e-2 (car arg-2))) (let ((e-3 (cdr arg-2))) (let ((sc1 (arg-1 e-2))) (cond ((equal? sc1 1) (cons e-2 (DataC-45List-filter arg-1 e-3))) (else (DataC-45List-filter arg-1 e-3))))))))) +(define DataC-45List-elemBy (lambda (arg-1 arg-2 arg-3) (if (null? arg-3) 0 (let ((e-2 (car arg-3))) (let ((e-3 (cdr arg-3))) (let ((sc1 ((arg-1 arg-2) e-2))) (cond ((equal? sc1 1) 1) (else (DataC-45List-elemBy arg-1 arg-2 e-3))))))))) +(define DataC-45List-dropWhile (lambda (arg-1 arg-2) (if (null? arg-2) '() (let ((e-2 (car arg-2))) (let ((e-3 (cdr arg-2))) (let ((sc1 (arg-1 e-2))) (cond ((equal? sc1 1) (DataC-45List-dropWhile arg-1 e-3)) (else (cons e-2 e-3))))))))) +(define DataC-45List-drop (lambda (arg-1 arg-2) (cond ((equal? arg-1 0) arg-2)(else (let ((e-0 (- arg-1 1))) (if (null? arg-2) '() (let ((e-4 (cdr arg-2))) (DataC-45List-drop e-0 e-4)))))))) +(define DataC-45List-deleteBy (lambda (arg-1 arg-2 arg-3) (if (null? arg-3) '() (let ((e-2 (car arg-3))) (let ((e-3 (cdr arg-3))) (let ((sc1 ((arg-1 arg-2) e-2))) (cond ((equal? sc1 1) e-3) (else (cons e-2 (DataC-45List-deleteBy arg-1 arg-2 e-3)))))))))) +(define DataC-45List-delete (lambda (arg-1 ext-0 ext-1) (DataC-45List-deleteBy (lambda (eta-0) (lambda (eta-1) (let ((e-1 (car arg-1))) ((e-1 eta-0) eta-1)))) ext-0 ext-1))) +(define DataC-45List-consInjective (lambda (arg-6) (cond (else (cons 0 0))))) (define DataC-45List-catMaybes (lambda (ext-0) (DataC-45List-mapMaybe (lambda (eta-0) eta-0) ext-0))) -(define DataC-45List-break (lambda (arg-1 arg-2) (DataC-45List-span (lambda (eta-0) (let ((sc0 (arg-1 eta-0))) (cond ((equal? sc0 0) 1) (else 0)))) arg-2))) -(define DataC-45Nat-case--divC-39-865 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) 0) (else (+ 1 (DataC-45Nat-divC-39 arg-0 (PreludeC-45Types-minus arg-2 (+ 1 arg-1)) arg-1))))))) -(define DataC-45Nat-case--isLTE-539 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (vector 1 (lambda (eta-0) (e-1 (DataC-45Nat-fromLteSucc eta-0)))))) (else (let ((e-3 (vector-ref sc0 1))) (vector 0 (vector 1 e-3)))))))) +(define DataC-45List-break (lambda (arg-1 arg-2) (DataC-45List-span (lambda (eta-0) (let ((sc0 (arg-1 eta-0))) (cond ((equal? sc0 1) 0) (else 1)))) arg-2))) +(define DataC-45Fin-natToFin (lambda (arg-0 arg-1) (cond ((equal? arg-0 0) (cond ((equal? arg-1 0) '())(else (box '()))))(else (let ((e-0 (- arg-0 1))) (cond ((equal? arg-1 0) '())(else (let ((e-2 (- arg-1 1))) (PreludeC-45Types-u--map_Functor_Maybe (lambda (eta-0) (box eta-0)) (DataC-45Fin-natToFin e-0 e-2)))))))))) (define DataC-45Nat-succNotLTEzero (lambda (arg-0) (blodwen-error-quit "No clauses"))) -(define DataC-45Nat-pred (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 0) 0)(else (let ((e-0 (- arg-0 1))) e-0)))))) -(define DataC-45Nat-lte (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (cond ((equal? sc0 0) 0)(else (let ((sc0 arg-1)) (cond ((equal? sc0 0) 1)(else (let ((sc0 arg-0)) (cond ((equal? sc0 0) (blodwen-error-quit "Nat case not covered"))(else (let ((e-0 (- arg-0 1))) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (blodwen-error-quit "Nat case not covered"))(else (let ((e-1 (- arg-1 1))) (DataC-45Nat-lte e-0 e-1))))))))))))))))) -(define DataC-45Nat-isSucc (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 0) 1)(else 0))))) -(define DataC-45Nat-isLTE (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (cond ((equal? sc0 0) (vector 0 (vector 0 )))(else (let ((e-0 (- arg-0 1))) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (vector 1 (lambda (eta-0) (DataC-45Nat-succNotLTEzero eta-0))))(else (let ((e-1 (- arg-1 1))) (DataC-45Nat-case--isLTE-539 e-0 e-1 (DataC-45Nat-isLTE e-0 e-1)))))))))))) -(define DataC-45Nat-fromLteSucc (lambda (arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) e-2)))) -(define DataC-45Nat-divNatNZ (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (blodwen-error-quit "Nat case not covered"))(else (let ((e-0 (- arg-1 1))) (DataC-45Nat-divC-39 arg-0 arg-0 e-0))))))) -(define DataC-45Nat-divNat (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (Builtin-idris_crash "Unhandled input for Data.Nat.divNat at Data/Nat.idr:297:1--297:59"))(else (let ((e-0 (- arg-1 1))) (DataC-45Nat-divNatNZ arg-0 (+ 1 e-0)))))))) -(define DataC-45Nat-divC-39 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-0)) (cond ((equal? sc0 0) 0)(else (let ((e-0 (- arg-0 1))) (DataC-45Nat-case--divC-39-865 e-0 arg-2 arg-1 (DataC-45Nat-lte arg-1 arg-2)))))))) -(define DataC-45Maybe-toMaybe (lambda (arg-1 arg-2) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (vector 1 (arg-2))) (else (vector 0 )))))) -(define DataC-45Maybe-isNothing (lambda (arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) 0) (else 1))))) -(define DataC-45Maybe-isJust (lambda (arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) 1) (else 0))))) -(define DataC-45Maybe-fromMaybe (lambda (arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (arg-1)) (else (let ((e-2 (vector-ref sc0 1))) e-2)))))) -(define YaffleC-45REPL-case--repl-1714 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((act-24 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc1 eta-0)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (vector 1 (vector 0 )))))) (lambda (eta-0) (let ((act-24 ((PreludeC-45IO-printLn (cons (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-1)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-1) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-1) (let ((act-17 (arg-578 eta-1))) (let ((act-16 (arg-580 eta-1))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-1) (let ((act-24 (arg-876 eta-1))) ((arg-877 act-24) eta-1))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-1) (let ((act-51 (arg-879 eta-1))) (act-51 eta-1)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) (cons (lambda (u--x) (CoreC-45Core-u--show_Show_Error u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Core-u--showPrec_Show_Error u--d u--x))))) e-2) eta-0))) (vector 1 act-24))) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (YaffleC-45REPL-repl arg-2 arg-1 arg-0 ext-0))))))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-24 (YaffleC-45REPL-processCatch arg-2 arg-1 arg-0 e-5 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (cond ((equal? sc2 0) (YaffleC-45REPL-repl arg-2 arg-1 arg-0 ext-0)) (else (vector 1 (vector 0 )))))))))))))))) -(define YaffleC-45REPL-case--caseC-32blockC-32inC-32process-1370 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 ext-0) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc1 eta-0)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))) (lambda (eta-0) (let ((act-24 ((PreludeC-45IO-putStrLn (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-1)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-1) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-1) (let ((act-17 (arg-578 eta-1))) (let ((act-16 (arg-580 eta-1))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-1) (let ((act-24 (arg-876 eta-1))) ((arg-877 act-24) eta-1))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-1) (let ((act-51 (arg-879 eta-1))) (act-51 eta-1)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name arg-7) (PreludeC-45TypesC-45String-C-43C-43 ":\u000a" (CoreC-45NameC-45Namespace-showSep "\u000a" (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() eta-1)) e-0))))) eta-0))) (vector 1 act-24))) ext-0))) ((2) (let ((e-1 (vector-ref sc0 1))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc1 eta-0)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))) (lambda (eta-0) (let ((act-24 ((PreludeC-45IO-putStrLn (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-1)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-1) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-1) (let ((act-17 (arg-578 eta-1))) (let ((act-16 (arg-580 eta-1))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-1) (let ((act-24 (arg-876 eta-1))) ((arg-877 act-24) eta-1))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-1) (let ((act-51 (arg-879 eta-1))) (act-51 eta-1)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name arg-7) (PreludeC-45TypesC-45String-C-43C-43 ": Calls non covering function" (let ((sc1 e-1)) (if (null? sc1) (PreludeC-45TypesC-45String-C-43C-43 "s: " (CoreC-45NameC-45Namespace-showSep ", " (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (CoreC-45Name-u--show_Show_Name eta-1)) e-1))) (let ((e-3 (car sc1))) (let ((e-2 (cdr sc1))) (let ((sc2 e-2)) (if (null? sc2) (PreludeC-45TypesC-45String-C-43C-43 " " (CoreC-45Name-u--show_Show_Name e-3)) (PreludeC-45TypesC-45String-C-43C-43 "s: " (CoreC-45NameC-45Namespace-showSep ", " (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (CoreC-45Name-u--show_Show_Name eta-1)) e-1)))))))))))) eta-0))) (vector 1 act-24))) ext-0)))(else (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc0 eta-0)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))) (lambda (eta-0) (let ((act-24 ((PreludeC-45IO-putStrLn (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-1)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-1) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-1) (let ((act-17 (arg-578 eta-1))) (let ((act-16 (arg-580 eta-1))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-1) (let ((act-24 (arg-876 eta-1))) ((arg-877 act-24) eta-1))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-1) (let ((act-51 (arg-879 eta-1))) (act-51 eta-1)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name arg-7) ": All cases covered")) eta-0))) (vector 1 act-24))) ext-0)))))) -(define YaffleC-45REPL-n--15385-601-u--printName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((sc0 arg-5)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-3)) (let ((e-7 (cdr sc1))) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (CoreC-45Normalise-normaliseHoles arg-4 '() e-5 '() e-7 ext-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-26 ((TTImpC-45Unelab-unelab '() arg-4 '() e-8) ext-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc4 1))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc5 eta-0)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (vector 1 (vector 0 )))))) (lambda (eta-0) (let ((act-27 ((PreludeC-45IO-putStrLn (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-1)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-1) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-1) (let ((act-17 (arg-578 eta-1))) (let ((act-16 (arg-580 eta-1))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-1) (let ((act-27 (arg-876 eta-1))) ((arg-877 act-27) eta-1))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-1) (let ((act-51 (arg-879 eta-1))) (act-51 eta-1)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-2) (PreludeC-45TypesC-45String-C-43C-43 " : " (TTImpC-45TTImp-u--show_Show_RawImp e-9)))) eta-0))) (vector 1 act-27))) ext-0))))))))))))))))))))))) -(define YaffleC-45REPL-showInfo (lambda (arg-0 ext-0) (let ((sc0 arg-0)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-3)) (let ((e-7 (cdr sc1))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc2 eta-0)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (vector 1 (vector 0 )))))) (lambda (eta-0) (let ((act-24 ((PreludeC-45IO-putStrLn (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-1)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-1) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-1) (let ((act-17 (arg-578 eta-1))) (let ((act-16 (arg-580 eta-1))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-1) (let ((act-24 (arg-876 eta-1))) ((arg-877 act-24) eta-1))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-1) (let ((act-51 (arg-879 eta-1))) (act-51 eta-1)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-2) (PreludeC-45TypesC-45String-C-43C-43 " ==>\u000a" (PreludeC-45TypesC-45String-C-43C-43 "\u0009" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Context-u--show_Show_Def (let ((sc2 e-7)) (let ((e-17 (vector-ref sc2 18))) e-17))) (PreludeC-45TypesC-45String-C-43C-43 "\u000a" (PreludeC-45TypesC-45String-C-43C-43 "\u0009" (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45Context-u--show_Show_SCCall u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Context-u--showPrec_Show_SCCall u--d u--x)))) (let ((sc2 e-7)) (let ((e-20 (vector-ref sc2 21))) e-20))) "\u000a")))))))) eta-0))) (vector 1 act-24))) ext-0)))))))) -(define YaffleC-45REPL-repl (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc0 eta-0)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))) (lambda (eta-0) (let ((act-24 ((PreludeC-45IO-putStr (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-1)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-1) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-1) (let ((act-17 (arg-578 eta-1))) (let ((act-16 (arg-580 eta-1))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-1) (let ((act-24 (arg-876 eta-1))) ((arg-877 act-24) eta-1))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-1) (let ((act-51 (arg-879 eta-1))) (act-51 eta-1)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) "Yaffle> ") eta-0))) (vector 1 act-24))) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((act-25 (let ((act-25 ((PreludeC-45IO-getLine (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-0)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-0) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (let ((act-17 (arg-578 eta-0))) (let ((act-16 (arg-580 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (let ((act-25 (arg-876 eta-0))) ((arg-877 act-25) eta-0))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-0) (let ((act-51 (arg-879 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-7803) arg-7803)))) ext-0))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (YaffleC-45REPL-case--repl-1714 arg-2 arg-1 arg-0 e-6 (ParserC-45Source-runParser 0 "(interactive)" (vector 0 ) e-6 (TTImpC-45Parser-command)) ext-0)))))))))))) -(define YaffleC-45REPL-processCatch (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (CoreC-45Core-u--catch_Catchable_Core_Error (lambda (eta-0) (YaffleC-45REPL-process arg-0 arg-1 arg-2 arg-3 eta-0)) (lambda (u--err) (lambda (eta-0) (let ((act-24 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (let ((sc0 eta-1)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))) (lambda (eta-1) (let ((act-24 ((PreludeC-45IO-putStrLn (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-2) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-2)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-2) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-2) (let ((act-17 (arg-578 eta-2))) (let ((act-16 (arg-580 eta-2))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-2) (let ((act-24 (arg-876 eta-2))) ((arg-877 act-24) eta-2))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-2) (let ((act-51 (arg-879 eta-2))) (act-51 eta-2)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) (CoreC-45Core-u--show_Show_Error u--err)) eta-1))) (vector 1 act-24))) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (vector 1 0))))))) ext-0))) -(define YaffleC-45REPL-process (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((act-24 ((TTImpC-45Elab-elabTerm '() arg-0 arg-1 arg-2 0 (vector 2 ) '() '() '() e-0 (vector 0 )) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (car sc2))) (let ((act-25 (let ((act-25 (unbox arg-0))) (vector 1 act-25)))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (CoreC-45Normalise-normalise arg-0 '() e-6 '() e-2 ext-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-27 (let ((act-27 ((TTImpC-45Unelab-unelab '() arg-0 '() e-7) ext-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc5 1))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc6 eta-0)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (vector 1 (vector 0 )))))) (lambda (eta-0) (let ((act-28 ((PreludeC-45IO-printLn (cons (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-1)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-1) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-1) (let ((act-17 (arg-578 eta-1))) (let ((act-16 (arg-580 eta-1))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-1) (let ((act-28 (arg-876 eta-1))) ((arg-877 act-28) eta-1))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-1) (let ((act-51 (arg-879 eta-1))) (act-51 eta-1)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) (cons (lambda (u--x) (TTImpC-45TTImp-u--show_Show_RawImp u--x)) (lambda (u--d) (lambda (u--x) (TTImpC-45TTImp-u--showPrec_Show_RawImp u--d u--x))))) e-8) eta-0))) (vector 1 act-28))) ext-0)))))))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (vector 1 0)))))))))))))))))))))))) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-9 (vector-ref sc1 1))) (let ((e-10 (vector-ref sc1 2))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (CoreC-45Context-lookupTyName e-10 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) e-0)) ext-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (CoreC-45Core-traverse_ (lambda (eta-0) (lambda (eta-1) (YaffleC-45REPL-n--15385-601-u--printName e-9 e-10 arg-2 arg-1 arg-0 eta-0 eta-1))) e-6 ext-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (vector 1 0))))))))))))))))))(else (let ((act-24 ((TTImpC-45Elab-elabTerm '() arg-0 arg-1 arg-2 0 (vector 2 ) '() '() '() e-1 (vector 0 )) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-3 (cdr sc2))) (let ((act-25 (let ((act-25 (unbox arg-0))) (vector 1 act-25)))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 ((CoreC-45Normalise-getTerm e-3) ext-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-27 (CoreC-45Normalise-normaliseHoles arg-0 '() e-6 '() e-7 ext-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-28 (let ((act-28 ((TTImpC-45Unelab-unelab '() arg-0 '() e-8) ext-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc6 1))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc7 eta-0)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (vector 1 (vector 0 )))))) (lambda (eta-0) (let ((act-29 ((PreludeC-45IO-printLn (cons (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-1)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-1) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-1) (let ((act-17 (arg-578 eta-1))) (let ((act-16 (arg-580 eta-1))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-1) (let ((act-29 (arg-876 eta-1))) ((arg-877 act-29) eta-1))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-1) (let ((act-51 (arg-879 eta-1))) (act-51 eta-1)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) (cons (lambda (u--x) (TTImpC-45TTImp-u--show_Show_RawImp u--x)) (lambda (u--d) (lambda (u--x) (TTImpC-45TTImp-u--showPrec_Show_RawImp u--d u--x))))) e-9) eta-0))) (vector 1 act-29))) ext-0)))))))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (vector 1 0)))))))))))))))))))))))))))))))) ((2) (let ((e-2 (vector-ref sc0 1))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Context-lookupTyName e-2 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (if (null? sc3) (CoreC-45Context-undefinedName arg-0 (CoreC-45FC-toplevelFC) e-2 ext-0) (let ((e-1 (car sc3))) (let ((e-3 (cdr sc3))) (let ((sc4 e-1)) (if (null? sc4) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 17 (CoreC-45FC-toplevelFC) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-fst eta-0)) e-6)) ext-0) (let ((e-8 (car sc4))) (let ((e-7 (cdr sc4))) (let ((sc5 e-7)) (if (null? sc5) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 17 (CoreC-45FC-toplevelFC) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-fst eta-0)) e-6)) ext-0) (let ((e-11 (cdr sc5))) (let ((sc6 e-3)) (if (null? sc6) (let ((act-26 (CoreC-45Unify-search '() arg-0 arg-2 (CoreC-45FC-toplevelFC) (AlgebraC-45ZeroOneOmega-u--top_Top_ZeroOneOmega) 1 (PreludeC-45Types-u--fromInteger_Num_Nat 1000) e-8 e-11 '() ext-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 (let ((act-27 (unbox arg-0))) (vector 1 act-27)))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-28 (CoreC-45Normalise-normaliseHoles arg-0 '() e-12 '() e-9 ext-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-29 (let ((act-29 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) e-13 ext-0))) (let ((sc10 act-29)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-14 (vector-ref sc10 1))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc11 eta-0)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (vector 1 (vector 0 )))))) (lambda (eta-0) (let ((act-30 ((PreludeC-45IO-printLn (cons (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-1)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-1) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-1) (let ((act-17 (arg-578 eta-1))) (let ((act-16 (arg-580 eta-1))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-1) (let ((act-30 (arg-876 eta-1))) ((arg-877 act-30) eta-1))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-1) (let ((act-51 (arg-879 eta-1))) (act-51 eta-1)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) (cons (lambda (u--x) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 '() u--d u--x))))) e-14) eta-0))) (vector 1 act-30))) ext-0)))))))) (let ((sc10 act-29)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (vector 1 0)))))))))))))))))))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 17 (CoreC-45FC-toplevelFC) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-fst eta-0)) e-6)) ext-0)))))))))))))))))))))))))) ((3) (let ((e-3 (vector-ref sc0 1))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Context-lookupTyName e-3 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (if (null? sc3) (CoreC-45Context-undefinedName arg-0 (CoreC-45FC-toplevelFC) e-3 ext-0) (let ((e-1 (car sc3))) (let ((e-2 (cdr sc3))) (let ((sc4 e-1)) (if (null? sc4) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 17 (CoreC-45FC-toplevelFC) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-fst eta-0)) e-6)) ext-0) (let ((e-8 (car sc4))) (let ((e-7 (cdr sc4))) (let ((sc5 e-7)) (if (null? sc5) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 17 (CoreC-45FC-toplevelFC) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-fst eta-0)) e-6)) ext-0) (let ((sc6 e-2)) (if (null? sc6) (let ((act-26 (TTImpC-45InteractiveC-45ExprSearch-exprSearchN arg-0 arg-1 arg-2 (CoreC-45FC-toplevelFC) (+ 1 0) e-8 '() ext-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 (CoreC-45Core-traverse_ (lambda (u--d) (lambda (eta-0) (let ((act-27 ((PreludeC-45IO-printLn (cons (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-1)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-1) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-1) (let ((act-17 (arg-578 eta-1))) (let ((act-16 (arg-580 eta-1))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-1) (let ((act-27 (arg-876 eta-1))) ((arg-877 act-27) eta-1))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-1) (let ((act-51 (arg-879 eta-1))) (act-51 eta-1)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) (cons (lambda (u--x) (TTImpC-45TTImp-u--show_Show_RawImp u--x)) (lambda (d-0) (lambda (u--x) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-0 u--x))))) u--d) eta-0))) (vector 1 act-27)))) e-9 ext-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (vector 1 0)))))))))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 17 (CoreC-45FC-toplevelFC) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-fst eta-0)) e-6)) ext-0))))))))))))))))))))))))) ((4) (let ((e-4 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 2))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Metadata-findTyDeclAt arg-1 (lambda (u--p) (lambda (u--n) (CoreC-45FC-onLine e-4 u--p))) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((sc4 e-1)) (let ((e-8 (cdr sc4))) (let ((sc5 e-8)) (let ((e-11 (car sc5))) (let ((e-10 (cdr sc5))) (let ((sc6 e-10)) (let ((act-26 (let ((act-26 (CoreC-45Context-lookupDefExact e-11 (let ((sc7 e-6)) (let ((e-0 (vector-ref sc7 1))) e-0)) ext-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc7 1))) (let ((sc8 e-12)) (case (vector-ref sc8 0) ((1) (let ((e-2 (vector-ref sc8 1))) (let ((sc9 e-2)) (case (vector-ref sc9 0) ((0) (CoreC-45Core-u--catch_Catchable_Core_Error (lambda (eta-0) (let ((act-27 (CoreC-45ContextC-45Log-logTime arg-0 (lambda () "Generation") (lambda (eta-1) (TTImpC-45InteractiveC-45GenerateDef-makeDefN arg-0 arg-1 arg-2 (lambda (u--p) (lambda (u--n) (CoreC-45FC-onLine e-4 u--p))) (+ 1 0) e-11 eta-1)) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-3 (vector-ref sc10 1))) (vector 0 e-3))) (else (let ((e-15 (vector-ref sc10 1))) (let ((sc11 e-15)) (if (null? sc11) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (let ((sc12 eta-1)) (case (vector-ref sc12 0) ((0) (let ((e-3 (vector-ref sc12 1))) (vector 0 e-3))) (else (vector 1 (vector 0 )))))) (lambda (eta-1) (let ((act-28 ((PreludeC-45IO-putStrLn (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-2) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-2)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-2) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-2) (let ((act-17 (arg-578 eta-2))) (let ((act-16 (arg-580 eta-2))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-2) (let ((act-28 (arg-876 eta-2))) ((arg-877 act-28) eta-2))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-2) (let ((act-51 (arg-879 eta-2))) (act-51 eta-2)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) "Failed") eta-1))) (vector 1 act-28))) eta-0) (let ((e-16 (car sc11))) (let ((sc12 e-16)) (if (null? sc12) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (let ((sc13 eta-1)) (case (vector-ref sc13 0) ((0) (let ((e-17 (vector-ref sc13 1))) (vector 0 e-17))) (else (vector 1 (vector 0 )))))) (lambda (eta-1) (let ((act-28 ((PreludeC-45IO-putStrLn (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-2) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-2)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-2) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-2) (let ((act-17 (arg-578 eta-2))) (let ((act-16 (arg-580 eta-2))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-2) (let ((act-28 (arg-876 eta-2))) ((arg-877 act-28) eta-2))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-2) (let ((act-51 (arg-879 eta-2))) (act-51 eta-2)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) "Failed") eta-1))) (vector 1 act-28))) eta-0) (let ((e-17 (cdr sc12))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (let ((sc13 eta-1)) (case (vector-ref sc13 0) ((0) (let ((e-19 (vector-ref sc13 1))) (vector 0 e-19))) (else (vector 1 (vector 0 )))))) (lambda (eta-1) (let ((act-28 ((PreludeC-45IO-putStrLn (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-2) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-2)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-2) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-2) (let ((act-17 (arg-578 eta-2))) (let ((act-16 (arg-580 eta-2))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-2) (let ((act-28 (arg-876 eta-2))) ((arg-877 act-28) eta-2))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-2) (let ((act-51 (arg-879 eta-2))) (act-51 eta-2)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (TTImpC-45TTImp-u--show_Show_ImpClause u--x)) (lambda (u--d) (lambda (u--x) (TTImpC-45TTImp-u--showPrec_Show_ImpClause u--d u--x)))) e-17)) eta-1))) (vector 1 act-28))) eta-0))))))))))))) (lambda (u--err) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (let ((sc10 eta-1)) (case (vector-ref sc10 0) ((0) (let ((e-3 (vector-ref sc10 1))) (vector 0 e-3))) (else (vector 1 (vector 0 )))))) (lambda (eta-1) (let ((act-27 ((PreludeC-45IO-putStrLn (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-2) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-2)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-2) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-2) (let ((act-17 (arg-578 eta-2))) (let ((act-16 (arg-580 eta-2))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-2) (let ((act-27 (arg-876 eta-2))) ((arg-877 act-27) eta-2))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-2) (let ((act-51 (arg-879 eta-2))) (act-51 eta-2)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) (PreludeC-45TypesC-45String-C-43C-43 "Can't find a definition for " (CoreC-45Name-u--show_Show_Name e-11))) eta-1))) (vector 1 act-27))) eta-0))) ext-0))(else (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc9 eta-0)) (case (vector-ref sc9 0) ((0) (let ((e-3 (vector-ref sc9 1))) (vector 0 e-3))) (else (vector 1 (vector 0 )))))) (lambda (eta-0) (let ((act-27 ((PreludeC-45IO-putStrLn (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-1)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-1) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-1) (let ((act-17 (arg-578 eta-1))) (let ((act-16 (arg-580 eta-1))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-1) (let ((act-27 (arg-876 eta-1))) ((arg-877 act-27) eta-1))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-1) (let ((act-51 (arg-879 eta-1))) (act-51 eta-1)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) "Already defined") eta-0))) (vector 1 act-27))) ext-0)))))) (else (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc9 eta-0)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))) (lambda (eta-0) (let ((act-27 ((PreludeC-45IO-putStrLn (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-1)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-1) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-1) (let ((act-17 (arg-578 eta-1))) (let ((act-16 (arg-580 eta-1))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-1) (let ((act-27 (arg-876 eta-1))) ((arg-877 act-27) eta-1))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-1) (let ((act-51 (arg-879 eta-1))) (act-51 eta-1)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) (PreludeC-45TypesC-45String-C-43C-43 "Can't find declaration for " (CoreC-45Name-u--show_Show_Name e-5))) eta-0))) (vector 1 act-27))) ext-0))))))))))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (vector 1 0))))))))))))) (else (let ((act-26 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc4 eta-0)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))) (lambda (eta-0) (let ((act-26 ((PreludeC-45IO-putStrLn (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-1)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-1) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-1) (let ((act-17 (arg-578 eta-1))) (let ((act-16 (arg-580 eta-1))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-1) (let ((act-26 (arg-876 eta-1))) ((arg-877 act-26) eta-1))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-1) (let ((act-51 (arg-879 eta-1))) (act-51 eta-1)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) (PreludeC-45TypesC-45String-C-43C-43 "Can't find declaration for " (CoreC-45Name-u--show_Show_Name e-5))) eta-0))) (vector 1 act-26))) ext-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (vector 1 0))))))))))))))))))))) ((5) (let ((e-6 (vector-ref sc0 1))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtName e-6 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (if (null? sc3) (CoreC-45Context-undefinedName arg-0 (CoreC-45FC-emptyFC) e-6 ext-0) (let ((act-26 (CoreC-45Core-traverse_ (lambda (u--fn) (lambda (eta-0) (let ((act-26 (CoreC-45Context-getTotality arg-0 (CoreC-45FC-emptyFC) u--fn eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((bind-0 e-7)) (YaffleC-45REPL-case--caseC-32blockC-32inC-32process-1370 e-6 arg-2 arg-1 arg-0 e-5 e-7 bind-0 u--fn e-8 (let ((sc5 e-8)) (let ((e-1 (cdr sc5))) e-1)) eta-0))))))))) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-fst eta-0)) e-7) ext-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (vector 1 0))))))))))))))))))) ((6) (let ((e-7 (vector-ref sc0 1))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtName e-7 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (if (null? sc3) (CoreC-45Context-undefinedName arg-0 (CoreC-45FC-emptyFC) e-7 ext-0) (let ((act-26 (CoreC-45Core-traverse_ (lambda (u--fn) (lambda (eta-0) (let ((act-26 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (let ((sc4 eta-1)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))) (lambda (eta-1) (CoreC-45Termination-checkTotal arg-0 (CoreC-45FC-emptyFC) u--fn eta-1)) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-27 (CoreC-45Context-getTotality arg-0 (CoreC-45FC-emptyFC) u--fn eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (let ((sc6 eta-1)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))) (lambda (eta-1) (let ((act-28 ((PreludeC-45IO-putStrLn (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-2) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-2)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-2) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-2) (let ((act-17 (arg-578 eta-2))) (let ((act-16 (arg-580 eta-2))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-2) (let ((act-28 (arg-876 eta-2))) ((arg-877 act-28) eta-2))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-2) (let ((act-51 (arg-879 eta-2))) (act-51 eta-2)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name u--fn) (PreludeC-45TypesC-45String-C-43C-43 " is " (CoreC-45TT-u--show_Show_Totality e-9)))) eta-1))) (vector 1 act-28))) eta-0)))))))))))) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-fst eta-0)) e-6) ext-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (vector 1 0))))))))))))))))))) ((7) (let ((e-8 (vector-ref sc0 1))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 ((CoreC-45Context-lookupCtxtName e-8 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (CoreC-45Core-traverse_ (lambda (eta-0) (lambda (eta-1) (YaffleC-45REPL-showInfo eta-0 eta-1))) e-6 ext-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (vector 1 0)))))))))))) (else (let ((act-24 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc1 eta-0)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))) (lambda (eta-0) (let ((act-24 ((PreludeC-45IO-putStrLn (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-1)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-1) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-1) (let ((act-17 (arg-578 eta-1))) (let ((act-16 (arg-580 eta-1))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-1) (let ((act-24 (arg-876 eta-1))) ((arg-877 act-24) eta-1))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-1) (let ((act-51 (arg-879 eta-1))) (act-51 eta-1)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) "Bye for now!") eta-0))) (vector 1 act-24))) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 1)))))))))) -(define ParserC-45Source-runParserTo (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (PreludeC-45Types-u--C-62C-62C-61_Monad_C-40EitherC-32C-36eC-41 (LibrariesC-45UtilsC-45Either-mapError (lambda (eta-0) (ParserC-45Support-fromLitError arg-2 eta-0)) (ParserC-45Unlit-unlit arg-3 arg-5)) (lambda (u--str) (PreludeC-45Types-u--C-62C-62C-61_Monad_C-40EitherC-32C-36eC-41 (LibrariesC-45UtilsC-45Either-mapError (lambda (eta-0) (ParserC-45Support-fromLexError arg-2 eta-0)) (ParserC-45LexerC-45Source-lexTo arg-4 u--str)) (lambda (u--toks) (PreludeC-45Types-u--C-62C-62C-61_Monad_C-40EitherC-32C-36eC-41 (LibrariesC-45UtilsC-45Either-mapError (lambda (eta-0) (ParserC-45Support-fromParsingError (cons (cons (lambda (u--x) (ParserC-45LexerC-45Source-u--show_Show_Token u--x)) (lambda (u--d) (lambda (u--x) (ParserC-45LexerC-45Source-u--showPrec_Show_Token u--d u--x)))) (cons (lambda (u--ann) (lambda (arg-5451) (ParserC-45LexerC-45Source-u--pretty_Pretty_Token arg-5451))) (lambda (u--ann) (lambda (arg-5452) (lambda (arg-5453) (ParserC-45LexerC-45Source-u--prettyPrec_Pretty_Token arg-5452 arg-5453)))))) arg-2 eta-0)) (LibrariesC-45TextC-45ParserC-45Core-parse arg-1 arg-6 u--toks)) (lambda (u--parsed) (vector 1 (Builtin-fst u--parsed)))))))))) -(define ParserC-45Source-runParser (lambda (arg-1 arg-2 arg-3 ext-0 ext-1) (ParserC-45Source-runParserTo arg-1 arg-2 arg-3 (LibrariesC-45TextC-45LexerC-45Core-pred (lambda (eta-0) 1)) ext-0 ext-1))) -(define ParserC-45Source-parseFile (lambda (arg-1 arg-2 ext-0) (let ((act-24 ((SystemC-45File-readFile (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-0)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-0) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (let ((act-17 (arg-578 eta-0))) (let ((act-16 (arg-580 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (let ((act-24 (arg-876 eta-0))) ((arg-877 act-24) eta-0))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-0) (let ((act-51 (arg-879 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) arg-1) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (ParserC-45Source-runParser 0 arg-1 (ParserC-45Unlit-isLitFile arg-1) e-2 arg-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 0 (vector 49 arg-1 e-5))))))))) -(define LibrariesC-45UtilsC-45Either-case--partitionEithers-452 (lambda (arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (cons e-2 (cons arg-2 e-3))))))) -(define LibrariesC-45UtilsC-45Either-case--partitionEithers-414 (lambda (arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (cons (cons arg-2 e-2) e-3)))))) -(define LibrariesC-45UtilsC-45Either-partitionEithers (lambda (arg-2) (let ((sc0 arg-2)) (if (null? sc0) (cons '() '()) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (LibrariesC-45UtilsC-45Either-case--partitionEithers-414 e-6 e-3 (LibrariesC-45UtilsC-45Either-partitionEithers e-3)))) (else (let ((e-9 (vector-ref sc1 1))) (LibrariesC-45UtilsC-45Either-case--partitionEithers-452 e-9 e-3 (LibrariesC-45UtilsC-45Either-partitionEithers e-3)))))))))))) -(define LibrariesC-45UtilsC-45Either-mapError (lambda (arg-3 arg-4) (PreludeC-45Types-either (lambda () (lambda (eta-0) (vector 0 (arg-3 eta-0)))) (lambda () (lambda (eta-0) (vector 1 eta-0))) arg-4))) -(define SystemC-45File-case--chmodRaw-2263 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (let ((sc1 arg-1)) (let ((e-1 (car sc1))) (let ((sc2 e-1)) (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (let ((e-7 (vector-ref sc3 2))) ((e-7 'erased) (vector 1 (vector 0 )))))))))) (else (SystemC-45File-returnError arg-1)))))) -(define SystemC-45File-case--fileSize-1730 (lambda (arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (SystemC-45File-ok arg-1 arg-3)) (else (SystemC-45File-returnError arg-1)))))) -(define SystemC-45File-case--removeFile-1673 (lambda (arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (SystemC-45File-ok arg-1 (vector 0 ))) (else (SystemC-45File-returnError arg-1)))))) -(define SystemC-45File-case--fileModifiedTime-1563 (lambda (arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (SystemC-45File-ok arg-1 arg-3)) (else (SystemC-45File-returnError arg-1)))))) -(define SystemC-45File-case--fPutStr-1302 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (SystemC-45File-returnError arg-1)) (else (SystemC-45File-ok arg-1 (vector 0 ))))))) -(define SystemC-45File-case--fGetChar-1239 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (SystemC-45File-returnError arg-1)) (else (SystemC-45File-ok arg-1 (PreludeC-45Cast-u--cast_Cast_Int_Char arg-3))))))) -(define SystemC-45File-case--fGetLine-1111 (lambda (arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (SystemC-45File-returnError arg-1)) (else (SystemC-45File-ok arg-1 (PreludeC-45IO-prim__getString arg-3))))))) -(define SystemC-45File-case--fSeekLine-1052 (lambda (arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (SystemC-45File-returnError arg-1)) (else (SystemC-45File-ok arg-1 (vector 0 ))))))) -(define SystemC-45File-case--openFile-812 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (SystemC-45File-returnError arg-1)) (else (SystemC-45File-ok arg-1 arg-4)))))) -(define SystemC-45File-case--modeStr-573 (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 0) "ab+") (else "a+"))))) -(define SystemC-45File-case--modeStr-563 (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 0) "wb+") (else "w+"))))) -(define SystemC-45File-case--modeStr-553 (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 0) "rb+") (else "r+"))))) -(define SystemC-45File-case--modeStr-543 (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 0) "ab") (else "a"))))) -(define SystemC-45File-case--modeStr-533 (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 0) "wb") (else "w"))))) -(define SystemC-45File-case--modeStr-523 (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 0) "rb") (else "r"))))) -(define SystemC-45File-u--show_Show_FileError (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (PreludeC-45TypesC-45String-C-43C-43 "File error: " (PreludeC-45Show-u--show_Show_Int e-0)))) ((1) "File Read Error") ((2) "File Write Error") ((3) "File Not Found") ((4) "Permission Denied") (else "File Exists"))))) -(define SystemC-45File-writeFile (lambda (arg-1 arg-2 arg-3) (SystemC-45File-withFile arg-1 arg-2 (vector 1 ) (lambda (eta-0) (let ((sc0 arg-1)) (let ((e-1 (car sc0))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-7 (vector-ref sc2 2))) ((e-7 'erased) eta-0)))))))) (lambda (eta-0) (PreludeC-45Basics-flip (lambda (eta-1) (lambda (eta-2) (SystemC-45File-fPutStr arg-1 eta-1 eta-2))) arg-3 eta-0))))) -(define SystemC-45File-withFile (lambda (arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-3)) (let ((e-1 (car sc0))) (let ((sc1 e-1)) (let ((e-4 (vector-ref sc1 2))) ((((e-4 'erased) 'erased) (SystemC-45File-openFile arg-3 arg-4 arg-5)) (lambda (_-0) (let ((sc2 _-0)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 1))) (let ((sc3 arg-3)) (let ((e-8 (car sc3))) (let ((sc4 e-8)) (let ((e-10 (vector-ref sc4 2))) ((((e-10 'erased) 'erased) (arg-7 e-6)) (lambda (u--res) (PreludeC-45Interfaces-C-62C-62 (let ((sc5 arg-3)) (let ((e-13 (car sc5))) e-13)) (SystemC-45File-closeFile arg-3 e-6) (lambda () (let ((sc5 arg-3)) (let ((e-13 (car sc5))) (let ((sc6 e-13)) (let ((e-16 (vector-ref sc6 1))) (let ((sc7 e-16)) (let ((e-18 (vector-ref sc7 2))) ((e-18 'erased) u--res))))))))))))))))) (else (let ((e-6 (vector-ref sc2 1))) (PreludeC-45Interfaces-C-60C-36C-62 (let ((sc3 arg-3)) (let ((e-8 (car sc3))) (let ((sc4 e-8)) (let ((e-11 (vector-ref sc4 1))) (let ((sc5 e-11)) (let ((e-14 (vector-ref sc5 1))) e-14)))))) (lambda (eta-0) (vector 0 eta-0)) (arg-6 e-6)))))))))))))) -(define SystemC-45File-stdout (lambda () (SystemC-45File-prim__stdout))) -(define SystemC-45File-stdin (lambda () (SystemC-45File-prim__stdin))) -(define SystemC-45File-returnError (lambda (arg-2) (let ((sc0 arg-2)) (let ((e-1 (car sc0))) (let ((sc1 e-1)) (let ((e-4 (vector-ref sc1 2))) ((((e-4 'erased) 'erased) (let ((sc2 arg-2)) (let ((e-6 (cdr sc2))) ((e-6 'erased) (lambda (eta-0) (SystemC-45File-prim__fileErrno eta-0)))))) (lambda (u--err) (let ((sc2 u--err)) (cond ((equal? sc2 0) (let ((sc3 arg-2)) (let ((e-7 (car sc3))) (let ((sc4 e-7)) (let ((e-10 (vector-ref sc4 1))) (let ((sc5 e-10)) (let ((e-12 (vector-ref sc5 2))) ((e-12 'erased) (vector 0 (vector 1 )))))))))) ((equal? sc2 1) (let ((sc3 arg-2)) (let ((e-7 (car sc3))) (let ((sc4 e-7)) (let ((e-10 (vector-ref sc4 1))) (let ((sc5 e-10)) (let ((e-12 (vector-ref sc5 2))) ((e-12 'erased) (vector 0 (vector 2 )))))))))) ((equal? sc2 2) (let ((sc3 arg-2)) (let ((e-7 (car sc3))) (let ((sc4 e-7)) (let ((e-10 (vector-ref sc4 1))) (let ((sc5 e-10)) (let ((e-12 (vector-ref sc5 2))) ((e-12 'erased) (vector 0 (vector 3 )))))))))) ((equal? sc2 3) (let ((sc3 arg-2)) (let ((e-7 (car sc3))) (let ((sc4 e-7)) (let ((e-10 (vector-ref sc4 1))) (let ((sc5 e-10)) (let ((e-12 (vector-ref sc5 2))) ((e-12 'erased) (vector 0 (vector 4 )))))))))) ((equal? sc2 4) (let ((sc3 arg-2)) (let ((e-7 (car sc3))) (let ((sc4 e-7)) (let ((e-10 (vector-ref sc4 1))) (let ((sc5 e-10)) (let ((e-12 (vector-ref sc5 2))) ((e-12 'erased) (vector 0 (vector 5 ))))))))))(else (let ((sc2 arg-2)) (let ((e-7 (car sc2))) (let ((sc3 e-7)) (let ((e-10 (vector-ref sc3 1))) (let ((sc4 e-10)) (let ((e-12 (vector-ref sc4 2))) ((e-12 'erased) (vector 0 (vector 0 (PreludeC-45Num-u--C-45_Neg_Int u--err 5))))))))))))))))))))) -(define SystemC-45File-removeFile (lambda (arg-1 arg-2) (let ((sc0 arg-1)) (let ((e-1 (car sc0))) (let ((sc1 e-1)) (let ((e-4 (vector-ref sc1 2))) ((((e-4 'erased) 'erased) (let ((sc2 arg-1)) (let ((e-6 (cdr sc2))) ((e-6 'erased) (lambda (eta-0) (SystemC-45File-prim__removeFile arg-2 eta-0)))))) (lambda (u--res) (SystemC-45File-case--removeFile-1673 arg-1 arg-2 u--res (PreludeC-45EqOrd-u--C-61C-61_Eq_Int u--res (blodwen-toSignedInt 0 63))))))))))) -(define SystemC-45File-readLinesOnto (lambda (arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-1)) (let ((e-1 (car sc1))) (let ((sc2 e-1)) (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (let ((e-7 (vector-ref sc3 2))) ((e-7 'erased) (vector 1 (cons 1 (DataC-45List-reverse arg-2))))))))))) (else (let ((e-0 (vector-ref sc0 1))) (let ((sc1 arg-1)) (let ((e-1 (car sc1))) (let ((sc2 e-1)) (let ((e-4 (vector-ref sc2 2))) ((((e-4 'erased) 'erased) (SystemC-45File-fEOF arg-1 arg-5)) (lambda (_-0) (let ((sc3 _-0)) (cond ((equal? sc3 1) (let ((sc4 arg-3)) (cond ((equal? sc4 0) (PreludeC-45InterfacesC-45Monad-u--C-62C-62C-61_Monad_ComposeC-40C-40C-46C-32C-36mC-41C-32C-36tC-41 (cons (let ((sc5 arg-1)) (let ((e-7 (car sc5))) e-7)) (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (let ((sc5 arg-143)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (vector 1 (u--func e-6)))))))))) (lambda (u--a) (lambda (arg-577) (vector 1 arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (let ((sc5 arg-578)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((sc6 arg-580)) (case (vector-ref sc6 0) ((1) (let ((e-8 (vector-ref sc6 1))) (vector 1 (e-6 e-8)))) (else (let ((e-11 (vector-ref sc6 1))) (vector 0 e-11)))))))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (PreludeC-45Types-u--C-62C-62C-61_Monad_C-40EitherC-32C-36eC-41 arg-876 arg-877))))) (lambda (u--a) (lambda (arg-879) (PreludeC-45Types-u--join_Monad_C-40EitherC-32C-36eC-41 arg-879)))) (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (let ((sc5 arg-143)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (vector 1 (u--func e-6)))))))))) (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_C-40EitherC-32C-36eC-41 u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_C-40EitherC-32C-36eC-41 u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_C-40EitherC-32C-36eC-41 arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_C-40EitherC-32C-36eC-41 i_con-0 u--funcM u--init u--input))))))))) (lambda (u--b) (lambda (u--a) (lambda (u--f) (lambda (i_con-0) (lambda (arg-2343) (lambda (arg-2345) (PreludeC-45Types-u--traverse_Traversable_C-40EitherC-32C-36eC-41 i_con-0 arg-2343 arg-2345)))))))))) (SystemC-45File-fGetLine arg-1 arg-5) (lambda (u--str) (SystemC-45File-readLinesOnto arg-1 (cons u--str arg-2) 0 (e-0) arg-5))))(else (let ((e-6 (- arg-3 1))) (PreludeC-45Interfaces-C-42C-62 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (PreludeC-45InterfacesC-45Functor-u--map_Functor_ComposeC-40C-40C-46C-32C-36fC-41C-32C-36gC-41 (cons (let ((sc4 (Builtin-fst (cons (let ((sc5 arg-1)) (let ((e-8 (car sc5))) (let ((sc6 e-8)) (let ((e-11 (vector-ref sc6 1))) e-11)))) (vector 0 (lambda (b-0) (lambda (a-0) (lambda (func-0) (lambda (arg-144) (let ((sc5 arg-144)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (vector 1 (func-0 e-7)))))))))) (lambda (a-0) (lambda (arg-577) (vector 1 arg-577))) (lambda (b-0) (lambda (a-0) (lambda (arg-578) (lambda (arg-580) (let ((sc5 arg-578)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((sc6 arg-580)) (case (vector-ref sc6 0) ((1) (let ((e-8 (vector-ref sc6 1))) (vector 1 (e-7 e-8)))) (else (let ((e-11 (vector-ref sc6 1))) (vector 0 e-11)))))))))))))))))) (let ((e-9 (vector-ref sc4 1))) e-9)) (let ((sc4 (Builtin-snd (cons (let ((sc5 arg-1)) (let ((e-8 (car sc5))) (let ((sc6 e-8)) (let ((e-11 (vector-ref sc6 1))) e-11)))) (vector 0 (lambda (b-0) (lambda (a-0) (lambda (func-0) (lambda (arg-144) (let ((sc5 arg-144)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (vector 1 (func-0 e-7)))))))))) (lambda (a-0) (lambda (arg-577) (vector 1 arg-577))) (lambda (b-0) (lambda (a-0) (lambda (arg-578) (lambda (arg-580) (let ((sc5 arg-578)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((sc6 arg-580)) (case (vector-ref sc6 0) ((1) (let ((e-8 (vector-ref sc6 1))) (vector 1 (e-7 e-8)))) (else (let ((e-11 (vector-ref sc6 1))) (vector 0 e-11)))))))))))))))))) (let ((e-9 (vector-ref sc4 1))) e-9))) u--func arg-143))))) (lambda (u--a) (lambda (arg-577) (PreludeC-45InterfacesC-45Applicative-u--pure_Applicative_ComposeC-40C-40C-46C-32C-36fC-41C-32C-36gC-41 (cons (let ((sc4 arg-1)) (let ((e-8 (car sc4))) (let ((sc5 e-8)) (let ((e-11 (vector-ref sc5 1))) e-11)))) (vector 0 (lambda (u--b) (lambda (a-0) (lambda (u--func) (lambda (arg-143) (let ((sc4 arg-143)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (vector 1 (u--func e-7)))))))))) (lambda (a-0) (lambda (arg-578) (vector 1 arg-578))) (lambda (u--b) (lambda (a-0) (lambda (arg-578) (lambda (arg-580) (let ((sc4 arg-578)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (let ((sc5 arg-580)) (case (vector-ref sc5 0) ((1) (let ((e-8 (vector-ref sc5 1))) (vector 1 (e-7 e-8)))) (else (let ((e-11 (vector-ref sc5 1))) (vector 0 e-11))))))))))))))) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (PreludeC-45InterfacesC-45Applicative-u--C-60C-42C-62_Applicative_ComposeC-40C-40C-46C-32C-36fC-41C-32C-36gC-41 (cons (let ((sc4 arg-1)) (let ((e-8 (car sc4))) (let ((sc5 e-8)) (let ((e-11 (vector-ref sc5 1))) e-11)))) (vector 0 (lambda (b-0) (lambda (a-0) (lambda (u--func) (lambda (arg-143) (let ((sc4 arg-143)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (vector 1 (u--func e-7)))))))))) (lambda (a-0) (lambda (arg-577) (vector 1 arg-577))) (lambda (b-0) (lambda (a-0) (lambda (arg-579) (lambda (arg-581) (let ((sc4 arg-579)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (let ((sc5 arg-581)) (case (vector-ref sc5 0) ((1) (let ((e-8 (vector-ref sc5 1))) (vector 1 (e-7 e-8)))) (else (let ((e-11 (vector-ref sc5 1))) (vector 0 e-11))))))))))))))) arg-578 arg-580)))))) (SystemC-45File-fSeekLine arg-1 arg-5) (SystemC-45File-readLinesOnto arg-1 arg-2 e-6 (vector 1 e-0) arg-5))))))) (else (let ((sc4 arg-1)) (let ((e-7 (car sc4))) (let ((sc5 e-7)) (let ((e-10 (vector-ref sc5 1))) (let ((sc6 e-10)) (let ((e-12 (vector-ref sc6 2))) ((e-12 'erased) (vector 1 (cons 0 (DataC-45List-reverse arg-2))))))))))))))))))))))))) -(define SystemC-45File-readFilePage (lambda (arg-1 arg-2 arg-3 arg-4) (SystemC-45File-withFile arg-1 arg-4 (vector 0 ) (lambda (eta-0) (let ((sc0 arg-1)) (let ((e-1 (car sc0))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-7 (vector-ref sc2 2))) ((e-7 'erased) eta-0)))))))) (lambda (eta-0) (SystemC-45File-readLinesOnto arg-1 '() arg-2 arg-3 eta-0))))) -(define SystemC-45File-readFile (lambda (arg-1 ext-0) (let ((sc0 arg-1)) (let ((e-1 (car sc0))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-8 (vector-ref sc2 1))) ((((e-8 'erased) 'erased) (lambda (eta-0) (let ((sc3 eta-0)) (case (vector-ref sc3 0) ((0) (let ((e-9 (vector-ref sc3 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc3 1))) (vector 1 (PreludeC-45Types-fastConcat (Builtin-snd e-9))))))))) (SystemC-45File-readFilePage arg-1 0 (DataC-45Fuel-forever) ext-0)))))))))) -(define SystemC-45File-openFile (lambda (arg-1 arg-2 arg-3) (let ((sc0 arg-1)) (let ((e-1 (car sc0))) (let ((sc1 e-1)) (let ((e-4 (vector-ref sc1 2))) ((((e-4 'erased) 'erased) (let ((sc2 arg-1)) (let ((e-6 (cdr sc2))) ((e-6 'erased) (lambda (eta-0) (SystemC-45File-prim__open arg-2 (SystemC-45File-modeStr arg-3) eta-0)))))) (lambda (u--res) (SystemC-45File-case--openFile-812 arg-1 arg-3 arg-2 u--res (PreludeC-45EqOrd-u--C-47C-61_Eq_Int (PrimIO-prim__nullAnyPtr u--res) (blodwen-toSignedInt 0 63))))))))))) -(define SystemC-45File-ok (lambda (arg-2 arg-3) (let ((sc0 arg-2)) (let ((e-1 (car sc0))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-7 (vector-ref sc2 2))) ((e-7 'erased) (vector 1 arg-3)))))))))) -(define SystemC-45File-modeStr (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (SystemC-45File-case--modeStr-523 (SystemC-45Info-isWindows))) ((1) (SystemC-45File-case--modeStr-533 (SystemC-45Info-isWindows))) ((2) (SystemC-45File-case--modeStr-543 (SystemC-45Info-isWindows))) ((3) (SystemC-45File-case--modeStr-553 (SystemC-45Info-isWindows))) ((4) (SystemC-45File-case--modeStr-563 (SystemC-45Info-isWindows))) (else (SystemC-45File-case--modeStr-573 (SystemC-45Info-isWindows))))))) -(define SystemC-45File-firstExists (lambda (arg-1 arg-2) (let ((sc0 arg-2)) (if (null? sc0) (let ((sc1 arg-1)) (let ((e-1 (car sc1))) (let ((sc2 e-1)) (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (let ((e-7 (vector-ref sc3 2))) ((e-7 'erased) (vector 0 )))))))) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 arg-1)) (let ((e-1 (car sc1))) (let ((sc2 e-1)) (let ((e-6 (vector-ref sc2 2))) ((((e-6 'erased) 'erased) (SystemC-45File-exists arg-1 e-2)) (lambda (bind-0) (let ((sc3 bind-0)) (cond ((equal? sc3 0) (let ((sc4 arg-1)) (let ((e-9 (car sc4))) (let ((sc5 e-9)) (let ((e-12 (vector-ref sc5 1))) (let ((sc6 e-12)) (let ((e-14 (vector-ref sc6 2))) ((e-14 'erased) (vector 1 e-2))))))))) (else (SystemC-45File-firstExists arg-1 e-3)))))))))))))))) -(define SystemC-45File-fileSize (lambda (arg-1 arg-2) (let ((sc0 arg-1)) (let ((e-1 (car sc0))) (let ((sc1 e-1)) (let ((e-4 (vector-ref sc1 2))) ((((e-4 'erased) 'erased) (let ((sc2 arg-1)) (let ((e-6 (cdr sc2))) ((e-6 'erased) (lambda (eta-0) (SystemC-45File-prim__fileSize arg-2 eta-0)))))) (lambda (u--res) (SystemC-45File-case--fileSize-1730 arg-1 arg-2 u--res (PreludeC-45EqOrd-u--C-62C-61_Ord_Int u--res (blodwen-toSignedInt 0 63))))))))))) -(define SystemC-45File-fileModifiedTime (lambda (arg-1 arg-2) (let ((sc0 arg-1)) (let ((e-1 (car sc0))) (let ((sc1 e-1)) (let ((e-4 (vector-ref sc1 2))) ((((e-4 'erased) 'erased) (let ((sc2 arg-1)) (let ((e-6 (cdr sc2))) ((e-6 'erased) (lambda (eta-0) (SystemC-45File-prim__fileModifiedTime arg-2 eta-0)))))) (lambda (u--res) (SystemC-45File-case--fileModifiedTime-1563 arg-1 arg-2 u--res (PreludeC-45EqOrd-u--C-62_Ord_Int u--res (blodwen-toSignedInt 0 63))))))))))) -(define SystemC-45File-fileError (lambda (arg-1 arg-2) (let ((sc0 arg-1)) (let ((e-1 (car sc0))) (let ((sc1 e-1)) (let ((e-4 (vector-ref sc1 2))) ((((e-4 'erased) 'erased) (let ((sc2 arg-1)) (let ((e-6 (cdr sc2))) ((e-6 'erased) (lambda (eta-0) (SystemC-45File-prim__error arg-2 eta-0)))))) (lambda (u--x) (let ((sc2 arg-1)) (let ((e-7 (car sc2))) (let ((sc3 e-7)) (let ((e-10 (vector-ref sc3 1))) (let ((sc4 e-10)) (let ((e-12 (vector-ref sc4 2))) ((e-12 'erased) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int u--x (blodwen-toSignedInt 0 63))))))))))))))))) -(define SystemC-45File-fflush (lambda (arg-1 arg-2) (PreludeC-45Interfaces-ignore (let ((sc0 arg-1)) (let ((e-1 (car sc0))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-8 (vector-ref sc2 1))) e-8)))))) (let ((sc0 arg-1)) (let ((e-2 (cdr sc0))) ((e-2 'erased) (lambda (eta-0) (SystemC-45File-prim__flush arg-2 eta-0)))))))) -(define SystemC-45File-fSeekLine (lambda (arg-1 arg-2) (let ((sc0 arg-1)) (let ((e-1 (car sc0))) (let ((sc1 e-1)) (let ((e-4 (vector-ref sc1 2))) ((((e-4 'erased) 'erased) (let ((sc2 arg-1)) (let ((e-6 (cdr sc2))) ((e-6 'erased) (lambda (eta-0) (SystemC-45File-prim__seekLine arg-2 eta-0)))))) (lambda (u--res) (SystemC-45File-case--fSeekLine-1052 arg-1 arg-2 u--res (PreludeC-45EqOrd-u--C-47C-61_Eq_Int u--res (blodwen-toSignedInt 0 63))))))))))) -(define SystemC-45File-fPutStr (lambda (arg-1 arg-2 arg-3) (let ((sc0 arg-1)) (let ((e-1 (car sc0))) (let ((sc1 e-1)) (let ((e-4 (vector-ref sc1 2))) ((((e-4 'erased) 'erased) (let ((sc2 arg-1)) (let ((e-6 (cdr sc2))) ((e-6 'erased) (lambda (eta-0) (SystemC-45File-prim__writeLine arg-2 arg-3 eta-0)))))) (lambda (u--res) (SystemC-45File-case--fPutStr-1302 arg-1 arg-2 arg-3 u--res (PreludeC-45EqOrd-u--C-61C-61_Eq_Int u--res (blodwen-toSignedInt 0 63))))))))))) -(define SystemC-45File-fGetLine (lambda (arg-1 arg-2) (let ((sc0 arg-1)) (let ((e-1 (car sc0))) (let ((sc1 e-1)) (let ((e-4 (vector-ref sc1 2))) ((((e-4 'erased) 'erased) (let ((sc2 arg-1)) (let ((e-6 (cdr sc2))) ((e-6 'erased) (lambda (eta-0) (SystemC-45File-prim__readLine arg-2 eta-0)))))) (lambda (u--res) (SystemC-45File-case--fGetLine-1111 arg-1 arg-2 u--res (PreludeC-45EqOrd-u--C-47C-61_Eq_Int (PrimIO-prim__nullAnyPtr (PrimIO-prim__forgetPtr u--res)) (blodwen-toSignedInt 0 63))))))))))) -(define SystemC-45File-fGetChar (lambda (arg-1 arg-2) (let ((sc0 arg-1)) (let ((e-1 (car sc0))) (let ((sc1 e-1)) (let ((e-4 (vector-ref sc1 2))) ((((e-4 'erased) 'erased) (let ((sc2 arg-1)) (let ((e-6 (cdr sc2))) ((e-6 'erased) (lambda (eta-0) (SystemC-45File-prim__readChar arg-2 eta-0)))))) (lambda (u--c) (let ((sc2 arg-1)) (let ((e-7 (car sc2))) (let ((sc3 e-7)) (let ((e-9 (vector-ref sc3 2))) ((((e-9 'erased) 'erased) (let ((sc4 arg-1)) (let ((e-11 (cdr sc4))) ((e-11 'erased) (lambda (eta-0) (SystemC-45File-prim__error arg-2 eta-0)))))) (lambda (u--ferr) (SystemC-45File-case--fGetChar-1239 arg-1 arg-2 u--c u--ferr (PreludeC-45EqOrd-u--C-47C-61_Eq_Int u--ferr (blodwen-toSignedInt 0 63))))))))))))))))) -(define SystemC-45File-fEOF (lambda (arg-1 arg-2) (let ((sc0 arg-1)) (let ((e-1 (car sc0))) (let ((sc1 e-1)) (let ((e-4 (vector-ref sc1 2))) ((((e-4 'erased) 'erased) (let ((sc2 arg-1)) (let ((e-6 (cdr sc2))) ((e-6 'erased) (lambda (eta-0) (SystemC-45File-prim__eof arg-2 eta-0)))))) (lambda (u--res) (let ((sc2 arg-1)) (let ((e-7 (car sc2))) (let ((sc3 e-7)) (let ((e-10 (vector-ref sc3 1))) (let ((sc4 e-10)) (let ((e-12 (vector-ref sc4 2))) ((e-12 'erased) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int u--res (blodwen-toSignedInt 0 63))))))))))))))))) -(define SystemC-45File-exists (lambda (arg-1 arg-2) (let ((sc0 arg-1)) (let ((e-1 (car sc0))) (let ((sc1 e-1)) (let ((e-4 (vector-ref sc1 2))) ((((e-4 'erased) 'erased) (SystemC-45File-openFile arg-1 arg-2 (vector 0 ))) (lambda (_-0) (let ((sc2 _-0)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 1))) (PreludeC-45Interfaces-C-62C-62 (let ((sc3 arg-1)) (let ((e-8 (car sc3))) e-8)) (SystemC-45File-closeFile arg-1 e-6) (lambda () (let ((sc3 arg-1)) (let ((e-8 (car sc3))) (let ((sc4 e-8)) (let ((e-11 (vector-ref sc4 1))) (let ((sc5 e-11)) (let ((e-13 (vector-ref sc5 2))) ((e-13 'erased) 0))))))))))) (else (let ((sc3 arg-1)) (let ((e-8 (car sc3))) (let ((sc4 e-8)) (let ((e-11 (vector-ref sc4 1))) (let ((sc5 e-11)) (let ((e-13 (vector-ref sc5 2))) ((e-13 'erased) 1)))))))))))))))))) -(define SystemC-45File-closeFile (lambda (arg-1 arg-2) (let ((sc0 arg-1)) (let ((e-2 (cdr sc0))) ((e-2 'erased) (lambda (eta-0) (SystemC-45File-prim__close arg-2 eta-0))))))) -(define SystemC-45File-chmodRaw (lambda (arg-1 arg-2 arg-3) (let ((sc0 arg-1)) (let ((e-1 (car sc0))) (let ((sc1 e-1)) (let ((e-4 (vector-ref sc1 2))) ((((e-4 'erased) 'erased) (let ((sc2 arg-1)) (let ((e-6 (cdr sc2))) ((e-6 'erased) (lambda (eta-0) (SystemC-45File-prim__chmod arg-2 arg-3 eta-0)))))) (lambda (u--ok) (SystemC-45File-case--chmodRaw-2263 arg-1 arg-3 arg-2 u--ok (PreludeC-45EqOrd-u--C-61C-61_Eq_Int u--ok (blodwen-toSignedInt 0 63))))))))))) -(define SystemC-45Info-os (lambda () (blodwen-os))) -(define SystemC-45Info-isWindows (lambda () (PreludeC-45Types-elem (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_String arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_String arg-4 arg-5)))) (SystemC-45Info-os) (cons "windows" (cons "mingw32" (cons "cygwin32" '())))))) -(define DataC-45Fuel-forever (lambda () (vector 1 (lambda () (DataC-45Fuel-forever))))) -(define CoreC-45Core-case--caseC-32blockC-32inC-32catch-3204 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5) arg-5)) -(define CoreC-45Core-case--show-721 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) "older") (else "newer"))))) -(define CoreC-45Core-n--6665-1142-u--showRig (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (AlgebraC-45Semiring-elimSemi (cons (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-4) (lambda (arg-5) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-4 arg-5))))) "linear" "irrelevant" (lambda (eta-0) "unrestricted") ext-0))) -(define CoreC-45Core-n--6665-1143-u--showRel (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (AlgebraC-45Semiring-elimSemi (cons (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-4) (lambda (arg-5) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-4 arg-5))))) "relevant" "irrelevant" (lambda (eta-0) "non-linear") ext-0))) -(define CoreC-45Core-n--9702-3815-u--goTerm (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) ((arg-1 arg-2) arg-3)) ((1) ((arg-1 arg-2) arg-3)) ((2) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 4))) (PreludeC-45Basics-flip (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (let ((act-24 (eta-0 eta-2))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((eta-1 e-5) eta-2))))))))) (arg-1 arg-2) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 2 e-11 e-12 e-13 e-5))))))) (lambda (eta-1) (CoreC-45Core-traverseC-39 (lambda (eta-2) (CoreC-45Core-n--9702-3815-u--goTerm arg-0 arg-1 arg-2 eta-2)) e-14 '() eta-1)) eta-0)))))))) ((3) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (PreludeC-45Basics-flip (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (let ((act-24 (eta-0 eta-2))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((eta-1 e-5) eta-2))))))))) (arg-1 arg-2) (lambda (eta-0) (CoreC-45Core-C-60C-42C-62 (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-2) (let ((sc1 eta-2)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-3) (vector 3 e-16 e-17 e-5 eta-3)))))))) (lambda (eta-2) (CoreC-45CoreC-45Binder-traverse (lambda (eta-3) (CoreC-45Core-n--9702-3815-u--goTerm arg-0 arg-1 arg-2 eta-3)) e-18 eta-2)) eta-1)) (CoreC-45Core-n--9702-3815-u--goTerm arg-0 arg-1 (cons e-17 arg-2) e-19) eta-0)))))))) ((4) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (PreludeC-45Basics-flip (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (let ((act-24 (eta-0 eta-2))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((eta-1 e-5) eta-2))))))))) (arg-1 arg-2) (lambda (eta-0) (CoreC-45Core-C-60C-42C-62 (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-2) (let ((sc1 eta-2)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-3) (vector 4 e-21 e-5 eta-3)))))))) (CoreC-45Core-n--9702-3815-u--goTerm arg-0 arg-1 arg-2 e-22) eta-1)) (CoreC-45Core-n--9702-3815-u--goTerm arg-0 arg-1 arg-2 e-23) eta-0))))))) ((5) (let ((e-25 (vector-ref sc0 1))) (let ((e-26 (vector-ref sc0 2))) (let ((e-27 (vector-ref sc0 3))) (let ((e-28 (vector-ref sc0 4))) (PreludeC-45Basics-flip (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (let ((act-24 (eta-0 eta-2))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((eta-1 e-5) eta-2))))))))) (arg-1 arg-2) (lambda (eta-0) (CoreC-45Core-C-60C-42C-62 (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-2) (let ((sc1 eta-2)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-3) (vector 5 e-25 e-26 e-5 eta-3)))))))) (CoreC-45Core-n--9702-3815-u--goTerm arg-0 arg-1 arg-2 e-27) eta-1)) (CoreC-45Core-n--9702-3815-u--goTerm arg-0 arg-1 arg-2 e-28) eta-0)))))))) ((6) (let ((e-30 (vector-ref sc0 1))) (let ((e-31 (vector-ref sc0 2))) (let ((e-32 (vector-ref sc0 3))) (PreludeC-45Basics-flip (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (let ((act-24 (eta-0 eta-2))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((eta-1 e-5) eta-2))))))))) (arg-1 arg-2) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 6 e-30 e-31 e-5))))))) (CoreC-45Core-n--9702-3815-u--goTerm arg-0 arg-1 arg-2 e-32) eta-0))))))) ((7) (let ((e-34 (vector-ref sc0 1))) (let ((e-35 (vector-ref sc0 2))) (let ((e-36 (vector-ref sc0 3))) (let ((e-37 (vector-ref sc0 4))) (PreludeC-45Basics-flip (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (let ((act-24 (eta-0 eta-2))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((eta-1 e-5) eta-2))))))))) (arg-1 arg-2) (lambda (eta-0) (CoreC-45Core-C-60C-42C-62 (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-2) (let ((sc1 eta-2)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-3) (vector 7 e-34 e-35 e-5 eta-3)))))))) (CoreC-45Core-n--9702-3815-u--goTerm arg-0 arg-1 arg-2 e-36) eta-1)) (CoreC-45Core-n--9702-3815-u--goTerm arg-0 arg-1 arg-2 e-37) eta-0)))))))) ((8) (let ((e-39 (vector-ref sc0 1))) (let ((e-40 (vector-ref sc0 2))) (let ((e-41 (vector-ref sc0 3))) (PreludeC-45Basics-flip (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (let ((act-24 (eta-0 eta-2))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((eta-1 e-5) eta-2))))))))) (arg-1 arg-2) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 8 e-39 e-40 e-5))))))) (CoreC-45Core-n--9702-3815-u--goTerm arg-0 arg-1 arg-2 e-41) eta-0))))))) ((9) ((arg-1 arg-2) arg-3)) ((10) ((arg-1 arg-2) arg-3)) (else ((arg-1 arg-2) arg-3)))))) -(define CoreC-45Core-u--throw_Catchable_Core_Error (lambda (ext-1 ext-0) (CoreC-45Core-coreFail ext-1 ext-0))) -(define CoreC-45Core-u--show_Show_TTCErrorMsg (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((u--age (CoreC-45Core-case--show-721 e-2 e-1 e-0 (PreludeC-45EqOrd-u--C-60_Ord_Int e-1 e-2)))) (PreludeC-45TypesC-45String-C-43C-43 "TTC data is in an " (PreludeC-45TypesC-45String-C-43C-43 u--age (PreludeC-45TypesC-45String-C-43C-43 " format, file: " (PreludeC-45TypesC-45String-C-43C-43 e-0 (PreludeC-45TypesC-45String-C-43C-43 ", expected version: " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Int e-2) (PreludeC-45TypesC-45String-C-43C-43 ", actual version: " (PreludeC-45Show-u--show_Show_Int e-1))))))))))))) ((1) (let ((e-3 (vector-ref sc0 1))) (PreludeC-45TypesC-45String-C-43C-43 "End of buffer when reading " e-3))) (else (let ((e-4 (vector-ref sc0 1))) (PreludeC-45TypesC-45String-C-43C-43 "Corrupt TTC data for " e-4))))))) -(define CoreC-45Core-u--show_Show_Error (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (CoreC-45Core-u--show_Show_Error e-0))) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC e-2) (PreludeC-45TypesC-45String-C-43C-43 ":Type mismatch: " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 e-1 e-4) (PreludeC-45TypesC-45String-C-43C-43 " and " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 e-1 e-5)))))))))) ((2) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 4))) (let ((e-10 (vector-ref sc0 5))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC e-7) (PreludeC-45TypesC-45String-C-43C-43 ":" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 e-6 e-9) (PreludeC-45TypesC-45String-C-43C-43 " and " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 e-6 e-10) " are not equal")))))))))) ((3) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-14 (vector-ref sc0 4))) (let ((e-15 (vector-ref sc0 5))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC e-12) (PreludeC-45TypesC-45String-C-43C-43 ":Pattern variable " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-14) (PreludeC-45TypesC-45String-C-43C-43 " unifies with " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 e-11 e-15)))))))))) ((4) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-19 (vector-ref sc0 4))) (let ((e-20 (vector-ref sc0 5))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC e-17) (PreludeC-45TypesC-45String-C-43C-43 ":Cycle detected in metavariable solution " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-19) (PreludeC-45TypesC-45String-C-43C-43 " = " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 e-16 e-20)))))))))) ((5) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-24 (vector-ref sc0 4))) (let ((e-25 (vector-ref sc0 5))) (let ((e-26 (vector-ref sc0 6))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC e-22) (PreludeC-45TypesC-45String-C-43C-43 ":When unifying: " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 e-21 e-24) (PreludeC-45TypesC-45String-C-43C-43 " and " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 e-21 e-25) (PreludeC-45TypesC-45String-C-43C-43 "\u000a\u0009" (CoreC-45Core-u--show_Show_Error e-26))))))))))))) ((6) (let ((e-27 (vector-ref sc0 1))) (let ((e-28 (vector-ref sc0 2))) (let ((e-30 (vector-ref sc0 4))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC e-28) (PreludeC-45TypesC-45String-C-43C-43 ":" (let ((sc1 e-30)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 e-27 e-2) " is not a valid impossible pattern because it typechecks"))) (else (let ((e-5 (vector-ref sc1 1))) (PreludeC-45TypesC-45String-C-43C-43 "Not a valid impossible pattern:\u000a\u0009" (CoreC-45Core-u--show_Show_Error e-5)))))))))))) ((7) (let ((e-31 (vector-ref sc0 1))) (let ((e-32 (vector-ref sc0 2))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC e-31) (PreludeC-45TypesC-45String-C-43C-43 ":Undefined name " (CoreC-45Name-u--show_Show_Name e-32)))))) ((8) (let ((e-33 (vector-ref sc0 1))) (let ((e-34 (vector-ref sc0 2))) (let ((e-35 (vector-ref sc0 3))) (let ((sc1 e-35)) (case (vector-ref sc1 0) ((1) (let ((e-203 (vector-ref sc1 1))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC e-33) (PreludeC-45TypesC-45String-C-43C-43 ":Name " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-34) (PreludeC-45TypesC-45String-C-43C-43 " is inaccessible since " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-u--show_Show_Namespace e-203) " is not explicitly imported")))))))(else (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC e-33) (PreludeC-45TypesC-45String-C-43C-43 ":Name " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-34) " is private")))))))))) ((9) (let ((e-36 (vector-ref sc0 1))) (let ((e-37 (vector-ref sc0 2))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC e-36) (PreludeC-45TypesC-45String-C-43C-43 ":Return type of " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-37) " must be Type")))))) ((10) (let ((e-38 (vector-ref sc0 1))) (let ((e-39 (vector-ref sc0 2))) (let ((e-40 (vector-ref sc0 3))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC e-38) (PreludeC-45TypesC-45String-C-43C-43 ":Return type of " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-39) (PreludeC-45TypesC-45String-C-43C-43 " must be in " (CoreC-45Name-u--show_Show_Name e-40))))))))) ((11) (let ((e-41 (vector-ref sc0 1))) (let ((e-42 (vector-ref sc0 2))) (let ((e-43 (vector-ref sc0 3))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC e-41) (PreludeC-45TypesC-45String-C-43C-43 ":" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-42) (PreludeC-45TypesC-45String-C-43C-43 " is not covering:\u000a\u0009" (let ((sc1 e-43)) (case (vector-ref sc1 0) ((0) "Oh yes it is (Internal error!)") ((1) (let ((e-0 (vector-ref sc1 1))) (PreludeC-45TypesC-45String-C-43C-43 "Missing cases:\u000a\u0009" (CoreC-45NameC-45Namespace-showSep "\u000a\u0009" (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() eta-0)) e-0))))) (else (let ((e-1 (vector-ref sc1 1))) (PreludeC-45TypesC-45String-C-43C-43 "Calls non covering function" (let ((sc2 e-1)) (if (null? sc2) (PreludeC-45TypesC-45String-C-43C-43 "s: " (CoreC-45NameC-45Namespace-showSep ", " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45Name-u--show_Show_Name eta-0)) e-1))) (let ((e-3 (car sc2))) (let ((e-2 (cdr sc2))) (let ((sc3 e-2)) (if (null? sc3) (PreludeC-45TypesC-45String-C-43C-43 " " (CoreC-45Name-u--show_Show_Name e-3)) (PreludeC-45TypesC-45String-C-43C-43 "s: " (CoreC-45NameC-45Namespace-showSep ", " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45Name-u--show_Show_Name eta-0)) e-1)))))))))))))))))))))) ((12) (let ((e-44 (vector-ref sc0 1))) (let ((e-45 (vector-ref sc0 2))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC e-44) (PreludeC-45TypesC-45String-C-43C-43 ":" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-45) " is not total")))))) ((13) (let ((e-47 (vector-ref sc0 1))) (let ((e-48 (vector-ref sc0 2))) (let ((e-49 (vector-ref sc0 3))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC e-47) (PreludeC-45TypesC-45String-C-43C-43 ":There are " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Nat e-48) (PreludeC-45TypesC-45String-C-43C-43 " uses of linear name " (CoreC-45Name-u--show_Show_Name e-49))))))))) ((14) (let ((e-50 (vector-ref sc0 1))) (let ((e-51 (vector-ref sc0 2))) (let ((e-52 (vector-ref sc0 3))) (let ((e-53 (vector-ref sc0 4))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC e-50) (PreludeC-45TypesC-45String-C-43C-43 ":Trying to use " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Core-n--6665-1142-u--showRig e-53 e-52 e-51 e-50 e-52) (PreludeC-45TypesC-45String-C-43C-43 " name " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-51) (PreludeC-45TypesC-45String-C-43C-43 " in " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Core-n--6665-1143-u--showRel e-53 e-52 e-51 e-50 e-53) " context")))))))))))) ((15) (let ((e-54 (vector-ref sc0 1))) (let ((e-55 (vector-ref sc0 2))) (let ((e-57 (vector-ref sc0 4))) (let ((e-58 (vector-ref sc0 5))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC e-55) (PreludeC-45TypesC-45String-C-43C-43 ":" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 e-54 e-57) (PreludeC-45TypesC-45String-C-43C-43 " borrows argument " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 e-54 e-58) " so must be fully applied")))))))))) ((16) (let ((e-59 (vector-ref sc0 1))) (let ((e-60 (vector-ref sc0 2))) (let ((e-62 (vector-ref sc0 4))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC e-60) (PreludeC-45TypesC-45String-C-43C-43 ":" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 e-59 e-62) " borrows, so must return a concrete type"))))))) ((17) (let ((e-63 (vector-ref sc0 1))) (let ((e-64 (vector-ref sc0 2))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC e-63) (PreludeC-45TypesC-45String-C-43C-43 ":Ambiguous name " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45Name-u--show_Show_Name u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Name-u--showPrec_Show_Name u--d u--x)))) e-64)))))) ((18) (let ((e-65 (vector-ref sc0 1))) (let ((e-66 (vector-ref sc0 2))) (let ((e-68 (vector-ref sc0 4))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC e-66) (PreludeC-45TypesC-45String-C-43C-43 ":Ambiguous elaboration " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 e-65 u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 e-65 u--d u--x)))) e-68))))))) ((19) (let ((e-69 (vector-ref sc0 1))) (let ((e-70 (vector-ref sc0 2))) (let ((e-73 (vector-ref sc0 5))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC e-70) (PreludeC-45TypesC-45String-C-43C-43 ":Ambiguous search " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 e-69 u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 e-69 u--d u--x)))) e-73))))))) ((20) (let ((e-74 (vector-ref sc0 1))) (let ((e-75 (vector-ref sc0 2))) (let ((e-76 (vector-ref sc0 3))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC e-74) (PreludeC-45TypesC-45String-C-43C-43 ":Ambiguity too deep in " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-75) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45Name-u--show_Show_Name u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Name-u--showPrec_Show_Name u--d u--x)))) e-76))))))))) ((21) (let ((e-77 (vector-ref sc0 1))) (PreludeC-45TypesC-45String-C-43C-43 "No successful elaboration: " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (x-1) (CoreC-45Name-u--show_Show_Name x-1)) (lambda (u--d) (lambda (x-1) (CoreC-45Name-u--showPrec_Show_Name u--d x-1)))) x-0)) (lambda (u--d) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (x-1) (CoreC-45Name-u--show_Show_Name x-1)) (lambda (d-0) (lambda (x-1) (CoreC-45Name-u--showPrec_Show_Name d-0 x-1)))) u--d x-0)))) (cons (lambda (x-0) (CoreC-45Core-u--show_Show_Error x-0)) (lambda (u--d) (lambda (x-0) (CoreC-45Core-u--showPrec_Show_Error u--d x-0))))) u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (x-1) (CoreC-45Name-u--show_Show_Name x-1)) (lambda (d-0) (lambda (x-1) (CoreC-45Name-u--showPrec_Show_Name d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (x-1) (CoreC-45Name-u--show_Show_Name x-1)) (lambda (d-1) (lambda (x-1) (CoreC-45Name-u--showPrec_Show_Name d-1 x-1)))) d-0 x-0)))) (cons (lambda (x-0) (CoreC-45Core-u--show_Show_Error x-0)) (lambda (d-0) (lambda (x-0) (CoreC-45Core-u--showPrec_Show_Error d-0 x-0))))) u--d u--x)))) e-77)))) ((22) (let ((e-79 (vector-ref sc0 2))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC e-79) ":Can't infer type of record to update"))) ((23) (let ((e-81 (vector-ref sc0 1))) (let ((e-82 (vector-ref sc0 2))) (let ((e-83 (vector-ref sc0 3))) (let ((sc1 e-83)) (case (vector-ref sc1 0) ((0) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC e-81) (PreludeC-45TypesC-45String-C-43C-43 ":" (PreludeC-45TypesC-45String-C-43C-43 e-82 " is not part of a record type")))) (else (let ((e-206 (vector-ref sc1 1))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC e-81) (PreludeC-45TypesC-45String-C-43C-43 ":Record type " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-206) (PreludeC-45TypesC-45String-C-43C-43 " has no field " e-82)))))))))))) ((24) (let ((e-84 (vector-ref sc0 1))) (let ((e-85 (vector-ref sc0 2))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC e-84) (PreludeC-45TypesC-45String-C-43C-43 ":" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-85) " is not a record type")))))) ((25) (let ((e-86 (vector-ref sc0 1))) (let ((e-87 (vector-ref sc0 2))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC e-86) (PreludeC-45TypesC-45String-C-43C-43 ":Field update " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-showSep "->" e-87) " not compatible with other updates")))))) ((26) (let ((e-88 (vector-ref sc0 1))) (let ((e-89 (vector-ref sc0 2))) (let ((e-91 (vector-ref sc0 4))) (let ((e-92 (vector-ref sc0 5))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC e-89) (PreludeC-45TypesC-45String-C-43C-43 ":" (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45Name-u--show_Show_Name u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Name-u--showPrec_Show_Name u--d u--x)))) e-91) (PreludeC-45TypesC-45String-C-43C-43 " are not valid arguments in " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 e-88 e-92)))))))))) ((27) (let ((e-93 (vector-ref sc0 1))) (let ((e-94 (vector-ref sc0 2))) (let ((e-96 (vector-ref sc0 4))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC e-94) (PreludeC-45TypesC-45String-C-43C-43 ":Need to bind implicits " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-showSep "," (PreludeC-45Types-u--map_Functor_List (lambda (u--x) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name (Builtin-fst u--x)) (PreludeC-45TypesC-45String-C-43C-43 " : " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 e-93 (Builtin-snd u--x))))) e-96)) "\u000a(The front end should probably have done this for you. Please report!)"))))))) ((28) (let ((e-97 (vector-ref sc0 1))) (let ((e-98 (vector-ref sc0 2))) (let ((e-100 (vector-ref sc0 4))) (let ((e-101 (vector-ref sc0 5))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC e-98) (PreludeC-45TypesC-45String-C-43C-43 ":Can't bind name " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-nameRoot e-100) (PreludeC-45TypesC-45String-C-43C-43 " with type " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 e-97 e-101)))))))))) ((29) (let ((e-102 (vector-ref sc0 1))) (let ((e-103 (vector-ref sc0 2))) (let ((e-105 (vector-ref sc0 4))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC e-103) (PreludeC-45TypesC-45String-C-43C-43 ":Can't solve goal " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 e-102 e-105))))))) ((30) (let ((e-106 (vector-ref sc0 1))) (let ((e-107 (vector-ref sc0 2))) (let ((e-108 (vector-ref sc0 3))) (let ((e-111 (vector-ref sc0 6))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC e-107) (PreludeC-45TypesC-45String-C-43C-43 ":Can't solve goal " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 e-106 e-111) (PreludeC-45TypesC-45String-C-43C-43 " since argument " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-108) " can't be inferred")))))))))) ((31) (let ((e-112 (vector-ref sc0 1))) (PreludeC-45TypesC-45String-C-43C-43 "Unsolved holes " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (CoreC-45FC-u--show_Show_FC x-0)) (lambda (u--d) (lambda (x-0) (CoreC-45FC-u--showPrec_Show_FC u--d x-0)))) (cons (lambda (x-0) (CoreC-45Name-u--show_Show_Name x-0)) (lambda (u--d) (lambda (x-0) (CoreC-45Name-u--showPrec_Show_Name u--d x-0))))) u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (CoreC-45FC-u--show_Show_FC x-0)) (lambda (d-0) (lambda (x-0) (CoreC-45FC-u--showPrec_Show_FC d-0 x-0)))) (cons (lambda (x-0) (CoreC-45Name-u--show_Show_Name x-0)) (lambda (d-0) (lambda (x-0) (CoreC-45Name-u--showPrec_Show_Name d-0 x-0))))) u--d u--x)))) e-112)))) ((32) (let ((e-113 (vector-ref sc0 1))) (let ((e-114 (vector-ref sc0 2))) (let ((e-116 (vector-ref sc0 4))) (let ((e-117 (vector-ref sc0 5))) (let ((e-118 (vector-ref sc0 6))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC e-114) (PreludeC-45TypesC-45String-C-43C-43 ":Can't infer type for " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-116) (PreludeC-45TypesC-45String-C-43C-43 " (got " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 e-113 e-118) (PreludeC-45TypesC-45String-C-43C-43 " with hole " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-117) ")"))))))))))))) ((33) (let ((e-120 (vector-ref sc0 2))) (let ((e-122 (vector-ref sc0 4))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC e-120) (PreludeC-45TypesC-45String-C-43C-43 ":Named hole " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-122) " is solved by unification")))))) ((34) (let ((e-124 (vector-ref sc0 1))) (let ((e-125 (vector-ref sc0 2))) (let ((e-126 (vector-ref sc0 3))) (let ((e-127 (vector-ref sc0 4))) (let ((e-128 (vector-ref sc0 5))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC e-124) (PreludeC-45TypesC-45String-C-43C-43 ":" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_Visibility e-125) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-126) (PreludeC-45TypesC-45String-C-43C-43 " cannot refer to " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_Visibility e-127) (PreludeC-45TypesC-45String-C-43C-43 " " (CoreC-45Name-u--show_Show_Name e-128))))))))))))))) ((35) (let ((e-129 (vector-ref sc0 1))) (let ((e-130 (vector-ref sc0 2))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC e-129) (PreludeC-45TypesC-45String-C-43C-43 ":Non linear pattern variable " (CoreC-45Name-u--show_Show_Name e-130)))))) ((36) (let ((e-131 (vector-ref sc0 1))) (let ((e-132 (vector-ref sc0 2))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC e-131) (PreludeC-45TypesC-45String-C-43C-43 ":Pattern not allowed here: " (CoreC-45Name-u--show_Show_Name e-132)))))) ((37) (let ((e-133 (vector-ref sc0 1))) (let ((e-134 (vector-ref sc0 2))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC e-133) (PreludeC-45TypesC-45String-C-43C-43 ":No type declaration for " (CoreC-45Name-u--show_Show_Name e-134)))))) ((38) (let ((e-135 (vector-ref sc0 1))) (let ((e-136 (vector-ref sc0 2))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC e-135) (PreludeC-45TypesC-45String-C-43C-43 ":" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-136) " is already defined")))))) ((39) (let ((e-137 (vector-ref sc0 1))) (let ((e-138 (vector-ref sc0 2))) (let ((e-140 (vector-ref sc0 4))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC e-138) (PreludeC-45TypesC-45String-C-43C-43 ":Not a function type: " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 e-137 e-140))))))) ((40) (let ((e-141 (vector-ref sc0 1))) (let ((e-142 (vector-ref sc0 2))) (let ((e-144 (vector-ref sc0 4))) (let ((e-145 (vector-ref sc0 5))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC e-142) (PreludeC-45TypesC-45String-C-43C-43 ":Rewriting by " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 e-141 e-144) (PreludeC-45TypesC-45String-C-43C-43 " did not change type " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 e-141 e-145)))))))))) ((41) (let ((e-146 (vector-ref sc0 1))) (let ((e-147 (vector-ref sc0 2))) (let ((e-149 (vector-ref sc0 4))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC e-147) (PreludeC-45TypesC-45String-C-43C-43 ":" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 e-146 e-149) " is not a rewrite rule type"))))))) ((42) (let ((e-150 (vector-ref sc0 1))) (let ((e-151 (vector-ref sc0 2))) (let ((e-152 (vector-ref sc0 3))) (let ((sc1 e-152)) (case (vector-ref sc1 0) ((0) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC e-150) (PreludeC-45TypesC-45String-C-43C-43 ":Patterns for " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-151) " have different numbers of arguments")))) ((1) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC e-150) (PreludeC-45TypesC-45String-C-43C-43 ":Patterns for " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-151) " require matching on different types")))) ((4) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC e-150) (PreludeC-45TypesC-45String-C-43C-43 ":Can't infer type to match in " (CoreC-45Name-u--show_Show_Name e-151)))) ((2) (let ((e-207 (vector-ref sc1 1))) (let ((sc2 e-207)) (let ((e-211 (car sc2))) (let ((e-212 (cdr sc2))) (let ((sc3 e-212)) (let ((e-216 (cdr sc3))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC e-150) (PreludeC-45TypesC-45String-C-43C-43 ":Attempt to match on erased argument " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 e-211 e-216) (PreludeC-45TypesC-45String-C-43C-43 " in " (CoreC-45Name-u--show_Show_Name e-151)))))))))))) (else (let ((e-208 (vector-ref sc1 1))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC e-150) (PreludeC-45TypesC-45String-C-43C-43 ":Constructor " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-208) " is not fully applied"))))))))))) ((43) (let ((e-153 (vector-ref sc0 1))) (let ((e-154 (vector-ref sc0 2))) (let ((e-156 (vector-ref sc0 4))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC e-154) (PreludeC-45TypesC-45String-C-43C-43 ":Can't match on " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 e-153 e-156) " as it is has a polymorphic type"))))))) ((44) (let ((e-157 (vector-ref sc0 1))) (let ((e-158 (vector-ref sc0 2))) (let ((e-160 (vector-ref sc0 4))) (let ((e-161 (vector-ref sc0 5))) (let ((e-162 (vector-ref sc0 6))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC e-158) (PreludeC-45TypesC-45String-C-43C-43 ":Can't match on " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 e-157 e-161) (PreludeC-45TypesC-45String-C-43C-43 " (" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Core-u--show_Show_DotReason e-160) (PreludeC-45TypesC-45String-C-43C-43 ")" (PreludeC-45TypesC-45String-C-43C-43 " - it elaborates to " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 e-157 e-162)))))))))))))) ((45) (let ((e-163 (vector-ref sc0 1))) (let ((e-164 (vector-ref sc0 2))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC e-163) (PreludeC-45TypesC-45String-C-43C-43 ":" (PreludeC-45TypesC-45String-C-43C-43 e-164 " can't be bound here")))))) ((46) (let ((e-165 (vector-ref sc0 1))) (let ((e-166 (vector-ref sc0 2))) (let ((e-168 (vector-ref sc0 4))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC e-166) (PreludeC-45TypesC-45String-C-43C-43 ":Bad elaborator script " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 e-165 e-168))))))) ((47) (let ((e-169 (vector-ref sc0 1))) (let ((e-170 (vector-ref sc0 2))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC e-169) (PreludeC-45TypesC-45String-C-43C-43 ":" e-170))))) ((48) (let ((e-171 (vector-ref sc0 1))) (PreludeC-45TypesC-45String-C-43C-43 "Error in TTC file: " (CoreC-45Core-u--show_Show_TTCErrorMsg e-171)))) ((49) (let ((e-172 (vector-ref sc0 1))) (let ((e-173 (vector-ref sc0 2))) (PreludeC-45TypesC-45String-C-43C-43 "File error (" (PreludeC-45TypesC-45String-C-43C-43 e-172 (PreludeC-45TypesC-45String-C-43C-43 "): " (SystemC-45File-u--show_Show_FileError e-173))))))) ((50) (let ((e-174 (vector-ref sc0 1))) (PreludeC-45TypesC-45String-C-43C-43 "Can't find package " e-174))) ((51) (let ((e-175 (vector-ref sc0 1))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC e-175) ":Can't parse literate"))) ((52) (let ((e-176 (vector-ref sc0 1))) (let ((e-177 (vector-ref sc0 2))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC e-176) (PreludeC-45TypesC-45String-C-43C-43 ":Lexer error (" (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_String e-177) ")")))))) ((53) (let ((e-179 (vector-ref sc0 2))) (PreludeC-45TypesC-45String-C-43C-43 "Parse error (" (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_String e-179) ")")))) ((54) (let ((e-180 (vector-ref sc0 1))) (let ((e-181 (vector-ref sc0 2))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC e-180) (PreludeC-45TypesC-45String-C-43C-43 ":" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-u--show_Show_ModuleIdent e-181) " not found")))))) ((55) (let ((e-182 (vector-ref sc0 1))) (PreludeC-45TypesC-45String-C-43C-43 "Module imports form a cycle: " (CoreC-45NameC-45Namespace-showSep " -> " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45NameC-45Namespace-u--show_Show_ModuleIdent eta-0)) e-182))))) ((56) "Internal error when resolving implicit laziness") ((57) (let ((e-183 (vector-ref sc0 1))) (PreludeC-45TypesC-45String-C-43C-43 "INTERNAL ERROR: " e-183))) ((58) (let ((e-184 (vector-ref sc0 1))) (PreludeC-45TypesC-45String-C-43C-43 "Error: " e-184))) ((59) (let ((e-185 (vector-ref sc0 1))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC e-185) ":The given specifier was not accepted by any available backend."))) ((60) (let ((e-187 (vector-ref sc0 2))) (PreludeC-45TypesC-45String-C-43C-43 "Invalid multiline string: " e-187))) ((61) (let ((e-188 (vector-ref sc0 1))) (let ((e-189 (vector-ref sc0 2))) (let ((e-190 (vector-ref sc0 3))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC e-188) (PreludeC-45TypesC-45String-C-43C-43 ":When elaborating type of " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-189) (PreludeC-45TypesC-45String-C-43C-43 ":\u000a" (CoreC-45Core-u--show_Show_Error e-190))))))))) ((62) (let ((e-191 (vector-ref sc0 1))) (let ((e-192 (vector-ref sc0 2))) (let ((e-193 (vector-ref sc0 3))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC e-191) (PreludeC-45TypesC-45String-C-43C-43 ":When elaborating type of constructor " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-192) (PreludeC-45TypesC-45String-C-43C-43 ":\u000a" (CoreC-45Core-u--show_Show_Error e-193))))))))) ((63) (let ((e-194 (vector-ref sc0 1))) (let ((e-195 (vector-ref sc0 2))) (let ((e-196 (vector-ref sc0 3))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC e-194) (PreludeC-45TypesC-45String-C-43C-43 ":When elaborating left hand side of " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-195) (PreludeC-45TypesC-45String-C-43C-43 ":\u000a" (CoreC-45Core-u--show_Show_Error e-196))))))))) ((64) (let ((e-197 (vector-ref sc0 1))) (let ((e-198 (vector-ref sc0 2))) (let ((e-199 (vector-ref sc0 3))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC e-197) (PreludeC-45TypesC-45String-C-43C-43 ":When elaborating right hand side of " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-198) (PreludeC-45TypesC-45String-C-43C-43 ":\u000a" (CoreC-45Core-u--show_Show_Error e-199))))))))) (else (let ((e-200 (vector-ref sc0 1))) (let ((e-201 (vector-ref sc0 2))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Core-u--show_Show_Error e-200) (PreludeC-45TypesC-45String-C-43C-43 "\u000aDid you mean" (let ((sc1 e-201)) (if (null? sc1) (PreludeC-45TypesC-45String-C-43C-43 " any of: " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-showSep ", " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (PreludeC-45Show-u--show_Show_String eta-0)) (DataC-45List1-forget e-201))) "?")) (let ((e-1 (car sc1))) (let ((e-2 (cdr sc1))) (let ((sc2 e-2)) (if (null? sc2) (PreludeC-45TypesC-45String-C-43C-43 ": " (PreludeC-45TypesC-45String-C-43C-43 e-1 "?")) (PreludeC-45TypesC-45String-C-43C-43 " any of: " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-showSep ", " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (PreludeC-45Show-u--show_Show_String eta-0)) (DataC-45List1-forget e-201))) "?"))))))))))))))))) -(define CoreC-45Core-u--show_Show_DotReason (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) "Non linear pattern variable") ((1) "Variable applied to arguments") ((2) "Not a constructor application or primitive") ((3) "Erased argument") ((4) "User dotted") ((5) "Unknown reason") (else "Under-applied constructor"))))) -(define CoreC-45Core-u--showPrec_Show_Error (lambda (arg-0 arg-1) (CoreC-45Core-u--show_Show_Error arg-1))) -(define CoreC-45Core-u--pretty_Pretty_DotReason (lambda (arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Non linear pattern variable")) ((1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Variable applied to arguments")) ((2) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Not a constructor application or primitive")) ((3) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Erased argument")) ((4) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "User dotted")) ((5) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Unknown reason")) (else (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Under-applied constructor")))))) -(define CoreC-45Core-u--catch_Catchable_Core_Error (lambda (arg-1 arg-2 ext-0) (let ((act-24 (arg-1 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((u--pC-39 (vector 0 e-2))) ((CoreC-45Core-case--caseC-32blockC-32inC-32catch-3204 arg-1 arg-2 e-2 u--pC-39 (arg-2 e-2)) ext-0)))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 e-5)))))))) -(define CoreC-45Core-wrapRef (lambda (arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (CoreC-45Core-u--catch_Catchable_Core_Error arg-6 (lambda (u--err) (lambda (eta-0) (let ((act-25 ((arg-5 e-5) eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 (let ((act-26 (set-box! arg-4 e-5))) (vector 1 act-26)))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (CoreC-45Core-u--throw_Catchable_Core_Error u--err eta-0))))))))))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((arg-5 e-5) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-27 (let ((act-27 (set-box! arg-4 e-5))) (vector 1 act-27)))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (vector 1 e-6))))))))))))))))))))) -(define CoreC-45Core-wrapError (lambda (arg-1 arg-2 ext-0) (let ((act-24 (arg-2 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 (arg-1 e-2)))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 e-5)))))))) -(define CoreC-45Core-traverse_ (lambda (arg-2 arg-3 ext-0) (let ((sc0 arg-3)) (if (null? sc0) (vector 1 (vector 0 )) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((act-24 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc1 eta-0)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (vector 1 (vector 0 )))))) (arg-2 e-2) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (CoreC-45Core-traverse_ arg-2 e-3 ext-0))))))))))) -(define CoreC-45Core-traverseVect (lambda (arg-3 arg-4 ext-0) (let ((sc0 arg-4)) (if (null? sc0) (vector 1 '()) (let ((e-3 (car sc0))) (let ((e-4 (cdr sc0))) (CoreC-45Core-C-60C-42C-62 (lambda (eta-0) (CoreC-45Core-C-60C-42C-62 (lambda (eta-1) (vector 1 (lambda (eta-2) (lambda (eta-3) (cons eta-2 eta-3))))) (arg-3 e-3) eta-0)) (lambda (eta-0) (CoreC-45Core-traverseVect arg-3 e-4 eta-0)) ext-0))))))) -(define CoreC-45Core-traversePair (lambda (arg-3 arg-4 ext-0) (let ((sc0 arg-4)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc1 eta-0)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (cons e-2 e-5))))))) (arg-3 e-3) ext-0)))))) -(define CoreC-45Core-traverseList1_ (lambda (arg-2 arg-3) (let ((u--x (let ((sc0 arg-3)) (let ((e-1 (car sc0))) e-1)))) (let ((u--xs (let ((sc0 arg-3)) (let ((e-2 (cdr sc0))) e-2)))) (lambda (eta-0) (let ((act-24 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (let ((sc0 eta-1)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))) (arg-2 u--x) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (CoreC-45Core-traverse_ arg-2 u--xs eta-0)))))))))) -(define CoreC-45Core-traverseC-39 (lambda (arg-2 arg-3 arg-4 ext-0) (let ((sc0 arg-3)) (if (null? sc0) (vector 1 (DataC-45List-reverse arg-4)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((act-24 ((arg-2 e-2) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (CoreC-45Core-traverseC-39 arg-2 e-3 (cons e-5 arg-4) ext-0)))))))))))) -(define CoreC-45CoreC-45PiInfo-traverse (lambda (arg-2 arg-3 ext-0) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (vector 1 (vector 1 ))) ((0) (vector 1 (vector 0 ))) ((2) (vector 1 (vector 2 ))) (else (let ((e-4 (vector-ref sc0 1))) (let ((act-24 ((arg-2 e-4) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 3 e-5))))))))))))) -(define CoreC-45CoreC-45Binder-traverse (lambda (arg-2 arg-3 ext-0) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((act-24 (CoreC-45CoreC-45PiInfo-traverse arg-2 e-3 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((arg-2 e-4) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 0 e-1 e-2 e-5 e-6))))))))))))))))) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (let ((e-9 (vector-ref sc0 4))) (let ((act-24 ((arg-2 e-8) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((arg-2 e-9) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc2 1))) (vector 1 (vector 1 e-6 e-7 e-5 e-10))))))))))))))))) ((2) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 4))) (let ((act-24 (CoreC-45CoreC-45PiInfo-traverse arg-2 e-13 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((arg-2 e-14) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 2 e-11 e-12 e-5 e-6))))))))))))))))) ((3) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (let ((act-24 (CoreC-45CoreC-45PiInfo-traverse arg-2 e-18 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((arg-2 e-19) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 3 e-16 e-17 e-5 e-6))))))))))))))))) ((4) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (let ((e-24 (vector-ref sc0 4))) (let ((act-24 ((arg-2 e-23) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((arg-2 e-24) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 4 e-21 e-22 e-5 e-6))))))))))))))))) (else (let ((e-26 (vector-ref sc0 1))) (let ((e-27 (vector-ref sc0 2))) (let ((e-28 (vector-ref sc0 3))) (let ((act-24 ((arg-2 e-28) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 5 e-26 e-27 e-5))))))))))))))) -(define CoreC-45Core-newRef (lambda (arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 ((DataC-45IORef-newIORef (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-0)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-0) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (let ((act-17 (arg-578 eta-0))) (let ((act-16 (arg-580 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (let ((act-24 (arg-876 eta-0))) ((arg-877 act-24) eta-0))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-0) (let ((act-51 (arg-879 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) arg-3) ext-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 e-5)))))))) -(define CoreC-45Core-mapTermM (lambda (arg-0 arg-1 ext-0) (CoreC-45Core-n--9702-3815-u--goTerm arg-1 arg-0 arg-1 ext-0))) -(define CoreC-45Core-iwhenJust (lambda (arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (arg-3 e-1))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define CoreC-45Core-iwhen (lambda (arg-1 arg-2 ext-0) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc1 eta-0)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-5))))))) (arg-2) ext-0)) (else (vector 1 (vector 0 ))))))) -(define CoreC-45Core-iunless (lambda (arg-1 arg-2 ext-0) (CoreC-45Core-iwhen (let ((sc0 arg-1)) (cond ((equal? sc0 0) 1) (else 0))) arg-2 ext-0))) -(define CoreC-45Core-getWarningLoc (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (vector 1 e-1))) (else (vector 0 )))))) -(define CoreC-45Core-getErrorLoc (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (CoreC-45Core-getErrorLoc e-0))) ((1) (let ((e-2 (vector-ref sc0 2))) (vector 1 e-2))) ((2) (let ((e-7 (vector-ref sc0 2))) (vector 1 e-7))) ((3) (let ((e-12 (vector-ref sc0 2))) (vector 1 e-12))) ((4) (let ((e-17 (vector-ref sc0 2))) (vector 1 e-17))) ((5) (let ((e-22 (vector-ref sc0 2))) (vector 1 e-22))) ((6) (let ((e-28 (vector-ref sc0 2))) (vector 1 e-28))) ((7) (let ((e-31 (vector-ref sc0 1))) (vector 1 e-31))) ((8) (let ((e-33 (vector-ref sc0 1))) (vector 1 e-33))) ((9) (let ((e-36 (vector-ref sc0 1))) (vector 1 e-36))) ((10) (let ((e-38 (vector-ref sc0 1))) (vector 1 e-38))) ((11) (let ((e-41 (vector-ref sc0 1))) (vector 1 e-41))) ((12) (let ((e-44 (vector-ref sc0 1))) (vector 1 e-44))) ((13) (let ((e-47 (vector-ref sc0 1))) (vector 1 e-47))) ((14) (let ((e-50 (vector-ref sc0 1))) (vector 1 e-50))) ((15) (let ((e-55 (vector-ref sc0 2))) (vector 1 e-55))) ((16) (let ((e-60 (vector-ref sc0 2))) (vector 1 e-60))) ((17) (let ((e-63 (vector-ref sc0 1))) (vector 1 e-63))) ((18) (let ((e-66 (vector-ref sc0 2))) (vector 1 e-66))) ((19) (let ((e-70 (vector-ref sc0 2))) (vector 1 e-70))) ((20) (let ((e-74 (vector-ref sc0 1))) (vector 1 e-74))) ((21) (let ((e-77 (vector-ref sc0 1))) (let ((sc1 e-77)) (if (null? sc1) (vector 0 ) (let ((e-203 (car sc1))) (let ((sc2 e-203)) (let ((e-209 (cdr sc2))) (CoreC-45Core-getErrorLoc e-209)))))))) ((22) (let ((e-79 (vector-ref sc0 2))) (vector 1 e-79))) ((23) (let ((e-81 (vector-ref sc0 1))) (vector 1 e-81))) ((24) (let ((e-84 (vector-ref sc0 1))) (vector 1 e-84))) ((25) (let ((e-86 (vector-ref sc0 1))) (vector 1 e-86))) ((26) (let ((e-89 (vector-ref sc0 2))) (vector 1 e-89))) ((27) (let ((e-94 (vector-ref sc0 2))) (vector 1 e-94))) ((28) (let ((e-98 (vector-ref sc0 2))) (vector 1 e-98))) ((29) (let ((e-103 (vector-ref sc0 2))) (vector 1 e-103))) ((30) (let ((e-107 (vector-ref sc0 2))) (vector 1 e-107))) ((31) (let ((e-112 (vector-ref sc0 1))) (let ((sc1 e-112)) (if (null? sc1) (vector 0 ) (let ((e-211 (car sc1))) (let ((sc2 e-211)) (let ((e-216 (car sc2))) (vector 1 e-216)))))))) ((32) (let ((e-114 (vector-ref sc0 2))) (vector 1 e-114))) ((33) (let ((e-120 (vector-ref sc0 2))) (vector 1 e-120))) ((34) (let ((e-124 (vector-ref sc0 1))) (vector 1 e-124))) ((35) (let ((e-129 (vector-ref sc0 1))) (vector 1 e-129))) ((36) (let ((e-131 (vector-ref sc0 1))) (vector 1 e-131))) ((37) (let ((e-133 (vector-ref sc0 1))) (vector 1 e-133))) ((38) (let ((e-135 (vector-ref sc0 1))) (vector 1 e-135))) ((39) (let ((e-138 (vector-ref sc0 2))) (vector 1 e-138))) ((40) (let ((e-142 (vector-ref sc0 2))) (vector 1 e-142))) ((41) (let ((e-147 (vector-ref sc0 2))) (vector 1 e-147))) ((42) (let ((e-150 (vector-ref sc0 1))) (vector 1 e-150))) ((43) (let ((e-154 (vector-ref sc0 2))) (vector 1 e-154))) ((44) (let ((e-158 (vector-ref sc0 2))) (vector 1 e-158))) ((45) (let ((e-163 (vector-ref sc0 1))) (vector 1 e-163))) ((46) (let ((e-166 (vector-ref sc0 2))) (vector 1 e-166))) ((47) (let ((e-169 (vector-ref sc0 1))) (vector 1 e-169))) ((48) (vector 0 )) ((49) (vector 0 )) ((50) (vector 0 )) ((51) (let ((e-175 (vector-ref sc0 1))) (vector 1 e-175))) ((52) (let ((e-176 (vector-ref sc0 1))) (vector 1 e-176))) ((53) (let ((e-178 (vector-ref sc0 1))) (vector 1 e-178))) ((54) (let ((e-180 (vector-ref sc0 1))) (vector 1 e-180))) ((55) (vector 0 )) ((56) (vector 0 )) ((57) (vector 0 )) ((58) (vector 0 )) ((59) (let ((e-185 (vector-ref sc0 1))) (vector 1 e-185))) ((60) (let ((e-186 (vector-ref sc0 1))) (vector 1 e-186))) ((61) (let ((e-190 (vector-ref sc0 3))) (CoreC-45Core-getErrorLoc e-190))) ((62) (let ((e-193 (vector-ref sc0 3))) (CoreC-45Core-getErrorLoc e-193))) ((63) (let ((e-196 (vector-ref sc0 3))) (CoreC-45Core-getErrorLoc e-196))) ((64) (let ((e-199 (vector-ref sc0 3))) (CoreC-45Core-getErrorLoc e-199))) (else (let ((e-200 (vector-ref sc0 1))) (CoreC-45Core-getErrorLoc e-200))))))) -(define CoreC-45Core-foldlC (lambda (arg-3 arg-4 arg-5 ext-0) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 2))) (((((e-2 'erased) 'erased) (lambda (u--ma) (lambda (u--b) (lambda (eta-0) (let ((act-24 (u--ma eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) ((PreludeC-45Basics-flip arg-4 u--b e-5) eta-0)))))))))) (lambda (eta-0) (vector 1 arg-5))) ext-0))))) -(define CoreC-45Core-filterM (lambda (arg-1 arg-2 ext-0) (let ((sc0 arg-2)) (if (null? sc0) (vector 1 '()) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((act-24 ((arg-1 e-2) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (cond ((equal? sc2 0) (let ((act-25 (CoreC-45Core-filterM arg-1 e-3 ext-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 (cons e-2 e-6)))))))) (else (CoreC-45Core-filterM arg-1 e-3 ext-0))))))))))))))) -(define CoreC-45Core-coreRun (lambda (arg-2 arg-3 arg-4 ext-0) (let ((act-24 (arg-2 ext-0))) ((PreludeC-45Types-either (lambda () arg-3) (lambda () arg-4) act-24) ext-0)))) -(define CoreC-45Core-coreFail (lambda (arg-1 ext-0) (vector 0 arg-1))) -(define CoreC-45Core-cond (lambda (arg-1 arg-2) (let ((sc0 arg-1)) (if (null? sc0) arg-2 (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (let ((e-1 (e-6))) (let ((sc2 e-1)) (cond ((equal? sc2 0) (e-7)) (else (CoreC-45Core-cond e-3 arg-2)))))))))))))) -(define CoreC-45Core-anyM (lambda (arg-1 arg-2 ext-0) (let ((sc0 arg-2)) (if (null? sc0) (vector 1 1) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((act-24 ((arg-1 e-2) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (cond ((equal? sc2 0) (vector 1 0)) (else (CoreC-45Core-anyM arg-1 e-3 ext-0))))))))))))))) -(define CoreC-45Core-allM (lambda (arg-1 arg-2 ext-0) (let ((sc0 arg-2)) (if (null? sc0) (vector 1 0) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((act-24 ((arg-1 e-2) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (cond ((equal? sc2 0) (CoreC-45Core-allM arg-1 e-3 ext-0)) (else (vector 1 1))))))))))))))) -(define CoreC-45Core-C-60C-42C-62 (lambda (arg-2 arg-3 ext-0) (let ((act-17 (let ((act-17 (lambda (eta-0) (lambda (eta-1) (let ((sc0 eta-0)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((1) (let ((e-8 (vector-ref sc1 1))) (vector 1 (e-5 e-8)))) (else (let ((e-11 (vector-ref sc1 1))) (vector 0 e-11))))))))))))) (let ((act-16 (arg-2 ext-0))) (act-17 act-16))))) (let ((act-16 (arg-3 ext-0))) (act-17 act-16))))) -(define CoreC-45Core-C-42C-62 (lambda (arg-2 arg-3 ext-0) (let ((act-17 (let ((act-17 (lambda (eta-0) (lambda (eta-1) (PreludeC-45Interfaces-C-42C-62 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (let ((sc0 arg-143)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (u--func e-5)))))))))) (lambda (u--a) (lambda (arg-577) (vector 1 arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (let ((sc0 arg-578)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 arg-580)) (case (vector-ref sc1 0) ((1) (let ((e-8 (vector-ref sc1 1))) (vector 1 (e-5 e-8)))) (else (let ((e-11 (vector-ref sc1 1))) (vector 0 e-11)))))))))))))) eta-0 eta-1))))) (let ((act-16 (arg-2 ext-0))) (act-17 act-16))))) (let ((act-16 (arg-3 ext-0))) (act-17 act-16))))) -(define DataC-45IORef-newIORef (lambda (arg-2 arg-3) (let ((sc0 arg-2)) (let ((e-1 (car sc0))) (let ((sc1 e-1)) (let ((e-4 (vector-ref sc1 2))) ((((e-4 'erased) 'erased) (let ((sc2 arg-2)) (let ((e-6 (cdr sc2))) ((e-6 'erased) (lambda (eta-0) (box arg-3)))))) (lambda (u--m) (let ((sc2 arg-2)) (let ((e-7 (car sc2))) (let ((sc3 e-7)) (let ((e-10 (vector-ref sc3 1))) (let ((sc4 e-10)) (let ((e-12 (vector-ref sc4 2))) ((e-12 'erased) u--m))))))))))))))) -(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-case--caseC-32blockC-32inC-32wordsC-44helper-885 (lambda (arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (cons e-2 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-n--3600-857-u--helper arg-1 e-3))))))) -(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-case--wordsC-44helper-864 (lambda (arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (if (null? sc0) '() (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-case--caseC-32blockC-32inC-32wordsC-44helper-885 arg-1 arg-2 arg-3 (DataC-45List-break (lambda (eta-0) (PreludeC-45Types-isSpace eta-0)) arg-3)))))) -(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-n--3600-857-u--helper (lambda (arg-1 arg-2) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-case--wordsC-44helper-864 arg-1 arg-2 (DataC-45List-dropWhile (lambda (eta-0) (PreludeC-45Types-isSpace eta-0)) arg-2)))) -(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-words (lambda (arg-1) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String eta-0)) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (PreludeC-45Types-fastPack eta-0)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-n--3600-857-u--helper arg-1 (PreludeC-45Types-fastUnpack arg-1)))))) -(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow (lambda (ext-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-fillSep (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-words ext-0)))) -(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-case--fits-8157 (lambda (arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) 1) (else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) 0) ((1) (let ((e-3 (vector-ref sc1 2))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-fits (PreludeC-45Num-u--C-45_Neg_Int arg-2 1) (e-3)))) ((2) (let ((e-5 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 3))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-fits (PreludeC-45Num-u--C-45_Neg_Int arg-2 e-5) (e-7))))) ((3) 0) ((4) (let ((e-13 (vector-ref sc1 2))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-fits arg-2 e-13))) (else (let ((e-15 (vector-ref sc1 1))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-fits arg-2 e-15)))))))))) -(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-case--layoutWadlerLeijenC-44selectNicer-7907 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (cond ((equal? sc0 0) arg-5) (else (arg-4)))))) -(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-case--caseC-32blockC-32inC-32round-7824 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (PreludeC-45Cast-u--cast_Cast_Double_Int (PreludeC-45Types-ceiling arg-0))) (else (PreludeC-45Cast-u--cast_Cast_Double_Int (PreludeC-45Types-floor arg-0))))))) -(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-case--caseC-32blockC-32inC-32round-7800 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (PreludeC-45Cast-u--cast_Cast_Double_Int (PreludeC-45Types-floor arg-0))) (else (PreludeC-45Cast-u--cast_Cast_Double_Int (PreludeC-45Types-ceiling arg-0))))))) -(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-case--round-7788 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-case--caseC-32blockC-32inC-32round-7800 arg-0 (PreludeC-45EqOrd-u--C-60_Ord_Double (PreludeC-45Num-u--C-45_Neg_Double arg-0 (PreludeC-45Types-floor arg-0)) 0.5))) (else (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-case--caseC-32blockC-32inC-32round-7824 arg-0 (PreludeC-45EqOrd-u--C-60_Ord_Double (PreludeC-45Num-u--C-45_Neg_Double (PreludeC-45Types-ceiling arg-0) arg-0) 0.5))))))) -(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-case--pretty-5531 (lambda (arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (LibrariesC-45DataC-45StringC-45Extra-dropLast (+ 1 0) arg-1)) (else arg-1))))) -(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-case--caseC-32blockC-32inC-32unsafeTextWithoutNewLines-5169 (lambda (arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (vector 1 arg-2)) (else (vector 2 (PreludeC-45Cast-u--cast_Cast_Nat_Int (PreludeC-45TypesC-45String-length arg-3)) arg-3)))))) -(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-case--unsafeTextWithoutNewLines-5151 (lambda (arg-1 arg-2) (let ((sc0 arg-1)) (cond ((equal? sc0 "") (let ((sc1 arg-2)) (if (null? sc1) (vector 0 ) (let ((sc2 arg-2)) (let ((e-0 (car sc2))) (let ((e-1 (cdr sc2))) (let ((u--str (string-cons e-0 e-1))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-case--caseC-32blockC-32inC-32unsafeTextWithoutNewLines-5169 e-1 e-0 u--str (PreludeC-45EqOrd-u--C-61C-61_Eq_String e-1 "")))))))))(else (let ((sc0 arg-2)) (let ((e-0 (car sc0))) (let ((e-1 (cdr sc0))) (let ((u--str (string-cons e-0 e-1))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-case--caseC-32blockC-32inC-32unsafeTextWithoutNewLines-5169 e-1 e-0 u--str (PreludeC-45EqOrd-u--C-61C-61_Eq_String e-1 ""))))))))))) -(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-case--group-4780 (lambda (arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (vector 7 (lambda () e-1) (lambda () arg-1)))) ((1) arg-1) (else arg-1))))) -(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-case--group-4746 (lambda (arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (vector 7 (lambda () e-1) arg-2))) ((1) (vector 7 arg-1 arg-2)) (else (arg-2)))))) -(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-case--changesUponFlattening-4557 (lambda (arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((2) (vector 2 ))(else (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (vector 2 ))(else (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (let ((e-8 (vector-ref sc2 1))) (vector 0 (vector 5 e-5 e-8)))) (else (vector 0 (vector 5 e-5 arg-1))))))) (else (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (let ((e-11 (vector-ref sc2 1))) (vector 0 (vector 5 arg-2 e-11)))) (else (vector 1 )))))))))))))))))) -(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-case--caseC-32blockC-32inC-32spaces-4369 (lambda (arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 1 #\ )) (else (vector 2 arg-1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-textSpaces arg-1))))))) -(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-case--spaces-4349 (lambda (arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 0 )) (else (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-case--caseC-32blockC-32inC-32spaces-4369 arg-1 (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-1 (blodwen-toSignedInt 1 63)))))))) -(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-n--6714-7882-u--selectNicer (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-case--layoutWadlerLeijenC-44selectNicer-7907 arg-1 arg-2 arg-3 arg-7 arg-6 arg-5 arg-4 ((((arg-3 arg-4) arg-5) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-n--6714-7881-u--initialIndentation arg-1 arg-2 arg-3 (arg-7))) arg-6)))) -(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-n--6714-7881-u--initialIndentation (lambda (arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (vector 1 e-1))) ((4) (let ((e-5 (vector-ref sc0 2))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-n--6714-7881-u--initialIndentation arg-1 arg-2 arg-3 e-5))) ((5) (let ((e-7 (vector-ref sc0 1))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-n--6714-7881-u--initialIndentation arg-1 arg-2 arg-3 e-7)))(else (vector 0 )))))) -(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-n--6714-7883-u--best (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (vector 0 )) ((2) (let ((e-2 (vector-ref sc0 1))) (vector 5 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-n--6714-7883-u--best arg-1 arg-2 arg-3 arg-4 arg-5 e-2)))) (else (let ((e-4 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 2))) (let ((e-6 (vector-ref sc0 3))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-n--6714-7883-u--best arg-1 arg-2 arg-3 arg-4 arg-5 e-6)) ((1) (let ((e-9 (vector-ref sc1 1))) (vector 1 e-9 (lambda () (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-n--6714-7883-u--best arg-1 arg-2 arg-3 arg-4 (bs+ arg-5 1 63) e-6))))) ((2) (let ((e-11 (vector-ref sc1 1))) (let ((e-12 (vector-ref sc1 2))) (vector 2 e-11 e-12 (lambda () (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-n--6714-7883-u--best arg-1 arg-2 arg-3 arg-4 (bs+ arg-5 e-11 63) e-6)))))) ((3) (let ((u--x (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-n--6714-7883-u--best arg-1 arg-2 arg-3 e-4 e-4 e-6))) (let ((u--iC-39 (let ((sc2 u--x)) (case (vector-ref sc2 0) ((0) (blodwen-toSignedInt 0 63)) ((3) (blodwen-toSignedInt 0 63))(else e-4))))) (vector 3 u--iC-39 u--x)))) ((4) (let ((e-15 (vector-ref sc1 1))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-n--6714-7883-u--best arg-1 arg-2 arg-3 arg-4 arg-5 (vector 1 e-4 (e-15) e-6)))) ((5) (let ((e-18 (vector-ref sc1 1))) (let ((e-19 (vector-ref sc1 2))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-n--6714-7883-u--best arg-1 arg-2 arg-3 arg-4 arg-5 (vector 1 e-4 e-18 (vector 1 e-4 e-19 e-6)))))) ((6) (let ((e-21 (vector-ref sc1 1))) (let ((e-22 (vector-ref sc1 2))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-n--6714-7883-u--best arg-1 arg-2 arg-3 arg-4 arg-5 (vector 1 (bs+ e-4 e-21 63) e-22 e-6))))) ((7) (let ((e-24 (vector-ref sc1 1))) (let ((e-25 (vector-ref sc1 2))) (let ((u--xC-39 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-n--6714-7883-u--best arg-1 arg-2 arg-3 arg-4 arg-5 (vector 1 e-4 (e-24) e-6)))) (let ((u--yC-39 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-n--6714-7883-u--best arg-1 arg-2 arg-3 arg-4 arg-5 (vector 1 e-4 (e-25) e-6)))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-n--6714-7882-u--selectNicer arg-1 arg-2 arg-3 arg-4 arg-5 u--xC-39 (lambda () u--yC-39))))))) ((8) (let ((e-27 (vector-ref sc1 1))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-n--6714-7883-u--best arg-1 arg-2 arg-3 arg-4 arg-5 (vector 1 e-4 (e-27 arg-5) e-6)))) ((9) (let ((e-29 (vector-ref sc1 1))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-n--6714-7883-u--best arg-1 arg-2 arg-3 arg-4 arg-5 (vector 1 e-4 (e-29 arg-2) e-6)))) ((10) (let ((e-31 (vector-ref sc1 1))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-n--6714-7883-u--best arg-1 arg-2 arg-3 arg-4 arg-5 (vector 1 e-4 (e-31 e-4) e-6)))) (else (let ((e-33 (vector-ref sc1 1))) (let ((e-34 (vector-ref sc1 2))) (vector 4 e-33 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-n--6714-7883-u--best arg-1 arg-2 arg-3 arg-4 arg-5 (vector 1 e-4 e-34 (vector 2 e-6))))))))))))))))) -(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--show_Show_C-40DocC-32C-36annC-41 (lambda (arg-1) ((LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-renderShow (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-layoutPretty (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-defaultLayoutOptions) arg-1)) ""))) -(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String (lambda (arg-1) (let ((u--strC-39 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-case--pretty-5531 arg-1 (DataC-45String-isSuffixOf "\u000a" arg-1)))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unsafeTextWithoutNewLines eta-0)) (DataC-45List1-forget (LibrariesC-45DataC-45StringC-45Extra-lines u--strC-39))))))) -(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Nat (lambda (ext-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unsafeTextWithoutNewLines (PreludeC-45Show-u--show_Show_Nat ext-0)))) -(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Integer (lambda (ext-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unsafeTextWithoutNewLines (PreludeC-45Show-u--show_Show_Integer ext-0)))) -(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Int (lambda (ext-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unsafeTextWithoutNewLines (PreludeC-45Show-u--show_Show_Int ext-0)))) -(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Double (lambda (ext-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unsafeTextWithoutNewLines (PreludeC-45Show-u--show_Show_Double ext-0)))) -(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Char (lambda (arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 (integer->char 10)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line))(else (vector 1 arg-1)))))) -(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Bool (lambda (arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "True")) (else (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "False")))))) -(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_C-40MaybeC-32C-36aC-41 (lambda (arg-2 ext-0) (PreludeC-45Types-maybe (lambda () (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--neutral_Monoid_C-40DocC-32C-36annC-41)) (lambda () (lambda (clam-0) (let ((sc0 arg-2)) (let ((e-1 (car sc0))) ((e-1 'erased) clam-0))))) ext-0))) -(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_C-40ListC-32C-36aC-41 (lambda (arg-2 ext-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-align (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-list (PreludeC-45Types-u--map_Functor_List (lambda (clam-0) (let ((sc0 arg-2)) (let ((e-1 (car sc0))) ((e-1 'erased) clam-0)))) ext-0))))) -(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--neutral_Monoid_C-40DocC-32C-36annC-41 (lambda () (vector 0 ))) -(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--map_Functor_FlattenResult (lambda (arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (vector 0 (arg-2 e-1)))) ((1) (vector 1 )) (else (vector 2 )))))) -(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 (lambda (ext-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String ext-0))) -(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (lambda (ext-0 ext-1) (vector 5 ext-0 ext-1))) -(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (lambda (ext-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-concatWith (lambda (u--x) (lambda (u--y) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 u--x (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) u--y))) ext-0))) -(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vcat (lambda (ext-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-concatWith (lambda (u--x) (lambda (u--y) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 u--x (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-lineC-39)) u--y))) ext-0))) -(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unsafeTextWithoutNewLines (lambda (arg-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-case--unsafeTextWithoutNewLines-5151 arg-1 (DataC-45String-strM arg-1)))) -(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unAnnotateS (lambda (arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 0 )) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 e-2 (lambda () (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unAnnotateS (e-3))))))) ((2) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (vector 2 e-5 e-6 (lambda () (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unAnnotateS (e-7)))))))) ((3) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (vector 3 e-9 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unAnnotateS e-10))))) ((4) (let ((e-13 (vector-ref sc0 2))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unAnnotateS e-13))) (else (let ((e-15 (vector-ref sc0 1))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unAnnotateS e-15))))))) -(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-textSpaces (lambda (arg-0) (LibrariesC-45DataC-45StringC-45Extra-replicate (PreludeC-45Types-prim__integerToNat (PreludeC-45Cast-u--cast_Cast_Int_Integer arg-0)) #\ ))) -(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-surround (lambda (arg-1 arg-2 arg-3) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 arg-2 arg-1) arg-3))) -(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-spaces (lambda (arg-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-case--spaces-4349 arg-1 (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-1 (blodwen-toSignedInt 0 63))))) -(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-softline (lambda () (vector 7 (lambda () (vector 1 #\ )) (lambda () (vector 3 ))))) -(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-sep (lambda (ext-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-group (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep ext-0)))) -(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-round (lambda (arg-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-case--round-7788 arg-0 (PreludeC-45EqOrd-u--C-62_Ord_Double arg-0 (PreludeC-45Num-u--fromInteger_Num_Double 0))))) -(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-renderShow (lambda (arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) eta-0)) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (PreludeC-45Types-strCons e-2 ((LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-renderShow (e-3)) eta-0)))))) ((2) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (lambda (eta-0) (PreludeC-45TypesC-45String-C-43C-43 e-6 ((LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-renderShow (e-7)) eta-0)))))) ((3) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (lambda (eta-0) (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Types-strCons (integer->char 10) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-textSpaces e-9)) ((LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-renderShow e-10) eta-0)))))) ((4) (let ((e-13 (vector-ref sc0 2))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-renderShow e-13))) (else (let ((e-15 (vector-ref sc0 1))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-renderShow e-15))))))) -(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-remainingWidth (lambda (arg-0 arg-1 arg-2 arg-3) (let ((u--columnsLeftInLine (PreludeC-45Num-u--C-45_Neg_Int arg-0 arg-3))) (let ((u--ribbonWidth (PreludeC-45EqOrd-u--max_Ord_Int (blodwen-toSignedInt 0 63) (PreludeC-45EqOrd-u--min_Ord_Int arg-0 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-round (PreludeC-45Num-u--C-42_Num_Double (PreludeC-45Cast-u--cast_Cast_Int_Double arg-0) arg-1)))))) (let ((u--columnsLeftInRibbon (PreludeC-45Num-u--C-45_Neg_Int (bs+ arg-2 u--ribbonWidth 63) arg-3))) (PreludeC-45EqOrd-u--min_Ord_Int u--columnsLeftInLine u--columnsLeftInRibbon)))))) -(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-reAnnotateS (lambda (arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 0 )) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 e-2 (lambda () (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-reAnnotateS arg-2 (e-3))))))) ((2) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (vector 2 e-5 e-6 (lambda () (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-reAnnotateS arg-2 (e-7)))))))) ((3) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (vector 3 e-9 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-reAnnotateS arg-2 e-10))))) ((4) (let ((e-12 (vector-ref sc0 1))) (let ((e-13 (vector-ref sc0 2))) (vector 4 (arg-2 e-12) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-reAnnotateS arg-2 e-13))))) (else (let ((e-15 (vector-ref sc0 1))) (vector 5 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-reAnnotateS arg-2 e-15)))))))) -(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-reAnnotate (lambda (arg-2 ext-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-alterAnnotations (lambda (eta-0) (PreludeC-45Types-u--pure_Applicative_List (arg-2 eta-0))) ext-0))) -(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-punctuate (lambda (arg-1 arg-2) (let ((sc0 arg-2)) (if (null? sc0) '() (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-3)) (if (null? sc1) (cons e-2 '()) (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 e-2 arg-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-punctuate arg-1 e-3)))))))))) -(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-nesting (lambda (ext-0) (vector 10 ext-0))) -(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-nest (lambda (arg-1 arg-2) (let ((sc0 arg-1)) (cond ((equal? sc0 0) arg-2)(else (vector 6 arg-1 arg-2)))))) -(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-list (lambda (ext-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-group (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-encloseSep (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-flatAlt (lambda () (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "[ ")) (lambda () (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "["))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-flatAlt (lambda () (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String " ]")) (lambda () (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "]"))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String ", ") ext-0)))) -(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-lineC-39 (lambda () (vector 4 (lambda () (vector 3 )) (lambda () (vector 0 ))))) -(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line (lambda () (vector 4 (lambda () (vector 3 )) (lambda () (vector 1 #\ ))))) -(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-layoutWadlerLeijen (lambda (arg-1 arg-2 arg-3) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-n--6714-7883-u--best arg-3 arg-2 arg-1 0 0 (vector 1 0 arg-3 (vector 0 ))))) -(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-layoutUnbounded (lambda (ext-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-layoutWadlerLeijen (lambda (_-8131) (lambda (_-8133) (lambda (_-8135) (lambda (u--sdoc) 0)))) '() ext-0))) -(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-layoutPretty (lambda (arg-1 ext-0) (let ((sc0 arg-1)) (if (null? sc0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-layoutUnbounded ext-0) (let ((e-1 (car sc0))) (let ((e-2 (cdr sc0))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-layoutWadlerLeijen (lambda (u--lineIndent) (lambda (u--currentColumn) (lambda (_-8233) (lambda (u--sdoc) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-fits (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-remainingWidth e-1 e-2 u--lineIndent u--currentColumn) u--sdoc))))) arg-1 ext-0))))))) -(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-indent (lambda (arg-1 arg-2) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-hang arg-1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-spaces arg-1) arg-2)))) -(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-hsep (lambda (ext-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-concatWith (lambda (eta-0) (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 eta-0 eta-1))) ext-0))) -(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-hcat (lambda (ext-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-concatWith (lambda (eta-0) (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 eta-0 eta-1))) ext-0))) -(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-hardline (lambda () (vector 3 ))) -(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-hang (lambda (arg-1 arg-2) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-align (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-nest arg-1 arg-2)))) -(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-group (lambda (arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((7) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (vector 7 e-1 e-2)))) ((4) (let ((e-4 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 2))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-case--group-4746 e-5 e-4 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-changesUponFlattening (e-5))))))(else (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-case--group-4780 arg-1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-changesUponFlattening arg-1))))))) -(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-flatten (lambda (arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) ((1) (let ((e-2 (vector-ref sc0 1))) (vector 1 e-2))) ((2) (let ((e-4 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 2))) (vector 2 e-4 e-5)))) ((3) (vector 0 )) ((4) (let ((e-9 (vector-ref sc0 2))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-flatten (e-9)))) ((5) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (vector 5 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-flatten e-11) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-flatten e-12))))) ((6) (let ((e-14 (vector-ref sc0 1))) (let ((e-15 (vector-ref sc0 2))) (vector 6 e-14 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-flatten e-15))))) ((7) (let ((e-17 (vector-ref sc0 1))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-flatten (e-17)))) ((8) (let ((e-20 (vector-ref sc0 1))) (vector 8 (lambda (u--x) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-flatten (e-20 u--x)))))) ((9) (let ((e-22 (vector-ref sc0 1))) (vector 9 (lambda (u--x) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-flatten (e-22 u--x)))))) ((10) (let ((e-24 (vector-ref sc0 1))) (vector 10 (lambda (u--x) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-flatten (e-24 u--x)))))) (else (let ((e-26 (vector-ref sc0 1))) (let ((e-27 (vector-ref sc0 2))) (vector 11 e-26 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-flatten e-27))))))))) -(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-flatAlt (lambda (ext-0 ext-1) (vector 4 ext-0 ext-1))) -(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-fits (lambda (arg-1 arg-2) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-case--fits-8157 arg-2 arg-1 (PreludeC-45EqOrd-u--C-60_Ord_Int arg-1 (blodwen-toSignedInt 0 63))))) -(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-fillSep (lambda (ext-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-concatWith (lambda (u--x) (lambda (u--y) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 u--x (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-softline)) u--y))) ext-0))) -(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-encloseSep (lambda (arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (if (null? sc0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 arg-1 arg-2) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-3)) (if (null? sc1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 arg-1 e-2) arg-2) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-cat (DataC-45List-u--zipWith_Zippable_List (lambda (eta-0) (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 eta-0 eta-1))) (cons arg-1 (DataC-45List-replicate (PreludeC-45Types-minus (PreludeC-45TypesC-45List-length arg-4) (+ 1 0)) arg-3)) arg-4)) arg-2))))))))) -(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-enclose (lambda (arg-1 arg-2 arg-3) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 arg-1 arg-3) arg-2))) -(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-emptyDoc (lambda () (vector 0 ))) -(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-defaultPageWidth (lambda () (cons 80 1.0))) -(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-defaultLayoutOptions (lambda () (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-defaultPageWidth))) -(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-concatWith (lambda (arg-1 arg-2) (let ((sc0 arg-2)) (if (null? sc0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--neutral_Monoid_C-40DocC-32C-36annC-41) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (PreludeC-45Types-u--foldl_Foldable_List arg-1 e-2 e-3))))))) -(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-column (lambda (ext-0) (vector 8 ext-0))) -(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-changesUponFlattening (lambda (arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 1 )) ((1) (vector 1 )) ((2) (vector 1 )) ((3) (vector 2 )) ((4) (let ((e-9 (vector-ref sc0 2))) (vector 0 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-flatten (e-9))))) ((5) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-case--changesUponFlattening-4557 e-12 e-11 (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-changesUponFlattening e-11) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-changesUponFlattening e-12)))))) ((6) (let ((e-14 (vector-ref sc0 1))) (let ((e-15 (vector-ref sc0 2))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--map_Functor_FlattenResult (lambda (eta-0) (vector 6 e-14 eta-0)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-changesUponFlattening e-15))))) ((7) (let ((e-17 (vector-ref sc0 1))) (vector 0 (e-17)))) ((8) (let ((e-20 (vector-ref sc0 1))) (vector 0 (vector 8 (lambda (eta-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-flatten (e-20 eta-0))))))) ((9) (let ((e-22 (vector-ref sc0 1))) (vector 0 (vector 9 (lambda (eta-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-flatten (e-22 eta-0))))))) ((10) (let ((e-24 (vector-ref sc0 1))) (vector 0 (vector 10 (lambda (eta-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-flatten (e-24 eta-0))))))) (else (let ((e-26 (vector-ref sc0 1))) (let ((e-27 (vector-ref sc0 2))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--map_Functor_FlattenResult (lambda (eta-0) (vector 11 e-26 eta-0)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-changesUponFlattening e-27))))))))) -(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-cat (lambda (ext-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-group (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vcat ext-0)))) -(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-annotate (lambda (ext-0 ext-1) (vector 11 ext-0 ext-1))) -(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-alterAnnotations (lambda (arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 0 )) ((1) (let ((e-2 (vector-ref sc0 1))) (vector 1 e-2))) ((2) (let ((e-4 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 2))) (vector 2 e-4 e-5)))) ((3) (vector 3 )) ((4) (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (vector 4 (lambda () (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-alterAnnotations arg-2 (e-8))) (lambda () (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-alterAnnotations arg-2 (e-9))))))) ((5) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (vector 5 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-alterAnnotations arg-2 e-11) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-alterAnnotations arg-2 e-12))))) ((6) (let ((e-14 (vector-ref sc0 1))) (let ((e-15 (vector-ref sc0 2))) (vector 6 e-14 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-alterAnnotations arg-2 e-15))))) ((7) (let ((e-17 (vector-ref sc0 1))) (let ((e-18 (vector-ref sc0 2))) (vector 7 (lambda () (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-alterAnnotations arg-2 (e-17))) (lambda () (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-alterAnnotations arg-2 (e-18))))))) ((8) (let ((e-20 (vector-ref sc0 1))) (vector 8 (lambda (u--x) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-alterAnnotations arg-2 (e-20 u--x)))))) ((9) (let ((e-22 (vector-ref sc0 1))) (vector 9 (lambda (u--x) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-alterAnnotations arg-2 (e-22 u--x)))))) ((10) (let ((e-24 (vector-ref sc0 1))) (vector 10 (lambda (u--x) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-alterAnnotations arg-2 (e-24 u--x)))))) (else (let ((e-26 (vector-ref sc0 1))) (let ((e-27 (vector-ref sc0 2))) (PreludeC-45Types-u--foldr_Foldable_List (lambda (eta-0) (lambda (eta-1) (vector 11 eta-0 eta-1))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-alterAnnotations arg-2 e-27) (arg-2 e-26))))))))) -(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-align (lambda (arg-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-column (lambda (u--k) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-nesting (lambda (u--i) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-nest (PreludeC-45Num-u--C-45_Neg_Int u--k u--i) arg-1))))))) -(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (lambda (arg-1 arg-2) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 arg-1 (vector 1 #\ )) arg-2))) -(define LibrariesC-45DataC-45StringC-45Extra-case--linesC-39-4078 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (cons e-2 (let ((sc1 e-3)) (if (null? sc1) '() (let ((e-4 (cdr sc1))) (DataC-45List1-forget (LibrariesC-45DataC-45StringC-45Extra-linesC-39 e-4))))))))))) -(define LibrariesC-45DataC-45StringC-45Extra-unlinesC-39 (lambda (arg-0) (let ((sc0 arg-0)) (if (null? sc0) '() (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-3)) (if (null? sc1) e-2 (PreludeC-45TypesC-45List-C-43C-43 e-2 (cons (integer->char 10) (LibrariesC-45DataC-45StringC-45Extra-unlinesC-39 e-3))))))))))) -(define LibrariesC-45DataC-45StringC-45Extra-unlines (lambda (ext-0) (PreludeC-45Types-fastPack (LibrariesC-45DataC-45StringC-45Extra-unlinesC-39 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (PreludeC-45Types-fastUnpack eta-0)) ext-0))))) -(define LibrariesC-45DataC-45StringC-45Extra-strSnoc (lambda (arg-0 arg-1) (PreludeC-45TypesC-45String-C-43C-43 arg-0 (DataC-45String-singleton arg-1)))) -(define LibrariesC-45DataC-45StringC-45Extra-replicate (lambda (arg-0 arg-1) (PreludeC-45Types-fastPack (DataC-45List-replicate arg-0 arg-1)))) -(define LibrariesC-45DataC-45StringC-45Extra-linesC-39 (lambda (arg-0) (let ((sc0 arg-0)) (if (null? sc0) (DataC-45List1-singleton '()) (LibrariesC-45DataC-45StringC-45Extra-case--linesC-39-4078 arg-0 (DataC-45List-break (lambda (eta-0) (PreludeC-45Types-isNL eta-0)) arg-0)))))) -(define LibrariesC-45DataC-45StringC-45Extra-lines (lambda (arg-0) (DataC-45List1-u--map_Functor_List1 (lambda (eta-0) (PreludeC-45Types-fastPack eta-0)) (LibrariesC-45DataC-45StringC-45Extra-linesC-39 (PreludeC-45Types-fastUnpack arg-0))))) -(define LibrariesC-45DataC-45StringC-45Extra-join (lambda (arg-1 arg-2 arg-3) (LibrariesC-45DataC-45StringC-45Extra-drop (PreludeC-45TypesC-45String-length arg-1) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 2))) (((((e-2 'erased) 'erased) (lambda (u--acc) (lambda (u--x) (PreludeC-45TypesC-45String-C-43C-43 u--acc (PreludeC-45TypesC-45String-C-43C-43 arg-1 u--x))))) "") arg-3)))))) -(define LibrariesC-45DataC-45StringC-45Extra-dropLast (lambda (arg-0 arg-1) (PreludeC-45Types-reverse (LibrariesC-45DataC-45StringC-45Extra-drop arg-0 (PreludeC-45Types-reverse arg-1))))) -(define LibrariesC-45DataC-45StringC-45Extra-drop (lambda (arg-0 arg-1) (PreludeC-45Types-substr arg-0 (PreludeC-45TypesC-45String-length arg-1) arg-1))) -(define LibrariesC-45DataC-45StringC-45Extra-C-43C-62 (lambda (ext-0 ext-1) (LibrariesC-45DataC-45StringC-45Extra-strSnoc ext-0 ext-1))) -(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-squotes (lambda (ext-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-enclose (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-squote) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-squote) ext-0))) -(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-squote (lambda () (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Char #\'))) -(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-space (lambda () (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Char #\ ))) -(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-slash (lambda () (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Char #\/))) -(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-semi (lambda () (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Char #\;))) -(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-rparen (lambda () (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Char #\)))) -(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-rbracket (lambda () (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Char #\]))) -(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-rbrace (lambda () (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Char #\}))) -(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-rangle (lambda () (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Char #\>))) -(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-pipe (lambda () (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Char #\|))) -(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-parenthesise (lambda (arg-1 ext-0) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-parens ext-0)) (else ext-0))))) -(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-parens (lambda (ext-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-enclose (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-lparen) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-rparen) ext-0))) -(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-lparen (lambda () (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Char #\())) -(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-lbracket (lambda () (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Char #\[))) -(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-lbrace (lambda () (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Char #\{))) -(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-langle (lambda () (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Char #\<))) -(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-equals (lambda () (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Char #\=))) -(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-dquotes (lambda (ext-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-enclose (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-dquote) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-dquote) ext-0))) -(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-dquote (lambda () (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Char #\"))) -(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-dot (lambda () (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Char #\.))) -(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-comma (lambda () (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Char #\,))) -(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon (lambda () (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Char #\:))) -(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-brackets (lambda (ext-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-enclose (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-lbracket) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-rbracket) ext-0))) -(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-braces (lambda (ext-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-enclose (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-lbrace) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-rbrace) ext-0))) -(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-backslash (lambda () (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Char #\\))) -(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-angles (lambda (ext-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-enclose (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-langle) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-rangle) ext-0))) -(define LibrariesC-45DataC-45IMaybe-fromJust (lambda (arg-1) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) e-1)))) -(define DataC-45Vect-n--4450-1362-u--go (lambda (arg-2 arg-5 arg-6) (let ((sc0 arg-6)) (if (null? sc0) arg-5 (let ((e-3 (car sc0))) (let ((e-4 (cdr sc0))) (DataC-45Vect-n--4450-1362-u--go arg-2 (cons e-3 arg-5) e-4))))))) -(define DataC-45Vect-u--show_Show_C-40C-40VectC-32C-36lenC-41C-32C-36elemC-41 (lambda (arg-2 ext-0) (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 arg-2 (DataC-45List-toList (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (DataC-45Vect-u--foldr_Foldable_C-40VectC-32C-36nC-41 u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (DataC-45Vect-u--foldl_Foldable_C-40VectC-32C-36nC-41 u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (DataC-45Vect-u--null_Foldable_C-40VectC-32C-36nC-41 arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (DataC-45Vect-u--foldlM_Foldable_C-40VectC-32C-36nC-41 i_con-0 u--funcM u--init u--input))))))))) ext-0)))) -(define DataC-45Vect-u--null_Foldable_C-40VectC-32C-36nC-41 (lambda (arg-2) (let ((sc0 arg-2)) (if (null? sc0) (lambda () 0) (lambda () 1))))) -(define DataC-45Vect-u--map_Functor_C-40VectC-32C-36nC-41 (lambda (arg-3 arg-4) (let ((sc0 arg-4)) (if (null? sc0) '() (let ((e-3 (car sc0))) (let ((e-4 (cdr sc0))) (cons (arg-3 e-3) (DataC-45Vect-u--map_Functor_C-40VectC-32C-36nC-41 arg-3 e-4)))))))) -(define DataC-45Vect-u--foldr_Foldable_C-40VectC-32C-36nC-41 (lambda (arg-3 arg-4 arg-5) (DataC-45Vect-foldrImpl arg-3 arg-4 (lambda (eta-0) eta-0) arg-5))) -(define DataC-45Vect-u--foldl_Foldable_C-40VectC-32C-36nC-41 (lambda (arg-3 arg-4 arg-5) ((DataC-45Vect-u--foldr_Foldable_C-40VectC-32C-36nC-41 (lambda (eta-0) (lambda (eta-1) (PreludeC-45Basics-flip (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (eta-2 (eta-3 eta-4))))) (lambda (eta-2) (PreludeC-45Basics-flip arg-3 eta-0 eta-2)) eta-1))) (lambda (eta-0) eta-0) arg-5) arg-4))) -(define DataC-45Vect-u--foldlM_Foldable_C-40VectC-32C-36nC-41 (lambda (arg-4 arg-5 arg-6 ext-0) (DataC-45Vect-u--foldl_Foldable_C-40VectC-32C-36nC-41 (lambda (u--ma) (lambda (u--b) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) u--ma) (lambda (eta-0) (PreludeC-45Basics-flip arg-5 u--b eta-0))))))) (let ((sc0 arg-4)) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 2))) ((e-5 'erased) arg-6))))) ext-0))) -(define DataC-45Vect-toVect (lambda (arg-1 arg-2) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (let ((sc1 arg-2)) (if (null? sc1) (vector 1 '()) (vector 0 ))))(else (let ((e-0 (- arg-1 1))) (let ((sc0 arg-2)) (if (null? sc0) (vector 0 ) (let ((e-3 (car sc0))) (let ((e-4 (cdr sc0))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (DataC-45Vect-toVect e-0 e-4) (lambda (u--xsC-39) (PreludeC-45Types-u--pure_Applicative_Maybe (cons e-3 u--xsC-39)))))))))))))) -(define DataC-45Vect-tail (lambda (arg-2) (let ((sc0 arg-2)) (let ((e-3 (cdr sc0))) e-3)))) -(define DataC-45Vect-reverse (lambda (arg-2) (DataC-45Vect-n--4450-1362-u--go arg-2 '() arg-2))) -(define DataC-45Vect-replicate (lambda (arg-1 arg-2) (let ((sc0 arg-1)) (cond ((equal? sc0 0) '())(else (let ((e-0 (- arg-1 1))) (cons arg-2 (DataC-45Vect-replicate e-0 arg-2)))))))) -(define DataC-45Vect-replaceAt (lambda (arg-2 arg-3 arg-4) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-4)) (let ((e-6 (cdr sc1))) (cons arg-3 e-6)))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 arg-4)) (let ((e-9 (car sc1))) (let ((e-10 (cdr sc1))) (cons e-9 (DataC-45Vect-replaceAt e-2 arg-3 e-10))))))))))) -(define DataC-45Vect-foldrImpl (lambda (arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (if (null? sc0) (arg-5 arg-4) (let ((e-3 (car sc0))) (let ((e-4 (cdr sc0))) (DataC-45Vect-foldrImpl arg-3 arg-4 (lambda (eta-0) (arg-5 ((arg-3 e-3) eta-0))) e-4))))))) -(define DataC-45Vect-C-43C-43 (lambda (arg-3 arg-4) (let ((sc0 arg-3)) (if (null? sc0) arg-4 (let ((e-3 (car sc0))) (let ((e-4 (cdr sc0))) (cons e-3 (DataC-45Vect-C-43C-43 e-4 arg-4)))))))) -(define DecidableC-45Equality-with--withC-32blockC-32inC-32decEq-1286 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (vector 0 (vector 0 ))))) (else (let ((e-3 (vector-ref sc0 1))) (vector 1 (lambda (eta-0) (e-3 (Builtin-snd (DataC-45List-consInjective eta-0))))))))))) -(define DecidableC-45Equality-with--decEq-1230 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (vector 1 (lambda (eta-0) (e-1 (Builtin-fst (DataC-45List-consInjective eta-0))))))) (else (let ((e-3 (vector-ref sc0 1))) (let ((sc1 e-3)) (DecidableC-45Equality-with--withC-32blockC-32inC-32decEq-1286 'erased arg-1 arg-6 arg-5 (DecidableC-45Equality-u--decEq_DecEq_C-40ListC-32C-36aC-41 arg-1 arg-5 arg-6) arg-2)))))))) -(define DecidableC-45Equality-with--withC-32blockC-32inC-32decEq-1088 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (vector 0 (vector 0 ))))) (else (let ((e-3 (vector-ref sc0 1))) (vector 1 (lambda (eta-0) (e-3 (Builtin-snd (DecidableC-45Equality-pairInjective eta-0))))))))))) -(define DecidableC-45Equality-with--decEq-1019 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (vector 1 (lambda (eta-0) (e-1 (Builtin-fst (DecidableC-45Equality-pairInjective eta-0))))))) (else (let ((e-3 (vector-ref sc0 1))) (let ((sc1 e-3)) (DecidableC-45Equality-with--withC-32blockC-32inC-32decEq-1088 'erased 'erased arg-2 arg-6 arg-7 (((Builtin-snd arg-2) arg-6) arg-7) arg-3)))))))) -(define DecidableC-45Equality-case--decEq-1712 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 0 (DecidableC-45Equality-n--4487-1676-u--primitiveEq arg-0 arg-1))) (else (vector 1 (lambda (eta-0) (DecidableC-45Equality-n--4487-1677-u--primitiveNotEq arg-0 arg-1 eta-0)))))))) -(define DecidableC-45Equality-case--decEq-1648 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 0 (DecidableC-45Equality-n--4417-1612-u--primitiveEq arg-0 arg-1))) (else (vector 1 (lambda (eta-0) (DecidableC-45Equality-n--4417-1613-u--primitiveNotEq arg-0 arg-1 eta-0)))))))) -(define DecidableC-45Equality-case--decEq-1584 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 0 (DecidableC-45Equality-n--4347-1548-u--primitiveEq arg-0 arg-1))) (else (vector 1 (lambda (eta-0) (DecidableC-45Equality-n--4347-1549-u--primitiveNotEq arg-0 arg-1 eta-0)))))))) -(define DecidableC-45Equality-case--decEq-1520 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 0 (DecidableC-45Equality-n--4277-1484-u--primitiveEq arg-0 arg-1))) (else (vector 1 (lambda (eta-0) (DecidableC-45Equality-n--4277-1485-u--primitiveNotEq arg-0 arg-1 eta-0)))))))) -(define DecidableC-45Equality-n--4487-1677-u--primitiveNotEq (lambda (arg-0 arg-1 arg-5) (Builtin-believe_me (vector 0 )))) -(define DecidableC-45Equality-n--4417-1613-u--primitiveNotEq (lambda (arg-0 arg-1 arg-5) (Builtin-believe_me (vector 0 )))) -(define DecidableC-45Equality-n--4347-1549-u--primitiveNotEq (lambda (arg-0 arg-1 arg-5) (Builtin-believe_me (vector 0 )))) -(define DecidableC-45Equality-n--4277-1485-u--primitiveNotEq (lambda (arg-0 arg-1 arg-5) (Builtin-believe_me (vector 0 )))) -(define DecidableC-45Equality-n--4487-1676-u--primitiveEq (lambda (arg-0 arg-1) (Builtin-believe_me (vector 0 )))) -(define DecidableC-45Equality-n--4417-1612-u--primitiveEq (lambda (arg-0 arg-1) (Builtin-believe_me (vector 0 )))) -(define DecidableC-45Equality-n--4347-1548-u--primitiveEq (lambda (arg-0 arg-1) (Builtin-believe_me (vector 0 )))) -(define DecidableC-45Equality-n--4277-1484-u--primitiveEq (lambda (arg-0 arg-1) (Builtin-believe_me (vector 0 )))) -(define DecidableC-45Equality-u--decEq_DecEq_String (lambda (arg-0 arg-1) (DecidableC-45Equality-case--decEq-1712 arg-1 arg-0 (PreludeC-45EqOrd-u--C-61C-61_Eq_String arg-0 arg-1)))) -(define DecidableC-45Equality-u--decEq_DecEq_Integer (lambda (arg-0 arg-1) (DecidableC-45Equality-case--decEq-1648 arg-1 arg-0 (PreludeC-45EqOrd-u--C-61C-61_Eq_Integer arg-0 arg-1)))) -(define DecidableC-45Equality-u--decEq_DecEq_Int (lambda (arg-0 arg-1) (DecidableC-45Equality-case--decEq-1520 arg-1 arg-0 (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-0 arg-1)))) -(define DecidableC-45Equality-u--decEq_DecEq_Char (lambda (arg-0 arg-1) (DecidableC-45Equality-case--decEq-1584 arg-1 arg-0 (PreludeC-45EqOrd-u--C-61C-61_Eq_Char arg-0 arg-1)))) -(define DecidableC-45Equality-u--decEq_DecEq_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (lambda (arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 arg-4)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (DecidableC-45Equality-with--decEq-1019 'erased 'erased arg-2 e-2 e-6 (((Builtin-fst arg-2) e-2) e-6) e-3 e-7))))))))) -(define DecidableC-45Equality-u--decEq_DecEq_C-40ListC-32C-36aC-41 (lambda (arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (if (null? sc0) (let ((sc1 arg-3)) (if (null? sc1) (vector 0 (vector 0 )) (vector 1 (lambda (eta-0) (PreludeC-45Uninhabited-absurd (lambda (eta-1) (DataC-45List-u--uninhabited_Uninhabited_C-40C-124C-40C-40C-61C-61C-61C-32NilC-41C-32C-40C-40PreludeC-46C-58C-58C-32C-36xC-41C-32C-36xsC-41C-41C-44C-40C-40C-126C-61C-126C-32NilC-41C-32C-40C-40PreludeC-46C-58C-58C-32C-36xC-41C-32C-36xsC-41C-41C-124C-41 eta-1)) eta-0))))) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 arg-3)) (if (null? sc1) (vector 1 (lambda (eta-0) (PreludeC-45Uninhabited-absurd (lambda (eta-1) (DataC-45List-u--uninhabited_Uninhabited_C-40C-124C-40C-40C-61C-61C-61C-32C-40C-40PreludeC-46C-58C-58C-32C-36xC-41C-32C-36xsC-41C-41C-32NilC-41C-44C-40C-40C-126C-61C-126C-32C-40C-40PreludeC-46C-58C-58C-32C-36xC-41C-32C-36xsC-41C-41C-32NilC-41C-124C-41 eta-1)) eta-0))) (let ((e-10 (car sc1))) (let ((e-11 (cdr sc1))) (DecidableC-45Equality-with--decEq-1230 'erased arg-1 e-2 e-10 ((arg-1 e-2) e-10) e-3 e-11))))))))))) -(define DecidableC-45Equality-pairInjective (lambda (arg-6) (let ((sc0 arg-6)) (cons (vector 0 ) (vector 0 ))))) -(define DataC-45Either-rights (lambda (arg-2) (let ((sc0 arg-2)) (if (null? sc0) '() (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (DataC-45Either-rights e-3)) (else (let ((e-9 (vector-ref sc1 1))) (cons e-9 (DataC-45Either-rights e-3)))))))))))) -(define DataC-45Either-maybeToEither (lambda (arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (vector 1 e-1))) (else (vector 0 (arg-2))))))) -(define DataC-45Either-lefts (lambda (arg-2) (let ((sc0 arg-2)) (if (null? sc0) '() (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (cons e-6 (DataC-45Either-lefts e-3)))) (else (DataC-45Either-lefts e-3)))))))))) -(define DataC-45Either-getRight (lambda (arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (vector 1 e-2)))(else (vector 0 )))))) -(define DataC-45Either-compressRights (lambda (arg-2 arg-3) (let ((sc0 arg-3)) (if (null? sc0) (cons (vector 1 (DataC-45List1-reverse arg-2)) (DataC-45Either-compress arg-3)) (let ((e-1 (car sc0))) (let ((e-2 (cdr sc0))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (DataC-45Either-compressRights (DataC-45List1-cons e-5 arg-2) e-2)))(else (cons (vector 1 (DataC-45List1-reverse arg-2)) (DataC-45Either-compress arg-3))))))))))) -(define DataC-45Either-compressLefts (lambda (arg-2 arg-3) (let ((sc0 arg-3)) (if (null? sc0) (cons (vector 0 (DataC-45List1-reverse arg-2)) (DataC-45Either-compress arg-3)) (let ((e-1 (car sc0))) (let ((e-2 (cdr sc0))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (DataC-45Either-compressLefts (DataC-45List1-cons e-5 arg-2) e-2)))(else (cons (vector 0 (DataC-45List1-reverse arg-2)) (DataC-45Either-compress arg-3))))))))))) -(define DataC-45Either-compress (lambda (arg-2) (let ((sc0 arg-2)) (if (null? sc0) '() (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (DataC-45Either-compressLefts (DataC-45List1-singleton e-6) e-3))) (else (let ((e-9 (vector-ref sc1 1))) (DataC-45Either-compressRights (DataC-45List1-singleton e-9) e-3))))))))))) -(define CoreC-45TT-case--show-10590 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (CoreC-45TT-n--15433-10128-u--showApp arg-0 arg-1 arg-0 e-2 e-3)))))) -(define CoreC-45TT-case--addRefs-9923 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (cond ((equal? sc0 0) (CoreC-45TT-addRefs 0 arg-9 (LibrariesC-45DataC-45NameMap-insert arg-4 0 arg-8) arg-7)) (else (CoreC-45TT-addRefs arg-10 arg-9 (CoreC-45TT-addRefs arg-10 arg-9 (LibrariesC-45DataC-45NameMap-insert arg-4 arg-10 arg-8) arg-6) arg-7)))))) -(define CoreC-45TT-case--substName-9666 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (vector 1 arg-3 arg-2 arg-1)) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) arg-4))))))) -(define CoreC-45TTC-45SubstEnv-case--find-9338 (lambda (arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (let ((sc1 arg-8)) (case (vector-ref sc1 0) ((0) (CoreC-45TTC-45SubstEnv-findDrop arg-7 arg-6 arg-4 arg-3))(else (let ((sc1 arg-8)) (let ((e-3 (vector-ref sc1 1))) (let ((sc2 arg-4)) (cond ((equal? sc2 0) (vector 0 arg-7 arg-6 0))(else (let ((e-4 (- arg-4 1))) (CoreC-45TT-u--weaken_Weaken_Term (CoreC-45TTC-45SubstEnv-find arg-7 arg-6 e-3 e-4 arg-3))))))))))))(else (let ((sc0 arg-8)) (let ((e-3 (vector-ref sc0 1))) (let ((sc1 arg-4)) (cond ((equal? sc1 0) (vector 0 arg-7 arg-6 0))(else (let ((e-4 (- arg-4 1))) (CoreC-45TT-u--weaken_Weaken_Term (CoreC-45TTC-45SubstEnv-find arg-7 arg-6 e-3 e-4 arg-3))))))))))))) -(define CoreC-45TT-case--resolveNames-9174 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (vector 0 arg-1 (vector 1 1) e-1)))(else (vector 1 arg-1 (vector 0 ) arg-0)))))) -(define CoreC-45TT-case--isNVar-9103 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (PreludeC-45Types-u--map_Functor_Maybe (lambda (eta-0) (CoreC-45TTC-45NVar-later eta-0)) (CoreC-45TT-isNVar arg-2 arg-1))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (PreludeC-45Types-u--pure_Applicative_Maybe 0)))))))) -(define CoreC-45TT-case--mkLocals-8827 (lambda (arg-4 arg-6 arg-7 arg-8 arg-9 arg-10) (vector 0 arg-7 arg-6 arg-10))) -(define CoreC-45TT-case--caseC-32blockC-32inC-32resolveRef-8705 (lambda (arg-2 arg-3 arg-4 arg-5 arg-6 arg-8 arg-10 arg-14) (vector 1 (vector 0 arg-6 (vector 0 ) arg-14)))) -(define CoreC-45TT-case--resolveRef-8648 (lambda (arg-2 arg-3 arg-4 arg-5 arg-6 arg-8 arg-10 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (CoreC-45TT-case--caseC-32blockC-32inC-32resolveRef-8705 arg-2 arg-3 arg-4 arg-5 arg-6 arg-8 arg-10 (CoreC-45TT-weakenNVar (CoreC-45TTC-45SizeOf-C-43 arg-10 arg-8) 0))) (else (CoreC-45TT-resolveRef arg-10 (CoreC-45TTC-45SizeOf-sucR arg-8) arg-2 arg-6 arg-5)))))) -(define CoreC-45TT-case--embedSub-8421 (lambda (arg-3 arg-5 arg-6 arg-7 arg-8) (vector 0 arg-6 arg-5 arg-8))) -(define CoreC-45TT-case--varEmbedSub-8370 (lambda (arg-3 arg-5 arg-7 arg-10) (+ 1 arg-10))) -(define CoreC-45TT-case--varEmbedSub-8296 (lambda (arg-2 arg-5 arg-8) (+ 1 arg-8))) -(define CoreC-45TT-case--shrinkTerm-8003 (lambda (arg-3 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (vector 1 (vector 0 arg-6 arg-5 e-2)))))))) -(define CoreC-45TT-case--weakenNs-7187 (lambda (arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) arg-2)(else (let ((sc1 arg-4)) (let ((e-3 (vector-ref sc1 1))) (CoreC-45TT-u--weaken_Weaken_Var (CoreC-45TT-u--weakenNs_Weaken_Var e-3 arg-2))))))))(else (let ((sc0 arg-4)) (let ((e-3 (vector-ref sc0 1))) (CoreC-45TT-u--weaken_Weaken_Var (CoreC-45TT-u--weakenNs_Weaken_Var e-3 arg-2))))))))) -(define CoreC-45TT-case--insertNames-6884 (lambda (arg-4 arg-6 arg-7 arg-8 arg-9 arg-10) (vector 0 arg-7 arg-6 arg-10))) -(define CoreC-45TT-case--insertNVarNames-6680 (lambda (arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((0) (CoreC-45TT-weakenNVar arg-5 arg-4))(else (let ((sc1 arg-7)) (let ((e-3 (vector-ref sc1 1))) (let ((sc2 arg-4)) (cond ((equal? sc2 0) 0)(else (let ((e-4 (- arg-4 1))) (CoreC-45TTC-45NVar-later (CoreC-45TT-insertNVarNames e-3 arg-5 e-4))))))))))))(else (let ((sc0 arg-7)) (let ((e-3 (vector-ref sc0 1))) (let ((sc1 arg-4)) (cond ((equal? sc1 0) 0)(else (let ((e-4 (- arg-4 1))) (CoreC-45TTC-45NVar-later (CoreC-45TT-insertNVarNames e-3 arg-5 e-4))))))))))))) -(define CoreC-45TT-case--weakenVar-6634 (lambda (arg-3 arg-5 arg-6) arg-6)) -(define CoreC-45TT-case--insertNVar-6454 (lambda (arg-4 arg-5 arg-6) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((0) (CoreC-45TTC-45NVar-later arg-4))(else (let ((sc1 arg-6)) (let ((e-3 (vector-ref sc1 1))) (let ((sc2 arg-4)) (cond ((equal? sc2 0) 0)(else (let ((e-4 (- arg-4 1))) (CoreC-45TTC-45NVar-later (CoreC-45TT-insertNVar e-3 e-4))))))))))))(else (let ((sc0 arg-6)) (let ((e-3 (vector-ref sc0 1))) (let ((sc1 arg-4)) (cond ((equal? sc1 0) 0)(else (let ((e-4 (- arg-4 1))) (CoreC-45TTC-45NVar-later (CoreC-45TT-insertNVar e-3 e-4))))))))))))) -(define CoreC-45TT-case--weakenNVar-6402 (lambda (arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((0) arg-3)(else (let ((sc1 arg-5)) (let ((e-3 (vector-ref sc1 1))) (CoreC-45TTC-45NVar-later (CoreC-45TT-weakenNVar e-3 arg-3))))))))(else (let ((sc0 arg-5)) (let ((e-3 (vector-ref sc0 1))) (CoreC-45TTC-45NVar-later (CoreC-45TT-weakenNVar e-3 arg-3))))))))) -(define CoreC-45TT-case--constantEq-1235 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (vector 1 (vector 0 ))))) (else (vector 0 )))))) -(define CoreC-45TT-case--constantEq-1203 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (vector 1 (vector 0 ))))) (else (vector 0 )))))) -(define CoreC-45TT-case--constantEq-1171 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (vector 1 (vector 0 ))))) (else (vector 0 )))))) -(define CoreC-45TT-case--constantEq-1139 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (vector 1 (vector 0 ))))) (else (vector 0 )))))) -(define CoreC-45TT-case--constantEq-1107 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (vector 1 (vector 0 ))))) (else (vector 0 )))))) -(define CoreC-45TT-case--constantEq-1075 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (vector 1 (vector 0 ))))) (else (vector 0 )))))) -(define CoreC-45TT-case--constantEq-1043 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (vector 1 (vector 0 ))))) (else (vector 0 )))))) -(define CoreC-45TT-case--constantEq-1011 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (vector 1 (vector 0 ))))) (else (vector 0 )))))) -(define CoreC-45TT-n--11071-6261-u--showTot (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((0) "total")(else (CoreC-45TT-u--show_Show_Covering arg-2)))))(else (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (CoreC-45TT-u--show_Show_Terminating arg-1))(else (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_Covering arg-2) (PreludeC-45TypesC-45String-C-43C-43 "; " (CoreC-45TT-u--show_Show_Terminating arg-1))))))))))) -(define CoreC-45TT-n--15433-10128-u--showApp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-5 (vector-ref sc0 3))) (let ((sc1 arg-4)) (if (null? sc1) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name (CoreC-45TT-nameAt arg-2 e-5)) (PreludeC-45TypesC-45String-C-43C-43 "[" (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Nat e-5) "]"))) (let ((sc2 arg-4)) (if (null? sc2) "???" (PreludeC-45TypesC-45String-C-43C-43 "(" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 arg-3) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-showSep " " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 eta-0)) arg-4)) ")")))))))))) ((1) (let ((e-10 (vector-ref sc0 3))) (let ((sc1 arg-4)) (if (null? sc1) (CoreC-45Name-u--show_Show_Name e-10) (let ((sc2 arg-4)) (if (null? sc2) "???" (PreludeC-45TypesC-45String-C-43C-43 "(" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 arg-3) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-showSep " " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 eta-0)) arg-4)) ")")))))))))) ((2) (let ((e-13 (vector-ref sc0 2))) (let ((e-15 (vector-ref sc0 4))) (let ((sc1 arg-4)) (if (null? sc1) (PreludeC-45TypesC-45String-C-43C-43 "?" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-13) (PreludeC-45TypesC-45String-C-43C-43 "_" (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-2 u--d u--x)))) e-15)))) (let ((sc2 arg-4)) (if (null? sc2) "???" (PreludeC-45TypesC-45String-C-43C-43 "(" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 arg-3) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-showSep " " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 eta-0)) arg-4)) ")"))))))))))) ((3) (let ((e-18 (vector-ref sc0 2))) (let ((e-19 (vector-ref sc0 3))) (let ((e-20 (vector-ref sc0 4))) (let ((sc1 e-19)) (case (vector-ref sc1 0) ((0) (let ((e-56 (vector-ref sc1 2))) (let ((e-57 (vector-ref sc1 3))) (let ((e-58 (vector-ref sc1 4))) (let ((sc2 arg-4)) (if (null? sc2) (PreludeC-45TypesC-45String-C-43C-43 "\\" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-withPiInfo (cons (lambda (u--x) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-2 u--d u--x)))) e-57 (PreludeC-45TypesC-45String-C-43C-43 (Algebra-showCount e-56) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-18) (PreludeC-45TypesC-45String-C-43C-43 " : " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 e-58))))) (PreludeC-45TypesC-45String-C-43C-43 " => " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 (cons e-18 arg-2) e-20)))) (let ((sc3 arg-4)) (if (null? sc3) "???" (PreludeC-45TypesC-45String-C-43C-43 "(" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 arg-3) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-showSep " " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 eta-0)) arg-4)) ")")))))))))))) ((1) (let ((e-61 (vector-ref sc1 2))) (let ((e-62 (vector-ref sc1 3))) (let ((e-63 (vector-ref sc1 4))) (let ((sc2 arg-4)) (if (null? sc2) (PreludeC-45TypesC-45String-C-43C-43 "let " (PreludeC-45TypesC-45String-C-43C-43 (Algebra-showCount e-61) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-18) (PreludeC-45TypesC-45String-C-43C-43 " : " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 e-63) (PreludeC-45TypesC-45String-C-43C-43 " = " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 e-62) (PreludeC-45TypesC-45String-C-43C-43 " in " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 (cons e-18 arg-2) e-20))))))))) (let ((sc3 arg-4)) (if (null? sc3) "???" (PreludeC-45TypesC-45String-C-43C-43 "(" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 arg-3) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-showSep " " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 eta-0)) arg-4)) ")")))))))))))) ((2) (let ((e-66 (vector-ref sc1 2))) (let ((e-67 (vector-ref sc1 3))) (let ((e-68 (vector-ref sc1 4))) (let ((sc2 arg-4)) (if (null? sc2) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-withPiInfo (cons (lambda (u--x) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-2 u--d u--x)))) e-67 (PreludeC-45TypesC-45String-C-43C-43 (Algebra-showCount e-66) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-18) (PreludeC-45TypesC-45String-C-43C-43 " : " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 e-68))))) (PreludeC-45TypesC-45String-C-43C-43 " -> " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 (cons e-18 arg-2) e-20) ")"))) (let ((sc3 arg-4)) (if (null? sc3) "???" (PreludeC-45TypesC-45String-C-43C-43 "(" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 arg-3) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-showSep " " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 eta-0)) arg-4)) ")")))))))))))) ((3) (let ((e-71 (vector-ref sc1 2))) (let ((e-72 (vector-ref sc1 3))) (let ((e-73 (vector-ref sc1 4))) (let ((sc2 arg-4)) (if (null? sc2) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-withPiInfo (cons (lambda (u--x) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-2 u--d u--x)))) e-72 (PreludeC-45TypesC-45String-C-43C-43 "pat " (PreludeC-45TypesC-45String-C-43C-43 (Algebra-showCount e-71) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-18) (PreludeC-45TypesC-45String-C-43C-43 " : " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 e-73)))))) (PreludeC-45TypesC-45String-C-43C-43 " => " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 (cons e-18 arg-2) e-20))) (let ((sc3 arg-4)) (if (null? sc3) "???" (PreludeC-45TypesC-45String-C-43C-43 "(" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 arg-3) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-showSep " " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 eta-0)) arg-4)) ")")))))))))))) ((4) (let ((e-76 (vector-ref sc1 2))) (let ((e-77 (vector-ref sc1 3))) (let ((e-78 (vector-ref sc1 4))) (let ((sc2 arg-4)) (if (null? sc2) (PreludeC-45TypesC-45String-C-43C-43 "plet " (PreludeC-45TypesC-45String-C-43C-43 (Algebra-showCount e-76) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-18) (PreludeC-45TypesC-45String-C-43C-43 " : " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 e-78) (PreludeC-45TypesC-45String-C-43C-43 " = " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 e-77) (PreludeC-45TypesC-45String-C-43C-43 " in " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 (cons e-18 arg-2) e-20))))))))) (let ((sc3 arg-4)) (if (null? sc3) "???" (PreludeC-45TypesC-45String-C-43C-43 "(" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 arg-3) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-showSep " " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 eta-0)) arg-4)) ")")))))))))))) ((5) (let ((e-81 (vector-ref sc1 2))) (let ((e-82 (vector-ref sc1 3))) (let ((sc2 arg-4)) (if (null? sc2) (PreludeC-45TypesC-45String-C-43C-43 "pty " (PreludeC-45TypesC-45String-C-43C-43 (Algebra-showCount e-81) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-18) (PreludeC-45TypesC-45String-C-43C-43 " : " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 e-82) (PreludeC-45TypesC-45String-C-43C-43 " => " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 (cons e-18 arg-2) e-20))))))) (let ((sc3 arg-4)) (if (null? sc3) "???" (PreludeC-45TypesC-45String-C-43C-43 "(" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 arg-3) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-showSep " " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 eta-0)) arg-4)) ")")))))))))))(else (let ((sc1 arg-4)) (if (null? sc1) "???" (PreludeC-45TypesC-45String-C-43C-43 "(" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 arg-3) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-showSep " " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 eta-0)) arg-4)) ")"))))))))))))) ((4) (let ((sc1 arg-4)) (if (null? sc1) "[can't happen]" (let ((sc2 arg-4)) (if (null? sc2) "???" (PreludeC-45TypesC-45String-C-43C-43 "(" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 arg-3) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-showSep " " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 eta-0)) arg-4)) ")"))))))))) ((5) (let ((e-28 (vector-ref sc0 3))) (let ((e-29 (vector-ref sc0 4))) (let ((sc1 arg-4)) (if (null? sc1) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 e-28) (PreludeC-45TypesC-45String-C-43C-43 "@" (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 e-29))) (let ((sc2 arg-4)) (if (null? sc2) "???" (PreludeC-45TypesC-45String-C-43C-43 "(" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 arg-3) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-showSep " " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 eta-0)) arg-4)) ")"))))))))))) ((6) (let ((e-33 (vector-ref sc0 3))) (let ((sc1 arg-4)) (if (null? sc1) (PreludeC-45TypesC-45String-C-43C-43 "%Delayed " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 e-33)) (let ((sc2 arg-4)) (if (null? sc2) "???" (PreludeC-45TypesC-45String-C-43C-43 "(" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 arg-3) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-showSep " " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 eta-0)) arg-4)) ")")))))))))) ((7) (let ((e-38 (vector-ref sc0 4))) (let ((sc1 arg-4)) (if (null? sc1) (PreludeC-45TypesC-45String-C-43C-43 "%Delay " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 e-38)) (let ((sc2 arg-4)) (if (null? sc2) "???" (PreludeC-45TypesC-45String-C-43C-43 "(" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 arg-3) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-showSep " " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 eta-0)) arg-4)) ")")))))))))) ((8) (let ((e-42 (vector-ref sc0 3))) (let ((sc1 arg-4)) (if (null? sc1) (PreludeC-45TypesC-45String-C-43C-43 "%Force " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 e-42)) (let ((sc2 arg-4)) (if (null? sc2) "???" (PreludeC-45TypesC-45String-C-43C-43 "(" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 arg-3) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-showSep " " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 eta-0)) arg-4)) ")")))))))))) ((9) (let ((e-45 (vector-ref sc0 2))) (let ((sc1 arg-4)) (if (null? sc1) (CoreC-45TT-u--show_Show_Constant e-45) (let ((sc2 arg-4)) (if (null? sc2) "???" (PreludeC-45TypesC-45String-C-43C-43 "(" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 arg-3) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-showSep " " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 eta-0)) arg-4)) ")")))))))))) ((10) (let ((sc1 arg-4)) (if (null? sc1) "[__]" (let ((sc2 arg-4)) (if (null? sc2) "???" (PreludeC-45TypesC-45String-C-43C-43 "(" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 arg-3) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-showSep " " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 eta-0)) arg-4)) ")"))))))))) ((11) (let ((sc1 arg-4)) (if (null? sc1) "Type" (let ((sc2 arg-4)) (if (null? sc2) "???" (PreludeC-45TypesC-45String-C-43C-43 "(" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 arg-3) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-showSep " " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 eta-0)) arg-4)) ")")))))))))(else (let ((sc0 arg-4)) (if (null? sc0) "???" (PreludeC-45TypesC-45String-C-43C-43 "(" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 arg-3) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-showSep " " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 eta-0)) arg-4)) ")"))))))))))) -(define CoreC-45TT-n--9495-4799-u--go (lambda (arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) (let ((e-31 (vector-ref sc1 2))) (let ((e-32 (vector-ref sc1 3))) (let ((e-33 (vector-ref sc1 4))) (PreludeC-45Basics-C-38C-38 (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega e-2 e-31) (lambda () (PreludeC-45Basics-C-38C-38 (CoreC-45TT-eqPiInfoBy arg-2 e-3 e-32) (lambda () ((arg-2 e-4) e-33)))))))))(else 1))))))) ((1) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (let ((e-9 (vector-ref sc0 4))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((1) (let ((e-36 (vector-ref sc1 2))) (let ((e-37 (vector-ref sc1 3))) (let ((e-38 (vector-ref sc1 4))) (PreludeC-45Basics-C-38C-38 (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega e-7 e-36) (lambda () (PreludeC-45Basics-C-38C-38 ((arg-2 e-8) e-37) (lambda () ((arg-2 e-9) e-38)))))))))(else 1))))))) ((2) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 4))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((2) (let ((e-41 (vector-ref sc1 2))) (let ((e-42 (vector-ref sc1 3))) (let ((e-43 (vector-ref sc1 4))) (PreludeC-45Basics-C-38C-38 (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega e-12 e-41) (lambda () (PreludeC-45Basics-C-38C-38 (CoreC-45TT-eqPiInfoBy arg-2 e-13 e-42) (lambda () ((arg-2 e-14) e-43)))))))))(else 1))))))) ((3) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((3) (let ((e-46 (vector-ref sc1 2))) (let ((e-47 (vector-ref sc1 3))) (let ((e-48 (vector-ref sc1 4))) (PreludeC-45Basics-C-38C-38 (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega e-17 e-46) (lambda () (PreludeC-45Basics-C-38C-38 (CoreC-45TT-eqPiInfoBy arg-2 e-18 e-47) (lambda () ((arg-2 e-19) e-48)))))))))(else 1))))))) ((4) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (let ((e-24 (vector-ref sc0 4))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((4) (let ((e-51 (vector-ref sc1 2))) (let ((e-52 (vector-ref sc1 3))) (let ((e-53 (vector-ref sc1 4))) (PreludeC-45Basics-C-38C-38 (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega e-22 e-51) (lambda () (PreludeC-45Basics-C-38C-38 ((arg-2 e-23) e-52) (lambda () ((arg-2 e-24) e-53)))))))))(else 1))))))) ((5) (let ((e-27 (vector-ref sc0 2))) (let ((e-28 (vector-ref sc0 3))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((5) (let ((e-56 (vector-ref sc1 2))) (let ((e-57 (vector-ref sc1 3))) (PreludeC-45Basics-C-38C-38 (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega e-27 e-56) (lambda () ((arg-2 e-28) e-57))))))(else 1))))))(else 1))))) -(define CoreC-45TT-n--7157-2435-u--go (lambda (arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) 0)(else 1)))) ((1) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((1) 0)(else 1)))) ((2) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((2) 0)(else 1)))) ((3) (let ((e-4 (vector-ref sc0 1))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((3) (let ((e-9 (vector-ref sc1 1))) ((arg-2 e-4) e-9)))(else 1)))))(else 1))))) -(define CoreC-45TT-n--12295-7343-u--getFA (lambda (arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((4) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (CoreC-45TT-n--12295-7343-u--getFA arg-1 (cons e-3 arg-2) e-2))))(else (cons arg-3 arg-2)))))) -(define CoreC-45TT-n--15143-9874-u--addRefsArgs (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (if (null? sc0) arg-8 (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (CoreC-45TT-n--15143-9874-u--addRefsArgs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (CoreC-45TT-addRefs arg-7 arg-6 arg-8 e-2) e-3))))))) -(define CoreC-45TT-n--15027-9780-u--addMetaArgs (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (if (null? sc0) arg-6 (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (CoreC-45TT-n--15027-9780-u--addMetaArgs arg-1 arg-2 arg-3 arg-4 arg-5 (CoreC-45TT-addMetas arg-6 e-2) e-3))))))) -(define CoreC-45TT-u--weaken_Weaken_Var (lambda (ext-0) (CoreC-45TTC-45Var-later ext-0))) -(define CoreC-45TT-u--weaken_Weaken_Term (lambda (ext-0) (CoreC-45TT-u--weakenNs_Weaken_Term (CoreC-45TTC-45SizeOf-suc (CoreC-45TTC-45SizeOf-zero)) ext-0))) -(define CoreC-45TT-u--weakenNs_Weaken_Var (lambda (arg-2 arg-3) (CoreC-45TT-case--weakenNs-7187 arg-3 arg-2 (CoreC-45TT-sizedView arg-2)))) -(define CoreC-45TT-u--weakenNs_Weaken_Term (lambda (arg-2 arg-3) (CoreC-45TT-insertNames (CoreC-45TTC-45SizeOf-zero) arg-2 arg-3))) -(define CoreC-45TT-u--show_Show_Visibility (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) "private") ((1) "export") (else "public export"))))) -(define CoreC-45TT-u--show_Show_Totality (lambda (arg-0) (let ((u--t (let ((sc0 arg-0)) (let ((e-0 (car sc0))) e-0)))) (let ((u--c (let ((sc0 arg-0)) (let ((e-1 (cdr sc0))) e-1)))) (CoreC-45TT-n--11071-6261-u--showTot arg-0 u--t u--c))))) -(define CoreC-45TT-u--show_Show_TotalReq (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) "total") ((1) "covering") (else "partial"))))) -(define CoreC-45TT-u--show_Show_Terminating (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) "not yet checked") ((1) "terminating") (else (let ((e-0 (vector-ref sc0 1))) (CoreC-45TT-u--show_Show_PartialReason e-0))))))) -(define CoreC-45TT-u--show_Show_PartialReason (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) "not strictly positive") ((1) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 e-0)) (if (null? sc1) (PreludeC-45TypesC-45String-C-43C-43 "possibly not terminating due to calls to " (CoreC-45NameC-45Namespace-showSep ", " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45Name-u--show_Show_Name eta-0)) e-0))) (let ((e-3 (car sc1))) (let ((e-4 (cdr sc1))) (let ((sc2 e-4)) (if (null? sc2) (PreludeC-45TypesC-45String-C-43C-43 "possibly not terminating due to call to " (CoreC-45Name-u--show_Show_Name e-3)) (PreludeC-45TypesC-45String-C-43C-43 "possibly not terminating due to calls to " (CoreC-45NameC-45Namespace-showSep ", " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45Name-u--show_Show_Name eta-0)) e-0))))))))))) (else (let ((e-1 (vector-ref sc0 1))) (PreludeC-45TypesC-45String-C-43C-43 "possibly not terminating due to recursive path " (CoreC-45NameC-45Namespace-showSep " -> " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45Name-u--show_Show_Name eta-0)) e-1))))))))) -(define CoreC-45TT-u--show_Show_LazyReason (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) "Inf") ((1) "Lazy") (else "Unkown"))))) -(define CoreC-45TT-u--show_Show_Covering (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) "covering") ((1) "not covering all cases") (else (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (if (null? sc1) (PreludeC-45TypesC-45String-C-43C-43 "not covering due to calls to functions " (CoreC-45NameC-45Namespace-showSep ", " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45Name-u--show_Show_Name eta-0)) e-1))) (let ((e-3 (car sc1))) (let ((e-4 (cdr sc1))) (let ((sc2 e-4)) (if (null? sc2) (PreludeC-45TypesC-45String-C-43C-43 "not covering due to call to function " (CoreC-45Name-u--show_Show_Name e-3)) (PreludeC-45TypesC-45String-C-43C-43 "not covering due to calls to functions " (CoreC-45NameC-45Namespace-showSep ", " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45Name-u--show_Show_Name eta-0)) e-1))))))))))))))) -(define CoreC-45TT-u--show_Show_Constant (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (PreludeC-45Show-u--show_Show_Int e-0))) ((1) (let ((e-1 (vector-ref sc0 1))) (PreludeC-45Show-u--show_Show_Integer e-1))) ((2) (let ((e-2 (vector-ref sc0 1))) (PreludeC-45Show-u--show_Show_Integer e-2))) ((3) (let ((e-3 (vector-ref sc0 1))) (PreludeC-45Show-u--show_Show_Integer e-3))) ((4) (let ((e-4 (vector-ref sc0 1))) (PreludeC-45Show-u--show_Show_Integer e-4))) ((5) (let ((e-5 (vector-ref sc0 1))) (PreludeC-45Show-u--show_Show_Integer e-5))) ((6) (let ((e-6 (vector-ref sc0 1))) (PreludeC-45Show-u--show_Show_Int e-6))) ((7) (let ((e-7 (vector-ref sc0 1))) (PreludeC-45Show-u--show_Show_Int e-7))) ((8) (let ((e-8 (vector-ref sc0 1))) (PreludeC-45Show-u--show_Show_Int e-8))) ((9) (let ((e-9 (vector-ref sc0 1))) (PreludeC-45Show-u--show_Show_Integer e-9))) ((10) (let ((e-10 (vector-ref sc0 1))) (PreludeC-45Show-u--show_Show_String e-10))) ((11) (let ((e-11 (vector-ref sc0 1))) (PreludeC-45Show-u--show_Show_Char e-11))) ((12) (let ((e-12 (vector-ref sc0 1))) (PreludeC-45Show-u--show_Show_Double e-12))) ((13) "%MkWorld") ((14) "Int") ((15) "Int8") ((16) "Int16") ((17) "Int32") ((18) "Int64") ((19) "Integer") ((20) "Bits8") ((21) "Bits16") ((22) "Bits32") ((23) "Bits64") ((24) "String") ((25) "Char") ((26) "Double") (else "%World"))))) -(define CoreC-45TT-u--show_Show_C-40VarC-32C-36nsC-41 (lambda (arg-1) (PreludeC-45Show-u--show_Show_Nat arg-1))) -(define CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 (lambda (arg-0 arg-1) (CoreC-45TT-case--show-10590 arg-0 arg-1 (CoreC-45TT-getFnArgs arg-1)))) -(define CoreC-45TT-u--show_Show_C-40PrimFnC-32C-36arityC-41 (lambda (arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (PreludeC-45TypesC-45String-C-43C-43 "+" (CoreC-45TT-u--show_Show_Constant e-0)))) ((1) (let ((e-1 (vector-ref sc0 1))) (PreludeC-45TypesC-45String-C-43C-43 "-" (CoreC-45TT-u--show_Show_Constant e-1)))) ((2) (let ((e-2 (vector-ref sc0 1))) (PreludeC-45TypesC-45String-C-43C-43 "*" (CoreC-45TT-u--show_Show_Constant e-2)))) ((3) (let ((e-3 (vector-ref sc0 1))) (PreludeC-45TypesC-45String-C-43C-43 "/" (CoreC-45TT-u--show_Show_Constant e-3)))) ((4) (let ((e-4 (vector-ref sc0 1))) (PreludeC-45TypesC-45String-C-43C-43 "%" (CoreC-45TT-u--show_Show_Constant e-4)))) ((5) (let ((e-5 (vector-ref sc0 1))) (PreludeC-45TypesC-45String-C-43C-43 "neg " (CoreC-45TT-u--show_Show_Constant e-5)))) ((6) (let ((e-6 (vector-ref sc0 1))) (PreludeC-45TypesC-45String-C-43C-43 "shl " (CoreC-45TT-u--show_Show_Constant e-6)))) ((7) (let ((e-7 (vector-ref sc0 1))) (PreludeC-45TypesC-45String-C-43C-43 "shr " (CoreC-45TT-u--show_Show_Constant e-7)))) ((8) (let ((e-8 (vector-ref sc0 1))) (PreludeC-45TypesC-45String-C-43C-43 "and " (CoreC-45TT-u--show_Show_Constant e-8)))) ((9) (let ((e-9 (vector-ref sc0 1))) (PreludeC-45TypesC-45String-C-43C-43 "or " (CoreC-45TT-u--show_Show_Constant e-9)))) ((10) (let ((e-10 (vector-ref sc0 1))) (PreludeC-45TypesC-45String-C-43C-43 "xor " (CoreC-45TT-u--show_Show_Constant e-10)))) ((11) (let ((e-11 (vector-ref sc0 1))) (PreludeC-45TypesC-45String-C-43C-43 "<" (CoreC-45TT-u--show_Show_Constant e-11)))) ((12) (let ((e-12 (vector-ref sc0 1))) (PreludeC-45TypesC-45String-C-43C-43 "<=" (CoreC-45TT-u--show_Show_Constant e-12)))) ((13) (let ((e-13 (vector-ref sc0 1))) (PreludeC-45TypesC-45String-C-43C-43 "==" (CoreC-45TT-u--show_Show_Constant e-13)))) ((14) (let ((e-14 (vector-ref sc0 1))) (PreludeC-45TypesC-45String-C-43C-43 ">=" (CoreC-45TT-u--show_Show_Constant e-14)))) ((15) (let ((e-15 (vector-ref sc0 1))) (PreludeC-45TypesC-45String-C-43C-43 ">" (CoreC-45TT-u--show_Show_Constant e-15)))) ((16) "op_strlen") ((17) "op_strhead") ((18) "op_strtail") ((19) "op_strindex") ((20) "op_strcons") ((21) "++") ((22) "op_strrev") ((23) "op_strsubstr") ((24) "op_doubleExp") ((25) "op_doubleLog") ((26) "op_doubleSin") ((27) "op_doubleCos") ((28) "op_doubleTan") ((29) "op_doubleASin") ((30) "op_doubleACos") ((31) "op_doubleATan") ((32) "op_doubleSqrt") ((33) "op_doubleFloor") ((34) "op_doubleCeiling") ((35) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (PreludeC-45TypesC-45String-C-43C-43 "cast-" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_Constant e-16) (PreludeC-45TypesC-45String-C-43C-43 "-" (CoreC-45TT-u--show_Show_Constant e-17))))))) ((36) "believe_me") (else "crash"))))) -(define CoreC-45TT-u--show_Show_C-40PiInfoC-32C-36tC-41 (lambda (arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) "Implicit") ((1) "Explicit") ((2) "AutoImplicit") (else (let ((e-4 (vector-ref sc0 1))) (PreludeC-45TypesC-45String-C-43C-43 "DefImplicit " (let ((sc1 arg-1)) (let ((e-1 (car sc1))) (e-1 e-4)))))))))) -(define CoreC-45TT-u--showPrec_Show_TotalReq (lambda (arg-0 arg-1) (CoreC-45TT-u--show_Show_TotalReq arg-1))) -(define CoreC-45TT-u--showPrec_Show_Constant (lambda (arg-0 arg-1) (CoreC-45TT-u--show_Show_Constant arg-1))) -(define CoreC-45TT-u--showPrec_Show_C-40VarC-32C-36nsC-41 (lambda (arg-1 arg-2) (CoreC-45TT-u--show_Show_C-40VarC-32C-36nsC-41 arg-2))) -(define CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 (lambda (arg-0 arg-1 arg-2) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 arg-2))) -(define CoreC-45TT-u--showPrec_Show_C-40PiInfoC-32C-36tC-41 (lambda (arg-1 arg-2 arg-3) (CoreC-45TT-u--show_Show_C-40PiInfoC-32C-36tC-41 arg-1 arg-3))) -(define CoreC-45TT-u--pretty_Pretty_Visibility (lambda (arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "private")) ((1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "export")) (else (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "public") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "export"))))))) -(define CoreC-45TT-u--pretty_Pretty_Totality (lambda (arg-1) (let ((sc0 arg-1)) (let ((e-0 (car sc0))) (let ((e-1 (cdr sc0))) (let ((sc1 e-0)) (case (vector-ref sc1 0) ((1) (let ((sc2 e-1)) (case (vector-ref sc2 0) ((0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "total"))(else (CoreC-45TT-u--pretty_Pretty_Covering e-1)))))(else (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (CoreC-45TT-u--pretty_Pretty_Terminating e-0))(else (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (CoreC-45TT-u--pretty_Pretty_Covering e-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-semi)) (CoreC-45TT-u--pretty_Pretty_Terminating e-0))))))))))))) -(define CoreC-45TT-u--pretty_Pretty_Terminating (lambda (arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "not yet checked")) ((1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "terminating")) (else (let ((e-0 (vector-ref sc0 1))) (CoreC-45TT-u--pretty_Pretty_PartialReason e-0))))))) -(define CoreC-45TT-u--pretty_Pretty_PartialReason (lambda (arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "not strictly positive")) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 e-0)) (if (null? sc1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "possibly not terminating due to calls to") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-concatWith (lambda (eta-0) (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-surround (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-comma) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-space)) eta-0 eta-1))) (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (PreludeC-45Types-u--map_Functor_List eta-2 eta-3))))) (lambda (eta-0) (CoreC-45Name-u--pretty_Pretty_Name eta-0)) e-0))) (let ((e-3 (car sc1))) (let ((e-4 (cdr sc1))) (let ((sc2 e-4)) (if (null? sc2) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "possibly not terminating due to call to") (CoreC-45Name-u--pretty_Pretty_Name e-3)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "possibly not terminating due to calls to") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-concatWith (lambda (eta-0) (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-surround (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-comma) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-space)) eta-0 eta-1))) (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (PreludeC-45Types-u--map_Functor_List eta-2 eta-3))))) (lambda (eta-0) (CoreC-45Name-u--pretty_Pretty_Name eta-0)) e-0))))))))))) (else (let ((e-1 (vector-ref sc0 1))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "possibly not terminating due to recursive path") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-concatWith (lambda (eta-0) (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-surround (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String " -> ") eta-0 eta-1))) (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (PreludeC-45Types-u--map_Functor_List eta-2 eta-3))))) (lambda (eta-0) (CoreC-45Name-u--pretty_Pretty_Name eta-0)) e-1))))))))) -(define CoreC-45TT-u--pretty_Pretty_Covering (lambda (arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "covering")) ((1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "not covering all cases")) (else (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (if (null? sc1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "not covering due to calls to functions") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-concatWith (lambda (eta-0) (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-surround (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-comma) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-space)) eta-0 eta-1))) (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (PreludeC-45Types-u--map_Functor_List eta-2 eta-3))))) (lambda (eta-0) (CoreC-45Name-u--pretty_Pretty_Name eta-0)) e-1))) (let ((e-3 (car sc1))) (let ((e-4 (cdr sc1))) (let ((sc2 e-4)) (if (null? sc2) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "not covering due to call to function") (CoreC-45Name-u--pretty_Pretty_Name e-3)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "not covering due to calls to functions") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-concatWith (lambda (eta-0) (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-surround (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-comma) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-space)) eta-0 eta-1))) (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (PreludeC-45Types-u--map_Functor_List eta-2 eta-3))))) (lambda (eta-0) (CoreC-45Name-u--pretty_Pretty_Name eta-0)) e-1))))))))))))))) -(define CoreC-45TT-u--pretty_Pretty_Constant (lambda (arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Int e-0))) ((1) (let ((e-1 (vector-ref sc0 1))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Integer e-1))) ((2) (let ((e-2 (vector-ref sc0 1))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Integer e-2))) ((3) (let ((e-3 (vector-ref sc0 1))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Integer e-3))) ((4) (let ((e-4 (vector-ref sc0 1))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Integer e-4))) ((5) (let ((e-5 (vector-ref sc0 1))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Integer e-5))) ((6) (let ((e-6 (vector-ref sc0 1))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Int e-6))) ((7) (let ((e-7 (vector-ref sc0 1))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Int e-7))) ((8) (let ((e-8 (vector-ref sc0 1))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Int e-8))) ((9) (let ((e-9 (vector-ref sc0 1))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Integer e-9))) ((10) (let ((e-10 (vector-ref sc0 1))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-dquotes (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String e-10)))) ((11) (let ((e-11 (vector-ref sc0 1))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-squotes (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Char e-11)))) ((12) (let ((e-12 (vector-ref sc0 1))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Double e-12))) ((13) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "%MkWorld")) ((14) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "Int")) ((15) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "Int8")) ((16) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "Int16")) ((17) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "Int32")) ((18) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "Int64")) ((19) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "Integer")) ((20) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "Bits8")) ((21) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "Bits16")) ((22) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "Bits32")) ((23) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "Bits64")) ((24) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "String")) ((25) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "Char")) ((26) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "Double")) (else (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "%World")))))) -(define CoreC-45TT-u--pretty_Pretty_C-40TermC-32C-36varsC-41 (lambda (arg-1 ext-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-1 ext-0)))) -(define CoreC-45TT-u--map_Functor_PiInfo (lambda (arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (vector 1 )) ((0) (vector 0 )) ((2) (vector 2 )) (else (let ((e-4 (vector-ref sc0 1))) (vector 3 (arg-2 e-4)))))))) -(define CoreC-45TT-u--map_Functor_Binder (lambda (arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (vector 0 e-1 e-2 (CoreC-45TT-u--map_Functor_PiInfo arg-2 e-3) (arg-2 e-4))))))) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (let ((e-9 (vector-ref sc0 4))) (vector 1 e-6 e-7 (arg-2 e-8) (arg-2 e-9))))))) ((2) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 4))) (vector 2 e-11 e-12 (CoreC-45TT-u--map_Functor_PiInfo arg-2 e-13) (arg-2 e-14))))))) ((3) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (vector 3 e-16 e-17 (CoreC-45TT-u--map_Functor_PiInfo arg-2 e-18) (arg-2 e-19))))))) ((4) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (let ((e-24 (vector-ref sc0 4))) (vector 4 e-21 e-22 (arg-2 e-23) (arg-2 e-24))))))) (else (let ((e-26 (vector-ref sc0 1))) (let ((e-27 (vector-ref sc0 2))) (let ((e-28 (vector-ref sc0 3))) (vector 5 e-26 e-27 (arg-2 e-28)))))))))) -(define CoreC-45TT-u--compare_Ord_Precision (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) (let ((e-1 (vector-ref sc1 1))) (PreludeC-45EqOrd-u--compare_Ord_Int e-0 e-1)))(else (let ((sc1 arg-1)) 0)))))) ((1) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) 1)(else 2))))(else (let ((sc0 arg-1)) 0)))))) -(define CoreC-45TT-u--C-62_Ord_Precision (lambda (arg-0 arg-1) (PreludeC-45EqOrd-u--C-61C-61_Eq_Ordering (CoreC-45TT-u--compare_Ord_Precision arg-0 arg-1) 2))) -(define CoreC-45TT-u--C-62C-61_Ord_Precision (lambda (arg-0 arg-1) (PreludeC-45EqOrd-u--C-47C-61_Eq_Ordering (CoreC-45TT-u--compare_Ord_Precision arg-0 arg-1) 0))) -(define CoreC-45TT-u--C-61C-61_Eq_Visibility (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) 0)(else 1)))) ((1) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) 0)(else 1)))) ((2) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((2) 0)(else 1))))(else 1))))) -(define CoreC-45TT-u--C-61C-61_Eq_TotalReq (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) 0)(else 1)))) ((1) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) 0)(else 1)))) ((2) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((2) 0)(else 1))))(else 1))))) -(define CoreC-45TT-u--C-61C-61_Eq_LazyReason (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) 0)(else 1)))) ((1) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) 0)(else 1)))) ((2) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((2) 0)(else 1))))(else 1))))) -(define CoreC-45TT-u--C-61C-61_Eq_Constant (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) (let ((e-13 (vector-ref sc1 1))) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int e-0 e-13)))(else 1))))) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) (let ((e-14 (vector-ref sc1 1))) (PreludeC-45EqOrd-u--C-61C-61_Eq_Integer e-1 e-14)))(else 1))))) ((2) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((2) (let ((e-15 (vector-ref sc1 1))) (PreludeC-45EqOrd-u--C-61C-61_Eq_Integer e-2 e-15)))(else 1))))) ((3) (let ((e-3 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((3) (let ((e-16 (vector-ref sc1 1))) (PreludeC-45EqOrd-u--C-61C-61_Eq_Integer e-3 e-16)))(else 1))))) ((4) (let ((e-4 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((4) (let ((e-17 (vector-ref sc1 1))) (PreludeC-45EqOrd-u--C-61C-61_Eq_Integer e-4 e-17)))(else 1))))) ((5) (let ((e-5 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((5) (let ((e-18 (vector-ref sc1 1))) (PreludeC-45EqOrd-u--C-61C-61_Eq_Integer e-5 e-18)))(else 1))))) ((6) (let ((e-6 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((6) (let ((e-19 (vector-ref sc1 1))) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int e-6 e-19)))(else 1))))) ((7) (let ((e-7 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((7) (let ((e-20 (vector-ref sc1 1))) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int e-7 e-20)))(else 1))))) ((8) (let ((e-8 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((8) (let ((e-21 (vector-ref sc1 1))) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int e-8 e-21)))(else 1))))) ((9) (let ((e-9 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((9) (let ((e-22 (vector-ref sc1 1))) (PreludeC-45EqOrd-u--C-61C-61_Eq_Integer e-9 e-22)))(else 1))))) ((10) (let ((e-10 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((10) (let ((e-23 (vector-ref sc1 1))) (PreludeC-45EqOrd-u--C-61C-61_Eq_String e-10 e-23)))(else 1))))) ((11) (let ((e-11 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((11) (let ((e-24 (vector-ref sc1 1))) (PreludeC-45EqOrd-u--C-61C-61_Eq_Char e-11 e-24)))(else 1))))) ((12) (let ((e-12 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((12) (let ((e-25 (vector-ref sc1 1))) (PreludeC-45EqOrd-u--C-61C-61_Eq_Double e-12 e-25)))(else 1))))) ((13) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((13) 0)(else 1)))) ((14) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((14) 0)(else 1)))) ((15) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((15) 0)(else 1)))) ((16) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((16) 0)(else 1)))) ((17) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((17) 0)(else 1)))) ((18) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((18) 0)(else 1)))) ((19) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((19) 0)(else 1)))) ((20) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((20) 0)(else 1)))) ((21) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((21) 0)(else 1)))) ((22) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((22) 0)(else 1)))) ((23) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((23) 0)(else 1)))) ((24) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((24) 0)(else 1)))) ((25) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((25) 0)(else 1)))) ((26) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((26) 0)(else 1)))) ((27) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((27) 0)(else 1))))(else 1))))) -(define CoreC-45TT-u--C-61C-61_Eq_C-40TermC-32C-36varsC-41 (lambda (arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-4 (vector-ref sc0 3))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((0) (let ((e-54 (vector-ref sc1 3))) (PreludeC-45Types-u--C-61C-61_Eq_Nat e-4 e-54)))(else 1))))) ((1) (let ((e-9 (vector-ref sc0 3))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((1) (let ((e-59 (vector-ref sc1 3))) (CoreC-45Name-u--C-61C-61_Eq_Name e-9 e-59)))(else 1))))) ((2) (let ((e-13 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 4))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((2) (let ((e-63 (vector-ref sc1 3))) (let ((e-64 (vector-ref sc1 4))) (PreludeC-45Basics-C-38C-38 (PreludeC-45EqOrd-u--C-61C-61_Eq_Int e-13 e-63) (lambda () (PreludeC-45Types-u--C-61C-61_Eq_C-40ListC-32C-36aC-41 (cons (lambda (arg-3) (lambda (arg-4) (CoreC-45TT-u--C-61C-61_Eq_C-40TermC-32C-36varsC-41 arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (CoreC-45TT-u--C-47C-61_Eq_C-40TermC-32C-36varsC-41 arg-4 arg-5)))) e-14 e-64))))))(else 1)))))) ((3) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((3) (let ((e-68 (vector-ref sc1 3))) (let ((e-69 (vector-ref sc1 4))) (PreludeC-45Basics-C-38C-38 (CoreC-45TT-u--C-61C-61_Eq_C-40BinderC-32C-36aC-41 (cons (lambda (arg-3) (lambda (arg-4) (CoreC-45TT-u--C-61C-61_Eq_C-40TermC-32C-36varsC-41 arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (CoreC-45TT-u--C-47C-61_Eq_C-40TermC-32C-36varsC-41 arg-4 arg-5)))) e-18 e-68) (lambda () (CoreC-45TT-u--C-61C-61_Eq_C-40TermC-32C-36varsC-41 e-19 (Builtin-believe_me e-69)))))))(else 1)))))) ((4) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((4) (let ((e-72 (vector-ref sc1 2))) (let ((e-73 (vector-ref sc1 3))) (PreludeC-45Basics-C-38C-38 (CoreC-45TT-u--C-61C-61_Eq_C-40TermC-32C-36varsC-41 e-22 e-72) (lambda () (CoreC-45TT-u--C-61C-61_Eq_C-40TermC-32C-36varsC-41 e-23 e-73))))))(else 1)))))) ((5) (let ((e-27 (vector-ref sc0 3))) (let ((e-28 (vector-ref sc0 4))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((5) (let ((e-77 (vector-ref sc1 3))) (let ((e-78 (vector-ref sc1 4))) (PreludeC-45Basics-C-38C-38 (CoreC-45TT-u--C-61C-61_Eq_C-40TermC-32C-36varsC-41 e-27 e-77) (lambda () (CoreC-45TT-u--C-61C-61_Eq_C-40TermC-32C-36varsC-41 e-28 e-78))))))(else 1)))))) ((6) (let ((e-32 (vector-ref sc0 3))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((6) (let ((e-82 (vector-ref sc1 3))) (CoreC-45TT-u--C-61C-61_Eq_C-40TermC-32C-36varsC-41 e-32 e-82)))(else 1))))) ((7) (let ((e-36 (vector-ref sc0 3))) (let ((e-37 (vector-ref sc0 4))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((7) (let ((e-86 (vector-ref sc1 3))) (let ((e-87 (vector-ref sc1 4))) (PreludeC-45Basics-C-38C-38 (CoreC-45TT-u--C-61C-61_Eq_C-40TermC-32C-36varsC-41 e-36 e-86) (lambda () (CoreC-45TT-u--C-61C-61_Eq_C-40TermC-32C-36varsC-41 e-37 e-87))))))(else 1)))))) ((8) (let ((e-41 (vector-ref sc0 3))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((8) (let ((e-91 (vector-ref sc1 3))) (CoreC-45TT-u--C-61C-61_Eq_C-40TermC-32C-36varsC-41 e-41 e-91)))(else 1))))) ((9) (let ((e-44 (vector-ref sc0 2))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((9) (let ((e-94 (vector-ref sc1 2))) (CoreC-45TT-u--C-61C-61_Eq_Constant e-44 e-94)))(else 1))))) ((10) (let ((e-47 (vector-ref sc0 2))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((10) (let ((e-97 (vector-ref sc1 2))) (PreludeC-45EqOrd-u--C-61C-61_Eq_Bool e-47 e-97)))(else 1))))) ((11) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((11) 0)(else 1))))(else 1))))) -(define CoreC-45TT-u--C-61C-61_Eq_C-40PiInfoC-32C-36tC-41 (lambda (arg-1 ext-0 ext-1) (CoreC-45TT-eqPiInfoBy (lambda (eta-0) (lambda (eta-1) (let ((sc0 arg-1)) (let ((e-1 (car sc0))) ((e-1 eta-0) eta-1))))) ext-0 ext-1))) -(define CoreC-45TT-u--C-61C-61_Eq_C-40BinderC-32C-36aC-41 (lambda (arg-1 ext-0 ext-1) (CoreC-45TT-eqBinderBy (lambda (eta-0) (lambda (eta-1) (let ((sc0 arg-1)) (let ((e-1 (car sc0))) ((e-1 eta-0) eta-1))))) ext-0 ext-1))) -(define CoreC-45TT-u--C-47C-61_Eq_Visibility (lambda (arg-0 arg-1) (let ((sc0 (CoreC-45TT-u--C-61C-61_Eq_Visibility arg-0 arg-1))) (cond ((equal? sc0 0) 1) (else 0))))) -(define CoreC-45TT-u--C-47C-61_Eq_Constant (lambda (arg-0 arg-1) (let ((sc0 (CoreC-45TT-u--C-61C-61_Eq_Constant arg-0 arg-1))) (cond ((equal? sc0 0) 1) (else 0))))) -(define CoreC-45TT-u--C-47C-61_Eq_C-40TermC-32C-36varsC-41 (lambda (arg-1 arg-2) (let ((sc0 (CoreC-45TT-u--C-61C-61_Eq_C-40TermC-32C-36varsC-41 arg-1 arg-2))) (cond ((equal? sc0 0) 1) (else 0))))) -(define CoreC-45TTC-45SizeOf-zero (lambda () 0)) -(define CoreC-45TT-withPiInfo (lambda (arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (PreludeC-45TypesC-45String-C-43C-43 "(" (PreludeC-45TypesC-45String-C-43C-43 arg-3 ")"))) ((0) (PreludeC-45TypesC-45String-C-43C-43 "{" (PreludeC-45TypesC-45String-C-43C-43 arg-3 "}"))) ((2) (PreludeC-45TypesC-45String-C-43C-43 "{auto " (PreludeC-45TypesC-45String-C-43C-43 arg-3 "}"))) (else (let ((e-4 (vector-ref sc0 1))) (PreludeC-45TypesC-45String-C-43C-43 "{default " (PreludeC-45TypesC-45String-C-43C-43 (let ((sc1 arg-1)) (let ((e-1 (car sc1))) (e-1 e-4))) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 arg-3 "}")))))))))) -(define CoreC-45TT-weakenVar (lambda (arg-2 arg-3) (CoreC-45TT-case--weakenVar-6634 arg-3 arg-2 (CoreC-45TT-weakenNVar arg-2 arg-3)))) -(define CoreC-45TT-weakenNVar (lambda (arg-3 arg-4) (CoreC-45TT-case--weakenNVar-6402 arg-4 arg-3 (CoreC-45TT-sizedView arg-3)))) -(define CoreC-45TT-varIdx (lambda (arg-1) arg-1)) -(define CoreC-45TT-varEmbedSub (lambda (arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) arg-4) ((1) (let ((e-4 (vector-ref sc0 1))) (CoreC-45TT-case--varEmbedSub-8296 arg-4 e-4 (CoreC-45TT-varEmbedSub e-4 arg-4)))) (else (let ((e-8 (vector-ref sc0 1))) (let ((sc1 arg-4)) (cond ((equal? sc1 0) 0)(else (let ((e-9 (- arg-4 1))) (let ((u--idx (+ 1 e-9))) (CoreC-45TT-case--varEmbedSub-8370 e-9 e-8 u--idx (CoreC-45TT-varEmbedSub e-8 e-9))))))))))))) -(define CoreC-45TT-unchecked (lambda () (cons (vector 0 ) (vector 0 )))) -(define CoreC-45TTC-45SizeOf-take (lambda (arg-1) arg-1)) -(define CoreC-45TTC-45SizeOf-sucR (lambda (arg-3) (+ 1 arg-3))) -(define CoreC-45TTC-45SizeOf-suc (lambda (arg-3) (+ 1 arg-3))) -(define CoreC-45TTC-45SubstEnv-substs (lambda (arg-2 arg-3) (CoreC-45TTC-45SubstEnv-substEnv (CoreC-45TTC-45SizeOf-zero) arg-2 arg-3))) -(define CoreC-45TT-substName (lambda (arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (CoreC-45TT-case--substName-9666 e-3 e-2 e-1 arg-2 arg-1 (CoreC-45Name-nameEq arg-1 e-3)))))) ((2) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (vector 2 e-5 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45TT-substName arg-1 arg-2 eta-0)) e-8))))))) ((3) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (let ((e-13 (vector-ref sc0 4))) (vector 3 e-10 e-11 (CoreC-45TT-u--map_Functor_Binder (lambda (eta-0) (CoreC-45TT-substName arg-1 arg-2 eta-0)) e-12) (CoreC-45TT-substName arg-1 (CoreC-45TT-u--weaken_Weaken_Term arg-2) e-13))))))) ((4) (let ((e-15 (vector-ref sc0 1))) (let ((e-16 (vector-ref sc0 2))) (let ((e-17 (vector-ref sc0 3))) (vector 4 e-15 (CoreC-45TT-substName arg-1 arg-2 e-16) (CoreC-45TT-substName arg-1 arg-2 e-17)))))) ((5) (let ((e-19 (vector-ref sc0 1))) (let ((e-20 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 3))) (let ((e-22 (vector-ref sc0 4))) (vector 5 e-19 e-20 e-21 (CoreC-45TT-substName arg-1 arg-2 e-22))))))) ((6) (let ((e-24 (vector-ref sc0 1))) (let ((e-25 (vector-ref sc0 2))) (let ((e-26 (vector-ref sc0 3))) (vector 6 e-24 e-25 (CoreC-45TT-substName arg-1 arg-2 e-26)))))) ((7) (let ((e-28 (vector-ref sc0 1))) (let ((e-29 (vector-ref sc0 2))) (let ((e-30 (vector-ref sc0 3))) (let ((e-31 (vector-ref sc0 4))) (vector 7 e-28 e-29 (CoreC-45TT-substName arg-1 arg-2 e-30) (CoreC-45TT-substName arg-1 arg-2 e-31))))))) ((8) (let ((e-33 (vector-ref sc0 1))) (let ((e-34 (vector-ref sc0 2))) (let ((e-35 (vector-ref sc0 3))) (vector 8 e-33 e-34 (CoreC-45TT-substName arg-1 arg-2 e-35))))))(else arg-3))))) -(define CoreC-45TTC-45SubstEnv-substEnv (lambda (arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (CoreC-45TTC-45SubstEnv-find e-2 e-3 arg-3 e-4 arg-4))))) ((1) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (vector 1 e-7 e-8 e-9))))) ((2) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 4))) (vector 2 e-11 e-12 e-13 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45TTC-45SubstEnv-substEnv arg-3 arg-4 eta-0)) e-14))))))) ((3) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (vector 3 e-16 e-17 (CoreC-45TT-u--map_Functor_Binder (lambda (eta-0) (CoreC-45TTC-45SubstEnv-substEnv arg-3 arg-4 eta-0)) e-18) (CoreC-45TTC-45SubstEnv-substEnv (CoreC-45TTC-45SizeOf-suc arg-3) arg-4 e-19))))))) ((4) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (vector 4 e-21 (CoreC-45TTC-45SubstEnv-substEnv arg-3 arg-4 e-22) (CoreC-45TTC-45SubstEnv-substEnv arg-3 arg-4 e-23)))))) ((5) (let ((e-25 (vector-ref sc0 1))) (let ((e-26 (vector-ref sc0 2))) (let ((e-27 (vector-ref sc0 3))) (let ((e-28 (vector-ref sc0 4))) (vector 5 e-25 e-26 (CoreC-45TTC-45SubstEnv-substEnv arg-3 arg-4 e-27) (CoreC-45TTC-45SubstEnv-substEnv arg-3 arg-4 e-28))))))) ((6) (let ((e-30 (vector-ref sc0 1))) (let ((e-31 (vector-ref sc0 2))) (let ((e-32 (vector-ref sc0 3))) (vector 6 e-30 e-31 (CoreC-45TTC-45SubstEnv-substEnv arg-3 arg-4 e-32)))))) ((7) (let ((e-34 (vector-ref sc0 1))) (let ((e-35 (vector-ref sc0 2))) (let ((e-36 (vector-ref sc0 3))) (let ((e-37 (vector-ref sc0 4))) (vector 7 e-34 e-35 (CoreC-45TTC-45SubstEnv-substEnv arg-3 arg-4 e-36) (CoreC-45TTC-45SubstEnv-substEnv arg-3 arg-4 e-37))))))) ((8) (let ((e-39 (vector-ref sc0 1))) (let ((e-40 (vector-ref sc0 2))) (let ((e-41 (vector-ref sc0 3))) (vector 8 e-39 e-40 (CoreC-45TTC-45SubstEnv-substEnv arg-3 arg-4 e-41)))))) ((9) (let ((e-43 (vector-ref sc0 1))) (let ((e-44 (vector-ref sc0 2))) (vector 9 e-43 e-44)))) ((10) (let ((e-46 (vector-ref sc0 1))) (let ((e-47 (vector-ref sc0 2))) (vector 10 e-46 e-47)))) (else (let ((e-49 (vector-ref sc0 1))) (vector 11 e-49))))))) -(define CoreC-45TTC-45SubstEnv-subst (lambda (arg-2 arg-3) (CoreC-45TTC-45SubstEnv-substs (cons arg-2 '()) arg-3))) -(define CoreC-45TT-subExtend (lambda (arg-2 arg-3) (let ((sc0 arg-2)) (if (null? sc0) arg-3 (let ((e-3 (cdr sc0))) (vector 2 (CoreC-45TT-subExtend e-3 arg-3))))))) -(define CoreC-45TT-subElem (lambda (arg-3 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (vector 1 arg-3))(else (let ((sc0 arg-3)) (cond ((equal? sc0 0) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((1) (vector 0 )) (else (vector 1 0)))))(else (let ((e-0 (- arg-3 1))) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-12 (vector-ref sc0 1))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45TT-subElem e-0 e-12) (lambda (_-0) (vector 1 _-0))))) (else (let ((e-16 (vector-ref sc0 1))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45TT-subElem e-0 e-16) (lambda (_-0) (vector 1 (+ 1 _-0))))))))))))))))) -(define CoreC-45TT-sizedView (lambda (arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 0 ))(else (let ((e-4 (- arg-2 1))) (vector 1 e-4))))))) -(define CoreC-45TTC-45Bounds-sizeOf (lambda (arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (CoreC-45TTC-45SizeOf-zero)) (else (let ((e-3 (vector-ref sc0 3))) (CoreC-45TTC-45SizeOf-suc (CoreC-45TTC-45Bounds-sizeOf e-3)))))))) -(define CoreC-45TT-shrinkTerm (lambda (arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (CoreC-45TT-case--shrinkTerm-8003 e-4 e-3 e-2 arg-3 (CoreC-45TT-subElem e-4 arg-3)))))) ((1) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (vector 1 (vector 1 e-7 e-8 e-9)))))) ((2) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 4))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (PreludeC-45Types-u--traverse_Traversable_List (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (PreludeC-45Types-u--map_Functor_Maybe u--func arg-143))))) (lambda (u--a) (lambda (arg-577) (PreludeC-45Types-u--pure_Applicative_Maybe arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (PreludeC-45Types-u--C-60C-42C-62_Applicative_Maybe arg-578 arg-580)))))) (lambda (u--x) (CoreC-45TT-shrinkTerm u--x arg-3)) e-14) (lambda (u--xsC-39) (vector 1 (vector 2 e-11 e-12 e-13 u--xsC-39))))))))) ((3) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45TT-shrinkBinder e-18 arg-3) (lambda (bind-0) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45TT-shrinkTerm e-19 (vector 2 arg-3)) (lambda (bind-1) (vector 1 (vector 3 e-16 e-17 bind-0 bind-1))))))))))) ((4) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45TT-shrinkTerm e-22 arg-3) (lambda (bind-0) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45TT-shrinkTerm e-23 arg-3) (lambda (bind-1) (vector 1 (vector 4 e-21 bind-0 bind-1)))))))))) ((5) (let ((e-25 (vector-ref sc0 1))) (let ((e-26 (vector-ref sc0 2))) (let ((e-27 (vector-ref sc0 3))) (let ((e-28 (vector-ref sc0 4))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45TT-shrinkTerm e-27 arg-3) (lambda (bind-0) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45TT-shrinkTerm e-28 arg-3) (lambda (bind-1) (vector 1 (vector 5 e-25 e-26 bind-0 bind-1))))))))))) ((6) (let ((e-30 (vector-ref sc0 1))) (let ((e-31 (vector-ref sc0 2))) (let ((e-32 (vector-ref sc0 3))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45TT-shrinkTerm e-32 arg-3) (lambda (bind-0) (vector 1 (vector 6 e-30 e-31 bind-0)))))))) ((7) (let ((e-34 (vector-ref sc0 1))) (let ((e-35 (vector-ref sc0 2))) (let ((e-36 (vector-ref sc0 3))) (let ((e-37 (vector-ref sc0 4))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45TT-shrinkTerm e-36 arg-3) (lambda (bind-0) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45TT-shrinkTerm e-37 arg-3) (lambda (bind-1) (vector 1 (vector 7 e-34 e-35 bind-0 bind-1))))))))))) ((8) (let ((e-39 (vector-ref sc0 1))) (let ((e-40 (vector-ref sc0 2))) (let ((e-41 (vector-ref sc0 3))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45TT-shrinkTerm e-41 arg-3) (lambda (bind-0) (vector 1 (vector 8 e-39 e-40 bind-0)))))))) ((9) (let ((e-43 (vector-ref sc0 1))) (let ((e-44 (vector-ref sc0 2))) (vector 1 (vector 9 e-43 e-44))))) ((10) (let ((e-46 (vector-ref sc0 1))) (let ((e-47 (vector-ref sc0 2))) (vector 1 (vector 10 e-46 e-47))))) (else (let ((e-49 (vector-ref sc0 1))) (vector 1 (vector 11 e-49)))))))) -(define CoreC-45TT-shrinkPi (lambda (arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 1 ))) ((0) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 0 ))) ((2) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 2 ))) (else (let ((e-4 (vector-ref sc0 1))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45TT-shrinkTerm e-4 arg-3) (lambda (bind-0) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 3 bind-0)))))))))) -(define CoreC-45TT-shrinkBinder (lambda (arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45TT-shrinkPi e-3 arg-3) (lambda (bind-0) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45TT-shrinkTerm e-4 arg-3) (lambda (bind-1) (vector 1 (vector 0 e-1 e-2 bind-0 bind-1))))))))))) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (let ((e-9 (vector-ref sc0 4))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45TT-shrinkTerm e-8 arg-3) (lambda (bind-0) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45TT-shrinkTerm e-9 arg-3) (lambda (bind-1) (vector 1 (vector 1 e-6 e-7 bind-0 bind-1))))))))))) ((2) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 4))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45TT-shrinkPi e-13 arg-3) (lambda (bind-0) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45TT-shrinkTerm e-14 arg-3) (lambda (bind-1) (vector 1 (vector 2 e-11 e-12 bind-0 bind-1))))))))))) ((3) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45TT-shrinkPi e-18 arg-3) (lambda (bind-0) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45TT-shrinkTerm e-19 arg-3) (lambda (bind-1) (vector 1 (vector 3 e-16 e-17 bind-0 bind-1))))))))))) ((4) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (let ((e-24 (vector-ref sc0 4))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45TT-shrinkTerm e-23 arg-3) (lambda (bind-0) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45TT-shrinkTerm e-24 arg-3) (lambda (bind-1) (vector 1 (vector 4 e-21 e-22 bind-0 bind-1))))))))))) (else (let ((e-26 (vector-ref sc0 1))) (let ((e-27 (vector-ref sc0 2))) (let ((e-28 (vector-ref sc0 3))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45TT-shrinkTerm e-28 arg-3) (lambda (bind-0) (vector 1 (vector 5 e-26 e-27 bind-0)))))))))))) -(define CoreC-45TT-setMultiplicity (lambda (arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (vector 0 e-1 arg-2 e-3 e-4))))) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 3))) (let ((e-9 (vector-ref sc0 4))) (vector 1 e-6 arg-2 e-8 e-9))))) ((2) (let ((e-11 (vector-ref sc0 1))) (let ((e-13 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 4))) (vector 2 e-11 arg-2 e-13 e-14))))) ((3) (let ((e-16 (vector-ref sc0 1))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (vector 3 e-16 arg-2 e-18 e-19))))) ((4) (let ((e-21 (vector-ref sc0 1))) (let ((e-23 (vector-ref sc0 3))) (let ((e-24 (vector-ref sc0 4))) (vector 4 e-21 arg-2 e-23 e-24))))) (else (let ((e-26 (vector-ref sc0 1))) (let ((e-28 (vector-ref sc0 3))) (vector 5 e-26 arg-2 e-28)))))))) -(define CoreC-45TT-sameVar (lambda (arg-1 arg-2) (PreludeC-45Types-u--C-61C-61_Eq_Nat arg-1 arg-2))) -(define CoreC-45TTC-45SizeOf-reverse (lambda (arg-2) arg-2)) -(define CoreC-45TT-resolveRef (lambda (arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (CoreC-45TT-case--resolveRef-8648 e-3 e-2 e-1 arg-8 arg-7 arg-5 arg-4 (CoreC-45Name-u--C-61C-61_Eq_Name arg-8 e-2)))))))))) -(define CoreC-45TT-resolveNames (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (CoreC-45TT-case--resolveNames-9174 e-3 e-1 arg-0 (CoreC-45TT-isNVar e-3 arg-0)))(else arg-1))))))) ((2) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (vector 2 e-5 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45TT-resolveNames arg-0 eta-0)) e-8))))))) ((3) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (let ((e-13 (vector-ref sc0 4))) (vector 3 e-10 e-11 (CoreC-45TT-u--map_Functor_Binder (lambda (eta-0) (CoreC-45TT-resolveNames arg-0 eta-0)) e-12) (CoreC-45TT-resolveNames (cons e-11 arg-0) e-13))))))) ((4) (let ((e-15 (vector-ref sc0 1))) (let ((e-16 (vector-ref sc0 2))) (let ((e-17 (vector-ref sc0 3))) (vector 4 e-15 (CoreC-45TT-resolveNames arg-0 e-16) (CoreC-45TT-resolveNames arg-0 e-17)))))) ((5) (let ((e-19 (vector-ref sc0 1))) (let ((e-20 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 3))) (let ((e-22 (vector-ref sc0 4))) (vector 5 e-19 e-20 (CoreC-45TT-resolveNames arg-0 e-21) (CoreC-45TT-resolveNames arg-0 e-22))))))) ((6) (let ((e-24 (vector-ref sc0 1))) (let ((e-25 (vector-ref sc0 2))) (let ((e-26 (vector-ref sc0 3))) (vector 6 e-24 e-25 (CoreC-45TT-resolveNames arg-0 e-26)))))) ((7) (let ((e-28 (vector-ref sc0 1))) (let ((e-29 (vector-ref sc0 2))) (let ((e-30 (vector-ref sc0 3))) (let ((e-31 (vector-ref sc0 4))) (vector 7 e-28 e-29 (CoreC-45TT-resolveNames arg-0 e-30) (CoreC-45TT-resolveNames arg-0 e-31))))))) ((8) (let ((e-33 (vector-ref sc0 1))) (let ((e-34 (vector-ref sc0 2))) (let ((e-35 (vector-ref sc0 3))) (vector 8 e-33 e-34 (CoreC-45TT-resolveNames arg-0 e-35))))))(else arg-1))))) -(define CoreC-45TT-renameVars (lambda (arg-2 arg-3) (Builtin-believe_me arg-3))) -(define CoreC-45TT-renameTop (lambda (arg-2 arg-3) (CoreC-45TT-renameVars (vector 1 (vector 0 )) arg-3))) -(define CoreC-45TT-refsToLocals (lambda (arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) arg-3)(else (CoreC-45TT-mkLocals (CoreC-45TTC-45SizeOf-zero) arg-2 arg-3)))))) -(define CoreC-45TT-refToLocal (lambda (arg-1 arg-2 arg-3) (CoreC-45TT-refsToLocals (vector 1 arg-2 arg-1 (vector 0 )) arg-3))) -(define CoreC-45TT-piInfo (lambda (arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-3 (vector-ref sc0 3))) e-3)) ((1) (vector 1 )) ((2) (let ((e-13 (vector-ref sc0 3))) e-13)) ((3) (let ((e-18 (vector-ref sc0 3))) e-18)) ((4) (vector 1 )) (else (vector 1 )))))) -(define CoreC-45TT-notCovering (lambda () (cons (vector 0 ) (vector 1 '())))) -(define CoreC-45TT-nameAt (lambda (arg-1 arg-2) (let ((sc0 arg-1)) (let ((e-1 (car sc0))) (let ((e-2 (cdr sc0))) (let ((sc1 arg-2)) (cond ((equal? sc1 0) e-1)(else (let ((e-3 (- arg-2 1))) (CoreC-45TT-nameAt e-2 e-3)))))))))) -(define CoreC-45TT-multiplicity (lambda (arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 2))) e-2)) ((1) (let ((e-7 (vector-ref sc0 2))) e-7)) ((2) (let ((e-12 (vector-ref sc0 2))) e-12)) ((3) (let ((e-17 (vector-ref sc0 2))) e-17)) ((4) (let ((e-22 (vector-ref sc0 2))) e-22)) (else (let ((e-27 (vector-ref sc0 2))) e-27)))))) -(define CoreC-45TTC-45SizeOf-mkSizeOf (lambda (arg-1) (PreludeC-45TypesC-45List-length arg-1))) -(define CoreC-45TT-mkLocals (lambda (arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (CoreC-45TT-case--mkLocals-8827 e-4 e-3 e-2 arg-4 arg-3 (CoreC-45TT-addVars arg-3 arg-4 e-4)))))) ((1) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (let ((sc1 e-8)) (case (vector-ref sc1 0) ((0) (PreludeC-45Types-maybe (lambda () (vector 1 e-7 (vector 0 ) e-9)) (lambda () (lambda (eta-0) eta-0)) (CoreC-45TT-resolveRef arg-3 (CoreC-45TTC-45SizeOf-zero) arg-4 e-7 e-9)))(else (vector 1 e-7 e-8 e-9)))))))) ((2) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 4))) (PreludeC-45Types-maybe (lambda () (vector 2 e-11 e-12 e-13 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45TT-mkLocals arg-3 arg-4 eta-0)) e-14))) (lambda () (lambda (eta-0) eta-0)) (CoreC-45TT-resolveRef arg-3 (CoreC-45TTC-45SizeOf-zero) arg-4 e-11 e-12))))))) ((3) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (vector 3 e-16 e-17 (CoreC-45TT-u--map_Functor_Binder (lambda (eta-0) (CoreC-45TT-mkLocals arg-3 arg-4 eta-0)) e-18) (CoreC-45TT-mkLocals (CoreC-45TTC-45SizeOf-suc arg-3) arg-4 e-19))))))) ((4) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (vector 4 e-21 (CoreC-45TT-mkLocals arg-3 arg-4 e-22) (CoreC-45TT-mkLocals arg-3 arg-4 e-23)))))) ((5) (let ((e-25 (vector-ref sc0 1))) (let ((e-26 (vector-ref sc0 2))) (let ((e-27 (vector-ref sc0 3))) (let ((e-28 (vector-ref sc0 4))) (vector 5 e-25 e-26 (CoreC-45TT-mkLocals arg-3 arg-4 e-27) (CoreC-45TT-mkLocals arg-3 arg-4 e-28))))))) ((6) (let ((e-30 (vector-ref sc0 1))) (let ((e-31 (vector-ref sc0 2))) (let ((e-32 (vector-ref sc0 3))) (vector 6 e-30 e-31 (CoreC-45TT-mkLocals arg-3 arg-4 e-32)))))) ((7) (let ((e-34 (vector-ref sc0 1))) (let ((e-35 (vector-ref sc0 2))) (let ((e-36 (vector-ref sc0 3))) (let ((e-37 (vector-ref sc0 4))) (vector 7 e-34 e-35 (CoreC-45TT-mkLocals arg-3 arg-4 e-36) (CoreC-45TT-mkLocals arg-3 arg-4 e-37))))))) ((8) (let ((e-39 (vector-ref sc0 1))) (let ((e-40 (vector-ref sc0 2))) (let ((e-41 (vector-ref sc0 3))) (vector 8 e-39 e-40 (CoreC-45TT-mkLocals arg-3 arg-4 e-41)))))) ((9) (let ((e-43 (vector-ref sc0 1))) (let ((e-44 (vector-ref sc0 2))) (vector 9 e-43 e-44)))) ((10) (let ((e-46 (vector-ref sc0 1))) (let ((e-47 (vector-ref sc0 2))) (vector 10 e-46 e-47)))) (else (let ((e-49 (vector-ref sc0 1))) (vector 11 e-49))))))) -(define CoreC-45TTC-45SizeOf-map (lambda (arg-4) arg-4)) -(define CoreC-45TTC-45Var-later (lambda (arg-2) (+ 1 arg-2))) -(define CoreC-45TTC-45NVar-later (lambda (arg-3) (+ 1 arg-3))) -(define CoreC-45TT-isVar (lambda (arg-0 arg-1) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45TT-isNVar arg-0 arg-1) (lambda (_-0) (PreludeC-45Types-u--pure_Applicative_Maybe _-0))))) -(define CoreC-45TT-isTotal (lambda () (cons (vector 0 ) (vector 0 )))) -(define CoreC-45TT-isNVar (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (if (null? sc0) (vector 0 ) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (CoreC-45TT-case--isNVar-9103 e-2 e-3 arg-0 (CoreC-45Name-nameEq arg-0 e-2)))))))) -(define CoreC-45TT-isLet (lambda (arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) 0)(else 1))))) -(define CoreC-45TT-isImplicit (lambda (arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((2) (let ((e-3 (vector-ref sc0 3))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((1) 1)(else 0))))) ((0) (let ((e-8 (vector-ref sc0 3))) (let ((sc1 e-8)) (case (vector-ref sc1 0) ((1) 1)(else 0)))))(else 1))))) -(define CoreC-45TT-isErased (lambda (arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((10) 0)(else 1))))) -(define CoreC-45TT-isConstantType (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 e-0)) (cond ((equal? sc1 "Int") (vector 1 (vector 14 ))) ((equal? sc1 "Int8") (vector 1 (vector 15 ))) ((equal? sc1 "Int16") (vector 1 (vector 16 ))) ((equal? sc1 "Int32") (vector 1 (vector 17 ))) ((equal? sc1 "Int64") (vector 1 (vector 18 ))) ((equal? sc1 "Integer") (vector 1 (vector 19 ))) ((equal? sc1 "Bits8") (vector 1 (vector 20 ))) ((equal? sc1 "Bits16") (vector 1 (vector 21 ))) ((equal? sc1 "Bits32") (vector 1 (vector 22 ))) ((equal? sc1 "Bits64") (vector 1 (vector 23 ))) ((equal? sc1 "String") (vector 1 (vector 24 ))) ((equal? sc1 "Char") (vector 1 (vector 25 ))) ((equal? sc1 "Double") (vector 1 (vector 26 ))) ((equal? sc1 "%World") (vector 1 (vector 27 )))(else (vector 0 ))))))(else (vector 0 )))))) -(define CoreC-45TT-isCon (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (vector 1 (cons e-0 e-1))))) ((3) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 (cons e-2 e-3)))))(else (vector 0 )))))) -(define CoreC-45TT-intKind (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((19) (vector 1 (vector 0 (vector 1 )))) ((15) (vector 1 (vector 0 (vector 0 8)))) ((16) (vector 1 (vector 0 (vector 0 16)))) ((17) (vector 1 (vector 0 (vector 0 32)))) ((18) (vector 1 (vector 0 (vector 0 64)))) ((14) (vector 1 (vector 0 (vector 0 64)))) ((20) (vector 1 (vector 1 8))) ((21) (vector 1 (vector 1 16))) ((22) (vector 1 (vector 1 32))) ((23) (vector 1 (vector 1 64)))(else (vector 0 )))))) -(define CoreC-45TT-insertNames (lambda (arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (CoreC-45TT-case--insertNames-6884 e-4 e-3 e-2 arg-4 arg-3 (CoreC-45TT-insertNVarNames arg-3 arg-4 e-4)))))) ((1) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (vector 1 e-7 e-8 e-9))))) ((2) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 4))) (vector 2 e-11 e-12 e-13 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45TT-insertNames arg-3 arg-4 eta-0)) e-14))))))) ((3) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (vector 3 e-16 e-17 (CoreC-45TT-u--map_Functor_Binder (lambda (eta-0) (CoreC-45TT-insertNames arg-3 arg-4 eta-0)) e-18) (CoreC-45TT-insertNames (CoreC-45TTC-45SizeOf-suc arg-3) arg-4 e-19))))))) ((4) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (vector 4 e-21 (CoreC-45TT-insertNames arg-3 arg-4 e-22) (CoreC-45TT-insertNames arg-3 arg-4 e-23)))))) ((5) (let ((e-25 (vector-ref sc0 1))) (let ((e-26 (vector-ref sc0 2))) (let ((e-27 (vector-ref sc0 3))) (let ((e-28 (vector-ref sc0 4))) (vector 5 e-25 e-26 (CoreC-45TT-insertNames arg-3 arg-4 e-27) (CoreC-45TT-insertNames arg-3 arg-4 e-28))))))) ((6) (let ((e-30 (vector-ref sc0 1))) (let ((e-31 (vector-ref sc0 2))) (let ((e-32 (vector-ref sc0 3))) (vector 6 e-30 e-31 (CoreC-45TT-insertNames arg-3 arg-4 e-32)))))) ((7) (let ((e-34 (vector-ref sc0 1))) (let ((e-35 (vector-ref sc0 2))) (let ((e-36 (vector-ref sc0 3))) (let ((e-37 (vector-ref sc0 4))) (vector 7 e-34 e-35 (CoreC-45TT-insertNames arg-3 arg-4 e-36) (CoreC-45TT-insertNames arg-3 arg-4 e-37))))))) ((8) (let ((e-39 (vector-ref sc0 1))) (let ((e-40 (vector-ref sc0 2))) (let ((e-41 (vector-ref sc0 3))) (vector 8 e-39 e-40 (CoreC-45TT-insertNames arg-3 arg-4 e-41)))))) ((9) (let ((e-43 (vector-ref sc0 1))) (let ((e-44 (vector-ref sc0 2))) (vector 9 e-43 e-44)))) ((10) (let ((e-46 (vector-ref sc0 1))) (let ((e-47 (vector-ref sc0 2))) (vector 10 e-46 e-47)))) (else (let ((e-49 (vector-ref sc0 1))) (vector 11 e-49))))))) -(define CoreC-45TT-insertNVarNames (lambda (arg-4 arg-5 arg-6) (CoreC-45TT-case--insertNVarNames-6680 arg-6 arg-5 arg-4 (CoreC-45TT-sizedView arg-4)))) -(define CoreC-45TT-insertNVar (lambda (arg-4 arg-5) (CoreC-45TT-case--insertNVar-6454 arg-5 arg-4 (CoreC-45TT-sizedView arg-4)))) -(define CoreC-45TT-getRefs (lambda (arg-1 arg-2) (CoreC-45TT-addRefs 1 arg-1 (LibrariesC-45DataC-45NameMap-empty) arg-2))) -(define CoreC-45TT-getMetas (lambda (arg-1) (CoreC-45TT-addMetas (LibrariesC-45DataC-45NameMap-empty) arg-1))) -(define CoreC-45TT-getLoc (lambda (arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) e-2)) ((1) (let ((e-7 (vector-ref sc0 1))) e-7)) ((2) (let ((e-11 (vector-ref sc0 1))) e-11)) ((3) (let ((e-16 (vector-ref sc0 1))) e-16)) ((4) (let ((e-21 (vector-ref sc0 1))) e-21)) ((5) (let ((e-25 (vector-ref sc0 1))) e-25)) ((6) (let ((e-30 (vector-ref sc0 1))) e-30)) ((7) (let ((e-34 (vector-ref sc0 1))) e-34)) ((8) (let ((e-39 (vector-ref sc0 1))) e-39)) ((9) (let ((e-43 (vector-ref sc0 1))) e-43)) ((10) (let ((e-46 (vector-ref sc0 1))) e-46)) (else (let ((e-49 (vector-ref sc0 1))) e-49)))))) -(define CoreC-45TT-getFnArgs (lambda (arg-1) (CoreC-45TT-n--12295-7343-u--getFA arg-1 '() arg-1))) -(define CoreC-45TT-getFn (lambda (arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((4) (let ((e-2 (vector-ref sc0 2))) (CoreC-45TT-getFn e-2)))(else arg-1))))) -(define CoreC-45TT-getArgs (lambda (ext-0) (Builtin-snd (CoreC-45TT-getFnArgs ext-0)))) -(define CoreC-45TT-forgetDef (lambda (arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (vector 1 )) ((0) (vector 0 )) ((2) (vector 2 )) (else (vector 0 )))))) -(define CoreC-45TT-fnType (lambda (arg-0 arg-1 arg-2 arg-3) (vector 3 (CoreC-45FC-emptyFC) (vector 2 "_" 0) (vector 2 arg-1 (AlgebraC-45ZeroOneOmega-u--top_Top_ZeroOneOmega) (vector 1 ) arg-2) (CoreC-45TT-u--weaken_Weaken_Term arg-3)))) -(define CoreC-45TTC-45SubstEnv-findDrop (lambda (arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (if (null? sc0) (vector 0 arg-2 arg-3 arg-4) (let ((sc1 arg-4)) (cond ((equal? sc1 0) (let ((sc2 arg-5)) (let ((e-8 (car sc2))) e-8)))(else (let ((e-4 (- arg-4 1))) (let ((sc1 arg-5)) (let ((e-14 (cdr sc1))) (CoreC-45TTC-45SubstEnv-findDrop arg-2 arg-3 e-4 e-14))))))))))) -(define CoreC-45TTC-45SubstEnv-find (lambda (arg-3 arg-4 arg-5 arg-6 arg-7) (CoreC-45TTC-45SubstEnv-case--find-9338 arg-7 arg-6 arg-5 arg-4 arg-3 (CoreC-45TT-sizedView arg-5)))) -(define CoreC-45TT-eqTerm (lambda (arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-4 (vector-ref sc0 3))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (let ((e-54 (vector-ref sc1 3))) (PreludeC-45Types-u--C-61C-61_Eq_Nat e-4 e-54)))(else 1))))) ((1) (let ((e-9 (vector-ref sc0 3))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((1) (let ((e-59 (vector-ref sc1 3))) (CoreC-45Name-u--C-61C-61_Eq_Name e-9 e-59)))(else 1))))) ((2) (let ((e-13 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 4))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((2) (let ((e-63 (vector-ref sc1 3))) (let ((e-64 (vector-ref sc1 4))) (PreludeC-45Basics-C-38C-38 (PreludeC-45EqOrd-u--C-61C-61_Eq_Int e-13 e-63) (lambda () (LibrariesC-45DataC-45BoolC-45Extra-allTrue (DataC-45List-u--zipWith_Zippable_List (lambda (eta-0) (lambda (eta-1) (CoreC-45TT-eqTerm eta-0 eta-1))) e-14 e-64)))))))(else 1)))))) ((3) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((3) (let ((e-68 (vector-ref sc1 3))) (let ((e-69 (vector-ref sc1 4))) (PreludeC-45Basics-C-38C-38 (CoreC-45TT-eqBinderBy (lambda (eta-0) (lambda (eta-1) (CoreC-45TT-eqTerm eta-0 eta-1))) e-18 e-68) (lambda () (CoreC-45TT-eqTerm e-19 e-69))))))(else 1)))))) ((4) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((4) (let ((e-72 (vector-ref sc1 2))) (let ((e-73 (vector-ref sc1 3))) (PreludeC-45Basics-C-38C-38 (CoreC-45TT-eqTerm e-22 e-72) (lambda () (CoreC-45TT-eqTerm e-23 e-73))))))(else 1)))))) ((5) (let ((e-27 (vector-ref sc0 3))) (let ((e-28 (vector-ref sc0 4))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((5) (let ((e-77 (vector-ref sc1 3))) (let ((e-78 (vector-ref sc1 4))) (PreludeC-45Basics-C-38C-38 (CoreC-45TT-eqTerm e-27 e-77) (lambda () (CoreC-45TT-eqTerm e-28 e-78))))))(else 1)))))) ((6) (let ((e-32 (vector-ref sc0 3))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((6) (let ((e-82 (vector-ref sc1 3))) (CoreC-45TT-eqTerm e-32 e-82)))(else 1))))) ((7) (let ((e-36 (vector-ref sc0 3))) (let ((e-37 (vector-ref sc0 4))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((7) (let ((e-86 (vector-ref sc1 3))) (let ((e-87 (vector-ref sc1 4))) (PreludeC-45Basics-C-38C-38 (CoreC-45TT-eqTerm e-36 e-86) (lambda () (CoreC-45TT-eqTerm e-37 e-87))))))(else 1)))))) ((8) (let ((e-41 (vector-ref sc0 3))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((8) (let ((e-91 (vector-ref sc1 3))) (CoreC-45TT-eqTerm e-41 e-91)))(else 1))))) ((9) (let ((e-44 (vector-ref sc0 2))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((9) (let ((e-94 (vector-ref sc1 2))) (CoreC-45TT-u--C-61C-61_Eq_Constant e-44 e-94)))(else 1))))) ((10) (let ((e-47 (vector-ref sc0 2))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((10) (let ((e-97 (vector-ref sc1 2))) (PreludeC-45EqOrd-u--C-61C-61_Eq_Bool e-47 e-97)))(else 1))))) ((11) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((11) 0)(else 1))))(else 1))))) -(define CoreC-45TT-eqPiInfoBy (lambda (arg-2 ext-0 ext-1) (CoreC-45TT-n--7157-2435-u--go arg-2 ext-0 ext-1))) -(define CoreC-45TT-eqBinderBy (lambda (arg-2 ext-0 ext-1) (CoreC-45TT-n--9495-4799-u--go arg-2 ext-0 ext-1))) -(define CoreC-45TT-embedSub (lambda (arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (CoreC-45TT-case--embedSub-8421 e-4 e-3 e-2 arg-2 (CoreC-45TT-varEmbedSub arg-2 e-4)))))) ((1) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (vector 1 e-7 e-8 e-9))))) ((2) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 4))) (vector 2 e-11 e-12 e-13 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45TT-embedSub arg-2 eta-0)) e-14))))))) ((3) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (vector 3 e-16 e-17 (CoreC-45TT-u--map_Functor_Binder (lambda (eta-0) (CoreC-45TT-embedSub arg-2 eta-0)) e-18) (CoreC-45TT-embedSub (vector 2 arg-2) e-19))))))) ((4) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (vector 4 e-21 (CoreC-45TT-embedSub arg-2 e-22) (CoreC-45TT-embedSub arg-2 e-23)))))) ((5) (let ((e-25 (vector-ref sc0 1))) (let ((e-26 (vector-ref sc0 2))) (let ((e-27 (vector-ref sc0 3))) (let ((e-28 (vector-ref sc0 4))) (vector 5 e-25 e-26 (CoreC-45TT-embedSub arg-2 e-27) (CoreC-45TT-embedSub arg-2 e-28))))))) ((6) (let ((e-30 (vector-ref sc0 1))) (let ((e-31 (vector-ref sc0 2))) (let ((e-32 (vector-ref sc0 3))) (vector 6 e-30 e-31 (CoreC-45TT-embedSub arg-2 e-32)))))) ((7) (let ((e-34 (vector-ref sc0 1))) (let ((e-35 (vector-ref sc0 2))) (let ((e-36 (vector-ref sc0 3))) (let ((e-37 (vector-ref sc0 4))) (vector 7 e-34 e-35 (CoreC-45TT-embedSub arg-2 e-36) (CoreC-45TT-embedSub arg-2 e-37))))))) ((8) (let ((e-39 (vector-ref sc0 1))) (let ((e-40 (vector-ref sc0 2))) (let ((e-41 (vector-ref sc0 3))) (vector 8 e-39 e-40 (CoreC-45TT-embedSub arg-2 e-41)))))) ((9) (let ((e-43 (vector-ref sc0 1))) (let ((e-44 (vector-ref sc0 2))) (vector 9 e-43 e-44)))) ((10) (let ((e-46 (vector-ref sc0 1))) (let ((e-47 (vector-ref sc0 2))) (vector 10 e-46 e-47)))) (else (let ((e-49 (vector-ref sc0 1))) (vector 11 e-49))))))) -(define CoreC-45TT-embed (lambda (arg-2) (Builtin-believe_me arg-2))) -(define CoreC-45TT-dropVar (lambda (arg-1 arg-2) (let ((sc0 arg-1)) (let ((e-1 (car sc0))) (let ((e-2 (cdr sc0))) (let ((sc1 arg-2)) (cond ((equal? sc1 0) e-2)(else (let ((e-3 (- arg-2 1))) (cons e-1 (CoreC-45TT-dropVar e-2 e-3))))))))))) -(define CoreC-45TT-dropFirst (lambda (arg-2) (let ((sc0 arg-2)) (if (null? sc0) '() (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (cond ((equal? sc1 0) (CoreC-45TT-dropFirst e-3))(else (let ((e-8 (- e-2 1))) (cons e-8 (CoreC-45TT-dropFirst e-3)))))))))))) -(define CoreC-45TT-constantEq (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) (let ((e-9 (vector-ref sc1 1))) (CoreC-45TT-case--constantEq-1011 e-0 e-9 (DecidableC-45Equality-u--decEq_DecEq_Int e-0 e-9))))(else (vector 0 )))))) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) (let ((e-10 (vector-ref sc1 1))) (CoreC-45TT-case--constantEq-1043 e-1 e-10 (DecidableC-45Equality-u--decEq_DecEq_Integer e-1 e-10))))(else (vector 0 )))))) ((2) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((2) (let ((e-11 (vector-ref sc1 1))) (CoreC-45TT-case--constantEq-1075 e-2 e-11 (DecidableC-45Equality-u--decEq_DecEq_Integer e-2 e-11))))(else (vector 0 )))))) ((3) (let ((e-3 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((3) (let ((e-12 (vector-ref sc1 1))) (CoreC-45TT-case--constantEq-1107 e-3 e-12 (DecidableC-45Equality-u--decEq_DecEq_Integer e-3 e-12))))(else (vector 0 )))))) ((4) (let ((e-4 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((4) (let ((e-13 (vector-ref sc1 1))) (CoreC-45TT-case--constantEq-1139 e-4 e-13 (DecidableC-45Equality-u--decEq_DecEq_Integer e-4 e-13))))(else (vector 0 )))))) ((5) (let ((e-5 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((5) (let ((e-14 (vector-ref sc1 1))) (CoreC-45TT-case--constantEq-1171 e-5 e-14 (DecidableC-45Equality-u--decEq_DecEq_Integer e-5 e-14))))(else (vector 0 )))))) ((10) (let ((e-6 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((10) (let ((e-15 (vector-ref sc1 1))) (CoreC-45TT-case--constantEq-1203 e-6 e-15 (DecidableC-45Equality-u--decEq_DecEq_String e-6 e-15))))(else (vector 0 )))))) ((11) (let ((e-7 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((11) (let ((e-16 (vector-ref sc1 1))) (CoreC-45TT-case--constantEq-1235 e-7 e-16 (DecidableC-45Equality-u--decEq_DecEq_Char e-7 e-16))))(else (vector 0 )))))) ((12) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((12) (vector 0 ))(else (vector 0 ))))) ((13) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((13) (vector 1 (vector 0 )))(else (vector 0 ))))) ((14) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((14) (vector 1 (vector 0 )))(else (vector 0 ))))) ((15) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((15) (vector 1 (vector 0 )))(else (vector 0 ))))) ((16) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((16) (vector 1 (vector 0 )))(else (vector 0 ))))) ((17) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((17) (vector 1 (vector 0 )))(else (vector 0 ))))) ((18) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((18) (vector 1 (vector 0 )))(else (vector 0 ))))) ((19) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((19) (vector 1 (vector 0 )))(else (vector 0 ))))) ((24) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((24) (vector 1 (vector 0 )))(else (vector 0 ))))) ((25) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((25) (vector 1 (vector 0 )))(else (vector 0 ))))) ((26) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((26) (vector 1 (vector 0 )))(else (vector 0 ))))) ((27) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((27) (vector 1 (vector 0 )))(else (vector 0 )))))(else (vector 0 )))))) -(define CoreC-45TT-constTag (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((14) 3) ((19) 4) ((20) 5) ((21) 6) ((22) 7) ((23) 8) ((24) 9) ((25) 10) ((26) 11) ((27) 12) ((15) 13) ((16) 14) ((17) 15) ((18) 16)(else 0))))) -(define CoreC-45TT-compatible (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((2) 0)(else (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((2) 0)(else (CoreC-45TT-u--C-61C-61_Eq_LazyReason arg-0 arg-1))))))))) -(define CoreC-45TT-binderType (lambda (arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-4 (vector-ref sc0 4))) e-4)) ((1) (let ((e-9 (vector-ref sc0 4))) e-9)) ((2) (let ((e-14 (vector-ref sc0 4))) e-14)) ((3) (let ((e-19 (vector-ref sc0 4))) e-19)) ((4) (let ((e-24 (vector-ref sc0 4))) e-24)) (else (let ((e-28 (vector-ref sc0 3))) e-28)))))) -(define CoreC-45TT-binderLoc (lambda (arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) e-1)) ((1) (let ((e-6 (vector-ref sc0 1))) e-6)) ((2) (let ((e-11 (vector-ref sc0 1))) e-11)) ((3) (let ((e-16 (vector-ref sc0 1))) e-16)) ((4) (let ((e-21 (vector-ref sc0 1))) e-21)) (else (let ((e-26 (vector-ref sc0 1))) e-26)))))) -(define CoreC-45TT-applyWithFC (lambda (arg-1 arg-2) (let ((sc0 arg-2)) (if (null? sc0) arg-1 (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (CoreC-45TT-applyWithFC (vector 4 e-6 arg-1 e-7) e-3)))))))))) -(define CoreC-45TT-apply (lambda (arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (if (null? sc0) arg-2 (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (CoreC-45TT-apply arg-1 (vector 4 arg-1 arg-2 e-2) e-3))))))) -(define CoreC-45TT-addVars (lambda (arg-4 ext-0 ext-1) (CoreC-45TT-insertNVarNames arg-4 (CoreC-45TTC-45Bounds-sizeOf ext-0) ext-1))) -(define CoreC-45TT-addRefs (lambda (arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) arg-3) ((1) (let ((e-9 (vector-ref sc0 3))) (LibrariesC-45DataC-45NameMap-insert e-9 arg-1 arg-3))) ((2) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 4))) (CoreC-45TT-n--15143-9874-u--addRefsArgs e-14 e-13 e-12 e-11 arg-3 arg-2 arg-1 arg-3 e-14)))))) ((3) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (let ((sc1 e-18)) (case (vector-ref sc1 0) ((1) (let ((e-53 (vector-ref sc1 3))) (let ((e-54 (vector-ref sc1 4))) (CoreC-45TT-addRefs arg-1 arg-2 (CoreC-45TT-addRefs arg-1 arg-2 (CoreC-45TT-addRefs arg-1 arg-2 arg-3 e-53) e-54) e-19))))(else (CoreC-45TT-addRefs arg-1 arg-2 (CoreC-45TT-addRefs arg-1 arg-2 arg-3 (CoreC-45TT-binderType e-18)) e-19))))))) ((4) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (let ((sc1 e-22)) (case (vector-ref sc1 0) ((4) (let ((e-56 (vector-ref sc1 1))) (let ((e-57 (vector-ref sc1 2))) (let ((e-58 (vector-ref sc1 3))) (let ((sc2 e-57)) (case (vector-ref sc2 0) ((1) (let ((e-60 (vector-ref sc2 1))) (let ((e-61 (vector-ref sc2 2))) (let ((e-62 (vector-ref sc2 3))) (CoreC-45TT-case--addRefs-9923 e-21 e-56 e-61 e-62 e-60 e-58 e-23 arg-3 arg-2 arg-1 (CoreC-45Name-u--C-61C-61_Eq_Name e-62 arg-2))))))(else (CoreC-45TT-addRefs arg-1 arg-2 (CoreC-45TT-addRefs arg-1 arg-2 arg-3 e-22) e-23))))))))(else (CoreC-45TT-addRefs arg-1 arg-2 (CoreC-45TT-addRefs arg-1 arg-2 arg-3 e-22) e-23)))))))) ((5) (let ((e-28 (vector-ref sc0 4))) (CoreC-45TT-addRefs arg-1 arg-2 arg-3 e-28))) ((6) (let ((e-32 (vector-ref sc0 3))) (CoreC-45TT-addRefs arg-1 arg-2 arg-3 e-32))) ((7) (let ((e-36 (vector-ref sc0 3))) (let ((e-37 (vector-ref sc0 4))) (CoreC-45TT-addRefs arg-1 arg-2 (CoreC-45TT-addRefs arg-1 arg-2 arg-3 e-36) e-37)))) ((8) (let ((e-41 (vector-ref sc0 3))) (CoreC-45TT-addRefs arg-1 arg-2 arg-3 e-41))) ((9) arg-3) ((10) arg-3) (else arg-3))))) -(define CoreC-45TT-addMetas (lambda (arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) arg-1) ((1) arg-1) ((2) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 4))) (CoreC-45TT-n--15027-9780-u--addMetaArgs e-14 e-13 e-12 e-11 arg-1 (LibrariesC-45DataC-45NameMap-insert e-12 1 arg-1) e-14)))))) ((3) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (let ((sc1 e-18)) (case (vector-ref sc1 0) ((1) (let ((e-53 (vector-ref sc1 3))) (let ((e-54 (vector-ref sc1 4))) (CoreC-45TT-addMetas (CoreC-45TT-addMetas (CoreC-45TT-addMetas arg-1 e-53) e-54) e-19))))(else (CoreC-45TT-addMetas (CoreC-45TT-addMetas arg-1 (CoreC-45TT-binderType e-18)) e-19))))))) ((4) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (CoreC-45TT-addMetas (CoreC-45TT-addMetas arg-1 e-22) e-23)))) ((5) (let ((e-28 (vector-ref sc0 4))) (CoreC-45TT-addMetas arg-1 e-28))) ((6) (let ((e-32 (vector-ref sc0 3))) (CoreC-45TT-addMetas arg-1 e-32))) ((7) (let ((e-36 (vector-ref sc0 3))) (let ((e-37 (vector-ref sc0 4))) (CoreC-45TT-addMetas (CoreC-45TT-addMetas arg-1 e-36) e-37)))) ((8) (let ((e-41 (vector-ref sc0 3))) (CoreC-45TT-addMetas arg-1 e-41))) ((9) arg-1) ((10) arg-1) (else arg-1))))) -(define CoreC-45TTC-45SizeOf-C-43 (lambda (arg-3 arg-4) (+ arg-3 arg-4))) -(define Algebra-showCount (lambda (ext-0) (AlgebraC-45Semiring-elimSemi (cons (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-2) (lambda (arg-3) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-4 arg-5))))) "0 " "1 " (lambda (eta-0) "") ext-0))) -(define AlgebraC-45Preorder-case--glb-523 (lambda (arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) arg-3) (else arg-2))))) -(define AlgebraC-45Preorder-case--lub-484 (lambda (arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) arg-2) (else arg-3))))) -(define AlgebraC-45Preorder-lub (lambda (arg-1 arg-2 arg-3) (AlgebraC-45Preorder-case--lub-484 arg-1 arg-3 arg-2 (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) ((e-1 arg-2) arg-3)))))) -(define AlgebraC-45Preorder-glb (lambda (arg-1 arg-2 arg-3) (AlgebraC-45Preorder-case--glb-523 arg-1 arg-3 arg-2 (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) ((e-1 arg-2) arg-3)))))) -(define AlgebraC-45Preorder-C-60 (lambda (arg-1 arg-2 arg-3) (PreludeC-45Basics-C-38C-38 (let ((sc0 (Builtin-fst arg-1))) (let ((e-1 (vector-ref sc0 1))) ((e-1 arg-2) arg-3))) (lambda () (let ((sc0 (Builtin-snd arg-1))) (let ((e-2 (cdr sc0))) ((e-2 arg-2) arg-3))))))) -(define AlgebraC-45Semiring-case--branchVal-714 (lambda (arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (arg-5)) (else (arg-4)))))) -(define AlgebraC-45Semiring-case--branchOne-663 (lambda (arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (arg-5)) (else (arg-4)))))) -(define AlgebraC-45Semiring-case--branchZero-612 (lambda (arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (arg-5)) (else (arg-4)))))) -(define AlgebraC-45Semiring-case--caseC-32blockC-32inC-32elimSemi-512 (lambda (arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) arg-5) (else (arg-4 arg-3)))))) -(define AlgebraC-45Semiring-case--elimSemi-462 (lambda (arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) arg-6) (else (AlgebraC-45Semiring-case--caseC-32blockC-32inC-32elimSemi-512 arg-2 arg-3 arg-4 arg-5 arg-6 (let ((sc1 (Builtin-snd arg-2))) (let ((e-1 (car sc1))) ((e-1 arg-3) (let ((sc2 (Builtin-fst arg-2))) (let ((e-4 (vector-ref sc2 4))) e-4))))))))))) -(define AlgebraC-45Semiring-linear (lambda (arg-1) (let ((sc0 arg-1)) (let ((e-4 (vector-ref sc0 4))) e-4)))) -(define AlgebraC-45Semiring-isRigOther (lambda (arg-1 ext-0) (AlgebraC-45Semiring-elimSemi arg-1 1 1 (lambda (eta-0) 0) ext-0))) -(define AlgebraC-45Semiring-isLinear (lambda (arg-1 ext-0) (AlgebraC-45Semiring-elimSemi arg-1 1 0 (lambda (eta-0) 1) ext-0))) -(define AlgebraC-45Semiring-isErased (lambda (arg-1 ext-0) (AlgebraC-45Semiring-elimSemi arg-1 0 1 (lambda (eta-0) 1) ext-0))) -(define AlgebraC-45Semiring-erased (lambda (arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) e-2)))) -(define AlgebraC-45Semiring-elimSemi (lambda (arg-2 arg-3 arg-4 arg-5 arg-6) (AlgebraC-45Semiring-case--elimSemi-462 arg-2 arg-6 arg-5 arg-4 arg-3 (let ((sc0 (Builtin-snd arg-2))) (let ((e-1 (car sc0))) ((e-1 arg-6) (let ((sc1 (Builtin-fst arg-2))) (let ((e-5 (vector-ref sc1 2))) e-5)))))))) -(define AlgebraC-45Semiring-branchZero (lambda (arg-2 arg-3 arg-4 arg-5) (AlgebraC-45Semiring-case--branchZero-612 arg-2 arg-5 arg-4 arg-3 (AlgebraC-45Semiring-isErased arg-2 arg-5)))) -(define AlgebraC-45Semiring-branchVal (lambda (arg-2 arg-3 arg-4 arg-5) (AlgebraC-45Semiring-case--branchVal-714 arg-2 arg-5 arg-4 arg-3 (AlgebraC-45Semiring-isRigOther arg-2 arg-5)))) -(define AlgebraC-45Semiring-branchOne (lambda (arg-2 arg-3 arg-4 arg-5) (AlgebraC-45Semiring-case--branchOne-663 arg-2 arg-5 arg-4 arg-3 (AlgebraC-45Semiring-isLinear arg-2 arg-5)))) -(define AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega (lambda (ext-0 ext-1) (AlgebraC-45ZeroOneOmega-rigPlus ext-0 ext-1))) -(define AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega (lambda (ext-0 ext-1) (AlgebraC-45ZeroOneOmega-rigMult ext-0 ext-1))) -(define AlgebraC-45ZeroOneOmega-u--top_Top_ZeroOneOmega (lambda () (vector 2 ))) -(define AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega (lambda () (vector 1 ))) -(define AlgebraC-45ZeroOneOmega-u--show_Show_ZeroOneOmega (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) "Rig0") ((1) "Rig1") (else "RigW"))))) -(define AlgebraC-45ZeroOneOmega-u--showPrec_Show_ZeroOneOmega (lambda (arg-0 arg-1) (AlgebraC-45ZeroOneOmega-u--show_Show_ZeroOneOmega arg-1))) -(define AlgebraC-45ZeroOneOmega-u--preorderTrans_Preorder_ZeroOneOmega (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (vector 0 )) ((1) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((1) (vector 0 )) (else (vector 0 ))))) (else (let ((sc1 arg-1)) arg-4)))))) -(define AlgebraC-45ZeroOneOmega-u--preorderRefl_Preorder_ZeroOneOmega (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (vector 0 )) ((1) (vector 0 )) (else (vector 0 )))))) -(define AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega (lambda () (vector 0 ))) -(define AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) 0)(else 1)))) ((1) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) 0)(else 1)))) ((2) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((2) 0)(else 1))))(else 1))))) -(define AlgebraC-45ZeroOneOmega-u--C-60C-61_Preorder_ZeroOneOmega (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) 0) ((1) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) 0) ((2) 0)(else 1)))) ((2) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((2) 0)(else 1))))(else 1))))) -(define AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega (lambda (arg-0 arg-1) (let ((sc0 (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-0 arg-1))) (cond ((equal? sc0 0) 1) (else 0))))) -(define AlgebraC-45ZeroOneOmega-rigPlus (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) arg-1)(else (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) arg-0)(else (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (vector 2 ))(else (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (vector 2 ))(else (let ((sc0 arg-0)) (let ((sc1 arg-1)) (vector 2 ))))))))))))))))) -(define AlgebraC-45ZeroOneOmega-rigMult (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (vector 0 ))(else (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 ))(else (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) arg-1)(else (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) arg-0)(else (let ((sc0 arg-0)) (let ((sc1 arg-1)) (vector 2 ))))))))))))))))) -(define LibrariesC-45DataC-45NameMap-case--delete-4020 (lambda (arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (cons (+ 1 arg-1) e-2))) (else (let ((e-5 (vector-ref sc0 1))) (cons arg-1 e-5))))))) -(define LibrariesC-45DataC-45NameMap-case--delete-3983 (lambda (arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (cons 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) '()))))))) -(define LibrariesC-45DataC-45NameMap-case--insert-3898 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (cons arg-1 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (cons (+ 1 arg-1) e-5))))))) -(define LibrariesC-45DataC-45NameMap-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32treeDelete-3692 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 (vector 2 arg-6 arg-5 arg-4 arg-3 e-2)))) (else (let ((e-5 (vector-ref sc0 1))) (vector 0 (LibrariesC-45DataC-45NameMap-merge3 arg-6 arg-5 arg-4 arg-3 e-5)))))))) -(define LibrariesC-45DataC-45NameMap-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32treeDelete-3618 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 (vector 2 arg-6 arg-5 e-2 arg-3 arg-2)))) (else (let ((e-5 (vector-ref sc0 1))) (vector 0 (LibrariesC-45DataC-45NameMap-merge2 arg-6 arg-5 e-5 arg-3 arg-2)))))))) -(define LibrariesC-45DataC-45NameMap-case--caseC-32blockC-32inC-32treeDelete-3594 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (cond ((equal? sc0 0) (LibrariesC-45DataC-45NameMap-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32treeDelete-3618 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (LibrariesC-45DataC-45NameMap-treeDelete (+ 1 arg-1) arg-7 arg-4))) (else (LibrariesC-45DataC-45NameMap-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32treeDelete-3692 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (LibrariesC-45DataC-45NameMap-treeDelete (+ 1 arg-1) arg-7 arg-2))))))) -(define LibrariesC-45DataC-45NameMap-case--caseC-32blockC-32inC-32treeDelete-3520 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 (vector 2 e-2 arg-5 arg-4 arg-3 arg-2)))) (else (let ((e-5 (vector-ref sc0 1))) (vector 0 (LibrariesC-45DataC-45NameMap-merge1 e-5 arg-5 arg-4 arg-3 arg-2)))))))) -(define LibrariesC-45DataC-45NameMap-case--treeDelete-3496 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (cond ((equal? sc0 0) (LibrariesC-45DataC-45NameMap-case--caseC-32blockC-32inC-32treeDelete-3520 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (LibrariesC-45DataC-45NameMap-treeDelete (+ 1 arg-1) arg-7 arg-6))) (else (LibrariesC-45DataC-45NameMap-case--caseC-32blockC-32inC-32treeDelete-3594 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (CoreC-45Name-u--C-60C-61_Ord_Name arg-7 arg-3))))))) -(define LibrariesC-45DataC-45NameMap-case--caseC-32blockC-32inC-32treeDelete-3400 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 (vector 1 arg-4 arg-3 e-2)))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((e-4 (vector-ref sc1 3))) (vector 1 (vector 2 e-2 e-3 e-4 arg-3 e-5)))))) (else (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((e-9 (vector-ref sc1 3))) (let ((e-10 (vector-ref sc1 4))) (let ((e-11 (vector-ref sc1 5))) (vector 0 (LibrariesC-45DataC-45NameMap-branch4 e-7 e-8 e-9 e-10 e-11 arg-3 e-5)))))))))))))))) -(define LibrariesC-45DataC-45NameMap-case--caseC-32blockC-32inC-32treeDelete-3300 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 (vector 1 e-2 arg-3 arg-2)))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((e-4 (vector-ref sc1 3))) (vector 1 (vector 2 e-5 arg-3 e-2 e-3 e-4)))))) (else (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((e-9 (vector-ref sc1 3))) (let ((e-10 (vector-ref sc1 4))) (let ((e-11 (vector-ref sc1 5))) (vector 0 (LibrariesC-45DataC-45NameMap-branch4 e-5 arg-3 e-7 e-8 e-9 e-10 e-11)))))))))))))))) -(define LibrariesC-45DataC-45NameMap-case--treeDelete-3280 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (LibrariesC-45DataC-45NameMap-case--caseC-32blockC-32inC-32treeDelete-3300 arg-1 arg-2 arg-3 arg-4 arg-5 (LibrariesC-45DataC-45NameMap-treeDelete (+ 1 arg-1) arg-5 arg-4))) (else (LibrariesC-45DataC-45NameMap-case--caseC-32blockC-32inC-32treeDelete-3400 arg-1 arg-2 arg-3 arg-4 arg-5 (LibrariesC-45DataC-45NameMap-treeDelete (+ 1 arg-1) arg-5 arg-2))))))) -(define LibrariesC-45DataC-45NameMap-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32treeDelete-3218 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 (vector 2 arg-5 arg-4 arg-3 arg-2 e-2)))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (vector 0 (vector 1 arg-5 arg-4 arg-3))))))))) -(define LibrariesC-45DataC-45NameMap-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32treeDelete-3150 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 (vector 2 arg-5 arg-4 e-2 arg-2 arg-1)))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (vector 0 (vector 1 arg-5 arg-4 arg-1))))))))) -(define LibrariesC-45DataC-45NameMap-case--caseC-32blockC-32inC-32treeDelete-3128 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (LibrariesC-45DataC-45NameMap-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32treeDelete-3150 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (LibrariesC-45DataC-45NameMap-treeDelete 0 arg-6 arg-3))) (else (LibrariesC-45DataC-45NameMap-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32treeDelete-3218 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (LibrariesC-45DataC-45NameMap-treeDelete 0 arg-6 arg-1))))))) -(define LibrariesC-45DataC-45NameMap-case--caseC-32blockC-32inC-32treeDelete-3060 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 (vector 2 e-2 arg-4 arg-3 arg-2 arg-1)))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (vector 0 (vector 1 arg-3 arg-2 arg-1))))))))) -(define LibrariesC-45DataC-45NameMap-case--treeDelete-3038 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (LibrariesC-45DataC-45NameMap-case--caseC-32blockC-32inC-32treeDelete-3060 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (LibrariesC-45DataC-45NameMap-treeDelete 0 arg-6 arg-5))) (else (LibrariesC-45DataC-45NameMap-case--caseC-32blockC-32inC-32treeDelete-3128 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (CoreC-45Name-u--C-60C-61_Ord_Name arg-6 arg-2))))))) -(define LibrariesC-45DataC-45NameMap-case--caseC-32blockC-32inC-32treeDelete-2988 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 (vector 1 arg-3 arg-2 e-2)))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (vector 1 arg-3)))))))) -(define LibrariesC-45DataC-45NameMap-case--caseC-32blockC-32inC-32treeDelete-2934 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 (vector 1 e-2 arg-2 arg-1)))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (vector 1 arg-1)))))))) -(define LibrariesC-45DataC-45NameMap-case--treeDelete-2916 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (LibrariesC-45DataC-45NameMap-case--caseC-32blockC-32inC-32treeDelete-2934 arg-1 arg-2 arg-3 arg-4 (LibrariesC-45DataC-45NameMap-treeDelete 0 arg-4 arg-3))) (else (LibrariesC-45DataC-45NameMap-case--caseC-32blockC-32inC-32treeDelete-2988 arg-1 arg-2 arg-3 arg-4 (LibrariesC-45DataC-45NameMap-treeDelete 0 arg-4 arg-1))))))) -(define LibrariesC-45DataC-45NameMap-case--treeDelete-2868 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (vector 1 (vector 0 ))) (else (vector 0 (vector 0 arg-2 arg-1))))))) -(define LibrariesC-45DataC-45NameMap-case--treeInsert-2799 (lambda (arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-8 (car sc1))) (let ((e-9 (cdr sc1))) (let ((sc2 e-9)) (let ((e-12 (car sc2))) (let ((e-13 (cdr sc2))) (vector 1 (vector 1 e-8 e-12 e-13)))))))))))))) -(define LibrariesC-45DataC-45NameMap-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32treeInsertC-39-2702 (lambda (arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 (vector 2 arg-6 arg-5 arg-4 arg-3 e-2)))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-8 (car sc1))) (let ((e-9 (cdr sc1))) (let ((sc2 e-9)) (let ((e-12 (car sc2))) (let ((e-13 (cdr sc2))) (vector 1 (cons (vector 1 arg-6 arg-5 arg-4) (cons arg-3 (vector 1 e-8 e-12 e-13)))))))))))))))) -(define LibrariesC-45DataC-45NameMap-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32treeInsertC-39-2591 (lambda (arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 (vector 2 arg-6 arg-5 e-2 arg-3 arg-2)))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-8 (car sc1))) (let ((e-9 (cdr sc1))) (let ((sc2 e-9)) (let ((e-12 (car sc2))) (let ((e-13 (cdr sc2))) (vector 1 (cons (vector 1 arg-6 arg-5 e-8) (cons e-12 (vector 1 e-13 arg-3 arg-2)))))))))))))))) -(define LibrariesC-45DataC-45NameMap-case--caseC-32blockC-32inC-32treeInsertC-39-2560 (lambda (arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (LibrariesC-45DataC-45NameMap-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32treeInsertC-39-2591 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-9 (LibrariesC-45DataC-45NameMap-treeInsertC-39 arg-7 arg-9 arg-4))) (else (LibrariesC-45DataC-45NameMap-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32treeInsertC-39-2702 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-9 (LibrariesC-45DataC-45NameMap-treeInsertC-39 arg-7 arg-9 arg-2))))))) -(define LibrariesC-45DataC-45NameMap-case--caseC-32blockC-32inC-32treeInsertC-39-2450 (lambda (arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 (vector 2 e-2 arg-5 arg-4 arg-3 arg-2)))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-8 (car sc1))) (let ((e-9 (cdr sc1))) (let ((sc2 e-9)) (let ((e-12 (car sc2))) (let ((e-13 (cdr sc2))) (vector 1 (cons (vector 1 e-8 e-12 e-13) (cons arg-5 (vector 1 arg-4 arg-3 arg-2)))))))))))))))) -(define LibrariesC-45DataC-45NameMap-case--treeInsertC-39-2419 (lambda (arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (LibrariesC-45DataC-45NameMap-case--caseC-32blockC-32inC-32treeInsertC-39-2450 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-2 (LibrariesC-45DataC-45NameMap-treeInsertC-39 arg-8 arg-2 arg-7))) (else (LibrariesC-45DataC-45NameMap-case--caseC-32blockC-32inC-32treeInsertC-39-2560 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-2 (CoreC-45Name-u--C-60C-61_Ord_Name arg-8 arg-4))))))) -(define LibrariesC-45DataC-45NameMap-case--caseC-32blockC-32inC-32treeInsertC-39-2341 (lambda (arg-2 arg-3 arg-4 arg-5 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 (vector 1 arg-4 arg-3 e-2)))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-8 (car sc1))) (let ((e-9 (cdr sc1))) (let ((sc2 e-9)) (let ((e-12 (car sc2))) (let ((e-13 (cdr sc2))) (vector 0 (vector 2 arg-4 arg-3 e-8 e-12 e-13)))))))))))))) -(define LibrariesC-45DataC-45NameMap-case--caseC-32blockC-32inC-32treeInsertC-39-2252 (lambda (arg-2 arg-3 arg-4 arg-5 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 (vector 1 e-2 arg-3 arg-2)))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-8 (car sc1))) (let ((e-9 (cdr sc1))) (let ((sc2 e-9)) (let ((e-12 (car sc2))) (let ((e-13 (cdr sc2))) (vector 0 (vector 2 e-8 e-12 e-13 arg-3 arg-2)))))))))))))) -(define LibrariesC-45DataC-45NameMap-case--treeInsertC-39-2225 (lambda (arg-2 arg-3 arg-4 arg-5 arg-6 arg-8) (let ((sc0 arg-8)) (cond ((equal? sc0 0) (LibrariesC-45DataC-45NameMap-case--caseC-32blockC-32inC-32treeInsertC-39-2252 arg-3 arg-4 arg-5 arg-6 arg-2 (LibrariesC-45DataC-45NameMap-treeInsertC-39 arg-6 arg-2 arg-5))) (else (LibrariesC-45DataC-45NameMap-case--caseC-32blockC-32inC-32treeInsertC-39-2341 arg-3 arg-4 arg-5 arg-6 arg-2 (LibrariesC-45DataC-45NameMap-treeInsertC-39 arg-6 arg-2 arg-3))))))) -(define LibrariesC-45DataC-45NameMap-case--treeInsertC-39-2123 (lambda (arg-1 arg-2 arg-3 arg-4 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (vector 1 (cons (vector 0 arg-4 arg-1) (cons arg-4 (vector 0 arg-3 arg-2))))) ((equal? sc0 1) (vector 0 (vector 0 arg-4 arg-1))) (else (vector 1 (cons (vector 0 arg-3 arg-2) (cons arg-3 (vector 0 arg-4 arg-1))))))))) -(define LibrariesC-45DataC-45NameMap-case--caseC-32blockC-32inC-32treeLookup-2062 (lambda (arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-9) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (LibrariesC-45DataC-45NameMap-treeLookup arg-7 arg-4)) (else (LibrariesC-45DataC-45NameMap-treeLookup arg-7 arg-2)))))) -(define LibrariesC-45DataC-45NameMap-case--treeLookup-2015 (lambda (arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-9) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (LibrariesC-45DataC-45NameMap-treeLookup arg-7 arg-6)) (else (LibrariesC-45DataC-45NameMap-case--caseC-32blockC-32inC-32treeLookup-2062 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (CoreC-45Name-u--C-60C-61_Ord_Name arg-7 arg-3))))))) -(define LibrariesC-45DataC-45NameMap-case--treeLookup-1967 (lambda (arg-2 arg-3 arg-4 arg-5 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (LibrariesC-45DataC-45NameMap-treeLookup arg-5 arg-4)) (else (LibrariesC-45DataC-45NameMap-treeLookup arg-5 arg-2)))))) -(define LibrariesC-45DataC-45NameMap-case--treeLookup-1924 (lambda (arg-1 arg-2 arg-3 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (vector 1 arg-1)) (else (vector 0 )))))) -(define LibrariesC-45DataC-45NameMap-n--4957-3748-u--treeToListC-39 (lambda (arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (cons (cons e-1 e-2) arg-3)))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 3))) (LibrariesC-45DataC-45NameMap-n--4957-3748-u--treeToListC-39 (LibrariesC-45DataC-45NameMap-n--4957-3748-u--treeToListC-39 arg-3 e-7) e-5)))) (else (let ((e-10 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 5))) (LibrariesC-45DataC-45NameMap-n--4957-3748-u--treeToListC-39 (LibrariesC-45DataC-45NameMap-n--4957-3748-u--treeToListC-39 (LibrariesC-45DataC-45NameMap-n--4957-3748-u--treeToListC-39 arg-3 e-14) e-12) e-10))))))))) -(define LibrariesC-45DataC-45NameMap-n--5733-4542-u--loop (lambda (arg-4 arg-5 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 arg-4)) (let ((e-4 (vector-ref sc1 2))) ((((e-4 'erased) 'erased) (arg-5 e-1)) (lambda (_-0) (let ((sc2 _-0)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 1))) (let ((sc3 arg-4)) (let ((e-9 (vector-ref sc3 1))) (let ((sc4 e-9)) (let ((e-11 (vector-ref sc4 2))) ((e-11 'erased) (LibrariesC-45DataC-45NameMap-insert e-1 e-6 arg-7))))))))(else (let ((sc2 arg-4)) (let ((e-8 (vector-ref sc2 1))) (let ((sc3 e-8)) (let ((e-10 (vector-ref sc3 2))) ((e-10 'erased) arg-7)))))))))))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 3))) (let ((sc1 arg-4)) (let ((e-2 (vector-ref sc1 2))) ((((e-2 'erased) 'erased) (LibrariesC-45DataC-45NameMap-n--5733-4542-u--loop arg-4 arg-5 arg-7 e-5)) (lambda (u--acc) (LibrariesC-45DataC-45NameMap-n--5733-4542-u--loop arg-4 arg-5 u--acc e-7)))))))) (else (let ((e-10 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 5))) (let ((sc1 arg-4)) (let ((e-2 (vector-ref sc1 2))) ((((e-2 'erased) 'erased) (LibrariesC-45DataC-45NameMap-n--5733-4542-u--loop arg-4 arg-5 arg-7 e-10)) (lambda (u--acc) (let ((sc2 arg-4)) (let ((e-5 (vector-ref sc2 2))) ((((e-5 'erased) 'erased) (LibrariesC-45DataC-45NameMap-n--5733-4542-u--loop arg-4 arg-5 u--acc e-12)) (lambda (acc-0) (LibrariesC-45DataC-45NameMap-n--5733-4542-u--loop arg-4 arg-5 acc-0 e-14))))))))))))))))) +(define DataC-45Nat-pred (lambda (arg-0) (cond ((equal? arg-0 0) 0)(else (let ((e-0 (- arg-0 1))) e-0))))) +(define DataC-45Nat-lte (lambda (arg-0 arg-1) (cond ((equal? arg-0 0) 1)(else (cond ((equal? arg-1 0) 0)(else (cond ((equal? arg-0 0) (blodwen-error-quit "Nat case not covered"))(else (let ((e-0 (- arg-0 1))) (cond ((equal? arg-1 0) (blodwen-error-quit "Nat case not covered"))(else (let ((e-1 (- arg-1 1))) (DataC-45Nat-lte e-0 e-1))))))))))))) +(define DataC-45Nat-isSucc (lambda (arg-0) (cond ((equal? arg-0 0) 0)(else 1)))) +(define DataC-45Nat-isLTE (lambda (arg-0 arg-1) (cond ((equal? arg-0 0) (vector 0 '()))(else (let ((e-0 (- arg-0 1))) (cond ((equal? arg-1 0) (vector 1 (lambda (eta-0) (DataC-45Nat-succNotLTEzero eta-0))))(else (let ((e-1 (- arg-1 1))) (let ((sc0 (DataC-45Nat-isLTE e-0 e-1))) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (vector 1 (lambda (eta-0) (e-2 (DataC-45Nat-fromLteSucc eta-0)))))) (else (let ((e-3 (vector-ref sc0 1))) (vector 0 (box e-3)))))))))))))) +(define DataC-45Nat-fromLteSucc (lambda (arg-2) (let ((e-2 (unbox arg-2))) e-2))) +(define DataC-45Nat-divNatNZ (lambda (arg-0 arg-1) (cond ((equal? arg-1 0) (blodwen-error-quit "Nat case not covered"))(else (let ((e-0 (- arg-1 1))) (DataC-45Nat-divC-39 arg-0 arg-0 e-0)))))) +(define DataC-45Nat-divNat (lambda (arg-0 arg-1) (cond ((equal? arg-1 0) (Builtin-idris_crash "Unhandled input for Data.Nat.divNat at Data.Nat:301:1--301:59"))(else (let ((e-0 (- arg-1 1))) (DataC-45Nat-divNatNZ arg-0 (+ 1 e-0))))))) +(define DataC-45Nat-divC-39 (lambda (arg-0 arg-1 arg-2) (cond ((equal? arg-0 0) 0)(else (let ((e-0 (- arg-0 1))) (let ((sc0 (DataC-45Nat-lte arg-1 arg-2))) (cond ((equal? sc0 1) 0) (else (+ 1 (DataC-45Nat-divC-39 e-0 (PreludeC-45Types-prim__integerToNat (- arg-1 (+ 1 arg-2))) arg-2)))))))))) +(define DataC-45Maybe-toMaybe (lambda (arg-1 arg-2) (cond ((equal? arg-1 1) (box (arg-2))) (else '())))) +(define DataC-45Maybe-isNothing (lambda (arg-1) (if (null? arg-1) 1 0))) +(define DataC-45Maybe-isJust (lambda (arg-1) (if (null? arg-1) 0 1))) +(define DataC-45Maybe-fromMaybe (lambda (arg-1 arg-2) (if (null? arg-2) (arg-1) (let ((e-2 (unbox arg-2))) e-2)))) +(define DataC-45Fuel-forever (lambda () (box (lambda () (DataC-45Fuel-forever))))) +(define SystemC-45Directory-returnError (lambda (arg-2) (let ((e-1 (car arg-2))) (let ((e-4 (vector-ref e-1 1))) ((((e-4 'erased) 'erased) (let ((e-6 (cdr arg-2))) ((e-6 'erased) (lambda (eta-0) (SystemC-45Directory-prim__fileErrno eta-0))))) (lambda (u--err) (let ((e-7 (car arg-2))) (let ((e-10 (vector-ref e-7 0))) (let ((e-12 (vector-ref e-10 1))) ((e-12 'erased) (vector 0 (cond ((equal? u--err 0) (vector 1 )) ((equal? u--err 1) (vector 2 )) ((equal? u--err 2) (vector 3 )) ((equal? u--err 3) (vector 4 )) ((equal? u--err 4) (vector 5 ))(else (vector 0 (PreludeC-45Num-u--C-45_Neg_Int u--err 5))))))))))))))) +(define SystemC-45Directory-openDir (lambda (arg-1 arg-2) (let ((e-1 (car arg-1))) (let ((e-4 (vector-ref e-1 1))) ((((e-4 'erased) 'erased) (let ((e-6 (cdr arg-1))) ((e-6 'erased) (lambda (eta-0) (SystemC-45Directory-prim__openDir arg-2 eta-0))))) (lambda (u--res) (let ((sc1 (PreludeC-45EqOrd-u--C-47C-61_Eq_Int (PrimIO-prim__nullAnyPtr u--res) (blodwen-toSignedInt 0 63)))) (cond ((equal? sc1 1) (SystemC-45Directory-returnError arg-1)) (else (SystemC-45Directory-ok arg-1 u--res)))))))))) +(define SystemC-45Directory-ok (lambda (arg-2 arg-3) (let ((e-1 (car arg-2))) (let ((e-5 (vector-ref e-1 0))) (let ((e-7 (vector-ref e-5 1))) ((e-7 'erased) (vector 1 arg-3))))))) +(define SystemC-45Directory-dirEntry (lambda (arg-1 arg-2) (let ((e-1 (car arg-1))) (let ((e-4 (vector-ref e-1 1))) ((((e-4 'erased) 'erased) (let ((e-6 (cdr arg-1))) ((e-6 'erased) (lambda (eta-0) (SystemC-45Directory-prim__dirEntry arg-2 eta-0))))) (lambda (u--res) (let ((sc1 (PreludeC-45EqOrd-u--C-47C-61_Eq_Int (PrimIO-prim__nullAnyPtr (PrimIO-prim__forgetPtr u--res)) (blodwen-toSignedInt 0 63)))) (cond ((equal? sc1 1) (SystemC-45Directory-returnError arg-1)) (else (SystemC-45Directory-ok arg-1 (PreludeC-45IO-prim__getString u--res))))))))))) +(define SystemC-45Directory-currentDir (lambda (arg-1) (let ((e-1 (car arg-1))) (let ((e-4 (vector-ref e-1 1))) ((((e-4 'erased) 'erased) (let ((e-6 (cdr arg-1))) ((e-6 'erased) (lambda (eta-0) (SystemC-45Directory-prim__currentDir eta-0))))) (lambda (u--res) (let ((sc1 (PreludeC-45EqOrd-u--C-47C-61_Eq_Int (PrimIO-prim__nullAnyPtr (PrimIO-prim__forgetPtr u--res)) (blodwen-toSignedInt 0 63)))) (cond ((equal? sc1 1) (let ((e-7 (car arg-1))) (let ((e-10 (vector-ref e-7 0))) (let ((e-12 (vector-ref e-10 1))) ((e-12 'erased) '()))))) (else (let ((e-7 (car arg-1))) (let ((e-10 (vector-ref e-7 0))) (let ((e-12 (vector-ref e-10 1))) ((e-12 'erased) (box (PreludeC-45IO-prim__getString u--res))))))))))))))) +(define SystemC-45Directory-createDir (lambda (arg-1 arg-2) (let ((e-1 (car arg-1))) (let ((e-4 (vector-ref e-1 1))) ((((e-4 'erased) 'erased) (let ((e-6 (cdr arg-1))) ((e-6 'erased) (lambda (eta-0) (SystemC-45Directory-prim__createDir arg-2 eta-0))))) (lambda (u--res) (let ((sc1 (PreludeC-45EqOrd-u--C-61C-61_Eq_Int u--res (blodwen-toSignedInt 0 63)))) (cond ((equal? sc1 1) (SystemC-45Directory-ok arg-1 0)) (else (SystemC-45Directory-returnError arg-1)))))))))) +(define SystemC-45Directory-closeDir (lambda (arg-1 arg-2) (let ((e-2 (cdr arg-1))) ((e-2 'erased) (lambda (eta-0) (SystemC-45Directory-prim__closeDir arg-2 eta-0)))))) +(define SystemC-45Directory-changeDir (lambda (arg-1 arg-2) (let ((e-1 (car arg-1))) (let ((e-4 (vector-ref e-1 1))) ((((e-4 'erased) 'erased) (let ((e-6 (cdr arg-1))) ((e-6 'erased) (lambda (eta-0) (SystemC-45Directory-prim__changeDir arg-2 eta-0))))) (lambda (u--ok) (let ((e-7 (car arg-1))) (let ((e-10 (vector-ref e-7 0))) (let ((e-12 (vector-ref e-10 1))) ((e-12 'erased) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int u--ok (blodwen-toSignedInt 0 63)))))))))))) +(define IdrisC-45Env-idrisGetEnv (lambda (arg-1 arg-2 arg-3) (System-getEnv arg-1 arg-2))) +(define IdrisC-45Env-envs (lambda () (cons (cons "EDITOR" "Editor used in REPL :e command") (cons (cons "IDRIS2_PREFIX" "Idris2 installation prefix") (cons (cons "IDRIS2_PATH" "Places Idris2 looks for import files") (cons (cons "IDRIS2_PACKAGE_PATH" "Places Idris2 looks for packages") (cons (cons "IDRIS2_DATA" "Places Idris2 looks for data files") (cons (cons "IDRIS2_LIBS" "Places Idris2 looks for libraries (for code generation)") (cons (cons "IDRIS2_CG" "Codegen backend") (cons (cons "CHEZ" "chez executable used in Chez codegen") (cons (cons "RACKET" "racket executable used in Racket codegen") (cons (cons "RACKET_RACO" "raco executable used in Racket codegen") (cons (cons "GAMBIT_GSI" "gsi executable used in Gambit codegen") (cons (cons "GAMBIT_GSC" "gsc executable used in Gambit codegen") (cons (cons "GAMBIT_GSC_BACKEND" "gsc executable backend argument") (cons (cons "IDRIS2_CC" "C compiler executable used in RefC codegen") (cons (cons "CC" "C compiler executable used in RefC codegen") (cons (cons "NODE" "node executable used in Node codegen") (cons (cons "PATH" "PATH variable is used to search for executables in certain codegens") '()))))))))))))))))))) +(define System-system (lambda (arg-1 arg-2) (let ((e-2 (cdr arg-1))) ((e-2 'erased) (lambda (eta-0) (System-prim__system arg-2 eta-0)))))) +(define System-getEnv (lambda (arg-1 arg-2) (let ((e-1 (car arg-1))) (let ((e-4 (vector-ref e-1 1))) ((((e-4 'erased) 'erased) (let ((e-6 (cdr arg-1))) ((e-6 'erased) (lambda (eta-0) (System-prim__getEnv arg-2 eta-0))))) (lambda (u--env) (let ((sc1 (PreludeC-45EqOrd-u--C-47C-61_Eq_Int (PrimIO-prim__nullAnyPtr (PrimIO-prim__forgetPtr u--env)) (blodwen-toSignedInt 0 63)))) (cond ((equal? sc1 1) (let ((e-7 (car arg-1))) (let ((e-10 (vector-ref e-7 0))) (let ((e-12 (vector-ref e-10 1))) ((e-12 'erased) '()))))) (else (let ((e-7 (car arg-1))) (let ((e-10 (vector-ref e-7 0))) (let ((e-12 (vector-ref e-10 1))) ((e-12 'erased) (box (PreludeC-45IO-prim__getString u--env))))))))))))))) +(define System-getArgs (lambda (arg-1) (let ((e-1 (car arg-1))) (let ((e-4 (vector-ref e-1 1))) ((((e-4 'erased) 'erased) (let ((e-6 (cdr arg-1))) ((e-6 'erased) (lambda (eta-0) (System-prim__getArgCount eta-0))))) (lambda (u--n) (let ((sc1 (PreludeC-45EqOrd-u--C-62_Ord_Int u--n (blodwen-toSignedInt 0 63)))) (cond ((equal? sc1 1) (PreludeC-45Interfaces-for (cons (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (PreludeC-45Types-u--map_Functor_List u--func arg-133))))) (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (lambda (u--b) (lambda (u--a) (lambda (u--f) (lambda (i_con-0) (lambda (arg-2543) (lambda (arg-2545) (PreludeC-45Types-u--traverse_Traversable_List i_con-0 arg-2543 arg-2545)))))))) (let ((e-7 (car arg-1))) (let ((e-10 (vector-ref e-7 0))) e-10))) (PreludeC-45Types-u--rangeFromTo_Range_C-36a (cons (vector (vector (lambda (arg-2) (lambda (arg-3) (bs+ arg-2 arg-3 63))) (lambda (arg-4) (lambda (arg-5) (bs* arg-4 arg-5 63))) (lambda (arg-6) (blodwen-toSignedInt arg-6 63))) (lambda (arg-157) (lambda (arg-158) (PreludeC-45Num-u--div_Integral_Int arg-157 arg-158))) (lambda (arg-159) (lambda (arg-160) (PreludeC-45Num-u--mod_Integral_Int arg-159 arg-160)))) (cons (vector (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) (vector (vector (lambda (arg-2) (lambda (arg-3) (bs+ arg-2 arg-3 63))) (lambda (arg-4) (lambda (arg-5) (bs* arg-4 arg-5 63))) (lambda (arg-6) (blodwen-toSignedInt arg-6 63))) (lambda (arg-45) (PreludeC-45Num-u--negate_Neg_Int arg-45)) (lambda (arg-46) (lambda (arg-47) (PreludeC-45Num-u--C-45_Neg_Int arg-46 arg-47)))))) 0 (PreludeC-45Num-u--C-45_Neg_Int u--n 1)) (lambda (eta-0) (let ((e-6 (cdr arg-1))) ((e-6 'erased) (lambda (eta-1) (System-prim__getArg eta-0 eta-1))))))) (else (let ((e-7 (car arg-1))) (let ((e-10 (vector-ref e-7 0))) (let ((e-12 (vector-ref e-10 1))) ((e-12 'erased) '()))))))))))))) +(define System-exitWith (lambda (arg-2 arg-3) (if (null? arg-3) (let ((e-2 (cdr arg-2))) ((e-2 'erased) (Builtin-believe_me (lambda (eta-0) (System-prim__exit 0 eta-0))))) (let ((e-0 (car arg-3))) (let ((e-2 (cdr arg-2))) ((e-2 'erased) (Builtin-believe_me (lambda (eta-0) (System-prim__exit e-0 eta-0))))))))) +(define LibrariesC-45DataC-45NameMap-n--4696-4942-u--treeToListC-39 (lambda (arg-3 arg-4) (case (vector-ref arg-4 0) ((0) (let ((e-1 (vector-ref arg-4 1))) (let ((e-2 (vector-ref arg-4 2))) (cons (cons e-1 e-2) arg-3)))) ((1) (let ((e-5 (vector-ref arg-4 1))) (let ((e-7 (vector-ref arg-4 3))) (LibrariesC-45DataC-45NameMap-n--4696-4942-u--treeToListC-39 (LibrariesC-45DataC-45NameMap-n--4696-4942-u--treeToListC-39 arg-3 e-7) e-5)))) (else (let ((e-10 (vector-ref arg-4 1))) (let ((e-12 (vector-ref arg-4 3))) (let ((e-14 (vector-ref arg-4 5))) (LibrariesC-45DataC-45NameMap-n--4696-4942-u--treeToListC-39 (LibrariesC-45DataC-45NameMap-n--4696-4942-u--treeToListC-39 (LibrariesC-45DataC-45NameMap-n--4696-4942-u--treeToListC-39 arg-3 e-14) e-12) e-10)))))))) +(define LibrariesC-45DataC-45NameMap-n--5579-5816-u--loop (lambda (arg-4 arg-5 arg-7 arg-8) (case (vector-ref arg-8 0) ((0) (let ((e-1 (vector-ref arg-8 1))) (let ((e-4 (vector-ref arg-4 1))) ((((e-4 'erased) 'erased) (arg-5 e-1)) (lambda (_-0) (if (null? _-0) (let ((e-8 (vector-ref arg-4 0))) (let ((e-10 (vector-ref e-8 1))) ((e-10 'erased) arg-7))) (let ((e-6 (unbox _-0))) (let ((e-9 (vector-ref arg-4 0))) (let ((e-11 (vector-ref e-9 1))) ((e-11 'erased) (LibrariesC-45DataC-45NameMap-insert e-1 e-6 arg-7))))))))))) ((1) (let ((e-5 (vector-ref arg-8 1))) (let ((e-7 (vector-ref arg-8 3))) (let ((e-2 (vector-ref arg-4 1))) ((((e-2 'erased) 'erased) (LibrariesC-45DataC-45NameMap-n--5579-5816-u--loop arg-4 arg-5 arg-7 e-5)) (lambda (u--acc) (LibrariesC-45DataC-45NameMap-n--5579-5816-u--loop arg-4 arg-5 u--acc e-7))))))) (else (let ((e-10 (vector-ref arg-8 1))) (let ((e-12 (vector-ref arg-8 3))) (let ((e-14 (vector-ref arg-8 5))) (let ((e-2 (vector-ref arg-4 1))) ((((e-2 'erased) 'erased) (LibrariesC-45DataC-45NameMap-n--5579-5816-u--loop arg-4 arg-5 arg-7 e-10)) (lambda (u--acc) (let ((e-5 (vector-ref arg-4 1))) ((((e-5 'erased) 'erased) (LibrariesC-45DataC-45NameMap-n--5579-5816-u--loop arg-4 arg-5 u--acc e-12)) (lambda (acc-0) (LibrariesC-45DataC-45NameMap-n--5579-5816-u--loop arg-4 arg-5 acc-0 e-14)))))))))))))) +(define LibrariesC-45DataC-45NameMap-n--5304-5538-u--loop (lambda (arg-2 arg-4 arg-5) (case (vector-ref arg-5 0) ((0) (let ((e-1 (vector-ref arg-5 1))) (let ((e-2 (vector-ref arg-5 2))) (let ((sc1 (arg-2 e-1))) (cond ((equal? sc1 1) (LibrariesC-45DataC-45NameMap-insert e-1 e-2 arg-4))(else arg-4)))))) ((1) (let ((e-5 (vector-ref arg-5 1))) (let ((e-7 (vector-ref arg-5 3))) (LibrariesC-45DataC-45NameMap-n--5304-5538-u--loop arg-2 (LibrariesC-45DataC-45NameMap-n--5304-5538-u--loop arg-2 arg-4 e-5) e-7)))) (else (let ((e-10 (vector-ref arg-5 1))) (let ((e-12 (vector-ref arg-5 3))) (let ((e-14 (vector-ref arg-5 5))) (LibrariesC-45DataC-45NameMap-n--5304-5538-u--loop arg-2 (LibrariesC-45DataC-45NameMap-n--5304-5538-u--loop arg-2 (LibrariesC-45DataC-45NameMap-n--5304-5538-u--loop arg-2 arg-4 e-10) e-12) e-14)))))))) (define LibrariesC-45DataC-45NameMap-values (lambda (ext-0) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) (LibrariesC-45DataC-45NameMap-toList ext-0)))) -(define LibrariesC-45DataC-45NameMap-treeToList (lambda (ext-0) (LibrariesC-45DataC-45NameMap-n--4957-3748-u--treeToListC-39 '() ext-0))) -(define LibrariesC-45DataC-45NameMap-treeMapMaybeM (lambda (arg-4 arg-5 ext-0) (LibrariesC-45DataC-45NameMap-n--5733-4542-u--loop arg-4 arg-5 (LibrariesC-45DataC-45NameMap-empty) ext-0))) -(define LibrariesC-45DataC-45NameMap-treeLookup (lambda (arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (LibrariesC-45DataC-45NameMap-case--treeLookup-1924 e-2 e-1 arg-2 (CoreC-45Name-u--C-61C-61_Eq_Name arg-2 e-1))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (LibrariesC-45DataC-45NameMap-case--treeLookup-1967 e-7 e-6 e-5 arg-2 (CoreC-45Name-u--C-60C-61_Ord_Name arg-2 e-6)))))) (else (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (let ((e-13 (vector-ref sc0 4))) (let ((e-14 (vector-ref sc0 5))) (LibrariesC-45DataC-45NameMap-case--treeLookup-2015 e-14 e-13 e-12 e-11 e-10 arg-2 (CoreC-45Name-u--C-60C-61_Ord_Name arg-2 e-11)))))))))))) -(define LibrariesC-45DataC-45NameMap-treeInsertC-39 (lambda (arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (LibrariesC-45DataC-45NameMap-case--treeInsertC-39-2123 arg-3 e-2 e-1 arg-2 (CoreC-45Name-u--compare_Ord_Name arg-2 e-1))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (LibrariesC-45DataC-45NameMap-case--treeInsertC-39-2225 arg-3 e-7 e-6 e-5 arg-2 (CoreC-45Name-u--C-60C-61_Ord_Name arg-2 e-6)))))) (else (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (let ((e-13 (vector-ref sc0 4))) (let ((e-14 (vector-ref sc0 5))) (LibrariesC-45DataC-45NameMap-case--treeInsertC-39-2419 arg-3 e-14 e-13 e-12 e-11 e-10 arg-2 (CoreC-45Name-u--C-60C-61_Ord_Name arg-2 e-11)))))))))))) -(define LibrariesC-45DataC-45NameMap-treeInsert (lambda (arg-2 arg-3 arg-4) (LibrariesC-45DataC-45NameMap-case--treeInsert-2799 arg-3 arg-4 arg-2 (LibrariesC-45DataC-45NameMap-treeInsertC-39 arg-2 arg-3 arg-4)))) -(define LibrariesC-45DataC-45NameMap-treeDelete (lambda (arg-1 arg-2 arg-3) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (let ((sc1 arg-3)) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((u--n 0)) (LibrariesC-45DataC-45NameMap-case--treeDelete-2868 e-3 e-2 arg-2 u--n (CoreC-45Name-u--C-61C-61_Eq_Name arg-2 e-2)))))))(else (let ((e-0 (- arg-1 1))) (let ((sc0 e-0)) (cond ((equal? sc0 0) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((1) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((e-9 (vector-ref sc1 3))) (LibrariesC-45DataC-45NameMap-case--treeDelete-2916 e-9 e-8 e-7 arg-2 (CoreC-45Name-u--C-60C-61_Ord_Name arg-2 e-8)))))) (else (let ((e-12 (vector-ref sc1 1))) (let ((e-13 (vector-ref sc1 2))) (let ((e-14 (vector-ref sc1 3))) (let ((e-15 (vector-ref sc1 4))) (let ((e-16 (vector-ref sc1 5))) (LibrariesC-45DataC-45NameMap-case--treeDelete-3038 e-16 e-15 e-14 e-13 e-12 arg-2 (CoreC-45Name-u--C-60C-61_Ord_Name arg-2 e-13)))))))))))(else (let ((e-4 (- e-0 1))) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-19 (vector-ref sc0 1))) (let ((e-20 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 3))) (LibrariesC-45DataC-45NameMap-case--treeDelete-3280 e-4 e-21 e-20 e-19 arg-2 (CoreC-45Name-u--C-60C-61_Ord_Name arg-2 e-20)))))) (else (let ((e-24 (vector-ref sc0 1))) (let ((e-25 (vector-ref sc0 2))) (let ((e-26 (vector-ref sc0 3))) (let ((e-27 (vector-ref sc0 4))) (let ((e-28 (vector-ref sc0 5))) (LibrariesC-45DataC-45NameMap-case--treeDelete-3496 e-4 e-28 e-27 e-26 e-25 e-24 arg-2 (CoreC-45Name-u--C-60C-61_Ord_Name arg-2 e-25)))))))))))))))))))) -(define LibrariesC-45DataC-45NameMap-toList (lambda (arg-1) (let ((sc0 arg-1)) (if (null? sc0) '() (let ((e-3 (cdr sc0))) (LibrariesC-45DataC-45NameMap-treeToList e-3)))))) +(define LibrariesC-45DataC-45NameMap-treeToList (lambda (ext-0) (LibrariesC-45DataC-45NameMap-n--4696-4942-u--treeToListC-39 '() ext-0))) +(define LibrariesC-45DataC-45NameMap-treeMapMaybeM (lambda (arg-4 arg-5 ext-0) (LibrariesC-45DataC-45NameMap-n--5579-5816-u--loop arg-4 arg-5 (LibrariesC-45DataC-45NameMap-empty) ext-0))) +(define LibrariesC-45DataC-45NameMap-treeLookup (lambda (arg-2 arg-3) (case (vector-ref arg-3 0) ((0) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((sc1 (CoreC-45Name-u--C-61C-61_Eq_Name arg-2 e-1))) (cond ((equal? sc1 1) (box e-2)) (else '())))))) ((1) (let ((e-5 (vector-ref arg-3 1))) (let ((e-6 (vector-ref arg-3 2))) (let ((e-7 (vector-ref arg-3 3))) (let ((sc1 (CoreC-45Name-u--C-60C-61_Ord_Name arg-2 e-6))) (cond ((equal? sc1 1) (LibrariesC-45DataC-45NameMap-treeLookup arg-2 e-5)) (else (LibrariesC-45DataC-45NameMap-treeLookup arg-2 e-7)))))))) (else (let ((e-10 (vector-ref arg-3 1))) (let ((e-11 (vector-ref arg-3 2))) (let ((e-12 (vector-ref arg-3 3))) (let ((e-13 (vector-ref arg-3 4))) (let ((e-14 (vector-ref arg-3 5))) (let ((sc1 (CoreC-45Name-u--C-60C-61_Ord_Name arg-2 e-11))) (cond ((equal? sc1 1) (LibrariesC-45DataC-45NameMap-treeLookup arg-2 e-10)) (else (let ((sc2 (CoreC-45Name-u--C-60C-61_Ord_Name arg-2 e-13))) (cond ((equal? sc2 1) (LibrariesC-45DataC-45NameMap-treeLookup arg-2 e-12)) (else (LibrariesC-45DataC-45NameMap-treeLookup arg-2 e-14)))))))))))))))) +(define LibrariesC-45DataC-45NameMap-treeInsertC-39 (lambda (arg-2 arg-3 arg-4) (case (vector-ref arg-4 0) ((0) (let ((e-1 (vector-ref arg-4 1))) (let ((e-2 (vector-ref arg-4 2))) (let ((sc1 (CoreC-45Name-u--compare_Ord_Name arg-2 e-1))) (cond ((equal? sc1 0) (vector 1 (cons (vector 0 arg-2 arg-3) (cons arg-2 (vector 0 e-1 e-2))))) ((equal? sc1 1) (vector 0 (vector 0 arg-2 arg-3))) (else (vector 1 (cons (vector 0 e-1 e-2) (cons e-1 (vector 0 arg-2 arg-3)))))))))) ((1) (let ((e-5 (vector-ref arg-4 1))) (let ((e-6 (vector-ref arg-4 2))) (let ((e-7 (vector-ref arg-4 3))) (let ((sc1 (CoreC-45Name-u--C-60C-61_Ord_Name arg-2 e-6))) (cond ((equal? sc1 1) (let ((sc2 (LibrariesC-45DataC-45NameMap-treeInsertC-39 arg-2 arg-3 e-5))) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 (vector 1 e-2 e-6 e-7)))) (else (let ((e-8 (vector-ref sc2 1))) (let ((e-10 (car e-8))) (let ((e-9 (cdr e-8))) (let ((e-12 (car e-9))) (let ((e-13 (cdr e-9))) (vector 0 (vector 2 e-10 e-12 e-13 e-6 e-7))))))))))) (else (let ((sc2 (LibrariesC-45DataC-45NameMap-treeInsertC-39 arg-2 arg-3 e-7))) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 (vector 1 e-5 e-6 e-2)))) (else (let ((e-8 (vector-ref sc2 1))) (let ((e-10 (car e-8))) (let ((e-9 (cdr e-8))) (let ((e-12 (car e-9))) (let ((e-13 (cdr e-9))) (vector 0 (vector 2 e-5 e-6 e-10 e-12 e-13))))))))))))))))) (else (let ((e-10 (vector-ref arg-4 1))) (let ((e-11 (vector-ref arg-4 2))) (let ((e-12 (vector-ref arg-4 3))) (let ((e-13 (vector-ref arg-4 4))) (let ((e-14 (vector-ref arg-4 5))) (let ((sc1 (CoreC-45Name-u--C-60C-61_Ord_Name arg-2 e-11))) (cond ((equal? sc1 1) (let ((sc2 (LibrariesC-45DataC-45NameMap-treeInsertC-39 arg-2 arg-3 e-10))) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 (vector 2 e-2 e-11 e-12 e-13 e-14)))) (else (let ((e-5 (vector-ref sc2 1))) (let ((e-8 (car e-5))) (let ((e-9 (cdr e-5))) (let ((e-16 (car e-9))) (let ((e-15 (cdr e-9))) (vector 1 (cons (vector 1 e-8 e-16 e-15) (cons e-11 (vector 1 e-12 e-13 e-14))))))))))))) (else (let ((sc2 (CoreC-45Name-u--C-60C-61_Ord_Name arg-2 e-13))) (cond ((equal? sc2 1) (let ((sc3 (LibrariesC-45DataC-45NameMap-treeInsertC-39 arg-2 arg-3 e-12))) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 (vector 2 e-10 e-11 e-2 e-13 e-14)))) (else (let ((e-5 (vector-ref sc3 1))) (let ((e-8 (car e-5))) (let ((e-9 (cdr e-5))) (let ((e-16 (car e-9))) (let ((e-15 (cdr e-9))) (vector 1 (cons (vector 1 e-10 e-11 e-8) (cons e-16 (vector 1 e-15 e-13 e-14))))))))))))) (else (let ((sc3 (LibrariesC-45DataC-45NameMap-treeInsertC-39 arg-2 arg-3 e-14))) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 (vector 2 e-10 e-11 e-12 e-13 e-2)))) (else (let ((e-5 (vector-ref sc3 1))) (let ((e-8 (car e-5))) (let ((e-9 (cdr e-5))) (let ((e-16 (car e-9))) (let ((e-15 (cdr e-9))) (vector 1 (cons (vector 1 e-10 e-11 e-12) (cons e-13 (vector 1 e-8 e-16 e-15))))))))))))))))))))))))))) +(define LibrariesC-45DataC-45NameMap-treeInsert (lambda (arg-2 arg-3 arg-4) (let ((sc0 (LibrariesC-45DataC-45NameMap-treeInsertC-39 arg-2 arg-3 arg-4))) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((e-8 (car e-5))) (let ((e-9 (cdr e-5))) (let ((e-12 (car e-9))) (let ((e-13 (cdr e-9))) (vector 1 (vector 1 e-8 e-12 e-13)))))))))))) +(define LibrariesC-45DataC-45NameMap-treeFilterBy (lambda (arg-2 ext-0) (LibrariesC-45DataC-45NameMap-n--5304-5538-u--loop arg-2 (LibrariesC-45DataC-45NameMap-empty) ext-0))) +(define LibrariesC-45DataC-45NameMap-treeDelete (lambda (arg-1 arg-2 arg-3) (cond ((equal? arg-1 0) (let ((e-2 (vector-ref arg-3 1))) (let ((e-3 (vector-ref arg-3 2))) (let ((sc2 (CoreC-45Name-u--C-61C-61_Eq_Name arg-2 e-2))) (cond ((equal? sc2 1) (vector 1 0)) (else (vector 0 (vector 0 e-2 e-3))))))))(else (let ((e-0 (- arg-1 1))) (cond ((equal? e-0 0) (case (vector-ref arg-3 0) ((1) (let ((e-7 (vector-ref arg-3 1))) (let ((e-8 (vector-ref arg-3 2))) (let ((e-9 (vector-ref arg-3 3))) (let ((sc2 (CoreC-45Name-u--C-60C-61_Ord_Name arg-2 e-8))) (cond ((equal? sc2 1) (let ((sc3 (LibrariesC-45DataC-45NameMap-treeDelete 0 arg-2 e-7))) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 (vector 1 e-2 e-8 e-9)))) (else (let ((e-5 (vector-ref sc3 1))) (cond (else (vector 1 e-9)))))))) (else (let ((sc3 (LibrariesC-45DataC-45NameMap-treeDelete 0 arg-2 e-9))) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 (vector 1 e-7 e-8 e-2)))) (else (let ((e-5 (vector-ref sc3 1))) (cond (else (vector 1 e-7)))))))))))))) (else (let ((e-12 (vector-ref arg-3 1))) (let ((e-13 (vector-ref arg-3 2))) (let ((e-14 (vector-ref arg-3 3))) (let ((e-15 (vector-ref arg-3 4))) (let ((e-16 (vector-ref arg-3 5))) (let ((sc2 (CoreC-45Name-u--C-60C-61_Ord_Name arg-2 e-13))) (cond ((equal? sc2 1) (let ((sc3 (LibrariesC-45DataC-45NameMap-treeDelete 0 arg-2 e-12))) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 (vector 2 e-2 e-13 e-14 e-15 e-16)))) (else (let ((e-5 (vector-ref sc3 1))) (cond (else (vector 0 (vector 1 e-14 e-15 e-16))))))))) (else (let ((sc3 (CoreC-45Name-u--C-60C-61_Ord_Name arg-2 e-15))) (cond ((equal? sc3 1) (let ((sc4 (LibrariesC-45DataC-45NameMap-treeDelete 0 arg-2 e-14))) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 (vector 2 e-12 e-13 e-2 e-15 e-16)))) (else (let ((e-5 (vector-ref sc4 1))) (cond (else (vector 0 (vector 1 e-12 e-13 e-16))))))))) (else (let ((sc4 (LibrariesC-45DataC-45NameMap-treeDelete 0 arg-2 e-16))) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 (vector 2 e-12 e-13 e-14 e-15 e-2)))) (else (let ((e-5 (vector-ref sc4 1))) (cond (else (vector 0 (vector 1 e-12 e-13 e-14))))))))))))))))))))))(else (let ((e-4 (- e-0 1))) (case (vector-ref arg-3 0) ((1) (let ((e-19 (vector-ref arg-3 1))) (let ((e-20 (vector-ref arg-3 2))) (let ((e-21 (vector-ref arg-3 3))) (let ((sc1 (CoreC-45Name-u--C-60C-61_Ord_Name arg-2 e-20))) (cond ((equal? sc1 1) (let ((sc2 (LibrariesC-45DataC-45NameMap-treeDelete (+ 1 e-4) arg-2 e-19))) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 (vector 1 e-2 e-20 e-21)))) (else (let ((e-5 (vector-ref sc2 1))) (case (vector-ref e-21 0) ((1) (let ((e-2 (vector-ref e-21 1))) (let ((e-3 (vector-ref e-21 2))) (let ((e-6 (vector-ref e-21 3))) (vector 1 (vector 2 e-5 e-20 e-2 e-3 e-6)))))) (else (let ((e-7 (vector-ref e-21 1))) (let ((e-8 (vector-ref e-21 2))) (let ((e-9 (vector-ref e-21 3))) (let ((e-10 (vector-ref e-21 4))) (let ((e-11 (vector-ref e-21 5))) (vector 0 (LibrariesC-45DataC-45NameMap-branch4 e-5 e-20 e-7 e-8 e-9 e-10 e-11)))))))))))))) (else (let ((sc2 (LibrariesC-45DataC-45NameMap-treeDelete (+ 1 e-4) arg-2 e-21))) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 (vector 1 e-19 e-20 e-2)))) (else (let ((e-5 (vector-ref sc2 1))) (case (vector-ref e-19 0) ((1) (let ((e-2 (vector-ref e-19 1))) (let ((e-3 (vector-ref e-19 2))) (let ((e-6 (vector-ref e-19 3))) (vector 1 (vector 2 e-2 e-3 e-6 e-20 e-5)))))) (else (let ((e-7 (vector-ref e-19 1))) (let ((e-8 (vector-ref e-19 2))) (let ((e-9 (vector-ref e-19 3))) (let ((e-10 (vector-ref e-19 4))) (let ((e-11 (vector-ref e-19 5))) (vector 0 (LibrariesC-45DataC-45NameMap-branch4 e-7 e-8 e-9 e-10 e-11 e-20 e-5)))))))))))))))))))) (else (let ((e-24 (vector-ref arg-3 1))) (let ((e-25 (vector-ref arg-3 2))) (let ((e-26 (vector-ref arg-3 3))) (let ((e-27 (vector-ref arg-3 4))) (let ((e-28 (vector-ref arg-3 5))) (let ((sc1 (CoreC-45Name-u--C-60C-61_Ord_Name arg-2 e-25))) (cond ((equal? sc1 1) (let ((sc2 (LibrariesC-45DataC-45NameMap-treeDelete (+ 1 e-4) arg-2 e-24))) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 (vector 2 e-2 e-25 e-26 e-27 e-28)))) (else (let ((e-5 (vector-ref sc2 1))) (vector 0 (LibrariesC-45DataC-45NameMap-merge1 e-5 e-25 e-26 e-27 e-28))))))) (else (let ((sc2 (CoreC-45Name-u--C-60C-61_Ord_Name arg-2 e-27))) (cond ((equal? sc2 1) (let ((sc3 (LibrariesC-45DataC-45NameMap-treeDelete (+ 1 e-4) arg-2 e-26))) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 (vector 2 e-24 e-25 e-2 e-27 e-28)))) (else (let ((e-5 (vector-ref sc3 1))) (vector 0 (LibrariesC-45DataC-45NameMap-merge2 e-24 e-25 e-5 e-27 e-28))))))) (else (let ((sc3 (LibrariesC-45DataC-45NameMap-treeDelete (+ 1 e-4) arg-2 e-28))) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 (vector 2 e-24 e-25 e-26 e-27 e-2)))) (else (let ((e-5 (vector-ref sc3 1))) (vector 0 (LibrariesC-45DataC-45NameMap-merge3 e-24 e-25 e-26 e-27 e-5))))))))))))))))))))))))))) +(define LibrariesC-45DataC-45NameMap-toList (lambda (arg-1) (if (null? arg-1) '() (let ((e-3 (cdr arg-1))) (LibrariesC-45DataC-45NameMap-treeToList e-3))))) (define LibrariesC-45DataC-45NameMap-singleton (lambda (arg-1 arg-2) (cons 0 (vector 0 arg-1 arg-2)))) -(define LibrariesC-45DataC-45NameMap-merge3 (lambda (arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((1) (let ((e-14 (vector-ref sc1 1))) (let ((e-15 (vector-ref sc1 2))) (let ((e-16 (vector-ref sc1 3))) (LibrariesC-45DataC-45NameMap-branch5 e-2 e-3 e-4 arg-3 e-14 e-15 e-16 arg-5 arg-6))))) (else (let ((e-19 (vector-ref sc1 1))) (let ((e-20 (vector-ref sc1 2))) (let ((e-21 (vector-ref sc1 3))) (let ((e-22 (vector-ref sc1 4))) (let ((e-23 (vector-ref sc1 5))) (LibrariesC-45DataC-45NameMap-branch6 e-2 e-3 e-4 arg-3 e-19 e-20 e-21 e-22 e-23 arg-5 arg-6))))))))))))) (else (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (let ((e-10 (vector-ref sc0 4))) (let ((e-11 (vector-ref sc0 5))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((1) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (LibrariesC-45DataC-45NameMap-branch6 e-7 e-8 e-9 e-10 e-11 arg-3 e-26 e-27 e-28 arg-5 arg-6))))) (else (let ((e-31 (vector-ref sc1 1))) (let ((e-32 (vector-ref sc1 2))) (let ((e-33 (vector-ref sc1 3))) (let ((e-34 (vector-ref sc1 4))) (let ((e-35 (vector-ref sc1 5))) (LibrariesC-45DataC-45NameMap-branch7 e-7 e-8 e-9 e-10 e-11 arg-3 e-31 e-32 e-33 e-34 e-35 arg-5 arg-6))))))))))))))))))) -(define LibrariesC-45DataC-45NameMap-merge2 (lambda (arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((1) (let ((e-14 (vector-ref sc1 1))) (let ((e-15 (vector-ref sc1 2))) (let ((e-16 (vector-ref sc1 3))) (LibrariesC-45DataC-45NameMap-branch5 e-2 e-3 e-4 arg-3 arg-4 arg-5 e-14 e-15 e-16))))) (else (let ((e-19 (vector-ref sc1 1))) (let ((e-20 (vector-ref sc1 2))) (let ((e-21 (vector-ref sc1 3))) (let ((e-22 (vector-ref sc1 4))) (let ((e-23 (vector-ref sc1 5))) (LibrariesC-45DataC-45NameMap-branch6 e-2 e-3 e-4 arg-3 arg-4 arg-5 e-19 e-20 e-21 e-22 e-23))))))))))))) (else (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (let ((e-10 (vector-ref sc0 4))) (let ((e-11 (vector-ref sc0 5))) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((1) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (LibrariesC-45DataC-45NameMap-branch6 e-7 e-8 e-9 e-10 e-11 arg-3 arg-4 arg-5 e-26 e-27 e-28))))) (else (let ((e-31 (vector-ref sc1 1))) (let ((e-32 (vector-ref sc1 2))) (let ((e-33 (vector-ref sc1 3))) (let ((e-34 (vector-ref sc1 4))) (let ((e-35 (vector-ref sc1 5))) (LibrariesC-45DataC-45NameMap-branch7 e-7 e-8 e-9 e-10 e-11 arg-3 arg-4 arg-5 e-31 e-32 e-33 e-34 e-35))))))))))))))))))) -(define LibrariesC-45DataC-45NameMap-merge1 (lambda (arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((1) (let ((e-14 (vector-ref sc1 1))) (let ((e-15 (vector-ref sc1 2))) (let ((e-16 (vector-ref sc1 3))) (LibrariesC-45DataC-45NameMap-branch5 arg-2 arg-3 e-2 e-3 e-4 arg-5 e-14 e-15 e-16))))) (else (let ((e-19 (vector-ref sc1 1))) (let ((e-20 (vector-ref sc1 2))) (let ((e-21 (vector-ref sc1 3))) (let ((e-22 (vector-ref sc1 4))) (let ((e-23 (vector-ref sc1 5))) (LibrariesC-45DataC-45NameMap-branch6 arg-2 arg-3 e-2 e-3 e-4 arg-5 e-19 e-20 e-21 e-22 e-23))))))))))))) (else (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (let ((e-10 (vector-ref sc0 4))) (let ((e-11 (vector-ref sc0 5))) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((1) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (LibrariesC-45DataC-45NameMap-branch6 arg-2 arg-3 e-7 e-8 e-9 e-10 e-11 arg-5 e-26 e-27 e-28))))) (else (let ((e-31 (vector-ref sc1 1))) (let ((e-32 (vector-ref sc1 2))) (let ((e-33 (vector-ref sc1 3))) (let ((e-34 (vector-ref sc1 4))) (let ((e-35 (vector-ref sc1 5))) (LibrariesC-45DataC-45NameMap-branch7 arg-2 arg-3 e-7 e-8 e-9 e-10 e-11 arg-5 e-31 e-32 e-33 e-34 e-35))))))))))))))))))) -(define LibrariesC-45DataC-45NameMap-mapMaybeM (lambda (arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (if (null? sc0) (let ((sc1 arg-3)) (let ((e-1 (vector-ref sc1 1))) (let ((sc2 e-1)) (let ((e-5 (vector-ref sc2 2))) ((e-5 'erased) '()))))) (let ((e-3 (cdr sc0))) (LibrariesC-45DataC-45NameMap-treeMapMaybeM arg-3 arg-4 e-3)))))) -(define LibrariesC-45DataC-45NameMap-lookup (lambda (arg-1 arg-2) (let ((sc0 arg-2)) (if (null? sc0) (vector 0 ) (let ((e-3 (cdr sc0))) (LibrariesC-45DataC-45NameMap-treeLookup arg-1 e-3)))))) +(define LibrariesC-45DataC-45NameMap-merge3 (lambda (arg-2 arg-3 arg-4 arg-5 arg-6) (case (vector-ref arg-2 0) ((1) (let ((e-2 (vector-ref arg-2 1))) (let ((e-3 (vector-ref arg-2 2))) (let ((e-4 (vector-ref arg-2 3))) (case (vector-ref arg-4 0) ((1) (let ((e-14 (vector-ref arg-4 1))) (let ((e-15 (vector-ref arg-4 2))) (let ((e-16 (vector-ref arg-4 3))) (LibrariesC-45DataC-45NameMap-branch5 e-2 e-3 e-4 arg-3 e-14 e-15 e-16 arg-5 arg-6))))) (else (let ((e-19 (vector-ref arg-4 1))) (let ((e-20 (vector-ref arg-4 2))) (let ((e-21 (vector-ref arg-4 3))) (let ((e-22 (vector-ref arg-4 4))) (let ((e-23 (vector-ref arg-4 5))) (LibrariesC-45DataC-45NameMap-branch6 e-2 e-3 e-4 arg-3 e-19 e-20 e-21 e-22 e-23 arg-5 arg-6)))))))))))) (else (let ((e-7 (vector-ref arg-2 1))) (let ((e-8 (vector-ref arg-2 2))) (let ((e-9 (vector-ref arg-2 3))) (let ((e-10 (vector-ref arg-2 4))) (let ((e-11 (vector-ref arg-2 5))) (case (vector-ref arg-4 0) ((1) (let ((e-26 (vector-ref arg-4 1))) (let ((e-27 (vector-ref arg-4 2))) (let ((e-28 (vector-ref arg-4 3))) (LibrariesC-45DataC-45NameMap-branch6 e-7 e-8 e-9 e-10 e-11 arg-3 e-26 e-27 e-28 arg-5 arg-6))))) (else (let ((e-31 (vector-ref arg-4 1))) (let ((e-32 (vector-ref arg-4 2))) (let ((e-33 (vector-ref arg-4 3))) (let ((e-34 (vector-ref arg-4 4))) (let ((e-35 (vector-ref arg-4 5))) (LibrariesC-45DataC-45NameMap-branch7 e-7 e-8 e-9 e-10 e-11 arg-3 e-31 e-32 e-33 e-34 e-35 arg-5 arg-6))))))))))))))))) +(define LibrariesC-45DataC-45NameMap-merge2 (lambda (arg-2 arg-3 arg-4 arg-5 arg-6) (case (vector-ref arg-2 0) ((1) (let ((e-2 (vector-ref arg-2 1))) (let ((e-3 (vector-ref arg-2 2))) (let ((e-4 (vector-ref arg-2 3))) (case (vector-ref arg-6 0) ((1) (let ((e-14 (vector-ref arg-6 1))) (let ((e-15 (vector-ref arg-6 2))) (let ((e-16 (vector-ref arg-6 3))) (LibrariesC-45DataC-45NameMap-branch5 e-2 e-3 e-4 arg-3 arg-4 arg-5 e-14 e-15 e-16))))) (else (let ((e-19 (vector-ref arg-6 1))) (let ((e-20 (vector-ref arg-6 2))) (let ((e-21 (vector-ref arg-6 3))) (let ((e-22 (vector-ref arg-6 4))) (let ((e-23 (vector-ref arg-6 5))) (LibrariesC-45DataC-45NameMap-branch6 e-2 e-3 e-4 arg-3 arg-4 arg-5 e-19 e-20 e-21 e-22 e-23)))))))))))) (else (let ((e-7 (vector-ref arg-2 1))) (let ((e-8 (vector-ref arg-2 2))) (let ((e-9 (vector-ref arg-2 3))) (let ((e-10 (vector-ref arg-2 4))) (let ((e-11 (vector-ref arg-2 5))) (case (vector-ref arg-6 0) ((1) (let ((e-26 (vector-ref arg-6 1))) (let ((e-27 (vector-ref arg-6 2))) (let ((e-28 (vector-ref arg-6 3))) (LibrariesC-45DataC-45NameMap-branch6 e-7 e-8 e-9 e-10 e-11 arg-3 arg-4 arg-5 e-26 e-27 e-28))))) (else (let ((e-31 (vector-ref arg-6 1))) (let ((e-32 (vector-ref arg-6 2))) (let ((e-33 (vector-ref arg-6 3))) (let ((e-34 (vector-ref arg-6 4))) (let ((e-35 (vector-ref arg-6 5))) (LibrariesC-45DataC-45NameMap-branch7 e-7 e-8 e-9 e-10 e-11 arg-3 arg-4 arg-5 e-31 e-32 e-33 e-34 e-35))))))))))))))))) +(define LibrariesC-45DataC-45NameMap-merge1 (lambda (arg-2 arg-3 arg-4 arg-5 arg-6) (case (vector-ref arg-4 0) ((1) (let ((e-2 (vector-ref arg-4 1))) (let ((e-3 (vector-ref arg-4 2))) (let ((e-4 (vector-ref arg-4 3))) (case (vector-ref arg-6 0) ((1) (let ((e-14 (vector-ref arg-6 1))) (let ((e-15 (vector-ref arg-6 2))) (let ((e-16 (vector-ref arg-6 3))) (LibrariesC-45DataC-45NameMap-branch5 arg-2 arg-3 e-2 e-3 e-4 arg-5 e-14 e-15 e-16))))) (else (let ((e-19 (vector-ref arg-6 1))) (let ((e-20 (vector-ref arg-6 2))) (let ((e-21 (vector-ref arg-6 3))) (let ((e-22 (vector-ref arg-6 4))) (let ((e-23 (vector-ref arg-6 5))) (LibrariesC-45DataC-45NameMap-branch6 arg-2 arg-3 e-2 e-3 e-4 arg-5 e-19 e-20 e-21 e-22 e-23)))))))))))) (else (let ((e-7 (vector-ref arg-4 1))) (let ((e-8 (vector-ref arg-4 2))) (let ((e-9 (vector-ref arg-4 3))) (let ((e-10 (vector-ref arg-4 4))) (let ((e-11 (vector-ref arg-4 5))) (case (vector-ref arg-6 0) ((1) (let ((e-26 (vector-ref arg-6 1))) (let ((e-27 (vector-ref arg-6 2))) (let ((e-28 (vector-ref arg-6 3))) (LibrariesC-45DataC-45NameMap-branch6 arg-2 arg-3 e-7 e-8 e-9 e-10 e-11 arg-5 e-26 e-27 e-28))))) (else (let ((e-31 (vector-ref arg-6 1))) (let ((e-32 (vector-ref arg-6 2))) (let ((e-33 (vector-ref arg-6 3))) (let ((e-34 (vector-ref arg-6 4))) (let ((e-35 (vector-ref arg-6 5))) (LibrariesC-45DataC-45NameMap-branch7 arg-2 arg-3 e-7 e-8 e-9 e-10 e-11 arg-5 e-31 e-32 e-33 e-34 e-35))))))))))))))))) +(define LibrariesC-45DataC-45NameMap-mapMaybeM (lambda (arg-3 arg-4 arg-5) (if (null? arg-5) (let ((e-1 (vector-ref arg-3 0))) (let ((e-5 (vector-ref e-1 1))) ((e-5 'erased) '()))) (let ((e-3 (cdr arg-5))) (LibrariesC-45DataC-45NameMap-treeMapMaybeM arg-3 arg-4 e-3))))) +(define LibrariesC-45DataC-45NameMap-lookup (lambda (arg-1 arg-2) (if (null? arg-2) '() (let ((e-3 (cdr arg-2))) (LibrariesC-45DataC-45NameMap-treeLookup arg-1 e-3))))) (define LibrariesC-45DataC-45NameMap-keys (lambda (ext-0) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-fst eta-0)) (LibrariesC-45DataC-45NameMap-toList ext-0)))) -(define LibrariesC-45DataC-45NameMap-insert (lambda (arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (if (null? sc0) (cons 0 (vector 0 arg-1 arg-2)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (LibrariesC-45DataC-45NameMap-case--insert-3898 e-2 arg-2 e-3 arg-1 (LibrariesC-45DataC-45NameMap-treeInsert arg-1 arg-2 e-3)))))))) +(define LibrariesC-45DataC-45NameMap-insert (lambda (arg-1 arg-2 arg-3) (if (null? arg-3) (cons 0 (vector 0 arg-1 arg-2)) (let ((e-2 (car arg-3))) (let ((e-3 (cdr arg-3))) (let ((sc1 (LibrariesC-45DataC-45NameMap-treeInsert arg-1 arg-2 e-3))) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (cons e-2 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (cons (+ 1 e-2) e-5)))))))))) (define LibrariesC-45DataC-45NameMap-fromList (lambda (arg-1) (PreludeC-45Types-u--foldl_Foldable_List (lambda (eta-0) (lambda (eta-1) (PreludeC-45Basics-flip (lambda (eta-2) (PreludeC-45Basics-uncurry (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (LibrariesC-45DataC-45NameMap-insert eta-3 eta-4 eta-5)))) eta-2)) eta-0 eta-1))) (LibrariesC-45DataC-45NameMap-empty) arg-1))) +(define LibrariesC-45DataC-45NameMap-filterBy (lambda (arg-1 arg-2) (if (null? arg-2) '() (let ((e-3 (cdr arg-2))) (LibrariesC-45DataC-45NameMap-treeFilterBy arg-1 e-3))))) (define LibrariesC-45DataC-45NameMap-empty (lambda () '())) -(define LibrariesC-45DataC-45NameMap-delete (lambda (arg-1 arg-2) (let ((sc0 arg-2)) (if (null? sc0) '() (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (cond ((equal? sc1 0) (LibrariesC-45DataC-45NameMap-case--delete-3983 e-3 arg-1 (LibrariesC-45DataC-45NameMap-treeDelete 0 arg-1 e-3)))(else (let ((e-4 (- e-2 1))) (LibrariesC-45DataC-45NameMap-case--delete-4020 e-4 e-3 arg-1 (LibrariesC-45DataC-45NameMap-treeDelete (+ 1 e-4) arg-1 e-3)))))))))))) +(define LibrariesC-45DataC-45NameMap-delete (lambda (arg-1 arg-2) (if (null? arg-2) '() (let ((e-2 (car arg-2))) (let ((e-3 (cdr arg-2))) (cond ((equal? e-2 0) (let ((sc2 (LibrariesC-45DataC-45NameMap-treeDelete 0 arg-1 e-3))) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (cons 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (cond (else '())))))))(else (let ((e-4 (- e-2 1))) (let ((sc1 (LibrariesC-45DataC-45NameMap-treeDelete (+ 1 e-4) arg-1 e-3))) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (cons (+ 1 e-4) e-5))) (else (let ((e-5 (vector-ref sc1 1))) (cons e-4 e-5))))))))))))) (define LibrariesC-45DataC-45NameMap-branch7 (lambda (arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (vector 2 (vector 2 arg-2 arg-3 arg-4 arg-5 arg-6) arg-7 (vector 1 arg-8 arg-9 arg-10) arg-11 (vector 1 arg-12 arg-13 arg-14)))) (define LibrariesC-45DataC-45NameMap-branch6 (lambda (arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (vector 2 (vector 1 arg-2 arg-3 arg-4) arg-5 (vector 1 arg-6 arg-7 arg-8) arg-9 (vector 1 arg-10 arg-11 arg-12)))) (define LibrariesC-45DataC-45NameMap-branch5 (lambda (arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (vector 1 (vector 1 arg-2 arg-3 arg-4) arg-5 (vector 2 arg-6 arg-7 arg-8 arg-9 arg-10)))) (define LibrariesC-45DataC-45NameMap-branch4 (lambda (arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (vector 1 (vector 1 arg-2 arg-3 arg-4) arg-5 (vector 1 arg-6 arg-7 arg-8)))) -(define CoreC-45Name-with--nameEq-2916 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (vector 1 (vector 0 ))))) (else (vector 0 )))))) -(define CoreC-45Name-with--withC-32blockC-32inC-32nameEq-2889 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (vector 0 )) (else (let ((e-3 (vector-ref sc0 1))) (let ((sc1 e-3)) (vector 1 (vector 0 ))))))))) -(define CoreC-45Name-with--nameEq-2868 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (vector 0 )) (else (let ((e-3 (vector-ref sc0 1))) (let ((sc1 e-3)) (CoreC-45Name-with--withC-32blockC-32inC-32nameEq-2889 arg-4 arg-3 (DecidableC-45Equality-u--decEq_DecEq_Int arg-3 arg-4) arg-0)))))))) -(define CoreC-45Name-with--withC-32blockC-32inC-32nameEq-2841 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (vector 0 )) (else (let ((e-3 (vector-ref sc0 1))) (let ((sc1 e-3)) (vector 1 (vector 0 ))))))))) -(define CoreC-45Name-with--nameEq-2820 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (vector 0 )) (else (let ((e-3 (vector-ref sc0 1))) (let ((sc1 e-3)) (CoreC-45Name-with--withC-32blockC-32inC-32nameEq-2841 arg-4 arg-3 (DecidableC-45Equality-u--decEq_DecEq_Int arg-3 arg-4) arg-0)))))))) -(define CoreC-45Name-with--withC-32blockC-32inC-32nameEq-2800 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (vector 1 (vector 0 ))))))))) -(define CoreC-45Name-with--nameEq-2776 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (vector 0 )) (else (let ((e-3 (vector-ref sc0 1))) (let ((sc1 e-3)) (CoreC-45Name-with--withC-32blockC-32inC-32nameEq-2800 arg-4 arg-3 (CoreC-45Name-nameEq arg-3 arg-4) arg-0)))))))) -(define CoreC-45Name-with--nameEq-2742 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (vector 1 (vector 0 ))))) (else (vector 0 )))))) -(define CoreC-45Name-with--withC-32blockC-32inC-32nameEq-2716 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (vector 1 (vector 0 ))))) (else (vector 0 )))))) -(define CoreC-45Name-with--nameEq-2705 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (CoreC-45Name-with--withC-32blockC-32inC-32nameEq-2716 arg-4 arg-3 (CoreC-45Name-nameEq arg-3 arg-4) arg-0)))) (else (vector 0 )))))) -(define CoreC-45Name-with--withC-32blockC-32inC-32nameEq-2675 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (vector 1 (vector 0 ))))) (else (vector 0 )))))) -(define CoreC-45Name-with--nameEq-2664 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (CoreC-45Name-with--withC-32blockC-32inC-32nameEq-2675 arg-4 arg-3 (DecidableC-45Equality-u--decEq_DecEq_Int arg-3 arg-4) arg-0)))) (else (vector 0 )))))) -(define CoreC-45Name-with--withC-32blockC-32inC-32nameEq-2635 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (vector 1 (vector 0 ))))) (else (vector 0 )))))) -(define CoreC-45Name-with--nameEq-2620 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (CoreC-45Name-with--withC-32blockC-32inC-32nameEq-2635 arg-4 arg-3 (DecidableC-45Equality-u--decEq_DecEq_Int arg-3 arg-4) arg-0)))) (else (vector 0 )))))) -(define CoreC-45Name-with--nameEq-2593 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (vector 1 (vector 0 ))))) (else (vector 0 )))))) -(define CoreC-45Name-with--withC-32blockC-32inC-32nameEq-2567 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (vector 1 (vector 0 ))))))))) -(define CoreC-45Name-with--nameEq-2556 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (CoreC-45Name-with--withC-32blockC-32inC-32nameEq-2567 arg-4 arg-3 (CoreC-45Name-nameEq arg-3 arg-4) arg-0)))) (else (vector 0 )))))) -(define CoreC-45Name-case--compare-2493 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 1) (PreludeC-45EqOrd-u--compare_Ord_String arg-1 arg-3)) ((equal? sc0 2) 2) (else 0))))) -(define CoreC-45Name-case--compare-2453 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 1) (PreludeC-45EqOrd-u--compare_Ord_String arg-1 arg-3)) ((equal? sc0 2) 2) (else 0))))) -(define CoreC-45Name-case--compare-2409 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 1) (PreludeC-45EqOrd-u--compare_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector 0 (cons (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-5 arg-6)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Int arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Int arg-383 arg-384)))) (vector 0 (cons (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-5 arg-6)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Int arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Int arg-383 arg-384)))) arg-1 arg-3)) ((equal? sc0 2) 2) (else 0))))) -(define CoreC-45Name-case--compare-2353 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 1) (CoreC-45Name-u--compare_Ord_Name arg-1 arg-3)) ((equal? sc0 2) 2) (else 0))))) -(define CoreC-45Name-case--compare-2313 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 1) (PreludeC-45EqOrd-u--compare_Ord_String arg-1 arg-3)) ((equal? sc0 2) 2) (else 0))))) -(define CoreC-45Name-case--compare-2267 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 1) (CoreC-45NameC-45Namespace-u--compare_Ord_Namespace arg-1 arg-3)) ((equal? sc0 2) 2) (else 0))))) -(define CoreC-45Name-case--max-2228 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0))))) -(define CoreC-45Name-case--min-2214 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0))))) -(define CoreC-45Name-u--show_Show_Name (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((5) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-u--show_Show_Namespace e-0) (PreludeC-45TypesC-45String-C-43C-43 ".(" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-1) ")"))))(else (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-u--show_Show_Namespace e-0) (PreludeC-45TypesC-45String-C-43C-43 "." (CoreC-45Name-u--show_Show_Name e-1))))))))) ((1) (let ((e-2 (vector-ref sc0 1))) e-2)) ((2) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (PreludeC-45TypesC-45String-C-43C-43 "{" (PreludeC-45TypesC-45String-C-43C-43 e-3 (PreludeC-45TypesC-45String-C-43C-43 ":" (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Int e-4) "}"))))))) ((3) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (PreludeC-45TypesC-45String-C-43C-43 "{P:" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-5) (PreludeC-45TypesC-45String-C-43C-43 ":" (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Int e-6) "}"))))))) ((4) (let ((e-7 (vector-ref sc0 1))) e-7)) ((5) (let ((e-9 (vector-ref sc0 1))) (PreludeC-45TypesC-45String-C-43C-43 "." e-9))) ((6) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((sc1 e-10)) (let ((e-20 (car sc1))) (let ((e-21 (cdr sc1))) (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Int e-20) (PreludeC-45TypesC-45String-C-43C-43 ":" (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Int e-21) (PreludeC-45TypesC-45String-C-43C-43 ":" (CoreC-45Name-u--show_Show_Name e-11))))))))))) ((7) (let ((e-12 (vector-ref sc0 1))) (PreludeC-45TypesC-45String-C-43C-43 "case block in " e-12))) ((8) (let ((e-14 (vector-ref sc0 1))) (PreludeC-45TypesC-45String-C-43C-43 "with block in " e-14))) (else (let ((e-16 (vector-ref sc0 1))) (PreludeC-45TypesC-45String-C-43C-43 "$resolved" (PreludeC-45Show-u--show_Show_Int e-16)))))))) +(define CoreC-45Name-with--nameEq-4399 (lambda (arg-0 arg-1 arg-2) (case (vector-ref arg-2 0) ((0) (let ((e-1 (vector-ref arg-2 1))) (cond (else (box 0))))) (else '())))) +(define CoreC-45Name-with--withC-32blockC-32inC-32nameEq-4374 (lambda (arg-0 arg-1 arg-2 arg-3) (case (vector-ref arg-2 0) ((1) '()) (else (let ((e-3 (vector-ref arg-2 1))) (cond (else (box 0)))))))) +(define CoreC-45Name-with--nameEq-4355 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (case (vector-ref arg-2 0) ((1) '()) (else (let ((e-3 (vector-ref arg-2 1))) (cond (else (CoreC-45Name-with--withC-32blockC-32inC-32nameEq-4374 arg-4 arg-3 (DecidableC-45Equality-u--decEq_DecEq_Int arg-3 arg-4) arg-0)))))))) +(define CoreC-45Name-with--withC-32blockC-32inC-32nameEq-4330 (lambda (arg-0 arg-1 arg-2 arg-3) (case (vector-ref arg-2 0) ((1) '()) (else (let ((e-3 (vector-ref arg-2 1))) (cond (else (box 0)))))))) +(define CoreC-45Name-with--nameEq-4311 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (case (vector-ref arg-2 0) ((1) '()) (else (let ((e-3 (vector-ref arg-2 1))) (cond (else (CoreC-45Name-with--withC-32blockC-32inC-32nameEq-4330 arg-4 arg-3 (DecidableC-45Equality-u--decEq_DecEq_Int arg-3 arg-4) arg-0)))))))) +(define CoreC-45Name-with--withC-32blockC-32inC-32nameEq-4291 (lambda (arg-0 arg-1 arg-2 arg-3) (if (null? arg-2) '() (let ((e-2 (unbox arg-2))) (cond (else (box 0))))))) +(define CoreC-45Name-with--nameEq-4269 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (case (vector-ref arg-2 0) ((1) '()) (else (let ((e-3 (vector-ref arg-2 1))) (cond (else (CoreC-45Name-with--withC-32blockC-32inC-32nameEq-4291 arg-4 arg-3 (CoreC-45Name-nameEq arg-3 arg-4) arg-0)))))))) +(define CoreC-45Name-with--nameEq-4237 (lambda (arg-0 arg-1 arg-2) (case (vector-ref arg-2 0) ((0) (let ((e-1 (vector-ref arg-2 1))) (cond (else (box 0))))) (else '())))) +(define CoreC-45Name-with--withC-32blockC-32inC-32nameEq-4213 (lambda (arg-0 arg-1 arg-2 arg-3) (if (null? arg-2) '() (let ((e-1 (unbox arg-2))) (cond (else (box 0))))))) +(define CoreC-45Name-with--nameEq-4202 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (case (vector-ref arg-2 0) ((0) (let ((e-1 (vector-ref arg-2 1))) (cond (else (CoreC-45Name-with--withC-32blockC-32inC-32nameEq-4213 arg-4 arg-3 (CoreC-45Name-nameEq arg-3 arg-4) arg-0))))) (else '())))) +(define CoreC-45Name-with--withC-32blockC-32inC-32nameEq-4174 (lambda (arg-0 arg-1 arg-2 arg-3) (case (vector-ref arg-2 0) ((0) (let ((e-1 (vector-ref arg-2 1))) (cond (else (box 0))))) (else '())))) +(define CoreC-45Name-with--nameEq-4163 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (if (null? arg-2) '() (let ((e-1 (unbox arg-2))) (cond (else (CoreC-45Name-with--withC-32blockC-32inC-32nameEq-4174 arg-4 arg-3 (DecidableC-45Equality-u--decEq_DecEq_Int arg-3 arg-4) arg-0))))))) +(define CoreC-45Name-with--withC-32blockC-32inC-32nameEq-4138 (lambda (arg-0 arg-1 arg-2 arg-3) (case (vector-ref arg-2 0) ((0) (let ((e-1 (vector-ref arg-2 1))) (cond (else (box 0))))) (else '())))) +(define CoreC-45Name-with--nameEq-4123 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (case (vector-ref arg-2 0) ((0) (let ((e-1 (vector-ref arg-2 1))) (cond (else (CoreC-45Name-with--withC-32blockC-32inC-32nameEq-4138 arg-4 arg-3 (DecidableC-45Equality-u--decEq_DecEq_Int arg-3 arg-4) arg-0))))) (else '())))) +(define CoreC-45Name-with--nameEq-4098 (lambda (arg-0 arg-1 arg-2) (case (vector-ref arg-2 0) ((0) (let ((e-1 (vector-ref arg-2 1))) (cond (else (box 0))))) (else '())))) +(define CoreC-45Name-with--withC-32blockC-32inC-32nameEq-4074 (lambda (arg-0 arg-1 arg-2 arg-3) (if (null? arg-2) '() (let ((e-2 (unbox arg-2))) (cond (else (box 0))))))) +(define CoreC-45Name-with--nameEq-4063 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (case (vector-ref arg-2 0) ((0) (let ((e-1 (vector-ref arg-2 1))) (cond (else (CoreC-45Name-with--withC-32blockC-32inC-32nameEq-4074 arg-4 arg-3 (CoreC-45Name-nameEq arg-3 arg-4) arg-0))))) (else '())))) +(define CoreC-45Name-u--show_Show_RawName (lambda (arg-0) (case (vector-ref arg-0 0) ((0) (let ((e-0 (vector-ref arg-0 1))) (let ((e-1 (vector-ref arg-0 2))) (PreludeC-45TypesC-45String-C-43C-43 "NS " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-u--show_Show_Namespace e-0) (PreludeC-45TypesC-45String-C-43C-43 " (" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_RawName e-1) ")"))))))) ((1) (let ((e-2 (vector-ref arg-0 1))) (PreludeC-45TypesC-45String-C-43C-43 "UN " e-2))) ((2) (let ((e-3 (vector-ref arg-0 1))) (let ((e-4 (vector-ref arg-0 2))) (PreludeC-45TypesC-45String-C-43C-43 "MN (" (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_String e-3) (PreludeC-45TypesC-45String-C-43C-43 ") " (PreludeC-45Show-u--show_Show_Int e-4))))))) ((3) (let ((e-5 (vector-ref arg-0 1))) (let ((e-6 (vector-ref arg-0 2))) (PreludeC-45TypesC-45String-C-43C-43 "PV (" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_RawName e-5) (PreludeC-45TypesC-45String-C-43C-43 ") " (PreludeC-45Show-u--show_Show_Int e-6))))))) ((4) (let ((e-7 (vector-ref arg-0 1))) (let ((e-8 (vector-ref arg-0 2))) (PreludeC-45TypesC-45String-C-43C-43 "DN " (PreludeC-45TypesC-45String-C-43C-43 e-7 (PreludeC-45TypesC-45String-C-43C-43 " (" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_RawName e-8) ")"))))))) ((5) (let ((e-9 (vector-ref arg-0 1))) (PreludeC-45TypesC-45String-C-43C-43 "RF " e-9))) ((6) (let ((e-10 (vector-ref arg-0 1))) (let ((e-11 (vector-ref arg-0 2))) (PreludeC-45TypesC-45String-C-43C-43 "Nested " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_Int u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_Int u--d u--x)))) (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_Int u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_Int u--d u--x))))) e-10) (PreludeC-45TypesC-45String-C-43C-43 " (" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_RawName e-11) ")"))))))) ((7) (let ((e-12 (vector-ref arg-0 1))) (let ((e-13 (vector-ref arg-0 2))) (PreludeC-45TypesC-45String-C-43C-43 "CaseBlock " (PreludeC-45TypesC-45String-C-43C-43 e-12 (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45Show-u--show_Show_Int e-13))))))) ((8) (let ((e-14 (vector-ref arg-0 1))) (let ((e-15 (vector-ref arg-0 2))) (PreludeC-45TypesC-45String-C-43C-43 "CaseBlock " (PreludeC-45TypesC-45String-C-43C-43 e-14 (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45Show-u--show_Show_Int e-15))))))) (else (let ((e-16 (vector-ref arg-0 1))) (PreludeC-45TypesC-45String-C-43C-43 "Resolved " (PreludeC-45Show-u--show_Show_Int e-16))))))) +(define CoreC-45Name-u--show_Show_Name (lambda (arg-0) (case (vector-ref arg-0 0) ((0) (let ((e-0 (vector-ref arg-0 1))) (let ((e-1 (vector-ref arg-0 2))) (case (vector-ref e-1 0) ((5) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-u--show_Show_Namespace e-0) (PreludeC-45TypesC-45String-C-43C-43 ".(" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-1) ")"))))(else (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-u--show_Show_Namespace e-0) (PreludeC-45TypesC-45String-C-43C-43 "." (CoreC-45Name-u--show_Show_Name e-1)))))))) ((1) (let ((e-2 (vector-ref arg-0 1))) e-2)) ((2) (let ((e-3 (vector-ref arg-0 1))) (let ((e-4 (vector-ref arg-0 2))) (PreludeC-45TypesC-45String-C-43C-43 "{" (PreludeC-45TypesC-45String-C-43C-43 e-3 (PreludeC-45TypesC-45String-C-43C-43 ":" (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Int e-4) "}"))))))) ((3) (let ((e-5 (vector-ref arg-0 1))) (let ((e-6 (vector-ref arg-0 2))) (PreludeC-45TypesC-45String-C-43C-43 "{P:" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-5) (PreludeC-45TypesC-45String-C-43C-43 ":" (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Int e-6) "}"))))))) ((4) (let ((e-7 (vector-ref arg-0 1))) e-7)) ((5) (let ((e-9 (vector-ref arg-0 1))) (PreludeC-45TypesC-45String-C-43C-43 "." e-9))) ((6) (let ((e-10 (vector-ref arg-0 1))) (let ((e-11 (vector-ref arg-0 2))) (let ((e-20 (car e-10))) (let ((e-21 (cdr e-10))) (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Int e-20) (PreludeC-45TypesC-45String-C-43C-43 ":" (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Int e-21) (PreludeC-45TypesC-45String-C-43C-43 ":" (CoreC-45Name-u--show_Show_Name e-11)))))))))) ((7) (let ((e-12 (vector-ref arg-0 1))) (PreludeC-45TypesC-45String-C-43C-43 "case block in " e-12))) ((8) (let ((e-14 (vector-ref arg-0 1))) (PreludeC-45TypesC-45String-C-43C-43 "with block in " e-14))) (else (let ((e-16 (vector-ref arg-0 1))) (PreludeC-45TypesC-45String-C-43C-43 "$resolved" (PreludeC-45Show-u--show_Show_Int e-16))))))) (define CoreC-45Name-u--showPrec_Show_Name (lambda (arg-0 arg-1) (CoreC-45Name-u--show_Show_Name arg-1))) -(define CoreC-45Name-u--pretty_Pretty_Name (lambda (arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((5) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (CoreC-45NameC-45Namespace-u--pretty_Pretty_Namespace e-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-dot)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-parens (CoreC-45Name-u--pretty_Pretty_Name e-1))))(else (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (CoreC-45NameC-45Namespace-u--pretty_Pretty_Namespace e-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-dot)) (CoreC-45Name-u--pretty_Pretty_Name e-1)))))))) ((1) (let ((e-2 (vector-ref sc0 1))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String e-2))) ((2) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-braces (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String e-3) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Int e-4)))))) ((3) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-braces (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Char #\P) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon)) (CoreC-45Name-u--pretty_Pretty_Name e-5)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Int e-6)))))) ((4) (let ((e-7 (vector-ref sc0 1))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String e-7))) ((5) (let ((e-9 (vector-ref sc0 1))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 ".") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String e-9)))) ((6) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((sc1 e-10)) (let ((e-20 (car sc1))) (let ((e-21 (cdr sc1))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Int e-20) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Int e-21)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon)) (CoreC-45Name-u--pretty_Pretty_Name e-11)))))))) ((7) (let ((e-12 (vector-ref sc0 1))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "case block in") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String e-12)))) ((8) (let ((e-14 (vector-ref sc0 1))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "with block in") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String e-14)))) (else (let ((e-16 (vector-ref sc0 1))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "$resolved") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Int e-16)))))))) +(define CoreC-45Name-u--pretty_Pretty_Name (lambda (arg-1) (case (vector-ref arg-1 0) ((0) (let ((e-0 (vector-ref arg-1 1))) (let ((e-1 (vector-ref arg-1 2))) (case (vector-ref e-1 0) ((5) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (CoreC-45NameC-45Namespace-u--pretty_Pretty_Namespace e-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-dot)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-parens (CoreC-45Name-u--pretty_Pretty_Name e-1))))(else (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (CoreC-45NameC-45Namespace-u--pretty_Pretty_Namespace e-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-dot)) (CoreC-45Name-u--pretty_Pretty_Name e-1))))))) ((1) (let ((e-2 (vector-ref arg-1 1))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String e-2))) ((2) (let ((e-3 (vector-ref arg-1 1))) (let ((e-4 (vector-ref arg-1 2))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-braces (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String e-3) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Int e-4)))))) ((3) (let ((e-5 (vector-ref arg-1 1))) (let ((e-6 (vector-ref arg-1 2))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-braces (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Char #\P) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon)) (CoreC-45Name-u--pretty_Pretty_Name e-5)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Int e-6)))))) ((4) (let ((e-7 (vector-ref arg-1 1))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String e-7))) ((5) (let ((e-9 (vector-ref arg-1 1))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 ".") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String e-9)))) ((6) (let ((e-10 (vector-ref arg-1 1))) (let ((e-11 (vector-ref arg-1 2))) (let ((e-20 (car e-10))) (let ((e-21 (cdr e-10))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Int e-20) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Int e-21)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon)) (CoreC-45Name-u--pretty_Pretty_Name e-11))))))) ((7) (let ((e-12 (vector-ref arg-1 1))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "case block in") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String e-12)))) ((8) (let ((e-14 (vector-ref arg-1 1))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "with block in") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String e-14)))) (else (let ((e-16 (vector-ref arg-1 1))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "$resolved") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Int e-16))))))) (define CoreC-45Name-u--prettyPrec_Pretty_Name (lambda (arg-1 arg-2) (CoreC-45Name-u--pretty_Pretty_Name arg-2))) -(define CoreC-45Name-u--min_Ord_Name (lambda (arg-0 arg-1) (CoreC-45Name-case--min-2214 arg-1 arg-0 (CoreC-45Name-u--C-60_Ord_Name arg-0 arg-1)))) -(define CoreC-45Name-u--max_Ord_Name (lambda (arg-0 arg-1) (CoreC-45Name-case--max-2228 arg-1 arg-0 (CoreC-45Name-u--C-62_Ord_Name arg-0 arg-1)))) -(define CoreC-45Name-u--compare_Ord_Name (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) (let ((e-17 (vector-ref sc1 1))) (let ((e-18 (vector-ref sc1 2))) (CoreC-45Name-case--compare-2267 e-1 e-0 e-18 e-17 (CoreC-45Name-u--compare_Ord_Name e-1 e-18)))))(else (PreludeC-45EqOrd-u--compare_Ord_Int (CoreC-45Name-nameTag arg-0) (CoreC-45Name-nameTag arg-1)))))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) (let ((e-19 (vector-ref sc1 1))) (PreludeC-45EqOrd-u--compare_Ord_String e-2 e-19)))(else (PreludeC-45EqOrd-u--compare_Ord_Int (CoreC-45Name-nameTag arg-0) (CoreC-45Name-nameTag arg-1))))))) ((2) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((2) (let ((e-20 (vector-ref sc1 1))) (let ((e-21 (vector-ref sc1 2))) (CoreC-45Name-case--compare-2313 e-4 e-3 e-21 e-20 (PreludeC-45EqOrd-u--compare_Ord_Int e-4 e-21)))))(else (PreludeC-45EqOrd-u--compare_Ord_Int (CoreC-45Name-nameTag arg-0) (CoreC-45Name-nameTag arg-1)))))))) ((3) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((3) (let ((e-22 (vector-ref sc1 1))) (let ((e-23 (vector-ref sc1 2))) (CoreC-45Name-case--compare-2353 e-6 e-5 e-23 e-22 (PreludeC-45EqOrd-u--compare_Ord_Int e-6 e-23)))))(else (PreludeC-45EqOrd-u--compare_Ord_Int (CoreC-45Name-nameTag arg-0) (CoreC-45Name-nameTag arg-1)))))))) ((4) (let ((e-8 (vector-ref sc0 2))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((4) (let ((e-25 (vector-ref sc1 2))) (CoreC-45Name-u--compare_Ord_Name e-8 e-25)))(else (PreludeC-45EqOrd-u--compare_Ord_Int (CoreC-45Name-nameTag arg-0) (CoreC-45Name-nameTag arg-1))))))) ((5) (let ((e-9 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((5) (let ((e-26 (vector-ref sc1 1))) (PreludeC-45EqOrd-u--compare_Ord_String e-9 e-26)))(else (PreludeC-45EqOrd-u--compare_Ord_Int (CoreC-45Name-nameTag arg-0) (CoreC-45Name-nameTag arg-1))))))) ((6) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((6) (let ((e-27 (vector-ref sc1 1))) (let ((e-28 (vector-ref sc1 2))) (CoreC-45Name-case--compare-2409 e-11 e-10 e-28 e-27 (CoreC-45Name-u--compare_Ord_Name e-11 e-28)))))(else (PreludeC-45EqOrd-u--compare_Ord_Int (CoreC-45Name-nameTag arg-0) (CoreC-45Name-nameTag arg-1)))))))) ((7) (let ((e-12 (vector-ref sc0 1))) (let ((e-13 (vector-ref sc0 2))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((7) (let ((e-29 (vector-ref sc1 1))) (let ((e-30 (vector-ref sc1 2))) (CoreC-45Name-case--compare-2453 e-13 e-12 e-30 e-29 (PreludeC-45EqOrd-u--compare_Ord_Int e-13 e-30)))))(else (PreludeC-45EqOrd-u--compare_Ord_Int (CoreC-45Name-nameTag arg-0) (CoreC-45Name-nameTag arg-1)))))))) ((8) (let ((e-14 (vector-ref sc0 1))) (let ((e-15 (vector-ref sc0 2))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((8) (let ((e-31 (vector-ref sc1 1))) (let ((e-32 (vector-ref sc1 2))) (CoreC-45Name-case--compare-2493 e-15 e-14 e-32 e-31 (PreludeC-45EqOrd-u--compare_Ord_Int e-15 e-32)))))(else (PreludeC-45EqOrd-u--compare_Ord_Int (CoreC-45Name-nameTag arg-0) (CoreC-45Name-nameTag arg-1)))))))) ((9) (let ((e-16 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((9) (let ((e-33 (vector-ref sc1 1))) (PreludeC-45EqOrd-u--compare_Ord_Int e-16 e-33)))(else (PreludeC-45EqOrd-u--compare_Ord_Int (CoreC-45Name-nameTag arg-0) (CoreC-45Name-nameTag arg-1)))))))(else (PreludeC-45EqOrd-u--compare_Ord_Int (CoreC-45Name-nameTag arg-0) (CoreC-45Name-nameTag arg-1))))))) +(define CoreC-45Name-u--min_Ord_Name (lambda (arg-0 arg-1) (let ((sc0 (CoreC-45Name-u--C-60_Ord_Name arg-0 arg-1))) (cond ((equal? sc0 1) arg-0) (else arg-1))))) +(define CoreC-45Name-u--max_Ord_Name (lambda (arg-0 arg-1) (let ((sc0 (CoreC-45Name-u--C-62_Ord_Name arg-0 arg-1))) (cond ((equal? sc0 1) arg-0) (else arg-1))))) +(define CoreC-45Name-u--compare_Ord_Name (lambda (arg-0 arg-1) (case (vector-ref arg-0 0) ((0) (let ((e-0 (vector-ref arg-0 1))) (let ((e-1 (vector-ref arg-0 2))) (case (vector-ref arg-1 0) ((0) (let ((e-17 (vector-ref arg-1 1))) (let ((e-18 (vector-ref arg-1 2))) (let ((sc2 (CoreC-45Name-u--compare_Ord_Name e-1 e-18))) (cond ((equal? sc2 1) (CoreC-45NameC-45Namespace-u--compare_Ord_Namespace e-0 e-17)) ((equal? sc2 2) 2) (else 0))))))(else (PreludeC-45EqOrd-u--compare_Ord_Int (CoreC-45Name-nameTag arg-0) (CoreC-45Name-nameTag arg-1))))))) ((1) (let ((e-2 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((1) (let ((e-19 (vector-ref arg-1 1))) (PreludeC-45EqOrd-u--compare_Ord_String e-2 e-19)))(else (PreludeC-45EqOrd-u--compare_Ord_Int (CoreC-45Name-nameTag arg-0) (CoreC-45Name-nameTag arg-1)))))) ((2) (let ((e-3 (vector-ref arg-0 1))) (let ((e-4 (vector-ref arg-0 2))) (case (vector-ref arg-1 0) ((2) (let ((e-20 (vector-ref arg-1 1))) (let ((e-21 (vector-ref arg-1 2))) (let ((sc2 (PreludeC-45EqOrd-u--compare_Ord_Int e-4 e-21))) (cond ((equal? sc2 1) (PreludeC-45EqOrd-u--compare_Ord_String e-3 e-20)) ((equal? sc2 2) 2) (else 0))))))(else (PreludeC-45EqOrd-u--compare_Ord_Int (CoreC-45Name-nameTag arg-0) (CoreC-45Name-nameTag arg-1))))))) ((3) (let ((e-5 (vector-ref arg-0 1))) (let ((e-6 (vector-ref arg-0 2))) (case (vector-ref arg-1 0) ((3) (let ((e-22 (vector-ref arg-1 1))) (let ((e-23 (vector-ref arg-1 2))) (let ((sc2 (PreludeC-45EqOrd-u--compare_Ord_Int e-6 e-23))) (cond ((equal? sc2 1) (CoreC-45Name-u--compare_Ord_Name e-5 e-22)) ((equal? sc2 2) 2) (else 0))))))(else (PreludeC-45EqOrd-u--compare_Ord_Int (CoreC-45Name-nameTag arg-0) (CoreC-45Name-nameTag arg-1))))))) ((4) (let ((e-8 (vector-ref arg-0 2))) (case (vector-ref arg-1 0) ((4) (let ((e-25 (vector-ref arg-1 2))) (CoreC-45Name-u--compare_Ord_Name e-8 e-25)))(else (PreludeC-45EqOrd-u--compare_Ord_Int (CoreC-45Name-nameTag arg-0) (CoreC-45Name-nameTag arg-1)))))) ((5) (let ((e-9 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((5) (let ((e-26 (vector-ref arg-1 1))) (PreludeC-45EqOrd-u--compare_Ord_String e-9 e-26)))(else (PreludeC-45EqOrd-u--compare_Ord_Int (CoreC-45Name-nameTag arg-0) (CoreC-45Name-nameTag arg-1)))))) ((6) (let ((e-10 (vector-ref arg-0 1))) (let ((e-11 (vector-ref arg-0 2))) (case (vector-ref arg-1 0) ((6) (let ((e-27 (vector-ref arg-1 1))) (let ((e-28 (vector-ref arg-1 2))) (let ((sc2 (CoreC-45Name-u--compare_Ord_Name e-11 e-28))) (cond ((equal? sc2 1) (PreludeC-45EqOrd-u--compare_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) (vector (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) e-10 e-27)) ((equal? sc2 2) 2) (else 0))))))(else (PreludeC-45EqOrd-u--compare_Ord_Int (CoreC-45Name-nameTag arg-0) (CoreC-45Name-nameTag arg-1))))))) ((7) (let ((e-12 (vector-ref arg-0 1))) (let ((e-13 (vector-ref arg-0 2))) (case (vector-ref arg-1 0) ((7) (let ((e-29 (vector-ref arg-1 1))) (let ((e-30 (vector-ref arg-1 2))) (let ((sc2 (PreludeC-45EqOrd-u--compare_Ord_Int e-13 e-30))) (cond ((equal? sc2 1) (PreludeC-45EqOrd-u--compare_Ord_String e-12 e-29)) ((equal? sc2 2) 2) (else 0))))))(else (PreludeC-45EqOrd-u--compare_Ord_Int (CoreC-45Name-nameTag arg-0) (CoreC-45Name-nameTag arg-1))))))) ((8) (let ((e-14 (vector-ref arg-0 1))) (let ((e-15 (vector-ref arg-0 2))) (case (vector-ref arg-1 0) ((8) (let ((e-31 (vector-ref arg-1 1))) (let ((e-32 (vector-ref arg-1 2))) (let ((sc2 (PreludeC-45EqOrd-u--compare_Ord_Int e-15 e-32))) (cond ((equal? sc2 1) (PreludeC-45EqOrd-u--compare_Ord_String e-14 e-31)) ((equal? sc2 2) 2) (else 0))))))(else (PreludeC-45EqOrd-u--compare_Ord_Int (CoreC-45Name-nameTag arg-0) (CoreC-45Name-nameTag arg-1))))))) ((9) (let ((e-16 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((9) (let ((e-33 (vector-ref arg-1 1))) (PreludeC-45EqOrd-u--compare_Ord_Int e-16 e-33)))(else (PreludeC-45EqOrd-u--compare_Ord_Int (CoreC-45Name-nameTag arg-0) (CoreC-45Name-nameTag arg-1))))))(else (PreludeC-45EqOrd-u--compare_Ord_Int (CoreC-45Name-nameTag arg-0) (CoreC-45Name-nameTag arg-1)))))) (define CoreC-45Name-u--C-62_Ord_Name (lambda (arg-0 arg-1) (PreludeC-45EqOrd-u--C-61C-61_Eq_Ordering (CoreC-45Name-u--compare_Ord_Name arg-0 arg-1) 2))) (define CoreC-45Name-u--C-62C-61_Ord_Name (lambda (arg-0 arg-1) (PreludeC-45EqOrd-u--C-47C-61_Eq_Ordering (CoreC-45Name-u--compare_Ord_Name arg-0 arg-1) 0))) -(define CoreC-45Name-u--C-61C-61_Eq_Name (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) (let ((e-17 (vector-ref sc1 1))) (let ((e-18 (vector-ref sc1 2))) (PreludeC-45Basics-C-38C-38 (CoreC-45Name-u--C-61C-61_Eq_Name e-1 e-18) (lambda () (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace e-0 e-17))))))(else 1)))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) (let ((e-19 (vector-ref sc1 1))) (PreludeC-45EqOrd-u--C-61C-61_Eq_String e-2 e-19)))(else 1))))) ((2) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((2) (let ((e-20 (vector-ref sc1 1))) (let ((e-21 (vector-ref sc1 2))) (PreludeC-45Basics-C-38C-38 (PreludeC-45EqOrd-u--C-61C-61_Eq_Int e-4 e-21) (lambda () (PreludeC-45EqOrd-u--C-61C-61_Eq_String e-3 e-20))))))(else 1)))))) ((3) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((3) (let ((e-22 (vector-ref sc1 1))) (let ((e-23 (vector-ref sc1 2))) (PreludeC-45Basics-C-38C-38 (CoreC-45Name-u--C-61C-61_Eq_Name e-5 e-22) (lambda () (PreludeC-45EqOrd-u--C-61C-61_Eq_Int e-6 e-23))))))(else 1)))))) ((4) (let ((e-8 (vector-ref sc0 2))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((4) (let ((e-25 (vector-ref sc1 2))) (CoreC-45Name-u--C-61C-61_Eq_Name e-8 e-25)))(else 1))))) ((5) (let ((e-9 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((5) (let ((e-26 (vector-ref sc1 1))) (PreludeC-45EqOrd-u--C-61C-61_Eq_String e-9 e-26)))(else 1))))) ((6) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((6) (let ((e-27 (vector-ref sc1 1))) (let ((e-28 (vector-ref sc1 2))) (PreludeC-45Basics-C-38C-38 (PreludeC-45EqOrd-u--C-61C-61_Eq_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) e-10 e-27) (lambda () (CoreC-45Name-u--C-61C-61_Eq_Name e-11 e-28))))))(else 1)))))) ((7) (let ((e-12 (vector-ref sc0 1))) (let ((e-13 (vector-ref sc0 2))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((7) (let ((e-29 (vector-ref sc1 1))) (let ((e-30 (vector-ref sc1 2))) (PreludeC-45Basics-C-38C-38 (PreludeC-45EqOrd-u--C-61C-61_Eq_Int e-13 e-30) (lambda () (PreludeC-45EqOrd-u--C-61C-61_Eq_String e-12 e-29))))))(else 1)))))) ((8) (let ((e-14 (vector-ref sc0 1))) (let ((e-15 (vector-ref sc0 2))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((8) (let ((e-31 (vector-ref sc1 1))) (let ((e-32 (vector-ref sc1 2))) (PreludeC-45Basics-C-38C-38 (PreludeC-45EqOrd-u--C-61C-61_Eq_Int e-15 e-32) (lambda () (PreludeC-45EqOrd-u--C-61C-61_Eq_String e-14 e-31))))))(else 1)))))) ((9) (let ((e-16 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((9) (let ((e-33 (vector-ref sc1 1))) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int e-16 e-33)))(else 1)))))(else 1))))) +(define CoreC-45Name-u--C-61C-61_Eq_Name (lambda (arg-0 arg-1) (case (vector-ref arg-0 0) ((0) (let ((e-0 (vector-ref arg-0 1))) (let ((e-1 (vector-ref arg-0 2))) (case (vector-ref arg-1 0) ((0) (let ((e-17 (vector-ref arg-1 1))) (let ((e-18 (vector-ref arg-1 2))) (let ((sc2 (CoreC-45Name-u--C-61C-61_Eq_Name e-1 e-18))) (cond ((equal? sc2 1) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace e-0 e-17)) (else 0))))))(else 0))))) ((1) (let ((e-2 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((1) (let ((e-19 (vector-ref arg-1 1))) (PreludeC-45EqOrd-u--C-61C-61_Eq_String e-2 e-19)))(else 0)))) ((2) (let ((e-3 (vector-ref arg-0 1))) (let ((e-4 (vector-ref arg-0 2))) (case (vector-ref arg-1 0) ((2) (let ((e-20 (vector-ref arg-1 1))) (let ((e-21 (vector-ref arg-1 2))) (let ((sc2 (PreludeC-45EqOrd-u--C-61C-61_Eq_Int e-4 e-21))) (cond ((equal? sc2 1) (PreludeC-45EqOrd-u--C-61C-61_Eq_String e-3 e-20)) (else 0))))))(else 0))))) ((3) (let ((e-5 (vector-ref arg-0 1))) (let ((e-6 (vector-ref arg-0 2))) (case (vector-ref arg-1 0) ((3) (let ((e-22 (vector-ref arg-1 1))) (let ((e-23 (vector-ref arg-1 2))) (let ((sc2 (CoreC-45Name-u--C-61C-61_Eq_Name e-5 e-22))) (cond ((equal? sc2 1) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int e-6 e-23)) (else 0))))))(else 0))))) ((4) (let ((e-8 (vector-ref arg-0 2))) (case (vector-ref arg-1 0) ((4) (let ((e-25 (vector-ref arg-1 2))) (CoreC-45Name-u--C-61C-61_Eq_Name e-8 e-25)))(else 0)))) ((5) (let ((e-9 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((5) (let ((e-26 (vector-ref arg-1 1))) (PreludeC-45EqOrd-u--C-61C-61_Eq_String e-9 e-26)))(else 0)))) ((6) (let ((e-10 (vector-ref arg-0 1))) (let ((e-11 (vector-ref arg-0 2))) (case (vector-ref arg-1 0) ((6) (let ((e-27 (vector-ref arg-1 1))) (let ((e-28 (vector-ref arg-1 2))) (let ((sc2 (PreludeC-45EqOrd-u--C-61C-61_Eq_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) e-10 e-27))) (cond ((equal? sc2 1) (CoreC-45Name-u--C-61C-61_Eq_Name e-11 e-28)) (else 0))))))(else 0))))) ((7) (let ((e-12 (vector-ref arg-0 1))) (let ((e-13 (vector-ref arg-0 2))) (case (vector-ref arg-1 0) ((7) (let ((e-29 (vector-ref arg-1 1))) (let ((e-30 (vector-ref arg-1 2))) (let ((sc2 (PreludeC-45EqOrd-u--C-61C-61_Eq_Int e-13 e-30))) (cond ((equal? sc2 1) (PreludeC-45EqOrd-u--C-61C-61_Eq_String e-12 e-29)) (else 0))))))(else 0))))) ((8) (let ((e-14 (vector-ref arg-0 1))) (let ((e-15 (vector-ref arg-0 2))) (case (vector-ref arg-1 0) ((8) (let ((e-31 (vector-ref arg-1 1))) (let ((e-32 (vector-ref arg-1 2))) (let ((sc2 (PreludeC-45EqOrd-u--C-61C-61_Eq_Int e-15 e-32))) (cond ((equal? sc2 1) (PreludeC-45EqOrd-u--C-61C-61_Eq_String e-14 e-31)) (else 0))))))(else 0))))) ((9) (let ((e-16 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((9) (let ((e-33 (vector-ref arg-1 1))) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int e-16 e-33)))(else 0))))(else 0)))) (define CoreC-45Name-u--C-60_Ord_Name (lambda (arg-0 arg-1) (PreludeC-45EqOrd-u--C-61C-61_Eq_Ordering (CoreC-45Name-u--compare_Ord_Name arg-0 arg-1) 0))) (define CoreC-45Name-u--C-60C-61_Ord_Name (lambda (arg-0 arg-1) (PreludeC-45EqOrd-u--C-47C-61_Eq_Ordering (CoreC-45Name-u--compare_Ord_Name arg-0 arg-1) 2))) -(define CoreC-45Name-u--C-47C-61_Eq_Name (lambda (arg-0 arg-1) (let ((sc0 (CoreC-45Name-u--C-61C-61_Eq_Name arg-0 arg-1))) (cond ((equal? sc0 0) 1) (else 0))))) -(define CoreC-45Name-userNameRoot (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (CoreC-45Name-userNameRoot e-1))) ((1) (let ((e-2 (vector-ref sc0 1))) (vector 1 e-2))) ((4) (let ((e-4 (vector-ref sc0 2))) (CoreC-45Name-userNameRoot e-4))) ((5) (let ((e-5 (vector-ref sc0 1))) (vector 1 (PreludeC-45TypesC-45String-C-43C-43 "." e-5))))(else (vector 0 )))))) -(define CoreC-45Name-nameTag (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) 0) ((1) 1) ((2) 2) ((3) 3) ((4) 4) ((5) 5) ((6) 6) ((7) 7) ((8) 8) (else 9))))) -(define CoreC-45Name-nameRoot (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (CoreC-45Name-nameRoot e-1))) ((1) (let ((e-2 (vector-ref sc0 1))) e-2)) ((2) (let ((e-3 (vector-ref sc0 1))) e-3)) ((3) (let ((e-5 (vector-ref sc0 1))) (CoreC-45Name-nameRoot e-5))) ((4) (let ((e-8 (vector-ref sc0 2))) (CoreC-45Name-nameRoot e-8))) ((5) (let ((e-9 (vector-ref sc0 1))) e-9)) ((6) (let ((e-11 (vector-ref sc0 2))) (CoreC-45Name-nameRoot e-11))) ((7) (let ((e-12 (vector-ref sc0 1))) (PreludeC-45TypesC-45String-C-43C-43 "$" (PreludeC-45Show-u--show_Show_String e-12)))) ((8) (let ((e-14 (vector-ref sc0 1))) (PreludeC-45TypesC-45String-C-43C-43 "$" (PreludeC-45Show-u--show_Show_String e-14)))) (else (let ((e-16 (vector-ref sc0 1))) (PreludeC-45TypesC-45String-C-43C-43 "$" (PreludeC-45Show-u--show_Show_Int e-16)))))))) -(define CoreC-45Name-nameEq (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) (let ((e-17 (vector-ref sc1 1))) (let ((e-18 (vector-ref sc1 2))) (CoreC-45Name-with--nameEq-2556 e-0 e-17 (CoreC-45NameC-45Namespace-u--decEq_DecEq_Namespace e-0 e-17) e-1 e-18))))(else (vector 0 ))))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) (let ((e-19 (vector-ref sc1 1))) (CoreC-45Name-with--nameEq-2593 e-2 e-19 (DecidableC-45Equality-u--decEq_DecEq_String e-2 e-19))))(else (vector 0 )))))) ((2) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((2) (let ((e-20 (vector-ref sc1 1))) (let ((e-21 (vector-ref sc1 2))) (CoreC-45Name-with--nameEq-2620 e-3 e-20 (DecidableC-45Equality-u--decEq_DecEq_String e-3 e-20) e-4 e-21))))(else (vector 0 ))))))) ((3) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((3) (let ((e-22 (vector-ref sc1 1))) (let ((e-23 (vector-ref sc1 2))) (CoreC-45Name-with--nameEq-2664 e-5 e-22 (CoreC-45Name-nameEq e-5 e-22) e-6 e-23))))(else (vector 0 ))))))) ((4) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((4) (let ((e-24 (vector-ref sc1 1))) (let ((e-25 (vector-ref sc1 2))) (CoreC-45Name-with--nameEq-2705 e-7 e-24 (DecidableC-45Equality-u--decEq_DecEq_String e-7 e-24) e-8 e-25))))(else (vector 0 ))))))) ((5) (let ((e-9 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((5) (let ((e-26 (vector-ref sc1 1))) (CoreC-45Name-with--nameEq-2742 e-9 e-26 (DecidableC-45Equality-u--decEq_DecEq_String e-9 e-26))))(else (vector 0 )))))) ((6) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((6) (let ((e-27 (vector-ref sc1 1))) (let ((e-28 (vector-ref sc1 2))) (CoreC-45Name-with--nameEq-2776 e-10 e-27 (DecidableC-45Equality-u--decEq_DecEq_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (eta-0) (lambda (eta-1) (DecidableC-45Equality-u--decEq_DecEq_Int eta-0 eta-1))) (lambda (eta-0) (lambda (eta-1) (DecidableC-45Equality-u--decEq_DecEq_Int eta-0 eta-1)))) e-10 e-27) e-11 e-28))))(else (vector 0 ))))))) ((7) (let ((e-12 (vector-ref sc0 1))) (let ((e-13 (vector-ref sc0 2))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((7) (let ((e-29 (vector-ref sc1 1))) (let ((e-30 (vector-ref sc1 2))) (CoreC-45Name-with--nameEq-2820 e-12 e-29 (DecidableC-45Equality-u--decEq_DecEq_String e-12 e-29) e-13 e-30))))(else (vector 0 ))))))) ((8) (let ((e-14 (vector-ref sc0 1))) (let ((e-15 (vector-ref sc0 2))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((8) (let ((e-31 (vector-ref sc1 1))) (let ((e-32 (vector-ref sc1 2))) (CoreC-45Name-with--nameEq-2868 e-14 e-31 (DecidableC-45Equality-u--decEq_DecEq_String e-14 e-31) e-15 e-32))))(else (vector 0 ))))))) ((9) (let ((e-16 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((9) (let ((e-33 (vector-ref sc1 1))) (CoreC-45Name-with--nameEq-2916 e-16 e-33 (DecidableC-45Equality-u--decEq_DecEq_Int e-16 e-33))))(else (vector 0 ))))))(else (vector 0 )))))) -(define CoreC-45Name-mkNamespacedName (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (vector 1 arg-1)) (else (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2 (vector 1 arg-1)))))))) -(define CoreC-45Name-matches (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (CoreC-45NameC-45Namespace-isApproximationOf e-0 e-2)))(else 0)))))(else 0))))) -(define CoreC-45Name-isUserName (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((3) 1) ((2) 1) ((0) (let ((e-5 (vector-ref sc0 2))) (CoreC-45Name-isUserName e-5))) ((4) (let ((e-7 (vector-ref sc0 2))) (CoreC-45Name-isUserName e-7)))(else 0))))) -(define CoreC-45Name-isUnderscoreName (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 e-0)) (cond ((equal? sc1 "_") 0)(else 1))))) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (cond ((equal? sc1 "_") 0)(else 1)))))(else 1))))) -(define CoreC-45Name-isUN (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (vector 1 e-0)))(else (vector 0 )))))) -(define CoreC-45Name-dropNS (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) e-1))(else arg-0))))) -(define CoreC-45Name-dropAllNS (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (CoreC-45Name-dropAllNS e-1)))(else arg-0))))) -(define CoreC-45Name-asName (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((4) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (vector 4 e-0 (CoreC-45Name-asName arg-0 arg-1 e-1))))) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (CoreC-45NameC-45Namespace-replace arg-0 arg-1 e-2) e-3))))(else arg-2))))) -(define CoreC-45NameC-45Namespace-with--decEq-1308 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (vector 1 (lambda (eta-0) (e-1 (CoreC-45NameC-45Namespace-mkNSInjective eta-0)))))) (else (let ((e-3 (vector-ref sc0 1))) (vector 0 (PreludeC-45Basics-cong e-3)))))))) -(define CoreC-45NameC-45Namespace-case--max-1231 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0))))) -(define CoreC-45NameC-45Namespace-case--min-1217 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0))))) -(define CoreC-45NameC-45Namespace-case--replaceC-44go-1072 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) arg-1) (else (cons arg-3 (CoreC-45NameC-45Namespace-n--3979-1054-u--go arg-0 arg-1 arg-2 arg-4))))))) -(define CoreC-45NameC-45Namespace-n--4042-1107-u--go (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (if (null? sc0) '() (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (cons (cons e-2 e-3) (CoreC-45NameC-45Namespace-n--4042-1107-u--go arg-0 e-3)))))))) -(define CoreC-45NameC-45Namespace-n--3979-1054-u--go (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (if (null? sc0) '() (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (CoreC-45NameC-45Namespace-case--replaceC-44go-1072 arg-0 arg-1 arg-2 e-2 e-3 (PreludeC-45Types-u--C-61C-61_Eq_C-40ListC-32C-36aC-41 (cons (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-61C-61_Eq_String arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_String arg-4 arg-5)))) arg-0 (cons e-2 e-3))))))))) +(define CoreC-45Name-u--C-47C-61_Eq_Name (lambda (arg-0 arg-1) (let ((sc0 (CoreC-45Name-u--C-61C-61_Eq_Name arg-0 arg-1))) (cond ((equal? sc0 1) 0) (else 1))))) +(define CoreC-45Name-userNameRoot (lambda (arg-0) (case (vector-ref arg-0 0) ((0) (let ((e-1 (vector-ref arg-0 2))) (CoreC-45Name-userNameRoot e-1))) ((1) (let ((e-2 (vector-ref arg-0 1))) (box e-2))) ((4) (let ((e-4 (vector-ref arg-0 2))) (CoreC-45Name-userNameRoot e-4))) ((5) (let ((e-5 (vector-ref arg-0 1))) (box (PreludeC-45TypesC-45String-C-43C-43 "." e-5))))(else '())))) +(define CoreC-45Name-nameTag (lambda (arg-0) (case (vector-ref arg-0 0) ((0) 0) ((1) 1) ((2) 2) ((3) 3) ((4) 4) ((5) 5) ((6) 6) ((7) 7) ((8) 8) (else 9)))) +(define CoreC-45Name-nameRoot (lambda (arg-0) (case (vector-ref arg-0 0) ((0) (let ((e-1 (vector-ref arg-0 2))) (CoreC-45Name-nameRoot e-1))) ((1) (let ((e-2 (vector-ref arg-0 1))) e-2)) ((2) (let ((e-3 (vector-ref arg-0 1))) e-3)) ((3) (let ((e-5 (vector-ref arg-0 1))) (CoreC-45Name-nameRoot e-5))) ((4) (let ((e-8 (vector-ref arg-0 2))) (CoreC-45Name-nameRoot e-8))) ((5) (let ((e-9 (vector-ref arg-0 1))) e-9)) ((6) (let ((e-11 (vector-ref arg-0 2))) (CoreC-45Name-nameRoot e-11))) ((7) (let ((e-12 (vector-ref arg-0 1))) (PreludeC-45TypesC-45String-C-43C-43 "$" (PreludeC-45Show-u--show_Show_String e-12)))) ((8) (let ((e-14 (vector-ref arg-0 1))) (PreludeC-45TypesC-45String-C-43C-43 "$" (PreludeC-45Show-u--show_Show_String e-14)))) (else (let ((e-16 (vector-ref arg-0 1))) (PreludeC-45TypesC-45String-C-43C-43 "$" (PreludeC-45Show-u--show_Show_Int e-16))))))) +(define CoreC-45Name-nameEq (lambda (arg-0 arg-1) (case (vector-ref arg-0 0) ((0) (let ((e-0 (vector-ref arg-0 1))) (let ((e-1 (vector-ref arg-0 2))) (case (vector-ref arg-1 0) ((0) (let ((e-17 (vector-ref arg-1 1))) (let ((e-18 (vector-ref arg-1 2))) (CoreC-45Name-with--nameEq-4063 e-0 e-17 (CoreC-45NameC-45Namespace-u--decEq_DecEq_Namespace e-0 e-17) e-1 e-18))))(else '()))))) ((1) (let ((e-2 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((1) (let ((e-19 (vector-ref arg-1 1))) (CoreC-45Name-with--nameEq-4098 e-2 e-19 (DecidableC-45Equality-u--decEq_DecEq_String e-2 e-19))))(else '())))) ((2) (let ((e-3 (vector-ref arg-0 1))) (let ((e-4 (vector-ref arg-0 2))) (case (vector-ref arg-1 0) ((2) (let ((e-20 (vector-ref arg-1 1))) (let ((e-21 (vector-ref arg-1 2))) (CoreC-45Name-with--nameEq-4123 e-3 e-20 (DecidableC-45Equality-u--decEq_DecEq_String e-3 e-20) e-4 e-21))))(else '()))))) ((3) (let ((e-5 (vector-ref arg-0 1))) (let ((e-6 (vector-ref arg-0 2))) (case (vector-ref arg-1 0) ((3) (let ((e-22 (vector-ref arg-1 1))) (let ((e-23 (vector-ref arg-1 2))) (CoreC-45Name-with--nameEq-4163 e-5 e-22 (CoreC-45Name-nameEq e-5 e-22) e-6 e-23))))(else '()))))) ((4) (let ((e-7 (vector-ref arg-0 1))) (let ((e-8 (vector-ref arg-0 2))) (case (vector-ref arg-1 0) ((4) (let ((e-24 (vector-ref arg-1 1))) (let ((e-25 (vector-ref arg-1 2))) (CoreC-45Name-with--nameEq-4202 e-7 e-24 (DecidableC-45Equality-u--decEq_DecEq_String e-7 e-24) e-8 e-25))))(else '()))))) ((5) (let ((e-9 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((5) (let ((e-26 (vector-ref arg-1 1))) (CoreC-45Name-with--nameEq-4237 e-9 e-26 (DecidableC-45Equality-u--decEq_DecEq_String e-9 e-26))))(else '())))) ((6) (let ((e-10 (vector-ref arg-0 1))) (let ((e-11 (vector-ref arg-0 2))) (case (vector-ref arg-1 0) ((6) (let ((e-27 (vector-ref arg-1 1))) (let ((e-28 (vector-ref arg-1 2))) (CoreC-45Name-with--nameEq-4269 e-10 e-27 (DecidableC-45Equality-u--decEq_DecEq_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (eta-0) (lambda (eta-1) (DecidableC-45Equality-u--decEq_DecEq_Int eta-0 eta-1))) (lambda (eta-0) (lambda (eta-1) (DecidableC-45Equality-u--decEq_DecEq_Int eta-0 eta-1)))) e-10 e-27) e-11 e-28))))(else '()))))) ((7) (let ((e-12 (vector-ref arg-0 1))) (let ((e-13 (vector-ref arg-0 2))) (case (vector-ref arg-1 0) ((7) (let ((e-29 (vector-ref arg-1 1))) (let ((e-30 (vector-ref arg-1 2))) (CoreC-45Name-with--nameEq-4311 e-12 e-29 (DecidableC-45Equality-u--decEq_DecEq_String e-12 e-29) e-13 e-30))))(else '()))))) ((8) (let ((e-14 (vector-ref arg-0 1))) (let ((e-15 (vector-ref arg-0 2))) (case (vector-ref arg-1 0) ((8) (let ((e-31 (vector-ref arg-1 1))) (let ((e-32 (vector-ref arg-1 2))) (CoreC-45Name-with--nameEq-4355 e-14 e-31 (DecidableC-45Equality-u--decEq_DecEq_String e-14 e-31) e-15 e-32))))(else '()))))) ((9) (let ((e-16 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((9) (let ((e-33 (vector-ref arg-1 1))) (CoreC-45Name-with--nameEq-4399 e-16 e-33 (DecidableC-45Equality-u--decEq_DecEq_Int e-16 e-33))))(else '()))))(else '())))) +(define CoreC-45Name-mkNamespacedName (lambda (arg-0 arg-1) (if (null? arg-0) (vector 1 arg-1) (let ((e-2 (unbox arg-0))) (vector 0 e-2 (vector 1 arg-1)))))) +(define CoreC-45Name-matches (lambda (arg-0 arg-1) (case (vector-ref arg-0 0) ((0) (let ((e-0 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((0) (let ((e-2 (vector-ref arg-1 1))) (CoreC-45NameC-45Namespace-isApproximationOf e-0 e-2)))(else 1))))(else 1)))) +(define CoreC-45Name-isUserName (lambda (arg-0) (case (vector-ref arg-0 0) ((3) 0) ((2) 0) ((0) (let ((e-5 (vector-ref arg-0 2))) (CoreC-45Name-isUserName e-5))) ((4) (let ((e-7 (vector-ref arg-0 2))) (CoreC-45Name-isUserName e-7)))(else 1)))) +(define CoreC-45Name-isUnderscoreName (lambda (arg-0) (case (vector-ref arg-0 0) ((1) (let ((e-0 (vector-ref arg-0 1))) (cond ((equal? e-0 "_") 1)(else 0)))) ((2) (let ((e-1 (vector-ref arg-0 1))) (cond ((equal? e-1 "_") 1)(else 0))))(else 0)))) +(define CoreC-45Name-isUN (lambda (arg-0) (case (vector-ref arg-0 0) ((1) (let ((e-0 (vector-ref arg-0 1))) (box e-0)))(else '())))) +(define CoreC-45Name-isSourceName (lambda (arg-0) (case (vector-ref arg-0 0) ((0) (let ((e-1 (vector-ref arg-0 2))) (CoreC-45Name-isSourceName e-1))) ((1) 1) ((2) 0) ((3) (let ((e-5 (vector-ref arg-0 1))) (CoreC-45Name-isSourceName e-5))) ((4) (let ((e-8 (vector-ref arg-0 2))) (CoreC-45Name-isSourceName e-8))) ((5) 1) ((6) (let ((e-11 (vector-ref arg-0 2))) (CoreC-45Name-isSourceName e-11))) ((7) 0) ((8) 0) (else 0)))) +(define CoreC-45Name-isRF (lambda (arg-0) (case (vector-ref arg-0 0) ((0) (let ((e-0 (vector-ref arg-0 1))) (let ((e-1 (vector-ref arg-0 2))) (PreludeC-45Types-u--map_Functor_Maybe (lambda (eta-0) (let ((e-2 (car eta-0))) (let ((e-3 (cdr eta-0))) (cons (CoreC-45NameC-45Namespace-C-60C-46C-62 e-0 e-2) e-3)))) (CoreC-45Name-isRF e-1))))) ((5) (let ((e-2 (vector-ref arg-0 1))) (box (cons (CoreC-45NameC-45Namespace-emptyNS) e-2))))(else '())))) +(define CoreC-45Name-dropNS (lambda (arg-0) (case (vector-ref arg-0 0) ((0) (let ((e-1 (vector-ref arg-0 2))) e-1))(else arg-0)))) +(define CoreC-45Name-dropAllNS (lambda (arg-0) (case (vector-ref arg-0 0) ((0) (let ((e-1 (vector-ref arg-0 2))) (CoreC-45Name-dropAllNS e-1)))(else arg-0)))) +(define CoreC-45Name-displayName (lambda (arg-0) (case (vector-ref arg-0 0) ((0) (let ((e-0 (vector-ref arg-0 1))) (let ((e-1 (vector-ref arg-0 2))) (let ((sc1 (CoreC-45Name-displayName e-1))) (let ((e-2 (car sc1))) (let ((e-3 (cdr sc1))) (cons (PreludeC-45Types-u--pure_Applicative_Maybe (PreludeC-45Types-maybe (lambda () e-0) (lambda () (lambda (arg-1) (CoreC-45NameC-45Namespace-C-60C-46C-62 e-0 arg-1))) e-2)) e-3))))))) ((1) (let ((e-2 (vector-ref arg-0 1))) (cons '() e-2))) ((2) (let ((e-3 (vector-ref arg-0 1))) (cons '() e-3))) ((3) (let ((e-5 (vector-ref arg-0 1))) (CoreC-45Name-displayName e-5))) ((4) (let ((e-7 (vector-ref arg-0 1))) (cons '() e-7))) ((5) (let ((e-9 (vector-ref arg-0 1))) (cons '() e-9))) ((6) (let ((e-11 (vector-ref arg-0 2))) (CoreC-45Name-displayName e-11))) ((7) (let ((e-12 (vector-ref arg-0 1))) (cons '() (PreludeC-45TypesC-45String-C-43C-43 "case block in " (PreludeC-45Show-u--show_Show_String e-12))))) ((8) (let ((e-14 (vector-ref arg-0 1))) (cons '() (PreludeC-45TypesC-45String-C-43C-43 "with block in " (PreludeC-45Show-u--show_Show_String e-14))))) (else (let ((e-16 (vector-ref arg-0 1))) (cons '() (PreludeC-45TypesC-45String-C-43C-43 "$resolved" (PreludeC-45Show-u--show_Show_Int e-16)))))))) +(define CoreC-45Name-asName (lambda (arg-0 arg-1 arg-2) (case (vector-ref arg-2 0) ((4) (let ((e-0 (vector-ref arg-2 1))) (let ((e-1 (vector-ref arg-2 2))) (vector 4 e-0 (CoreC-45Name-asName arg-0 arg-1 e-1))))) ((0) (let ((e-2 (vector-ref arg-2 1))) (let ((e-3 (vector-ref arg-2 2))) (vector 0 (CoreC-45NameC-45Namespace-replace arg-0 arg-1 e-2) e-3))))(else arg-2)))) +(define CoreC-45NameC-45Namespace-with--decEq-2536 (lambda (arg-0 arg-1 arg-2) (case (vector-ref arg-2 0) ((1) (let ((e-1 (vector-ref arg-2 1))) (vector 1 (lambda (eta-0) (e-1 (CoreC-45NameC-45Namespace-mkNSInjective eta-0)))))) (else (let ((e-3 (vector-ref arg-2 1))) (vector 0 (PreludeC-45Basics-cong e-3))))))) +(define CoreC-45NameC-45Namespace-n--3486-2328-u--go (lambda (arg-0 arg-1) (if (null? arg-1) '() (let ((e-2 (car arg-1))) (let ((e-3 (cdr arg-1))) (cons (cons e-2 e-3) (CoreC-45NameC-45Namespace-n--3486-2328-u--go arg-0 e-3))))))) +(define CoreC-45NameC-45Namespace-n--3414-2261-u--go (lambda (arg-0 arg-1 arg-2 arg-3) (if (null? arg-3) '() (let ((e-2 (car arg-3))) (let ((e-3 (cdr arg-3))) (let ((sc1 (PreludeC-45Types-u--C-61C-61_Eq_C-40ListC-32C-36aC-41 (cons (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-61C-61_Eq_String arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_String arg-4 arg-5)))) arg-0 (cons e-2 e-3)))) (cond ((equal? sc1 1) arg-1) (else (cons e-2 (CoreC-45NameC-45Namespace-n--3414-2261-u--go arg-0 arg-1 arg-2 e-3)))))))))) (define CoreC-45NameC-45Namespace-u--show_Show_Namespace (lambda (ext-0) (CoreC-45NameC-45Namespace-showNSWithSep "." ext-0))) (define CoreC-45NameC-45Namespace-u--show_Show_ModuleIdent (lambda (ext-0) (CoreC-45NameC-45Namespace-showNSWithSep "." (CoreC-45NameC-45Namespace-miAsNamespace ext-0)))) (define CoreC-45NameC-45Namespace-u--showPrec_Show_Namespace (lambda (arg-0 arg-1) (CoreC-45NameC-45Namespace-u--show_Show_Namespace arg-1))) @@ -1696,26 +1223,27 @@ (define CoreC-45NameC-45Namespace-u--pretty_Pretty_ModuleIdent (lambda (ext-0) (CoreC-45NameC-45Namespace-u--pretty_Pretty_Namespace (CoreC-45NameC-45Namespace-miAsNamespace ext-0)))) (define CoreC-45NameC-45Namespace-u--prettyPrec_Pretty_Namespace (lambda (arg-1 arg-2) (CoreC-45NameC-45Namespace-u--pretty_Pretty_Namespace arg-2))) (define CoreC-45NameC-45Namespace-u--prettyPrec_Pretty_ModuleIdent (lambda (arg-1 arg-2) (CoreC-45NameC-45Namespace-u--pretty_Pretty_ModuleIdent arg-2))) -(define CoreC-45NameC-45Namespace-u--min_Ord_Namespace (lambda (arg-0 arg-1) (CoreC-45NameC-45Namespace-case--min-1217 arg-1 arg-0 (CoreC-45NameC-45Namespace-u--C-60_Ord_Namespace arg-0 arg-1)))) -(define CoreC-45NameC-45Namespace-u--max_Ord_Namespace (lambda (arg-0 arg-1) (CoreC-45NameC-45Namespace-case--max-1231 arg-1 arg-0 (CoreC-45NameC-45Namespace-u--C-62_Ord_Namespace arg-0 arg-1)))) -(define CoreC-45NameC-45Namespace-u--decEq_DecEq_Namespace (lambda (arg-0 arg-1) (CoreC-45NameC-45Namespace-with--decEq-1308 arg-0 arg-1 (DecidableC-45Equality-u--decEq_DecEq_C-40ListC-32C-36aC-41 (lambda (eta-0) (lambda (eta-1) (DecidableC-45Equality-u--decEq_DecEq_String eta-0 eta-1))) arg-0 arg-1)))) -(define CoreC-45NameC-45Namespace-u--compare_Ord_Namespace (lambda (arg-0 arg-1) (PreludeC-45Types-u--compare_Ord_C-40ListC-32C-36aC-41 (vector 0 (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_String arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_String arg-4 arg-5)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_String arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_String arg-383 arg-384)))) arg-0 arg-1))) +(define CoreC-45NameC-45Namespace-u--min_Ord_Namespace (lambda (arg-0 arg-1) (let ((sc0 (CoreC-45NameC-45Namespace-u--C-60_Ord_Namespace arg-0 arg-1))) (cond ((equal? sc0 1) arg-0) (else arg-1))))) +(define CoreC-45NameC-45Namespace-u--max_Ord_Namespace (lambda (arg-0 arg-1) (let ((sc0 (CoreC-45NameC-45Namespace-u--C-62_Ord_Namespace arg-0 arg-1))) (cond ((equal? sc0 1) arg-0) (else arg-1))))) +(define CoreC-45NameC-45Namespace-u--decEq_DecEq_Namespace (lambda (arg-0 arg-1) (CoreC-45NameC-45Namespace-with--decEq-2536 arg-0 arg-1 (DecidableC-45Equality-u--decEq_DecEq_C-40ListC-32C-36aC-41 (lambda (eta-0) (lambda (eta-1) (DecidableC-45Equality-u--decEq_DecEq_String eta-0 eta-1))) arg-0 arg-1)))) +(define CoreC-45NameC-45Namespace-u--compare_Ord_Namespace (lambda (arg-0 arg-1) (PreludeC-45Types-u--compare_Ord_C-40ListC-32C-36aC-41 (vector (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_String arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_String arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_String arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_String arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_String arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_String arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_String arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_String arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_String arg-366 arg-367)))) arg-0 arg-1))) (define CoreC-45NameC-45Namespace-u--C-62_Ord_Namespace (lambda (arg-0 arg-1) (PreludeC-45EqOrd-u--C-61C-61_Eq_Ordering (CoreC-45NameC-45Namespace-u--compare_Ord_Namespace arg-0 arg-1) 2))) (define CoreC-45NameC-45Namespace-u--C-62C-61_Ord_Namespace (lambda (arg-0 arg-1) (PreludeC-45EqOrd-u--C-47C-61_Eq_Ordering (CoreC-45NameC-45Namespace-u--compare_Ord_Namespace arg-0 arg-1) 0))) (define CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace (lambda (arg-0 arg-1) (PreludeC-45Types-u--C-61C-61_Eq_C-40ListC-32C-36aC-41 (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_String arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_String arg-4 arg-5)))) arg-0 arg-1))) (define CoreC-45NameC-45Namespace-u--C-61C-61_Eq_ModuleIdent (lambda (arg-0 arg-1) (PreludeC-45Types-u--C-61C-61_Eq_C-40ListC-32C-36aC-41 (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_String arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_String arg-4 arg-5)))) arg-0 arg-1))) (define CoreC-45NameC-45Namespace-u--C-60_Ord_Namespace (lambda (arg-0 arg-1) (PreludeC-45EqOrd-u--C-61C-61_Eq_Ordering (CoreC-45NameC-45Namespace-u--compare_Ord_Namespace arg-0 arg-1) 0))) (define CoreC-45NameC-45Namespace-u--C-60C-61_Ord_Namespace (lambda (arg-0 arg-1) (PreludeC-45EqOrd-u--C-47C-61_Eq_Ordering (CoreC-45NameC-45Namespace-u--compare_Ord_Namespace arg-0 arg-1) 2))) -(define CoreC-45NameC-45Namespace-u--C-47C-61_Eq_Namespace (lambda (arg-0 arg-1) (let ((sc0 (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace arg-0 arg-1))) (cond ((equal? sc0 0) 1) (else 0))))) -(define CoreC-45NameC-45Namespace-u--C-47C-61_Eq_ModuleIdent (lambda (arg-0 arg-1) (let ((sc0 (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_ModuleIdent arg-0 arg-1))) (cond ((equal? sc0 0) 1) (else 0))))) +(define CoreC-45NameC-45Namespace-u--C-47C-61_Eq_Namespace (lambda (arg-0 arg-1) (let ((sc0 (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace arg-0 arg-1))) (cond ((equal? sc0 1) 0) (else 1))))) +(define CoreC-45NameC-45Namespace-u--C-47C-61_Eq_ModuleIdent (lambda (arg-0 arg-1) (let ((sc0 (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_ModuleIdent arg-0 arg-1))) (cond ((equal? sc0 1) 0) (else 1))))) (define CoreC-45NameC-45Namespace-unsafeUnfoldNamespace (lambda (arg-0) arg-0)) (define CoreC-45NameC-45Namespace-unsafeUnfoldModuleIdent (lambda (arg-0) arg-0)) (define CoreC-45NameC-45Namespace-unsafeFoldNamespace (lambda (ext-0) ext-0)) (define CoreC-45NameC-45Namespace-unsafeFoldModuleIdent (lambda (ext-0) ext-0)) (define CoreC-45NameC-45Namespace-typesNS (lambda () (CoreC-45NameC-45Namespace-mkNamespace "Prelude.Types"))) -(define CoreC-45NameC-45Namespace-showSep (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (if (null? sc0) "" (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-3)) (if (null? sc1) e-2 (PreludeC-45TypesC-45String-C-43C-43 e-2 (PreludeC-45TypesC-45String-C-43C-43 arg-0 (CoreC-45NameC-45Namespace-showSep arg-0 e-3))))))))))) +(define CoreC-45NameC-45NamespaceC-45ModuleIdent-toPath (lambda (ext-0) (LibrariesC-45UtilsC-45Path-joinPath (DataC-45List-reverse (CoreC-45NameC-45Namespace-unsafeUnfoldModuleIdent ext-0))))) +(define CoreC-45NameC-45Namespace-showSep (lambda (arg-0 arg-1) (if (null? arg-1) "" (let ((e-2 (car arg-1))) (let ((e-3 (cdr arg-1))) (if (null? e-3) e-2 (PreludeC-45TypesC-45String-C-43C-43 e-2 (PreludeC-45TypesC-45String-C-43C-43 arg-0 (CoreC-45NameC-45Namespace-showSep arg-0 e-3))))))))) (define CoreC-45NameC-45Namespace-showNSWithSep (lambda (arg-0 arg-1) (CoreC-45NameC-45Namespace-showSep arg-0 (DataC-45List-reverse arg-1)))) -(define CoreC-45NameC-45Namespace-replace (lambda (arg-0 arg-1 arg-2) (CoreC-45NameC-45Namespace-n--3979-1054-u--go arg-0 arg-1 arg-2 arg-2))) +(define CoreC-45NameC-45Namespace-replace (lambda (arg-0 arg-1 arg-2) (CoreC-45NameC-45Namespace-n--3414-2261-u--go arg-0 arg-1 arg-2 arg-2))) (define CoreC-45NameC-45Namespace-reflectionTTNS (lambda () (CoreC-45NameC-45Namespace-mkNamespace "Language.Reflection.TT"))) (define CoreC-45NameC-45Namespace-reflectionTTImpNS (lambda () (CoreC-45NameC-45Namespace-mkNamespace "Language.Reflection.TTImp"))) (define CoreC-45NameC-45Namespace-reflectionNS (lambda () (CoreC-45NameC-45Namespace-mkNamespace "Language.Reflection"))) @@ -1724,124 +1252,119 @@ (define CoreC-45NameC-45Namespace-partialEvalNS (lambda () (CoreC-45NameC-45Namespace-mkNamespace "_PE"))) (define CoreC-45NameC-45Namespace-numNS (lambda () (CoreC-45NameC-45Namespace-mkNamespace "Prelude.Num"))) (define CoreC-45NameC-45Namespace-nsAsModuleIdent (lambda (arg-0) arg-0)) -(define CoreC-45NameC-45Namespace-natNS (lambda () (CoreC-45NameC-45Namespace-mkNamespace "Data.Nat"))) -(define CoreC-45NameC-45Namespace-mkNestedNamespace (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (cons arg-1 '())) (else (let ((e-2 (vector-ref sc0 1))) (cons arg-1 e-2))))))) -(define CoreC-45NameC-45Namespace-mkNamespacedIdent (lambda (arg-0) (let ((u--nns (DataC-45List1-reverse (DataC-45String-split (lambda (arg-1) (PreludeC-45EqOrd-u--C-61C-61_Eq_Char arg-1 #\.)) arg-0)))) (let ((u--name (let ((sc0 u--nns)) (let ((e-1 (car sc0))) e-1)))) (let ((u--ns (let ((sc0 u--nns)) (let ((e-2 (cdr sc0))) e-2)))) (let ((sc0 u--ns)) (if (null? sc0) (cons (vector 0 ) u--name) (cons (vector 1 u--ns) u--name)))))))) -(define CoreC-45NameC-45Namespace-mkNamespace (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 "") '())(else (PreludeC-45Basics-uncurry (lambda (eta-0) (lambda (eta-1) (CoreC-45NameC-45Namespace-mkNestedNamespace eta-0 eta-1))) (CoreC-45NameC-45Namespace-mkNamespacedIdent arg-0))))))) -(define CoreC-45NameC-45Namespace-mkNSInjective (lambda (arg-2) (let ((sc0 arg-2)) (vector 0 )))) +(define CoreC-45NameC-45Namespace-mkNestedNamespace (lambda (arg-0 arg-1) (if (null? arg-0) (cons arg-1 '()) (let ((e-2 (unbox arg-0))) (cons arg-1 e-2))))) +(define CoreC-45NameC-45Namespace-mkNamespacedIdent (lambda (arg-0) (let ((u--nns (DataC-45List1-reverse (DataC-45String-split (lambda (arg-1) (PreludeC-45EqOrd-u--C-61C-61_Eq_Char arg-1 #\.)) arg-0)))) (let ((u--name (let ((e-1 (car u--nns))) e-1))) (let ((u--ns (let ((e-2 (cdr u--nns))) e-2))) (if (null? u--ns) (cons '() u--name) (cons (box u--ns) u--name))))))) +(define CoreC-45NameC-45Namespace-mkNamespace (lambda (arg-0) (cond ((equal? arg-0 "") '())(else (PreludeC-45Basics-uncurry (lambda (eta-0) (lambda (eta-1) (CoreC-45NameC-45Namespace-mkNestedNamespace eta-0 eta-1))) (CoreC-45NameC-45Namespace-mkNamespacedIdent arg-0)))))) +(define CoreC-45NameC-45Namespace-mkNSInjective (lambda (arg-2) (cond (else 0)))) (define CoreC-45NameC-45Namespace-miAsNamespace (lambda (arg-0) arg-0)) (define CoreC-45NameC-45Namespace-mainNS (lambda () (CoreC-45NameC-45Namespace-mkNamespace "Main"))) (define CoreC-45NameC-45Namespace-isParentOf (lambda (arg-0 arg-1) (DataC-45List-isSuffixOf (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_String arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_String arg-4 arg-5)))) arg-0 arg-1))) (define CoreC-45NameC-45Namespace-isApproximationOf (lambda (arg-0 arg-1) (DataC-45List-isPrefixOf (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_String arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_String arg-4 arg-5)))) arg-0 arg-1))) -(define CoreC-45NameC-45Namespace-eqOrdNS (lambda () (CoreC-45NameC-45Namespace-mkNamespace "Prelude.EqOrd"))) (define CoreC-45NameC-45Namespace-emptyNS (lambda () (CoreC-45NameC-45Namespace-mkNamespace ""))) (define CoreC-45NameC-45Namespace-dpairNS (lambda () (CoreC-45NameC-45Namespace-mkNamespace "Builtin.DPair"))) (define CoreC-45NameC-45Namespace-builtinNS (lambda () (CoreC-45NameC-45Namespace-mkNamespace "Builtin"))) (define CoreC-45NameC-45Namespace-basicsNS (lambda () (CoreC-45NameC-45Namespace-mkNamespace "Prelude.Basics"))) -(define CoreC-45NameC-45Namespace-allParents (lambda (arg-0) (CoreC-45NameC-45Namespace-n--4042-1107-u--go arg-0 arg-0))) +(define CoreC-45NameC-45Namespace-allParents (lambda (arg-0) (CoreC-45NameC-45Namespace-n--3486-2328-u--go arg-0 arg-0))) (define CoreC-45NameC-45Namespace-C-60C-46C-62 (lambda (arg-0 arg-1) (PreludeC-45TypesC-45List-C-43C-43 arg-1 arg-0))) -(define LibrariesC-45DataC-45BoolC-45Extra-anyTrue (lambda (arg-0) (let ((sc0 arg-0)) (if (null? sc0) 1 (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (PreludeC-45Basics-C-124C-124 e-2 (lambda () (LibrariesC-45DataC-45BoolC-45Extra-anyTrue e-3))))))))) -(define LibrariesC-45DataC-45BoolC-45Extra-allTrue (lambda (arg-0) (let ((sc0 arg-0)) (if (null? sc0) 0 (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (PreludeC-45Basics-C-38C-38 e-2 (lambda () (LibrariesC-45DataC-45BoolC-45Extra-allTrue e-3))))))))) -(define CoreC-45FC-case--mergeFC-999 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (vector 1 (vector 0 arg-2 (PreludeC-45EqOrd-u--min_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector 0 (cons (lambda (arg-7) (lambda (arg-8) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-7 arg-8))) (lambda (arg-7) (lambda (arg-8) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-7 arg-8)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Int arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Int arg-383 arg-384)))) (vector 0 (cons (lambda (arg-7) (lambda (arg-8) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-7 arg-8))) (lambda (arg-7) (lambda (arg-8) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-7 arg-8)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Int arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Int arg-383 arg-384)))) arg-1 arg-4) (PreludeC-45EqOrd-u--max_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector 0 (cons (lambda (arg-7) (lambda (arg-8) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-7 arg-8))) (lambda (arg-7) (lambda (arg-8) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-7 arg-8)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Int arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Int arg-383 arg-384)))) (vector 0 (cons (lambda (arg-7) (lambda (arg-8) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-7 arg-8))) (lambda (arg-7) (lambda (arg-8) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-7 arg-8)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Int arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Int arg-383 arg-384)))) arg-0 arg-3)))) (else (vector 0 )))))) -(define CoreC-45FC-n--3611-1143-u--prettyPos (lambda (arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Int (bs+ e-2 1 63)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Int (bs+ e-3 1 63)))))))) -(define CoreC-45FC-u--show_Show_FC (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) "EmptyFC") (else (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (PreludeC-45TypesC-45String-C-43C-43 e-0 (PreludeC-45TypesC-45String-C-43C-43 ":" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-showPos e-1) (PreludeC-45TypesC-45String-C-43C-43 "--" (CoreC-45FC-showPos e-2))))))))))))) -(define CoreC-45FC-u--showPrec_Show_FC (lambda (arg-0 arg-1) (CoreC-45FC-u--show_Show_FC arg-1))) -(define CoreC-45FC-u--pretty_Pretty_FC (lambda (arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "EmptyFC")) (else (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String e-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon)) (CoreC-45FC-n--3611-1143-u--prettyPos e-2 e-1 e-0 e-1)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "--")) (CoreC-45FC-n--3611-1143-u--prettyPos e-2 e-1 e-0 e-2)))))))))) -(define CoreC-45FC-u--C-61C-61_Eq_FC (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (let ((e-5 (vector-ref sc1 3))) (PreludeC-45Basics-C-38C-38 (PreludeC-45EqOrd-u--C-61C-61_Eq_String e-0 e-3) (lambda () (PreludeC-45Basics-C-38C-38 (PreludeC-45EqOrd-u--C-61C-61_Eq_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) e-1 e-4) (lambda () (PreludeC-45EqOrd-u--C-61C-61_Eq_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) e-2 e-5)))))))))(else 1))))))) ((1) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) 0)(else 1))))(else 1))))) -(define CoreC-45FC-within (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 arg-1)) (let ((e-7 (cdr sc1))) (let ((sc2 e-7)) (let ((e-10 (car sc2))) (let ((e-11 (cdr sc2))) (PreludeC-45Basics-C-38C-38 (PreludeC-45EqOrd-u--C-62C-61_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector 0 (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Int arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Int arg-383 arg-384)))) (vector 0 (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Int arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Int arg-383 arg-384)))) (cons e-2 e-3) e-10) (lambda () (PreludeC-45EqOrd-u--C-60C-61_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector 0 (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Int arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Int arg-383 arg-384)))) (vector 0 (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Int arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Int arg-383 arg-384)))) (cons e-2 e-3) e-11))))))))))))) -(define CoreC-45FC-toplevelFC (lambda () (vector 0 "(toplevel)" (cons 0 0) (cons 0 0)))) -(define CoreC-45FC-toNonEmptyFC (lambda (ext-0) (DataC-45Maybe-fromMaybe (lambda () (CoreC-45FC-defaultFC)) (CoreC-45FC-isNonEmptyFC ext-0)))) -(define CoreC-45FC-startPos (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-3 (cdr sc0))) (let ((sc1 e-3)) (let ((e-6 (car sc1))) e-6)))))) -(define CoreC-45FC-startLine (lambda (ext-0) (Builtin-fst (CoreC-45FC-startPos ext-0)))) -(define CoreC-45FC-startCol (lambda (ext-0) (Builtin-snd (CoreC-45FC-startPos ext-0)))) -(define CoreC-45FC-showPos (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Int (bs+ e-2 1 63)) (PreludeC-45TypesC-45String-C-43C-43 ":" (PreludeC-45Show-u--show_Show_Int (bs+ e-3 1 63))))))))) -(define CoreC-45FC-onLine (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-3 (cdr sc0))) (let ((sc1 e-3)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (PreludeC-45Basics-C-38C-38 (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-0 (Builtin-fst e-6)) (lambda () (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-0 (Builtin-fst e-7))))))))))) -(define CoreC-45FC-mergeFC (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (let ((e-5 (vector-ref sc1 3))) (CoreC-45FC-case--mergeFC-999 e-2 e-1 e-0 e-5 e-4 e-3 (PreludeC-45EqOrd-u--C-61C-61_Eq_String e-0 e-3))))))(else (vector 0 ))))))))(else (vector 0 )))))) -(define CoreC-45FC-justFC (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-3)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (vector 0 e-2 e-6 e-7))))))))) -(define CoreC-45FC-isNonEmptyFC (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (vector 1 (cons e-0 (cons e-1 e-2))))))) (else (vector 0 )))))) -(define CoreC-45FC-emptyFC (lambda () (vector 1 ))) -(define CoreC-45FC-defaultFC (lambda () (cons "" (cons (cons 0 0) (cons 0 0))))) -(define CoreC-45FC-boundToFC (lambda (arg-1 arg-2) (vector 0 arg-1 (LibrariesC-45TextC-45Bounded-start arg-2) (LibrariesC-45TextC-45Bounded-end arg-2)))) -(define LibrariesC-45TextC-45Bounded-case--caseC-32blockC-32inC-32mergeBounds-1140 (lambda (arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (vector 0 (let ((sc1 arg-2)) (let ((e-1 (vector-ref sc1 1))) e-1)) 1 (vector 0 arg-4 arg-5 e-2 e-3))))))) -(define LibrariesC-45TextC-45Bounded-case--mergeBounds-1115 (lambda (arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (LibrariesC-45TextC-45Bounded-case--caseC-32blockC-32inC-32mergeBounds-1140 arg-2 arg-3 e-2 e-3 (PreludeC-45EqOrd-u--max_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector 0 (cons (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-5 arg-6)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Int arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Int arg-383 arg-384)))) (vector 0 (cons (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-5 arg-6)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Int arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Int arg-383 arg-384)))) (LibrariesC-45TextC-45Bounded-end arg-3) (LibrariesC-45TextC-45Bounded-end arg-2)))))))) -(define LibrariesC-45TextC-45Bounded-u--map_Functor_WithBounds (lambda (arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (vector 0 (arg-2 e-1) e-2 e-3))))))) -(define LibrariesC-45TextC-45Bounded-startBounds (lambda (arg-0) (cons (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0)) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))) -(define LibrariesC-45TextC-45Bounded-start (lambda (ext-0) (LibrariesC-45TextC-45Bounded-startBounds (let ((sc0 ext-0)) (let ((e-3 (vector-ref sc0 3))) e-3))))) -(define LibrariesC-45TextC-45Bounded-removeIrrelevance (lambda (arg-1) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 3))) (vector 0 e-1 0 e-3)))))) -(define LibrariesC-45TextC-45Bounded-mergeBounds (lambda (arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-6 (vector-ref sc0 2))) (let ((sc1 e-6)) (cond ((equal? sc1 0) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((0) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (let ((sc3 e-10)) (cond ((equal? sc3 0) (LibrariesC-45TextC-45Bounded-irrelevantBounds e-9))(else arg-3))))))(else arg-3))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 e-2)) (cond ((equal? sc2 0) (PreludeC-45Interfaces-C-60C-36C-62 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (LibrariesC-45TextC-45Bounded-u--map_Functor_WithBounds u--func arg-143))))) (lambda (eta-0) e-1) arg-2))(else (LibrariesC-45TextC-45Bounded-case--mergeBounds-1115 arg-3 arg-2 (PreludeC-45EqOrd-u--min_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector 0 (cons (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Int arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Int arg-383 arg-384)))) (vector 0 (cons (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Int arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Int arg-383 arg-384)))) (LibrariesC-45TextC-45Bounded-start arg-2) (LibrariesC-45TextC-45Bounded-start arg-3)))))))))(else (LibrariesC-45TextC-45Bounded-case--mergeBounds-1115 arg-3 arg-2 (PreludeC-45EqOrd-u--min_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector 0 (cons (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Int arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Int arg-383 arg-384)))) (vector 0 (cons (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Int arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Int arg-383 arg-384)))) (LibrariesC-45TextC-45Bounded-start arg-2) (LibrariesC-45TextC-45Bounded-start arg-3)))))))))))(else (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (cond ((equal? sc1 0) (PreludeC-45Interfaces-C-60C-36C-62 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (LibrariesC-45TextC-45Bounded-u--map_Functor_WithBounds u--func arg-143))))) (lambda (eta-0) e-1) arg-2))(else (LibrariesC-45TextC-45Bounded-case--mergeBounds-1115 arg-3 arg-2 (PreludeC-45EqOrd-u--min_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector 0 (cons (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Int arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Int arg-383 arg-384)))) (vector 0 (cons (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Int arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Int arg-383 arg-384)))) (LibrariesC-45TextC-45Bounded-start arg-2) (LibrariesC-45TextC-45Bounded-start arg-3)))))))))(else (LibrariesC-45TextC-45Bounded-case--mergeBounds-1115 arg-3 arg-2 (PreludeC-45EqOrd-u--min_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector 0 (cons (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Int arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Int arg-383 arg-384)))) (vector 0 (cons (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Int arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Int arg-383 arg-384)))) (LibrariesC-45TextC-45Bounded-start arg-2) (LibrariesC-45TextC-45Bounded-start arg-3))))))))))) -(define LibrariesC-45TextC-45Bounded-irrelevantBounds (lambda (arg-1) (vector 0 arg-1 0 (vector 0 -1 -1 -1 -1)))) -(define LibrariesC-45TextC-45Bounded-endBounds (lambda (arg-0) (cons (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2)) (let ((sc0 arg-0)) (let ((e-3 (vector-ref sc0 4))) e-3))))) -(define LibrariesC-45TextC-45Bounded-end (lambda (ext-0) (LibrariesC-45TextC-45Bounded-endBounds (let ((sc0 ext-0)) (let ((e-3 (vector-ref sc0 3))) e-3))))) -(define CoreC-45Env-case--caseC-32blockC-32inC-32mkShrinkSub-1855 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (cons (cons arg-0 arg-4) (vector 2 arg-5))) (else (cons arg-4 (vector 1 arg-5))))))) -(define CoreC-45Env-case--mkShrinkSub-1834 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (CoreC-45Env-case--caseC-32blockC-32inC-32mkShrinkSub-1855 arg-0 arg-1 arg-2 arg-3 e-2 e-3 (CoreC-45Env-isUsed 0 arg-3))))))) -(define CoreC-45Env-case--mkShrinkSub-1793 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (cons (cons arg-0 '()) (vector 2 (vector 0 )))) (else (cons '() (vector 1 (vector 0 )))))))) -(define CoreC-45Env-case--findUsed-1534 (lambda (arg-0 arg-2 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (cond ((equal? sc0 0) arg-6) (else (CoreC-45Env-findUsedInBinder arg-0 arg-7 (cons arg-2 arg-6) (CoreC-45Env-getBinder (cons (lambda (u--n) (lambda (u--vars) (lambda (arg-5476) (CoreC-45TT-u--weaken_Weaken_Term arg-5476)))) (lambda (u--vars) (lambda (u--ns) (lambda (arg-5481) (lambda (arg-5483) (CoreC-45TT-u--weakenNs_Weaken_Term arg-5481 arg-5483)))))) arg-0 arg-2 arg-7))))))) -(define CoreC-45Env-case--defined-909 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Env-defined arg-1 arg-4 arg-2) (lambda (_-0) (let ((sc1 _-0)) (let ((e-2 (car sc1))) (let ((e-3 (cdr sc1))) (PreludeC-45Types-u--pure_Applicative_Maybe (cons (+ 1 e-2) e-3)))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (vector 1 (cons 0 (CoreC-45TT-multiplicity arg-3)))))))))) -(define CoreC-45Env-n--4868-1589-u--findUsedArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (if (null? sc0) arg-8 (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (CoreC-45Env-n--4868-1589-u--findUsedArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (CoreC-45Env-findUsed arg-0 arg-7 arg-8 e-2) e-3))))))) -(define CoreC-45Env-n--4868-1523-u--eqNat (lambda (arg-0 arg-2 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (PreludeC-45EqOrd-u--C-61C-61_Eq_Integer arg-8 arg-9))) -(define CoreC-45Env-n--4868-1604-u--dropS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (if (null? sc0) '() (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (cond ((equal? sc1 0) (CoreC-45Env-n--4868-1604-u--dropS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3))(else (let ((e-4 (- e-2 1))) (cons e-4 (CoreC-45Env-n--4868-1604-u--dropS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3)))))))))))) -(define CoreC-45Env-toVar (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (if (null? sc0) (vector 0 ) (let ((e-2 (cdr sc0))) (let ((sc1 arg-1)) (cond ((equal? sc1 0) (vector 1 0))(else (let ((e-3 (- arg-1 1))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Env-toVar e-2 e-3) (lambda (_-0) (vector 1 (+ 1 _-0))))))))))))) -(define CoreC-45Env-shrinkEnv (lambda (arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 1 arg-2))(else (let ((sc0 arg-2)) (let ((e-3 (car sc0))) (let ((e-4 (cdr sc0))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((1) (let ((e-8 (vector-ref sc1 1))) (CoreC-45Env-shrinkEnv e-4 e-8))) (else (let ((e-12 (vector-ref sc1 1))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Env-shrinkEnv e-4 e-12) (lambda (u--envC-39) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45TT-shrinkBinder e-3 e-12) (lambda (u--bC-39) (PreludeC-45Types-u--pure_Applicative_Maybe (cons u--bC-39 u--envC-39)))))))))))))))))) -(define CoreC-45Env-mkShrinkSub (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (if (null? sc0) (CoreC-45Env-case--mkShrinkSub-1793 arg-0 arg-2 (CoreC-45Env-isUsed 0 arg-2)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (CoreC-45Env-case--mkShrinkSub-1834 arg-0 e-2 e-3 arg-2 (CoreC-45Env-mkShrinkSub e-2 e-3 (CoreC-45TT-dropFirst arg-2))))))))) -(define CoreC-45Env-mkShrink (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (if (null? sc0) (cons '() (vector 0 )) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (CoreC-45Env-mkShrinkSub e-2 e-3 arg-1))))))) -(define CoreC-45Env-mkEnv (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (if (null? sc0) '() (let ((e-3 (cdr sc0))) (cons (vector 3 arg-0 (AlgebraC-45ZeroOneOmega-u--top_Top_ZeroOneOmega) (vector 1 ) (vector 10 arg-0 1)) (CoreC-45Env-mkEnv arg-0 e-3))))))) -(define CoreC-45Env-letToLam (lambda (arg-1) (let ((sc0 arg-1)) (if (null? sc0) '() (let ((e-4 (car sc0))) (let ((e-5 (cdr sc0))) (let ((sc1 e-4)) (case (vector-ref sc1 0) ((1) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((e-10 (vector-ref sc1 4))) (cons (vector 0 e-7 e-8 (vector 1 ) e-10) (CoreC-45Env-letToLam e-5))))))(else (cons e-4 (CoreC-45Env-letToLam e-5))))))))))) -(define CoreC-45Env-length (lambda (arg-2) (let ((sc0 arg-2)) (if (null? sc0) 0 (let ((e-5 (cdr sc0))) (+ 1 (CoreC-45Env-length e-5))))))) -(define CoreC-45Env-isUsed (lambda (arg-1 arg-2) (let ((sc0 arg-2)) (if (null? sc0) 1 (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (PreludeC-45Basics-C-124C-124 (PreludeC-45Types-u--C-61C-61_Eq_Nat arg-1 (CoreC-45TT-varIdx e-2)) (lambda () (CoreC-45Env-isUsed arg-1 e-3))))))))) -(define CoreC-45Env-getBinderUnder (lambda (arg-2 arg-3 arg-4 arg-5 arg-7) (let ((sc0 arg-3)) (let ((e-1 (car sc0))) (let ((e-2 (cdr sc0))) (let ((sc1 arg-4)) (cond ((equal? sc1 0) (let ((sc2 arg-7)) (let ((e-7 (car sc2))) (CoreC-45TT-u--map_Functor_Binder (lambda (eta-0) (let ((sc3 arg-2)) (let ((e-3 (cdr sc3))) ((((e-3 'erased) 'erased) (CoreC-45TTC-45SizeOf-reverse (CoreC-45TTC-45SizeOf-mkSizeOf (cons e-1 arg-5)))) eta-0)))) e-7))))(else (let ((e-3 (- arg-4 1))) (let ((sc1 arg-7)) (let ((e-13 (cdr sc1))) (CoreC-45Env-getBinderUnder arg-2 e-2 e-3 (cons e-1 arg-5) e-13)))))))))))) -(define CoreC-45Env-getBinderLoc (lambda (arg-2 arg-3 arg-5) (let ((sc0 arg-2)) (let ((e-2 (cdr sc0))) (let ((sc1 arg-3)) (cond ((equal? sc1 0) (let ((sc2 arg-5)) (let ((e-7 (car sc2))) (CoreC-45TT-binderLoc e-7))))(else (let ((e-3 (- arg-3 1))) (let ((sc1 arg-5)) (let ((e-13 (cdr sc1))) (CoreC-45Env-getBinderLoc e-2 e-3 e-13))))))))))) -(define CoreC-45Env-getBinder (lambda (arg-2 arg-3 arg-4 arg-6) (CoreC-45Env-getBinderUnder arg-2 arg-3 arg-4 '() arg-6))) -(define CoreC-45Env-findUsedLocs (lambda (arg-0 arg-1 arg-2) (DataC-45List-mapMaybe (lambda (eta-0) (CoreC-45Env-toVar arg-0 eta-0)) (CoreC-45Env-findUsed arg-0 arg-1 '() arg-2)))) -(define CoreC-45Env-findUsedInBinder (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (CoreC-45Env-findUsed arg-0 arg-1 (CoreC-45Env-findUsed arg-0 arg-1 arg-2 e-3) e-4)))) ((4) (let ((e-8 (vector-ref sc0 3))) (let ((e-9 (vector-ref sc0 4))) (CoreC-45Env-findUsed arg-0 arg-1 (CoreC-45Env-findUsed arg-0 arg-1 arg-2 e-8) e-9))))(else (CoreC-45Env-findUsed arg-0 arg-1 arg-2 (CoreC-45TT-binderType arg-3))))))) -(define CoreC-45Env-findUsed (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (CoreC-45Env-case--findUsed-1534 arg-0 e-4 e-3 e-2 arg-2 arg-1 (DataC-45List-elemBy (lambda (eta-0) (lambda (eta-1) (CoreC-45Env-n--4868-1523-u--eqNat arg-0 e-4 e-3 e-2 arg-2 arg-1 eta-0 eta-1))) e-4 arg-2)))))) ((2) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (let ((e-10 (vector-ref sc0 4))) (CoreC-45Env-n--4868-1589-u--findUsedArgs arg-0 e-7 e-8 e-9 e-10 arg-2 arg-1 arg-1 arg-2 e-10)))))) ((3) (let ((e-12 (vector-ref sc0 1))) (let ((e-13 (vector-ref sc0 2))) (let ((e-14 (vector-ref sc0 3))) (let ((e-15 (vector-ref sc0 4))) (CoreC-45Env-n--4868-1604-u--dropS arg-0 e-13 e-15 e-14 e-12 arg-2 arg-1 (CoreC-45Env-findUsed (cons e-13 arg-0) (cons e-14 arg-1) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (+ 1 eta-0)) (CoreC-45Env-findUsedInBinder arg-0 arg-1 arg-2 e-14)) e-15))))))) ((4) (let ((e-18 (vector-ref sc0 2))) (let ((e-19 (vector-ref sc0 3))) (CoreC-45Env-findUsed arg-0 arg-1 (CoreC-45Env-findUsed arg-0 arg-1 arg-2 e-18) e-19)))) ((5) (let ((e-23 (vector-ref sc0 3))) (let ((e-24 (vector-ref sc0 4))) (CoreC-45Env-findUsed arg-0 arg-1 (CoreC-45Env-findUsed arg-0 arg-1 arg-2 e-23) e-24)))) ((6) (let ((e-28 (vector-ref sc0 3))) (CoreC-45Env-findUsed arg-0 arg-1 arg-2 e-28))) ((7) (let ((e-32 (vector-ref sc0 3))) (let ((e-33 (vector-ref sc0 4))) (CoreC-45Env-findUsed arg-0 arg-1 (CoreC-45Env-findUsed arg-0 arg-1 arg-2 e-32) e-33)))) ((8) (let ((e-37 (vector-ref sc0 3))) (CoreC-45Env-findUsed arg-0 arg-1 arg-2 e-37)))(else arg-2))))) -(define CoreC-45Env-findSubEnv (lambda (arg-0 arg-1 arg-2) (CoreC-45Env-mkShrink arg-0 (CoreC-45Env-findUsedLocs arg-0 arg-1 arg-2)))) -(define CoreC-45Env-defined (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-0)) (if (null? sc0) (let ((sc1 arg-2)) (vector 0 )) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 arg-2)) (let ((e-8 (car sc1))) (let ((e-9 (cdr sc1))) (CoreC-45Env-case--defined-909 e-2 e-3 e-9 e-8 arg-1 (CoreC-45Name-nameEq arg-1 e-2))))))))))) -(define CoreC-45Env-bindEnv (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-0)) (if (null? sc0) (let ((sc1 arg-2)) arg-3) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 arg-2)) (let ((e-8 (car sc1))) (let ((e-9 (cdr sc1))) (CoreC-45Env-bindEnv e-3 arg-1 e-9 (vector 3 arg-1 e-2 e-8 arg-3))))))))))) -(define CoreC-45Env-allVarsNoLet (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (if (null? sc0) (let ((sc1 arg-1)) '()) (let ((e-3 (cdr sc0))) (let ((sc1 arg-1)) (let ((e-8 (car sc1))) (let ((e-9 (cdr sc1))) (let ((sc2 e-8)) (case (vector-ref sc2 0) ((1) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45TT-u--weaken_Weaken_Var eta-0)) (CoreC-45Env-allVars e-3 e-9)))(else (cons 0 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45TT-u--weaken_Weaken_Var eta-0)) (CoreC-45Env-allVars e-3 e-9)))))))))))))) -(define CoreC-45Env-allVars (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (if (null? sc0) (let ((sc1 arg-1)) '()) (let ((e-3 (cdr sc0))) (let ((sc1 arg-1)) (let ((e-9 (cdr sc1))) (cons 0 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45TT-u--weaken_Weaken_Var eta-0)) (CoreC-45Env-allVars e-3 e-9)))))))))) -(define CoreC-45Env-abstractFullEnvType (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-0)) (if (null? sc0) (let ((sc1 arg-2)) arg-3) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 arg-2)) (let ((e-8 (car sc1))) (let ((e-9 (cdr sc1))) (let ((sc2 e-8)) (case (vector-ref sc2 0) ((2) (let ((e-11 (vector-ref sc2 1))) (let ((e-12 (vector-ref sc2 2))) (let ((e-13 (vector-ref sc2 3))) (let ((e-14 (vector-ref sc2 4))) (CoreC-45Env-abstractFullEnvType e-3 arg-1 e-9 (vector 3 arg-1 e-2 (vector 2 e-11 e-12 e-13 e-14) arg-3)))))))(else (let ((u--bnd (vector 2 arg-1 (CoreC-45TT-multiplicity e-8) (vector 1 ) (CoreC-45TT-binderType e-8)))) (CoreC-45Env-abstractFullEnvType e-3 arg-1 e-9 (vector 3 arg-1 e-2 u--bnd arg-3))))))))))))))) -(define CoreC-45Env-abstractEnvType (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-0)) (if (null? sc0) (let ((sc1 arg-2)) arg-3) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 arg-2)) (let ((e-8 (car sc1))) (let ((e-9 (cdr sc1))) (let ((sc2 e-8)) (case (vector-ref sc2 0) ((1) (let ((e-11 (vector-ref sc2 1))) (let ((e-12 (vector-ref sc2 2))) (let ((e-13 (vector-ref sc2 3))) (let ((e-14 (vector-ref sc2 4))) (CoreC-45Env-abstractEnvType e-3 arg-1 e-9 (vector 3 arg-1 e-2 (vector 1 e-11 e-12 e-13 e-14) arg-3))))))) ((2) (let ((e-16 (vector-ref sc2 1))) (let ((e-17 (vector-ref sc2 2))) (let ((e-18 (vector-ref sc2 3))) (let ((e-19 (vector-ref sc2 4))) (CoreC-45Env-abstractEnvType e-3 arg-1 e-9 (vector 3 arg-1 e-2 (vector 2 e-16 e-17 e-18 e-19) arg-3)))))))(else (let ((u--bnd (vector 2 (CoreC-45TT-binderLoc e-8) (CoreC-45TT-multiplicity e-8) (vector 1 ) (CoreC-45TT-binderType e-8)))) (CoreC-45Env-abstractEnvType e-3 arg-1 e-9 (vector 3 arg-1 e-2 u--bnd arg-3))))))))))))))) -(define ParserC-45Unlit-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32isLitLine-4325 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (if (null? sc0) (cons (vector 0 ) arg-0) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (cons (vector 1 e-5) e-3)))(else (cons (vector 0 ) arg-0)))))))))) -(define ParserC-45Unlit-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32isLitLine-4296 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (if (null? sc0) (ParserC-45Unlit-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32isLitLine-4325 arg-0 arg-1 arg-2 arg-3 (LibrariesC-45TextC-45Literate-isLiterateLine (ParserC-45Unlit-styleTeX) arg-0)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (cons (vector 1 e-5) e-3)))(else (ParserC-45Unlit-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32isLitLine-4325 arg-0 arg-1 arg-2 arg-3 (LibrariesC-45TextC-45Literate-isLiterateLine (ParserC-45Unlit-styleTeX) arg-0))))))))))) -(define ParserC-45Unlit-case--caseC-32blockC-32inC-32isLitLine-4271 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (if (null? sc0) (ParserC-45Unlit-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32isLitLine-4296 arg-0 arg-1 arg-2 (LibrariesC-45TextC-45Literate-isLiterateLine (ParserC-45Unlit-styleCMark) arg-0)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (cons (vector 1 e-5) e-3)))(else (ParserC-45Unlit-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32isLitLine-4296 arg-0 arg-1 arg-2 (LibrariesC-45TextC-45Literate-isLiterateLine (ParserC-45Unlit-styleCMark) arg-0))))))))))) -(define ParserC-45Unlit-case--isLitLine-4250 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (if (null? sc0) (ParserC-45Unlit-case--caseC-32blockC-32inC-32isLitLine-4271 arg-0 arg-1 (LibrariesC-45TextC-45Literate-isLiterateLine (ParserC-45Unlit-styleOrg) arg-0)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (cons (vector 1 e-5) e-3)))(else (ParserC-45Unlit-case--caseC-32blockC-32inC-32isLitLine-4271 arg-0 arg-1 (LibrariesC-45TextC-45Literate-isLiterateLine (ParserC-45Unlit-styleOrg) arg-0))))))))))) -(define ParserC-45Unlit-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32isLitFile-4234 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (vector 1 e-1))) (else (ParserC-45Unlit-n--2517-4176-u--isStyle arg-0 (ParserC-45Unlit-styleTeX))))))) -(define ParserC-45Unlit-case--caseC-32blockC-32inC-32isLitFile-4219 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (vector 1 e-1))) (else (ParserC-45Unlit-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32isLitFile-4234 arg-0 (ParserC-45Unlit-n--2517-4176-u--isStyle arg-0 (ParserC-45Unlit-styleCMark)))))))) -(define ParserC-45Unlit-case--isLitFile-4204 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (vector 1 e-1))) (else (ParserC-45Unlit-case--caseC-32blockC-32inC-32isLitFile-4219 arg-0 (ParserC-45Unlit-n--2517-4176-u--isStyle arg-0 (ParserC-45Unlit-styleOrg)))))))) -(define ParserC-45Unlit-case--isLitFileC-44isStyle-4187 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 1 arg-1)) (else (vector 0 )))))) -(define ParserC-45Unlit-n--2517-4176-u--isStyle (lambda (arg-0 arg-1) (ParserC-45Unlit-case--isLitFileC-44isStyle-4187 arg-0 arg-1 (PreludeC-45Interfaces-any (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (lambda (eta-0) (ParserC-45Unlit-n--2517-4175-u--hasSuffix arg-0 eta-0)) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 3))) e-2)))))) -(define ParserC-45Unlit-n--2517-4175-u--hasSuffix (lambda (arg-0 arg-1) (DataC-45String-isSuffixOf arg-1 arg-0))) -(define ParserC-45Unlit-unlit (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (vector 1 arg-1)) (else (let ((e-2 (vector-ref sc0 1))) (LibrariesC-45TextC-45Literate-unlit e-2 arg-1))))))) -(define ParserC-45Unlit-styleTeX (lambda () (vector 0 (cons (cons "\\begin{code}" "\\end{code}") (cons (cons "\\begin{hidden}" "\\end{hidden}") '())) '() (cons ".tex" (cons ".ltx" '()))))) -(define ParserC-45Unlit-styleOrg (lambda () (vector 0 (cons (cons "#+BEGIN_SRC idris" "#+END_SRC") (cons (cons "#+begin_src idris" "#+end_src") (cons (cons "#+BEGIN_COMMENT idris" "#+END_COMMENT") (cons (cons "#+begin_comment idris" "#+end_comment") '())))) (cons "#+IDRIS:" '()) (cons ".org" '())))) -(define ParserC-45Unlit-styleCMark (lambda () (vector 0 (cons (cons "```idris" "```") (cons (cons "~~~idris" "~~~") (cons (cons "") '()))) '() (cons ".md" (cons ".markdown" '()))))) -(define ParserC-45Unlit-styleBird (lambda () (vector 0 '() (cons ">" (cons "<" '())) (cons ".lidr" '())))) -(define ParserC-45Unlit-relit (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) arg-1) (else (let ((e-2 (vector-ref sc0 1))) (DataC-45String-unwords (cons e-2 (cons arg-1 '()))))))))) -(define ParserC-45Unlit-isLitLine (lambda (arg-0) (ParserC-45Unlit-case--isLitLine-4250 arg-0 (LibrariesC-45TextC-45Literate-isLiterateLine (ParserC-45Unlit-styleBird) arg-0)))) -(define ParserC-45Unlit-isLitFile (lambda (arg-0) (ParserC-45Unlit-case--isLitFile-4204 arg-0 (ParserC-45Unlit-n--2517-4176-u--isStyle arg-0 (ParserC-45Unlit-styleBird))))) -(define LibrariesC-45TextC-45Literate-with--isLiterateLine-4546 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (if (null? sc1) (cons (vector 0 ) arg-2) (let ((e-5 (car sc1))) (let ((e-6 (cdr sc1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (let ((e-8 (vector-ref sc2 1))) (let ((sc3 e-8)) (case (vector-ref sc3 0) ((2) (let ((e-11 (vector-ref sc3 1))) (let ((e-12 (vector-ref sc3 2))) (let ((sc4 e-6)) (if (null? sc4) (let ((sc5 e-3)) (if (null? sc5) (cons (vector 0 ) arg-2) (let ((e-17 (cdr sc5))) (let ((sc6 e-17)) (if (null? sc6) (cons (vector 0 ) arg-2) (let ((e-21 (cdr sc6))) (let ((sc7 e-21)) (cond ((equal? sc7 "") (cons (vector 1 e-11) e-12))(else (cons (vector 0 ) arg-2)))))))))) (cons (vector 0 ) arg-2))))))(else (cons (vector 0 ) arg-2))))))(else (cons (vector 0 ) arg-2))))))))))))) -(define LibrariesC-45TextC-45Literate-with--withC-32blockC-32inC-32reduce-4404 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-0)) (if (null? sc0) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) (LibrariesC-45TextC-45Literate-reduce arg-6 arg-5))(else (let ((sc1 arg-1)) (let ((e-2 (vector-ref sc1 2))) (LibrariesC-45TextC-45Literate-reduce arg-6 (cons (PreludeC-45TypesC-45String-C-43C-43 (LibrariesC-45DataC-45StringC-45Extra-unlines e-2) "\u000a") (cons "\u000a" arg-5)))))))) (let ((sc1 arg-1)) (let ((e-2 (vector-ref sc1 2))) (LibrariesC-45TextC-45Literate-reduce arg-6 (cons (PreludeC-45TypesC-45String-C-43C-43 (LibrariesC-45DataC-45StringC-45Extra-unlines e-2) "\u000a") (cons "\u000a" arg-5))))))))) -(define LibrariesC-45TextC-45Literate-with--reduce-4395 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-1)) (let ((e-1 (car sc0))) (let ((e-2 (cdr sc0))) (LibrariesC-45TextC-45Literate-with--withC-32blockC-32inC-32reduce-4404 e-2 (DataC-45ListC-45Views-snocList e-2) arg-2 arg-3 e-1 arg-7 arg-6 arg-5 arg-4 arg-0)))))) -(define LibrariesC-45TextC-45Literate-case--extractCode-4481 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-3)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (let ((sc2 e-7)) (let ((e-10 (car sc2))) (let ((e-11 (cdr sc2))) (let ((sc3 e-11)) (cond ((equal? sc3 "") (vector 1 (LibrariesC-45TextC-45Literate-reduce e-2 '())))(else (vector 0 (vector 0 e-6 e-10 e-11)))))))))))))))) -(define LibrariesC-45TextC-45Literate-case--reduce-4346 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (LibrariesC-45TextC-45Literate-reduce arg-4 (cons "\u000a" arg-5))) (else (LibrariesC-45TextC-45Literate-reduce arg-4 (cons (PreludeC-45Types-substr (PreludeC-45Types-u--C-43_Num_Nat (PreludeC-45TypesC-45String-length arg-3) (+ 1 0)) (PreludeC-45TypesC-45String-length arg-2) arg-2) arg-5))))))) -(define LibrariesC-45TextC-45Literate-case--reduce-4303 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (LibrariesC-45TextC-45Literate-reduce arg-3 (cons "\u000a" arg-4))) (else (LibrariesC-45TextC-45Literate-reduce arg-3 arg-4)))))) -(define LibrariesC-45TextC-45Literate-untilEOL (lambda () (LibrariesC-45TextC-45Lexer-manyUntil (LibrariesC-45TextC-45Lexer-newline) (LibrariesC-45TextC-45Lexer-any)))) -(define LibrariesC-45TextC-45Literate-unlit (lambda (ext-0 ext-1) (LibrariesC-45TextC-45Literate-extractCode ext-0 ext-1))) -(define LibrariesC-45TextC-45Literate-reduce (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (if (null? sc0) (DataC-45String-fastAppend (DataC-45List-reverse arg-1)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((e-7 (vector-ref sc1 3))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-8 (vector-ref sc2 1))) (LibrariesC-45TextC-45Literate-case--reduce-4303 e-6 e-7 e-8 e-3 arg-1 (PreludeC-45EqOrd-u--C-61C-61_Eq_String e-8 "\u000a")))) ((2) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (LibrariesC-45TextC-45Literate-case--reduce-4346 e-6 e-7 e-10 e-9 e-3 arg-1 (PreludeC-45EqOrd-u--C-61C-61_Eq_String e-9 (DataC-45String-trim e-10)))))) (else (let ((e-11 (vector-ref sc2 1))) (let ((e-12 (vector-ref sc2 2))) (let ((e-13 (vector-ref sc2 3))) (LibrariesC-45TextC-45Literate-with--reduce-4395 e-13 (LibrariesC-45DataC-45StringC-45Extra-lines e-13) e-6 e-7 e-12 e-11 e-3 arg-1))))))))))))))))) -(define LibrariesC-45TextC-45Literate-rawTokens (lambda (arg-0 arg-1) (PreludeC-45TypesC-45List-C-43C-43 (PreludeC-45Types-u--map_Functor_List (lambda (lamc-0) (let ((sc0 lamc-0)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (cons (LibrariesC-45TextC-45Literate-block e-2 e-3) (lambda (eta-0) (vector 0 (DataC-45String-trim e-2) (DataC-45String-trim e-3) eta-0))))))) arg-0) (PreludeC-45TypesC-45List-C-43C-43 (PreludeC-45Types-u--map_Functor_List (lambda (u--m) (cons (LibrariesC-45TextC-45Literate-line u--m) (lambda (eta-0) (vector 2 (DataC-45String-trim u--m) eta-0)))) arg-1) (cons (cons (LibrariesC-45TextC-45Literate-notCodeLine) (lambda (eta-0) (vector 1 eta-0))) '()))))) -(define LibrariesC-45TextC-45Literate-notCodeLine (lambda () (LibrariesC-45TextC-45LexerC-45Core-C-60C-124C-62 (LibrariesC-45TextC-45Lexer-newline) (vector 4 (LibrariesC-45TextC-45Lexer-any) (lambda () (LibrariesC-45TextC-45Literate-untilEOL)))))) -(define LibrariesC-45TextC-45Literate-line (lambda (arg-0) (vector 4 (LibrariesC-45TextC-45Lexer-exact arg-0) (lambda () (LibrariesC-45TextC-45LexerC-45Core-C-60C-124C-62 (LibrariesC-45TextC-45Lexer-newline) (vector 4 (LibrariesC-45TextC-45Lexer-space) (lambda () (LibrariesC-45TextC-45Literate-untilEOL)))))))) -(define LibrariesC-45TextC-45Literate-isLiterateLine (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (LibrariesC-45TextC-45Literate-with--isLiterateLine-4546 e-1 e-0 arg-1 (LibrariesC-45TextC-45LexerC-45Core-lex (LibrariesC-45TextC-45Literate-rawTokens e-0 e-1) arg-1) e-2))))))) -(define LibrariesC-45TextC-45Literate-extractCode (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (LibrariesC-45TextC-45Literate-case--extractCode-4481 e-2 e-1 e-0 arg-1 (LibrariesC-45TextC-45LexerC-45Core-lex (LibrariesC-45TextC-45Literate-rawTokens e-0 e-1) arg-1)))))))) -(define LibrariesC-45TextC-45Literate-block (lambda (arg-0 arg-1) (LibrariesC-45TextC-45Lexer-surround (vector 4 (LibrariesC-45TextC-45Lexer-exact arg-0) (lambda () (LibrariesC-45TextC-45Literate-untilEOL))) (vector 4 (LibrariesC-45TextC-45Lexer-exact arg-1) (lambda () (LibrariesC-45TextC-45Literate-untilEOL))) (LibrariesC-45TextC-45Lexer-any)))) -(define DataC-45ListC-45Views-snocListHelp (lambda (arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (if (null? sc0) arg-2 (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (DataC-45ListC-45Views-snocListHelp (PreludeC-45TypesC-45List-C-43C-43 arg-1 (cons e-2 '())) (vector 1 e-2 arg-1 arg-2) e-3))))))) -(define DataC-45ListC-45Views-snocList (lambda (arg-1) (DataC-45ListC-45Views-snocListHelp '() (vector 0 ) arg-1))) -(define LibrariesC-45TextC-45Lexer-case--approx-583 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (if (null? sc0) (LibrariesC-45TextC-45LexerC-45Core-fail) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (LibrariesC-45TextC-45LexerC-45Core-concatMap (lambda (eta-0) (LibrariesC-45TextC-45Lexer-like eta-0)) (cons e-2 e-3)))))))) -(define LibrariesC-45TextC-45Lexer-case--exact-562 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (if (null? sc0) (LibrariesC-45TextC-45LexerC-45Core-fail) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (LibrariesC-45TextC-45LexerC-45Core-concatMap (lambda (eta-0) (LibrariesC-45TextC-45Lexer-is eta-0)) (cons e-2 e-3)))))))) -(define LibrariesC-45TextC-45Lexer-n--3573-726-u--lexStr (lambda (arg-0) (let ((sc0 arg-0)) (if (null? sc0) (LibrariesC-45TextC-45LexerC-45Core-fail) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (LibrariesC-45TextC-45LexerC-45Core-C-60C-124C-62 (LibrariesC-45TextC-45Lexer-exact e-2) (LibrariesC-45TextC-45Lexer-n--3573-726-u--lexStr e-3)))))))) -(define LibrariesC-45TextC-45Lexer-n--3573-727-u--control (lambda () (LibrariesC-45TextC-45LexerC-45Core-C-60C-124C-62 (LibrariesC-45TextC-45Lexer-n--3573-726-u--lexStr (cons "NUL" (cons "SOH" (cons "STX" (cons "ETX" (cons "EOT" (cons "ENQ" (cons "ACK" (cons "BEL" (cons "BS" (cons "HT" (cons "LF" (cons "VT" (cons "FF" (cons "CR" (cons "SO" (cons "SI" (cons "DLE" (cons "DC1" (cons "DC2" (cons "DC3" (cons "DC4" (cons "NAK" (cons "SYN" (cons "ETB" (cons "CAN" (cons "EM" (cons "SUB" (cons "ESC" (cons "FS" (cons "GS" (cons "RS" (cons "US" (cons "SP" (cons "DEL" '()))))))))))))))))))))))))))))))))))) (LibrariesC-45TextC-45LexerC-45Core-C-60C-124C-62 (vector 4 (LibrariesC-45TextC-45Lexer-is #\x) (lambda () (LibrariesC-45TextC-45Lexer-hexDigits))) (LibrariesC-45TextC-45LexerC-45Core-C-60C-124C-62 (vector 4 (LibrariesC-45TextC-45Lexer-is #\o) (lambda () (LibrariesC-45TextC-45Lexer-octDigits))) (LibrariesC-45TextC-45Lexer-digits)))))) -(define LibrariesC-45TextC-45Lexer-toTokenMap (lambda (ext-0) (PreludeC-45Types-u--map_Functor_List (lambda (lamc-0) (let ((sc0 lamc-0)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (cons e-2 (lambda (eta-0) (cons e-3 eta-0))))))) ext-0))) -(define LibrariesC-45TextC-45Lexer-symbol (lambda () (LibrariesC-45TextC-45LexerC-45Core-pred (lambda (u--x) (let ((sc0 (PreludeC-45Basics-C-124C-124 (PreludeC-45Types-isSpace u--x) (lambda () (PreludeC-45Types-isAlphaNum u--x))))) (cond ((equal? sc0 0) 1) (else 0))))))) +(define LibrariesC-45UtilsC-45Path-case--C-60C-46C-62-2106 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (if (null? arg-5) arg-1 (let ((e-1 (unbox arg-5))) (let ((sc1 (LibrariesC-45UtilsC-45Path-splitFileName e-1))) (let ((e-2 (car sc1))) (LibrariesC-45UtilsC-45Path-u--show_Show_Path (LibrariesC-45UtilsC-45Path-setFileNameC-39 (PreludeC-45TypesC-45String-C-43C-43 e-2 arg-4) arg-2)))))))) +(define LibrariesC-45UtilsC-45Path-case--caseC-32blockC-32inC-32dropBase-1893 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((e-0 (vector-ref arg-6 0))) (let ((e-1 (vector-ref arg-6 1))) (let ((e-2 (vector-ref arg-6 2))) (let ((e-3 (vector-ref arg-6 3))) (PreludeC-45Interfaces-C-62C-62 (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (PreludeC-45Types-u--map_Functor_Maybe u--func arg-133))))) (lambda (u--a) (lambda (arg-527) (PreludeC-45Types-u--pure_Applicative_Maybe arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (PreludeC-45Types-u--C-60C-42C-62_Applicative_Maybe arg-528 arg-530)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe arg-811 arg-812))))) (lambda (u--a) (lambda (arg-814) (PreludeC-45Types-u--join_Monad_Maybe arg-814)))) (let ((sc0 (let ((sc1 (PreludeC-45Types-u--C-61C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-7) (lambda (arg-8) (LibrariesC-45UtilsC-45Path-u--C-61C-61_Eq_Volume arg-7 arg-8))) (lambda (arg-7) (lambda (arg-8) (LibrariesC-45UtilsC-45Path-u--C-47C-61_Eq_Volume arg-7 arg-8)))) arg-5 e-0))) (cond ((equal? sc1 1) (PreludeC-45EqOrd-u--C-61C-61_Eq_Bool arg-4 e-1)) (else 0))))) (cond ((equal? sc0 1) (box 0)) (else '()))) (lambda () (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (LibrariesC-45UtilsC-45Path-n--4696-1833-u--dropBody arg-0 arg-1 arg-3 e-2) (lambda (u--body) (PreludeC-45Types-u--pure_Applicative_Maybe (LibrariesC-45UtilsC-45Path-u--show_Show_Path (vector '() 0 u--body e-3))))))))))))) +(define LibrariesC-45UtilsC-45Path-case--splitFileName-1610 (lambda (arg-0 arg-1) (let ((e-2 (car arg-1))) (let ((e-3 (cdr arg-1))) (if (null? e-3) (cons arg-0 "") (let ((e-6 (car e-3))) (let ((e-7 (cdr e-3))) (cond ((equal? e-6 #\.) (if (null? e-7) (cons arg-0 "") (cons (PreludeC-45Types-fastPack (DataC-45List-reverse e-7)) (PreludeC-45Types-fastPack (DataC-45List-reverse e-2)))))(else (cons (PreludeC-45Types-fastPack (DataC-45List-reverse e-7)) (PreludeC-45Types-fastPack (DataC-45List-reverse e-2)))))))))))) +(define LibrariesC-45UtilsC-45Path-case--splitParentC-39-1493 (lambda (arg-0 arg-1) (if (null? arg-1) '() (let ((e-2 (car arg-1))) (let ((e-3 (cdr arg-1))) (let ((u--parent (let ((e-0 (vector-ref arg-0 0))) (let ((e-1 (vector-ref arg-0 1))) (vector e-0 e-1 (DataC-45List-init (cons e-2 e-3)) 0))))) (let ((u--child (vector '() 0 (cons (DataC-45List-last (cons e-2 e-3)) '()) (let ((e-4 (vector-ref arg-0 3))) e-4)))) (box (cons u--parent u--child))))))))) +(define LibrariesC-45UtilsC-45Path-n--4245-1401-u--splitRoot (lambda (arg-0 arg-1) (let ((e-0 (vector-ref arg-1 0))) (let ((e-1 (vector-ref arg-1 1))) (let ((e-2 (vector-ref arg-1 2))) (let ((e-3 (vector-ref arg-1 3))) (if (null? e-0) (cond ((equal? e-1 0) (cons '() arg-1))(else (cons (box (vector e-0 e-1 '() 0)) (vector '() 0 e-2 e-3)))) (cons (box (vector e-0 e-1 '() 0)) (vector '() 0 e-2 e-3))))))))) +(define LibrariesC-45UtilsC-45Path-n--4245-1402-u--iterateBody (lambda (arg-0 arg-1 arg-2) (if (null? arg-1) '() (let ((e-2 (car arg-1))) (let ((e-3 (cdr arg-1))) (if (null? e-3) (cons (vector '() 0 (cons e-2 '()) arg-2) '()) (let ((e-6 (car e-3))) (let ((e-7 (cdr e-3))) (cons (vector '() 0 (cons e-2 '()) 0) (LibrariesC-45UtilsC-45Path-n--4245-1402-u--iterateBody arg-0 (cons e-6 e-7) arg-2)))))))))) +(define LibrariesC-45UtilsC-45Path-n--4418-1564-u--findNormal (lambda (arg-0 arg-1) (if (null? arg-1) '() (let ((e-1 (car arg-1))) (let ((e-2 (cdr arg-1))) (case (vector-ref e-1 0) ((2) (let ((e-3 (vector-ref e-1 1))) (box e-3))) ((0) (LibrariesC-45UtilsC-45Path-n--4418-1564-u--findNormal arg-0 e-2))(else '()))))))) +(define LibrariesC-45UtilsC-45Path-n--4896-2002-u--filter (lambda (arg-0 arg-2 arg-3) (if (null? arg-3) '() (let ((e-2 (unbox arg-3))) (DataC-45Maybe-toMaybe (arg-2 e-2) (lambda () e-2)))))) +(define LibrariesC-45UtilsC-45Path-n--4696-1833-u--dropBody (lambda (arg-0 arg-1 arg-2 arg-3) (if (null? arg-2) (box arg-3) (if (null? arg-3) '() (let ((e-1 (car arg-2))) (let ((e-2 (cdr arg-2))) (let ((e-4 (car arg-3))) (let ((e-5 (cdr arg-3))) (let ((sc4 (LibrariesC-45UtilsC-45Path-u--C-61C-61_Eq_Body e-1 e-4))) (cond ((equal? sc4 1) (LibrariesC-45UtilsC-45Path-n--4696-1833-u--dropBody arg-0 arg-1 e-2 e-5)) (else '()))))))))))) +(define LibrariesC-45UtilsC-45Path-u--tokValue_TokenKind_PathTokenKind (lambda (arg-0 arg-1) (if (null? arg-0) arg-1 0))) +(define LibrariesC-45UtilsC-45Path-u--show_Show_Volume (lambda (arg-0) (case (vector-ref arg-0 0) ((0) (let ((e-0 (vector-ref arg-0 1))) (let ((e-1 (vector-ref arg-0 2))) (PreludeC-45TypesC-45String-C-43C-43 "\\\\" (PreludeC-45TypesC-45String-C-43C-43 e-0 (PreludeC-45TypesC-45String-C-43C-43 "\\" e-1)))))) (else (let ((e-2 (vector-ref arg-0 1))) (PreludeC-45TypesC-45String-C-43C-43 (DataC-45String-singleton e-2) ":")))))) +(define LibrariesC-45UtilsC-45Path-u--show_Show_Path (lambda (arg-0) (let ((u--sep (DataC-45String-singleton (LibrariesC-45UtilsC-45Path-dirSeparator)))) (let ((u--showVol (PreludeC-45Types-maybe (lambda () "") (lambda () (lambda (eta-0) (LibrariesC-45UtilsC-45Path-u--show_Show_Volume eta-0))) (let ((e-0 (vector-ref arg-0 0))) e-0)))) (let ((u--showRoot (let ((sc0 (let ((e-1 (vector-ref arg-0 1))) e-1))) (cond ((equal? sc0 1) u--sep) (else ""))))) (let ((u--showBody (LibrariesC-45DataC-45StringC-45Extra-join u--sep (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (LibrariesC-45UtilsC-45Path-u--show_Show_Body eta-0)) (let ((e-2 (vector-ref arg-0 2))) e-2))))) (let ((u--showTrail (let ((sc0 (let ((e-3 (vector-ref arg-0 3))) e-3))) (cond ((equal? sc0 1) u--sep) (else ""))))) (PreludeC-45TypesC-45String-C-43C-43 u--showVol (PreludeC-45TypesC-45String-C-43C-43 u--showRoot (PreludeC-45TypesC-45String-C-43C-43 u--showBody u--showTrail)))))))))) +(define LibrariesC-45UtilsC-45Path-u--show_Show_Body (lambda (arg-0) (case (vector-ref arg-0 0) ((0) ".") ((1) "..") (else (let ((e-0 (vector-ref arg-0 1))) e-0))))) +(define LibrariesC-45UtilsC-45Path-u--TokType_TokenKind_PathTokenKind (lambda (arg-0) (if (null? arg-0) (vector "String" ) (vector "Builtin.Unit" )))) +(define LibrariesC-45UtilsC-45Path-u--C-61C-61_Eq_Volume (lambda (arg-0 arg-1) (case (vector-ref arg-0 0) ((0) (let ((e-0 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((0) (let ((e-3 (vector-ref arg-1 1))) (let ((e-4 (vector-ref arg-1 2))) (let ((sc2 (PreludeC-45EqOrd-u--C-61C-61_Eq_String e-0 e-3))) (cond ((equal? sc2 1) (PreludeC-45EqOrd-u--C-61C-61_Eq_String e-3 e-4)) (else 0))))))(else 0)))) ((1) (let ((e-2 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((1) (let ((e-5 (vector-ref arg-1 1))) (PreludeC-45EqOrd-u--C-61C-61_Eq_Char e-2 e-5)))(else 0))))(else 0)))) +(define LibrariesC-45UtilsC-45Path-u--C-61C-61_Eq_PathTokenKind (lambda (arg-0 arg-1) (if (null? arg-0) (if (null? arg-1) 1 0) (let ((e-0 (unbox arg-0))) (if (null? arg-1) 0 (let ((e-1 (unbox arg-1))) (PreludeC-45EqOrd-u--C-61C-61_Eq_Char e-0 e-1))))))) +(define LibrariesC-45UtilsC-45Path-u--C-61C-61_Eq_Path (lambda (arg-0 arg-1) (let ((e-0 (vector-ref arg-0 0))) (let ((e-1 (vector-ref arg-0 1))) (let ((e-2 (vector-ref arg-0 2))) (let ((e-4 (vector-ref arg-1 0))) (let ((e-5 (vector-ref arg-1 1))) (let ((e-6 (vector-ref arg-1 2))) (let ((sc0 (PreludeC-45Types-u--C-61C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-2) (lambda (arg-3) (LibrariesC-45UtilsC-45Path-u--C-61C-61_Eq_Volume arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (LibrariesC-45UtilsC-45Path-u--C-47C-61_Eq_Volume arg-4 arg-5)))) e-0 e-4))) (cond ((equal? sc0 1) (let ((sc1 (PreludeC-45EqOrd-u--C-61C-61_Eq_Bool e-1 e-5))) (cond ((equal? sc1 1) (PreludeC-45Types-u--C-61C-61_Eq_C-40ListC-32C-36aC-41 (cons (lambda (arg-2) (lambda (arg-3) (LibrariesC-45UtilsC-45Path-u--C-61C-61_Eq_Body arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (LibrariesC-45UtilsC-45Path-u--C-47C-61_Eq_Body arg-4 arg-5)))) e-2 e-6)) (else 0)))) (else 0))))))))))) +(define LibrariesC-45UtilsC-45Path-u--C-61C-61_Eq_Body (lambda (arg-0 arg-1) (case (vector-ref arg-0 0) ((0) (case (vector-ref arg-1 0) ((0) 1)(else 0))) ((1) (case (vector-ref arg-1 0) ((1) 1)(else 0))) ((2) (let ((e-0 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((2) (let ((e-1 (vector-ref arg-1 1))) (PreludeC-45EqOrd-u--C-61C-61_Eq_String e-0 e-1)))(else 0))))(else 0)))) +(define LibrariesC-45UtilsC-45Path-u--C-47C-61_Eq_Volume (lambda (arg-0 arg-1) (let ((sc0 (LibrariesC-45UtilsC-45Path-u--C-61C-61_Eq_Volume arg-0 arg-1))) (cond ((equal? sc0 1) 0) (else 1))))) +(define LibrariesC-45UtilsC-45Path-u--C-47C-61_Eq_PathTokenKind (lambda (arg-0 arg-1) (let ((sc0 (LibrariesC-45UtilsC-45Path-u--C-61C-61_Eq_PathTokenKind arg-0 arg-1))) (cond ((equal? sc0 1) 0) (else 1))))) +(define LibrariesC-45UtilsC-45Path-u--C-47C-61_Eq_Body (lambda (arg-0 arg-1) (let ((sc0 (LibrariesC-45UtilsC-45Path-u--C-61C-61_Eq_Body arg-0 arg-1))) (cond ((equal? sc0 1) 0) (else 1))))) +(define LibrariesC-45UtilsC-45Path-verbatimUnc (lambda () (vector 10 1 (LibrariesC-45UtilsC-45Path-verbatim) (lambda () (vector 8 1 (LibrariesC-45TextC-45Parser-match (cons (cons (lambda (arg-2) (lambda (arg-3) (LibrariesC-45UtilsC-45Path-u--C-61C-61_Eq_PathTokenKind arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (LibrariesC-45UtilsC-45Path-u--C-47C-61_Eq_PathTokenKind arg-4 arg-5)))) (cons (lambda (arg-333) (LibrariesC-45UtilsC-45Path-u--TokType_TokenKind_PathTokenKind arg-333)) (lambda (u--kind) (lambda (arg-334) (LibrariesC-45UtilsC-45Path-u--tokValue_TokenKind_PathTokenKind u--kind arg-334))))) '()) (lambda () (lambda (u--server) (vector 10 1 (LibrariesC-45UtilsC-45Path-bodySeparator) (lambda () (vector 8 0 (LibrariesC-45TextC-45Parser-match (cons (cons (lambda (arg-2) (lambda (arg-3) (LibrariesC-45UtilsC-45Path-u--C-61C-61_Eq_PathTokenKind arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (LibrariesC-45UtilsC-45Path-u--C-47C-61_Eq_PathTokenKind arg-4 arg-5)))) (cons (lambda (arg-333) (LibrariesC-45UtilsC-45Path-u--TokType_TokenKind_PathTokenKind arg-333)) (lambda (u--kind) (lambda (arg-334) (LibrariesC-45UtilsC-45Path-u--tokValue_TokenKind_PathTokenKind u--kind arg-334))))) '()) (lambda () (lambda (u--share) (vector 0 (vector 0 u--server u--share)))))))))))))) +(define LibrariesC-45UtilsC-45Path-verbatimDisk (lambda () (vector 10 1 (LibrariesC-45UtilsC-45Path-verbatim) (lambda () (vector 8 0 (LibrariesC-45UtilsC-45Path-disk) (lambda () (lambda (u--disk) (vector 0 u--disk)))))))) +(define LibrariesC-45UtilsC-45Path-verbatim (lambda () (vector 10 1 (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40C-40GrammarC-32C-36stateC-41C-32C-36tokC-41C-32C-36cC-41 1 (lambda (eta-0) 0) (LibrariesC-45TextC-45Parser-count (LibrariesC-45TextC-45Quantity-exactly (+ 1 (+ 1 0))) (LibrariesC-45TextC-45Parser-match (cons (cons (lambda (arg-2) (lambda (arg-3) (LibrariesC-45UtilsC-45Path-u--C-61C-61_Eq_PathTokenKind arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (LibrariesC-45UtilsC-45Path-u--C-47C-61_Eq_PathTokenKind arg-4 arg-5)))) (cons (lambda (arg-333) (LibrariesC-45UtilsC-45Path-u--TokType_TokenKind_PathTokenKind arg-333)) (lambda (u--kind) (lambda (arg-334) (LibrariesC-45UtilsC-45Path-u--tokValue_TokenKind_PathTokenKind u--kind arg-334))))) (box #\\)))) (lambda () (vector 10 1 (LibrariesC-45TextC-45Parser-match (cons (cons (lambda (arg-2) (lambda (arg-3) (LibrariesC-45UtilsC-45Path-u--C-61C-61_Eq_PathTokenKind arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (LibrariesC-45UtilsC-45Path-u--C-47C-61_Eq_PathTokenKind arg-4 arg-5)))) (cons (lambda (arg-333) (LibrariesC-45UtilsC-45Path-u--TokType_TokenKind_PathTokenKind arg-333)) (lambda (u--kind) (lambda (arg-334) (LibrariesC-45UtilsC-45Path-u--tokValue_TokenKind_PathTokenKind u--kind arg-334))))) (box #\?)) (lambda () (vector 10 0 (LibrariesC-45TextC-45Parser-match (cons (cons (lambda (arg-2) (lambda (arg-3) (LibrariesC-45UtilsC-45Path-u--C-61C-61_Eq_PathTokenKind arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (LibrariesC-45UtilsC-45Path-u--C-47C-61_Eq_PathTokenKind arg-4 arg-5)))) (cons (lambda (arg-333) (LibrariesC-45UtilsC-45Path-u--TokType_TokenKind_PathTokenKind arg-333)) (lambda (u--kind) (lambda (arg-334) (LibrariesC-45UtilsC-45Path-u--tokValue_TokenKind_PathTokenKind u--kind arg-334))))) (box #\\)) (lambda () (vector 0 0))))))))) +(define LibrariesC-45UtilsC-45Path-unc (lambda () (vector 10 1 (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40C-40GrammarC-32C-36stateC-41C-32C-36tokC-41C-32C-36cC-41 1 (lambda (eta-0) 0) (LibrariesC-45TextC-45Parser-count (LibrariesC-45TextC-45Quantity-exactly (+ 1 (+ 1 0))) (LibrariesC-45TextC-45Parser-match (cons (cons (lambda (arg-2) (lambda (arg-3) (LibrariesC-45UtilsC-45Path-u--C-61C-61_Eq_PathTokenKind arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (LibrariesC-45UtilsC-45Path-u--C-47C-61_Eq_PathTokenKind arg-4 arg-5)))) (cons (lambda (arg-333) (LibrariesC-45UtilsC-45Path-u--TokType_TokenKind_PathTokenKind arg-333)) (lambda (u--kind) (lambda (arg-334) (LibrariesC-45UtilsC-45Path-u--tokValue_TokenKind_PathTokenKind u--kind arg-334))))) (box #\\)))) (lambda () (vector 8 1 (LibrariesC-45TextC-45Parser-match (cons (cons (lambda (arg-2) (lambda (arg-3) (LibrariesC-45UtilsC-45Path-u--C-61C-61_Eq_PathTokenKind arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (LibrariesC-45UtilsC-45Path-u--C-47C-61_Eq_PathTokenKind arg-4 arg-5)))) (cons (lambda (arg-333) (LibrariesC-45UtilsC-45Path-u--TokType_TokenKind_PathTokenKind arg-333)) (lambda (u--kind) (lambda (arg-334) (LibrariesC-45UtilsC-45Path-u--tokValue_TokenKind_PathTokenKind u--kind arg-334))))) '()) (lambda () (lambda (u--server) (vector 10 1 (LibrariesC-45UtilsC-45Path-bodySeparator) (lambda () (vector 8 0 (LibrariesC-45TextC-45Parser-match (cons (cons (lambda (arg-2) (lambda (arg-3) (LibrariesC-45UtilsC-45Path-u--C-61C-61_Eq_PathTokenKind arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (LibrariesC-45UtilsC-45Path-u--C-47C-61_Eq_PathTokenKind arg-4 arg-5)))) (cons (lambda (arg-333) (LibrariesC-45UtilsC-45Path-u--TokType_TokenKind_PathTokenKind arg-333)) (lambda (u--kind) (lambda (arg-334) (LibrariesC-45UtilsC-45Path-u--tokValue_TokenKind_PathTokenKind u--kind arg-334))))) '()) (lambda () (lambda (u--share) (vector 0 (vector 0 u--server u--share)))))))))))))) +(define LibrariesC-45UtilsC-45Path-splitPathC-39 (lambda (arg-0) (let ((sc0 (LibrariesC-45UtilsC-45Path-n--4245-1401-u--splitRoot arg-0 arg-0))) (let ((e-2 (car sc0))) (if (null? e-2) (LibrariesC-45UtilsC-45Path-n--4245-1402-u--iterateBody arg-0 (let ((e-5 (vector-ref arg-0 2))) e-5) (let ((e-4 (vector-ref arg-0 3))) e-4)) (let ((e-5 (unbox e-2))) (cons e-5 (LibrariesC-45UtilsC-45Path-n--4245-1402-u--iterateBody arg-0 (let ((e-6 (vector-ref arg-0 2))) e-6) (let ((e-4 (vector-ref arg-0 3))) e-4))))))))) +(define LibrariesC-45UtilsC-45Path-splitPath (lambda (ext-0) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (LibrariesC-45UtilsC-45Path-u--show_Show_Path eta-0)) (LibrariesC-45UtilsC-45Path-splitPathC-39 (LibrariesC-45UtilsC-45Path-parse ext-0))))) +(define LibrariesC-45UtilsC-45Path-splitParentC-39 (lambda (arg-0) (LibrariesC-45UtilsC-45Path-case--splitParentC-39-1493 arg-0 (let ((e-2 (vector-ref arg-0 2))) e-2)))) +(define LibrariesC-45UtilsC-45Path-splitParent (lambda (arg-0) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (LibrariesC-45UtilsC-45Path-splitParentC-39 (LibrariesC-45UtilsC-45Path-parse arg-0)) (lambda (_-0) (let ((e-2 (car _-0))) (let ((e-3 (cdr _-0))) (PreludeC-45Types-u--pure_Applicative_Maybe (cons (LibrariesC-45UtilsC-45Path-u--show_Show_Path e-2) (LibrariesC-45UtilsC-45Path-u--show_Show_Path e-3))))))))) +(define LibrariesC-45UtilsC-45Path-splitFileName (lambda (arg-0) (LibrariesC-45UtilsC-45Path-case--splitFileName-1610 arg-0 (DataC-45List-break (lambda (arg-1) (PreludeC-45EqOrd-u--C-61C-61_Eq_Char arg-1 #\.)) (DataC-45List-reverse (PreludeC-45Types-fastUnpack arg-0)))))) +(define LibrariesC-45UtilsC-45Path-setFileNameC-39 (lambda (arg-0 arg-1) (let ((sc0 (DataC-45Maybe-isJust (LibrariesC-45UtilsC-45Path-fileNameC-39 arg-1)))) (cond ((equal? sc0 1) (LibrariesC-45UtilsC-45Path-appendC-39 (DataC-45Maybe-fromMaybe (lambda () (LibrariesC-45UtilsC-45Path-emptyPath)) (LibrariesC-45UtilsC-45Path-parentC-39 arg-1)) (LibrariesC-45UtilsC-45Path-parse arg-0))) (else (LibrariesC-45UtilsC-45Path-appendC-39 arg-1 (LibrariesC-45UtilsC-45Path-parse arg-0))))))) +(define LibrariesC-45UtilsC-45Path-pathTokenMap (lambda () (LibrariesC-45TextC-45Lexer-toTokenMap (cons (cons (LibrariesC-45TextC-45Lexer-is #\/) (box #\/)) (cons (cons (LibrariesC-45TextC-45Lexer-is #\\) (box #\\)) (cons (cons (LibrariesC-45TextC-45Lexer-is #\:) (box #\:)) (cons (cons (LibrariesC-45TextC-45Lexer-is #\?) (box #\?)) (cons (cons (LibrariesC-45TextC-45Lexer-some (LibrariesC-45TextC-45Lexer-non (LibrariesC-45TextC-45Lexer-oneOf "/\\:?"))) '()) '())))))))) +(define LibrariesC-45UtilsC-45Path-pathSeparator (lambda () (let ((sc0 (SystemC-45Info-isWindows))) (cond ((equal? sc0 1) #\;) (else #\:))))) +(define LibrariesC-45UtilsC-45Path-parseVolume (lambda () (vector 12 1 1 (LibrariesC-45UtilsC-45Path-verbatimUnc) (lambda () (vector 12 1 1 (LibrariesC-45UtilsC-45Path-verbatimDisk) (lambda () (vector 12 1 1 (LibrariesC-45UtilsC-45Path-unc) (lambda () (LibrariesC-45UtilsC-45Path-disk))))))))) +(define LibrariesC-45UtilsC-45Path-parsePath (lambda () (vector 9 0 0 (LibrariesC-45TextC-45Parser-optional 1 (LibrariesC-45UtilsC-45Path-parseVolume)) (lambda (u--vol) (vector 9 0 0 (LibrariesC-45TextC-45Parser-optional 1 (LibrariesC-45TextC-45Parser-some (LibrariesC-45UtilsC-45Path-bodySeparator))) (lambda (u--root) (vector 9 0 0 (LibrariesC-45TextC-45Parser-sepBy 1 (LibrariesC-45TextC-45Parser-some (LibrariesC-45UtilsC-45Path-bodySeparator)) (LibrariesC-45UtilsC-45Path-parseBody)) (lambda (u--body) (vector 9 0 0 (LibrariesC-45TextC-45Parser-optional 1 (LibrariesC-45TextC-45Parser-some (LibrariesC-45UtilsC-45Path-bodySeparator))) (lambda (u--trailSep) (let ((body-0 (DataC-45List-filter (lambda (lcase-0) (case (vector-ref lcase-0 0) ((2) (let ((e-0 (vector-ref lcase-0 1))) (PreludeC-45EqOrd-u--C-47C-61_Eq_String (DataC-45String-ltrim e-0) "")))(else 1))) u--body))) (let ((body-1 (if (null? body-0) '() (let ((e-2 (car body-0))) (let ((e-3 (cdr body-0))) (cons e-2 (DataC-45List-delete (cons (lambda (arg-2) (lambda (arg-3) (LibrariesC-45UtilsC-45Path-u--C-61C-61_Eq_Body arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (LibrariesC-45UtilsC-45Path-u--C-47C-61_Eq_Body arg-4 arg-5)))) (vector 0 ) e-3))))))) (vector 0 (vector u--vol (DataC-45Maybe-isJust u--root) body-1 (DataC-45Maybe-isJust u--trailSep))))))))))))))) +(define LibrariesC-45UtilsC-45Path-parseBody (lambda () (vector 8 0 (LibrariesC-45TextC-45Parser-match (cons (cons (lambda (arg-2) (lambda (arg-3) (LibrariesC-45UtilsC-45Path-u--C-61C-61_Eq_PathTokenKind arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (LibrariesC-45UtilsC-45Path-u--C-47C-61_Eq_PathTokenKind arg-4 arg-5)))) (cons (lambda (arg-333) (LibrariesC-45UtilsC-45Path-u--TokType_TokenKind_PathTokenKind arg-333)) (lambda (u--kind) (lambda (arg-334) (LibrariesC-45UtilsC-45Path-u--tokValue_TokenKind_PathTokenKind u--kind arg-334))))) '()) (lambda () (lambda (u--text) (cond ((equal? u--text "..") (vector 0 (vector 1 ))) ((equal? u--text ".") (vector 0 (vector 0 )))(else (vector 0 (vector 2 u--text))))))))) +(define LibrariesC-45UtilsC-45Path-parse (lambda (arg-0) (let ((sc0 (LibrariesC-45TextC-45ParserC-45Core-parse 0 (LibrariesC-45UtilsC-45Path-parsePath) (LibrariesC-45UtilsC-45Path-lexPath arg-0)))) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (if (null? e-2) (LibrariesC-45UtilsC-45Path-emptyPath) (let ((e-5 (car e-2))) e-5))))(else (LibrariesC-45UtilsC-45Path-emptyPath)))))) +(define LibrariesC-45UtilsC-45Path-parentC-39 (lambda (ext-0) (PreludeC-45Types-u--map_Functor_Maybe (lambda (eta-0) (Builtin-fst eta-0)) (LibrariesC-45UtilsC-45Path-splitParentC-39 ext-0)))) +(define LibrariesC-45UtilsC-45Path-parent (lambda (ext-0) (PreludeC-45Types-u--map_Functor_Maybe (lambda (eta-0) (LibrariesC-45UtilsC-45Path-u--show_Show_Path eta-0)) (LibrariesC-45UtilsC-45Path-parentC-39 (LibrariesC-45UtilsC-45Path-parse ext-0))))) +(define LibrariesC-45UtilsC-45Path-lexPath (lambda (arg-0) (let ((sc0 (LibrariesC-45TextC-45LexerC-45Core-lex (LibrariesC-45UtilsC-45Path-pathTokenMap) arg-0))) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((e-7 (cdr e-3))) e-2)))))) +(define LibrariesC-45UtilsC-45Path-joinPath (lambda (arg-0) (LibrariesC-45UtilsC-45Path-u--show_Show_Path (PreludeC-45Types-u--foldl_Foldable_List (lambda (eta-0) (lambda (eta-1) (LibrariesC-45UtilsC-45Path-C-47C-62 eta-0 eta-1))) (LibrariesC-45UtilsC-45Path-parse "") arg-0)))) +(define LibrariesC-45UtilsC-45Path-isRelative (lambda (ext-0) (let ((sc0 (LibrariesC-45UtilsC-45Path-isAbsolute ext-0))) (cond ((equal? sc0 1) 0) (else 1))))) +(define LibrariesC-45UtilsC-45Path-isAbsoluteC-39 (lambda (arg-0) (let ((sc0 (SystemC-45Info-isWindows))) (cond ((equal? sc0 1) (let ((e-0 (vector-ref arg-0 0))) (if (null? e-0) 0 (let ((e-4 (unbox e-0))) (case (vector-ref e-4 0) ((0) 1) (else (let ((e-8 (vector-ref arg-0 1))) e-8))))))) (else (let ((e-1 (vector-ref arg-0 1))) e-1)))))) +(define LibrariesC-45UtilsC-45Path-isAbsolute (lambda (ext-0) (LibrariesC-45UtilsC-45Path-isAbsoluteC-39 (LibrariesC-45UtilsC-45Path-parse ext-0)))) +(define LibrariesC-45UtilsC-45Path-fileNameC-39 (lambda (arg-0) (LibrariesC-45UtilsC-45Path-n--4418-1564-u--findNormal arg-0 (DataC-45List-reverse (let ((e-2 (vector-ref arg-0 2))) e-2))))) +(define LibrariesC-45UtilsC-45Path-fileName (lambda (ext-0) (LibrariesC-45UtilsC-45Path-fileNameC-39 (LibrariesC-45UtilsC-45Path-parse ext-0)))) +(define LibrariesC-45UtilsC-45Path-extension (lambda (arg-0) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (LibrariesC-45UtilsC-45Path-fileName arg-0) (lambda (eta-0) (LibrariesC-45UtilsC-45Path-n--4896-2002-u--filter arg-0 (lambda (arg-1) (PreludeC-45EqOrd-u--C-47C-61_Eq_String arg-1 "")) (box (Builtin-snd (LibrariesC-45UtilsC-45Path-splitFileName eta-0)))))))) +(define LibrariesC-45UtilsC-45Path-emptyPath (lambda () (vector '() 0 '() 0))) +(define LibrariesC-45UtilsC-45Path-dropExtension (lambda (arg-0) (LibrariesC-45UtilsC-45Path-C-60C-46C-62 arg-0 ""))) +(define LibrariesC-45UtilsC-45Path-dropBase (lambda (arg-0 arg-1) (let ((sc0 (LibrariesC-45UtilsC-45Path-parse arg-0))) (let ((e-0 (vector-ref sc0 0))) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (LibrariesC-45UtilsC-45Path-case--caseC-32blockC-32inC-32dropBase-1893 arg-1 arg-0 e-3 e-2 e-1 e-0 (LibrariesC-45UtilsC-45Path-parse arg-1))))))))) +(define LibrariesC-45UtilsC-45Path-disk (lambda () (vector 8 1 (LibrariesC-45TextC-45Parser-match (cons (cons (lambda (arg-2) (lambda (arg-3) (LibrariesC-45UtilsC-45Path-u--C-61C-61_Eq_PathTokenKind arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (LibrariesC-45UtilsC-45Path-u--C-47C-61_Eq_PathTokenKind arg-4 arg-5)))) (cons (lambda (arg-333) (LibrariesC-45UtilsC-45Path-u--TokType_TokenKind_PathTokenKind arg-333)) (lambda (u--kind) (lambda (arg-334) (LibrariesC-45UtilsC-45Path-u--tokValue_TokenKind_PathTokenKind u--kind arg-334))))) '()) (lambda () (lambda (u--text) (vector 9 0 1 (let ((sc0 (PreludeC-45Types-fastUnpack u--text))) (if (null? sc0) (vector 4 '() 0 "Expects disk") (let ((e-1 (car sc0))) (vector 0 e-1)))) (lambda (u--disk) (vector 10 0 (LibrariesC-45TextC-45Parser-match (cons (cons (lambda (arg-2) (lambda (arg-3) (LibrariesC-45UtilsC-45Path-u--C-61C-61_Eq_PathTokenKind arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (LibrariesC-45UtilsC-45Path-u--C-47C-61_Eq_PathTokenKind arg-4 arg-5)))) (cons (lambda (arg-333) (LibrariesC-45UtilsC-45Path-u--TokType_TokenKind_PathTokenKind arg-333)) (lambda (u--kind) (lambda (arg-334) (LibrariesC-45UtilsC-45Path-u--tokValue_TokenKind_PathTokenKind u--kind arg-334))))) (box #\:)) (lambda () (vector 0 (vector 1 (PreludeC-45Types-toUpper u--disk)))))))))))) +(define LibrariesC-45UtilsC-45Path-dirSeparator (lambda () (let ((sc0 (SystemC-45Info-isWindows))) (cond ((equal? sc0 1) #\\) (else #\/))))) +(define LibrariesC-45UtilsC-45Path-bodySeparator (lambda () (vector 12 1 1 (LibrariesC-45TextC-45Parser-match (cons (cons (lambda (arg-2) (lambda (arg-3) (LibrariesC-45UtilsC-45Path-u--C-61C-61_Eq_PathTokenKind arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (LibrariesC-45UtilsC-45Path-u--C-47C-61_Eq_PathTokenKind arg-4 arg-5)))) (cons (lambda (arg-333) (LibrariesC-45UtilsC-45Path-u--TokType_TokenKind_PathTokenKind arg-333)) (lambda (u--kind) (lambda (arg-334) (LibrariesC-45UtilsC-45Path-u--tokValue_TokenKind_PathTokenKind u--kind arg-334))))) (box #\\)) (lambda () (LibrariesC-45TextC-45Parser-match (cons (cons (lambda (arg-2) (lambda (arg-3) (LibrariesC-45UtilsC-45Path-u--C-61C-61_Eq_PathTokenKind arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (LibrariesC-45UtilsC-45Path-u--C-47C-61_Eq_PathTokenKind arg-4 arg-5)))) (cons (lambda (arg-333) (LibrariesC-45UtilsC-45Path-u--TokType_TokenKind_PathTokenKind arg-333)) (lambda (u--kind) (lambda (arg-334) (LibrariesC-45UtilsC-45Path-u--tokValue_TokenKind_PathTokenKind u--kind arg-334))))) (box #\/)))))) +(define LibrariesC-45UtilsC-45Path-appendC-39 (lambda (arg-0 arg-1) (let ((sc0 (let ((sc1 (LibrariesC-45UtilsC-45Path-isAbsoluteC-39 arg-1))) (cond ((equal? sc1 1) 1) (else (DataC-45Maybe-isJust (let ((e-0 (vector-ref arg-1 0))) e-0))))))) (cond ((equal? sc0 1) arg-1) (else (let ((sc1 (let ((e-1 (vector-ref arg-1 1))) e-1))) (cond ((equal? sc1 1) (let ((e-1 (vector-ref arg-1 1))) (let ((e-2 (vector-ref arg-1 2))) (let ((e-3 (vector-ref arg-1 3))) (vector (let ((e-7 (vector-ref arg-0 0))) e-7) e-1 e-2 e-3))))) (else (let ((e-0 (vector-ref arg-0 0))) (let ((e-1 (vector-ref arg-0 1))) (vector e-0 e-1 (PreludeC-45TypesC-45List-C-43C-43 (let ((e-5 (vector-ref arg-0 2))) e-5) (let ((e-5 (vector-ref arg-1 2))) e-5)) (let ((e-4 (vector-ref arg-1 3))) e-4)))))))))))) +(define LibrariesC-45UtilsC-45Path-C-60C-47C-62 (lambda (arg-0 arg-1) (LibrariesC-45UtilsC-45Path-u--show_Show_Path (LibrariesC-45UtilsC-45Path-C-47C-62 (LibrariesC-45UtilsC-45Path-parse arg-0) arg-1)))) +(define LibrariesC-45UtilsC-45Path-C-60C-46C-62 (lambda (arg-0 arg-1) (let ((u--pathC-39 (LibrariesC-45UtilsC-45Path-parse arg-0))) (let ((u--ext (PreludeC-45Types-fastPack (DataC-45List-dropWhile (lambda (u--char) (let ((sc0 (PreludeC-45EqOrd-u--C-61C-61_Eq_Char u--char #\.))) (cond ((equal? sc0 1) 1) (else (PreludeC-45Types-isSpace u--char))))) (PreludeC-45Types-fastUnpack arg-1))))) (let ((ext-0 (let ((sc0 (PreludeC-45EqOrd-u--C-61C-61_Eq_String u--ext ""))) (cond ((equal? sc0 1) "") (else (PreludeC-45TypesC-45String-C-43C-43 "." u--ext)))))) (LibrariesC-45UtilsC-45Path-case--C-60C-46C-62-2106 arg-1 arg-0 u--pathC-39 u--ext ext-0 (LibrariesC-45UtilsC-45Path-fileNameC-39 u--pathC-39))))))) +(define LibrariesC-45UtilsC-45Path-C-47C-62 (lambda (arg-0 arg-1) (LibrariesC-45UtilsC-45Path-appendC-39 arg-0 (LibrariesC-45UtilsC-45Path-parse arg-1)))) +(define LibrariesC-45TextC-45Quantity-exactly (lambda (arg-0) (cons arg-0 (box arg-0)))) +(define LibrariesC-45TextC-45Quantity-between (lambda (arg-0 arg-1) (cons arg-0 (box arg-1)))) +(define LibrariesC-45TextC-45Quantity-atMost (lambda (arg-0) (cons 0 (box arg-0)))) +(define LibrariesC-45TextC-45Quantity-atLeast (lambda (arg-0) (cons arg-0 '()))) +(define LibrariesC-45TextC-45Parser-when (lambda (arg-2 arg-3) (cond ((equal? arg-2 1) (arg-3)) (else (vector 0 0))))) +(define LibrariesC-45TextC-45Parser-some (lambda (arg-3) (vector 8 0 arg-3 (lambda () (lambda (bind-0) (vector 9 0 0 (LibrariesC-45TextC-45Parser-many arg-3) (lambda (bind-1) (vector 0 (cons bind-0 bind-1))))))))) +(define LibrariesC-45TextC-45Parser-sepBy1 (lambda (arg-4 arg-5 arg-6) (vector 9 arg-4 0 (vector 9 0 arg-4 (vector 0 (lambda (eta-0) (lambda (eta-1) (cons eta-0 eta-1)))) (lambda (u--f) (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40C-40GrammarC-32C-36stateC-41C-32C-36tokC-41C-32C-36cC-41 arg-4 u--f arg-6))) (lambda (u--f) (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40C-40GrammarC-32C-36stateC-41C-32C-36tokC-41C-32C-36cC-41 0 u--f (LibrariesC-45TextC-45Parser-many (vector 9 1 arg-4 (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40C-40GrammarC-32C-36stateC-41C-32C-36tokC-41C-32C-36cC-41 1 (lambda (eta-0) (lambda (eta-1) eta-1)) arg-5) (lambda (f-0) (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40C-40GrammarC-32C-36stateC-41C-32C-36tokC-41C-32C-36cC-41 arg-4 f-0 arg-6))))))))) +(define LibrariesC-45TextC-45Parser-sepBy (lambda (arg-4 arg-5 arg-6) (LibrariesC-45TextC-45Parser-option arg-4 '() (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40C-40GrammarC-32C-36stateC-41C-32C-36tokC-41C-32C-36cC-41 arg-4 eta-2 eta-3))))) (lambda (eta-0) (DataC-45List1-forget eta-0)) (LibrariesC-45TextC-45Parser-sepBy1 arg-4 arg-5 arg-6))))) +(define LibrariesC-45TextC-45Parser-optional (lambda (arg-3 arg-4) (LibrariesC-45TextC-45Parser-option arg-3 '() (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40C-40GrammarC-32C-36stateC-41C-32C-36tokC-41C-32C-36cC-41 arg-3 (lambda (eta-0) (box eta-0)) arg-4)))) +(define LibrariesC-45TextC-45Parser-option (lambda (arg-3 arg-4 arg-5) (cond ((equal? arg-3 0) (vector 12 0 0 arg-5 (lambda () (vector 0 arg-4)))) (else (vector 12 1 0 arg-5 (lambda () (vector 0 arg-4))))))) +(define LibrariesC-45TextC-45Parser-match (lambda (arg-2 arg-3) (vector 1 "Unrecognised input" (lambda (u--t) (let ((sc0 (let ((sc1 (Builtin-fst arg-2))) (let ((e-1 (car sc1))) ((e-1 (let ((e-4 (car u--t))) e-4)) arg-3))))) (cond ((equal? sc0 1) (box (let ((sc1 (Builtin-snd arg-2))) (let ((e-2 (cdr sc1))) ((e-2 arg-3) (let ((e-3 (cdr u--t))) e-3)))))) (else '()))))))) +(define LibrariesC-45TextC-45Parser-many (lambda (arg-3) (LibrariesC-45TextC-45Parser-option 1 '() (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40C-40GrammarC-32C-36stateC-41C-32C-36tokC-41C-32C-36cC-41 1 eta-2 eta-3))))) (lambda (eta-0) (DataC-45List1-forget eta-0)) (LibrariesC-45TextC-45Parser-some arg-3))))) +(define LibrariesC-45TextC-45Parser-location (lambda () (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40C-40GrammarC-32C-36stateC-41C-32C-36tokC-41C-32C-36cC-41 0 eta-2 eta-3))))) (lambda (eta-0) (LibrariesC-45TextC-45Bounded-startBounds eta-0)) (vector 14 )))) +(define LibrariesC-45TextC-45Parser-count1 (lambda (arg-3 arg-4) (vector 8 (let ((sc0 (DataC-45Nat-isSucc (let ((e-0 (car arg-3))) e-0)))) (cond ((equal? sc0 1) 1) (else 0))) arg-4 (lambda () (lambda (u--x) (vector 9 (DataC-45Nat-isSucc (let ((e-0 (car arg-3))) e-0)) 0 (LibrariesC-45TextC-45Parser-count arg-3 arg-4) (lambda (u--xs) (vector 0 (cons u--x u--xs))))))))) +(define LibrariesC-45TextC-45Parser-count (lambda (arg-3 arg-4) (let ((e-0 (car arg-3))) (let ((e-1 (cdr arg-3))) (cond ((equal? e-0 0) (if (null? e-1) (LibrariesC-45TextC-45Parser-many arg-4) (let ((e-5 (unbox e-1))) (cond ((equal? e-5 0) (vector 0 '()))(else (let ((e-6 (- e-5 1))) (LibrariesC-45TextC-45Parser-option 1 '() (LibrariesC-45TextC-45Parser-count1 (LibrariesC-45TextC-45Quantity-atMost e-6) arg-4))))))))(else (let ((e-2 (- e-0 1))) (if (null? e-1) (LibrariesC-45TextC-45Parser-count1 (LibrariesC-45TextC-45Quantity-atLeast e-2) arg-4) (let ((e-9 (unbox e-1))) (cond ((equal? e-9 0) (vector 4 '() 0 "Quantity out of order"))(else (let ((e-10 (- e-9 1))) (LibrariesC-45TextC-45Parser-count1 (LibrariesC-45TextC-45Quantity-between (+ 1 e-2) e-10) arg-4))))))))))))) +(define LibrariesC-45TextC-45Parser-column (lambda () (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40C-40GrammarC-32C-36stateC-41C-32C-36tokC-41C-32C-36cC-41 0 eta-2 eta-3))))) (lambda (eta-0) (Builtin-snd eta-0)) (LibrariesC-45TextC-45Parser-location)))) +(define LibrariesC-45TextC-45Parser-choiceMap (lambda (arg-5 arg-6 arg-7 arg-8) (let ((e-1 (vector-ref arg-7 0))) (((((e-1 'erased) 'erased) (lambda (u--x) (lambda (u--acc) (vector 12 arg-5 arg-5 (arg-6 u--x) (lambda () u--acc))))) (vector 4 '() 0 "No more options")) arg-8)))) +(define LibrariesC-45TextC-45Parser-choice (lambda (arg-4 arg-5 ext-0) (LibrariesC-45TextC-45Parser-choiceMap arg-5 (lambda (eta-0) eta-0) arg-4 ext-0))) +(define LibrariesC-45TextC-45ParserC-45Core-case--doParse-3529 (lambda (arg-3 arg-5 arg-6 arg-7 arg-8 arg-10) (case (vector-ref arg-10 0) ((0) (let ((e-3 (vector-ref arg-10 1))) (let ((e-4 (vector-ref arg-10 2))) (let ((e-5 (vector-ref arg-10 3))) (let ((e-6 (vector-ref arg-10 4))) (vector 0 e-3 e-4 e-5 e-6)))))) (else (let ((e-10 (vector-ref arg-10 1))) (let ((e-11 (vector-ref arg-10 2))) (let ((e-12 (vector-ref arg-10 3))) (let ((e-13 (vector-ref arg-10 4))) (vector 1 e-10 e-11 (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (LibrariesC-45TextC-45Bounded-u--map_Functor_WithBounds eta-2 eta-3))))) (lambda (eta-0) e-12) e-12) e-13))))))))) +(define LibrariesC-45TextC-45ParserC-45Core-case--doParse-3222 (lambda (arg-3 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-12) (case (vector-ref arg-12 0) ((0) (let ((e-3 (vector-ref arg-12 1))) (let ((e-4 (vector-ref arg-12 2))) (let ((e-5 (vector-ref arg-12 3))) (let ((e-6 (vector-ref arg-12 4))) (vector 0 e-3 e-4 e-5 e-6)))))) (else (let ((e-10 (vector-ref arg-12 1))) (let ((e-11 (vector-ref arg-12 2))) (let ((e-12 (vector-ref arg-12 3))) (let ((e-13 (vector-ref arg-12 4))) (LibrariesC-45TextC-45ParserC-45Core-mergeWith e-12 (LibrariesC-45TextC-45ParserC-45Core-doParse arg-3 e-10 e-11 ((arg-7) (let ((e-1 (vector-ref e-12 0))) e-1)) e-13)))))))))) +(define LibrariesC-45TextC-45ParserC-45Core-case--doParse-3110 (lambda (arg-3 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-13) (case (vector-ref arg-13 0) ((0) (let ((e-3 (vector-ref arg-13 1))) (let ((e-4 (vector-ref arg-13 2))) (let ((e-5 (vector-ref arg-13 3))) (let ((e-6 (vector-ref arg-13 4))) (vector 0 e-3 e-4 e-5 e-6)))))) (else (let ((e-10 (vector-ref arg-13 1))) (let ((e-11 (vector-ref arg-13 2))) (let ((e-12 (vector-ref arg-13 3))) (let ((e-13 (vector-ref arg-13 4))) (LibrariesC-45TextC-45ParserC-45Core-mergeWith e-12 (LibrariesC-45TextC-45ParserC-45Core-doParse arg-3 e-10 e-11 (arg-8 (let ((e-1 (vector-ref e-12 0))) e-1)) e-13)))))))))) +(define LibrariesC-45TextC-45ParserC-45Core-case--doParse-2930 (lambda (arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-12) (case (vector-ref arg-12 0) ((0) (let ((e-3 (vector-ref arg-12 1))) (let ((e-4 (vector-ref arg-12 2))) (let ((e-5 (vector-ref arg-12 3))) (let ((e-6 (vector-ref arg-12 4))) (let ((sc1 (cond ((equal? e-3 1) 1) (else e-4)))) (cond ((equal? sc1 1) (vector 0 arg-10 e-4 e-5 e-6)) (else (LibrariesC-45TextC-45ParserC-45Core-doParse arg-3 arg-4 0 (arg-6) arg-9))))))))) (else (let ((e-10 (vector-ref arg-12 1))) (let ((e-12 (vector-ref arg-12 3))) (let ((e-13 (vector-ref arg-12 4))) (vector 1 e-10 arg-10 e-12 e-13)))))))) +(define LibrariesC-45TextC-45ParserC-45Core-case--doParse-2591 (lambda (arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (case (vector-ref arg-9 0) ((0) (let ((e-3 (vector-ref arg-9 1))) (let ((e-5 (vector-ref arg-9 3))) (let ((e-6 (vector-ref arg-9 4))) (vector 0 e-3 1 e-5 e-6)))))(else arg-9)))) +(define LibrariesC-45TextC-45ParserC-45Core-case--doParse-2496 (lambda (arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (case (vector-ref arg-9 0) ((0) (let ((e-3 (vector-ref arg-9 1))) (let ((e-5 (vector-ref arg-9 3))) (let ((e-6 (vector-ref arg-9 4))) (vector 0 e-3 0 e-5 e-6)))))(else arg-9)))) +(define LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40C-40GrammarC-32C-36stateC-41C-32C-36tokC-41C-32C-36cC-41 (lambda (arg-4 arg-5 arg-6) (cond ((equal? arg-4 0) (case (vector-ref arg-6 0) ((0) (let ((e-65 (vector-ref arg-6 1))) (vector 0 (arg-5 e-65))))(else (case (vector-ref arg-6 0) ((4) (let ((e-49 (vector-ref arg-6 1))) (let ((e-50 (vector-ref arg-6 2))) (let ((e-51 (vector-ref arg-6 3))) (vector 4 e-49 e-50 e-51))))) ((5) (let ((e-56 (vector-ref arg-6 1))) (vector 5 (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40C-40GrammarC-32C-36stateC-41C-32C-36tokC-41C-32C-36cC-41 arg-4 arg-5 e-56)))) ((7) (let ((e-61 (vector-ref arg-6 1))) (vector 7 (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40C-40GrammarC-32C-36stateC-41C-32C-36tokC-41C-32C-36cC-41 arg-4 arg-5 e-61))))(else (cond ((equal? arg-4 1) (case (vector-ref arg-6 0) ((1) (let ((e-43 (vector-ref arg-6 1))) (let ((e-44 (vector-ref arg-6 2))) (vector 1 e-43 (lambda (eta-0) (PreludeC-45Types-u--map_Functor_Maybe arg-5 (e-44 eta-0)))))))(else (case (vector-ref arg-6 0) ((12) (let ((e-36 (vector-ref arg-6 1))) (let ((e-37 (vector-ref arg-6 2))) (let ((e-38 (vector-ref arg-6 3))) (let ((e-39 (vector-ref arg-6 4))) (vector 12 e-36 e-37 (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40C-40GrammarC-32C-36stateC-41C-32C-36tokC-41C-32C-36cC-41 e-36 arg-5 e-38) (lambda () (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40C-40GrammarC-32C-36stateC-41C-32C-36tokC-41C-32C-36cC-41 e-37 arg-5 (e-39)))))))))(else (cond ((equal? arg-4 1) (case (vector-ref arg-6 0) ((8) (let ((e-30 (vector-ref arg-6 1))) (let ((e-31 (vector-ref arg-6 2))) (let ((e-32 (vector-ref arg-6 3))) (vector 8 e-30 e-31 (lambda () (lambda (u--val) (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40C-40GrammarC-32C-36stateC-41C-32C-36tokC-41C-32C-36cC-41 e-30 arg-5 ((e-32) u--val)))))))))(else (case (vector-ref arg-6 0) ((9) (let ((e-22 (vector-ref arg-6 1))) (let ((e-23 (vector-ref arg-6 2))) (let ((e-24 (vector-ref arg-6 3))) (let ((e-25 (vector-ref arg-6 4))) (vector 9 e-22 e-23 e-24 (lambda (u--val) (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40C-40GrammarC-32C-36stateC-41C-32C-36tokC-41C-32C-36cC-41 e-23 arg-5 (e-25 u--val)))))))))(else (cond ((equal? arg-4 1) (case (vector-ref arg-6 0) ((10) (let ((e-15 (vector-ref arg-6 1))) (let ((e-16 (vector-ref arg-6 2))) (let ((e-17 (vector-ref arg-6 3))) (vector 10 e-15 e-16 (lambda () (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40C-40GrammarC-32C-36stateC-41C-32C-36tokC-41C-32C-36cC-41 e-15 arg-5 (e-17))))))))(else (case (vector-ref arg-6 0) ((11) (let ((e-3 (vector-ref arg-6 1))) (let ((e-4 (vector-ref arg-6 2))) (let ((e-5 (vector-ref arg-6 3))) (let ((e-6 (vector-ref arg-6 4))) (vector 11 e-3 e-4 e-5 (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40C-40GrammarC-32C-36stateC-41C-32C-36tokC-41C-32C-36cC-41 e-4 arg-5 e-6))))))) ((13) (let ((e-11 (vector-ref arg-6 1))) (vector 9 arg-4 0 (vector 13 e-11) (lambda (eta-0) (vector 0 (arg-5 eta-0))))))(else (cond (else (vector 9 0 0 arg-6 (lambda (eta-0) (vector 0 (arg-5 eta-0)))))))))))(else (case (vector-ref arg-6 0) ((11) (let ((e-3 (vector-ref arg-6 1))) (let ((e-4 (vector-ref arg-6 2))) (let ((e-5 (vector-ref arg-6 3))) (let ((e-6 (vector-ref arg-6 4))) (vector 11 e-3 e-4 e-5 (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40C-40GrammarC-32C-36stateC-41C-32C-36tokC-41C-32C-36cC-41 e-4 arg-5 e-6))))))) ((13) (let ((e-11 (vector-ref arg-6 1))) (vector 9 arg-4 0 (vector 13 e-11) (lambda (eta-0) (vector 0 (arg-5 eta-0))))))(else (cond (else (vector 9 0 0 arg-6 (lambda (eta-0) (vector 0 (arg-5 eta-0)))))))))))))))(else (case (vector-ref arg-6 0) ((9) (let ((e-22 (vector-ref arg-6 1))) (let ((e-23 (vector-ref arg-6 2))) (let ((e-24 (vector-ref arg-6 3))) (let ((e-25 (vector-ref arg-6 4))) (vector 9 e-22 e-23 e-24 (lambda (u--val) (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40C-40GrammarC-32C-36stateC-41C-32C-36tokC-41C-32C-36cC-41 e-23 arg-5 (e-25 u--val)))))))))(else (cond ((equal? arg-4 1) (case (vector-ref arg-6 0) ((10) (let ((e-15 (vector-ref arg-6 1))) (let ((e-16 (vector-ref arg-6 2))) (let ((e-17 (vector-ref arg-6 3))) (vector 10 e-15 e-16 (lambda () (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40C-40GrammarC-32C-36stateC-41C-32C-36tokC-41C-32C-36cC-41 e-15 arg-5 (e-17))))))))(else (case (vector-ref arg-6 0) ((11) (let ((e-3 (vector-ref arg-6 1))) (let ((e-4 (vector-ref arg-6 2))) (let ((e-5 (vector-ref arg-6 3))) (let ((e-6 (vector-ref arg-6 4))) (vector 11 e-3 e-4 e-5 (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40C-40GrammarC-32C-36stateC-41C-32C-36tokC-41C-32C-36cC-41 e-4 arg-5 e-6))))))) ((13) (let ((e-11 (vector-ref arg-6 1))) (vector 9 arg-4 0 (vector 13 e-11) (lambda (eta-0) (vector 0 (arg-5 eta-0))))))(else (cond (else (vector 9 0 0 arg-6 (lambda (eta-0) (vector 0 (arg-5 eta-0)))))))))))(else (case (vector-ref arg-6 0) ((11) (let ((e-3 (vector-ref arg-6 1))) (let ((e-4 (vector-ref arg-6 2))) (let ((e-5 (vector-ref arg-6 3))) (let ((e-6 (vector-ref arg-6 4))) (vector 11 e-3 e-4 e-5 (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40C-40GrammarC-32C-36stateC-41C-32C-36tokC-41C-32C-36cC-41 e-4 arg-5 e-6))))))) ((13) (let ((e-11 (vector-ref arg-6 1))) (vector 9 arg-4 0 (vector 13 e-11) (lambda (eta-0) (vector 0 (arg-5 eta-0))))))(else (cond (else (vector 9 0 0 arg-6 (lambda (eta-0) (vector 0 (arg-5 eta-0)))))))))))))))))))(else (case (vector-ref arg-6 0) ((12) (let ((e-36 (vector-ref arg-6 1))) (let ((e-37 (vector-ref arg-6 2))) (let ((e-38 (vector-ref arg-6 3))) (let ((e-39 (vector-ref arg-6 4))) (vector 12 e-36 e-37 (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40C-40GrammarC-32C-36stateC-41C-32C-36tokC-41C-32C-36cC-41 e-36 arg-5 e-38) (lambda () (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40C-40GrammarC-32C-36stateC-41C-32C-36tokC-41C-32C-36cC-41 e-37 arg-5 (e-39)))))))))(else (cond ((equal? arg-4 1) (case (vector-ref arg-6 0) ((8) (let ((e-30 (vector-ref arg-6 1))) (let ((e-31 (vector-ref arg-6 2))) (let ((e-32 (vector-ref arg-6 3))) (vector 8 e-30 e-31 (lambda () (lambda (u--val) (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40C-40GrammarC-32C-36stateC-41C-32C-36tokC-41C-32C-36cC-41 e-30 arg-5 ((e-32) u--val)))))))))(else (case (vector-ref arg-6 0) ((9) (let ((e-22 (vector-ref arg-6 1))) (let ((e-23 (vector-ref arg-6 2))) (let ((e-24 (vector-ref arg-6 3))) (let ((e-25 (vector-ref arg-6 4))) (vector 9 e-22 e-23 e-24 (lambda (u--val) (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40C-40GrammarC-32C-36stateC-41C-32C-36tokC-41C-32C-36cC-41 e-23 arg-5 (e-25 u--val)))))))))(else (cond ((equal? arg-4 1) (case (vector-ref arg-6 0) ((10) (let ((e-15 (vector-ref arg-6 1))) (let ((e-16 (vector-ref arg-6 2))) (let ((e-17 (vector-ref arg-6 3))) (vector 10 e-15 e-16 (lambda () (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40C-40GrammarC-32C-36stateC-41C-32C-36tokC-41C-32C-36cC-41 e-15 arg-5 (e-17))))))))(else (case (vector-ref arg-6 0) ((11) (let ((e-3 (vector-ref arg-6 1))) (let ((e-4 (vector-ref arg-6 2))) (let ((e-5 (vector-ref arg-6 3))) (let ((e-6 (vector-ref arg-6 4))) (vector 11 e-3 e-4 e-5 (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40C-40GrammarC-32C-36stateC-41C-32C-36tokC-41C-32C-36cC-41 e-4 arg-5 e-6))))))) ((13) (let ((e-11 (vector-ref arg-6 1))) (vector 9 arg-4 0 (vector 13 e-11) (lambda (eta-0) (vector 0 (arg-5 eta-0))))))(else (cond (else (vector 9 0 0 arg-6 (lambda (eta-0) (vector 0 (arg-5 eta-0)))))))))))(else (case (vector-ref arg-6 0) ((11) (let ((e-3 (vector-ref arg-6 1))) (let ((e-4 (vector-ref arg-6 2))) (let ((e-5 (vector-ref arg-6 3))) (let ((e-6 (vector-ref arg-6 4))) (vector 11 e-3 e-4 e-5 (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40C-40GrammarC-32C-36stateC-41C-32C-36tokC-41C-32C-36cC-41 e-4 arg-5 e-6))))))) ((13) (let ((e-11 (vector-ref arg-6 1))) (vector 9 arg-4 0 (vector 13 e-11) (lambda (eta-0) (vector 0 (arg-5 eta-0))))))(else (cond (else (vector 9 0 0 arg-6 (lambda (eta-0) (vector 0 (arg-5 eta-0)))))))))))))))(else (case (vector-ref arg-6 0) ((9) (let ((e-22 (vector-ref arg-6 1))) (let ((e-23 (vector-ref arg-6 2))) (let ((e-24 (vector-ref arg-6 3))) (let ((e-25 (vector-ref arg-6 4))) (vector 9 e-22 e-23 e-24 (lambda (u--val) (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40C-40GrammarC-32C-36stateC-41C-32C-36tokC-41C-32C-36cC-41 e-23 arg-5 (e-25 u--val)))))))))(else (cond ((equal? arg-4 1) (case (vector-ref arg-6 0) ((10) (let ((e-15 (vector-ref arg-6 1))) (let ((e-16 (vector-ref arg-6 2))) (let ((e-17 (vector-ref arg-6 3))) (vector 10 e-15 e-16 (lambda () (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40C-40GrammarC-32C-36stateC-41C-32C-36tokC-41C-32C-36cC-41 e-15 arg-5 (e-17))))))))(else (case (vector-ref arg-6 0) ((11) (let ((e-3 (vector-ref arg-6 1))) (let ((e-4 (vector-ref arg-6 2))) (let ((e-5 (vector-ref arg-6 3))) (let ((e-6 (vector-ref arg-6 4))) (vector 11 e-3 e-4 e-5 (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40C-40GrammarC-32C-36stateC-41C-32C-36tokC-41C-32C-36cC-41 e-4 arg-5 e-6))))))) ((13) (let ((e-11 (vector-ref arg-6 1))) (vector 9 arg-4 0 (vector 13 e-11) (lambda (eta-0) (vector 0 (arg-5 eta-0))))))(else (cond (else (vector 9 0 0 arg-6 (lambda (eta-0) (vector 0 (arg-5 eta-0)))))))))))(else (case (vector-ref arg-6 0) ((11) (let ((e-3 (vector-ref arg-6 1))) (let ((e-4 (vector-ref arg-6 2))) (let ((e-5 (vector-ref arg-6 3))) (let ((e-6 (vector-ref arg-6 4))) (vector 11 e-3 e-4 e-5 (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40C-40GrammarC-32C-36stateC-41C-32C-36tokC-41C-32C-36cC-41 e-4 arg-5 e-6))))))) ((13) (let ((e-11 (vector-ref arg-6 1))) (vector 9 arg-4 0 (vector 13 e-11) (lambda (eta-0) (vector 0 (arg-5 eta-0))))))(else (cond (else (vector 9 0 0 arg-6 (lambda (eta-0) (vector 0 (arg-5 eta-0)))))))))))))))))))))))(else (case (vector-ref arg-6 0) ((4) (let ((e-49 (vector-ref arg-6 1))) (let ((e-50 (vector-ref arg-6 2))) (let ((e-51 (vector-ref arg-6 3))) (vector 4 e-49 e-50 e-51))))) ((5) (let ((e-56 (vector-ref arg-6 1))) (vector 5 (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40C-40GrammarC-32C-36stateC-41C-32C-36tokC-41C-32C-36cC-41 arg-4 arg-5 e-56)))) ((7) (let ((e-61 (vector-ref arg-6 1))) (vector 7 (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40C-40GrammarC-32C-36stateC-41C-32C-36tokC-41C-32C-36cC-41 arg-4 arg-5 e-61))))(else (cond ((equal? arg-4 1) (case (vector-ref arg-6 0) ((1) (let ((e-43 (vector-ref arg-6 1))) (let ((e-44 (vector-ref arg-6 2))) (vector 1 e-43 (lambda (eta-0) (PreludeC-45Types-u--map_Functor_Maybe arg-5 (e-44 eta-0)))))))(else (case (vector-ref arg-6 0) ((12) (let ((e-36 (vector-ref arg-6 1))) (let ((e-37 (vector-ref arg-6 2))) (let ((e-38 (vector-ref arg-6 3))) (let ((e-39 (vector-ref arg-6 4))) (vector 12 e-36 e-37 (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40C-40GrammarC-32C-36stateC-41C-32C-36tokC-41C-32C-36cC-41 e-36 arg-5 e-38) (lambda () (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40C-40GrammarC-32C-36stateC-41C-32C-36tokC-41C-32C-36cC-41 e-37 arg-5 (e-39)))))))))(else (cond ((equal? arg-4 1) (case (vector-ref arg-6 0) ((8) (let ((e-30 (vector-ref arg-6 1))) (let ((e-31 (vector-ref arg-6 2))) (let ((e-32 (vector-ref arg-6 3))) (vector 8 e-30 e-31 (lambda () (lambda (u--val) (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40C-40GrammarC-32C-36stateC-41C-32C-36tokC-41C-32C-36cC-41 e-30 arg-5 ((e-32) u--val)))))))))(else (case (vector-ref arg-6 0) ((9) (let ((e-22 (vector-ref arg-6 1))) (let ((e-23 (vector-ref arg-6 2))) (let ((e-24 (vector-ref arg-6 3))) (let ((e-25 (vector-ref arg-6 4))) (vector 9 e-22 e-23 e-24 (lambda (u--val) (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40C-40GrammarC-32C-36stateC-41C-32C-36tokC-41C-32C-36cC-41 e-23 arg-5 (e-25 u--val)))))))))(else (cond ((equal? arg-4 1) (case (vector-ref arg-6 0) ((10) (let ((e-15 (vector-ref arg-6 1))) (let ((e-16 (vector-ref arg-6 2))) (let ((e-17 (vector-ref arg-6 3))) (vector 10 e-15 e-16 (lambda () (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40C-40GrammarC-32C-36stateC-41C-32C-36tokC-41C-32C-36cC-41 e-15 arg-5 (e-17))))))))(else (case (vector-ref arg-6 0) ((11) (let ((e-3 (vector-ref arg-6 1))) (let ((e-4 (vector-ref arg-6 2))) (let ((e-5 (vector-ref arg-6 3))) (let ((e-6 (vector-ref arg-6 4))) (vector 11 e-3 e-4 e-5 (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40C-40GrammarC-32C-36stateC-41C-32C-36tokC-41C-32C-36cC-41 e-4 arg-5 e-6))))))) ((13) (let ((e-11 (vector-ref arg-6 1))) (vector 9 arg-4 0 (vector 13 e-11) (lambda (eta-0) (vector 0 (arg-5 eta-0))))))(else (cond (else (vector 9 0 0 arg-6 (lambda (eta-0) (vector 0 (arg-5 eta-0)))))))))))(else (case (vector-ref arg-6 0) ((11) (let ((e-3 (vector-ref arg-6 1))) (let ((e-4 (vector-ref arg-6 2))) (let ((e-5 (vector-ref arg-6 3))) (let ((e-6 (vector-ref arg-6 4))) (vector 11 e-3 e-4 e-5 (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40C-40GrammarC-32C-36stateC-41C-32C-36tokC-41C-32C-36cC-41 e-4 arg-5 e-6))))))) ((13) (let ((e-11 (vector-ref arg-6 1))) (vector 9 arg-4 0 (vector 13 e-11) (lambda (eta-0) (vector 0 (arg-5 eta-0))))))(else (cond (else (vector 9 0 0 arg-6 (lambda (eta-0) (vector 0 (arg-5 eta-0)))))))))))))))(else (case (vector-ref arg-6 0) ((9) (let ((e-22 (vector-ref arg-6 1))) (let ((e-23 (vector-ref arg-6 2))) (let ((e-24 (vector-ref arg-6 3))) (let ((e-25 (vector-ref arg-6 4))) (vector 9 e-22 e-23 e-24 (lambda (u--val) (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40C-40GrammarC-32C-36stateC-41C-32C-36tokC-41C-32C-36cC-41 e-23 arg-5 (e-25 u--val)))))))))(else (cond ((equal? arg-4 1) (case (vector-ref arg-6 0) ((10) (let ((e-15 (vector-ref arg-6 1))) (let ((e-16 (vector-ref arg-6 2))) (let ((e-17 (vector-ref arg-6 3))) (vector 10 e-15 e-16 (lambda () (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40C-40GrammarC-32C-36stateC-41C-32C-36tokC-41C-32C-36cC-41 e-15 arg-5 (e-17))))))))(else (case (vector-ref arg-6 0) ((11) (let ((e-3 (vector-ref arg-6 1))) (let ((e-4 (vector-ref arg-6 2))) (let ((e-5 (vector-ref arg-6 3))) (let ((e-6 (vector-ref arg-6 4))) (vector 11 e-3 e-4 e-5 (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40C-40GrammarC-32C-36stateC-41C-32C-36tokC-41C-32C-36cC-41 e-4 arg-5 e-6))))))) ((13) (let ((e-11 (vector-ref arg-6 1))) (vector 9 arg-4 0 (vector 13 e-11) (lambda (eta-0) (vector 0 (arg-5 eta-0))))))(else (cond (else (vector 9 0 0 arg-6 (lambda (eta-0) (vector 0 (arg-5 eta-0)))))))))))(else (case (vector-ref arg-6 0) ((11) (let ((e-3 (vector-ref arg-6 1))) (let ((e-4 (vector-ref arg-6 2))) (let ((e-5 (vector-ref arg-6 3))) (let ((e-6 (vector-ref arg-6 4))) (vector 11 e-3 e-4 e-5 (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40C-40GrammarC-32C-36stateC-41C-32C-36tokC-41C-32C-36cC-41 e-4 arg-5 e-6))))))) ((13) (let ((e-11 (vector-ref arg-6 1))) (vector 9 arg-4 0 (vector 13 e-11) (lambda (eta-0) (vector 0 (arg-5 eta-0))))))(else (cond (else (vector 9 0 0 arg-6 (lambda (eta-0) (vector 0 (arg-5 eta-0)))))))))))))))))))(else (case (vector-ref arg-6 0) ((12) (let ((e-36 (vector-ref arg-6 1))) (let ((e-37 (vector-ref arg-6 2))) (let ((e-38 (vector-ref arg-6 3))) (let ((e-39 (vector-ref arg-6 4))) (vector 12 e-36 e-37 (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40C-40GrammarC-32C-36stateC-41C-32C-36tokC-41C-32C-36cC-41 e-36 arg-5 e-38) (lambda () (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40C-40GrammarC-32C-36stateC-41C-32C-36tokC-41C-32C-36cC-41 e-37 arg-5 (e-39)))))))))(else (cond ((equal? arg-4 1) (case (vector-ref arg-6 0) ((8) (let ((e-30 (vector-ref arg-6 1))) (let ((e-31 (vector-ref arg-6 2))) (let ((e-32 (vector-ref arg-6 3))) (vector 8 e-30 e-31 (lambda () (lambda (u--val) (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40C-40GrammarC-32C-36stateC-41C-32C-36tokC-41C-32C-36cC-41 e-30 arg-5 ((e-32) u--val)))))))))(else (case (vector-ref arg-6 0) ((9) (let ((e-22 (vector-ref arg-6 1))) (let ((e-23 (vector-ref arg-6 2))) (let ((e-24 (vector-ref arg-6 3))) (let ((e-25 (vector-ref arg-6 4))) (vector 9 e-22 e-23 e-24 (lambda (u--val) (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40C-40GrammarC-32C-36stateC-41C-32C-36tokC-41C-32C-36cC-41 e-23 arg-5 (e-25 u--val)))))))))(else (cond ((equal? arg-4 1) (case (vector-ref arg-6 0) ((10) (let ((e-15 (vector-ref arg-6 1))) (let ((e-16 (vector-ref arg-6 2))) (let ((e-17 (vector-ref arg-6 3))) (vector 10 e-15 e-16 (lambda () (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40C-40GrammarC-32C-36stateC-41C-32C-36tokC-41C-32C-36cC-41 e-15 arg-5 (e-17))))))))(else (case (vector-ref arg-6 0) ((11) (let ((e-3 (vector-ref arg-6 1))) (let ((e-4 (vector-ref arg-6 2))) (let ((e-5 (vector-ref arg-6 3))) (let ((e-6 (vector-ref arg-6 4))) (vector 11 e-3 e-4 e-5 (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40C-40GrammarC-32C-36stateC-41C-32C-36tokC-41C-32C-36cC-41 e-4 arg-5 e-6))))))) ((13) (let ((e-11 (vector-ref arg-6 1))) (vector 9 arg-4 0 (vector 13 e-11) (lambda (eta-0) (vector 0 (arg-5 eta-0))))))(else (cond (else (vector 9 0 0 arg-6 (lambda (eta-0) (vector 0 (arg-5 eta-0)))))))))))(else (case (vector-ref arg-6 0) ((11) (let ((e-3 (vector-ref arg-6 1))) (let ((e-4 (vector-ref arg-6 2))) (let ((e-5 (vector-ref arg-6 3))) (let ((e-6 (vector-ref arg-6 4))) (vector 11 e-3 e-4 e-5 (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40C-40GrammarC-32C-36stateC-41C-32C-36tokC-41C-32C-36cC-41 e-4 arg-5 e-6))))))) ((13) (let ((e-11 (vector-ref arg-6 1))) (vector 9 arg-4 0 (vector 13 e-11) (lambda (eta-0) (vector 0 (arg-5 eta-0))))))(else (cond (else (vector 9 0 0 arg-6 (lambda (eta-0) (vector 0 (arg-5 eta-0)))))))))))))))(else (case (vector-ref arg-6 0) ((9) (let ((e-22 (vector-ref arg-6 1))) (let ((e-23 (vector-ref arg-6 2))) (let ((e-24 (vector-ref arg-6 3))) (let ((e-25 (vector-ref arg-6 4))) (vector 9 e-22 e-23 e-24 (lambda (u--val) (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40C-40GrammarC-32C-36stateC-41C-32C-36tokC-41C-32C-36cC-41 e-23 arg-5 (e-25 u--val)))))))))(else (cond ((equal? arg-4 1) (case (vector-ref arg-6 0) ((10) (let ((e-15 (vector-ref arg-6 1))) (let ((e-16 (vector-ref arg-6 2))) (let ((e-17 (vector-ref arg-6 3))) (vector 10 e-15 e-16 (lambda () (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40C-40GrammarC-32C-36stateC-41C-32C-36tokC-41C-32C-36cC-41 e-15 arg-5 (e-17))))))))(else (case (vector-ref arg-6 0) ((11) (let ((e-3 (vector-ref arg-6 1))) (let ((e-4 (vector-ref arg-6 2))) (let ((e-5 (vector-ref arg-6 3))) (let ((e-6 (vector-ref arg-6 4))) (vector 11 e-3 e-4 e-5 (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40C-40GrammarC-32C-36stateC-41C-32C-36tokC-41C-32C-36cC-41 e-4 arg-5 e-6))))))) ((13) (let ((e-11 (vector-ref arg-6 1))) (vector 9 arg-4 0 (vector 13 e-11) (lambda (eta-0) (vector 0 (arg-5 eta-0))))))(else (cond (else (vector 9 0 0 arg-6 (lambda (eta-0) (vector 0 (arg-5 eta-0)))))))))))(else (case (vector-ref arg-6 0) ((11) (let ((e-3 (vector-ref arg-6 1))) (let ((e-4 (vector-ref arg-6 2))) (let ((e-5 (vector-ref arg-6 3))) (let ((e-6 (vector-ref arg-6 4))) (vector 11 e-3 e-4 e-5 (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40C-40GrammarC-32C-36stateC-41C-32C-36tokC-41C-32C-36cC-41 e-4 arg-5 e-6))))))) ((13) (let ((e-11 (vector-ref arg-6 1))) (vector 9 arg-4 0 (vector 13 e-11) (lambda (eta-0) (vector 0 (arg-5 eta-0))))))(else (cond (else (vector 9 0 0 arg-6 (lambda (eta-0) (vector 0 (arg-5 eta-0)))))))))))))))))))))))) +(define LibrariesC-45TextC-45ParserC-45Core-parseWith (lambda (arg-3 arg-4 arg-5 arg-6) (let ((sc0 (LibrariesC-45TextC-45ParserC-45Core-doParse (let ((e-1 (car arg-3))) e-1) (let ((e-2 (cdr arg-3))) e-2) 0 arg-5 arg-6))) (case (vector-ref sc0 0) ((0) (let ((e-5 (vector-ref sc0 3))) (let ((e-6 (vector-ref sc0 4))) (vector 0 (cons e-5 e-6))))) (else (let ((e-10 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 3))) (let ((e-13 (vector-ref sc0 4))) (vector 1 (cons e-10 (cons (let ((e-1 (vector-ref e-12 0))) e-1) e-13))))))))))) +(define LibrariesC-45TextC-45ParserC-45Core-parse (lambda (arg-2 arg-3 arg-4) (let ((sc0 (LibrariesC-45TextC-45ParserC-45Core-doParse (lambda (eta-0) (lambda (eta-1) (PreludeC-45Interfaces-u--C-60C-43C-62_Semigroup_C-40C-124UnitC-44MkUnitC-124C-41 eta-0 eta-1))) (PreludeC-45Interfaces-u--neutral_Monoid_C-40C-124UnitC-44MkUnitC-124C-41) 0 arg-3 arg-4))) (case (vector-ref sc0 0) ((0) (let ((e-5 (vector-ref sc0 3))) (let ((e-6 (vector-ref sc0 4))) (vector 0 (cons e-5 e-6))))) (else (let ((e-12 (vector-ref sc0 3))) (let ((e-13 (vector-ref sc0 4))) (vector 1 (cons (let ((e-1 (vector-ref e-12 0))) e-1) e-13))))))))) +(define LibrariesC-45TextC-45ParserC-45Core-mergeWith (lambda (arg-4 arg-5) (case (vector-ref arg-5 0) ((1) (let ((e-3 (vector-ref arg-5 1))) (let ((e-4 (vector-ref arg-5 2))) (let ((e-5 (vector-ref arg-5 3))) (let ((e-6 (vector-ref arg-5 4))) (vector 1 e-3 e-4 (LibrariesC-45TextC-45Bounded-mergeBounds arg-4 e-5) e-6))))))(else arg-5)))) +(define LibrariesC-45TextC-45ParserC-45Core-doParse (lambda (arg-4 arg-5 arg-6 arg-7 arg-8) (case (vector-ref arg-7 0) ((0) (let ((e-3 (vector-ref arg-7 1))) (vector 1 arg-5 arg-6 (LibrariesC-45TextC-45Bounded-irrelevantBounds e-3) arg-8))) ((4) (let ((e-8 (vector-ref arg-7 1))) (let ((e-9 (vector-ref arg-7 2))) (let ((e-10 (vector-ref arg-7 3))) (vector 0 arg-6 e-9 e-10 (PreludeC-45Types-maybe (lambda () (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (PreludeC-45Types-u--map_Functor_Maybe eta-2 eta-3))))) (lambda (eta-0) (let ((e-3 (vector-ref eta-0 2))) e-3)) (DataC-45List-headC-39 arg-8))) (lambda () (lambda (eta-0) (box eta-0))) e-8)))))) ((5) (let ((e-15 (vector-ref arg-7 1))) (LibrariesC-45TextC-45ParserC-45Core-case--doParse-2496 arg-4 arg-5 e-15 arg-8 arg-6 (LibrariesC-45TextC-45ParserC-45Core-doParse arg-4 arg-5 arg-6 e-15 arg-8)))) ((6) (vector 1 arg-5 1 (LibrariesC-45TextC-45Bounded-irrelevantBounds 0) arg-8)) ((7) (let ((e-22 (vector-ref arg-7 1))) (LibrariesC-45TextC-45ParserC-45Core-case--doParse-2591 arg-4 arg-5 e-22 arg-8 arg-6 (LibrariesC-45TextC-45ParserC-45Core-doParse arg-4 arg-5 arg-6 e-22 arg-8)))) ((1) (let ((e-26 (vector-ref arg-7 1))) (let ((e-27 (vector-ref arg-7 2))) (if (null? arg-8) (vector 0 arg-6 0 "End of input" '()) (let ((e-81 (car arg-8))) (let ((e-82 (cdr arg-8))) (let ((sc2 (e-27 (let ((e-1 (vector-ref e-81 0))) e-1)))) (if (null? sc2) (vector 0 arg-6 0 e-26 (box (let ((e-3 (vector-ref e-81 2))) e-3))) (let ((e-2 (unbox sc2))) (vector 1 arg-5 arg-6 (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (LibrariesC-45TextC-45Bounded-u--map_Functor_WithBounds eta-2 eta-3))))) (lambda (eta-0) e-2) e-81) e-82)))))))))) ((3) (if (null? arg-8) (vector 1 arg-5 arg-6 (LibrariesC-45TextC-45Bounded-irrelevantBounds 0) '()) (let ((e-85 (car arg-8))) (vector 0 arg-6 0 "Expected end of input" (box (let ((e-3 (vector-ref e-85 2))) e-3)))))) ((2) (let ((e-32 (vector-ref arg-7 1))) (let ((e-33 (vector-ref arg-7 2))) (if (null? arg-8) (vector 0 arg-6 0 "End of input" '()) (let ((e-89 (car arg-8))) (let ((e-90 (cdr arg-8))) (let ((sc2 (e-33 (let ((e-1 (vector-ref e-89 0))) e-1)))) (cond ((equal? sc2 1) (vector 1 arg-5 arg-6 (LibrariesC-45TextC-45Bounded-removeIrrelevance e-89) (cons e-89 e-90))) (else (vector 0 arg-6 0 e-32 (box (let ((e-3 (vector-ref e-89 2))) e-3)))))))))))) ((12) (let ((e-37 (vector-ref arg-7 1))) (let ((e-38 (vector-ref arg-7 2))) (let ((e-39 (vector-ref arg-7 3))) (let ((e-40 (vector-ref arg-7 4))) (LibrariesC-45TextC-45ParserC-45Core-case--doParse-2930 arg-4 arg-5 e-38 e-40 e-37 e-39 arg-8 arg-6 (LibrariesC-45TextC-45ParserC-45Core-doParse arg-4 arg-5 0 e-39 arg-8))))))) ((9) (let ((e-45 (vector-ref arg-7 1))) (let ((e-46 (vector-ref arg-7 2))) (let ((e-47 (vector-ref arg-7 3))) (let ((e-48 (vector-ref arg-7 4))) (LibrariesC-45TextC-45ParserC-45Core-case--doParse-3110 arg-4 e-45 e-46 arg-5 e-48 e-47 arg-8 arg-6 (LibrariesC-45TextC-45ParserC-45Core-doParse arg-4 arg-5 arg-6 e-47 arg-8))))))) ((8) (let ((e-53 (vector-ref arg-7 1))) (let ((e-54 (vector-ref arg-7 2))) (let ((e-55 (vector-ref arg-7 3))) (LibrariesC-45TextC-45ParserC-45Core-case--doParse-3222 arg-4 e-53 arg-5 e-55 e-54 arg-8 arg-6 (LibrariesC-45TextC-45ParserC-45Core-doParse arg-4 arg-5 arg-6 e-54 arg-8)))))) ((11) (let ((e-61 (vector-ref arg-7 3))) (let ((e-62 (vector-ref arg-7 4))) (let ((sc1 (LibrariesC-45TextC-45ParserC-45Core-doParse arg-4 arg-5 arg-6 e-61 arg-8))) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (let ((e-5 (vector-ref sc1 3))) (let ((e-6 (vector-ref sc1 4))) (vector 0 e-3 e-4 e-5 e-6)))))) (else (let ((e-10 (vector-ref sc1 1))) (let ((e-11 (vector-ref sc1 2))) (let ((e-12 (vector-ref sc1 3))) (let ((e-13 (vector-ref sc1 4))) (LibrariesC-45TextC-45ParserC-45Core-mergeWith e-12 (LibrariesC-45TextC-45ParserC-45Core-doParse arg-4 e-10 e-11 e-62 e-13)))))))))))) ((10) (let ((e-67 (vector-ref arg-7 2))) (let ((e-68 (vector-ref arg-7 3))) (let ((sc1 (LibrariesC-45TextC-45ParserC-45Core-doParse arg-4 arg-5 arg-6 e-67 arg-8))) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (let ((e-5 (vector-ref sc1 3))) (let ((e-6 (vector-ref sc1 4))) (vector 0 e-3 e-4 e-5 e-6)))))) (else (let ((e-10 (vector-ref sc1 1))) (let ((e-11 (vector-ref sc1 2))) (let ((e-12 (vector-ref sc1 3))) (let ((e-13 (vector-ref sc1 4))) (LibrariesC-45TextC-45ParserC-45Core-mergeWith e-12 (LibrariesC-45TextC-45ParserC-45Core-doParse arg-4 e-10 e-11 (e-68) e-13)))))))))))) ((13) (let ((e-73 (vector-ref arg-7 1))) (LibrariesC-45TextC-45ParserC-45Core-case--doParse-3529 arg-4 arg-5 e-73 arg-8 arg-6 (LibrariesC-45TextC-45ParserC-45Core-doParse arg-4 arg-5 arg-6 e-73 arg-8)))) ((14) (if (null? arg-8) (vector 0 arg-6 0 "End of input" '()) (let ((e-93 (car arg-8))) (let ((e-94 (cdr arg-8))) (vector 1 arg-5 arg-6 (LibrariesC-45TextC-45Bounded-irrelevantBounds (let ((e-3 (vector-ref e-93 2))) e-3)) (cons e-93 e-94)))))) (else (let ((e-78 (vector-ref arg-7 1))) (vector 1 ((arg-4 arg-5) e-78) arg-6 (LibrariesC-45TextC-45Bounded-irrelevantBounds 0) arg-8)))))) +(define LibrariesC-45TextC-45ParserC-45Core-C-60C-124C-124C-62 (lambda (arg-4 arg-5 arg-6 arg-7) (vector 12 arg-4 arg-5 (PreludeC-45Interfaces-C-60C-36C-62 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40C-40GrammarC-32C-36stateC-41C-32C-36tokC-41C-32C-36cC-41 arg-4 u--func arg-133))))) (lambda (eta-0) (vector 0 eta-0)) arg-6) (lambda () (PreludeC-45Interfaces-C-60C-36C-62 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40C-40GrammarC-32C-36stateC-41C-32C-36tokC-41C-32C-36cC-41 arg-5 u--func arg-133))))) (lambda (eta-0) (vector 1 eta-0)) (arg-7)))))) +(define LibrariesC-45TextC-45Bounded-u--map_Functor_WithBounds (lambda (arg-2 arg-3) (let ((e-1 (vector-ref arg-3 0))) (let ((e-2 (vector-ref arg-3 1))) (let ((e-3 (vector-ref arg-3 2))) (vector (arg-2 e-1) e-2 e-3)))))) +(define LibrariesC-45TextC-45Bounded-startBounds (lambda (arg-0) (cons (let ((e-0 (vector-ref arg-0 0))) e-0) (let ((e-1 (vector-ref arg-0 1))) e-1)))) +(define LibrariesC-45TextC-45Bounded-start (lambda (ext-0) (LibrariesC-45TextC-45Bounded-startBounds (let ((e-3 (vector-ref ext-0 2))) e-3)))) +(define LibrariesC-45TextC-45Bounded-removeIrrelevance (lambda (arg-1) (let ((e-1 (vector-ref arg-1 0))) (let ((e-3 (vector-ref arg-1 2))) (vector e-1 1 e-3))))) +(define LibrariesC-45TextC-45Bounded-mergeBounds (lambda (arg-2 arg-3) (let ((e-6 (vector-ref arg-2 1))) (cond ((equal? e-6 1) (let ((e-9 (vector-ref arg-3 0))) (let ((e-10 (vector-ref arg-3 1))) (cond ((equal? e-10 1) (LibrariesC-45TextC-45Bounded-irrelevantBounds e-9))(else arg-3)))))(else (let ((e-1 (vector-ref arg-3 0))) (let ((e-2 (vector-ref arg-3 1))) (cond ((equal? e-2 1) (PreludeC-45Interfaces-C-60C-36C-62 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (LibrariesC-45TextC-45Bounded-u--map_Functor_WithBounds u--func arg-133))))) (lambda (eta-0) e-1) arg-2))(else (let ((sc0 (PreludeC-45EqOrd-u--min_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector (cons (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) (vector (cons (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) (LibrariesC-45TextC-45Bounded-start arg-2) (LibrariesC-45TextC-45Bounded-start arg-3)))) (let ((e-8 (car sc0))) (let ((e-4 (cdr sc0))) (let ((sc1 (PreludeC-45EqOrd-u--max_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector (cons (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) (vector (cons (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) (LibrariesC-45TextC-45Bounded-end arg-2) (LibrariesC-45TextC-45Bounded-end arg-3)))) (let ((e-10 (car sc1))) (let ((e-9 (cdr sc1))) (vector (let ((e-13 (vector-ref arg-3 0))) e-13) 0 (vector e-8 e-4 e-10 e-9))))))))))))))))) +(define LibrariesC-45TextC-45Bounded-irrelevantBounds (lambda (arg-1) (vector arg-1 1 (vector -1 -1 -1 -1)))) +(define LibrariesC-45TextC-45Bounded-endBounds (lambda (arg-0) (cons (let ((e-2 (vector-ref arg-0 2))) e-2) (let ((e-3 (vector-ref arg-0 3))) e-3)))) +(define LibrariesC-45TextC-45Bounded-end (lambda (ext-0) (LibrariesC-45TextC-45Bounded-endBounds (let ((e-3 (vector-ref ext-0 2))) e-3)))) +(define LibrariesC-45TextC-45Lexer-n--3013-691-u--lexStr (lambda (arg-0) (if (null? arg-0) (LibrariesC-45TextC-45LexerC-45Core-fail) (let ((e-2 (car arg-0))) (let ((e-3 (cdr arg-0))) (LibrariesC-45TextC-45LexerC-45Core-C-60C-124C-62 (LibrariesC-45TextC-45Lexer-exact e-2) (LibrariesC-45TextC-45Lexer-n--3013-691-u--lexStr e-3))))))) +(define LibrariesC-45TextC-45Lexer-n--3013-692-u--control (lambda () (LibrariesC-45TextC-45LexerC-45Core-C-60C-124C-62 (LibrariesC-45TextC-45Lexer-n--3013-691-u--lexStr (cons "NUL" (cons "SOH" (cons "STX" (cons "ETX" (cons "EOT" (cons "ENQ" (cons "ACK" (cons "BEL" (cons "BS" (cons "HT" (cons "LF" (cons "VT" (cons "FF" (cons "CR" (cons "SO" (cons "SI" (cons "DLE" (cons "DC1" (cons "DC2" (cons "DC3" (cons "DC4" (cons "NAK" (cons "SYN" (cons "ETB" (cons "CAN" (cons "EM" (cons "SUB" (cons "ESC" (cons "FS" (cons "GS" (cons "RS" (cons "US" (cons "SP" (cons "DEL" '()))))))))))))))))))))))))))))))))))) (LibrariesC-45TextC-45LexerC-45Core-C-60C-124C-62 (vector 4 (LibrariesC-45TextC-45Lexer-is #\x) (lambda () (LibrariesC-45TextC-45Lexer-hexDigits))) (LibrariesC-45TextC-45LexerC-45Core-C-60C-124C-62 (vector 4 (LibrariesC-45TextC-45Lexer-is #\o) (lambda () (LibrariesC-45TextC-45Lexer-octDigits))) (LibrariesC-45TextC-45Lexer-digits)))))) +(define LibrariesC-45TextC-45Lexer-toTokenMap (lambda (ext-0) (PreludeC-45Types-u--map_Functor_List (lambda (lamc-0) (let ((e-2 (car lamc-0))) (let ((e-3 (cdr lamc-0))) (cons e-2 (lambda (eta-0) (cons e-3 eta-0)))))) ext-0))) +(define LibrariesC-45TextC-45Lexer-symbol (lambda () (LibrariesC-45TextC-45LexerC-45Core-pred (lambda (u--x) (let ((sc0 (let ((sc1 (PreludeC-45Types-isSpace u--x))) (cond ((equal? sc1 1) 1) (else (PreludeC-45Types-isAlphaNum u--x)))))) (cond ((equal? sc0 1) 0) (else 1))))))) (define LibrariesC-45TextC-45Lexer-surround (lambda (arg-0 arg-1 arg-2) (vector 4 arg-0 (lambda () (LibrariesC-45TextC-45Lexer-manyThen arg-1 arg-2))))) (define LibrariesC-45TextC-45Lexer-stringLit (lambda () (LibrariesC-45TextC-45Lexer-quote (LibrariesC-45TextC-45Lexer-is #\") (LibrariesC-45TextC-45LexerC-45Core-C-60C-124C-62 (LibrariesC-45TextC-45Lexer-escape (LibrariesC-45TextC-45Lexer-is #\\) (LibrariesC-45TextC-45Lexer-any)) (LibrariesC-45TextC-45Lexer-any))))) (define LibrariesC-45TextC-45Lexer-space (lambda () (LibrariesC-45TextC-45LexerC-45Core-pred (lambda (eta-0) (PreludeC-45Types-isSpace eta-0))))) @@ -1850,6 +1373,7 @@ (define LibrariesC-45TextC-45Lexer-quote (lambda (arg-0 arg-1) (LibrariesC-45TextC-45Lexer-surround arg-0 arg-0 arg-1))) (define LibrariesC-45TextC-45Lexer-opt (lambda (arg-0) (LibrariesC-45TextC-45LexerC-45Core-C-60C-124C-62 arg-0 (LibrariesC-45TextC-45LexerC-45Core-empty)))) (define LibrariesC-45TextC-45Lexer-oneOf (lambda (arg-0) (LibrariesC-45TextC-45LexerC-45Core-pred (lambda (u--x) (PreludeC-45Types-elem (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Char arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Char arg-4 arg-5)))) u--x (PreludeC-45Types-fastUnpack arg-0)))))) +(define LibrariesC-45TextC-45Lexer-octUnderscoredLit (lambda () (vector 4 (LibrariesC-45TextC-45Lexer-octLit) (lambda () (LibrariesC-45TextC-45Lexer-many (vector 4 (LibrariesC-45TextC-45Lexer-is #\_) (lambda () (LibrariesC-45TextC-45Lexer-octDigits)))))))) (define LibrariesC-45TextC-45Lexer-octLit (lambda () (vector 4 (LibrariesC-45TextC-45Lexer-exact "0o") (lambda () (LibrariesC-45TextC-45Lexer-octDigits))))) (define LibrariesC-45TextC-45Lexer-octDigits (lambda () (LibrariesC-45TextC-45Lexer-some (LibrariesC-45TextC-45Lexer-octDigit)))) (define LibrariesC-45TextC-45Lexer-octDigit (lambda () (LibrariesC-45TextC-45LexerC-45Core-pred (lambda (eta-0) (PreludeC-45Types-isOctDigit eta-0))))) @@ -1862,1540 +1386,1563 @@ (define LibrariesC-45TextC-45Lexer-isNot (lambda (arg-0) (LibrariesC-45TextC-45LexerC-45Core-pred (lambda (arg-1) (PreludeC-45EqOrd-u--C-47C-61_Eq_Char arg-1 arg-0))))) (define LibrariesC-45TextC-45Lexer-is (lambda (arg-0) (LibrariesC-45TextC-45LexerC-45Core-pred (lambda (arg-1) (PreludeC-45EqOrd-u--C-61C-61_Eq_Char arg-1 arg-0))))) (define LibrariesC-45TextC-45Lexer-intLit (lambda () (vector 5 (LibrariesC-45TextC-45Lexer-opt (LibrariesC-45TextC-45Lexer-is #\-)) (LibrariesC-45TextC-45Lexer-digits)))) +(define LibrariesC-45TextC-45Lexer-hexUnderscoredLit (lambda () (vector 4 (LibrariesC-45TextC-45Lexer-hexLit) (lambda () (LibrariesC-45TextC-45Lexer-many (vector 4 (LibrariesC-45TextC-45Lexer-is #\_) (lambda () (LibrariesC-45TextC-45Lexer-hexDigits)))))))) (define LibrariesC-45TextC-45Lexer-hexLit (lambda () (vector 4 (LibrariesC-45TextC-45Lexer-approx "0x") (lambda () (LibrariesC-45TextC-45Lexer-hexDigits))))) (define LibrariesC-45TextC-45Lexer-hexDigits (lambda () (LibrariesC-45TextC-45Lexer-some (LibrariesC-45TextC-45Lexer-hexDigit)))) (define LibrariesC-45TextC-45Lexer-hexDigit (lambda () (LibrariesC-45TextC-45LexerC-45Core-pred (lambda (eta-0) (PreludeC-45Types-isHexDigit eta-0))))) -(define LibrariesC-45TextC-45Lexer-exact (lambda (arg-0) (LibrariesC-45TextC-45Lexer-case--exact-562 arg-0 (PreludeC-45Types-fastUnpack arg-0)))) +(define LibrariesC-45TextC-45Lexer-exact (lambda (arg-0) (let ((sc0 (PreludeC-45Types-fastUnpack arg-0))) (if (null? sc0) (LibrariesC-45TextC-45LexerC-45Core-fail) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (LibrariesC-45TextC-45LexerC-45Core-concatMap (lambda (eta-0) (LibrariesC-45TextC-45Lexer-is eta-0)) (cons e-2 e-3)))))))) (define LibrariesC-45TextC-45Lexer-escape (lambda (arg-0 arg-1) (vector 4 arg-0 (lambda () arg-1)))) +(define LibrariesC-45TextC-45Lexer-digitsUnderscoredLit (lambda () (vector 4 (LibrariesC-45TextC-45Lexer-digits) (lambda () (LibrariesC-45TextC-45Lexer-many (vector 4 (LibrariesC-45TextC-45Lexer-is #\_) (lambda () (LibrariesC-45TextC-45Lexer-digits)))))))) (define LibrariesC-45TextC-45Lexer-digits (lambda () (LibrariesC-45TextC-45Lexer-some (LibrariesC-45TextC-45Lexer-digit)))) (define LibrariesC-45TextC-45Lexer-digit (lambda () (LibrariesC-45TextC-45LexerC-45Core-pred (lambda (eta-0) (PreludeC-45Types-isDigit eta-0))))) -(define LibrariesC-45TextC-45Lexer-choiceMap (lambda (arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-3)) (let ((e-1 (vector-ref sc0 1))) (((((e-1 'erased) 'erased) (lambda (u--x) (lambda (u--acc) (LibrariesC-45TextC-45LexerC-45Core-C-60C-124C-62 (arg-4 u--x) u--acc)))) (LibrariesC-45TextC-45LexerC-45Core-fail)) arg-5))))) +(define LibrariesC-45TextC-45Lexer-choiceMap (lambda (arg-2 arg-3 arg-4 arg-5) (let ((e-1 (vector-ref arg-3 0))) (((((e-1 'erased) 'erased) (lambda (u--x) (lambda (u--acc) (LibrariesC-45TextC-45LexerC-45Core-C-60C-124C-62 (arg-4 u--x) u--acc)))) (LibrariesC-45TextC-45LexerC-45Core-fail)) arg-5)))) (define LibrariesC-45TextC-45Lexer-choice (lambda (arg-1 arg-2 ext-0) (LibrariesC-45TextC-45Lexer-choiceMap arg-1 arg-2 (lambda (eta-0) eta-0) ext-0))) -(define LibrariesC-45TextC-45Lexer-charLit (lambda () (let ((u--q #\')) (vector 4 (vector 4 (LibrariesC-45TextC-45Lexer-is u--q) (lambda () (LibrariesC-45TextC-45LexerC-45Core-C-60C-124C-62 (LibrariesC-45TextC-45Lexer-escape (LibrariesC-45TextC-45Lexer-is #\\) (LibrariesC-45TextC-45LexerC-45Core-C-60C-124C-62 (LibrariesC-45TextC-45Lexer-n--3573-727-u--control) (LibrariesC-45TextC-45Lexer-any))) (LibrariesC-45TextC-45Lexer-isNot u--q)))) (lambda () (LibrariesC-45TextC-45Lexer-is u--q)))))) +(define LibrariesC-45TextC-45Lexer-charLit (lambda () (let ((u--q #\')) (vector 4 (vector 4 (LibrariesC-45TextC-45Lexer-is u--q) (lambda () (LibrariesC-45TextC-45LexerC-45Core-C-60C-124C-62 (LibrariesC-45TextC-45Lexer-escape (LibrariesC-45TextC-45Lexer-is #\\) (LibrariesC-45TextC-45LexerC-45Core-C-60C-124C-62 (LibrariesC-45TextC-45Lexer-n--3013-692-u--control) (LibrariesC-45TextC-45Lexer-any))) (LibrariesC-45TextC-45Lexer-isNot u--q)))) (lambda () (LibrariesC-45TextC-45Lexer-is u--q)))))) +(define LibrariesC-45TextC-45Lexer-binUnderscoredLit (lambda () (vector 4 (LibrariesC-45TextC-45Lexer-binLit) (lambda () (LibrariesC-45TextC-45Lexer-many (vector 4 (LibrariesC-45TextC-45Lexer-is #\_) (lambda () (LibrariesC-45TextC-45Lexer-binDigits)))))))) (define LibrariesC-45TextC-45Lexer-binLit (lambda () (vector 4 (LibrariesC-45TextC-45Lexer-exact "0b") (lambda () (LibrariesC-45TextC-45Lexer-binDigits))))) (define LibrariesC-45TextC-45Lexer-binDigits (lambda () (LibrariesC-45TextC-45Lexer-some (LibrariesC-45TextC-45Lexer-binDigit)))) -(define LibrariesC-45TextC-45Lexer-binDigit (lambda () (LibrariesC-45TextC-45LexerC-45Core-pred (lambda (u--c) (PreludeC-45Basics-C-124C-124 (PreludeC-45EqOrd-u--C-61C-61_Eq_Char u--c #\0) (lambda () (PreludeC-45EqOrd-u--C-61C-61_Eq_Char u--c #\1))))))) -(define LibrariesC-45TextC-45Lexer-approx (lambda (arg-0) (LibrariesC-45TextC-45Lexer-case--approx-583 arg-0 (PreludeC-45Types-fastUnpack arg-0)))) -(define LibrariesC-45TextC-45Lexer-any (lambda () (LibrariesC-45TextC-45LexerC-45Core-pred (lambda (eta-0) 0)))) -(define LibrariesC-45TextC-45Quantity-exactly (lambda (arg-0) (cons arg-0 (vector 1 arg-0)))) -(define LibrariesC-45TextC-45Quantity-between (lambda (arg-0 arg-1) (cons arg-0 (vector 1 arg-1)))) -(define LibrariesC-45TextC-45Quantity-atMost (lambda (arg-0) (cons 0 (vector 1 arg-0)))) -(define LibrariesC-45TextC-45Quantity-atLeast (lambda (arg-0) (cons arg-0 (vector 0 )))) -(define LibrariesC-45TextC-45LexerC-45Core-case--lexTo-1962 (lambda (arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-3)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (let ((sc2 e-7)) (let ((e-10 (car sc2))) (let ((e-11 (cdr sc2))) (cons e-2 (cons e-6 (cons e-10 (PreludeC-45Types-fastPack e-11))))))))))))))) -(define LibrariesC-45TextC-45LexerC-45Core-case--lex-1908 (lambda (arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-3)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (let ((sc2 e-7)) (let ((e-10 (car sc2))) (let ((e-11 (cdr sc2))) (cons e-2 (cons e-6 (cons e-10 (PreludeC-45Types-fastPack e-11))))))))))))))) -(define LibrariesC-45TextC-45LexerC-45Core-case--caseC-32blockC-32inC-32tokenise-1783 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (cond ((equal? sc0 0) (cons (DataC-45List-reverse arg-3) (cons arg-5 (cons arg-4 '())))) (else (LibrariesC-45TextC-45LexerC-45Core-tokenise arg-6 arg-8 arg-9 (cons arg-7 arg-3) arg-2 arg-10)))))) -(define LibrariesC-45TextC-45LexerC-45Core-case--tokenise-1747 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-5 (car sc1))) (let ((e-6 (cdr sc1))) (let ((sc2 e-6)) (let ((e-9 (car sc2))) (let ((e-10 (cdr sc2))) (let ((sc3 e-10)) (let ((e-13 (car sc3))) (let ((e-14 (cdr sc3))) (LibrariesC-45TextC-45LexerC-45Core-case--caseC-32blockC-32inC-32tokenise-1783 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-9 e-13 e-14 (arg-6 (let ((sc4 e-5)) (let ((e-4 (vector-ref sc4 1))) e-4))))))))))))))) (else (cons (DataC-45List-reverse arg-3) (cons arg-5 (cons arg-4 arg-1)))))))) -(define LibrariesC-45TextC-45LexerC-45Core-case--tokeniseC-44getFirstToken-1657 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-5 (car sc1))) (let ((e-6 (cdr sc1))) (let ((u--lineC-39 (bs+ arg-5 (PreludeC-45Cast-u--cast_Cast_Nat_Int (LibrariesC-45TextC-45LexerC-45Core-n--3661-1545-u--countNLs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5)) 63))) (let ((u--colC-39 (LibrariesC-45TextC-45LexerC-45Core-n--3661-1546-u--getCols arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 arg-4))) (vector 1 (cons (vector 0 (arg-8 (PreludeC-45Types-fastPack (DataC-45List-reverse e-5))) 1 (vector 0 arg-5 arg-4 u--lineC-39 u--colC-39)) (cons u--lineC-39 (cons u--colC-39 e-6))))))))))) (else (LibrariesC-45TextC-45LexerC-45Core-n--3661-1547-u--getFirstToken arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-9 arg-10)))))) -(define LibrariesC-45TextC-45LexerC-45Core-case--tokeniseC-44getCols-1572 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-3)) (if (null? sc1) (bs+ arg-7 (PreludeC-45Cast-u--cast_Cast_Nat_Int (PreludeC-45TypesC-45List-length e-2)) 63) (PreludeC-45Cast-u--cast_Cast_Nat_Int (PreludeC-45TypesC-45List-length e-2))))))))) -(define LibrariesC-45TextC-45LexerC-45Core-case--scan-1390 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (vector 1 (cons (cons arg-1 arg-3) arg-2))) (else (vector 0 )))))) -(define LibrariesC-45TextC-45LexerC-45Core-case--scan-1341 (lambda (arg-1 arg-2 arg-3 arg-4 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (PreludeC-45Types-u--pure_Applicative_Maybe (cons arg-4 arg-3))) (else (vector 0 )))))) -(define LibrariesC-45TextC-45LexerC-45Core-n--3661-1547-u--getFirstToken (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-7)) (if (null? sc0) (vector 0 ) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (LibrariesC-45TextC-45LexerC-45Core-case--tokeniseC-44getFirstToken-1657 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-6 e-7 e-3 arg-8 (LibrariesC-45TextC-45LexerC-45Core-scan e-6 '() arg-8))))))))))) -(define LibrariesC-45TextC-45LexerC-45Core-n--3661-1546-u--getCols (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (LibrariesC-45TextC-45LexerC-45Core-case--tokeniseC-44getCols-1572 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-8 arg-7 (DataC-45List-span (lambda (arg-0) (PreludeC-45EqOrd-u--C-47C-61_Eq_Char arg-0 (integer->char 10))) (DataC-45List-reverse arg-7))))) -(define LibrariesC-45TextC-45LexerC-45Core-n--3661-1545-u--countNLs (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (PreludeC-45TypesC-45List-length (DataC-45List-filter (lambda (arg-0) (PreludeC-45EqOrd-u--C-61C-61_Eq_Char arg-0 (integer->char 10))) arg-7)))) -(define LibrariesC-45TextC-45LexerC-45Core-tokenise (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (LibrariesC-45TextC-45LexerC-45Core-case--tokenise-1747 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (LibrariesC-45TextC-45LexerC-45Core-n--3661-1547-u--getFirstToken arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-5 arg-6)))) -(define LibrariesC-45TextC-45LexerC-45Core-scan (lambda (arg-1 arg-2 arg-3) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (PreludeC-45Types-u--pure_Applicative_Maybe (cons arg-2 arg-3))) ((1) (vector 0 )) ((2) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (LibrariesC-45TextC-45LexerC-45Core-case--scan-1341 e-3 e-2 arg-3 arg-2 (PreludeC-45EqOrd-u--C-61C-61_Eq_Bool (DataC-45Maybe-isJust (LibrariesC-45TextC-45LexerC-45Core-scan e-3 arg-2 arg-3)) e-2))))) ((3) (let ((e-4 (vector-ref sc0 1))) (let ((sc1 arg-3)) (if (null? sc1) (vector 0 ) (let ((e-21 (car sc1))) (let ((e-22 (cdr sc1))) (LibrariesC-45TextC-45LexerC-45Core-case--scan-1390 e-4 e-21 e-22 arg-2 (e-4 e-21)))))))) ((4) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (LibrariesC-45TextC-45LexerC-45Core-scan e-6 arg-2 arg-3) (lambda (_-0) (let ((sc1 _-0)) (let ((e-2 (car sc1))) (let ((e-3 (cdr sc1))) (LibrariesC-45TextC-45LexerC-45Core-scan (e-7) e-2 e-3))))))))) ((5) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (LibrariesC-45TextC-45LexerC-45Core-scan e-10 arg-2 arg-3) (lambda (_-0) (let ((sc1 _-0)) (let ((e-2 (car sc1))) (let ((e-3 (cdr sc1))) (LibrariesC-45TextC-45LexerC-45Core-scan e-11 e-2 e-3))))))))) ((6) (let ((e-13 (vector-ref sc0 1))) (let ((e-14 (vector-ref sc0 2))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (LibrariesC-45TextC-45LexerC-45Core-scan e-13 arg-2 arg-3) (lambda (_-0) (let ((sc1 _-0)) (let ((e-2 (car sc1))) (let ((e-3 (cdr sc1))) (LibrariesC-45TextC-45LexerC-45Core-scan e-14 e-2 e-3))))))))) (else (let ((e-17 (vector-ref sc0 1))) (let ((e-18 (vector-ref sc0 2))) (PreludeC-45Types-maybe (lambda () (LibrariesC-45TextC-45LexerC-45Core-scan e-18 arg-2 arg-3)) (lambda () (lambda (eta-0) (vector 1 eta-0))) (LibrariesC-45TextC-45LexerC-45Core-scan e-17 arg-2 arg-3))))))))) -(define LibrariesC-45TextC-45LexerC-45Core-reject (lambda (ext-0) (vector 2 1 ext-0))) +(define LibrariesC-45TextC-45Lexer-binDigit (lambda () (LibrariesC-45TextC-45LexerC-45Core-pred (lambda (u--c) (let ((sc0 (PreludeC-45EqOrd-u--C-61C-61_Eq_Char u--c #\0))) (cond ((equal? sc0 1) 1) (else (PreludeC-45EqOrd-u--C-61C-61_Eq_Char u--c #\1)))))))) +(define LibrariesC-45TextC-45Lexer-approx (lambda (arg-0) (let ((sc0 (PreludeC-45Types-fastUnpack arg-0))) (if (null? sc0) (LibrariesC-45TextC-45LexerC-45Core-fail) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (LibrariesC-45TextC-45LexerC-45Core-concatMap (lambda (eta-0) (LibrariesC-45TextC-45Lexer-like eta-0)) (cons e-2 e-3)))))))) +(define LibrariesC-45TextC-45Lexer-any (lambda () (LibrariesC-45TextC-45LexerC-45Core-pred (lambda (eta-0) 1)))) +(define LibrariesC-45TextC-45Lexer-alphaNum (lambda () (LibrariesC-45TextC-45LexerC-45Core-pred (lambda (eta-0) (PreludeC-45Types-isAlphaNum eta-0))))) +(define LibrariesC-45TextC-45LexerC-45Core-case--tokenise-1652 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (if (null? arg-7) (cons (DataC-45List-reverse arg-3) (cons arg-5 (cons arg-4 arg-1))) (let ((e-1 (unbox arg-7))) (let ((e-5 (car e-1))) (let ((e-6 (cdr e-1))) (let ((e-9 (car e-6))) (let ((e-10 (cdr e-6))) (let ((e-13 (car e-10))) (let ((e-14 (cdr e-10))) (let ((sc4 (arg-6 (let ((e-4 (vector-ref e-5 0))) e-4)))) (cond ((equal? sc4 1) (cons (DataC-45List-reverse arg-3) (cons arg-5 (cons arg-4 '())))) (else (LibrariesC-45TextC-45LexerC-45Core-tokenise arg-6 e-9 e-13 (cons e-5 arg-3) arg-2 e-14)))))))))))))) +(define LibrariesC-45TextC-45LexerC-45Core-case--tokeniseC-44getFirstToken-1566 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (if (null? arg-11) (LibrariesC-45TextC-45LexerC-45Core-n--3066-1457-u--getFirstToken arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-9 arg-10) (let ((e-1 (unbox arg-11))) (let ((e-5 (car e-1))) (let ((e-6 (cdr e-1))) (let ((u--lineC-39 (bs+ arg-5 (PreludeC-45Cast-u--cast_Cast_Nat_Int (LibrariesC-45TextC-45LexerC-45Core-n--3066-1455-u--countNLs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5)) 63))) (let ((u--colC-39 (LibrariesC-45TextC-45LexerC-45Core-n--3066-1456-u--getCols arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 arg-4))) (box (cons (vector (arg-8 (PreludeC-45Types-fastPack (DataC-45List-reverse e-5))) 0 (vector arg-5 arg-4 u--lineC-39 u--colC-39)) (cons u--lineC-39 (cons u--colC-39 e-6)))))))))))) +(define LibrariesC-45TextC-45LexerC-45Core-n--3066-1457-u--getFirstToken (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (if (null? arg-7) '() (let ((e-2 (car arg-7))) (let ((e-3 (cdr arg-7))) (let ((e-6 (car e-2))) (let ((e-7 (cdr e-2))) (LibrariesC-45TextC-45LexerC-45Core-case--tokeniseC-44getFirstToken-1566 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-6 e-7 e-3 arg-8 (LibrariesC-45TextC-45LexerC-45Core-scan e-6 '() arg-8))))))))) +(define LibrariesC-45TextC-45LexerC-45Core-n--3066-1456-u--getCols (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 (DataC-45List-span (lambda (arg-0) (PreludeC-45EqOrd-u--C-47C-61_Eq_Char arg-0 (integer->char 10))) (DataC-45List-reverse arg-7)))) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (if (null? e-3) (bs+ arg-8 (PreludeC-45Cast-u--cast_Cast_Nat_Int (PreludeC-45TypesC-45List-length e-2)) 63) (PreludeC-45Cast-u--cast_Cast_Nat_Int (PreludeC-45TypesC-45List-length e-2)))))))) +(define LibrariesC-45TextC-45LexerC-45Core-n--3066-1455-u--countNLs (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (PreludeC-45TypesC-45List-length (DataC-45List-filter (lambda (arg-0) (PreludeC-45EqOrd-u--C-61C-61_Eq_Char arg-0 (integer->char 10))) arg-7)))) +(define LibrariesC-45TextC-45LexerC-45Core-tokenise (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (LibrariesC-45TextC-45LexerC-45Core-case--tokenise-1652 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (LibrariesC-45TextC-45LexerC-45Core-n--3066-1457-u--getFirstToken arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-5 arg-6)))) +(define LibrariesC-45TextC-45LexerC-45Core-scan (lambda (arg-1 arg-2 arg-3) (case (vector-ref arg-1 0) ((0) (PreludeC-45Types-u--pure_Applicative_Maybe (cons arg-2 arg-3))) ((1) '()) ((2) (let ((e-2 (vector-ref arg-1 1))) (let ((e-3 (vector-ref arg-1 2))) (let ((sc1 (PreludeC-45EqOrd-u--C-61C-61_Eq_Bool (DataC-45Maybe-isJust (LibrariesC-45TextC-45LexerC-45Core-scan e-3 arg-2 arg-3)) e-2))) (cond ((equal? sc1 1) (PreludeC-45Types-u--pure_Applicative_Maybe (cons arg-2 arg-3))) (else '())))))) ((3) (let ((e-4 (vector-ref arg-1 1))) (if (null? arg-3) '() (let ((e-21 (car arg-3))) (let ((e-22 (cdr arg-3))) (let ((sc2 (e-4 e-21))) (cond ((equal? sc2 1) (box (cons (cons e-21 arg-2) e-22))) (else '())))))))) ((4) (let ((e-6 (vector-ref arg-1 1))) (let ((e-7 (vector-ref arg-1 2))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (LibrariesC-45TextC-45LexerC-45Core-scan e-6 arg-2 arg-3) (lambda (_-0) (let ((e-2 (car _-0))) (let ((e-3 (cdr _-0))) (LibrariesC-45TextC-45LexerC-45Core-scan (e-7) e-2 e-3)))))))) ((5) (let ((e-10 (vector-ref arg-1 1))) (let ((e-11 (vector-ref arg-1 2))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (LibrariesC-45TextC-45LexerC-45Core-scan e-10 arg-2 arg-3) (lambda (_-0) (let ((e-2 (car _-0))) (let ((e-3 (cdr _-0))) (LibrariesC-45TextC-45LexerC-45Core-scan e-11 e-2 e-3)))))))) ((6) (let ((e-13 (vector-ref arg-1 1))) (let ((e-14 (vector-ref arg-1 2))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (LibrariesC-45TextC-45LexerC-45Core-scan e-13 arg-2 arg-3) (lambda (_-0) (let ((e-2 (car _-0))) (let ((e-3 (cdr _-0))) (LibrariesC-45TextC-45LexerC-45Core-scan e-14 e-2 e-3)))))))) (else (let ((e-17 (vector-ref arg-1 1))) (let ((e-18 (vector-ref arg-1 2))) (PreludeC-45Types-maybe (lambda () (LibrariesC-45TextC-45LexerC-45Core-scan e-18 arg-2 arg-3)) (lambda () (lambda (eta-0) (box eta-0))) (LibrariesC-45TextC-45LexerC-45Core-scan e-17 arg-2 arg-3)))))))) +(define LibrariesC-45TextC-45LexerC-45Core-reject (lambda (ext-0) (vector 2 0 ext-0))) (define LibrariesC-45TextC-45LexerC-45Core-pred (lambda (ext-0) (vector 3 ext-0))) -(define LibrariesC-45TextC-45LexerC-45Core-lexTo (lambda (arg-1 arg-2 arg-3) (LibrariesC-45TextC-45LexerC-45Core-case--lexTo-1962 arg-3 arg-2 arg-1 (LibrariesC-45TextC-45LexerC-45Core-tokenise arg-1 0 0 '() arg-2 (PreludeC-45Types-fastUnpack arg-3))))) -(define LibrariesC-45TextC-45LexerC-45Core-lex (lambda (arg-1 arg-2) (LibrariesC-45TextC-45LexerC-45Core-case--lex-1908 arg-2 arg-1 (LibrariesC-45TextC-45LexerC-45Core-tokenise (lambda (eta-0) 1) 0 0 '() arg-1 (PreludeC-45Types-fastUnpack arg-2))))) +(define LibrariesC-45TextC-45LexerC-45Core-lexTo (lambda (arg-1 arg-2 arg-3) (let ((sc0 (LibrariesC-45TextC-45LexerC-45Core-tokenise arg-1 0 0 '() arg-2 (PreludeC-45Types-fastUnpack arg-3)))) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((e-6 (car e-3))) (let ((e-7 (cdr e-3))) (let ((e-10 (car e-7))) (let ((e-11 (cdr e-7))) (cons e-2 (cons e-6 (cons e-10 (PreludeC-45Types-fastPack e-11))))))))))))) +(define LibrariesC-45TextC-45LexerC-45Core-lex (lambda (arg-1 arg-2) (let ((sc0 (LibrariesC-45TextC-45LexerC-45Core-tokenise (lambda (eta-0) 0) 0 0 '() arg-1 (PreludeC-45Types-fastUnpack arg-2)))) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((e-6 (car e-3))) (let ((e-7 (cdr e-3))) (let ((e-10 (car e-7))) (let ((e-11 (cdr e-7))) (cons e-2 (cons e-6 (cons e-10 (PreludeC-45Types-fastPack e-11))))))))))))) (define LibrariesC-45TextC-45LexerC-45Core-fail (lambda () (vector 1 ))) -(define LibrariesC-45TextC-45LexerC-45Core-expect (lambda (ext-0) (vector 2 0 ext-0))) +(define LibrariesC-45TextC-45LexerC-45Core-expect (lambda (ext-0) (vector 2 1 ext-0))) (define LibrariesC-45TextC-45LexerC-45Core-empty (lambda () (vector 0 ))) -(define LibrariesC-45TextC-45LexerC-45Core-concatMap (lambda (arg-2 arg-3) (let ((sc0 arg-3)) (if (null? sc0) (vector 0 ) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-3)) (if (null? sc1) (arg-2 e-2) (vector 6 (arg-2 e-2) (LibrariesC-45TextC-45LexerC-45Core-concatMap arg-2 e-3)))))))))) +(define LibrariesC-45TextC-45LexerC-45Core-concatMap (lambda (arg-2 arg-3) (if (null? arg-3) (vector 0 ) (let ((e-2 (car arg-3))) (let ((e-3 (cdr arg-3))) (if (null? e-3) (arg-2 e-2) (vector 6 (arg-2 e-2) (LibrariesC-45TextC-45LexerC-45Core-concatMap arg-2 e-3)))))))) (define LibrariesC-45TextC-45LexerC-45Core-C-60C-124C-62 (lambda (ext-0 ext-1) (vector 7 ext-0 ext-1))) -(define ParserC-45RuleC-45Source-case--nonEmptyBlockAfter-5459 (lambda (arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 1) (vector 8 1 (ParserC-45RuleC-45Source-blockEntry (vector 1 arg-3) arg-1) (lambda () (lambda (u--res) (vector 9 1 1 (ParserC-45RuleC-45Source-blockEntries (Builtin-snd u--res) arg-1) (lambda (u--ps) (vector 0 (cons (Builtin-fst u--res) u--ps)))))))) (else (vector 4 (vector 0 ) 1 "Expected an indented non-empty block")))))) -(define ParserC-45RuleC-45Source-case--blockWithOptHeaderAfter-5185 (lambda (arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (vector 0 (cons (vector 0 ) '()))) (else (vector 9 1 1 (LibrariesC-45TextC-45Parser-optional 0 (ParserC-45RuleC-45Source-blockEntry (vector 1 arg-5) arg-3)) (lambda (u--hidt) (vector 9 1 1 (ParserC-45RuleC-45Source-blockEntries (vector 1 arg-5) arg-2) (lambda (u--ps) (vector 0 (cons (PreludeC-45Types-u--map_Functor_Maybe (lambda (eta-0) (Builtin-fst eta-0)) u--hidt) u--ps))))))))))) -(define ParserC-45RuleC-45Source-case--blockAfter-5031 (lambda (arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (vector 0 '())) (else (ParserC-45RuleC-45Source-blockEntries (vector 1 arg-3) arg-1)))))) -(define ParserC-45RuleC-45Source-case--terminatorC-44afterDedent-4708 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (vector 0 (vector 1 arg-2))) (else (vector 4 (vector 0 ) 1 "Not the end of a block entry")))))) -(define ParserC-45RuleC-45Source-case--terminatorC-44afterDedent-4673 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (vector 0 (vector 1 arg-2))) (else (vector 4 (vector 0 ) 1 "Not the end of a block entry")))))) -(define ParserC-45RuleC-45Source-case--terminatorC-44afterDedent-4642 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (vector 0 (vector 0 ))) (else (vector 4 (vector 0 ) 1 "Not the end of a block entry")))))) -(define ParserC-45RuleC-45Source-case--atEndIndent-4604 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 0 (vector 0 ))) (else (vector 4 (vector 0 ) 1 "Not the end of a block entry")))))) -(define ParserC-45RuleC-45Source-case--atEnd-4565 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 0 (vector 0 ))) (else (vector 4 (vector 0 ) 1 "Not the end of a block entry")))))) -(define ParserC-45RuleC-45Source-case--checkValid-4458 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 0 (vector 0 ))) (else (vector 4 (vector 0 ) 1 "Invalid indentation")))))) -(define ParserC-45RuleC-45Source-case--checkValid-4432 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 0 (vector 0 ))) (else (vector 4 (vector 0 ) 1 "Invalid indentation")))))) -(define ParserC-45RuleC-45Source-case--continueF-4333 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) arg-1) (else (vector 0 (vector 0 ))))))) -(define ParserC-45RuleC-45Source-case--isNotReservedIdent-4077 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (vector 4 (vector 1 (let ((sc1 arg-0)) (let ((e-3 (vector-ref sc1 3))) e-3))) 1 (PreludeC-45TypesC-45String-C-43C-43 "can't use reserved name " (let ((sc1 arg-0)) (let ((e-1 (vector-ref sc1 1))) e-1))))) (else (vector 0 (vector 0 ))))))) -(define ParserC-45RuleC-45Source-case--caseC-32blockC-32inC-32isCapitalisedIdent-3879 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (vector 0 (vector 0 ))) (else arg-2))))) -(define ParserC-45RuleC-45Source-case--isCapitalisedIdent-3852 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-1)) (cond ((equal? sc0 "") (let ((sc1 arg-4)) (if (null? sc1) arg-3 (let ((sc2 arg-4)) (let ((e-0 (car sc2))) (let ((e-1 (cdr sc2))) (let ((u--val (string-cons e-0 e-1))) (ParserC-45RuleC-45Source-case--caseC-32blockC-32inC-32isCapitalisedIdent-3879 arg-0 arg-2 arg-3 e-1 e-0 u--val (PreludeC-45Basics-C-124C-124 (PreludeC-45Types-isUpper e-0) (lambda () (PreludeC-45EqOrd-u--C-62_Ord_Char e-0 (PreludeC-45Types-chr (blodwen-toSignedInt 160 63)))))))))))))(else (let ((sc0 arg-4)) (let ((e-0 (car sc0))) (let ((e-1 (cdr sc0))) (let ((u--val (string-cons e-0 e-1))) (ParserC-45RuleC-45Source-case--caseC-32blockC-32inC-32isCapitalisedIdent-3879 arg-0 arg-2 arg-3 e-1 e-0 u--val (PreludeC-45Basics-C-124C-124 (PreludeC-45Types-isUpper e-0) (lambda () (PreludeC-45EqOrd-u--C-62_Ord_Char e-0 (PreludeC-45Types-chr (blodwen-toSignedInt 160 63))))))))))))))) -(define ParserC-45RuleC-45Source-case--caseC-32blockC-32inC-32operator-3780 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 0 )) (else (vector 1 (vector 1 arg-0))))))) -(define ParserC-45RuleC-45Source-case--caseC-32blockC-32inC-32pragma-3743 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (vector 1 (vector 0 ))) (else (vector 0 )))))) -(define ParserC-45RuleC-45Source-case--caseC-32blockC-32inC-32exactIdent-3701 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (vector 1 (vector 0 ))) (else (vector 0 )))))) -(define ParserC-45RuleC-45Source-case--caseC-32blockC-32inC-32keyword-3659 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (vector 1 (vector 0 ))) (else (vector 0 )))))) -(define ParserC-45RuleC-45Source-case--caseC-32blockC-32inC-32symbol-3614 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (vector 1 (vector 0 ))) (else (vector 0 )))))) -(define ParserC-45RuleC-45Source-case--caseC-32blockC-32inC-32constant-3326 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (vector 1 (vector 11 e-2)))))))) -(define ParserC-45RuleC-45Source-n--7487-5067-u--restOfBlock (lambda (arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-5 (car sc1))) (let ((e-6 (cdr sc1))) (vector 9 1 0 (ParserC-45RuleC-45Source-blockEntries e-6 arg-2) (lambda (u--ps) (vector 10 1 (ParserC-45RuleC-45Source-symbol "}") (lambda () (vector 0 (cons (vector 1 e-5) u--ps))))))))))) (else (vector 9 1 0 (ParserC-45RuleC-45Source-blockEntries (vector 0 ) arg-2) (lambda (u--ps) (vector 10 1 (ParserC-45RuleC-45Source-symbol "}") (lambda () (vector 0 (cons (vector 0 ) u--ps))))))))))) -(define ParserC-45RuleC-45Source-n--6539-4130-u--opNS (lambda (arg-0 arg-1) (vector 11 1 0 (ParserC-45RuleC-45Source-isCapitalisedIdent (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (LibrariesC-45TextC-45Bounded-u--map_Functor_WithBounds eta-2 eta-3))))) (lambda (eta-0) (Builtin-snd eta-0)) arg-1)) (let ((u--ns (PreludeC-45Basics-uncurry (lambda (eta-0) (lambda (eta-1) (CoreC-45NameC-45Namespace-mkNestedNamespace eta-0 eta-1))) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) e-1))))) (vector 10 (PreludeC-45Basics-C-124C-124 0 (lambda () 0)) (ParserC-45RuleC-45Source-symbol ".(") (lambda () (vector 8 0 (vector 12 0 0 (ParserC-45RuleC-45Source-operator) (lambda () (ParserC-45RuleC-45Source-postfixProj))) (lambda () (lambda (u--n) (vector 10 1 (ParserC-45RuleC-45Source-symbol ")") (lambda () (vector 0 (vector 0 u--ns u--n))))))))))))) -(define ParserC-45RuleC-45Source-n--6539-4129-u--nameNS (lambda (arg-0 arg-1) (let ((u--id (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (LibrariesC-45TextC-45Bounded-u--map_Functor_WithBounds eta-2 eta-3))))) (lambda (eta-0) (Builtin-snd eta-0)) arg-1))) (vector 11 1 1 (ParserC-45RuleC-45Source-identWithCapital arg-0 u--id) (vector 11 1 1 (ParserC-45RuleC-45Source-isNotReservedIdent u--id) (vector 0 (PreludeC-45Basics-uncurry (lambda (eta-0) (lambda (eta-1) (CoreC-45Name-mkNamespacedName eta-0 eta-1))) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) e-1))))))))) -(define ParserC-45RuleC-45Source-n--5651-3300-u--isEOI (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((16) 0)(else 1))))) -(define ParserC-45RuleC-45Source-n--7054-4625-u--afterSemi (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 0 )) ((1) (let ((e-0 (vector-ref sc0 1))) (vector 2 e-0))) ((2) (let ((e-1 (vector-ref sc0 1))) (vector 2 e-1))) (else (vector 3 )))))) -(define ParserC-45RuleC-45Source-n--7054-4626-u--afterDedent (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (ParserC-45RuleC-45Source-case--terminatorC-44afterDedent-4642 arg-0 arg-1 arg-3 (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-3 arg-0))) ((2) (let ((e-0 (vector-ref sc0 1))) (ParserC-45RuleC-45Source-case--terminatorC-44afterDedent-4673 arg-0 arg-1 e-0 arg-3 (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-3 arg-0)))) ((1) (let ((e-1 (vector-ref sc0 1))) (ParserC-45RuleC-45Source-case--terminatorC-44afterDedent-4708 arg-0 arg-1 e-1 arg-3 (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-3 arg-0)))) (else (vector 0 (vector 3 ))))))) -(define ParserC-45RuleC-45Source-unqualifiedName (lambda () (ParserC-45RuleC-45Source-identPart))) -(define ParserC-45RuleC-45Source-terminator (lambda (arg-0 arg-1) (vector 12 1 (PreludeC-45Basics-C-38C-38 (PreludeC-45Basics-C-124C-124 0 (lambda () 1)) (lambda () (PreludeC-45Basics-C-38C-38 (PreludeC-45Basics-C-124C-124 1 (lambda () 1)) (lambda () 1)))) (vector 11 1 1 (ParserC-45RuleC-45Source-eoi) (vector 0 (vector 3 ))) (lambda () (vector 12 (PreludeC-45Basics-C-124C-124 0 (lambda () 1)) (PreludeC-45Basics-C-38C-38 (PreludeC-45Basics-C-124C-124 1 (lambda () 1)) (lambda () 1)) (vector 10 1 (ParserC-45RuleC-45Source-symbol ";") (lambda () (vector 0 (ParserC-45RuleC-45Source-n--7054-4625-u--afterSemi arg-1 arg-0 arg-0)))) (lambda () (vector 12 (PreludeC-45Basics-C-124C-124 1 (lambda () 1)) 1 (vector 9 1 1 (ParserC-45RuleC-45Common-column (vector "Parser.Lexer.Source.Token" )) (lambda (u--col) (ParserC-45RuleC-45Source-n--7054-4626-u--afterDedent arg-1 arg-0 arg-0 u--col))) (lambda () (vector 0 (vector 3 )))))))))) -(define ParserC-45RuleC-45Source-symbol (lambda (arg-0) (vector 1 (PreludeC-45TypesC-45String-C-43C-43 "Expected '" (PreludeC-45TypesC-45String-C-43C-43 arg-0 "'")) (lambda (u--x) (let ((sc0 u--x)) (case (vector-ref sc0 0) ((12) (let ((e-0 (vector-ref sc0 1))) (let ((x-0 (vector 12 e-0))) (ParserC-45RuleC-45Source-case--caseC-32blockC-32inC-32symbol-3614 arg-0 e-0 x-0 (PreludeC-45EqOrd-u--C-61C-61_Eq_String e-0 arg-0)))))(else (vector 0 )))))))) -(define ParserC-45RuleC-45Source-strLitLines (lambda () (vector 1 "Expected string literal" (lambda (u--x) (let ((sc0 u--x)) (case (vector-ref sc0 0) ((7) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (DataC-45List1-u--traverse_Traversable_List1 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (PreludeC-45Types-u--map_Functor_Maybe u--func arg-143))))) (lambda (u--a) (lambda (arg-577) (PreludeC-45Types-u--pure_Applicative_Maybe arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (PreludeC-45Types-u--C-60C-42C-62_Applicative_Maybe arg-578 arg-580)))))) (lambda (eta-0) (ParserC-45Support-escape e-0 (PreludeC-45Types-fastPack eta-0))) (LibrariesC-45DataC-45ListC-45Extra-splitAfter (lambda (eta-0) (PreludeC-45Types-isNL eta-0)) (PreludeC-45Types-fastUnpack e-1))))))(else (vector 0 )))))))) -(define ParserC-45RuleC-45Source-strLit (lambda () (vector 1 "Expected string literal" (lambda (u--x) (let ((sc0 u--x)) (case (vector-ref sc0 0) ((7) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (ParserC-45Support-escape e-0 e-1))))(else (vector 0 )))))))) -(define ParserC-45RuleC-45Source-strEnd (lambda () (vector 1 "Expected string end" (lambda (u--x) (let ((sc0 u--x)) (case (vector-ref sc0 0) ((4) (vector 1 (vector 0 )))(else (vector 0 )))))))) -(define ParserC-45RuleC-45Source-strBegin (lambda () (vector 1 "Expected string begin" (lambda (u--x) (let ((sc0 u--x)) (case (vector-ref sc0 0) ((3) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 e-0)) (cond ((equal? sc1 1) (vector 1 (vector 0 )))(else (vector 0 ))))))(else (vector 0 )))))))) -(define ParserC-45RuleC-45Source-simpleStr (lambda () (vector 9 (PreludeC-45Basics-C-124C-124 0 (lambda () 1)) 0 (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 (PreludeC-45Basics-C-124C-124 0 (lambda () 1)) (lambda (eta-0) (lambda (eta-1) eta-0)) (vector 9 0 1 (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 0 (lambda (eta-0) (lambda (eta-1) eta-1)) (vector 9 0 1 (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 0 (lambda (eta-0) (lambda (eta-1) eta-1)) (ParserC-45RuleC-45Source-strBegin)) (lambda (u--f) (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 1 u--f (vector 6 ))))) (lambda (u--f) (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 1 u--f (LibrariesC-45TextC-45Parser-option 0 "" (ParserC-45RuleC-45Source-strLit)))))) (lambda (u--f) (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 0 u--f (ParserC-45RuleC-45Source-strEnd)))))) -(define ParserC-45RuleC-45Source-reservedNames (lambda () (cons "Type" (cons "Int" (cons "Int8" (cons "Int16" (cons "Int32" (cons "Int64" (cons "Integer" (cons "Bits8" (cons "Bits16" (cons "Bits32" (cons "Bits64" (cons "String" (cons "Char" (cons "Double" (cons "Lazy" (cons "Inf" (cons "Force" (cons "Delay" '())))))))))))))))))))) -(define ParserC-45RuleC-45Source-pragma (lambda (arg-0) (vector 1 (PreludeC-45TypesC-45String-C-43C-43 "Expected pragma " arg-0) (lambda (u--x) (let ((sc0 u--x)) (case (vector-ref sc0 0) ((18) (let ((e-0 (vector-ref sc0 1))) (let ((x-0 (vector 18 e-0))) (ParserC-45RuleC-45Source-case--caseC-32blockC-32inC-32pragma-3743 arg-0 e-0 x-0 (PreludeC-45EqOrd-u--C-61C-61_Eq_String e-0 arg-0)))))(else (vector 0 )))))))) -(define ParserC-45RuleC-45Source-postfixProj (lambda () (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 0 eta-2 eta-3))))) (lambda (eta-0) (vector 5 eta-0)) (ParserC-45RuleC-45Source-aDotIdent)))) -(define ParserC-45RuleC-45Source-operator (lambda () (vector 1 "Expected operator" (lambda (u--x) (let ((sc0 u--x)) (case (vector-ref sc0 0) ((12) (let ((e-0 (vector-ref sc0 1))) (let ((x-0 (vector 12 e-0))) (ParserC-45RuleC-45Source-case--caseC-32blockC-32inC-32operator-3780 e-0 x-0 (PreludeC-45Types-elem (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_String arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_String arg-4 arg-5)))) e-0 (ParserC-45LexerC-45Source-reservedSymbols))))))(else (vector 0 )))))))) -(define ParserC-45RuleC-45Source-opNonNS (lambda () (vector 9 (PreludeC-45Basics-C-124C-124 0 (lambda () 0)) 0 (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 (PreludeC-45Basics-C-124C-124 0 (lambda () 0)) (lambda (eta-0) (lambda (eta-1) eta-0)) (vector 9 0 0 (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 0 (lambda (eta-0) (lambda (eta-1) eta-1)) (ParserC-45RuleC-45Source-symbol "(")) (lambda (u--f) (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 0 u--f (vector 12 0 0 (ParserC-45RuleC-45Source-operator) (lambda () (ParserC-45RuleC-45Source-postfixProj))))))) (lambda (u--f) (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 0 u--f (ParserC-45RuleC-45Source-symbol ")")))))) -(define ParserC-45RuleC-45Source-onOffLit (lambda () (vector 1 "Expected on or off" (lambda (u--x) (let ((sc0 u--x)) (case (vector-ref sc0 0) ((9) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 e-0)) (cond ((equal? sc1 "on") (vector 1 0)) ((equal? sc1 "off") (vector 1 1))(else (vector 0 ))))))(else (vector 0 )))))))) -(define ParserC-45RuleC-45Source-nonEmptyBlockAfter (lambda (arg-1 arg-2) (vector 12 (PreludeC-45Basics-C-124C-124 0 (lambda () 0)) (PreludeC-45Basics-C-124C-124 1 (lambda () 0)) (vector 10 0 (ParserC-45RuleC-45Source-symbol "{") (lambda () (vector 11 1 0 (vector 6 ) (vector 8 0 (ParserC-45RuleC-45Source-blockEntry (vector 0 ) arg-2) (lambda () (lambda (u--res) (vector 9 1 0 (ParserC-45RuleC-45Source-blockEntries (Builtin-snd u--res) arg-2) (lambda (u--ps) (vector 10 1 (ParserC-45RuleC-45Source-symbol "}") (lambda () (vector 0 (cons (Builtin-fst u--res) u--ps)))))))))))) (lambda () (vector 9 1 0 (ParserC-45RuleC-45Common-column (vector "Parser.Lexer.Source.Token" )) (lambda (u--col) (ParserC-45RuleC-45Source-case--nonEmptyBlockAfter-5459 arg-2 arg-1 u--col (PreludeC-45EqOrd-u--C-60C-61_Ord_Int u--col arg-1)))))))) -(define ParserC-45RuleC-45Source-nonEmptyBlock (lambda (arg-1) (vector 12 (PreludeC-45Basics-C-124C-124 0 (lambda () 0)) (PreludeC-45Basics-C-124C-124 1 (lambda () 0)) (vector 10 0 (ParserC-45RuleC-45Source-symbol "{") (lambda () (vector 11 1 0 (vector 6 ) (vector 8 0 (ParserC-45RuleC-45Source-blockEntry (vector 0 ) arg-1) (lambda () (lambda (u--res) (vector 9 1 0 (ParserC-45RuleC-45Source-blockEntries (Builtin-snd u--res) arg-1) (lambda (u--ps) (vector 10 1 (ParserC-45RuleC-45Source-symbol "}") (lambda () (vector 0 (cons (Builtin-fst u--res) u--ps)))))))))))) (lambda () (vector 9 1 0 (ParserC-45RuleC-45Common-column (vector "Parser.Lexer.Source.Token" )) (lambda (u--col) (vector 8 1 (ParserC-45RuleC-45Source-blockEntry (vector 1 u--col) arg-1) (lambda () (lambda (u--res) (vector 9 1 1 (ParserC-45RuleC-45Source-blockEntries (Builtin-snd u--res) arg-1) (lambda (u--ps) (vector 0 (cons (Builtin-fst u--res) u--ps))))))))))))) -(define ParserC-45RuleC-45Source-namespacedIdent (lambda () (vector 1 "Expected namespaced name" (lambda (u--x) (let ((sc0 u--x)) (case (vector-ref sc0 0) ((10) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (vector 1 (cons (vector 1 e-0) e-1))))) ((9) (let ((e-2 (vector-ref sc0 1))) (vector 1 (cons (vector 0 ) e-2))))(else (vector 0 )))))))) -(define ParserC-45RuleC-45Source-namespaceId (lambda () (vector 8 1 (vector 13 (ParserC-45RuleC-45Source-namespacedIdent)) (lambda () (lambda (u--nsid) (vector 11 1 1 (ParserC-45RuleC-45Source-isCapitalisedIdent (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (LibrariesC-45TextC-45Bounded-u--map_Functor_WithBounds eta-2 eta-3))))) (lambda (eta-0) (Builtin-snd eta-0)) u--nsid)) (vector 0 (PreludeC-45Basics-uncurry (lambda (eta-0) (lambda (eta-1) (CoreC-45NameC-45Namespace-mkNestedNamespace eta-0 eta-1))) (let ((sc0 u--nsid)) (let ((e-1 (vector-ref sc0 1))) e-1)))))))))) -(define ParserC-45RuleC-45Source-nameWithCapital (lambda (arg-0) (vector 12 0 0 (ParserC-45RuleC-45Source-opNonNS) (lambda () (vector 8 1 (vector 13 (ParserC-45RuleC-45Source-namespacedIdent)) (lambda () (lambda (u--nsx) (vector 12 0 1 (ParserC-45RuleC-45Source-n--6539-4130-u--opNS arg-0 u--nsx) (lambda () (ParserC-45RuleC-45Source-n--6539-4129-u--nameNS arg-0 u--nsx)))))))))) -(define ParserC-45RuleC-45Source-name (lambda () (ParserC-45RuleC-45Source-nameWithCapital 1))) -(define ParserC-45RuleC-45Source-mustContinue (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (ParserC-45RuleC-45Source-continueF (vector 4 (vector 0 ) 0 "Unexpected end of expression") arg-0)) (else (let ((e-2 (vector-ref sc0 1))) (ParserC-45RuleC-45Source-continueF (vector 4 (vector 0 ) 0 (PreludeC-45TypesC-45String-C-43C-43 "Expected '" (PreludeC-45TypesC-45String-C-43C-43 e-2 "'"))) arg-0))))))) -(define ParserC-45RuleC-45Source-multilineBegin (lambda () (vector 1 "Expected multiline string begin" (lambda (u--x) (let ((sc0 u--x)) (case (vector-ref sc0 0) ((3) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 e-0)) (cond ((equal? sc1 0) (vector 1 (vector 0 )))(else (vector 0 ))))))(else (vector 0 )))))))) -(define ParserC-45RuleC-45Source-moduleIdent (lambda () (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 0 eta-2 eta-3))))) (lambda (eta-0) (CoreC-45NameC-45Namespace-nsAsModuleIdent eta-0)) (ParserC-45RuleC-45Source-namespaceId)))) -(define ParserC-45RuleC-45Source-keyword (lambda (arg-0) (vector 1 (PreludeC-45TypesC-45String-C-43C-43 "Expected '" (PreludeC-45TypesC-45String-C-43C-43 arg-0 "'")) (lambda (u--x) (let ((sc0 u--x)) (case (vector-ref sc0 0) ((17) (let ((e-0 (vector-ref sc0 1))) (let ((x-0 (vector 17 e-0))) (ParserC-45RuleC-45Source-case--caseC-32blockC-32inC-32keyword-3659 arg-0 e-0 x-0 (PreludeC-45EqOrd-u--C-61C-61_Eq_String e-0 arg-0)))))(else (vector 0 )))))))) -(define ParserC-45RuleC-45Source-isTerminator (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((12) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 e-0)) (cond ((equal? sc1 ",") 0) ((equal? sc1 "]") 0) ((equal? sc1 ";") 0) ((equal? sc1 "}") 0) ((equal? sc1 ")") 0) ((equal? sc1 "|") 0) ((equal? sc1 "**") 0)(else 1))))) ((17) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (cond ((equal? sc1 "in") 0) ((equal? sc1 "then") 0) ((equal? sc1 "else") 0) ((equal? sc1 "where") 0)(else 1))))) ((16) 0)(else 1))))) -(define ParserC-45RuleC-45Source-isNotReservedIdent (lambda (arg-0) (ParserC-45RuleC-45Source-case--isNotReservedIdent-4077 arg-0 (PreludeC-45Types-elem (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_String arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_String arg-4 arg-5)))) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 1))) e-1)) (ParserC-45RuleC-45Source-reservedNames))))) -(define ParserC-45RuleC-45Source-isCapitalisedIdent (lambda (arg-0) (let ((u--val (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 1))) e-1)))) (let ((u--loc (let ((sc0 arg-0)) (let ((e-3 (vector-ref sc0 3))) e-3)))) (let ((u--err (vector 4 (vector 1 u--loc) 1 (PreludeC-45TypesC-45String-C-43C-43 "Expected a capitalised identifier, got: " u--val)))) (ParserC-45RuleC-45Source-case--isCapitalisedIdent-3852 arg-0 u--val u--loc u--err (DataC-45String-strM u--val))))))) -(define ParserC-45RuleC-45Source-interpEnd (lambda () (vector 1 "Expected string interp end" (lambda (u--x) (let ((sc0 u--x)) (case (vector-ref sc0 0) ((6) (vector 1 (vector 0 )))(else (vector 0 )))))))) -(define ParserC-45RuleC-45Source-interpBegin (lambda () (vector 1 "Expected string interp begin" (lambda (u--x) (let ((sc0 u--x)) (case (vector-ref sc0 0) ((5) (vector 1 (vector 0 )))(else (vector 0 )))))))) -(define ParserC-45RuleC-45Source-intLit (lambda () (vector 1 "Expected integer literal" (lambda (u--x) (let ((sc0 u--x)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (vector 1 e-0)))(else (vector 0 )))))))) -(define ParserC-45RuleC-45Source-init (lambda () 0)) -(define ParserC-45RuleC-45Source-identWithCapital (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (cond ((equal? sc0 0) (ParserC-45RuleC-45Source-isCapitalisedIdent arg-1)) (else (vector 0 (vector 0 ))))))) -(define ParserC-45RuleC-45Source-identPart (lambda () (vector 1 "Expected name" (lambda (u--x) (let ((sc0 u--x)) (case (vector-ref sc0 0) ((9) (let ((e-0 (vector-ref sc0 1))) (vector 1 e-0)))(else (vector 0 )))))))) -(define ParserC-45RuleC-45Source-holeName (lambda () (vector 1 "Expected hole name" (lambda (u--x) (let ((sc0 u--x)) (case (vector-ref sc0 0) ((8) (let ((e-0 (vector-ref sc0 1))) (vector 1 e-0)))(else (vector 0 )))))))) -(define ParserC-45RuleC-45Source-exactIdent (lambda (arg-0) (vector 1 (PreludeC-45TypesC-45String-C-43C-43 "Expected " arg-0) (lambda (u--x) (let ((sc0 u--x)) (case (vector-ref sc0 0) ((9) (let ((e-0 (vector-ref sc0 1))) (let ((x-0 (vector 9 e-0))) (ParserC-45RuleC-45Source-case--caseC-32blockC-32inC-32exactIdent-3701 arg-0 e-0 x-0 (PreludeC-45EqOrd-u--C-61C-61_Eq_String e-0 arg-0)))))(else (vector 0 )))))))) -(define ParserC-45RuleC-45Source-eoi (lambda () (PreludeC-45Interfaces-ignore (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 1 eta-2 eta-3))))) (vector 2 "Expected end of input" (lambda (eta-0) (ParserC-45RuleC-45Source-n--5651-3300-u--isEOI eta-0)))))) -(define ParserC-45RuleC-45Source-documentationC-39 (lambda () (vector 1 "Expected documentation comment" (lambda (u--x) (let ((sc0 u--x)) (case (vector-ref sc0 0) ((14) (let ((e-0 (vector-ref sc0 1))) (vector 1 e-0)))(else (vector 0 )))))))) -(define ParserC-45RuleC-45Source-documentation (lambda () (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 0 eta-2 eta-3))))) (lambda (eta-0) (LibrariesC-45DataC-45StringC-45Extra-unlines (DataC-45List1-forget eta-0))) (LibrariesC-45TextC-45Parser-some (ParserC-45RuleC-45Source-documentationC-39))))) -(define ParserC-45RuleC-45Source-dataConstructorName (lambda () (vector 12 0 0 (ParserC-45RuleC-45Source-opNonNS) (lambda () (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 0 eta-2 eta-3))))) (lambda (eta-0) (vector 1 eta-0)) (ParserC-45RuleC-45Source-capitalisedIdent)))))) -(define ParserC-45RuleC-45Source-continueF (lambda (arg-0 arg-1) (vector 12 1 (PreludeC-45Basics-C-38C-38 0 (lambda () 1)) (vector 11 1 1 (ParserC-45RuleC-45Source-eoi) arg-0) (lambda () (vector 12 0 1 (vector 10 1 (ParserC-45RuleC-45Source-keyword "where") (lambda () arg-0)) (lambda () (vector 9 1 1 (ParserC-45RuleC-45Common-column (vector "Parser.Lexer.Source.Token" )) (lambda (u--col) (ParserC-45RuleC-45Source-case--continueF-4333 arg-1 arg-0 u--col (PreludeC-45EqOrd-u--C-60C-61_Ord_Int u--col arg-1)))))))))) -(define ParserC-45RuleC-45Source-continue (lambda (ext-0) (ParserC-45RuleC-45Source-continueF (vector 4 (vector 0 ) 1 "Unexpected end of expression") ext-0))) -(define ParserC-45RuleC-45Source-constant (lambda () (vector 1 "Expected constant" (lambda (u--x) (let ((sc0 u--x)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((x-0 (vector 0 e-0))) (ParserC-45RuleC-45Source-case--caseC-32blockC-32inC-32constant-3326 e-0 x-0 (ParserC-45Support-getCharLit e-0))))) ((1) (let ((e-1 (vector-ref sc0 1))) (vector 1 (vector 12 e-1)))) ((2) (let ((e-2 (vector-ref sc0 1))) (vector 1 (vector 5 e-2)))) ((9) (let ((e-3 (vector-ref sc0 1))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45TT-isConstantType (vector 1 e-3)) (lambda (lcase-0) (let ((sc1 lcase-0)) (case (vector-ref sc1 0) ((27) (vector 0 ))(else (vector 1 lcase-0))))))))(else (vector 0 )))))))) -(define ParserC-45RuleC-45Source-checkValid (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (vector 0 (vector 0 ))) ((1) (let ((e-0 (vector-ref sc0 1))) (ParserC-45RuleC-45Source-case--checkValid-4432 e-0 arg-1 (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-1 e-0)))) ((2) (let ((e-1 (vector-ref sc0 1))) (ParserC-45RuleC-45Source-case--checkValid-4458 e-1 arg-1 (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-1 e-1)))) (else (vector 4 (vector 0 ) 1 "End of block")))))) -(define ParserC-45RuleC-45Source-capitalisedName (lambda () (ParserC-45RuleC-45Source-nameWithCapital 0))) -(define ParserC-45RuleC-45Source-capitalisedIdent (lambda () (vector 8 1 (vector 13 (ParserC-45RuleC-45Source-identPart)) (lambda () (lambda (u--id) (vector 11 1 1 (ParserC-45RuleC-45Source-isCapitalisedIdent u--id) (vector 11 1 1 (ParserC-45RuleC-45Source-isNotReservedIdent u--id) (vector 0 (let ((sc0 u--id)) (let ((e-1 (vector-ref sc0 1))) e-1)))))))))) -(define ParserC-45RuleC-45Source-blockWithOptHeaderAfter (lambda (arg-2 arg-3 arg-4) (vector 12 (PreludeC-45Basics-C-124C-124 0 (lambda () 0)) 1 (vector 10 0 (ParserC-45RuleC-45Source-symbol "{") (lambda () (vector 11 1 0 (vector 6 ) (vector 9 1 0 (LibrariesC-45TextC-45Parser-optional 0 (ParserC-45RuleC-45Source-blockEntry (vector 0 ) arg-3)) (lambda (u--hidt) (ParserC-45RuleC-45Source-n--7487-5067-u--restOfBlock arg-4 arg-3 arg-2 u--hidt)))))) (lambda () (vector 9 1 1 (ParserC-45RuleC-45Common-column (vector "Parser.Lexer.Source.Token" )) (lambda (u--col) (ParserC-45RuleC-45Source-case--blockWithOptHeaderAfter-5185 arg-4 arg-3 arg-2 u--col (PreludeC-45EqOrd-u--C-60C-61_Ord_Int u--col arg-2)))))))) -(define ParserC-45RuleC-45Source-blockEntry (lambda (arg-1 arg-2) (vector 9 1 0 (ParserC-45RuleC-45Common-column (vector "Parser.Lexer.Source.Token" )) (lambda (u--col) (vector 11 1 0 (ParserC-45RuleC-45Source-checkValid arg-1 u--col) (vector 8 1 (arg-2 u--col) (lambda () (lambda (u--p) (vector 9 1 1 (ParserC-45RuleC-45Source-terminator arg-1 u--col) (lambda (u--validC-39) (vector 0 (cons u--p u--validC-39)))))))))))) -(define ParserC-45RuleC-45Source-blockEntries (lambda (arg-1 arg-2) (vector 12 1 (PreludeC-45Basics-C-38C-38 0 (lambda () 1)) (vector 11 1 1 (ParserC-45RuleC-45Source-eoi) (vector 0 '())) (lambda () (vector 12 0 1 (vector 8 1 (ParserC-45RuleC-45Source-blockEntry arg-1 arg-2) (lambda () (lambda (u--res) (vector 9 1 1 (ParserC-45RuleC-45Source-blockEntries (Builtin-snd u--res) arg-2) (lambda (u--ts) (vector 0 (cons (Builtin-fst u--res) u--ts))))))) (lambda () (vector 0 '()))))))) -(define ParserC-45RuleC-45Source-blockAfter (lambda (arg-1 arg-2) (vector 12 (PreludeC-45Basics-C-124C-124 0 (lambda () 0)) 1 (vector 10 0 (ParserC-45RuleC-45Source-symbol "{") (lambda () (vector 11 1 0 (vector 6 ) (vector 9 1 0 (ParserC-45RuleC-45Source-blockEntries (vector 0 ) arg-2) (lambda (u--ps) (vector 10 1 (ParserC-45RuleC-45Source-symbol "}") (lambda () (vector 0 u--ps)))))))) (lambda () (vector 9 1 1 (ParserC-45RuleC-45Common-column (vector "Parser.Lexer.Source.Token" )) (lambda (u--col) (ParserC-45RuleC-45Source-case--blockAfter-5031 arg-2 arg-1 u--col (PreludeC-45EqOrd-u--C-60C-61_Ord_Int u--col arg-1)))))))) -(define ParserC-45RuleC-45Source-block (lambda (arg-1) (vector 12 (PreludeC-45Basics-C-124C-124 0 (lambda () 0)) (PreludeC-45Basics-C-124C-124 1 (lambda () 1)) (vector 10 0 (ParserC-45RuleC-45Source-symbol "{") (lambda () (vector 11 1 0 (vector 6 ) (vector 9 1 0 (ParserC-45RuleC-45Source-blockEntries (vector 0 ) arg-1) (lambda (u--ps) (vector 10 1 (ParserC-45RuleC-45Source-symbol "}") (lambda () (vector 0 u--ps)))))))) (lambda () (vector 9 1 1 (ParserC-45RuleC-45Common-column (vector "Parser.Lexer.Source.Token" )) (lambda (u--col) (ParserC-45RuleC-45Source-blockEntries (vector 1 u--col) arg-1))))))) -(define ParserC-45RuleC-45Source-atEndIndent (lambda (arg-0) (vector 12 1 1 (ParserC-45RuleC-45Source-eoi) (lambda () (vector 9 1 1 (ParserC-45RuleC-45Common-column (vector "Parser.Lexer.Source.Token" )) (lambda (u--col) (ParserC-45RuleC-45Source-case--atEndIndent-4604 arg-0 u--col (PreludeC-45EqOrd-u--C-60C-61_Ord_Int u--col arg-0)))))))) -(define ParserC-45RuleC-45Source-atEnd (lambda (arg-0) (vector 12 1 1 (ParserC-45RuleC-45Source-eoi) (lambda () (vector 12 1 1 (PreludeC-45Interfaces-ignore (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 1 eta-2 eta-3))))) (vector 2 "Expected end of block" (lambda (eta-0) (ParserC-45RuleC-45Source-isTerminator eta-0)))) (lambda () (vector 9 1 1 (ParserC-45RuleC-45Common-column (vector "Parser.Lexer.Source.Token" )) (lambda (u--col) (ParserC-45RuleC-45Source-case--atEnd-4565 arg-0 u--col (PreludeC-45EqOrd-u--C-60C-61_Ord_Int u--col arg-0)))))))))) -(define ParserC-45RuleC-45Source-aDotIdent (lambda () (vector 1 "Expected dot+identifier" (lambda (u--x) (let ((sc0 u--x)) (case (vector-ref sc0 0) ((11) (let ((e-0 (vector-ref sc0 1))) (vector 1 e-0)))(else (vector 0 )))))))) -(define LibrariesC-45DataC-45ListC-45Extra-case--diffBy-3209 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-3)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (let ((u--ysC-39 (PreludeC-45TypesC-45List-C-43C-43 e-2 e-7))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (LibrariesC-45DataC-45ListC-45Extra-diffBy arg-4 arg-2 u--ysC-39)) (else (cons arg-1 (LibrariesC-45DataC-45ListC-45Extra-diffBy arg-4 arg-2 u--ysC-39)))))))))))))) -(define LibrariesC-45DataC-45ListC-45Extra-case--caseC-32blockC-32inC-32findByC-39-3149 (lambda (arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-3)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (cons (cons arg-3 e-2) (cons e-6 e-7)))))))))) -(define LibrariesC-45DataC-45ListC-45Extra-case--findByC-39-3104 (lambda (arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (cons '() (cons (vector 1 arg-1) arg-2))) (else (LibrariesC-45DataC-45ListC-45Extra-case--caseC-32blockC-32inC-32findByC-39-3149 arg-2 arg-3 arg-1 (LibrariesC-45DataC-45ListC-45Extra-findByC-39 arg-3 arg-2))))))) -(define LibrariesC-45DataC-45ListC-45Extra-case--splitAfter-2979 (lambda (arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-3)) (if (null? sc1) (DataC-45List1-singleton e-2) (DataC-45List1-cons e-2 (LibrariesC-45DataC-45ListC-45Extra-splitAfter arg-2 e-3))))))))) -(define LibrariesC-45DataC-45ListC-45Extra-case--caseC-32blockC-32inC-32breakAfter-2941 (lambda (arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (cons (cons arg-3 e-2) e-3)))))) -(define LibrariesC-45DataC-45ListC-45Extra-case--breakAfter-2900 (lambda (arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (cons (cons arg-1 '()) arg-2)) (else (LibrariesC-45DataC-45ListC-45Extra-case--caseC-32blockC-32inC-32breakAfter-2941 arg-2 arg-3 arg-1 (LibrariesC-45DataC-45ListC-45Extra-breakAfter arg-3 arg-2))))))) -(define LibrariesC-45DataC-45ListC-45Extra-case--findBy-2830 (lambda (arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (LibrariesC-45DataC-45ListC-45Extra-findBy arg-4 arg-3)) (else (let ((e-2 (vector-ref sc0 1))) (PreludeC-45Types-u--pure_Applicative_Maybe e-2))))))) -(define LibrariesC-45DataC-45ListC-45Extra-splitAfter (lambda (arg-1 arg-2) (LibrariesC-45DataC-45ListC-45Extra-case--splitAfter-2979 arg-2 arg-1 (LibrariesC-45DataC-45ListC-45Extra-breakAfter arg-1 arg-2)))) -(define LibrariesC-45DataC-45ListC-45Extra-minimum (lambda (arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-1 (car sc0))) (let ((e-2 (cdr sc0))) (PreludeC-45Types-u--foldl_Foldable_List (lambda (eta-0) (lambda (eta-1) (let ((sc1 arg-1)) (let ((e-8 (vector-ref sc1 8))) ((e-8 eta-0) eta-1))))) e-1 e-2)))))) -(define LibrariesC-45DataC-45ListC-45Extra-findByC-39 (lambda (arg-1 arg-2) (let ((sc0 arg-2)) (if (null? sc0) (cons '() (cons (vector 0 ) '())) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (LibrariesC-45DataC-45ListC-45Extra-case--findByC-39-3104 e-2 e-3 arg-1 (arg-1 e-2)))))))) -(define LibrariesC-45DataC-45ListC-45Extra-findBy (lambda (arg-2 arg-3) (let ((sc0 arg-3)) (if (null? sc0) (vector 0 ) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (LibrariesC-45DataC-45ListC-45Extra-case--findBy-2830 e-2 e-3 arg-2 (arg-2 e-2)))))))) -(define LibrariesC-45DataC-45ListC-45Extra-elemAt (lambda (arg-1 arg-2) (let ((sc0 arg-1)) (if (null? sc0) (vector 0 ) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 arg-2)) (cond ((equal? sc1 0) (vector 1 e-2))(else (let ((e-4 (- arg-2 1))) (LibrariesC-45DataC-45ListC-45Extra-elemAt e-3 e-4))))))))))) -(define LibrariesC-45DataC-45ListC-45Extra-diffBy (lambda (arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (if (null? sc0) '() (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (LibrariesC-45DataC-45ListC-45Extra-case--diffBy-3209 e-2 e-3 arg-3 arg-1 (LibrariesC-45DataC-45ListC-45Extra-findByC-39 (arg-1 e-2) arg-3)))))))) -(define LibrariesC-45DataC-45ListC-45Extra-breakAfter (lambda (arg-1 arg-2) (let ((sc0 arg-2)) (if (null? sc0) (cons '() '()) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (LibrariesC-45DataC-45ListC-45Extra-case--breakAfter-2900 e-2 e-3 arg-1 (arg-1 e-2)))))))) -(define ParserC-45Support-case--caseC-32blockC-32inC-32getCharLit-1687 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 1 (integer->char 0))) (else (vector 0 )))))) -(define ParserC-45Support-case--getCharLit-1665 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 1 (string-ref arg-1 0))) (else (ParserC-45Support-case--caseC-32blockC-32inC-32getCharLit-1687 arg-0 arg-1 (PreludeC-45Types-u--C-61C-61_Eq_Nat (PreludeC-45TypesC-45String-length arg-1) (PreludeC-45Types-u--fromInteger_Num_Nat 0)))))))) -(define ParserC-45Support-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32escapeC-39-1537 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (vector 1 (cons e-1 '())))) (else (ParserC-45Support-escapeC-39 arg-2 arg-3)))))) -(define ParserC-45Support-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32escapeC-39-1451 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (ParserC-45Support-escapeC-39 arg-2 (cons arg-6 arg-7)) (lambda (bind-0) (vector 1 (cons e-1 bind-0)))))) (else (ParserC-45Support-escapeC-39 arg-2 arg-3)))))) -(define ParserC-45Support-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32escapeC-39-1390 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (ParserC-45Support-escapeC-39 arg-2 arg-7) (lambda (bind-0) (vector 1 (cons e-1 bind-0)))))) (else (ParserC-45Support-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32escapeC-39-1451 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (ParserC-45Support-getEsc (PreludeC-45Types-fastPack (cons arg-4 (cons arg-5 '())))))))))) -(define ParserC-45Support-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32escapeC-39-1352 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (if (null? sc1) (let ((sc2 e-3)) (if (null? sc2) (ParserC-45Support-escapeC-39 arg-2 e-3) (let ((e-6 (car sc2))) (let ((e-7 (cdr sc2))) (let ((sc3 e-7)) (if (null? sc3) (ParserC-45Support-escapeC-39 arg-2 e-3) (let ((e-9 (car sc3))) (let ((e-10 (cdr sc3))) (let ((sc4 e-10)) (if (null? sc4) (ParserC-45Support-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32escapeC-39-1537 arg-0 arg-1 arg-2 arg-3 e-6 e-9 (ParserC-45Support-getEsc (PreludeC-45Types-fastPack (cons e-6 (cons e-9 '()))))) (let ((e-12 (car sc4))) (let ((e-13 (cdr sc4))) (ParserC-45Support-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32escapeC-39-1390 arg-0 arg-1 arg-2 arg-3 e-6 e-9 e-12 e-13 (ParserC-45Support-getEsc (PreludeC-45Types-fastPack (cons e-6 (cons e-9 (cons e-12 '())))))))))))))))))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (ParserC-45Support-escapeC-39 arg-2 e-3) (lambda (bind-0) (vector 1 (cons (PreludeC-45Cast-u--cast_Cast_Int_Char (PreludeC-45Cast-u--cast_Cast_String_Int (PreludeC-45Types-fastPack e-2))) bind-0))))))))))) -(define ParserC-45Support-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32escapeC-39-1287 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (if (null? sc1) (ParserC-45Support-escapeC-39 arg-2 e-3) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (ParserC-45Support-n--7113-856-u--toOct arg-0 arg-1 arg-2 1 (DataC-45List-reverse e-2)) (lambda (bind-0) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (ParserC-45Support-escapeC-39 arg-2 e-3) (lambda (bind-1) (PreludeC-45Types-u--pure_Applicative_Maybe (cons (PreludeC-45Cast-u--cast_Cast_Int_Char bind-0) bind-1))))))))))))) -(define ParserC-45Support-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32escapeC-39-1219 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (if (null? sc1) (ParserC-45Support-escapeC-39 arg-2 e-3) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (ParserC-45Support-n--7113-855-u--toHex arg-0 arg-1 arg-2 1 (DataC-45List-reverse e-2)) (lambda (bind-0) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (ParserC-45Support-escapeC-39 arg-2 e-3) (lambda (bind-1) (PreludeC-45Types-u--pure_Applicative_Maybe (cons (PreludeC-45Cast-u--cast_Cast_Int_Char bind-0) bind-1))))))))))))) -(define ParserC-45Support-case--caseC-32blockC-32inC-32escapeC-39-956 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (if (null? sc0) (ParserC-45Support-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32escapeC-39-1352 arg-0 arg-1 arg-2 arg-3 (DataC-45List-span (lambda (eta-0) (PreludeC-45Types-isDigit eta-0)) arg-3)) (let ((e-1 (car sc0))) (let ((e-2 (cdr sc0))) (let ((sc1 e-1)) (cond ((equal? sc1 #\\) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (ParserC-45Support-escapeC-39 arg-2 e-2) (lambda (bind-0) (PreludeC-45Types-u--pure_Applicative_Maybe (cons #\\ bind-0))))) ((equal? sc1 (integer->char 10)) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (ParserC-45Support-escapeC-39 arg-2 e-2) (lambda (bind-0) (PreludeC-45Types-u--pure_Applicative_Maybe bind-0)))) ((equal? sc1 #\&) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (ParserC-45Support-escapeC-39 arg-2 e-2) (lambda (bind-0) (PreludeC-45Types-u--pure_Applicative_Maybe bind-0)))) ((equal? sc1 #\a) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (ParserC-45Support-escapeC-39 arg-2 e-2) (lambda (bind-0) (PreludeC-45Types-u--pure_Applicative_Maybe (cons (integer->char 7) bind-0))))) ((equal? sc1 #\b) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (ParserC-45Support-escapeC-39 arg-2 e-2) (lambda (bind-0) (PreludeC-45Types-u--pure_Applicative_Maybe (cons (integer->char 8) bind-0))))) ((equal? sc1 #\f) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (ParserC-45Support-escapeC-39 arg-2 e-2) (lambda (bind-0) (PreludeC-45Types-u--pure_Applicative_Maybe (cons (integer->char 12) bind-0))))) ((equal? sc1 #\n) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (ParserC-45Support-escapeC-39 arg-2 e-2) (lambda (bind-0) (PreludeC-45Types-u--pure_Applicative_Maybe (cons (integer->char 10) bind-0))))) ((equal? sc1 #\r) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (ParserC-45Support-escapeC-39 arg-2 e-2) (lambda (bind-0) (PreludeC-45Types-u--pure_Applicative_Maybe (cons (integer->char 13) bind-0))))) ((equal? sc1 #\t) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (ParserC-45Support-escapeC-39 arg-2 e-2) (lambda (bind-0) (PreludeC-45Types-u--pure_Applicative_Maybe (cons (integer->char 9) bind-0))))) ((equal? sc1 #\v) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (ParserC-45Support-escapeC-39 arg-2 e-2) (lambda (bind-0) (PreludeC-45Types-u--pure_Applicative_Maybe (cons (integer->char 11) bind-0))))) ((equal? sc1 #\') (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (ParserC-45Support-escapeC-39 arg-2 e-2) (lambda (bind-0) (PreludeC-45Types-u--pure_Applicative_Maybe (cons #\' bind-0))))) ((equal? sc1 #\") (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (ParserC-45Support-escapeC-39 arg-2 e-2) (lambda (bind-0) (PreludeC-45Types-u--pure_Applicative_Maybe (cons #\" bind-0))))) ((equal? sc1 #\x) (ParserC-45Support-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32escapeC-39-1219 arg-0 arg-1 arg-2 e-2 (DataC-45List-span (lambda (eta-0) (PreludeC-45Types-isHexDigit eta-0)) e-2))) ((equal? sc1 #\o) (ParserC-45Support-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32escapeC-39-1287 arg-0 arg-1 arg-2 e-2 (DataC-45List-span (lambda (eta-0) (PreludeC-45Types-isOctDigit eta-0)) e-2)))(else (ParserC-45Support-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32escapeC-39-1352 arg-0 arg-1 arg-2 arg-3 (DataC-45List-span (lambda (eta-0) (PreludeC-45Types-isDigit eta-0)) arg-3))))))))))) -(define ParserC-45Support-case--escapeC-39-939 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (ParserC-45Support-case--caseC-32blockC-32inC-32escapeC-39-956 arg-0 arg-1 arg-2 (DataC-45List-drop (PreludeC-45TypesC-45List-length arg-2) (cons arg-0 arg-1)))) (else (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (ParserC-45Support-escapeC-39 arg-2 arg-1) (lambda (bind-0) (vector 1 (cons arg-0 bind-0))))))))) -(define ParserC-45Support-n--7113-856-u--toOct (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (if (null? sc0) (vector 1 0) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (ParserC-45Support-oct (PreludeC-45Types-toLower e-2)) (lambda (bind-0) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (ParserC-45Support-n--7113-856-u--toOct arg-0 arg-1 arg-2 (bs* arg-3 8 63) e-3) (lambda (bind-1) (PreludeC-45Types-u--pure_Applicative_Maybe (bs+ (bs* bind-0 arg-3 63) bind-1 63)))))))))))) -(define ParserC-45Support-n--7113-855-u--toHex (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (if (null? sc0) (vector 1 0) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (ParserC-45Support-hex (PreludeC-45Types-toLower e-2)) (lambda (bind-0) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (ParserC-45Support-n--7113-855-u--toHex arg-0 arg-1 arg-2 (bs* arg-3 16 63) e-3) (lambda (bind-1) (PreludeC-45Types-u--pure_Applicative_Maybe (bs+ (bs* bind-0 arg-3 63) bind-1 63)))))))))))) -(define ParserC-45Support-oct (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 #\0) (vector 1 0)) ((equal? sc0 #\1) (vector 1 1)) ((equal? sc0 #\2) (vector 1 2)) ((equal? sc0 #\3) (vector 1 3)) ((equal? sc0 #\4) (vector 1 4)) ((equal? sc0 #\5) (vector 1 5)) ((equal? sc0 #\6) (vector 1 6)) ((equal? sc0 #\7) (vector 1 7))(else (vector 0 )))))) -(define ParserC-45Support-hex (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 #\0) (vector 1 0)) ((equal? sc0 #\1) (vector 1 1)) ((equal? sc0 #\2) (vector 1 2)) ((equal? sc0 #\3) (vector 1 3)) ((equal? sc0 #\4) (vector 1 4)) ((equal? sc0 #\5) (vector 1 5)) ((equal? sc0 #\6) (vector 1 6)) ((equal? sc0 #\7) (vector 1 7)) ((equal? sc0 #\8) (vector 1 8)) ((equal? sc0 #\9) (vector 1 9)) ((equal? sc0 #\a) (vector 1 10)) ((equal? sc0 #\b) (vector 1 11)) ((equal? sc0 #\c) (vector 1 12)) ((equal? sc0 #\d) (vector 1 13)) ((equal? sc0 #\e) (vector 1 14)) ((equal? sc0 #\f) (vector 1 15))(else (vector 0 )))))) -(define ParserC-45Support-getEsc (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 "NUL") (vector 1 (integer->char 0))) ((equal? sc0 "SOH") (vector 1 (integer->char 1))) ((equal? sc0 "STX") (vector 1 (integer->char 2))) ((equal? sc0 "ETX") (vector 1 (integer->char 3))) ((equal? sc0 "EOT") (vector 1 (integer->char 4))) ((equal? sc0 "ENQ") (vector 1 (integer->char 5))) ((equal? sc0 "ACK") (vector 1 (integer->char 6))) ((equal? sc0 "BEL") (vector 1 (integer->char 7))) ((equal? sc0 "BS") (vector 1 (integer->char 8))) ((equal? sc0 "HT") (vector 1 (integer->char 9))) ((equal? sc0 "LF") (vector 1 (integer->char 10))) ((equal? sc0 "VT") (vector 1 (integer->char 11))) ((equal? sc0 "FF") (vector 1 (integer->char 12))) ((equal? sc0 "CR") (vector 1 (integer->char 13))) ((equal? sc0 "SO") (vector 1 (integer->char 14))) ((equal? sc0 "SI") (vector 1 (integer->char 15))) ((equal? sc0 "DLE") (vector 1 (integer->char 16))) ((equal? sc0 "DC1") (vector 1 (integer->char 17))) ((equal? sc0 "DC2") (vector 1 (integer->char 18))) ((equal? sc0 "DC3") (vector 1 (integer->char 19))) ((equal? sc0 "DC4") (vector 1 (integer->char 20))) ((equal? sc0 "NAK") (vector 1 (integer->char 21))) ((equal? sc0 "SYN") (vector 1 (integer->char 22))) ((equal? sc0 "ETB") (vector 1 (integer->char 23))) ((equal? sc0 "CAN") (vector 1 (integer->char 24))) ((equal? sc0 "EM") (vector 1 (integer->char 25))) ((equal? sc0 "SUB") (vector 1 (integer->char 26))) ((equal? sc0 "ESC") (vector 1 (integer->char 27))) ((equal? sc0 "FS") (vector 1 (integer->char 28))) ((equal? sc0 "GS") (vector 1 (integer->char 29))) ((equal? sc0 "RS") (vector 1 (integer->char 30))) ((equal? sc0 "US") (vector 1 (integer->char 31))) ((equal? sc0 "SP") (vector 1 #\ )) ((equal? sc0 "DEL") (vector 1 (integer->char 127)))(else (vector 0 )))))) -(define ParserC-45Support-getCharLit (lambda (arg-0) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (ParserC-45Support-escape 0 arg-0) (lambda (u--e) (ParserC-45Support-case--getCharLit-1665 arg-0 u--e (PreludeC-45Types-u--C-61C-61_Eq_Nat (PreludeC-45TypesC-45String-length u--e) (PreludeC-45Types-u--fromInteger_Num_Nat 1))))))) -(define ParserC-45Support-fromParsingError (lambda (arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-1 (car sc0))) (let ((e-2 (cdr sc0))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (vector 53 (vector 0 arg-2 (cons 0 0) (cons 0 0)) (LibrariesC-45DataC-45StringC-45Extra-C-43C-62 e-1 #\.))) (else (let ((e-5 (vector-ref sc1 1))) (let ((u--l (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)))) (let ((u--c (let ((sc2 e-5)) (let ((e-6 (vector-ref sc2 2))) e-6)))) (vector 53 (vector 0 arg-2 (cons u--l u--c) (cons u--l (bs+ u--c 1 63))) (LibrariesC-45DataC-45StringC-45Extra-C-43C-62 e-1 #\.))))))))))))) -(define ParserC-45Support-fromLitError (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (vector 51 (vector 0 arg-0 (cons e-0 e-1) (cons e-0 (bs+ e-1 1 63))))))))) -(define ParserC-45Support-fromLexError (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((2) (let ((e-12 (vector-ref sc1 1))) (let ((e-13 (vector-ref sc1 2))) (let ((sc2 e-3)) (if (null? sc2) (let ((sc3 e-3)) (let ((e-6 (car sc3))) (let ((e-7 (cdr sc3))) (let ((sc4 e-7)) (let ((e-10 (car sc4))) (vector 52 (vector 0 arg-0 (cons e-6 e-10) (cons e-6 (bs+ e-10 1 63))) "Can't recognise token.")))))) (let ((e-17 (cdr sc2))) (let ((sc3 e-17)) (if (null? sc3) (let ((sc4 e-3)) (let ((e-6 (car sc4))) (let ((e-7 (cdr sc4))) (let ((sc5 e-7)) (let ((e-10 (car sc5))) (vector 52 (vector 0 arg-0 (cons e-6 e-10) (cons e-6 (bs+ e-10 1 63))) "Can't recognise token.")))))) (vector 52 (vector 0 arg-0 e-12 e-13) "Bracket is not properly closed.")))))))))(else (let ((sc1 e-3)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (let ((sc2 e-7)) (let ((e-10 (car sc2))) (vector 52 (vector 0 arg-0 (cons e-6 e-10) (cons e-6 (bs+ e-10 1 63))) "Can't recognise token.")))))))))))))) -(define ParserC-45Support-escapeC-39 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (if (null? sc0) (PreludeC-45Types-u--pure_Applicative_Maybe '()) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (ParserC-45Support-case--escapeC-39-939 e-2 e-3 arg-0 (DataC-45List-isPrefixOf (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Char arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Char arg-4 arg-5)))) arg-0 (cons e-2 e-3))))))))) -(define ParserC-45Support-escape (lambda (arg-0 arg-1) (let ((u--escapeChars (cons #\\ (DataC-45List-replicate arg-0 #\#)))) (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (PreludeC-45Types-u--map_Functor_Maybe eta-2 eta-3))))) (lambda (eta-0) (PreludeC-45Types-fastPack eta-0)) (ParserC-45Support-escapeC-39 u--escapeChars (PreludeC-45Types-fastUnpack arg-1)))))) -(define LibrariesC-45TextC-45Parser-case--match-456 (lambda (arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (vector 1 (let ((sc1 (Builtin-snd arg-1))) (let ((e-2 (cdr sc1))) ((e-2 arg-2) (let ((sc2 arg-3)) (let ((e-3 (cdr sc2))) e-3))))))) (else (vector 0 )))))) -(define LibrariesC-45TextC-45Parser-some (lambda (arg-2) (vector 8 1 arg-2 (lambda () (lambda (bind-0) (vector 9 1 1 (LibrariesC-45TextC-45Parser-many arg-2) (lambda (bind-1) (vector 0 (cons bind-0 bind-1))))))))) -(define LibrariesC-45TextC-45Parser-sepBy1 (lambda (arg-3 arg-4 arg-5) (vector 9 (PreludeC-45Basics-C-124C-124 1 (lambda () arg-3)) 1 (vector 9 1 arg-3 (vector 0 (lambda (eta-0) (lambda (eta-1) (cons eta-0 eta-1)))) (lambda (u--f) (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 arg-3 u--f arg-5))) (lambda (u--f) (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 1 u--f (LibrariesC-45TextC-45Parser-many (vector 9 0 arg-3 (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 0 (lambda (eta-0) (lambda (eta-1) eta-1)) arg-4) (lambda (f-0) (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 arg-3 f-0 arg-5))))))))) -(define LibrariesC-45TextC-45Parser-sepBy (lambda (arg-3 arg-4 arg-5) (LibrariesC-45TextC-45Parser-option arg-3 '() (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 arg-3 eta-2 eta-3))))) (lambda (eta-0) (DataC-45List1-forget eta-0)) (LibrariesC-45TextC-45Parser-sepBy1 arg-3 arg-4 arg-5))))) -(define LibrariesC-45TextC-45Parser-optional (lambda (arg-2 arg-3) (LibrariesC-45TextC-45Parser-option arg-2 (vector 0 ) (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 arg-2 (lambda (eta-0) (vector 1 eta-0)) arg-3)))) -(define LibrariesC-45TextC-45Parser-option (lambda (arg-2 arg-3 arg-4) (let ((sc0 arg-2)) (cond ((equal? sc0 1) (vector 12 1 1 arg-4 (lambda () (vector 0 arg-3)))) (else (vector 12 0 1 arg-4 (lambda () (vector 0 arg-3)))))))) -(define LibrariesC-45TextC-45Parser-match (lambda (arg-1 arg-2) (vector 1 "Unrecognised input" (lambda (u--t) (LibrariesC-45TextC-45Parser-case--match-456 arg-1 arg-2 u--t (let ((sc0 (Builtin-fst arg-1))) (let ((e-1 (car sc0))) ((e-1 (let ((sc1 u--t)) (let ((e-4 (car sc1))) e-4))) arg-2)))))))) -(define LibrariesC-45TextC-45Parser-many (lambda (arg-2) (LibrariesC-45TextC-45Parser-option 0 '() (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 0 eta-2 eta-3))))) (lambda (eta-0) (DataC-45List1-forget eta-0)) (LibrariesC-45TextC-45Parser-some arg-2))))) -(define LibrariesC-45TextC-45Parser-count1 (lambda (arg-2 arg-3) (vector 8 (PreludeC-45Basics-C-124C-124 (DataC-45Nat-isSucc (let ((sc0 arg-2)) (let ((e-0 (car sc0))) e-0))) (lambda () 1)) arg-3 (lambda () (lambda (u--x) (vector 9 (DataC-45Nat-isSucc (let ((sc0 arg-2)) (let ((e-0 (car sc0))) e-0))) 1 (LibrariesC-45TextC-45Parser-count arg-2 arg-3) (lambda (u--xs) (vector 0 (cons u--x u--xs))))))))) -(define LibrariesC-45TextC-45Parser-count (lambda (arg-2 arg-3) (let ((sc0 arg-2)) (let ((e-0 (car sc0))) (let ((e-1 (cdr sc0))) (let ((sc1 e-0)) (cond ((equal? sc1 0) (let ((sc2 e-1)) (case (vector-ref sc2 0) ((0) (LibrariesC-45TextC-45Parser-many arg-3)) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (cond ((equal? sc3 0) (vector 0 '()))(else (let ((e-6 (- e-5 1))) (LibrariesC-45TextC-45Parser-option 0 '() (LibrariesC-45TextC-45Parser-count1 (LibrariesC-45TextC-45Quantity-atMost e-6) arg-3)))))))))))(else (let ((e-2 (- e-0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (LibrariesC-45TextC-45Parser-count1 (LibrariesC-45TextC-45Quantity-atLeast e-2) arg-3)) (else (let ((e-9 (vector-ref sc1 1))) (let ((sc2 e-9)) (cond ((equal? sc2 0) (vector 4 (vector 0 ) 1 "Quantity out of order"))(else (let ((e-10 (- e-9 1))) (LibrariesC-45TextC-45Parser-count1 (LibrariesC-45TextC-45Quantity-between (+ 1 e-2) e-10) arg-3)))))))))))))))))) -(define LibrariesC-45TextC-45Parser-choiceMap (lambda (arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-6)) (let ((e-1 (vector-ref sc0 1))) (((((e-1 'erased) 'erased) (lambda (u--x) (lambda (u--acc) (vector 12 arg-4 arg-4 (arg-5 u--x) (lambda () u--acc))))) (vector 4 (vector 0 ) 1 "No more options")) arg-7))))) -(define LibrariesC-45TextC-45Parser-choice (lambda (arg-3 arg-4 ext-0) (LibrariesC-45TextC-45Parser-choiceMap arg-4 (lambda (eta-0) eta-0) arg-3 ext-0))) -(define LibrariesC-45TextC-45ParserC-45Core-case--parse-3224 (lambda (arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (vector 0 (cons e-4 e-5))))) (else (let ((e-9 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 3))) (vector 1 (cons (let ((sc1 e-9)) (let ((e-1 (vector-ref sc1 1))) e-1)) e-10))))))))) -(define LibrariesC-45TextC-45ParserC-45Core-case--doParse-3132 (lambda (arg-3 arg-4 arg-5 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (vector 0 e-2 e-3 e-4 e-5)))))) (else (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 3))) (vector 1 e-8 (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (LibrariesC-45TextC-45Bounded-u--map_Functor_WithBounds eta-2 eta-3))))) (lambda (eta-0) e-9) e-9) e-10))))))))) -(define LibrariesC-45TextC-45ParserC-45Core-case--doParse-3066 (lambda (arg-2 arg-3 arg-4 arg-5 arg-6 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (vector 0 e-2 e-3 e-4 e-5)))))) (else (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 3))) (LibrariesC-45TextC-45ParserC-45Core-mergeWith e-9 (LibrariesC-45TextC-45ParserC-45Core-doParse e-8 (arg-3) e-10)))))))))) -(define LibrariesC-45TextC-45ParserC-45Core-case--doParse-2996 (lambda (arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (vector 0 e-2 e-3 e-4 e-5)))))) (else (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 3))) (LibrariesC-45TextC-45ParserC-45Core-mergeWith e-9 (LibrariesC-45TextC-45ParserC-45Core-doParse e-8 arg-4 e-10)))))))))) -(define LibrariesC-45TextC-45ParserC-45Core-case--doParse-2917 (lambda (arg-3 arg-4 arg-5 arg-6 arg-7 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (vector 0 e-2 e-3 e-4 e-5)))))) (else (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 3))) (LibrariesC-45TextC-45ParserC-45Core-mergeWith e-9 (LibrariesC-45TextC-45ParserC-45Core-doParse e-8 ((arg-4) (let ((sc1 e-9)) (let ((e-1 (vector-ref sc1 1))) e-1))) e-10)))))))))) -(define LibrariesC-45TextC-45ParserC-45Core-case--doParse-2831 (lambda (arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (vector 0 e-2 e-3 e-4 e-5)))))) (else (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 3))) (LibrariesC-45TextC-45ParserC-45Core-mergeWith e-9 (LibrariesC-45TextC-45ParserC-45Core-doParse e-8 (arg-5 (let ((sc1 e-9)) (let ((e-1 (vector-ref sc1 1))) e-1))) e-10)))))))))) -(define LibrariesC-45TextC-45ParserC-45Core-case--caseC-32blockC-32inC-32doParse-2720 (lambda (arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (cond ((equal? sc0 0) (vector 0 arg-7 arg-11 arg-10 arg-9)) (else (LibrariesC-45TextC-45ParserC-45Core-doParse 1 (arg-3) arg-6)))))) -(define LibrariesC-45TextC-45ParserC-45Core-case--doParse-2696 (lambda (arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (LibrariesC-45TextC-45ParserC-45Core-case--caseC-32blockC-32inC-32doParse-2720 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-5 e-4 e-3 e-2 (PreludeC-45Basics-C-124C-124 e-2 (lambda () e-3)))))))) (else (let ((e-9 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 3))) (vector 1 arg-7 e-9 e-10)))))))) -(define LibrariesC-45TextC-45ParserC-45Core-case--doParse-2629 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-8) (let ((sc0 arg-8)) (cond ((equal? sc0 0) (vector 1 arg-5 (LibrariesC-45TextC-45Bounded-removeIrrelevance arg-3) (cons arg-3 arg-4))) (else (vector 0 arg-5 1 arg-2 (vector 1 (let ((sc1 arg-3)) (let ((e-3 (vector-ref sc1 3))) e-3))))))))) -(define LibrariesC-45TextC-45ParserC-45Core-case--doParse-2509 (lambda (arg-2 arg-3 arg-4 arg-5 arg-6 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (vector 0 arg-6 1 arg-3 (vector 1 (let ((sc1 arg-4)) (let ((e-3 (vector-ref sc1 3))) e-3))))) (else (let ((e-2 (vector-ref sc0 1))) (vector 1 arg-6 (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (LibrariesC-45TextC-45Bounded-u--map_Functor_WithBounds eta-2 eta-3))))) (lambda (eta-0) e-2) arg-4) arg-5))))))) -(define LibrariesC-45TextC-45ParserC-45Core-case--doParse-2441 (lambda (arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (vector 0 e-2 0 e-4 e-5)))))(else arg-6))))) -(define LibrariesC-45TextC-45ParserC-45Core-case--doParse-2380 (lambda (arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (vector 0 e-2 1 e-4 e-5)))))(else arg-6))))) -(define LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 (lambda (arg-3 arg-4 arg-5) (let ((sc0 arg-3)) (cond ((equal? sc0 1) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((0) (let ((e-54 (vector-ref sc1 1))) (vector 0 (arg-4 e-54))))(else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((4) (let ((e-41 (vector-ref sc1 1))) (let ((e-42 (vector-ref sc1 2))) (let ((e-43 (vector-ref sc1 3))) (vector 4 e-41 e-42 e-43))))) ((5) (let ((e-47 (vector-ref sc1 1))) (vector 5 (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 arg-3 arg-4 e-47)))) ((7) (let ((e-51 (vector-ref sc1 1))) (vector 7 (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 arg-3 arg-4 e-51))))(else (let ((sc1 arg-3)) (cond ((equal? sc1 0) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((1) (let ((e-36 (vector-ref sc2 1))) (let ((e-37 (vector-ref sc2 2))) (vector 1 e-36 (lambda (eta-0) (PreludeC-45Types-u--map_Functor_Maybe arg-4 (e-37 eta-0)))))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((12) (let ((e-30 (vector-ref sc2 1))) (let ((e-31 (vector-ref sc2 2))) (let ((e-32 (vector-ref sc2 3))) (let ((e-33 (vector-ref sc2 4))) (vector 12 e-30 e-31 (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 e-30 arg-4 e-32) (lambda () (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 e-31 arg-4 (e-33)))))))))(else (let ((sc2 arg-3)) (cond ((equal? sc2 0) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((8) (let ((e-25 (vector-ref sc3 1))) (let ((e-26 (vector-ref sc3 2))) (let ((e-27 (vector-ref sc3 3))) (vector 8 e-25 e-26 (lambda () (lambda (u--val) (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 e-25 arg-4 ((e-27) u--val)))))))))(else (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((9) (let ((e-18 (vector-ref sc3 1))) (let ((e-19 (vector-ref sc3 2))) (let ((e-20 (vector-ref sc3 3))) (let ((e-21 (vector-ref sc3 4))) (vector 9 e-18 e-19 e-20 (lambda (u--val) (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 e-19 arg-4 (e-21 u--val)))))))))(else (let ((sc3 arg-3)) (cond ((equal? sc3 0) (let ((sc4 arg-5)) (case (vector-ref sc4 0) ((10) (let ((e-12 (vector-ref sc4 1))) (let ((e-13 (vector-ref sc4 2))) (let ((e-14 (vector-ref sc4 3))) (vector 10 e-12 e-13 (lambda () (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 e-12 arg-4 (e-14))))))))(else (let ((sc4 arg-5)) (case (vector-ref sc4 0) ((11) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((e-4 (vector-ref sc4 3))) (let ((e-5 (vector-ref sc4 4))) (vector 11 e-2 e-3 e-4 (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 e-3 arg-4 e-5))))))) ((13) (let ((e-9 (vector-ref sc4 1))) (vector 9 arg-3 1 (vector 13 e-9) (lambda (eta-0) (vector 0 (arg-4 eta-0))))))(else (let ((sc4 arg-3)) (cond (else (vector 9 1 1 arg-5 (lambda (eta-0) (vector 0 (arg-4 eta-0))))))))))))))(else (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((11) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((e-4 (vector-ref sc3 3))) (let ((e-5 (vector-ref sc3 4))) (vector 11 e-2 e-3 e-4 (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 e-3 arg-4 e-5))))))) ((13) (let ((e-9 (vector-ref sc3 1))) (vector 9 arg-3 1 (vector 13 e-9) (lambda (eta-0) (vector 0 (arg-4 eta-0))))))(else (let ((sc3 arg-3)) (cond (else (vector 9 1 1 arg-5 (lambda (eta-0) (vector 0 (arg-4 eta-0))))))))))))))))))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (let ((e-18 (vector-ref sc2 1))) (let ((e-19 (vector-ref sc2 2))) (let ((e-20 (vector-ref sc2 3))) (let ((e-21 (vector-ref sc2 4))) (vector 9 e-18 e-19 e-20 (lambda (u--val) (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 e-19 arg-4 (e-21 u--val)))))))))(else (let ((sc2 arg-3)) (cond ((equal? sc2 0) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (let ((e-12 (vector-ref sc3 1))) (let ((e-13 (vector-ref sc3 2))) (let ((e-14 (vector-ref sc3 3))) (vector 10 e-12 e-13 (lambda () (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 e-12 arg-4 (e-14))))))))(else (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((11) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((e-4 (vector-ref sc3 3))) (let ((e-5 (vector-ref sc3 4))) (vector 11 e-2 e-3 e-4 (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 e-3 arg-4 e-5))))))) ((13) (let ((e-9 (vector-ref sc3 1))) (vector 9 arg-3 1 (vector 13 e-9) (lambda (eta-0) (vector 0 (arg-4 eta-0))))))(else (let ((sc3 arg-3)) (cond (else (vector 9 1 1 arg-5 (lambda (eta-0) (vector 0 (arg-4 eta-0))))))))))))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((11) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((e-4 (vector-ref sc2 3))) (let ((e-5 (vector-ref sc2 4))) (vector 11 e-2 e-3 e-4 (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 e-3 arg-4 e-5))))))) ((13) (let ((e-9 (vector-ref sc2 1))) (vector 9 arg-3 1 (vector 13 e-9) (lambda (eta-0) (vector 0 (arg-4 eta-0))))))(else (let ((sc2 arg-3)) (cond (else (vector 9 1 1 arg-5 (lambda (eta-0) (vector 0 (arg-4 eta-0))))))))))))))))))))))))))(else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((12) (let ((e-30 (vector-ref sc1 1))) (let ((e-31 (vector-ref sc1 2))) (let ((e-32 (vector-ref sc1 3))) (let ((e-33 (vector-ref sc1 4))) (vector 12 e-30 e-31 (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 e-30 arg-4 e-32) (lambda () (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 e-31 arg-4 (e-33)))))))))(else (let ((sc1 arg-3)) (cond ((equal? sc1 0) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((8) (let ((e-25 (vector-ref sc2 1))) (let ((e-26 (vector-ref sc2 2))) (let ((e-27 (vector-ref sc2 3))) (vector 8 e-25 e-26 (lambda () (lambda (u--val) (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 e-25 arg-4 ((e-27) u--val)))))))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (let ((e-18 (vector-ref sc2 1))) (let ((e-19 (vector-ref sc2 2))) (let ((e-20 (vector-ref sc2 3))) (let ((e-21 (vector-ref sc2 4))) (vector 9 e-18 e-19 e-20 (lambda (u--val) (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 e-19 arg-4 (e-21 u--val)))))))))(else (let ((sc2 arg-3)) (cond ((equal? sc2 0) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (let ((e-12 (vector-ref sc3 1))) (let ((e-13 (vector-ref sc3 2))) (let ((e-14 (vector-ref sc3 3))) (vector 10 e-12 e-13 (lambda () (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 e-12 arg-4 (e-14))))))))(else (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((11) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((e-4 (vector-ref sc3 3))) (let ((e-5 (vector-ref sc3 4))) (vector 11 e-2 e-3 e-4 (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 e-3 arg-4 e-5))))))) ((13) (let ((e-9 (vector-ref sc3 1))) (vector 9 arg-3 1 (vector 13 e-9) (lambda (eta-0) (vector 0 (arg-4 eta-0))))))(else (let ((sc3 arg-3)) (cond (else (vector 9 1 1 arg-5 (lambda (eta-0) (vector 0 (arg-4 eta-0))))))))))))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((11) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((e-4 (vector-ref sc2 3))) (let ((e-5 (vector-ref sc2 4))) (vector 11 e-2 e-3 e-4 (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 e-3 arg-4 e-5))))))) ((13) (let ((e-9 (vector-ref sc2 1))) (vector 9 arg-3 1 (vector 13 e-9) (lambda (eta-0) (vector 0 (arg-4 eta-0))))))(else (let ((sc2 arg-3)) (cond (else (vector 9 1 1 arg-5 (lambda (eta-0) (vector 0 (arg-4 eta-0))))))))))))))))))))(else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((9) (let ((e-18 (vector-ref sc1 1))) (let ((e-19 (vector-ref sc1 2))) (let ((e-20 (vector-ref sc1 3))) (let ((e-21 (vector-ref sc1 4))) (vector 9 e-18 e-19 e-20 (lambda (u--val) (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 e-19 arg-4 (e-21 u--val)))))))))(else (let ((sc1 arg-3)) (cond ((equal? sc1 0) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((10) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (let ((e-14 (vector-ref sc2 3))) (vector 10 e-12 e-13 (lambda () (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 e-12 arg-4 (e-14))))))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((11) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((e-4 (vector-ref sc2 3))) (let ((e-5 (vector-ref sc2 4))) (vector 11 e-2 e-3 e-4 (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 e-3 arg-4 e-5))))))) ((13) (let ((e-9 (vector-ref sc2 1))) (vector 9 arg-3 1 (vector 13 e-9) (lambda (eta-0) (vector 0 (arg-4 eta-0))))))(else (let ((sc2 arg-3)) (cond (else (vector 9 1 1 arg-5 (lambda (eta-0) (vector 0 (arg-4 eta-0))))))))))))))(else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((11) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((e-4 (vector-ref sc1 3))) (let ((e-5 (vector-ref sc1 4))) (vector 11 e-2 e-3 e-4 (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 e-3 arg-4 e-5))))))) ((13) (let ((e-9 (vector-ref sc1 1))) (vector 9 arg-3 1 (vector 13 e-9) (lambda (eta-0) (vector 0 (arg-4 eta-0))))))(else (let ((sc1 arg-3)) (cond (else (vector 9 1 1 arg-5 (lambda (eta-0) (vector 0 (arg-4 eta-0))))))))))))))))))))))))))))))))(else (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((4) (let ((e-41 (vector-ref sc0 1))) (let ((e-42 (vector-ref sc0 2))) (let ((e-43 (vector-ref sc0 3))) (vector 4 e-41 e-42 e-43))))) ((5) (let ((e-47 (vector-ref sc0 1))) (vector 5 (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 arg-3 arg-4 e-47)))) ((7) (let ((e-51 (vector-ref sc0 1))) (vector 7 (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 arg-3 arg-4 e-51))))(else (let ((sc0 arg-3)) (cond ((equal? sc0 0) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((1) (let ((e-36 (vector-ref sc1 1))) (let ((e-37 (vector-ref sc1 2))) (vector 1 e-36 (lambda (eta-0) (PreludeC-45Types-u--map_Functor_Maybe arg-4 (e-37 eta-0)))))))(else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((12) (let ((e-30 (vector-ref sc1 1))) (let ((e-31 (vector-ref sc1 2))) (let ((e-32 (vector-ref sc1 3))) (let ((e-33 (vector-ref sc1 4))) (vector 12 e-30 e-31 (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 e-30 arg-4 e-32) (lambda () (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 e-31 arg-4 (e-33)))))))))(else (let ((sc1 arg-3)) (cond ((equal? sc1 0) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((8) (let ((e-25 (vector-ref sc2 1))) (let ((e-26 (vector-ref sc2 2))) (let ((e-27 (vector-ref sc2 3))) (vector 8 e-25 e-26 (lambda () (lambda (u--val) (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 e-25 arg-4 ((e-27) u--val)))))))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (let ((e-18 (vector-ref sc2 1))) (let ((e-19 (vector-ref sc2 2))) (let ((e-20 (vector-ref sc2 3))) (let ((e-21 (vector-ref sc2 4))) (vector 9 e-18 e-19 e-20 (lambda (u--val) (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 e-19 arg-4 (e-21 u--val)))))))))(else (let ((sc2 arg-3)) (cond ((equal? sc2 0) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (let ((e-12 (vector-ref sc3 1))) (let ((e-13 (vector-ref sc3 2))) (let ((e-14 (vector-ref sc3 3))) (vector 10 e-12 e-13 (lambda () (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 e-12 arg-4 (e-14))))))))(else (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((11) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((e-4 (vector-ref sc3 3))) (let ((e-5 (vector-ref sc3 4))) (vector 11 e-2 e-3 e-4 (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 e-3 arg-4 e-5))))))) ((13) (let ((e-9 (vector-ref sc3 1))) (vector 9 arg-3 1 (vector 13 e-9) (lambda (eta-0) (vector 0 (arg-4 eta-0))))))(else (let ((sc3 arg-3)) (cond (else (vector 9 1 1 arg-5 (lambda (eta-0) (vector 0 (arg-4 eta-0))))))))))))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((11) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((e-4 (vector-ref sc2 3))) (let ((e-5 (vector-ref sc2 4))) (vector 11 e-2 e-3 e-4 (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 e-3 arg-4 e-5))))))) ((13) (let ((e-9 (vector-ref sc2 1))) (vector 9 arg-3 1 (vector 13 e-9) (lambda (eta-0) (vector 0 (arg-4 eta-0))))))(else (let ((sc2 arg-3)) (cond (else (vector 9 1 1 arg-5 (lambda (eta-0) (vector 0 (arg-4 eta-0))))))))))))))))))))(else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((9) (let ((e-18 (vector-ref sc1 1))) (let ((e-19 (vector-ref sc1 2))) (let ((e-20 (vector-ref sc1 3))) (let ((e-21 (vector-ref sc1 4))) (vector 9 e-18 e-19 e-20 (lambda (u--val) (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 e-19 arg-4 (e-21 u--val)))))))))(else (let ((sc1 arg-3)) (cond ((equal? sc1 0) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((10) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (let ((e-14 (vector-ref sc2 3))) (vector 10 e-12 e-13 (lambda () (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 e-12 arg-4 (e-14))))))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((11) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((e-4 (vector-ref sc2 3))) (let ((e-5 (vector-ref sc2 4))) (vector 11 e-2 e-3 e-4 (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 e-3 arg-4 e-5))))))) ((13) (let ((e-9 (vector-ref sc2 1))) (vector 9 arg-3 1 (vector 13 e-9) (lambda (eta-0) (vector 0 (arg-4 eta-0))))))(else (let ((sc2 arg-3)) (cond (else (vector 9 1 1 arg-5 (lambda (eta-0) (vector 0 (arg-4 eta-0))))))))))))))(else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((11) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((e-4 (vector-ref sc1 3))) (let ((e-5 (vector-ref sc1 4))) (vector 11 e-2 e-3 e-4 (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 e-3 arg-4 e-5))))))) ((13) (let ((e-9 (vector-ref sc1 1))) (vector 9 arg-3 1 (vector 13 e-9) (lambda (eta-0) (vector 0 (arg-4 eta-0))))))(else (let ((sc1 arg-3)) (cond (else (vector 9 1 1 arg-5 (lambda (eta-0) (vector 0 (arg-4 eta-0))))))))))))))))))))))))))(else (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((12) (let ((e-30 (vector-ref sc0 1))) (let ((e-31 (vector-ref sc0 2))) (let ((e-32 (vector-ref sc0 3))) (let ((e-33 (vector-ref sc0 4))) (vector 12 e-30 e-31 (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 e-30 arg-4 e-32) (lambda () (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 e-31 arg-4 (e-33)))))))))(else (let ((sc0 arg-3)) (cond ((equal? sc0 0) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((8) (let ((e-25 (vector-ref sc1 1))) (let ((e-26 (vector-ref sc1 2))) (let ((e-27 (vector-ref sc1 3))) (vector 8 e-25 e-26 (lambda () (lambda (u--val) (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 e-25 arg-4 ((e-27) u--val)))))))))(else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((9) (let ((e-18 (vector-ref sc1 1))) (let ((e-19 (vector-ref sc1 2))) (let ((e-20 (vector-ref sc1 3))) (let ((e-21 (vector-ref sc1 4))) (vector 9 e-18 e-19 e-20 (lambda (u--val) (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 e-19 arg-4 (e-21 u--val)))))))))(else (let ((sc1 arg-3)) (cond ((equal? sc1 0) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((10) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (let ((e-14 (vector-ref sc2 3))) (vector 10 e-12 e-13 (lambda () (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 e-12 arg-4 (e-14))))))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((11) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((e-4 (vector-ref sc2 3))) (let ((e-5 (vector-ref sc2 4))) (vector 11 e-2 e-3 e-4 (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 e-3 arg-4 e-5))))))) ((13) (let ((e-9 (vector-ref sc2 1))) (vector 9 arg-3 1 (vector 13 e-9) (lambda (eta-0) (vector 0 (arg-4 eta-0))))))(else (let ((sc2 arg-3)) (cond (else (vector 9 1 1 arg-5 (lambda (eta-0) (vector 0 (arg-4 eta-0))))))))))))))(else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((11) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((e-4 (vector-ref sc1 3))) (let ((e-5 (vector-ref sc1 4))) (vector 11 e-2 e-3 e-4 (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 e-3 arg-4 e-5))))))) ((13) (let ((e-9 (vector-ref sc1 1))) (vector 9 arg-3 1 (vector 13 e-9) (lambda (eta-0) (vector 0 (arg-4 eta-0))))))(else (let ((sc1 arg-3)) (cond (else (vector 9 1 1 arg-5 (lambda (eta-0) (vector 0 (arg-4 eta-0))))))))))))))))))))(else (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((9) (let ((e-18 (vector-ref sc0 1))) (let ((e-19 (vector-ref sc0 2))) (let ((e-20 (vector-ref sc0 3))) (let ((e-21 (vector-ref sc0 4))) (vector 9 e-18 e-19 e-20 (lambda (u--val) (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 e-19 arg-4 (e-21 u--val)))))))))(else (let ((sc0 arg-3)) (cond ((equal? sc0 0) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((10) (let ((e-12 (vector-ref sc1 1))) (let ((e-13 (vector-ref sc1 2))) (let ((e-14 (vector-ref sc1 3))) (vector 10 e-12 e-13 (lambda () (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 e-12 arg-4 (e-14))))))))(else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((11) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((e-4 (vector-ref sc1 3))) (let ((e-5 (vector-ref sc1 4))) (vector 11 e-2 e-3 e-4 (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 e-3 arg-4 e-5))))))) ((13) (let ((e-9 (vector-ref sc1 1))) (vector 9 arg-3 1 (vector 13 e-9) (lambda (eta-0) (vector 0 (arg-4 eta-0))))))(else (let ((sc1 arg-3)) (cond (else (vector 9 1 1 arg-5 (lambda (eta-0) (vector 0 (arg-4 eta-0))))))))))))))(else (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((11) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (vector 11 e-2 e-3 e-4 (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 e-3 arg-4 e-5))))))) ((13) (let ((e-9 (vector-ref sc0 1))) (vector 9 arg-3 1 (vector 13 e-9) (lambda (eta-0) (vector 0 (arg-4 eta-0))))))(else (let ((sc0 arg-3)) (cond (else (vector 9 1 1 arg-5 (lambda (eta-0) (vector 0 (arg-4 eta-0))))))))))))))))))))))))))))))))) -(define LibrariesC-45TextC-45ParserC-45Core-parse (lambda (arg-2 arg-3 arg-4) (LibrariesC-45TextC-45ParserC-45Core-case--parse-3224 arg-2 arg-4 arg-3 (LibrariesC-45TextC-45ParserC-45Core-doParse 1 arg-3 arg-4)))) -(define LibrariesC-45TextC-45ParserC-45Core-mergeWith (lambda (arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (vector 1 e-2 (LibrariesC-45TextC-45Bounded-mergeBounds arg-3 e-3) e-4)))))(else arg-4))))) -(define LibrariesC-45TextC-45ParserC-45Core-doParse (lambda (arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 1 arg-3 (LibrariesC-45TextC-45Bounded-irrelevantBounds e-2) arg-5))) ((4) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (vector 0 arg-3 e-7 e-8 (PreludeC-45Types-maybe (lambda () (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (PreludeC-45Types-u--map_Functor_Maybe eta-2 eta-3))))) (lambda (eta-0) (let ((sc1 eta-0)) (let ((e-3 (vector-ref sc1 3))) e-3))) (DataC-45List-headC-39 arg-5))) (lambda () (lambda (eta-0) (vector 1 eta-0))) e-6)))))) ((5) (let ((e-12 (vector-ref sc0 1))) (LibrariesC-45TextC-45ParserC-45Core-case--doParse-2380 e-12 arg-5 arg-3 (LibrariesC-45TextC-45ParserC-45Core-doParse arg-3 e-12 arg-5)))) ((6) (vector 1 0 (LibrariesC-45TextC-45Bounded-irrelevantBounds (vector 0 )) arg-5)) ((7) (let ((e-17 (vector-ref sc0 1))) (LibrariesC-45TextC-45ParserC-45Core-case--doParse-2441 e-17 arg-5 arg-3 (LibrariesC-45TextC-45ParserC-45Core-doParse arg-3 e-17 arg-5)))) ((1) (let ((e-20 (vector-ref sc0 1))) (let ((e-21 (vector-ref sc0 2))) (let ((sc1 arg-5)) (if (null? sc1) (vector 0 arg-3 1 "End of input" (vector 0 )) (let ((e-63 (car sc1))) (let ((e-64 (cdr sc1))) (LibrariesC-45TextC-45ParserC-45Core-case--doParse-2509 e-21 e-20 e-63 e-64 arg-3 (e-21 (let ((sc2 e-63)) (let ((e-1 (vector-ref sc2 1))) e-1))))))))))) ((3) (let ((sc1 arg-5)) (if (null? sc1) (vector 1 arg-3 (LibrariesC-45TextC-45Bounded-irrelevantBounds (vector 0 )) '()) (let ((e-67 (car sc1))) (vector 0 arg-3 1 "Expected end of input" (vector 1 (let ((sc2 e-67)) (let ((e-3 (vector-ref sc2 3))) e-3)))))))) ((2) (let ((e-24 (vector-ref sc0 1))) (let ((e-25 (vector-ref sc0 2))) (let ((sc1 arg-5)) (if (null? sc1) (vector 0 arg-3 1 "End of input" (vector 0 )) (let ((e-71 (car sc1))) (let ((e-72 (cdr sc1))) (LibrariesC-45TextC-45ParserC-45Core-case--doParse-2629 e-25 e-24 e-71 e-72 arg-3 (e-25 (let ((sc2 e-71)) (let ((e-1 (vector-ref sc2 1))) e-1))))))))))) ((12) (let ((e-28 (vector-ref sc0 1))) (let ((e-29 (vector-ref sc0 2))) (let ((e-30 (vector-ref sc0 3))) (let ((e-31 (vector-ref sc0 4))) (LibrariesC-45TextC-45ParserC-45Core-case--doParse-2696 e-29 e-31 e-28 e-30 arg-5 arg-3 (LibrariesC-45TextC-45ParserC-45Core-doParse 1 e-30 arg-5))))))) ((9) (let ((e-35 (vector-ref sc0 1))) (let ((e-36 (vector-ref sc0 2))) (let ((e-37 (vector-ref sc0 3))) (let ((e-38 (vector-ref sc0 4))) (LibrariesC-45TextC-45ParserC-45Core-case--doParse-2831 e-35 e-36 e-38 e-37 arg-5 arg-3 (LibrariesC-45TextC-45ParserC-45Core-doParse arg-3 e-37 arg-5))))))) ((8) (let ((e-42 (vector-ref sc0 1))) (let ((e-43 (vector-ref sc0 2))) (let ((e-44 (vector-ref sc0 3))) (LibrariesC-45TextC-45ParserC-45Core-case--doParse-2917 e-42 e-44 e-43 arg-5 arg-3 (LibrariesC-45TextC-45ParserC-45Core-doParse arg-3 e-43 arg-5)))))) ((11) (let ((e-47 (vector-ref sc0 1))) (let ((e-48 (vector-ref sc0 2))) (let ((e-49 (vector-ref sc0 3))) (let ((e-50 (vector-ref sc0 4))) (LibrariesC-45TextC-45ParserC-45Core-case--doParse-2996 e-47 e-48 e-50 e-49 arg-5 arg-3 (LibrariesC-45TextC-45ParserC-45Core-doParse arg-3 e-49 arg-5))))))) ((10) (let ((e-53 (vector-ref sc0 1))) (let ((e-54 (vector-ref sc0 2))) (let ((e-55 (vector-ref sc0 3))) (LibrariesC-45TextC-45ParserC-45Core-case--doParse-3066 e-53 e-55 e-54 arg-5 arg-3 (LibrariesC-45TextC-45ParserC-45Core-doParse arg-3 e-54 arg-5)))))) ((13) (let ((e-59 (vector-ref sc0 1))) (LibrariesC-45TextC-45ParserC-45Core-case--doParse-3132 e-59 arg-5 arg-3 (LibrariesC-45TextC-45ParserC-45Core-doParse arg-3 e-59 arg-5)))) (else (let ((sc1 arg-5)) (if (null? sc1) (vector 0 arg-3 1 "End of input" (vector 0 )) (let ((e-75 (car sc1))) (let ((e-76 (cdr sc1))) (vector 1 arg-3 (LibrariesC-45TextC-45Bounded-irrelevantBounds (let ((sc2 e-75)) (let ((e-3 (vector-ref sc2 3))) e-3))) (cons e-75 e-76))))))))))) -(define LibrariesC-45TextC-45ParserC-45Core-C-60C-124C-124C-62 (lambda (arg-3 arg-4 arg-5 arg-6) (vector 12 arg-3 arg-4 (PreludeC-45Interfaces-C-60C-36C-62 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 arg-3 u--func arg-143))))) (lambda (eta-0) (vector 0 eta-0)) arg-5) (lambda () (PreludeC-45Interfaces-C-60C-36C-62 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 arg-4 u--func arg-143))))) (lambda (eta-0) (vector 1 eta-0)) (arg-6)))))) -(define LibrariesC-45TextC-45LexerC-45Tokenizer-case--lexTo-5247 (lambda (arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-3)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (let ((sc2 e-7)) (let ((e-10 (car sc2))) (let ((e-11 (cdr sc2))) (let ((sc3 e-11)) (let ((e-14 (car sc3))) (let ((e-15 (cdr sc3))) (cons e-2 (cons e-6 (cons e-10 (cons e-14 (PreludeC-45Types-fastPack e-15))))))))))))))))))) -(define LibrariesC-45TextC-45LexerC-45Tokenizer-case--caseC-32blockC-32inC-32tokenise-5162 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-8 (car sc1))) (let ((e-9 (cdr sc1))) (let ((sc2 e-9)) (let ((e-12 (car sc2))) (let ((e-13 (cdr sc2))) (let ((sc3 e-13)) (let ((e-16 (car sc3))) (let ((e-17 (cdr sc3))) (LibrariesC-45TextC-45LexerC-45Tokenizer-tokenise arg-6 arg-5 e-12 e-16 (PreludeC-45TypesC-45List-C-43C-43 e-8 arg-2) e-17)))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (cons (DataC-45List-reverse arg-2) (cons e-5 (cons arg-4 (cons arg-3 arg-1)))))))))) -(define LibrariesC-45TextC-45LexerC-45Tokenizer-case--tokenise-5105 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (cons (DataC-45List-reverse arg-2) (cons (vector 0 ) (cons arg-4 (cons arg-3 arg-1))))) (else (LibrariesC-45TextC-45LexerC-45Tokenizer-case--caseC-32blockC-32inC-32tokenise-5162 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (LibrariesC-45TextC-45LexerC-45Tokenizer-n--4540-4202-u--getFirstMatch arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-5 arg-1))))))) -(define LibrariesC-45TextC-45LexerC-45Tokenizer-case--tokeniseC-44getFirstMatch-5014 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (vector 1 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((2) (vector 0 e-5))(else (LibrariesC-45TextC-45LexerC-45Tokenizer-n--4540-4202-u--getFirstMatch arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (arg-7) arg-9)))))))))) -(define LibrariesC-45TextC-45LexerC-45Tokenizer-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32tokeniseC-44getFirstMatch-4766 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28) (let ((sc0 arg-28)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (if (null? sc1) (vector 0 (vector 2 (cons arg-4 arg-3) (cons arg-16 arg-17))) (let ((e-4 (car sc1))) (let ((e-5 (cdr sc1))) (let ((sc2 e-5)) (if (null? sc2) (vector 0 (vector 2 (cons arg-4 arg-3) (cons arg-16 arg-17))) (let ((e-8 (car sc2))) (let ((e-9 (cdr sc2))) (let ((sc3 e-9)) (if (null? sc3) (vector 0 (vector 2 (cons arg-4 arg-3) (cons arg-16 arg-17))) (let ((e-12 (car sc3))) (let ((e-13 (cdr sc3))) (let ((u--endTokC-39C-39 (vector 0 (arg-8 e-4) 1 (vector 0 arg-24 arg-25 e-8 e-12)))) (vector 1 (cons (PreludeC-45TypesC-45List-C-43C-43 (cons u--endTokC-39C-39 '()) (PreludeC-45TypesC-45List-C-43C-43 (DataC-45List-reverse arg-22) (cons arg-21 '()))) (cons e-8 (cons e-12 e-13)))))))))))))))))))(else (vector 0 (vector 2 (cons arg-4 arg-3) (cons arg-16 arg-17)))))))) -(define LibrariesC-45TextC-45LexerC-45Tokenizer-case--caseC-32blockC-32inC-32tokeniseC-44getFirstMatch-4546 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (let ((sc0 arg-23)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-3)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (let ((sc2 e-7)) (let ((e-10 (car sc2))) (let ((e-11 (cdr sc2))) (let ((sc3 e-11)) (let ((e-14 (car sc3))) (let ((e-15 (cdr sc3))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((2) (vector 0 e-6))(else (LibrariesC-45TextC-45LexerC-45Tokenizer-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32tokeniseC-44getFirstMatch-4766 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-20 arg-21 arg-22 e-2 e-6 e-10 e-14 e-15 arg-19 (LibrariesC-45TextC-45LexerC-45Tokenizer-n--4540-4201-u--getNext arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-21 e-10 e-14 e-15))))))))))))))))))) -(define LibrariesC-45TextC-45LexerC-45Tokenizer-case--tokeniseC-44getFirstMatch-4479 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-5 (car sc1))) (let ((e-6 (cdr sc1))) (let ((sc2 e-6)) (let ((e-9 (car sc2))) (let ((e-10 (cdr sc2))) (let ((sc3 e-10)) (let ((e-13 (car sc3))) (let ((e-14 (cdr sc3))) (let ((u--tag (arg-11 e-5))) (let ((u--middle ((arg-10) u--tag))) (let ((u--end (arg-9 u--tag))) (let ((u--beginTokC-39C-39 (vector 0 (arg-12 e-5) 1 (vector 0 arg-4 arg-3 e-9 e-13)))) (LibrariesC-45TextC-45LexerC-45Tokenizer-case--caseC-32blockC-32inC-32tokeniseC-44getFirstMatch-4546 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 e-5 e-9 e-13 e-14 u--tag u--middle u--end u--beginTokC-39C-39 (LibrariesC-45TextC-45LexerC-45Tokenizer-tokenise u--end u--middle e-9 e-13 '() e-14))))))))))))))))) (else (vector 0 (vector 1 ))))))) -(define LibrariesC-45TextC-45LexerC-45Tokenizer-case--tokeniseC-44getFirstMatch-4378 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (if (null? sc1) (vector 0 (vector 1 )) (let ((e-4 (car sc1))) (let ((e-5 (cdr sc1))) (let ((sc2 e-5)) (if (null? sc2) (vector 0 (vector 1 )) (let ((e-8 (car sc2))) (let ((e-9 (cdr sc2))) (let ((sc3 e-9)) (if (null? sc3) (vector 0 (vector 1 )) (let ((e-12 (car sc3))) (let ((e-13 (cdr sc3))) (let ((u--tokC-39 (vector 0 (arg-7 e-4) 1 (vector 0 arg-4 arg-3 e-8 e-12)))) (vector 1 (cons (cons u--tokC-39 '()) (cons e-8 (cons e-12 e-13)))))))))))))))))))(else (vector 0 (vector 1 ))))))) -(define LibrariesC-45TextC-45LexerC-45Tokenizer-case--tokeniseC-44getNext-4290 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (if (null? sc1) (vector 0 ) (let ((e-4 (car sc1))) (let ((e-5 (cdr sc1))) (let ((u--lineC-39 (bs+ arg-9 (PreludeC-45Cast-u--cast_Cast_Nat_Int (LibrariesC-45TextC-45LexerC-45Tokenizer-n--4540-4199-u--countNLs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-4)) 63))) (let ((u--colC-39 (LibrariesC-45TextC-45LexerC-45Tokenizer-n--4540-4200-u--getCols arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-4 arg-8))) (let ((u--tokenStr (PreludeC-45Types-fastPack (DataC-45List-reverse e-4)))) (PreludeC-45Types-u--pure_Applicative_Maybe (cons u--tokenStr (cons u--lineC-39 (cons u--colC-39 e-5)))))))))))))(else (vector 0 )))))) -(define LibrariesC-45TextC-45LexerC-45Tokenizer-case--tokeniseC-44getCols-4224 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-3)) (if (null? sc1) (bs+ arg-7 (PreludeC-45Cast-u--cast_Cast_Nat_Int (PreludeC-45TypesC-45List-length e-2)) 63) (PreludeC-45Cast-u--cast_Cast_Nat_Int (PreludeC-45TypesC-45List-length e-2))))))))) -(define LibrariesC-45TextC-45LexerC-45Tokenizer-n--4540-4201-u--getNext (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (LibrariesC-45TextC-45LexerC-45Tokenizer-case--tokeniseC-44getNext-4290 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-10 arg-9 arg-8 arg-7 (LibrariesC-45TextC-45LexerC-45Core-scan arg-7 '() arg-10)))) -(define LibrariesC-45TextC-45LexerC-45Tokenizer-n--4540-4202-u--getFirstMatch (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (LibrariesC-45TextC-45LexerC-45Tokenizer-case--tokeniseC-44getFirstMatch-4378 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-2 e-1 arg-8 (LibrariesC-45TextC-45LexerC-45Tokenizer-n--4540-4201-u--getNext arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-1 arg-4 arg-3 arg-8))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (let ((e-9 (vector-ref sc0 5))) (let ((e-10 (vector-ref sc0 6))) (LibrariesC-45TextC-45LexerC-45Tokenizer-case--tokeniseC-44getFirstMatch-4479 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10 e-9 e-8 e-7 e-6 e-5 arg-8 (LibrariesC-45TextC-45LexerC-45Tokenizer-n--4540-4201-u--getNext arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 arg-4 arg-3 arg-8))))))))) (else (let ((e-12 (vector-ref sc0 1))) (let ((e-13 (vector-ref sc0 2))) (LibrariesC-45TextC-45LexerC-45Tokenizer-case--tokeniseC-44getFirstMatch-5014 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-13 e-12 arg-8 (LibrariesC-45TextC-45LexerC-45Tokenizer-n--4540-4202-u--getFirstMatch arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-12 arg-8))))))))) -(define LibrariesC-45TextC-45LexerC-45Tokenizer-n--4540-4200-u--getCols (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (LibrariesC-45TextC-45LexerC-45Tokenizer-case--tokeniseC-44getCols-4224 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-8 arg-7 (DataC-45List-span (lambda (arg-0) (PreludeC-45EqOrd-u--C-47C-61_Eq_Char arg-0 (integer->char 10))) arg-7)))) -(define LibrariesC-45TextC-45LexerC-45Tokenizer-n--4540-4199-u--countNLs (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (PreludeC-45TypesC-45List-length (DataC-45List-filter (lambda (arg-0) (PreludeC-45EqOrd-u--C-61C-61_Eq_Char arg-0 (integer->char 10))) arg-7)))) -(define LibrariesC-45TextC-45LexerC-45Tokenizer-tokenise (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (if (null? sc0) (cons (DataC-45List-reverse arg-5) (cons (vector 0 ) (cons arg-3 (cons arg-4 '())))) (LibrariesC-45TextC-45LexerC-45Tokenizer-case--tokenise-5105 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (LibrariesC-45TextC-45LexerC-45Core-scan arg-1 '() arg-6)))))) -(define LibrariesC-45TextC-45LexerC-45Tokenizer-match (lambda (ext-0 ext-1) (vector 0 ext-0 ext-1))) -(define LibrariesC-45TextC-45LexerC-45Tokenizer-lexTo (lambda (arg-1 arg-2 arg-3) (LibrariesC-45TextC-45LexerC-45Tokenizer-case--lexTo-5247 arg-3 arg-2 arg-1 (LibrariesC-45TextC-45LexerC-45Tokenizer-tokenise arg-1 arg-2 0 0 '() (PreludeC-45Types-fastUnpack arg-3))))) -(define LibrariesC-45TextC-45LexerC-45Tokenizer-lex (lambda (arg-1 arg-2) (LibrariesC-45TextC-45LexerC-45Tokenizer-lexTo (LibrariesC-45TextC-45LexerC-45Core-pred (lambda (eta-0) 1)) arg-1 arg-2))) -(define LibrariesC-45TextC-45LexerC-45Tokenizer-compose (lambda (ext-0 ext-1 ext-2 ext-3 ext-4 ext-5) (vector 1 ext-0 ext-1 ext-2 ext-3 ext-4 ext-5))) -(define LibrariesC-45TextC-45LexerC-45Tokenizer-C-60C-124C-62 (lambda (ext-0 ext-1) (vector 2 ext-0 ext-1))) -(define ParserC-45RuleC-45Common-location (lambda (arg-0) (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 1 eta-2 eta-3))))) (lambda (eta-0) (LibrariesC-45TextC-45Bounded-startBounds eta-0)) (vector 14 )))) -(define ParserC-45RuleC-45Common-column (lambda (arg-0) (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 1 eta-2 eta-3))))) (lambda (eta-0) (Builtin-snd eta-0)) (ParserC-45RuleC-45Common-location arg-0)))) -(define ParserC-45LexerC-45Source-case--lexTo-3022 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-3)) (if (null? sc1) (vector 0 e-3) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((0) (let ((sc3 e-7)) (if (null? sc3) (vector 0 e-3) (let ((e-10 (car sc3))) (let ((e-11 (cdr sc3))) (let ((sc4 e-11)) (if (null? sc4) (vector 0 e-3) (let ((e-14 (car sc4))) (vector 1 (PreludeC-45TypesC-45List-C-43C-43 (DataC-45List-filter (lambda (eta-0) (ParserC-45LexerC-45Source-n--5861-2997-u--notComment arg-0 arg-1 eta-0)) e-2) (cons (vector 0 (vector 16 ) 1 (vector 0 e-10 e-14 e-10 e-14)) '())))))))))))(else (vector 0 e-3))))))))))))) -(define ParserC-45LexerC-45Source-case--lexToC-44notComment-3002 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((13) 1)(else 0))))) -(define ParserC-45LexerC-45Source-case--rawTokensC-44removeOptionalLeadingSpace-2801 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (if (null? sc0) arg-0 (let ((e-0 (car sc0))) (let ((e-1 (cdr sc0))) (let ((sc1 e-0)) (cond ((equal? sc1 #\ ) e-1)(else arg-0))))))))) -(define ParserC-45LexerC-45Source-case--rawTokensC-44parseNamespace-2763 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (ParserC-45LexerC-45Source-n--5582-2742-u--parseIdent e-3)) (else (let ((e-6 (vector-ref sc1 1))) (vector 10 e-6 e-3)))))))))) -(define ParserC-45LexerC-45Source-case--rawTokensC-44parseIdent-2752 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (vector 17 arg-0)) (else (vector 9 arg-0)))))) -(define ParserC-45LexerC-45Source-case--fromOctLit-2663 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) 0) (else (let ((u--num (DataC-45String-strTail (DataC-45String-strTail arg-0)))) (DataC-45Maybe-fromMaybe (lambda () 0) (LibrariesC-45UtilsC-45Octal-fromOct (PreludeC-45Types-reverse u--num))))))))) -(define ParserC-45LexerC-45Source-case--fromHexLit-2638 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) 0) (else (let ((u--num (DataC-45String-strTail (DataC-45String-strTail arg-0)))) (DataC-45Maybe-fromMaybe (lambda () 0) (LibrariesC-45UtilsC-45Hex-fromHex (PreludeC-45Types-reverse u--num))))))))) -(define ParserC-45LexerC-45Source-case--fromBinLit-2595 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) 0) (else (let ((u--num (DataC-45String-strTail (DataC-45String-strTail arg-0)))) (ParserC-45LexerC-45Source-n--5459-2555-u--fromBin arg-0 (DataC-45List-reverse (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (ParserC-45LexerC-45Source-n--5459-2554-u--castBin arg-0 eta-0)) (PreludeC-45Types-fastUnpack u--num)))))))))) -(define ParserC-45LexerC-45Source-n--5582-2745-u--removeOptionalLeadingSpace (lambda (arg-0) (ParserC-45LexerC-45Source-case--rawTokensC-44removeOptionalLeadingSpace-2801 arg-0 (DataC-45String-strM arg-0)))) -(define ParserC-45LexerC-45Source-n--5582-2743-u--parseNamespace (lambda (arg-0) (ParserC-45LexerC-45Source-case--rawTokensC-44parseNamespace-2763 arg-0 (CoreC-45NameC-45Namespace-mkNamespacedIdent arg-0)))) -(define ParserC-45LexerC-45Source-n--5582-2742-u--parseIdent (lambda (arg-0) (ParserC-45LexerC-45Source-case--rawTokensC-44parseIdent-2752 arg-0 (PreludeC-45Types-elem (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_String arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_String arg-4 arg-5)))) arg-0 (ParserC-45LexerC-45Source-keywords))))) -(define ParserC-45LexerC-45Source-n--5861-2997-u--notComment (lambda (arg-0 arg-1 arg-2) (ParserC-45LexerC-45Source-case--lexToC-44notComment-3002 arg-0 arg-1 arg-2 (let ((sc0 arg-2)) (let ((e-1 (vector-ref sc0 1))) e-1))))) -(define ParserC-45LexerC-45Source-n--5459-2555-u--fromBin (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (if (null? sc0) 0 (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (cond ((equal? sc1 0) (* 2 (ParserC-45LexerC-45Source-n--5459-2555-u--fromBin arg-0 e-3)))(else (+ e-2 (* 2 (ParserC-45LexerC-45Source-n--5459-2555-u--fromBin arg-0 e-3)))))))))))) -(define ParserC-45LexerC-45Source-n--5582-2744-u--countHashtag (lambda (ext-0) (PreludeC-45Types-count (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (lambda (arg-0) (PreludeC-45EqOrd-u--C-61C-61_Eq_Char arg-0 #\#)) (PreludeC-45Types-fastUnpack ext-0)))) -(define ParserC-45LexerC-45Source-n--5459-2554-u--castBin (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 #\1) 1)(else 0))))) -(define ParserC-45LexerC-45Source-u--show_Show_Token (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (PreludeC-45TypesC-45String-C-43C-43 "character " (PreludeC-45Show-u--show_Show_String e-0)))) ((1) (let ((e-1 (vector-ref sc0 1))) (PreludeC-45TypesC-45String-C-43C-43 "double " (PreludeC-45Show-u--show_Show_Double e-1)))) ((2) (let ((e-2 (vector-ref sc0 1))) (PreludeC-45TypesC-45String-C-43C-43 "literal " (PreludeC-45Show-u--show_Show_Integer e-2)))) ((3) (let ((e-3 (vector-ref sc0 1))) (let ((sc1 e-3)) (cond ((equal? sc1 0) "string begin") (else "multiline string begin"))))) ((4) "string end") ((5) "string interp begin") ((6) "string interp end") ((7) (let ((e-4 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 2))) (PreludeC-45TypesC-45String-C-43C-43 "string" (PreludeC-45TypesC-45String-C-43C-43 (LibrariesC-45DataC-45StringC-45Extra-replicate e-4 #\#) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45Show-u--show_Show_String e-5))))))) ((8) (let ((e-6 (vector-ref sc0 1))) (PreludeC-45TypesC-45String-C-43C-43 "hole identifier " e-6))) ((9) (let ((e-7 (vector-ref sc0 1))) (PreludeC-45TypesC-45String-C-43C-43 "identifier " e-7))) ((10) (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (PreludeC-45TypesC-45String-C-43C-43 "namespaced identifier " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-u--show_Show_Namespace e-8) (PreludeC-45TypesC-45String-C-43C-43 "." (PreludeC-45Show-u--show_Show_String e-9))))))) ((11) (let ((e-10 (vector-ref sc0 1))) (PreludeC-45TypesC-45String-C-43C-43 "dot+identifier " e-10))) ((12) (let ((e-11 (vector-ref sc0 1))) (PreludeC-45TypesC-45String-C-43C-43 "symbol " e-11))) ((13) "comment") ((14) (let ((e-12 (vector-ref sc0 1))) (PreludeC-45TypesC-45String-C-43C-43 "doc comment: \"" (PreludeC-45TypesC-45String-C-43C-43 e-12 "\"")))) ((15) (let ((e-13 (vector-ref sc0 1))) (PreludeC-45TypesC-45String-C-43C-43 "CGDirective " e-13))) ((16) "end of input") ((17) (let ((e-14 (vector-ref sc0 1))) e-14)) ((18) (let ((e-15 (vector-ref sc0 1))) (PreludeC-45TypesC-45String-C-43C-43 "pragma " e-15))) (else (let ((e-16 (vector-ref sc0 1))) (PreludeC-45TypesC-45String-C-43C-43 "Unrecognised " e-16))))))) -(define ParserC-45LexerC-45Source-u--showPrec_Show_Token (lambda (arg-0 arg-1) (ParserC-45LexerC-45Source-u--show_Show_Token arg-1))) -(define ParserC-45LexerC-45Source-u--pretty_Pretty_Token (lambda (arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "character") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-squotes (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String e-0))))) ((1) (let ((e-1 (vector-ref sc0 1))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "double") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Double e-1)))) ((2) (let ((e-2 (vector-ref sc0 1))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "literal") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Integer e-2)))) ((3) (let ((e-3 (vector-ref sc0 1))) (let ((sc1 e-3)) (cond ((equal? sc1 0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "string begin")) (else (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "multiline string begin")))))) ((4) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "string end")) ((5) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "string interp begin")) ((6) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "string interp end")) ((7) (let ((e-4 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 2))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String (PreludeC-45TypesC-45String-C-43C-43 "string" (LibrariesC-45DataC-45StringC-45Extra-replicate e-4 #\#))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-dquotes (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String e-5)))))) ((8) (let ((e-6 (vector-ref sc0 1))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "hole identifier") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String e-6)))) ((9) (let ((e-7 (vector-ref sc0 1))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "identifier") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String e-7)))) ((10) (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "namespaced identifier") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (CoreC-45NameC-45Namespace-u--pretty_Pretty_Namespace e-8) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-dot)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String e-9)))))) ((11) (let ((e-10 (vector-ref sc0 1))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "dot+identifier") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String e-10)))) ((12) (let ((e-11 (vector-ref sc0 1))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "symbol") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String e-11)))) ((13) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "comment")) ((14) (let ((e-12 (vector-ref sc0 1))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "doc comment:") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-dquotes (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String e-12))))) ((15) (let ((e-13 (vector-ref sc0 1))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "CGDirective") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String e-13)))) ((16) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "end of input")) ((17) (let ((e-14 (vector-ref sc0 1))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String e-14))) ((18) (let ((e-15 (vector-ref sc0 1))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "pragma") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String e-15)))) (else (let ((e-16 (vector-ref sc0 1))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "Unrecognised") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String e-16)))))))) -(define ParserC-45LexerC-45Source-u--prettyPrec_Pretty_Token (lambda (arg-1 arg-2) (ParserC-45LexerC-45Source-u--pretty_Pretty_Token arg-2))) -(define ParserC-45LexerC-45Source-validSymbol (lambda () (LibrariesC-45TextC-45Lexer-some (LibrariesC-45TextC-45LexerC-45Core-pred (lambda (eta-0) (ParserC-45LexerC-45Source-isOpChar eta-0)))))) -(define ParserC-45LexerC-45Source-toEndComment (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 0) (LibrariesC-45TextC-45LexerC-45Core-empty))(else (let ((e-0 (- arg-0 1))) (LibrariesC-45TextC-45LexerC-45Core-C-60C-124C-62 (vector 4 (LibrariesC-45TextC-45Lexer-some (LibrariesC-45TextC-45LexerC-45Core-pred (lambda (u--c) (PreludeC-45Basics-C-38C-38 (PreludeC-45EqOrd-u--C-47C-61_Eq_Char u--c #\-) (lambda () (PreludeC-45Basics-C-38C-38 (PreludeC-45EqOrd-u--C-47C-61_Eq_Char u--c #\{) (lambda () (PreludeC-45EqOrd-u--C-47C-61_Eq_Char u--c #\")))))))) (lambda () (ParserC-45LexerC-45Source-toEndComment (+ 1 e-0)))) (LibrariesC-45TextC-45LexerC-45Core-C-60C-124C-62 (vector 4 (LibrariesC-45TextC-45Lexer-is #\{) (lambda () (ParserC-45LexerC-45Source-singleBrace e-0))) (LibrariesC-45TextC-45LexerC-45Core-C-60C-124C-62 (vector 4 (LibrariesC-45TextC-45Lexer-is #\-) (lambda () (ParserC-45LexerC-45Source-singleDash e-0))) (vector 4 (LibrariesC-45TextC-45Lexer-stringLit) (lambda () (ParserC-45LexerC-45Source-toEndComment (+ 1 e-0))))))))))))) -(define ParserC-45LexerC-45Source-symbols (lambda () (cons "," (cons ";" (cons "_" (cons "`" '())))))) -(define ParserC-45LexerC-45Source-stringTokens (lambda (arg-0 arg-1) (let ((u--escapeChars (PreludeC-45TypesC-45String-C-43C-43 "\\" (LibrariesC-45DataC-45StringC-45Extra-replicate arg-1 #\#)))) (let ((u--interpStart (PreludeC-45TypesC-45String-C-43C-43 u--escapeChars "{"))) (let ((u--escapeLexer (LibrariesC-45TextC-45Lexer-escape (LibrariesC-45TextC-45Lexer-exact u--escapeChars) (LibrariesC-45TextC-45Lexer-any)))) (let ((u--charLexer (LibrariesC-45TextC-45Lexer-non (LibrariesC-45TextC-45Lexer-exact (let ((sc0 arg-0)) (cond ((equal? sc0 0) (ParserC-45LexerC-45Source-multilineEnd arg-1)) (else (ParserC-45LexerC-45Source-stringEnd arg-1)))))))) (LibrariesC-45TextC-45LexerC-45Tokenizer-C-60C-124C-62 (LibrariesC-45TextC-45LexerC-45Tokenizer-match (LibrariesC-45TextC-45Lexer-someUntil (LibrariesC-45TextC-45Lexer-exact u--interpStart) (LibrariesC-45TextC-45LexerC-45Core-C-60C-124C-62 u--escapeLexer u--charLexer)) (lambda (u--x) (vector 7 arg-1 u--x))) (lambda () (LibrariesC-45TextC-45LexerC-45Tokenizer-compose (LibrariesC-45TextC-45Lexer-exact u--interpStart) (lambda (eta-0) (vector 5 )) (lambda (eta-0) (vector 0 )) (lambda () (lambda (_-2734) (ParserC-45LexerC-45Source-rawTokens))) (lambda (eta-0) (LibrariesC-45TextC-45Lexer-is #\})) (lambda (eta-0) (vector 6 ))))))))))) -(define ParserC-45LexerC-45Source-stringEnd (lambda (arg-0) (PreludeC-45TypesC-45String-C-43C-43 "\"" (LibrariesC-45DataC-45StringC-45Extra-replicate arg-0 #\#)))) -(define ParserC-45LexerC-45Source-stringBegin (lambda () (vector 5 (LibrariesC-45TextC-45Lexer-many (LibrariesC-45TextC-45Lexer-is #\#)) (LibrariesC-45TextC-45Lexer-is #\")))) -(define ParserC-45LexerC-45Source-singleDash (lambda (arg-0) (LibrariesC-45TextC-45LexerC-45Core-C-60C-124C-62 (vector 4 (LibrariesC-45TextC-45Lexer-is #\-) (lambda () (ParserC-45LexerC-45Source-doubleDash arg-0))) (LibrariesC-45TextC-45LexerC-45Core-C-60C-124C-62 (vector 4 (LibrariesC-45TextC-45Lexer-is #\}) (lambda () (ParserC-45LexerC-45Source-toEndComment arg-0))) (ParserC-45LexerC-45Source-toEndComment (+ 1 arg-0)))))) -(define ParserC-45LexerC-45Source-singleBrace (lambda (arg-0) (LibrariesC-45TextC-45LexerC-45Core-C-60C-124C-62 (vector 4 (vector 4 (LibrariesC-45TextC-45Lexer-is #\-) (lambda () (LibrariesC-45TextC-45Lexer-many (LibrariesC-45TextC-45Lexer-is #\-)))) (lambda () (ParserC-45LexerC-45Source-singleDash (+ 1 arg-0)))) (ParserC-45LexerC-45Source-toEndComment (+ 1 arg-0))))) -(define ParserC-45LexerC-45Source-reservedSymbols (lambda () (PreludeC-45TypesC-45List-C-43C-43 (ParserC-45LexerC-45Source-symbols) (PreludeC-45TypesC-45List-C-43C-43 (ParserC-45LexerC-45Source-groupSymbols) (PreludeC-45TypesC-45List-C-43C-43 (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (PreludeC-45Types-u--map_Functor_List eta-2 eta-3))))) (lambda (eta-0) (ParserC-45LexerC-45Source-groupClose eta-0)) (ParserC-45LexerC-45Source-groupSymbols)) (cons "%" (cons "\\" (cons ":" (cons "=" (cons ":=" (cons "|" (cons "|||" (cons "<-" (cons "->" (cons "=>" (cons "?" (cons "!" (cons "&" (cons "**" (cons ".." (cons "~" '()))))))))))))))))))))) -(define ParserC-45LexerC-45Source-rawTokens (lambda () (LibrariesC-45TextC-45LexerC-45Tokenizer-C-60C-124C-62 (LibrariesC-45TextC-45LexerC-45Tokenizer-match (ParserC-45LexerC-45Common-comment) (lambda (eta-0) (vector 13 ))) (lambda () (LibrariesC-45TextC-45LexerC-45Tokenizer-C-60C-124C-62 (LibrariesC-45TextC-45LexerC-45Tokenizer-match (ParserC-45LexerC-45Source-blockComment) (lambda (eta-0) (vector 13 ))) (lambda () (LibrariesC-45TextC-45LexerC-45Tokenizer-C-60C-124C-62 (LibrariesC-45TextC-45LexerC-45Tokenizer-match (ParserC-45LexerC-45Source-docComment) (lambda (eta-0) (vector 14 (ParserC-45LexerC-45Source-n--5582-2745-u--removeOptionalLeadingSpace (LibrariesC-45DataC-45StringC-45Extra-drop (+ 1 (+ 1 (+ 1 0))) eta-0))))) (lambda () (LibrariesC-45TextC-45LexerC-45Tokenizer-C-60C-124C-62 (LibrariesC-45TextC-45LexerC-45Tokenizer-match (ParserC-45LexerC-45Source-cgDirective) (lambda (eta-0) (ParserC-45LexerC-45Source-mkDirective eta-0))) (lambda () (LibrariesC-45TextC-45LexerC-45Tokenizer-C-60C-124C-62 (LibrariesC-45TextC-45LexerC-45Tokenizer-match (ParserC-45LexerC-45Source-holeIdent) (lambda (u--x) (vector 8 (DataC-45String-strTail u--x)))) (lambda () (LibrariesC-45TextC-45LexerC-45Tokenizer-C-60C-124C-62 (LibrariesC-45TextC-45LexerC-45Tokenizer-compose (LibrariesC-45TextC-45Lexer-choice 0 (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (PreludeC-45Types-u--map_Functor_List eta-2 eta-3))))) (lambda (eta-0) (LibrariesC-45TextC-45Lexer-exact eta-0)) (ParserC-45LexerC-45Source-groupSymbols))) (lambda (eta-0) (vector 12 eta-0)) (lambda (eta-0) eta-0) (lambda () (lambda (_-2864) (ParserC-45LexerC-45Source-rawTokens))) (lambda (eta-0) (LibrariesC-45TextC-45Lexer-exact (ParserC-45LexerC-45Source-groupClose eta-0))) (lambda (eta-0) (vector 12 eta-0))) (lambda () (LibrariesC-45TextC-45LexerC-45Tokenizer-C-60C-124C-62 (LibrariesC-45TextC-45LexerC-45Tokenizer-match (LibrariesC-45TextC-45Lexer-choice 0 (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (PreludeC-45Types-u--map_Functor_List eta-2 eta-3))))) (lambda (eta-0) (LibrariesC-45TextC-45Lexer-exact eta-0)) (ParserC-45LexerC-45Source-symbols))) (lambda (eta-0) (vector 12 eta-0))) (lambda () (LibrariesC-45TextC-45LexerC-45Tokenizer-C-60C-124C-62 (LibrariesC-45TextC-45LexerC-45Tokenizer-match (ParserC-45LexerC-45Source-doubleLit) (lambda (u--x) (vector 1 (PreludeC-45Cast-u--cast_Cast_String_Double u--x)))) (lambda () (LibrariesC-45TextC-45LexerC-45Tokenizer-C-60C-124C-62 (LibrariesC-45TextC-45LexerC-45Tokenizer-match (LibrariesC-45TextC-45Lexer-binLit) (lambda (u--x) (vector 2 (ParserC-45LexerC-45Source-fromBinLit u--x)))) (lambda () (LibrariesC-45TextC-45LexerC-45Tokenizer-C-60C-124C-62 (LibrariesC-45TextC-45LexerC-45Tokenizer-match (LibrariesC-45TextC-45Lexer-hexLit) (lambda (u--x) (vector 2 (ParserC-45LexerC-45Source-fromHexLit u--x)))) (lambda () (LibrariesC-45TextC-45LexerC-45Tokenizer-C-60C-124C-62 (LibrariesC-45TextC-45LexerC-45Tokenizer-match (LibrariesC-45TextC-45Lexer-octLit) (lambda (u--x) (vector 2 (ParserC-45LexerC-45Source-fromOctLit u--x)))) (lambda () (LibrariesC-45TextC-45LexerC-45Tokenizer-C-60C-124C-62 (LibrariesC-45TextC-45LexerC-45Tokenizer-match (LibrariesC-45TextC-45Lexer-digits) (lambda (u--x) (vector 2 (PreludeC-45Cast-u--cast_Cast_String_Integer u--x)))) (lambda () (LibrariesC-45TextC-45LexerC-45Tokenizer-C-60C-124C-62 (LibrariesC-45TextC-45LexerC-45Tokenizer-compose (ParserC-45LexerC-45Source-multilineBegin) (lambda (eta-0) (vector 3 0)) (lambda (eta-0) (ParserC-45LexerC-45Source-n--5582-2744-u--countHashtag eta-0)) (lambda () (lambda (eta-0) (ParserC-45LexerC-45Source-stringTokens 0 eta-0))) (lambda (eta-0) (LibrariesC-45TextC-45Lexer-exact (ParserC-45LexerC-45Source-multilineEnd eta-0))) (lambda (eta-0) (vector 4 ))) (lambda () (LibrariesC-45TextC-45LexerC-45Tokenizer-C-60C-124C-62 (LibrariesC-45TextC-45LexerC-45Tokenizer-compose (ParserC-45LexerC-45Source-stringBegin) (lambda (eta-0) (vector 3 1)) (lambda (eta-0) (ParserC-45LexerC-45Source-n--5582-2744-u--countHashtag eta-0)) (lambda () (lambda (eta-0) (ParserC-45LexerC-45Source-stringTokens 1 eta-0))) (lambda (u--hashtag) (vector 4 (LibrariesC-45TextC-45Lexer-exact (ParserC-45LexerC-45Source-stringEnd u--hashtag)) (lambda () (LibrariesC-45TextC-45LexerC-45Core-reject (LibrariesC-45TextC-45Lexer-is #\"))))) (lambda (eta-0) (vector 4 ))) (lambda () (LibrariesC-45TextC-45LexerC-45Tokenizer-C-60C-124C-62 (LibrariesC-45TextC-45LexerC-45Tokenizer-match (LibrariesC-45TextC-45Lexer-charLit) (lambda (u--x) (vector 0 (LibrariesC-45UtilsC-45String-stripQuotes u--x)))) (lambda () (LibrariesC-45TextC-45LexerC-45Tokenizer-C-60C-124C-62 (LibrariesC-45TextC-45LexerC-45Tokenizer-match (ParserC-45LexerC-45Source-dotIdent) (lambda (u--x) (vector 11 (DataC-45String-strTail u--x)))) (lambda () (LibrariesC-45TextC-45LexerC-45Tokenizer-C-60C-124C-62 (LibrariesC-45TextC-45LexerC-45Tokenizer-match (ParserC-45LexerC-45Common-namespacedIdent) (lambda (eta-0) (ParserC-45LexerC-45Source-n--5582-2743-u--parseNamespace eta-0))) (lambda () (LibrariesC-45TextC-45LexerC-45Tokenizer-C-60C-124C-62 (LibrariesC-45TextC-45LexerC-45Tokenizer-match (ParserC-45LexerC-45Common-identNormal) (lambda (eta-0) (ParserC-45LexerC-45Source-n--5582-2742-u--parseIdent eta-0))) (lambda () (LibrariesC-45TextC-45LexerC-45Tokenizer-C-60C-124C-62 (LibrariesC-45TextC-45LexerC-45Tokenizer-match (ParserC-45LexerC-45Source-pragma) (lambda (u--x) (vector 18 (DataC-45String-strTail u--x)))) (lambda () (LibrariesC-45TextC-45LexerC-45Tokenizer-C-60C-124C-62 (LibrariesC-45TextC-45LexerC-45Tokenizer-match (LibrariesC-45TextC-45Lexer-space) (lambda (eta-0) (vector 13 ))) (lambda () (LibrariesC-45TextC-45LexerC-45Tokenizer-C-60C-124C-62 (LibrariesC-45TextC-45LexerC-45Tokenizer-match (ParserC-45LexerC-45Source-validSymbol) (lambda (eta-0) (vector 12 eta-0))) (lambda () (LibrariesC-45TextC-45LexerC-45Tokenizer-match (LibrariesC-45TextC-45Lexer-symbol) (lambda (eta-0) (vector 19 eta-0))))))))))))))))))))))))))))))))))))))))))))))) -(define ParserC-45LexerC-45Source-pragma (lambda () (vector 4 (LibrariesC-45TextC-45Lexer-is #\%) (lambda () (ParserC-45LexerC-45Common-identNormal))))) -(define ParserC-45LexerC-45Source-multilineEnd (lambda (arg-0) (PreludeC-45TypesC-45String-C-43C-43 "\"\"\"" (LibrariesC-45DataC-45StringC-45Extra-replicate arg-0 #\#)))) -(define ParserC-45LexerC-45Source-multilineBegin (lambda () (let ((sc0 (PreludeC-45Basics-C-124C-124 0 (lambda () 1)))) (cond ((equal? sc0 1) (vector 5 (vector 4 (vector 5 (LibrariesC-45TextC-45Lexer-many (LibrariesC-45TextC-45Lexer-is #\#)) (LibrariesC-45TextC-45Lexer-exact "\"\"\"")) (lambda () (LibrariesC-45TextC-45Lexer-manyUntil (LibrariesC-45TextC-45Lexer-newline) (LibrariesC-45TextC-45Lexer-space)))) (lambda () (LibrariesC-45TextC-45Lexer-newline)))) (else (vector 4 (vector 4 (vector 5 (LibrariesC-45TextC-45Lexer-many (LibrariesC-45TextC-45Lexer-is #\#)) (LibrariesC-45TextC-45Lexer-exact "\"\"\"")) (lambda () (LibrariesC-45TextC-45Lexer-manyUntil (LibrariesC-45TextC-45Lexer-newline) (LibrariesC-45TextC-45Lexer-space)))) (lambda () (LibrariesC-45TextC-45Lexer-newline)))))))) -(define ParserC-45LexerC-45Source-mkDirective (lambda (arg-0) (vector 15 (DataC-45String-trim (PreludeC-45Types-substr (+ 1 (+ 1 (+ 1 0))) (PreludeC-45TypesC-45String-length arg-0) arg-0))))) -(define ParserC-45LexerC-45Source-lexTo (lambda (arg-0 arg-1) (ParserC-45LexerC-45Source-case--lexTo-3022 arg-1 arg-0 (LibrariesC-45TextC-45LexerC-45Tokenizer-lexTo arg-0 (ParserC-45LexerC-45Source-rawTokens) arg-1)))) -(define ParserC-45LexerC-45Source-keywords (lambda () (cons "data" (cons "module" (cons "where" (cons "let" (cons "in" (cons "do" (cons "record" (cons "auto" (cons "default" (cons "implicit" (cons "mutual" (cons "namespace" (cons "parameters" (cons "with" (cons "proof" (cons "impossible" (cons "case" (cons "of" (cons "if" (cons "then" (cons "else" (cons "forall" (cons "rewrite" (cons "using" (cons "interface" (cons "implementation" (cons "open" (cons "import" (cons "public" (cons "export" (cons "private" (cons "infixl" (cons "infixr" (cons "infix" (cons "prefix" (cons "total" (cons "partial" (cons "covering" '())))))))))))))))))))))))))))))))))))))))) -(define ParserC-45LexerC-45Source-isOpName (lambda (arg-0) (DataC-45Maybe-fromMaybe (lambda () 1) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Name-userNameRoot arg-0) (lambda (u--n) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (PreludeC-45Types-u--map_Functor_Maybe eta-2 eta-3))))) (lambda (eta-0) (Builtin-fst eta-0)) (PreludeC-45Types-strUncons u--n)) (lambda (u--c) (PreludeC-45Interfaces-C-62C-62 (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (PreludeC-45Types-u--map_Functor_Maybe u--func arg-143))))) (lambda (u--a) (lambda (arg-577) (PreludeC-45Types-u--pure_Applicative_Maybe arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (PreludeC-45Types-u--C-60C-42C-62_Applicative_Maybe arg-578 arg-580)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe arg-876 arg-877))))) (lambda (u--a) (lambda (arg-879) (PreludeC-45Types-u--join_Monad_Maybe arg-879)))) (PreludeC-45Interfaces-guard (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (PreludeC-45Types-u--map_Functor_Maybe u--func arg-143))))) (lambda (u--a) (lambda (arg-577) (PreludeC-45Types-u--pure_Applicative_Maybe arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (PreludeC-45Types-u--C-60C-42C-62_Applicative_Maybe arg-578 arg-580)))))) (lambda (u--a) (PreludeC-45Types-u--empty_Alternative_Maybe)) (lambda (u--a) (lambda (arg-827) (lambda (arg-828) (PreludeC-45Types-u--C-60C-124C-62_Alternative_Maybe arg-827 arg-828))))) (ParserC-45LexerC-45Source-isOpChar u--c)) (lambda () (PreludeC-45Types-u--pure_Applicative_Maybe 0)))))))))) -(define ParserC-45LexerC-45Source-isOpChar (lambda (arg-0) (PreludeC-45Types-elem (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Char arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Char arg-4 arg-5)))) arg-0 (PreludeC-45Types-fastUnpack ":!#$%&*+./<=>?@\\^|-~")))) -(define ParserC-45LexerC-45Source-holeIdent (lambda () (vector 4 (LibrariesC-45TextC-45Lexer-is #\?) (lambda () (ParserC-45LexerC-45Common-identNormal))))) -(define ParserC-45LexerC-45Source-groupSymbols (lambda () (cons ".(" (cons "@{" (cons "[|" (cons "(" (cons "{" (cons "[" (cons "`(" (cons "`{{" (cons "`[" '()))))))))))) -(define ParserC-45LexerC-45Source-groupClose (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 ".(") ")") ((equal? sc0 "@{") "}") ((equal? sc0 "[|") "|]") ((equal? sc0 "(") ")") ((equal? sc0 "[") "]") ((equal? sc0 "{") "}") ((equal? sc0 "`(") ")") ((equal? sc0 "`{{") "}}") ((equal? sc0 "`[") "]")(else ""))))) -(define ParserC-45LexerC-45Source-fromOctLit (lambda (arg-0) (ParserC-45LexerC-45Source-case--fromOctLit-2663 arg-0 (PreludeC-45Types-u--C-60C-61_Ord_Nat (PreludeC-45TypesC-45String-length arg-0) (PreludeC-45Types-u--fromInteger_Num_Nat 2))))) -(define ParserC-45LexerC-45Source-fromHexLit (lambda (arg-0) (ParserC-45LexerC-45Source-case--fromHexLit-2638 arg-0 (PreludeC-45Types-u--C-60C-61_Ord_Nat (PreludeC-45TypesC-45String-length arg-0) (PreludeC-45Types-u--fromInteger_Num_Nat 2))))) -(define ParserC-45LexerC-45Source-fromBinLit (lambda (arg-0) (ParserC-45LexerC-45Source-case--fromBinLit-2595 arg-0 (PreludeC-45Types-u--C-60C-61_Ord_Nat (PreludeC-45TypesC-45String-length arg-0) (PreludeC-45Types-u--fromInteger_Num_Nat 2))))) -(define ParserC-45LexerC-45Source-doubleLit (lambda () (let ((sc0 (PreludeC-45Basics-C-124C-124 0 (lambda () 0)))) (cond ((equal? sc0 1) (vector 5 (vector 4 (vector 4 (LibrariesC-45TextC-45Lexer-digits) (lambda () (LibrariesC-45TextC-45Lexer-is #\.))) (lambda () (LibrariesC-45TextC-45Lexer-digits))) (lambda () (LibrariesC-45TextC-45Lexer-opt (vector 4 (vector 4 (LibrariesC-45TextC-45Lexer-is #\e) (lambda () (LibrariesC-45TextC-45Lexer-opt (LibrariesC-45TextC-45LexerC-45Core-C-60C-124C-62 (LibrariesC-45TextC-45Lexer-is #\-) (LibrariesC-45TextC-45Lexer-is #\+))))) (lambda () (LibrariesC-45TextC-45Lexer-digits))))))) (else (vector 4 (vector 4 (vector 4 (LibrariesC-45TextC-45Lexer-digits) (lambda () (LibrariesC-45TextC-45Lexer-is #\.))) (lambda () (LibrariesC-45TextC-45Lexer-digits))) (lambda () (LibrariesC-45TextC-45Lexer-opt (vector 4 (vector 4 (LibrariesC-45TextC-45Lexer-is #\e) (lambda () (LibrariesC-45TextC-45Lexer-opt (LibrariesC-45TextC-45LexerC-45Core-C-60C-124C-62 (LibrariesC-45TextC-45Lexer-is #\-) (LibrariesC-45TextC-45Lexer-is #\+))))) (lambda () (LibrariesC-45TextC-45Lexer-digits))))))))))) -(define ParserC-45LexerC-45Source-doubleDash (lambda (arg-0) (vector 5 (LibrariesC-45TextC-45Lexer-many (LibrariesC-45TextC-45Lexer-is #\-)) (LibrariesC-45TextC-45Lexer-choice 0 (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (cons (vector 4 (LibrariesC-45TextC-45Lexer-is #\}) (lambda () (ParserC-45LexerC-45Source-toEndComment arg-0))) (cons (vector 5 (LibrariesC-45TextC-45Lexer-many (LibrariesC-45TextC-45Lexer-isNot (integer->char 10))) (ParserC-45LexerC-45Source-toEndComment (+ 1 arg-0))) '())))))) -(define ParserC-45LexerC-45Source-dotIdent (lambda () (vector 4 (LibrariesC-45TextC-45Lexer-is #\.) (lambda () (ParserC-45LexerC-45Common-identNormal))))) -(define ParserC-45LexerC-45Source-docComment (lambda () (let ((sc0 (PreludeC-45Basics-C-124C-124 0 (lambda () 0)))) (cond ((equal? sc0 1) (vector 5 (vector 4 (vector 4 (LibrariesC-45TextC-45Lexer-is #\|) (lambda () (LibrariesC-45TextC-45Lexer-is #\|))) (lambda () (LibrariesC-45TextC-45Lexer-is #\|))) (lambda () (LibrariesC-45TextC-45Lexer-many (LibrariesC-45TextC-45Lexer-isNot (integer->char 10)))))) (else (vector 4 (vector 4 (vector 4 (LibrariesC-45TextC-45Lexer-is #\|) (lambda () (LibrariesC-45TextC-45Lexer-is #\|))) (lambda () (LibrariesC-45TextC-45Lexer-is #\|))) (lambda () (LibrariesC-45TextC-45Lexer-many (LibrariesC-45TextC-45Lexer-isNot (integer->char 10)))))))))) -(define ParserC-45LexerC-45Source-cgDirective (lambda () (vector 4 (LibrariesC-45TextC-45Lexer-exact "%cg") (lambda () (LibrariesC-45TextC-45LexerC-45Core-C-60C-124C-62 (let ((sc0 (PreludeC-45Basics-C-124C-124 (PreludeC-45Basics-C-124C-124 (PreludeC-45Basics-C-124C-124 0 (lambda () 1)) (lambda () 0)) (lambda () 1)))) (cond ((equal? sc0 1) (vector 5 (let ((sc1 (PreludeC-45Basics-C-124C-124 (PreludeC-45Basics-C-124C-124 0 (lambda () 1)) (lambda () 0)))) (cond ((equal? sc1 1) (vector 5 (let ((sc2 (PreludeC-45Basics-C-124C-124 0 (lambda () 1)))) (cond ((equal? sc2 1) (vector 5 (vector 4 (vector 4 (LibrariesC-45TextC-45Lexer-some (LibrariesC-45TextC-45Lexer-space)) (lambda () (LibrariesC-45TextC-45Lexer-some (LibrariesC-45TextC-45LexerC-45Core-pred (lambda (eta-0) (PreludeC-45Types-isAlphaNum eta-0)))))) (lambda () (LibrariesC-45TextC-45Lexer-many (LibrariesC-45TextC-45Lexer-space)))) (lambda () (LibrariesC-45TextC-45Lexer-is #\{)))) (else (vector 4 (vector 4 (vector 4 (LibrariesC-45TextC-45Lexer-some (LibrariesC-45TextC-45Lexer-space)) (lambda () (LibrariesC-45TextC-45Lexer-some (LibrariesC-45TextC-45LexerC-45Core-pred (lambda (eta-0) (PreludeC-45Types-isAlphaNum eta-0)))))) (lambda () (LibrariesC-45TextC-45Lexer-many (LibrariesC-45TextC-45Lexer-space)))) (lambda () (LibrariesC-45TextC-45Lexer-is #\{)))))) (lambda () (LibrariesC-45TextC-45Lexer-many (LibrariesC-45TextC-45Lexer-isNot #\}))))) (else (vector 4 (let ((sc2 (PreludeC-45Basics-C-124C-124 0 (lambda () 1)))) (cond ((equal? sc2 1) (vector 5 (vector 4 (vector 4 (LibrariesC-45TextC-45Lexer-some (LibrariesC-45TextC-45Lexer-space)) (lambda () (LibrariesC-45TextC-45Lexer-some (LibrariesC-45TextC-45LexerC-45Core-pred (lambda (eta-0) (PreludeC-45Types-isAlphaNum eta-0)))))) (lambda () (LibrariesC-45TextC-45Lexer-many (LibrariesC-45TextC-45Lexer-space)))) (lambda () (LibrariesC-45TextC-45Lexer-is #\{)))) (else (vector 4 (vector 4 (vector 4 (LibrariesC-45TextC-45Lexer-some (LibrariesC-45TextC-45Lexer-space)) (lambda () (LibrariesC-45TextC-45Lexer-some (LibrariesC-45TextC-45LexerC-45Core-pred (lambda (eta-0) (PreludeC-45Types-isAlphaNum eta-0)))))) (lambda () (LibrariesC-45TextC-45Lexer-many (LibrariesC-45TextC-45Lexer-space)))) (lambda () (LibrariesC-45TextC-45Lexer-is #\{)))))) (lambda () (LibrariesC-45TextC-45Lexer-many (LibrariesC-45TextC-45Lexer-isNot #\}))))))) (lambda () (LibrariesC-45TextC-45Lexer-is #\})))) (else (vector 4 (let ((sc1 (PreludeC-45Basics-C-124C-124 (PreludeC-45Basics-C-124C-124 0 (lambda () 1)) (lambda () 0)))) (cond ((equal? sc1 1) (vector 5 (let ((sc2 (PreludeC-45Basics-C-124C-124 0 (lambda () 1)))) (cond ((equal? sc2 1) (vector 5 (vector 4 (vector 4 (LibrariesC-45TextC-45Lexer-some (LibrariesC-45TextC-45Lexer-space)) (lambda () (LibrariesC-45TextC-45Lexer-some (LibrariesC-45TextC-45LexerC-45Core-pred (lambda (eta-0) (PreludeC-45Types-isAlphaNum eta-0)))))) (lambda () (LibrariesC-45TextC-45Lexer-many (LibrariesC-45TextC-45Lexer-space)))) (lambda () (LibrariesC-45TextC-45Lexer-is #\{)))) (else (vector 4 (vector 4 (vector 4 (LibrariesC-45TextC-45Lexer-some (LibrariesC-45TextC-45Lexer-space)) (lambda () (LibrariesC-45TextC-45Lexer-some (LibrariesC-45TextC-45LexerC-45Core-pred (lambda (eta-0) (PreludeC-45Types-isAlphaNum eta-0)))))) (lambda () (LibrariesC-45TextC-45Lexer-many (LibrariesC-45TextC-45Lexer-space)))) (lambda () (LibrariesC-45TextC-45Lexer-is #\{)))))) (lambda () (LibrariesC-45TextC-45Lexer-many (LibrariesC-45TextC-45Lexer-isNot #\}))))) (else (vector 4 (let ((sc2 (PreludeC-45Basics-C-124C-124 0 (lambda () 1)))) (cond ((equal? sc2 1) (vector 5 (vector 4 (vector 4 (LibrariesC-45TextC-45Lexer-some (LibrariesC-45TextC-45Lexer-space)) (lambda () (LibrariesC-45TextC-45Lexer-some (LibrariesC-45TextC-45LexerC-45Core-pred (lambda (eta-0) (PreludeC-45Types-isAlphaNum eta-0)))))) (lambda () (LibrariesC-45TextC-45Lexer-many (LibrariesC-45TextC-45Lexer-space)))) (lambda () (LibrariesC-45TextC-45Lexer-is #\{)))) (else (vector 4 (vector 4 (vector 4 (LibrariesC-45TextC-45Lexer-some (LibrariesC-45TextC-45Lexer-space)) (lambda () (LibrariesC-45TextC-45Lexer-some (LibrariesC-45TextC-45LexerC-45Core-pred (lambda (eta-0) (PreludeC-45Types-isAlphaNum eta-0)))))) (lambda () (LibrariesC-45TextC-45Lexer-many (LibrariesC-45TextC-45Lexer-space)))) (lambda () (LibrariesC-45TextC-45Lexer-is #\{)))))) (lambda () (LibrariesC-45TextC-45Lexer-many (LibrariesC-45TextC-45Lexer-isNot #\}))))))) (lambda () (LibrariesC-45TextC-45Lexer-is #\})))))) (LibrariesC-45TextC-45Lexer-many (LibrariesC-45TextC-45Lexer-isNot (integer->char 10)))))))) -(define ParserC-45LexerC-45Source-blockComment (lambda () (vector 4 (vector 4 (LibrariesC-45TextC-45Lexer-is #\{) (lambda () (LibrariesC-45TextC-45Lexer-is #\-))) (lambda () (ParserC-45LexerC-45Source-toEndComment (+ 1 0)))))) -(define LibrariesC-45UtilsC-45String-stripSurrounds (lambda (arg-0 arg-1 arg-2) (PreludeC-45Types-substr arg-0 (PreludeC-45Types-minus (PreludeC-45TypesC-45String-length arg-2) (PreludeC-45Types-u--C-43_Num_Nat arg-0 arg-1)) arg-2))) +(define LibrariesC-45DataC-45StringC-45Extra-case--linesC-39-3765 (lambda (arg-0 arg-1) (let ((e-2 (car arg-1))) (let ((e-3 (cdr arg-1))) (cons e-2 (if (null? e-3) '() (let ((e-4 (cdr e-3))) (DataC-45List1-forget (LibrariesC-45DataC-45StringC-45Extra-linesC-39 e-4))))))))) +(define LibrariesC-45DataC-45StringC-45Extra-unlinesC-39 (lambda (arg-0) (if (null? arg-0) '() (let ((e-2 (car arg-0))) (let ((e-3 (cdr arg-0))) (if (null? e-3) e-2 (PreludeC-45TypesC-45List-C-43C-43 e-2 (cons (integer->char 10) (LibrariesC-45DataC-45StringC-45Extra-unlinesC-39 e-3))))))))) +(define LibrariesC-45DataC-45StringC-45Extra-unlines (lambda (ext-0) (PreludeC-45Types-fastPack (LibrariesC-45DataC-45StringC-45Extra-unlinesC-39 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (PreludeC-45Types-fastUnpack eta-0)) ext-0))))) +(define LibrariesC-45DataC-45StringC-45Extra-strSnoc (lambda (arg-0 arg-1) (PreludeC-45TypesC-45String-C-43C-43 arg-0 (DataC-45String-singleton arg-1)))) +(define LibrariesC-45DataC-45StringC-45Extra-replicate (lambda (arg-0 arg-1) (PreludeC-45Types-fastPack (DataC-45List-replicate arg-0 arg-1)))) +(define LibrariesC-45DataC-45StringC-45Extra-linesC-39 (lambda (arg-0) (if (null? arg-0) (DataC-45List1-singleton '()) (LibrariesC-45DataC-45StringC-45Extra-case--linesC-39-3765 arg-0 (DataC-45List-break (lambda (eta-0) (PreludeC-45Types-isNL eta-0)) arg-0))))) +(define LibrariesC-45DataC-45StringC-45Extra-lines (lambda (arg-0) (DataC-45List1-u--map_Functor_List1 (lambda (eta-0) (PreludeC-45Types-fastPack eta-0)) (LibrariesC-45DataC-45StringC-45Extra-linesC-39 (PreludeC-45Types-fastUnpack arg-0))))) +(define LibrariesC-45DataC-45StringC-45Extra-join (lambda (arg-1 arg-2 arg-3) (LibrariesC-45DataC-45StringC-45Extra-drop (PreludeC-45TypesC-45String-length arg-1) (let ((e-2 (vector-ref arg-2 1))) (((((e-2 'erased) 'erased) (lambda (u--acc) (lambda (u--x) (PreludeC-45TypesC-45String-C-43C-43 u--acc (PreludeC-45TypesC-45String-C-43C-43 arg-1 u--x))))) "") arg-3))))) +(define LibrariesC-45DataC-45StringC-45Extra-dropLast (lambda (arg-0 arg-1) (PreludeC-45Types-reverse (LibrariesC-45DataC-45StringC-45Extra-drop arg-0 (PreludeC-45Types-reverse arg-1))))) +(define LibrariesC-45DataC-45StringC-45Extra-drop (lambda (arg-0 arg-1) (PreludeC-45Types-substr arg-0 (PreludeC-45TypesC-45String-length arg-1) arg-1))) +(define LibrariesC-45DataC-45StringC-45Extra-C-43C-62 (lambda (ext-0 ext-1) (LibrariesC-45DataC-45StringC-45Extra-strSnoc ext-0 ext-1))) +(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-case--wordsC-44helper-841 (lambda (arg-1 arg-2 arg-3) (if (null? arg-3) '() (let ((sc1 (DataC-45List-break (lambda (eta-0) (PreludeC-45Types-isSpace eta-0)) arg-3))) (let ((e-2 (car sc1))) (let ((e-3 (cdr sc1))) (cons e-2 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-n--2913-834-u--helper arg-1 e-3)))))))) +(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-n--2913-834-u--helper (lambda (arg-1 arg-2) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-case--wordsC-44helper-841 arg-1 arg-2 (DataC-45List-dropWhile (lambda (eta-0) (PreludeC-45Types-isSpace eta-0)) arg-2)))) +(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-words (lambda (arg-1) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String eta-0)) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (PreludeC-45Types-fastPack eta-0)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-n--2913-834-u--helper arg-1 (PreludeC-45Types-fastUnpack arg-1)))))) +(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow (lambda (ext-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-fillSep (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-words ext-0)))) +(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-case--unsafeTextWithoutNewLines-4808 (lambda (arg-1 arg-2) (cond ((equal? arg-1 "") (if (null? arg-2) (vector 0 ) (let ((e-0 (car arg-2))) (let ((e-1 (cdr arg-2))) (let ((u--str (string-cons e-0 e-1))) (let ((sc3 (PreludeC-45EqOrd-u--C-61C-61_Eq_String e-1 ""))) (cond ((equal? sc3 1) (vector 1 e-0)) (else (vector 2 (PreludeC-45Cast-u--cast_Cast_Nat_Int (PreludeC-45TypesC-45String-length u--str)) u--str)))))))))(else (let ((e-0 (car arg-2))) (let ((e-1 (cdr arg-2))) (let ((u--str (string-cons e-0 e-1))) (let ((sc1 (PreludeC-45EqOrd-u--C-61C-61_Eq_String e-1 ""))) (cond ((equal? sc1 1) (vector 1 e-0)) (else (vector 2 (PreludeC-45Cast-u--cast_Cast_Nat_Int (PreludeC-45TypesC-45String-length u--str)) u--str))))))))))) +(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-case--changesUponFlattening-4230 (lambda (arg-1 arg-2 arg-3) (let ((e-2 (car arg-3))) (let ((e-3 (cdr arg-3))) (case (vector-ref e-2 0) ((2) (vector 2 ))(else (case (vector-ref e-3 0) ((2) (vector 2 ))(else (case (vector-ref e-2 0) ((0) (let ((e-5 (vector-ref e-2 1))) (case (vector-ref e-3 0) ((0) (let ((e-8 (vector-ref e-3 1))) (vector 0 (vector 5 e-5 e-8)))) (else (vector 0 (vector 5 e-5 arg-1)))))) (else (case (vector-ref e-3 0) ((0) (let ((e-11 (vector-ref e-3 1))) (vector 0 (vector 5 arg-2 e-11)))) (else (vector 1 ))))))))))))) +(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-n--6106-7395-u--selectNicer (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 ((((arg-3 arg-4) arg-5) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-n--6106-7394-u--initialIndentation arg-1 arg-2 arg-3 (arg-7))) arg-6))) (cond ((equal? sc0 1) arg-6) (else (arg-7)))))) +(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-n--6106-7394-u--initialIndentation (lambda (arg-1 arg-2 arg-3 arg-4) (case (vector-ref arg-4 0) ((3) (let ((e-1 (vector-ref arg-4 1))) (box e-1))) ((4) (let ((e-5 (vector-ref arg-4 2))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-n--6106-7394-u--initialIndentation arg-1 arg-2 arg-3 e-5))) ((5) (let ((e-7 (vector-ref arg-4 1))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-n--6106-7394-u--initialIndentation arg-1 arg-2 arg-3 e-7)))(else '())))) +(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-n--6106-7396-u--best (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (case (vector-ref arg-6 0) ((0) (vector 0 )) ((2) (let ((e-2 (vector-ref arg-6 1))) (vector 5 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-n--6106-7396-u--best arg-1 arg-2 arg-3 arg-4 arg-5 e-2)))) (else (let ((e-4 (vector-ref arg-6 1))) (let ((e-5 (vector-ref arg-6 2))) (let ((e-6 (vector-ref arg-6 3))) (case (vector-ref e-5 0) ((0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-n--6106-7396-u--best arg-1 arg-2 arg-3 arg-4 arg-5 e-6)) ((1) (let ((e-9 (vector-ref e-5 1))) (vector 1 e-9 (lambda () (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-n--6106-7396-u--best arg-1 arg-2 arg-3 arg-4 (bs+ arg-5 1 63) e-6))))) ((2) (let ((e-11 (vector-ref e-5 1))) (let ((e-12 (vector-ref e-5 2))) (vector 2 e-11 e-12 (lambda () (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-n--6106-7396-u--best arg-1 arg-2 arg-3 arg-4 (bs+ arg-5 e-11 63) e-6)))))) ((3) (let ((u--x (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-n--6106-7396-u--best arg-1 arg-2 arg-3 e-4 e-4 e-6))) (let ((u--iC-39 (case (vector-ref u--x 0) ((0) (blodwen-toSignedInt 0 63)) ((3) (blodwen-toSignedInt 0 63))(else e-4)))) (vector 3 u--iC-39 u--x)))) ((4) (let ((e-15 (vector-ref e-5 1))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-n--6106-7396-u--best arg-1 arg-2 arg-3 arg-4 arg-5 (vector 1 e-4 (e-15) e-6)))) ((5) (let ((e-18 (vector-ref e-5 1))) (let ((e-19 (vector-ref e-5 2))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-n--6106-7396-u--best arg-1 arg-2 arg-3 arg-4 arg-5 (vector 1 e-4 e-18 (vector 1 e-4 e-19 e-6)))))) ((6) (let ((e-21 (vector-ref e-5 1))) (let ((e-22 (vector-ref e-5 2))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-n--6106-7396-u--best arg-1 arg-2 arg-3 arg-4 arg-5 (vector 1 (bs+ e-4 e-21 63) e-22 e-6))))) ((7) (let ((e-24 (vector-ref e-5 1))) (let ((e-25 (vector-ref e-5 2))) (let ((u--xC-39 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-n--6106-7396-u--best arg-1 arg-2 arg-3 arg-4 arg-5 (vector 1 e-4 (e-24) e-6)))) (let ((u--yC-39 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-n--6106-7396-u--best arg-1 arg-2 arg-3 arg-4 arg-5 (vector 1 e-4 (e-25) e-6)))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-n--6106-7395-u--selectNicer arg-1 arg-2 arg-3 arg-4 arg-5 u--xC-39 (lambda () u--yC-39))))))) ((8) (let ((e-27 (vector-ref e-5 1))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-n--6106-7396-u--best arg-1 arg-2 arg-3 arg-4 arg-5 (vector 1 e-4 (e-27 arg-5) e-6)))) ((9) (let ((e-29 (vector-ref e-5 1))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-n--6106-7396-u--best arg-1 arg-2 arg-3 arg-4 arg-5 (vector 1 e-4 (e-29 arg-2) e-6)))) ((10) (let ((e-31 (vector-ref e-5 1))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-n--6106-7396-u--best arg-1 arg-2 arg-3 arg-4 arg-5 (vector 1 e-4 (e-31 e-4) e-6)))) (else (let ((e-33 (vector-ref e-5 1))) (let ((e-34 (vector-ref e-5 2))) (vector 4 e-33 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-n--6106-7396-u--best arg-1 arg-2 arg-3 arg-4 arg-5 (vector 1 e-4 e-34 (vector 2 e-6))))))))))))))) +(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--show_Show_C-40DocC-32C-36annC-41 (lambda (arg-1) ((LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-renderShow (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-layoutPretty (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-defaultLayoutOptions) arg-1)) ""))) +(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String (lambda (arg-1) (let ((u--strC-39 (let ((sc0 (DataC-45String-isSuffixOf "\u000a" arg-1))) (cond ((equal? sc0 1) (LibrariesC-45DataC-45StringC-45Extra-dropLast (+ 1 0) arg-1)) (else arg-1))))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unsafeTextWithoutNewLines eta-0)) (DataC-45List1-forget (LibrariesC-45DataC-45StringC-45Extra-lines u--strC-39))))))) +(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Nat (lambda (ext-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unsafeTextWithoutNewLines (PreludeC-45Show-u--show_Show_Nat ext-0)))) +(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Integer (lambda (ext-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unsafeTextWithoutNewLines (PreludeC-45Show-u--show_Show_Integer ext-0)))) +(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Int (lambda (ext-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unsafeTextWithoutNewLines (PreludeC-45Show-u--show_Show_Int ext-0)))) +(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Double (lambda (ext-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unsafeTextWithoutNewLines (PreludeC-45Show-u--show_Show_Double ext-0)))) +(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Char (lambda (arg-1) (cond ((equal? arg-1 (integer->char 10)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line))(else (vector 1 arg-1))))) +(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Bool (lambda (arg-1) (cond ((equal? arg-1 1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "True")) (else (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "False"))))) +(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (lambda (arg-3 arg-4) (let ((e-2 (car arg-4))) (let ((e-3 (cdr arg-4))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-tupled (cons (let ((sc1 (Builtin-fst arg-3))) (let ((e-1 (car sc1))) ((e-1 'erased) e-2))) (cons (let ((sc1 (Builtin-snd arg-3))) (let ((e-1 (car sc1))) ((e-1 'erased) e-3))) '()))))))) +(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_C-40MaybeC-32C-36aC-41 (lambda (arg-2 ext-0) (PreludeC-45Types-maybe (lambda () (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--neutral_Monoid_C-40DocC-32C-36annC-41)) (lambda () (lambda (clam-0) (let ((e-1 (car arg-2))) ((e-1 'erased) clam-0)))) ext-0))) +(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_C-40ListC-32C-36aC-41 (lambda (arg-2 ext-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-align (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-list (PreludeC-45Types-u--map_Functor_List (lambda (clam-0) (let ((e-1 (car arg-2))) ((e-1 'erased) clam-0))) ext-0))))) +(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--neutral_Monoid_C-40DocC-32C-36annC-41 (lambda () (vector 0 ))) +(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--map_Functor_FlattenResult (lambda (arg-2 arg-3) (case (vector-ref arg-3 0) ((0) (let ((e-1 (vector-ref arg-3 1))) (vector 0 (arg-2 e-1)))) ((1) (vector 1 )) (else (vector 2 ))))) +(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 (lambda (ext-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String ext-0))) +(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (lambda (ext-0 ext-1) (vector 5 ext-0 ext-1))) +(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (lambda (ext-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-concatWith (lambda (u--x) (lambda (u--y) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 u--x (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) u--y))) ext-0))) +(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vcat (lambda (ext-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-concatWith (lambda (u--x) (lambda (u--y) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 u--x (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-lineC-39)) u--y))) ext-0))) +(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unsafeTextWithoutNewLines (lambda (arg-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-case--unsafeTextWithoutNewLines-4808 arg-1 (DataC-45String-strM arg-1)))) +(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unAnnotateS (lambda (arg-2) (case (vector-ref arg-2 0) ((0) (vector 0 )) ((1) (let ((e-2 (vector-ref arg-2 1))) (let ((e-3 (vector-ref arg-2 2))) (vector 1 e-2 (lambda () (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unAnnotateS (e-3))))))) ((2) (let ((e-5 (vector-ref arg-2 1))) (let ((e-6 (vector-ref arg-2 2))) (let ((e-7 (vector-ref arg-2 3))) (vector 2 e-5 e-6 (lambda () (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unAnnotateS (e-7)))))))) ((3) (let ((e-9 (vector-ref arg-2 1))) (let ((e-10 (vector-ref arg-2 2))) (vector 3 e-9 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unAnnotateS e-10))))) ((4) (let ((e-13 (vector-ref arg-2 2))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unAnnotateS e-13))) (else (let ((e-15 (vector-ref arg-2 1))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unAnnotateS e-15)))))) +(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-tupled (lambda (ext-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-group (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-encloseSep (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-flatAlt (lambda () (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "( ")) (lambda () (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "("))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-flatAlt (lambda () (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String " )")) (lambda () (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String ")"))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String ", ") ext-0)))) +(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-textSpaces (lambda (arg-0) (LibrariesC-45DataC-45StringC-45Extra-replicate (PreludeC-45Types-prim__integerToNat (PreludeC-45Cast-u--cast_Cast_Int_Integer arg-0)) #\ ))) +(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-surround (lambda (arg-1 arg-2 arg-3) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 arg-2 arg-1) arg-3))) +(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-spaces (lambda (arg-1) (let ((sc0 (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-1 (blodwen-toSignedInt 0 63)))) (cond ((equal? sc0 1) (vector 0 )) (else (let ((sc1 (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-1 (blodwen-toSignedInt 1 63)))) (cond ((equal? sc1 1) (vector 1 #\ )) (else (vector 2 arg-1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-textSpaces arg-1)))))))))) +(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-softline (lambda () (vector 7 (lambda () (vector 1 #\ )) (lambda () (vector 3 ))))) +(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-sep (lambda (ext-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-group (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep ext-0)))) +(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-round (lambda (arg-0) (let ((sc0 (PreludeC-45EqOrd-u--C-62_Ord_Double arg-0 (PreludeC-45Num-u--fromInteger_Num_Double 0)))) (cond ((equal? sc0 1) (let ((sc1 (PreludeC-45EqOrd-u--C-60_Ord_Double (PreludeC-45Num-u--C-45_Neg_Double arg-0 (PreludeC-45Types-floor arg-0)) 0.5))) (cond ((equal? sc1 1) (PreludeC-45Cast-u--cast_Cast_Double_Int (PreludeC-45Types-floor arg-0))) (else (PreludeC-45Cast-u--cast_Cast_Double_Int (PreludeC-45Types-ceiling arg-0)))))) (else (let ((sc1 (PreludeC-45EqOrd-u--C-60_Ord_Double (PreludeC-45Num-u--C-45_Neg_Double (PreludeC-45Types-ceiling arg-0) arg-0) 0.5))) (cond ((equal? sc1 1) (PreludeC-45Cast-u--cast_Cast_Double_Int (PreludeC-45Types-ceiling arg-0))) (else (PreludeC-45Cast-u--cast_Cast_Double_Int (PreludeC-45Types-floor arg-0)))))))))) +(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-renderShow (lambda (arg-1) (case (vector-ref arg-1 0) ((0) (lambda (eta-0) eta-0)) ((1) (let ((e-2 (vector-ref arg-1 1))) (let ((e-3 (vector-ref arg-1 2))) (lambda (eta-0) (PreludeC-45Types-strCons e-2 ((LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-renderShow (e-3)) eta-0)))))) ((2) (let ((e-6 (vector-ref arg-1 2))) (let ((e-7 (vector-ref arg-1 3))) (lambda (eta-0) (PreludeC-45TypesC-45String-C-43C-43 e-6 ((LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-renderShow (e-7)) eta-0)))))) ((3) (let ((e-9 (vector-ref arg-1 1))) (let ((e-10 (vector-ref arg-1 2))) (lambda (eta-0) (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Types-strCons (integer->char 10) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-textSpaces e-9)) ((LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-renderShow e-10) eta-0)))))) ((4) (let ((e-13 (vector-ref arg-1 2))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-renderShow e-13))) (else (let ((e-15 (vector-ref arg-1 1))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-renderShow e-15)))))) +(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-remainingWidth (lambda (arg-0 arg-1 arg-2 arg-3) (let ((u--columnsLeftInLine (PreludeC-45Num-u--C-45_Neg_Int arg-0 arg-3))) (let ((u--ribbonWidth (PreludeC-45EqOrd-u--max_Ord_Int (blodwen-toSignedInt 0 63) (PreludeC-45EqOrd-u--min_Ord_Int arg-0 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-round (PreludeC-45Num-u--C-42_Num_Double (PreludeC-45Cast-u--cast_Cast_Int_Double arg-0) arg-1)))))) (let ((u--columnsLeftInRibbon (PreludeC-45Num-u--C-45_Neg_Int (bs+ arg-2 u--ribbonWidth 63) arg-3))) (PreludeC-45EqOrd-u--min_Ord_Int u--columnsLeftInLine u--columnsLeftInRibbon)))))) +(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-reAnnotateS (lambda (arg-2 arg-3) (case (vector-ref arg-3 0) ((0) (vector 0 )) ((1) (let ((e-2 (vector-ref arg-3 1))) (let ((e-3 (vector-ref arg-3 2))) (vector 1 e-2 (lambda () (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-reAnnotateS arg-2 (e-3))))))) ((2) (let ((e-5 (vector-ref arg-3 1))) (let ((e-6 (vector-ref arg-3 2))) (let ((e-7 (vector-ref arg-3 3))) (vector 2 e-5 e-6 (lambda () (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-reAnnotateS arg-2 (e-7)))))))) ((3) (let ((e-9 (vector-ref arg-3 1))) (let ((e-10 (vector-ref arg-3 2))) (vector 3 e-9 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-reAnnotateS arg-2 e-10))))) ((4) (let ((e-12 (vector-ref arg-3 1))) (let ((e-13 (vector-ref arg-3 2))) (vector 4 (arg-2 e-12) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-reAnnotateS arg-2 e-13))))) (else (let ((e-15 (vector-ref arg-3 1))) (vector 5 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-reAnnotateS arg-2 e-15))))))) +(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-reAnnotate (lambda (arg-2 ext-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-alterAnnotations (lambda (eta-0) (PreludeC-45Types-u--pure_Applicative_List (arg-2 eta-0))) ext-0))) +(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-punctuate (lambda (arg-1 arg-2) (if (null? arg-2) '() (let ((e-2 (car arg-2))) (let ((e-3 (cdr arg-2))) (if (null? e-3) (cons e-2 '()) (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 e-2 arg-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-punctuate arg-1 e-3)))))))) +(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-nesting (lambda (ext-0) (vector 10 ext-0))) +(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-nest (lambda (arg-1 arg-2) (cond ((equal? arg-1 0) arg-2)(else (vector 6 arg-1 arg-2))))) +(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-list (lambda (ext-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-group (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-encloseSep (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-flatAlt (lambda () (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "[ ")) (lambda () (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "["))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-flatAlt (lambda () (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String " ]")) (lambda () (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "]"))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String ", ") ext-0)))) +(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-lineC-39 (lambda () (vector 4 (lambda () (vector 3 )) (lambda () (vector 0 ))))) +(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line (lambda () (vector 4 (lambda () (vector 3 )) (lambda () (vector 1 #\ ))))) +(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-layoutWadlerLeijen (lambda (arg-1 arg-2 arg-3) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-n--6106-7396-u--best arg-3 arg-2 arg-1 0 0 (vector 1 0 arg-3 (vector 0 ))))) +(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-layoutUnbounded (lambda (ext-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-layoutWadlerLeijen (lambda (_-7653) (lambda (_-7655) (lambda (_-7657) (lambda (u--sdoc) 1)))) '() ext-0))) +(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-layoutPretty (lambda (arg-1 ext-0) (if (null? arg-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-layoutUnbounded ext-0) (let ((e-1 (car arg-1))) (let ((e-2 (cdr arg-1))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-layoutWadlerLeijen (lambda (u--lineIndent) (lambda (u--currentColumn) (lambda (_-7755) (lambda (u--sdoc) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-fits (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-remainingWidth e-1 e-2 u--lineIndent u--currentColumn) u--sdoc))))) arg-1 ext-0)))))) +(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-indent (lambda (arg-1 arg-2) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-hang arg-1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-spaces arg-1) arg-2)))) +(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-hsep (lambda (ext-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-concatWith (lambda (eta-0) (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 eta-0 eta-1))) ext-0))) +(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-hcat (lambda (ext-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-concatWith (lambda (eta-0) (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 eta-0 eta-1))) ext-0))) +(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-hardline (lambda () (vector 3 ))) +(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-hang (lambda (arg-1 arg-2) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-align (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-nest arg-1 arg-2)))) +(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-group (lambda (arg-1) (case (vector-ref arg-1 0) ((7) (let ((e-1 (vector-ref arg-1 1))) (let ((e-2 (vector-ref arg-1 2))) (vector 7 e-1 e-2)))) ((4) (let ((e-4 (vector-ref arg-1 1))) (let ((e-5 (vector-ref arg-1 2))) (let ((sc1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-changesUponFlattening (e-5)))) (case (vector-ref sc1 0) ((0) (let ((e-1 (vector-ref sc1 1))) (vector 7 (lambda () e-1) e-4))) ((1) (vector 7 e-5 e-4)) (else (e-4)))))))(else (let ((sc0 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-changesUponFlattening arg-1))) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (vector 7 (lambda () e-1) (lambda () arg-1)))) ((1) arg-1) (else arg-1))))))) +(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-flatten (lambda (arg-1) (case (vector-ref arg-1 0) ((0) (vector 0 )) ((1) (let ((e-2 (vector-ref arg-1 1))) (vector 1 e-2))) ((2) (let ((e-4 (vector-ref arg-1 1))) (let ((e-5 (vector-ref arg-1 2))) (vector 2 e-4 e-5)))) ((3) (vector 0 )) ((4) (let ((e-9 (vector-ref arg-1 2))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-flatten (e-9)))) ((5) (let ((e-11 (vector-ref arg-1 1))) (let ((e-12 (vector-ref arg-1 2))) (vector 5 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-flatten e-11) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-flatten e-12))))) ((6) (let ((e-14 (vector-ref arg-1 1))) (let ((e-15 (vector-ref arg-1 2))) (vector 6 e-14 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-flatten e-15))))) ((7) (let ((e-17 (vector-ref arg-1 1))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-flatten (e-17)))) ((8) (let ((e-20 (vector-ref arg-1 1))) (vector 8 (lambda (u--x) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-flatten (e-20 u--x)))))) ((9) (let ((e-22 (vector-ref arg-1 1))) (vector 9 (lambda (u--x) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-flatten (e-22 u--x)))))) ((10) (let ((e-24 (vector-ref arg-1 1))) (vector 10 (lambda (u--x) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-flatten (e-24 u--x)))))) (else (let ((e-26 (vector-ref arg-1 1))) (let ((e-27 (vector-ref arg-1 2))) (vector 11 e-26 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-flatten e-27)))))))) +(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-flatAlt (lambda (ext-0 ext-1) (vector 4 ext-0 ext-1))) +(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-fits (lambda (arg-1 arg-2) (let ((sc0 (PreludeC-45EqOrd-u--C-60_Ord_Int arg-1 (blodwen-toSignedInt 0 63)))) (cond ((equal? sc0 1) 0) (else (case (vector-ref arg-2 0) ((0) 1) ((1) (let ((e-3 (vector-ref arg-2 2))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-fits (PreludeC-45Num-u--C-45_Neg_Int arg-1 1) (e-3)))) ((2) (let ((e-5 (vector-ref arg-2 1))) (let ((e-7 (vector-ref arg-2 3))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-fits (PreludeC-45Num-u--C-45_Neg_Int arg-1 e-5) (e-7))))) ((3) 1) ((4) (let ((e-13 (vector-ref arg-2 2))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-fits arg-1 e-13))) (else (let ((e-15 (vector-ref arg-2 1))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-fits arg-1 e-15))))))))) +(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-fillSep (lambda (ext-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-concatWith (lambda (u--x) (lambda (u--y) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 u--x (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-softline)) u--y))) ext-0))) +(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-encloseSep (lambda (arg-1 arg-2 arg-3 arg-4) (if (null? arg-4) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 arg-1 arg-2) (let ((e-2 (car arg-4))) (let ((e-3 (cdr arg-4))) (if (null? e-3) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 arg-1 e-2) arg-2) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-cat (DataC-45List-u--zipWith_Zippable_List (lambda (eta-0) (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 eta-0 eta-1))) (cons arg-1 (DataC-45List-replicate (PreludeC-45Types-prim__integerToNat (- (PreludeC-45TypesC-45List-length arg-4) (+ 1 0))) arg-3)) arg-4)) arg-2))))))) +(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-enclose (lambda (arg-1 arg-2 arg-3) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 arg-1 arg-3) arg-2))) +(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-emptyDoc (lambda () (vector 0 ))) +(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-defaultPageWidth (lambda () (cons 80 1.0))) +(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-defaultLayoutOptions (lambda () (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-defaultPageWidth))) +(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-concatWith (lambda (arg-1 arg-2) (if (null? arg-2) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--neutral_Monoid_C-40DocC-32C-36annC-41) (let ((e-2 (car arg-2))) (let ((e-3 (cdr arg-2))) (PreludeC-45Types-u--foldl_Foldable_List arg-1 e-2 e-3)))))) +(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-column (lambda (ext-0) (vector 8 ext-0))) +(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-changesUponFlattening (lambda (arg-1) (case (vector-ref arg-1 0) ((0) (vector 1 )) ((1) (vector 1 )) ((2) (vector 1 )) ((3) (vector 2 )) ((4) (let ((e-9 (vector-ref arg-1 2))) (vector 0 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-flatten (e-9))))) ((5) (let ((e-11 (vector-ref arg-1 1))) (let ((e-12 (vector-ref arg-1 2))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-case--changesUponFlattening-4230 e-12 e-11 (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-changesUponFlattening e-11) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-changesUponFlattening e-12)))))) ((6) (let ((e-14 (vector-ref arg-1 1))) (let ((e-15 (vector-ref arg-1 2))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--map_Functor_FlattenResult (lambda (eta-0) (vector 6 e-14 eta-0)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-changesUponFlattening e-15))))) ((7) (let ((e-17 (vector-ref arg-1 1))) (vector 0 (e-17)))) ((8) (let ((e-20 (vector-ref arg-1 1))) (vector 0 (vector 8 (lambda (eta-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-flatten (e-20 eta-0))))))) ((9) (let ((e-22 (vector-ref arg-1 1))) (vector 0 (vector 9 (lambda (eta-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-flatten (e-22 eta-0))))))) ((10) (let ((e-24 (vector-ref arg-1 1))) (vector 0 (vector 10 (lambda (eta-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-flatten (e-24 eta-0))))))) (else (let ((e-26 (vector-ref arg-1 1))) (let ((e-27 (vector-ref arg-1 2))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--map_Functor_FlattenResult (lambda (eta-0) (vector 11 e-26 eta-0)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-changesUponFlattening e-27)))))))) +(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-cat (lambda (ext-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-group (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vcat ext-0)))) +(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-annotate (lambda (ext-0 ext-1) (vector 11 ext-0 ext-1))) +(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-alterAnnotations (lambda (arg-2 arg-3) (case (vector-ref arg-3 0) ((0) (vector 0 )) ((1) (let ((e-2 (vector-ref arg-3 1))) (vector 1 e-2))) ((2) (let ((e-4 (vector-ref arg-3 1))) (let ((e-5 (vector-ref arg-3 2))) (vector 2 e-4 e-5)))) ((3) (vector 3 )) ((4) (let ((e-8 (vector-ref arg-3 1))) (let ((e-9 (vector-ref arg-3 2))) (vector 4 (lambda () (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-alterAnnotations arg-2 (e-8))) (lambda () (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-alterAnnotations arg-2 (e-9))))))) ((5) (let ((e-11 (vector-ref arg-3 1))) (let ((e-12 (vector-ref arg-3 2))) (vector 5 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-alterAnnotations arg-2 e-11) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-alterAnnotations arg-2 e-12))))) ((6) (let ((e-14 (vector-ref arg-3 1))) (let ((e-15 (vector-ref arg-3 2))) (vector 6 e-14 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-alterAnnotations arg-2 e-15))))) ((7) (let ((e-17 (vector-ref arg-3 1))) (let ((e-18 (vector-ref arg-3 2))) (vector 7 (lambda () (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-alterAnnotations arg-2 (e-17))) (lambda () (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-alterAnnotations arg-2 (e-18))))))) ((8) (let ((e-20 (vector-ref arg-3 1))) (vector 8 (lambda (u--x) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-alterAnnotations arg-2 (e-20 u--x)))))) ((9) (let ((e-22 (vector-ref arg-3 1))) (vector 9 (lambda (u--x) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-alterAnnotations arg-2 (e-22 u--x)))))) ((10) (let ((e-24 (vector-ref arg-3 1))) (vector 10 (lambda (u--x) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-alterAnnotations arg-2 (e-24 u--x)))))) (else (let ((e-26 (vector-ref arg-3 1))) (let ((e-27 (vector-ref arg-3 2))) (PreludeC-45Types-u--foldr_Foldable_List (lambda (eta-0) (lambda (eta-1) (vector 11 eta-0 eta-1))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-alterAnnotations arg-2 e-27) (arg-2 e-26)))))))) +(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-align (lambda (arg-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-column (lambda (u--k) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-nesting (lambda (u--i) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-nest (PreludeC-45Num-u--C-45_Neg_Int u--k u--i) arg-1))))))) +(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (lambda (arg-1 arg-2) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 arg-1 (vector 1 #\ )) arg-2))) +(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-squotes (lambda (ext-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-enclose (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-squote) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-squote) ext-0))) +(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-squote (lambda () (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Char #\'))) +(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-space (lambda () (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Char #\ ))) +(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-slash (lambda () (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Char #\/))) +(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-semi (lambda () (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Char #\;))) +(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-rparen (lambda () (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Char #\)))) +(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-rbracket (lambda () (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Char #\]))) +(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-rbrace (lambda () (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Char #\}))) +(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-rangle (lambda () (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Char #\>))) +(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-pipe (lambda () (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Char #\|))) +(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-parenthesise (lambda (arg-1 ext-0) (cond ((equal? arg-1 1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-parens ext-0)) (else ext-0)))) +(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-parens (lambda (ext-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-enclose (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-lparen) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-rparen) ext-0))) +(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-lparen (lambda () (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Char #\())) +(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-lbracket (lambda () (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Char #\[))) +(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-lbrace (lambda () (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Char #\{))) +(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-langle (lambda () (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Char #\<))) +(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-equals (lambda () (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Char #\=))) +(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-dquotes (lambda (ext-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-enclose (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-dquote) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-dquote) ext-0))) +(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-dquote (lambda () (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Char #\"))) +(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-dot (lambda () (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Char #\.))) +(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-comma (lambda () (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Char #\,))) +(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon (lambda () (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Char #\:))) +(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-brackets (lambda (arg-1 arg-2 ext-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-enclose arg-1 arg-2 ext-0))) +(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-braces (lambda (ext-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-enclose (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-lbrace) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-rbrace) ext-0))) +(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-backslash (lambda () (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Char #\\))) +(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-angles (lambda (ext-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-enclose (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-langle) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-rangle) ext-0))) +(define DecidableC-45Equality-with--withC-32blockC-32inC-32decEq-1214 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (case (vector-ref arg-4 0) ((0) (let ((e-1 (vector-ref arg-4 1))) (cond (else (vector 0 0))))) (else (let ((e-3 (vector-ref arg-4 1))) (vector 1 (lambda (eta-0) (e-3 (Builtin-snd (DataC-45List-consInjective eta-0)))))))))) +(define DecidableC-45Equality-with--decEq-1164 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (case (vector-ref arg-4 0) ((1) (let ((e-1 (vector-ref arg-4 1))) (vector 1 (lambda (eta-0) (e-1 (Builtin-fst (DataC-45List-consInjective eta-0))))))) (else (let ((e-3 (vector-ref arg-4 1))) (cond (else (DecidableC-45Equality-with--withC-32blockC-32inC-32decEq-1214 'erased arg-1 arg-6 arg-5 (DecidableC-45Equality-u--decEq_DecEq_C-40ListC-32C-36aC-41 arg-1 arg-5 arg-6) arg-2)))))))) +(define DecidableC-45Equality-with--withC-32blockC-32inC-32decEq-1034 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (case (vector-ref arg-5 0) ((0) (let ((e-1 (vector-ref arg-5 1))) (cond (else (vector 0 0))))) (else (let ((e-3 (vector-ref arg-5 1))) (vector 1 (lambda (eta-0) (e-3 (Builtin-snd (DecidableC-45Equality-pairInjective eta-0)))))))))) +(define DecidableC-45Equality-with--decEq-975 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (case (vector-ref arg-5 0) ((1) (let ((e-1 (vector-ref arg-5 1))) (vector 1 (lambda (eta-0) (e-1 (Builtin-fst (DecidableC-45Equality-pairInjective eta-0))))))) (else (let ((e-3 (vector-ref arg-5 1))) (cond (else (DecidableC-45Equality-with--withC-32blockC-32inC-32decEq-1034 'erased 'erased arg-2 arg-6 arg-7 (((Builtin-snd arg-2) arg-6) arg-7) arg-3)))))))) +(define DecidableC-45Equality-n--3848-1611-u--primitiveNotEq (lambda (arg-0 arg-1 arg-5) (Builtin-believe_me 0))) +(define DecidableC-45Equality-n--3771-1540-u--primitiveNotEq (lambda (arg-0 arg-1 arg-5) (Builtin-believe_me 0))) +(define DecidableC-45Equality-n--3694-1469-u--primitiveNotEq (lambda (arg-0 arg-1 arg-5) (Builtin-believe_me 0))) +(define DecidableC-45Equality-n--3617-1398-u--primitiveNotEq (lambda (arg-0 arg-1 arg-5) (Builtin-believe_me 0))) +(define DecidableC-45Equality-n--3848-1610-u--primitiveEq (lambda (arg-0 arg-1) (Builtin-believe_me 0))) +(define DecidableC-45Equality-n--3771-1539-u--primitiveEq (lambda (arg-0 arg-1) (Builtin-believe_me 0))) +(define DecidableC-45Equality-n--3694-1468-u--primitiveEq (lambda (arg-0 arg-1) (Builtin-believe_me 0))) +(define DecidableC-45Equality-n--3617-1397-u--primitiveEq (lambda (arg-0 arg-1) (Builtin-believe_me 0))) +(define DecidableC-45Equality-u--decEq_DecEq_String (lambda (arg-0 arg-1) (let ((sc0 (PreludeC-45EqOrd-u--C-61C-61_Eq_String arg-0 arg-1))) (cond ((equal? sc0 1) (vector 0 (DecidableC-45Equality-n--3848-1610-u--primitiveEq arg-1 arg-0))) (else (vector 1 (lambda (eta-0) (DecidableC-45Equality-n--3848-1611-u--primitiveNotEq arg-1 arg-0 eta-0)))))))) +(define DecidableC-45Equality-u--decEq_DecEq_Integer (lambda (arg-0 arg-1) (let ((sc0 (PreludeC-45EqOrd-u--C-61C-61_Eq_Integer arg-0 arg-1))) (cond ((equal? sc0 1) (vector 0 (DecidableC-45Equality-n--3771-1539-u--primitiveEq arg-1 arg-0))) (else (vector 1 (lambda (eta-0) (DecidableC-45Equality-n--3771-1540-u--primitiveNotEq arg-1 arg-0 eta-0)))))))) +(define DecidableC-45Equality-u--decEq_DecEq_Int (lambda (arg-0 arg-1) (let ((sc0 (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-0 arg-1))) (cond ((equal? sc0 1) (vector 0 (DecidableC-45Equality-n--3617-1397-u--primitiveEq arg-1 arg-0))) (else (vector 1 (lambda (eta-0) (DecidableC-45Equality-n--3617-1398-u--primitiveNotEq arg-1 arg-0 eta-0)))))))) +(define DecidableC-45Equality-u--decEq_DecEq_Char (lambda (arg-0 arg-1) (let ((sc0 (PreludeC-45EqOrd-u--C-61C-61_Eq_Char arg-0 arg-1))) (cond ((equal? sc0 1) (vector 0 (DecidableC-45Equality-n--3694-1468-u--primitiveEq arg-1 arg-0))) (else (vector 1 (lambda (eta-0) (DecidableC-45Equality-n--3694-1469-u--primitiveNotEq arg-1 arg-0 eta-0)))))))) +(define DecidableC-45Equality-u--decEq_DecEq_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (lambda (arg-2 arg-3 arg-4) (let ((e-2 (car arg-3))) (let ((e-3 (cdr arg-3))) (let ((e-6 (car arg-4))) (let ((e-7 (cdr arg-4))) (DecidableC-45Equality-with--decEq-975 'erased 'erased arg-2 e-2 e-6 (((Builtin-fst arg-2) e-2) e-6) e-3 e-7))))))) +(define DecidableC-45Equality-u--decEq_DecEq_C-40ListC-32C-36aC-41 (lambda (arg-1 arg-2 arg-3) (if (null? arg-2) (if (null? arg-3) (vector 0 0) (vector 1 (lambda (eta-0) (PreludeC-45Uninhabited-absurd (lambda (eta-1) (DataC-45List-u--uninhabited_Uninhabited_C-40C-124C-40C-40C-61C-61C-61C-32NilC-41C-32C-40C-40C-58C-58C-32C-36xC-41C-32C-36xsC-41C-41C-44C-40C-40C-126C-61C-126C-32NilC-41C-32C-40C-40C-58C-58C-32C-36xC-41C-32C-36xsC-41C-41C-124C-41 eta-1)) eta-0)))) (let ((e-2 (car arg-2))) (let ((e-3 (cdr arg-2))) (if (null? arg-3) (vector 1 (lambda (eta-0) (PreludeC-45Uninhabited-absurd (lambda (eta-1) (DataC-45List-u--uninhabited_Uninhabited_C-40C-124C-40C-40C-61C-61C-61C-32C-40C-40C-58C-58C-32C-36xC-41C-32C-36xsC-41C-41C-32NilC-41C-44C-40C-40C-126C-61C-126C-32C-40C-40C-58C-58C-32C-36xC-41C-32C-36xsC-41C-41C-32NilC-41C-124C-41 eta-1)) eta-0))) (let ((e-10 (car arg-3))) (let ((e-11 (cdr arg-3))) (DecidableC-45Equality-with--decEq-1164 'erased arg-1 e-2 e-10 ((arg-1 e-2) e-10) e-3 e-11))))))))) +(define DecidableC-45Equality-pairInjective (lambda (arg-6) (cond (else (cons 0 0))))) +(define DataC-45Either-rights (lambda (arg-2) (if (null? arg-2) '() (let ((e-2 (car arg-2))) (let ((e-3 (cdr arg-2))) (case (vector-ref e-2 0) ((0) (DataC-45Either-rights e-3)) (else (let ((e-9 (vector-ref e-2 1))) (cons e-9 (DataC-45Either-rights e-3)))))))))) +(define DataC-45Either-partitionEithers (lambda (arg-2) (cons (DataC-45Either-lefts arg-2) (DataC-45Either-rights arg-2)))) +(define DataC-45Either-maybeToEither (lambda (arg-2 arg-3) (if (null? arg-3) (vector 0 (arg-2)) (let ((e-1 (unbox arg-3))) (vector 1 e-1))))) +(define DataC-45Either-lefts (lambda (arg-2) (if (null? arg-2) '() (let ((e-2 (car arg-2))) (let ((e-3 (cdr arg-2))) (case (vector-ref e-2 0) ((0) (let ((e-6 (vector-ref e-2 1))) (cons e-6 (DataC-45Either-lefts e-3)))) (else (DataC-45Either-lefts e-3)))))))) +(define DataC-45Either-getRight (lambda (arg-2) (case (vector-ref arg-2 0) ((1) (let ((e-2 (vector-ref arg-2 1))) (box e-2)))(else '())))) +(define DataC-45Either-compressRights (lambda (arg-2 arg-3) (if (null? arg-3) (cons (vector 1 (DataC-45List1-reverse arg-2)) (DataC-45Either-compress arg-3)) (let ((e-1 (car arg-3))) (let ((e-2 (cdr arg-3))) (case (vector-ref e-1 0) ((1) (let ((e-5 (vector-ref e-1 1))) (DataC-45Either-compressRights (DataC-45List1-cons e-5 arg-2) e-2)))(else (cons (vector 1 (DataC-45List1-reverse arg-2)) (DataC-45Either-compress arg-3))))))))) +(define DataC-45Either-compressLefts (lambda (arg-2 arg-3) (if (null? arg-3) (cons (vector 0 (DataC-45List1-reverse arg-2)) (DataC-45Either-compress arg-3)) (let ((e-1 (car arg-3))) (let ((e-2 (cdr arg-3))) (case (vector-ref e-1 0) ((0) (let ((e-5 (vector-ref e-1 1))) (DataC-45Either-compressLefts (DataC-45List1-cons e-5 arg-2) e-2)))(else (cons (vector 0 (DataC-45List1-reverse arg-2)) (DataC-45Either-compress arg-3))))))))) +(define DataC-45Either-compress (lambda (arg-2) (if (null? arg-2) '() (let ((e-2 (car arg-2))) (let ((e-3 (cdr arg-2))) (case (vector-ref e-2 0) ((0) (let ((e-6 (vector-ref e-2 1))) (DataC-45Either-compressLefts (DataC-45List1-singleton e-6) e-3))) (else (let ((e-9 (vector-ref e-2 1))) (DataC-45Either-compressRights (DataC-45List1-singleton e-9) e-3))))))))) +(define DataC-45IOArray-n--2646-1081-u--iter (lambda (arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-4 arg-5))) (cond ((equal? sc0 1) (let ((e-1 (car arg-2))) (let ((e-5 (vector-ref e-1 0))) (let ((e-7 (vector-ref e-5 1))) ((e-7 'erased) (DataC-45List-reverse arg-6)))))) (else (let ((e-1 (car arg-2))) (let ((e-4 (vector-ref e-1 1))) ((((e-4 'erased) 'erased) (DataC-45IOArray-readArray arg-2 arg-3 arg-4)) (lambda (u--el) (DataC-45IOArray-n--2646-1081-u--iter arg-2 arg-3 (bs+ arg-4 1 63) arg-5 (cons u--el arg-6))))))))))) +(define DataC-45IOArray-n--2477-918-u--copyFrom (lambda (arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 (PreludeC-45EqOrd-u--C-60_Ord_Int arg-7 (blodwen-toSignedInt 0 63)))) (cond ((equal? sc0 1) (let ((e-1 (car arg-2))) (let ((e-5 (vector-ref e-1 0))) (let ((e-7 (vector-ref e-5 1))) ((e-7 'erased) 0))))) (else (let ((e-1 (car arg-2))) (let ((e-4 (vector-ref e-1 1))) ((((e-4 'erased) 'erased) (let ((e-6 (cdr arg-2))) ((e-6 'erased) (lambda (eta-0) (vector-ref arg-5 arg-7))))) (lambda (u--el) (PreludeC-45Interfaces-C-62C-62 (let ((e-7 (car arg-2))) e-7) (let ((e-6 (cdr arg-2))) ((e-6 'erased) (lambda (eta-0) (vector-set! arg-6 arg-7 u--el)))) (lambda () (DataC-45IOArray-n--2477-918-u--copyFrom arg-2 arg-3 arg-4 arg-5 arg-6 (PreludeC-45Num-u--C-45_Neg_Int arg-7 1))))))))))))) +(define DataC-45IOArray-writeArray (lambda (arg-2 arg-3 arg-4 arg-5) (let ((sc0 (let ((sc1 (PreludeC-45EqOrd-u--C-60_Ord_Int arg-4 (blodwen-toSignedInt 0 63)))) (cond ((equal? sc1 1) 1) (else (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-4 (DataC-45IOArray-max arg-3))))))) (cond ((equal? sc0 1) (let ((e-1 (car arg-2))) (let ((e-5 (vector-ref e-1 0))) (let ((e-7 (vector-ref e-5 1))) ((e-7 'erased) 0))))) (else (let ((e-2 (cdr arg-2))) ((e-2 'erased) (lambda (eta-0) (vector-set! (let ((e-3 (cdr arg-3))) e-3) arg-4 (box arg-5)))))))))) +(define DataC-45IOArray-toList (lambda (arg-2 arg-3) (DataC-45IOArray-n--2646-1081-u--iter arg-2 arg-3 0 (DataC-45IOArray-max arg-3) '()))) +(define DataC-45IOArray-readArray (lambda (arg-2 arg-3 arg-4) (let ((sc0 (let ((sc1 (PreludeC-45EqOrd-u--C-60_Ord_Int arg-4 (blodwen-toSignedInt 0 63)))) (cond ((equal? sc1 1) 1) (else (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-4 (DataC-45IOArray-max arg-3))))))) (cond ((equal? sc0 1) (let ((e-1 (car arg-2))) (let ((e-5 (vector-ref e-1 0))) (let ((e-7 (vector-ref e-5 1))) ((e-7 'erased) '()))))) (else (let ((e-2 (cdr arg-2))) ((e-2 'erased) (lambda (eta-0) (vector-ref (let ((e-3 (cdr arg-3))) e-3) arg-4))))))))) +(define DataC-45IOArray-newArrayCopy (lambda (arg-2 arg-3 arg-4) (let ((u--newsizeC-39 (let ((sc0 (PreludeC-45EqOrd-u--C-60_Ord_Int arg-3 (DataC-45IOArray-max arg-4)))) (cond ((equal? sc0 1) (DataC-45IOArray-max arg-4)) (else arg-3))))) (let ((e-1 (car arg-2))) (let ((e-4 (vector-ref e-1 1))) ((((e-4 'erased) 'erased) (DataC-45IOArray-newArray arg-2 u--newsizeC-39)) (lambda (u--arrC-39) (PreludeC-45Interfaces-C-62C-62 (let ((e-7 (car arg-2))) e-7) (DataC-45IOArray-n--2477-918-u--copyFrom arg-2 arg-4 arg-3 (let ((e-6 (cdr arg-4))) e-6) (let ((e-6 (cdr u--arrC-39))) e-6) (PreludeC-45Num-u--C-45_Neg_Int (DataC-45IOArray-max arg-4) (blodwen-toSignedInt 1 63))) (lambda () (let ((e-7 (car arg-2))) (let ((e-10 (vector-ref e-7 0))) (let ((e-12 (vector-ref e-10 1))) ((e-12 'erased) u--arrC-39))))))))))))) +(define DataC-45IOArray-newArray (lambda (arg-2 arg-3) (let ((e-1 (car arg-2))) (let ((e-4 (vector-ref e-1 1))) ((((e-4 'erased) 'erased) (let ((e-6 (cdr arg-2))) ((e-6 'erased) (lambda (eta-0) (make-vector arg-3 '()))))) (lambda (bind-0) (let ((e-7 (car arg-2))) (let ((e-10 (vector-ref e-7 0))) (let ((e-12 (vector-ref e-10 1))) ((e-12 'erased) (cons arg-3 bind-0))))))))))) +(define DataC-45IOArray-max (lambda (ext-0) (let ((e-1 (car ext-0))) e-1))) +(define LibrariesC-45UtilsC-45Binary-n--6540-3343-u--writeAll (lambda (arg-1 arg-2 arg-3 arg-4 arg-6 ext-0) (if (null? arg-6) (vector 1 0) (let ((e-3 (car arg-6))) (let ((e-4 (cdr arg-6))) (let ((act-24 (let ((e-1 (car arg-2))) (((e-1 arg-4) e-3) ext-0)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (LibrariesC-45UtilsC-45Binary-n--6540-3343-u--writeAll arg-1 arg-2 arg-3 arg-4 e-4 ext-0))))))))) +(define LibrariesC-45UtilsC-45Binary-n--6544-3368-u--readElems (lambda (arg-1 arg-2 arg-3 arg-5 arg-6) (cond ((equal? arg-6 0) (lambda (eta-0) (vector 1 (DataC-45Vect-reverse arg-5))))(else (let ((e-0 (- arg-6 1))) (lambda (eta-0) (let ((act-24 (let ((e-2 (cdr arg-1))) ((e-2 arg-2) eta-0)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) ((LibrariesC-45UtilsC-45Binary-n--6544-3368-u--readElems arg-1 arg-2 arg-3 (cons e-5 arg-5) e-0) eta-0))))))))))) +(define LibrariesC-45UtilsC-45Binary-n--6394-3230-u--readElems (lambda (arg-1 arg-2 arg-3 arg-4) (cond ((equal? arg-4 0) (lambda (eta-0) (vector 1 (DataC-45List-reverse arg-3))))(else (let ((e-0 (- arg-4 1))) (lambda (eta-0) (let ((act-24 (let ((e-2 (cdr arg-1))) ((e-2 arg-2) eta-0)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) ((LibrariesC-45UtilsC-45Binary-n--6394-3230-u--readElems arg-1 arg-2 (cons e-5 arg-3) e-0) eta-0))))))))))) +(define LibrariesC-45UtilsC-45Binary-n--7041-3797-u--osEscape (lambda (arg-0 ext-0) (let ((sc0 (SystemC-45Info-isWindows))) (cond ((equal? sc0 1) ext-0) (else (LibrariesC-45UtilsC-45String-escapeStringUnix ext-0)))))) +(define LibrariesC-45UtilsC-45Binary-n--6390-3196-u--length_aux (lambda (arg-1 arg-2 arg-3 arg-4 arg-5) (if (null? arg-4) arg-5 (let ((e-3 (cdr arg-4))) (LibrariesC-45UtilsC-45Binary-n--6390-3196-u--length_aux arg-1 arg-2 arg-3 e-3 (bs+ 1 arg-5 63)))))) +(define LibrariesC-45UtilsC-45Binary-n--6390-3197-u--TailRec_length (lambda (arg-1 arg-2 arg-3 arg-4) (LibrariesC-45UtilsC-45Binary-n--6390-3196-u--length_aux arg-1 arg-2 arg-3 arg-4 0))) +(define LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_WastefulInt (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((sc1 (PreludeC-45EqOrd-u--C-62C-61_Ord_Int (LibrariesC-45UtilsC-45Binary-avail e-5) 8))) (cond ((equal? sc1 1) (let ((act-25 (let ((act-25 (DataC-45Buffer-prim__setInt (let ((e-0 (vector-ref e-5 0))) e-0) (let ((e-1 (vector-ref e-5 1))) e-1) arg-1 ext-0))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 (set-box! arg-0 (LibrariesC-45UtilsC-45Binary-appended 8 e-5)))) (vector 1 act-26)))))) (else (let ((act-25 ((LibrariesC-45UtilsC-45Binary-extendBinary 8 e-5) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (let ((act-26 (DataC-45Buffer-prim__setInt (let ((e-0 (vector-ref e-6 0))) e-0) (let ((e-1 (vector-ref e-6 1))) e-1) arg-1 ext-0))) (vector 1 act-26)))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((act-27 (set-box! arg-0 (LibrariesC-45UtilsC-45Binary-appended 8 e-6)))) (vector 1 act-27)))))))))))))))))) +(define LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String (lambda (arg-0 arg-1) (let ((u--req (DataC-45Buffer-stringByteLength arg-1))) (lambda (eta-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-0 u--req eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 (let ((act-25 (unbox arg-0))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((sc2 (PreludeC-45EqOrd-u--C-62C-61_Ord_Int (LibrariesC-45UtilsC-45Binary-avail e-6) u--req))) (cond ((equal? sc2 1) (let ((act-26 (let ((act-26 (DataC-45Buffer-prim__setString (let ((e-0 (vector-ref e-6 0))) e-0) (let ((e-1 (vector-ref e-6 1))) e-1) arg-1 eta-0))) (vector 1 act-26)))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((act-27 (set-box! arg-0 (LibrariesC-45UtilsC-45Binary-appended u--req e-6)))) (vector 1 act-27)))))) (else (let ((act-26 ((LibrariesC-45UtilsC-45Binary-extendBinary u--req e-6) eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (let ((act-27 (DataC-45Buffer-prim__setString (let ((e-0 (vector-ref e-7 0))) e-0) (let ((e-1 (vector-ref e-7 1))) e-1) arg-1 eta-0))) (vector 1 act-27)))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((act-28 (set-box! arg-0 (LibrariesC-45UtilsC-45Binary-appended u--req e-7)))) (vector 1 act-28))))))))))))))))))))))) +(define LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat (lambda (arg-0 arg-1 ext-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Integer arg-0 (PreludeC-45Cast-u--cast_Cast_Nat_Integer arg-1) ext-0))) +(define LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Integer (lambda (arg-0 arg-1 ext-0) (let ((sc0 (PreludeC-45EqOrd-u--C-60_Ord_Integer arg-1 0))) (cond ((equal? sc0 1) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1461 eta-0)))) arg-0 (LibrariesC-45UtilsC-45Binary-toLimbs (PreludeC-45Num-u--negate_Neg_Integer arg-1)) ext-0))))) (else (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 1 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1461 eta-0)))) arg-0 (LibrariesC-45UtilsC-45Binary-toLimbs arg-1) ext-0))))))))) +(define LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int (lambda (arg-0 arg-1 ext-0) (let ((sc0 (let ((sc1 (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-1 (blodwen-toSignedInt -127 63)))) (cond ((equal? sc1 1) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-1 (blodwen-toSignedInt 128 63))) (else 0))))) (cond ((equal? sc0 1) (LibrariesC-45UtilsC-45Binary-tag arg-0 (bs+ arg-1 (blodwen-toSignedInt 127 63) 63) ext-0)) (else (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 (blodwen-toSignedInt 255 63) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 (let ((act-25 (unbox arg-0))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((sc3 (PreludeC-45EqOrd-u--C-62C-61_Ord_Int (LibrariesC-45UtilsC-45Binary-avail e-6) 8))) (cond ((equal? sc3 1) (let ((act-26 (let ((act-26 (DataC-45Buffer-prim__setInt (let ((e-0 (vector-ref e-6 0))) e-0) (let ((e-1 (vector-ref e-6 1))) e-1) arg-1 ext-0))) (vector 1 act-26)))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((act-27 (set-box! arg-0 (LibrariesC-45UtilsC-45Binary-appended 8 e-6)))) (vector 1 act-27)))))) (else (let ((act-26 ((LibrariesC-45UtilsC-45Binary-extendBinary 8 e-6) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (let ((act-27 (DataC-45Buffer-prim__setInt (let ((e-0 (vector-ref e-7 0))) e-0) (let ((e-1 (vector-ref e-7 1))) e-1) arg-1 ext-0))) (vector 1 act-27)))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((act-28 (set-box! arg-0 (LibrariesC-45UtilsC-45Binary-appended 8 e-7)))) (vector 1 act-28)))))))))))))))))))))))) +(define LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Double (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((sc1 (PreludeC-45EqOrd-u--C-62C-61_Ord_Int (LibrariesC-45UtilsC-45Binary-avail e-5) 8))) (cond ((equal? sc1 1) (let ((act-25 (let ((act-25 (DataC-45Buffer-prim__setDouble (let ((e-0 (vector-ref e-5 0))) e-0) (let ((e-1 (vector-ref e-5 1))) e-1) arg-1 ext-0))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 (set-box! arg-0 (LibrariesC-45UtilsC-45Binary-appended 8 e-5)))) (vector 1 act-26)))))) (else (let ((act-25 ((LibrariesC-45UtilsC-45Binary-extendBinary 8 e-5) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (let ((act-26 (DataC-45Buffer-prim__setDouble (let ((e-0 (vector-ref e-6 0))) e-0) (let ((e-1 (vector-ref e-6 1))) e-1) arg-1 ext-0))) (vector 1 act-26)))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((act-27 (set-box! arg-0 (LibrariesC-45UtilsC-45Binary-appended 8 e-6)))) (vector 1 act-27)))))))))))))))))) +(define LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Char (lambda (arg-0 arg-1) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-0 (PreludeC-45Cast-u--cast_Cast_Char_Int arg-1) eta-0)))) +(define LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Bool (lambda (arg-0 arg-1 ext-0) (cond ((equal? arg-1 0) (LibrariesC-45UtilsC-45Binary-tag arg-0 0 ext-0)) (else (LibrariesC-45UtilsC-45Binary-tag arg-0 1 ext-0))))) +(define LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Binary (lambda (arg-0 arg-1) (let ((u--len (let ((e-3 (vector-ref arg-1 3))) e-3))) (lambda (eta-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-0 u--len eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 (let ((act-25 (unbox arg-0))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((sc2 (PreludeC-45EqOrd-u--C-62C-61_Ord_Int (LibrariesC-45UtilsC-45Binary-avail e-6) u--len))) (cond ((equal? sc2 1) (let ((act-26 (let ((act-26 ((DataC-45Buffer-copyData (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-1)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-1) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-1) (let ((act-17 (arg-528 eta-1))) (let ((act-16 (arg-530 eta-1))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-1) (let ((act-26 (arg-811 eta-1))) ((arg-812 act-26) eta-1))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-1) (let ((act-51 (arg-814 eta-1))) (act-51 eta-1)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) (let ((e-0 (vector-ref arg-1 0))) e-0) 0 u--len (let ((e-0 (vector-ref e-6 0))) e-0) (let ((e-1 (vector-ref e-6 1))) e-1)) eta-0))) (vector 1 act-26)))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((act-27 (set-box! arg-0 (LibrariesC-45UtilsC-45Binary-appended u--len e-6)))) (vector 1 act-27)))))) (else (let ((act-26 ((LibrariesC-45UtilsC-45Binary-extendBinary u--len e-6) eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (let ((act-27 ((DataC-45Buffer-copyData (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-1)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-1) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-1) (let ((act-17 (arg-528 eta-1))) (let ((act-16 (arg-530 eta-1))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-1) (let ((act-27 (arg-811 eta-1))) ((arg-812 act-27) eta-1))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-1) (let ((act-51 (arg-814 eta-1))) (act-51 eta-1)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) (let ((e-0 (vector-ref arg-1 0))) e-0) 0 u--len (let ((e-0 (vector-ref e-7 0))) e-0) (let ((e-1 (vector-ref e-7 1))) e-1)) eta-0))) (vector 1 act-27)))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((act-28 (set-box! arg-0 (LibrariesC-45UtilsC-45Binary-appended u--len e-7)))) (vector 1 act-28))))))))))))))))))))))) +(define LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124UnitC-44MkUnitC-124C-41 (lambda (arg-0 arg-1 ext-0) (cond (else (vector 1 0))))) +(define LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (lambda (arg-2 arg-3 arg-4 ext-0) (let ((e-2 (car arg-4))) (let ((e-3 (cdr arg-4))) (let ((act-24 (let ((sc1 (Builtin-fst arg-2))) (let ((e-1 (car sc1))) (((e-1 arg-3) e-2) ext-0))))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((sc2 (Builtin-snd arg-2))) (let ((e-1 (car sc2))) (((e-1 arg-3) e-3) ext-0)))))))))) +(define LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40PosMapC-32C-36aC-41 (lambda (arg-1 arg-2 ext-1 ext-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (Builtin-fst arg-1) arg-2 (LibrariesC-45DataC-45PosMap-u--toList_Foldable_PosMap ext-1) ext-0))) +(define LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40MaybeC-32C-36aC-41 (lambda (arg-1 arg-2 arg-3 ext-0) (if (null? arg-3) (LibrariesC-45UtilsC-45Binary-tag arg-2 0 ext-0) (let ((e-2 (unbox arg-3))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-2 1 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (let ((e-1 (car arg-1))) (((e-1 arg-2) e-2) ext-0))))))))) +(define LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (lambda (arg-1 arg-2 arg-3 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-2 (LibrariesC-45UtilsC-45Binary-n--6390-3197-u--TailRec_length arg-1 arg-3 arg-2 arg-3) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (CoreC-45Core-traverse_ (lambda (clam-0) (let ((e-1 (car arg-1))) ((e-1 arg-2) clam-0))) arg-3 ext-0)))))) +(define LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-40VectC-32C-36nC-41C-32C-36aC-41 (lambda (arg-1 arg-2 arg-3 arg-4 ext-0) (LibrariesC-45UtilsC-45Binary-n--6540-3343-u--writeAll arg-1 arg-2 arg-4 arg-3 arg-4 ext-0))) +(define LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-40DPairC-32C-36aC-41C-32C-36pC-41 (lambda (arg-2 arg-3 arg-4 ext-0) (let ((e-2 (car arg-4))) (let ((e-3 (cdr arg-4))) (let ((act-24 (let ((sc1 (Builtin-fst arg-2))) (let ((e-1 (car sc1))) (((e-1 arg-3) e-2) ext-0))))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((sc2 ((Builtin-snd arg-2) e-2))) (let ((e-1 (car sc2))) (((e-1 arg-3) e-3) ext-0)))))))))) +(define LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_WastefulInt (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((sc1 (PreludeC-45EqOrd-u--C-62C-61_Ord_Int (LibrariesC-45UtilsC-45Binary-toRead e-5) 8))) (cond ((equal? sc1 1) (let ((act-25 (let ((act-25 (DataC-45Buffer-prim__getInt (let ((e-0 (vector-ref e-5 0))) e-0) (let ((e-1 (vector-ref e-5 1))) e-1) ext-0))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (let ((act-26 (set-box! arg-0 (LibrariesC-45UtilsC-45Binary-incLoc 8 e-5)))) (vector 1 act-26)))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (vector 1 e-6))))))))) (else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 48 (vector 1 (PreludeC-45TypesC-45String-C-43C-43 "Int " (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_Int u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_Int u--d u--x)))) (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_Int u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_Int u--d u--x))))) (cons (let ((e-1 (vector-ref e-5 1))) e-1) (let ((e-2 (vector-ref e-5 2))) e-2)))))) ext-0)))))))))) +(define LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String (lambda (arg-0 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (let ((act-25 (unbox arg-0))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (let ((sc2 (PreludeC-45EqOrd-u--C-60_Ord_Int e-5 0))) (cond ((equal? sc2 1) (LibrariesC-45UtilsC-45Binary-corrupt "String" ext-0)) (else (vector 1 0)))))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((sc3 (PreludeC-45EqOrd-u--C-62C-61_Ord_Int (LibrariesC-45UtilsC-45Binary-toRead e-6) e-5))) (cond ((equal? sc3 1) (let ((act-27 (let ((act-27 (DataC-45Buffer-prim__getString (let ((e-0 (vector-ref e-6 0))) e-0) (let ((e-1 (vector-ref e-6 1))) e-1) e-5 ext-0))) (vector 1 act-27)))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (let ((act-28 (let ((act-28 (set-box! arg-0 (LibrariesC-45UtilsC-45Binary-incLoc e-5 e-6)))) (vector 1 act-28)))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (vector 1 e-8))))))))) (else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 48 (vector 1 (PreludeC-45TypesC-45String-C-43C-43 "String length " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Int e-5) (PreludeC-45TypesC-45String-C-43C-43 " at " (PreludeC-45Show-u--show_Show_Int (let ((e-1 (vector-ref e-6 1))) e-1))))))) ext-0))))))))))))))))) +(define LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat (lambda (arg-0 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Integer arg-0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (PreludeC-45Types-u--fromInteger_Num_Nat e-5)))))))) +(define LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Integer (lambda (arg-0 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-getTag arg-0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (cond ((equal? e-5 0) (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1461 eta-0)))) arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (PreludeC-45Num-u--negate_Neg_Integer (LibrariesC-45UtilsC-45Binary-fromLimbs e-6)))))))) ((equal? e-5 1) (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1461 eta-0)))) arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (LibrariesC-45UtilsC-45Binary-fromLimbs e-6)))))))(else (LibrariesC-45UtilsC-45Binary-corrupt "Integer" ext-0))))))))) +(define LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int (lambda (arg-0 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-getTag arg-0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (cond ((equal? e-5 255) (let ((act-25 (let ((act-25 (unbox arg-0))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((sc3 (PreludeC-45EqOrd-u--C-62C-61_Ord_Int (LibrariesC-45UtilsC-45Binary-toRead e-6) 8))) (cond ((equal? sc3 1) (let ((act-26 (let ((act-26 (DataC-45Buffer-prim__getInt (let ((e-0 (vector-ref e-6 0))) e-0) (let ((e-1 (vector-ref e-6 1))) e-1) ext-0))) (vector 1 act-26)))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (let ((act-27 (set-box! arg-0 (LibrariesC-45UtilsC-45Binary-incLoc 8 e-6)))) (vector 1 act-27)))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (vector 1 e-7))))))))) (else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 48 (vector 1 (PreludeC-45TypesC-45String-C-43C-43 "Int " (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_Int u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_Int u--d u--x)))) (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_Int u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_Int u--d u--x))))) (cons (let ((e-1 (vector-ref e-6 1))) e-1) (let ((e-2 (vector-ref e-6 2))) e-2)))))) ext-0)))))))))(else (vector 1 (PreludeC-45Num-u--C-45_Neg_Int e-5 (blodwen-toSignedInt 127 63))))))))))) +(define LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Double (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((sc1 (PreludeC-45EqOrd-u--C-62C-61_Ord_Int (LibrariesC-45UtilsC-45Binary-toRead e-5) 8))) (cond ((equal? sc1 1) (let ((act-25 (let ((act-25 (DataC-45Buffer-prim__getDouble (let ((e-0 (vector-ref e-5 0))) e-0) (let ((e-1 (vector-ref e-5 1))) e-1) ext-0))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (let ((act-26 (set-box! arg-0 (LibrariesC-45UtilsC-45Binary-incLoc 8 e-5)))) (vector 1 act-26)))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (vector 1 e-6))))))))) (else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 48 (vector 1 "Double")) ext-0)))))))))) +(define LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Char (lambda (arg-0 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (PreludeC-45Cast-u--cast_Cast_Int_Char e-5)))))))) +(define LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Bool (lambda (arg-0 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-getTag arg-0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (cond ((equal? e-5 0) (vector 1 0)) ((equal? e-5 1) (vector 1 1))(else (LibrariesC-45UtilsC-45Binary-corrupt "Bool" ext-0))))))))) +(define LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Binary (lambda (arg-0 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (let ((act-25 (unbox arg-0))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((sc2 (PreludeC-45EqOrd-u--C-62C-61_Ord_Int (LibrariesC-45UtilsC-45Binary-toRead e-6) e-5))) (cond ((equal? sc2 1) (let ((act-26 (let ((act-26 ((DataC-45Buffer-newBuffer (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-26 (arg-811 eta-0))) ((arg-812 act-26) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-51 (arg-814 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) e-5) ext-0))) (vector 1 act-26)))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (if (null? e-7) (LibrariesC-45UtilsC-45Binary-corrupt "Binary" ext-0) (let ((e-1 (unbox e-7))) (let ((act-27 (let ((act-27 ((DataC-45Buffer-copyData (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-27 (arg-811 eta-0))) ((arg-812 act-27) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-51 (arg-814 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) (let ((e-0 (vector-ref e-6 0))) e-0) (let ((e-4 (vector-ref e-6 1))) e-4) e-5 e-1 0) ext-0))) (vector 1 act-27)))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((act-28 (let ((act-28 (set-box! arg-0 (LibrariesC-45UtilsC-45Binary-incLoc e-5 e-6)))) (vector 1 act-28)))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (vector 1 (vector e-1 0 e-5 e-5))))))))))))))) (else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 48 (vector 1 "Binary")) ext-0)))))))))))))) +(define LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124UnitC-44MkUnitC-124C-41 (lambda (arg-0 ext-0) (vector 1 0))) +(define LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (lambda (arg-2 arg-3 ext-0) (let ((act-24 (let ((sc0 (Builtin-fst arg-2))) (let ((e-2 (cdr sc0))) ((e-2 arg-3) ext-0))))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (let ((sc1 (Builtin-snd arg-2))) (let ((e-2 (cdr sc1))) ((e-2 arg-3) ext-0))))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (cons e-5 e-6)))))))))))) +(define LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40PosMapC-32C-36aC-41 (lambda (arg-1 arg-2 ext-0) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-2 (vector-ref eta-0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-0 1))) (vector 1 (LibrariesC-45DataC-45PosMap-fromList (Builtin-snd arg-1) e-5)))))) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (Builtin-fst arg-1) arg-2 eta-0)) ext-0))) +(define LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40MaybeC-32C-36aC-41 (lambda (arg-1 arg-2 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-getTag arg-2 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (cond ((equal? e-5 0) (vector 1 '())) ((equal? e-5 1) (let ((act-25 (let ((e-2 (cdr arg-1))) ((e-2 arg-2) ext-0)))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (box e-6)))))))(else (LibrariesC-45UtilsC-45Binary-corrupt "Maybe" ext-0))))))))) +(define LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (lambda (arg-1 arg-2 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-2 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) ((LibrariesC-45UtilsC-45Binary-n--6394-3230-u--readElems arg-1 arg-2 '() (PreludeC-45Types-prim__integerToNat (PreludeC-45Cast-u--cast_Cast_Int_Integer e-5))) ext-0))))))) +(define LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-40VectC-32C-36nC-41C-32C-36aC-41 (lambda (arg-1 arg-2 arg-3) (LibrariesC-45UtilsC-45Binary-n--6544-3368-u--readElems arg-2 arg-3 arg-1 '() arg-1))) +(define LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-40DPairC-32C-36aC-41C-32C-36pC-41 (lambda (arg-2 arg-3 ext-0) (let ((act-24 (let ((sc0 (Builtin-fst arg-2))) (let ((e-2 (cdr sc0))) ((e-2 arg-3) ext-0))))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (let ((sc1 ((Builtin-snd arg-2) e-5))) (let ((e-2 (cdr sc1))) ((e-2 arg-3) ext-0))))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (cons e-5 e-6)))))))))))) +(define LibrariesC-45UtilsC-45Binary-writeToFile (lambda (arg-0 arg-1) (DataC-45Buffer-writeBufferToFile (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-24 (arg-811 eta-0))) ((arg-812 act-24) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-51 (arg-814 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) arg-0 (let ((e-0 (vector-ref arg-1 0))) e-0) (let ((e-3 (vector-ref arg-1 3))) e-3)))) +(define LibrariesC-45UtilsC-45Binary-toRead (lambda (arg-0) (PreludeC-45Num-u--C-45_Neg_Int (let ((e-3 (vector-ref arg-0 3))) e-3) (let ((e-1 (vector-ref arg-0 1))) e-1)))) +(define LibrariesC-45UtilsC-45Binary-toLimbs (lambda (arg-0) (let ((sc0 (PreludeC-45EqOrd-u--C-61C-61_Eq_Integer arg-0 0))) (cond ((equal? sc0 1) '()) (else (let ((sc1 (PreludeC-45EqOrd-u--C-61C-61_Eq_Integer arg-0 -1))) (cond ((equal? sc1 1) (cons -1 '())) (else (cons (blodwen-toSignedInt (blodwen-and arg-0 4294967295) 63) (LibrariesC-45UtilsC-45Binary-toLimbs (blodwen-shr arg-0 32))))))))))) +(define LibrariesC-45UtilsC-45Binary-tag (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((sc1 (PreludeC-45EqOrd-u--C-62C-61_Ord_Int (LibrariesC-45UtilsC-45Binary-avail e-5) 1))) (cond ((equal? sc1 1) (let ((act-25 (let ((act-25 (DataC-45Buffer-prim__setByte (let ((e-0 (vector-ref e-5 0))) e-0) (let ((e-1 (vector-ref e-5 1))) e-1) arg-1 ext-0))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 (set-box! arg-0 (LibrariesC-45UtilsC-45Binary-appended 1 e-5)))) (vector 1 act-26)))))) (else (let ((act-25 ((LibrariesC-45UtilsC-45Binary-extendBinary 1 e-5) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (let ((act-26 (DataC-45Buffer-prim__setByte (let ((e-0 (vector-ref e-6 0))) e-0) (let ((e-1 (vector-ref e-6 1))) e-1) arg-1 ext-0))) (vector 1 act-26)))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((act-27 (set-box! arg-0 (LibrariesC-45UtilsC-45Binary-appended 1 e-6)))) (vector 1 act-27)))))))))))))))))) +(define LibrariesC-45UtilsC-45Binary-readFromFile (lambda (arg-0 ext-0) (let ((act-24 ((DataC-45Buffer-createBufferFromFile (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-24 (arg-811 eta-0))) ((arg-812 act-24) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-51 (arg-814 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) arg-0) ext-0))) (case (vector-ref act-24 0) ((1) (let ((e-2 (vector-ref act-24 1))) (let ((act-25 (DataC-45Buffer-prim__bufferSize e-2))) (vector 1 (vector e-2 0 act-25 act-25))))) (else (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))))))) +(define LibrariesC-45UtilsC-45Binary-newBinary (lambda (arg-0 arg-1) (vector arg-0 0 arg-1 0))) +(define LibrariesC-45UtilsC-45Binary-modTime (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 ((SystemC-45File-openFile (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-24 (arg-811 eta-0))) ((arg-812 act-24) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-51 (arg-814 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) arg-0 0) ext-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (case (vector-ref e-5 0) ((1) (let ((e-2 (vector-ref e-5 1))) (let ((act-25 (let ((act-25 ((SystemC-45File-fileModifiedTime (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-25 (arg-811 eta-0))) ((arg-812 act-25) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-51 (arg-814 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) e-2) ext-0))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-3 (vector-ref act-25 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref act-25 1))) (case (vector-ref e-6 0) ((1) (let ((e-3 (vector-ref e-6 1))) (let ((act-26 (let ((act-26 ((SystemC-45File-closeFile (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-26 (arg-811 eta-0))) ((arg-812 act-26) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-51 (arg-814 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) e-2) ext-0))) (vector 1 act-26)))) (case (vector-ref act-26 0) ((0) (let ((e-4 (vector-ref act-26 1))) (vector 0 e-4))) (else (vector 1 e-3)))))) (else (let ((act-26 (let ((act-26 ((SystemC-45File-closeFile (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-26 (arg-811 eta-0))) ((arg-812 act-26) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-51 (arg-814 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) e-2) ext-0))) (vector 1 act-26)))) (case (vector-ref act-26 0) ((0) (let ((e-3 (vector-ref act-26 1))) (vector 0 e-3))) (else (vector 1 0)))))))))))) (else (vector 1 0))))))))) +(define LibrariesC-45UtilsC-45Binary-initBinaryS (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 ((DataC-45Buffer-newBuffer (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-24 (arg-811 eta-0))) ((arg-812 act-24) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-51 (arg-814 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) arg-0) ext-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (if (null? e-5) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 "Buffer creation failed") ext-0) (let ((e-1 (unbox e-5))) (CoreC-45Core-newRef (vector "Libraries.Utils.Binary.Bin" ) (LibrariesC-45UtilsC-45Binary-newBinary e-1 arg-0) ext-0))))))))) +(define LibrariesC-45UtilsC-45Binary-initBinary (lambda (ext-0) (let ((act-24 (let ((act-24 ((DataC-45Buffer-newBuffer (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-24 (arg-811 eta-0))) ((arg-812 act-24) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-51 (arg-814 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) (LibrariesC-45UtilsC-45Binary-blockSize)) ext-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (if (null? e-5) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 "Buffer creation failed") ext-0) (let ((e-1 (unbox e-5))) (CoreC-45Core-newRef (vector "Libraries.Utils.Binary.Bin" ) (LibrariesC-45UtilsC-45Binary-newBinary e-1 (LibrariesC-45UtilsC-45Binary-blockSize)) ext-0))))))))) +(define LibrariesC-45UtilsC-45Binary-incLoc (lambda (arg-0 arg-1) (let ((e-0 (vector-ref arg-1 0))) (let ((e-1 (vector-ref arg-1 1))) (let ((e-2 (vector-ref arg-1 2))) (let ((e-3 (vector-ref arg-1 3))) (vector e-0 (bs+ e-1 arg-0 63) e-2 e-3))))))) +(define LibrariesC-45UtilsC-45Binary-hashFile (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 ((SystemC-45File-popen (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-24 (arg-811 eta-0))) ((arg-812 act-24) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-51 (arg-814 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) (PreludeC-45TypesC-45String-C-43C-43 "sha256sum \"" (PreludeC-45TypesC-45String-C-43C-43 (LibrariesC-45UtilsC-45Binary-n--7041-3797-u--osEscape arg-0 arg-0) "\"")) 0) ext-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (case (vector-ref e-5 0) ((1) (let ((e-2 (vector-ref e-5 1))) (let ((act-25 (let ((act-25 ((SystemC-45File-fGetLine (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-25 (arg-811 eta-0))) ((arg-812 act-25) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-51 (arg-814 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) e-2) ext-0))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-3 (vector-ref act-25 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref act-25 1))) (case (vector-ref e-6 0) ((1) (let ((e-3 (vector-ref e-6 1))) (let ((act-26 (let ((act-26 ((SystemC-45File-pclose (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-26 (arg-811 eta-0))) ((arg-812 act-26) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-51 (arg-814 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) e-2) ext-0))) (vector 1 act-26)))) (case (vector-ref act-26 0) ((0) (let ((e-4 (vector-ref act-26 1))) (vector 0 e-4))) (else (let ((sc5 (DataC-45String-words e-3))) (if (null? sc5) (CoreC-45Core-coreFail (vector 57 (PreludeC-45TypesC-45String-C-43C-43 "Can't get sha256sum of " arg-0)) ext-0) (let ((e-1 (car sc5))) (vector 1 e-1))))))))) (else (let ((act-26 (let ((act-26 ((SystemC-45File-pclose (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-26 (arg-811 eta-0))) ((arg-812 act-26) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-51 (arg-814 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) e-2) ext-0))) (vector 1 act-26)))) (case (vector-ref act-26 0) ((0) (let ((e-3 (vector-ref act-26 1))) (vector 0 e-3))) (else (CoreC-45Core-coreFail (vector 57 (PreludeC-45TypesC-45String-C-43C-43 "Can't get sha256sum of " arg-0)) ext-0)))))))))))) (else (CoreC-45Core-coreFail (vector 57 (PreludeC-45TypesC-45String-C-43C-43 "Can't get sha256sum of " arg-0)) ext-0))))))))) +(define LibrariesC-45UtilsC-45Binary-getTag (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((sc1 (PreludeC-45EqOrd-u--C-62C-61_Ord_Int (LibrariesC-45UtilsC-45Binary-toRead e-5) 1))) (cond ((equal? sc1 1) (let ((act-25 (let ((act-25 (DataC-45Buffer-prim__getByte (let ((e-0 (vector-ref e-5 0))) e-0) (let ((e-1 (vector-ref e-5 1))) e-1) ext-0))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (let ((act-26 (set-box! arg-0 (LibrariesC-45UtilsC-45Binary-incLoc 1 e-5)))) (vector 1 act-26)))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (vector 1 e-6))))))))) (else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 48 (vector 1 "Byte")) ext-0)))))))))) +(define LibrariesC-45UtilsC-45Binary-fromLimbs (lambda (arg-0) (if (null? arg-0) 0 (let ((e-2 (car arg-0))) (let ((e-3 (cdr arg-0))) (+ (PreludeC-45Cast-u--cast_Cast_Int_Integer e-2) (blodwen-shl (LibrariesC-45UtilsC-45Binary-fromLimbs e-3) 32))))))) +(define LibrariesC-45UtilsC-45Binary-extendBinary (lambda (arg-0 arg-1) (let ((e-0 (vector-ref arg-1 0))) (let ((e-1 (vector-ref arg-1 1))) (let ((e-2 (vector-ref arg-1 2))) (let ((e-3 (vector-ref arg-1 3))) (let ((u--newsize (bs* e-2 2 63))) (let ((u--sC-39 (let ((sc0 (PreludeC-45EqOrd-u--C-60_Ord_Int (PreludeC-45Num-u--C-45_Neg_Int u--newsize e-1) arg-0))) (cond ((equal? sc0 1) (bs+ u--newsize arg-0 63)) (else u--newsize))))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((DataC-45Buffer-resizeBuffer (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-1)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-1) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-1) (let ((act-17 (arg-528 eta-1))) (let ((act-16 (arg-530 eta-1))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-1) (let ((act-24 (arg-811 eta-1))) ((arg-812 act-24) eta-1))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-1) (let ((act-51 (arg-814 eta-1))) (act-51 eta-1)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) e-0 u--sC-39) eta-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (if (null? e-5) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 "Buffer expansion failed") eta-0) (let ((e-4 (unbox e-5))) (vector 1 (vector e-4 e-1 u--sC-39 e-3))))))))))))))))) +(define LibrariesC-45UtilsC-45Binary-corrupt (lambda (arg-1 ext-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 48 (vector 2 arg-1)) ext-0))) +(define LibrariesC-45UtilsC-45Binary-blockSize (lambda () (blodwen-toSignedInt 655360 63))) +(define LibrariesC-45UtilsC-45Binary-avail (lambda (arg-0) (PreludeC-45Num-u--C-45_Neg_Int (PreludeC-45Num-u--C-45_Neg_Int (let ((e-2 (vector-ref arg-0 2))) e-2) (let ((e-1 (vector-ref arg-0 1))) e-1)) 1))) +(define LibrariesC-45UtilsC-45Binary-appended (lambda (arg-0 arg-1) (let ((e-0 (vector-ref arg-1 0))) (let ((e-1 (vector-ref arg-1 1))) (let ((e-2 (vector-ref arg-1 2))) (let ((e-3 (vector-ref arg-1 3))) (vector e-0 (bs+ e-1 arg-0 63) e-2 (bs+ e-3 arg-0 63)))))))) +(define LibrariesC-45UtilsC-45String-n--2018-380-u--escape (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 (PreludeC-45Types-elem (cons (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-61C-61_Eq_Char arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Char arg-4 arg-5)))) arg-2 arg-0))) (cond ((equal? sc0 1) (cons arg-1 (cons arg-2 arg-3))) (else (cons arg-2 arg-3)))))) +(define LibrariesC-45UtilsC-45String-stripSurrounds (lambda (arg-0 arg-1 arg-2) (PreludeC-45Types-substr arg-0 (PreludeC-45Types-prim__integerToNat (- (PreludeC-45TypesC-45String-length arg-2) (PreludeC-45Types-u--C-43_Num_Nat arg-0 arg-1))) arg-2))) (define LibrariesC-45UtilsC-45String-stripQuotes (lambda (ext-0) (LibrariesC-45UtilsC-45String-stripSurrounds (+ 1 0) (+ 1 0) ext-0))) -(define LibrariesC-45UtilsC-45String-lowerFirst (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 "") 1)(else (PreludeC-45Types-isLower (string-ref arg-0 0))))))) -(define LibrariesC-45UtilsC-45Octal-n--2311-698-u--fromOctCharsC-39 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (if (null? sc0) (vector 1 0) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (LibrariesC-45UtilsC-45Octal-fromOctDigit (PreludeC-45Types-toLower e-2)) (lambda (u--digit) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (LibrariesC-45UtilsC-45Octal-n--2311-698-u--fromOctCharsC-39 (* arg-0 8) e-3) (lambda (u--digits) (PreludeC-45Types-u--pure_Applicative_Maybe (+ (* (PreludeC-45Cast-u--cast_Cast_Int_Integer u--digit) arg-0) u--digits)))))))))))) -(define LibrariesC-45UtilsC-45Octal-fromOctDigit (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 #\0) (vector 1 0)) ((equal? sc0 #\1) (vector 1 1)) ((equal? sc0 #\2) (vector 1 2)) ((equal? sc0 #\3) (vector 1 3)) ((equal? sc0 #\4) (vector 1 4)) ((equal? sc0 #\5) (vector 1 5)) ((equal? sc0 #\6) (vector 1 6)) ((equal? sc0 #\7) (vector 1 7))(else (vector 0 )))))) -(define LibrariesC-45UtilsC-45Octal-fromOctChars (lambda (ext-0) (LibrariesC-45UtilsC-45Octal-n--2311-698-u--fromOctCharsC-39 1 ext-0))) -(define LibrariesC-45UtilsC-45Octal-fromOct (lambda (ext-0) (LibrariesC-45UtilsC-45Octal-fromOctChars (PreludeC-45Types-fastUnpack ext-0)))) -(define DataC-45PrimitivesC-45ViewsC-45IntV-case--divides-509 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (PreludeC-45Num-u--negate_Neg_Int (PreludeC-45Num-u--div_Integral_Int arg-1 (PreludeC-45Num-u--abs_Abs_Int arg-0)))) (else (PreludeC-45Num-u--div_Integral_Int arg-1 arg-0)))))) -(define DataC-45PrimitivesC-45ViewsC-45IntV-divides (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (vector 0 ))(else (let ((u--dividend (DataC-45PrimitivesC-45ViewsC-45IntV-case--divides-509 arg-1 arg-0 (PreludeC-45EqOrd-u--C-60_Ord_Int arg-1 (blodwen-toSignedInt 0 63))))) (let ((u--remainder (PreludeC-45Num-u--abs_Abs_Int (PreludeC-45Num-u--C-45_Neg_Int arg-0 (bs* u--dividend arg-1 63))))) (Builtin-believe_me (vector 1 u--dividend u--remainder (Builtin-believe_me (vector 0 ))))))))))) -(define LibrariesC-45UtilsC-45Hex-with--asHexC-44asHexC-39-656 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (LibrariesC-45UtilsC-45Hex-n--2713-647-u--asHexC-39 arg-0 e-1 (cons (LibrariesC-45UtilsC-45Hex-hexDigit e-2) arg-3))))))) -(define LibrariesC-45UtilsC-45Hex-case--leftPad-704 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Types-fastPack (DataC-45List-replicate (PreludeC-45Types-minus arg-1 (PreludeC-45TypesC-45String-length arg-0)) arg-2)) arg-0)) (else arg-0))))) -(define LibrariesC-45UtilsC-45Hex-case--asHex-685 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (PreludeC-45Types-fastPack (LibrariesC-45UtilsC-45Hex-n--2713-647-u--asHexC-39 arg-0 arg-0 '()))) (else "0"))))) -(define LibrariesC-45UtilsC-45Hex-n--2880-807-u--fromHexCharsC-39 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (if (null? sc0) (vector 1 0) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (LibrariesC-45UtilsC-45Hex-fromHexDigit (PreludeC-45Types-toLower e-2)) (lambda (u--digit) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (LibrariesC-45UtilsC-45Hex-n--2880-807-u--fromHexCharsC-39 (* arg-0 16) e-3) (lambda (u--digits) (PreludeC-45Types-u--pure_Applicative_Maybe (+ (* (PreludeC-45Cast-u--cast_Cast_Int_Integer u--digit) arg-0) u--digits)))))))))))) -(define LibrariesC-45UtilsC-45Hex-n--2713-647-u--asHexC-39 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (cond ((equal? sc0 0) arg-2)(else (LibrariesC-45UtilsC-45Hex-with--asHexC-44asHexC-39-656 arg-1 arg-1 (DataC-45PrimitivesC-45ViewsC-45IntV-divides arg-1 16) arg-2)))))) -(define LibrariesC-45UtilsC-45Hex-leftPad (lambda (arg-0 arg-1 arg-2) (LibrariesC-45UtilsC-45Hex-case--leftPad-704 arg-2 arg-1 arg-0 (PreludeC-45Types-u--C-60_Ord_Nat (PreludeC-45TypesC-45String-length arg-2) arg-1)))) -(define LibrariesC-45UtilsC-45Hex-hexDigit (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 0) #\0) ((equal? sc0 1) #\1) ((equal? sc0 2) #\2) ((equal? sc0 3) #\3) ((equal? sc0 4) #\4) ((equal? sc0 5) #\5) ((equal? sc0 6) #\6) ((equal? sc0 7) #\7) ((equal? sc0 8) #\8) ((equal? sc0 9) #\9) ((equal? sc0 10) #\a) ((equal? sc0 11) #\b) ((equal? sc0 12) #\c) ((equal? sc0 13) #\d) ((equal? sc0 14) #\e) ((equal? sc0 15) #\f)(else #\X))))) -(define LibrariesC-45UtilsC-45Hex-fromHexDigit (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 #\0) (vector 1 0)) ((equal? sc0 #\1) (vector 1 1)) ((equal? sc0 #\2) (vector 1 2)) ((equal? sc0 #\3) (vector 1 3)) ((equal? sc0 #\4) (vector 1 4)) ((equal? sc0 #\5) (vector 1 5)) ((equal? sc0 #\6) (vector 1 6)) ((equal? sc0 #\7) (vector 1 7)) ((equal? sc0 #\8) (vector 1 8)) ((equal? sc0 #\9) (vector 1 9)) ((equal? sc0 #\a) (vector 1 10)) ((equal? sc0 #\b) (vector 1 11)) ((equal? sc0 #\c) (vector 1 12)) ((equal? sc0 #\d) (vector 1 13)) ((equal? sc0 #\e) (vector 1 14)) ((equal? sc0 #\f) (vector 1 15))(else (vector 0 )))))) -(define LibrariesC-45UtilsC-45Hex-fromHexChars (lambda (ext-0) (LibrariesC-45UtilsC-45Hex-n--2880-807-u--fromHexCharsC-39 1 ext-0))) -(define LibrariesC-45UtilsC-45Hex-fromHex (lambda (ext-0) (LibrariesC-45UtilsC-45Hex-fromHexChars (PreludeC-45Types-fastUnpack ext-0)))) -(define LibrariesC-45UtilsC-45Hex-asHex (lambda (arg-0) (LibrariesC-45UtilsC-45Hex-case--asHex-685 arg-0 (PreludeC-45EqOrd-u--C-62_Ord_Int arg-0 (blodwen-toSignedInt 0 63))))) -(define ParserC-45LexerC-45Common-case--isIdent-420 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (if (null? sc0) 1 (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (PreludeC-45Basics-C-38C-38 (ParserC-45LexerC-45Common-isIdentStart arg-1 e-2) (lambda () (PreludeC-45Interfaces-all (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (lambda (eta-0) (ParserC-45LexerC-45Common-isIdentTrailing arg-1 eta-0)) e-3))))))))) -(define ParserC-45LexerC-45Common-spacesOrNewlines (lambda () (LibrariesC-45TextC-45Lexer-some (LibrariesC-45TextC-45LexerC-45Core-C-60C-124C-62 (LibrariesC-45TextC-45Lexer-space) (LibrariesC-45TextC-45Lexer-newline))))) -(define ParserC-45LexerC-45Common-namespacedIdent (lambda () (vector 4 (ParserC-45LexerC-45Common-namespaceIdent) (lambda () (LibrariesC-45TextC-45Lexer-opt (vector 4 (LibrariesC-45TextC-45Lexer-is #\.) (lambda () (ParserC-45LexerC-45Common-identNormal)))))))) -(define ParserC-45LexerC-45Common-namespaceIdent (lambda () (vector 4 (vector 4 (LibrariesC-45TextC-45LexerC-45Core-pred (lambda (eta-0) (ParserC-45LexerC-45Common-isIdentStart (vector 1 ) eta-0))) (lambda () (LibrariesC-45TextC-45Lexer-many (LibrariesC-45TextC-45LexerC-45Core-pred (lambda (eta-0) (ParserC-45LexerC-45Common-isIdentTrailing (vector 1 ) eta-0)))))) (lambda () (LibrariesC-45TextC-45Lexer-many (vector 4 (vector 4 (LibrariesC-45TextC-45Lexer-is #\.) (lambda () (vector 4 (LibrariesC-45TextC-45LexerC-45Core-pred (lambda (eta-0) (ParserC-45LexerC-45Common-isIdentStart (vector 1 ) eta-0))) (lambda () (LibrariesC-45TextC-45Lexer-many (LibrariesC-45TextC-45LexerC-45Core-pred (lambda (eta-0) (ParserC-45LexerC-45Common-isIdentTrailing (vector 1 ) eta-0)))))))) (lambda () (LibrariesC-45TextC-45LexerC-45Core-expect (LibrariesC-45TextC-45Lexer-is #\.))))))))) -(define ParserC-45LexerC-45Common-isIdentTrailing (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-1)) (cond ((equal? sc1 #\-) 0)(else (let ((sc1 arg-1)) (cond ((equal? sc1 #\') 0) ((equal? sc1 #\_) 0)(else (PreludeC-45Basics-C-124C-124 (PreludeC-45Types-isAlphaNum arg-1) (lambda () (PreludeC-45EqOrd-u--C-62_Ord_Char arg-1 (PreludeC-45Types-chr (blodwen-toSignedInt 160 63))))))))))))(else (let ((sc0 arg-1)) (cond ((equal? sc0 #\') 0) ((equal? sc0 #\_) 0)(else (PreludeC-45Basics-C-124C-124 (PreludeC-45Types-isAlphaNum arg-1) (lambda () (PreludeC-45EqOrd-u--C-62_Ord_Char arg-1 (PreludeC-45Types-chr (blodwen-toSignedInt 160 63))))))))))))) -(define ParserC-45LexerC-45Common-isIdentStart (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 #\_) 0)(else (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (PreludeC-45Basics-C-124C-124 (PreludeC-45Types-isUpper arg-1) (lambda () (PreludeC-45EqOrd-u--C-62_Ord_Char arg-1 (PreludeC-45Types-chr (blodwen-toSignedInt 160 63))))))(else (PreludeC-45Basics-C-124C-124 (PreludeC-45Types-isAlpha arg-1) (lambda () (PreludeC-45EqOrd-u--C-62_Ord_Char arg-1 (PreludeC-45Types-chr (blodwen-toSignedInt 160 63))))))))))))) -(define ParserC-45LexerC-45Common-isIdentNormal (lambda (ext-0) (ParserC-45LexerC-45Common-case--isIdent-420 ext-0 (vector 2 ) (PreludeC-45Types-fastUnpack ext-0)))) -(define ParserC-45LexerC-45Common-identNormal (lambda () (vector 4 (LibrariesC-45TextC-45LexerC-45Core-pred (lambda (eta-0) (ParserC-45LexerC-45Common-isIdentStart (vector 2 ) eta-0))) (lambda () (LibrariesC-45TextC-45Lexer-many (LibrariesC-45TextC-45LexerC-45Core-pred (lambda (eta-0) (ParserC-45LexerC-45Common-isIdentTrailing (vector 2 ) eta-0)))))))) -(define ParserC-45LexerC-45Common-identAllowDashes (lambda () (vector 4 (LibrariesC-45TextC-45LexerC-45Core-pred (lambda (eta-0) (ParserC-45LexerC-45Common-isIdentStart (vector 0 ) eta-0))) (lambda () (LibrariesC-45TextC-45Lexer-many (LibrariesC-45TextC-45LexerC-45Core-pred (lambda (eta-0) (ParserC-45LexerC-45Common-isIdentTrailing (vector 0 ) eta-0)))))))) -(define ParserC-45LexerC-45Common-comment (lambda () (let ((sc0 (PreludeC-45Basics-C-124C-124 (PreludeC-45Basics-C-124C-124 0 (lambda () 1)) (lambda () 1)))) (cond ((equal? sc0 1) (vector 5 (let ((sc1 (PreludeC-45Basics-C-124C-124 0 (lambda () 1)))) (cond ((equal? sc1 1) (vector 5 (vector 4 (vector 4 (LibrariesC-45TextC-45Lexer-is #\-) (lambda () (LibrariesC-45TextC-45Lexer-is #\-))) (lambda () (LibrariesC-45TextC-45Lexer-many (LibrariesC-45TextC-45Lexer-is #\-)))) (lambda () (LibrariesC-45TextC-45LexerC-45Core-reject (LibrariesC-45TextC-45Lexer-is #\}))))) (else (vector 4 (vector 4 (vector 4 (LibrariesC-45TextC-45Lexer-is #\-) (lambda () (LibrariesC-45TextC-45Lexer-is #\-))) (lambda () (LibrariesC-45TextC-45Lexer-many (LibrariesC-45TextC-45Lexer-is #\-)))) (lambda () (LibrariesC-45TextC-45LexerC-45Core-reject (LibrariesC-45TextC-45Lexer-is #\}))))))) (lambda () (LibrariesC-45TextC-45Lexer-many (LibrariesC-45TextC-45Lexer-isNot (integer->char 10)))))) (else (vector 4 (let ((sc1 (PreludeC-45Basics-C-124C-124 0 (lambda () 1)))) (cond ((equal? sc1 1) (vector 5 (vector 4 (vector 4 (LibrariesC-45TextC-45Lexer-is #\-) (lambda () (LibrariesC-45TextC-45Lexer-is #\-))) (lambda () (LibrariesC-45TextC-45Lexer-many (LibrariesC-45TextC-45Lexer-is #\-)))) (lambda () (LibrariesC-45TextC-45LexerC-45Core-reject (LibrariesC-45TextC-45Lexer-is #\}))))) (else (vector 4 (vector 4 (vector 4 (LibrariesC-45TextC-45Lexer-is #\-) (lambda () (LibrariesC-45TextC-45Lexer-is #\-))) (lambda () (LibrariesC-45TextC-45Lexer-many (LibrariesC-45TextC-45Lexer-is #\-)))) (lambda () (LibrariesC-45TextC-45LexerC-45Core-reject (LibrariesC-45TextC-45Lexer-is #\}))))))) (lambda () (LibrariesC-45TextC-45Lexer-many (LibrariesC-45TextC-45Lexer-isNot (integer->char 10)))))))))) -(define TTImpC-45Unelab-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32unelabBinder-6411 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (cond ((equal? sc0 0) (vector 1 (vector 1 "_"))) (else (vector 0 )))))) -(define TTImpC-45Unelab-case--caseC-32blockC-32inC-32unelabBinder-6328 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (cond ((equal? sc0 0) (vector 1 arg-5)) (else (TTImpC-45Unelab-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32unelabBinder-6411 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 (PreludeC-45Basics-C-124C-124 (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-4 (AlgebraC-45ZeroOneOmega-u--top_Top_ZeroOneOmega)) (lambda () (TTImpC-45Unelab-n--9163-6254-u--isDefImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-3))))))))) -(define TTImpC-45Unelab-case--unelabTyC-39C-44uniqueLocal-5211 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (TTImpC-45Unelab-n--9157-5184-u--uniqueLocal arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-9 (TTImpC-45Unelab-n--9157-5183-u--next arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8))) (else arg-8))))) -(define TTImpC-45Unelab-case--unelabSugar-4703 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-1 (vector-ref sc1 2))) (lambda (clam-0) (let ((sc2 e-1)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (let ((e-4 (vector-ref sc2 2))) (let ((sc3 e-4)) (case (vector-ref sc3 0) ((7) (let ((e-7 (vector-ref sc3 1))) (let ((e-6 (vector-ref sc3 2))) (let ((act-24 (CoreC-45ContextC-45Log-log arg-4 "unelab.case" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))))))))))))) (lambda () (DataC-45String-fastUnlines (cons (PreludeC-45TypesC-45String-C-43C-43 "Unelaborating case " (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_String u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_String u--d u--x)))) (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_Int u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_Int u--d u--x))))) (cons e-7 e-6))) (cons (PreludeC-45TypesC-45String-C-43C-43 "with arguments: " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (TTImpC-45Unelab-u--show_Show_IArg u--x)) (lambda (u--d) (lambda (u--x) (TTImpC-45Unelab-u--showPrec_Show_IArg u--d u--x)))) e-3)) '())))) clam-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((act-25 (TTImpC-45Unelab-unelabCase arg-4 (vector 0 e-5 (vector 7 e-7 e-6)) e-3 arg-2 clam-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-26 (CoreC-45ContextC-45Log-log arg-4 "unelab.case" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))))))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Unelaborated to: " (TTImpC-45TTImp-u--show_Show_RawImp e-9))) clam-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (vector 1 (cons e-9 arg-3))))))))))))))))))(else (vector 1 (cons arg-2 arg-3))))))))(else (vector 1 (cons arg-2 arg-3))))))))(else (lambda (eta-0) (vector 1 (cons arg-2 arg-3))))))))))) -(define TTImpC-45Unelab-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32unelabCase-4559 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (cond ((equal? sc0 0) (TTImpC-45Unelab-n--9149-4265-u--mkCase arg-0 arg-1 arg-2 arg-3 arg-10 arg-12 0 arg-1)) (else (lambda (eta-0) (vector 1 arg-0))))))) -(define TTImpC-45Unelab-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32unelabCase-4523 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (TTImpC-45Unelab-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32unelabCase-4559 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-1 (PreludeC-45Types-u--C-61C-61_Eq_Nat (PreludeC-45TypesC-45List-length arg-1) (PreludeC-45TypesC-45List-length arg-8)))))(else (lambda (eta-0) (vector 1 arg-0))))))) -(define TTImpC-45Unelab-case--caseC-32blockC-32inC-32unelabCase-4499 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (TTImpC-45Unelab-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32unelabCase-4523 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-0 e-1 e-3 e-4 e-2 (TTImpC-45Unelab-n--9149-4260-u--findArgPos arg-0 arg-1 arg-2 arg-3 e-2))))))))(else (lambda (eta-0) (vector 1 arg-0))))))) -(define TTImpC-45Unelab-case--unelabCaseC-44getNth-4320 (lambda (arg-0 arg-1 arg-2 arg-3 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (TTImpC-45Unelab-n--9149-4261-u--idxOrDefault arg-0 arg-1 arg-2 arg-3 arg-6 e-2 e-3)))))) -(define TTImpC-45Unelab-n--8901-4027-u--usedBinder (lambda (arg-0 arg-1 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (PreludeC-45Basics-C-124C-124 (TTImpC-45Unelab-used arg-5 e-3) (lambda () (TTImpC-45Unelab-used arg-5 e-4))))))(else (TTImpC-45Unelab-used arg-5 (CoreC-45TT-binderType arg-6))))))) -(define TTImpC-45Unelab-n--9157-5184-u--uniqueLocal (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (TTImpC-45Unelab-case--unelabTyC-39C-44uniqueLocal-5211 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-9 arg-8 (PreludeC-45Types-elem (cons (lambda (arg-10) (lambda (arg-11) (CoreC-45Name-u--C-61C-61_Eq_Name arg-10 arg-11))) (lambda (arg-10) (lambda (arg-11) (CoreC-45Name-u--C-47C-61_Eq_Name arg-10 arg-11)))) arg-9 arg-8)))) -(define TTImpC-45Unelab-n--12123-6780-u--toName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-4 (vector-ref sc0 3))) (vector 1 (CoreC-45TT-nameAt arg-0 e-4))))(else (vector 0 )))))) -(define TTImpC-45Unelab-n--12123-6782-u--showScope (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (PreludeC-45TypesC-45String-C-43C-43 " " (TTImpC-45Unelab-n--12123-6781-u--showNScope arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (DataC-45List-mapMaybe (lambda (eta-0) (TTImpC-45Unelab-n--12123-6780-u--toName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-0)) arg-7))))) -(define TTImpC-45Unelab-n--12123-6781-u--showNScope (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (if (null? sc0) "[no locals in scope]" (PreludeC-45TypesC-45String-C-43C-43 "[locals in scope: " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-showSep ", " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45Name-u--show_Show_Name eta-0)) (DataC-45List-nub (cons (lambda (arg-8) (lambda (arg-9) (CoreC-45Name-u--C-61C-61_Eq_Name arg-8 arg-9))) (lambda (arg-8) (lambda (arg-9) (CoreC-45Name-u--C-47C-61_Eq_Name arg-8 arg-9)))) arg-7))) "]")))))) -(define TTImpC-45Unelab-n--9149-4263-u--nthArg (lambda (arg-0 arg-1 arg-2 arg-3 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((4) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (TTImpC-45Unelab-n--9149-4262-u--getNth arg-0 arg-1 arg-2 arg-3 arg-6 (vector 4 e-1 e-2 e-3))))))(else (vector 10 arg-5 1)))))) -(define TTImpC-45Unelab-n--9157-5183-u--next (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (vector 2 e-0 (bs+ e-1 1 63))))) ((1) (let ((e-2 (vector-ref sc0 1))) (vector 2 (PreludeC-45Show-u--show_Show_String e-2) 0))) ((0) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (vector 0 e-3 (TTImpC-45Unelab-n--9157-5183-u--next arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-4)))))(else (vector 2 (CoreC-45Name-u--show_Show_Name arg-8) 0)))))) -(define TTImpC-45Unelab-n--9149-4264-u--mkClause (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-3)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (let ((sc2 e-7)) (let ((e-10 (car sc2))) (let ((e-11 (cdr sc2))) (let ((u--pat (TTImpC-45Unelab-n--9149-4263-u--nthArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-10))) (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-logTerm e-2 arg-3 "unelab.case" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))))))))))))) (lambda () "Unelaborating LHS") u--pat eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((act-25 (TTImpC-45Unelab-unelabTy e-2 arg-3 (vector 0 ) e-6 u--pat eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-26 (CoreC-45ContextC-45Log-logTerm e-2 arg-3 "unelab.case" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))))))))))))) (lambda () "Unelaborating RHS") e-11 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((act-27 (CoreC-45Normalise-logEnv e-2 arg-3 "unelab.case" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))))))))))))) "In Env" e-6 eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((act-28 (TTImpC-45Unelab-unelabTy e-2 arg-3 (vector 0 ) e-6 e-11 eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-13 (vector-ref sc7 1))) (vector 1 (vector 0 arg-4 (Builtin-fst e-8) (Builtin-fst e-13)))))))))))))))))))))))))))))))))))))) -(define TTImpC-45Unelab-n--9149-4265-u--mkCase (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (lambda (clam-0) (let ((sc1 arg-7)) (if (null? sc1) (vector 1 arg-0) (let ((e-5 (car sc1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (let ((e-8 (vector-ref sc2 2))) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (TTImpC-45Unelab-n--9149-4264-u--mkClause arg-0 arg-1 arg-2 arg-3 e-7 arg-6 eta-0)) arg-4 '() clam-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc3 1))) (vector 1 (vector 4 e-7 e-8 (vector 32 e-7 1) e-9))))))))))(else (vector 1 arg-0)))))))))(else (let ((e-0 (- arg-5 1))) (let ((sc0 arg-7)) (if (null? sc0) (lambda (eta-0) (vector 1 arg-0)) (let ((e-3 (cdr sc0))) (TTImpC-45Unelab-n--9149-4265-u--mkCase arg-0 arg-1 arg-2 arg-3 arg-4 e-0 (+ 1 arg-6) e-3)))))))))) -(define TTImpC-45Unelab-n--9163-6253-u--isNoSugar (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((1) 0)(else 1))))) -(define TTImpC-45Unelab-n--9163-6254-u--isDefImp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((3) 0)(else 1))))) -(define TTImpC-45Unelab-n--9149-4261-u--idxOrDefault (lambda (arg-0 arg-1 arg-2 arg-3 arg-5 arg-6 arg-7) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (let ((sc1 arg-7)) (if (null? sc1) (let ((sc2 arg-7)) arg-6) (let ((e-3 (car sc1))) e-3))))(else (let ((e-1 (- arg-5 1))) (let ((sc0 arg-7)) (if (null? sc0) (let ((sc1 arg-7)) arg-6) (let ((e-7 (cdr sc0))) (TTImpC-45Unelab-n--9149-4261-u--idxOrDefault arg-0 arg-1 arg-2 arg-3 e-1 arg-6 e-7)))))))))) -(define TTImpC-45Unelab-n--9149-4262-u--getNth (lambda (arg-0 arg-1 arg-2 arg-3 arg-5 arg-6) (TTImpC-45Unelab-case--unelabCaseC-44getNth-4320 arg-0 arg-1 arg-2 arg-3 arg-6 arg-5 (CoreC-45TT-getFnArgs arg-6)))) -(define TTImpC-45Unelab-n--9149-4260-u--findArgPos (lambda (arg-0 arg-1 arg-2 arg-3 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 2))) (vector 1 e-2)))(else (vector 0 )))))) -(define TTImpC-45Unelab-u--show_Show_IArg (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (TTImpC-45TTImp-u--show_Show_RawImp e-1))) ((1) (let ((e-3 (vector-ref sc0 2))) (PreludeC-45TypesC-45String-C-43C-43 "@{" (PreludeC-45TypesC-45String-C-43C-43 (TTImpC-45TTImp-u--show_Show_RawImp e-3) "}")))) (else (let ((e-5 (vector-ref sc0 2))) (let ((e-6 (vector-ref sc0 3))) (PreludeC-45TypesC-45String-C-43C-43 "{" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-5) (PreludeC-45TypesC-45String-C-43C-43 " = " (PreludeC-45TypesC-45String-C-43C-43 (TTImpC-45TTImp-u--show_Show_RawImp e-6) "}"))))))))))) -(define TTImpC-45Unelab-u--showPrec_Show_IArg (lambda (arg-0 arg-1) (TTImpC-45Unelab-u--show_Show_IArg arg-1))) -(define TTImpC-45Unelab-used (lambda (arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-4 (vector-ref sc0 3))) (PreludeC-45Types-u--C-61C-61_Eq_Nat arg-1 e-4))) ((3) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (let ((e-10 (vector-ref sc0 4))) (PreludeC-45Basics-C-124C-124 (TTImpC-45Unelab-n--8901-4027-u--usedBinder e-7 e-8 e-10 e-9 arg-1 e-9) (lambda () (TTImpC-45Unelab-used (PreludeC-45Types-u--C-43_Num_Nat (PreludeC-45Types-u--fromInteger_Num_Nat 1) arg-1) e-10)))))))) ((2) (let ((e-15 (vector-ref sc0 4))) (PreludeC-45Interfaces-any (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (lambda (eta-0) (TTImpC-45Unelab-used arg-1 eta-0)) e-15))) ((4) (let ((e-18 (vector-ref sc0 2))) (let ((e-19 (vector-ref sc0 3))) (PreludeC-45Basics-C-124C-124 (TTImpC-45Unelab-used arg-1 e-18) (lambda () (TTImpC-45Unelab-used arg-1 e-19)))))) ((5) (let ((e-24 (vector-ref sc0 4))) (TTImpC-45Unelab-used arg-1 e-24))) ((6) (let ((e-28 (vector-ref sc0 3))) (TTImpC-45Unelab-used arg-1 e-28))) ((7) (let ((e-33 (vector-ref sc0 4))) (TTImpC-45Unelab-used arg-1 e-33))) ((8) (let ((e-37 (vector-ref sc0 3))) (TTImpC-45Unelab-used arg-1 e-37)))(else 1))))) -(define TTImpC-45Unelab-unelabUniqueBinders (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (TTImpC-45Unelab-unelabTy arg-0 arg-1 (vector 1 0) arg-2 arg-3 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (Builtin-fst e-5))))))))) -(define TTImpC-45Unelab-unelabTyC-39 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 3))) (let ((u--nm (CoreC-45TT-nameAt arg-0 e-4))) (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-log arg-1 "unelab.case" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))))))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Found local name: " (CoreC-45Name-u--show_Show_Name u--nm))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((u--ty (CoreC-45Normalise-gnf arg-0 arg-3 (CoreC-45TT-binderType (CoreC-45Env-getBinder (cons (lambda (u--n) (lambda (u--vars) (lambda (arg-5476) (CoreC-45TT-u--weaken_Weaken_Term arg-5476)))) (lambda (u--vars) (lambda (u--ns) (lambda (arg-5481) (lambda (arg-5483) (CoreC-45TT-u--weakenNs_Weaken_Term arg-5481 arg-5483)))))) arg-0 e-4 arg-3))))) (vector 1 (cons (vector 0 e-2 u--nm) u--ty)))))))))))) ((1) (let ((e-7 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Context-lookupTyExact e-9 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((act-26 (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((1) (CoreC-45Context-getFullName arg-1 e-9 eta-0))(else (let ((act-26 (CoreC-45Context-getFullName arg-1 e-9 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc4 1))) (CoreC-45Context-aliasName arg-1 e-10 eta-0))))))))))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc4 1))) (vector 1 (cons (vector 0 e-7 e-10) (CoreC-45Normalise-gnf arg-0 arg-3 (CoreC-45TT-embed e-1))))))))))) (else (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((2) (vector 1 (cons (vector 32 e-7 0) (CoreC-45Normalise-gErased e-7))))(else (vector 1 (cons (vector 0 e-7 e-9) (CoreC-45Normalise-gErased e-7))))))))))))))))))))))) ((2) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((u--mkn (CoreC-45Name-nameRoot e-12))) (let ((act-25 (CoreC-45Context-lookupTyExact (vector 9 e-13) (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (vector 1 (cons (vector 30 e-11 u--mkn) (CoreC-45Normalise-gnf arg-0 arg-3 (CoreC-45TT-embed e-1)))))) (else (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((2) (vector 1 (cons (vector 32 e-11 0) (CoreC-45Normalise-gErased e-11))))(else (vector 1 (cons (vector 30 e-11 u--mkn) (CoreC-45Normalise-gErased e-11))))))))))))))))))))))))) ((3) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (TTImpC-45Unelab-unelabTy (cons e-17 arg-0) arg-1 arg-2 (cons e-18 arg-3) e-19 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (car sc2))) (let ((e-3 (cdr sc2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((1) (let ((e-0 (vector-ref sc3 1))) (let ((sc4 e-0)) (cond ((equal? sc4 0) (let ((u--xC-39 (TTImpC-45Unelab-n--9157-5184-u--uniqueLocal arg-0 e-17 e-19 e-18 e-16 arg-3 arg-2 arg-1 arg-0 e-17))) (let ((act-25 ((CoreC-45Normalise-getTerm e-3) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc5 1))) (TTImpC-45Unelab-unelabBinder arg-0 arg-1 arg-2 e-16 arg-3 u--xC-39 e-18 (CoreC-45TT-renameVars (vector 1 (vector 0 )) e-19) e-2 (CoreC-45TT-renameVars (vector 1 (vector 0 )) e-6) eta-0))))))))(else (let ((act-25 ((CoreC-45Normalise-getTerm e-3) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc4 1))) (TTImpC-45Unelab-unelabBinder arg-0 arg-1 arg-2 e-16 arg-3 e-17 e-18 e-19 e-2 e-6 eta-0)))))))))))(else (let ((act-25 ((CoreC-45Normalise-getTerm e-3) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) (TTImpC-45Unelab-unelabBinder arg-0 arg-1 arg-2 e-16 arg-3 e-17 e-18 e-19 e-2 e-6 eta-0))))))))))))))))))))))) ((4) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (TTImpC-45Unelab-unelabTy arg-0 arg-1 arg-2 arg-3 e-22 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (car sc2))) (let ((e-3 (cdr sc2))) (let ((act-25 (TTImpC-45Unelab-unelabTy arg-0 arg-1 arg-2 arg-3 e-23 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (let ((e-7 (car sc4))) (let ((act-26 ((CoreC-45Normalise-getNF arg-1 e-3) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-27 (let ((act-27 (unbox arg-1))) (vector 1 act-27)))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc6 1))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-12 (vector-ref sc7 2))) (let ((e-11 (vector-ref sc7 3))) (let ((e-10 (vector-ref sc7 4))) (let ((sc8 e-11)) (case (vector-ref sc8 0) ((2) (let ((e-14 (vector-ref sc8 3))) (let ((sc9 e-14)) (case (vector-ref sc9 0) ((1) (let ((act-28 (((e-10 e-9) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) arg-3 e-23)) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-17 (vector-ref sc10 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc10 1))) (vector 1 (cons (vector 8 e-21 e-2 e-7) (CoreC-45Normalise-glueBack arg-1 arg-0 e-9 arg-3 e-17)))))))))(else (let ((act-28 (((e-10 e-9) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) arg-3 e-23)) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-17 (vector-ref sc9 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc9 1))) (vector 1 (cons (vector 10 e-21 e-2 e-12 e-7) (CoreC-45Normalise-glueBack arg-1 arg-0 e-9 arg-3 e-17)))))))))))))(else (vector 1 (cons (vector 8 e-21 e-2 e-7) (CoreC-45Normalise-gErased e-21))))))))))(else (vector 1 (cons (vector 8 e-21 e-2 e-7) (CoreC-45Normalise-gErased e-21)))))))))))))))))))))))))))))))))))) ((5) (let ((e-25 (vector-ref sc0 1))) (let ((e-26 (vector-ref sc0 2))) (let ((e-27 (vector-ref sc0 3))) (let ((e-28 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((TTImpC-45Unelab-unelabTyC-39 arg-0 arg-1 arg-2 arg-3 e-27) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (car sc2))) (let ((act-25 ((TTImpC-45Unelab-unelabTyC-39 arg-0 arg-1 arg-2 arg-3 e-28) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (let ((e-7 (car sc4))) (let ((e-4 (cdr sc4))) (let ((sc5 e-2)) (case (vector-ref sc5 0) ((0) (let ((e-1 (vector-ref sc5 2))) (let ((sc6 arg-2)) (case (vector-ref sc6 0) ((1) (vector 1 (cons (vector 18 e-25 (CoreC-45TT-getLoc e-27) e-26 e-1 e-7) e-4)))(else (vector 1 (cons e-7 e-4)))))))(else (vector 1 (cons e-7 e-4)))))))))))))))))))))))))) ((6) (let ((e-30 (vector-ref sc0 1))) (let ((e-31 (vector-ref sc0 2))) (let ((e-32 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((TTImpC-45Unelab-unelabTyC-39 arg-0 arg-1 arg-2 arg-3 e-32) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (car sc2))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (vector 1 (cons (vector 20 e-30 e-31 e-2) (CoreC-45Normalise-gErased e-30))))))))))))))))))) ((7) (let ((e-34 (vector-ref sc0 1))) (let ((e-37 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((TTImpC-45Unelab-unelabTyC-39 arg-0 arg-1 arg-2 arg-3 e-37) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (car sc2))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (vector 1 (cons (vector 21 e-34 e-2) (CoreC-45Normalise-gErased e-34)))))))))))))))))) ((8) (let ((e-39 (vector-ref sc0 1))) (let ((e-41 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((TTImpC-45Unelab-unelabTyC-39 arg-0 arg-1 arg-2 arg-3 e-41) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (car sc2))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (vector 1 (cons (vector 22 e-39 e-2) (CoreC-45Normalise-gErased e-39)))))))))))))))))) ((9) (let ((e-43 (vector-ref sc0 1))) (let ((e-44 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (cons (vector 28 e-43 e-44) (CoreC-45Normalise-gErased e-43))))))) ((10) (let ((e-46 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (cons (vector 32 e-46 0) (CoreC-45Normalise-gErased e-46)))))) ((11) (let ((e-49 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (cons (vector 29 e-49) (CoreC-45Normalise-gType e-49))))))(else (let ((u--fc (CoreC-45TT-getLoc arg-4))) (lambda (eta-0) (vector 1 (cons (vector 32 u--fc 1) (CoreC-45Normalise-gErased u--fc)))))))))) -(define TTImpC-45Unelab-unelabTy (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 ((TTImpC-45Unelab-unelabTyC-39 arg-0 arg-1 arg-2 arg-3 arg-4) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((TTImpC-45Unelab-unelabSugar arg-1 arg-2 e-5) ext-0)))))))) -(define TTImpC-45Unelab-unelabSugar (lambda (arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 arg-3))) ((2) (lambda (eta-0) (vector 1 arg-3)))(else (let ((sc0 arg-3)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (TTImpC-45Unelab-case--unelabSugar-4703 arg-2 e-2 e-3 arg-1 (TTImpC-45Unelab-getFnArgs e-2 '())))))))))) -(define TTImpC-45Unelab-unelabPi (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (vector 1 (vector 1 ))) ((0) (vector 1 (vector 0 ))) ((2) (vector 1 (vector 2 ))) (else (let ((e-4 (vector-ref sc0 1))) (let ((act-24 (TTImpC-45Unelab-unelabTy arg-0 arg-1 arg-2 arg-3 e-4 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (car sc2))) (vector 1 (vector 3 e-2))))))))))))))) -(define TTImpC-45Unelab-unelabNoSugar (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (TTImpC-45Unelab-unelabTy arg-0 arg-1 (vector 1 1) arg-2 arg-3 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (Builtin-fst e-5))))))))) -(define TTImpC-45Unelab-unelabNoPatvars (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (TTImpC-45Unelab-unelabTy arg-0 arg-1 (vector 2 ) arg-2 arg-3 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (Builtin-fst e-5))))))))) -(define TTImpC-45Unelab-unelabCase (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact arg-1 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((_-0 (vector 1 e-1))) ((TTImpC-45Unelab-case--caseC-32blockC-32inC-32unelabCase-4499 arg-3 arg-2 arg-1 arg-0 e-5 e-1 _-0 (let ((sc3 e-1)) (let ((e-17 (vector-ref sc3 18))) e-17))) ext-0)))) (else (vector 1 arg-3)))))))))))))))) -(define TTImpC-45Unelab-unelabBinder (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 ext-0) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((act-24 (TTImpC-45Unelab-unelabTy arg-0 arg-1 arg-2 arg-4 e-4 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-7 (car sc2))) (let ((act-25 (TTImpC-45Unelab-unelabPi arg-0 arg-1 arg-2 arg-4 e-3 ext-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-8 (vector-ref sc3 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc3 1))) (vector 1 (cons (vector 2 arg-3 e-2 e-8 (vector 1 arg-5) e-7 arg-8) (CoreC-45Normalise-gnf arg-0 arg-4 (vector 3 arg-3 arg-5 (vector 2 e-1 e-2 e-3 e-4) arg-9))))))))))))))))))))) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (let ((e-9 (vector-ref sc0 4))) (let ((act-24 (TTImpC-45Unelab-unelabTy arg-0 arg-1 arg-2 arg-4 e-8 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (car sc2))) (let ((act-25 (TTImpC-45Unelab-unelabTy arg-0 arg-1 arg-2 arg-4 e-9 ext-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc3 1))) (let ((sc4 e-10)) (let ((e-11 (car sc4))) (vector 1 (cons (vector 3 arg-3 (vector 1 ) e-7 arg-5 e-11 e-2 arg-8) (CoreC-45Normalise-gnf arg-0 arg-4 (vector 3 arg-3 arg-5 (vector 1 e-6 e-7 e-8 e-9) arg-9))))))))))))))))))))))) ((2) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 4))) (let ((act-24 (TTImpC-45Unelab-unelabTy arg-0 arg-1 arg-2 arg-4 e-14 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (car sc2))) (let ((e-3 (cdr sc2))) (let ((act-25 (TTImpC-45Unelab-unelabPi arg-0 arg-1 arg-2 arg-4 e-13 ext-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) (let ((u--nm (let ((_-0 (cons e-2 e-3))) (TTImpC-45Unelab-case--caseC-32blockC-32inC-32unelabBinder-6328 arg-0 e-11 e-14 e-13 e-12 arg-5 arg-9 arg-8 arg-7 arg-4 arg-3 arg-2 arg-1 e-3 e-2 _-0 e-6 (PreludeC-45Basics-C-124C-124 (TTImpC-45Unelab-used 0 arg-7) (lambda () (TTImpC-45Unelab-n--9163-6253-u--isNoSugar arg-0 e-11 e-14 e-13 e-12 arg-5 arg-9 arg-8 arg-7 arg-4 arg-3 arg-2 arg-1 arg-2))))))) (vector 1 (cons (vector 1 arg-3 e-12 e-6 u--nm e-2 arg-8) (CoreC-45Normalise-gType arg-3)))))))))))))))))))))) ((3) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-19 (vector-ref sc0 4))) (let ((act-24 (TTImpC-45Unelab-unelabTy arg-0 arg-1 arg-2 arg-4 e-19 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (vector 1 (cons arg-8 (CoreC-45Normalise-gnf arg-0 arg-4 (vector 3 arg-3 arg-5 (vector 5 e-16 e-17 e-19) arg-9)))))))))))))) ((4) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (let ((e-24 (vector-ref sc0 4))) (let ((act-24 (TTImpC-45Unelab-unelabTy arg-0 arg-1 arg-2 arg-4 e-23 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (car sc2))) (let ((act-25 (TTImpC-45Unelab-unelabTy arg-0 arg-1 arg-2 arg-4 e-24 ext-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (let ((e-7 (car sc4))) (vector 1 (cons (vector 3 arg-3 (vector 1 ) e-22 arg-5 e-7 e-2 arg-8) (CoreC-45Normalise-gnf arg-0 arg-4 (vector 3 arg-3 arg-5 (vector 4 e-21 e-22 e-23 e-24) arg-9))))))))))))))))))))))) (else (let ((e-28 (vector-ref sc0 3))) (let ((act-24 (TTImpC-45Unelab-unelabTy arg-0 arg-1 arg-2 arg-4 e-28 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (vector 1 (cons arg-8 (CoreC-45Normalise-gType arg-3))))))))))))))) -(define TTImpC-45Unelab-unelab (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((u--mkn (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-nameRoot e-2) (TTImpC-45Unelab-n--12123-6782-u--showScope arg-0 e-4 e-3 e-2 e-1 arg-2 arg-1 e-4)))) (lambda (eta-0) (vector 1 (vector 30 e-1 u--mkn)))))))))(else (lambda (eta-0) (let ((act-24 (TTImpC-45Unelab-unelabTy arg-0 arg-1 (vector 0 ) arg-2 arg-3 eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (Builtin-fst e-5))))))))))))) -(define TTImpC-45Unelab-getFnArgs (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((8) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (TTImpC-45Unelab-getFnArgs e-1 (cons (vector 0 e-0 e-2) arg-1)))))) ((10) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((e-6 (vector-ref sc0 4))) (TTImpC-45Unelab-getFnArgs e-4 (cons (vector 2 e-3 e-5 e-6) arg-1))))))) ((9) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (TTImpC-45Unelab-getFnArgs e-8 (cons (vector 1 e-7 e-9) arg-1))))))(else (cons arg-0 arg-1)))))) -(define TTImpC-45Utils-case--uniqueNameC-44next-1226 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (PreludeC-45TypesC-45String-C-43C-43 e-2 (PreludeC-45TypesC-45String-C-43C-43 "_" (PreludeC-45Show-u--show_Show_Int (bs+ e-3 1 63))))))))) -(define TTImpC-45Utils-case--caseC-32blockC-32inC-32nameNum-1157 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (if (null? sc0) (cons arg-0 0) (let ((e-1 (car sc0))) (let ((e-2 (cdr sc0))) (let ((sc1 e-1)) (cond ((equal? sc1 #\_) (cons (PreludeC-45Types-reverse (PreludeC-45Types-fastPack e-2)) (PreludeC-45Cast-u--cast_Cast_String_Int (PreludeC-45Types-reverse arg-1))))(else (cons arg-0 0)))))))))) -(define TTImpC-45Utils-case--nameNum-1129 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (cond ((equal? sc1 "") (cons arg-0 0))(else (TTImpC-45Utils-case--caseC-32blockC-32inC-32nameNum-1157 arg-0 e-2 e-3 (PreludeC-45Types-fastUnpack e-3)))))))))) -(define TTImpC-45Utils-case--caseC-32blockC-32inC-32substNamesC-39-864 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) e-1))(else (vector 17 arg-1 arg-0)))))) -(define TTImpC-45Utils-case--substNamesC-39-847 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (TTImpC-45Utils-case--caseC-32blockC-32inC-32substNamesC-39-864 arg-0 arg-1 arg-2 arg-3 (DataC-45List-lookup (cons (lambda (arg-5) (lambda (arg-6) (CoreC-45Name-u--C-61C-61_Eq_Name arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (CoreC-45Name-u--C-47C-61_Eq_Name arg-5 arg-6)))) (vector 1 arg-0) arg-2))) (else (vector 17 arg-1 arg-0)))))) -(define TTImpC-45Utils-case--caseC-32blockC-32inC-32substNamesC-39-809 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) e-1))(else (vector 0 arg-1 arg-0)))))) -(define TTImpC-45Utils-case--substNamesC-39-792 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (TTImpC-45Utils-case--caseC-32blockC-32inC-32substNamesC-39-809 arg-0 arg-1 arg-2 arg-3 (DataC-45List-lookup (cons (lambda (arg-5) (lambda (arg-6) (CoreC-45Name-u--C-61C-61_Eq_Name arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (CoreC-45Name-u--C-47C-61_Eq_Name arg-5 arg-6)))) arg-0 arg-2))) (else (vector 0 arg-1 arg-0)))))) -(define TTImpC-45Utils-case--findAllNames-601 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (cons arg-0 '())) (else '()))))) -(define TTImpC-45Utils-case--findBindableNames-430 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (cons (cons arg-0 (TTImpC-45Utils-getUnique arg-2 arg-0)) '())) (else '()))))) -(define TTImpC-45Utils-case--getUnique-406 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (TTImpC-45Utils-getUnique arg-1 (PreludeC-45TypesC-45String-C-43C-43 arg-0 "'"))) (else arg-0))))) -(define TTImpC-45Utils-n--7746-1191-u--usedName (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (CoreC-45Context-lookupTyName (vector 1 arg-0) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) e-0)) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (let ((sc1 e-5)) (if (null? sc1) (PreludeC-45Types-elem (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_String arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_String arg-4 arg-5)))) arg-0 arg-1) 0)))))))))) -(define TTImpC-45Utils-n--7746-1192-u--next (lambda (arg-0 arg-1 arg-2 arg-3) (TTImpC-45Utils-case--uniqueNameC-44next-1226 arg-0 arg-1 arg-2 arg-3 (TTImpC-45Utils-nameNum arg-3)))) -(define TTImpC-45Utils-uniqueName (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (TTImpC-45Utils-n--7746-1191-u--usedName arg-2 arg-1 arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (TTImpC-45Utils-uniqueName arg-0 arg-1 (TTImpC-45Utils-n--7746-1192-u--next arg-2 arg-1 arg-0 arg-2) ext-0)) (else (vector 1 arg-2))))))))))) -(define TTImpC-45Utils-substNamesTyC-39 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (vector 0 e-0 e-1 e-2 (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 e-3))))))))) -(define TTImpC-45Utils-substNamesDeclC-39 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (vector 0 e-0 e-1 e-2 e-3 (TTImpC-45Utils-substNamesTyC-39 arg-0 arg-1 arg-2 e-4)))))))) ((2) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (vector 2 e-5 e-6 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (TTImpC-45Utils-substNamesClauseC-39 arg-0 arg-1 arg-2 eta-0)) e-7)))))) ((1) (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 3))) (vector 1 e-8 e-9 (TTImpC-45Utils-substNamesDataC-39 arg-0 arg-1 arg-2 e-10)))))) ((5) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (vector 5 e-11 e-12 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (TTImpC-45Utils-substNamesDeclC-39 arg-0 arg-1 arg-2 eta-0)) e-13))))))(else arg-3))))) -(define TTImpC-45Utils-substNamesDataC-39 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (vector 0 e-0 e-1 (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 e-2) e-3 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (TTImpC-45Utils-substNamesTyC-39 arg-0 arg-1 arg-2 eta-0)) e-4)))))))) (else (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (vector 1 e-5 e-6 (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 e-7)))))))))) -(define TTImpC-45Utils-substNamesClauseC-39 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((u--boundC-39 (PreludeC-45TypesC-45List-C-43C-43 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (vector 1 eta-0)) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) (TTImpC-45Utils-findBindableNames 0 arg-1 '() e-1))) (PreludeC-45TypesC-45List-C-43C-43 (TTImpC-45Utils-findIBindVars e-1) arg-1)))) (vector 0 e-0 (TTImpC-45Utils-substNamesC-39 arg-0 '() '() e-1) (TTImpC-45Utils-substNamesC-39 arg-0 u--boundC-39 arg-2 e-2))))))) ((1) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((e-6 (vector-ref sc0 4))) (let ((e-7 (vector-ref sc0 5))) (let ((e-8 (vector-ref sc0 6))) (let ((u--boundC-39 (PreludeC-45TypesC-45List-C-43C-43 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (vector 1 eta-0)) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) (TTImpC-45Utils-findBindableNames 0 arg-1 '() e-4))) (PreludeC-45TypesC-45List-C-43C-43 (TTImpC-45Utils-findIBindVars e-4) arg-1)))) (vector 1 e-3 (TTImpC-45Utils-substNamesC-39 arg-0 '() '() e-4) (TTImpC-45Utils-substNamesC-39 arg-0 u--boundC-39 arg-2 e-5) e-6 e-7 e-8))))))))) (else (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (vector 2 e-9 (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 '() e-10))))))))) -(define TTImpC-45Utils-substNamesClause (lambda (ext-0 ext-1 ext-2) (TTImpC-45Utils-substNamesClauseC-39 1 ext-0 ext-1 ext-2))) -(define TTImpC-45Utils-substNamesC-39 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-0)) (cond ((equal? sc0 1) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (let ((e-59 (vector-ref sc1 1))) (let ((e-60 (vector-ref sc1 2))) (TTImpC-45Utils-case--substNamesC-39-792 e-60 e-59 arg-2 arg-1 (let ((sc2 (PreludeC-45Types-elem (cons (lambda (arg-4) (lambda (arg-5) (CoreC-45Name-u--C-61C-61_Eq_Name arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (CoreC-45Name-u--C-47C-61_Eq_Name arg-4 arg-5)))) e-60 arg-1))) (cond ((equal? sc2 0) 1) (else 0)))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((1) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((u--boundC-39 (PreludeC-45Types-maybe (lambda () arg-1) (lambda () (lambda (u--n) (cons u--n arg-1))) e-3))) (vector 1 e-0 e-1 e-2 e-3 (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 e-4) (TTImpC-45Utils-substNamesC-39 arg-0 u--boundC-39 arg-2 e-5)))))))))) ((2) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (let ((e-9 (vector-ref sc1 4))) (let ((e-10 (vector-ref sc1 5))) (let ((e-11 (vector-ref sc1 6))) (let ((u--boundC-39 (PreludeC-45Types-maybe (lambda () arg-1) (lambda () (lambda (u--n) (cons u--n arg-1))) e-9))) (vector 2 e-6 e-7 e-8 e-9 (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 e-10) (TTImpC-45Utils-substNamesC-39 arg-0 u--boundC-39 arg-2 e-11)))))))))) ((3) (let ((e-12 (vector-ref sc1 1))) (let ((e-13 (vector-ref sc1 2))) (let ((e-14 (vector-ref sc1 3))) (let ((e-15 (vector-ref sc1 4))) (let ((e-16 (vector-ref sc1 5))) (let ((e-17 (vector-ref sc1 6))) (let ((e-18 (vector-ref sc1 7))) (let ((u--boundC-39 (cons e-15 arg-1))) (vector 3 e-12 e-13 e-14 e-15 (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 e-16) (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 e-17) (TTImpC-45Utils-substNamesC-39 arg-0 u--boundC-39 arg-2 e-18))))))))))) ((4) (let ((e-19 (vector-ref sc1 1))) (let ((e-20 (vector-ref sc1 2))) (let ((e-21 (vector-ref sc1 3))) (let ((e-22 (vector-ref sc1 4))) (vector 4 e-19 (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 e-20) (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 e-21) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (TTImpC-45Utils-substNamesClauseC-39 arg-0 arg-1 arg-2 eta-0)) e-22))))))) ((5) (let ((e-23 (vector-ref sc1 1))) (let ((e-24 (vector-ref sc1 2))) (let ((e-25 (vector-ref sc1 3))) (let ((u--boundC-39 (PreludeC-45TypesC-45List-C-43C-43 (TTImpC-45TTImp-definedInBlock (CoreC-45NameC-45Namespace-emptyNS) e-24) arg-1))) (vector 5 e-23 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (TTImpC-45Utils-substNamesDeclC-39 arg-0 arg-1 arg-2 eta-0)) e-24) (TTImpC-45Utils-substNamesC-39 arg-0 u--boundC-39 arg-2 e-25))))))) ((8) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (vector 8 e-26 (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 e-27) (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 e-28)))))) ((10) (let ((e-29 (vector-ref sc1 1))) (let ((e-30 (vector-ref sc1 2))) (let ((e-31 (vector-ref sc1 3))) (let ((e-32 (vector-ref sc1 4))) (vector 10 e-29 (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 e-30) e-31 (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 e-32))))))) ((9) (let ((e-33 (vector-ref sc1 1))) (let ((e-34 (vector-ref sc1 2))) (let ((e-35 (vector-ref sc1 3))) (vector 9 e-33 (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 e-34) (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 e-35)))))) ((11) (let ((e-36 (vector-ref sc1 1))) (let ((e-37 (vector-ref sc1 2))) (let ((e-38 (vector-ref sc1 3))) (vector 11 e-36 (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 e-37) (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 e-38)))))) ((13) (let ((e-39 (vector-ref sc1 1))) (let ((e-40 (vector-ref sc1 2))) (let ((e-41 (vector-ref sc1 3))) (vector 13 e-39 e-40 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 eta-0)) e-41)))))) ((15) (let ((e-42 (vector-ref sc1 1))) (let ((e-43 (vector-ref sc1 2))) (vector 15 e-42 (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 e-43))))) ((18) (let ((e-44 (vector-ref sc1 1))) (let ((e-45 (vector-ref sc1 2))) (let ((e-46 (vector-ref sc1 3))) (let ((e-47 (vector-ref sc1 4))) (let ((e-48 (vector-ref sc1 5))) (vector 18 e-44 e-45 e-46 e-47 (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 e-48)))))))) ((19) (let ((e-49 (vector-ref sc1 1))) (let ((e-50 (vector-ref sc1 2))) (let ((e-51 (vector-ref sc1 3))) (vector 19 e-49 e-50 (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 e-51)))))) ((20) (let ((e-52 (vector-ref sc1 1))) (let ((e-53 (vector-ref sc1 2))) (let ((e-54 (vector-ref sc1 3))) (vector 20 e-52 e-53 (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 e-54)))))) ((21) (let ((e-55 (vector-ref sc1 1))) (let ((e-56 (vector-ref sc1 2))) (vector 21 e-55 (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 e-56))))) ((22) (let ((e-57 (vector-ref sc1 1))) (let ((e-58 (vector-ref sc1 2))) (vector 22 e-57 (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 e-58)))))(else arg-3))))))) ((equal? sc0 0) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((17) (let ((e-61 (vector-ref sc1 1))) (let ((e-62 (vector-ref sc1 2))) (TTImpC-45Utils-case--substNamesC-39-847 e-62 e-61 arg-2 arg-1 (let ((sc2 (PreludeC-45Types-elem (cons (lambda (arg-4) (lambda (arg-5) (CoreC-45Name-u--C-61C-61_Eq_Name arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (CoreC-45Name-u--C-47C-61_Eq_Name arg-4 arg-5)))) (vector 1 e-62) arg-1))) (cond ((equal? sc2 0) 1) (else 0)))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((1) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((u--boundC-39 (PreludeC-45Types-maybe (lambda () arg-1) (lambda () (lambda (u--n) (cons u--n arg-1))) e-3))) (vector 1 e-0 e-1 e-2 e-3 (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 e-4) (TTImpC-45Utils-substNamesC-39 arg-0 u--boundC-39 arg-2 e-5)))))))))) ((2) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (let ((e-9 (vector-ref sc1 4))) (let ((e-10 (vector-ref sc1 5))) (let ((e-11 (vector-ref sc1 6))) (let ((u--boundC-39 (PreludeC-45Types-maybe (lambda () arg-1) (lambda () (lambda (u--n) (cons u--n arg-1))) e-9))) (vector 2 e-6 e-7 e-8 e-9 (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 e-10) (TTImpC-45Utils-substNamesC-39 arg-0 u--boundC-39 arg-2 e-11)))))))))) ((3) (let ((e-12 (vector-ref sc1 1))) (let ((e-13 (vector-ref sc1 2))) (let ((e-14 (vector-ref sc1 3))) (let ((e-15 (vector-ref sc1 4))) (let ((e-16 (vector-ref sc1 5))) (let ((e-17 (vector-ref sc1 6))) (let ((e-18 (vector-ref sc1 7))) (let ((u--boundC-39 (cons e-15 arg-1))) (vector 3 e-12 e-13 e-14 e-15 (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 e-16) (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 e-17) (TTImpC-45Utils-substNamesC-39 arg-0 u--boundC-39 arg-2 e-18))))))))))) ((4) (let ((e-19 (vector-ref sc1 1))) (let ((e-20 (vector-ref sc1 2))) (let ((e-21 (vector-ref sc1 3))) (let ((e-22 (vector-ref sc1 4))) (vector 4 e-19 (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 e-20) (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 e-21) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (TTImpC-45Utils-substNamesClauseC-39 arg-0 arg-1 arg-2 eta-0)) e-22))))))) ((5) (let ((e-23 (vector-ref sc1 1))) (let ((e-24 (vector-ref sc1 2))) (let ((e-25 (vector-ref sc1 3))) (let ((u--boundC-39 (PreludeC-45TypesC-45List-C-43C-43 (TTImpC-45TTImp-definedInBlock (CoreC-45NameC-45Namespace-emptyNS) e-24) arg-1))) (vector 5 e-23 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (TTImpC-45Utils-substNamesDeclC-39 arg-0 arg-1 arg-2 eta-0)) e-24) (TTImpC-45Utils-substNamesC-39 arg-0 u--boundC-39 arg-2 e-25))))))) ((8) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (vector 8 e-26 (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 e-27) (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 e-28)))))) ((10) (let ((e-29 (vector-ref sc1 1))) (let ((e-30 (vector-ref sc1 2))) (let ((e-31 (vector-ref sc1 3))) (let ((e-32 (vector-ref sc1 4))) (vector 10 e-29 (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 e-30) e-31 (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 e-32))))))) ((9) (let ((e-33 (vector-ref sc1 1))) (let ((e-34 (vector-ref sc1 2))) (let ((e-35 (vector-ref sc1 3))) (vector 9 e-33 (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 e-34) (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 e-35)))))) ((11) (let ((e-36 (vector-ref sc1 1))) (let ((e-37 (vector-ref sc1 2))) (let ((e-38 (vector-ref sc1 3))) (vector 11 e-36 (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 e-37) (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 e-38)))))) ((13) (let ((e-39 (vector-ref sc1 1))) (let ((e-40 (vector-ref sc1 2))) (let ((e-41 (vector-ref sc1 3))) (vector 13 e-39 e-40 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 eta-0)) e-41)))))) ((15) (let ((e-42 (vector-ref sc1 1))) (let ((e-43 (vector-ref sc1 2))) (vector 15 e-42 (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 e-43))))) ((18) (let ((e-44 (vector-ref sc1 1))) (let ((e-45 (vector-ref sc1 2))) (let ((e-46 (vector-ref sc1 3))) (let ((e-47 (vector-ref sc1 4))) (let ((e-48 (vector-ref sc1 5))) (vector 18 e-44 e-45 e-46 e-47 (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 e-48)))))))) ((19) (let ((e-49 (vector-ref sc1 1))) (let ((e-50 (vector-ref sc1 2))) (let ((e-51 (vector-ref sc1 3))) (vector 19 e-49 e-50 (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 e-51)))))) ((20) (let ((e-52 (vector-ref sc1 1))) (let ((e-53 (vector-ref sc1 2))) (let ((e-54 (vector-ref sc1 3))) (vector 20 e-52 e-53 (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 e-54)))))) ((21) (let ((e-55 (vector-ref sc1 1))) (let ((e-56 (vector-ref sc1 2))) (vector 21 e-55 (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 e-56))))) ((22) (let ((e-57 (vector-ref sc1 1))) (let ((e-58 (vector-ref sc1 2))) (vector 22 e-57 (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 e-58)))))(else arg-3)))))))(else (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((u--boundC-39 (PreludeC-45Types-maybe (lambda () arg-1) (lambda () (lambda (u--n) (cons u--n arg-1))) e-3))) (vector 1 e-0 e-1 e-2 e-3 (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 e-4) (TTImpC-45Utils-substNamesC-39 arg-0 u--boundC-39 arg-2 e-5)))))))))) ((2) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (let ((e-9 (vector-ref sc0 4))) (let ((e-10 (vector-ref sc0 5))) (let ((e-11 (vector-ref sc0 6))) (let ((u--boundC-39 (PreludeC-45Types-maybe (lambda () arg-1) (lambda () (lambda (u--n) (cons u--n arg-1))) e-9))) (vector 2 e-6 e-7 e-8 e-9 (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 e-10) (TTImpC-45Utils-substNamesC-39 arg-0 u--boundC-39 arg-2 e-11)))))))))) ((3) (let ((e-12 (vector-ref sc0 1))) (let ((e-13 (vector-ref sc0 2))) (let ((e-14 (vector-ref sc0 3))) (let ((e-15 (vector-ref sc0 4))) (let ((e-16 (vector-ref sc0 5))) (let ((e-17 (vector-ref sc0 6))) (let ((e-18 (vector-ref sc0 7))) (let ((u--boundC-39 (cons e-15 arg-1))) (vector 3 e-12 e-13 e-14 e-15 (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 e-16) (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 e-17) (TTImpC-45Utils-substNamesC-39 arg-0 u--boundC-39 arg-2 e-18))))))))))) ((4) (let ((e-19 (vector-ref sc0 1))) (let ((e-20 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 3))) (let ((e-22 (vector-ref sc0 4))) (vector 4 e-19 (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 e-20) (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 e-21) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (TTImpC-45Utils-substNamesClauseC-39 arg-0 arg-1 arg-2 eta-0)) e-22))))))) ((5) (let ((e-23 (vector-ref sc0 1))) (let ((e-24 (vector-ref sc0 2))) (let ((e-25 (vector-ref sc0 3))) (let ((u--boundC-39 (PreludeC-45TypesC-45List-C-43C-43 (TTImpC-45TTImp-definedInBlock (CoreC-45NameC-45Namespace-emptyNS) e-24) arg-1))) (vector 5 e-23 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (TTImpC-45Utils-substNamesDeclC-39 arg-0 arg-1 arg-2 eta-0)) e-24) (TTImpC-45Utils-substNamesC-39 arg-0 u--boundC-39 arg-2 e-25))))))) ((8) (let ((e-26 (vector-ref sc0 1))) (let ((e-27 (vector-ref sc0 2))) (let ((e-28 (vector-ref sc0 3))) (vector 8 e-26 (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 e-27) (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 e-28)))))) ((10) (let ((e-29 (vector-ref sc0 1))) (let ((e-30 (vector-ref sc0 2))) (let ((e-31 (vector-ref sc0 3))) (let ((e-32 (vector-ref sc0 4))) (vector 10 e-29 (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 e-30) e-31 (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 e-32))))))) ((9) (let ((e-33 (vector-ref sc0 1))) (let ((e-34 (vector-ref sc0 2))) (let ((e-35 (vector-ref sc0 3))) (vector 9 e-33 (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 e-34) (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 e-35)))))) ((11) (let ((e-36 (vector-ref sc0 1))) (let ((e-37 (vector-ref sc0 2))) (let ((e-38 (vector-ref sc0 3))) (vector 11 e-36 (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 e-37) (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 e-38)))))) ((13) (let ((e-39 (vector-ref sc0 1))) (let ((e-40 (vector-ref sc0 2))) (let ((e-41 (vector-ref sc0 3))) (vector 13 e-39 e-40 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 eta-0)) e-41)))))) ((15) (let ((e-42 (vector-ref sc0 1))) (let ((e-43 (vector-ref sc0 2))) (vector 15 e-42 (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 e-43))))) ((18) (let ((e-44 (vector-ref sc0 1))) (let ((e-45 (vector-ref sc0 2))) (let ((e-46 (vector-ref sc0 3))) (let ((e-47 (vector-ref sc0 4))) (let ((e-48 (vector-ref sc0 5))) (vector 18 e-44 e-45 e-46 e-47 (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 e-48)))))))) ((19) (let ((e-49 (vector-ref sc0 1))) (let ((e-50 (vector-ref sc0 2))) (let ((e-51 (vector-ref sc0 3))) (vector 19 e-49 e-50 (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 e-51)))))) ((20) (let ((e-52 (vector-ref sc0 1))) (let ((e-53 (vector-ref sc0 2))) (let ((e-54 (vector-ref sc0 3))) (vector 20 e-52 e-53 (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 e-54)))))) ((21) (let ((e-55 (vector-ref sc0 1))) (let ((e-56 (vector-ref sc0 2))) (vector 21 e-55 (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 e-56))))) ((22) (let ((e-57 (vector-ref sc0 1))) (let ((e-58 (vector-ref sc0 2))) (vector 22 e-57 (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 e-58)))))(else arg-3)))))))) -(define TTImpC-45Utils-substNames (lambda (ext-0 ext-1 ext-2) (TTImpC-45Utils-substNamesC-39 1 ext-0 ext-1 ext-2))) -(define TTImpC-45Utils-substLocTy (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (vector 0 arg-0 arg-0 e-2 (TTImpC-45Utils-substLoc arg-0 e-3))))))) -(define TTImpC-45Utils-substLocDecl (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (vector 0 arg-0 e-1 e-2 e-3 (TTImpC-45Utils-substLocTy arg-0 e-4))))))) ((2) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (vector 2 arg-0 e-6 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (TTImpC-45Utils-substLocClause arg-0 eta-0)) e-7))))) ((1) (let ((e-9 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 3))) (vector 1 arg-0 e-9 (TTImpC-45Utils-substLocData arg-0 e-10))))) ((5) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (vector 5 arg-0 e-12 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (TTImpC-45Utils-substLocDecl arg-0 eta-0)) e-13)))))(else arg-1))))) -(define TTImpC-45Utils-substLocData (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (vector 0 arg-0 e-1 (TTImpC-45Utils-substLoc arg-0 e-2) e-3 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (TTImpC-45Utils-substLocTy arg-0 eta-0)) e-4))))))) (else (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (vector 1 arg-0 e-6 (TTImpC-45Utils-substLoc arg-0 e-7))))))))) -(define TTImpC-45Utils-substLocClause (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (vector 0 arg-0 (TTImpC-45Utils-substLoc arg-0 e-1) (TTImpC-45Utils-substLoc arg-0 e-2))))) ((1) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((e-6 (vector-ref sc0 4))) (let ((e-7 (vector-ref sc0 5))) (let ((e-8 (vector-ref sc0 6))) (vector 1 arg-0 (TTImpC-45Utils-substLoc arg-0 e-4) (TTImpC-45Utils-substLoc arg-0 e-5) e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (TTImpC-45Utils-substLocClause arg-0 eta-0)) e-8)))))))) (else (let ((e-10 (vector-ref sc0 2))) (vector 2 arg-0 (TTImpC-45Utils-substLoc arg-0 e-10)))))))) -(define TTImpC-45Utils-substLoc (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (vector 0 arg-0 e-1))) ((1) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (let ((e-6 (vector-ref sc0 5))) (let ((e-7 (vector-ref sc0 6))) (vector 1 arg-0 e-3 e-4 e-5 (TTImpC-45Utils-substLoc arg-0 e-6) (TTImpC-45Utils-substLoc arg-0 e-7)))))))) ((2) (let ((e-9 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 3))) (let ((e-11 (vector-ref sc0 4))) (let ((e-12 (vector-ref sc0 5))) (let ((e-13 (vector-ref sc0 6))) (vector 2 arg-0 e-9 e-10 e-11 (TTImpC-45Utils-substLoc arg-0 e-12) (TTImpC-45Utils-substLoc arg-0 e-13)))))))) ((3) (let ((e-16 (vector-ref sc0 3))) (let ((e-17 (vector-ref sc0 4))) (let ((e-18 (vector-ref sc0 5))) (let ((e-19 (vector-ref sc0 6))) (let ((e-20 (vector-ref sc0 7))) (vector 3 arg-0 arg-0 e-16 e-17 (TTImpC-45Utils-substLoc arg-0 e-18) (TTImpC-45Utils-substLoc arg-0 e-19) (TTImpC-45Utils-substLoc arg-0 e-20)))))))) ((4) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (let ((e-24 (vector-ref sc0 4))) (vector 4 arg-0 (TTImpC-45Utils-substLoc arg-0 e-22) (TTImpC-45Utils-substLoc arg-0 e-23) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (TTImpC-45Utils-substLocClause arg-0 eta-0)) e-24)))))) ((5) (let ((e-26 (vector-ref sc0 2))) (let ((e-27 (vector-ref sc0 3))) (vector 5 arg-0 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (TTImpC-45Utils-substLocDecl arg-0 eta-0)) e-26) (TTImpC-45Utils-substLoc arg-0 e-27))))) ((8) (let ((e-29 (vector-ref sc0 2))) (let ((e-30 (vector-ref sc0 3))) (vector 8 arg-0 (TTImpC-45Utils-substLoc arg-0 e-29) (TTImpC-45Utils-substLoc arg-0 e-30))))) ((10) (let ((e-32 (vector-ref sc0 2))) (let ((e-33 (vector-ref sc0 3))) (let ((e-34 (vector-ref sc0 4))) (vector 10 arg-0 (TTImpC-45Utils-substLoc arg-0 e-32) e-33 (TTImpC-45Utils-substLoc arg-0 e-34)))))) ((9) (let ((e-36 (vector-ref sc0 2))) (let ((e-37 (vector-ref sc0 3))) (vector 9 arg-0 (TTImpC-45Utils-substLoc arg-0 e-36) (TTImpC-45Utils-substLoc arg-0 e-37))))) ((11) (let ((e-39 (vector-ref sc0 2))) (let ((e-40 (vector-ref sc0 3))) (vector 11 arg-0 (TTImpC-45Utils-substLoc arg-0 e-39) (TTImpC-45Utils-substLoc arg-0 e-40))))) ((13) (let ((e-42 (vector-ref sc0 2))) (let ((e-43 (vector-ref sc0 3))) (vector 13 arg-0 e-42 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (TTImpC-45Utils-substLoc arg-0 eta-0)) e-43))))) ((15) (let ((e-45 (vector-ref sc0 2))) (vector 15 arg-0 (TTImpC-45Utils-substLoc arg-0 e-45)))) ((18) (let ((e-48 (vector-ref sc0 3))) (let ((e-49 (vector-ref sc0 4))) (let ((e-50 (vector-ref sc0 5))) (vector 18 arg-0 arg-0 e-48 e-49 (TTImpC-45Utils-substLoc arg-0 e-50)))))) ((19) (let ((e-52 (vector-ref sc0 2))) (let ((e-53 (vector-ref sc0 3))) (vector 19 arg-0 e-52 (TTImpC-45Utils-substLoc arg-0 e-53))))) ((20) (let ((e-55 (vector-ref sc0 2))) (let ((e-56 (vector-ref sc0 3))) (vector 20 arg-0 e-55 (TTImpC-45Utils-substLoc arg-0 e-56))))) ((21) (let ((e-58 (vector-ref sc0 2))) (vector 21 arg-0 (TTImpC-45Utils-substLoc arg-0 e-58)))) ((22) (let ((e-60 (vector-ref sc0 2))) (vector 22 arg-0 (TTImpC-45Utils-substLoc arg-0 e-60))))(else arg-1))))) -(define TTImpC-45Utils-substBindVars (lambda (ext-0 ext-1 ext-2) (TTImpC-45Utils-substNamesC-39 0 ext-0 ext-1 ext-2))) -(define TTImpC-45Utils-nameNum (lambda (arg-0) (TTImpC-45Utils-case--nameNum-1129 arg-0 (DataC-45String-span (lambda (eta-0) (PreludeC-45Types-isDigit eta-0)) (PreludeC-45Types-reverse arg-0))))) -(define TTImpC-45Utils-getUnique (lambda (arg-0 arg-1) (TTImpC-45Utils-case--getUnique-406 arg-1 arg-0 (PreludeC-45Types-elem (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_String arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_String arg-4 arg-5)))) arg-1 arg-0)))) -(define TTImpC-45Utils-findIBindVars (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (PreludeC-45TypesC-45List-C-43C-43 (TTImpC-45Utils-findIBindVars e-4) (TTImpC-45Utils-findIBindVars e-5))))) ((2) (let ((e-10 (vector-ref sc0 5))) (let ((e-11 (vector-ref sc0 6))) (PreludeC-45TypesC-45List-C-43C-43 (TTImpC-45Utils-findIBindVars e-10) (TTImpC-45Utils-findIBindVars e-11))))) ((8) (let ((e-13 (vector-ref sc0 2))) (let ((e-14 (vector-ref sc0 3))) (PreludeC-45TypesC-45List-C-43C-43 (TTImpC-45Utils-findIBindVars e-13) (TTImpC-45Utils-findIBindVars e-14))))) ((10) (let ((e-16 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 4))) (PreludeC-45TypesC-45List-C-43C-43 (TTImpC-45Utils-findIBindVars e-16) (TTImpC-45Utils-findIBindVars e-18))))) ((9) (let ((e-20 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 3))) (PreludeC-45TypesC-45List-C-43C-43 (TTImpC-45Utils-findIBindVars e-20) (TTImpC-45Utils-findIBindVars e-21))))) ((11) (let ((e-23 (vector-ref sc0 2))) (let ((e-24 (vector-ref sc0 3))) (PreludeC-45TypesC-45List-C-43C-43 (TTImpC-45Utils-findIBindVars e-23) (TTImpC-45Utils-findIBindVars e-24))))) ((17) (let ((e-26 (vector-ref sc0 2))) (cons (vector 1 e-26) '()))) ((20) (let ((e-29 (vector-ref sc0 3))) (TTImpC-45Utils-findIBindVars e-29))) ((21) (let ((e-31 (vector-ref sc0 2))) (TTImpC-45Utils-findIBindVars e-31))) ((22) (let ((e-33 (vector-ref sc0 2))) (TTImpC-45Utils-findIBindVars e-33))) ((13) (let ((e-36 (vector-ref sc0 3))) (PreludeC-45Interfaces-concatMap (cons (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-2 arg-3))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) (lambda (eta-0) (TTImpC-45Utils-findIBindVars eta-0)) e-36)))(else '()))))) -(define TTImpC-45Utils-findBindableNames (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-0)) (cond ((equal? sc0 0) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (let ((e-48 (vector-ref sc1 1))) (let ((e-49 (vector-ref sc1 2))) (let ((sc2 e-49)) (case (vector-ref sc2 0) ((1) (let ((e-50 (vector-ref sc2 1))) (TTImpC-45Utils-case--findBindableNames-430 e-50 e-48 arg-2 arg-1 (PreludeC-45Basics-C-38C-38 (let ((sc3 (PreludeC-45Types-elem (cons (lambda (arg-4) (lambda (arg-5) (CoreC-45Name-u--C-61C-61_Eq_Name arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (CoreC-45Name-u--C-47C-61_Eq_Name arg-4 arg-5)))) (vector 1 e-50) arg-1))) (cond ((equal? sc3 0) 1) (else 0))) (lambda () (LibrariesC-45UtilsC-45String-lowerFirst e-50))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((1) (let ((e-3 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-5 (vector-ref sc2 6))) (let ((u--envC-39 (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) arg-1) (else (let ((e-6 (vector-ref sc3 1))) (cons e-6 arg-1))))))) (PreludeC-45TypesC-45List-C-43C-43 (TTImpC-45Utils-findBindableNames 0 arg-1 arg-2 e-4) (TTImpC-45Utils-findBindableNames 0 u--envC-39 arg-2 e-5))))))) ((2) (let ((e-9 (vector-ref sc2 4))) (let ((e-10 (vector-ref sc2 5))) (let ((e-11 (vector-ref sc2 6))) (let ((u--envC-39 (let ((sc3 e-9)) (case (vector-ref sc3 0) ((0) arg-1) (else (let ((e-2 (vector-ref sc3 1))) (cons e-2 arg-1))))))) (PreludeC-45TypesC-45List-C-43C-43 (TTImpC-45Utils-findBindableNames 0 arg-1 arg-2 e-10) (TTImpC-45Utils-findBindableNames 0 u--envC-39 arg-2 e-11))))))) ((8) (let ((e-13 (vector-ref sc2 2))) (let ((e-14 (vector-ref sc2 3))) (PreludeC-45TypesC-45List-C-43C-43 (TTImpC-45Utils-findBindableNames 1 arg-1 arg-2 e-13) (TTImpC-45Utils-findBindableNames 0 arg-1 arg-2 e-14))))) ((10) (let ((e-16 (vector-ref sc2 2))) (let ((e-18 (vector-ref sc2 4))) (PreludeC-45TypesC-45List-C-43C-43 (TTImpC-45Utils-findBindableNames 1 arg-1 arg-2 e-16) (TTImpC-45Utils-findBindableNames 0 arg-1 arg-2 e-18))))) ((9) (let ((e-20 (vector-ref sc2 2))) (let ((e-21 (vector-ref sc2 3))) (PreludeC-45TypesC-45List-C-43C-43 (TTImpC-45Utils-findBindableNames 1 arg-1 arg-2 e-20) (TTImpC-45Utils-findBindableNames 0 arg-1 arg-2 e-21))))) ((11) (let ((e-23 (vector-ref sc2 2))) (let ((e-24 (vector-ref sc2 3))) (PreludeC-45TypesC-45List-C-43C-43 (TTImpC-45Utils-findBindableNames 1 arg-1 arg-2 e-23) (TTImpC-45Utils-findBindableNames 0 arg-1 arg-2 e-24))))) ((18) (let ((e-28 (vector-ref sc2 4))) (let ((e-29 (vector-ref sc2 5))) (let ((sc3 e-28)) (case (vector-ref sc3 0) ((1) (let ((e-47 (vector-ref sc3 1))) (cons (cons e-47 (TTImpC-45Utils-getUnique arg-2 e-47)) (TTImpC-45Utils-findBindableNames arg-0 arg-1 arg-2 e-29))))(else (TTImpC-45Utils-findBindableNames arg-0 arg-1 arg-2 e-29))))))) ((19) (let ((e-32 (vector-ref sc2 3))) (TTImpC-45Utils-findBindableNames arg-0 arg-1 arg-2 e-32))) ((20) (let ((e-35 (vector-ref sc2 3))) (TTImpC-45Utils-findBindableNames arg-0 arg-1 arg-2 e-35))) ((21) (let ((e-37 (vector-ref sc2 2))) (TTImpC-45Utils-findBindableNames arg-0 arg-1 arg-2 e-37))) ((22) (let ((e-39 (vector-ref sc2 2))) (TTImpC-45Utils-findBindableNames arg-0 arg-1 arg-2 e-39))) ((23) (let ((e-41 (vector-ref sc2 2))) (TTImpC-45Utils-findBindableNames arg-0 arg-1 arg-2 e-41))) ((26) (let ((e-43 (vector-ref sc2 2))) (TTImpC-45Utils-findBindableNames arg-0 arg-1 arg-2 e-43))) ((13) (let ((e-46 (vector-ref sc2 3))) (PreludeC-45Interfaces-concatMap (cons (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (cons (lambda (arg-4) (lambda (arg-5) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-4 arg-5))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) (lambda (eta-0) (TTImpC-45Utils-findBindableNames arg-0 arg-1 arg-2 eta-0)) e-46)))(else '())))))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((u--envC-39 (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) arg-1) (else (let ((e-6 (vector-ref sc2 1))) (cons e-6 arg-1))))))) (PreludeC-45TypesC-45List-C-43C-43 (TTImpC-45Utils-findBindableNames 0 arg-1 arg-2 e-4) (TTImpC-45Utils-findBindableNames 0 u--envC-39 arg-2 e-5))))))) ((2) (let ((e-9 (vector-ref sc1 4))) (let ((e-10 (vector-ref sc1 5))) (let ((e-11 (vector-ref sc1 6))) (let ((u--envC-39 (let ((sc2 e-9)) (case (vector-ref sc2 0) ((0) arg-1) (else (let ((e-2 (vector-ref sc2 1))) (cons e-2 arg-1))))))) (PreludeC-45TypesC-45List-C-43C-43 (TTImpC-45Utils-findBindableNames 0 arg-1 arg-2 e-10) (TTImpC-45Utils-findBindableNames 0 u--envC-39 arg-2 e-11))))))) ((8) (let ((e-13 (vector-ref sc1 2))) (let ((e-14 (vector-ref sc1 3))) (PreludeC-45TypesC-45List-C-43C-43 (TTImpC-45Utils-findBindableNames 1 arg-1 arg-2 e-13) (TTImpC-45Utils-findBindableNames 0 arg-1 arg-2 e-14))))) ((10) (let ((e-16 (vector-ref sc1 2))) (let ((e-18 (vector-ref sc1 4))) (PreludeC-45TypesC-45List-C-43C-43 (TTImpC-45Utils-findBindableNames 1 arg-1 arg-2 e-16) (TTImpC-45Utils-findBindableNames 0 arg-1 arg-2 e-18))))) ((9) (let ((e-20 (vector-ref sc1 2))) (let ((e-21 (vector-ref sc1 3))) (PreludeC-45TypesC-45List-C-43C-43 (TTImpC-45Utils-findBindableNames 1 arg-1 arg-2 e-20) (TTImpC-45Utils-findBindableNames 0 arg-1 arg-2 e-21))))) ((11) (let ((e-23 (vector-ref sc1 2))) (let ((e-24 (vector-ref sc1 3))) (PreludeC-45TypesC-45List-C-43C-43 (TTImpC-45Utils-findBindableNames 1 arg-1 arg-2 e-23) (TTImpC-45Utils-findBindableNames 0 arg-1 arg-2 e-24))))) ((18) (let ((e-28 (vector-ref sc1 4))) (let ((e-29 (vector-ref sc1 5))) (let ((sc2 e-28)) (case (vector-ref sc2 0) ((1) (let ((e-47 (vector-ref sc2 1))) (cons (cons e-47 (TTImpC-45Utils-getUnique arg-2 e-47)) (TTImpC-45Utils-findBindableNames arg-0 arg-1 arg-2 e-29))))(else (TTImpC-45Utils-findBindableNames arg-0 arg-1 arg-2 e-29))))))) ((19) (let ((e-32 (vector-ref sc1 3))) (TTImpC-45Utils-findBindableNames arg-0 arg-1 arg-2 e-32))) ((20) (let ((e-35 (vector-ref sc1 3))) (TTImpC-45Utils-findBindableNames arg-0 arg-1 arg-2 e-35))) ((21) (let ((e-37 (vector-ref sc1 2))) (TTImpC-45Utils-findBindableNames arg-0 arg-1 arg-2 e-37))) ((22) (let ((e-39 (vector-ref sc1 2))) (TTImpC-45Utils-findBindableNames arg-0 arg-1 arg-2 e-39))) ((23) (let ((e-41 (vector-ref sc1 2))) (TTImpC-45Utils-findBindableNames arg-0 arg-1 arg-2 e-41))) ((26) (let ((e-43 (vector-ref sc1 2))) (TTImpC-45Utils-findBindableNames arg-0 arg-1 arg-2 e-43))) ((13) (let ((e-46 (vector-ref sc1 3))) (PreludeC-45Interfaces-concatMap (cons (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (cons (lambda (arg-4) (lambda (arg-5) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-4 arg-5))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) (lambda (eta-0) (TTImpC-45Utils-findBindableNames arg-0 arg-1 arg-2 eta-0)) e-46)))(else '())))))))(else (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((u--envC-39 (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) arg-1) (else (let ((e-6 (vector-ref sc1 1))) (cons e-6 arg-1))))))) (PreludeC-45TypesC-45List-C-43C-43 (TTImpC-45Utils-findBindableNames 0 arg-1 arg-2 e-4) (TTImpC-45Utils-findBindableNames 0 u--envC-39 arg-2 e-5))))))) ((2) (let ((e-9 (vector-ref sc0 4))) (let ((e-10 (vector-ref sc0 5))) (let ((e-11 (vector-ref sc0 6))) (let ((u--envC-39 (let ((sc1 e-9)) (case (vector-ref sc1 0) ((0) arg-1) (else (let ((e-2 (vector-ref sc1 1))) (cons e-2 arg-1))))))) (PreludeC-45TypesC-45List-C-43C-43 (TTImpC-45Utils-findBindableNames 0 arg-1 arg-2 e-10) (TTImpC-45Utils-findBindableNames 0 u--envC-39 arg-2 e-11))))))) ((8) (let ((e-13 (vector-ref sc0 2))) (let ((e-14 (vector-ref sc0 3))) (PreludeC-45TypesC-45List-C-43C-43 (TTImpC-45Utils-findBindableNames 1 arg-1 arg-2 e-13) (TTImpC-45Utils-findBindableNames 0 arg-1 arg-2 e-14))))) ((10) (let ((e-16 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 4))) (PreludeC-45TypesC-45List-C-43C-43 (TTImpC-45Utils-findBindableNames 1 arg-1 arg-2 e-16) (TTImpC-45Utils-findBindableNames 0 arg-1 arg-2 e-18))))) ((9) (let ((e-20 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 3))) (PreludeC-45TypesC-45List-C-43C-43 (TTImpC-45Utils-findBindableNames 1 arg-1 arg-2 e-20) (TTImpC-45Utils-findBindableNames 0 arg-1 arg-2 e-21))))) ((11) (let ((e-23 (vector-ref sc0 2))) (let ((e-24 (vector-ref sc0 3))) (PreludeC-45TypesC-45List-C-43C-43 (TTImpC-45Utils-findBindableNames 1 arg-1 arg-2 e-23) (TTImpC-45Utils-findBindableNames 0 arg-1 arg-2 e-24))))) ((18) (let ((e-28 (vector-ref sc0 4))) (let ((e-29 (vector-ref sc0 5))) (let ((sc1 e-28)) (case (vector-ref sc1 0) ((1) (let ((e-47 (vector-ref sc1 1))) (cons (cons e-47 (TTImpC-45Utils-getUnique arg-2 e-47)) (TTImpC-45Utils-findBindableNames arg-0 arg-1 arg-2 e-29))))(else (TTImpC-45Utils-findBindableNames arg-0 arg-1 arg-2 e-29))))))) ((19) (let ((e-32 (vector-ref sc0 3))) (TTImpC-45Utils-findBindableNames arg-0 arg-1 arg-2 e-32))) ((20) (let ((e-35 (vector-ref sc0 3))) (TTImpC-45Utils-findBindableNames arg-0 arg-1 arg-2 e-35))) ((21) (let ((e-37 (vector-ref sc0 2))) (TTImpC-45Utils-findBindableNames arg-0 arg-1 arg-2 e-37))) ((22) (let ((e-39 (vector-ref sc0 2))) (TTImpC-45Utils-findBindableNames arg-0 arg-1 arg-2 e-39))) ((23) (let ((e-41 (vector-ref sc0 2))) (TTImpC-45Utils-findBindableNames arg-0 arg-1 arg-2 e-41))) ((26) (let ((e-43 (vector-ref sc0 2))) (TTImpC-45Utils-findBindableNames arg-0 arg-1 arg-2 e-43))) ((13) (let ((e-46 (vector-ref sc0 3))) (PreludeC-45Interfaces-concatMap (cons (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (cons (lambda (arg-4) (lambda (arg-5) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-4 arg-5))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) (lambda (eta-0) (TTImpC-45Utils-findBindableNames arg-0 arg-1 arg-2 eta-0)) e-46)))(else '())))))))) -(define TTImpC-45Utils-findAllNames (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (TTImpC-45Utils-case--findAllNames-601 e-1 e-0 arg-0 (let ((sc1 (PreludeC-45Types-elem (cons (lambda (arg-2) (lambda (arg-3) (CoreC-45Name-u--C-61C-61_Eq_Name arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (CoreC-45Name-u--C-47C-61_Eq_Name arg-4 arg-5)))) e-1 arg-0))) (cond ((equal? sc1 0) 1) (else 0))))))) ((1) (let ((e-5 (vector-ref sc0 4))) (let ((e-6 (vector-ref sc0 5))) (let ((e-7 (vector-ref sc0 6))) (let ((u--envC-39 (let ((sc1 e-5)) (case (vector-ref sc1 0) ((0) arg-0) (else (let ((e-8 (vector-ref sc1 1))) (cons e-8 arg-0))))))) (PreludeC-45TypesC-45List-C-43C-43 (TTImpC-45Utils-findAllNames arg-0 e-6) (TTImpC-45Utils-findAllNames u--envC-39 e-7))))))) ((2) (let ((e-11 (vector-ref sc0 4))) (let ((e-12 (vector-ref sc0 5))) (let ((e-13 (vector-ref sc0 6))) (let ((u--envC-39 (let ((sc1 e-11)) (case (vector-ref sc1 0) ((0) arg-0) (else (let ((e-2 (vector-ref sc1 1))) (cons e-2 arg-0))))))) (PreludeC-45TypesC-45List-C-43C-43 (TTImpC-45Utils-findAllNames u--envC-39 e-12) (TTImpC-45Utils-findAllNames u--envC-39 e-13))))))) ((8) (let ((e-15 (vector-ref sc0 2))) (let ((e-16 (vector-ref sc0 3))) (PreludeC-45TypesC-45List-C-43C-43 (TTImpC-45Utils-findAllNames arg-0 e-15) (TTImpC-45Utils-findAllNames arg-0 e-16))))) ((10) (let ((e-18 (vector-ref sc0 2))) (let ((e-20 (vector-ref sc0 4))) (PreludeC-45TypesC-45List-C-43C-43 (TTImpC-45Utils-findAllNames arg-0 e-18) (TTImpC-45Utils-findAllNames arg-0 e-20))))) ((9) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (PreludeC-45TypesC-45List-C-43C-43 (TTImpC-45Utils-findAllNames arg-0 e-22) (TTImpC-45Utils-findAllNames arg-0 e-23))))) ((11) (let ((e-25 (vector-ref sc0 2))) (let ((e-26 (vector-ref sc0 3))) (PreludeC-45TypesC-45List-C-43C-43 (TTImpC-45Utils-findAllNames arg-0 e-25) (TTImpC-45Utils-findAllNames arg-0 e-26))))) ((18) (let ((e-30 (vector-ref sc0 4))) (let ((e-31 (vector-ref sc0 5))) (cons e-30 (TTImpC-45Utils-findAllNames arg-0 e-31))))) ((19) (let ((e-34 (vector-ref sc0 3))) (TTImpC-45Utils-findAllNames arg-0 e-34))) ((20) (let ((e-37 (vector-ref sc0 3))) (TTImpC-45Utils-findAllNames arg-0 e-37))) ((21) (let ((e-39 (vector-ref sc0 2))) (TTImpC-45Utils-findAllNames arg-0 e-39))) ((22) (let ((e-41 (vector-ref sc0 2))) (TTImpC-45Utils-findAllNames arg-0 e-41))) ((23) (let ((e-43 (vector-ref sc0 2))) (TTImpC-45Utils-findAllNames arg-0 e-43))) ((26) (let ((e-45 (vector-ref sc0 2))) (TTImpC-45Utils-findAllNames arg-0 e-45))) ((13) (let ((e-48 (vector-ref sc0 3))) (PreludeC-45Interfaces-concatMap (cons (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-2 arg-3))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) (lambda (eta-0) (TTImpC-45Utils-findAllNames arg-0 eta-0)) e-48)))(else '()))))) -(define TTImpC-45TTImp-case--logRaw-7037 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (let ((act-24 ((PreludeC-45IO-putStrLn (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-0)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-0) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (let ((act-17 (arg-578 eta-0))) (let ((act-16 (arg-580 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (let ((act-24 (arg-876 eta-0))) ((arg-877 act-24) eta-0))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-0) (let ((act-51 (arg-879 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) (PreludeC-45TypesC-45String-C-43C-43 "LOG " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45OptionsC-45Log-u--show_Show_LogLevel arg-6) (PreludeC-45TypesC-45String-C-43C-43 ": " (PreludeC-45TypesC-45String-C-43C-43 (arg-1) (PreludeC-45TypesC-45String-C-43C-43 ": " (TTImpC-45TTImp-u--show_Show_RawImp arg-0))))))) ext-0))) (vector 1 act-24))) (else (vector 1 (vector 0 ))))))) -(define TTImpC-45TTImp-case--definedInBlockC-44expandNS-3311 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) arg-2) (else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((1) (vector 0 arg-3 arg-2)) ((2) (vector 0 arg-3 arg-2)) ((4) (vector 0 arg-3 arg-2)) ((5) (vector 0 arg-3 arg-2))(else arg-2)))))))) -(define TTImpC-45TTImp-case--implicitsAsC-44setAsC-44findImps-2951 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-19)) (cond ((equal? sc0 0) (TTImpC-45TTImp-n--11613-2469-u--findImps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-17 arg-16 '() arg-18)) (else (lambda (eta-0) (let ((act-24 ((TTImpC-45TTImp-n--11613-2469-u--findImps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-17 arg-16 '() arg-18) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (cons (cons arg-14 (CoreC-45TT-forgetDef arg-12)) e-5))))))))))))) -(define TTImpC-45TTImp-case--implicitsAsC-44setAsC-44findImps-2821 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((TTImpC-45TTImp-n--11613-2469-u--findImps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-16 arg-15 '() arg-17) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (cons (cons arg-13 (vector 2 )) e-5))))))))) (else (let ((e-2 (vector-ref sc0 1))) (TTImpC-45TTImp-n--11613-2469-u--findImps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2 arg-15 '() arg-17))))))) -(define TTImpC-45TTImp-case--caseC-32blockC-32inC-32implicitsAsC-44setAsC-44findImps-2708 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 '()))) (else (let ((e-2 (vector-ref sc0 1))) (TTImpC-45TTImp-n--11613-2469-u--findImps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-16 e-2 '() arg-17))))))) -(define TTImpC-45TTImp-case--implicitsAsC-44setAsC-44updateNs-2492 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (vector 1 arg-10)) (else (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (TTImpC-45TTImp-n--11613-2468-u--updateNs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-11 arg-10) (lambda (u--nsC-39) (PreludeC-45Types-u--pure_Applicative_Maybe (cons arg-9 u--nsC-39))))))))) -(define TTImpC-45TTImp-case--lhsInCurrentNS-2241 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((act-24 (CoreC-45Context-inCurrentNS arg-4 arg-1 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 arg-2 e-5)))))))) (else (vector 1 (vector 0 arg-2 arg-1))))))) -(define TTImpC-45TTImp-n--9683-648-u--wknName (lambda (arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-3)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (let ((sc2 e-7)) (let ((e-10 (car sc2))) (let ((e-11 (cdr sc2))) (cons e-2 (cons e-6 (cons (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45TT-u--weaken_Weaken_Var eta-0)) e-10) (lambda (u--fc) (lambda (u--nt) (CoreC-45TT-u--weaken_Weaken_Term ((e-11 u--fc) u--nt)))))))))))))))))) -(define TTImpC-45TTImp-n--11613-2468-u--updateNs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (if (null? sc0) (vector 0 ) (let ((e-1 (car sc0))) (let ((e-2 (cdr sc0))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (vector 1 e-2))(else (TTImpC-45TTImp-case--implicitsAsC-44setAsC-44updateNs-2492 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-1 e-2 arg-9 (PreludeC-45Types-u--C-61C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-11) (lambda (arg-12) (CoreC-45Name-u--C-61C-61_Eq_Name arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (CoreC-45Name-u--C-47C-61_Eq_Name arg-11 arg-12)))) (vector 1 arg-9) e-1))))))))))) -(define TTImpC-45TTImp-n--12564-3472-u--toRF (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (vector 5 e-0)))(else arg-11))))) -(define TTImpC-45TTImp-n--11606-2413-u--setAs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((8) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((act-24 (TTImpC-45TTImp-n--11606-2413-u--setAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (cons (vector 0 ) arg-6) e-1 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 8 e-0 e-5 e-2))))))))))) ((9) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((act-24 (TTImpC-45TTImp-n--11606-2413-u--setAs arg-0 arg-1 arg-2 arg-3 arg-4 (cons (vector 0 ) arg-5) arg-6 e-4 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 (vector 9 e-3 e-6 e-5))))))))))) ((10) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (let ((e-9 (vector-ref sc0 4))) (let ((act-24 (TTImpC-45TTImp-n--11606-2413-u--setAs arg-0 arg-1 arg-2 arg-3 arg-4 (cons (vector 1 e-8) arg-5) (cons (vector 1 e-8) arg-6) e-7 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 10 e-6 e-5 e-8 e-9)))))))))))) ((11) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (let ((act-24 (TTImpC-45TTImp-n--11606-2413-u--setAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-11 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 11 e-10 e-5 e-12))))))))))) ((0) (let ((e-13 (vector-ref sc0 1))) (let ((e-14 (vector-ref sc0 2))) (let ((act-24 (CoreC-45Context-lookupTyExact (vector 9 arg-3) (let ((sc1 arg-2)) (let ((e-0 (vector-ref sc1 1))) e-0)) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (let ((act-25 (CoreC-45ContextC-45Log-log arg-4 "declare.def.lhs.implicits" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))))))))))))))))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Could not find variable " (PreludeC-45Show-u--show_Show_Int arg-3))) ext-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (vector 1 (vector 0 e-13 e-14))))))) (else (let ((e-2 (vector-ref sc2 1))) (let ((act-25 ((CoreC-45Normalise-nf arg-4 '() arg-2 '() e-2) ext-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 ((TTImpC-45TTImp-n--11613-2469-u--findImps arg-0 arg-1 arg-2 arg-3 arg-4 e-14 e-13 arg-6 arg-5 arg-5 arg-6 arg-1 e-6) ext-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-27 (CoreC-45ContextC-45Log-log arg-4 "declare.def.lhs.implicits" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))))))))))))))))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "\u000a In the type of " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Int arg-3) (PreludeC-45TypesC-45String-C-43C-43 ": " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-2) (PreludeC-45TypesC-45String-C-43C-43 "\u000a Using locals: " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45Name-u--show_Show_Name u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Name-u--showPrec_Show_Name u--d u--x)))) arg-1) (PreludeC-45TypesC-45String-C-43C-43 "\u000a Found implicits: " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (CoreC-45Name-u--show_Show_Name x-0)) (lambda (u--d) (lambda (x-0) (CoreC-45Name-u--showPrec_Show_Name u--d x-0)))) (cons (lambda (x-0) (CoreC-45TT-u--show_Show_C-40PiInfoC-32C-36tC-41 (cons (lambda (x-1) (TTImpC-45TTImp-u--show_Show_RawImp x-1)) (lambda (u--d) (lambda (x-1) (TTImpC-45TTImp-u--showPrec_Show_RawImp u--d x-1)))) x-0)) (lambda (u--d) (lambda (x-0) (CoreC-45TT-u--showPrec_Show_C-40PiInfoC-32C-36tC-41 (cons (lambda (x-1) (TTImpC-45TTImp-u--show_Show_RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-0 x-1)))) u--d x-0))))) u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (CoreC-45Name-u--show_Show_Name x-0)) (lambda (d-0) (lambda (x-0) (CoreC-45Name-u--showPrec_Show_Name d-0 x-0)))) (cons (lambda (x-0) (CoreC-45TT-u--show_Show_C-40PiInfoC-32C-36tC-41 (cons (lambda (x-1) (TTImpC-45TTImp-u--show_Show_RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (CoreC-45TT-u--showPrec_Show_C-40PiInfoC-32C-36tC-41 (cons (lambda (x-1) (TTImpC-45TTImp-u--show_Show_RawImp x-1)) (lambda (d-1) (lambda (x-1) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-1 x-1)))) d-0 x-0))))) u--d u--x)))) e-7))))))))) ext-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (vector 1 (TTImpC-45TTImp-n--11613-2470-u--impAs arg-0 arg-1 arg-2 arg-3 arg-4 e-14 e-13 arg-6 arg-5 e-13 e-7 (vector 0 e-13 e-14)))))))))))))))))))))))))))))(else (vector 1 arg-7)))))) -(define TTImpC-45TTImp-n--11613-2470-u--impAs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-10)) (if (null? sc0) arg-11 (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (if (null? sc1) (TTImpC-45TTImp-n--11613-2470-u--impAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-3 arg-11) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-11 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((2) (TTImpC-45TTImp-n--11613-2470-u--impAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-3 (vector 10 arg-9 arg-11 (vector 1 e-11) (vector 17 arg-9 e-11))))(else (let ((sc3 e-7)) (case (vector-ref sc3 0) ((0) (TTImpC-45TTImp-n--11613-2470-u--impAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-3 (vector 10 arg-9 arg-11 e-6 (vector 18 arg-9 (vector 1 ) (vector 0 ) e-6 (vector 32 arg-9 0))))) ((3) (TTImpC-45TTImp-n--11613-2470-u--impAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-3 (vector 10 arg-9 arg-11 e-6 (vector 18 arg-9 (vector 1 ) (vector 0 ) e-6 (vector 32 arg-9 0)))))(else (TTImpC-45TTImp-n--11613-2470-u--impAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-3 arg-11)))))))))(else (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (TTImpC-45TTImp-n--11613-2470-u--impAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-3 (vector 10 arg-9 arg-11 e-6 (vector 18 arg-9 (vector 1 ) (vector 0 ) e-6 (vector 32 arg-9 0))))) ((3) (TTImpC-45TTImp-n--11613-2470-u--impAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-3 (vector 10 arg-9 arg-11 e-6 (vector 18 arg-9 (vector 1 ) (vector 0 ) e-6 (vector 32 arg-9 0)))))(else (TTImpC-45TTImp-n--11613-2470-u--impAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-3 arg-11))))))))))))))))) -(define TTImpC-45TTImp-n--12558-3281-u--getName (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 3))) e-2)))) -(define TTImpC-45TTImp-n--12558-3282-u--getFieldName (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-3 (vector-ref sc0 4))) e-3)))) -(define TTImpC-45TTImp-n--12564-3473-u--fnsUN (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (TTImpC-45TTImp-n--12558-3282-u--getFieldName arg-0 arg-1 eta-0)) arg-6))) -(define TTImpC-45TTImp-n--12564-3474-u--fnsRF (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (TTImpC-45TTImp-n--12564-3472-u--toRF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 eta-0)) (TTImpC-45TTImp-n--12564-3473-u--fnsUN arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10)))) -(define TTImpC-45TTImp-n--12564-3471-u--fldnsC-39 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (PreludeC-45Types-maybe (lambda () arg-10) (lambda () (lambda (u--f) (CoreC-45NameC-45Namespace-C-60C-46C-62 arg-10 (CoreC-45NameC-45Namespace-mkNamespace u--f)))) arg-9))) -(define TTImpC-45TTImp-n--11613-2469-u--findImps (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-11)) (if (null? sc0) (let ((sc1 arg-12)) (case (vector-ref sc1 0) ((0) (let ((e-16 (vector-ref sc1 1))) (let ((e-17 (vector-ref sc1 2))) (let ((e-18 (vector-ref sc1 3))) (let ((e-19 (vector-ref sc1 4))) (lambda (clam-1) (let ((sc2 e-18)) (case (vector-ref sc2 0) ((2) (let ((e-21 (vector-ref sc2 1))) (let ((e-22 (vector-ref sc2 2))) (let ((e-23 (vector-ref sc2 3))) (let ((e-24 (vector-ref sc2 4))) (let ((sc3 e-23)) (case (vector-ref sc3 0) ((1) (let ((act-24 (((e-19 arg-2) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 e-16 1))) clam-1))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((sc5 arg-10)) (if (null? sc5) ((TTImpC-45TTImp-case--caseC-32blockC-32inC-32implicitsAsC-44setAsC-44findImps-2708 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-21 e-22 e-24 e-19 e-17 e-16 arg-10 arg-9 e-5 (TTImpC-45TTImp-n--11613-2468-u--updateNs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-17 arg-10)) clam-1) (let ((e-1 (car sc5))) (let ((sc6 e-1)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((1) (let ((e-6 (vector-ref sc7 1))) (let ((sc8 e-6)) (cond ((equal? sc8 "_") ((TTImpC-45TTImp-n--11613-2469-u--findImps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 '() e-5) clam-1))(else ((TTImpC-45TTImp-case--caseC-32blockC-32inC-32implicitsAsC-44setAsC-44findImps-2708 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-21 e-22 e-24 e-19 e-17 e-16 arg-10 arg-9 e-5 (TTImpC-45TTImp-n--11613-2468-u--updateNs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-17 arg-10)) clam-1))))))(else ((TTImpC-45TTImp-case--caseC-32blockC-32inC-32implicitsAsC-44setAsC-44findImps-2708 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-21 e-22 e-24 e-19 e-17 e-16 arg-10 arg-9 e-5 (TTImpC-45TTImp-n--11613-2468-u--updateNs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-17 arg-10)) clam-1))))))(else ((TTImpC-45TTImp-case--caseC-32blockC-32inC-32implicitsAsC-44setAsC-44findImps-2708 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-21 e-22 e-24 e-19 e-17 e-16 arg-10 arg-9 e-5 (TTImpC-45TTImp-n--11613-2468-u--updateNs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-17 arg-10)) clam-1))))))))))))) ((2) (let ((act-24 (((e-19 arg-2) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 e-16 1))) clam-1))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) ((TTImpC-45TTImp-case--implicitsAsC-44setAsC-44findImps-2821 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-21 e-22 e-24 e-19 e-17 e-16 arg-10 arg-9 e-5 (TTImpC-45TTImp-n--11613-2468-u--updateNs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-17 arg-9)) clam-1)))))))(else (let ((act-24 (((e-19 arg-2) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 e-16 1))) clam-1))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) ((TTImpC-45TTImp-case--implicitsAsC-44setAsC-44findImps-2951 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-21 e-22 e-24 e-23 e-19 e-17 e-16 arg-10 arg-9 e-5 (PreludeC-45Types-elem (cons (lambda (arg-13) (lambda (arg-14) (PreludeC-45Types-u--C-61C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-15) (lambda (arg-16) (CoreC-45Name-u--C-61C-61_Eq_Name arg-15 arg-16))) (lambda (arg-15) (lambda (arg-16) (CoreC-45Name-u--C-47C-61_Eq_Name arg-15 arg-16)))) arg-13 arg-14))) (lambda (arg-13) (lambda (arg-14) (PreludeC-45Types-u--C-47C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-15) (lambda (arg-16) (CoreC-45Name-u--C-61C-61_Eq_Name arg-15 arg-16))) (lambda (arg-15) (lambda (arg-16) (CoreC-45Name-u--C-47C-61_Eq_Name arg-15 arg-16)))) arg-13 arg-14)))) (vector 1 e-17) arg-9)) clam-1))))))))))))))(else (let ((act-24 (CoreC-45ContextC-45Log-log arg-4 "declare.def.lhs.implicits" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))))))))))))))))))))))))))))))))))))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Giving up with the following locals left: " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45Name-u--show_Show_Name u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Name-u--showPrec_Show_Name u--d u--x)))) arg-11))) clam-1))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (vector 1 '()))))))))))))))(else (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-log arg-4 "declare.def.lhs.implicits" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))))))))))))))))))))))))))))))))))))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Giving up with the following locals left: " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45Name-u--show_Show_Name u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Name-u--showPrec_Show_Name u--d u--x)))) arg-11))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 '()))))))))) (let ((e-2 (cdr sc0))) (let ((sc1 arg-12)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 3))) (let ((e-8 (vector-ref sc1 4))) (lambda (clam-0) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((2) (let ((e-12 (vector-ref sc2 3))) (let ((sc3 e-12)) (case (vector-ref sc3 0) ((1) (let ((act-24 (((e-8 arg-2) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 e-5 1))) clam-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc4 1))) ((TTImpC-45TTImp-n--11613-2469-u--findImps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-2 e-9) clam-0)))))))(else (let ((act-24 (CoreC-45ContextC-45Log-log arg-4 "declare.def.lhs.implicits" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))))))))))))))))))))))))))))))))))))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Giving up with the following locals left: " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45Name-u--show_Show_Name u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Name-u--showPrec_Show_Name u--d u--x)))) arg-11))) clam-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (vector 1 '()))))))))))(else (let ((act-24 (CoreC-45ContextC-45Log-log arg-4 "declare.def.lhs.implicits" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))))))))))))))))))))))))))))))))))))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Giving up with the following locals left: " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45Name-u--show_Show_Name u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Name-u--showPrec_Show_Name u--d u--x)))) arg-11))) clam-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (vector 1 '())))))))))))))(else (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-log arg-4 "declare.def.lhs.implicits" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))))))))))))))))))))))))))))))))))))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Giving up with the following locals left: " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45Name-u--show_Show_Name u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Name-u--showPrec_Show_Name u--d u--x)))) arg-11))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (vector 1 '())))))))))))))) -(define TTImpC-45TTImp-n--12558-3283-u--expandNS (lambda (arg-0 arg-1 arg-2 arg-3) (TTImpC-45TTImp-case--definedInBlockC-44expandNS-3311 arg-0 arg-1 arg-3 arg-2 (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace arg-2 (CoreC-45NameC-45Namespace-emptyNS))))) -(define TTImpC-45TTImp-n--12558-3284-u--defName (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-4 (vector-ref sc0 5))) (cons (TTImpC-45TTImp-n--12558-3283-u--expandNS arg-0 arg-1 arg-2 (TTImpC-45TTImp-n--12558-3281-u--getName arg-0 arg-1 e-4)) '()))) ((1) (let ((e-7 (vector-ref sc0 3))) (let ((sc1 e-7)) (case (vector-ref sc1 0) ((0) (let ((e-21 (vector-ref sc1 2))) (let ((e-24 (vector-ref sc1 5))) (cons (TTImpC-45TTImp-n--12558-3283-u--expandNS arg-0 arg-1 arg-2 e-21) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (TTImpC-45TTImp-n--12558-3283-u--expandNS arg-0 arg-1 arg-2 eta-0)) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (TTImpC-45TTImp-n--12558-3281-u--getName arg-0 arg-1 eta-0)) e-24)))))) ((1) (let ((e-26 (vector-ref sc1 2))) (cons (TTImpC-45TTImp-n--12558-3283-u--expandNS arg-0 arg-1 arg-2 e-26) '())))(else '()))))) ((3) (let ((e-10 (vector-ref sc0 3))) (PreludeC-45Interfaces-concatMap (cons (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (cons (lambda (arg-4) (lambda (arg-5) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-4 arg-5))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) (lambda (eta-0) (TTImpC-45TTImp-n--12558-3284-u--defName arg-0 arg-1 arg-2 eta-0)) e-10))) ((5) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (PreludeC-45Interfaces-concatMap (cons (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (cons (lambda (arg-4) (lambda (arg-5) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-4 arg-5))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) (lambda (eta-0) (TTImpC-45TTImp-n--12558-3284-u--defName arg-0 arg-1 (CoreC-45NameC-45Namespace-C-60C-46C-62 arg-2 e-12) eta-0)) e-13)))) ((4) (let ((e-14 (vector-ref sc0 1))) (let ((e-15 (vector-ref sc0 2))) (let ((e-16 (vector-ref sc0 3))) (let ((e-17 (vector-ref sc0 4))) (let ((sc1 e-17)) (case (vector-ref sc1 0) ((0) (let ((e-28 (vector-ref sc1 1))) (let ((e-29 (vector-ref sc1 2))) (let ((e-30 (vector-ref sc1 3))) (let ((e-31 (vector-ref sc1 4))) (let ((e-32 (vector-ref sc1 5))) (cons (TTImpC-45TTImp-n--12558-3283-u--expandNS arg-0 arg-1 arg-2 e-31) (TTImpC-45TTImp-n--12564-3475-u--all arg-0 arg-1 e-14 e-16 e-28 e-30 e-32 e-31 e-29 e-15 arg-2))))))))(else '())))))))) ((8) (let ((e-18 (vector-ref sc0 1))) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (TTImpC-45TTImp-n--12558-3283-u--expandNS arg-0 arg-1 arg-2 eta-0)) e-18)))(else '()))))) -(define TTImpC-45TTImp-n--12993-3713-u--app (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (vector 8 (TTImpC-45TTImp-getFC arg-3) arg-3 arg-5)) (else (let ((e-2 (vector-ref sc0 1))) (vector 10 (TTImpC-45TTImp-getFC arg-3) arg-3 e-2 arg-5))))))) -(define TTImpC-45TTImp-n--12564-3475-u--all (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (cons (TTImpC-45TTImp-n--12558-3283-u--expandNS arg-0 arg-1 arg-10 arg-8) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (TTImpC-45TTImp-n--12558-3283-u--expandNS arg-0 arg-1 (TTImpC-45TTImp-n--12564-3471-u--fldnsC-39 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) eta-0)) (PreludeC-45TypesC-45List-C-43C-43 (TTImpC-45TTImp-n--12564-3474-u--fnsRF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (TTImpC-45TTImp-n--12564-3473-u--fnsUN arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10)))))) -(define TTImpC-45TTImp-u--weaken_Weaken_NestedNames (lambda (arg-2) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (TTImpC-45TTImp-n--9683-648-u--wknName arg-2 eta-0)) arg-2))) -(define TTImpC-45TTImp-u--toBuf_TTC_RawImp (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_FC arg-0 e-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (CoreC-45TTC-u--toBuf_TTC_Name arg-0 e-1 eta-0))))))))))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (let ((e-6 (vector-ref sc0 5))) (let ((e-7 (vector-ref sc0 6))) (lambda (eta-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-8 (vector-ref sc1 1))) (vector 0 e-8))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_FC arg-0 e-2 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-9 (vector-ref sc2 1))) (vector 0 e-9))) (else (let ((act-26 ((CoreC-45TTC-u--toBuf_TTC_RigCount arg-0 e-3) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 1))) (vector 0 e-10))) (else (let ((act-27 (CoreC-45TTC-u--toBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-10255 arg-10257))) (lambda (arg-10258) (lambda (eta-1) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-10258 eta-1)))) arg-0 e-4 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-11 (vector-ref sc4 1))) (vector 0 e-11))) (else (let ((act-28 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_Name arg-10255 arg-10257 eta-1)))) (lambda (arg-10258) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10258 eta-1)))) arg-0 e-5 eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-12 (vector-ref sc5 1))) (vector 0 e-12))) (else (let ((act-29 ((TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-0 e-6) eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-13 (vector-ref sc6 1))) (vector 0 e-13))) (else ((TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-0 e-7) eta-0))))))))))))))))))))))))))))))))) ((2) (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 3))) (let ((e-11 (vector-ref sc0 4))) (let ((e-12 (vector-ref sc0 5))) (let ((e-13 (vector-ref sc0 6))) (lambda (eta-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_FC arg-0 e-8 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((CoreC-45TTC-u--toBuf_TTC_RigCount arg-0 e-9) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 (CoreC-45TTC-u--toBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-10255 arg-10257))) (lambda (arg-10258) (lambda (eta-1) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-10258 eta-1)))) arg-0 e-10 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-28 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_Name arg-10255 arg-10257 eta-1)))) (lambda (arg-10258) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10258 eta-1)))) arg-0 e-11 eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((act-29 ((TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-0 e-12) eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else ((TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-0 e-13) eta-0))))))))))))))))))))))))))))))))) ((3) (let ((e-14 (vector-ref sc0 1))) (let ((e-15 (vector-ref sc0 2))) (let ((e-16 (vector-ref sc0 3))) (let ((e-17 (vector-ref sc0 4))) (let ((e-18 (vector-ref sc0 5))) (let ((e-19 (vector-ref sc0 6))) (let ((e-20 (vector-ref sc0 7))) (lambda (eta-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 3 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_FC arg-0 e-14 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45TTC-u--toBuf_TTC_FC arg-0 e-15 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 ((CoreC-45TTC-u--toBuf_TTC_RigCount arg-0 e-16) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-28 (CoreC-45TTC-u--toBuf_TTC_Name arg-0 e-17 eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((act-29 ((TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-0 e-18) eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((act-30 ((TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-0 e-19) eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else ((TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-0 e-20) eta-0)))))))))))))))))))))))))))))))))))))) ((4) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (let ((e-24 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 4 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_FC arg-0 e-21 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-0 e-22) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 ((TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-0 e-23) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-1) (TTImpC-45TTImp-u--toBuf_TTC_ImpClause arg-10255 arg-10257 eta-1)))) (lambda (arg-10258) (lambda (eta-1) (TTImpC-45TTImp-u--fromBuf_TTC_ImpClause arg-10258 eta-1)))) arg-0 e-24 eta-0))))))))))))))))))))))) ((5) (let ((e-25 (vector-ref sc0 1))) (let ((e-26 (vector-ref sc0 2))) (let ((e-27 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 5 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_FC arg-0 e-25 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-1) (TTImpC-45TTImp-u--toBuf_TTC_ImpDecl arg-10255 arg-10257 eta-1)))) (lambda (arg-10258) (lambda (eta-1) (TTImpC-45TTImp-u--fromBuf_TTC_ImpDecl arg-10258 eta-1)))) arg-0 e-26 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-0 e-27) eta-0)))))))))))))))))) ((6) (let ((e-32 (vector-ref sc0 5))) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-0 e-32))) ((7) (let ((e-33 (vector-ref sc0 1))) (let ((e-34 (vector-ref sc0 2))) (let ((e-35 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 6 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_FC arg-0 e-33 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-1) (TTImpC-45TTImp-u--toBuf_TTC_IFieldUpdate arg-10255 arg-10257 eta-1)))) (lambda (arg-10258) (lambda (eta-1) (TTImpC-45TTImp-u--fromBuf_TTC_IFieldUpdate arg-10258 eta-1)))) arg-0 e-34 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-0 e-35) eta-0)))))))))))))))))) ((8) (let ((e-36 (vector-ref sc0 1))) (let ((e-37 (vector-ref sc0 2))) (let ((e-38 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 7 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_FC arg-0 e-36 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-0 e-37) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-0 e-38) eta-0)))))))))))))))))) ((10) (let ((e-39 (vector-ref sc0 1))) (let ((e-40 (vector-ref sc0 2))) (let ((e-41 (vector-ref sc0 3))) (let ((e-42 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 8 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_FC arg-0 e-39 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-0 e-40) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 (CoreC-45TTC-u--toBuf_TTC_Name arg-0 e-41 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else ((TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-0 e-42) eta-0))))))))))))))))))))))) ((11) (let ((e-43 (vector-ref sc0 1))) (let ((e-44 (vector-ref sc0 2))) (let ((e-45 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 9 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_FC arg-0 e-43 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-0 e-44) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-0 e-45) eta-0)))))))))))))))))) ((12) (let ((e-46 (vector-ref sc0 1))) (let ((e-47 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 10 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_FC arg-0 e-46 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-0 e-47) eta-0))))))))))))) ((13) (let ((e-48 (vector-ref sc0 1))) (let ((e-49 (vector-ref sc0 2))) (let ((e-50 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 11 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_FC arg-0 e-48 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (TTImpC-45TTImp-u--toBuf_TTC_AltType arg-0 e-49 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-10255 arg-10257))) (lambda (arg-10258) (lambda (eta-1) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-10258 eta-1)))) arg-0 e-50 eta-0)))))))))))))))))) ((14) (let ((e-51 (vector-ref sc0 1))) (let ((e-52 (vector-ref sc0 2))) (let ((e-53 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 12 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_FC arg-0 e-51 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-0 e-52) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-0 e-53) eta-0)))))))))))))))))) ((15) (let ((e-54 (vector-ref sc0 1))) (let ((e-55 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 13 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_FC arg-0 e-54 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-0 e-55) eta-0))))))))))))) ((16) (let ((e-56 (vector-ref sc0 1))) (let ((e-57 (vector-ref sc0 2))) (let ((e-58 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 14 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_FC arg-0 e-56 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (TTImpC-45TTImp-u--toBuf_TTC_BindMode arg-0 e-57 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-0 e-58) eta-0)))))))))))))))))) ((17) (let ((e-59 (vector-ref sc0 1))) (let ((e-60 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 15 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_FC arg-0 e-59 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-0 e-60) eta-0))))))))))))) ((18) (let ((e-61 (vector-ref sc0 1))) (let ((e-62 (vector-ref sc0 2))) (let ((e-63 (vector-ref sc0 3))) (let ((e-64 (vector-ref sc0 4))) (let ((e-65 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 16 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_FC arg-0 e-61 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45TTC-u--toBuf_TTC_FC arg-0 e-62 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 (CoreC-45TTC-u--toBuf_TTC_UseSide arg-0 e-63 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-28 (CoreC-45TTC-u--toBuf_TTC_Name arg-0 e-64 eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else ((TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-0 e-65) eta-0)))))))))))))))))))))))))))) ((19) (let ((e-66 (vector-ref sc0 1))) (let ((e-68 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 17 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_FC arg-0 e-66 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-0 e-68) eta-0))))))))))))) ((20) (let ((e-69 (vector-ref sc0 1))) (let ((e-70 (vector-ref sc0 2))) (let ((e-71 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 18 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_FC arg-0 e-69 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45TTC-u--toBuf_TTC_LazyReason arg-0 e-70 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-0 e-71) eta-0)))))))))))))))))) ((21) (let ((e-72 (vector-ref sc0 1))) (let ((e-73 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 19 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_FC arg-0 e-72 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-0 e-73) eta-0))))))))))))) ((22) (let ((e-74 (vector-ref sc0 1))) (let ((e-75 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 20 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_FC arg-0 e-74 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-0 e-75) eta-0))))))))))))) ((23) (let ((e-76 (vector-ref sc0 1))) (let ((e-77 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 21 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_FC arg-0 e-76 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-0 e-77) eta-0))))))))))))) ((24) (let ((e-78 (vector-ref sc0 1))) (let ((e-79 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 22 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_FC arg-0 e-78 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (CoreC-45TTC-u--toBuf_TTC_Name arg-0 e-79 eta-0))))))))))))) ((25) (let ((e-80 (vector-ref sc0 1))) (let ((e-81 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 23 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_FC arg-0 e-80 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-1) (TTImpC-45TTImp-u--toBuf_TTC_ImpDecl arg-10255 arg-10257 eta-1)))) (lambda (arg-10258) (lambda (eta-1) (TTImpC-45TTImp-u--fromBuf_TTC_ImpDecl arg-10258 eta-1)))) arg-0 e-81 eta-0))))))))))))) ((26) (let ((e-82 (vector-ref sc0 1))) (let ((e-83 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 24 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_FC arg-0 e-82 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-0 e-83) eta-0))))))))))))) ((27) (let ((e-84 (vector-ref sc0 1))) (let ((e-85 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 25 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_FC arg-0 e-84 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-0 e-85) eta-0))))))))))))) ((28) (let ((e-86 (vector-ref sc0 1))) (let ((e-87 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 26 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_FC arg-0 e-86 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (CoreC-45TTC-u--toBuf_TTC_Constant arg-0 e-87 eta-0))))))))))))) ((29) (let ((e-88 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 27 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (CoreC-45TTC-u--toBuf_TTC_FC arg-0 e-88 eta-0)))))))) ((30) (let ((e-89 (vector-ref sc0 1))) (let ((e-90 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 28 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_FC arg-0 e-89 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-0 e-90) eta-0))))))))))))) ((31) (let ((e-93 (vector-ref sc0 3))) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-0 e-93))) ((32) (let ((e-94 (vector-ref sc0 1))) (let ((e-95 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 29 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_FC arg-0 e-94 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Bool arg-0 e-95 eta-0))))))))))))) ((33) (let ((e-97 (vector-ref sc0 2))) (let ((e-98 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 30 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_Name arg-10255 arg-10257 eta-1)))) (lambda (arg-10258) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10258 eta-1)))) arg-0 e-97 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-0 e-98) eta-0))))))))))))) (else (let ((e-99 (vector-ref sc0 1))) (let ((e-100 (vector-ref sc0 2))) (let ((e-101 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 31 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_FC arg-0 e-99 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-0 e-100) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-0 e-101) eta-0)))))))))))))))))))))) -(define TTImpC-45TTImp-u--toBuf_TTC_ImpTy (lambda (arg-0 arg-1 ext-0) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((act-24 (CoreC-45TTC-u--toBuf_TTC_FC arg-0 e-0 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_FC arg-0 e-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((act-26 (CoreC-45TTC-u--toBuf_TTC_Name arg-0 e-2 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else ((TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-0 e-3) ext-0)))))))))))))))))))) -(define TTImpC-45TTImp-u--toBuf_TTC_ImpRecord (lambda (arg-0 arg-1 ext-0) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((act-24 (CoreC-45TTC-u--toBuf_TTC_FC arg-0 e-0 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_Name arg-0 e-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10258) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_Name arg-10256 arg-10258 eta-1)))) (lambda (arg-10258) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10258 eta-1)))) (cons (lambda (arg-10256) (lambda (arg-10258) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10259) (lambda (arg-10260) (CoreC-45TTC-u--toBuf_TTC_RigCount arg-10259 arg-10260))) (lambda (arg-10259) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_RigCount arg-10259 eta-2)))) (cons (lambda (arg-10259) (lambda (arg-10260) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-3) (CoreC-45TTC-u--toBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-10263) (lambda (arg-10264) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-10263 arg-10264))) (lambda (arg-10263) (lambda (eta-4) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-10263 eta-4)))) arg-10261 arg-10262 eta-3)))) (lambda (arg-10261) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-10262) (lambda (arg-10263) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-10262 arg-10263))) (lambda (arg-10262) (lambda (eta-4) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-10262 eta-4)))) arg-10261 eta-3)))) (cons (lambda (arg-10261) (lambda (arg-10262) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-10261 arg-10262))) (lambda (arg-10261) (lambda (eta-3) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-10261 eta-3))))) arg-10259 arg-10260 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10260) (lambda (arg-10261) (lambda (eta-3) (CoreC-45TTC-u--toBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-10262) (lambda (arg-10263) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-10262 arg-10263))) (lambda (arg-10262) (lambda (eta-4) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-10262 eta-4)))) arg-10260 arg-10261 eta-3)))) (lambda (arg-10260) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-10261) (lambda (arg-10262) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-10261 arg-10262))) (lambda (arg-10261) (lambda (eta-4) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-10261 eta-4)))) arg-10260 eta-3)))) (cons (lambda (arg-10260) (lambda (arg-10261) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-10260 arg-10261))) (lambda (arg-10260) (lambda (eta-3) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-10260 eta-3))))) arg-10259 eta-2))))) arg-10256 arg-10258 eta-1)))) (lambda (arg-10258) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10259) (CoreC-45TTC-u--toBuf_TTC_RigCount arg-10256 arg-10259))) (lambda (arg-10259) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_RigCount arg-10259 eta-2)))) (cons (lambda (arg-10256) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10260) (lambda (arg-10261) (lambda (eta-3) (CoreC-45TTC-u--toBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-10262) (lambda (arg-10263) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-10262 arg-10263))) (lambda (arg-10262) (lambda (eta-4) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-10262 eta-4)))) arg-10260 arg-10261 eta-3)))) (lambda (arg-10260) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-10261) (lambda (arg-10262) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-10261 arg-10262))) (lambda (arg-10261) (lambda (eta-4) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-10261 eta-4)))) arg-10260 eta-3)))) (cons (lambda (arg-10260) (lambda (arg-10261) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-10260 arg-10261))) (lambda (arg-10260) (lambda (eta-3) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-10260 eta-3))))) arg-10256 arg-10259 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10260) (lambda (eta-3) (CoreC-45TTC-u--toBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-10261) (lambda (arg-10262) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-10261 arg-10262))) (lambda (arg-10261) (lambda (eta-4) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-10261 eta-4)))) arg-10256 arg-10260 eta-3)))) (lambda (arg-10260) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-10256) (lambda (arg-10261) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-10256 arg-10261))) (lambda (arg-10261) (lambda (eta-4) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-10261 eta-4)))) arg-10260 eta-3)))) (cons (lambda (arg-10256) (lambda (arg-10260) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-10256 arg-10260))) (lambda (arg-10260) (lambda (eta-3) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-10260 eta-3))))) arg-10259 eta-2))))) arg-10258 eta-1))))) arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_Name arg-10255 arg-10257 eta-1)))) (lambda (arg-10259) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10259 eta-1)))) (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10259) (CoreC-45TTC-u--toBuf_TTC_RigCount arg-10256 arg-10259))) (lambda (arg-10259) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_RigCount arg-10259 eta-2)))) (cons (lambda (arg-10256) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10260) (lambda (arg-10261) (lambda (eta-3) (CoreC-45TTC-u--toBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-10262) (lambda (arg-10263) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-10262 arg-10263))) (lambda (arg-10262) (lambda (eta-4) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-10262 eta-4)))) arg-10260 arg-10261 eta-3)))) (lambda (arg-10260) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-10261) (lambda (arg-10262) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-10261 arg-10262))) (lambda (arg-10261) (lambda (eta-4) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-10261 eta-4)))) arg-10260 eta-3)))) (cons (lambda (arg-10260) (lambda (arg-10261) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-10260 arg-10261))) (lambda (arg-10260) (lambda (eta-3) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-10260 eta-3))))) arg-10256 arg-10259 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10260) (lambda (eta-3) (CoreC-45TTC-u--toBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-10261) (lambda (arg-10262) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-10261 arg-10262))) (lambda (arg-10261) (lambda (eta-4) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-10261 eta-4)))) arg-10256 arg-10260 eta-3)))) (lambda (arg-10260) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-10256) (lambda (arg-10261) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-10256 arg-10261))) (lambda (arg-10261) (lambda (eta-4) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-10261 eta-4)))) arg-10260 eta-3)))) (cons (lambda (arg-10256) (lambda (arg-10260) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-10256 arg-10260))) (lambda (arg-10260) (lambda (eta-3) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-10260 eta-3))))) arg-10259 eta-2))))) arg-10255 arg-10257 eta-1)))) (lambda (arg-10259) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10255) (lambda (arg-10257) (CoreC-45TTC-u--toBuf_TTC_RigCount arg-10255 arg-10257))) (lambda (arg-10260) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_RigCount arg-10260 eta-2)))) (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10260) (lambda (eta-3) (CoreC-45TTC-u--toBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-10261) (lambda (arg-10262) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-10261 arg-10262))) (lambda (arg-10261) (lambda (eta-4) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-10261 eta-4)))) arg-10256 arg-10260 eta-3)))) (lambda (arg-10260) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-10256) (lambda (arg-10261) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-10256 arg-10261))) (lambda (arg-10261) (lambda (eta-4) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-10261 eta-4)))) arg-10260 eta-3)))) (cons (lambda (arg-10256) (lambda (arg-10260) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-10256 arg-10260))) (lambda (arg-10260) (lambda (eta-3) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-10260 eta-3))))) arg-10255 arg-10257 eta-2)))) (lambda (arg-10260) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-3) (CoreC-45TTC-u--toBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-10256) (lambda (arg-10261) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-10256 arg-10261))) (lambda (arg-10261) (lambda (eta-4) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-10261 eta-4)))) arg-10255 arg-10257 eta-3)))) (lambda (arg-10261) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-10255 arg-10257))) (lambda (arg-10262) (lambda (eta-4) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-10262 eta-4)))) arg-10261 eta-3)))) (cons (lambda (arg-10255) (lambda (arg-10257) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-10255 arg-10257))) (lambda (arg-10261) (lambda (eta-3) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-10261 eta-3))))) arg-10260 eta-2))))) arg-10259 eta-1))))) arg-10258 eta-0)))) arg-0 e-2 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((act-27 (CoreC-45TTC-u--toBuf_TTC_Name arg-0 e-3 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (TTImpC-45TTImp-u--toBuf_TTC_IField arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (TTImpC-45TTImp-u--fromBuf_TTC_IField arg-10258 eta-0)))) arg-0 e-4 ext-0))))))))))))))))))))))))) -(define TTImpC-45TTImp-u--toBuf_TTC_ImpDecl (lambda (arg-0 arg-1 ext-0) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 0 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_FC arg-0 e-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((act-26 ((CoreC-45TTC-u--toBuf_TTC_RigCount arg-0 e-1) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((act-27 (CoreC-45TTC-u--toBuf_TTC_Visibility arg-0 e-2 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((act-28 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (TTImpC-45TTImp-u--toBuf_TTC_FnOpt arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (TTImpC-45TTImp-u--fromBuf_TTC_FnOpt arg-10258 eta-0)))) arg-0 e-3 ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (vector 0 e-9))) (else (TTImpC-45TTImp-u--toBuf_TTC_ImpTy arg-0 e-4 ext-0))))))))))))))))))))))))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 1 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_FC arg-0 e-5 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45TTC-u--toBuf_TTC_Visibility arg-0 e-6 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (TTImpC-45TTImp-u--toBuf_TTC_ImpData arg-0 e-7 ext-0))))))))))))))))) ((2) (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 3))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 2 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_FC arg-0 e-8 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45TTC-u--toBuf_TTC_Name arg-0 e-9 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (TTImpC-45TTImp-u--toBuf_TTC_ImpClause arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (TTImpC-45TTImp-u--fromBuf_TTC_ImpClause arg-10258 eta-0)))) arg-0 e-10 ext-0))))))))))))))))) ((3) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 3 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_FC arg-0 e-11 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10258) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_Name arg-10256 arg-10258 eta-1)))) (lambda (arg-10258) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10258 eta-1)))) (cons (lambda (arg-10256) (lambda (arg-10258) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10259) (lambda (arg-10260) (CoreC-45TTC-u--toBuf_TTC_RigCount arg-10259 arg-10260))) (lambda (arg-10259) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_RigCount arg-10259 eta-2)))) (cons (lambda (arg-10259) (lambda (arg-10260) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-3) (CoreC-45TTC-u--toBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-10263) (lambda (arg-10264) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-10263 arg-10264))) (lambda (arg-10263) (lambda (eta-4) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-10263 eta-4)))) arg-10261 arg-10262 eta-3)))) (lambda (arg-10261) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-10262) (lambda (arg-10263) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-10262 arg-10263))) (lambda (arg-10262) (lambda (eta-4) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-10262 eta-4)))) arg-10261 eta-3)))) (cons (lambda (arg-10261) (lambda (arg-10262) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-10261 arg-10262))) (lambda (arg-10261) (lambda (eta-3) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-10261 eta-3))))) arg-10259 arg-10260 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10260) (lambda (arg-10261) (lambda (eta-3) (CoreC-45TTC-u--toBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-10262) (lambda (arg-10263) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-10262 arg-10263))) (lambda (arg-10262) (lambda (eta-4) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-10262 eta-4)))) arg-10260 arg-10261 eta-3)))) (lambda (arg-10260) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-10261) (lambda (arg-10262) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-10261 arg-10262))) (lambda (arg-10261) (lambda (eta-4) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-10261 eta-4)))) arg-10260 eta-3)))) (cons (lambda (arg-10260) (lambda (arg-10261) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-10260 arg-10261))) (lambda (arg-10260) (lambda (eta-3) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-10260 eta-3))))) arg-10259 eta-2))))) arg-10256 arg-10258 eta-1)))) (lambda (arg-10258) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10259) (CoreC-45TTC-u--toBuf_TTC_RigCount arg-10256 arg-10259))) (lambda (arg-10259) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_RigCount arg-10259 eta-2)))) (cons (lambda (arg-10256) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10260) (lambda (arg-10261) (lambda (eta-3) (CoreC-45TTC-u--toBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-10262) (lambda (arg-10263) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-10262 arg-10263))) (lambda (arg-10262) (lambda (eta-4) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-10262 eta-4)))) arg-10260 arg-10261 eta-3)))) (lambda (arg-10260) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-10261) (lambda (arg-10262) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-10261 arg-10262))) (lambda (arg-10261) (lambda (eta-4) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-10261 eta-4)))) arg-10260 eta-3)))) (cons (lambda (arg-10260) (lambda (arg-10261) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-10260 arg-10261))) (lambda (arg-10260) (lambda (eta-3) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-10260 eta-3))))) arg-10256 arg-10259 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10260) (lambda (eta-3) (CoreC-45TTC-u--toBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-10261) (lambda (arg-10262) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-10261 arg-10262))) (lambda (arg-10261) (lambda (eta-4) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-10261 eta-4)))) arg-10256 arg-10260 eta-3)))) (lambda (arg-10260) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-10256) (lambda (arg-10261) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-10256 arg-10261))) (lambda (arg-10261) (lambda (eta-4) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-10261 eta-4)))) arg-10260 eta-3)))) (cons (lambda (arg-10256) (lambda (arg-10260) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-10256 arg-10260))) (lambda (arg-10260) (lambda (eta-3) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-10260 eta-3))))) arg-10259 eta-2))))) arg-10258 eta-1))))) arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_Name arg-10255 arg-10257 eta-1)))) (lambda (arg-10259) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10259 eta-1)))) (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10259) (CoreC-45TTC-u--toBuf_TTC_RigCount arg-10256 arg-10259))) (lambda (arg-10259) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_RigCount arg-10259 eta-2)))) (cons (lambda (arg-10256) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10260) (lambda (arg-10261) (lambda (eta-3) (CoreC-45TTC-u--toBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-10262) (lambda (arg-10263) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-10262 arg-10263))) (lambda (arg-10262) (lambda (eta-4) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-10262 eta-4)))) arg-10260 arg-10261 eta-3)))) (lambda (arg-10260) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-10261) (lambda (arg-10262) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-10261 arg-10262))) (lambda (arg-10261) (lambda (eta-4) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-10261 eta-4)))) arg-10260 eta-3)))) (cons (lambda (arg-10260) (lambda (arg-10261) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-10260 arg-10261))) (lambda (arg-10260) (lambda (eta-3) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-10260 eta-3))))) arg-10256 arg-10259 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10260) (lambda (eta-3) (CoreC-45TTC-u--toBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-10261) (lambda (arg-10262) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-10261 arg-10262))) (lambda (arg-10261) (lambda (eta-4) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-10261 eta-4)))) arg-10256 arg-10260 eta-3)))) (lambda (arg-10260) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-10256) (lambda (arg-10261) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-10256 arg-10261))) (lambda (arg-10261) (lambda (eta-4) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-10261 eta-4)))) arg-10260 eta-3)))) (cons (lambda (arg-10256) (lambda (arg-10260) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-10256 arg-10260))) (lambda (arg-10260) (lambda (eta-3) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-10260 eta-3))))) arg-10259 eta-2))))) arg-10255 arg-10257 eta-1)))) (lambda (arg-10259) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10255) (lambda (arg-10257) (CoreC-45TTC-u--toBuf_TTC_RigCount arg-10255 arg-10257))) (lambda (arg-10260) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_RigCount arg-10260 eta-2)))) (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10260) (lambda (eta-3) (CoreC-45TTC-u--toBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-10261) (lambda (arg-10262) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-10261 arg-10262))) (lambda (arg-10261) (lambda (eta-4) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-10261 eta-4)))) arg-10256 arg-10260 eta-3)))) (lambda (arg-10260) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-10256) (lambda (arg-10261) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-10256 arg-10261))) (lambda (arg-10261) (lambda (eta-4) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-10261 eta-4)))) arg-10260 eta-3)))) (cons (lambda (arg-10256) (lambda (arg-10260) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-10256 arg-10260))) (lambda (arg-10260) (lambda (eta-3) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-10260 eta-3))))) arg-10255 arg-10257 eta-2)))) (lambda (arg-10260) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-3) (CoreC-45TTC-u--toBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-10256) (lambda (arg-10261) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-10256 arg-10261))) (lambda (arg-10261) (lambda (eta-4) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-10261 eta-4)))) arg-10255 arg-10257 eta-3)))) (lambda (arg-10261) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-10255 arg-10257))) (lambda (arg-10262) (lambda (eta-4) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-10262 eta-4)))) arg-10261 eta-3)))) (cons (lambda (arg-10255) (lambda (arg-10257) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-10255 arg-10257))) (lambda (arg-10261) (lambda (eta-3) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-10261 eta-3))))) arg-10260 eta-2))))) arg-10259 eta-1))))) arg-10258 eta-0)))) arg-0 e-12 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (TTImpC-45TTImp-u--toBuf_TTC_ImpDecl arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (TTImpC-45TTImp-u--fromBuf_TTC_ImpDecl arg-10258 eta-0)))) arg-0 e-13 ext-0))))))))))))))))) ((4) (let ((e-14 (vector-ref sc0 1))) (let ((e-15 (vector-ref sc0 2))) (let ((e-16 (vector-ref sc0 3))) (let ((e-17 (vector-ref sc0 4))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 4 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_FC arg-0 e-14 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-10255 arg-10257))) (lambda (arg-10258) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-10258 eta-0)))) arg-0 e-15 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 (CoreC-45TTC-u--toBuf_TTC_Visibility arg-0 e-16 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (TTImpC-45TTImp-u--toBuf_TTC_ImpRecord arg-0 e-17 ext-0)))))))))))))))))))))) ((5) (let ((e-18 (vector-ref sc0 1))) (let ((e-19 (vector-ref sc0 2))) (let ((e-20 (vector-ref sc0 3))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 5 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_FC arg-0 e-18 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45TTC-u--toBuf_TTC_Namespace arg-0 e-19 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (TTImpC-45TTImp-u--toBuf_TTC_ImpDecl arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (TTImpC-45TTImp-u--fromBuf_TTC_ImpDecl arg-10258 eta-0)))) arg-0 e-20 ext-0))))))))))))))))) ((6) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (let ((e-24 (vector-ref sc0 4))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 6 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_FC arg-0 e-21 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45TTC-u--toBuf_TTC_Name arg-0 e-22 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 ((TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-0 e-23) ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else ((TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-0 e-24) ext-0)))))))))))))))))))))) ((7) (let ((e-25 (vector-ref sc0 1))) (let ((e-26 (vector-ref sc0 2))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 7 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_FC arg-0 e-25 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-0 e-26) ext-0)))))))))))) ((8) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 "Can't write Pragma") ext-0)) ((9) (let ((e-29 (vector-ref sc0 1))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 8 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10258) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10259) (lambda (arg-10260) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-10259 arg-10260))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-10259 eta-2)))) arg-10256 arg-10258 eta-1)))) (lambda (arg-10258) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10256) (lambda (arg-10259) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-10256 arg-10259))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-10259 eta-2)))) arg-10258 eta-1)))) (cons (lambda (arg-10256) (lambda (arg-10258) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-10256 arg-10258))) (lambda (arg-10258) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-10258 eta-1))))) arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10256) (lambda (arg-10259) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-10256 arg-10259))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-10259 eta-2)))) arg-10255 arg-10257 eta-1)))) (lambda (arg-10259) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-10255 arg-10257))) (lambda (arg-10260) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-10260 eta-2)))) arg-10259 eta-1)))) (cons (lambda (arg-10255) (lambda (arg-10257) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-10255 arg-10257))) (lambda (arg-10259) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-10259 eta-1))))) arg-10258 eta-0)))) arg-0 e-29 ext-0))))))) (else (let ((e-30 (vector-ref sc0 1))) (let ((e-31 (vector-ref sc0 2))) (let ((e-32 (vector-ref sc0 3))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 9 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_FC arg-0 e-30 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (TTImpC-45TTImp-u--toBuf_TTC_BuiltinType arg-0 e-31 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (CoreC-45TTC-u--toBuf_TTC_Name arg-0 e-32 ext-0))))))))))))))))))))) -(define TTImpC-45TTImp-u--toBuf_TTC_ImpData (lambda (arg-0 arg-1 ext-0) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 0 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_FC arg-0 e-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((act-26 (CoreC-45TTC-u--toBuf_TTC_Name arg-0 e-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((act-27 ((TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-0 e-2) ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((act-28 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (TTImpC-45TTImp-u--toBuf_TTC_DataOpt arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (TTImpC-45TTImp-u--fromBuf_TTC_DataOpt arg-10258 eta-0)))) arg-0 e-3 ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (vector 0 e-9))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (TTImpC-45TTImp-u--toBuf_TTC_ImpTy arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (TTImpC-45TTImp-u--fromBuf_TTC_ImpTy arg-10258 eta-0)))) arg-0 e-4 ext-0))))))))))))))))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 1 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_FC arg-0 e-5 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45TTC-u--toBuf_TTC_Name arg-0 e-6 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-0 e-7) ext-0))))))))))))))))))))) -(define TTImpC-45TTImp-u--toBuf_TTC_ImpClause (lambda (arg-0 arg-1 ext-0) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 0 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_FC arg-0 e-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((act-26 ((TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-0 e-1) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else ((TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-0 e-2) ext-0))))))))))))))))) ((2) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 1 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_FC arg-0 e-3 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-0 e-4) ext-0)))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (let ((e-10 (vector-ref sc0 6))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 2 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_FC arg-0 e-5 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-0 e-6) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 ((TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-0 e-7) ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-28 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_Name arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10258 eta-0)))) arg-0 e-8 ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (TTImpC-45TTImp-u--toBuf_TTC_ImpClause arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (TTImpC-45TTImp-u--fromBuf_TTC_ImpClause arg-10258 eta-0)))) arg-0 e-10 ext-0))))))))))))))))))))))))))))))) -(define TTImpC-45TTImp-u--toBuf_TTC_IFieldUpdate (lambda (arg-0 arg-1 ext-0) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 0 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-10255 arg-10257))) (lambda (arg-10258) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-10258 eta-0)))) arg-0 e-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-0 e-1) ext-0)))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 1 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-10255 arg-10257))) (lambda (arg-10258) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-10258 eta-0)))) arg-0 e-2 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-0 e-3) ext-0)))))))))))))))) -(define TTImpC-45TTImp-u--toBuf_TTC_IField (lambda (arg-0 arg-1 ext-0) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((act-24 (CoreC-45TTC-u--toBuf_TTC_FC arg-0 e-0 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((act-25 ((CoreC-45TTC-u--toBuf_TTC_RigCount arg-0 e-1) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((act-26 (CoreC-45TTC-u--toBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-10255 arg-10257))) (lambda (arg-10258) (lambda (eta-0) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-10258 eta-0)))) arg-0 e-2 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((act-27 (CoreC-45TTC-u--toBuf_TTC_Name arg-0 e-3 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else ((TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-0 e-4) ext-0))))))))))))))))))))))))) -(define TTImpC-45TTImp-u--toBuf_TTC_FnOpt (lambda (arg-0 arg-1 ext-0) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (LibrariesC-45UtilsC-45Binary-tag arg-0 0 ext-0)) ((1) (LibrariesC-45UtilsC-45Binary-tag arg-0 11 ext-0)) ((2) (let ((e-0 (vector-ref sc0 1))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 1 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Bool arg-0 e-0 ext-0))))))) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 2 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Bool arg-0 e-1 ext-0))))))) ((4) (LibrariesC-45UtilsC-45Binary-tag arg-0 3 ext-0)) ((5) (let ((e-2 (vector-ref sc0 1))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 4 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-10255 arg-10257))) (lambda (arg-10258) (lambda (eta-0) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-10258 eta-0)))) arg-0 e-2 ext-0))))))) ((6) (LibrariesC-45UtilsC-45Binary-tag arg-0 5 ext-0)) ((7) (let ((e-3 (vector-ref sc0 1))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (LibrariesC-45UtilsC-45Binary-tag arg-0 6 ext-0)) ((1) (LibrariesC-45UtilsC-45Binary-tag arg-0 7 ext-0)) (else (LibrariesC-45UtilsC-45Binary-tag arg-0 8 ext-0)))))) ((8) (LibrariesC-45UtilsC-45Binary-tag arg-0 9 ext-0)) (else (let ((e-4 (vector-ref sc0 1))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 10 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_Name arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10258 eta-0)))) arg-0 e-4 ext-0))))))))))) -(define TTImpC-45TTImp-u--toBuf_TTC_DataOpt (lambda (arg-0 arg-1 ext-0) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 0 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_Name arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10258 eta-0)))) arg-0 e-0 ext-0))))))) ((1) (LibrariesC-45UtilsC-45Binary-tag arg-0 1 ext-0)) ((2) (LibrariesC-45UtilsC-45Binary-tag arg-0 2 ext-0)) ((3) (LibrariesC-45UtilsC-45Binary-tag arg-0 3 ext-0)) (else (LibrariesC-45UtilsC-45Binary-tag arg-0 4 ext-0)))))) -(define TTImpC-45TTImp-u--toBuf_TTC_BuiltinType (lambda (arg-0 arg-1 ext-0) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (LibrariesC-45UtilsC-45Binary-tag arg-0 0 ext-0)) ((1) (LibrariesC-45UtilsC-45Binary-tag arg-0 1 ext-0)) ((2) (LibrariesC-45UtilsC-45Binary-tag arg-0 2 ext-0)) ((3) (LibrariesC-45UtilsC-45Binary-tag arg-0 3 ext-0)) (else (LibrariesC-45UtilsC-45Binary-tag arg-0 4 ext-0)))))) -(define TTImpC-45TTImp-u--toBuf_TTC_BindMode (lambda (arg-0 arg-1 ext-0) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 0 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else ((CoreC-45TTC-u--toBuf_TTC_RigCount arg-0 e-0) ext-0))))))) ((1) (LibrariesC-45UtilsC-45Binary-tag arg-0 1 ext-0)) (else (LibrariesC-45UtilsC-45Binary-tag arg-0 2 ext-0)))))) -(define TTImpC-45TTImp-u--toBuf_TTC_AltType (lambda (arg-0 arg-1 ext-0) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (LibrariesC-45UtilsC-45Binary-tag arg-0 0 ext-0)) ((1) (LibrariesC-45UtilsC-45Binary-tag arg-0 1 ext-0)) (else (let ((e-0 (vector-ref sc0 1))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 2 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else ((TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-0 e-0) ext-0))))))))))) -(define TTImpC-45TTImp-u--show_Show_RawImp (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (CoreC-45Name-u--show_Show_Name e-1))) ((1) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (let ((e-6 (vector-ref sc0 5))) (let ((e-7 (vector-ref sc0 6))) (PreludeC-45TypesC-45String-C-43C-43 "(%pi " (PreludeC-45TypesC-45String-C-43C-43 (AlgebraC-45ZeroOneOmega-u--show_Show_ZeroOneOmega e-3) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40PiInfoC-32C-36tC-41 (cons (lambda (u--x) (TTImpC-45TTImp-u--show_Show_RawImp u--x)) (lambda (u--d) (lambda (u--x) (TTImpC-45TTImp-u--showPrec_Show_RawImp u--d u--x)))) e-4) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--showPrec_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45Name-u--show_Show_Name u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Name-u--showPrec_Show_Name u--d u--x)))) (vector 6 ) e-5) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (TTImpC-45TTImp-u--show_Show_RawImp e-6) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (TTImpC-45TTImp-u--show_Show_RawImp e-7) ")")))))))))))))))) ((2) (let ((e-9 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 3))) (let ((e-11 (vector-ref sc0 4))) (let ((e-12 (vector-ref sc0 5))) (let ((e-13 (vector-ref sc0 6))) (PreludeC-45TypesC-45String-C-43C-43 "(%lam " (PreludeC-45TypesC-45String-C-43C-43 (AlgebraC-45ZeroOneOmega-u--show_Show_ZeroOneOmega e-9) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40PiInfoC-32C-36tC-41 (cons (lambda (u--x) (TTImpC-45TTImp-u--show_Show_RawImp u--x)) (lambda (u--d) (lambda (u--x) (TTImpC-45TTImp-u--showPrec_Show_RawImp u--d u--x)))) e-10) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--showPrec_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45Name-u--show_Show_Name u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Name-u--showPrec_Show_Name u--d u--x)))) (vector 6 ) e-11) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (TTImpC-45TTImp-u--show_Show_RawImp e-12) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (TTImpC-45TTImp-u--show_Show_RawImp e-13) ")")))))))))))))))) ((3) (let ((e-16 (vector-ref sc0 3))) (let ((e-17 (vector-ref sc0 4))) (let ((e-18 (vector-ref sc0 5))) (let ((e-19 (vector-ref sc0 6))) (let ((e-20 (vector-ref sc0 7))) (PreludeC-45TypesC-45String-C-43C-43 "(%let " (PreludeC-45TypesC-45String-C-43C-43 (AlgebraC-45ZeroOneOmega-u--show_Show_ZeroOneOmega e-16) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-17) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (TTImpC-45TTImp-u--show_Show_RawImp e-18) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (TTImpC-45TTImp-u--show_Show_RawImp e-19) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (TTImpC-45TTImp-u--show_Show_RawImp e-20) ")"))))))))))))))))) ((4) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (let ((e-24 (vector-ref sc0 4))) (PreludeC-45TypesC-45String-C-43C-43 "(%case (" (PreludeC-45TypesC-45String-C-43C-43 (TTImpC-45TTImp-u--show_Show_RawImp e-22) (PreludeC-45TypesC-45String-C-43C-43 " : " (PreludeC-45TypesC-45String-C-43C-43 (TTImpC-45TTImp-u--show_Show_RawImp e-23) (PreludeC-45TypesC-45String-C-43C-43 ") " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (TTImpC-45TTImp-u--show_Show_ImpClause u--x)) (lambda (u--d) (lambda (u--x) (TTImpC-45TTImp-u--showPrec_Show_ImpClause u--d u--x)))) e-24) ")")))))))))) ((5) (let ((e-26 (vector-ref sc0 2))) (let ((e-27 (vector-ref sc0 3))) (PreludeC-45TypesC-45String-C-43C-43 "(%local (" (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (TTImpC-45TTImp-u--show_Show_ImpDecl u--x)) (lambda (u--d) (lambda (u--x) (TTImpC-45TTImp-u--showPrec_Show_ImpDecl u--d u--x)))) e-26) (PreludeC-45TypesC-45String-C-43C-43 ") " (PreludeC-45TypesC-45String-C-43C-43 (TTImpC-45TTImp-u--show_Show_RawImp e-27) ")"))))))) ((6) (let ((e-29 (vector-ref sc0 2))) (let ((e-30 (vector-ref sc0 3))) (let ((e-31 (vector-ref sc0 4))) (let ((e-32 (vector-ref sc0 5))) (PreludeC-45TypesC-45String-C-43C-43 "(%caselocal (" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-29) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-30) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45Name-u--show_Show_Name u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Name-u--showPrec_Show_Name u--d u--x)))) e-31) (PreludeC-45TypesC-45String-C-43C-43 ") " (PreludeC-45TypesC-45String-C-43C-43 (TTImpC-45TTImp-u--show_Show_RawImp e-32) ")"))))))))))))) ((7) (let ((e-34 (vector-ref sc0 2))) (let ((e-35 (vector-ref sc0 3))) (PreludeC-45TypesC-45String-C-43C-43 "(%record " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-showSep ", " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (TTImpC-45TTImp-u--show_Show_IFieldUpdate eta-0)) e-34)) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (TTImpC-45TTImp-u--show_Show_RawImp e-35) ")"))))))) ((8) (let ((e-37 (vector-ref sc0 2))) (let ((e-38 (vector-ref sc0 3))) (PreludeC-45TypesC-45String-C-43C-43 "(" (PreludeC-45TypesC-45String-C-43C-43 (TTImpC-45TTImp-u--show_Show_RawImp e-37) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (TTImpC-45TTImp-u--show_Show_RawImp e-38) ")"))))))) ((10) (let ((e-40 (vector-ref sc0 2))) (let ((e-41 (vector-ref sc0 3))) (let ((e-42 (vector-ref sc0 4))) (PreludeC-45TypesC-45String-C-43C-43 "(" (PreludeC-45TypesC-45String-C-43C-43 (TTImpC-45TTImp-u--show_Show_RawImp e-40) (PreludeC-45TypesC-45String-C-43C-43 " [" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-41) (PreludeC-45TypesC-45String-C-43C-43 " = " (PreludeC-45TypesC-45String-C-43C-43 (TTImpC-45TTImp-u--show_Show_RawImp e-42) "])")))))))))) ((9) (let ((e-44 (vector-ref sc0 2))) (let ((e-45 (vector-ref sc0 3))) (PreludeC-45TypesC-45String-C-43C-43 "(" (PreludeC-45TypesC-45String-C-43C-43 (TTImpC-45TTImp-u--show_Show_RawImp e-44) (PreludeC-45TypesC-45String-C-43C-43 " [" (PreludeC-45TypesC-45String-C-43C-43 (TTImpC-45TTImp-u--show_Show_RawImp e-45) "])"))))))) ((11) (let ((e-47 (vector-ref sc0 2))) (let ((e-48 (vector-ref sc0 3))) (PreludeC-45TypesC-45String-C-43C-43 "(" (PreludeC-45TypesC-45String-C-43C-43 (TTImpC-45TTImp-u--show_Show_RawImp e-47) (PreludeC-45TypesC-45String-C-43C-43 " | " (PreludeC-45TypesC-45String-C-43C-43 (TTImpC-45TTImp-u--show_Show_RawImp e-48) ")"))))))) ((12) "%search") ((13) (let ((e-53 (vector-ref sc0 3))) (PreludeC-45TypesC-45String-C-43C-43 "(|" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-showSep "," (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (TTImpC-45TTImp-u--show_Show_RawImp eta-0)) e-53)) "|)")))) ((14) (let ((e-55 (vector-ref sc0 2))) (let ((e-56 (vector-ref sc0 3))) (PreludeC-45TypesC-45String-C-43C-43 "(%rewrite (" (PreludeC-45TypesC-45String-C-43C-43 (TTImpC-45TTImp-u--show_Show_RawImp e-55) (PreludeC-45TypesC-45String-C-43C-43 ") (" (PreludeC-45TypesC-45String-C-43C-43 (TTImpC-45TTImp-u--show_Show_RawImp e-56) "))"))))))) ((15) (let ((e-58 (vector-ref sc0 2))) (PreludeC-45TypesC-45String-C-43C-43 "(%coerced " (PreludeC-45TypesC-45String-C-43C-43 (TTImpC-45TTImp-u--show_Show_RawImp e-58) ")")))) ((16) (let ((e-61 (vector-ref sc0 3))) (PreludeC-45TypesC-45String-C-43C-43 "(%bindhere " (PreludeC-45TypesC-45String-C-43C-43 (TTImpC-45TTImp-u--show_Show_RawImp e-61) ")")))) ((17) (let ((e-63 (vector-ref sc0 2))) (PreludeC-45TypesC-45String-C-43C-43 "$" e-63))) ((18) (let ((e-67 (vector-ref sc0 4))) (let ((e-68 (vector-ref sc0 5))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-67) (PreludeC-45TypesC-45String-C-43C-43 "@(" (PreludeC-45TypesC-45String-C-43C-43 (TTImpC-45TTImp-u--show_Show_RawImp e-68) ")")))))) ((19) (let ((e-71 (vector-ref sc0 3))) (PreludeC-45TypesC-45String-C-43C-43 ".(" (PreludeC-45TypesC-45String-C-43C-43 (TTImpC-45TTImp-u--show_Show_RawImp e-71) ")")))) ((20) (let ((e-74 (vector-ref sc0 3))) (PreludeC-45TypesC-45String-C-43C-43 "(%delayed " (PreludeC-45TypesC-45String-C-43C-43 (TTImpC-45TTImp-u--show_Show_RawImp e-74) ")")))) ((21) (let ((e-76 (vector-ref sc0 2))) (PreludeC-45TypesC-45String-C-43C-43 "(%delay " (PreludeC-45TypesC-45String-C-43C-43 (TTImpC-45TTImp-u--show_Show_RawImp e-76) ")")))) ((22) (let ((e-78 (vector-ref sc0 2))) (PreludeC-45TypesC-45String-C-43C-43 "(%force " (PreludeC-45TypesC-45String-C-43C-43 (TTImpC-45TTImp-u--show_Show_RawImp e-78) ")")))) ((23) (let ((e-80 (vector-ref sc0 2))) (PreludeC-45TypesC-45String-C-43C-43 "(%quote " (PreludeC-45TypesC-45String-C-43C-43 (TTImpC-45TTImp-u--show_Show_RawImp e-80) ")")))) ((24) (let ((e-82 (vector-ref sc0 2))) (PreludeC-45TypesC-45String-C-43C-43 "(%quotename " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-82) ")")))) ((25) (let ((e-84 (vector-ref sc0 2))) (PreludeC-45TypesC-45String-C-43C-43 "(%quotedecl " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (TTImpC-45TTImp-u--show_Show_ImpDecl u--x)) (lambda (u--d) (lambda (u--x) (TTImpC-45TTImp-u--showPrec_Show_ImpDecl u--d u--x)))) e-84) ")")))) ((26) (let ((e-86 (vector-ref sc0 2))) (PreludeC-45TypesC-45String-C-43C-43 "(%unquote " (PreludeC-45TypesC-45String-C-43C-43 (TTImpC-45TTImp-u--show_Show_RawImp e-86) ")")))) ((27) (let ((e-88 (vector-ref sc0 2))) (PreludeC-45TypesC-45String-C-43C-43 "(%runelab " (PreludeC-45TypesC-45String-C-43C-43 (TTImpC-45TTImp-u--show_Show_RawImp e-88) ")")))) ((28) (let ((e-90 (vector-ref sc0 2))) (CoreC-45TT-u--show_Show_Constant e-90))) ((30) (let ((e-92 (vector-ref sc0 2))) (PreludeC-45TypesC-45String-C-43C-43 "?" e-92))) ((31) (let ((e-94 (vector-ref sc0 2))) (let ((e-95 (vector-ref sc0 3))) (PreludeC-45TypesC-45String-C-43C-43 "(%logging " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45OptionsC-45Log-u--show_Show_LogLevel e-94) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (TTImpC-45TTImp-u--show_Show_RawImp e-95) ")"))))))) ((29) "%type") ((32) (let ((e-98 (vector-ref sc0 2))) (let ((sc1 e-98)) (cond ((equal? sc1 0) "_") (else "?"))))) (else (let ((e-100 (vector-ref sc0 2))) (let ((e-101 (vector-ref sc0 3))) (PreludeC-45TypesC-45String-C-43C-43 "(%with " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45Name-u--show_Show_Name u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Name-u--showPrec_Show_Name u--d u--x)))) e-100) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (TTImpC-45TTImp-u--show_Show_RawImp e-101) ")"))))))))))) -(define TTImpC-45TTImp-u--show_Show_ImpTy (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (PreludeC-45TypesC-45String-C-43C-43 "(%claim " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-2) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (TTImpC-45TTImp-u--show_Show_RawImp e-3) ")"))))))))) -(define TTImpC-45TTImp-u--show_Show_ImpRecord (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (PreludeC-45TypesC-45String-C-43C-43 "record " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-1) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (CoreC-45Name-u--show_Show_Name x-0)) (lambda (u--d) (lambda (x-0) (CoreC-45Name-u--showPrec_Show_Name u--d x-0)))) (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (AlgebraC-45ZeroOneOmega-u--show_Show_ZeroOneOmega x-1)) (lambda (u--d) (lambda (x-1) (AlgebraC-45ZeroOneOmega-u--showPrec_Show_ZeroOneOmega u--d x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40PiInfoC-32C-36tC-41 (cons (lambda (x-3) (TTImpC-45TTImp-u--show_Show_RawImp x-3)) (lambda (u--d) (lambda (x-3) (TTImpC-45TTImp-u--showPrec_Show_RawImp u--d x-3)))) x-2)) (lambda (u--d) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40PiInfoC-32C-36tC-41 (cons (lambda (x-3) (TTImpC-45TTImp-u--show_Show_RawImp x-3)) (lambda (d-0) (lambda (x-3) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-0 x-3)))) u--d x-2)))) (cons (lambda (x-2) (TTImpC-45TTImp-u--show_Show_RawImp x-2)) (lambda (u--d) (lambda (x-2) (TTImpC-45TTImp-u--showPrec_Show_RawImp u--d x-2))))) x-1)) (lambda (u--d) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40PiInfoC-32C-36tC-41 (cons (lambda (x-3) (TTImpC-45TTImp-u--show_Show_RawImp x-3)) (lambda (d-0) (lambda (x-3) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40PiInfoC-32C-36tC-41 (cons (lambda (x-3) (TTImpC-45TTImp-u--show_Show_RawImp x-3)) (lambda (d-1) (lambda (x-3) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-1 x-3)))) d-0 x-2)))) (cons (lambda (x-2) (TTImpC-45TTImp-u--show_Show_RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-0 x-2))))) u--d x-1))))) x-0)) (lambda (u--d) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (AlgebraC-45ZeroOneOmega-u--show_Show_ZeroOneOmega x-1)) (lambda (d-0) (lambda (x-1) (AlgebraC-45ZeroOneOmega-u--showPrec_Show_ZeroOneOmega d-0 x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40PiInfoC-32C-36tC-41 (cons (lambda (x-3) (TTImpC-45TTImp-u--show_Show_RawImp x-3)) (lambda (d-0) (lambda (x-3) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40PiInfoC-32C-36tC-41 (cons (lambda (x-3) (TTImpC-45TTImp-u--show_Show_RawImp x-3)) (lambda (d-1) (lambda (x-3) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-1 x-3)))) d-0 x-2)))) (cons (lambda (x-2) (TTImpC-45TTImp-u--show_Show_RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40PiInfoC-32C-36tC-41 (cons (lambda (x-3) (TTImpC-45TTImp-u--show_Show_RawImp x-3)) (lambda (d-1) (lambda (x-3) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40PiInfoC-32C-36tC-41 (cons (lambda (x-3) (TTImpC-45TTImp-u--show_Show_RawImp x-3)) (lambda (d-2) (lambda (x-3) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-2 x-3)))) d-1 x-2)))) (cons (lambda (x-2) (TTImpC-45TTImp-u--show_Show_RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-1 x-2))))) d-0 x-1))))) u--d x-0))))) u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (CoreC-45Name-u--show_Show_Name x-0)) (lambda (d-0) (lambda (x-0) (CoreC-45Name-u--showPrec_Show_Name d-0 x-0)))) (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (AlgebraC-45ZeroOneOmega-u--show_Show_ZeroOneOmega x-1)) (lambda (d-0) (lambda (x-1) (AlgebraC-45ZeroOneOmega-u--showPrec_Show_ZeroOneOmega d-0 x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40PiInfoC-32C-36tC-41 (cons (lambda (x-3) (TTImpC-45TTImp-u--show_Show_RawImp x-3)) (lambda (d-0) (lambda (x-3) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40PiInfoC-32C-36tC-41 (cons (lambda (x-3) (TTImpC-45TTImp-u--show_Show_RawImp x-3)) (lambda (d-1) (lambda (x-3) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-1 x-3)))) d-0 x-2)))) (cons (lambda (x-2) (TTImpC-45TTImp-u--show_Show_RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40PiInfoC-32C-36tC-41 (cons (lambda (x-3) (TTImpC-45TTImp-u--show_Show_RawImp x-3)) (lambda (d-1) (lambda (x-3) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40PiInfoC-32C-36tC-41 (cons (lambda (x-3) (TTImpC-45TTImp-u--show_Show_RawImp x-3)) (lambda (d-2) (lambda (x-3) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-2 x-3)))) d-1 x-2)))) (cons (lambda (x-2) (TTImpC-45TTImp-u--show_Show_RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-1 x-2))))) d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (AlgebraC-45ZeroOneOmega-u--show_Show_ZeroOneOmega x-1)) (lambda (d-1) (lambda (x-1) (AlgebraC-45ZeroOneOmega-u--showPrec_Show_ZeroOneOmega d-1 x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40PiInfoC-32C-36tC-41 (cons (lambda (x-3) (TTImpC-45TTImp-u--show_Show_RawImp x-3)) (lambda (d-1) (lambda (x-3) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40PiInfoC-32C-36tC-41 (cons (lambda (x-3) (TTImpC-45TTImp-u--show_Show_RawImp x-3)) (lambda (d-2) (lambda (x-3) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-2 x-3)))) d-1 x-2)))) (cons (lambda (x-2) (TTImpC-45TTImp-u--show_Show_RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-1 x-2))))) x-1)) (lambda (d-1) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40PiInfoC-32C-36tC-41 (cons (lambda (x-3) (TTImpC-45TTImp-u--show_Show_RawImp x-3)) (lambda (d-2) (lambda (x-3) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-2 x-3)))) x-2)) (lambda (d-2) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40PiInfoC-32C-36tC-41 (cons (lambda (x-3) (TTImpC-45TTImp-u--show_Show_RawImp x-3)) (lambda (d-3) (lambda (x-3) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-3 x-3)))) d-2 x-2)))) (cons (lambda (x-2) (TTImpC-45TTImp-u--show_Show_RawImp x-2)) (lambda (d-2) (lambda (x-2) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-2 x-2))))) d-1 x-1))))) d-0 x-0))))) u--d u--x)))) e-2) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-3) (PreludeC-45TypesC-45String-C-43C-43 "\u000a\u0009" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-showSep "\u000a\u0009" (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (TTImpC-45TTImp-u--show_Show_IField eta-0)) e-4)) "\u000a"))))))))))))))) -(define TTImpC-45TTImp-u--show_Show_ImpDecl (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (TTImpC-45TTImp-u--show_Show_FnOpt u--x)) (lambda (u--d) (lambda (u--x) (TTImpC-45TTImp-u--showPrec_Show_FnOpt u--d u--x)))) e-3) (PreludeC-45TypesC-45String-C-43C-43 " " (TTImpC-45TTImp-u--show_Show_ImpTy e-4)))))) ((1) (let ((e-7 (vector-ref sc0 3))) (TTImpC-45TTImp-u--show_Show_ImpData e-7))) ((2) (let ((e-9 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 3))) (PreludeC-45TypesC-45String-C-43C-43 "(%def " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-9) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (TTImpC-45TTImp-u--show_Show_ImpClause u--x)) (lambda (u--d) (lambda (u--x) (TTImpC-45TTImp-u--showPrec_Show_ImpClause u--d u--x)))) e-10) ")"))))))) ((3) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (PreludeC-45TypesC-45String-C-43C-43 "parameters " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (CoreC-45Name-u--show_Show_Name x-0)) (lambda (u--d) (lambda (x-0) (CoreC-45Name-u--showPrec_Show_Name u--d x-0)))) (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (AlgebraC-45ZeroOneOmega-u--show_Show_ZeroOneOmega x-1)) (lambda (u--d) (lambda (x-1) (AlgebraC-45ZeroOneOmega-u--showPrec_Show_ZeroOneOmega u--d x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40PiInfoC-32C-36tC-41 (cons (lambda (x-3) (TTImpC-45TTImp-u--show_Show_RawImp x-3)) (lambda (u--d) (lambda (x-3) (TTImpC-45TTImp-u--showPrec_Show_RawImp u--d x-3)))) x-2)) (lambda (u--d) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40PiInfoC-32C-36tC-41 (cons (lambda (x-3) (TTImpC-45TTImp-u--show_Show_RawImp x-3)) (lambda (d-0) (lambda (x-3) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-0 x-3)))) u--d x-2)))) (cons (lambda (x-2) (TTImpC-45TTImp-u--show_Show_RawImp x-2)) (lambda (u--d) (lambda (x-2) (TTImpC-45TTImp-u--showPrec_Show_RawImp u--d x-2))))) x-1)) (lambda (u--d) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40PiInfoC-32C-36tC-41 (cons (lambda (x-3) (TTImpC-45TTImp-u--show_Show_RawImp x-3)) (lambda (d-0) (lambda (x-3) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40PiInfoC-32C-36tC-41 (cons (lambda (x-3) (TTImpC-45TTImp-u--show_Show_RawImp x-3)) (lambda (d-1) (lambda (x-3) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-1 x-3)))) d-0 x-2)))) (cons (lambda (x-2) (TTImpC-45TTImp-u--show_Show_RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-0 x-2))))) u--d x-1))))) x-0)) (lambda (u--d) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (AlgebraC-45ZeroOneOmega-u--show_Show_ZeroOneOmega x-1)) (lambda (d-0) (lambda (x-1) (AlgebraC-45ZeroOneOmega-u--showPrec_Show_ZeroOneOmega d-0 x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40PiInfoC-32C-36tC-41 (cons (lambda (x-3) (TTImpC-45TTImp-u--show_Show_RawImp x-3)) (lambda (d-0) (lambda (x-3) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40PiInfoC-32C-36tC-41 (cons (lambda (x-3) (TTImpC-45TTImp-u--show_Show_RawImp x-3)) (lambda (d-1) (lambda (x-3) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-1 x-3)))) d-0 x-2)))) (cons (lambda (x-2) (TTImpC-45TTImp-u--show_Show_RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40PiInfoC-32C-36tC-41 (cons (lambda (x-3) (TTImpC-45TTImp-u--show_Show_RawImp x-3)) (lambda (d-1) (lambda (x-3) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40PiInfoC-32C-36tC-41 (cons (lambda (x-3) (TTImpC-45TTImp-u--show_Show_RawImp x-3)) (lambda (d-2) (lambda (x-3) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-2 x-3)))) d-1 x-2)))) (cons (lambda (x-2) (TTImpC-45TTImp-u--show_Show_RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-1 x-2))))) d-0 x-1))))) u--d x-0))))) u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (CoreC-45Name-u--show_Show_Name x-0)) (lambda (d-0) (lambda (x-0) (CoreC-45Name-u--showPrec_Show_Name d-0 x-0)))) (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (AlgebraC-45ZeroOneOmega-u--show_Show_ZeroOneOmega x-1)) (lambda (d-0) (lambda (x-1) (AlgebraC-45ZeroOneOmega-u--showPrec_Show_ZeroOneOmega d-0 x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40PiInfoC-32C-36tC-41 (cons (lambda (x-3) (TTImpC-45TTImp-u--show_Show_RawImp x-3)) (lambda (d-0) (lambda (x-3) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40PiInfoC-32C-36tC-41 (cons (lambda (x-3) (TTImpC-45TTImp-u--show_Show_RawImp x-3)) (lambda (d-1) (lambda (x-3) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-1 x-3)))) d-0 x-2)))) (cons (lambda (x-2) (TTImpC-45TTImp-u--show_Show_RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40PiInfoC-32C-36tC-41 (cons (lambda (x-3) (TTImpC-45TTImp-u--show_Show_RawImp x-3)) (lambda (d-1) (lambda (x-3) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40PiInfoC-32C-36tC-41 (cons (lambda (x-3) (TTImpC-45TTImp-u--show_Show_RawImp x-3)) (lambda (d-2) (lambda (x-3) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-2 x-3)))) d-1 x-2)))) (cons (lambda (x-2) (TTImpC-45TTImp-u--show_Show_RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-1 x-2))))) d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (AlgebraC-45ZeroOneOmega-u--show_Show_ZeroOneOmega x-1)) (lambda (d-1) (lambda (x-1) (AlgebraC-45ZeroOneOmega-u--showPrec_Show_ZeroOneOmega d-1 x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40PiInfoC-32C-36tC-41 (cons (lambda (x-3) (TTImpC-45TTImp-u--show_Show_RawImp x-3)) (lambda (d-1) (lambda (x-3) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40PiInfoC-32C-36tC-41 (cons (lambda (x-3) (TTImpC-45TTImp-u--show_Show_RawImp x-3)) (lambda (d-2) (lambda (x-3) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-2 x-3)))) d-1 x-2)))) (cons (lambda (x-2) (TTImpC-45TTImp-u--show_Show_RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-1 x-2))))) x-1)) (lambda (d-1) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40PiInfoC-32C-36tC-41 (cons (lambda (x-3) (TTImpC-45TTImp-u--show_Show_RawImp x-3)) (lambda (d-2) (lambda (x-3) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-2 x-3)))) x-2)) (lambda (d-2) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40PiInfoC-32C-36tC-41 (cons (lambda (x-3) (TTImpC-45TTImp-u--show_Show_RawImp x-3)) (lambda (d-3) (lambda (x-3) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-3 x-3)))) d-2 x-2)))) (cons (lambda (x-2) (TTImpC-45TTImp-u--show_Show_RawImp x-2)) (lambda (d-2) (lambda (x-2) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-2 x-2))))) d-1 x-1))))) d-0 x-0))))) u--d u--x)))) e-12) (PreludeC-45TypesC-45String-C-43C-43 "\u000a\u0009" (CoreC-45NameC-45Namespace-showSep "\u000a\u0009" (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (TTImpC-45TTImp-u--show_Show_ImpDecl eta-0)) e-13)))))))) ((4) (let ((e-17 (vector-ref sc0 4))) (TTImpC-45TTImp-u--show_Show_ImpRecord e-17))) ((5) (let ((e-19 (vector-ref sc0 2))) (let ((e-20 (vector-ref sc0 3))) (PreludeC-45TypesC-45String-C-43C-43 "namespace " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-u--show_Show_Namespace e-19) (CoreC-45NameC-45Namespace-showSep "\u000a" (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (TTImpC-45TTImp-u--show_Show_ImpDecl eta-0)) e-20))))))) ((6) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (let ((e-24 (vector-ref sc0 4))) (PreludeC-45TypesC-45String-C-43C-43 "%transform " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-22) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (TTImpC-45TTImp-u--show_Show_RawImp e-23) (PreludeC-45TypesC-45String-C-43C-43 " ==> " (TTImpC-45TTImp-u--show_Show_RawImp e-24)))))))))) ((7) (let ((e-26 (vector-ref sc0 2))) (PreludeC-45TypesC-45String-C-43C-43 "%runElab " (TTImpC-45TTImp-u--show_Show_RawImp e-26)))) ((8) "[externally defined pragma]") ((9) (let ((e-29 (vector-ref sc0 1))) (let ((sc1 e-29)) (case (vector-ref sc1 0) ((0) "%logging off") (else (let ((e-35 (vector-ref sc1 1))) (let ((sc2 e-35)) (let ((e-38 (car sc2))) (let ((e-39 (cdr sc2))) (PreludeC-45TypesC-45String-C-43C-43 "%logging " (let ((sc3 e-38)) (if (null? sc3) (PreludeC-45Show-u--show_Show_Nat e-39) (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Interfaces-concat (cons (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_String arg-2 arg-3))) (PreludeC-45Types-u--neutral_Monoid_String))) (DataC-45List-intersperse "." e-38)) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45Show-u--show_Show_Nat e-39))))))))))))))) (else (let ((e-31 (vector-ref sc0 2))) (let ((e-32 (vector-ref sc0 3))) (PreludeC-45TypesC-45String-C-43C-43 "%builtin " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Context-u--show_Show_BuiltinType e-31) (PreludeC-45TypesC-45String-C-43C-43 " " (CoreC-45Name-u--show_Show_Name e-32))))))))))) -(define TTImpC-45TTImp-u--show_Show_ImpData (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 5))) (PreludeC-45TypesC-45String-C-43C-43 "(%data " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-1) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (TTImpC-45TTImp-u--show_Show_RawImp e-2) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (TTImpC-45TTImp-u--show_Show_ImpTy u--x)) (lambda (u--d) (lambda (u--x) (TTImpC-45TTImp-u--showPrec_Show_ImpTy u--d u--x)))) e-4) ")")))))))))) (else (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (PreludeC-45TypesC-45String-C-43C-43 "(%datadecl " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-6) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (TTImpC-45TTImp-u--show_Show_RawImp e-7) ")"))))))))))) -(define TTImpC-45TTImp-u--show_Show_ImpClause (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (PreludeC-45TypesC-45String-C-43C-43 (TTImpC-45TTImp-u--show_Show_RawImp e-1) (PreludeC-45TypesC-45String-C-43C-43 " = " (TTImpC-45TTImp-u--show_Show_RawImp e-2)))))) ((1) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((e-6 (vector-ref sc0 4))) (let ((e-8 (vector-ref sc0 6))) (PreludeC-45TypesC-45String-C-43C-43 (TTImpC-45TTImp-u--show_Show_RawImp e-4) (PreludeC-45TypesC-45String-C-43C-43 " with " (PreludeC-45TypesC-45String-C-43C-43 (TTImpC-45TTImp-u--show_Show_RawImp e-5) (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Types-maybe (lambda () "") (lambda () (lambda (u--nm) (PreludeC-45TypesC-45String-C-43C-43 " proof " (CoreC-45Name-u--show_Show_Name u--nm)))) e-6) (PreludeC-45TypesC-45String-C-43C-43 "\u000a\u0009" (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (TTImpC-45TTImp-u--show_Show_ImpClause u--x)) (lambda (u--d) (lambda (u--x) (TTImpC-45TTImp-u--showPrec_Show_ImpClause u--d u--x)))) e-8))))))))))) (else (let ((e-10 (vector-ref sc0 2))) (PreludeC-45TypesC-45String-C-43C-43 (TTImpC-45TTImp-u--show_Show_RawImp e-10) " impossible"))))))) -(define TTImpC-45TTImp-u--show_Show_IFieldUpdate (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-showSep "->" e-0) (PreludeC-45TypesC-45String-C-43C-43 " = " (TTImpC-45TTImp-u--show_Show_RawImp e-1)))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-showSep "->" e-2) (PreludeC-45TypesC-45String-C-43C-43 " $= " (TTImpC-45TTImp-u--show_Show_RawImp e-3)))))))))) -(define TTImpC-45TTImp-u--show_Show_IField (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-3) (PreludeC-45TypesC-45String-C-43C-43 " : " (TTImpC-45TTImp-u--show_Show_RawImp e-4))))(else (PreludeC-45TypesC-45String-C-43C-43 "{" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-3) (PreludeC-45TypesC-45String-C-43C-43 " : " (PreludeC-45TypesC-45String-C-43C-43 (TTImpC-45TTImp-u--show_Show_RawImp e-4) "}"))))))))))))) -(define TTImpC-45TTImp-u--show_Show_FnOpt (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) "%inline") ((1) "%tcinline") ((2) (let ((e-0 (vector-ref sc0 1))) (PreludeC-45TypesC-45String-C-43C-43 "%hint " (PreludeC-45Show-u--show_Show_Bool e-0)))) ((3) (let ((e-1 (vector-ref sc0 1))) (PreludeC-45TypesC-45String-C-43C-43 "%globalhint " (PreludeC-45Show-u--show_Show_Bool e-1)))) ((4) "%extern") ((5) (let ((e-2 (vector-ref sc0 1))) (PreludeC-45TypesC-45String-C-43C-43 "%foreign " (CoreC-45NameC-45Namespace-showSep " " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (TTImpC-45TTImp-u--show_Show_RawImp eta-0)) e-2))))) ((6) "%invertible") ((7) (let ((e-3 (vector-ref sc0 1))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) "total") ((1) "covering") (else "partial"))))) ((8) "%macro") (else (let ((e-4 (vector-ref sc0 1))) (PreludeC-45TypesC-45String-C-43C-43 "%spec " (CoreC-45NameC-45Namespace-showSep " " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45Name-u--show_Show_Name eta-0)) e-4))))))))) -(define TTImpC-45TTImp-u--showPrec_Show_RawImp (lambda (arg-0 arg-1) (TTImpC-45TTImp-u--show_Show_RawImp arg-1))) -(define TTImpC-45TTImp-u--showPrec_Show_ImpTy (lambda (arg-0 arg-1) (TTImpC-45TTImp-u--show_Show_ImpTy arg-1))) -(define TTImpC-45TTImp-u--showPrec_Show_ImpDecl (lambda (arg-0 arg-1) (TTImpC-45TTImp-u--show_Show_ImpDecl arg-1))) -(define TTImpC-45TTImp-u--showPrec_Show_ImpClause (lambda (arg-0 arg-1) (TTImpC-45TTImp-u--show_Show_ImpClause arg-1))) -(define TTImpC-45TTImp-u--showPrec_Show_FnOpt (lambda (arg-0 arg-1) (TTImpC-45TTImp-u--show_Show_FnOpt arg-1))) -(define TTImpC-45TTImp-u--fromBuf_TTC_RawImp (lambda (arg-0 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-getTag arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (CoreC-45TTC-u--fromBuf_TTC_Name arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 0 e-6 e-7))))))))))))) ((equal? sc1 1) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (CoreC-45TTC-u--fromBuf_TTC_RigCount arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (CoreC-45TTC-u--fromBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-10255 arg-10257))) (lambda (arg-10258) (lambda (eta-0) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-10258 eta-0)))) arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_Name arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10258 eta-0)))) arg-0 ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-0 ext-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-30 (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-0 ext-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 1 e-6 e-7 e-8 e-9 e-10 e-11))))))))))))))))))))))))))))))))) ((equal? sc1 2) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (CoreC-45TTC-u--fromBuf_TTC_RigCount arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (CoreC-45TTC-u--fromBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-10255 arg-10257))) (lambda (arg-10258) (lambda (eta-0) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-10258 eta-0)))) arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_Name arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10258 eta-0)))) arg-0 ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-0 ext-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-30 (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-0 ext-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 2 e-6 e-7 e-8 e-9 e-10 e-11))))))))))))))))))))))))))))))))) ((equal? sc1 3) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (CoreC-45TTC-u--fromBuf_TTC_FC arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (CoreC-45TTC-u--fromBuf_TTC_RigCount arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (CoreC-45TTC-u--fromBuf_TTC_Name arg-0 ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-0 ext-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-30 (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-0 ext-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-31 (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-0 ext-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc8 1))) (vector 1 (vector 3 e-6 e-7 e-8 e-9 e-10 e-11 e-12)))))))))))))))))))))))))))))))))))))) ((equal? sc1 4) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (TTImpC-45TTImp-u--toBuf_TTC_ImpClause arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (TTImpC-45TTImp-u--fromBuf_TTC_ImpClause arg-10258 eta-0)))) arg-0 ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (vector 1 (vector 4 e-6 e-7 e-8 e-9))))))))))))))))))))))) ((equal? sc1 5) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (TTImpC-45TTImp-u--toBuf_TTC_ImpDecl arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (TTImpC-45TTImp-u--fromBuf_TTC_ImpDecl arg-10258 eta-0)))) arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 5 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 6) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (TTImpC-45TTImp-u--toBuf_TTC_IFieldUpdate arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (TTImpC-45TTImp-u--fromBuf_TTC_IFieldUpdate arg-10258 eta-0)))) arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 7 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 7) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 8 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 8) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (CoreC-45TTC-u--fromBuf_TTC_Name arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-0 ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (vector 1 (vector 10 e-6 e-7 e-8 e-9))))))))))))))))))))))) ((equal? sc1 9) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 11 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 10) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 12 e-6 e-7))))))))))))) ((equal? sc1 11) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImpC-45TTImp-u--fromBuf_TTC_AltType arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-10255 arg-10257))) (lambda (arg-10258) (lambda (eta-0) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-10258 eta-0)))) arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 13 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 12) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 14 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 13) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 15 e-6 e-7))))))))))))) ((equal? sc1 14) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImpC-45TTImp-u--fromBuf_TTC_BindMode arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 16 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 15) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 17 e-6 e-7))))))))))))) ((equal? sc1 16) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (CoreC-45TTC-u--fromBuf_TTC_FC arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (CoreC-45TTC-u--fromBuf_TTC_UseSide arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (CoreC-45TTC-u--fromBuf_TTC_Name arg-0 ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-0 ext-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc6 1))) (vector 1 (vector 18 e-6 e-7 e-8 e-9 e-10)))))))))))))))))))))))))))) ((equal? sc1 17) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 19 e-6 (vector 5 ) e-7))))))))))))) ((equal? sc1 18) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (CoreC-45TTC-u--fromBuf_TTC_LazyReason arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 20 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 19) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 21 e-6 e-7))))))))))))) ((equal? sc1 20) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 22 e-6 e-7))))))))))))) ((equal? sc1 21) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 23 e-6 e-7))))))))))))) ((equal? sc1 22) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (CoreC-45TTC-u--fromBuf_TTC_Name arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 24 e-6 e-7))))))))))))) ((equal? sc1 23) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (TTImpC-45TTImp-u--toBuf_TTC_ImpDecl arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (TTImpC-45TTImp-u--fromBuf_TTC_ImpDecl arg-10258 eta-0)))) arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 25 e-6 e-7))))))))))))) ((equal? sc1 24) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 26 e-6 e-7))))))))))))) ((equal? sc1 25) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 27 e-6 e-7))))))))))))) ((equal? sc1 26) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (CoreC-45TTC-u--fromBuf_TTC_Constant arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 28 e-6 e-7))))))))))))) ((equal? sc1 27) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 29 e-6)))))))) ((equal? sc1 28) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 30 e-6 e-7))))))))))))) ((equal? sc1 29) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Bool arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 32 e-6 e-7))))))))))))) ((equal? sc1 30) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_Name arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10258 eta-0)))) arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 33 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 31) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 9 e-6 e-7 e-8))))))))))))))))))(else (LibrariesC-45UtilsC-45Binary-corrupt "RawImp" ext-0))))))))))) -(define TTImpC-45TTImp-u--fromBuf_TTC_ImpTy (lambda (arg-0 ext-0) (let ((act-24 (CoreC-45TTC-u--fromBuf_TTC_FC arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_FC arg-0 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (CoreC-45TTC-u--fromBuf_TTC_Name arg-0 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-0 ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (vector 1 (vector 0 e-5 e-6 e-7 e-8)))))))))))))))))))))))) -(define TTImpC-45TTImp-u--fromBuf_TTC_ImpRecord (lambda (arg-0 ext-0) (let ((act-24 (CoreC-45TTC-u--fromBuf_TTC_FC arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_Name arg-0 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10258) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_Name arg-10256 arg-10258 eta-1)))) (lambda (arg-10258) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10258 eta-1)))) (cons (lambda (arg-10256) (lambda (arg-10258) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10259) (lambda (arg-10260) (CoreC-45TTC-u--toBuf_TTC_RigCount arg-10259 arg-10260))) (lambda (arg-10259) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_RigCount arg-10259 eta-2)))) (cons (lambda (arg-10259) (lambda (arg-10260) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-3) (CoreC-45TTC-u--toBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-10263) (lambda (arg-10264) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-10263 arg-10264))) (lambda (arg-10263) (lambda (eta-4) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-10263 eta-4)))) arg-10261 arg-10262 eta-3)))) (lambda (arg-10261) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-10262) (lambda (arg-10263) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-10262 arg-10263))) (lambda (arg-10262) (lambda (eta-4) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-10262 eta-4)))) arg-10261 eta-3)))) (cons (lambda (arg-10261) (lambda (arg-10262) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-10261 arg-10262))) (lambda (arg-10261) (lambda (eta-3) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-10261 eta-3))))) arg-10259 arg-10260 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10260) (lambda (arg-10261) (lambda (eta-3) (CoreC-45TTC-u--toBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-10262) (lambda (arg-10263) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-10262 arg-10263))) (lambda (arg-10262) (lambda (eta-4) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-10262 eta-4)))) arg-10260 arg-10261 eta-3)))) (lambda (arg-10260) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-10261) (lambda (arg-10262) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-10261 arg-10262))) (lambda (arg-10261) (lambda (eta-4) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-10261 eta-4)))) arg-10260 eta-3)))) (cons (lambda (arg-10260) (lambda (arg-10261) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-10260 arg-10261))) (lambda (arg-10260) (lambda (eta-3) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-10260 eta-3))))) arg-10259 eta-2))))) arg-10256 arg-10258 eta-1)))) (lambda (arg-10258) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10259) (CoreC-45TTC-u--toBuf_TTC_RigCount arg-10256 arg-10259))) (lambda (arg-10259) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_RigCount arg-10259 eta-2)))) (cons (lambda (arg-10256) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10260) (lambda (arg-10261) (lambda (eta-3) (CoreC-45TTC-u--toBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-10262) (lambda (arg-10263) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-10262 arg-10263))) (lambda (arg-10262) (lambda (eta-4) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-10262 eta-4)))) arg-10260 arg-10261 eta-3)))) (lambda (arg-10260) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-10261) (lambda (arg-10262) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-10261 arg-10262))) (lambda (arg-10261) (lambda (eta-4) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-10261 eta-4)))) arg-10260 eta-3)))) (cons (lambda (arg-10260) (lambda (arg-10261) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-10260 arg-10261))) (lambda (arg-10260) (lambda (eta-3) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-10260 eta-3))))) arg-10256 arg-10259 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10260) (lambda (eta-3) (CoreC-45TTC-u--toBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-10261) (lambda (arg-10262) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-10261 arg-10262))) (lambda (arg-10261) (lambda (eta-4) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-10261 eta-4)))) arg-10256 arg-10260 eta-3)))) (lambda (arg-10260) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-10256) (lambda (arg-10261) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-10256 arg-10261))) (lambda (arg-10261) (lambda (eta-4) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-10261 eta-4)))) arg-10260 eta-3)))) (cons (lambda (arg-10256) (lambda (arg-10260) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-10256 arg-10260))) (lambda (arg-10260) (lambda (eta-3) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-10260 eta-3))))) arg-10259 eta-2))))) arg-10258 eta-1))))) arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_Name arg-10255 arg-10257 eta-1)))) (lambda (arg-10259) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10259 eta-1)))) (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10259) (CoreC-45TTC-u--toBuf_TTC_RigCount arg-10256 arg-10259))) (lambda (arg-10259) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_RigCount arg-10259 eta-2)))) (cons (lambda (arg-10256) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10260) (lambda (arg-10261) (lambda (eta-3) (CoreC-45TTC-u--toBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-10262) (lambda (arg-10263) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-10262 arg-10263))) (lambda (arg-10262) (lambda (eta-4) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-10262 eta-4)))) arg-10260 arg-10261 eta-3)))) (lambda (arg-10260) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-10261) (lambda (arg-10262) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-10261 arg-10262))) (lambda (arg-10261) (lambda (eta-4) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-10261 eta-4)))) arg-10260 eta-3)))) (cons (lambda (arg-10260) (lambda (arg-10261) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-10260 arg-10261))) (lambda (arg-10260) (lambda (eta-3) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-10260 eta-3))))) arg-10256 arg-10259 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10260) (lambda (eta-3) (CoreC-45TTC-u--toBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-10261) (lambda (arg-10262) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-10261 arg-10262))) (lambda (arg-10261) (lambda (eta-4) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-10261 eta-4)))) arg-10256 arg-10260 eta-3)))) (lambda (arg-10260) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-10256) (lambda (arg-10261) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-10256 arg-10261))) (lambda (arg-10261) (lambda (eta-4) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-10261 eta-4)))) arg-10260 eta-3)))) (cons (lambda (arg-10256) (lambda (arg-10260) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-10256 arg-10260))) (lambda (arg-10260) (lambda (eta-3) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-10260 eta-3))))) arg-10259 eta-2))))) arg-10255 arg-10257 eta-1)))) (lambda (arg-10259) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10255) (lambda (arg-10257) (CoreC-45TTC-u--toBuf_TTC_RigCount arg-10255 arg-10257))) (lambda (arg-10260) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_RigCount arg-10260 eta-2)))) (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10260) (lambda (eta-3) (CoreC-45TTC-u--toBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-10261) (lambda (arg-10262) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-10261 arg-10262))) (lambda (arg-10261) (lambda (eta-4) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-10261 eta-4)))) arg-10256 arg-10260 eta-3)))) (lambda (arg-10260) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-10256) (lambda (arg-10261) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-10256 arg-10261))) (lambda (arg-10261) (lambda (eta-4) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-10261 eta-4)))) arg-10260 eta-3)))) (cons (lambda (arg-10256) (lambda (arg-10260) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-10256 arg-10260))) (lambda (arg-10260) (lambda (eta-3) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-10260 eta-3))))) arg-10255 arg-10257 eta-2)))) (lambda (arg-10260) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-3) (CoreC-45TTC-u--toBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-10256) (lambda (arg-10261) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-10256 arg-10261))) (lambda (arg-10261) (lambda (eta-4) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-10261 eta-4)))) arg-10255 arg-10257 eta-3)))) (lambda (arg-10261) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-10255 arg-10257))) (lambda (arg-10262) (lambda (eta-4) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-10262 eta-4)))) arg-10261 eta-3)))) (cons (lambda (arg-10255) (lambda (arg-10257) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-10255 arg-10257))) (lambda (arg-10261) (lambda (eta-3) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-10261 eta-3))))) arg-10260 eta-2))))) arg-10259 eta-1))))) arg-10258 eta-0)))) arg-0 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (CoreC-45TTC-u--fromBuf_TTC_Name arg-0 ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (TTImpC-45TTImp-u--toBuf_TTC_IField arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (TTImpC-45TTImp-u--fromBuf_TTC_IField arg-10258 eta-0)))) arg-0 ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (vector 1 (vector 0 e-5 e-6 e-7 e-8 e-9))))))))))))))))))))))))))))) -(define TTImpC-45TTImp-u--fromBuf_TTC_ImpDecl (lambda (arg-0 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-getTag arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (CoreC-45TTC-u--fromBuf_TTC_RigCount arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (CoreC-45TTC-u--fromBuf_TTC_Visibility arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (TTImpC-45TTImp-u--toBuf_TTC_FnOpt arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (TTImpC-45TTImp-u--fromBuf_TTC_FnOpt arg-10258 eta-0)))) arg-0 ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 (TTImpC-45TTImp-u--fromBuf_TTC_ImpTy arg-0 ext-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc6 1))) (vector 1 (vector 0 e-6 e-7 e-8 e-9 e-10)))))))))))))))))))))))))))) ((equal? sc1 1) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (CoreC-45TTC-u--fromBuf_TTC_Visibility arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTImpC-45TTImp-u--fromBuf_TTC_ImpData arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 1 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 2) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (CoreC-45TTC-u--fromBuf_TTC_Name arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (TTImpC-45TTImp-u--toBuf_TTC_ImpClause arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (TTImpC-45TTImp-u--fromBuf_TTC_ImpClause arg-10258 eta-0)))) arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 2 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 3) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10258) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_Name arg-10256 arg-10258 eta-1)))) (lambda (arg-10258) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10258 eta-1)))) (cons (lambda (arg-10256) (lambda (arg-10258) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10259) (lambda (arg-10260) (CoreC-45TTC-u--toBuf_TTC_RigCount arg-10259 arg-10260))) (lambda (arg-10259) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_RigCount arg-10259 eta-2)))) (cons (lambda (arg-10259) (lambda (arg-10260) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-3) (CoreC-45TTC-u--toBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-10263) (lambda (arg-10264) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-10263 arg-10264))) (lambda (arg-10263) (lambda (eta-4) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-10263 eta-4)))) arg-10261 arg-10262 eta-3)))) (lambda (arg-10261) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-10262) (lambda (arg-10263) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-10262 arg-10263))) (lambda (arg-10262) (lambda (eta-4) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-10262 eta-4)))) arg-10261 eta-3)))) (cons (lambda (arg-10261) (lambda (arg-10262) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-10261 arg-10262))) (lambda (arg-10261) (lambda (eta-3) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-10261 eta-3))))) arg-10259 arg-10260 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10260) (lambda (arg-10261) (lambda (eta-3) (CoreC-45TTC-u--toBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-10262) (lambda (arg-10263) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-10262 arg-10263))) (lambda (arg-10262) (lambda (eta-4) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-10262 eta-4)))) arg-10260 arg-10261 eta-3)))) (lambda (arg-10260) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-10261) (lambda (arg-10262) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-10261 arg-10262))) (lambda (arg-10261) (lambda (eta-4) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-10261 eta-4)))) arg-10260 eta-3)))) (cons (lambda (arg-10260) (lambda (arg-10261) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-10260 arg-10261))) (lambda (arg-10260) (lambda (eta-3) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-10260 eta-3))))) arg-10259 eta-2))))) arg-10256 arg-10258 eta-1)))) (lambda (arg-10258) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10259) (CoreC-45TTC-u--toBuf_TTC_RigCount arg-10256 arg-10259))) (lambda (arg-10259) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_RigCount arg-10259 eta-2)))) (cons (lambda (arg-10256) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10260) (lambda (arg-10261) (lambda (eta-3) (CoreC-45TTC-u--toBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-10262) (lambda (arg-10263) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-10262 arg-10263))) (lambda (arg-10262) (lambda (eta-4) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-10262 eta-4)))) arg-10260 arg-10261 eta-3)))) (lambda (arg-10260) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-10261) (lambda (arg-10262) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-10261 arg-10262))) (lambda (arg-10261) (lambda (eta-4) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-10261 eta-4)))) arg-10260 eta-3)))) (cons (lambda (arg-10260) (lambda (arg-10261) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-10260 arg-10261))) (lambda (arg-10260) (lambda (eta-3) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-10260 eta-3))))) arg-10256 arg-10259 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10260) (lambda (eta-3) (CoreC-45TTC-u--toBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-10261) (lambda (arg-10262) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-10261 arg-10262))) (lambda (arg-10261) (lambda (eta-4) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-10261 eta-4)))) arg-10256 arg-10260 eta-3)))) (lambda (arg-10260) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-10256) (lambda (arg-10261) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-10256 arg-10261))) (lambda (arg-10261) (lambda (eta-4) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-10261 eta-4)))) arg-10260 eta-3)))) (cons (lambda (arg-10256) (lambda (arg-10260) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-10256 arg-10260))) (lambda (arg-10260) (lambda (eta-3) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-10260 eta-3))))) arg-10259 eta-2))))) arg-10258 eta-1))))) arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_Name arg-10255 arg-10257 eta-1)))) (lambda (arg-10259) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10259 eta-1)))) (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10259) (CoreC-45TTC-u--toBuf_TTC_RigCount arg-10256 arg-10259))) (lambda (arg-10259) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_RigCount arg-10259 eta-2)))) (cons (lambda (arg-10256) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10260) (lambda (arg-10261) (lambda (eta-3) (CoreC-45TTC-u--toBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-10262) (lambda (arg-10263) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-10262 arg-10263))) (lambda (arg-10262) (lambda (eta-4) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-10262 eta-4)))) arg-10260 arg-10261 eta-3)))) (lambda (arg-10260) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-10261) (lambda (arg-10262) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-10261 arg-10262))) (lambda (arg-10261) (lambda (eta-4) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-10261 eta-4)))) arg-10260 eta-3)))) (cons (lambda (arg-10260) (lambda (arg-10261) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-10260 arg-10261))) (lambda (arg-10260) (lambda (eta-3) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-10260 eta-3))))) arg-10256 arg-10259 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10260) (lambda (eta-3) (CoreC-45TTC-u--toBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-10261) (lambda (arg-10262) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-10261 arg-10262))) (lambda (arg-10261) (lambda (eta-4) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-10261 eta-4)))) arg-10256 arg-10260 eta-3)))) (lambda (arg-10260) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-10256) (lambda (arg-10261) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-10256 arg-10261))) (lambda (arg-10261) (lambda (eta-4) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-10261 eta-4)))) arg-10260 eta-3)))) (cons (lambda (arg-10256) (lambda (arg-10260) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-10256 arg-10260))) (lambda (arg-10260) (lambda (eta-3) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-10260 eta-3))))) arg-10259 eta-2))))) arg-10255 arg-10257 eta-1)))) (lambda (arg-10259) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10255) (lambda (arg-10257) (CoreC-45TTC-u--toBuf_TTC_RigCount arg-10255 arg-10257))) (lambda (arg-10260) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_RigCount arg-10260 eta-2)))) (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10260) (lambda (eta-3) (CoreC-45TTC-u--toBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-10261) (lambda (arg-10262) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-10261 arg-10262))) (lambda (arg-10261) (lambda (eta-4) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-10261 eta-4)))) arg-10256 arg-10260 eta-3)))) (lambda (arg-10260) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-10256) (lambda (arg-10261) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-10256 arg-10261))) (lambda (arg-10261) (lambda (eta-4) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-10261 eta-4)))) arg-10260 eta-3)))) (cons (lambda (arg-10256) (lambda (arg-10260) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-10256 arg-10260))) (lambda (arg-10260) (lambda (eta-3) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-10260 eta-3))))) arg-10255 arg-10257 eta-2)))) (lambda (arg-10260) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-3) (CoreC-45TTC-u--toBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-10256) (lambda (arg-10261) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-10256 arg-10261))) (lambda (arg-10261) (lambda (eta-4) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-10261 eta-4)))) arg-10255 arg-10257 eta-3)))) (lambda (arg-10261) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-10255 arg-10257))) (lambda (arg-10262) (lambda (eta-4) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-10262 eta-4)))) arg-10261 eta-3)))) (cons (lambda (arg-10255) (lambda (arg-10257) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-10255 arg-10257))) (lambda (arg-10261) (lambda (eta-3) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-10261 eta-3))))) arg-10260 eta-2))))) arg-10259 eta-1))))) arg-10258 eta-0)))) arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (TTImpC-45TTImp-u--toBuf_TTC_ImpDecl arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (TTImpC-45TTImp-u--fromBuf_TTC_ImpDecl arg-10258 eta-0)))) arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 3 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 4) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-10255 arg-10257))) (lambda (arg-10258) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-10258 eta-0)))) arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (CoreC-45TTC-u--fromBuf_TTC_Visibility arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (TTImpC-45TTImp-u--fromBuf_TTC_ImpRecord arg-0 ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (vector 1 (vector 4 e-6 e-7 e-8 e-9))))))))))))))))))))))) ((equal? sc1 5) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (CoreC-45TTC-u--fromBuf_TTC_Namespace arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (TTImpC-45TTImp-u--toBuf_TTC_ImpDecl arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (TTImpC-45TTImp-u--fromBuf_TTC_ImpDecl arg-10258 eta-0)))) arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 5 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 6) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (CoreC-45TTC-u--fromBuf_TTC_Name arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-0 ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (vector 1 (vector 6 e-6 e-7 e-8 e-9))))))))))))))))))))))) ((equal? sc1 7) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 7 e-6 e-7))))))))))))) ((equal? sc1 8) (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10258) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10259) (lambda (arg-10260) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-10259 arg-10260))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-10259 eta-2)))) arg-10256 arg-10258 eta-1)))) (lambda (arg-10258) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10256) (lambda (arg-10259) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-10256 arg-10259))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-10259 eta-2)))) arg-10258 eta-1)))) (cons (lambda (arg-10256) (lambda (arg-10258) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-10256 arg-10258))) (lambda (arg-10258) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-10258 eta-1))))) arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10256) (lambda (arg-10259) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-10256 arg-10259))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-10259 eta-2)))) arg-10255 arg-10257 eta-1)))) (lambda (arg-10259) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-10255 arg-10257))) (lambda (arg-10260) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-10260 eta-2)))) arg-10259 eta-1)))) (cons (lambda (arg-10255) (lambda (arg-10257) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-10255 arg-10257))) (lambda (arg-10259) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-10259 eta-1))))) arg-10258 eta-0)))) arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 9 e-6)))))))) ((equal? sc1 9) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImpC-45TTImp-u--fromBuf_TTC_BuiltinType arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (CoreC-45TTC-u--fromBuf_TTC_Name arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 10 e-6 e-7 e-8))))))))))))))))))(else (LibrariesC-45UtilsC-45Binary-corrupt "ImpDecl" ext-0))))))))))) -(define TTImpC-45TTImp-u--fromBuf_TTC_ImpData (lambda (arg-0 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-getTag arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (CoreC-45TTC-u--fromBuf_TTC_Name arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (TTImpC-45TTImp-u--toBuf_TTC_DataOpt arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (TTImpC-45TTImp-u--fromBuf_TTC_DataOpt arg-10258 eta-0)))) arg-0 ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (TTImpC-45TTImp-u--toBuf_TTC_ImpTy arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (TTImpC-45TTImp-u--fromBuf_TTC_ImpTy arg-10258 eta-0)))) arg-0 ext-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc6 1))) (vector 1 (vector 0 e-6 e-7 e-8 e-9 e-10)))))))))))))))))))))))))))) ((equal? sc1 1) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (CoreC-45TTC-u--fromBuf_TTC_Name arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 1 e-6 e-7 e-8))))))))))))))))))(else (LibrariesC-45UtilsC-45Binary-corrupt "ImpData" ext-0))))))))))) -(define TTImpC-45TTImp-u--fromBuf_TTC_ImpClause (lambda (arg-0 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-getTag arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 0 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 1) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 2 e-6 e-7))))))))))))) ((equal? sc1 2) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_Name arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10258 eta-0)))) arg-0 ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (TTImpC-45TTImp-u--toBuf_TTC_ImpClause arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (TTImpC-45TTImp-u--fromBuf_TTC_ImpClause arg-10258 eta-0)))) arg-0 ext-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc6 1))) (vector 1 (vector 1 e-6 e-7 e-8 e-9 '() e-10))))))))))))))))))))))))))))(else (LibrariesC-45UtilsC-45Binary-corrupt "ImpClause" ext-0))))))))))) -(define TTImpC-45TTImp-u--fromBuf_TTC_IFieldUpdate (lambda (arg-0 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-getTag arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-10255 arg-10257))) (lambda (arg-10258) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-10258 eta-0)))) arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 0 e-6 e-7))))))))))))) ((equal? sc1 1) (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-10255 arg-10257))) (lambda (arg-10258) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-10258 eta-0)))) arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 1 e-6 e-7)))))))))))))(else (LibrariesC-45UtilsC-45Binary-corrupt "IFieldUpdate" ext-0))))))))))) -(define TTImpC-45TTImp-u--fromBuf_TTC_IField (lambda (arg-0 ext-0) (let ((act-24 (CoreC-45TTC-u--fromBuf_TTC_FC arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_RigCount arg-0 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (CoreC-45TTC-u--fromBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-10255 arg-10257))) (lambda (arg-10258) (lambda (eta-0) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-10258 eta-0)))) arg-0 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (CoreC-45TTC-u--fromBuf_TTC_Name arg-0 ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-0 ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (vector 1 (vector 0 e-5 e-6 e-7 e-8 e-9))))))))))))))))))))))))))))) -(define TTImpC-45TTImp-u--fromBuf_TTC_FnOpt (lambda (arg-0 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-getTag arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (vector 1 (vector 0 ))) ((equal? sc1 1) (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Bool arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 2 e-6)))))))) ((equal? sc1 2) (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Bool arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 3 e-6)))))))) ((equal? sc1 3) (vector 1 (vector 4 ))) ((equal? sc1 4) (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-10255 arg-10257))) (lambda (arg-10258) (lambda (eta-0) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-10258 eta-0)))) arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 5 e-6)))))))) ((equal? sc1 5) (vector 1 (vector 6 ))) ((equal? sc1 6) (vector 1 (vector 7 (vector 0 )))) ((equal? sc1 7) (vector 1 (vector 7 (vector 1 )))) ((equal? sc1 8) (vector 1 (vector 7 (vector 2 )))) ((equal? sc1 9) (vector 1 (vector 8 ))) ((equal? sc1 10) (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_Name arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10258 eta-0)))) arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 9 e-6)))))))) ((equal? sc1 11) (vector 1 (vector 1 )))(else (LibrariesC-45UtilsC-45Binary-corrupt "FnOpt" ext-0))))))))))) -(define TTImpC-45TTImp-u--fromBuf_TTC_DataOpt (lambda (arg-0 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-getTag arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_Name arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10258 eta-0)))) arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 0 e-6)))))))) ((equal? sc1 1) (vector 1 (vector 1 ))) ((equal? sc1 2) (vector 1 (vector 2 ))) ((equal? sc1 3) (vector 1 (vector 3 ))) ((equal? sc1 4) (vector 1 (vector 4 )))(else (LibrariesC-45UtilsC-45Binary-corrupt "DataOpt" ext-0))))))))))) -(define TTImpC-45TTImp-u--fromBuf_TTC_BuiltinType (lambda (arg-0 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-getTag arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (vector 1 (vector 0 ))) ((equal? sc1 1) (vector 1 (vector 1 ))) ((equal? sc1 2) (vector 1 (vector 2 ))) ((equal? sc1 3) (vector 1 (vector 3 ))) ((equal? sc1 4) (vector 1 (vector 4 )))(else (LibrariesC-45UtilsC-45Binary-corrupt "BuiltinType" ext-0))))))))))) -(define TTImpC-45TTImp-u--fromBuf_TTC_BindMode (lambda (arg-0 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-getTag arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_RigCount arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 0 e-6)))))))) ((equal? sc1 1) (vector 1 (vector 1 ))) ((equal? sc1 2) (vector 1 (vector 2 )))(else (LibrariesC-45UtilsC-45Binary-corrupt "BindMode" ext-0))))))))))) -(define TTImpC-45TTImp-u--fromBuf_TTC_AltType (lambda (arg-0 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-getTag arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (vector 1 (vector 0 ))) ((equal? sc1 1) (vector 1 (vector 1 ))) ((equal? sc1 2) (let ((act-25 (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 2 e-6))))))))(else (LibrariesC-45UtilsC-45Binary-corrupt "AltType" ext-0))))))))))) -(define TTImpC-45TTImp-u--C-61C-61_Eq_WithFlag (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (let ((sc1 arg-1)) 0)))) -(define TTImpC-45TTImp-u--C-61C-61_Eq_DataOpt (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) (let ((e-1 (vector-ref sc1 1))) (PreludeC-45Types-u--C-61C-61_Eq_C-40ListC-32C-36aC-41 (cons (lambda (arg-2) (lambda (arg-3) (CoreC-45Name-u--C-61C-61_Eq_Name arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (CoreC-45Name-u--C-47C-61_Eq_Name arg-4 arg-5)))) e-0 e-1)))(else 1))))) ((1) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) 0)(else 1)))) ((2) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((2) 0)(else 1)))) ((3) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((3) 0)(else 1)))) ((4) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((4) 0)(else 1))))(else 1))))) -(define TTImpC-45TTImp-u--C-47C-61_Eq_WithFlag (lambda (arg-0 arg-1) (let ((sc0 (TTImpC-45TTImp-u--C-61C-61_Eq_WithFlag arg-0 arg-1))) (cond ((equal? sc0 0) 1) (else 0))))) -(define TTImpC-45TTImp-u--C-47C-61_Eq_DataOpt (lambda (arg-0 arg-1) (let ((sc0 (TTImpC-45TTImp-u--C-61C-61_Eq_DataOpt arg-0 arg-1))) (cond ((equal? sc0 0) 1) (else 0))))) -(define TTImpC-45TTImp-mapAltType (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (vector 2 (arg-0 e-0))))(else arg-1))))) -(define TTImpC-45TTImp-logRaw (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (CoreC-45Context-getSession arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((u--lvl (CoreC-45OptionsC-45Log-mkLogLevel (let ((sc1 e-5)) (let ((e-15 (vector-ref sc1 6))) e-15)) arg-1 arg-2))) (TTImpC-45TTImp-case--logRaw-7037 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 u--lvl (CoreC-45OptionsC-45Log-keepLog u--lvl (let ((sc1 e-5)) (let ((e-15 (vector-ref sc1 6))) e-15)) (let ((sc1 e-5)) (let ((e-6 (vector-ref sc1 7))) e-6))) ext-0))))))))) -(define TTImpC-45TTImp-lhsInCurrentNS (lambda (arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((8) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((TTImpC-45TTImp-lhsInCurrentNS arg-1 arg-2 e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 8 e-0 e-5 e-2)))))))))))) ((9) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((TTImpC-45TTImp-lhsInCurrentNS arg-1 arg-2 e-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 (vector 9 e-3 e-6 e-5)))))))))))) ((10) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (let ((e-9 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((TTImpC-45TTImp-lhsInCurrentNS arg-1 arg-2 e-7) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 10 e-6 e-5 e-8 e-9))))))))))))) ((11) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((TTImpC-45TTImp-lhsInCurrentNS arg-1 arg-2 e-11) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 11 e-10 e-5 e-12)))))))))))) ((0) (let ((e-13 (vector-ref sc0 1))) (let ((e-14 (vector-ref sc0 2))) (let ((sc1 e-14)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 arg-3)))(else (lambda (eta-0) (TTImpC-45TTImp-case--lhsInCurrentNS-2241 e-14 e-13 arg-2 arg-1 (DataC-45List-lookup (cons (lambda (arg-4) (lambda (arg-5) (CoreC-45Name-u--C-61C-61_Eq_Name arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (CoreC-45Name-u--C-47C-61_Eq_Name arg-4 arg-5)))) e-14 arg-2) eta-0))))))))(else (lambda (eta-0) (vector 1 arg-3))))))) -(define TTImpC-45TTImp-isTotalityReq (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((7) 0)(else 1))))) -(define TTImpC-45TTImp-isIPrimVal (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((28) (let ((e-1 (vector-ref sc0 2))) (vector 1 e-1)))(else (vector 0 )))))) -(define TTImpC-45TTImp-implicitsAs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((u--implicits (TTImpC-45TTImp-findIBinds arg-4))) (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-log arg-0 "declare.def.lhs.implicits" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))))))))))))))))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Found implicits: " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_String u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_String u--d u--x)))) u--implicits))) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (TTImpC-45TTImp-n--11606-2413-u--setAs arg-4 arg-3 arg-2 arg-1 arg-0 (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (vector 1 eta-1)) (PreludeC-45TypesC-45List-C-43C-43 arg-3 (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (vector 1 eta-1)) u--implicits))) '() arg-4 eta-0))))))))) -(define TTImpC-45TTImp-getFn (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((8) (let ((e-1 (vector-ref sc0 2))) (TTImpC-45TTImp-getFn e-1))) ((11) (let ((e-4 (vector-ref sc0 2))) (TTImpC-45TTImp-getFn e-4))) ((10) (let ((e-7 (vector-ref sc0 2))) (TTImpC-45TTImp-getFn e-7))) ((9) (let ((e-11 (vector-ref sc0 2))) (TTImpC-45TTImp-getFn e-11))) ((18) (let ((e-17 (vector-ref sc0 5))) (TTImpC-45TTImp-getFn e-17))) ((19) (let ((e-20 (vector-ref sc0 3))) (TTImpC-45TTImp-getFn e-20)))(else arg-0))))) -(define TTImpC-45TTImp-getFC (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) e-0)) ((1) (let ((e-2 (vector-ref sc0 1))) e-2)) ((2) (let ((e-8 (vector-ref sc0 1))) e-8)) ((3) (let ((e-14 (vector-ref sc0 1))) e-14)) ((4) (let ((e-21 (vector-ref sc0 1))) e-21)) ((5) (let ((e-25 (vector-ref sc0 1))) e-25)) ((6) (let ((e-28 (vector-ref sc0 1))) e-28)) ((7) (let ((e-33 (vector-ref sc0 1))) e-33)) ((8) (let ((e-36 (vector-ref sc0 1))) e-36)) ((10) (let ((e-39 (vector-ref sc0 1))) e-39)) ((9) (let ((e-43 (vector-ref sc0 1))) e-43)) ((11) (let ((e-46 (vector-ref sc0 1))) e-46)) ((12) (let ((e-49 (vector-ref sc0 1))) e-49)) ((13) (let ((e-51 (vector-ref sc0 1))) e-51)) ((14) (let ((e-54 (vector-ref sc0 1))) e-54)) ((15) (let ((e-57 (vector-ref sc0 1))) e-57)) ((28) (let ((e-59 (vector-ref sc0 1))) e-59)) ((30) (let ((e-61 (vector-ref sc0 1))) e-61)) ((31) (let ((e-63 (vector-ref sc0 1))) e-63)) ((29) (let ((e-66 (vector-ref sc0 1))) e-66)) ((17) (let ((e-67 (vector-ref sc0 1))) e-67)) ((16) (let ((e-69 (vector-ref sc0 1))) e-69)) ((19) (let ((e-72 (vector-ref sc0 1))) e-72)) ((20) (let ((e-75 (vector-ref sc0 1))) e-75)) ((21) (let ((e-78 (vector-ref sc0 1))) e-78)) ((22) (let ((e-80 (vector-ref sc0 1))) e-80)) ((23) (let ((e-82 (vector-ref sc0 1))) e-82)) ((24) (let ((e-84 (vector-ref sc0 1))) e-84)) ((25) (let ((e-86 (vector-ref sc0 1))) e-86)) ((26) (let ((e-88 (vector-ref sc0 1))) e-88)) ((27) (let ((e-90 (vector-ref sc0 1))) e-90)) ((18) (let ((e-92 (vector-ref sc0 1))) e-92)) ((32) (let ((e-97 (vector-ref sc0 1))) e-97)) (else (let ((e-99 (vector-ref sc0 1))) e-99)))))) -(define TTImpC-45TTImp-gapply (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (if (null? sc0) arg-0 (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (TTImpC-45TTImp-gapply (PreludeC-45Basics-uncurry (lambda (eta-0) (lambda (eta-1) (TTImpC-45TTImp-n--12993-3713-u--app e-2 e-3 arg-0 arg-0 eta-0 eta-1))) e-2) e-3))))))) -(define TTImpC-45TTImp-findImplicits (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((1) (let ((e-52 (vector-ref sc1 1))) (let ((sc2 e-52)) (case (vector-ref sc2 0) ((1) (let ((e-53 (vector-ref sc2 1))) (cons e-53 (PreludeC-45TypesC-45List-C-43C-43 (TTImpC-45TTImp-findImplicits e-4) (TTImpC-45TTImp-findImplicits e-5)))))(else (PreludeC-45TypesC-45List-C-43C-43 (TTImpC-45TTImp-findImplicits e-4) (TTImpC-45TTImp-findImplicits e-5)))))))(else (PreludeC-45TypesC-45List-C-43C-43 (TTImpC-45TTImp-findImplicits e-4) (TTImpC-45TTImp-findImplicits e-5))))))))) ((2) (let ((e-10 (vector-ref sc0 5))) (let ((e-11 (vector-ref sc0 6))) (PreludeC-45TypesC-45List-C-43C-43 (TTImpC-45TTImp-findImplicits e-10) (TTImpC-45TTImp-findImplicits e-11))))) ((8) (let ((e-13 (vector-ref sc0 2))) (let ((e-14 (vector-ref sc0 3))) (PreludeC-45TypesC-45List-C-43C-43 (TTImpC-45TTImp-findImplicits e-13) (TTImpC-45TTImp-findImplicits e-14))))) ((9) (let ((e-16 (vector-ref sc0 2))) (let ((e-17 (vector-ref sc0 3))) (PreludeC-45TypesC-45List-C-43C-43 (TTImpC-45TTImp-findImplicits e-16) (TTImpC-45TTImp-findImplicits e-17))))) ((10) (let ((e-19 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 4))) (PreludeC-45TypesC-45List-C-43C-43 (TTImpC-45TTImp-findImplicits e-19) (TTImpC-45TTImp-findImplicits e-21))))) ((11) (let ((e-23 (vector-ref sc0 2))) (let ((e-24 (vector-ref sc0 3))) (PreludeC-45TypesC-45List-C-43C-43 (TTImpC-45TTImp-findImplicits e-23) (TTImpC-45TTImp-findImplicits e-24))))) ((18) (let ((e-29 (vector-ref sc0 5))) (TTImpC-45TTImp-findImplicits e-29))) ((19) (let ((e-32 (vector-ref sc0 3))) (TTImpC-45TTImp-findImplicits e-32))) ((13) (let ((e-35 (vector-ref sc0 3))) (PreludeC-45Interfaces-concatMap (cons (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-2 arg-3))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) (lambda (eta-0) (TTImpC-45TTImp-findImplicits eta-0)) e-35))) ((20) (let ((e-38 (vector-ref sc0 3))) (TTImpC-45TTImp-findImplicits e-38))) ((21) (let ((e-40 (vector-ref sc0 2))) (TTImpC-45TTImp-findImplicits e-40))) ((22) (let ((e-42 (vector-ref sc0 2))) (TTImpC-45TTImp-findImplicits e-42))) ((23) (let ((e-44 (vector-ref sc0 2))) (TTImpC-45TTImp-findImplicits e-44))) ((26) (let ((e-46 (vector-ref sc0 2))) (TTImpC-45TTImp-findImplicits e-46))) ((27) (let ((e-48 (vector-ref sc0 2))) (TTImpC-45TTImp-findImplicits e-48))) ((17) (let ((e-50 (vector-ref sc0 2))) (cons e-50 '())))(else '()))))) -(define TTImpC-45TTImp-findIBinds (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (PreludeC-45TypesC-45List-C-43C-43 (TTImpC-45TTImp-findIBinds e-4) (TTImpC-45TTImp-findIBinds e-5))))) ((2) (let ((e-10 (vector-ref sc0 5))) (let ((e-11 (vector-ref sc0 6))) (PreludeC-45TypesC-45List-C-43C-43 (TTImpC-45TTImp-findIBinds e-10) (TTImpC-45TTImp-findIBinds e-11))))) ((8) (let ((e-13 (vector-ref sc0 2))) (let ((e-14 (vector-ref sc0 3))) (PreludeC-45TypesC-45List-C-43C-43 (TTImpC-45TTImp-findIBinds e-13) (TTImpC-45TTImp-findIBinds e-14))))) ((9) (let ((e-16 (vector-ref sc0 2))) (let ((e-17 (vector-ref sc0 3))) (PreludeC-45TypesC-45List-C-43C-43 (TTImpC-45TTImp-findIBinds e-16) (TTImpC-45TTImp-findIBinds e-17))))) ((10) (let ((e-19 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 4))) (PreludeC-45TypesC-45List-C-43C-43 (TTImpC-45TTImp-findIBinds e-19) (TTImpC-45TTImp-findIBinds e-21))))) ((11) (let ((e-23 (vector-ref sc0 2))) (let ((e-24 (vector-ref sc0 3))) (PreludeC-45TypesC-45List-C-43C-43 (TTImpC-45TTImp-findIBinds e-23) (TTImpC-45TTImp-findIBinds e-24))))) ((18) (let ((e-28 (vector-ref sc0 4))) (let ((e-29 (vector-ref sc0 5))) (let ((sc1 e-28)) (case (vector-ref sc1 0) ((1) (let ((e-54 (vector-ref sc1 1))) (cons e-54 (TTImpC-45TTImp-findIBinds e-29))))(else (TTImpC-45TTImp-findIBinds e-29))))))) ((19) (let ((e-32 (vector-ref sc0 3))) (TTImpC-45TTImp-findIBinds e-32))) ((13) (let ((e-35 (vector-ref sc0 3))) (PreludeC-45Interfaces-concatMap (cons (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-2 arg-3))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) (lambda (eta-0) (TTImpC-45TTImp-findIBinds eta-0)) e-35))) ((20) (let ((e-38 (vector-ref sc0 3))) (TTImpC-45TTImp-findIBinds e-38))) ((21) (let ((e-40 (vector-ref sc0 2))) (TTImpC-45TTImp-findIBinds e-40))) ((22) (let ((e-42 (vector-ref sc0 2))) (TTImpC-45TTImp-findIBinds e-42))) ((23) (let ((e-44 (vector-ref sc0 2))) (TTImpC-45TTImp-findIBinds e-44))) ((26) (let ((e-46 (vector-ref sc0 2))) (TTImpC-45TTImp-findIBinds e-46))) ((27) (let ((e-48 (vector-ref sc0 2))) (TTImpC-45TTImp-findIBinds e-48))) ((16) (let ((e-51 (vector-ref sc0 3))) (TTImpC-45TTImp-findIBinds e-51))) ((17) (let ((e-53 (vector-ref sc0 2))) (cons e-53 '())))(else '()))))) -(define TTImpC-45TTImp-definedInBlock (lambda (arg-0 arg-1) (PreludeC-45Interfaces-concatMap (cons (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-2 arg-3))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) (lambda (eta-0) (TTImpC-45TTImp-n--12558-3284-u--defName arg-1 arg-0 arg-0 eta-0)) arg-1))) -(define TTImpC-45TTImp-apply (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (if (null? sc0) arg-0 (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (TTImpC-45TTImp-apply (vector 8 (TTImpC-45TTImp-getFC arg-0) arg-0 e-2) e-3))))))) -(define CoreC-45Value-case--ntCon-3247 (lambda (arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (vector 8 arg-3 e-1))) (else (vector 3 arg-3 arg-2 arg-1 0 '())))))) -(define CoreC-45Value-case--tcOnly-3148 (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (vector 0 e-0 e-1 e-2 e-3 e-4 0 e-6 e-7))))))))))) -(define CoreC-45Value-u--show_Show_C-40NHeadC-32C-36freeC-41 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-3 (vector-ref sc0 2))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name (CoreC-45TT-nameAt arg-0 e-3)) (PreludeC-45TypesC-45String-C-43C-43 "[" (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Nat e-3) "]"))))) ((1) (let ((e-7 (vector-ref sc0 2))) (CoreC-45Name-u--show_Show_Name e-7))) (else (let ((e-9 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 3))) (PreludeC-45TypesC-45String-C-43C-43 "?" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-9) (PreludeC-45TypesC-45String-C-43C-43 "_[" (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Nat (PreludeC-45TypesC-45List-length e-11)) " closures]"))))))))))) -(define CoreC-45Value-u--show_Show_C-40NFC-32C-36freeC-41 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (let ((e-50 (vector-ref sc1 2))) (let ((e-51 (vector-ref sc1 3))) (let ((e-52 (vector-ref sc1 4))) (PreludeC-45TypesC-45String-C-43C-43 "\\" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-withPiInfo (cons (lambda (u--x) (CoreC-45Value-u--show_Show_C-40NFC-32C-36freeC-41 arg-0 u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Value-u--showPrec_Show_C-40NFC-32C-36freeC-41 arg-0 u--d u--x)))) e-51 (PreludeC-45TypesC-45String-C-43C-43 (Algebra-showCount e-50) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-2) (PreludeC-45TypesC-45String-C-43C-43 " : " (CoreC-45Value-u--show_Show_C-40NFC-32C-36freeC-41 arg-0 e-52))))) " => [closure]")))))) ((1) (let ((e-55 (vector-ref sc1 2))) (let ((e-56 (vector-ref sc1 3))) (let ((e-57 (vector-ref sc1 4))) (PreludeC-45TypesC-45String-C-43C-43 "let " (PreludeC-45TypesC-45String-C-43C-43 (Algebra-showCount e-55) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-2) (PreludeC-45TypesC-45String-C-43C-43 " : " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Value-u--show_Show_C-40NFC-32C-36freeC-41 arg-0 e-57) (PreludeC-45TypesC-45String-C-43C-43 " = " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Value-u--show_Show_C-40NFC-32C-36freeC-41 arg-0 e-56) " in [closure]"))))))))))) ((2) (let ((e-60 (vector-ref sc1 2))) (let ((e-61 (vector-ref sc1 3))) (let ((e-62 (vector-ref sc1 4))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-withPiInfo (cons (lambda (u--x) (CoreC-45Value-u--show_Show_C-40NFC-32C-36freeC-41 arg-0 u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Value-u--showPrec_Show_C-40NFC-32C-36freeC-41 arg-0 u--d u--x)))) e-61 (PreludeC-45TypesC-45String-C-43C-43 (Algebra-showCount e-60) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-2) (PreludeC-45TypesC-45String-C-43C-43 " : " (CoreC-45Value-u--show_Show_C-40NFC-32C-36freeC-41 arg-0 e-62))))) " -> [closure]"))))) ((3) (let ((e-65 (vector-ref sc1 2))) (let ((e-66 (vector-ref sc1 3))) (let ((e-67 (vector-ref sc1 4))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-withPiInfo (cons (lambda (u--x) (CoreC-45Value-u--show_Show_C-40NFC-32C-36freeC-41 arg-0 u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Value-u--showPrec_Show_C-40NFC-32C-36freeC-41 arg-0 u--d u--x)))) e-66 (PreludeC-45TypesC-45String-C-43C-43 "pat " (PreludeC-45TypesC-45String-C-43C-43 (Algebra-showCount e-65) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-2) (PreludeC-45TypesC-45String-C-43C-43 " : " (CoreC-45Value-u--show_Show_C-40NFC-32C-36freeC-41 arg-0 e-67)))))) " => [closure]"))))) ((4) (let ((e-70 (vector-ref sc1 2))) (let ((e-71 (vector-ref sc1 3))) (let ((e-72 (vector-ref sc1 4))) (PreludeC-45TypesC-45String-C-43C-43 "plet " (PreludeC-45TypesC-45String-C-43C-43 (Algebra-showCount e-70) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-2) (PreludeC-45TypesC-45String-C-43C-43 " : " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Value-u--show_Show_C-40NFC-32C-36freeC-41 arg-0 e-72) (PreludeC-45TypesC-45String-C-43C-43 " = " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Value-u--show_Show_C-40NFC-32C-36freeC-41 arg-0 e-71) " in [closure]"))))))))))) (else (let ((e-75 (vector-ref sc1 2))) (let ((e-76 (vector-ref sc1 3))) (PreludeC-45TypesC-45String-C-43C-43 "pty " (PreludeC-45TypesC-45String-C-43C-43 (Algebra-showCount e-75) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-2) (PreludeC-45TypesC-45String-C-43C-43 " : " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Value-u--show_Show_C-40NFC-32C-36freeC-41 arg-0 e-76) " => [closure]"))))))))))))) ((1) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Value-u--show_Show_C-40NHeadC-32C-36freeC-41 arg-0 e-7) (PreludeC-45TypesC-45String-C-43C-43 " [" (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Nat (PreludeC-45TypesC-45List-length e-8)) " closures]")))))) ((2) (let ((e-11 (vector-ref sc0 2))) (let ((e-14 (vector-ref sc0 5))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-11) (PreludeC-45TypesC-45String-C-43C-43 " [" (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Nat (PreludeC-45TypesC-45List-length e-14)) " closures]")))))) ((3) (let ((e-17 (vector-ref sc0 2))) (let ((e-20 (vector-ref sc0 5))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-17) (PreludeC-45TypesC-45String-C-43C-43 " [" (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Nat (PreludeC-45TypesC-45List-length e-20)) " closures]")))))) ((4) (let ((e-24 (vector-ref sc0 3))) (let ((e-25 (vector-ref sc0 4))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Value-u--show_Show_C-40NFC-32C-36freeC-41 arg-0 e-24) (PreludeC-45TypesC-45String-C-43C-43 "@" (CoreC-45Value-u--show_Show_C-40NFC-32C-36freeC-41 arg-0 e-25)))))) ((5) (let ((e-29 (vector-ref sc0 3))) (PreludeC-45TypesC-45String-C-43C-43 "%Delayed " (CoreC-45Value-u--show_Show_C-40NFC-32C-36freeC-41 arg-0 e-29)))) ((6) "%Delay [closure]") ((7) (let ((e-38 (vector-ref sc0 3))) (let ((e-39 (vector-ref sc0 4))) (PreludeC-45TypesC-45String-C-43C-43 "%Force " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Value-u--show_Show_C-40NFC-32C-36freeC-41 arg-0 e-38) (PreludeC-45TypesC-45String-C-43C-43 " [" (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Nat (PreludeC-45TypesC-45List-length e-39)) " closures]"))))))) ((8) (let ((e-42 (vector-ref sc0 2))) (CoreC-45TT-u--show_Show_Constant e-42))) ((9) "[__]") (else "Type"))))) -(define CoreC-45Value-u--showPrec_Show_C-40NFC-32C-36freeC-41 (lambda (arg-0 arg-1 arg-2) (CoreC-45Value-u--show_Show_C-40NFC-32C-36freeC-41 arg-0 arg-2))) -(define CoreC-45Value-withHoles (lambda () (vector 0 0 0 1 (LibrariesC-45DataC-45IntMap-empty) 1 1 (vector 0 ) '()))) -(define CoreC-45Value-withArgHoles (lambda () (vector 0 1 0 1 (LibrariesC-45DataC-45IntMap-empty) 1 1 (vector 0 ) '()))) -(define CoreC-45Value-withAll (lambda () (vector 0 1 1 0 (LibrariesC-45DataC-45IntMap-empty) 0 1 (vector 0 ) '()))) -(define CoreC-45Value-tcOnly (lambda () (CoreC-45Value-case--tcOnly-3148 (CoreC-45Value-withArgHoles)))) -(define CoreC-45Value-ntCon (lambda (arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (cond ((equal? sc1 "Type") (let ((sc2 arg-4)) (cond ((equal? sc2 0) (let ((sc3 arg-5)) (if (null? sc3) (vector 10 arg-1) (let ((sc4 arg-4)) (cond ((equal? sc4 0) (let ((sc5 arg-5)) (if (null? sc5) (CoreC-45Value-case--ntCon-3247 arg-3 arg-2 arg-1 (CoreC-45TT-isConstantType arg-2)) (vector 3 arg-1 arg-2 arg-3 arg-4 arg-5))))(else (vector 3 arg-1 arg-2 arg-3 arg-4 arg-5)))))))(else (let ((sc2 arg-4)) (cond ((equal? sc2 0) (let ((sc3 arg-5)) (if (null? sc3) (CoreC-45Value-case--ntCon-3247 arg-3 arg-2 arg-1 (CoreC-45TT-isConstantType arg-2)) (vector 3 arg-1 arg-2 arg-3 arg-4 arg-5))))(else (vector 3 arg-1 arg-2 arg-3 arg-4 arg-5))))))))(else (let ((sc1 arg-4)) (cond ((equal? sc1 0) (let ((sc2 arg-5)) (if (null? sc2) (CoreC-45Value-case--ntCon-3247 arg-3 arg-2 arg-1 (CoreC-45TT-isConstantType arg-2)) (vector 3 arg-1 arg-2 arg-3 arg-4 arg-5))))(else (vector 3 arg-1 arg-2 arg-3 arg-4 arg-5)))))))))(else (let ((sc0 arg-4)) (cond ((equal? sc0 0) (let ((sc1 arg-5)) (if (null? sc1) (CoreC-45Value-case--ntCon-3247 arg-3 arg-2 arg-1 (CoreC-45TT-isConstantType arg-2)) (vector 3 arg-1 arg-2 arg-3 arg-4 arg-5))))(else (vector 3 arg-1 arg-2 arg-3 arg-4 arg-5))))))))) -(define CoreC-45Value-getLoc (lambda (arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) e-1)) ((1) (let ((e-6 (vector-ref sc0 1))) e-6)) ((2) (let ((e-10 (vector-ref sc0 1))) e-10)) ((3) (let ((e-16 (vector-ref sc0 1))) e-16)) ((4) (let ((e-22 (vector-ref sc0 1))) e-22)) ((5) (let ((e-27 (vector-ref sc0 1))) e-27)) ((6) (let ((e-31 (vector-ref sc0 1))) e-31)) ((7) (let ((e-36 (vector-ref sc0 1))) e-36)) ((8) (let ((e-41 (vector-ref sc0 1))) e-41)) ((9) (let ((e-44 (vector-ref sc0 1))) e-44)) (else (let ((e-47 (vector-ref sc0 1))) e-47)))))) -(define CoreC-45Value-defaultOpts (lambda () (vector 0 1 1 0 (LibrariesC-45DataC-45IntMap-empty) 1 1 (vector 0 ) '()))) -(define LibrariesC-45DataC-45IntMap-case--delete-2656 (lambda (arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (cons (+ 1 arg-1) e-2))) (else (let ((e-5 (vector-ref sc0 1))) (cons arg-1 e-5))))))) -(define LibrariesC-45DataC-45IntMap-case--delete-2619 (lambda (arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (cons 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) '()))))))) -(define LibrariesC-45DataC-45IntMap-case--insert-2534 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (cons arg-1 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (cons (+ 1 arg-1) e-5))))))) -(define LibrariesC-45DataC-45IntMap-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32treeDelete-2391 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 (vector 2 arg-6 arg-5 arg-4 arg-3 e-2)))) (else (let ((e-5 (vector-ref sc0 1))) (vector 0 (LibrariesC-45DataC-45IntMap-merge3 arg-6 arg-5 arg-4 arg-3 e-5)))))))) -(define LibrariesC-45DataC-45IntMap-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32treeDelete-2317 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 (vector 2 arg-6 arg-5 e-2 arg-3 arg-2)))) (else (let ((e-5 (vector-ref sc0 1))) (vector 0 (LibrariesC-45DataC-45IntMap-merge2 arg-6 arg-5 e-5 arg-3 arg-2)))))))) -(define LibrariesC-45DataC-45IntMap-case--caseC-32blockC-32inC-32treeDelete-2293 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (cond ((equal? sc0 0) (LibrariesC-45DataC-45IntMap-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32treeDelete-2317 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (LibrariesC-45DataC-45IntMap-treeDelete (+ 1 arg-1) arg-7 arg-4))) (else (LibrariesC-45DataC-45IntMap-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32treeDelete-2391 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (LibrariesC-45DataC-45IntMap-treeDelete (+ 1 arg-1) arg-7 arg-2))))))) -(define LibrariesC-45DataC-45IntMap-case--caseC-32blockC-32inC-32treeDelete-2219 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 (vector 2 e-2 arg-5 arg-4 arg-3 arg-2)))) (else (let ((e-5 (vector-ref sc0 1))) (vector 0 (LibrariesC-45DataC-45IntMap-merge1 e-5 arg-5 arg-4 arg-3 arg-2)))))))) -(define LibrariesC-45DataC-45IntMap-case--treeDelete-2195 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (cond ((equal? sc0 0) (LibrariesC-45DataC-45IntMap-case--caseC-32blockC-32inC-32treeDelete-2219 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (LibrariesC-45DataC-45IntMap-treeDelete (+ 1 arg-1) arg-7 arg-6))) (else (LibrariesC-45DataC-45IntMap-case--caseC-32blockC-32inC-32treeDelete-2293 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-7 arg-3))))))) -(define LibrariesC-45DataC-45IntMap-case--caseC-32blockC-32inC-32treeDelete-2099 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 (vector 1 arg-4 arg-3 e-2)))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((e-4 (vector-ref sc1 3))) (vector 1 (vector 2 e-2 e-3 e-4 arg-3 e-5)))))) (else (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((e-9 (vector-ref sc1 3))) (let ((e-10 (vector-ref sc1 4))) (let ((e-11 (vector-ref sc1 5))) (vector 0 (LibrariesC-45DataC-45IntMap-branch4 e-7 e-8 e-9 e-10 e-11 arg-3 e-5)))))))))))))))) -(define LibrariesC-45DataC-45IntMap-case--caseC-32blockC-32inC-32treeDelete-1999 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 (vector 1 e-2 arg-3 arg-2)))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((e-4 (vector-ref sc1 3))) (vector 1 (vector 2 e-5 arg-3 e-2 e-3 e-4)))))) (else (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((e-9 (vector-ref sc1 3))) (let ((e-10 (vector-ref sc1 4))) (let ((e-11 (vector-ref sc1 5))) (vector 0 (LibrariesC-45DataC-45IntMap-branch4 e-5 arg-3 e-7 e-8 e-9 e-10 e-11)))))))))))))))) -(define LibrariesC-45DataC-45IntMap-case--treeDelete-1979 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (LibrariesC-45DataC-45IntMap-case--caseC-32blockC-32inC-32treeDelete-1999 arg-1 arg-2 arg-3 arg-4 arg-5 (LibrariesC-45DataC-45IntMap-treeDelete (+ 1 arg-1) arg-5 arg-4))) (else (LibrariesC-45DataC-45IntMap-case--caseC-32blockC-32inC-32treeDelete-2099 arg-1 arg-2 arg-3 arg-4 arg-5 (LibrariesC-45DataC-45IntMap-treeDelete (+ 1 arg-1) arg-5 arg-2))))))) -(define LibrariesC-45DataC-45IntMap-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32treeDelete-1917 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 (vector 2 arg-5 arg-4 arg-3 arg-2 e-2)))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (vector 0 (vector 1 arg-5 arg-4 arg-3))))))))) -(define LibrariesC-45DataC-45IntMap-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32treeDelete-1849 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 (vector 2 arg-5 arg-4 e-2 arg-2 arg-1)))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (vector 0 (vector 1 arg-5 arg-4 arg-1))))))))) -(define LibrariesC-45DataC-45IntMap-case--caseC-32blockC-32inC-32treeDelete-1827 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (LibrariesC-45DataC-45IntMap-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32treeDelete-1849 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (LibrariesC-45DataC-45IntMap-treeDelete 0 arg-6 arg-3))) (else (LibrariesC-45DataC-45IntMap-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32treeDelete-1917 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (LibrariesC-45DataC-45IntMap-treeDelete 0 arg-6 arg-1))))))) -(define LibrariesC-45DataC-45IntMap-case--caseC-32blockC-32inC-32treeDelete-1759 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 (vector 2 e-2 arg-4 arg-3 arg-2 arg-1)))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (vector 0 (vector 1 arg-3 arg-2 arg-1))))))))) -(define LibrariesC-45DataC-45IntMap-case--treeDelete-1737 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (LibrariesC-45DataC-45IntMap-case--caseC-32blockC-32inC-32treeDelete-1759 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (LibrariesC-45DataC-45IntMap-treeDelete 0 arg-6 arg-5))) (else (LibrariesC-45DataC-45IntMap-case--caseC-32blockC-32inC-32treeDelete-1827 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-6 arg-2))))))) -(define LibrariesC-45DataC-45IntMap-case--caseC-32blockC-32inC-32treeDelete-1687 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 (vector 1 arg-3 arg-2 e-2)))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (vector 1 arg-3)))))))) -(define LibrariesC-45DataC-45IntMap-case--caseC-32blockC-32inC-32treeDelete-1633 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 (vector 1 e-2 arg-2 arg-1)))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (vector 1 arg-1)))))))) -(define LibrariesC-45DataC-45IntMap-case--treeDelete-1615 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (LibrariesC-45DataC-45IntMap-case--caseC-32blockC-32inC-32treeDelete-1633 arg-1 arg-2 arg-3 arg-4 (LibrariesC-45DataC-45IntMap-treeDelete 0 arg-4 arg-3))) (else (LibrariesC-45DataC-45IntMap-case--caseC-32blockC-32inC-32treeDelete-1687 arg-1 arg-2 arg-3 arg-4 (LibrariesC-45DataC-45IntMap-treeDelete 0 arg-4 arg-1))))))) -(define LibrariesC-45DataC-45IntMap-case--treeDelete-1567 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (vector 1 (vector 0 ))) (else (vector 0 (vector 0 arg-2 arg-1))))))) -(define LibrariesC-45DataC-45IntMap-case--treeInsert-1498 (lambda (arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-8 (car sc1))) (let ((e-9 (cdr sc1))) (let ((sc2 e-9)) (let ((e-12 (car sc2))) (let ((e-13 (cdr sc2))) (vector 1 (vector 1 e-8 e-12 e-13)))))))))))))) -(define LibrariesC-45DataC-45IntMap-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32treeInsertC-39-1401 (lambda (arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 (vector 2 arg-6 arg-5 arg-4 arg-3 e-2)))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-8 (car sc1))) (let ((e-9 (cdr sc1))) (let ((sc2 e-9)) (let ((e-12 (car sc2))) (let ((e-13 (cdr sc2))) (vector 1 (cons (vector 1 arg-6 arg-5 arg-4) (cons arg-3 (vector 1 e-8 e-12 e-13)))))))))))))))) -(define LibrariesC-45DataC-45IntMap-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32treeInsertC-39-1290 (lambda (arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 (vector 2 arg-6 arg-5 e-2 arg-3 arg-2)))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-8 (car sc1))) (let ((e-9 (cdr sc1))) (let ((sc2 e-9)) (let ((e-12 (car sc2))) (let ((e-13 (cdr sc2))) (vector 1 (cons (vector 1 arg-6 arg-5 e-8) (cons e-12 (vector 1 e-13 arg-3 arg-2)))))))))))))))) -(define LibrariesC-45DataC-45IntMap-case--caseC-32blockC-32inC-32treeInsertC-39-1259 (lambda (arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (LibrariesC-45DataC-45IntMap-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32treeInsertC-39-1290 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-9 (LibrariesC-45DataC-45IntMap-treeInsertC-39 arg-7 arg-9 arg-4))) (else (LibrariesC-45DataC-45IntMap-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32treeInsertC-39-1401 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-9 (LibrariesC-45DataC-45IntMap-treeInsertC-39 arg-7 arg-9 arg-2))))))) -(define LibrariesC-45DataC-45IntMap-case--caseC-32blockC-32inC-32treeInsertC-39-1149 (lambda (arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 (vector 2 e-2 arg-5 arg-4 arg-3 arg-2)))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-8 (car sc1))) (let ((e-9 (cdr sc1))) (let ((sc2 e-9)) (let ((e-12 (car sc2))) (let ((e-13 (cdr sc2))) (vector 1 (cons (vector 1 e-8 e-12 e-13) (cons arg-5 (vector 1 arg-4 arg-3 arg-2)))))))))))))))) -(define LibrariesC-45DataC-45IntMap-case--treeInsertC-39-1118 (lambda (arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (LibrariesC-45DataC-45IntMap-case--caseC-32blockC-32inC-32treeInsertC-39-1149 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-2 (LibrariesC-45DataC-45IntMap-treeInsertC-39 arg-8 arg-2 arg-7))) (else (LibrariesC-45DataC-45IntMap-case--caseC-32blockC-32inC-32treeInsertC-39-1259 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-2 (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-8 arg-4))))))) -(define LibrariesC-45DataC-45IntMap-case--caseC-32blockC-32inC-32treeInsertC-39-1040 (lambda (arg-2 arg-3 arg-4 arg-5 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 (vector 1 arg-4 arg-3 e-2)))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-8 (car sc1))) (let ((e-9 (cdr sc1))) (let ((sc2 e-9)) (let ((e-12 (car sc2))) (let ((e-13 (cdr sc2))) (vector 0 (vector 2 arg-4 arg-3 e-8 e-12 e-13)))))))))))))) -(define LibrariesC-45DataC-45IntMap-case--caseC-32blockC-32inC-32treeInsertC-39-951 (lambda (arg-2 arg-3 arg-4 arg-5 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 (vector 1 e-2 arg-3 arg-2)))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-8 (car sc1))) (let ((e-9 (cdr sc1))) (let ((sc2 e-9)) (let ((e-12 (car sc2))) (let ((e-13 (cdr sc2))) (vector 0 (vector 2 e-8 e-12 e-13 arg-3 arg-2)))))))))))))) -(define LibrariesC-45DataC-45IntMap-case--treeInsertC-39-924 (lambda (arg-2 arg-3 arg-4 arg-5 arg-6 arg-8) (let ((sc0 arg-8)) (cond ((equal? sc0 0) (LibrariesC-45DataC-45IntMap-case--caseC-32blockC-32inC-32treeInsertC-39-951 arg-3 arg-4 arg-5 arg-6 arg-2 (LibrariesC-45DataC-45IntMap-treeInsertC-39 arg-6 arg-2 arg-5))) (else (LibrariesC-45DataC-45IntMap-case--caseC-32blockC-32inC-32treeInsertC-39-1040 arg-3 arg-4 arg-5 arg-6 arg-2 (LibrariesC-45DataC-45IntMap-treeInsertC-39 arg-6 arg-2 arg-3))))))) -(define LibrariesC-45DataC-45IntMap-case--treeInsertC-39-822 (lambda (arg-1 arg-2 arg-3 arg-4 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (vector 1 (cons (vector 0 arg-4 arg-1) (cons arg-4 (vector 0 arg-3 arg-2))))) ((equal? sc0 1) (vector 0 (vector 0 arg-4 arg-1))) (else (vector 1 (cons (vector 0 arg-3 arg-2) (cons arg-3 (vector 0 arg-4 arg-1))))))))) -(define LibrariesC-45DataC-45IntMap-case--caseC-32blockC-32inC-32treeLookup-761 (lambda (arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-9) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (LibrariesC-45DataC-45IntMap-treeLookup arg-7 arg-4)) (else (LibrariesC-45DataC-45IntMap-treeLookup arg-7 arg-2)))))) -(define LibrariesC-45DataC-45IntMap-case--treeLookup-714 (lambda (arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-9) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (LibrariesC-45DataC-45IntMap-treeLookup arg-7 arg-6)) (else (LibrariesC-45DataC-45IntMap-case--caseC-32blockC-32inC-32treeLookup-761 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-7 arg-3))))))) -(define LibrariesC-45DataC-45IntMap-case--treeLookup-666 (lambda (arg-2 arg-3 arg-4 arg-5 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (LibrariesC-45DataC-45IntMap-treeLookup arg-5 arg-4)) (else (LibrariesC-45DataC-45IntMap-treeLookup arg-5 arg-2)))))) -(define LibrariesC-45DataC-45IntMap-case--treeLookup-623 (lambda (arg-1 arg-2 arg-3 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (vector 1 arg-1)) (else (vector 0 )))))) -(define LibrariesC-45DataC-45IntMap-n--4561-2447-u--treeToListC-39 (lambda (arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (cons (cons e-1 e-2) arg-3)))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 3))) (LibrariesC-45DataC-45IntMap-n--4561-2447-u--treeToListC-39 (LibrariesC-45DataC-45IntMap-n--4561-2447-u--treeToListC-39 arg-3 e-7) e-5)))) (else (let ((e-10 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 5))) (LibrariesC-45DataC-45IntMap-n--4561-2447-u--treeToListC-39 (LibrariesC-45DataC-45IntMap-n--4561-2447-u--treeToListC-39 (LibrariesC-45DataC-45IntMap-n--4561-2447-u--treeToListC-39 arg-3 e-14) e-12) e-10))))))))) -(define LibrariesC-45DataC-45IntMap-treeToList (lambda (ext-0) (LibrariesC-45DataC-45IntMap-n--4561-2447-u--treeToListC-39 '() ext-0))) -(define LibrariesC-45DataC-45IntMap-treeLookup (lambda (arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (LibrariesC-45DataC-45IntMap-case--treeLookup-623 e-2 e-1 arg-2 (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 e-1))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (LibrariesC-45DataC-45IntMap-case--treeLookup-666 e-7 e-6 e-5 arg-2 (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-2 e-6)))))) (else (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (let ((e-13 (vector-ref sc0 4))) (let ((e-14 (vector-ref sc0 5))) (LibrariesC-45DataC-45IntMap-case--treeLookup-714 e-14 e-13 e-12 e-11 e-10 arg-2 (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-2 e-11)))))))))))) -(define LibrariesC-45DataC-45IntMap-treeInsertC-39 (lambda (arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (LibrariesC-45DataC-45IntMap-case--treeInsertC-39-822 arg-3 e-2 e-1 arg-2 (PreludeC-45EqOrd-u--compare_Ord_Int arg-2 e-1))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (LibrariesC-45DataC-45IntMap-case--treeInsertC-39-924 arg-3 e-7 e-6 e-5 arg-2 (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-2 e-6)))))) (else (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (let ((e-13 (vector-ref sc0 4))) (let ((e-14 (vector-ref sc0 5))) (LibrariesC-45DataC-45IntMap-case--treeInsertC-39-1118 arg-3 e-14 e-13 e-12 e-11 e-10 arg-2 (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-2 e-11)))))))))))) -(define LibrariesC-45DataC-45IntMap-treeInsert (lambda (arg-2 arg-3 arg-4) (LibrariesC-45DataC-45IntMap-case--treeInsert-1498 arg-3 arg-4 arg-2 (LibrariesC-45DataC-45IntMap-treeInsertC-39 arg-2 arg-3 arg-4)))) -(define LibrariesC-45DataC-45IntMap-treeDelete (lambda (arg-1 arg-2 arg-3) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (let ((sc1 arg-3)) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((u--n 0)) (LibrariesC-45DataC-45IntMap-case--treeDelete-1567 e-3 e-2 arg-2 u--n (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 e-2)))))))(else (let ((e-0 (- arg-1 1))) (let ((sc0 e-0)) (cond ((equal? sc0 0) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((1) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((e-9 (vector-ref sc1 3))) (LibrariesC-45DataC-45IntMap-case--treeDelete-1615 e-9 e-8 e-7 arg-2 (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-2 e-8)))))) (else (let ((e-12 (vector-ref sc1 1))) (let ((e-13 (vector-ref sc1 2))) (let ((e-14 (vector-ref sc1 3))) (let ((e-15 (vector-ref sc1 4))) (let ((e-16 (vector-ref sc1 5))) (LibrariesC-45DataC-45IntMap-case--treeDelete-1737 e-16 e-15 e-14 e-13 e-12 arg-2 (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-2 e-13)))))))))))(else (let ((e-4 (- e-0 1))) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-19 (vector-ref sc0 1))) (let ((e-20 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 3))) (LibrariesC-45DataC-45IntMap-case--treeDelete-1979 e-4 e-21 e-20 e-19 arg-2 (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-2 e-20)))))) (else (let ((e-24 (vector-ref sc0 1))) (let ((e-25 (vector-ref sc0 2))) (let ((e-26 (vector-ref sc0 3))) (let ((e-27 (vector-ref sc0 4))) (let ((e-28 (vector-ref sc0 5))) (LibrariesC-45DataC-45IntMap-case--treeDelete-2195 e-4 e-28 e-27 e-26 e-25 e-24 arg-2 (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-2 e-25)))))))))))))))))))) -(define LibrariesC-45DataC-45IntMap-toList (lambda (arg-1) (let ((sc0 arg-1)) (if (null? sc0) '() (let ((e-3 (cdr sc0))) (LibrariesC-45DataC-45IntMap-treeToList e-3)))))) -(define LibrariesC-45DataC-45IntMap-merge3 (lambda (arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((1) (let ((e-14 (vector-ref sc1 1))) (let ((e-15 (vector-ref sc1 2))) (let ((e-16 (vector-ref sc1 3))) (LibrariesC-45DataC-45IntMap-branch5 e-2 e-3 e-4 arg-3 e-14 e-15 e-16 arg-5 arg-6))))) (else (let ((e-19 (vector-ref sc1 1))) (let ((e-20 (vector-ref sc1 2))) (let ((e-21 (vector-ref sc1 3))) (let ((e-22 (vector-ref sc1 4))) (let ((e-23 (vector-ref sc1 5))) (LibrariesC-45DataC-45IntMap-branch6 e-2 e-3 e-4 arg-3 e-19 e-20 e-21 e-22 e-23 arg-5 arg-6))))))))))))) (else (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (let ((e-10 (vector-ref sc0 4))) (let ((e-11 (vector-ref sc0 5))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((1) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (LibrariesC-45DataC-45IntMap-branch6 e-7 e-8 e-9 e-10 e-11 arg-3 e-26 e-27 e-28 arg-5 arg-6))))) (else (let ((e-31 (vector-ref sc1 1))) (let ((e-32 (vector-ref sc1 2))) (let ((e-33 (vector-ref sc1 3))) (let ((e-34 (vector-ref sc1 4))) (let ((e-35 (vector-ref sc1 5))) (LibrariesC-45DataC-45IntMap-branch7 e-7 e-8 e-9 e-10 e-11 arg-3 e-31 e-32 e-33 e-34 e-35 arg-5 arg-6))))))))))))))))))) -(define LibrariesC-45DataC-45IntMap-merge2 (lambda (arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((1) (let ((e-14 (vector-ref sc1 1))) (let ((e-15 (vector-ref sc1 2))) (let ((e-16 (vector-ref sc1 3))) (LibrariesC-45DataC-45IntMap-branch5 e-2 e-3 e-4 arg-3 arg-4 arg-5 e-14 e-15 e-16))))) (else (let ((e-19 (vector-ref sc1 1))) (let ((e-20 (vector-ref sc1 2))) (let ((e-21 (vector-ref sc1 3))) (let ((e-22 (vector-ref sc1 4))) (let ((e-23 (vector-ref sc1 5))) (LibrariesC-45DataC-45IntMap-branch6 e-2 e-3 e-4 arg-3 arg-4 arg-5 e-19 e-20 e-21 e-22 e-23))))))))))))) (else (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (let ((e-10 (vector-ref sc0 4))) (let ((e-11 (vector-ref sc0 5))) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((1) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (LibrariesC-45DataC-45IntMap-branch6 e-7 e-8 e-9 e-10 e-11 arg-3 arg-4 arg-5 e-26 e-27 e-28))))) (else (let ((e-31 (vector-ref sc1 1))) (let ((e-32 (vector-ref sc1 2))) (let ((e-33 (vector-ref sc1 3))) (let ((e-34 (vector-ref sc1 4))) (let ((e-35 (vector-ref sc1 5))) (LibrariesC-45DataC-45IntMap-branch7 e-7 e-8 e-9 e-10 e-11 arg-3 arg-4 arg-5 e-31 e-32 e-33 e-34 e-35))))))))))))))))))) -(define LibrariesC-45DataC-45IntMap-merge1 (lambda (arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((1) (let ((e-14 (vector-ref sc1 1))) (let ((e-15 (vector-ref sc1 2))) (let ((e-16 (vector-ref sc1 3))) (LibrariesC-45DataC-45IntMap-branch5 arg-2 arg-3 e-2 e-3 e-4 arg-5 e-14 e-15 e-16))))) (else (let ((e-19 (vector-ref sc1 1))) (let ((e-20 (vector-ref sc1 2))) (let ((e-21 (vector-ref sc1 3))) (let ((e-22 (vector-ref sc1 4))) (let ((e-23 (vector-ref sc1 5))) (LibrariesC-45DataC-45IntMap-branch6 arg-2 arg-3 e-2 e-3 e-4 arg-5 e-19 e-20 e-21 e-22 e-23))))))))))))) (else (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (let ((e-10 (vector-ref sc0 4))) (let ((e-11 (vector-ref sc0 5))) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((1) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (LibrariesC-45DataC-45IntMap-branch6 arg-2 arg-3 e-7 e-8 e-9 e-10 e-11 arg-5 e-26 e-27 e-28))))) (else (let ((e-31 (vector-ref sc1 1))) (let ((e-32 (vector-ref sc1 2))) (let ((e-33 (vector-ref sc1 3))) (let ((e-34 (vector-ref sc1 4))) (let ((e-35 (vector-ref sc1 5))) (LibrariesC-45DataC-45IntMap-branch7 arg-2 arg-3 e-7 e-8 e-9 e-10 e-11 arg-5 e-31 e-32 e-33 e-34 e-35))))))))))))))))))) -(define LibrariesC-45DataC-45IntMap-lookup (lambda (arg-1 arg-2) (let ((sc0 arg-2)) (if (null? sc0) (vector 0 ) (let ((e-3 (cdr sc0))) (LibrariesC-45DataC-45IntMap-treeLookup arg-1 e-3)))))) -(define LibrariesC-45DataC-45IntMap-keys (lambda (ext-0) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-fst eta-0)) (LibrariesC-45DataC-45IntMap-toList ext-0)))) -(define LibrariesC-45DataC-45IntMap-insert (lambda (arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (if (null? sc0) (cons 0 (vector 0 arg-1 arg-2)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (LibrariesC-45DataC-45IntMap-case--insert-2534 e-2 arg-2 e-3 arg-1 (LibrariesC-45DataC-45IntMap-treeInsert arg-1 arg-2 e-3)))))))) -(define LibrariesC-45DataC-45IntMap-empty (lambda () '())) -(define LibrariesC-45DataC-45IntMap-delete (lambda (arg-1 arg-2) (let ((sc0 arg-2)) (if (null? sc0) '() (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (cond ((equal? sc1 0) (LibrariesC-45DataC-45IntMap-case--delete-2619 e-3 arg-1 (LibrariesC-45DataC-45IntMap-treeDelete 0 arg-1 e-3)))(else (let ((e-4 (- e-2 1))) (LibrariesC-45DataC-45IntMap-case--delete-2656 e-4 e-3 arg-1 (LibrariesC-45DataC-45IntMap-treeDelete (+ 1 e-4) arg-1 e-3)))))))))))) -(define LibrariesC-45DataC-45IntMap-branch7 (lambda (arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (vector 2 (vector 2 arg-2 arg-3 arg-4 arg-5 arg-6) arg-7 (vector 1 arg-8 arg-9 arg-10) arg-11 (vector 1 arg-12 arg-13 arg-14)))) -(define LibrariesC-45DataC-45IntMap-branch6 (lambda (arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (vector 2 (vector 1 arg-2 arg-3 arg-4) arg-5 (vector 1 arg-6 arg-7 arg-8) arg-9 (vector 1 arg-10 arg-11 arg-12)))) -(define LibrariesC-45DataC-45IntMap-branch5 (lambda (arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (vector 1 (vector 1 arg-2 arg-3 arg-4) arg-5 (vector 2 arg-6 arg-7 arg-8 arg-9 arg-10)))) -(define LibrariesC-45DataC-45IntMap-branch4 (lambda (arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (vector 1 (vector 1 arg-2 arg-3 arg-4) arg-5 (vector 1 arg-6 arg-7 arg-8)))) -(define CoreC-45Context-case--isEqualTy-16969 (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 1 1)) (else (let ((e-2 (vector-ref sc0 1))) (let ((act-24 (CoreC-45Context-getFullName arg-1 arg-0 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Context-getFullName arg-1 (let ((sc2 e-2)) (let ((e-0 (car sc2))) e-0)) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (CoreC-45Name-u--C-61C-61_Eq_Name e-5 e-6)))))))))))))))))) -(define CoreC-45Context-case--isPairType-16852 (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 1 1)) (else (let ((e-2 (vector-ref sc0 1))) (let ((act-24 (CoreC-45Context-getFullName arg-1 arg-0 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Context-getFullName arg-1 (let ((sc2 e-2)) (let ((e-0 (vector-ref sc2 1))) e-0)) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (CoreC-45Name-u--C-61C-61_Eq_Name e-5 e-6)))))))))))))))))) -(define CoreC-45Context-case--getDirectivesC-44getDir-13880 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (vector 1 arg-3)) (else (vector 0 )))))) -(define CoreC-45Context-case--addDirective-13779 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((act-24 ((PreludeC-45IO-putStrLn (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-0)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-0) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (let ((act-17 (arg-578 eta-0))) (let ((act-16 (arg-580 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (let ((act-24 (arg-876 eta-0))) ((arg-877 act-24) eta-0))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-0) (let ((act-51 (arg-879 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) (PreludeC-45TypesC-45String-C-43C-43 "Unknown code generator " arg-2)) ext-0))) (vector 1 act-24))) (else (let ((e-2 (vector-ref sc0 1))) (let ((act-24 (set-box! arg-0 (let ((sc1 arg-3)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (let ((e-26 (vector-ref sc1 27))) (let ((e-27 (vector-ref sc1 28))) (vector 0 e-0 e-1 e-28 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 (cons (cons e-2 arg-1) e-21) e-22 e-23 e-24 e-25 e-26 e-27))))))))))))))))))))))))))))))))) (vector 1 act-24)))))))) -(define CoreC-45Context-case--caseC-32blockC-32inC-32addTransform-13310 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 ext-0) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (let ((act-24 (set-box! arg-2 (let ((sc1 arg-3)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (let ((e-26 (vector-ref sc1 27))) (let ((e-27 (vector-ref sc1 28))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 (LibrariesC-45DataC-45NameMap-insert arg-5 (cons arg-6 '()) e-13) (cons (cons arg-7 arg-8) e-14) e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27))))))))))))))))))))))))))))))))) (vector 1 act-24))) (else (let ((e-2 (vector-ref sc0 1))) (let ((act-24 (set-box! arg-2 (let ((sc1 arg-3)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (let ((e-26 (vector-ref sc1 27))) (let ((e-27 (vector-ref sc1 28))) (vector 0 e-0 e-1 e-28 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 (LibrariesC-45DataC-45NameMap-insert arg-5 (cons arg-6 e-2) e-13) (cons (cons arg-7 arg-8) e-14) e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27))))))))))))))))))))))))))))))))) (vector 1 act-24)))))))) -(define CoreC-45Context-case--addTransform-13262 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((act-24 (CoreC-45Context-toResolvedNames arg-2 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) e-1 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Context-toResolvedNames arg-2 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Transform arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Transform arg-3812 arg-3813 eta-0))))) arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-2 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) e-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (CoreC-45Context-toFullNames arg-2 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Transform arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Transform arg-3812 arg-3813 eta-0))))) arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (CoreC-45Context-case--caseC-32blockC-32inC-32addTransform-13310 arg-0 arg-1 arg-2 arg-3 e-1 e-5 e-6 e-7 e-8 (LibrariesC-45DataC-45NameMap-lookup e-5 (let ((sc5 arg-3)) (let ((e-13 (vector-ref sc5 14))) e-13))) ext-0))))))))))))))))))))))) (else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-1 "LHS of a transformation must be a function application") ext-0)))))) -(define CoreC-45Context-case--addHintFor-12696 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) e-1)) (else '()))))) -(define CoreC-45Context-case--caseC-32blockC-32inC-32setExternal-12563 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((6) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((u--flC-39 (let ((sc1 e-4)) (let ((e-9 (car sc1))) (cons e-9 arg-0))))) (lambda (eta-0) (CoreC-45Context-updateDef arg-3 arg-1 (lambda (eta-1) (vector 1 (vector 6 e-0 e-1 e-2 e-3 u--flC-39 e-5 e-6 e-7))) eta-0))))))))))))(else (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-2 (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name (let ((sc0 arg-5)) (let ((e-1 (vector-ref sc0 2))) e-1))) " is not a type constructor [setDetermining]")) eta-0))))))) -(define CoreC-45Context-case--caseC-32blockC-32inC-32setUniqueSearch-12430 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((6) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((u--flC-39 (let ((sc1 e-4)) (let ((e-8 (cdr sc1))) (cons arg-0 e-8))))) (lambda (eta-0) (CoreC-45Context-updateDef arg-3 arg-1 (lambda (eta-1) (vector 1 (vector 6 e-0 e-1 e-2 e-3 u--flC-39 e-5 e-6 e-7))) eta-0))))))))))))(else (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-2 (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name (let ((sc0 arg-5)) (let ((e-1 (vector-ref sc0 2))) e-1))) " is not a type constructor [setDetermining]")) eta-0))))))) -(define CoreC-45Context-case--caseC-32blockC-32inC-32setDetags-12331 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((6) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (CoreC-45Context-updateDef arg-3 arg-1 (lambda (eta-0) (vector 1 (vector 6 e-0 e-1 e-2 e-3 e-4 e-5 e-6 arg-0))) ext-0)))))))))(else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-2 (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name (let ((sc0 arg-5)) (let ((e-1 (vector-ref sc0 2))) e-1))) " is not a type constructor [setDetermining]")) ext-0)))))) -(define CoreC-45Context-case--caseC-32blockC-32inC-32setDetermining-12223 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((6) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((act-24 ((CoreC-45Context-n--20615-12046-u--getPos arg-0 arg-1 arg-2 arg-3 0 arg-0 (let ((sc1 arg-5)) (let ((e-26 (vector-ref sc1 3))) e-26))) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-8 (vector-ref sc1 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc1 1))) (CoreC-45Context-updateDef arg-3 arg-1 (lambda (eta-0) (vector 1 (vector 6 e-0 e-1 e-2 e-8 e-4 e-5 e-6 e-7))) ext-0))))))))))))))(else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-2 (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name (let ((sc0 arg-5)) (let ((e-1 (vector-ref sc0 2))) e-1))) " is not a type constructor [setDetermining]")) ext-0)))))) -(define CoreC-45Context-case--setDeterminingC-44getPos-12072 (lambda (arg-0 arg-1 arg-2 arg-3 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((CoreC-45Context-n--20615-12046-u--getPos arg-0 arg-1 arg-2 arg-3 (PreludeC-45Types-u--C-43_Num_Nat (PreludeC-45Types-u--fromInteger_Num_Nat 1) arg-13) (DataC-45List-filter (lambda (arg-4) (CoreC-45Name-u--C-47C-61_Eq_Name arg-4 arg-10)) arg-12) arg-11) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (cons arg-13 e-5))))))))) (else (CoreC-45Context-n--20615-12046-u--getPos arg-0 arg-1 arg-2 arg-3 (PreludeC-45Types-u--C-43_Num_Nat (PreludeC-45Types-u--fromInteger_Num_Nat 1) arg-13) arg-12 arg-11)))))) -(define CoreC-45Context-case--caseC-32blockC-32inC-32setMutWith-11859 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((6) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (CoreC-45Context-updateDef arg-3 arg-1 (lambda (eta-0) (vector 1 (vector 6 e-0 e-1 e-2 e-3 e-4 arg-0 e-6 e-7))) ext-0)))))))))(else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-2 (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name (let ((sc0 arg-5)) (let ((e-1 (vector-ref sc0 2))) e-1))) " is not a type constructor [setMutWith]")) ext-0)))))) -(define CoreC-45Context-case--caseC-32blockC-32inC-32getSearchData-11511 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 ext-0) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (CoreC-45Core-filterM (lambda (u--x) (lambda (eta-0) (CoreC-45Context-n--19945-11419-u--notHidden arg-0 arg-1 arg-2 arg-3 u--x (let ((sc1 arg-4)) (let ((e-0 (vector-ref sc1 1))) e-0)) eta-0))) e-1 ext-0))) (else (vector 1 '())))))) -(define CoreC-45Context-case--caseC-32blockC-32inC-32updateDef-9379 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (vector 1 (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc1 eta-0)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (vector 1 (vector 0 )))))) (lambda (eta-0) (CoreC-45Context-addDef arg-2 arg-1 (let ((sc1 arg-4)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-21 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (vector 0 e-0 e-1 e-21 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-2 e-18 e-19 e-20)))))))))))))))))))))) eta-0)) ext-0))))))) -(define CoreC-45Context-case--caseC-32blockC-32inC-32addDef-9030 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (vector 1 (vector 0 ))) ((7) (vector 1 (vector 0 )))(else (CoreC-45Context-clearUserHole arg-2 (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1)) ext-0)))))) -(define CoreC-45Context-case--caseC-32blockC-32inC-32getUserHolesC-44isHole-8913 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (vector 1 0)) ((7) (vector 1 0))(else (vector 1 1)))))) -(define CoreC-45Context-case--caseC-32blockC-32inC-32aliasName-8628 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (CoreC-45Context-n--16777-8554-u--findAlias arg-0 arg-1 e-1))) (else (lambda (eta-0) (vector 1 arg-0))))))) -(define CoreC-45Context-case--aliasName-8614 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (CoreC-45Context-case--caseC-32blockC-32inC-32aliasName-8628 arg-0 arg-1 arg-2 e-1 (LibrariesC-45DataC-45StringMap-lookup e-1 (let ((sc1 arg-2)) (let ((e-0 (vector-ref sc1 1))) (let ((sc2 e-0)) (let ((e-36 (vector-ref sc2 4))) e-36)))))))) (else (lambda (eta-0) (vector 1 arg-0))))))) -(define CoreC-45Context-case--aliasNameC-44findAlias-8569 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 arg-4))) (else (CoreC-45Context-n--16777-8554-u--findAlias arg-0 arg-1 arg-5)))))) -(define CoreC-45Context-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32getSimilarNames-8300 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((act-24 ((LibrariesC-45TextC-45DistanceC-45Levenshtein-compute (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-0)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-0) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (let ((act-17 (arg-578 eta-0))) (let ((act-16 (arg-580 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (let ((act-24 (arg-876 eta-0))) ((arg-877 act-24) eta-0))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-0) (let ((act-51 (arg-879 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) arg-2 e-1) ext-0))) (PreludeC-45Interfaces-C-60C-36 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (PreludeC-45Types-u--map_Functor_Maybe eta-2 eta-3))))) act-24 (PreludeC-45Interfaces-guard (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (PreludeC-45Types-u--map_Functor_Maybe u--func arg-143))))) (lambda (u--a) (lambda (arg-577) (PreludeC-45Types-u--pure_Applicative_Maybe arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (PreludeC-45Types-u--C-60C-42C-62_Applicative_Maybe arg-578 arg-580)))))) (lambda (u--a) (PreludeC-45Types-u--empty_Alternative_Maybe)) (lambda (u--a) (lambda (arg-827) (lambda (arg-828) (PreludeC-45Types-u--C-60C-124C-62_Alternative_Maybe arg-827 arg-828))))) (PreludeC-45Types-u--C-60C-61_Ord_Nat act-24 arg-3))))))(else (vector 0 )))))) -(define CoreC-45Context-case--caseC-32blockC-32inC-32getSimilarNames-8269 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 '()))) (else (let ((u--threshold (PreludeC-45Types-u--max_Ord_Nat (PreludeC-45Types-u--fromInteger_Num_Nat 1) (DataC-45Nat-divNat (PreludeC-45TypesC-45String-length arg-2) (+ 1 (+ 1 (+ 1 0))))))) (let ((u--test (lambda (u--nm) (lambda (eta-0) (CoreC-45Context-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32getSimilarNames-8300 arg-0 arg-1 arg-2 u--threshold u--nm (CoreC-45Name-userNameRoot u--nm) eta-0))))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 ((LibrariesC-45DataC-45NameMap-mapMaybeM (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-1)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-1) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-1) (let ((act-17 (arg-578 eta-1))) (let ((act-16 (arg-580 eta-1))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-1) (let ((act-25 (arg-876 eta-1))) ((arg-877 act-25) eta-1))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-1) (let ((act-29 (arg-879 eta-1))) (act-29 eta-1)))))) u--test (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) (let ((sc3 e-0)) (let ((e-37 (vector-ref sc3 3))) e-37))))) eta-0))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((u--sorted (DataC-45List-sortBy (lambda (u--x) (lambda (u--y) (PreludeC-45Types-u--compare_Ord_Nat (Builtin-snd u--x) (Builtin-snd u--y)))) (LibrariesC-45DataC-45NameMap-toList e-6)))) (let ((u--roots (DataC-45List-mapMaybe (lambda (eta-1) (CoreC-45Context-n--16333-8145-u--showNames arg-0 arg-1 arg-0 arg-2 (Builtin-fst eta-1))) u--sorted))) (vector 1 (DataC-45List-nub (cons (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-61C-61_Eq_String arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_String arg-4 arg-5)))) u--roots)))))))))))))))))))))) -(define CoreC-45Context-case--getSimilarNames-8243 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 '()))) (else (let ((e-2 (vector-ref sc0 1))) (CoreC-45Context-case--caseC-32blockC-32inC-32getSimilarNames-8269 arg-0 arg-1 e-2 (PreludeC-45Types-u--C-60C-61_Ord_Nat (PreludeC-45TypesC-45String-length e-2) (PreludeC-45Types-u--fromInteger_Num_Nat 1))))))))) -(define CoreC-45Context-case--caseC-32blockC-32inC-32getSimilarNamesC-44showNames-8187 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (vector 0 ))(else (PreludeC-45Types-u--pure_Applicative_Maybe arg-6)))))) -(define CoreC-45Context-case--getSimilarNamesC-44showNames-8156 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (let ((u--full (CoreC-45Name-u--show_Show_Name arg-2))) (CoreC-45Context-case--caseC-32blockC-32inC-32getSimilarNamesC-44showNames-8187 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 u--full (PreludeC-45Basics-C-124C-124 (PreludeC-45EqOrd-u--C-61C-61_Eq_String arg-3 u--full) (lambda () (PreludeC-45EqOrd-u--C-61C-61_Eq_String (CoreC-45Name-u--show_Show_Name arg-4) u--full))))))(else (PreludeC-45Types-u--pure_Applicative_Maybe arg-5)))))) -(define CoreC-45Context-case--resolved-5013 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (vector 1 (vector 0 (vector 9 e-1) arg-3 arg-1 arg-6)))) (else (vector 1 (vector 0 arg-4 arg-3 arg-1 arg-6))))))) -(define CoreC-45Context-case--resolved-4179 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (vector 1 (vector 2 arg-4 arg-3 e-1 arg-6)))) (else (vector 1 (vector 2 arg-4 arg-3 arg-2 arg-6))))))) -(define CoreC-45Context-case--resolved-4129 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (vector 1 (vector 1 arg-3 arg-2 (vector 9 e-1))))) (else (vector 1 (vector 1 arg-3 arg-2 arg-1))))))) -(define CoreC-45Context-case--resolved-3880 (lambda (arg-0 arg-1 arg-2 ext-0) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (vector 1 (vector 9 e-1)))) (else (vector 1 arg-0)))))) -(define CoreC-45Context-case--getFnName-3776 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-3 (vector-ref sc0 3))) (vector 1 e-3)))(else (vector 0 )))))) -(define CoreC-45Context-case--commitCtxt-3594 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 arg-0)))(else (let ((e-0 (- arg-1 1))) (let ((sc0 e-0)) (cond ((equal? sc0 0) (let ((u--a (let ((sc1 arg-0)) (let ((e-4 (vector-ref sc1 5))) e-4)))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox u--a))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 ((CoreC-45Context-n--11606-3566-u--commitStaged arg-0 (LibrariesC-45DataC-45IntMap-toList (let ((sc2 arg-0)) (let ((e-6 (vector-ref sc2 7))) e-6))) e-5) eta-0))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (vector 1 (let ((sc3 arg-0)) (let ((e-13 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-2 (vector-ref sc3 3))) (let ((e-3 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (vector 0 e-13 e-1 e-2 e-3 e-4 0 (LibrariesC-45DataC-45IntMap-empty) e-7 e-8 e-9 e-10))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 (let ((sc0 arg-0)) (let ((e-11 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (vector 0 e-11 e-1 e-2 e-3 e-4 e-0 e-6 e-7 e-8 e-9 e-10))))))))))))))))))))))) -(define CoreC-45Context-case--caseC-32blockC-32inC-32lookupCtxtName-3501 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (CoreC-45Context-n--11133-3145-u--lookupPossibles arg-0 arg-1 '() e-1))) (else (lambda (eta-0) (vector 1 '()))))))) -(define CoreC-45Context-case--lookupCtxtName-3442 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((CoreC-45Context-lookupCtxtExactI arg-1 arg-0) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((sc3 e-1)) (let ((e-7 (car sc3))) (let ((e-6 (cdr sc3))) (vector 1 (cons (cons arg-1 (cons e-7 e-6)) '()))))))) (else (vector 1 '()))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (CoreC-45Context-case--caseC-32blockC-32inC-32lookupCtxtName-3501 arg-0 arg-1 e-2 (LibrariesC-45DataC-45StringMap-lookup e-2 (let ((sc1 arg-0)) (let ((e-3 (vector-ref sc1 4))) e-3)))))))))) -(define CoreC-45Context-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32lookupCtxtNameC-44lookupPossibles-3358 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (CoreC-45Context-n--11133-3145-u--lookupPossibles arg-0 arg-1 (cons (cons arg-3 (cons arg-2 arg-7)) arg-6) arg-5)) (else (CoreC-45Context-n--11133-3145-u--lookupPossibles arg-0 arg-1 arg-6 arg-5)))))) -(define CoreC-45Context-case--lookupCtxtNameC-44lookupPossibles-3304 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((CoreC-45Context-lookupCtxtExact (vector 9 arg-2) arg-0) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((_-0 (vector 1 e-1))) ((CoreC-45Context-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32lookupCtxtNameC-44lookupPossibles-3358 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-1 _-0 (PreludeC-45Basics-C-38C-38 (CoreC-45Name-matches arg-1 arg-4) (lambda () (let ((sc3 (PreludeC-45Types-elem (cons (lambda (arg-8) (lambda (arg-9) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-8 arg-9))) (lambda (arg-8) (lambda (arg-9) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-8 arg-9)))) arg-2 (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (CoreC-45Context-n--11133-3144-u--resn arg-0 arg-1 eta-1)) arg-6)))) (cond ((equal? sc3 0) 1) (else 0)))))) eta-0)))) (else ((CoreC-45Context-n--11133-3145-u--lookupPossibles arg-0 arg-1 arg-6 arg-5) eta-0)))))))))))(else (CoreC-45Context-n--11133-3145-u--lookupPossibles arg-0 arg-1 arg-6 arg-5)))))) -(define CoreC-45Context-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32lookupCtxtNameC-44lookupPossibles-3224 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (cond ((equal? sc0 0) (CoreC-45Context-n--11133-3145-u--lookupPossibles arg-0 arg-1 (cons (cons arg-3 (cons arg-2 arg-6)) arg-5) arg-4)) (else (CoreC-45Context-n--11133-3145-u--lookupPossibles arg-0 arg-1 arg-5 arg-4)))))) -(define CoreC-45Context-case--lookupCtxtNameC-44lookupPossibles-3174 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((CoreC-45Context-lookupCtxtExact (vector 9 arg-2) arg-0) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((_-0 (vector 1 e-1))) ((CoreC-45Context-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32lookupCtxtNameC-44lookupPossibles-3224 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-1 _-0 (PreludeC-45Basics-C-38C-38 (CoreC-45Name-matches arg-1 arg-3) (lambda () (let ((sc3 (PreludeC-45Types-elem (cons (lambda (arg-7) (lambda (arg-8) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-7 arg-8))) (lambda (arg-7) (lambda (arg-8) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-7 arg-8)))) arg-2 (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (CoreC-45Context-n--11133-3144-u--resn arg-0 arg-1 eta-1)) arg-5)))) (cond ((equal? sc3 0) 1) (else 0)))))) eta-0)))) (else ((CoreC-45Context-n--11133-3145-u--lookupPossibles arg-0 arg-1 arg-5 arg-4) eta-0)))))))))))(else (CoreC-45Context-n--11133-3145-u--lookupPossibles arg-0 arg-1 arg-5 arg-4)))))) -(define CoreC-45Context-case--lookupContextEntry-3120 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (CoreC-45Context-lookupContextEntry (vector 9 e-1) arg-0))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define CoreC-45Context-case--lookupContextEntry-3039 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 (cons arg-0 e-1)))))) (else (let ((u--a (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 5))) e-4)))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox u--a))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 ((DataC-45IOArray-readArray (cons (vector 0 (vector 0 (lambda (u--b) (lambda (a-0) (lambda (u--func) (lambda (arg-143) (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-1)))))) (lambda (a-0) (lambda (arg-577) (lambda (eta-1) arg-577))) (lambda (u--b) (lambda (a-0) (lambda (arg-578) (lambda (arg-580) (lambda (eta-1) (let ((act-17 (arg-578 eta-1))) (let ((act-16 (arg-580 eta-1))) (act-17 act-16))))))))) (lambda (u--b) (lambda (a-0) (lambda (arg-876) (lambda (arg-877) (lambda (eta-1) (let ((act-25 (arg-876 eta-1))) ((arg-877 act-25) eta-1))))))) (lambda (a-0) (lambda (arg-879) (lambda (eta-1) (let ((act-51 (arg-879 eta-1))) (act-51 eta-1)))))) (lambda (a-0) (lambda (arg-7803) arg-7803))) e-5 arg-0) eta-0))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (vector 1 (vector 1 (cons arg-0 e-1))))) (else (vector 1 (vector 0 )))))))))))))))))))))) -(define CoreC-45Context-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32lookupCtxtExact-2942 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (vector 1 (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-6 (cdr sc1))) (vector 1 (vector 1 e-6)))))))))) -(define CoreC-45Context-case--caseC-32blockC-32inC-32lookupCtxtExact-2859 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (vector 1 (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-6 (cdr sc1))) (vector 1 (vector 1 e-6)))))))))) -(define CoreC-45Context-case--lookupCtxtExact-2844 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (CoreC-45Context-decode arg-1 arg-0 0 e-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (CoreC-45Context-case--caseC-32blockC-32inC-32lookupCtxtExact-2859 arg-0 arg-1 e-1 e-5 (CoreC-45Context-returnDef (let ((sc2 arg-1)) (let ((e-9 (vector-ref sc2 10))) e-9)) arg-0 e-5) eta-0))))))))) (else (let ((u--a (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 5))) e-4)))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox u--a))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 ((DataC-45IOArray-readArray (cons (vector 0 (vector 0 (lambda (u--b) (lambda (a-0) (lambda (u--func) (lambda (arg-143) (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-1)))))) (lambda (a-0) (lambda (arg-577) (lambda (eta-1) arg-577))) (lambda (u--b) (lambda (a-0) (lambda (arg-578) (lambda (arg-580) (lambda (eta-1) (let ((act-17 (arg-578 eta-1))) (let ((act-16 (arg-580 eta-1))) (act-17 act-16))))))))) (lambda (u--b) (lambda (a-0) (lambda (arg-876) (lambda (arg-877) (lambda (eta-1) (let ((act-25 (arg-876 eta-1))) ((arg-877 act-25) eta-1))))))) (lambda (a-0) (lambda (arg-879) (lambda (eta-1) (let ((act-51 (arg-879 eta-1))) (act-51 eta-1)))))) (lambda (a-0) (lambda (arg-7803) arg-7803))) e-5 arg-0) eta-0))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((act-26 (CoreC-45Context-decode arg-1 arg-0 0 e-1 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (let ((_-0 (vector 1 e-1))) (CoreC-45Context-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32lookupCtxtExact-2942 arg-0 arg-1 u--a e-5 e-1 _-0 e-7 (CoreC-45Context-returnDef (let ((sc5 arg-1)) (let ((e-9 (vector-ref sc5 10))) e-9)) arg-0 e-7) eta-0))))))))) (else (vector 1 (vector 0 )))))))))))))))))))))) -(define CoreC-45Context-case--lookupCtxtExactI-2820 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (CoreC-45Context-lookupCtxtExactI (vector 9 e-1) arg-0))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define CoreC-45Context-case--lookupCtxtExactI-2741 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (CoreC-45Context-decode arg-1 arg-0 0 e-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (CoreC-45Context-returnDef (let ((sc2 arg-1)) (let ((e-9 (vector-ref sc2 10))) e-9)) arg-0 e-5)))))))))) (else (let ((u--a (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 5))) e-4)))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox u--a))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 ((DataC-45IOArray-readArray (cons (vector 0 (vector 0 (lambda (u--b) (lambda (a-0) (lambda (u--func) (lambda (arg-143) (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-1)))))) (lambda (a-0) (lambda (arg-577) (lambda (eta-1) arg-577))) (lambda (u--b) (lambda (a-0) (lambda (arg-578) (lambda (arg-580) (lambda (eta-1) (let ((act-17 (arg-578 eta-1))) (let ((act-16 (arg-580 eta-1))) (act-17 act-16))))))))) (lambda (u--b) (lambda (a-0) (lambda (arg-876) (lambda (arg-877) (lambda (eta-1) (let ((act-25 (arg-876 eta-1))) ((arg-877 act-25) eta-1))))))) (lambda (a-0) (lambda (arg-879) (lambda (eta-1) (let ((act-51 (arg-879 eta-1))) (act-51 eta-1)))))) (lambda (a-0) (lambda (arg-7803) arg-7803))) e-5 arg-0) eta-0))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((act-26 (CoreC-45Context-decode arg-1 arg-0 0 e-1 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (vector 1 (CoreC-45Context-returnDef (let ((sc5 arg-1)) (let ((e-9 (vector-ref sc5 10))) e-9)) arg-0 e-7))))))))) (else (vector 1 (vector 0 )))))))))))))))))))))) -(define CoreC-45Context-case--caseC-32blockC-32inC-32returnDef-2689 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (vector 1 (cons arg-1 arg-0))) (else (vector 0 )))))) -(define CoreC-45Context-case--returnDef-2673 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (CoreC-45Context-case--caseC-32blockC-32inC-32returnDef-2689 arg-0 arg-1 e-1 e-2 e-3 e-4 e-0 (let ((sc1 e-0)) (let ((e-5 (cdr sc1))) e-5)))))))))(else (vector 0 )))))) -(define CoreC-45Context-case--addEntry-2549 (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (let ((act-24 ((CoreC-45Context-getPosition arg-2 arg-0) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (car sc2))) (let ((e-3 (cdr sc2))) (let ((u--a (let ((sc3 e-3)) (let ((e-4 (vector-ref sc3 5))) e-4)))) (let ((act-25 (let ((act-25 (unbox u--a))) (vector 1 act-25)))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (let ((act-26 ((DataC-45IOArray-writeArray (cons (vector 0 (vector 0 (lambda (u--b) (lambda (a-0) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-0)))))) (lambda (a-0) (lambda (arg-577) (lambda (eta-0) arg-577))) (lambda (u--b) (lambda (a-0) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (let ((act-17 (arg-578 eta-0))) (let ((act-16 (arg-580 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (a-0) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (let ((act-26 (arg-876 eta-0))) ((arg-877 act-26) eta-0))))))) (lambda (a-0) (lambda (arg-879) (lambda (eta-0) (let ((act-51 (arg-879 eta-0))) (act-51 eta-0)))))) (lambda (a-0) (lambda (arg-7803) arg-7803))) e-6 e-2 arg-1) ext-0))) (vector 1 act-26)))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (vector 1 (cons e-2 e-3))))))))))))))))))))) (else (let ((act-24 ((CoreC-45Context-getPosition arg-2 arg-0) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (car sc2))) (let ((e-3 (cdr sc2))) (vector 1 (cons e-2 (let ((sc3 e-3)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-13 (vector-ref sc3 3))) (let ((e-12 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-11 (vector-ref sc3 6))) (let ((e-6 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (vector 0 e-0 e-1 e-13 e-12 e-4 e-11 (LibrariesC-45DataC-45IntMap-insert e-2 arg-1 e-6) e-7 e-8 e-9 e-10)))))))))))))))))))))))))))) -(define CoreC-45Context-case--addCtxt-2427 (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (let ((act-24 ((CoreC-45Context-getPosition arg-2 arg-0) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (car sc2))) (let ((e-3 (cdr sc2))) (let ((u--a (let ((sc3 e-3)) (let ((e-4 (vector-ref sc3 5))) e-4)))) (let ((act-25 (let ((act-25 (unbox u--a))) (vector 1 act-25)))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (let ((act-26 ((DataC-45IOArray-writeArray (cons (vector 0 (vector 0 (lambda (u--b) (lambda (a-0) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-0)))))) (lambda (a-0) (lambda (arg-577) (lambda (eta-0) arg-577))) (lambda (u--b) (lambda (a-0) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (let ((act-17 (arg-578 eta-0))) (let ((act-16 (arg-580 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (a-0) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (let ((act-26 (arg-876 eta-0))) ((arg-877 act-26) eta-0))))))) (lambda (a-0) (lambda (arg-879) (lambda (eta-0) (let ((act-51 (arg-879 eta-0))) (act-51 eta-0)))))) (lambda (a-0) (lambda (arg-7803) arg-7803))) e-6 e-2 (vector 1 arg-1)) ext-0))) (vector 1 act-26)))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (vector 1 (cons e-2 e-3))))))))))))))))))))) (else (let ((act-24 ((CoreC-45Context-getPosition arg-2 arg-0) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (car sc2))) (let ((e-3 (cdr sc2))) (vector 1 (cons e-2 (let ((sc3 e-3)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-13 (vector-ref sc3 3))) (let ((e-12 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-11 (vector-ref sc3 6))) (let ((e-6 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (vector 0 e-0 e-1 e-13 e-12 e-4 e-11 (LibrariesC-45DataC-45IntMap-insert e-2 (vector 1 arg-1) e-6) e-7 e-8 e-9 e-10)))))))))))))))))))))))))))) -(define CoreC-45Context-case--getPosition-2341 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (cons e-1 arg-0))))) (else (CoreC-45Context-newEntry arg-1 arg-0)))))) -(define CoreC-45Context-case--caseC-32blockC-32inC-32addAlias-2212 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (LibrariesC-45DataC-45StringMap-insert arg-4 (cons (vector 1 arg-3 arg-2 arg-1) '()) arg-0)) (else (let ((e-2 (vector-ref sc0 1))) (LibrariesC-45DataC-45StringMap-insert arg-4 (cons (vector 1 arg-3 arg-2 arg-1) e-2) arg-0))))))) -(define CoreC-45Context-case--addAlias-2186 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) arg-0) (else (let ((e-2 (vector-ref sc0 1))) (CoreC-45Context-case--caseC-32blockC-32inC-32addAlias-2212 arg-0 arg-1 arg-2 arg-3 e-2 (LibrariesC-45DataC-45StringMap-lookup e-2 arg-0)))))))) -(define CoreC-45Context-case--caseC-32blockC-32inC-32addPossible-2147 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (LibrariesC-45DataC-45StringMap-insert arg-3 (cons (vector 0 arg-2 arg-1) '()) arg-0)) (else (let ((e-2 (vector-ref sc0 1))) (LibrariesC-45DataC-45StringMap-insert arg-3 (cons (vector 0 arg-2 arg-1) e-2) arg-0))))))) -(define CoreC-45Context-case--addPossible-2125 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) arg-0) (else (let ((e-2 (vector-ref sc0 1))) (CoreC-45Context-case--caseC-32blockC-32inC-32addPossible-2147 arg-0 arg-1 arg-2 e-2 (LibrariesC-45DataC-45StringMap-lookup e-2 arg-0)))))))) -(define CoreC-45Context-case--show-558 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) " [impl]") (else ""))))) -(define CoreC-45Context-n--23320-14486-u--visible (lambda (arg-0 arg-1 arg-2) (CoreC-45NameC-45Namespace-isParentOf arg-2 arg-0))) -(define CoreC-45Context-n--16333-8145-u--showNames (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((u--root (CoreC-45Name-nameRoot arg-4))) (CoreC-45Context-case--getSimilarNamesC-44showNames-8156 arg-0 arg-1 arg-4 arg-3 arg-2 u--root (PreludeC-45EqOrd-u--C-61C-61_Eq_String arg-3 u--root))))) -(define CoreC-45Context-n--13399-5459-u--resolvedNamesPat (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (lambda (clam-0) (let ((sc1 e-3)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (let ((sc2 e-7)) (let ((e-10 (car sc2))) (let ((e-11 (cdr sc2))) (let ((act-24 (CoreC-45Context-u--resolved_HasNames_C-40C-40EnvC-32TermC-41C-32C-36varsC-41 arg-5 e-6 clam-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-5 e-10) clam-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-26 ((CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-5 e-11) clam-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (vector 1 (cons e-2 (cons e-5 (cons e-8 e-9))))))))))))))))))))))))))))))) -(define CoreC-45Context-n--11133-3144-u--resn (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-3 (cdr sc0))) (let ((sc1 e-3)) (let ((e-6 (car sc1))) e-6)))))) -(define CoreC-45Context-n--16258-8071-u--resetElab (lambda (arg-0 ext-0) (let ((sc0 ext-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (vector 0 e-0 e-1 e-2 (CoreC-45Options-defaultElab) e-4 e-5 e-6 e-7 e-8)))))))))))) -(define CoreC-45Context-n--24486-15620-u--resetCtxt (lambda (arg-1 arg-2) (let ((u--dir (let ((sc0 arg-2)) (let ((e-4 (vector-ref sc0 5))) (let ((sc1 e-4)) (let ((e-36 (vector-ref sc1 1))) (let ((sc2 e-36)) (let ((e-46 (vector-ref sc2 1))) e-46)))))))) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (let ((sc0 eta-1)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))) (lambda (eta-1) (let ((act-24 ((SystemC-45Directory-changeDir (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-2) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-2)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-2) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-2) (let ((act-17 (arg-578 eta-2))) (let ((act-16 (arg-580 eta-2))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-2) (let ((act-24 (arg-876 eta-2))) ((arg-877 act-24) eta-2))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-2) (let ((act-51 (arg-879 eta-2))) (act-51 eta-2)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) u--dir) eta-1))) (vector 1 act-24))) eta-0))))) -(define CoreC-45Context-n--19945-11419-u--notHidden (lambda (arg-0 arg-1 arg-2 arg-3 arg-5 arg-6 ext-0) (let ((sc0 arg-5)) (let ((e-2 (car sc0))) (let ((act-24 (CoreC-45Context-toFullNames arg-3 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) e-2 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (let ((sc2 (CoreC-45Context-isHidden e-5 arg-6))) (cond ((equal? sc2 0) 1) (else 0))))))))))))) -(define CoreC-45Context-n--11133-3145-u--lookupPossibles (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (if (null? sc0) (lambda (eta-0) (vector 1 (DataC-45List-reverse arg-2))) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (CoreC-45Context-case--lookupCtxtNameC-44lookupPossibles-3174 arg-0 arg-1 e-5 e-4 e-3 arg-2 (LibrariesC-45DataC-45NameMap-lookup e-4 (let ((sc2 arg-0)) (let ((e-10 (vector-ref sc2 11))) e-10))))))) (else (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (CoreC-45Context-case--lookupCtxtNameC-44lookupPossibles-3304 arg-0 arg-1 e-8 e-7 e-6 e-3 arg-2 (LibrariesC-45DataC-45NameMap-lookup e-7 (let ((sc2 arg-0)) (let ((e-10 (vector-ref sc2 11))) e-10)))))))))))))))) -(define CoreC-45Context-n--17145-8891-u--isHole (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 ((CoreC-45Context-lookupCtxtExact arg-2 (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) e-0))) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((_-0 (vector 1 e-1))) (CoreC-45Context-case--caseC-32blockC-32inC-32getUserHolesC-44isHole-8913 arg-0 arg-2 arg-1 e-1 _-0 (let ((sc2 e-1)) (let ((e-17 (vector-ref sc2 18))) e-17)) ext-0)))) (else (vector 1 0))))))))))) -(define CoreC-45Context-n--19945-11420-u--isDefault (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (Builtin-snd ext-0))) -(define CoreC-45Context-n--13716-5654-u--insertAll (lambda (arg-1 arg-2 arg-3 arg-4 ext-0) (let ((sc0 arg-4)) (if (null? sc0) (vector 1 arg-3) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (let ((act-24 ((CoreC-45Context-u--resolved_HasNames_Name arg-2 e-6) ext-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (CoreC-45Context-n--13716-5654-u--insertAll arg-1 arg-2 (LibrariesC-45DataC-45NameMap-insert e-5 e-7 arg-3) e-3 ext-0))))))))))))))) -(define CoreC-45Context-n--13715-5622-u--insertAll (lambda (arg-1 arg-2 arg-3 arg-4 ext-0) (let ((sc0 arg-4)) (if (null? sc0) (vector 1 arg-3) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (let ((act-24 (CoreC-45Context-u--full_HasNames_Name arg-2 e-6 ext-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (CoreC-45Context-n--13715-5622-u--insertAll arg-1 arg-2 (LibrariesC-45DataC-45NameMap-insert e-5 e-7 arg-3) e-3 ext-0))))))))))))))) -(define CoreC-45Context-n--20615-12046-u--getPos (lambda (arg-0 arg-1 arg-2 arg-3 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((3) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (let ((sc1 e-4)) (case (vector-ref sc1 0) ((2) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((e-9 (vector-ref sc1 3))) (let ((e-10 (vector-ref sc1 4))) (CoreC-45Context-case--setDeterminingC-44getPos-12072 arg-0 arg-1 arg-2 arg-3 e-2 e-7 e-8 e-9 e-10 e-3 e-5 arg-6 arg-5 (PreludeC-45Types-elem (cons (lambda (arg-4) (lambda (arg-8) (CoreC-45Name-u--C-61C-61_Eq_Name arg-4 arg-8))) (lambda (arg-4) (lambda (arg-8) (CoreC-45Name-u--C-47C-61_Eq_Name arg-4 arg-8)))) e-3 arg-6)))))))(else (lambda (clam-0) (let ((sc1 arg-6)) (if (null? sc1) (vector 1 '()) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-2 (PreludeC-45TypesC-45String-C-43C-43 "Unknown determining arguments: " (CoreC-45NameC-45Namespace-showSep ", " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45Name-u--show_Show_Name eta-0)) arg-6)))) clam-0))))))))))))(else (lambda (clam-1) (let ((sc0 arg-6)) (if (null? sc0) (vector 1 '()) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-2 (PreludeC-45TypesC-45String-C-43C-43 "Unknown determining arguments: " (CoreC-45NameC-45Namespace-showSep ", " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45Name-u--show_Show_Name eta-0)) arg-6)))) clam-1))))))))) -(define CoreC-45Context-n--22664-13867-u--getDir (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (CoreC-45Context-case--getDirectivesC-44getDir-13880 arg-0 arg-1 e-2 e-3 (CoreC-45Options-u--C-61C-61_Eq_CG arg-0 e-2))))))) -(define CoreC-45Context-n--13398-5318-u--fullNamesPat (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (lambda (clam-0) (let ((sc1 e-3)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (let ((sc2 e-7)) (let ((e-10 (car sc2))) (let ((e-11 (cdr sc2))) (let ((act-24 (CoreC-45Context-u--full_HasNames_C-40C-40EnvC-32TermC-41C-32C-36varsC-41 arg-5 e-6 clam-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-5 e-10 clam-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-26 (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-5 e-11 clam-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (vector 1 (cons e-2 (cons e-5 (cons e-8 e-9))))))))))))))))))))))))))))))) -(define CoreC-45Context-n--16777-8554-u--findAlias (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (if (null? sc0) (lambda (eta-0) (vector 1 arg-0)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((e-6 (vector-ref sc1 3))) (CoreC-45Context-case--aliasNameC-44findAlias-8569 arg-0 arg-1 e-6 e-5 e-4 e-3 (CoreC-45Name-u--C-61C-61_Eq_Name e-5 arg-0))))))(else (CoreC-45Context-n--16777-8554-u--findAlias arg-0 arg-1 e-3)))))))))) -(define CoreC-45Context-n--19945-11421-u--direct (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (Builtin-snd ext-0))) -(define CoreC-45Context-n--11606-3566-u--commitStaged (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (if (null? sc0) (lambda (eta-0) (vector 0 )) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (PreludeC-45Interfaces-C-62C-62 (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-0)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-0) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (let ((act-17 (arg-578 eta-0))) (let ((act-16 (arg-580 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (let ((act-24 (arg-876 eta-0))) ((arg-877 act-24) eta-0))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-0) (let ((act-29 (arg-879 eta-0))) (act-29 eta-0)))))) (DataC-45IOArray-writeArray (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-0)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-0) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (let ((act-17 (arg-578 eta-0))) (let ((act-16 (arg-580 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (let ((act-24 (arg-876 eta-0))) ((arg-877 act-24) eta-0))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-0) (let ((act-51 (arg-879 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) arg-2 e-6 e-7) (lambda () (CoreC-45Context-n--11606-3566-u--commitStaged arg-0 e-3 arg-2)))))))))))) -(define CoreC-45Context-u--show_Show_SizeChange (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) "Smaller") ((1) "Same") (else "Unknown"))))) -(define CoreC-45Context-u--show_Show_SCCall (lambda (arg-0) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name (let ((sc0 arg-0)) (let ((e-0 (car sc0))) e-0))) (PreludeC-45TypesC-45String-C-43C-43 ": " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_Nat x-1)) (lambda (u--d) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_Nat u--d x-1)))) (cons (lambda (x-1) (CoreC-45Context-u--show_Show_SizeChange x-1)) (lambda (u--d) (lambda (x-1) (CoreC-45Context-u--showPrec_Show_SizeChange u--d x-1))))) x-0)) (lambda (u--d) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_Nat x-1)) (lambda (d-0) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_Nat d-0 x-1)))) (cons (lambda (x-1) (CoreC-45Context-u--show_Show_SizeChange x-1)) (lambda (d-0) (lambda (x-1) (CoreC-45Context-u--showPrec_Show_SizeChange d-0 x-1))))) u--d x-0)))) u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_Nat x-1)) (lambda (d-0) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_Nat d-0 x-1)))) (cons (lambda (x-1) (CoreC-45Context-u--show_Show_SizeChange x-1)) (lambda (d-0) (lambda (x-1) (CoreC-45Context-u--showPrec_Show_SizeChange d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_Nat x-1)) (lambda (d-1) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_Nat d-1 x-1)))) (cons (lambda (x-1) (CoreC-45Context-u--show_Show_SizeChange x-1)) (lambda (d-1) (lambda (x-1) (CoreC-45Context-u--showPrec_Show_SizeChange d-1 x-1))))) d-0 x-0)))) u--d u--x)))) (let ((sc0 arg-0)) (let ((e-1 (cdr sc0))) e-1))))))) -(define CoreC-45Context-u--show_Show_DefFlag (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) "inline") ((1) "invertible") ((2) "overloadable") ((3) "tcinline") ((4) (let ((e-0 (vector-ref sc0 1))) (CoreC-45TT-u--show_Show_TotalReq e-0))) ((5) "blockedhint") ((6) "macro") ((7) "partialeval") ((8) "allguarded") (else (let ((e-2 (vector-ref sc0 1))) (PreludeC-45TypesC-45String-C-43C-43 "contype " (CoreC-45CompileExpr-u--show_Show_ConInfo e-2)))))))) -(define CoreC-45Context-u--show_Show_Def (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) "undefined") ((1) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45Name-u--show_Show_Name u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Name-u--showPrec_Show_Name u--d u--x)))) e-1) (PreludeC-45TypesC-45String-C-43C-43 ";\u000aCompile time tree: " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45CaseTree-u--show_Show_C-40CaseTreeC-32C-36varsC-41 e-1 e-2) (PreludeC-45TypesC-45String-C-43C-43 "\u000aRun time tree: " (CoreC-45CaseTree-u--show_Show_C-40CaseTreeC-32C-36varsC-41 e-1 e-3))))))))) ((5) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (PreludeC-45TypesC-45String-C-43C-43 "DataCon " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Int e-5) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Nat e-6) (PreludeC-45Types-maybe (lambda () "") (lambda () (lambda (u--n) (PreludeC-45TypesC-45String-C-43C-43 " (newtype by " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_Bool u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_Bool u--d u--x)))) (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_Nat u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_Nat u--d u--x))))) u--n) ")")))) e-7))))))))) ((6) (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 3))) (let ((e-13 (vector-ref sc0 6))) (let ((e-14 (vector-ref sc0 7))) (let ((e-15 (vector-ref sc0 8))) (PreludeC-45TypesC-45String-C-43C-43 "TyCon " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Int e-8) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Nat e-9) (PreludeC-45TypesC-45String-C-43C-43 " params: " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_Nat u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_Nat u--d u--x)))) e-10) (PreludeC-45TypesC-45String-C-43C-43 " constructors: " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45Name-u--show_Show_Name u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Name-u--showPrec_Show_Name u--d u--x)))) e-14) (PreludeC-45TypesC-45String-C-43C-43 " mutual with: " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45Name-u--show_Show_Name u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Name-u--showPrec_Show_Name u--d u--x)))) e-13) (PreludeC-45TypesC-45String-C-43C-43 " detaggable by: " (PreludeC-45Show-u--show_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_Nat x-0)) (lambda (u--d) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_Nat u--d x-0)))) u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_C-40ListC-32C-36aC-41 (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_Nat x-0)) (lambda (d-0) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_Nat d-0 x-0)))) u--d u--x)))) e-15))))))))))))))))))) ((2) (let ((e-16 (vector-ref sc0 1))) (PreludeC-45TypesC-45String-C-43C-43 "")))) ((3) (let ((e-17 (vector-ref sc0 1))) (let ((e-18 (vector-ref sc0 2))) (PreludeC-45TypesC-45String-C-43C-43 ""))))))) ((4) (let ((e-19 (vector-ref sc0 1))) (PreludeC-45TypesC-45String-C-43C-43 "")))) ((7) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (PreludeC-45TypesC-45String-C-43C-43 "Hole" (CoreC-45Context-case--show-558 e-21 e-22 (let ((sc1 e-22)) (let ((e-0 (car sc1))) e-0))))))) ((8) (let ((e-25 (vector-ref sc0 3))) (PreludeC-45TypesC-45String-C-43C-43 "Search in " (CoreC-45Name-u--show_Show_Name e-25)))) ((9) (let ((e-26 (vector-ref sc0 1))) (let ((e-28 (vector-ref sc0 3))) (PreludeC-45TypesC-45String-C-43C-43 "Guess " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-26) (PreludeC-45TypesC-45String-C-43C-43 " when " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_Int u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_Int u--d u--x)))) e-28))))))) ((10) "Bound name") (else "Delayed"))))) -(define CoreC-45Context-u--show_Show_Clause (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45Name-u--show_Show_Name u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Name-u--showPrec_Show_Name u--d u--x)))) e-0) (PreludeC-45TypesC-45String-C-43C-43 ": " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 e-0 e-2) (PreludeC-45TypesC-45String-C-43C-43 " = " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 e-0 e-3))))))))))) -(define CoreC-45Context-u--show_Show_BuiltinType (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) "Natural")(else "Not yet implemented"))))) +(define LibrariesC-45UtilsC-45String-lowerFirst (lambda (arg-0) (cond ((equal? arg-0 "") 0)(else (PreludeC-45Types-isLower (string-ref arg-0 0)))))) +(define LibrariesC-45UtilsC-45String-escapeStringUnix (lambda (ext-0) (LibrariesC-45UtilsC-45String-escapeGeneric #\\ (cons #\" (cons #\\ '())) ext-0))) +(define LibrariesC-45UtilsC-45String-escapeStringChez (lambda (ext-0) (LibrariesC-45UtilsC-45String-escapeGeneric #\\ (cons #\' (cons #\\ '())) ext-0))) +(define LibrariesC-45UtilsC-45String-escapeGeneric (lambda (arg-0 arg-1 ext-0) (PreludeC-45Types-fastPack (PreludeC-45Types-u--foldr_Foldable_List (lambda (eta-0) (lambda (eta-1) (LibrariesC-45UtilsC-45String-n--2018-380-u--escape arg-1 arg-0 eta-0 eta-1))) '() (PreludeC-45Types-fastUnpack ext-0))))) +(define LibrariesC-45DataC-45PosMap-case--merge2-8220 (lambda (arg-1 arg-2 arg-3 arg-4) (if (null? arg-4) arg-3 (let ((e-2 (car arg-4))) (let ((e-3 (cdr arg-4))) (let ((sc1 (LibrariesC-45DataC-45PosMap-split (lambda (arg-941) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-36a arg-1 arg-941)) (lambda (eta-0) (LibrariesC-45DataC-45PosMap-largerC-39 (arg-1 e-2) eta-0)) arg-3))) (let ((e-5 (car sc1))) (let ((e-4 (cdr sc1))) (LibrariesC-45DataC-45PosMap-C-43C-43 (lambda (arg-941) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-36a arg-1 arg-941)) e-5 (LibrariesC-45DataC-45PosMap-C-60C-124 (lambda (arg-941) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-36a arg-1 arg-941)) e-2 (LibrariesC-45DataC-45PosMap-merge1 arg-1 e-4 e-3))))))))))) +(define LibrariesC-45DataC-45PosMap-case--merge1-8145 (lambda (arg-1 arg-2 arg-3 arg-4) (if (null? arg-4) arg-2 (let ((e-2 (car arg-4))) (let ((e-3 (cdr arg-4))) (let ((sc1 (LibrariesC-45DataC-45PosMap-split (lambda (arg-941) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-36a arg-1 arg-941)) (lambda (eta-0) (LibrariesC-45DataC-45PosMap-larger (arg-1 e-2) eta-0)) arg-2))) (let ((e-5 (car sc1))) (let ((e-4 (cdr sc1))) (LibrariesC-45DataC-45PosMap-C-43C-43 (lambda (arg-941) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-36a arg-1 arg-941)) e-5 (LibrariesC-45DataC-45PosMap-C-60C-124 (lambda (arg-941) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-36a arg-1 arg-941)) e-2 (LibrariesC-45DataC-45PosMap-merge2 arg-1 e-3 e-4))))))))))) +(define LibrariesC-45DataC-45PosMap-n--4047-2328-u--value (lambda (arg-1 arg-2 arg-3 arg-4) (let ((sc0 (LibrariesC-45DataC-45PosMap-measureTree (lambda (arg-941) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-941)) arg-3))) (if (null? sc0) (LibrariesC-45DataC-45PosMap-u--C-60C-43C-62_Semigroup_RMFileRange (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40DigitC-32C-36aC-41 arg-1 arg-4) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40DigitC-32C-36aC-41 arg-1 arg-2)) (let ((e-0 (unbox sc0))) (LibrariesC-45DataC-45PosMap-u--C-60C-43C-62_Semigroup_RMFileRange (LibrariesC-45DataC-45PosMap-u--C-60C-43C-62_Semigroup_RMFileRange (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40DigitC-32C-36aC-41 arg-1 arg-4) e-0) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40DigitC-32C-36aC-41 arg-1 arg-2))))))) +(define LibrariesC-45DataC-45PosMap-n--10305-8333-u--matches (lambda (arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 (LibrariesC-45DataC-45PosMap-viewl arg-1 (LibrariesC-45DataC-45PosMap-dropUntil arg-1 (lambda (eta-0) (LibrariesC-45DataC-45PosMap-atleast arg-4 eta-0)) arg-5)))) (if (null? sc0) '() (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (cons e-2 (LibrariesC-45DataC-45PosMap-n--10305-8333-u--matches arg-1 arg-2 arg-3 arg-4 e-3)))))))) +(define LibrariesC-45DataC-45PosMap-u--toList_Foldable_PosMap (lambda (ext-0) (LibrariesC-45DataC-45PosMap-u--foldr_Foldable_PosMap (lambda (eta-0) (lambda (eta-1) (cons eta-0 eta-1))) '() ext-0))) +(define LibrariesC-45DataC-45PosMap-u--show_Show_C-40PosMapC-32C-36aC-41 (lambda (arg-1 arg-2) (LibrariesC-45DataC-45PosMap-u--showPrec_Show_C-40PosMapC-32C-36aC-41 arg-1 (vector 0 ) arg-2))) +(define LibrariesC-45DataC-45PosMap-u--showPrec_Show_C-40PosMapC-32C-36aC-41 (lambda (arg-1 arg-2 arg-3) (PreludeC-45Show-showCon arg-2 "fromList" (PreludeC-45Show-showArg (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 arg-1 u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_C-40ListC-32C-36aC-41 arg-1 u--d u--x)))) (LibrariesC-45DataC-45PosMap-u--foldr_Foldable_PosMap (lambda (eta-0) (lambda (eta-1) (cons eta-0 eta-1))) '() arg-3))))) +(define LibrariesC-45DataC-45PosMap-u--neutral_Monoid_Interval (lambda () '())) +(define LibrariesC-45DataC-45PosMap-u--measure_Measure_NonEmptyFC (lambda (ext-0) (Builtin-snd ext-0))) +(define LibrariesC-45DataC-45PosMap-u--measure_Measure_C-40C-124C-40C-40BuiltinC-46PairC-32NonEmptyFCC-41C-32C-36aC-41C-44C-40C-40BuiltinC-46MkPairC-32NonEmptyFCC-41C-32C-36aC-41C-124C-41 (lambda (ext-0) (LibrariesC-45DataC-45PosMap-u--measure_Measure_NonEmptyFC (Builtin-fst ext-0)))) +(define LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 (lambda (arg-1) (case (vector-ref arg-1 0) ((0) (let ((e-1 (vector-ref arg-1 1))) e-1)) (else (let ((e-5 (vector-ref arg-1 1))) e-5))))) +(define LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40DigitC-32C-36aC-41 (lambda (arg-1 arg-2) (case (vector-ref arg-2 0) ((0) (let ((e-1 (vector-ref arg-2 1))) (arg-1 e-1))) ((1) (let ((e-3 (vector-ref arg-2 1))) (let ((e-4 (vector-ref arg-2 2))) (LibrariesC-45DataC-45PosMap-u--C-60C-43C-62_Semigroup_RMFileRange (arg-1 e-3) (arg-1 e-4))))) ((2) (let ((e-6 (vector-ref arg-2 1))) (let ((e-7 (vector-ref arg-2 2))) (let ((e-8 (vector-ref arg-2 3))) (LibrariesC-45DataC-45PosMap-u--C-60C-43C-62_Semigroup_RMFileRange (LibrariesC-45DataC-45PosMap-u--C-60C-43C-62_Semigroup_RMFileRange (arg-1 e-6) (arg-1 e-7)) (arg-1 e-8)))))) (else (let ((e-10 (vector-ref arg-2 1))) (let ((e-11 (vector-ref arg-2 2))) (let ((e-12 (vector-ref arg-2 3))) (let ((e-13 (vector-ref arg-2 4))) (LibrariesC-45DataC-45PosMap-u--C-60C-43C-62_Semigroup_RMFileRange (LibrariesC-45DataC-45PosMap-u--C-60C-43C-62_Semigroup_RMFileRange (LibrariesC-45DataC-45PosMap-u--C-60C-43C-62_Semigroup_RMFileRange (arg-1 e-10) (arg-1 e-11)) (arg-1 e-12)) (arg-1 e-13)))))))))) +(define LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-36a (lambda (arg-1 ext-0) (LibrariesC-45DataC-45PosMap-u--cast_Cast_FileRange_RMFileRange (arg-1 ext-0)))) +(define LibrariesC-45DataC-45PosMap-u--foldr_Foldable_PosMap (lambda (arg-2 arg-3 arg-4) (case (vector-ref arg-4 0) ((0) arg-3) ((1) (let ((e-2 (vector-ref arg-4 1))) ((arg-2 e-2) arg-3))) (else (let ((e-5 (vector-ref arg-4 2))) (let ((e-6 (vector-ref arg-4 3))) (let ((e-7 (vector-ref arg-4 4))) (LibrariesC-45DataC-45PosMap-u--foldr_Foldable_Digit arg-2 (LibrariesC-45DataC-45PosMap-u--foldr_Foldable_PosMap (lambda (eta-0) (lambda (eta-1) (PreludeC-45Basics-flip (lambda (eta-2) (lambda (eta-3) (LibrariesC-45DataC-45PosMap-u--foldr_Foldable_Node arg-2 eta-2 eta-3))) eta-0 eta-1))) (LibrariesC-45DataC-45PosMap-u--foldr_Foldable_Digit arg-2 arg-3 e-7) e-6) e-5)))))))) +(define LibrariesC-45DataC-45PosMap-u--foldr_Foldable_Node (lambda (arg-2 arg-3 arg-4) (case (vector-ref arg-4 0) ((0) (let ((e-2 (vector-ref arg-4 2))) (let ((e-3 (vector-ref arg-4 3))) ((arg-2 e-2) ((arg-2 e-3) arg-3))))) (else (let ((e-6 (vector-ref arg-4 2))) (let ((e-7 (vector-ref arg-4 3))) (let ((e-8 (vector-ref arg-4 4))) ((arg-2 e-6) ((arg-2 e-7) ((arg-2 e-8) arg-3)))))))))) +(define LibrariesC-45DataC-45PosMap-u--foldr_Foldable_Digit (lambda (arg-2 arg-3 arg-4) (case (vector-ref arg-4 0) ((0) (let ((e-1 (vector-ref arg-4 1))) ((arg-2 e-1) arg-3))) ((1) (let ((e-3 (vector-ref arg-4 1))) (let ((e-4 (vector-ref arg-4 2))) ((arg-2 e-3) ((arg-2 e-4) arg-3))))) ((2) (let ((e-6 (vector-ref arg-4 1))) (let ((e-7 (vector-ref arg-4 2))) (let ((e-8 (vector-ref arg-4 3))) ((arg-2 e-6) ((arg-2 e-7) ((arg-2 e-8) arg-3))))))) (else (let ((e-10 (vector-ref arg-4 1))) (let ((e-11 (vector-ref arg-4 2))) (let ((e-12 (vector-ref arg-4 3))) (let ((e-13 (vector-ref arg-4 4))) ((arg-2 e-10) ((arg-2 e-11) ((arg-2 e-12) ((arg-2 e-13) arg-3)))))))))))) +(define LibrariesC-45DataC-45PosMap-u--foldMap_Foldable_PosMap (lambda (arg-2 arg-3 ext-0) (LibrariesC-45DataC-45PosMap-u--foldr_Foldable_PosMap (lambda (eta-0) (lambda (eta-1) (let ((e-1 (car arg-2))) ((e-1 (arg-3 eta-0)) eta-1)))) (let ((e-2 (cdr arg-2))) e-2) ext-0))) +(define LibrariesC-45DataC-45PosMap-u--cast_Cast_RMFileRange_Interval (lambda (ext-0) (box ext-0))) +(define LibrariesC-45DataC-45PosMap-u--cast_Cast_FileRange_RMFileRange (lambda (arg-0) (let ((e-2 (car arg-0))) (let ((e-3 (cdr arg-0))) (cons (cons e-2 e-3) e-3))))) +(define LibrariesC-45DataC-45PosMap-u--C-60C-43C-62_Semigroup_RMFileRange (lambda (arg-0 arg-1) (let ((e-1 (cdr arg-0))) (let ((e-2 (car arg-1))) (let ((e-3 (cdr arg-1))) (cons e-2 (PreludeC-45EqOrd-u--max_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) (vector (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) e-1 e-3))))))) +(define LibrariesC-45DataC-45PosMap-u--C-60C-43C-62_Semigroup_Interval (lambda (arg-0 arg-1) (if (null? arg-0) arg-1 (if (null? arg-1) arg-0 (let ((e-0 (unbox arg-0))) (let ((e-1 (unbox arg-1))) (box (LibrariesC-45DataC-45PosMap-u--C-60C-43C-62_Semigroup_RMFileRange e-0 e-1)))))))) +(define LibrariesC-45DataC-45PosMap-C-124C-62 (lambda (arg-1 arg-2 arg-3) (case (vector-ref arg-2 0) ((0) (vector 1 arg-3)) ((1) (let ((e-2 (vector-ref arg-2 1))) (LibrariesC-45DataC-45PosMap-deep arg-1 (vector 0 e-2) (vector 0 ) (vector 0 arg-3)))) (else (let ((e-5 (vector-ref arg-2 2))) (let ((e-6 (vector-ref arg-2 3))) (let ((e-7 (vector-ref arg-2 4))) (case (vector-ref e-7 0) ((0) (let ((e-9 (vector-ref e-7 1))) (LibrariesC-45DataC-45PosMap-deep arg-1 e-5 e-6 (vector 1 e-9 arg-3)))) ((1) (let ((e-11 (vector-ref e-7 1))) (let ((e-12 (vector-ref e-7 2))) (LibrariesC-45DataC-45PosMap-deep arg-1 e-5 e-6 (vector 2 e-11 e-12 arg-3))))) ((2) (let ((e-14 (vector-ref e-7 1))) (let ((e-15 (vector-ref e-7 2))) (let ((e-16 (vector-ref e-7 3))) (LibrariesC-45DataC-45PosMap-deep arg-1 e-5 e-6 (vector 3 e-14 e-15 e-16 arg-3)))))) (else (let ((e-18 (vector-ref e-7 1))) (let ((e-19 (vector-ref e-7 2))) (let ((e-20 (vector-ref e-7 3))) (let ((e-21 (vector-ref e-7 4))) (LibrariesC-45DataC-45PosMap-deep arg-1 e-5 (LibrariesC-45DataC-45PosMap-C-124C-62 (lambda (arg-941) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-941)) e-6 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-18 e-19 e-20)) (vector 1 e-21 arg-3))))))))))))))) +(define LibrariesC-45DataC-45PosMap-viewr (lambda (arg-1 arg-2) (case (vector-ref arg-2 0) ((0) '()) ((1) (let ((e-2 (vector-ref arg-2 1))) (cons (vector 0 ) e-2))) (else (let ((e-5 (vector-ref arg-2 2))) (let ((e-6 (vector-ref arg-2 3))) (let ((e-7 (vector-ref arg-2 4))) (case (vector-ref e-7 0) ((0) (let ((e-9 (vector-ref e-7 1))) (cons (LibrariesC-45DataC-45PosMap-rotr arg-1 e-5 e-6) e-9))) ((1) (let ((e-11 (vector-ref e-7 1))) (let ((e-12 (vector-ref e-7 2))) (cons (LibrariesC-45DataC-45PosMap-deep arg-1 e-5 e-6 (vector 0 e-11)) e-12)))) ((2) (let ((e-14 (vector-ref e-7 1))) (let ((e-15 (vector-ref e-7 2))) (let ((e-16 (vector-ref e-7 3))) (cons (LibrariesC-45DataC-45PosMap-deep arg-1 e-5 e-6 (vector 1 e-14 e-15)) e-16))))) (else (let ((e-18 (vector-ref e-7 1))) (let ((e-19 (vector-ref e-7 2))) (let ((e-20 (vector-ref e-7 3))) (let ((e-21 (vector-ref e-7 4))) (cons (LibrariesC-45DataC-45PosMap-deep arg-1 e-5 e-6 (vector 2 e-18 e-19 e-20)) e-21)))))))))))))) +(define LibrariesC-45DataC-45PosMap-viewl (lambda (arg-1 arg-2) (case (vector-ref arg-2 0) ((0) '()) ((1) (let ((e-2 (vector-ref arg-2 1))) (cons e-2 (vector 0 )))) (else (let ((e-5 (vector-ref arg-2 2))) (let ((e-6 (vector-ref arg-2 3))) (let ((e-7 (vector-ref arg-2 4))) (case (vector-ref e-5 0) ((0) (let ((e-9 (vector-ref e-5 1))) (cons e-9 (LibrariesC-45DataC-45PosMap-rotl arg-1 e-6 e-7)))) ((1) (let ((e-11 (vector-ref e-5 1))) (let ((e-12 (vector-ref e-5 2))) (cons e-11 (LibrariesC-45DataC-45PosMap-deep arg-1 (vector 0 e-12) e-6 e-7))))) ((2) (let ((e-14 (vector-ref e-5 1))) (let ((e-15 (vector-ref e-5 2))) (let ((e-16 (vector-ref e-5 3))) (cons e-14 (LibrariesC-45DataC-45PosMap-deep arg-1 (vector 1 e-15 e-16) e-6 e-7)))))) (else (let ((e-18 (vector-ref e-5 1))) (let ((e-19 (vector-ref e-5 2))) (let ((e-20 (vector-ref e-5 3))) (let ((e-21 (vector-ref e-5 4))) (cons e-18 (LibrariesC-45DataC-45PosMap-deep arg-1 (vector 2 e-19 e-20 e-21) e-6 e-7))))))))))))))) +(define LibrariesC-45DataC-45PosMap-union (lambda (arg-1 arg-2 arg-3) (LibrariesC-45DataC-45PosMap-merge1 arg-1 arg-2 arg-3))) +(define LibrariesC-45DataC-45PosMap-takeUntil (lambda (arg-1 arg-2 ext-0) (Builtin-fst (LibrariesC-45DataC-45PosMap-split arg-1 arg-2 ext-0)))) +(define LibrariesC-45DataC-45PosMap-split (lambda (arg-1 arg-2 arg-3) (case (vector-ref arg-3 0) ((0) (cons (vector 0 ) (vector 0 )))(else (let ((sc0 (LibrariesC-45DataC-45PosMap-searchTree arg-1 (lambda (u--a) (lambda (_-7659) (arg-2 u--a))) (LibrariesC-45DataC-45PosMap-u--neutral_Monoid_Interval) arg-3 (LibrariesC-45DataC-45PosMap-u--neutral_Monoid_Interval)))) (if (null? sc0) (cons arg-3 (vector 0 )) (let ((e-1 (unbox sc0))) (let ((e-5 (car e-1))) (let ((e-6 (cdr e-1))) (let ((e-9 (car e-6))) (let ((e-10 (cdr e-6))) (let ((sc3 (arg-2 (LibrariesC-45DataC-45PosMap-measureTree arg-1 arg-3)))) (cond ((equal? sc3 1) (cons e-5 (LibrariesC-45DataC-45PosMap-C-60C-124 arg-1 e-9 e-10))) (else (cons arg-3 (vector 0 )))))))))))))))) +(define LibrariesC-45DataC-45PosMap-searchTree (lambda (arg-1 arg-2 arg-3 arg-4 arg-5) (case (vector-ref arg-4 0) ((0) '()) ((1) (let ((e-2 (vector-ref arg-4 1))) (box (cons (vector 0 ) (cons e-2 (vector 0 )))))) (else (let ((e-5 (vector-ref arg-4 2))) (let ((e-6 (vector-ref arg-4 3))) (let ((e-7 (vector-ref arg-4 4))) (let ((u--vm (LibrariesC-45DataC-45PosMap-measureTree (lambda (arg-941) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-941)) e-6))) (let ((u--vsr (LibrariesC-45DataC-45PosMap-u--C-60C-43C-62_Semigroup_Interval (LibrariesC-45DataC-45PosMap-u--cast_Cast_RMFileRange_Interval (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40DigitC-32C-36aC-41 arg-1 e-7)) arg-5))) (let ((u--vmsr (LibrariesC-45DataC-45PosMap-u--C-60C-43C-62_Semigroup_Interval u--vm u--vsr))) (let ((u--vlp (LibrariesC-45DataC-45PosMap-u--C-60C-43C-62_Semigroup_Interval arg-3 (LibrariesC-45DataC-45PosMap-u--cast_Cast_RMFileRange_Interval (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40DigitC-32C-36aC-41 arg-1 e-5))))) (let ((u--vlpm (LibrariesC-45DataC-45PosMap-u--C-60C-43C-62_Semigroup_Interval u--vlp u--vm))) (let ((sc1 ((arg-2 u--vlp) u--vmsr))) (cond ((equal? sc1 1) (let ((sc2 (LibrariesC-45DataC-45PosMap-searchDigit arg-1 arg-2 arg-3 e-5 u--vmsr))) (let ((e-2 (car sc2))) (let ((e-3 (cdr sc2))) (let ((e-9 (car e-3))) (let ((e-8 (cdr e-3))) (box (cons (PreludeC-45Types-maybe (lambda () (vector 0 )) (lambda () (lambda (eta-0) (LibrariesC-45DataC-45PosMap-digitToTree arg-1 eta-0))) e-2) (cons e-9 (LibrariesC-45DataC-45PosMap-deepl arg-1 e-8 e-6 e-7)))))))))) (else (let ((sc2 ((arg-2 u--vlpm) u--vsr))) (cond ((equal? sc2 1) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (LibrariesC-45DataC-45PosMap-searchTree (lambda (arg-941) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-941)) arg-2 u--vlp e-6 u--vsr) (lambda (_-0) (let ((e-2 (car _-0))) (let ((e-3 (cdr _-0))) (let ((e-9 (car e-3))) (let ((e-8 (cdr e-3))) (let ((sc5 (LibrariesC-45DataC-45PosMap-searchNode arg-1 arg-2 (LibrariesC-45DataC-45PosMap-u--C-60C-43C-62_Semigroup_Interval u--vlp (LibrariesC-45DataC-45PosMap-measureTree (lambda (arg-941) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-941)) e-2)) e-9 (LibrariesC-45DataC-45PosMap-u--C-60C-43C-62_Semigroup_Interval (LibrariesC-45DataC-45PosMap-measureTree (lambda (arg-941) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-941)) e-8) u--vsr)))) (let ((e-11 (car sc5))) (let ((e-10 (cdr sc5))) (let ((e-13 (car e-10))) (let ((e-12 (cdr e-10))) (box (cons (LibrariesC-45DataC-45PosMap-deepr arg-1 e-5 e-2 e-11) (cons e-13 (LibrariesC-45DataC-45PosMap-deepl arg-1 e-12 e-8 e-7)))))))))))))))) (else (let ((sc3 (LibrariesC-45DataC-45PosMap-searchDigit arg-1 arg-2 u--vlpm e-7 arg-5))) (let ((e-2 (car sc3))) (let ((e-3 (cdr sc3))) (let ((e-9 (car e-3))) (let ((e-8 (cdr e-3))) (box (cons (LibrariesC-45DataC-45PosMap-deepr arg-1 e-5 e-6 e-2) (cons e-9 (PreludeC-45Types-maybe (lambda () (vector 0 )) (lambda () (lambda (eta-0) (LibrariesC-45DataC-45PosMap-digitToTree arg-1 eta-0))) e-8))))))))))))))))))))))))))) +(define LibrariesC-45DataC-45PosMap-searchPos (lambda (arg-1 arg-2 ext-0) (LibrariesC-45DataC-45PosMap-inRange arg-1 arg-2 arg-2 ext-0))) +(define LibrariesC-45DataC-45PosMap-searchNode (lambda (arg-1 arg-2 arg-3 arg-4 arg-5) (LibrariesC-45DataC-45PosMap-searchDigit arg-1 arg-2 arg-3 (LibrariesC-45DataC-45PosMap-nodeToDigit arg-1 arg-4) arg-5))) +(define LibrariesC-45DataC-45PosMap-searchDigit (lambda (arg-1 arg-2 arg-3 arg-4 arg-5) (case (vector-ref arg-4 0) ((0) (let ((e-1 (vector-ref arg-4 1))) (cons '() (cons e-1 '())))) ((1) (let ((e-3 (vector-ref arg-4 1))) (let ((e-4 (vector-ref arg-4 2))) (let ((u--va (LibrariesC-45DataC-45PosMap-u--C-60C-43C-62_Semigroup_Interval arg-3 (LibrariesC-45DataC-45PosMap-u--cast_Cast_RMFileRange_Interval (arg-1 e-3))))) (let ((u--vb (LibrariesC-45DataC-45PosMap-u--C-60C-43C-62_Semigroup_Interval (LibrariesC-45DataC-45PosMap-u--cast_Cast_RMFileRange_Interval (arg-1 e-4)) arg-5))) (let ((sc1 ((arg-2 u--va) u--vb))) (cond ((equal? sc1 1) (cons '() (cons e-3 (box (vector 0 e-4))))) (else (cons (box (vector 0 e-3)) (cons e-4 '())))))))))) ((2) (let ((e-6 (vector-ref arg-4 1))) (let ((e-7 (vector-ref arg-4 2))) (let ((e-8 (vector-ref arg-4 3))) (let ((u--va (LibrariesC-45DataC-45PosMap-u--C-60C-43C-62_Semigroup_Interval arg-3 (LibrariesC-45DataC-45PosMap-u--cast_Cast_RMFileRange_Interval (arg-1 e-6))))) (let ((u--vab (LibrariesC-45DataC-45PosMap-u--C-60C-43C-62_Semigroup_Interval u--va (LibrariesC-45DataC-45PosMap-u--cast_Cast_RMFileRange_Interval (arg-1 e-7))))) (let ((u--vc (LibrariesC-45DataC-45PosMap-u--C-60C-43C-62_Semigroup_Interval (LibrariesC-45DataC-45PosMap-u--cast_Cast_RMFileRange_Interval (arg-1 e-8)) arg-5))) (let ((u--vbc (LibrariesC-45DataC-45PosMap-u--C-60C-43C-62_Semigroup_Interval (LibrariesC-45DataC-45PosMap-u--cast_Cast_RMFileRange_Interval (arg-1 e-7)) u--vc))) (let ((sc1 ((arg-2 u--va) u--vbc))) (cond ((equal? sc1 1) (cons '() (cons e-6 (box (vector 1 e-7 e-8))))) (else (let ((sc2 ((arg-2 u--vab) u--vc))) (cond ((equal? sc2 1) (cons (box (vector 0 e-6)) (cons e-7 (box (vector 0 e-8))))) (else (cons (box (vector 1 e-6 e-7)) (cons e-8 '())))))))))))))))) (else (let ((e-10 (vector-ref arg-4 1))) (let ((e-11 (vector-ref arg-4 2))) (let ((e-12 (vector-ref arg-4 3))) (let ((e-13 (vector-ref arg-4 4))) (let ((u--va (LibrariesC-45DataC-45PosMap-u--C-60C-43C-62_Semigroup_Interval arg-3 (LibrariesC-45DataC-45PosMap-u--cast_Cast_RMFileRange_Interval (arg-1 e-10))))) (let ((u--vab (LibrariesC-45DataC-45PosMap-u--C-60C-43C-62_Semigroup_Interval u--va (LibrariesC-45DataC-45PosMap-u--cast_Cast_RMFileRange_Interval (arg-1 e-11))))) (let ((u--vabc (LibrariesC-45DataC-45PosMap-u--C-60C-43C-62_Semigroup_Interval u--vab (LibrariesC-45DataC-45PosMap-u--cast_Cast_RMFileRange_Interval (arg-1 e-12))))) (let ((u--vd (LibrariesC-45DataC-45PosMap-u--C-60C-43C-62_Semigroup_Interval (LibrariesC-45DataC-45PosMap-u--cast_Cast_RMFileRange_Interval (arg-1 e-13)) arg-5))) (let ((u--vcd (LibrariesC-45DataC-45PosMap-u--C-60C-43C-62_Semigroup_Interval (LibrariesC-45DataC-45PosMap-u--cast_Cast_RMFileRange_Interval (arg-1 e-12)) u--vd))) (let ((u--vbcd (LibrariesC-45DataC-45PosMap-u--C-60C-43C-62_Semigroup_Interval (LibrariesC-45DataC-45PosMap-u--cast_Cast_RMFileRange_Interval (arg-1 e-11)) u--vcd))) (let ((sc1 ((arg-2 u--va) u--vbcd))) (cond ((equal? sc1 1) (cons '() (cons e-10 (box (vector 2 e-11 e-12 e-13))))) (else (let ((sc2 ((arg-2 u--vab) u--vcd))) (cond ((equal? sc2 1) (cons (box (vector 0 e-10)) (cons e-11 (box (vector 1 e-12 e-13))))) (else (let ((sc3 ((arg-2 u--vabc) u--vd))) (cond ((equal? sc3 1) (cons (box (vector 1 e-10 e-11)) (cons e-12 (box (vector 0 e-13))))) (else (cons (box (vector 2 e-10 e-11 e-12)) (cons e-13 '()))))))))))))))))))))))))) +(define LibrariesC-45DataC-45PosMap-rotr (lambda (arg-1 arg-2 arg-3) (let ((sc0 (LibrariesC-45DataC-45PosMap-viewr (lambda (arg-941) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-941)) arg-3))) (if (null? sc0) (LibrariesC-45DataC-45PosMap-digitToTree arg-1 arg-2) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 (LibrariesC-45DataC-45PosMap-measureTree (lambda (arg-941) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-941)) arg-3))) (if (null? sc1) (vector 2 (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40DigitC-32C-36aC-41 arg-1 arg-2) arg-2 e-2 (LibrariesC-45DataC-45PosMap-nodeToDigit arg-1 e-3)) (let ((e-0 (unbox sc1))) (vector 2 (LibrariesC-45DataC-45PosMap-u--C-60C-43C-62_Semigroup_RMFileRange (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40DigitC-32C-36aC-41 arg-1 arg-2) e-0) arg-2 e-2 (LibrariesC-45DataC-45PosMap-nodeToDigit arg-1 e-3))))))))))) +(define LibrariesC-45DataC-45PosMap-rotl (lambda (arg-1 arg-2 arg-3) (let ((sc0 (LibrariesC-45DataC-45PosMap-viewl (lambda (arg-941) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-941)) arg-2))) (if (null? sc0) (LibrariesC-45DataC-45PosMap-digitToTree arg-1 arg-3) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 (LibrariesC-45DataC-45PosMap-measureTree (lambda (arg-941) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-941)) arg-2))) (if (null? sc1) (vector 2 (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40DigitC-32C-36aC-41 arg-1 arg-3) (LibrariesC-45DataC-45PosMap-nodeToDigit arg-1 e-2) e-3 arg-3) (let ((e-0 (unbox sc1))) (vector 2 (LibrariesC-45DataC-45PosMap-u--C-60C-43C-62_Semigroup_RMFileRange e-0 (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40DigitC-32C-36aC-41 arg-1 arg-3)) (LibrariesC-45DataC-45PosMap-nodeToDigit arg-1 e-2) e-3 arg-3)))))))))) +(define LibrariesC-45DataC-45PosMap-nodeToDigit (lambda (arg-1 arg-2) (case (vector-ref arg-2 0) ((0) (let ((e-2 (vector-ref arg-2 2))) (let ((e-3 (vector-ref arg-2 3))) (vector 1 e-2 e-3)))) (else (let ((e-6 (vector-ref arg-2 2))) (let ((e-7 (vector-ref arg-2 3))) (let ((e-8 (vector-ref arg-2 4))) (vector 2 e-6 e-7 e-8)))))))) +(define LibrariesC-45DataC-45PosMap-node3 (lambda (arg-1 arg-2 arg-3 arg-4) (vector 1 (LibrariesC-45DataC-45PosMap-u--C-60C-43C-62_Semigroup_RMFileRange (LibrariesC-45DataC-45PosMap-u--C-60C-43C-62_Semigroup_RMFileRange (arg-1 arg-2) (arg-1 arg-3)) (arg-1 arg-4)) arg-2 arg-3 arg-4))) +(define LibrariesC-45DataC-45PosMap-node2 (lambda (arg-1 arg-2 arg-3) (vector 0 (LibrariesC-45DataC-45PosMap-u--C-60C-43C-62_Semigroup_RMFileRange (arg-1 arg-2) (arg-1 arg-3)) arg-2 arg-3))) +(define LibrariesC-45DataC-45PosMap-merge2 (lambda (arg-1 arg-2 arg-3) (LibrariesC-45DataC-45PosMap-case--merge2-8220 arg-1 arg-3 arg-2 (LibrariesC-45DataC-45PosMap-viewl (lambda (arg-941) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-36a arg-1 arg-941)) arg-3)))) +(define LibrariesC-45DataC-45PosMap-merge1 (lambda (arg-1 arg-2 arg-3) (LibrariesC-45DataC-45PosMap-case--merge1-8145 arg-1 arg-3 arg-2 (LibrariesC-45DataC-45PosMap-viewl (lambda (arg-941) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-36a arg-1 arg-941)) arg-2)))) +(define LibrariesC-45DataC-45PosMap-measureTree (lambda (arg-1 arg-2) (case (vector-ref arg-2 0) ((0) (LibrariesC-45DataC-45PosMap-u--neutral_Monoid_Interval)) ((1) (let ((e-2 (vector-ref arg-2 1))) (LibrariesC-45DataC-45PosMap-u--cast_Cast_RMFileRange_Interval (arg-1 e-2)))) (else (let ((e-4 (vector-ref arg-2 1))) (LibrariesC-45DataC-45PosMap-u--cast_Cast_RMFileRange_Interval e-4)))))) +(define LibrariesC-45DataC-45PosMap-largerC-39 (lambda (arg-0 arg-1) (if (null? arg-1) 0 (let ((e-0 (unbox arg-1))) (let ((e-1 (car e-0))) (PreludeC-45EqOrd-u--C-62_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (cons (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-6) (lambda (arg-7) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-6 arg-7)))) (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-6) (lambda (arg-7) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-6 arg-7)))) arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--compare_Ord_Int arg-356 arg-357))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) (vector (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--compare_Ord_Int arg-356 arg-357))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) (vector (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) (vector (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) (vector (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) (vector (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--max_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) (vector (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--max_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) (vector (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) arg-366 arg-367)))) (vector (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (cons (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-6) (lambda (arg-7) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-6 arg-7)))) (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-6) (lambda (arg-7) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-6 arg-7)))) arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--compare_Ord_Int arg-356 arg-357))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) (vector (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--compare_Ord_Int arg-356 arg-357))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) (vector (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) (vector (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) (vector (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) (vector (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--max_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) (vector (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--max_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) (vector (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) arg-366 arg-367)))) e-1 arg-0)))))) +(define LibrariesC-45DataC-45PosMap-larger (lambda (arg-0 arg-1) (if (null? arg-1) 0 (let ((e-0 (unbox arg-1))) (let ((e-1 (car e-0))) (PreludeC-45EqOrd-u--C-62C-61_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (cons (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-6) (lambda (arg-7) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-6 arg-7)))) (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-6) (lambda (arg-7) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-6 arg-7)))) arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--compare_Ord_Int arg-356 arg-357))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) (vector (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--compare_Ord_Int arg-356 arg-357))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) (vector (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) (vector (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) (vector (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) (vector (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--max_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) (vector (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--max_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) (vector (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) arg-366 arg-367)))) (vector (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (cons (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-6) (lambda (arg-7) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-6 arg-7)))) (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-6) (lambda (arg-7) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-6 arg-7)))) arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--compare_Ord_Int arg-356 arg-357))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) (vector (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--compare_Ord_Int arg-356 arg-357))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) (vector (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) (vector (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) (vector (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) (vector (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--max_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) (vector (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--max_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) (vector (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) arg-366 arg-367)))) e-1 arg-0)))))) +(define LibrariesC-45DataC-45PosMap-insert (lambda (arg-1 arg-2 arg-3) (let ((sc0 (LibrariesC-45DataC-45PosMap-split (lambda (arg-941) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-36a arg-1 arg-941)) (lambda (eta-0) (LibrariesC-45DataC-45PosMap-larger (arg-1 arg-2) eta-0)) arg-3))) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (LibrariesC-45DataC-45PosMap-C-43C-43 (lambda (arg-941) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-36a arg-1 arg-941)) e-2 (LibrariesC-45DataC-45PosMap-C-60C-124 (lambda (arg-941) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-36a arg-1 arg-941)) arg-2 e-3))))))) +(define LibrariesC-45DataC-45PosMap-inRange (lambda (arg-1 arg-2 arg-3 arg-4) (LibrariesC-45DataC-45PosMap-n--10305-8333-u--matches arg-1 arg-4 arg-3 arg-2 (LibrariesC-45DataC-45PosMap-takeUntil arg-1 (lambda (eta-0) (LibrariesC-45DataC-45PosMap-greater arg-3 eta-0)) arg-4)))) +(define LibrariesC-45DataC-45PosMap-greater (lambda (arg-0 arg-1) (if (null? arg-1) 0 (let ((e-0 (unbox arg-1))) (let ((e-1 (car e-0))) (PreludeC-45EqOrd-u--C-62_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) (vector (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) (Builtin-fst e-1) arg-0)))))) +(define LibrariesC-45DataC-45PosMap-fromList (lambda (arg-1 ext-0) (PreludeC-45Types-u--foldr_Foldable_List (lambda (eta-0) (lambda (eta-1) (LibrariesC-45DataC-45PosMap-insert arg-1 eta-0 eta-1))) (LibrariesC-45DataC-45PosMap-empty) ext-0))) +(define LibrariesC-45DataC-45PosMap-exactRange (lambda (arg-1 arg-2 arg-3 arg-4) (PreludeC-45Basics-flip (lambda (eta-0) (lambda (eta-1) (DataC-45List-mapMaybe eta-0 eta-1))) (LibrariesC-45DataC-45PosMap-inRange arg-1 arg-2 arg-3 arg-4) (lambda (u--a) (let ((sc0 (arg-1 u--a))) (let ((e-0 (car sc0))) (PreludeC-45Interfaces-C-62C-62 (vector (vector (lambda (u--b) (lambda (a-0) (lambda (u--func) (lambda (arg-133) (PreludeC-45Types-u--map_Functor_Maybe u--func arg-133))))) (lambda (a-0) (lambda (arg-527) (PreludeC-45Types-u--pure_Applicative_Maybe arg-527))) (lambda (u--b) (lambda (a-0) (lambda (arg-528) (lambda (arg-530) (PreludeC-45Types-u--C-60C-42C-62_Applicative_Maybe arg-528 arg-530)))))) (lambda (u--b) (lambda (a-0) (lambda (arg-811) (lambda (arg-812) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe arg-811 arg-812))))) (lambda (a-0) (lambda (arg-814) (PreludeC-45Types-u--join_Monad_Maybe arg-814)))) (PreludeC-45Interfaces-guard (vector (vector (lambda (u--b) (lambda (a-0) (lambda (u--func) (lambda (arg-133) (PreludeC-45Types-u--map_Functor_Maybe u--func arg-133))))) (lambda (a-0) (lambda (arg-527) (PreludeC-45Types-u--pure_Applicative_Maybe arg-527))) (lambda (u--b) (lambda (a-0) (lambda (arg-528) (lambda (arg-530) (PreludeC-45Types-u--C-60C-42C-62_Applicative_Maybe arg-528 arg-530)))))) (lambda (a-0) (PreludeC-45Types-u--empty_Alternative_Maybe)) (lambda (a-0) (lambda (arg-763) (lambda (arg-764) (PreludeC-45Types-u--C-60C-124C-62_Alternative_Maybe arg-763 arg-764))))) (PreludeC-45EqOrd-u--C-61C-61_Eq_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-61C-61_Eq_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (arg-7) (lambda (arg-8) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-7 arg-8))) (lambda (arg-7) (lambda (arg-8) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-7 arg-8)))) (cons (lambda (arg-7) (lambda (arg-8) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-7 arg-8))) (lambda (arg-7) (lambda (arg-8) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-7 arg-8)))) arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-47C-61_Eq_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (arg-7) (lambda (arg-8) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-7 arg-8))) (lambda (arg-7) (lambda (arg-8) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-7 arg-8)))) (cons (lambda (arg-7) (lambda (arg-8) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-7 arg-8))) (lambda (arg-7) (lambda (arg-8) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-7 arg-8)))) arg-5 arg-6)))) (cons (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-61C-61_Eq_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (arg-7) (lambda (arg-8) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-7 arg-8))) (lambda (arg-7) (lambda (arg-8) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-7 arg-8)))) (cons (lambda (arg-7) (lambda (arg-8) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-7 arg-8))) (lambda (arg-7) (lambda (arg-8) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-7 arg-8)))) arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-47C-61_Eq_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (arg-7) (lambda (arg-8) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-7 arg-8))) (lambda (arg-7) (lambda (arg-8) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-7 arg-8)))) (cons (lambda (arg-7) (lambda (arg-8) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-7 arg-8))) (lambda (arg-7) (lambda (arg-8) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-7 arg-8)))) arg-5 arg-6)))) e-0 (cons arg-2 arg-3))) (lambda () (PreludeC-45Types-u--pure_Applicative_Maybe u--a))))))))) +(define LibrariesC-45DataC-45PosMap-empty (lambda () (vector 0 ))) +(define LibrariesC-45DataC-45PosMap-dropUntil (lambda (arg-1 arg-2 ext-0) (Builtin-snd (LibrariesC-45DataC-45PosMap-split arg-1 arg-2 ext-0)))) +(define LibrariesC-45DataC-45PosMap-digitToTree (lambda (arg-1 arg-2) (case (vector-ref arg-2 0) ((0) (let ((e-1 (vector-ref arg-2 1))) (vector 1 e-1))) ((1) (let ((e-3 (vector-ref arg-2 1))) (let ((e-4 (vector-ref arg-2 2))) (LibrariesC-45DataC-45PosMap-deep arg-1 (vector 0 e-3) (vector 0 ) (vector 0 e-4))))) ((2) (let ((e-6 (vector-ref arg-2 1))) (let ((e-7 (vector-ref arg-2 2))) (let ((e-8 (vector-ref arg-2 3))) (LibrariesC-45DataC-45PosMap-deep arg-1 (vector 1 e-6 e-7) (vector 0 ) (vector 0 e-8)))))) (else (let ((e-10 (vector-ref arg-2 1))) (let ((e-11 (vector-ref arg-2 2))) (let ((e-12 (vector-ref arg-2 3))) (let ((e-13 (vector-ref arg-2 4))) (LibrariesC-45DataC-45PosMap-deep arg-1 (vector 1 e-10 e-11) (vector 0 ) (vector 1 e-12 e-13)))))))))) +(define LibrariesC-45DataC-45PosMap-deepr (lambda (arg-1 arg-2 arg-3 arg-4) (if (null? arg-4) (LibrariesC-45DataC-45PosMap-rotr arg-1 arg-2 arg-3) (let ((e-2 (unbox arg-4))) (LibrariesC-45DataC-45PosMap-deep arg-1 arg-2 arg-3 e-2))))) +(define LibrariesC-45DataC-45PosMap-deepl (lambda (arg-1 arg-2 arg-3 arg-4) (if (null? arg-2) (LibrariesC-45DataC-45PosMap-rotl arg-1 arg-3 arg-4) (let ((e-2 (unbox arg-2))) (LibrariesC-45DataC-45PosMap-deep arg-1 e-2 arg-3 arg-4))))) +(define LibrariesC-45DataC-45PosMap-deep (lambda (arg-1 arg-2 arg-3 arg-4) (vector 2 (LibrariesC-45DataC-45PosMap-n--4047-2328-u--value arg-1 arg-4 arg-3 arg-2) arg-2 arg-3 arg-4))) +(define LibrariesC-45DataC-45PosMap-atleast (lambda (arg-0 arg-1) (if (null? arg-1) 0 (let ((e-0 (unbox arg-1))) (let ((e-2 (cdr e-0))) (PreludeC-45EqOrd-u--C-60C-61_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) (vector (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-0 e-2)))))) +(define LibrariesC-45DataC-45PosMap-appendTree4 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (case (vector-ref arg-2 0) ((0) (LibrariesC-45DataC-45PosMap-C-60C-124 arg-1 arg-3 (LibrariesC-45DataC-45PosMap-C-60C-124 arg-1 arg-4 (LibrariesC-45DataC-45PosMap-C-60C-124 arg-1 arg-5 (LibrariesC-45DataC-45PosMap-C-60C-124 arg-1 arg-6 arg-7)))))(else (case (vector-ref arg-7 0) ((0) (LibrariesC-45DataC-45PosMap-C-124C-62 arg-1 (LibrariesC-45DataC-45PosMap-C-124C-62 arg-1 (LibrariesC-45DataC-45PosMap-C-124C-62 arg-1 (LibrariesC-45DataC-45PosMap-C-124C-62 arg-1 arg-2 arg-3) arg-4) arg-5) arg-6))(else (case (vector-ref arg-2 0) ((1) (let ((e-13 (vector-ref arg-2 1))) (LibrariesC-45DataC-45PosMap-C-60C-124 arg-1 arg-3 (LibrariesC-45DataC-45PosMap-C-60C-124 arg-1 arg-4 (LibrariesC-45DataC-45PosMap-C-60C-124 arg-1 arg-5 (LibrariesC-45DataC-45PosMap-C-60C-124 arg-1 arg-6 (LibrariesC-45DataC-45PosMap-C-60C-124 arg-1 e-13 arg-7)))))))(else (case (vector-ref arg-7 0) ((1) (let ((e-11 (vector-ref arg-7 1))) (LibrariesC-45DataC-45PosMap-C-124C-62 arg-1 (LibrariesC-45DataC-45PosMap-C-124C-62 arg-1 (LibrariesC-45DataC-45PosMap-C-124C-62 arg-1 (LibrariesC-45DataC-45PosMap-C-124C-62 arg-1 (LibrariesC-45DataC-45PosMap-C-124C-62 arg-1 arg-2 arg-3) arg-4) arg-5) arg-6) e-11)))(else (let ((e-2 (vector-ref arg-2 2))) (let ((e-3 (vector-ref arg-2 3))) (let ((e-4 (vector-ref arg-2 4))) (let ((e-7 (vector-ref arg-7 2))) (let ((e-8 (vector-ref arg-7 3))) (let ((e-9 (vector-ref arg-7 4))) (LibrariesC-45DataC-45PosMap-deep arg-1 e-2 (LibrariesC-45DataC-45PosMap-addDigits4 arg-1 e-3 e-4 arg-3 arg-4 arg-5 arg-6 e-7 e-8) e-9))))))))))))))))) +(define LibrariesC-45DataC-45PosMap-appendTree3 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (case (vector-ref arg-2 0) ((0) (LibrariesC-45DataC-45PosMap-C-60C-124 arg-1 arg-3 (LibrariesC-45DataC-45PosMap-C-60C-124 arg-1 arg-4 (LibrariesC-45DataC-45PosMap-C-60C-124 arg-1 arg-5 arg-6))))(else (case (vector-ref arg-6 0) ((0) (LibrariesC-45DataC-45PosMap-C-124C-62 arg-1 (LibrariesC-45DataC-45PosMap-C-124C-62 arg-1 (LibrariesC-45DataC-45PosMap-C-124C-62 arg-1 arg-2 arg-3) arg-4) arg-5))(else (case (vector-ref arg-2 0) ((1) (let ((e-13 (vector-ref arg-2 1))) (LibrariesC-45DataC-45PosMap-C-60C-124 arg-1 e-13 (LibrariesC-45DataC-45PosMap-C-60C-124 arg-1 arg-3 (LibrariesC-45DataC-45PosMap-C-60C-124 arg-1 arg-4 (LibrariesC-45DataC-45PosMap-C-60C-124 arg-1 arg-5 arg-6))))))(else (case (vector-ref arg-6 0) ((1) (let ((e-11 (vector-ref arg-6 1))) (LibrariesC-45DataC-45PosMap-C-124C-62 arg-1 (LibrariesC-45DataC-45PosMap-C-124C-62 arg-1 (LibrariesC-45DataC-45PosMap-C-124C-62 arg-1 (LibrariesC-45DataC-45PosMap-C-124C-62 arg-1 arg-2 arg-3) arg-4) arg-5) e-11)))(else (let ((e-2 (vector-ref arg-2 2))) (let ((e-3 (vector-ref arg-2 3))) (let ((e-4 (vector-ref arg-2 4))) (let ((e-7 (vector-ref arg-6 2))) (let ((e-8 (vector-ref arg-6 3))) (let ((e-9 (vector-ref arg-6 4))) (LibrariesC-45DataC-45PosMap-deep arg-1 e-2 (LibrariesC-45DataC-45PosMap-addDigits3 arg-1 e-3 e-4 arg-3 arg-4 arg-5 e-7 e-8) e-9))))))))))))))))) +(define LibrariesC-45DataC-45PosMap-appendTree2 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5) (case (vector-ref arg-2 0) ((0) (LibrariesC-45DataC-45PosMap-C-60C-124 arg-1 arg-3 (LibrariesC-45DataC-45PosMap-C-60C-124 arg-1 arg-4 arg-5)))(else (case (vector-ref arg-5 0) ((0) (LibrariesC-45DataC-45PosMap-C-124C-62 arg-1 (LibrariesC-45DataC-45PosMap-C-124C-62 arg-1 arg-2 arg-3) arg-4))(else (case (vector-ref arg-2 0) ((1) (let ((e-13 (vector-ref arg-2 1))) (LibrariesC-45DataC-45PosMap-C-60C-124 arg-1 e-13 (LibrariesC-45DataC-45PosMap-C-60C-124 arg-1 arg-3 (LibrariesC-45DataC-45PosMap-C-60C-124 arg-1 arg-4 arg-5)))))(else (case (vector-ref arg-5 0) ((1) (let ((e-11 (vector-ref arg-5 1))) (LibrariesC-45DataC-45PosMap-C-124C-62 arg-1 (LibrariesC-45DataC-45PosMap-C-124C-62 arg-1 (LibrariesC-45DataC-45PosMap-C-124C-62 arg-1 arg-2 arg-3) arg-4) e-11)))(else (let ((e-2 (vector-ref arg-2 2))) (let ((e-3 (vector-ref arg-2 3))) (let ((e-4 (vector-ref arg-2 4))) (let ((e-7 (vector-ref arg-5 2))) (let ((e-8 (vector-ref arg-5 3))) (let ((e-9 (vector-ref arg-5 4))) (LibrariesC-45DataC-45PosMap-deep arg-1 e-2 (LibrariesC-45DataC-45PosMap-addDigits2 arg-1 e-3 e-4 arg-3 arg-4 e-7 e-8) e-9))))))))))))))))) +(define LibrariesC-45DataC-45PosMap-appendTree1 (lambda (arg-1 arg-2 arg-3 arg-4) (case (vector-ref arg-2 0) ((0) (LibrariesC-45DataC-45PosMap-C-60C-124 arg-1 arg-3 arg-4))(else (case (vector-ref arg-4 0) ((0) (LibrariesC-45DataC-45PosMap-C-124C-62 arg-1 arg-2 arg-3))(else (case (vector-ref arg-2 0) ((1) (let ((e-13 (vector-ref arg-2 1))) (LibrariesC-45DataC-45PosMap-C-60C-124 arg-1 e-13 (LibrariesC-45DataC-45PosMap-C-60C-124 arg-1 arg-3 arg-4))))(else (case (vector-ref arg-4 0) ((1) (let ((e-11 (vector-ref arg-4 1))) (LibrariesC-45DataC-45PosMap-C-124C-62 arg-1 (LibrariesC-45DataC-45PosMap-C-124C-62 arg-1 arg-2 arg-3) e-11)))(else (let ((e-2 (vector-ref arg-2 2))) (let ((e-3 (vector-ref arg-2 3))) (let ((e-4 (vector-ref arg-2 4))) (let ((e-7 (vector-ref arg-4 2))) (let ((e-8 (vector-ref arg-4 3))) (let ((e-9 (vector-ref arg-4 4))) (LibrariesC-45DataC-45PosMap-deep arg-1 e-2 (LibrariesC-45DataC-45PosMap-addDigits1 arg-1 e-3 e-4 arg-3 e-7 e-8) e-9))))))))))))))))) +(define LibrariesC-45DataC-45PosMap-appendTree0 (lambda (arg-1 arg-2 arg-3) (case (vector-ref arg-2 0) ((0) arg-3)(else (case (vector-ref arg-3 0) ((0) arg-2)(else (case (vector-ref arg-2 0) ((1) (let ((e-13 (vector-ref arg-2 1))) (LibrariesC-45DataC-45PosMap-C-60C-124 arg-1 e-13 arg-3)))(else (case (vector-ref arg-3 0) ((1) (let ((e-11 (vector-ref arg-3 1))) (LibrariesC-45DataC-45PosMap-C-124C-62 arg-1 arg-2 e-11)))(else (let ((e-2 (vector-ref arg-2 2))) (let ((e-3 (vector-ref arg-2 3))) (let ((e-4 (vector-ref arg-2 4))) (let ((e-7 (vector-ref arg-3 2))) (let ((e-8 (vector-ref arg-3 3))) (let ((e-9 (vector-ref arg-3 4))) (LibrariesC-45DataC-45PosMap-deep arg-1 e-2 (LibrariesC-45DataC-45PosMap-addDigits0 arg-1 e-3 e-4 e-7 e-8) e-9))))))))))))))))) +(define LibrariesC-45DataC-45PosMap-addDigits4 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (case (vector-ref arg-3 0) ((0) (let ((e-1 (vector-ref arg-3 1))) (case (vector-ref arg-8 0) ((0) (let ((e-15 (vector-ref arg-8 1))) (LibrariesC-45DataC-45PosMap-appendTree2 (lambda (arg-941) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-941)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-1 arg-4 arg-5) (LibrariesC-45DataC-45PosMap-node3 arg-1 arg-6 arg-7 e-15) arg-9))) ((1) (let ((e-17 (vector-ref arg-8 1))) (let ((e-18 (vector-ref arg-8 2))) (LibrariesC-45DataC-45PosMap-appendTree3 (lambda (arg-941) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-941)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-1 arg-4 arg-5) (LibrariesC-45DataC-45PosMap-node2 arg-1 arg-6 arg-7) (LibrariesC-45DataC-45PosMap-node2 arg-1 e-17 e-18) arg-9)))) ((2) (let ((e-20 (vector-ref arg-8 1))) (let ((e-21 (vector-ref arg-8 2))) (let ((e-22 (vector-ref arg-8 3))) (LibrariesC-45DataC-45PosMap-appendTree3 (lambda (arg-941) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-941)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-1 arg-4 arg-5) (LibrariesC-45DataC-45PosMap-node3 arg-1 arg-6 arg-7 e-20) (LibrariesC-45DataC-45PosMap-node2 arg-1 e-21 e-22) arg-9))))) (else (let ((e-24 (vector-ref arg-8 1))) (let ((e-25 (vector-ref arg-8 2))) (let ((e-26 (vector-ref arg-8 3))) (let ((e-27 (vector-ref arg-8 4))) (LibrariesC-45DataC-45PosMap-appendTree3 (lambda (arg-941) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-941)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-1 arg-4 arg-5) (LibrariesC-45DataC-45PosMap-node3 arg-1 arg-6 arg-7 e-24) (LibrariesC-45DataC-45PosMap-node3 arg-1 e-25 e-26 e-27) arg-9))))))))) ((1) (let ((e-3 (vector-ref arg-3 1))) (let ((e-4 (vector-ref arg-3 2))) (case (vector-ref arg-8 0) ((0) (let ((e-29 (vector-ref arg-8 1))) (LibrariesC-45DataC-45PosMap-appendTree3 (lambda (arg-941) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-941)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-3 e-4 arg-4) (LibrariesC-45DataC-45PosMap-node2 arg-1 arg-5 arg-6) (LibrariesC-45DataC-45PosMap-node2 arg-1 arg-7 e-29) arg-9))) ((1) (let ((e-31 (vector-ref arg-8 1))) (let ((e-32 (vector-ref arg-8 2))) (LibrariesC-45DataC-45PosMap-appendTree3 (lambda (arg-941) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-941)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-3 e-4 arg-4) (LibrariesC-45DataC-45PosMap-node3 arg-1 arg-5 arg-6 arg-7) (LibrariesC-45DataC-45PosMap-node2 arg-1 e-31 e-32) arg-9)))) ((2) (let ((e-34 (vector-ref arg-8 1))) (let ((e-35 (vector-ref arg-8 2))) (let ((e-36 (vector-ref arg-8 3))) (LibrariesC-45DataC-45PosMap-appendTree3 (lambda (arg-941) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-941)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-3 e-4 arg-4) (LibrariesC-45DataC-45PosMap-node3 arg-1 arg-5 arg-6 arg-7) (LibrariesC-45DataC-45PosMap-node3 arg-1 e-34 e-35 e-36) arg-9))))) (else (let ((e-38 (vector-ref arg-8 1))) (let ((e-39 (vector-ref arg-8 2))) (let ((e-40 (vector-ref arg-8 3))) (let ((e-41 (vector-ref arg-8 4))) (LibrariesC-45DataC-45PosMap-appendTree4 (lambda (arg-941) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-941)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-3 e-4 arg-4) (LibrariesC-45DataC-45PosMap-node3 arg-1 arg-5 arg-6 arg-7) (LibrariesC-45DataC-45PosMap-node2 arg-1 e-38 e-39) (LibrariesC-45DataC-45PosMap-node2 arg-1 e-40 e-41) arg-9)))))))))) ((2) (let ((e-6 (vector-ref arg-3 1))) (let ((e-7 (vector-ref arg-3 2))) (let ((e-8 (vector-ref arg-3 3))) (case (vector-ref arg-8 0) ((0) (let ((e-43 (vector-ref arg-8 1))) (LibrariesC-45DataC-45PosMap-appendTree3 (lambda (arg-941) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-941)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-6 e-7 e-8) (LibrariesC-45DataC-45PosMap-node3 arg-1 arg-4 arg-5 arg-6) (LibrariesC-45DataC-45PosMap-node2 arg-1 arg-7 e-43) arg-9))) ((1) (let ((e-45 (vector-ref arg-8 1))) (let ((e-46 (vector-ref arg-8 2))) (LibrariesC-45DataC-45PosMap-appendTree3 (lambda (arg-941) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-941)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-6 e-7 e-8) (LibrariesC-45DataC-45PosMap-node3 arg-1 arg-4 arg-5 arg-6) (LibrariesC-45DataC-45PosMap-node3 arg-1 arg-7 e-45 e-46) arg-9)))) ((2) (let ((e-48 (vector-ref arg-8 1))) (let ((e-49 (vector-ref arg-8 2))) (let ((e-50 (vector-ref arg-8 3))) (LibrariesC-45DataC-45PosMap-appendTree4 (lambda (arg-941) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-941)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-6 e-7 e-8) (LibrariesC-45DataC-45PosMap-node3 arg-1 arg-4 arg-5 arg-6) (LibrariesC-45DataC-45PosMap-node2 arg-1 arg-7 e-48) (LibrariesC-45DataC-45PosMap-node2 arg-1 e-49 e-50) arg-9))))) (else (let ((e-52 (vector-ref arg-8 1))) (let ((e-53 (vector-ref arg-8 2))) (let ((e-54 (vector-ref arg-8 3))) (let ((e-55 (vector-ref arg-8 4))) (LibrariesC-45DataC-45PosMap-appendTree4 (lambda (arg-941) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-941)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-6 e-7 e-8) (LibrariesC-45DataC-45PosMap-node3 arg-1 arg-4 arg-5 arg-6) (LibrariesC-45DataC-45PosMap-node3 arg-1 arg-7 e-52 e-53) (LibrariesC-45DataC-45PosMap-node2 arg-1 e-54 e-55) arg-9))))))))))) (else (let ((e-10 (vector-ref arg-3 1))) (let ((e-11 (vector-ref arg-3 2))) (let ((e-12 (vector-ref arg-3 3))) (let ((e-13 (vector-ref arg-3 4))) (case (vector-ref arg-8 0) ((0) (let ((e-57 (vector-ref arg-8 1))) (LibrariesC-45DataC-45PosMap-appendTree3 (lambda (arg-941) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-941)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-10 e-11 e-12) (LibrariesC-45DataC-45PosMap-node3 arg-1 e-13 arg-4 arg-5) (LibrariesC-45DataC-45PosMap-node3 arg-1 arg-6 arg-7 e-57) arg-9))) ((1) (let ((e-59 (vector-ref arg-8 1))) (let ((e-60 (vector-ref arg-8 2))) (LibrariesC-45DataC-45PosMap-appendTree4 (lambda (arg-941) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-941)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-10 e-11 e-12) (LibrariesC-45DataC-45PosMap-node3 arg-1 e-13 arg-4 arg-5) (LibrariesC-45DataC-45PosMap-node2 arg-1 arg-6 arg-7) (LibrariesC-45DataC-45PosMap-node2 arg-1 e-59 e-60) arg-9)))) ((2) (let ((e-62 (vector-ref arg-8 1))) (let ((e-63 (vector-ref arg-8 2))) (let ((e-64 (vector-ref arg-8 3))) (LibrariesC-45DataC-45PosMap-appendTree4 (lambda (arg-941) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-941)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-10 e-11 e-12) (LibrariesC-45DataC-45PosMap-node3 arg-1 e-13 arg-4 arg-5) (LibrariesC-45DataC-45PosMap-node3 arg-1 arg-6 arg-7 e-62) (LibrariesC-45DataC-45PosMap-node2 arg-1 e-63 e-64) arg-9))))) (else (let ((e-66 (vector-ref arg-8 1))) (let ((e-67 (vector-ref arg-8 2))) (let ((e-68 (vector-ref arg-8 3))) (let ((e-69 (vector-ref arg-8 4))) (LibrariesC-45DataC-45PosMap-appendTree4 (lambda (arg-941) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-941)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-10 e-11 e-12) (LibrariesC-45DataC-45PosMap-node3 arg-1 e-13 arg-4 arg-5) (LibrariesC-45DataC-45PosMap-node3 arg-1 arg-6 arg-7 e-66) (LibrariesC-45DataC-45PosMap-node3 arg-1 e-67 e-68 e-69) arg-9))))))))))))))) +(define LibrariesC-45DataC-45PosMap-addDigits3 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (case (vector-ref arg-3 0) ((0) (let ((e-1 (vector-ref arg-3 1))) (case (vector-ref arg-7 0) ((0) (let ((e-15 (vector-ref arg-7 1))) (LibrariesC-45DataC-45PosMap-appendTree2 (lambda (arg-941) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-941)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-1 arg-4 arg-5) (LibrariesC-45DataC-45PosMap-node2 arg-1 arg-6 e-15) arg-8))) ((1) (let ((e-17 (vector-ref arg-7 1))) (let ((e-18 (vector-ref arg-7 2))) (LibrariesC-45DataC-45PosMap-appendTree2 (lambda (arg-941) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-941)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-1 arg-4 arg-5) (LibrariesC-45DataC-45PosMap-node3 arg-1 arg-6 e-17 e-18) arg-8)))) ((2) (let ((e-20 (vector-ref arg-7 1))) (let ((e-21 (vector-ref arg-7 2))) (let ((e-22 (vector-ref arg-7 3))) (LibrariesC-45DataC-45PosMap-appendTree3 (lambda (arg-941) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-941)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-1 arg-4 arg-5) (LibrariesC-45DataC-45PosMap-node2 arg-1 arg-6 e-20) (LibrariesC-45DataC-45PosMap-node2 arg-1 e-21 e-22) arg-8))))) (else (let ((e-24 (vector-ref arg-7 1))) (let ((e-25 (vector-ref arg-7 2))) (let ((e-26 (vector-ref arg-7 3))) (let ((e-27 (vector-ref arg-7 4))) (LibrariesC-45DataC-45PosMap-appendTree3 (lambda (arg-941) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-941)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-1 arg-4 arg-5) (LibrariesC-45DataC-45PosMap-node3 arg-1 arg-6 e-24 e-25) (LibrariesC-45DataC-45PosMap-node2 arg-1 e-26 e-27) arg-8))))))))) ((1) (let ((e-3 (vector-ref arg-3 1))) (let ((e-4 (vector-ref arg-3 2))) (case (vector-ref arg-7 0) ((0) (let ((e-29 (vector-ref arg-7 1))) (LibrariesC-45DataC-45PosMap-appendTree2 (lambda (arg-941) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-941)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-3 e-4 arg-4) (LibrariesC-45DataC-45PosMap-node3 arg-1 arg-5 arg-6 e-29) arg-8))) ((1) (let ((e-31 (vector-ref arg-7 1))) (let ((e-32 (vector-ref arg-7 2))) (LibrariesC-45DataC-45PosMap-appendTree3 (lambda (arg-941) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-941)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-3 e-4 arg-4) (LibrariesC-45DataC-45PosMap-node2 arg-1 arg-5 arg-6) (LibrariesC-45DataC-45PosMap-node2 arg-1 e-31 e-32) arg-8)))) ((2) (let ((e-34 (vector-ref arg-7 1))) (let ((e-35 (vector-ref arg-7 2))) (let ((e-36 (vector-ref arg-7 3))) (LibrariesC-45DataC-45PosMap-appendTree3 (lambda (arg-941) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-941)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-3 e-4 arg-4) (LibrariesC-45DataC-45PosMap-node3 arg-1 arg-5 arg-6 e-34) (LibrariesC-45DataC-45PosMap-node2 arg-1 e-35 e-36) arg-8))))) (else (let ((e-38 (vector-ref arg-7 1))) (let ((e-39 (vector-ref arg-7 2))) (let ((e-40 (vector-ref arg-7 3))) (let ((e-41 (vector-ref arg-7 4))) (LibrariesC-45DataC-45PosMap-appendTree3 (lambda (arg-941) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-941)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-3 e-4 arg-4) (LibrariesC-45DataC-45PosMap-node3 arg-1 arg-5 arg-6 e-38) (LibrariesC-45DataC-45PosMap-node3 arg-1 e-39 e-40 e-41) arg-8)))))))))) ((2) (let ((e-6 (vector-ref arg-3 1))) (let ((e-7 (vector-ref arg-3 2))) (let ((e-8 (vector-ref arg-3 3))) (case (vector-ref arg-7 0) ((0) (let ((e-43 (vector-ref arg-7 1))) (LibrariesC-45DataC-45PosMap-appendTree3 (lambda (arg-941) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-941)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-6 e-7 e-8) (LibrariesC-45DataC-45PosMap-node2 arg-1 arg-4 arg-5) (LibrariesC-45DataC-45PosMap-node2 arg-1 arg-6 e-43) arg-8))) ((1) (let ((e-45 (vector-ref arg-7 1))) (let ((e-46 (vector-ref arg-7 2))) (LibrariesC-45DataC-45PosMap-appendTree3 (lambda (arg-941) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-941)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-6 e-7 e-8) (LibrariesC-45DataC-45PosMap-node3 arg-1 arg-4 arg-5 arg-6) (LibrariesC-45DataC-45PosMap-node2 arg-1 e-45 e-46) arg-8)))) ((2) (let ((e-48 (vector-ref arg-7 1))) (let ((e-49 (vector-ref arg-7 2))) (let ((e-50 (vector-ref arg-7 3))) (LibrariesC-45DataC-45PosMap-appendTree3 (lambda (arg-941) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-941)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-6 e-7 e-8) (LibrariesC-45DataC-45PosMap-node3 arg-1 arg-4 arg-5 arg-6) (LibrariesC-45DataC-45PosMap-node3 arg-1 e-48 e-49 e-50) arg-8))))) (else (let ((e-52 (vector-ref arg-7 1))) (let ((e-53 (vector-ref arg-7 2))) (let ((e-54 (vector-ref arg-7 3))) (let ((e-55 (vector-ref arg-7 4))) (LibrariesC-45DataC-45PosMap-appendTree4 (lambda (arg-941) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-941)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-6 e-7 e-8) (LibrariesC-45DataC-45PosMap-node3 arg-1 arg-4 arg-5 arg-6) (LibrariesC-45DataC-45PosMap-node2 arg-1 e-52 e-53) (LibrariesC-45DataC-45PosMap-node2 arg-1 e-54 e-55) arg-8))))))))))) (else (let ((e-10 (vector-ref arg-3 1))) (let ((e-11 (vector-ref arg-3 2))) (let ((e-12 (vector-ref arg-3 3))) (let ((e-13 (vector-ref arg-3 4))) (case (vector-ref arg-7 0) ((0) (let ((e-57 (vector-ref arg-7 1))) (LibrariesC-45DataC-45PosMap-appendTree3 (lambda (arg-941) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-941)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-10 e-11 e-12) (LibrariesC-45DataC-45PosMap-node3 arg-1 e-13 arg-4 arg-5) (LibrariesC-45DataC-45PosMap-node2 arg-1 arg-6 e-57) arg-8))) ((1) (let ((e-59 (vector-ref arg-7 1))) (let ((e-60 (vector-ref arg-7 2))) (LibrariesC-45DataC-45PosMap-appendTree3 (lambda (arg-941) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-941)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-10 e-11 e-12) (LibrariesC-45DataC-45PosMap-node3 arg-1 e-13 arg-4 arg-5) (LibrariesC-45DataC-45PosMap-node3 arg-1 arg-6 e-59 e-60) arg-8)))) ((2) (let ((e-62 (vector-ref arg-7 1))) (let ((e-63 (vector-ref arg-7 2))) (let ((e-64 (vector-ref arg-7 3))) (LibrariesC-45DataC-45PosMap-appendTree4 (lambda (arg-941) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-941)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-10 e-11 e-12) (LibrariesC-45DataC-45PosMap-node3 arg-1 e-13 arg-4 arg-5) (LibrariesC-45DataC-45PosMap-node2 arg-1 arg-6 e-62) (LibrariesC-45DataC-45PosMap-node2 arg-1 e-63 e-64) arg-8))))) (else (let ((e-66 (vector-ref arg-7 1))) (let ((e-67 (vector-ref arg-7 2))) (let ((e-68 (vector-ref arg-7 3))) (let ((e-69 (vector-ref arg-7 4))) (LibrariesC-45DataC-45PosMap-appendTree4 (lambda (arg-941) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-941)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-10 e-11 e-12) (LibrariesC-45DataC-45PosMap-node3 arg-1 e-13 arg-4 arg-5) (LibrariesC-45DataC-45PosMap-node3 arg-1 arg-6 e-66 e-67) (LibrariesC-45DataC-45PosMap-node2 arg-1 e-68 e-69) arg-8))))))))))))))) +(define LibrariesC-45DataC-45PosMap-addDigits2 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (case (vector-ref arg-3 0) ((0) (let ((e-1 (vector-ref arg-3 1))) (case (vector-ref arg-6 0) ((0) (let ((e-15 (vector-ref arg-6 1))) (LibrariesC-45DataC-45PosMap-appendTree2 (lambda (arg-941) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-941)) arg-2 (LibrariesC-45DataC-45PosMap-node2 arg-1 e-1 arg-4) (LibrariesC-45DataC-45PosMap-node2 arg-1 arg-5 e-15) arg-7))) ((1) (let ((e-17 (vector-ref arg-6 1))) (let ((e-18 (vector-ref arg-6 2))) (LibrariesC-45DataC-45PosMap-appendTree2 (lambda (arg-941) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-941)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-1 arg-4 arg-5) (LibrariesC-45DataC-45PosMap-node2 arg-1 e-17 e-18) arg-7)))) ((2) (let ((e-20 (vector-ref arg-6 1))) (let ((e-21 (vector-ref arg-6 2))) (let ((e-22 (vector-ref arg-6 3))) (LibrariesC-45DataC-45PosMap-appendTree2 (lambda (arg-941) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-941)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-1 arg-4 arg-5) (LibrariesC-45DataC-45PosMap-node3 arg-1 e-20 e-21 e-22) arg-7))))) (else (let ((e-24 (vector-ref arg-6 1))) (let ((e-25 (vector-ref arg-6 2))) (let ((e-26 (vector-ref arg-6 3))) (let ((e-27 (vector-ref arg-6 4))) (LibrariesC-45DataC-45PosMap-appendTree3 (lambda (arg-941) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-941)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-1 arg-4 arg-5) (LibrariesC-45DataC-45PosMap-node2 arg-1 e-24 e-25) (LibrariesC-45DataC-45PosMap-node2 arg-1 e-26 e-27) arg-7))))))))) ((1) (let ((e-3 (vector-ref arg-3 1))) (let ((e-4 (vector-ref arg-3 2))) (case (vector-ref arg-6 0) ((0) (let ((e-29 (vector-ref arg-6 1))) (LibrariesC-45DataC-45PosMap-appendTree2 (lambda (arg-941) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-941)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-3 e-4 arg-4) (LibrariesC-45DataC-45PosMap-node2 arg-1 arg-5 e-29) arg-7))) ((1) (let ((e-31 (vector-ref arg-6 1))) (let ((e-32 (vector-ref arg-6 2))) (LibrariesC-45DataC-45PosMap-appendTree2 (lambda (arg-941) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-941)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-3 e-4 arg-4) (LibrariesC-45DataC-45PosMap-node3 arg-1 arg-5 e-31 e-32) arg-7)))) ((2) (let ((e-34 (vector-ref arg-6 1))) (let ((e-35 (vector-ref arg-6 2))) (let ((e-36 (vector-ref arg-6 3))) (LibrariesC-45DataC-45PosMap-appendTree3 (lambda (arg-941) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-941)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-3 e-4 arg-4) (LibrariesC-45DataC-45PosMap-node2 arg-1 arg-5 e-34) (LibrariesC-45DataC-45PosMap-node2 arg-1 e-35 e-36) arg-7))))) (else (let ((e-38 (vector-ref arg-6 1))) (let ((e-39 (vector-ref arg-6 2))) (let ((e-40 (vector-ref arg-6 3))) (let ((e-41 (vector-ref arg-6 4))) (LibrariesC-45DataC-45PosMap-appendTree3 (lambda (arg-941) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-941)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-3 e-4 arg-4) (LibrariesC-45DataC-45PosMap-node3 arg-1 arg-5 e-38 e-39) (LibrariesC-45DataC-45PosMap-node2 arg-1 e-40 e-41) arg-7)))))))))) ((2) (let ((e-6 (vector-ref arg-3 1))) (let ((e-7 (vector-ref arg-3 2))) (let ((e-8 (vector-ref arg-3 3))) (case (vector-ref arg-6 0) ((0) (let ((e-43 (vector-ref arg-6 1))) (LibrariesC-45DataC-45PosMap-appendTree2 (lambda (arg-941) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-941)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-6 e-7 e-8) (LibrariesC-45DataC-45PosMap-node3 arg-1 arg-4 arg-5 e-43) arg-7))) ((1) (let ((e-45 (vector-ref arg-6 1))) (let ((e-46 (vector-ref arg-6 2))) (LibrariesC-45DataC-45PosMap-appendTree3 (lambda (arg-941) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-941)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-6 e-7 e-8) (LibrariesC-45DataC-45PosMap-node2 arg-1 arg-4 arg-5) (LibrariesC-45DataC-45PosMap-node2 arg-1 e-45 e-46) arg-7)))) ((2) (let ((e-48 (vector-ref arg-6 1))) (let ((e-49 (vector-ref arg-6 2))) (let ((e-50 (vector-ref arg-6 3))) (LibrariesC-45DataC-45PosMap-appendTree3 (lambda (arg-941) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-941)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-6 e-7 e-8) (LibrariesC-45DataC-45PosMap-node3 arg-1 arg-4 arg-5 e-48) (LibrariesC-45DataC-45PosMap-node2 arg-1 e-49 e-50) arg-7))))) (else (let ((e-52 (vector-ref arg-6 1))) (let ((e-53 (vector-ref arg-6 2))) (let ((e-54 (vector-ref arg-6 3))) (let ((e-55 (vector-ref arg-6 4))) (LibrariesC-45DataC-45PosMap-appendTree3 (lambda (arg-941) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-941)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-6 e-7 e-8) (LibrariesC-45DataC-45PosMap-node3 arg-1 arg-4 arg-5 e-52) (LibrariesC-45DataC-45PosMap-node3 arg-1 e-53 e-54 e-55) arg-7))))))))))) (else (let ((e-10 (vector-ref arg-3 1))) (let ((e-11 (vector-ref arg-3 2))) (let ((e-12 (vector-ref arg-3 3))) (let ((e-13 (vector-ref arg-3 4))) (case (vector-ref arg-6 0) ((0) (let ((e-57 (vector-ref arg-6 1))) (LibrariesC-45DataC-45PosMap-appendTree3 (lambda (arg-941) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-941)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-10 e-11 e-12) (LibrariesC-45DataC-45PosMap-node2 arg-1 e-13 arg-4) (LibrariesC-45DataC-45PosMap-node2 arg-1 arg-5 e-57) arg-7))) ((1) (let ((e-59 (vector-ref arg-6 1))) (let ((e-60 (vector-ref arg-6 2))) (LibrariesC-45DataC-45PosMap-appendTree3 (lambda (arg-941) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-941)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-10 e-11 e-12) (LibrariesC-45DataC-45PosMap-node3 arg-1 e-13 arg-4 arg-5) (LibrariesC-45DataC-45PosMap-node2 arg-1 e-59 e-60) arg-7)))) ((2) (let ((e-62 (vector-ref arg-6 1))) (let ((e-63 (vector-ref arg-6 2))) (let ((e-64 (vector-ref arg-6 3))) (LibrariesC-45DataC-45PosMap-appendTree3 (lambda (arg-941) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-941)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-10 e-11 e-12) (LibrariesC-45DataC-45PosMap-node3 arg-1 e-13 arg-4 arg-5) (LibrariesC-45DataC-45PosMap-node3 arg-1 e-62 e-63 e-64) arg-7))))) (else (let ((e-66 (vector-ref arg-6 1))) (let ((e-67 (vector-ref arg-6 2))) (let ((e-68 (vector-ref arg-6 3))) (let ((e-69 (vector-ref arg-6 4))) (LibrariesC-45DataC-45PosMap-appendTree4 (lambda (arg-941) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-941)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-10 e-11 e-12) (LibrariesC-45DataC-45PosMap-node3 arg-1 e-13 arg-4 arg-5) (LibrariesC-45DataC-45PosMap-node2 arg-1 e-66 e-67) (LibrariesC-45DataC-45PosMap-node2 arg-1 e-68 e-69) arg-7))))))))))))))) +(define LibrariesC-45DataC-45PosMap-addDigits1 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (case (vector-ref arg-3 0) ((0) (let ((e-1 (vector-ref arg-3 1))) (case (vector-ref arg-5 0) ((0) (let ((e-15 (vector-ref arg-5 1))) (LibrariesC-45DataC-45PosMap-appendTree1 (lambda (arg-941) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-941)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-1 arg-4 e-15) arg-6))) ((1) (let ((e-17 (vector-ref arg-5 1))) (let ((e-18 (vector-ref arg-5 2))) (LibrariesC-45DataC-45PosMap-appendTree2 (lambda (arg-941) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-941)) arg-2 (LibrariesC-45DataC-45PosMap-node2 arg-1 e-1 arg-4) (LibrariesC-45DataC-45PosMap-node2 arg-1 e-17 e-18) arg-6)))) ((2) (let ((e-20 (vector-ref arg-5 1))) (let ((e-21 (vector-ref arg-5 2))) (let ((e-22 (vector-ref arg-5 3))) (LibrariesC-45DataC-45PosMap-appendTree2 (lambda (arg-941) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-941)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-1 arg-4 e-20) (LibrariesC-45DataC-45PosMap-node2 arg-1 e-21 e-22) arg-6))))) (else (let ((e-24 (vector-ref arg-5 1))) (let ((e-25 (vector-ref arg-5 2))) (let ((e-26 (vector-ref arg-5 3))) (let ((e-27 (vector-ref arg-5 4))) (LibrariesC-45DataC-45PosMap-appendTree2 (lambda (arg-941) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-941)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-1 arg-4 e-24) (LibrariesC-45DataC-45PosMap-node3 arg-1 e-25 e-26 e-27) arg-6))))))))) ((1) (let ((e-3 (vector-ref arg-3 1))) (let ((e-4 (vector-ref arg-3 2))) (case (vector-ref arg-5 0) ((0) (let ((e-29 (vector-ref arg-5 1))) (LibrariesC-45DataC-45PosMap-appendTree2 (lambda (arg-941) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-941)) arg-2 (LibrariesC-45DataC-45PosMap-node2 arg-1 e-3 e-4) (LibrariesC-45DataC-45PosMap-node2 arg-1 arg-4 e-29) arg-6))) ((1) (let ((e-31 (vector-ref arg-5 1))) (let ((e-32 (vector-ref arg-5 2))) (LibrariesC-45DataC-45PosMap-appendTree2 (lambda (arg-941) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-941)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-3 e-4 arg-4) (LibrariesC-45DataC-45PosMap-node2 arg-1 e-31 e-32) arg-6)))) ((2) (let ((e-34 (vector-ref arg-5 1))) (let ((e-35 (vector-ref arg-5 2))) (let ((e-36 (vector-ref arg-5 3))) (LibrariesC-45DataC-45PosMap-appendTree2 (lambda (arg-941) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-941)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-3 e-4 arg-4) (LibrariesC-45DataC-45PosMap-node3 arg-1 e-34 e-35 e-36) arg-6))))) (else (let ((e-38 (vector-ref arg-5 1))) (let ((e-39 (vector-ref arg-5 2))) (let ((e-40 (vector-ref arg-5 3))) (let ((e-41 (vector-ref arg-5 4))) (LibrariesC-45DataC-45PosMap-appendTree3 (lambda (arg-941) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-941)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-3 e-4 arg-4) (LibrariesC-45DataC-45PosMap-node2 arg-1 e-38 e-39) (LibrariesC-45DataC-45PosMap-node2 arg-1 e-40 e-41) arg-6)))))))))) ((2) (let ((e-6 (vector-ref arg-3 1))) (let ((e-7 (vector-ref arg-3 2))) (let ((e-8 (vector-ref arg-3 3))) (case (vector-ref arg-5 0) ((0) (let ((e-43 (vector-ref arg-5 1))) (LibrariesC-45DataC-45PosMap-appendTree2 (lambda (arg-941) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-941)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-6 e-7 e-8) (LibrariesC-45DataC-45PosMap-node2 arg-1 arg-4 e-43) arg-6))) ((1) (let ((e-45 (vector-ref arg-5 1))) (let ((e-46 (vector-ref arg-5 2))) (LibrariesC-45DataC-45PosMap-appendTree2 (lambda (arg-941) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-941)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-6 e-7 e-8) (LibrariesC-45DataC-45PosMap-node3 arg-1 arg-4 e-45 e-46) arg-6)))) ((2) (let ((e-48 (vector-ref arg-5 1))) (let ((e-49 (vector-ref arg-5 2))) (let ((e-50 (vector-ref arg-5 3))) (LibrariesC-45DataC-45PosMap-appendTree3 (lambda (arg-941) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-941)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-6 e-7 e-8) (LibrariesC-45DataC-45PosMap-node2 arg-1 arg-4 e-48) (LibrariesC-45DataC-45PosMap-node2 arg-1 e-49 e-50) arg-6))))) (else (let ((e-52 (vector-ref arg-5 1))) (let ((e-53 (vector-ref arg-5 2))) (let ((e-54 (vector-ref arg-5 3))) (let ((e-55 (vector-ref arg-5 4))) (LibrariesC-45DataC-45PosMap-appendTree3 (lambda (arg-941) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-941)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-6 e-7 e-8) (LibrariesC-45DataC-45PosMap-node3 arg-1 arg-4 e-52 e-53) (LibrariesC-45DataC-45PosMap-node2 arg-1 e-54 e-55) arg-6))))))))))) (else (let ((e-10 (vector-ref arg-3 1))) (let ((e-11 (vector-ref arg-3 2))) (let ((e-12 (vector-ref arg-3 3))) (let ((e-13 (vector-ref arg-3 4))) (case (vector-ref arg-5 0) ((0) (let ((e-57 (vector-ref arg-5 1))) (LibrariesC-45DataC-45PosMap-appendTree2 (lambda (arg-941) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-941)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-10 e-11 e-12) (LibrariesC-45DataC-45PosMap-node3 arg-1 e-13 arg-4 e-57) arg-6))) ((1) (let ((e-59 (vector-ref arg-5 1))) (let ((e-60 (vector-ref arg-5 2))) (LibrariesC-45DataC-45PosMap-appendTree3 (lambda (arg-941) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-941)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-10 e-11 e-12) (LibrariesC-45DataC-45PosMap-node2 arg-1 e-13 arg-4) (LibrariesC-45DataC-45PosMap-node2 arg-1 e-59 e-60) arg-6)))) ((2) (let ((e-62 (vector-ref arg-5 1))) (let ((e-63 (vector-ref arg-5 2))) (let ((e-64 (vector-ref arg-5 3))) (LibrariesC-45DataC-45PosMap-appendTree3 (lambda (arg-941) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-941)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-10 e-11 e-12) (LibrariesC-45DataC-45PosMap-node3 arg-1 e-13 arg-4 e-62) (LibrariesC-45DataC-45PosMap-node2 arg-1 e-63 e-64) arg-6))))) (else (let ((e-66 (vector-ref arg-5 1))) (let ((e-67 (vector-ref arg-5 2))) (let ((e-68 (vector-ref arg-5 3))) (let ((e-69 (vector-ref arg-5 4))) (LibrariesC-45DataC-45PosMap-appendTree3 (lambda (arg-941) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-941)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-10 e-11 e-12) (LibrariesC-45DataC-45PosMap-node3 arg-1 e-13 arg-4 e-66) (LibrariesC-45DataC-45PosMap-node3 arg-1 e-67 e-68 e-69) arg-6))))))))))))))) +(define LibrariesC-45DataC-45PosMap-addDigits0 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5) (case (vector-ref arg-3 0) ((0) (let ((e-1 (vector-ref arg-3 1))) (case (vector-ref arg-4 0) ((0) (let ((e-15 (vector-ref arg-4 1))) (LibrariesC-45DataC-45PosMap-appendTree1 (lambda (arg-941) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-941)) arg-2 (LibrariesC-45DataC-45PosMap-node2 arg-1 e-1 e-15) arg-5))) ((1) (let ((e-17 (vector-ref arg-4 1))) (let ((e-18 (vector-ref arg-4 2))) (LibrariesC-45DataC-45PosMap-appendTree1 (lambda (arg-941) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-941)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-1 e-17 e-18) arg-5)))) ((2) (let ((e-20 (vector-ref arg-4 1))) (let ((e-21 (vector-ref arg-4 2))) (let ((e-22 (vector-ref arg-4 3))) (LibrariesC-45DataC-45PosMap-appendTree2 (lambda (arg-941) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-941)) arg-2 (LibrariesC-45DataC-45PosMap-node2 arg-1 e-1 e-20) (LibrariesC-45DataC-45PosMap-node2 arg-1 e-21 e-22) arg-5))))) (else (let ((e-24 (vector-ref arg-4 1))) (let ((e-25 (vector-ref arg-4 2))) (let ((e-26 (vector-ref arg-4 3))) (let ((e-27 (vector-ref arg-4 4))) (LibrariesC-45DataC-45PosMap-appendTree2 (lambda (arg-941) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-941)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-1 e-24 e-25) (LibrariesC-45DataC-45PosMap-node2 arg-1 e-26 e-27) arg-5))))))))) ((1) (let ((e-3 (vector-ref arg-3 1))) (let ((e-4 (vector-ref arg-3 2))) (case (vector-ref arg-4 0) ((0) (let ((e-29 (vector-ref arg-4 1))) (LibrariesC-45DataC-45PosMap-appendTree1 (lambda (arg-941) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-941)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-3 e-4 e-29) arg-5))) ((1) (let ((e-31 (vector-ref arg-4 1))) (let ((e-32 (vector-ref arg-4 2))) (LibrariesC-45DataC-45PosMap-appendTree2 (lambda (arg-941) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-941)) arg-2 (LibrariesC-45DataC-45PosMap-node2 arg-1 e-3 e-4) (LibrariesC-45DataC-45PosMap-node2 arg-1 e-31 e-32) arg-5)))) ((2) (let ((e-34 (vector-ref arg-4 1))) (let ((e-35 (vector-ref arg-4 2))) (let ((e-36 (vector-ref arg-4 3))) (LibrariesC-45DataC-45PosMap-appendTree2 (lambda (arg-941) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-941)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-3 e-4 e-34) (LibrariesC-45DataC-45PosMap-node2 arg-1 e-35 e-36) arg-5))))) (else (let ((e-38 (vector-ref arg-4 1))) (let ((e-39 (vector-ref arg-4 2))) (let ((e-40 (vector-ref arg-4 3))) (let ((e-41 (vector-ref arg-4 4))) (LibrariesC-45DataC-45PosMap-appendTree2 (lambda (arg-941) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-941)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-3 e-4 e-38) (LibrariesC-45DataC-45PosMap-node3 arg-1 e-39 e-40 e-41) arg-5)))))))))) ((2) (let ((e-6 (vector-ref arg-3 1))) (let ((e-7 (vector-ref arg-3 2))) (let ((e-8 (vector-ref arg-3 3))) (case (vector-ref arg-4 0) ((0) (let ((e-43 (vector-ref arg-4 1))) (LibrariesC-45DataC-45PosMap-appendTree2 (lambda (arg-941) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-941)) arg-2 (LibrariesC-45DataC-45PosMap-node2 arg-1 e-6 e-7) (LibrariesC-45DataC-45PosMap-node2 arg-1 e-8 e-43) arg-5))) ((1) (let ((e-45 (vector-ref arg-4 1))) (let ((e-46 (vector-ref arg-4 2))) (LibrariesC-45DataC-45PosMap-appendTree2 (lambda (arg-941) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-941)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-6 e-7 e-8) (LibrariesC-45DataC-45PosMap-node2 arg-1 e-45 e-46) arg-5)))) ((2) (let ((e-48 (vector-ref arg-4 1))) (let ((e-49 (vector-ref arg-4 2))) (let ((e-50 (vector-ref arg-4 3))) (LibrariesC-45DataC-45PosMap-appendTree2 (lambda (arg-941) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-941)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-6 e-7 e-8) (LibrariesC-45DataC-45PosMap-node3 arg-1 e-48 e-49 e-50) arg-5))))) (else (let ((e-52 (vector-ref arg-4 1))) (let ((e-53 (vector-ref arg-4 2))) (let ((e-54 (vector-ref arg-4 3))) (let ((e-55 (vector-ref arg-4 4))) (LibrariesC-45DataC-45PosMap-appendTree3 (lambda (arg-941) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-941)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-6 e-7 e-8) (LibrariesC-45DataC-45PosMap-node2 arg-1 e-52 e-53) (LibrariesC-45DataC-45PosMap-node2 arg-1 e-54 e-55) arg-5))))))))))) (else (let ((e-10 (vector-ref arg-3 1))) (let ((e-11 (vector-ref arg-3 2))) (let ((e-12 (vector-ref arg-3 3))) (let ((e-13 (vector-ref arg-3 4))) (case (vector-ref arg-4 0) ((0) (let ((e-57 (vector-ref arg-4 1))) (LibrariesC-45DataC-45PosMap-appendTree2 (lambda (arg-941) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-941)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-10 e-11 e-12) (LibrariesC-45DataC-45PosMap-node2 arg-1 e-13 e-57) arg-5))) ((1) (let ((e-59 (vector-ref arg-4 1))) (let ((e-60 (vector-ref arg-4 2))) (LibrariesC-45DataC-45PosMap-appendTree2 (lambda (arg-941) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-941)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-10 e-11 e-12) (LibrariesC-45DataC-45PosMap-node3 arg-1 e-13 e-59 e-60) arg-5)))) ((2) (let ((e-62 (vector-ref arg-4 1))) (let ((e-63 (vector-ref arg-4 2))) (let ((e-64 (vector-ref arg-4 3))) (LibrariesC-45DataC-45PosMap-appendTree3 (lambda (arg-941) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-941)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-10 e-11 e-12) (LibrariesC-45DataC-45PosMap-node2 arg-1 e-13 e-62) (LibrariesC-45DataC-45PosMap-node2 arg-1 e-63 e-64) arg-5))))) (else (let ((e-66 (vector-ref arg-4 1))) (let ((e-67 (vector-ref arg-4 2))) (let ((e-68 (vector-ref arg-4 3))) (let ((e-69 (vector-ref arg-4 4))) (LibrariesC-45DataC-45PosMap-appendTree3 (lambda (arg-941) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-941)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-10 e-11 e-12) (LibrariesC-45DataC-45PosMap-node3 arg-1 e-13 e-66 e-67) (LibrariesC-45DataC-45PosMap-node2 arg-1 e-68 e-69) arg-5))))))))))))))) +(define LibrariesC-45DataC-45PosMap-C-60C-124 (lambda (arg-1 arg-2 arg-3) (case (vector-ref arg-3 0) ((0) (vector 1 arg-2)) ((1) (let ((e-2 (vector-ref arg-3 1))) (LibrariesC-45DataC-45PosMap-deep arg-1 (vector 0 arg-2) (vector 0 ) (vector 0 e-2)))) (else (let ((e-5 (vector-ref arg-3 2))) (let ((e-6 (vector-ref arg-3 3))) (let ((e-7 (vector-ref arg-3 4))) (case (vector-ref e-5 0) ((0) (let ((e-9 (vector-ref e-5 1))) (LibrariesC-45DataC-45PosMap-deep arg-1 (vector 1 arg-2 e-9) e-6 e-7))) ((1) (let ((e-11 (vector-ref e-5 1))) (let ((e-12 (vector-ref e-5 2))) (LibrariesC-45DataC-45PosMap-deep arg-1 (vector 2 arg-2 e-11 e-12) e-6 e-7)))) ((2) (let ((e-14 (vector-ref e-5 1))) (let ((e-15 (vector-ref e-5 2))) (let ((e-16 (vector-ref e-5 3))) (LibrariesC-45DataC-45PosMap-deep arg-1 (vector 3 arg-2 e-14 e-15 e-16) e-6 e-7))))) (else (let ((e-18 (vector-ref e-5 1))) (let ((e-19 (vector-ref e-5 2))) (let ((e-20 (vector-ref e-5 3))) (let ((e-21 (vector-ref e-5 4))) (LibrariesC-45DataC-45PosMap-deep arg-1 (vector 1 arg-2 e-18) (LibrariesC-45DataC-45PosMap-C-60C-124 (lambda (arg-941) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-941)) (LibrariesC-45DataC-45PosMap-node3 arg-1 e-19 e-20 e-21) e-6) e-7)))))))))))))) +(define LibrariesC-45DataC-45PosMap-C-43C-43 (lambda (arg-1 arg-2 arg-3) (LibrariesC-45DataC-45PosMap-appendTree0 arg-1 arg-2 arg-3))) +(define CoreC-45FC-u--show_Show_VirtualIdent (lambda (arg-0) (cond (else "(Interactive)")))) +(define CoreC-45FC-u--show_Show_OriginDesc (lambda (arg-0) (case (vector-ref arg-0 0) ((0) (let ((e-0 (vector-ref arg-0 1))) (CoreC-45NameC-45Namespace-u--show_Show_ModuleIdent e-0))) ((1) (let ((e-1 (vector-ref arg-0 1))) (PreludeC-45Show-u--show_Show_String e-1))) (else (let ((e-2 (vector-ref arg-0 1))) (CoreC-45FC-u--show_Show_VirtualIdent e-2)))))) +(define CoreC-45FC-u--show_Show_FC (lambda (arg-0) (case (vector-ref arg-0 0) ((2) "EmptyFC") ((0) (let ((e-0 (vector-ref arg-0 1))) (let ((e-1 (vector-ref arg-0 2))) (let ((e-2 (vector-ref arg-0 3))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_OriginDesc e-0) (PreludeC-45TypesC-45String-C-43C-43 ":" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-showPos e-1) (PreludeC-45TypesC-45String-C-43C-43 "--" (CoreC-45FC-showPos e-2))))))))) (else (let ((e-3 (vector-ref arg-0 1))) (let ((e-4 (vector-ref arg-0 2))) (let ((e-5 (vector-ref arg-0 3))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_OriginDesc e-3) (PreludeC-45TypesC-45String-C-43C-43 ":" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-showPos e-4) (PreludeC-45TypesC-45String-C-43C-43 "--" (CoreC-45FC-showPos e-5)))))))))))) +(define CoreC-45FC-u--showPrec_Show_OriginDesc (lambda (arg-0 arg-1) (CoreC-45FC-u--show_Show_OriginDesc arg-1))) +(define CoreC-45FC-u--showPrec_Show_FC (lambda (arg-0 arg-1) (CoreC-45FC-u--show_Show_FC arg-1))) +(define CoreC-45FC-u--pretty_Pretty_OriginDesc (lambda (ext-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String (CoreC-45FC-u--show_Show_OriginDesc ext-0)))) +(define CoreC-45FC-u--pretty_Pretty_FC (lambda (arg-1) (case (vector-ref arg-1 0) ((2) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "EmptyFC")) ((0) (let ((e-0 (vector-ref arg-1 1))) (let ((e-1 (vector-ref arg-1 2))) (let ((e-2 (vector-ref arg-1 3))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (CoreC-45FC-u--pretty_Pretty_OriginDesc e-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon)) (CoreC-45FC-prettyPos e-1)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "--")) (CoreC-45FC-prettyPos e-2)))))) (else (let ((e-3 (vector-ref arg-1 1))) (let ((e-4 (vector-ref arg-1 2))) (let ((e-5 (vector-ref arg-1 3))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (CoreC-45FC-u--pretty_Pretty_OriginDesc e-3) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon)) (CoreC-45FC-prettyPos e-4)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "--")) (CoreC-45FC-prettyPos e-5))))))))) +(define CoreC-45FC-u--prettyPrec_Pretty_FC (lambda (arg-1 arg-2) (CoreC-45FC-u--pretty_Pretty_FC arg-2))) +(define CoreC-45FC-u--C-61C-61_Eq_VirtualIdent (lambda (arg-0 arg-1) (cond (else (cond (else 1)))))) +(define CoreC-45FC-u--C-61C-61_Eq_OriginDesc (lambda (arg-0 arg-1) (case (vector-ref arg-0 0) ((0) (let ((e-0 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((0) (let ((e-3 (vector-ref arg-1 1))) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_ModuleIdent e-0 e-3)))(else 0)))) ((1) (let ((e-1 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((1) (let ((e-4 (vector-ref arg-1 1))) (PreludeC-45EqOrd-u--C-61C-61_Eq_String e-1 e-4)))(else 0)))) ((2) (let ((e-2 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((2) (let ((e-5 (vector-ref arg-1 1))) (CoreC-45FC-u--C-61C-61_Eq_VirtualIdent e-2 e-5)))(else 0))))(else 0)))) +(define CoreC-45FC-u--C-61C-61_Eq_FC (lambda (arg-0 arg-1) (case (vector-ref arg-0 0) ((0) (let ((e-0 (vector-ref arg-0 1))) (let ((e-1 (vector-ref arg-0 2))) (let ((e-2 (vector-ref arg-0 3))) (case (vector-ref arg-1 0) ((0) (let ((e-6 (vector-ref arg-1 1))) (let ((e-7 (vector-ref arg-1 2))) (let ((e-8 (vector-ref arg-1 3))) (let ((sc2 (CoreC-45FC-u--C-61C-61_Eq_OriginDesc e-0 e-6))) (cond ((equal? sc2 1) (let ((sc3 (PreludeC-45EqOrd-u--C-61C-61_Eq_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) e-1 e-7))) (cond ((equal? sc3 1) (PreludeC-45EqOrd-u--C-61C-61_Eq_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) e-2 e-8)) (else 0)))) (else 0)))))))(else 0)))))) ((1) (let ((e-3 (vector-ref arg-0 1))) (let ((e-4 (vector-ref arg-0 2))) (let ((e-5 (vector-ref arg-0 3))) (case (vector-ref arg-1 0) ((1) (let ((e-9 (vector-ref arg-1 1))) (let ((e-10 (vector-ref arg-1 2))) (let ((e-11 (vector-ref arg-1 3))) (let ((sc2 (CoreC-45FC-u--C-61C-61_Eq_OriginDesc e-3 e-9))) (cond ((equal? sc2 1) (let ((sc3 (PreludeC-45EqOrd-u--C-61C-61_Eq_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) e-4 e-10))) (cond ((equal? sc3 1) (PreludeC-45EqOrd-u--C-61C-61_Eq_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) e-5 e-11)) (else 0)))) (else 0)))))))(else 0)))))) ((2) (case (vector-ref arg-1 0) ((2) 1)(else 0)))(else 0)))) +(define CoreC-45FC-within (lambda (arg-0 arg-1) (let ((e-2 (car arg-0))) (let ((e-3 (cdr arg-0))) (let ((e-7 (cdr arg-1))) (let ((e-10 (car e-7))) (let ((e-11 (cdr e-7))) (let ((sc3 (PreludeC-45EqOrd-u--C-62C-61_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) (vector (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) (cons e-2 e-3) e-10))) (cond ((equal? sc3 1) (PreludeC-45EqOrd-u--C-60C-61_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) (vector (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) (cons e-2 e-3) e-11)) (else 0)))))))))) +(define CoreC-45FC-virtualiseFC (lambda (arg-0) (case (vector-ref arg-0 0) ((0) (let ((e-0 (vector-ref arg-0 1))) (let ((e-1 (vector-ref arg-0 2))) (let ((e-2 (vector-ref arg-0 3))) (vector 1 e-0 e-1 e-2)))))(else arg-0)))) +(define CoreC-45FC-toNonEmptyFC (lambda (ext-0) (DataC-45Maybe-fromMaybe (lambda () (CoreC-45FC-defaultFC)) (CoreC-45FC-isNonEmptyFC ext-0)))) +(define CoreC-45FC-startPos (lambda (arg-0) (let ((e-3 (cdr arg-0))) (let ((e-6 (car e-3))) e-6)))) +(define CoreC-45FC-startLine (lambda (ext-0) (Builtin-fst (CoreC-45FC-startPos ext-0)))) +(define CoreC-45FC-startCol (lambda (ext-0) (Builtin-snd (CoreC-45FC-startPos ext-0)))) +(define CoreC-45FC-showPos (lambda (arg-0) (let ((e-2 (car arg-0))) (let ((e-3 (cdr arg-0))) (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Int (bs+ e-2 1 63)) (PreludeC-45TypesC-45String-C-43C-43 ":" (PreludeC-45Show-u--show_Show_Int (bs+ e-3 1 63)))))))) +(define CoreC-45FC-replFC (lambda () (CoreC-45FC-justFC (CoreC-45FC-defaultFC)))) +(define CoreC-45FC-prettyPos (lambda (arg-1) (let ((e-2 (car arg-1))) (let ((e-3 (cdr arg-1))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Int (bs+ e-2 1 63)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Int (bs+ e-3 1 63))))))) +(define CoreC-45FC-onLine (lambda (arg-0 arg-1) (let ((e-3 (cdr arg-1))) (let ((e-6 (car e-3))) (let ((e-7 (cdr e-3))) (let ((sc2 (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-0 (Builtin-fst e-6)))) (cond ((equal? sc2 1) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-0 (Builtin-fst e-7))) (else 0)))))))) +(define CoreC-45FC-mergeFC (lambda (arg-0 arg-1) (case (vector-ref arg-0 0) ((0) (let ((e-0 (vector-ref arg-0 1))) (let ((e-1 (vector-ref arg-0 2))) (let ((e-2 (vector-ref arg-0 3))) (case (vector-ref arg-1 0) ((0) (let ((e-3 (vector-ref arg-1 1))) (let ((e-4 (vector-ref arg-1 2))) (let ((e-5 (vector-ref arg-1 3))) (let ((sc2 (CoreC-45FC-u--C-61C-61_Eq_OriginDesc e-0 e-3))) (cond ((equal? sc2 1) (box (vector 0 e-0 (PreludeC-45EqOrd-u--min_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) (vector (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) e-1 e-4) (PreludeC-45EqOrd-u--max_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) (vector (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) e-2 e-5)))) (else '())))))))(else '()))))))(else '())))) +(define CoreC-45FC-justFC (lambda (arg-0) (let ((e-2 (car arg-0))) (let ((e-3 (cdr arg-0))) (let ((e-6 (car e-3))) (let ((e-7 (cdr e-3))) (vector 0 e-2 e-6 e-7))))))) +(define CoreC-45FC-isNonEmptyFC (lambda (arg-0) (case (vector-ref arg-0 0) ((0) (let ((e-0 (vector-ref arg-0 1))) (let ((e-1 (vector-ref arg-0 2))) (let ((e-2 (vector-ref arg-0 3))) (box (cons e-0 (cons e-1 e-2))))))) ((1) (let ((e-3 (vector-ref arg-0 1))) (let ((e-4 (vector-ref arg-0 2))) (let ((e-5 (vector-ref arg-0 3))) (box (cons e-3 (cons e-4 e-5))))))) (else '())))) +(define CoreC-45FC-isConcreteFC (lambda (arg-0) (case (vector-ref arg-0 0) ((0) (let ((e-0 (vector-ref arg-0 1))) (let ((e-1 (vector-ref arg-0 2))) (let ((e-2 (vector-ref arg-0 3))) (box (cons e-0 (cons e-1 e-2)))))))(else '())))) +(define CoreC-45FC-emptyFC (lambda () (vector 2 ))) +(define CoreC-45FC-defaultFC (lambda () (cons (vector 2 0) (cons (cons 0 0) (cons 0 0))))) +(define CoreC-45FC-boundToFC (lambda (arg-1 arg-2) (vector 0 arg-1 (LibrariesC-45TextC-45Bounded-start arg-2) (LibrariesC-45TextC-45Bounded-end arg-2)))) +(define DataC-45Vect-n--3772-1383-u--go (lambda (arg-2 arg-5 arg-6) (if (null? arg-6) arg-5 (let ((e-3 (car arg-6))) (let ((e-4 (cdr arg-6))) (DataC-45Vect-n--3772-1383-u--go arg-2 (cons e-3 arg-5) e-4)))))) +(define DataC-45Vect-u--toList_Foldable_C-40VectC-32C-36nC-41 (lambda (ext-0) (DataC-45Vect-u--foldr_Foldable_C-40VectC-32C-36nC-41 (lambda (eta-0) (lambda (eta-1) (cons eta-0 eta-1))) '() ext-0))) +(define DataC-45Vect-u--show_Show_C-40C-40VectC-32C-36lenC-41C-32C-36elemC-41 (lambda (arg-2 ext-0) (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 arg-2 (DataC-45Vect-u--toList_Foldable_C-40VectC-32C-36nC-41 ext-0)))) +(define DataC-45Vect-u--null_Foldable_C-40VectC-32C-36nC-41 (lambda (arg-2) (if (null? arg-2) (lambda () 1) (lambda () 0)))) +(define DataC-45Vect-u--map_Functor_C-40VectC-32C-36nC-41 (lambda (arg-3 arg-4) (if (null? arg-4) '() (let ((e-3 (car arg-4))) (let ((e-4 (cdr arg-4))) (cons (arg-3 e-3) (DataC-45Vect-u--map_Functor_C-40VectC-32C-36nC-41 arg-3 e-4))))))) +(define DataC-45Vect-u--foldr_Foldable_C-40VectC-32C-36nC-41 (lambda (arg-3 arg-4 arg-5) (DataC-45Vect-foldrImpl arg-3 arg-4 (lambda (eta-0) eta-0) arg-5))) +(define DataC-45Vect-u--foldl_Foldable_C-40VectC-32C-36nC-41 (lambda (arg-3 arg-4 arg-5) (if (null? arg-5) arg-4 (let ((e-3 (car arg-5))) (let ((e-4 (cdr arg-5))) (DataC-45Vect-u--foldl_Foldable_C-40VectC-32C-36nC-41 arg-3 ((arg-3 arg-4) e-3) e-4)))))) +(define DataC-45Vect-u--foldlM_Foldable_C-40VectC-32C-36nC-41 (lambda (arg-4 arg-5 arg-6 ext-0) (DataC-45Vect-u--foldl_Foldable_C-40VectC-32C-36nC-41 (lambda (u--ma) (lambda (u--b) (let ((e-2 (vector-ref arg-4 1))) ((((e-2 'erased) 'erased) u--ma) (lambda (eta-0) (PreludeC-45Basics-flip arg-5 u--b eta-0)))))) (let ((e-1 (vector-ref arg-4 0))) (let ((e-5 (vector-ref e-1 1))) ((e-5 'erased) arg-6))) ext-0))) +(define DataC-45Vect-u--foldMap_Foldable_C-40VectC-32C-36nC-41 (lambda (arg-3 arg-4 ext-0) (DataC-45Vect-u--foldl_Foldable_C-40VectC-32C-36nC-41 (lambda (u--acc) (lambda (u--elem) (let ((e-1 (car arg-3))) ((e-1 u--acc) (arg-4 u--elem))))) (let ((e-2 (cdr arg-3))) e-2) ext-0))) +(define DataC-45Vect-toVect (lambda (arg-1 arg-2) (cond ((equal? arg-1 0) (if (null? arg-2) (box '()) '()))(else (let ((e-0 (- arg-1 1))) (if (null? arg-2) '() (let ((e-3 (car arg-2))) (let ((e-4 (cdr arg-2))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (DataC-45Vect-toVect e-0 e-4) (lambda (u--xsC-39) (PreludeC-45Types-u--pure_Applicative_Maybe (cons e-3 u--xsC-39)))))))))))) +(define DataC-45Vect-tail (lambda (arg-2) (let ((e-3 (cdr arg-2))) e-3))) +(define DataC-45Vect-reverse (lambda (arg-2) (DataC-45Vect-n--3772-1383-u--go arg-2 '() arg-2))) +(define DataC-45Vect-replicate (lambda (arg-1 arg-2) (cond ((equal? arg-1 0) '())(else (let ((e-0 (- arg-1 1))) (cons arg-2 (DataC-45Vect-replicate e-0 arg-2))))))) +(define DataC-45Vect-replaceAt (lambda (arg-2 arg-3 arg-4) (if (null? arg-2) (let ((e-6 (cdr arg-4))) (cons arg-3 e-6)) (let ((e-2 (unbox arg-2))) (let ((e-9 (car arg-4))) (let ((e-10 (cdr arg-4))) (cons e-9 (DataC-45Vect-replaceAt e-2 arg-3 e-10)))))))) +(define DataC-45Vect-index (lambda (arg-2 arg-3) (if (null? arg-2) (let ((e-5 (car arg-3))) e-5) (let ((e-2 (unbox arg-2))) (let ((e-10 (cdr arg-3))) (DataC-45Vect-index e-2 e-10)))))) +(define DataC-45Vect-foldrImpl (lambda (arg-3 arg-4 arg-5 arg-6) (if (null? arg-6) (arg-5 arg-4) (let ((e-3 (car arg-6))) (let ((e-4 (cdr arg-6))) (DataC-45Vect-foldrImpl arg-3 arg-4 (lambda (eta-0) (arg-5 ((arg-3 e-3) eta-0))) e-4)))))) +(define DataC-45Vect-C-43C-43 (lambda (arg-3 arg-4) (if (null? arg-3) arg-4 (let ((e-3 (car arg-3))) (let ((e-4 (cdr arg-3))) (cons e-3 (DataC-45Vect-C-43C-43 e-4 arg-4))))))) +(define DataC-45Buffer-writeBufferToFile (lambda (arg-1 arg-2 arg-3 arg-4) (let ((e-1 (car arg-1))) (let ((e-4 (vector-ref e-1 1))) ((((e-4 'erased) 'erased) (SystemC-45File-openFile arg-1 arg-2 1)) (lambda (_-0) (case (vector-ref _-0 0) ((1) (let ((e-6 (vector-ref _-0 1))) (let ((e-8 (car arg-1))) (let ((e-10 (vector-ref e-8 1))) ((((e-10 'erased) 'erased) (DataC-45Buffer-writeBufferData arg-1 e-6 arg-3 0 arg-4)) (lambda (_-1) (case (vector-ref _-1 0) ((1) (let ((e-12 (vector-ref _-1 1))) (PreludeC-45Interfaces-C-62C-62 (let ((e-14 (car arg-1))) e-14) (SystemC-45File-closeFile arg-1 e-6) (lambda () (let ((e-14 (car arg-1))) (let ((e-17 (vector-ref e-14 0))) (let ((e-19 (vector-ref e-17 1))) ((e-19 'erased) (vector 1 e-12))))))))) (else (let ((e-12 (vector-ref _-1 1))) (let ((e-14 (car arg-1))) (let ((e-17 (vector-ref e-14 0))) (let ((e-19 (vector-ref e-17 1))) ((e-19 'erased) (vector 0 e-12)))))))))))))) (else (let ((e-6 (vector-ref _-0 1))) (let ((e-8 (car arg-1))) (let ((e-11 (vector-ref e-8 0))) (let ((e-13 (vector-ref e-11 1))) ((e-13 'erased) (vector 0 e-6)))))))))))))) +(define DataC-45Buffer-writeBufferData (lambda (arg-1 arg-2 arg-3 arg-4 arg-5) (let ((e-1 (car arg-1))) (let ((e-4 (vector-ref e-1 1))) ((((e-4 'erased) 'erased) (let ((e-6 (cdr arg-1))) ((e-6 'erased) (lambda (eta-0) (DataC-45Buffer-prim__writeBufferData arg-2 arg-3 arg-4 arg-5 eta-0))))) (lambda (u--written) (let ((sc1 (PreludeC-45EqOrd-u--C-62C-61_Ord_Int u--written (blodwen-toSignedInt 0 63)))) (cond ((equal? sc1 1) (let ((e-7 (car arg-1))) (let ((e-10 (vector-ref e-7 0))) (let ((e-12 (vector-ref e-10 1))) ((e-12 'erased) (vector 1 0)))))) (else (let ((e-7 (car arg-1))) (let ((e-10 (vector-ref e-7 0))) (let ((e-12 (vector-ref e-10 1))) ((e-12 'erased) (vector 0 (vector 2 ))))))))))))))) +(define DataC-45Buffer-resizeBuffer (lambda (arg-1 arg-2 arg-3) (let ((e-1 (car arg-1))) (let ((e-4 (vector-ref e-1 1))) ((((e-4 'erased) 'erased) (DataC-45Buffer-newBuffer arg-1 arg-3)) (lambda (_-0) (if (null? _-0) (let ((e-7 (car arg-1))) (let ((e-10 (vector-ref e-7 0))) (let ((e-12 (vector-ref e-10 1))) ((e-12 'erased) '())))) (let ((e-6 (unbox _-0))) (let ((e-8 (car arg-1))) (let ((e-10 (vector-ref e-8 1))) ((((e-10 'erased) 'erased) (let ((e-13 (car arg-1))) (let ((e-16 (vector-ref e-13 0))) (let ((e-18 (vector-ref e-16 1))) ((e-18 'erased) (DataC-45Buffer-prim__bufferSize arg-2)))))) (lambda (u--oldsize) (let ((u--len (let ((sc3 (PreludeC-45EqOrd-u--C-60_Ord_Int arg-3 u--oldsize))) (cond ((equal? sc3 1) arg-3) (else u--oldsize))))) (PreludeC-45Interfaces-C-62C-62 (let ((e-13 (car arg-1))) e-13) (DataC-45Buffer-copyData arg-1 arg-2 0 u--len e-6 0) (lambda () (let ((e-13 (car arg-1))) (let ((e-16 (vector-ref e-13 0))) (let ((e-18 (vector-ref e-16 1))) ((e-18 'erased) (box e-6)))))))))))))))))))) +(define DataC-45Buffer-readBufferData (lambda (arg-1 arg-2 arg-3 arg-4 arg-5) (let ((e-1 (car arg-1))) (let ((e-4 (vector-ref e-1 1))) ((((e-4 'erased) 'erased) (let ((e-6 (cdr arg-1))) ((e-6 'erased) (lambda (eta-0) (DataC-45Buffer-prim__readBufferData arg-2 arg-3 arg-4 arg-5 eta-0))))) (lambda (u--read) (let ((sc1 (PreludeC-45EqOrd-u--C-62C-61_Ord_Int u--read (blodwen-toSignedInt 0 63)))) (cond ((equal? sc1 1) (let ((e-7 (car arg-1))) (let ((e-10 (vector-ref e-7 0))) (let ((e-12 (vector-ref e-10 1))) ((e-12 'erased) (vector 1 0)))))) (else (let ((e-7 (car arg-1))) (let ((e-10 (vector-ref e-7 0))) (let ((e-12 (vector-ref e-10 1))) ((e-12 'erased) (vector 0 (vector 1 ))))))))))))))) +(define DataC-45Buffer-newBuffer (lambda (arg-1 arg-2) (let ((sc0 (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-2 (blodwen-toSignedInt 0 63)))) (cond ((equal? sc0 1) (let ((e-1 (car arg-1))) (let ((e-4 (vector-ref e-1 1))) ((((e-4 'erased) 'erased) (let ((e-6 (cdr arg-1))) ((e-6 'erased) (lambda (eta-0) (DataC-45Buffer-prim__newBuffer arg-2 eta-0))))) (lambda (u--buf) (let ((e-7 (car arg-1))) (let ((e-10 (vector-ref e-7 0))) (let ((e-12 (vector-ref e-10 1))) ((e-12 'erased) (box u--buf)))))))))) (else (let ((e-1 (car arg-1))) (let ((e-5 (vector-ref e-1 0))) (let ((e-7 (vector-ref e-5 1))) ((e-7 'erased) '()))))))))) +(define DataC-45Buffer-createBufferFromFile (lambda (arg-1 arg-2) (let ((e-1 (car arg-1))) (let ((e-4 (vector-ref e-1 1))) ((((e-4 'erased) 'erased) (SystemC-45File-openFile arg-1 arg-2 0)) (lambda (_-0) (case (vector-ref _-0 0) ((1) (let ((e-6 (vector-ref _-0 1))) (let ((e-8 (car arg-1))) (let ((e-10 (vector-ref e-8 1))) ((((e-10 'erased) 'erased) (SystemC-45File-fileSize arg-1 e-6)) (lambda (_-1) (case (vector-ref _-1 0) ((1) (let ((e-12 (vector-ref _-1 1))) (let ((e-14 (car arg-1))) (let ((e-16 (vector-ref e-14 1))) ((((e-16 'erased) 'erased) (DataC-45Buffer-newBuffer arg-1 e-12)) (lambda (_-2) (if (null? _-2) (let ((e-19 (car arg-1))) (let ((e-22 (vector-ref e-19 0))) (let ((e-24 (vector-ref e-22 1))) ((e-24 'erased) (vector 0 (vector 1 )))))) (let ((e-18 (unbox _-2))) (let ((e-20 (car arg-1))) (let ((e-22 (vector-ref e-20 1))) ((((e-22 'erased) 'erased) (DataC-45Buffer-readBufferData arg-1 e-6 e-18 0 e-12)) (lambda (_-3) (case (vector-ref _-3 0) ((1) (PreludeC-45Interfaces-C-62C-62 (let ((e-26 (car arg-1))) e-26) (SystemC-45File-closeFile arg-1 e-6) (lambda () (let ((e-26 (car arg-1))) (let ((e-29 (vector-ref e-26 0))) (let ((e-31 (vector-ref e-29 1))) ((e-31 'erased) (vector 1 e-18)))))))) (else (let ((e-24 (vector-ref _-3 1))) (let ((e-26 (car arg-1))) (let ((e-29 (vector-ref e-26 0))) (let ((e-31 (vector-ref e-29 1))) ((e-31 'erased) (vector 0 e-24)))))))))))))))))))) (else (let ((e-12 (vector-ref _-1 1))) (let ((e-14 (car arg-1))) (let ((e-17 (vector-ref e-14 0))) (let ((e-19 (vector-ref e-17 1))) ((e-19 'erased) (vector 0 e-12)))))))))))))) (else (let ((e-6 (vector-ref _-0 1))) (let ((e-8 (car arg-1))) (let ((e-11 (vector-ref e-8 0))) (let ((e-13 (vector-ref e-11 1))) ((e-13 'erased) (vector 0 e-6)))))))))))))) +(define DataC-45Buffer-copyData (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((e-2 (cdr arg-1))) ((e-2 'erased) (lambda (eta-0) (DataC-45Buffer-prim__copyData arg-2 arg-3 arg-4 arg-5 arg-6 eta-0)))))) +(define CoreC-45Core-n--5205-1170-u--showRig (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (AlgebraC-45Semiring-elimSemi (cons (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-4) (lambda (arg-5) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-4 arg-5))))) "linear" "irrelevant" (lambda (eta-0) "unrestricted") ext-0))) +(define CoreC-45Core-n--5205-1171-u--showRel (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (AlgebraC-45Semiring-elimSemi (cons (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-4) (lambda (arg-5) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-4 arg-5))))) "relevant" "irrelevant" (lambda (eta-0) "non-linear") ext-0))) +(define CoreC-45Core-n--8261-3838-u--goTerm (lambda (arg-0 arg-1 arg-2 arg-3) (case (vector-ref arg-3 0) ((0) ((arg-1 arg-2) arg-3)) ((1) ((arg-1 arg-2) arg-3)) ((2) (let ((e-11 (vector-ref arg-3 1))) (let ((e-12 (vector-ref arg-3 2))) (let ((e-13 (vector-ref arg-3 3))) (let ((e-14 (vector-ref arg-3 4))) (PreludeC-45Basics-flip (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (let ((act-24 (eta-0 eta-2))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) ((eta-1 e-5) eta-2)))))))) (arg-1 arg-2) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (case (vector-ref eta-1 0) ((0) (let ((e-2 (vector-ref eta-1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-1 1))) (vector 1 (vector 2 e-11 e-12 e-13 e-5)))))) (lambda (eta-1) (CoreC-45Core-traverseC-39 (lambda (eta-2) (CoreC-45Core-n--8261-3838-u--goTerm arg-0 arg-1 arg-2 eta-2)) e-14 '() eta-1)) eta-0)))))))) ((3) (let ((e-16 (vector-ref arg-3 1))) (let ((e-17 (vector-ref arg-3 2))) (let ((e-18 (vector-ref arg-3 3))) (let ((e-19 (vector-ref arg-3 4))) (PreludeC-45Basics-flip (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (let ((act-24 (eta-0 eta-2))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) ((eta-1 e-5) eta-2)))))))) (arg-1 arg-2) (lambda (eta-0) (CoreC-45Core-C-60C-42C-62 (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-2) (case (vector-ref eta-2 0) ((0) (let ((e-2 (vector-ref eta-2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-2 1))) (vector 1 (lambda (eta-3) (vector 3 e-16 e-17 e-5 eta-3))))))) (lambda (eta-2) (CoreC-45CoreC-45Binder-traverse (lambda (eta-3) (CoreC-45Core-n--8261-3838-u--goTerm arg-0 arg-1 arg-2 eta-3)) e-18 eta-2)) eta-1)) (CoreC-45Core-n--8261-3838-u--goTerm arg-0 arg-1 (cons e-17 arg-2) e-19) eta-0)))))))) ((4) (let ((e-21 (vector-ref arg-3 1))) (let ((e-22 (vector-ref arg-3 2))) (let ((e-23 (vector-ref arg-3 3))) (PreludeC-45Basics-flip (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (let ((act-24 (eta-0 eta-2))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) ((eta-1 e-5) eta-2)))))))) (arg-1 arg-2) (lambda (eta-0) (CoreC-45Core-C-60C-42C-62 (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-2) (case (vector-ref eta-2 0) ((0) (let ((e-2 (vector-ref eta-2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-2 1))) (vector 1 (lambda (eta-3) (vector 4 e-21 e-5 eta-3))))))) (CoreC-45Core-n--8261-3838-u--goTerm arg-0 arg-1 arg-2 e-22) eta-1)) (CoreC-45Core-n--8261-3838-u--goTerm arg-0 arg-1 arg-2 e-23) eta-0))))))) ((5) (let ((e-25 (vector-ref arg-3 1))) (let ((e-26 (vector-ref arg-3 2))) (let ((e-27 (vector-ref arg-3 3))) (let ((e-28 (vector-ref arg-3 4))) (PreludeC-45Basics-flip (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (let ((act-24 (eta-0 eta-2))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) ((eta-1 e-5) eta-2)))))))) (arg-1 arg-2) (lambda (eta-0) (CoreC-45Core-C-60C-42C-62 (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-2) (case (vector-ref eta-2 0) ((0) (let ((e-2 (vector-ref eta-2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-2 1))) (vector 1 (lambda (eta-3) (vector 5 e-25 e-26 e-5 eta-3))))))) (CoreC-45Core-n--8261-3838-u--goTerm arg-0 arg-1 arg-2 e-27) eta-1)) (CoreC-45Core-n--8261-3838-u--goTerm arg-0 arg-1 arg-2 e-28) eta-0)))))))) ((6) (let ((e-30 (vector-ref arg-3 1))) (let ((e-31 (vector-ref arg-3 2))) (let ((e-32 (vector-ref arg-3 3))) (PreludeC-45Basics-flip (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (let ((act-24 (eta-0 eta-2))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) ((eta-1 e-5) eta-2)))))))) (arg-1 arg-2) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (case (vector-ref eta-1 0) ((0) (let ((e-2 (vector-ref eta-1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-1 1))) (vector 1 (vector 6 e-30 e-31 e-5)))))) (CoreC-45Core-n--8261-3838-u--goTerm arg-0 arg-1 arg-2 e-32) eta-0))))))) ((7) (let ((e-34 (vector-ref arg-3 1))) (let ((e-35 (vector-ref arg-3 2))) (let ((e-36 (vector-ref arg-3 3))) (let ((e-37 (vector-ref arg-3 4))) (PreludeC-45Basics-flip (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (let ((act-24 (eta-0 eta-2))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) ((eta-1 e-5) eta-2)))))))) (arg-1 arg-2) (lambda (eta-0) (CoreC-45Core-C-60C-42C-62 (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-2) (case (vector-ref eta-2 0) ((0) (let ((e-2 (vector-ref eta-2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-2 1))) (vector 1 (lambda (eta-3) (vector 7 e-34 e-35 e-5 eta-3))))))) (CoreC-45Core-n--8261-3838-u--goTerm arg-0 arg-1 arg-2 e-36) eta-1)) (CoreC-45Core-n--8261-3838-u--goTerm arg-0 arg-1 arg-2 e-37) eta-0)))))))) ((8) (let ((e-39 (vector-ref arg-3 1))) (let ((e-40 (vector-ref arg-3 2))) (let ((e-41 (vector-ref arg-3 3))) (PreludeC-45Basics-flip (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (let ((act-24 (eta-0 eta-2))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) ((eta-1 e-5) eta-2)))))))) (arg-1 arg-2) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (case (vector-ref eta-1 0) ((0) (let ((e-2 (vector-ref eta-1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-1 1))) (vector 1 (vector 8 e-39 e-40 e-5)))))) (CoreC-45Core-n--8261-3838-u--goTerm arg-0 arg-1 arg-2 e-41) eta-0))))))) ((9) ((arg-1 arg-2) arg-3)) ((10) ((arg-1 arg-2) arg-3)) (else ((arg-1 arg-2) arg-3))))) +(define CoreC-45Core-u--throw_Catchable_Core_Error (lambda (ext-1 ext-0) (CoreC-45Core-coreFail ext-1 ext-0))) +(define CoreC-45Core-u--show_Show_Warning (lambda (arg-0) (case (vector-ref arg-0 0) ((0) ":Unreachable clause") ((1) ":Shadowing names") (else (let ((e-6 (vector-ref arg-0 1))) (PreludeC-45TypesC-45String-C-43C-43 ":Deprecated " e-6)))))) +(define CoreC-45Core-u--show_Show_TTCErrorMsg (lambda (arg-0) (case (vector-ref arg-0 0) ((0) (let ((e-0 (vector-ref arg-0 1))) (let ((e-1 (vector-ref arg-0 2))) (let ((e-2 (vector-ref arg-0 3))) (let ((u--age (let ((sc1 (PreludeC-45EqOrd-u--C-60_Ord_Int e-1 e-2))) (cond ((equal? sc1 1) "older") (else "newer"))))) (PreludeC-45TypesC-45String-C-43C-43 "TTC data is in an " (PreludeC-45TypesC-45String-C-43C-43 u--age (PreludeC-45TypesC-45String-C-43C-43 " format, file: " (PreludeC-45TypesC-45String-C-43C-43 e-0 (PreludeC-45TypesC-45String-C-43C-43 ", expected version: " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Int e-2) (PreludeC-45TypesC-45String-C-43C-43 ", actual version: " (PreludeC-45Show-u--show_Show_Int e-1))))))))))))) ((1) (let ((e-3 (vector-ref arg-0 1))) (PreludeC-45TypesC-45String-C-43C-43 "End of buffer when reading " e-3))) (else (let ((e-4 (vector-ref arg-0 1))) (PreludeC-45TypesC-45String-C-43C-43 "Corrupt TTC data for " e-4)))))) +(define CoreC-45Core-u--show_Show_Error (lambda (arg-0) (case (vector-ref arg-0 0) ((0) (let ((e-0 (vector-ref arg-0 1))) (CoreC-45Core-u--show_Show_Error e-0))) ((1) (let ((e-1 (vector-ref arg-0 1))) (let ((e-2 (vector-ref arg-0 2))) (let ((e-4 (vector-ref arg-0 4))) (let ((e-5 (vector-ref arg-0 5))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC e-2) (PreludeC-45TypesC-45String-C-43C-43 ":Type mismatch: " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 e-1 e-4) (PreludeC-45TypesC-45String-C-43C-43 " and " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 e-1 e-5)))))))))) ((2) (let ((e-6 (vector-ref arg-0 1))) (let ((e-7 (vector-ref arg-0 2))) (let ((e-9 (vector-ref arg-0 4))) (let ((e-10 (vector-ref arg-0 5))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC e-7) (PreludeC-45TypesC-45String-C-43C-43 ":" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 e-6 e-9) (PreludeC-45TypesC-45String-C-43C-43 " and " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 e-6 e-10) " are not equal")))))))))) ((3) (let ((e-11 (vector-ref arg-0 1))) (let ((e-12 (vector-ref arg-0 2))) (let ((e-14 (vector-ref arg-0 4))) (let ((e-15 (vector-ref arg-0 5))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC e-12) (PreludeC-45TypesC-45String-C-43C-43 ":Pattern variable " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-14) (PreludeC-45TypesC-45String-C-43C-43 " unifies with " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 e-11 e-15)))))))))) ((4) (let ((e-16 (vector-ref arg-0 1))) (let ((e-17 (vector-ref arg-0 2))) (let ((e-19 (vector-ref arg-0 4))) (let ((e-20 (vector-ref arg-0 5))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC e-17) (PreludeC-45TypesC-45String-C-43C-43 ":Cycle detected in metavariable solution " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-19) (PreludeC-45TypesC-45String-C-43C-43 " = " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 e-16 e-20)))))))))) ((5) (let ((e-21 (vector-ref arg-0 1))) (let ((e-22 (vector-ref arg-0 2))) (let ((e-24 (vector-ref arg-0 4))) (let ((e-25 (vector-ref arg-0 5))) (let ((e-26 (vector-ref arg-0 6))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC e-22) (PreludeC-45TypesC-45String-C-43C-43 ":When unifying: " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 e-21 e-24) (PreludeC-45TypesC-45String-C-43C-43 " and " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 e-21 e-25) (PreludeC-45TypesC-45String-C-43C-43 "\u000a\u0009" (CoreC-45Core-u--show_Show_Error e-26))))))))))))) ((6) (let ((e-27 (vector-ref arg-0 1))) (let ((e-28 (vector-ref arg-0 2))) (let ((e-30 (vector-ref arg-0 4))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC e-28) (PreludeC-45TypesC-45String-C-43C-43 ":" (case (vector-ref e-30 0) ((0) (let ((e-2 (vector-ref e-30 1))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 e-27 e-2) " is not a valid impossible pattern because it typechecks"))) (else (let ((e-5 (vector-ref e-30 1))) (PreludeC-45TypesC-45String-C-43C-43 "Not a valid impossible pattern:\u000a\u0009" (CoreC-45Core-u--show_Show_Error e-5))))))))))) ((7) (let ((e-31 (vector-ref arg-0 1))) (let ((e-32 (vector-ref arg-0 2))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC e-31) (PreludeC-45TypesC-45String-C-43C-43 ":Undefined name " (CoreC-45Name-u--show_Show_Name e-32)))))) ((8) (let ((e-33 (vector-ref arg-0 1))) (let ((e-34 (vector-ref arg-0 2))) (let ((e-35 (vector-ref arg-0 3))) (if (null? e-35) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC e-33) (PreludeC-45TypesC-45String-C-43C-43 ":Name " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-34) " is private"))) (let ((e-207 (unbox e-35))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC e-33) (PreludeC-45TypesC-45String-C-43C-43 ":Name " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-34) (PreludeC-45TypesC-45String-C-43C-43 " is inaccessible since " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-u--show_Show_Namespace e-207) " is not explicitly imported"))))))))))) ((9) (let ((e-36 (vector-ref arg-0 1))) (let ((e-37 (vector-ref arg-0 2))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC e-36) (PreludeC-45TypesC-45String-C-43C-43 ":Return type of " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-37) " must be Type")))))) ((10) (let ((e-38 (vector-ref arg-0 1))) (let ((e-39 (vector-ref arg-0 2))) (let ((e-40 (vector-ref arg-0 3))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC e-38) (PreludeC-45TypesC-45String-C-43C-43 ":Return type of " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-39) (PreludeC-45TypesC-45String-C-43C-43 " must be in " (CoreC-45Name-u--show_Show_Name e-40))))))))) ((11) (let ((e-41 (vector-ref arg-0 1))) (let ((e-42 (vector-ref arg-0 2))) (let ((e-43 (vector-ref arg-0 3))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC e-41) (PreludeC-45TypesC-45String-C-43C-43 ":" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-42) (PreludeC-45TypesC-45String-C-43C-43 " is not covering:\u000a\u0009" (case (vector-ref e-43 0) ((0) "Oh yes it is (Internal error!)") ((1) (let ((e-0 (vector-ref e-43 1))) (PreludeC-45TypesC-45String-C-43C-43 "Missing cases:\u000a\u0009" (CoreC-45NameC-45Namespace-showSep "\u000a\u0009" (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() eta-0)) e-0))))) (else (let ((e-1 (vector-ref e-43 1))) (PreludeC-45TypesC-45String-C-43C-43 "Calls non covering function" (if (null? e-1) (PreludeC-45TypesC-45String-C-43C-43 "s: " (CoreC-45NameC-45Namespace-showSep ", " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45Name-u--show_Show_Name eta-0)) e-1))) (let ((e-3 (car e-1))) (let ((e-2 (cdr e-1))) (if (null? e-2) (PreludeC-45TypesC-45String-C-43C-43 " " (CoreC-45Name-u--show_Show_Name e-3)) (PreludeC-45TypesC-45String-C-43C-43 "s: " (CoreC-45NameC-45Namespace-showSep ", " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45Name-u--show_Show_Name eta-0)) e-1))))))))))))))))))) ((12) (let ((e-44 (vector-ref arg-0 1))) (let ((e-45 (vector-ref arg-0 2))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC e-44) (PreludeC-45TypesC-45String-C-43C-43 ":" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-45) " is not total")))))) ((13) (let ((e-47 (vector-ref arg-0 1))) (let ((e-48 (vector-ref arg-0 2))) (let ((e-49 (vector-ref arg-0 3))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC e-47) (PreludeC-45TypesC-45String-C-43C-43 ":There are " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Nat e-48) (PreludeC-45TypesC-45String-C-43C-43 " uses of linear name " (CoreC-45Name-u--show_Show_Name e-49))))))))) ((14) (let ((e-50 (vector-ref arg-0 1))) (let ((e-51 (vector-ref arg-0 2))) (let ((e-52 (vector-ref arg-0 3))) (let ((e-53 (vector-ref arg-0 4))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC e-50) (PreludeC-45TypesC-45String-C-43C-43 ":Trying to use " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Core-n--5205-1170-u--showRig e-53 e-52 e-51 e-50 e-52) (PreludeC-45TypesC-45String-C-43C-43 " name " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-51) (PreludeC-45TypesC-45String-C-43C-43 " in " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Core-n--5205-1171-u--showRel e-53 e-52 e-51 e-50 e-53) " context")))))))))))) ((15) (let ((e-54 (vector-ref arg-0 1))) (let ((e-55 (vector-ref arg-0 2))) (let ((e-57 (vector-ref arg-0 4))) (let ((e-58 (vector-ref arg-0 5))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC e-55) (PreludeC-45TypesC-45String-C-43C-43 ":" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 e-54 e-57) (PreludeC-45TypesC-45String-C-43C-43 " borrows argument " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 e-54 e-58) " so must be fully applied")))))))))) ((16) (let ((e-59 (vector-ref arg-0 1))) (let ((e-60 (vector-ref arg-0 2))) (let ((e-62 (vector-ref arg-0 4))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC e-60) (PreludeC-45TypesC-45String-C-43C-43 ":" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 e-59 e-62) " borrows, so must return a concrete type"))))))) ((17) (let ((e-63 (vector-ref arg-0 1))) (let ((e-64 (vector-ref arg-0 2))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC e-63) (PreludeC-45TypesC-45String-C-43C-43 ":Ambiguous name " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45Name-u--show_Show_Name u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Name-u--showPrec_Show_Name u--d u--x)))) e-64)))))) ((18) (let ((e-65 (vector-ref arg-0 1))) (let ((e-66 (vector-ref arg-0 2))) (let ((e-68 (vector-ref arg-0 4))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC e-66) (PreludeC-45TypesC-45String-C-43C-43 ":Ambiguous elaboration " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 e-65 u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 e-65 u--d u--x)))) e-68))))))) ((19) (let ((e-69 (vector-ref arg-0 1))) (let ((e-70 (vector-ref arg-0 2))) (let ((e-73 (vector-ref arg-0 5))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC e-70) (PreludeC-45TypesC-45String-C-43C-43 ":Ambiguous search " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 e-69 u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 e-69 u--d u--x)))) e-73))))))) ((20) (let ((e-74 (vector-ref arg-0 1))) (let ((e-75 (vector-ref arg-0 2))) (let ((e-76 (vector-ref arg-0 3))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC e-74) (PreludeC-45TypesC-45String-C-43C-43 ":Ambiguity too deep in " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-75) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45Name-u--show_Show_Name u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Name-u--showPrec_Show_Name u--d u--x)))) e-76))))))))) ((21) (let ((e-77 (vector-ref arg-0 1))) (PreludeC-45TypesC-45String-C-43C-43 "No successful elaboration: " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (x-1) (CoreC-45Name-u--show_Show_Name x-1)) (lambda (u--d) (lambda (x-1) (CoreC-45Name-u--showPrec_Show_Name u--d x-1)))) x-0)) (lambda (u--d) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (x-1) (CoreC-45Name-u--show_Show_Name x-1)) (lambda (d-0) (lambda (x-1) (CoreC-45Name-u--showPrec_Show_Name d-0 x-1)))) u--d x-0)))) (cons (lambda (x-0) (CoreC-45Core-u--show_Show_Error x-0)) (lambda (u--d) (lambda (x-0) (CoreC-45Core-u--showPrec_Show_Error u--d x-0))))) u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (x-1) (CoreC-45Name-u--show_Show_Name x-1)) (lambda (d-0) (lambda (x-1) (CoreC-45Name-u--showPrec_Show_Name d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (x-1) (CoreC-45Name-u--show_Show_Name x-1)) (lambda (d-1) (lambda (x-1) (CoreC-45Name-u--showPrec_Show_Name d-1 x-1)))) d-0 x-0)))) (cons (lambda (x-0) (CoreC-45Core-u--show_Show_Error x-0)) (lambda (d-0) (lambda (x-0) (CoreC-45Core-u--showPrec_Show_Error d-0 x-0))))) u--d u--x)))) e-77)))) ((22) (let ((e-79 (vector-ref arg-0 2))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC e-79) ":Can't infer type of record to update"))) ((23) (let ((e-81 (vector-ref arg-0 1))) (let ((e-82 (vector-ref arg-0 2))) (let ((e-83 (vector-ref arg-0 3))) (if (null? e-83) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC e-81) (PreludeC-45TypesC-45String-C-43C-43 ":" (PreludeC-45TypesC-45String-C-43C-43 e-82 " is not part of a record type"))) (let ((e-210 (unbox e-83))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC e-81) (PreludeC-45TypesC-45String-C-43C-43 ":Record type " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-210) (PreludeC-45TypesC-45String-C-43C-43 " has no field " e-82)))))))))) ((24) (let ((e-84 (vector-ref arg-0 1))) (let ((e-85 (vector-ref arg-0 2))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC e-84) (PreludeC-45TypesC-45String-C-43C-43 ":" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-85) " is not a record type")))))) ((25) (let ((e-86 (vector-ref arg-0 1))) (let ((e-87 (vector-ref arg-0 2))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC e-86) (PreludeC-45TypesC-45String-C-43C-43 ":Field update " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-showSep "->" e-87) " not compatible with other updates")))))) ((26) (let ((e-88 (vector-ref arg-0 1))) (let ((e-89 (vector-ref arg-0 2))) (let ((e-91 (vector-ref arg-0 4))) (let ((e-92 (vector-ref arg-0 5))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC e-89) (PreludeC-45TypesC-45String-C-43C-43 ":" (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45Name-u--show_Show_Name u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Name-u--showPrec_Show_Name u--d u--x)))) e-91) (PreludeC-45TypesC-45String-C-43C-43 " are not valid arguments in " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 e-88 e-92)))))))))) ((27) (let ((e-93 (vector-ref arg-0 1))) (let ((e-94 (vector-ref arg-0 2))) (let ((e-96 (vector-ref arg-0 4))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC e-94) (PreludeC-45TypesC-45String-C-43C-43 ":Need to bind implicits " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-showSep "," (PreludeC-45Types-u--map_Functor_List (lambda (u--x) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name (Builtin-fst u--x)) (PreludeC-45TypesC-45String-C-43C-43 " : " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 e-93 (Builtin-snd u--x))))) e-96)) "\u000a(The front end should probably have done this for you. Please report!)"))))))) ((28) (let ((e-97 (vector-ref arg-0 1))) (let ((e-98 (vector-ref arg-0 2))) (let ((e-100 (vector-ref arg-0 4))) (let ((e-101 (vector-ref arg-0 5))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC e-98) (PreludeC-45TypesC-45String-C-43C-43 ":Can't bind name " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-nameRoot e-100) (PreludeC-45TypesC-45String-C-43C-43 " with type " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 e-97 e-101)))))))))) ((29) (let ((e-102 (vector-ref arg-0 1))) (let ((e-103 (vector-ref arg-0 2))) (let ((e-105 (vector-ref arg-0 4))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC e-103) (PreludeC-45TypesC-45String-C-43C-43 ":Can't solve goal " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 e-102 e-105))))))) ((30) (let ((e-106 (vector-ref arg-0 1))) (let ((e-107 (vector-ref arg-0 2))) (let ((e-108 (vector-ref arg-0 3))) (let ((e-111 (vector-ref arg-0 6))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC e-107) (PreludeC-45TypesC-45String-C-43C-43 ":Can't solve goal " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 e-106 e-111) (PreludeC-45TypesC-45String-C-43C-43 " since argument " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-108) " can't be inferred")))))))))) ((31) (let ((e-112 (vector-ref arg-0 1))) (PreludeC-45TypesC-45String-C-43C-43 "Unsolved holes " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (CoreC-45FC-u--show_Show_FC x-0)) (lambda (u--d) (lambda (x-0) (CoreC-45FC-u--showPrec_Show_FC u--d x-0)))) (cons (lambda (x-0) (CoreC-45Name-u--show_Show_Name x-0)) (lambda (u--d) (lambda (x-0) (CoreC-45Name-u--showPrec_Show_Name u--d x-0))))) u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (CoreC-45FC-u--show_Show_FC x-0)) (lambda (d-0) (lambda (x-0) (CoreC-45FC-u--showPrec_Show_FC d-0 x-0)))) (cons (lambda (x-0) (CoreC-45Name-u--show_Show_Name x-0)) (lambda (d-0) (lambda (x-0) (CoreC-45Name-u--showPrec_Show_Name d-0 x-0))))) u--d u--x)))) e-112)))) ((32) (let ((e-113 (vector-ref arg-0 1))) (let ((e-114 (vector-ref arg-0 2))) (let ((e-116 (vector-ref arg-0 4))) (let ((e-117 (vector-ref arg-0 5))) (let ((e-118 (vector-ref arg-0 6))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC e-114) (PreludeC-45TypesC-45String-C-43C-43 ":Can't infer type for " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-116) (PreludeC-45TypesC-45String-C-43C-43 " (got " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 e-113 e-118) (PreludeC-45TypesC-45String-C-43C-43 " with hole " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-117) ")"))))))))))))) ((33) (let ((e-120 (vector-ref arg-0 2))) (let ((e-122 (vector-ref arg-0 4))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC e-120) (PreludeC-45TypesC-45String-C-43C-43 ":Named hole " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-122) " is solved by unification")))))) ((34) (let ((e-124 (vector-ref arg-0 1))) (let ((e-125 (vector-ref arg-0 2))) (let ((e-126 (vector-ref arg-0 3))) (let ((e-127 (vector-ref arg-0 4))) (let ((e-128 (vector-ref arg-0 5))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC e-124) (PreludeC-45TypesC-45String-C-43C-43 ":" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_Visibility e-125) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-126) (PreludeC-45TypesC-45String-C-43C-43 " cannot refer to " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_Visibility e-127) (PreludeC-45TypesC-45String-C-43C-43 " " (CoreC-45Name-u--show_Show_Name e-128))))))))))))))) ((35) (let ((e-129 (vector-ref arg-0 1))) (let ((e-130 (vector-ref arg-0 2))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC e-129) (PreludeC-45TypesC-45String-C-43C-43 ":Non linear pattern variable " (CoreC-45Name-u--show_Show_Name e-130)))))) ((36) (let ((e-131 (vector-ref arg-0 1))) (let ((e-132 (vector-ref arg-0 2))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC e-131) (PreludeC-45TypesC-45String-C-43C-43 ":Pattern not allowed here: " (CoreC-45Name-u--show_Show_Name e-132)))))) ((37) (let ((e-133 (vector-ref arg-0 1))) (let ((e-134 (vector-ref arg-0 2))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC e-133) (PreludeC-45TypesC-45String-C-43C-43 ":No type declaration for " (CoreC-45Name-u--show_Show_Name e-134)))))) ((38) (let ((e-135 (vector-ref arg-0 1))) (let ((e-136 (vector-ref arg-0 2))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC e-135) (PreludeC-45TypesC-45String-C-43C-43 ":" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-136) " is already defined")))))) ((39) (let ((e-137 (vector-ref arg-0 1))) (let ((e-138 (vector-ref arg-0 2))) (let ((e-140 (vector-ref arg-0 4))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC e-138) (PreludeC-45TypesC-45String-C-43C-43 ":Not a function type: " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 e-137 e-140))))))) ((40) (let ((e-141 (vector-ref arg-0 1))) (let ((e-142 (vector-ref arg-0 2))) (let ((e-144 (vector-ref arg-0 4))) (let ((e-145 (vector-ref arg-0 5))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC e-142) (PreludeC-45TypesC-45String-C-43C-43 ":Rewriting by " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 e-141 e-144) (PreludeC-45TypesC-45String-C-43C-43 " did not change type " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 e-141 e-145)))))))))) ((41) (let ((e-146 (vector-ref arg-0 1))) (let ((e-147 (vector-ref arg-0 2))) (let ((e-149 (vector-ref arg-0 4))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC e-147) (PreludeC-45TypesC-45String-C-43C-43 ":" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 e-146 e-149) " is not a rewrite rule type"))))))) ((42) (let ((e-150 (vector-ref arg-0 1))) (let ((e-151 (vector-ref arg-0 2))) (let ((e-152 (vector-ref arg-0 3))) (case (vector-ref e-152 0) ((0) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC e-150) (PreludeC-45TypesC-45String-C-43C-43 ":Patterns for " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-151) " have different numbers of arguments")))) ((1) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC e-150) (PreludeC-45TypesC-45String-C-43C-43 ":Patterns for " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-151) " require matching on different types")))) ((4) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC e-150) (PreludeC-45TypesC-45String-C-43C-43 ":Can't infer type to match in " (CoreC-45Name-u--show_Show_Name e-151)))) ((2) (let ((e-211 (vector-ref e-152 1))) (let ((e-215 (car e-211))) (let ((e-216 (cdr e-211))) (let ((e-220 (cdr e-216))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC e-150) (PreludeC-45TypesC-45String-C-43C-43 ":Attempt to match on erased argument " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 e-215 e-220) (PreludeC-45TypesC-45String-C-43C-43 " in " (CoreC-45Name-u--show_Show_Name e-151)))))))))) (else (let ((e-212 (vector-ref e-152 1))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC e-150) (PreludeC-45TypesC-45String-C-43C-43 ":Constructor " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-212) " is not fully applied")))))))))) ((43) (let ((e-153 (vector-ref arg-0 1))) (let ((e-154 (vector-ref arg-0 2))) (let ((e-156 (vector-ref arg-0 4))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC e-154) (PreludeC-45TypesC-45String-C-43C-43 ":Can't match on " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 e-153 e-156) " as it is has a polymorphic type"))))))) ((44) (let ((e-157 (vector-ref arg-0 1))) (let ((e-158 (vector-ref arg-0 2))) (let ((e-160 (vector-ref arg-0 4))) (let ((e-161 (vector-ref arg-0 5))) (let ((e-162 (vector-ref arg-0 6))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC e-158) (PreludeC-45TypesC-45String-C-43C-43 ":Can't match on " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 e-157 e-161) (PreludeC-45TypesC-45String-C-43C-43 " (" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Core-u--show_Show_DotReason e-160) (PreludeC-45TypesC-45String-C-43C-43 ")" (PreludeC-45TypesC-45String-C-43C-43 " - it elaborates to " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 e-157 e-162)))))))))))))) ((45) (let ((e-163 (vector-ref arg-0 1))) (let ((e-164 (vector-ref arg-0 2))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC e-163) (PreludeC-45TypesC-45String-C-43C-43 ":" (PreludeC-45TypesC-45String-C-43C-43 e-164 " can't be bound here")))))) ((46) (let ((e-165 (vector-ref arg-0 1))) (let ((e-166 (vector-ref arg-0 2))) (let ((e-168 (vector-ref arg-0 4))) (let ((e-169 (vector-ref arg-0 5))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC e-166) (PreludeC-45TypesC-45String-C-43C-43 ":Bad elaborator script " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 e-165 e-168) (PreludeC-45TypesC-45String-C-43C-43 " (" (PreludeC-45TypesC-45String-C-43C-43 e-169 ")")))))))))) ((47) (let ((e-170 (vector-ref arg-0 1))) (let ((e-171 (vector-ref arg-0 2))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC e-170) (PreludeC-45TypesC-45String-C-43C-43 ":" e-171))))) ((48) (let ((e-172 (vector-ref arg-0 1))) (PreludeC-45TypesC-45String-C-43C-43 "Error in TTC file: " (CoreC-45Core-u--show_Show_TTCErrorMsg e-172)))) ((49) (let ((e-173 (vector-ref arg-0 1))) (let ((e-174 (vector-ref arg-0 2))) (PreludeC-45TypesC-45String-C-43C-43 "File error (" (PreludeC-45TypesC-45String-C-43C-43 e-173 (PreludeC-45TypesC-45String-C-43C-43 "): " (SystemC-45File-u--show_Show_FileError e-174))))))) ((50) (let ((e-175 (vector-ref arg-0 1))) (PreludeC-45TypesC-45String-C-43C-43 "Can't find package " e-175))) ((51) (let ((e-176 (vector-ref arg-0 1))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC e-176) ":Can't parse literate"))) ((52) (let ((e-177 (vector-ref arg-0 1))) (let ((e-178 (vector-ref arg-0 2))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC e-177) (PreludeC-45TypesC-45String-C-43C-43 ":Lexer error (" (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_String e-178) ")")))))) ((53) (let ((e-180 (vector-ref arg-0 2))) (PreludeC-45TypesC-45String-C-43C-43 "Parse error (" (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_String e-180) ")")))) ((54) (let ((e-181 (vector-ref arg-0 1))) (let ((e-182 (vector-ref arg-0 2))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC e-181) (PreludeC-45TypesC-45String-C-43C-43 ":" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-u--show_Show_ModuleIdent e-182) " not found")))))) ((55) (let ((e-183 (vector-ref arg-0 1))) (PreludeC-45TypesC-45String-C-43C-43 "Module imports form a cycle: " (CoreC-45NameC-45Namespace-showSep " -> " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45NameC-45Namespace-u--show_Show_ModuleIdent eta-0)) e-183))))) ((56) "Internal error when resolving implicit laziness") ((57) (let ((e-184 (vector-ref arg-0 1))) (PreludeC-45TypesC-45String-C-43C-43 "INTERNAL ERROR: " e-184))) ((58) (let ((e-185 (vector-ref arg-0 1))) (PreludeC-45TypesC-45String-C-43C-43 "Error: " e-185))) ((59) (let ((e-186 (vector-ref arg-0 1))) (let ((e-187 (vector-ref arg-0 2))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC e-186) (PreludeC-45TypesC-45String-C-43C-43 ":The given specifier " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_String u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_String u--d u--x)))) e-187) " was not accepted by any available backend.")))))) ((60) (let ((e-189 (vector-ref arg-0 2))) (PreludeC-45TypesC-45String-C-43C-43 "Invalid multiline string: " e-189))) ((61) (let ((e-190 (vector-ref arg-0 1))) (PreludeC-45TypesC-45String-C-43C-43 "Timeout in " e-190))) ((62) (let ((e-191 (vector-ref arg-0 1))) (let ((e-192 (vector-ref arg-0 2))) (let ((e-193 (vector-ref arg-0 3))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC e-191) (PreludeC-45TypesC-45String-C-43C-43 ":When elaborating type of " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-192) (PreludeC-45TypesC-45String-C-43C-43 ":\u000a" (CoreC-45Core-u--show_Show_Error e-193))))))))) ((63) (let ((e-194 (vector-ref arg-0 1))) (let ((e-195 (vector-ref arg-0 2))) (let ((e-196 (vector-ref arg-0 3))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC e-194) (PreludeC-45TypesC-45String-C-43C-43 ":When elaborating type of constructor " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-195) (PreludeC-45TypesC-45String-C-43C-43 ":\u000a" (CoreC-45Core-u--show_Show_Error e-196))))))))) ((64) (let ((e-197 (vector-ref arg-0 1))) (let ((e-198 (vector-ref arg-0 2))) (let ((e-199 (vector-ref arg-0 3))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC e-197) (PreludeC-45TypesC-45String-C-43C-43 ":When elaborating left hand side of " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-198) (PreludeC-45TypesC-45String-C-43C-43 ":\u000a" (CoreC-45Core-u--show_Show_Error e-199))))))))) ((65) (let ((e-200 (vector-ref arg-0 1))) (let ((e-201 (vector-ref arg-0 2))) (let ((e-202 (vector-ref arg-0 3))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC e-200) (PreludeC-45TypesC-45String-C-43C-43 ":When elaborating right hand side of " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-201) (PreludeC-45TypesC-45String-C-43C-43 ":\u000a" (CoreC-45Core-u--show_Show_Error e-202))))))))) ((66) (let ((e-203 (vector-ref arg-0 1))) (let ((e-204 (vector-ref arg-0 2))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Core-u--show_Show_Error e-203) (PreludeC-45TypesC-45String-C-43C-43 "\u000aDid you mean" (if (null? e-204) (PreludeC-45TypesC-45String-C-43C-43 " any of: " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-showSep ", " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (PreludeC-45Show-u--show_Show_String eta-0)) (DataC-45List1-forget e-204))) "?")) (let ((e-1 (car e-204))) (let ((e-2 (cdr e-204))) (if (null? e-2) (PreludeC-45TypesC-45String-C-43C-43 ": " (PreludeC-45TypesC-45String-C-43C-43 e-1 "?")) (PreludeC-45TypesC-45String-C-43C-43 " any of: " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-showSep ", " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (PreludeC-45Show-u--show_Show_String eta-0)) (DataC-45List1-forget e-204))) "?"))))))))))) (else (let ((e-205 (vector-ref arg-0 1))) (CoreC-45Core-u--show_Show_Warning e-205)))))) +(define CoreC-45Core-u--show_Show_DotReason (lambda (arg-0) (cond ((equal? arg-0 0) "Non linear pattern variable") ((equal? arg-0 1) "Variable applied to arguments") ((equal? arg-0 2) "Not a constructor application or primitive") ((equal? arg-0 3) "Erased argument") ((equal? arg-0 4) "User dotted") ((equal? arg-0 5) "Unknown reason") (else "Under-applied constructor")))) +(define CoreC-45Core-u--showPrec_Show_Error (lambda (arg-0 arg-1) (CoreC-45Core-u--show_Show_Error arg-1))) +(define CoreC-45Core-u--pretty_Pretty_DotReason (lambda (arg-1) (cond ((equal? arg-1 0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Non linear pattern variable")) ((equal? arg-1 1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Variable applied to arguments")) ((equal? arg-1 2) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Not a constructor application or primitive")) ((equal? arg-1 3) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Erased argument")) ((equal? arg-1 4) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "User dotted")) ((equal? arg-1 5) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Unknown reason")) (else (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Under-applied constructor"))))) +(define CoreC-45Core-u--catch_Catchable_Core_Error (lambda (arg-1 arg-2 ext-0) (let ((act-24 (arg-1 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) ((arg-2 e-2) ext-0))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 e-5))))))) +(define CoreC-45Core-writeFile (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 ((SystemC-45File-writeFile (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-24 (arg-811 eta-0))) ((arg-812 act-24) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-51 (arg-814 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) arg-0 arg-1) ext-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (case (vector-ref e-5 0) ((1) (let ((e-2 (vector-ref e-5 1))) (cond (else (vector 1 0))))) (else (let ((e-6 (vector-ref e-5 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 49 arg-0 e-6) ext-0)))))))))) +(define CoreC-45Core-wrapRef (lambda (arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Core-u--catch_Catchable_Core_Error arg-6 (lambda (u--err) (lambda (eta-0) (let ((act-25 ((arg-5 e-5) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 (let ((act-26 (set-box! arg-4 e-5))) (vector 1 act-26)))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (CoreC-45Core-u--throw_Catchable_Core_Error u--err eta-0))))))))) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 ((arg-5 e-5) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((act-27 (let ((act-27 (set-box! arg-4 e-5))) (vector 1 act-27)))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (vector 1 e-6))))))))))))))))) +(define CoreC-45Core-wrapError (lambda (arg-1 arg-2) (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (PreludeC-45IO-u--map_Functor_IO eta-2 eta-3 eta-4)))))) (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-2 (vector-ref eta-0 1))) (vector 0 (arg-1 e-2)))) (else (let ((e-5 (vector-ref eta-0 1))) (vector 1 e-5))))) arg-2))) +(define CoreC-45Core-traverse_ (lambda (arg-2 arg-3 ext-0) (if (null? arg-3) (vector 1 0) (let ((e-2 (car arg-3))) (let ((e-3 (cdr arg-3))) (let ((act-24 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-4 (vector-ref eta-0 1))) (vector 0 e-4))) (else (vector 1 0)))) (arg-2 e-2) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (CoreC-45Core-traverse_ arg-2 e-3 ext-0))))))))) +(define CoreC-45Core-traverseVect (lambda (arg-3 arg-4 ext-0) (if (null? arg-4) (vector 1 '()) (let ((e-3 (car arg-4))) (let ((e-4 (cdr arg-4))) (CoreC-45Core-C-60C-42C-62 (lambda (eta-0) (CoreC-45Core-C-60C-42C-62 (lambda (eta-1) (vector 1 (lambda (eta-2) (lambda (eta-3) (cons eta-2 eta-3))))) (arg-3 e-3) eta-0)) (lambda (eta-0) (CoreC-45Core-traverseVect arg-3 e-4 eta-0)) ext-0)))))) +(define CoreC-45Core-traversePair (lambda (arg-3 arg-4 ext-0) (let ((e-2 (car arg-4))) (let ((e-3 (cdr arg-4))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-4 (vector-ref eta-0 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref eta-0 1))) (vector 1 (cons e-2 e-5)))))) (arg-3 e-3) ext-0))))) +(define CoreC-45Core-traverseList1_ (lambda (arg-2 arg-3) (let ((u--x (let ((e-1 (car arg-3))) e-1))) (let ((u--xs (let ((e-2 (cdr arg-3))) e-2))) (lambda (eta-0) (let ((act-24 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (case (vector-ref eta-1 0) ((0) (let ((e-2 (vector-ref eta-1 1))) (vector 0 e-2))) (else (vector 1 0)))) (arg-2 u--x) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (CoreC-45Core-traverse_ arg-2 u--xs eta-0))))))))) +(define CoreC-45Core-traverseC-39 (lambda (arg-2 arg-3 arg-4 ext-0) (if (null? arg-3) (vector 1 (DataC-45List-reverse arg-4)) (let ((e-2 (car arg-3))) (let ((e-3 (cdr arg-3))) (let ((act-24 ((arg-2 e-2) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (CoreC-45Core-traverseC-39 arg-2 e-3 (cons e-5 arg-4) ext-0)))))))))) +(define CoreC-45CoreC-45PiInfo-traverse (lambda (arg-2 arg-3 ext-0) (case (vector-ref arg-3 0) ((1) (vector 1 (vector 1 ))) ((0) (vector 1 (vector 0 ))) ((2) (vector 1 (vector 2 ))) (else (let ((e-4 (vector-ref arg-3 1))) (let ((act-24 ((arg-2 e-4) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 3 e-5))))))))))) +(define CoreC-45CoreC-45Binder-traverse (lambda (arg-2 arg-3 ext-0) (case (vector-ref arg-3 0) ((0) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-3 (vector-ref arg-3 3))) (let ((e-4 (vector-ref arg-3 4))) (let ((act-24 (CoreC-45CoreC-45PiInfo-traverse arg-2 e-3 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((arg-2 e-4) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-6 (vector-ref act-25 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (vector 0 e-1 e-2 e-5 e-6))))))))))))))) ((1) (let ((e-6 (vector-ref arg-3 1))) (let ((e-7 (vector-ref arg-3 2))) (let ((e-8 (vector-ref arg-3 3))) (let ((e-9 (vector-ref arg-3 4))) (let ((act-24 ((arg-2 e-8) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((arg-2 e-9) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref act-25 1))) (vector 1 (vector 1 e-6 e-7 e-5 e-10))))))))))))))) ((2) (let ((e-11 (vector-ref arg-3 1))) (let ((e-12 (vector-ref arg-3 2))) (let ((e-13 (vector-ref arg-3 3))) (let ((e-14 (vector-ref arg-3 4))) (let ((act-24 (CoreC-45CoreC-45PiInfo-traverse arg-2 e-13 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((arg-2 e-14) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (vector 2 e-11 e-12 e-5 e-6))))))))))))))) ((3) (let ((e-16 (vector-ref arg-3 1))) (let ((e-17 (vector-ref arg-3 2))) (let ((e-18 (vector-ref arg-3 3))) (let ((e-19 (vector-ref arg-3 4))) (let ((act-24 (CoreC-45CoreC-45PiInfo-traverse arg-2 e-18 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((arg-2 e-19) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (vector 3 e-16 e-17 e-5 e-6))))))))))))))) ((4) (let ((e-21 (vector-ref arg-3 1))) (let ((e-22 (vector-ref arg-3 2))) (let ((e-23 (vector-ref arg-3 3))) (let ((e-24 (vector-ref arg-3 4))) (let ((act-24 ((arg-2 e-23) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((arg-2 e-24) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (vector 4 e-21 e-22 e-5 e-6))))))))))))))) (else (let ((e-26 (vector-ref arg-3 1))) (let ((e-27 (vector-ref arg-3 2))) (let ((e-28 (vector-ref arg-3 3))) (let ((act-24 ((arg-2 e-28) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 5 e-26 e-27 e-5))))))))))))) +(define CoreC-45Core-newRef (lambda (arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 ((DataC-45IORef-newIORef (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-24 (arg-811 eta-0))) ((arg-812 act-24) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-51 (arg-814 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) arg-3) ext-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 e-5))))))) +(define CoreC-45Core-mapTermM (lambda (arg-0 arg-1 ext-0) (CoreC-45Core-n--8261-3838-u--goTerm arg-1 arg-0 arg-1 ext-0))) +(define CoreC-45Core-iwhenJust (lambda (arg-2 arg-3) (if (null? arg-2) (lambda (eta-0) (vector 1 0)) (let ((e-1 (unbox arg-2))) (arg-3 e-1))))) +(define CoreC-45Core-iwhen (lambda (arg-1 arg-2 ext-0) (cond ((equal? arg-1 1) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-2 (vector-ref eta-0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-0 1))) (vector 1 (box e-5)))))) (arg-2) ext-0)) (else (vector 1 '()))))) +(define CoreC-45Core-iunless (lambda (arg-1 arg-2 ext-0) (CoreC-45Core-iwhen (cond ((equal? arg-1 1) 0) (else 1)) arg-2 ext-0))) +(define CoreC-45Core-getWarningLoc (lambda (arg-0) (case (vector-ref arg-0 0) ((0) (let ((e-1 (vector-ref arg-0 2))) (box e-1))) ((1) (let ((e-4 (vector-ref arg-0 1))) (box e-4))) (else '())))) +(define CoreC-45Core-getErrorLoc (lambda (arg-0) (case (vector-ref arg-0 0) ((0) (let ((e-0 (vector-ref arg-0 1))) (CoreC-45Core-getErrorLoc e-0))) ((1) (let ((e-2 (vector-ref arg-0 2))) (box e-2))) ((2) (let ((e-7 (vector-ref arg-0 2))) (box e-7))) ((3) (let ((e-12 (vector-ref arg-0 2))) (box e-12))) ((4) (let ((e-17 (vector-ref arg-0 2))) (box e-17))) ((5) (let ((e-22 (vector-ref arg-0 2))) (box e-22))) ((6) (let ((e-28 (vector-ref arg-0 2))) (box e-28))) ((7) (let ((e-31 (vector-ref arg-0 1))) (box e-31))) ((8) (let ((e-33 (vector-ref arg-0 1))) (box e-33))) ((9) (let ((e-36 (vector-ref arg-0 1))) (box e-36))) ((10) (let ((e-38 (vector-ref arg-0 1))) (box e-38))) ((11) (let ((e-41 (vector-ref arg-0 1))) (box e-41))) ((12) (let ((e-44 (vector-ref arg-0 1))) (box e-44))) ((13) (let ((e-47 (vector-ref arg-0 1))) (box e-47))) ((14) (let ((e-50 (vector-ref arg-0 1))) (box e-50))) ((15) (let ((e-55 (vector-ref arg-0 2))) (box e-55))) ((16) (let ((e-60 (vector-ref arg-0 2))) (box e-60))) ((17) (let ((e-63 (vector-ref arg-0 1))) (box e-63))) ((18) (let ((e-66 (vector-ref arg-0 2))) (box e-66))) ((19) (let ((e-70 (vector-ref arg-0 2))) (box e-70))) ((20) (let ((e-74 (vector-ref arg-0 1))) (box e-74))) ((21) (let ((e-77 (vector-ref arg-0 1))) (if (null? e-77) '() (let ((e-207 (car e-77))) (let ((e-213 (cdr e-207))) (CoreC-45Core-getErrorLoc e-213)))))) ((22) (let ((e-79 (vector-ref arg-0 2))) (box e-79))) ((23) (let ((e-81 (vector-ref arg-0 1))) (box e-81))) ((24) (let ((e-84 (vector-ref arg-0 1))) (box e-84))) ((25) (let ((e-86 (vector-ref arg-0 1))) (box e-86))) ((26) (let ((e-89 (vector-ref arg-0 2))) (box e-89))) ((27) (let ((e-94 (vector-ref arg-0 2))) (box e-94))) ((28) (let ((e-98 (vector-ref arg-0 2))) (box e-98))) ((29) (let ((e-103 (vector-ref arg-0 2))) (box e-103))) ((30) (let ((e-107 (vector-ref arg-0 2))) (box e-107))) ((31) (let ((e-112 (vector-ref arg-0 1))) (if (null? e-112) '() (let ((e-215 (car e-112))) (let ((e-220 (car e-215))) (box e-220)))))) ((32) (let ((e-114 (vector-ref arg-0 2))) (box e-114))) ((33) (let ((e-120 (vector-ref arg-0 2))) (box e-120))) ((34) (let ((e-124 (vector-ref arg-0 1))) (box e-124))) ((35) (let ((e-129 (vector-ref arg-0 1))) (box e-129))) ((36) (let ((e-131 (vector-ref arg-0 1))) (box e-131))) ((37) (let ((e-133 (vector-ref arg-0 1))) (box e-133))) ((38) (let ((e-135 (vector-ref arg-0 1))) (box e-135))) ((39) (let ((e-138 (vector-ref arg-0 2))) (box e-138))) ((40) (let ((e-142 (vector-ref arg-0 2))) (box e-142))) ((41) (let ((e-147 (vector-ref arg-0 2))) (box e-147))) ((42) (let ((e-150 (vector-ref arg-0 1))) (box e-150))) ((43) (let ((e-154 (vector-ref arg-0 2))) (box e-154))) ((44) (let ((e-158 (vector-ref arg-0 2))) (box e-158))) ((45) (let ((e-163 (vector-ref arg-0 1))) (box e-163))) ((46) (let ((e-166 (vector-ref arg-0 2))) (box e-166))) ((47) (let ((e-170 (vector-ref arg-0 1))) (box e-170))) ((48) '()) ((49) '()) ((50) '()) ((51) (let ((e-176 (vector-ref arg-0 1))) (box e-176))) ((52) (let ((e-177 (vector-ref arg-0 1))) (box e-177))) ((53) (let ((e-179 (vector-ref arg-0 1))) (box e-179))) ((54) (let ((e-181 (vector-ref arg-0 1))) (box e-181))) ((55) '()) ((56) '()) ((57) '()) ((58) '()) ((59) (let ((e-186 (vector-ref arg-0 1))) (box e-186))) ((60) (let ((e-188 (vector-ref arg-0 1))) (box e-188))) ((61) '()) ((62) (let ((e-193 (vector-ref arg-0 3))) (CoreC-45Core-getErrorLoc e-193))) ((63) (let ((e-196 (vector-ref arg-0 3))) (CoreC-45Core-getErrorLoc e-196))) ((64) (let ((e-199 (vector-ref arg-0 3))) (CoreC-45Core-getErrorLoc e-199))) ((65) (let ((e-202 (vector-ref arg-0 3))) (CoreC-45Core-getErrorLoc e-202))) ((66) (let ((e-203 (vector-ref arg-0 1))) (CoreC-45Core-getErrorLoc e-203))) (else (let ((e-205 (vector-ref arg-0 1))) (CoreC-45Core-getWarningLoc e-205)))))) +(define CoreC-45Core-foldlC (lambda (arg-3 arg-4 arg-5 ext-0) (let ((e-2 (vector-ref arg-3 1))) (((((e-2 'erased) 'erased) (lambda (u--ma) (lambda (u--b) (lambda (eta-0) (let ((act-24 (u--ma eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-7 (vector-ref act-24 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-24 1))) ((PreludeC-45Basics-flip arg-4 u--b e-7) eta-0))))))))) (lambda (eta-0) (vector 1 arg-5))) ext-0)))) +(define CoreC-45Core-filterM (lambda (arg-1 arg-2 ext-0) (if (null? arg-2) (vector 1 '()) (let ((e-2 (car arg-2))) (let ((e-3 (cdr arg-2))) (let ((act-24 ((arg-1 e-2) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (cond ((equal? e-5 1) (let ((act-25 (CoreC-45Core-filterM arg-1 e-3 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (cons e-2 e-6))))))) (else (CoreC-45Core-filterM arg-1 e-3 ext-0)))))))))))) +(define CoreC-45Core-coreRun (lambda (arg-2 arg-3 arg-4 ext-0) (let ((act-24 (arg-2 ext-0))) ((PreludeC-45Types-either (lambda () arg-3) (lambda () arg-4) act-24) ext-0)))) +(define CoreC-45Core-coreFail (lambda (arg-1 ext-0) (vector 0 arg-1))) +(define CoreC-45Core-cond (lambda (arg-1 arg-2) (if (null? arg-1) arg-2 (let ((e-2 (car arg-1))) (let ((e-3 (cdr arg-1))) (let ((e-6 (car e-2))) (let ((e-7 (cdr e-2))) (let ((e-1 (e-6))) (cond ((equal? e-1 1) (e-7)) (else (CoreC-45Core-cond e-3 arg-2))))))))))) +(define CoreC-45Core-anyM (lambda (arg-1 arg-2 ext-0) (if (null? arg-2) (vector 1 0) (let ((e-2 (car arg-2))) (let ((e-3 (cdr arg-2))) (let ((act-24 ((arg-1 e-2) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (cond ((equal? e-5 1) (vector 1 1)) (else (CoreC-45Core-anyM arg-1 e-3 ext-0)))))))))))) +(define CoreC-45Core-allM (lambda (arg-1 arg-2 ext-0) (if (null? arg-2) (vector 1 1) (let ((e-2 (car arg-2))) (let ((e-3 (cdr arg-2))) (let ((act-24 ((arg-1 e-2) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (cond ((equal? e-5 1) (CoreC-45Core-allM arg-1 e-3 ext-0)) (else (vector 1 0)))))))))))) +(define CoreC-45Core-C-60C-42C-62 (lambda (arg-2 arg-3 ext-0) (let ((act-17 (let ((act-17 (lambda (eta-0) (lambda (eta-1) (case (vector-ref eta-0 0) ((0) (let ((e-2 (vector-ref eta-0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-0 1))) (case (vector-ref eta-1 0) ((1) (let ((e-8 (vector-ref eta-1 1))) (vector 1 (e-5 e-8)))) (else (let ((e-11 (vector-ref eta-1 1))) (vector 0 e-11))))))))))) (let ((act-16 (arg-2 ext-0))) (act-17 act-16))))) (let ((act-16 (arg-3 ext-0))) (act-17 act-16))))) +(define CoreC-45Core-C-42C-62 (lambda (arg-2 arg-3 ext-0) (let ((act-17 (let ((act-17 (lambda (eta-0) (lambda (eta-1) (PreludeC-45Interfaces-C-42C-62 (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (case (vector-ref arg-133 0) ((0) (let ((e-2 (vector-ref arg-133 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref arg-133 1))) (vector 1 (u--func e-5))))))))) (lambda (u--a) (lambda (arg-527) (vector 1 arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (case (vector-ref arg-528 0) ((0) (let ((e-2 (vector-ref arg-528 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref arg-528 1))) (case (vector-ref arg-530 0) ((1) (let ((e-8 (vector-ref arg-530 1))) (vector 1 (e-5 e-8)))) (else (let ((e-11 (vector-ref arg-530 1))) (vector 0 e-11)))))))))))) eta-0 eta-1))))) (let ((act-16 (arg-2 ext-0))) (act-17 act-16))))) (let ((act-16 (arg-3 ext-0))) (act-17 act-16))))) +(define DataC-45IORef-newIORef (lambda (arg-2 arg-3) (let ((e-1 (car arg-2))) (let ((e-4 (vector-ref e-1 1))) ((((e-4 'erased) 'erased) (let ((e-6 (cdr arg-2))) ((e-6 'erased) (lambda (eta-0) (box arg-3))))) (lambda (u--m) (let ((e-7 (car arg-2))) (let ((e-10 (vector-ref e-7 0))) (let ((e-12 (vector-ref e-10 1))) ((e-12 'erased) u--m)))))))))) +(define LibrariesC-45DataC-45IMaybe-fromJust (lambda (arg-1) (let ((e-1 (unbox arg-1))) e-1))) +(define CoreC-45TTC-45SubstEnv-case--find-9445 (lambda (arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (cond ((equal? arg-5 0) (if (null? arg-8) (CoreC-45TTC-45SubstEnv-findDrop arg-7 arg-6 arg-4 arg-3) (let ((e-3 (unbox arg-8))) (cond ((equal? arg-4 0) (vector 0 arg-7 arg-6 0))(else (let ((e-4 (- arg-4 1))) (CoreC-45TT-u--weaken_Weaken_Term (CoreC-45TTC-45SubstEnv-find arg-7 arg-6 e-3 e-4 arg-3))))))))(else (let ((e-3 (unbox arg-8))) (cond ((equal? arg-4 0) (vector 0 arg-7 arg-6 0))(else (let ((e-4 (- arg-4 1))) (CoreC-45TT-u--weaken_Weaken_Term (CoreC-45TTC-45SubstEnv-find arg-7 arg-6 e-3 e-4 arg-3)))))))))) +(define CoreC-45TT-case--weakenNs-7322 (lambda (arg-2 arg-3 arg-4) (cond ((equal? arg-3 0) (if (null? arg-4) arg-2 (let ((e-3 (unbox arg-4))) (CoreC-45TT-u--weaken_Weaken_Var (CoreC-45TT-u--weakenNs_Weaken_Var e-3 arg-2)))))(else (let ((e-3 (unbox arg-4))) (CoreC-45TT-u--weaken_Weaken_Var (CoreC-45TT-u--weakenNs_Weaken_Var e-3 arg-2))))))) +(define CoreC-45TT-case--insertNVarNames-6827 (lambda (arg-4 arg-5 arg-6 arg-7) (cond ((equal? arg-6 0) (if (null? arg-7) (CoreC-45TT-weakenNVar arg-5 arg-4) (let ((e-3 (unbox arg-7))) (cond ((equal? arg-4 0) 0)(else (let ((e-4 (- arg-4 1))) (CoreC-45TTC-45NVar-later (CoreC-45TT-insertNVarNames e-3 arg-5 e-4))))))))(else (let ((e-3 (unbox arg-7))) (cond ((equal? arg-4 0) 0)(else (let ((e-4 (- arg-4 1))) (CoreC-45TTC-45NVar-later (CoreC-45TT-insertNVarNames e-3 arg-5 e-4)))))))))) +(define CoreC-45TT-case--insertNVar-6594 (lambda (arg-4 arg-5 arg-6) (cond ((equal? arg-5 0) (if (null? arg-6) (CoreC-45TTC-45NVar-later arg-4) (let ((e-3 (unbox arg-6))) (cond ((equal? arg-4 0) 0)(else (let ((e-4 (- arg-4 1))) (CoreC-45TTC-45NVar-later (CoreC-45TT-insertNVar e-3 e-4))))))))(else (let ((e-3 (unbox arg-6))) (cond ((equal? arg-4 0) 0)(else (let ((e-4 (- arg-4 1))) (CoreC-45TTC-45NVar-later (CoreC-45TT-insertNVar e-3 e-4)))))))))) +(define CoreC-45TT-case--weakenNVar-6540 (lambda (arg-3 arg-4 arg-5) (cond ((equal? arg-4 0) (if (null? arg-5) arg-3 (let ((e-3 (unbox arg-5))) (CoreC-45TTC-45NVar-later (CoreC-45TT-weakenNVar e-3 arg-3)))))(else (let ((e-3 (unbox arg-5))) (CoreC-45TTC-45NVar-later (CoreC-45TT-weakenNVar e-3 arg-3))))))) +(define CoreC-45TT-n--10134-6397-u--showTot (lambda (arg-0 arg-1 arg-2) (case (vector-ref arg-1 0) ((1) (case (vector-ref arg-2 0) ((0) "total")(else (CoreC-45TT-u--show_Show_Covering arg-2))))(else (case (vector-ref arg-2 0) ((0) (CoreC-45TT-u--show_Show_Terminating arg-1))(else (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_Covering arg-2) (PreludeC-45TypesC-45String-C-43C-43 "; " (CoreC-45TT-u--show_Show_Terminating arg-1))))))))) +(define CoreC-45TT-n--14523-10237-u--showApp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (case (vector-ref arg-3 0) ((0) (let ((e-5 (vector-ref arg-3 3))) (if (null? arg-4) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name (CoreC-45TT-nameAt arg-2 e-5)) (PreludeC-45TypesC-45String-C-43C-43 "[" (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Nat e-5) "]"))) (if (null? arg-4) "???" (PreludeC-45TypesC-45String-C-43C-43 "(" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 arg-3) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-showSep " " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 eta-0)) arg-4)) ")")))))))) ((1) (let ((e-10 (vector-ref arg-3 3))) (if (null? arg-4) (CoreC-45Name-u--show_Show_Name e-10) (if (null? arg-4) "???" (PreludeC-45TypesC-45String-C-43C-43 "(" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 arg-3) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-showSep " " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 eta-0)) arg-4)) ")")))))))) ((2) (let ((e-13 (vector-ref arg-3 2))) (let ((e-15 (vector-ref arg-3 4))) (if (null? arg-4) (PreludeC-45TypesC-45String-C-43C-43 "?" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-13) (PreludeC-45TypesC-45String-C-43C-43 "_" (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-2 u--d u--x)))) e-15)))) (if (null? arg-4) "???" (PreludeC-45TypesC-45String-C-43C-43 "(" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 arg-3) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-showSep " " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 eta-0)) arg-4)) ")"))))))))) ((3) (let ((e-18 (vector-ref arg-3 2))) (let ((e-19 (vector-ref arg-3 3))) (let ((e-20 (vector-ref arg-3 4))) (case (vector-ref e-19 0) ((0) (let ((e-56 (vector-ref e-19 2))) (let ((e-57 (vector-ref e-19 3))) (let ((e-58 (vector-ref e-19 4))) (if (null? arg-4) (PreludeC-45TypesC-45String-C-43C-43 "\\" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-withPiInfo (cons (lambda (u--x) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-2 u--d u--x)))) e-57 (PreludeC-45TypesC-45String-C-43C-43 (Algebra-showCount e-56) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-18) (PreludeC-45TypesC-45String-C-43C-43 " : " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 e-58))))) (PreludeC-45TypesC-45String-C-43C-43 " => " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 (cons e-18 arg-2) e-20)))) (if (null? arg-4) "???" (PreludeC-45TypesC-45String-C-43C-43 "(" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 arg-3) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-showSep " " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 eta-0)) arg-4)) ")")))))))))) ((1) (let ((e-61 (vector-ref e-19 2))) (let ((e-62 (vector-ref e-19 3))) (let ((e-63 (vector-ref e-19 4))) (if (null? arg-4) (PreludeC-45TypesC-45String-C-43C-43 "let " (PreludeC-45TypesC-45String-C-43C-43 (Algebra-showCount e-61) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-18) (PreludeC-45TypesC-45String-C-43C-43 " : " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 e-63) (PreludeC-45TypesC-45String-C-43C-43 " = " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 e-62) (PreludeC-45TypesC-45String-C-43C-43 " in " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 (cons e-18 arg-2) e-20))))))))) (if (null? arg-4) "???" (PreludeC-45TypesC-45String-C-43C-43 "(" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 arg-3) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-showSep " " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 eta-0)) arg-4)) ")")))))))))) ((2) (let ((e-66 (vector-ref e-19 2))) (let ((e-67 (vector-ref e-19 3))) (let ((e-68 (vector-ref e-19 4))) (if (null? arg-4) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-withPiInfo (cons (lambda (u--x) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-2 u--d u--x)))) e-67 (PreludeC-45TypesC-45String-C-43C-43 (Algebra-showCount e-66) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-18) (PreludeC-45TypesC-45String-C-43C-43 " : " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 e-68))))) (PreludeC-45TypesC-45String-C-43C-43 " -> " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 (cons e-18 arg-2) e-20) ")"))) (if (null? arg-4) "???" (PreludeC-45TypesC-45String-C-43C-43 "(" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 arg-3) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-showSep " " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 eta-0)) arg-4)) ")")))))))))) ((3) (let ((e-71 (vector-ref e-19 2))) (let ((e-72 (vector-ref e-19 3))) (let ((e-73 (vector-ref e-19 4))) (if (null? arg-4) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-withPiInfo (cons (lambda (u--x) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-2 u--d u--x)))) e-72 (PreludeC-45TypesC-45String-C-43C-43 "pat " (PreludeC-45TypesC-45String-C-43C-43 (Algebra-showCount e-71) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-18) (PreludeC-45TypesC-45String-C-43C-43 " : " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 e-73)))))) (PreludeC-45TypesC-45String-C-43C-43 " => " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 (cons e-18 arg-2) e-20))) (if (null? arg-4) "???" (PreludeC-45TypesC-45String-C-43C-43 "(" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 arg-3) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-showSep " " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 eta-0)) arg-4)) ")")))))))))) ((4) (let ((e-76 (vector-ref e-19 2))) (let ((e-77 (vector-ref e-19 3))) (let ((e-78 (vector-ref e-19 4))) (if (null? arg-4) (PreludeC-45TypesC-45String-C-43C-43 "plet " (PreludeC-45TypesC-45String-C-43C-43 (Algebra-showCount e-76) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-18) (PreludeC-45TypesC-45String-C-43C-43 " : " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 e-78) (PreludeC-45TypesC-45String-C-43C-43 " = " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 e-77) (PreludeC-45TypesC-45String-C-43C-43 " in " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 (cons e-18 arg-2) e-20))))))))) (if (null? arg-4) "???" (PreludeC-45TypesC-45String-C-43C-43 "(" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 arg-3) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-showSep " " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 eta-0)) arg-4)) ")")))))))))) ((5) (let ((e-81 (vector-ref e-19 2))) (let ((e-82 (vector-ref e-19 3))) (if (null? arg-4) (PreludeC-45TypesC-45String-C-43C-43 "pty " (PreludeC-45TypesC-45String-C-43C-43 (Algebra-showCount e-81) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-18) (PreludeC-45TypesC-45String-C-43C-43 " : " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 e-82) (PreludeC-45TypesC-45String-C-43C-43 " => " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 (cons e-18 arg-2) e-20))))))) (if (null? arg-4) "???" (PreludeC-45TypesC-45String-C-43C-43 "(" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 arg-3) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-showSep " " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 eta-0)) arg-4)) ")")))))))))(else (if (null? arg-4) "???" (PreludeC-45TypesC-45String-C-43C-43 "(" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 arg-3) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-showSep " " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 eta-0)) arg-4)) ")"))))))))))) ((4) (if (null? arg-4) "[can't happen]" (if (null? arg-4) "???" (PreludeC-45TypesC-45String-C-43C-43 "(" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 arg-3) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-showSep " " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 eta-0)) arg-4)) ")"))))))) ((5) (let ((e-28 (vector-ref arg-3 3))) (let ((e-29 (vector-ref arg-3 4))) (if (null? arg-4) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 e-28) (PreludeC-45TypesC-45String-C-43C-43 "@" (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 e-29))) (if (null? arg-4) "???" (PreludeC-45TypesC-45String-C-43C-43 "(" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 arg-3) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-showSep " " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 eta-0)) arg-4)) ")"))))))))) ((6) (let ((e-33 (vector-ref arg-3 3))) (if (null? arg-4) (PreludeC-45TypesC-45String-C-43C-43 "%Delayed " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 e-33)) (if (null? arg-4) "???" (PreludeC-45TypesC-45String-C-43C-43 "(" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 arg-3) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-showSep " " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 eta-0)) arg-4)) ")")))))))) ((7) (let ((e-38 (vector-ref arg-3 4))) (if (null? arg-4) (PreludeC-45TypesC-45String-C-43C-43 "%Delay " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 e-38)) (if (null? arg-4) "???" (PreludeC-45TypesC-45String-C-43C-43 "(" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 arg-3) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-showSep " " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 eta-0)) arg-4)) ")")))))))) ((8) (let ((e-42 (vector-ref arg-3 3))) (if (null? arg-4) (PreludeC-45TypesC-45String-C-43C-43 "%Force " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 e-42)) (if (null? arg-4) "???" (PreludeC-45TypesC-45String-C-43C-43 "(" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 arg-3) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-showSep " " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 eta-0)) arg-4)) ")")))))))) ((9) (let ((e-45 (vector-ref arg-3 2))) (if (null? arg-4) (CoreC-45TT-u--show_Show_Constant e-45) (if (null? arg-4) "???" (PreludeC-45TypesC-45String-C-43C-43 "(" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 arg-3) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-showSep " " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 eta-0)) arg-4)) ")")))))))) ((10) (if (null? arg-4) "[__]" (if (null? arg-4) "???" (PreludeC-45TypesC-45String-C-43C-43 "(" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 arg-3) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-showSep " " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 eta-0)) arg-4)) ")"))))))) ((11) (if (null? arg-4) "Type" (if (null? arg-4) "???" (PreludeC-45TypesC-45String-C-43C-43 "(" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 arg-3) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-showSep " " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 eta-0)) arg-4)) ")")))))))(else (if (null? arg-4) "???" (PreludeC-45TypesC-45String-C-43C-43 "(" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 arg-3) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-showSep " " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 eta-0)) arg-4)) ")"))))))))) +(define CoreC-45TT-n--8543-4926-u--go (lambda (arg-2 arg-3 arg-4) (case (vector-ref arg-3 0) ((0) (let ((e-2 (vector-ref arg-3 2))) (let ((e-3 (vector-ref arg-3 3))) (let ((e-4 (vector-ref arg-3 4))) (case (vector-ref arg-4 0) ((0) (let ((e-31 (vector-ref arg-4 2))) (let ((e-32 (vector-ref arg-4 3))) (let ((e-33 (vector-ref arg-4 4))) (let ((sc2 (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega e-2 e-31))) (cond ((equal? sc2 1) (let ((sc3 (CoreC-45TT-eqPiInfoBy arg-2 e-3 e-32))) (cond ((equal? sc3 1) ((arg-2 e-4) e-33)) (else 0)))) (else 0)))))))(else 0)))))) ((1) (let ((e-7 (vector-ref arg-3 2))) (let ((e-8 (vector-ref arg-3 3))) (let ((e-9 (vector-ref arg-3 4))) (case (vector-ref arg-4 0) ((1) (let ((e-36 (vector-ref arg-4 2))) (let ((e-37 (vector-ref arg-4 3))) (let ((e-38 (vector-ref arg-4 4))) (let ((sc2 (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega e-7 e-36))) (cond ((equal? sc2 1) (let ((sc3 ((arg-2 e-8) e-37))) (cond ((equal? sc3 1) ((arg-2 e-9) e-38)) (else 0)))) (else 0)))))))(else 0)))))) ((2) (let ((e-12 (vector-ref arg-3 2))) (let ((e-13 (vector-ref arg-3 3))) (let ((e-14 (vector-ref arg-3 4))) (case (vector-ref arg-4 0) ((2) (let ((e-41 (vector-ref arg-4 2))) (let ((e-42 (vector-ref arg-4 3))) (let ((e-43 (vector-ref arg-4 4))) (let ((sc2 (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega e-12 e-41))) (cond ((equal? sc2 1) (let ((sc3 (CoreC-45TT-eqPiInfoBy arg-2 e-13 e-42))) (cond ((equal? sc3 1) ((arg-2 e-14) e-43)) (else 0)))) (else 0)))))))(else 0)))))) ((3) (let ((e-17 (vector-ref arg-3 2))) (let ((e-18 (vector-ref arg-3 3))) (let ((e-19 (vector-ref arg-3 4))) (case (vector-ref arg-4 0) ((3) (let ((e-46 (vector-ref arg-4 2))) (let ((e-47 (vector-ref arg-4 3))) (let ((e-48 (vector-ref arg-4 4))) (let ((sc2 (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega e-17 e-46))) (cond ((equal? sc2 1) (let ((sc3 (CoreC-45TT-eqPiInfoBy arg-2 e-18 e-47))) (cond ((equal? sc3 1) ((arg-2 e-19) e-48)) (else 0)))) (else 0)))))))(else 0)))))) ((4) (let ((e-22 (vector-ref arg-3 2))) (let ((e-23 (vector-ref arg-3 3))) (let ((e-24 (vector-ref arg-3 4))) (case (vector-ref arg-4 0) ((4) (let ((e-51 (vector-ref arg-4 2))) (let ((e-52 (vector-ref arg-4 3))) (let ((e-53 (vector-ref arg-4 4))) (let ((sc2 (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega e-22 e-51))) (cond ((equal? sc2 1) (let ((sc3 ((arg-2 e-23) e-52))) (cond ((equal? sc3 1) ((arg-2 e-24) e-53)) (else 0)))) (else 0)))))))(else 0)))))) ((5) (let ((e-27 (vector-ref arg-3 2))) (let ((e-28 (vector-ref arg-3 3))) (case (vector-ref arg-4 0) ((5) (let ((e-56 (vector-ref arg-4 2))) (let ((e-57 (vector-ref arg-4 3))) (let ((sc2 (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega e-27 e-56))) (cond ((equal? sc2 1) ((arg-2 e-28) e-57)) (else 0))))))(else 0)))))(else 0)))) +(define CoreC-45TT-n--5857-2372-u--go (lambda (arg-2 arg-3 arg-4) (case (vector-ref arg-3 0) ((0) (case (vector-ref arg-4 0) ((0) 1)(else 0))) ((1) (case (vector-ref arg-4 0) ((1) 1)(else 0))) ((2) (case (vector-ref arg-4 0) ((2) 1)(else 0))) ((3) (let ((e-4 (vector-ref arg-3 1))) (case (vector-ref arg-4 0) ((3) (let ((e-9 (vector-ref arg-4 1))) ((arg-2 e-4) e-9)))(else 0))))(else 0)))) +(define CoreC-45TT-n--11383-7482-u--getFA (lambda (arg-1 arg-2 arg-3) (case (vector-ref arg-3 0) ((4) (let ((e-2 (vector-ref arg-3 2))) (let ((e-3 (vector-ref arg-3 3))) (CoreC-45TT-n--11383-7482-u--getFA arg-1 (cons e-3 arg-2) e-2))))(else (cons arg-3 arg-2))))) +(define CoreC-45TT-n--14234-9987-u--addRefsArgs (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (if (null? arg-9) arg-8 (let ((e-2 (car arg-9))) (let ((e-3 (cdr arg-9))) (CoreC-45TT-n--14234-9987-u--addRefsArgs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (CoreC-45TT-addRefs arg-7 arg-6 arg-8 e-2) e-3)))))) +(define CoreC-45TT-n--14118-9893-u--addMetaArgs (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (if (null? arg-7) arg-6 (let ((e-2 (car arg-7))) (let ((e-3 (cdr arg-7))) (CoreC-45TT-n--14118-9893-u--addMetaArgs arg-1 arg-2 arg-3 arg-4 arg-5 (CoreC-45TT-addMetas arg-6 e-2) e-3)))))) +(define CoreC-45TT-u--weaken_Weaken_Var (lambda (ext-0) (CoreC-45TTC-45Var-later ext-0))) +(define CoreC-45TT-u--weaken_Weaken_Term (lambda (ext-0) (CoreC-45TT-u--weakenNs_Weaken_Term (CoreC-45TTC-45SizeOf-suc (CoreC-45TTC-45SizeOf-zero)) ext-0))) +(define CoreC-45TT-u--weakenNs_Weaken_Var (lambda (arg-2 arg-3) (CoreC-45TT-case--weakenNs-7322 arg-3 arg-2 (CoreC-45TT-sizedView arg-2)))) +(define CoreC-45TT-u--weakenNs_Weaken_Term (lambda (arg-2 arg-3) (CoreC-45TT-insertNames (CoreC-45TTC-45SizeOf-zero) arg-2 arg-3))) +(define CoreC-45TT-u--trimNS_StripNamespace_C-40TermC-32C-36varsC-41 (lambda (arg-1 arg-2) (case (vector-ref arg-2 0) ((1) (let ((e-1 (vector-ref arg-2 1))) (let ((e-2 (vector-ref arg-2 2))) (let ((e-3 (vector-ref arg-2 3))) (case (vector-ref e-3 0) ((0) (let ((e-36 (vector-ref e-3 1))) (let ((e-37 (vector-ref e-3 2))) (let ((u--tm (vector 1 e-1 e-2 (vector 0 e-36 e-37)))) (let ((sc2 (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace arg-1 e-36))) (cond ((equal? sc2 1) (vector 1 e-1 e-2 (vector 0 (CoreC-45NameC-45Namespace-unsafeFoldNamespace '()) e-37))) (else u--tm)))))))(else arg-2)))))) ((2) (let ((e-5 (vector-ref arg-2 1))) (let ((e-6 (vector-ref arg-2 2))) (let ((e-7 (vector-ref arg-2 3))) (let ((e-8 (vector-ref arg-2 4))) (vector 2 e-5 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (arg-3) (CoreC-45TT-u--trimNS_StripNamespace_C-40TermC-32C-36varsC-41 arg-1 arg-3)) e-8))))))) ((3) (let ((e-10 (vector-ref arg-2 1))) (let ((e-11 (vector-ref arg-2 2))) (let ((e-12 (vector-ref arg-2 3))) (let ((e-13 (vector-ref arg-2 4))) (vector 3 e-10 e-11 (CoreC-45TT-u--map_Functor_Binder (lambda (arg-3) (CoreC-45TT-u--trimNS_StripNamespace_C-40TermC-32C-36varsC-41 arg-1 arg-3)) e-12) (CoreC-45TT-u--trimNS_StripNamespace_C-40TermC-32C-36varsC-41 arg-1 e-13))))))) ((4) (let ((e-15 (vector-ref arg-2 1))) (let ((e-16 (vector-ref arg-2 2))) (let ((e-17 (vector-ref arg-2 3))) (vector 4 e-15 (CoreC-45TT-u--trimNS_StripNamespace_C-40TermC-32C-36varsC-41 arg-1 e-16) (CoreC-45TT-u--trimNS_StripNamespace_C-40TermC-32C-36varsC-41 arg-1 e-17)))))) ((5) (let ((e-19 (vector-ref arg-2 1))) (let ((e-20 (vector-ref arg-2 2))) (let ((e-21 (vector-ref arg-2 3))) (let ((e-22 (vector-ref arg-2 4))) (vector 5 e-19 e-20 (CoreC-45TT-u--trimNS_StripNamespace_C-40TermC-32C-36varsC-41 arg-1 e-21) (CoreC-45TT-u--trimNS_StripNamespace_C-40TermC-32C-36varsC-41 arg-1 e-22))))))) ((6) (let ((e-24 (vector-ref arg-2 1))) (let ((e-25 (vector-ref arg-2 2))) (let ((e-26 (vector-ref arg-2 3))) (vector 6 e-24 e-25 (CoreC-45TT-u--trimNS_StripNamespace_C-40TermC-32C-36varsC-41 arg-1 e-26)))))) ((7) (let ((e-28 (vector-ref arg-2 1))) (let ((e-29 (vector-ref arg-2 2))) (let ((e-30 (vector-ref arg-2 3))) (let ((e-31 (vector-ref arg-2 4))) (vector 7 e-28 e-29 (CoreC-45TT-u--trimNS_StripNamespace_C-40TermC-32C-36varsC-41 arg-1 e-30) (CoreC-45TT-u--trimNS_StripNamespace_C-40TermC-32C-36varsC-41 arg-1 e-31))))))) ((8) (let ((e-33 (vector-ref arg-2 1))) (let ((e-34 (vector-ref arg-2 2))) (let ((e-35 (vector-ref arg-2 3))) (vector 8 e-33 e-34 (CoreC-45TT-u--trimNS_StripNamespace_C-40TermC-32C-36varsC-41 arg-1 e-35))))))(else arg-2)))) +(define CoreC-45TT-u--show_Show_Visibility (lambda (arg-0) (cond ((equal? arg-0 0) "private") ((equal? arg-0 1) "export") (else "public export")))) +(define CoreC-45TT-u--show_Show_Totality (lambda (arg-0) (let ((u--t (let ((e-0 (car arg-0))) e-0))) (let ((u--c (let ((e-1 (cdr arg-0))) e-1))) (CoreC-45TT-n--10134-6397-u--showTot arg-0 u--t u--c))))) +(define CoreC-45TT-u--show_Show_TotalReq (lambda (arg-0) (cond ((equal? arg-0 0) "total") ((equal? arg-0 1) "covering") (else "partial")))) +(define CoreC-45TT-u--show_Show_Terminating (lambda (arg-0) (case (vector-ref arg-0 0) ((0) "not yet checked") ((1) "terminating") (else (let ((e-0 (vector-ref arg-0 1))) (CoreC-45TT-u--show_Show_PartialReason e-0)))))) +(define CoreC-45TT-u--show_Show_PartialReason (lambda (arg-0) (case (vector-ref arg-0 0) ((0) "not strictly positive") ((1) (let ((e-0 (vector-ref arg-0 1))) (if (null? e-0) (PreludeC-45TypesC-45String-C-43C-43 "possibly not terminating due to calls to " (CoreC-45NameC-45Namespace-showSep ", " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45Name-u--show_Show_Name eta-0)) e-0))) (let ((e-3 (car e-0))) (let ((e-4 (cdr e-0))) (if (null? e-4) (PreludeC-45TypesC-45String-C-43C-43 "possibly not terminating due to call to " (CoreC-45Name-u--show_Show_Name e-3)) (PreludeC-45TypesC-45String-C-43C-43 "possibly not terminating due to calls to " (CoreC-45NameC-45Namespace-showSep ", " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45Name-u--show_Show_Name eta-0)) e-0))))))))) (else (let ((e-1 (vector-ref arg-0 1))) (PreludeC-45TypesC-45String-C-43C-43 "possibly not terminating due to recursive path " (CoreC-45NameC-45Namespace-showSep " -> " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45Name-u--show_Show_Name eta-0)) e-1)))))))) +(define CoreC-45TT-u--show_Show_LazyReason (lambda (arg-0) (cond ((equal? arg-0 0) "Inf") ((equal? arg-0 1) "Lazy") (else "Unkown")))) +(define CoreC-45TT-u--show_Show_Covering (lambda (arg-0) (case (vector-ref arg-0 0) ((0) "covering") ((1) "not covering all cases") (else (let ((e-1 (vector-ref arg-0 1))) (if (null? e-1) (PreludeC-45TypesC-45String-C-43C-43 "not covering due to calls to functions " (CoreC-45NameC-45Namespace-showSep ", " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45Name-u--show_Show_Name eta-0)) e-1))) (let ((e-3 (car e-1))) (let ((e-4 (cdr e-1))) (if (null? e-4) (PreludeC-45TypesC-45String-C-43C-43 "not covering due to call to function " (CoreC-45Name-u--show_Show_Name e-3)) (PreludeC-45TypesC-45String-C-43C-43 "not covering due to calls to functions " (CoreC-45NameC-45Namespace-showSep ", " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45Name-u--show_Show_Name eta-0)) e-1)))))))))))) +(define CoreC-45TT-u--show_Show_Constant (lambda (arg-0) (case (vector-ref arg-0 0) ((0) (let ((e-0 (vector-ref arg-0 1))) (PreludeC-45Show-u--show_Show_Int e-0))) ((1) (let ((e-1 (vector-ref arg-0 1))) (PreludeC-45Show-u--show_Show_Integer e-1))) ((2) (let ((e-2 (vector-ref arg-0 1))) (PreludeC-45Show-u--show_Show_Integer e-2))) ((3) (let ((e-3 (vector-ref arg-0 1))) (PreludeC-45Show-u--show_Show_Integer e-3))) ((4) (let ((e-4 (vector-ref arg-0 1))) (PreludeC-45Show-u--show_Show_Integer e-4))) ((5) (let ((e-5 (vector-ref arg-0 1))) (PreludeC-45Show-u--show_Show_Integer e-5))) ((6) (let ((e-6 (vector-ref arg-0 1))) (PreludeC-45Show-u--show_Show_Int e-6))) ((7) (let ((e-7 (vector-ref arg-0 1))) (PreludeC-45Show-u--show_Show_Int e-7))) ((8) (let ((e-8 (vector-ref arg-0 1))) (PreludeC-45Show-u--show_Show_Int e-8))) ((9) (let ((e-9 (vector-ref arg-0 1))) (PreludeC-45Show-u--show_Show_Integer e-9))) ((10) (let ((e-10 (vector-ref arg-0 1))) (PreludeC-45Show-u--show_Show_String e-10))) ((11) (let ((e-11 (vector-ref arg-0 1))) (PreludeC-45Show-u--show_Show_Char e-11))) ((12) (let ((e-12 (vector-ref arg-0 1))) (PreludeC-45Show-u--show_Show_Double e-12))) ((13) "%MkWorld") ((14) "Int") ((15) "Int8") ((16) "Int16") ((17) "Int32") ((18) "Int64") ((19) "Integer") ((20) "Bits8") ((21) "Bits16") ((22) "Bits32") ((23) "Bits64") ((24) "String") ((25) "Char") ((26) "Double") (else "%World")))) +(define CoreC-45TT-u--show_Show_C-40VarC-32C-36nsC-41 (lambda (arg-1) (PreludeC-45Show-u--show_Show_Nat arg-1))) +(define CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 (lambda (arg-0 arg-1) (let ((sc0 (CoreC-45TT-getFnArgs arg-1))) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (CoreC-45TT-n--14523-10237-u--showApp arg-0 arg-1 arg-0 e-2 e-3)))))) +(define CoreC-45TT-u--show_Show_C-40PrimFnC-32C-36arityC-41 (lambda (arg-1) (case (vector-ref arg-1 0) ((0) (let ((e-0 (vector-ref arg-1 1))) (PreludeC-45TypesC-45String-C-43C-43 "+" (CoreC-45TT-u--show_Show_Constant e-0)))) ((1) (let ((e-1 (vector-ref arg-1 1))) (PreludeC-45TypesC-45String-C-43C-43 "-" (CoreC-45TT-u--show_Show_Constant e-1)))) ((2) (let ((e-2 (vector-ref arg-1 1))) (PreludeC-45TypesC-45String-C-43C-43 "*" (CoreC-45TT-u--show_Show_Constant e-2)))) ((3) (let ((e-3 (vector-ref arg-1 1))) (PreludeC-45TypesC-45String-C-43C-43 "/" (CoreC-45TT-u--show_Show_Constant e-3)))) ((4) (let ((e-4 (vector-ref arg-1 1))) (PreludeC-45TypesC-45String-C-43C-43 "%" (CoreC-45TT-u--show_Show_Constant e-4)))) ((5) (let ((e-5 (vector-ref arg-1 1))) (PreludeC-45TypesC-45String-C-43C-43 "neg " (CoreC-45TT-u--show_Show_Constant e-5)))) ((6) (let ((e-6 (vector-ref arg-1 1))) (PreludeC-45TypesC-45String-C-43C-43 "shl " (CoreC-45TT-u--show_Show_Constant e-6)))) ((7) (let ((e-7 (vector-ref arg-1 1))) (PreludeC-45TypesC-45String-C-43C-43 "shr " (CoreC-45TT-u--show_Show_Constant e-7)))) ((8) (let ((e-8 (vector-ref arg-1 1))) (PreludeC-45TypesC-45String-C-43C-43 "and " (CoreC-45TT-u--show_Show_Constant e-8)))) ((9) (let ((e-9 (vector-ref arg-1 1))) (PreludeC-45TypesC-45String-C-43C-43 "or " (CoreC-45TT-u--show_Show_Constant e-9)))) ((10) (let ((e-10 (vector-ref arg-1 1))) (PreludeC-45TypesC-45String-C-43C-43 "xor " (CoreC-45TT-u--show_Show_Constant e-10)))) ((11) (let ((e-11 (vector-ref arg-1 1))) (PreludeC-45TypesC-45String-C-43C-43 "<" (CoreC-45TT-u--show_Show_Constant e-11)))) ((12) (let ((e-12 (vector-ref arg-1 1))) (PreludeC-45TypesC-45String-C-43C-43 "<=" (CoreC-45TT-u--show_Show_Constant e-12)))) ((13) (let ((e-13 (vector-ref arg-1 1))) (PreludeC-45TypesC-45String-C-43C-43 "==" (CoreC-45TT-u--show_Show_Constant e-13)))) ((14) (let ((e-14 (vector-ref arg-1 1))) (PreludeC-45TypesC-45String-C-43C-43 ">=" (CoreC-45TT-u--show_Show_Constant e-14)))) ((15) (let ((e-15 (vector-ref arg-1 1))) (PreludeC-45TypesC-45String-C-43C-43 ">" (CoreC-45TT-u--show_Show_Constant e-15)))) ((16) "op_strlen") ((17) "op_strhead") ((18) "op_strtail") ((19) "op_strindex") ((20) "op_strcons") ((21) "++") ((22) "op_strrev") ((23) "op_strsubstr") ((24) "op_doubleExp") ((25) "op_doubleLog") ((26) "op_doubleSin") ((27) "op_doubleCos") ((28) "op_doubleTan") ((29) "op_doubleASin") ((30) "op_doubleACos") ((31) "op_doubleATan") ((32) "op_doubleSqrt") ((33) "op_doubleFloor") ((34) "op_doubleCeiling") ((35) (let ((e-16 (vector-ref arg-1 1))) (let ((e-17 (vector-ref arg-1 2))) (PreludeC-45TypesC-45String-C-43C-43 "cast-" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_Constant e-16) (PreludeC-45TypesC-45String-C-43C-43 "-" (CoreC-45TT-u--show_Show_Constant e-17))))))) ((36) "believe_me") (else "crash")))) +(define CoreC-45TT-u--show_Show_C-40PiInfoC-32C-36tC-41 (lambda (arg-1 arg-2) (case (vector-ref arg-2 0) ((0) "Implicit") ((1) "Explicit") ((2) "AutoImplicit") (else (let ((e-4 (vector-ref arg-2 1))) (PreludeC-45TypesC-45String-C-43C-43 "DefImplicit " (let ((e-1 (car arg-1))) (e-1 e-4)))))))) +(define CoreC-45TT-u--showPrec_Show_TotalReq (lambda (arg-0 arg-1) (CoreC-45TT-u--show_Show_TotalReq arg-1))) +(define CoreC-45TT-u--showPrec_Show_Constant (lambda (arg-0 arg-1) (CoreC-45TT-u--show_Show_Constant arg-1))) +(define CoreC-45TT-u--showPrec_Show_C-40VarC-32C-36nsC-41 (lambda (arg-1 arg-2) (CoreC-45TT-u--show_Show_C-40VarC-32C-36nsC-41 arg-2))) +(define CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 (lambda (arg-0 arg-1 arg-2) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 arg-2))) +(define CoreC-45TT-u--showPrec_Show_C-40PiInfoC-32C-36tC-41 (lambda (arg-1 arg-2 arg-3) (CoreC-45TT-u--show_Show_C-40PiInfoC-32C-36tC-41 arg-1 arg-3))) +(define CoreC-45TT-u--restoreNS_StripNamespace_C-40TermC-32C-36varsC-41 (lambda (arg-1 arg-2) (case (vector-ref arg-2 0) ((1) (let ((e-1 (vector-ref arg-2 1))) (let ((e-2 (vector-ref arg-2 2))) (let ((e-3 (vector-ref arg-2 3))) (case (vector-ref e-3 0) ((0) (let ((e-36 (vector-ref e-3 1))) (let ((e-37 (vector-ref e-3 2))) (let ((u--tm (vector 1 e-1 e-2 (vector 0 e-36 e-37)))) (let ((sc2 (DataC-45List-isNil (CoreC-45NameC-45Namespace-unsafeUnfoldNamespace e-36)))) (cond ((equal? sc2 1) (vector 1 e-1 e-2 (vector 0 arg-1 e-37))) (else u--tm)))))))(else arg-2)))))) ((2) (let ((e-5 (vector-ref arg-2 1))) (let ((e-6 (vector-ref arg-2 2))) (let ((e-7 (vector-ref arg-2 3))) (let ((e-8 (vector-ref arg-2 4))) (vector 2 e-5 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (arg-3) (CoreC-45TT-u--restoreNS_StripNamespace_C-40TermC-32C-36varsC-41 arg-1 arg-3)) e-8))))))) ((3) (let ((e-10 (vector-ref arg-2 1))) (let ((e-11 (vector-ref arg-2 2))) (let ((e-12 (vector-ref arg-2 3))) (let ((e-13 (vector-ref arg-2 4))) (vector 3 e-10 e-11 (CoreC-45TT-u--map_Functor_Binder (lambda (arg-3) (CoreC-45TT-u--restoreNS_StripNamespace_C-40TermC-32C-36varsC-41 arg-1 arg-3)) e-12) (CoreC-45TT-u--restoreNS_StripNamespace_C-40TermC-32C-36varsC-41 arg-1 e-13))))))) ((4) (let ((e-15 (vector-ref arg-2 1))) (let ((e-16 (vector-ref arg-2 2))) (let ((e-17 (vector-ref arg-2 3))) (vector 4 e-15 (CoreC-45TT-u--restoreNS_StripNamespace_C-40TermC-32C-36varsC-41 arg-1 e-16) (CoreC-45TT-u--restoreNS_StripNamespace_C-40TermC-32C-36varsC-41 arg-1 e-17)))))) ((5) (let ((e-19 (vector-ref arg-2 1))) (let ((e-20 (vector-ref arg-2 2))) (let ((e-21 (vector-ref arg-2 3))) (let ((e-22 (vector-ref arg-2 4))) (vector 5 e-19 e-20 (CoreC-45TT-u--restoreNS_StripNamespace_C-40TermC-32C-36varsC-41 arg-1 e-21) (CoreC-45TT-u--restoreNS_StripNamespace_C-40TermC-32C-36varsC-41 arg-1 e-22))))))) ((6) (let ((e-24 (vector-ref arg-2 1))) (let ((e-25 (vector-ref arg-2 2))) (let ((e-26 (vector-ref arg-2 3))) (vector 6 e-24 e-25 (CoreC-45TT-u--restoreNS_StripNamespace_C-40TermC-32C-36varsC-41 arg-1 e-26)))))) ((7) (let ((e-28 (vector-ref arg-2 1))) (let ((e-29 (vector-ref arg-2 2))) (let ((e-30 (vector-ref arg-2 3))) (let ((e-31 (vector-ref arg-2 4))) (vector 7 e-28 e-29 (CoreC-45TT-u--restoreNS_StripNamespace_C-40TermC-32C-36varsC-41 arg-1 e-30) (CoreC-45TT-u--restoreNS_StripNamespace_C-40TermC-32C-36varsC-41 arg-1 e-31))))))) ((8) (let ((e-33 (vector-ref arg-2 1))) (let ((e-34 (vector-ref arg-2 2))) (let ((e-35 (vector-ref arg-2 3))) (vector 8 e-33 e-34 (CoreC-45TT-u--restoreNS_StripNamespace_C-40TermC-32C-36varsC-41 arg-1 e-35))))))(else arg-2)))) +(define CoreC-45TT-u--pretty_Pretty_Visibility (lambda (arg-1) (cond ((equal? arg-1 0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "private")) ((equal? arg-1 1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "export")) (else (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "public") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "export")))))) +(define CoreC-45TT-u--pretty_Pretty_Totality (lambda (arg-1) (let ((e-0 (car arg-1))) (let ((e-1 (cdr arg-1))) (case (vector-ref e-0 0) ((1) (case (vector-ref e-1 0) ((0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "total"))(else (CoreC-45TT-u--pretty_Pretty_Covering e-1))))(else (case (vector-ref e-1 0) ((0) (CoreC-45TT-u--pretty_Pretty_Terminating e-0))(else (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (CoreC-45TT-u--pretty_Pretty_Covering e-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-semi)) (CoreC-45TT-u--pretty_Pretty_Terminating e-0)))))))))) +(define CoreC-45TT-u--pretty_Pretty_Terminating (lambda (arg-1) (case (vector-ref arg-1 0) ((0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "not yet checked")) ((1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "terminating")) (else (let ((e-0 (vector-ref arg-1 1))) (CoreC-45TT-u--pretty_Pretty_PartialReason e-0)))))) +(define CoreC-45TT-u--pretty_Pretty_PartialReason (lambda (arg-1) (case (vector-ref arg-1 0) ((0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "not strictly positive")) ((1) (let ((e-0 (vector-ref arg-1 1))) (if (null? e-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "possibly not terminating due to calls to") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-concatWith (lambda (eta-0) (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-surround (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-comma) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-space)) eta-0 eta-1))) (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (PreludeC-45Types-u--map_Functor_List eta-2 eta-3))))) (lambda (eta-0) (CoreC-45Name-u--pretty_Pretty_Name eta-0)) e-0))) (let ((e-3 (car e-0))) (let ((e-4 (cdr e-0))) (if (null? e-4) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "possibly not terminating due to call to") (CoreC-45Name-u--pretty_Pretty_Name e-3)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "possibly not terminating due to calls to") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-concatWith (lambda (eta-0) (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-surround (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-comma) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-space)) eta-0 eta-1))) (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (PreludeC-45Types-u--map_Functor_List eta-2 eta-3))))) (lambda (eta-0) (CoreC-45Name-u--pretty_Pretty_Name eta-0)) e-0))))))))) (else (let ((e-1 (vector-ref arg-1 1))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "possibly not terminating due to recursive path") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-concatWith (lambda (eta-0) (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-surround (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String " -> ") eta-0 eta-1))) (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (PreludeC-45Types-u--map_Functor_List eta-2 eta-3))))) (lambda (eta-0) (CoreC-45Name-u--pretty_Pretty_Name eta-0)) e-1)))))))) +(define CoreC-45TT-u--pretty_Pretty_Covering (lambda (arg-1) (case (vector-ref arg-1 0) ((0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "covering")) ((1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "not covering all cases")) (else (let ((e-1 (vector-ref arg-1 1))) (if (null? e-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "not covering due to calls to functions") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-concatWith (lambda (eta-0) (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-surround (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-comma) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-space)) eta-0 eta-1))) (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (PreludeC-45Types-u--map_Functor_List eta-2 eta-3))))) (lambda (eta-0) (CoreC-45Name-u--pretty_Pretty_Name eta-0)) e-1))) (let ((e-3 (car e-1))) (let ((e-4 (cdr e-1))) (if (null? e-4) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "not covering due to call to function") (CoreC-45Name-u--pretty_Pretty_Name e-3)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "not covering due to calls to functions") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-concatWith (lambda (eta-0) (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-surround (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-comma) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-space)) eta-0 eta-1))) (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (PreludeC-45Types-u--map_Functor_List eta-2 eta-3))))) (lambda (eta-0) (CoreC-45Name-u--pretty_Pretty_Name eta-0)) e-1)))))))))))) +(define CoreC-45TT-u--pretty_Pretty_Constant (lambda (arg-1) (case (vector-ref arg-1 0) ((0) (let ((e-0 (vector-ref arg-1 1))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Int e-0))) ((1) (let ((e-1 (vector-ref arg-1 1))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Integer e-1))) ((2) (let ((e-2 (vector-ref arg-1 1))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Integer e-2))) ((3) (let ((e-3 (vector-ref arg-1 1))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Integer e-3))) ((4) (let ((e-4 (vector-ref arg-1 1))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Integer e-4))) ((5) (let ((e-5 (vector-ref arg-1 1))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Integer e-5))) ((6) (let ((e-6 (vector-ref arg-1 1))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Int e-6))) ((7) (let ((e-7 (vector-ref arg-1 1))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Int e-7))) ((8) (let ((e-8 (vector-ref arg-1 1))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Int e-8))) ((9) (let ((e-9 (vector-ref arg-1 1))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Integer e-9))) ((10) (let ((e-10 (vector-ref arg-1 1))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-dquotes (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String e-10)))) ((11) (let ((e-11 (vector-ref arg-1 1))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-squotes (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Char e-11)))) ((12) (let ((e-12 (vector-ref arg-1 1))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Double e-12))) ((13) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "%MkWorld")) ((14) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "Int")) ((15) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "Int8")) ((16) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "Int16")) ((17) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "Int32")) ((18) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "Int64")) ((19) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "Integer")) ((20) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "Bits8")) ((21) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "Bits16")) ((22) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "Bits32")) ((23) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "Bits64")) ((24) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "String")) ((25) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "Char")) ((26) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "Double")) (else (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "%World"))))) +(define CoreC-45TT-u--pretty_Pretty_C-40TermC-32C-36varsC-41 (lambda (arg-1 ext-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-1 ext-0)))) +(define CoreC-45TT-u--map_Functor_PiInfo (lambda (arg-2 arg-3) (case (vector-ref arg-3 0) ((1) (vector 1 )) ((0) (vector 0 )) ((2) (vector 2 )) (else (let ((e-4 (vector-ref arg-3 1))) (vector 3 (arg-2 e-4))))))) +(define CoreC-45TT-u--map_Functor_Binder (lambda (arg-2 arg-3) (case (vector-ref arg-3 0) ((0) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-3 (vector-ref arg-3 3))) (let ((e-4 (vector-ref arg-3 4))) (vector 0 e-1 e-2 (CoreC-45TT-u--map_Functor_PiInfo arg-2 e-3) (arg-2 e-4))))))) ((1) (let ((e-6 (vector-ref arg-3 1))) (let ((e-7 (vector-ref arg-3 2))) (let ((e-8 (vector-ref arg-3 3))) (let ((e-9 (vector-ref arg-3 4))) (vector 1 e-6 e-7 (arg-2 e-8) (arg-2 e-9))))))) ((2) (let ((e-11 (vector-ref arg-3 1))) (let ((e-12 (vector-ref arg-3 2))) (let ((e-13 (vector-ref arg-3 3))) (let ((e-14 (vector-ref arg-3 4))) (vector 2 e-11 e-12 (CoreC-45TT-u--map_Functor_PiInfo arg-2 e-13) (arg-2 e-14))))))) ((3) (let ((e-16 (vector-ref arg-3 1))) (let ((e-17 (vector-ref arg-3 2))) (let ((e-18 (vector-ref arg-3 3))) (let ((e-19 (vector-ref arg-3 4))) (vector 3 e-16 e-17 (CoreC-45TT-u--map_Functor_PiInfo arg-2 e-18) (arg-2 e-19))))))) ((4) (let ((e-21 (vector-ref arg-3 1))) (let ((e-22 (vector-ref arg-3 2))) (let ((e-23 (vector-ref arg-3 3))) (let ((e-24 (vector-ref arg-3 4))) (vector 4 e-21 e-22 (arg-2 e-23) (arg-2 e-24))))))) (else (let ((e-26 (vector-ref arg-3 1))) (let ((e-27 (vector-ref arg-3 2))) (let ((e-28 (vector-ref arg-3 3))) (vector 5 e-26 e-27 (arg-2 e-28))))))))) +(define CoreC-45TT-u--compare_Ord_Precision (lambda (arg-0 arg-1) (if (null? arg-0) (if (null? arg-1) 1 2) (let ((e-0 (unbox arg-0))) (if (null? arg-1) 0 (let ((e-1 (unbox arg-1))) (PreludeC-45EqOrd-u--compare_Ord_Int e-0 e-1))))))) +(define CoreC-45TT-u--C-62_Ord_Precision (lambda (arg-0 arg-1) (PreludeC-45EqOrd-u--C-61C-61_Eq_Ordering (CoreC-45TT-u--compare_Ord_Precision arg-0 arg-1) 2))) +(define CoreC-45TT-u--C-62C-61_Ord_Precision (lambda (arg-0 arg-1) (PreludeC-45EqOrd-u--C-47C-61_Eq_Ordering (CoreC-45TT-u--compare_Ord_Precision arg-0 arg-1) 0))) +(define CoreC-45TT-u--C-61C-61_Eq_Visibility (lambda (arg-0 arg-1) (cond ((equal? arg-0 0) (cond ((equal? arg-1 0) 1)(else 0))) ((equal? arg-0 1) (cond ((equal? arg-1 1) 1)(else 0))) ((equal? arg-0 2) (cond ((equal? arg-1 2) 1)(else 0)))(else 0)))) +(define CoreC-45TT-u--C-61C-61_Eq_TotalReq (lambda (arg-0 arg-1) (cond ((equal? arg-0 0) (cond ((equal? arg-1 0) 1)(else 0))) ((equal? arg-0 1) (cond ((equal? arg-1 1) 1)(else 0))) ((equal? arg-0 2) (cond ((equal? arg-1 2) 1)(else 0)))(else 0)))) +(define CoreC-45TT-u--C-61C-61_Eq_LazyReason (lambda (arg-0 arg-1) (cond ((equal? arg-0 0) (cond ((equal? arg-1 0) 1)(else 0))) ((equal? arg-0 1) (cond ((equal? arg-1 1) 1)(else 0))) ((equal? arg-0 2) (cond ((equal? arg-1 2) 1)(else 0)))(else 0)))) +(define CoreC-45TT-u--C-61C-61_Eq_Constant (lambda (arg-0 arg-1) (case (vector-ref arg-0 0) ((0) (let ((e-0 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((0) (let ((e-13 (vector-ref arg-1 1))) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int e-0 e-13)))(else 0)))) ((1) (let ((e-1 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((1) (let ((e-14 (vector-ref arg-1 1))) (PreludeC-45EqOrd-u--C-61C-61_Eq_Integer e-1 e-14)))(else 0)))) ((2) (let ((e-2 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((2) (let ((e-15 (vector-ref arg-1 1))) (PreludeC-45EqOrd-u--C-61C-61_Eq_Integer e-2 e-15)))(else 0)))) ((3) (let ((e-3 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((3) (let ((e-16 (vector-ref arg-1 1))) (PreludeC-45EqOrd-u--C-61C-61_Eq_Integer e-3 e-16)))(else 0)))) ((4) (let ((e-4 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((4) (let ((e-17 (vector-ref arg-1 1))) (PreludeC-45EqOrd-u--C-61C-61_Eq_Integer e-4 e-17)))(else 0)))) ((5) (let ((e-5 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((5) (let ((e-18 (vector-ref arg-1 1))) (PreludeC-45EqOrd-u--C-61C-61_Eq_Integer e-5 e-18)))(else 0)))) ((6) (let ((e-6 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((6) (let ((e-19 (vector-ref arg-1 1))) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int e-6 e-19)))(else 0)))) ((7) (let ((e-7 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((7) (let ((e-20 (vector-ref arg-1 1))) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int e-7 e-20)))(else 0)))) ((8) (let ((e-8 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((8) (let ((e-21 (vector-ref arg-1 1))) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int e-8 e-21)))(else 0)))) ((9) (let ((e-9 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((9) (let ((e-22 (vector-ref arg-1 1))) (PreludeC-45EqOrd-u--C-61C-61_Eq_Integer e-9 e-22)))(else 0)))) ((10) (let ((e-10 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((10) (let ((e-23 (vector-ref arg-1 1))) (PreludeC-45EqOrd-u--C-61C-61_Eq_String e-10 e-23)))(else 0)))) ((11) (let ((e-11 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((11) (let ((e-24 (vector-ref arg-1 1))) (PreludeC-45EqOrd-u--C-61C-61_Eq_Char e-11 e-24)))(else 0)))) ((12) (let ((e-12 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((12) (let ((e-25 (vector-ref arg-1 1))) (PreludeC-45EqOrd-u--C-61C-61_Eq_Double e-12 e-25)))(else 0)))) ((13) (case (vector-ref arg-1 0) ((13) 1)(else 0))) ((14) (case (vector-ref arg-1 0) ((14) 1)(else 0))) ((15) (case (vector-ref arg-1 0) ((15) 1)(else 0))) ((16) (case (vector-ref arg-1 0) ((16) 1)(else 0))) ((17) (case (vector-ref arg-1 0) ((17) 1)(else 0))) ((18) (case (vector-ref arg-1 0) ((18) 1)(else 0))) ((19) (case (vector-ref arg-1 0) ((19) 1)(else 0))) ((20) (case (vector-ref arg-1 0) ((20) 1)(else 0))) ((21) (case (vector-ref arg-1 0) ((21) 1)(else 0))) ((22) (case (vector-ref arg-1 0) ((22) 1)(else 0))) ((23) (case (vector-ref arg-1 0) ((23) 1)(else 0))) ((24) (case (vector-ref arg-1 0) ((24) 1)(else 0))) ((25) (case (vector-ref arg-1 0) ((25) 1)(else 0))) ((26) (case (vector-ref arg-1 0) ((26) 1)(else 0))) ((27) (case (vector-ref arg-1 0) ((27) 1)(else 0)))(else 0)))) +(define CoreC-45TT-u--C-61C-61_Eq_C-40TermC-32C-36varsC-41 (lambda (arg-1 arg-2) (case (vector-ref arg-1 0) ((0) (let ((e-4 (vector-ref arg-1 3))) (case (vector-ref arg-2 0) ((0) (let ((e-54 (vector-ref arg-2 3))) (PreludeC-45Types-u--C-61C-61_Eq_Nat e-4 e-54)))(else 0)))) ((1) (let ((e-9 (vector-ref arg-1 3))) (case (vector-ref arg-2 0) ((1) (let ((e-59 (vector-ref arg-2 3))) (CoreC-45Name-u--C-61C-61_Eq_Name e-9 e-59)))(else 0)))) ((2) (let ((e-13 (vector-ref arg-1 3))) (let ((e-14 (vector-ref arg-1 4))) (case (vector-ref arg-2 0) ((2) (let ((e-63 (vector-ref arg-2 3))) (let ((e-64 (vector-ref arg-2 4))) (let ((sc2 (PreludeC-45EqOrd-u--C-61C-61_Eq_Int e-13 e-63))) (cond ((equal? sc2 1) (PreludeC-45Types-u--C-61C-61_Eq_C-40ListC-32C-36aC-41 (cons (lambda (arg-3) (lambda (arg-4) (CoreC-45TT-u--C-61C-61_Eq_C-40TermC-32C-36varsC-41 arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (CoreC-45TT-u--C-47C-61_Eq_C-40TermC-32C-36varsC-41 arg-4 arg-5)))) e-14 e-64)) (else 0))))))(else 0))))) ((3) (let ((e-18 (vector-ref arg-1 3))) (let ((e-19 (vector-ref arg-1 4))) (case (vector-ref arg-2 0) ((3) (let ((e-68 (vector-ref arg-2 3))) (let ((e-69 (vector-ref arg-2 4))) (let ((sc2 (CoreC-45TT-u--C-61C-61_Eq_C-40BinderC-32C-36aC-41 (cons (lambda (arg-3) (lambda (arg-4) (CoreC-45TT-u--C-61C-61_Eq_C-40TermC-32C-36varsC-41 arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (CoreC-45TT-u--C-47C-61_Eq_C-40TermC-32C-36varsC-41 arg-4 arg-5)))) e-18 e-68))) (cond ((equal? sc2 1) (CoreC-45TT-u--C-61C-61_Eq_C-40TermC-32C-36varsC-41 e-19 (Builtin-believe_me e-69))) (else 0))))))(else 0))))) ((4) (let ((e-22 (vector-ref arg-1 2))) (let ((e-23 (vector-ref arg-1 3))) (case (vector-ref arg-2 0) ((4) (let ((e-72 (vector-ref arg-2 2))) (let ((e-73 (vector-ref arg-2 3))) (let ((sc2 (CoreC-45TT-u--C-61C-61_Eq_C-40TermC-32C-36varsC-41 e-22 e-72))) (cond ((equal? sc2 1) (CoreC-45TT-u--C-61C-61_Eq_C-40TermC-32C-36varsC-41 e-23 e-73)) (else 0))))))(else 0))))) ((5) (let ((e-27 (vector-ref arg-1 3))) (let ((e-28 (vector-ref arg-1 4))) (case (vector-ref arg-2 0) ((5) (let ((e-77 (vector-ref arg-2 3))) (let ((e-78 (vector-ref arg-2 4))) (let ((sc2 (CoreC-45TT-u--C-61C-61_Eq_C-40TermC-32C-36varsC-41 e-27 e-77))) (cond ((equal? sc2 1) (CoreC-45TT-u--C-61C-61_Eq_C-40TermC-32C-36varsC-41 e-28 e-78)) (else 0))))))(else 0))))) ((6) (let ((e-32 (vector-ref arg-1 3))) (case (vector-ref arg-2 0) ((6) (let ((e-82 (vector-ref arg-2 3))) (CoreC-45TT-u--C-61C-61_Eq_C-40TermC-32C-36varsC-41 e-32 e-82)))(else 0)))) ((7) (let ((e-36 (vector-ref arg-1 3))) (let ((e-37 (vector-ref arg-1 4))) (case (vector-ref arg-2 0) ((7) (let ((e-86 (vector-ref arg-2 3))) (let ((e-87 (vector-ref arg-2 4))) (let ((sc2 (CoreC-45TT-u--C-61C-61_Eq_C-40TermC-32C-36varsC-41 e-36 e-86))) (cond ((equal? sc2 1) (CoreC-45TT-u--C-61C-61_Eq_C-40TermC-32C-36varsC-41 e-37 e-87)) (else 0))))))(else 0))))) ((8) (let ((e-41 (vector-ref arg-1 3))) (case (vector-ref arg-2 0) ((8) (let ((e-91 (vector-ref arg-2 3))) (CoreC-45TT-u--C-61C-61_Eq_C-40TermC-32C-36varsC-41 e-41 e-91)))(else 0)))) ((9) (let ((e-44 (vector-ref arg-1 2))) (case (vector-ref arg-2 0) ((9) (let ((e-94 (vector-ref arg-2 2))) (CoreC-45TT-u--C-61C-61_Eq_Constant e-44 e-94)))(else 0)))) ((10) (let ((e-47 (vector-ref arg-1 2))) (case (vector-ref arg-2 0) ((10) (let ((e-97 (vector-ref arg-2 2))) (PreludeC-45EqOrd-u--C-61C-61_Eq_Bool e-47 e-97)))(else 0)))) ((11) (case (vector-ref arg-2 0) ((11) 1)(else 0)))(else 0)))) +(define CoreC-45TT-u--C-61C-61_Eq_C-40PiInfoC-32C-36tC-41 (lambda (arg-1 ext-0 ext-1) (CoreC-45TT-eqPiInfoBy (lambda (eta-0) (lambda (eta-1) (let ((e-1 (car arg-1))) ((e-1 eta-0) eta-1)))) ext-0 ext-1))) +(define CoreC-45TT-u--C-61C-61_Eq_C-40BinderC-32C-36aC-41 (lambda (arg-1 ext-0 ext-1) (CoreC-45TT-eqBinderBy (lambda (eta-0) (lambda (eta-1) (let ((e-1 (car arg-1))) ((e-1 eta-0) eta-1)))) ext-0 ext-1))) +(define CoreC-45TT-u--C-47C-61_Eq_Visibility (lambda (arg-0 arg-1) (let ((sc0 (CoreC-45TT-u--C-61C-61_Eq_Visibility arg-0 arg-1))) (cond ((equal? sc0 1) 0) (else 1))))) +(define CoreC-45TT-u--C-47C-61_Eq_Constant (lambda (arg-0 arg-1) (let ((sc0 (CoreC-45TT-u--C-61C-61_Eq_Constant arg-0 arg-1))) (cond ((equal? sc0 1) 0) (else 1))))) +(define CoreC-45TT-u--C-47C-61_Eq_C-40TermC-32C-36varsC-41 (lambda (arg-1 arg-2) (let ((sc0 (CoreC-45TT-u--C-61C-61_Eq_C-40TermC-32C-36varsC-41 arg-1 arg-2))) (cond ((equal? sc0 1) 0) (else 1))))) +(define CoreC-45TTC-45SizeOf-zero (lambda () 0)) +(define CoreC-45TT-withPiInfo (lambda (arg-1 arg-2 arg-3) (case (vector-ref arg-2 0) ((1) (PreludeC-45TypesC-45String-C-43C-43 "(" (PreludeC-45TypesC-45String-C-43C-43 arg-3 ")"))) ((0) (PreludeC-45TypesC-45String-C-43C-43 "{" (PreludeC-45TypesC-45String-C-43C-43 arg-3 "}"))) ((2) (PreludeC-45TypesC-45String-C-43C-43 "{auto " (PreludeC-45TypesC-45String-C-43C-43 arg-3 "}"))) (else (let ((e-4 (vector-ref arg-2 1))) (PreludeC-45TypesC-45String-C-43C-43 "{default " (PreludeC-45TypesC-45String-C-43C-43 (let ((e-1 (car arg-1))) (e-1 e-4)) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 arg-3 "}"))))))))) +(define CoreC-45TT-weakenVar (lambda (arg-2 arg-3) (CoreC-45TT-weakenNVar arg-2 arg-3))) +(define CoreC-45TT-weakenNVar (lambda (arg-3 arg-4) (CoreC-45TT-case--weakenNVar-6540 arg-4 arg-3 (CoreC-45TT-sizedView arg-3)))) +(define CoreC-45TT-varIdx (lambda (arg-1) arg-1)) +(define CoreC-45TT-varEmbedSub (lambda (arg-3 arg-4) (case (vector-ref arg-3 0) ((0) arg-4) ((1) (let ((e-4 (vector-ref arg-3 1))) (+ 1 (CoreC-45TT-varEmbedSub e-4 arg-4)))) (else (let ((e-8 (vector-ref arg-3 1))) (cond ((equal? arg-4 0) 0)(else (let ((e-9 (- arg-4 1))) (+ 1 (CoreC-45TT-varEmbedSub e-8 e-9)))))))))) +(define CoreC-45TT-unchecked (lambda () (cons (vector 0 ) (vector 0 )))) +(define CoreC-45TTC-45SizeOf-take (lambda (arg-1) arg-1)) +(define CoreC-45TTC-45SizeOf-sucR (lambda (arg-3) (+ 1 arg-3))) +(define CoreC-45TTC-45SizeOf-suc (lambda (arg-3) (+ 1 arg-3))) +(define CoreC-45TTC-45SubstEnv-substs (lambda (arg-2 arg-3) (CoreC-45TTC-45SubstEnv-substEnv (CoreC-45TTC-45SizeOf-zero) arg-2 arg-3))) +(define CoreC-45TT-substName (lambda (arg-1 arg-2 arg-3) (case (vector-ref arg-3 0) ((1) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-3 (vector-ref arg-3 3))) (let ((sc1 (CoreC-45Name-nameEq arg-1 e-3))) (if (null? sc1) (vector 1 e-1 e-2 e-3) (let ((e-4 (unbox sc1))) (cond (else arg-2))))))))) ((2) (let ((e-5 (vector-ref arg-3 1))) (let ((e-6 (vector-ref arg-3 2))) (let ((e-7 (vector-ref arg-3 3))) (let ((e-8 (vector-ref arg-3 4))) (vector 2 e-5 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45TT-substName arg-1 arg-2 eta-0)) e-8))))))) ((3) (let ((e-10 (vector-ref arg-3 1))) (let ((e-11 (vector-ref arg-3 2))) (let ((e-12 (vector-ref arg-3 3))) (let ((e-13 (vector-ref arg-3 4))) (vector 3 e-10 e-11 (CoreC-45TT-u--map_Functor_Binder (lambda (eta-0) (CoreC-45TT-substName arg-1 arg-2 eta-0)) e-12) (CoreC-45TT-substName arg-1 (CoreC-45TT-u--weaken_Weaken_Term arg-2) e-13))))))) ((4) (let ((e-15 (vector-ref arg-3 1))) (let ((e-16 (vector-ref arg-3 2))) (let ((e-17 (vector-ref arg-3 3))) (vector 4 e-15 (CoreC-45TT-substName arg-1 arg-2 e-16) (CoreC-45TT-substName arg-1 arg-2 e-17)))))) ((5) (let ((e-19 (vector-ref arg-3 1))) (let ((e-20 (vector-ref arg-3 2))) (let ((e-21 (vector-ref arg-3 3))) (let ((e-22 (vector-ref arg-3 4))) (vector 5 e-19 e-20 e-21 (CoreC-45TT-substName arg-1 arg-2 e-22))))))) ((6) (let ((e-24 (vector-ref arg-3 1))) (let ((e-25 (vector-ref arg-3 2))) (let ((e-26 (vector-ref arg-3 3))) (vector 6 e-24 e-25 (CoreC-45TT-substName arg-1 arg-2 e-26)))))) ((7) (let ((e-28 (vector-ref arg-3 1))) (let ((e-29 (vector-ref arg-3 2))) (let ((e-30 (vector-ref arg-3 3))) (let ((e-31 (vector-ref arg-3 4))) (vector 7 e-28 e-29 (CoreC-45TT-substName arg-1 arg-2 e-30) (CoreC-45TT-substName arg-1 arg-2 e-31))))))) ((8) (let ((e-33 (vector-ref arg-3 1))) (let ((e-34 (vector-ref arg-3 2))) (let ((e-35 (vector-ref arg-3 3))) (vector 8 e-33 e-34 (CoreC-45TT-substName arg-1 arg-2 e-35))))))(else arg-3)))) +(define CoreC-45TTC-45SubstEnv-substEnv (lambda (arg-3 arg-4 arg-5) (case (vector-ref arg-5 0) ((0) (let ((e-2 (vector-ref arg-5 1))) (let ((e-3 (vector-ref arg-5 2))) (let ((e-4 (vector-ref arg-5 3))) (CoreC-45TTC-45SubstEnv-find e-2 e-3 arg-3 e-4 arg-4))))) ((1) (let ((e-7 (vector-ref arg-5 1))) (let ((e-8 (vector-ref arg-5 2))) (let ((e-9 (vector-ref arg-5 3))) (vector 1 e-7 e-8 e-9))))) ((2) (let ((e-11 (vector-ref arg-5 1))) (let ((e-12 (vector-ref arg-5 2))) (let ((e-13 (vector-ref arg-5 3))) (let ((e-14 (vector-ref arg-5 4))) (vector 2 e-11 e-12 e-13 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45TTC-45SubstEnv-substEnv arg-3 arg-4 eta-0)) e-14))))))) ((3) (let ((e-16 (vector-ref arg-5 1))) (let ((e-17 (vector-ref arg-5 2))) (let ((e-18 (vector-ref arg-5 3))) (let ((e-19 (vector-ref arg-5 4))) (vector 3 e-16 e-17 (CoreC-45TT-u--map_Functor_Binder (lambda (eta-0) (CoreC-45TTC-45SubstEnv-substEnv arg-3 arg-4 eta-0)) e-18) (CoreC-45TTC-45SubstEnv-substEnv (CoreC-45TTC-45SizeOf-suc arg-3) arg-4 e-19))))))) ((4) (let ((e-21 (vector-ref arg-5 1))) (let ((e-22 (vector-ref arg-5 2))) (let ((e-23 (vector-ref arg-5 3))) (vector 4 e-21 (CoreC-45TTC-45SubstEnv-substEnv arg-3 arg-4 e-22) (CoreC-45TTC-45SubstEnv-substEnv arg-3 arg-4 e-23)))))) ((5) (let ((e-25 (vector-ref arg-5 1))) (let ((e-26 (vector-ref arg-5 2))) (let ((e-27 (vector-ref arg-5 3))) (let ((e-28 (vector-ref arg-5 4))) (vector 5 e-25 e-26 (CoreC-45TTC-45SubstEnv-substEnv arg-3 arg-4 e-27) (CoreC-45TTC-45SubstEnv-substEnv arg-3 arg-4 e-28))))))) ((6) (let ((e-30 (vector-ref arg-5 1))) (let ((e-31 (vector-ref arg-5 2))) (let ((e-32 (vector-ref arg-5 3))) (vector 6 e-30 e-31 (CoreC-45TTC-45SubstEnv-substEnv arg-3 arg-4 e-32)))))) ((7) (let ((e-34 (vector-ref arg-5 1))) (let ((e-35 (vector-ref arg-5 2))) (let ((e-36 (vector-ref arg-5 3))) (let ((e-37 (vector-ref arg-5 4))) (vector 7 e-34 e-35 (CoreC-45TTC-45SubstEnv-substEnv arg-3 arg-4 e-36) (CoreC-45TTC-45SubstEnv-substEnv arg-3 arg-4 e-37))))))) ((8) (let ((e-39 (vector-ref arg-5 1))) (let ((e-40 (vector-ref arg-5 2))) (let ((e-41 (vector-ref arg-5 3))) (vector 8 e-39 e-40 (CoreC-45TTC-45SubstEnv-substEnv arg-3 arg-4 e-41)))))) ((9) (let ((e-43 (vector-ref arg-5 1))) (let ((e-44 (vector-ref arg-5 2))) (vector 9 e-43 e-44)))) ((10) (let ((e-46 (vector-ref arg-5 1))) (let ((e-47 (vector-ref arg-5 2))) (vector 10 e-46 e-47)))) (else (let ((e-49 (vector-ref arg-5 1))) (vector 11 e-49)))))) +(define CoreC-45TTC-45SubstEnv-subst (lambda (arg-2 arg-3) (CoreC-45TTC-45SubstEnv-substs (cons arg-2 '()) arg-3))) +(define CoreC-45TT-subExtend (lambda (arg-2 arg-3) (if (null? arg-2) arg-3 (let ((e-3 (cdr arg-2))) (vector 2 (CoreC-45TT-subExtend e-3 arg-3)))))) +(define CoreC-45TT-subElem (lambda (arg-3 arg-5) (case (vector-ref arg-5 0) ((0) (box arg-3))(else (cond ((equal? arg-3 0) (case (vector-ref arg-5 0) ((1) '()) (else (box 0))))(else (let ((e-0 (- arg-3 1))) (case (vector-ref arg-5 0) ((1) (let ((e-12 (vector-ref arg-5 1))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45TT-subElem e-0 e-12) (lambda (_-0) (box _-0))))) (else (let ((e-16 (vector-ref arg-5 1))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45TT-subElem e-0 e-16) (lambda (_-0) (box (+ 1 _-0)))))))))))))) +(define CoreC-45TT-sizedView (lambda (arg-2) (cond ((equal? arg-2 0) '())(else (let ((e-4 (- arg-2 1))) (box e-4)))))) +(define CoreC-45TTC-45Bounds-sizeOf (lambda (arg-1) (case (vector-ref arg-1 0) ((0) (CoreC-45TTC-45SizeOf-zero)) (else (let ((e-3 (vector-ref arg-1 3))) (CoreC-45TTC-45SizeOf-suc (CoreC-45TTC-45Bounds-sizeOf e-3))))))) +(define CoreC-45TT-shrinkTerm (lambda (arg-2 arg-3) (case (vector-ref arg-2 0) ((0) (let ((e-2 (vector-ref arg-2 1))) (let ((e-3 (vector-ref arg-2 2))) (let ((e-4 (vector-ref arg-2 3))) (PreludeC-45Types-u--map_Functor_Maybe (lambda (lamc-0) (vector 0 e-2 e-3 lamc-0)) (CoreC-45TT-subElem e-4 arg-3)))))) ((1) (let ((e-7 (vector-ref arg-2 1))) (let ((e-8 (vector-ref arg-2 2))) (let ((e-9 (vector-ref arg-2 3))) (box (vector 1 e-7 e-8 e-9)))))) ((2) (let ((e-11 (vector-ref arg-2 1))) (let ((e-12 (vector-ref arg-2 2))) (let ((e-13 (vector-ref arg-2 3))) (let ((e-14 (vector-ref arg-2 4))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (PreludeC-45Types-u--traverse_Traversable_List (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (PreludeC-45Types-u--map_Functor_Maybe u--func arg-133))))) (lambda (u--a) (lambda (arg-527) (PreludeC-45Types-u--pure_Applicative_Maybe arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (PreludeC-45Types-u--C-60C-42C-62_Applicative_Maybe arg-528 arg-530)))))) (lambda (u--x) (CoreC-45TT-shrinkTerm u--x arg-3)) e-14) (lambda (u--xsC-39) (box (vector 2 e-11 e-12 e-13 u--xsC-39))))))))) ((3) (let ((e-16 (vector-ref arg-2 1))) (let ((e-17 (vector-ref arg-2 2))) (let ((e-18 (vector-ref arg-2 3))) (let ((e-19 (vector-ref arg-2 4))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45TT-shrinkBinder e-18 arg-3) (lambda (bind-0) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45TT-shrinkTerm e-19 (vector 2 arg-3)) (lambda (bind-1) (box (vector 3 e-16 e-17 bind-0 bind-1))))))))))) ((4) (let ((e-21 (vector-ref arg-2 1))) (let ((e-22 (vector-ref arg-2 2))) (let ((e-23 (vector-ref arg-2 3))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45TT-shrinkTerm e-22 arg-3) (lambda (bind-0) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45TT-shrinkTerm e-23 arg-3) (lambda (bind-1) (box (vector 4 e-21 bind-0 bind-1)))))))))) ((5) (let ((e-25 (vector-ref arg-2 1))) (let ((e-26 (vector-ref arg-2 2))) (let ((e-27 (vector-ref arg-2 3))) (let ((e-28 (vector-ref arg-2 4))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45TT-shrinkTerm e-27 arg-3) (lambda (bind-0) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45TT-shrinkTerm e-28 arg-3) (lambda (bind-1) (box (vector 5 e-25 e-26 bind-0 bind-1))))))))))) ((6) (let ((e-30 (vector-ref arg-2 1))) (let ((e-31 (vector-ref arg-2 2))) (let ((e-32 (vector-ref arg-2 3))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45TT-shrinkTerm e-32 arg-3) (lambda (bind-0) (box (vector 6 e-30 e-31 bind-0)))))))) ((7) (let ((e-34 (vector-ref arg-2 1))) (let ((e-35 (vector-ref arg-2 2))) (let ((e-36 (vector-ref arg-2 3))) (let ((e-37 (vector-ref arg-2 4))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45TT-shrinkTerm e-36 arg-3) (lambda (bind-0) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45TT-shrinkTerm e-37 arg-3) (lambda (bind-1) (box (vector 7 e-34 e-35 bind-0 bind-1))))))))))) ((8) (let ((e-39 (vector-ref arg-2 1))) (let ((e-40 (vector-ref arg-2 2))) (let ((e-41 (vector-ref arg-2 3))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45TT-shrinkTerm e-41 arg-3) (lambda (bind-0) (box (vector 8 e-39 e-40 bind-0)))))))) ((9) (let ((e-43 (vector-ref arg-2 1))) (let ((e-44 (vector-ref arg-2 2))) (box (vector 9 e-43 e-44))))) ((10) (let ((e-46 (vector-ref arg-2 1))) (let ((e-47 (vector-ref arg-2 2))) (box (vector 10 e-46 e-47))))) (else (let ((e-49 (vector-ref arg-2 1))) (box (vector 11 e-49))))))) +(define CoreC-45TT-shrinkPi (lambda (arg-2 arg-3) (case (vector-ref arg-2 0) ((1) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 1 ))) ((0) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 0 ))) ((2) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 2 ))) (else (let ((e-4 (vector-ref arg-2 1))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45TT-shrinkTerm e-4 arg-3) (lambda (bind-0) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 3 bind-0))))))))) +(define CoreC-45TT-shrinkBinder (lambda (arg-2 arg-3) (case (vector-ref arg-2 0) ((0) (let ((e-1 (vector-ref arg-2 1))) (let ((e-2 (vector-ref arg-2 2))) (let ((e-3 (vector-ref arg-2 3))) (let ((e-4 (vector-ref arg-2 4))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45TT-shrinkPi e-3 arg-3) (lambda (bind-0) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45TT-shrinkTerm e-4 arg-3) (lambda (bind-1) (box (vector 0 e-1 e-2 bind-0 bind-1))))))))))) ((1) (let ((e-6 (vector-ref arg-2 1))) (let ((e-7 (vector-ref arg-2 2))) (let ((e-8 (vector-ref arg-2 3))) (let ((e-9 (vector-ref arg-2 4))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45TT-shrinkTerm e-8 arg-3) (lambda (bind-0) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45TT-shrinkTerm e-9 arg-3) (lambda (bind-1) (box (vector 1 e-6 e-7 bind-0 bind-1))))))))))) ((2) (let ((e-11 (vector-ref arg-2 1))) (let ((e-12 (vector-ref arg-2 2))) (let ((e-13 (vector-ref arg-2 3))) (let ((e-14 (vector-ref arg-2 4))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45TT-shrinkPi e-13 arg-3) (lambda (bind-0) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45TT-shrinkTerm e-14 arg-3) (lambda (bind-1) (box (vector 2 e-11 e-12 bind-0 bind-1))))))))))) ((3) (let ((e-16 (vector-ref arg-2 1))) (let ((e-17 (vector-ref arg-2 2))) (let ((e-18 (vector-ref arg-2 3))) (let ((e-19 (vector-ref arg-2 4))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45TT-shrinkPi e-18 arg-3) (lambda (bind-0) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45TT-shrinkTerm e-19 arg-3) (lambda (bind-1) (box (vector 3 e-16 e-17 bind-0 bind-1))))))))))) ((4) (let ((e-21 (vector-ref arg-2 1))) (let ((e-22 (vector-ref arg-2 2))) (let ((e-23 (vector-ref arg-2 3))) (let ((e-24 (vector-ref arg-2 4))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45TT-shrinkTerm e-23 arg-3) (lambda (bind-0) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45TT-shrinkTerm e-24 arg-3) (lambda (bind-1) (box (vector 4 e-21 e-22 bind-0 bind-1))))))))))) (else (let ((e-26 (vector-ref arg-2 1))) (let ((e-27 (vector-ref arg-2 2))) (let ((e-28 (vector-ref arg-2 3))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45TT-shrinkTerm e-28 arg-3) (lambda (bind-0) (box (vector 5 e-26 e-27 bind-0))))))))))) +(define CoreC-45TT-setMultiplicity (lambda (arg-1 arg-2) (case (vector-ref arg-1 0) ((0) (let ((e-1 (vector-ref arg-1 1))) (let ((e-3 (vector-ref arg-1 3))) (let ((e-4 (vector-ref arg-1 4))) (vector 0 e-1 arg-2 e-3 e-4))))) ((1) (let ((e-6 (vector-ref arg-1 1))) (let ((e-8 (vector-ref arg-1 3))) (let ((e-9 (vector-ref arg-1 4))) (vector 1 e-6 arg-2 e-8 e-9))))) ((2) (let ((e-11 (vector-ref arg-1 1))) (let ((e-13 (vector-ref arg-1 3))) (let ((e-14 (vector-ref arg-1 4))) (vector 2 e-11 arg-2 e-13 e-14))))) ((3) (let ((e-16 (vector-ref arg-1 1))) (let ((e-18 (vector-ref arg-1 3))) (let ((e-19 (vector-ref arg-1 4))) (vector 3 e-16 arg-2 e-18 e-19))))) ((4) (let ((e-21 (vector-ref arg-1 1))) (let ((e-23 (vector-ref arg-1 3))) (let ((e-24 (vector-ref arg-1 4))) (vector 4 e-21 arg-2 e-23 e-24))))) (else (let ((e-26 (vector-ref arg-1 1))) (let ((e-28 (vector-ref arg-1 3))) (vector 5 e-26 arg-2 e-28))))))) +(define CoreC-45TT-sameVar (lambda (arg-1 arg-2) (PreludeC-45Types-u--C-61C-61_Eq_Nat arg-1 arg-2))) +(define CoreC-45TTC-45SizeOf-reverse (lambda (arg-2) arg-2)) +(define CoreC-45TT-resolveRef (lambda (arg-4 arg-5 arg-6 arg-7 arg-8) (case (vector-ref arg-6 0) ((0) '()) (else (let ((e-2 (vector-ref arg-6 2))) (let ((e-3 (vector-ref arg-6 3))) (let ((sc1 (CoreC-45Name-u--C-61C-61_Eq_Name arg-8 e-2))) (cond ((equal? sc1 1) (box (vector 0 arg-7 '() (CoreC-45TT-weakenNVar (CoreC-45TTC-45SizeOf-C-43 arg-4 arg-5) 0)))) (else (CoreC-45TT-resolveRef arg-4 (CoreC-45TTC-45SizeOf-sucR arg-5) e-3 arg-7 arg-8)))))))))) +(define CoreC-45TT-resolveNames (lambda (arg-0 arg-1) (case (vector-ref arg-1 0) ((1) (let ((e-1 (vector-ref arg-1 1))) (let ((e-2 (vector-ref arg-1 2))) (let ((e-3 (vector-ref arg-1 3))) (case (vector-ref e-2 0) ((0) (let ((sc2 (CoreC-45TT-isNVar e-3 arg-0))) (if (null? sc2) (vector 1 e-1 (vector 0 ) e-3) (let ((e-4 (unbox sc2))) (vector 0 e-1 (box 0) e-4)))))(else arg-1)))))) ((2) (let ((e-5 (vector-ref arg-1 1))) (let ((e-6 (vector-ref arg-1 2))) (let ((e-7 (vector-ref arg-1 3))) (let ((e-8 (vector-ref arg-1 4))) (vector 2 e-5 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45TT-resolveNames arg-0 eta-0)) e-8))))))) ((3) (let ((e-10 (vector-ref arg-1 1))) (let ((e-11 (vector-ref arg-1 2))) (let ((e-12 (vector-ref arg-1 3))) (let ((e-13 (vector-ref arg-1 4))) (vector 3 e-10 e-11 (CoreC-45TT-u--map_Functor_Binder (lambda (eta-0) (CoreC-45TT-resolveNames arg-0 eta-0)) e-12) (CoreC-45TT-resolveNames (cons e-11 arg-0) e-13))))))) ((4) (let ((e-15 (vector-ref arg-1 1))) (let ((e-16 (vector-ref arg-1 2))) (let ((e-17 (vector-ref arg-1 3))) (vector 4 e-15 (CoreC-45TT-resolveNames arg-0 e-16) (CoreC-45TT-resolveNames arg-0 e-17)))))) ((5) (let ((e-19 (vector-ref arg-1 1))) (let ((e-20 (vector-ref arg-1 2))) (let ((e-21 (vector-ref arg-1 3))) (let ((e-22 (vector-ref arg-1 4))) (vector 5 e-19 e-20 (CoreC-45TT-resolveNames arg-0 e-21) (CoreC-45TT-resolveNames arg-0 e-22))))))) ((6) (let ((e-24 (vector-ref arg-1 1))) (let ((e-25 (vector-ref arg-1 2))) (let ((e-26 (vector-ref arg-1 3))) (vector 6 e-24 e-25 (CoreC-45TT-resolveNames arg-0 e-26)))))) ((7) (let ((e-28 (vector-ref arg-1 1))) (let ((e-29 (vector-ref arg-1 2))) (let ((e-30 (vector-ref arg-1 3))) (let ((e-31 (vector-ref arg-1 4))) (vector 7 e-28 e-29 (CoreC-45TT-resolveNames arg-0 e-30) (CoreC-45TT-resolveNames arg-0 e-31))))))) ((8) (let ((e-33 (vector-ref arg-1 1))) (let ((e-34 (vector-ref arg-1 2))) (let ((e-35 (vector-ref arg-1 3))) (vector 8 e-33 e-34 (CoreC-45TT-resolveNames arg-0 e-35))))))(else arg-1)))) +(define CoreC-45TT-renameVars (lambda (arg-2 arg-3) (Builtin-believe_me arg-3))) +(define CoreC-45TT-renameTop (lambda (arg-2 arg-3) (CoreC-45TT-renameVars (box '()) arg-3))) +(define CoreC-45TT-refsToLocals (lambda (arg-2 arg-3) (case (vector-ref arg-2 0) ((0) arg-3)(else (CoreC-45TT-mkLocals (CoreC-45TTC-45SizeOf-zero) arg-2 arg-3))))) +(define CoreC-45TT-refToLocal (lambda (arg-1 arg-2 arg-3) (CoreC-45TT-refsToLocals (vector 1 arg-2 arg-1 (vector 0 )) arg-3))) +(define CoreC-45TT-piInfo (lambda (arg-1) (case (vector-ref arg-1 0) ((0) (let ((e-3 (vector-ref arg-1 3))) e-3)) ((1) (vector 1 )) ((2) (let ((e-13 (vector-ref arg-1 3))) e-13)) ((3) (let ((e-18 (vector-ref arg-1 3))) e-18)) ((4) (vector 1 )) (else (vector 1 ))))) +(define CoreC-45TT-notCovering (lambda () (cons (vector 0 ) (vector 1 '())))) +(define CoreC-45TT-nameAt (lambda (arg-1 arg-2) (let ((e-1 (car arg-1))) (let ((e-2 (cdr arg-1))) (cond ((equal? arg-2 0) e-1)(else (let ((e-3 (- arg-2 1))) (CoreC-45TT-nameAt e-2 e-3)))))))) +(define CoreC-45TT-multiplicity (lambda (arg-1) (case (vector-ref arg-1 0) ((0) (let ((e-2 (vector-ref arg-1 2))) e-2)) ((1) (let ((e-7 (vector-ref arg-1 2))) e-7)) ((2) (let ((e-12 (vector-ref arg-1 2))) e-12)) ((3) (let ((e-17 (vector-ref arg-1 2))) e-17)) ((4) (let ((e-22 (vector-ref arg-1 2))) e-22)) (else (let ((e-27 (vector-ref arg-1 2))) e-27))))) +(define CoreC-45TTC-45SizeOf-mkSizeOf (lambda (arg-1) (PreludeC-45TypesC-45List-length arg-1))) +(define CoreC-45TT-mkLocals (lambda (arg-3 arg-4 arg-5) (case (vector-ref arg-5 0) ((0) (let ((e-2 (vector-ref arg-5 1))) (let ((e-3 (vector-ref arg-5 2))) (let ((e-4 (vector-ref arg-5 3))) (vector 0 e-2 e-3 (CoreC-45TT-addVars arg-3 arg-4 e-4)))))) ((1) (let ((e-7 (vector-ref arg-5 1))) (let ((e-8 (vector-ref arg-5 2))) (let ((e-9 (vector-ref arg-5 3))) (case (vector-ref e-8 0) ((0) (PreludeC-45Types-maybe (lambda () (vector 1 e-7 (vector 0 ) e-9)) (lambda () (lambda (eta-0) eta-0)) (CoreC-45TT-resolveRef arg-3 (CoreC-45TTC-45SizeOf-zero) arg-4 e-7 e-9)))(else (vector 1 e-7 e-8 e-9))))))) ((2) (let ((e-11 (vector-ref arg-5 1))) (let ((e-12 (vector-ref arg-5 2))) (let ((e-13 (vector-ref arg-5 3))) (let ((e-14 (vector-ref arg-5 4))) (PreludeC-45Types-maybe (lambda () (vector 2 e-11 e-12 e-13 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45TT-mkLocals arg-3 arg-4 eta-0)) e-14))) (lambda () (lambda (eta-0) eta-0)) (CoreC-45TT-resolveRef arg-3 (CoreC-45TTC-45SizeOf-zero) arg-4 e-11 e-12))))))) ((3) (let ((e-16 (vector-ref arg-5 1))) (let ((e-17 (vector-ref arg-5 2))) (let ((e-18 (vector-ref arg-5 3))) (let ((e-19 (vector-ref arg-5 4))) (vector 3 e-16 e-17 (CoreC-45TT-u--map_Functor_Binder (lambda (eta-0) (CoreC-45TT-mkLocals arg-3 arg-4 eta-0)) e-18) (CoreC-45TT-mkLocals (CoreC-45TTC-45SizeOf-suc arg-3) arg-4 e-19))))))) ((4) (let ((e-21 (vector-ref arg-5 1))) (let ((e-22 (vector-ref arg-5 2))) (let ((e-23 (vector-ref arg-5 3))) (vector 4 e-21 (CoreC-45TT-mkLocals arg-3 arg-4 e-22) (CoreC-45TT-mkLocals arg-3 arg-4 e-23)))))) ((5) (let ((e-25 (vector-ref arg-5 1))) (let ((e-26 (vector-ref arg-5 2))) (let ((e-27 (vector-ref arg-5 3))) (let ((e-28 (vector-ref arg-5 4))) (vector 5 e-25 e-26 (CoreC-45TT-mkLocals arg-3 arg-4 e-27) (CoreC-45TT-mkLocals arg-3 arg-4 e-28))))))) ((6) (let ((e-30 (vector-ref arg-5 1))) (let ((e-31 (vector-ref arg-5 2))) (let ((e-32 (vector-ref arg-5 3))) (vector 6 e-30 e-31 (CoreC-45TT-mkLocals arg-3 arg-4 e-32)))))) ((7) (let ((e-34 (vector-ref arg-5 1))) (let ((e-35 (vector-ref arg-5 2))) (let ((e-36 (vector-ref arg-5 3))) (let ((e-37 (vector-ref arg-5 4))) (vector 7 e-34 e-35 (CoreC-45TT-mkLocals arg-3 arg-4 e-36) (CoreC-45TT-mkLocals arg-3 arg-4 e-37))))))) ((8) (let ((e-39 (vector-ref arg-5 1))) (let ((e-40 (vector-ref arg-5 2))) (let ((e-41 (vector-ref arg-5 3))) (vector 8 e-39 e-40 (CoreC-45TT-mkLocals arg-3 arg-4 e-41)))))) ((9) (let ((e-43 (vector-ref arg-5 1))) (let ((e-44 (vector-ref arg-5 2))) (vector 9 e-43 e-44)))) ((10) (let ((e-46 (vector-ref arg-5 1))) (let ((e-47 (vector-ref arg-5 2))) (vector 10 e-46 e-47)))) (else (let ((e-49 (vector-ref arg-5 1))) (vector 11 e-49)))))) +(define CoreC-45TTC-45SizeOf-map (lambda (arg-4) arg-4)) +(define CoreC-45TTC-45Var-later (lambda (arg-2) (+ 1 arg-2))) +(define CoreC-45TTC-45NVar-later (lambda (arg-3) (+ 1 arg-3))) +(define CoreC-45TT-isVar (lambda (arg-0 arg-1) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45TT-isNVar arg-0 arg-1) (lambda (_-0) (PreludeC-45Types-u--pure_Applicative_Maybe _-0))))) +(define CoreC-45TT-isTotal (lambda () (cons (vector 0 ) (vector 0 )))) +(define CoreC-45TT-isPrimType (lambda (arg-0) (case (vector-ref arg-0 0) ((0) 0) ((1) 0) ((2) 0) ((3) 0) ((4) 0) ((5) 0) ((6) 0) ((7) 0) ((8) 0) ((9) 0) ((10) 0) ((11) 0) ((12) 0) ((13) 0) ((15) 1) ((16) 1) ((17) 1) ((18) 1) ((14) 1) ((19) 1) ((20) 1) ((21) 1) ((22) 1) ((23) 1) ((24) 1) ((25) 1) ((26) 1) (else 1)))) +(define CoreC-45TT-isNVar (lambda (arg-0 arg-1) (if (null? arg-1) '() (let ((e-2 (car arg-1))) (let ((e-3 (cdr arg-1))) (let ((sc1 (CoreC-45Name-nameEq arg-0 e-2))) (if (null? sc1) (PreludeC-45Types-u--map_Functor_Maybe (lambda (eta-0) (CoreC-45TTC-45NVar-later eta-0)) (CoreC-45TT-isNVar arg-0 e-3)) (let ((e-4 (unbox sc1))) (cond (else (PreludeC-45Types-u--pure_Applicative_Maybe 0))))))))))) +(define CoreC-45TT-isLet (lambda (arg-1) (case (vector-ref arg-1 0) ((1) 1)(else 0)))) +(define CoreC-45TT-isImplicit (lambda (arg-1) (case (vector-ref arg-1 0) ((2) (let ((e-3 (vector-ref arg-1 3))) (case (vector-ref e-3 0) ((1) 0)(else 1)))) ((0) (let ((e-8 (vector-ref arg-1 3))) (case (vector-ref e-8 0) ((1) 0)(else 1))))(else 0)))) +(define CoreC-45TT-isErased (lambda (arg-1) (case (vector-ref arg-1 0) ((10) 1)(else 0)))) +(define CoreC-45TT-isConstantType (lambda (arg-0) (case (vector-ref arg-0 0) ((1) (let ((e-0 (vector-ref arg-0 1))) (cond ((equal? e-0 "Int") (box (vector 14 ))) ((equal? e-0 "Int8") (box (vector 15 ))) ((equal? e-0 "Int16") (box (vector 16 ))) ((equal? e-0 "Int32") (box (vector 17 ))) ((equal? e-0 "Int64") (box (vector 18 ))) ((equal? e-0 "Integer") (box (vector 19 ))) ((equal? e-0 "Bits8") (box (vector 20 ))) ((equal? e-0 "Bits16") (box (vector 21 ))) ((equal? e-0 "Bits32") (box (vector 22 ))) ((equal? e-0 "Bits64") (box (vector 23 ))) ((equal? e-0 "String") (box (vector 24 ))) ((equal? e-0 "Char") (box (vector 25 ))) ((equal? e-0 "Double") (box (vector 26 ))) ((equal? e-0 "%World") (box (vector 27 )))(else '()))))(else '())))) +(define CoreC-45TT-isCon (lambda (arg-0) (case (vector-ref arg-0 0) ((2) (let ((e-0 (vector-ref arg-0 1))) (let ((e-1 (vector-ref arg-0 2))) (box (cons e-0 e-1))))) ((3) (let ((e-2 (vector-ref arg-0 1))) (let ((e-3 (vector-ref arg-0 2))) (box (cons e-2 e-3)))))(else '())))) +(define CoreC-45TT-intKind (lambda (arg-0) (case (vector-ref arg-0 0) ((19) (box (vector 0 '()))) ((15) (box (vector 0 (box 8)))) ((16) (box (vector 0 (box 16)))) ((17) (box (vector 0 (box 32)))) ((18) (box (vector 0 (box 64)))) ((14) (box (vector 0 (box 64)))) ((20) (box (vector 1 8))) ((21) (box (vector 1 16))) ((22) (box (vector 1 32))) ((23) (box (vector 1 64)))(else '())))) +(define CoreC-45TT-insertNames (lambda (arg-3 arg-4 arg-5) (case (vector-ref arg-5 0) ((0) (let ((e-2 (vector-ref arg-5 1))) (let ((e-3 (vector-ref arg-5 2))) (let ((e-4 (vector-ref arg-5 3))) (vector 0 e-2 e-3 (CoreC-45TT-insertNVarNames arg-3 arg-4 e-4)))))) ((1) (let ((e-7 (vector-ref arg-5 1))) (let ((e-8 (vector-ref arg-5 2))) (let ((e-9 (vector-ref arg-5 3))) (vector 1 e-7 e-8 e-9))))) ((2) (let ((e-11 (vector-ref arg-5 1))) (let ((e-12 (vector-ref arg-5 2))) (let ((e-13 (vector-ref arg-5 3))) (let ((e-14 (vector-ref arg-5 4))) (vector 2 e-11 e-12 e-13 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45TT-insertNames arg-3 arg-4 eta-0)) e-14))))))) ((3) (let ((e-16 (vector-ref arg-5 1))) (let ((e-17 (vector-ref arg-5 2))) (let ((e-18 (vector-ref arg-5 3))) (let ((e-19 (vector-ref arg-5 4))) (vector 3 e-16 e-17 (CoreC-45TT-u--map_Functor_Binder (lambda (eta-0) (CoreC-45TT-insertNames arg-3 arg-4 eta-0)) e-18) (CoreC-45TT-insertNames (CoreC-45TTC-45SizeOf-suc arg-3) arg-4 e-19))))))) ((4) (let ((e-21 (vector-ref arg-5 1))) (let ((e-22 (vector-ref arg-5 2))) (let ((e-23 (vector-ref arg-5 3))) (vector 4 e-21 (CoreC-45TT-insertNames arg-3 arg-4 e-22) (CoreC-45TT-insertNames arg-3 arg-4 e-23)))))) ((5) (let ((e-25 (vector-ref arg-5 1))) (let ((e-26 (vector-ref arg-5 2))) (let ((e-27 (vector-ref arg-5 3))) (let ((e-28 (vector-ref arg-5 4))) (vector 5 e-25 e-26 (CoreC-45TT-insertNames arg-3 arg-4 e-27) (CoreC-45TT-insertNames arg-3 arg-4 e-28))))))) ((6) (let ((e-30 (vector-ref arg-5 1))) (let ((e-31 (vector-ref arg-5 2))) (let ((e-32 (vector-ref arg-5 3))) (vector 6 e-30 e-31 (CoreC-45TT-insertNames arg-3 arg-4 e-32)))))) ((7) (let ((e-34 (vector-ref arg-5 1))) (let ((e-35 (vector-ref arg-5 2))) (let ((e-36 (vector-ref arg-5 3))) (let ((e-37 (vector-ref arg-5 4))) (vector 7 e-34 e-35 (CoreC-45TT-insertNames arg-3 arg-4 e-36) (CoreC-45TT-insertNames arg-3 arg-4 e-37))))))) ((8) (let ((e-39 (vector-ref arg-5 1))) (let ((e-40 (vector-ref arg-5 2))) (let ((e-41 (vector-ref arg-5 3))) (vector 8 e-39 e-40 (CoreC-45TT-insertNames arg-3 arg-4 e-41)))))) ((9) (let ((e-43 (vector-ref arg-5 1))) (let ((e-44 (vector-ref arg-5 2))) (vector 9 e-43 e-44)))) ((10) (let ((e-46 (vector-ref arg-5 1))) (let ((e-47 (vector-ref arg-5 2))) (vector 10 e-46 e-47)))) (else (let ((e-49 (vector-ref arg-5 1))) (vector 11 e-49)))))) +(define CoreC-45TT-insertNVarNames (lambda (arg-4 arg-5 arg-6) (CoreC-45TT-case--insertNVarNames-6827 arg-6 arg-5 arg-4 (CoreC-45TT-sizedView arg-4)))) +(define CoreC-45TT-insertNVar (lambda (arg-4 arg-5) (CoreC-45TT-case--insertNVar-6594 arg-5 arg-4 (CoreC-45TT-sizedView arg-4)))) +(define CoreC-45TT-getRefs (lambda (arg-1 arg-2) (CoreC-45TT-addRefs 0 arg-1 (LibrariesC-45DataC-45NameMap-empty) arg-2))) +(define CoreC-45TT-getMetas (lambda (arg-1) (CoreC-45TT-addMetas (LibrariesC-45DataC-45NameMap-empty) arg-1))) +(define CoreC-45TT-getLoc (lambda (arg-1) (case (vector-ref arg-1 0) ((0) (let ((e-2 (vector-ref arg-1 1))) e-2)) ((1) (let ((e-7 (vector-ref arg-1 1))) e-7)) ((2) (let ((e-11 (vector-ref arg-1 1))) e-11)) ((3) (let ((e-16 (vector-ref arg-1 1))) e-16)) ((4) (let ((e-21 (vector-ref arg-1 1))) e-21)) ((5) (let ((e-25 (vector-ref arg-1 1))) e-25)) ((6) (let ((e-30 (vector-ref arg-1 1))) e-30)) ((7) (let ((e-34 (vector-ref arg-1 1))) e-34)) ((8) (let ((e-39 (vector-ref arg-1 1))) e-39)) ((9) (let ((e-43 (vector-ref arg-1 1))) e-43)) ((10) (let ((e-46 (vector-ref arg-1 1))) e-46)) (else (let ((e-49 (vector-ref arg-1 1))) e-49))))) +(define CoreC-45TT-getFnArgs (lambda (arg-1) (CoreC-45TT-n--11383-7482-u--getFA arg-1 '() arg-1))) +(define CoreC-45TT-getFn (lambda (arg-1) (case (vector-ref arg-1 0) ((4) (let ((e-2 (vector-ref arg-1 2))) (CoreC-45TT-getFn e-2)))(else arg-1)))) +(define CoreC-45TT-getArgs (lambda (ext-0) (Builtin-snd (CoreC-45TT-getFnArgs ext-0)))) +(define CoreC-45TT-forgetDef (lambda (arg-2) (case (vector-ref arg-2 0) ((1) (vector 1 )) ((0) (vector 0 )) ((2) (vector 2 )) (else (vector 0 ))))) +(define CoreC-45TT-fnType (lambda (arg-0 arg-1 arg-2 arg-3) (vector 3 (CoreC-45FC-emptyFC) (vector 2 "_" 0) (vector 2 arg-1 (AlgebraC-45ZeroOneOmega-u--top_Top_ZeroOneOmega) (vector 1 ) arg-2) (CoreC-45TT-u--weaken_Weaken_Term arg-3)))) +(define CoreC-45TTC-45SubstEnv-findDrop (lambda (arg-2 arg-3 arg-4 arg-5) (if (null? arg-5) (vector 0 arg-2 arg-3 arg-4) (cond ((equal? arg-4 0) (let ((e-8 (car arg-5))) e-8))(else (let ((e-4 (- arg-4 1))) (let ((e-14 (cdr arg-5))) (CoreC-45TTC-45SubstEnv-findDrop arg-2 arg-3 e-4 e-14)))))))) +(define CoreC-45TTC-45SubstEnv-find (lambda (arg-3 arg-4 arg-5 arg-6 arg-7) (CoreC-45TTC-45SubstEnv-case--find-9445 arg-7 arg-6 arg-5 arg-4 arg-3 (CoreC-45TT-sizedView arg-5)))) +(define CoreC-45TT-eqTerm (lambda (arg-2 arg-3) (case (vector-ref arg-2 0) ((0) (let ((e-4 (vector-ref arg-2 3))) (case (vector-ref arg-3 0) ((0) (let ((e-54 (vector-ref arg-3 3))) (PreludeC-45Types-u--C-61C-61_Eq_Nat e-4 e-54)))(else 0)))) ((1) (let ((e-9 (vector-ref arg-2 3))) (case (vector-ref arg-3 0) ((1) (let ((e-59 (vector-ref arg-3 3))) (CoreC-45Name-u--C-61C-61_Eq_Name e-9 e-59)))(else 0)))) ((2) (let ((e-13 (vector-ref arg-2 3))) (let ((e-14 (vector-ref arg-2 4))) (case (vector-ref arg-3 0) ((2) (let ((e-63 (vector-ref arg-3 3))) (let ((e-64 (vector-ref arg-3 4))) (let ((sc2 (PreludeC-45EqOrd-u--C-61C-61_Eq_Int e-13 e-63))) (cond ((equal? sc2 1) (PreludeC-45Interfaces-all (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (lambda (eta-0) (PreludeC-45Basics-uncurry (lambda (eta-1) (lambda (eta-2) (CoreC-45TT-eqTerm eta-1 eta-2))) eta-0)) (DataC-45List-u--zip_Zippable_List e-14 e-64))) (else 0))))))(else 0))))) ((3) (let ((e-18 (vector-ref arg-2 3))) (let ((e-19 (vector-ref arg-2 4))) (case (vector-ref arg-3 0) ((3) (let ((e-68 (vector-ref arg-3 3))) (let ((e-69 (vector-ref arg-3 4))) (let ((sc2 (CoreC-45TT-eqBinderBy (lambda (eta-0) (lambda (eta-1) (CoreC-45TT-eqTerm eta-0 eta-1))) e-18 e-68))) (cond ((equal? sc2 1) (CoreC-45TT-eqTerm e-19 e-69)) (else 0))))))(else 0))))) ((4) (let ((e-22 (vector-ref arg-2 2))) (let ((e-23 (vector-ref arg-2 3))) (case (vector-ref arg-3 0) ((4) (let ((e-72 (vector-ref arg-3 2))) (let ((e-73 (vector-ref arg-3 3))) (let ((sc2 (CoreC-45TT-eqTerm e-22 e-72))) (cond ((equal? sc2 1) (CoreC-45TT-eqTerm e-23 e-73)) (else 0))))))(else 0))))) ((5) (let ((e-27 (vector-ref arg-2 3))) (let ((e-28 (vector-ref arg-2 4))) (case (vector-ref arg-3 0) ((5) (let ((e-77 (vector-ref arg-3 3))) (let ((e-78 (vector-ref arg-3 4))) (let ((sc2 (CoreC-45TT-eqTerm e-27 e-77))) (cond ((equal? sc2 1) (CoreC-45TT-eqTerm e-28 e-78)) (else 0))))))(else 0))))) ((6) (let ((e-32 (vector-ref arg-2 3))) (case (vector-ref arg-3 0) ((6) (let ((e-82 (vector-ref arg-3 3))) (CoreC-45TT-eqTerm e-32 e-82)))(else 0)))) ((7) (let ((e-36 (vector-ref arg-2 3))) (let ((e-37 (vector-ref arg-2 4))) (case (vector-ref arg-3 0) ((7) (let ((e-86 (vector-ref arg-3 3))) (let ((e-87 (vector-ref arg-3 4))) (let ((sc2 (CoreC-45TT-eqTerm e-36 e-86))) (cond ((equal? sc2 1) (CoreC-45TT-eqTerm e-37 e-87)) (else 0))))))(else 0))))) ((8) (let ((e-41 (vector-ref arg-2 3))) (case (vector-ref arg-3 0) ((8) (let ((e-91 (vector-ref arg-3 3))) (CoreC-45TT-eqTerm e-41 e-91)))(else 0)))) ((9) (let ((e-44 (vector-ref arg-2 2))) (case (vector-ref arg-3 0) ((9) (let ((e-94 (vector-ref arg-3 2))) (CoreC-45TT-u--C-61C-61_Eq_Constant e-44 e-94)))(else 0)))) ((10) (let ((e-47 (vector-ref arg-2 2))) (case (vector-ref arg-3 0) ((10) (let ((e-97 (vector-ref arg-3 2))) (PreludeC-45EqOrd-u--C-61C-61_Eq_Bool e-47 e-97)))(else 0)))) ((11) (case (vector-ref arg-3 0) ((11) 1)(else 0)))(else 0)))) +(define CoreC-45TT-eqPiInfoBy (lambda (arg-2 ext-0 ext-1) (CoreC-45TT-n--5857-2372-u--go arg-2 ext-0 ext-1))) +(define CoreC-45TT-eqBinderBy (lambda (arg-2 ext-0 ext-1) (CoreC-45TT-n--8543-4926-u--go arg-2 ext-0 ext-1))) +(define CoreC-45TT-embedSub (lambda (arg-2 arg-3) (case (vector-ref arg-3 0) ((0) (let ((e-2 (vector-ref arg-3 1))) (let ((e-3 (vector-ref arg-3 2))) (let ((e-4 (vector-ref arg-3 3))) (vector 0 e-2 e-3 (CoreC-45TT-varEmbedSub arg-2 e-4)))))) ((1) (let ((e-7 (vector-ref arg-3 1))) (let ((e-8 (vector-ref arg-3 2))) (let ((e-9 (vector-ref arg-3 3))) (vector 1 e-7 e-8 e-9))))) ((2) (let ((e-11 (vector-ref arg-3 1))) (let ((e-12 (vector-ref arg-3 2))) (let ((e-13 (vector-ref arg-3 3))) (let ((e-14 (vector-ref arg-3 4))) (vector 2 e-11 e-12 e-13 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45TT-embedSub arg-2 eta-0)) e-14))))))) ((3) (let ((e-16 (vector-ref arg-3 1))) (let ((e-17 (vector-ref arg-3 2))) (let ((e-18 (vector-ref arg-3 3))) (let ((e-19 (vector-ref arg-3 4))) (vector 3 e-16 e-17 (CoreC-45TT-u--map_Functor_Binder (lambda (eta-0) (CoreC-45TT-embedSub arg-2 eta-0)) e-18) (CoreC-45TT-embedSub (vector 2 arg-2) e-19))))))) ((4) (let ((e-21 (vector-ref arg-3 1))) (let ((e-22 (vector-ref arg-3 2))) (let ((e-23 (vector-ref arg-3 3))) (vector 4 e-21 (CoreC-45TT-embedSub arg-2 e-22) (CoreC-45TT-embedSub arg-2 e-23)))))) ((5) (let ((e-25 (vector-ref arg-3 1))) (let ((e-26 (vector-ref arg-3 2))) (let ((e-27 (vector-ref arg-3 3))) (let ((e-28 (vector-ref arg-3 4))) (vector 5 e-25 e-26 (CoreC-45TT-embedSub arg-2 e-27) (CoreC-45TT-embedSub arg-2 e-28))))))) ((6) (let ((e-30 (vector-ref arg-3 1))) (let ((e-31 (vector-ref arg-3 2))) (let ((e-32 (vector-ref arg-3 3))) (vector 6 e-30 e-31 (CoreC-45TT-embedSub arg-2 e-32)))))) ((7) (let ((e-34 (vector-ref arg-3 1))) (let ((e-35 (vector-ref arg-3 2))) (let ((e-36 (vector-ref arg-3 3))) (let ((e-37 (vector-ref arg-3 4))) (vector 7 e-34 e-35 (CoreC-45TT-embedSub arg-2 e-36) (CoreC-45TT-embedSub arg-2 e-37))))))) ((8) (let ((e-39 (vector-ref arg-3 1))) (let ((e-40 (vector-ref arg-3 2))) (let ((e-41 (vector-ref arg-3 3))) (vector 8 e-39 e-40 (CoreC-45TT-embedSub arg-2 e-41)))))) ((9) (let ((e-43 (vector-ref arg-3 1))) (let ((e-44 (vector-ref arg-3 2))) (vector 9 e-43 e-44)))) ((10) (let ((e-46 (vector-ref arg-3 1))) (let ((e-47 (vector-ref arg-3 2))) (vector 10 e-46 e-47)))) (else (let ((e-49 (vector-ref arg-3 1))) (vector 11 e-49)))))) +(define CoreC-45TT-embed (lambda (arg-2) (Builtin-believe_me arg-2))) +(define CoreC-45TT-dropVar (lambda (arg-1 arg-2) (let ((e-1 (car arg-1))) (let ((e-2 (cdr arg-1))) (cond ((equal? arg-2 0) e-2)(else (let ((e-3 (- arg-2 1))) (cons e-1 (CoreC-45TT-dropVar e-2 e-3))))))))) +(define CoreC-45TT-dropFirst (lambda (arg-2) (if (null? arg-2) '() (let ((e-2 (car arg-2))) (let ((e-3 (cdr arg-2))) (cond ((equal? e-2 0) (CoreC-45TT-dropFirst e-3))(else (let ((e-8 (- e-2 1))) (cons e-8 (CoreC-45TT-dropFirst e-3)))))))))) +(define CoreC-45TT-constantEq (lambda (arg-0 arg-1) (case (vector-ref arg-0 0) ((0) (let ((e-0 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((0) (let ((e-9 (vector-ref arg-1 1))) (let ((sc2 (DecidableC-45Equality-u--decEq_DecEq_Int e-0 e-9))) (case (vector-ref sc2 0) ((0) (let ((e-1 (vector-ref sc2 1))) (cond (else (box 0))))) (else '())))))(else '())))) ((1) (let ((e-1 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((1) (let ((e-10 (vector-ref arg-1 1))) (let ((sc2 (DecidableC-45Equality-u--decEq_DecEq_Integer e-1 e-10))) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (cond (else (box 0))))) (else '())))))(else '())))) ((2) (let ((e-2 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((2) (let ((e-11 (vector-ref arg-1 1))) (let ((sc2 (DecidableC-45Equality-u--decEq_DecEq_Integer e-2 e-11))) (case (vector-ref sc2 0) ((0) (let ((e-1 (vector-ref sc2 1))) (cond (else (box 0))))) (else '())))))(else '())))) ((3) (let ((e-3 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((3) (let ((e-12 (vector-ref arg-1 1))) (let ((sc2 (DecidableC-45Equality-u--decEq_DecEq_Integer e-3 e-12))) (case (vector-ref sc2 0) ((0) (let ((e-1 (vector-ref sc2 1))) (cond (else (box 0))))) (else '())))))(else '())))) ((4) (let ((e-4 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((4) (let ((e-13 (vector-ref arg-1 1))) (let ((sc2 (DecidableC-45Equality-u--decEq_DecEq_Integer e-4 e-13))) (case (vector-ref sc2 0) ((0) (let ((e-1 (vector-ref sc2 1))) (cond (else (box 0))))) (else '())))))(else '())))) ((5) (let ((e-5 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((5) (let ((e-14 (vector-ref arg-1 1))) (let ((sc2 (DecidableC-45Equality-u--decEq_DecEq_Integer e-5 e-14))) (case (vector-ref sc2 0) ((0) (let ((e-1 (vector-ref sc2 1))) (cond (else (box 0))))) (else '())))))(else '())))) ((10) (let ((e-6 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((10) (let ((e-15 (vector-ref arg-1 1))) (let ((sc2 (DecidableC-45Equality-u--decEq_DecEq_String e-6 e-15))) (case (vector-ref sc2 0) ((0) (let ((e-1 (vector-ref sc2 1))) (cond (else (box 0))))) (else '())))))(else '())))) ((11) (let ((e-7 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((11) (let ((e-16 (vector-ref arg-1 1))) (let ((sc2 (DecidableC-45Equality-u--decEq_DecEq_Char e-7 e-16))) (case (vector-ref sc2 0) ((0) (let ((e-1 (vector-ref sc2 1))) (cond (else (box 0))))) (else '())))))(else '())))) ((12) (case (vector-ref arg-1 0) ((12) '())(else '()))) ((13) (case (vector-ref arg-1 0) ((13) (box 0))(else '()))) ((14) (case (vector-ref arg-1 0) ((14) (box 0))(else '()))) ((15) (case (vector-ref arg-1 0) ((15) (box 0))(else '()))) ((16) (case (vector-ref arg-1 0) ((16) (box 0))(else '()))) ((17) (case (vector-ref arg-1 0) ((17) (box 0))(else '()))) ((18) (case (vector-ref arg-1 0) ((18) (box 0))(else '()))) ((19) (case (vector-ref arg-1 0) ((19) (box 0))(else '()))) ((24) (case (vector-ref arg-1 0) ((24) (box 0))(else '()))) ((25) (case (vector-ref arg-1 0) ((25) (box 0))(else '()))) ((26) (case (vector-ref arg-1 0) ((26) (box 0))(else '()))) ((27) (case (vector-ref arg-1 0) ((27) (box 0))(else '())))(else '())))) +(define CoreC-45TT-constTag (lambda (arg-0) (case (vector-ref arg-0 0) ((14) 3) ((19) 4) ((20) 5) ((21) 6) ((22) 7) ((23) 8) ((24) 9) ((25) 10) ((26) 11) ((27) 12) ((15) 13) ((16) 14) ((17) 15) ((18) 16)(else 0)))) +(define CoreC-45TT-compatible (lambda (arg-0 arg-1) (cond ((equal? arg-0 2) 1)(else (cond ((equal? arg-1 2) 1)(else (CoreC-45TT-u--C-61C-61_Eq_LazyReason arg-0 arg-1))))))) +(define CoreC-45TT-binderType (lambda (arg-1) (case (vector-ref arg-1 0) ((0) (let ((e-4 (vector-ref arg-1 4))) e-4)) ((1) (let ((e-9 (vector-ref arg-1 4))) e-9)) ((2) (let ((e-14 (vector-ref arg-1 4))) e-14)) ((3) (let ((e-19 (vector-ref arg-1 4))) e-19)) ((4) (let ((e-24 (vector-ref arg-1 4))) e-24)) (else (let ((e-28 (vector-ref arg-1 3))) e-28))))) +(define CoreC-45TT-binderLoc (lambda (arg-1) (case (vector-ref arg-1 0) ((0) (let ((e-1 (vector-ref arg-1 1))) e-1)) ((1) (let ((e-6 (vector-ref arg-1 1))) e-6)) ((2) (let ((e-11 (vector-ref arg-1 1))) e-11)) ((3) (let ((e-16 (vector-ref arg-1 1))) e-16)) ((4) (let ((e-21 (vector-ref arg-1 1))) e-21)) (else (let ((e-26 (vector-ref arg-1 1))) e-26))))) +(define CoreC-45TT-applyWithFC (lambda (arg-1 arg-2) (if (null? arg-2) arg-1 (let ((e-2 (car arg-2))) (let ((e-3 (cdr arg-2))) (let ((e-6 (car e-2))) (let ((e-7 (cdr e-2))) (CoreC-45TT-applyWithFC (vector 4 e-6 arg-1 e-7) e-3)))))))) +(define CoreC-45TT-apply (lambda (arg-1 arg-2 arg-3) (if (null? arg-3) arg-2 (let ((e-2 (car arg-3))) (let ((e-3 (cdr arg-3))) (CoreC-45TT-apply arg-1 (vector 4 arg-1 arg-2 e-2) e-3)))))) +(define CoreC-45TT-addVars (lambda (arg-4 ext-0 ext-1) (CoreC-45TT-insertNVarNames arg-4 (CoreC-45TTC-45Bounds-sizeOf ext-0) ext-1))) +(define CoreC-45TT-addRefs (lambda (arg-1 arg-2 arg-3 arg-4) (case (vector-ref arg-4 0) ((0) arg-3) ((1) (let ((e-9 (vector-ref arg-4 3))) (LibrariesC-45DataC-45NameMap-insert e-9 arg-1 arg-3))) ((2) (let ((e-11 (vector-ref arg-4 1))) (let ((e-12 (vector-ref arg-4 2))) (let ((e-13 (vector-ref arg-4 3))) (let ((e-14 (vector-ref arg-4 4))) (CoreC-45TT-n--14234-9987-u--addRefsArgs e-14 e-13 e-12 e-11 arg-3 arg-2 arg-1 arg-3 e-14)))))) ((3) (let ((e-18 (vector-ref arg-4 3))) (let ((e-19 (vector-ref arg-4 4))) (case (vector-ref e-18 0) ((1) (let ((e-53 (vector-ref e-18 3))) (let ((e-54 (vector-ref e-18 4))) (CoreC-45TT-addRefs arg-1 arg-2 (CoreC-45TT-addRefs arg-1 arg-2 (CoreC-45TT-addRefs arg-1 arg-2 arg-3 e-53) e-54) e-19))))(else (CoreC-45TT-addRefs arg-1 arg-2 (CoreC-45TT-addRefs arg-1 arg-2 arg-3 (CoreC-45TT-binderType e-18)) e-19)))))) ((4) (let ((e-22 (vector-ref arg-4 2))) (let ((e-23 (vector-ref arg-4 3))) (case (vector-ref e-22 0) ((4) (let ((e-57 (vector-ref e-22 2))) (let ((e-58 (vector-ref e-22 3))) (case (vector-ref e-57 0) ((1) (let ((e-62 (vector-ref e-57 3))) (let ((sc3 (CoreC-45Name-u--C-61C-61_Eq_Name e-62 arg-2))) (cond ((equal? sc3 1) (CoreC-45TT-addRefs 1 arg-2 (LibrariesC-45DataC-45NameMap-insert e-62 1 arg-3) e-23)) (else (CoreC-45TT-addRefs arg-1 arg-2 (CoreC-45TT-addRefs arg-1 arg-2 (LibrariesC-45DataC-45NameMap-insert e-62 arg-1 arg-3) e-58) e-23))))))(else (CoreC-45TT-addRefs arg-1 arg-2 (CoreC-45TT-addRefs arg-1 arg-2 arg-3 e-22) e-23))))))(else (CoreC-45TT-addRefs arg-1 arg-2 (CoreC-45TT-addRefs arg-1 arg-2 arg-3 e-22) e-23)))))) ((5) (let ((e-28 (vector-ref arg-4 4))) (CoreC-45TT-addRefs arg-1 arg-2 arg-3 e-28))) ((6) (let ((e-32 (vector-ref arg-4 3))) (CoreC-45TT-addRefs arg-1 arg-2 arg-3 e-32))) ((7) (let ((e-36 (vector-ref arg-4 3))) (let ((e-37 (vector-ref arg-4 4))) (CoreC-45TT-addRefs arg-1 arg-2 (CoreC-45TT-addRefs arg-1 arg-2 arg-3 e-36) e-37)))) ((8) (let ((e-41 (vector-ref arg-4 3))) (CoreC-45TT-addRefs arg-1 arg-2 arg-3 e-41))) ((9) arg-3) ((10) arg-3) (else arg-3)))) +(define CoreC-45TT-addMetas (lambda (arg-1 arg-2) (case (vector-ref arg-2 0) ((0) arg-1) ((1) arg-1) ((2) (let ((e-11 (vector-ref arg-2 1))) (let ((e-12 (vector-ref arg-2 2))) (let ((e-13 (vector-ref arg-2 3))) (let ((e-14 (vector-ref arg-2 4))) (CoreC-45TT-n--14118-9893-u--addMetaArgs e-14 e-13 e-12 e-11 arg-1 (LibrariesC-45DataC-45NameMap-insert e-12 0 arg-1) e-14)))))) ((3) (let ((e-18 (vector-ref arg-2 3))) (let ((e-19 (vector-ref arg-2 4))) (case (vector-ref e-18 0) ((1) (let ((e-53 (vector-ref e-18 3))) (let ((e-54 (vector-ref e-18 4))) (CoreC-45TT-addMetas (CoreC-45TT-addMetas (CoreC-45TT-addMetas arg-1 e-53) e-54) e-19))))(else (CoreC-45TT-addMetas (CoreC-45TT-addMetas arg-1 (CoreC-45TT-binderType e-18)) e-19)))))) ((4) (let ((e-22 (vector-ref arg-2 2))) (let ((e-23 (vector-ref arg-2 3))) (CoreC-45TT-addMetas (CoreC-45TT-addMetas arg-1 e-22) e-23)))) ((5) (let ((e-28 (vector-ref arg-2 4))) (CoreC-45TT-addMetas arg-1 e-28))) ((6) (let ((e-32 (vector-ref arg-2 3))) (CoreC-45TT-addMetas arg-1 e-32))) ((7) (let ((e-36 (vector-ref arg-2 3))) (let ((e-37 (vector-ref arg-2 4))) (CoreC-45TT-addMetas (CoreC-45TT-addMetas arg-1 e-36) e-37)))) ((8) (let ((e-41 (vector-ref arg-2 3))) (CoreC-45TT-addMetas arg-1 e-41))) ((9) arg-1) ((10) arg-1) (else arg-1)))) +(define CoreC-45TTC-45SizeOf-C-43 (lambda (arg-3 arg-4) (+ arg-3 arg-4))) +(define Algebra-showCount (lambda (ext-0) (AlgebraC-45Semiring-elimSemi (cons (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-2) (lambda (arg-3) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-4 arg-5))))) "0 " "1 " (lambda (eta-0) "") ext-0))) +(define AlgebraC-45Preorder-lub (lambda (arg-1 arg-2 arg-3) (let ((sc0 (let ((e-1 (vector-ref arg-1 0))) ((e-1 arg-2) arg-3)))) (cond ((equal? sc0 1) arg-3) (else arg-2))))) +(define AlgebraC-45Preorder-glb (lambda (arg-1 arg-2 arg-3) (let ((sc0 (let ((e-1 (vector-ref arg-1 0))) ((e-1 arg-2) arg-3)))) (cond ((equal? sc0 1) arg-2) (else arg-3))))) +(define AlgebraC-45Preorder-C-60 (lambda (arg-1 arg-2 arg-3) (let ((sc0 (let ((sc1 (Builtin-fst arg-1))) (let ((e-1 (vector-ref sc1 0))) ((e-1 arg-2) arg-3))))) (cond ((equal? sc0 1) (let ((sc1 (Builtin-snd arg-1))) (let ((e-2 (cdr sc1))) ((e-2 arg-2) arg-3)))) (else 0))))) +(define AlgebraC-45Semiring-linear (lambda (arg-1) (let ((e-4 (vector-ref arg-1 3))) e-4))) +(define AlgebraC-45Semiring-isRigOther (lambda (arg-1 ext-0) (AlgebraC-45Semiring-elimSemi arg-1 0 0 (lambda (eta-0) 1) ext-0))) +(define AlgebraC-45Semiring-isLinear (lambda (arg-1 ext-0) (AlgebraC-45Semiring-elimSemi arg-1 0 1 (lambda (eta-0) 0) ext-0))) +(define AlgebraC-45Semiring-isErased (lambda (arg-1 ext-0) (AlgebraC-45Semiring-elimSemi arg-1 1 0 (lambda (eta-0) 0) ext-0))) +(define AlgebraC-45Semiring-erased (lambda (arg-1) (let ((e-2 (vector-ref arg-1 1))) e-2))) +(define AlgebraC-45Semiring-elimSemi (lambda (arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 (let ((sc1 (Builtin-snd arg-2))) (let ((e-1 (car sc1))) ((e-1 arg-6) (let ((sc2 (Builtin-fst arg-2))) (let ((e-5 (vector-ref sc2 1))) e-5))))))) (cond ((equal? sc0 1) arg-3) (else (let ((sc1 (let ((sc2 (Builtin-snd arg-2))) (let ((e-1 (car sc2))) ((e-1 arg-6) (let ((sc3 (Builtin-fst arg-2))) (let ((e-4 (vector-ref sc3 3))) e-4))))))) (cond ((equal? sc1 1) arg-4) (else (arg-5 arg-6))))))))) +(define AlgebraC-45Semiring-branchZero (lambda (arg-2 arg-3 arg-4 arg-5) (let ((sc0 (AlgebraC-45Semiring-isErased arg-2 arg-5))) (cond ((equal? sc0 1) (arg-3)) (else (arg-4)))))) +(define AlgebraC-45Semiring-branchVal (lambda (arg-2 arg-3 arg-4 arg-5) (let ((sc0 (AlgebraC-45Semiring-isRigOther arg-2 arg-5))) (cond ((equal? sc0 1) (arg-3)) (else (arg-4)))))) +(define AlgebraC-45Semiring-branchOne (lambda (arg-2 arg-3 arg-4 arg-5) (let ((sc0 (AlgebraC-45Semiring-isLinear arg-2 arg-5))) (cond ((equal? sc0 1) (arg-3)) (else (arg-4)))))) +(define AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega (lambda (ext-0 ext-1) (AlgebraC-45ZeroOneOmega-rigPlus ext-0 ext-1))) +(define AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega (lambda (ext-0 ext-1) (AlgebraC-45ZeroOneOmega-rigMult ext-0 ext-1))) +(define AlgebraC-45ZeroOneOmega-u--top_Top_ZeroOneOmega (lambda () 2)) +(define AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega (lambda () 1)) +(define AlgebraC-45ZeroOneOmega-u--show_Show_ZeroOneOmega (lambda (arg-0) (cond ((equal? arg-0 0) "Rig0") ((equal? arg-0 1) "Rig1") (else "RigW")))) +(define AlgebraC-45ZeroOneOmega-u--showPrec_Show_ZeroOneOmega (lambda (arg-0 arg-1) (AlgebraC-45ZeroOneOmega-u--show_Show_ZeroOneOmega arg-1))) +(define AlgebraC-45ZeroOneOmega-u--preorderTrans_Preorder_ZeroOneOmega (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (cond ((equal? arg-0 0) 0) ((equal? arg-0 1) (cond ((equal? arg-2 1) 0) (else 0))) (else (cond (else arg-4)))))) +(define AlgebraC-45ZeroOneOmega-u--preorderRefl_Preorder_ZeroOneOmega (lambda (arg-0) (cond ((equal? arg-0 0) 0) ((equal? arg-0 1) 0) (else 0)))) +(define AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega (lambda () 0)) +(define AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega (lambda (arg-0 arg-1) (cond ((equal? arg-0 0) (cond ((equal? arg-1 0) 1)(else 0))) ((equal? arg-0 1) (cond ((equal? arg-1 1) 1)(else 0))) ((equal? arg-0 2) (cond ((equal? arg-1 2) 1)(else 0)))(else 0)))) +(define AlgebraC-45ZeroOneOmega-u--C-60C-61_Preorder_ZeroOneOmega (lambda (arg-0 arg-1) (cond ((equal? arg-0 0) 1) ((equal? arg-0 1) (cond ((equal? arg-1 1) 1) ((equal? arg-1 2) 1)(else 0))) ((equal? arg-0 2) (cond ((equal? arg-1 2) 1)(else 0)))(else 0)))) +(define AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega (lambda (arg-0 arg-1) (let ((sc0 (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-0 arg-1))) (cond ((equal? sc0 1) 0) (else 1))))) +(define AlgebraC-45ZeroOneOmega-rigPlus (lambda (arg-0 arg-1) (cond ((equal? arg-0 0) arg-1)(else (cond ((equal? arg-1 0) arg-0)(else (cond ((equal? arg-0 1) 2)(else (cond ((equal? arg-1 1) 2)(else (cond (else (cond (else 2)))))))))))))) +(define AlgebraC-45ZeroOneOmega-rigMult (lambda (arg-0 arg-1) (cond ((equal? arg-0 0) 0)(else (cond ((equal? arg-1 0) 0)(else (cond ((equal? arg-0 1) arg-1)(else (cond ((equal? arg-1 1) arg-0)(else (cond (else (cond (else 2)))))))))))))) +(define CoreC-45Env-n--4135-1573-u--findUsedArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (if (null? arg-9) arg-8 (let ((e-2 (car arg-9))) (let ((e-3 (cdr arg-9))) (CoreC-45Env-n--4135-1573-u--findUsedArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (CoreC-45Env-findUsed arg-0 arg-7 arg-8 e-2) e-3)))))) +(define CoreC-45Env-n--4135-1506-u--eqNat (lambda (arg-0 arg-2 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (PreludeC-45EqOrd-u--C-61C-61_Eq_Integer arg-8 arg-9))) +(define CoreC-45Env-n--4135-1588-u--dropS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (if (null? arg-7) '() (let ((e-2 (car arg-7))) (let ((e-3 (cdr arg-7))) (cond ((equal? e-2 0) (CoreC-45Env-n--4135-1588-u--dropS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3))(else (let ((e-4 (- e-2 1))) (cons e-4 (CoreC-45Env-n--4135-1588-u--dropS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3)))))))))) +(define CoreC-45Env-toVar (lambda (arg-0 arg-1) (if (null? arg-0) '() (let ((e-2 (cdr arg-0))) (cond ((equal? arg-1 0) (box 0))(else (let ((e-3 (- arg-1 1))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Env-toVar e-2 e-3) (lambda (_-0) (box (+ 1 _-0))))))))))) +(define CoreC-45Env-shrinkEnv (lambda (arg-2 arg-3) (case (vector-ref arg-3 0) ((0) (box arg-2))(else (let ((e-3 (car arg-2))) (let ((e-4 (cdr arg-2))) (case (vector-ref arg-3 0) ((1) (let ((e-8 (vector-ref arg-3 1))) (CoreC-45Env-shrinkEnv e-4 e-8))) (else (let ((e-12 (vector-ref arg-3 1))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Env-shrinkEnv e-4 e-12) (lambda (u--envC-39) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45TT-shrinkBinder e-3 e-12) (lambda (u--bC-39) (PreludeC-45Types-u--pure_Applicative_Maybe (cons u--bC-39 u--envC-39))))))))))))))) +(define CoreC-45Env-mkShrinkSub (lambda (arg-0 arg-1 arg-2) (if (null? arg-1) (let ((sc1 (CoreC-45Env-isUsed 0 arg-2))) (cond ((equal? sc1 1) (cons (cons arg-0 '()) (vector 2 (vector 0 )))) (else (cons '() (vector 1 (vector 0 )))))) (let ((e-2 (car arg-1))) (let ((e-3 (cdr arg-1))) (let ((sc1 (CoreC-45Env-mkShrinkSub e-2 e-3 (CoreC-45TT-dropFirst arg-2)))) (let ((e-5 (car sc1))) (let ((e-4 (cdr sc1))) (let ((sc2 (CoreC-45Env-isUsed 0 arg-2))) (cond ((equal? sc2 1) (cons (cons arg-0 e-5) (vector 2 e-4))) (else (cons e-5 (vector 1 e-4))))))))))))) +(define CoreC-45Env-mkShrink (lambda (arg-0 arg-1) (if (null? arg-0) (cons '() (vector 0 )) (let ((e-2 (car arg-0))) (let ((e-3 (cdr arg-0))) (CoreC-45Env-mkShrinkSub e-2 e-3 arg-1)))))) +(define CoreC-45Env-mkEnv (lambda (arg-0 arg-1) (if (null? arg-1) '() (let ((e-3 (cdr arg-1))) (cons (vector 3 arg-0 (AlgebraC-45ZeroOneOmega-u--top_Top_ZeroOneOmega) (vector 1 ) (vector 10 arg-0 0)) (CoreC-45Env-mkEnv arg-0 e-3)))))) +(define CoreC-45Env-letToLam (lambda (arg-1) (if (null? arg-1) '() (let ((e-4 (car arg-1))) (let ((e-5 (cdr arg-1))) (case (vector-ref e-4 0) ((1) (let ((e-7 (vector-ref e-4 1))) (let ((e-8 (vector-ref e-4 2))) (let ((e-10 (vector-ref e-4 4))) (cons (vector 0 e-7 e-8 (vector 1 ) e-10) (CoreC-45Env-letToLam e-5))))))(else (cons e-4 (CoreC-45Env-letToLam e-5))))))))) +(define CoreC-45Env-length (lambda (arg-2) (if (null? arg-2) 0 (let ((e-5 (cdr arg-2))) (+ 1 (CoreC-45Env-length e-5)))))) +(define CoreC-45Env-isUsed (lambda (arg-1 arg-2) (if (null? arg-2) 0 (let ((e-2 (car arg-2))) (let ((e-3 (cdr arg-2))) (let ((sc1 (PreludeC-45Types-u--C-61C-61_Eq_Nat arg-1 (CoreC-45TT-varIdx e-2)))) (cond ((equal? sc1 1) 1) (else (CoreC-45Env-isUsed arg-1 e-3))))))))) +(define CoreC-45Env-getBinderUnder (lambda (arg-2 arg-3 arg-4 arg-5 arg-7) (let ((e-1 (car arg-3))) (let ((e-2 (cdr arg-3))) (cond ((equal? arg-4 0) (let ((e-7 (car arg-7))) (CoreC-45TT-u--map_Functor_Binder (lambda (eta-0) (let ((e-3 (cdr arg-2))) ((((e-3 'erased) 'erased) (CoreC-45TTC-45SizeOf-reverse (CoreC-45TTC-45SizeOf-mkSizeOf (cons e-1 arg-5)))) eta-0))) e-7)))(else (let ((e-3 (- arg-4 1))) (let ((e-13 (cdr arg-7))) (CoreC-45Env-getBinderUnder arg-2 e-2 e-3 (cons e-1 arg-5) e-13))))))))) +(define CoreC-45Env-getBinderLoc (lambda (arg-2 arg-3 arg-5) (let ((e-2 (cdr arg-2))) (cond ((equal? arg-3 0) (let ((e-7 (car arg-5))) (CoreC-45TT-binderLoc e-7)))(else (let ((e-3 (- arg-3 1))) (let ((e-13 (cdr arg-5))) (CoreC-45Env-getBinderLoc e-2 e-3 e-13)))))))) +(define CoreC-45Env-getBinder (lambda (arg-2 arg-3 arg-4 arg-6) (CoreC-45Env-getBinderUnder arg-2 arg-3 arg-4 '() arg-6))) +(define CoreC-45Env-findUsedLocs (lambda (arg-0 arg-1 arg-2) (DataC-45List-mapMaybe (lambda (eta-0) (CoreC-45Env-toVar arg-0 eta-0)) (CoreC-45Env-findUsed arg-0 arg-1 '() arg-2)))) +(define CoreC-45Env-findUsedInBinder (lambda (arg-0 arg-1 arg-2 arg-3) (case (vector-ref arg-3 0) ((1) (let ((e-3 (vector-ref arg-3 3))) (let ((e-4 (vector-ref arg-3 4))) (CoreC-45Env-findUsed arg-0 arg-1 (CoreC-45Env-findUsed arg-0 arg-1 arg-2 e-3) e-4)))) ((4) (let ((e-8 (vector-ref arg-3 3))) (let ((e-9 (vector-ref arg-3 4))) (CoreC-45Env-findUsed arg-0 arg-1 (CoreC-45Env-findUsed arg-0 arg-1 arg-2 e-8) e-9))))(else (CoreC-45Env-findUsed arg-0 arg-1 arg-2 (CoreC-45TT-binderType arg-3)))))) +(define CoreC-45Env-findUsed (lambda (arg-0 arg-1 arg-2 arg-3) (case (vector-ref arg-3 0) ((0) (let ((e-2 (vector-ref arg-3 1))) (let ((e-3 (vector-ref arg-3 2))) (let ((e-4 (vector-ref arg-3 3))) (let ((sc1 (DataC-45List-elemBy (lambda (eta-0) (lambda (eta-1) (CoreC-45Env-n--4135-1506-u--eqNat arg-0 e-4 e-3 e-2 arg-2 arg-1 eta-0 eta-1))) e-4 arg-2))) (cond ((equal? sc1 1) arg-2) (else (CoreC-45Env-findUsedInBinder arg-0 arg-1 (cons e-4 arg-2) (CoreC-45Env-getBinder (cons (lambda (u--n) (lambda (u--vars) (lambda (arg-5607) (CoreC-45TT-u--weaken_Weaken_Term arg-5607)))) (lambda (u--vars) (lambda (u--ns) (lambda (arg-5613) (lambda (arg-5615) (CoreC-45TT-u--weakenNs_Weaken_Term arg-5613 arg-5615)))))) arg-0 e-4 arg-1))))))))) ((2) (let ((e-7 (vector-ref arg-3 1))) (let ((e-8 (vector-ref arg-3 2))) (let ((e-9 (vector-ref arg-3 3))) (let ((e-10 (vector-ref arg-3 4))) (CoreC-45Env-n--4135-1573-u--findUsedArgs arg-0 e-7 e-8 e-9 e-10 arg-2 arg-1 arg-1 arg-2 e-10)))))) ((3) (let ((e-12 (vector-ref arg-3 1))) (let ((e-13 (vector-ref arg-3 2))) (let ((e-14 (vector-ref arg-3 3))) (let ((e-15 (vector-ref arg-3 4))) (CoreC-45Env-n--4135-1588-u--dropS arg-0 e-13 e-15 e-14 e-12 arg-2 arg-1 (CoreC-45Env-findUsed (cons e-13 arg-0) (cons e-14 arg-1) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (+ 1 eta-0)) (CoreC-45Env-findUsedInBinder arg-0 arg-1 arg-2 e-14)) e-15))))))) ((4) (let ((e-18 (vector-ref arg-3 2))) (let ((e-19 (vector-ref arg-3 3))) (CoreC-45Env-findUsed arg-0 arg-1 (CoreC-45Env-findUsed arg-0 arg-1 arg-2 e-18) e-19)))) ((5) (let ((e-23 (vector-ref arg-3 3))) (let ((e-24 (vector-ref arg-3 4))) (CoreC-45Env-findUsed arg-0 arg-1 (CoreC-45Env-findUsed arg-0 arg-1 arg-2 e-23) e-24)))) ((6) (let ((e-28 (vector-ref arg-3 3))) (CoreC-45Env-findUsed arg-0 arg-1 arg-2 e-28))) ((7) (let ((e-32 (vector-ref arg-3 3))) (let ((e-33 (vector-ref arg-3 4))) (CoreC-45Env-findUsed arg-0 arg-1 (CoreC-45Env-findUsed arg-0 arg-1 arg-2 e-32) e-33)))) ((8) (let ((e-37 (vector-ref arg-3 3))) (CoreC-45Env-findUsed arg-0 arg-1 arg-2 e-37)))(else arg-2)))) +(define CoreC-45Env-findSubEnv (lambda (arg-0 arg-1 arg-2) (CoreC-45Env-mkShrink arg-0 (CoreC-45Env-findUsedLocs arg-0 arg-1 arg-2)))) +(define CoreC-45Env-defined (lambda (arg-0 arg-1 arg-2) (if (null? arg-0) '() (let ((e-2 (car arg-0))) (let ((e-3 (cdr arg-0))) (let ((e-8 (car arg-2))) (let ((e-9 (cdr arg-2))) (let ((sc2 (CoreC-45Name-nameEq arg-1 e-2))) (if (null? sc2) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Env-defined e-3 arg-1 e-9) (lambda (_-0) (let ((e-5 (car _-0))) (let ((e-4 (cdr _-0))) (PreludeC-45Types-u--pure_Applicative_Maybe (cons (+ 1 e-5) e-4)))))) (let ((e-4 (unbox sc2))) (cond (else (box (cons 0 (CoreC-45TT-multiplicity e-8))))))))))))))) +(define CoreC-45Env-bindEnv (lambda (arg-0 arg-1 arg-2 arg-3) (if (null? arg-0) arg-3 (let ((e-2 (car arg-0))) (let ((e-3 (cdr arg-0))) (let ((e-8 (car arg-2))) (let ((e-9 (cdr arg-2))) (CoreC-45Env-bindEnv e-3 arg-1 e-9 (vector 3 arg-1 e-2 e-8 arg-3))))))))) +(define CoreC-45Env-allVarsNoLet (lambda (arg-0 arg-1) (if (null? arg-0) '() (let ((e-3 (cdr arg-0))) (let ((e-8 (car arg-1))) (let ((e-9 (cdr arg-1))) (case (vector-ref e-8 0) ((1) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45TT-u--weaken_Weaken_Var eta-0)) (CoreC-45Env-allVars e-3 e-9)))(else (cons 0 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45TT-u--weaken_Weaken_Var eta-0)) (CoreC-45Env-allVars e-3 e-9))))))))))) +(define CoreC-45Env-allVars (lambda (arg-0 arg-1) (if (null? arg-0) '() (let ((e-3 (cdr arg-0))) (let ((e-9 (cdr arg-1))) (cons 0 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45TT-u--weaken_Weaken_Var eta-0)) (CoreC-45Env-allVars e-3 e-9)))))))) +(define CoreC-45Env-abstractFullEnvType (lambda (arg-0 arg-1 arg-2 arg-3) (if (null? arg-0) arg-3 (let ((e-2 (car arg-0))) (let ((e-3 (cdr arg-0))) (let ((e-8 (car arg-2))) (let ((e-9 (cdr arg-2))) (case (vector-ref e-8 0) ((2) (let ((e-11 (vector-ref e-8 1))) (let ((e-12 (vector-ref e-8 2))) (let ((e-13 (vector-ref e-8 3))) (let ((e-14 (vector-ref e-8 4))) (CoreC-45Env-abstractFullEnvType e-3 arg-1 e-9 (vector 3 arg-1 e-2 (vector 2 e-11 e-12 e-13 e-14) arg-3)))))))(else (let ((u--bnd (vector 2 arg-1 (CoreC-45TT-multiplicity e-8) (vector 1 ) (CoreC-45TT-binderType e-8)))) (CoreC-45Env-abstractFullEnvType e-3 arg-1 e-9 (vector 3 arg-1 e-2 u--bnd arg-3)))))))))))) +(define CoreC-45Env-abstractEnvType (lambda (arg-0 arg-1 arg-2 arg-3) (if (null? arg-0) arg-3 (let ((e-2 (car arg-0))) (let ((e-3 (cdr arg-0))) (let ((e-8 (car arg-2))) (let ((e-9 (cdr arg-2))) (case (vector-ref e-8 0) ((1) (let ((e-11 (vector-ref e-8 1))) (let ((e-12 (vector-ref e-8 2))) (let ((e-13 (vector-ref e-8 3))) (let ((e-14 (vector-ref e-8 4))) (CoreC-45Env-abstractEnvType e-3 arg-1 e-9 (vector 3 arg-1 e-2 (vector 1 e-11 e-12 e-13 e-14) arg-3))))))) ((2) (let ((e-16 (vector-ref e-8 1))) (let ((e-17 (vector-ref e-8 2))) (let ((e-18 (vector-ref e-8 3))) (let ((e-19 (vector-ref e-8 4))) (CoreC-45Env-abstractEnvType e-3 arg-1 e-9 (vector 3 arg-1 e-2 (vector 2 e-16 e-17 e-18 e-19) arg-3)))))))(else (let ((u--bnd (vector 2 (CoreC-45TT-binderLoc e-8) (CoreC-45TT-multiplicity e-8) (vector 1 ) (CoreC-45TT-binderType e-8)))) (CoreC-45Env-abstractEnvType e-3 arg-1 e-9 (vector 3 arg-1 e-2 u--bnd arg-3)))))))))))) +(define CoreC-45TTC-n--11045-5827-u--fromBuf3 (lambda (arg-0 arg-1 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-getTag arg-0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (cond ((equal? e-5 18) (vector 1 (vector 23 ))) ((equal? e-5 100) (vector 1 (vector 36 )))(else (LibrariesC-45UtilsC-45Binary-corrupt "PrimFn 3" ext-0))))))))) +(define CoreC-45TTC-n--11045-5826-u--fromBuf2 (lambda (arg-0 arg-1 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-getTag arg-0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (cond ((equal? e-5 0) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_Constant arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (vector 0 e-6))))))) ((equal? e-5 1) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_Constant arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (vector 1 e-6))))))) ((equal? e-5 2) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_Constant arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (vector 2 e-6))))))) ((equal? e-5 3) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_Constant arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (vector 3 e-6))))))) ((equal? e-5 4) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_Constant arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (vector 4 e-6))))))) ((equal? e-5 6) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_Constant arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (vector 11 e-6))))))) ((equal? e-5 7) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_Constant arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (vector 12 e-6))))))) ((equal? e-5 8) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_Constant arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (vector 13 e-6))))))) ((equal? e-5 9) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_Constant arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (vector 14 e-6))))))) ((equal? e-5 10) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_Constant arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (vector 15 e-6))))))) ((equal? e-5 14) (vector 1 (vector 19 ))) ((equal? e-5 15) (vector 1 (vector 20 ))) ((equal? e-5 16) (vector 1 (vector 21 ))) ((equal? e-5 35) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_Constant arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (vector 6 e-6))))))) ((equal? e-5 36) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_Constant arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (vector 7 e-6))))))) ((equal? e-5 37) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_Constant arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (vector 8 e-6))))))) ((equal? e-5 38) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_Constant arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (vector 9 e-6))))))) ((equal? e-5 39) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_Constant arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (vector 10 e-6))))))) ((equal? e-5 101) (vector 1 (vector 37 )))(else (LibrariesC-45UtilsC-45Binary-corrupt "PrimFn 2" ext-0))))))))) +(define CoreC-45TTC-n--11045-5825-u--fromBuf1 (lambda (arg-0 arg-1 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-getTag arg-0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (cond ((equal? e-5 5) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_Constant arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (vector 5 e-6))))))) ((equal? e-5 11) (vector 1 (vector 16 ))) ((equal? e-5 12) (vector 1 (vector 17 ))) ((equal? e-5 13) (vector 1 (vector 18 ))) ((equal? e-5 17) (vector 1 (vector 22 ))) ((equal? e-5 19) (vector 1 (vector 24 ))) ((equal? e-5 20) (vector 1 (vector 25 ))) ((equal? e-5 22) (vector 1 (vector 26 ))) ((equal? e-5 23) (vector 1 (vector 27 ))) ((equal? e-5 24) (vector 1 (vector 28 ))) ((equal? e-5 25) (vector 1 (vector 29 ))) ((equal? e-5 26) (vector 1 (vector 30 ))) ((equal? e-5 27) (vector 1 (vector 31 ))) ((equal? e-5 32) (vector 1 (vector 32 ))) ((equal? e-5 33) (vector 1 (vector 33 ))) ((equal? e-5 34) (vector 1 (vector 34 ))) ((equal? e-5 99) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_Constant arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45TTC-u--fromBuf_TTC_Constant arg-0 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (vector 35 e-6 e-7)))))))))))(else (LibrariesC-45UtilsC-45Binary-corrupt "PrimFn 1" ext-0))))))))) +(define CoreC-45TTC-n--15349-9685-u--cwName (lambda (arg-0 arg-1 arg-2) (case (vector-ref arg-2 0) ((7) 1) ((8) 1)(else 0)))) +(define CoreC-45TTC-u--toBuf_TTC_Visibility (lambda (arg-0 arg-1 ext-0) (cond ((equal? arg-1 0) (LibrariesC-45UtilsC-45Binary-tag arg-0 0 ext-0)) ((equal? arg-1 1) (LibrariesC-45UtilsC-45Binary-tag arg-0 1 ext-0)) (else (LibrariesC-45UtilsC-45Binary-tag arg-0 2 ext-0))))) +(define CoreC-45TTC-u--toBuf_TTC_VirtualIdent (lambda (arg-0 arg-1 ext-0) (cond (else (LibrariesC-45UtilsC-45Binary-tag arg-0 0 ext-0))))) +(define CoreC-45TTC-u--toBuf_TTC_UseSide (lambda (arg-0 arg-1 ext-0) (cond ((equal? arg-1 0) (LibrariesC-45UtilsC-45Binary-tag arg-0 0 ext-0)) (else (LibrariesC-45UtilsC-45Binary-tag arg-0 1 ext-0))))) +(define CoreC-45TTC-u--toBuf_TTC_TypeFlags (lambda (arg-0 arg-1 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Bool arg-0 (let ((e-0 (car arg-1))) e-0) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Bool arg-0 (let ((e-1 (cdr arg-1))) e-1) ext-0)))))) +(define CoreC-45TTC-u--toBuf_TTC_Transform (lambda (arg-0 arg-1 ext-0) (let ((e-0 (vector-ref arg-1 0))) (let ((e-1 (vector-ref arg-1 1))) (let ((e-2 (vector-ref arg-1 2))) (let ((e-3 (vector-ref arg-1 3))) (let ((e-4 (vector-ref arg-1 4))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_Name arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1461 eta-0)))) arg-0 e-0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_Name arg-0 e-1 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-6 (vector-ref act-25 1))) (vector 0 e-6))) (else (let ((act-26 (CoreC-45TTC-u--toBuf_TTC_C-40C-40EnvC-32TermC-41C-32C-36varsC-41 e-0 arg-0 e-2 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-7 (vector-ref act-26 1))) (vector 0 e-7))) (else (let ((act-27 ((CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 e-0 arg-0 e-3) ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-8 (vector-ref act-27 1))) (vector 0 e-8))) (else ((CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 e-0 arg-0 e-4) ext-0)))))))))))))))))))) +(define CoreC-45TTC-u--toBuf_TTC_Totality (lambda (arg-0 arg-1 ext-0) (let ((e-0 (car arg-1))) (let ((e-1 (cdr arg-1))) (let ((act-24 (CoreC-45TTC-u--toBuf_TTC_Terminating arg-0 e-0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (CoreC-45TTC-u--toBuf_TTC_Covering arg-0 e-1 ext-0)))))))) +(define CoreC-45TTC-u--toBuf_TTC_TotalReq (lambda (arg-0 arg-1 ext-0) (cond ((equal? arg-1 0) (LibrariesC-45UtilsC-45Binary-tag arg-0 0 ext-0)) ((equal? arg-1 1) (LibrariesC-45UtilsC-45Binary-tag arg-0 1 ext-0)) (else (LibrariesC-45UtilsC-45Binary-tag arg-0 2 ext-0))))) +(define CoreC-45TTC-u--toBuf_TTC_Terminating (lambda (arg-0 arg-1 ext-0) (case (vector-ref arg-1 0) ((0) (LibrariesC-45UtilsC-45Binary-tag arg-0 0 ext-0)) ((1) (LibrariesC-45UtilsC-45Binary-tag arg-0 1 ext-0)) (else (let ((e-0 (vector-ref arg-1 1))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 2 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (CoreC-45TTC-u--toBuf_TTC_PartialReason arg-0 e-0 ext-0))))))))) +(define CoreC-45TTC-u--toBuf_TTC_SizeChange (lambda (arg-0 arg-1 ext-0) (cond ((equal? arg-1 0) (LibrariesC-45UtilsC-45Binary-tag arg-0 0 ext-0)) ((equal? arg-1 1) (LibrariesC-45UtilsC-45Binary-tag arg-0 1 ext-0)) (else (LibrariesC-45UtilsC-45Binary-tag arg-0 2 ext-0))))) +(define CoreC-45TTC-u--toBuf_TTC_SCCall (lambda (arg-0 arg-1 ext-0) (let ((act-24 (CoreC-45TTC-u--toBuf_TTC_Name arg-0 (let ((e-0 (car arg-1))) e-0) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1461) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-1458 arg-1461 eta-2)))) (lambda (arg-1461) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-1461 eta-2)))) (cons (lambda (arg-1458) (lambda (arg-1461) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_SizeChange arg-1458 arg-1461 eta-2)))) (lambda (arg-1461) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_SizeChange arg-1461 eta-2))))) arg-1457 arg-1460 eta-1)))) (lambda (arg-1461) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-1462 eta-2)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_SizeChange arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_SizeChange arg-1462 eta-2))))) arg-1461 eta-1)))) arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-1462 eta-2)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_SizeChange arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_SizeChange arg-1462 eta-2))))) arg-1456 arg-1459 eta-1)))) (lambda (arg-1462) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-1456 arg-1459 eta-2)))) (lambda (arg-1463) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-1463 eta-2)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_SizeChange arg-1456 arg-1459 eta-2)))) (lambda (arg-1463) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_SizeChange arg-1463 eta-2))))) arg-1462 eta-1)))) arg-1461 eta-0)))) arg-0 (let ((e-1 (cdr arg-1))) e-1) ext-0)))))) +(define CoreC-45TTC-u--toBuf_TTC_RigCount (lambda (arg-0 ext-0) (AlgebraC-45Semiring-elimSemi (cons (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-2) (lambda (arg-3) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-4 arg-5))))) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-tag arg-0 0 eta-0)) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-tag arg-0 1 eta-0)) (lambda (eta-0) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-tag arg-0 2 eta-1))) ext-0))) +(define CoreC-45TTC-u--toBuf_TTC_RewriteNames (lambda (arg-0 arg-1 ext-0) (let ((act-24 (CoreC-45TTC-u--toBuf_TTC_Name arg-0 (let ((e-0 (car arg-1))) e-0) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (CoreC-45TTC-u--toBuf_TTC_Name arg-0 (let ((e-1 (cdr arg-1))) e-1) ext-0)))))) +(define CoreC-45TTC-u--toBuf_TTC_PrimNames (lambda (arg-0 arg-1 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_Name arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1461 eta-0)))) arg-0 (let ((e-0 (vector-ref arg-1 0))) e-0) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_Name arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1461 eta-0)))) arg-0 (let ((e-1 (vector-ref arg-1 1))) e-1) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_Name arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1461 eta-0)))) arg-0 (let ((e-2 (vector-ref arg-1 2))) e-2) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_Name arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1461 eta-0)))) arg-0 (let ((e-3 (vector-ref arg-1 3))) e-3) ext-0)))))))))))) +(define CoreC-45TTC-u--toBuf_TTC_PartialReason (lambda (arg-0 arg-1 ext-0) (case (vector-ref arg-1 0) ((0) (LibrariesC-45UtilsC-45Binary-tag arg-0 0 ext-0)) ((1) (let ((e-0 (vector-ref arg-1 1))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 1 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_Name arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1461 eta-0)))) arg-0 e-0 ext-0)))))) (else (let ((e-1 (vector-ref arg-1 1))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 2 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_Name arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1461 eta-0)))) arg-0 e-1 ext-0))))))))) +(define CoreC-45TTC-u--toBuf_TTC_PairNames (lambda (arg-0 arg-1 ext-0) (let ((act-24 (CoreC-45TTC-u--toBuf_TTC_Name arg-0 (let ((e-0 (vector-ref arg-1 0))) e-0) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_Name arg-0 (let ((e-1 (vector-ref arg-1 1))) e-1) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (CoreC-45TTC-u--toBuf_TTC_Name arg-0 (let ((e-2 (vector-ref arg-1 2))) e-2) ext-0))))))))) +(define CoreC-45TTC-u--toBuf_TTC_PMDefInfo (lambda (arg-0 arg-1 ext-0) (let ((act-24 (CoreC-45TTC-u--toBuf_TTC_HoleInfo arg-0 (let ((e-0 (car arg-1))) e-0) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Bool arg-0 (let ((e-1 (cdr arg-1))) e-1) ext-0)))))) +(define CoreC-45TTC-u--toBuf_TTC_OriginDesc (lambda (arg-0 arg-1 ext-0) (case (vector-ref arg-1 0) ((0) (let ((e-0 (vector-ref arg-1 1))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (CoreC-45TTC-u--toBuf_TTC_ModuleIdent arg-0 e-0 ext-0)))))) ((1) (let ((e-1 (vector-ref arg-1 1))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 1 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else ((LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-0 e-1) ext-0)))))) (else (let ((e-2 (vector-ref arg-1 1))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 2 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (CoreC-45TTC-u--toBuf_TTC_VirtualIdent arg-0 e-2 ext-0))))))))) +(define CoreC-45TTC-u--toBuf_TTC_Namespace (lambda (arg-0 ext-0 ext-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-1456 arg-1459))) (lambda (arg-1461) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-1461 eta-0)))) arg-0 (CoreC-45NameC-45Namespace-unsafeUnfoldNamespace ext-0) ext-1))) +(define CoreC-45TTC-u--toBuf_TTC_NameType (lambda (arg-0 arg-1 ext-0) (case (vector-ref arg-1 0) ((0) (LibrariesC-45UtilsC-45Binary-tag arg-0 0 ext-0)) ((1) (LibrariesC-45UtilsC-45Binary-tag arg-0 1 ext-0)) ((2) (let ((e-0 (vector-ref arg-1 1))) (let ((e-1 (vector-ref arg-1 2))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 2 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-0 e-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-0 e-1 ext-0)))))))))) (else (let ((e-2 (vector-ref arg-1 1))) (let ((e-3 (vector-ref arg-1 2))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 3 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-0 e-2 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-0 e-3 ext-0))))))))))))) +(define CoreC-45TTC-u--toBuf_TTC_Name (lambda (arg-0 arg-1 ext-0) (case (vector-ref arg-1 0) ((0) (let ((e-0 (vector-ref arg-1 1))) (let ((e-1 (vector-ref arg-1 2))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_Namespace arg-0 e-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (CoreC-45TTC-u--toBuf_TTC_Name arg-0 e-1 ext-0)))))))))) ((1) (let ((e-2 (vector-ref arg-1 1))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 1 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else ((LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-0 e-2) ext-0)))))) ((2) (let ((e-3 (vector-ref arg-1 1))) (let ((e-4 (vector-ref arg-1 2))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 2 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 ((LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-0 e-3) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-0 e-4 ext-0)))))))))) ((3) (let ((e-5 (vector-ref arg-1 1))) (let ((e-6 (vector-ref arg-1 2))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 3 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_Name arg-0 e-5 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-0 e-6 ext-0)))))))))) ((4) (let ((e-7 (vector-ref arg-1 1))) (let ((e-8 (vector-ref arg-1 2))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 4 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 ((LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-0 e-7) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (CoreC-45TTC-u--toBuf_TTC_Name arg-0 e-8 ext-0)))))))))) ((5) (let ((e-9 (vector-ref arg-1 1))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 5 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else ((LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-0 e-9) ext-0)))))) ((6) (let ((e-10 (vector-ref arg-1 1))) (let ((e-11 (vector-ref arg-1 2))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 6 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1461 eta-0)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1461 eta-0))))) arg-0 e-10 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (CoreC-45TTC-u--toBuf_TTC_Name arg-0 e-11 ext-0)))))))))) ((7) (let ((e-12 (vector-ref arg-1 1))) (let ((e-13 (vector-ref arg-1 2))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 7 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 ((LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-0 e-12) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-0 e-13 ext-0)))))))))) ((8) (let ((e-14 (vector-ref arg-1 1))) (let ((e-15 (vector-ref arg-1 2))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 8 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 ((LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-0 e-14) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-0 e-15 ext-0)))))))))) (else (let ((e-16 (vector-ref arg-1 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 (PreludeC-45TypesC-45String-C-43C-43 "Can't write resolved name " (PreludeC-45Show-u--show_Show_Int e-16))) ext-0)))))) +(define CoreC-45TTC-u--toBuf_TTC_ModuleIdent (lambda (arg-0 ext-0 ext-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-1456 arg-1459))) (lambda (arg-1461) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-1461 eta-0)))) arg-0 (CoreC-45NameC-45Namespace-unsafeUnfoldModuleIdent ext-0) ext-1))) +(define CoreC-45TTC-u--toBuf_TTC_LazyReason (lambda (arg-0 arg-1 ext-0) (cond ((equal? arg-1 0) (LibrariesC-45UtilsC-45Binary-tag arg-0 0 ext-0)) ((equal? arg-1 1) (LibrariesC-45UtilsC-45Binary-tag arg-0 1 ext-0)) (else (LibrariesC-45UtilsC-45Binary-tag arg-0 2 ext-0))))) +(define CoreC-45TTC-u--toBuf_TTC_HoleInfo (lambda (arg-0 arg-1 ext-0) (if (null? arg-1) (LibrariesC-45UtilsC-45Binary-tag arg-0 0 ext-0) (let ((e-0 (unbox arg-1))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 1 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-0 e-0 ext-0)))))))) +(define CoreC-45TTC-u--toBuf_TTC_GlobalDef (lambda (arg-0 arg-1 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_CDef arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_CDef arg-1461 eta-0)))) arg-0 (let ((e-18 (vector-ref arg-1 18))) e-18) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1461) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_Name arg-1458 arg-1461 eta-2)))) (lambda (arg-1461) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1461 eta-2)))) (cons (lambda (arg-1458) (lambda (arg-1461) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Bool arg-1458 arg-1461 eta-2)))) (lambda (arg-1461) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Bool arg-1461 eta-2))))) arg-1457 arg-1460 eta-1)))) (lambda (arg-1461) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_Name arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1462 eta-2)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Bool arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Bool arg-1462 eta-2))))) arg-1461 eta-1)))) arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_Name arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1462 eta-2)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Bool arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Bool arg-1462 eta-2))))) arg-1456 arg-1459 eta-1)))) (lambda (arg-1462) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_Name arg-1456 arg-1459 eta-2)))) (lambda (arg-1463) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1463 eta-2)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Bool arg-1456 arg-1459 eta-2)))) (lambda (arg-1463) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Bool arg-1463 eta-2))))) arg-1462 eta-1)))) arg-1461 eta-0)))) arg-0 (PreludeC-45Types-u--map_Functor_Maybe (lambda (eta-0) (LibrariesC-45DataC-45NameMap-toList eta-0)) (let ((e-13 (vector-ref arg-1 13))) e-13)) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45TTC-u--toBuf_TTC_FC arg-0 (let ((e-0 (vector-ref arg-1 0))) e-0) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((act-27 ((CoreC-45TTC-u--toBuf_TTC_RigCount arg-0 (let ((e-21 (vector-ref arg-1 7))) e-21)) ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((act-28 (CoreC-45TTC-u--toBuf_TTC_Name arg-0 (let ((e-1 (vector-ref arg-1 1))) e-1) ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((act-29 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1461) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_Name arg-1458 arg-1461 eta-2)))) (lambda (arg-1461) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1461 eta-2)))) (cons (lambda (arg-1458) (lambda (arg-1461) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Bool arg-1458 arg-1461 eta-2)))) (lambda (arg-1461) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Bool arg-1461 eta-2))))) arg-1457 arg-1460 eta-1)))) (lambda (arg-1461) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_Name arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1462 eta-2)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Bool arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Bool arg-1462 eta-2))))) arg-1461 eta-1)))) arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_Name arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1462 eta-2)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Bool arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Bool arg-1462 eta-2))))) arg-1456 arg-1459 eta-1)))) (lambda (arg-1462) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_Name arg-1456 arg-1459 eta-2)))) (lambda (arg-1463) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1463 eta-2)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Bool arg-1456 arg-1459 eta-2)))) (lambda (arg-1463) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Bool arg-1463 eta-2))))) arg-1462 eta-1)))) arg-1461 eta-0)))) arg-0 (PreludeC-45Types-u--map_Functor_Maybe (lambda (eta-0) (LibrariesC-45DataC-45NameMap-toList eta-0)) (let ((e-12 (vector-ref arg-1 12))) e-12)) ext-0))) (case (vector-ref act-29 0) ((0) (let ((e-2 (vector-ref act-29 1))) (vector 0 e-2))) (else (let ((act-30 (CoreC-45TTC-u--toBuf_TTC_Def arg-0 (let ((e-17 (vector-ref arg-1 17))) e-17) ext-0))) (case (vector-ref act-30 0) ((0) (let ((e-2 (vector-ref act-30 1))) (vector 0 e-2))) (else (let ((sc7 (let ((sc8 (CoreC-45Name-isUserName (let ((e-1 (vector-ref arg-1 1))) e-1)))) (cond ((equal? sc8 1) 1) (else (CoreC-45TTC-n--15349-9685-u--cwName arg-1 arg-0 (let ((e-1 (vector-ref arg-1 1))) e-1))))))) (cond ((equal? sc7 1) (let ((act-31 ((CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-0 (let ((e-2 (vector-ref arg-1 2))) e-2)) ext-0))) (case (vector-ref act-31 0) ((0) (let ((e-2 (vector-ref act-31 1))) (vector 0 e-2))) (else (let ((act-32 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-1461 eta-0)))) arg-0 (let ((e-3 (vector-ref arg-1 3))) e-3) ext-0))) (case (vector-ref act-32 0) ((0) (let ((e-2 (vector-ref act-32 1))) (vector 0 e-2))) (else (let ((act-33 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-1461 eta-0)))) arg-0 (let ((e-4 (vector-ref arg-1 4))) e-4) ext-0))) (case (vector-ref act-33 0) ((0) (let ((e-2 (vector-ref act-33 1))) (vector 0 e-2))) (else (let ((act-34 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-1461 eta-0)))) arg-0 (let ((e-30 (vector-ref arg-1 5))) e-30) ext-0))) (case (vector-ref act-34 0) ((0) (let ((e-2 (vector-ref act-34 1))) (vector 0 e-2))) (else (let ((act-35 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-1461 eta-0)))) arg-0 (let ((e-30 (vector-ref arg-1 6))) e-30) ext-0))) (case (vector-ref act-35 0) ((0) (let ((e-2 (vector-ref act-35 1))) (vector 0 e-2))) (else (let ((act-36 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_Name arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1461 eta-0)))) arg-0 (let ((e-29 (vector-ref arg-1 8))) e-29) ext-0))) (case (vector-ref act-36 0) ((0) (let ((e-2 (vector-ref act-36 1))) (vector 0 e-2))) (else (let ((act-37 (CoreC-45TTC-u--toBuf_TTC_Visibility arg-0 (let ((e-29 (vector-ref arg-1 9))) e-29) ext-0))) (case (vector-ref act-37 0) ((0) (let ((e-2 (vector-ref act-37 1))) (vector 0 e-2))) (else (let ((act-38 (CoreC-45TTC-u--toBuf_TTC_Totality arg-0 (let ((e-29 (vector-ref arg-1 10))) e-29) ext-0))) (case (vector-ref act-38 0) ((0) (let ((e-2 (vector-ref act-38 1))) (vector 0 e-2))) (else (let ((act-39 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_DefFlag arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_DefFlag arg-1461 eta-0)))) arg-0 (let ((e-29 (vector-ref arg-1 11))) e-29) ext-0))) (case (vector-ref act-39 0) ((0) (let ((e-2 (vector-ref act-39 1))) (vector 0 e-2))) (else (let ((act-40 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Bool arg-0 (let ((e-27 (vector-ref arg-1 14))) e-27) ext-0))) (case (vector-ref act-40 0) ((0) (let ((e-2 (vector-ref act-40 1))) (vector 0 e-2))) (else (let ((act-41 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Bool arg-0 (let ((e-27 (vector-ref arg-1 15))) e-27) ext-0))) (case (vector-ref act-41 0) ((0) (let ((e-2 (vector-ref act-41 1))) (vector 0 e-2))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_SCCall arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_SCCall arg-1461 eta-0)))) arg-0 (let ((e-23 (vector-ref arg-1 20))) e-23) ext-0))))))))))))))))))))))))))))))))))) (else (vector 1 0))))))))))))))))))))))))))) +(define CoreC-45TTC-u--toBuf_TTC_FC (lambda (arg-0 arg-1 ext-0) (case (vector-ref arg-1 0) ((0) (let ((e-0 (vector-ref arg-1 1))) (let ((e-1 (vector-ref arg-1 2))) (let ((e-2 (vector-ref arg-1 3))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_OriginDesc arg-0 e-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-3 (vector-ref act-25 1))) (vector 0 e-3))) (else (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1461 eta-0)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1461 eta-0))))) arg-0 e-1 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-3 (vector-ref act-26 1))) (vector 0 e-3))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1461 eta-0)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1461 eta-0))))) arg-0 e-2 ext-0)))))))))))))) ((1) (let ((e-3 (vector-ref arg-1 1))) (let ((e-4 (vector-ref arg-1 2))) (let ((e-5 (vector-ref arg-1 3))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 2 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_OriginDesc arg-0 e-3 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1461 eta-0)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1461 eta-0))))) arg-0 e-4 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1461 eta-0)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1461 eta-0))))) arg-0 e-5 ext-0)))))))))))))) (else (LibrariesC-45UtilsC-45Binary-tag arg-0 1 ext-0))))) +(define CoreC-45TTC-u--toBuf_TTC_DefFlag (lambda (arg-0 arg-1 ext-0) (case (vector-ref arg-1 0) ((0) (LibrariesC-45UtilsC-45Binary-tag arg-0 2 ext-0)) ((1) (LibrariesC-45UtilsC-45Binary-tag arg-0 3 ext-0)) ((2) (LibrariesC-45UtilsC-45Binary-tag arg-0 4 ext-0)) ((3) (LibrariesC-45UtilsC-45Binary-tag arg-0 5 ext-0)) ((4) (let ((e-0 (vector-ref arg-1 1))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 6 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (CoreC-45TTC-u--toBuf_TTC_TotalReq arg-0 e-0 ext-0)))))) ((5) (LibrariesC-45UtilsC-45Binary-tag arg-0 7 ext-0)) ((6) (LibrariesC-45UtilsC-45Binary-tag arg-0 8 ext-0)) ((7) (LibrariesC-45UtilsC-45Binary-tag arg-0 9 ext-0)) ((8) (LibrariesC-45UtilsC-45Binary-tag arg-0 10 ext-0)) (else (let ((e-2 (vector-ref arg-1 1))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 11 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (CoreC-45TTC-u--toBuf_TTC_ConInfo arg-0 e-2 ext-0))))))))) +(define CoreC-45TTC-u--toBuf_TTC_Def (lambda (arg-0 arg-1 ext-0) (case (vector-ref arg-1 0) ((0) (LibrariesC-45UtilsC-45Binary-tag arg-0 0 ext-0)) ((1) (let ((e-0 (vector-ref arg-1 1))) (let ((e-1 (vector-ref arg-1 2))) (let ((e-2 (vector-ref arg-1 3))) (let ((e-4 (vector-ref arg-1 5))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 1 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_PMDefInfo arg-0 e-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-6 (vector-ref act-25 1))) (vector 0 e-6))) (else (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_Name arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1461 eta-0)))) arg-0 e-1 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-7 (vector-ref act-26 1))) (vector 0 e-7))) (else (let ((act-27 (CoreC-45TTC-u--toBuf_TTC_C-40CaseTreeC-32C-36varsC-41 e-1 arg-0 e-2 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-8 (vector-ref act-27 1))) (vector 0 e-8))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-40DPairC-32C-36aC-41C-32C-36pC-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1458) (lambda (arg-1461) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_Name arg-1458 arg-1461 eta-2)))) (lambda (arg-1461) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1461 eta-2)))) arg-1457 arg-1460 eta-1)))) (lambda (arg-1461) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_Name arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1462 eta-2)))) arg-1461 eta-1)))) (lambda (u--y) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1461) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_C-40C-40EnvC-32TermC-41C-32C-36varsC-41 u--y arg-1458 arg-1461 eta-2)))) (lambda (arg-1461) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_C-40C-40EnvC-32TermC-41C-32C-36varsC-41 u--y arg-1461 eta-2)))) (cons (lambda (arg-1458) (lambda (arg-1461) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1462) (lambda (arg-1463) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 u--y arg-1462 arg-1463))) (lambda (arg-1462) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 u--y arg-1462 eta-3)))) (cons (lambda (arg-1462) (lambda (arg-1463) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 u--y arg-1462 arg-1463))) (lambda (arg-1462) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 u--y arg-1462 eta-3))))) arg-1458 arg-1461 eta-2)))) (lambda (arg-1461) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1462) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 u--y arg-1458 arg-1462))) (lambda (arg-1462) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 u--y arg-1462 eta-3)))) (cons (lambda (arg-1458) (lambda (arg-1462) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 u--y arg-1458 arg-1462))) (lambda (arg-1462) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 u--y arg-1462 eta-3))))) arg-1461 eta-2))))) arg-1457 arg-1460 eta-1)))) (lambda (arg-1461) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_C-40C-40EnvC-32TermC-41C-32C-36varsC-41 u--y arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_C-40C-40EnvC-32TermC-41C-32C-36varsC-41 u--y arg-1462 eta-2)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1462) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 u--y arg-1458 arg-1462))) (lambda (arg-1462) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 u--y arg-1462 eta-3)))) (cons (lambda (arg-1458) (lambda (arg-1462) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 u--y arg-1458 arg-1462))) (lambda (arg-1462) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 u--y arg-1462 eta-3))))) arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 u--y arg-1457 arg-1460))) (lambda (arg-1463) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 u--y arg-1463 eta-3)))) (cons (lambda (arg-1457) (lambda (arg-1460) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 u--y arg-1457 arg-1460))) (lambda (arg-1463) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 u--y arg-1463 eta-3))))) arg-1462 eta-2))))) arg-1461 eta-1)))))) arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-40DPairC-32C-36aC-41C-32C-36pC-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_Name arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1462 eta-2)))) arg-1456 arg-1459 eta-1)))) (lambda (arg-1462) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_Name arg-1456 arg-1459 eta-2)))) (lambda (arg-1463) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1463 eta-2)))) arg-1462 eta-1)))) (lambda (u--y) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_C-40C-40EnvC-32TermC-41C-32C-36varsC-41 u--y arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_C-40C-40EnvC-32TermC-41C-32C-36varsC-41 u--y arg-1462 eta-2)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1462) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 u--y arg-1458 arg-1462))) (lambda (arg-1462) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 u--y arg-1462 eta-3)))) (cons (lambda (arg-1458) (lambda (arg-1462) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 u--y arg-1458 arg-1462))) (lambda (arg-1462) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 u--y arg-1462 eta-3))))) arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 u--y arg-1457 arg-1460))) (lambda (arg-1463) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 u--y arg-1463 eta-3)))) (cons (lambda (arg-1457) (lambda (arg-1460) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 u--y arg-1457 arg-1460))) (lambda (arg-1463) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 u--y arg-1463 eta-3))))) arg-1462 eta-2))))) arg-1456 arg-1459 eta-1)))) (lambda (arg-1462) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_C-40C-40EnvC-32TermC-41C-32C-36varsC-41 u--y arg-1456 arg-1459 eta-2)))) (lambda (arg-1463) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_C-40C-40EnvC-32TermC-41C-32C-36varsC-41 u--y arg-1463 eta-2)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 u--y arg-1457 arg-1460))) (lambda (arg-1463) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 u--y arg-1463 eta-3)))) (cons (lambda (arg-1457) (lambda (arg-1460) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 u--y arg-1457 arg-1460))) (lambda (arg-1463) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 u--y arg-1463 eta-3))))) arg-1456 arg-1459 eta-2)))) (lambda (arg-1463) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 u--y arg-1456 arg-1459))) (lambda (arg-1464) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 u--y arg-1464 eta-3)))) (cons (lambda (arg-1456) (lambda (arg-1459) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 u--y arg-1456 arg-1459))) (lambda (arg-1464) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 u--y arg-1464 eta-3))))) arg-1463 eta-2))))) arg-1462 eta-1)))))) arg-1461 eta-0)))) arg-0 e-4 ext-0)))))))))))))))))) ((2) (let ((e-5 (vector-ref arg-1 1))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 2 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-0 e-5 ext-0)))))) ((3) (let ((e-6 (vector-ref arg-1 1))) (let ((e-7 (vector-ref arg-1 2))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 3 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-0 e-6 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-1456 arg-1459))) (lambda (arg-1461) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-1461 eta-0)))) arg-0 e-7 ext-0)))))))))) ((4) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 "Trying to serialise a Builtin") ext-0)) ((5) (let ((e-10 (vector-ref arg-1 1))) (let ((e-11 (vector-ref arg-1 2))) (let ((e-12 (vector-ref arg-1 3))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 4 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-0 e-10 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-0 e-11 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Bool arg-1457 arg-1460 eta-1)))) (lambda (arg-1461) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Bool arg-1461 eta-1)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-1457 arg-1460 eta-1)))) (lambda (arg-1461) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-1461 eta-1))))) arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Bool arg-1456 arg-1459 eta-1)))) (lambda (arg-1462) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Bool arg-1462 eta-1)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-1456 arg-1459 eta-1)))) (lambda (arg-1462) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-1462 eta-1))))) arg-1461 eta-0)))) arg-0 e-12 ext-0)))))))))))))) ((6) (let ((e-13 (vector-ref arg-1 1))) (let ((e-14 (vector-ref arg-1 2))) (let ((e-15 (vector-ref arg-1 3))) (let ((e-16 (vector-ref arg-1 4))) (let ((e-17 (vector-ref arg-1 5))) (let ((e-18 (vector-ref arg-1 6))) (let ((e-19 (vector-ref arg-1 7))) (let ((e-20 (vector-ref arg-1 8))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 5 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-0 e-13 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-0 e-14 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((act-27 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-1461 eta-0)))) arg-0 e-15 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((act-28 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-1461 eta-0)))) arg-0 e-16 ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((act-29 (CoreC-45TTC-u--toBuf_TTC_TypeFlags arg-0 e-17 ext-0))) (case (vector-ref act-29 0) ((0) (let ((e-2 (vector-ref act-29 1))) (vector 0 e-2))) (else (let ((act-30 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_Name arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1461 eta-0)))) arg-0 e-18 ext-0))) (case (vector-ref act-30 0) ((0) (let ((e-2 (vector-ref act-30 1))) (vector 0 e-2))) (else (let ((act-31 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_Name arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1461 eta-0)))) arg-0 e-19 ext-0))) (case (vector-ref act-31 0) ((0) (let ((e-2 (vector-ref act-31 1))) (vector 0 e-2))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-1457 arg-1460 eta-1)))) (lambda (arg-1461) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-1461 eta-1)))) arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-1456 arg-1459 eta-1)))) (lambda (arg-1462) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-1462 eta-1)))) arg-1461 eta-0)))) arg-0 e-20 ext-0)))))))))))))))))))))))))))))))))) ((7) (let ((e-21 (vector-ref arg-1 1))) (let ((e-22 (vector-ref arg-1 2))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 6 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-0 e-21 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Bool arg-0 (let ((e-0 (car e-22))) e-0) ext-0)))))))))) ((8) (let ((e-23 (vector-ref arg-1 1))) (let ((e-24 (vector-ref arg-1 2))) (let ((e-25 (vector-ref arg-1 3))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 7 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 ((CoreC-45TTC-u--toBuf_TTC_RigCount arg-0 e-23) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-0 e-24 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (CoreC-45TTC-u--toBuf_TTC_Name arg-0 e-25 ext-0)))))))))))))) ((9) (let ((e-26 (vector-ref arg-1 1))) (let ((e-27 (vector-ref arg-1 2))) (let ((e-28 (vector-ref arg-1 3))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 8 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 ((CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-0 e-26) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-0 e-27 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1461 eta-0)))) arg-0 e-28 ext-0)))))))))))))) ((10) (LibrariesC-45UtilsC-45Binary-tag arg-0 9 ext-0)) (else (LibrariesC-45UtilsC-45Binary-tag arg-0 10 ext-0))))) +(define CoreC-45TTC-u--toBuf_TTC_Covering (lambda (arg-0 arg-1 ext-0) (case (vector-ref arg-1 0) ((0) (LibrariesC-45UtilsC-45Binary-tag arg-0 0 ext-0)) ((1) (let ((e-0 (vector-ref arg-1 1))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 1 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-1456 arg-1459))) (lambda (arg-1461) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-1461 eta-0)))) arg-0 e-0 ext-0)))))) (else (let ((e-1 (vector-ref arg-1 1))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 2 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_Name arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1461 eta-0)))) arg-0 e-1 ext-0))))))))) +(define CoreC-45TTC-u--toBuf_TTC_Constant (lambda (arg-0 arg-1 ext-0) (case (vector-ref arg-1 0) ((0) (let ((e-0 (vector-ref arg-1 1))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-0 e-0 ext-0)))))) ((5) (let ((e-1 (vector-ref arg-1 1))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 1 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Integer arg-0 e-1 ext-0)))))) ((6) (let ((e-2 (vector-ref arg-1 1))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 2 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-0 e-2 ext-0)))))) ((7) (let ((e-3 (vector-ref arg-1 1))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 3 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-0 e-3 ext-0)))))) ((8) (let ((e-4 (vector-ref arg-1 1))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 4 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-0 e-4 ext-0)))))) ((9) (let ((e-5 (vector-ref arg-1 1))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 5 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Integer arg-0 e-5 ext-0)))))) ((10) (let ((e-6 (vector-ref arg-1 1))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 6 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else ((LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-0 e-6) ext-0)))))) ((11) (let ((e-7 (vector-ref arg-1 1))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 7 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else ((LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Char arg-0 e-7) ext-0)))))) ((12) (let ((e-8 (vector-ref arg-1 1))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 8 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Double arg-0 e-8 ext-0)))))) ((13) (LibrariesC-45UtilsC-45Binary-tag arg-0 9 ext-0)) ((14) (LibrariesC-45UtilsC-45Binary-tag arg-0 10 ext-0)) ((19) (LibrariesC-45UtilsC-45Binary-tag arg-0 11 ext-0)) ((20) (LibrariesC-45UtilsC-45Binary-tag arg-0 12 ext-0)) ((21) (LibrariesC-45UtilsC-45Binary-tag arg-0 13 ext-0)) ((22) (LibrariesC-45UtilsC-45Binary-tag arg-0 14 ext-0)) ((23) (LibrariesC-45UtilsC-45Binary-tag arg-0 15 ext-0)) ((24) (LibrariesC-45UtilsC-45Binary-tag arg-0 16 ext-0)) ((25) (LibrariesC-45UtilsC-45Binary-tag arg-0 17 ext-0)) ((26) (LibrariesC-45UtilsC-45Binary-tag arg-0 18 ext-0)) ((27) (LibrariesC-45UtilsC-45Binary-tag arg-0 19 ext-0)) ((3) (let ((e-9 (vector-ref arg-1 1))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 20 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Integer arg-0 e-9 ext-0)))))) ((4) (let ((e-10 (vector-ref arg-1 1))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 21 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Integer arg-0 e-10 ext-0)))))) ((17) (LibrariesC-45UtilsC-45Binary-tag arg-0 22 ext-0)) ((18) (LibrariesC-45UtilsC-45Binary-tag arg-0 23 ext-0)) ((1) (let ((e-11 (vector-ref arg-1 1))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 24 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Integer arg-0 e-11 ext-0)))))) ((2) (let ((e-12 (vector-ref arg-1 1))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 25 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Integer arg-0 e-12 ext-0)))))) ((15) (LibrariesC-45UtilsC-45Binary-tag arg-0 26 ext-0)) (else (LibrariesC-45UtilsC-45Binary-tag arg-0 27 ext-0))))) +(define CoreC-45TTC-u--toBuf_TTC_ConInfo (lambda (arg-0 arg-1 ext-0) (cond ((equal? arg-1 0) (LibrariesC-45UtilsC-45Binary-tag arg-0 0 ext-0)) ((equal? arg-1 1) (LibrariesC-45UtilsC-45Binary-tag arg-0 1 ext-0)) ((equal? arg-1 2) (LibrariesC-45UtilsC-45Binary-tag arg-0 2 ext-0)) ((equal? arg-1 3) (LibrariesC-45UtilsC-45Binary-tag arg-0 3 ext-0)) ((equal? arg-1 4) (LibrariesC-45UtilsC-45Binary-tag arg-0 4 ext-0)) ((equal? arg-1 5) (LibrariesC-45UtilsC-45Binary-tag arg-0 5 ext-0)) ((equal? arg-1 6) (LibrariesC-45UtilsC-45Binary-tag arg-0 6 ext-0)) (else (LibrariesC-45UtilsC-45Binary-tag arg-0 7 ext-0))))) +(define CoreC-45TTC-u--toBuf_TTC_CG (lambda (arg-0 arg-1 ext-0) (case (vector-ref arg-1 0) ((0) (LibrariesC-45UtilsC-45Binary-tag arg-0 0 ext-0)) ((1) (LibrariesC-45UtilsC-45Binary-tag arg-0 1 ext-0)) ((2) (LibrariesC-45UtilsC-45Binary-tag arg-0 2 ext-0)) ((3) (LibrariesC-45UtilsC-45Binary-tag arg-0 3 ext-0)) ((7) (let ((e-0 (vector-ref arg-1 1))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 4 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else ((LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-0 e-0) ext-0)))))) ((4) (LibrariesC-45UtilsC-45Binary-tag arg-0 5 ext-0)) ((5) (LibrariesC-45UtilsC-45Binary-tag arg-0 6 ext-0)) (else (LibrariesC-45UtilsC-45Binary-tag arg-0 7 ext-0))))) +(define CoreC-45TTC-u--toBuf_TTC_CFType (lambda (arg-0 arg-1 ext-0) (case (vector-ref arg-1 0) ((0) (LibrariesC-45UtilsC-45Binary-tag arg-0 0 ext-0)) ((1) (LibrariesC-45UtilsC-45Binary-tag arg-0 1 ext-0)) ((6) (LibrariesC-45UtilsC-45Binary-tag arg-0 2 ext-0)) ((7) (LibrariesC-45UtilsC-45Binary-tag arg-0 3 ext-0)) ((8) (LibrariesC-45UtilsC-45Binary-tag arg-0 4 ext-0)) ((9) (LibrariesC-45UtilsC-45Binary-tag arg-0 5 ext-0)) ((10) (LibrariesC-45UtilsC-45Binary-tag arg-0 6 ext-0)) ((11) (LibrariesC-45UtilsC-45Binary-tag arg-0 7 ext-0)) ((12) (LibrariesC-45UtilsC-45Binary-tag arg-0 8 ext-0)) ((13) (LibrariesC-45UtilsC-45Binary-tag arg-0 9 ext-0)) ((16) (LibrariesC-45UtilsC-45Binary-tag arg-0 10 ext-0)) ((17) (let ((e-0 (vector-ref arg-1 1))) (let ((e-1 (vector-ref arg-1 2))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 11 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_CFType arg-0 e-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (CoreC-45TTC-u--toBuf_TTC_CFType arg-0 e-1 ext-0)))))))))) ((18) (let ((e-2 (vector-ref arg-1 1))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 12 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (CoreC-45TTC-u--toBuf_TTC_CFType arg-0 e-2 ext-0)))))) ((19) (let ((e-3 (vector-ref arg-1 1))) (let ((e-4 (vector-ref arg-1 2))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 13 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 ((LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-0 e-3) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-1457 arg-1460))) (lambda (arg-1461) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-1461 eta-1)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_CFType arg-1457 arg-1460 eta-1)))) (lambda (arg-1461) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_CFType arg-1461 eta-1))))) arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-1456 arg-1459))) (lambda (arg-1462) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-1462 eta-1)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_CFType arg-1456 arg-1459 eta-1)))) (lambda (arg-1462) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_CFType arg-1462 eta-1))))) arg-1461 eta-0)))) arg-0 e-4 ext-0)))))))))) ((20) (let ((e-5 (vector-ref arg-1 1))) (let ((e-6 (vector-ref arg-1 2))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 14 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_Name arg-0 e-5 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_CFType arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_CFType arg-1461 eta-0)))) arg-0 e-6 ext-0)))))))))) ((14) (LibrariesC-45UtilsC-45Binary-tag arg-0 15 ext-0)) ((15) (LibrariesC-45UtilsC-45Binary-tag arg-0 16 ext-0)) ((2) (LibrariesC-45UtilsC-45Binary-tag arg-0 17 ext-0)) ((3) (LibrariesC-45UtilsC-45Binary-tag arg-0 18 ext-0)) ((4) (LibrariesC-45UtilsC-45Binary-tag arg-0 19 ext-0)) (else (LibrariesC-45UtilsC-45Binary-tag arg-0 20 ext-0))))) +(define CoreC-45TTC-u--toBuf_TTC_CDef (lambda (arg-0 arg-1 ext-0) (case (vector-ref arg-1 0) ((0) (let ((e-0 (vector-ref arg-1 1))) (let ((e-1 (vector-ref arg-1 2))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_Name arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1461 eta-0)))) arg-0 e-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (CoreC-45TTC-u--toBuf_TTC_C-40CExpC-32C-36varsC-41 e-0 arg-0 e-1 ext-0)))))))))) ((1) (let ((e-2 (vector-ref arg-1 1))) (let ((e-3 (vector-ref arg-1 2))) (let ((e-4 (vector-ref arg-1 3))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 1 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1461 eta-0)))) arg-0 e-2 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-6 (vector-ref act-25 1))) (vector 0 e-6))) (else (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-0 e-3 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-7 (vector-ref act-26 1))) (vector 0 e-7))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-1461 eta-0)))) arg-0 e-4 ext-0)))))))))))))) ((2) (let ((e-5 (vector-ref arg-1 1))) (let ((e-6 (vector-ref arg-1 2))) (let ((e-7 (vector-ref arg-1 3))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 2 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-1456 arg-1459))) (lambda (arg-1461) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-1461 eta-0)))) arg-0 e-5 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_CFType arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_CFType arg-1461 eta-0)))) arg-0 e-6 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (CoreC-45TTC-u--toBuf_TTC_CFType arg-0 e-7 ext-0)))))))))))))) (else (let ((e-8 (vector-ref arg-1 1))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 3 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (CoreC-45TTC-u--toBuf_TTC_C-40CExpC-32C-36varsC-41 '() arg-0 e-8 ext-0))))))))) +(define CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 (lambda (arg-0 arg-1 arg-2) (case (vector-ref arg-2 0) ((0) (let ((e-3 (vector-ref arg-2 2))) (let ((e-4 (vector-ref arg-2 3))) (lambda (clam-0) (let ((sc1 (PreludeC-45Types-u--C-60_Ord_Nat e-4 (PreludeC-45Types-u--fromInteger_Num_Nat 243)))) (cond ((equal? sc1 1) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-1 (bs+ 13 (PreludeC-45Cast-u--cast_Cast_Nat_Int e-4) 63) clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Bool arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Bool arg-1461 eta-0)))) arg-1 e-3 clam-0))))) (else (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-1 0 clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Bool arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Bool arg-1461 eta-0)))) arg-1 e-3 clam-0))) (case (vector-ref act-25 0) ((0) (let ((e-6 (vector-ref act-25 1))) (vector 0 e-6))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-1 e-4 clam-0)))))))))))))) ((1) (let ((e-8 (vector-ref arg-2 2))) (let ((e-9 (vector-ref arg-2 3))) (lambda (eta-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-1 1 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_NameType arg-1 e-8 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (CoreC-45TTC-u--toBuf_TTC_Name arg-1 e-9 eta-0))))))))))) ((2) (let ((e-12 (vector-ref arg-2 2))) (let ((e-14 (vector-ref arg-2 4))) (lambda (eta-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-1 2 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_Name arg-1 e-12 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 arg-0 arg-1456 arg-1459))) (lambda (arg-1461) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 arg-0 arg-1461 eta-1)))) arg-1 e-14 eta-0))))))))))) ((3) (let ((e-17 (vector-ref arg-2 2))) (let ((e-18 (vector-ref arg-2 3))) (let ((e-19 (vector-ref arg-2 4))) (lambda (eta-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-1 3 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_Name arg-1 e-17 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45TTC-u--toBuf_TTC_C-40BinderC-32C-40TermC-32C-36varsC-41C-41 arg-0 arg-1 e-18 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else ((CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 (cons e-17 arg-0) arg-1 e-19) eta-0))))))))))))))) ((4) (let ((e-21 (vector-ref arg-2 1))) (let ((e-22 (vector-ref arg-2 2))) (let ((e-23 (vector-ref arg-2 3))) (let ((sc1 (CoreC-45TT-getFnArgs (vector 4 e-21 e-22 e-23)))) (let ((e-2 (car sc1))) (let ((e-3 (cdr sc1))) (lambda (clam-0) (if (null? e-3) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-1 12 clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((act-25 ((CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 arg-0 arg-1 e-2) clam-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 arg-0 arg-1456 arg-1459))) (lambda (arg-1461) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 arg-0 arg-1461 eta-0)))) arg-1 e-3 clam-0))))))) (let ((e-1 (car e-3))) (let ((e-4 (cdr e-3))) (if (null? e-4) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-1 4 clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((act-25 ((CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 arg-0 arg-1 e-2) clam-0))) (case (vector-ref act-25 0) ((0) (let ((e-6 (vector-ref act-25 1))) (vector 0 e-6))) (else ((CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 arg-0 arg-1 e-1) clam-0))))))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-1 12 clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((act-25 ((CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 arg-0 arg-1 e-2) clam-0))) (case (vector-ref act-25 0) ((0) (let ((e-6 (vector-ref act-25 1))) (vector 0 e-6))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 arg-0 arg-1456 arg-1459))) (lambda (arg-1461) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 arg-0 arg-1461 eta-0)))) arg-1 e-3 clam-0))))))))))))))))))) ((5) (let ((e-26 (vector-ref arg-2 2))) (let ((e-27 (vector-ref arg-2 3))) (let ((e-28 (vector-ref arg-2 4))) (lambda (eta-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-1 5 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 ((CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 arg-0 arg-1 e-27) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45TTC-u--toBuf_TTC_UseSide arg-1 e-26 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else ((CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 arg-0 arg-1 e-28) eta-0))))))))))))))) ((6) (let ((e-31 (vector-ref arg-2 2))) (let ((e-32 (vector-ref arg-2 3))) (lambda (eta-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-1 6 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_LazyReason arg-1 e-31 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else ((CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 arg-0 arg-1 e-32) eta-0))))))))))) ((7) (let ((e-35 (vector-ref arg-2 2))) (let ((e-36 (vector-ref arg-2 3))) (let ((e-37 (vector-ref arg-2 4))) (lambda (eta-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-1 7 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_LazyReason arg-1 e-35 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 ((CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 arg-0 arg-1 e-36) eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else ((CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 arg-0 arg-1 e-37) eta-0))))))))))))))) ((8) (let ((e-40 (vector-ref arg-2 2))) (let ((e-41 (vector-ref arg-2 3))) (lambda (eta-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-1 8 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_LazyReason arg-1 e-40 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else ((CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 arg-0 arg-1 e-41) eta-0))))))))))) ((9) (let ((e-44 (vector-ref arg-2 2))) (lambda (eta-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-1 9 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (CoreC-45TTC-u--toBuf_TTC_Constant arg-1 e-44 eta-0))))))) ((10) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-tag arg-1 10 eta-0))) (else (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-tag arg-1 11 eta-0)))))) +(define CoreC-45TTC-u--toBuf_TTC_C-40PrimFnC-32C-36nC-41 (lambda (arg-0 arg-1 arg-2) (cond ((equal? arg-0 0) (blodwen-error-quit "Nat case not covered"))(else (let ((e-0 (- arg-0 1))) (cond ((equal? e-0 0) (lambda (clam-0) (case (vector-ref arg-2 0) ((5) (let ((e-18 (vector-ref arg-2 1))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-1 5 clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (CoreC-45TTC-u--toBuf_TTC_Constant arg-1 e-18 clam-0)))))) ((16) (LibrariesC-45UtilsC-45Binary-tag arg-1 11 clam-0)) ((17) (LibrariesC-45UtilsC-45Binary-tag arg-1 12 clam-0)) ((18) (LibrariesC-45UtilsC-45Binary-tag arg-1 13 clam-0)) ((22) (LibrariesC-45UtilsC-45Binary-tag arg-1 17 clam-0)) ((24) (LibrariesC-45UtilsC-45Binary-tag arg-1 19 clam-0)) ((25) (LibrariesC-45UtilsC-45Binary-tag arg-1 20 clam-0)) ((26) (LibrariesC-45UtilsC-45Binary-tag arg-1 22 clam-0)) ((27) (LibrariesC-45UtilsC-45Binary-tag arg-1 23 clam-0)) ((28) (LibrariesC-45UtilsC-45Binary-tag arg-1 24 clam-0)) ((29) (LibrariesC-45UtilsC-45Binary-tag arg-1 25 clam-0)) ((30) (LibrariesC-45UtilsC-45Binary-tag arg-1 26 clam-0)) ((31) (LibrariesC-45UtilsC-45Binary-tag arg-1 27 clam-0)) ((32) (LibrariesC-45UtilsC-45Binary-tag arg-1 32 clam-0)) ((33) (LibrariesC-45UtilsC-45Binary-tag arg-1 33 clam-0)) ((34) (LibrariesC-45UtilsC-45Binary-tag arg-1 34 clam-0)) (else (let ((e-19 (vector-ref arg-2 1))) (let ((e-20 (vector-ref arg-2 2))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-1 99 clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_Constant arg-1 e-19 clam-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (CoreC-45TTC-u--toBuf_TTC_Constant arg-1 e-20 clam-0)))))))))))))(else (let ((e-1 (- e-0 1))) (cond ((equal? e-1 0) (lambda (clam-1) (case (vector-ref arg-2 0) ((0) (let ((e-3 (vector-ref arg-2 1))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-1 0 clam-1))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (CoreC-45TTC-u--toBuf_TTC_Constant arg-1 e-3 clam-1)))))) ((1) (let ((e-4 (vector-ref arg-2 1))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-1 1 clam-1))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (CoreC-45TTC-u--toBuf_TTC_Constant arg-1 e-4 clam-1)))))) ((2) (let ((e-5 (vector-ref arg-2 1))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-1 2 clam-1))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (CoreC-45TTC-u--toBuf_TTC_Constant arg-1 e-5 clam-1)))))) ((3) (let ((e-6 (vector-ref arg-2 1))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-1 3 clam-1))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (CoreC-45TTC-u--toBuf_TTC_Constant arg-1 e-6 clam-1)))))) ((4) (let ((e-7 (vector-ref arg-2 1))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-1 4 clam-1))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (CoreC-45TTC-u--toBuf_TTC_Constant arg-1 e-7 clam-1)))))) ((6) (let ((e-8 (vector-ref arg-2 1))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-1 35 clam-1))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (CoreC-45TTC-u--toBuf_TTC_Constant arg-1 e-8 clam-1)))))) ((7) (let ((e-9 (vector-ref arg-2 1))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-1 36 clam-1))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (CoreC-45TTC-u--toBuf_TTC_Constant arg-1 e-9 clam-1)))))) ((8) (let ((e-10 (vector-ref arg-2 1))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-1 37 clam-1))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (CoreC-45TTC-u--toBuf_TTC_Constant arg-1 e-10 clam-1)))))) ((9) (let ((e-11 (vector-ref arg-2 1))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-1 38 clam-1))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (CoreC-45TTC-u--toBuf_TTC_Constant arg-1 e-11 clam-1)))))) ((10) (let ((e-12 (vector-ref arg-2 1))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-1 39 clam-1))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (CoreC-45TTC-u--toBuf_TTC_Constant arg-1 e-12 clam-1)))))) ((11) (let ((e-13 (vector-ref arg-2 1))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-1 6 clam-1))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (CoreC-45TTC-u--toBuf_TTC_Constant arg-1 e-13 clam-1)))))) ((12) (let ((e-14 (vector-ref arg-2 1))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-1 7 clam-1))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (CoreC-45TTC-u--toBuf_TTC_Constant arg-1 e-14 clam-1)))))) ((13) (let ((e-15 (vector-ref arg-2 1))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-1 8 clam-1))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (CoreC-45TTC-u--toBuf_TTC_Constant arg-1 e-15 clam-1)))))) ((14) (let ((e-16 (vector-ref arg-2 1))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-1 9 clam-1))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (CoreC-45TTC-u--toBuf_TTC_Constant arg-1 e-16 clam-1)))))) ((15) (let ((e-17 (vector-ref arg-2 1))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-1 10 clam-1))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (CoreC-45TTC-u--toBuf_TTC_Constant arg-1 e-17 clam-1)))))) ((19) (LibrariesC-45UtilsC-45Binary-tag arg-1 14 clam-1)) ((20) (LibrariesC-45UtilsC-45Binary-tag arg-1 15 clam-1)) ((21) (LibrariesC-45UtilsC-45Binary-tag arg-1 16 clam-1)) (else (LibrariesC-45UtilsC-45Binary-tag arg-1 (blodwen-toSignedInt 101 63) clam-1)))))(else (let ((e-2 (- e-1 1))) (cond ((equal? e-2 0) (lambda (clam-2) (case (vector-ref arg-2 0) ((23) (LibrariesC-45UtilsC-45Binary-tag arg-1 18 clam-2)) (else (LibrariesC-45UtilsC-45Binary-tag arg-1 (blodwen-toSignedInt 100 63) clam-2)))))(else (blodwen-error-quit "Nat case not covered")))))))))))))) +(define CoreC-45TTC-u--toBuf_TTC_C-40PiInfoC-32C-36tC-41 (lambda (arg-1 arg-2 arg-3 ext-0) (case (vector-ref arg-3 0) ((0) (LibrariesC-45UtilsC-45Binary-tag arg-2 0 ext-0)) ((1) (LibrariesC-45UtilsC-45Binary-tag arg-2 1 ext-0)) ((2) (LibrariesC-45UtilsC-45Binary-tag arg-2 2 ext-0)) (else (let ((e-4 (vector-ref arg-3 1))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-2 3 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-1 (car arg-1))) (((e-1 arg-2) e-4) ext-0)))))))))) +(define CoreC-45TTC-u--toBuf_TTC_C-40CaseTreeC-32C-36varsC-41 (lambda (arg-0 arg-1 arg-2 ext-0) (case (vector-ref arg-2 0) ((0) (let ((e-1 (vector-ref arg-2 1))) (let ((e-2 (vector-ref arg-2 2))) (let ((e-5 (vector-ref arg-2 4))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-1 0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_Name arg-1 e-1 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-3 (vector-ref act-25 1))) (vector 0 e-3))) (else (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-1 e-2 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-3 (vector-ref act-26 1))) (vector 0 e-3))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_C-40CaseAltC-32C-36varsC-41 arg-0 arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_C-40CaseAltC-32C-36varsC-41 arg-0 arg-1461 eta-0)))) arg-1 e-5 ext-0)))))))))))))) ((1) (let ((e-8 (vector-ref arg-2 2))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-1 1 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else ((CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 arg-0 arg-1 e-8) ext-0)))))) ((2) (let ((e-10 (vector-ref arg-2 1))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-1 2 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else ((LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-1 e-10) ext-0)))))) (else (LibrariesC-45UtilsC-45Binary-tag arg-1 3 ext-0))))) +(define CoreC-45TTC-u--toBuf_TTC_C-40CaseAltC-32C-36varsC-41 (lambda (arg-0 arg-1 arg-2 ext-0) (case (vector-ref arg-2 0) ((0) (let ((e-1 (vector-ref arg-2 1))) (let ((e-2 (vector-ref arg-2 2))) (let ((e-3 (vector-ref arg-2 3))) (let ((e-4 (vector-ref arg-2 4))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-1 0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_Name arg-1 e-1 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-6 (vector-ref act-25 1))) (vector 0 e-6))) (else (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1 e-2 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-7 (vector-ref act-26 1))) (vector 0 e-7))) (else (let ((act-27 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_Name arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1461 eta-0)))) arg-1 e-3 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-8 (vector-ref act-27 1))) (vector 0 e-8))) (else (CoreC-45TTC-u--toBuf_TTC_C-40CaseTreeC-32C-36varsC-41 (PreludeC-45TypesC-45List-C-43C-43 e-3 arg-0) arg-1 e-4 ext-0)))))))))))))))))) ((1) (let ((e-6 (vector-ref arg-2 1))) (let ((e-7 (vector-ref arg-2 2))) (let ((e-8 (vector-ref arg-2 3))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-1 1 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_Name arg-1 e-6 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45TTC-u--toBuf_TTC_Name arg-1 e-7 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (CoreC-45TTC-u--toBuf_TTC_C-40CaseTreeC-32C-36varsC-41 (cons e-6 (cons e-7 arg-0)) arg-1 e-8 ext-0)))))))))))))) ((2) (let ((e-10 (vector-ref arg-2 1))) (let ((e-11 (vector-ref arg-2 2))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-1 2 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_Constant arg-1 e-10 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (CoreC-45TTC-u--toBuf_TTC_C-40CaseTreeC-32C-36varsC-41 arg-0 arg-1 e-11 ext-0)))))))))) (else (let ((e-13 (vector-ref arg-2 1))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-1 3 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (CoreC-45TTC-u--toBuf_TTC_C-40CaseTreeC-32C-36varsC-41 arg-0 arg-1 e-13 ext-0))))))))) +(define CoreC-45TTC-u--toBuf_TTC_C-40CExpC-32C-36varsC-41 (lambda (arg-0 arg-1 arg-2 ext-0) (case (vector-ref arg-2 0) ((0) (let ((e-2 (vector-ref arg-2 1))) (let ((e-3 (vector-ref arg-2 2))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-1 0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_FC arg-1 e-3 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-1 e-2 ext-0)))))))))) ((1) (let ((e-6 (vector-ref arg-2 1))) (let ((e-7 (vector-ref arg-2 2))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-1 1 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_FC arg-1 e-6 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (CoreC-45TTC-u--toBuf_TTC_Name arg-1 e-7 ext-0)))))))))) ((2) (let ((e-9 (vector-ref arg-2 1))) (let ((e-10 (vector-ref arg-2 2))) (let ((e-11 (vector-ref arg-2 3))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-1 2 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_FC arg-1 e-9 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45TTC-u--toBuf_TTC_Name arg-1 e-10 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (CoreC-45TTC-u--toBuf_TTC_C-40CExpC-32C-36varsC-41 (cons e-10 arg-0) arg-1 e-11 ext-0)))))))))))))) ((3) (let ((e-13 (vector-ref arg-2 1))) (let ((e-14 (vector-ref arg-2 2))) (let ((e-15 (vector-ref arg-2 3))) (let ((e-16 (vector-ref arg-2 4))) (let ((e-17 (vector-ref arg-2 5))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-1 3 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_FC arg-1 e-13 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45TTC-u--toBuf_TTC_Name arg-1 e-14 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((act-27 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Bool arg-1 e-15 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((act-28 (CoreC-45TTC-u--toBuf_TTC_C-40CExpC-32C-36varsC-41 arg-0 arg-1 e-16 ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (CoreC-45TTC-u--toBuf_TTC_C-40CExpC-32C-36varsC-41 (cons e-14 arg-0) arg-1 e-17 ext-0)))))))))))))))))))))) ((4) (let ((e-19 (vector-ref arg-2 1))) (let ((e-20 (vector-ref arg-2 2))) (let ((e-21 (vector-ref arg-2 3))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-1 4 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_FC arg-1 e-19 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45TTC-u--toBuf_TTC_C-40CExpC-32C-36varsC-41 arg-0 arg-1 e-20 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_C-40CExpC-32C-36varsC-41 arg-0 arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_C-40CExpC-32C-36varsC-41 arg-0 arg-1461 eta-0)))) arg-1 e-21 ext-0)))))))))))))) ((5) (let ((e-23 (vector-ref arg-2 1))) (let ((e-24 (vector-ref arg-2 2))) (let ((e-25 (vector-ref arg-2 3))) (let ((e-26 (vector-ref arg-2 4))) (let ((e-27 (vector-ref arg-2 5))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-1 5 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_FC arg-1 e-23 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45TTC-u--toBuf_TTC_Name arg-1 e-24 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((act-27 (CoreC-45TTC-u--toBuf_TTC_ConInfo arg-1 e-25 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((act-28 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1461 eta-0)))) arg-1 e-26 ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_C-40CExpC-32C-36varsC-41 arg-0 arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_C-40CExpC-32C-36varsC-41 arg-0 arg-1461 eta-0)))) arg-1 e-27 ext-0)))))))))))))))))))))) ((6) (let ((e-29 (vector-ref arg-2 1))) (let ((e-30 (vector-ref arg-2 2))) (let ((e-31 (vector-ref arg-2 3))) (let ((e-32 (vector-ref arg-2 4))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-1 6 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_FC arg-1 e-30 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-1 e-29 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((act-27 ((CoreC-45TTC-u--toBuf_TTC_C-40PrimFnC-32C-36nC-41 e-29 arg-1 e-31) ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-40VectC-32C-36nC-41C-32C-36aC-41 e-29 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_C-40CExpC-32C-36varsC-41 arg-0 arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_C-40CExpC-32C-36varsC-41 arg-0 arg-1461 eta-0)))) arg-1 e-32 ext-0)))))))))))))))))) ((7) (let ((e-34 (vector-ref arg-2 1))) (let ((e-35 (vector-ref arg-2 2))) (let ((e-36 (vector-ref arg-2 3))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-1 7 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_FC arg-1 e-34 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45TTC-u--toBuf_TTC_Name arg-1 e-35 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_C-40CExpC-32C-36varsC-41 arg-0 arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_C-40CExpC-32C-36varsC-41 arg-0 arg-1461 eta-0)))) arg-1 e-36 ext-0)))))))))))))) ((8) (let ((e-38 (vector-ref arg-2 1))) (let ((e-39 (vector-ref arg-2 2))) (let ((e-40 (vector-ref arg-2 3))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-1 8 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_FC arg-1 e-38 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45TTC-u--toBuf_TTC_LazyReason arg-1 e-39 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (CoreC-45TTC-u--toBuf_TTC_C-40CExpC-32C-36varsC-41 arg-0 arg-1 e-40 ext-0)))))))))))))) ((9) (let ((e-42 (vector-ref arg-2 1))) (let ((e-43 (vector-ref arg-2 2))) (let ((e-44 (vector-ref arg-2 3))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-1 9 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_FC arg-1 e-42 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45TTC-u--toBuf_TTC_LazyReason arg-1 e-43 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (CoreC-45TTC-u--toBuf_TTC_C-40CExpC-32C-36varsC-41 arg-0 arg-1 e-44 ext-0)))))))))))))) ((10) (let ((e-46 (vector-ref arg-2 1))) (let ((e-47 (vector-ref arg-2 2))) (let ((e-48 (vector-ref arg-2 3))) (let ((e-49 (vector-ref arg-2 4))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-1 10 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_FC arg-1 e-46 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45TTC-u--toBuf_TTC_C-40CExpC-32C-36varsC-41 arg-0 arg-1 e-47 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((act-27 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_C-40CConAltC-32C-36varsC-41 arg-0 arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_C-40CConAltC-32C-36varsC-41 arg-0 arg-1461 eta-0)))) arg-1 e-48 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_C-40CExpC-32C-36varsC-41 arg-0 arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_C-40CExpC-32C-36varsC-41 arg-0 arg-1461 eta-0)))) arg-1 e-49 ext-0)))))))))))))))))) ((11) (let ((e-51 (vector-ref arg-2 1))) (let ((e-52 (vector-ref arg-2 2))) (let ((e-53 (vector-ref arg-2 3))) (let ((e-54 (vector-ref arg-2 4))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-1 11 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_FC arg-1 e-51 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45TTC-u--toBuf_TTC_C-40CExpC-32C-36varsC-41 arg-0 arg-1 e-52 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((act-27 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_C-40CConstAltC-32C-36varsC-41 arg-0 arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_C-40CConstAltC-32C-36varsC-41 arg-0 arg-1461 eta-0)))) arg-1 e-53 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_C-40CExpC-32C-36varsC-41 arg-0 arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_C-40CExpC-32C-36varsC-41 arg-0 arg-1461 eta-0)))) arg-1 e-54 ext-0)))))))))))))))))) ((12) (let ((e-56 (vector-ref arg-2 1))) (let ((e-57 (vector-ref arg-2 2))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-1 12 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_FC arg-1 e-56 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (CoreC-45TTC-u--toBuf_TTC_Constant arg-1 e-57 ext-0)))))))))) ((13) (let ((e-59 (vector-ref arg-2 1))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-1 13 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (CoreC-45TTC-u--toBuf_TTC_FC arg-1 e-59 ext-0)))))) (else (let ((e-61 (vector-ref arg-2 1))) (let ((e-62 (vector-ref arg-2 2))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-1 14 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_FC arg-1 e-61 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else ((LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-1 e-62) ext-0))))))))))))) +(define CoreC-45TTC-u--toBuf_TTC_C-40CConstAltC-32C-36varsC-41 (lambda (arg-0 arg-1 arg-2 ext-0) (let ((e-1 (car arg-2))) (let ((e-2 (cdr arg-2))) (let ((act-24 (CoreC-45TTC-u--toBuf_TTC_Constant arg-1 e-1 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (CoreC-45TTC-u--toBuf_TTC_C-40CExpC-32C-36varsC-41 arg-0 arg-1 e-2 ext-0)))))))) +(define CoreC-45TTC-u--toBuf_TTC_C-40CConAltC-32C-36varsC-41 (lambda (arg-0 arg-1 arg-2 ext-0) (let ((e-1 (vector-ref arg-2 0))) (let ((e-2 (vector-ref arg-2 1))) (let ((e-3 (vector-ref arg-2 2))) (let ((e-4 (vector-ref arg-2 3))) (let ((e-5 (vector-ref arg-2 4))) (let ((act-24 (CoreC-45TTC-u--toBuf_TTC_Name arg-1 e-1 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_ConInfo arg-1 e-2 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-7 (vector-ref act-25 1))) (vector 0 e-7))) (else (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1461 eta-0)))) arg-1 e-3 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-8 (vector-ref act-26 1))) (vector 0 e-8))) (else (let ((act-27 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_Name arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1461 eta-0)))) arg-1 e-4 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-9 (vector-ref act-27 1))) (vector 0 e-9))) (else (CoreC-45TTC-u--toBuf_TTC_C-40CExpC-32C-36varsC-41 (PreludeC-45TypesC-45List-C-43C-43 e-4 arg-0) arg-1 e-5 ext-0)))))))))))))))))))) +(define CoreC-45TTC-u--toBuf_TTC_C-40BinderC-32C-40TermC-32C-36varsC-41C-41 (lambda (arg-0 arg-1 arg-2 ext-0) (case (vector-ref arg-2 0) ((0) (let ((e-2 (vector-ref arg-2 2))) (let ((e-3 (vector-ref arg-2 3))) (let ((e-4 (vector-ref arg-2 4))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-1 0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((act-25 ((CoreC-45TTC-u--toBuf_TTC_RigCount arg-1 e-2) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-6 (vector-ref act-25 1))) (vector 0 e-6))) (else (let ((act-26 (CoreC-45TTC-u--toBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 arg-0 arg-1456 arg-1459))) (lambda (arg-1461) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 arg-0 arg-1461 eta-0)))) arg-1 e-3 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-7 (vector-ref act-26 1))) (vector 0 e-7))) (else ((CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 arg-0 arg-1 e-4) ext-0)))))))))))))) ((1) (let ((e-7 (vector-ref arg-2 2))) (let ((e-8 (vector-ref arg-2 3))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-1 1 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 ((CoreC-45TTC-u--toBuf_TTC_RigCount arg-1 e-7) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else ((CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 arg-0 arg-1 e-8) ext-0)))))))))) ((2) (let ((e-12 (vector-ref arg-2 2))) (let ((e-13 (vector-ref arg-2 3))) (let ((e-14 (vector-ref arg-2 4))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-1 2 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 ((CoreC-45TTC-u--toBuf_TTC_RigCount arg-1 e-12) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45TTC-u--toBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 arg-0 arg-1456 arg-1459))) (lambda (arg-1461) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 arg-0 arg-1461 eta-0)))) arg-1 e-13 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else ((CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 arg-0 arg-1 e-14) ext-0)))))))))))))) ((3) (let ((e-17 (vector-ref arg-2 2))) (let ((e-18 (vector-ref arg-2 3))) (let ((e-19 (vector-ref arg-2 4))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-1 3 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 ((CoreC-45TTC-u--toBuf_TTC_RigCount arg-1 e-17) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45TTC-u--toBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 arg-0 arg-1456 arg-1459))) (lambda (arg-1461) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 arg-0 arg-1461 eta-0)))) arg-1 e-18 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else ((CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 arg-0 arg-1 e-19) ext-0)))))))))))))) ((4) (let ((e-22 (vector-ref arg-2 2))) (let ((e-23 (vector-ref arg-2 3))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-1 4 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 ((CoreC-45TTC-u--toBuf_TTC_RigCount arg-1 e-22) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else ((CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 arg-0 arg-1 e-23) ext-0)))))))))) (else (let ((e-27 (vector-ref arg-2 2))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-1 5 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else ((CoreC-45TTC-u--toBuf_TTC_RigCount arg-1 e-27) ext-0))))))))) +(define CoreC-45TTC-u--toBuf_TTC_C-40C-40EnvC-32TermC-41C-32C-36varsC-41 (lambda (arg-0 arg-1 arg-2 ext-0) (if (null? arg-0) (vector 1 0) (let ((e-3 (cdr arg-0))) (let ((e-8 (car arg-2))) (let ((e-9 (cdr arg-2))) (let ((act-24 (CoreC-45TTC-u--toBuf_TTC_C-40BinderC-32C-40TermC-32C-36varsC-41C-41 e-3 arg-1 e-8 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (CoreC-45TTC-u--toBuf_TTC_C-40C-40EnvC-32TermC-41C-32C-36varsC-41 e-3 arg-1 e-9 ext-0)))))))))) +(define CoreC-45TTC-u--fromBuf_TTC_Visibility (lambda (arg-0 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-getTag arg-0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (cond ((equal? e-5 0) (vector 1 0)) ((equal? e-5 1) (vector 1 1)) ((equal? e-5 2) (vector 1 2))(else (LibrariesC-45UtilsC-45Binary-corrupt "Visibility" ext-0))))))))) +(define CoreC-45TTC-u--fromBuf_TTC_VirtualIdent (lambda (arg-0 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-getTag arg-0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (cond ((equal? e-5 0) (vector 1 0))(else (LibrariesC-45UtilsC-45Binary-corrupt "VirtualIdent" ext-0))))))))) +(define CoreC-45TTC-u--fromBuf_TTC_UseSide (lambda (arg-0 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-getTag arg-0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (cond ((equal? e-5 0) (vector 1 0)) ((equal? e-5 1) (vector 1 1))(else (LibrariesC-45UtilsC-45Binary-corrupt "UseSide" ext-0))))))))) +(define CoreC-45TTC-u--fromBuf_TTC_TypeFlags (lambda (arg-0 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Bool arg-0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Bool arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (cons e-5 e-6)))))))))))) +(define CoreC-45TTC-u--fromBuf_TTC_Transform (lambda (arg-0 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_Name arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1461 eta-0)))) arg-0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_Name arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45TTC-u--fromBuf_TTC_C-40C-40EnvC-32TermC-41C-32C-36varsC-41 e-5 arg-0 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 e-5 arg-0 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (let ((act-28 (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 e-5 arg-0 ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-28 1))) (vector 1 (vector e-5 e-6 e-7 e-8 e-9)))))))))))))))))))))))) +(define CoreC-45TTC-u--fromBuf_TTC_Totality (lambda (arg-0 ext-0) (let ((act-24 (CoreC-45TTC-u--fromBuf_TTC_Terminating arg-0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_Covering arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (cons e-5 e-6)))))))))))) +(define CoreC-45TTC-u--fromBuf_TTC_TotalReq (lambda (arg-0 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-getTag arg-0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (cond ((equal? e-5 0) (vector 1 0)) ((equal? e-5 1) (vector 1 1)) ((equal? e-5 2) (vector 1 2))(else (LibrariesC-45UtilsC-45Binary-corrupt "TotalReq" ext-0))))))))) +(define CoreC-45TTC-u--fromBuf_TTC_Terminating (lambda (arg-0 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-getTag arg-0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (cond ((equal? e-5 0) (vector 1 (vector 0 ))) ((equal? e-5 1) (vector 1 (vector 1 ))) ((equal? e-5 2) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_PartialReason arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (vector 2 e-6)))))))(else (LibrariesC-45UtilsC-45Binary-corrupt "Terminating" ext-0))))))))) +(define CoreC-45TTC-u--fromBuf_TTC_SizeChange (lambda (arg-0 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-getTag arg-0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (cond ((equal? e-5 0) (vector 1 0)) ((equal? e-5 1) (vector 1 1)) ((equal? e-5 2) (vector 1 2))(else (LibrariesC-45UtilsC-45Binary-corrupt "SizeChange" ext-0))))))))) +(define CoreC-45TTC-u--fromBuf_TTC_SCCall (lambda (arg-0 ext-0) (let ((act-24 (CoreC-45TTC-u--fromBuf_TTC_Name arg-0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1461) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-1458 arg-1461 eta-2)))) (lambda (arg-1461) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-1461 eta-2)))) (cons (lambda (arg-1458) (lambda (arg-1461) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_SizeChange arg-1458 arg-1461 eta-2)))) (lambda (arg-1461) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_SizeChange arg-1461 eta-2))))) arg-1457 arg-1460 eta-1)))) (lambda (arg-1461) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-1462 eta-2)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_SizeChange arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_SizeChange arg-1462 eta-2))))) arg-1461 eta-1)))) arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-1462 eta-2)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_SizeChange arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_SizeChange arg-1462 eta-2))))) arg-1456 arg-1459 eta-1)))) (lambda (arg-1462) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-1456 arg-1459 eta-2)))) (lambda (arg-1463) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-1463 eta-2)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_SizeChange arg-1456 arg-1459 eta-2)))) (lambda (arg-1463) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_SizeChange arg-1463 eta-2))))) arg-1462 eta-1)))) arg-1461 eta-0)))) arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (cons e-5 e-6)))))))))))) +(define CoreC-45TTC-u--fromBuf_TTC_RigCount (lambda (arg-0 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-getTag arg-0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (cond ((equal? e-5 0) (vector 1 (AlgebraC-45Semiring-erased (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))))) ((equal? e-5 1) (vector 1 (AlgebraC-45Semiring-linear (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))))) ((equal? e-5 2) (vector 1 (AlgebraC-45ZeroOneOmega-u--top_Top_ZeroOneOmega)))(else (LibrariesC-45UtilsC-45Binary-corrupt "RigCount" ext-0))))))))) +(define CoreC-45TTC-u--fromBuf_TTC_RewriteNames (lambda (arg-0 ext-0) (let ((act-24 (CoreC-45TTC-u--fromBuf_TTC_Name arg-0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_Name arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (cons e-5 e-6)))))))))))) +(define CoreC-45TTC-u--fromBuf_TTC_PrimNames (lambda (arg-0 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_Name arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1461 eta-0)))) arg-0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_Name arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1461 eta-0)))) arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_Name arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1461 eta-0)))) arg-0 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_Name arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1461 eta-0)))) arg-0 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (vector 1 (vector e-5 e-6 e-7 e-8)))))))))))))))))))) +(define CoreC-45TTC-u--fromBuf_TTC_PartialReason (lambda (arg-0 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-getTag arg-0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (cond ((equal? e-5 0) (vector 1 (vector 0 ))) ((equal? e-5 1) (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_Name arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1461 eta-0)))) arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (vector 1 e-6))))))) ((equal? e-5 2) (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_Name arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1461 eta-0)))) arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (vector 2 e-6)))))))(else (LibrariesC-45UtilsC-45Binary-corrupt "PartialReason" ext-0))))))))) +(define CoreC-45TTC-u--fromBuf_TTC_PairNames (lambda (arg-0 ext-0) (let ((act-24 (CoreC-45TTC-u--fromBuf_TTC_Name arg-0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_Name arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45TTC-u--fromBuf_TTC_Name arg-0 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (vector e-5 e-6 e-7)))))))))))))))) +(define CoreC-45TTC-u--fromBuf_TTC_PMDefInfo (lambda (arg-0 ext-0) (let ((act-24 (CoreC-45TTC-u--fromBuf_TTC_HoleInfo arg-0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Bool arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (cons e-5 e-6)))))))))))) +(define CoreC-45TTC-u--fromBuf_TTC_OriginDesc (lambda (arg-0 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-getTag arg-0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (cond ((equal? e-5 0) (CoreC-45Core-C-60C-42C-62 (lambda (eta-0) (vector 1 (lambda (eta-1) (vector 0 eta-1)))) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_ModuleIdent arg-0 eta-0)) ext-0)) ((equal? e-5 1) (CoreC-45Core-C-60C-42C-62 (lambda (eta-0) (vector 1 (lambda (eta-1) (vector 1 eta-1)))) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-0 eta-0)) ext-0)) ((equal? e-5 2) (CoreC-45Core-C-60C-42C-62 (lambda (eta-0) (vector 1 (lambda (eta-1) (vector 2 eta-1)))) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_VirtualIdent arg-0 eta-0)) ext-0))(else (LibrariesC-45UtilsC-45Binary-corrupt "OriginDesc" ext-0))))))))) +(define CoreC-45TTC-u--fromBuf_TTC_Namespace (lambda (ext-0 ext-1) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-2 (vector-ref eta-0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-0 1))) (vector 1 (CoreC-45NameC-45Namespace-unsafeFoldNamespace e-5)))))) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-1456 arg-1459))) (lambda (arg-1461) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-1461 eta-1)))) ext-0 eta-0)) ext-1))) +(define CoreC-45TTC-u--fromBuf_TTC_NameType (lambda (arg-0 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-getTag arg-0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (cond ((equal? e-5 0) (vector 1 (vector 0 ))) ((equal? e-5 1) (vector 1 (vector 1 ))) ((equal? e-5 2) (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-0 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (vector 2 e-6 e-7))))))))))) ((equal? e-5 3) (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-0 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (vector 3 e-6 e-7)))))))))))(else (LibrariesC-45UtilsC-45Binary-corrupt "NameType" ext-0))))))))) +(define CoreC-45TTC-u--fromBuf_TTC_Name (lambda (arg-0 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-getTag arg-0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (cond ((equal? e-5 0) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_Namespace arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45TTC-u--fromBuf_TTC_Name arg-0 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (vector 0 e-6 e-7))))))))))) ((equal? e-5 1) (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (vector 1 e-6))))))) ((equal? e-5 2) (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-0 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (vector 2 e-6 e-7))))))))))) ((equal? e-5 3) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_Name arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-0 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (vector 3 e-6 e-7))))))))))) ((equal? e-5 4) (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45TTC-u--fromBuf_TTC_Name arg-0 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (vector 4 e-6 e-7))))))))))) ((equal? e-5 5) (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (vector 5 e-6))))))) ((equal? e-5 6) (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1461 eta-0)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1461 eta-0))))) arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45TTC-u--fromBuf_TTC_Name arg-0 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (vector 6 e-6 e-7))))))))))) ((equal? e-5 7) (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-0 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (vector 7 e-6 e-7))))))))))) ((equal? e-5 8) (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-0 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (vector 8 e-6 e-7)))))))))))(else (LibrariesC-45UtilsC-45Binary-corrupt "Name" ext-0))))))))) +(define CoreC-45TTC-u--fromBuf_TTC_ModuleIdent (lambda (ext-0 ext-1) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-2 (vector-ref eta-0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-0 1))) (vector 1 (CoreC-45NameC-45Namespace-unsafeFoldModuleIdent e-5)))))) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-1456 arg-1459))) (lambda (arg-1461) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-1461 eta-1)))) ext-0 eta-0)) ext-1))) +(define CoreC-45TTC-u--fromBuf_TTC_LazyReason (lambda (arg-0 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-getTag arg-0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (cond ((equal? e-5 0) (vector 1 0)) ((equal? e-5 1) (vector 1 1)) ((equal? e-5 2) (vector 1 2))(else (LibrariesC-45UtilsC-45Binary-corrupt "LazyReason" ext-0))))))))) +(define CoreC-45TTC-u--fromBuf_TTC_HoleInfo (lambda (arg-0 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-getTag arg-0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (cond ((equal? e-5 0) (vector 1 '())) ((equal? e-5 1) (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (box e-6)))))))(else (LibrariesC-45UtilsC-45Binary-corrupt "HoleInfo" ext-0))))))))) +(define CoreC-45TTC-u--fromBuf_TTC_GlobalDef (lambda (arg-0 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_CDef arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_CDef arg-1461 eta-0)))) arg-0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1461) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_Name arg-1458 arg-1461 eta-2)))) (lambda (arg-1461) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1461 eta-2)))) (cons (lambda (arg-1458) (lambda (arg-1461) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Bool arg-1458 arg-1461 eta-2)))) (lambda (arg-1461) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Bool arg-1461 eta-2))))) arg-1457 arg-1460 eta-1)))) (lambda (arg-1461) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_Name arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1462 eta-2)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Bool arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Bool arg-1462 eta-2))))) arg-1461 eta-1)))) arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_Name arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1462 eta-2)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Bool arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Bool arg-1462 eta-2))))) arg-1456 arg-1459 eta-1)))) (lambda (arg-1462) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_Name arg-1456 arg-1459 eta-2)))) (lambda (arg-1463) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1463 eta-2)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Bool arg-1456 arg-1459 eta-2)))) (lambda (arg-1463) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Bool arg-1463 eta-2))))) arg-1462 eta-1)))) arg-1461 eta-0)))) arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((u--refsR (PreludeC-45Types-u--map_Functor_Maybe (lambda (eta-0) (LibrariesC-45DataC-45NameMap-fromList eta-0)) e-6))) (let ((act-26 (CoreC-45TTC-u--fromBuf_TTC_FC arg-0 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (CoreC-45TTC-u--fromBuf_TTC_RigCount arg-0 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (let ((act-28 (CoreC-45TTC-u--fromBuf_TTC_Name arg-0 ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-28 1))) (let ((act-29 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1461) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_Name arg-1458 arg-1461 eta-2)))) (lambda (arg-1461) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1461 eta-2)))) (cons (lambda (arg-1458) (lambda (arg-1461) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Bool arg-1458 arg-1461 eta-2)))) (lambda (arg-1461) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Bool arg-1461 eta-2))))) arg-1457 arg-1460 eta-1)))) (lambda (arg-1461) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_Name arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1462 eta-2)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Bool arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Bool arg-1462 eta-2))))) arg-1461 eta-1)))) arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_Name arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1462 eta-2)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Bool arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Bool arg-1462 eta-2))))) arg-1456 arg-1459 eta-1)))) (lambda (arg-1462) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_Name arg-1456 arg-1459 eta-2)))) (lambda (arg-1463) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1463 eta-2)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Bool arg-1456 arg-1459 eta-2)))) (lambda (arg-1463) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Bool arg-1463 eta-2))))) arg-1462 eta-1)))) arg-1461 eta-0)))) arg-0 ext-0))) (case (vector-ref act-29 0) ((0) (let ((e-2 (vector-ref act-29 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref act-29 1))) (let ((u--refs (PreludeC-45Types-u--map_Functor_Maybe (lambda (eta-0) (LibrariesC-45DataC-45NameMap-fromList eta-0)) e-10))) (let ((act-30 (CoreC-45TTC-u--fromBuf_TTC_Def arg-0 ext-0))) (case (vector-ref act-30 0) ((0) (let ((e-2 (vector-ref act-30 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref act-30 1))) (let ((sc7 (CoreC-45Name-isUserName e-9))) (cond ((equal? sc7 1) (let ((act-31 (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-0 ext-0))) (case (vector-ref act-31 0) ((0) (let ((e-2 (vector-ref act-31 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref act-31 1))) (let ((act-32 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-1461 eta-0)))) arg-0 ext-0))) (case (vector-ref act-32 0) ((0) (let ((e-2 (vector-ref act-32 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref act-32 1))) (let ((act-33 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-1461 eta-0)))) arg-0 ext-0))) (case (vector-ref act-33 0) ((0) (let ((e-2 (vector-ref act-33 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref act-33 1))) (let ((act-34 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-1461 eta-0)))) arg-0 ext-0))) (case (vector-ref act-34 0) ((0) (let ((e-2 (vector-ref act-34 1))) (vector 0 e-2))) (else (let ((e-15 (vector-ref act-34 1))) (let ((act-35 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-1461 eta-0)))) arg-0 ext-0))) (case (vector-ref act-35 0) ((0) (let ((e-2 (vector-ref act-35 1))) (vector 0 e-2))) (else (let ((e-16 (vector-ref act-35 1))) (let ((act-36 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_Name arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1461 eta-0)))) arg-0 ext-0))) (case (vector-ref act-36 0) ((0) (let ((e-2 (vector-ref act-36 1))) (vector 0 e-2))) (else (let ((e-17 (vector-ref act-36 1))) (let ((act-37 (CoreC-45TTC-u--fromBuf_TTC_Visibility arg-0 ext-0))) (case (vector-ref act-37 0) ((0) (let ((e-2 (vector-ref act-37 1))) (vector 0 e-2))) (else (let ((e-18 (vector-ref act-37 1))) (let ((act-38 (CoreC-45TTC-u--fromBuf_TTC_Totality arg-0 ext-0))) (case (vector-ref act-38 0) ((0) (let ((e-2 (vector-ref act-38 1))) (vector 0 e-2))) (else (let ((e-19 (vector-ref act-38 1))) (let ((act-39 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_DefFlag arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_DefFlag arg-1461 eta-0)))) arg-0 ext-0))) (case (vector-ref act-39 0) ((0) (let ((e-2 (vector-ref act-39 1))) (vector 0 e-2))) (else (let ((e-20 (vector-ref act-39 1))) (let ((act-40 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Bool arg-0 ext-0))) (case (vector-ref act-40 0) ((0) (let ((e-2 (vector-ref act-40 1))) (vector 0 e-2))) (else (let ((e-21 (vector-ref act-40 1))) (let ((act-41 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Bool arg-0 ext-0))) (case (vector-ref act-41 0) ((0) (let ((e-2 (vector-ref act-41 1))) (vector 0 e-2))) (else (let ((e-22 (vector-ref act-41 1))) (let ((act-42 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_SCCall arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_SCCall arg-1461 eta-0)))) arg-0 ext-0))) (case (vector-ref act-42 0) ((0) (let ((e-2 (vector-ref act-42 1))) (vector 0 e-2))) (else (let ((e-23 (vector-ref act-42 1))) (vector 1 (vector e-7 e-9 e-12 e-13 e-14 e-15 e-16 e-8 e-17 e-18 e-19 e-20 u--refs u--refsR e-21 e-22 1 e-11 e-5 '() e-23))))))))))))))))))))))))))))))))))))))))))))))))))) (else (vector 1 (vector e-7 e-9 (vector 10 e-7 0) '() '() '() '() e-8 '() 2 (CoreC-45TT-unchecked) '() u--refs u--refsR 0 0 1 e-11 e-5 '() '()))))))))))))))))))))))))))))))))))))) +(define CoreC-45TTC-u--fromBuf_TTC_FC (lambda (arg-0 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-getTag arg-0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (cond ((equal? e-5 0) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_OriginDesc arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1461 eta-0)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1461 eta-0))))) arg-0 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1461 eta-0)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1461 eta-0))))) arg-0 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (vector 1 (vector 0 e-6 e-7 e-8))))))))))))))) ((equal? e-5 1) (vector 1 (vector 2 ))) ((equal? e-5 2) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_OriginDesc arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1461 eta-0)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1461 eta-0))))) arg-0 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1461 eta-0)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1461 eta-0))))) arg-0 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (vector 1 (vector 1 e-6 e-7 e-8)))))))))))))))(else (LibrariesC-45UtilsC-45Binary-corrupt "FC" ext-0))))))))) +(define CoreC-45TTC-u--fromBuf_TTC_DefFlag (lambda (arg-0 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-getTag arg-0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (cond ((equal? e-5 2) (vector 1 (vector 0 ))) ((equal? e-5 3) (vector 1 (vector 1 ))) ((equal? e-5 4) (vector 1 (vector 2 ))) ((equal? e-5 5) (vector 1 (vector 3 ))) ((equal? e-5 6) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_TotalReq arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (vector 4 e-6))))))) ((equal? e-5 7) (vector 1 (vector 5 ))) ((equal? e-5 8) (vector 1 (vector 6 ))) ((equal? e-5 9) (vector 1 (vector 7 '()))) ((equal? e-5 10) (vector 1 (vector 8 ))) ((equal? e-5 11) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_ConInfo arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (vector 9 e-6)))))))(else (LibrariesC-45UtilsC-45Binary-corrupt "DefFlag" ext-0))))))))) +(define CoreC-45TTC-u--fromBuf_TTC_Def (lambda (arg-0 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-getTag arg-0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (cond ((equal? e-5 0) (vector 1 (vector 0 ))) ((equal? e-5 1) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_PMDefInfo arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_Name arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1461 eta-0)))) arg-0 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (CoreC-45TTC-u--fromBuf_TTC_C-40CaseTreeC-32C-36varsC-41 e-7 arg-0 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (let ((act-28 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-40DPairC-32C-36aC-41C-32C-36pC-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1458) (lambda (arg-1461) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_Name arg-1458 arg-1461 eta-2)))) (lambda (arg-1461) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1461 eta-2)))) arg-1457 arg-1460 eta-1)))) (lambda (arg-1461) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_Name arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1462 eta-2)))) arg-1461 eta-1)))) (lambda (u--y) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1461) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_C-40C-40EnvC-32TermC-41C-32C-36varsC-41 u--y arg-1458 arg-1461 eta-2)))) (lambda (arg-1461) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_C-40C-40EnvC-32TermC-41C-32C-36varsC-41 u--y arg-1461 eta-2)))) (cons (lambda (arg-1458) (lambda (arg-1461) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1462) (lambda (arg-1463) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 u--y arg-1462 arg-1463))) (lambda (arg-1462) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 u--y arg-1462 eta-3)))) (cons (lambda (arg-1462) (lambda (arg-1463) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 u--y arg-1462 arg-1463))) (lambda (arg-1462) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 u--y arg-1462 eta-3))))) arg-1458 arg-1461 eta-2)))) (lambda (arg-1461) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1462) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 u--y arg-1458 arg-1462))) (lambda (arg-1462) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 u--y arg-1462 eta-3)))) (cons (lambda (arg-1458) (lambda (arg-1462) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 u--y arg-1458 arg-1462))) (lambda (arg-1462) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 u--y arg-1462 eta-3))))) arg-1461 eta-2))))) arg-1457 arg-1460 eta-1)))) (lambda (arg-1461) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_C-40C-40EnvC-32TermC-41C-32C-36varsC-41 u--y arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_C-40C-40EnvC-32TermC-41C-32C-36varsC-41 u--y arg-1462 eta-2)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1462) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 u--y arg-1458 arg-1462))) (lambda (arg-1462) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 u--y arg-1462 eta-3)))) (cons (lambda (arg-1458) (lambda (arg-1462) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 u--y arg-1458 arg-1462))) (lambda (arg-1462) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 u--y arg-1462 eta-3))))) arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 u--y arg-1457 arg-1460))) (lambda (arg-1463) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 u--y arg-1463 eta-3)))) (cons (lambda (arg-1457) (lambda (arg-1460) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 u--y arg-1457 arg-1460))) (lambda (arg-1463) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 u--y arg-1463 eta-3))))) arg-1462 eta-2))))) arg-1461 eta-1)))))) arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-40DPairC-32C-36aC-41C-32C-36pC-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_Name arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1462 eta-2)))) arg-1456 arg-1459 eta-1)))) (lambda (arg-1462) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_Name arg-1456 arg-1459 eta-2)))) (lambda (arg-1463) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1463 eta-2)))) arg-1462 eta-1)))) (lambda (u--y) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_C-40C-40EnvC-32TermC-41C-32C-36varsC-41 u--y arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_C-40C-40EnvC-32TermC-41C-32C-36varsC-41 u--y arg-1462 eta-2)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1462) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 u--y arg-1458 arg-1462))) (lambda (arg-1462) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 u--y arg-1462 eta-3)))) (cons (lambda (arg-1458) (lambda (arg-1462) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 u--y arg-1458 arg-1462))) (lambda (arg-1462) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 u--y arg-1462 eta-3))))) arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 u--y arg-1457 arg-1460))) (lambda (arg-1463) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 u--y arg-1463 eta-3)))) (cons (lambda (arg-1457) (lambda (arg-1460) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 u--y arg-1457 arg-1460))) (lambda (arg-1463) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 u--y arg-1463 eta-3))))) arg-1462 eta-2))))) arg-1456 arg-1459 eta-1)))) (lambda (arg-1462) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_C-40C-40EnvC-32TermC-41C-32C-36varsC-41 u--y arg-1456 arg-1459 eta-2)))) (lambda (arg-1463) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_C-40C-40EnvC-32TermC-41C-32C-36varsC-41 u--y arg-1463 eta-2)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 u--y arg-1457 arg-1460))) (lambda (arg-1463) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 u--y arg-1463 eta-3)))) (cons (lambda (arg-1457) (lambda (arg-1460) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 u--y arg-1457 arg-1460))) (lambda (arg-1463) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 u--y arg-1463 eta-3))))) arg-1456 arg-1459 eta-2)))) (lambda (arg-1463) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 u--y arg-1456 arg-1459))) (lambda (arg-1464) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 u--y arg-1464 eta-3)))) (cons (lambda (arg-1456) (lambda (arg-1459) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 u--y arg-1456 arg-1459))) (lambda (arg-1464) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 u--y arg-1464 eta-3))))) arg-1463 eta-2))))) arg-1462 eta-1)))))) arg-1461 eta-0)))) arg-0 ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-28 1))) (vector 1 (vector 1 e-6 e-7 e-8 (vector 2 "") e-9))))))))))))))))))) ((equal? e-5 2) (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (vector 2 e-6))))))) ((equal? e-5 3) (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-1456 arg-1459))) (lambda (arg-1461) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-1461 eta-0)))) arg-0 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (vector 3 e-6 e-7))))))))))) ((equal? e-5 4) (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-0 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Bool arg-1457 arg-1460 eta-1)))) (lambda (arg-1461) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Bool arg-1461 eta-1)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-1457 arg-1460 eta-1)))) (lambda (arg-1461) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-1461 eta-1))))) arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Bool arg-1456 arg-1459 eta-1)))) (lambda (arg-1462) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Bool arg-1462 eta-1)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-1456 arg-1459 eta-1)))) (lambda (arg-1462) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-1462 eta-1))))) arg-1461 eta-0)))) arg-0 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (vector 1 (vector 5 e-6 e-7 e-8))))))))))))))) ((equal? e-5 5) (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-0 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-1461 eta-0)))) arg-0 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (let ((act-28 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-1461 eta-0)))) arg-0 ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-28 1))) (let ((act-29 (CoreC-45TTC-u--fromBuf_TTC_TypeFlags arg-0 ext-0))) (case (vector-ref act-29 0) ((0) (let ((e-2 (vector-ref act-29 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref act-29 1))) (let ((act-30 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_Name arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1461 eta-0)))) arg-0 ext-0))) (case (vector-ref act-30 0) ((0) (let ((e-2 (vector-ref act-30 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref act-30 1))) (let ((act-31 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_Name arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1461 eta-0)))) arg-0 ext-0))) (case (vector-ref act-31 0) ((0) (let ((e-2 (vector-ref act-31 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref act-31 1))) (let ((act-32 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-1457 arg-1460 eta-1)))) (lambda (arg-1461) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-1461 eta-1)))) arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-1456 arg-1459 eta-1)))) (lambda (arg-1462) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-1462 eta-1)))) arg-1461 eta-0)))) arg-0 ext-0))) (case (vector-ref act-32 0) ((0) (let ((e-2 (vector-ref act-32 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref act-32 1))) (vector 1 (vector 6 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13))))))))))))))))))))))))))))))))))) ((equal? e-5 6) (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Bool arg-0 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (vector 7 e-6 (CoreC-45Context-holeInit e-7)))))))))))) ((equal? e-5 7) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_RigCount arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-0 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (CoreC-45TTC-u--fromBuf_TTC_Name arg-0 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (vector 1 (vector 8 e-6 e-7 e-8))))))))))))))) ((equal? e-5 8) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-0 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1461 eta-0)))) arg-0 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (vector 1 (vector 9 e-6 e-7 e-8))))))))))))))) ((equal? e-5 9) (vector 1 (vector 10 ))) ((equal? e-5 10) (vector 1 (vector 11 )))(else (LibrariesC-45UtilsC-45Binary-corrupt "Def" ext-0))))))))) +(define CoreC-45TTC-u--fromBuf_TTC_Covering (lambda (arg-0 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-getTag arg-0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (cond ((equal? e-5 0) (vector 1 (vector 0 ))) ((equal? e-5 1) (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-1456 arg-1459))) (lambda (arg-1461) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-1461 eta-0)))) arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (vector 1 e-6))))))) ((equal? e-5 2) (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_Name arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1461 eta-0)))) arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (vector 2 e-6)))))))(else (LibrariesC-45UtilsC-45Binary-corrupt "Covering" ext-0))))))))) +(define CoreC-45TTC-u--fromBuf_TTC_Constant (lambda (arg-0 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-getTag arg-0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (cond ((equal? e-5 0) (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (vector 0 e-6))))))) ((equal? e-5 1) (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Integer arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (vector 5 e-6))))))) ((equal? e-5 2) (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (vector 6 e-6))))))) ((equal? e-5 3) (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (vector 7 e-6))))))) ((equal? e-5 4) (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (vector 8 e-6))))))) ((equal? e-5 5) (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Integer arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (vector 9 e-6))))))) ((equal? e-5 6) (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (vector 10 e-6))))))) ((equal? e-5 7) (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Char arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (vector 11 e-6))))))) ((equal? e-5 8) (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Double arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (vector 12 e-6))))))) ((equal? e-5 9) (vector 1 (vector 13 ))) ((equal? e-5 10) (vector 1 (vector 14 ))) ((equal? e-5 11) (vector 1 (vector 19 ))) ((equal? e-5 12) (vector 1 (vector 20 ))) ((equal? e-5 13) (vector 1 (vector 21 ))) ((equal? e-5 14) (vector 1 (vector 22 ))) ((equal? e-5 15) (vector 1 (vector 23 ))) ((equal? e-5 16) (vector 1 (vector 24 ))) ((equal? e-5 17) (vector 1 (vector 25 ))) ((equal? e-5 18) (vector 1 (vector 26 ))) ((equal? e-5 19) (vector 1 (vector 27 ))) ((equal? e-5 20) (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Integer arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (vector 3 e-6))))))) ((equal? e-5 21) (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Integer arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (vector 4 e-6))))))) ((equal? e-5 22) (vector 1 (vector 17 ))) ((equal? e-5 23) (vector 1 (vector 18 ))) ((equal? e-5 24) (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Integer arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (vector 1 e-6))))))) ((equal? e-5 25) (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Integer arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (vector 2 e-6))))))) ((equal? e-5 26) (vector 1 (vector 15 ))) ((equal? e-5 27) (vector 1 (vector 16 )))(else (LibrariesC-45UtilsC-45Binary-corrupt "Constant" ext-0))))))))) +(define CoreC-45TTC-u--fromBuf_TTC_ConInfo (lambda (arg-0 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-getTag arg-0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (cond ((equal? e-5 0) (vector 1 0)) ((equal? e-5 1) (vector 1 1)) ((equal? e-5 2) (vector 1 2)) ((equal? e-5 3) (vector 1 3)) ((equal? e-5 4) (vector 1 4)) ((equal? e-5 5) (vector 1 5)) ((equal? e-5 6) (vector 1 6)) ((equal? e-5 7) (vector 1 7))(else (LibrariesC-45UtilsC-45Binary-corrupt "ConInfo" ext-0))))))))) +(define CoreC-45TTC-u--fromBuf_TTC_CG (lambda (arg-0 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-getTag arg-0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (cond ((equal? e-5 0) (vector 1 (vector 0 ))) ((equal? e-5 1) (vector 1 (vector 1 ))) ((equal? e-5 2) (vector 1 (vector 2 ))) ((equal? e-5 3) (vector 1 (vector 3 ))) ((equal? e-5 4) (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (vector 7 e-6))))))) ((equal? e-5 5) (vector 1 (vector 4 ))) ((equal? e-5 6) (vector 1 (vector 5 ))) ((equal? e-5 7) (vector 1 (vector 6 )))(else (LibrariesC-45UtilsC-45Binary-corrupt "CG" ext-0))))))))) +(define CoreC-45TTC-u--fromBuf_TTC_CFType (lambda (arg-0 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-getTag arg-0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (cond ((equal? e-5 0) (vector 1 (vector 0 ))) ((equal? e-5 1) (vector 1 (vector 1 ))) ((equal? e-5 2) (vector 1 (vector 6 ))) ((equal? e-5 3) (vector 1 (vector 7 ))) ((equal? e-5 4) (vector 1 (vector 8 ))) ((equal? e-5 5) (vector 1 (vector 9 ))) ((equal? e-5 6) (vector 1 (vector 10 ))) ((equal? e-5 7) (vector 1 (vector 11 ))) ((equal? e-5 8) (vector 1 (vector 12 ))) ((equal? e-5 9) (vector 1 (vector 13 ))) ((equal? e-5 10) (vector 1 (vector 16 ))) ((equal? e-5 11) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_CFType arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45TTC-u--fromBuf_TTC_CFType arg-0 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (vector 17 e-6 e-7))))))))))) ((equal? e-5 12) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_CFType arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (vector 18 e-6))))))) ((equal? e-5 13) (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-1457 arg-1460))) (lambda (arg-1461) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-1461 eta-1)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_CFType arg-1457 arg-1460 eta-1)))) (lambda (arg-1461) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_CFType arg-1461 eta-1))))) arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-1456 arg-1459))) (lambda (arg-1462) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-1462 eta-1)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_CFType arg-1456 arg-1459 eta-1)))) (lambda (arg-1462) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_CFType arg-1462 eta-1))))) arg-1461 eta-0)))) arg-0 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (vector 19 e-6 e-7))))))))))) ((equal? e-5 14) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_Name arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_CFType arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_CFType arg-1461 eta-0)))) arg-0 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (vector 20 e-6 e-7))))))))))) ((equal? e-5 15) (vector 1 (vector 14 ))) ((equal? e-5 16) (vector 1 (vector 15 ))) ((equal? e-5 17) (vector 1 (vector 2 ))) ((equal? e-5 18) (vector 1 (vector 3 ))) ((equal? e-5 19) (vector 1 (vector 4 ))) ((equal? e-5 20) (vector 1 (vector 5 )))(else (LibrariesC-45UtilsC-45Binary-corrupt "CFType" ext-0))))))))) +(define CoreC-45TTC-u--fromBuf_TTC_CDef (lambda (arg-0 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-getTag arg-0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (cond ((equal? e-5 0) (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_Name arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1461 eta-0)))) arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45TTC-u--fromBuf_TTC_C-40CExpC-32C-36varsC-41 e-6 arg-0 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (vector 0 e-6 e-7))))))))))) ((equal? e-5 1) (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1461 eta-0)))) arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-0 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-1461 eta-0)))) arg-0 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (vector 1 (vector 1 e-6 e-7 e-8))))))))))))))) ((equal? e-5 2) (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-1456 arg-1459))) (lambda (arg-1461) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-1461 eta-0)))) arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_CFType arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_CFType arg-1461 eta-0)))) arg-0 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (CoreC-45TTC-u--fromBuf_TTC_CFType arg-0 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (vector 1 (vector 2 e-6 e-7 e-8))))))))))))))) ((equal? e-5 3) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_C-40CExpC-32C-36varsC-41 '() arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (vector 3 e-6)))))))(else (LibrariesC-45UtilsC-45Binary-corrupt "CDef" ext-0))))))))) +(define CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 (lambda (arg-0 arg-1 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-getTag arg-1 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (cond ((equal? e-5 0) (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Bool arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Bool arg-1461 eta-0)))) arg-1 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-1 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 ((PreludeC-45Types-maybe (lambda () (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-corrupt "Term" eta-0))) (lambda () (lambda (eta-0) (lambda (eta-1) (vector 1 eta-0)))) (CoreC-45TTC-getName e-7 arg-0)) ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (vector 1 (vector 0 (CoreC-45FC-emptyFC) e-6 e-7)))))))))))))) ((equal? e-5 1) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_NameType arg-1 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45TTC-u--fromBuf_TTC_Name arg-1 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (vector 1 (CoreC-45FC-emptyFC) e-6 e-7))))))))))) ((equal? e-5 2) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_Name arg-1 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 arg-0 arg-1456 arg-1459))) (lambda (arg-1461) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 arg-0 arg-1461 eta-0)))) arg-1 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (vector 2 (CoreC-45FC-emptyFC) e-6 0 e-7))))))))))) ((equal? e-5 3) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_Name arg-1 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45TTC-u--fromBuf_TTC_C-40BinderC-32C-40TermC-32C-36varsC-41C-41 arg-0 arg-1 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 (cons e-6 arg-0) arg-1 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (vector 1 (vector 3 (CoreC-45FC-emptyFC) e-6 e-7 e-8))))))))))))))) ((equal? e-5 4) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 arg-0 arg-1 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 arg-0 arg-1 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (vector 4 (CoreC-45FC-emptyFC) e-6 e-7))))))))))) ((equal? e-5 5) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 arg-0 arg-1 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45TTC-u--fromBuf_TTC_UseSide arg-1 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 arg-0 arg-1 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (vector 1 (vector 5 (CoreC-45FC-emptyFC) e-7 e-6 e-8))))))))))))))) ((equal? e-5 6) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_LazyReason arg-1 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 arg-0 arg-1 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (vector 6 (CoreC-45FC-emptyFC) e-6 e-7))))))))))) ((equal? e-5 7) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_LazyReason arg-1 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 arg-0 arg-1 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 arg-0 arg-1 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (vector 1 (vector 7 (CoreC-45FC-emptyFC) e-6 e-7 e-8))))))))))))))) ((equal? e-5 8) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_LazyReason arg-1 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 arg-0 arg-1 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (vector 8 (CoreC-45FC-emptyFC) e-6 e-7))))))))))) ((equal? e-5 9) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_Constant arg-1 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (vector 9 (CoreC-45FC-emptyFC) e-6))))))) ((equal? e-5 10) (vector 1 (vector 10 (CoreC-45FC-emptyFC) 0))) ((equal? e-5 11) (vector 1 (vector 11 (CoreC-45FC-emptyFC)))) ((equal? e-5 12) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 arg-0 arg-1 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 arg-0 arg-1456 arg-1459))) (lambda (arg-1461) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 arg-0 arg-1461 eta-0)))) arg-1 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (CoreC-45TT-apply (CoreC-45FC-emptyFC) e-6 e-7)))))))))))(else (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Bool arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Bool arg-1461 eta-0)))) arg-1 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((u--idx (PreludeC-45Types-u--fromInteger_Num_Nat (PreludeC-45Cast-u--cast_Cast_Int_Integer (PreludeC-45Num-u--C-45_Neg_Int e-5 13))))) (let ((sc2 (CoreC-45TTC-getName u--idx arg-0))) (if (null? sc2) (LibrariesC-45UtilsC-45Binary-corrupt "Term" ext-0) (vector 1 (vector 0 (CoreC-45FC-emptyFC) e-6 u--idx))))))))))))))))) +(define CoreC-45TTC-u--fromBuf_TTC_C-40PrimFnC-32C-36nC-41 (lambda (arg-0 arg-1) (cond ((equal? arg-0 0) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-corrupt "PrimFn" eta-0)))(else (let ((e-0 (- arg-0 1))) (cond ((equal? e-0 0) (lambda (eta-0) (CoreC-45TTC-n--11045-5825-u--fromBuf1 arg-1 arg-0 eta-0)))(else (let ((e-1 (- e-0 1))) (cond ((equal? e-1 0) (lambda (eta-0) (CoreC-45TTC-n--11045-5826-u--fromBuf2 arg-1 arg-0 eta-0)))(else (let ((e-2 (- e-1 1))) (lambda (clam-0) (cond ((equal? e-2 0) (CoreC-45TTC-n--11045-5827-u--fromBuf3 arg-1 arg-0 clam-0))(else (LibrariesC-45UtilsC-45Binary-corrupt "PrimFn" clam-0))))))))))))))) +(define CoreC-45TTC-u--fromBuf_TTC_C-40PiInfoC-32C-36tC-41 (lambda (arg-1 arg-2 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-getTag arg-2 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (cond ((equal? e-5 0) (vector 1 (vector 0 ))) ((equal? e-5 1) (vector 1 (vector 1 ))) ((equal? e-5 2) (vector 1 (vector 2 ))) ((equal? e-5 3) (let ((act-25 (let ((e-2 (cdr arg-1))) ((e-2 arg-2) ext-0)))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (vector 3 e-6)))))))(else (LibrariesC-45UtilsC-45Binary-corrupt "PiInfo" ext-0))))))))) +(define CoreC-45TTC-u--fromBuf_TTC_C-40CaseTreeC-32C-36varsC-41 (lambda (arg-0 arg-1 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-getTag arg-1 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (cond ((equal? e-5 0) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_Name arg-1 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-1 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_C-40CaseAltC-32C-36varsC-41 arg-0 arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_C-40CaseAltC-32C-36varsC-41 arg-0 arg-1461 eta-0)))) arg-1 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (vector 1 (vector 0 e-6 e-7 (vector 10 (CoreC-45FC-emptyFC) 0) e-8))))))))))))))) ((equal? e-5 1) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 arg-0 arg-1 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (vector 1 0 e-6))))))) ((equal? e-5 2) (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-1 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (vector 2 e-6))))))) ((equal? e-5 3) (vector 1 (vector 3 )))(else (LibrariesC-45UtilsC-45Binary-corrupt "CaseTree" ext-0))))))))) +(define CoreC-45TTC-u--fromBuf_TTC_C-40CaseAltC-32C-36varsC-41 (lambda (arg-0 arg-1 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-getTag arg-1 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (cond ((equal? e-5 0) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_Name arg-1 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_Name arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1461 eta-0)))) arg-1 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (let ((act-28 (CoreC-45TTC-u--fromBuf_TTC_C-40CaseTreeC-32C-36varsC-41 (PreludeC-45TypesC-45List-C-43C-43 e-8 arg-0) arg-1 ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-28 1))) (vector 1 (vector 0 e-6 e-7 e-8 e-9))))))))))))))))))) ((equal? e-5 1) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_Name arg-1 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45TTC-u--fromBuf_TTC_Name arg-1 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (CoreC-45TTC-u--fromBuf_TTC_C-40CaseTreeC-32C-36varsC-41 (cons e-6 (cons e-7 arg-0)) arg-1 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (vector 1 (vector 1 e-6 e-7 e-8))))))))))))))) ((equal? e-5 2) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_Constant arg-1 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45TTC-u--fromBuf_TTC_C-40CaseTreeC-32C-36varsC-41 arg-0 arg-1 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (vector 2 e-6 e-7))))))))))) ((equal? e-5 3) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_C-40CaseTreeC-32C-36varsC-41 arg-0 arg-1 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (vector 3 e-6)))))))(else (LibrariesC-45UtilsC-45Binary-corrupt "CaseAlt" ext-0))))))))) +(define CoreC-45TTC-u--fromBuf_TTC_C-40CExpC-32C-36varsC-41 (lambda (arg-0 arg-1 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-getTag arg-1 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (cond ((equal? e-5 0) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_FC arg-1 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-1 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((sc4 (CoreC-45TTC-getName e-7 arg-0))) (if (null? sc4) (LibrariesC-45UtilsC-45Binary-corrupt "CExp" ext-0) (vector 1 (vector 0 e-7 e-6))))))))))))) ((equal? e-5 1) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_FC arg-1 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45TTC-u--fromBuf_TTC_Name arg-1 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (vector 1 e-6 e-7))))))))))) ((equal? e-5 2) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_FC arg-1 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45TTC-u--fromBuf_TTC_Name arg-1 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (CoreC-45TTC-u--fromBuf_TTC_C-40CExpC-32C-36varsC-41 (cons e-7 arg-0) arg-1 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (vector 1 (vector 2 e-6 e-7 e-8))))))))))))))) ((equal? e-5 3) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_FC arg-1 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45TTC-u--fromBuf_TTC_Name arg-1 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Bool arg-1 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (let ((act-28 (CoreC-45TTC-u--fromBuf_TTC_C-40CExpC-32C-36varsC-41 arg-0 arg-1 ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-28 1))) (let ((act-29 (CoreC-45TTC-u--fromBuf_TTC_C-40CExpC-32C-36varsC-41 (cons e-7 arg-0) arg-1 ext-0))) (case (vector-ref act-29 0) ((0) (let ((e-2 (vector-ref act-29 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref act-29 1))) (vector 1 (vector 3 e-6 e-7 e-8 e-9 e-10))))))))))))))))))))))) ((equal? e-5 4) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_FC arg-1 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45TTC-u--fromBuf_TTC_C-40CExpC-32C-36varsC-41 arg-0 arg-1 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_C-40CExpC-32C-36varsC-41 arg-0 arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_C-40CExpC-32C-36varsC-41 arg-0 arg-1461 eta-0)))) arg-1 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (vector 1 (vector 4 e-6 e-7 e-8))))))))))))))) ((equal? e-5 5) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_FC arg-1 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45TTC-u--fromBuf_TTC_Name arg-1 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (CoreC-45TTC-u--fromBuf_TTC_ConInfo arg-1 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (let ((act-28 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1461 eta-0)))) arg-1 ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-28 1))) (let ((act-29 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_C-40CExpC-32C-36varsC-41 arg-0 arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_C-40CExpC-32C-36varsC-41 arg-0 arg-1461 eta-0)))) arg-1 ext-0))) (case (vector-ref act-29 0) ((0) (let ((e-2 (vector-ref act-29 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref act-29 1))) (vector 1 (vector 5 e-6 e-7 e-8 e-9 e-10))))))))))))))))))))))) ((equal? e-5 6) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_FC arg-1 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-1 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 ((CoreC-45TTC-u--fromBuf_TTC_C-40PrimFnC-32C-36nC-41 e-7 arg-1) ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (let ((act-28 ((LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-40VectC-32C-36nC-41C-32C-36aC-41 e-7 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_C-40CExpC-32C-36varsC-41 arg-0 arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_C-40CExpC-32C-36varsC-41 arg-0 arg-1461 eta-0)))) arg-1) ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-28 1))) (vector 1 (vector 6 e-7 e-6 e-8 e-9))))))))))))))))))) ((equal? e-5 7) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_FC arg-1 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45TTC-u--fromBuf_TTC_Name arg-1 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_C-40CExpC-32C-36varsC-41 arg-0 arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_C-40CExpC-32C-36varsC-41 arg-0 arg-1461 eta-0)))) arg-1 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (vector 1 (vector 7 e-6 e-7 e-8))))))))))))))) ((equal? e-5 8) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_FC arg-1 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45TTC-u--fromBuf_TTC_LazyReason arg-1 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (CoreC-45TTC-u--fromBuf_TTC_C-40CExpC-32C-36varsC-41 arg-0 arg-1 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (vector 1 (vector 8 e-6 e-7 e-8))))))))))))))) ((equal? e-5 9) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_FC arg-1 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45TTC-u--fromBuf_TTC_LazyReason arg-1 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (CoreC-45TTC-u--fromBuf_TTC_C-40CExpC-32C-36varsC-41 arg-0 arg-1 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (vector 1 (vector 9 e-6 e-7 e-8))))))))))))))) ((equal? e-5 10) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_FC arg-1 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45TTC-u--fromBuf_TTC_C-40CExpC-32C-36varsC-41 arg-0 arg-1 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_C-40CConAltC-32C-36varsC-41 arg-0 arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_C-40CConAltC-32C-36varsC-41 arg-0 arg-1461 eta-0)))) arg-1 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (let ((act-28 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_C-40CExpC-32C-36varsC-41 arg-0 arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_C-40CExpC-32C-36varsC-41 arg-0 arg-1461 eta-0)))) arg-1 ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-28 1))) (vector 1 (vector 10 e-6 e-7 e-8 e-9))))))))))))))))))) ((equal? e-5 11) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_FC arg-1 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45TTC-u--fromBuf_TTC_C-40CExpC-32C-36varsC-41 arg-0 arg-1 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_C-40CConstAltC-32C-36varsC-41 arg-0 arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_C-40CConstAltC-32C-36varsC-41 arg-0 arg-1461 eta-0)))) arg-1 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (let ((act-28 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_C-40CExpC-32C-36varsC-41 arg-0 arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_C-40CExpC-32C-36varsC-41 arg-0 arg-1461 eta-0)))) arg-1 ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-28 1))) (vector 1 (vector 11 e-6 e-7 e-8 e-9))))))))))))))))))) ((equal? e-5 12) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_FC arg-1 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45TTC-u--fromBuf_TTC_Constant arg-1 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (vector 12 e-6 e-7))))))))))) ((equal? e-5 13) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_FC arg-1 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (vector 13 e-6))))))) ((equal? e-5 14) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_FC arg-1 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-1 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (vector 14 e-6 e-7)))))))))))(else (LibrariesC-45UtilsC-45Binary-corrupt "CExp" ext-0))))))))) +(define CoreC-45TTC-u--fromBuf_TTC_C-40CConstAltC-32C-36varsC-41 (lambda (arg-0 arg-1 ext-0) (let ((act-24 (CoreC-45TTC-u--fromBuf_TTC_Constant arg-1 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_C-40CExpC-32C-36varsC-41 arg-0 arg-1 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (cons e-5 e-6)))))))))))) +(define CoreC-45TTC-u--fromBuf_TTC_C-40CConAltC-32C-36varsC-41 (lambda (arg-0 arg-1 ext-0) (let ((act-24 (CoreC-45TTC-u--fromBuf_TTC_Name arg-1 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_ConInfo arg-1 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1461 eta-0)))) arg-1 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_Name arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1461 eta-0)))) arg-1 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (let ((act-28 (CoreC-45TTC-u--fromBuf_TTC_C-40CExpC-32C-36varsC-41 (PreludeC-45TypesC-45List-C-43C-43 e-8 arg-0) arg-1 ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-28 1))) (vector 1 (vector e-5 e-6 e-7 e-8 e-9)))))))))))))))))))))))) +(define CoreC-45TTC-u--fromBuf_TTC_C-40BinderC-32C-40TermC-32C-36varsC-41C-41 (lambda (arg-0 arg-1 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-getTag arg-1 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (cond ((equal? e-5 0) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_RigCount arg-1 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45TTC-u--fromBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 arg-0 arg-1456 arg-1459))) (lambda (arg-1461) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 arg-0 arg-1461 eta-0)))) arg-1 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 arg-0 arg-1 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (vector 1 (vector 0 (CoreC-45FC-emptyFC) e-6 e-7 e-8))))))))))))))) ((equal? e-5 1) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_RigCount arg-1 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 arg-0 arg-1 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (vector 1 (CoreC-45FC-emptyFC) e-6 e-7 (vector 10 (CoreC-45FC-emptyFC) 0)))))))))))) ((equal? e-5 2) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_RigCount arg-1 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45TTC-u--fromBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 arg-0 arg-1456 arg-1459))) (lambda (arg-1461) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 arg-0 arg-1461 eta-0)))) arg-1 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 arg-0 arg-1 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (vector 1 (vector 2 (CoreC-45FC-emptyFC) e-6 e-7 e-8))))))))))))))) ((equal? e-5 3) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_RigCount arg-1 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45TTC-u--fromBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 arg-0 arg-1456 arg-1459))) (lambda (arg-1461) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 arg-0 arg-1461 eta-0)))) arg-1 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 arg-0 arg-1 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (vector 1 (vector 3 (CoreC-45FC-emptyFC) e-6 e-7 e-8))))))))))))))) ((equal? e-5 4) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_RigCount arg-1 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 arg-0 arg-1 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (vector 4 (CoreC-45FC-emptyFC) e-6 e-7 (vector 10 (CoreC-45FC-emptyFC) 0)))))))))))) ((equal? e-5 5) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_RigCount arg-1 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (vector 5 (CoreC-45FC-emptyFC) e-6 (vector 10 (CoreC-45FC-emptyFC) 0))))))))(else (LibrariesC-45UtilsC-45Binary-corrupt "Binder" ext-0))))))))) +(define CoreC-45TTC-u--fromBuf_TTC_C-40C-40EnvC-32TermC-41C-32C-36varsC-41 (lambda (arg-0 arg-1 ext-0) (if (null? arg-0) (vector 1 '()) (let ((e-3 (cdr arg-0))) (let ((act-24 (CoreC-45TTC-u--fromBuf_TTC_C-40BinderC-32C-40TermC-32C-36varsC-41C-41 e-3 arg-1 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_C-40C-40EnvC-32TermC-41C-32C-36varsC-41 e-3 arg-1 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (cons e-5 e-6)))))))))))))) +(define CoreC-45TTC-getName (lambda (arg-0 arg-1) (cond ((equal? arg-0 0) (if (null? arg-1) '() (let ((e-3 (car arg-1))) (box e-3))))(else (let ((e-1 (- arg-0 1))) (if (null? arg-1) '() (let ((e-7 (cdr arg-1))) (CoreC-45TTC-getName e-1 e-7)))))))) +(define CoreC-45Context-decode (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (case (vector-ref arg-3 0) ((0) (let ((e-0 (vector-ref arg-3 1))) (let ((e-1 (vector-ref arg-3 2))) (let ((act-24 (CoreC-45Core-newRef (vector "Libraries.Utils.Binary.Bin" ) e-1 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_GlobalDef e-5 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((u--a (CoreC-45Context-getContent arg-0))) (let ((act-26 (let ((act-26 (unbox u--a))) (vector 1 act-26)))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (CoreC-45Context-u--resolved_HasNames_GlobalDef arg-0 (CoreC-45Context-u--restoreNS_StripNamespace_GlobalDef e-0 e-6) ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (let ((act-28 (cond ((equal? arg-2 1) (let ((act-28 ((DataC-45IOArray-writeArray (cons (vector (vector (lambda (u--b) (lambda (a-0) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (a-0) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (a-0) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (a-0) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-28 (arg-811 eta-0))) ((arg-812 act-28) eta-0))))))) (lambda (a-0) (lambda (arg-814) (lambda (eta-0) (let ((act-51 (arg-814 eta-0))) (act-51 eta-0)))))) (lambda (a-0) (lambda (arg-6881) arg-6881))) e-7 arg-1 (vector 1 e-8)) ext-0))) (vector 1 act-28))) (else (vector 1 0))))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (vector 1 e-8)))))))))))))))))))))))) (else (let ((e-2 (vector-ref arg-3 1))) (vector 1 e-2)))))) +(define CoreC-45Options-u--show_Show_CG (lambda (arg-0) (case (vector-ref arg-0 0) ((0) "chez") ((1) "chez-sep") ((2) "racket") ((3) "gambit") ((4) "node") ((5) "javascript") ((6) "refc") (else (let ((e-0 (vector-ref arg-0 1))) e-0))))) +(define CoreC-45Options-u--showPrec_Show_CG (lambda (arg-0 arg-1) (CoreC-45Options-u--show_Show_CG arg-1))) +(define CoreC-45Options-u--C-61C-61_Eq_LangExt (lambda (arg-0 arg-1) (cond ((equal? arg-0 0) (cond ((equal? arg-1 0) 1)(else 0))) ((equal? arg-0 1) (cond ((equal? arg-1 1) 1)(else 0)))(else 0)))) +(define CoreC-45Options-u--C-61C-61_Eq_CG (lambda (arg-0 arg-1) (case (vector-ref arg-0 0) ((0) (case (vector-ref arg-1 0) ((0) 1)(else 0))) ((1) (case (vector-ref arg-1 0) ((1) 1)(else 0))) ((2) (case (vector-ref arg-1 0) ((2) 1)(else 0))) ((3) (case (vector-ref arg-1 0) ((3) 1)(else 0))) ((4) (case (vector-ref arg-1 0) ((4) 1)(else 0))) ((5) (case (vector-ref arg-1 0) ((5) 1)(else 0))) ((6) (case (vector-ref arg-1 0) ((6) 1)(else 0))) ((7) (let ((e-0 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((7) (let ((e-1 (vector-ref arg-1 1))) (PreludeC-45EqOrd-u--C-61C-61_Eq_String e-0 e-1)))(else 0))))(else 0)))) +(define CoreC-45Options-u--C-47C-61_Eq_LangExt (lambda (arg-0 arg-1) (let ((sc0 (CoreC-45Options-u--C-61C-61_Eq_LangExt arg-0 arg-1))) (cond ((equal? sc0 1) 0) (else 1))))) +(define CoreC-45Options-u--C-47C-61_Eq_CG (lambda (arg-0 arg-1) (let ((sc0 (CoreC-45Options-u--C-61C-61_Eq_CG arg-0 arg-1))) (cond ((equal? sc0 1) 0) (else 1))))) +(define CoreC-45Options-toString (lambda (arg-0) (let ((e-0 (vector-ref arg-0 0))) (let ((e-1 (vector-ref arg-0 1))) (let ((e-2 (vector-ref arg-0 2))) (let ((e-3 (vector-ref arg-0 3))) (let ((e-5 (vector-ref arg-0 5))) (let ((e-6 (vector-ref arg-0 6))) (let ((e-7 (vector-ref arg-0 7))) (let ((e-8 (vector-ref arg-0 8))) (let ((e-9 (vector-ref arg-0 9))) (DataC-45String-fastUnlines (cons (PreludeC-45TypesC-45String-C-43C-43 "+ Working Directory :: " (PreludeC-45Show-u--show_Show_String e-0)) (cons (PreludeC-45TypesC-45String-C-43C-43 "+ Source Directory :: " (PreludeC-45Show-u--show_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_String u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_String u--d u--x)))) e-1)) (cons (PreludeC-45TypesC-45String-C-43C-43 "+ Build Directory :: " (PreludeC-45Show-u--show_Show_String e-2)) (cons (PreludeC-45TypesC-45String-C-43C-43 "+ Local Depend Directory :: " (PreludeC-45Show-u--show_Show_String e-3)) (cons (PreludeC-45TypesC-45String-C-43C-43 "+ Output Directory :: " (PreludeC-45Show-u--show_Show_String (CoreC-45Options-outputDirWithDefault arg-0))) (cons (PreludeC-45TypesC-45String-C-43C-43 "+ Installation Prefix :: " (PreludeC-45Show-u--show_Show_String e-5)) (cons (PreludeC-45TypesC-45String-C-43C-43 "+ Extra Directories :: " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_String u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_String u--d u--x)))) e-6)) (cons (PreludeC-45TypesC-45String-C-43C-43 "+ Package Directories :: " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_String u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_String u--d u--x)))) e-7)) (cons (PreludeC-45TypesC-45String-C-43C-43 "+ CG Library Directories :: " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_String u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_String u--d u--x)))) e-8)) (cons (PreludeC-45TypesC-45String-C-43C-43 "+ Data Directories :: " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_String u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_String u--d u--x)))) e-9)) '())))))))))))))))))))))) +(define CoreC-45Options-setRewrite (lambda (arg-0 arg-1 ext-0) (let ((e-0 (vector-ref ext-0 0))) (let ((e-1 (vector-ref ext-0 1))) (let ((e-2 (vector-ref ext-0 2))) (let ((e-3 (vector-ref ext-0 3))) (let ((e-4 (vector-ref ext-0 4))) (let ((e-6 (vector-ref ext-0 6))) (let ((e-7 (vector-ref ext-0 7))) (let ((e-8 (vector-ref ext-0 8))) (vector e-0 e-1 e-2 e-3 e-4 (box (cons arg-0 arg-1)) e-6 e-7 e-8))))))))))) +(define CoreC-45Options-setPair (lambda (arg-0 arg-1 arg-2 ext-0) (let ((e-0 (vector-ref ext-0 0))) (let ((e-1 (vector-ref ext-0 1))) (let ((e-2 (vector-ref ext-0 2))) (let ((e-3 (vector-ref ext-0 3))) (let ((e-5 (vector-ref ext-0 5))) (let ((e-6 (vector-ref ext-0 6))) (let ((e-7 (vector-ref ext-0 7))) (let ((e-8 (vector-ref ext-0 8))) (vector e-0 e-1 e-2 e-3 (box (vector arg-0 arg-1 arg-2)) e-5 e-6 e-7 e-8))))))))))) +(define CoreC-45Options-setFromString (lambda (arg-0 ext-0) (let ((e-0 (vector-ref ext-0 0))) (let ((e-1 (vector-ref ext-0 1))) (let ((e-2 (vector-ref ext-0 2))) (let ((e-3 (vector-ref ext-0 3))) (let ((e-4 (vector-ref ext-0 4))) (let ((e-5 (vector-ref ext-0 5))) (let ((e-6 (vector-ref ext-0 6))) (let ((e-7 (vector-ref ext-0 7))) (let ((e-8 (vector-ref ext-0 8))) (let ((e-9 (vector-ref e-6 0))) (let ((e-11 (vector-ref e-6 2))) (let ((e-12 (vector-ref e-6 3))) (vector e-0 e-1 e-2 e-3 e-4 e-5 (vector e-9 (box arg-0) e-11 e-12) e-7 e-8))))))))))))))) +(define CoreC-45Options-setFromInteger (lambda (arg-0 ext-0) (let ((e-0 (vector-ref ext-0 0))) (let ((e-1 (vector-ref ext-0 1))) (let ((e-2 (vector-ref ext-0 2))) (let ((e-3 (vector-ref ext-0 3))) (let ((e-4 (vector-ref ext-0 4))) (let ((e-5 (vector-ref ext-0 5))) (let ((e-6 (vector-ref ext-0 6))) (let ((e-7 (vector-ref ext-0 7))) (let ((e-8 (vector-ref ext-0 8))) (let ((e-10 (vector-ref e-6 1))) (let ((e-11 (vector-ref e-6 2))) (let ((e-12 (vector-ref e-6 3))) (vector e-0 e-1 e-2 e-3 e-4 e-5 (vector (box arg-0) e-10 e-11 e-12) e-7 e-8))))))))))))))) +(define CoreC-45Options-setFromDouble (lambda (arg-0 ext-0) (let ((e-0 (vector-ref ext-0 0))) (let ((e-1 (vector-ref ext-0 1))) (let ((e-2 (vector-ref ext-0 2))) (let ((e-3 (vector-ref ext-0 3))) (let ((e-4 (vector-ref ext-0 4))) (let ((e-5 (vector-ref ext-0 5))) (let ((e-6 (vector-ref ext-0 6))) (let ((e-7 (vector-ref ext-0 7))) (let ((e-8 (vector-ref ext-0 8))) (let ((e-9 (vector-ref e-6 0))) (let ((e-10 (vector-ref e-6 1))) (let ((e-11 (vector-ref e-6 2))) (vector e-0 e-1 e-2 e-3 e-4 e-5 (vector e-9 e-10 e-11 (box arg-0)) e-7 e-8))))))))))))))) +(define CoreC-45Options-setFromChar (lambda (arg-0 ext-0) (let ((e-0 (vector-ref ext-0 0))) (let ((e-1 (vector-ref ext-0 1))) (let ((e-2 (vector-ref ext-0 2))) (let ((e-3 (vector-ref ext-0 3))) (let ((e-4 (vector-ref ext-0 4))) (let ((e-5 (vector-ref ext-0 5))) (let ((e-6 (vector-ref ext-0 6))) (let ((e-7 (vector-ref ext-0 7))) (let ((e-8 (vector-ref ext-0 8))) (let ((e-9 (vector-ref e-6 0))) (let ((e-10 (vector-ref e-6 1))) (let ((e-12 (vector-ref e-6 3))) (vector e-0 e-1 e-2 e-3 e-4 e-5 (vector e-9 e-10 (box arg-0) e-12) e-7 e-8))))))))))))))) +(define CoreC-45Options-setExtension (lambda (arg-0 ext-0) (let ((e-0 (vector-ref ext-0 0))) (let ((e-1 (vector-ref ext-0 1))) (let ((e-2 (vector-ref ext-0 2))) (let ((e-3 (vector-ref ext-0 3))) (let ((e-4 (vector-ref ext-0 4))) (let ((e-5 (vector-ref ext-0 5))) (let ((e-6 (vector-ref ext-0 6))) (let ((e-7 (vector-ref ext-0 7))) (let ((e-8 (vector-ref ext-0 8))) (vector e-0 e-1 e-2 e-3 e-4 e-5 e-6 (cons arg-0 e-7) e-8)))))))))))) +(define CoreC-45Options-primNamesToList (lambda (arg-0) (let ((e-0 (vector-ref arg-0 0))) (let ((e-1 (vector-ref arg-0 1))) (let ((e-2 (vector-ref arg-0 2))) (let ((e-3 (vector-ref arg-0 3))) (DataC-45List-catMaybes (cons e-0 (cons e-1 (cons e-2 (cons e-3 '()))))))))))) +(define CoreC-45Options-outputDirWithDefault (lambda (arg-0) (DataC-45Maybe-fromMaybe (lambda () (LibrariesC-45UtilsC-45Path-C-60C-47C-62 (let ((e-2 (vector-ref arg-0 2))) e-2) "exec")) (let ((e-4 (vector-ref arg-0 4))) e-4)))) +(define CoreC-45Options-isExtension (lambda (arg-0 arg-1) (PreludeC-45Types-elem (cons (lambda (arg-2) (lambda (arg-3) (CoreC-45Options-u--C-61C-61_Eq_LangExt arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (CoreC-45Options-u--C-47C-61_Eq_LangExt arg-4 arg-5)))) arg-0 (let ((e-7 (vector-ref arg-1 7))) e-7)))) +(define CoreC-45Options-getCG (lambda (arg-0 arg-1) (DataC-45List-lookup (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_String arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_String arg-4 arg-5)))) (DataC-45String-toLower arg-1) (CoreC-45Options-availableCGs arg-0)))) +(define CoreC-45Options-execBuildDir (lambda (arg-0) (LibrariesC-45UtilsC-45Path-C-60C-47C-62 (let ((e-2 (vector-ref arg-0 2))) e-2) "exec"))) +(define CoreC-45Options-defaults (lambda () (vector (CoreC-45Options-defaultDirs) (CoreC-45Options-defaultPPrint) (CoreC-45Options-defaultSession) (CoreC-45Options-defaultElab) '() '() (vector '() '() '() '()) '() '()))) +(define CoreC-45Options-defaultSession (lambda () (vector 0 0 0 (vector 0 ) '() 0 (CoreC-45OptionsC-45Log-defaultLogLevel) 0 0 0 '() '() '() '() 0 1000 0 1 0))) +(define CoreC-45Options-defaultPPrint (lambda () (vector 0 1 0))) +(define CoreC-45Options-defaultElab (lambda () (vector 1 1 1 (+ 1 (+ 1 (+ 1 0))) (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))))))))))))))))))))))))))))))))))))))))))) (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))))))))))))))))))))))))))))))))))))))))))) 1))) +(define CoreC-45Options-defaultDirs (lambda () (vector "." '() "build" "depends" '() "/usr/local" (cons "." '()) '() '() '()))) +(define CoreC-45Options-clearNames (lambda (ext-0) (let ((e-0 (vector-ref ext-0 0))) (let ((e-1 (vector-ref ext-0 1))) (let ((e-2 (vector-ref ext-0 2))) (let ((e-3 (vector-ref ext-0 3))) (let ((e-8 (vector-ref ext-0 8))) (vector e-0 e-1 e-2 e-3 '() '() (vector '() '() '() '()) '() e-8)))))))) +(define CoreC-45Options-availableCGs (lambda (arg-0) (PreludeC-45TypesC-45List-C-43C-43 (cons (cons "chez" (vector 0 )) (cons (cons "chez-sep" (vector 1 )) (cons (cons "racket" (vector 2 )) (cons (cons "node" (vector 4 )) (cons (cons "javascript" (vector 5 )) (cons (cons "refc" (vector 6 )) (cons (cons "gambit" (vector 3 )) '()))))))) (let ((e-8 (vector-ref arg-0 8))) e-8)))) +(define CoreC-45Options-addCG (lambda (arg-0 ext-0) (let ((e-0 (vector-ref ext-0 0))) (let ((e-1 (vector-ref ext-0 1))) (let ((e-2 (vector-ref ext-0 2))) (let ((e-3 (vector-ref ext-0 3))) (let ((e-4 (vector-ref ext-0 4))) (let ((e-5 (vector-ref ext-0 5))) (let ((e-6 (vector-ref ext-0 6))) (let ((e-7 (vector-ref ext-0 7))) (let ((e-8 (vector-ref ext-0 8))) (vector e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 (cons arg-0 e-8))))))))))))) +(define CoreC-45OptionsC-45Log-n--4749-2343-u--there (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (if (null? arg-4) 0 (let ((e-2 (car arg-4))) (let ((e-3 (cdr arg-4))) (DataC-45Maybe-fromMaybe (lambda () 0) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (DataC-45These-fromThat arg-3) (lambda (u--assoc) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (LibrariesC-45DataC-45StringMap-lookup e-2 u--assoc) (lambda (u--next) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45OptionsC-45Log-n--4738-2337-u--go arg-0 arg-1 arg-2 e-3 u--next)))))))))))) +(define CoreC-45OptionsC-45Log-n--4749-2342-u--here (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 (DataC-45These-fromThis arg-3))) (if (null? sc0) 0 (let ((e-2 (unbox sc0))) (PreludeC-45Types-u--C-60C-61_Ord_Nat arg-0 e-2)))))) +(define CoreC-45OptionsC-45Log-n--4433-2033-u--helpTopic (lambda (arg-0) (let ((e-2 (car arg-0))) (let ((e-3 (cdr arg-0))) (let ((u--title (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "+") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String e-2)))) (let ((u--blurb (PreludeC-45Types-maybe (lambda () '()) (lambda () (lambda (eta-0) (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-indent 2 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow eta-0)) '()))) e-3))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vcat (cons u--title u--blurb)))))))) +(define CoreC-45OptionsC-45Log-n--4738-2337-u--go (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 (CoreC-45OptionsC-45Log-n--4749-2342-u--here arg-0 arg-1 arg-2 arg-4 arg-3))) (cond ((equal? sc0 1) 1) (else (CoreC-45OptionsC-45Log-n--4749-2343-u--there arg-0 arg-1 arg-2 arg-4 arg-3)))))) +(define CoreC-45OptionsC-45Log-u--show_Show_LogLevel (lambda (arg-0) (let ((e-0 (car arg-0))) (let ((e-1 (cdr arg-0))) (if (null? e-0) (PreludeC-45Show-u--show_Show_Nat e-1) (PreludeC-45TypesC-45String-C-43C-43 (DataC-45String-fastAppend (DataC-45List-intersperse "." e-0)) (PreludeC-45TypesC-45String-C-43C-43 ":" (PreludeC-45Show-u--show_Show_Nat e-1)))))))) +(define CoreC-45OptionsC-45Log-u--showPrec_Show_LogLevel (lambda (arg-0 arg-1) (CoreC-45OptionsC-45Log-u--show_Show_LogLevel arg-1))) +(define CoreC-45OptionsC-45Log-u--pretty_Pretty_LogLevel (lambda (ext-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String (CoreC-45OptionsC-45Log-u--show_Show_LogLevel ext-0)))) +(define CoreC-45OptionsC-45Log-verbosity (lambda (arg-0) (let ((e-1 (cdr arg-0))) e-1))) +(define CoreC-45OptionsC-45Log-unsafeMkLogLevel (lambda (ext-0 ext-1) (cons ext-0 ext-1))) +(define CoreC-45OptionsC-45Log-topics (lambda (arg-0) (let ((e-0 (car arg-0))) e-0))) +(define CoreC-45OptionsC-45Log-parseLogLevel (lambda (arg-0) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (let ((u--nns (DataC-45String-split (lambda (arg-1) (PreludeC-45EqOrd-u--C-61C-61_Eq_Char arg-1 #\:)) arg-0))) (let ((u--n (let ((e-1 (car u--nns))) e-1))) (let ((u--ns (let ((e-2 (cdr u--nns))) e-2))) (if (null? u--ns) (PreludeC-45Types-u--pure_Applicative_Maybe (cons (lambda (eta-0) (cons '() eta-0)) u--n)) (let ((e-2 (car u--ns))) (let ((e-3 (cdr u--ns))) (if (null? e-3) (PreludeC-45Types-u--pure_Applicative_Maybe (cons (lambda (eta-0) (CoreC-45OptionsC-45Log-mkUnverifiedLogLevel u--n eta-0)) e-2)) '()))))))) (lambda (_-0) (let ((e-2 (car _-0))) (let ((e-3 (cdr _-0))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (DataC-45String-parsePositive (vector (lambda (arg-2) (lambda (arg-3) (+ arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (* arg-4 arg-5))) (lambda (arg-6) arg-6)) e-3) (lambda (u--lvl) (PreludeC-45Types-u--pure_Applicative_Maybe (e-2 (PreludeC-45Types-u--fromInteger_Num_Nat u--lvl))))))))))) +(define CoreC-45OptionsC-45Log-mkUnverifiedLogLevel (lambda (arg-0 ext-0) (cond ((equal? arg-0 "") (CoreC-45OptionsC-45Log-mkLogLevelC-39 '() ext-0))(else (CoreC-45OptionsC-45Log-mkLogLevelC-39 (box (DataC-45String-split (lambda (arg-1) (PreludeC-45EqOrd-u--C-61C-61_Eq_Char arg-1 #\.)) arg-0)) ext-0))))) +(define CoreC-45OptionsC-45Log-mkLogLevelC-39 (lambda (arg-0 arg-1) (cons (PreludeC-45Types-maybe (lambda () '()) (lambda () (lambda (eta-0) (DataC-45List1-forget eta-0))) arg-0) arg-1))) +(define CoreC-45OptionsC-45Log-knownTopics (lambda () (cons (cons "auto" '()) (cons (cons "builtin.Natural" '()) (cons (cons "builtin.Natural.addTransform" '()) (cons (cons "builtin.NaturalToInteger" '()) (cons (cons "builtin.NaturalToInteger.addTransforms" '()) (cons (cons "builtin.IntegerToNatural" '()) (cons (cons "builtin.IntegerToNatural.addTransforms" '()) (cons (cons "compile.casetree" '()) (cons (cons "compile.casetree.clauses" '()) (cons (cons "compile.casetree.getpmdef" '()) (cons (cons "compile.casetree.intermediate" '()) (cons (cons "compile.casetree.pick" '()) (cons (cons "compile.casetree.partition" '()) (cons (cons "compiler.inline.eval" '()) (cons (cons "compiler.refc" '()) (cons (cons "compiler.refc.cc" '()) (cons (cons "compiler.scheme.chez" '()) (cons (cons "coverage" '()) (cons (cons "coverage.empty" '()) (cons (cons "coverage.missing" '()) (cons (cons "coverage.recover" '()) (cons (cons "declare.data" '()) (cons (cons "declare.data.constructor" '()) (cons (cons "declare.data.parameters" '()) (cons (cons "declare.def" '()) (cons (cons "declare.def.clause" '()) (cons (cons "declare.def.clause.impossible" '()) (cons (cons "declare.def.clause.with" '()) (cons (cons "declare.def.impossible" '()) (cons (cons "declare.def.lhs" '()) (cons (cons "declare.def.lhs.implicits" '()) (cons (cons "declare.param" '()) (cons (cons "declare.record" '()) (cons (cons "declare.record.field" '()) (cons (cons "declare.record.projection" '()) (cons (cons "declare.record.projection.prefix" '()) (cons (cons "declare.type" '()) (cons (cons "desugar.idiom" '()) (cons (cons "doc.record" '()) (cons (cons "elab" '()) (cons (cons "elab.ambiguous" '()) (cons (cons "elab.app.var" '()) (cons (cons "elab.app.lhs" '()) (cons (cons "elab.as" '()) (cons (cons "elab.bindnames" '()) (cons (cons "elab.binder" '()) (cons (cons "elab.case" '()) (cons (cons "elab.def.local" '()) (cons (cons "elab.delay" '()) (cons (cons "elab.hole" '()) (cons (cons "elab.implicits" '()) (cons (cons "elab.implementation" '()) (cons (cons "elab.interface" '()) (cons (cons "elab.interface.default" '()) (cons (cons "elab.local" '()) (cons (cons "elab.prune" '()) (cons (cons "elab.record" '()) (cons (cons "elab.retry" '()) (cons (cons "elab.rewrite" '()) (cons (cons "elab.unify" '()) (cons (cons "elab.update" '()) (cons (cons "elab.with" '()) (cons (cons "eval.casetree" '()) (cons (cons "eval.casetree.stuck" '()) (cons (cons "eval.eta" '()) (cons (cons "eval.stuck" '()) (cons (cons "idemode.hole" '()) (cons (cons "ide-mode.highlight" '()) (cons (cons "ide-mode.highlight.alias" '()) (cons (cons "ide-mode.send" '()) (cons (cons "import" '()) (cons (cons "import.file" '()) (cons (cons "interaction.casesplit" '()) (cons (cons "interaction.generate" '()) (cons (cons "interaction.search" '()) (cons (cons "metadata.names" '()) (cons (cons "module.hash" '()) (cons (cons "quantity" '()) (cons (cons "quantity.hole" '()) (cons (cons "quantity.hole.update" '()) (cons (cons "repl.eval" '()) (cons (cons "resugar.var" '()) (cons (cons "specialise" '()) (cons (cons "totality" '()) (cons (cons "totality.positivity" '()) (cons (cons "totality.termination" '()) (cons (cons "totality.termination.calc" '()) (cons (cons "totality.termination.guarded" '()) (cons (cons "totality.termination.sizechange" '()) (cons (cons "totality.termination.sizechange.checkCall" '()) (cons (cons "totality.termination.sizechange.checkCall.inPath" '()) (cons (cons "totality.termination.sizechange.checkCall.inPathNot.restart" '()) (cons (cons "totality.termination.sizechange.checkCall.inPathNot.return" '()) (cons (cons "totality.termination.sizechange.inPath" '()) (cons (cons "totality.termination.sizechange.isTerminating" '()) (cons (cons "totality.termination.sizechange.needsChecking" '()) (cons (cons "transform.lhs" '()) (cons (cons "transform.rhs" '()) (cons (cons "ttc.read" '()) (cons (cons "ttc.write" '()) (cons (cons "typesearch.equiv" '()) (cons (cons "unelab.case" '()) (cons (cons "unelab.var" '()) (cons (cons "unify" '()) (cons (cons "unify.application" '()) (cons (cons "unify.binder" '()) (cons (cons "unify.constant" '()) (cons (cons "unify.constraint" '()) (cons (cons "unify.delay" '()) (cons (cons "unify.equal" '()) (cons (cons "unify.head" '()) (cons (cons "unify.hole" '()) (cons (cons "unify.instantiate" '()) (cons (cons "unify.invertible" '()) (cons (cons "unify.meta" '()) (cons (cons "unify.noeta" '()) (cons (cons "unify.postpone" '()) (cons (cons "unify.retry" '()) (cons (cons "unify.search" '()) (cons (cons "unify.unsolved" '()) '())))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) +(define CoreC-45OptionsC-45Log-keepLog (lambda (arg-0 arg-1) (let ((e-0 (car arg-0))) (let ((e-1 (cdr arg-0))) (cond ((equal? e-1 0) 1)(else (CoreC-45OptionsC-45Log-n--4738-2337-u--go e-1 e-0 arg-1 e-0 arg-1))))))) +(define CoreC-45OptionsC-45Log-insertLogLevel (lambda (arg-0 ext-0) (let ((e-0 (car arg-0))) (let ((e-1 (cdr arg-0))) (LibrariesC-45DataC-45StringTrie-insert e-0 e-1 ext-0))))) +(define CoreC-45OptionsC-45Log-helpTopics (lambda () (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--show_Show_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vcat (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45OptionsC-45Log-n--4433-2033-u--helpTopic eta-0)) (CoreC-45OptionsC-45Log-knownTopics)))))) +(define CoreC-45OptionsC-45Log-defaultLogLevel (lambda () (LibrariesC-45DataC-45StringTrie-singleton '() 0))) +(define DataC-45These-these (lambda (arg-3 arg-4 arg-5 arg-6) (case (vector-ref arg-6 0) ((0) (let ((e-2 (vector-ref arg-6 1))) (arg-3 e-2))) ((1) (let ((e-5 (vector-ref arg-6 1))) (arg-4 e-5))) (else (let ((e-8 (vector-ref arg-6 1))) (let ((e-9 (vector-ref arg-6 2))) ((arg-5 e-8) e-9))))))) +(define DataC-45These-fromThis (lambda (arg-2) (case (vector-ref arg-2 0) ((0) (let ((e-2 (vector-ref arg-2 1))) (box e-2))) ((1) '()) (else (let ((e-8 (vector-ref arg-2 1))) (box e-8)))))) +(define DataC-45These-fromThat (lambda (arg-2) (case (vector-ref arg-2 0) ((0) '()) ((1) (let ((e-5 (vector-ref arg-2 1))) (box e-5))) (else (let ((e-9 (vector-ref arg-2 2))) (box e-9)))))) +(define DataC-45These-bifold (lambda (arg-1 arg-2) (case (vector-ref arg-2 0) ((0) (let ((e-2 (vector-ref arg-2 1))) e-2)) ((1) (let ((e-5 (vector-ref arg-2 1))) e-5)) (else (let ((e-8 (vector-ref arg-2 1))) (let ((e-9 (vector-ref arg-2 2))) (let ((e-1 (car arg-1))) ((e-1 e-8) e-9)))))))) +(define LibrariesC-45DataC-45StringTrie-n--2310-5661-u--rec (lambda (arg-1 arg-2 arg-3 arg-4 arg-5) (PreludeC-45Types-maybe (lambda () (LibrariesC-45DataC-45StringMap-insert arg-1 (LibrariesC-45DataC-45StringTrie-n--2310-5660-u--end arg-1 arg-2 arg-3 arg-4) arg-5)) (lambda () (lambda (u--tm) (LibrariesC-45DataC-45StringMap-insert arg-1 (LibrariesC-45DataC-45StringTrie-insertWith arg-2 arg-4 u--tm) arg-5))) (LibrariesC-45DataC-45StringMap-lookup arg-1 arg-5)))) +(define LibrariesC-45DataC-45StringTrie-n--2310-5660-u--end (lambda (arg-1 arg-2 arg-3 arg-4) (LibrariesC-45DataC-45StringTrie-singleton arg-2 (arg-4 '())))) +(define LibrariesC-45DataC-45StringTrie-singleton (lambda (arg-1 arg-2) (if (null? arg-1) (vector 0 arg-2) (let ((e-2 (car arg-1))) (let ((e-3 (cdr arg-1))) (vector 1 (LibrariesC-45DataC-45StringMap-singleton e-2 (LibrariesC-45DataC-45StringTrie-singleton e-3 arg-2)))))))) +(define LibrariesC-45DataC-45StringTrie-insertWith (lambda (arg-1 arg-2 arg-3) (if (null? arg-1) (DataC-45These-these (lambda (eta-0) (vector 0 (arg-2 (box eta-0)))) (lambda (eta-0) (vector 2 (arg-2 '()) eta-0)) (lambda (eta-0) (lambda (eta-1) (vector 2 (arg-2 (box eta-0)) eta-1))) arg-3) (let ((e-2 (car arg-1))) (let ((e-3 (cdr arg-1))) (DataC-45These-these (lambda (u--x) (vector 2 u--x (LibrariesC-45DataC-45StringMap-singleton e-2 (LibrariesC-45DataC-45StringTrie-n--2310-5660-u--end e-2 e-3 arg-3 arg-2)))) (lambda (eta-0) (vector 1 (LibrariesC-45DataC-45StringTrie-n--2310-5661-u--rec e-2 e-3 arg-3 arg-2 eta-0))) (lambda (u--x) (lambda (eta-0) (vector 2 u--x (LibrariesC-45DataC-45StringTrie-n--2310-5661-u--rec e-2 e-3 arg-3 arg-2 eta-0)))) arg-3)))))) +(define LibrariesC-45DataC-45StringTrie-insert (lambda (arg-1 arg-2 ext-0) (LibrariesC-45DataC-45StringTrie-insertWith arg-1 (lambda (eta-0) arg-2) ext-0))) +(define LibrariesC-45DataC-45StringTrie-empty (lambda () (vector 1 (LibrariesC-45DataC-45StringMap-empty)))) +(define LibrariesC-45DataC-45StringMap-n--4544-4803-u--treeToListC-39 (lambda (arg-3 arg-4) (case (vector-ref arg-4 0) ((0) (let ((e-1 (vector-ref arg-4 1))) (let ((e-2 (vector-ref arg-4 2))) (arg-3 (cons e-1 e-2))))) ((1) (let ((e-5 (vector-ref arg-4 1))) (let ((e-7 (vector-ref arg-4 3))) (LibrariesC-45DataC-45StringMap-n--4544-4803-u--treeToListC-39 (lambda (arg-0) (cons arg-0 (LibrariesC-45DataC-45StringMap-n--4544-4803-u--treeToListC-39 arg-3 e-7))) e-5)))) (else (let ((e-10 (vector-ref arg-4 1))) (let ((e-12 (vector-ref arg-4 3))) (let ((e-14 (vector-ref arg-4 5))) (LibrariesC-45DataC-45StringMap-n--4544-4803-u--treeToListC-39 (lambda (arg-0) (cons arg-0 (LibrariesC-45DataC-45StringMap-n--4544-4803-u--treeToListC-39 (lambda (arg-1) (cons arg-1 (LibrariesC-45DataC-45StringMap-n--4544-4803-u--treeToListC-39 arg-3 e-14))) e-12))) e-10)))))))) +(define LibrariesC-45DataC-45StringMap-n--5027-5277-u--inserted (lambda (arg-1 arg-2 arg-3) (PreludeC-45Types-u--C-62C-62C-61_Monad_List (LibrariesC-45DataC-45StringMap-toList arg-1) (lambda (_-0) (let ((e-2 (car _-0))) (let ((e-3 (cdr _-0))) (let ((u--vC-39 ((PreludeC-45Types-maybe (lambda () (lambda (eta-0) eta-0)) (lambda () arg-3) (LibrariesC-45DataC-45StringMap-lookup e-2 arg-2)) e-3))) (PreludeC-45Types-u--pure_Applicative_List (cons e-2 u--vC-39))))))))) +(define LibrariesC-45DataC-45StringMap-treeToList (lambda (ext-0) (LibrariesC-45DataC-45StringMap-n--4544-4803-u--treeToListC-39 (lambda (arg-0) (cons arg-0 '())) ext-0))) +(define LibrariesC-45DataC-45StringMap-treeLookup (lambda (arg-2 arg-3) (case (vector-ref arg-3 0) ((0) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((sc1 (PreludeC-45EqOrd-u--C-61C-61_Eq_String arg-2 e-1))) (cond ((equal? sc1 1) (box e-2)) (else '())))))) ((1) (let ((e-5 (vector-ref arg-3 1))) (let ((e-6 (vector-ref arg-3 2))) (let ((e-7 (vector-ref arg-3 3))) (let ((sc1 (PreludeC-45EqOrd-u--C-60C-61_Ord_String arg-2 e-6))) (cond ((equal? sc1 1) (LibrariesC-45DataC-45StringMap-treeLookup arg-2 e-5)) (else (LibrariesC-45DataC-45StringMap-treeLookup arg-2 e-7)))))))) (else (let ((e-10 (vector-ref arg-3 1))) (let ((e-11 (vector-ref arg-3 2))) (let ((e-12 (vector-ref arg-3 3))) (let ((e-13 (vector-ref arg-3 4))) (let ((e-14 (vector-ref arg-3 5))) (let ((sc1 (PreludeC-45EqOrd-u--C-60C-61_Ord_String arg-2 e-11))) (cond ((equal? sc1 1) (LibrariesC-45DataC-45StringMap-treeLookup arg-2 e-10)) (else (let ((sc2 (PreludeC-45EqOrd-u--C-60C-61_Ord_String arg-2 e-13))) (cond ((equal? sc2 1) (LibrariesC-45DataC-45StringMap-treeLookup arg-2 e-12)) (else (LibrariesC-45DataC-45StringMap-treeLookup arg-2 e-14)))))))))))))))) +(define LibrariesC-45DataC-45StringMap-treeInsertC-39 (lambda (arg-2 arg-3 arg-4) (case (vector-ref arg-4 0) ((0) (let ((e-1 (vector-ref arg-4 1))) (let ((e-2 (vector-ref arg-4 2))) (let ((sc1 (PreludeC-45EqOrd-u--compare_Ord_String arg-2 e-1))) (cond ((equal? sc1 0) (vector 1 (cons (vector 0 arg-2 arg-3) (cons arg-2 (vector 0 e-1 e-2))))) ((equal? sc1 1) (vector 0 (vector 0 arg-2 arg-3))) (else (vector 1 (cons (vector 0 e-1 e-2) (cons e-1 (vector 0 arg-2 arg-3)))))))))) ((1) (let ((e-5 (vector-ref arg-4 1))) (let ((e-6 (vector-ref arg-4 2))) (let ((e-7 (vector-ref arg-4 3))) (let ((sc1 (PreludeC-45EqOrd-u--C-60C-61_Ord_String arg-2 e-6))) (cond ((equal? sc1 1) (let ((sc2 (LibrariesC-45DataC-45StringMap-treeInsertC-39 arg-2 arg-3 e-5))) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 (vector 1 e-2 e-6 e-7)))) (else (let ((e-8 (vector-ref sc2 1))) (let ((e-10 (car e-8))) (let ((e-9 (cdr e-8))) (let ((e-12 (car e-9))) (let ((e-13 (cdr e-9))) (vector 0 (vector 2 e-10 e-12 e-13 e-6 e-7))))))))))) (else (let ((sc2 (LibrariesC-45DataC-45StringMap-treeInsertC-39 arg-2 arg-3 e-7))) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 (vector 1 e-5 e-6 e-2)))) (else (let ((e-8 (vector-ref sc2 1))) (let ((e-10 (car e-8))) (let ((e-9 (cdr e-8))) (let ((e-12 (car e-9))) (let ((e-13 (cdr e-9))) (vector 0 (vector 2 e-5 e-6 e-10 e-12 e-13))))))))))))))))) (else (let ((e-10 (vector-ref arg-4 1))) (let ((e-11 (vector-ref arg-4 2))) (let ((e-12 (vector-ref arg-4 3))) (let ((e-13 (vector-ref arg-4 4))) (let ((e-14 (vector-ref arg-4 5))) (let ((sc1 (PreludeC-45EqOrd-u--C-60C-61_Ord_String arg-2 e-11))) (cond ((equal? sc1 1) (let ((sc2 (LibrariesC-45DataC-45StringMap-treeInsertC-39 arg-2 arg-3 e-10))) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 (vector 2 e-2 e-11 e-12 e-13 e-14)))) (else (let ((e-5 (vector-ref sc2 1))) (let ((e-8 (car e-5))) (let ((e-9 (cdr e-5))) (let ((e-16 (car e-9))) (let ((e-15 (cdr e-9))) (vector 1 (cons (vector 1 e-8 e-16 e-15) (cons e-11 (vector 1 e-12 e-13 e-14))))))))))))) (else (let ((sc2 (PreludeC-45EqOrd-u--C-60C-61_Ord_String arg-2 e-13))) (cond ((equal? sc2 1) (let ((sc3 (LibrariesC-45DataC-45StringMap-treeInsertC-39 arg-2 arg-3 e-12))) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 (vector 2 e-10 e-11 e-2 e-13 e-14)))) (else (let ((e-5 (vector-ref sc3 1))) (let ((e-8 (car e-5))) (let ((e-9 (cdr e-5))) (let ((e-16 (car e-9))) (let ((e-15 (cdr e-9))) (vector 1 (cons (vector 1 e-10 e-11 e-8) (cons e-16 (vector 1 e-15 e-13 e-14))))))))))))) (else (let ((sc3 (LibrariesC-45DataC-45StringMap-treeInsertC-39 arg-2 arg-3 e-14))) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 (vector 2 e-10 e-11 e-12 e-13 e-2)))) (else (let ((e-5 (vector-ref sc3 1))) (let ((e-8 (car e-5))) (let ((e-9 (cdr e-5))) (let ((e-16 (car e-9))) (let ((e-15 (cdr e-9))) (vector 1 (cons (vector 1 e-10 e-11 e-12) (cons e-13 (vector 1 e-8 e-16 e-15))))))))))))))))))))))))))) +(define LibrariesC-45DataC-45StringMap-treeInsert (lambda (arg-2 arg-3 arg-4) (let ((sc0 (LibrariesC-45DataC-45StringMap-treeInsertC-39 arg-2 arg-3 arg-4))) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((e-8 (car e-5))) (let ((e-9 (cdr e-5))) (let ((e-12 (car e-9))) (let ((e-13 (cdr e-9))) (vector 1 (vector 1 e-8 e-12 e-13)))))))))))) +(define LibrariesC-45DataC-45StringMap-toList (lambda (arg-1) (if (null? arg-1) '() (let ((e-3 (cdr arg-1))) (LibrariesC-45DataC-45StringMap-treeToList e-3))))) +(define LibrariesC-45DataC-45StringMap-singleton (lambda (arg-1 arg-2) (cons 0 (vector 0 arg-1 arg-2)))) +(define LibrariesC-45DataC-45StringMap-mergeWith (lambda (arg-1 arg-2 arg-3) (LibrariesC-45DataC-45StringMap-insertFrom (LibrariesC-45DataC-45StringMap-n--5027-5277-u--inserted arg-3 arg-2 arg-1) arg-2))) +(define LibrariesC-45DataC-45StringMap-mergeLeft (lambda (arg-1 arg-2) (LibrariesC-45DataC-45StringMap-mergeWith (lambda (eta-0) (lambda (eta-1) eta-0)) arg-1 arg-2))) +(define LibrariesC-45DataC-45StringMap-lookupName (lambda (arg-1 arg-2) (let ((sc0 (CoreC-45Name-userNameRoot arg-1))) (if (null? sc0) '() (let ((e-2 (unbox sc0))) (LibrariesC-45DataC-45StringMap-lookup e-2 arg-2)))))) +(define LibrariesC-45DataC-45StringMap-lookup (lambda (arg-1 arg-2) (if (null? arg-2) '() (let ((e-3 (cdr arg-2))) (LibrariesC-45DataC-45StringMap-treeLookup arg-1 e-3))))) +(define LibrariesC-45DataC-45StringMap-insertFrom (lambda (ext-0 ext-1) (PreludeC-45Basics-flip (lambda (eta-0) (lambda (clam-0) (PreludeC-45Types-u--foldl_Foldable_List (lambda (eta-1) (lambda (eta-2) (PreludeC-45Basics-flip (lambda (eta-3) (PreludeC-45Basics-uncurry (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (LibrariesC-45DataC-45StringMap-insert eta-4 eta-5 eta-6)))) eta-3)) eta-1 eta-2))) eta-0 clam-0))) ext-0 ext-1))) +(define LibrariesC-45DataC-45StringMap-insert (lambda (arg-1 arg-2 arg-3) (if (null? arg-3) (cons 0 (vector 0 arg-1 arg-2)) (let ((e-2 (car arg-3))) (let ((e-3 (cdr arg-3))) (let ((sc1 (LibrariesC-45DataC-45StringMap-treeInsert arg-1 arg-2 e-3))) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (cons e-2 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (cons (+ 1 e-2) e-5)))))))))) +(define LibrariesC-45DataC-45StringMap-fromList (lambda (arg-1) (PreludeC-45Types-u--foldl_Foldable_List (lambda (eta-0) (lambda (eta-1) (PreludeC-45Basics-flip (lambda (eta-2) (PreludeC-45Basics-uncurry (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (LibrariesC-45DataC-45StringMap-insert eta-3 eta-4 eta-5)))) eta-2)) eta-0 eta-1))) (LibrariesC-45DataC-45StringMap-empty) arg-1))) +(define LibrariesC-45DataC-45StringMap-empty (lambda () '())) +(define CoreC-45Context-case--checkTimer-18741 (lambda (arg-0 arg-1 arg-2 ext-0) (if (null? arg-2) (vector 1 0) (let ((e-1 (unbox arg-2))) (let ((e-5 (car e-1))) (let ((e-6 (cdr e-1))) (let ((act-24 (CoreC-45Context-getTime ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-24 1))) (let ((sc3 (PreludeC-45EqOrd-u--C-62_Ord_Integer e-7 e-5))) (cond ((equal? sc3 1) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 61 e-6) ext-0)) (else (vector 1 0)))))))))))))) +(define CoreC-45Context-case--addTransform-13774 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (if (null? arg-4) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-1 "LHS of a transformation must be a function application") ext-0) (let ((e-1 (unbox arg-4))) (let ((act-24 (CoreC-45Context-toResolvedNames arg-2 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-0))))) e-1 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-toResolvedNames arg-2 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Transform arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Transform arg-3843 arg-3844 eta-0))))) arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-2 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-0))))) e-1 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (CoreC-45Context-toFullNames arg-2 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Transform arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Transform arg-3843 arg-3844 eta-0))))) arg-0 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (let ((sc5 (LibrariesC-45DataC-45NameMap-lookup e-5 (let ((e-13 (vector-ref arg-3 13))) e-13)))) (if (null? sc5) (let ((act-28 (set-box! arg-2 (let ((e-0 (vector-ref arg-3 0))) (let ((e-33 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-3 (vector-ref arg-3 3))) (let ((e-4 (vector-ref arg-3 4))) (let ((e-32 (vector-ref arg-3 5))) (let ((e-31 (vector-ref arg-3 6))) (let ((e-30 (vector-ref arg-3 7))) (let ((e-29 (vector-ref arg-3 8))) (let ((e-9 (vector-ref arg-3 9))) (let ((e-10 (vector-ref arg-3 10))) (let ((e-11 (vector-ref arg-3 11))) (let ((e-12 (vector-ref arg-3 12))) (let ((e-13 (vector-ref arg-3 13))) (let ((e-14 (vector-ref arg-3 14))) (let ((e-15 (vector-ref arg-3 15))) (let ((e-16 (vector-ref arg-3 16))) (let ((e-17 (vector-ref arg-3 17))) (let ((e-18 (vector-ref arg-3 18))) (let ((e-19 (vector-ref arg-3 19))) (let ((e-20 (vector-ref arg-3 20))) (let ((e-21 (vector-ref arg-3 21))) (let ((e-22 (vector-ref arg-3 22))) (let ((e-23 (vector-ref arg-3 23))) (let ((e-24 (vector-ref arg-3 24))) (let ((e-25 (vector-ref arg-3 25))) (let ((e-26 (vector-ref arg-3 26))) (let ((e-27 (vector-ref arg-3 27))) (let ((e-28 (vector-ref arg-3 28))) (vector e-0 e-33 e-2 e-3 e-4 e-32 e-31 e-30 e-29 e-9 e-10 e-11 e-12 (LibrariesC-45DataC-45NameMap-insert e-5 (cons e-6 '()) e-13) (cons (cons e-7 e-8) e-14) e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27 e-28))))))))))))))))))))))))))))))))) (vector 1 act-28)) (let ((e-2 (unbox sc5))) (let ((act-28 (set-box! arg-2 (let ((e-0 (vector-ref arg-3 0))) (let ((e-34 (vector-ref arg-3 1))) (let ((e-33 (vector-ref arg-3 2))) (let ((e-3 (vector-ref arg-3 3))) (let ((e-4 (vector-ref arg-3 4))) (let ((e-32 (vector-ref arg-3 5))) (let ((e-31 (vector-ref arg-3 6))) (let ((e-30 (vector-ref arg-3 7))) (let ((e-29 (vector-ref arg-3 8))) (let ((e-9 (vector-ref arg-3 9))) (let ((e-10 (vector-ref arg-3 10))) (let ((e-11 (vector-ref arg-3 11))) (let ((e-12 (vector-ref arg-3 12))) (let ((e-13 (vector-ref arg-3 13))) (let ((e-14 (vector-ref arg-3 14))) (let ((e-15 (vector-ref arg-3 15))) (let ((e-16 (vector-ref arg-3 16))) (let ((e-17 (vector-ref arg-3 17))) (let ((e-18 (vector-ref arg-3 18))) (let ((e-19 (vector-ref arg-3 19))) (let ((e-20 (vector-ref arg-3 20))) (let ((e-21 (vector-ref arg-3 21))) (let ((e-22 (vector-ref arg-3 22))) (let ((e-23 (vector-ref arg-3 23))) (let ((e-24 (vector-ref arg-3 24))) (let ((e-25 (vector-ref arg-3 25))) (let ((e-26 (vector-ref arg-3 26))) (let ((e-27 (vector-ref arg-3 27))) (let ((e-28 (vector-ref arg-3 28))) (vector e-0 e-34 e-33 e-3 e-4 e-32 e-31 e-30 e-29 e-9 e-10 e-11 e-12 (LibrariesC-45DataC-45NameMap-insert e-5 (cons e-6 e-2) e-13) (cons (cons e-7 e-8) e-14) e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27 e-28))))))))))))))))))))))))))))))))) (vector 1 act-28))))))))))))))))))))))))) +(define CoreC-45Context-case--caseC-32blockC-32inC-32setExternal-13043 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (case (vector-ref arg-7 0) ((6) (let ((e-0 (vector-ref arg-7 1))) (let ((e-1 (vector-ref arg-7 2))) (let ((e-2 (vector-ref arg-7 3))) (let ((e-3 (vector-ref arg-7 4))) (let ((e-4 (vector-ref arg-7 5))) (let ((e-5 (vector-ref arg-7 6))) (let ((e-6 (vector-ref arg-7 7))) (let ((e-7 (vector-ref arg-7 8))) (let ((u--flC-39 (let ((e-9 (car e-4))) (cons e-9 arg-0)))) (lambda (eta-0) (CoreC-45Context-updateDef arg-3 arg-1 (lambda (eta-1) (box (vector 6 e-0 e-1 e-2 e-3 u--flC-39 e-5 e-6 e-7))) eta-0))))))))))))(else (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-2 (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name (let ((e-1 (vector-ref arg-5 1))) e-1)) " is not a type constructor [setDetermining]")) eta-0)))))) +(define CoreC-45Context-case--caseC-32blockC-32inC-32setUniqueSearch-12907 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (case (vector-ref arg-7 0) ((6) (let ((e-0 (vector-ref arg-7 1))) (let ((e-1 (vector-ref arg-7 2))) (let ((e-2 (vector-ref arg-7 3))) (let ((e-3 (vector-ref arg-7 4))) (let ((e-4 (vector-ref arg-7 5))) (let ((e-5 (vector-ref arg-7 6))) (let ((e-6 (vector-ref arg-7 7))) (let ((e-7 (vector-ref arg-7 8))) (let ((u--flC-39 (let ((e-8 (cdr e-4))) (cons arg-0 e-8)))) (lambda (eta-0) (CoreC-45Context-updateDef arg-3 arg-1 (lambda (eta-1) (box (vector 6 e-0 e-1 e-2 e-3 u--flC-39 e-5 e-6 e-7))) eta-0))))))))))))(else (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-2 (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name (let ((e-1 (vector-ref arg-5 1))) e-1)) " is not a type constructor [setDetermining]")) eta-0)))))) +(define CoreC-45Context-case--aliasName-8956 (lambda (arg-0 arg-1 arg-2 arg-3) (if (null? arg-3) (lambda (eta-0) (vector 1 arg-0)) (let ((e-1 (unbox arg-3))) (let ((sc1 (LibrariesC-45DataC-45StringMap-lookup e-1 (let ((e-0 (vector-ref arg-2 0))) (let ((e-37 (vector-ref e-0 3))) e-37))))) (if (null? sc1) (lambda (eta-0) (vector 1 arg-0)) (let ((e-2 (unbox sc1))) (CoreC-45Context-n--15495-8896-u--findAlias arg-0 arg-1 e-2)))))))) +(define CoreC-45Context-case--getSimilarNames-8575 (lambda (arg-0 arg-1 arg-2) (if (null? arg-2) (lambda (eta-0) (vector 1 '())) (let ((e-2 (unbox arg-2))) (let ((sc1 (PreludeC-45Types-u--C-60C-61_Ord_Nat (PreludeC-45TypesC-45String-length e-2) (+ 1 0)))) (cond ((equal? sc1 1) (lambda (eta-0) (vector 1 '()))) (else (let ((u--threshold (PreludeC-45Types-u--max_Ord_Nat (+ 1 0) (DataC-45Nat-divNat (PreludeC-45TypesC-45String-length e-2) (+ 1 (+ 1 (+ 1 0))))))) (let ((u--test (lambda (u--nm) (lambda (clam-0) (let ((sc2 (CoreC-45Name-userNameRoot u--nm))) (if (null? sc2) '() (let ((e-1 (unbox sc2))) (let ((act-24 ((LibrariesC-45TextC-45DistanceC-45Levenshtein-compute (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-24 (arg-811 eta-0))) ((arg-812 act-24) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-51 (arg-814 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) e-2 e-1) clam-0))) (PreludeC-45Interfaces-C-60C-36 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (PreludeC-45Types-u--map_Functor_Maybe eta-2 eta-3))))) act-24 (PreludeC-45Interfaces-guard (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (PreludeC-45Types-u--map_Functor_Maybe u--func arg-133))))) (lambda (u--a) (lambda (arg-527) (PreludeC-45Types-u--pure_Applicative_Maybe arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (PreludeC-45Types-u--C-60C-42C-62_Applicative_Maybe arg-528 arg-530)))))) (lambda (u--a) (PreludeC-45Types-u--empty_Alternative_Maybe)) (lambda (u--a) (lambda (arg-763) (lambda (arg-764) (PreludeC-45Types-u--C-60C-124C-62_Alternative_Maybe arg-763 arg-764))))) (PreludeC-45Types-u--C-60C-61_Ord_Nat act-24 u--threshold))))))))))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (let ((act-25 ((LibrariesC-45DataC-45NameMap-mapMaybeM (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-1)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-1) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-1) (let ((act-17 (arg-528 eta-1))) (let ((act-16 (arg-530 eta-1))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-1) (let ((act-25 (arg-811 eta-1))) ((arg-812 act-25) eta-1))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-1) (let ((act-29 (arg-814 eta-1))) (act-29 eta-1)))))) u--test (let ((e-0 (vector-ref e-5 0))) (let ((e-39 (vector-ref e-0 2))) e-39))) eta-0))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-3 (vector-ref act-25 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref act-25 1))) (let ((u--sorted (DataC-45List-sortBy (lambda (u--x) (lambda (u--y) (PreludeC-45Types-u--compare_Ord_Nat (Builtin-snd u--x) (Builtin-snd u--y)))) (LibrariesC-45DataC-45NameMap-toList e-6)))) (let ((u--roots (DataC-45List-mapMaybe (lambda (eta-1) (CoreC-45Context-n--15037-8477-u--showNames arg-0 arg-1 arg-0 e-2 (Builtin-fst eta-1))) u--sorted))) (vector 1 (DataC-45List-nub (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_String arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_String arg-4 arg-5)))) u--roots)))))))))))))))))))))) +(define CoreC-45Context-case--commitCtxt-3570 (lambda (arg-0 arg-1) (cond ((equal? arg-1 0) (lambda (eta-0) (vector 1 arg-0)))(else (let ((e-0 (- arg-1 1))) (cond ((equal? e-0 0) (let ((u--a (let ((e-4 (vector-ref arg-0 4))) e-4))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox u--a))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (let ((act-25 ((CoreC-45Context-n--9807-3540-u--commitStaged arg-0 (LibrariesC-45DataC-45IntMap-toList (let ((e-6 (vector-ref arg-0 6))) e-6)) e-5) eta-0))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (vector 1 (let ((e-13 (vector-ref arg-0 0))) (let ((e-1 (vector-ref arg-0 1))) (let ((e-2 (vector-ref arg-0 2))) (let ((e-3 (vector-ref arg-0 3))) (let ((e-4 (vector-ref arg-0 4))) (let ((e-7 (vector-ref arg-0 7))) (let ((e-8 (vector-ref arg-0 8))) (let ((e-9 (vector-ref arg-0 9))) (let ((e-10 (vector-ref arg-0 10))) (vector e-13 e-1 e-2 e-3 e-4 0 (LibrariesC-45DataC-45IntMap-empty) e-7 e-8 e-9 e-10)))))))))))))))))))))(else (lambda (eta-0) (vector 1 (let ((e-11 (vector-ref arg-0 0))) (let ((e-1 (vector-ref arg-0 1))) (let ((e-2 (vector-ref arg-0 2))) (let ((e-3 (vector-ref arg-0 3))) (let ((e-4 (vector-ref arg-0 4))) (let ((e-6 (vector-ref arg-0 6))) (let ((e-7 (vector-ref arg-0 7))) (let ((e-8 (vector-ref arg-0 8))) (let ((e-9 (vector-ref arg-0 9))) (let ((e-10 (vector-ref arg-0 10))) (vector e-11 e-1 e-2 e-3 e-4 e-0 e-6 e-7 e-8 e-9 e-10)))))))))))))))))))) +(define CoreC-45Context-case--lookupCtxtName-3413 (lambda (arg-0 arg-1 arg-2) (if (null? arg-2) (lambda (eta-0) (let ((act-24 ((CoreC-45Context-lookupCtxtExactI arg-1 arg-0) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (if (null? e-5) (vector 1 '()) (let ((e-1 (unbox e-5))) (let ((e-7 (car e-1))) (let ((e-6 (cdr e-1))) (vector 1 (cons (cons arg-1 (cons e-7 e-6)) '()))))))))))) (let ((e-2 (unbox arg-2))) (let ((sc1 (LibrariesC-45DataC-45StringMap-lookup e-2 (let ((e-3 (vector-ref arg-0 3))) e-3)))) (if (null? sc1) (lambda (eta-0) (vector 1 '())) (let ((e-1 (unbox sc1))) (CoreC-45Context-n--9319-3109-u--lookupPossibles arg-0 arg-1 '() e-1)))))))) +(define CoreC-45Context-case--lookupCtxtExact-2841 (lambda (arg-0 arg-1 arg-2 ext-0) (if (null? arg-2) (let ((act-24 (let ((act-24 (unbox (let ((e-4 (vector-ref arg-1 4))) e-4)))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (let ((act-25 ((DataC-45IOArray-readArray (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-25 (arg-811 eta-0))) ((arg-812 act-25) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-51 (arg-814 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) e-5 arg-0) ext-0))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (if (null? e-6) (vector 1 '()) (let ((e-1 (unbox e-6))) (let ((act-26 (CoreC-45Context-decode arg-1 arg-0 1 e-1 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (PreludeC-45Types-u--map_Functor_Maybe (lambda (lamc-0) (let ((e-3 (cdr lamc-0))) e-3)) (CoreC-45Context-returnDef (let ((e-9 (vector-ref arg-1 9))) e-9) arg-0 e-7))))))))))))))))) (let ((e-1 (unbox arg-2))) (let ((act-24 (CoreC-45Context-decode arg-1 arg-0 1 e-1 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (PreludeC-45Types-u--map_Functor_Maybe (lambda (lamc-0) (let ((e-3 (cdr lamc-0))) e-3)) (CoreC-45Context-returnDef (let ((e-9 (vector-ref arg-1 9))) e-9) arg-0 e-5))))))))))) +(define CoreC-45Context-case--returnDef-2676 (lambda (arg-0 arg-1 arg-2) (case (vector-ref arg-2 0) ((1) (let ((e-0 (vector-ref arg-2 1))) (let ((sc1 (let ((e-5 (cdr e-0))) e-5))) (cond ((equal? sc1 1) (box (cons arg-1 arg-0))) (else '())))))(else '())))) +(define CoreC-45Context-case--addAlias-2181 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (if (null? arg-4) arg-0 (let ((e-2 (unbox arg-4))) (let ((sc1 (LibrariesC-45DataC-45StringMap-lookup e-2 arg-0))) (if (null? sc1) (LibrariesC-45DataC-45StringMap-insert e-2 (cons (vector 1 arg-3 arg-2 arg-1) '()) arg-0) (let ((e-3 (unbox sc1))) (LibrariesC-45DataC-45StringMap-insert e-2 (cons (vector 1 arg-3 arg-2 arg-1) e-3) arg-0)))))))) +(define CoreC-45Context-case--addPossible-2120 (lambda (arg-0 arg-1 arg-2 arg-3) (if (null? arg-3) arg-0 (let ((e-2 (unbox arg-3))) (let ((sc1 (LibrariesC-45DataC-45StringMap-lookup e-2 arg-0))) (if (null? sc1) (LibrariesC-45DataC-45StringMap-insert e-2 (cons (vector 0 arg-2 arg-1) '()) arg-0) (let ((e-3 (unbox sc1))) (LibrariesC-45DataC-45StringMap-insert e-2 (cons (vector 0 arg-2 arg-1) e-3) arg-0)))))))) +(define CoreC-45Context-n--22314-15057-u--visible (lambda (arg-0 arg-1 arg-2) (CoreC-45NameC-45Namespace-isParentOf arg-2 arg-0))) +(define CoreC-45Context-n--12006-5584-u--trimNSpat (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((e-2 (car arg-6))) (let ((e-3 (cdr arg-6))) (let ((e-6 (car e-3))) (let ((e-7 (cdr e-3))) (let ((e-10 (car e-7))) (let ((e-11 (cdr e-7))) (cons e-2 (cons e-6 (cons (CoreC-45TT-u--trimNS_StripNamespace_C-40TermC-32C-36varsC-41 arg-5 e-10) (CoreC-45TT-u--trimNS_StripNamespace_C-40TermC-32C-36varsC-41 arg-5 e-11)))))))))))) +(define CoreC-45Context-n--15037-8477-u--showNames (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((u--root (CoreC-45Name-nameRoot arg-4))) (let ((sc0 (PreludeC-45EqOrd-u--C-61C-61_Eq_String arg-3 u--root))) (cond ((equal? sc0 1) (let ((u--full (CoreC-45Name-u--show_Show_Name arg-4))) (let ((sc1 (let ((sc2 (PreludeC-45EqOrd-u--C-61C-61_Eq_String arg-3 u--full))) (cond ((equal? sc2 1) 1) (else (PreludeC-45EqOrd-u--C-61C-61_Eq_String (CoreC-45Name-u--show_Show_Name arg-2) u--full)))))) (cond ((equal? sc1 1) '())(else (PreludeC-45Types-u--pure_Applicative_Maybe u--full))))))(else (PreludeC-45Types-u--pure_Applicative_Maybe u--root))))))) +(define CoreC-45Context-n--12007-5637-u--restoreNSpat (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((e-2 (car arg-6))) (let ((e-3 (cdr arg-6))) (let ((e-6 (car e-3))) (let ((e-7 (cdr e-3))) (let ((e-10 (car e-7))) (let ((e-11 (cdr e-7))) (cons e-2 (cons e-6 (cons (CoreC-45TT-u--restoreNS_StripNamespace_C-40TermC-32C-36varsC-41 arg-5 e-10) (CoreC-45TT-u--restoreNS_StripNamespace_C-40TermC-32C-36varsC-41 arg-5 e-11)))))))))))) +(define CoreC-45Context-n--11681-5429-u--resolvedNamesPat (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((e-2 (car arg-6))) (let ((e-3 (cdr arg-6))) (lambda (clam-0) (let ((e-6 (car e-3))) (let ((e-7 (cdr e-3))) (let ((e-10 (car e-7))) (let ((e-11 (cdr e-7))) (let ((act-24 (CoreC-45Context-u--resolved_HasNames_C-40C-40EnvC-32TermC-41C-32C-36varsC-41 arg-5 e-6 clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-5 e-10 clam-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-5 e-11 clam-0))) (case (vector-ref act-26 0) ((0) (let ((e-4 (vector-ref act-26 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref act-26 1))) (vector 1 (cons e-2 (cons e-5 (cons e-8 e-9))))))))))))))))))))))))) +(define CoreC-45Context-n--9319-3108-u--resn (lambda (arg-0 arg-1 arg-2) (let ((e-3 (cdr arg-2))) (let ((e-6 (car e-3))) e-6)))) +(define CoreC-45Context-n--14908-8354-u--resetElab (lambda (arg-0 ext-0) (let ((e-0 (vector-ref ext-0 0))) (let ((e-1 (vector-ref ext-0 1))) (let ((e-2 (vector-ref ext-0 2))) (let ((e-4 (vector-ref ext-0 4))) (let ((e-5 (vector-ref ext-0 5))) (let ((e-6 (vector-ref ext-0 6))) (let ((e-7 (vector-ref ext-0 7))) (let ((e-8 (vector-ref ext-0 8))) (vector e-0 e-1 e-2 (CoreC-45Options-defaultElab) e-4 e-5 e-6 e-7 e-8))))))))))) +(define CoreC-45Context-n--23547-16255-u--resetCtxt (lambda (arg-1 arg-2) (let ((u--dir (let ((e-4 (vector-ref arg-2 4))) (let ((e-37 (vector-ref e-4 0))) (let ((e-47 (vector-ref e-37 0))) e-47))))) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (case (vector-ref eta-1 0) ((0) (let ((e-2 (vector-ref eta-1 1))) (vector 0 e-2))) (else (vector 1 0)))) (lambda (eta-1) (let ((act-24 ((SystemC-45Directory-changeDir (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-2) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-2)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-2) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-2) (let ((act-17 (arg-528 eta-2))) (let ((act-16 (arg-530 eta-2))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-2) (let ((act-24 (arg-811 eta-2))) ((arg-812 act-24) eta-2))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-2) (let ((act-51 (arg-814 eta-2))) (act-51 eta-2)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) u--dir) eta-1))) (vector 1 act-24))) eta-0))))) +(define CoreC-45Context-n--18814-11881-u--notHidden (lambda (arg-0 arg-1 arg-2 arg-3 arg-5 arg-6 ext-0) (let ((e-2 (car arg-5))) (let ((act-24 (CoreC-45Context-toFullNames arg-3 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-0))))) e-2 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (let ((sc2 (CoreC-45Context-isHidden e-5 arg-6))) (cond ((equal? sc2 1) 0) (else 1))))))))))) +(define CoreC-45Context-n--25981-18579-u--nano (lambda () 1000000000)) +(define CoreC-45Context-n--9319-3109-u--lookupPossibles (lambda (arg-0 arg-1 arg-2 arg-3) (if (null? arg-3) (lambda (eta-0) (vector 1 (DataC-45List-reverse arg-2))) (let ((e-2 (car arg-3))) (let ((e-3 (cdr arg-3))) (case (vector-ref e-2 0) ((0) (let ((e-4 (vector-ref e-2 1))) (let ((e-5 (vector-ref e-2 2))) (let ((sc2 (LibrariesC-45DataC-45NameMap-lookup e-4 (let ((e-10 (vector-ref arg-0 10))) e-10)))) (if (null? sc2) (lambda (eta-0) (let ((act-24 ((CoreC-45Context-lookupCtxtExact (vector 9 e-5) arg-0) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (if (null? e-6) ((CoreC-45Context-n--9319-3109-u--lookupPossibles arg-0 arg-1 arg-2 e-3) eta-0) (let ((e-1 (unbox e-6))) (let ((sc5 (let ((sc6 (CoreC-45Name-matches arg-1 e-4))) (cond ((equal? sc6 1) (let ((sc7 (PreludeC-45Types-elem (cons (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) e-5 (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (CoreC-45Context-n--9319-3108-u--resn arg-0 arg-1 eta-1)) arg-2)))) (cond ((equal? sc7 1) 0) (else 1)))) (else 0))))) (cond ((equal? sc5 1) ((CoreC-45Context-n--9319-3109-u--lookupPossibles arg-0 arg-1 (cons (cons e-4 (cons e-5 e-1)) arg-2) e-3) eta-0)) (else ((CoreC-45Context-n--9319-3109-u--lookupPossibles arg-0 arg-1 arg-2 e-3) eta-0))))))))))) (CoreC-45Context-n--9319-3109-u--lookupPossibles arg-0 arg-1 arg-2 e-3)))))) (else (let ((e-6 (vector-ref e-2 1))) (let ((e-7 (vector-ref e-2 2))) (let ((e-8 (vector-ref e-2 3))) (let ((sc2 (LibrariesC-45DataC-45NameMap-lookup e-7 (let ((e-10 (vector-ref arg-0 10))) e-10)))) (if (null? sc2) (lambda (eta-0) (let ((act-24 ((CoreC-45Context-lookupCtxtExact (vector 9 e-8) arg-0) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (if (null? e-5) ((CoreC-45Context-n--9319-3109-u--lookupPossibles arg-0 arg-1 arg-2 e-3) eta-0) (let ((e-1 (unbox e-5))) (let ((sc5 (let ((sc6 (CoreC-45Name-matches arg-1 e-6))) (cond ((equal? sc6 1) (let ((sc7 (PreludeC-45Types-elem (cons (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) e-8 (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (CoreC-45Context-n--9319-3108-u--resn arg-0 arg-1 eta-1)) arg-2)))) (cond ((equal? sc7 1) 0) (else 1)))) (else 0))))) (cond ((equal? sc5 1) ((CoreC-45Context-n--9319-3109-u--lookupPossibles arg-0 arg-1 (cons (cons e-7 (cons e-8 e-1)) arg-2) e-3) eta-0)) (else ((CoreC-45Context-n--9319-3109-u--lookupPossibles arg-0 arg-1 arg-2 e-3) eta-0))))))))))) (CoreC-45Context-n--9319-3109-u--lookupPossibles arg-0 arg-1 arg-2 e-3))))))))))))) +(define CoreC-45Context-n--15879-9249-u--isHole (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 ((CoreC-45Context-lookupCtxtExact arg-2 (let ((e-0 (vector-ref arg-1 0))) e-0)) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (if (null? e-5) (vector 1 1) (let ((e-1 (unbox e-5))) (vector 1 (let ((e-17 (vector-ref e-1 17))) (case (vector-ref e-17 0) ((0) 1) ((7) 1)(else 0)))))))))))) +(define CoreC-45Context-n--18814-11882-u--isDefault (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (Builtin-snd ext-0))) +(define CoreC-45Context-n--12220-5813-u--insertAll (lambda (arg-1 arg-2 arg-3 arg-4 ext-0) (if (null? arg-4) (vector 1 arg-3) (let ((e-2 (car arg-4))) (let ((e-3 (cdr arg-4))) (let ((e-6 (car e-2))) (let ((e-7 (cdr e-2))) (let ((act-24 (CoreC-45Context-u--resolved_HasNames_Name arg-2 e-6 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (CoreC-45Context-n--12220-5813-u--insertAll arg-1 arg-2 (LibrariesC-45DataC-45NameMap-insert e-5 e-7 arg-3) e-3 ext-0)))))))))))) +(define CoreC-45Context-n--12219-5781-u--insertAll (lambda (arg-1 arg-2 arg-3 arg-4 ext-0) (if (null? arg-4) (vector 1 arg-3) (let ((e-2 (car arg-4))) (let ((e-3 (cdr arg-4))) (let ((e-6 (car e-2))) (let ((e-7 (cdr e-2))) (let ((act-24 (CoreC-45Context-u--full_HasNames_Name arg-2 e-6 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (CoreC-45Context-n--12219-5781-u--insertAll arg-1 arg-2 (LibrariesC-45DataC-45NameMap-insert e-5 e-7 arg-3) e-3 ext-0)))))))))))) +(define CoreC-45Context-n--19499-12518-u--getPos (lambda (arg-0 arg-1 arg-2 arg-3 arg-5 arg-6 arg-7) (case (vector-ref arg-7 0) ((3) (let ((e-3 (vector-ref arg-7 2))) (let ((e-4 (vector-ref arg-7 3))) (let ((e-5 (vector-ref arg-7 4))) (case (vector-ref e-4 0) ((2) (let ((sc2 (PreludeC-45Types-elem (cons (lambda (arg-4) (lambda (arg-8) (CoreC-45Name-u--C-61C-61_Eq_Name arg-4 arg-8))) (lambda (arg-4) (lambda (arg-8) (CoreC-45Name-u--C-47C-61_Eq_Name arg-4 arg-8)))) e-3 arg-6))) (cond ((equal? sc2 1) (lambda (eta-0) (let ((act-24 ((CoreC-45Context-n--19499-12518-u--getPos arg-0 arg-1 arg-2 arg-3 (PreludeC-45Types-u--C-43_Num_Nat (+ 1 0) arg-5) (DataC-45List-filter (lambda (arg-4) (CoreC-45Name-u--C-47C-61_Eq_Name arg-4 e-3)) arg-6) e-5) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (vector 1 (cons arg-5 e-6)))))))) (else (CoreC-45Context-n--19499-12518-u--getPos arg-0 arg-1 arg-2 arg-3 (PreludeC-45Types-u--C-43_Num_Nat (+ 1 0) arg-5) arg-6 e-5)))))(else (lambda (clam-0) (if (null? arg-6) (vector 1 '()) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-2 (PreludeC-45TypesC-45String-C-43C-43 "Unknown determining arguments: " (CoreC-45NameC-45Namespace-showSep ", " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45Name-u--show_Show_Name eta-0)) arg-6)))) clam-0)))))))))(else (lambda (clam-1) (if (null? arg-6) (vector 1 '()) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-2 (PreludeC-45TypesC-45String-C-43C-43 "Unknown determining arguments: " (CoreC-45NameC-45Namespace-showSep ", " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45Name-u--show_Show_Name eta-0)) arg-6)))) clam-1))))))) +(define CoreC-45Context-n--21626-14408-u--getDir (lambda (arg-0 arg-1 arg-2) (let ((e-2 (car arg-2))) (let ((e-3 (cdr arg-2))) (let ((sc1 (CoreC-45Options-u--C-61C-61_Eq_CG arg-0 e-2))) (cond ((equal? sc1 1) (box e-3)) (else '()))))))) +(define CoreC-45Context-n--11680-5289-u--fullNamesPat (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((e-2 (car arg-6))) (let ((e-3 (cdr arg-6))) (lambda (clam-0) (let ((e-6 (car e-3))) (let ((e-7 (cdr e-3))) (let ((e-10 (car e-7))) (let ((e-11 (cdr e-7))) (let ((act-24 (CoreC-45Context-u--full_HasNames_C-40C-40EnvC-32TermC-41C-32C-36varsC-41 arg-5 e-6 clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-5 e-10 clam-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-5 e-11 clam-0))) (case (vector-ref act-26 0) ((0) (let ((e-4 (vector-ref act-26 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref act-26 1))) (vector 1 (cons e-2 (cons e-5 (cons e-8 e-9))))))))))))))))))))))))) +(define CoreC-45Context-n--15495-8896-u--findAlias (lambda (arg-0 arg-1 arg-2) (if (null? arg-2) (lambda (eta-0) (vector 1 arg-0)) (let ((e-2 (car arg-2))) (let ((e-3 (cdr arg-2))) (case (vector-ref e-2 0) ((1) (let ((e-4 (vector-ref e-2 1))) (let ((e-5 (vector-ref e-2 2))) (let ((sc2 (CoreC-45Name-u--C-61C-61_Eq_Name e-5 arg-0))) (cond ((equal? sc2 1) (lambda (eta-0) (vector 1 e-4))) (else (CoreC-45Context-n--15495-8896-u--findAlias arg-0 arg-1 e-3)))))))(else (CoreC-45Context-n--15495-8896-u--findAlias arg-0 arg-1 e-3)))))))) +(define CoreC-45Context-n--18814-11883-u--direct (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (Builtin-snd ext-0))) +(define CoreC-45Context-n--9807-3540-u--commitStaged (lambda (arg-0 arg-1 arg-2) (if (null? arg-1) (lambda (eta-0) 0) (let ((e-2 (car arg-1))) (let ((e-3 (cdr arg-1))) (let ((e-6 (car e-2))) (let ((e-7 (cdr e-2))) (PreludeC-45Interfaces-C-62C-62 (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-24 (arg-811 eta-0))) ((arg-812 act-24) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-29 (arg-814 eta-0))) (act-29 eta-0)))))) (DataC-45IOArray-writeArray (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-24 (arg-811 eta-0))) ((arg-812 act-24) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-51 (arg-814 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) arg-2 e-6 e-7) (lambda () (CoreC-45Context-n--9807-3540-u--commitStaged arg-0 e-3 arg-2)))))))))) +(define CoreC-45Context-u--trimNS_StripNamespace_GlobalDef (lambda (arg-0 arg-1) (let ((e-0 (vector-ref arg-1 0))) (let ((e-1 (vector-ref arg-1 1))) (let ((e-2 (vector-ref arg-1 2))) (let ((e-3 (vector-ref arg-1 3))) (let ((e-4 (vector-ref arg-1 4))) (let ((e-5 (vector-ref arg-1 5))) (let ((e-6 (vector-ref arg-1 6))) (let ((e-7 (vector-ref arg-1 7))) (let ((e-8 (vector-ref arg-1 8))) (let ((e-9 (vector-ref arg-1 9))) (let ((e-10 (vector-ref arg-1 10))) (let ((e-11 (vector-ref arg-1 11))) (let ((e-12 (vector-ref arg-1 12))) (let ((e-13 (vector-ref arg-1 13))) (let ((e-14 (vector-ref arg-1 14))) (let ((e-15 (vector-ref arg-1 15))) (let ((e-16 (vector-ref arg-1 16))) (let ((e-17 (vector-ref arg-1 17))) (let ((e-18 (vector-ref arg-1 18))) (let ((e-19 (vector-ref arg-1 19))) (let ((e-20 (vector-ref arg-1 20))) (vector e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 (CoreC-45Context-u--trimNS_StripNamespace_Def arg-0 e-17) e-18 e-19 e-20)))))))))))))))))))))))) +(define CoreC-45Context-u--trimNS_StripNamespace_Def (lambda (arg-0 arg-1) (case (vector-ref arg-1 0) ((1) (let ((e-0 (vector-ref arg-1 1))) (let ((e-1 (vector-ref arg-1 2))) (let ((e-2 (vector-ref arg-1 3))) (let ((e-3 (vector-ref arg-1 4))) (let ((e-4 (vector-ref arg-1 5))) (vector 1 e-0 e-1 (CoreC-45CaseTree-u--trimNS_StripNamespace_C-40CaseTreeC-32C-36varsC-41 arg-0 e-2) e-3 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45Context-n--12006-5584-u--trimNSpat e-4 e-1 e-3 e-2 e-0 arg-0 eta-0)) e-4))))))))(else arg-1)))) +(define CoreC-45Context-u--show_Show_SizeChange (lambda (arg-0) (cond ((equal? arg-0 0) "Smaller") ((equal? arg-0 1) "Same") (else "Unknown")))) +(define CoreC-45Context-u--show_Show_SCCall (lambda (arg-0) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name (let ((e-0 (car arg-0))) e-0)) (PreludeC-45TypesC-45String-C-43C-43 ": " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_Nat x-1)) (lambda (u--d) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_Nat u--d x-1)))) (cons (lambda (x-1) (CoreC-45Context-u--show_Show_SizeChange x-1)) (lambda (u--d) (lambda (x-1) (CoreC-45Context-u--showPrec_Show_SizeChange u--d x-1))))) x-0)) (lambda (u--d) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_Nat x-1)) (lambda (d-0) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_Nat d-0 x-1)))) (cons (lambda (x-1) (CoreC-45Context-u--show_Show_SizeChange x-1)) (lambda (d-0) (lambda (x-1) (CoreC-45Context-u--showPrec_Show_SizeChange d-0 x-1))))) u--d x-0)))) u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_Nat x-1)) (lambda (d-0) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_Nat d-0 x-1)))) (cons (lambda (x-1) (CoreC-45Context-u--show_Show_SizeChange x-1)) (lambda (d-0) (lambda (x-1) (CoreC-45Context-u--showPrec_Show_SizeChange d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_Nat x-1)) (lambda (d-1) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_Nat d-1 x-1)))) (cons (lambda (x-1) (CoreC-45Context-u--show_Show_SizeChange x-1)) (lambda (d-1) (lambda (x-1) (CoreC-45Context-u--showPrec_Show_SizeChange d-1 x-1))))) d-0 x-0)))) u--d u--x)))) (let ((e-1 (cdr arg-0))) e-1)))))) +(define CoreC-45Context-u--show_Show_DefFlag (lambda (arg-0) (case (vector-ref arg-0 0) ((0) "inline") ((1) "invertible") ((2) "overloadable") ((3) "tcinline") ((4) (let ((e-0 (vector-ref arg-0 1))) (CoreC-45TT-u--show_Show_TotalReq e-0))) ((5) "blockedhint") ((6) "macro") ((7) "partialeval") ((8) "allguarded") (else (let ((e-2 (vector-ref arg-0 1))) (PreludeC-45TypesC-45String-C-43C-43 "contype " (CoreC-45CompileExpr-u--show_Show_ConInfo e-2))))))) +(define CoreC-45Context-u--show_Show_Def (lambda (arg-0) (case (vector-ref arg-0 0) ((0) "undefined") ((1) (let ((e-1 (vector-ref arg-0 2))) (let ((e-2 (vector-ref arg-0 3))) (let ((e-3 (vector-ref arg-0 4))) (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45Name-u--show_Show_Name u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Name-u--showPrec_Show_Name u--d u--x)))) e-1) (PreludeC-45TypesC-45String-C-43C-43 ";\u000aCompile time tree: " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45CaseTree-u--show_Show_C-40CaseTreeC-32C-36varsC-41 e-1 e-2) (PreludeC-45TypesC-45String-C-43C-43 "\u000aRun time tree: " (CoreC-45CaseTree-u--show_Show_C-40CaseTreeC-32C-36varsC-41 e-1 e-3))))))))) ((5) (let ((e-5 (vector-ref arg-0 1))) (let ((e-6 (vector-ref arg-0 2))) (let ((e-7 (vector-ref arg-0 3))) (PreludeC-45TypesC-45String-C-43C-43 "DataCon " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Int e-5) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Nat e-6) (PreludeC-45Types-maybe (lambda () "") (lambda () (lambda (u--n) (PreludeC-45TypesC-45String-C-43C-43 " (newtype by " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_Bool u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_Bool u--d u--x)))) (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_Nat u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_Nat u--d u--x))))) u--n) ")")))) e-7))))))))) ((6) (let ((e-8 (vector-ref arg-0 1))) (let ((e-9 (vector-ref arg-0 2))) (let ((e-10 (vector-ref arg-0 3))) (let ((e-13 (vector-ref arg-0 6))) (let ((e-14 (vector-ref arg-0 7))) (let ((e-15 (vector-ref arg-0 8))) (PreludeC-45TypesC-45String-C-43C-43 "TyCon " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Int e-8) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Nat e-9) (PreludeC-45TypesC-45String-C-43C-43 " params: " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_Nat u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_Nat u--d u--x)))) e-10) (PreludeC-45TypesC-45String-C-43C-43 " constructors: " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45Name-u--show_Show_Name u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Name-u--showPrec_Show_Name u--d u--x)))) e-14) (PreludeC-45TypesC-45String-C-43C-43 " mutual with: " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45Name-u--show_Show_Name u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Name-u--showPrec_Show_Name u--d u--x)))) e-13) (PreludeC-45TypesC-45String-C-43C-43 " detaggable by: " (PreludeC-45Show-u--show_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_Nat x-0)) (lambda (u--d) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_Nat u--d x-0)))) u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_C-40ListC-32C-36aC-41 (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_Nat x-0)) (lambda (d-0) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_Nat d-0 x-0)))) u--d u--x)))) e-15))))))))))))))))))) ((2) (let ((e-16 (vector-ref arg-0 1))) (PreludeC-45TypesC-45String-C-43C-43 "")))) ((3) (let ((e-17 (vector-ref arg-0 1))) (let ((e-18 (vector-ref arg-0 2))) (PreludeC-45TypesC-45String-C-43C-43 ""))))))) ((4) (let ((e-19 (vector-ref arg-0 1))) (PreludeC-45TypesC-45String-C-43C-43 "")))) ((7) (let ((e-22 (vector-ref arg-0 2))) (PreludeC-45TypesC-45String-C-43C-43 "Hole" (let ((sc1 (let ((e-0 (car e-22))) e-0))) (cond ((equal? sc1 1) " [impl]") (else "")))))) ((8) (let ((e-25 (vector-ref arg-0 3))) (PreludeC-45TypesC-45String-C-43C-43 "Search in " (CoreC-45Name-u--show_Show_Name e-25)))) ((9) (let ((e-26 (vector-ref arg-0 1))) (let ((e-28 (vector-ref arg-0 3))) (PreludeC-45TypesC-45String-C-43C-43 "Guess " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-26) (PreludeC-45TypesC-45String-C-43C-43 " when " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_Int u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_Int u--d u--x)))) e-28))))))) ((10) "Bound name") (else "Delayed")))) +(define CoreC-45Context-u--show_Show_Clause (lambda (arg-0) (let ((e-0 (vector-ref arg-0 0))) (let ((e-2 (vector-ref arg-0 2))) (let ((e-3 (vector-ref arg-0 3))) (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45Name-u--show_Show_Name u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Name-u--showPrec_Show_Name u--d u--x)))) e-0) (PreludeC-45TypesC-45String-C-43C-43 ": " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 e-0 e-2) (PreludeC-45TypesC-45String-C-43C-43 " = " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 e-0 e-3)))))))))) +(define CoreC-45Context-u--show_Show_BuiltinType (lambda (arg-0) (cond ((equal? arg-0 0) "Natural") ((equal? arg-0 1) "NaturalToInteger") (else "IntegerToNatural")))) (define CoreC-45Context-u--showPrec_Show_SizeChange (lambda (arg-0 arg-1) (CoreC-45Context-u--show_Show_SizeChange arg-1))) (define CoreC-45Context-u--showPrec_Show_SCCall (lambda (arg-0 arg-1) (CoreC-45Context-u--show_Show_SCCall arg-1))) (define CoreC-45Context-u--showPrec_Show_DefFlag (lambda (arg-0 arg-1) (CoreC-45Context-u--show_Show_DefFlag arg-1))) (define CoreC-45Context-u--showPrec_Show_Def (lambda (arg-0 arg-1) (CoreC-45Context-u--show_Show_Def arg-1))) (define CoreC-45Context-u--showPrec_Show_Clause (lambda (arg-0 arg-1) (CoreC-45Context-u--show_Show_Clause arg-1))) -(define CoreC-45Context-u--resolved_HasNames_Transform (lambda (arg-0 arg-1 ext-0) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((act-24 ((CoreC-45Context-u--resolved_HasNames_Name arg-0 e-1) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Context-u--resolved_HasNames_C-40C-40EnvC-32TermC-41C-32C-36varsC-41 arg-0 e-2 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-0 e-3) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-0 e-4) ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 0 e-0 e-5 e-6 e-7 e-8)))))))))))))))))))))))))))))) -(define CoreC-45Context-u--resolved_HasNames_Totality (lambda (arg-0 arg-1 ext-0) (let ((sc0 arg-1)) (let ((e-0 (car sc0))) (let ((e-1 (cdr sc0))) (let ((act-24 (CoreC-45Context-u--resolved_HasNames_Terminating arg-0 e-0 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Context-u--resolved_HasNames_Covering arg-0 e-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (cons e-5 e-6))))))))))))))))) -(define CoreC-45Context-u--resolved_HasNames_Terminating (lambda (arg-0 arg-1 ext-0) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (let ((act-24 (CoreC-45Context-u--resolved_HasNames_PartialReason arg-0 e-0 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 2 e-5)))))))))(else (vector 1 arg-1)))))) -(define CoreC-45Context-u--resolved_HasNames_SCCall (lambda (arg-0 arg-1 ext-0) (let ((act-24 ((CoreC-45Context-u--resolved_HasNames_Name arg-0 (let ((sc0 arg-1)) (let ((e-0 (car sc0))) e-0))) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (let ((sc1 arg-1)) (let ((e-1 (cdr sc1))) (cons e-5 e-1))))))))))) -(define CoreC-45Context-u--resolved_HasNames_Pat (lambda (arg-0 arg-1 ext-0) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (CoreC-45Core-C-60C-42C-62 (lambda (eta-0) (CoreC-45Core-C-60C-42C-62 (lambda (eta-1) (CoreC-45Core-C-60C-42C-62 (lambda (eta-2) (vector 1 (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (vector 0 eta-3 eta-4 eta-5)))))) (lambda (eta-2) (vector 1 e-0)) eta-1)) (CoreC-45Context-u--resolved_HasNames_Name arg-0 e-1) eta-0)) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Pat arg-0 e-2 eta-0)) ext-0))))) ((1) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((e-6 (vector-ref sc0 4))) (let ((e-7 (vector-ref sc0 5))) (CoreC-45Core-C-60C-42C-62 (lambda (eta-0) (CoreC-45Core-C-60C-42C-62 (lambda (eta-1) (CoreC-45Core-C-60C-42C-62 (lambda (eta-2) (CoreC-45Core-C-60C-42C-62 (lambda (eta-3) (CoreC-45Core-C-60C-42C-62 (lambda (eta-4) (vector 1 (lambda (eta-5) (lambda (eta-6) (lambda (eta-7) (lambda (eta-8) (lambda (eta-9) (vector 1 eta-5 eta-6 eta-7 eta-8 eta-9)))))))) (lambda (eta-4) (vector 1 e-3)) eta-3)) (CoreC-45Context-u--resolved_HasNames_Name arg-0 e-4) eta-2)) (lambda (eta-2) (vector 1 e-5)) eta-1)) (lambda (eta-1) (vector 1 e-6)) eta-0)) (lambda (eta-0) (CoreC-45Core-traverseC-39 (lambda (arg-2) (lambda (eta-1) (CoreC-45Context-u--resolved_HasNames_Pat arg-0 arg-2 eta-1))) e-7 '() eta-0)) ext-0))))))) ((2) (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 3))) (let ((e-11 (vector-ref sc0 4))) (CoreC-45Core-C-60C-42C-62 (lambda (eta-0) (CoreC-45Core-C-60C-42C-62 (lambda (eta-1) (CoreC-45Core-C-60C-42C-62 (lambda (eta-2) (CoreC-45Core-C-60C-42C-62 (lambda (eta-3) (vector 1 (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (lambda (eta-7) (vector 2 eta-4 eta-5 eta-6 eta-7))))))) (lambda (eta-3) (vector 1 e-8)) eta-2)) (CoreC-45Context-u--resolved_HasNames_Name arg-0 e-9) eta-1)) (lambda (eta-1) (vector 1 e-10)) eta-0)) (lambda (eta-0) (CoreC-45Core-traverseC-39 (lambda (arg-2) (lambda (eta-1) (CoreC-45Context-u--resolved_HasNames_Pat arg-0 arg-2 eta-1))) e-11 '() eta-0)) ext-0)))))) ((3) (vector 1 arg-1)) ((4) (let ((e-14 (vector-ref sc0 1))) (let ((e-15 (vector-ref sc0 2))) (let ((e-16 (vector-ref sc0 3))) (let ((e-17 (vector-ref sc0 4))) (CoreC-45Core-C-60C-42C-62 (lambda (eta-0) (CoreC-45Core-C-60C-42C-62 (lambda (eta-1) (CoreC-45Core-C-60C-42C-62 (lambda (eta-2) (CoreC-45Core-C-60C-42C-62 (lambda (eta-3) (vector 1 (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (lambda (eta-7) (vector 4 eta-4 eta-5 eta-6 eta-7))))))) (lambda (eta-3) (vector 1 e-14)) eta-2)) (CoreC-45Context-u--resolved_HasNames_Name arg-0 e-15) eta-1)) (lambda (eta-1) (CoreC-45Context-u--resolved_HasNames_Pat arg-0 e-16 eta-1)) eta-0)) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Pat arg-0 e-17 eta-0)) ext-0)))))) ((5) (let ((e-18 (vector-ref sc0 1))) (let ((e-19 (vector-ref sc0 2))) (let ((e-20 (vector-ref sc0 3))) (let ((e-21 (vector-ref sc0 4))) (CoreC-45Core-C-60C-42C-62 (lambda (eta-0) (CoreC-45Core-C-60C-42C-62 (lambda (eta-1) (CoreC-45Core-C-60C-42C-62 (lambda (eta-2) (CoreC-45Core-C-60C-42C-62 (lambda (eta-3) (vector 1 (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (lambda (eta-7) (vector 5 eta-4 eta-5 eta-6 eta-7))))))) (lambda (eta-3) (vector 1 e-18)) eta-2)) (lambda (eta-2) (vector 1 e-19)) eta-1)) (lambda (eta-1) (CoreC-45Context-u--resolved_HasNames_Pat arg-0 e-20 eta-1)) eta-0)) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Pat arg-0 e-21 eta-0)) ext-0)))))) ((6) (let ((e-22 (vector-ref sc0 1))) (let ((e-23 (vector-ref sc0 2))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc1 eta-0)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 6 e-22 e-5))))))) (CoreC-45Context-u--resolved_HasNames_Name arg-0 e-23) ext-0)))) (else (let ((e-24 (vector-ref sc0 1))) (let ((e-25 (vector-ref sc0 2))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc1 eta-0)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 7 e-24 e-5))))))) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-0 e-25) ext-0)))))))) -(define CoreC-45Context-u--resolved_HasNames_PartialReason (lambda (arg-0 arg-1 ext-0) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 1 (vector 0 ))) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-0 eta-0)) e-0 '() ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-5))))))))) (else (let ((e-1 (vector-ref sc0 1))) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-0 eta-0)) e-1 '() ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 2 e-5))))))))))))) -(define CoreC-45Context-u--resolved_HasNames_Name (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((9) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 9 e-0)))))(else (lambda (eta-0) (CoreC-45Context-case--resolved-3880 arg-1 arg-0 (CoreC-45Context-getNameID arg-1 arg-0) eta-0))))))) -(define CoreC-45Context-u--resolved_HasNames_GlobalDef (lambda (arg-0 arg-1 ext-0) (let ((act-24 ((CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-0 (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 3))) e-2))) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (CoreC-45Context-u--resolved_HasNames_Def arg-0 (let ((sc1 arg-1)) (let ((e-17 (vector-ref sc1 18))) e-17)) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (CoreC-45Context-u--resolved_HasNames_Totality arg-0 (let ((sc2 arg-1)) (let ((e-10 (vector-ref sc2 11))) e-10)) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (CoreC-45Context-u--resolved_HasNames_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-3810) (lambda (arg-3811) (CoreC-45Context-u--full_HasNames_C-40NameMapC-32C-36aC-41 arg-3810 arg-3811))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40NameMapC-32C-36aC-41 arg-3812 arg-3813)))) arg-0 (let ((sc3 arg-1)) (let ((e-12 (vector-ref sc3 13))) e-12)) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (CoreC-45Context-u--resolved_HasNames_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-3810) (lambda (arg-3811) (CoreC-45Context-u--full_HasNames_C-40NameMapC-32C-36aC-41 arg-3810 arg-3811))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40NameMapC-32C-36aC-41 arg-3812 arg-3813)))) arg-0 (let ((sc4 arg-1)) (let ((e-13 (vector-ref sc4 14))) e-13)) ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-29 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (CoreC-45Context-u--resolved_HasNames_SCCall arg-0 eta-0 eta-1))) (let ((sc5 arg-1)) (let ((e-20 (vector-ref sc5 21))) e-20)) '() ext-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc5 1))) (vector 1 (let ((sc6 arg-1)) (let ((e-0 (vector-ref sc6 1))) (let ((e-1 (vector-ref sc6 2))) (let ((e-3 (vector-ref sc6 4))) (let ((e-4 (vector-ref sc6 5))) (let ((e-26 (vector-ref sc6 6))) (let ((e-25 (vector-ref sc6 7))) (let ((e-24 (vector-ref sc6 8))) (let ((e-23 (vector-ref sc6 9))) (let ((e-22 (vector-ref sc6 10))) (let ((e-11 (vector-ref sc6 12))) (let ((e-14 (vector-ref sc6 15))) (let ((e-15 (vector-ref sc6 16))) (let ((e-16 (vector-ref sc6 17))) (let ((e-18 (vector-ref sc6 19))) (let ((e-19 (vector-ref sc6 20))) (vector 0 e-0 e-1 e-5 e-3 e-4 e-26 e-25 e-24 e-23 e-22 e-7 e-11 e-8 e-9 e-14 e-15 e-16 e-6 e-18 e-19 e-10)))))))))))))))))))))))))))))))))))))))))))))))))) -(define CoreC-45Context-u--resolved_HasNames_Def (lambda (arg-0 arg-1 ext-0) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((act-24 (CoreC-45Context-u--resolved_HasNames_C-40CaseTreeC-32C-36varsC-41 arg-0 e-2 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Context-u--resolved_HasNames_C-40CaseTreeC-32C-36varsC-41 arg-0 e-3 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Context-n--13399-5459-u--resolvedNamesPat e-4 e-1 e-3 e-2 e-0 arg-0 eta-0)) e-4 '() ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 1 e-0 e-1 e-5 e-6 e-7))))))))))))))))))))))) ((6) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (let ((e-9 (vector-ref sc0 5))) (let ((e-10 (vector-ref sc0 6))) (let ((e-11 (vector-ref sc0 7))) (let ((e-12 (vector-ref sc0 8))) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-0 eta-0)) e-10 '() ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-0 eta-0)) e-11 '() ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref sc2 1))) (vector 1 (vector 6 e-5 e-6 e-7 e-8 e-9 e-13 e-14 e-12))))))))))))))))))))) ((8) (let ((e-13 (vector-ref sc0 1))) (let ((e-14 (vector-ref sc0 2))) (let ((e-15 (vector-ref sc0 3))) (let ((act-24 ((CoreC-45Context-u--resolved_HasNames_Name arg-0 e-15) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 8 e-13 e-14 e-5))))))))))) ((9) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((act-24 ((CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-0 e-16) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 9 e-5 e-17 e-18)))))))))))(else (vector 1 arg-1)))))) -(define CoreC-45Context-u--resolved_HasNames_Covering (lambda (arg-0 arg-1 ext-0) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 1 (vector 0 ))) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (arg-2) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-0 arg-2)) e-0 '() ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-5))))))))) (else (let ((e-1 (vector-ref sc0 1))) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-0 eta-0)) e-1 '() ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 2 e-5))))))))))))) -(define CoreC-45Context-u--resolved_HasNames_Clause (lambda (arg-0 arg-1 ext-0) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (CoreC-45Core-C-60C-42C-62 (lambda (eta-0) (CoreC-45Core-C-60C-42C-62 (lambda (eta-1) (CoreC-45Core-C-60C-42C-62 (lambda (eta-2) (vector 1 (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (vector 0 e-0 eta-3 eta-4 eta-5)))))) (lambda (eta-2) (CoreC-45Context-u--resolved_HasNames_C-40C-40EnvC-32TermC-41C-32C-36varsC-41 arg-0 e-1 eta-2)) eta-1)) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-0 e-2) eta-0)) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-0 e-3) ext-0)))))))) -(define CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 (lambda (arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (lambda (eta-0) (CoreC-45Context-case--resolved-4129 e-3 e-2 e-1 arg-1 (CoreC-45Context-getNameID e-3 arg-1) eta-0)))))) ((2) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (arg-3) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-1 arg-3)) e-8 '() eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc1 1))) (CoreC-45Context-case--resolved-4179 e-8 e-7 e-6 e-5 arg-1 e-9 (CoreC-45Context-getNameID e-6 arg-1) eta-0)))))))))))) ((3) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (let ((e-13 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (CoreC-45CoreC-45Binder-traverse (lambda (arg-3) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-1 arg-3)) e-12 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-1 e-13) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 3 e-10 e-11 e-5 e-6)))))))))))))))))) ((4) (let ((e-15 (vector-ref sc0 1))) (let ((e-16 (vector-ref sc0 2))) (let ((e-17 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-1 e-16) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-1 e-17) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 4 e-15 e-5 e-6))))))))))))))))) ((5) (let ((e-19 (vector-ref sc0 1))) (let ((e-20 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 3))) (let ((e-22 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-1 e-21) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-1 e-22) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 5 e-19 e-20 e-5 e-6)))))))))))))))))) ((6) (let ((e-24 (vector-ref sc0 1))) (let ((e-25 (vector-ref sc0 2))) (let ((e-26 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-1 e-26) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 6 e-24 e-25 e-5)))))))))))) ((7) (let ((e-28 (vector-ref sc0 1))) (let ((e-29 (vector-ref sc0 2))) (let ((e-30 (vector-ref sc0 3))) (let ((e-31 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-1 e-30) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-1 e-31) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 7 e-28 e-29 e-5 e-6)))))))))))))))))) ((8) (let ((e-33 (vector-ref sc0 1))) (let ((e-34 (vector-ref sc0 2))) (let ((e-35 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-1 e-35) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 8 e-33 e-34 e-5))))))))))))(else (lambda (eta-0) (vector 1 arg-2))))))) -(define CoreC-45Context-u--resolved_HasNames_C-40NameMapC-32C-36aC-41 (lambda (arg-1 arg-2) (lambda (eta-0) (CoreC-45Context-n--13716-5654-u--insertAll arg-2 arg-1 (LibrariesC-45DataC-45NameMap-empty) (LibrariesC-45DataC-45NameMap-toList arg-2) eta-0)))) -(define CoreC-45Context-u--resolved_HasNames_C-40MaybeC-32C-36aC-41 (lambda (arg-1 arg-2 arg-3 ext-0) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 1 (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((act-24 (let ((sc1 arg-1)) (let ((e-3 (cdr sc1))) (((e-3 arg-2) e-2) ext-0))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-5))))))))))))) -(define CoreC-45Context-u--resolved_HasNames_C-40CaseTreeC-32C-36varsC-41 (lambda (arg-1 arg-2 ext-0) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (let ((act-24 ((CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-1 e-4) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (arg-3) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40CaseAltC-32C-36varsC-41 arg-1 arg-3 eta-0))) e-5 '() ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc2 1))) (vector 1 (vector 0 e-1 e-2 e-6 e-7))))))))))))))))) ((1) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((act-24 ((CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-1 e-8) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-7 e-5))))))))))(else (vector 1 arg-2)))))) -(define CoreC-45Context-u--resolved_HasNames_C-40CaseAltC-32C-36varsC-41 (lambda (arg-1 arg-2 ext-0) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((act-24 (CoreC-45Context-u--resolved_HasNames_C-40CaseTreeC-32C-36varsC-41 arg-1 e-4 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (CoreC-45Context-case--resolved-5013 e-3 e-4 e-2 e-1 arg-1 e-5 (CoreC-45Context-getNameID e-1 arg-1) ext-0))))))))))) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (let ((act-24 (CoreC-45Context-u--resolved_HasNames_C-40CaseTreeC-32C-36varsC-41 arg-1 e-8 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-6 e-7 e-5))))))))))) ((2) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((act-24 (CoreC-45Context-u--resolved_HasNames_C-40CaseTreeC-32C-36varsC-41 arg-1 e-11 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 2 e-10 e-5)))))))))) (else (let ((e-13 (vector-ref sc0 1))) (let ((act-24 (CoreC-45Context-u--resolved_HasNames_C-40CaseTreeC-32C-36varsC-41 arg-1 e-13 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 3 e-5))))))))))))) -(define CoreC-45Context-u--resolved_HasNames_C-40C-40EnvC-32TermC-41C-32C-36varsC-41 (lambda (arg-1 arg-2 ext-0) (let ((sc0 arg-2)) (if (null? sc0) (vector 1 '()) (let ((e-4 (car sc0))) (let ((e-5 (cdr sc0))) (let ((act-24 (CoreC-45CoreC-45Binder-traverse (lambda (arg-3) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-1 arg-3)) e-4 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Context-u--resolved_HasNames_C-40C-40EnvC-32TermC-41C-32C-36varsC-41 arg-1 e-5 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (vector 1 (cons e-6 e-7)))))))))))))))))) -(define CoreC-45Context-u--full_HasNames_Transform (lambda (arg-0 arg-1 ext-0) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((act-24 (CoreC-45Context-u--full_HasNames_Name arg-0 e-1 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Context-u--full_HasNames_C-40C-40EnvC-32TermC-41C-32C-36varsC-41 arg-0 e-2 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-0 e-3 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-0 e-4 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 0 e-0 e-5 e-6 e-7 e-8)))))))))))))))))))))))))))))) -(define CoreC-45Context-u--full_HasNames_Totality (lambda (arg-0 arg-1 ext-0) (let ((sc0 arg-1)) (let ((e-0 (car sc0))) (let ((e-1 (cdr sc0))) (let ((act-24 (CoreC-45Context-u--full_HasNames_Terminating arg-0 e-0 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Context-u--full_HasNames_Covering arg-0 e-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (cons e-5 e-6))))))))))))))))) -(define CoreC-45Context-u--full_HasNames_Terminating (lambda (arg-0 arg-1 ext-0) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (let ((act-24 (CoreC-45Context-u--full_HasNames_PartialReason arg-0 e-0 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 2 e-5)))))))))(else (vector 1 arg-1)))))) -(define CoreC-45Context-u--full_HasNames_SCCall (lambda (arg-0 arg-1 ext-0) (let ((act-24 (CoreC-45Context-u--full_HasNames_Name arg-0 (let ((sc0 arg-1)) (let ((e-0 (car sc0))) e-0)) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (let ((sc1 arg-1)) (let ((e-1 (cdr sc1))) (cons e-5 e-1))))))))))) -(define CoreC-45Context-u--full_HasNames_Pat (lambda (arg-0 arg-1 ext-0) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (CoreC-45Core-C-60C-42C-62 (lambda (eta-0) (CoreC-45Core-C-60C-42C-62 (lambda (eta-1) (CoreC-45Core-C-60C-42C-62 (lambda (eta-2) (vector 1 (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (vector 0 eta-3 eta-4 eta-5)))))) (lambda (eta-2) (vector 1 e-0)) eta-1)) (lambda (eta-1) (CoreC-45Context-u--full_HasNames_Name arg-0 e-1 eta-1)) eta-0)) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Pat arg-0 e-2 eta-0)) ext-0))))) ((1) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((e-6 (vector-ref sc0 4))) (let ((e-7 (vector-ref sc0 5))) (CoreC-45Core-C-60C-42C-62 (lambda (eta-0) (CoreC-45Core-C-60C-42C-62 (lambda (eta-1) (CoreC-45Core-C-60C-42C-62 (lambda (eta-2) (CoreC-45Core-C-60C-42C-62 (lambda (eta-3) (CoreC-45Core-C-60C-42C-62 (lambda (eta-4) (vector 1 (lambda (eta-5) (lambda (eta-6) (lambda (eta-7) (lambda (eta-8) (lambda (eta-9) (vector 1 eta-5 eta-6 eta-7 eta-8 eta-9)))))))) (lambda (eta-4) (vector 1 e-3)) eta-3)) (lambda (eta-3) (CoreC-45Context-u--full_HasNames_Name arg-0 e-4 eta-3)) eta-2)) (lambda (eta-2) (vector 1 e-5)) eta-1)) (lambda (eta-1) (vector 1 e-6)) eta-0)) (lambda (eta-0) (CoreC-45Core-traverseC-39 (lambda (arg-2) (lambda (eta-1) (CoreC-45Context-u--full_HasNames_Pat arg-0 arg-2 eta-1))) e-7 '() eta-0)) ext-0))))))) ((2) (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 3))) (let ((e-11 (vector-ref sc0 4))) (CoreC-45Core-C-60C-42C-62 (lambda (eta-0) (CoreC-45Core-C-60C-42C-62 (lambda (eta-1) (CoreC-45Core-C-60C-42C-62 (lambda (eta-2) (CoreC-45Core-C-60C-42C-62 (lambda (eta-3) (vector 1 (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (lambda (eta-7) (vector 2 eta-4 eta-5 eta-6 eta-7))))))) (lambda (eta-3) (vector 1 e-8)) eta-2)) (lambda (eta-2) (CoreC-45Context-u--full_HasNames_Name arg-0 e-9 eta-2)) eta-1)) (lambda (eta-1) (vector 1 e-10)) eta-0)) (lambda (eta-0) (CoreC-45Core-traverseC-39 (lambda (arg-2) (lambda (eta-1) (CoreC-45Context-u--full_HasNames_Pat arg-0 arg-2 eta-1))) e-11 '() eta-0)) ext-0)))))) ((3) (vector 1 arg-1)) ((4) (let ((e-14 (vector-ref sc0 1))) (let ((e-15 (vector-ref sc0 2))) (let ((e-16 (vector-ref sc0 3))) (let ((e-17 (vector-ref sc0 4))) (CoreC-45Core-C-60C-42C-62 (lambda (eta-0) (CoreC-45Core-C-60C-42C-62 (lambda (eta-1) (CoreC-45Core-C-60C-42C-62 (lambda (eta-2) (CoreC-45Core-C-60C-42C-62 (lambda (eta-3) (vector 1 (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (lambda (eta-7) (vector 4 eta-4 eta-5 eta-6 eta-7))))))) (lambda (eta-3) (vector 1 e-14)) eta-2)) (lambda (eta-2) (CoreC-45Context-u--full_HasNames_Name arg-0 e-15 eta-2)) eta-1)) (lambda (eta-1) (CoreC-45Context-u--full_HasNames_Pat arg-0 e-16 eta-1)) eta-0)) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Pat arg-0 e-17 eta-0)) ext-0)))))) ((5) (let ((e-18 (vector-ref sc0 1))) (let ((e-19 (vector-ref sc0 2))) (let ((e-20 (vector-ref sc0 3))) (let ((e-21 (vector-ref sc0 4))) (CoreC-45Core-C-60C-42C-62 (lambda (eta-0) (CoreC-45Core-C-60C-42C-62 (lambda (eta-1) (CoreC-45Core-C-60C-42C-62 (lambda (eta-2) (CoreC-45Core-C-60C-42C-62 (lambda (eta-3) (vector 1 (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (lambda (eta-7) (vector 5 eta-4 eta-5 eta-6 eta-7))))))) (lambda (eta-3) (vector 1 e-18)) eta-2)) (lambda (eta-2) (vector 1 e-19)) eta-1)) (lambda (eta-1) (CoreC-45Context-u--full_HasNames_Pat arg-0 e-20 eta-1)) eta-0)) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Pat arg-0 e-21 eta-0)) ext-0)))))) ((6) (let ((e-22 (vector-ref sc0 1))) (let ((e-23 (vector-ref sc0 2))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc1 eta-0)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 6 e-22 e-5))))))) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-0 e-23 eta-0)) ext-0)))) (else (let ((e-24 (vector-ref sc0 1))) (let ((e-25 (vector-ref sc0 2))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc1 eta-0)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 7 e-24 e-5))))))) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-0 e-25 eta-0)) ext-0)))))))) -(define CoreC-45Context-u--full_HasNames_PartialReason (lambda (arg-0 arg-1 ext-0) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 1 (vector 0 ))) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (CoreC-45Context-u--full_HasNames_Name arg-0 eta-0 eta-1))) e-0 '() ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-5))))))))) (else (let ((e-1 (vector-ref sc0 1))) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (CoreC-45Context-u--full_HasNames_Name arg-0 eta-0 eta-1))) e-1 '() ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 2 e-5))))))))))))) -(define CoreC-45Context-u--full_HasNames_Name (lambda (arg-0 arg-1 ext-0) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((9) (let ((e-0 (vector-ref sc0 1))) (let ((act-24 ((CoreC-45Context-lookupCtxtExact (vector 9 e-0) arg-0) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (vector 1 (let ((sc3 e-1)) (let ((e-22 (vector-ref sc3 2))) e-22))))) (else (vector 1 (vector 9 e-0))))))))))))(else (vector 1 arg-1)))))) -(define CoreC-45Context-u--full_HasNames_GlobalDef (lambda (arg-0 arg-1 ext-0) (let ((act-24 (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-0 (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 3))) e-2)) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (CoreC-45Context-u--full_HasNames_Def arg-0 (let ((sc1 arg-1)) (let ((e-17 (vector-ref sc1 18))) e-17)) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (CoreC-45Context-u--full_HasNames_Totality arg-0 (let ((sc2 arg-1)) (let ((e-10 (vector-ref sc2 11))) e-10)) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (CoreC-45Context-u--full_HasNames_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-3810) (lambda (arg-3811) (CoreC-45Context-u--full_HasNames_C-40NameMapC-32C-36aC-41 arg-3810 arg-3811))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40NameMapC-32C-36aC-41 arg-3812 arg-3813)))) arg-0 (let ((sc3 arg-1)) (let ((e-12 (vector-ref sc3 13))) e-12)) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (CoreC-45Context-u--full_HasNames_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-3810) (lambda (arg-3811) (CoreC-45Context-u--full_HasNames_C-40NameMapC-32C-36aC-41 arg-3810 arg-3811))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40NameMapC-32C-36aC-41 arg-3812 arg-3813)))) arg-0 (let ((sc4 arg-1)) (let ((e-13 (vector-ref sc4 14))) e-13)) ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-29 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (CoreC-45Context-u--full_HasNames_SCCall arg-0 eta-0 eta-1))) (let ((sc5 arg-1)) (let ((e-20 (vector-ref sc5 21))) e-20)) '() ext-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc5 1))) (vector 1 (let ((sc6 arg-1)) (let ((e-0 (vector-ref sc6 1))) (let ((e-1 (vector-ref sc6 2))) (let ((e-3 (vector-ref sc6 4))) (let ((e-4 (vector-ref sc6 5))) (let ((e-26 (vector-ref sc6 6))) (let ((e-25 (vector-ref sc6 7))) (let ((e-24 (vector-ref sc6 8))) (let ((e-23 (vector-ref sc6 9))) (let ((e-22 (vector-ref sc6 10))) (let ((e-11 (vector-ref sc6 12))) (let ((e-14 (vector-ref sc6 15))) (let ((e-15 (vector-ref sc6 16))) (let ((e-16 (vector-ref sc6 17))) (let ((e-18 (vector-ref sc6 19))) (let ((e-19 (vector-ref sc6 20))) (vector 0 e-0 e-1 e-5 e-3 e-4 e-26 e-25 e-24 e-23 e-22 e-7 e-11 e-8 e-9 e-14 e-15 e-16 e-6 e-18 e-19 e-10)))))))))))))))))))))))))))))))))))))))))))))))))) -(define CoreC-45Context-u--full_HasNames_Def (lambda (arg-0 arg-1 ext-0) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((act-24 (CoreC-45Context-u--full_HasNames_C-40CaseTreeC-32C-36varsC-41 arg-0 e-2 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Context-u--full_HasNames_C-40CaseTreeC-32C-36varsC-41 arg-0 e-3 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Context-n--13398-5318-u--fullNamesPat e-4 e-1 e-3 e-2 e-0 arg-0 eta-0)) e-4 '() ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 1 e-0 e-1 e-5 e-6 e-7))))))))))))))))))))))) ((6) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (let ((e-9 (vector-ref sc0 5))) (let ((e-10 (vector-ref sc0 6))) (let ((e-11 (vector-ref sc0 7))) (let ((e-12 (vector-ref sc0 8))) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (CoreC-45Context-u--full_HasNames_Name arg-0 eta-0 eta-1))) e-10 '() ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (CoreC-45Context-u--full_HasNames_Name arg-0 eta-0 eta-1))) e-11 '() ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref sc2 1))) (vector 1 (vector 6 e-5 e-6 e-7 e-8 e-9 e-13 e-14 e-12))))))))))))))))))))) ((8) (let ((e-13 (vector-ref sc0 1))) (let ((e-14 (vector-ref sc0 2))) (let ((e-15 (vector-ref sc0 3))) (let ((act-24 (CoreC-45Context-u--full_HasNames_Name arg-0 e-15 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 8 e-13 e-14 e-5))))))))))) ((9) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((act-24 (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-0 e-16 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 9 e-5 e-17 e-18)))))))))))(else (vector 1 arg-1)))))) -(define CoreC-45Context-u--full_HasNames_Covering (lambda (arg-0 arg-1 ext-0) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 1 (vector 0 ))) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (arg-2) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-0 arg-2 eta-0))) e-0 '() ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-5))))))))) (else (let ((e-1 (vector-ref sc0 1))) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (CoreC-45Context-u--full_HasNames_Name arg-0 eta-0 eta-1))) e-1 '() ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 2 e-5))))))))))))) -(define CoreC-45Context-u--full_HasNames_Clause (lambda (arg-0 arg-1 ext-0) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((act-24 (CoreC-45Context-u--full_HasNames_C-40C-40EnvC-32TermC-41C-32C-36varsC-41 arg-0 e-1 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-0 e-2 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-0 e-3 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 0 e-0 e-5 e-6 e-7)))))))))))))))))))))))) -(define CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 (lambda (arg-1 arg-2 ext-0) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((9) (let ((e-36 (vector-ref sc1 1))) (let ((act-24 ((CoreC-45Context-lookupCtxtExact (vector 9 e-36) arg-1) ext-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((1) (let ((e-4 (vector-ref sc3 1))) (vector 1 (vector 1 e-1 e-2 (let ((sc4 e-4)) (let ((e-25 (vector-ref sc4 2))) e-25)))))) (else (vector 1 (vector 1 e-1 e-2 (vector 9 e-36)))))))))))))(else (vector 1 arg-2)))))))) ((2) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (arg-3) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-1 arg-3 eta-0))) e-8 '() ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc1 1))) (vector 1 (vector 2 e-5 e-6 e-7 e-9)))))))))))) ((3) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (let ((e-13 (vector-ref sc0 4))) (let ((act-24 (CoreC-45CoreC-45Binder-traverse (lambda (arg-3) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-1 arg-3 eta-0))) e-12 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-1 e-13 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 3 e-10 e-11 e-5 e-6))))))))))))))))) ((4) (let ((e-15 (vector-ref sc0 1))) (let ((e-16 (vector-ref sc0 2))) (let ((e-17 (vector-ref sc0 3))) (let ((act-24 (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-1 e-16 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-1 e-17 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 4 e-15 e-5 e-6)))))))))))))))) ((5) (let ((e-19 (vector-ref sc0 1))) (let ((e-20 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 3))) (let ((e-22 (vector-ref sc0 4))) (let ((act-24 (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-1 e-21 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-1 e-22 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 5 e-19 e-20 e-5 e-6))))))))))))))))) ((6) (let ((e-24 (vector-ref sc0 1))) (let ((e-25 (vector-ref sc0 2))) (let ((e-26 (vector-ref sc0 3))) (let ((act-24 (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-1 e-26 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 6 e-24 e-25 e-5))))))))))) ((7) (let ((e-28 (vector-ref sc0 1))) (let ((e-29 (vector-ref sc0 2))) (let ((e-30 (vector-ref sc0 3))) (let ((e-31 (vector-ref sc0 4))) (let ((act-24 (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-1 e-30 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-1 e-31 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 7 e-28 e-29 e-5 e-6))))))))))))))))) ((8) (let ((e-33 (vector-ref sc0 1))) (let ((e-34 (vector-ref sc0 2))) (let ((e-35 (vector-ref sc0 3))) (let ((act-24 (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-1 e-35 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 8 e-33 e-34 e-5)))))))))))(else (vector 1 arg-2)))))) -(define CoreC-45Context-u--full_HasNames_C-40NameMapC-32C-36aC-41 (lambda (arg-1 arg-2) (lambda (eta-0) (CoreC-45Context-n--13715-5622-u--insertAll arg-2 arg-1 (LibrariesC-45DataC-45NameMap-empty) (LibrariesC-45DataC-45NameMap-toList arg-2) eta-0)))) -(define CoreC-45Context-u--full_HasNames_C-40MaybeC-32C-36aC-41 (lambda (arg-1 arg-2 arg-3 ext-0) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 1 (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((act-24 (let ((sc1 arg-1)) (let ((e-1 (car sc1))) (((e-1 arg-2) e-2) ext-0))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-5))))))))))))) -(define CoreC-45Context-u--full_HasNames_C-40CaseTreeC-32C-36varsC-41 (lambda (arg-1 arg-2 ext-0) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (let ((act-24 (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-1 e-4 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (arg-3) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40CaseAltC-32C-36varsC-41 arg-1 arg-3 eta-0))) e-5 '() ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc2 1))) (vector 1 (vector 0 e-1 e-2 e-6 e-7))))))))))))))))) ((1) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((act-24 (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-1 e-8 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-7 e-5))))))))))(else (vector 1 arg-2)))))) -(define CoreC-45Context-u--full_HasNames_C-40CaseAltC-32C-36varsC-41 (lambda (arg-1 arg-2 ext-0) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((act-24 (CoreC-45Context-u--full_HasNames_C-40CaseTreeC-32C-36varsC-41 arg-1 e-4 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact e-1 arg-1) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 0 (let ((sc4 e-7)) (let ((e-27 (vector-ref sc4 2))) e-27)) e-2 e-3 e-5)))) (else (vector 1 (vector 0 e-1 e-2 e-3 e-5)))))))))))))))))))) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (let ((act-24 (CoreC-45Context-u--full_HasNames_C-40CaseTreeC-32C-36varsC-41 arg-1 e-8 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-6 e-7 e-5))))))))))) ((2) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((act-24 (CoreC-45Context-u--full_HasNames_C-40CaseTreeC-32C-36varsC-41 arg-1 e-11 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 2 e-10 e-5)))))))))) (else (let ((e-13 (vector-ref sc0 1))) (let ((act-24 (CoreC-45Context-u--full_HasNames_C-40CaseTreeC-32C-36varsC-41 arg-1 e-13 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 3 e-5))))))))))))) -(define CoreC-45Context-u--full_HasNames_C-40C-40EnvC-32TermC-41C-32C-36varsC-41 (lambda (arg-1 arg-2 ext-0) (let ((sc0 arg-2)) (if (null? sc0) (vector 1 '()) (let ((e-4 (car sc0))) (let ((e-5 (cdr sc0))) (let ((act-24 (CoreC-45CoreC-45Binder-traverse (lambda (arg-3) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-1 arg-3 eta-0))) e-4 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Context-u--full_HasNames_C-40C-40EnvC-32TermC-41C-32C-36varsC-41 arg-1 e-5 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (vector 1 (cons e-6 e-7)))))))))))))))))) -(define CoreC-45Context-u--C-61C-61_Eq_SizeChange (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) 0)(else 1)))) ((1) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) 0)(else 1)))) ((2) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((2) 0)(else 1))))(else 1))))) -(define CoreC-45Context-u--C-61C-61_Eq_SCCall (lambda (arg-0 arg-1) (PreludeC-45Basics-C-38C-38 (CoreC-45Name-u--C-61C-61_Eq_Name (let ((sc0 arg-0)) (let ((e-0 (car sc0))) e-0)) (let ((sc0 arg-1)) (let ((e-0 (car sc0))) e-0))) (lambda () (PreludeC-45Types-u--C-61C-61_Eq_C-40ListC-32C-36aC-41 (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45Types-u--C-61C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-61C-61_Eq_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (arg-6) (lambda (arg-7) (PreludeC-45Types-u--C-61C-61_Eq_Nat arg-6 arg-7))) (lambda (arg-6) (lambda (arg-7) (PreludeC-45Types-u--C-47C-61_Eq_Nat arg-6 arg-7)))) (cons (lambda (arg-6) (lambda (arg-7) (CoreC-45Context-u--C-61C-61_Eq_SizeChange arg-6 arg-7))) (lambda (arg-6) (lambda (arg-7) (CoreC-45Context-u--C-47C-61_Eq_SizeChange arg-6 arg-7)))) arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (arg-6) (lambda (arg-7) (PreludeC-45Types-u--C-61C-61_Eq_Nat arg-6 arg-7))) (lambda (arg-6) (lambda (arg-7) (PreludeC-45Types-u--C-47C-61_Eq_Nat arg-6 arg-7)))) (cons (lambda (arg-6) (lambda (arg-7) (CoreC-45Context-u--C-61C-61_Eq_SizeChange arg-6 arg-7))) (lambda (arg-6) (lambda (arg-7) (CoreC-45Context-u--C-47C-61_Eq_SizeChange arg-6 arg-7)))) arg-4 arg-5)))) arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45Types-u--C-47C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (arg-6) (lambda (arg-7) (PreludeC-45Types-u--C-61C-61_Eq_Nat arg-6 arg-7))) (lambda (arg-6) (lambda (arg-7) (PreludeC-45Types-u--C-47C-61_Eq_Nat arg-6 arg-7)))) (cons (lambda (arg-6) (lambda (arg-7) (CoreC-45Context-u--C-61C-61_Eq_SizeChange arg-6 arg-7))) (lambda (arg-6) (lambda (arg-7) (CoreC-45Context-u--C-47C-61_Eq_SizeChange arg-6 arg-7)))) arg-2 arg-3))) (lambda (arg-6) (lambda (arg-7) (PreludeC-45EqOrd-u--C-47C-61_Eq_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45Types-u--C-61C-61_Eq_Nat arg-2 arg-3))) (lambda (arg-8) (lambda (arg-9) (PreludeC-45Types-u--C-47C-61_Eq_Nat arg-8 arg-9)))) (cons (lambda (arg-2) (lambda (arg-3) (CoreC-45Context-u--C-61C-61_Eq_SizeChange arg-2 arg-3))) (lambda (arg-8) (lambda (arg-9) (CoreC-45Context-u--C-47C-61_Eq_SizeChange arg-8 arg-9)))) arg-6 arg-7)))) arg-4 arg-5)))) (let ((sc0 arg-0)) (let ((e-1 (cdr sc0))) e-1)) (let ((sc0 arg-1)) (let ((e-1 (cdr sc0))) e-1))))))) -(define CoreC-45Context-u--C-61C-61_Eq_DefFlag (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) 0)(else 1)))) ((1) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) 0)(else 1)))) ((2) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((2) 0)(else 1)))) ((3) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((3) 0)(else 1)))) ((4) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((4) (let ((e-3 (vector-ref sc1 1))) (CoreC-45TT-u--C-61C-61_Eq_TotalReq e-0 e-3)))(else 1))))) ((5) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((5) 0)(else 1)))) ((6) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((6) 0)(else 1)))) ((7) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((7) (let ((e-4 (vector-ref sc1 1))) (PreludeC-45Types-u--C-61C-61_Eq_C-40ListC-32C-36aC-41 (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (arg-4) (lambda (arg-5) (CoreC-45Name-u--C-61C-61_Eq_Name arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (CoreC-45Name-u--C-47C-61_Eq_Name arg-4 arg-5)))) (cons (lambda (arg-4) (lambda (arg-5) (PreludeC-45Types-u--C-61C-61_Eq_Nat arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45Types-u--C-47C-61_Eq_Nat arg-4 arg-5)))) arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (arg-2) (lambda (arg-3) (CoreC-45Name-u--C-61C-61_Eq_Name arg-2 arg-3))) (lambda (arg-6) (lambda (arg-7) (CoreC-45Name-u--C-47C-61_Eq_Name arg-6 arg-7)))) (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45Types-u--C-61C-61_Eq_Nat arg-2 arg-3))) (lambda (arg-6) (lambda (arg-7) (PreludeC-45Types-u--C-47C-61_Eq_Nat arg-6 arg-7)))) arg-4 arg-5)))) e-1 e-4)))(else 1))))) ((8) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((8) 0)(else 1)))) ((9) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((9) (let ((e-5 (vector-ref sc1 1))) (CoreC-45CompileExpr-u--C-61C-61_Eq_ConInfo e-2 e-5)))(else 1)))))(else 1))))) -(define CoreC-45Context-u--C-47C-61_Eq_SizeChange (lambda (arg-0 arg-1) (let ((sc0 (CoreC-45Context-u--C-61C-61_Eq_SizeChange arg-0 arg-1))) (cond ((equal? sc0 0) 1) (else 0))))) -(define CoreC-45Context-u--C-47C-61_Eq_SCCall (lambda (arg-0 arg-1) (let ((sc0 (CoreC-45Context-u--C-61C-61_Eq_SCCall arg-0 arg-1))) (cond ((equal? sc0 0) 1) (else 0))))) -(define CoreC-45Context-u--C-47C-61_Eq_DefFlag (lambda (arg-0 arg-1) (let ((sc0 (CoreC-45Context-u--C-61C-61_Eq_DefFlag arg-0 arg-1))) (cond ((equal? sc0 0) 1) (else 0))))) -(define CoreC-45Context-withLogLevel (lambda (arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((u--logs (let ((sc1 e-5)) (let ((e-4 (vector-ref sc1 5))) (let ((sc2 e-4)) (let ((e-35 (vector-ref sc2 3))) (let ((sc3 e-35)) (let ((e-46 (vector-ref sc3 7))) e-46)))))))) (let ((act-25 (let ((act-25 (set-box! arg-1 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-28 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (let ((e-26 (vector-ref sc1 27))) (let ((e-27 (vector-ref sc1 28))) (let ((sc2 e-4)) (let ((e-37 (vector-ref sc2 1))) (let ((e-29 (vector-ref sc2 2))) (let ((e-30 (vector-ref sc2 3))) (let ((e-31 (vector-ref sc2 4))) (let ((e-32 (vector-ref sc2 5))) (let ((e-33 (vector-ref sc2 6))) (let ((e-34 (vector-ref sc2 7))) (let ((e-35 (vector-ref sc2 8))) (let ((e-36 (vector-ref sc2 9))) (let ((sc3 e-30)) (let ((e-52 (vector-ref sc3 1))) (let ((e-38 (vector-ref sc3 2))) (let ((e-39 (vector-ref sc3 3))) (let ((e-40 (vector-ref sc3 4))) (let ((e-41 (vector-ref sc3 5))) (let ((e-42 (vector-ref sc3 6))) (let ((e-44 (vector-ref sc3 8))) (let ((e-45 (vector-ref sc3 9))) (let ((e-46 (vector-ref sc3 10))) (let ((e-47 (vector-ref sc3 11))) (let ((e-48 (vector-ref sc3 12))) (let ((e-49 (vector-ref sc3 13))) (let ((e-50 (vector-ref sc3 14))) (let ((e-51 (vector-ref sc3 15))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-37 e-29 (vector 0 e-52 e-38 e-39 e-40 e-41 e-42 (CoreC-45OptionsC-45Log-insertLogLevel arg-2 u--logs) e-44 e-45 e-46 e-47 e-48 e-49 e-50 e-51) e-31 e-32 e-33 e-34 e-35 e-36) e-28 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27)))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 (arg-3 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (let ((act-27 (unbox arg-1))) (vector 1 act-27)))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (let ((act-28 (set-box! arg-1 (let ((sc4 e-8)) (let ((e-0 (vector-ref sc4 1))) (let ((e-1 (vector-ref sc4 2))) (let ((e-2 (vector-ref sc4 3))) (let ((e-3 (vector-ref sc4 4))) (let ((e-4 (vector-ref sc4 5))) (let ((e-31 (vector-ref sc4 6))) (let ((e-30 (vector-ref sc4 7))) (let ((e-29 (vector-ref sc4 8))) (let ((e-28 (vector-ref sc4 9))) (let ((e-9 (vector-ref sc4 10))) (let ((e-10 (vector-ref sc4 11))) (let ((e-11 (vector-ref sc4 12))) (let ((e-12 (vector-ref sc4 13))) (let ((e-13 (vector-ref sc4 14))) (let ((e-14 (vector-ref sc4 15))) (let ((e-15 (vector-ref sc4 16))) (let ((e-16 (vector-ref sc4 17))) (let ((e-17 (vector-ref sc4 18))) (let ((e-18 (vector-ref sc4 19))) (let ((e-19 (vector-ref sc4 20))) (let ((e-20 (vector-ref sc4 21))) (let ((e-21 (vector-ref sc4 22))) (let ((e-22 (vector-ref sc4 23))) (let ((e-23 (vector-ref sc4 24))) (let ((e-24 (vector-ref sc4 25))) (let ((e-25 (vector-ref sc4 26))) (let ((e-26 (vector-ref sc4 27))) (let ((e-27 (vector-ref sc4 28))) (let ((sc5 e-4)) (let ((e-40 (vector-ref sc5 1))) (let ((e-39 (vector-ref sc5 2))) (let ((e-38 (vector-ref sc5 3))) (let ((e-37 (vector-ref sc5 4))) (let ((e-32 (vector-ref sc5 5))) (let ((e-33 (vector-ref sc5 6))) (let ((e-34 (vector-ref sc5 7))) (let ((e-35 (vector-ref sc5 8))) (let ((e-36 (vector-ref sc5 9))) (let ((sc6 e-38)) (let ((e-55 (vector-ref sc6 1))) (let ((e-54 (vector-ref sc6 2))) (let ((e-53 (vector-ref sc6 3))) (let ((e-52 (vector-ref sc6 4))) (let ((e-41 (vector-ref sc6 5))) (let ((e-42 (vector-ref sc6 6))) (let ((e-44 (vector-ref sc6 8))) (let ((e-45 (vector-ref sc6 9))) (let ((e-46 (vector-ref sc6 10))) (let ((e-47 (vector-ref sc6 11))) (let ((e-48 (vector-ref sc6 12))) (let ((e-49 (vector-ref sc6 13))) (let ((e-50 (vector-ref sc6 14))) (let ((e-51 (vector-ref sc6 15))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-40 e-39 (vector 0 e-55 e-54 e-53 e-52 e-41 e-42 u--logs e-44 e-45 e-46 e-47 e-48 e-49 e-50 e-51) e-37 e-32 e-33 e-34 e-35 e-36) e-31 e-30 e-29 e-28 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27)))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-28)))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (vector 1 e-7))))))))))))))))))))))))))) -(define CoreC-45Context-withExtendedNS (lambda (arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((u--cns (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 3))) e-2)))) (let ((act-25 (let ((act-25 (set-box! arg-1 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-28 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (let ((e-26 (vector-ref sc1 27))) (let ((e-27 (vector-ref sc1 28))) (vector 0 e-0 e-1 (CoreC-45NameC-45Namespace-C-60C-46C-62 u--cns arg-2) e-3 e-4 e-28 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27)))))))))))))))))))))))))))))))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45Core-u--catch_Catchable_Core_Error (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (let ((sc2 eta-1)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (vector 1 (vector 1 e-7))))))) arg-3 eta-0)) (lambda (eta-0) (lambda (eta-1) (vector 1 (vector 0 eta-0)))) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (let ((act-27 (unbox arg-1))) (vector 1 act-27)))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (let ((act-28 (set-box! arg-1 (let ((sc4 e-8)) (let ((e-0 (vector-ref sc4 1))) (let ((e-1 (vector-ref sc4 2))) (let ((e-3 (vector-ref sc4 4))) (let ((e-4 (vector-ref sc4 5))) (let ((e-31 (vector-ref sc4 6))) (let ((e-30 (vector-ref sc4 7))) (let ((e-29 (vector-ref sc4 8))) (let ((e-28 (vector-ref sc4 9))) (let ((e-9 (vector-ref sc4 10))) (let ((e-10 (vector-ref sc4 11))) (let ((e-11 (vector-ref sc4 12))) (let ((e-12 (vector-ref sc4 13))) (let ((e-13 (vector-ref sc4 14))) (let ((e-14 (vector-ref sc4 15))) (let ((e-15 (vector-ref sc4 16))) (let ((e-16 (vector-ref sc4 17))) (let ((e-17 (vector-ref sc4 18))) (let ((e-18 (vector-ref sc4 19))) (let ((e-19 (vector-ref sc4 20))) (let ((e-20 (vector-ref sc4 21))) (let ((e-21 (vector-ref sc4 22))) (let ((e-22 (vector-ref sc4 23))) (let ((e-23 (vector-ref sc4 24))) (let ((e-24 (vector-ref sc4 25))) (let ((e-25 (vector-ref sc4 26))) (let ((e-26 (vector-ref sc4 27))) (let ((e-27 (vector-ref sc4 28))) (vector 0 e-0 e-1 u--cns e-3 e-4 e-31 e-30 e-29 e-28 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27)))))))))))))))))))))))))))))))) (vector 1 act-28)))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((sc5 e-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (CoreC-45Core-u--throw_Catchable_Core_Error e-2 ext-0))) (else (let ((e-10 (vector-ref sc5 1))) (vector 1 e-10))))))))))))))))))))))))))))))) -(define CoreC-45Context-withCtxt (lambda (arg-1 ext-1 ext-0) (CoreC-45Core-wrapRef (vector "Core.Context.Ctxt" ) arg-1 (lambda (eta-0) (CoreC-45Context-n--24486-15620-u--resetCtxt arg-1 eta-0)) ext-1 ext-0))) -(define CoreC-45Context-visibleInAny (lambda (arg-0 arg-1 arg-2) (PreludeC-45Interfaces-any (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (lambda (u--ns) (CoreC-45Context-visibleIn u--ns arg-1 arg-2)) arg-0))) -(define CoreC-45Context-visibleIn (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((0) (CoreC-45NameC-45Namespace-isParentOf e-0 arg-0))(else 0)))))(else 0))))) -(define CoreC-45Context-updateTy (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact (vector 9 arg-1) (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc3 eta-0)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))) (lambda (eta-0) (CoreC-45Context-addDef arg-0 (vector 9 arg-1) (let ((sc3 e-1)) (let ((e-0 (vector-ref sc3 1))) (let ((e-23 (vector-ref sc3 2))) (let ((e-3 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-22 (vector-ref sc3 6))) (let ((e-21 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (let ((e-11 (vector-ref sc3 12))) (let ((e-12 (vector-ref sc3 13))) (let ((e-13 (vector-ref sc3 14))) (let ((e-14 (vector-ref sc3 15))) (let ((e-15 (vector-ref sc3 16))) (let ((e-16 (vector-ref sc3 17))) (let ((e-17 (vector-ref sc3 18))) (let ((e-18 (vector-ref sc3 19))) (let ((e-19 (vector-ref sc3 20))) (let ((e-20 (vector-ref sc3 21))) (vector 0 e-0 e-23 arg-2 e-3 e-4 e-22 e-21 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20)))))))))))))))))))))) eta-0)) ext-0))) (else (vector 1 (vector 0 ))))))))))))))))) -(define CoreC-45Context-updateDef (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact arg-1 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((_-0 (vector 1 e-1))) (CoreC-45Context-case--caseC-32blockC-32inC-32updateDef-9379 arg-2 arg-1 arg-0 e-5 e-1 _-0 (arg-2 (let ((sc3 e-1)) (let ((e-17 (vector-ref sc3 18))) e-17))) ext-0)))) (else (vector 1 (vector 0 ))))))))))))))))) -(define CoreC-45Context-unsetFlag (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact arg-2 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((u--flagsC-39 (DataC-45List-filter (lambda (arg-4) (CoreC-45Context-u--C-47C-61_Eq_DefFlag arg-4 arg-3)) (let ((sc3 e-1)) (let ((e-11 (vector-ref sc3 12))) e-11))))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc3 eta-0)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))) (lambda (eta-0) (CoreC-45Context-addDef arg-0 arg-2 (let ((sc3 e-1)) (let ((e-0 (vector-ref sc3 1))) (let ((e-23 (vector-ref sc3 2))) (let ((e-2 (vector-ref sc3 3))) (let ((e-3 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-22 (vector-ref sc3 6))) (let ((e-21 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (let ((e-12 (vector-ref sc3 13))) (let ((e-13 (vector-ref sc3 14))) (let ((e-14 (vector-ref sc3 15))) (let ((e-15 (vector-ref sc3 16))) (let ((e-16 (vector-ref sc3 17))) (let ((e-17 (vector-ref sc3 18))) (let ((e-18 (vector-ref sc3 19))) (let ((e-19 (vector-ref sc3 20))) (let ((e-20 (vector-ref sc3 21))) (vector 0 e-0 e-23 e-2 e-3 e-4 e-22 e-21 e-7 e-8 e-9 e-10 u--flagsC-39 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20)))))))))))))))))))))) eta-0)) ext-0)))) (else (CoreC-45Context-undefinedName arg-0 arg-1 arg-2 ext-0)))))))))))))))) +(define CoreC-45Context-u--restoreNS_StripNamespace_GlobalDef (lambda (arg-0 arg-1) (let ((e-0 (vector-ref arg-1 0))) (let ((e-1 (vector-ref arg-1 1))) (let ((e-2 (vector-ref arg-1 2))) (let ((e-3 (vector-ref arg-1 3))) (let ((e-4 (vector-ref arg-1 4))) (let ((e-5 (vector-ref arg-1 5))) (let ((e-6 (vector-ref arg-1 6))) (let ((e-7 (vector-ref arg-1 7))) (let ((e-8 (vector-ref arg-1 8))) (let ((e-9 (vector-ref arg-1 9))) (let ((e-10 (vector-ref arg-1 10))) (let ((e-11 (vector-ref arg-1 11))) (let ((e-12 (vector-ref arg-1 12))) (let ((e-13 (vector-ref arg-1 13))) (let ((e-14 (vector-ref arg-1 14))) (let ((e-15 (vector-ref arg-1 15))) (let ((e-16 (vector-ref arg-1 16))) (let ((e-17 (vector-ref arg-1 17))) (let ((e-18 (vector-ref arg-1 18))) (let ((e-19 (vector-ref arg-1 19))) (let ((e-20 (vector-ref arg-1 20))) (vector e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 (CoreC-45Context-u--restoreNS_StripNamespace_Def arg-0 e-17) e-18 e-19 e-20)))))))))))))))))))))))) +(define CoreC-45Context-u--restoreNS_StripNamespace_Def (lambda (arg-0 arg-1) (case (vector-ref arg-1 0) ((1) (let ((e-0 (vector-ref arg-1 1))) (let ((e-1 (vector-ref arg-1 2))) (let ((e-2 (vector-ref arg-1 3))) (let ((e-3 (vector-ref arg-1 4))) (let ((e-4 (vector-ref arg-1 5))) (vector 1 e-0 e-1 (CoreC-45CaseTree-u--restoreNS_StripNamespace_C-40CaseTreeC-32C-36varsC-41 arg-0 e-2) e-3 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45Context-n--12007-5637-u--restoreNSpat e-4 e-1 e-3 e-2 e-0 arg-0 eta-0)) e-4))))))))(else arg-1)))) +(define CoreC-45Context-u--resolved_HasNames_Transform (lambda (arg-0 arg-1 ext-0) (let ((e-0 (vector-ref arg-1 0))) (let ((e-1 (vector-ref arg-1 1))) (let ((e-2 (vector-ref arg-1 2))) (let ((e-3 (vector-ref arg-1 3))) (let ((e-4 (vector-ref arg-1 4))) (let ((act-24 (CoreC-45Context-u--resolved_HasNames_Name arg-0 e-1 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-u--resolved_HasNames_C-40C-40EnvC-32TermC-41C-32C-36varsC-41 arg-0 e-2 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-6 (vector-ref act-25 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-0 e-3 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-7 (vector-ref act-26 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-0 e-4 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-8 (vector-ref act-27 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref act-27 1))) (vector 1 (vector e-0 e-5 e-6 e-7 e-8))))))))))))))))))))))))) +(define CoreC-45Context-u--resolved_HasNames_Totality (lambda (arg-0 arg-1 ext-0) (let ((e-0 (car arg-1))) (let ((e-1 (cdr arg-1))) (let ((act-24 (CoreC-45Context-u--resolved_HasNames_Terminating arg-0 e-0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-u--resolved_HasNames_Covering arg-0 e-1 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (cons e-5 e-6)))))))))))))) +(define CoreC-45Context-u--resolved_HasNames_Terminating (lambda (arg-0 arg-1 ext-0) (case (vector-ref arg-1 0) ((2) (let ((e-0 (vector-ref arg-1 1))) (let ((act-24 (CoreC-45Context-u--resolved_HasNames_PartialReason arg-0 e-0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 2 e-5))))))))(else (vector 1 arg-1))))) +(define CoreC-45Context-u--resolved_HasNames_SCCall (lambda (arg-0 arg-1 ext-0) (let ((act-24 (CoreC-45Context-u--resolved_HasNames_Name arg-0 (let ((e-0 (car arg-1))) e-0) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (let ((e-1 (cdr arg-1))) (cons e-5 e-1))))))))) +(define CoreC-45Context-u--resolved_HasNames_Pat (lambda (arg-0 arg-1 ext-0) (case (vector-ref arg-1 0) ((0) (let ((e-0 (vector-ref arg-1 1))) (let ((e-1 (vector-ref arg-1 2))) (let ((e-2 (vector-ref arg-1 3))) (CoreC-45Core-C-60C-42C-62 (lambda (eta-0) (CoreC-45Core-C-60C-42C-62 (lambda (eta-1) (CoreC-45Core-C-60C-42C-62 (lambda (eta-2) (vector 1 (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (vector 0 eta-3 eta-4 eta-5)))))) (lambda (eta-2) (vector 1 e-0)) eta-1)) (lambda (eta-1) (CoreC-45Context-u--resolved_HasNames_Name arg-0 e-1 eta-1)) eta-0)) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Pat arg-0 e-2 eta-0)) ext-0))))) ((1) (let ((e-3 (vector-ref arg-1 1))) (let ((e-4 (vector-ref arg-1 2))) (let ((e-5 (vector-ref arg-1 3))) (let ((e-6 (vector-ref arg-1 4))) (let ((e-7 (vector-ref arg-1 5))) (CoreC-45Core-C-60C-42C-62 (lambda (eta-0) (CoreC-45Core-C-60C-42C-62 (lambda (eta-1) (CoreC-45Core-C-60C-42C-62 (lambda (eta-2) (CoreC-45Core-C-60C-42C-62 (lambda (eta-3) (CoreC-45Core-C-60C-42C-62 (lambda (eta-4) (vector 1 (lambda (eta-5) (lambda (eta-6) (lambda (eta-7) (lambda (eta-8) (lambda (eta-9) (vector 1 eta-5 eta-6 eta-7 eta-8 eta-9)))))))) (lambda (eta-4) (vector 1 e-3)) eta-3)) (lambda (eta-3) (CoreC-45Context-u--resolved_HasNames_Name arg-0 e-4 eta-3)) eta-2)) (lambda (eta-2) (vector 1 e-5)) eta-1)) (lambda (eta-1) (vector 1 e-6)) eta-0)) (lambda (eta-0) (CoreC-45Core-traverseC-39 (lambda (arg-2) (lambda (eta-1) (CoreC-45Context-u--resolved_HasNames_Pat arg-0 arg-2 eta-1))) e-7 '() eta-0)) ext-0))))))) ((2) (let ((e-8 (vector-ref arg-1 1))) (let ((e-9 (vector-ref arg-1 2))) (let ((e-10 (vector-ref arg-1 3))) (let ((e-11 (vector-ref arg-1 4))) (CoreC-45Core-C-60C-42C-62 (lambda (eta-0) (CoreC-45Core-C-60C-42C-62 (lambda (eta-1) (CoreC-45Core-C-60C-42C-62 (lambda (eta-2) (CoreC-45Core-C-60C-42C-62 (lambda (eta-3) (vector 1 (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (lambda (eta-7) (vector 2 eta-4 eta-5 eta-6 eta-7))))))) (lambda (eta-3) (vector 1 e-8)) eta-2)) (lambda (eta-2) (CoreC-45Context-u--resolved_HasNames_Name arg-0 e-9 eta-2)) eta-1)) (lambda (eta-1) (vector 1 e-10)) eta-0)) (lambda (eta-0) (CoreC-45Core-traverseC-39 (lambda (arg-2) (lambda (eta-1) (CoreC-45Context-u--resolved_HasNames_Pat arg-0 arg-2 eta-1))) e-11 '() eta-0)) ext-0)))))) ((3) (vector 1 arg-1)) ((4) (let ((e-14 (vector-ref arg-1 1))) (let ((e-15 (vector-ref arg-1 2))) (let ((e-16 (vector-ref arg-1 3))) (let ((e-17 (vector-ref arg-1 4))) (CoreC-45Core-C-60C-42C-62 (lambda (eta-0) (CoreC-45Core-C-60C-42C-62 (lambda (eta-1) (CoreC-45Core-C-60C-42C-62 (lambda (eta-2) (CoreC-45Core-C-60C-42C-62 (lambda (eta-3) (vector 1 (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (lambda (eta-7) (vector 4 eta-4 eta-5 eta-6 eta-7))))))) (lambda (eta-3) (vector 1 e-14)) eta-2)) (lambda (eta-2) (CoreC-45Context-u--resolved_HasNames_Name arg-0 e-15 eta-2)) eta-1)) (lambda (eta-1) (CoreC-45Context-u--resolved_HasNames_Pat arg-0 e-16 eta-1)) eta-0)) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Pat arg-0 e-17 eta-0)) ext-0)))))) ((5) (let ((e-18 (vector-ref arg-1 1))) (let ((e-19 (vector-ref arg-1 2))) (let ((e-20 (vector-ref arg-1 3))) (let ((e-21 (vector-ref arg-1 4))) (CoreC-45Core-C-60C-42C-62 (lambda (eta-0) (CoreC-45Core-C-60C-42C-62 (lambda (eta-1) (CoreC-45Core-C-60C-42C-62 (lambda (eta-2) (CoreC-45Core-C-60C-42C-62 (lambda (eta-3) (vector 1 (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (lambda (eta-7) (vector 5 eta-4 eta-5 eta-6 eta-7))))))) (lambda (eta-3) (vector 1 e-18)) eta-2)) (lambda (eta-2) (vector 1 e-19)) eta-1)) (lambda (eta-1) (CoreC-45Context-u--resolved_HasNames_Pat arg-0 e-20 eta-1)) eta-0)) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Pat arg-0 e-21 eta-0)) ext-0)))))) ((6) (let ((e-22 (vector-ref arg-1 1))) (let ((e-23 (vector-ref arg-1 2))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-2 (vector-ref eta-0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-0 1))) (vector 1 (vector 6 e-22 e-5)))))) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-0 e-23 eta-0)) ext-0)))) (else (let ((e-24 (vector-ref arg-1 1))) (let ((e-25 (vector-ref arg-1 2))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-2 (vector-ref eta-0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-0 1))) (vector 1 (vector 7 e-24 e-5)))))) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-0 e-25 eta-0)) ext-0))))))) +(define CoreC-45Context-u--resolved_HasNames_PartialReason (lambda (arg-0 arg-1 ext-0) (case (vector-ref arg-1 0) ((0) (vector 1 (vector 0 ))) ((1) (let ((e-0 (vector-ref arg-1 1))) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (CoreC-45Context-u--resolved_HasNames_Name arg-0 eta-0 eta-1))) e-0 '() ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 1 e-5)))))))) (else (let ((e-1 (vector-ref arg-1 1))) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (CoreC-45Context-u--resolved_HasNames_Name arg-0 eta-0 eta-1))) e-1 '() ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 2 e-5))))))))))) +(define CoreC-45Context-u--resolved_HasNames_Name (lambda (arg-0 arg-1 ext-0) (case (vector-ref arg-1 0) ((9) (let ((e-0 (vector-ref arg-1 1))) (vector 1 (vector 9 e-0))))(else (let ((sc0 (CoreC-45Context-getNameID arg-1 arg-0))) (if (null? sc0) (vector 1 arg-1) (let ((e-1 (unbox sc0))) (vector 1 (vector 9 e-1))))))))) +(define CoreC-45Context-u--resolved_HasNames_GlobalDef (lambda (arg-0 arg-1 ext-0) (let ((act-24 (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-0 (let ((e-2 (vector-ref arg-1 2))) e-2) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-u--resolved_HasNames_Def arg-0 (let ((e-17 (vector-ref arg-1 17))) e-17) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Context-u--resolved_HasNames_Totality arg-0 (let ((e-10 (vector-ref arg-1 10))) e-10) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (CoreC-45Context-u--resolved_HasNames_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-3841) (lambda (arg-3842) (CoreC-45Context-u--full_HasNames_C-40NameMapC-32C-36aC-41 arg-3841 arg-3842))) (lambda (arg-3843) (lambda (arg-3844) (CoreC-45Context-u--resolved_HasNames_C-40NameMapC-32C-36aC-41 arg-3843 arg-3844)))) arg-0 (let ((e-12 (vector-ref arg-1 12))) e-12) ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (let ((act-28 (CoreC-45Context-u--resolved_HasNames_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-3841) (lambda (arg-3842) (CoreC-45Context-u--full_HasNames_C-40NameMapC-32C-36aC-41 arg-3841 arg-3842))) (lambda (arg-3843) (lambda (arg-3844) (CoreC-45Context-u--resolved_HasNames_C-40NameMapC-32C-36aC-41 arg-3843 arg-3844)))) arg-0 (let ((e-13 (vector-ref arg-1 13))) e-13) ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-28 1))) (let ((act-29 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (CoreC-45Context-u--resolved_HasNames_SCCall arg-0 eta-0 eta-1))) (let ((e-20 (vector-ref arg-1 20))) e-20) '() ext-0))) (case (vector-ref act-29 0) ((0) (let ((e-2 (vector-ref act-29 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref act-29 1))) (vector 1 (let ((e-0 (vector-ref arg-1 0))) (let ((e-1 (vector-ref arg-1 1))) (let ((e-3 (vector-ref arg-1 3))) (let ((e-4 (vector-ref arg-1 4))) (let ((e-26 (vector-ref arg-1 5))) (let ((e-25 (vector-ref arg-1 6))) (let ((e-24 (vector-ref arg-1 7))) (let ((e-23 (vector-ref arg-1 8))) (let ((e-22 (vector-ref arg-1 9))) (let ((e-11 (vector-ref arg-1 11))) (let ((e-14 (vector-ref arg-1 14))) (let ((e-15 (vector-ref arg-1 15))) (let ((e-16 (vector-ref arg-1 16))) (let ((e-18 (vector-ref arg-1 18))) (let ((e-19 (vector-ref arg-1 19))) (vector e-0 e-1 e-5 e-3 e-4 e-26 e-25 e-24 e-23 e-22 e-7 e-11 e-8 e-9 e-14 e-15 e-16 e-6 e-18 e-19 e-10))))))))))))))))))))))))))))))))))))))))))) +(define CoreC-45Context-u--resolved_HasNames_Def (lambda (arg-0 arg-1 ext-0) (case (vector-ref arg-1 0) ((1) (let ((e-0 (vector-ref arg-1 1))) (let ((e-1 (vector-ref arg-1 2))) (let ((e-2 (vector-ref arg-1 3))) (let ((e-3 (vector-ref arg-1 4))) (let ((e-4 (vector-ref arg-1 5))) (let ((act-24 (CoreC-45Context-u--resolved_HasNames_C-40CaseTreeC-32C-36varsC-41 arg-0 e-2 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-u--resolved_HasNames_C-40CaseTreeC-32C-36varsC-41 arg-0 e-3 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-6 (vector-ref act-25 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Context-n--11681-5429-u--resolvedNamesPat e-4 e-1 e-3 e-2 e-0 arg-0 eta-0)) e-4 '() ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-7 (vector-ref act-26 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (vector 1 e-0 e-1 e-5 e-6 e-7)))))))))))))))))))) ((6) (let ((e-5 (vector-ref arg-1 1))) (let ((e-6 (vector-ref arg-1 2))) (let ((e-7 (vector-ref arg-1 3))) (let ((e-8 (vector-ref arg-1 4))) (let ((e-9 (vector-ref arg-1 5))) (let ((e-10 (vector-ref arg-1 6))) (let ((e-11 (vector-ref arg-1 7))) (let ((e-12 (vector-ref arg-1 8))) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (CoreC-45Context-u--resolved_HasNames_Name arg-0 eta-0 eta-1))) e-10 '() ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (CoreC-45Context-u--resolved_HasNames_Name arg-0 eta-0 eta-1))) e-11 '() ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref act-25 1))) (vector 1 (vector 6 e-5 e-6 e-7 e-8 e-9 e-13 e-14 e-12))))))))))))))))))) ((8) (let ((e-13 (vector-ref arg-1 1))) (let ((e-14 (vector-ref arg-1 2))) (let ((e-15 (vector-ref arg-1 3))) (let ((act-24 (CoreC-45Context-u--resolved_HasNames_Name arg-0 e-15 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 8 e-13 e-14 e-5)))))))))) ((9) (let ((e-16 (vector-ref arg-1 1))) (let ((e-17 (vector-ref arg-1 2))) (let ((e-18 (vector-ref arg-1 3))) (let ((act-24 (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-0 e-16 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 9 e-5 e-17 e-18))))))))))(else (vector 1 arg-1))))) +(define CoreC-45Context-u--resolved_HasNames_Covering (lambda (arg-0 arg-1 ext-0) (case (vector-ref arg-1 0) ((0) (vector 1 (vector 0 ))) ((1) (let ((e-0 (vector-ref arg-1 1))) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-0 eta-0 eta-1))) e-0 '() ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 1 e-5)))))))) (else (let ((e-1 (vector-ref arg-1 1))) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (CoreC-45Context-u--resolved_HasNames_Name arg-0 eta-0 eta-1))) e-1 '() ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 2 e-5))))))))))) +(define CoreC-45Context-u--resolved_HasNames_Clause (lambda (arg-0 arg-1 ext-0) (let ((e-0 (vector-ref arg-1 0))) (let ((e-1 (vector-ref arg-1 1))) (let ((e-2 (vector-ref arg-1 2))) (let ((e-3 (vector-ref arg-1 3))) (CoreC-45Core-C-60C-42C-62 (lambda (eta-0) (CoreC-45Core-C-60C-42C-62 (lambda (eta-1) (CoreC-45Core-C-60C-42C-62 (lambda (eta-2) (vector 1 (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (vector e-0 eta-3 eta-4 eta-5)))))) (lambda (eta-2) (CoreC-45Context-u--resolved_HasNames_C-40C-40EnvC-32TermC-41C-32C-36varsC-41 arg-0 e-1 eta-2)) eta-1)) (lambda (eta-1) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-0 e-2 eta-1)) eta-0)) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-0 e-3 eta-0)) ext-0))))))) +(define CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 (lambda (arg-1 arg-2 ext-0) (case (vector-ref arg-2 0) ((1) (let ((e-1 (vector-ref arg-2 1))) (let ((e-2 (vector-ref arg-2 2))) (let ((e-3 (vector-ref arg-2 3))) (let ((sc1 (CoreC-45Context-getNameID e-3 arg-1))) (if (null? sc1) (vector 1 (vector 1 e-1 e-2 e-3)) (let ((e-4 (unbox sc1))) (vector 1 (vector 1 e-1 e-2 (vector 9 e-4)))))))))) ((2) (let ((e-5 (vector-ref arg-2 1))) (let ((e-6 (vector-ref arg-2 2))) (let ((e-7 (vector-ref arg-2 3))) (let ((e-8 (vector-ref arg-2 4))) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (arg-3) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-1 arg-3 eta-0))) e-8 '() ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-24 1))) (let ((sc2 (CoreC-45Context-getNameID e-6 arg-1))) (if (null? sc2) (vector 1 (vector 2 e-5 e-6 e-7 e-9)) (let ((e-1 (unbox sc2))) (vector 1 (vector 2 e-5 e-6 e-1 e-9)))))))))))))) ((3) (let ((e-10 (vector-ref arg-2 1))) (let ((e-11 (vector-ref arg-2 2))) (let ((e-12 (vector-ref arg-2 3))) (let ((e-13 (vector-ref arg-2 4))) (let ((act-24 (CoreC-45CoreC-45Binder-traverse (lambda (arg-3) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-1 arg-3 eta-0))) e-12 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-1 e-13 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (vector 3 e-10 e-11 e-5 e-6))))))))))))))) ((4) (let ((e-15 (vector-ref arg-2 1))) (let ((e-16 (vector-ref arg-2 2))) (let ((e-17 (vector-ref arg-2 3))) (let ((act-24 (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-1 e-16 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-1 e-17 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (vector 4 e-15 e-5 e-6)))))))))))))) ((5) (let ((e-19 (vector-ref arg-2 1))) (let ((e-20 (vector-ref arg-2 2))) (let ((e-21 (vector-ref arg-2 3))) (let ((e-22 (vector-ref arg-2 4))) (let ((act-24 (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-1 e-21 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-1 e-22 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (vector 5 e-19 e-20 e-5 e-6))))))))))))))) ((6) (let ((e-24 (vector-ref arg-2 1))) (let ((e-25 (vector-ref arg-2 2))) (let ((e-26 (vector-ref arg-2 3))) (let ((act-24 (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-1 e-26 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 6 e-24 e-25 e-5)))))))))) ((7) (let ((e-28 (vector-ref arg-2 1))) (let ((e-29 (vector-ref arg-2 2))) (let ((e-30 (vector-ref arg-2 3))) (let ((e-31 (vector-ref arg-2 4))) (let ((act-24 (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-1 e-30 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-1 e-31 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (vector 7 e-28 e-29 e-5 e-6))))))))))))))) ((8) (let ((e-33 (vector-ref arg-2 1))) (let ((e-34 (vector-ref arg-2 2))) (let ((e-35 (vector-ref arg-2 3))) (let ((act-24 (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-1 e-35 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 8 e-33 e-34 e-5))))))))))(else (vector 1 arg-2))))) +(define CoreC-45Context-u--resolved_HasNames_C-40NameMapC-32C-36aC-41 (lambda (arg-1 arg-2) (lambda (eta-0) (CoreC-45Context-n--12220-5813-u--insertAll arg-2 arg-1 (LibrariesC-45DataC-45NameMap-empty) (LibrariesC-45DataC-45NameMap-toList arg-2) eta-0)))) +(define CoreC-45Context-u--resolved_HasNames_C-40MaybeC-32C-36aC-41 (lambda (arg-1 arg-2 arg-3 ext-0) (if (null? arg-3) (vector 1 '()) (let ((e-2 (unbox arg-3))) (let ((act-24 (let ((e-3 (cdr arg-1))) (((e-3 arg-2) e-2) ext-0)))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (box e-5)))))))))) +(define CoreC-45Context-u--resolved_HasNames_C-40CaseTreeC-32C-36varsC-41 (lambda (arg-1 arg-2 ext-0) (case (vector-ref arg-2 0) ((0) (let ((e-1 (vector-ref arg-2 1))) (let ((e-2 (vector-ref arg-2 2))) (let ((e-4 (vector-ref arg-2 3))) (let ((e-5 (vector-ref arg-2 4))) (let ((act-24 (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-1 e-4 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (arg-3) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40CaseAltC-32C-36varsC-41 arg-1 arg-3 eta-0))) e-5 '() ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-3 (vector-ref act-25 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref act-25 1))) (vector 1 (vector 0 e-1 e-2 e-6 e-7))))))))))))))) ((1) (let ((e-7 (vector-ref arg-2 1))) (let ((e-8 (vector-ref arg-2 2))) (let ((act-24 (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-1 e-8 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 1 e-7 e-5)))))))))(else (vector 1 arg-2))))) +(define CoreC-45Context-u--resolved_HasNames_C-40CaseAltC-32C-36varsC-41 (lambda (arg-1 arg-2 ext-0) (case (vector-ref arg-2 0) ((0) (let ((e-1 (vector-ref arg-2 1))) (let ((e-2 (vector-ref arg-2 2))) (let ((e-3 (vector-ref arg-2 3))) (let ((e-4 (vector-ref arg-2 4))) (let ((act-24 (CoreC-45Context-u--resolved_HasNames_C-40CaseTreeC-32C-36varsC-41 arg-1 e-4 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((sc2 (CoreC-45Context-getNameID e-1 arg-1))) (if (null? sc2) (vector 1 (vector 0 e-1 e-2 e-3 e-5)) (let ((e-6 (unbox sc2))) (vector 1 (vector 0 (vector 9 e-6) e-2 e-3 e-5)))))))))))))) ((1) (let ((e-6 (vector-ref arg-2 1))) (let ((e-7 (vector-ref arg-2 2))) (let ((e-8 (vector-ref arg-2 3))) (let ((act-24 (CoreC-45Context-u--resolved_HasNames_C-40CaseTreeC-32C-36varsC-41 arg-1 e-8 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 1 e-6 e-7 e-5)))))))))) ((2) (let ((e-10 (vector-ref arg-2 1))) (let ((e-11 (vector-ref arg-2 2))) (let ((act-24 (CoreC-45Context-u--resolved_HasNames_C-40CaseTreeC-32C-36varsC-41 arg-1 e-11 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 2 e-10 e-5))))))))) (else (let ((e-13 (vector-ref arg-2 1))) (let ((act-24 (CoreC-45Context-u--resolved_HasNames_C-40CaseTreeC-32C-36varsC-41 arg-1 e-13 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 3 e-5))))))))))) +(define CoreC-45Context-u--resolved_HasNames_C-40C-40EnvC-32TermC-41C-32C-36varsC-41 (lambda (arg-1 arg-2 ext-0) (if (null? arg-2) (vector 1 '()) (let ((e-4 (car arg-2))) (let ((e-5 (cdr arg-2))) (let ((act-24 (CoreC-45CoreC-45Binder-traverse (lambda (arg-3) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-1 arg-3 eta-0))) e-4 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-u--resolved_HasNames_C-40C-40EnvC-32TermC-41C-32C-36varsC-41 arg-1 e-5 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-25 1))) (vector 1 (cons e-6 e-7))))))))))))))) +(define CoreC-45Context-u--full_HasNames_Transform (lambda (arg-0 arg-1 ext-0) (let ((e-0 (vector-ref arg-1 0))) (let ((e-1 (vector-ref arg-1 1))) (let ((e-2 (vector-ref arg-1 2))) (let ((e-3 (vector-ref arg-1 3))) (let ((e-4 (vector-ref arg-1 4))) (let ((act-24 (CoreC-45Context-u--full_HasNames_Name arg-0 e-1 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-u--full_HasNames_C-40C-40EnvC-32TermC-41C-32C-36varsC-41 arg-0 e-2 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-6 (vector-ref act-25 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-0 e-3 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-7 (vector-ref act-26 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-0 e-4 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-8 (vector-ref act-27 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref act-27 1))) (vector 1 (vector e-0 e-5 e-6 e-7 e-8))))))))))))))))))))))))) +(define CoreC-45Context-u--full_HasNames_Totality (lambda (arg-0 arg-1 ext-0) (let ((e-0 (car arg-1))) (let ((e-1 (cdr arg-1))) (let ((act-24 (CoreC-45Context-u--full_HasNames_Terminating arg-0 e-0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-u--full_HasNames_Covering arg-0 e-1 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (cons e-5 e-6)))))))))))))) +(define CoreC-45Context-u--full_HasNames_Terminating (lambda (arg-0 arg-1 ext-0) (case (vector-ref arg-1 0) ((2) (let ((e-0 (vector-ref arg-1 1))) (let ((act-24 (CoreC-45Context-u--full_HasNames_PartialReason arg-0 e-0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 2 e-5))))))))(else (vector 1 arg-1))))) +(define CoreC-45Context-u--full_HasNames_SCCall (lambda (arg-0 arg-1 ext-0) (let ((act-24 (CoreC-45Context-u--full_HasNames_Name arg-0 (let ((e-0 (car arg-1))) e-0) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (let ((e-1 (cdr arg-1))) (cons e-5 e-1))))))))) +(define CoreC-45Context-u--full_HasNames_Pat (lambda (arg-0 arg-1 ext-0) (case (vector-ref arg-1 0) ((0) (let ((e-0 (vector-ref arg-1 1))) (let ((e-1 (vector-ref arg-1 2))) (let ((e-2 (vector-ref arg-1 3))) (CoreC-45Core-C-60C-42C-62 (lambda (eta-0) (CoreC-45Core-C-60C-42C-62 (lambda (eta-1) (CoreC-45Core-C-60C-42C-62 (lambda (eta-2) (vector 1 (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (vector 0 eta-3 eta-4 eta-5)))))) (lambda (eta-2) (vector 1 e-0)) eta-1)) (lambda (eta-1) (CoreC-45Context-u--full_HasNames_Name arg-0 e-1 eta-1)) eta-0)) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Pat arg-0 e-2 eta-0)) ext-0))))) ((1) (let ((e-3 (vector-ref arg-1 1))) (let ((e-4 (vector-ref arg-1 2))) (let ((e-5 (vector-ref arg-1 3))) (let ((e-6 (vector-ref arg-1 4))) (let ((e-7 (vector-ref arg-1 5))) (CoreC-45Core-C-60C-42C-62 (lambda (eta-0) (CoreC-45Core-C-60C-42C-62 (lambda (eta-1) (CoreC-45Core-C-60C-42C-62 (lambda (eta-2) (CoreC-45Core-C-60C-42C-62 (lambda (eta-3) (CoreC-45Core-C-60C-42C-62 (lambda (eta-4) (vector 1 (lambda (eta-5) (lambda (eta-6) (lambda (eta-7) (lambda (eta-8) (lambda (eta-9) (vector 1 eta-5 eta-6 eta-7 eta-8 eta-9)))))))) (lambda (eta-4) (vector 1 e-3)) eta-3)) (lambda (eta-3) (CoreC-45Context-u--full_HasNames_Name arg-0 e-4 eta-3)) eta-2)) (lambda (eta-2) (vector 1 e-5)) eta-1)) (lambda (eta-1) (vector 1 e-6)) eta-0)) (lambda (eta-0) (CoreC-45Core-traverseC-39 (lambda (arg-2) (lambda (eta-1) (CoreC-45Context-u--full_HasNames_Pat arg-0 arg-2 eta-1))) e-7 '() eta-0)) ext-0))))))) ((2) (let ((e-8 (vector-ref arg-1 1))) (let ((e-9 (vector-ref arg-1 2))) (let ((e-10 (vector-ref arg-1 3))) (let ((e-11 (vector-ref arg-1 4))) (CoreC-45Core-C-60C-42C-62 (lambda (eta-0) (CoreC-45Core-C-60C-42C-62 (lambda (eta-1) (CoreC-45Core-C-60C-42C-62 (lambda (eta-2) (CoreC-45Core-C-60C-42C-62 (lambda (eta-3) (vector 1 (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (lambda (eta-7) (vector 2 eta-4 eta-5 eta-6 eta-7))))))) (lambda (eta-3) (vector 1 e-8)) eta-2)) (lambda (eta-2) (CoreC-45Context-u--full_HasNames_Name arg-0 e-9 eta-2)) eta-1)) (lambda (eta-1) (vector 1 e-10)) eta-0)) (lambda (eta-0) (CoreC-45Core-traverseC-39 (lambda (arg-2) (lambda (eta-1) (CoreC-45Context-u--full_HasNames_Pat arg-0 arg-2 eta-1))) e-11 '() eta-0)) ext-0)))))) ((3) (vector 1 arg-1)) ((4) (let ((e-14 (vector-ref arg-1 1))) (let ((e-15 (vector-ref arg-1 2))) (let ((e-16 (vector-ref arg-1 3))) (let ((e-17 (vector-ref arg-1 4))) (CoreC-45Core-C-60C-42C-62 (lambda (eta-0) (CoreC-45Core-C-60C-42C-62 (lambda (eta-1) (CoreC-45Core-C-60C-42C-62 (lambda (eta-2) (CoreC-45Core-C-60C-42C-62 (lambda (eta-3) (vector 1 (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (lambda (eta-7) (vector 4 eta-4 eta-5 eta-6 eta-7))))))) (lambda (eta-3) (vector 1 e-14)) eta-2)) (lambda (eta-2) (CoreC-45Context-u--full_HasNames_Name arg-0 e-15 eta-2)) eta-1)) (lambda (eta-1) (CoreC-45Context-u--full_HasNames_Pat arg-0 e-16 eta-1)) eta-0)) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Pat arg-0 e-17 eta-0)) ext-0)))))) ((5) (let ((e-18 (vector-ref arg-1 1))) (let ((e-19 (vector-ref arg-1 2))) (let ((e-20 (vector-ref arg-1 3))) (let ((e-21 (vector-ref arg-1 4))) (CoreC-45Core-C-60C-42C-62 (lambda (eta-0) (CoreC-45Core-C-60C-42C-62 (lambda (eta-1) (CoreC-45Core-C-60C-42C-62 (lambda (eta-2) (CoreC-45Core-C-60C-42C-62 (lambda (eta-3) (vector 1 (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (lambda (eta-7) (vector 5 eta-4 eta-5 eta-6 eta-7))))))) (lambda (eta-3) (vector 1 e-18)) eta-2)) (lambda (eta-2) (vector 1 e-19)) eta-1)) (lambda (eta-1) (CoreC-45Context-u--full_HasNames_Pat arg-0 e-20 eta-1)) eta-0)) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Pat arg-0 e-21 eta-0)) ext-0)))))) ((6) (let ((e-22 (vector-ref arg-1 1))) (let ((e-23 (vector-ref arg-1 2))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-2 (vector-ref eta-0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-0 1))) (vector 1 (vector 6 e-22 e-5)))))) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-0 e-23 eta-0)) ext-0)))) (else (let ((e-24 (vector-ref arg-1 1))) (let ((e-25 (vector-ref arg-1 2))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-2 (vector-ref eta-0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-0 1))) (vector 1 (vector 7 e-24 e-5)))))) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-0 e-25 eta-0)) ext-0))))))) +(define CoreC-45Context-u--full_HasNames_PartialReason (lambda (arg-0 arg-1 ext-0) (case (vector-ref arg-1 0) ((0) (vector 1 (vector 0 ))) ((1) (let ((e-0 (vector-ref arg-1 1))) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (CoreC-45Context-u--full_HasNames_Name arg-0 eta-0 eta-1))) e-0 '() ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 1 e-5)))))))) (else (let ((e-1 (vector-ref arg-1 1))) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (CoreC-45Context-u--full_HasNames_Name arg-0 eta-0 eta-1))) e-1 '() ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 2 e-5))))))))))) +(define CoreC-45Context-u--full_HasNames_Name (lambda (arg-0 arg-1 ext-0) (case (vector-ref arg-1 0) ((9) (let ((e-0 (vector-ref arg-1 1))) (let ((act-24 ((CoreC-45Context-lookupCtxtExact (vector 9 e-0) arg-0) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (if (null? e-5) (vector 1 (vector 9 e-0)) (let ((e-1 (unbox e-5))) (vector 1 (let ((e-22 (vector-ref e-1 1))) e-22))))))))))(else (vector 1 arg-1))))) +(define CoreC-45Context-u--full_HasNames_GlobalDef (lambda (arg-0 arg-1 ext-0) (let ((act-24 (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-0 (let ((e-2 (vector-ref arg-1 2))) e-2) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-u--full_HasNames_Def arg-0 (let ((e-17 (vector-ref arg-1 17))) e-17) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Context-u--full_HasNames_Totality arg-0 (let ((e-10 (vector-ref arg-1 10))) e-10) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (CoreC-45Context-u--full_HasNames_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-3841) (lambda (arg-3842) (CoreC-45Context-u--full_HasNames_C-40NameMapC-32C-36aC-41 arg-3841 arg-3842))) (lambda (arg-3843) (lambda (arg-3844) (CoreC-45Context-u--resolved_HasNames_C-40NameMapC-32C-36aC-41 arg-3843 arg-3844)))) arg-0 (let ((e-12 (vector-ref arg-1 12))) e-12) ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (let ((act-28 (CoreC-45Context-u--full_HasNames_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-3841) (lambda (arg-3842) (CoreC-45Context-u--full_HasNames_C-40NameMapC-32C-36aC-41 arg-3841 arg-3842))) (lambda (arg-3843) (lambda (arg-3844) (CoreC-45Context-u--resolved_HasNames_C-40NameMapC-32C-36aC-41 arg-3843 arg-3844)))) arg-0 (let ((e-13 (vector-ref arg-1 13))) e-13) ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-28 1))) (let ((act-29 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (CoreC-45Context-u--full_HasNames_SCCall arg-0 eta-0 eta-1))) (let ((e-20 (vector-ref arg-1 20))) e-20) '() ext-0))) (case (vector-ref act-29 0) ((0) (let ((e-2 (vector-ref act-29 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref act-29 1))) (vector 1 (let ((e-0 (vector-ref arg-1 0))) (let ((e-1 (vector-ref arg-1 1))) (let ((e-3 (vector-ref arg-1 3))) (let ((e-4 (vector-ref arg-1 4))) (let ((e-26 (vector-ref arg-1 5))) (let ((e-25 (vector-ref arg-1 6))) (let ((e-24 (vector-ref arg-1 7))) (let ((e-23 (vector-ref arg-1 8))) (let ((e-22 (vector-ref arg-1 9))) (let ((e-11 (vector-ref arg-1 11))) (let ((e-14 (vector-ref arg-1 14))) (let ((e-15 (vector-ref arg-1 15))) (let ((e-16 (vector-ref arg-1 16))) (let ((e-18 (vector-ref arg-1 18))) (let ((e-19 (vector-ref arg-1 19))) (vector e-0 e-1 e-5 e-3 e-4 e-26 e-25 e-24 e-23 e-22 e-7 e-11 e-8 e-9 e-14 e-15 e-16 e-6 e-18 e-19 e-10))))))))))))))))))))))))))))))))))))))))))) +(define CoreC-45Context-u--full_HasNames_Def (lambda (arg-0 arg-1 ext-0) (case (vector-ref arg-1 0) ((1) (let ((e-0 (vector-ref arg-1 1))) (let ((e-1 (vector-ref arg-1 2))) (let ((e-2 (vector-ref arg-1 3))) (let ((e-3 (vector-ref arg-1 4))) (let ((e-4 (vector-ref arg-1 5))) (let ((act-24 (CoreC-45Context-u--full_HasNames_C-40CaseTreeC-32C-36varsC-41 arg-0 e-2 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-u--full_HasNames_C-40CaseTreeC-32C-36varsC-41 arg-0 e-3 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-6 (vector-ref act-25 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Context-n--11680-5289-u--fullNamesPat e-4 e-1 e-3 e-2 e-0 arg-0 eta-0)) e-4 '() ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-7 (vector-ref act-26 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (vector 1 e-0 e-1 e-5 e-6 e-7)))))))))))))))))))) ((6) (let ((e-5 (vector-ref arg-1 1))) (let ((e-6 (vector-ref arg-1 2))) (let ((e-7 (vector-ref arg-1 3))) (let ((e-8 (vector-ref arg-1 4))) (let ((e-9 (vector-ref arg-1 5))) (let ((e-10 (vector-ref arg-1 6))) (let ((e-11 (vector-ref arg-1 7))) (let ((e-12 (vector-ref arg-1 8))) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (CoreC-45Context-u--full_HasNames_Name arg-0 eta-0 eta-1))) e-10 '() ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (CoreC-45Context-u--full_HasNames_Name arg-0 eta-0 eta-1))) e-11 '() ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref act-25 1))) (vector 1 (vector 6 e-5 e-6 e-7 e-8 e-9 e-13 e-14 e-12))))))))))))))))))) ((8) (let ((e-13 (vector-ref arg-1 1))) (let ((e-14 (vector-ref arg-1 2))) (let ((e-15 (vector-ref arg-1 3))) (let ((act-24 (CoreC-45Context-u--full_HasNames_Name arg-0 e-15 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 8 e-13 e-14 e-5)))))))))) ((9) (let ((e-16 (vector-ref arg-1 1))) (let ((e-17 (vector-ref arg-1 2))) (let ((e-18 (vector-ref arg-1 3))) (let ((act-24 (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-0 e-16 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 9 e-5 e-17 e-18))))))))))(else (vector 1 arg-1))))) +(define CoreC-45Context-u--full_HasNames_Covering (lambda (arg-0 arg-1 ext-0) (case (vector-ref arg-1 0) ((0) (vector 1 (vector 0 ))) ((1) (let ((e-0 (vector-ref arg-1 1))) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-0 eta-0 eta-1))) e-0 '() ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 1 e-5)))))))) (else (let ((e-1 (vector-ref arg-1 1))) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (CoreC-45Context-u--full_HasNames_Name arg-0 eta-0 eta-1))) e-1 '() ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 2 e-5))))))))))) +(define CoreC-45Context-u--full_HasNames_Clause (lambda (arg-0 arg-1 ext-0) (let ((e-0 (vector-ref arg-1 0))) (let ((e-1 (vector-ref arg-1 1))) (let ((e-2 (vector-ref arg-1 2))) (let ((e-3 (vector-ref arg-1 3))) (let ((act-24 (CoreC-45Context-u--full_HasNames_C-40C-40EnvC-32TermC-41C-32C-36varsC-41 arg-0 e-1 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-0 e-2 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-0 e-3 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-4 (vector-ref act-26 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (vector e-0 e-5 e-6 e-7)))))))))))))))))))) +(define CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 (lambda (arg-1 arg-2 ext-0) (case (vector-ref arg-2 0) ((1) (let ((e-1 (vector-ref arg-2 1))) (let ((e-2 (vector-ref arg-2 2))) (let ((e-3 (vector-ref arg-2 3))) (case (vector-ref e-3 0) ((9) (let ((e-36 (vector-ref e-3 1))) (let ((act-24 ((CoreC-45Context-lookupCtxtExact (vector 9 e-36) arg-1) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (if (null? e-5) (vector 1 (vector 1 e-1 e-2 (vector 9 e-36))) (let ((e-4 (unbox e-5))) (vector 1 (vector 1 e-1 e-2 (let ((e-25 (vector-ref e-4 1))) e-25)))))))))))(else (vector 1 arg-2))))))) ((2) (let ((e-5 (vector-ref arg-2 1))) (let ((e-6 (vector-ref arg-2 2))) (let ((e-7 (vector-ref arg-2 3))) (let ((e-8 (vector-ref arg-2 4))) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (arg-3) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-1 arg-3 eta-0))) e-8 '() ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-24 1))) (vector 1 (vector 2 e-5 e-6 e-7 e-9))))))))))) ((3) (let ((e-10 (vector-ref arg-2 1))) (let ((e-11 (vector-ref arg-2 2))) (let ((e-12 (vector-ref arg-2 3))) (let ((e-13 (vector-ref arg-2 4))) (let ((act-24 (CoreC-45CoreC-45Binder-traverse (lambda (arg-3) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-1 arg-3 eta-0))) e-12 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-1 e-13 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (vector 3 e-10 e-11 e-5 e-6))))))))))))))) ((4) (let ((e-15 (vector-ref arg-2 1))) (let ((e-16 (vector-ref arg-2 2))) (let ((e-17 (vector-ref arg-2 3))) (let ((act-24 (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-1 e-16 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-1 e-17 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (vector 4 e-15 e-5 e-6)))))))))))))) ((5) (let ((e-19 (vector-ref arg-2 1))) (let ((e-20 (vector-ref arg-2 2))) (let ((e-21 (vector-ref arg-2 3))) (let ((e-22 (vector-ref arg-2 4))) (let ((act-24 (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-1 e-21 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-1 e-22 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (vector 5 e-19 e-20 e-5 e-6))))))))))))))) ((6) (let ((e-24 (vector-ref arg-2 1))) (let ((e-25 (vector-ref arg-2 2))) (let ((e-26 (vector-ref arg-2 3))) (let ((act-24 (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-1 e-26 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 6 e-24 e-25 e-5)))))))))) ((7) (let ((e-28 (vector-ref arg-2 1))) (let ((e-29 (vector-ref arg-2 2))) (let ((e-30 (vector-ref arg-2 3))) (let ((e-31 (vector-ref arg-2 4))) (let ((act-24 (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-1 e-30 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-1 e-31 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (vector 7 e-28 e-29 e-5 e-6))))))))))))))) ((8) (let ((e-33 (vector-ref arg-2 1))) (let ((e-34 (vector-ref arg-2 2))) (let ((e-35 (vector-ref arg-2 3))) (let ((act-24 (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-1 e-35 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 8 e-33 e-34 e-5))))))))))(else (vector 1 arg-2))))) +(define CoreC-45Context-u--full_HasNames_C-40NameMapC-32C-36aC-41 (lambda (arg-1 arg-2) (lambda (eta-0) (CoreC-45Context-n--12219-5781-u--insertAll arg-2 arg-1 (LibrariesC-45DataC-45NameMap-empty) (LibrariesC-45DataC-45NameMap-toList arg-2) eta-0)))) +(define CoreC-45Context-u--full_HasNames_C-40MaybeC-32C-36aC-41 (lambda (arg-1 arg-2 arg-3 ext-0) (if (null? arg-3) (vector 1 '()) (let ((e-2 (unbox arg-3))) (let ((act-24 (let ((e-1 (car arg-1))) (((e-1 arg-2) e-2) ext-0)))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (box e-5)))))))))) +(define CoreC-45Context-u--full_HasNames_C-40CaseTreeC-32C-36varsC-41 (lambda (arg-1 arg-2 ext-0) (case (vector-ref arg-2 0) ((0) (let ((e-1 (vector-ref arg-2 1))) (let ((e-2 (vector-ref arg-2 2))) (let ((e-4 (vector-ref arg-2 3))) (let ((e-5 (vector-ref arg-2 4))) (let ((act-24 (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-1 e-4 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (arg-3) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40CaseAltC-32C-36varsC-41 arg-1 arg-3 eta-0))) e-5 '() ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-3 (vector-ref act-25 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref act-25 1))) (vector 1 (vector 0 e-1 e-2 e-6 e-7))))))))))))))) ((1) (let ((e-7 (vector-ref arg-2 1))) (let ((e-8 (vector-ref arg-2 2))) (let ((act-24 (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-1 e-8 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 1 e-7 e-5)))))))))(else (vector 1 arg-2))))) +(define CoreC-45Context-u--full_HasNames_C-40CaseAltC-32C-36varsC-41 (lambda (arg-1 arg-2 ext-0) (case (vector-ref arg-2 0) ((0) (let ((e-1 (vector-ref arg-2 1))) (let ((e-2 (vector-ref arg-2 2))) (let ((e-3 (vector-ref arg-2 3))) (let ((e-4 (vector-ref arg-2 4))) (let ((act-24 (CoreC-45Context-u--full_HasNames_C-40CaseTreeC-32C-36varsC-41 arg-1 e-4 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact e-1 arg-1) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-6 (vector-ref act-25 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-25 1))) (if (null? e-6) (vector 1 (vector 0 e-1 e-2 e-3 e-5)) (let ((e-7 (unbox e-6))) (vector 1 (vector 0 (let ((e-27 (vector-ref e-7 1))) e-27) e-2 e-3 e-5))))))))))))))))) ((1) (let ((e-6 (vector-ref arg-2 1))) (let ((e-7 (vector-ref arg-2 2))) (let ((e-8 (vector-ref arg-2 3))) (let ((act-24 (CoreC-45Context-u--full_HasNames_C-40CaseTreeC-32C-36varsC-41 arg-1 e-8 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 1 e-6 e-7 e-5)))))))))) ((2) (let ((e-10 (vector-ref arg-2 1))) (let ((e-11 (vector-ref arg-2 2))) (let ((act-24 (CoreC-45Context-u--full_HasNames_C-40CaseTreeC-32C-36varsC-41 arg-1 e-11 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 2 e-10 e-5))))))))) (else (let ((e-13 (vector-ref arg-2 1))) (let ((act-24 (CoreC-45Context-u--full_HasNames_C-40CaseTreeC-32C-36varsC-41 arg-1 e-13 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 3 e-5))))))))))) +(define CoreC-45Context-u--full_HasNames_C-40C-40EnvC-32TermC-41C-32C-36varsC-41 (lambda (arg-1 arg-2 ext-0) (if (null? arg-2) (vector 1 '()) (let ((e-4 (car arg-2))) (let ((e-5 (cdr arg-2))) (let ((act-24 (CoreC-45CoreC-45Binder-traverse (lambda (arg-3) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-1 arg-3 eta-0))) e-4 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-u--full_HasNames_C-40C-40EnvC-32TermC-41C-32C-36varsC-41 arg-1 e-5 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-25 1))) (vector 1 (cons e-6 e-7))))))))))))))) +(define CoreC-45Context-u--C-61C-61_Eq_SizeChange (lambda (arg-0 arg-1) (cond ((equal? arg-0 0) (cond ((equal? arg-1 0) 1)(else 0))) ((equal? arg-0 1) (cond ((equal? arg-1 1) 1)(else 0))) ((equal? arg-0 2) (cond ((equal? arg-1 2) 1)(else 0)))(else 0)))) +(define CoreC-45Context-u--C-61C-61_Eq_SCCall (lambda (arg-0 arg-1) (let ((sc0 (CoreC-45Name-u--C-61C-61_Eq_Name (let ((e-0 (car arg-0))) e-0) (let ((e-0 (car arg-1))) e-0)))) (cond ((equal? sc0 1) (PreludeC-45Types-u--C-61C-61_Eq_C-40ListC-32C-36aC-41 (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45Types-u--C-61C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-61C-61_Eq_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (arg-6) (lambda (arg-7) (PreludeC-45Types-u--C-61C-61_Eq_Nat arg-6 arg-7))) (lambda (arg-6) (lambda (arg-7) (PreludeC-45Types-u--C-47C-61_Eq_Nat arg-6 arg-7)))) (cons (lambda (arg-6) (lambda (arg-7) (CoreC-45Context-u--C-61C-61_Eq_SizeChange arg-6 arg-7))) (lambda (arg-6) (lambda (arg-7) (CoreC-45Context-u--C-47C-61_Eq_SizeChange arg-6 arg-7)))) arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (arg-6) (lambda (arg-7) (PreludeC-45Types-u--C-61C-61_Eq_Nat arg-6 arg-7))) (lambda (arg-6) (lambda (arg-7) (PreludeC-45Types-u--C-47C-61_Eq_Nat arg-6 arg-7)))) (cons (lambda (arg-6) (lambda (arg-7) (CoreC-45Context-u--C-61C-61_Eq_SizeChange arg-6 arg-7))) (lambda (arg-6) (lambda (arg-7) (CoreC-45Context-u--C-47C-61_Eq_SizeChange arg-6 arg-7)))) arg-4 arg-5)))) arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45Types-u--C-47C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (arg-6) (lambda (arg-7) (PreludeC-45Types-u--C-61C-61_Eq_Nat arg-6 arg-7))) (lambda (arg-6) (lambda (arg-7) (PreludeC-45Types-u--C-47C-61_Eq_Nat arg-6 arg-7)))) (cons (lambda (arg-6) (lambda (arg-7) (CoreC-45Context-u--C-61C-61_Eq_SizeChange arg-6 arg-7))) (lambda (arg-6) (lambda (arg-7) (CoreC-45Context-u--C-47C-61_Eq_SizeChange arg-6 arg-7)))) arg-2 arg-3))) (lambda (arg-6) (lambda (arg-7) (PreludeC-45EqOrd-u--C-47C-61_Eq_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45Types-u--C-61C-61_Eq_Nat arg-2 arg-3))) (lambda (arg-8) (lambda (arg-9) (PreludeC-45Types-u--C-47C-61_Eq_Nat arg-8 arg-9)))) (cons (lambda (arg-2) (lambda (arg-3) (CoreC-45Context-u--C-61C-61_Eq_SizeChange arg-2 arg-3))) (lambda (arg-8) (lambda (arg-9) (CoreC-45Context-u--C-47C-61_Eq_SizeChange arg-8 arg-9)))) arg-6 arg-7)))) arg-4 arg-5)))) (let ((e-1 (cdr arg-0))) e-1) (let ((e-1 (cdr arg-1))) e-1))) (else 0))))) +(define CoreC-45Context-u--C-61C-61_Eq_DefFlag (lambda (arg-0 arg-1) (case (vector-ref arg-0 0) ((0) (case (vector-ref arg-1 0) ((0) 1)(else 0))) ((1) (case (vector-ref arg-1 0) ((1) 1)(else 0))) ((2) (case (vector-ref arg-1 0) ((2) 1)(else 0))) ((3) (case (vector-ref arg-1 0) ((3) 1)(else 0))) ((4) (let ((e-0 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((4) (let ((e-3 (vector-ref arg-1 1))) (CoreC-45TT-u--C-61C-61_Eq_TotalReq e-0 e-3)))(else 0)))) ((5) (case (vector-ref arg-1 0) ((5) 1)(else 0))) ((6) (case (vector-ref arg-1 0) ((6) 1)(else 0))) ((7) (let ((e-1 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((7) (let ((e-4 (vector-ref arg-1 1))) (PreludeC-45Types-u--C-61C-61_Eq_C-40ListC-32C-36aC-41 (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (arg-4) (lambda (arg-5) (CoreC-45Name-u--C-61C-61_Eq_Name arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (CoreC-45Name-u--C-47C-61_Eq_Name arg-4 arg-5)))) (cons (lambda (arg-4) (lambda (arg-5) (PreludeC-45Types-u--C-61C-61_Eq_Nat arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45Types-u--C-47C-61_Eq_Nat arg-4 arg-5)))) arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (arg-2) (lambda (arg-3) (CoreC-45Name-u--C-61C-61_Eq_Name arg-2 arg-3))) (lambda (arg-6) (lambda (arg-7) (CoreC-45Name-u--C-47C-61_Eq_Name arg-6 arg-7)))) (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45Types-u--C-61C-61_Eq_Nat arg-2 arg-3))) (lambda (arg-6) (lambda (arg-7) (PreludeC-45Types-u--C-47C-61_Eq_Nat arg-6 arg-7)))) arg-4 arg-5)))) e-1 e-4)))(else 0)))) ((8) (case (vector-ref arg-1 0) ((8) 1)(else 0))) ((9) (let ((e-2 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((9) (let ((e-5 (vector-ref arg-1 1))) (CoreC-45CompileExpr-u--C-61C-61_Eq_ConInfo e-2 e-5)))(else 0))))(else 0)))) +(define CoreC-45Context-u--C-47C-61_Eq_SizeChange (lambda (arg-0 arg-1) (let ((sc0 (CoreC-45Context-u--C-61C-61_Eq_SizeChange arg-0 arg-1))) (cond ((equal? sc0 1) 0) (else 1))))) +(define CoreC-45Context-u--C-47C-61_Eq_SCCall (lambda (arg-0 arg-1) (let ((sc0 (CoreC-45Context-u--C-61C-61_Eq_SCCall arg-0 arg-1))) (cond ((equal? sc0 1) 0) (else 1))))) +(define CoreC-45Context-u--C-47C-61_Eq_DefFlag (lambda (arg-0 arg-1) (let ((sc0 (CoreC-45Context-u--C-61C-61_Eq_DefFlag arg-0 arg-1))) (cond ((equal? sc0 1) 0) (else 1))))) +(define CoreC-45Context-withLogLevel (lambda (arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((u--logs (let ((e-4 (vector-ref e-5 4))) (let ((e-36 (vector-ref e-4 2))) (let ((e-51 (vector-ref e-36 6))) e-51))))) (let ((act-25 (let ((act-25 (set-box! arg-1 (let ((e-0 (vector-ref e-5 0))) (let ((e-1 (vector-ref e-5 1))) (let ((e-2 (vector-ref e-5 2))) (let ((e-3 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-29 (vector-ref e-5 5))) (let ((e-6 (vector-ref e-5 6))) (let ((e-7 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (let ((e-10 (vector-ref e-5 10))) (let ((e-11 (vector-ref e-5 11))) (let ((e-12 (vector-ref e-5 12))) (let ((e-13 (vector-ref e-5 13))) (let ((e-14 (vector-ref e-5 14))) (let ((e-15 (vector-ref e-5 15))) (let ((e-16 (vector-ref e-5 16))) (let ((e-17 (vector-ref e-5 17))) (let ((e-18 (vector-ref e-5 18))) (let ((e-19 (vector-ref e-5 19))) (let ((e-20 (vector-ref e-5 20))) (let ((e-21 (vector-ref e-5 21))) (let ((e-22 (vector-ref e-5 22))) (let ((e-23 (vector-ref e-5 23))) (let ((e-24 (vector-ref e-5 24))) (let ((e-25 (vector-ref e-5 25))) (let ((e-26 (vector-ref e-5 26))) (let ((e-27 (vector-ref e-5 27))) (let ((e-28 (vector-ref e-5 28))) (let ((e-38 (vector-ref e-4 0))) (let ((e-30 (vector-ref e-4 1))) (let ((e-31 (vector-ref e-4 2))) (let ((e-32 (vector-ref e-4 3))) (let ((e-33 (vector-ref e-4 4))) (let ((e-34 (vector-ref e-4 5))) (let ((e-35 (vector-ref e-4 6))) (let ((e-36 (vector-ref e-4 7))) (let ((e-37 (vector-ref e-4 8))) (let ((e-57 (vector-ref e-31 0))) (let ((e-39 (vector-ref e-31 1))) (let ((e-40 (vector-ref e-31 2))) (let ((e-41 (vector-ref e-31 3))) (let ((e-42 (vector-ref e-31 4))) (let ((e-43 (vector-ref e-31 5))) (let ((e-45 (vector-ref e-31 7))) (let ((e-46 (vector-ref e-31 8))) (let ((e-47 (vector-ref e-31 9))) (let ((e-48 (vector-ref e-31 10))) (let ((e-49 (vector-ref e-31 11))) (let ((e-50 (vector-ref e-31 12))) (let ((e-51 (vector-ref e-31 13))) (let ((e-52 (vector-ref e-31 14))) (let ((e-53 (vector-ref e-31 15))) (let ((e-54 (vector-ref e-31 16))) (let ((e-55 (vector-ref e-31 17))) (let ((e-56 (vector-ref e-31 18))) (vector e-0 e-1 e-2 e-3 (vector e-38 e-30 (vector e-57 e-39 e-40 e-41 e-42 e-43 (CoreC-45OptionsC-45Log-insertLogLevel arg-2 u--logs) e-45 e-46 e-47 e-48 e-49 e-50 e-51 e-52 e-53 e-54 e-55 e-56) e-32 e-33 e-34 e-35 e-36 e-37) e-29 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27 e-28)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 (arg-3 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (let ((act-27 (unbox arg-1))) (vector 1 act-27)))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (let ((act-28 (let ((act-28 (set-box! arg-1 (let ((e-0 (vector-ref e-8 0))) (let ((e-1 (vector-ref e-8 1))) (let ((e-2 (vector-ref e-8 2))) (let ((e-3 (vector-ref e-8 3))) (let ((e-4 (vector-ref e-8 4))) (let ((e-32 (vector-ref e-8 5))) (let ((e-31 (vector-ref e-8 6))) (let ((e-30 (vector-ref e-8 7))) (let ((e-29 (vector-ref e-8 8))) (let ((e-9 (vector-ref e-8 9))) (let ((e-10 (vector-ref e-8 10))) (let ((e-11 (vector-ref e-8 11))) (let ((e-12 (vector-ref e-8 12))) (let ((e-13 (vector-ref e-8 13))) (let ((e-14 (vector-ref e-8 14))) (let ((e-15 (vector-ref e-8 15))) (let ((e-16 (vector-ref e-8 16))) (let ((e-17 (vector-ref e-8 17))) (let ((e-18 (vector-ref e-8 18))) (let ((e-19 (vector-ref e-8 19))) (let ((e-20 (vector-ref e-8 20))) (let ((e-21 (vector-ref e-8 21))) (let ((e-22 (vector-ref e-8 22))) (let ((e-23 (vector-ref e-8 23))) (let ((e-24 (vector-ref e-8 24))) (let ((e-25 (vector-ref e-8 25))) (let ((e-26 (vector-ref e-8 26))) (let ((e-27 (vector-ref e-8 27))) (let ((e-28 (vector-ref e-8 28))) (let ((e-41 (vector-ref e-4 0))) (let ((e-40 (vector-ref e-4 1))) (let ((e-39 (vector-ref e-4 2))) (let ((e-38 (vector-ref e-4 3))) (let ((e-33 (vector-ref e-4 4))) (let ((e-34 (vector-ref e-4 5))) (let ((e-35 (vector-ref e-4 6))) (let ((e-36 (vector-ref e-4 7))) (let ((e-37 (vector-ref e-4 8))) (let ((e-60 (vector-ref e-39 0))) (let ((e-59 (vector-ref e-39 1))) (let ((e-58 (vector-ref e-39 2))) (let ((e-57 (vector-ref e-39 3))) (let ((e-42 (vector-ref e-39 4))) (let ((e-43 (vector-ref e-39 5))) (let ((e-45 (vector-ref e-39 7))) (let ((e-46 (vector-ref e-39 8))) (let ((e-47 (vector-ref e-39 9))) (let ((e-48 (vector-ref e-39 10))) (let ((e-49 (vector-ref e-39 11))) (let ((e-50 (vector-ref e-39 12))) (let ((e-51 (vector-ref e-39 13))) (let ((e-52 (vector-ref e-39 14))) (let ((e-53 (vector-ref e-39 15))) (let ((e-54 (vector-ref e-39 16))) (let ((e-55 (vector-ref e-39 17))) (let ((e-56 (vector-ref e-39 18))) (vector e-0 e-1 e-2 e-3 (vector e-41 e-40 (vector e-60 e-59 e-58 e-57 e-42 e-43 u--logs e-45 e-46 e-47 e-48 e-49 e-50 e-51 e-52 e-53 e-54 e-55 e-56) e-38 e-33 e-34 e-35 e-36 e-37) e-32 e-31 e-30 e-29 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27 e-28)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-28)))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (vector 1 e-7)))))))))))))))))))))) +(define CoreC-45Context-withExtendedNS (lambda (arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((u--cns (let ((e-2 (vector-ref e-5 2))) e-2))) (let ((act-25 (let ((act-25 (set-box! arg-1 (let ((e-0 (vector-ref e-5 0))) (let ((e-1 (vector-ref e-5 1))) (let ((e-3 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-29 (vector-ref e-5 5))) (let ((e-6 (vector-ref e-5 6))) (let ((e-7 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (let ((e-10 (vector-ref e-5 10))) (let ((e-11 (vector-ref e-5 11))) (let ((e-12 (vector-ref e-5 12))) (let ((e-13 (vector-ref e-5 13))) (let ((e-14 (vector-ref e-5 14))) (let ((e-15 (vector-ref e-5 15))) (let ((e-16 (vector-ref e-5 16))) (let ((e-17 (vector-ref e-5 17))) (let ((e-18 (vector-ref e-5 18))) (let ((e-19 (vector-ref e-5 19))) (let ((e-20 (vector-ref e-5 20))) (let ((e-21 (vector-ref e-5 21))) (let ((e-22 (vector-ref e-5 22))) (let ((e-23 (vector-ref e-5 23))) (let ((e-24 (vector-ref e-5 24))) (let ((e-25 (vector-ref e-5 25))) (let ((e-26 (vector-ref e-5 26))) (let ((e-27 (vector-ref e-5 27))) (let ((e-28 (vector-ref e-5 28))) (vector e-0 e-1 (CoreC-45NameC-45Namespace-C-60C-46C-62 u--cns arg-2) e-3 e-4 e-29 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27 e-28)))))))))))))))))))))))))))))))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45Core-u--catch_Catchable_Core_Error (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (case (vector-ref eta-1 0) ((0) (let ((e-2 (vector-ref eta-1 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref eta-1 1))) (vector 1 (vector 1 e-7)))))) arg-3 eta-0)) (lambda (eta-0) (lambda (eta-1) (vector 1 (vector 0 eta-0)))) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (let ((act-27 (unbox arg-1))) (vector 1 act-27)))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (let ((act-28 (let ((act-28 (set-box! arg-1 (let ((e-0 (vector-ref e-8 0))) (let ((e-1 (vector-ref e-8 1))) (let ((e-3 (vector-ref e-8 3))) (let ((e-4 (vector-ref e-8 4))) (let ((e-32 (vector-ref e-8 5))) (let ((e-31 (vector-ref e-8 6))) (let ((e-30 (vector-ref e-8 7))) (let ((e-29 (vector-ref e-8 8))) (let ((e-9 (vector-ref e-8 9))) (let ((e-10 (vector-ref e-8 10))) (let ((e-11 (vector-ref e-8 11))) (let ((e-12 (vector-ref e-8 12))) (let ((e-13 (vector-ref e-8 13))) (let ((e-14 (vector-ref e-8 14))) (let ((e-15 (vector-ref e-8 15))) (let ((e-16 (vector-ref e-8 16))) (let ((e-17 (vector-ref e-8 17))) (let ((e-18 (vector-ref e-8 18))) (let ((e-19 (vector-ref e-8 19))) (let ((e-20 (vector-ref e-8 20))) (let ((e-21 (vector-ref e-8 21))) (let ((e-22 (vector-ref e-8 22))) (let ((e-23 (vector-ref e-8 23))) (let ((e-24 (vector-ref e-8 24))) (let ((e-25 (vector-ref e-8 25))) (let ((e-26 (vector-ref e-8 26))) (let ((e-27 (vector-ref e-8 27))) (let ((e-28 (vector-ref e-8 28))) (vector e-0 e-1 u--cns e-3 e-4 e-32 e-31 e-30 e-29 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27 e-28)))))))))))))))))))))))))))))))) (vector 1 act-28)))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (case (vector-ref e-7 0) ((0) (let ((e-2 (vector-ref e-7 1))) (CoreC-45Core-u--throw_Catchable_Core_Error e-2 ext-0))) (else (let ((e-10 (vector-ref e-7 1))) (vector 1 e-10))))))))))))))))))))))))) +(define CoreC-45Context-withCtxt (lambda (arg-1 ext-1 ext-0) (CoreC-45Core-wrapRef (vector "Core.Context.Ctxt" ) arg-1 (lambda (eta-0) (CoreC-45Context-n--23547-16255-u--resetCtxt arg-1 eta-0)) ext-1 ext-0))) +(define CoreC-45Context-visibleInAny (lambda (arg-0 arg-1 arg-2) (PreludeC-45Interfaces-any (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (lambda (u--ns) (CoreC-45Context-visibleIn u--ns arg-1 arg-2)) arg-0))) +(define CoreC-45Context-visibleIn (lambda (arg-0 arg-1 arg-2) (case (vector-ref arg-1 0) ((0) (let ((e-0 (vector-ref arg-1 1))) (cond ((equal? arg-2 0) (CoreC-45NameC-45Namespace-isParentOf e-0 arg-0))(else 1))))(else 1)))) +(define CoreC-45Context-updateTy (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact (vector 9 arg-1) (let ((e-0 (vector-ref e-5 0))) e-0)) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (if (null? e-6) (vector 1 0) (let ((e-1 (unbox e-6))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-2 (vector-ref eta-0 1))) (vector 0 e-2))) (else (vector 1 0)))) (lambda (eta-0) (CoreC-45Context-addDef arg-0 (vector 9 arg-1) (let ((e-0 (vector-ref e-1 0))) (let ((e-23 (vector-ref e-1 1))) (let ((e-3 (vector-ref e-1 3))) (let ((e-4 (vector-ref e-1 4))) (let ((e-22 (vector-ref e-1 5))) (let ((e-21 (vector-ref e-1 6))) (let ((e-7 (vector-ref e-1 7))) (let ((e-8 (vector-ref e-1 8))) (let ((e-9 (vector-ref e-1 9))) (let ((e-10 (vector-ref e-1 10))) (let ((e-11 (vector-ref e-1 11))) (let ((e-12 (vector-ref e-1 12))) (let ((e-13 (vector-ref e-1 13))) (let ((e-14 (vector-ref e-1 14))) (let ((e-15 (vector-ref e-1 15))) (let ((e-16 (vector-ref e-1 16))) (let ((e-17 (vector-ref e-1 17))) (let ((e-18 (vector-ref e-1 18))) (let ((e-19 (vector-ref e-1 19))) (let ((e-20 (vector-ref e-1 20))) (vector e-0 e-23 arg-2 e-3 e-4 e-22 e-21 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20))))))))))))))))))))) eta-0)) ext-0))))))))))))) +(define CoreC-45Context-updateDef (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact arg-1 (let ((e-0 (vector-ref e-5 0))) e-0)) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (if (null? e-6) (vector 1 0) (let ((e-1 (unbox e-6))) (let ((sc3 (arg-2 (let ((e-17 (vector-ref e-1 17))) e-17)))) (if (null? sc3) (vector 1 0) (let ((e-2 (unbox sc3))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-3 (vector-ref eta-0 1))) (vector 0 e-3))) (else (vector 1 0)))) (lambda (eta-0) (CoreC-45Context-addDef arg-0 arg-1 (let ((e-0 (vector-ref e-1 0))) (let ((e-24 (vector-ref e-1 1))) (let ((e-23 (vector-ref e-1 2))) (let ((e-3 (vector-ref e-1 3))) (let ((e-4 (vector-ref e-1 4))) (let ((e-22 (vector-ref e-1 5))) (let ((e-21 (vector-ref e-1 6))) (let ((e-7 (vector-ref e-1 7))) (let ((e-8 (vector-ref e-1 8))) (let ((e-9 (vector-ref e-1 9))) (let ((e-10 (vector-ref e-1 10))) (let ((e-11 (vector-ref e-1 11))) (let ((e-12 (vector-ref e-1 12))) (let ((e-13 (vector-ref e-1 13))) (let ((e-14 (vector-ref e-1 14))) (let ((e-15 (vector-ref e-1 15))) (let ((e-16 (vector-ref e-1 16))) (let ((e-18 (vector-ref e-1 18))) (let ((e-19 (vector-ref e-1 19))) (let ((e-20 (vector-ref e-1 20))) (vector e-0 e-24 e-23 e-3 e-4 e-22 e-21 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-2 e-18 e-19 e-20))))))))))))))))))))) eta-0)) ext-0)))))))))))))))) +(define CoreC-45Context-unsetFlag (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact arg-2 (let ((e-0 (vector-ref e-5 0))) e-0)) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (if (null? e-6) (CoreC-45Context-undefinedName arg-0 arg-1 arg-2 ext-0) (let ((e-1 (unbox e-6))) (let ((u--flagsC-39 (DataC-45List-filter (lambda (arg-4) (CoreC-45Context-u--C-47C-61_Eq_DefFlag arg-4 arg-3)) (let ((e-11 (vector-ref e-1 11))) e-11)))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-2 (vector-ref eta-0 1))) (vector 0 e-2))) (else (vector 1 0)))) (lambda (eta-0) (CoreC-45Context-addDef arg-0 arg-2 (let ((e-0 (vector-ref e-1 0))) (let ((e-23 (vector-ref e-1 1))) (let ((e-2 (vector-ref e-1 2))) (let ((e-3 (vector-ref e-1 3))) (let ((e-4 (vector-ref e-1 4))) (let ((e-22 (vector-ref e-1 5))) (let ((e-21 (vector-ref e-1 6))) (let ((e-7 (vector-ref e-1 7))) (let ((e-8 (vector-ref e-1 8))) (let ((e-9 (vector-ref e-1 9))) (let ((e-10 (vector-ref e-1 10))) (let ((e-12 (vector-ref e-1 12))) (let ((e-13 (vector-ref e-1 13))) (let ((e-14 (vector-ref e-1 14))) (let ((e-15 (vector-ref e-1 15))) (let ((e-16 (vector-ref e-1 16))) (let ((e-17 (vector-ref e-1 17))) (let ((e-18 (vector-ref e-1 18))) (let ((e-19 (vector-ref e-1 19))) (let ((e-20 (vector-ref e-1 20))) (vector e-0 e-23 e-2 e-3 e-4 e-22 e-21 e-7 e-8 e-9 e-10 u--flagsC-39 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20))))))))))))))))))))) eta-0)) ext-0)))))))))))))) (define CoreC-45Context-undefinedName (lambda (arg-1 arg-2 arg-3 ext-0) (CoreC-45Context-maybeMisspelling arg-1 (vector 7 arg-2 arg-3) arg-3 ext-0))) -(define CoreC-45Context-toResolvedNames (lambda (arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 arg-2)) (let ((e-2 (cdr sc1))) (((e-2 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) arg-3) ext-0)))))))))) -(define CoreC-45Context-toFullNames (lambda (arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 arg-2)) (let ((e-1 (car sc1))) (((e-1 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) arg-3) ext-0)))))))))) -(define CoreC-45Context-sndName (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (PreludeC-45Types-maybe (lambda () (vector 0 )) (lambda () (lambda (eta-0) (vector 1 (let ((sc1 eta-0)) (let ((e-2 (vector-ref sc1 3))) e-2))))) (let ((sc1 e-5)) (let ((e-4 (vector-ref sc1 5))) (let ((sc2 e-4)) (let ((e-33 (vector-ref sc2 5))) e-33))))))))))))) -(define CoreC-45Context-setWorkingDir (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc1 eta-0)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))) (lambda (eta-0) (let ((act-25 ((SystemC-45Directory-changeDir (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-1)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-1) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-1) (let ((act-17 (arg-578 eta-1))) (let ((act-16 (arg-580 eta-1))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-1) (let ((act-25 (arg-876 eta-1))) ((arg-877 act-25) eta-1))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-1) (let ((act-51 (arg-879 eta-1))) (act-51 eta-1)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) arg-1) eta-0))) (vector 1 act-25))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 (let ((act-26 ((SystemC-45Directory-currentDir (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-0)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-0) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (let ((act-17 (arg-578 eta-0))) (let ((act-16 (arg-580 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (let ((act-26 (arg-876 eta-0))) ((arg-877 act-26) eta-0))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-0) (let ((act-51 (arg-879 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-7803) arg-7803)))) ext-0))) (vector 1 act-26)))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((act-27 (set-box! arg-0 (let ((sc4 e-5)) (let ((e-0 (vector-ref sc4 1))) (let ((e-31 (vector-ref sc4 2))) (let ((e-2 (vector-ref sc4 3))) (let ((e-3 (vector-ref sc4 4))) (let ((e-4 (vector-ref sc4 5))) (let ((e-30 (vector-ref sc4 6))) (let ((e-29 (vector-ref sc4 7))) (let ((e-28 (vector-ref sc4 8))) (let ((e-8 (vector-ref sc4 9))) (let ((e-9 (vector-ref sc4 10))) (let ((e-10 (vector-ref sc4 11))) (let ((e-11 (vector-ref sc4 12))) (let ((e-12 (vector-ref sc4 13))) (let ((e-13 (vector-ref sc4 14))) (let ((e-14 (vector-ref sc4 15))) (let ((e-15 (vector-ref sc4 16))) (let ((e-16 (vector-ref sc4 17))) (let ((e-17 (vector-ref sc4 18))) (let ((e-18 (vector-ref sc4 19))) (let ((e-19 (vector-ref sc4 20))) (let ((e-20 (vector-ref sc4 21))) (let ((e-21 (vector-ref sc4 22))) (let ((e-22 (vector-ref sc4 23))) (let ((e-23 (vector-ref sc4 24))) (let ((e-24 (vector-ref sc4 25))) (let ((e-25 (vector-ref sc4 26))) (let ((e-26 (vector-ref sc4 27))) (let ((e-27 (vector-ref sc4 28))) (let ((sc5 e-4)) (let ((e-40 (vector-ref sc5 1))) (let ((e-39 (vector-ref sc5 2))) (let ((e-38 (vector-ref sc5 3))) (let ((e-37 (vector-ref sc5 4))) (let ((e-32 (vector-ref sc5 5))) (let ((e-33 (vector-ref sc5 6))) (let ((e-34 (vector-ref sc5 7))) (let ((e-35 (vector-ref sc5 8))) (let ((e-36 (vector-ref sc5 9))) (let ((sc6 e-40)) (let ((e-49 (vector-ref sc6 2))) (let ((e-48 (vector-ref sc6 3))) (let ((e-47 (vector-ref sc6 4))) (let ((e-41 (vector-ref sc6 5))) (let ((e-42 (vector-ref sc6 6))) (let ((e-43 (vector-ref sc6 7))) (let ((e-44 (vector-ref sc6 8))) (let ((e-45 (vector-ref sc6 9))) (let ((e-46 (vector-ref sc6 10))) (vector 0 e-0 e-31 e-2 e-3 (vector 0 (vector 0 e-1 e-49 e-48 e-47 e-41 e-42 e-43 e-44 e-45 e-46) e-39 e-38 e-37 e-32 e-33 e-34 e-35 e-36) e-30 e-29 e-28 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27))))))))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-27)))) (else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 "Can't get current directory") ext-0)))))))))))))))))))) -(define CoreC-45Context-setVisible (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-28 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (let ((e-26 (vector-ref sc1 27))) (let ((e-27 (vector-ref sc1 28))) (let ((sc2 e-0)) (let ((e-39 (vector-ref sc2 1))) (let ((e-29 (vector-ref sc2 2))) (let ((e-30 (vector-ref sc2 3))) (let ((e-31 (vector-ref sc2 4))) (let ((e-32 (vector-ref sc2 5))) (let ((e-33 (vector-ref sc2 6))) (let ((e-34 (vector-ref sc2 7))) (let ((e-35 (vector-ref sc2 8))) (let ((e-36 (vector-ref sc2 9))) (let ((e-37 (vector-ref sc2 10))) (let ((e-38 (vector-ref sc2 11))) (vector 0 (vector 0 e-39 e-29 e-30 e-31 e-32 e-33 e-34 (cons arg-1 e-35) e-36 e-37 e-38) e-1 e-2 e-3 e-4 e-28 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25))))))))) -(define CoreC-45Context-setUniqueSearch (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact arg-2 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((_-0 (vector 1 e-1))) ((CoreC-45Context-case--caseC-32blockC-32inC-32setUniqueSearch-12430 arg-3 arg-2 arg-1 arg-0 e-5 e-1 _-0 (let ((sc3 e-1)) (let ((e-17 (vector-ref sc3 18))) e-17))) ext-0))))(else (CoreC-45Context-undefinedName arg-0 arg-1 arg-2 ext-0)))))))))))))))) -(define CoreC-45Context-setUnboundImplicits (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-28 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (let ((e-26 (vector-ref sc1 27))) (let ((e-27 (vector-ref sc1 28))) (let ((sc2 e-4)) (let ((e-37 (vector-ref sc2 1))) (let ((e-29 (vector-ref sc2 2))) (let ((e-30 (vector-ref sc2 3))) (let ((e-31 (vector-ref sc2 4))) (let ((e-32 (vector-ref sc2 5))) (let ((e-33 (vector-ref sc2 6))) (let ((e-34 (vector-ref sc2 7))) (let ((e-35 (vector-ref sc2 8))) (let ((e-36 (vector-ref sc2 9))) (let ((sc3 e-31)) (let ((e-44 (vector-ref sc3 1))) (let ((e-39 (vector-ref sc3 3))) (let ((e-40 (vector-ref sc3 4))) (let ((e-41 (vector-ref sc3 5))) (let ((e-42 (vector-ref sc3 6))) (let ((e-43 (vector-ref sc3 7))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-37 e-29 e-30 (vector 0 e-44 arg-1 e-39 e-40 e-41 e-42 e-43) e-32 e-33 e-34 e-35 e-36) e-28 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27)))))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25))))))))) -(define CoreC-45Context-setTerminating (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact arg-2 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc3 eta-0)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))) (lambda (eta-0) (CoreC-45Context-addDef arg-0 arg-2 (let ((sc3 e-1)) (let ((e-0 (vector-ref sc3 1))) (let ((e-23 (vector-ref sc3 2))) (let ((e-2 (vector-ref sc3 3))) (let ((e-3 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-22 (vector-ref sc3 6))) (let ((e-21 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (let ((e-11 (vector-ref sc3 12))) (let ((e-12 (vector-ref sc3 13))) (let ((e-13 (vector-ref sc3 14))) (let ((e-14 (vector-ref sc3 15))) (let ((e-15 (vector-ref sc3 16))) (let ((e-16 (vector-ref sc3 17))) (let ((e-17 (vector-ref sc3 18))) (let ((e-18 (vector-ref sc3 19))) (let ((e-19 (vector-ref sc3 20))) (let ((e-20 (vector-ref sc3 21))) (let ((sc4 e-10)) (let ((e-24 (cdr sc4))) (vector 0 e-0 e-23 e-2 e-3 e-4 e-22 e-21 e-7 e-8 e-9 (cons arg-3 e-24) e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20))))))))))))))))))))))))) eta-0)) ext-0))) (else (CoreC-45Context-undefinedName arg-0 arg-1 arg-2 ext-0)))))))))))))))) -(define CoreC-45Context-setSourceDir (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-28 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (let ((e-26 (vector-ref sc1 27))) (let ((e-27 (vector-ref sc1 28))) (let ((sc2 e-4)) (let ((e-37 (vector-ref sc2 1))) (let ((e-29 (vector-ref sc2 2))) (let ((e-30 (vector-ref sc2 3))) (let ((e-31 (vector-ref sc2 4))) (let ((e-32 (vector-ref sc2 5))) (let ((e-33 (vector-ref sc2 6))) (let ((e-34 (vector-ref sc2 7))) (let ((e-35 (vector-ref sc2 8))) (let ((e-36 (vector-ref sc2 9))) (let ((sc3 e-37)) (let ((e-47 (vector-ref sc3 1))) (let ((e-39 (vector-ref sc3 3))) (let ((e-40 (vector-ref sc3 4))) (let ((e-41 (vector-ref sc3 5))) (let ((e-42 (vector-ref sc3 6))) (let ((e-43 (vector-ref sc3 7))) (let ((e-44 (vector-ref sc3 8))) (let ((e-45 (vector-ref sc3 9))) (let ((e-46 (vector-ref sc3 10))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 (vector 0 e-47 arg-1 e-39 e-40 e-41 e-42 e-43 e-44 e-45 e-46) e-29 e-30 e-31 e-32 e-33 e-34 e-35 e-36) e-28 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27))))))))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25))))))))) -(define CoreC-45Context-setSizeChange (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact arg-2 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc3 eta-0)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))) (lambda (eta-0) (CoreC-45Context-addDef arg-0 arg-2 (let ((sc3 e-1)) (let ((e-0 (vector-ref sc3 1))) (let ((e-23 (vector-ref sc3 2))) (let ((e-2 (vector-ref sc3 3))) (let ((e-3 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-22 (vector-ref sc3 6))) (let ((e-21 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (let ((e-11 (vector-ref sc3 12))) (let ((e-12 (vector-ref sc3 13))) (let ((e-13 (vector-ref sc3 14))) (let ((e-14 (vector-ref sc3 15))) (let ((e-15 (vector-ref sc3 16))) (let ((e-16 (vector-ref sc3 17))) (let ((e-17 (vector-ref sc3 18))) (let ((e-18 (vector-ref sc3 19))) (let ((e-19 (vector-ref sc3 20))) (vector 0 e-0 e-23 e-2 e-3 e-4 e-22 e-21 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 arg-3)))))))))))))))))))))) eta-0)) ext-0))) (else (CoreC-45Context-undefinedName arg-0 arg-1 arg-2 ext-0)))))))))))))))) -(define CoreC-45Context-setSession (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-28 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (let ((e-26 (vector-ref sc1 27))) (let ((e-27 (vector-ref sc1 28))) (let ((sc2 e-4)) (let ((e-37 (vector-ref sc2 1))) (let ((e-29 (vector-ref sc2 2))) (let ((e-31 (vector-ref sc2 4))) (let ((e-32 (vector-ref sc2 5))) (let ((e-33 (vector-ref sc2 6))) (let ((e-34 (vector-ref sc2 7))) (let ((e-35 (vector-ref sc2 8))) (let ((e-36 (vector-ref sc2 9))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-37 e-29 arg-1 e-31 e-32 e-33 e-34 e-35 e-36) e-28 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27)))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25))))))))) -(define CoreC-45Context-setRewrite (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (CoreC-45Context-checkUnambig arg-0 arg-1 arg-3 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (CoreC-45Context-checkUnambig arg-0 arg-1 arg-2 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (set-box! arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-2 (vector-ref sc3 3))) (let ((e-3 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-30 (vector-ref sc3 6))) (let ((e-29 (vector-ref sc3 7))) (let ((e-28 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (let ((e-11 (vector-ref sc3 12))) (let ((e-12 (vector-ref sc3 13))) (let ((e-13 (vector-ref sc3 14))) (let ((e-14 (vector-ref sc3 15))) (let ((e-15 (vector-ref sc3 16))) (let ((e-16 (vector-ref sc3 17))) (let ((e-17 (vector-ref sc3 18))) (let ((e-18 (vector-ref sc3 19))) (let ((e-19 (vector-ref sc3 20))) (let ((e-20 (vector-ref sc3 21))) (let ((e-21 (vector-ref sc3 22))) (let ((e-22 (vector-ref sc3 23))) (let ((e-23 (vector-ref sc3 24))) (let ((e-24 (vector-ref sc3 25))) (let ((e-25 (vector-ref sc3 26))) (let ((e-26 (vector-ref sc3 27))) (let ((e-27 (vector-ref sc3 28))) (vector 0 e-0 e-1 e-2 e-3 (CoreC-45Options-setRewrite e-7 e-6 e-4) e-30 e-29 e-28 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27))))))))))))))))))))))))))))))))) (vector 1 act-27))))))))))))))))))) -(define CoreC-45Context-setPrefixRecordProjections (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-28 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (let ((e-26 (vector-ref sc1 27))) (let ((e-27 (vector-ref sc1 28))) (let ((sc2 e-4)) (let ((e-37 (vector-ref sc2 1))) (let ((e-29 (vector-ref sc2 2))) (let ((e-30 (vector-ref sc2 3))) (let ((e-31 (vector-ref sc2 4))) (let ((e-32 (vector-ref sc2 5))) (let ((e-33 (vector-ref sc2 6))) (let ((e-34 (vector-ref sc2 7))) (let ((e-35 (vector-ref sc2 8))) (let ((e-36 (vector-ref sc2 9))) (let ((sc3 e-31)) (let ((e-44 (vector-ref sc3 1))) (let ((e-38 (vector-ref sc3 2))) (let ((e-39 (vector-ref sc3 3))) (let ((e-40 (vector-ref sc3 4))) (let ((e-41 (vector-ref sc3 5))) (let ((e-42 (vector-ref sc3 6))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-37 e-29 e-30 (vector 0 e-44 e-38 e-39 e-40 e-41 e-42 arg-1) e-32 e-33 e-34 e-35 e-36) e-28 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27)))))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25))))))))) -(define CoreC-45Context-setPrefix (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-28 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (let ((e-26 (vector-ref sc1 27))) (let ((e-27 (vector-ref sc1 28))) (let ((sc2 e-4)) (let ((e-37 (vector-ref sc2 1))) (let ((e-29 (vector-ref sc2 2))) (let ((e-30 (vector-ref sc2 3))) (let ((e-31 (vector-ref sc2 4))) (let ((e-32 (vector-ref sc2 5))) (let ((e-33 (vector-ref sc2 6))) (let ((e-34 (vector-ref sc2 7))) (let ((e-35 (vector-ref sc2 8))) (let ((e-36 (vector-ref sc2 9))) (let ((sc3 e-37)) (let ((e-47 (vector-ref sc3 1))) (let ((e-38 (vector-ref sc3 2))) (let ((e-39 (vector-ref sc3 3))) (let ((e-40 (vector-ref sc3 4))) (let ((e-41 (vector-ref sc3 5))) (let ((e-43 (vector-ref sc3 7))) (let ((e-44 (vector-ref sc3 8))) (let ((e-45 (vector-ref sc3 9))) (let ((e-46 (vector-ref sc3 10))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 (vector 0 e-47 e-38 e-39 e-40 e-41 arg-1 e-43 e-44 e-45 e-46) e-29 e-30 e-31 e-32 e-33 e-34 e-35 e-36) e-28 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27))))))))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25))))))))) -(define CoreC-45Context-setPair (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (CoreC-45Context-checkUnambig arg-0 arg-1 arg-2 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (CoreC-45Context-checkUnambig arg-0 arg-1 arg-3 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (CoreC-45Context-checkUnambig arg-0 arg-1 arg-4 ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (set-box! arg-0 (let ((sc4 e-5)) (let ((e-0 (vector-ref sc4 1))) (let ((e-1 (vector-ref sc4 2))) (let ((e-2 (vector-ref sc4 3))) (let ((e-3 (vector-ref sc4 4))) (let ((e-4 (vector-ref sc4 5))) (let ((e-31 (vector-ref sc4 6))) (let ((e-30 (vector-ref sc4 7))) (let ((e-29 (vector-ref sc4 8))) (let ((e-28 (vector-ref sc4 9))) (let ((e-9 (vector-ref sc4 10))) (let ((e-10 (vector-ref sc4 11))) (let ((e-11 (vector-ref sc4 12))) (let ((e-12 (vector-ref sc4 13))) (let ((e-13 (vector-ref sc4 14))) (let ((e-14 (vector-ref sc4 15))) (let ((e-15 (vector-ref sc4 16))) (let ((e-16 (vector-ref sc4 17))) (let ((e-17 (vector-ref sc4 18))) (let ((e-18 (vector-ref sc4 19))) (let ((e-19 (vector-ref sc4 20))) (let ((e-20 (vector-ref sc4 21))) (let ((e-21 (vector-ref sc4 22))) (let ((e-22 (vector-ref sc4 23))) (let ((e-23 (vector-ref sc4 24))) (let ((e-24 (vector-ref sc4 25))) (let ((e-25 (vector-ref sc4 26))) (let ((e-26 (vector-ref sc4 27))) (let ((e-27 (vector-ref sc4 28))) (vector 0 e-0 e-1 e-2 e-3 (CoreC-45Options-setPair e-6 e-7 e-8 e-4) e-31 e-30 e-29 e-28 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27))))))))))))))))))))))))))))))))) (vector 1 act-28)))))))))))))))))))))))) -(define CoreC-45Context-setPPrint (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-28 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (let ((e-26 (vector-ref sc1 27))) (let ((e-27 (vector-ref sc1 28))) (let ((sc2 e-4)) (let ((e-37 (vector-ref sc2 1))) (let ((e-30 (vector-ref sc2 3))) (let ((e-31 (vector-ref sc2 4))) (let ((e-32 (vector-ref sc2 5))) (let ((e-33 (vector-ref sc2 6))) (let ((e-34 (vector-ref sc2 7))) (let ((e-35 (vector-ref sc2 8))) (let ((e-36 (vector-ref sc2 9))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-37 arg-1 e-30 e-31 e-32 e-33 e-34 e-35 e-36) e-28 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27)))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25))))))))) -(define CoreC-45Context-setOutputDir (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-28 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (let ((e-26 (vector-ref sc1 27))) (let ((e-27 (vector-ref sc1 28))) (let ((sc2 e-4)) (let ((e-37 (vector-ref sc2 1))) (let ((e-29 (vector-ref sc2 2))) (let ((e-30 (vector-ref sc2 3))) (let ((e-31 (vector-ref sc2 4))) (let ((e-32 (vector-ref sc2 5))) (let ((e-33 (vector-ref sc2 6))) (let ((e-34 (vector-ref sc2 7))) (let ((e-35 (vector-ref sc2 8))) (let ((e-36 (vector-ref sc2 9))) (let ((sc3 e-37)) (let ((e-47 (vector-ref sc3 1))) (let ((e-38 (vector-ref sc3 2))) (let ((e-39 (vector-ref sc3 3))) (let ((e-40 (vector-ref sc3 4))) (let ((e-42 (vector-ref sc3 6))) (let ((e-43 (vector-ref sc3 7))) (let ((e-44 (vector-ref sc3 8))) (let ((e-45 (vector-ref sc3 9))) (let ((e-46 (vector-ref sc3 10))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 (vector 0 e-47 e-38 e-39 e-40 arg-1 e-42 e-43 e-44 e-45 e-46) e-29 e-30 e-31 e-32 e-33 e-34 e-35 e-36) e-28 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27))))))))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25))))))))) -(define CoreC-45Context-setOpenHints (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-28 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (let ((e-26 (vector-ref sc1 27))) (let ((e-27 (vector-ref sc1 28))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-28 e-6 e-7 e-8 arg-1 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27)))))))))))))))))))))))))))))))) (vector 1 act-25))))))))) -(define CoreC-45Context-setNestedNS (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-4 (vector-ref sc1 5))) (let ((e-28 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (let ((e-26 (vector-ref sc1 27))) (let ((e-27 (vector-ref sc1 28))) (vector 0 e-0 e-1 e-2 arg-1 e-4 e-28 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27)))))))))))))))))))))))))))))))) (vector 1 act-25))))))))) -(define CoreC-45Context-setNamedCompiled (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact arg-1 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc3 eta-0)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))) (lambda (eta-0) (CoreC-45Context-addDef arg-0 arg-1 (let ((sc3 e-1)) (let ((e-0 (vector-ref sc3 1))) (let ((e-23 (vector-ref sc3 2))) (let ((e-2 (vector-ref sc3 3))) (let ((e-3 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-22 (vector-ref sc3 6))) (let ((e-21 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (let ((e-11 (vector-ref sc3 12))) (let ((e-12 (vector-ref sc3 13))) (let ((e-13 (vector-ref sc3 14))) (let ((e-14 (vector-ref sc3 15))) (let ((e-15 (vector-ref sc3 16))) (let ((e-16 (vector-ref sc3 17))) (let ((e-17 (vector-ref sc3 18))) (let ((e-18 (vector-ref sc3 19))) (let ((e-20 (vector-ref sc3 21))) (vector 0 e-0 e-23 e-2 e-3 e-4 e-22 e-21 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 (vector 1 arg-2) e-20)))))))))))))))))))))) eta-0)) ext-0))) (else (vector 1 (vector 0 ))))))))))))))))) -(define CoreC-45Context-setNameFlag (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtName arg-2 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (if (null? sc2) (CoreC-45Context-undefinedName arg-0 arg-1 arg-2 ext-0) (let ((e-1 (car sc2))) (let ((e-2 (cdr sc2))) (let ((sc3 e-1)) (if (null? sc3) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 17 arg-1 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-fst eta-0)) e-6)) ext-0) (let ((e-7 (cdr sc3))) (let ((sc4 e-7)) (if (null? sc4) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 17 arg-1 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-fst eta-0)) e-6)) ext-0) (let ((e-10 (car sc4))) (let ((e-11 (cdr sc4))) (let ((sc5 e-2)) (if (null? sc5) (let ((u--flagsC-39 (cons arg-3 (DataC-45List-filter (lambda (arg-4) (CoreC-45Context-u--C-47C-61_Eq_DefFlag arg-4 arg-3)) (let ((sc6 e-11)) (let ((e-21 (vector-ref sc6 12))) e-21)))))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc6 eta-0)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (vector 1 (vector 0 )))))) (lambda (eta-0) (CoreC-45Context-addDef arg-0 (vector 9 e-10) (let ((sc6 e-11)) (let ((e-0 (vector-ref sc6 1))) (let ((e-28 (vector-ref sc6 2))) (let ((e-27 (vector-ref sc6 3))) (let ((e-3 (vector-ref sc6 4))) (let ((e-4 (vector-ref sc6 5))) (let ((e-26 (vector-ref sc6 6))) (let ((e-25 (vector-ref sc6 7))) (let ((e-24 (vector-ref sc6 8))) (let ((e-23 (vector-ref sc6 9))) (let ((e-9 (vector-ref sc6 10))) (let ((e-22 (vector-ref sc6 11))) (let ((e-12 (vector-ref sc6 13))) (let ((e-13 (vector-ref sc6 14))) (let ((e-14 (vector-ref sc6 15))) (let ((e-15 (vector-ref sc6 16))) (let ((e-16 (vector-ref sc6 17))) (let ((e-17 (vector-ref sc6 18))) (let ((e-18 (vector-ref sc6 19))) (let ((e-19 (vector-ref sc6 20))) (let ((e-20 (vector-ref sc6 21))) (vector 0 e-0 e-28 e-27 e-3 e-4 e-26 e-25 e-24 e-23 e-9 e-22 u--flagsC-39 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20)))))))))))))))))))))) eta-0)) ext-0)) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 17 arg-1 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-fst eta-0)) e-6)) ext-0)))))))))))))))))))))))))) -(define CoreC-45Context-setNS (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-28 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (let ((e-26 (vector-ref sc1 27))) (let ((e-27 (vector-ref sc1 28))) (vector 0 e-0 e-1 arg-1 e-3 e-4 e-28 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27)))))))))))))))))))))))))))))))) (vector 1 act-25))))))))) -(define CoreC-45Context-setNFThreshold (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-28 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (let ((e-26 (vector-ref sc1 27))) (let ((e-27 (vector-ref sc1 28))) (let ((sc2 e-4)) (let ((e-37 (vector-ref sc2 1))) (let ((e-29 (vector-ref sc2 2))) (let ((e-30 (vector-ref sc2 3))) (let ((e-31 (vector-ref sc2 4))) (let ((e-32 (vector-ref sc2 5))) (let ((e-33 (vector-ref sc2 6))) (let ((e-34 (vector-ref sc2 7))) (let ((e-35 (vector-ref sc2 8))) (let ((e-36 (vector-ref sc2 9))) (let ((sc3 e-31)) (let ((e-44 (vector-ref sc3 1))) (let ((e-38 (vector-ref sc3 2))) (let ((e-39 (vector-ref sc3 3))) (let ((e-40 (vector-ref sc3 4))) (let ((e-41 (vector-ref sc3 5))) (let ((e-43 (vector-ref sc3 7))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-37 e-29 e-30 (vector 0 e-44 e-38 e-39 e-40 e-41 arg-1 e-43) e-32 e-33 e-34 e-35 e-36) e-28 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27)))))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25))))))))) -(define CoreC-45Context-setMutWith (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact arg-2 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((_-0 (vector 1 e-1))) (CoreC-45Context-case--caseC-32blockC-32inC-32setMutWith-11859 arg-3 arg-2 arg-1 arg-0 e-5 e-1 _-0 (let ((sc3 e-1)) (let ((e-17 (vector-ref sc3 18))) e-17)) ext-0))))(else (CoreC-45Context-undefinedName arg-0 arg-1 arg-2 ext-0)))))))))))))))) -(define CoreC-45Context-setLogTimings (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-28 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (let ((e-26 (vector-ref sc1 27))) (let ((e-27 (vector-ref sc1 28))) (let ((sc2 e-4)) (let ((e-37 (vector-ref sc2 1))) (let ((e-29 (vector-ref sc2 2))) (let ((e-30 (vector-ref sc2 3))) (let ((e-31 (vector-ref sc2 4))) (let ((e-32 (vector-ref sc2 5))) (let ((e-33 (vector-ref sc2 6))) (let ((e-34 (vector-ref sc2 7))) (let ((e-35 (vector-ref sc2 8))) (let ((e-36 (vector-ref sc2 9))) (let ((sc3 e-30)) (let ((e-52 (vector-ref sc3 1))) (let ((e-38 (vector-ref sc3 2))) (let ((e-39 (vector-ref sc3 3))) (let ((e-40 (vector-ref sc3 4))) (let ((e-41 (vector-ref sc3 5))) (let ((e-42 (vector-ref sc3 6))) (let ((e-43 (vector-ref sc3 7))) (let ((e-45 (vector-ref sc3 9))) (let ((e-46 (vector-ref sc3 10))) (let ((e-47 (vector-ref sc3 11))) (let ((e-48 (vector-ref sc3 12))) (let ((e-49 (vector-ref sc3 13))) (let ((e-50 (vector-ref sc3 14))) (let ((e-51 (vector-ref sc3 15))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-37 e-29 (vector 0 e-52 e-38 e-39 e-40 e-41 e-42 e-43 arg-1 e-45 e-46 e-47 e-48 e-49 e-50 e-51) e-31 e-32 e-33 e-34 e-35 e-36) e-28 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27)))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25))))))))) -(define CoreC-45Context-setLinearCheck (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact (vector 9 arg-1) (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc3 eta-0)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))) (lambda (eta-0) (CoreC-45Context-addDef arg-0 (vector 9 arg-1) (let ((sc3 e-1)) (let ((e-0 (vector-ref sc3 1))) (let ((e-23 (vector-ref sc3 2))) (let ((e-2 (vector-ref sc3 3))) (let ((e-3 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-22 (vector-ref sc3 6))) (let ((e-21 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (let ((e-11 (vector-ref sc3 12))) (let ((e-12 (vector-ref sc3 13))) (let ((e-13 (vector-ref sc3 14))) (let ((e-14 (vector-ref sc3 15))) (let ((e-15 (vector-ref sc3 16))) (let ((e-17 (vector-ref sc3 18))) (let ((e-18 (vector-ref sc3 19))) (let ((e-19 (vector-ref sc3 20))) (let ((e-20 (vector-ref sc3 21))) (vector 0 e-0 e-23 e-2 e-3 e-4 e-22 e-21 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 arg-2 e-17 e-18 e-19 e-20)))))))))))))))))))))) eta-0)) ext-0))) (else (vector 1 (vector 0 ))))))))))))))))) -(define CoreC-45Context-setFromString (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-28 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (let ((e-26 (vector-ref sc1 27))) (let ((e-27 (vector-ref sc1 28))) (vector 0 e-0 e-1 e-2 e-3 (CoreC-45Options-setFromString arg-1 e-4) e-28 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27))))))))))))))))))))))))))))))))) (vector 1 act-25))))))))) -(define CoreC-45Context-setFromInteger (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-28 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (let ((e-26 (vector-ref sc1 27))) (let ((e-27 (vector-ref sc1 28))) (vector 0 e-0 e-1 e-2 e-3 (CoreC-45Options-setFromInteger arg-1 e-4) e-28 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27))))))))))))))))))))))))))))))))) (vector 1 act-25))))))))) -(define CoreC-45Context-setFromDouble (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-28 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (let ((e-26 (vector-ref sc1 27))) (let ((e-27 (vector-ref sc1 28))) (vector 0 e-0 e-1 e-2 e-3 (CoreC-45Options-setFromDouble arg-1 e-4) e-28 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27))))))))))))))))))))))))))))))))) (vector 1 act-25))))))))) -(define CoreC-45Context-setFromChar (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-28 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (let ((e-26 (vector-ref sc1 27))) (let ((e-27 (vector-ref sc1 28))) (vector 0 e-0 e-1 e-2 e-3 (CoreC-45Options-setFromChar arg-1 e-4) e-28 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27))))))))))))))))))))))))))))))))) (vector 1 act-25))))))))) -(define CoreC-45Context-setFlag (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact arg-2 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((u--flagsC-39 (cons arg-3 (DataC-45List-filter (lambda (arg-4) (CoreC-45Context-u--C-47C-61_Eq_DefFlag arg-4 arg-3)) (let ((sc3 e-1)) (let ((e-11 (vector-ref sc3 12))) e-11)))))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc3 eta-0)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))) (lambda (eta-0) (CoreC-45Context-addDef arg-0 arg-2 (let ((sc3 e-1)) (let ((e-0 (vector-ref sc3 1))) (let ((e-23 (vector-ref sc3 2))) (let ((e-2 (vector-ref sc3 3))) (let ((e-3 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-22 (vector-ref sc3 6))) (let ((e-21 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (let ((e-12 (vector-ref sc3 13))) (let ((e-13 (vector-ref sc3 14))) (let ((e-14 (vector-ref sc3 15))) (let ((e-15 (vector-ref sc3 16))) (let ((e-16 (vector-ref sc3 17))) (let ((e-17 (vector-ref sc3 18))) (let ((e-18 (vector-ref sc3 19))) (let ((e-19 (vector-ref sc3 20))) (let ((e-20 (vector-ref sc3 21))) (vector 0 e-0 e-23 e-2 e-3 e-4 e-22 e-21 e-7 e-8 e-9 e-10 u--flagsC-39 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20)))))))))))))))))))))) eta-0)) ext-0)))) (else (CoreC-45Context-undefinedName arg-0 arg-1 arg-2 ext-0)))))))))))))))) -(define CoreC-45Context-setExternal (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact arg-2 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((_-0 (vector 1 e-1))) ((CoreC-45Context-case--caseC-32blockC-32inC-32setExternal-12563 arg-3 arg-2 arg-1 arg-0 e-5 e-1 _-0 (let ((sc3 e-1)) (let ((e-17 (vector-ref sc3 18))) e-17))) ext-0))))(else (CoreC-45Context-undefinedName arg-0 arg-1 arg-2 ext-0)))))))))))))))) -(define CoreC-45Context-setExtension (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-28 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (let ((e-26 (vector-ref sc1 27))) (let ((e-27 (vector-ref sc1 28))) (vector 0 e-0 e-1 e-2 e-3 (CoreC-45Options-setExtension arg-1 e-4) e-28 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27))))))))))))))))))))))))))))))))) (vector 1 act-25))))))))) -(define CoreC-45Context-setDetermining (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact arg-2 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((_-0 (vector 1 e-1))) (CoreC-45Context-case--caseC-32blockC-32inC-32setDetermining-12223 arg-3 arg-2 arg-1 arg-0 e-5 e-1 _-0 (let ((sc3 e-1)) (let ((e-17 (vector-ref sc3 18))) e-17)) ext-0))))(else (CoreC-45Context-undefinedName arg-0 arg-1 arg-2 ext-0)))))))))))))))) -(define CoreC-45Context-setDetags (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact arg-2 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((_-0 (vector 1 e-1))) (CoreC-45Context-case--caseC-32blockC-32inC-32setDetags-12331 arg-3 arg-2 arg-1 arg-0 e-5 e-1 _-0 (let ((sc3 e-1)) (let ((e-17 (vector-ref sc3 18))) e-17)) ext-0))))(else (CoreC-45Context-undefinedName arg-0 arg-1 arg-2 ext-0)))))))))))))))) -(define CoreC-45Context-setDefaultTotalityOption (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-28 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (let ((e-26 (vector-ref sc1 27))) (let ((e-27 (vector-ref sc1 28))) (let ((sc2 e-4)) (let ((e-37 (vector-ref sc2 1))) (let ((e-29 (vector-ref sc2 2))) (let ((e-30 (vector-ref sc2 3))) (let ((e-31 (vector-ref sc2 4))) (let ((e-32 (vector-ref sc2 5))) (let ((e-33 (vector-ref sc2 6))) (let ((e-34 (vector-ref sc2 7))) (let ((e-35 (vector-ref sc2 8))) (let ((e-36 (vector-ref sc2 9))) (let ((sc3 e-31)) (let ((e-44 (vector-ref sc3 1))) (let ((e-38 (vector-ref sc3 2))) (let ((e-40 (vector-ref sc3 4))) (let ((e-41 (vector-ref sc3 5))) (let ((e-42 (vector-ref sc3 6))) (let ((e-43 (vector-ref sc3 7))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-37 e-29 e-30 (vector 0 e-44 e-38 arg-1 e-40 e-41 e-42 e-43) e-32 e-33 e-34 e-35 e-36) e-28 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27)))))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25))))))))) -(define CoreC-45Context-setDebugElabCheck (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-28 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (let ((e-26 (vector-ref sc1 27))) (let ((e-27 (vector-ref sc1 28))) (let ((sc2 e-4)) (let ((e-37 (vector-ref sc2 1))) (let ((e-29 (vector-ref sc2 2))) (let ((e-30 (vector-ref sc2 3))) (let ((e-31 (vector-ref sc2 4))) (let ((e-32 (vector-ref sc2 5))) (let ((e-33 (vector-ref sc2 6))) (let ((e-34 (vector-ref sc2 7))) (let ((e-35 (vector-ref sc2 8))) (let ((e-36 (vector-ref sc2 9))) (let ((sc3 e-30)) (let ((e-52 (vector-ref sc3 1))) (let ((e-38 (vector-ref sc3 2))) (let ((e-39 (vector-ref sc3 3))) (let ((e-40 (vector-ref sc3 4))) (let ((e-41 (vector-ref sc3 5))) (let ((e-42 (vector-ref sc3 6))) (let ((e-43 (vector-ref sc3 7))) (let ((e-44 (vector-ref sc3 8))) (let ((e-45 (vector-ref sc3 9))) (let ((e-47 (vector-ref sc3 11))) (let ((e-48 (vector-ref sc3 12))) (let ((e-49 (vector-ref sc3 13))) (let ((e-50 (vector-ref sc3 14))) (let ((e-51 (vector-ref sc3 15))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-37 e-29 (vector 0 e-52 e-38 e-39 e-40 e-41 e-42 e-43 e-44 e-45 arg-1 e-47 e-48 e-49 e-50 e-51) e-31 e-32 e-33 e-34 e-35 e-36) e-28 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27)))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25))))))))) -(define CoreC-45Context-setCtxt (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-28 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (let ((e-26 (vector-ref sc1 27))) (let ((e-27 (vector-ref sc1 28))) (vector 0 arg-1 e-1 e-2 e-3 e-4 e-28 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27)))))))))))))))))))))))))))))))) (vector 1 act-25))))))))) -(define CoreC-45Context-setCovering (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact arg-2 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc3 eta-0)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))) (lambda (eta-0) (CoreC-45Context-addDef arg-0 arg-2 (let ((sc3 e-1)) (let ((e-0 (vector-ref sc3 1))) (let ((e-23 (vector-ref sc3 2))) (let ((e-2 (vector-ref sc3 3))) (let ((e-3 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-22 (vector-ref sc3 6))) (let ((e-21 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (let ((e-11 (vector-ref sc3 12))) (let ((e-12 (vector-ref sc3 13))) (let ((e-13 (vector-ref sc3 14))) (let ((e-14 (vector-ref sc3 15))) (let ((e-15 (vector-ref sc3 16))) (let ((e-16 (vector-ref sc3 17))) (let ((e-17 (vector-ref sc3 18))) (let ((e-18 (vector-ref sc3 19))) (let ((e-19 (vector-ref sc3 20))) (let ((e-20 (vector-ref sc3 21))) (let ((sc4 e-10)) (let ((e-25 (car sc4))) (vector 0 e-0 e-23 e-2 e-3 e-4 e-22 e-21 e-7 e-8 e-9 (cons e-25 arg-3) e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20))))))))))))))))))))))))) eta-0)) ext-0))) (else (CoreC-45Context-undefinedName arg-0 arg-1 arg-2 ext-0)))))))))))))))) -(define CoreC-45Context-setCompiled (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact arg-1 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc3 eta-0)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))) (lambda (eta-0) (CoreC-45Context-addDef arg-0 arg-1 (let ((sc3 e-1)) (let ((e-0 (vector-ref sc3 1))) (let ((e-23 (vector-ref sc3 2))) (let ((e-2 (vector-ref sc3 3))) (let ((e-3 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-22 (vector-ref sc3 6))) (let ((e-21 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (let ((e-11 (vector-ref sc3 12))) (let ((e-12 (vector-ref sc3 13))) (let ((e-13 (vector-ref sc3 14))) (let ((e-14 (vector-ref sc3 15))) (let ((e-15 (vector-ref sc3 16))) (let ((e-16 (vector-ref sc3 17))) (let ((e-17 (vector-ref sc3 18))) (let ((e-19 (vector-ref sc3 20))) (let ((e-20 (vector-ref sc3 21))) (vector 0 e-0 e-23 e-2 e-3 e-4 e-22 e-21 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 (vector 1 arg-2) e-19 e-20)))))))))))))))))))))) eta-0)) ext-0))) (else (vector 1 (vector 0 ))))))))))))))))) -(define CoreC-45Context-setCG (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-28 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (let ((e-26 (vector-ref sc1 27))) (let ((e-27 (vector-ref sc1 28))) (let ((sc2 e-4)) (let ((e-37 (vector-ref sc2 1))) (let ((e-29 (vector-ref sc2 2))) (let ((e-30 (vector-ref sc2 3))) (let ((e-31 (vector-ref sc2 4))) (let ((e-32 (vector-ref sc2 5))) (let ((e-33 (vector-ref sc2 6))) (let ((e-34 (vector-ref sc2 7))) (let ((e-35 (vector-ref sc2 8))) (let ((e-36 (vector-ref sc2 9))) (let ((sc3 e-30)) (let ((e-52 (vector-ref sc3 1))) (let ((e-38 (vector-ref sc3 2))) (let ((e-39 (vector-ref sc3 3))) (let ((e-41 (vector-ref sc3 5))) (let ((e-42 (vector-ref sc3 6))) (let ((e-43 (vector-ref sc3 7))) (let ((e-44 (vector-ref sc3 8))) (let ((e-45 (vector-ref sc3 9))) (let ((e-46 (vector-ref sc3 10))) (let ((e-47 (vector-ref sc3 11))) (let ((e-48 (vector-ref sc3 12))) (let ((e-49 (vector-ref sc3 13))) (let ((e-50 (vector-ref sc3 14))) (let ((e-51 (vector-ref sc3 15))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-37 e-29 (vector 0 e-52 e-38 e-39 arg-1 e-41 e-42 e-43 e-44 e-45 e-46 e-47 e-48 e-49 e-50 e-51) e-31 e-32 e-33 e-34 e-35 e-36) e-28 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27)))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25))))))))) -(define CoreC-45Context-setBuildDir (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-28 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (let ((e-26 (vector-ref sc1 27))) (let ((e-27 (vector-ref sc1 28))) (let ((sc2 e-4)) (let ((e-37 (vector-ref sc2 1))) (let ((e-29 (vector-ref sc2 2))) (let ((e-30 (vector-ref sc2 3))) (let ((e-31 (vector-ref sc2 4))) (let ((e-32 (vector-ref sc2 5))) (let ((e-33 (vector-ref sc2 6))) (let ((e-34 (vector-ref sc2 7))) (let ((e-35 (vector-ref sc2 8))) (let ((e-36 (vector-ref sc2 9))) (let ((sc3 e-37)) (let ((e-47 (vector-ref sc3 1))) (let ((e-38 (vector-ref sc3 2))) (let ((e-40 (vector-ref sc3 4))) (let ((e-41 (vector-ref sc3 5))) (let ((e-42 (vector-ref sc3 6))) (let ((e-43 (vector-ref sc3 7))) (let ((e-44 (vector-ref sc3 8))) (let ((e-45 (vector-ref sc3 9))) (let ((e-46 (vector-ref sc3 10))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 (vector 0 e-47 e-38 arg-1 e-40 e-41 e-42 e-43 e-44 e-45 e-46) e-29 e-30 e-31 e-32 e-33 e-34 e-35 e-36) e-28 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27))))))))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25))))))))) -(define CoreC-45Context-setAutoImplicitLimit (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-28 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (let ((e-26 (vector-ref sc1 27))) (let ((e-27 (vector-ref sc1 28))) (let ((sc2 e-4)) (let ((e-37 (vector-ref sc2 1))) (let ((e-29 (vector-ref sc2 2))) (let ((e-30 (vector-ref sc2 3))) (let ((e-31 (vector-ref sc2 4))) (let ((e-32 (vector-ref sc2 5))) (let ((e-33 (vector-ref sc2 6))) (let ((e-34 (vector-ref sc2 7))) (let ((e-35 (vector-ref sc2 8))) (let ((e-36 (vector-ref sc2 9))) (let ((sc3 e-31)) (let ((e-44 (vector-ref sc3 1))) (let ((e-38 (vector-ref sc3 2))) (let ((e-39 (vector-ref sc3 3))) (let ((e-40 (vector-ref sc3 4))) (let ((e-42 (vector-ref sc3 6))) (let ((e-43 (vector-ref sc3 7))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-37 e-29 e-30 (vector 0 e-44 e-38 e-39 e-40 arg-1 e-42 e-43) e-32 e-33 e-34 e-35 e-36) e-28 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27)))))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25))))))))) -(define CoreC-45Context-setAmbigLimit (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-28 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (let ((e-26 (vector-ref sc1 27))) (let ((e-27 (vector-ref sc1 28))) (let ((sc2 e-4)) (let ((e-37 (vector-ref sc2 1))) (let ((e-29 (vector-ref sc2 2))) (let ((e-30 (vector-ref sc2 3))) (let ((e-31 (vector-ref sc2 4))) (let ((e-32 (vector-ref sc2 5))) (let ((e-33 (vector-ref sc2 6))) (let ((e-34 (vector-ref sc2 7))) (let ((e-35 (vector-ref sc2 8))) (let ((e-36 (vector-ref sc2 9))) (let ((sc3 e-31)) (let ((e-44 (vector-ref sc3 1))) (let ((e-38 (vector-ref sc3 2))) (let ((e-39 (vector-ref sc3 3))) (let ((e-41 (vector-ref sc3 5))) (let ((e-42 (vector-ref sc3 6))) (let ((e-43 (vector-ref sc3 7))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-37 e-29 e-30 (vector 0 e-44 e-38 e-39 arg-1 e-41 e-42 e-43) e-32 e-33 e-34 e-35 e-36) e-28 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27)))))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25))))))))) -(define CoreC-45Context-setAllPublic (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-28 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (let ((e-26 (vector-ref sc1 27))) (let ((e-27 (vector-ref sc1 28))) (let ((sc2 e-0)) (let ((e-39 (vector-ref sc2 1))) (let ((e-29 (vector-ref sc2 2))) (let ((e-30 (vector-ref sc2 3))) (let ((e-31 (vector-ref sc2 4))) (let ((e-32 (vector-ref sc2 5))) (let ((e-33 (vector-ref sc2 6))) (let ((e-34 (vector-ref sc2 7))) (let ((e-35 (vector-ref sc2 8))) (let ((e-37 (vector-ref sc2 10))) (let ((e-38 (vector-ref sc2 11))) (vector 0 (vector 0 e-39 e-29 e-30 e-31 e-32 e-33 e-34 e-35 arg-1 e-37 e-38) e-1 e-2 e-3 e-4 e-28 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27)))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25))))))))) -(define CoreC-45Context-returnDef (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-0)) (cond ((equal? sc0 1) (vector 1 (cons arg-1 arg-2))) (else (CoreC-45Context-case--returnDef-2673 arg-2 arg-1 (let ((sc1 arg-2)) (let ((e-17 (vector-ref sc1 18))) e-17)))))))) -(define CoreC-45Context-resolveName (lambda (arg-0 arg-1 ext-0) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((9) (let ((e-0 (vector-ref sc0 1))) (vector 1 e-0)))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((CoreC-45Context-getPosition arg-1 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (let ((e-2 (car sc2))) (let ((e-3 (cdr sc2))) (let ((act-26 (CoreC-45Context-setCtxt arg-0 e-3 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (vector 1 e-2))))))))))))))))))))))) -(define CoreC-45Context-resetFirstEntry (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-28 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (let ((e-26 (vector-ref sc1 27))) (let ((e-27 (vector-ref sc1 28))) (let ((sc2 e-0)) (let ((e-29 (vector-ref sc2 2))) (let ((e-30 (vector-ref sc2 3))) (let ((e-31 (vector-ref sc2 4))) (let ((e-32 (vector-ref sc2 5))) (let ((e-33 (vector-ref sc2 6))) (let ((e-34 (vector-ref sc2 7))) (let ((e-35 (vector-ref sc2 8))) (let ((e-36 (vector-ref sc2 9))) (let ((e-37 (vector-ref sc2 10))) (let ((e-38 (vector-ref sc2 11))) (vector 0 (vector 0 (let ((sc3 e-5)) (let ((e-67 (vector-ref sc3 1))) (let ((sc4 e-67)) (let ((e-77 (vector-ref sc4 2))) e-77)))) e-29 e-30 e-31 e-32 e-33 e-34 e-35 e-36 e-37 e-38) e-1 e-2 e-3 e-4 e-28 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27)))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25))))))))) -(define CoreC-45Context-refersToRuntime (lambda (arg-0) (PreludeC-45Types-maybe (lambda () (LibrariesC-45DataC-45NameMap-empty)) (lambda () (lambda (eta-0) eta-0)) (let ((sc0 arg-0)) (let ((e-13 (vector-ref sc0 14))) e-13))))) -(define CoreC-45Context-refersTo (lambda (arg-0) (PreludeC-45Types-maybe (lambda () (LibrariesC-45DataC-45NameMap-empty)) (lambda () (lambda (eta-0) eta-0)) (let ((sc0 arg-0)) (let ((e-12 (vector-ref sc0 13))) e-12))))) -(define CoreC-45Context-reducibleInAny (lambda (arg-0 arg-1 arg-2) (PreludeC-45Interfaces-any (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (lambda (u--ns) (CoreC-45Context-reducibleIn u--ns arg-1 arg-2)) arg-0))) -(define CoreC-45Context-reducibleIn (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((1) (CoreC-45NameC-45Namespace-isParentOf e-0 arg-0)) ((0) (CoreC-45NameC-45Namespace-isParentOf e-0 arg-0))(else 0)))) ((5) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((1) (CoreC-45NameC-45Namespace-isParentOf e-0 arg-0)) ((0) (CoreC-45NameC-45Namespace-isParentOf e-0 arg-0))(else 0))))(else 0))))))(else 0))))) -(define CoreC-45Context-recordWarning (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-28 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (let ((e-26 (vector-ref sc1 27))) (let ((e-27 (vector-ref sc1 28))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-28 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 (cons arg-1 e-27)))))))))))))))))))))))))))))))))) (vector 1 act-25))))))))) -(define CoreC-45Context-prettyName (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((6) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (clam-0) (let ((sc1 e-0)) (if (null? sc1) (vector 1 (CoreC-45Name-u--show_Show_Name arg-1)) (let ((e-10 (car sc1))) (let ((act-24 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) (vector 9 e-10) clam-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((CoreC-45Context-prettyName arg-0 e-5) clam-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 ((CoreC-45Context-prettyName arg-0 e-1) clam-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (vector 1 (PreludeC-45TypesC-45String-C-43C-43 e-6 (PreludeC-45TypesC-45String-C-43C-43 "," e-7))))))))))))))))))))))))) ((7) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (PreludeC-45TypesC-45String-C-43C-43 "case block in " e-2))))) ((8) (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (PreludeC-45TypesC-45String-C-43C-43 "with block in " e-4))))) ((0) (let ((e-7 (vector-ref sc0 2))) (CoreC-45Context-prettyName arg-0 e-7)))(else (lambda (eta-0) (vector 1 (CoreC-45Name-u--show_Show_Name arg-1)))))))) +(define CoreC-45Context-toResolvedNames (lambda (arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((e-2 (cdr arg-2))) (((e-2 (let ((e-0 (vector-ref e-5 0))) e-0)) arg-3) ext-0)))))))) +(define CoreC-45Context-toFullNames (lambda (arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((e-1 (car arg-2))) (((e-1 (let ((e-0 (vector-ref e-5 0))) e-0)) arg-3) ext-0)))))))) +(define CoreC-45Context-startTimer (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (CoreC-45Context-getTime ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (let ((act-25 (unbox arg-0))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (set-box! arg-0 (let ((e-0 (vector-ref e-6 0))) (let ((e-1 (vector-ref e-6 1))) (let ((e-2 (vector-ref e-6 2))) (let ((e-3 (vector-ref e-6 3))) (let ((e-4 (vector-ref e-6 4))) (let ((e-30 (vector-ref e-6 5))) (let ((e-29 (vector-ref e-6 6))) (let ((e-7 (vector-ref e-6 7))) (let ((e-8 (vector-ref e-6 8))) (let ((e-9 (vector-ref e-6 9))) (let ((e-10 (vector-ref e-6 10))) (let ((e-11 (vector-ref e-6 11))) (let ((e-12 (vector-ref e-6 12))) (let ((e-13 (vector-ref e-6 13))) (let ((e-14 (vector-ref e-6 14))) (let ((e-15 (vector-ref e-6 15))) (let ((e-16 (vector-ref e-6 16))) (let ((e-17 (vector-ref e-6 17))) (let ((e-18 (vector-ref e-6 18))) (let ((e-19 (vector-ref e-6 19))) (let ((e-20 (vector-ref e-6 20))) (let ((e-21 (vector-ref e-6 21))) (let ((e-22 (vector-ref e-6 22))) (let ((e-23 (vector-ref e-6 23))) (let ((e-24 (vector-ref e-6 24))) (let ((e-25 (vector-ref e-6 25))) (let ((e-26 (vector-ref e-6 26))) (let ((e-28 (vector-ref e-6 28))) (vector e-0 e-1 e-2 e-3 e-4 e-30 e-29 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 (box (cons (+ e-5 (* arg-1 1000000)) arg-2)) e-28)))))))))))))))))))))))))))))))) (vector 1 act-26)))))))))))) +(define CoreC-45Context-sndName (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (PreludeC-45Types-maybe (lambda () '()) (lambda () (lambda (eta-0) (box (let ((e-2 (vector-ref eta-0 2))) e-2)))) (let ((e-4 (vector-ref e-5 4))) (let ((e-34 (vector-ref e-4 4))) e-34)))))))))) +(define CoreC-45Context-setWorkingDir (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-2 (vector-ref eta-0 1))) (vector 0 e-2))) (else (vector 1 0)))) (lambda (eta-0) (let ((act-25 ((SystemC-45Directory-changeDir (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-1)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-1) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-1) (let ((act-17 (arg-528 eta-1))) (let ((act-16 (arg-530 eta-1))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-1) (let ((act-25 (arg-811 eta-1))) ((arg-812 act-25) eta-1))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-1) (let ((act-51 (arg-814 eta-1))) (act-51 eta-1)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) arg-1) eta-0))) (vector 1 act-25))) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 (let ((act-26 ((SystemC-45Directory-currentDir (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-26 (arg-811 eta-0))) ((arg-812 act-26) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-51 (arg-814 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-6881) arg-6881)))) ext-0))) (vector 1 act-26)))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (if (null? e-7) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 "Can't get current directory") ext-0) (let ((e-1 (unbox e-7))) (let ((act-27 (set-box! arg-0 (let ((e-0 (vector-ref e-5 0))) (let ((e-32 (vector-ref e-5 1))) (let ((e-2 (vector-ref e-5 2))) (let ((e-3 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-31 (vector-ref e-5 5))) (let ((e-30 (vector-ref e-5 6))) (let ((e-29 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (let ((e-10 (vector-ref e-5 10))) (let ((e-11 (vector-ref e-5 11))) (let ((e-12 (vector-ref e-5 12))) (let ((e-13 (vector-ref e-5 13))) (let ((e-14 (vector-ref e-5 14))) (let ((e-15 (vector-ref e-5 15))) (let ((e-16 (vector-ref e-5 16))) (let ((e-17 (vector-ref e-5 17))) (let ((e-18 (vector-ref e-5 18))) (let ((e-19 (vector-ref e-5 19))) (let ((e-20 (vector-ref e-5 20))) (let ((e-21 (vector-ref e-5 21))) (let ((e-22 (vector-ref e-5 22))) (let ((e-23 (vector-ref e-5 23))) (let ((e-24 (vector-ref e-5 24))) (let ((e-25 (vector-ref e-5 25))) (let ((e-26 (vector-ref e-5 26))) (let ((e-27 (vector-ref e-5 27))) (let ((e-28 (vector-ref e-5 28))) (let ((e-41 (vector-ref e-4 0))) (let ((e-40 (vector-ref e-4 1))) (let ((e-39 (vector-ref e-4 2))) (let ((e-38 (vector-ref e-4 3))) (let ((e-33 (vector-ref e-4 4))) (let ((e-34 (vector-ref e-4 5))) (let ((e-35 (vector-ref e-4 6))) (let ((e-36 (vector-ref e-4 7))) (let ((e-37 (vector-ref e-4 8))) (let ((e-50 (vector-ref e-41 1))) (let ((e-49 (vector-ref e-41 2))) (let ((e-48 (vector-ref e-41 3))) (let ((e-42 (vector-ref e-41 4))) (let ((e-43 (vector-ref e-41 5))) (let ((e-44 (vector-ref e-41 6))) (let ((e-45 (vector-ref e-41 7))) (let ((e-46 (vector-ref e-41 8))) (let ((e-47 (vector-ref e-41 9))) (vector e-0 e-32 e-2 e-3 (vector (vector e-1 e-50 e-49 e-48 e-42 e-43 e-44 e-45 e-46 e-47) e-40 e-39 e-38 e-33 e-34 e-35 e-36 e-37) e-31 e-30 e-29 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27 e-28))))))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-27))))))))))))))))) +(define CoreC-45Context-setVisible (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (set-box! arg-0 (let ((e-0 (vector-ref e-5 0))) (let ((e-1 (vector-ref e-5 1))) (let ((e-2 (vector-ref e-5 2))) (let ((e-3 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-29 (vector-ref e-5 5))) (let ((e-6 (vector-ref e-5 6))) (let ((e-7 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (let ((e-10 (vector-ref e-5 10))) (let ((e-11 (vector-ref e-5 11))) (let ((e-12 (vector-ref e-5 12))) (let ((e-13 (vector-ref e-5 13))) (let ((e-14 (vector-ref e-5 14))) (let ((e-15 (vector-ref e-5 15))) (let ((e-16 (vector-ref e-5 16))) (let ((e-17 (vector-ref e-5 17))) (let ((e-18 (vector-ref e-5 18))) (let ((e-19 (vector-ref e-5 19))) (let ((e-20 (vector-ref e-5 20))) (let ((e-21 (vector-ref e-5 21))) (let ((e-22 (vector-ref e-5 22))) (let ((e-23 (vector-ref e-5 23))) (let ((e-24 (vector-ref e-5 24))) (let ((e-25 (vector-ref e-5 25))) (let ((e-26 (vector-ref e-5 26))) (let ((e-27 (vector-ref e-5 27))) (let ((e-28 (vector-ref e-5 28))) (let ((e-40 (vector-ref e-0 0))) (let ((e-30 (vector-ref e-0 1))) (let ((e-31 (vector-ref e-0 2))) (let ((e-32 (vector-ref e-0 3))) (let ((e-33 (vector-ref e-0 4))) (let ((e-34 (vector-ref e-0 5))) (let ((e-35 (vector-ref e-0 6))) (let ((e-36 (vector-ref e-0 7))) (let ((e-37 (vector-ref e-0 8))) (let ((e-38 (vector-ref e-0 9))) (let ((e-39 (vector-ref e-0 10))) (vector (vector e-40 e-30 e-31 e-32 e-33 e-34 e-35 (cons arg-1 e-36) e-37 e-38 e-39) e-1 e-2 e-3 e-4 e-29 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27 e-28)))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25)))))))) +(define CoreC-45Context-setUniqueSearch (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact arg-2 (let ((e-0 (vector-ref e-5 0))) e-0)) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (if (null? e-6) (CoreC-45Context-undefinedName arg-0 arg-1 arg-2 ext-0) (let ((e-1 (unbox e-6))) (let ((_-0 (box e-1))) ((CoreC-45Context-case--caseC-32blockC-32inC-32setUniqueSearch-12907 arg-3 arg-2 arg-1 arg-0 e-5 e-1 _-0 (let ((e-17 (vector-ref e-1 17))) e-17)) ext-0)))))))))))))) +(define CoreC-45Context-setUnboundImplicits (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (set-box! arg-0 (let ((e-0 (vector-ref e-5 0))) (let ((e-1 (vector-ref e-5 1))) (let ((e-2 (vector-ref e-5 2))) (let ((e-3 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-29 (vector-ref e-5 5))) (let ((e-6 (vector-ref e-5 6))) (let ((e-7 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (let ((e-10 (vector-ref e-5 10))) (let ((e-11 (vector-ref e-5 11))) (let ((e-12 (vector-ref e-5 12))) (let ((e-13 (vector-ref e-5 13))) (let ((e-14 (vector-ref e-5 14))) (let ((e-15 (vector-ref e-5 15))) (let ((e-16 (vector-ref e-5 16))) (let ((e-17 (vector-ref e-5 17))) (let ((e-18 (vector-ref e-5 18))) (let ((e-19 (vector-ref e-5 19))) (let ((e-20 (vector-ref e-5 20))) (let ((e-21 (vector-ref e-5 21))) (let ((e-22 (vector-ref e-5 22))) (let ((e-23 (vector-ref e-5 23))) (let ((e-24 (vector-ref e-5 24))) (let ((e-25 (vector-ref e-5 25))) (let ((e-26 (vector-ref e-5 26))) (let ((e-27 (vector-ref e-5 27))) (let ((e-28 (vector-ref e-5 28))) (let ((e-38 (vector-ref e-4 0))) (let ((e-30 (vector-ref e-4 1))) (let ((e-31 (vector-ref e-4 2))) (let ((e-32 (vector-ref e-4 3))) (let ((e-33 (vector-ref e-4 4))) (let ((e-34 (vector-ref e-4 5))) (let ((e-35 (vector-ref e-4 6))) (let ((e-36 (vector-ref e-4 7))) (let ((e-37 (vector-ref e-4 8))) (let ((e-45 (vector-ref e-32 0))) (let ((e-40 (vector-ref e-32 2))) (let ((e-41 (vector-ref e-32 3))) (let ((e-42 (vector-ref e-32 4))) (let ((e-43 (vector-ref e-32 5))) (let ((e-44 (vector-ref e-32 6))) (vector e-0 e-1 e-2 e-3 (vector e-38 e-30 e-31 (vector e-45 arg-1 e-40 e-41 e-42 e-43 e-44) e-33 e-34 e-35 e-36 e-37) e-29 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27 e-28)))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25)))))))) +(define CoreC-45Context-setTerminating (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact arg-2 (let ((e-0 (vector-ref e-5 0))) e-0)) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (if (null? e-6) (CoreC-45Context-undefinedName arg-0 arg-1 arg-2 ext-0) (let ((e-1 (unbox e-6))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-2 (vector-ref eta-0 1))) (vector 0 e-2))) (else (vector 1 0)))) (lambda (eta-0) (CoreC-45Context-addDef arg-0 arg-2 (let ((e-0 (vector-ref e-1 0))) (let ((e-23 (vector-ref e-1 1))) (let ((e-2 (vector-ref e-1 2))) (let ((e-3 (vector-ref e-1 3))) (let ((e-4 (vector-ref e-1 4))) (let ((e-22 (vector-ref e-1 5))) (let ((e-21 (vector-ref e-1 6))) (let ((e-7 (vector-ref e-1 7))) (let ((e-8 (vector-ref e-1 8))) (let ((e-9 (vector-ref e-1 9))) (let ((e-10 (vector-ref e-1 10))) (let ((e-11 (vector-ref e-1 11))) (let ((e-12 (vector-ref e-1 12))) (let ((e-13 (vector-ref e-1 13))) (let ((e-14 (vector-ref e-1 14))) (let ((e-15 (vector-ref e-1 15))) (let ((e-16 (vector-ref e-1 16))) (let ((e-17 (vector-ref e-1 17))) (let ((e-18 (vector-ref e-1 18))) (let ((e-19 (vector-ref e-1 19))) (let ((e-20 (vector-ref e-1 20))) (let ((e-24 (cdr e-10))) (vector e-0 e-23 e-2 e-3 e-4 e-22 e-21 e-7 e-8 e-9 (cons arg-3 e-24) e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20))))))))))))))))))))))) eta-0)) ext-0))))))))))))) +(define CoreC-45Context-setSourceDir (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (set-box! arg-0 (let ((e-0 (vector-ref e-5 0))) (let ((e-1 (vector-ref e-5 1))) (let ((e-2 (vector-ref e-5 2))) (let ((e-3 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-29 (vector-ref e-5 5))) (let ((e-6 (vector-ref e-5 6))) (let ((e-7 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (let ((e-10 (vector-ref e-5 10))) (let ((e-11 (vector-ref e-5 11))) (let ((e-12 (vector-ref e-5 12))) (let ((e-13 (vector-ref e-5 13))) (let ((e-14 (vector-ref e-5 14))) (let ((e-15 (vector-ref e-5 15))) (let ((e-16 (vector-ref e-5 16))) (let ((e-17 (vector-ref e-5 17))) (let ((e-18 (vector-ref e-5 18))) (let ((e-19 (vector-ref e-5 19))) (let ((e-20 (vector-ref e-5 20))) (let ((e-21 (vector-ref e-5 21))) (let ((e-22 (vector-ref e-5 22))) (let ((e-23 (vector-ref e-5 23))) (let ((e-24 (vector-ref e-5 24))) (let ((e-25 (vector-ref e-5 25))) (let ((e-26 (vector-ref e-5 26))) (let ((e-27 (vector-ref e-5 27))) (let ((e-28 (vector-ref e-5 28))) (let ((e-38 (vector-ref e-4 0))) (let ((e-30 (vector-ref e-4 1))) (let ((e-31 (vector-ref e-4 2))) (let ((e-32 (vector-ref e-4 3))) (let ((e-33 (vector-ref e-4 4))) (let ((e-34 (vector-ref e-4 5))) (let ((e-35 (vector-ref e-4 6))) (let ((e-36 (vector-ref e-4 7))) (let ((e-37 (vector-ref e-4 8))) (let ((e-48 (vector-ref e-38 0))) (let ((e-40 (vector-ref e-38 2))) (let ((e-41 (vector-ref e-38 3))) (let ((e-42 (vector-ref e-38 4))) (let ((e-43 (vector-ref e-38 5))) (let ((e-44 (vector-ref e-38 6))) (let ((e-45 (vector-ref e-38 7))) (let ((e-46 (vector-ref e-38 8))) (let ((e-47 (vector-ref e-38 9))) (vector e-0 e-1 e-2 e-3 (vector (vector e-48 arg-1 e-40 e-41 e-42 e-43 e-44 e-45 e-46 e-47) e-30 e-31 e-32 e-33 e-34 e-35 e-36 e-37) e-29 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27 e-28))))))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25)))))))) +(define CoreC-45Context-setSizeChange (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact arg-2 (let ((e-0 (vector-ref e-5 0))) e-0)) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (if (null? e-6) (CoreC-45Context-undefinedName arg-0 arg-1 arg-2 ext-0) (let ((e-1 (unbox e-6))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-2 (vector-ref eta-0 1))) (vector 0 e-2))) (else (vector 1 0)))) (lambda (eta-0) (CoreC-45Context-addDef arg-0 arg-2 (let ((e-0 (vector-ref e-1 0))) (let ((e-23 (vector-ref e-1 1))) (let ((e-2 (vector-ref e-1 2))) (let ((e-3 (vector-ref e-1 3))) (let ((e-4 (vector-ref e-1 4))) (let ((e-22 (vector-ref e-1 5))) (let ((e-21 (vector-ref e-1 6))) (let ((e-7 (vector-ref e-1 7))) (let ((e-8 (vector-ref e-1 8))) (let ((e-9 (vector-ref e-1 9))) (let ((e-10 (vector-ref e-1 10))) (let ((e-11 (vector-ref e-1 11))) (let ((e-12 (vector-ref e-1 12))) (let ((e-13 (vector-ref e-1 13))) (let ((e-14 (vector-ref e-1 14))) (let ((e-15 (vector-ref e-1 15))) (let ((e-16 (vector-ref e-1 16))) (let ((e-17 (vector-ref e-1 17))) (let ((e-18 (vector-ref e-1 18))) (let ((e-19 (vector-ref e-1 19))) (vector e-0 e-23 e-2 e-3 e-4 e-22 e-21 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 arg-3))))))))))))))))))))) eta-0)) ext-0))))))))))))) +(define CoreC-45Context-setSession (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (set-box! arg-0 (let ((e-0 (vector-ref e-5 0))) (let ((e-1 (vector-ref e-5 1))) (let ((e-2 (vector-ref e-5 2))) (let ((e-3 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-29 (vector-ref e-5 5))) (let ((e-6 (vector-ref e-5 6))) (let ((e-7 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (let ((e-10 (vector-ref e-5 10))) (let ((e-11 (vector-ref e-5 11))) (let ((e-12 (vector-ref e-5 12))) (let ((e-13 (vector-ref e-5 13))) (let ((e-14 (vector-ref e-5 14))) (let ((e-15 (vector-ref e-5 15))) (let ((e-16 (vector-ref e-5 16))) (let ((e-17 (vector-ref e-5 17))) (let ((e-18 (vector-ref e-5 18))) (let ((e-19 (vector-ref e-5 19))) (let ((e-20 (vector-ref e-5 20))) (let ((e-21 (vector-ref e-5 21))) (let ((e-22 (vector-ref e-5 22))) (let ((e-23 (vector-ref e-5 23))) (let ((e-24 (vector-ref e-5 24))) (let ((e-25 (vector-ref e-5 25))) (let ((e-26 (vector-ref e-5 26))) (let ((e-27 (vector-ref e-5 27))) (let ((e-28 (vector-ref e-5 28))) (let ((e-38 (vector-ref e-4 0))) (let ((e-30 (vector-ref e-4 1))) (let ((e-32 (vector-ref e-4 3))) (let ((e-33 (vector-ref e-4 4))) (let ((e-34 (vector-ref e-4 5))) (let ((e-35 (vector-ref e-4 6))) (let ((e-36 (vector-ref e-4 7))) (let ((e-37 (vector-ref e-4 8))) (vector e-0 e-1 e-2 e-3 (vector e-38 e-30 arg-1 e-32 e-33 e-34 e-35 e-36 e-37) e-29 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27 e-28))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25)))))))) +(define CoreC-45Context-setSearchTimeout (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (set-box! arg-0 (let ((e-0 (vector-ref e-5 0))) (let ((e-1 (vector-ref e-5 1))) (let ((e-2 (vector-ref e-5 2))) (let ((e-3 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-29 (vector-ref e-5 5))) (let ((e-6 (vector-ref e-5 6))) (let ((e-7 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (let ((e-10 (vector-ref e-5 10))) (let ((e-11 (vector-ref e-5 11))) (let ((e-12 (vector-ref e-5 12))) (let ((e-13 (vector-ref e-5 13))) (let ((e-14 (vector-ref e-5 14))) (let ((e-15 (vector-ref e-5 15))) (let ((e-16 (vector-ref e-5 16))) (let ((e-17 (vector-ref e-5 17))) (let ((e-18 (vector-ref e-5 18))) (let ((e-19 (vector-ref e-5 19))) (let ((e-20 (vector-ref e-5 20))) (let ((e-21 (vector-ref e-5 21))) (let ((e-22 (vector-ref e-5 22))) (let ((e-23 (vector-ref e-5 23))) (let ((e-24 (vector-ref e-5 24))) (let ((e-25 (vector-ref e-5 25))) (let ((e-26 (vector-ref e-5 26))) (let ((e-27 (vector-ref e-5 27))) (let ((e-28 (vector-ref e-5 28))) (let ((e-38 (vector-ref e-4 0))) (let ((e-30 (vector-ref e-4 1))) (let ((e-31 (vector-ref e-4 2))) (let ((e-32 (vector-ref e-4 3))) (let ((e-33 (vector-ref e-4 4))) (let ((e-34 (vector-ref e-4 5))) (let ((e-35 (vector-ref e-4 6))) (let ((e-36 (vector-ref e-4 7))) (let ((e-37 (vector-ref e-4 8))) (let ((e-57 (vector-ref e-31 0))) (let ((e-39 (vector-ref e-31 1))) (let ((e-40 (vector-ref e-31 2))) (let ((e-41 (vector-ref e-31 3))) (let ((e-42 (vector-ref e-31 4))) (let ((e-43 (vector-ref e-31 5))) (let ((e-44 (vector-ref e-31 6))) (let ((e-45 (vector-ref e-31 7))) (let ((e-46 (vector-ref e-31 8))) (let ((e-47 (vector-ref e-31 9))) (let ((e-48 (vector-ref e-31 10))) (let ((e-49 (vector-ref e-31 11))) (let ((e-50 (vector-ref e-31 12))) (let ((e-51 (vector-ref e-31 13))) (let ((e-52 (vector-ref e-31 14))) (let ((e-54 (vector-ref e-31 16))) (let ((e-55 (vector-ref e-31 17))) (let ((e-56 (vector-ref e-31 18))) (vector e-0 e-1 e-2 e-3 (vector e-38 e-30 (vector e-57 e-39 e-40 e-41 e-42 e-43 e-44 e-45 e-46 e-47 e-48 e-49 e-50 e-51 e-52 arg-1 e-54 e-55 e-56) e-32 e-33 e-34 e-35 e-36 e-37) e-29 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27 e-28)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25)))))))) +(define CoreC-45Context-setRewrite (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-checkUnambig arg-0 arg-1 arg-3 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Context-checkUnambig arg-0 arg-1 arg-2 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (set-box! arg-0 (let ((e-0 (vector-ref e-5 0))) (let ((e-1 (vector-ref e-5 1))) (let ((e-2 (vector-ref e-5 2))) (let ((e-3 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-31 (vector-ref e-5 5))) (let ((e-30 (vector-ref e-5 6))) (let ((e-29 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (let ((e-10 (vector-ref e-5 10))) (let ((e-11 (vector-ref e-5 11))) (let ((e-12 (vector-ref e-5 12))) (let ((e-13 (vector-ref e-5 13))) (let ((e-14 (vector-ref e-5 14))) (let ((e-15 (vector-ref e-5 15))) (let ((e-16 (vector-ref e-5 16))) (let ((e-17 (vector-ref e-5 17))) (let ((e-18 (vector-ref e-5 18))) (let ((e-19 (vector-ref e-5 19))) (let ((e-20 (vector-ref e-5 20))) (let ((e-21 (vector-ref e-5 21))) (let ((e-22 (vector-ref e-5 22))) (let ((e-23 (vector-ref e-5 23))) (let ((e-24 (vector-ref e-5 24))) (let ((e-25 (vector-ref e-5 25))) (let ((e-26 (vector-ref e-5 26))) (let ((e-27 (vector-ref e-5 27))) (let ((e-28 (vector-ref e-5 28))) (vector e-0 e-1 e-2 e-3 (CoreC-45Options-setRewrite e-7 e-6 e-4) e-31 e-30 e-29 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27 e-28))))))))))))))))))))))))))))))))) (vector 1 act-27)))))))))))))))) +(define CoreC-45Context-setPrefixRecordProjections (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (set-box! arg-0 (let ((e-0 (vector-ref e-5 0))) (let ((e-1 (vector-ref e-5 1))) (let ((e-2 (vector-ref e-5 2))) (let ((e-3 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-29 (vector-ref e-5 5))) (let ((e-6 (vector-ref e-5 6))) (let ((e-7 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (let ((e-10 (vector-ref e-5 10))) (let ((e-11 (vector-ref e-5 11))) (let ((e-12 (vector-ref e-5 12))) (let ((e-13 (vector-ref e-5 13))) (let ((e-14 (vector-ref e-5 14))) (let ((e-15 (vector-ref e-5 15))) (let ((e-16 (vector-ref e-5 16))) (let ((e-17 (vector-ref e-5 17))) (let ((e-18 (vector-ref e-5 18))) (let ((e-19 (vector-ref e-5 19))) (let ((e-20 (vector-ref e-5 20))) (let ((e-21 (vector-ref e-5 21))) (let ((e-22 (vector-ref e-5 22))) (let ((e-23 (vector-ref e-5 23))) (let ((e-24 (vector-ref e-5 24))) (let ((e-25 (vector-ref e-5 25))) (let ((e-26 (vector-ref e-5 26))) (let ((e-27 (vector-ref e-5 27))) (let ((e-28 (vector-ref e-5 28))) (let ((e-38 (vector-ref e-4 0))) (let ((e-30 (vector-ref e-4 1))) (let ((e-31 (vector-ref e-4 2))) (let ((e-32 (vector-ref e-4 3))) (let ((e-33 (vector-ref e-4 4))) (let ((e-34 (vector-ref e-4 5))) (let ((e-35 (vector-ref e-4 6))) (let ((e-36 (vector-ref e-4 7))) (let ((e-37 (vector-ref e-4 8))) (let ((e-45 (vector-ref e-32 0))) (let ((e-39 (vector-ref e-32 1))) (let ((e-40 (vector-ref e-32 2))) (let ((e-41 (vector-ref e-32 3))) (let ((e-42 (vector-ref e-32 4))) (let ((e-43 (vector-ref e-32 5))) (vector e-0 e-1 e-2 e-3 (vector e-38 e-30 e-31 (vector e-45 e-39 e-40 e-41 e-42 e-43 arg-1) e-33 e-34 e-35 e-36 e-37) e-29 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27 e-28)))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25)))))))) +(define CoreC-45Context-setPrefix (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (set-box! arg-0 (let ((e-0 (vector-ref e-5 0))) (let ((e-1 (vector-ref e-5 1))) (let ((e-2 (vector-ref e-5 2))) (let ((e-3 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-29 (vector-ref e-5 5))) (let ((e-6 (vector-ref e-5 6))) (let ((e-7 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (let ((e-10 (vector-ref e-5 10))) (let ((e-11 (vector-ref e-5 11))) (let ((e-12 (vector-ref e-5 12))) (let ((e-13 (vector-ref e-5 13))) (let ((e-14 (vector-ref e-5 14))) (let ((e-15 (vector-ref e-5 15))) (let ((e-16 (vector-ref e-5 16))) (let ((e-17 (vector-ref e-5 17))) (let ((e-18 (vector-ref e-5 18))) (let ((e-19 (vector-ref e-5 19))) (let ((e-20 (vector-ref e-5 20))) (let ((e-21 (vector-ref e-5 21))) (let ((e-22 (vector-ref e-5 22))) (let ((e-23 (vector-ref e-5 23))) (let ((e-24 (vector-ref e-5 24))) (let ((e-25 (vector-ref e-5 25))) (let ((e-26 (vector-ref e-5 26))) (let ((e-27 (vector-ref e-5 27))) (let ((e-28 (vector-ref e-5 28))) (let ((e-38 (vector-ref e-4 0))) (let ((e-30 (vector-ref e-4 1))) (let ((e-31 (vector-ref e-4 2))) (let ((e-32 (vector-ref e-4 3))) (let ((e-33 (vector-ref e-4 4))) (let ((e-34 (vector-ref e-4 5))) (let ((e-35 (vector-ref e-4 6))) (let ((e-36 (vector-ref e-4 7))) (let ((e-37 (vector-ref e-4 8))) (let ((e-48 (vector-ref e-38 0))) (let ((e-39 (vector-ref e-38 1))) (let ((e-40 (vector-ref e-38 2))) (let ((e-41 (vector-ref e-38 3))) (let ((e-42 (vector-ref e-38 4))) (let ((e-44 (vector-ref e-38 6))) (let ((e-45 (vector-ref e-38 7))) (let ((e-46 (vector-ref e-38 8))) (let ((e-47 (vector-ref e-38 9))) (vector e-0 e-1 e-2 e-3 (vector (vector e-48 e-39 e-40 e-41 e-42 arg-1 e-44 e-45 e-46 e-47) e-30 e-31 e-32 e-33 e-34 e-35 e-36 e-37) e-29 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27 e-28))))))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25)))))))) +(define CoreC-45Context-setPair (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-checkUnambig arg-0 arg-1 arg-2 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Context-checkUnambig arg-0 arg-1 arg-3 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (CoreC-45Context-checkUnambig arg-0 arg-1 arg-4 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (let ((act-28 (set-box! arg-0 (let ((e-0 (vector-ref e-5 0))) (let ((e-1 (vector-ref e-5 1))) (let ((e-2 (vector-ref e-5 2))) (let ((e-3 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-32 (vector-ref e-5 5))) (let ((e-31 (vector-ref e-5 6))) (let ((e-30 (vector-ref e-5 7))) (let ((e-29 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (let ((e-10 (vector-ref e-5 10))) (let ((e-11 (vector-ref e-5 11))) (let ((e-12 (vector-ref e-5 12))) (let ((e-13 (vector-ref e-5 13))) (let ((e-14 (vector-ref e-5 14))) (let ((e-15 (vector-ref e-5 15))) (let ((e-16 (vector-ref e-5 16))) (let ((e-17 (vector-ref e-5 17))) (let ((e-18 (vector-ref e-5 18))) (let ((e-19 (vector-ref e-5 19))) (let ((e-20 (vector-ref e-5 20))) (let ((e-21 (vector-ref e-5 21))) (let ((e-22 (vector-ref e-5 22))) (let ((e-23 (vector-ref e-5 23))) (let ((e-24 (vector-ref e-5 24))) (let ((e-25 (vector-ref e-5 25))) (let ((e-26 (vector-ref e-5 26))) (let ((e-27 (vector-ref e-5 27))) (let ((e-28 (vector-ref e-5 28))) (vector e-0 e-1 e-2 e-3 (CoreC-45Options-setPair e-6 e-7 e-8 e-4) e-32 e-31 e-30 e-29 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27 e-28))))))))))))))))))))))))))))))))) (vector 1 act-28)))))))))))))))))))) +(define CoreC-45Context-setPPrint (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (set-box! arg-0 (let ((e-0 (vector-ref e-5 0))) (let ((e-1 (vector-ref e-5 1))) (let ((e-2 (vector-ref e-5 2))) (let ((e-3 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-29 (vector-ref e-5 5))) (let ((e-6 (vector-ref e-5 6))) (let ((e-7 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (let ((e-10 (vector-ref e-5 10))) (let ((e-11 (vector-ref e-5 11))) (let ((e-12 (vector-ref e-5 12))) (let ((e-13 (vector-ref e-5 13))) (let ((e-14 (vector-ref e-5 14))) (let ((e-15 (vector-ref e-5 15))) (let ((e-16 (vector-ref e-5 16))) (let ((e-17 (vector-ref e-5 17))) (let ((e-18 (vector-ref e-5 18))) (let ((e-19 (vector-ref e-5 19))) (let ((e-20 (vector-ref e-5 20))) (let ((e-21 (vector-ref e-5 21))) (let ((e-22 (vector-ref e-5 22))) (let ((e-23 (vector-ref e-5 23))) (let ((e-24 (vector-ref e-5 24))) (let ((e-25 (vector-ref e-5 25))) (let ((e-26 (vector-ref e-5 26))) (let ((e-27 (vector-ref e-5 27))) (let ((e-28 (vector-ref e-5 28))) (let ((e-38 (vector-ref e-4 0))) (let ((e-31 (vector-ref e-4 2))) (let ((e-32 (vector-ref e-4 3))) (let ((e-33 (vector-ref e-4 4))) (let ((e-34 (vector-ref e-4 5))) (let ((e-35 (vector-ref e-4 6))) (let ((e-36 (vector-ref e-4 7))) (let ((e-37 (vector-ref e-4 8))) (vector e-0 e-1 e-2 e-3 (vector e-38 arg-1 e-31 e-32 e-33 e-34 e-35 e-36 e-37) e-29 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27 e-28))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25)))))))) +(define CoreC-45Context-setOutputDir (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (set-box! arg-0 (let ((e-0 (vector-ref e-5 0))) (let ((e-1 (vector-ref e-5 1))) (let ((e-2 (vector-ref e-5 2))) (let ((e-3 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-29 (vector-ref e-5 5))) (let ((e-6 (vector-ref e-5 6))) (let ((e-7 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (let ((e-10 (vector-ref e-5 10))) (let ((e-11 (vector-ref e-5 11))) (let ((e-12 (vector-ref e-5 12))) (let ((e-13 (vector-ref e-5 13))) (let ((e-14 (vector-ref e-5 14))) (let ((e-15 (vector-ref e-5 15))) (let ((e-16 (vector-ref e-5 16))) (let ((e-17 (vector-ref e-5 17))) (let ((e-18 (vector-ref e-5 18))) (let ((e-19 (vector-ref e-5 19))) (let ((e-20 (vector-ref e-5 20))) (let ((e-21 (vector-ref e-5 21))) (let ((e-22 (vector-ref e-5 22))) (let ((e-23 (vector-ref e-5 23))) (let ((e-24 (vector-ref e-5 24))) (let ((e-25 (vector-ref e-5 25))) (let ((e-26 (vector-ref e-5 26))) (let ((e-27 (vector-ref e-5 27))) (let ((e-28 (vector-ref e-5 28))) (let ((e-38 (vector-ref e-4 0))) (let ((e-30 (vector-ref e-4 1))) (let ((e-31 (vector-ref e-4 2))) (let ((e-32 (vector-ref e-4 3))) (let ((e-33 (vector-ref e-4 4))) (let ((e-34 (vector-ref e-4 5))) (let ((e-35 (vector-ref e-4 6))) (let ((e-36 (vector-ref e-4 7))) (let ((e-37 (vector-ref e-4 8))) (let ((e-48 (vector-ref e-38 0))) (let ((e-39 (vector-ref e-38 1))) (let ((e-40 (vector-ref e-38 2))) (let ((e-41 (vector-ref e-38 3))) (let ((e-43 (vector-ref e-38 5))) (let ((e-44 (vector-ref e-38 6))) (let ((e-45 (vector-ref e-38 7))) (let ((e-46 (vector-ref e-38 8))) (let ((e-47 (vector-ref e-38 9))) (vector e-0 e-1 e-2 e-3 (vector (vector e-48 e-39 e-40 e-41 arg-1 e-43 e-44 e-45 e-46 e-47) e-30 e-31 e-32 e-33 e-34 e-35 e-36 e-37) e-29 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27 e-28))))))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25)))))))) +(define CoreC-45Context-setOpenHints (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (set-box! arg-0 (let ((e-0 (vector-ref e-5 0))) (let ((e-1 (vector-ref e-5 1))) (let ((e-2 (vector-ref e-5 2))) (let ((e-3 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-29 (vector-ref e-5 5))) (let ((e-6 (vector-ref e-5 6))) (let ((e-7 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-10 (vector-ref e-5 10))) (let ((e-11 (vector-ref e-5 11))) (let ((e-12 (vector-ref e-5 12))) (let ((e-13 (vector-ref e-5 13))) (let ((e-14 (vector-ref e-5 14))) (let ((e-15 (vector-ref e-5 15))) (let ((e-16 (vector-ref e-5 16))) (let ((e-17 (vector-ref e-5 17))) (let ((e-18 (vector-ref e-5 18))) (let ((e-19 (vector-ref e-5 19))) (let ((e-20 (vector-ref e-5 20))) (let ((e-21 (vector-ref e-5 21))) (let ((e-22 (vector-ref e-5 22))) (let ((e-23 (vector-ref e-5 23))) (let ((e-24 (vector-ref e-5 24))) (let ((e-25 (vector-ref e-5 25))) (let ((e-26 (vector-ref e-5 26))) (let ((e-27 (vector-ref e-5 27))) (let ((e-28 (vector-ref e-5 28))) (vector e-0 e-1 e-2 e-3 e-4 e-29 e-6 e-7 e-8 arg-1 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27 e-28)))))))))))))))))))))))))))))))) (vector 1 act-25)))))))) +(define CoreC-45Context-setNestedNS (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (set-box! arg-0 (let ((e-0 (vector-ref e-5 0))) (let ((e-1 (vector-ref e-5 1))) (let ((e-2 (vector-ref e-5 2))) (let ((e-4 (vector-ref e-5 4))) (let ((e-29 (vector-ref e-5 5))) (let ((e-6 (vector-ref e-5 6))) (let ((e-7 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (let ((e-10 (vector-ref e-5 10))) (let ((e-11 (vector-ref e-5 11))) (let ((e-12 (vector-ref e-5 12))) (let ((e-13 (vector-ref e-5 13))) (let ((e-14 (vector-ref e-5 14))) (let ((e-15 (vector-ref e-5 15))) (let ((e-16 (vector-ref e-5 16))) (let ((e-17 (vector-ref e-5 17))) (let ((e-18 (vector-ref e-5 18))) (let ((e-19 (vector-ref e-5 19))) (let ((e-20 (vector-ref e-5 20))) (let ((e-21 (vector-ref e-5 21))) (let ((e-22 (vector-ref e-5 22))) (let ((e-23 (vector-ref e-5 23))) (let ((e-24 (vector-ref e-5 24))) (let ((e-25 (vector-ref e-5 25))) (let ((e-26 (vector-ref e-5 26))) (let ((e-27 (vector-ref e-5 27))) (let ((e-28 (vector-ref e-5 28))) (vector e-0 e-1 e-2 arg-1 e-4 e-29 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27 e-28)))))))))))))))))))))))))))))))) (vector 1 act-25)))))))) +(define CoreC-45Context-setNamedCompiled (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact arg-1 (let ((e-0 (vector-ref e-5 0))) e-0)) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (if (null? e-6) (vector 1 0) (let ((e-1 (unbox e-6))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-2 (vector-ref eta-0 1))) (vector 0 e-2))) (else (vector 1 0)))) (lambda (eta-0) (CoreC-45Context-addDef arg-0 arg-1 (let ((e-0 (vector-ref e-1 0))) (let ((e-23 (vector-ref e-1 1))) (let ((e-2 (vector-ref e-1 2))) (let ((e-3 (vector-ref e-1 3))) (let ((e-4 (vector-ref e-1 4))) (let ((e-22 (vector-ref e-1 5))) (let ((e-21 (vector-ref e-1 6))) (let ((e-7 (vector-ref e-1 7))) (let ((e-8 (vector-ref e-1 8))) (let ((e-9 (vector-ref e-1 9))) (let ((e-10 (vector-ref e-1 10))) (let ((e-11 (vector-ref e-1 11))) (let ((e-12 (vector-ref e-1 12))) (let ((e-13 (vector-ref e-1 13))) (let ((e-14 (vector-ref e-1 14))) (let ((e-15 (vector-ref e-1 15))) (let ((e-16 (vector-ref e-1 16))) (let ((e-17 (vector-ref e-1 17))) (let ((e-18 (vector-ref e-1 18))) (let ((e-20 (vector-ref e-1 20))) (vector e-0 e-23 e-2 e-3 e-4 e-22 e-21 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 (box arg-2) e-20))))))))))))))))))))) eta-0)) ext-0))))))))))))) +(define CoreC-45Context-setNameFlag (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtName arg-2 (let ((e-0 (vector-ref e-5 0))) e-0)) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (if (null? e-6) (CoreC-45Context-undefinedName arg-0 arg-1 arg-2 ext-0) (let ((e-1 (car e-6))) (let ((e-2 (cdr e-6))) (if (null? e-1) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 17 arg-1 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-fst eta-0)) e-6)) ext-0) (let ((e-7 (cdr e-1))) (if (null? e-7) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 17 arg-1 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-fst eta-0)) e-6)) ext-0) (let ((e-10 (car e-7))) (let ((e-11 (cdr e-7))) (if (null? e-2) (let ((u--flagsC-39 (cons arg-3 (DataC-45List-filter (lambda (arg-4) (CoreC-45Context-u--C-47C-61_Eq_DefFlag arg-4 arg-3)) (let ((e-21 (vector-ref e-11 11))) e-21))))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-3 (vector-ref eta-0 1))) (vector 0 e-3))) (else (vector 1 0)))) (lambda (eta-0) (CoreC-45Context-addDef arg-0 (vector 9 e-10) (let ((e-0 (vector-ref e-11 0))) (let ((e-28 (vector-ref e-11 1))) (let ((e-27 (vector-ref e-11 2))) (let ((e-3 (vector-ref e-11 3))) (let ((e-4 (vector-ref e-11 4))) (let ((e-26 (vector-ref e-11 5))) (let ((e-25 (vector-ref e-11 6))) (let ((e-24 (vector-ref e-11 7))) (let ((e-23 (vector-ref e-11 8))) (let ((e-9 (vector-ref e-11 9))) (let ((e-22 (vector-ref e-11 10))) (let ((e-12 (vector-ref e-11 12))) (let ((e-13 (vector-ref e-11 13))) (let ((e-14 (vector-ref e-11 14))) (let ((e-15 (vector-ref e-11 15))) (let ((e-16 (vector-ref e-11 16))) (let ((e-17 (vector-ref e-11 17))) (let ((e-18 (vector-ref e-11 18))) (let ((e-19 (vector-ref e-11 19))) (let ((e-20 (vector-ref e-11 20))) (vector e-0 e-28 e-27 e-3 e-4 e-26 e-25 e-24 e-23 e-9 e-22 u--flagsC-39 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20))))))))))))))))))))) eta-0)) ext-0)) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 17 arg-1 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-fst eta-0)) e-6)) ext-0)))))))))))))))))))) +(define CoreC-45Context-setNS (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (set-box! arg-0 (let ((e-0 (vector-ref e-5 0))) (let ((e-1 (vector-ref e-5 1))) (let ((e-3 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-29 (vector-ref e-5 5))) (let ((e-6 (vector-ref e-5 6))) (let ((e-7 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (let ((e-10 (vector-ref e-5 10))) (let ((e-11 (vector-ref e-5 11))) (let ((e-12 (vector-ref e-5 12))) (let ((e-13 (vector-ref e-5 13))) (let ((e-14 (vector-ref e-5 14))) (let ((e-15 (vector-ref e-5 15))) (let ((e-16 (vector-ref e-5 16))) (let ((e-17 (vector-ref e-5 17))) (let ((e-18 (vector-ref e-5 18))) (let ((e-19 (vector-ref e-5 19))) (let ((e-20 (vector-ref e-5 20))) (let ((e-21 (vector-ref e-5 21))) (let ((e-22 (vector-ref e-5 22))) (let ((e-23 (vector-ref e-5 23))) (let ((e-24 (vector-ref e-5 24))) (let ((e-25 (vector-ref e-5 25))) (let ((e-26 (vector-ref e-5 26))) (let ((e-27 (vector-ref e-5 27))) (let ((e-28 (vector-ref e-5 28))) (vector e-0 e-1 arg-1 e-3 e-4 e-29 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27 e-28)))))))))))))))))))))))))))))))) (vector 1 act-25)))))))) +(define CoreC-45Context-setNFThreshold (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (set-box! arg-0 (let ((e-0 (vector-ref e-5 0))) (let ((e-1 (vector-ref e-5 1))) (let ((e-2 (vector-ref e-5 2))) (let ((e-3 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-29 (vector-ref e-5 5))) (let ((e-6 (vector-ref e-5 6))) (let ((e-7 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (let ((e-10 (vector-ref e-5 10))) (let ((e-11 (vector-ref e-5 11))) (let ((e-12 (vector-ref e-5 12))) (let ((e-13 (vector-ref e-5 13))) (let ((e-14 (vector-ref e-5 14))) (let ((e-15 (vector-ref e-5 15))) (let ((e-16 (vector-ref e-5 16))) (let ((e-17 (vector-ref e-5 17))) (let ((e-18 (vector-ref e-5 18))) (let ((e-19 (vector-ref e-5 19))) (let ((e-20 (vector-ref e-5 20))) (let ((e-21 (vector-ref e-5 21))) (let ((e-22 (vector-ref e-5 22))) (let ((e-23 (vector-ref e-5 23))) (let ((e-24 (vector-ref e-5 24))) (let ((e-25 (vector-ref e-5 25))) (let ((e-26 (vector-ref e-5 26))) (let ((e-27 (vector-ref e-5 27))) (let ((e-28 (vector-ref e-5 28))) (let ((e-38 (vector-ref e-4 0))) (let ((e-30 (vector-ref e-4 1))) (let ((e-31 (vector-ref e-4 2))) (let ((e-32 (vector-ref e-4 3))) (let ((e-33 (vector-ref e-4 4))) (let ((e-34 (vector-ref e-4 5))) (let ((e-35 (vector-ref e-4 6))) (let ((e-36 (vector-ref e-4 7))) (let ((e-37 (vector-ref e-4 8))) (let ((e-45 (vector-ref e-32 0))) (let ((e-39 (vector-ref e-32 1))) (let ((e-40 (vector-ref e-32 2))) (let ((e-41 (vector-ref e-32 3))) (let ((e-42 (vector-ref e-32 4))) (let ((e-44 (vector-ref e-32 6))) (vector e-0 e-1 e-2 e-3 (vector e-38 e-30 e-31 (vector e-45 e-39 e-40 e-41 e-42 arg-1 e-44) e-33 e-34 e-35 e-36 e-37) e-29 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27 e-28)))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25)))))))) +(define CoreC-45Context-setMutWith (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact arg-2 (let ((e-0 (vector-ref e-5 0))) e-0)) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (if (null? e-6) (CoreC-45Context-undefinedName arg-0 arg-1 arg-2 ext-0) (let ((e-1 (unbox e-6))) (let ((e-17 (vector-ref e-1 17))) (case (vector-ref e-17 0) ((6) (let ((e-31 (vector-ref e-17 1))) (let ((e-30 (vector-ref e-17 2))) (let ((e-29 (vector-ref e-17 3))) (let ((e-28 (vector-ref e-17 4))) (let ((e-27 (vector-ref e-17 5))) (let ((e-25 (vector-ref e-17 7))) (let ((e-24 (vector-ref e-17 8))) (CoreC-45Context-updateDef arg-0 arg-2 (lambda (eta-0) (box (vector 6 e-31 e-30 e-29 e-28 e-27 arg-3 e-25 e-24))) ext-0)))))))))(else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-1 (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name (let ((e-43 (vector-ref e-1 1))) e-43)) " is not a type constructor [setMutWith]")) ext-0)))))))))))))))) +(define CoreC-45Context-setLogTimings (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (set-box! arg-0 (let ((e-0 (vector-ref e-5 0))) (let ((e-1 (vector-ref e-5 1))) (let ((e-2 (vector-ref e-5 2))) (let ((e-3 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-29 (vector-ref e-5 5))) (let ((e-6 (vector-ref e-5 6))) (let ((e-7 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (let ((e-10 (vector-ref e-5 10))) (let ((e-11 (vector-ref e-5 11))) (let ((e-12 (vector-ref e-5 12))) (let ((e-13 (vector-ref e-5 13))) (let ((e-14 (vector-ref e-5 14))) (let ((e-15 (vector-ref e-5 15))) (let ((e-16 (vector-ref e-5 16))) (let ((e-17 (vector-ref e-5 17))) (let ((e-18 (vector-ref e-5 18))) (let ((e-19 (vector-ref e-5 19))) (let ((e-20 (vector-ref e-5 20))) (let ((e-21 (vector-ref e-5 21))) (let ((e-22 (vector-ref e-5 22))) (let ((e-23 (vector-ref e-5 23))) (let ((e-24 (vector-ref e-5 24))) (let ((e-25 (vector-ref e-5 25))) (let ((e-26 (vector-ref e-5 26))) (let ((e-27 (vector-ref e-5 27))) (let ((e-28 (vector-ref e-5 28))) (let ((e-38 (vector-ref e-4 0))) (let ((e-30 (vector-ref e-4 1))) (let ((e-31 (vector-ref e-4 2))) (let ((e-32 (vector-ref e-4 3))) (let ((e-33 (vector-ref e-4 4))) (let ((e-34 (vector-ref e-4 5))) (let ((e-35 (vector-ref e-4 6))) (let ((e-36 (vector-ref e-4 7))) (let ((e-37 (vector-ref e-4 8))) (let ((e-57 (vector-ref e-31 0))) (let ((e-39 (vector-ref e-31 1))) (let ((e-40 (vector-ref e-31 2))) (let ((e-41 (vector-ref e-31 3))) (let ((e-42 (vector-ref e-31 4))) (let ((e-43 (vector-ref e-31 5))) (let ((e-44 (vector-ref e-31 6))) (let ((e-46 (vector-ref e-31 8))) (let ((e-47 (vector-ref e-31 9))) (let ((e-48 (vector-ref e-31 10))) (let ((e-49 (vector-ref e-31 11))) (let ((e-50 (vector-ref e-31 12))) (let ((e-51 (vector-ref e-31 13))) (let ((e-52 (vector-ref e-31 14))) (let ((e-53 (vector-ref e-31 15))) (let ((e-54 (vector-ref e-31 16))) (let ((e-55 (vector-ref e-31 17))) (let ((e-56 (vector-ref e-31 18))) (vector e-0 e-1 e-2 e-3 (vector e-38 e-30 (vector e-57 e-39 e-40 e-41 e-42 e-43 e-44 arg-1 e-46 e-47 e-48 e-49 e-50 e-51 e-52 e-53 e-54 e-55 e-56) e-32 e-33 e-34 e-35 e-36 e-37) e-29 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27 e-28)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25)))))))) +(define CoreC-45Context-setLinearCheck (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact (vector 9 arg-1) (let ((e-0 (vector-ref e-5 0))) e-0)) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (if (null? e-6) (vector 1 0) (let ((e-1 (unbox e-6))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-2 (vector-ref eta-0 1))) (vector 0 e-2))) (else (vector 1 0)))) (lambda (eta-0) (CoreC-45Context-addDef arg-0 (vector 9 arg-1) (let ((e-0 (vector-ref e-1 0))) (let ((e-23 (vector-ref e-1 1))) (let ((e-2 (vector-ref e-1 2))) (let ((e-3 (vector-ref e-1 3))) (let ((e-4 (vector-ref e-1 4))) (let ((e-22 (vector-ref e-1 5))) (let ((e-21 (vector-ref e-1 6))) (let ((e-7 (vector-ref e-1 7))) (let ((e-8 (vector-ref e-1 8))) (let ((e-9 (vector-ref e-1 9))) (let ((e-10 (vector-ref e-1 10))) (let ((e-11 (vector-ref e-1 11))) (let ((e-12 (vector-ref e-1 12))) (let ((e-13 (vector-ref e-1 13))) (let ((e-14 (vector-ref e-1 14))) (let ((e-15 (vector-ref e-1 15))) (let ((e-17 (vector-ref e-1 17))) (let ((e-18 (vector-ref e-1 18))) (let ((e-19 (vector-ref e-1 19))) (let ((e-20 (vector-ref e-1 20))) (vector e-0 e-23 e-2 e-3 e-4 e-22 e-21 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 arg-2 e-17 e-18 e-19 e-20))))))))))))))))))))) eta-0)) ext-0))))))))))))) +(define CoreC-45Context-setFromString (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (set-box! arg-0 (let ((e-0 (vector-ref e-5 0))) (let ((e-1 (vector-ref e-5 1))) (let ((e-2 (vector-ref e-5 2))) (let ((e-3 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-29 (vector-ref e-5 5))) (let ((e-6 (vector-ref e-5 6))) (let ((e-7 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (let ((e-10 (vector-ref e-5 10))) (let ((e-11 (vector-ref e-5 11))) (let ((e-12 (vector-ref e-5 12))) (let ((e-13 (vector-ref e-5 13))) (let ((e-14 (vector-ref e-5 14))) (let ((e-15 (vector-ref e-5 15))) (let ((e-16 (vector-ref e-5 16))) (let ((e-17 (vector-ref e-5 17))) (let ((e-18 (vector-ref e-5 18))) (let ((e-19 (vector-ref e-5 19))) (let ((e-20 (vector-ref e-5 20))) (let ((e-21 (vector-ref e-5 21))) (let ((e-22 (vector-ref e-5 22))) (let ((e-23 (vector-ref e-5 23))) (let ((e-24 (vector-ref e-5 24))) (let ((e-25 (vector-ref e-5 25))) (let ((e-26 (vector-ref e-5 26))) (let ((e-27 (vector-ref e-5 27))) (let ((e-28 (vector-ref e-5 28))) (vector e-0 e-1 e-2 e-3 (CoreC-45Options-setFromString arg-1 e-4) e-29 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27 e-28))))))))))))))))))))))))))))))))) (vector 1 act-25)))))))) +(define CoreC-45Context-setFromInteger (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (set-box! arg-0 (let ((e-0 (vector-ref e-5 0))) (let ((e-1 (vector-ref e-5 1))) (let ((e-2 (vector-ref e-5 2))) (let ((e-3 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-29 (vector-ref e-5 5))) (let ((e-6 (vector-ref e-5 6))) (let ((e-7 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (let ((e-10 (vector-ref e-5 10))) (let ((e-11 (vector-ref e-5 11))) (let ((e-12 (vector-ref e-5 12))) (let ((e-13 (vector-ref e-5 13))) (let ((e-14 (vector-ref e-5 14))) (let ((e-15 (vector-ref e-5 15))) (let ((e-16 (vector-ref e-5 16))) (let ((e-17 (vector-ref e-5 17))) (let ((e-18 (vector-ref e-5 18))) (let ((e-19 (vector-ref e-5 19))) (let ((e-20 (vector-ref e-5 20))) (let ((e-21 (vector-ref e-5 21))) (let ((e-22 (vector-ref e-5 22))) (let ((e-23 (vector-ref e-5 23))) (let ((e-24 (vector-ref e-5 24))) (let ((e-25 (vector-ref e-5 25))) (let ((e-26 (vector-ref e-5 26))) (let ((e-27 (vector-ref e-5 27))) (let ((e-28 (vector-ref e-5 28))) (vector e-0 e-1 e-2 e-3 (CoreC-45Options-setFromInteger arg-1 e-4) e-29 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27 e-28))))))))))))))))))))))))))))))))) (vector 1 act-25)))))))) +(define CoreC-45Context-setFromDouble (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (set-box! arg-0 (let ((e-0 (vector-ref e-5 0))) (let ((e-1 (vector-ref e-5 1))) (let ((e-2 (vector-ref e-5 2))) (let ((e-3 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-29 (vector-ref e-5 5))) (let ((e-6 (vector-ref e-5 6))) (let ((e-7 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (let ((e-10 (vector-ref e-5 10))) (let ((e-11 (vector-ref e-5 11))) (let ((e-12 (vector-ref e-5 12))) (let ((e-13 (vector-ref e-5 13))) (let ((e-14 (vector-ref e-5 14))) (let ((e-15 (vector-ref e-5 15))) (let ((e-16 (vector-ref e-5 16))) (let ((e-17 (vector-ref e-5 17))) (let ((e-18 (vector-ref e-5 18))) (let ((e-19 (vector-ref e-5 19))) (let ((e-20 (vector-ref e-5 20))) (let ((e-21 (vector-ref e-5 21))) (let ((e-22 (vector-ref e-5 22))) (let ((e-23 (vector-ref e-5 23))) (let ((e-24 (vector-ref e-5 24))) (let ((e-25 (vector-ref e-5 25))) (let ((e-26 (vector-ref e-5 26))) (let ((e-27 (vector-ref e-5 27))) (let ((e-28 (vector-ref e-5 28))) (vector e-0 e-1 e-2 e-3 (CoreC-45Options-setFromDouble arg-1 e-4) e-29 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27 e-28))))))))))))))))))))))))))))))))) (vector 1 act-25)))))))) +(define CoreC-45Context-setFromChar (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (set-box! arg-0 (let ((e-0 (vector-ref e-5 0))) (let ((e-1 (vector-ref e-5 1))) (let ((e-2 (vector-ref e-5 2))) (let ((e-3 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-29 (vector-ref e-5 5))) (let ((e-6 (vector-ref e-5 6))) (let ((e-7 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (let ((e-10 (vector-ref e-5 10))) (let ((e-11 (vector-ref e-5 11))) (let ((e-12 (vector-ref e-5 12))) (let ((e-13 (vector-ref e-5 13))) (let ((e-14 (vector-ref e-5 14))) (let ((e-15 (vector-ref e-5 15))) (let ((e-16 (vector-ref e-5 16))) (let ((e-17 (vector-ref e-5 17))) (let ((e-18 (vector-ref e-5 18))) (let ((e-19 (vector-ref e-5 19))) (let ((e-20 (vector-ref e-5 20))) (let ((e-21 (vector-ref e-5 21))) (let ((e-22 (vector-ref e-5 22))) (let ((e-23 (vector-ref e-5 23))) (let ((e-24 (vector-ref e-5 24))) (let ((e-25 (vector-ref e-5 25))) (let ((e-26 (vector-ref e-5 26))) (let ((e-27 (vector-ref e-5 27))) (let ((e-28 (vector-ref e-5 28))) (vector e-0 e-1 e-2 e-3 (CoreC-45Options-setFromChar arg-1 e-4) e-29 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27 e-28))))))))))))))))))))))))))))))))) (vector 1 act-25)))))))) +(define CoreC-45Context-setFlag (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact arg-2 (let ((e-0 (vector-ref e-5 0))) e-0)) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (if (null? e-6) (CoreC-45Context-undefinedName arg-0 arg-1 arg-2 ext-0) (let ((e-1 (unbox e-6))) (let ((u--flagsC-39 (cons arg-3 (DataC-45List-filter (lambda (arg-4) (CoreC-45Context-u--C-47C-61_Eq_DefFlag arg-4 arg-3)) (let ((e-11 (vector-ref e-1 11))) e-11))))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-2 (vector-ref eta-0 1))) (vector 0 e-2))) (else (vector 1 0)))) (lambda (eta-0) (CoreC-45Context-addDef arg-0 arg-2 (let ((e-0 (vector-ref e-1 0))) (let ((e-23 (vector-ref e-1 1))) (let ((e-2 (vector-ref e-1 2))) (let ((e-3 (vector-ref e-1 3))) (let ((e-4 (vector-ref e-1 4))) (let ((e-22 (vector-ref e-1 5))) (let ((e-21 (vector-ref e-1 6))) (let ((e-7 (vector-ref e-1 7))) (let ((e-8 (vector-ref e-1 8))) (let ((e-9 (vector-ref e-1 9))) (let ((e-10 (vector-ref e-1 10))) (let ((e-12 (vector-ref e-1 12))) (let ((e-13 (vector-ref e-1 13))) (let ((e-14 (vector-ref e-1 14))) (let ((e-15 (vector-ref e-1 15))) (let ((e-16 (vector-ref e-1 16))) (let ((e-17 (vector-ref e-1 17))) (let ((e-18 (vector-ref e-1 18))) (let ((e-19 (vector-ref e-1 19))) (let ((e-20 (vector-ref e-1 20))) (vector e-0 e-23 e-2 e-3 e-4 e-22 e-21 e-7 e-8 e-9 e-10 u--flagsC-39 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20))))))))))))))))))))) eta-0)) ext-0)))))))))))))) +(define CoreC-45Context-setExternal (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact arg-2 (let ((e-0 (vector-ref e-5 0))) e-0)) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (if (null? e-6) (CoreC-45Context-undefinedName arg-0 arg-1 arg-2 ext-0) (let ((e-1 (unbox e-6))) (let ((_-0 (box e-1))) ((CoreC-45Context-case--caseC-32blockC-32inC-32setExternal-13043 arg-3 arg-2 arg-1 arg-0 e-5 e-1 _-0 (let ((e-17 (vector-ref e-1 17))) e-17)) ext-0)))))))))))))) +(define CoreC-45Context-setExtension (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (set-box! arg-0 (let ((e-0 (vector-ref e-5 0))) (let ((e-1 (vector-ref e-5 1))) (let ((e-2 (vector-ref e-5 2))) (let ((e-3 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-29 (vector-ref e-5 5))) (let ((e-6 (vector-ref e-5 6))) (let ((e-7 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (let ((e-10 (vector-ref e-5 10))) (let ((e-11 (vector-ref e-5 11))) (let ((e-12 (vector-ref e-5 12))) (let ((e-13 (vector-ref e-5 13))) (let ((e-14 (vector-ref e-5 14))) (let ((e-15 (vector-ref e-5 15))) (let ((e-16 (vector-ref e-5 16))) (let ((e-17 (vector-ref e-5 17))) (let ((e-18 (vector-ref e-5 18))) (let ((e-19 (vector-ref e-5 19))) (let ((e-20 (vector-ref e-5 20))) (let ((e-21 (vector-ref e-5 21))) (let ((e-22 (vector-ref e-5 22))) (let ((e-23 (vector-ref e-5 23))) (let ((e-24 (vector-ref e-5 24))) (let ((e-25 (vector-ref e-5 25))) (let ((e-26 (vector-ref e-5 26))) (let ((e-27 (vector-ref e-5 27))) (let ((e-28 (vector-ref e-5 28))) (vector e-0 e-1 e-2 e-3 (CoreC-45Options-setExtension arg-1 e-4) e-29 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27 e-28))))))))))))))))))))))))))))))))) (vector 1 act-25)))))))) +(define CoreC-45Context-setDetermining (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact arg-2 (let ((e-0 (vector-ref e-5 0))) e-0)) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (if (null? e-6) (CoreC-45Context-undefinedName arg-0 arg-1 arg-2 ext-0) (let ((e-1 (unbox e-6))) (let ((e-17 (vector-ref e-1 17))) (case (vector-ref e-17 0) ((6) (let ((e-31 (vector-ref e-17 1))) (let ((e-30 (vector-ref e-17 2))) (let ((e-29 (vector-ref e-17 3))) (let ((e-27 (vector-ref e-17 5))) (let ((e-26 (vector-ref e-17 6))) (let ((e-25 (vector-ref e-17 7))) (let ((e-24 (vector-ref e-17 8))) (let ((act-26 ((CoreC-45Context-n--19499-12518-u--getPos arg-3 arg-2 arg-1 arg-0 0 arg-3 (let ((e-50 (vector-ref e-1 2))) e-50)) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-32 (vector-ref act-26 1))) (vector 0 e-32))) (else (let ((e-32 (vector-ref act-26 1))) (CoreC-45Context-updateDef arg-0 arg-2 (lambda (eta-0) (box (vector 6 e-31 e-30 e-29 e-32 e-27 e-26 e-25 e-24))) ext-0)))))))))))))(else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-1 (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name (let ((e-43 (vector-ref e-1 1))) e-43)) " is not a type constructor [setDetermining]")) ext-0)))))))))))))))) +(define CoreC-45Context-setDetags (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact arg-2 (let ((e-0 (vector-ref e-5 0))) e-0)) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (if (null? e-6) (CoreC-45Context-undefinedName arg-0 arg-1 arg-2 ext-0) (let ((e-1 (unbox e-6))) (let ((e-17 (vector-ref e-1 17))) (case (vector-ref e-17 0) ((6) (let ((e-31 (vector-ref e-17 1))) (let ((e-30 (vector-ref e-17 2))) (let ((e-29 (vector-ref e-17 3))) (let ((e-28 (vector-ref e-17 4))) (let ((e-27 (vector-ref e-17 5))) (let ((e-26 (vector-ref e-17 6))) (let ((e-25 (vector-ref e-17 7))) (CoreC-45Context-updateDef arg-0 arg-2 (lambda (eta-0) (box (vector 6 e-31 e-30 e-29 e-28 e-27 e-26 e-25 arg-3))) ext-0)))))))))(else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-1 (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name (let ((e-43 (vector-ref e-1 1))) e-43)) " is not a type constructor [setDetermining]")) ext-0)))))))))))))))) +(define CoreC-45Context-setDefaultTotalityOption (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (set-box! arg-0 (let ((e-0 (vector-ref e-5 0))) (let ((e-1 (vector-ref e-5 1))) (let ((e-2 (vector-ref e-5 2))) (let ((e-3 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-29 (vector-ref e-5 5))) (let ((e-6 (vector-ref e-5 6))) (let ((e-7 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (let ((e-10 (vector-ref e-5 10))) (let ((e-11 (vector-ref e-5 11))) (let ((e-12 (vector-ref e-5 12))) (let ((e-13 (vector-ref e-5 13))) (let ((e-14 (vector-ref e-5 14))) (let ((e-15 (vector-ref e-5 15))) (let ((e-16 (vector-ref e-5 16))) (let ((e-17 (vector-ref e-5 17))) (let ((e-18 (vector-ref e-5 18))) (let ((e-19 (vector-ref e-5 19))) (let ((e-20 (vector-ref e-5 20))) (let ((e-21 (vector-ref e-5 21))) (let ((e-22 (vector-ref e-5 22))) (let ((e-23 (vector-ref e-5 23))) (let ((e-24 (vector-ref e-5 24))) (let ((e-25 (vector-ref e-5 25))) (let ((e-26 (vector-ref e-5 26))) (let ((e-27 (vector-ref e-5 27))) (let ((e-28 (vector-ref e-5 28))) (let ((e-38 (vector-ref e-4 0))) (let ((e-30 (vector-ref e-4 1))) (let ((e-31 (vector-ref e-4 2))) (let ((e-32 (vector-ref e-4 3))) (let ((e-33 (vector-ref e-4 4))) (let ((e-34 (vector-ref e-4 5))) (let ((e-35 (vector-ref e-4 6))) (let ((e-36 (vector-ref e-4 7))) (let ((e-37 (vector-ref e-4 8))) (let ((e-45 (vector-ref e-32 0))) (let ((e-39 (vector-ref e-32 1))) (let ((e-41 (vector-ref e-32 3))) (let ((e-42 (vector-ref e-32 4))) (let ((e-43 (vector-ref e-32 5))) (let ((e-44 (vector-ref e-32 6))) (vector e-0 e-1 e-2 e-3 (vector e-38 e-30 e-31 (vector e-45 e-39 arg-1 e-41 e-42 e-43 e-44) e-33 e-34 e-35 e-36 e-37) e-29 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27 e-28)))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25)))))))) +(define CoreC-45Context-setDebugElabCheck (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (set-box! arg-0 (let ((e-0 (vector-ref e-5 0))) (let ((e-1 (vector-ref e-5 1))) (let ((e-2 (vector-ref e-5 2))) (let ((e-3 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-29 (vector-ref e-5 5))) (let ((e-6 (vector-ref e-5 6))) (let ((e-7 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (let ((e-10 (vector-ref e-5 10))) (let ((e-11 (vector-ref e-5 11))) (let ((e-12 (vector-ref e-5 12))) (let ((e-13 (vector-ref e-5 13))) (let ((e-14 (vector-ref e-5 14))) (let ((e-15 (vector-ref e-5 15))) (let ((e-16 (vector-ref e-5 16))) (let ((e-17 (vector-ref e-5 17))) (let ((e-18 (vector-ref e-5 18))) (let ((e-19 (vector-ref e-5 19))) (let ((e-20 (vector-ref e-5 20))) (let ((e-21 (vector-ref e-5 21))) (let ((e-22 (vector-ref e-5 22))) (let ((e-23 (vector-ref e-5 23))) (let ((e-24 (vector-ref e-5 24))) (let ((e-25 (vector-ref e-5 25))) (let ((e-26 (vector-ref e-5 26))) (let ((e-27 (vector-ref e-5 27))) (let ((e-28 (vector-ref e-5 28))) (let ((e-38 (vector-ref e-4 0))) (let ((e-30 (vector-ref e-4 1))) (let ((e-31 (vector-ref e-4 2))) (let ((e-32 (vector-ref e-4 3))) (let ((e-33 (vector-ref e-4 4))) (let ((e-34 (vector-ref e-4 5))) (let ((e-35 (vector-ref e-4 6))) (let ((e-36 (vector-ref e-4 7))) (let ((e-37 (vector-ref e-4 8))) (let ((e-57 (vector-ref e-31 0))) (let ((e-39 (vector-ref e-31 1))) (let ((e-40 (vector-ref e-31 2))) (let ((e-41 (vector-ref e-31 3))) (let ((e-42 (vector-ref e-31 4))) (let ((e-43 (vector-ref e-31 5))) (let ((e-44 (vector-ref e-31 6))) (let ((e-45 (vector-ref e-31 7))) (let ((e-46 (vector-ref e-31 8))) (let ((e-48 (vector-ref e-31 10))) (let ((e-49 (vector-ref e-31 11))) (let ((e-50 (vector-ref e-31 12))) (let ((e-51 (vector-ref e-31 13))) (let ((e-52 (vector-ref e-31 14))) (let ((e-53 (vector-ref e-31 15))) (let ((e-54 (vector-ref e-31 16))) (let ((e-55 (vector-ref e-31 17))) (let ((e-56 (vector-ref e-31 18))) (vector e-0 e-1 e-2 e-3 (vector e-38 e-30 (vector e-57 e-39 e-40 e-41 e-42 e-43 e-44 e-45 e-46 arg-1 e-48 e-49 e-50 e-51 e-52 e-53 e-54 e-55 e-56) e-32 e-33 e-34 e-35 e-36 e-37) e-29 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27 e-28)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25)))))))) +(define CoreC-45Context-setCtxt (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (set-box! arg-0 (let ((e-1 (vector-ref e-5 1))) (let ((e-2 (vector-ref e-5 2))) (let ((e-3 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-29 (vector-ref e-5 5))) (let ((e-6 (vector-ref e-5 6))) (let ((e-7 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (let ((e-10 (vector-ref e-5 10))) (let ((e-11 (vector-ref e-5 11))) (let ((e-12 (vector-ref e-5 12))) (let ((e-13 (vector-ref e-5 13))) (let ((e-14 (vector-ref e-5 14))) (let ((e-15 (vector-ref e-5 15))) (let ((e-16 (vector-ref e-5 16))) (let ((e-17 (vector-ref e-5 17))) (let ((e-18 (vector-ref e-5 18))) (let ((e-19 (vector-ref e-5 19))) (let ((e-20 (vector-ref e-5 20))) (let ((e-21 (vector-ref e-5 21))) (let ((e-22 (vector-ref e-5 22))) (let ((e-23 (vector-ref e-5 23))) (let ((e-24 (vector-ref e-5 24))) (let ((e-25 (vector-ref e-5 25))) (let ((e-26 (vector-ref e-5 26))) (let ((e-27 (vector-ref e-5 27))) (let ((e-28 (vector-ref e-5 28))) (vector arg-1 e-1 e-2 e-3 e-4 e-29 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27 e-28)))))))))))))))))))))))))))))))) (vector 1 act-25)))))))) +(define CoreC-45Context-setCovering (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact arg-2 (let ((e-0 (vector-ref e-5 0))) e-0)) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (if (null? e-6) (CoreC-45Context-undefinedName arg-0 arg-1 arg-2 ext-0) (let ((e-1 (unbox e-6))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-2 (vector-ref eta-0 1))) (vector 0 e-2))) (else (vector 1 0)))) (lambda (eta-0) (CoreC-45Context-addDef arg-0 arg-2 (let ((e-0 (vector-ref e-1 0))) (let ((e-23 (vector-ref e-1 1))) (let ((e-2 (vector-ref e-1 2))) (let ((e-3 (vector-ref e-1 3))) (let ((e-4 (vector-ref e-1 4))) (let ((e-22 (vector-ref e-1 5))) (let ((e-21 (vector-ref e-1 6))) (let ((e-7 (vector-ref e-1 7))) (let ((e-8 (vector-ref e-1 8))) (let ((e-9 (vector-ref e-1 9))) (let ((e-10 (vector-ref e-1 10))) (let ((e-11 (vector-ref e-1 11))) (let ((e-12 (vector-ref e-1 12))) (let ((e-13 (vector-ref e-1 13))) (let ((e-14 (vector-ref e-1 14))) (let ((e-15 (vector-ref e-1 15))) (let ((e-16 (vector-ref e-1 16))) (let ((e-17 (vector-ref e-1 17))) (let ((e-18 (vector-ref e-1 18))) (let ((e-19 (vector-ref e-1 19))) (let ((e-20 (vector-ref e-1 20))) (let ((e-25 (car e-10))) (vector e-0 e-23 e-2 e-3 e-4 e-22 e-21 e-7 e-8 e-9 (cons e-25 arg-3) e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20))))))))))))))))))))))) eta-0)) ext-0))))))))))))) +(define CoreC-45Context-setCompiled (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact arg-1 (let ((e-0 (vector-ref e-5 0))) e-0)) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (if (null? e-6) (vector 1 0) (let ((e-1 (unbox e-6))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-2 (vector-ref eta-0 1))) (vector 0 e-2))) (else (vector 1 0)))) (lambda (eta-0) (CoreC-45Context-addDef arg-0 arg-1 (let ((e-0 (vector-ref e-1 0))) (let ((e-23 (vector-ref e-1 1))) (let ((e-2 (vector-ref e-1 2))) (let ((e-3 (vector-ref e-1 3))) (let ((e-4 (vector-ref e-1 4))) (let ((e-22 (vector-ref e-1 5))) (let ((e-21 (vector-ref e-1 6))) (let ((e-7 (vector-ref e-1 7))) (let ((e-8 (vector-ref e-1 8))) (let ((e-9 (vector-ref e-1 9))) (let ((e-10 (vector-ref e-1 10))) (let ((e-11 (vector-ref e-1 11))) (let ((e-12 (vector-ref e-1 12))) (let ((e-13 (vector-ref e-1 13))) (let ((e-14 (vector-ref e-1 14))) (let ((e-15 (vector-ref e-1 15))) (let ((e-16 (vector-ref e-1 16))) (let ((e-17 (vector-ref e-1 17))) (let ((e-19 (vector-ref e-1 19))) (let ((e-20 (vector-ref e-1 20))) (vector e-0 e-23 e-2 e-3 e-4 e-22 e-21 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 (box arg-2) e-19 e-20))))))))))))))))))))) eta-0)) ext-0))))))))))))) +(define CoreC-45Context-setCG (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (set-box! arg-0 (let ((e-0 (vector-ref e-5 0))) (let ((e-1 (vector-ref e-5 1))) (let ((e-2 (vector-ref e-5 2))) (let ((e-3 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-29 (vector-ref e-5 5))) (let ((e-6 (vector-ref e-5 6))) (let ((e-7 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (let ((e-10 (vector-ref e-5 10))) (let ((e-11 (vector-ref e-5 11))) (let ((e-12 (vector-ref e-5 12))) (let ((e-13 (vector-ref e-5 13))) (let ((e-14 (vector-ref e-5 14))) (let ((e-15 (vector-ref e-5 15))) (let ((e-16 (vector-ref e-5 16))) (let ((e-17 (vector-ref e-5 17))) (let ((e-18 (vector-ref e-5 18))) (let ((e-19 (vector-ref e-5 19))) (let ((e-20 (vector-ref e-5 20))) (let ((e-21 (vector-ref e-5 21))) (let ((e-22 (vector-ref e-5 22))) (let ((e-23 (vector-ref e-5 23))) (let ((e-24 (vector-ref e-5 24))) (let ((e-25 (vector-ref e-5 25))) (let ((e-26 (vector-ref e-5 26))) (let ((e-27 (vector-ref e-5 27))) (let ((e-28 (vector-ref e-5 28))) (let ((e-38 (vector-ref e-4 0))) (let ((e-30 (vector-ref e-4 1))) (let ((e-31 (vector-ref e-4 2))) (let ((e-32 (vector-ref e-4 3))) (let ((e-33 (vector-ref e-4 4))) (let ((e-34 (vector-ref e-4 5))) (let ((e-35 (vector-ref e-4 6))) (let ((e-36 (vector-ref e-4 7))) (let ((e-37 (vector-ref e-4 8))) (let ((e-57 (vector-ref e-31 0))) (let ((e-39 (vector-ref e-31 1))) (let ((e-40 (vector-ref e-31 2))) (let ((e-42 (vector-ref e-31 4))) (let ((e-43 (vector-ref e-31 5))) (let ((e-44 (vector-ref e-31 6))) (let ((e-45 (vector-ref e-31 7))) (let ((e-46 (vector-ref e-31 8))) (let ((e-47 (vector-ref e-31 9))) (let ((e-48 (vector-ref e-31 10))) (let ((e-49 (vector-ref e-31 11))) (let ((e-50 (vector-ref e-31 12))) (let ((e-51 (vector-ref e-31 13))) (let ((e-52 (vector-ref e-31 14))) (let ((e-53 (vector-ref e-31 15))) (let ((e-54 (vector-ref e-31 16))) (let ((e-55 (vector-ref e-31 17))) (let ((e-56 (vector-ref e-31 18))) (vector e-0 e-1 e-2 e-3 (vector e-38 e-30 (vector e-57 e-39 e-40 arg-1 e-42 e-43 e-44 e-45 e-46 e-47 e-48 e-49 e-50 e-51 e-52 e-53 e-54 e-55 e-56) e-32 e-33 e-34 e-35 e-36 e-37) e-29 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27 e-28)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25)))))))) +(define CoreC-45Context-setBuildDir (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (set-box! arg-0 (let ((e-0 (vector-ref e-5 0))) (let ((e-1 (vector-ref e-5 1))) (let ((e-2 (vector-ref e-5 2))) (let ((e-3 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-29 (vector-ref e-5 5))) (let ((e-6 (vector-ref e-5 6))) (let ((e-7 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (let ((e-10 (vector-ref e-5 10))) (let ((e-11 (vector-ref e-5 11))) (let ((e-12 (vector-ref e-5 12))) (let ((e-13 (vector-ref e-5 13))) (let ((e-14 (vector-ref e-5 14))) (let ((e-15 (vector-ref e-5 15))) (let ((e-16 (vector-ref e-5 16))) (let ((e-17 (vector-ref e-5 17))) (let ((e-18 (vector-ref e-5 18))) (let ((e-19 (vector-ref e-5 19))) (let ((e-20 (vector-ref e-5 20))) (let ((e-21 (vector-ref e-5 21))) (let ((e-22 (vector-ref e-5 22))) (let ((e-23 (vector-ref e-5 23))) (let ((e-24 (vector-ref e-5 24))) (let ((e-25 (vector-ref e-5 25))) (let ((e-26 (vector-ref e-5 26))) (let ((e-27 (vector-ref e-5 27))) (let ((e-28 (vector-ref e-5 28))) (let ((e-38 (vector-ref e-4 0))) (let ((e-30 (vector-ref e-4 1))) (let ((e-31 (vector-ref e-4 2))) (let ((e-32 (vector-ref e-4 3))) (let ((e-33 (vector-ref e-4 4))) (let ((e-34 (vector-ref e-4 5))) (let ((e-35 (vector-ref e-4 6))) (let ((e-36 (vector-ref e-4 7))) (let ((e-37 (vector-ref e-4 8))) (let ((e-48 (vector-ref e-38 0))) (let ((e-39 (vector-ref e-38 1))) (let ((e-41 (vector-ref e-38 3))) (let ((e-42 (vector-ref e-38 4))) (let ((e-43 (vector-ref e-38 5))) (let ((e-44 (vector-ref e-38 6))) (let ((e-45 (vector-ref e-38 7))) (let ((e-46 (vector-ref e-38 8))) (let ((e-47 (vector-ref e-38 9))) (vector e-0 e-1 e-2 e-3 (vector (vector e-48 e-39 arg-1 e-41 e-42 e-43 e-44 e-45 e-46 e-47) e-30 e-31 e-32 e-33 e-34 e-35 e-36 e-37) e-29 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27 e-28))))))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25)))))))) +(define CoreC-45Context-setAutoImplicitLimit (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (set-box! arg-0 (let ((e-0 (vector-ref e-5 0))) (let ((e-1 (vector-ref e-5 1))) (let ((e-2 (vector-ref e-5 2))) (let ((e-3 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-29 (vector-ref e-5 5))) (let ((e-6 (vector-ref e-5 6))) (let ((e-7 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (let ((e-10 (vector-ref e-5 10))) (let ((e-11 (vector-ref e-5 11))) (let ((e-12 (vector-ref e-5 12))) (let ((e-13 (vector-ref e-5 13))) (let ((e-14 (vector-ref e-5 14))) (let ((e-15 (vector-ref e-5 15))) (let ((e-16 (vector-ref e-5 16))) (let ((e-17 (vector-ref e-5 17))) (let ((e-18 (vector-ref e-5 18))) (let ((e-19 (vector-ref e-5 19))) (let ((e-20 (vector-ref e-5 20))) (let ((e-21 (vector-ref e-5 21))) (let ((e-22 (vector-ref e-5 22))) (let ((e-23 (vector-ref e-5 23))) (let ((e-24 (vector-ref e-5 24))) (let ((e-25 (vector-ref e-5 25))) (let ((e-26 (vector-ref e-5 26))) (let ((e-27 (vector-ref e-5 27))) (let ((e-28 (vector-ref e-5 28))) (let ((e-38 (vector-ref e-4 0))) (let ((e-30 (vector-ref e-4 1))) (let ((e-31 (vector-ref e-4 2))) (let ((e-32 (vector-ref e-4 3))) (let ((e-33 (vector-ref e-4 4))) (let ((e-34 (vector-ref e-4 5))) (let ((e-35 (vector-ref e-4 6))) (let ((e-36 (vector-ref e-4 7))) (let ((e-37 (vector-ref e-4 8))) (let ((e-45 (vector-ref e-32 0))) (let ((e-39 (vector-ref e-32 1))) (let ((e-40 (vector-ref e-32 2))) (let ((e-41 (vector-ref e-32 3))) (let ((e-43 (vector-ref e-32 5))) (let ((e-44 (vector-ref e-32 6))) (vector e-0 e-1 e-2 e-3 (vector e-38 e-30 e-31 (vector e-45 e-39 e-40 e-41 arg-1 e-43 e-44) e-33 e-34 e-35 e-36 e-37) e-29 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27 e-28)))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25)))))))) +(define CoreC-45Context-setAmbigLimit (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (set-box! arg-0 (let ((e-0 (vector-ref e-5 0))) (let ((e-1 (vector-ref e-5 1))) (let ((e-2 (vector-ref e-5 2))) (let ((e-3 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-29 (vector-ref e-5 5))) (let ((e-6 (vector-ref e-5 6))) (let ((e-7 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (let ((e-10 (vector-ref e-5 10))) (let ((e-11 (vector-ref e-5 11))) (let ((e-12 (vector-ref e-5 12))) (let ((e-13 (vector-ref e-5 13))) (let ((e-14 (vector-ref e-5 14))) (let ((e-15 (vector-ref e-5 15))) (let ((e-16 (vector-ref e-5 16))) (let ((e-17 (vector-ref e-5 17))) (let ((e-18 (vector-ref e-5 18))) (let ((e-19 (vector-ref e-5 19))) (let ((e-20 (vector-ref e-5 20))) (let ((e-21 (vector-ref e-5 21))) (let ((e-22 (vector-ref e-5 22))) (let ((e-23 (vector-ref e-5 23))) (let ((e-24 (vector-ref e-5 24))) (let ((e-25 (vector-ref e-5 25))) (let ((e-26 (vector-ref e-5 26))) (let ((e-27 (vector-ref e-5 27))) (let ((e-28 (vector-ref e-5 28))) (let ((e-38 (vector-ref e-4 0))) (let ((e-30 (vector-ref e-4 1))) (let ((e-31 (vector-ref e-4 2))) (let ((e-32 (vector-ref e-4 3))) (let ((e-33 (vector-ref e-4 4))) (let ((e-34 (vector-ref e-4 5))) (let ((e-35 (vector-ref e-4 6))) (let ((e-36 (vector-ref e-4 7))) (let ((e-37 (vector-ref e-4 8))) (let ((e-45 (vector-ref e-32 0))) (let ((e-39 (vector-ref e-32 1))) (let ((e-40 (vector-ref e-32 2))) (let ((e-42 (vector-ref e-32 4))) (let ((e-43 (vector-ref e-32 5))) (let ((e-44 (vector-ref e-32 6))) (vector e-0 e-1 e-2 e-3 (vector e-38 e-30 e-31 (vector e-45 e-39 e-40 arg-1 e-42 e-43 e-44) e-33 e-34 e-35 e-36 e-37) e-29 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27 e-28)))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25)))))))) +(define CoreC-45Context-setAllPublic (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (set-box! arg-0 (let ((e-0 (vector-ref e-5 0))) (let ((e-1 (vector-ref e-5 1))) (let ((e-2 (vector-ref e-5 2))) (let ((e-3 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-29 (vector-ref e-5 5))) (let ((e-6 (vector-ref e-5 6))) (let ((e-7 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (let ((e-10 (vector-ref e-5 10))) (let ((e-11 (vector-ref e-5 11))) (let ((e-12 (vector-ref e-5 12))) (let ((e-13 (vector-ref e-5 13))) (let ((e-14 (vector-ref e-5 14))) (let ((e-15 (vector-ref e-5 15))) (let ((e-16 (vector-ref e-5 16))) (let ((e-17 (vector-ref e-5 17))) (let ((e-18 (vector-ref e-5 18))) (let ((e-19 (vector-ref e-5 19))) (let ((e-20 (vector-ref e-5 20))) (let ((e-21 (vector-ref e-5 21))) (let ((e-22 (vector-ref e-5 22))) (let ((e-23 (vector-ref e-5 23))) (let ((e-24 (vector-ref e-5 24))) (let ((e-25 (vector-ref e-5 25))) (let ((e-26 (vector-ref e-5 26))) (let ((e-27 (vector-ref e-5 27))) (let ((e-28 (vector-ref e-5 28))) (let ((e-40 (vector-ref e-0 0))) (let ((e-30 (vector-ref e-0 1))) (let ((e-31 (vector-ref e-0 2))) (let ((e-32 (vector-ref e-0 3))) (let ((e-33 (vector-ref e-0 4))) (let ((e-34 (vector-ref e-0 5))) (let ((e-35 (vector-ref e-0 6))) (let ((e-36 (vector-ref e-0 7))) (let ((e-38 (vector-ref e-0 9))) (let ((e-39 (vector-ref e-0 10))) (vector (vector e-40 e-30 e-31 e-32 e-33 e-34 e-35 e-36 arg-1 e-38 e-39) e-1 e-2 e-3 e-4 e-29 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27 e-28))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25)))))))) +(define CoreC-45Context-returnDef (lambda (arg-0 arg-1 arg-2) (cond ((equal? arg-0 0) (box (cons arg-1 arg-2))) (else (CoreC-45Context-case--returnDef-2676 arg-2 arg-1 (let ((e-17 (vector-ref arg-2 17))) e-17)))))) +(define CoreC-45Context-resolveName (lambda (arg-0 arg-1 ext-0) (case (vector-ref arg-1 0) ((9) (let ((e-0 (vector-ref arg-1 1))) (vector 1 e-0)))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Context-getPosition arg-1 (let ((e-0 (vector-ref e-5 0))) e-0)) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((e-2 (car e-6))) (let ((e-3 (cdr e-6))) (let ((act-26 (CoreC-45Context-setCtxt arg-0 e-3 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-4 (vector-ref act-26 1))) (vector 0 e-4))) (else (vector 1 e-2)))))))))))))))))) +(define CoreC-45Context-resetFirstEntry (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (set-box! arg-0 (let ((e-0 (vector-ref e-5 0))) (let ((e-1 (vector-ref e-5 1))) (let ((e-2 (vector-ref e-5 2))) (let ((e-3 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-29 (vector-ref e-5 5))) (let ((e-6 (vector-ref e-5 6))) (let ((e-7 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (let ((e-10 (vector-ref e-5 10))) (let ((e-11 (vector-ref e-5 11))) (let ((e-12 (vector-ref e-5 12))) (let ((e-13 (vector-ref e-5 13))) (let ((e-14 (vector-ref e-5 14))) (let ((e-15 (vector-ref e-5 15))) (let ((e-16 (vector-ref e-5 16))) (let ((e-17 (vector-ref e-5 17))) (let ((e-18 (vector-ref e-5 18))) (let ((e-19 (vector-ref e-5 19))) (let ((e-20 (vector-ref e-5 20))) (let ((e-21 (vector-ref e-5 21))) (let ((e-22 (vector-ref e-5 22))) (let ((e-23 (vector-ref e-5 23))) (let ((e-24 (vector-ref e-5 24))) (let ((e-25 (vector-ref e-5 25))) (let ((e-26 (vector-ref e-5 26))) (let ((e-27 (vector-ref e-5 27))) (let ((e-28 (vector-ref e-5 28))) (let ((e-30 (vector-ref e-0 1))) (let ((e-31 (vector-ref e-0 2))) (let ((e-32 (vector-ref e-0 3))) (let ((e-33 (vector-ref e-0 4))) (let ((e-34 (vector-ref e-0 5))) (let ((e-35 (vector-ref e-0 6))) (let ((e-36 (vector-ref e-0 7))) (let ((e-37 (vector-ref e-0 8))) (let ((e-38 (vector-ref e-0 9))) (let ((e-39 (vector-ref e-0 10))) (vector (vector (let ((e-69 (vector-ref e-5 0))) (let ((e-79 (vector-ref e-69 1))) e-79)) e-30 e-31 e-32 e-33 e-34 e-35 e-36 e-37 e-38 e-39) e-1 e-2 e-3 e-4 e-29 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27 e-28))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25)))))))) +(define CoreC-45Context-refersToRuntime (lambda (arg-0) (PreludeC-45Types-maybe (lambda () (LibrariesC-45DataC-45NameMap-empty)) (lambda () (lambda (eta-0) eta-0)) (let ((e-13 (vector-ref arg-0 13))) e-13)))) +(define CoreC-45Context-refersTo (lambda (arg-0) (PreludeC-45Types-maybe (lambda () (LibrariesC-45DataC-45NameMap-empty)) (lambda () (lambda (eta-0) eta-0)) (let ((e-12 (vector-ref arg-0 12))) e-12)))) +(define CoreC-45Context-reducibleInAny (lambda (arg-0 arg-1 arg-2) (PreludeC-45Interfaces-any (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (lambda (u--ns) (CoreC-45Context-reducibleIn u--ns arg-1 arg-2)) arg-0))) +(define CoreC-45Context-reducibleIn (lambda (arg-0 arg-1 arg-2) (case (vector-ref arg-1 0) ((0) (let ((e-0 (vector-ref arg-1 1))) (let ((e-1 (vector-ref arg-1 2))) (case (vector-ref e-1 0) ((1) (cond ((equal? arg-2 1) (CoreC-45NameC-45Namespace-isParentOf e-0 arg-0)) ((equal? arg-2 0) (CoreC-45NameC-45Namespace-isParentOf e-0 arg-0))(else 1))) ((5) (cond ((equal? arg-2 1) (CoreC-45NameC-45Namespace-isParentOf e-0 arg-0)) ((equal? arg-2 0) (CoreC-45NameC-45Namespace-isParentOf e-0 arg-0))(else 1)))(else 1)))))(else 1)))) +(define CoreC-45Context-recordWarning (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-getSession arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 (set-box! arg-0 (let ((e-0 (vector-ref e-5 0))) (let ((e-1 (vector-ref e-5 1))) (let ((e-2 (vector-ref e-5 2))) (let ((e-3 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-30 (vector-ref e-5 5))) (let ((e-29 (vector-ref e-5 6))) (let ((e-7 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (let ((e-10 (vector-ref e-5 10))) (let ((e-11 (vector-ref e-5 11))) (let ((e-12 (vector-ref e-5 12))) (let ((e-13 (vector-ref e-5 13))) (let ((e-14 (vector-ref e-5 14))) (let ((e-15 (vector-ref e-5 15))) (let ((e-16 (vector-ref e-5 16))) (let ((e-17 (vector-ref e-5 17))) (let ((e-18 (vector-ref e-5 18))) (let ((e-19 (vector-ref e-5 19))) (let ((e-20 (vector-ref e-5 20))) (let ((e-21 (vector-ref e-5 21))) (let ((e-22 (vector-ref e-5 22))) (let ((e-23 (vector-ref e-5 23))) (let ((e-24 (vector-ref e-5 24))) (let ((e-25 (vector-ref e-5 25))) (let ((e-26 (vector-ref e-5 26))) (let ((e-27 (vector-ref e-5 27))) (let ((e-28 (vector-ref e-5 28))) (vector e-0 e-1 e-2 e-3 e-4 e-30 e-29 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27 (cons arg-1 e-28)))))))))))))))))))))))))))))))))) (vector 1 act-26))))))))))) +(define CoreC-45Context-prettyName (lambda (arg-0 arg-1) (case (vector-ref arg-1 0) ((6) (let ((e-0 (vector-ref arg-1 1))) (let ((e-1 (vector-ref arg-1 2))) (lambda (clam-0) (if (null? e-0) (vector 1 (CoreC-45Name-u--show_Show_Name arg-1)) (let ((e-10 (car e-0))) (let ((act-24 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-0))))) (vector 9 e-10) clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Context-prettyName arg-0 e-5) clam-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 ((CoreC-45Context-prettyName arg-0 e-1) clam-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (PreludeC-45TypesC-45String-C-43C-43 e-6 (PreludeC-45TypesC-45String-C-43C-43 "," e-7))))))))))))))))))))) ((7) (let ((e-2 (vector-ref arg-1 1))) (lambda (eta-0) (vector 1 (PreludeC-45TypesC-45String-C-43C-43 "case block in " e-2))))) ((8) (let ((e-4 (vector-ref arg-1 1))) (lambda (eta-0) (vector 1 (PreludeC-45TypesC-45String-C-43C-43 "with block in " e-4))))) ((0) (let ((e-7 (vector-ref arg-1 2))) (CoreC-45Context-prettyName arg-0 e-7)))(else (lambda (eta-0) (vector 1 (CoreC-45Name-u--show_Show_Name arg-1))))))) (define CoreC-45Context-noDeclaration (lambda (arg-1 arg-2 arg-3 ext-0) (CoreC-45Context-maybeMisspelling arg-1 (vector 37 arg-2 arg-3) arg-3 ext-0))) -(define CoreC-45Context-newEntry (lambda (arg-0 arg-1) (let ((u--idx (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 2))) e-1)))) (let ((u--a (let ((sc0 arg-1)) (let ((e-4 (vector-ref sc0 5))) e-4)))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox u--a))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((sc1 (PreludeC-45EqOrd-u--C-62C-61_Ord_Int u--idx (DataC-45IOArray-max e-5)))) (cond ((equal? sc1 0) (let ((act-25 (let ((act-25 ((DataC-45IOArray-newArrayCopy (cons (vector 0 (vector 0 (lambda (u--b) (lambda (a-0) (lambda (u--func) (lambda (arg-143) (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-1)))))) (lambda (a-0) (lambda (arg-577) (lambda (eta-1) arg-577))) (lambda (u--b) (lambda (a-0) (lambda (arg-578) (lambda (arg-580) (lambda (eta-1) (let ((act-17 (arg-578 eta-1))) (let ((act-16 (arg-580 eta-1))) (act-17 act-16))))))))) (lambda (u--b) (lambda (a-0) (lambda (arg-876) (lambda (arg-877) (lambda (eta-1) (let ((act-25 (arg-876 eta-1))) ((arg-877 act-25) eta-1))))))) (lambda (a-0) (lambda (arg-879) (lambda (eta-1) (let ((act-51 (arg-879 eta-1))) (act-51 eta-1)))))) (lambda (a-0) (lambda (arg-7803) arg-7803))) (bs+ (DataC-45IOArray-max e-5) (CoreC-45Context-Grow) 63) e-5) eta-0))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (set-box! u--a e-6))) (vector 1 act-26)))))))) (else (vector 1 (vector 0 ))))))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (cons u--idx (let ((sc2 arg-1)) (let ((e-0 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 3))) (let ((e-3 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-12 (vector-ref sc2 6))) (let ((e-11 (vector-ref sc2 7))) (let ((e-7 (vector-ref sc2 8))) (let ((e-8 (vector-ref sc2 9))) (let ((e-9 (vector-ref sc2 10))) (let ((e-10 (vector-ref sc2 11))) (vector 0 e-0 (bs+ u--idx 1 63) (LibrariesC-45DataC-45NameMap-insert arg-0 u--idx e-2) (CoreC-45Context-addPossible arg-0 u--idx e-3) e-4 e-12 e-11 e-7 e-8 e-9 e-10)))))))))))))))))))))))))))) -(define CoreC-45Context-newDef (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (vector 0 arg-0 arg-1 arg-4 '() '() '() '() arg-2 arg-3 arg-5 (CoreC-45TT-unchecked) '() (vector 0 ) (vector 0 ) 1 1 1 arg-6 (vector 0 ) (vector 0 ) '()))) -(define CoreC-45Context-newAlias (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 ((CoreC-45Context-getPosition arg-1 arg-2) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-2 (car sc1))) (let ((e-3 (cdr sc1))) (vector 1 (let ((sc2 e-3)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-13 (vector-ref sc2 3))) (let ((e-12 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-11 (vector-ref sc2 6))) (let ((e-6 (vector-ref sc2 7))) (let ((e-7 (vector-ref sc2 8))) (let ((e-8 (vector-ref sc2 9))) (let ((e-9 (vector-ref sc2 10))) (let ((e-10 (vector-ref sc2 11))) (vector 0 e-0 e-1 e-13 (CoreC-45Context-addAlias arg-0 arg-1 e-2 e-12) e-4 e-11 e-6 e-7 e-8 e-9 e-10)))))))))))))))))))))))) -(define CoreC-45Context-maybeMisspelling (lambda (arg-1 arg-2 arg-3 ext-0) (let ((act-24 ((CoreC-45Context-getSimilarNames arg-1 arg-3) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (if (null? sc1) (CoreC-45Core-u--throw_Catchable_Core_Error arg-2 ext-0) (let ((e-2 (car sc1))) (let ((e-3 (cdr sc1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 65 arg-2 (cons e-2 e-3)) ext-0)))))))))))) -(define CoreC-45Context-lookupTyName (lambda (ext-2 ext-1 ext-0) (CoreC-45Context-lookupNameBy (lambda (eta-0) (let ((sc0 eta-0)) (let ((e-2 (vector-ref sc0 3))) e-2))) ext-2 ext-1 ext-0))) -(define CoreC-45Context-lookupTyExact (lambda (ext-2 ext-1 ext-0) (CoreC-45Context-lookupExactBy (lambda (eta-0) (let ((sc0 eta-0)) (let ((e-2 (vector-ref sc0 3))) e-2))) ext-2 ext-1 ext-0))) -(define CoreC-45Context-lookupNameBy (lambda (arg-1 arg-2 arg-3 ext-0) (let ((act-24 ((CoreC-45Context-lookupCtxtName arg-2 arg-3) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (PreludeC-45Types-u--map_Functor_List (lambda (lamc-0) (let ((sc1 lamc-0)) (let ((e-2 (car sc1))) (let ((e-3 (cdr sc1))) (let ((sc2 e-3)) (let ((e-6 (car sc2))) (let ((e-7 (cdr sc2))) (cons e-2 (cons e-6 (arg-1 e-7)))))))))) e-5))))))))) -(define CoreC-45Context-lookupExactBy (lambda (arg-1 arg-2 arg-3 ext-0) (let ((act-24 ((CoreC-45Context-lookupCtxtExact arg-2 arg-3) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (vector 1 (vector 1 (arg-1 e-1))))) (else (vector 1 (vector 0 )))))))))))) -(define CoreC-45Context-lookupDefTyExact (lambda (ext-2 ext-1 ext-0) (CoreC-45Context-lookupExactBy (lambda (u--g) (cons (let ((sc0 u--g)) (let ((e-17 (vector-ref sc0 18))) e-17)) (let ((sc0 u--g)) (let ((e-2 (vector-ref sc0 3))) e-2)))) ext-2 ext-1 ext-0))) -(define CoreC-45Context-lookupDefName (lambda (ext-2 ext-1 ext-0) (CoreC-45Context-lookupNameBy (lambda (eta-0) (let ((sc0 eta-0)) (let ((e-17 (vector-ref sc0 18))) e-17))) ext-2 ext-1 ext-0))) -(define CoreC-45Context-lookupDefExact (lambda (ext-2 ext-1 ext-0) (CoreC-45Context-lookupExactBy (lambda (eta-0) (let ((sc0 eta-0)) (let ((e-17 (vector-ref sc0 18))) e-17))) ext-2 ext-1 ext-0))) -(define CoreC-45Context-lookupCtxtName (lambda (arg-0 arg-1) (CoreC-45Context-case--lookupCtxtName-3442 arg-1 arg-0 (CoreC-45Name-userNameRoot arg-0)))) -(define CoreC-45Context-lookupCtxtExactI (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((9) (let ((e-0 (vector-ref sc0 1))) (CoreC-45Context-case--lookupCtxtExactI-2741 e-0 arg-1 (LibrariesC-45DataC-45IntMap-lookup e-0 (let ((sc1 arg-1)) (let ((e-6 (vector-ref sc1 7))) e-6))))))(else (CoreC-45Context-case--lookupCtxtExactI-2820 arg-1 arg-0 (LibrariesC-45DataC-45NameMap-lookup arg-0 (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 3))) e-2))))))))) -(define CoreC-45Context-lookupCtxtExact (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((9) (let ((e-0 (vector-ref sc0 1))) (CoreC-45Context-case--lookupCtxtExact-2844 e-0 arg-1 (LibrariesC-45DataC-45IntMap-lookup e-0 (let ((sc1 arg-1)) (let ((e-6 (vector-ref sc1 7))) e-6))))))(else (lambda (eta-0) (let ((act-24 ((CoreC-45Context-lookupCtxtExactI arg-0 arg-1) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((sc2 e-1)) (let ((e-6 (cdr sc2))) (vector 1 (vector 1 e-6)))))) (else (vector 1 (vector 0 )))))))))))))))) -(define CoreC-45Context-lookupContextEntry (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((9) (let ((e-0 (vector-ref sc0 1))) (CoreC-45Context-case--lookupContextEntry-3039 e-0 arg-1 (LibrariesC-45DataC-45IntMap-lookup e-0 (let ((sc1 arg-1)) (let ((e-6 (vector-ref sc1 7))) e-6))))))(else (CoreC-45Context-case--lookupContextEntry-3120 arg-1 arg-0 (LibrariesC-45DataC-45NameMap-lookup arg-0 (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 3))) e-2))))))))) -(define CoreC-45Context-lazyActive (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-28 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (let ((e-26 (vector-ref sc1 27))) (let ((e-27 (vector-ref sc1 28))) (let ((sc2 e-4)) (let ((e-37 (vector-ref sc2 1))) (let ((e-29 (vector-ref sc2 2))) (let ((e-30 (vector-ref sc2 3))) (let ((e-31 (vector-ref sc2 4))) (let ((e-32 (vector-ref sc2 5))) (let ((e-33 (vector-ref sc2 6))) (let ((e-34 (vector-ref sc2 7))) (let ((e-35 (vector-ref sc2 8))) (let ((e-36 (vector-ref sc2 9))) (let ((sc3 e-31)) (let ((e-38 (vector-ref sc3 2))) (let ((e-39 (vector-ref sc3 3))) (let ((e-40 (vector-ref sc3 4))) (let ((e-41 (vector-ref sc3 5))) (let ((e-42 (vector-ref sc3 6))) (let ((e-43 (vector-ref sc3 7))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-37 e-29 e-30 (vector 0 arg-1 e-38 e-39 e-40 e-41 e-42 e-43) e-32 e-33 e-34 e-35 e-36) e-28 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27)))))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25))))))))) -(define CoreC-45Context-isVisible (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (PreludeC-45Interfaces-any (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (lambda (eta-0) (CoreC-45Context-n--23320-14486-u--visible arg-1 arg-0 eta-0)) (PreludeC-45TypesC-45List-C-43C-43 (CoreC-45NameC-45Namespace-allParents (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 3))) e-2))) (PreludeC-45TypesC-45List-C-43C-43 (let ((sc1 e-5)) (let ((e-3 (vector-ref sc1 4))) e-3)) (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((sc2 e-0)) (let ((e-32 (vector-ref sc2 8))) e-32))))))))))))))) -(define CoreC-45Context-isUnboundImplicits (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (let ((sc1 e-5)) (let ((e-4 (vector-ref sc1 5))) (let ((sc2 e-4)) (let ((e-34 (vector-ref sc2 4))) (let ((sc3 e-34)) (let ((e-43 (vector-ref sc3 2))) e-43)))))))))))))) -(define CoreC-45Context-isPrefixRecordProjections (lambda (arg-0 ext-0) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc0 eta-0)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (let ((sc1 e-5)) (let ((e-4 (vector-ref sc1 5))) (let ((sc2 e-4)) (let ((e-34 (vector-ref sc2 4))) (let ((sc3 e-34)) (let ((e-38 (vector-ref sc3 7))) e-38)))))))))))) (lambda (eta-0) (let ((act-24 (unbox arg-0))) (vector 1 act-24))) ext-0))) -(define CoreC-45Context-isPairType (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (CoreC-45Context-case--isPairType-16852 arg-1 arg-0 e-5 (let ((sc1 e-5)) (let ((e-4 (vector-ref sc1 5))) (let ((sc2 e-4)) (let ((e-33 (vector-ref sc2 5))) e-33)))) ext-0)))))))) -(define CoreC-45Context-isLazyActive (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (let ((sc1 e-5)) (let ((e-4 (vector-ref sc1 5))) (let ((sc2 e-4)) (let ((e-34 (vector-ref sc2 4))) (let ((sc3 e-34)) (let ((e-44 (vector-ref sc3 1))) e-44)))))))))))))) -(define CoreC-45Context-isHidden (lambda (arg-0 arg-1) (DataC-45Maybe-isJust (LibrariesC-45DataC-45NameMap-lookup arg-0 (let ((sc0 arg-1)) (let ((e-10 (vector-ref sc0 11))) e-10)))))) -(define CoreC-45Context-isExtension (lambda (arg-0 arg-1) (CoreC-45Options-isExtension arg-0 (let ((sc0 arg-1)) (let ((e-4 (vector-ref sc0 5))) e-4))))) -(define CoreC-45Context-isEqualTy (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (CoreC-45Context-case--isEqualTy-16969 arg-1 arg-0 e-5 (let ((sc1 e-5)) (let ((e-4 (vector-ref sc1 5))) (let ((sc2 e-4)) (let ((e-32 (vector-ref sc2 6))) e-32)))) ext-0)))))))) -(define CoreC-45Context-isAllPublic (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((sc2 e-0)) (let ((e-31 (vector-ref sc2 9))) e-31)))))))))))) +(define CoreC-45Context-newEntry (lambda (arg-0 arg-1) (let ((u--idx (let ((e-1 (vector-ref arg-1 1))) e-1))) (let ((u--a (let ((e-4 (vector-ref arg-1 4))) e-4))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox u--a))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (let ((sc1 (PreludeC-45EqOrd-u--C-62C-61_Ord_Int u--idx (DataC-45IOArray-max e-5)))) (cond ((equal? sc1 1) (let ((act-25 (let ((act-25 ((DataC-45IOArray-newArrayCopy (cons (vector (vector (lambda (u--b) (lambda (a-0) (lambda (u--func) (lambda (arg-133) (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-1)))))) (lambda (a-0) (lambda (arg-527) (lambda (eta-1) arg-527))) (lambda (u--b) (lambda (a-0) (lambda (arg-528) (lambda (arg-530) (lambda (eta-1) (let ((act-17 (arg-528 eta-1))) (let ((act-16 (arg-530 eta-1))) (act-17 act-16))))))))) (lambda (u--b) (lambda (a-0) (lambda (arg-811) (lambda (arg-812) (lambda (eta-1) (let ((act-25 (arg-811 eta-1))) ((arg-812 act-25) eta-1))))))) (lambda (a-0) (lambda (arg-814) (lambda (eta-1) (let ((act-51 (arg-814 eta-1))) (act-51 eta-1)))))) (lambda (a-0) (lambda (arg-6881) arg-6881))) (bs+ (DataC-45IOArray-max e-5) (CoreC-45Context-Grow) 63) e-5) eta-0))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (set-box! u--a e-6))) (vector 1 act-26))))))) (else (vector 1 0)))))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (vector 1 (cons u--idx (let ((e-0 (vector-ref arg-1 0))) (let ((e-2 (vector-ref arg-1 2))) (let ((e-3 (vector-ref arg-1 3))) (let ((e-4 (vector-ref arg-1 4))) (let ((e-12 (vector-ref arg-1 5))) (let ((e-11 (vector-ref arg-1 6))) (let ((e-7 (vector-ref arg-1 7))) (let ((e-8 (vector-ref arg-1 8))) (let ((e-9 (vector-ref arg-1 9))) (let ((e-10 (vector-ref arg-1 10))) (vector e-0 (bs+ u--idx 1 63) (LibrariesC-45DataC-45NameMap-insert arg-0 u--idx e-2) (CoreC-45Context-addPossible arg-0 u--idx e-3) e-4 e-12 e-11 e-7 e-8 e-9 e-10))))))))))))))))))))))))) +(define CoreC-45Context-newDef (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (vector arg-0 arg-1 arg-4 '() '() '() '() arg-2 arg-3 arg-5 (CoreC-45TT-unchecked) '() '() '() 0 0 0 arg-6 '() '() '()))) +(define CoreC-45Context-newAlias (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 ((CoreC-45Context-getPosition arg-1 arg-2) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((e-2 (car e-5))) (let ((e-3 (cdr e-5))) (vector 1 (let ((e-0 (vector-ref e-3 0))) (let ((e-1 (vector-ref e-3 1))) (let ((e-13 (vector-ref e-3 2))) (let ((e-12 (vector-ref e-3 3))) (let ((e-4 (vector-ref e-3 4))) (let ((e-11 (vector-ref e-3 5))) (let ((e-6 (vector-ref e-3 6))) (let ((e-7 (vector-ref e-3 7))) (let ((e-8 (vector-ref e-3 8))) (let ((e-9 (vector-ref e-3 9))) (let ((e-10 (vector-ref e-3 10))) (vector e-0 e-1 e-13 (CoreC-45Context-addAlias arg-0 arg-1 e-2 e-12) e-4 e-11 e-6 e-7 e-8 e-9 e-10))))))))))))))))))))) +(define CoreC-45Context-maybeMisspelling (lambda (arg-1 arg-2 arg-3 ext-0) (let ((act-24 ((CoreC-45Context-getSimilarNames arg-1 arg-3) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (if (null? e-5) (CoreC-45Core-u--throw_Catchable_Core_Error arg-2 ext-0) (let ((e-2 (car e-5))) (let ((e-3 (cdr e-5))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 66 arg-2 (cons e-2 e-3)) ext-0)))))))))) +(define CoreC-45Context-lookupTyName (lambda (ext-2 ext-1 ext-0) (CoreC-45Context-lookupNameBy (lambda (eta-0) (let ((e-2 (vector-ref eta-0 2))) e-2)) ext-2 ext-1 ext-0))) +(define CoreC-45Context-lookupTyExact (lambda (ext-2 ext-1 ext-0) (CoreC-45Context-lookupExactBy (lambda (eta-0) (let ((e-2 (vector-ref eta-0 2))) e-2)) ext-2 ext-1 ext-0))) +(define CoreC-45Context-lookupNameBy (lambda (arg-1 arg-2 arg-3 ext-0) (let ((act-24 ((CoreC-45Context-lookupCtxtName arg-2 arg-3) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (PreludeC-45Types-u--map_Functor_List (lambda (lamc-0) (let ((e-2 (car lamc-0))) (let ((e-3 (cdr lamc-0))) (let ((e-6 (car e-3))) (let ((e-7 (cdr e-3))) (cons e-2 (cons e-6 (arg-1 e-7)))))))) e-5)))))))) +(define CoreC-45Context-lookupExactBy (lambda (arg-1 arg-2 arg-3 ext-0) (let ((act-24 ((CoreC-45Context-lookupCtxtExact arg-2 arg-3) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (if (null? e-5) (vector 1 '()) (let ((e-1 (unbox e-5))) (vector 1 (box (arg-1 e-1))))))))))) +(define CoreC-45Context-lookupDefTyExact (lambda (ext-2 ext-1 ext-0) (CoreC-45Context-lookupExactBy (lambda (u--g) (cons (let ((e-17 (vector-ref u--g 17))) e-17) (let ((e-2 (vector-ref u--g 2))) e-2))) ext-2 ext-1 ext-0))) +(define CoreC-45Context-lookupDefName (lambda (ext-2 ext-1 ext-0) (CoreC-45Context-lookupNameBy (lambda (eta-0) (let ((e-17 (vector-ref eta-0 17))) e-17)) ext-2 ext-1 ext-0))) +(define CoreC-45Context-lookupDefExact (lambda (ext-2 ext-1 ext-0) (CoreC-45Context-lookupExactBy (lambda (eta-0) (let ((e-17 (vector-ref eta-0 17))) e-17)) ext-2 ext-1 ext-0))) +(define CoreC-45Context-lookupCtxtName (lambda (arg-0 arg-1) (CoreC-45Context-case--lookupCtxtName-3413 arg-1 arg-0 (CoreC-45Name-userNameRoot arg-0)))) +(define CoreC-45Context-lookupCtxtExactI (lambda (arg-0 arg-1) (case (vector-ref arg-0 0) ((9) (let ((e-0 (vector-ref arg-0 1))) (lambda (clam-0) (let ((sc1 (LibrariesC-45DataC-45IntMap-lookup e-0 (let ((e-6 (vector-ref arg-1 6))) e-6)))) (if (null? sc1) (let ((act-24 (let ((act-24 (unbox (let ((e-4 (vector-ref arg-1 4))) e-4)))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (let ((act-25 ((DataC-45IOArray-readArray (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-25 (arg-811 eta-0))) ((arg-812 act-25) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-51 (arg-814 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) e-5 e-0) clam-0))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (if (null? e-6) (vector 1 '()) (let ((e-1 (unbox e-6))) (let ((act-26 (CoreC-45Context-decode arg-1 e-0 1 e-1 clam-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (CoreC-45Context-returnDef (let ((e-9 (vector-ref arg-1 9))) e-9) e-0 e-7)))))))))))))))) (let ((e-1 (unbox sc1))) (let ((act-24 (CoreC-45Context-decode arg-1 e-0 1 e-1 clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (CoreC-45Context-returnDef (let ((e-9 (vector-ref arg-1 9))) e-9) e-0 e-5))))))))))))(else (let ((sc0 (LibrariesC-45DataC-45NameMap-lookup arg-0 (let ((e-2 (vector-ref arg-1 2))) e-2)))) (if (null? sc0) (lambda (eta-0) (vector 1 '())) (let ((e-1 (unbox sc0))) (CoreC-45Context-lookupCtxtExactI (vector 9 e-1) arg-1)))))))) +(define CoreC-45Context-lookupCtxtExact (lambda (arg-0 arg-1) (case (vector-ref arg-0 0) ((9) (let ((e-0 (vector-ref arg-0 1))) (lambda (eta-0) (CoreC-45Context-case--lookupCtxtExact-2841 e-0 arg-1 (LibrariesC-45DataC-45IntMap-lookup e-0 (let ((e-6 (vector-ref arg-1 6))) e-6)) eta-0))))(else (lambda (eta-0) (let ((act-24 ((CoreC-45Context-lookupCtxtExactI arg-0 arg-1) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (if (null? e-5) (vector 1 '()) (let ((e-1 (unbox e-5))) (let ((e-6 (cdr e-1))) (vector 1 (box e-6)))))))))))))) +(define CoreC-45Context-lookupContextEntry (lambda (arg-0 arg-1) (case (vector-ref arg-0 0) ((9) (let ((e-0 (vector-ref arg-0 1))) (let ((sc1 (LibrariesC-45DataC-45IntMap-lookup e-0 (let ((e-6 (vector-ref arg-1 6))) e-6)))) (if (null? sc1) (let ((u--a (let ((e-4 (vector-ref arg-1 4))) e-4))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox u--a))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (let ((act-25 ((DataC-45IOArray-readArray (cons (vector (vector (lambda (u--b) (lambda (a-0) (lambda (u--func) (lambda (arg-133) (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-1)))))) (lambda (a-0) (lambda (arg-527) (lambda (eta-1) arg-527))) (lambda (u--b) (lambda (a-0) (lambda (arg-528) (lambda (arg-530) (lambda (eta-1) (let ((act-17 (arg-528 eta-1))) (let ((act-16 (arg-530 eta-1))) (act-17 act-16))))))))) (lambda (u--b) (lambda (a-0) (lambda (arg-811) (lambda (arg-812) (lambda (eta-1) (let ((act-25 (arg-811 eta-1))) ((arg-812 act-25) eta-1))))))) (lambda (a-0) (lambda (arg-814) (lambda (eta-1) (let ((act-51 (arg-814 eta-1))) (act-51 eta-1)))))) (lambda (a-0) (lambda (arg-6881) arg-6881))) e-5 e-0) eta-0))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (if (null? e-6) (vector 1 '()) (let ((e-1 (unbox e-6))) (vector 1 (box (cons e-0 e-1))))))))))))))) (let ((e-1 (unbox sc1))) (lambda (eta-0) (vector 1 (box (cons e-0 e-1)))))))))(else (let ((sc0 (LibrariesC-45DataC-45NameMap-lookup arg-0 (let ((e-2 (vector-ref arg-1 2))) e-2)))) (if (null? sc0) (lambda (eta-0) (vector 1 '())) (let ((e-1 (unbox sc0))) (CoreC-45Context-lookupContextEntry (vector 9 e-1) arg-1)))))))) +(define CoreC-45Context-lazyActive (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (set-box! arg-0 (let ((e-0 (vector-ref e-5 0))) (let ((e-1 (vector-ref e-5 1))) (let ((e-2 (vector-ref e-5 2))) (let ((e-3 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-29 (vector-ref e-5 5))) (let ((e-6 (vector-ref e-5 6))) (let ((e-7 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (let ((e-10 (vector-ref e-5 10))) (let ((e-11 (vector-ref e-5 11))) (let ((e-12 (vector-ref e-5 12))) (let ((e-13 (vector-ref e-5 13))) (let ((e-14 (vector-ref e-5 14))) (let ((e-15 (vector-ref e-5 15))) (let ((e-16 (vector-ref e-5 16))) (let ((e-17 (vector-ref e-5 17))) (let ((e-18 (vector-ref e-5 18))) (let ((e-19 (vector-ref e-5 19))) (let ((e-20 (vector-ref e-5 20))) (let ((e-21 (vector-ref e-5 21))) (let ((e-22 (vector-ref e-5 22))) (let ((e-23 (vector-ref e-5 23))) (let ((e-24 (vector-ref e-5 24))) (let ((e-25 (vector-ref e-5 25))) (let ((e-26 (vector-ref e-5 26))) (let ((e-27 (vector-ref e-5 27))) (let ((e-28 (vector-ref e-5 28))) (let ((e-38 (vector-ref e-4 0))) (let ((e-30 (vector-ref e-4 1))) (let ((e-31 (vector-ref e-4 2))) (let ((e-32 (vector-ref e-4 3))) (let ((e-33 (vector-ref e-4 4))) (let ((e-34 (vector-ref e-4 5))) (let ((e-35 (vector-ref e-4 6))) (let ((e-36 (vector-ref e-4 7))) (let ((e-37 (vector-ref e-4 8))) (let ((e-39 (vector-ref e-32 1))) (let ((e-40 (vector-ref e-32 2))) (let ((e-41 (vector-ref e-32 3))) (let ((e-42 (vector-ref e-32 4))) (let ((e-43 (vector-ref e-32 5))) (let ((e-44 (vector-ref e-32 6))) (vector e-0 e-1 e-2 e-3 (vector e-38 e-30 e-31 (vector arg-1 e-39 e-40 e-41 e-42 e-43 e-44) e-33 e-34 e-35 e-36 e-37) e-29 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27 e-28)))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25)))))))) +(define CoreC-45Context-isVisible (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (PreludeC-45Interfaces-any (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (lambda (eta-0) (CoreC-45Context-n--22314-15057-u--visible arg-1 arg-0 eta-0)) (PreludeC-45TypesC-45List-C-43C-43 (CoreC-45NameC-45Namespace-allParents (let ((e-2 (vector-ref e-5 2))) e-2)) (PreludeC-45TypesC-45List-C-43C-43 (let ((e-3 (vector-ref e-5 3))) e-3) (let ((e-0 (vector-ref e-5 0))) (let ((e-33 (vector-ref e-0 7))) e-33)))))))))))) +(define CoreC-45Context-isUnboundImplicits (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (let ((e-4 (vector-ref e-5 4))) (let ((e-35 (vector-ref e-4 3))) (let ((e-44 (vector-ref e-35 1))) e-44)))))))))) +(define CoreC-45Context-isPrefixRecordProjections (lambda (arg-0 ext-0) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-2 (vector-ref eta-0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-0 1))) (vector 1 (let ((e-4 (vector-ref e-5 4))) (let ((e-35 (vector-ref e-4 3))) (let ((e-39 (vector-ref e-35 6))) e-39)))))))) (lambda (eta-0) (let ((act-24 (unbox arg-0))) (vector 1 act-24))) ext-0))) +(define CoreC-45Context-isPairType (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((e-4 (vector-ref e-5 4))) (let ((e-34 (vector-ref e-4 4))) (if (null? e-34) (vector 1 0) (let ((e-39 (unbox e-34))) (let ((act-25 (CoreC-45Context-getFullName arg-0 arg-1 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-40 (vector-ref act-25 1))) (vector 0 e-40))) (else (let ((e-40 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Context-getFullName arg-0 (let ((e-43 (vector-ref e-39 0))) e-43) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-41 (vector-ref act-26 1))) (vector 0 e-41))) (else (let ((e-41 (vector-ref act-26 1))) (vector 1 (CoreC-45Name-u--C-61C-61_Eq_Name e-40 e-41)))))))))))))))))))) +(define CoreC-45Context-isLazyActive (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (let ((e-4 (vector-ref e-5 4))) (let ((e-35 (vector-ref e-4 3))) (let ((e-45 (vector-ref e-35 0))) e-45)))))))))) +(define CoreC-45Context-isHidden (lambda (arg-0 arg-1) (DataC-45Maybe-isJust (LibrariesC-45DataC-45NameMap-lookup arg-0 (let ((e-10 (vector-ref arg-1 10))) e-10))))) +(define CoreC-45Context-isExtension (lambda (arg-0 arg-1) (CoreC-45Options-isExtension arg-0 (let ((e-4 (vector-ref arg-1 4))) e-4)))) +(define CoreC-45Context-isEqualTy (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((e-4 (vector-ref e-5 4))) (let ((e-33 (vector-ref e-4 5))) (if (null? e-33) (vector 1 0) (let ((e-39 (unbox e-33))) (let ((act-25 (CoreC-45Context-getFullName arg-0 arg-1 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-40 (vector-ref act-25 1))) (vector 0 e-40))) (else (let ((e-40 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Context-getFullName arg-0 (let ((e-42 (car e-39))) e-42) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-41 (vector-ref act-26 1))) (vector 0 e-41))) (else (let ((e-41 (vector-ref act-26 1))) (vector 1 (CoreC-45Name-u--C-61C-61_Eq_Name e-40 e-41)))))))))))))))))))) +(define CoreC-45Context-isAllPublic (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (let ((e-0 (vector-ref e-5 0))) (let ((e-32 (vector-ref e-0 8))) e-32))))))))) (define CoreC-45Context-initSize (lambda () (blodwen-toSignedInt 10000 63))) -(define CoreC-45Context-initHash (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-28 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (let ((e-26 (vector-ref sc1 27))) (let ((e-27 (vector-ref sc1 28))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-28 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 (blodwen-toSignedInt 5381 63) e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27)))))))))))))))))))))))))))))))) (vector 1 act-25))))))))) -(define CoreC-45Context-initDefs (lambda (ext-0) (let ((act-24 (CoreC-45Context-initCtxt ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (vector 0 e-5 '() (CoreC-45NameC-45Namespace-mainNS) '() (CoreC-45Options-defaults) (LibrariesC-45DataC-45NameMap-empty) (blodwen-toSignedInt 100 63) (LibrariesC-45DataC-45NameMap-empty) (LibrariesC-45DataC-45NameMap-empty) (LibrariesC-45DataC-45NameMap-empty) (LibrariesC-45DataC-45NameMap-empty) '() '() (LibrariesC-45DataC-45NameMap-empty) '() (CoreC-45Context-initBuiltinTransforms) (LibrariesC-45DataC-45NameMap-empty) (blodwen-toSignedInt 5381 63) '() '() '() '() '() (LibrariesC-45DataC-45NameMap-empty) (LibrariesC-45DataC-45NameMap-empty) (LibrariesC-45DataC-45NameMap-empty) (LibrariesC-45DataC-45StringMap-empty) '()))))))))) -(define CoreC-45Context-initCtxtS (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 ((DataC-45IOArray-newArray (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-0)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-0) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (let ((act-17 (arg-578 eta-0))) (let ((act-16 (arg-580 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (let ((act-24 (arg-876 eta-0))) ((arg-877 act-24) eta-0))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-0) (let ((act-51 (arg-879 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) arg-0) ext-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (CoreC-45Core-newRef (vector "Core.Context.Arr" ) e-5 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 (vector 0 0 0 (LibrariesC-45DataC-45NameMap-empty) (LibrariesC-45DataC-45StringMap-empty) e-6 0 (LibrariesC-45DataC-45IntMap-empty) (cons (CoreC-45NameC-45Namespace-partialEvalNS) '()) 1 1 (LibrariesC-45DataC-45NameMap-empty))))))))))))))) +(define CoreC-45Context-initHash (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (set-box! arg-0 (let ((e-0 (vector-ref e-5 0))) (let ((e-1 (vector-ref e-5 1))) (let ((e-2 (vector-ref e-5 2))) (let ((e-3 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-29 (vector-ref e-5 5))) (let ((e-6 (vector-ref e-5 6))) (let ((e-7 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (let ((e-10 (vector-ref e-5 10))) (let ((e-11 (vector-ref e-5 11))) (let ((e-12 (vector-ref e-5 12))) (let ((e-13 (vector-ref e-5 13))) (let ((e-14 (vector-ref e-5 14))) (let ((e-15 (vector-ref e-5 15))) (let ((e-16 (vector-ref e-5 16))) (let ((e-18 (vector-ref e-5 18))) (let ((e-19 (vector-ref e-5 19))) (let ((e-20 (vector-ref e-5 20))) (let ((e-21 (vector-ref e-5 21))) (let ((e-22 (vector-ref e-5 22))) (let ((e-23 (vector-ref e-5 23))) (let ((e-24 (vector-ref e-5 24))) (let ((e-25 (vector-ref e-5 25))) (let ((e-26 (vector-ref e-5 26))) (let ((e-27 (vector-ref e-5 27))) (let ((e-28 (vector-ref e-5 28))) (vector e-0 e-1 e-2 e-3 e-4 e-29 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 (blodwen-toSignedInt 5381 63) e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27 e-28)))))))))))))))))))))))))))))))) (vector 1 act-25)))))))) +(define CoreC-45Context-initDefs (lambda (ext-0) (let ((act-24 (CoreC-45Context-initCtxt ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector e-5 '() (CoreC-45NameC-45Namespace-mainNS) '() (CoreC-45Options-defaults) (LibrariesC-45DataC-45NameMap-empty) (blodwen-toSignedInt 100 63) (LibrariesC-45DataC-45NameMap-empty) (LibrariesC-45DataC-45NameMap-empty) (LibrariesC-45DataC-45NameMap-empty) (LibrariesC-45DataC-45NameMap-empty) '() '() (LibrariesC-45DataC-45NameMap-empty) '() (CoreC-45Context-initBuiltinTransforms) (LibrariesC-45DataC-45NameMap-empty) (blodwen-toSignedInt 5381 63) '() '() '() '() '() (LibrariesC-45DataC-45NameMap-empty) (LibrariesC-45DataC-45NameMap-empty) (LibrariesC-45DataC-45NameMap-empty) (LibrariesC-45DataC-45StringMap-empty) '() '())))))))) +(define CoreC-45Context-initCtxtS (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 ((DataC-45IOArray-newArray (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-24 (arg-811 eta-0))) ((arg-812 act-24) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-51 (arg-814 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) arg-0) ext-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Core-newRef (vector "Core.Context.Arr" ) e-5 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (vector 0 0 (LibrariesC-45DataC-45NameMap-empty) (LibrariesC-45DataC-45StringMap-empty) e-6 0 (LibrariesC-45DataC-45IntMap-empty) (cons (CoreC-45NameC-45Namespace-partialEvalNS) '()) 0 0 (LibrariesC-45DataC-45NameMap-empty))))))))))))) (define CoreC-45Context-initCtxt (lambda (ext-0) (CoreC-45Context-initCtxtS (CoreC-45Context-initSize) ext-0))) -(define CoreC-45Context-initBuiltinTransforms (lambda () (let ((u--type (vector 0 (CoreC-45NameC-45Namespace-typesNS) (vector 1 "Nat")))) (let ((u--zero (vector 0 (CoreC-45NameC-45Namespace-typesNS) (vector 1 "Z")))) (let ((u--succ (vector 0 (CoreC-45NameC-45Namespace-typesNS) (vector 1 "S")))) (vector 0 (LibrariesC-45DataC-45NameMap-singleton u--type (cons u--zero u--succ)) (LibrariesC-45DataC-45NameMap-singleton u--zero (vector 0 )) (LibrariesC-45DataC-45NameMap-singleton u--succ (vector 0 )))))))) -(define CoreC-45Context-inCurrentNS (lambda (arg-0 arg-1 ext-0) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 3))) e-2)) (vector 1 e-0)))))))))) ((7) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 (let ((sc2 e-5)) (let ((e-29 (vector-ref sc2 3))) e-29)) arg-1)))))))) ((8) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 3))) e-2)) arg-1)))))))) ((6) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc1 1))) (vector 1 (vector 0 (let ((sc2 e-7)) (let ((e-2 (vector-ref sc2 3))) e-2)) arg-1)))))))) ((2) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 3))) e-2)) arg-1)))))))) ((4) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 3))) e-2)) arg-1)))))))) ((5) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 3))) e-2)) arg-1))))))))(else (vector 1 arg-1)))))) -(define CoreC-45Context-holeInit (lambda (arg-0) (cons arg-0 1))) -(define CoreC-45Context-hideName (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 (LibrariesC-45DataC-45NameMap-insert arg-0 (vector 0 ) e-10)))))))))))))))) -(define CoreC-45Context-hide (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtName arg-2 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (if (null? sc2) (CoreC-45Context-undefinedName arg-0 arg-1 arg-2 ext-0) (let ((e-1 (car sc2))) (let ((e-2 (cdr sc2))) (let ((sc3 e-1)) (if (null? sc3) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 17 arg-1 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-fst eta-0)) e-6)) ext-0) (let ((e-8 (car sc3))) (let ((sc4 e-2)) (if (null? sc4) (let ((act-26 (set-box! arg-0 (let ((sc5 e-5)) (let ((e-0 (vector-ref sc5 1))) (let ((e-33 (vector-ref sc5 2))) (let ((e-32 (vector-ref sc5 3))) (let ((e-3 (vector-ref sc5 4))) (let ((e-4 (vector-ref sc5 5))) (let ((e-31 (vector-ref sc5 6))) (let ((e-30 (vector-ref sc5 7))) (let ((e-29 (vector-ref sc5 8))) (let ((e-28 (vector-ref sc5 9))) (let ((e-9 (vector-ref sc5 10))) (let ((e-10 (vector-ref sc5 11))) (let ((e-11 (vector-ref sc5 12))) (let ((e-12 (vector-ref sc5 13))) (let ((e-13 (vector-ref sc5 14))) (let ((e-14 (vector-ref sc5 15))) (let ((e-15 (vector-ref sc5 16))) (let ((e-16 (vector-ref sc5 17))) (let ((e-17 (vector-ref sc5 18))) (let ((e-18 (vector-ref sc5 19))) (let ((e-19 (vector-ref sc5 20))) (let ((e-20 (vector-ref sc5 21))) (let ((e-21 (vector-ref sc5 22))) (let ((e-22 (vector-ref sc5 23))) (let ((e-23 (vector-ref sc5 24))) (let ((e-24 (vector-ref sc5 25))) (let ((e-25 (vector-ref sc5 26))) (let ((e-26 (vector-ref sc5 27))) (let ((e-27 (vector-ref sc5 28))) (vector 0 (CoreC-45Context-hideName e-8 e-0) e-33 e-32 e-3 e-4 e-31 e-30 e-29 e-28 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27))))))))))))))))))))))))))))))))) (vector 1 act-26)) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 17 arg-1 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-fst eta-0)) e-6)) ext-0)))))))))))))))))))))) -(define CoreC-45Context-getWorkingDir (lambda (ext-0) (let ((act-24 (let ((act-24 ((SystemC-45Directory-currentDir (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-0)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-0) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (let ((act-17 (arg-578 eta-0))) (let ((act-16 (arg-580 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (let ((act-24 (arg-876 eta-0))) ((arg-877 act-24) eta-0))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-0) (let ((act-51 (arg-879 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-7803) arg-7803)))) ext-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (vector 1 e-1))) (else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 "Can't get current directory") ext-0))))))))))) -(define CoreC-45Context-getUserHoles (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((u--hs (DataC-45List-sort (vector 0 (cons (lambda (arg-2) (lambda (arg-3) (CoreC-45Name-u--C-61C-61_Eq_Name arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (CoreC-45Name-u--C-47C-61_Eq_Name arg-4 arg-5)))) (lambda (arg-371) (lambda (arg-372) (CoreC-45Name-u--compare_Ord_Name arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (CoreC-45Name-u--C-60_Ord_Name arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (CoreC-45Name-u--C-62_Ord_Name arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (CoreC-45Name-u--C-60C-61_Ord_Name arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (CoreC-45Name-u--C-62C-61_Ord_Name arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (CoreC-45Name-u--max_Ord_Name arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (CoreC-45Name-u--min_Ord_Name arg-383 arg-384)))) (LibrariesC-45DataC-45NameMap-keys (let ((sc1 e-5)) (let ((e-24 (vector-ref sc1 25))) e-24)))))) (CoreC-45Core-filterM (lambda (eta-0) (lambda (eta-1) (CoreC-45Context-n--17145-8891-u--isHole arg-0 e-5 eta-0 eta-1))) u--hs ext-0))))))))) -(define CoreC-45Context-getTotality (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact arg-2 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (vector 1 (let ((sc3 e-1)) (let ((e-10 (vector-ref sc3 11))) e-10))))) (else (CoreC-45Context-undefinedName arg-0 arg-1 arg-2 ext-0)))))))))))))))) -(define CoreC-45Context-getSimilarNames (lambda (arg-0 arg-1) (CoreC-45Context-case--getSimilarNames-8243 arg-1 arg-0 (CoreC-45Name-userNameRoot arg-1)))) -(define CoreC-45Context-getSession (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (let ((sc1 e-5)) (let ((e-4 (vector-ref sc1 5))) (let ((sc2 e-4)) (let ((e-35 (vector-ref sc2 3))) e-35)))))))))))) -(define CoreC-45Context-getSearchData (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (CoreC-45Context-lookupDefExact arg-3 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0)) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((sc3 e-1)) (case (vector-ref sc3 0) ((6) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((e-4 (vector-ref sc3 3))) (let ((e-11 (vector-ref sc3 4))) (let ((e-10 (vector-ref sc3 5))) (let ((e-7 (vector-ref sc3 6))) (let ((e-8 (vector-ref sc3 7))) (let ((e-9 (vector-ref sc3 8))) (let ((act-26 (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) arg-3 ext-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-12 (vector-ref sc4 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc4 1))) (let ((_-0 (vector 1 (vector 6 e-2 e-3 e-4 e-11 e-10 e-7 e-8 e-9)))) (CoreC-45Context-case--caseC-32blockC-32inC-32getSearchData-11511 arg-3 arg-2 arg-1 arg-0 e-5 e-2 e-3 e-4 e-7 e-8 e-9 e-10 e-11 _-0 e-12 (LibrariesC-45DataC-45NameMap-lookup e-12 (let ((sc5 e-5)) (let ((e-33 (vector-ref sc5 8))) e-33))) ext-0))))))))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-12 (vector-ref sc4 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc4 1))) (let ((sc5 arg-2)) (cond ((equal? sc5 0) (let ((act-27 (CoreC-45Core-filterM (lambda (u--x) (lambda (eta-0) (let ((act-27 (CoreC-45Context-n--19945-11419-u--notHidden arg-3 arg-2 arg-1 arg-0 u--x (let ((sc6 e-5)) (let ((e-0 (vector-ref sc6 1))) e-0)) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-13 (vector-ref sc6 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc6 1))) (vector 1 (PreludeC-45Basics-C-38C-38 (CoreC-45Context-n--19945-11420-u--isDefault arg-3 arg-2 arg-1 arg-0 u--x) (lambda () e-13)))))))))) (LibrariesC-45DataC-45NameMap-toList (let ((sc6 e-5)) (let ((e-32 (vector-ref sc6 9))) e-32))) ext-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-13 (vector-ref sc6 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc6 1))) (let ((u--defns (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-fst eta-0)) e-13))) (vector 1 (cons '() (cons (cons 1 u--defns) '())))))))))) (else (let ((act-27 (CoreC-45Core-filterM (lambda (u--x) (lambda (eta-0) (CoreC-45Context-n--19945-11419-u--notHidden arg-3 arg-2 arg-1 arg-0 u--x (let ((sc6 e-5)) (let ((e-0 (vector-ref sc6 1))) e-0)) eta-0))) (LibrariesC-45DataC-45NameMap-toList (let ((sc6 e-5)) (let ((e-31 (vector-ref sc6 10))) e-31))) ext-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-13 (vector-ref sc6 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc6 1))) (let ((u--opens (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-fst eta-0)) e-13))) (let ((act-28 (CoreC-45Core-filterM (lambda (u--x) (lambda (eta-0) (let ((act-28 (CoreC-45Context-n--19945-11419-u--notHidden arg-3 arg-2 arg-1 arg-0 u--x (let ((sc7 e-5)) (let ((e-0 (vector-ref sc7 1))) e-0)) eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-14 (vector-ref sc7 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc7 1))) (vector 1 (PreludeC-45Basics-C-38C-38 (let ((sc8 (CoreC-45Context-n--19945-11420-u--isDefault arg-3 arg-2 arg-1 arg-0 u--x))) (cond ((equal? sc8 0) 1) (else 0))) (lambda () e-14)))))))))) (LibrariesC-45DataC-45NameMap-toList (let ((sc7 e-5)) (let ((e-33 (vector-ref sc7 9))) e-33))) ext-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-14 (vector-ref sc7 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc7 1))) (let ((u--autos (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-fst eta-0)) e-14))) (let ((u--tyhs (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-fst eta-0)) (DataC-45List-filter (lambda (eta-0) (CoreC-45Context-n--19945-11421-u--direct arg-3 arg-2 arg-1 arg-0 eta-0)) e-12)))) (let ((u--chasers (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-fst eta-0)) (DataC-45List-filter (lambda (eta-0) (let ((sc8 (CoreC-45Context-n--19945-11421-u--direct arg-3 arg-2 arg-1 arg-0 eta-0))) (cond ((equal? sc8 0) 1) (else 0)))) e-12)))) (vector 1 (cons e-11 (DataC-45List-filter (lambda (eta-0) (DataC-45List-isCons (Builtin-snd eta-0))) (cons (cons 1 u--opens) (cons (cons 1 u--autos) (cons (cons (let ((sc8 (let ((sc9 e-10)) (let ((e-0 (car sc9))) e-0)))) (cond ((equal? sc8 0) 1) (else 0))) u--tyhs) (cons (cons 0 u--chasers) '()))))))))))))))))))))))))))))))))))))))(else (CoreC-45Context-undefinedName arg-0 arg-1 arg-3 ext-0))))))(else (CoreC-45Context-undefinedName arg-0 arg-1 arg-3 ext-0)))))))))))))))) -(define CoreC-45Context-getRewrite (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (PreludeC-45Types-maybe (lambda () (vector 0 )) (lambda () (lambda (eta-0) (vector 1 (let ((sc1 eta-0)) (let ((e-1 (cdr sc1))) e-1))))) (let ((sc1 e-5)) (let ((e-4 (vector-ref sc1 5))) (let ((sc2 e-4)) (let ((e-32 (vector-ref sc2 6))) e-32))))))))))))) -(define CoreC-45Context-getPrimitiveNames (lambda (arg-0 ext-0) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc0 eta-0)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (CoreC-45Options-primNamesToList e-5))))))) (lambda (eta-0) (CoreC-45Context-getPrimNames arg-0 eta-0)) ext-0))) -(define CoreC-45Context-getPrimNames (lambda (arg-0 ext-0) (CoreC-45Core-C-60C-42C-62 (lambda (eta-0) (CoreC-45Core-C-60C-42C-62 (lambda (eta-1) (CoreC-45Core-C-60C-42C-62 (lambda (eta-2) (CoreC-45Core-C-60C-42C-62 (lambda (eta-3) (vector 1 (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (lambda (eta-7) (vector 0 eta-4 eta-5 eta-6 eta-7))))))) (lambda (eta-3) (CoreC-45Context-fromIntegerName arg-0 eta-3)) eta-2)) (lambda (eta-2) (CoreC-45Context-fromStringName arg-0 eta-2)) eta-1)) (lambda (eta-1) (CoreC-45Context-fromCharName arg-0 eta-1)) eta-0)) (lambda (eta-0) (CoreC-45Context-fromDoubleName arg-0 eta-0)) ext-0))) -(define CoreC-45Context-getPosition (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((9) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (cons e-0 arg-1)))))(else (CoreC-45Context-case--getPosition-2341 arg-1 arg-0 (LibrariesC-45DataC-45NameMap-lookup arg-0 (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 3))) e-2))))))))) -(define CoreC-45Context-getPPrint (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (let ((sc1 e-5)) (let ((e-4 (vector-ref sc1 5))) (let ((sc2 e-4)) (let ((e-36 (vector-ref sc2 2))) e-36)))))))))))) -(define CoreC-45Context-getNextTypeTag (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-28 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (let ((e-26 (vector-ref sc1 27))) (let ((e-27 (vector-ref sc1 28))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-28 (bs+ e-6 1 63) e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27))))))))))))))))))))))))))))))))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (let ((sc2 e-5)) (let ((e-28 (vector-ref sc2 7))) e-28)))))))))))))) -(define CoreC-45Context-getNextEntry (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((sc2 e-0)) (let ((e-38 (vector-ref sc2 2))) e-38)))))))))))) -(define CoreC-45Context-getNestedNS (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (let ((sc1 e-5)) (let ((e-3 (vector-ref sc1 4))) e-3)))))))))) -(define CoreC-45Context-getNameID (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((9) (let ((e-0 (vector-ref sc0 1))) (vector 1 e-0)))(else (LibrariesC-45DataC-45NameMap-lookup arg-0 (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 3))) e-2)))))))) -(define CoreC-45Context-getNS (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 3))) e-2)))))))))) -(define CoreC-45Context-getFullName (lambda (arg-0 arg-1 ext-0) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((9) (let ((e-0 (vector-ref sc0 1))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact (vector 9 e-0) (let ((sc2 e-5)) (let ((e-29 (vector-ref sc2 1))) e-29))) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (vector 1 (let ((sc4 e-1)) (let ((e-23 (vector-ref sc4 2))) e-23))))) (else (vector 1 (vector 9 e-0)))))))))))))))))(else (vector 1 arg-1)))))) -(define CoreC-45Context-getFnName (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (CoreC-45Context-case--getFnName-3776 e-0 e-1 e-2 e-4 e-3 (CoreC-45TT-getFn e-3)))))))))) -(define CoreC-45Context-getDirs (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (let ((sc1 e-5)) (let ((e-4 (vector-ref sc1 5))) (let ((sc2 e-4)) (let ((e-37 (vector-ref sc2 1))) e-37)))))))))))) -(define CoreC-45Context-getDirectives (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (PreludeC-45TypesC-45List-C-43C-43 (let ((sc1 e-5)) (let ((e-4 (vector-ref sc1 5))) (let ((sc2 e-4)) (let ((e-35 (vector-ref sc2 3))) (let ((sc3 e-35)) (let ((e-48 (vector-ref sc3 5))) e-48)))))) (DataC-45List-mapMaybe (lambda (eta-0) (CoreC-45Context-n--22664-13867-u--getDir arg-1 arg-0 eta-0)) (let ((sc1 e-5)) (let ((e-21 (vector-ref sc1 22))) e-21)))))))))))) -(define CoreC-45Context-getDefaultTotalityOption (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (let ((sc1 e-5)) (let ((e-4 (vector-ref sc1 5))) (let ((sc2 e-4)) (let ((e-34 (vector-ref sc2 4))) (let ((sc3 e-34)) (let ((e-42 (vector-ref sc3 3))) e-42)))))))))))))) -(define CoreC-45Context-getContent (lambda (ext-0) (let ((sc0 ext-0)) (let ((e-4 (vector-ref sc0 5))) e-4)))) -(define CoreC-45Context-getAutoImplicitLimit (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (let ((sc1 e-5)) (let ((e-4 (vector-ref sc1 5))) (let ((sc2 e-4)) (let ((e-34 (vector-ref sc2 4))) (let ((sc3 e-34)) (let ((e-40 (vector-ref sc3 5))) e-40)))))))))))))) -(define CoreC-45Context-getAmbigLimit (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (let ((sc1 e-5)) (let ((e-4 (vector-ref sc1 5))) (let ((sc2 e-4)) (let ((e-34 (vector-ref sc2 4))) (let ((sc3 e-34)) (let ((e-41 (vector-ref sc3 4))) e-41)))))))))))))) -(define CoreC-45Context-fstName (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (PreludeC-45Types-maybe (lambda () (vector 0 )) (lambda () (lambda (eta-0) (vector 1 (let ((sc1 eta-0)) (let ((e-1 (vector-ref sc1 2))) e-1))))) (let ((sc1 e-5)) (let ((e-4 (vector-ref sc1 5))) (let ((sc2 e-4)) (let ((e-33 (vector-ref sc2 5))) e-33))))))))))))) -(define CoreC-45Context-fromStringName (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (let ((sc1 e-5)) (let ((e-4 (vector-ref sc1 5))) (let ((sc2 e-4)) (let ((e-31 (vector-ref sc2 7))) (let ((sc3 e-31)) (let ((e-40 (vector-ref sc3 2))) e-40)))))))))))))) -(define CoreC-45Context-fromIntegerName (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (let ((sc1 e-5)) (let ((e-4 (vector-ref sc1 5))) (let ((sc2 e-4)) (let ((e-31 (vector-ref sc2 7))) (let ((sc3 e-31)) (let ((e-41 (vector-ref sc3 1))) e-41)))))))))))))) -(define CoreC-45Context-fromDoubleName (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (let ((sc1 e-5)) (let ((e-4 (vector-ref sc1 5))) (let ((sc2 e-4)) (let ((e-31 (vector-ref sc2 7))) (let ((sc3 e-31)) (let ((e-38 (vector-ref sc3 4))) e-38)))))))))))))) -(define CoreC-45Context-fromCharName (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (let ((sc1 e-5)) (let ((e-4 (vector-ref sc1 5))) (let ((sc2 e-4)) (let ((e-31 (vector-ref sc2 7))) (let ((sc3 e-31)) (let ((e-39 (vector-ref sc3 3))) e-39)))))))))))))) -(define CoreC-45Context-findSetTotal (lambda (arg-0) (let ((sc0 arg-0)) (if (null? sc0) (vector 0 ) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((4) (let ((e-4 (vector-ref sc1 1))) (vector 1 e-4)))(else (CoreC-45Context-findSetTotal e-3)))))))))) -(define CoreC-45Context-extendNS (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-28 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (let ((e-26 (vector-ref sc1 27))) (let ((e-27 (vector-ref sc1 28))) (vector 0 e-0 e-1 (CoreC-45NameC-45Namespace-C-60C-46C-62 e-2 arg-1) e-3 e-4 e-28 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27))))))))))))))))))))))))))))))))) (vector 1 act-25))))))))) -(define CoreC-45Context-dropMutData (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-28 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (let ((e-26 (vector-ref sc1 27))) (let ((e-27 (vector-ref sc1 28))) (vector 0 e-0 (DataC-45List-filter (lambda (arg-2) (CoreC-45Name-u--C-47C-61_Eq_Name arg-2 arg-1)) e-1) e-2 e-3 e-4 e-28 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27))))))))))))))))))))))))))))))))) (vector 1 act-25))))))))) -(define CoreC-45Context-defaultPI (lambda () (cons (vector 0 ) 1))) -(define CoreC-45Context-defaultFlags (lambda () (cons 1 1))) -(define CoreC-45Context-decode (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((act-24 (CoreC-45Core-newRef (vector "Libraries.Utils.Binary.Bin" ) e-0 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_GlobalDef e-5 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((u--a (CoreC-45Context-getContent arg-0))) (let ((act-26 (let ((act-26 (unbox u--a))) (vector 1 act-26)))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (CoreC-45Context-u--resolved_HasNames_GlobalDef arg-0 e-6 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (let ((sc5 arg-2)) (cond ((equal? sc5 0) (let ((act-28 ((DataC-45IOArray-writeArray (cons (vector 0 (vector 0 (lambda (u--b) (lambda (a-0) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-0)))))) (lambda (a-0) (lambda (arg-577) (lambda (eta-0) arg-577))) (lambda (u--b) (lambda (a-0) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (let ((act-17 (arg-578 eta-0))) (let ((act-16 (arg-580 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (a-0) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (let ((act-28 (arg-876 eta-0))) ((arg-877 act-28) eta-0))))))) (lambda (a-0) (lambda (arg-879) (lambda (eta-0) (let ((act-51 (arg-879 eta-0))) (act-51 eta-0)))))) (lambda (a-0) (lambda (arg-7803) arg-7803))) e-7 arg-1 (vector 1 e-8)) ext-0))) (vector 1 act-28))) (else (vector 1 (vector 0 ))))))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (vector 1 e-8)))))))))))))))))))))))))))) (else (let ((e-1 (vector-ref sc0 1))) (vector 1 e-1))))))) -(define CoreC-45Context-commitCtxt (lambda (arg-0) (CoreC-45Context-case--commitCtxt-3594 arg-0 (let ((sc0 arg-0)) (let ((e-5 (vector-ref sc0 6))) e-5))))) -(define CoreC-45Context-commit (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((CoreC-45Context-commitCtxt (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (CoreC-45Context-setCtxt arg-0 e-6 ext-0))))))))))))) -(define CoreC-45Context-clearUserHole (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-28 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (let ((e-26 (vector-ref sc1 27))) (let ((e-27 (vector-ref sc1 28))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-28 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 (LibrariesC-45DataC-45NameMap-delete arg-1 e-24) e-25 e-26 e-27))))))))))))))))))))))))))))))))) (vector 1 act-25))))))))) -(define CoreC-45Context-clearSavedHints (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-28 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (let ((e-26 (vector-ref sc1 27))) (let ((e-27 (vector-ref sc1 28))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-28 e-6 e-7 e-8 e-9 e-10 '() '() e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27))))))))))))))))))))))))))))))) (vector 1 act-25))))))))) -(define CoreC-45Context-clearDefs (lambda (arg-0 ext-0) (vector 1 (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((e-26 (vector-ref sc0 27))) (let ((e-27 (vector-ref sc0 28))) (let ((sc1 e-0)) (let ((e-28 (vector-ref sc1 1))) (let ((e-29 (vector-ref sc1 2))) (let ((e-30 (vector-ref sc1 3))) (let ((e-31 (vector-ref sc1 4))) (let ((e-32 (vector-ref sc1 5))) (let ((e-33 (vector-ref sc1 6))) (let ((e-34 (vector-ref sc1 7))) (let ((e-35 (vector-ref sc1 8))) (let ((e-36 (vector-ref sc1 9))) (let ((e-38 (vector-ref sc1 11))) (vector 0 (vector 0 e-28 e-29 e-30 e-31 e-32 e-33 e-34 e-35 e-36 0 e-38) e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27)))))))))))))))))))))))))))))))))))))))))))) -(define CoreC-45Context-clearCtxt (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (CoreC-45Context-initDefs ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (set-box! arg-0 (let ((sc2 e-6)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (let ((e-3 (vector-ref sc2 4))) (let ((e-29 (vector-ref sc2 6))) (let ((e-28 (vector-ref sc2 7))) (let ((e-7 (vector-ref sc2 8))) (let ((e-8 (vector-ref sc2 9))) (let ((e-9 (vector-ref sc2 10))) (let ((e-10 (vector-ref sc2 11))) (let ((e-11 (vector-ref sc2 12))) (let ((e-12 (vector-ref sc2 13))) (let ((e-13 (vector-ref sc2 14))) (let ((e-14 (vector-ref sc2 15))) (let ((e-15 (vector-ref sc2 16))) (let ((e-16 (vector-ref sc2 17))) (let ((e-17 (vector-ref sc2 18))) (let ((e-18 (vector-ref sc2 19))) (let ((e-19 (vector-ref sc2 20))) (let ((e-20 (vector-ref sc2 21))) (let ((e-21 (vector-ref sc2 22))) (let ((e-22 (vector-ref sc2 23))) (let ((e-23 (vector-ref sc2 24))) (let ((e-24 (vector-ref sc2 25))) (let ((e-25 (vector-ref sc2 26))) (let ((e-27 (vector-ref sc2 28))) (vector 0 e-0 e-1 e-2 e-3 (CoreC-45Context-n--16258-8071-u--resetElab arg-0 (let ((sc3 e-5)) (let ((e-53 (vector-ref sc3 5))) e-53))) e-29 e-28 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 (let ((sc3 e-5)) (let ((e-31 (vector-ref sc3 27))) e-31)) e-27))))))))))))))))))))))))))))))) (vector 1 act-26)))))))))))))) -(define CoreC-45Context-checkUnambig (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (CoreC-45Context-lookupDefName arg-2 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0)) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (if (null? sc2) (CoreC-45Context-undefinedName arg-0 arg-1 arg-2 ext-0) (let ((e-2 (car sc2))) (let ((e-3 (cdr sc2))) (let ((sc3 e-2)) (if (null? sc3) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 17 arg-1 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-fst eta-0)) e-6)) ext-0) (let ((e-7 (cdr sc3))) (let ((sc4 e-7)) (if (null? sc4) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 17 arg-1 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-fst eta-0)) e-6)) ext-0) (let ((e-10 (car sc4))) (let ((sc5 e-3)) (if (null? sc5) (vector 1 (vector 9 e-10)) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 17 arg-1 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-fst eta-0)) e-6)) ext-0))))))))))))))))))))))))) -(define CoreC-45Context-branchCtxt (lambda (arg-0 ext-0) (vector 1 (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (vector 0 e-0 e-1 e-2 e-3 e-4 (+ 1 e-5) e-6 e-7 e-8 e-9 e-10)))))))))))))))) -(define CoreC-45Context-branch (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (CoreC-45Context-branchCtxt (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0)) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (CoreC-45Context-setCtxt arg-0 e-6 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (vector 1 e-5))))))))))))))))) -(define CoreC-45Context-allNames (lambda (arg-0 ext-0) (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (CoreC-45Context-u--full_HasNames_Name arg-0 eta-0 eta-1))) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (vector 9 eta-0)) (PreludeC-45Types-u--rangeFromTo_Range_C-36a (cons (vector 0 (vector 0 (lambda (arg-2) (lambda (arg-3) (bs+ arg-2 arg-3 63))) (lambda (arg-4) (lambda (arg-5) (bs* arg-4 arg-5 63))) (lambda (arg-6) (blodwen-toSignedInt arg-6 63))) (lambda (arg-184) (lambda (arg-185) (PreludeC-45Num-u--div_Integral_Int arg-184 arg-185))) (lambda (arg-186) (lambda (arg-187) (PreludeC-45Num-u--mod_Integral_Int arg-186 arg-187)))) (cons (vector 0 (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Int arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Int arg-383 arg-384)))) (vector 0 (vector 0 (lambda (arg-2) (lambda (arg-3) (bs+ arg-2 arg-3 63))) (lambda (arg-4) (lambda (arg-5) (bs* arg-4 arg-5 63))) (lambda (arg-6) (blodwen-toSignedInt arg-6 63))) (lambda (arg-56) (PreludeC-45Num-u--negate_Neg_Int arg-56)) (lambda (arg-57) (lambda (arg-58) (PreludeC-45Num-u--C-45_Neg_Int arg-57 arg-58)))))) 1 (PreludeC-45Num-u--C-45_Neg_Int (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1)) 1))) '() ext-0))) -(define CoreC-45Context-aliasName (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((CoreC-45Context-case--aliasName-8614 arg-1 arg-0 e-5 (CoreC-45Name-userNameRoot arg-1)) ext-0)))))))) -(define CoreC-45Context-addUserHole (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-28 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (let ((e-26 (vector-ref sc1 27))) (let ((e-27 (vector-ref sc1 28))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-28 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 (LibrariesC-45DataC-45NameMap-insert arg-1 (vector 0 ) e-24) e-25 e-26 e-27))))))))))))))))))))))))))))))))) (vector 1 act-25))))))))) -(define CoreC-45Context-addTransform (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (CoreC-45Context-case--addTransform-13262 arg-2 arg-1 arg-0 e-5 (CoreC-45Context-getFnName arg-2) ext-0)))))))) -(define CoreC-45Context-addToSave (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (CoreC-45Context-u--full_HasNames_Name (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0)) arg-1 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (set-box! arg-0 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (let ((e-3 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-29 (vector-ref sc2 6))) (let ((e-28 (vector-ref sc2 7))) (let ((e-7 (vector-ref sc2 8))) (let ((e-8 (vector-ref sc2 9))) (let ((e-9 (vector-ref sc2 10))) (let ((e-10 (vector-ref sc2 11))) (let ((e-11 (vector-ref sc2 12))) (let ((e-12 (vector-ref sc2 13))) (let ((e-13 (vector-ref sc2 14))) (let ((e-14 (vector-ref sc2 15))) (let ((e-15 (vector-ref sc2 16))) (let ((e-16 (vector-ref sc2 17))) (let ((e-17 (vector-ref sc2 18))) (let ((e-18 (vector-ref sc2 19))) (let ((e-19 (vector-ref sc2 20))) (let ((e-20 (vector-ref sc2 21))) (let ((e-21 (vector-ref sc2 22))) (let ((e-22 (vector-ref sc2 23))) (let ((e-23 (vector-ref sc2 24))) (let ((e-24 (vector-ref sc2 25))) (let ((e-25 (vector-ref sc2 26))) (let ((e-26 (vector-ref sc2 27))) (let ((e-27 (vector-ref sc2 28))) (vector 0 e-0 e-1 e-2 e-3 e-4 (LibrariesC-45DataC-45NameMap-insert e-6 (vector 0 ) e-29) e-28 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 (LibrariesC-45DataC-45NameMap-insert e-6 (vector 0 ) e-23) e-24 e-25 e-26 e-27))))))))))))))))))))))))))))))))) (vector 1 act-26)))))))))))))) -(define CoreC-45Context-addPossible (lambda (arg-0 arg-1 arg-2) (CoreC-45Context-case--addPossible-2125 arg-2 arg-1 arg-0 (CoreC-45Name-userNameRoot arg-0)))) -(define CoreC-45Context-addPackageDir (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-28 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (let ((e-26 (vector-ref sc1 27))) (let ((e-27 (vector-ref sc1 28))) (let ((sc2 e-4)) (let ((e-37 (vector-ref sc2 1))) (let ((e-29 (vector-ref sc2 2))) (let ((e-30 (vector-ref sc2 3))) (let ((e-31 (vector-ref sc2 4))) (let ((e-32 (vector-ref sc2 5))) (let ((e-33 (vector-ref sc2 6))) (let ((e-34 (vector-ref sc2 7))) (let ((e-35 (vector-ref sc2 8))) (let ((e-36 (vector-ref sc2 9))) (let ((sc3 e-37)) (let ((e-47 (vector-ref sc3 1))) (let ((e-38 (vector-ref sc3 2))) (let ((e-39 (vector-ref sc3 3))) (let ((e-40 (vector-ref sc3 4))) (let ((e-41 (vector-ref sc3 5))) (let ((e-42 (vector-ref sc3 6))) (let ((e-43 (vector-ref sc3 7))) (let ((e-44 (vector-ref sc3 8))) (let ((e-45 (vector-ref sc3 9))) (let ((e-46 (vector-ref sc3 10))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 (vector 0 e-47 e-38 e-39 e-40 e-41 e-42 e-43 (PreludeC-45TypesC-45List-C-43C-43 e-44 (cons arg-1 '())) e-45 e-46) e-29 e-30 e-31 e-32 e-33 e-34 e-35 e-36) e-28 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27)))))))))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25))))))))) -(define CoreC-45Context-addOpenHint (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (CoreC-45Context-toResolvedNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) arg-1 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (set-box! arg-0 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (let ((e-3 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-29 (vector-ref sc2 6))) (let ((e-28 (vector-ref sc2 7))) (let ((e-7 (vector-ref sc2 8))) (let ((e-8 (vector-ref sc2 9))) (let ((e-9 (vector-ref sc2 10))) (let ((e-10 (vector-ref sc2 11))) (let ((e-11 (vector-ref sc2 12))) (let ((e-12 (vector-ref sc2 13))) (let ((e-13 (vector-ref sc2 14))) (let ((e-14 (vector-ref sc2 15))) (let ((e-15 (vector-ref sc2 16))) (let ((e-16 (vector-ref sc2 17))) (let ((e-17 (vector-ref sc2 18))) (let ((e-18 (vector-ref sc2 19))) (let ((e-19 (vector-ref sc2 20))) (let ((e-20 (vector-ref sc2 21))) (let ((e-21 (vector-ref sc2 22))) (let ((e-22 (vector-ref sc2 23))) (let ((e-23 (vector-ref sc2 24))) (let ((e-24 (vector-ref sc2 25))) (let ((e-25 (vector-ref sc2 26))) (let ((e-26 (vector-ref sc2 27))) (let ((e-27 (vector-ref sc2 28))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-29 e-28 e-7 e-8 (LibrariesC-45DataC-45NameMap-insert e-6 (vector 0 ) e-9) e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27))))))))))))))))))))))))))))))))) (vector 1 act-26)))))))))))))) -(define CoreC-45Context-addNameDirective (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (CoreC-45Context-checkUnambig arg-0 arg-1 arg-2 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (set-box! arg-0 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (let ((e-3 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-29 (vector-ref sc2 6))) (let ((e-28 (vector-ref sc2 7))) (let ((e-7 (vector-ref sc2 8))) (let ((e-8 (vector-ref sc2 9))) (let ((e-9 (vector-ref sc2 10))) (let ((e-10 (vector-ref sc2 11))) (let ((e-11 (vector-ref sc2 12))) (let ((e-12 (vector-ref sc2 13))) (let ((e-13 (vector-ref sc2 14))) (let ((e-14 (vector-ref sc2 15))) (let ((e-15 (vector-ref sc2 16))) (let ((e-16 (vector-ref sc2 17))) (let ((e-17 (vector-ref sc2 18))) (let ((e-18 (vector-ref sc2 19))) (let ((e-19 (vector-ref sc2 20))) (let ((e-20 (vector-ref sc2 21))) (let ((e-21 (vector-ref sc2 22))) (let ((e-22 (vector-ref sc2 23))) (let ((e-23 (vector-ref sc2 24))) (let ((e-24 (vector-ref sc2 25))) (let ((e-25 (vector-ref sc2 26))) (let ((e-26 (vector-ref sc2 27))) (let ((e-27 (vector-ref sc2 28))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-29 e-28 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 (LibrariesC-45DataC-45NameMap-insert e-6 arg-3 e-16) e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27))))))))))))))))))))))))))))))))) (vector 1 act-26)))))))))))))) -(define CoreC-45Context-addName (lambda (arg-0 arg-1 ext-0) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((9) (let ((e-0 (vector-ref sc0 1))) (vector 1 e-0)))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((CoreC-45Context-newEntry arg-1 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (let ((e-2 (car sc2))) (let ((e-3 (cdr sc2))) (let ((act-26 (CoreC-45Context-setCtxt arg-0 e-3 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (vector 1 e-2))))))))))))))))))))))) -(define CoreC-45Context-addMutData (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-28 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (let ((e-26 (vector-ref sc1 27))) (let ((e-27 (vector-ref sc1 28))) (vector 0 e-0 (cons arg-1 e-1) e-2 e-3 e-4 e-28 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27))))))))))))))))))))))))))))))))) (vector 1 act-25))))))))) -(define CoreC-45Context-addLogLevel (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) (let ((act-25 (set-box! arg-0 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (let ((e-3 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-28 (vector-ref sc2 6))) (let ((e-6 (vector-ref sc2 7))) (let ((e-7 (vector-ref sc2 8))) (let ((e-8 (vector-ref sc2 9))) (let ((e-9 (vector-ref sc2 10))) (let ((e-10 (vector-ref sc2 11))) (let ((e-11 (vector-ref sc2 12))) (let ((e-12 (vector-ref sc2 13))) (let ((e-13 (vector-ref sc2 14))) (let ((e-14 (vector-ref sc2 15))) (let ((e-15 (vector-ref sc2 16))) (let ((e-16 (vector-ref sc2 17))) (let ((e-17 (vector-ref sc2 18))) (let ((e-18 (vector-ref sc2 19))) (let ((e-19 (vector-ref sc2 20))) (let ((e-20 (vector-ref sc2 21))) (let ((e-21 (vector-ref sc2 22))) (let ((e-22 (vector-ref sc2 23))) (let ((e-23 (vector-ref sc2 24))) (let ((e-24 (vector-ref sc2 25))) (let ((e-25 (vector-ref sc2 26))) (let ((e-26 (vector-ref sc2 27))) (let ((e-27 (vector-ref sc2 28))) (let ((sc3 e-4)) (let ((e-37 (vector-ref sc3 1))) (let ((e-29 (vector-ref sc3 2))) (let ((e-30 (vector-ref sc3 3))) (let ((e-31 (vector-ref sc3 4))) (let ((e-32 (vector-ref sc3 5))) (let ((e-33 (vector-ref sc3 6))) (let ((e-34 (vector-ref sc3 7))) (let ((e-35 (vector-ref sc3 8))) (let ((e-36 (vector-ref sc3 9))) (let ((sc4 e-30)) (let ((e-52 (vector-ref sc4 1))) (let ((e-38 (vector-ref sc4 2))) (let ((e-39 (vector-ref sc4 3))) (let ((e-40 (vector-ref sc4 4))) (let ((e-41 (vector-ref sc4 5))) (let ((e-44 (vector-ref sc4 8))) (let ((e-45 (vector-ref sc4 9))) (let ((e-46 (vector-ref sc4 10))) (let ((e-47 (vector-ref sc4 11))) (let ((e-48 (vector-ref sc4 12))) (let ((e-49 (vector-ref sc4 13))) (let ((e-50 (vector-ref sc4 14))) (let ((e-51 (vector-ref sc4 15))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-37 e-29 (vector 0 e-52 e-38 e-39 e-40 e-41 0 (CoreC-45OptionsC-45Log-defaultLogLevel) e-44 e-45 e-46 e-47 e-48 e-49 e-50 e-51) e-31 e-32 e-33 e-34 e-35 e-36) e-28 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25))) (else (let ((e-2 (vector-ref sc1 1))) (let ((act-25 (set-box! arg-0 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-29 (vector-ref sc2 3))) (let ((e-3 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-28 (vector-ref sc2 6))) (let ((e-6 (vector-ref sc2 7))) (let ((e-7 (vector-ref sc2 8))) (let ((e-8 (vector-ref sc2 9))) (let ((e-9 (vector-ref sc2 10))) (let ((e-10 (vector-ref sc2 11))) (let ((e-11 (vector-ref sc2 12))) (let ((e-12 (vector-ref sc2 13))) (let ((e-13 (vector-ref sc2 14))) (let ((e-14 (vector-ref sc2 15))) (let ((e-15 (vector-ref sc2 16))) (let ((e-16 (vector-ref sc2 17))) (let ((e-17 (vector-ref sc2 18))) (let ((e-18 (vector-ref sc2 19))) (let ((e-19 (vector-ref sc2 20))) (let ((e-20 (vector-ref sc2 21))) (let ((e-21 (vector-ref sc2 22))) (let ((e-22 (vector-ref sc2 23))) (let ((e-23 (vector-ref sc2 24))) (let ((e-24 (vector-ref sc2 25))) (let ((e-25 (vector-ref sc2 26))) (let ((e-26 (vector-ref sc2 27))) (let ((e-27 (vector-ref sc2 28))) (let ((sc3 e-4)) (let ((e-38 (vector-ref sc3 1))) (let ((e-37 (vector-ref sc3 2))) (let ((e-30 (vector-ref sc3 3))) (let ((e-31 (vector-ref sc3 4))) (let ((e-32 (vector-ref sc3 5))) (let ((e-33 (vector-ref sc3 6))) (let ((e-34 (vector-ref sc3 7))) (let ((e-35 (vector-ref sc3 8))) (let ((e-36 (vector-ref sc3 9))) (let ((sc4 e-30)) (let ((e-53 (vector-ref sc4 1))) (let ((e-52 (vector-ref sc4 2))) (let ((e-39 (vector-ref sc4 3))) (let ((e-40 (vector-ref sc4 4))) (let ((e-41 (vector-ref sc4 5))) (let ((e-43 (vector-ref sc4 7))) (let ((e-44 (vector-ref sc4 8))) (let ((e-45 (vector-ref sc4 9))) (let ((e-46 (vector-ref sc4 10))) (let ((e-47 (vector-ref sc4 11))) (let ((e-48 (vector-ref sc4 12))) (let ((e-49 (vector-ref sc4 13))) (let ((e-50 (vector-ref sc4 14))) (let ((e-51 (vector-ref sc4 15))) (vector 0 e-0 e-1 e-29 e-3 (vector 0 e-38 e-37 (vector 0 e-53 e-52 e-39 e-40 e-41 0 (CoreC-45OptionsC-45Log-insertLogLevel e-2 e-43) e-44 e-45 e-46 e-47 e-48 e-49 e-50 e-51) e-31 e-32 e-33 e-34 e-35 e-36) e-28 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27)))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25))))))))))))) -(define CoreC-45Context-addLocalHint (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (CoreC-45Context-toResolvedNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) arg-1 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (set-box! arg-0 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (let ((e-3 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-29 (vector-ref sc2 6))) (let ((e-28 (vector-ref sc2 7))) (let ((e-7 (vector-ref sc2 8))) (let ((e-8 (vector-ref sc2 9))) (let ((e-9 (vector-ref sc2 10))) (let ((e-10 (vector-ref sc2 11))) (let ((e-11 (vector-ref sc2 12))) (let ((e-12 (vector-ref sc2 13))) (let ((e-13 (vector-ref sc2 14))) (let ((e-14 (vector-ref sc2 15))) (let ((e-15 (vector-ref sc2 16))) (let ((e-16 (vector-ref sc2 17))) (let ((e-17 (vector-ref sc2 18))) (let ((e-18 (vector-ref sc2 19))) (let ((e-19 (vector-ref sc2 20))) (let ((e-20 (vector-ref sc2 21))) (let ((e-21 (vector-ref sc2 22))) (let ((e-22 (vector-ref sc2 23))) (let ((e-23 (vector-ref sc2 24))) (let ((e-24 (vector-ref sc2 25))) (let ((e-25 (vector-ref sc2 26))) (let ((e-26 (vector-ref sc2 27))) (let ((e-27 (vector-ref sc2 28))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-29 e-28 e-7 e-8 e-9 (LibrariesC-45DataC-45NameMap-insert e-6 (vector 0 ) e-10) e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27))))))))))))))))))))))))))))))))) (vector 1 act-26)))))))))))))) -(define CoreC-45Context-addLibDir (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-28 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (let ((e-26 (vector-ref sc1 27))) (let ((e-27 (vector-ref sc1 28))) (let ((sc2 e-4)) (let ((e-37 (vector-ref sc2 1))) (let ((e-29 (vector-ref sc2 2))) (let ((e-30 (vector-ref sc2 3))) (let ((e-31 (vector-ref sc2 4))) (let ((e-32 (vector-ref sc2 5))) (let ((e-33 (vector-ref sc2 6))) (let ((e-34 (vector-ref sc2 7))) (let ((e-35 (vector-ref sc2 8))) (let ((e-36 (vector-ref sc2 9))) (let ((sc3 e-37)) (let ((e-47 (vector-ref sc3 1))) (let ((e-38 (vector-ref sc3 2))) (let ((e-39 (vector-ref sc3 3))) (let ((e-40 (vector-ref sc3 4))) (let ((e-41 (vector-ref sc3 5))) (let ((e-42 (vector-ref sc3 6))) (let ((e-43 (vector-ref sc3 7))) (let ((e-44 (vector-ref sc3 8))) (let ((e-45 (vector-ref sc3 9))) (let ((e-46 (vector-ref sc3 10))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 (vector 0 e-47 e-38 e-39 e-40 e-41 e-42 e-43 e-44 (PreludeC-45TypesC-45List-C-43C-43 e-45 (cons arg-1 '())) e-46) e-29 e-30 e-31 e-32 e-33 e-34 e-35 e-36) e-28 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27)))))))))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25))))))))) -(define CoreC-45Context-addImported (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-28 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (let ((e-26 (vector-ref sc1 27))) (let ((e-27 (vector-ref sc1 28))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-28 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 (cons arg-1 e-19) e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27))))))))))))))))))))))))))))))))) (vector 1 act-25))))))))) -(define CoreC-45Context-addHintFor (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) arg-2 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (CoreC-45Context-toResolvedNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) arg-3 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((u--hs (CoreC-45Context-case--addHintFor-12696 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 e-7 (LibrariesC-45DataC-45NameMap-lookup e-6 (let ((sc3 e-5)) (let ((e-28 (vector-ref sc3 8))) e-28)))))) (let ((sc3 arg-5)) (cond ((equal? sc3 0) (let ((act-27 (set-box! arg-0 (let ((sc4 e-5)) (let ((e-0 (vector-ref sc4 1))) (let ((e-1 (vector-ref sc4 2))) (let ((e-2 (vector-ref sc4 3))) (let ((e-3 (vector-ref sc4 4))) (let ((e-4 (vector-ref sc4 5))) (let ((e-30 (vector-ref sc4 6))) (let ((e-29 (vector-ref sc4 7))) (let ((e-28 (vector-ref sc4 8))) (let ((e-8 (vector-ref sc4 9))) (let ((e-9 (vector-ref sc4 10))) (let ((e-10 (vector-ref sc4 11))) (let ((e-11 (vector-ref sc4 12))) (let ((e-12 (vector-ref sc4 13))) (let ((e-13 (vector-ref sc4 14))) (let ((e-14 (vector-ref sc4 15))) (let ((e-15 (vector-ref sc4 16))) (let ((e-16 (vector-ref sc4 17))) (let ((e-17 (vector-ref sc4 18))) (let ((e-18 (vector-ref sc4 19))) (let ((e-19 (vector-ref sc4 20))) (let ((e-20 (vector-ref sc4 21))) (let ((e-21 (vector-ref sc4 22))) (let ((e-22 (vector-ref sc4 23))) (let ((e-23 (vector-ref sc4 24))) (let ((e-24 (vector-ref sc4 25))) (let ((e-25 (vector-ref sc4 26))) (let ((e-26 (vector-ref sc4 27))) (let ((e-27 (vector-ref sc4 28))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-30 e-29 (LibrariesC-45DataC-45NameMap-insert e-6 (cons (cons e-7 arg-4) u--hs) e-28) e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27))))))))))))))))))))))))))))))))) (vector 1 act-27))) (else (let ((act-27 (set-box! arg-0 (let ((sc4 e-5)) (let ((e-0 (vector-ref sc4 1))) (let ((e-1 (vector-ref sc4 2))) (let ((e-2 (vector-ref sc4 3))) (let ((e-3 (vector-ref sc4 4))) (let ((e-4 (vector-ref sc4 5))) (let ((e-30 (vector-ref sc4 6))) (let ((e-29 (vector-ref sc4 7))) (let ((e-28 (vector-ref sc4 8))) (let ((e-8 (vector-ref sc4 9))) (let ((e-9 (vector-ref sc4 10))) (let ((e-10 (vector-ref sc4 11))) (let ((e-11 (vector-ref sc4 12))) (let ((e-12 (vector-ref sc4 13))) (let ((e-13 (vector-ref sc4 14))) (let ((e-14 (vector-ref sc4 15))) (let ((e-15 (vector-ref sc4 16))) (let ((e-16 (vector-ref sc4 17))) (let ((e-17 (vector-ref sc4 18))) (let ((e-18 (vector-ref sc4 19))) (let ((e-19 (vector-ref sc4 20))) (let ((e-20 (vector-ref sc4 21))) (let ((e-21 (vector-ref sc4 22))) (let ((e-22 (vector-ref sc4 23))) (let ((e-23 (vector-ref sc4 24))) (let ((e-24 (vector-ref sc4 25))) (let ((e-25 (vector-ref sc4 26))) (let ((e-26 (vector-ref sc4 27))) (let ((e-27 (vector-ref sc4 28))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-30 e-29 (LibrariesC-45DataC-45NameMap-insert e-6 (cons (cons e-7 arg-4) u--hs) e-28) e-8 e-9 e-10 (cons (cons e-6 (cons e-7 arg-4)) e-11) e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27))))))))))))))))))))))))))))))))) (vector 1 act-27))))))))))))))))))))))) -(define CoreC-45Context-addHashWithNames (lambda (arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (CoreC-45Context-toFullNames arg-1 arg-3 arg-4 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (CoreC-45Context-addHash arg-1 arg-2 e-5 ext-0)))))))) -(define CoreC-45Context-addHash (lambda (arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-1 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-28 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (let ((e-26 (vector-ref sc1 27))) (let ((e-27 (vector-ref sc1 28))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-28 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 (let ((sc2 arg-2)) (let ((e-29 (cdr sc2))) ((e-29 (let ((sc3 e-5)) (let ((e-41 (vector-ref sc3 18))) e-41))) arg-3))) e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27)))))))))))))))))))))))))))))))) (vector 1 act-25))))))))) -(define CoreC-45Context-addGlobalHint (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (CoreC-45Context-toResolvedNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) arg-1 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (set-box! arg-0 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (let ((e-3 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-29 (vector-ref sc2 6))) (let ((e-28 (vector-ref sc2 7))) (let ((e-7 (vector-ref sc2 8))) (let ((e-8 (vector-ref sc2 9))) (let ((e-9 (vector-ref sc2 10))) (let ((e-10 (vector-ref sc2 11))) (let ((e-11 (vector-ref sc2 12))) (let ((e-12 (vector-ref sc2 13))) (let ((e-13 (vector-ref sc2 14))) (let ((e-14 (vector-ref sc2 15))) (let ((e-15 (vector-ref sc2 16))) (let ((e-16 (vector-ref sc2 17))) (let ((e-17 (vector-ref sc2 18))) (let ((e-18 (vector-ref sc2 19))) (let ((e-19 (vector-ref sc2 20))) (let ((e-20 (vector-ref sc2 21))) (let ((e-21 (vector-ref sc2 22))) (let ((e-22 (vector-ref sc2 23))) (let ((e-23 (vector-ref sc2 24))) (let ((e-24 (vector-ref sc2 25))) (let ((e-25 (vector-ref sc2 26))) (let ((e-26 (vector-ref sc2 27))) (let ((e-27 (vector-ref sc2 28))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-29 e-28 e-7 (LibrariesC-45DataC-45NameMap-insert e-6 arg-2 e-8) e-9 e-10 e-11 (cons (cons e-6 arg-2) e-12) e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27))))))))))))))))))))))))))))))))) (vector 1 act-26)))))))))))))) -(define CoreC-45Context-addExtraDir (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-28 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (let ((e-26 (vector-ref sc1 27))) (let ((e-27 (vector-ref sc1 28))) (let ((sc2 e-4)) (let ((e-37 (vector-ref sc2 1))) (let ((e-29 (vector-ref sc2 2))) (let ((e-30 (vector-ref sc2 3))) (let ((e-31 (vector-ref sc2 4))) (let ((e-32 (vector-ref sc2 5))) (let ((e-33 (vector-ref sc2 6))) (let ((e-34 (vector-ref sc2 7))) (let ((e-35 (vector-ref sc2 8))) (let ((e-36 (vector-ref sc2 9))) (let ((sc3 e-37)) (let ((e-47 (vector-ref sc3 1))) (let ((e-38 (vector-ref sc3 2))) (let ((e-39 (vector-ref sc3 3))) (let ((e-40 (vector-ref sc3 4))) (let ((e-41 (vector-ref sc3 5))) (let ((e-42 (vector-ref sc3 6))) (let ((e-43 (vector-ref sc3 7))) (let ((e-44 (vector-ref sc3 8))) (let ((e-45 (vector-ref sc3 9))) (let ((e-46 (vector-ref sc3 10))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 (vector 0 e-47 e-38 e-39 e-40 e-41 e-42 (PreludeC-45TypesC-45List-C-43C-43 e-43 (cons arg-1 '())) e-44 e-45 e-46) e-29 e-30 e-31 e-32 e-33 e-34 e-35 e-36) e-28 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27)))))))))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25))))))))) -(define CoreC-45Context-addEntry (lambda (arg-0 arg-1 arg-2 ext-0) (CoreC-45Context-case--addEntry-2549 arg-2 arg-1 arg-0 (PreludeC-45Types-u--C-61C-61_Eq_Nat (let ((sc0 arg-2)) (let ((e-5 (vector-ref sc0 6))) e-5)) (PreludeC-45Types-u--fromInteger_Num_Nat 0)) ext-0))) -(define CoreC-45Context-addDirective (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (CoreC-45Context-case--addDirective-13779 arg-0 arg-2 arg-1 e-5 (CoreC-45Options-getCG (let ((sc1 e-5)) (let ((e-4 (vector-ref sc1 5))) e-4)) arg-1) ext-0)))))))) -(define CoreC-45Context-addDef (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (CoreC-45Context-addCtxt arg-1 arg-2 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0)) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (let ((e-2 (car sc2))) (let ((e-3 (cdr sc2))) (let ((act-26 (let ((act-26 (set-box! arg-0 (let ((sc3 e-5)) (let ((e-1 (vector-ref sc3 2))) (let ((e-31 (vector-ref sc3 3))) (let ((e-30 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-29 (vector-ref sc3 6))) (let ((e-28 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (let ((e-11 (vector-ref sc3 12))) (let ((e-12 (vector-ref sc3 13))) (let ((e-13 (vector-ref sc3 14))) (let ((e-14 (vector-ref sc3 15))) (let ((e-15 (vector-ref sc3 16))) (let ((e-16 (vector-ref sc3 17))) (let ((e-17 (vector-ref sc3 18))) (let ((e-18 (vector-ref sc3 19))) (let ((e-19 (vector-ref sc3 20))) (let ((e-20 (vector-ref sc3 21))) (let ((e-21 (vector-ref sc3 22))) (let ((e-22 (vector-ref sc3 23))) (let ((e-23 (vector-ref sc3 24))) (let ((e-24 (vector-ref sc3 25))) (let ((e-25 (vector-ref sc3 26))) (let ((e-26 (vector-ref sc3 27))) (let ((e-27 (vector-ref sc3 28))) (vector 0 e-3 e-1 e-31 e-30 e-4 e-29 e-28 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27)))))))))))))))))))))))))))))))) (vector 1 act-26)))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((act-27 (let ((_-0 (cons e-2 e-3))) (CoreC-45Context-case--caseC-32blockC-32inC-32addDef-9030 arg-2 arg-1 arg-0 e-5 e-2 e-3 _-0 (let ((sc4 arg-2)) (let ((e-17 (vector-ref sc4 18))) e-17)) ext-0)))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (vector 1 e-2)))))))))))))))))))))))) -(define CoreC-45Context-addDataDir (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-28 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (let ((e-26 (vector-ref sc1 27))) (let ((e-27 (vector-ref sc1 28))) (let ((sc2 e-4)) (let ((e-37 (vector-ref sc2 1))) (let ((e-29 (vector-ref sc2 2))) (let ((e-30 (vector-ref sc2 3))) (let ((e-31 (vector-ref sc2 4))) (let ((e-32 (vector-ref sc2 5))) (let ((e-33 (vector-ref sc2 6))) (let ((e-34 (vector-ref sc2 7))) (let ((e-35 (vector-ref sc2 8))) (let ((e-36 (vector-ref sc2 9))) (let ((sc3 e-37)) (let ((e-47 (vector-ref sc3 1))) (let ((e-38 (vector-ref sc3 2))) (let ((e-39 (vector-ref sc3 3))) (let ((e-40 (vector-ref sc3 4))) (let ((e-41 (vector-ref sc3 5))) (let ((e-42 (vector-ref sc3 6))) (let ((e-43 (vector-ref sc3 7))) (let ((e-44 (vector-ref sc3 8))) (let ((e-45 (vector-ref sc3 9))) (let ((e-46 (vector-ref sc3 10))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 (vector 0 e-47 e-38 e-39 e-40 e-41 e-42 e-43 e-44 e-45 (PreludeC-45TypesC-45List-C-43C-43 e-46 (cons arg-1 '()))) e-29 e-30 e-31 e-32 e-33 e-34 e-35 e-36) e-28 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27)))))))))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25))))))))) -(define CoreC-45Context-addCtxt (lambda (arg-0 arg-1 arg-2 ext-0) (CoreC-45Context-case--addCtxt-2427 arg-2 arg-1 arg-0 (PreludeC-45Types-u--C-61C-61_Eq_Nat (let ((sc0 arg-2)) (let ((e-5 (vector-ref sc0 6))) e-5)) (PreludeC-45Types-u--fromInteger_Num_Nat 0)) ext-0))) -(define CoreC-45Context-addContextEntry (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (CoreC-45Context-addEntry arg-1 (vector 0 arg-2) (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0)) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (let ((e-2 (car sc2))) (let ((e-3 (cdr sc2))) (let ((act-26 (let ((act-26 (set-box! arg-0 (let ((sc3 e-5)) (let ((e-1 (vector-ref sc3 2))) (let ((e-31 (vector-ref sc3 3))) (let ((e-30 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-29 (vector-ref sc3 6))) (let ((e-28 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (let ((e-11 (vector-ref sc3 12))) (let ((e-12 (vector-ref sc3 13))) (let ((e-13 (vector-ref sc3 14))) (let ((e-14 (vector-ref sc3 15))) (let ((e-15 (vector-ref sc3 16))) (let ((e-16 (vector-ref sc3 17))) (let ((e-17 (vector-ref sc3 18))) (let ((e-18 (vector-ref sc3 19))) (let ((e-19 (vector-ref sc3 20))) (let ((e-20 (vector-ref sc3 21))) (let ((e-21 (vector-ref sc3 22))) (let ((e-22 (vector-ref sc3 23))) (let ((e-23 (vector-ref sc3 24))) (let ((e-24 (vector-ref sc3 25))) (let ((e-25 (vector-ref sc3 26))) (let ((e-26 (vector-ref sc3 27))) (let ((e-27 (vector-ref sc3 28))) (vector 0 e-3 e-1 e-31 e-30 e-4 e-29 e-28 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27)))))))))))))))))))))))))))))))) (vector 1 act-26)))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (vector 1 e-2)))))))))))))))))))) -(define CoreC-45Context-addContextAlias (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact arg-1 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((0) (let ((act-26 (CoreC-45Context-newAlias arg-1 arg-2 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) e-0)) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (set-box! arg-0 (let ((sc4 e-5)) (let ((e-1 (vector-ref sc4 2))) (let ((e-2 (vector-ref sc4 3))) (let ((e-3 (vector-ref sc4 4))) (let ((e-4 (vector-ref sc4 5))) (let ((e-30 (vector-ref sc4 6))) (let ((e-29 (vector-ref sc4 7))) (let ((e-28 (vector-ref sc4 8))) (let ((e-8 (vector-ref sc4 9))) (let ((e-9 (vector-ref sc4 10))) (let ((e-10 (vector-ref sc4 11))) (let ((e-11 (vector-ref sc4 12))) (let ((e-12 (vector-ref sc4 13))) (let ((e-13 (vector-ref sc4 14))) (let ((e-14 (vector-ref sc4 15))) (let ((e-15 (vector-ref sc4 16))) (let ((e-16 (vector-ref sc4 17))) (let ((e-17 (vector-ref sc4 18))) (let ((e-18 (vector-ref sc4 19))) (let ((e-19 (vector-ref sc4 20))) (let ((e-20 (vector-ref sc4 21))) (let ((e-21 (vector-ref sc4 22))) (let ((e-22 (vector-ref sc4 23))) (let ((e-23 (vector-ref sc4 24))) (let ((e-24 (vector-ref sc4 25))) (let ((e-25 (vector-ref sc4 26))) (let ((e-26 (vector-ref sc4 27))) (let ((e-27 (vector-ref sc4 28))) (vector 0 e-7 e-1 e-2 e-3 e-4 e-30 e-29 e-28 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27)))))))))))))))))))))))))))))))) (vector 1 act-27))))))))(else (vector 1 (vector 0 ))))))))))))))))) -(define CoreC-45Context-addBuiltin (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc0 eta-0)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))) (lambda (eta-0) (CoreC-45Context-addDef arg-1 arg-2 (vector 0 (CoreC-45FC-emptyFC) arg-2 arg-3 '() '() '() '() (AlgebraC-45ZeroOneOmega-u--top_Top_ZeroOneOmega) '() (vector 2 ) arg-4 (cons (vector 0 ) '()) (vector 0 ) (vector 0 ) 1 1 0 (vector 4 arg-0 arg-5) (vector 0 ) (vector 0 ) '()) eta-0)) ext-0))) -(define CoreC-45Context-addAlias (lambda (arg-0 arg-1 arg-2 arg-3) (CoreC-45Context-case--addAlias-2186 arg-3 arg-2 arg-1 arg-0 (CoreC-45Name-userNameRoot arg-0)))) +(define CoreC-45Context-initBuiltinTransforms (lambda () (let ((u--type (vector 0 (CoreC-45NameC-45Namespace-typesNS) (vector 1 "Nat")))) (let ((u--zero (vector 0 (CoreC-45NameC-45Namespace-typesNS) (vector 1 "Z")))) (let ((u--succ (vector 0 (CoreC-45NameC-45Namespace-typesNS) (vector 1 "S")))) (vector (LibrariesC-45DataC-45NameMap-singleton u--type (cons u--zero u--succ)) (LibrariesC-45DataC-45NameMap-singleton u--zero 0) (LibrariesC-45DataC-45NameMap-singleton u--succ 0) (LibrariesC-45DataC-45NameMap-empty) (LibrariesC-45DataC-45NameMap-empty))))))) +(define CoreC-45Context-inCurrentNS (lambda (arg-0 arg-1 ext-0) (case (vector-ref arg-1 0) ((1) (let ((e-0 (vector-ref arg-1 1))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 0 (let ((e-2 (vector-ref e-5 2))) e-2) (vector 1 e-0))))))))) ((7) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 0 (let ((e-30 (vector-ref e-5 2))) e-30) arg-1))))))) ((8) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 0 (let ((e-2 (vector-ref e-5 2))) e-2) arg-1))))))) ((6) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-24 1))) (vector 1 (vector 0 (let ((e-2 (vector-ref e-7 2))) e-2) arg-1))))))) ((2) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 0 (let ((e-2 (vector-ref e-5 2))) e-2) arg-1))))))) ((4) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 0 (let ((e-2 (vector-ref e-5 2))) e-2) arg-1))))))) ((5) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 0 (let ((e-2 (vector-ref e-5 2))) e-2) arg-1)))))))(else (vector 1 arg-1))))) +(define CoreC-45Context-holeInit (lambda (arg-0) (cons arg-0 0))) +(define CoreC-45Context-hideName (lambda (arg-0 arg-1) (let ((e-0 (vector-ref arg-1 0))) (let ((e-1 (vector-ref arg-1 1))) (let ((e-2 (vector-ref arg-1 2))) (let ((e-3 (vector-ref arg-1 3))) (let ((e-4 (vector-ref arg-1 4))) (let ((e-5 (vector-ref arg-1 5))) (let ((e-6 (vector-ref arg-1 6))) (let ((e-7 (vector-ref arg-1 7))) (let ((e-8 (vector-ref arg-1 8))) (let ((e-9 (vector-ref arg-1 9))) (let ((e-10 (vector-ref arg-1 10))) (vector e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 (LibrariesC-45DataC-45NameMap-insert arg-0 0 e-10))))))))))))))) +(define CoreC-45Context-hide (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtName arg-2 (let ((e-0 (vector-ref e-5 0))) e-0)) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (if (null? e-6) (CoreC-45Context-undefinedName arg-0 arg-1 arg-2 ext-0) (let ((e-1 (car e-6))) (let ((e-2 (cdr e-6))) (if (null? e-1) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 17 arg-1 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-fst eta-0)) e-6)) ext-0) (let ((e-8 (car e-1))) (if (null? e-2) (let ((act-26 (set-box! arg-0 (let ((e-0 (vector-ref e-5 0))) (let ((e-34 (vector-ref e-5 1))) (let ((e-33 (vector-ref e-5 2))) (let ((e-3 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-32 (vector-ref e-5 5))) (let ((e-31 (vector-ref e-5 6))) (let ((e-30 (vector-ref e-5 7))) (let ((e-29 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (let ((e-10 (vector-ref e-5 10))) (let ((e-11 (vector-ref e-5 11))) (let ((e-12 (vector-ref e-5 12))) (let ((e-13 (vector-ref e-5 13))) (let ((e-14 (vector-ref e-5 14))) (let ((e-15 (vector-ref e-5 15))) (let ((e-16 (vector-ref e-5 16))) (let ((e-17 (vector-ref e-5 17))) (let ((e-18 (vector-ref e-5 18))) (let ((e-19 (vector-ref e-5 19))) (let ((e-20 (vector-ref e-5 20))) (let ((e-21 (vector-ref e-5 21))) (let ((e-22 (vector-ref e-5 22))) (let ((e-23 (vector-ref e-5 23))) (let ((e-24 (vector-ref e-5 24))) (let ((e-25 (vector-ref e-5 25))) (let ((e-26 (vector-ref e-5 26))) (let ((e-27 (vector-ref e-5 27))) (let ((e-28 (vector-ref e-5 28))) (vector (CoreC-45Context-hideName e-8 e-0) e-34 e-33 e-3 e-4 e-32 e-31 e-30 e-29 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27 e-28))))))))))))))))))))))))))))))))) (vector 1 act-26)) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 17 arg-1 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-fst eta-0)) e-6)) ext-0))))))))))))))))) +(define CoreC-45Context-getWorkingDir (lambda (ext-0) (let ((act-24 (let ((act-24 ((SystemC-45Directory-currentDir (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-24 (arg-811 eta-0))) ((arg-812 act-24) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-51 (arg-814 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-6881) arg-6881)))) ext-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (if (null? e-5) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 "Can't get current directory") ext-0) (let ((e-1 (unbox e-5))) (vector 1 e-1))))))))) +(define CoreC-45Context-getUserHoles (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((u--hs (DataC-45List-sort (vector (cons (lambda (arg-2) (lambda (arg-3) (CoreC-45Name-u--C-61C-61_Eq_Name arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (CoreC-45Name-u--C-47C-61_Eq_Name arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (CoreC-45Name-u--compare_Ord_Name arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (CoreC-45Name-u--C-60_Ord_Name arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (CoreC-45Name-u--C-62_Ord_Name arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (CoreC-45Name-u--C-60C-61_Ord_Name arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (CoreC-45Name-u--C-62C-61_Ord_Name arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (CoreC-45Name-u--max_Ord_Name arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (CoreC-45Name-u--min_Ord_Name arg-366 arg-367)))) (LibrariesC-45DataC-45NameMap-keys (let ((e-24 (vector-ref e-5 24))) e-24))))) (CoreC-45Core-filterM (lambda (eta-0) (lambda (eta-1) (CoreC-45Context-n--15879-9249-u--isHole arg-0 e-5 eta-0 eta-1))) u--hs ext-0)))))))) +(define CoreC-45Context-getTotality (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact arg-2 (let ((e-0 (vector-ref e-5 0))) e-0)) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (if (null? e-6) (CoreC-45Context-undefinedName arg-0 arg-1 arg-2 ext-0) (let ((e-1 (unbox e-6))) (vector 1 (let ((e-10 (vector-ref e-1 10))) e-10)))))))))))))) +(define CoreC-45Context-getTime (lambda (ext-0) (let ((act-24 (let ((act-24 (SystemC-45Clock-clockTime 3 ext-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (+ (* (SystemC-45Clock-seconds e-5) (CoreC-45Context-n--25981-18579-u--nano)) (SystemC-45Clock-nanoseconds e-5))))))))) +(define CoreC-45Context-getSimilarNames (lambda (arg-0 arg-1) (CoreC-45Context-case--getSimilarNames-8575 arg-1 arg-0 (CoreC-45Name-userNameRoot arg-1)))) +(define CoreC-45Context-getSession (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (let ((e-4 (vector-ref e-5 4))) (let ((e-36 (vector-ref e-4 2))) e-36))))))))) +(define CoreC-45Context-getSearchData (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-lookupDefExact arg-3 (let ((e-0 (vector-ref e-5 0))) e-0) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (if (null? e-6) (CoreC-45Context-undefinedName arg-0 arg-1 arg-3 ext-0) (let ((e-1 (unbox e-6))) (case (vector-ref e-1 0) ((6) (let ((e-11 (vector-ref e-1 4))) (let ((e-10 (vector-ref e-1 5))) (let ((act-26 (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-0))))) arg-3 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-12 (vector-ref act-26 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref act-26 1))) (let ((sc5 (LibrariesC-45DataC-45NameMap-lookup e-12 (let ((e-34 (vector-ref e-5 7))) e-34)))) (if (null? sc5) (vector 1 '()) (let ((e-13 (unbox sc5))) (CoreC-45Core-filterM (lambda (u--x) (lambda (eta-0) (CoreC-45Context-n--18814-11881-u--notHidden arg-3 arg-2 arg-1 arg-0 u--x (let ((e-0 (vector-ref e-5 0))) e-0) eta-0))) e-13 ext-0)))))))))) (case (vector-ref act-26 0) ((0) (let ((e-12 (vector-ref act-26 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref act-26 1))) (cond ((equal? arg-2 1) (let ((act-27 (CoreC-45Core-filterM (lambda (u--x) (lambda (eta-0) (let ((act-27 (CoreC-45Context-n--18814-11881-u--notHidden arg-3 arg-2 arg-1 arg-0 u--x (let ((e-0 (vector-ref e-5 0))) e-0) eta-0))) (case (vector-ref act-27 0) ((0) (let ((e-13 (vector-ref act-27 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref act-27 1))) (vector 1 (let ((sc7 (CoreC-45Context-n--18814-11882-u--isDefault arg-3 arg-2 arg-1 arg-0 u--x))) (cond ((equal? sc7 1) e-13) (else 0)))))))))) (LibrariesC-45DataC-45NameMap-toList (let ((e-33 (vector-ref e-5 8))) e-33)) ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-13 (vector-ref act-27 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref act-27 1))) (let ((u--defns (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-fst eta-0)) e-13))) (vector 1 (cons '() (cons (cons 0 u--defns) '()))))))))) (else (let ((act-27 (CoreC-45Core-filterM (lambda (u--x) (lambda (eta-0) (CoreC-45Context-n--18814-11881-u--notHidden arg-3 arg-2 arg-1 arg-0 u--x (let ((e-0 (vector-ref e-5 0))) e-0) eta-0))) (LibrariesC-45DataC-45NameMap-toList (let ((e-32 (vector-ref e-5 9))) e-32)) ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-13 (vector-ref act-27 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref act-27 1))) (let ((u--opens (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-fst eta-0)) e-13))) (let ((act-28 (CoreC-45Core-filterM (lambda (u--x) (lambda (eta-0) (let ((act-28 (CoreC-45Context-n--18814-11881-u--notHidden arg-3 arg-2 arg-1 arg-0 u--x (let ((e-0 (vector-ref e-5 0))) e-0) eta-0))) (case (vector-ref act-28 0) ((0) (let ((e-14 (vector-ref act-28 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref act-28 1))) (vector 1 (let ((sc8 (CoreC-45Context-n--18814-11882-u--isDefault arg-3 arg-2 arg-1 arg-0 u--x))) (cond ((equal? sc8 1) 0) (else e-14)))))))))) (LibrariesC-45DataC-45NameMap-toList (let ((e-34 (vector-ref e-5 8))) e-34)) ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-14 (vector-ref act-28 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref act-28 1))) (let ((u--autos (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-fst eta-0)) e-14))) (let ((u--tyhs (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-fst eta-0)) (DataC-45List-filter (lambda (eta-0) (CoreC-45Context-n--18814-11883-u--direct arg-3 arg-2 arg-1 arg-0 eta-0)) e-12)))) (let ((u--chasers (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-fst eta-0)) (DataC-45List-filter (lambda (eta-0) (let ((sc8 (CoreC-45Context-n--18814-11883-u--direct arg-3 arg-2 arg-1 arg-0 eta-0))) (cond ((equal? sc8 1) 0) (else 1)))) e-12)))) (vector 1 (cons e-11 (DataC-45List-filter (lambda (eta-0) (DataC-45List-isCons (Builtin-snd eta-0))) (cons (cons 0 u--opens) (cons (cons 0 u--autos) (cons (cons (let ((sc8 (let ((e-0 (car e-10))) e-0))) (cond ((equal? sc8 1) 0) (else 1))) u--tyhs) (cons (cons 1 u--chasers) '()))))))))))))))))))))))))))))(else (CoreC-45Context-undefinedName arg-0 arg-1 arg-3 ext-0))))))))))))))) +(define CoreC-45Context-getRewrite (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (PreludeC-45Types-maybe (lambda () '()) (lambda () (lambda (eta-0) (box (let ((e-1 (cdr eta-0))) e-1)))) (let ((e-4 (vector-ref e-5 4))) (let ((e-33 (vector-ref e-4 5))) e-33)))))))))) +(define CoreC-45Context-getPrimitiveNames (lambda (arg-0 ext-0) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-2 (vector-ref eta-0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-0 1))) (vector 1 (CoreC-45Options-primNamesToList e-5)))))) (lambda (eta-0) (CoreC-45Context-getPrimNames arg-0 eta-0)) ext-0))) +(define CoreC-45Context-getPrimNames (lambda (arg-0 ext-0) (CoreC-45Core-C-60C-42C-62 (lambda (eta-0) (CoreC-45Core-C-60C-42C-62 (lambda (eta-1) (CoreC-45Core-C-60C-42C-62 (lambda (eta-2) (CoreC-45Core-C-60C-42C-62 (lambda (eta-3) (vector 1 (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (lambda (eta-7) (vector eta-4 eta-5 eta-6 eta-7))))))) (lambda (eta-3) (CoreC-45Context-fromIntegerName arg-0 eta-3)) eta-2)) (lambda (eta-2) (CoreC-45Context-fromStringName arg-0 eta-2)) eta-1)) (lambda (eta-1) (CoreC-45Context-fromCharName arg-0 eta-1)) eta-0)) (lambda (eta-0) (CoreC-45Context-fromDoubleName arg-0 eta-0)) ext-0))) +(define CoreC-45Context-getPosition (lambda (arg-0 arg-1) (case (vector-ref arg-0 0) ((9) (let ((e-0 (vector-ref arg-0 1))) (lambda (eta-0) (vector 1 (cons e-0 arg-1)))))(else (let ((sc0 (LibrariesC-45DataC-45NameMap-lookup arg-0 (let ((e-2 (vector-ref arg-1 2))) e-2)))) (if (null? sc0) (CoreC-45Context-newEntry arg-0 arg-1) (let ((e-1 (unbox sc0))) (lambda (eta-0) (vector 1 (cons e-1 arg-1)))))))))) +(define CoreC-45Context-getPPrint (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (let ((e-4 (vector-ref e-5 4))) (let ((e-37 (vector-ref e-4 1))) e-37))))))))) +(define CoreC-45Context-getNextTypeTag (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (let ((act-25 (set-box! arg-0 (let ((e-0 (vector-ref e-5 0))) (let ((e-1 (vector-ref e-5 1))) (let ((e-2 (vector-ref e-5 2))) (let ((e-3 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-29 (vector-ref e-5 5))) (let ((e-6 (vector-ref e-5 6))) (let ((e-7 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (let ((e-10 (vector-ref e-5 10))) (let ((e-11 (vector-ref e-5 11))) (let ((e-12 (vector-ref e-5 12))) (let ((e-13 (vector-ref e-5 13))) (let ((e-14 (vector-ref e-5 14))) (let ((e-15 (vector-ref e-5 15))) (let ((e-16 (vector-ref e-5 16))) (let ((e-17 (vector-ref e-5 17))) (let ((e-18 (vector-ref e-5 18))) (let ((e-19 (vector-ref e-5 19))) (let ((e-20 (vector-ref e-5 20))) (let ((e-21 (vector-ref e-5 21))) (let ((e-22 (vector-ref e-5 22))) (let ((e-23 (vector-ref e-5 23))) (let ((e-24 (vector-ref e-5 24))) (let ((e-25 (vector-ref e-5 25))) (let ((e-26 (vector-ref e-5 26))) (let ((e-27 (vector-ref e-5 27))) (let ((e-28 (vector-ref e-5 28))) (vector e-0 e-1 e-2 e-3 e-4 e-29 (bs+ e-6 1 63) e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27 e-28))))))))))))))))))))))))))))))))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (vector 1 (let ((e-29 (vector-ref e-5 6))) e-29))))))))))) +(define CoreC-45Context-getNextEntry (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (let ((e-0 (vector-ref e-5 0))) (let ((e-39 (vector-ref e-0 1))) e-39))))))))) +(define CoreC-45Context-getNestedNS (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (let ((e-3 (vector-ref e-5 3))) e-3)))))))) +(define CoreC-45Context-getNameID (lambda (arg-0 arg-1) (case (vector-ref arg-0 0) ((9) (let ((e-0 (vector-ref arg-0 1))) (box e-0)))(else (LibrariesC-45DataC-45NameMap-lookup arg-0 (let ((e-2 (vector-ref arg-1 2))) e-2)))))) +(define CoreC-45Context-getNS (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (let ((e-2 (vector-ref e-5 2))) e-2)))))))) +(define CoreC-45Context-getFullName (lambda (arg-0 arg-1 ext-0) (case (vector-ref arg-1 0) ((9) (let ((e-0 (vector-ref arg-1 1))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact (vector 9 e-0) (let ((e-30 (vector-ref e-5 0))) e-30)) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (if (null? e-6) (vector 1 (vector 9 e-0)) (let ((e-1 (unbox e-6))) (vector 1 (let ((e-23 (vector-ref e-1 1))) e-23))))))))))))))(else (vector 1 arg-1))))) +(define CoreC-45Context-getFnName (lambda (arg-0) (let ((e-3 (vector-ref arg-0 3))) (let ((sc0 (CoreC-45TT-getFn e-3))) (case (vector-ref sc0 0) ((1) (let ((e-5 (vector-ref sc0 3))) (box e-5)))(else '())))))) +(define CoreC-45Context-getFieldNames (lambda (arg-0 arg-1) (let ((u--nms (let ((e-2 (vector-ref arg-0 2))) e-2))) (LibrariesC-45DataC-45NameMap-keys (PreludeC-45Basics-flip (lambda (eta-0) (lambda (eta-1) (LibrariesC-45DataC-45NameMap-filterBy eta-0 eta-1))) u--nms (lambda (u--n) (let ((sc0 (CoreC-45Name-isRF u--n))) (if (null? sc0) 0 (let ((e-2 (unbox sc0))) (let ((e-5 (car e-2))) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace e-5 arg-1))))))))))) +(define CoreC-45Context-getDirs (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (let ((e-4 (vector-ref e-5 4))) (let ((e-38 (vector-ref e-4 0))) e-38))))))))) +(define CoreC-45Context-getDirectives (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (PreludeC-45TypesC-45List-C-43C-43 (let ((e-4 (vector-ref e-5 4))) (let ((e-36 (vector-ref e-4 2))) (let ((e-53 (vector-ref e-36 4))) e-53))) (DataC-45List-mapMaybe (lambda (eta-0) (CoreC-45Context-n--21626-14408-u--getDir arg-1 arg-0 eta-0)) (let ((e-21 (vector-ref e-5 21))) e-21)))))))))) +(define CoreC-45Context-getDefaultTotalityOption (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (let ((e-4 (vector-ref e-5 4))) (let ((e-35 (vector-ref e-4 3))) (let ((e-43 (vector-ref e-35 2))) e-43)))))))))) +(define CoreC-45Context-getContent (lambda (ext-0) (let ((e-4 (vector-ref ext-0 4))) e-4))) +(define CoreC-45Context-getAutoImplicitLimit (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (let ((e-4 (vector-ref e-5 4))) (let ((e-35 (vector-ref e-4 3))) (let ((e-41 (vector-ref e-35 4))) e-41)))))))))) +(define CoreC-45Context-getAmbigLimit (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (let ((e-4 (vector-ref e-5 4))) (let ((e-35 (vector-ref e-4 3))) (let ((e-42 (vector-ref e-35 3))) e-42)))))))))) +(define CoreC-45Context-fstName (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (PreludeC-45Types-maybe (lambda () '()) (lambda () (lambda (eta-0) (box (let ((e-1 (vector-ref eta-0 1))) e-1)))) (let ((e-4 (vector-ref e-5 4))) (let ((e-34 (vector-ref e-4 4))) e-34)))))))))) +(define CoreC-45Context-fromStringName (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (let ((e-4 (vector-ref e-5 4))) (let ((e-32 (vector-ref e-4 6))) (let ((e-41 (vector-ref e-32 1))) e-41)))))))))) +(define CoreC-45Context-fromIntegerName (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (let ((e-4 (vector-ref e-5 4))) (let ((e-32 (vector-ref e-4 6))) (let ((e-42 (vector-ref e-32 0))) e-42)))))))))) +(define CoreC-45Context-fromDoubleName (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (let ((e-4 (vector-ref e-5 4))) (let ((e-32 (vector-ref e-4 6))) (let ((e-39 (vector-ref e-32 3))) e-39)))))))))) +(define CoreC-45Context-fromCharName (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (let ((e-4 (vector-ref e-5 4))) (let ((e-32 (vector-ref e-4 6))) (let ((e-40 (vector-ref e-32 2))) e-40)))))))))) +(define CoreC-45Context-findSetTotal (lambda (arg-0) (if (null? arg-0) '() (let ((e-2 (car arg-0))) (let ((e-3 (cdr arg-0))) (case (vector-ref e-2 0) ((4) (let ((e-4 (vector-ref e-2 1))) (box e-4)))(else (CoreC-45Context-findSetTotal e-3)))))))) +(define CoreC-45Context-extendNS (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (set-box! arg-0 (let ((e-0 (vector-ref e-5 0))) (let ((e-1 (vector-ref e-5 1))) (let ((e-2 (vector-ref e-5 2))) (let ((e-3 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-29 (vector-ref e-5 5))) (let ((e-6 (vector-ref e-5 6))) (let ((e-7 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (let ((e-10 (vector-ref e-5 10))) (let ((e-11 (vector-ref e-5 11))) (let ((e-12 (vector-ref e-5 12))) (let ((e-13 (vector-ref e-5 13))) (let ((e-14 (vector-ref e-5 14))) (let ((e-15 (vector-ref e-5 15))) (let ((e-16 (vector-ref e-5 16))) (let ((e-17 (vector-ref e-5 17))) (let ((e-18 (vector-ref e-5 18))) (let ((e-19 (vector-ref e-5 19))) (let ((e-20 (vector-ref e-5 20))) (let ((e-21 (vector-ref e-5 21))) (let ((e-22 (vector-ref e-5 22))) (let ((e-23 (vector-ref e-5 23))) (let ((e-24 (vector-ref e-5 24))) (let ((e-25 (vector-ref e-5 25))) (let ((e-26 (vector-ref e-5 26))) (let ((e-27 (vector-ref e-5 27))) (let ((e-28 (vector-ref e-5 28))) (vector e-0 e-1 (CoreC-45NameC-45Namespace-C-60C-46C-62 e-2 arg-1) e-3 e-4 e-29 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27 e-28))))))))))))))))))))))))))))))))) (vector 1 act-25)))))))) +(define CoreC-45Context-dropMutData (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (set-box! arg-0 (let ((e-0 (vector-ref e-5 0))) (let ((e-1 (vector-ref e-5 1))) (let ((e-2 (vector-ref e-5 2))) (let ((e-3 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-29 (vector-ref e-5 5))) (let ((e-6 (vector-ref e-5 6))) (let ((e-7 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (let ((e-10 (vector-ref e-5 10))) (let ((e-11 (vector-ref e-5 11))) (let ((e-12 (vector-ref e-5 12))) (let ((e-13 (vector-ref e-5 13))) (let ((e-14 (vector-ref e-5 14))) (let ((e-15 (vector-ref e-5 15))) (let ((e-16 (vector-ref e-5 16))) (let ((e-17 (vector-ref e-5 17))) (let ((e-18 (vector-ref e-5 18))) (let ((e-19 (vector-ref e-5 19))) (let ((e-20 (vector-ref e-5 20))) (let ((e-21 (vector-ref e-5 21))) (let ((e-22 (vector-ref e-5 22))) (let ((e-23 (vector-ref e-5 23))) (let ((e-24 (vector-ref e-5 24))) (let ((e-25 (vector-ref e-5 25))) (let ((e-26 (vector-ref e-5 26))) (let ((e-27 (vector-ref e-5 27))) (let ((e-28 (vector-ref e-5 28))) (vector e-0 (DataC-45List-filter (lambda (arg-2) (CoreC-45Name-u--C-47C-61_Eq_Name arg-2 arg-1)) e-1) e-2 e-3 e-4 e-29 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27 e-28))))))))))))))))))))))))))))))))) (vector 1 act-25)))))))) +(define CoreC-45Context-defaultPI (lambda () (cons '() 0))) +(define CoreC-45Context-defaultFlags (lambda () (cons 0 0))) +(define CoreC-45Context-commitCtxt (lambda (arg-0) (CoreC-45Context-case--commitCtxt-3570 arg-0 (let ((e-5 (vector-ref arg-0 5))) e-5)))) +(define CoreC-45Context-commit (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Context-commitCtxt (let ((e-0 (vector-ref e-5 0))) e-0)) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (CoreC-45Context-setCtxt arg-0 e-6 ext-0))))))))))) +(define CoreC-45Context-clearUserHole (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (set-box! arg-0 (let ((e-0 (vector-ref e-5 0))) (let ((e-1 (vector-ref e-5 1))) (let ((e-2 (vector-ref e-5 2))) (let ((e-3 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-29 (vector-ref e-5 5))) (let ((e-6 (vector-ref e-5 6))) (let ((e-7 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (let ((e-10 (vector-ref e-5 10))) (let ((e-11 (vector-ref e-5 11))) (let ((e-12 (vector-ref e-5 12))) (let ((e-13 (vector-ref e-5 13))) (let ((e-14 (vector-ref e-5 14))) (let ((e-15 (vector-ref e-5 15))) (let ((e-16 (vector-ref e-5 16))) (let ((e-17 (vector-ref e-5 17))) (let ((e-18 (vector-ref e-5 18))) (let ((e-19 (vector-ref e-5 19))) (let ((e-20 (vector-ref e-5 20))) (let ((e-21 (vector-ref e-5 21))) (let ((e-22 (vector-ref e-5 22))) (let ((e-23 (vector-ref e-5 23))) (let ((e-24 (vector-ref e-5 24))) (let ((e-25 (vector-ref e-5 25))) (let ((e-26 (vector-ref e-5 26))) (let ((e-27 (vector-ref e-5 27))) (let ((e-28 (vector-ref e-5 28))) (vector e-0 e-1 e-2 e-3 e-4 e-29 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 (LibrariesC-45DataC-45NameMap-delete arg-1 e-24) e-25 e-26 e-27 e-28))))))))))))))))))))))))))))))))) (vector 1 act-25)))))))) +(define CoreC-45Context-clearTimer (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (set-box! arg-0 (let ((e-0 (vector-ref e-5 0))) (let ((e-1 (vector-ref e-5 1))) (let ((e-2 (vector-ref e-5 2))) (let ((e-3 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-29 (vector-ref e-5 5))) (let ((e-6 (vector-ref e-5 6))) (let ((e-7 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (let ((e-10 (vector-ref e-5 10))) (let ((e-11 (vector-ref e-5 11))) (let ((e-12 (vector-ref e-5 12))) (let ((e-13 (vector-ref e-5 13))) (let ((e-14 (vector-ref e-5 14))) (let ((e-15 (vector-ref e-5 15))) (let ((e-16 (vector-ref e-5 16))) (let ((e-17 (vector-ref e-5 17))) (let ((e-18 (vector-ref e-5 18))) (let ((e-19 (vector-ref e-5 19))) (let ((e-20 (vector-ref e-5 20))) (let ((e-21 (vector-ref e-5 21))) (let ((e-22 (vector-ref e-5 22))) (let ((e-23 (vector-ref e-5 23))) (let ((e-24 (vector-ref e-5 24))) (let ((e-25 (vector-ref e-5 25))) (let ((e-26 (vector-ref e-5 26))) (let ((e-28 (vector-ref e-5 28))) (vector e-0 e-1 e-2 e-3 e-4 e-29 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 '() e-28)))))))))))))))))))))))))))))))) (vector 1 act-25)))))))) +(define CoreC-45Context-clearSavedHints (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (set-box! arg-0 (let ((e-0 (vector-ref e-5 0))) (let ((e-1 (vector-ref e-5 1))) (let ((e-2 (vector-ref e-5 2))) (let ((e-3 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-29 (vector-ref e-5 5))) (let ((e-6 (vector-ref e-5 6))) (let ((e-7 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (let ((e-10 (vector-ref e-5 10))) (let ((e-13 (vector-ref e-5 13))) (let ((e-14 (vector-ref e-5 14))) (let ((e-15 (vector-ref e-5 15))) (let ((e-16 (vector-ref e-5 16))) (let ((e-17 (vector-ref e-5 17))) (let ((e-18 (vector-ref e-5 18))) (let ((e-19 (vector-ref e-5 19))) (let ((e-20 (vector-ref e-5 20))) (let ((e-21 (vector-ref e-5 21))) (let ((e-22 (vector-ref e-5 22))) (let ((e-23 (vector-ref e-5 23))) (let ((e-24 (vector-ref e-5 24))) (let ((e-25 (vector-ref e-5 25))) (let ((e-26 (vector-ref e-5 26))) (let ((e-27 (vector-ref e-5 27))) (let ((e-28 (vector-ref e-5 28))) (vector e-0 e-1 e-2 e-3 e-4 e-29 e-6 e-7 e-8 e-9 e-10 '() '() e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27 e-28))))))))))))))))))))))))))))))) (vector 1 act-25)))))))) +(define CoreC-45Context-clearDefs (lambda (arg-0 ext-0) (vector 1 (let ((e-0 (vector-ref arg-0 0))) (let ((e-1 (vector-ref arg-0 1))) (let ((e-2 (vector-ref arg-0 2))) (let ((e-3 (vector-ref arg-0 3))) (let ((e-4 (vector-ref arg-0 4))) (let ((e-5 (vector-ref arg-0 5))) (let ((e-6 (vector-ref arg-0 6))) (let ((e-7 (vector-ref arg-0 7))) (let ((e-8 (vector-ref arg-0 8))) (let ((e-9 (vector-ref arg-0 9))) (let ((e-10 (vector-ref arg-0 10))) (let ((e-11 (vector-ref arg-0 11))) (let ((e-12 (vector-ref arg-0 12))) (let ((e-13 (vector-ref arg-0 13))) (let ((e-14 (vector-ref arg-0 14))) (let ((e-15 (vector-ref arg-0 15))) (let ((e-16 (vector-ref arg-0 16))) (let ((e-17 (vector-ref arg-0 17))) (let ((e-18 (vector-ref arg-0 18))) (let ((e-19 (vector-ref arg-0 19))) (let ((e-20 (vector-ref arg-0 20))) (let ((e-21 (vector-ref arg-0 21))) (let ((e-22 (vector-ref arg-0 22))) (let ((e-23 (vector-ref arg-0 23))) (let ((e-24 (vector-ref arg-0 24))) (let ((e-25 (vector-ref arg-0 25))) (let ((e-26 (vector-ref arg-0 26))) (let ((e-27 (vector-ref arg-0 27))) (let ((e-28 (vector-ref arg-0 28))) (let ((e-29 (vector-ref e-0 0))) (let ((e-30 (vector-ref e-0 1))) (let ((e-31 (vector-ref e-0 2))) (let ((e-32 (vector-ref e-0 3))) (let ((e-33 (vector-ref e-0 4))) (let ((e-34 (vector-ref e-0 5))) (let ((e-35 (vector-ref e-0 6))) (let ((e-36 (vector-ref e-0 7))) (let ((e-37 (vector-ref e-0 8))) (let ((e-39 (vector-ref e-0 10))) (vector (vector e-29 e-30 e-31 e-32 e-33 e-34 e-35 e-36 e-37 1 e-39) e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27 e-28))))))))))))))))))))))))))))))))))))))))))) +(define CoreC-45Context-clearCtxt (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-initDefs ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (set-box! arg-0 (let ((e-0 (vector-ref e-6 0))) (let ((e-1 (vector-ref e-6 1))) (let ((e-2 (vector-ref e-6 2))) (let ((e-3 (vector-ref e-6 3))) (let ((e-30 (vector-ref e-6 5))) (let ((e-29 (vector-ref e-6 6))) (let ((e-7 (vector-ref e-6 7))) (let ((e-8 (vector-ref e-6 8))) (let ((e-9 (vector-ref e-6 9))) (let ((e-10 (vector-ref e-6 10))) (let ((e-11 (vector-ref e-6 11))) (let ((e-12 (vector-ref e-6 12))) (let ((e-13 (vector-ref e-6 13))) (let ((e-14 (vector-ref e-6 14))) (let ((e-15 (vector-ref e-6 15))) (let ((e-16 (vector-ref e-6 16))) (let ((e-17 (vector-ref e-6 17))) (let ((e-18 (vector-ref e-6 18))) (let ((e-19 (vector-ref e-6 19))) (let ((e-20 (vector-ref e-6 20))) (let ((e-21 (vector-ref e-6 21))) (let ((e-22 (vector-ref e-6 22))) (let ((e-23 (vector-ref e-6 23))) (let ((e-24 (vector-ref e-6 24))) (let ((e-25 (vector-ref e-6 25))) (let ((e-27 (vector-ref e-6 27))) (let ((e-28 (vector-ref e-6 28))) (vector e-0 e-1 e-2 e-3 (CoreC-45Context-n--14908-8354-u--resetElab arg-0 (let ((e-55 (vector-ref e-5 4))) e-55)) e-30 e-29 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 (let ((e-33 (vector-ref e-5 26))) e-33) e-27 e-28))))))))))))))))))))))))))))))) (vector 1 act-26)))))))))))) +(define CoreC-45Context-checkUnambig (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-lookupDefName arg-2 (let ((e-0 (vector-ref e-5 0))) e-0) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (if (null? e-6) (CoreC-45Context-undefinedName arg-0 arg-1 arg-2 ext-0) (let ((e-2 (car e-6))) (let ((e-3 (cdr e-6))) (if (null? e-2) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 17 arg-1 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-fst eta-0)) e-6)) ext-0) (let ((e-7 (cdr e-2))) (if (null? e-7) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 17 arg-1 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-fst eta-0)) e-6)) ext-0) (let ((e-10 (car e-7))) (if (null? e-3) (vector 1 (vector 9 e-10)) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 17 arg-1 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-fst eta-0)) e-6)) ext-0))))))))))))))))))) +(define CoreC-45Context-checkTimer (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (CoreC-45Context-case--checkTimer-18741 arg-0 e-5 (let ((e-27 (vector-ref e-5 27))) e-27) ext-0))))))) +(define CoreC-45Context-branchCtxt (lambda (arg-0 ext-0) (vector 1 (let ((e-0 (vector-ref arg-0 0))) (let ((e-1 (vector-ref arg-0 1))) (let ((e-2 (vector-ref arg-0 2))) (let ((e-3 (vector-ref arg-0 3))) (let ((e-4 (vector-ref arg-0 4))) (let ((e-5 (vector-ref arg-0 5))) (let ((e-6 (vector-ref arg-0 6))) (let ((e-7 (vector-ref arg-0 7))) (let ((e-8 (vector-ref arg-0 8))) (let ((e-9 (vector-ref arg-0 9))) (let ((e-10 (vector-ref arg-0 10))) (vector e-0 e-1 e-2 e-3 e-4 (+ 1 e-5) e-6 e-7 e-8 e-9 e-10))))))))))))))) +(define CoreC-45Context-branch (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-branchCtxt (let ((e-0 (vector-ref e-5 0))) e-0) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Context-setCtxt arg-0 e-6 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (vector 1 e-5)))))))))))))) +(define CoreC-45Context-allNames (lambda (arg-0 ext-0) (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (CoreC-45Context-u--full_HasNames_Name arg-0 eta-0 eta-1))) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (vector 9 eta-0)) (PreludeC-45Types-u--rangeFromTo_Range_C-36a (cons (vector (vector (lambda (arg-2) (lambda (arg-3) (bs+ arg-2 arg-3 63))) (lambda (arg-4) (lambda (arg-5) (bs* arg-4 arg-5 63))) (lambda (arg-6) (blodwen-toSignedInt arg-6 63))) (lambda (arg-157) (lambda (arg-158) (PreludeC-45Num-u--div_Integral_Int arg-157 arg-158))) (lambda (arg-159) (lambda (arg-160) (PreludeC-45Num-u--mod_Integral_Int arg-159 arg-160)))) (cons (vector (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) (vector (vector (lambda (arg-2) (lambda (arg-3) (bs+ arg-2 arg-3 63))) (lambda (arg-4) (lambda (arg-5) (bs* arg-4 arg-5 63))) (lambda (arg-6) (blodwen-toSignedInt arg-6 63))) (lambda (arg-45) (PreludeC-45Num-u--negate_Neg_Int arg-45)) (lambda (arg-46) (lambda (arg-47) (PreludeC-45Num-u--C-45_Neg_Int arg-46 arg-47)))))) 1 (PreludeC-45Num-u--C-45_Neg_Int (let ((e-1 (vector-ref arg-0 1))) e-1) 1))) '() ext-0))) +(define CoreC-45Context-aliasName (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) ((CoreC-45Context-case--aliasName-8956 arg-1 arg-0 e-5 (CoreC-45Name-userNameRoot arg-1)) ext-0))))))) +(define CoreC-45Context-addUserHole (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (set-box! arg-0 (let ((e-0 (vector-ref e-5 0))) (let ((e-1 (vector-ref e-5 1))) (let ((e-2 (vector-ref e-5 2))) (let ((e-3 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-29 (vector-ref e-5 5))) (let ((e-6 (vector-ref e-5 6))) (let ((e-7 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (let ((e-10 (vector-ref e-5 10))) (let ((e-11 (vector-ref e-5 11))) (let ((e-12 (vector-ref e-5 12))) (let ((e-13 (vector-ref e-5 13))) (let ((e-14 (vector-ref e-5 14))) (let ((e-15 (vector-ref e-5 15))) (let ((e-16 (vector-ref e-5 16))) (let ((e-17 (vector-ref e-5 17))) (let ((e-18 (vector-ref e-5 18))) (let ((e-19 (vector-ref e-5 19))) (let ((e-20 (vector-ref e-5 20))) (let ((e-21 (vector-ref e-5 21))) (let ((e-22 (vector-ref e-5 22))) (let ((e-23 (vector-ref e-5 23))) (let ((e-24 (vector-ref e-5 24))) (let ((e-25 (vector-ref e-5 25))) (let ((e-26 (vector-ref e-5 26))) (let ((e-27 (vector-ref e-5 27))) (let ((e-28 (vector-ref e-5 28))) (vector e-0 e-1 e-2 e-3 e-4 e-29 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 (LibrariesC-45DataC-45NameMap-insert arg-1 0 e-24) e-25 e-26 e-27 e-28))))))))))))))))))))))))))))))))) (vector 1 act-25)))))))) +(define CoreC-45Context-addTransform (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (CoreC-45Context-case--addTransform-13774 arg-2 arg-1 arg-0 e-5 (CoreC-45Context-getFnName arg-2) ext-0))))))) +(define CoreC-45Context-addToSave (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-u--full_HasNames_Name (let ((e-0 (vector-ref e-5 0))) e-0) arg-1 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (set-box! arg-0 (let ((e-0 (vector-ref e-5 0))) (let ((e-1 (vector-ref e-5 1))) (let ((e-2 (vector-ref e-5 2))) (let ((e-3 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-30 (vector-ref e-5 5))) (let ((e-29 (vector-ref e-5 6))) (let ((e-7 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (let ((e-10 (vector-ref e-5 10))) (let ((e-11 (vector-ref e-5 11))) (let ((e-12 (vector-ref e-5 12))) (let ((e-13 (vector-ref e-5 13))) (let ((e-14 (vector-ref e-5 14))) (let ((e-15 (vector-ref e-5 15))) (let ((e-16 (vector-ref e-5 16))) (let ((e-17 (vector-ref e-5 17))) (let ((e-18 (vector-ref e-5 18))) (let ((e-19 (vector-ref e-5 19))) (let ((e-20 (vector-ref e-5 20))) (let ((e-21 (vector-ref e-5 21))) (let ((e-22 (vector-ref e-5 22))) (let ((e-23 (vector-ref e-5 23))) (let ((e-24 (vector-ref e-5 24))) (let ((e-25 (vector-ref e-5 25))) (let ((e-26 (vector-ref e-5 26))) (let ((e-27 (vector-ref e-5 27))) (let ((e-28 (vector-ref e-5 28))) (vector e-0 e-1 e-2 e-3 e-4 (LibrariesC-45DataC-45NameMap-insert e-6 0 e-30) e-29 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 (LibrariesC-45DataC-45NameMap-insert e-6 0 e-23) e-24 e-25 e-26 e-27 e-28))))))))))))))))))))))))))))))))) (vector 1 act-26)))))))))))) +(define CoreC-45Context-addPossible (lambda (arg-0 arg-1 arg-2) (CoreC-45Context-case--addPossible-2120 arg-2 arg-1 arg-0 (CoreC-45Name-userNameRoot arg-0)))) +(define CoreC-45Context-addPackageDir (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (set-box! arg-0 (let ((e-0 (vector-ref e-5 0))) (let ((e-1 (vector-ref e-5 1))) (let ((e-2 (vector-ref e-5 2))) (let ((e-3 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-29 (vector-ref e-5 5))) (let ((e-6 (vector-ref e-5 6))) (let ((e-7 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (let ((e-10 (vector-ref e-5 10))) (let ((e-11 (vector-ref e-5 11))) (let ((e-12 (vector-ref e-5 12))) (let ((e-13 (vector-ref e-5 13))) (let ((e-14 (vector-ref e-5 14))) (let ((e-15 (vector-ref e-5 15))) (let ((e-16 (vector-ref e-5 16))) (let ((e-17 (vector-ref e-5 17))) (let ((e-18 (vector-ref e-5 18))) (let ((e-19 (vector-ref e-5 19))) (let ((e-20 (vector-ref e-5 20))) (let ((e-21 (vector-ref e-5 21))) (let ((e-22 (vector-ref e-5 22))) (let ((e-23 (vector-ref e-5 23))) (let ((e-24 (vector-ref e-5 24))) (let ((e-25 (vector-ref e-5 25))) (let ((e-26 (vector-ref e-5 26))) (let ((e-27 (vector-ref e-5 27))) (let ((e-28 (vector-ref e-5 28))) (let ((e-38 (vector-ref e-4 0))) (let ((e-30 (vector-ref e-4 1))) (let ((e-31 (vector-ref e-4 2))) (let ((e-32 (vector-ref e-4 3))) (let ((e-33 (vector-ref e-4 4))) (let ((e-34 (vector-ref e-4 5))) (let ((e-35 (vector-ref e-4 6))) (let ((e-36 (vector-ref e-4 7))) (let ((e-37 (vector-ref e-4 8))) (let ((e-48 (vector-ref e-38 0))) (let ((e-39 (vector-ref e-38 1))) (let ((e-40 (vector-ref e-38 2))) (let ((e-41 (vector-ref e-38 3))) (let ((e-42 (vector-ref e-38 4))) (let ((e-43 (vector-ref e-38 5))) (let ((e-44 (vector-ref e-38 6))) (let ((e-45 (vector-ref e-38 7))) (let ((e-46 (vector-ref e-38 8))) (let ((e-47 (vector-ref e-38 9))) (vector e-0 e-1 e-2 e-3 (vector (vector e-48 e-39 e-40 e-41 e-42 e-43 e-44 (PreludeC-45TypesC-45List-C-43C-43 e-45 (cons arg-1 '())) e-46 e-47) e-30 e-31 e-32 e-33 e-34 e-35 e-36 e-37) e-29 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27 e-28)))))))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25)))))))) +(define CoreC-45Context-addOpenHint (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-toResolvedNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-0))))) arg-1 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (set-box! arg-0 (let ((e-0 (vector-ref e-5 0))) (let ((e-1 (vector-ref e-5 1))) (let ((e-2 (vector-ref e-5 2))) (let ((e-3 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-30 (vector-ref e-5 5))) (let ((e-29 (vector-ref e-5 6))) (let ((e-7 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (let ((e-10 (vector-ref e-5 10))) (let ((e-11 (vector-ref e-5 11))) (let ((e-12 (vector-ref e-5 12))) (let ((e-13 (vector-ref e-5 13))) (let ((e-14 (vector-ref e-5 14))) (let ((e-15 (vector-ref e-5 15))) (let ((e-16 (vector-ref e-5 16))) (let ((e-17 (vector-ref e-5 17))) (let ((e-18 (vector-ref e-5 18))) (let ((e-19 (vector-ref e-5 19))) (let ((e-20 (vector-ref e-5 20))) (let ((e-21 (vector-ref e-5 21))) (let ((e-22 (vector-ref e-5 22))) (let ((e-23 (vector-ref e-5 23))) (let ((e-24 (vector-ref e-5 24))) (let ((e-25 (vector-ref e-5 25))) (let ((e-26 (vector-ref e-5 26))) (let ((e-27 (vector-ref e-5 27))) (let ((e-28 (vector-ref e-5 28))) (vector e-0 e-1 e-2 e-3 e-4 e-30 e-29 e-7 e-8 (LibrariesC-45DataC-45NameMap-insert e-6 0 e-9) e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27 e-28))))))))))))))))))))))))))))))))) (vector 1 act-26)))))))))))) +(define CoreC-45Context-addNameDirective (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-checkUnambig arg-0 arg-1 arg-2 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (set-box! arg-0 (let ((e-0 (vector-ref e-5 0))) (let ((e-1 (vector-ref e-5 1))) (let ((e-2 (vector-ref e-5 2))) (let ((e-3 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-30 (vector-ref e-5 5))) (let ((e-29 (vector-ref e-5 6))) (let ((e-7 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (let ((e-10 (vector-ref e-5 10))) (let ((e-11 (vector-ref e-5 11))) (let ((e-12 (vector-ref e-5 12))) (let ((e-13 (vector-ref e-5 13))) (let ((e-14 (vector-ref e-5 14))) (let ((e-15 (vector-ref e-5 15))) (let ((e-16 (vector-ref e-5 16))) (let ((e-17 (vector-ref e-5 17))) (let ((e-18 (vector-ref e-5 18))) (let ((e-19 (vector-ref e-5 19))) (let ((e-20 (vector-ref e-5 20))) (let ((e-21 (vector-ref e-5 21))) (let ((e-22 (vector-ref e-5 22))) (let ((e-23 (vector-ref e-5 23))) (let ((e-24 (vector-ref e-5 24))) (let ((e-25 (vector-ref e-5 25))) (let ((e-26 (vector-ref e-5 26))) (let ((e-27 (vector-ref e-5 27))) (let ((e-28 (vector-ref e-5 28))) (vector e-0 e-1 e-2 e-3 e-4 e-30 e-29 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 (LibrariesC-45DataC-45NameMap-insert e-6 arg-3 e-16) e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27 e-28))))))))))))))))))))))))))))))))) (vector 1 act-26)))))))))))) +(define CoreC-45Context-addName (lambda (arg-0 arg-1 ext-0) (case (vector-ref arg-1 0) ((9) (let ((e-0 (vector-ref arg-1 1))) (vector 1 e-0)))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Context-newEntry arg-1 (let ((e-0 (vector-ref e-5 0))) e-0)) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((e-2 (car e-6))) (let ((e-3 (cdr e-6))) (let ((act-26 (CoreC-45Context-setCtxt arg-0 e-3 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-4 (vector-ref act-26 1))) (vector 0 e-4))) (else (vector 1 e-2)))))))))))))))))) +(define CoreC-45Context-addMutData (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (set-box! arg-0 (let ((e-0 (vector-ref e-5 0))) (let ((e-1 (vector-ref e-5 1))) (let ((e-2 (vector-ref e-5 2))) (let ((e-3 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-29 (vector-ref e-5 5))) (let ((e-6 (vector-ref e-5 6))) (let ((e-7 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (let ((e-10 (vector-ref e-5 10))) (let ((e-11 (vector-ref e-5 11))) (let ((e-12 (vector-ref e-5 12))) (let ((e-13 (vector-ref e-5 13))) (let ((e-14 (vector-ref e-5 14))) (let ((e-15 (vector-ref e-5 15))) (let ((e-16 (vector-ref e-5 16))) (let ((e-17 (vector-ref e-5 17))) (let ((e-18 (vector-ref e-5 18))) (let ((e-19 (vector-ref e-5 19))) (let ((e-20 (vector-ref e-5 20))) (let ((e-21 (vector-ref e-5 21))) (let ((e-22 (vector-ref e-5 22))) (let ((e-23 (vector-ref e-5 23))) (let ((e-24 (vector-ref e-5 24))) (let ((e-25 (vector-ref e-5 25))) (let ((e-26 (vector-ref e-5 26))) (let ((e-27 (vector-ref e-5 27))) (let ((e-28 (vector-ref e-5 28))) (vector e-0 (cons arg-1 e-1) e-2 e-3 e-4 e-29 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27 e-28))))))))))))))))))))))))))))))))) (vector 1 act-25)))))))) +(define CoreC-45Context-addLogLevel (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (if (null? arg-1) (let ((act-25 (set-box! arg-0 (let ((e-0 (vector-ref e-5 0))) (let ((e-1 (vector-ref e-5 1))) (let ((e-2 (vector-ref e-5 2))) (let ((e-3 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-29 (vector-ref e-5 5))) (let ((e-6 (vector-ref e-5 6))) (let ((e-7 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (let ((e-10 (vector-ref e-5 10))) (let ((e-11 (vector-ref e-5 11))) (let ((e-12 (vector-ref e-5 12))) (let ((e-13 (vector-ref e-5 13))) (let ((e-14 (vector-ref e-5 14))) (let ((e-15 (vector-ref e-5 15))) (let ((e-16 (vector-ref e-5 16))) (let ((e-17 (vector-ref e-5 17))) (let ((e-18 (vector-ref e-5 18))) (let ((e-19 (vector-ref e-5 19))) (let ((e-20 (vector-ref e-5 20))) (let ((e-21 (vector-ref e-5 21))) (let ((e-22 (vector-ref e-5 22))) (let ((e-23 (vector-ref e-5 23))) (let ((e-24 (vector-ref e-5 24))) (let ((e-25 (vector-ref e-5 25))) (let ((e-26 (vector-ref e-5 26))) (let ((e-27 (vector-ref e-5 27))) (let ((e-28 (vector-ref e-5 28))) (let ((e-38 (vector-ref e-4 0))) (let ((e-30 (vector-ref e-4 1))) (let ((e-31 (vector-ref e-4 2))) (let ((e-32 (vector-ref e-4 3))) (let ((e-33 (vector-ref e-4 4))) (let ((e-34 (vector-ref e-4 5))) (let ((e-35 (vector-ref e-4 6))) (let ((e-36 (vector-ref e-4 7))) (let ((e-37 (vector-ref e-4 8))) (let ((e-57 (vector-ref e-31 0))) (let ((e-39 (vector-ref e-31 1))) (let ((e-40 (vector-ref e-31 2))) (let ((e-41 (vector-ref e-31 3))) (let ((e-42 (vector-ref e-31 4))) (let ((e-45 (vector-ref e-31 7))) (let ((e-46 (vector-ref e-31 8))) (let ((e-47 (vector-ref e-31 9))) (let ((e-48 (vector-ref e-31 10))) (let ((e-49 (vector-ref e-31 11))) (let ((e-50 (vector-ref e-31 12))) (let ((e-51 (vector-ref e-31 13))) (let ((e-52 (vector-ref e-31 14))) (let ((e-53 (vector-ref e-31 15))) (let ((e-54 (vector-ref e-31 16))) (let ((e-55 (vector-ref e-31 17))) (let ((e-56 (vector-ref e-31 18))) (vector e-0 e-1 e-2 e-3 (vector e-38 e-30 (vector e-57 e-39 e-40 e-41 e-42 1 (CoreC-45OptionsC-45Log-defaultLogLevel) e-45 e-46 e-47 e-48 e-49 e-50 e-51 e-52 e-53 e-54 e-55 e-56) e-32 e-33 e-34 e-35 e-36 e-37) e-29 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27 e-28))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25)) (let ((e-2 (unbox arg-1))) (let ((act-25 (set-box! arg-0 (let ((e-0 (vector-ref e-5 0))) (let ((e-1 (vector-ref e-5 1))) (let ((e-30 (vector-ref e-5 2))) (let ((e-3 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-29 (vector-ref e-5 5))) (let ((e-6 (vector-ref e-5 6))) (let ((e-7 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (let ((e-10 (vector-ref e-5 10))) (let ((e-11 (vector-ref e-5 11))) (let ((e-12 (vector-ref e-5 12))) (let ((e-13 (vector-ref e-5 13))) (let ((e-14 (vector-ref e-5 14))) (let ((e-15 (vector-ref e-5 15))) (let ((e-16 (vector-ref e-5 16))) (let ((e-17 (vector-ref e-5 17))) (let ((e-18 (vector-ref e-5 18))) (let ((e-19 (vector-ref e-5 19))) (let ((e-20 (vector-ref e-5 20))) (let ((e-21 (vector-ref e-5 21))) (let ((e-22 (vector-ref e-5 22))) (let ((e-23 (vector-ref e-5 23))) (let ((e-24 (vector-ref e-5 24))) (let ((e-25 (vector-ref e-5 25))) (let ((e-26 (vector-ref e-5 26))) (let ((e-27 (vector-ref e-5 27))) (let ((e-28 (vector-ref e-5 28))) (let ((e-39 (vector-ref e-4 0))) (let ((e-38 (vector-ref e-4 1))) (let ((e-31 (vector-ref e-4 2))) (let ((e-32 (vector-ref e-4 3))) (let ((e-33 (vector-ref e-4 4))) (let ((e-34 (vector-ref e-4 5))) (let ((e-35 (vector-ref e-4 6))) (let ((e-36 (vector-ref e-4 7))) (let ((e-37 (vector-ref e-4 8))) (let ((e-58 (vector-ref e-31 0))) (let ((e-57 (vector-ref e-31 1))) (let ((e-40 (vector-ref e-31 2))) (let ((e-41 (vector-ref e-31 3))) (let ((e-42 (vector-ref e-31 4))) (let ((e-44 (vector-ref e-31 6))) (let ((e-45 (vector-ref e-31 7))) (let ((e-46 (vector-ref e-31 8))) (let ((e-47 (vector-ref e-31 9))) (let ((e-48 (vector-ref e-31 10))) (let ((e-49 (vector-ref e-31 11))) (let ((e-50 (vector-ref e-31 12))) (let ((e-51 (vector-ref e-31 13))) (let ((e-52 (vector-ref e-31 14))) (let ((e-53 (vector-ref e-31 15))) (let ((e-54 (vector-ref e-31 16))) (let ((e-55 (vector-ref e-31 17))) (let ((e-56 (vector-ref e-31 18))) (vector e-0 e-1 e-30 e-3 (vector e-39 e-38 (vector e-58 e-57 e-40 e-41 e-42 1 (CoreC-45OptionsC-45Log-insertLogLevel e-2 e-44) e-45 e-46 e-47 e-48 e-49 e-50 e-51 e-52 e-53 e-54 e-55 e-56) e-32 e-33 e-34 e-35 e-36 e-37) e-29 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27 e-28)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25)))))))))) +(define CoreC-45Context-addLocalHint (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-toResolvedNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-0))))) arg-1 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (set-box! arg-0 (let ((e-0 (vector-ref e-5 0))) (let ((e-1 (vector-ref e-5 1))) (let ((e-2 (vector-ref e-5 2))) (let ((e-3 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-30 (vector-ref e-5 5))) (let ((e-29 (vector-ref e-5 6))) (let ((e-7 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (let ((e-10 (vector-ref e-5 10))) (let ((e-11 (vector-ref e-5 11))) (let ((e-12 (vector-ref e-5 12))) (let ((e-13 (vector-ref e-5 13))) (let ((e-14 (vector-ref e-5 14))) (let ((e-15 (vector-ref e-5 15))) (let ((e-16 (vector-ref e-5 16))) (let ((e-17 (vector-ref e-5 17))) (let ((e-18 (vector-ref e-5 18))) (let ((e-19 (vector-ref e-5 19))) (let ((e-20 (vector-ref e-5 20))) (let ((e-21 (vector-ref e-5 21))) (let ((e-22 (vector-ref e-5 22))) (let ((e-23 (vector-ref e-5 23))) (let ((e-24 (vector-ref e-5 24))) (let ((e-25 (vector-ref e-5 25))) (let ((e-26 (vector-ref e-5 26))) (let ((e-27 (vector-ref e-5 27))) (let ((e-28 (vector-ref e-5 28))) (vector e-0 e-1 e-2 e-3 e-4 e-30 e-29 e-7 e-8 e-9 (LibrariesC-45DataC-45NameMap-insert e-6 0 e-10) e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27 e-28))))))))))))))))))))))))))))))))) (vector 1 act-26)))))))))))) +(define CoreC-45Context-addLibDir (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (set-box! arg-0 (let ((e-0 (vector-ref e-5 0))) (let ((e-1 (vector-ref e-5 1))) (let ((e-2 (vector-ref e-5 2))) (let ((e-3 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-29 (vector-ref e-5 5))) (let ((e-6 (vector-ref e-5 6))) (let ((e-7 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (let ((e-10 (vector-ref e-5 10))) (let ((e-11 (vector-ref e-5 11))) (let ((e-12 (vector-ref e-5 12))) (let ((e-13 (vector-ref e-5 13))) (let ((e-14 (vector-ref e-5 14))) (let ((e-15 (vector-ref e-5 15))) (let ((e-16 (vector-ref e-5 16))) (let ((e-17 (vector-ref e-5 17))) (let ((e-18 (vector-ref e-5 18))) (let ((e-19 (vector-ref e-5 19))) (let ((e-20 (vector-ref e-5 20))) (let ((e-21 (vector-ref e-5 21))) (let ((e-22 (vector-ref e-5 22))) (let ((e-23 (vector-ref e-5 23))) (let ((e-24 (vector-ref e-5 24))) (let ((e-25 (vector-ref e-5 25))) (let ((e-26 (vector-ref e-5 26))) (let ((e-27 (vector-ref e-5 27))) (let ((e-28 (vector-ref e-5 28))) (let ((e-38 (vector-ref e-4 0))) (let ((e-30 (vector-ref e-4 1))) (let ((e-31 (vector-ref e-4 2))) (let ((e-32 (vector-ref e-4 3))) (let ((e-33 (vector-ref e-4 4))) (let ((e-34 (vector-ref e-4 5))) (let ((e-35 (vector-ref e-4 6))) (let ((e-36 (vector-ref e-4 7))) (let ((e-37 (vector-ref e-4 8))) (let ((e-48 (vector-ref e-38 0))) (let ((e-39 (vector-ref e-38 1))) (let ((e-40 (vector-ref e-38 2))) (let ((e-41 (vector-ref e-38 3))) (let ((e-42 (vector-ref e-38 4))) (let ((e-43 (vector-ref e-38 5))) (let ((e-44 (vector-ref e-38 6))) (let ((e-45 (vector-ref e-38 7))) (let ((e-46 (vector-ref e-38 8))) (let ((e-47 (vector-ref e-38 9))) (vector e-0 e-1 e-2 e-3 (vector (vector e-48 e-39 e-40 e-41 e-42 e-43 e-44 e-45 (PreludeC-45TypesC-45List-C-43C-43 e-46 (cons arg-1 '())) e-47) e-30 e-31 e-32 e-33 e-34 e-35 e-36 e-37) e-29 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27 e-28)))))))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25)))))))) +(define CoreC-45Context-addImported (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (set-box! arg-0 (let ((e-0 (vector-ref e-5 0))) (let ((e-1 (vector-ref e-5 1))) (let ((e-2 (vector-ref e-5 2))) (let ((e-3 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-29 (vector-ref e-5 5))) (let ((e-6 (vector-ref e-5 6))) (let ((e-7 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (let ((e-10 (vector-ref e-5 10))) (let ((e-11 (vector-ref e-5 11))) (let ((e-12 (vector-ref e-5 12))) (let ((e-13 (vector-ref e-5 13))) (let ((e-14 (vector-ref e-5 14))) (let ((e-15 (vector-ref e-5 15))) (let ((e-16 (vector-ref e-5 16))) (let ((e-17 (vector-ref e-5 17))) (let ((e-18 (vector-ref e-5 18))) (let ((e-19 (vector-ref e-5 19))) (let ((e-20 (vector-ref e-5 20))) (let ((e-21 (vector-ref e-5 21))) (let ((e-22 (vector-ref e-5 22))) (let ((e-23 (vector-ref e-5 23))) (let ((e-24 (vector-ref e-5 24))) (let ((e-25 (vector-ref e-5 25))) (let ((e-26 (vector-ref e-5 26))) (let ((e-27 (vector-ref e-5 27))) (let ((e-28 (vector-ref e-5 28))) (vector e-0 e-1 e-2 e-3 e-4 e-29 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 (cons arg-1 e-19) e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27 e-28))))))))))))))))))))))))))))))))) (vector 1 act-25)))))))) +(define CoreC-45Context-addHintFor (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-0))))) arg-2 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Context-toResolvedNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-0))))) arg-3 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((u--hs (let ((sc3 (LibrariesC-45DataC-45NameMap-lookup e-6 (let ((e-29 (vector-ref e-5 7))) e-29)))) (if (null? sc3) '() (let ((e-1 (unbox sc3))) e-1))))) (cond ((equal? arg-5 1) (let ((act-27 (set-box! arg-0 (let ((e-0 (vector-ref e-5 0))) (let ((e-1 (vector-ref e-5 1))) (let ((e-2 (vector-ref e-5 2))) (let ((e-3 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-31 (vector-ref e-5 5))) (let ((e-30 (vector-ref e-5 6))) (let ((e-29 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (let ((e-10 (vector-ref e-5 10))) (let ((e-11 (vector-ref e-5 11))) (let ((e-12 (vector-ref e-5 12))) (let ((e-13 (vector-ref e-5 13))) (let ((e-14 (vector-ref e-5 14))) (let ((e-15 (vector-ref e-5 15))) (let ((e-16 (vector-ref e-5 16))) (let ((e-17 (vector-ref e-5 17))) (let ((e-18 (vector-ref e-5 18))) (let ((e-19 (vector-ref e-5 19))) (let ((e-20 (vector-ref e-5 20))) (let ((e-21 (vector-ref e-5 21))) (let ((e-22 (vector-ref e-5 22))) (let ((e-23 (vector-ref e-5 23))) (let ((e-24 (vector-ref e-5 24))) (let ((e-25 (vector-ref e-5 25))) (let ((e-26 (vector-ref e-5 26))) (let ((e-27 (vector-ref e-5 27))) (let ((e-28 (vector-ref e-5 28))) (vector e-0 e-1 e-2 e-3 e-4 e-31 e-30 (LibrariesC-45DataC-45NameMap-insert e-6 (cons (cons e-7 arg-4) u--hs) e-29) e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27 e-28))))))))))))))))))))))))))))))))) (vector 1 act-27))) (else (let ((act-27 (set-box! arg-0 (let ((e-0 (vector-ref e-5 0))) (let ((e-1 (vector-ref e-5 1))) (let ((e-2 (vector-ref e-5 2))) (let ((e-3 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-31 (vector-ref e-5 5))) (let ((e-30 (vector-ref e-5 6))) (let ((e-29 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (let ((e-10 (vector-ref e-5 10))) (let ((e-11 (vector-ref e-5 11))) (let ((e-12 (vector-ref e-5 12))) (let ((e-13 (vector-ref e-5 13))) (let ((e-14 (vector-ref e-5 14))) (let ((e-15 (vector-ref e-5 15))) (let ((e-16 (vector-ref e-5 16))) (let ((e-17 (vector-ref e-5 17))) (let ((e-18 (vector-ref e-5 18))) (let ((e-19 (vector-ref e-5 19))) (let ((e-20 (vector-ref e-5 20))) (let ((e-21 (vector-ref e-5 21))) (let ((e-22 (vector-ref e-5 22))) (let ((e-23 (vector-ref e-5 23))) (let ((e-24 (vector-ref e-5 24))) (let ((e-25 (vector-ref e-5 25))) (let ((e-26 (vector-ref e-5 26))) (let ((e-27 (vector-ref e-5 27))) (let ((e-28 (vector-ref e-5 28))) (vector e-0 e-1 e-2 e-3 e-4 e-31 e-30 (LibrariesC-45DataC-45NameMap-insert e-6 (cons (cons e-7 arg-4) u--hs) e-29) e-8 e-9 e-10 (cons (cons e-6 (cons e-7 arg-4)) e-11) e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27 e-28))))))))))))))))))))))))))))))))) (vector 1 act-27))))))))))))))))))) +(define CoreC-45Context-addHashWithNames (lambda (arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (CoreC-45Context-toFullNames arg-1 arg-3 arg-4 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (CoreC-45Context-addHash arg-1 arg-2 e-5 ext-0))))))) +(define CoreC-45Context-addHash (lambda (arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (set-box! arg-1 (let ((e-0 (vector-ref e-5 0))) (let ((e-1 (vector-ref e-5 1))) (let ((e-2 (vector-ref e-5 2))) (let ((e-3 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-29 (vector-ref e-5 5))) (let ((e-6 (vector-ref e-5 6))) (let ((e-7 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (let ((e-10 (vector-ref e-5 10))) (let ((e-11 (vector-ref e-5 11))) (let ((e-12 (vector-ref e-5 12))) (let ((e-13 (vector-ref e-5 13))) (let ((e-14 (vector-ref e-5 14))) (let ((e-15 (vector-ref e-5 15))) (let ((e-16 (vector-ref e-5 16))) (let ((e-18 (vector-ref e-5 18))) (let ((e-19 (vector-ref e-5 19))) (let ((e-20 (vector-ref e-5 20))) (let ((e-21 (vector-ref e-5 21))) (let ((e-22 (vector-ref e-5 22))) (let ((e-23 (vector-ref e-5 23))) (let ((e-24 (vector-ref e-5 24))) (let ((e-25 (vector-ref e-5 25))) (let ((e-26 (vector-ref e-5 26))) (let ((e-27 (vector-ref e-5 27))) (let ((e-28 (vector-ref e-5 28))) (vector e-0 e-1 e-2 e-3 e-4 e-29 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 (let ((e-30 (cdr arg-2))) ((e-30 (let ((e-43 (vector-ref e-5 17))) e-43)) arg-3)) e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27 e-28)))))))))))))))))))))))))))))))) (vector 1 act-25)))))))) +(define CoreC-45Context-addGlobalHint (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-toResolvedNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-0))))) arg-1 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (set-box! arg-0 (let ((e-0 (vector-ref e-5 0))) (let ((e-1 (vector-ref e-5 1))) (let ((e-2 (vector-ref e-5 2))) (let ((e-3 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-30 (vector-ref e-5 5))) (let ((e-29 (vector-ref e-5 6))) (let ((e-7 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (let ((e-10 (vector-ref e-5 10))) (let ((e-11 (vector-ref e-5 11))) (let ((e-12 (vector-ref e-5 12))) (let ((e-13 (vector-ref e-5 13))) (let ((e-14 (vector-ref e-5 14))) (let ((e-15 (vector-ref e-5 15))) (let ((e-16 (vector-ref e-5 16))) (let ((e-17 (vector-ref e-5 17))) (let ((e-18 (vector-ref e-5 18))) (let ((e-19 (vector-ref e-5 19))) (let ((e-20 (vector-ref e-5 20))) (let ((e-21 (vector-ref e-5 21))) (let ((e-22 (vector-ref e-5 22))) (let ((e-23 (vector-ref e-5 23))) (let ((e-24 (vector-ref e-5 24))) (let ((e-25 (vector-ref e-5 25))) (let ((e-26 (vector-ref e-5 26))) (let ((e-27 (vector-ref e-5 27))) (let ((e-28 (vector-ref e-5 28))) (vector e-0 e-1 e-2 e-3 e-4 e-30 e-29 e-7 (LibrariesC-45DataC-45NameMap-insert e-6 arg-2 e-8) e-9 e-10 e-11 (cons (cons e-6 arg-2) e-12) e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27 e-28))))))))))))))))))))))))))))))))) (vector 1 act-26)))))))))))) +(define CoreC-45Context-addExtraDir (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (set-box! arg-0 (let ((e-0 (vector-ref e-5 0))) (let ((e-1 (vector-ref e-5 1))) (let ((e-2 (vector-ref e-5 2))) (let ((e-3 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-29 (vector-ref e-5 5))) (let ((e-6 (vector-ref e-5 6))) (let ((e-7 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (let ((e-10 (vector-ref e-5 10))) (let ((e-11 (vector-ref e-5 11))) (let ((e-12 (vector-ref e-5 12))) (let ((e-13 (vector-ref e-5 13))) (let ((e-14 (vector-ref e-5 14))) (let ((e-15 (vector-ref e-5 15))) (let ((e-16 (vector-ref e-5 16))) (let ((e-17 (vector-ref e-5 17))) (let ((e-18 (vector-ref e-5 18))) (let ((e-19 (vector-ref e-5 19))) (let ((e-20 (vector-ref e-5 20))) (let ((e-21 (vector-ref e-5 21))) (let ((e-22 (vector-ref e-5 22))) (let ((e-23 (vector-ref e-5 23))) (let ((e-24 (vector-ref e-5 24))) (let ((e-25 (vector-ref e-5 25))) (let ((e-26 (vector-ref e-5 26))) (let ((e-27 (vector-ref e-5 27))) (let ((e-28 (vector-ref e-5 28))) (let ((e-38 (vector-ref e-4 0))) (let ((e-30 (vector-ref e-4 1))) (let ((e-31 (vector-ref e-4 2))) (let ((e-32 (vector-ref e-4 3))) (let ((e-33 (vector-ref e-4 4))) (let ((e-34 (vector-ref e-4 5))) (let ((e-35 (vector-ref e-4 6))) (let ((e-36 (vector-ref e-4 7))) (let ((e-37 (vector-ref e-4 8))) (let ((e-48 (vector-ref e-38 0))) (let ((e-39 (vector-ref e-38 1))) (let ((e-40 (vector-ref e-38 2))) (let ((e-41 (vector-ref e-38 3))) (let ((e-42 (vector-ref e-38 4))) (let ((e-43 (vector-ref e-38 5))) (let ((e-44 (vector-ref e-38 6))) (let ((e-45 (vector-ref e-38 7))) (let ((e-46 (vector-ref e-38 8))) (let ((e-47 (vector-ref e-38 9))) (vector e-0 e-1 e-2 e-3 (vector (vector e-48 e-39 e-40 e-41 e-42 e-43 (PreludeC-45TypesC-45List-C-43C-43 e-44 (cons arg-1 '())) e-45 e-46 e-47) e-30 e-31 e-32 e-33 e-34 e-35 e-36 e-37) e-29 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27 e-28)))))))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25)))))))) +(define CoreC-45Context-addEntry (lambda (arg-0 arg-1 arg-2 ext-0) (let ((sc0 (PreludeC-45Types-u--C-61C-61_Eq_Nat (let ((e-5 (vector-ref arg-2 5))) e-5) 0))) (cond ((equal? sc0 1) (let ((act-24 ((CoreC-45Context-getPosition arg-0 arg-2) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((e-2 (car e-5))) (let ((e-3 (cdr e-5))) (let ((u--a (let ((e-4 (vector-ref e-3 4))) e-4))) (let ((act-25 (let ((act-25 (unbox u--a))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (let ((act-26 ((DataC-45IOArray-writeArray (cons (vector (vector (lambda (u--b) (lambda (a-0) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (a-0) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (a-0) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (a-0) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-26 (arg-811 eta-0))) ((arg-812 act-26) eta-0))))))) (lambda (a-0) (lambda (arg-814) (lambda (eta-0) (let ((act-51 (arg-814 eta-0))) (act-51 eta-0)))))) (lambda (a-0) (lambda (arg-6881) arg-6881))) e-6 e-2 arg-1) ext-0))) (vector 1 act-26)))) (case (vector-ref act-26 0) ((0) (let ((e-4 (vector-ref act-26 1))) (vector 0 e-4))) (else (vector 1 (cons e-2 e-3))))))))))))))))) (else (let ((act-24 ((CoreC-45Context-getPosition arg-0 arg-2) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((e-2 (car e-5))) (let ((e-3 (cdr e-5))) (vector 1 (cons e-2 (let ((e-0 (vector-ref e-3 0))) (let ((e-1 (vector-ref e-3 1))) (let ((e-13 (vector-ref e-3 2))) (let ((e-12 (vector-ref e-3 3))) (let ((e-4 (vector-ref e-3 4))) (let ((e-11 (vector-ref e-3 5))) (let ((e-6 (vector-ref e-3 6))) (let ((e-7 (vector-ref e-3 7))) (let ((e-8 (vector-ref e-3 8))) (let ((e-9 (vector-ref e-3 9))) (let ((e-10 (vector-ref e-3 10))) (vector e-0 e-1 e-13 e-12 e-4 e-11 (LibrariesC-45DataC-45IntMap-insert e-2 arg-1 e-6) e-7 e-8 e-9 e-10))))))))))))))))))))))))) +(define CoreC-45Context-addDirective (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((sc1 (CoreC-45Options-getCG (let ((e-4 (vector-ref e-5 4))) e-4) arg-1))) (if (null? sc1) (let ((act-25 ((PreludeC-45IO-putStrLn (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-25 (arg-811 eta-0))) ((arg-812 act-25) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-51 (arg-814 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) (PreludeC-45TypesC-45String-C-43C-43 "Unknown code generator " arg-1)) ext-0))) (vector 1 act-25)) (let ((e-2 (unbox sc1))) (let ((act-25 (set-box! arg-0 (let ((e-0 (vector-ref e-5 0))) (let ((e-1 (vector-ref e-5 1))) (let ((e-30 (vector-ref e-5 2))) (let ((e-3 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-29 (vector-ref e-5 5))) (let ((e-6 (vector-ref e-5 6))) (let ((e-7 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (let ((e-10 (vector-ref e-5 10))) (let ((e-11 (vector-ref e-5 11))) (let ((e-12 (vector-ref e-5 12))) (let ((e-13 (vector-ref e-5 13))) (let ((e-14 (vector-ref e-5 14))) (let ((e-15 (vector-ref e-5 15))) (let ((e-16 (vector-ref e-5 16))) (let ((e-17 (vector-ref e-5 17))) (let ((e-18 (vector-ref e-5 18))) (let ((e-19 (vector-ref e-5 19))) (let ((e-20 (vector-ref e-5 20))) (let ((e-21 (vector-ref e-5 21))) (let ((e-22 (vector-ref e-5 22))) (let ((e-23 (vector-ref e-5 23))) (let ((e-24 (vector-ref e-5 24))) (let ((e-25 (vector-ref e-5 25))) (let ((e-26 (vector-ref e-5 26))) (let ((e-27 (vector-ref e-5 27))) (let ((e-28 (vector-ref e-5 28))) (vector e-0 e-1 e-30 e-3 e-4 e-29 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 (cons (cons e-2 arg-2) e-21) e-22 e-23 e-24 e-25 e-26 e-27 e-28))))))))))))))))))))))))))))))))) (vector 1 act-25))))))))))) +(define CoreC-45Context-addDef (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-addCtxt arg-1 arg-2 (let ((e-0 (vector-ref e-5 0))) e-0) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((e-2 (car e-6))) (let ((e-3 (cdr e-6))) (let ((act-26 (let ((act-26 (set-box! arg-0 (let ((e-1 (vector-ref e-5 1))) (let ((e-32 (vector-ref e-5 2))) (let ((e-31 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-30 (vector-ref e-5 5))) (let ((e-29 (vector-ref e-5 6))) (let ((e-7 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (let ((e-10 (vector-ref e-5 10))) (let ((e-11 (vector-ref e-5 11))) (let ((e-12 (vector-ref e-5 12))) (let ((e-13 (vector-ref e-5 13))) (let ((e-14 (vector-ref e-5 14))) (let ((e-15 (vector-ref e-5 15))) (let ((e-16 (vector-ref e-5 16))) (let ((e-17 (vector-ref e-5 17))) (let ((e-18 (vector-ref e-5 18))) (let ((e-19 (vector-ref e-5 19))) (let ((e-20 (vector-ref e-5 20))) (let ((e-21 (vector-ref e-5 21))) (let ((e-22 (vector-ref e-5 22))) (let ((e-23 (vector-ref e-5 23))) (let ((e-24 (vector-ref e-5 24))) (let ((e-25 (vector-ref e-5 25))) (let ((e-26 (vector-ref e-5 26))) (let ((e-27 (vector-ref e-5 27))) (let ((e-28 (vector-ref e-5 28))) (vector e-3 e-1 e-32 e-31 e-4 e-30 e-29 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27 e-28)))))))))))))))))))))))))))))))) (vector 1 act-26)))) (case (vector-ref act-26 0) ((0) (let ((e-4 (vector-ref act-26 1))) (vector 0 e-4))) (else (let ((act-27 (let ((e-17 (vector-ref arg-2 17))) (case (vector-ref e-17 0) ((0) (vector 1 0)) ((7) (vector 1 0))(else (CoreC-45Context-clearUserHole arg-0 (let ((e-45 (vector-ref arg-2 1))) e-45) ext-0)))))) (case (vector-ref act-27 0) ((0) (let ((e-4 (vector-ref act-27 1))) (vector 0 e-4))) (else (vector 1 e-2))))))))))))))))))) +(define CoreC-45Context-addDataDir (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (set-box! arg-0 (let ((e-0 (vector-ref e-5 0))) (let ((e-1 (vector-ref e-5 1))) (let ((e-2 (vector-ref e-5 2))) (let ((e-3 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-29 (vector-ref e-5 5))) (let ((e-6 (vector-ref e-5 6))) (let ((e-7 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (let ((e-10 (vector-ref e-5 10))) (let ((e-11 (vector-ref e-5 11))) (let ((e-12 (vector-ref e-5 12))) (let ((e-13 (vector-ref e-5 13))) (let ((e-14 (vector-ref e-5 14))) (let ((e-15 (vector-ref e-5 15))) (let ((e-16 (vector-ref e-5 16))) (let ((e-17 (vector-ref e-5 17))) (let ((e-18 (vector-ref e-5 18))) (let ((e-19 (vector-ref e-5 19))) (let ((e-20 (vector-ref e-5 20))) (let ((e-21 (vector-ref e-5 21))) (let ((e-22 (vector-ref e-5 22))) (let ((e-23 (vector-ref e-5 23))) (let ((e-24 (vector-ref e-5 24))) (let ((e-25 (vector-ref e-5 25))) (let ((e-26 (vector-ref e-5 26))) (let ((e-27 (vector-ref e-5 27))) (let ((e-28 (vector-ref e-5 28))) (let ((e-38 (vector-ref e-4 0))) (let ((e-30 (vector-ref e-4 1))) (let ((e-31 (vector-ref e-4 2))) (let ((e-32 (vector-ref e-4 3))) (let ((e-33 (vector-ref e-4 4))) (let ((e-34 (vector-ref e-4 5))) (let ((e-35 (vector-ref e-4 6))) (let ((e-36 (vector-ref e-4 7))) (let ((e-37 (vector-ref e-4 8))) (let ((e-48 (vector-ref e-38 0))) (let ((e-39 (vector-ref e-38 1))) (let ((e-40 (vector-ref e-38 2))) (let ((e-41 (vector-ref e-38 3))) (let ((e-42 (vector-ref e-38 4))) (let ((e-43 (vector-ref e-38 5))) (let ((e-44 (vector-ref e-38 6))) (let ((e-45 (vector-ref e-38 7))) (let ((e-46 (vector-ref e-38 8))) (let ((e-47 (vector-ref e-38 9))) (vector e-0 e-1 e-2 e-3 (vector (vector e-48 e-39 e-40 e-41 e-42 e-43 e-44 e-45 e-46 (PreludeC-45TypesC-45List-C-43C-43 e-47 (cons arg-1 '()))) e-30 e-31 e-32 e-33 e-34 e-35 e-36 e-37) e-29 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27 e-28)))))))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25)))))))) +(define CoreC-45Context-addCtxt (lambda (arg-0 arg-1 arg-2 ext-0) (let ((sc0 (PreludeC-45Types-u--C-61C-61_Eq_Nat (let ((e-5 (vector-ref arg-2 5))) e-5) 0))) (cond ((equal? sc0 1) (let ((act-24 ((CoreC-45Context-getPosition arg-0 arg-2) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((e-2 (car e-5))) (let ((e-3 (cdr e-5))) (let ((u--a (let ((e-4 (vector-ref e-3 4))) e-4))) (let ((act-25 (let ((act-25 (unbox u--a))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (let ((act-26 ((DataC-45IOArray-writeArray (cons (vector (vector (lambda (u--b) (lambda (a-0) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (a-0) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (a-0) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (a-0) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-26 (arg-811 eta-0))) ((arg-812 act-26) eta-0))))))) (lambda (a-0) (lambda (arg-814) (lambda (eta-0) (let ((act-51 (arg-814 eta-0))) (act-51 eta-0)))))) (lambda (a-0) (lambda (arg-6881) arg-6881))) e-6 e-2 (vector 1 arg-1)) ext-0))) (vector 1 act-26)))) (case (vector-ref act-26 0) ((0) (let ((e-4 (vector-ref act-26 1))) (vector 0 e-4))) (else (vector 1 (cons e-2 e-3))))))))))))))))) (else (let ((act-24 ((CoreC-45Context-getPosition arg-0 arg-2) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((e-2 (car e-5))) (let ((e-3 (cdr e-5))) (vector 1 (cons e-2 (let ((e-0 (vector-ref e-3 0))) (let ((e-1 (vector-ref e-3 1))) (let ((e-13 (vector-ref e-3 2))) (let ((e-12 (vector-ref e-3 3))) (let ((e-4 (vector-ref e-3 4))) (let ((e-11 (vector-ref e-3 5))) (let ((e-6 (vector-ref e-3 6))) (let ((e-7 (vector-ref e-3 7))) (let ((e-8 (vector-ref e-3 8))) (let ((e-9 (vector-ref e-3 9))) (let ((e-10 (vector-ref e-3 10))) (vector e-0 e-1 e-13 e-12 e-4 e-11 (LibrariesC-45DataC-45IntMap-insert e-2 (vector 1 arg-1) e-6) e-7 e-8 e-9 e-10))))))))))))))))))))))))) +(define CoreC-45Context-addContextEntry (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-addEntry arg-2 (vector 0 arg-1 arg-3) (let ((e-0 (vector-ref e-5 0))) e-0) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((e-2 (car e-6))) (let ((e-3 (cdr e-6))) (let ((act-26 (let ((act-26 (set-box! arg-0 (let ((e-1 (vector-ref e-5 1))) (let ((e-32 (vector-ref e-5 2))) (let ((e-31 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-30 (vector-ref e-5 5))) (let ((e-29 (vector-ref e-5 6))) (let ((e-7 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (let ((e-10 (vector-ref e-5 10))) (let ((e-11 (vector-ref e-5 11))) (let ((e-12 (vector-ref e-5 12))) (let ((e-13 (vector-ref e-5 13))) (let ((e-14 (vector-ref e-5 14))) (let ((e-15 (vector-ref e-5 15))) (let ((e-16 (vector-ref e-5 16))) (let ((e-17 (vector-ref e-5 17))) (let ((e-18 (vector-ref e-5 18))) (let ((e-19 (vector-ref e-5 19))) (let ((e-20 (vector-ref e-5 20))) (let ((e-21 (vector-ref e-5 21))) (let ((e-22 (vector-ref e-5 22))) (let ((e-23 (vector-ref e-5 23))) (let ((e-24 (vector-ref e-5 24))) (let ((e-25 (vector-ref e-5 25))) (let ((e-26 (vector-ref e-5 26))) (let ((e-27 (vector-ref e-5 27))) (let ((e-28 (vector-ref e-5 28))) (vector e-3 e-1 e-32 e-31 e-4 e-30 e-29 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27 e-28)))))))))))))))))))))))))))))))) (vector 1 act-26)))) (case (vector-ref act-26 0) ((0) (let ((e-4 (vector-ref act-26 1))) (vector 0 e-4))) (else (vector 1 e-2)))))))))))))))) +(define CoreC-45Context-addContextAlias (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact arg-1 (let ((e-0 (vector-ref e-5 0))) e-0)) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (if (null? e-6) (let ((act-26 (CoreC-45Context-newAlias arg-1 arg-2 (let ((e-0 (vector-ref e-5 0))) e-0) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (set-box! arg-0 (let ((e-1 (vector-ref e-5 1))) (let ((e-2 (vector-ref e-5 2))) (let ((e-3 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-31 (vector-ref e-5 5))) (let ((e-30 (vector-ref e-5 6))) (let ((e-29 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (let ((e-10 (vector-ref e-5 10))) (let ((e-11 (vector-ref e-5 11))) (let ((e-12 (vector-ref e-5 12))) (let ((e-13 (vector-ref e-5 13))) (let ((e-14 (vector-ref e-5 14))) (let ((e-15 (vector-ref e-5 15))) (let ((e-16 (vector-ref e-5 16))) (let ((e-17 (vector-ref e-5 17))) (let ((e-18 (vector-ref e-5 18))) (let ((e-19 (vector-ref e-5 19))) (let ((e-20 (vector-ref e-5 20))) (let ((e-21 (vector-ref e-5 21))) (let ((e-22 (vector-ref e-5 22))) (let ((e-23 (vector-ref e-5 23))) (let ((e-24 (vector-ref e-5 24))) (let ((e-25 (vector-ref e-5 25))) (let ((e-26 (vector-ref e-5 26))) (let ((e-27 (vector-ref e-5 27))) (let ((e-28 (vector-ref e-5 28))) (vector e-7 e-1 e-2 e-3 e-4 e-31 e-30 e-29 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27 e-28)))))))))))))))))))))))))))))))) (vector 1 act-27)))))) (vector 1 0)))))))))))) +(define CoreC-45Context-addBuiltin (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-2 (vector-ref eta-0 1))) (vector 0 e-2))) (else (vector 1 0)))) (lambda (eta-0) (CoreC-45Context-addDef arg-1 arg-2 (vector (CoreC-45FC-emptyFC) arg-2 arg-3 '() '() '() '() (AlgebraC-45ZeroOneOmega-u--top_Top_ZeroOneOmega) '() 2 arg-4 (cons (vector 0 ) '()) '() '() 0 0 1 (vector 4 arg-0 arg-5) '() '() '()) eta-0)) ext-0))) +(define CoreC-45Context-addAlias (lambda (arg-0 arg-1 arg-2 arg-3) (CoreC-45Context-case--addAlias-2181 arg-3 arg-2 arg-1 arg-0 (CoreC-45Name-userNameRoot arg-0)))) (define CoreC-45Context-Grow (lambda () (CoreC-45Context-initSize))) -(define SystemC-45Directory-case--dirEntry-823 (lambda (arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (SystemC-45Directory-returnError arg-1)) (else (SystemC-45Directory-ok arg-1 (PreludeC-45IO-prim__getString arg-3))))))) -(define SystemC-45Directory-case--openDir-740 (lambda (arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (SystemC-45Directory-returnError arg-1)) (else (SystemC-45Directory-ok arg-1 arg-3)))))) -(define SystemC-45Directory-case--currentDir-679 (lambda (arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (let ((sc1 arg-1)) (let ((e-1 (car sc1))) (let ((sc2 e-1)) (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (let ((e-7 (vector-ref sc3 2))) ((e-7 'erased) (vector 0 ))))))))) (else (let ((sc1 arg-1)) (let ((e-1 (car sc1))) (let ((sc2 e-1)) (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (let ((e-7 (vector-ref sc3 2))) ((e-7 'erased) (vector 1 (PreludeC-45IO-prim__getString arg-2)))))))))))))) -(define SystemC-45Directory-case--createDir-589 (lambda (arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (SystemC-45Directory-ok arg-1 (vector 0 ))) (else (SystemC-45Directory-returnError arg-1)))))) -(define SystemC-45Directory-returnError (lambda (arg-2) (let ((sc0 arg-2)) (let ((e-1 (car sc0))) (let ((sc1 e-1)) (let ((e-4 (vector-ref sc1 2))) ((((e-4 'erased) 'erased) (let ((sc2 arg-2)) (let ((e-6 (cdr sc2))) ((e-6 'erased) (lambda (eta-0) (SystemC-45Directory-prim__fileErrno eta-0)))))) (lambda (u--err) (let ((sc2 u--err)) (cond ((equal? sc2 0) (let ((sc3 arg-2)) (let ((e-7 (car sc3))) (let ((sc4 e-7)) (let ((e-10 (vector-ref sc4 1))) (let ((sc5 e-10)) (let ((e-12 (vector-ref sc5 2))) ((e-12 'erased) (vector 0 (vector 1 )))))))))) ((equal? sc2 1) (let ((sc3 arg-2)) (let ((e-7 (car sc3))) (let ((sc4 e-7)) (let ((e-10 (vector-ref sc4 1))) (let ((sc5 e-10)) (let ((e-12 (vector-ref sc5 2))) ((e-12 'erased) (vector 0 (vector 2 )))))))))) ((equal? sc2 2) (let ((sc3 arg-2)) (let ((e-7 (car sc3))) (let ((sc4 e-7)) (let ((e-10 (vector-ref sc4 1))) (let ((sc5 e-10)) (let ((e-12 (vector-ref sc5 2))) ((e-12 'erased) (vector 0 (vector 3 )))))))))) ((equal? sc2 3) (let ((sc3 arg-2)) (let ((e-7 (car sc3))) (let ((sc4 e-7)) (let ((e-10 (vector-ref sc4 1))) (let ((sc5 e-10)) (let ((e-12 (vector-ref sc5 2))) ((e-12 'erased) (vector 0 (vector 4 )))))))))) ((equal? sc2 4) (let ((sc3 arg-2)) (let ((e-7 (car sc3))) (let ((sc4 e-7)) (let ((e-10 (vector-ref sc4 1))) (let ((sc5 e-10)) (let ((e-12 (vector-ref sc5 2))) ((e-12 'erased) (vector 0 (vector 5 ))))))))))(else (let ((sc2 arg-2)) (let ((e-7 (car sc2))) (let ((sc3 e-7)) (let ((e-10 (vector-ref sc3 1))) (let ((sc4 e-10)) (let ((e-12 (vector-ref sc4 2))) ((e-12 'erased) (vector 0 (vector 0 (PreludeC-45Num-u--C-45_Neg_Int u--err 5))))))))))))))))))))) -(define SystemC-45Directory-openDir (lambda (arg-1 arg-2) (let ((sc0 arg-1)) (let ((e-1 (car sc0))) (let ((sc1 e-1)) (let ((e-4 (vector-ref sc1 2))) ((((e-4 'erased) 'erased) (let ((sc2 arg-1)) (let ((e-6 (cdr sc2))) ((e-6 'erased) (lambda (eta-0) (SystemC-45Directory-prim__openDir arg-2 eta-0)))))) (lambda (u--res) (SystemC-45Directory-case--openDir-740 arg-1 arg-2 u--res (PreludeC-45EqOrd-u--C-47C-61_Eq_Int (PrimIO-prim__nullAnyPtr u--res) (blodwen-toSignedInt 0 63))))))))))) -(define SystemC-45Directory-ok (lambda (arg-2 arg-3) (let ((sc0 arg-2)) (let ((e-1 (car sc0))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-7 (vector-ref sc2 2))) ((e-7 'erased) (vector 1 arg-3)))))))))) -(define SystemC-45Directory-dirEntry (lambda (arg-1 arg-2) (let ((sc0 arg-1)) (let ((e-1 (car sc0))) (let ((sc1 e-1)) (let ((e-4 (vector-ref sc1 2))) ((((e-4 'erased) 'erased) (let ((sc2 arg-1)) (let ((e-6 (cdr sc2))) ((e-6 'erased) (lambda (eta-0) (SystemC-45Directory-prim__dirEntry arg-2 eta-0)))))) (lambda (u--res) (SystemC-45Directory-case--dirEntry-823 arg-1 arg-2 u--res (PreludeC-45EqOrd-u--C-47C-61_Eq_Int (PrimIO-prim__nullAnyPtr (PrimIO-prim__forgetPtr u--res)) (blodwen-toSignedInt 0 63))))))))))) -(define SystemC-45Directory-currentDir (lambda (arg-1) (let ((sc0 arg-1)) (let ((e-1 (car sc0))) (let ((sc1 e-1)) (let ((e-4 (vector-ref sc1 2))) ((((e-4 'erased) 'erased) (let ((sc2 arg-1)) (let ((e-6 (cdr sc2))) ((e-6 'erased) (lambda (eta-0) (SystemC-45Directory-prim__currentDir eta-0)))))) (lambda (u--res) (SystemC-45Directory-case--currentDir-679 arg-1 u--res (PreludeC-45EqOrd-u--C-47C-61_Eq_Int (PrimIO-prim__nullAnyPtr (PrimIO-prim__forgetPtr u--res)) (blodwen-toSignedInt 0 63))))))))))) -(define SystemC-45Directory-createDir (lambda (arg-1 arg-2) (let ((sc0 arg-1)) (let ((e-1 (car sc0))) (let ((sc1 e-1)) (let ((e-4 (vector-ref sc1 2))) ((((e-4 'erased) 'erased) (let ((sc2 arg-1)) (let ((e-6 (cdr sc2))) ((e-6 'erased) (lambda (eta-0) (SystemC-45Directory-prim__createDir arg-2 eta-0)))))) (lambda (u--res) (SystemC-45Directory-case--createDir-589 arg-1 arg-2 u--res (PreludeC-45EqOrd-u--C-61C-61_Eq_Int u--res (blodwen-toSignedInt 0 63))))))))))) -(define SystemC-45Directory-closeDir (lambda (arg-1 arg-2) (let ((sc0 arg-1)) (let ((e-2 (cdr sc0))) ((e-2 'erased) (lambda (eta-0) (SystemC-45Directory-prim__closeDir arg-2 eta-0))))))) -(define SystemC-45Directory-changeDir (lambda (arg-1 arg-2) (let ((sc0 arg-1)) (let ((e-1 (car sc0))) (let ((sc1 e-1)) (let ((e-4 (vector-ref sc1 2))) ((((e-4 'erased) 'erased) (let ((sc2 arg-1)) (let ((e-6 (cdr sc2))) ((e-6 'erased) (lambda (eta-0) (SystemC-45Directory-prim__changeDir arg-2 eta-0)))))) (lambda (u--ok) (let ((sc2 arg-1)) (let ((e-7 (car sc2))) (let ((sc3 e-7)) (let ((e-10 (vector-ref sc3 1))) (let ((sc4 e-10)) (let ((e-12 (vector-ref sc4 2))) ((e-12 'erased) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int u--ok (blodwen-toSignedInt 0 63))))))))))))))))) -(define LibrariesC-45TextC-45DistanceC-45Levenshtein-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32compute-3715 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (blodwen-toSignedInt 1 63)) (else (blodwen-toSignedInt 2 63)))))) -(define LibrariesC-45TextC-45DistanceC-45Levenshtein-case--caseC-32blockC-32inC-32compute-3656 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (blodwen-toSignedInt 1 63)) (else (LibrariesC-45TextC-45DistanceC-45Levenshtein-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32compute-3715 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 (PreludeC-45Basics-C-38C-38 (PreludeC-45Types-isDigit arg-10) (lambda () (PreludeC-45Types-isDigit arg-11))))))))) -(define LibrariesC-45TextC-45DistanceC-45Levenshtein-case--compute-3597 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (blodwen-toSignedInt 0 63)) (else (LibrariesC-45TextC-45DistanceC-45Levenshtein-case--caseC-32blockC-32inC-32compute-3656 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 (PreludeC-45Basics-C-38C-38 (PreludeC-45Types-isAlpha arg-10) (lambda () (PreludeC-45Types-isAlpha arg-11))))))))) -(define LibrariesC-45TextC-45DistanceC-45Levenshtein-compute (lambda (arg-1 arg-2 arg-3) (let ((u--w (DataC-45String-strLength arg-2))) (let ((u--h (DataC-45String-strLength arg-3))) (let ((sc0 arg-1)) (let ((e-1 (car sc0))) (let ((sc1 e-1)) (let ((e-4 (vector-ref sc1 2))) ((((e-4 'erased) 'erased) (LibrariesC-45DataC-45IOMatrix-new arg-1 (bs+ u--w 1 63) (bs+ u--h 1 63))) (lambda (u--mat) (PreludeC-45Interfaces-C-62C-62 (let ((sc2 arg-1)) (let ((e-7 (car sc2))) e-7)) (PreludeC-45Interfaces-for_ (cons (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (let ((sc2 arg-1)) (let ((e-7 (car sc2))) (let ((sc3 e-7)) (let ((e-10 (vector-ref sc3 1))) e-10))))) (PreludeC-45Types-u--rangeFromTo_Range_C-36a (cons (vector 0 (vector 0 (lambda (arg-4) (lambda (arg-5) (bs+ arg-4 arg-5 63))) (lambda (arg-4) (lambda (arg-5) (bs* arg-4 arg-5 63))) (lambda (arg-6) (blodwen-toSignedInt arg-6 63))) (lambda (arg-184) (lambda (arg-185) (PreludeC-45Num-u--div_Integral_Int arg-184 arg-185))) (lambda (arg-186) (lambda (arg-187) (PreludeC-45Num-u--mod_Integral_Int arg-186 arg-187)))) (cons (vector 0 (cons (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Int arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Int arg-383 arg-384)))) (vector 0 (vector 0 (lambda (arg-4) (lambda (arg-5) (bs+ arg-4 arg-5 63))) (lambda (arg-4) (lambda (arg-5) (bs* arg-4 arg-5 63))) (lambda (arg-6) (blodwen-toSignedInt arg-6 63))) (lambda (arg-56) (PreludeC-45Num-u--negate_Neg_Int arg-56)) (lambda (arg-57) (lambda (arg-58) (PreludeC-45Num-u--C-45_Neg_Int arg-57 arg-58)))))) 0 u--w) (lambda (u--i) (LibrariesC-45DataC-45IOMatrix-write arg-1 u--mat u--i 0 u--i))) (lambda () (PreludeC-45Interfaces-C-62C-62 (let ((sc2 arg-1)) (let ((e-7 (car sc2))) e-7)) (PreludeC-45Interfaces-for_ (cons (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (let ((sc2 arg-1)) (let ((e-7 (car sc2))) (let ((sc3 e-7)) (let ((e-10 (vector-ref sc3 1))) e-10))))) (PreludeC-45Types-u--rangeFromTo_Range_C-36a (cons (vector 0 (vector 0 (lambda (arg-4) (lambda (arg-5) (bs+ arg-4 arg-5 63))) (lambda (arg-4) (lambda (arg-5) (bs* arg-4 arg-5 63))) (lambda (arg-6) (blodwen-toSignedInt arg-6 63))) (lambda (arg-184) (lambda (arg-185) (PreludeC-45Num-u--div_Integral_Int arg-184 arg-185))) (lambda (arg-186) (lambda (arg-187) (PreludeC-45Num-u--mod_Integral_Int arg-186 arg-187)))) (cons (vector 0 (cons (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Int arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Int arg-383 arg-384)))) (vector 0 (vector 0 (lambda (arg-4) (lambda (arg-5) (bs+ arg-4 arg-5 63))) (lambda (arg-4) (lambda (arg-5) (bs* arg-4 arg-5 63))) (lambda (arg-6) (blodwen-toSignedInt arg-6 63))) (lambda (arg-56) (PreludeC-45Num-u--negate_Neg_Int arg-56)) (lambda (arg-57) (lambda (arg-58) (PreludeC-45Num-u--C-45_Neg_Int arg-57 arg-58)))))) 0 u--h) (lambda (u--j) (LibrariesC-45DataC-45IOMatrix-write arg-1 u--mat 0 u--j u--j))) (let ((u--get (lambda (u--i) (lambda (u--j) (let ((sc2 arg-1)) (let ((e-7 (car sc2))) (let ((sc3 e-7)) (let ((e-9 (vector-ref sc3 2))) ((((e-9 'erased) 'erased) (LibrariesC-45DataC-45IOMatrix-read arg-1 u--mat u--i u--j)) (lambda (bind-0) (let ((sc4 bind-0)) (case (vector-ref sc4 0) ((0) (Builtin-idris_crash "INTERNAL ERROR: Badly initialised matrix")) (else (let ((e-11 (vector-ref sc4 1))) (let ((sc5 arg-1)) (let ((e-13 (car sc5))) (let ((sc6 e-13)) (let ((e-16 (vector-ref sc6 1))) (let ((sc7 e-16)) (let ((e-18 (vector-ref sc7 2))) ((e-18 'erased) e-11))))))))))))))))))))) (lambda () (PreludeC-45Interfaces-C-62C-62 (let ((sc2 arg-1)) (let ((e-7 (car sc2))) e-7)) (PreludeC-45Interfaces-for_ (cons (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (let ((sc2 arg-1)) (let ((e-7 (car sc2))) (let ((sc3 e-7)) (let ((e-10 (vector-ref sc3 1))) e-10))))) (PreludeC-45Types-u--rangeFromTo_Range_C-36a (cons (vector 0 (vector 0 (lambda (arg-4) (lambda (arg-5) (bs+ arg-4 arg-5 63))) (lambda (arg-4) (lambda (arg-5) (bs* arg-4 arg-5 63))) (lambda (arg-6) (blodwen-toSignedInt arg-6 63))) (lambda (arg-184) (lambda (arg-185) (PreludeC-45Num-u--div_Integral_Int arg-184 arg-185))) (lambda (arg-186) (lambda (arg-187) (PreludeC-45Num-u--mod_Integral_Int arg-186 arg-187)))) (cons (vector 0 (cons (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Int arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Int arg-383 arg-384)))) (vector 0 (vector 0 (lambda (arg-4) (lambda (arg-5) (bs+ arg-4 arg-5 63))) (lambda (arg-4) (lambda (arg-5) (bs* arg-4 arg-5 63))) (lambda (arg-6) (blodwen-toSignedInt arg-6 63))) (lambda (arg-56) (PreludeC-45Num-u--negate_Neg_Int arg-56)) (lambda (arg-57) (lambda (arg-58) (PreludeC-45Num-u--C-45_Neg_Int arg-57 arg-58)))))) 1 u--h) (lambda (u--j) (PreludeC-45Interfaces-for_ (cons (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (let ((sc2 arg-1)) (let ((e-7 (car sc2))) (let ((sc3 e-7)) (let ((e-10 (vector-ref sc3 1))) e-10))))) (PreludeC-45Types-u--rangeFromTo_Range_C-36a (cons (vector 0 (vector 0 (lambda (arg-4) (lambda (arg-5) (bs+ arg-4 arg-5 63))) (lambda (arg-4) (lambda (arg-5) (bs* arg-4 arg-5 63))) (lambda (arg-6) (blodwen-toSignedInt arg-6 63))) (lambda (arg-184) (lambda (arg-185) (PreludeC-45Num-u--div_Integral_Int arg-184 arg-185))) (lambda (arg-186) (lambda (arg-187) (PreludeC-45Num-u--mod_Integral_Int arg-186 arg-187)))) (cons (vector 0 (cons (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Int arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Int arg-383 arg-384)))) (vector 0 (vector 0 (lambda (arg-4) (lambda (arg-5) (bs+ arg-4 arg-5 63))) (lambda (arg-4) (lambda (arg-5) (bs* arg-4 arg-5 63))) (lambda (arg-6) (blodwen-toSignedInt arg-6 63))) (lambda (arg-56) (PreludeC-45Num-u--negate_Neg_Int arg-56)) (lambda (arg-57) (lambda (arg-58) (PreludeC-45Num-u--C-45_Neg_Int arg-57 arg-58)))))) 1 u--w) (lambda (u--i) (let ((u--cost (let ((u--c (DataC-45String-strIndex arg-2 (PreludeC-45Num-u--C-45_Neg_Int u--i 1)))) (let ((u--d (DataC-45String-strIndex arg-3 (PreludeC-45Num-u--C-45_Neg_Int u--j 1)))) (LibrariesC-45TextC-45DistanceC-45Levenshtein-case--compute-3597 arg-1 arg-3 arg-2 u--w u--h u--mat u--get u--j u--i u--c u--d (PreludeC-45EqOrd-u--C-61C-61_Eq_Char u--c u--d)))))) (let ((sc2 arg-1)) (let ((e-7 (car sc2))) (let ((sc3 e-7)) (let ((e-9 (vector-ref sc3 2))) ((((e-9 'erased) 'erased) ((u--get u--i) (PreludeC-45Num-u--C-45_Neg_Int u--j 1))) (lambda (bind-0) (let ((sc4 arg-1)) (let ((e-12 (car sc4))) (let ((sc5 e-12)) (let ((e-14 (vector-ref sc5 2))) ((((e-14 'erased) 'erased) ((u--get (PreludeC-45Num-u--C-45_Neg_Int u--i 1)) u--j)) (lambda (bind-1) (let ((sc6 arg-1)) (let ((e-17 (car sc6))) (let ((sc7 e-17)) (let ((e-19 (vector-ref sc7 2))) ((((e-19 'erased) 'erased) ((u--get (PreludeC-45Num-u--C-45_Neg_Int u--i 1)) (PreludeC-45Num-u--C-45_Neg_Int u--j 1))) (lambda (bind-2) (LibrariesC-45DataC-45IOMatrix-write arg-1 u--mat u--i u--j (LibrariesC-45DataC-45ListC-45Extra-minimum (vector 0 (cons (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Int arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Int arg-383 arg-384)))) (cons (bs+ (blodwen-toSignedInt 1 63) bind-0 63) (cons (bs+ (blodwen-toSignedInt 1 63) bind-1 63) (cons (bs+ u--cost bind-2 63) '())))))))))))))))))))))))))))) (lambda () (PreludeC-45Interfaces-C-60C-36C-62 (let ((sc2 arg-1)) (let ((e-7 (car sc2))) (let ((sc3 e-7)) (let ((e-10 (vector-ref sc3 1))) (let ((sc4 e-10)) (let ((e-13 (vector-ref sc4 1))) e-13)))))) (lambda (eta-0) (PreludeC-45Types-prim__integerToNat (PreludeC-45Cast-u--cast_Cast_Int_Integer eta-0))) ((u--get u--w) u--h))))))))))))))))))) -(define LibrariesC-45DataC-45IOMatrix-case--read-588 (lambda (arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-2)) (let ((e-1 (car sc1))) (let ((sc2 e-1)) (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (let ((e-7 (vector-ref sc3 2))) ((e-7 'erased) (vector 0 ))))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 arg-2)) (let ((e-3 (cdr sc1))) ((e-3 'erased) (lambda (eta-0) (vector-ref (let ((sc2 arg-5)) (let ((e-4 (vector-ref sc2 3))) e-4)) e-2))))))))))) -(define LibrariesC-45DataC-45IOMatrix-case--write-509 (lambda (arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-2)) (let ((e-1 (car sc1))) (let ((sc2 e-1)) (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (let ((e-7 (vector-ref sc3 2))) ((e-7 'erased) 1)))))))) (else (let ((e-2 (vector-ref sc0 1))) (PreludeC-45Interfaces-C-60C-36 (let ((sc1 arg-2)) (let ((e-1 (car sc1))) (let ((sc2 e-1)) (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (let ((e-9 (vector-ref sc3 1))) e-9)))))) 0 (let ((sc1 arg-2)) (let ((e-3 (cdr sc1))) ((e-3 'erased) (lambda (eta-0) (vector-set! (let ((sc2 arg-6)) (let ((e-4 (vector-ref sc2 3))) e-4)) e-2 (vector 1 arg-3))))))))))))) -(define LibrariesC-45DataC-45IOMatrix-write (lambda (arg-2 arg-3 arg-4 arg-5 arg-6) (LibrariesC-45DataC-45IOMatrix-case--write-509 arg-2 arg-6 arg-5 arg-4 arg-3 (LibrariesC-45DataC-45IOMatrix-toPosition arg-3 arg-4 arg-5)))) -(define LibrariesC-45DataC-45IOMatrix-toPosition (lambda (arg-1 arg-2 arg-3) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (PreludeC-45Interfaces-C-62C-62 (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (PreludeC-45Types-u--map_Functor_Maybe u--func arg-143))))) (lambda (u--a) (lambda (arg-577) (PreludeC-45Types-u--pure_Applicative_Maybe arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (PreludeC-45Types-u--C-60C-42C-62_Applicative_Maybe arg-578 arg-580)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe arg-876 arg-877))))) (lambda (u--a) (lambda (arg-879) (PreludeC-45Types-u--join_Monad_Maybe arg-879)))) (PreludeC-45Interfaces-guard (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (PreludeC-45Types-u--map_Functor_Maybe u--func arg-143))))) (lambda (u--a) (lambda (arg-577) (PreludeC-45Types-u--pure_Applicative_Maybe arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (PreludeC-45Types-u--C-60C-42C-62_Applicative_Maybe arg-578 arg-580)))))) (lambda (u--a) (PreludeC-45Types-u--empty_Alternative_Maybe)) (lambda (u--a) (lambda (arg-827) (lambda (arg-828) (PreludeC-45Types-u--C-60C-124C-62_Alternative_Maybe arg-827 arg-828))))) (let ((sc1 (PreludeC-45Basics-C-124C-124 (PreludeC-45EqOrd-u--C-60_Ord_Int arg-2 (blodwen-toSignedInt 0 63)) (lambda () (PreludeC-45Basics-C-124C-124 (PreludeC-45EqOrd-u--C-60_Ord_Int arg-3 (blodwen-toSignedInt 0 63)) (lambda () (PreludeC-45Basics-C-124C-124 (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-2 e-1) (lambda () (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-3 e-2))))))))) (cond ((equal? sc1 0) 1) (else 0)))) (lambda () (PreludeC-45Types-u--pure_Applicative_Maybe (bs+ (bs* arg-2 e-2 63) arg-3 63))))))))) -(define LibrariesC-45DataC-45IOMatrix-read (lambda (arg-2 arg-3 arg-4 arg-5) (LibrariesC-45DataC-45IOMatrix-case--read-588 arg-2 arg-5 arg-4 arg-3 (LibrariesC-45DataC-45IOMatrix-toPosition arg-3 arg-4 arg-5)))) -(define LibrariesC-45DataC-45IOMatrix-new (lambda (arg-2 arg-3 arg-4) (let ((sc0 arg-2)) (let ((e-1 (car sc0))) (let ((sc1 e-1)) (let ((e-4 (vector-ref sc1 2))) ((((e-4 'erased) 'erased) (let ((sc2 arg-2)) (let ((e-6 (cdr sc2))) ((e-6 'erased) (lambda (eta-0) (make-vector (bs* arg-3 arg-4 63) (vector 0 ))))))) (lambda (bind-0) (let ((sc2 arg-2)) (let ((e-7 (car sc2))) (let ((sc3 e-7)) (let ((e-10 (vector-ref sc3 1))) (let ((sc4 e-10)) (let ((e-12 (vector-ref sc4 2))) ((e-12 'erased) (vector 0 arg-3 arg-4 bind-0)))))))))))))))) -(define LibrariesC-45DataC-45StringMap-case--insert-3751 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (cons arg-1 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (cons (+ 1 arg-1) e-5))))))) -(define LibrariesC-45DataC-45StringMap-case--lookupName-3704 (lambda (arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (LibrariesC-45DataC-45StringMap-lookup e-2 arg-1))))))) -(define LibrariesC-45DataC-45StringMap-case--treeInsert-2656 (lambda (arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-8 (car sc1))) (let ((e-9 (cdr sc1))) (let ((sc2 e-9)) (let ((e-12 (car sc2))) (let ((e-13 (cdr sc2))) (vector 1 (vector 1 e-8 e-12 e-13)))))))))))))) -(define LibrariesC-45DataC-45StringMap-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32treeInsertC-39-2559 (lambda (arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 (vector 2 arg-6 arg-5 arg-4 arg-3 e-2)))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-8 (car sc1))) (let ((e-9 (cdr sc1))) (let ((sc2 e-9)) (let ((e-12 (car sc2))) (let ((e-13 (cdr sc2))) (vector 1 (cons (vector 1 arg-6 arg-5 arg-4) (cons arg-3 (vector 1 e-8 e-12 e-13)))))))))))))))) -(define LibrariesC-45DataC-45StringMap-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32treeInsertC-39-2448 (lambda (arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 (vector 2 arg-6 arg-5 e-2 arg-3 arg-2)))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-8 (car sc1))) (let ((e-9 (cdr sc1))) (let ((sc2 e-9)) (let ((e-12 (car sc2))) (let ((e-13 (cdr sc2))) (vector 1 (cons (vector 1 arg-6 arg-5 e-8) (cons e-12 (vector 1 e-13 arg-3 arg-2)))))))))))))))) -(define LibrariesC-45DataC-45StringMap-case--caseC-32blockC-32inC-32treeInsertC-39-2417 (lambda (arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (LibrariesC-45DataC-45StringMap-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32treeInsertC-39-2448 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-9 (LibrariesC-45DataC-45StringMap-treeInsertC-39 arg-7 arg-9 arg-4))) (else (LibrariesC-45DataC-45StringMap-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32treeInsertC-39-2559 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-9 (LibrariesC-45DataC-45StringMap-treeInsertC-39 arg-7 arg-9 arg-2))))))) -(define LibrariesC-45DataC-45StringMap-case--caseC-32blockC-32inC-32treeInsertC-39-2307 (lambda (arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 (vector 2 e-2 arg-5 arg-4 arg-3 arg-2)))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-8 (car sc1))) (let ((e-9 (cdr sc1))) (let ((sc2 e-9)) (let ((e-12 (car sc2))) (let ((e-13 (cdr sc2))) (vector 1 (cons (vector 1 e-8 e-12 e-13) (cons arg-5 (vector 1 arg-4 arg-3 arg-2)))))))))))))))) -(define LibrariesC-45DataC-45StringMap-case--treeInsertC-39-2276 (lambda (arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (LibrariesC-45DataC-45StringMap-case--caseC-32blockC-32inC-32treeInsertC-39-2307 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-2 (LibrariesC-45DataC-45StringMap-treeInsertC-39 arg-8 arg-2 arg-7))) (else (LibrariesC-45DataC-45StringMap-case--caseC-32blockC-32inC-32treeInsertC-39-2417 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-2 (PreludeC-45EqOrd-u--C-60C-61_Ord_String arg-8 arg-4))))))) -(define LibrariesC-45DataC-45StringMap-case--caseC-32blockC-32inC-32treeInsertC-39-2198 (lambda (arg-2 arg-3 arg-4 arg-5 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 (vector 1 arg-4 arg-3 e-2)))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-8 (car sc1))) (let ((e-9 (cdr sc1))) (let ((sc2 e-9)) (let ((e-12 (car sc2))) (let ((e-13 (cdr sc2))) (vector 0 (vector 2 arg-4 arg-3 e-8 e-12 e-13)))))))))))))) -(define LibrariesC-45DataC-45StringMap-case--caseC-32blockC-32inC-32treeInsertC-39-2109 (lambda (arg-2 arg-3 arg-4 arg-5 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 (vector 1 e-2 arg-3 arg-2)))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-8 (car sc1))) (let ((e-9 (cdr sc1))) (let ((sc2 e-9)) (let ((e-12 (car sc2))) (let ((e-13 (cdr sc2))) (vector 0 (vector 2 e-8 e-12 e-13 arg-3 arg-2)))))))))))))) -(define LibrariesC-45DataC-45StringMap-case--treeInsertC-39-2082 (lambda (arg-2 arg-3 arg-4 arg-5 arg-6 arg-8) (let ((sc0 arg-8)) (cond ((equal? sc0 0) (LibrariesC-45DataC-45StringMap-case--caseC-32blockC-32inC-32treeInsertC-39-2109 arg-3 arg-4 arg-5 arg-6 arg-2 (LibrariesC-45DataC-45StringMap-treeInsertC-39 arg-6 arg-2 arg-5))) (else (LibrariesC-45DataC-45StringMap-case--caseC-32blockC-32inC-32treeInsertC-39-2198 arg-3 arg-4 arg-5 arg-6 arg-2 (LibrariesC-45DataC-45StringMap-treeInsertC-39 arg-6 arg-2 arg-3))))))) -(define LibrariesC-45DataC-45StringMap-case--treeInsertC-39-1980 (lambda (arg-1 arg-2 arg-3 arg-4 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (vector 1 (cons (vector 0 arg-4 arg-1) (cons arg-4 (vector 0 arg-3 arg-2))))) ((equal? sc0 1) (vector 0 (vector 0 arg-4 arg-1))) (else (vector 1 (cons (vector 0 arg-3 arg-2) (cons arg-3 (vector 0 arg-4 arg-1))))))))) -(define LibrariesC-45DataC-45StringMap-case--caseC-32blockC-32inC-32treeLookup-1919 (lambda (arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-9) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (LibrariesC-45DataC-45StringMap-treeLookup arg-7 arg-4)) (else (LibrariesC-45DataC-45StringMap-treeLookup arg-7 arg-2)))))) -(define LibrariesC-45DataC-45StringMap-case--treeLookup-1872 (lambda (arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-9) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (LibrariesC-45DataC-45StringMap-treeLookup arg-7 arg-6)) (else (LibrariesC-45DataC-45StringMap-case--caseC-32blockC-32inC-32treeLookup-1919 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (PreludeC-45EqOrd-u--C-60C-61_Ord_String arg-7 arg-3))))))) -(define LibrariesC-45DataC-45StringMap-case--treeLookup-1824 (lambda (arg-2 arg-3 arg-4 arg-5 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (LibrariesC-45DataC-45StringMap-treeLookup arg-5 arg-4)) (else (LibrariesC-45DataC-45StringMap-treeLookup arg-5 arg-2)))))) -(define LibrariesC-45DataC-45StringMap-case--treeLookup-1781 (lambda (arg-1 arg-2 arg-3 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (vector 1 arg-1)) (else (vector 0 )))))) -(define LibrariesC-45DataC-45StringMap-n--4804-3605-u--treeToListC-39 (lambda (arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (arg-3 (cons e-1 e-2))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 3))) (LibrariesC-45DataC-45StringMap-n--4804-3605-u--treeToListC-39 (lambda (arg-0) (cons arg-0 (LibrariesC-45DataC-45StringMap-n--4804-3605-u--treeToListC-39 arg-3 e-7))) e-5)))) (else (let ((e-10 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 5))) (LibrariesC-45DataC-45StringMap-n--4804-3605-u--treeToListC-39 (lambda (arg-0) (cons arg-0 (LibrariesC-45DataC-45StringMap-n--4804-3605-u--treeToListC-39 (lambda (arg-1) (cons arg-1 (LibrariesC-45DataC-45StringMap-n--4804-3605-u--treeToListC-39 arg-3 e-14))) e-12))) e-10))))))))) -(define LibrariesC-45DataC-45StringMap-n--5295-4103-u--inserted (lambda (arg-1 arg-2 arg-3) (PreludeC-45Types-u--C-62C-62C-61_Monad_List (LibrariesC-45DataC-45StringMap-toList arg-1) (lambda (_-0) (let ((sc0 _-0)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((u--vC-39 ((PreludeC-45Types-maybe (lambda () (lambda (eta-0) eta-0)) (lambda () arg-3) (LibrariesC-45DataC-45StringMap-lookup e-2 arg-2)) e-3))) (PreludeC-45Types-u--pure_Applicative_List (cons e-2 u--vC-39)))))))))) -(define LibrariesC-45DataC-45StringMap-treeToList (lambda (ext-0) (LibrariesC-45DataC-45StringMap-n--4804-3605-u--treeToListC-39 (lambda (arg-0) (cons arg-0 '())) ext-0))) -(define LibrariesC-45DataC-45StringMap-treeLookup (lambda (arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (LibrariesC-45DataC-45StringMap-case--treeLookup-1781 e-2 e-1 arg-2 (PreludeC-45EqOrd-u--C-61C-61_Eq_String arg-2 e-1))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (LibrariesC-45DataC-45StringMap-case--treeLookup-1824 e-7 e-6 e-5 arg-2 (PreludeC-45EqOrd-u--C-60C-61_Ord_String arg-2 e-6)))))) (else (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (let ((e-13 (vector-ref sc0 4))) (let ((e-14 (vector-ref sc0 5))) (LibrariesC-45DataC-45StringMap-case--treeLookup-1872 e-14 e-13 e-12 e-11 e-10 arg-2 (PreludeC-45EqOrd-u--C-60C-61_Ord_String arg-2 e-11)))))))))))) -(define LibrariesC-45DataC-45StringMap-treeInsertC-39 (lambda (arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (LibrariesC-45DataC-45StringMap-case--treeInsertC-39-1980 arg-3 e-2 e-1 arg-2 (PreludeC-45EqOrd-u--compare_Ord_String arg-2 e-1))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (LibrariesC-45DataC-45StringMap-case--treeInsertC-39-2082 arg-3 e-7 e-6 e-5 arg-2 (PreludeC-45EqOrd-u--C-60C-61_Ord_String arg-2 e-6)))))) (else (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (let ((e-13 (vector-ref sc0 4))) (let ((e-14 (vector-ref sc0 5))) (LibrariesC-45DataC-45StringMap-case--treeInsertC-39-2276 arg-3 e-14 e-13 e-12 e-11 e-10 arg-2 (PreludeC-45EqOrd-u--C-60C-61_Ord_String arg-2 e-11)))))))))))) -(define LibrariesC-45DataC-45StringMap-treeInsert (lambda (arg-2 arg-3 arg-4) (LibrariesC-45DataC-45StringMap-case--treeInsert-2656 arg-3 arg-4 arg-2 (LibrariesC-45DataC-45StringMap-treeInsertC-39 arg-2 arg-3 arg-4)))) -(define LibrariesC-45DataC-45StringMap-toList (lambda (arg-1) (let ((sc0 arg-1)) (if (null? sc0) '() (let ((e-3 (cdr sc0))) (LibrariesC-45DataC-45StringMap-treeToList e-3)))))) -(define LibrariesC-45DataC-45StringMap-singleton (lambda (arg-1 arg-2) (cons 0 (vector 0 arg-1 arg-2)))) -(define LibrariesC-45DataC-45StringMap-mergeWith (lambda (arg-1 arg-2 arg-3) (LibrariesC-45DataC-45StringMap-insertFrom (LibrariesC-45DataC-45StringMap-n--5295-4103-u--inserted arg-3 arg-2 arg-1) arg-2))) -(define LibrariesC-45DataC-45StringMap-mergeLeft (lambda (arg-1 arg-2) (LibrariesC-45DataC-45StringMap-mergeWith (lambda (eta-0) (lambda (eta-1) eta-0)) arg-1 arg-2))) -(define LibrariesC-45DataC-45StringMap-lookupName (lambda (arg-1 arg-2) (LibrariesC-45DataC-45StringMap-case--lookupName-3704 arg-2 arg-1 (CoreC-45Name-userNameRoot arg-1)))) -(define LibrariesC-45DataC-45StringMap-lookup (lambda (arg-1 arg-2) (let ((sc0 arg-2)) (if (null? sc0) (vector 0 ) (let ((e-3 (cdr sc0))) (LibrariesC-45DataC-45StringMap-treeLookup arg-1 e-3)))))) -(define LibrariesC-45DataC-45StringMap-insertFrom (lambda (ext-0 ext-1) (PreludeC-45Basics-flip (lambda (eta-0) (lambda (clam-0) (PreludeC-45Types-u--foldl_Foldable_List (lambda (eta-1) (lambda (eta-2) (PreludeC-45Basics-flip (lambda (eta-3) (PreludeC-45Basics-uncurry (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (LibrariesC-45DataC-45StringMap-insert eta-4 eta-5 eta-6)))) eta-3)) eta-1 eta-2))) eta-0 clam-0))) ext-0 ext-1))) -(define LibrariesC-45DataC-45StringMap-insert (lambda (arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (if (null? sc0) (cons 0 (vector 0 arg-1 arg-2)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (LibrariesC-45DataC-45StringMap-case--insert-3751 e-2 arg-2 e-3 arg-1 (LibrariesC-45DataC-45StringMap-treeInsert arg-1 arg-2 e-3)))))))) -(define LibrariesC-45DataC-45StringMap-fromList (lambda (arg-1) (PreludeC-45Types-u--foldl_Foldable_List (lambda (eta-0) (lambda (eta-1) (PreludeC-45Basics-flip (lambda (eta-2) (PreludeC-45Basics-uncurry (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (LibrariesC-45DataC-45StringMap-insert eta-3 eta-4 eta-5)))) eta-2)) eta-0 eta-1))) (LibrariesC-45DataC-45StringMap-empty) arg-1))) -(define LibrariesC-45DataC-45StringMap-empty (lambda () '())) -(define DataC-45IOArray-case--toListC-44iter-1117 (lambda (arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (let ((sc1 arg-2)) (let ((e-1 (car sc1))) (let ((sc2 e-1)) (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (let ((e-7 (vector-ref sc3 2))) ((e-7 'erased) (DataC-45List-reverse arg-4))))))))) (else (let ((sc1 arg-2)) (let ((e-1 (car sc1))) (let ((sc2 e-1)) (let ((e-4 (vector-ref sc2 2))) ((((e-4 'erased) 'erased) (DataC-45IOArray-readArray arg-2 arg-3 arg-6)) (lambda (u--el) (DataC-45IOArray-n--2992-1107-u--iter arg-2 arg-3 (bs+ arg-6 1 63) arg-5 (cons u--el arg-4))))))))))))) -(define DataC-45IOArray-case--newArrayCopy-1038 (lambda (arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (DataC-45IOArray-max arg-3)) (else arg-4))))) -(define DataC-45IOArray-case--newArrayCopyC-44copyFrom-955 (lambda (arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (cond ((equal? sc0 0) (let ((sc1 arg-2)) (let ((e-1 (car sc1))) (let ((sc2 e-1)) (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (let ((e-7 (vector-ref sc3 2))) ((e-7 'erased) (vector 0 ))))))))) (else (let ((sc1 arg-2)) (let ((e-1 (car sc1))) (let ((sc2 e-1)) (let ((e-4 (vector-ref sc2 2))) ((((e-4 'erased) 'erased) (let ((sc3 arg-2)) (let ((e-6 (cdr sc3))) ((e-6 'erased) (lambda (eta-0) (vector-ref arg-7 arg-5)))))) (lambda (u--el) (PreludeC-45Interfaces-C-62C-62 (let ((sc3 arg-2)) (let ((e-7 (car sc3))) e-7)) (let ((sc3 arg-2)) (let ((e-6 (cdr sc3))) ((e-6 'erased) (lambda (eta-0) (vector-set! arg-6 arg-5 u--el))))) (lambda () (DataC-45IOArray-n--2824-943-u--copyFrom arg-2 arg-3 arg-4 arg-7 arg-6 (PreludeC-45Num-u--C-45_Neg_Int arg-5 1))))))))))))))) -(define DataC-45IOArray-case--readArray-894 (lambda (arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (let ((sc1 arg-2)) (let ((e-1 (car sc1))) (let ((sc2 e-1)) (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (let ((e-7 (vector-ref sc3 2))) ((e-7 'erased) (vector 0 ))))))))) (else (let ((sc1 arg-2)) (let ((e-2 (cdr sc1))) ((e-2 'erased) (lambda (eta-0) (vector-ref (let ((sc2 arg-4)) (let ((e-3 (cdr sc2))) e-3)) arg-3)))))))))) -(define DataC-45IOArray-case--writeArray-821 (lambda (arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (let ((sc1 arg-2)) (let ((e-1 (car sc1))) (let ((sc2 e-1)) (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (let ((e-7 (vector-ref sc3 2))) ((e-7 'erased) (vector 0 ))))))))) (else (let ((sc1 arg-2)) (let ((e-2 (cdr sc1))) ((e-2 'erased) (lambda (eta-0) (vector-set! (let ((sc2 arg-5)) (let ((e-3 (cdr sc2))) e-3)) arg-4 (vector 1 arg-3))))))))))) -(define DataC-45IOArray-n--2992-1107-u--iter (lambda (arg-2 arg-3 arg-4 arg-5 arg-6) (DataC-45IOArray-case--toListC-44iter-1117 arg-2 arg-3 arg-6 arg-5 arg-4 (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-4 arg-5)))) -(define DataC-45IOArray-n--2824-943-u--copyFrom (lambda (arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (DataC-45IOArray-case--newArrayCopyC-44copyFrom-955 arg-2 arg-3 arg-4 arg-7 arg-6 arg-5 (PreludeC-45EqOrd-u--C-60_Ord_Int arg-7 (blodwen-toSignedInt 0 63))))) -(define DataC-45IOArray-writeArray (lambda (arg-2 arg-3 arg-4 arg-5) (DataC-45IOArray-case--writeArray-821 arg-2 arg-5 arg-4 arg-3 (PreludeC-45Basics-C-124C-124 (PreludeC-45EqOrd-u--C-60_Ord_Int arg-4 (blodwen-toSignedInt 0 63)) (lambda () (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-4 (DataC-45IOArray-max arg-3))))))) -(define DataC-45IOArray-toList (lambda (arg-2 arg-3) (DataC-45IOArray-n--2992-1107-u--iter arg-2 arg-3 0 (DataC-45IOArray-max arg-3) '()))) -(define DataC-45IOArray-readArray (lambda (arg-2 arg-3 arg-4) (DataC-45IOArray-case--readArray-894 arg-2 arg-4 arg-3 (PreludeC-45Basics-C-124C-124 (PreludeC-45EqOrd-u--C-60_Ord_Int arg-4 (blodwen-toSignedInt 0 63)) (lambda () (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-4 (DataC-45IOArray-max arg-3))))))) -(define DataC-45IOArray-newArrayCopy (lambda (arg-2 arg-3 arg-4) (let ((u--newsizeC-39 (DataC-45IOArray-case--newArrayCopy-1038 arg-2 arg-4 arg-3 (PreludeC-45EqOrd-u--C-60_Ord_Int arg-3 (DataC-45IOArray-max arg-4))))) (let ((sc0 arg-2)) (let ((e-1 (car sc0))) (let ((sc1 e-1)) (let ((e-4 (vector-ref sc1 2))) ((((e-4 'erased) 'erased) (DataC-45IOArray-newArray arg-2 u--newsizeC-39)) (lambda (u--arrC-39) (PreludeC-45Interfaces-C-62C-62 (let ((sc2 arg-2)) (let ((e-7 (car sc2))) e-7)) (DataC-45IOArray-n--2824-943-u--copyFrom arg-2 arg-4 arg-3 (let ((sc2 arg-4)) (let ((e-6 (cdr sc2))) e-6)) (let ((sc2 u--arrC-39)) (let ((e-6 (cdr sc2))) e-6)) (PreludeC-45Num-u--C-45_Neg_Int (DataC-45IOArray-max arg-4) (blodwen-toSignedInt 1 63))) (lambda () (let ((sc2 arg-2)) (let ((e-7 (car sc2))) (let ((sc3 e-7)) (let ((e-10 (vector-ref sc3 1))) (let ((sc4 e-10)) (let ((e-12 (vector-ref sc4 2))) ((e-12 'erased) u--arrC-39)))))))))))))))))) -(define DataC-45IOArray-newArray (lambda (arg-2 arg-3) (let ((sc0 arg-2)) (let ((e-1 (car sc0))) (let ((sc1 e-1)) (let ((e-4 (vector-ref sc1 2))) ((((e-4 'erased) 'erased) (let ((sc2 arg-2)) (let ((e-6 (cdr sc2))) ((e-6 'erased) (lambda (eta-0) (make-vector arg-3 (vector 0 ))))))) (lambda (bind-0) (let ((sc2 arg-2)) (let ((e-7 (car sc2))) (let ((sc3 e-7)) (let ((e-10 (vector-ref sc3 1))) (let ((sc4 e-10)) (let ((e-12 (vector-ref sc4 2))) ((e-12 'erased) (cons arg-3 bind-0)))))))))))))))) -(define DataC-45IOArray-max (lambda (ext-0) (let ((sc0 ext-0)) (let ((e-1 (car sc0))) e-1)))) -(define LibrariesC-45UtilsC-45Binary-case--toBuf-12146 (lambda (arg-0 arg-1 arg-2 ext-0) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-1 0 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10258 eta-0)))) arg-1 (LibrariesC-45UtilsC-45Binary-toLimbs (PreludeC-45Num-u--negate_Neg_Integer arg-0)) ext-0)))))) (else (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-1 1 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10258 eta-0)))) arg-1 (LibrariesC-45UtilsC-45Binary-toLimbs arg-0) ext-0)))))))))) -(define LibrariesC-45UtilsC-45Binary-case--caseC-32blockC-32inC-32toLimbs-12088 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (cons -1 '())) (else (cons (blodwen-toSignedInt (blodwen-and arg-0 4294967295) 63) (LibrariesC-45UtilsC-45Binary-toLimbs (blodwen-shr arg-0 32)))))))) -(define LibrariesC-45UtilsC-45Binary-case--toLimbs-12072 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) '()) (else (LibrariesC-45UtilsC-45Binary-case--caseC-32blockC-32inC-32toLimbs-12088 arg-0 (PreludeC-45EqOrd-u--C-61C-61_Eq_Integer arg-0 -1))))))) -(define LibrariesC-45UtilsC-45Binary-case--fromBuf-11269 (lambda (arg-0 arg-1 arg-2 ext-0) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (let ((act-24 (let ((act-24 ((DataC-45Buffer-getDouble (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-0)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-0) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (let ((act-17 (arg-578 eta-0))) (let ((act-16 (arg-580 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (let ((act-24 (arg-876 eta-0))) ((arg-877 act-24) eta-0))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-0) (let ((act-51 (arg-879 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 2))) e-1))) ext-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (set-box! arg-0 (LibrariesC-45UtilsC-45Binary-incLoc 8 arg-1)))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (vector 1 e-5))))))))))) (else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 48 (vector 1 "Double")) ext-0)))))) -(define LibrariesC-45UtilsC-45Binary-case--toBuf-11200 (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (let ((act-24 (let ((act-24 ((DataC-45Buffer-setDouble (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-0)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-0) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (let ((act-17 (arg-578 eta-0))) (let ((act-16 (arg-580 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (let ((act-24 (arg-876 eta-0))) ((arg-877 act-24) eta-0))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-0) (let ((act-51 (arg-879 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) (let ((sc1 arg-2)) (let ((e-0 (vector-ref sc1 1))) e-0)) (let ((sc1 arg-2)) (let ((e-1 (vector-ref sc1 2))) e-1)) arg-0) ext-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (set-box! arg-1 (LibrariesC-45UtilsC-45Binary-appended 8 arg-2)))) (vector 1 act-25))))))) (else (let ((act-24 ((LibrariesC-45UtilsC-45Binary-extendBinary 8 arg-2) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 ((DataC-45Buffer-setDouble (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-0)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-0) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (let ((act-17 (arg-578 eta-0))) (let ((act-16 (arg-580 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (let ((act-25 (arg-876 eta-0))) ((arg-877 act-25) eta-0))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-0) (let ((act-51 (arg-879 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) (let ((sc2 e-5)) (let ((e-1 (vector-ref sc2 2))) e-1)) arg-0) ext-0))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (set-box! arg-1 (LibrariesC-45UtilsC-45Binary-appended 8 e-5)))) (vector 1 act-26)))))))))))))))) -(define LibrariesC-45UtilsC-45Binary-case--fromBuf-10998 (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (let ((act-24 (let ((act-24 ((DataC-45Buffer-newBuffer (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-0)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-0) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (let ((act-17 (arg-578 eta-0))) (let ((act-16 (arg-580 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (let ((act-24 (arg-876 eta-0))) ((arg-877 act-24) eta-0))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-0) (let ((act-51 (arg-879 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) arg-1) ext-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((act-25 (let ((act-25 ((DataC-45Buffer-copyData (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-0)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-0) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (let ((act-17 (arg-578 eta-0))) (let ((act-16 (arg-580 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (let ((act-25 (arg-876 eta-0))) ((arg-877 act-25) eta-0))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-0) (let ((act-51 (arg-879 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) (let ((sc3 arg-2)) (let ((e-0 (vector-ref sc3 1))) e-0)) (let ((sc3 arg-2)) (let ((e-4 (vector-ref sc3 2))) e-4)) arg-1 e-1 0) ext-0))) (vector 1 act-25)))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-26 (let ((act-26 (set-box! arg-0 (LibrariesC-45UtilsC-45Binary-incLoc arg-1 arg-2)))) (vector 1 act-26)))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (vector 1 (vector 0 e-1 0 arg-1 arg-1)))))))))))) (else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 "Can't create buffer") ext-0)))))))))) (else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 48 (vector 1 "Binary")) ext-0)))))) -(define LibrariesC-45UtilsC-45Binary-case--toBuf-10929 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (let ((act-24 (let ((act-24 ((DataC-45Buffer-copyData (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-0)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-0) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (let ((act-17 (arg-578 eta-0))) (let ((act-16 (arg-580 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (let ((act-24 (arg-876 eta-0))) ((arg-877 act-24) eta-0))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-0) (let ((act-51 (arg-879 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) (let ((sc1 arg-0)) (let ((e-0 (vector-ref sc1 1))) e-0)) 0 arg-2 (let ((sc1 arg-3)) (let ((e-0 (vector-ref sc1 1))) e-0)) (let ((sc1 arg-3)) (let ((e-1 (vector-ref sc1 2))) e-1))) ext-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (set-box! arg-1 (LibrariesC-45UtilsC-45Binary-appended arg-2 arg-3)))) (vector 1 act-25))))))) (else (let ((act-24 ((LibrariesC-45UtilsC-45Binary-extendBinary arg-2 arg-3) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 ((DataC-45Buffer-copyData (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-0)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-0) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (let ((act-17 (arg-578 eta-0))) (let ((act-16 (arg-580 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (let ((act-25 (arg-876 eta-0))) ((arg-877 act-25) eta-0))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-0) (let ((act-51 (arg-879 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) (let ((sc2 arg-0)) (let ((e-0 (vector-ref sc2 1))) e-0)) 0 arg-2 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) (let ((sc2 e-5)) (let ((e-1 (vector-ref sc2 2))) e-1))) ext-0))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (set-box! arg-1 (LibrariesC-45UtilsC-45Binary-appended arg-2 e-5)))) (vector 1 act-26)))))))))))))))) -(define LibrariesC-45UtilsC-45Binary-case--fromBuf-10841 (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (let ((act-24 (let ((act-24 ((DataC-45Buffer-getString (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-0)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-0) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (let ((act-17 (arg-578 eta-0))) (let ((act-16 (arg-580 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (let ((act-24 (arg-876 eta-0))) ((arg-877 act-24) eta-0))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-0) (let ((act-51 (arg-879 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) (let ((sc1 arg-2)) (let ((e-0 (vector-ref sc1 1))) e-0)) (let ((sc1 arg-2)) (let ((e-1 (vector-ref sc1 2))) e-1)) arg-1) ext-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (set-box! arg-0 (LibrariesC-45UtilsC-45Binary-incLoc arg-1 arg-2)))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (vector 1 e-5))))))))))) (else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 48 (vector 1 (PreludeC-45TypesC-45String-C-43C-43 "String length " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Int arg-1) (PreludeC-45TypesC-45String-C-43C-43 " at " (PreludeC-45Show-u--show_Show_Int (let ((sc1 arg-2)) (let ((e-1 (vector-ref sc1 2))) e-1)))))))) ext-0)))))) -(define LibrariesC-45UtilsC-45Binary-case--toBuf-10775 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (let ((act-24 (let ((act-24 ((DataC-45Buffer-setString (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-0)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-0) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (let ((act-17 (arg-578 eta-0))) (let ((act-16 (arg-580 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (let ((act-24 (arg-876 eta-0))) ((arg-877 act-24) eta-0))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-0) (let ((act-51 (arg-879 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) (let ((sc1 arg-3)) (let ((e-0 (vector-ref sc1 1))) e-0)) (let ((sc1 arg-3)) (let ((e-1 (vector-ref sc1 2))) e-1)) arg-0) ext-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (set-box! arg-1 (LibrariesC-45UtilsC-45Binary-appended arg-2 arg-3)))) (vector 1 act-25))))))) (else (let ((act-24 ((LibrariesC-45UtilsC-45Binary-extendBinary arg-2 arg-3) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 ((DataC-45Buffer-setString (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-0)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-0) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (let ((act-17 (arg-578 eta-0))) (let ((act-16 (arg-580 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (let ((act-25 (arg-876 eta-0))) ((arg-877 act-25) eta-0))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-0) (let ((act-51 (arg-879 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) (let ((sc2 e-5)) (let ((e-1 (vector-ref sc2 2))) e-1)) arg-0) ext-0))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (set-box! arg-1 (LibrariesC-45UtilsC-45Binary-appended arg-2 e-5)))) (vector 1 act-26)))))))))))))))) -(define LibrariesC-45UtilsC-45Binary-case--fromBuf-10684 (lambda (arg-0 arg-1 arg-2 ext-0) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (let ((act-24 (let ((act-24 ((DataC-45Buffer-getInt (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-0)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-0) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (let ((act-17 (arg-578 eta-0))) (let ((act-16 (arg-580 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (let ((act-24 (arg-876 eta-0))) ((arg-877 act-24) eta-0))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-0) (let ((act-51 (arg-879 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 2))) e-1))) ext-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (set-box! arg-0 (LibrariesC-45UtilsC-45Binary-incLoc 8 arg-1)))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (vector 1 e-5))))))))))) (else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 48 (vector 1 (PreludeC-45TypesC-45String-C-43C-43 "Int " (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_Int u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_Int u--d u--x)))) (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_Int u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_Int u--d u--x))))) (cons (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 2))) e-1)) (let ((sc1 arg-1)) (let ((e-2 (vector-ref sc1 3))) e-2))))))) ext-0)))))) -(define LibrariesC-45UtilsC-45Binary-case--toBuf-10615 (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (let ((act-24 (let ((act-24 ((DataC-45Buffer-setInt (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-0)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-0) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (let ((act-17 (arg-578 eta-0))) (let ((act-16 (arg-580 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (let ((act-24 (arg-876 eta-0))) ((arg-877 act-24) eta-0))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-0) (let ((act-51 (arg-879 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) (let ((sc1 arg-2)) (let ((e-0 (vector-ref sc1 1))) e-0)) (let ((sc1 arg-2)) (let ((e-1 (vector-ref sc1 2))) e-1)) arg-0) ext-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (set-box! arg-1 (LibrariesC-45UtilsC-45Binary-appended 8 arg-2)))) (vector 1 act-25))))))) (else (let ((act-24 ((LibrariesC-45UtilsC-45Binary-extendBinary 8 arg-2) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 ((DataC-45Buffer-setInt (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-0)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-0) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (let ((act-17 (arg-578 eta-0))) (let ((act-16 (arg-580 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (let ((act-25 (arg-876 eta-0))) ((arg-877 act-25) eta-0))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-0) (let ((act-51 (arg-879 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) (let ((sc2 e-5)) (let ((e-1 (vector-ref sc2 2))) e-1)) arg-0) ext-0))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (set-box! arg-1 (LibrariesC-45UtilsC-45Binary-appended 8 e-5)))) (vector 1 act-26)))))))))))))))) -(define LibrariesC-45UtilsC-45Binary-case--getTag-10546 (lambda (arg-0 arg-1 arg-2 ext-0) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (let ((act-24 (let ((act-24 ((DataC-45Buffer-getByte (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-0)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-0) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (let ((act-17 (arg-578 eta-0))) (let ((act-16 (arg-580 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (let ((act-24 (arg-876 eta-0))) ((arg-877 act-24) eta-0))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-0) (let ((act-51 (arg-879 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 2))) e-1))) ext-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (set-box! arg-0 (LibrariesC-45UtilsC-45Binary-incLoc 1 arg-1)))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (vector 1 e-5))))))))))) (else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 48 (vector 1 "Byte")) ext-0)))))) -(define LibrariesC-45UtilsC-45Binary-case--tag-10476 (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (let ((act-24 (let ((act-24 ((DataC-45Buffer-setByte (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-0)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-0) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (let ((act-17 (arg-578 eta-0))) (let ((act-16 (arg-580 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (let ((act-24 (arg-876 eta-0))) ((arg-877 act-24) eta-0))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-0) (let ((act-51 (arg-879 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) (let ((sc1 arg-2)) (let ((e-0 (vector-ref sc1 1))) e-0)) (let ((sc1 arg-2)) (let ((e-1 (vector-ref sc1 2))) e-1)) arg-0) ext-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (set-box! arg-1 (LibrariesC-45UtilsC-45Binary-appended 1 arg-2)))) (vector 1 act-25))))))) (else (let ((act-24 ((LibrariesC-45UtilsC-45Binary-extendBinary 1 arg-2) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 ((DataC-45Buffer-setByte (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-0)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-0) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (let ((act-17 (arg-578 eta-0))) (let ((act-16 (arg-580 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (let ((act-25 (arg-876 eta-0))) ((arg-877 act-25) eta-0))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-0) (let ((act-51 (arg-879 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) (let ((sc2 e-5)) (let ((e-1 (vector-ref sc2 2))) e-1)) arg-0) ext-0))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (set-box! arg-1 (LibrariesC-45UtilsC-45Binary-appended 1 e-5)))) (vector 1 act-26)))))))))))))))) -(define LibrariesC-45UtilsC-45Binary-case--extendBinary-10367 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (bs+ arg-5 arg-4 63)) (else arg-5))))) -(define LibrariesC-45UtilsC-45Binary-n--7648-11900-u--writeAll (lambda (arg-1 arg-2 arg-3 arg-4 arg-6 ext-0) (let ((sc0 arg-6)) (if (null? sc0) (vector 1 (vector 0 )) (let ((e-3 (car sc0))) (let ((e-4 (cdr sc0))) (let ((act-24 (let ((sc1 arg-2)) (let ((e-1 (car sc1))) (((e-1 arg-4) e-3) ext-0))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (LibrariesC-45UtilsC-45Binary-n--7648-11900-u--writeAll arg-1 arg-2 arg-3 arg-4 e-4 ext-0))))))))))) -(define LibrariesC-45UtilsC-45Binary-n--7650-11924-u--readElems (lambda (arg-1 arg-2 arg-3 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (DataC-45Vect-reverse arg-5))))(else (let ((e-0 (- arg-6 1))) (lambda (eta-0) (let ((act-24 (let ((sc0 arg-1)) (let ((e-2 (cdr sc0))) ((e-2 arg-2) eta-0))))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((LibrariesC-45UtilsC-45Binary-n--7650-11924-u--readElems arg-1 arg-2 arg-3 (cons e-5 arg-5) e-0) eta-0))))))))))))) -(define LibrariesC-45UtilsC-45Binary-n--7505-11782-u--readElems (lambda (arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (DataC-45List-reverse arg-3))))(else (let ((e-0 (- arg-4 1))) (lambda (eta-0) (let ((act-24 (let ((sc0 arg-1)) (let ((e-2 (cdr sc0))) ((e-2 arg-2) eta-0))))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((LibrariesC-45UtilsC-45Binary-n--7505-11782-u--readElems arg-1 arg-2 (cons e-5 arg-3) e-0) eta-0))))))))))))) -(define LibrariesC-45UtilsC-45Binary-n--7503-11748-u--length_aux (lambda (arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (if (null? sc0) arg-5 (let ((e-3 (cdr sc0))) (LibrariesC-45UtilsC-45Binary-n--7503-11748-u--length_aux arg-1 arg-2 arg-3 e-3 (bs+ 1 arg-5 63))))))) -(define LibrariesC-45UtilsC-45Binary-n--7503-11749-u--TailRec_length (lambda (arg-1 arg-2 arg-3 arg-4) (LibrariesC-45UtilsC-45Binary-n--7503-11748-u--length_aux arg-1 arg-2 arg-3 arg-4 0))) -(define LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String (lambda (arg-0 arg-1) (let ((u--req (DataC-45Buffer-stringByteLength arg-1))) (lambda (eta-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-0 u--req eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((act-25 (let ((act-25 (unbox arg-0))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (LibrariesC-45UtilsC-45Binary-case--toBuf-10775 arg-1 arg-0 u--req e-6 (PreludeC-45EqOrd-u--C-62C-61_Ord_Int (LibrariesC-45UtilsC-45Binary-avail e-6) u--req) eta-0)))))))))))))) -(define LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat (lambda (arg-0 arg-1) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Integer arg-0 (PreludeC-45Cast-u--cast_Cast_Nat_Integer arg-1) eta-0)))) -(define LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Integer (lambda (arg-0 arg-1 ext-0) (LibrariesC-45UtilsC-45Binary-case--toBuf-12146 arg-1 arg-0 (PreludeC-45EqOrd-u--C-60_Ord_Integer arg-1 0) ext-0))) -(define LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (LibrariesC-45UtilsC-45Binary-case--toBuf-10615 arg-1 arg-0 e-5 (PreludeC-45EqOrd-u--C-62C-61_Ord_Int (LibrariesC-45UtilsC-45Binary-avail e-5) 8) ext-0)))))))) -(define LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Double (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (LibrariesC-45UtilsC-45Binary-case--toBuf-11200 arg-1 arg-0 e-5 (PreludeC-45EqOrd-u--C-62C-61_Ord_Int (LibrariesC-45UtilsC-45Binary-avail e-5) 8) ext-0)))))))) -(define LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Char (lambda (arg-0 arg-1 ext-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-0 (PreludeC-45Cast-u--cast_Cast_Char_Int arg-1) ext-0))) -(define LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Bool (lambda (arg-0 arg-1 ext-0) (let ((sc0 arg-1)) (cond ((equal? sc0 1) (LibrariesC-45UtilsC-45Binary-tag arg-0 0 ext-0)) (else (LibrariesC-45UtilsC-45Binary-tag arg-0 1 ext-0)))))) -(define LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Binary (lambda (arg-0 arg-1) (let ((u--len (let ((sc0 arg-1)) (let ((e-3 (vector-ref sc0 4))) e-3)))) (lambda (eta-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-0 u--len eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((act-25 (let ((act-25 (unbox arg-0))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (LibrariesC-45UtilsC-45Binary-case--toBuf-10929 arg-1 arg-0 u--len e-6 (PreludeC-45EqOrd-u--C-62C-61_Ord_Int (LibrariesC-45UtilsC-45Binary-avail e-6) u--len) eta-0)))))))))))))) -(define LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124UnitC-44MkUnitC-124C-41 (lambda (arg-0 arg-1 ext-0) (let ((sc0 arg-1)) (vector 1 (vector 0 ))))) -(define LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (lambda (arg-2 arg-3 arg-4 ext-0) (let ((sc0 arg-4)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((act-24 (let ((sc1 (Builtin-fst arg-2))) (let ((e-1 (car sc1))) (((e-1 arg-3) e-2) ext-0))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((sc2 (Builtin-snd arg-2))) (let ((e-1 (car sc2))) (((e-1 arg-3) e-3) ext-0)))))))))))) -(define LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40PosMapC-32C-36aC-41 (lambda (arg-1 arg-2 ext-1 ext-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (Builtin-fst arg-1) arg-2 (DataC-45List-toList (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (LibrariesC-45DataC-45PosMap-u--foldr_Foldable_PosMap u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (LibrariesC-45DataC-45PosMap-u--foldl_Foldable_PosMap u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (LibrariesC-45DataC-45PosMap-u--null_Foldable_PosMap arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (LibrariesC-45DataC-45PosMap-u--foldlM_Foldable_PosMap i_con-0 u--funcM u--init u--input))))))))) ext-1) ext-0))) -(define LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40MaybeC-32C-36aC-41 (lambda (arg-1 arg-2 arg-3 ext-0) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (LibrariesC-45UtilsC-45Binary-tag arg-2 0 ext-0)) (else (let ((e-2 (vector-ref sc0 1))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-2 1 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((sc2 arg-1)) (let ((e-1 (car sc2))) (((e-1 arg-2) e-2) ext-0))))))))))))) -(define LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (lambda (arg-1 arg-2 arg-3 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-2 (LibrariesC-45UtilsC-45Binary-n--7503-11749-u--TailRec_length arg-1 arg-3 arg-2 arg-3) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (CoreC-45Core-traverse_ (lambda (clam-0) (let ((sc1 arg-1)) (let ((e-1 (car sc1))) ((e-1 arg-2) clam-0)))) arg-3 ext-0))))))) -(define LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-40VectC-32C-36nC-41C-32C-36aC-41 (lambda (arg-1 arg-2 arg-3 arg-4 ext-0) (LibrariesC-45UtilsC-45Binary-n--7648-11900-u--writeAll arg-1 arg-2 arg-4 arg-3 arg-4 ext-0))) -(define LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-40DPairC-32C-36aC-41C-32C-36pC-41 (lambda (arg-2 arg-3 arg-4 ext-0) (let ((sc0 arg-4)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((act-24 (let ((sc1 (Builtin-fst arg-2))) (let ((e-1 (car sc1))) (((e-1 arg-3) e-2) ext-0))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((sc2 ((Builtin-snd arg-2) e-2))) (let ((e-1 (car sc2))) (((e-1 arg-3) e-3) ext-0)))))))))))) -(define LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String (lambda (arg-0 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (unbox arg-0))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (LibrariesC-45UtilsC-45Binary-case--fromBuf-10841 arg-0 e-5 e-6 (PreludeC-45EqOrd-u--C-62C-61_Ord_Int (LibrariesC-45UtilsC-45Binary-toRead e-6) e-5) ext-0))))))))))))) -(define LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat (lambda (arg-0 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Integer arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (PreludeC-45Types-u--fromInteger_Num_Nat e-5))))))))) -(define LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Integer (lambda (arg-0 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-getTag arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10258 eta-0)))) arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (PreludeC-45Num-u--negate_Neg_Integer (LibrariesC-45UtilsC-45Binary-fromLimbs e-6))))))))) ((equal? sc1 1) (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10258 eta-0)))) arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (LibrariesC-45UtilsC-45Binary-fromLimbs e-6))))))))(else (LibrariesC-45UtilsC-45Binary-corrupt "Integer" ext-0))))))))))) -(define LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (LibrariesC-45UtilsC-45Binary-case--fromBuf-10684 arg-0 e-5 (PreludeC-45EqOrd-u--C-62C-61_Ord_Int (LibrariesC-45UtilsC-45Binary-toRead e-5) 8) ext-0)))))))) -(define LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Double (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (LibrariesC-45UtilsC-45Binary-case--fromBuf-11269 arg-0 e-5 (PreludeC-45EqOrd-u--C-62C-61_Ord_Int (LibrariesC-45UtilsC-45Binary-toRead e-5) 8) ext-0)))))))) -(define LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Char (lambda (arg-0 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (PreludeC-45Cast-u--cast_Cast_Int_Char e-5))))))))) -(define LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Bool (lambda (arg-0 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-getTag arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (vector 1 1)) ((equal? sc1 1) (vector 1 0))(else (LibrariesC-45UtilsC-45Binary-corrupt "Bool" ext-0))))))))))) -(define LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Binary (lambda (arg-0 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (unbox arg-0))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (LibrariesC-45UtilsC-45Binary-case--fromBuf-10998 arg-0 e-5 e-6 (PreludeC-45EqOrd-u--C-62C-61_Ord_Int (LibrariesC-45UtilsC-45Binary-toRead e-6) e-5) ext-0))))))))))))) -(define LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124UnitC-44MkUnitC-124C-41 (lambda (arg-0 ext-0) (vector 1 (vector 0 )))) -(define LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (lambda (arg-2 arg-3 ext-0) (let ((act-24 (let ((sc0 (Builtin-fst arg-2))) (let ((e-2 (cdr sc0))) ((e-2 arg-3) ext-0))))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((sc1 (Builtin-snd arg-2))) (let ((e-2 (cdr sc1))) ((e-2 arg-3) ext-0))))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 (cons e-5 e-6)))))))))))))) -(define LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40PosMapC-32C-36aC-41 (lambda (arg-1 arg-2 ext-0) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc0 eta-0)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (LibrariesC-45DataC-45PosMap-fromList (Builtin-snd arg-1) e-5))))))) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (Builtin-fst arg-1) arg-2 eta-0)) ext-0))) -(define LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40MaybeC-32C-36aC-41 (lambda (arg-1 arg-2 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-getTag arg-2 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (vector 1 (vector 0 ))) ((equal? sc1 1) (let ((act-25 (let ((sc2 arg-1)) (let ((e-2 (cdr sc2))) ((e-2 arg-2) ext-0))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 1 e-6))))))))(else (LibrariesC-45UtilsC-45Binary-corrupt "Maybe" ext-0))))))))))) -(define LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (lambda (arg-1 arg-2 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-2 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((LibrariesC-45UtilsC-45Binary-n--7505-11782-u--readElems arg-1 arg-2 '() (PreludeC-45Types-prim__integerToNat (PreludeC-45Cast-u--cast_Cast_Int_Integer e-5))) ext-0)))))))) -(define LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-40VectC-32C-36nC-41C-32C-36aC-41 (lambda (arg-1 arg-2 arg-3) (LibrariesC-45UtilsC-45Binary-n--7650-11924-u--readElems arg-2 arg-3 arg-1 '() arg-1))) -(define LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-40DPairC-32C-36aC-41C-32C-36pC-41 (lambda (arg-2 arg-3 ext-0) (let ((act-24 (let ((sc0 (Builtin-fst arg-2))) (let ((e-2 (cdr sc0))) ((e-2 arg-3) ext-0))))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((sc1 ((Builtin-snd arg-2) e-5))) (let ((e-2 (cdr sc1))) ((e-2 arg-3) ext-0))))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 (cons e-5 e-6)))))))))))))) -(define LibrariesC-45UtilsC-45Binary-writeToFile (lambda (arg-0 arg-1) (DataC-45Buffer-writeBufferToFile (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-0)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-0) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (let ((act-17 (arg-578 eta-0))) (let ((act-16 (arg-580 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (let ((act-24 (arg-876 eta-0))) ((arg-877 act-24) eta-0))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-0) (let ((act-51 (arg-879 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) arg-0 (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) e-0)) (let ((sc0 arg-1)) (let ((e-3 (vector-ref sc0 4))) e-3))))) -(define LibrariesC-45UtilsC-45Binary-toRead (lambda (arg-0) (PreludeC-45Num-u--C-45_Neg_Int (let ((sc0 arg-0)) (let ((e-3 (vector-ref sc0 4))) e-3)) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))) -(define LibrariesC-45UtilsC-45Binary-toLimbs (lambda (arg-0) (LibrariesC-45UtilsC-45Binary-case--toLimbs-12072 arg-0 (PreludeC-45EqOrd-u--C-61C-61_Eq_Integer arg-0 0)))) -(define LibrariesC-45UtilsC-45Binary-tag (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (LibrariesC-45UtilsC-45Binary-case--tag-10476 arg-1 arg-0 e-5 (PreludeC-45EqOrd-u--C-62C-61_Ord_Int (LibrariesC-45UtilsC-45Binary-avail e-5) 1) ext-0)))))))) -(define LibrariesC-45UtilsC-45Binary-readFromFile (lambda (arg-0 ext-0) (let ((act-24 ((DataC-45Buffer-createBufferFromFile (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-0)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-0) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (let ((act-17 (arg-578 eta-0))) (let ((act-16 (arg-580 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (let ((act-24 (arg-876 eta-0))) ((arg-877 act-24) eta-0))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-0) (let ((act-51 (arg-879 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) arg-0) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((act-25 ((DataC-45Buffer-rawSize (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-0)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-0) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (let ((act-17 (arg-578 eta-0))) (let ((act-16 (arg-580 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (let ((act-25 (arg-876 eta-0))) ((arg-877 act-25) eta-0))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-0) (let ((act-51 (arg-879 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) e-2) ext-0))) (vector 1 (vector 0 e-2 0 act-25 act-25))))) (else (let ((e-5 (vector-ref sc0 1))) (vector 0 e-5)))))))) -(define LibrariesC-45UtilsC-45Binary-newBinary (lambda (arg-0 arg-1) (vector 0 arg-0 0 arg-1 0))) -(define LibrariesC-45UtilsC-45Binary-initBinaryS (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 ((DataC-45Buffer-newBuffer (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-0)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-0) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (let ((act-17 (arg-578 eta-0))) (let ((act-16 (arg-580 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (let ((act-24 (arg-876 eta-0))) ((arg-877 act-24) eta-0))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-0) (let ((act-51 (arg-879 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) arg-0) ext-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (CoreC-45Core-newRef (vector "Libraries.Utils.Binary.Bin" ) (LibrariesC-45UtilsC-45Binary-newBinary e-1 arg-0) ext-0))) (else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 "Buffer creation failed") ext-0))))))))))) -(define LibrariesC-45UtilsC-45Binary-initBinary (lambda (ext-0) (let ((act-24 (let ((act-24 ((DataC-45Buffer-newBuffer (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-0)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-0) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (let ((act-17 (arg-578 eta-0))) (let ((act-16 (arg-580 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (let ((act-24 (arg-876 eta-0))) ((arg-877 act-24) eta-0))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-0) (let ((act-51 (arg-879 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) (LibrariesC-45UtilsC-45Binary-blockSize)) ext-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (CoreC-45Core-newRef (vector "Libraries.Utils.Binary.Bin" ) (LibrariesC-45UtilsC-45Binary-newBinary e-1 (LibrariesC-45UtilsC-45Binary-blockSize)) ext-0))) (else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 "Buffer creation failed") ext-0))))))))))) -(define LibrariesC-45UtilsC-45Binary-incLoc (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (vector 0 e-0 (bs+ e-1 arg-0 63) e-2 e-3)))))))) -(define LibrariesC-45UtilsC-45Binary-getTag (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (LibrariesC-45UtilsC-45Binary-case--getTag-10546 arg-0 e-5 (PreludeC-45EqOrd-u--C-62C-61_Ord_Int (LibrariesC-45UtilsC-45Binary-toRead e-5) 1) ext-0)))))))) -(define LibrariesC-45UtilsC-45Binary-fromLimbs (lambda (arg-0) (let ((sc0 arg-0)) (if (null? sc0) 0 (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (+ (PreludeC-45Cast-u--cast_Cast_Int_Integer e-2) (blodwen-shl (LibrariesC-45UtilsC-45Binary-fromLimbs e-3) 32)))))))) -(define LibrariesC-45UtilsC-45Binary-extendBinary (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((u--newsize (bs* e-2 2 63))) (let ((u--sC-39 (LibrariesC-45UtilsC-45Binary-case--extendBinary-10367 e-3 e-2 e-1 e-0 arg-0 u--newsize (PreludeC-45EqOrd-u--C-60_Ord_Int (PreludeC-45Num-u--C-45_Neg_Int u--newsize e-1) arg-0)))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((DataC-45Buffer-resizeBuffer (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-1)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-1) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-1) (let ((act-17 (arg-578 eta-1))) (let ((act-16 (arg-580 eta-1))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-1) (let ((act-24 (arg-876 eta-1))) ((arg-877 act-24) eta-1))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-1) (let ((act-51 (arg-879 eta-1))) (act-51 eta-1)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) e-0 u--sC-39) eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-4 (vector-ref sc2 1))) (vector 1 (vector 0 e-4 e-1 u--sC-39 e-3)))) (else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 "Buffer expansion failed") eta-0))))))))))))))))))) -(define LibrariesC-45UtilsC-45Binary-corrupt (lambda (arg-1 ext-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 48 (vector 2 arg-1)) ext-0))) -(define LibrariesC-45UtilsC-45Binary-blockSize (lambda () (blodwen-toSignedInt 655360 63))) -(define LibrariesC-45UtilsC-45Binary-avail (lambda (arg-0) (PreludeC-45Num-u--C-45_Neg_Int (PreludeC-45Num-u--C-45_Neg_Int (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2)) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))) 1))) -(define LibrariesC-45UtilsC-45Binary-appended (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (vector 0 e-0 (bs+ e-1 arg-0 63) e-2 (bs+ e-3 arg-0 63))))))))) -(define LibrariesC-45DataC-45PosMap-case--inRangeC-44matches-9846 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (if (null? sc0) '() (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (cons e-2 (LibrariesC-45DataC-45PosMap-n--11355-9836-u--matches arg-1 arg-2 arg-3 arg-4 e-3)))))))) -(define LibrariesC-45DataC-45PosMap-case--insert-9583 (lambda (arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (LibrariesC-45DataC-45PosMap-C-43C-43 (lambda (arg-1445) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-36a arg-1 arg-1445)) e-2 (LibrariesC-45DataC-45PosMap-C-60C-124 (lambda (arg-1445) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-36a arg-1 arg-1445)) arg-2 e-3))))))) -(define LibrariesC-45DataC-45PosMap-case--caseC-32blockC-32inC-32split-9165 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (cons arg-4 (LibrariesC-45DataC-45PosMap-C-60C-124 arg-1 arg-5 arg-6))) (else (cons arg-2 (vector 0 ))))))) -(define LibrariesC-45DataC-45PosMap-case--split-9139 (lambda (arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-5 (car sc1))) (let ((e-6 (cdr sc1))) (let ((sc2 e-6)) (let ((e-9 (car sc2))) (let ((e-10 (cdr sc2))) (LibrariesC-45DataC-45PosMap-case--caseC-32blockC-32inC-32split-9165 arg-1 arg-2 arg-3 e-5 e-9 e-10 (arg-3 (LibrariesC-45DataC-45PosMap-measureTree arg-1 arg-2))))))))))) (else (cons arg-2 (vector 0 ))))))) -(define LibrariesC-45DataC-45PosMap-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32searchTree-8879 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-3)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (vector 1 (cons (LibrariesC-45DataC-45PosMap-deepr arg-1 arg-5 arg-4 e-2) (cons e-6 (PreludeC-45Types-maybe (lambda () (vector 0 )) (lambda () (lambda (eta-0) (LibrariesC-45DataC-45PosMap-digitToTree arg-1 eta-0))) e-7)))))))))))) -(define LibrariesC-45DataC-45PosMap-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32searchTree-8781 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-3)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (vector 1 (cons (LibrariesC-45DataC-45PosMap-deepr arg-1 arg-5 arg-14 e-2) (cons e-6 (LibrariesC-45DataC-45PosMap-deepl arg-1 e-7 arg-16 arg-3)))))))))))) -(define LibrariesC-45DataC-45PosMap-case--caseC-32blockC-32inC-32searchTree-8682 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (cond ((equal? sc0 0) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (LibrariesC-45DataC-45PosMap-searchTree (lambda (arg-1445) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-1445)) arg-8 arg-12 arg-4 arg-10) (lambda (_-0) (let ((sc1 _-0)) (let ((e-2 (car sc1))) (let ((e-3 (cdr sc1))) (let ((sc2 e-3)) (let ((e-6 (car sc2))) (let ((e-7 (cdr sc2))) (let ((_-1 (cons e-2 (cons e-6 e-7)))) (LibrariesC-45DataC-45PosMap-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32searchTree-8781 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-2 e-6 e-7 _-1 (LibrariesC-45DataC-45PosMap-searchNode arg-1 arg-8 (LibrariesC-45DataC-45PosMap-u--C-60C-43C-62_Semigroup_Interval arg-12 (LibrariesC-45DataC-45PosMap-measureTree (lambda (arg-1445) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-1445)) e-2)) e-6 (LibrariesC-45DataC-45PosMap-u--C-60C-43C-62_Semigroup_Interval (LibrariesC-45DataC-45PosMap-measureTree (lambda (arg-1445) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-1445)) e-7) arg-10))))))))))))) (else (LibrariesC-45DataC-45PosMap-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32searchTree-8879 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (LibrariesC-45DataC-45PosMap-searchDigit arg-1 arg-8 arg-13 arg-3 arg-6))))))) -(define LibrariesC-45DataC-45PosMap-case--caseC-32blockC-32inC-32searchTree-8592 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-3)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (vector 1 (cons (PreludeC-45Types-maybe (lambda () (vector 0 )) (lambda () (lambda (eta-0) (LibrariesC-45DataC-45PosMap-digitToTree arg-1 eta-0))) e-2) (cons e-6 (LibrariesC-45DataC-45PosMap-deepl arg-1 e-7 arg-4 arg-3)))))))))))) -(define LibrariesC-45DataC-45PosMap-case--searchTree-8555 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (cond ((equal? sc0 0) (LibrariesC-45DataC-45PosMap-case--caseC-32blockC-32inC-32searchTree-8592 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (LibrariesC-45DataC-45PosMap-searchDigit arg-1 arg-8 arg-7 arg-5 arg-11))) (else (LibrariesC-45DataC-45PosMap-case--caseC-32blockC-32inC-32searchTree-8682 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 ((arg-8 arg-13) arg-10))))))) -(define LibrariesC-45DataC-45PosMap-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32searchDigit-8304 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (cond ((equal? sc0 0) (cons (vector 1 (vector 1 arg-11 arg-12)) (cons arg-13 (vector 1 (vector 0 arg-14))))) (else (cons (vector 1 (vector 2 arg-11 arg-12 arg-13)) (cons arg-14 (vector 0 )))))))) -(define LibrariesC-45DataC-45PosMap-case--caseC-32blockC-32inC-32searchDigit-8204 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (cond ((equal? sc0 0) (cons (vector 1 (vector 0 arg-14)) (cons arg-13 (vector 1 (vector 1 arg-12 arg-11))))) (else (LibrariesC-45DataC-45PosMap-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32searchDigit-8304 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-14 arg-13 arg-12 arg-11 ((arg-4 arg-7) arg-8))))))) -(define LibrariesC-45DataC-45PosMap-case--searchDigit-8106 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (cond ((equal? sc0 0) (cons (vector 0 ) (cons arg-2 (vector 1 (vector 2 arg-3 arg-4 arg-5))))) (else (LibrariesC-45DataC-45PosMap-case--caseC-32blockC-32inC-32searchDigit-8204 arg-1 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-5 arg-4 arg-3 arg-2 ((arg-8 arg-10) arg-13))))))) -(define LibrariesC-45DataC-45PosMap-case--caseC-32blockC-32inC-32searchDigit-7940 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (cons (vector 1 (vector 0 arg-11)) (cons arg-10 (vector 1 (vector 0 arg-9))))) (else (cons (vector 1 (vector 1 arg-11 arg-10)) (cons arg-9 (vector 0 )))))))) -(define LibrariesC-45DataC-45PosMap-case--searchDigit-7859 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (cons (vector 0 ) (cons arg-2 (vector 1 (vector 1 arg-3 arg-4))))) (else (LibrariesC-45DataC-45PosMap-case--caseC-32blockC-32inC-32searchDigit-7940 arg-1 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-4 arg-3 arg-2 ((arg-7 arg-9) arg-10))))))) -(define LibrariesC-45DataC-45PosMap-case--searchDigit-7733 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (cons (vector 0 ) (cons arg-2 (vector 1 (vector 0 arg-3))))) (else (cons (vector 1 (vector 0 arg-2)) (cons arg-3 (vector 0 )))))))) -(define LibrariesC-45DataC-45PosMap-case--caseC-32blockC-32inC-32rotr-4035 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (vector 2 (LibrariesC-45DataC-45PosMap-u--C-60C-43C-62_Semigroup_RMFileRange (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40DigitC-32C-36aC-41 arg-1 arg-3) e-0) arg-3 arg-5 (LibrariesC-45DataC-45PosMap-nodeToDigit arg-1 arg-4)))) (else (vector 2 (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40DigitC-32C-36aC-41 arg-1 arg-3) arg-3 arg-5 (LibrariesC-45DataC-45PosMap-nodeToDigit arg-1 arg-4))))))) -(define LibrariesC-45DataC-45PosMap-case--rotr-4006 (lambda (arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (if (null? sc0) (LibrariesC-45DataC-45PosMap-digitToTree arg-1 arg-3) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (LibrariesC-45DataC-45PosMap-case--caseC-32blockC-32inC-32rotr-4035 arg-1 arg-2 arg-3 e-3 e-2 (LibrariesC-45DataC-45PosMap-measureTree (lambda (arg-1445) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-1445)) arg-2)))))))) -(define LibrariesC-45DataC-45PosMap-case--caseC-32blockC-32inC-32rotl-3840 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (vector 2 (LibrariesC-45DataC-45PosMap-u--C-60C-43C-62_Semigroup_RMFileRange e-0 (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40DigitC-32C-36aC-41 arg-1 arg-2)) (LibrariesC-45DataC-45PosMap-nodeToDigit arg-1 arg-4) arg-5 arg-2))) (else (vector 2 (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40DigitC-32C-36aC-41 arg-1 arg-2) (LibrariesC-45DataC-45PosMap-nodeToDigit arg-1 arg-4) arg-5 arg-2)))))) -(define LibrariesC-45DataC-45PosMap-case--rotl-3811 (lambda (arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (if (null? sc0) (LibrariesC-45DataC-45PosMap-digitToTree arg-1 arg-2) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (LibrariesC-45DataC-45PosMap-case--caseC-32blockC-32inC-32rotl-3840 arg-1 arg-2 arg-3 e-2 e-3 (LibrariesC-45DataC-45PosMap-measureTree (lambda (arg-1445) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-1445)) arg-3)))))))) -(define LibrariesC-45DataC-45PosMap-case--deepC-44value-3052 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (LibrariesC-45DataC-45PosMap-u--C-60C-43C-62_Semigroup_RMFileRange (LibrariesC-45DataC-45PosMap-u--C-60C-43C-62_Semigroup_RMFileRange (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40DigitC-32C-36aC-41 arg-1 arg-4) e-0) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40DigitC-32C-36aC-41 arg-1 arg-2)))) (else (LibrariesC-45DataC-45PosMap-u--C-60C-43C-62_Semigroup_RMFileRange (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40DigitC-32C-36aC-41 arg-1 arg-4) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40DigitC-32C-36aC-41 arg-1 arg-2))))))) -(define LibrariesC-45DataC-45PosMap-n--4368-3046-u--value (lambda (arg-1 arg-2 arg-3 arg-4) (LibrariesC-45DataC-45PosMap-case--deepC-44value-3052 arg-1 arg-2 arg-3 arg-4 (LibrariesC-45DataC-45PosMap-measureTree (lambda (arg-1445) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-1445)) arg-3)))) -(define LibrariesC-45DataC-45PosMap-n--11355-9836-u--matches (lambda (arg-1 arg-2 arg-3 arg-4 arg-5) (LibrariesC-45DataC-45PosMap-case--inRangeC-44matches-9846 arg-1 arg-2 arg-3 arg-4 arg-5 (LibrariesC-45DataC-45PosMap-viewl arg-1 (LibrariesC-45DataC-45PosMap-dropUntil arg-1 (lambda (eta-0) (LibrariesC-45DataC-45PosMap-atleast arg-4 eta-0)) arg-5))))) -(define LibrariesC-45DataC-45PosMap-u--show_Show_C-40PosMapC-32C-36aC-41 (lambda (arg-1 arg-2) (LibrariesC-45DataC-45PosMap-u--showPrec_Show_C-40PosMapC-32C-36aC-41 arg-1 (vector 0 ) arg-2))) -(define LibrariesC-45DataC-45PosMap-u--showPrec_Show_C-40PosMapC-32C-36aC-41 (lambda (arg-1 arg-2 arg-3) (PreludeC-45Show-showCon arg-2 "fromList" (PreludeC-45Show-showArg (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 arg-1 u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_C-40ListC-32C-36aC-41 arg-1 u--d u--x)))) (LibrariesC-45DataC-45PosMap-u--foldr_Foldable_PosMap (lambda (eta-0) (lambda (eta-1) (cons eta-0 eta-1))) '() arg-3))))) -(define LibrariesC-45DataC-45PosMap-u--null_Foldable_PosMap (lambda (arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda () 0)) ((1) (lambda () 1)) (else (lambda () 1)))))) -(define LibrariesC-45DataC-45PosMap-u--neutral_Monoid_Interval (lambda () (vector 1 ))) -(define LibrariesC-45DataC-45PosMap-u--measure_Measure_NonEmptyFC (lambda (ext-0) (Builtin-snd ext-0))) -(define LibrariesC-45DataC-45PosMap-u--measure_Measure_C-40C-124C-40C-40BuiltinC-46PairC-32NonEmptyFCC-41C-32C-36aC-41C-44C-40C-40BuiltinC-46MkPairC-32NonEmptyFCC-41C-32C-36aC-41C-124C-41 (lambda (ext-0) (LibrariesC-45DataC-45PosMap-u--measure_Measure_NonEmptyFC (Builtin-fst ext-0)))) -(define LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 (lambda (arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) e-1)) (else (let ((e-5 (vector-ref sc0 1))) e-5)))))) -(define LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40DigitC-32C-36aC-41 (lambda (arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (arg-1 e-1))) ((1) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (LibrariesC-45DataC-45PosMap-u--C-60C-43C-62_Semigroup_RMFileRange (arg-1 e-3) (arg-1 e-4))))) ((2) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (LibrariesC-45DataC-45PosMap-u--C-60C-43C-62_Semigroup_RMFileRange (LibrariesC-45DataC-45PosMap-u--C-60C-43C-62_Semigroup_RMFileRange (arg-1 e-6) (arg-1 e-7)) (arg-1 e-8)))))) (else (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (let ((e-13 (vector-ref sc0 4))) (LibrariesC-45DataC-45PosMap-u--C-60C-43C-62_Semigroup_RMFileRange (LibrariesC-45DataC-45PosMap-u--C-60C-43C-62_Semigroup_RMFileRange (LibrariesC-45DataC-45PosMap-u--C-60C-43C-62_Semigroup_RMFileRange (arg-1 e-10) (arg-1 e-11)) (arg-1 e-12)) (arg-1 e-13))))))))))) -(define LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-36a (lambda (arg-1 ext-0) (LibrariesC-45DataC-45PosMap-u--cast_Cast_FileRange_RMFileRange (arg-1 ext-0)))) -(define LibrariesC-45DataC-45PosMap-u--foldr_Foldable_PosMap (lambda (arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) arg-3) ((1) (let ((e-2 (vector-ref sc0 1))) ((arg-2 e-2) arg-3))) (else (let ((e-5 (vector-ref sc0 2))) (let ((e-6 (vector-ref sc0 3))) (let ((e-7 (vector-ref sc0 4))) (LibrariesC-45DataC-45PosMap-u--foldr_Foldable_Digit arg-2 (LibrariesC-45DataC-45PosMap-u--foldr_Foldable_PosMap (lambda (eta-0) (lambda (eta-1) (PreludeC-45Basics-flip (lambda (eta-2) (lambda (eta-3) (LibrariesC-45DataC-45PosMap-u--foldr_Foldable_Node arg-2 eta-2 eta-3))) eta-0 eta-1))) (LibrariesC-45DataC-45PosMap-u--foldr_Foldable_Digit arg-2 arg-3 e-7) e-6) e-5))))))))) -(define LibrariesC-45DataC-45PosMap-u--foldr_Foldable_Node (lambda (arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) ((arg-2 e-2) ((arg-2 e-3) arg-3))))) (else (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) ((arg-2 e-6) ((arg-2 e-7) ((arg-2 e-8) arg-3))))))))))) -(define LibrariesC-45DataC-45PosMap-u--foldr_Foldable_Digit (lambda (arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) ((arg-2 e-1) arg-3))) ((1) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) ((arg-2 e-3) ((arg-2 e-4) arg-3))))) ((2) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) ((arg-2 e-6) ((arg-2 e-7) ((arg-2 e-8) arg-3))))))) (else (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (let ((e-13 (vector-ref sc0 4))) ((arg-2 e-10) ((arg-2 e-11) ((arg-2 e-12) ((arg-2 e-13) arg-3))))))))))))) -(define LibrariesC-45DataC-45PosMap-u--foldl_Foldable_PosMap (lambda (arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) arg-3) ((1) (let ((e-2 (vector-ref sc0 1))) ((arg-2 arg-3) e-2))) (else (let ((e-5 (vector-ref sc0 2))) (let ((e-6 (vector-ref sc0 3))) (let ((e-7 (vector-ref sc0 4))) (LibrariesC-45DataC-45PosMap-u--foldl_Foldable_Digit arg-2 (LibrariesC-45DataC-45PosMap-u--foldl_Foldable_PosMap (lambda (eta-0) (lambda (eta-1) (LibrariesC-45DataC-45PosMap-u--foldl_Foldable_Node arg-2 eta-0 eta-1))) (LibrariesC-45DataC-45PosMap-u--foldl_Foldable_Digit arg-2 arg-3 e-5) e-6) e-7))))))))) -(define LibrariesC-45DataC-45PosMap-u--foldl_Foldable_Node (lambda (arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) ((arg-2 ((arg-2 arg-3) e-2)) e-3)))) (else (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) ((arg-2 ((arg-2 ((arg-2 arg-3) e-6)) e-7)) e-8))))))))) -(define LibrariesC-45DataC-45PosMap-u--foldl_Foldable_Digit (lambda (arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) ((arg-2 arg-3) e-1))) ((1) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) ((arg-2 ((arg-2 arg-3) e-3)) e-4)))) ((2) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) ((arg-2 ((arg-2 ((arg-2 arg-3) e-6)) e-7)) e-8))))) (else (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (let ((e-13 (vector-ref sc0 4))) ((arg-2 ((arg-2 ((arg-2 ((arg-2 arg-3) e-10)) e-11)) e-12)) e-13)))))))))) -(define LibrariesC-45DataC-45PosMap-u--foldlM_Foldable_PosMap (lambda (arg-3 arg-4 arg-5 ext-0) (LibrariesC-45DataC-45PosMap-u--foldl_Foldable_PosMap (lambda (u--ma) (lambda (u--b) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) u--ma) (lambda (eta-0) (PreludeC-45Basics-flip arg-4 u--b eta-0))))))) (let ((sc0 arg-3)) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 2))) ((e-5 'erased) arg-5))))) ext-0))) -(define LibrariesC-45DataC-45PosMap-u--cast_Cast_RMFileRange_Interval (lambda (ext-0) (vector 0 ext-0))) -(define LibrariesC-45DataC-45PosMap-u--cast_Cast_FileRange_RMFileRange (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (cons (cons e-2 e-3) e-3)))))) -(define LibrariesC-45DataC-45PosMap-u--C-60C-43C-62_Semigroup_RMFileRange (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (let ((e-1 (cdr sc0))) (let ((sc1 arg-1)) (let ((e-2 (car sc1))) (let ((e-3 (cdr sc1))) (cons e-2 (PreludeC-45EqOrd-u--max_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector 0 (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Int arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Int arg-383 arg-384)))) (vector 0 (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Int arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Int arg-383 arg-384)))) e-1 e-3))))))))) -(define LibrariesC-45DataC-45PosMap-u--C-60C-43C-62_Semigroup_Interval (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) arg-1)(else (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) arg-0)(else (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) (vector 0 (LibrariesC-45DataC-45PosMap-u--C-60C-43C-62_Semigroup_RMFileRange e-0 e-1)))))))))))))) -(define LibrariesC-45DataC-45PosMap-C-124C-62 (lambda (arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 1 arg-3)) ((1) (let ((e-2 (vector-ref sc0 1))) (LibrariesC-45DataC-45PosMap-deep arg-1 (vector 0 e-2) (vector 0 ) (vector 0 arg-3)))) (else (let ((e-5 (vector-ref sc0 2))) (let ((e-6 (vector-ref sc0 3))) (let ((e-7 (vector-ref sc0 4))) (let ((sc1 e-7)) (case (vector-ref sc1 0) ((0) (let ((e-9 (vector-ref sc1 1))) (LibrariesC-45DataC-45PosMap-deep arg-1 e-5 e-6 (vector 1 e-9 arg-3)))) ((1) (let ((e-11 (vector-ref sc1 1))) (let ((e-12 (vector-ref sc1 2))) (LibrariesC-45DataC-45PosMap-deep arg-1 e-5 e-6 (vector 2 e-11 e-12 arg-3))))) ((2) (let ((e-14 (vector-ref sc1 1))) (let ((e-15 (vector-ref sc1 2))) (let ((e-16 (vector-ref sc1 3))) (LibrariesC-45DataC-45PosMap-deep arg-1 e-5 e-6 (vector 3 e-14 e-15 e-16 arg-3)))))) (else (let ((e-18 (vector-ref sc1 1))) (let ((e-19 (vector-ref sc1 2))) (let ((e-20 (vector-ref sc1 3))) (let ((e-21 (vector-ref sc1 4))) (LibrariesC-45DataC-45PosMap-deep arg-1 e-5 (LibrariesC-45DataC-45PosMap-C-124C-62 (lambda (arg-1445) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-1445)) e-6 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-18 e-19 e-20)) (vector 1 e-21 arg-3))))))))))))))))) -(define LibrariesC-45DataC-45PosMap-viewr (lambda (arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) '()) ((1) (let ((e-2 (vector-ref sc0 1))) (cons (vector 0 ) e-2))) (else (let ((e-5 (vector-ref sc0 2))) (let ((e-6 (vector-ref sc0 3))) (let ((e-7 (vector-ref sc0 4))) (let ((sc1 e-7)) (case (vector-ref sc1 0) ((0) (let ((e-9 (vector-ref sc1 1))) (cons (LibrariesC-45DataC-45PosMap-rotr arg-1 e-5 e-6) e-9))) ((1) (let ((e-11 (vector-ref sc1 1))) (let ((e-12 (vector-ref sc1 2))) (cons (LibrariesC-45DataC-45PosMap-deep arg-1 e-5 e-6 (vector 0 e-11)) e-12)))) ((2) (let ((e-14 (vector-ref sc1 1))) (let ((e-15 (vector-ref sc1 2))) (let ((e-16 (vector-ref sc1 3))) (cons (LibrariesC-45DataC-45PosMap-deep arg-1 e-5 e-6 (vector 1 e-14 e-15)) e-16))))) (else (let ((e-18 (vector-ref sc1 1))) (let ((e-19 (vector-ref sc1 2))) (let ((e-20 (vector-ref sc1 3))) (let ((e-21 (vector-ref sc1 4))) (cons (LibrariesC-45DataC-45PosMap-deep arg-1 e-5 e-6 (vector 2 e-18 e-19 e-20)) e-21)))))))))))))))) -(define LibrariesC-45DataC-45PosMap-viewl (lambda (arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) '()) ((1) (let ((e-2 (vector-ref sc0 1))) (cons e-2 (vector 0 )))) (else (let ((e-5 (vector-ref sc0 2))) (let ((e-6 (vector-ref sc0 3))) (let ((e-7 (vector-ref sc0 4))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((0) (let ((e-9 (vector-ref sc1 1))) (cons e-9 (LibrariesC-45DataC-45PosMap-rotl arg-1 e-6 e-7)))) ((1) (let ((e-11 (vector-ref sc1 1))) (let ((e-12 (vector-ref sc1 2))) (cons e-11 (LibrariesC-45DataC-45PosMap-deep arg-1 (vector 0 e-12) e-6 e-7))))) ((2) (let ((e-14 (vector-ref sc1 1))) (let ((e-15 (vector-ref sc1 2))) (let ((e-16 (vector-ref sc1 3))) (cons e-14 (LibrariesC-45DataC-45PosMap-deep arg-1 (vector 1 e-15 e-16) e-6 e-7)))))) (else (let ((e-18 (vector-ref sc1 1))) (let ((e-19 (vector-ref sc1 2))) (let ((e-20 (vector-ref sc1 3))) (let ((e-21 (vector-ref sc1 4))) (cons e-18 (LibrariesC-45DataC-45PosMap-deep arg-1 (vector 2 e-19 e-20 e-21) e-6 e-7))))))))))))))))) -(define LibrariesC-45DataC-45PosMap-takeUntil (lambda (arg-1 arg-2 ext-0) (Builtin-fst (LibrariesC-45DataC-45PosMap-split arg-1 arg-2 ext-0)))) -(define LibrariesC-45DataC-45PosMap-split (lambda (arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (cons (vector 0 ) (vector 0 )))(else (LibrariesC-45DataC-45PosMap-case--split-9139 arg-1 arg-3 arg-2 (LibrariesC-45DataC-45PosMap-searchTree arg-1 (lambda (u--a) (lambda (_-9136) (arg-2 u--a))) (LibrariesC-45DataC-45PosMap-u--neutral_Monoid_Interval) arg-3 (LibrariesC-45DataC-45PosMap-u--neutral_Monoid_Interval)))))))) -(define LibrariesC-45DataC-45PosMap-searchTree (lambda (arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (vector 0 )) ((1) (let ((e-2 (vector-ref sc0 1))) (vector 1 (cons (vector 0 ) (cons e-2 (vector 0 )))))) (else (let ((e-4 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 2))) (let ((e-6 (vector-ref sc0 3))) (let ((e-7 (vector-ref sc0 4))) (let ((u--vm (LibrariesC-45DataC-45PosMap-measureTree (lambda (arg-1445) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-1445)) e-6))) (let ((u--vsr (LibrariesC-45DataC-45PosMap-u--C-60C-43C-62_Semigroup_Interval (LibrariesC-45DataC-45PosMap-u--cast_Cast_RMFileRange_Interval (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40DigitC-32C-36aC-41 arg-1 e-7)) arg-5))) (let ((u--vmsr (LibrariesC-45DataC-45PosMap-u--C-60C-43C-62_Semigroup_Interval u--vm u--vsr))) (let ((u--vlp (LibrariesC-45DataC-45PosMap-u--C-60C-43C-62_Semigroup_Interval arg-3 (LibrariesC-45DataC-45PosMap-u--cast_Cast_RMFileRange_Interval (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40DigitC-32C-36aC-41 arg-1 e-5))))) (let ((u--vlpm (LibrariesC-45DataC-45PosMap-u--C-60C-43C-62_Semigroup_Interval u--vlp u--vm))) (LibrariesC-45DataC-45PosMap-case--searchTree-8555 arg-1 e-4 e-7 e-6 e-5 arg-5 arg-3 arg-2 u--vm u--vsr u--vmsr u--vlp u--vlpm ((arg-2 u--vlp) u--vmsr)))))))))))))))) -(define LibrariesC-45DataC-45PosMap-searchPos (lambda (arg-1 arg-2 ext-0) (LibrariesC-45DataC-45PosMap-inRange arg-1 arg-2 arg-2 ext-0))) -(define LibrariesC-45DataC-45PosMap-searchNode (lambda (arg-1 arg-2 arg-3 arg-4 arg-5) (LibrariesC-45DataC-45PosMap-searchDigit arg-1 arg-2 arg-3 (LibrariesC-45DataC-45PosMap-nodeToDigit arg-1 arg-4) arg-5))) -(define LibrariesC-45DataC-45PosMap-searchDigit (lambda (arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (cons (vector 0 ) (cons e-1 (vector 0 ))))) ((1) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((u--va (LibrariesC-45DataC-45PosMap-u--C-60C-43C-62_Semigroup_Interval arg-3 (LibrariesC-45DataC-45PosMap-u--cast_Cast_RMFileRange_Interval (arg-1 e-3))))) (let ((u--vb (LibrariesC-45DataC-45PosMap-u--C-60C-43C-62_Semigroup_Interval (LibrariesC-45DataC-45PosMap-u--cast_Cast_RMFileRange_Interval (arg-1 e-4)) arg-5))) (LibrariesC-45DataC-45PosMap-case--searchDigit-7733 arg-1 e-3 e-4 arg-5 arg-3 arg-2 u--va u--vb ((arg-2 u--va) u--vb))))))) ((2) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (let ((u--va (LibrariesC-45DataC-45PosMap-u--C-60C-43C-62_Semigroup_Interval arg-3 (LibrariesC-45DataC-45PosMap-u--cast_Cast_RMFileRange_Interval (arg-1 e-6))))) (let ((u--vab (LibrariesC-45DataC-45PosMap-u--C-60C-43C-62_Semigroup_Interval u--va (LibrariesC-45DataC-45PosMap-u--cast_Cast_RMFileRange_Interval (arg-1 e-7))))) (let ((u--vc (LibrariesC-45DataC-45PosMap-u--C-60C-43C-62_Semigroup_Interval (LibrariesC-45DataC-45PosMap-u--cast_Cast_RMFileRange_Interval (arg-1 e-8)) arg-5))) (let ((u--vbc (LibrariesC-45DataC-45PosMap-u--C-60C-43C-62_Semigroup_Interval (LibrariesC-45DataC-45PosMap-u--cast_Cast_RMFileRange_Interval (arg-1 e-7)) u--vc))) (LibrariesC-45DataC-45PosMap-case--searchDigit-7859 arg-1 e-6 e-7 e-8 arg-5 arg-3 arg-2 u--va u--vab u--vc u--vbc ((arg-2 u--va) u--vbc)))))))))) (else (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (let ((e-13 (vector-ref sc0 4))) (let ((u--va (LibrariesC-45DataC-45PosMap-u--C-60C-43C-62_Semigroup_Interval arg-3 (LibrariesC-45DataC-45PosMap-u--cast_Cast_RMFileRange_Interval (arg-1 e-10))))) (let ((u--vab (LibrariesC-45DataC-45PosMap-u--C-60C-43C-62_Semigroup_Interval u--va (LibrariesC-45DataC-45PosMap-u--cast_Cast_RMFileRange_Interval (arg-1 e-11))))) (let ((u--vabc (LibrariesC-45DataC-45PosMap-u--C-60C-43C-62_Semigroup_Interval u--vab (LibrariesC-45DataC-45PosMap-u--cast_Cast_RMFileRange_Interval (arg-1 e-12))))) (let ((u--vd (LibrariesC-45DataC-45PosMap-u--C-60C-43C-62_Semigroup_Interval (LibrariesC-45DataC-45PosMap-u--cast_Cast_RMFileRange_Interval (arg-1 e-13)) arg-5))) (let ((u--vcd (LibrariesC-45DataC-45PosMap-u--C-60C-43C-62_Semigroup_Interval (LibrariesC-45DataC-45PosMap-u--cast_Cast_RMFileRange_Interval (arg-1 e-12)) u--vd))) (let ((u--vbcd (LibrariesC-45DataC-45PosMap-u--C-60C-43C-62_Semigroup_Interval (LibrariesC-45DataC-45PosMap-u--cast_Cast_RMFileRange_Interval (arg-1 e-11)) u--vcd))) (LibrariesC-45DataC-45PosMap-case--searchDigit-8106 arg-1 e-10 e-11 e-12 e-13 arg-5 arg-3 arg-2 u--va u--vab u--vabc u--vd u--vcd u--vbcd ((arg-2 u--va) u--vbcd))))))))))))))))) -(define LibrariesC-45DataC-45PosMap-rotr (lambda (arg-1 arg-2 arg-3) (LibrariesC-45DataC-45PosMap-case--rotr-4006 arg-1 arg-3 arg-2 (LibrariesC-45DataC-45PosMap-viewr (lambda (arg-1445) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-1445)) arg-3)))) -(define LibrariesC-45DataC-45PosMap-rotl (lambda (arg-1 arg-2 arg-3) (LibrariesC-45DataC-45PosMap-case--rotl-3811 arg-1 arg-3 arg-2 (LibrariesC-45DataC-45PosMap-viewl (lambda (arg-1445) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-1445)) arg-2)))) -(define LibrariesC-45DataC-45PosMap-nodeToDigit (lambda (arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (vector 1 e-2 e-3)))) (else (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (vector 2 e-6 e-7 e-8))))))))) -(define LibrariesC-45DataC-45PosMap-node3 (lambda (arg-1 arg-2 arg-3 arg-4) (vector 1 (LibrariesC-45DataC-45PosMap-u--C-60C-43C-62_Semigroup_RMFileRange (LibrariesC-45DataC-45PosMap-u--C-60C-43C-62_Semigroup_RMFileRange (arg-1 arg-2) (arg-1 arg-3)) (arg-1 arg-4)) arg-2 arg-3 arg-4))) -(define LibrariesC-45DataC-45PosMap-node2 (lambda (arg-1 arg-2 arg-3) (vector 0 (LibrariesC-45DataC-45PosMap-u--C-60C-43C-62_Semigroup_RMFileRange (arg-1 arg-2) (arg-1 arg-3)) arg-2 arg-3))) -(define LibrariesC-45DataC-45PosMap-measureTree (lambda (arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (LibrariesC-45DataC-45PosMap-u--neutral_Monoid_Interval)) ((1) (let ((e-2 (vector-ref sc0 1))) (LibrariesC-45DataC-45PosMap-u--cast_Cast_RMFileRange_Interval (arg-1 e-2)))) (else (let ((e-4 (vector-ref sc0 1))) (LibrariesC-45DataC-45PosMap-u--cast_Cast_RMFileRange_Interval e-4))))))) -(define LibrariesC-45DataC-45PosMap-larger (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 e-0)) (let ((e-1 (car sc1))) (PreludeC-45EqOrd-u--C-62C-61_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector 0 (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (cons (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-6) (lambda (arg-7) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-6 arg-7)))) (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-6) (lambda (arg-7) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-6 arg-7)))) arg-4 arg-5)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector 0 (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--compare_Ord_Int arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Int arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Int arg-383 arg-384)))) (vector 0 (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--compare_Ord_Int arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Int arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Int arg-383 arg-384)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector 0 (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Int arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Int arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Int arg-383 arg-384)))) (vector 0 (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Int arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Int arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Int arg-383 arg-384)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector 0 (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Int arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Int arg-383 arg-384)))) (vector 0 (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Int arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Int arg-383 arg-384)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector 0 (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Int arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Int arg-383 arg-384)))) (vector 0 (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Int arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Int arg-383 arg-384)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector 0 (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Int arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Int arg-383 arg-384)))) (vector 0 (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Int arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Int arg-383 arg-384)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector 0 (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--max_Ord_Int arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Int arg-383 arg-384)))) (vector 0 (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--max_Ord_Int arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Int arg-383 arg-384)))) arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector 0 (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Int arg-381 arg-382))) (lambda (arg-385) (lambda (arg-386) (PreludeC-45EqOrd-u--min_Ord_Int arg-385 arg-386)))) (vector 0 (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Int arg-381 arg-382))) (lambda (arg-385) (lambda (arg-386) (PreludeC-45EqOrd-u--min_Ord_Int arg-385 arg-386)))) arg-383 arg-384)))) (vector 0 (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (cons (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-6) (lambda (arg-7) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-6 arg-7)))) (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-6) (lambda (arg-7) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-6 arg-7)))) arg-4 arg-5)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector 0 (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--compare_Ord_Int arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Int arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Int arg-383 arg-384)))) (vector 0 (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--compare_Ord_Int arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Int arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Int arg-383 arg-384)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector 0 (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Int arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Int arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Int arg-383 arg-384)))) (vector 0 (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Int arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Int arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Int arg-383 arg-384)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector 0 (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Int arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Int arg-383 arg-384)))) (vector 0 (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Int arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Int arg-383 arg-384)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector 0 (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Int arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Int arg-383 arg-384)))) (vector 0 (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Int arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Int arg-383 arg-384)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector 0 (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Int arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Int arg-383 arg-384)))) (vector 0 (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Int arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Int arg-383 arg-384)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector 0 (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--max_Ord_Int arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Int arg-383 arg-384)))) (vector 0 (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--max_Ord_Int arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Int arg-383 arg-384)))) arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector 0 (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Int arg-381 arg-382))) (lambda (arg-385) (lambda (arg-386) (PreludeC-45EqOrd-u--min_Ord_Int arg-385 arg-386)))) (vector 0 (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Int arg-381 arg-382))) (lambda (arg-385) (lambda (arg-386) (PreludeC-45EqOrd-u--min_Ord_Int arg-385 arg-386)))) arg-383 arg-384)))) e-1 arg-0))))) (else 1))))) -(define LibrariesC-45DataC-45PosMap-insert (lambda (arg-1 arg-2 arg-3) (LibrariesC-45DataC-45PosMap-case--insert-9583 arg-1 arg-2 arg-3 (LibrariesC-45DataC-45PosMap-split (lambda (arg-1445) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-36a arg-1 arg-1445)) (lambda (eta-0) (LibrariesC-45DataC-45PosMap-larger (arg-1 arg-2) eta-0)) arg-3)))) -(define LibrariesC-45DataC-45PosMap-inRange (lambda (arg-1 arg-2 arg-3 arg-4) (LibrariesC-45DataC-45PosMap-n--11355-9836-u--matches arg-1 arg-4 arg-3 arg-2 (LibrariesC-45DataC-45PosMap-takeUntil arg-1 (lambda (eta-0) (LibrariesC-45DataC-45PosMap-greater arg-3 eta-0)) arg-4)))) -(define LibrariesC-45DataC-45PosMap-greater (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 e-0)) (let ((e-1 (car sc1))) (PreludeC-45EqOrd-u--C-62_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector 0 (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Int arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Int arg-383 arg-384)))) (vector 0 (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Int arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Int arg-383 arg-384)))) (Builtin-fst e-1) arg-0))))) (else 1))))) -(define LibrariesC-45DataC-45PosMap-fromList (lambda (arg-1 ext-0) (PreludeC-45Types-u--foldr_Foldable_List (lambda (eta-0) (lambda (eta-1) (LibrariesC-45DataC-45PosMap-insert arg-1 eta-0 eta-1))) (LibrariesC-45DataC-45PosMap-empty) ext-0))) -(define LibrariesC-45DataC-45PosMap-empty (lambda () (vector 0 ))) -(define LibrariesC-45DataC-45PosMap-dropUntil (lambda (arg-1 arg-2 ext-0) (Builtin-snd (LibrariesC-45DataC-45PosMap-split arg-1 arg-2 ext-0)))) -(define LibrariesC-45DataC-45PosMap-digitToTree (lambda (arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (vector 1 e-1))) ((1) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (LibrariesC-45DataC-45PosMap-deep arg-1 (vector 0 e-3) (vector 0 ) (vector 0 e-4))))) ((2) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (LibrariesC-45DataC-45PosMap-deep arg-1 (vector 1 e-6 e-7) (vector 0 ) (vector 0 e-8)))))) (else (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (let ((e-13 (vector-ref sc0 4))) (LibrariesC-45DataC-45PosMap-deep arg-1 (vector 1 e-10 e-11) (vector 0 ) (vector 1 e-12 e-13))))))))))) -(define LibrariesC-45DataC-45PosMap-deepr (lambda (arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (LibrariesC-45DataC-45PosMap-rotr arg-1 arg-2 arg-3)) (else (let ((e-2 (vector-ref sc0 1))) (LibrariesC-45DataC-45PosMap-deep arg-1 arg-2 arg-3 e-2))))))) -(define LibrariesC-45DataC-45PosMap-deepl (lambda (arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (LibrariesC-45DataC-45PosMap-rotl arg-1 arg-3 arg-4)) (else (let ((e-2 (vector-ref sc0 1))) (LibrariesC-45DataC-45PosMap-deep arg-1 e-2 arg-3 arg-4))))))) -(define LibrariesC-45DataC-45PosMap-deep (lambda (arg-1 arg-2 arg-3 arg-4) (vector 2 (LibrariesC-45DataC-45PosMap-n--4368-3046-u--value arg-1 arg-4 arg-3 arg-2) arg-2 arg-3 arg-4))) -(define LibrariesC-45DataC-45PosMap-atleast (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 e-0)) (let ((e-2 (cdr sc1))) (PreludeC-45EqOrd-u--C-60C-61_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector 0 (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Int arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Int arg-383 arg-384)))) (vector 0 (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Int arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Int arg-383 arg-384)))) arg-0 e-2))))) (else 1))))) -(define LibrariesC-45DataC-45PosMap-appendTree4 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (LibrariesC-45DataC-45PosMap-C-60C-124 arg-1 arg-3 (LibrariesC-45DataC-45PosMap-C-60C-124 arg-1 arg-4 (LibrariesC-45DataC-45PosMap-C-60C-124 arg-1 arg-5 (LibrariesC-45DataC-45PosMap-C-60C-124 arg-1 arg-6 arg-7)))))(else (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (LibrariesC-45DataC-45PosMap-C-124C-62 arg-1 (LibrariesC-45DataC-45PosMap-C-124C-62 arg-1 (LibrariesC-45DataC-45PosMap-C-124C-62 arg-1 (LibrariesC-45DataC-45PosMap-C-124C-62 arg-1 arg-2 arg-3) arg-4) arg-5) arg-6))(else (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-13 (vector-ref sc0 1))) (LibrariesC-45DataC-45PosMap-C-60C-124 arg-1 arg-3 (LibrariesC-45DataC-45PosMap-C-60C-124 arg-1 arg-4 (LibrariesC-45DataC-45PosMap-C-60C-124 arg-1 arg-5 (LibrariesC-45DataC-45PosMap-C-60C-124 arg-1 arg-6 (LibrariesC-45DataC-45PosMap-C-60C-124 arg-1 e-13 arg-7)))))))(else (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-11 (vector-ref sc0 1))) (LibrariesC-45DataC-45PosMap-C-124C-62 arg-1 (LibrariesC-45DataC-45PosMap-C-124C-62 arg-1 (LibrariesC-45DataC-45PosMap-C-124C-62 arg-1 (LibrariesC-45DataC-45PosMap-C-124C-62 arg-1 (LibrariesC-45DataC-45PosMap-C-124C-62 arg-1 arg-2 arg-3) arg-4) arg-5) arg-6) e-11)))(else (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 arg-7)) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (let ((e-9 (vector-ref sc1 4))) (LibrariesC-45DataC-45PosMap-deep arg-1 e-2 (LibrariesC-45DataC-45PosMap-addDigits4 arg-1 e-3 e-4 arg-3 arg-4 arg-5 arg-6 e-7 e-8) e-9))))))))))))))))))))))) -(define LibrariesC-45DataC-45PosMap-appendTree3 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (LibrariesC-45DataC-45PosMap-C-60C-124 arg-1 arg-3 (LibrariesC-45DataC-45PosMap-C-60C-124 arg-1 arg-4 (LibrariesC-45DataC-45PosMap-C-60C-124 arg-1 arg-5 arg-6))))(else (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (LibrariesC-45DataC-45PosMap-C-124C-62 arg-1 (LibrariesC-45DataC-45PosMap-C-124C-62 arg-1 (LibrariesC-45DataC-45PosMap-C-124C-62 arg-1 arg-2 arg-3) arg-4) arg-5))(else (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-13 (vector-ref sc0 1))) (LibrariesC-45DataC-45PosMap-C-60C-124 arg-1 e-13 (LibrariesC-45DataC-45PosMap-C-60C-124 arg-1 arg-3 (LibrariesC-45DataC-45PosMap-C-60C-124 arg-1 arg-4 (LibrariesC-45DataC-45PosMap-C-60C-124 arg-1 arg-5 arg-6))))))(else (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (let ((e-11 (vector-ref sc0 1))) (LibrariesC-45DataC-45PosMap-C-124C-62 arg-1 (LibrariesC-45DataC-45PosMap-C-124C-62 arg-1 (LibrariesC-45DataC-45PosMap-C-124C-62 arg-1 (LibrariesC-45DataC-45PosMap-C-124C-62 arg-1 arg-2 arg-3) arg-4) arg-5) e-11)))(else (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 arg-6)) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (let ((e-9 (vector-ref sc1 4))) (LibrariesC-45DataC-45PosMap-deep arg-1 e-2 (LibrariesC-45DataC-45PosMap-addDigits3 arg-1 e-3 e-4 arg-3 arg-4 arg-5 e-7 e-8) e-9))))))))))))))))))))))) -(define LibrariesC-45DataC-45PosMap-appendTree2 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (LibrariesC-45DataC-45PosMap-C-60C-124 arg-1 arg-3 (LibrariesC-45DataC-45PosMap-C-60C-124 arg-1 arg-4 arg-5)))(else (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (LibrariesC-45DataC-45PosMap-C-124C-62 arg-1 (LibrariesC-45DataC-45PosMap-C-124C-62 arg-1 arg-2 arg-3) arg-4))(else (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-13 (vector-ref sc0 1))) (LibrariesC-45DataC-45PosMap-C-60C-124 arg-1 e-13 (LibrariesC-45DataC-45PosMap-C-60C-124 arg-1 arg-3 (LibrariesC-45DataC-45PosMap-C-60C-124 arg-1 arg-4 arg-5)))))(else (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-11 (vector-ref sc0 1))) (LibrariesC-45DataC-45PosMap-C-124C-62 arg-1 (LibrariesC-45DataC-45PosMap-C-124C-62 arg-1 (LibrariesC-45DataC-45PosMap-C-124C-62 arg-1 arg-2 arg-3) arg-4) e-11)))(else (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 arg-5)) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (let ((e-9 (vector-ref sc1 4))) (LibrariesC-45DataC-45PosMap-deep arg-1 e-2 (LibrariesC-45DataC-45PosMap-addDigits2 arg-1 e-3 e-4 arg-3 arg-4 e-7 e-8) e-9))))))))))))))))))))))) -(define LibrariesC-45DataC-45PosMap-appendTree1 (lambda (arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (LibrariesC-45DataC-45PosMap-C-60C-124 arg-1 arg-3 arg-4))(else (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (LibrariesC-45DataC-45PosMap-C-124C-62 arg-1 arg-2 arg-3))(else (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-13 (vector-ref sc0 1))) (LibrariesC-45DataC-45PosMap-C-60C-124 arg-1 e-13 (LibrariesC-45DataC-45PosMap-C-60C-124 arg-1 arg-3 arg-4))))(else (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-11 (vector-ref sc0 1))) (LibrariesC-45DataC-45PosMap-C-124C-62 arg-1 (LibrariesC-45DataC-45PosMap-C-124C-62 arg-1 arg-2 arg-3) e-11)))(else (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 arg-4)) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (let ((e-9 (vector-ref sc1 4))) (LibrariesC-45DataC-45PosMap-deep arg-1 e-2 (LibrariesC-45DataC-45PosMap-addDigits1 arg-1 e-3 e-4 arg-3 e-7 e-8) e-9))))))))))))))))))))))) -(define LibrariesC-45DataC-45PosMap-appendTree0 (lambda (arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) arg-3)(else (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) arg-2)(else (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-13 (vector-ref sc0 1))) (LibrariesC-45DataC-45PosMap-C-60C-124 arg-1 e-13 arg-3)))(else (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-11 (vector-ref sc0 1))) (LibrariesC-45DataC-45PosMap-C-124C-62 arg-1 arg-2 e-11)))(else (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 arg-3)) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (let ((e-9 (vector-ref sc1 4))) (LibrariesC-45DataC-45PosMap-deep arg-1 e-2 (LibrariesC-45DataC-45PosMap-addDigits0 arg-1 e-3 e-4 e-7 e-8) e-9))))))))))))))))))))))) -(define LibrariesC-45DataC-45PosMap-addDigits4 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 arg-8)) (case (vector-ref sc1 0) ((0) (let ((e-15 (vector-ref sc1 1))) (LibrariesC-45DataC-45PosMap-appendTree2 (lambda (arg-1445) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-1445)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-1 arg-4 arg-5) (LibrariesC-45DataC-45PosMap-node3 arg-1 arg-6 arg-7 e-15) arg-9))) ((1) (let ((e-17 (vector-ref sc1 1))) (let ((e-18 (vector-ref sc1 2))) (LibrariesC-45DataC-45PosMap-appendTree3 (lambda (arg-1445) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-1445)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-1 arg-4 arg-5) (LibrariesC-45DataC-45PosMap-node2 arg-1 arg-6 arg-7) (LibrariesC-45DataC-45PosMap-node2 arg-1 e-17 e-18) arg-9)))) ((2) (let ((e-20 (vector-ref sc1 1))) (let ((e-21 (vector-ref sc1 2))) (let ((e-22 (vector-ref sc1 3))) (LibrariesC-45DataC-45PosMap-appendTree3 (lambda (arg-1445) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-1445)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-1 arg-4 arg-5) (LibrariesC-45DataC-45PosMap-node3 arg-1 arg-6 arg-7 e-20) (LibrariesC-45DataC-45PosMap-node2 arg-1 e-21 e-22) arg-9))))) (else (let ((e-24 (vector-ref sc1 1))) (let ((e-25 (vector-ref sc1 2))) (let ((e-26 (vector-ref sc1 3))) (let ((e-27 (vector-ref sc1 4))) (LibrariesC-45DataC-45PosMap-appendTree3 (lambda (arg-1445) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-1445)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-1 arg-4 arg-5) (LibrariesC-45DataC-45PosMap-node3 arg-1 arg-6 arg-7 e-24) (LibrariesC-45DataC-45PosMap-node3 arg-1 e-25 e-26 e-27) arg-9)))))))))) ((1) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((sc1 arg-8)) (case (vector-ref sc1 0) ((0) (let ((e-29 (vector-ref sc1 1))) (LibrariesC-45DataC-45PosMap-appendTree3 (lambda (arg-1445) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-1445)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-3 e-4 arg-4) (LibrariesC-45DataC-45PosMap-node2 arg-1 arg-5 arg-6) (LibrariesC-45DataC-45PosMap-node2 arg-1 arg-7 e-29) arg-9))) ((1) (let ((e-31 (vector-ref sc1 1))) (let ((e-32 (vector-ref sc1 2))) (LibrariesC-45DataC-45PosMap-appendTree3 (lambda (arg-1445) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-1445)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-3 e-4 arg-4) (LibrariesC-45DataC-45PosMap-node3 arg-1 arg-5 arg-6 arg-7) (LibrariesC-45DataC-45PosMap-node2 arg-1 e-31 e-32) arg-9)))) ((2) (let ((e-34 (vector-ref sc1 1))) (let ((e-35 (vector-ref sc1 2))) (let ((e-36 (vector-ref sc1 3))) (LibrariesC-45DataC-45PosMap-appendTree3 (lambda (arg-1445) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-1445)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-3 e-4 arg-4) (LibrariesC-45DataC-45PosMap-node3 arg-1 arg-5 arg-6 arg-7) (LibrariesC-45DataC-45PosMap-node3 arg-1 e-34 e-35 e-36) arg-9))))) (else (let ((e-38 (vector-ref sc1 1))) (let ((e-39 (vector-ref sc1 2))) (let ((e-40 (vector-ref sc1 3))) (let ((e-41 (vector-ref sc1 4))) (LibrariesC-45DataC-45PosMap-appendTree4 (lambda (arg-1445) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-1445)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-3 e-4 arg-4) (LibrariesC-45DataC-45PosMap-node3 arg-1 arg-5 arg-6 arg-7) (LibrariesC-45DataC-45PosMap-node2 arg-1 e-38 e-39) (LibrariesC-45DataC-45PosMap-node2 arg-1 e-40 e-41) arg-9))))))))))) ((2) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (let ((sc1 arg-8)) (case (vector-ref sc1 0) ((0) (let ((e-43 (vector-ref sc1 1))) (LibrariesC-45DataC-45PosMap-appendTree3 (lambda (arg-1445) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-1445)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-6 e-7 e-8) (LibrariesC-45DataC-45PosMap-node3 arg-1 arg-4 arg-5 arg-6) (LibrariesC-45DataC-45PosMap-node2 arg-1 arg-7 e-43) arg-9))) ((1) (let ((e-45 (vector-ref sc1 1))) (let ((e-46 (vector-ref sc1 2))) (LibrariesC-45DataC-45PosMap-appendTree3 (lambda (arg-1445) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-1445)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-6 e-7 e-8) (LibrariesC-45DataC-45PosMap-node3 arg-1 arg-4 arg-5 arg-6) (LibrariesC-45DataC-45PosMap-node3 arg-1 arg-7 e-45 e-46) arg-9)))) ((2) (let ((e-48 (vector-ref sc1 1))) (let ((e-49 (vector-ref sc1 2))) (let ((e-50 (vector-ref sc1 3))) (LibrariesC-45DataC-45PosMap-appendTree4 (lambda (arg-1445) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-1445)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-6 e-7 e-8) (LibrariesC-45DataC-45PosMap-node3 arg-1 arg-4 arg-5 arg-6) (LibrariesC-45DataC-45PosMap-node2 arg-1 arg-7 e-48) (LibrariesC-45DataC-45PosMap-node2 arg-1 e-49 e-50) arg-9))))) (else (let ((e-52 (vector-ref sc1 1))) (let ((e-53 (vector-ref sc1 2))) (let ((e-54 (vector-ref sc1 3))) (let ((e-55 (vector-ref sc1 4))) (LibrariesC-45DataC-45PosMap-appendTree4 (lambda (arg-1445) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-1445)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-6 e-7 e-8) (LibrariesC-45DataC-45PosMap-node3 arg-1 arg-4 arg-5 arg-6) (LibrariesC-45DataC-45PosMap-node3 arg-1 arg-7 e-52 e-53) (LibrariesC-45DataC-45PosMap-node2 arg-1 e-54 e-55) arg-9)))))))))))) (else (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (let ((e-13 (vector-ref sc0 4))) (let ((sc1 arg-8)) (case (vector-ref sc1 0) ((0) (let ((e-57 (vector-ref sc1 1))) (LibrariesC-45DataC-45PosMap-appendTree3 (lambda (arg-1445) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-1445)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-10 e-11 e-12) (LibrariesC-45DataC-45PosMap-node3 arg-1 e-13 arg-4 arg-5) (LibrariesC-45DataC-45PosMap-node3 arg-1 arg-6 arg-7 e-57) arg-9))) ((1) (let ((e-59 (vector-ref sc1 1))) (let ((e-60 (vector-ref sc1 2))) (LibrariesC-45DataC-45PosMap-appendTree4 (lambda (arg-1445) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-1445)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-10 e-11 e-12) (LibrariesC-45DataC-45PosMap-node3 arg-1 e-13 arg-4 arg-5) (LibrariesC-45DataC-45PosMap-node2 arg-1 arg-6 arg-7) (LibrariesC-45DataC-45PosMap-node2 arg-1 e-59 e-60) arg-9)))) ((2) (let ((e-62 (vector-ref sc1 1))) (let ((e-63 (vector-ref sc1 2))) (let ((e-64 (vector-ref sc1 3))) (LibrariesC-45DataC-45PosMap-appendTree4 (lambda (arg-1445) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-1445)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-10 e-11 e-12) (LibrariesC-45DataC-45PosMap-node3 arg-1 e-13 arg-4 arg-5) (LibrariesC-45DataC-45PosMap-node3 arg-1 arg-6 arg-7 e-62) (LibrariesC-45DataC-45PosMap-node2 arg-1 e-63 e-64) arg-9))))) (else (let ((e-66 (vector-ref sc1 1))) (let ((e-67 (vector-ref sc1 2))) (let ((e-68 (vector-ref sc1 3))) (let ((e-69 (vector-ref sc1 4))) (LibrariesC-45DataC-45PosMap-appendTree4 (lambda (arg-1445) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-1445)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-10 e-11 e-12) (LibrariesC-45DataC-45PosMap-node3 arg-1 e-13 arg-4 arg-5) (LibrariesC-45DataC-45PosMap-node3 arg-1 arg-6 arg-7 e-66) (LibrariesC-45DataC-45PosMap-node3 arg-1 e-67 e-68 e-69) arg-9))))))))))))))))) -(define LibrariesC-45DataC-45PosMap-addDigits3 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((0) (let ((e-15 (vector-ref sc1 1))) (LibrariesC-45DataC-45PosMap-appendTree2 (lambda (arg-1445) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-1445)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-1 arg-4 arg-5) (LibrariesC-45DataC-45PosMap-node2 arg-1 arg-6 e-15) arg-8))) ((1) (let ((e-17 (vector-ref sc1 1))) (let ((e-18 (vector-ref sc1 2))) (LibrariesC-45DataC-45PosMap-appendTree2 (lambda (arg-1445) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-1445)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-1 arg-4 arg-5) (LibrariesC-45DataC-45PosMap-node3 arg-1 arg-6 e-17 e-18) arg-8)))) ((2) (let ((e-20 (vector-ref sc1 1))) (let ((e-21 (vector-ref sc1 2))) (let ((e-22 (vector-ref sc1 3))) (LibrariesC-45DataC-45PosMap-appendTree3 (lambda (arg-1445) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-1445)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-1 arg-4 arg-5) (LibrariesC-45DataC-45PosMap-node2 arg-1 arg-6 e-20) (LibrariesC-45DataC-45PosMap-node2 arg-1 e-21 e-22) arg-8))))) (else (let ((e-24 (vector-ref sc1 1))) (let ((e-25 (vector-ref sc1 2))) (let ((e-26 (vector-ref sc1 3))) (let ((e-27 (vector-ref sc1 4))) (LibrariesC-45DataC-45PosMap-appendTree3 (lambda (arg-1445) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-1445)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-1 arg-4 arg-5) (LibrariesC-45DataC-45PosMap-node3 arg-1 arg-6 e-24 e-25) (LibrariesC-45DataC-45PosMap-node2 arg-1 e-26 e-27) arg-8)))))))))) ((1) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((0) (let ((e-29 (vector-ref sc1 1))) (LibrariesC-45DataC-45PosMap-appendTree2 (lambda (arg-1445) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-1445)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-3 e-4 arg-4) (LibrariesC-45DataC-45PosMap-node3 arg-1 arg-5 arg-6 e-29) arg-8))) ((1) (let ((e-31 (vector-ref sc1 1))) (let ((e-32 (vector-ref sc1 2))) (LibrariesC-45DataC-45PosMap-appendTree3 (lambda (arg-1445) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-1445)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-3 e-4 arg-4) (LibrariesC-45DataC-45PosMap-node2 arg-1 arg-5 arg-6) (LibrariesC-45DataC-45PosMap-node2 arg-1 e-31 e-32) arg-8)))) ((2) (let ((e-34 (vector-ref sc1 1))) (let ((e-35 (vector-ref sc1 2))) (let ((e-36 (vector-ref sc1 3))) (LibrariesC-45DataC-45PosMap-appendTree3 (lambda (arg-1445) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-1445)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-3 e-4 arg-4) (LibrariesC-45DataC-45PosMap-node3 arg-1 arg-5 arg-6 e-34) (LibrariesC-45DataC-45PosMap-node2 arg-1 e-35 e-36) arg-8))))) (else (let ((e-38 (vector-ref sc1 1))) (let ((e-39 (vector-ref sc1 2))) (let ((e-40 (vector-ref sc1 3))) (let ((e-41 (vector-ref sc1 4))) (LibrariesC-45DataC-45PosMap-appendTree3 (lambda (arg-1445) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-1445)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-3 e-4 arg-4) (LibrariesC-45DataC-45PosMap-node3 arg-1 arg-5 arg-6 e-38) (LibrariesC-45DataC-45PosMap-node3 arg-1 e-39 e-40 e-41) arg-8))))))))))) ((2) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((0) (let ((e-43 (vector-ref sc1 1))) (LibrariesC-45DataC-45PosMap-appendTree3 (lambda (arg-1445) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-1445)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-6 e-7 e-8) (LibrariesC-45DataC-45PosMap-node2 arg-1 arg-4 arg-5) (LibrariesC-45DataC-45PosMap-node2 arg-1 arg-6 e-43) arg-8))) ((1) (let ((e-45 (vector-ref sc1 1))) (let ((e-46 (vector-ref sc1 2))) (LibrariesC-45DataC-45PosMap-appendTree3 (lambda (arg-1445) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-1445)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-6 e-7 e-8) (LibrariesC-45DataC-45PosMap-node3 arg-1 arg-4 arg-5 arg-6) (LibrariesC-45DataC-45PosMap-node2 arg-1 e-45 e-46) arg-8)))) ((2) (let ((e-48 (vector-ref sc1 1))) (let ((e-49 (vector-ref sc1 2))) (let ((e-50 (vector-ref sc1 3))) (LibrariesC-45DataC-45PosMap-appendTree3 (lambda (arg-1445) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-1445)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-6 e-7 e-8) (LibrariesC-45DataC-45PosMap-node3 arg-1 arg-4 arg-5 arg-6) (LibrariesC-45DataC-45PosMap-node3 arg-1 e-48 e-49 e-50) arg-8))))) (else (let ((e-52 (vector-ref sc1 1))) (let ((e-53 (vector-ref sc1 2))) (let ((e-54 (vector-ref sc1 3))) (let ((e-55 (vector-ref sc1 4))) (LibrariesC-45DataC-45PosMap-appendTree4 (lambda (arg-1445) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-1445)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-6 e-7 e-8) (LibrariesC-45DataC-45PosMap-node3 arg-1 arg-4 arg-5 arg-6) (LibrariesC-45DataC-45PosMap-node2 arg-1 e-52 e-53) (LibrariesC-45DataC-45PosMap-node2 arg-1 e-54 e-55) arg-8)))))))))))) (else (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (let ((e-13 (vector-ref sc0 4))) (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((0) (let ((e-57 (vector-ref sc1 1))) (LibrariesC-45DataC-45PosMap-appendTree3 (lambda (arg-1445) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-1445)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-10 e-11 e-12) (LibrariesC-45DataC-45PosMap-node3 arg-1 e-13 arg-4 arg-5) (LibrariesC-45DataC-45PosMap-node2 arg-1 arg-6 e-57) arg-8))) ((1) (let ((e-59 (vector-ref sc1 1))) (let ((e-60 (vector-ref sc1 2))) (LibrariesC-45DataC-45PosMap-appendTree3 (lambda (arg-1445) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-1445)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-10 e-11 e-12) (LibrariesC-45DataC-45PosMap-node3 arg-1 e-13 arg-4 arg-5) (LibrariesC-45DataC-45PosMap-node3 arg-1 arg-6 e-59 e-60) arg-8)))) ((2) (let ((e-62 (vector-ref sc1 1))) (let ((e-63 (vector-ref sc1 2))) (let ((e-64 (vector-ref sc1 3))) (LibrariesC-45DataC-45PosMap-appendTree4 (lambda (arg-1445) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-1445)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-10 e-11 e-12) (LibrariesC-45DataC-45PosMap-node3 arg-1 e-13 arg-4 arg-5) (LibrariesC-45DataC-45PosMap-node2 arg-1 arg-6 e-62) (LibrariesC-45DataC-45PosMap-node2 arg-1 e-63 e-64) arg-8))))) (else (let ((e-66 (vector-ref sc1 1))) (let ((e-67 (vector-ref sc1 2))) (let ((e-68 (vector-ref sc1 3))) (let ((e-69 (vector-ref sc1 4))) (LibrariesC-45DataC-45PosMap-appendTree4 (lambda (arg-1445) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-1445)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-10 e-11 e-12) (LibrariesC-45DataC-45PosMap-node3 arg-1 e-13 arg-4 arg-5) (LibrariesC-45DataC-45PosMap-node3 arg-1 arg-6 e-66 e-67) (LibrariesC-45DataC-45PosMap-node2 arg-1 e-68 e-69) arg-8))))))))))))))))) -(define LibrariesC-45DataC-45PosMap-addDigits2 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((0) (let ((e-15 (vector-ref sc1 1))) (LibrariesC-45DataC-45PosMap-appendTree2 (lambda (arg-1445) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-1445)) arg-2 (LibrariesC-45DataC-45PosMap-node2 arg-1 e-1 arg-4) (LibrariesC-45DataC-45PosMap-node2 arg-1 arg-5 e-15) arg-7))) ((1) (let ((e-17 (vector-ref sc1 1))) (let ((e-18 (vector-ref sc1 2))) (LibrariesC-45DataC-45PosMap-appendTree2 (lambda (arg-1445) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-1445)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-1 arg-4 arg-5) (LibrariesC-45DataC-45PosMap-node2 arg-1 e-17 e-18) arg-7)))) ((2) (let ((e-20 (vector-ref sc1 1))) (let ((e-21 (vector-ref sc1 2))) (let ((e-22 (vector-ref sc1 3))) (LibrariesC-45DataC-45PosMap-appendTree2 (lambda (arg-1445) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-1445)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-1 arg-4 arg-5) (LibrariesC-45DataC-45PosMap-node3 arg-1 e-20 e-21 e-22) arg-7))))) (else (let ((e-24 (vector-ref sc1 1))) (let ((e-25 (vector-ref sc1 2))) (let ((e-26 (vector-ref sc1 3))) (let ((e-27 (vector-ref sc1 4))) (LibrariesC-45DataC-45PosMap-appendTree3 (lambda (arg-1445) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-1445)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-1 arg-4 arg-5) (LibrariesC-45DataC-45PosMap-node2 arg-1 e-24 e-25) (LibrariesC-45DataC-45PosMap-node2 arg-1 e-26 e-27) arg-7)))))))))) ((1) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((0) (let ((e-29 (vector-ref sc1 1))) (LibrariesC-45DataC-45PosMap-appendTree2 (lambda (arg-1445) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-1445)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-3 e-4 arg-4) (LibrariesC-45DataC-45PosMap-node2 arg-1 arg-5 e-29) arg-7))) ((1) (let ((e-31 (vector-ref sc1 1))) (let ((e-32 (vector-ref sc1 2))) (LibrariesC-45DataC-45PosMap-appendTree2 (lambda (arg-1445) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-1445)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-3 e-4 arg-4) (LibrariesC-45DataC-45PosMap-node3 arg-1 arg-5 e-31 e-32) arg-7)))) ((2) (let ((e-34 (vector-ref sc1 1))) (let ((e-35 (vector-ref sc1 2))) (let ((e-36 (vector-ref sc1 3))) (LibrariesC-45DataC-45PosMap-appendTree3 (lambda (arg-1445) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-1445)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-3 e-4 arg-4) (LibrariesC-45DataC-45PosMap-node2 arg-1 arg-5 e-34) (LibrariesC-45DataC-45PosMap-node2 arg-1 e-35 e-36) arg-7))))) (else (let ((e-38 (vector-ref sc1 1))) (let ((e-39 (vector-ref sc1 2))) (let ((e-40 (vector-ref sc1 3))) (let ((e-41 (vector-ref sc1 4))) (LibrariesC-45DataC-45PosMap-appendTree3 (lambda (arg-1445) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-1445)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-3 e-4 arg-4) (LibrariesC-45DataC-45PosMap-node3 arg-1 arg-5 e-38 e-39) (LibrariesC-45DataC-45PosMap-node2 arg-1 e-40 e-41) arg-7))))))))))) ((2) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((0) (let ((e-43 (vector-ref sc1 1))) (LibrariesC-45DataC-45PosMap-appendTree2 (lambda (arg-1445) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-1445)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-6 e-7 e-8) (LibrariesC-45DataC-45PosMap-node3 arg-1 arg-4 arg-5 e-43) arg-7))) ((1) (let ((e-45 (vector-ref sc1 1))) (let ((e-46 (vector-ref sc1 2))) (LibrariesC-45DataC-45PosMap-appendTree3 (lambda (arg-1445) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-1445)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-6 e-7 e-8) (LibrariesC-45DataC-45PosMap-node2 arg-1 arg-4 arg-5) (LibrariesC-45DataC-45PosMap-node2 arg-1 e-45 e-46) arg-7)))) ((2) (let ((e-48 (vector-ref sc1 1))) (let ((e-49 (vector-ref sc1 2))) (let ((e-50 (vector-ref sc1 3))) (LibrariesC-45DataC-45PosMap-appendTree3 (lambda (arg-1445) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-1445)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-6 e-7 e-8) (LibrariesC-45DataC-45PosMap-node3 arg-1 arg-4 arg-5 e-48) (LibrariesC-45DataC-45PosMap-node2 arg-1 e-49 e-50) arg-7))))) (else (let ((e-52 (vector-ref sc1 1))) (let ((e-53 (vector-ref sc1 2))) (let ((e-54 (vector-ref sc1 3))) (let ((e-55 (vector-ref sc1 4))) (LibrariesC-45DataC-45PosMap-appendTree3 (lambda (arg-1445) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-1445)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-6 e-7 e-8) (LibrariesC-45DataC-45PosMap-node3 arg-1 arg-4 arg-5 e-52) (LibrariesC-45DataC-45PosMap-node3 arg-1 e-53 e-54 e-55) arg-7)))))))))))) (else (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (let ((e-13 (vector-ref sc0 4))) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((0) (let ((e-57 (vector-ref sc1 1))) (LibrariesC-45DataC-45PosMap-appendTree3 (lambda (arg-1445) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-1445)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-10 e-11 e-12) (LibrariesC-45DataC-45PosMap-node2 arg-1 e-13 arg-4) (LibrariesC-45DataC-45PosMap-node2 arg-1 arg-5 e-57) arg-7))) ((1) (let ((e-59 (vector-ref sc1 1))) (let ((e-60 (vector-ref sc1 2))) (LibrariesC-45DataC-45PosMap-appendTree3 (lambda (arg-1445) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-1445)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-10 e-11 e-12) (LibrariesC-45DataC-45PosMap-node3 arg-1 e-13 arg-4 arg-5) (LibrariesC-45DataC-45PosMap-node2 arg-1 e-59 e-60) arg-7)))) ((2) (let ((e-62 (vector-ref sc1 1))) (let ((e-63 (vector-ref sc1 2))) (let ((e-64 (vector-ref sc1 3))) (LibrariesC-45DataC-45PosMap-appendTree3 (lambda (arg-1445) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-1445)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-10 e-11 e-12) (LibrariesC-45DataC-45PosMap-node3 arg-1 e-13 arg-4 arg-5) (LibrariesC-45DataC-45PosMap-node3 arg-1 e-62 e-63 e-64) arg-7))))) (else (let ((e-66 (vector-ref sc1 1))) (let ((e-67 (vector-ref sc1 2))) (let ((e-68 (vector-ref sc1 3))) (let ((e-69 (vector-ref sc1 4))) (LibrariesC-45DataC-45PosMap-appendTree4 (lambda (arg-1445) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-1445)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-10 e-11 e-12) (LibrariesC-45DataC-45PosMap-node3 arg-1 e-13 arg-4 arg-5) (LibrariesC-45DataC-45PosMap-node2 arg-1 e-66 e-67) (LibrariesC-45DataC-45PosMap-node2 arg-1 e-68 e-69) arg-7))))))))))))))))) -(define LibrariesC-45DataC-45PosMap-addDigits1 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((0) (let ((e-15 (vector-ref sc1 1))) (LibrariesC-45DataC-45PosMap-appendTree1 (lambda (arg-1445) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-1445)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-1 arg-4 e-15) arg-6))) ((1) (let ((e-17 (vector-ref sc1 1))) (let ((e-18 (vector-ref sc1 2))) (LibrariesC-45DataC-45PosMap-appendTree2 (lambda (arg-1445) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-1445)) arg-2 (LibrariesC-45DataC-45PosMap-node2 arg-1 e-1 arg-4) (LibrariesC-45DataC-45PosMap-node2 arg-1 e-17 e-18) arg-6)))) ((2) (let ((e-20 (vector-ref sc1 1))) (let ((e-21 (vector-ref sc1 2))) (let ((e-22 (vector-ref sc1 3))) (LibrariesC-45DataC-45PosMap-appendTree2 (lambda (arg-1445) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-1445)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-1 arg-4 e-20) (LibrariesC-45DataC-45PosMap-node2 arg-1 e-21 e-22) arg-6))))) (else (let ((e-24 (vector-ref sc1 1))) (let ((e-25 (vector-ref sc1 2))) (let ((e-26 (vector-ref sc1 3))) (let ((e-27 (vector-ref sc1 4))) (LibrariesC-45DataC-45PosMap-appendTree2 (lambda (arg-1445) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-1445)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-1 arg-4 e-24) (LibrariesC-45DataC-45PosMap-node3 arg-1 e-25 e-26 e-27) arg-6)))))))))) ((1) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((0) (let ((e-29 (vector-ref sc1 1))) (LibrariesC-45DataC-45PosMap-appendTree2 (lambda (arg-1445) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-1445)) arg-2 (LibrariesC-45DataC-45PosMap-node2 arg-1 e-3 e-4) (LibrariesC-45DataC-45PosMap-node2 arg-1 arg-4 e-29) arg-6))) ((1) (let ((e-31 (vector-ref sc1 1))) (let ((e-32 (vector-ref sc1 2))) (LibrariesC-45DataC-45PosMap-appendTree2 (lambda (arg-1445) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-1445)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-3 e-4 arg-4) (LibrariesC-45DataC-45PosMap-node2 arg-1 e-31 e-32) arg-6)))) ((2) (let ((e-34 (vector-ref sc1 1))) (let ((e-35 (vector-ref sc1 2))) (let ((e-36 (vector-ref sc1 3))) (LibrariesC-45DataC-45PosMap-appendTree2 (lambda (arg-1445) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-1445)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-3 e-4 arg-4) (LibrariesC-45DataC-45PosMap-node3 arg-1 e-34 e-35 e-36) arg-6))))) (else (let ((e-38 (vector-ref sc1 1))) (let ((e-39 (vector-ref sc1 2))) (let ((e-40 (vector-ref sc1 3))) (let ((e-41 (vector-ref sc1 4))) (LibrariesC-45DataC-45PosMap-appendTree3 (lambda (arg-1445) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-1445)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-3 e-4 arg-4) (LibrariesC-45DataC-45PosMap-node2 arg-1 e-38 e-39) (LibrariesC-45DataC-45PosMap-node2 arg-1 e-40 e-41) arg-6))))))))))) ((2) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((0) (let ((e-43 (vector-ref sc1 1))) (LibrariesC-45DataC-45PosMap-appendTree2 (lambda (arg-1445) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-1445)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-6 e-7 e-8) (LibrariesC-45DataC-45PosMap-node2 arg-1 arg-4 e-43) arg-6))) ((1) (let ((e-45 (vector-ref sc1 1))) (let ((e-46 (vector-ref sc1 2))) (LibrariesC-45DataC-45PosMap-appendTree2 (lambda (arg-1445) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-1445)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-6 e-7 e-8) (LibrariesC-45DataC-45PosMap-node3 arg-1 arg-4 e-45 e-46) arg-6)))) ((2) (let ((e-48 (vector-ref sc1 1))) (let ((e-49 (vector-ref sc1 2))) (let ((e-50 (vector-ref sc1 3))) (LibrariesC-45DataC-45PosMap-appendTree3 (lambda (arg-1445) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-1445)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-6 e-7 e-8) (LibrariesC-45DataC-45PosMap-node2 arg-1 arg-4 e-48) (LibrariesC-45DataC-45PosMap-node2 arg-1 e-49 e-50) arg-6))))) (else (let ((e-52 (vector-ref sc1 1))) (let ((e-53 (vector-ref sc1 2))) (let ((e-54 (vector-ref sc1 3))) (let ((e-55 (vector-ref sc1 4))) (LibrariesC-45DataC-45PosMap-appendTree3 (lambda (arg-1445) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-1445)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-6 e-7 e-8) (LibrariesC-45DataC-45PosMap-node3 arg-1 arg-4 e-52 e-53) (LibrariesC-45DataC-45PosMap-node2 arg-1 e-54 e-55) arg-6)))))))))))) (else (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (let ((e-13 (vector-ref sc0 4))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((0) (let ((e-57 (vector-ref sc1 1))) (LibrariesC-45DataC-45PosMap-appendTree2 (lambda (arg-1445) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-1445)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-10 e-11 e-12) (LibrariesC-45DataC-45PosMap-node3 arg-1 e-13 arg-4 e-57) arg-6))) ((1) (let ((e-59 (vector-ref sc1 1))) (let ((e-60 (vector-ref sc1 2))) (LibrariesC-45DataC-45PosMap-appendTree3 (lambda (arg-1445) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-1445)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-10 e-11 e-12) (LibrariesC-45DataC-45PosMap-node2 arg-1 e-13 arg-4) (LibrariesC-45DataC-45PosMap-node2 arg-1 e-59 e-60) arg-6)))) ((2) (let ((e-62 (vector-ref sc1 1))) (let ((e-63 (vector-ref sc1 2))) (let ((e-64 (vector-ref sc1 3))) (LibrariesC-45DataC-45PosMap-appendTree3 (lambda (arg-1445) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-1445)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-10 e-11 e-12) (LibrariesC-45DataC-45PosMap-node3 arg-1 e-13 arg-4 e-62) (LibrariesC-45DataC-45PosMap-node2 arg-1 e-63 e-64) arg-6))))) (else (let ((e-66 (vector-ref sc1 1))) (let ((e-67 (vector-ref sc1 2))) (let ((e-68 (vector-ref sc1 3))) (let ((e-69 (vector-ref sc1 4))) (LibrariesC-45DataC-45PosMap-appendTree3 (lambda (arg-1445) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-1445)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-10 e-11 e-12) (LibrariesC-45DataC-45PosMap-node3 arg-1 e-13 arg-4 e-66) (LibrariesC-45DataC-45PosMap-node3 arg-1 e-67 e-68 e-69) arg-6))))))))))))))))) -(define LibrariesC-45DataC-45PosMap-addDigits0 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) (let ((e-15 (vector-ref sc1 1))) (LibrariesC-45DataC-45PosMap-appendTree1 (lambda (arg-1445) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-1445)) arg-2 (LibrariesC-45DataC-45PosMap-node2 arg-1 e-1 e-15) arg-5))) ((1) (let ((e-17 (vector-ref sc1 1))) (let ((e-18 (vector-ref sc1 2))) (LibrariesC-45DataC-45PosMap-appendTree1 (lambda (arg-1445) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-1445)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-1 e-17 e-18) arg-5)))) ((2) (let ((e-20 (vector-ref sc1 1))) (let ((e-21 (vector-ref sc1 2))) (let ((e-22 (vector-ref sc1 3))) (LibrariesC-45DataC-45PosMap-appendTree2 (lambda (arg-1445) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-1445)) arg-2 (LibrariesC-45DataC-45PosMap-node2 arg-1 e-1 e-20) (LibrariesC-45DataC-45PosMap-node2 arg-1 e-21 e-22) arg-5))))) (else (let ((e-24 (vector-ref sc1 1))) (let ((e-25 (vector-ref sc1 2))) (let ((e-26 (vector-ref sc1 3))) (let ((e-27 (vector-ref sc1 4))) (LibrariesC-45DataC-45PosMap-appendTree2 (lambda (arg-1445) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-1445)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-1 e-24 e-25) (LibrariesC-45DataC-45PosMap-node2 arg-1 e-26 e-27) arg-5)))))))))) ((1) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) (let ((e-29 (vector-ref sc1 1))) (LibrariesC-45DataC-45PosMap-appendTree1 (lambda (arg-1445) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-1445)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-3 e-4 e-29) arg-5))) ((1) (let ((e-31 (vector-ref sc1 1))) (let ((e-32 (vector-ref sc1 2))) (LibrariesC-45DataC-45PosMap-appendTree2 (lambda (arg-1445) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-1445)) arg-2 (LibrariesC-45DataC-45PosMap-node2 arg-1 e-3 e-4) (LibrariesC-45DataC-45PosMap-node2 arg-1 e-31 e-32) arg-5)))) ((2) (let ((e-34 (vector-ref sc1 1))) (let ((e-35 (vector-ref sc1 2))) (let ((e-36 (vector-ref sc1 3))) (LibrariesC-45DataC-45PosMap-appendTree2 (lambda (arg-1445) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-1445)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-3 e-4 e-34) (LibrariesC-45DataC-45PosMap-node2 arg-1 e-35 e-36) arg-5))))) (else (let ((e-38 (vector-ref sc1 1))) (let ((e-39 (vector-ref sc1 2))) (let ((e-40 (vector-ref sc1 3))) (let ((e-41 (vector-ref sc1 4))) (LibrariesC-45DataC-45PosMap-appendTree2 (lambda (arg-1445) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-1445)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-3 e-4 e-38) (LibrariesC-45DataC-45PosMap-node3 arg-1 e-39 e-40 e-41) arg-5))))))))))) ((2) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) (let ((e-43 (vector-ref sc1 1))) (LibrariesC-45DataC-45PosMap-appendTree2 (lambda (arg-1445) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-1445)) arg-2 (LibrariesC-45DataC-45PosMap-node2 arg-1 e-6 e-7) (LibrariesC-45DataC-45PosMap-node2 arg-1 e-8 e-43) arg-5))) ((1) (let ((e-45 (vector-ref sc1 1))) (let ((e-46 (vector-ref sc1 2))) (LibrariesC-45DataC-45PosMap-appendTree2 (lambda (arg-1445) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-1445)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-6 e-7 e-8) (LibrariesC-45DataC-45PosMap-node2 arg-1 e-45 e-46) arg-5)))) ((2) (let ((e-48 (vector-ref sc1 1))) (let ((e-49 (vector-ref sc1 2))) (let ((e-50 (vector-ref sc1 3))) (LibrariesC-45DataC-45PosMap-appendTree2 (lambda (arg-1445) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-1445)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-6 e-7 e-8) (LibrariesC-45DataC-45PosMap-node3 arg-1 e-48 e-49 e-50) arg-5))))) (else (let ((e-52 (vector-ref sc1 1))) (let ((e-53 (vector-ref sc1 2))) (let ((e-54 (vector-ref sc1 3))) (let ((e-55 (vector-ref sc1 4))) (LibrariesC-45DataC-45PosMap-appendTree3 (lambda (arg-1445) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-1445)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-6 e-7 e-8) (LibrariesC-45DataC-45PosMap-node2 arg-1 e-52 e-53) (LibrariesC-45DataC-45PosMap-node2 arg-1 e-54 e-55) arg-5)))))))))))) (else (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (let ((e-13 (vector-ref sc0 4))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) (let ((e-57 (vector-ref sc1 1))) (LibrariesC-45DataC-45PosMap-appendTree2 (lambda (arg-1445) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-1445)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-10 e-11 e-12) (LibrariesC-45DataC-45PosMap-node2 arg-1 e-13 e-57) arg-5))) ((1) (let ((e-59 (vector-ref sc1 1))) (let ((e-60 (vector-ref sc1 2))) (LibrariesC-45DataC-45PosMap-appendTree2 (lambda (arg-1445) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-1445)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-10 e-11 e-12) (LibrariesC-45DataC-45PosMap-node3 arg-1 e-13 e-59 e-60) arg-5)))) ((2) (let ((e-62 (vector-ref sc1 1))) (let ((e-63 (vector-ref sc1 2))) (let ((e-64 (vector-ref sc1 3))) (LibrariesC-45DataC-45PosMap-appendTree3 (lambda (arg-1445) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-1445)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-10 e-11 e-12) (LibrariesC-45DataC-45PosMap-node2 arg-1 e-13 e-62) (LibrariesC-45DataC-45PosMap-node2 arg-1 e-63 e-64) arg-5))))) (else (let ((e-66 (vector-ref sc1 1))) (let ((e-67 (vector-ref sc1 2))) (let ((e-68 (vector-ref sc1 3))) (let ((e-69 (vector-ref sc1 4))) (LibrariesC-45DataC-45PosMap-appendTree3 (lambda (arg-1445) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-1445)) arg-2 (LibrariesC-45DataC-45PosMap-node3 arg-1 e-10 e-11 e-12) (LibrariesC-45DataC-45PosMap-node3 arg-1 e-13 e-66 e-67) (LibrariesC-45DataC-45PosMap-node2 arg-1 e-68 e-69) arg-5))))))))))))))))) -(define LibrariesC-45DataC-45PosMap-C-60C-124 (lambda (arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 1 arg-2)) ((1) (let ((e-2 (vector-ref sc0 1))) (LibrariesC-45DataC-45PosMap-deep arg-1 (vector 0 arg-2) (vector 0 ) (vector 0 e-2)))) (else (let ((e-5 (vector-ref sc0 2))) (let ((e-6 (vector-ref sc0 3))) (let ((e-7 (vector-ref sc0 4))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((0) (let ((e-9 (vector-ref sc1 1))) (LibrariesC-45DataC-45PosMap-deep arg-1 (vector 1 arg-2 e-9) e-6 e-7))) ((1) (let ((e-11 (vector-ref sc1 1))) (let ((e-12 (vector-ref sc1 2))) (LibrariesC-45DataC-45PosMap-deep arg-1 (vector 2 arg-2 e-11 e-12) e-6 e-7)))) ((2) (let ((e-14 (vector-ref sc1 1))) (let ((e-15 (vector-ref sc1 2))) (let ((e-16 (vector-ref sc1 3))) (LibrariesC-45DataC-45PosMap-deep arg-1 (vector 3 arg-2 e-14 e-15 e-16) e-6 e-7))))) (else (let ((e-18 (vector-ref sc1 1))) (let ((e-19 (vector-ref sc1 2))) (let ((e-20 (vector-ref sc1 3))) (let ((e-21 (vector-ref sc1 4))) (LibrariesC-45DataC-45PosMap-deep arg-1 (vector 1 arg-2 e-18) (LibrariesC-45DataC-45PosMap-C-60C-124 (lambda (arg-1445) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-40NodeC-32C-36aC-41 arg-1445)) (LibrariesC-45DataC-45PosMap-node3 arg-1 e-19 e-20 e-21) e-6) e-7)))))))))))))))) -(define LibrariesC-45DataC-45PosMap-C-43C-43 (lambda (arg-1 arg-2 arg-3) (LibrariesC-45DataC-45PosMap-appendTree0 arg-1 arg-2 arg-3))) -(define DataC-45Buffer-case--caseC-32blockC-32inC-32resizeBuffer-1839 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) arg-2) (else arg-6))))) -(define DataC-45Buffer-case--writeBufferData-1335 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (let ((sc1 arg-1)) (let ((e-1 (car sc1))) (let ((sc2 e-1)) (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (let ((e-7 (vector-ref sc3 2))) ((e-7 'erased) (vector 1 (vector 0 )))))))))) (else (let ((sc1 arg-1)) (let ((e-1 (car sc1))) (let ((sc2 e-1)) (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (let ((e-7 (vector-ref sc3 2))) ((e-7 'erased) (vector 0 (vector 2 )))))))))))))) -(define DataC-45Buffer-case--readBufferData-1252 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (let ((sc1 arg-1)) (let ((e-1 (car sc1))) (let ((sc2 e-1)) (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (let ((e-7 (vector-ref sc3 2))) ((e-7 'erased) (vector 1 (vector 0 )))))))))) (else (let ((sc1 arg-1)) (let ((e-1 (car sc1))) (let ((sc2 e-1)) (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (let ((e-7 (vector-ref sc3 2))) ((e-7 'erased) (vector 0 (vector 1 )))))))))))))) -(define DataC-45Buffer-writeBufferToFile (lambda (arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-1)) (let ((e-1 (car sc0))) (let ((sc1 e-1)) (let ((e-4 (vector-ref sc1 2))) ((((e-4 'erased) 'erased) (SystemC-45File-openFile arg-1 arg-2 (vector 1 ))) (lambda (_-0) (let ((sc2 _-0)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 1))) (let ((sc3 arg-1)) (let ((e-8 (car sc3))) (let ((sc4 e-8)) (let ((e-10 (vector-ref sc4 2))) ((((e-10 'erased) 'erased) (DataC-45Buffer-writeBufferData arg-1 e-6 arg-3 0 arg-4)) (lambda (_-1) (let ((sc5 _-1)) (case (vector-ref sc5 0) ((1) (let ((e-12 (vector-ref sc5 1))) (PreludeC-45Interfaces-C-62C-62 (let ((sc6 arg-1)) (let ((e-14 (car sc6))) e-14)) (SystemC-45File-closeFile arg-1 e-6) (lambda () (let ((sc6 arg-1)) (let ((e-14 (car sc6))) (let ((sc7 e-14)) (let ((e-17 (vector-ref sc7 1))) (let ((sc8 e-17)) (let ((e-19 (vector-ref sc8 2))) ((e-19 'erased) (vector 1 e-12)))))))))))) (else (let ((e-12 (vector-ref sc5 1))) (let ((sc6 arg-1)) (let ((e-14 (car sc6))) (let ((sc7 e-14)) (let ((e-17 (vector-ref sc7 1))) (let ((sc8 e-17)) (let ((e-19 (vector-ref sc8 2))) ((e-19 'erased) (vector 0 e-12)))))))))))))))))))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 arg-1)) (let ((e-8 (car sc3))) (let ((sc4 e-8)) (let ((e-11 (vector-ref sc4 1))) (let ((sc5 e-11)) (let ((e-13 (vector-ref sc5 2))) ((e-13 'erased) (vector 0 e-6)))))))))))))))))))) -(define DataC-45Buffer-writeBufferData (lambda (arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-1)) (let ((e-1 (car sc0))) (let ((sc1 e-1)) (let ((e-4 (vector-ref sc1 2))) ((((e-4 'erased) 'erased) (let ((sc2 arg-1)) (let ((e-6 (cdr sc2))) ((e-6 'erased) (lambda (eta-0) (DataC-45Buffer-prim__writeBufferData arg-2 arg-3 arg-4 arg-5 eta-0)))))) (lambda (u--written) (DataC-45Buffer-case--writeBufferData-1335 arg-1 arg-2 arg-5 arg-4 arg-3 u--written (PreludeC-45EqOrd-u--C-62C-61_Ord_Int u--written (blodwen-toSignedInt 0 63))))))))))) -(define DataC-45Buffer-setString (lambda (arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-1)) (let ((e-2 (cdr sc0))) ((e-2 'erased) (lambda (eta-0) (DataC-45Buffer-prim__setString arg-2 arg-3 arg-4 eta-0))))))) -(define DataC-45Buffer-setInt (lambda (arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-1)) (let ((e-2 (cdr sc0))) ((e-2 'erased) (lambda (eta-0) (DataC-45Buffer-prim__setInt arg-2 arg-3 arg-4 eta-0))))))) -(define DataC-45Buffer-setDouble (lambda (arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-1)) (let ((e-2 (cdr sc0))) ((e-2 'erased) (lambda (eta-0) (DataC-45Buffer-prim__setDouble arg-2 arg-3 arg-4 eta-0))))))) -(define DataC-45Buffer-setByte (lambda (arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-1)) (let ((e-2 (cdr sc0))) ((e-2 'erased) (lambda (eta-0) (DataC-45Buffer-prim__setByte arg-2 arg-3 arg-4 eta-0))))))) -(define DataC-45Buffer-resizeBuffer (lambda (arg-1 arg-2 arg-3) (let ((sc0 arg-1)) (let ((e-1 (car sc0))) (let ((sc1 e-1)) (let ((e-4 (vector-ref sc1 2))) ((((e-4 'erased) 'erased) (DataC-45Buffer-newBuffer arg-1 arg-3)) (lambda (_-0) (let ((sc2 _-0)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 1))) (let ((sc3 arg-1)) (let ((e-8 (car sc3))) (let ((sc4 e-8)) (let ((e-10 (vector-ref sc4 2))) ((((e-10 'erased) 'erased) (DataC-45Buffer-rawSize arg-1 arg-2)) (lambda (u--oldsize) (let ((u--len (let ((_-1 (vector 1 e-6))) (DataC-45Buffer-case--caseC-32blockC-32inC-32resizeBuffer-1839 arg-1 arg-3 arg-2 e-6 _-1 u--oldsize (PreludeC-45EqOrd-u--C-60_Ord_Int arg-3 u--oldsize))))) (PreludeC-45Interfaces-C-62C-62 (let ((sc5 arg-1)) (let ((e-13 (car sc5))) e-13)) (DataC-45Buffer-copyData arg-1 arg-2 0 u--len e-6 0) (lambda () (PreludeC-45Interfaces-C-62C-62 (let ((sc5 arg-1)) (let ((e-13 (car sc5))) e-13)) (DataC-45Buffer-freeBuffer arg-1 arg-2) (lambda () (let ((sc5 arg-1)) (let ((e-13 (car sc5))) (let ((sc6 e-13)) (let ((e-16 (vector-ref sc6 1))) (let ((sc7 e-16)) (let ((e-18 (vector-ref sc7 2))) ((e-18 'erased) (vector 1 e-6))))))))))))))))))))) (else (let ((sc3 arg-1)) (let ((e-7 (car sc3))) (let ((sc4 e-7)) (let ((e-10 (vector-ref sc4 1))) (let ((sc5 e-10)) (let ((e-12 (vector-ref sc5 2))) ((e-12 'erased) (vector 0 ))))))))))))))))))) -(define DataC-45Buffer-readBufferData (lambda (arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-1)) (let ((e-1 (car sc0))) (let ((sc1 e-1)) (let ((e-4 (vector-ref sc1 2))) ((((e-4 'erased) 'erased) (let ((sc2 arg-1)) (let ((e-6 (cdr sc2))) ((e-6 'erased) (lambda (eta-0) (DataC-45Buffer-prim__readBufferData arg-2 arg-3 arg-4 arg-5 eta-0)))))) (lambda (u--read) (DataC-45Buffer-case--readBufferData-1252 arg-1 arg-2 arg-5 arg-4 arg-3 u--read (PreludeC-45EqOrd-u--C-62C-61_Ord_Int u--read (blodwen-toSignedInt 0 63))))))))))) -(define DataC-45Buffer-rawSize (lambda (arg-1 arg-2) (let ((sc0 arg-1)) (let ((e-1 (car sc0))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-7 (vector-ref sc2 2))) ((e-7 'erased) (DataC-45Buffer-prim__bufferSize arg-2)))))))))) -(define DataC-45Buffer-newBuffer (lambda (arg-1 arg-2) (let ((sc0 arg-1)) (let ((e-1 (car sc0))) (let ((sc1 e-1)) (let ((e-4 (vector-ref sc1 2))) ((((e-4 'erased) 'erased) (let ((sc2 arg-1)) (let ((e-6 (cdr sc2))) ((e-6 'erased) (lambda (eta-0) (DataC-45Buffer-prim__newBuffer arg-2 eta-0)))))) (lambda (u--buf) (let ((sc2 arg-1)) (let ((e-7 (car sc2))) (let ((sc3 e-7)) (let ((e-10 (vector-ref sc3 1))) (let ((sc4 e-10)) (let ((e-12 (vector-ref sc4 2))) ((e-12 'erased) (vector 1 u--buf)))))))))))))))) -(define DataC-45Buffer-getString (lambda (arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-1)) (let ((e-2 (cdr sc0))) ((e-2 'erased) (lambda (eta-0) (DataC-45Buffer-prim__getString arg-2 arg-3 arg-4 eta-0))))))) -(define DataC-45Buffer-getInt (lambda (arg-1 arg-2 arg-3) (let ((sc0 arg-1)) (let ((e-2 (cdr sc0))) ((e-2 'erased) (lambda (eta-0) (DataC-45Buffer-prim__getInt arg-2 arg-3 eta-0))))))) -(define DataC-45Buffer-getDouble (lambda (arg-1 arg-2 arg-3) (let ((sc0 arg-1)) (let ((e-2 (cdr sc0))) ((e-2 'erased) (lambda (eta-0) (DataC-45Buffer-prim__getDouble arg-2 arg-3 eta-0))))))) -(define DataC-45Buffer-getByte (lambda (arg-1 arg-2 arg-3) (let ((sc0 arg-1)) (let ((e-2 (cdr sc0))) ((e-2 'erased) (lambda (eta-0) (DataC-45Buffer-prim__getByte arg-2 arg-3 eta-0))))))) -(define DataC-45Buffer-freeBuffer (lambda (arg-1 arg-2) (let ((sc0 arg-1)) (let ((e-1 (car sc0))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-7 (vector-ref sc2 2))) ((e-7 'erased) (vector 0 )))))))))) -(define DataC-45Buffer-createBufferFromFile (lambda (arg-1 arg-2) (let ((sc0 arg-1)) (let ((e-1 (car sc0))) (let ((sc1 e-1)) (let ((e-4 (vector-ref sc1 2))) ((((e-4 'erased) 'erased) (SystemC-45File-openFile arg-1 arg-2 (vector 0 ))) (lambda (_-0) (let ((sc2 _-0)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 1))) (let ((sc3 arg-1)) (let ((e-8 (car sc3))) (let ((sc4 e-8)) (let ((e-10 (vector-ref sc4 2))) ((((e-10 'erased) 'erased) (SystemC-45File-fileSize arg-1 e-6)) (lambda (_-1) (let ((sc5 _-1)) (case (vector-ref sc5 0) ((1) (let ((e-12 (vector-ref sc5 1))) (let ((sc6 arg-1)) (let ((e-14 (car sc6))) (let ((sc7 e-14)) (let ((e-16 (vector-ref sc7 2))) ((((e-16 'erased) 'erased) (DataC-45Buffer-newBuffer arg-1 e-12)) (lambda (_-2) (let ((sc8 _-2)) (case (vector-ref sc8 0) ((1) (let ((e-18 (vector-ref sc8 1))) (let ((sc9 arg-1)) (let ((e-20 (car sc9))) (let ((sc10 e-20)) (let ((e-22 (vector-ref sc10 2))) ((((e-22 'erased) 'erased) (DataC-45Buffer-readBufferData arg-1 e-6 e-18 0 e-12)) (lambda (_-3) (let ((sc11 _-3)) (case (vector-ref sc11 0) ((1) (PreludeC-45Interfaces-C-62C-62 (let ((sc12 arg-1)) (let ((e-26 (car sc12))) e-26)) (SystemC-45File-closeFile arg-1 e-6) (lambda () (let ((sc12 arg-1)) (let ((e-26 (car sc12))) (let ((sc13 e-26)) (let ((e-29 (vector-ref sc13 1))) (let ((sc14 e-29)) (let ((e-31 (vector-ref sc14 2))) ((e-31 'erased) (vector 1 e-18))))))))))) (else (let ((e-24 (vector-ref sc11 1))) (let ((sc12 arg-1)) (let ((e-26 (car sc12))) (let ((sc13 e-26)) (let ((e-29 (vector-ref sc13 1))) (let ((sc14 e-29)) (let ((e-31 (vector-ref sc14 2))) ((e-31 'erased) (vector 0 e-24)))))))))))))))))))) (else (let ((sc9 arg-1)) (let ((e-19 (car sc9))) (let ((sc10 e-19)) (let ((e-22 (vector-ref sc10 1))) (let ((sc11 e-22)) (let ((e-24 (vector-ref sc11 2))) ((e-24 'erased) (vector 0 (vector 1 )))))))))))))))))))) (else (let ((e-12 (vector-ref sc5 1))) (let ((sc6 arg-1)) (let ((e-14 (car sc6))) (let ((sc7 e-14)) (let ((e-17 (vector-ref sc7 1))) (let ((sc8 e-17)) (let ((e-19 (vector-ref sc8 2))) ((e-19 'erased) (vector 0 e-12)))))))))))))))))))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 arg-1)) (let ((e-8 (car sc3))) (let ((sc4 e-8)) (let ((e-11 (vector-ref sc4 1))) (let ((sc5 e-11)) (let ((e-13 (vector-ref sc5 2))) ((e-13 'erased) (vector 0 e-6)))))))))))))))))))) -(define DataC-45Buffer-copyData (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-1)) (let ((e-2 (cdr sc0))) ((e-2 'erased) (lambda (eta-0) (DataC-45Buffer-prim__copyData arg-2 arg-3 arg-4 arg-5 arg-6 eta-0))))))) -(define CoreC-45OptionsC-45Log-case--keepLogC-44goC-44here-4414 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) 1) (else (let ((e-2 (vector-ref sc0 1))) (PreludeC-45Types-u--C-60C-61_Ord_Nat arg-0 e-2))))))) -(define CoreC-45OptionsC-45Log-n--4300-4408-u--there (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (if (null? sc0) 1 (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (DataC-45Maybe-fromMaybe (lambda () 1) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (DataC-45These-fromThat arg-4) (lambda (u--assoc) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (LibrariesC-45DataC-45StringMap-lookup e-2 u--assoc) (lambda (u--next) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45OptionsC-45Log-n--4286-4402-u--go arg-0 arg-1 arg-2 arg-3 e-3 u--next))))))))))))) -(define CoreC-45OptionsC-45Log-n--4300-4407-u--here (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (CoreC-45OptionsC-45Log-case--keepLogC-44goC-44here-4414 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (DataC-45These-fromThis arg-4)))) -(define CoreC-45OptionsC-45Log-n--4286-4402-u--go (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (PreludeC-45Basics-C-124C-124 (CoreC-45OptionsC-45Log-n--4300-4407-u--here arg-0 arg-1 arg-2 arg-3 arg-5 arg-4) (lambda () (CoreC-45OptionsC-45Log-n--4300-4408-u--there arg-0 arg-1 arg-2 arg-3 arg-5 arg-4))))) -(define CoreC-45OptionsC-45Log-u--show_Show_LogLevel (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (car sc0))) (let ((e-1 (cdr sc0))) (let ((sc1 e-0)) (if (null? sc1) (PreludeC-45Show-u--show_Show_Nat e-1) (PreludeC-45TypesC-45String-C-43C-43 (DataC-45String-fastAppend (DataC-45List-intersperse "." e-0)) (PreludeC-45TypesC-45String-C-43C-43 ":" (PreludeC-45Show-u--show_Show_Nat e-1)))))))))) -(define CoreC-45OptionsC-45Log-u--showPrec_Show_LogLevel (lambda (arg-0 arg-1) (CoreC-45OptionsC-45Log-u--show_Show_LogLevel arg-1))) -(define CoreC-45OptionsC-45Log-u--pretty_Pretty_LogLevel (lambda (ext-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String (CoreC-45OptionsC-45Log-u--show_Show_LogLevel ext-0)))) -(define CoreC-45OptionsC-45Log-withVerbosity (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-0 (car sc0))) (cons e-0 arg-0))))) -(define CoreC-45OptionsC-45Log-verbosity (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (cdr sc0))) e-1)))) -(define CoreC-45OptionsC-45Log-unsafeMkLogLevel (lambda (ext-0 ext-1) (cons ext-0 ext-1))) -(define CoreC-45OptionsC-45Log-topics (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (car sc0))) e-0)))) -(define CoreC-45OptionsC-45Log-parseLogLevel (lambda (arg-0) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (let ((u--nns (DataC-45String-split (lambda (arg-1) (PreludeC-45EqOrd-u--C-61C-61_Eq_Char arg-1 #\:)) arg-0))) (let ((u--n (let ((sc0 u--nns)) (let ((e-1 (car sc0))) e-1)))) (let ((u--ns (let ((sc0 u--nns)) (let ((e-2 (cdr sc0))) e-2)))) (let ((sc0 u--ns)) (if (null? sc0) (PreludeC-45Types-u--pure_Applicative_Maybe (cons (lambda (eta-0) (cons '() eta-0)) u--n)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-3)) (if (null? sc1) (PreludeC-45Types-u--pure_Applicative_Maybe (cons (lambda (eta-0) (CoreC-45OptionsC-45Log-mkLogLevel 0 u--n eta-0)) e-2)) (vector 0 )))))))))) (lambda (_-0) (let ((sc0 _-0)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (DataC-45String-parsePositive (vector 0 (lambda (arg-2) (lambda (arg-3) (+ arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (* arg-4 arg-5))) (lambda (arg-6) arg-6)) e-3) (lambda (u--lvl) (PreludeC-45Types-u--pure_Applicative_Maybe (e-2 (PreludeC-45Types-u--fromInteger_Num_Nat u--lvl)))))))))))) -(define CoreC-45OptionsC-45Log-mkLogLevelC-39 (lambda (arg-0 arg-1) (cons (PreludeC-45Types-maybe (lambda () '()) (lambda () (lambda (eta-0) (DataC-45List1-forget eta-0))) arg-0) arg-1))) -(define CoreC-45OptionsC-45Log-mkLogLevel (lambda (arg-0 arg-1 ext-0) (let ((sc0 arg-0)) (cond ((equal? sc0 1) (CoreC-45OptionsC-45Log-mkLogLevelC-39 (vector 0 ) ext-0))(else (let ((sc0 arg-1)) (cond ((equal? sc0 "") (CoreC-45OptionsC-45Log-mkLogLevelC-39 (vector 0 ) ext-0))(else (CoreC-45OptionsC-45Log-mkLogLevelC-39 (vector 1 (DataC-45String-split (lambda (arg-2) (PreludeC-45EqOrd-u--C-61C-61_Eq_Char arg-2 #\.)) arg-1)) ext-0))))))))) -(define CoreC-45OptionsC-45Log-keepLog (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-0)) (let ((e-0 (car sc0))) (let ((e-1 (cdr sc0))) (let ((sc1 e-1)) (cond ((equal? sc1 0) 0)(else (PreludeC-45Basics-C-38C-38 arg-1 (lambda () (CoreC-45OptionsC-45Log-n--4286-4402-u--go e-1 e-0 arg-2 arg-1 e-0 arg-2))))))))))) -(define CoreC-45OptionsC-45Log-insertLogLevel (lambda (arg-0 ext-0) (let ((sc0 arg-0)) (let ((e-0 (car sc0))) (let ((e-1 (cdr sc0))) (LibrariesC-45DataC-45StringTrie-insert e-0 e-1 ext-0)))))) -(define CoreC-45OptionsC-45Log-defaultLogLevel (lambda () (LibrariesC-45DataC-45StringTrie-singleton '() 0))) -(define DataC-45These-these (lambda (arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (arg-3 e-2))) ((1) (let ((e-5 (vector-ref sc0 1))) (arg-4 e-5))) (else (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) ((arg-5 e-8) e-9)))))))) -(define DataC-45These-fromThis (lambda (arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 1 e-2))) ((1) (vector 0 )) (else (let ((e-8 (vector-ref sc0 1))) (vector 1 e-8))))))) -(define DataC-45These-fromThat (lambda (arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 0 )) ((1) (let ((e-5 (vector-ref sc0 1))) (vector 1 e-5))) (else (let ((e-9 (vector-ref sc0 2))) (vector 1 e-9))))))) -(define DataC-45These-bifold (lambda (arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) e-2)) ((1) (let ((e-5 (vector-ref sc0 1))) e-5)) (else (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (let ((sc1 arg-1)) (let ((e-1 (car sc1))) ((e-1 e-8) e-9)))))))))) -(define LibrariesC-45DataC-45StringTrie-n--2616-4517-u--rec (lambda (arg-1 arg-2 arg-3 arg-4 arg-5) (PreludeC-45Types-maybe (lambda () (LibrariesC-45DataC-45StringMap-insert arg-1 (LibrariesC-45DataC-45StringTrie-n--2616-4516-u--end arg-1 arg-2 arg-3 arg-4) arg-5)) (lambda () (lambda (u--tm) (LibrariesC-45DataC-45StringMap-insert arg-1 (LibrariesC-45DataC-45StringTrie-insertWith arg-2 arg-4 u--tm) arg-5))) (LibrariesC-45DataC-45StringMap-lookup arg-1 arg-5)))) -(define LibrariesC-45DataC-45StringTrie-n--2616-4516-u--end (lambda (arg-1 arg-2 arg-3 arg-4) (LibrariesC-45DataC-45StringTrie-singleton arg-2 (arg-4 (vector 0 ))))) -(define LibrariesC-45DataC-45StringTrie-singleton (lambda (arg-1 arg-2) (let ((sc0 arg-1)) (if (null? sc0) (vector 0 arg-2) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (vector 1 (LibrariesC-45DataC-45StringMap-singleton e-2 (LibrariesC-45DataC-45StringTrie-singleton e-3 arg-2))))))))) -(define LibrariesC-45DataC-45StringTrie-insertWith (lambda (arg-1 arg-2 arg-3) (let ((sc0 arg-1)) (if (null? sc0) (DataC-45These-these (lambda (eta-0) (vector 0 (arg-2 (vector 1 eta-0)))) (lambda (eta-0) (vector 2 (arg-2 (vector 0 )) eta-0)) (lambda (eta-0) (lambda (eta-1) (vector 2 (arg-2 (vector 1 eta-0)) eta-1))) arg-3) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (DataC-45These-these (lambda (u--x) (vector 2 u--x (LibrariesC-45DataC-45StringMap-singleton e-2 (LibrariesC-45DataC-45StringTrie-n--2616-4516-u--end e-2 e-3 arg-3 arg-2)))) (lambda (eta-0) (vector 1 (LibrariesC-45DataC-45StringTrie-n--2616-4517-u--rec e-2 e-3 arg-3 arg-2 eta-0))) (lambda (u--x) (lambda (eta-0) (vector 2 u--x (LibrariesC-45DataC-45StringTrie-n--2616-4517-u--rec e-2 e-3 arg-3 arg-2 eta-0)))) arg-3))))))) -(define LibrariesC-45DataC-45StringTrie-insert (lambda (arg-1 arg-2 ext-0) (LibrariesC-45DataC-45StringTrie-insertWith arg-1 (lambda (eta-0) arg-2) ext-0))) -(define LibrariesC-45DataC-45StringTrie-empty (lambda () (vector 1 (LibrariesC-45DataC-45StringMap-empty)))) -(define CoreC-45Options-u--show_Show_CG (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) "chez") ((1) "racket") ((2) "gambit") ((3) "node") ((4) "javascript") ((5) "refc") (else (let ((e-0 (vector-ref sc0 1))) e-0)))))) -(define CoreC-45Options-u--showPrec_Show_CG (lambda (arg-0 arg-1) (CoreC-45Options-u--show_Show_CG arg-1))) -(define CoreC-45Options-u--C-61C-61_Eq_LangExt (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) 0)(else 1)))) ((1) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) 0)(else 1))))(else 1))))) -(define CoreC-45Options-u--C-61C-61_Eq_CG (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) 0)(else 1)))) ((1) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) 0)(else 1)))) ((2) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((2) 0)(else 1)))) ((3) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((3) 0)(else 1)))) ((4) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((4) 0)(else 1)))) ((5) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((5) 0)(else 1)))) ((6) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((6) (let ((e-1 (vector-ref sc1 1))) (PreludeC-45EqOrd-u--C-61C-61_Eq_String e-0 e-1)))(else 1)))))(else 1))))) -(define CoreC-45Options-u--C-47C-61_Eq_LangExt (lambda (arg-0 arg-1) (let ((sc0 (CoreC-45Options-u--C-61C-61_Eq_LangExt arg-0 arg-1))) (cond ((equal? sc0 0) 1) (else 0))))) -(define CoreC-45Options-u--C-47C-61_Eq_CG (lambda (arg-0 arg-1) (let ((sc0 (CoreC-45Options-u--C-61C-61_Eq_CG arg-0 arg-1))) (cond ((equal? sc0 0) 1) (else 0))))) -(define CoreC-45Options-toString (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (DataC-45String-fastUnlines (cons (PreludeC-45TypesC-45String-C-43C-43 "+ Working Directory :: " (PreludeC-45Show-u--show_Show_String e-0)) (cons (PreludeC-45TypesC-45String-C-43C-43 "+ Source Directory :: " (PreludeC-45Show-u--show_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_String u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_String u--d u--x)))) e-1)) (cons (PreludeC-45TypesC-45String-C-43C-43 "+ Build Directory :: " (PreludeC-45Show-u--show_Show_String e-2)) (cons (PreludeC-45TypesC-45String-C-43C-43 "+ Local Depend Directory :: " (PreludeC-45Show-u--show_Show_String e-3)) (cons (PreludeC-45TypesC-45String-C-43C-43 "+ Output Directory :: " (PreludeC-45Show-u--show_Show_String (CoreC-45Options-outputDirWithDefault arg-0))) (cons (PreludeC-45TypesC-45String-C-43C-43 "+ Installation Prefix :: " (PreludeC-45Show-u--show_Show_String e-5)) (cons (PreludeC-45TypesC-45String-C-43C-43 "+ Extra Directories :: " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_String u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_String u--d u--x)))) e-6)) (cons (PreludeC-45TypesC-45String-C-43C-43 "+ Package Directories :: " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_String u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_String u--d u--x)))) e-7)) (cons (PreludeC-45TypesC-45String-C-43C-43 "+ CG Library Directories :: " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_String u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_String u--d u--x)))) e-8)) (cons (PreludeC-45TypesC-45String-C-43C-43 "+ Data Directories :: " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_String u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_String u--d u--x)))) e-9)) '()))))))))))))))))))))))) -(define CoreC-45Options-setRewrite (lambda (arg-0 arg-1 ext-0) (let ((sc0 ext-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (vector 0 e-0 e-1 e-2 e-3 e-4 (vector 1 (cons arg-0 arg-1)) e-6 e-7 e-8)))))))))))) -(define CoreC-45Options-setPair (lambda (arg-0 arg-1 arg-2 ext-0) (let ((sc0 ext-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (vector 0 e-0 e-1 e-2 e-3 (vector 1 (vector 0 arg-0 arg-1 arg-2)) e-5 e-6 e-7 e-8)))))))))))) -(define CoreC-45Options-setFromString (lambda (arg-0 ext-0) (let ((sc0 ext-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((sc1 e-6)) (let ((e-9 (vector-ref sc1 1))) (let ((e-11 (vector-ref sc1 3))) (let ((e-12 (vector-ref sc1 4))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (vector 0 e-9 (vector 1 arg-0) e-11 e-12) e-7 e-8))))))))))))))))) -(define CoreC-45Options-setFromInteger (lambda (arg-0 ext-0) (let ((sc0 ext-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((sc1 e-6)) (let ((e-10 (vector-ref sc1 2))) (let ((e-11 (vector-ref sc1 3))) (let ((e-12 (vector-ref sc1 4))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (vector 0 (vector 1 arg-0) e-10 e-11 e-12) e-7 e-8))))))))))))))))) -(define CoreC-45Options-setFromDouble (lambda (arg-0 ext-0) (let ((sc0 ext-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((sc1 e-6)) (let ((e-9 (vector-ref sc1 1))) (let ((e-10 (vector-ref sc1 2))) (let ((e-11 (vector-ref sc1 3))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (vector 0 e-9 e-10 e-11 (vector 1 arg-0)) e-7 e-8))))))))))))))))) -(define CoreC-45Options-setFromChar (lambda (arg-0 ext-0) (let ((sc0 ext-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((sc1 e-6)) (let ((e-9 (vector-ref sc1 1))) (let ((e-10 (vector-ref sc1 2))) (let ((e-12 (vector-ref sc1 4))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (vector 0 e-9 e-10 (vector 1 arg-0) e-12) e-7 e-8))))))))))))))))) -(define CoreC-45Options-setExtension (lambda (arg-0 ext-0) (let ((sc0 ext-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 (cons arg-0 e-7) e-8))))))))))))) -(define CoreC-45Options-primNamesToList (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (DataC-45List-catMaybes (cons e-0 (cons e-1 (cons e-2 (cons e-3 '())))))))))))) -(define CoreC-45Options-outputDirWithDefault (lambda (arg-0) (DataC-45Maybe-fromMaybe (lambda () (LibrariesC-45UtilsC-45Path-C-60C-47C-62 (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2)) "exec")) (let ((sc0 arg-0)) (let ((e-4 (vector-ref sc0 5))) e-4))))) -(define CoreC-45Options-isExtension (lambda (arg-0 arg-1) (PreludeC-45Types-elem (cons (lambda (arg-2) (lambda (arg-3) (CoreC-45Options-u--C-61C-61_Eq_LangExt arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (CoreC-45Options-u--C-47C-61_Eq_LangExt arg-4 arg-5)))) arg-0 (let ((sc0 arg-1)) (let ((e-7 (vector-ref sc0 8))) e-7))))) -(define CoreC-45Options-getCG (lambda (arg-0 arg-1) (DataC-45List-lookup (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_String arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_String arg-4 arg-5)))) (DataC-45String-toLower arg-1) (CoreC-45Options-availableCGs arg-0)))) -(define CoreC-45Options-execBuildDir (lambda (arg-0) (LibrariesC-45UtilsC-45Path-C-60C-47C-62 (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2)) "exec"))) -(define CoreC-45Options-defaults (lambda () (vector 0 (CoreC-45Options-defaultDirs) (CoreC-45Options-defaultPPrint) (CoreC-45Options-defaultSession) (CoreC-45Options-defaultElab) (vector 0 ) (vector 0 ) (vector 0 (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 )) '() '()))) -(define CoreC-45Options-defaultSession (lambda () (vector 0 1 1 1 (vector 0 ) '() 1 (CoreC-45OptionsC-45Log-defaultLogLevel) 1 1 1 (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) 1))) -(define CoreC-45Options-defaultPPrint (lambda () (vector 0 1 0 1))) -(define CoreC-45Options-defaultElab (lambda () (vector 0 0 0 (vector 1 ) (+ 1 (+ 1 (+ 1 0))) (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))))))))))))))))))))))))))))))))))))))))))) (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))))))))))))))))))))))))))))))))))))))))))) 0))) -(define CoreC-45Options-defaultDirs (lambda () (vector 0 "." (vector 0 ) "build" "depends" (vector 0 ) "/usr/local" (cons "." '()) '() '() '()))) -(define CoreC-45Options-clearNames (lambda (ext-0) (let ((sc0 ext-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-8 (vector-ref sc0 9))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 ) (vector 0 ) (vector 0 (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 )) '() e-8))))))))) -(define CoreC-45Options-availableCGs (lambda (arg-0) (PreludeC-45TypesC-45List-C-43C-43 (cons (cons "chez" (vector 0 )) (cons (cons "racket" (vector 1 )) (cons (cons "node" (vector 3 )) (cons (cons "javascript" (vector 4 )) (cons (cons "refc" (vector 5 )) (cons (cons "gambit" (vector 2 )) '())))))) (let ((sc0 arg-0)) (let ((e-8 (vector-ref sc0 9))) e-8))))) -(define CoreC-45Options-addCG (lambda (arg-0 ext-0) (let ((sc0 ext-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 (cons arg-0 e-8)))))))))))))) -(define LibrariesC-45UtilsC-45Path-case--caseC-32blockC-32inC-32C-60C-46C-62-2083 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (car sc0))) (LibrariesC-45UtilsC-45Path-u--show_Show_Path (LibrariesC-45UtilsC-45Path-setFileNameC-39 (PreludeC-45TypesC-45String-C-43C-43 e-2 arg-4) arg-2)))))) -(define LibrariesC-45UtilsC-45Path-case--C-60C-46C-62-2066 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (LibrariesC-45UtilsC-45Path-case--caseC-32blockC-32inC-32C-60C-46C-62-2083 arg-0 arg-1 arg-2 arg-3 arg-4 e-1 (LibrariesC-45UtilsC-45Path-splitFileName e-1)))) (else arg-1))))) -(define LibrariesC-45UtilsC-45Path-case--C-60C-46C-62-2040 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) "") (else (PreludeC-45TypesC-45String-C-43C-43 "." arg-3)))))) -(define LibrariesC-45UtilsC-45Path-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32dropBase-1890 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (vector 1 (vector 0 ))) (else (vector 0 )))))) -(define LibrariesC-45UtilsC-45Path-case--caseC-32blockC-32inC-32dropBase-1847 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (PreludeC-45Interfaces-C-62C-62 (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (PreludeC-45Types-u--map_Functor_Maybe u--func arg-143))))) (lambda (u--a) (lambda (arg-577) (PreludeC-45Types-u--pure_Applicative_Maybe arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (PreludeC-45Types-u--C-60C-42C-62_Applicative_Maybe arg-578 arg-580)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe arg-876 arg-877))))) (lambda (u--a) (lambda (arg-879) (PreludeC-45Types-u--join_Monad_Maybe arg-879)))) (LibrariesC-45UtilsC-45Path-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32dropBase-1890 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3 e-2 e-1 e-0 (PreludeC-45Basics-C-38C-38 (PreludeC-45Types-u--C-61C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-7) (lambda (arg-8) (LibrariesC-45UtilsC-45Path-u--C-61C-61_Eq_Volume arg-7 arg-8))) (lambda (arg-7) (lambda (arg-8) (LibrariesC-45UtilsC-45Path-u--C-47C-61_Eq_Volume arg-7 arg-8)))) arg-5 e-0) (lambda () (PreludeC-45EqOrd-u--C-61C-61_Eq_Bool arg-4 e-1)))) (lambda () (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (LibrariesC-45UtilsC-45Path-n--5192-1787-u--dropBody arg-0 arg-1 arg-3 e-2) (lambda (u--body) (PreludeC-45Types-u--pure_Applicative_Maybe (LibrariesC-45UtilsC-45Path-u--show_Show_Path (vector 0 (vector 0 ) 1 u--body e-3)))))))))))))) -(define LibrariesC-45UtilsC-45Path-case--dropBase-1837 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (LibrariesC-45UtilsC-45Path-case--caseC-32blockC-32inC-32dropBase-1847 arg-0 arg-1 e-3 e-2 e-1 e-0 (LibrariesC-45UtilsC-45Path-parse arg-0))))))))) -(define LibrariesC-45UtilsC-45Path-case--dropBaseC-44dropBody-1807 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (LibrariesC-45UtilsC-45Path-n--5192-1787-u--dropBody arg-0 arg-1 arg-3 arg-5)) (else (vector 0 )))))) -(define LibrariesC-45UtilsC-45Path-case--splitFileName-1565 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-3)) (if (null? sc1) (cons arg-0 "") (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (let ((sc2 e-6)) (cond ((equal? sc2 #\.) (let ((sc3 e-7)) (if (null? sc3) (cons arg-0 "") (cons (PreludeC-45Types-fastPack (DataC-45List-reverse e-7)) (PreludeC-45Types-fastPack (DataC-45List-reverse e-2))))))(else (cons (PreludeC-45Types-fastPack (DataC-45List-reverse e-7)) (PreludeC-45Types-fastPack (DataC-45List-reverse e-2))))))))))))))) -(define LibrariesC-45UtilsC-45Path-case--setFileNameC-39-1538 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (LibrariesC-45UtilsC-45Path-appendC-39 (DataC-45Maybe-fromMaybe (lambda () (LibrariesC-45UtilsC-45Path-emptyPath)) (LibrariesC-45UtilsC-45Path-parentC-39 arg-0)) (LibrariesC-45UtilsC-45Path-parse arg-1))) (else (LibrariesC-45UtilsC-45Path-appendC-39 arg-0 (LibrariesC-45UtilsC-45Path-parse arg-1))))))) -(define LibrariesC-45UtilsC-45Path-case--splitParentC-39-1450 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (if (null? sc0) (vector 0 ) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((u--parent (let ((sc1 arg-0)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (vector 0 e-0 e-1 (DataC-45List-init (cons e-2 e-3)) 1)))))) (let ((u--child (vector 0 (vector 0 ) 1 (cons (DataC-45List-last (cons e-2 e-3)) '()) (let ((sc1 arg-0)) (let ((e-4 (vector-ref sc1 4))) e-4))))) (vector 1 (cons u--parent u--child)))))))))) -(define LibrariesC-45UtilsC-45Path-case--splitPathC-39-1426 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (car sc0))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (cons e-5 (LibrariesC-45UtilsC-45Path-n--4747-1361-u--iterateBody arg-0 (let ((sc2 arg-0)) (let ((e-6 (vector-ref sc2 3))) e-6)) (let ((sc2 arg-0)) (let ((e-4 (vector-ref sc2 4))) e-4)))))) (else (LibrariesC-45UtilsC-45Path-n--4747-1361-u--iterateBody arg-0 (let ((sc2 arg-0)) (let ((e-5 (vector-ref sc2 3))) e-5)) (let ((sc2 arg-0)) (let ((e-4 (vector-ref sc2 4))) e-4)))))))))) -(define LibrariesC-45UtilsC-45Path-case--caseC-32blockC-32inC-32appendC-39-1326 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (let ((sc1 arg-0)) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (vector 0 (let ((sc2 arg-1)) (let ((e-7 (vector-ref sc2 1))) e-7)) e-1 e-2 e-3)))))) (else (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (vector 0 e-0 e-1 (PreludeC-45TypesC-45List-C-43C-43 (let ((sc2 arg-1)) (let ((e-5 (vector-ref sc2 3))) e-5)) (let ((sc2 arg-0)) (let ((e-5 (vector-ref sc2 3))) e-5))) (let ((sc2 arg-0)) (let ((e-4 (vector-ref sc2 4))) e-4))))))))))) -(define LibrariesC-45UtilsC-45Path-case--appendC-39-1313 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-0) (else (LibrariesC-45UtilsC-45Path-case--caseC-32blockC-32inC-32appendC-39-1326 arg-0 arg-1 (let ((sc1 arg-0)) (let ((e-1 (vector-ref sc1 2))) e-1)))))))) -(define LibrariesC-45UtilsC-45Path-case--caseC-32blockC-32inC-32isAbsoluteC-39-1286 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) 0) (else (let ((sc2 arg-0)) (let ((e-4 (vector-ref sc2 2))) e-4))))))) (else 1))))) -(define LibrariesC-45UtilsC-45Path-case--isAbsoluteC-39-1279 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (LibrariesC-45UtilsC-45Path-case--caseC-32blockC-32inC-32isAbsoluteC-39-1286 arg-0 (let ((sc1 arg-0)) (let ((e-0 (vector-ref sc1 1))) e-0)))) (else (let ((sc1 arg-0)) (let ((e-1 (vector-ref sc1 2))) e-1))))))) -(define LibrariesC-45UtilsC-45Path-case--parse-1259 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (if (null? sc1) (LibrariesC-45UtilsC-45Path-emptyPath) (let ((e-5 (car sc1))) e-5)))))(else (LibrariesC-45UtilsC-45Path-emptyPath)))))) -(define LibrariesC-45UtilsC-45Path-case--disk-1043 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (if (null? sc0) (vector 4 (vector 0 ) 1 "Expects disk") (let ((e-1 (car sc0))) (vector 0 e-1)))))) -(define LibrariesC-45UtilsC-45Path-case--lexPath-793 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-3)) (let ((e-7 (cdr sc1))) (let ((sc2 e-7)) e-2)))))))) -(define LibrariesC-45UtilsC-45Path-case--show-648 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) arg-1) (else ""))))) -(define LibrariesC-45UtilsC-45Path-case--show-626 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) arg-1) (else ""))))) -(define LibrariesC-45UtilsC-45Path-case--pathSeparator-416 (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 0) #\;) (else #\:))))) -(define LibrariesC-45UtilsC-45Path-case--dirSeparator-411 (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 0) #\\) (else #\/))))) -(define LibrariesC-45UtilsC-45Path-n--4747-1360-u--splitRoot (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((sc1 e-0)) (case (vector-ref sc1 0) ((0) (let ((sc2 e-1)) (cond ((equal? sc2 1) (cons (vector 0 ) arg-1))(else (cons (vector 1 (vector 0 e-0 e-1 '() 1)) (vector 0 (vector 0 ) 1 e-2 e-3))))))(else (cons (vector 1 (vector 0 e-0 e-1 '() 1)) (vector 0 (vector 0 ) 1 e-2 e-3)))))))))))) -(define LibrariesC-45UtilsC-45Path-n--4747-1361-u--iterateBody (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (if (null? sc0) '() (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-3)) (if (null? sc1) (cons (vector 0 (vector 0 ) 1 (cons e-2 '()) arg-2) '()) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (cons (vector 0 (vector 0 ) 1 (cons e-2 '()) 1) (LibrariesC-45UtilsC-45Path-n--4747-1361-u--iterateBody arg-0 (cons e-6 e-7) arg-2)))))))))))) -(define LibrariesC-45UtilsC-45Path-n--4916-1519-u--findNormal (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (if (null? sc0) (vector 0 ) (let ((e-1 (car sc0))) (let ((e-2 (cdr sc0))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((2) (let ((e-3 (vector-ref sc1 1))) (vector 1 e-3))) ((0) (LibrariesC-45UtilsC-45Path-n--4916-1519-u--findNormal arg-0 e-2))(else (vector 0 )))))))))) -(define LibrariesC-45UtilsC-45Path-n--5392-1957-u--filter (lambda (arg-0 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (DataC-45Maybe-toMaybe (arg-2 e-2) (lambda () e-2)))))))) -(define LibrariesC-45UtilsC-45Path-n--5192-1787-u--dropBody (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (if (null? sc0) (vector 1 arg-3) (let ((sc1 arg-3)) (if (null? sc1) (vector 0 ) (let ((sc2 arg-2)) (let ((e-1 (car sc2))) (let ((e-2 (cdr sc2))) (let ((sc3 arg-3)) (let ((e-4 (car sc3))) (let ((e-5 (cdr sc3))) (LibrariesC-45UtilsC-45Path-case--dropBaseC-44dropBody-1807 arg-0 arg-1 e-1 e-2 e-4 e-5 (LibrariesC-45UtilsC-45Path-u--C-61C-61_Eq_Body e-1 e-4)))))))))))))) -(define LibrariesC-45UtilsC-45Path-u--tokValue_TokenKind_PathTokenKind (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) arg-1) (else (vector 0 )))))) -(define LibrariesC-45UtilsC-45Path-u--show_Show_Volume (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (PreludeC-45TypesC-45String-C-43C-43 "\\\\" (PreludeC-45TypesC-45String-C-43C-43 e-0 (PreludeC-45TypesC-45String-C-43C-43 "\\" e-1)))))) (else (let ((e-2 (vector-ref sc0 1))) (PreludeC-45TypesC-45String-C-43C-43 (DataC-45String-singleton e-2) ":"))))))) -(define LibrariesC-45UtilsC-45Path-u--show_Show_Path (lambda (arg-0) (let ((u--sep (DataC-45String-singleton (LibrariesC-45UtilsC-45Path-dirSeparator)))) (let ((u--showVol (PreludeC-45Types-maybe (lambda () "") (lambda () (lambda (eta-0) (LibrariesC-45UtilsC-45Path-u--show_Show_Volume eta-0))) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))))) (let ((u--showRoot (LibrariesC-45UtilsC-45Path-case--show-626 arg-0 u--sep u--showVol (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))) (let ((u--showBody (LibrariesC-45DataC-45StringC-45Extra-join u--sep (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (LibrariesC-45UtilsC-45Path-u--show_Show_Body eta-0)) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2)))))) (let ((u--showTrail (LibrariesC-45UtilsC-45Path-case--show-648 arg-0 u--sep u--showVol u--showRoot u--showBody (let ((sc0 arg-0)) (let ((e-3 (vector-ref sc0 4))) e-3))))) (PreludeC-45TypesC-45String-C-43C-43 u--showVol (PreludeC-45TypesC-45String-C-43C-43 u--showRoot (PreludeC-45TypesC-45String-C-43C-43 u--showBody u--showTrail)))))))))) -(define LibrariesC-45UtilsC-45Path-u--show_Show_Body (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) ".") ((1) "..") (else (let ((e-0 (vector-ref sc0 1))) e-0)))))) -(define LibrariesC-45UtilsC-45Path-u--TokType_TokenKind_PathTokenKind (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (vector "String" )) (else (vector "Builtin.Unit" )))))) -(define LibrariesC-45UtilsC-45Path-u--C-61C-61_Eq_Volume (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (PreludeC-45Basics-C-38C-38 (PreludeC-45EqOrd-u--C-61C-61_Eq_String e-0 e-3) (lambda () (PreludeC-45EqOrd-u--C-61C-61_Eq_String e-3 e-4))))))(else 1))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (PreludeC-45EqOrd-u--C-61C-61_Eq_Char e-2 e-5)))(else 1)))))(else 1))))) -(define LibrariesC-45UtilsC-45Path-u--C-61C-61_Eq_PathTokenKind (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) 0)(else 1)))) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (PreludeC-45EqOrd-u--C-61C-61_Eq_Char e-0 e-1)))(else 1)))))(else 1))))) -(define LibrariesC-45UtilsC-45Path-u--C-61C-61_Eq_Path (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((e-6 (vector-ref sc1 3))) (PreludeC-45Basics-C-38C-38 (PreludeC-45Types-u--C-61C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-2) (lambda (arg-3) (LibrariesC-45UtilsC-45Path-u--C-61C-61_Eq_Volume arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (LibrariesC-45UtilsC-45Path-u--C-47C-61_Eq_Volume arg-4 arg-5)))) e-0 e-4) (lambda () (PreludeC-45Basics-C-38C-38 (PreludeC-45EqOrd-u--C-61C-61_Eq_Bool e-1 e-5) (lambda () (PreludeC-45Types-u--C-61C-61_Eq_C-40ListC-32C-36aC-41 (cons (lambda (arg-2) (lambda (arg-3) (LibrariesC-45UtilsC-45Path-u--C-61C-61_Eq_Body arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (LibrariesC-45UtilsC-45Path-u--C-47C-61_Eq_Body arg-4 arg-5)))) e-2 e-6))))))))))))))) -(define LibrariesC-45UtilsC-45Path-u--C-61C-61_Eq_Body (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) 0)(else 1)))) ((1) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) 0)(else 1)))) ((2) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((2) (let ((e-1 (vector-ref sc1 1))) (PreludeC-45EqOrd-u--C-61C-61_Eq_String e-0 e-1)))(else 1)))))(else 1))))) -(define LibrariesC-45UtilsC-45Path-u--C-47C-61_Eq_Volume (lambda (arg-0 arg-1) (let ((sc0 (LibrariesC-45UtilsC-45Path-u--C-61C-61_Eq_Volume arg-0 arg-1))) (cond ((equal? sc0 0) 1) (else 0))))) -(define LibrariesC-45UtilsC-45Path-u--C-47C-61_Eq_PathTokenKind (lambda (arg-0 arg-1) (let ((sc0 (LibrariesC-45UtilsC-45Path-u--C-61C-61_Eq_PathTokenKind arg-0 arg-1))) (cond ((equal? sc0 0) 1) (else 0))))) -(define LibrariesC-45UtilsC-45Path-u--C-47C-61_Eq_Body (lambda (arg-0 arg-1) (let ((sc0 (LibrariesC-45UtilsC-45Path-u--C-61C-61_Eq_Body arg-0 arg-1))) (cond ((equal? sc0 0) 1) (else 0))))) -(define LibrariesC-45UtilsC-45Path-verbatimUnc (lambda () (vector 10 0 (LibrariesC-45UtilsC-45Path-verbatim) (lambda () (vector 8 0 (LibrariesC-45TextC-45Parser-match (cons (cons (lambda (arg-2) (lambda (arg-3) (LibrariesC-45UtilsC-45Path-u--C-61C-61_Eq_PathTokenKind arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (LibrariesC-45UtilsC-45Path-u--C-47C-61_Eq_PathTokenKind arg-4 arg-5)))) (cons (lambda (arg-355) (LibrariesC-45UtilsC-45Path-u--TokType_TokenKind_PathTokenKind arg-355)) (lambda (u--kind) (lambda (arg-356) (LibrariesC-45UtilsC-45Path-u--tokValue_TokenKind_PathTokenKind u--kind arg-356))))) (vector 0 )) (lambda () (lambda (u--server) (vector 10 0 (LibrariesC-45UtilsC-45Path-bodySeparator) (lambda () (vector 8 1 (LibrariesC-45TextC-45Parser-match (cons (cons (lambda (arg-2) (lambda (arg-3) (LibrariesC-45UtilsC-45Path-u--C-61C-61_Eq_PathTokenKind arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (LibrariesC-45UtilsC-45Path-u--C-47C-61_Eq_PathTokenKind arg-4 arg-5)))) (cons (lambda (arg-355) (LibrariesC-45UtilsC-45Path-u--TokType_TokenKind_PathTokenKind arg-355)) (lambda (u--kind) (lambda (arg-356) (LibrariesC-45UtilsC-45Path-u--tokValue_TokenKind_PathTokenKind u--kind arg-356))))) (vector 0 )) (lambda () (lambda (u--share) (vector 0 (vector 0 u--server u--share)))))))))))))) -(define LibrariesC-45UtilsC-45Path-verbatimDisk (lambda () (vector 10 0 (LibrariesC-45UtilsC-45Path-verbatim) (lambda () (vector 8 1 (LibrariesC-45UtilsC-45Path-disk) (lambda () (lambda (u--disk) (vector 0 u--disk)))))))) -(define LibrariesC-45UtilsC-45Path-verbatim (lambda () (vector 10 0 (PreludeC-45Interfaces-ignore (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 0 eta-2 eta-3))))) (LibrariesC-45TextC-45Parser-count (LibrariesC-45TextC-45Quantity-exactly (+ 1 (+ 1 0))) (LibrariesC-45TextC-45Parser-match (cons (cons (lambda (arg-2) (lambda (arg-3) (LibrariesC-45UtilsC-45Path-u--C-61C-61_Eq_PathTokenKind arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (LibrariesC-45UtilsC-45Path-u--C-47C-61_Eq_PathTokenKind arg-4 arg-5)))) (cons (lambda (arg-355) (LibrariesC-45UtilsC-45Path-u--TokType_TokenKind_PathTokenKind arg-355)) (lambda (u--kind) (lambda (arg-356) (LibrariesC-45UtilsC-45Path-u--tokValue_TokenKind_PathTokenKind u--kind arg-356))))) (vector 1 #\\)))) (lambda () (vector 10 0 (LibrariesC-45TextC-45Parser-match (cons (cons (lambda (arg-2) (lambda (arg-3) (LibrariesC-45UtilsC-45Path-u--C-61C-61_Eq_PathTokenKind arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (LibrariesC-45UtilsC-45Path-u--C-47C-61_Eq_PathTokenKind arg-4 arg-5)))) (cons (lambda (arg-355) (LibrariesC-45UtilsC-45Path-u--TokType_TokenKind_PathTokenKind arg-355)) (lambda (u--kind) (lambda (arg-356) (LibrariesC-45UtilsC-45Path-u--tokValue_TokenKind_PathTokenKind u--kind arg-356))))) (vector 1 #\?)) (lambda () (vector 10 1 (LibrariesC-45TextC-45Parser-match (cons (cons (lambda (arg-2) (lambda (arg-3) (LibrariesC-45UtilsC-45Path-u--C-61C-61_Eq_PathTokenKind arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (LibrariesC-45UtilsC-45Path-u--C-47C-61_Eq_PathTokenKind arg-4 arg-5)))) (cons (lambda (arg-355) (LibrariesC-45UtilsC-45Path-u--TokType_TokenKind_PathTokenKind arg-355)) (lambda (u--kind) (lambda (arg-356) (LibrariesC-45UtilsC-45Path-u--tokValue_TokenKind_PathTokenKind u--kind arg-356))))) (vector 1 #\\)) (lambda () (vector 0 (vector 0 )))))))))) -(define LibrariesC-45UtilsC-45Path-unc (lambda () (vector 10 0 (PreludeC-45Interfaces-ignore (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 0 eta-2 eta-3))))) (LibrariesC-45TextC-45Parser-count (LibrariesC-45TextC-45Quantity-exactly (+ 1 (+ 1 0))) (LibrariesC-45TextC-45Parser-match (cons (cons (lambda (arg-2) (lambda (arg-3) (LibrariesC-45UtilsC-45Path-u--C-61C-61_Eq_PathTokenKind arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (LibrariesC-45UtilsC-45Path-u--C-47C-61_Eq_PathTokenKind arg-4 arg-5)))) (cons (lambda (arg-355) (LibrariesC-45UtilsC-45Path-u--TokType_TokenKind_PathTokenKind arg-355)) (lambda (u--kind) (lambda (arg-356) (LibrariesC-45UtilsC-45Path-u--tokValue_TokenKind_PathTokenKind u--kind arg-356))))) (vector 1 #\\)))) (lambda () (vector 8 0 (LibrariesC-45TextC-45Parser-match (cons (cons (lambda (arg-2) (lambda (arg-3) (LibrariesC-45UtilsC-45Path-u--C-61C-61_Eq_PathTokenKind arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (LibrariesC-45UtilsC-45Path-u--C-47C-61_Eq_PathTokenKind arg-4 arg-5)))) (cons (lambda (arg-355) (LibrariesC-45UtilsC-45Path-u--TokType_TokenKind_PathTokenKind arg-355)) (lambda (u--kind) (lambda (arg-356) (LibrariesC-45UtilsC-45Path-u--tokValue_TokenKind_PathTokenKind u--kind arg-356))))) (vector 0 )) (lambda () (lambda (u--server) (vector 10 0 (LibrariesC-45UtilsC-45Path-bodySeparator) (lambda () (vector 8 1 (LibrariesC-45TextC-45Parser-match (cons (cons (lambda (arg-2) (lambda (arg-3) (LibrariesC-45UtilsC-45Path-u--C-61C-61_Eq_PathTokenKind arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (LibrariesC-45UtilsC-45Path-u--C-47C-61_Eq_PathTokenKind arg-4 arg-5)))) (cons (lambda (arg-355) (LibrariesC-45UtilsC-45Path-u--TokType_TokenKind_PathTokenKind arg-355)) (lambda (u--kind) (lambda (arg-356) (LibrariesC-45UtilsC-45Path-u--tokValue_TokenKind_PathTokenKind u--kind arg-356))))) (vector 0 )) (lambda () (lambda (u--share) (vector 0 (vector 0 u--server u--share)))))))))))))) -(define LibrariesC-45UtilsC-45Path-splitPathC-39 (lambda (arg-0) (LibrariesC-45UtilsC-45Path-case--splitPathC-39-1426 arg-0 (LibrariesC-45UtilsC-45Path-n--4747-1360-u--splitRoot arg-0 arg-0)))) -(define LibrariesC-45UtilsC-45Path-splitPath (lambda (ext-0) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (LibrariesC-45UtilsC-45Path-u--show_Show_Path eta-0)) (LibrariesC-45UtilsC-45Path-splitPathC-39 (LibrariesC-45UtilsC-45Path-parse ext-0))))) -(define LibrariesC-45UtilsC-45Path-splitParentC-39 (lambda (arg-0) (LibrariesC-45UtilsC-45Path-case--splitParentC-39-1450 arg-0 (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2))))) -(define LibrariesC-45UtilsC-45Path-splitParent (lambda (arg-0) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (LibrariesC-45UtilsC-45Path-splitParentC-39 (LibrariesC-45UtilsC-45Path-parse arg-0)) (lambda (_-0) (let ((sc0 _-0)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (PreludeC-45Types-u--pure_Applicative_Maybe (cons (LibrariesC-45UtilsC-45Path-u--show_Show_Path e-2) (LibrariesC-45UtilsC-45Path-u--show_Show_Path e-3)))))))))) -(define LibrariesC-45UtilsC-45Path-splitFileName (lambda (arg-0) (LibrariesC-45UtilsC-45Path-case--splitFileName-1565 arg-0 (DataC-45List-break (lambda (arg-1) (PreludeC-45EqOrd-u--C-61C-61_Eq_Char arg-1 #\.)) (DataC-45List-reverse (PreludeC-45Types-fastUnpack arg-0)))))) -(define LibrariesC-45UtilsC-45Path-setFileNameC-39 (lambda (arg-0 arg-1) (LibrariesC-45UtilsC-45Path-case--setFileNameC-39-1538 arg-1 arg-0 (DataC-45Maybe-isJust (LibrariesC-45UtilsC-45Path-fileNameC-39 arg-1))))) -(define LibrariesC-45UtilsC-45Path-pathTokenMap (lambda () (LibrariesC-45TextC-45Lexer-toTokenMap (cons (cons (LibrariesC-45TextC-45Lexer-is #\/) (vector 1 #\/)) (cons (cons (LibrariesC-45TextC-45Lexer-is #\\) (vector 1 #\\)) (cons (cons (LibrariesC-45TextC-45Lexer-is #\:) (vector 1 #\:)) (cons (cons (LibrariesC-45TextC-45Lexer-is #\?) (vector 1 #\?)) (cons (cons (LibrariesC-45TextC-45Lexer-some (LibrariesC-45TextC-45Lexer-non (LibrariesC-45TextC-45Lexer-oneOf "/\\:?"))) (vector 0 )) '())))))))) -(define LibrariesC-45UtilsC-45Path-pathSeparator (lambda () (LibrariesC-45UtilsC-45Path-case--pathSeparator-416 (SystemC-45Info-isWindows)))) -(define LibrariesC-45UtilsC-45Path-parseVolume (lambda () (vector 12 0 0 (LibrariesC-45UtilsC-45Path-verbatimUnc) (lambda () (vector 12 0 0 (LibrariesC-45UtilsC-45Path-verbatimDisk) (lambda () (vector 12 0 0 (LibrariesC-45UtilsC-45Path-unc) (lambda () (LibrariesC-45UtilsC-45Path-disk))))))))) -(define LibrariesC-45UtilsC-45Path-parsePath (lambda () (vector 9 1 1 (LibrariesC-45TextC-45Parser-optional 0 (LibrariesC-45UtilsC-45Path-parseVolume)) (lambda (u--vol) (vector 9 1 1 (LibrariesC-45TextC-45Parser-optional 0 (LibrariesC-45TextC-45Parser-some (LibrariesC-45UtilsC-45Path-bodySeparator))) (lambda (u--root) (vector 9 1 1 (LibrariesC-45TextC-45Parser-sepBy 0 (LibrariesC-45TextC-45Parser-some (LibrariesC-45UtilsC-45Path-bodySeparator)) (LibrariesC-45UtilsC-45Path-parseBody)) (lambda (u--body) (vector 9 1 1 (LibrariesC-45TextC-45Parser-optional 0 (LibrariesC-45TextC-45Parser-some (LibrariesC-45UtilsC-45Path-bodySeparator))) (lambda (u--trailSep) (let ((body-0 (DataC-45List-filter (lambda (lcase-0) (let ((sc0 lcase-0)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (PreludeC-45EqOrd-u--C-47C-61_Eq_String (DataC-45String-ltrim e-0) "")))(else 0)))) u--body))) (let ((body-1 (let ((sc0 body-0)) (if (null? sc0) '() (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (cons e-2 (DataC-45List-delete (cons (lambda (arg-2) (lambda (arg-3) (LibrariesC-45UtilsC-45Path-u--C-61C-61_Eq_Body arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (LibrariesC-45UtilsC-45Path-u--C-47C-61_Eq_Body arg-4 arg-5)))) (vector 0 ) e-3)))))))) (vector 0 (vector 0 u--vol (DataC-45Maybe-isJust u--root) body-1 (DataC-45Maybe-isJust u--trailSep))))))))))))))) -(define LibrariesC-45UtilsC-45Path-parseBody (lambda () (vector 8 1 (LibrariesC-45TextC-45Parser-match (cons (cons (lambda (arg-2) (lambda (arg-3) (LibrariesC-45UtilsC-45Path-u--C-61C-61_Eq_PathTokenKind arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (LibrariesC-45UtilsC-45Path-u--C-47C-61_Eq_PathTokenKind arg-4 arg-5)))) (cons (lambda (arg-355) (LibrariesC-45UtilsC-45Path-u--TokType_TokenKind_PathTokenKind arg-355)) (lambda (u--kind) (lambda (arg-356) (LibrariesC-45UtilsC-45Path-u--tokValue_TokenKind_PathTokenKind u--kind arg-356))))) (vector 0 )) (lambda () (lambda (u--text) (let ((sc0 u--text)) (cond ((equal? sc0 "..") (vector 0 (vector 1 ))) ((equal? sc0 ".") (vector 0 (vector 0 )))(else (vector 0 (vector 2 u--text)))))))))) -(define LibrariesC-45UtilsC-45Path-parse (lambda (arg-0) (LibrariesC-45UtilsC-45Path-case--parse-1259 arg-0 (LibrariesC-45TextC-45ParserC-45Core-parse 1 (LibrariesC-45UtilsC-45Path-parsePath) (LibrariesC-45UtilsC-45Path-lexPath arg-0))))) -(define LibrariesC-45UtilsC-45Path-parentC-39 (lambda (ext-0) (PreludeC-45Types-u--map_Functor_Maybe (lambda (eta-0) (Builtin-fst eta-0)) (LibrariesC-45UtilsC-45Path-splitParentC-39 ext-0)))) -(define LibrariesC-45UtilsC-45Path-parent (lambda (ext-0) (PreludeC-45Types-u--map_Functor_Maybe (lambda (eta-0) (LibrariesC-45UtilsC-45Path-u--show_Show_Path eta-0)) (LibrariesC-45UtilsC-45Path-parentC-39 (LibrariesC-45UtilsC-45Path-parse ext-0))))) -(define LibrariesC-45UtilsC-45Path-lexPath (lambda (arg-0) (LibrariesC-45UtilsC-45Path-case--lexPath-793 arg-0 (LibrariesC-45TextC-45LexerC-45Core-lex (LibrariesC-45UtilsC-45Path-pathTokenMap) arg-0)))) -(define LibrariesC-45UtilsC-45Path-joinPath (lambda (arg-0) (LibrariesC-45UtilsC-45Path-u--show_Show_Path (PreludeC-45Types-u--foldl_Foldable_List (lambda (eta-0) (lambda (eta-1) (LibrariesC-45UtilsC-45Path-C-47C-62 eta-0 eta-1))) (LibrariesC-45UtilsC-45Path-parse "") arg-0)))) -(define LibrariesC-45UtilsC-45Path-isAbsoluteC-39 (lambda (arg-0) (LibrariesC-45UtilsC-45Path-case--isAbsoluteC-39-1279 arg-0 (SystemC-45Info-isWindows)))) -(define LibrariesC-45UtilsC-45Path-isAbsolute (lambda (ext-0) (LibrariesC-45UtilsC-45Path-isAbsoluteC-39 (LibrariesC-45UtilsC-45Path-parse ext-0)))) -(define LibrariesC-45UtilsC-45Path-fileNameC-39 (lambda (arg-0) (LibrariesC-45UtilsC-45Path-n--4916-1519-u--findNormal arg-0 (DataC-45List-reverse (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2)))))) -(define LibrariesC-45UtilsC-45Path-fileName (lambda (ext-0) (LibrariesC-45UtilsC-45Path-fileNameC-39 (LibrariesC-45UtilsC-45Path-parse ext-0)))) -(define LibrariesC-45UtilsC-45Path-extension (lambda (arg-0) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (LibrariesC-45UtilsC-45Path-fileName arg-0) (lambda (eta-0) (LibrariesC-45UtilsC-45Path-n--5392-1957-u--filter arg-0 (lambda (arg-1) (PreludeC-45EqOrd-u--C-47C-61_Eq_String arg-1 "")) (vector 1 (Builtin-snd (LibrariesC-45UtilsC-45Path-splitFileName eta-0)))))))) -(define LibrariesC-45UtilsC-45Path-emptyPath (lambda () (vector 0 (vector 0 ) 1 '() 1))) -(define LibrariesC-45UtilsC-45Path-dropExtension (lambda (arg-0) (LibrariesC-45UtilsC-45Path-C-60C-46C-62 arg-0 ""))) -(define LibrariesC-45UtilsC-45Path-dropBase (lambda (arg-0 arg-1) (LibrariesC-45UtilsC-45Path-case--dropBase-1837 arg-1 arg-0 (LibrariesC-45UtilsC-45Path-parse arg-0)))) -(define LibrariesC-45UtilsC-45Path-disk (lambda () (vector 8 0 (LibrariesC-45TextC-45Parser-match (cons (cons (lambda (arg-2) (lambda (arg-3) (LibrariesC-45UtilsC-45Path-u--C-61C-61_Eq_PathTokenKind arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (LibrariesC-45UtilsC-45Path-u--C-47C-61_Eq_PathTokenKind arg-4 arg-5)))) (cons (lambda (arg-355) (LibrariesC-45UtilsC-45Path-u--TokType_TokenKind_PathTokenKind arg-355)) (lambda (u--kind) (lambda (arg-356) (LibrariesC-45UtilsC-45Path-u--tokValue_TokenKind_PathTokenKind u--kind arg-356))))) (vector 0 )) (lambda () (lambda (u--text) (vector 9 1 0 (LibrariesC-45UtilsC-45Path-case--disk-1043 u--text (PreludeC-45Types-fastUnpack u--text)) (lambda (u--disk) (vector 10 1 (LibrariesC-45TextC-45Parser-match (cons (cons (lambda (arg-2) (lambda (arg-3) (LibrariesC-45UtilsC-45Path-u--C-61C-61_Eq_PathTokenKind arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (LibrariesC-45UtilsC-45Path-u--C-47C-61_Eq_PathTokenKind arg-4 arg-5)))) (cons (lambda (arg-355) (LibrariesC-45UtilsC-45Path-u--TokType_TokenKind_PathTokenKind arg-355)) (lambda (u--kind) (lambda (arg-356) (LibrariesC-45UtilsC-45Path-u--tokValue_TokenKind_PathTokenKind u--kind arg-356))))) (vector 1 #\:)) (lambda () (vector 0 (vector 1 (PreludeC-45Types-toUpper u--disk)))))))))))) -(define LibrariesC-45UtilsC-45Path-dirSeparator (lambda () (LibrariesC-45UtilsC-45Path-case--dirSeparator-411 (SystemC-45Info-isWindows)))) -(define LibrariesC-45UtilsC-45Path-bodySeparator (lambda () (vector 12 0 0 (LibrariesC-45TextC-45Parser-match (cons (cons (lambda (arg-2) (lambda (arg-3) (LibrariesC-45UtilsC-45Path-u--C-61C-61_Eq_PathTokenKind arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (LibrariesC-45UtilsC-45Path-u--C-47C-61_Eq_PathTokenKind arg-4 arg-5)))) (cons (lambda (arg-355) (LibrariesC-45UtilsC-45Path-u--TokType_TokenKind_PathTokenKind arg-355)) (lambda (u--kind) (lambda (arg-356) (LibrariesC-45UtilsC-45Path-u--tokValue_TokenKind_PathTokenKind u--kind arg-356))))) (vector 1 #\\)) (lambda () (LibrariesC-45TextC-45Parser-match (cons (cons (lambda (arg-2) (lambda (arg-3) (LibrariesC-45UtilsC-45Path-u--C-61C-61_Eq_PathTokenKind arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (LibrariesC-45UtilsC-45Path-u--C-47C-61_Eq_PathTokenKind arg-4 arg-5)))) (cons (lambda (arg-355) (LibrariesC-45UtilsC-45Path-u--TokType_TokenKind_PathTokenKind arg-355)) (lambda (u--kind) (lambda (arg-356) (LibrariesC-45UtilsC-45Path-u--tokValue_TokenKind_PathTokenKind u--kind arg-356))))) (vector 1 #\/)))))) -(define LibrariesC-45UtilsC-45Path-appendC-39 (lambda (arg-0 arg-1) (LibrariesC-45UtilsC-45Path-case--appendC-39-1313 arg-1 arg-0 (PreludeC-45Basics-C-124C-124 (LibrariesC-45UtilsC-45Path-isAbsoluteC-39 arg-1) (lambda () (DataC-45Maybe-isJust (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) e-0)))))))) -(define LibrariesC-45UtilsC-45Path-C-60C-47C-62 (lambda (arg-0 arg-1) (LibrariesC-45UtilsC-45Path-u--show_Show_Path (LibrariesC-45UtilsC-45Path-C-47C-62 (LibrariesC-45UtilsC-45Path-parse arg-0) arg-1)))) -(define LibrariesC-45UtilsC-45Path-C-60C-46C-62 (lambda (arg-0 arg-1) (let ((u--pathC-39 (LibrariesC-45UtilsC-45Path-parse arg-0))) (let ((u--ext (PreludeC-45Types-fastPack (DataC-45List-dropWhile (lambda (u--char) (PreludeC-45Basics-C-124C-124 (PreludeC-45EqOrd-u--C-61C-61_Eq_Char u--char #\.) (lambda () (PreludeC-45Types-isSpace u--char)))) (PreludeC-45Types-fastUnpack arg-1))))) (let ((ext-0 (LibrariesC-45UtilsC-45Path-case--C-60C-46C-62-2040 arg-1 arg-0 u--pathC-39 u--ext (PreludeC-45EqOrd-u--C-61C-61_Eq_String u--ext "")))) (LibrariesC-45UtilsC-45Path-case--C-60C-46C-62-2066 arg-1 arg-0 u--pathC-39 u--ext ext-0 (LibrariesC-45UtilsC-45Path-fileNameC-39 u--pathC-39))))))) -(define LibrariesC-45UtilsC-45Path-C-47C-62 (lambda (arg-0 arg-1) (LibrariesC-45UtilsC-45Path-appendC-39 arg-0 (LibrariesC-45UtilsC-45Path-parse arg-1)))) +(define SystemC-45Clock-with--clockTime-4193 (lambda (arg-0 arg-1 ext-0) (cond ((equal? arg-1 0) (let ((act-24 (SystemC-45Clock-fetchOSClock arg-0 ext-0))) (SystemC-45Clock-fromOSClock arg-0 act-24 ext-0))) (else (let ((act-24 (SystemC-45Clock-fetchOSClock arg-0 ext-0))) (let ((act-25 (PreludeC-45IO-u--map_Functor_IO (lambda (arg-2) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 (blodwen-toSignedInt 1 63))) (lambda (eta-0) (SystemC-45Clock-osClockValid act-24 eta-0)) ext-0))) (cond ((equal? act-25 1) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (box eta-0)) (lambda (eta-0) (SystemC-45Clock-fromOSClock arg-0 act-24 eta-0)) ext-0)) (else '())))))))) +(define SystemC-45Clock-seconds (lambda (arg-1) (let ((e-1 (vector-ref arg-1 1))) e-1))) +(define SystemC-45Clock-osClockValid (lambda (arg-0 ext-0) (SystemC-45Clock-prim__osClockValid arg-0 ext-0))) +(define SystemC-45Clock-osClockSecond (lambda (arg-0 ext-0) (SystemC-45Clock-prim__osClockSecond arg-0 ext-0))) +(define SystemC-45Clock-osClockNanosecond (lambda (arg-0 ext-0) (SystemC-45Clock-prim__osClockNanosecond arg-0 ext-0))) +(define SystemC-45Clock-nanoseconds (lambda (arg-1) (let ((e-2 (vector-ref arg-1 2))) e-2))) +(define SystemC-45Clock-isClockMandatory (lambda (arg-0) (cond ((equal? arg-0 5) 1) ((equal? arg-0 6) 1)(else 0)))) +(define SystemC-45Clock-fromOSClock (lambda (arg-0 arg-1 ext-0) (let ((act-24 (SystemC-45Clock-osClockSecond arg-1 ext-0))) (let ((act-25 (SystemC-45Clock-osClockNanosecond arg-1 ext-0))) (vector arg-0 (PreludeC-45Cast-u--cast_Cast_Bits64_Integer act-24) (PreludeC-45Cast-u--cast_Cast_Bits64_Integer act-25)))))) +(define SystemC-45Clock-fetchOSClock (lambda (arg-0 ext-0) (cond ((equal? arg-0 0) (SystemC-45Clock-clockTimeUtc ext-0)) ((equal? arg-0 1) (SystemC-45Clock-clockTimeMonotonic ext-0)) ((equal? arg-0 3) (SystemC-45Clock-clockTimeProcess ext-0)) ((equal? arg-0 4) (SystemC-45Clock-clockTimeThread ext-0)) ((equal? arg-0 5) (SystemC-45Clock-clockTimeGcCpu ext-0)) ((equal? arg-0 6) (SystemC-45Clock-clockTimeGcReal ext-0)) (else (SystemC-45Clock-clockTimeMonotonic ext-0))))) +(define SystemC-45Clock-clockTimeUtc (lambda (ext-0) (SystemC-45Clock-prim__clockTimeUtc ext-0))) +(define SystemC-45Clock-clockTimeThread (lambda (ext-0) (SystemC-45Clock-prim__clockTimeThread ext-0))) +(define SystemC-45Clock-clockTimeProcess (lambda (ext-0) (SystemC-45Clock-prim__clockTimeProcess ext-0))) +(define SystemC-45Clock-clockTimeMonotonic (lambda (ext-0) (SystemC-45Clock-prim__clockTimeMonotonic ext-0))) +(define SystemC-45Clock-clockTimeGcReal (lambda (ext-0) (SystemC-45Clock-prim__clockTimeGcReal ext-0))) +(define SystemC-45Clock-clockTimeGcCpu (lambda (ext-0) (SystemC-45Clock-prim__clockTimeGcCpu ext-0))) +(define SystemC-45Clock-clockTime (lambda (arg-0 ext-0) (SystemC-45Clock-with--clockTime-4193 arg-0 (SystemC-45Clock-isClockMandatory arg-0) ext-0))) +(define LibrariesC-45TextC-45DistanceC-45Levenshtein-compute (lambda (arg-1 arg-2 arg-3) (let ((u--w (DataC-45String-strLength arg-2))) (let ((u--h (DataC-45String-strLength arg-3))) (let ((e-1 (car arg-1))) (let ((e-4 (vector-ref e-1 1))) ((((e-4 'erased) 'erased) (LibrariesC-45DataC-45IOMatrix-new arg-1 (bs+ u--w 1 63) (bs+ u--h 1 63))) (lambda (u--mat) (PreludeC-45Interfaces-C-62C-62 (let ((e-7 (car arg-1))) e-7) (PreludeC-45Interfaces-for_ (cons (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (let ((e-7 (car arg-1))) (let ((e-10 (vector-ref e-7 0))) e-10))) (PreludeC-45Types-u--rangeFromTo_Range_C-36a (cons (vector (vector (lambda (arg-4) (lambda (arg-5) (bs+ arg-4 arg-5 63))) (lambda (arg-4) (lambda (arg-5) (bs* arg-4 arg-5 63))) (lambda (arg-6) (blodwen-toSignedInt arg-6 63))) (lambda (arg-157) (lambda (arg-158) (PreludeC-45Num-u--div_Integral_Int arg-157 arg-158))) (lambda (arg-159) (lambda (arg-160) (PreludeC-45Num-u--mod_Integral_Int arg-159 arg-160)))) (cons (vector (cons (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) (vector (vector (lambda (arg-4) (lambda (arg-5) (bs+ arg-4 arg-5 63))) (lambda (arg-4) (lambda (arg-5) (bs* arg-4 arg-5 63))) (lambda (arg-6) (blodwen-toSignedInt arg-6 63))) (lambda (arg-45) (PreludeC-45Num-u--negate_Neg_Int arg-45)) (lambda (arg-46) (lambda (arg-47) (PreludeC-45Num-u--C-45_Neg_Int arg-46 arg-47)))))) 0 u--w) (lambda (u--i) (LibrariesC-45DataC-45IOMatrix-write arg-1 u--mat u--i 0 u--i))) (lambda () (PreludeC-45Interfaces-C-62C-62 (let ((e-7 (car arg-1))) e-7) (PreludeC-45Interfaces-for_ (cons (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (let ((e-7 (car arg-1))) (let ((e-10 (vector-ref e-7 0))) e-10))) (PreludeC-45Types-u--rangeFromTo_Range_C-36a (cons (vector (vector (lambda (arg-4) (lambda (arg-5) (bs+ arg-4 arg-5 63))) (lambda (arg-4) (lambda (arg-5) (bs* arg-4 arg-5 63))) (lambda (arg-6) (blodwen-toSignedInt arg-6 63))) (lambda (arg-157) (lambda (arg-158) (PreludeC-45Num-u--div_Integral_Int arg-157 arg-158))) (lambda (arg-159) (lambda (arg-160) (PreludeC-45Num-u--mod_Integral_Int arg-159 arg-160)))) (cons (vector (cons (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) (vector (vector (lambda (arg-4) (lambda (arg-5) (bs+ arg-4 arg-5 63))) (lambda (arg-4) (lambda (arg-5) (bs* arg-4 arg-5 63))) (lambda (arg-6) (blodwen-toSignedInt arg-6 63))) (lambda (arg-45) (PreludeC-45Num-u--negate_Neg_Int arg-45)) (lambda (arg-46) (lambda (arg-47) (PreludeC-45Num-u--C-45_Neg_Int arg-46 arg-47)))))) 0 u--h) (lambda (u--j) (LibrariesC-45DataC-45IOMatrix-write arg-1 u--mat 0 u--j u--j))) (let ((u--get (lambda (u--i) (lambda (u--j) (let ((e-7 (car arg-1))) (let ((e-9 (vector-ref e-7 1))) ((((e-9 'erased) 'erased) (LibrariesC-45DataC-45IOMatrix-read arg-1 u--mat u--i u--j)) (lambda (bind-0) (if (null? bind-0) (Builtin-idris_crash "INTERNAL ERROR: Badly initialised matrix") (let ((e-11 (unbox bind-0))) (let ((e-13 (car arg-1))) (let ((e-16 (vector-ref e-13 0))) (let ((e-18 (vector-ref e-16 1))) ((e-18 'erased) e-11)))))))))))))) (lambda () (PreludeC-45Interfaces-C-62C-62 (let ((e-7 (car arg-1))) e-7) (PreludeC-45Interfaces-for_ (cons (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (let ((e-7 (car arg-1))) (let ((e-10 (vector-ref e-7 0))) e-10))) (PreludeC-45Types-u--rangeFromTo_Range_C-36a (cons (vector (vector (lambda (arg-4) (lambda (arg-5) (bs+ arg-4 arg-5 63))) (lambda (arg-4) (lambda (arg-5) (bs* arg-4 arg-5 63))) (lambda (arg-6) (blodwen-toSignedInt arg-6 63))) (lambda (arg-157) (lambda (arg-158) (PreludeC-45Num-u--div_Integral_Int arg-157 arg-158))) (lambda (arg-159) (lambda (arg-160) (PreludeC-45Num-u--mod_Integral_Int arg-159 arg-160)))) (cons (vector (cons (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) (vector (vector (lambda (arg-4) (lambda (arg-5) (bs+ arg-4 arg-5 63))) (lambda (arg-4) (lambda (arg-5) (bs* arg-4 arg-5 63))) (lambda (arg-6) (blodwen-toSignedInt arg-6 63))) (lambda (arg-45) (PreludeC-45Num-u--negate_Neg_Int arg-45)) (lambda (arg-46) (lambda (arg-47) (PreludeC-45Num-u--C-45_Neg_Int arg-46 arg-47)))))) 1 u--h) (lambda (u--j) (PreludeC-45Interfaces-for_ (cons (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (let ((e-7 (car arg-1))) (let ((e-10 (vector-ref e-7 0))) e-10))) (PreludeC-45Types-u--rangeFromTo_Range_C-36a (cons (vector (vector (lambda (arg-4) (lambda (arg-5) (bs+ arg-4 arg-5 63))) (lambda (arg-4) (lambda (arg-5) (bs* arg-4 arg-5 63))) (lambda (arg-6) (blodwen-toSignedInt arg-6 63))) (lambda (arg-157) (lambda (arg-158) (PreludeC-45Num-u--div_Integral_Int arg-157 arg-158))) (lambda (arg-159) (lambda (arg-160) (PreludeC-45Num-u--mod_Integral_Int arg-159 arg-160)))) (cons (vector (cons (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) (vector (vector (lambda (arg-4) (lambda (arg-5) (bs+ arg-4 arg-5 63))) (lambda (arg-4) (lambda (arg-5) (bs* arg-4 arg-5 63))) (lambda (arg-6) (blodwen-toSignedInt arg-6 63))) (lambda (arg-45) (PreludeC-45Num-u--negate_Neg_Int arg-45)) (lambda (arg-46) (lambda (arg-47) (PreludeC-45Num-u--C-45_Neg_Int arg-46 arg-47)))))) 1 u--w) (lambda (u--i) (let ((u--cost (let ((u--c (DataC-45String-strIndex arg-2 (PreludeC-45Num-u--C-45_Neg_Int u--i 1)))) (let ((u--d (DataC-45String-strIndex arg-3 (PreludeC-45Num-u--C-45_Neg_Int u--j 1)))) (let ((sc1 (PreludeC-45EqOrd-u--C-61C-61_Eq_Char u--c u--d))) (cond ((equal? sc1 1) (blodwen-toSignedInt 0 63)) (else (let ((sc2 (let ((sc3 (PreludeC-45Types-isAlpha u--c))) (cond ((equal? sc3 1) (PreludeC-45Types-isAlpha u--d)) (else 0))))) (cond ((equal? sc2 1) (blodwen-toSignedInt 1 63)) (else (let ((sc3 (let ((sc4 (PreludeC-45Types-isDigit u--c))) (cond ((equal? sc4 1) (PreludeC-45Types-isDigit u--d)) (else 0))))) (cond ((equal? sc3 1) (blodwen-toSignedInt 1 63)) (else (blodwen-toSignedInt 2 63)))))))))))))) (let ((e-7 (car arg-1))) (let ((e-9 (vector-ref e-7 1))) ((((e-9 'erased) 'erased) ((u--get u--i) (PreludeC-45Num-u--C-45_Neg_Int u--j 1))) (lambda (bind-0) (let ((e-12 (car arg-1))) (let ((e-14 (vector-ref e-12 1))) ((((e-14 'erased) 'erased) ((u--get (PreludeC-45Num-u--C-45_Neg_Int u--i 1)) u--j)) (lambda (bind-1) (let ((e-17 (car arg-1))) (let ((e-19 (vector-ref e-17 1))) ((((e-19 'erased) 'erased) ((u--get (PreludeC-45Num-u--C-45_Neg_Int u--i 1)) (PreludeC-45Num-u--C-45_Neg_Int u--j 1))) (lambda (bind-2) (LibrariesC-45DataC-45IOMatrix-write arg-1 u--mat u--i u--j (LibrariesC-45DataC-45ListC-45Extra-minimum (vector (cons (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) (cons (bs+ (blodwen-toSignedInt 1 63) bind-0 63) (cons (bs+ (blodwen-toSignedInt 1 63) bind-1 63) (cons (bs+ u--cost bind-2 63) '())))))))))))))))))))))) (lambda () (PreludeC-45Interfaces-C-60C-36C-62 (let ((e-7 (car arg-1))) (let ((e-10 (vector-ref e-7 0))) (let ((e-13 (vector-ref e-10 0))) e-13))) (lambda (eta-0) (PreludeC-45Types-prim__integerToNat (PreludeC-45Cast-u--cast_Cast_Int_Integer eta-0))) ((u--get u--w) u--h))))))))))))))))) +(define LibrariesC-45DataC-45ListC-45Extra-case--diffBy-2841 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5) (let ((e-2 (car arg-5))) (let ((e-3 (cdr arg-5))) (let ((e-6 (car e-3))) (let ((e-7 (cdr e-3))) (let ((u--ysC-39 (PreludeC-45TypesC-45List-C-43C-43 e-2 e-7))) (if (null? e-6) (cons arg-1 (LibrariesC-45DataC-45ListC-45Extra-diffBy arg-4 arg-2 u--ysC-39)) (LibrariesC-45DataC-45ListC-45Extra-diffBy arg-4 arg-2 u--ysC-39))))))))) +(define LibrariesC-45DataC-45ListC-45Extra-case--splitAfter-2634 (lambda (arg-1 arg-2 arg-3) (let ((e-2 (car arg-3))) (let ((e-3 (cdr arg-3))) (if (null? e-3) (DataC-45List1-singleton e-2) (DataC-45List1-cons e-2 (LibrariesC-45DataC-45ListC-45Extra-splitAfter arg-2 e-3))))))) +(define LibrariesC-45DataC-45ListC-45Extra-splitAfter (lambda (arg-1 arg-2) (LibrariesC-45DataC-45ListC-45Extra-case--splitAfter-2634 arg-2 arg-1 (LibrariesC-45DataC-45ListC-45Extra-breakAfter arg-1 arg-2)))) +(define LibrariesC-45DataC-45ListC-45Extra-sortedNub (lambda (arg-1 ext-0) (LibrariesC-45DataC-45ListC-45Extra-dedup (let ((e-1 (vector-ref arg-1 0))) e-1) (DataC-45List-sort arg-1 ext-0)))) +(define LibrariesC-45DataC-45ListC-45Extra-minimum (lambda (arg-1 arg-2) (let ((e-1 (car arg-2))) (let ((e-2 (cdr arg-2))) (PreludeC-45Types-u--foldl_Foldable_List (lambda (eta-0) (lambda (eta-1) (let ((e-8 (vector-ref arg-1 7))) ((e-8 eta-0) eta-1)))) e-1 e-2))))) +(define LibrariesC-45DataC-45ListC-45Extra-findByC-39 (lambda (arg-1 arg-2) (if (null? arg-2) (cons '() (cons '() '())) (let ((e-2 (car arg-2))) (let ((e-3 (cdr arg-2))) (let ((sc1 (arg-1 e-2))) (cond ((equal? sc1 1) (cons '() (cons (box e-2) e-3))) (else (let ((sc2 (LibrariesC-45DataC-45ListC-45Extra-findByC-39 arg-1 e-3))) (let ((e-5 (car sc2))) (let ((e-4 (cdr sc2))) (let ((e-6 (car e-4))) (let ((e-7 (cdr e-4))) (cons (cons e-2 e-5) (cons e-6 e-7))))))))))))))) +(define LibrariesC-45DataC-45ListC-45Extra-findBy (lambda (arg-2 arg-3) (if (null? arg-3) '() (let ((e-2 (car arg-3))) (let ((e-3 (cdr arg-3))) (let ((sc1 (arg-2 e-2))) (if (null? sc1) (LibrariesC-45DataC-45ListC-45Extra-findBy arg-2 e-3) (let ((e-4 (unbox sc1))) (PreludeC-45Types-u--pure_Applicative_Maybe e-4))))))))) +(define LibrariesC-45DataC-45ListC-45Extra-elemAt (lambda (arg-1 arg-2) (if (null? arg-1) '() (let ((e-2 (car arg-1))) (let ((e-3 (cdr arg-1))) (cond ((equal? arg-2 0) (box e-2))(else (let ((e-4 (- arg-2 1))) (LibrariesC-45DataC-45ListC-45Extra-elemAt e-3 e-4))))))))) +(define LibrariesC-45DataC-45ListC-45Extra-diffBy (lambda (arg-1 arg-2 arg-3) (if (null? arg-2) '() (let ((e-2 (car arg-2))) (let ((e-3 (cdr arg-2))) (LibrariesC-45DataC-45ListC-45Extra-case--diffBy-2841 e-2 e-3 arg-3 arg-1 (LibrariesC-45DataC-45ListC-45Extra-findByC-39 (arg-1 e-2) arg-3))))))) +(define LibrariesC-45DataC-45ListC-45Extra-dedup (lambda (arg-1 arg-2) (if (null? arg-2) arg-2 (let ((e-1 (car arg-2))) (let ((e-2 (cdr arg-2))) (if (null? e-2) arg-2 (let ((e-4 (car e-2))) (let ((e-5 (cdr e-2))) (let ((u--xs (cons e-4 e-5))) (let ((sc2 (let ((e-6 (car arg-1))) ((e-6 e-1) e-4)))) (cond ((equal? sc2 1) (LibrariesC-45DataC-45ListC-45Extra-dedup arg-1 u--xs)) (else (cons e-1 (LibrariesC-45DataC-45ListC-45Extra-dedup arg-1 u--xs)))))))))))))) +(define LibrariesC-45DataC-45ListC-45Extra-breakAfter (lambda (arg-1 arg-2) (if (null? arg-2) (cons '() '()) (let ((e-2 (car arg-2))) (let ((e-3 (cdr arg-2))) (let ((sc1 (arg-1 e-2))) (cond ((equal? sc1 1) (cons (cons e-2 '()) e-3)) (else (let ((sc2 (LibrariesC-45DataC-45ListC-45Extra-breakAfter arg-1 e-3))) (let ((e-5 (car sc2))) (let ((e-4 (cdr sc2))) (cons (cons e-2 e-5) e-4)))))))))))) +(define LibrariesC-45DataC-45IOMatrix-write (lambda (arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 (LibrariesC-45DataC-45IOMatrix-toPosition arg-3 arg-4 arg-5))) (if (null? sc0) (let ((e-1 (car arg-2))) (let ((e-5 (vector-ref e-1 0))) (let ((e-7 (vector-ref e-5 1))) ((e-7 'erased) 0)))) (let ((e-2 (unbox sc0))) (PreludeC-45Interfaces-C-60C-36 (let ((e-1 (car arg-2))) (let ((e-6 (vector-ref e-1 0))) (let ((e-9 (vector-ref e-6 0))) e-9))) 1 (let ((e-3 (cdr arg-2))) ((e-3 'erased) (lambda (eta-0) (vector-set! (let ((e-4 (vector-ref arg-3 2))) e-4) e-2 (box arg-6))))))))))) +(define LibrariesC-45DataC-45IOMatrix-toPosition (lambda (arg-1 arg-2 arg-3) (let ((e-1 (vector-ref arg-1 0))) (let ((e-2 (vector-ref arg-1 1))) (PreludeC-45Interfaces-C-62C-62 (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (PreludeC-45Types-u--map_Functor_Maybe u--func arg-133))))) (lambda (u--a) (lambda (arg-527) (PreludeC-45Types-u--pure_Applicative_Maybe arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (PreludeC-45Types-u--C-60C-42C-62_Applicative_Maybe arg-528 arg-530)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe arg-811 arg-812))))) (lambda (u--a) (lambda (arg-814) (PreludeC-45Types-u--join_Monad_Maybe arg-814)))) (PreludeC-45Interfaces-guard (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (PreludeC-45Types-u--map_Functor_Maybe u--func arg-133))))) (lambda (u--a) (lambda (arg-527) (PreludeC-45Types-u--pure_Applicative_Maybe arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (PreludeC-45Types-u--C-60C-42C-62_Applicative_Maybe arg-528 arg-530)))))) (lambda (u--a) (PreludeC-45Types-u--empty_Alternative_Maybe)) (lambda (u--a) (lambda (arg-763) (lambda (arg-764) (PreludeC-45Types-u--C-60C-124C-62_Alternative_Maybe arg-763 arg-764))))) (let ((sc0 (let ((sc1 (PreludeC-45EqOrd-u--C-60_Ord_Int arg-2 (blodwen-toSignedInt 0 63)))) (cond ((equal? sc1 1) 1) (else (let ((sc2 (PreludeC-45EqOrd-u--C-60_Ord_Int arg-3 (blodwen-toSignedInt 0 63)))) (cond ((equal? sc2 1) 1) (else (let ((sc3 (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-2 e-1))) (cond ((equal? sc3 1) 1) (else (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-3 e-2)))))))))))) (cond ((equal? sc0 1) 0) (else 1)))) (lambda () (PreludeC-45Types-u--pure_Applicative_Maybe (bs+ (bs* arg-2 e-2 63) arg-3 63)))))))) +(define LibrariesC-45DataC-45IOMatrix-read (lambda (arg-2 arg-3 arg-4 arg-5) (let ((sc0 (LibrariesC-45DataC-45IOMatrix-toPosition arg-3 arg-4 arg-5))) (if (null? sc0) (let ((e-1 (car arg-2))) (let ((e-5 (vector-ref e-1 0))) (let ((e-7 (vector-ref e-5 1))) ((e-7 'erased) '())))) (let ((e-2 (unbox sc0))) (let ((e-3 (cdr arg-2))) ((e-3 'erased) (lambda (eta-0) (vector-ref (let ((e-4 (vector-ref arg-3 2))) e-4) e-2))))))))) +(define LibrariesC-45DataC-45IOMatrix-new (lambda (arg-2 arg-3 arg-4) (let ((e-1 (car arg-2))) (let ((e-4 (vector-ref e-1 1))) ((((e-4 'erased) 'erased) (let ((e-6 (cdr arg-2))) ((e-6 'erased) (lambda (eta-0) (make-vector (bs* arg-3 arg-4 63) '()))))) (lambda (bind-0) (let ((e-7 (car arg-2))) (let ((e-10 (vector-ref e-7 0))) (let ((e-12 (vector-ref e-10 1))) ((e-12 'erased) (vector arg-3 arg-4 bind-0))))))))))) +(define LibrariesC-45DataC-45IntMap-n--4350-2397-u--treeToListC-39 (lambda (arg-3 arg-4) (case (vector-ref arg-4 0) ((0) (let ((e-1 (vector-ref arg-4 1))) (let ((e-2 (vector-ref arg-4 2))) (cons (cons e-1 e-2) arg-3)))) ((1) (let ((e-5 (vector-ref arg-4 1))) (let ((e-7 (vector-ref arg-4 3))) (LibrariesC-45DataC-45IntMap-n--4350-2397-u--treeToListC-39 (LibrariesC-45DataC-45IntMap-n--4350-2397-u--treeToListC-39 arg-3 e-7) e-5)))) (else (let ((e-10 (vector-ref arg-4 1))) (let ((e-12 (vector-ref arg-4 3))) (let ((e-14 (vector-ref arg-4 5))) (LibrariesC-45DataC-45IntMap-n--4350-2397-u--treeToListC-39 (LibrariesC-45DataC-45IntMap-n--4350-2397-u--treeToListC-39 (LibrariesC-45DataC-45IntMap-n--4350-2397-u--treeToListC-39 arg-3 e-14) e-12) e-10)))))))) +(define LibrariesC-45DataC-45IntMap-treeToList (lambda (ext-0) (LibrariesC-45DataC-45IntMap-n--4350-2397-u--treeToListC-39 '() ext-0))) +(define LibrariesC-45DataC-45IntMap-treeLookup (lambda (arg-2 arg-3) (case (vector-ref arg-3 0) ((0) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((sc1 (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 e-1))) (cond ((equal? sc1 1) (box e-2)) (else '())))))) ((1) (let ((e-5 (vector-ref arg-3 1))) (let ((e-6 (vector-ref arg-3 2))) (let ((e-7 (vector-ref arg-3 3))) (let ((sc1 (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-2 e-6))) (cond ((equal? sc1 1) (LibrariesC-45DataC-45IntMap-treeLookup arg-2 e-5)) (else (LibrariesC-45DataC-45IntMap-treeLookup arg-2 e-7)))))))) (else (let ((e-10 (vector-ref arg-3 1))) (let ((e-11 (vector-ref arg-3 2))) (let ((e-12 (vector-ref arg-3 3))) (let ((e-13 (vector-ref arg-3 4))) (let ((e-14 (vector-ref arg-3 5))) (let ((sc1 (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-2 e-11))) (cond ((equal? sc1 1) (LibrariesC-45DataC-45IntMap-treeLookup arg-2 e-10)) (else (let ((sc2 (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-2 e-13))) (cond ((equal? sc2 1) (LibrariesC-45DataC-45IntMap-treeLookup arg-2 e-12)) (else (LibrariesC-45DataC-45IntMap-treeLookup arg-2 e-14)))))))))))))))) +(define LibrariesC-45DataC-45IntMap-treeInsertC-39 (lambda (arg-2 arg-3 arg-4) (case (vector-ref arg-4 0) ((0) (let ((e-1 (vector-ref arg-4 1))) (let ((e-2 (vector-ref arg-4 2))) (let ((sc1 (PreludeC-45EqOrd-u--compare_Ord_Int arg-2 e-1))) (cond ((equal? sc1 0) (vector 1 (cons (vector 0 arg-2 arg-3) (cons arg-2 (vector 0 e-1 e-2))))) ((equal? sc1 1) (vector 0 (vector 0 arg-2 arg-3))) (else (vector 1 (cons (vector 0 e-1 e-2) (cons e-1 (vector 0 arg-2 arg-3)))))))))) ((1) (let ((e-5 (vector-ref arg-4 1))) (let ((e-6 (vector-ref arg-4 2))) (let ((e-7 (vector-ref arg-4 3))) (let ((sc1 (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-2 e-6))) (cond ((equal? sc1 1) (let ((sc2 (LibrariesC-45DataC-45IntMap-treeInsertC-39 arg-2 arg-3 e-5))) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 (vector 1 e-2 e-6 e-7)))) (else (let ((e-8 (vector-ref sc2 1))) (let ((e-10 (car e-8))) (let ((e-9 (cdr e-8))) (let ((e-12 (car e-9))) (let ((e-13 (cdr e-9))) (vector 0 (vector 2 e-10 e-12 e-13 e-6 e-7))))))))))) (else (let ((sc2 (LibrariesC-45DataC-45IntMap-treeInsertC-39 arg-2 arg-3 e-7))) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 (vector 1 e-5 e-6 e-2)))) (else (let ((e-8 (vector-ref sc2 1))) (let ((e-10 (car e-8))) (let ((e-9 (cdr e-8))) (let ((e-12 (car e-9))) (let ((e-13 (cdr e-9))) (vector 0 (vector 2 e-5 e-6 e-10 e-12 e-13))))))))))))))))) (else (let ((e-10 (vector-ref arg-4 1))) (let ((e-11 (vector-ref arg-4 2))) (let ((e-12 (vector-ref arg-4 3))) (let ((e-13 (vector-ref arg-4 4))) (let ((e-14 (vector-ref arg-4 5))) (let ((sc1 (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-2 e-11))) (cond ((equal? sc1 1) (let ((sc2 (LibrariesC-45DataC-45IntMap-treeInsertC-39 arg-2 arg-3 e-10))) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 (vector 2 e-2 e-11 e-12 e-13 e-14)))) (else (let ((e-5 (vector-ref sc2 1))) (let ((e-8 (car e-5))) (let ((e-9 (cdr e-5))) (let ((e-16 (car e-9))) (let ((e-15 (cdr e-9))) (vector 1 (cons (vector 1 e-8 e-16 e-15) (cons e-11 (vector 1 e-12 e-13 e-14))))))))))))) (else (let ((sc2 (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-2 e-13))) (cond ((equal? sc2 1) (let ((sc3 (LibrariesC-45DataC-45IntMap-treeInsertC-39 arg-2 arg-3 e-12))) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 (vector 2 e-10 e-11 e-2 e-13 e-14)))) (else (let ((e-5 (vector-ref sc3 1))) (let ((e-8 (car e-5))) (let ((e-9 (cdr e-5))) (let ((e-16 (car e-9))) (let ((e-15 (cdr e-9))) (vector 1 (cons (vector 1 e-10 e-11 e-8) (cons e-16 (vector 1 e-15 e-13 e-14))))))))))))) (else (let ((sc3 (LibrariesC-45DataC-45IntMap-treeInsertC-39 arg-2 arg-3 e-14))) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 (vector 2 e-10 e-11 e-12 e-13 e-2)))) (else (let ((e-5 (vector-ref sc3 1))) (let ((e-8 (car e-5))) (let ((e-9 (cdr e-5))) (let ((e-16 (car e-9))) (let ((e-15 (cdr e-9))) (vector 1 (cons (vector 1 e-10 e-11 e-12) (cons e-13 (vector 1 e-8 e-16 e-15))))))))))))))))))))))))))) +(define LibrariesC-45DataC-45IntMap-treeInsert (lambda (arg-2 arg-3 arg-4) (let ((sc0 (LibrariesC-45DataC-45IntMap-treeInsertC-39 arg-2 arg-3 arg-4))) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((e-8 (car e-5))) (let ((e-9 (cdr e-5))) (let ((e-12 (car e-9))) (let ((e-13 (cdr e-9))) (vector 1 (vector 1 e-8 e-12 e-13)))))))))))) +(define LibrariesC-45DataC-45IntMap-treeDelete (lambda (arg-1 arg-2 arg-3) (cond ((equal? arg-1 0) (let ((e-2 (vector-ref arg-3 1))) (let ((e-3 (vector-ref arg-3 2))) (let ((sc2 (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 e-2))) (cond ((equal? sc2 1) (vector 1 0)) (else (vector 0 (vector 0 e-2 e-3))))))))(else (let ((e-0 (- arg-1 1))) (cond ((equal? e-0 0) (case (vector-ref arg-3 0) ((1) (let ((e-7 (vector-ref arg-3 1))) (let ((e-8 (vector-ref arg-3 2))) (let ((e-9 (vector-ref arg-3 3))) (let ((sc2 (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-2 e-8))) (cond ((equal? sc2 1) (let ((sc3 (LibrariesC-45DataC-45IntMap-treeDelete 0 arg-2 e-7))) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 (vector 1 e-2 e-8 e-9)))) (else (let ((e-5 (vector-ref sc3 1))) (cond (else (vector 1 e-9)))))))) (else (let ((sc3 (LibrariesC-45DataC-45IntMap-treeDelete 0 arg-2 e-9))) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 (vector 1 e-7 e-8 e-2)))) (else (let ((e-5 (vector-ref sc3 1))) (cond (else (vector 1 e-7)))))))))))))) (else (let ((e-12 (vector-ref arg-3 1))) (let ((e-13 (vector-ref arg-3 2))) (let ((e-14 (vector-ref arg-3 3))) (let ((e-15 (vector-ref arg-3 4))) (let ((e-16 (vector-ref arg-3 5))) (let ((sc2 (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-2 e-13))) (cond ((equal? sc2 1) (let ((sc3 (LibrariesC-45DataC-45IntMap-treeDelete 0 arg-2 e-12))) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 (vector 2 e-2 e-13 e-14 e-15 e-16)))) (else (let ((e-5 (vector-ref sc3 1))) (cond (else (vector 0 (vector 1 e-14 e-15 e-16))))))))) (else (let ((sc3 (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-2 e-15))) (cond ((equal? sc3 1) (let ((sc4 (LibrariesC-45DataC-45IntMap-treeDelete 0 arg-2 e-14))) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 (vector 2 e-12 e-13 e-2 e-15 e-16)))) (else (let ((e-5 (vector-ref sc4 1))) (cond (else (vector 0 (vector 1 e-12 e-13 e-16))))))))) (else (let ((sc4 (LibrariesC-45DataC-45IntMap-treeDelete 0 arg-2 e-16))) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 (vector 2 e-12 e-13 e-14 e-15 e-2)))) (else (let ((e-5 (vector-ref sc4 1))) (cond (else (vector 0 (vector 1 e-12 e-13 e-14))))))))))))))))))))))(else (let ((e-4 (- e-0 1))) (case (vector-ref arg-3 0) ((1) (let ((e-19 (vector-ref arg-3 1))) (let ((e-20 (vector-ref arg-3 2))) (let ((e-21 (vector-ref arg-3 3))) (let ((sc1 (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-2 e-20))) (cond ((equal? sc1 1) (let ((sc2 (LibrariesC-45DataC-45IntMap-treeDelete (+ 1 e-4) arg-2 e-19))) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 (vector 1 e-2 e-20 e-21)))) (else (let ((e-5 (vector-ref sc2 1))) (case (vector-ref e-21 0) ((1) (let ((e-2 (vector-ref e-21 1))) (let ((e-3 (vector-ref e-21 2))) (let ((e-6 (vector-ref e-21 3))) (vector 1 (vector 2 e-5 e-20 e-2 e-3 e-6)))))) (else (let ((e-7 (vector-ref e-21 1))) (let ((e-8 (vector-ref e-21 2))) (let ((e-9 (vector-ref e-21 3))) (let ((e-10 (vector-ref e-21 4))) (let ((e-11 (vector-ref e-21 5))) (vector 0 (LibrariesC-45DataC-45IntMap-branch4 e-5 e-20 e-7 e-8 e-9 e-10 e-11)))))))))))))) (else (let ((sc2 (LibrariesC-45DataC-45IntMap-treeDelete (+ 1 e-4) arg-2 e-21))) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 (vector 1 e-19 e-20 e-2)))) (else (let ((e-5 (vector-ref sc2 1))) (case (vector-ref e-19 0) ((1) (let ((e-2 (vector-ref e-19 1))) (let ((e-3 (vector-ref e-19 2))) (let ((e-6 (vector-ref e-19 3))) (vector 1 (vector 2 e-2 e-3 e-6 e-20 e-5)))))) (else (let ((e-7 (vector-ref e-19 1))) (let ((e-8 (vector-ref e-19 2))) (let ((e-9 (vector-ref e-19 3))) (let ((e-10 (vector-ref e-19 4))) (let ((e-11 (vector-ref e-19 5))) (vector 0 (LibrariesC-45DataC-45IntMap-branch4 e-7 e-8 e-9 e-10 e-11 e-20 e-5)))))))))))))))))))) (else (let ((e-24 (vector-ref arg-3 1))) (let ((e-25 (vector-ref arg-3 2))) (let ((e-26 (vector-ref arg-3 3))) (let ((e-27 (vector-ref arg-3 4))) (let ((e-28 (vector-ref arg-3 5))) (let ((sc1 (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-2 e-25))) (cond ((equal? sc1 1) (let ((sc2 (LibrariesC-45DataC-45IntMap-treeDelete (+ 1 e-4) arg-2 e-24))) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 (vector 2 e-2 e-25 e-26 e-27 e-28)))) (else (let ((e-5 (vector-ref sc2 1))) (vector 0 (LibrariesC-45DataC-45IntMap-merge1 e-5 e-25 e-26 e-27 e-28))))))) (else (let ((sc2 (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-2 e-27))) (cond ((equal? sc2 1) (let ((sc3 (LibrariesC-45DataC-45IntMap-treeDelete (+ 1 e-4) arg-2 e-26))) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 (vector 2 e-24 e-25 e-2 e-27 e-28)))) (else (let ((e-5 (vector-ref sc3 1))) (vector 0 (LibrariesC-45DataC-45IntMap-merge2 e-24 e-25 e-5 e-27 e-28))))))) (else (let ((sc3 (LibrariesC-45DataC-45IntMap-treeDelete (+ 1 e-4) arg-2 e-28))) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 (vector 2 e-24 e-25 e-26 e-27 e-2)))) (else (let ((e-5 (vector-ref sc3 1))) (vector 0 (LibrariesC-45DataC-45IntMap-merge3 e-24 e-25 e-26 e-27 e-5))))))))))))))))))))))))))) +(define LibrariesC-45DataC-45IntMap-toList (lambda (arg-1) (if (null? arg-1) '() (let ((e-3 (cdr arg-1))) (LibrariesC-45DataC-45IntMap-treeToList e-3))))) +(define LibrariesC-45DataC-45IntMap-merge3 (lambda (arg-2 arg-3 arg-4 arg-5 arg-6) (case (vector-ref arg-2 0) ((1) (let ((e-2 (vector-ref arg-2 1))) (let ((e-3 (vector-ref arg-2 2))) (let ((e-4 (vector-ref arg-2 3))) (case (vector-ref arg-4 0) ((1) (let ((e-14 (vector-ref arg-4 1))) (let ((e-15 (vector-ref arg-4 2))) (let ((e-16 (vector-ref arg-4 3))) (LibrariesC-45DataC-45IntMap-branch5 e-2 e-3 e-4 arg-3 e-14 e-15 e-16 arg-5 arg-6))))) (else (let ((e-19 (vector-ref arg-4 1))) (let ((e-20 (vector-ref arg-4 2))) (let ((e-21 (vector-ref arg-4 3))) (let ((e-22 (vector-ref arg-4 4))) (let ((e-23 (vector-ref arg-4 5))) (LibrariesC-45DataC-45IntMap-branch6 e-2 e-3 e-4 arg-3 e-19 e-20 e-21 e-22 e-23 arg-5 arg-6)))))))))))) (else (let ((e-7 (vector-ref arg-2 1))) (let ((e-8 (vector-ref arg-2 2))) (let ((e-9 (vector-ref arg-2 3))) (let ((e-10 (vector-ref arg-2 4))) (let ((e-11 (vector-ref arg-2 5))) (case (vector-ref arg-4 0) ((1) (let ((e-26 (vector-ref arg-4 1))) (let ((e-27 (vector-ref arg-4 2))) (let ((e-28 (vector-ref arg-4 3))) (LibrariesC-45DataC-45IntMap-branch6 e-7 e-8 e-9 e-10 e-11 arg-3 e-26 e-27 e-28 arg-5 arg-6))))) (else (let ((e-31 (vector-ref arg-4 1))) (let ((e-32 (vector-ref arg-4 2))) (let ((e-33 (vector-ref arg-4 3))) (let ((e-34 (vector-ref arg-4 4))) (let ((e-35 (vector-ref arg-4 5))) (LibrariesC-45DataC-45IntMap-branch7 e-7 e-8 e-9 e-10 e-11 arg-3 e-31 e-32 e-33 e-34 e-35 arg-5 arg-6))))))))))))))))) +(define LibrariesC-45DataC-45IntMap-merge2 (lambda (arg-2 arg-3 arg-4 arg-5 arg-6) (case (vector-ref arg-2 0) ((1) (let ((e-2 (vector-ref arg-2 1))) (let ((e-3 (vector-ref arg-2 2))) (let ((e-4 (vector-ref arg-2 3))) (case (vector-ref arg-6 0) ((1) (let ((e-14 (vector-ref arg-6 1))) (let ((e-15 (vector-ref arg-6 2))) (let ((e-16 (vector-ref arg-6 3))) (LibrariesC-45DataC-45IntMap-branch5 e-2 e-3 e-4 arg-3 arg-4 arg-5 e-14 e-15 e-16))))) (else (let ((e-19 (vector-ref arg-6 1))) (let ((e-20 (vector-ref arg-6 2))) (let ((e-21 (vector-ref arg-6 3))) (let ((e-22 (vector-ref arg-6 4))) (let ((e-23 (vector-ref arg-6 5))) (LibrariesC-45DataC-45IntMap-branch6 e-2 e-3 e-4 arg-3 arg-4 arg-5 e-19 e-20 e-21 e-22 e-23)))))))))))) (else (let ((e-7 (vector-ref arg-2 1))) (let ((e-8 (vector-ref arg-2 2))) (let ((e-9 (vector-ref arg-2 3))) (let ((e-10 (vector-ref arg-2 4))) (let ((e-11 (vector-ref arg-2 5))) (case (vector-ref arg-6 0) ((1) (let ((e-26 (vector-ref arg-6 1))) (let ((e-27 (vector-ref arg-6 2))) (let ((e-28 (vector-ref arg-6 3))) (LibrariesC-45DataC-45IntMap-branch6 e-7 e-8 e-9 e-10 e-11 arg-3 arg-4 arg-5 e-26 e-27 e-28))))) (else (let ((e-31 (vector-ref arg-6 1))) (let ((e-32 (vector-ref arg-6 2))) (let ((e-33 (vector-ref arg-6 3))) (let ((e-34 (vector-ref arg-6 4))) (let ((e-35 (vector-ref arg-6 5))) (LibrariesC-45DataC-45IntMap-branch7 e-7 e-8 e-9 e-10 e-11 arg-3 arg-4 arg-5 e-31 e-32 e-33 e-34 e-35))))))))))))))))) +(define LibrariesC-45DataC-45IntMap-merge1 (lambda (arg-2 arg-3 arg-4 arg-5 arg-6) (case (vector-ref arg-4 0) ((1) (let ((e-2 (vector-ref arg-4 1))) (let ((e-3 (vector-ref arg-4 2))) (let ((e-4 (vector-ref arg-4 3))) (case (vector-ref arg-6 0) ((1) (let ((e-14 (vector-ref arg-6 1))) (let ((e-15 (vector-ref arg-6 2))) (let ((e-16 (vector-ref arg-6 3))) (LibrariesC-45DataC-45IntMap-branch5 arg-2 arg-3 e-2 e-3 e-4 arg-5 e-14 e-15 e-16))))) (else (let ((e-19 (vector-ref arg-6 1))) (let ((e-20 (vector-ref arg-6 2))) (let ((e-21 (vector-ref arg-6 3))) (let ((e-22 (vector-ref arg-6 4))) (let ((e-23 (vector-ref arg-6 5))) (LibrariesC-45DataC-45IntMap-branch6 arg-2 arg-3 e-2 e-3 e-4 arg-5 e-19 e-20 e-21 e-22 e-23)))))))))))) (else (let ((e-7 (vector-ref arg-4 1))) (let ((e-8 (vector-ref arg-4 2))) (let ((e-9 (vector-ref arg-4 3))) (let ((e-10 (vector-ref arg-4 4))) (let ((e-11 (vector-ref arg-4 5))) (case (vector-ref arg-6 0) ((1) (let ((e-26 (vector-ref arg-6 1))) (let ((e-27 (vector-ref arg-6 2))) (let ((e-28 (vector-ref arg-6 3))) (LibrariesC-45DataC-45IntMap-branch6 arg-2 arg-3 e-7 e-8 e-9 e-10 e-11 arg-5 e-26 e-27 e-28))))) (else (let ((e-31 (vector-ref arg-6 1))) (let ((e-32 (vector-ref arg-6 2))) (let ((e-33 (vector-ref arg-6 3))) (let ((e-34 (vector-ref arg-6 4))) (let ((e-35 (vector-ref arg-6 5))) (LibrariesC-45DataC-45IntMap-branch7 arg-2 arg-3 e-7 e-8 e-9 e-10 e-11 arg-5 e-31 e-32 e-33 e-34 e-35))))))))))))))))) +(define LibrariesC-45DataC-45IntMap-lookup (lambda (arg-1 arg-2) (if (null? arg-2) '() (let ((e-3 (cdr arg-2))) (LibrariesC-45DataC-45IntMap-treeLookup arg-1 e-3))))) +(define LibrariesC-45DataC-45IntMap-keys (lambda (ext-0) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-fst eta-0)) (LibrariesC-45DataC-45IntMap-toList ext-0)))) +(define LibrariesC-45DataC-45IntMap-insert (lambda (arg-1 arg-2 arg-3) (if (null? arg-3) (cons 0 (vector 0 arg-1 arg-2)) (let ((e-2 (car arg-3))) (let ((e-3 (cdr arg-3))) (let ((sc1 (LibrariesC-45DataC-45IntMap-treeInsert arg-1 arg-2 e-3))) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (cons e-2 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (cons (+ 1 e-2) e-5)))))))))) +(define LibrariesC-45DataC-45IntMap-empty (lambda () '())) +(define LibrariesC-45DataC-45IntMap-delete (lambda (arg-1 arg-2) (if (null? arg-2) '() (let ((e-2 (car arg-2))) (let ((e-3 (cdr arg-2))) (cond ((equal? e-2 0) (let ((sc2 (LibrariesC-45DataC-45IntMap-treeDelete 0 arg-1 e-3))) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (cons 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (cond (else '())))))))(else (let ((e-4 (- e-2 1))) (let ((sc1 (LibrariesC-45DataC-45IntMap-treeDelete (+ 1 e-4) arg-1 e-3))) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (cons (+ 1 e-4) e-5))) (else (let ((e-5 (vector-ref sc1 1))) (cons e-4 e-5))))))))))))) +(define LibrariesC-45DataC-45IntMap-branch7 (lambda (arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (vector 2 (vector 2 arg-2 arg-3 arg-4 arg-5 arg-6) arg-7 (vector 1 arg-8 arg-9 arg-10) arg-11 (vector 1 arg-12 arg-13 arg-14)))) +(define LibrariesC-45DataC-45IntMap-branch6 (lambda (arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (vector 2 (vector 1 arg-2 arg-3 arg-4) arg-5 (vector 1 arg-6 arg-7 arg-8) arg-9 (vector 1 arg-10 arg-11 arg-12)))) +(define LibrariesC-45DataC-45IntMap-branch5 (lambda (arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (vector 1 (vector 1 arg-2 arg-3 arg-4) arg-5 (vector 2 arg-6 arg-7 arg-8 arg-9 arg-10)))) +(define LibrariesC-45DataC-45IntMap-branch4 (lambda (arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (vector 1 (vector 1 arg-2 arg-3 arg-4) arg-5 (vector 1 arg-6 arg-7 arg-8)))) (define CoreC-45Hash-u--hash_Hashable_String (lambda (ext-0) (CoreC-45Hash-u--hashWithSalt_Hashable_String (blodwen-toSignedInt 5381 63) ext-0))) (define CoreC-45Hash-u--hash_Hashable_Nat (lambda (ext-0) (PreludeC-45Cast-u--cast_Cast_Nat_Int ext-0))) (define CoreC-45Hash-u--hash_Hashable_Namespace (lambda (ext-0) (CoreC-45Hash-u--hashWithSalt_Hashable_Namespace (blodwen-toSignedInt 5381 63) ext-0))) +(define CoreC-45Hash-u--hash_Hashable_NamedDef (lambda (ext-0) (CoreC-45Hash-u--hashWithSalt_Hashable_NamedDef (blodwen-toSignedInt 5381 63) ext-0))) +(define CoreC-45Hash-u--hash_Hashable_NamedConstAlt (lambda (ext-0) (CoreC-45Hash-u--hashWithSalt_Hashable_NamedConstAlt (blodwen-toSignedInt 5381 63) ext-0))) +(define CoreC-45Hash-u--hash_Hashable_NamedConAlt (lambda (ext-0) (CoreC-45Hash-u--hashWithSalt_Hashable_NamedConAlt (blodwen-toSignedInt 5381 63) ext-0))) +(define CoreC-45Hash-u--hash_Hashable_NamedCExp (lambda (ext-0) (CoreC-45Hash-u--hashWithSalt_Hashable_NamedCExp (blodwen-toSignedInt 5381 63) ext-0))) (define CoreC-45Hash-u--hash_Hashable_Name (lambda (ext-0) (CoreC-45Hash-u--hashWithSalt_Hashable_Name (blodwen-toSignedInt 5381 63) ext-0))) (define CoreC-45Hash-u--hash_Hashable_Integer (lambda (ext-0) (blodwen-toSignedInt ext-0 63))) (define CoreC-45Hash-u--hash_Hashable_Int (lambda (ext-0) ext-0)) +(define CoreC-45Hash-u--hash_Hashable_Double (lambda (ext-0) (CoreC-45Hash-u--hash_Hashable_String (PreludeC-45Show-u--show_Show_Double ext-0)))) (define CoreC-45Hash-u--hash_Hashable_Char (lambda (ext-0) (PreludeC-45Cast-u--cast_Cast_Char_Int ext-0))) +(define CoreC-45Hash-u--hash_Hashable_CFType (lambda (ext-0) (CoreC-45Hash-u--hashWithSalt_Hashable_CFType (blodwen-toSignedInt 5381 63) ext-0))) +(define CoreC-45Hash-u--hash_Hashable_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (lambda (arg-2 arg-3 ext-0) (CoreC-45Hash-u--hashWithSalt_Hashable_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 arg-2 arg-3 (blodwen-toSignedInt 5381 63) ext-0))) (define CoreC-45Hash-u--hash_Hashable_C-40TermC-32C-36varsC-41 (lambda (ext-0) (CoreC-45Hash-u--hashWithSalt_Hashable_C-40TermC-32C-36varsC-41 (blodwen-toSignedInt 5381 63) ext-0))) (define CoreC-45Hash-u--hash_Hashable_C-40ListC-32C-36aC-41 (lambda (arg-1 ext-0) (CoreC-45Hash-u--hashWithSalt_Hashable_C-40ListC-32C-36aC-41 arg-1 (blodwen-toSignedInt 5381 63) ext-0))) (define CoreC-45Hash-u--hashWithSalt_Hashable_String (lambda (arg-0 ext-0) (LibrariesC-45DataC-45StringC-45Iterator-foldl (lambda (eta-0) (lambda (eta-1) (CoreC-45Hash-u--hashWithSalt_Hashable_Char eta-0 eta-1))) arg-0 ext-0))) -(define CoreC-45Hash-u--hashWithSalt_Hashable_RigCount (lambda (arg-0 ext-0) (AlgebraC-45Semiring-elimSemi (cons (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-2) (lambda (arg-3) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-4 arg-5))))) (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-0 0) (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-0 1) (lambda (eta-0) (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-0 2)) ext-0))) +(define CoreC-45Hash-u--hashWithSalt_Hashable_RigCount (lambda (arg-0 ext-0) (AlgebraC-45Semiring-elimSemi (cons (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-2) (lambda (arg-3) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-4 arg-5))))) (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-0 0) (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-0 1) (lambda (eta-0) (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-0 2)) ext-0))) (define CoreC-45Hash-u--hashWithSalt_Hashable_Nat (lambda (arg-0 arg-1) (bs+ (bs* arg-0 33 63) (CoreC-45Hash-u--hash_Hashable_Nat arg-1) 63))) -(define CoreC-45Hash-u--hashWithSalt_Hashable_Namespace (lambda (arg-0 arg-1) (CoreC-45Hash-u--hashWithSalt_Hashable_C-40ListC-32C-36aC-41 (cons (lambda (arg-1546) (CoreC-45Hash-u--hash_Hashable_String arg-1546)) (lambda (arg-1547) (lambda (arg-1548) (CoreC-45Hash-u--hashWithSalt_Hashable_String arg-1547 arg-1548)))) arg-0 (CoreC-45NameC-45Namespace-unsafeUnfoldNamespace arg-1)))) -(define CoreC-45Hash-u--hashWithSalt_Hashable_Name (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (CoreC-45Hash-u--hashWithSalt_Hashable_String arg-0 e-0))) ((4) (let ((e-3 (vector-ref sc0 2))) (CoreC-45Hash-u--hashWithSalt_Hashable_Name arg-0 e-3))) ((0) (let ((e-4 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 2))) (CoreC-45Hash-u--hashWithSalt_Hashable_Name (CoreC-45Hash-u--hashWithSalt_Hashable_Namespace arg-0 e-4) e-5)))) ((9) (let ((e-6 (vector-ref sc0 1))) (CoreC-45Hash-u--hashWithSalt_Hashable_Int arg-0 e-6)))(else (CoreC-45Hash-u--hashWithSalt_Hashable_String arg-0 (CoreC-45Name-u--show_Show_Name arg-1))))))) +(define CoreC-45Hash-u--hashWithSalt_Hashable_Namespace (lambda (arg-0 arg-1) (CoreC-45Hash-u--hashWithSalt_Hashable_C-40ListC-32C-36aC-41 (cons (lambda (arg-529) (CoreC-45Hash-u--hash_Hashable_String arg-529)) (lambda (arg-530) (lambda (arg-531) (CoreC-45Hash-u--hashWithSalt_Hashable_String arg-530 arg-531)))) arg-0 (CoreC-45NameC-45Namespace-unsafeUnfoldNamespace arg-1)))) +(define CoreC-45Hash-u--hashWithSalt_Hashable_NamedDef (lambda (arg-0 ext-0) (case (vector-ref ext-0 0) ((0) (let ((e-0 (vector-ref ext-0 1))) (let ((e-1 (vector-ref ext-0 2))) (CoreC-45Hash-u--hashWithSalt_Hashable_NamedCExp (CoreC-45Hash-u--hashWithSalt_Hashable_C-40ListC-32C-36aC-41 (cons (lambda (arg-529) (CoreC-45Hash-u--hash_Hashable_Name arg-529)) (lambda (arg-530) (lambda (arg-531) (CoreC-45Hash-u--hashWithSalt_Hashable_Name arg-530 arg-531)))) (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-0 0) e-0) e-1)))) ((1) (let ((e-2 (vector-ref ext-0 1))) (let ((e-3 (vector-ref ext-0 2))) (let ((e-4 (vector-ref ext-0 3))) (CoreC-45Hash-u--hashWithSalt_Hashable_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-529) (CoreC-45Hash-u--hash_Hashable_Nat arg-529)) (lambda (arg-530) (lambda (arg-531) (CoreC-45Hash-u--hashWithSalt_Hashable_Nat arg-530 arg-531)))) (CoreC-45Hash-u--hashWithSalt_Hashable_Nat (CoreC-45Hash-u--hashWithSalt_Hashable_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-529) (CoreC-45Hash-u--hash_Hashable_Int arg-529)) (lambda (arg-530) (lambda (arg-531) (CoreC-45Hash-u--hashWithSalt_Hashable_Int arg-530 arg-531)))) (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-0 1) e-2) e-3) e-4))))) ((2) (let ((e-5 (vector-ref ext-0 1))) (let ((e-6 (vector-ref ext-0 2))) (let ((e-7 (vector-ref ext-0 3))) (CoreC-45Hash-u--hashWithSalt_Hashable_CFType (CoreC-45Hash-u--hashWithSalt_Hashable_C-40ListC-32C-36aC-41 (cons (lambda (arg-529) (CoreC-45Hash-u--hash_Hashable_CFType arg-529)) (lambda (arg-530) (lambda (arg-531) (CoreC-45Hash-u--hashWithSalt_Hashable_CFType arg-530 arg-531)))) (CoreC-45Hash-u--hashWithSalt_Hashable_C-40ListC-32C-36aC-41 (cons (lambda (arg-529) (CoreC-45Hash-u--hash_Hashable_String arg-529)) (lambda (arg-530) (lambda (arg-531) (CoreC-45Hash-u--hashWithSalt_Hashable_String arg-530 arg-531)))) (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-0 2) e-5) e-6) e-7))))) (else (let ((e-8 (vector-ref ext-0 1))) (CoreC-45Hash-u--hashWithSalt_Hashable_NamedCExp (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-0 3) e-8)))))) +(define CoreC-45Hash-u--hashWithSalt_Hashable_NamedConstAlt (lambda (arg-0 arg-1) (let ((e-0 (car arg-1))) (let ((e-1 (cdr arg-1))) (CoreC-45Hash-u--hashWithSalt_Hashable_NamedCExp (CoreC-45Hash-u--hashWithSalt_Hashable_Constant arg-0 e-0) e-1))))) +(define CoreC-45Hash-u--hashWithSalt_Hashable_NamedConAlt (lambda (arg-0 arg-1) (let ((e-0 (vector-ref arg-1 0))) (let ((e-1 (vector-ref arg-1 1))) (let ((e-2 (vector-ref arg-1 2))) (let ((e-3 (vector-ref arg-1 3))) (let ((e-4 (vector-ref arg-1 4))) (CoreC-45Hash-u--hashWithSalt_Hashable_NamedCExp (CoreC-45Hash-u--hashWithSalt_Hashable_C-40ListC-32C-36aC-41 (cons (lambda (arg-529) (CoreC-45Hash-u--hash_Hashable_Name arg-529)) (lambda (arg-530) (lambda (arg-531) (CoreC-45Hash-u--hashWithSalt_Hashable_Name arg-530 arg-531)))) (CoreC-45Hash-u--hashWithSalt_Hashable_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-529) (CoreC-45Hash-u--hash_Hashable_Int arg-529)) (lambda (arg-530) (lambda (arg-531) (CoreC-45Hash-u--hashWithSalt_Hashable_Int arg-530 arg-531)))) (CoreC-45Hash-u--hashWithSalt_Hashable_ConInfo (CoreC-45Hash-u--hashWithSalt_Hashable_Name arg-0 e-0) e-1) e-2) e-3) e-4)))))))) +(define CoreC-45Hash-u--hashWithSalt_Hashable_NamedCExp (lambda (arg-0 ext-0) (case (vector-ref ext-0 0) ((0) (let ((e-1 (vector-ref ext-0 2))) (CoreC-45Hash-u--hashWithSalt_Hashable_Name (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-0 0) e-1))) ((1) (let ((e-3 (vector-ref ext-0 2))) (CoreC-45Hash-u--hashWithSalt_Hashable_Name (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-0 1) e-3))) ((2) (let ((e-5 (vector-ref ext-0 2))) (let ((e-6 (vector-ref ext-0 3))) (CoreC-45Hash-u--hashWithSalt_Hashable_NamedCExp (CoreC-45Hash-u--hashWithSalt_Hashable_Name (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-0 2) e-5) e-6)))) ((3) (let ((e-8 (vector-ref ext-0 2))) (let ((e-9 (vector-ref ext-0 3))) (let ((e-10 (vector-ref ext-0 4))) (CoreC-45Hash-u--hashWithSalt_Hashable_NamedCExp (CoreC-45Hash-u--hashWithSalt_Hashable_NamedCExp (CoreC-45Hash-u--hashWithSalt_Hashable_Name (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-0 3) e-8) e-9) e-10))))) ((4) (let ((e-12 (vector-ref ext-0 2))) (let ((e-13 (vector-ref ext-0 3))) (CoreC-45Hash-u--hashWithSalt_Hashable_C-40ListC-32C-36aC-41 (cons (lambda (arg-529) (CoreC-45Hash-u--hash_Hashable_NamedCExp arg-529)) (lambda (arg-530) (lambda (arg-531) (CoreC-45Hash-u--hashWithSalt_Hashable_NamedCExp arg-530 arg-531)))) (CoreC-45Hash-u--hashWithSalt_Hashable_NamedCExp (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-0 4) e-12) e-13)))) ((5) (let ((e-15 (vector-ref ext-0 2))) (let ((e-16 (vector-ref ext-0 3))) (let ((e-17 (vector-ref ext-0 4))) (let ((e-18 (vector-ref ext-0 5))) (CoreC-45Hash-u--hashWithSalt_Hashable_C-40ListC-32C-36aC-41 (cons (lambda (arg-529) (CoreC-45Hash-u--hash_Hashable_NamedCExp arg-529)) (lambda (arg-530) (lambda (arg-531) (CoreC-45Hash-u--hashWithSalt_Hashable_NamedCExp arg-530 arg-531)))) (CoreC-45Hash-u--hashWithSalt_Hashable_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-529) (CoreC-45Hash-u--hash_Hashable_Int arg-529)) (lambda (arg-530) (lambda (arg-531) (CoreC-45Hash-u--hashWithSalt_Hashable_Int arg-530 arg-531)))) (CoreC-45Hash-u--hashWithSalt_Hashable_ConInfo (CoreC-45Hash-u--hashWithSalt_Hashable_Name (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-0 5) e-15) e-16) e-17) e-18)))))) ((6) (let ((e-21 (vector-ref ext-0 3))) (let ((e-22 (vector-ref ext-0 4))) (CoreC-45Hash-u--hashWithSalt_Hashable_C-40C-40VectC-32C-36nC-41C-32C-36aC-41 (cons (lambda (arg-529) (CoreC-45Hash-u--hash_Hashable_NamedCExp arg-529)) (lambda (arg-530) (lambda (arg-531) (CoreC-45Hash-u--hashWithSalt_Hashable_NamedCExp arg-530 arg-531)))) (CoreC-45Hash-u--hashWithSalt_Hashable_C-40PrimFnC-32C-36arityC-41 (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-0 6) e-21) e-22)))) ((7) (let ((e-24 (vector-ref ext-0 2))) (let ((e-25 (vector-ref ext-0 3))) (CoreC-45Hash-u--hashWithSalt_Hashable_C-40ListC-32C-36aC-41 (cons (lambda (arg-529) (CoreC-45Hash-u--hash_Hashable_NamedCExp arg-529)) (lambda (arg-530) (lambda (arg-531) (CoreC-45Hash-u--hashWithSalt_Hashable_NamedCExp arg-530 arg-531)))) (CoreC-45Hash-u--hashWithSalt_Hashable_Name (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-0 7) e-24) e-25)))) ((8) (let ((e-27 (vector-ref ext-0 2))) (let ((e-28 (vector-ref ext-0 3))) (CoreC-45Hash-u--hashWithSalt_Hashable_NamedCExp (CoreC-45Hash-u--hashWithSalt_Hashable_LazyReason (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-0 8) e-27) e-28)))) ((9) (let ((e-30 (vector-ref ext-0 2))) (let ((e-31 (vector-ref ext-0 3))) (CoreC-45Hash-u--hashWithSalt_Hashable_NamedCExp (CoreC-45Hash-u--hashWithSalt_Hashable_LazyReason (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-0 9) e-30) e-31)))) ((10) (let ((e-33 (vector-ref ext-0 2))) (let ((e-34 (vector-ref ext-0 3))) (let ((e-35 (vector-ref ext-0 4))) (CoreC-45Hash-u--hashWithSalt_Hashable_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-529) (CoreC-45Hash-u--hash_Hashable_NamedCExp arg-529)) (lambda (arg-530) (lambda (arg-531) (CoreC-45Hash-u--hashWithSalt_Hashable_NamedCExp arg-530 arg-531)))) (CoreC-45Hash-u--hashWithSalt_Hashable_C-40ListC-32C-36aC-41 (cons (lambda (arg-529) (CoreC-45Hash-u--hash_Hashable_NamedConAlt arg-529)) (lambda (arg-530) (lambda (arg-531) (CoreC-45Hash-u--hashWithSalt_Hashable_NamedConAlt arg-530 arg-531)))) (CoreC-45Hash-u--hashWithSalt_Hashable_NamedCExp (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-0 10) e-33) e-34) e-35))))) ((11) (let ((e-37 (vector-ref ext-0 2))) (let ((e-38 (vector-ref ext-0 3))) (let ((e-39 (vector-ref ext-0 4))) (CoreC-45Hash-u--hashWithSalt_Hashable_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-529) (CoreC-45Hash-u--hash_Hashable_NamedCExp arg-529)) (lambda (arg-530) (lambda (arg-531) (CoreC-45Hash-u--hashWithSalt_Hashable_NamedCExp arg-530 arg-531)))) (CoreC-45Hash-u--hashWithSalt_Hashable_C-40ListC-32C-36aC-41 (cons (lambda (arg-529) (CoreC-45Hash-u--hash_Hashable_NamedConstAlt arg-529)) (lambda (arg-530) (lambda (arg-531) (CoreC-45Hash-u--hashWithSalt_Hashable_NamedConstAlt arg-530 arg-531)))) (CoreC-45Hash-u--hashWithSalt_Hashable_NamedCExp (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-0 11) e-37) e-38) e-39))))) ((12) (let ((e-41 (vector-ref ext-0 2))) (CoreC-45Hash-u--hashWithSalt_Hashable_Constant (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-0 12) e-41))) ((13) (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-0 13)) (else (let ((e-44 (vector-ref ext-0 2))) (CoreC-45Hash-u--hashWithSalt_Hashable_String (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-0 14) e-44)))))) +(define CoreC-45Hash-u--hashWithSalt_Hashable_Name (lambda (arg-0 arg-1) (case (vector-ref arg-1 0) ((2) (let ((e-0 (vector-ref arg-1 1))) (CoreC-45Hash-u--hashWithSalt_Hashable_String arg-0 e-0))) ((4) (let ((e-3 (vector-ref arg-1 2))) (CoreC-45Hash-u--hashWithSalt_Hashable_Name arg-0 e-3))) ((0) (let ((e-4 (vector-ref arg-1 1))) (let ((e-5 (vector-ref arg-1 2))) (CoreC-45Hash-u--hashWithSalt_Hashable_Name (CoreC-45Hash-u--hashWithSalt_Hashable_Namespace arg-0 e-4) e-5)))) ((9) (let ((e-6 (vector-ref arg-1 1))) (CoreC-45Hash-u--hashWithSalt_Hashable_Int arg-0 e-6)))(else (CoreC-45Hash-u--hashWithSalt_Hashable_String arg-0 (CoreC-45Name-u--show_Show_Name arg-1)))))) +(define CoreC-45Hash-u--hashWithSalt_Hashable_LazyReason (lambda (arg-0 ext-0) (cond ((equal? ext-0 0) (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-0 0)) ((equal? ext-0 1) (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-0 1)) (else (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-0 2))))) (define CoreC-45Hash-u--hashWithSalt_Hashable_Integer (lambda (arg-0 arg-1) (bs+ (bs* arg-0 33 63) (CoreC-45Hash-u--hash_Hashable_Integer arg-1) 63))) (define CoreC-45Hash-u--hashWithSalt_Hashable_Int (lambda (arg-0 arg-1) (bs+ (bs* arg-0 33 63) (CoreC-45Hash-u--hash_Hashable_Int arg-1) 63))) +(define CoreC-45Hash-u--hashWithSalt_Hashable_Double (lambda (arg-0 arg-1) (bs+ (bs* arg-0 33 63) (CoreC-45Hash-u--hash_Hashable_Double arg-1) 63))) +(define CoreC-45Hash-u--hashWithSalt_Hashable_Constant (lambda (arg-0 ext-0) (case (vector-ref ext-0 0) ((0) (let ((e-0 (vector-ref ext-0 1))) (CoreC-45Hash-u--hashWithSalt_Hashable_Int (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-0 0) e-0))) ((5) (let ((e-1 (vector-ref ext-0 1))) (CoreC-45Hash-u--hashWithSalt_Hashable_Integer (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-0 1) e-1))) ((6) (let ((e-2 (vector-ref ext-0 1))) (CoreC-45Hash-u--hashWithSalt_Hashable_Int (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-0 2) e-2))) ((7) (let ((e-3 (vector-ref ext-0 1))) (CoreC-45Hash-u--hashWithSalt_Hashable_Int (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-0 3) e-3))) ((8) (let ((e-4 (vector-ref ext-0 1))) (CoreC-45Hash-u--hashWithSalt_Hashable_Int (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-0 4) e-4))) ((9) (let ((e-5 (vector-ref ext-0 1))) (CoreC-45Hash-u--hashWithSalt_Hashable_Integer (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-0 5) e-5))) ((10) (let ((e-6 (vector-ref ext-0 1))) (CoreC-45Hash-u--hashWithSalt_Hashable_String (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-0 6) e-6))) ((11) (let ((e-7 (vector-ref ext-0 1))) (CoreC-45Hash-u--hashWithSalt_Hashable_Char (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-0 7) e-7))) ((12) (let ((e-8 (vector-ref ext-0 1))) (CoreC-45Hash-u--hashWithSalt_Hashable_Double (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-0 8) e-8))) ((13) (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-0 9)) ((14) (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-0 10)) ((19) (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-0 11)) ((20) (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-0 12)) ((21) (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-0 13)) ((22) (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-0 14)) ((23) (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-0 15)) ((24) (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-0 16)) ((25) (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-0 17)) ((26) (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-0 18)) ((27) (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-0 19)) ((1) (let ((e-9 (vector-ref ext-0 1))) (CoreC-45Hash-u--hashWithSalt_Hashable_Integer (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-0 20) e-9))) ((2) (let ((e-10 (vector-ref ext-0 1))) (CoreC-45Hash-u--hashWithSalt_Hashable_Integer (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-0 21) e-10))) ((3) (let ((e-11 (vector-ref ext-0 1))) (CoreC-45Hash-u--hashWithSalt_Hashable_Integer (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-0 22) e-11))) ((4) (let ((e-12 (vector-ref ext-0 1))) (CoreC-45Hash-u--hashWithSalt_Hashable_Integer (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-0 23) e-12))) ((15) (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-0 24)) ((16) (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-0 25)) ((17) (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-0 26)) (else (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-0 27))))) +(define CoreC-45Hash-u--hashWithSalt_Hashable_ConInfo (lambda (arg-0 ext-0) (cond ((equal? ext-0 0) (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-0 0)) ((equal? ext-0 1) (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-0 1)) ((equal? ext-0 2) (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-0 2)) ((equal? ext-0 3) (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-0 3)) ((equal? ext-0 4) (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-0 4)) ((equal? ext-0 5) (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-0 5)) ((equal? ext-0 6) (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-0 6)) (else (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-0 7))))) (define CoreC-45Hash-u--hashWithSalt_Hashable_Char (lambda (arg-0 arg-1) (bs+ (bs* arg-0 33 63) (CoreC-45Hash-u--hash_Hashable_Char arg-1) 63))) -(define CoreC-45Hash-u--hashWithSalt_Hashable_C-40TermC-32C-36varsC-41 (lambda (arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-4 (vector-ref sc0 3))) (CoreC-45Hash-u--hashWithSalt_Hashable_Nat (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-1 0) e-4))) ((1) (let ((e-9 (vector-ref sc0 3))) (CoreC-45Hash-u--hashWithSalt_Hashable_Name (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-1 1) e-9))) ((2) (let ((e-13 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 4))) (CoreC-45Hash-u--hashWithSalt_Hashable_C-40ListC-32C-36aC-41 (cons (lambda (arg-1546) (CoreC-45Hash-u--hash_Hashable_C-40TermC-32C-36varsC-41 arg-1546)) (lambda (arg-1547) (lambda (arg-1548) (CoreC-45Hash-u--hashWithSalt_Hashable_C-40TermC-32C-36varsC-41 arg-1547 arg-1548)))) (CoreC-45Hash-u--hashWithSalt_Hashable_Int (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-1 2) e-13) e-14)))) ((3) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (CoreC-45Hash-u--hashWithSalt_Hashable_C-40TermC-32C-36varsC-41 (CoreC-45Hash-u--hashWithSalt_Hashable_C-40BinderC-32C-36tyC-41 (cons (lambda (arg-1546) (CoreC-45Hash-u--hash_Hashable_C-40TermC-32C-36varsC-41 arg-1546)) (lambda (arg-1547) (lambda (arg-1548) (CoreC-45Hash-u--hashWithSalt_Hashable_C-40TermC-32C-36varsC-41 arg-1547 arg-1548)))) (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-1 3) e-18) e-19)))) ((4) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (CoreC-45Hash-u--hashWithSalt_Hashable_C-40TermC-32C-36varsC-41 (CoreC-45Hash-u--hashWithSalt_Hashable_C-40TermC-32C-36varsC-41 (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-1 4) e-22) e-23)))) ((5) (let ((e-27 (vector-ref sc0 3))) (let ((e-28 (vector-ref sc0 4))) (CoreC-45Hash-u--hashWithSalt_Hashable_C-40TermC-32C-36varsC-41 (CoreC-45Hash-u--hashWithSalt_Hashable_C-40TermC-32C-36varsC-41 (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-1 5) e-27) e-28)))) ((6) (let ((e-32 (vector-ref sc0 3))) (CoreC-45Hash-u--hashWithSalt_Hashable_C-40TermC-32C-36varsC-41 (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-1 6) e-32))) ((7) (let ((e-36 (vector-ref sc0 3))) (let ((e-37 (vector-ref sc0 4))) (CoreC-45Hash-u--hashWithSalt_Hashable_C-40TermC-32C-36varsC-41 (CoreC-45Hash-u--hashWithSalt_Hashable_C-40TermC-32C-36varsC-41 (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-1 7) e-36) e-37)))) ((8) (let ((e-41 (vector-ref sc0 3))) (CoreC-45Hash-u--hashWithSalt_Hashable_C-40TermC-32C-36varsC-41 (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-1 8) e-41))) ((9) (let ((e-44 (vector-ref sc0 2))) (CoreC-45Hash-u--hashWithSalt_Hashable_String (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-1 9) (CoreC-45TT-u--show_Show_Constant e-44)))) ((10) (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-1 10)) (else (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-1 11)))))) -(define CoreC-45Hash-u--hashWithSalt_Hashable_C-40PiInfoC-32C-36tC-41 (lambda (arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-2 0)) ((1) (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-2 1)) ((2) (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-2 2)) (else (let ((e-4 (vector-ref sc0 1))) (let ((sc1 arg-1)) (let ((e-2 (cdr sc1))) ((e-2 (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-2 3)) e-4))))))))) -(define CoreC-45Hash-u--hashWithSalt_Hashable_C-40ListC-32C-36aC-41 (lambda (arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (if (null? sc0) (PreludeC-45Num-u--abs_Abs_Int arg-2) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (CoreC-45Hash-u--hashWithSalt_Hashable_C-40ListC-32C-36aC-41 arg-1 (bs+ (bs* arg-2 33 63) (let ((sc1 arg-1)) (let ((e-1 (car sc1))) (e-1 e-2))) 63) e-3))))))) -(define CoreC-45Hash-u--hashWithSalt_Hashable_C-40BinderC-32C-36tyC-41 (lambda (arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 arg-1)) (let ((e-5 (cdr sc1))) ((e-5 (CoreC-45Hash-u--hashWithSalt_Hashable_C-40PiInfoC-32C-36tC-41 arg-1 (CoreC-45Hash-u--hashWithSalt_Hashable_RigCount (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-2 0) e-2) e-3)) e-4))))))) ((1) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (let ((e-9 (vector-ref sc0 4))) (let ((sc1 arg-1)) (let ((e-2 (cdr sc1))) ((e-2 (let ((sc2 arg-1)) (let ((e-3 (cdr sc2))) ((e-3 (CoreC-45Hash-u--hashWithSalt_Hashable_RigCount (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-2 1) e-7)) e-8)))) e-9))))))) ((2) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 4))) (let ((sc1 arg-1)) (let ((e-2 (cdr sc1))) ((e-2 (CoreC-45Hash-u--hashWithSalt_Hashable_C-40PiInfoC-32C-36tC-41 arg-1 (CoreC-45Hash-u--hashWithSalt_Hashable_RigCount (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-2 2) e-12) e-13)) e-14))))))) ((3) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (let ((sc1 arg-1)) (let ((e-2 (cdr sc1))) ((e-2 (CoreC-45Hash-u--hashWithSalt_Hashable_C-40PiInfoC-32C-36tC-41 arg-1 (CoreC-45Hash-u--hashWithSalt_Hashable_RigCount (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-2 3) e-17) e-18)) e-19))))))) ((4) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (let ((e-24 (vector-ref sc0 4))) (let ((sc1 arg-1)) (let ((e-2 (cdr sc1))) ((e-2 (let ((sc2 arg-1)) (let ((e-3 (cdr sc2))) ((e-3 (CoreC-45Hash-u--hashWithSalt_Hashable_RigCount (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-2 4) e-22)) e-23)))) e-24))))))) (else (let ((e-27 (vector-ref sc0 2))) (let ((e-28 (vector-ref sc0 3))) (let ((sc1 arg-1)) (let ((e-2 (cdr sc1))) ((e-2 (CoreC-45Hash-u--hashWithSalt_Hashable_RigCount (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-2 5) e-27)) e-28)))))))))) -(define LibrariesC-45DataC-45StringC-45Iterator-case--foldlC-44loop-1476 (lambda (arg-1 arg-2 arg-3 arg-5 arg-6) (let ((sc0 arg-6)) (if (null? sc0) arg-5 (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (LibrariesC-45DataC-45StringC-45Iterator-n--2261-1471-u--loop arg-1 arg-2 arg-3 ((arg-3 arg-5) e-2) e-3))))))) -(define LibrariesC-45DataC-45StringC-45Iterator-n--2261-1471-u--loop (lambda (arg-1 arg-2 arg-3 arg-4 arg-5) (LibrariesC-45DataC-45StringC-45Iterator-case--foldlC-44loop-1476 arg-1 arg-2 arg-3 arg-4 (LibrariesC-45DataC-45StringC-45Iterator-uncons arg-1 arg-5)))) +(define CoreC-45Hash-u--hashWithSalt_Hashable_CFType (lambda (arg-0 ext-0) (case (vector-ref ext-0 0) ((0) (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-0 0)) ((1) (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-0 1)) ((6) (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-0 2)) ((7) (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-0 3)) ((8) (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-0 4)) ((9) (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-0 5)) ((10) (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-0 6)) ((11) (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-0 7)) ((12) (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-0 8)) ((13) (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-0 9)) ((14) (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-0 10)) ((15) (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-0 11)) ((16) (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-0 12)) ((17) (let ((e-0 (vector-ref ext-0 1))) (let ((e-1 (vector-ref ext-0 2))) (CoreC-45Hash-u--hashWithSalt_Hashable_CFType (CoreC-45Hash-u--hashWithSalt_Hashable_CFType (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-0 13) e-0) e-1)))) ((18) (let ((e-2 (vector-ref ext-0 1))) (CoreC-45Hash-u--hashWithSalt_Hashable_CFType (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-0 14) e-2))) ((19) (let ((e-3 (vector-ref ext-0 1))) (let ((e-4 (vector-ref ext-0 2))) (CoreC-45Hash-u--hashWithSalt_Hashable_C-40ListC-32C-36aC-41 (cons (lambda (arg-529) (CoreC-45Hash-u--hash_Hashable_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (arg-530) (CoreC-45Hash-u--hash_Hashable_String arg-530)) (lambda (arg-530) (lambda (arg-531) (CoreC-45Hash-u--hashWithSalt_Hashable_String arg-530 arg-531)))) (cons (lambda (arg-530) (CoreC-45Hash-u--hash_Hashable_CFType arg-530)) (lambda (arg-530) (lambda (arg-531) (CoreC-45Hash-u--hashWithSalt_Hashable_CFType arg-530 arg-531)))) arg-529)) (lambda (arg-530) (lambda (arg-531) (CoreC-45Hash-u--hashWithSalt_Hashable_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (arg-529) (CoreC-45Hash-u--hash_Hashable_String arg-529)) (lambda (arg-532) (lambda (arg-533) (CoreC-45Hash-u--hashWithSalt_Hashable_String arg-532 arg-533)))) (cons (lambda (arg-529) (CoreC-45Hash-u--hash_Hashable_CFType arg-529)) (lambda (arg-532) (lambda (arg-533) (CoreC-45Hash-u--hashWithSalt_Hashable_CFType arg-532 arg-533)))) arg-530 arg-531)))) (CoreC-45Hash-u--hashWithSalt_Hashable_String (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-0 15) e-3) e-4)))) ((20) (let ((e-5 (vector-ref ext-0 1))) (let ((e-6 (vector-ref ext-0 2))) (CoreC-45Hash-u--hashWithSalt_Hashable_C-40ListC-32C-36aC-41 (cons (lambda (arg-529) (CoreC-45Hash-u--hash_Hashable_CFType arg-529)) (lambda (arg-530) (lambda (arg-531) (CoreC-45Hash-u--hashWithSalt_Hashable_CFType arg-530 arg-531)))) (CoreC-45Hash-u--hashWithSalt_Hashable_Name (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-0 16) e-5) e-6)))) ((2) (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-0 17)) ((3) (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-0 18)) ((4) (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-0 19)) (else (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-0 20))))) +(define CoreC-45Hash-u--hashWithSalt_Hashable_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (lambda (arg-2 arg-3 arg-4 arg-5) (let ((e-2 (car arg-5))) (let ((e-3 (cdr arg-5))) (let ((e-4 (cdr arg-3))) ((e-4 (let ((e-5 (cdr arg-2))) ((e-5 arg-4) e-2))) e-3)))))) +(define CoreC-45Hash-u--hashWithSalt_Hashable_C-40TermC-32C-36varsC-41 (lambda (arg-1 arg-2) (case (vector-ref arg-2 0) ((0) (let ((e-4 (vector-ref arg-2 3))) (CoreC-45Hash-u--hashWithSalt_Hashable_Nat (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-1 0) e-4))) ((1) (let ((e-9 (vector-ref arg-2 3))) (CoreC-45Hash-u--hashWithSalt_Hashable_Name (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-1 1) e-9))) ((2) (let ((e-13 (vector-ref arg-2 3))) (let ((e-14 (vector-ref arg-2 4))) (CoreC-45Hash-u--hashWithSalt_Hashable_C-40ListC-32C-36aC-41 (cons (lambda (arg-529) (CoreC-45Hash-u--hash_Hashable_C-40TermC-32C-36varsC-41 arg-529)) (lambda (arg-530) (lambda (arg-531) (CoreC-45Hash-u--hashWithSalt_Hashable_C-40TermC-32C-36varsC-41 arg-530 arg-531)))) (CoreC-45Hash-u--hashWithSalt_Hashable_Int (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-1 2) e-13) e-14)))) ((3) (let ((e-18 (vector-ref arg-2 3))) (let ((e-19 (vector-ref arg-2 4))) (CoreC-45Hash-u--hashWithSalt_Hashable_C-40TermC-32C-36varsC-41 (CoreC-45Hash-u--hashWithSalt_Hashable_C-40BinderC-32C-36tyC-41 (cons (lambda (arg-529) (CoreC-45Hash-u--hash_Hashable_C-40TermC-32C-36varsC-41 arg-529)) (lambda (arg-530) (lambda (arg-531) (CoreC-45Hash-u--hashWithSalt_Hashable_C-40TermC-32C-36varsC-41 arg-530 arg-531)))) (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-1 3) e-18) e-19)))) ((4) (let ((e-22 (vector-ref arg-2 2))) (let ((e-23 (vector-ref arg-2 3))) (CoreC-45Hash-u--hashWithSalt_Hashable_C-40TermC-32C-36varsC-41 (CoreC-45Hash-u--hashWithSalt_Hashable_C-40TermC-32C-36varsC-41 (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-1 4) e-22) e-23)))) ((5) (let ((e-27 (vector-ref arg-2 3))) (let ((e-28 (vector-ref arg-2 4))) (CoreC-45Hash-u--hashWithSalt_Hashable_C-40TermC-32C-36varsC-41 (CoreC-45Hash-u--hashWithSalt_Hashable_C-40TermC-32C-36varsC-41 (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-1 5) e-27) e-28)))) ((6) (let ((e-32 (vector-ref arg-2 3))) (CoreC-45Hash-u--hashWithSalt_Hashable_C-40TermC-32C-36varsC-41 (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-1 6) e-32))) ((7) (let ((e-36 (vector-ref arg-2 3))) (let ((e-37 (vector-ref arg-2 4))) (CoreC-45Hash-u--hashWithSalt_Hashable_C-40TermC-32C-36varsC-41 (CoreC-45Hash-u--hashWithSalt_Hashable_C-40TermC-32C-36varsC-41 (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-1 7) e-36) e-37)))) ((8) (let ((e-41 (vector-ref arg-2 3))) (CoreC-45Hash-u--hashWithSalt_Hashable_C-40TermC-32C-36varsC-41 (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-1 8) e-41))) ((9) (let ((e-44 (vector-ref arg-2 2))) (CoreC-45Hash-u--hashWithSalt_Hashable_String (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-1 9) (CoreC-45TT-u--show_Show_Constant e-44)))) ((10) (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-1 10)) (else (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-1 11))))) +(define CoreC-45Hash-u--hashWithSalt_Hashable_C-40PrimFnC-32C-36arityC-41 (lambda (arg-1 ext-0) (case (vector-ref ext-0 0) ((0) (let ((e-0 (vector-ref ext-0 1))) (CoreC-45Hash-u--hashWithSalt_Hashable_Constant (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-1 0) e-0))) ((1) (let ((e-1 (vector-ref ext-0 1))) (CoreC-45Hash-u--hashWithSalt_Hashable_Constant (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-1 1) e-1))) ((2) (let ((e-2 (vector-ref ext-0 1))) (CoreC-45Hash-u--hashWithSalt_Hashable_Constant (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-1 2) e-2))) ((3) (let ((e-3 (vector-ref ext-0 1))) (CoreC-45Hash-u--hashWithSalt_Hashable_Constant (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-1 3) e-3))) ((4) (let ((e-4 (vector-ref ext-0 1))) (CoreC-45Hash-u--hashWithSalt_Hashable_Constant (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-1 4) e-4))) ((5) (let ((e-5 (vector-ref ext-0 1))) (CoreC-45Hash-u--hashWithSalt_Hashable_Constant (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-1 5) e-5))) ((6) (let ((e-6 (vector-ref ext-0 1))) (CoreC-45Hash-u--hashWithSalt_Hashable_Constant (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-1 6) e-6))) ((7) (let ((e-7 (vector-ref ext-0 1))) (CoreC-45Hash-u--hashWithSalt_Hashable_Constant (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-1 7) e-7))) ((8) (let ((e-8 (vector-ref ext-0 1))) (CoreC-45Hash-u--hashWithSalt_Hashable_Constant (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-1 8) e-8))) ((9) (let ((e-9 (vector-ref ext-0 1))) (CoreC-45Hash-u--hashWithSalt_Hashable_Constant (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-1 9) e-9))) ((10) (let ((e-10 (vector-ref ext-0 1))) (CoreC-45Hash-u--hashWithSalt_Hashable_Constant (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-1 10) e-10))) ((11) (let ((e-11 (vector-ref ext-0 1))) (CoreC-45Hash-u--hashWithSalt_Hashable_Constant (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-1 11) e-11))) ((12) (let ((e-12 (vector-ref ext-0 1))) (CoreC-45Hash-u--hashWithSalt_Hashable_Constant (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-1 12) e-12))) ((13) (let ((e-13 (vector-ref ext-0 1))) (CoreC-45Hash-u--hashWithSalt_Hashable_Constant (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-1 13) e-13))) ((14) (let ((e-14 (vector-ref ext-0 1))) (CoreC-45Hash-u--hashWithSalt_Hashable_Constant (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-1 14) e-14))) ((15) (let ((e-15 (vector-ref ext-0 1))) (CoreC-45Hash-u--hashWithSalt_Hashable_Constant (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-1 15) e-15))) ((16) (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-1 16)) ((17) (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-1 17)) ((18) (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-1 18)) ((19) (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-1 19)) ((20) (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-1 20)) ((21) (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-1 21)) ((22) (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-1 22)) ((23) (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-1 23)) ((24) (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-1 24)) ((25) (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-1 25)) ((26) (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-1 26)) ((27) (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-1 27)) ((28) (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-1 28)) ((29) (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-1 29)) ((30) (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-1 30)) ((31) (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-1 31)) ((32) (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-1 32)) ((33) (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-1 33)) ((34) (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-1 34)) ((35) (let ((e-16 (vector-ref ext-0 1))) (let ((e-17 (vector-ref ext-0 2))) (CoreC-45Hash-u--hashWithSalt_Hashable_Constant (CoreC-45Hash-u--hashWithSalt_Hashable_Constant (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-1 35) e-16) e-17)))) ((36) (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-1 36)) (else (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-1 37))))) +(define CoreC-45Hash-u--hashWithSalt_Hashable_C-40PiInfoC-32C-36tC-41 (lambda (arg-1 arg-2 arg-3) (case (vector-ref arg-3 0) ((0) (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-2 0)) ((1) (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-2 1)) ((2) (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-2 2)) (else (let ((e-4 (vector-ref arg-3 1))) (let ((e-2 (cdr arg-1))) ((e-2 (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-2 3)) e-4))))))) +(define CoreC-45Hash-u--hashWithSalt_Hashable_C-40MaybeC-32C-36aC-41 (lambda (arg-1 arg-2 arg-3) (if (null? arg-3) (PreludeC-45Num-u--abs_Abs_Int arg-2) (let ((e-2 (unbox arg-3))) (let ((e-3 (cdr arg-1))) ((e-3 arg-2) e-2)))))) +(define CoreC-45Hash-u--hashWithSalt_Hashable_C-40ListC-32C-36aC-41 (lambda (arg-1 arg-2 arg-3) (if (null? arg-3) (PreludeC-45Num-u--abs_Abs_Int arg-2) (let ((e-2 (car arg-3))) (let ((e-3 (cdr arg-3))) (CoreC-45Hash-u--hashWithSalt_Hashable_C-40ListC-32C-36aC-41 arg-1 (bs+ (bs* arg-2 33 63) (let ((e-1 (car arg-1))) (e-1 e-2)) 63) e-3)))))) +(define CoreC-45Hash-u--hashWithSalt_Hashable_C-40BinderC-32C-36tyC-41 (lambda (arg-1 arg-2 arg-3) (case (vector-ref arg-3 0) ((0) (let ((e-2 (vector-ref arg-3 2))) (let ((e-3 (vector-ref arg-3 3))) (let ((e-4 (vector-ref arg-3 4))) (let ((e-5 (cdr arg-1))) ((e-5 (CoreC-45Hash-u--hashWithSalt_Hashable_C-40PiInfoC-32C-36tC-41 arg-1 (CoreC-45Hash-u--hashWithSalt_Hashable_RigCount (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-2 0) e-2) e-3)) e-4)))))) ((1) (let ((e-7 (vector-ref arg-3 2))) (let ((e-8 (vector-ref arg-3 3))) (let ((e-9 (vector-ref arg-3 4))) (let ((e-2 (cdr arg-1))) ((e-2 (let ((e-3 (cdr arg-1))) ((e-3 (CoreC-45Hash-u--hashWithSalt_Hashable_RigCount (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-2 1) e-7)) e-8))) e-9)))))) ((2) (let ((e-12 (vector-ref arg-3 2))) (let ((e-13 (vector-ref arg-3 3))) (let ((e-14 (vector-ref arg-3 4))) (let ((e-2 (cdr arg-1))) ((e-2 (CoreC-45Hash-u--hashWithSalt_Hashable_C-40PiInfoC-32C-36tC-41 arg-1 (CoreC-45Hash-u--hashWithSalt_Hashable_RigCount (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-2 2) e-12) e-13)) e-14)))))) ((3) (let ((e-17 (vector-ref arg-3 2))) (let ((e-18 (vector-ref arg-3 3))) (let ((e-19 (vector-ref arg-3 4))) (let ((e-2 (cdr arg-1))) ((e-2 (CoreC-45Hash-u--hashWithSalt_Hashable_C-40PiInfoC-32C-36tC-41 arg-1 (CoreC-45Hash-u--hashWithSalt_Hashable_RigCount (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-2 3) e-17) e-18)) e-19)))))) ((4) (let ((e-22 (vector-ref arg-3 2))) (let ((e-23 (vector-ref arg-3 3))) (let ((e-24 (vector-ref arg-3 4))) (let ((e-2 (cdr arg-1))) ((e-2 (let ((e-3 (cdr arg-1))) ((e-3 (CoreC-45Hash-u--hashWithSalt_Hashable_RigCount (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-2 4) e-22)) e-23))) e-24)))))) (else (let ((e-27 (vector-ref arg-3 2))) (let ((e-28 (vector-ref arg-3 3))) (let ((e-2 (cdr arg-1))) ((e-2 (CoreC-45Hash-u--hashWithSalt_Hashable_RigCount (CoreC-45Hash-u--hashWithSalt_Hashable_Integer arg-2 5) e-27)) e-28)))))))) +(define CoreC-45Hash-u--hashWithSalt_Hashable_C-40C-40VectC-32C-36nC-41C-32C-36aC-41 (lambda (arg-2 arg-3 arg-4) (if (null? arg-4) (PreludeC-45Num-u--abs_Abs_Int arg-3) (let ((e-3 (car arg-4))) (let ((e-4 (cdr arg-4))) (CoreC-45Hash-u--hashWithSalt_Hashable_C-40C-40VectC-32C-36nC-41C-32C-36aC-41 arg-2 (bs+ (bs* arg-3 33 63) (let ((e-1 (car arg-2))) (e-1 e-3)) 63) e-4)))))) +(define LibrariesC-45DataC-45StringC-45Iterator-n--2064-1319-u--loop (lambda (arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 (LibrariesC-45DataC-45StringC-45Iterator-uncons arg-1 arg-5))) (if (null? sc0) arg-4 (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (LibrariesC-45DataC-45StringC-45Iterator-n--2064-1319-u--loop arg-1 arg-2 arg-3 ((arg-3 arg-4) e-2) e-3))))))) (define LibrariesC-45DataC-45StringC-45Iterator-withString (lambda (arg-1 arg-2) (arg-2 (LibrariesC-45DataC-45StringC-45Iterator-fromString arg-1)))) -(define LibrariesC-45DataC-45StringC-45Iterator-foldl (lambda (arg-1 arg-2 arg-3) (LibrariesC-45DataC-45StringC-45Iterator-withString arg-3 (lambda (eta-0) (LibrariesC-45DataC-45StringC-45Iterator-n--2261-1471-u--loop arg-3 arg-2 arg-1 arg-2 eta-0))))) -(define CoreC-45CaseTree-case--mkTerm-4231 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (vector 0 arg-1 (vector 0 ) e-1)))(else (vector 1 arg-1 (vector 0 ) arg-0)))))) -(define CoreC-45CaseTree-case--insertCaseNames-3838 (lambda (arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10) (vector 0 arg-3 arg-10 (CoreC-45TT-insertNames arg-9 arg-8 arg-5) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45CaseTree-insertCaseAltNames arg-9 arg-8 eta-0)) arg-4)))) -(define CoreC-45CaseTree-n--6678-4090-u--getSet (lambda (arg-1 arg-2 arg-3 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-5 (vector-ref sc0 4))) (CoreC-45CaseTree-n--6678-4089-u--getAltSets arg-1 arg-2 arg-3 arg-5 e-5))) ((1) (let ((e-8 (vector-ref sc0 2))) (((arg-3 'erased) arg-5) e-8))) ((2) arg-5) (else arg-5))))) -(define CoreC-45CaseTree-n--6678-4089-u--getAltSets (lambda (arg-1 arg-2 arg-3 arg-5 arg-6) (let ((sc0 arg-6)) (if (null? sc0) arg-5 (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (CoreC-45CaseTree-n--6678-4089-u--getAltSets arg-1 arg-2 arg-3 (CoreC-45CaseTree-n--6678-4088-u--getAltSet arg-1 arg-2 arg-3 arg-5 e-2) e-3))))))) -(define CoreC-45CaseTree-n--6678-4088-u--getAltSet (lambda (arg-1 arg-2 arg-3 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-4 (vector-ref sc0 4))) (CoreC-45CaseTree-n--6678-4090-u--getSet arg-1 arg-2 arg-3 arg-5 e-4))) ((1) (let ((e-8 (vector-ref sc0 3))) (CoreC-45CaseTree-n--6678-4090-u--getSet arg-1 arg-2 arg-3 arg-5 e-8))) ((2) (let ((e-11 (vector-ref sc0 2))) (CoreC-45CaseTree-n--6678-4090-u--getSet arg-1 arg-2 arg-3 arg-5 e-11))) (else (let ((e-13 (vector-ref sc0 1))) (CoreC-45CaseTree-n--6678-4090-u--getSet arg-1 arg-2 arg-3 arg-5 e-13))))))) -(define CoreC-45CaseTree-u--weakenNs_Weaken_CaseTree (lambda (arg-2 arg-3) (CoreC-45CaseTree-insertCaseNames (CoreC-45TTC-45SizeOf-zero) arg-2 arg-3))) -(define CoreC-45CaseTree-u--show_Show_Pat (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-1) (PreludeC-45TypesC-45String-C-43C-43 "@(" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45CaseTree-u--show_Show_Pat e-2) ")")))))) ((1) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((e-7 (vector-ref sc0 5))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-4) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Int e-5) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45CaseTree-u--show_Show_Pat u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45CaseTree-u--showPrec_Show_Pat u--d u--x)))) e-7))))))))) ((2) (let ((e-9 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 4))) (PreludeC-45TypesC-45String-C-43C-43 "" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-9) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45CaseTree-u--show_Show_Pat u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45CaseTree-u--showPrec_Show_Pat u--d u--x)))) e-11))))))) ((3) (let ((e-13 (vector-ref sc0 2))) (CoreC-45TT-u--show_Show_Constant e-13))) ((4) (let ((e-16 (vector-ref sc0 3))) (let ((e-17 (vector-ref sc0 4))) (PreludeC-45TypesC-45String-C-43C-43 "(" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45CaseTree-u--show_Show_Pat e-16) (PreludeC-45TypesC-45String-C-43C-43 " -> " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45CaseTree-u--show_Show_Pat e-17) ")"))))))) ((5) (let ((e-21 (vector-ref sc0 4))) (PreludeC-45TypesC-45String-C-43C-43 "(Delay " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45CaseTree-u--show_Show_Pat e-21) ")")))) ((6) (let ((e-23 (vector-ref sc0 2))) (CoreC-45Name-u--show_Show_Name e-23))) (else (let ((e-25 (vector-ref sc0 2))) (PreludeC-45TypesC-45String-C-43C-43 ".(" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-25) ")")))))))) -(define CoreC-45CaseTree-u--show_Show_C-40CaseTreeC-32C-36varsC-41 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (PreludeC-45TypesC-45String-C-43C-43 "case " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-1) (PreludeC-45TypesC-45String-C-43C-43 "[" (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Nat e-2) (PreludeC-45TypesC-45String-C-43C-43 "] : " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 e-4) (PreludeC-45TypesC-45String-C-43C-43 " of\u000a { " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-showSep "\u000a | " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45CaseTree-u--show_Show_C-40CaseAltC-32C-36varsC-41 arg-0 eta-0)) e-5)) "\u000a }"))))))))))))) ((1) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (PreludeC-45TypesC-45String-C-43C-43 "[" (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Int e-7) (PreludeC-45TypesC-45String-C-43C-43 "] " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 e-8))))))) ((2) (let ((e-10 (vector-ref sc0 1))) (PreludeC-45TypesC-45String-C-43C-43 "Error: " (PreludeC-45Show-u--show_Show_String e-10)))) (else "Impossible"))))) -(define CoreC-45CaseTree-u--show_Show_C-40CaseAltC-32C-36varsC-41 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-showSep " " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45Name-u--show_Show_Name eta-0)) (cons e-1 e-3))) (PreludeC-45TypesC-45String-C-43C-43 " => " (CoreC-45CaseTree-u--show_Show_C-40CaseTreeC-32C-36varsC-41 (PreludeC-45TypesC-45List-C-43C-43 e-3 arg-0) e-4))))))) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (PreludeC-45TypesC-45String-C-43C-43 "Delay " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-7) (PreludeC-45TypesC-45String-C-43C-43 " => " (CoreC-45CaseTree-u--show_Show_C-40CaseTreeC-32C-36varsC-41 (cons e-6 (cons e-7 arg-0)) e-8)))))))) ((2) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (PreludeC-45TypesC-45String-C-43C-43 "Constant " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_Constant e-10) (PreludeC-45TypesC-45String-C-43C-43 " => " (CoreC-45CaseTree-u--show_Show_C-40CaseTreeC-32C-36varsC-41 arg-0 e-11))))))) (else (let ((e-13 (vector-ref sc0 1))) (PreludeC-45TypesC-45String-C-43C-43 "_ => " (CoreC-45CaseTree-u--show_Show_C-40CaseTreeC-32C-36varsC-41 arg-0 e-13)))))))) -(define CoreC-45CaseTree-u--showPrec_Show_Pat (lambda (arg-0 arg-1) (CoreC-45CaseTree-u--show_Show_Pat arg-1))) -(define CoreC-45CaseTree-u--pretty_Pretty_Pat (lambda (arg-1) (CoreC-45CaseTree-u--prettyPrec_Pretty_Pat (vector 0 ) arg-1))) -(define CoreC-45CaseTree-u--pretty_Pretty_C-40CaseTreeC-32C-36varsC-41 (lambda (arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "case") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (CoreC-45Name-u--pretty_Pretty_Name e-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 ":") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (CoreC-45TT-u--pretty_Pretty_C-40TermC-32C-36varsC-41 arg-1 e-4) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "of") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-nest 2 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-hardline) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45CaseTree-u--pretty_Pretty_C-40CaseAltC-32C-36varsC-41 arg-1 eta-0)) e-5))))))))))))) ((1) (let ((e-8 (vector-ref sc0 2))) (CoreC-45TT-u--pretty_Pretty_C-40TermC-32C-36varsC-41 arg-1 e-8))) ((2) (let ((e-10 (vector-ref sc0 1))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "Error:") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String e-10)))) (else (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "Impossible")))))) -(define CoreC-45CaseTree-u--pretty_Pretty_C-40CaseAltC-32C-36varsC-41 (lambda (arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-hsep (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45Name-u--pretty_Pretty_Name eta-0)) (cons e-1 e-3))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "=>") (vector 7 (lambda () (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-spaces 1) (CoreC-45CaseTree-u--pretty_Pretty_C-40CaseTreeC-32C-36varsC-41 (PreludeC-45TypesC-45List-C-43C-43 e-3 arg-1) e-4))) (lambda () (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-nest 2 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-hardline) (CoreC-45CaseTree-u--pretty_Pretty_C-40CaseTreeC-32C-36varsC-41 (PreludeC-45TypesC-45List-C-43C-43 e-3 arg-1) e-4))))))))))) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "Delay") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (CoreC-45Name-u--pretty_Pretty_Name e-7) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "=>") (vector 7 (lambda () (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-spaces 1) (CoreC-45CaseTree-u--pretty_Pretty_C-40CaseTreeC-32C-36varsC-41 (cons e-6 (cons e-7 arg-1)) e-8))) (lambda () (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-nest 2 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-hardline) (CoreC-45CaseTree-u--pretty_Pretty_C-40CaseTreeC-32C-36varsC-41 (cons e-6 (cons e-7 arg-1)) e-8)))))))))))) ((2) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (CoreC-45TT-u--pretty_Pretty_Constant e-10) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "=>") (vector 7 (lambda () (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-spaces 1) (CoreC-45CaseTree-u--pretty_Pretty_C-40CaseTreeC-32C-36varsC-41 arg-1 e-11))) (lambda () (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-nest 2 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-hardline) (CoreC-45CaseTree-u--pretty_Pretty_C-40CaseTreeC-32C-36varsC-41 arg-1 e-11)))))))))) (else (let ((e-13 (vector-ref sc0 1))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "_ =>") (vector 7 (lambda () (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-spaces 1) (CoreC-45CaseTree-u--pretty_Pretty_C-40CaseTreeC-32C-36varsC-41 arg-1 e-13))) (lambda () (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-nest 2 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-hardline) (CoreC-45CaseTree-u--pretty_Pretty_C-40CaseTreeC-32C-36varsC-41 arg-1 e-13)))))))))))) -(define CoreC-45CaseTree-u--prettyPrec_Pretty_Pat (lambda (arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (CoreC-45Name-u--pretty_Pretty_Name e-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "@") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-parens (CoreC-45CaseTree-u--pretty_Pretty_Pat e-2))))))) ((1) (let ((e-4 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 5))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-parenthesise (PreludeC-45Show-u--C-62_Ord_Prec arg-1 (vector 0 )) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-hsep (cons (CoreC-45Name-u--pretty_Pretty_Name e-4) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45CaseTree-u--prettyPrec_Pretty_Pat (vector 6 ) eta-0)) e-7))))))) ((2) (let ((e-9 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 4))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-parenthesise (PreludeC-45Show-u--C-62_Ord_Prec arg-1 (vector 0 )) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-hsep (cons (CoreC-45Name-u--pretty_Pretty_Name e-9) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45CaseTree-u--prettyPrec_Pretty_Pat (vector 6 ) eta-0)) e-11))))))) ((3) (let ((e-13 (vector-ref sc0 2))) (CoreC-45TT-u--pretty_Pretty_Constant e-13))) ((4) (let ((e-16 (vector-ref sc0 3))) (let ((e-17 (vector-ref sc0 4))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-parenthesise (PreludeC-45Show-u--C-62_Ord_Prec arg-1 (vector 0 )) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (CoreC-45CaseTree-u--pretty_Pretty_Pat e-16) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "->") (CoreC-45CaseTree-u--pretty_Pretty_Pat e-17))))))) ((5) (let ((e-21 (vector-ref sc0 4))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-parens (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "Delay") (CoreC-45CaseTree-u--pretty_Pretty_Pat e-21))))) ((6) (let ((e-23 (vector-ref sc0 2))) (CoreC-45Name-u--pretty_Pretty_Name e-23))) (else (let ((e-25 (vector-ref sc0 2))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String ".") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-parens (CoreC-45TT-u--pretty_Pretty_C-40TermC-32C-36varsC-41 '() e-25))))))))) -(define CoreC-45CaseTree-mkTerm (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 3))) (CoreC-45CaseTree-mkTerm arg-0 e-2))) ((1) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((e-6 (vector-ref sc0 4))) (let ((e-7 (vector-ref sc0 5))) (CoreC-45TT-apply e-3 (vector 1 e-3 (vector 2 e-5 e-6) e-4) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45CaseTree-mkTerm arg-0 eta-0)) e-7)))))))) ((2) (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 3))) (let ((e-11 (vector-ref sc0 4))) (CoreC-45TT-apply e-8 (vector 1 e-8 (vector 3 0 e-10) e-9) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45CaseTree-mkTerm arg-0 eta-0)) e-11))))))) ((3) (let ((e-12 (vector-ref sc0 1))) (let ((e-13 (vector-ref sc0 2))) (vector 9 e-12 e-13)))) ((4) (let ((e-14 (vector-ref sc0 1))) (let ((e-15 (vector-ref sc0 2))) (let ((e-16 (vector-ref sc0 3))) (let ((e-17 (vector-ref sc0 4))) (vector 3 e-14 e-15 (vector 2 e-14 (AlgebraC-45ZeroOneOmega-u--top_Top_ZeroOneOmega) (vector 1 ) (CoreC-45CaseTree-mkTerm arg-0 e-16)) (CoreC-45CaseTree-mkTerm (cons e-15 arg-0) e-17))))))) ((5) (let ((e-18 (vector-ref sc0 1))) (let ((e-19 (vector-ref sc0 2))) (let ((e-20 (vector-ref sc0 3))) (let ((e-21 (vector-ref sc0 4))) (vector 7 e-18 e-19 (CoreC-45CaseTree-mkTerm arg-0 e-20) (CoreC-45CaseTree-mkTerm arg-0 e-21))))))) ((6) (let ((e-22 (vector-ref sc0 1))) (let ((e-23 (vector-ref sc0 2))) (CoreC-45CaseTree-case--mkTerm-4231 e-23 e-22 arg-0 (CoreC-45TT-isVar e-23 arg-0))))) (else (let ((e-25 (vector-ref sc0 2))) (CoreC-45TT-embed e-25))))))) -(define CoreC-45CaseTree-isPConst (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 2))) (vector 1 e-1)))(else (vector 0 )))))) -(define CoreC-45CaseTree-isDefault (lambda (arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((3) 0)(else 1))))) -(define CoreC-45CaseTree-insertCaseNames (lambda (arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (CoreC-45CaseTree-case--insertCaseNames-3838 e-1 e-5 e-4 e-2 arg-4 arg-3 (CoreC-45TT-insertNVarNames arg-3 arg-4 e-2))))))) ((1) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (vector 1 e-7 (CoreC-45TT-insertNames arg-3 arg-4 e-8))))) ((2) (let ((e-10 (vector-ref sc0 1))) (vector 2 e-10))) (else (vector 3 )))))) -(define CoreC-45CaseTree-insertCaseAltNames (lambda (arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (vector 0 e-1 e-2 e-3 (CoreC-45CaseTree-insertCaseNames (CoreC-45TTC-45SizeOf-C-43 (CoreC-45TTC-45SizeOf-mkSizeOf e-3) arg-3) arg-4 e-4))))))) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (vector 1 e-6 e-7 (CoreC-45CaseTree-insertCaseNames (CoreC-45TTC-45SizeOf-suc (CoreC-45TTC-45SizeOf-suc arg-3)) arg-4 e-8)))))) ((2) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (vector 2 e-10 (CoreC-45CaseTree-insertCaseNames arg-3 arg-4 e-11))))) (else (let ((e-13 (vector-ref sc0 1))) (vector 3 (CoreC-45CaseTree-insertCaseNames arg-3 arg-4 e-13)))))))) -(define CoreC-45CaseTree-getNames (lambda (arg-1 arg-2 arg-3) (CoreC-45CaseTree-n--6678-4090-u--getSet arg-3 arg-2 arg-1 arg-2 arg-3))) -(define CoreC-45CaseTree-getMetas (lambda (ext-0) (CoreC-45CaseTree-getNames (lambda (vs-4182) (lambda (eta-0) (lambda (eta-1) (CoreC-45TT-addMetas eta-0 eta-1)))) (LibrariesC-45DataC-45NameMap-empty) ext-0))) -(define CoreC-45CaseTree-addRefs (lambda (arg-1 arg-2 ext-0) (CoreC-45CaseTree-getNames (lambda (vs-4172) (lambda (eta-0) (lambda (eta-1) (CoreC-45TT-addRefs 1 arg-1 eta-0 eta-1)))) arg-2 ext-0))) -(define CoreC-45CompileExpr-case--mkLocals-3444 (lambda (arg-3 arg-6 arg-7 arg-8 arg-9) (vector 0 arg-9 arg-6))) -(define CoreC-45CompileExpr-case--caseC-32blockC-32inC-32resolveRef-3308 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-9 arg-14) (vector 1 (vector 0 arg-14 arg-5)))) -(define CoreC-45CompileExpr-case--resolveRef-3251 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-9 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (CoreC-45CompileExpr-case--caseC-32blockC-32inC-32resolveRef-3308 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-9 (CoreC-45TT-weakenNVar (CoreC-45TTC-45SizeOf-C-43 arg-9 arg-7) 0))) (else (CoreC-45CompileExpr-resolveRef arg-9 (CoreC-45TTC-45SizeOf-sucR arg-7) arg-1 arg-5 arg-4)))))) -(define CoreC-45CompileExpr-case--find-2741 (lambda (arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((0) (CoreC-45CompileExpr-findDrop arg-6 arg-4 arg-3))(else (let ((sc1 arg-7)) (let ((e-3 (vector-ref sc1 1))) (let ((sc2 arg-4)) (cond ((equal? sc2 0) (vector 0 0 arg-6))(else (let ((e-4 (- arg-4 1))) (CoreC-45CompileExpr-u--weaken_Weaken_CExp (CoreC-45CompileExpr-find arg-6 e-3 e-4 arg-3))))))))))))(else (let ((sc0 arg-7)) (let ((e-3 (vector-ref sc0 1))) (let ((sc1 arg-4)) (cond ((equal? sc1 0) (vector 0 0 arg-6))(else (let ((e-4 (- arg-4 1))) (CoreC-45CompileExpr-u--weaken_Weaken_CExp (CoreC-45CompileExpr-find arg-6 e-3 e-4 arg-3))))))))))))) -(define CoreC-45CompileExpr-case--shrinkCExp-2249 (lambda (arg-3 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (vector 13 arg-5)) (else (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2 arg-5))))))) -(define CoreC-45CompileExpr-case--insertNames-1834 (lambda (arg-4 arg-6 arg-7 arg-8 arg-9) (vector 0 arg-9 arg-6))) -(define CoreC-45CompileExpr-case--uniqueName-1161 (lambda (arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (CoreC-45CompileExpr-uniqueName (CoreC-45CompileExpr-tryNext arg-2) arg-1)) (else arg-2))))) -(define CoreC-45CompileExpr-n--5594-1038-u--showFlag (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((2) "[nil] ") ((3) "[cons] ")(else ""))))) -(define CoreC-45CompileExpr-n--5283-820-u--showFlag (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((2) "[nil] ") ((3) "[cons] ")(else ""))))) +(define LibrariesC-45DataC-45StringC-45Iterator-foldl (lambda (arg-1 arg-2 arg-3) (LibrariesC-45DataC-45StringC-45Iterator-withString arg-3 (lambda (eta-0) (LibrariesC-45DataC-45StringC-45Iterator-n--2064-1319-u--loop arg-3 arg-2 arg-1 arg-2 eta-0))))) +(define CoreC-45CompileExpr-case--find-2734 (lambda (arg-3 arg-4 arg-5 arg-6 arg-7) (cond ((equal? arg-5 0) (if (null? arg-7) (CoreC-45CompileExpr-findDrop arg-6 arg-4 arg-3) (let ((e-3 (unbox arg-7))) (cond ((equal? arg-4 0) (vector 0 0 arg-6))(else (let ((e-4 (- arg-4 1))) (CoreC-45CompileExpr-u--weaken_Weaken_CExp (CoreC-45CompileExpr-find arg-6 e-3 e-4 arg-3))))))))(else (let ((e-3 (unbox arg-7))) (cond ((equal? arg-4 0) (vector 0 0 arg-6))(else (let ((e-4 (- arg-4 1))) (CoreC-45CompileExpr-u--weaken_Weaken_CExp (CoreC-45CompileExpr-find arg-6 e-3 e-4 arg-3)))))))))) +(define CoreC-45CompileExpr-n--4453-1025-u--showFlag (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (cond ((equal? arg-5 0) "")(else (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45CompileExpr-u--show_Show_ConInfo arg-5) " "))))) +(define CoreC-45CompileExpr-n--4143-809-u--showFlag (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (cond ((equal? arg-5 0) "")(else (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45CompileExpr-u--show_Show_ConInfo arg-5) " "))))) (define CoreC-45CompileExpr-u--weaken_Weaken_CExp (lambda (ext-0) (CoreC-45CompileExpr-u--weakenNs_Weaken_CExp (CoreC-45TTC-45SizeOf-suc (CoreC-45TTC-45SizeOf-zero)) ext-0))) (define CoreC-45CompileExpr-u--weakenNs_Weaken_CExp (lambda (arg-2 arg-3) (CoreC-45CompileExpr-insertNames (CoreC-45TTC-45SizeOf-zero) arg-2 arg-3))) (define CoreC-45CompileExpr-u--weakenNs_Weaken_CConAlt (lambda (arg-2 arg-3) (CoreC-45CompileExpr-insertNamesConAlt (CoreC-45TTC-45SizeOf-zero) arg-2 arg-3))) -(define CoreC-45CompileExpr-u--show_Show_NamedDef (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45Name-u--show_Show_Name u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Name-u--showPrec_Show_Name u--d u--x)))) e-0) (PreludeC-45TypesC-45String-C-43C-43 ": " (CoreC-45CompileExpr-u--show_Show_NamedCExp e-1)))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (PreludeC-45TypesC-45String-C-43C-43 "Constructor tag " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_Int u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_Int u--d u--x)))) e-2) (PreludeC-45TypesC-45String-C-43C-43 " arity " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Nat e-3) (PreludeC-45Types-maybe (lambda () "") (lambda () (lambda (u--n) (PreludeC-45TypesC-45String-C-43C-43 " (newtype by " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Nat u--n) ")")))) e-4))))))))) ((2) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (PreludeC-45TypesC-45String-C-43C-43 "Foreign call " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_String u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_String u--d u--x)))) e-5) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45CompileExpr-u--show_Show_CFType u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45CompileExpr-u--showPrec_Show_CFType u--d u--x)))) e-6) (PreludeC-45TypesC-45String-C-43C-43 " -> " (CoreC-45CompileExpr-u--show_Show_CFType e-7)))))))))) (else (let ((e-8 (vector-ref sc0 1))) (PreludeC-45TypesC-45String-C-43C-43 "Error: " (CoreC-45CompileExpr-u--show_Show_NamedCExp e-8)))))))) -(define CoreC-45CompileExpr-u--show_Show_NamedConstAlt (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (car sc0))) (let ((e-1 (cdr sc0))) (PreludeC-45TypesC-45String-C-43C-43 "(%constcase " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_Constant e-0) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45CompileExpr-u--show_Show_NamedCExp e-1) ")"))))))))) -(define CoreC-45CompileExpr-u--show_Show_NamedConAlt (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (PreludeC-45TypesC-45String-C-43C-43 "(%concase " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45CompileExpr-n--5594-1038-u--showFlag e-4 e-3 e-2 e-1 e-0 e-1) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-0) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_Int u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_Int u--d u--x)))) e-2) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45Name-u--show_Show_Name u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Name-u--showPrec_Show_Name u--d u--x)))) e-3) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45CompileExpr-u--show_Show_NamedCExp e-4) ")"))))))))))))))))) -(define CoreC-45CompileExpr-u--show_Show_NamedCExp (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (PreludeC-45TypesC-45String-C-43C-43 "!" (CoreC-45Name-u--show_Show_Name e-1)))) ((1) (let ((e-3 (vector-ref sc0 2))) (CoreC-45Name-u--show_Show_Name e-3))) ((2) (let ((e-5 (vector-ref sc0 2))) (let ((e-6 (vector-ref sc0 3))) (PreludeC-45TypesC-45String-C-43C-43 "(%lam " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-5) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45CompileExpr-u--show_Show_NamedCExp e-6) ")"))))))) ((3) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (let ((e-10 (vector-ref sc0 4))) (PreludeC-45TypesC-45String-C-43C-43 "(%let " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-8) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45CompileExpr-u--show_Show_NamedCExp e-9) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45CompileExpr-u--show_Show_NamedCExp e-10) ")")))))))))) ((4) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (PreludeC-45TypesC-45String-C-43C-43 "(" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45CompileExpr-u--show_Show_NamedCExp e-12) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45CompileExpr-u--show_Show_NamedCExp u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45CompileExpr-u--showPrec_Show_NamedCExp u--d u--x)))) e-13) ")"))))))) ((5) (let ((e-14 (vector-ref sc0 1))) (let ((e-15 (vector-ref sc0 2))) (let ((e-16 (vector-ref sc0 3))) (let ((e-17 (vector-ref sc0 4))) (let ((e-18 (vector-ref sc0 5))) (PreludeC-45TypesC-45String-C-43C-43 "(%con " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45CompileExpr-n--5283-820-u--showFlag e-14 e-18 e-17 e-16 e-15 e-16) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-15) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_Int u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_Int u--d u--x)))) e-17) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45CompileExpr-u--show_Show_NamedCExp u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45CompileExpr-u--showPrec_Show_NamedCExp u--d u--x)))) e-18) ")"))))))))))))) ((6) (let ((e-21 (vector-ref sc0 3))) (let ((e-22 (vector-ref sc0 4))) (PreludeC-45TypesC-45String-C-43C-43 "(" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40PrimFnC-32C-36arityC-41 e-21) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (DataC-45Vect-u--show_Show_C-40C-40VectC-32C-36lenC-41C-32C-36elemC-41 (cons (lambda (u--x) (CoreC-45CompileExpr-u--show_Show_NamedCExp u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45CompileExpr-u--showPrec_Show_NamedCExp u--d u--x)))) e-22) ")"))))))) ((7) (let ((e-24 (vector-ref sc0 2))) (let ((e-25 (vector-ref sc0 3))) (PreludeC-45TypesC-45String-C-43C-43 "(%extern " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-24) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45CompileExpr-u--show_Show_NamedCExp u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45CompileExpr-u--showPrec_Show_NamedCExp u--d u--x)))) e-25) ")"))))))) ((8) (let ((e-27 (vector-ref sc0 2))) (let ((e-28 (vector-ref sc0 3))) (PreludeC-45TypesC-45String-C-43C-43 "(%force " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_LazyReason e-27) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45CompileExpr-u--show_Show_NamedCExp e-28) ")"))))))) ((9) (let ((e-30 (vector-ref sc0 2))) (let ((e-31 (vector-ref sc0 3))) (PreludeC-45TypesC-45String-C-43C-43 "(%delay " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_LazyReason e-30) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45CompileExpr-u--show_Show_NamedCExp e-31) ")"))))))) ((10) (let ((e-33 (vector-ref sc0 2))) (let ((e-34 (vector-ref sc0 3))) (let ((e-35 (vector-ref sc0 4))) (PreludeC-45TypesC-45String-C-43C-43 "(%case " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45CompileExpr-u--show_Show_NamedCExp e-33) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45CompileExpr-u--show_Show_NamedConAlt u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45CompileExpr-u--showPrec_Show_NamedConAlt u--d u--x)))) e-34) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45CompileExpr-u--show_Show_NamedCExp u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45CompileExpr-u--showPrec_Show_NamedCExp u--d u--x)))) e-35) ")")))))))))) ((11) (let ((e-37 (vector-ref sc0 2))) (let ((e-38 (vector-ref sc0 3))) (let ((e-39 (vector-ref sc0 4))) (PreludeC-45TypesC-45String-C-43C-43 "(%case " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45CompileExpr-u--show_Show_NamedCExp e-37) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45CompileExpr-u--show_Show_NamedConstAlt u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45CompileExpr-u--showPrec_Show_NamedConstAlt u--d u--x)))) e-38) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45CompileExpr-u--show_Show_NamedCExp u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45CompileExpr-u--showPrec_Show_NamedCExp u--d u--x)))) e-39) ")")))))))))) ((12) (let ((e-41 (vector-ref sc0 2))) (CoreC-45TT-u--show_Show_Constant e-41))) ((13) "___") (else (let ((e-44 (vector-ref sc0 2))) (PreludeC-45TypesC-45String-C-43C-43 "(CRASH " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_String e-44) ")")))))))) -(define CoreC-45CompileExpr-u--show_Show_ConInfo (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) "[datacon]") ((1) "[tycon]") ((2) "[nil]") (else "[cons]"))))) -(define CoreC-45CompileExpr-u--show_Show_CFType (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) "Unit") ((1) "Int") ((2) "Bits_8") ((3) "Bits_16") ((4) "Bits_32") ((5) "Bits_64") ((6) "String") ((7) "Double") ((8) "Char") ((9) "Ptr") ((10) "GCPtr") ((11) "Buffer") ((12) "%World") ((13) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45CompileExpr-u--show_Show_CFType e-0) (PreludeC-45TypesC-45String-C-43C-43 " -> " (CoreC-45CompileExpr-u--show_Show_CFType e-1)))))) ((14) (let ((e-2 (vector-ref sc0 1))) (PreludeC-45TypesC-45String-C-43C-43 "IORes " (CoreC-45CompileExpr-u--show_Show_CFType e-2)))) ((15) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (PreludeC-45TypesC-45String-C-43C-43 "struct " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_String e-3) (PreludeC-45TypesC-45String-C-43C-43 " " (CoreC-45NameC-45Namespace-showSep " " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_String u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_String u--d u--x)))) (cons (lambda (u--x) (CoreC-45CompileExpr-u--show_Show_CFType u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45CompileExpr-u--showPrec_Show_CFType u--d u--x))))) eta-0)) e-4)))))))) (else (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-5) (PreludeC-45TypesC-45String-C-43C-43 " " (CoreC-45NameC-45Namespace-showSep " " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45CompileExpr-u--show_Show_CFType eta-0)) e-6))))))))))) -(define CoreC-45CompileExpr-u--show_Show_CDef (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45Name-u--show_Show_Name u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Name-u--showPrec_Show_Name u--d u--x)))) e-0) (PreludeC-45TypesC-45String-C-43C-43 ": " (CoreC-45CompileExpr-u--show_Show_C-40CExpC-32C-36varsC-41 e-0 e-1)))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (PreludeC-45TypesC-45String-C-43C-43 "Constructor tag " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_Int u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_Int u--d u--x)))) e-2) (PreludeC-45TypesC-45String-C-43C-43 " arity " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Nat e-3) (PreludeC-45Types-maybe (lambda () "") (lambda () (lambda (u--n) (PreludeC-45TypesC-45String-C-43C-43 " (newtype by " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Nat u--n) ")")))) e-4))))))))) ((2) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (PreludeC-45TypesC-45String-C-43C-43 "Foreign call " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_String u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_String u--d u--x)))) e-5) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45CompileExpr-u--show_Show_CFType u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45CompileExpr-u--showPrec_Show_CFType u--d u--x)))) e-6) (PreludeC-45TypesC-45String-C-43C-43 " -> " (CoreC-45CompileExpr-u--show_Show_CFType e-7)))))))))) (else (let ((e-8 (vector-ref sc0 1))) (PreludeC-45TypesC-45String-C-43C-43 "Error: " (CoreC-45CompileExpr-u--show_Show_C-40CExpC-32C-36varsC-41 '() e-8)))))))) +(define CoreC-45CompileExpr-u--show_Show_NamedDef (lambda (arg-0) (case (vector-ref arg-0 0) ((0) (let ((e-0 (vector-ref arg-0 1))) (let ((e-1 (vector-ref arg-0 2))) (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45Name-u--show_Show_Name u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Name-u--showPrec_Show_Name u--d u--x)))) e-0) (PreludeC-45TypesC-45String-C-43C-43 ": " (CoreC-45CompileExpr-u--show_Show_NamedCExp e-1)))))) ((1) (let ((e-2 (vector-ref arg-0 1))) (let ((e-3 (vector-ref arg-0 2))) (let ((e-4 (vector-ref arg-0 3))) (PreludeC-45TypesC-45String-C-43C-43 "Constructor tag " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_Int u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_Int u--d u--x)))) e-2) (PreludeC-45TypesC-45String-C-43C-43 " arity " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Nat e-3) (PreludeC-45Types-maybe (lambda () "") (lambda () (lambda (u--n) (PreludeC-45TypesC-45String-C-43C-43 " (newtype by " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Nat u--n) ")")))) e-4))))))))) ((2) (let ((e-5 (vector-ref arg-0 1))) (let ((e-6 (vector-ref arg-0 2))) (let ((e-7 (vector-ref arg-0 3))) (PreludeC-45TypesC-45String-C-43C-43 "Foreign call " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_String u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_String u--d u--x)))) e-5) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45CompileExpr-u--show_Show_CFType u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45CompileExpr-u--showPrec_Show_CFType u--d u--x)))) e-6) (PreludeC-45TypesC-45String-C-43C-43 " -> " (CoreC-45CompileExpr-u--show_Show_CFType e-7)))))))))) (else (let ((e-8 (vector-ref arg-0 1))) (PreludeC-45TypesC-45String-C-43C-43 "Error: " (CoreC-45CompileExpr-u--show_Show_NamedCExp e-8))))))) +(define CoreC-45CompileExpr-u--show_Show_NamedConstAlt (lambda (arg-0) (let ((e-0 (car arg-0))) (let ((e-1 (cdr arg-0))) (PreludeC-45TypesC-45String-C-43C-43 "(%constcase " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_Constant e-0) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45CompileExpr-u--show_Show_NamedCExp e-1) ")")))))))) +(define CoreC-45CompileExpr-u--show_Show_NamedConAlt (lambda (arg-0) (let ((e-0 (vector-ref arg-0 0))) (let ((e-1 (vector-ref arg-0 1))) (let ((e-2 (vector-ref arg-0 2))) (let ((e-3 (vector-ref arg-0 3))) (let ((e-4 (vector-ref arg-0 4))) (PreludeC-45TypesC-45String-C-43C-43 "(%concase " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45CompileExpr-n--4453-1025-u--showFlag e-4 e-3 e-2 e-1 e-0 e-1) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-0) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_Int u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_Int u--d u--x)))) e-2) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45Name-u--show_Show_Name u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Name-u--showPrec_Show_Name u--d u--x)))) e-3) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45CompileExpr-u--show_Show_NamedCExp e-4) ")")))))))))))))))) +(define CoreC-45CompileExpr-u--show_Show_NamedCExp (lambda (arg-0) (case (vector-ref arg-0 0) ((0) (let ((e-1 (vector-ref arg-0 2))) (PreludeC-45TypesC-45String-C-43C-43 "!" (CoreC-45Name-u--show_Show_Name e-1)))) ((1) (let ((e-3 (vector-ref arg-0 2))) (CoreC-45Name-u--show_Show_Name e-3))) ((2) (let ((e-5 (vector-ref arg-0 2))) (let ((e-6 (vector-ref arg-0 3))) (PreludeC-45TypesC-45String-C-43C-43 "(%lam " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-5) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45CompileExpr-u--show_Show_NamedCExp e-6) ")"))))))) ((3) (let ((e-8 (vector-ref arg-0 2))) (let ((e-9 (vector-ref arg-0 3))) (let ((e-10 (vector-ref arg-0 4))) (PreludeC-45TypesC-45String-C-43C-43 "(%let " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-8) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45CompileExpr-u--show_Show_NamedCExp e-9) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45CompileExpr-u--show_Show_NamedCExp e-10) ")")))))))))) ((4) (let ((e-12 (vector-ref arg-0 2))) (let ((e-13 (vector-ref arg-0 3))) (PreludeC-45TypesC-45String-C-43C-43 "(" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45CompileExpr-u--show_Show_NamedCExp e-12) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45CompileExpr-u--show_Show_NamedCExp u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45CompileExpr-u--showPrec_Show_NamedCExp u--d u--x)))) e-13) ")"))))))) ((5) (let ((e-14 (vector-ref arg-0 1))) (let ((e-15 (vector-ref arg-0 2))) (let ((e-16 (vector-ref arg-0 3))) (let ((e-17 (vector-ref arg-0 4))) (let ((e-18 (vector-ref arg-0 5))) (PreludeC-45TypesC-45String-C-43C-43 "(%con " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45CompileExpr-n--4143-809-u--showFlag e-14 e-18 e-17 e-16 e-15 e-16) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-15) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_Int u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_Int u--d u--x)))) e-17) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45CompileExpr-u--show_Show_NamedCExp u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45CompileExpr-u--showPrec_Show_NamedCExp u--d u--x)))) e-18) ")"))))))))))))) ((6) (let ((e-21 (vector-ref arg-0 3))) (let ((e-22 (vector-ref arg-0 4))) (PreludeC-45TypesC-45String-C-43C-43 "(" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40PrimFnC-32C-36arityC-41 e-21) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (DataC-45Vect-u--show_Show_C-40C-40VectC-32C-36lenC-41C-32C-36elemC-41 (cons (lambda (u--x) (CoreC-45CompileExpr-u--show_Show_NamedCExp u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45CompileExpr-u--showPrec_Show_NamedCExp u--d u--x)))) e-22) ")"))))))) ((7) (let ((e-24 (vector-ref arg-0 2))) (let ((e-25 (vector-ref arg-0 3))) (PreludeC-45TypesC-45String-C-43C-43 "(%extern " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-24) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45CompileExpr-u--show_Show_NamedCExp u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45CompileExpr-u--showPrec_Show_NamedCExp u--d u--x)))) e-25) ")"))))))) ((8) (let ((e-27 (vector-ref arg-0 2))) (let ((e-28 (vector-ref arg-0 3))) (PreludeC-45TypesC-45String-C-43C-43 "(%force " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_LazyReason e-27) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45CompileExpr-u--show_Show_NamedCExp e-28) ")"))))))) ((9) (let ((e-30 (vector-ref arg-0 2))) (let ((e-31 (vector-ref arg-0 3))) (PreludeC-45TypesC-45String-C-43C-43 "(%delay " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_LazyReason e-30) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45CompileExpr-u--show_Show_NamedCExp e-31) ")"))))))) ((10) (let ((e-33 (vector-ref arg-0 2))) (let ((e-34 (vector-ref arg-0 3))) (let ((e-35 (vector-ref arg-0 4))) (PreludeC-45TypesC-45String-C-43C-43 "(%case " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45CompileExpr-u--show_Show_NamedCExp e-33) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45CompileExpr-u--show_Show_NamedConAlt u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45CompileExpr-u--showPrec_Show_NamedConAlt u--d u--x)))) e-34) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45CompileExpr-u--show_Show_NamedCExp u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45CompileExpr-u--showPrec_Show_NamedCExp u--d u--x)))) e-35) ")")))))))))) ((11) (let ((e-37 (vector-ref arg-0 2))) (let ((e-38 (vector-ref arg-0 3))) (let ((e-39 (vector-ref arg-0 4))) (PreludeC-45TypesC-45String-C-43C-43 "(%case " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45CompileExpr-u--show_Show_NamedCExp e-37) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45CompileExpr-u--show_Show_NamedConstAlt u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45CompileExpr-u--showPrec_Show_NamedConstAlt u--d u--x)))) e-38) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45CompileExpr-u--show_Show_NamedCExp u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45CompileExpr-u--showPrec_Show_NamedCExp u--d u--x)))) e-39) ")")))))))))) ((12) (let ((e-41 (vector-ref arg-0 2))) (CoreC-45TT-u--show_Show_Constant e-41))) ((13) "___") (else (let ((e-44 (vector-ref arg-0 2))) (PreludeC-45TypesC-45String-C-43C-43 "(CRASH " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_String e-44) ")"))))))) +(define CoreC-45CompileExpr-u--show_Show_ConInfo (lambda (arg-0) (cond ((equal? arg-0 0) "[datacon]") ((equal? arg-0 1) "[tycon]") ((equal? arg-0 2) "[nil]") ((equal? arg-0 3) "[cons]") ((equal? arg-0 4) "[enum]") ((equal? arg-0 5) "[nothing]") ((equal? arg-0 6) "[just]") (else "[record]")))) +(define CoreC-45CompileExpr-u--show_Show_CFType (lambda (arg-0) (case (vector-ref arg-0 0) ((0) "Unit") ((1) "Int") ((2) "Int_8") ((3) "Int_16") ((4) "Int_32") ((5) "Int_64") ((6) "Bits_8") ((7) "Bits_16") ((8) "Bits_32") ((9) "Bits_64") ((10) "String") ((11) "Double") ((12) "Char") ((13) "Ptr") ((14) "GCPtr") ((15) "Buffer") ((16) "%World") ((17) (let ((e-0 (vector-ref arg-0 1))) (let ((e-1 (vector-ref arg-0 2))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45CompileExpr-u--show_Show_CFType e-0) (PreludeC-45TypesC-45String-C-43C-43 " -> " (CoreC-45CompileExpr-u--show_Show_CFType e-1)))))) ((18) (let ((e-2 (vector-ref arg-0 1))) (PreludeC-45TypesC-45String-C-43C-43 "IORes " (CoreC-45CompileExpr-u--show_Show_CFType e-2)))) ((19) (let ((e-3 (vector-ref arg-0 1))) (let ((e-4 (vector-ref arg-0 2))) (PreludeC-45TypesC-45String-C-43C-43 "struct " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_String e-3) (PreludeC-45TypesC-45String-C-43C-43 " " (CoreC-45NameC-45Namespace-showSep " " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_String u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_String u--d u--x)))) (cons (lambda (u--x) (CoreC-45CompileExpr-u--show_Show_CFType u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45CompileExpr-u--showPrec_Show_CFType u--d u--x))))) eta-0)) e-4)))))))) (else (let ((e-5 (vector-ref arg-0 1))) (let ((e-6 (vector-ref arg-0 2))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-5) (PreludeC-45TypesC-45String-C-43C-43 " " (CoreC-45NameC-45Namespace-showSep " " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45CompileExpr-u--show_Show_CFType eta-0)) e-6)))))))))) +(define CoreC-45CompileExpr-u--show_Show_CDef (lambda (arg-0) (case (vector-ref arg-0 0) ((0) (let ((e-0 (vector-ref arg-0 1))) (let ((e-1 (vector-ref arg-0 2))) (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45Name-u--show_Show_Name u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Name-u--showPrec_Show_Name u--d u--x)))) e-0) (PreludeC-45TypesC-45String-C-43C-43 ": " (CoreC-45CompileExpr-u--show_Show_C-40CExpC-32C-36varsC-41 e-0 e-1)))))) ((1) (let ((e-2 (vector-ref arg-0 1))) (let ((e-3 (vector-ref arg-0 2))) (let ((e-4 (vector-ref arg-0 3))) (PreludeC-45TypesC-45String-C-43C-43 "Constructor tag " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_Int u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_Int u--d u--x)))) e-2) (PreludeC-45TypesC-45String-C-43C-43 " arity " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Nat e-3) (PreludeC-45Types-maybe (lambda () "") (lambda () (lambda (u--n) (PreludeC-45TypesC-45String-C-43C-43 " (newtype by " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Nat u--n) ")")))) e-4))))))))) ((2) (let ((e-5 (vector-ref arg-0 1))) (let ((e-6 (vector-ref arg-0 2))) (let ((e-7 (vector-ref arg-0 3))) (PreludeC-45TypesC-45String-C-43C-43 "Foreign call " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_String u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_String u--d u--x)))) e-5) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45CompileExpr-u--show_Show_CFType u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45CompileExpr-u--showPrec_Show_CFType u--d u--x)))) e-6) (PreludeC-45TypesC-45String-C-43C-43 " -> " (CoreC-45CompileExpr-u--show_Show_CFType e-7)))))))))) (else (let ((e-8 (vector-ref arg-0 1))) (PreludeC-45TypesC-45String-C-43C-43 "Error: " (CoreC-45CompileExpr-u--show_Show_C-40CExpC-32C-36varsC-41 '() e-8))))))) (define CoreC-45CompileExpr-u--show_Show_C-40CExpC-32C-36varsC-41 (lambda (arg-0 arg-1) (CoreC-45CompileExpr-u--show_Show_NamedCExp (CoreC-45CompileExpr-forget arg-0 arg-1)))) (define CoreC-45CompileExpr-u--showPrec_Show_NamedConstAlt (lambda (arg-0 arg-1) (CoreC-45CompileExpr-u--show_Show_NamedConstAlt arg-1))) (define CoreC-45CompileExpr-u--showPrec_Show_NamedConAlt (lambda (arg-0 arg-1) (CoreC-45CompileExpr-u--show_Show_NamedConAlt arg-1))) (define CoreC-45CompileExpr-u--showPrec_Show_NamedCExp (lambda (arg-0 arg-1) (CoreC-45CompileExpr-u--show_Show_NamedCExp arg-1))) (define CoreC-45CompileExpr-u--showPrec_Show_CFType (lambda (arg-0 arg-1) (CoreC-45CompileExpr-u--show_Show_CFType arg-1))) -(define CoreC-45CompileExpr-u--C-61C-61_Eq_ConInfo (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) 0)(else 1)))) ((1) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) 0)(else 1)))) ((2) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((2) 0)(else 1)))) ((3) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((3) 0)(else 1))))(else 1))))) -(define CoreC-45CompileExpr-uniqueName (lambda (arg-1 arg-2) (CoreC-45CompileExpr-case--uniqueName-1161 arg-2 arg-1 (CoreC-45CompileExpr-elem arg-1 arg-2)))) -(define CoreC-45CompileExpr-tryNext (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (vector 2 e-0 0))) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (vector 2 e-1 (bs+ 1 e-2 63)))))(else (vector 2 (CoreC-45Name-nameRoot arg-0) 0)))))) +(define CoreC-45CompileExpr-u--C-61C-61_Eq_ConInfo (lambda (arg-0 arg-1) (cond ((equal? arg-0 0) (cond ((equal? arg-1 0) 1)(else 0))) ((equal? arg-0 1) (cond ((equal? arg-1 1) 1)(else 0))) ((equal? arg-0 2) (cond ((equal? arg-1 2) 1)(else 0))) ((equal? arg-0 3) (cond ((equal? arg-1 3) 1)(else 0))) ((equal? arg-0 4) (cond ((equal? arg-1 4) 1)(else 0))) ((equal? arg-0 5) (cond ((equal? arg-1 5) 1)(else 0))) ((equal? arg-0 6) (cond ((equal? arg-1 6) 1)(else 0))) ((equal? arg-0 7) (cond ((equal? arg-1 7) 1)(else 0)))(else 0)))) +(define CoreC-45CompileExpr-uniqueName (lambda (arg-1 arg-2) (let ((sc0 (CoreC-45CompileExpr-elem arg-1 arg-2))) (cond ((equal? sc0 1) (CoreC-45CompileExpr-uniqueName (CoreC-45CompileExpr-tryNext arg-1) arg-2)) (else arg-1))))) +(define CoreC-45CompileExpr-tryNext (lambda (arg-0) (case (vector-ref arg-0 0) ((1) (let ((e-0 (vector-ref arg-0 1))) (vector 2 e-0 0))) ((2) (let ((e-1 (vector-ref arg-0 1))) (let ((e-2 (vector-ref arg-0 2))) (vector 2 e-1 (bs+ 1 e-2 63)))))(else (vector 2 (CoreC-45Name-nameRoot arg-0) 0))))) (define CoreC-45CompileExpr-substs (lambda (arg-0 arg-1 arg-2 arg-3) (CoreC-45CompileExpr-substEnv (CoreC-45TTC-45SizeOf-zero) arg-2 arg-3))) -(define CoreC-45CompileExpr-substEnv (lambda (arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (CoreC-45CompileExpr-find e-3 arg-3 e-2 arg-4)))) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (vector 1 e-6 e-7)))) ((2) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (let ((u--scC-39 (CoreC-45CompileExpr-substEnv (CoreC-45TTC-45SizeOf-suc arg-3) arg-4 e-11))) (vector 2 e-9 e-10 u--scC-39)))))) ((3) (let ((e-13 (vector-ref sc0 1))) (let ((e-14 (vector-ref sc0 2))) (let ((e-15 (vector-ref sc0 3))) (let ((e-16 (vector-ref sc0 4))) (let ((e-17 (vector-ref sc0 5))) (let ((u--scC-39 (CoreC-45CompileExpr-substEnv (CoreC-45TTC-45SizeOf-suc arg-3) arg-4 e-17))) (vector 3 e-13 e-14 e-15 (CoreC-45CompileExpr-substEnv arg-3 arg-4 e-16) u--scC-39)))))))) ((4) (let ((e-19 (vector-ref sc0 1))) (let ((e-20 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 3))) (vector 4 e-19 (CoreC-45CompileExpr-substEnv arg-3 arg-4 e-20) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45CompileExpr-substEnv arg-3 arg-4 eta-0)) e-21)))))) ((5) (let ((e-23 (vector-ref sc0 1))) (let ((e-24 (vector-ref sc0 2))) (let ((e-25 (vector-ref sc0 3))) (let ((e-26 (vector-ref sc0 4))) (let ((e-27 (vector-ref sc0 5))) (vector 5 e-23 e-24 e-25 e-26 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45CompileExpr-substEnv arg-3 arg-4 eta-0)) e-27)))))))) ((6) (let ((e-29 (vector-ref sc0 1))) (let ((e-30 (vector-ref sc0 2))) (let ((e-31 (vector-ref sc0 3))) (let ((e-32 (vector-ref sc0 4))) (vector 6 e-29 e-30 e-31 (DataC-45Vect-u--map_Functor_C-40VectC-32C-36nC-41 (lambda (eta-0) (CoreC-45CompileExpr-substEnv arg-3 arg-4 eta-0)) e-32))))))) ((7) (let ((e-34 (vector-ref sc0 1))) (let ((e-35 (vector-ref sc0 2))) (let ((e-36 (vector-ref sc0 3))) (vector 7 e-34 e-35 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45CompileExpr-substEnv arg-3 arg-4 eta-0)) e-36)))))) ((8) (let ((e-38 (vector-ref sc0 1))) (let ((e-39 (vector-ref sc0 2))) (let ((e-40 (vector-ref sc0 3))) (vector 8 e-38 e-39 (CoreC-45CompileExpr-substEnv arg-3 arg-4 e-40)))))) ((9) (let ((e-42 (vector-ref sc0 1))) (let ((e-43 (vector-ref sc0 2))) (let ((e-44 (vector-ref sc0 3))) (vector 9 e-42 e-43 (CoreC-45CompileExpr-substEnv arg-3 arg-4 e-44)))))) ((10) (let ((e-46 (vector-ref sc0 1))) (let ((e-47 (vector-ref sc0 2))) (let ((e-48 (vector-ref sc0 3))) (let ((e-49 (vector-ref sc0 4))) (vector 10 e-46 (CoreC-45CompileExpr-substEnv arg-3 arg-4 e-47) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45CompileExpr-substConAlt arg-3 arg-4 eta-0)) e-48) (PreludeC-45Types-u--map_Functor_Maybe (lambda (eta-0) (CoreC-45CompileExpr-substEnv arg-3 arg-4 eta-0)) e-49))))))) ((11) (let ((e-51 (vector-ref sc0 1))) (let ((e-52 (vector-ref sc0 2))) (let ((e-53 (vector-ref sc0 3))) (let ((e-54 (vector-ref sc0 4))) (vector 11 e-51 (CoreC-45CompileExpr-substEnv arg-3 arg-4 e-52) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45CompileExpr-substConstAlt arg-3 arg-4 eta-0)) e-53) (PreludeC-45Types-u--map_Functor_Maybe (lambda (eta-0) (CoreC-45CompileExpr-substEnv arg-3 arg-4 eta-0)) e-54))))))) ((12) (let ((e-56 (vector-ref sc0 1))) (let ((e-57 (vector-ref sc0 2))) (vector 12 e-56 e-57)))) ((13) (let ((e-59 (vector-ref sc0 1))) (vector 13 e-59))) (else (let ((e-61 (vector-ref sc0 1))) (let ((e-62 (vector-ref sc0 2))) (vector 14 e-61 e-62)))))))) -(define CoreC-45CompileExpr-substConstAlt (lambda (arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (let ((e-1 (car sc0))) (let ((e-2 (cdr sc0))) (cons e-1 (CoreC-45CompileExpr-substEnv arg-3 arg-4 e-2))))))) -(define CoreC-45CompileExpr-substConAlt (lambda (arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (vector 0 e-1 e-2 e-3 e-4 (CoreC-45CompileExpr-substEnv (CoreC-45TTC-45SizeOf-C-43 (CoreC-45TTC-45SizeOf-mkSizeOf e-4) arg-3) arg-4 e-5)))))))))) -(define CoreC-45CompileExpr-shrinkConstAlt (lambda (arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-1 (car sc0))) (let ((e-2 (cdr sc0))) (cons e-1 (CoreC-45CompileExpr-shrinkCExp arg-2 e-2))))))) -(define CoreC-45CompileExpr-shrinkConAlt (lambda (arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (vector 0 e-1 e-2 e-3 e-4 (CoreC-45CompileExpr-shrinkCExp (CoreC-45TT-subExtend e-4 arg-2) e-5)))))))))) -(define CoreC-45CompileExpr-shrinkCExp (lambda (arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (CoreC-45CompileExpr-case--shrinkCExp-2249 e-2 e-3 arg-2 (CoreC-45TT-subElem e-2 arg-2))))) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (vector 1 e-6 e-7)))) ((2) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (let ((u--scC-39 (CoreC-45CompileExpr-shrinkCExp (vector 2 arg-2) e-11))) (vector 2 e-9 e-10 u--scC-39)))))) ((3) (let ((e-13 (vector-ref sc0 1))) (let ((e-14 (vector-ref sc0 2))) (let ((e-15 (vector-ref sc0 3))) (let ((e-16 (vector-ref sc0 4))) (let ((e-17 (vector-ref sc0 5))) (let ((u--scC-39 (CoreC-45CompileExpr-shrinkCExp (vector 2 arg-2) e-17))) (vector 3 e-13 e-14 e-15 (CoreC-45CompileExpr-shrinkCExp arg-2 e-16) u--scC-39)))))))) ((4) (let ((e-19 (vector-ref sc0 1))) (let ((e-20 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 3))) (vector 4 e-19 (CoreC-45CompileExpr-shrinkCExp arg-2 e-20) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45CompileExpr-shrinkCExp arg-2 eta-0)) e-21)))))) ((5) (let ((e-23 (vector-ref sc0 1))) (let ((e-24 (vector-ref sc0 2))) (let ((e-25 (vector-ref sc0 3))) (let ((e-26 (vector-ref sc0 4))) (let ((e-27 (vector-ref sc0 5))) (vector 5 e-23 e-24 e-25 e-26 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45CompileExpr-shrinkCExp arg-2 eta-0)) e-27)))))))) ((6) (let ((e-29 (vector-ref sc0 1))) (let ((e-30 (vector-ref sc0 2))) (let ((e-31 (vector-ref sc0 3))) (let ((e-32 (vector-ref sc0 4))) (vector 6 e-29 e-30 e-31 (DataC-45Vect-u--map_Functor_C-40VectC-32C-36nC-41 (lambda (eta-0) (CoreC-45CompileExpr-shrinkCExp arg-2 eta-0)) e-32))))))) ((7) (let ((e-34 (vector-ref sc0 1))) (let ((e-35 (vector-ref sc0 2))) (let ((e-36 (vector-ref sc0 3))) (vector 7 e-34 e-35 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45CompileExpr-shrinkCExp arg-2 eta-0)) e-36)))))) ((8) (let ((e-38 (vector-ref sc0 1))) (let ((e-39 (vector-ref sc0 2))) (let ((e-40 (vector-ref sc0 3))) (vector 8 e-38 e-39 (CoreC-45CompileExpr-shrinkCExp arg-2 e-40)))))) ((9) (let ((e-42 (vector-ref sc0 1))) (let ((e-43 (vector-ref sc0 2))) (let ((e-44 (vector-ref sc0 3))) (vector 9 e-42 e-43 (CoreC-45CompileExpr-shrinkCExp arg-2 e-44)))))) ((10) (let ((e-46 (vector-ref sc0 1))) (let ((e-47 (vector-ref sc0 2))) (let ((e-48 (vector-ref sc0 3))) (let ((e-49 (vector-ref sc0 4))) (vector 10 e-46 (CoreC-45CompileExpr-shrinkCExp arg-2 e-47) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45CompileExpr-shrinkConAlt arg-2 eta-0)) e-48) (PreludeC-45Types-u--map_Functor_Maybe (lambda (eta-0) (CoreC-45CompileExpr-shrinkCExp arg-2 eta-0)) e-49))))))) ((11) (let ((e-51 (vector-ref sc0 1))) (let ((e-52 (vector-ref sc0 2))) (let ((e-53 (vector-ref sc0 3))) (let ((e-54 (vector-ref sc0 4))) (vector 11 e-51 (CoreC-45CompileExpr-shrinkCExp arg-2 e-52) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45CompileExpr-shrinkConstAlt arg-2 eta-0)) e-53) (PreludeC-45Types-u--map_Functor_Maybe (lambda (eta-0) (CoreC-45CompileExpr-shrinkCExp arg-2 eta-0)) e-54))))))) ((12) (let ((e-56 (vector-ref sc0 1))) (let ((e-57 (vector-ref sc0 2))) (vector 12 e-56 e-57)))) ((13) (let ((e-59 (vector-ref sc0 1))) (vector 13 e-59))) (else (let ((e-61 (vector-ref sc0 1))) (let ((e-62 (vector-ref sc0 2))) (vector 14 e-61 e-62)))))))) -(define CoreC-45CompileExpr-resolveRef (lambda (arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (CoreC-45CompileExpr-case--resolveRef-3251 e-3 e-2 e-1 arg-8 arg-7 arg-5 arg-4 (CoreC-45Name-u--C-61C-61_Eq_Name arg-8 e-2)))))))))) -(define CoreC-45CompileExpr-refsToLocals (lambda (arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) arg-3)(else (CoreC-45CompileExpr-mkLocals (CoreC-45TTC-45SizeOf-zero) arg-2 arg-3)))))) -(define CoreC-45CompileExpr-mkLocalsConstAlt (lambda (arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (let ((e-1 (car sc0))) (let ((e-2 (cdr sc0))) (cons e-1 (CoreC-45CompileExpr-mkLocals arg-3 arg-4 e-2))))))) -(define CoreC-45CompileExpr-mkLocalsConAlt (lambda (arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((u--scC-39 e-5)) (vector 0 e-1 e-2 e-3 e-4 (CoreC-45CompileExpr-mkLocals (CoreC-45TTC-45SizeOf-C-43 (CoreC-45TTC-45SizeOf-mkSizeOf e-4) arg-3) arg-4 u--scC-39))))))))))) -(define CoreC-45CompileExpr-mkLocals (lambda (arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (CoreC-45CompileExpr-case--mkLocals-3444 e-2 e-3 arg-4 arg-3 (CoreC-45TT-addVars arg-3 arg-4 e-2))))) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (PreludeC-45Types-maybe (lambda () (vector 1 e-6 e-7)) (lambda () (lambda (eta-0) eta-0)) (CoreC-45CompileExpr-resolveRef arg-3 (CoreC-45TTC-45SizeOf-zero) arg-4 e-6 e-7))))) ((2) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (let ((u--scC-39 (CoreC-45CompileExpr-mkLocals (CoreC-45TTC-45SizeOf-suc arg-3) arg-4 e-11))) (vector 2 e-9 e-10 u--scC-39)))))) ((3) (let ((e-13 (vector-ref sc0 1))) (let ((e-14 (vector-ref sc0 2))) (let ((e-15 (vector-ref sc0 3))) (let ((e-16 (vector-ref sc0 4))) (let ((e-17 (vector-ref sc0 5))) (let ((u--scC-39 (CoreC-45CompileExpr-mkLocals (CoreC-45TTC-45SizeOf-suc arg-3) arg-4 e-17))) (vector 3 e-13 e-14 e-15 (CoreC-45CompileExpr-mkLocals arg-3 arg-4 e-16) u--scC-39)))))))) ((4) (let ((e-19 (vector-ref sc0 1))) (let ((e-20 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 3))) (vector 4 e-19 (CoreC-45CompileExpr-mkLocals arg-3 arg-4 e-20) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45CompileExpr-mkLocals arg-3 arg-4 eta-0)) e-21)))))) ((5) (let ((e-23 (vector-ref sc0 1))) (let ((e-24 (vector-ref sc0 2))) (let ((e-25 (vector-ref sc0 3))) (let ((e-26 (vector-ref sc0 4))) (let ((e-27 (vector-ref sc0 5))) (vector 5 e-23 e-24 e-25 e-26 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45CompileExpr-mkLocals arg-3 arg-4 eta-0)) e-27)))))))) ((6) (let ((e-29 (vector-ref sc0 1))) (let ((e-30 (vector-ref sc0 2))) (let ((e-31 (vector-ref sc0 3))) (let ((e-32 (vector-ref sc0 4))) (vector 6 e-29 e-30 e-31 (DataC-45Vect-u--map_Functor_C-40VectC-32C-36nC-41 (lambda (eta-0) (CoreC-45CompileExpr-mkLocals arg-3 arg-4 eta-0)) e-32))))))) ((7) (let ((e-34 (vector-ref sc0 1))) (let ((e-35 (vector-ref sc0 2))) (let ((e-36 (vector-ref sc0 3))) (vector 7 e-34 e-35 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45CompileExpr-mkLocals arg-3 arg-4 eta-0)) e-36)))))) ((8) (let ((e-38 (vector-ref sc0 1))) (let ((e-39 (vector-ref sc0 2))) (let ((e-40 (vector-ref sc0 3))) (vector 8 e-38 e-39 (CoreC-45CompileExpr-mkLocals arg-3 arg-4 e-40)))))) ((9) (let ((e-42 (vector-ref sc0 1))) (let ((e-43 (vector-ref sc0 2))) (let ((e-44 (vector-ref sc0 3))) (vector 9 e-42 e-43 (CoreC-45CompileExpr-mkLocals arg-3 arg-4 e-44)))))) ((10) (let ((e-46 (vector-ref sc0 1))) (let ((e-47 (vector-ref sc0 2))) (let ((e-48 (vector-ref sc0 3))) (let ((e-49 (vector-ref sc0 4))) (vector 10 e-46 (CoreC-45CompileExpr-mkLocals arg-3 arg-4 e-47) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45CompileExpr-mkLocalsConAlt arg-3 arg-4 eta-0)) e-48) (PreludeC-45Types-u--map_Functor_Maybe (lambda (eta-0) (CoreC-45CompileExpr-mkLocals arg-3 arg-4 eta-0)) e-49))))))) ((11) (let ((e-51 (vector-ref sc0 1))) (let ((e-52 (vector-ref sc0 2))) (let ((e-53 (vector-ref sc0 3))) (let ((e-54 (vector-ref sc0 4))) (vector 11 e-51 (CoreC-45CompileExpr-mkLocals arg-3 arg-4 e-52) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45CompileExpr-mkLocalsConstAlt arg-3 arg-4 eta-0)) e-53) (PreludeC-45Types-u--map_Functor_Maybe (lambda (eta-0) (CoreC-45CompileExpr-mkLocals arg-3 arg-4 eta-0)) e-54))))))) ((12) (let ((e-56 (vector-ref sc0 1))) (let ((e-57 (vector-ref sc0 2))) (vector 12 e-56 e-57)))) ((13) (let ((e-59 (vector-ref sc0 1))) (vector 13 e-59))) (else (let ((e-61 (vector-ref sc0 1))) (let ((e-62 (vector-ref sc0 2))) (vector 14 e-61 e-62)))))))) -(define CoreC-45CompileExpr-insertNamesConstAlt (lambda (arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (let ((e-1 (car sc0))) (let ((e-2 (cdr sc0))) (cons e-1 (CoreC-45CompileExpr-insertNames arg-3 arg-4 e-2))))))) -(define CoreC-45CompileExpr-insertNamesConAlt (lambda (arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((u--scC-39 e-5)) (vector 0 e-1 e-2 e-3 e-4 (CoreC-45CompileExpr-insertNames (CoreC-45TTC-45SizeOf-C-43 (CoreC-45TTC-45SizeOf-mkSizeOf e-4) arg-3) arg-4 u--scC-39))))))))))) -(define CoreC-45CompileExpr-insertNames (lambda (arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (CoreC-45CompileExpr-case--insertNames-1834 e-2 e-3 arg-4 arg-3 (CoreC-45TT-insertNVarNames arg-3 arg-4 e-2))))) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (vector 1 e-6 e-7)))) ((2) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (let ((u--scC-39 (CoreC-45CompileExpr-insertNames (CoreC-45TTC-45SizeOf-suc arg-3) arg-4 e-11))) (vector 2 e-9 e-10 u--scC-39)))))) ((3) (let ((e-13 (vector-ref sc0 1))) (let ((e-14 (vector-ref sc0 2))) (let ((e-15 (vector-ref sc0 3))) (let ((e-16 (vector-ref sc0 4))) (let ((e-17 (vector-ref sc0 5))) (let ((u--scC-39 (CoreC-45CompileExpr-insertNames (CoreC-45TTC-45SizeOf-suc arg-3) arg-4 e-17))) (vector 3 e-13 e-14 e-15 (CoreC-45CompileExpr-insertNames arg-3 arg-4 e-16) u--scC-39)))))))) ((4) (let ((e-19 (vector-ref sc0 1))) (let ((e-20 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 3))) (vector 4 e-19 (CoreC-45CompileExpr-insertNames arg-3 arg-4 e-20) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45CompileExpr-insertNames arg-3 arg-4 eta-0)) e-21)))))) ((5) (let ((e-23 (vector-ref sc0 1))) (let ((e-24 (vector-ref sc0 2))) (let ((e-25 (vector-ref sc0 3))) (let ((e-26 (vector-ref sc0 4))) (let ((e-27 (vector-ref sc0 5))) (vector 5 e-23 e-24 e-25 e-26 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45CompileExpr-insertNames arg-3 arg-4 eta-0)) e-27)))))))) ((6) (let ((e-29 (vector-ref sc0 1))) (let ((e-30 (vector-ref sc0 2))) (let ((e-31 (vector-ref sc0 3))) (let ((e-32 (vector-ref sc0 4))) (vector 6 e-29 e-30 e-31 (DataC-45Vect-u--map_Functor_C-40VectC-32C-36nC-41 (lambda (eta-0) (CoreC-45CompileExpr-insertNames arg-3 arg-4 eta-0)) e-32))))))) ((7) (let ((e-34 (vector-ref sc0 1))) (let ((e-35 (vector-ref sc0 2))) (let ((e-36 (vector-ref sc0 3))) (vector 7 e-34 e-35 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45CompileExpr-insertNames arg-3 arg-4 eta-0)) e-36)))))) ((8) (let ((e-38 (vector-ref sc0 1))) (let ((e-39 (vector-ref sc0 2))) (let ((e-40 (vector-ref sc0 3))) (vector 8 e-38 e-39 (CoreC-45CompileExpr-insertNames arg-3 arg-4 e-40)))))) ((9) (let ((e-42 (vector-ref sc0 1))) (let ((e-43 (vector-ref sc0 2))) (let ((e-44 (vector-ref sc0 3))) (vector 9 e-42 e-43 (CoreC-45CompileExpr-insertNames arg-3 arg-4 e-44)))))) ((10) (let ((e-46 (vector-ref sc0 1))) (let ((e-47 (vector-ref sc0 2))) (let ((e-48 (vector-ref sc0 3))) (let ((e-49 (vector-ref sc0 4))) (vector 10 e-46 (CoreC-45CompileExpr-insertNames arg-3 arg-4 e-47) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45CompileExpr-insertNamesConAlt arg-3 arg-4 eta-0)) e-48) (PreludeC-45Types-u--map_Functor_Maybe (lambda (eta-0) (CoreC-45CompileExpr-insertNames arg-3 arg-4 eta-0)) e-49))))))) ((11) (let ((e-51 (vector-ref sc0 1))) (let ((e-52 (vector-ref sc0 2))) (let ((e-53 (vector-ref sc0 3))) (let ((e-54 (vector-ref sc0 4))) (vector 11 e-51 (CoreC-45CompileExpr-insertNames arg-3 arg-4 e-52) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45CompileExpr-insertNamesConstAlt arg-3 arg-4 eta-0)) e-53) (PreludeC-45Types-u--map_Functor_Maybe (lambda (eta-0) (CoreC-45CompileExpr-insertNames arg-3 arg-4 eta-0)) e-54))))))) ((12) (let ((e-56 (vector-ref sc0 1))) (let ((e-57 (vector-ref sc0 2))) (vector 12 e-56 e-57)))) ((13) (let ((e-59 (vector-ref sc0 1))) (vector 13 e-59))) (else (let ((e-61 (vector-ref sc0 1))) (let ((e-62 (vector-ref sc0 2))) (vector 14 e-61 e-62)))))))) -(define CoreC-45CompileExpr-getLocName (lambda (arg-2 arg-3) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (let ((sc1 arg-3)) (let ((e-3 (car sc1))) e-3)))(else (let ((e-0 (- arg-2 1))) (let ((sc0 arg-3)) (let ((e-8 (cdr sc0))) (CoreC-45CompileExpr-getLocName e-0 e-8))))))))) -(define CoreC-45CompileExpr-getFC (lambda (arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-3 (vector-ref sc0 2))) e-3)) ((1) (let ((e-6 (vector-ref sc0 1))) e-6)) ((2) (let ((e-9 (vector-ref sc0 1))) e-9)) ((3) (let ((e-13 (vector-ref sc0 1))) e-13)) ((4) (let ((e-19 (vector-ref sc0 1))) e-19)) ((5) (let ((e-23 (vector-ref sc0 1))) e-23)) ((6) (let ((e-30 (vector-ref sc0 2))) e-30)) ((7) (let ((e-34 (vector-ref sc0 1))) e-34)) ((8) (let ((e-38 (vector-ref sc0 1))) e-38)) ((9) (let ((e-42 (vector-ref sc0 1))) e-42)) ((10) (let ((e-46 (vector-ref sc0 1))) e-46)) ((11) (let ((e-51 (vector-ref sc0 1))) e-51)) ((12) (let ((e-56 (vector-ref sc0 1))) e-56)) ((13) (let ((e-59 (vector-ref sc0 1))) e-59)) (else (let ((e-61 (vector-ref sc0 1))) e-61)))))) -(define CoreC-45CompileExpr-forgetExp (lambda (arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 e-3 (CoreC-45CompileExpr-getLocName e-2 arg-1))))) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (vector 1 e-6 e-7)))) ((2) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (let ((u--locsC-39 (CoreC-45CompileExpr-addLocs (cons e-10 '()) arg-1))) (vector 2 e-9 (CoreC-45CompileExpr-getLocName 0 u--locsC-39) (CoreC-45CompileExpr-forgetExp u--locsC-39 e-11))))))) ((3) (let ((e-13 (vector-ref sc0 1))) (let ((e-14 (vector-ref sc0 2))) (let ((e-16 (vector-ref sc0 4))) (let ((e-17 (vector-ref sc0 5))) (let ((u--locsC-39 (CoreC-45CompileExpr-addLocs (cons e-14 '()) arg-1))) (vector 3 e-13 (CoreC-45CompileExpr-getLocName 0 u--locsC-39) (CoreC-45CompileExpr-forgetExp arg-1 e-16) (CoreC-45CompileExpr-forgetExp u--locsC-39 e-17)))))))) ((4) (let ((e-19 (vector-ref sc0 1))) (let ((e-20 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 3))) (vector 4 e-19 (CoreC-45CompileExpr-forgetExp arg-1 e-20) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45CompileExpr-forgetExp arg-1 eta-0)) e-21)))))) ((5) (let ((e-23 (vector-ref sc0 1))) (let ((e-24 (vector-ref sc0 2))) (let ((e-25 (vector-ref sc0 3))) (let ((e-26 (vector-ref sc0 4))) (let ((e-27 (vector-ref sc0 5))) (vector 5 e-23 e-24 e-25 e-26 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45CompileExpr-forgetExp arg-1 eta-0)) e-27)))))))) ((6) (let ((e-29 (vector-ref sc0 1))) (let ((e-30 (vector-ref sc0 2))) (let ((e-31 (vector-ref sc0 3))) (let ((e-32 (vector-ref sc0 4))) (vector 6 e-29 e-30 e-31 (DataC-45Vect-u--map_Functor_C-40VectC-32C-36nC-41 (lambda (eta-0) (CoreC-45CompileExpr-forgetExp arg-1 eta-0)) e-32))))))) ((7) (let ((e-34 (vector-ref sc0 1))) (let ((e-35 (vector-ref sc0 2))) (let ((e-36 (vector-ref sc0 3))) (vector 7 e-34 e-35 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45CompileExpr-forgetExp arg-1 eta-0)) e-36)))))) ((8) (let ((e-38 (vector-ref sc0 1))) (let ((e-39 (vector-ref sc0 2))) (let ((e-40 (vector-ref sc0 3))) (vector 8 e-38 e-39 (CoreC-45CompileExpr-forgetExp arg-1 e-40)))))) ((9) (let ((e-42 (vector-ref sc0 1))) (let ((e-43 (vector-ref sc0 2))) (let ((e-44 (vector-ref sc0 3))) (vector 9 e-42 e-43 (CoreC-45CompileExpr-forgetExp arg-1 e-44)))))) ((10) (let ((e-46 (vector-ref sc0 1))) (let ((e-47 (vector-ref sc0 2))) (let ((e-48 (vector-ref sc0 3))) (let ((e-49 (vector-ref sc0 4))) (vector 10 e-46 (CoreC-45CompileExpr-forgetExp arg-1 e-47) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45CompileExpr-forgetConAlt arg-1 eta-0)) e-48) (PreludeC-45Types-u--map_Functor_Maybe (lambda (eta-0) (CoreC-45CompileExpr-forgetExp arg-1 eta-0)) e-49))))))) ((11) (let ((e-51 (vector-ref sc0 1))) (let ((e-52 (vector-ref sc0 2))) (let ((e-53 (vector-ref sc0 3))) (let ((e-54 (vector-ref sc0 4))) (vector 11 e-51 (CoreC-45CompileExpr-forgetExp arg-1 e-52) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45CompileExpr-forgetConstAlt arg-1 eta-0)) e-53) (PreludeC-45Types-u--map_Functor_Maybe (lambda (eta-0) (CoreC-45CompileExpr-forgetExp arg-1 eta-0)) e-54))))))) ((12) (let ((e-56 (vector-ref sc0 1))) (let ((e-57 (vector-ref sc0 2))) (vector 12 e-56 e-57)))) ((13) (let ((e-59 (vector-ref sc0 1))) (vector 13 e-59))) (else (let ((e-61 (vector-ref sc0 1))) (let ((e-62 (vector-ref sc0 2))) (vector 14 e-61 e-62)))))))) -(define CoreC-45CompileExpr-forgetDef (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((u--ns (CoreC-45CompileExpr-addLocs e-0 '()))) (let ((u--argsC-39 (CoreC-45CompileExpr-conArgs e-0 u--ns))) (vector 0 u--argsC-39 (CoreC-45CompileExpr-forget e-0 e-1))))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (vector 1 e-2 e-3 e-4))))) ((2) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (vector 2 e-5 e-6 e-7))))) (else (let ((e-8 (vector-ref sc0 1))) (vector 3 (CoreC-45CompileExpr-forget '() e-8)))))))) -(define CoreC-45CompileExpr-forgetConstAlt (lambda (arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-1 (car sc0))) (let ((e-2 (cdr sc0))) (cons e-1 (CoreC-45CompileExpr-forgetExp arg-1 e-2))))))) -(define CoreC-45CompileExpr-forgetConAlt (lambda (arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((u--argsC-39 (CoreC-45CompileExpr-addLocs e-4 arg-1))) (vector 0 e-1 e-2 e-3 (CoreC-45CompileExpr-conArgs e-4 u--argsC-39) (CoreC-45CompileExpr-forgetExp u--argsC-39 e-5))))))))))) +(define CoreC-45CompileExpr-substEnv (lambda (arg-3 arg-4 arg-5) (case (vector-ref arg-5 0) ((0) (let ((e-2 (vector-ref arg-5 1))) (let ((e-3 (vector-ref arg-5 2))) (CoreC-45CompileExpr-find e-3 arg-3 e-2 arg-4)))) ((1) (let ((e-6 (vector-ref arg-5 1))) (let ((e-7 (vector-ref arg-5 2))) (vector 1 e-6 e-7)))) ((2) (let ((e-9 (vector-ref arg-5 1))) (let ((e-10 (vector-ref arg-5 2))) (let ((e-11 (vector-ref arg-5 3))) (let ((u--scC-39 (CoreC-45CompileExpr-substEnv (CoreC-45TTC-45SizeOf-suc arg-3) arg-4 e-11))) (vector 2 e-9 e-10 u--scC-39)))))) ((3) (let ((e-13 (vector-ref arg-5 1))) (let ((e-14 (vector-ref arg-5 2))) (let ((e-15 (vector-ref arg-5 3))) (let ((e-16 (vector-ref arg-5 4))) (let ((e-17 (vector-ref arg-5 5))) (let ((u--scC-39 (CoreC-45CompileExpr-substEnv (CoreC-45TTC-45SizeOf-suc arg-3) arg-4 e-17))) (vector 3 e-13 e-14 e-15 (CoreC-45CompileExpr-substEnv arg-3 arg-4 e-16) u--scC-39)))))))) ((4) (let ((e-19 (vector-ref arg-5 1))) (let ((e-20 (vector-ref arg-5 2))) (let ((e-21 (vector-ref arg-5 3))) (vector 4 e-19 (CoreC-45CompileExpr-substEnv arg-3 arg-4 e-20) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45CompileExpr-substEnv arg-3 arg-4 eta-0)) e-21)))))) ((5) (let ((e-23 (vector-ref arg-5 1))) (let ((e-24 (vector-ref arg-5 2))) (let ((e-25 (vector-ref arg-5 3))) (let ((e-26 (vector-ref arg-5 4))) (let ((e-27 (vector-ref arg-5 5))) (vector 5 e-23 e-24 e-25 e-26 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45CompileExpr-substEnv arg-3 arg-4 eta-0)) e-27)))))))) ((6) (let ((e-29 (vector-ref arg-5 1))) (let ((e-30 (vector-ref arg-5 2))) (let ((e-31 (vector-ref arg-5 3))) (let ((e-32 (vector-ref arg-5 4))) (vector 6 e-29 e-30 e-31 (DataC-45Vect-u--map_Functor_C-40VectC-32C-36nC-41 (lambda (eta-0) (CoreC-45CompileExpr-substEnv arg-3 arg-4 eta-0)) e-32))))))) ((7) (let ((e-34 (vector-ref arg-5 1))) (let ((e-35 (vector-ref arg-5 2))) (let ((e-36 (vector-ref arg-5 3))) (vector 7 e-34 e-35 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45CompileExpr-substEnv arg-3 arg-4 eta-0)) e-36)))))) ((8) (let ((e-38 (vector-ref arg-5 1))) (let ((e-39 (vector-ref arg-5 2))) (let ((e-40 (vector-ref arg-5 3))) (vector 8 e-38 e-39 (CoreC-45CompileExpr-substEnv arg-3 arg-4 e-40)))))) ((9) (let ((e-42 (vector-ref arg-5 1))) (let ((e-43 (vector-ref arg-5 2))) (let ((e-44 (vector-ref arg-5 3))) (vector 9 e-42 e-43 (CoreC-45CompileExpr-substEnv arg-3 arg-4 e-44)))))) ((10) (let ((e-46 (vector-ref arg-5 1))) (let ((e-47 (vector-ref arg-5 2))) (let ((e-48 (vector-ref arg-5 3))) (let ((e-49 (vector-ref arg-5 4))) (vector 10 e-46 (CoreC-45CompileExpr-substEnv arg-3 arg-4 e-47) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45CompileExpr-substConAlt arg-3 arg-4 eta-0)) e-48) (PreludeC-45Types-u--map_Functor_Maybe (lambda (eta-0) (CoreC-45CompileExpr-substEnv arg-3 arg-4 eta-0)) e-49))))))) ((11) (let ((e-51 (vector-ref arg-5 1))) (let ((e-52 (vector-ref arg-5 2))) (let ((e-53 (vector-ref arg-5 3))) (let ((e-54 (vector-ref arg-5 4))) (vector 11 e-51 (CoreC-45CompileExpr-substEnv arg-3 arg-4 e-52) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45CompileExpr-substConstAlt arg-3 arg-4 eta-0)) e-53) (PreludeC-45Types-u--map_Functor_Maybe (lambda (eta-0) (CoreC-45CompileExpr-substEnv arg-3 arg-4 eta-0)) e-54))))))) ((12) (let ((e-56 (vector-ref arg-5 1))) (let ((e-57 (vector-ref arg-5 2))) (vector 12 e-56 e-57)))) ((13) (let ((e-59 (vector-ref arg-5 1))) (vector 13 e-59))) (else (let ((e-61 (vector-ref arg-5 1))) (let ((e-62 (vector-ref arg-5 2))) (vector 14 e-61 e-62))))))) +(define CoreC-45CompileExpr-substConstAlt (lambda (arg-3 arg-4 arg-5) (let ((e-1 (car arg-5))) (let ((e-2 (cdr arg-5))) (cons e-1 (CoreC-45CompileExpr-substEnv arg-3 arg-4 e-2)))))) +(define CoreC-45CompileExpr-substConAlt (lambda (arg-3 arg-4 arg-5) (let ((e-1 (vector-ref arg-5 0))) (let ((e-2 (vector-ref arg-5 1))) (let ((e-3 (vector-ref arg-5 2))) (let ((e-4 (vector-ref arg-5 3))) (let ((e-5 (vector-ref arg-5 4))) (vector e-1 e-2 e-3 e-4 (CoreC-45CompileExpr-substEnv (CoreC-45TTC-45SizeOf-C-43 (CoreC-45TTC-45SizeOf-mkSizeOf e-4) arg-3) arg-4 e-5))))))))) +(define CoreC-45CompileExpr-shrinkConstAlt (lambda (arg-2 arg-3) (let ((e-1 (car arg-3))) (let ((e-2 (cdr arg-3))) (cons e-1 (CoreC-45CompileExpr-shrinkCExp arg-2 e-2)))))) +(define CoreC-45CompileExpr-shrinkConAlt (lambda (arg-2 arg-3) (let ((e-1 (vector-ref arg-3 0))) (let ((e-2 (vector-ref arg-3 1))) (let ((e-3 (vector-ref arg-3 2))) (let ((e-4 (vector-ref arg-3 3))) (let ((e-5 (vector-ref arg-3 4))) (vector e-1 e-2 e-3 e-4 (CoreC-45CompileExpr-shrinkCExp (CoreC-45TT-subExtend e-4 arg-2) e-5))))))))) +(define CoreC-45CompileExpr-shrinkCExp (lambda (arg-2 arg-3) (case (vector-ref arg-3 0) ((0) (let ((e-2 (vector-ref arg-3 1))) (let ((e-3 (vector-ref arg-3 2))) (let ((sc1 (CoreC-45TT-subElem e-2 arg-2))) (if (null? sc1) (vector 13 e-3) (let ((e-4 (unbox sc1))) (vector 0 e-4 e-3))))))) ((1) (let ((e-6 (vector-ref arg-3 1))) (let ((e-7 (vector-ref arg-3 2))) (vector 1 e-6 e-7)))) ((2) (let ((e-9 (vector-ref arg-3 1))) (let ((e-10 (vector-ref arg-3 2))) (let ((e-11 (vector-ref arg-3 3))) (let ((u--scC-39 (CoreC-45CompileExpr-shrinkCExp (vector 2 arg-2) e-11))) (vector 2 e-9 e-10 u--scC-39)))))) ((3) (let ((e-13 (vector-ref arg-3 1))) (let ((e-14 (vector-ref arg-3 2))) (let ((e-15 (vector-ref arg-3 3))) (let ((e-16 (vector-ref arg-3 4))) (let ((e-17 (vector-ref arg-3 5))) (let ((u--scC-39 (CoreC-45CompileExpr-shrinkCExp (vector 2 arg-2) e-17))) (vector 3 e-13 e-14 e-15 (CoreC-45CompileExpr-shrinkCExp arg-2 e-16) u--scC-39)))))))) ((4) (let ((e-19 (vector-ref arg-3 1))) (let ((e-20 (vector-ref arg-3 2))) (let ((e-21 (vector-ref arg-3 3))) (vector 4 e-19 (CoreC-45CompileExpr-shrinkCExp arg-2 e-20) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45CompileExpr-shrinkCExp arg-2 eta-0)) e-21)))))) ((5) (let ((e-23 (vector-ref arg-3 1))) (let ((e-24 (vector-ref arg-3 2))) (let ((e-25 (vector-ref arg-3 3))) (let ((e-26 (vector-ref arg-3 4))) (let ((e-27 (vector-ref arg-3 5))) (vector 5 e-23 e-24 e-25 e-26 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45CompileExpr-shrinkCExp arg-2 eta-0)) e-27)))))))) ((6) (let ((e-29 (vector-ref arg-3 1))) (let ((e-30 (vector-ref arg-3 2))) (let ((e-31 (vector-ref arg-3 3))) (let ((e-32 (vector-ref arg-3 4))) (vector 6 e-29 e-30 e-31 (DataC-45Vect-u--map_Functor_C-40VectC-32C-36nC-41 (lambda (eta-0) (CoreC-45CompileExpr-shrinkCExp arg-2 eta-0)) e-32))))))) ((7) (let ((e-34 (vector-ref arg-3 1))) (let ((e-35 (vector-ref arg-3 2))) (let ((e-36 (vector-ref arg-3 3))) (vector 7 e-34 e-35 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45CompileExpr-shrinkCExp arg-2 eta-0)) e-36)))))) ((8) (let ((e-38 (vector-ref arg-3 1))) (let ((e-39 (vector-ref arg-3 2))) (let ((e-40 (vector-ref arg-3 3))) (vector 8 e-38 e-39 (CoreC-45CompileExpr-shrinkCExp arg-2 e-40)))))) ((9) (let ((e-42 (vector-ref arg-3 1))) (let ((e-43 (vector-ref arg-3 2))) (let ((e-44 (vector-ref arg-3 3))) (vector 9 e-42 e-43 (CoreC-45CompileExpr-shrinkCExp arg-2 e-44)))))) ((10) (let ((e-46 (vector-ref arg-3 1))) (let ((e-47 (vector-ref arg-3 2))) (let ((e-48 (vector-ref arg-3 3))) (let ((e-49 (vector-ref arg-3 4))) (vector 10 e-46 (CoreC-45CompileExpr-shrinkCExp arg-2 e-47) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45CompileExpr-shrinkConAlt arg-2 eta-0)) e-48) (PreludeC-45Types-u--map_Functor_Maybe (lambda (eta-0) (CoreC-45CompileExpr-shrinkCExp arg-2 eta-0)) e-49))))))) ((11) (let ((e-51 (vector-ref arg-3 1))) (let ((e-52 (vector-ref arg-3 2))) (let ((e-53 (vector-ref arg-3 3))) (let ((e-54 (vector-ref arg-3 4))) (vector 11 e-51 (CoreC-45CompileExpr-shrinkCExp arg-2 e-52) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45CompileExpr-shrinkConstAlt arg-2 eta-0)) e-53) (PreludeC-45Types-u--map_Functor_Maybe (lambda (eta-0) (CoreC-45CompileExpr-shrinkCExp arg-2 eta-0)) e-54))))))) ((12) (let ((e-56 (vector-ref arg-3 1))) (let ((e-57 (vector-ref arg-3 2))) (vector 12 e-56 e-57)))) ((13) (let ((e-59 (vector-ref arg-3 1))) (vector 13 e-59))) (else (let ((e-61 (vector-ref arg-3 1))) (let ((e-62 (vector-ref arg-3 2))) (vector 14 e-61 e-62))))))) +(define CoreC-45CompileExpr-resolveRef (lambda (arg-4 arg-5 arg-6 arg-7 arg-8) (case (vector-ref arg-6 0) ((0) '()) (else (let ((e-2 (vector-ref arg-6 2))) (let ((e-3 (vector-ref arg-6 3))) (let ((sc1 (CoreC-45Name-u--C-61C-61_Eq_Name arg-8 e-2))) (cond ((equal? sc1 1) (box (vector 0 (CoreC-45TT-weakenNVar (CoreC-45TTC-45SizeOf-C-43 arg-4 arg-5) 0) arg-7))) (else (CoreC-45CompileExpr-resolveRef arg-4 (CoreC-45TTC-45SizeOf-sucR arg-5) e-3 arg-7 arg-8)))))))))) +(define CoreC-45CompileExpr-refsToLocals (lambda (arg-2 arg-3) (case (vector-ref arg-2 0) ((0) arg-3)(else (CoreC-45CompileExpr-mkLocals (CoreC-45TTC-45SizeOf-zero) arg-2 arg-3))))) +(define CoreC-45CompileExpr-mkLocalsConstAlt (lambda (arg-3 arg-4 arg-5) (let ((e-1 (car arg-5))) (let ((e-2 (cdr arg-5))) (cons e-1 (CoreC-45CompileExpr-mkLocals arg-3 arg-4 e-2)))))) +(define CoreC-45CompileExpr-mkLocalsConAlt (lambda (arg-3 arg-4 arg-5) (let ((e-1 (vector-ref arg-5 0))) (let ((e-2 (vector-ref arg-5 1))) (let ((e-3 (vector-ref arg-5 2))) (let ((e-4 (vector-ref arg-5 3))) (let ((e-5 (vector-ref arg-5 4))) (let ((u--scC-39 e-5)) (vector e-1 e-2 e-3 e-4 (CoreC-45CompileExpr-mkLocals (CoreC-45TTC-45SizeOf-C-43 (CoreC-45TTC-45SizeOf-mkSizeOf e-4) arg-3) arg-4 u--scC-39)))))))))) +(define CoreC-45CompileExpr-mkLocals (lambda (arg-3 arg-4 arg-5) (case (vector-ref arg-5 0) ((0) (let ((e-2 (vector-ref arg-5 1))) (let ((e-3 (vector-ref arg-5 2))) (vector 0 (CoreC-45TT-addVars arg-3 arg-4 e-2) e-3)))) ((1) (let ((e-6 (vector-ref arg-5 1))) (let ((e-7 (vector-ref arg-5 2))) (PreludeC-45Types-maybe (lambda () (vector 1 e-6 e-7)) (lambda () (lambda (eta-0) eta-0)) (CoreC-45CompileExpr-resolveRef arg-3 (CoreC-45TTC-45SizeOf-zero) arg-4 e-6 e-7))))) ((2) (let ((e-9 (vector-ref arg-5 1))) (let ((e-10 (vector-ref arg-5 2))) (let ((e-11 (vector-ref arg-5 3))) (let ((u--scC-39 (CoreC-45CompileExpr-mkLocals (CoreC-45TTC-45SizeOf-suc arg-3) arg-4 e-11))) (vector 2 e-9 e-10 u--scC-39)))))) ((3) (let ((e-13 (vector-ref arg-5 1))) (let ((e-14 (vector-ref arg-5 2))) (let ((e-15 (vector-ref arg-5 3))) (let ((e-16 (vector-ref arg-5 4))) (let ((e-17 (vector-ref arg-5 5))) (let ((u--scC-39 (CoreC-45CompileExpr-mkLocals (CoreC-45TTC-45SizeOf-suc arg-3) arg-4 e-17))) (vector 3 e-13 e-14 e-15 (CoreC-45CompileExpr-mkLocals arg-3 arg-4 e-16) u--scC-39)))))))) ((4) (let ((e-19 (vector-ref arg-5 1))) (let ((e-20 (vector-ref arg-5 2))) (let ((e-21 (vector-ref arg-5 3))) (vector 4 e-19 (CoreC-45CompileExpr-mkLocals arg-3 arg-4 e-20) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45CompileExpr-mkLocals arg-3 arg-4 eta-0)) e-21)))))) ((5) (let ((e-23 (vector-ref arg-5 1))) (let ((e-24 (vector-ref arg-5 2))) (let ((e-25 (vector-ref arg-5 3))) (let ((e-26 (vector-ref arg-5 4))) (let ((e-27 (vector-ref arg-5 5))) (vector 5 e-23 e-24 e-25 e-26 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45CompileExpr-mkLocals arg-3 arg-4 eta-0)) e-27)))))))) ((6) (let ((e-29 (vector-ref arg-5 1))) (let ((e-30 (vector-ref arg-5 2))) (let ((e-31 (vector-ref arg-5 3))) (let ((e-32 (vector-ref arg-5 4))) (vector 6 e-29 e-30 e-31 (DataC-45Vect-u--map_Functor_C-40VectC-32C-36nC-41 (lambda (eta-0) (CoreC-45CompileExpr-mkLocals arg-3 arg-4 eta-0)) e-32))))))) ((7) (let ((e-34 (vector-ref arg-5 1))) (let ((e-35 (vector-ref arg-5 2))) (let ((e-36 (vector-ref arg-5 3))) (vector 7 e-34 e-35 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45CompileExpr-mkLocals arg-3 arg-4 eta-0)) e-36)))))) ((8) (let ((e-38 (vector-ref arg-5 1))) (let ((e-39 (vector-ref arg-5 2))) (let ((e-40 (vector-ref arg-5 3))) (vector 8 e-38 e-39 (CoreC-45CompileExpr-mkLocals arg-3 arg-4 e-40)))))) ((9) (let ((e-42 (vector-ref arg-5 1))) (let ((e-43 (vector-ref arg-5 2))) (let ((e-44 (vector-ref arg-5 3))) (vector 9 e-42 e-43 (CoreC-45CompileExpr-mkLocals arg-3 arg-4 e-44)))))) ((10) (let ((e-46 (vector-ref arg-5 1))) (let ((e-47 (vector-ref arg-5 2))) (let ((e-48 (vector-ref arg-5 3))) (let ((e-49 (vector-ref arg-5 4))) (vector 10 e-46 (CoreC-45CompileExpr-mkLocals arg-3 arg-4 e-47) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45CompileExpr-mkLocalsConAlt arg-3 arg-4 eta-0)) e-48) (PreludeC-45Types-u--map_Functor_Maybe (lambda (eta-0) (CoreC-45CompileExpr-mkLocals arg-3 arg-4 eta-0)) e-49))))))) ((11) (let ((e-51 (vector-ref arg-5 1))) (let ((e-52 (vector-ref arg-5 2))) (let ((e-53 (vector-ref arg-5 3))) (let ((e-54 (vector-ref arg-5 4))) (vector 11 e-51 (CoreC-45CompileExpr-mkLocals arg-3 arg-4 e-52) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45CompileExpr-mkLocalsConstAlt arg-3 arg-4 eta-0)) e-53) (PreludeC-45Types-u--map_Functor_Maybe (lambda (eta-0) (CoreC-45CompileExpr-mkLocals arg-3 arg-4 eta-0)) e-54))))))) ((12) (let ((e-56 (vector-ref arg-5 1))) (let ((e-57 (vector-ref arg-5 2))) (vector 12 e-56 e-57)))) ((13) (let ((e-59 (vector-ref arg-5 1))) (vector 13 e-59))) (else (let ((e-61 (vector-ref arg-5 1))) (let ((e-62 (vector-ref arg-5 2))) (vector 14 e-61 e-62))))))) +(define CoreC-45CompileExpr-insertNamesConstAlt (lambda (arg-3 arg-4 arg-5) (let ((e-1 (car arg-5))) (let ((e-2 (cdr arg-5))) (cons e-1 (CoreC-45CompileExpr-insertNames arg-3 arg-4 e-2)))))) +(define CoreC-45CompileExpr-insertNamesConAlt (lambda (arg-3 arg-4 arg-5) (let ((e-1 (vector-ref arg-5 0))) (let ((e-2 (vector-ref arg-5 1))) (let ((e-3 (vector-ref arg-5 2))) (let ((e-4 (vector-ref arg-5 3))) (let ((e-5 (vector-ref arg-5 4))) (let ((u--scC-39 e-5)) (vector e-1 e-2 e-3 e-4 (CoreC-45CompileExpr-insertNames (CoreC-45TTC-45SizeOf-C-43 (CoreC-45TTC-45SizeOf-mkSizeOf e-4) arg-3) arg-4 u--scC-39)))))))))) +(define CoreC-45CompileExpr-insertNames (lambda (arg-3 arg-4 arg-5) (case (vector-ref arg-5 0) ((0) (let ((e-2 (vector-ref arg-5 1))) (let ((e-3 (vector-ref arg-5 2))) (vector 0 (CoreC-45TT-insertNVarNames arg-3 arg-4 e-2) e-3)))) ((1) (let ((e-6 (vector-ref arg-5 1))) (let ((e-7 (vector-ref arg-5 2))) (vector 1 e-6 e-7)))) ((2) (let ((e-9 (vector-ref arg-5 1))) (let ((e-10 (vector-ref arg-5 2))) (let ((e-11 (vector-ref arg-5 3))) (let ((u--scC-39 (CoreC-45CompileExpr-insertNames (CoreC-45TTC-45SizeOf-suc arg-3) arg-4 e-11))) (vector 2 e-9 e-10 u--scC-39)))))) ((3) (let ((e-13 (vector-ref arg-5 1))) (let ((e-14 (vector-ref arg-5 2))) (let ((e-15 (vector-ref arg-5 3))) (let ((e-16 (vector-ref arg-5 4))) (let ((e-17 (vector-ref arg-5 5))) (let ((u--scC-39 (CoreC-45CompileExpr-insertNames (CoreC-45TTC-45SizeOf-suc arg-3) arg-4 e-17))) (vector 3 e-13 e-14 e-15 (CoreC-45CompileExpr-insertNames arg-3 arg-4 e-16) u--scC-39)))))))) ((4) (let ((e-19 (vector-ref arg-5 1))) (let ((e-20 (vector-ref arg-5 2))) (let ((e-21 (vector-ref arg-5 3))) (vector 4 e-19 (CoreC-45CompileExpr-insertNames arg-3 arg-4 e-20) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45CompileExpr-insertNames arg-3 arg-4 eta-0)) e-21)))))) ((5) (let ((e-23 (vector-ref arg-5 1))) (let ((e-24 (vector-ref arg-5 2))) (let ((e-25 (vector-ref arg-5 3))) (let ((e-26 (vector-ref arg-5 4))) (let ((e-27 (vector-ref arg-5 5))) (vector 5 e-23 e-24 e-25 e-26 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45CompileExpr-insertNames arg-3 arg-4 eta-0)) e-27)))))))) ((6) (let ((e-29 (vector-ref arg-5 1))) (let ((e-30 (vector-ref arg-5 2))) (let ((e-31 (vector-ref arg-5 3))) (let ((e-32 (vector-ref arg-5 4))) (vector 6 e-29 e-30 e-31 (DataC-45Vect-u--map_Functor_C-40VectC-32C-36nC-41 (lambda (eta-0) (CoreC-45CompileExpr-insertNames arg-3 arg-4 eta-0)) e-32))))))) ((7) (let ((e-34 (vector-ref arg-5 1))) (let ((e-35 (vector-ref arg-5 2))) (let ((e-36 (vector-ref arg-5 3))) (vector 7 e-34 e-35 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45CompileExpr-insertNames arg-3 arg-4 eta-0)) e-36)))))) ((8) (let ((e-38 (vector-ref arg-5 1))) (let ((e-39 (vector-ref arg-5 2))) (let ((e-40 (vector-ref arg-5 3))) (vector 8 e-38 e-39 (CoreC-45CompileExpr-insertNames arg-3 arg-4 e-40)))))) ((9) (let ((e-42 (vector-ref arg-5 1))) (let ((e-43 (vector-ref arg-5 2))) (let ((e-44 (vector-ref arg-5 3))) (vector 9 e-42 e-43 (CoreC-45CompileExpr-insertNames arg-3 arg-4 e-44)))))) ((10) (let ((e-46 (vector-ref arg-5 1))) (let ((e-47 (vector-ref arg-5 2))) (let ((e-48 (vector-ref arg-5 3))) (let ((e-49 (vector-ref arg-5 4))) (vector 10 e-46 (CoreC-45CompileExpr-insertNames arg-3 arg-4 e-47) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45CompileExpr-insertNamesConAlt arg-3 arg-4 eta-0)) e-48) (PreludeC-45Types-u--map_Functor_Maybe (lambda (eta-0) (CoreC-45CompileExpr-insertNames arg-3 arg-4 eta-0)) e-49))))))) ((11) (let ((e-51 (vector-ref arg-5 1))) (let ((e-52 (vector-ref arg-5 2))) (let ((e-53 (vector-ref arg-5 3))) (let ((e-54 (vector-ref arg-5 4))) (vector 11 e-51 (CoreC-45CompileExpr-insertNames arg-3 arg-4 e-52) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45CompileExpr-insertNamesConstAlt arg-3 arg-4 eta-0)) e-53) (PreludeC-45Types-u--map_Functor_Maybe (lambda (eta-0) (CoreC-45CompileExpr-insertNames arg-3 arg-4 eta-0)) e-54))))))) ((12) (let ((e-56 (vector-ref arg-5 1))) (let ((e-57 (vector-ref arg-5 2))) (vector 12 e-56 e-57)))) ((13) (let ((e-59 (vector-ref arg-5 1))) (vector 13 e-59))) (else (let ((e-61 (vector-ref arg-5 1))) (let ((e-62 (vector-ref arg-5 2))) (vector 14 e-61 e-62))))))) +(define CoreC-45CompileExpr-getLocName (lambda (arg-2 arg-3) (cond ((equal? arg-2 0) (let ((e-3 (car arg-3))) e-3))(else (let ((e-0 (- arg-2 1))) (let ((e-8 (cdr arg-3))) (CoreC-45CompileExpr-getLocName e-0 e-8))))))) +(define CoreC-45CompileExpr-getFC (lambda (arg-1) (case (vector-ref arg-1 0) ((0) (let ((e-3 (vector-ref arg-1 2))) e-3)) ((1) (let ((e-6 (vector-ref arg-1 1))) e-6)) ((2) (let ((e-9 (vector-ref arg-1 1))) e-9)) ((3) (let ((e-13 (vector-ref arg-1 1))) e-13)) ((4) (let ((e-19 (vector-ref arg-1 1))) e-19)) ((5) (let ((e-23 (vector-ref arg-1 1))) e-23)) ((6) (let ((e-30 (vector-ref arg-1 2))) e-30)) ((7) (let ((e-34 (vector-ref arg-1 1))) e-34)) ((8) (let ((e-38 (vector-ref arg-1 1))) e-38)) ((9) (let ((e-42 (vector-ref arg-1 1))) e-42)) ((10) (let ((e-46 (vector-ref arg-1 1))) e-46)) ((11) (let ((e-51 (vector-ref arg-1 1))) e-51)) ((12) (let ((e-56 (vector-ref arg-1 1))) e-56)) ((13) (let ((e-59 (vector-ref arg-1 1))) e-59)) (else (let ((e-61 (vector-ref arg-1 1))) e-61))))) +(define CoreC-45CompileExpr-forgetExp (lambda (arg-1 arg-2) (case (vector-ref arg-2 0) ((0) (let ((e-2 (vector-ref arg-2 1))) (let ((e-3 (vector-ref arg-2 2))) (vector 0 e-3 (CoreC-45CompileExpr-getLocName e-2 arg-1))))) ((1) (let ((e-6 (vector-ref arg-2 1))) (let ((e-7 (vector-ref arg-2 2))) (vector 1 e-6 e-7)))) ((2) (let ((e-9 (vector-ref arg-2 1))) (let ((e-10 (vector-ref arg-2 2))) (let ((e-11 (vector-ref arg-2 3))) (let ((u--locsC-39 (CoreC-45CompileExpr-addLocs (cons e-10 '()) arg-1))) (vector 2 e-9 (CoreC-45CompileExpr-getLocName 0 u--locsC-39) (CoreC-45CompileExpr-forgetExp u--locsC-39 e-11))))))) ((3) (let ((e-13 (vector-ref arg-2 1))) (let ((e-14 (vector-ref arg-2 2))) (let ((e-16 (vector-ref arg-2 4))) (let ((e-17 (vector-ref arg-2 5))) (let ((u--locsC-39 (CoreC-45CompileExpr-addLocs (cons e-14 '()) arg-1))) (vector 3 e-13 (CoreC-45CompileExpr-getLocName 0 u--locsC-39) (CoreC-45CompileExpr-forgetExp arg-1 e-16) (CoreC-45CompileExpr-forgetExp u--locsC-39 e-17)))))))) ((4) (let ((e-19 (vector-ref arg-2 1))) (let ((e-20 (vector-ref arg-2 2))) (let ((e-21 (vector-ref arg-2 3))) (vector 4 e-19 (CoreC-45CompileExpr-forgetExp arg-1 e-20) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45CompileExpr-forgetExp arg-1 eta-0)) e-21)))))) ((5) (let ((e-23 (vector-ref arg-2 1))) (let ((e-24 (vector-ref arg-2 2))) (let ((e-25 (vector-ref arg-2 3))) (let ((e-26 (vector-ref arg-2 4))) (let ((e-27 (vector-ref arg-2 5))) (vector 5 e-23 e-24 e-25 e-26 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45CompileExpr-forgetExp arg-1 eta-0)) e-27)))))))) ((6) (let ((e-29 (vector-ref arg-2 1))) (let ((e-30 (vector-ref arg-2 2))) (let ((e-31 (vector-ref arg-2 3))) (let ((e-32 (vector-ref arg-2 4))) (vector 6 e-29 e-30 e-31 (DataC-45Vect-u--map_Functor_C-40VectC-32C-36nC-41 (lambda (eta-0) (CoreC-45CompileExpr-forgetExp arg-1 eta-0)) e-32))))))) ((7) (let ((e-34 (vector-ref arg-2 1))) (let ((e-35 (vector-ref arg-2 2))) (let ((e-36 (vector-ref arg-2 3))) (vector 7 e-34 e-35 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45CompileExpr-forgetExp arg-1 eta-0)) e-36)))))) ((8) (let ((e-38 (vector-ref arg-2 1))) (let ((e-39 (vector-ref arg-2 2))) (let ((e-40 (vector-ref arg-2 3))) (vector 8 e-38 e-39 (CoreC-45CompileExpr-forgetExp arg-1 e-40)))))) ((9) (let ((e-42 (vector-ref arg-2 1))) (let ((e-43 (vector-ref arg-2 2))) (let ((e-44 (vector-ref arg-2 3))) (vector 9 e-42 e-43 (CoreC-45CompileExpr-forgetExp arg-1 e-44)))))) ((10) (let ((e-46 (vector-ref arg-2 1))) (let ((e-47 (vector-ref arg-2 2))) (let ((e-48 (vector-ref arg-2 3))) (let ((e-49 (vector-ref arg-2 4))) (vector 10 e-46 (CoreC-45CompileExpr-forgetExp arg-1 e-47) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45CompileExpr-forgetConAlt arg-1 eta-0)) e-48) (PreludeC-45Types-u--map_Functor_Maybe (lambda (eta-0) (CoreC-45CompileExpr-forgetExp arg-1 eta-0)) e-49))))))) ((11) (let ((e-51 (vector-ref arg-2 1))) (let ((e-52 (vector-ref arg-2 2))) (let ((e-53 (vector-ref arg-2 3))) (let ((e-54 (vector-ref arg-2 4))) (vector 11 e-51 (CoreC-45CompileExpr-forgetExp arg-1 e-52) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45CompileExpr-forgetConstAlt arg-1 eta-0)) e-53) (PreludeC-45Types-u--map_Functor_Maybe (lambda (eta-0) (CoreC-45CompileExpr-forgetExp arg-1 eta-0)) e-54))))))) ((12) (let ((e-56 (vector-ref arg-2 1))) (let ((e-57 (vector-ref arg-2 2))) (vector 12 e-56 e-57)))) ((13) (let ((e-59 (vector-ref arg-2 1))) (vector 13 e-59))) (else (let ((e-61 (vector-ref arg-2 1))) (let ((e-62 (vector-ref arg-2 2))) (vector 14 e-61 e-62))))))) +(define CoreC-45CompileExpr-forgetDef (lambda (arg-0) (case (vector-ref arg-0 0) ((0) (let ((e-0 (vector-ref arg-0 1))) (let ((e-1 (vector-ref arg-0 2))) (let ((u--ns (CoreC-45CompileExpr-addLocs e-0 '()))) (let ((u--argsC-39 (CoreC-45CompileExpr-conArgs e-0 u--ns))) (vector 0 u--argsC-39 (CoreC-45CompileExpr-forget e-0 e-1))))))) ((1) (let ((e-2 (vector-ref arg-0 1))) (let ((e-3 (vector-ref arg-0 2))) (let ((e-4 (vector-ref arg-0 3))) (vector 1 e-2 e-3 e-4))))) ((2) (let ((e-5 (vector-ref arg-0 1))) (let ((e-6 (vector-ref arg-0 2))) (let ((e-7 (vector-ref arg-0 3))) (vector 2 e-5 e-6 e-7))))) (else (let ((e-8 (vector-ref arg-0 1))) (vector 3 (CoreC-45CompileExpr-forget '() e-8))))))) +(define CoreC-45CompileExpr-forgetConstAlt (lambda (arg-1 arg-2) (let ((e-1 (car arg-2))) (let ((e-2 (cdr arg-2))) (cons e-1 (CoreC-45CompileExpr-forgetExp arg-1 e-2)))))) +(define CoreC-45CompileExpr-forgetConAlt (lambda (arg-1 arg-2) (let ((e-1 (vector-ref arg-2 0))) (let ((e-2 (vector-ref arg-2 1))) (let ((e-3 (vector-ref arg-2 2))) (let ((e-4 (vector-ref arg-2 3))) (let ((e-5 (vector-ref arg-2 4))) (let ((u--argsC-39 (CoreC-45CompileExpr-addLocs e-4 arg-1))) (vector e-1 e-2 e-3 (CoreC-45CompileExpr-conArgs e-4 u--argsC-39) (CoreC-45CompileExpr-forgetExp u--argsC-39 e-5)))))))))) (define CoreC-45CompileExpr-forget (lambda (arg-0 arg-1) (CoreC-45CompileExpr-forgetExp (CoreC-45CompileExpr-addLocs arg-0 '()) arg-1))) -(define CoreC-45CompileExpr-findDrop (lambda (arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (if (null? sc0) (vector 0 arg-3 arg-2) (let ((sc1 arg-3)) (cond ((equal? sc1 0) (let ((sc2 arg-4)) (let ((e-8 (car sc2))) e-8)))(else (let ((e-4 (- arg-3 1))) (let ((sc1 arg-4)) (let ((e-14 (cdr sc1))) (CoreC-45CompileExpr-findDrop arg-2 e-4 e-14))))))))))) -(define CoreC-45CompileExpr-find (lambda (arg-3 arg-4 arg-5 arg-6) (CoreC-45CompileExpr-case--find-2741 arg-6 arg-5 arg-4 arg-3 (CoreC-45TT-sizedView arg-4)))) +(define CoreC-45CompileExpr-findDrop (lambda (arg-2 arg-3 arg-4) (if (null? arg-4) (vector 0 arg-3 arg-2) (cond ((equal? arg-3 0) (let ((e-8 (car arg-4))) e-8))(else (let ((e-4 (- arg-3 1))) (let ((e-14 (cdr arg-4))) (CoreC-45CompileExpr-findDrop arg-2 e-4 e-14)))))))) +(define CoreC-45CompileExpr-find (lambda (arg-3 arg-4 arg-5 arg-6) (CoreC-45CompileExpr-case--find-2734 arg-6 arg-5 arg-4 arg-3 (CoreC-45TT-sizedView arg-4)))) (define CoreC-45CompileExpr-embed (lambda (arg-2) (Builtin-believe_me arg-2))) -(define CoreC-45CompileExpr-elem (lambda (arg-1 arg-2) (let ((sc0 arg-2)) (if (null? sc0) 1 (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (PreludeC-45Basics-C-124C-124 (CoreC-45Name-u--C-61C-61_Eq_Name arg-1 e-2) (lambda () (CoreC-45CompileExpr-elem arg-1 e-3))))))))) -(define CoreC-45CompileExpr-conArgs (lambda (arg-1 arg-2) (let ((sc0 arg-1)) (if (null? sc0) '() (let ((e-3 (cdr sc0))) (let ((sc1 arg-2)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (cons e-6 (CoreC-45CompileExpr-conArgs e-3 e-7)))))))))) -(define CoreC-45CompileExpr-addLocs (lambda (arg-1 arg-2) (let ((sc0 arg-1)) (if (null? sc0) arg-2 (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((u--rec (CoreC-45CompileExpr-addLocs e-3 arg-2))) (cons (CoreC-45CompileExpr-uniqueName e-2 u--rec) u--rec)))))))) -(define CoreC-45TTC-case--fromBuf-9356 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 ext-0) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (let ((act-24 (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-0 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-10255 arg-10257))) (lambda (arg-10258) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-10258 eta-0)))) arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-10255 arg-10257))) (lambda (arg-10258) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-10258 eta-0)))) arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-10255 arg-10257))) (lambda (arg-10258) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-10258 eta-0)))) arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-10255 arg-10257))) (lambda (arg-10258) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-10258 eta-0)))) arg-0 ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_Name arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10258 eta-0)))) arg-0 ext-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-30 (CoreC-45TTC-u--fromBuf_TTC_Visibility arg-0 ext-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-31 (CoreC-45TTC-u--fromBuf_TTC_Totality arg-0 ext-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-32 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_DefFlag arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_DefFlag arg-10258 eta-0)))) arg-0 ext-0))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-33 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Bool arg-0 ext-0))) (let ((sc10 act-33)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref sc10 1))) (let ((act-34 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Bool arg-0 ext-0))) (let ((sc11 act-34)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-15 (vector-ref sc11 1))) (let ((act-35 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_SCCall arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_SCCall arg-10258 eta-0)))) arg-0 ext-0))) (let ((sc12 act-35)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-16 (vector-ref sc12 1))) (vector 1 (vector 0 arg-4 arg-6 e-5 e-6 e-7 e-8 e-9 arg-5 e-10 e-11 e-12 e-13 arg-8 arg-3 e-14 e-15 0 arg-9 arg-1 (vector 0 ) e-16))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (vector 1 (vector 0 arg-4 arg-6 (vector 10 arg-4 1) '() '() '() '() arg-5 '() (vector 2 ) (CoreC-45TT-unchecked) '() arg-8 arg-3 1 1 0 arg-9 arg-1 (vector 0 ) '()))))))) -(define CoreC-45TTC-case--caseC-32blockC-32inC-32fromBuf-6543 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (vector 1 (vector 0 arg-4 arg-3))) (else (LibrariesC-45UtilsC-45Binary-corrupt "CExp" ext-0)))))) -(define CoreC-45TTC-case--caseC-32blockC-32inC-32fromBuf-3805 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (vector 1 (vector 0 (CoreC-45FC-emptyFC) arg-4 arg-5))) (else (LibrariesC-45UtilsC-45Binary-corrupt "Term" ext-0)))))) -(define CoreC-45TTC-case--toBuf-3198 (lambda (arg-0 arg-1 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-6 (bs+ 12 (PreludeC-45Cast-u--cast_Cast_Nat_Int arg-1) 63) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Bool arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Bool arg-10258 eta-0)))) arg-6 arg-4 ext-0)))))) (else (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-6 0 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Bool arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Bool arg-10258 eta-0)))) arg-6 arg-4 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-6 arg-1) ext-0)))))))))))))) -(define CoreC-45TTC-n--12754-5470-u--fromBuf3 (lambda (arg-0 arg-1 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-getTag arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 18) (vector 1 (vector 23 ))) ((equal? sc1 100) (vector 1 (vector 36 )))(else (LibrariesC-45UtilsC-45Binary-corrupt "PrimFn 3" ext-0))))))))))) -(define CoreC-45TTC-n--12754-5469-u--fromBuf2 (lambda (arg-0 arg-1 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-getTag arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_Constant arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 0 e-6)))))))) ((equal? sc1 1) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_Constant arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 1 e-6)))))))) ((equal? sc1 2) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_Constant arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 2 e-6)))))))) ((equal? sc1 3) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_Constant arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 3 e-6)))))))) ((equal? sc1 4) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_Constant arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 4 e-6)))))))) ((equal? sc1 6) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_Constant arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 11 e-6)))))))) ((equal? sc1 7) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_Constant arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 12 e-6)))))))) ((equal? sc1 8) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_Constant arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 13 e-6)))))))) ((equal? sc1 9) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_Constant arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 14 e-6)))))))) ((equal? sc1 10) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_Constant arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 15 e-6)))))))) ((equal? sc1 14) (vector 1 (vector 19 ))) ((equal? sc1 15) (vector 1 (vector 20 ))) ((equal? sc1 16) (vector 1 (vector 21 ))) ((equal? sc1 35) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_Constant arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 6 e-6)))))))) ((equal? sc1 36) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_Constant arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 7 e-6)))))))) ((equal? sc1 37) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_Constant arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 8 e-6)))))))) ((equal? sc1 38) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_Constant arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 9 e-6)))))))) ((equal? sc1 39) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_Constant arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 10 e-6)))))))) ((equal? sc1 101) (vector 1 (vector 37 )))(else (LibrariesC-45UtilsC-45Binary-corrupt "PrimFn 2" ext-0))))))))))) -(define CoreC-45TTC-n--12754-5468-u--fromBuf1 (lambda (arg-0 arg-1 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-getTag arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 5) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_Constant arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 5 e-6)))))))) ((equal? sc1 11) (vector 1 (vector 16 ))) ((equal? sc1 12) (vector 1 (vector 17 ))) ((equal? sc1 13) (vector 1 (vector 18 ))) ((equal? sc1 17) (vector 1 (vector 22 ))) ((equal? sc1 19) (vector 1 (vector 24 ))) ((equal? sc1 20) (vector 1 (vector 25 ))) ((equal? sc1 22) (vector 1 (vector 26 ))) ((equal? sc1 23) (vector 1 (vector 27 ))) ((equal? sc1 24) (vector 1 (vector 28 ))) ((equal? sc1 25) (vector 1 (vector 29 ))) ((equal? sc1 26) (vector 1 (vector 30 ))) ((equal? sc1 27) (vector 1 (vector 31 ))) ((equal? sc1 32) (vector 1 (vector 32 ))) ((equal? sc1 33) (vector 1 (vector 33 ))) ((equal? sc1 34) (vector 1 (vector 34 ))) ((equal? sc1 99) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_Constant arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (CoreC-45TTC-u--fromBuf_TTC_Constant arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 35 e-6 e-7)))))))))))))(else (LibrariesC-45UtilsC-45Binary-corrupt "PrimFn 1" ext-0))))))))))) -(define CoreC-45TTC-n--16766-9146-u--cwName (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((7) 0) ((8) 0)(else 1))))) -(define CoreC-45TTC-u--toBuf_TTC_Visibility (lambda (arg-0 arg-1 ext-0) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (LibrariesC-45UtilsC-45Binary-tag arg-0 0 ext-0)) ((1) (LibrariesC-45UtilsC-45Binary-tag arg-0 1 ext-0)) (else (LibrariesC-45UtilsC-45Binary-tag arg-0 2 ext-0)))))) -(define CoreC-45TTC-u--toBuf_TTC_UseSide (lambda (arg-0 arg-1 ext-0) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (LibrariesC-45UtilsC-45Binary-tag arg-0 0 ext-0)) (else (LibrariesC-45UtilsC-45Binary-tag arg-0 1 ext-0)))))) -(define CoreC-45TTC-u--toBuf_TTC_TypeFlags (lambda (arg-0 arg-1 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Bool arg-0 (let ((sc0 arg-1)) (let ((e-0 (car sc0))) e-0)) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Bool arg-0 (let ((sc1 arg-1)) (let ((e-1 (cdr sc1))) e-1)) ext-0))))))) -(define CoreC-45TTC-u--toBuf_TTC_Transform (lambda (arg-0 arg-1 ext-0) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_Name arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10258 eta-0)))) arg-0 e-0 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_Name arg-0 e-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((act-26 (CoreC-45TTC-u--toBuf_TTC_C-40C-40EnvC-32TermC-41C-32C-36varsC-41 e-0 arg-0 e-2 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((act-27 ((CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 e-0 arg-0 e-3) ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else ((CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 e-0 arg-0 e-4) ext-0))))))))))))))))))))))))) -(define CoreC-45TTC-u--toBuf_TTC_Totality (lambda (arg-0 arg-1 ext-0) (let ((sc0 arg-1)) (let ((e-0 (car sc0))) (let ((e-1 (cdr sc0))) (let ((act-24 (CoreC-45TTC-u--toBuf_TTC_Terminating arg-0 e-0 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (CoreC-45TTC-u--toBuf_TTC_Covering arg-0 e-1 ext-0)))))))))) -(define CoreC-45TTC-u--toBuf_TTC_TotalReq (lambda (arg-0 arg-1 ext-0) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (LibrariesC-45UtilsC-45Binary-tag arg-0 0 ext-0)) ((1) (LibrariesC-45UtilsC-45Binary-tag arg-0 1 ext-0)) (else (LibrariesC-45UtilsC-45Binary-tag arg-0 2 ext-0)))))) -(define CoreC-45TTC-u--toBuf_TTC_Terminating (lambda (arg-0 arg-1 ext-0) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (LibrariesC-45UtilsC-45Binary-tag arg-0 0 ext-0)) ((1) (LibrariesC-45UtilsC-45Binary-tag arg-0 1 ext-0)) (else (let ((e-0 (vector-ref sc0 1))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 2 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (CoreC-45TTC-u--toBuf_TTC_PartialReason arg-0 e-0 ext-0))))))))))) -(define CoreC-45TTC-u--toBuf_TTC_SizeChange (lambda (arg-0 arg-1 ext-0) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (LibrariesC-45UtilsC-45Binary-tag arg-0 0 ext-0)) ((1) (LibrariesC-45UtilsC-45Binary-tag arg-0 1 ext-0)) (else (LibrariesC-45UtilsC-45Binary-tag arg-0 2 ext-0)))))) -(define CoreC-45TTC-u--toBuf_TTC_SCCall (lambda (arg-0 arg-1 ext-0) (let ((act-24 (CoreC-45TTC-u--toBuf_TTC_Name arg-0 (let ((sc0 arg-1)) (let ((e-0 (car sc0))) e-0)) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-10256) (lambda (arg-10258) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10259) (lambda (arg-10260) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-10259 arg-10260))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-10259 eta-2)))) (cons (lambda (arg-10259) (lambda (arg-10260) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_SizeChange arg-10259 arg-10260 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_SizeChange arg-10259 eta-2))))) arg-10256 arg-10258 eta-1)))) (lambda (arg-10258) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10259) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-10256 arg-10259))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-10259 eta-2)))) (cons (lambda (arg-10256) (lambda (arg-10259) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_SizeChange arg-10256 arg-10259 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_SizeChange arg-10259 eta-2))))) arg-10258 eta-1)))) arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10259) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-10256 arg-10259))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-10259 eta-2)))) (cons (lambda (arg-10256) (lambda (arg-10259) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_SizeChange arg-10256 arg-10259 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_SizeChange arg-10259 eta-2))))) arg-10255 arg-10257 eta-1)))) (lambda (arg-10259) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10255) (lambda (arg-10257) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-10255 arg-10257))) (lambda (arg-10260) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-10260 eta-2)))) (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_SizeChange arg-10255 arg-10257 eta-2)))) (lambda (arg-10260) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_SizeChange arg-10260 eta-2))))) arg-10259 eta-1)))) arg-10258 eta-0)))) arg-0 (let ((sc1 arg-1)) (let ((e-1 (cdr sc1))) e-1)) ext-0))))))) -(define CoreC-45TTC-u--toBuf_TTC_RigCount (lambda (arg-0 ext-0) (AlgebraC-45Semiring-elimSemi (cons (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-2) (lambda (arg-3) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-4 arg-5))))) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-tag arg-0 0 eta-0)) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-tag arg-0 1 eta-0)) (lambda (eta-0) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-tag arg-0 2 eta-1))) ext-0))) -(define CoreC-45TTC-u--toBuf_TTC_RewriteNames (lambda (arg-0 arg-1 ext-0) (let ((act-24 (CoreC-45TTC-u--toBuf_TTC_Name arg-0 (let ((sc0 arg-1)) (let ((e-0 (car sc0))) e-0)) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (CoreC-45TTC-u--toBuf_TTC_Name arg-0 (let ((sc1 arg-1)) (let ((e-1 (cdr sc1))) e-1)) ext-0))))))) -(define CoreC-45TTC-u--toBuf_TTC_PrimNames (lambda (arg-0 arg-1 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_Name arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10258 eta-0)))) arg-0 (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) e-0)) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_Name arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10258 eta-0)))) arg-0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 2))) e-1)) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_Name arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10258 eta-0)))) arg-0 (let ((sc2 arg-1)) (let ((e-2 (vector-ref sc2 3))) e-2)) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_Name arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10258 eta-0)))) arg-0 (let ((sc3 arg-1)) (let ((e-3 (vector-ref sc3 4))) e-3)) ext-0))))))))))))))) -(define CoreC-45TTC-u--toBuf_TTC_PartialReason (lambda (arg-0 arg-1 ext-0) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (LibrariesC-45UtilsC-45Binary-tag arg-0 0 ext-0)) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 1 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_Name arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10258 eta-0)))) arg-0 e-0 ext-0))))))) (else (let ((e-1 (vector-ref sc0 1))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 2 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_Name arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10258 eta-0)))) arg-0 e-1 ext-0))))))))))) -(define CoreC-45TTC-u--toBuf_TTC_PairNames (lambda (arg-0 arg-1 ext-0) (let ((act-24 (CoreC-45TTC-u--toBuf_TTC_Name arg-0 (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) e-0)) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_Name arg-0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 2))) e-1)) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (CoreC-45TTC-u--toBuf_TTC_Name arg-0 (let ((sc2 arg-1)) (let ((e-2 (vector-ref sc2 3))) e-2)) ext-0))))))))))) -(define CoreC-45TTC-u--toBuf_TTC_PMDefInfo (lambda (arg-0 arg-1 ext-0) (let ((act-24 (CoreC-45TTC-u--toBuf_TTC_HoleInfo arg-0 (let ((sc0 arg-1)) (let ((e-0 (car sc0))) e-0)) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Bool arg-0 (let ((sc1 arg-1)) (let ((e-1 (cdr sc1))) e-1)) ext-0))))))) -(define CoreC-45TTC-u--toBuf_TTC_Namespace (lambda (arg-0 ext-0 ext-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-10255 arg-10257))) (lambda (arg-10258) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-10258 eta-0)))) arg-0 (CoreC-45NameC-45Namespace-unsafeUnfoldNamespace ext-0) ext-1))) -(define CoreC-45TTC-u--toBuf_TTC_NameType (lambda (arg-0 arg-1 ext-0) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (LibrariesC-45UtilsC-45Binary-tag arg-0 0 ext-0)) ((1) (LibrariesC-45UtilsC-45Binary-tag arg-0 1 ext-0)) ((2) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 2 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-0 e-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-0 e-1) ext-0)))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 3 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-0 e-2 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-0 e-3) ext-0)))))))))))))))) -(define CoreC-45TTC-u--toBuf_TTC_Name (lambda (arg-0 arg-1 ext-0) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 0 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_Namespace arg-0 e-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (CoreC-45TTC-u--toBuf_TTC_Name arg-0 e-1 ext-0)))))))))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 1 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else ((LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-0 e-2) ext-0))))))) ((2) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 2 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-0 e-3) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-0 e-4 ext-0)))))))))))) ((3) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 3 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_Name arg-0 e-5 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-0 e-6 ext-0)))))))))))) ((4) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 4 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-0 e-7) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (CoreC-45TTC-u--toBuf_TTC_Name arg-0 e-8 ext-0)))))))))))) ((5) (let ((e-9 (vector-ref sc0 1))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 5 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else ((LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-0 e-9) ext-0))))))) ((6) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 6 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10258 eta-0)))) (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10258 eta-0))))) arg-0 e-10 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (CoreC-45TTC-u--toBuf_TTC_Name arg-0 e-11 ext-0)))))))))))) ((7) (let ((e-12 (vector-ref sc0 1))) (let ((e-13 (vector-ref sc0 2))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 7 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-0 e-12) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-0 e-13 ext-0)))))))))))) ((8) (let ((e-14 (vector-ref sc0 1))) (let ((e-15 (vector-ref sc0 2))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 8 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-0 e-14) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-0 e-15 ext-0)))))))))))) (else (let ((e-16 (vector-ref sc0 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 (PreludeC-45TypesC-45String-C-43C-43 "Can't write resolved name " (PreludeC-45Show-u--show_Show_Int e-16))) ext-0))))))) -(define CoreC-45TTC-u--toBuf_TTC_ModuleIdent (lambda (arg-0 ext-0 ext-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-10255 arg-10257))) (lambda (arg-10258) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-10258 eta-0)))) arg-0 (CoreC-45NameC-45Namespace-unsafeUnfoldModuleIdent ext-0) ext-1))) -(define CoreC-45TTC-u--toBuf_TTC_LazyReason (lambda (arg-0 arg-1 ext-0) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (LibrariesC-45UtilsC-45Binary-tag arg-0 0 ext-0)) ((1) (LibrariesC-45UtilsC-45Binary-tag arg-0 1 ext-0)) (else (LibrariesC-45UtilsC-45Binary-tag arg-0 2 ext-0)))))) -(define CoreC-45TTC-u--toBuf_TTC_HoleInfo (lambda (arg-0 arg-1 ext-0) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (LibrariesC-45UtilsC-45Binary-tag arg-0 0 ext-0)) (else (let ((e-0 (vector-ref sc0 1))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 1 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else ((LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-0 e-0) ext-0))))))))))) -(define CoreC-45TTC-u--toBuf_TTC_GlobalDef (lambda (arg-0 arg-1 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_CDef arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_CDef arg-10258 eta-0)))) arg-0 (let ((sc0 arg-1)) (let ((e-18 (vector-ref sc0 19))) e-18)) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10256) (lambda (arg-10258) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10259) (lambda (arg-10260) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_Name arg-10259 arg-10260 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10259 eta-2)))) (cons (lambda (arg-10259) (lambda (arg-10260) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Bool arg-10259 arg-10260 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Bool arg-10259 eta-2))))) arg-10256 arg-10258 eta-1)))) (lambda (arg-10258) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10259) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_Name arg-10256 arg-10259 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10259 eta-2)))) (cons (lambda (arg-10256) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Bool arg-10256 arg-10259 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Bool arg-10259 eta-2))))) arg-10258 eta-1)))) arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10259) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_Name arg-10256 arg-10259 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10259 eta-2)))) (cons (lambda (arg-10256) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Bool arg-10256 arg-10259 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Bool arg-10259 eta-2))))) arg-10255 arg-10257 eta-1)))) (lambda (arg-10259) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_Name arg-10255 arg-10257 eta-2)))) (lambda (arg-10260) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10260 eta-2)))) (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Bool arg-10255 arg-10257 eta-2)))) (lambda (arg-10260) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Bool arg-10260 eta-2))))) arg-10259 eta-1)))) arg-10258 eta-0)))) arg-0 (PreludeC-45Types-u--map_Functor_Maybe (lambda (eta-0) (LibrariesC-45DataC-45NameMap-toList eta-0)) (let ((sc1 arg-1)) (let ((e-13 (vector-ref sc1 14))) e-13))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45TTC-u--toBuf_TTC_FC arg-0 (let ((sc2 arg-1)) (let ((e-0 (vector-ref sc2 1))) e-0)) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-27 ((CoreC-45TTC-u--toBuf_TTC_RigCount arg-0 (let ((sc3 arg-1)) (let ((e-21 (vector-ref sc3 8))) e-21))) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-28 (CoreC-45TTC-u--toBuf_TTC_Name arg-0 (let ((sc4 arg-1)) (let ((e-1 (vector-ref sc4 2))) e-1)) ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-29 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10256) (lambda (arg-10258) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10259) (lambda (arg-10260) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_Name arg-10259 arg-10260 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10259 eta-2)))) (cons (lambda (arg-10259) (lambda (arg-10260) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Bool arg-10259 arg-10260 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Bool arg-10259 eta-2))))) arg-10256 arg-10258 eta-1)))) (lambda (arg-10258) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10259) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_Name arg-10256 arg-10259 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10259 eta-2)))) (cons (lambda (arg-10256) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Bool arg-10256 arg-10259 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Bool arg-10259 eta-2))))) arg-10258 eta-1)))) arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10259) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_Name arg-10256 arg-10259 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10259 eta-2)))) (cons (lambda (arg-10256) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Bool arg-10256 arg-10259 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Bool arg-10259 eta-2))))) arg-10255 arg-10257 eta-1)))) (lambda (arg-10259) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_Name arg-10255 arg-10257 eta-2)))) (lambda (arg-10260) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10260 eta-2)))) (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Bool arg-10255 arg-10257 eta-2)))) (lambda (arg-10260) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Bool arg-10260 eta-2))))) arg-10259 eta-1)))) arg-10258 eta-0)))) arg-0 (PreludeC-45Types-u--map_Functor_Maybe (lambda (eta-0) (LibrariesC-45DataC-45NameMap-toList eta-0)) (let ((sc5 arg-1)) (let ((e-12 (vector-ref sc5 13))) e-12))) ext-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((act-30 (CoreC-45TTC-u--toBuf_TTC_Def arg-0 (let ((sc6 arg-1)) (let ((e-17 (vector-ref sc6 18))) e-17)) ext-0))) (let ((sc6 act-30)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((sc7 (PreludeC-45Basics-C-124C-124 (CoreC-45Name-isUserName (let ((sc8 arg-1)) (let ((e-1 (vector-ref sc8 2))) e-1))) (lambda () (CoreC-45TTC-n--16766-9146-u--cwName arg-1 arg-0 (let ((sc8 arg-1)) (let ((e-1 (vector-ref sc8 2))) e-1))))))) (cond ((equal? sc7 0) (let ((act-31 ((CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-0 (let ((sc8 arg-1)) (let ((e-2 (vector-ref sc8 3))) e-2))) ext-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((act-32 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-10255 arg-10257))) (lambda (arg-10258) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-10258 eta-0)))) arg-0 (let ((sc9 arg-1)) (let ((e-3 (vector-ref sc9 4))) e-3)) ext-0))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((act-33 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-10255 arg-10257))) (lambda (arg-10258) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-10258 eta-0)))) arg-0 (let ((sc10 arg-1)) (let ((e-4 (vector-ref sc10 5))) e-4)) ext-0))) (let ((sc10 act-33)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((act-34 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-10255 arg-10257))) (lambda (arg-10258) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-10258 eta-0)))) arg-0 (let ((sc11 arg-1)) (let ((e-30 (vector-ref sc11 6))) e-30)) ext-0))) (let ((sc11 act-34)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((act-35 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-10255 arg-10257))) (lambda (arg-10258) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-10258 eta-0)))) arg-0 (let ((sc12 arg-1)) (let ((e-30 (vector-ref sc12 7))) e-30)) ext-0))) (let ((sc12 act-35)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((act-36 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_Name arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10258 eta-0)))) arg-0 (let ((sc13 arg-1)) (let ((e-29 (vector-ref sc13 9))) e-29)) ext-0))) (let ((sc13 act-36)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((act-37 (CoreC-45TTC-u--toBuf_TTC_Visibility arg-0 (let ((sc14 arg-1)) (let ((e-29 (vector-ref sc14 10))) e-29)) ext-0))) (let ((sc14 act-37)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((act-38 (CoreC-45TTC-u--toBuf_TTC_Totality arg-0 (let ((sc15 arg-1)) (let ((e-29 (vector-ref sc15 11))) e-29)) ext-0))) (let ((sc15 act-38)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((act-39 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_DefFlag arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_DefFlag arg-10258 eta-0)))) arg-0 (let ((sc16 arg-1)) (let ((e-29 (vector-ref sc16 12))) e-29)) ext-0))) (let ((sc16 act-39)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((act-40 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Bool arg-0 (let ((sc17 arg-1)) (let ((e-27 (vector-ref sc17 15))) e-27)) ext-0))) (let ((sc17 act-40)) (case (vector-ref sc17 0) ((0) (let ((e-2 (vector-ref sc17 1))) (vector 0 e-2))) (else (let ((act-41 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Bool arg-0 (let ((sc18 arg-1)) (let ((e-27 (vector-ref sc18 16))) e-27)) ext-0))) (let ((sc18 act-41)) (case (vector-ref sc18 0) ((0) (let ((e-2 (vector-ref sc18 1))) (vector 0 e-2))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_SCCall arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_SCCall arg-10258 eta-0)))) arg-0 (let ((sc19 arg-1)) (let ((e-23 (vector-ref sc19 21))) e-23)) ext-0)))))))))))))))))))))))))))))))))))))))))))))) (else (vector 1 (vector 0 ))))))))))))))))))))))))))))))))))) -(define CoreC-45TTC-u--toBuf_TTC_FC (lambda (arg-0 arg-1 ext-0) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 0 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((act-25 ((LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-0 e-0) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10258 eta-0)))) (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10258 eta-0))))) arg-0 e-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10258 eta-0)))) (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10258 eta-0))))) arg-0 e-2 ext-0))))))))))))))))) (else (LibrariesC-45UtilsC-45Binary-tag arg-0 1 ext-0)))))) -(define CoreC-45TTC-u--toBuf_TTC_DefFlag (lambda (arg-0 arg-1 ext-0) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (LibrariesC-45UtilsC-45Binary-tag arg-0 2 ext-0)) ((1) (LibrariesC-45UtilsC-45Binary-tag arg-0 3 ext-0)) ((2) (LibrariesC-45UtilsC-45Binary-tag arg-0 4 ext-0)) ((3) (LibrariesC-45UtilsC-45Binary-tag arg-0 5 ext-0)) ((4) (let ((e-0 (vector-ref sc0 1))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 6 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (CoreC-45TTC-u--toBuf_TTC_TotalReq arg-0 e-0 ext-0))))))) ((5) (LibrariesC-45UtilsC-45Binary-tag arg-0 7 ext-0)) ((6) (LibrariesC-45UtilsC-45Binary-tag arg-0 8 ext-0)) ((7) (LibrariesC-45UtilsC-45Binary-tag arg-0 9 ext-0)) ((8) (LibrariesC-45UtilsC-45Binary-tag arg-0 10 ext-0)) (else (let ((e-2 (vector-ref sc0 1))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 11 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (CoreC-45TTC-u--toBuf_TTC_ConInfo arg-0 e-2 ext-0))))))))))) -(define CoreC-45TTC-u--toBuf_TTC_Def (lambda (arg-0 arg-1 ext-0) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (LibrariesC-45UtilsC-45Binary-tag arg-0 0 ext-0)) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 5))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 1 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_PMDefInfo arg-0 e-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_Name arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10258 eta-0)))) arg-0 e-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((act-27 (CoreC-45TTC-u--toBuf_TTC_C-40CaseTreeC-32C-36varsC-41 e-1 arg-0 e-2 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-40DPairC-32C-36aC-41C-32C-36pC-41 (cons (cons (lambda (arg-10256) (lambda (arg-10258) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10259) (lambda (arg-10260) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_Name arg-10259 arg-10260 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10259 eta-2)))) arg-10256 arg-10258 eta-1)))) (lambda (arg-10258) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10256) (lambda (arg-10259) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_Name arg-10256 arg-10259 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10259 eta-2)))) arg-10258 eta-1)))) (lambda (u--y) (cons (lambda (arg-10256) (lambda (arg-10258) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10259) (lambda (arg-10260) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_C-40C-40EnvC-32TermC-41C-32C-36varsC-41 u--y arg-10259 arg-10260 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_C-40C-40EnvC-32TermC-41C-32C-36varsC-41 u--y arg-10259 eta-2)))) (cons (lambda (arg-10259) (lambda (arg-10260) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10261) (lambda (arg-10262) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 u--y arg-10261 arg-10262))) (lambda (arg-10261) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 u--y arg-10261 eta-3)))) (cons (lambda (arg-10261) (lambda (arg-10262) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 u--y arg-10261 arg-10262))) (lambda (arg-10261) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 u--y arg-10261 eta-3))))) arg-10259 arg-10260 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10260) (lambda (arg-10261) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 u--y arg-10260 arg-10261))) (lambda (arg-10260) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 u--y arg-10260 eta-3)))) (cons (lambda (arg-10260) (lambda (arg-10261) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 u--y arg-10260 arg-10261))) (lambda (arg-10260) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 u--y arg-10260 eta-3))))) arg-10259 eta-2))))) arg-10256 arg-10258 eta-1)))) (lambda (arg-10258) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10259) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_C-40C-40EnvC-32TermC-41C-32C-36varsC-41 u--y arg-10256 arg-10259 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_C-40C-40EnvC-32TermC-41C-32C-36varsC-41 u--y arg-10259 eta-2)))) (cons (lambda (arg-10256) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10260) (lambda (arg-10261) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 u--y arg-10260 arg-10261))) (lambda (arg-10260) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 u--y arg-10260 eta-3)))) (cons (lambda (arg-10260) (lambda (arg-10261) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 u--y arg-10260 arg-10261))) (lambda (arg-10260) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 u--y arg-10260 eta-3))))) arg-10256 arg-10259 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10260) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 u--y arg-10256 arg-10260))) (lambda (arg-10260) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 u--y arg-10260 eta-3)))) (cons (lambda (arg-10256) (lambda (arg-10260) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 u--y arg-10256 arg-10260))) (lambda (arg-10260) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 u--y arg-10260 eta-3))))) arg-10259 eta-2))))) arg-10258 eta-1)))))) arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-40DPairC-32C-36aC-41C-32C-36pC-41 (cons (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10256) (lambda (arg-10259) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_Name arg-10256 arg-10259 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10259 eta-2)))) arg-10255 arg-10257 eta-1)))) (lambda (arg-10259) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_Name arg-10255 arg-10257 eta-2)))) (lambda (arg-10260) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10260 eta-2)))) arg-10259 eta-1)))) (lambda (u--y) (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10259) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_C-40C-40EnvC-32TermC-41C-32C-36varsC-41 u--y arg-10256 arg-10259 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_C-40C-40EnvC-32TermC-41C-32C-36varsC-41 u--y arg-10259 eta-2)))) (cons (lambda (arg-10256) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10260) (lambda (arg-10261) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 u--y arg-10260 arg-10261))) (lambda (arg-10260) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 u--y arg-10260 eta-3)))) (cons (lambda (arg-10260) (lambda (arg-10261) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 u--y arg-10260 arg-10261))) (lambda (arg-10260) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 u--y arg-10260 eta-3))))) arg-10256 arg-10259 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10260) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 u--y arg-10256 arg-10260))) (lambda (arg-10260) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 u--y arg-10260 eta-3)))) (cons (lambda (arg-10256) (lambda (arg-10260) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 u--y arg-10256 arg-10260))) (lambda (arg-10260) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 u--y arg-10260 eta-3))))) arg-10259 eta-2))))) arg-10255 arg-10257 eta-1)))) (lambda (arg-10259) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_C-40C-40EnvC-32TermC-41C-32C-36varsC-41 u--y arg-10255 arg-10257 eta-2)))) (lambda (arg-10260) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_C-40C-40EnvC-32TermC-41C-32C-36varsC-41 u--y arg-10260 eta-2)))) (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10260) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 u--y arg-10256 arg-10260))) (lambda (arg-10260) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 u--y arg-10260 eta-3)))) (cons (lambda (arg-10256) (lambda (arg-10260) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 u--y arg-10256 arg-10260))) (lambda (arg-10260) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 u--y arg-10260 eta-3))))) arg-10255 arg-10257 eta-2)))) (lambda (arg-10260) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10255) (lambda (arg-10257) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 u--y arg-10255 arg-10257))) (lambda (arg-10261) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 u--y arg-10261 eta-3)))) (cons (lambda (arg-10255) (lambda (arg-10257) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 u--y arg-10255 arg-10257))) (lambda (arg-10261) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 u--y arg-10261 eta-3))))) arg-10260 eta-2))))) arg-10259 eta-1)))))) arg-10258 eta-0)))) arg-0 e-4 ext-0)))))))))))))))))))))) ((2) (let ((e-5 (vector-ref sc0 1))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 2 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else ((LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-0 e-5) ext-0))))))) ((3) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 3 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-0 e-6) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-10255 arg-10257))) (lambda (arg-10258) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-10258 eta-0)))) arg-0 e-7 ext-0)))))))))))) ((4) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 "Trying to serialise a Builtin") ext-0)) ((5) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 4 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-0 e-10 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-0 e-11) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10258) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Bool arg-10256 arg-10258 eta-1)))) (lambda (arg-10258) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Bool arg-10258 eta-1)))) (cons (lambda (arg-10256) (lambda (arg-10258) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-10256 arg-10258))) (lambda (arg-10258) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-10258 eta-1))))) arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Bool arg-10255 arg-10257 eta-1)))) (lambda (arg-10259) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Bool arg-10259 eta-1)))) (cons (lambda (arg-10255) (lambda (arg-10257) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-10255 arg-10257))) (lambda (arg-10259) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-10259 eta-1))))) arg-10258 eta-0)))) arg-0 e-12 ext-0))))))))))))))))) ((6) (let ((e-13 (vector-ref sc0 1))) (let ((e-14 (vector-ref sc0 2))) (let ((e-15 (vector-ref sc0 3))) (let ((e-16 (vector-ref sc0 4))) (let ((e-17 (vector-ref sc0 5))) (let ((e-18 (vector-ref sc0 6))) (let ((e-19 (vector-ref sc0 7))) (let ((e-20 (vector-ref sc0 8))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 5 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-0 e-13 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-0 e-14) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-10255 arg-10257))) (lambda (arg-10258) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-10258 eta-0)))) arg-0 e-15 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-28 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-10255 arg-10257))) (lambda (arg-10258) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-10258 eta-0)))) arg-0 e-16 ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((act-29 (CoreC-45TTC-u--toBuf_TTC_TypeFlags arg-0 e-17 ext-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((act-30 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_Name arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10258 eta-0)))) arg-0 e-18 ext-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((act-31 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_Name arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10258 eta-0)))) arg-0 e-19 ext-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10256) (lambda (arg-10258) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-10256 arg-10258))) (lambda (arg-10258) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-10258 eta-1)))) arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-10255 arg-10257))) (lambda (arg-10259) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-10259 eta-1)))) arg-10258 eta-0)))) arg-0 e-20 ext-0)))))))))))))))))))))))))))))))))))))))))) ((7) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 6 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-0 e-21) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Bool arg-0 (let ((sc3 e-22)) (let ((e-0 (car sc3))) e-0)) ext-0)))))))))))) ((8) (let ((e-23 (vector-ref sc0 1))) (let ((e-24 (vector-ref sc0 2))) (let ((e-25 (vector-ref sc0 3))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 7 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((CoreC-45TTC-u--toBuf_TTC_RigCount arg-0 e-23) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-0 e-24) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (CoreC-45TTC-u--toBuf_TTC_Name arg-0 e-25 ext-0))))))))))))))))) ((9) (let ((e-26 (vector-ref sc0 1))) (let ((e-27 (vector-ref sc0 2))) (let ((e-28 (vector-ref sc0 3))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 8 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-0 e-26) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-0 e-27) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10258 eta-0)))) arg-0 e-28 ext-0))))))))))))))))) ((10) (LibrariesC-45UtilsC-45Binary-tag arg-0 9 ext-0)) (else (LibrariesC-45UtilsC-45Binary-tag arg-0 10 ext-0)))))) -(define CoreC-45TTC-u--toBuf_TTC_Covering (lambda (arg-0 arg-1 ext-0) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (LibrariesC-45UtilsC-45Binary-tag arg-0 0 ext-0)) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 1 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-10255 arg-10257))) (lambda (arg-10258) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-10258 eta-0)))) arg-0 e-0 ext-0))))))) (else (let ((e-1 (vector-ref sc0 1))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 2 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_Name arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10258 eta-0)))) arg-0 e-1 ext-0))))))))))) -(define CoreC-45TTC-u--toBuf_TTC_Constant (lambda (arg-0 arg-1 ext-0) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 0 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-0 e-0 ext-0))))))) ((5) (let ((e-1 (vector-ref sc0 1))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 1 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Integer arg-0 e-1 ext-0))))))) ((6) (let ((e-2 (vector-ref sc0 1))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 2 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-0 e-2 ext-0))))))) ((7) (let ((e-3 (vector-ref sc0 1))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 3 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-0 e-3 ext-0))))))) ((8) (let ((e-4 (vector-ref sc0 1))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 4 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-0 e-4 ext-0))))))) ((9) (let ((e-5 (vector-ref sc0 1))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 5 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Integer arg-0 e-5 ext-0))))))) ((10) (let ((e-6 (vector-ref sc0 1))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 6 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else ((LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-0 e-6) ext-0))))))) ((11) (let ((e-7 (vector-ref sc0 1))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 7 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Char arg-0 e-7 ext-0))))))) ((12) (let ((e-8 (vector-ref sc0 1))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 8 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Double arg-0 e-8 ext-0))))))) ((13) (LibrariesC-45UtilsC-45Binary-tag arg-0 9 ext-0)) ((14) (LibrariesC-45UtilsC-45Binary-tag arg-0 10 ext-0)) ((19) (LibrariesC-45UtilsC-45Binary-tag arg-0 11 ext-0)) ((20) (LibrariesC-45UtilsC-45Binary-tag arg-0 12 ext-0)) ((21) (LibrariesC-45UtilsC-45Binary-tag arg-0 13 ext-0)) ((22) (LibrariesC-45UtilsC-45Binary-tag arg-0 14 ext-0)) ((23) (LibrariesC-45UtilsC-45Binary-tag arg-0 15 ext-0)) ((24) (LibrariesC-45UtilsC-45Binary-tag arg-0 16 ext-0)) ((25) (LibrariesC-45UtilsC-45Binary-tag arg-0 17 ext-0)) ((26) (LibrariesC-45UtilsC-45Binary-tag arg-0 18 ext-0)) ((27) (LibrariesC-45UtilsC-45Binary-tag arg-0 19 ext-0)) ((3) (let ((e-9 (vector-ref sc0 1))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 20 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Integer arg-0 e-9 ext-0))))))) ((4) (let ((e-10 (vector-ref sc0 1))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 21 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Integer arg-0 e-10 ext-0))))))) ((17) (LibrariesC-45UtilsC-45Binary-tag arg-0 22 ext-0)) ((18) (LibrariesC-45UtilsC-45Binary-tag arg-0 23 ext-0)) ((1) (let ((e-11 (vector-ref sc0 1))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 24 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Integer arg-0 e-11 ext-0))))))) ((2) (let ((e-12 (vector-ref sc0 1))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 25 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Integer arg-0 e-12 ext-0))))))) ((15) (LibrariesC-45UtilsC-45Binary-tag arg-0 26 ext-0)) (else (LibrariesC-45UtilsC-45Binary-tag arg-0 27 ext-0)))))) -(define CoreC-45TTC-u--toBuf_TTC_ConInfo (lambda (arg-0 arg-1 ext-0) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (LibrariesC-45UtilsC-45Binary-tag arg-0 0 ext-0)) ((1) (LibrariesC-45UtilsC-45Binary-tag arg-0 1 ext-0)) ((2) (LibrariesC-45UtilsC-45Binary-tag arg-0 2 ext-0)) (else (LibrariesC-45UtilsC-45Binary-tag arg-0 3 ext-0)))))) -(define CoreC-45TTC-u--toBuf_TTC_CG (lambda (arg-0 arg-1 ext-0) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (LibrariesC-45UtilsC-45Binary-tag arg-0 0 ext-0)) ((1) (LibrariesC-45UtilsC-45Binary-tag arg-0 2 ext-0)) ((2) (LibrariesC-45UtilsC-45Binary-tag arg-0 3 ext-0)) ((6) (let ((e-0 (vector-ref sc0 1))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 4 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else ((LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-0 e-0) ext-0))))))) ((3) (LibrariesC-45UtilsC-45Binary-tag arg-0 5 ext-0)) ((4) (LibrariesC-45UtilsC-45Binary-tag arg-0 6 ext-0)) (else (LibrariesC-45UtilsC-45Binary-tag arg-0 7 ext-0)))))) -(define CoreC-45TTC-u--toBuf_TTC_CFType (lambda (arg-0 arg-1 ext-0) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (LibrariesC-45UtilsC-45Binary-tag arg-0 0 ext-0)) ((1) (LibrariesC-45UtilsC-45Binary-tag arg-0 1 ext-0)) ((2) (LibrariesC-45UtilsC-45Binary-tag arg-0 2 ext-0)) ((3) (LibrariesC-45UtilsC-45Binary-tag arg-0 3 ext-0)) ((4) (LibrariesC-45UtilsC-45Binary-tag arg-0 4 ext-0)) ((5) (LibrariesC-45UtilsC-45Binary-tag arg-0 5 ext-0)) ((6) (LibrariesC-45UtilsC-45Binary-tag arg-0 6 ext-0)) ((7) (LibrariesC-45UtilsC-45Binary-tag arg-0 7 ext-0)) ((8) (LibrariesC-45UtilsC-45Binary-tag arg-0 8 ext-0)) ((9) (LibrariesC-45UtilsC-45Binary-tag arg-0 9 ext-0)) ((12) (LibrariesC-45UtilsC-45Binary-tag arg-0 10 ext-0)) ((13) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 11 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_CFType arg-0 e-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (CoreC-45TTC-u--toBuf_TTC_CFType arg-0 e-1 ext-0)))))))))))) ((14) (let ((e-2 (vector-ref sc0 1))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 12 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (CoreC-45TTC-u--toBuf_TTC_CFType arg-0 e-2 ext-0))))))) ((15) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 13 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-0 e-3) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10258) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-10256 arg-10258))) (lambda (arg-10258) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-10258 eta-1)))) (cons (lambda (arg-10256) (lambda (arg-10258) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_CFType arg-10256 arg-10258 eta-1)))) (lambda (arg-10258) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_CFType arg-10258 eta-1))))) arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10255) (lambda (arg-10257) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-10255 arg-10257))) (lambda (arg-10259) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-10259 eta-1)))) (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_CFType arg-10255 arg-10257 eta-1)))) (lambda (arg-10259) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_CFType arg-10259 eta-1))))) arg-10258 eta-0)))) arg-0 e-4 ext-0)))))))))))) ((16) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 14 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_Name arg-0 e-5 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_CFType arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_CFType arg-10258 eta-0)))) arg-0 e-6 ext-0)))))))))))) ((10) (LibrariesC-45UtilsC-45Binary-tag arg-0 15 ext-0)) (else (LibrariesC-45UtilsC-45Binary-tag arg-0 16 ext-0)))))) -(define CoreC-45TTC-u--toBuf_TTC_CDef (lambda (arg-0 arg-1 ext-0) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 0 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_Name arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10258 eta-0)))) arg-0 e-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (CoreC-45TTC-u--toBuf_TTC_C-40CExpC-32C-36varsC-41 e-0 arg-0 e-1 ext-0)))))))))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 1 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10258 eta-0)))) arg-0 e-2 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((act-26 ((LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-0 e-3) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-10255 arg-10257))) (lambda (arg-10258) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-10258 eta-0)))) arg-0 e-4 ext-0))))))))))))))))) ((2) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 2 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-10255 arg-10257))) (lambda (arg-10258) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-10258 eta-0)))) arg-0 e-5 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_CFType arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_CFType arg-10258 eta-0)))) arg-0 e-6 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (CoreC-45TTC-u--toBuf_TTC_CFType arg-0 e-7 ext-0))))))))))))))))) (else (let ((e-8 (vector-ref sc0 1))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 3 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (CoreC-45TTC-u--toBuf_TTC_C-40CExpC-32C-36varsC-41 '() arg-0 e-8 ext-0))))))))))) -(define CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (lambda (eta-0) (CoreC-45TTC-case--toBuf-3198 arg-0 e-4 e-3 e-2 arg-1 (PreludeC-45Types-u--C-60_Ord_Nat e-4 (PreludeC-45Types-u--fromInteger_Num_Nat 244)) eta-0)))))) ((1) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-1 1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_NameType arg-1 e-8 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (CoreC-45TTC-u--toBuf_TTC_Name arg-1 e-9 eta-0))))))))))))) ((2) (let ((e-12 (vector-ref sc0 2))) (let ((e-14 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-1 2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_Name arg-1 e-12 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 arg-0 arg-10255 arg-10257))) (lambda (arg-10258) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 arg-0 arg-10258 eta-1)))) arg-1 e-14 eta-0))))))))))))) ((3) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-1 3 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_Name arg-1 e-17 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45TTC-u--toBuf_TTC_C-40BinderC-32C-40TermC-32C-36varsC-41C-41 arg-0 arg-1 e-18 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 (cons e-17 arg-0) arg-1 e-19) eta-0)))))))))))))))))) ((4) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-1 4 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 arg-0 arg-1 e-22) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 arg-0 arg-1 e-23) eta-0))))))))))))) ((5) (let ((e-26 (vector-ref sc0 2))) (let ((e-27 (vector-ref sc0 3))) (let ((e-28 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-1 5 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 arg-0 arg-1 e-27) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45TTC-u--toBuf_TTC_UseSide arg-1 e-26 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 arg-0 arg-1 e-28) eta-0)))))))))))))))))) ((6) (let ((e-31 (vector-ref sc0 2))) (let ((e-32 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-1 6 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_LazyReason arg-1 e-31 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 arg-0 arg-1 e-32) eta-0))))))))))))) ((7) (let ((e-35 (vector-ref sc0 2))) (let ((e-36 (vector-ref sc0 3))) (let ((e-37 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-1 7 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_LazyReason arg-1 e-35 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 arg-0 arg-1 e-36) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 arg-0 arg-1 e-37) eta-0)))))))))))))))))) ((8) (let ((e-40 (vector-ref sc0 2))) (let ((e-41 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-1 8 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_LazyReason arg-1 e-40 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 arg-0 arg-1 e-41) eta-0))))))))))))) ((9) (let ((e-44 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-1 9 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (CoreC-45TTC-u--toBuf_TTC_Constant arg-1 e-44 eta-0)))))))) ((10) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-tag arg-1 10 eta-0))) (else (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-tag arg-1 11 eta-0))))))) -(define CoreC-45TTC-u--toBuf_TTC_C-40PrimFnC-32C-36nC-41 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-0)) (cond ((equal? sc0 0) (blodwen-error-quit "Nat case not covered"))(else (let ((e-0 (- arg-0 1))) (let ((sc0 e-0)) (cond ((equal? sc0 0) (lambda (clam-0) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((5) (let ((e-18 (vector-ref sc1 1))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-1 5 clam-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (CoreC-45TTC-u--toBuf_TTC_Constant arg-1 e-18 clam-0))))))) ((16) (LibrariesC-45UtilsC-45Binary-tag arg-1 11 clam-0)) ((17) (LibrariesC-45UtilsC-45Binary-tag arg-1 12 clam-0)) ((18) (LibrariesC-45UtilsC-45Binary-tag arg-1 13 clam-0)) ((22) (LibrariesC-45UtilsC-45Binary-tag arg-1 17 clam-0)) ((24) (LibrariesC-45UtilsC-45Binary-tag arg-1 19 clam-0)) ((25) (LibrariesC-45UtilsC-45Binary-tag arg-1 20 clam-0)) ((26) (LibrariesC-45UtilsC-45Binary-tag arg-1 22 clam-0)) ((27) (LibrariesC-45UtilsC-45Binary-tag arg-1 23 clam-0)) ((28) (LibrariesC-45UtilsC-45Binary-tag arg-1 24 clam-0)) ((29) (LibrariesC-45UtilsC-45Binary-tag arg-1 25 clam-0)) ((30) (LibrariesC-45UtilsC-45Binary-tag arg-1 26 clam-0)) ((31) (LibrariesC-45UtilsC-45Binary-tag arg-1 27 clam-0)) ((32) (LibrariesC-45UtilsC-45Binary-tag arg-1 32 clam-0)) ((33) (LibrariesC-45UtilsC-45Binary-tag arg-1 33 clam-0)) ((34) (LibrariesC-45UtilsC-45Binary-tag arg-1 34 clam-0)) (else (let ((e-19 (vector-ref sc1 1))) (let ((e-20 (vector-ref sc1 2))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-1 99 clam-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_Constant arg-1 e-19 clam-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (CoreC-45TTC-u--toBuf_TTC_Constant arg-1 e-20 clam-0))))))))))))))))(else (let ((e-1 (- e-0 1))) (let ((sc0 e-1)) (cond ((equal? sc0 0) (lambda (clam-1) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-1 0 clam-1))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (CoreC-45TTC-u--toBuf_TTC_Constant arg-1 e-3 clam-1))))))) ((1) (let ((e-4 (vector-ref sc1 1))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-1 1 clam-1))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (CoreC-45TTC-u--toBuf_TTC_Constant arg-1 e-4 clam-1))))))) ((2) (let ((e-5 (vector-ref sc1 1))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-1 2 clam-1))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (CoreC-45TTC-u--toBuf_TTC_Constant arg-1 e-5 clam-1))))))) ((3) (let ((e-6 (vector-ref sc1 1))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-1 3 clam-1))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (CoreC-45TTC-u--toBuf_TTC_Constant arg-1 e-6 clam-1))))))) ((4) (let ((e-7 (vector-ref sc1 1))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-1 4 clam-1))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (CoreC-45TTC-u--toBuf_TTC_Constant arg-1 e-7 clam-1))))))) ((6) (let ((e-8 (vector-ref sc1 1))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-1 35 clam-1))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (CoreC-45TTC-u--toBuf_TTC_Constant arg-1 e-8 clam-1))))))) ((7) (let ((e-9 (vector-ref sc1 1))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-1 36 clam-1))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (CoreC-45TTC-u--toBuf_TTC_Constant arg-1 e-9 clam-1))))))) ((8) (let ((e-10 (vector-ref sc1 1))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-1 37 clam-1))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (CoreC-45TTC-u--toBuf_TTC_Constant arg-1 e-10 clam-1))))))) ((9) (let ((e-11 (vector-ref sc1 1))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-1 38 clam-1))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (CoreC-45TTC-u--toBuf_TTC_Constant arg-1 e-11 clam-1))))))) ((10) (let ((e-12 (vector-ref sc1 1))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-1 39 clam-1))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (CoreC-45TTC-u--toBuf_TTC_Constant arg-1 e-12 clam-1))))))) ((11) (let ((e-13 (vector-ref sc1 1))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-1 6 clam-1))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (CoreC-45TTC-u--toBuf_TTC_Constant arg-1 e-13 clam-1))))))) ((12) (let ((e-14 (vector-ref sc1 1))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-1 7 clam-1))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (CoreC-45TTC-u--toBuf_TTC_Constant arg-1 e-14 clam-1))))))) ((13) (let ((e-15 (vector-ref sc1 1))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-1 8 clam-1))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (CoreC-45TTC-u--toBuf_TTC_Constant arg-1 e-15 clam-1))))))) ((14) (let ((e-16 (vector-ref sc1 1))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-1 9 clam-1))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (CoreC-45TTC-u--toBuf_TTC_Constant arg-1 e-16 clam-1))))))) ((15) (let ((e-17 (vector-ref sc1 1))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-1 10 clam-1))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (CoreC-45TTC-u--toBuf_TTC_Constant arg-1 e-17 clam-1))))))) ((19) (LibrariesC-45UtilsC-45Binary-tag arg-1 14 clam-1)) ((20) (LibrariesC-45UtilsC-45Binary-tag arg-1 15 clam-1)) ((21) (LibrariesC-45UtilsC-45Binary-tag arg-1 16 clam-1)) (else (LibrariesC-45UtilsC-45Binary-tag arg-1 (blodwen-toSignedInt 101 63) clam-1))))))(else (let ((e-2 (- e-1 1))) (let ((sc0 e-2)) (cond ((equal? sc0 0) (lambda (clam-2) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((23) (LibrariesC-45UtilsC-45Binary-tag arg-1 18 clam-2)) (else (LibrariesC-45UtilsC-45Binary-tag arg-1 (blodwen-toSignedInt 100 63) clam-2))))))(else (blodwen-error-quit "Nat case not covered")))))))))))))))))) -(define CoreC-45TTC-u--toBuf_TTC_C-40PiInfoC-32C-36tC-41 (lambda (arg-1 arg-2 arg-3 ext-0) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (LibrariesC-45UtilsC-45Binary-tag arg-2 0 ext-0)) ((1) (LibrariesC-45UtilsC-45Binary-tag arg-2 1 ext-0)) ((2) (LibrariesC-45UtilsC-45Binary-tag arg-2 2 ext-0)) (else (let ((e-4 (vector-ref sc0 1))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-2 3 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((sc2 arg-1)) (let ((e-1 (car sc2))) (((e-1 arg-2) e-4) ext-0))))))))))))) -(define CoreC-45TTC-u--toBuf_TTC_C-40CaseTreeC-32C-36varsC-41 (lambda (arg-0 arg-1 arg-2 ext-0) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 4))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-1 0 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_Name arg-1 e-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((act-26 ((LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-1 e-2) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_C-40CaseAltC-32C-36varsC-41 arg-0 arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_C-40CaseAltC-32C-36varsC-41 arg-0 arg-10258 eta-0)))) arg-1 e-5 ext-0))))))))))))))))) ((1) (let ((e-8 (vector-ref sc0 2))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-1 1 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else ((CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 arg-0 arg-1 e-8) ext-0))))))) ((2) (let ((e-10 (vector-ref sc0 1))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-1 2 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else ((LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-1 e-10) ext-0))))))) (else (LibrariesC-45UtilsC-45Binary-tag arg-1 3 ext-0)))))) -(define CoreC-45TTC-u--toBuf_TTC_C-40CaseAltC-32C-36varsC-41 (lambda (arg-0 arg-1 arg-2 ext-0) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-1 0 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_Name arg-1 e-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1 e-2 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((act-27 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_Name arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10258 eta-0)))) arg-1 e-3 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (CoreC-45TTC-u--toBuf_TTC_C-40CaseTreeC-32C-36varsC-41 (PreludeC-45TypesC-45List-C-43C-43 e-3 arg-0) arg-1 e-4 ext-0)))))))))))))))))))))) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-1 1 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_Name arg-1 e-6 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45TTC-u--toBuf_TTC_Name arg-1 e-7 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (CoreC-45TTC-u--toBuf_TTC_C-40CaseTreeC-32C-36varsC-41 (cons e-6 (cons e-7 arg-0)) arg-1 e-8 ext-0))))))))))))))))) ((2) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-1 2 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_Constant arg-1 e-10 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (CoreC-45TTC-u--toBuf_TTC_C-40CaseTreeC-32C-36varsC-41 arg-0 arg-1 e-11 ext-0)))))))))))) (else (let ((e-13 (vector-ref sc0 1))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-1 3 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (CoreC-45TTC-u--toBuf_TTC_C-40CaseTreeC-32C-36varsC-41 arg-0 arg-1 e-13 ext-0))))))))))) -(define CoreC-45TTC-u--toBuf_TTC_C-40CExpC-32C-36varsC-41 (lambda (arg-0 arg-1 arg-2 ext-0) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-1 0 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_FC arg-1 e-3 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-1 e-2) ext-0)))))))))))) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-1 1 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_FC arg-1 e-6 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (CoreC-45TTC-u--toBuf_TTC_Name arg-1 e-7 ext-0)))))))))))) ((2) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-1 2 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_FC arg-1 e-9 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45TTC-u--toBuf_TTC_Name arg-1 e-10 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (CoreC-45TTC-u--toBuf_TTC_C-40CExpC-32C-36varsC-41 (cons e-10 arg-0) arg-1 e-11 ext-0))))))))))))))))) ((3) (let ((e-13 (vector-ref sc0 1))) (let ((e-14 (vector-ref sc0 2))) (let ((e-15 (vector-ref sc0 3))) (let ((e-16 (vector-ref sc0 4))) (let ((e-17 (vector-ref sc0 5))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-1 3 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_FC arg-1 e-13 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45TTC-u--toBuf_TTC_Name arg-1 e-14 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Bool arg-1 e-15 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-28 (CoreC-45TTC-u--toBuf_TTC_C-40CExpC-32C-36varsC-41 arg-0 arg-1 e-16 ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (CoreC-45TTC-u--toBuf_TTC_C-40CExpC-32C-36varsC-41 (cons e-14 arg-0) arg-1 e-17 ext-0))))))))))))))))))))))))))) ((4) (let ((e-19 (vector-ref sc0 1))) (let ((e-20 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 3))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-1 4 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_FC arg-1 e-19 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45TTC-u--toBuf_TTC_C-40CExpC-32C-36varsC-41 arg-0 arg-1 e-20 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_C-40CExpC-32C-36varsC-41 arg-0 arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_C-40CExpC-32C-36varsC-41 arg-0 arg-10258 eta-0)))) arg-1 e-21 ext-0))))))))))))))))) ((5) (let ((e-23 (vector-ref sc0 1))) (let ((e-24 (vector-ref sc0 2))) (let ((e-25 (vector-ref sc0 3))) (let ((e-26 (vector-ref sc0 4))) (let ((e-27 (vector-ref sc0 5))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-1 5 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_FC arg-1 e-23 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45TTC-u--toBuf_TTC_Name arg-1 e-24 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 (CoreC-45TTC-u--toBuf_TTC_ConInfo arg-1 e-25 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-28 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10258 eta-0)))) arg-1 e-26 ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_C-40CExpC-32C-36varsC-41 arg-0 arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_C-40CExpC-32C-36varsC-41 arg-0 arg-10258 eta-0)))) arg-1 e-27 ext-0))))))))))))))))))))))))))) ((6) (let ((e-29 (vector-ref sc0 1))) (let ((e-30 (vector-ref sc0 2))) (let ((e-31 (vector-ref sc0 3))) (let ((e-32 (vector-ref sc0 4))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-1 6 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_FC arg-1 e-30 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-1 e-29) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 ((CoreC-45TTC-u--toBuf_TTC_C-40PrimFnC-32C-36nC-41 e-29 arg-1 e-31) ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-40VectC-32C-36nC-41C-32C-36aC-41 e-29 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_C-40CExpC-32C-36varsC-41 arg-0 arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_C-40CExpC-32C-36varsC-41 arg-0 arg-10258 eta-0)))) arg-1 e-32 ext-0)))))))))))))))))))))) ((7) (let ((e-34 (vector-ref sc0 1))) (let ((e-35 (vector-ref sc0 2))) (let ((e-36 (vector-ref sc0 3))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-1 7 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_FC arg-1 e-34 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45TTC-u--toBuf_TTC_Name arg-1 e-35 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_C-40CExpC-32C-36varsC-41 arg-0 arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_C-40CExpC-32C-36varsC-41 arg-0 arg-10258 eta-0)))) arg-1 e-36 ext-0))))))))))))))))) ((8) (let ((e-38 (vector-ref sc0 1))) (let ((e-39 (vector-ref sc0 2))) (let ((e-40 (vector-ref sc0 3))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-1 8 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_FC arg-1 e-38 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45TTC-u--toBuf_TTC_LazyReason arg-1 e-39 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (CoreC-45TTC-u--toBuf_TTC_C-40CExpC-32C-36varsC-41 arg-0 arg-1 e-40 ext-0))))))))))))))))) ((9) (let ((e-42 (vector-ref sc0 1))) (let ((e-43 (vector-ref sc0 2))) (let ((e-44 (vector-ref sc0 3))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-1 9 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_FC arg-1 e-42 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45TTC-u--toBuf_TTC_LazyReason arg-1 e-43 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (CoreC-45TTC-u--toBuf_TTC_C-40CExpC-32C-36varsC-41 arg-0 arg-1 e-44 ext-0))))))))))))))))) ((10) (let ((e-46 (vector-ref sc0 1))) (let ((e-47 (vector-ref sc0 2))) (let ((e-48 (vector-ref sc0 3))) (let ((e-49 (vector-ref sc0 4))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-1 10 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_FC arg-1 e-46 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45TTC-u--toBuf_TTC_C-40CExpC-32C-36varsC-41 arg-0 arg-1 e-47 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_C-40CConAltC-32C-36varsC-41 arg-0 arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_C-40CConAltC-32C-36varsC-41 arg-0 arg-10258 eta-0)))) arg-1 e-48 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_C-40CExpC-32C-36varsC-41 arg-0 arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_C-40CExpC-32C-36varsC-41 arg-0 arg-10258 eta-0)))) arg-1 e-49 ext-0)))))))))))))))))))))) ((11) (let ((e-51 (vector-ref sc0 1))) (let ((e-52 (vector-ref sc0 2))) (let ((e-53 (vector-ref sc0 3))) (let ((e-54 (vector-ref sc0 4))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-1 11 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_FC arg-1 e-51 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45TTC-u--toBuf_TTC_C-40CExpC-32C-36varsC-41 arg-0 arg-1 e-52 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_C-40CConstAltC-32C-36varsC-41 arg-0 arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_C-40CConstAltC-32C-36varsC-41 arg-0 arg-10258 eta-0)))) arg-1 e-53 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_C-40CExpC-32C-36varsC-41 arg-0 arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_C-40CExpC-32C-36varsC-41 arg-0 arg-10258 eta-0)))) arg-1 e-54 ext-0)))))))))))))))))))))) ((12) (let ((e-56 (vector-ref sc0 1))) (let ((e-57 (vector-ref sc0 2))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-1 12 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_FC arg-1 e-56 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (CoreC-45TTC-u--toBuf_TTC_Constant arg-1 e-57 ext-0)))))))))))) ((13) (let ((e-59 (vector-ref sc0 1))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-1 13 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (CoreC-45TTC-u--toBuf_TTC_FC arg-1 e-59 ext-0))))))) (else (let ((e-61 (vector-ref sc0 1))) (let ((e-62 (vector-ref sc0 2))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-1 14 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_FC arg-1 e-61 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-1 e-62) ext-0)))))))))))))))) -(define CoreC-45TTC-u--toBuf_TTC_C-40CConstAltC-32C-36varsC-41 (lambda (arg-0 arg-1 arg-2 ext-0) (let ((sc0 arg-2)) (let ((e-1 (car sc0))) (let ((e-2 (cdr sc0))) (let ((act-24 (CoreC-45TTC-u--toBuf_TTC_Constant arg-1 e-1 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (CoreC-45TTC-u--toBuf_TTC_C-40CExpC-32C-36varsC-41 arg-0 arg-1 e-2 ext-0)))))))))) -(define CoreC-45TTC-u--toBuf_TTC_C-40CConAltC-32C-36varsC-41 (lambda (arg-0 arg-1 arg-2 ext-0) (let ((sc0 arg-2)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((act-24 (CoreC-45TTC-u--toBuf_TTC_Name arg-1 e-1 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_ConInfo arg-1 e-2 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (vector 0 e-7))) (else (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10258 eta-0)))) arg-1 e-3 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-8 (vector-ref sc3 1))) (vector 0 e-8))) (else (let ((act-27 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_Name arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10258 eta-0)))) arg-1 e-4 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (vector 0 e-9))) (else (CoreC-45TTC-u--toBuf_TTC_C-40CExpC-32C-36varsC-41 (PreludeC-45TypesC-45List-C-43C-43 e-4 arg-0) arg-1 e-5 ext-0))))))))))))))))))))))))) -(define CoreC-45TTC-u--toBuf_TTC_C-40BinderC-32C-40TermC-32C-36varsC-41C-41 (lambda (arg-0 arg-1 arg-2 ext-0) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-1 0 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((act-25 ((CoreC-45TTC-u--toBuf_TTC_RigCount arg-1 e-2) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((act-26 (CoreC-45TTC-u--toBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 arg-0 arg-10255 arg-10257))) (lambda (arg-10258) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 arg-0 arg-10258 eta-0)))) arg-1 e-3 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else ((CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 arg-0 arg-1 e-4) ext-0))))))))))))))))) ((1) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-1 1 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((CoreC-45TTC-u--toBuf_TTC_RigCount arg-1 e-7) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 arg-0 arg-1 e-8) ext-0)))))))))))) ((2) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 4))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-1 2 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((CoreC-45TTC-u--toBuf_TTC_RigCount arg-1 e-12) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45TTC-u--toBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 arg-0 arg-10255 arg-10257))) (lambda (arg-10258) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 arg-0 arg-10258 eta-0)))) arg-1 e-13 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 arg-0 arg-1 e-14) ext-0))))))))))))))))) ((3) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-1 3 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((CoreC-45TTC-u--toBuf_TTC_RigCount arg-1 e-17) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45TTC-u--toBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 arg-0 arg-10255 arg-10257))) (lambda (arg-10258) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 arg-0 arg-10258 eta-0)))) arg-1 e-18 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 arg-0 arg-1 e-19) ext-0))))))))))))))))) ((4) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-1 4 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((CoreC-45TTC-u--toBuf_TTC_RigCount arg-1 e-22) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 arg-0 arg-1 e-23) ext-0)))))))))))) (else (let ((e-27 (vector-ref sc0 2))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-1 5 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else ((CoreC-45TTC-u--toBuf_TTC_RigCount arg-1 e-27) ext-0))))))))))) -(define CoreC-45TTC-u--toBuf_TTC_C-40C-40EnvC-32TermC-41C-32C-36varsC-41 (lambda (arg-0 arg-1 arg-2 ext-0) (let ((sc0 arg-0)) (if (null? sc0) (let ((sc1 arg-2)) (vector 1 (vector 0 ))) (let ((e-3 (cdr sc0))) (let ((sc1 arg-2)) (let ((e-8 (car sc1))) (let ((e-9 (cdr sc1))) (let ((act-24 (CoreC-45TTC-u--toBuf_TTC_C-40BinderC-32C-40TermC-32C-36varsC-41C-41 e-3 arg-1 e-8 ext-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (CoreC-45TTC-u--toBuf_TTC_C-40C-40EnvC-32TermC-41C-32C-36varsC-41 e-3 arg-1 e-9 ext-0))))))))))))) -(define CoreC-45TTC-u--fromBuf_TTC_Visibility (lambda (arg-0 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-getTag arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (vector 1 (vector 0 ))) ((equal? sc1 1) (vector 1 (vector 1 ))) ((equal? sc1 2) (vector 1 (vector 2 )))(else (LibrariesC-45UtilsC-45Binary-corrupt "Visibility" ext-0))))))))))) -(define CoreC-45TTC-u--fromBuf_TTC_UseSide (lambda (arg-0 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-getTag arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (vector 1 (vector 0 ))) ((equal? sc1 1) (vector 1 (vector 1 )))(else (LibrariesC-45UtilsC-45Binary-corrupt "UseSide" ext-0))))))))))) -(define CoreC-45TTC-u--fromBuf_TTC_TypeFlags (lambda (arg-0 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Bool arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Bool arg-0 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 (cons e-5 e-6)))))))))))))) -(define CoreC-45TTC-u--fromBuf_TTC_Transform (lambda (arg-0 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_Name arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10258 eta-0)))) arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_Name arg-0 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (CoreC-45TTC-u--fromBuf_TTC_C-40C-40EnvC-32TermC-41C-32C-36varsC-41 e-5 arg-0 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 e-5 arg-0 ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 e-5 arg-0 ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (vector 1 (vector 0 e-5 e-6 e-7 e-8 e-9))))))))))))))))))))))))))))) -(define CoreC-45TTC-u--fromBuf_TTC_Totality (lambda (arg-0 ext-0) (let ((act-24 (CoreC-45TTC-u--fromBuf_TTC_Terminating arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_Covering arg-0 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 (cons e-5 e-6)))))))))))))) -(define CoreC-45TTC-u--fromBuf_TTC_TotalReq (lambda (arg-0 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-getTag arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (vector 1 (vector 0 ))) ((equal? sc1 1) (vector 1 (vector 1 ))) ((equal? sc1 2) (vector 1 (vector 2 )))(else (LibrariesC-45UtilsC-45Binary-corrupt "TotalReq" ext-0))))))))))) -(define CoreC-45TTC-u--fromBuf_TTC_Terminating (lambda (arg-0 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-getTag arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (vector 1 (vector 0 ))) ((equal? sc1 1) (vector 1 (vector 1 ))) ((equal? sc1 2) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_PartialReason arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 2 e-6))))))))(else (LibrariesC-45UtilsC-45Binary-corrupt "Terminating" ext-0))))))))))) -(define CoreC-45TTC-u--fromBuf_TTC_SizeChange (lambda (arg-0 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-getTag arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (vector 1 (vector 0 ))) ((equal? sc1 1) (vector 1 (vector 1 ))) ((equal? sc1 2) (vector 1 (vector 2 )))(else (LibrariesC-45UtilsC-45Binary-corrupt "SizeChange" ext-0))))))))))) -(define CoreC-45TTC-u--fromBuf_TTC_SCCall (lambda (arg-0 ext-0) (let ((act-24 (CoreC-45TTC-u--fromBuf_TTC_Name arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-10256) (lambda (arg-10258) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10259) (lambda (arg-10260) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-10259 arg-10260))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-10259 eta-2)))) (cons (lambda (arg-10259) (lambda (arg-10260) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_SizeChange arg-10259 arg-10260 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_SizeChange arg-10259 eta-2))))) arg-10256 arg-10258 eta-1)))) (lambda (arg-10258) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10259) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-10256 arg-10259))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-10259 eta-2)))) (cons (lambda (arg-10256) (lambda (arg-10259) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_SizeChange arg-10256 arg-10259 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_SizeChange arg-10259 eta-2))))) arg-10258 eta-1)))) arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10259) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-10256 arg-10259))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-10259 eta-2)))) (cons (lambda (arg-10256) (lambda (arg-10259) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_SizeChange arg-10256 arg-10259 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_SizeChange arg-10259 eta-2))))) arg-10255 arg-10257 eta-1)))) (lambda (arg-10259) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10255) (lambda (arg-10257) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-10255 arg-10257))) (lambda (arg-10260) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-10260 eta-2)))) (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_SizeChange arg-10255 arg-10257 eta-2)))) (lambda (arg-10260) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_SizeChange arg-10260 eta-2))))) arg-10259 eta-1)))) arg-10258 eta-0)))) arg-0 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 (cons e-5 e-6)))))))))))))) -(define CoreC-45TTC-u--fromBuf_TTC_RigCount (lambda (arg-0 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-getTag arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (vector 1 (AlgebraC-45Semiring-erased (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))))) ((equal? sc1 1) (vector 1 (AlgebraC-45Semiring-linear (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))))) ((equal? sc1 2) (vector 1 (AlgebraC-45ZeroOneOmega-u--top_Top_ZeroOneOmega)))(else (LibrariesC-45UtilsC-45Binary-corrupt "RigCount" ext-0))))))))))) -(define CoreC-45TTC-u--fromBuf_TTC_RewriteNames (lambda (arg-0 ext-0) (let ((act-24 (CoreC-45TTC-u--fromBuf_TTC_Name arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_Name arg-0 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 (cons e-5 e-6)))))))))))))) -(define CoreC-45TTC-u--fromBuf_TTC_PrimNames (lambda (arg-0 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_Name arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10258 eta-0)))) arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_Name arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10258 eta-0)))) arg-0 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_Name arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10258 eta-0)))) arg-0 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_Name arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10258 eta-0)))) arg-0 ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (vector 1 (vector 0 e-5 e-6 e-7 e-8)))))))))))))))))))))))) -(define CoreC-45TTC-u--fromBuf_TTC_PartialReason (lambda (arg-0 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-getTag arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (vector 1 (vector 0 ))) ((equal? sc1 1) (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_Name arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10258 eta-0)))) arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 1 e-6)))))))) ((equal? sc1 2) (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_Name arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10258 eta-0)))) arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 2 e-6))))))))(else (LibrariesC-45UtilsC-45Binary-corrupt "PartialReason" ext-0))))))))))) -(define CoreC-45TTC-u--fromBuf_TTC_PairNames (lambda (arg-0 ext-0) (let ((act-24 (CoreC-45TTC-u--fromBuf_TTC_Name arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_Name arg-0 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (CoreC-45TTC-u--fromBuf_TTC_Name arg-0 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (vector 1 (vector 0 e-5 e-6 e-7))))))))))))))))))) -(define CoreC-45TTC-u--fromBuf_TTC_PMDefInfo (lambda (arg-0 ext-0) (let ((act-24 (CoreC-45TTC-u--fromBuf_TTC_HoleInfo arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Bool arg-0 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 (cons e-5 e-6)))))))))))))) -(define CoreC-45TTC-u--fromBuf_TTC_Namespace (lambda (ext-0 ext-1) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc0 eta-0)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (CoreC-45NameC-45Namespace-unsafeFoldNamespace e-5))))))) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-10255 arg-10257))) (lambda (arg-10258) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-10258 eta-1)))) ext-0 eta-0)) ext-1))) -(define CoreC-45TTC-u--fromBuf_TTC_NameType (lambda (arg-0 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-getTag arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (vector 1 (vector 0 ))) ((equal? sc1 1) (vector 1 (vector 1 ))) ((equal? sc1 2) (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 2 e-6 e-7))))))))))))) ((equal? sc1 3) (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 3 e-6 e-7)))))))))))))(else (LibrariesC-45UtilsC-45Binary-corrupt "NameType" ext-0))))))))))) -(define CoreC-45TTC-u--fromBuf_TTC_Name (lambda (arg-0 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-getTag arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_Namespace arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (CoreC-45TTC-u--fromBuf_TTC_Name arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 0 e-6 e-7))))))))))))) ((equal? sc1 1) (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 1 e-6)))))))) ((equal? sc1 2) (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 2 e-6 e-7))))))))))))) ((equal? sc1 3) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_Name arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 3 e-6 e-7))))))))))))) ((equal? sc1 4) (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (CoreC-45TTC-u--fromBuf_TTC_Name arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 4 e-6 e-7))))))))))))) ((equal? sc1 5) (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 5 e-6)))))))) ((equal? sc1 6) (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10258 eta-0)))) (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10258 eta-0))))) arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (CoreC-45TTC-u--fromBuf_TTC_Name arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 6 e-6 e-7))))))))))))) ((equal? sc1 7) (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 7 e-6 e-7))))))))))))) ((equal? sc1 8) (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 8 e-6 e-7)))))))))))))(else (LibrariesC-45UtilsC-45Binary-corrupt "Name" ext-0))))))))))) -(define CoreC-45TTC-u--fromBuf_TTC_ModuleIdent (lambda (ext-0 ext-1) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc0 eta-0)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (CoreC-45NameC-45Namespace-unsafeFoldModuleIdent e-5))))))) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-10255 arg-10257))) (lambda (arg-10258) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-10258 eta-1)))) ext-0 eta-0)) ext-1))) -(define CoreC-45TTC-u--fromBuf_TTC_LazyReason (lambda (arg-0 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-getTag arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (vector 1 (vector 0 ))) ((equal? sc1 1) (vector 1 (vector 1 ))) ((equal? sc1 2) (vector 1 (vector 2 )))(else (LibrariesC-45UtilsC-45Binary-corrupt "LazyReason" ext-0))))))))))) -(define CoreC-45TTC-u--fromBuf_TTC_HoleInfo (lambda (arg-0 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-getTag arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (vector 1 (vector 0 ))) ((equal? sc1 1) (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 1 e-6))))))))(else (LibrariesC-45UtilsC-45Binary-corrupt "HoleInfo" ext-0))))))))))) -(define CoreC-45TTC-u--fromBuf_TTC_GlobalDef (lambda (arg-0 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_CDef arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_CDef arg-10258 eta-0)))) arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10256) (lambda (arg-10258) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10259) (lambda (arg-10260) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_Name arg-10259 arg-10260 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10259 eta-2)))) (cons (lambda (arg-10259) (lambda (arg-10260) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Bool arg-10259 arg-10260 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Bool arg-10259 eta-2))))) arg-10256 arg-10258 eta-1)))) (lambda (arg-10258) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10259) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_Name arg-10256 arg-10259 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10259 eta-2)))) (cons (lambda (arg-10256) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Bool arg-10256 arg-10259 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Bool arg-10259 eta-2))))) arg-10258 eta-1)))) arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10259) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_Name arg-10256 arg-10259 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10259 eta-2)))) (cons (lambda (arg-10256) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Bool arg-10256 arg-10259 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Bool arg-10259 eta-2))))) arg-10255 arg-10257 eta-1)))) (lambda (arg-10259) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_Name arg-10255 arg-10257 eta-2)))) (lambda (arg-10260) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10260 eta-2)))) (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Bool arg-10255 arg-10257 eta-2)))) (lambda (arg-10260) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Bool arg-10260 eta-2))))) arg-10259 eta-1)))) arg-10258 eta-0)))) arg-0 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((u--refsR (PreludeC-45Types-u--map_Functor_Maybe (lambda (eta-0) (LibrariesC-45DataC-45NameMap-fromList eta-0)) e-6))) (let ((act-26 (CoreC-45TTC-u--fromBuf_TTC_FC arg-0 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (CoreC-45TTC-u--fromBuf_TTC_RigCount arg-0 ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (CoreC-45TTC-u--fromBuf_TTC_Name arg-0 ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-29 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10256) (lambda (arg-10258) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10259) (lambda (arg-10260) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_Name arg-10259 arg-10260 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10259 eta-2)))) (cons (lambda (arg-10259) (lambda (arg-10260) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Bool arg-10259 arg-10260 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Bool arg-10259 eta-2))))) arg-10256 arg-10258 eta-1)))) (lambda (arg-10258) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10259) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_Name arg-10256 arg-10259 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10259 eta-2)))) (cons (lambda (arg-10256) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Bool arg-10256 arg-10259 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Bool arg-10259 eta-2))))) arg-10258 eta-1)))) arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10259) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_Name arg-10256 arg-10259 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10259 eta-2)))) (cons (lambda (arg-10256) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Bool arg-10256 arg-10259 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Bool arg-10259 eta-2))))) arg-10255 arg-10257 eta-1)))) (lambda (arg-10259) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_Name arg-10255 arg-10257 eta-2)))) (lambda (arg-10260) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10260 eta-2)))) (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Bool arg-10255 arg-10257 eta-2)))) (lambda (arg-10260) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Bool arg-10260 eta-2))))) arg-10259 eta-1)))) arg-10258 eta-0)))) arg-0 ext-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc5 1))) (let ((u--refs (PreludeC-45Types-u--map_Functor_Maybe (lambda (eta-0) (LibrariesC-45DataC-45NameMap-fromList eta-0)) e-10))) (let ((act-30 (CoreC-45TTC-u--fromBuf_TTC_Def arg-0 ext-0))) (let ((sc6 act-30)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc6 1))) (CoreC-45TTC-case--fromBuf-9356 arg-0 e-5 e-6 u--refsR e-7 e-8 e-9 e-10 u--refs e-11 (CoreC-45Name-isUserName e-9) ext-0)))))))))))))))))))))))))))))))))))))))) -(define CoreC-45TTC-u--fromBuf_TTC_FC (lambda (arg-0 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-getTag arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10258 eta-0)))) (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10258 eta-0))))) arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10258 eta-0)))) (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10258 eta-0))))) arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 0 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 1) (vector 1 (vector 1 )))(else (LibrariesC-45UtilsC-45Binary-corrupt "FC" ext-0))))))))))) -(define CoreC-45TTC-u--fromBuf_TTC_DefFlag (lambda (arg-0 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-getTag arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 2) (vector 1 (vector 0 ))) ((equal? sc1 3) (vector 1 (vector 1 ))) ((equal? sc1 4) (vector 1 (vector 2 ))) ((equal? sc1 5) (vector 1 (vector 3 ))) ((equal? sc1 6) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_TotalReq arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 4 e-6)))))))) ((equal? sc1 7) (vector 1 (vector 5 ))) ((equal? sc1 8) (vector 1 (vector 6 ))) ((equal? sc1 9) (vector 1 (vector 7 '()))) ((equal? sc1 10) (vector 1 (vector 8 ))) ((equal? sc1 11) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_ConInfo arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 9 e-6))))))))(else (LibrariesC-45UtilsC-45Binary-corrupt "DefFlag" ext-0))))))))))) -(define CoreC-45TTC-u--fromBuf_TTC_Def (lambda (arg-0 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-getTag arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (vector 1 (vector 0 ))) ((equal? sc1 1) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_PMDefInfo arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_Name arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10258 eta-0)))) arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (CoreC-45TTC-u--fromBuf_TTC_C-40CaseTreeC-32C-36varsC-41 e-7 arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-40DPairC-32C-36aC-41C-32C-36pC-41 (cons (cons (lambda (arg-10256) (lambda (arg-10258) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10259) (lambda (arg-10260) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_Name arg-10259 arg-10260 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10259 eta-2)))) arg-10256 arg-10258 eta-1)))) (lambda (arg-10258) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10256) (lambda (arg-10259) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_Name arg-10256 arg-10259 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10259 eta-2)))) arg-10258 eta-1)))) (lambda (u--y) (cons (lambda (arg-10256) (lambda (arg-10258) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10259) (lambda (arg-10260) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_C-40C-40EnvC-32TermC-41C-32C-36varsC-41 u--y arg-10259 arg-10260 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_C-40C-40EnvC-32TermC-41C-32C-36varsC-41 u--y arg-10259 eta-2)))) (cons (lambda (arg-10259) (lambda (arg-10260) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10261) (lambda (arg-10262) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 u--y arg-10261 arg-10262))) (lambda (arg-10261) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 u--y arg-10261 eta-3)))) (cons (lambda (arg-10261) (lambda (arg-10262) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 u--y arg-10261 arg-10262))) (lambda (arg-10261) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 u--y arg-10261 eta-3))))) arg-10259 arg-10260 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10260) (lambda (arg-10261) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 u--y arg-10260 arg-10261))) (lambda (arg-10260) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 u--y arg-10260 eta-3)))) (cons (lambda (arg-10260) (lambda (arg-10261) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 u--y arg-10260 arg-10261))) (lambda (arg-10260) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 u--y arg-10260 eta-3))))) arg-10259 eta-2))))) arg-10256 arg-10258 eta-1)))) (lambda (arg-10258) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10259) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_C-40C-40EnvC-32TermC-41C-32C-36varsC-41 u--y arg-10256 arg-10259 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_C-40C-40EnvC-32TermC-41C-32C-36varsC-41 u--y arg-10259 eta-2)))) (cons (lambda (arg-10256) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10260) (lambda (arg-10261) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 u--y arg-10260 arg-10261))) (lambda (arg-10260) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 u--y arg-10260 eta-3)))) (cons (lambda (arg-10260) (lambda (arg-10261) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 u--y arg-10260 arg-10261))) (lambda (arg-10260) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 u--y arg-10260 eta-3))))) arg-10256 arg-10259 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10260) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 u--y arg-10256 arg-10260))) (lambda (arg-10260) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 u--y arg-10260 eta-3)))) (cons (lambda (arg-10256) (lambda (arg-10260) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 u--y arg-10256 arg-10260))) (lambda (arg-10260) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 u--y arg-10260 eta-3))))) arg-10259 eta-2))))) arg-10258 eta-1)))))) arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-40DPairC-32C-36aC-41C-32C-36pC-41 (cons (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10256) (lambda (arg-10259) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_Name arg-10256 arg-10259 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10259 eta-2)))) arg-10255 arg-10257 eta-1)))) (lambda (arg-10259) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_Name arg-10255 arg-10257 eta-2)))) (lambda (arg-10260) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10260 eta-2)))) arg-10259 eta-1)))) (lambda (u--y) (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10259) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_C-40C-40EnvC-32TermC-41C-32C-36varsC-41 u--y arg-10256 arg-10259 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_C-40C-40EnvC-32TermC-41C-32C-36varsC-41 u--y arg-10259 eta-2)))) (cons (lambda (arg-10256) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10260) (lambda (arg-10261) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 u--y arg-10260 arg-10261))) (lambda (arg-10260) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 u--y arg-10260 eta-3)))) (cons (lambda (arg-10260) (lambda (arg-10261) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 u--y arg-10260 arg-10261))) (lambda (arg-10260) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 u--y arg-10260 eta-3))))) arg-10256 arg-10259 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10260) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 u--y arg-10256 arg-10260))) (lambda (arg-10260) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 u--y arg-10260 eta-3)))) (cons (lambda (arg-10256) (lambda (arg-10260) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 u--y arg-10256 arg-10260))) (lambda (arg-10260) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 u--y arg-10260 eta-3))))) arg-10259 eta-2))))) arg-10255 arg-10257 eta-1)))) (lambda (arg-10259) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_C-40C-40EnvC-32TermC-41C-32C-36varsC-41 u--y arg-10255 arg-10257 eta-2)))) (lambda (arg-10260) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_C-40C-40EnvC-32TermC-41C-32C-36varsC-41 u--y arg-10260 eta-2)))) (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10260) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 u--y arg-10256 arg-10260))) (lambda (arg-10260) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 u--y arg-10260 eta-3)))) (cons (lambda (arg-10256) (lambda (arg-10260) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 u--y arg-10256 arg-10260))) (lambda (arg-10260) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 u--y arg-10260 eta-3))))) arg-10255 arg-10257 eta-2)))) (lambda (arg-10260) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10255) (lambda (arg-10257) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 u--y arg-10255 arg-10257))) (lambda (arg-10261) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 u--y arg-10261 eta-3)))) (cons (lambda (arg-10255) (lambda (arg-10257) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 u--y arg-10255 arg-10257))) (lambda (arg-10261) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 u--y arg-10261 eta-3))))) arg-10260 eta-2))))) arg-10259 eta-1)))))) arg-10258 eta-0)))) arg-0 ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (vector 1 (vector 1 e-6 e-7 e-8 (vector 2 "") e-9))))))))))))))))))))))) ((equal? sc1 2) (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 2 e-6)))))))) ((equal? sc1 3) (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-10255 arg-10257))) (lambda (arg-10258) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-10258 eta-0)))) arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 3 e-6 e-7))))))))))))) ((equal? sc1 4) (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10258) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Bool arg-10256 arg-10258 eta-1)))) (lambda (arg-10258) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Bool arg-10258 eta-1)))) (cons (lambda (arg-10256) (lambda (arg-10258) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-10256 arg-10258))) (lambda (arg-10258) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-10258 eta-1))))) arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Bool arg-10255 arg-10257 eta-1)))) (lambda (arg-10259) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Bool arg-10259 eta-1)))) (cons (lambda (arg-10255) (lambda (arg-10257) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-10255 arg-10257))) (lambda (arg-10259) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-10259 eta-1))))) arg-10258 eta-0)))) arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 5 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 5) (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-10255 arg-10257))) (lambda (arg-10258) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-10258 eta-0)))) arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-10255 arg-10257))) (lambda (arg-10258) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-10258 eta-0)))) arg-0 ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 (CoreC-45TTC-u--fromBuf_TTC_TypeFlags arg-0 ext-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-30 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_Name arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10258 eta-0)))) arg-0 ext-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-31 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_Name arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10258 eta-0)))) arg-0 ext-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-32 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10256) (lambda (arg-10258) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-10256 arg-10258))) (lambda (arg-10258) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-10258 eta-1)))) arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-10255 arg-10257))) (lambda (arg-10259) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-10259 eta-1)))) arg-10258 eta-0)))) arg-0 ext-0))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref sc9 1))) (vector 1 (vector 6 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13))))))))))))))))))))))))))))))))))))))))))) ((equal? sc1 6) (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Bool arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 7 e-6 (CoreC-45Context-holeInit e-7)))))))))))))) ((equal? sc1 7) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_RigCount arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (CoreC-45TTC-u--fromBuf_TTC_Name arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 8 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 8) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10258 eta-0)))) arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 9 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 9) (vector 1 (vector 10 ))) ((equal? sc1 10) (vector 1 (vector 11 )))(else (LibrariesC-45UtilsC-45Binary-corrupt "Def" ext-0))))))))))) -(define CoreC-45TTC-u--fromBuf_TTC_Covering (lambda (arg-0 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-getTag arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (vector 1 (vector 0 ))) ((equal? sc1 1) (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-10255 arg-10257))) (lambda (arg-10258) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-10258 eta-0)))) arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 1 e-6)))))))) ((equal? sc1 2) (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_Name arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10258 eta-0)))) arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 2 e-6))))))))(else (LibrariesC-45UtilsC-45Binary-corrupt "Covering" ext-0))))))))))) -(define CoreC-45TTC-u--fromBuf_TTC_Constant (lambda (arg-0 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-getTag arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 0 e-6)))))))) ((equal? sc1 1) (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Integer arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 5 e-6)))))))) ((equal? sc1 2) (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 6 e-6)))))))) ((equal? sc1 3) (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 7 e-6)))))))) ((equal? sc1 4) (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 8 e-6)))))))) ((equal? sc1 5) (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Integer arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 9 e-6)))))))) ((equal? sc1 6) (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 10 e-6)))))))) ((equal? sc1 7) (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Char arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 11 e-6)))))))) ((equal? sc1 8) (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Double arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 12 e-6)))))))) ((equal? sc1 9) (vector 1 (vector 13 ))) ((equal? sc1 10) (vector 1 (vector 14 ))) ((equal? sc1 11) (vector 1 (vector 19 ))) ((equal? sc1 12) (vector 1 (vector 20 ))) ((equal? sc1 13) (vector 1 (vector 21 ))) ((equal? sc1 14) (vector 1 (vector 22 ))) ((equal? sc1 15) (vector 1 (vector 23 ))) ((equal? sc1 16) (vector 1 (vector 24 ))) ((equal? sc1 17) (vector 1 (vector 25 ))) ((equal? sc1 18) (vector 1 (vector 26 ))) ((equal? sc1 19) (vector 1 (vector 27 ))) ((equal? sc1 20) (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Integer arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 3 e-6)))))))) ((equal? sc1 21) (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Integer arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 4 e-6)))))))) ((equal? sc1 22) (vector 1 (vector 17 ))) ((equal? sc1 23) (vector 1 (vector 18 ))) ((equal? sc1 24) (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Integer arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 1 e-6)))))))) ((equal? sc1 25) (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Integer arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 2 e-6)))))))) ((equal? sc1 26) (vector 1 (vector 15 ))) ((equal? sc1 27) (vector 1 (vector 16 )))(else (LibrariesC-45UtilsC-45Binary-corrupt "Constant" ext-0))))))))))) -(define CoreC-45TTC-u--fromBuf_TTC_ConInfo (lambda (arg-0 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-getTag arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (vector 1 (vector 0 ))) ((equal? sc1 1) (vector 1 (vector 1 ))) ((equal? sc1 2) (vector 1 (vector 2 ))) ((equal? sc1 3) (vector 1 (vector 3 )))(else (LibrariesC-45UtilsC-45Binary-corrupt "ConInfo" ext-0))))))))))) -(define CoreC-45TTC-u--fromBuf_TTC_CG (lambda (arg-0 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-getTag arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (vector 1 (vector 0 ))) ((equal? sc1 2) (vector 1 (vector 1 ))) ((equal? sc1 3) (vector 1 (vector 2 ))) ((equal? sc1 4) (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 6 e-6)))))))) ((equal? sc1 5) (vector 1 (vector 3 ))) ((equal? sc1 6) (vector 1 (vector 4 ))) ((equal? sc1 7) (vector 1 (vector 5 )))(else (LibrariesC-45UtilsC-45Binary-corrupt "CG" ext-0))))))))))) -(define CoreC-45TTC-u--fromBuf_TTC_CFType (lambda (arg-0 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-getTag arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (vector 1 (vector 0 ))) ((equal? sc1 1) (vector 1 (vector 1 ))) ((equal? sc1 2) (vector 1 (vector 2 ))) ((equal? sc1 3) (vector 1 (vector 3 ))) ((equal? sc1 4) (vector 1 (vector 4 ))) ((equal? sc1 5) (vector 1 (vector 5 ))) ((equal? sc1 6) (vector 1 (vector 6 ))) ((equal? sc1 7) (vector 1 (vector 7 ))) ((equal? sc1 8) (vector 1 (vector 8 ))) ((equal? sc1 9) (vector 1 (vector 9 ))) ((equal? sc1 10) (vector 1 (vector 12 ))) ((equal? sc1 11) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_CFType arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (CoreC-45TTC-u--fromBuf_TTC_CFType arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 13 e-6 e-7))))))))))))) ((equal? sc1 12) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_CFType arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 14 e-6)))))))) ((equal? sc1 13) (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10258) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-10256 arg-10258))) (lambda (arg-10258) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-10258 eta-1)))) (cons (lambda (arg-10256) (lambda (arg-10258) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_CFType arg-10256 arg-10258 eta-1)))) (lambda (arg-10258) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_CFType arg-10258 eta-1))))) arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10255) (lambda (arg-10257) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-10255 arg-10257))) (lambda (arg-10259) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-10259 eta-1)))) (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_CFType arg-10255 arg-10257 eta-1)))) (lambda (arg-10259) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_CFType arg-10259 eta-1))))) arg-10258 eta-0)))) arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 15 e-6 e-7))))))))))))) ((equal? sc1 14) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_Name arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_CFType arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_CFType arg-10258 eta-0)))) arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 16 e-6 e-7))))))))))))) ((equal? sc1 15) (vector 1 (vector 10 ))) ((equal? sc1 16) (vector 1 (vector 11 )))(else (LibrariesC-45UtilsC-45Binary-corrupt "CFType" ext-0))))))))))) -(define CoreC-45TTC-u--fromBuf_TTC_CDef (lambda (arg-0 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-getTag arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_Name arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10258 eta-0)))) arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (CoreC-45TTC-u--fromBuf_TTC_C-40CExpC-32C-36varsC-41 e-6 arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 0 e-6 e-7))))))))))))) ((equal? sc1 1) (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10258 eta-0)))) arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-10255 arg-10257))) (lambda (arg-10258) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-10258 eta-0)))) arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 1 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 2) (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-10255 arg-10257))) (lambda (arg-10258) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-10258 eta-0)))) arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_CFType arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_CFType arg-10258 eta-0)))) arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (CoreC-45TTC-u--fromBuf_TTC_CFType arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 2 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 3) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_C-40CExpC-32C-36varsC-41 '() arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 3 e-6))))))))(else (LibrariesC-45UtilsC-45Binary-corrupt "CDef" ext-0))))))))))) -(define CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 (lambda (arg-0 arg-1 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-getTag arg-1 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Bool arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Bool arg-10258 eta-0)))) arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((PreludeC-45Types-maybe (lambda () (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-corrupt "Term" eta-0))) (lambda () (lambda (eta-0) (lambda (eta-1) (vector 1 eta-0)))) (CoreC-45TTC-getName e-7 arg-0)) ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (vector 1 (vector 0 (CoreC-45FC-emptyFC) e-6 e-7))))))))))))))))) ((equal? sc1 1) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_NameType arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (CoreC-45TTC-u--fromBuf_TTC_Name arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 1 (CoreC-45FC-emptyFC) e-6 e-7))))))))))))) ((equal? sc1 2) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_Name arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 arg-0 arg-10255 arg-10257))) (lambda (arg-10258) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 arg-0 arg-10258 eta-0)))) arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 2 (CoreC-45FC-emptyFC) e-6 0 e-7))))))))))))) ((equal? sc1 3) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_Name arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (CoreC-45TTC-u--fromBuf_TTC_C-40BinderC-32C-40TermC-32C-36varsC-41C-41 arg-0 arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 (cons e-6 arg-0) arg-1 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 3 (CoreC-45FC-emptyFC) e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 4) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 4 (CoreC-45FC-emptyFC) e-6 e-7))))))))))))) ((equal? sc1 5) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (CoreC-45TTC-u--fromBuf_TTC_UseSide arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 5 (CoreC-45FC-emptyFC) e-7 e-6 e-8)))))))))))))))))) ((equal? sc1 6) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_LazyReason arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 6 (CoreC-45FC-emptyFC) e-6 e-7))))))))))))) ((equal? sc1 7) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_LazyReason arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 7 (CoreC-45FC-emptyFC) e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 8) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_LazyReason arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 8 (CoreC-45FC-emptyFC) e-6 e-7))))))))))))) ((equal? sc1 9) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_Constant arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 9 (CoreC-45FC-emptyFC) e-6)))))))) ((equal? sc1 10) (vector 1 (vector 10 (CoreC-45FC-emptyFC) 1))) ((equal? sc1 11) (vector 1 (vector 11 (CoreC-45FC-emptyFC))))(else (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Bool arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Bool arg-10258 eta-0)))) arg-1 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((u--idx (PreludeC-45Types-u--fromInteger_Num_Nat (PreludeC-45Cast-u--cast_Cast_Int_Integer (PreludeC-45Num-u--C-45_Neg_Int e-5 12))))) (let ((bind-0 e-5)) (CoreC-45TTC-case--caseC-32blockC-32inC-32fromBuf-3805 arg-1 arg-0 e-5 bind-0 e-6 u--idx (CoreC-45TTC-getName u--idx arg-0) ext-0)))))))))))))))))) -(define CoreC-45TTC-u--fromBuf_TTC_C-40PrimFnC-32C-36nC-41 (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (cond ((equal? sc0 0) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-corrupt "PrimFn" eta-0)))(else (let ((e-0 (- arg-0 1))) (let ((sc0 e-0)) (cond ((equal? sc0 0) (lambda (eta-0) (CoreC-45TTC-n--12754-5468-u--fromBuf1 arg-1 arg-0 eta-0)))(else (let ((e-1 (- e-0 1))) (let ((sc0 e-1)) (cond ((equal? sc0 0) (lambda (eta-0) (CoreC-45TTC-n--12754-5469-u--fromBuf2 arg-1 arg-0 eta-0)))(else (let ((e-2 (- e-1 1))) (lambda (clam-0) (let ((sc0 e-2)) (cond ((equal? sc0 0) (CoreC-45TTC-n--12754-5470-u--fromBuf3 arg-1 arg-0 clam-0))(else (LibrariesC-45UtilsC-45Binary-corrupt "PrimFn" clam-0))))))))))))))))))) -(define CoreC-45TTC-u--fromBuf_TTC_C-40PiInfoC-32C-36tC-41 (lambda (arg-1 arg-2 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-getTag arg-2 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (vector 1 (vector 0 ))) ((equal? sc1 1) (vector 1 (vector 1 ))) ((equal? sc1 2) (vector 1 (vector 2 ))) ((equal? sc1 3) (let ((act-25 (let ((sc2 arg-1)) (let ((e-2 (cdr sc2))) ((e-2 arg-2) ext-0))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 3 e-6))))))))(else (LibrariesC-45UtilsC-45Binary-corrupt "PiInfo" ext-0))))))))))) -(define CoreC-45TTC-u--fromBuf_TTC_C-40CaseTreeC-32C-36varsC-41 (lambda (arg-0 arg-1 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-getTag arg-1 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_Name arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_C-40CaseAltC-32C-36varsC-41 arg-0 arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_C-40CaseAltC-32C-36varsC-41 arg-0 arg-10258 eta-0)))) arg-1 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 0 e-6 e-7 (vector 10 (CoreC-45FC-emptyFC) 1) e-8)))))))))))))))))) ((equal? sc1 1) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 1 0 e-6)))))))) ((equal? sc1 2) (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 2 e-6)))))))) ((equal? sc1 3) (vector 1 (vector 3 )))(else (LibrariesC-45UtilsC-45Binary-corrupt "CaseTree" ext-0))))))))))) -(define CoreC-45TTC-u--fromBuf_TTC_C-40CaseAltC-32C-36varsC-41 (lambda (arg-0 arg-1 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-getTag arg-1 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_Name arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_Name arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10258 eta-0)))) arg-1 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (CoreC-45TTC-u--fromBuf_TTC_C-40CaseTreeC-32C-36varsC-41 (PreludeC-45TypesC-45List-C-43C-43 e-8 arg-0) arg-1 ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (vector 1 (vector 0 e-6 e-7 e-8 e-9))))))))))))))))))))))) ((equal? sc1 1) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_Name arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (CoreC-45TTC-u--fromBuf_TTC_Name arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (CoreC-45TTC-u--fromBuf_TTC_C-40CaseTreeC-32C-36varsC-41 (cons e-6 (cons e-7 arg-0)) arg-1 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 1 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 2) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_Constant arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (CoreC-45TTC-u--fromBuf_TTC_C-40CaseTreeC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 2 e-6 e-7))))))))))))) ((equal? sc1 3) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_C-40CaseTreeC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 3 e-6))))))))(else (LibrariesC-45UtilsC-45Binary-corrupt "CaseAlt" ext-0))))))))))) -(define CoreC-45TTC-u--fromBuf_TTC_C-40CExpC-32C-36varsC-41 (lambda (arg-0 arg-1 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-getTag arg-1 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_FC arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((bind-0 0)) (CoreC-45TTC-case--caseC-32blockC-32inC-32fromBuf-6543 arg-0 arg-1 bind-0 e-6 e-7 (CoreC-45TTC-getName e-7 arg-0) ext-0))))))))))))) ((equal? sc1 1) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_FC arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (CoreC-45TTC-u--fromBuf_TTC_Name arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 1 e-6 e-7))))))))))))) ((equal? sc1 2) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_FC arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (CoreC-45TTC-u--fromBuf_TTC_Name arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (CoreC-45TTC-u--fromBuf_TTC_C-40CExpC-32C-36varsC-41 (cons e-7 arg-0) arg-1 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 2 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 3) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_FC arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (CoreC-45TTC-u--fromBuf_TTC_Name arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Bool arg-1 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (CoreC-45TTC-u--fromBuf_TTC_C-40CExpC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 (CoreC-45TTC-u--fromBuf_TTC_C-40CExpC-32C-36varsC-41 (cons e-7 arg-0) arg-1 ext-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc6 1))) (vector 1 (vector 3 e-6 e-7 e-8 e-9 e-10)))))))))))))))))))))))))))) ((equal? sc1 4) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_FC arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (CoreC-45TTC-u--fromBuf_TTC_C-40CExpC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_C-40CExpC-32C-36varsC-41 arg-0 arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_C-40CExpC-32C-36varsC-41 arg-0 arg-10258 eta-0)))) arg-1 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 4 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 5) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_FC arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (CoreC-45TTC-u--fromBuf_TTC_Name arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (CoreC-45TTC-u--fromBuf_TTC_ConInfo arg-1 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10258 eta-0)))) arg-1 ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_C-40CExpC-32C-36varsC-41 arg-0 arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_C-40CExpC-32C-36varsC-41 arg-0 arg-10258 eta-0)))) arg-1 ext-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc6 1))) (vector 1 (vector 5 e-6 e-7 e-8 e-9 e-10)))))))))))))))))))))))))))) ((equal? sc1 6) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_FC arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((CoreC-45TTC-u--fromBuf_TTC_C-40PrimFnC-32C-36nC-41 e-7 arg-1) ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 ((LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-40VectC-32C-36nC-41C-32C-36aC-41 e-7 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_C-40CExpC-32C-36varsC-41 arg-0 arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_C-40CExpC-32C-36varsC-41 arg-0 arg-10258 eta-0)))) arg-1) ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (vector 1 (vector 6 e-7 e-6 e-8 e-9))))))))))))))))))))))) ((equal? sc1 7) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_FC arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (CoreC-45TTC-u--fromBuf_TTC_Name arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_C-40CExpC-32C-36varsC-41 arg-0 arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_C-40CExpC-32C-36varsC-41 arg-0 arg-10258 eta-0)))) arg-1 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 7 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 8) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_FC arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (CoreC-45TTC-u--fromBuf_TTC_LazyReason arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (CoreC-45TTC-u--fromBuf_TTC_C-40CExpC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 8 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 9) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_FC arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (CoreC-45TTC-u--fromBuf_TTC_LazyReason arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (CoreC-45TTC-u--fromBuf_TTC_C-40CExpC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 9 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 10) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_FC arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (CoreC-45TTC-u--fromBuf_TTC_C-40CExpC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_C-40CConAltC-32C-36varsC-41 arg-0 arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_C-40CConAltC-32C-36varsC-41 arg-0 arg-10258 eta-0)))) arg-1 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_C-40CExpC-32C-36varsC-41 arg-0 arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_C-40CExpC-32C-36varsC-41 arg-0 arg-10258 eta-0)))) arg-1 ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (vector 1 (vector 10 e-6 e-7 e-8 e-9))))))))))))))))))))))) ((equal? sc1 11) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_FC arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (CoreC-45TTC-u--fromBuf_TTC_C-40CExpC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_C-40CConstAltC-32C-36varsC-41 arg-0 arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_C-40CConstAltC-32C-36varsC-41 arg-0 arg-10258 eta-0)))) arg-1 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_C-40CExpC-32C-36varsC-41 arg-0 arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_C-40CExpC-32C-36varsC-41 arg-0 arg-10258 eta-0)))) arg-1 ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (vector 1 (vector 11 e-6 e-7 e-8 e-9))))))))))))))))))))))) ((equal? sc1 12) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_FC arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (CoreC-45TTC-u--fromBuf_TTC_Constant arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 12 e-6 e-7))))))))))))) ((equal? sc1 13) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_FC arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 13 e-6)))))))) ((equal? sc1 14) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_FC arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 14 e-6 e-7)))))))))))))(else (LibrariesC-45UtilsC-45Binary-corrupt "CExp" ext-0))))))))))) -(define CoreC-45TTC-u--fromBuf_TTC_C-40CConstAltC-32C-36varsC-41 (lambda (arg-0 arg-1 ext-0) (let ((act-24 (CoreC-45TTC-u--fromBuf_TTC_Constant arg-1 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_C-40CExpC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 (cons e-5 e-6)))))))))))))) -(define CoreC-45TTC-u--fromBuf_TTC_C-40CConAltC-32C-36varsC-41 (lambda (arg-0 arg-1 ext-0) (let ((act-24 (CoreC-45TTC-u--fromBuf_TTC_Name arg-1 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_ConInfo arg-1 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10258 eta-0)))) arg-1 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_Name arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10258 eta-0)))) arg-1 ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (CoreC-45TTC-u--fromBuf_TTC_C-40CExpC-32C-36varsC-41 (PreludeC-45TypesC-45List-C-43C-43 e-8 arg-0) arg-1 ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (vector 1 (vector 0 e-5 e-6 e-7 e-8 e-9))))))))))))))))))))))))))))) -(define CoreC-45TTC-u--fromBuf_TTC_C-40BinderC-32C-40TermC-32C-36varsC-41C-41 (lambda (arg-0 arg-1 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-getTag arg-1 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_RigCount arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (CoreC-45TTC-u--fromBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 arg-0 arg-10255 arg-10257))) (lambda (arg-10258) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 arg-0 arg-10258 eta-0)))) arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 0 (CoreC-45FC-emptyFC) e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 1) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_RigCount arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 1 (CoreC-45FC-emptyFC) e-6 e-7 (vector 10 (CoreC-45FC-emptyFC) 1)))))))))))))) ((equal? sc1 2) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_RigCount arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (CoreC-45TTC-u--fromBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 arg-0 arg-10255 arg-10257))) (lambda (arg-10258) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 arg-0 arg-10258 eta-0)))) arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 2 (CoreC-45FC-emptyFC) e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 3) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_RigCount arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (CoreC-45TTC-u--fromBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 arg-0 arg-10255 arg-10257))) (lambda (arg-10258) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 arg-0 arg-10258 eta-0)))) arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 3 (CoreC-45FC-emptyFC) e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 4) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_RigCount arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 4 (CoreC-45FC-emptyFC) e-6 e-7 (vector 10 (CoreC-45FC-emptyFC) 1)))))))))))))) ((equal? sc1 5) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_RigCount arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 5 (CoreC-45FC-emptyFC) e-6 (vector 10 (CoreC-45FC-emptyFC) 1)))))))))(else (LibrariesC-45UtilsC-45Binary-corrupt "Binder" ext-0))))))))))) -(define CoreC-45TTC-u--fromBuf_TTC_C-40C-40EnvC-32TermC-41C-32C-36varsC-41 (lambda (arg-0 arg-1 ext-0) (let ((sc0 arg-0)) (if (null? sc0) (vector 1 '()) (let ((e-3 (cdr sc0))) (let ((act-24 (CoreC-45TTC-u--fromBuf_TTC_C-40BinderC-32C-40TermC-32C-36varsC-41C-41 e-3 arg-1 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_C-40C-40EnvC-32TermC-41C-32C-36varsC-41 e-3 arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (cons e-5 e-6))))))))))))))))) -(define CoreC-45TTC-getName (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (cond ((equal? sc0 0) (let ((sc1 arg-1)) (if (null? sc1) (let ((sc2 arg-1)) (vector 0 )) (let ((e-3 (car sc1))) (vector 1 e-3)))))(else (let ((e-1 (- arg-0 1))) (let ((sc0 arg-1)) (if (null? sc0) (let ((sc1 arg-1)) (vector 0 )) (let ((e-7 (cdr sc0))) (CoreC-45TTC-getName e-1 e-7)))))))))) -(define CoreC-45Normalise-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32normalisePrims-13691 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 ext-0) (let ((sc0 arg-14)) (cond ((equal? sc0 0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Normalise-normalise arg-9 arg-1 e-5 arg-2 arg-3 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 1 e-6)))))))))))))(else (vector 1 (vector 0 ))))))) -(define CoreC-45Normalise-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32normalisePrims-13653 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (CoreC-45Normalise-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32normalisePrims-13691 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-1 (arg-8 e-1) eta-0))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define CoreC-45Normalise-case--caseC-32blockC-32inC-32normalisePrims-13617 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (if (null? sc0) (lambda (eta-0) (vector 1 (vector 0 ))) (let ((e-1 (car sc0))) (let ((e-2 (cdr sc0))) (CoreC-45Normalise-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32normalisePrims-13653 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-2 e-1 (arg-7 e-1)))))))) -(define CoreC-45Normalise-case--normalisePrims-13585 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (cond ((equal? sc0 0) (CoreC-45Normalise-case--caseC-32blockC-32inC-32normalisePrims-13617 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (DataC-45List-reverse arg-4)))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define CoreC-45Normalise-case--convGen-12049 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 ext-0) (let ((sc0 arg-13)) (cond ((equal? sc0 0) (let ((act-24 ((CoreC-45Normalise-u--convGen_Convert_NF arg-12 arg-0 arg-11 arg-10 arg-9 arg-4 arg-7) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (cond ((equal? sc2 0) (CoreC-45Normalise-allConv arg-12 arg-0 arg-11 arg-10 arg-9 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) arg-3) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) arg-6) ext-0)) (else (vector 1 1)))))))))) (else (vector 1 1)))))) -(define CoreC-45Normalise-case--convGen-11914 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 ext-0) (let ((sc0 arg-13)) (cond ((equal? sc0 0) (let ((act-24 (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((1) (vector 1 arg-10))(else (CoreC-45Context-clearDefs arg-10 ext-0)))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (CoreC-45Normalise-u--convGen_Convert_Closure arg-12 arg-0 arg-11 e-5 arg-9 arg-5 arg-7 ext-0))))))) (else (vector 1 1)))))) -(define CoreC-45Normalise-case--convGen-11843 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (cond ((equal? sc0 0) (CoreC-45Normalise-u--convGen_Convert_NF arg-10 arg-0 arg-9 arg-8 arg-7 arg-3 arg-5)) (else (lambda (eta-0) (vector 1 1))))))) -(define CoreC-45Normalise-case--convGen-11718 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (cond ((equal? sc0 0) (lambda (eta-0) (CoreC-45Normalise-allConv arg-14 arg-0 arg-13 arg-12 arg-11 (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) arg-5) (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) arg-8) eta-0))) (else (lambda (eta-0) (vector 1 1))))))) -(define CoreC-45Normalise-case--convGen-11609 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (cond ((equal? sc0 0) (lambda (eta-0) (CoreC-45Normalise-allConv arg-14 arg-0 arg-13 arg-12 arg-11 (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) arg-5) (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) arg-8) eta-0))) (else (lambda (eta-0) (vector 1 1))))))) -(define CoreC-45Normalise-case--convBinders-11097 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 1))) (else (CoreC-45Normalise-u--convGen_Convert_NF arg-6 arg-0 arg-5 arg-4 arg-3 (CoreC-45TT-binderType arg-2) (CoreC-45TT-binderType arg-1))))))) -(define CoreC-45Normalise-case--convBinders-11024 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 1))) (else (CoreC-45Normalise-u--convGen_Convert_NF arg-12 arg-0 arg-11 arg-10 arg-9 arg-3 arg-6)))))) -(define CoreC-45Normalise-case--convBinders-10943 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 1))) (else (CoreC-45Normalise-u--convGen_Convert_NF arg-12 arg-0 arg-11 arg-10 arg-9 arg-3 arg-6)))))) -(define CoreC-45Normalise-case--chkConvHead-10866 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (cond ((equal? sc0 0) (lambda (eta-0) (CoreC-45Normalise-allConv arg-10 arg-0 arg-9 arg-8 arg-7 arg-1 arg-4 eta-0))) (else (lambda (eta-0) (vector 1 1))))))) -(define CoreC-45Normalise-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32chkConvCaseBlock-10070 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 arg-38 ext-0) (let ((sc0 arg-38)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((act-24 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc1 eta-0)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))) (lambda (eta-0) (CoreC-45Normalise-u--convGen_Convert_Closure arg-11 arg-0 arg-9 arg-8 arg-7 arg-37 e-1 eta-0)) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (CoreC-45FC-u--C-61C-61_Eq_FC (let ((sc2 arg-21)) (let ((e-0 (vector-ref sc2 1))) e-0)) (let ((sc2 arg-23)) (let ((e-0 (vector-ref sc2 1))) e-0)))))))))) (else (vector 1 1)))))) -(define CoreC-45Normalise-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32chkConvCaseBlock-9988 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37) (let ((sc0 arg-37)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (CoreC-45Normalise-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32chkConvCaseBlock-10070 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 e-1 (CoreC-45Normalise-n--15289-9400-u--getScrutinee arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-36 arg-5) eta-0)))) (else (lambda (eta-0) (vector 1 1))))))) -(define CoreC-45Normalise-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32chkConvCaseBlock-9908 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36) (let ((sc0 arg-36)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (CoreC-45Normalise-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32chkConvCaseBlock-9988 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 e-1 (CoreC-45Normalise-n--15289-9400-u--getScrutinee arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-35 arg-6)))) (else (lambda (eta-0) (vector 1 1))))))) -(define CoreC-45Normalise-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32chkConvCaseBlock-9830 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35) (let ((sc0 arg-35)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (CoreC-45Normalise-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32chkConvCaseBlock-9908 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 e-1 (CoreC-45Normalise-n--15289-9399-u--findArgPos arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-34)))) (else (lambda (eta-0) (vector 1 1))))))) -(define CoreC-45Normalise-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32chkConvCaseBlock-9756 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30) (let ((sc0 arg-30)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (CoreC-45Normalise-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32chkConvCaseBlock-9830 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 e-0 e-1 e-3 e-4 e-2 (CoreC-45Normalise-n--15289-9399-u--findArgPos arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-29))))))))(else (lambda (eta-0) (vector 1 1))))))) -(define CoreC-45Normalise-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32chkConvCaseBlock-9694 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25) (let ((sc0 arg-25)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (CoreC-45Normalise-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32chkConvCaseBlock-9756 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 e-0 e-1 e-3 e-4 e-2 (let ((sc1 arg-23)) (let ((e-17 (vector-ref sc1 18))) e-17)))))))))(else (lambda (eta-0) (vector 1 1))))))) -(define CoreC-45Normalise-case--caseC-32blockC-32inC-32chkSameDefsC-44convertMatches-9008 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-13 arg-15 arg-17 arg-18 arg-19 ext-0) (let ((sc0 arg-19)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((act-24 (CoreC-45Normalise-u--convGen_Convert_Closure arg-8 arg-0 arg-7 arg-6 arg-5 arg-18 e-1 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((CoreC-45Normalise-n--15285-8915-u--convertMatches arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-17) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (PreludeC-45Basics-C-38C-38 e-5 (lambda () e-6))))))))))))))) (else (vector 1 1)))))) -(define CoreC-45Normalise-case--chkSameDefsC-44convertMatches-8965 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-13 arg-15 arg-17 arg-18) (let ((sc0 arg-18)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (CoreC-45Normalise-case--caseC-32blockC-32inC-32chkSameDefsC-44convertMatches-9008 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-13 arg-15 arg-17 e-1 (CoreC-45Normalise-n--15285-8914-u--getArgPos arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-15 arg-1) eta-0)))) (else (lambda (eta-0) (vector 1 1))))))) -(define CoreC-45Normalise-case--getMatchingVars-8762 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 ext-0) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((act-24 (CoreC-45Normalise-u--convert_Convert_Term arg-8 arg-1 arg-7 (CoreC-45Env-mkEnv (CoreC-45TT-getLoc arg-2) arg-1) e-1 arg-4 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (cond ((equal? sc2 0) (vector 1 (vector 1 arg-6))) (else (vector 1 (vector 0 )))))))))))) (else (vector 1 (vector 0 ))))))) -(define CoreC-45Normalise-case--getMatchingVarAlt-8552 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (CoreC-45Normalise-getMatchingVars arg-0 arg-1 arg-2 arg-8 arg-7 arg-3 arg-5)) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define CoreC-45Normalise-case--caseC-32blockC-32inC-32getMatchingVarAlt-8364 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 ext-0) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((act-24 ((CoreC-45Normalise-getMatchingVars arg-12 (PreludeC-45TypesC-45List-C-43C-43 arg-2 arg-0) (PreludeC-45TypesC-45List-C-43C-43 arg-6 arg-1) arg-11 e-1 arg-3 arg-7) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (vector 1 (vector 1 (DataC-45List-mapMaybe (lambda (eta-0) (CoreC-45Normalise-n--15273-8147-u--dropP arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-2 arg-6 eta-0)) e-2))))) (else (vector 1 (vector 0 )))))))))))) (else (vector 1 (vector 0 ))))))) -(define CoreC-45Normalise-case--getMatchingVarAlt-8333 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (cond ((equal? sc0 0) (lambda (eta-0) (CoreC-45Normalise-case--caseC-32blockC-32inC-32getMatchingVarAlt-8364 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 (CoreC-45Normalise-n--15273-8145-u--extend arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-2 arg-6 arg-10) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define CoreC-45Normalise-case--tryUpdateC-44findIdx-7553 (lambda (arg-0 arg-1 arg-3 arg-5 arg-6 arg-7 arg-9 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (cond ((equal? sc0 0) (vector 1 arg-11)) (else (CoreC-45Normalise-n--14735-7527-u--findIdx arg-0 arg-1 arg-3 arg-5 arg-6 arg-7 arg-12 arg-13)))))) -(define CoreC-45Normalise-case--quoteHead-5976 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 ext-0) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (vector 1 (vector 0 arg-6 (vector 0 ) e-1)))) (else (vector 1 (vector 1 arg-6 (vector 0 ) (vector 2 arg-3 arg-2)))))))) -(define CoreC-45Normalise-case--quoteHeadC-44findName-5778 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-11 arg-12 arg-13 arg-14 arg-16) (let ((sc0 arg-16)) (cond ((equal? sc0 0) (vector 1 0)) (else (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Normalise-n--12680-5762-u--findName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-13) (lambda (_-0) (vector 1 (+ 1 _-0))))))))) -(define CoreC-45Normalise-case--quoteHead-5718 (lambda (arg-0 arg-2 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 ext-0) (vector 1 (vector 0 arg-8 arg-4 arg-12)))) -(define CoreC-45Normalise-case--quoteHeadC-44addLater-5662 (lambda (arg-0 arg-2 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-14 arg-15 arg-16 arg-18) (+ 1 arg-18))) -(define CoreC-45Normalise-case--caseC-32blockC-32inC-32evalDef-4990 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 ext-0) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((0) (vector 1 (arg-8))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-5 (car sc1))) (let ((e-6 (cdr sc1))) (let ((act-24 ((CoreC-45Normalise-evalTree arg-0 arg-1 arg-16 arg-3 arg-2 arg-15 e-5 arg-14 arg-12 e-6 arg-6) ext-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((0) (let ((e-1 (vector-ref sc3 1))) (vector 1 e-1)))(else (vector 1 (arg-8))))))))))))))))))) -(define CoreC-45Normalise-case--evalDef-4950 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (cond ((equal? sc0 0) (lambda (eta-0) (CoreC-45Normalise-case--caseC-32blockC-32inC-32evalDef-4990 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 (CoreC-45Normalise-argsFromStack arg-0 arg-1 arg-3 arg-9) eta-0))) (else (lambda (eta-0) (vector 1 (arg-8)))))))) -(define CoreC-45Normalise-case--caseC-32blockC-32inC-32evalOp-4856 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 ext-0) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((0) (vector 1 (arg-3))) (else (let ((e-2 (vector-ref sc0 1))) (vector 1 e-2))))))) -(define CoreC-45Normalise-case--evalOp-4821 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (clam-0) (let ((sc1 e-1)) (if (null? sc1) (vector 1 (arg-3)) (let ((e-4 (car sc1))) (let ((e-5 (cdr sc1))) (let ((sc2 e-5)) (if (null? sc2) (let ((act-24 (CoreC-45Normalise-n--8894-4784-u--evalAll arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-4 clam-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (CoreC-45Normalise-case--caseC-32blockC-32inC-32evalOp-4856 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-4 e-6 (arg-6 e-6) clam-0)))))) (vector 1 (arg-3)))))))))))(else (lambda (eta-0) (vector 1 (arg-3)))))))) -(define CoreC-45Normalise-case--evalTree-4491 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((CoreC-45Normalise-evalWithOpts arg-11 arg-3 arg-2 arg-0 arg-8 arg-10 arg-9 (CoreC-45TT-embed arg-5) arg-6) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-5))))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (cond ((equal? sc1 0) (lambda (eta-0) (vector 1 (vector 2 ))))(else (let ((e-3 (- e-2 1))) (let ((u--optsC-39 (let ((sc1 arg-8)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-9 (vector-ref sc1 3))) (let ((e-8 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-7 (vector-ref sc1 8))) (vector 0 e-0 e-1 e-9 e-8 e-4 e-5 (vector 1 e-3) e-7))))))))))) (lambda (eta-0) (let ((act-24 ((CoreC-45Normalise-evalWithOpts arg-11 arg-3 arg-2 arg-0 u--optsC-39 arg-10 arg-9 (CoreC-45TT-embed arg-5) arg-6) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-5))))))))))))))))))) -(define CoreC-45Normalise-case--tryAlt-4176 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (CoreC-45Normalise-evalTree arg-0 arg-1 arg-11 arg-3 arg-2 arg-10 arg-9 arg-8 arg-7 arg-6 arg-4)) (else (lambda (eta-0) (vector 1 (vector 2 )))))))) -(define CoreC-45Normalise-case--tryAlt-4055 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (cond ((equal? sc0 0) (CoreC-45Normalise-evalTree arg-0 arg-1 arg-2 arg-4 arg-3 arg-13 arg-12 arg-11 arg-10 arg-9 arg-7)) (else (lambda (eta-0) (vector 1 (vector 1 )))))))) -(define CoreC-45Normalise-case--caseC-32blockC-32inC-32tryAlt-3841 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (cond ((equal? sc0 0) (CoreC-45Normalise-evalTree arg-0 arg-1 arg-2 arg-4 arg-3 arg-14 arg-13 arg-12 arg-11 arg-10 arg-7)) (else (lambda (eta-0) (vector 1 (vector 1 )))))))) -(define CoreC-45Normalise-case--tryAlt-3689 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-19)) (cond ((equal? sc0 0) (CoreC-45Normalise-evalConAlt arg-0 arg-1 arg-18 arg-9 arg-2 arg-17 arg-16 arg-15 arg-14 arg-13 arg-8 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) arg-4) arg-10)) (else (lambda (eta-0) (vector 1 (vector 1 )))))))) -(define CoreC-45Normalise-case--tryAlt-3579 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-19)) (cond ((equal? sc0 0) (CoreC-45Normalise-evalConAlt arg-0 arg-1 arg-18 arg-9 arg-2 arg-17 arg-16 arg-15 arg-14 arg-13 arg-8 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) arg-4) arg-10)) (else (lambda (eta-0) (vector 1 (vector 1 )))))))) -(define CoreC-45Normalise-case--evalConAlt-3501 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (CoreC-45Normalise-evalTree arg-0 arg-1 arg-12 (PreludeC-45TypesC-45List-C-43C-43 arg-4 arg-2) arg-3 arg-11 e-1 arg-9 arg-8 arg-7 arg-5))) (else (lambda (eta-0) (vector 1 (vector 2 )))))))) -(define CoreC-45Normalise-case--caseC-32blockC-32inC-32evalLocal-2866 (lambda (arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((1) (let ((e-3 (vector-ref sc0 3))) (CoreC-45Normalise-eval arg-0 arg-1 arg-11 arg-3 '() arg-10 '() e-3 arg-5)))(else (lambda (eta-0) (vector 1 (vector 1 arg-9 (vector 0 arg-8 arg-6) arg-5)))))))) -(define CoreC-45Normalise-case--evalLocal-2832 (lambda (arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (CoreC-45Normalise-case--caseC-32blockC-32inC-32evalLocal-2866 arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 arg-11 (CoreC-45Env-getBinder (cons (lambda (u--n) (lambda (u--vars) (lambda (arg-5476) (CoreC-45TT-u--weaken_Weaken_Term arg-5476)))) (lambda (u--vars) (lambda (u--ns) (lambda (arg-5481) (lambda (arg-5483) (CoreC-45TT-u--weakenNs_Weaken_Term arg-5481 arg-5483)))))) arg-3 arg-6 arg-10))) (else (lambda (eta-0) (vector 1 (vector 1 arg-9 (vector 0 arg-8 arg-6) arg-5)))))))) -(define CoreC-45Normalise-case--eval-2519 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (CoreC-45Normalise-eval arg-0 arg-1 arg-11 arg-2 arg-3 arg-10 arg-9 arg-4 arg-8)) (else (lambda (eta-0) (let ((act-24 ((CoreC-45Normalise-eval arg-0 arg-1 arg-11 arg-2 arg-3 arg-10 arg-9 arg-5 arg-8) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((CoreC-45Normalise-eval arg-0 arg-1 arg-11 arg-2 arg-3 arg-10 arg-9 arg-4 arg-8) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 4 arg-7 arg-6 e-5 e-6)))))))))))))))))) -(define CoreC-45Normalise-case--eval-2344 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (CoreC-45CoreC-45Binder-traverse (lambda (u--tm) (CoreC-45Normalise-eval arg-0 arg-1 arg-15 arg-2 arg-3 arg-14 arg-13 u--tm '())) arg-10 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 arg-11 arg-5 e-5 (lambda (u--defsC-39) (lambda (u--arg) (CoreC-45Normalise-evalWithOpts arg-15 arg-2 (cons arg-5 arg-3) u--defsC-39 arg-1 arg-14 (cons u--arg arg-13) arg-6 arg-12)))))))))))) (else (CoreC-45Normalise-eval arg-0 arg-1 arg-15 arg-2 (cons arg-5 arg-3) arg-14 (cons (vector 0 arg-3 arg-1 arg-13 arg-14 arg-7) arg-13) arg-6 arg-12)))))) -(define CoreC-45Normalise-case--caseC-32blockC-32inC-32updateLimit-2085 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (cond ((equal? sc1 0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (let ((e-3 (- e-2 1))) (lambda (eta-0) (vector 1 (vector 1 (let ((sc1 arg-0)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-9 (vector-ref sc1 3))) (let ((e-8 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (vector 0 e-0 e-1 e-9 e-8 e-4 e-5 e-6 (CoreC-45Normalise-n--8718-2006-u--set arg-0 arg-1 arg-1 e-3 e-7)))))))))))))))))))))))) -(define CoreC-45Normalise-case--updateLimit-2072 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (CoreC-45Normalise-case--caseC-32blockC-32inC-32updateLimit-2085 arg-0 arg-1 (DataC-45List-lookup (cons (lambda (arg-3) (lambda (arg-4) (CoreC-45Name-u--C-61C-61_Eq_Name arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (CoreC-45Name-u--C-47C-61_Eq_Name arg-4 arg-5)))) arg-1 (let ((sc1 arg-0)) (let ((e-7 (vector-ref sc1 8))) e-7))))) (else (lambda (eta-0) (vector 1 (vector 1 arg-0)))))))) -(define CoreC-45Normalise-case--updateLimitC-44set-2026 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (cons (cons arg-2 arg-5) arg-4)) (else (cons (cons arg-2 arg-3) (CoreC-45Normalise-n--8718-2006-u--set arg-0 arg-1 arg-6 arg-5 arg-4))))))) -(define CoreC-45Normalise-case--useMeta-1976 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (CoreC-45Normalise-useMeta 0 arg-3 (vector 9 e-1) arg-1 arg-0))) (else (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 7 arg-3 arg-2) eta-0))))))) -(define CoreC-45Normalise-case--useMeta-1921 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (vector 1 (vector 1 (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (vector 0 e-0 e-1 e-2 (LibrariesC-45DataC-45IntMap-insert arg-0 (vector 0 ) e-3) e-4 e-5 e-6 e-7))))))))))))) (else (vector 1 (vector 0 ))))))) -(define CoreC-45Normalise-n--15273-8144-u--weakenP (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (cons (CoreC-45TT-u--weaken_Weaken_Var e-2) (CoreC-45TT-u--weaken_Weaken_Var e-3))))))) -(define CoreC-45Normalise-n--14735-7697-u--weakenP (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (cons (CoreC-45TT-u--weaken_Weaken_Var e-2) (CoreC-45TT-u--weaken_Weaken_Var e-3))))))) -(define CoreC-45Normalise-n--14735-7695-u--tryUpdatePi (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 1 ))) ((0) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 0 ))) ((2) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 2 ))) (else (let ((e-4 (vector-ref sc0 1))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Normalise-tryUpdate arg-0 arg-1 arg-6 e-4) (lambda (bind-0) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 3 bind-0)))))))))) -(define CoreC-45Normalise-n--14735-7696-u--tryUpdateB (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Normalise-n--14735-7695-u--tryUpdatePi arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3) (lambda (bind-0) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Normalise-tryUpdate arg-0 arg-1 arg-6 e-4) (lambda (bind-1) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 0 e-1 e-2 bind-0 bind-1))))))))))) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (let ((e-9 (vector-ref sc0 4))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Normalise-tryUpdate arg-0 arg-1 arg-6 e-8) (lambda (bind-0) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Normalise-tryUpdate arg-0 arg-1 arg-6 e-9) (lambda (bind-1) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 1 e-6 e-7 bind-0 bind-1))))))))))) ((2) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 4))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Normalise-n--14735-7695-u--tryUpdatePi arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-13) (lambda (bind-0) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Normalise-tryUpdate arg-0 arg-1 arg-6 e-14) (lambda (bind-1) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 2 e-11 e-12 bind-0 bind-1)))))))))))(else (vector 0 )))))) -(define CoreC-45Normalise-n--12698-6425-u--toHolesOnly (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (vector 0 e-1 (let ((sc1 e-2)) (let ((e-11 (vector-ref sc1 3))) (let ((e-10 (vector-ref sc1 4))) (let ((e-9 (vector-ref sc1 5))) (let ((e-8 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (vector 0 0 0 e-11 e-10 e-9 e-8 e-6 e-7)))))))) e-3 e-4 e-5)))))))(else arg-12))))) -(define CoreC-45Normalise-n--8892-4656-u--takeStk (lambda (arg-0 arg-1 arg-3 arg-4 arg-6 arg-7 arg-8) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (vector 1 (cons (DataC-45Vect-reverse arg-8) arg-7)))(else (let ((e-0 (- arg-6 1))) (let ((sc0 arg-7)) (if (null? sc0) (vector 0 ) (let ((e-3 (car sc0))) (let ((e-4 (cdr sc0))) (CoreC-45Normalise-n--8892-4656-u--takeStk arg-0 arg-1 arg-3 arg-4 e-0 e-4 (cons (Builtin-snd e-3) arg-8)))))))))))) -(define CoreC-45Normalise-n--8718-2006-u--set (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (if (null? sc0) '() (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (CoreC-45Normalise-case--updateLimitC-44set-2026 arg-0 arg-1 e-6 e-7 e-3 arg-3 arg-2 (CoreC-45Name-u--C-61C-61_Eq_Name e-6 arg-2))))))))))) -(define CoreC-45Normalise-n--20809-12995-u--repSub (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 ext-0) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((act-24 (CoreC-45CoreC-45Binder-traverse (lambda (eta-0) (lambda (eta-1) (CoreC-45Normalise-n--20809-12995-u--repSub arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 eta-0 eta-1))) e-3 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((u--xC-39 (vector 2 "tmp" arg-6))) (let ((act-25 (let ((act-25 (((e-4 arg-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) arg-4 (vector 1 e-1 (vector 0 ) u--xC-39))) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (CoreC-45Normalise-replaceC-39 arg-7 arg-0 (bs+ arg-6 1 63) arg-5 arg-4 arg-3 arg-2 e-6 ext-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 3 e-1 e-2 e-5 (CoreC-45TT-refsToLocals (vector 1 e-2 u--xC-39 (vector 0 )) e-6))))))))))))))))))) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (let ((sc1 e-8)) (if (null? sc1) (let ((act-24 (CoreC-45Context-clearDefs arg-5 ext-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (CoreC-45Normalise-u--quote_Quote_NF arg-7 arg-0 e-5 arg-4 (vector 1 e-6 e-7 '()) ext-0)))))) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (CoreC-45Core-traversePair (lambda (eta-2) (lambda (eta-3) (CoreC-45Normalise-n--20809-12994-u--repArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 eta-2 eta-3))) eta-0 eta-1))) e-8 '() ext-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (CoreC-45Normalise-replaceC-39 arg-7 arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 (vector 1 e-6 e-7 '()) ext-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc3 1))) (vector 1 (CoreC-45TT-applyWithFC e-9 e-5)))))))))))))))))) ((2) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (let ((e-13 (vector-ref sc0 4))) (let ((e-14 (vector-ref sc0 5))) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (CoreC-45Core-traversePair (lambda (eta-2) (lambda (eta-3) (CoreC-45Normalise-n--20809-12994-u--repArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 eta-2 eta-3))) eta-0 eta-1))) e-14 '() ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Context-clearDefs arg-5 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (CoreC-45Normalise-u--quote_Quote_NF arg-7 arg-0 e-6 arg-4 (vector 2 e-10 e-11 e-12 e-13 '()) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (CoreC-45TT-applyWithFC e-7 e-5))))))))))))))))))))))) ((3) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (let ((e-20 (vector-ref sc0 5))) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (CoreC-45Core-traversePair (lambda (eta-2) (lambda (eta-3) (CoreC-45Normalise-n--20809-12994-u--repArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 eta-2 eta-3))) eta-0 eta-1))) e-20 '() ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Context-clearDefs arg-5 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (CoreC-45Normalise-u--quote_Quote_NF arg-7 arg-0 e-6 arg-4 (vector 3 e-16 e-17 e-18 e-19 '()) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (CoreC-45TT-applyWithFC e-7 e-5))))))))))))))))))))))) ((4) (let ((e-22 (vector-ref sc0 1))) (let ((e-23 (vector-ref sc0 2))) (let ((e-24 (vector-ref sc0 3))) (let ((e-25 (vector-ref sc0 4))) (let ((act-24 (CoreC-45Normalise-n--20809-12995-u--repSub arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-24 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Normalise-n--20809-12995-u--repSub arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-25 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 5 e-22 e-23 e-5 e-6))))))))))))))))) ((5) (let ((e-27 (vector-ref sc0 1))) (let ((e-28 (vector-ref sc0 2))) (let ((e-29 (vector-ref sc0 3))) (let ((act-24 (CoreC-45Normalise-n--20809-12995-u--repSub arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-29 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 6 e-27 e-28 e-5))))))))))) ((6) (let ((e-31 (vector-ref sc0 1))) (let ((e-32 (vector-ref sc0 2))) (let ((e-33 (vector-ref sc0 3))) (let ((e-34 (vector-ref sc0 4))) (let ((act-24 (let ((act-24 ((CoreC-45Normalise-evalClosure arg-7 arg-0 arg-5 e-33) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (CoreC-45Normalise-replaceC-39 arg-7 arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 e-5 ext-0)))))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-7 arg-0 arg-5 e-34) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (CoreC-45Normalise-replaceC-39 arg-7 arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 e-6 ext-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 7 e-31 e-32 e-5 e-6))))))))))))))))) ((7) (let ((e-36 (vector-ref sc0 1))) (let ((e-37 (vector-ref sc0 2))) (let ((e-38 (vector-ref sc0 3))) (let ((e-39 (vector-ref sc0 4))) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (CoreC-45Core-traversePair (lambda (eta-2) (lambda (eta-3) (CoreC-45Normalise-n--20809-12994-u--repArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 eta-2 eta-3))) eta-0 eta-1))) e-39 '() ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Normalise-n--20809-12995-u--repSub arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-38 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (CoreC-45TT-applyWithFC (vector 8 e-36 e-37 e-6) e-5)))))))))))))))))(else (let ((act-24 (CoreC-45Context-clearDefs arg-5 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (CoreC-45Normalise-u--quote_Quote_NF arg-7 arg-0 e-5 arg-4 arg-8 ext-0))))))))))) -(define CoreC-45Normalise-n--20809-12994-u--repArg (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 ext-0) (let ((act-24 ((CoreC-45Normalise-evalClosure arg-7 arg-0 arg-5 arg-8) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (CoreC-45Normalise-replaceC-39 arg-7 arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 e-5 ext-0)))))))) -(define CoreC-45Normalise-n--20678-12873-u--lvl (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (CoreC-45OptionsC-45Log-mkLogLevel 0 arg-4 arg-3))) -(define CoreC-45Normalise-n--15289-9400-u--getScrutinee (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-13 arg-14) (let ((sc0 arg-13)) (cond ((equal? sc0 0) (let ((sc1 arg-14)) (if (null? sc1) (vector 0 ) (let ((e-2 (car sc1))) (vector 1 e-2)))))(else (let ((e-0 (- arg-13 1))) (let ((sc0 arg-14)) (if (null? sc0) (vector 0 ) (let ((e-6 (cdr sc0))) (CoreC-45Normalise-n--15289-9400-u--getScrutinee arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-0 e-6)))))))))) -(define CoreC-45Normalise-n--15285-8914-u--getArgPos (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (if (null? sc0) (vector 0 ) (let ((sc1 arg-9)) (cond ((equal? sc1 0) (let ((sc2 arg-10)) (let ((e-2 (car sc2))) (PreludeC-45Types-u--pure_Applicative_Maybe e-2))))(else (let ((e-0 (- arg-9 1))) (let ((sc1 arg-10)) (let ((e-6 (cdr sc1))) (CoreC-45Normalise-n--15285-8914-u--getArgPos arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-0 e-6))))))))))) -(define CoreC-45Normalise-n--12680-5762-u--findName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((2) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (CoreC-45Normalise-case--quoteHeadC-44findName-5778 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-5 e-4 e-3 e-1 (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 e-5)))))(else (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Normalise-n--12680-5762-u--findName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-3) (lambda (_-0) (vector 1 (+ 1 _-0))))))))))))))) -(define CoreC-45Normalise-n--14735-7527-u--findIdx (lambda (arg-0 arg-1 arg-3 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-8)) (if (null? sc0) (vector 0 ) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (CoreC-45Normalise-case--tryUpdateC-44findIdx-7553 arg-0 arg-1 arg-3 arg-5 arg-6 arg-7 e-6 e-7 e-3 arg-9 (PreludeC-45Types-u--C-61C-61_Eq_Nat e-6 arg-9))))))))))) -(define CoreC-45Normalise-n--15289-9399-u--findArgPos (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 2))) (vector 1 e-2)))(else (vector 0 )))))) -(define CoreC-45Normalise-n--15273-8145-u--extend (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-13)) (if (null? sc0) (let ((sc1 arg-14)) (if (null? sc1) (PreludeC-45Types-u--pure_Applicative_Maybe arg-15) (vector 0 ))) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 arg-14)) (if (null? sc1) (vector 0 ) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Normalise-n--15273-8145-u--extend arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-3 e-7 arg-15) (lambda (u--rest) (PreludeC-45Types-u--pure_Applicative_Maybe (cons (cons 0 0) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45Normalise-n--15273-8144-u--weakenP arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-2 e-6 (PreludeC-45TypesC-45List-C-43C-43 e-3 arg-0) (PreludeC-45TypesC-45List-C-43C-43 e-7 arg-1) eta-0)) u--rest))))))))))))))) -(define CoreC-45Normalise-n--8894-4784-u--evalAll (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-9 ext-0) (let ((sc0 arg-9)) (if (null? sc0) (vector 1 '()) (let ((e-3 (car sc0))) (let ((e-4 (cdr sc0))) (let ((act-24 ((CoreC-45Normalise-evalClosure arg-7 arg-2 arg-0 e-3) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Normalise-n--8894-4784-u--evalAll arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-4 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (cons e-5 e-6)))))))))))))))))) -(define CoreC-45Normalise-n--20678-12874-u--dumpEnv (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-6)) (if (null? sc0) (lambda (clam-0) (let ((sc1 arg-7)) (vector 1 (vector 0 )))) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (lambda (clam-0) (let ((sc1 arg-7)) (let ((e-8 (car sc1))) (let ((e-9 (cdr sc1))) (let ((sc2 e-8)) (case (vector-ref sc2 0) ((1) (let ((e-12 (vector-ref sc2 2))) (let ((e-13 (vector-ref sc2 3))) (let ((e-14 (vector-ref sc2 4))) (let ((act-24 (CoreC-45Normalise-logTermNFC-39 e-3 arg-5 (CoreC-45Normalise-n--20678-12873-u--lvl arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (lambda () (PreludeC-45TypesC-45String-C-43C-43 arg-2 (PreludeC-45TypesC-45String-C-43C-43 ": let " (CoreC-45Name-u--show_Show_Name e-2)))) e-9 e-13 clam-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((act-25 (CoreC-45Normalise-logTermNFC-39 e-3 arg-5 (CoreC-45Normalise-n--20678-12873-u--lvl arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (lambda () (PreludeC-45TypesC-45String-C-43C-43 arg-2 (PreludeC-45TypesC-45String-C-43C-43 ":" (PreludeC-45TypesC-45String-C-43C-43 (AlgebraC-45ZeroOneOmega-u--show_Show_ZeroOneOmega e-12) (PreludeC-45TypesC-45String-C-43C-43 " " (CoreC-45Name-u--show_Show_Name e-2)))))) e-9 e-14 clam-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else ((CoreC-45Normalise-n--20678-12874-u--dumpEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3 e-9) clam-0)))))))))))))(else (let ((act-24 (CoreC-45Normalise-logTermNFC-39 e-3 arg-5 (CoreC-45Normalise-n--20678-12873-u--lvl arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (lambda () (PreludeC-45TypesC-45String-C-43C-43 arg-2 (PreludeC-45TypesC-45String-C-43C-43 ":" (PreludeC-45TypesC-45String-C-43C-43 (AlgebraC-45ZeroOneOmega-u--show_Show_ZeroOneOmega (CoreC-45TT-multiplicity e-8)) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40PiInfoC-32C-36tC-41 (cons (lambda (u--x) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 e-3 u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 e-3 u--d u--x)))) (CoreC-45TT-piInfo e-8)) (PreludeC-45TypesC-45String-C-43C-43 " " (CoreC-45Name-u--show_Show_Name e-2)))))))) e-9 (CoreC-45TT-binderType e-8) clam-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((CoreC-45Normalise-n--20678-12874-u--dumpEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3 e-9) clam-0)))))))))))))))))) -(define CoreC-45Normalise-n--15273-8146-u--dropV (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-14 arg-15) (let ((sc0 arg-14)) (if (null? sc0) (vector 1 arg-15) (let ((e-3 (cdr sc0))) (let ((sc1 arg-15)) (cond ((equal? sc1 0) (vector 0 ))(else (let ((e-8 (- arg-15 1))) (CoreC-45Normalise-n--15273-8146-u--dropV arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-3 e-8)))))))))) -(define CoreC-45Normalise-n--15273-8147-u--dropP (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Normalise-n--15273-8146-u--dropV arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-2) (lambda (bind-0) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Normalise-n--15273-8146-u--dropV arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-14 e-3) (lambda (bind-1) (PreludeC-45Types-u--pure_Applicative_Maybe (cons bind-0 bind-1))))))))))) -(define CoreC-45Normalise-n--15285-8915-u--convertMatches (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (if (null? sc0) (lambda (eta-0) (vector 1 0)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (CoreC-45Normalise-case--chkSameDefsC-44convertMatches-8965 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-6 e-7 e-3 (CoreC-45Normalise-n--15285-8914-u--getArgPos arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-6 arg-2))))))))))) -(define CoreC-45Normalise-n--8889-4126-u--concrete (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((2) 0) ((3) 0) ((8) 0) ((0) 0) ((10) 0)(else 1))))) -(define CoreC-45Normalise-n--8881-2289-u--closeArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (if (null? sc0) '() (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (cons (vector 0 arg-2 arg-1 arg-9 arg-10 e-2) (CoreC-45Normalise-n--8881-2289-u--closeArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-3)))))))) -(define CoreC-45Normalise-n--18951-11511-u--args2 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) arg-5))) -(define CoreC-45Normalise-n--18951-11510-u--args1 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) arg-2))) -(define CoreC-45Normalise-n--8882-2749-u--applyToStack (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (lambda (clam-0) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (let ((sc2 arg-10)) (if (null? sc2) (vector 1 arg-9) (let ((e-27 (car sc2))) (let ((e-28 (cdr sc2))) (let ((act-24 (((e-4 arg-0) (Builtin-snd e-27)) clam-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-5 (vector-ref sc3 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc3 1))) ((CoreC-45Normalise-n--8882-2749-u--applyToStack arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-5 e-28) clam-0)))))))))))(else (vector 1 arg-9)))))))) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (let ((sc1 e-7)) (case (vector-ref sc1 0) ((1) (let ((e-30 (vector-ref sc1 1))) (let ((e-31 (vector-ref sc1 2))) (lambda (eta-0) (CoreC-45Normalise-evalRef arg-0 arg-1 arg-8 arg-2 arg-7 1 e-6 e-30 e-31 (PreludeC-45TypesC-45List-C-43C-43 e-8 arg-10) (lambda () (vector 1 e-6 (vector 1 e-30 e-31) e-8)) eta-0))))) ((0) (let ((e-34 (vector-ref sc1 1))) (let ((e-35 (vector-ref sc1 2))) (CoreC-45Normalise-evalLocal arg-0 arg-1 arg-8 arg-2 '() arg-7 e-6 e-34 e-35 (PreludeC-45TypesC-45List-C-43C-43 e-8 arg-10) '()))))(else (lambda (eta-0) (vector 1 arg-9))))))))) ((2) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (let ((e-13 (vector-ref sc0 4))) (let ((e-14 (vector-ref sc0 5))) (lambda (eta-0) (vector 1 (vector 2 e-10 e-11 e-12 e-13 (PreludeC-45TypesC-45List-C-43C-43 e-14 arg-10)))))))))) ((3) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (let ((e-20 (vector-ref sc0 5))) (lambda (eta-0) (vector 1 (vector 3 e-16 e-17 e-18 e-19 (PreludeC-45TypesC-45List-C-43C-43 e-20 arg-10))))))))))(else (lambda (eta-0) (vector 1 arg-9))))))) -(define CoreC-45Normalise-n--12680-5633-u--addLater (lambda (arg-0 arg-2 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-14 arg-15) (let ((sc0 arg-15)) (if (null? sc0) arg-14 (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (CoreC-45Normalise-case--quoteHeadC-44addLater-5662 arg-0 arg-2 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-14 e-2 e-3 (CoreC-45Normalise-n--12680-5633-u--addLater arg-0 arg-2 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-14 e-3)))))))) -(define CoreC-45Normalise-n--14372-7149-u--act (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (CoreC-45ContextC-45Log-logTerm arg-3 arg-0 "eval.eta" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () " Considering") arg-4 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((3) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((e-3 (vector-ref sc1 3))) (let ((e-4 (vector-ref sc1 4))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (let ((e-8 (vector-ref sc2 3))) (let ((e-9 (vector-ref sc2 4))) (let ((sc3 e-4)) (case (vector-ref sc3 0) ((4) (let ((e-11 (vector-ref sc3 1))) (let ((e-12 (vector-ref sc3 2))) (let ((e-13 (vector-ref sc3 3))) (let ((sc4 e-13)) (case (vector-ref sc4 0) ((0) (let ((e-16 (vector-ref sc4 1))) (let ((e-17 (vector-ref sc4 2))) (let ((e-18 (vector-ref sc4 3))) (let ((sc5 e-18)) (cond ((equal? sc5 0) (let ((act-25 (CoreC-45ContextC-45Log-logTerm (cons e-2 arg-3) arg-0 "eval.eta" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () " Shrinking candidate") e-12 ext-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((u--shrunk (CoreC-45TT-shrinkTerm e-12 (vector 1 (vector 0 ))))) (let ((u--tm (vector 3 e-1 e-2 (vector 0 e-6 e-7 e-8 e-9) (vector 4 e-11 e-12 (vector 0 e-16 e-17 0))))) (let ((sc7 u--shrunk)) (case (vector-ref sc7 0) ((0) (let ((act-26 (CoreC-45ContextC-45Log-log arg-0 "eval.eta" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () " Failure!") ext-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-14 (vector-ref sc8 1))) (vector 0 e-14))) (else (vector 1 u--tm)))))) (else (let ((e-14 (vector-ref sc7 1))) (let ((act-26 (CoreC-45ContextC-45Log-logTerm arg-3 arg-0 "eval.eta" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () " Success!") e-14 ext-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-15 (vector-ref sc8 1))) (vector 0 e-15))) (else (vector 1 e-14))))))))))))))))(else (vector 1 arg-4))))))))(else (vector 1 arg-4))))))))(else (vector 1 arg-4)))))))))(else (vector 1 arg-4)))))))))(else (vector 1 arg-4)))))))))) -(define CoreC-45Normalise-u--quote_Quote_Term (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (CoreC-45Core-newRef (vector "Core.Normalise.QVar" ) 0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (CoreC-45Normalise-u--quoteGen_Quote_Term arg-0 arg-1 e-5 arg-2 arg-3 arg-4 ext-0)))))))) -(define CoreC-45Normalise-u--quote_Quote_NF (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (CoreC-45Core-newRef (vector "Core.Normalise.QVar" ) 0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (CoreC-45Normalise-u--quoteGen_Quote_NF arg-0 arg-1 e-5 arg-2 arg-3 arg-4 ext-0)))))))) -(define CoreC-45Normalise-u--quote_Quote_Closure (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (CoreC-45Core-newRef (vector "Core.Normalise.QVar" ) 0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (CoreC-45Normalise-u--quoteGen_Quote_Closure arg-0 arg-1 e-5 arg-2 arg-3 arg-4 ext-0)))))))) +(define CoreC-45CompileExpr-elem (lambda (arg-1 arg-2) (if (null? arg-2) 0 (let ((e-2 (car arg-2))) (let ((e-3 (cdr arg-2))) (let ((sc1 (CoreC-45Name-u--C-61C-61_Eq_Name arg-1 e-2))) (cond ((equal? sc1 1) 1) (else (CoreC-45CompileExpr-elem arg-1 e-3))))))))) +(define CoreC-45CompileExpr-conArgs (lambda (arg-1 arg-2) (if (null? arg-1) '() (let ((e-3 (cdr arg-1))) (let ((e-6 (car arg-2))) (let ((e-7 (cdr arg-2))) (cons e-6 (CoreC-45CompileExpr-conArgs e-3 e-7)))))))) +(define CoreC-45CompileExpr-addLocs (lambda (arg-1 arg-2) (if (null? arg-1) arg-2 (let ((e-2 (car arg-1))) (let ((e-3 (cdr arg-1))) (let ((u--rec (CoreC-45CompileExpr-addLocs e-3 arg-2))) (cons (CoreC-45CompileExpr-uniqueName e-2 u--rec) u--rec))))))) +(define CoreC-45CaseTree-n--5776-3965-u--getSet (lambda (arg-1 arg-2 arg-3 arg-5 arg-6) (case (vector-ref arg-6 0) ((0) (let ((e-5 (vector-ref arg-6 4))) (CoreC-45CaseTree-n--5776-3964-u--getAltSets arg-1 arg-2 arg-3 arg-5 e-5))) ((1) (let ((e-8 (vector-ref arg-6 2))) (((arg-3 'erased) arg-5) e-8))) ((2) arg-5) (else arg-5)))) +(define CoreC-45CaseTree-n--5776-3964-u--getAltSets (lambda (arg-1 arg-2 arg-3 arg-5 arg-6) (if (null? arg-6) arg-5 (let ((e-2 (car arg-6))) (let ((e-3 (cdr arg-6))) (CoreC-45CaseTree-n--5776-3964-u--getAltSets arg-1 arg-2 arg-3 (CoreC-45CaseTree-n--5776-3963-u--getAltSet arg-1 arg-2 arg-3 arg-5 e-2) e-3)))))) +(define CoreC-45CaseTree-n--5776-3963-u--getAltSet (lambda (arg-1 arg-2 arg-3 arg-5 arg-6) (case (vector-ref arg-6 0) ((0) (let ((e-4 (vector-ref arg-6 4))) (CoreC-45CaseTree-n--5776-3965-u--getSet arg-1 arg-2 arg-3 arg-5 e-4))) ((1) (let ((e-8 (vector-ref arg-6 3))) (CoreC-45CaseTree-n--5776-3965-u--getSet arg-1 arg-2 arg-3 arg-5 e-8))) ((2) (let ((e-11 (vector-ref arg-6 2))) (CoreC-45CaseTree-n--5776-3965-u--getSet arg-1 arg-2 arg-3 arg-5 e-11))) (else (let ((e-13 (vector-ref arg-6 1))) (CoreC-45CaseTree-n--5776-3965-u--getSet arg-1 arg-2 arg-3 arg-5 e-13)))))) +(define CoreC-45CaseTree-u--weakenNs_Weaken_CaseTree (lambda (arg-2 arg-3) (CoreC-45CaseTree-insertCaseNames (CoreC-45TTC-45SizeOf-zero) arg-2 arg-3))) +(define CoreC-45CaseTree-u--trimNS_StripNamespace_C-40CaseTreeC-32C-36varsC-41 (lambda (arg-1 arg-2) (case (vector-ref arg-2 0) ((0) (let ((e-1 (vector-ref arg-2 1))) (let ((e-2 (vector-ref arg-2 2))) (let ((e-4 (vector-ref arg-2 3))) (let ((e-5 (vector-ref arg-2 4))) (vector 0 e-1 e-2 (CoreC-45TT-u--trimNS_StripNamespace_C-40TermC-32C-36varsC-41 arg-1 e-4) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45CaseTree-u--trimNS_StripNamespace_C-40CaseAltC-32C-36varsC-41 arg-1 eta-0)) e-5))))))) ((1) (let ((e-7 (vector-ref arg-2 1))) (let ((e-8 (vector-ref arg-2 2))) (vector 1 e-7 (CoreC-45TT-u--trimNS_StripNamespace_C-40TermC-32C-36varsC-41 arg-1 e-8)))))(else arg-2)))) +(define CoreC-45CaseTree-u--trimNS_StripNamespace_C-40CaseAltC-32C-36varsC-41 (lambda (arg-1 arg-2) (case (vector-ref arg-2 0) ((0) (let ((e-1 (vector-ref arg-2 1))) (let ((e-2 (vector-ref arg-2 2))) (let ((e-3 (vector-ref arg-2 3))) (let ((e-4 (vector-ref arg-2 4))) (vector 0 e-1 e-2 e-3 (CoreC-45CaseTree-u--trimNS_StripNamespace_C-40CaseTreeC-32C-36varsC-41 arg-1 e-4))))))) ((1) (let ((e-6 (vector-ref arg-2 1))) (let ((e-7 (vector-ref arg-2 2))) (let ((e-8 (vector-ref arg-2 3))) (vector 1 e-6 e-7 (CoreC-45CaseTree-u--trimNS_StripNamespace_C-40CaseTreeC-32C-36varsC-41 arg-1 e-8)))))) ((2) (let ((e-10 (vector-ref arg-2 1))) (let ((e-11 (vector-ref arg-2 2))) (vector 2 e-10 (CoreC-45CaseTree-u--trimNS_StripNamespace_C-40CaseTreeC-32C-36varsC-41 arg-1 e-11))))) (else (let ((e-13 (vector-ref arg-2 1))) (vector 3 (CoreC-45CaseTree-u--trimNS_StripNamespace_C-40CaseTreeC-32C-36varsC-41 arg-1 e-13))))))) +(define CoreC-45CaseTree-u--show_Show_Pat (lambda (arg-0) (case (vector-ref arg-0 0) ((0) (let ((e-1 (vector-ref arg-0 2))) (let ((e-2 (vector-ref arg-0 3))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-1) (PreludeC-45TypesC-45String-C-43C-43 "@(" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45CaseTree-u--show_Show_Pat e-2) ")")))))) ((1) (let ((e-4 (vector-ref arg-0 2))) (let ((e-5 (vector-ref arg-0 3))) (let ((e-7 (vector-ref arg-0 5))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-4) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Int e-5) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45CaseTree-u--show_Show_Pat u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45CaseTree-u--showPrec_Show_Pat u--d u--x)))) e-7))))))))) ((2) (let ((e-9 (vector-ref arg-0 2))) (let ((e-11 (vector-ref arg-0 4))) (PreludeC-45TypesC-45String-C-43C-43 "" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-9) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45CaseTree-u--show_Show_Pat u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45CaseTree-u--showPrec_Show_Pat u--d u--x)))) e-11))))))) ((3) (let ((e-13 (vector-ref arg-0 2))) (CoreC-45TT-u--show_Show_Constant e-13))) ((4) (let ((e-16 (vector-ref arg-0 3))) (let ((e-17 (vector-ref arg-0 4))) (PreludeC-45TypesC-45String-C-43C-43 "(" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45CaseTree-u--show_Show_Pat e-16) (PreludeC-45TypesC-45String-C-43C-43 " -> " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45CaseTree-u--show_Show_Pat e-17) ")"))))))) ((5) (let ((e-21 (vector-ref arg-0 4))) (PreludeC-45TypesC-45String-C-43C-43 "(Delay " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45CaseTree-u--show_Show_Pat e-21) ")")))) ((6) (let ((e-23 (vector-ref arg-0 2))) (CoreC-45Name-u--show_Show_Name e-23))) (else (let ((e-25 (vector-ref arg-0 2))) (PreludeC-45TypesC-45String-C-43C-43 ".(" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-25) ")"))))))) +(define CoreC-45CaseTree-u--show_Show_C-40CaseTreeC-32C-36varsC-41 (lambda (arg-0 ext-0) (CoreC-45CaseTree-showCT arg-0 "" ext-0))) +(define CoreC-45CaseTree-u--show_Show_C-40CaseAltC-32C-36varsC-41 (lambda (arg-0 ext-0) (CoreC-45CaseTree-showCA arg-0 "" ext-0))) +(define CoreC-45CaseTree-u--showPrec_Show_Pat (lambda (arg-0 arg-1) (CoreC-45CaseTree-u--show_Show_Pat arg-1))) +(define CoreC-45CaseTree-u--restoreNS_StripNamespace_C-40CaseTreeC-32C-36varsC-41 (lambda (arg-1 arg-2) (case (vector-ref arg-2 0) ((0) (let ((e-1 (vector-ref arg-2 1))) (let ((e-2 (vector-ref arg-2 2))) (let ((e-4 (vector-ref arg-2 3))) (let ((e-5 (vector-ref arg-2 4))) (vector 0 e-1 e-2 (CoreC-45TT-u--restoreNS_StripNamespace_C-40TermC-32C-36varsC-41 arg-1 e-4) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45CaseTree-u--restoreNS_StripNamespace_C-40CaseAltC-32C-36varsC-41 arg-1 eta-0)) e-5))))))) ((1) (let ((e-7 (vector-ref arg-2 1))) (let ((e-8 (vector-ref arg-2 2))) (vector 1 e-7 (CoreC-45TT-u--restoreNS_StripNamespace_C-40TermC-32C-36varsC-41 arg-1 e-8)))))(else arg-2)))) +(define CoreC-45CaseTree-u--restoreNS_StripNamespace_C-40CaseAltC-32C-36varsC-41 (lambda (arg-1 arg-2) (case (vector-ref arg-2 0) ((0) (let ((e-1 (vector-ref arg-2 1))) (let ((e-2 (vector-ref arg-2 2))) (let ((e-3 (vector-ref arg-2 3))) (let ((e-4 (vector-ref arg-2 4))) (vector 0 e-1 e-2 e-3 (CoreC-45CaseTree-u--restoreNS_StripNamespace_C-40CaseTreeC-32C-36varsC-41 arg-1 e-4))))))) ((1) (let ((e-6 (vector-ref arg-2 1))) (let ((e-7 (vector-ref arg-2 2))) (let ((e-8 (vector-ref arg-2 3))) (vector 1 e-6 e-7 (CoreC-45CaseTree-u--restoreNS_StripNamespace_C-40CaseTreeC-32C-36varsC-41 arg-1 e-8)))))) ((2) (let ((e-10 (vector-ref arg-2 1))) (let ((e-11 (vector-ref arg-2 2))) (vector 2 e-10 (CoreC-45CaseTree-u--restoreNS_StripNamespace_C-40CaseTreeC-32C-36varsC-41 arg-1 e-11))))) (else (let ((e-13 (vector-ref arg-2 1))) (vector 3 (CoreC-45CaseTree-u--restoreNS_StripNamespace_C-40CaseTreeC-32C-36varsC-41 arg-1 e-13))))))) +(define CoreC-45CaseTree-u--pretty_Pretty_Pat (lambda (arg-1) (CoreC-45CaseTree-u--prettyPrec_Pretty_Pat (vector 0 ) arg-1))) +(define CoreC-45CaseTree-u--pretty_Pretty_C-40CaseTreeC-32C-36varsC-41 (lambda (arg-1 arg-2) (case (vector-ref arg-2 0) ((0) (let ((e-1 (vector-ref arg-2 1))) (let ((e-4 (vector-ref arg-2 3))) (let ((e-5 (vector-ref arg-2 4))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "case") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (CoreC-45Name-u--pretty_Pretty_Name e-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 ":") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (CoreC-45TT-u--pretty_Pretty_C-40TermC-32C-36varsC-41 arg-1 e-4) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "of") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-nest 2 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-hardline) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45CaseTree-u--pretty_Pretty_C-40CaseAltC-32C-36varsC-41 arg-1 eta-0)) e-5))))))))))))) ((1) (let ((e-8 (vector-ref arg-2 2))) (CoreC-45TT-u--pretty_Pretty_C-40TermC-32C-36varsC-41 arg-1 e-8))) ((2) (let ((e-10 (vector-ref arg-2 1))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "Error:") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String e-10)))) (else (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "Impossible"))))) +(define CoreC-45CaseTree-u--pretty_Pretty_C-40CaseAltC-32C-36varsC-41 (lambda (arg-1 arg-2) (case (vector-ref arg-2 0) ((0) (let ((e-1 (vector-ref arg-2 1))) (let ((e-3 (vector-ref arg-2 3))) (let ((e-4 (vector-ref arg-2 4))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-hsep (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45Name-u--pretty_Pretty_Name eta-0)) (cons e-1 e-3))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "=>") (vector 7 (lambda () (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-spaces 1) (CoreC-45CaseTree-u--pretty_Pretty_C-40CaseTreeC-32C-36varsC-41 (PreludeC-45TypesC-45List-C-43C-43 e-3 arg-1) e-4))) (lambda () (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-nest 2 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-hardline) (CoreC-45CaseTree-u--pretty_Pretty_C-40CaseTreeC-32C-36varsC-41 (PreludeC-45TypesC-45List-C-43C-43 e-3 arg-1) e-4))))))))))) ((1) (let ((e-6 (vector-ref arg-2 1))) (let ((e-7 (vector-ref arg-2 2))) (let ((e-8 (vector-ref arg-2 3))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "Delay") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (CoreC-45Name-u--pretty_Pretty_Name e-7) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "=>") (vector 7 (lambda () (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-spaces 1) (CoreC-45CaseTree-u--pretty_Pretty_C-40CaseTreeC-32C-36varsC-41 (cons e-6 (cons e-7 arg-1)) e-8))) (lambda () (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-nest 2 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-hardline) (CoreC-45CaseTree-u--pretty_Pretty_C-40CaseTreeC-32C-36varsC-41 (cons e-6 (cons e-7 arg-1)) e-8)))))))))))) ((2) (let ((e-10 (vector-ref arg-2 1))) (let ((e-11 (vector-ref arg-2 2))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (CoreC-45TT-u--pretty_Pretty_Constant e-10) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "=>") (vector 7 (lambda () (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-spaces 1) (CoreC-45CaseTree-u--pretty_Pretty_C-40CaseTreeC-32C-36varsC-41 arg-1 e-11))) (lambda () (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-nest 2 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-hardline) (CoreC-45CaseTree-u--pretty_Pretty_C-40CaseTreeC-32C-36varsC-41 arg-1 e-11)))))))))) (else (let ((e-13 (vector-ref arg-2 1))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "_ =>") (vector 7 (lambda () (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-spaces 1) (CoreC-45CaseTree-u--pretty_Pretty_C-40CaseTreeC-32C-36varsC-41 arg-1 e-13))) (lambda () (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-nest 2 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-hardline) (CoreC-45CaseTree-u--pretty_Pretty_C-40CaseTreeC-32C-36varsC-41 arg-1 e-13))))))))))) +(define CoreC-45CaseTree-u--prettyPrec_Pretty_Pat (lambda (arg-1 arg-2) (case (vector-ref arg-2 0) ((0) (let ((e-1 (vector-ref arg-2 2))) (let ((e-2 (vector-ref arg-2 3))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (CoreC-45Name-u--pretty_Pretty_Name e-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "@") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-parens (CoreC-45CaseTree-u--pretty_Pretty_Pat e-2))))))) ((1) (let ((e-4 (vector-ref arg-2 2))) (let ((e-7 (vector-ref arg-2 5))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-parenthesise (PreludeC-45Show-u--C-62_Ord_Prec arg-1 (vector 0 )) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-hsep (cons (CoreC-45Name-u--pretty_Pretty_Name e-4) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45CaseTree-u--prettyPrec_Pretty_Pat (vector 6 ) eta-0)) e-7))))))) ((2) (let ((e-9 (vector-ref arg-2 2))) (let ((e-11 (vector-ref arg-2 4))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-parenthesise (PreludeC-45Show-u--C-62_Ord_Prec arg-1 (vector 0 )) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-hsep (cons (CoreC-45Name-u--pretty_Pretty_Name e-9) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45CaseTree-u--prettyPrec_Pretty_Pat (vector 6 ) eta-0)) e-11))))))) ((3) (let ((e-13 (vector-ref arg-2 2))) (CoreC-45TT-u--pretty_Pretty_Constant e-13))) ((4) (let ((e-16 (vector-ref arg-2 3))) (let ((e-17 (vector-ref arg-2 4))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-parenthesise (PreludeC-45Show-u--C-62_Ord_Prec arg-1 (vector 0 )) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (CoreC-45CaseTree-u--pretty_Pretty_Pat e-16) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "->") (CoreC-45CaseTree-u--pretty_Pretty_Pat e-17))))))) ((5) (let ((e-21 (vector-ref arg-2 4))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-parens (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "Delay") (CoreC-45CaseTree-u--pretty_Pretty_Pat e-21))))) ((6) (let ((e-23 (vector-ref arg-2 2))) (CoreC-45Name-u--pretty_Pretty_Name e-23))) (else (let ((e-25 (vector-ref arg-2 2))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String ".") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-parens (CoreC-45TT-u--pretty_Pretty_C-40TermC-32C-36varsC-41 '() e-25)))))))) +(define CoreC-45CaseTree-showCT (lambda (arg-0 arg-1 arg-2) (case (vector-ref arg-2 0) ((0) (let ((e-1 (vector-ref arg-2 1))) (let ((e-2 (vector-ref arg-2 2))) (let ((e-4 (vector-ref arg-2 3))) (let ((e-5 (vector-ref arg-2 4))) (PreludeC-45TypesC-45String-C-43C-43 "case " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-1) (PreludeC-45TypesC-45String-C-43C-43 "[" (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Nat e-2) (PreludeC-45TypesC-45String-C-43C-43 "] : " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 e-4) (PreludeC-45TypesC-45String-C-43C-43 " of" (PreludeC-45TypesC-45String-C-43C-43 "\u000a" (PreludeC-45TypesC-45String-C-43C-43 arg-1 (PreludeC-45TypesC-45String-C-43C-43 " { " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-showSep (PreludeC-45TypesC-45String-C-43C-43 "\u000a" (PreludeC-45TypesC-45String-C-43C-43 arg-1 " | ")) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45CaseTree-showCA arg-0 (PreludeC-45TypesC-45String-C-43C-43 " " arg-1) eta-0)) e-5)) (PreludeC-45TypesC-45String-C-43C-43 "\u000a" (PreludeC-45TypesC-45String-C-43C-43 arg-1 " }")))))))))))))))))) ((1) (let ((e-7 (vector-ref arg-2 1))) (let ((e-8 (vector-ref arg-2 2))) (PreludeC-45TypesC-45String-C-43C-43 "[" (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Int e-7) (PreludeC-45TypesC-45String-C-43C-43 "] " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 e-8))))))) ((2) (let ((e-10 (vector-ref arg-2 1))) (PreludeC-45TypesC-45String-C-43C-43 "Error: " (PreludeC-45Show-u--show_Show_String e-10)))) (else "Impossible")))) +(define CoreC-45CaseTree-showCA (lambda (arg-0 arg-1 arg-2) (case (vector-ref arg-2 0) ((0) (let ((e-1 (vector-ref arg-2 1))) (let ((e-3 (vector-ref arg-2 3))) (let ((e-4 (vector-ref arg-2 4))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-showSep " " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45Name-u--show_Show_Name eta-0)) (cons e-1 e-3))) (PreludeC-45TypesC-45String-C-43C-43 " => " (CoreC-45CaseTree-showCT (PreludeC-45TypesC-45List-C-43C-43 e-3 arg-0) arg-1 e-4))))))) ((1) (let ((e-6 (vector-ref arg-2 1))) (let ((e-7 (vector-ref arg-2 2))) (let ((e-8 (vector-ref arg-2 3))) (PreludeC-45TypesC-45String-C-43C-43 "Delay " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-7) (PreludeC-45TypesC-45String-C-43C-43 " => " (CoreC-45CaseTree-showCT (cons e-6 (cons e-7 arg-0)) arg-1 e-8)))))))) ((2) (let ((e-10 (vector-ref arg-2 1))) (let ((e-11 (vector-ref arg-2 2))) (PreludeC-45TypesC-45String-C-43C-43 "Constant " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_Constant e-10) (PreludeC-45TypesC-45String-C-43C-43 " => " (CoreC-45CaseTree-showCT arg-0 arg-1 e-11))))))) (else (let ((e-13 (vector-ref arg-2 1))) (PreludeC-45TypesC-45String-C-43C-43 "_ => " (CoreC-45CaseTree-showCT arg-0 arg-1 e-13))))))) +(define CoreC-45CaseTree-mkTerm (lambda (arg-0 arg-1) (case (vector-ref arg-1 0) ((0) (let ((e-2 (vector-ref arg-1 3))) (CoreC-45CaseTree-mkTerm arg-0 e-2))) ((1) (let ((e-3 (vector-ref arg-1 1))) (let ((e-4 (vector-ref arg-1 2))) (let ((e-5 (vector-ref arg-1 3))) (let ((e-6 (vector-ref arg-1 4))) (let ((e-7 (vector-ref arg-1 5))) (CoreC-45TT-apply e-3 (vector 1 e-3 (vector 2 e-5 e-6) e-4) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45CaseTree-mkTerm arg-0 eta-0)) e-7)))))))) ((2) (let ((e-8 (vector-ref arg-1 1))) (let ((e-9 (vector-ref arg-1 2))) (let ((e-10 (vector-ref arg-1 3))) (let ((e-11 (vector-ref arg-1 4))) (CoreC-45TT-apply e-8 (vector 1 e-8 (vector 3 0 e-10) e-9) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45CaseTree-mkTerm arg-0 eta-0)) e-11))))))) ((3) (let ((e-12 (vector-ref arg-1 1))) (let ((e-13 (vector-ref arg-1 2))) (vector 9 e-12 e-13)))) ((4) (let ((e-14 (vector-ref arg-1 1))) (let ((e-15 (vector-ref arg-1 2))) (let ((e-16 (vector-ref arg-1 3))) (let ((e-17 (vector-ref arg-1 4))) (vector 3 e-14 e-15 (vector 2 e-14 (AlgebraC-45ZeroOneOmega-u--top_Top_ZeroOneOmega) (vector 1 ) (CoreC-45CaseTree-mkTerm arg-0 e-16)) (CoreC-45CaseTree-mkTerm (cons e-15 arg-0) e-17))))))) ((5) (let ((e-18 (vector-ref arg-1 1))) (let ((e-19 (vector-ref arg-1 2))) (let ((e-20 (vector-ref arg-1 3))) (let ((e-21 (vector-ref arg-1 4))) (vector 7 e-18 e-19 (CoreC-45CaseTree-mkTerm arg-0 e-20) (CoreC-45CaseTree-mkTerm arg-0 e-21))))))) ((6) (let ((e-22 (vector-ref arg-1 1))) (let ((e-23 (vector-ref arg-1 2))) (let ((sc1 (CoreC-45TT-isVar e-23 arg-0))) (if (null? sc1) (vector 1 e-22 (vector 0 ) e-23) (let ((e-1 (unbox sc1))) (vector 0 e-22 '() e-1))))))) (else (let ((e-25 (vector-ref arg-1 2))) (CoreC-45TT-embed e-25)))))) +(define CoreC-45CaseTree-isPConst (lambda (arg-0) (case (vector-ref arg-0 0) ((3) (let ((e-1 (vector-ref arg-0 2))) (box e-1)))(else '())))) +(define CoreC-45CaseTree-isDefault (lambda (arg-1) (case (vector-ref arg-1 0) ((3) 1)(else 0)))) +(define CoreC-45CaseTree-insertCaseNames (lambda (arg-3 arg-4 arg-5) (case (vector-ref arg-5 0) ((0) (let ((e-1 (vector-ref arg-5 1))) (let ((e-2 (vector-ref arg-5 2))) (let ((e-4 (vector-ref arg-5 3))) (let ((e-5 (vector-ref arg-5 4))) (vector 0 e-1 (CoreC-45TT-insertNVarNames arg-3 arg-4 e-2) (CoreC-45TT-insertNames arg-3 arg-4 e-4) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45CaseTree-insertCaseAltNames arg-3 arg-4 eta-0)) e-5))))))) ((1) (let ((e-7 (vector-ref arg-5 1))) (let ((e-8 (vector-ref arg-5 2))) (vector 1 e-7 (CoreC-45TT-insertNames arg-3 arg-4 e-8))))) ((2) (let ((e-10 (vector-ref arg-5 1))) (vector 2 e-10))) (else (vector 3 ))))) +(define CoreC-45CaseTree-insertCaseAltNames (lambda (arg-3 arg-4 arg-5) (case (vector-ref arg-5 0) ((0) (let ((e-1 (vector-ref arg-5 1))) (let ((e-2 (vector-ref arg-5 2))) (let ((e-3 (vector-ref arg-5 3))) (let ((e-4 (vector-ref arg-5 4))) (vector 0 e-1 e-2 e-3 (CoreC-45CaseTree-insertCaseNames (CoreC-45TTC-45SizeOf-C-43 (CoreC-45TTC-45SizeOf-mkSizeOf e-3) arg-3) arg-4 e-4))))))) ((1) (let ((e-6 (vector-ref arg-5 1))) (let ((e-7 (vector-ref arg-5 2))) (let ((e-8 (vector-ref arg-5 3))) (vector 1 e-6 e-7 (CoreC-45CaseTree-insertCaseNames (CoreC-45TTC-45SizeOf-suc (CoreC-45TTC-45SizeOf-suc arg-3)) arg-4 e-8)))))) ((2) (let ((e-10 (vector-ref arg-5 1))) (let ((e-11 (vector-ref arg-5 2))) (vector 2 e-10 (CoreC-45CaseTree-insertCaseNames arg-3 arg-4 e-11))))) (else (let ((e-13 (vector-ref arg-5 1))) (vector 3 (CoreC-45CaseTree-insertCaseNames arg-3 arg-4 e-13))))))) +(define CoreC-45CaseTree-getNames (lambda (arg-1 arg-2 arg-3) (CoreC-45CaseTree-n--5776-3965-u--getSet arg-3 arg-2 arg-1 arg-2 arg-3))) +(define CoreC-45CaseTree-getMetas (lambda (ext-0) (CoreC-45CaseTree-getNames (lambda (vs-4055) (lambda (eta-0) (lambda (eta-1) (CoreC-45TT-addMetas eta-0 eta-1)))) (LibrariesC-45DataC-45NameMap-empty) ext-0))) +(define CoreC-45CaseTree-addRefs (lambda (arg-1 arg-2 ext-0) (CoreC-45CaseTree-getNames (lambda (vs-4046) (lambda (eta-0) (lambda (eta-1) (CoreC-45TT-addRefs 0 arg-1 eta-0 eta-1)))) arg-2 ext-0))) +(define CoreC-45Directory-n--6409-1326-u--findIpkgFileC-39 (lambda (arg-0 arg-1 ext-0) (let ((act-24 (CoreC-45Directory-dirEntries arg-0 ext-0))) (case (vector-ref act-24 0) ((1) (let ((e-2 (vector-ref act-24 1))) (let ((sc1 (DataC-45List-find (lambda (u--f) (PreludeC-45Types-u--C-61C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_String arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_String arg-4 arg-5)))) (LibrariesC-45UtilsC-45Path-extension u--f) (box "ipkg"))) e-2))) (if (null? sc1) (let ((sc2 (LibrariesC-45UtilsC-45Path-splitParent arg-0))) (if (null? sc2) '() (let ((e-1 (unbox sc2))) (let ((e-5 (car e-1))) (let ((e-6 (cdr e-1))) (CoreC-45Directory-n--6409-1326-u--findIpkgFileC-39 e-5 (LibrariesC-45UtilsC-45Path-C-60C-47C-62 e-6 arg-1) ext-0)))))) (let ((e-1 (unbox sc1))) (box (cons arg-0 (cons e-1 arg-1)))))))) (else '()))))) +(define CoreC-45Directory-u--show_Show_IdrSrcExt (lambda (arg-0) (cond ((equal? arg-0 0) "idr") ((equal? arg-0 1) "lidr") ((equal? arg-0 2) "yaff") ((equal? arg-0 3) "org") (else "md")))) +(define CoreC-45Directory-readDataFile (lambda (arg-0 arg-1 ext-0) (let ((act-24 (CoreC-45Directory-findDataFile arg-0 arg-1 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (let ((act-25 ((SystemC-45File-readFile (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-25 (arg-811 eta-0))) ((arg-812 act-25) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-51 (arg-814 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) e-5) ext-0))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (case (vector-ref e-6 0) ((1) (let ((e-2 (vector-ref e-6 1))) (vector 1 e-2))) (else (let ((e-7 (vector-ref e-6 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 49 e-5 e-7) ext-0)))))))))))))) +(define CoreC-45Directory-nsToSource (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (CoreC-45Context-getDirs arg-0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((u--fnameOrig (CoreC-45NameC-45NamespaceC-45ModuleIdent-toPath arg-2))) (let ((u--fnameBase (PreludeC-45Types-maybe (lambda () u--fnameOrig) (lambda () (lambda (u--srcdir) (LibrariesC-45UtilsC-45Path-C-60C-47C-62 u--srcdir u--fnameOrig))) (let ((e-1 (vector-ref e-5 1))) e-1)))) (let ((u--fs (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (LibrariesC-45UtilsC-45Path-C-60C-46C-62 u--fnameBase (CoreC-45Directory-u--show_Show_IdrSrcExt eta-0))) (CoreC-45Directory-listOfExtensions)))) (let ((act-25 (CoreC-45Directory-firstAvailable arg-0 u--fs ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (if (null? e-6) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 54 arg-1 arg-2) ext-0) (let ((e-1 (unbox e-6))) (vector 1 e-1)))))))))))))))) +(define CoreC-45Directory-nsToPath (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (CoreC-45Context-getDirs arg-0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((u--fnameBase (CoreC-45NameC-45NamespaceC-45ModuleIdent-toPath arg-2))) (let ((u--fs (PreludeC-45Types-u--map_Functor_List (lambda (u--p) (LibrariesC-45UtilsC-45Path-C-60C-47C-62 u--p (LibrariesC-45UtilsC-45Path-C-60C-46C-62 u--fnameBase "ttc"))) (cons (LibrariesC-45UtilsC-45Path-C-60C-47C-62 (let ((e-2 (vector-ref e-5 2))) e-2) "ttc") (let ((e-6 (vector-ref e-5 6))) e-6))))) (let ((act-25 (CoreC-45Directory-firstAvailable arg-0 u--fs ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (if (null? e-6) (vector 1 (vector 0 (vector 54 arg-1 arg-2))) (let ((e-1 (unbox e-6))) (vector 1 (vector 1 e-1)))))))))))))))) +(define CoreC-45Directory-mkdirAll (lambda (arg-0 ext-0) (let ((sc0 (LibrariesC-45UtilsC-45Path-u--C-61C-61_Eq_Path (LibrariesC-45UtilsC-45Path-parse arg-0) (LibrariesC-45UtilsC-45Path-emptyPath)))) (cond ((equal? sc0 1) (vector 1 0)) (else (let ((act-24 (CoreC-45Directory-dirExists arg-0 ext-0))) (cond ((equal? act-24 1) (vector 1 0)) (else (let ((act-25 (let ((sc2 (LibrariesC-45UtilsC-45Path-parent arg-0))) (if (null? sc2) (vector 1 0) (let ((e-1 (unbox sc2))) (CoreC-45Directory-mkdirAll e-1 ext-0)))))) (case (vector-ref act-25 0) ((1) (let ((e-2 (vector-ref act-25 1))) (cond ((equal? e-2 0) ((SystemC-45Directory-createDir (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-26 (arg-811 eta-0))) ((arg-812 act-26) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-51 (arg-814 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) arg-0) ext-0))(else act-25))))(else act-25))))))))))) +(define CoreC-45Directory-mbPathToNS (lambda (arg-0 arg-1 arg-2) (let ((u--sdir (DataC-45Maybe-fromMaybe (lambda () "") arg-1))) (let ((u--base (let ((sc0 (LibrariesC-45UtilsC-45Path-isAbsolute arg-2))) (cond ((equal? sc0 1) (LibrariesC-45UtilsC-45Path-C-60C-47C-62 arg-0 u--sdir)) (else u--sdir))))) (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (PreludeC-45Types-u--map_Functor_Maybe eta-2 eta-3))))) (lambda (eta-0) (CoreC-45NameC-45Namespace-unsafeFoldModuleIdent (DataC-45List-reverse (LibrariesC-45UtilsC-45Path-splitPath (LibrariesC-45UtilsC-45Path-dropExtension eta-0))))) (LibrariesC-45UtilsC-45Path-dropBase u--base arg-2)))))) +(define CoreC-45Directory-makeBuildDirectory (lambda (arg-0 arg-1 ext-0) (let ((act-24 (CoreC-45Context-getDirs arg-0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((u--bdir (LibrariesC-45UtilsC-45Path-C-60C-47C-62 (let ((e-2 (vector-ref e-5 2))) e-2) "ttc"))) (let ((u--ns (DataC-45List-reverse (DataC-45Maybe-fromMaybe (lambda () '()) (DataC-45List-tailC-39 (CoreC-45NameC-45Namespace-unsafeUnfoldModuleIdent arg-1)))))) (let ((u--ndir (LibrariesC-45UtilsC-45Path-joinPath u--ns))) (let ((act-25 (let ((act-25 (CoreC-45Directory-mkdirAll (LibrariesC-45UtilsC-45Path-C-60C-47C-62 u--bdir u--ndir) ext-0))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (case (vector-ref e-6 0) ((1) (vector 1 0)) (else (let ((e-7 (vector-ref e-6 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 49 (LibrariesC-45UtilsC-45Path-C-60C-47C-62 (let ((e-2 (vector-ref e-5 2))) e-2) u--ndir) e-7) ext-0))))))))))))))))) +(define CoreC-45Directory-listOfExtensions (lambda () (cons 0 (cons 1 (cons 2 (cons 3 (cons 4 '()))))))) +(define CoreC-45Directory-getTTCFileName (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (CoreC-45Directory-ctxtPathToNS arg-0 arg-1 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((u--fname (LibrariesC-45UtilsC-45Path-C-60C-46C-62 (CoreC-45NameC-45NamespaceC-45ModuleIdent-toPath e-5) arg-2))) (let ((act-25 (CoreC-45Context-getDirs arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((u--bdir (let ((e-2 (vector-ref e-6 2))) e-2))) (vector 1 (LibrariesC-45UtilsC-45Path-C-60C-47C-62 u--bdir (LibrariesC-45UtilsC-45Path-C-60C-47C-62 "ttc" u--fname))))))))))))))) +(define CoreC-45Directory-getEntries (lambda (arg-0 ext-0) (let ((act-24 ((SystemC-45Directory-dirEntry (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-24 (arg-811 eta-0))) ((arg-812 act-24) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-51 (arg-814 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) arg-0) ext-0))) (case (vector-ref act-24 0) ((1) (let ((e-2 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Directory-getEntries arg-0 ext-0))) (cons e-2 act-25)))) (else '()))))) +(define CoreC-45Directory-firstAvailable (lambda (arg-0 arg-1 ext-0) (if (null? arg-1) (vector 1 '()) (let ((e-2 (car arg-1))) (let ((e-3 (cdr arg-1))) (let ((act-24 (CoreC-45ContextC-45Log-log arg-0 "import.file" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))))))))))))))))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Attempting to read " e-2)) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((act-25 (let ((act-25 ((SystemC-45File-openFile (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-25 (arg-811 eta-0))) ((arg-812 act-25) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-51 (arg-814 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) e-2 0) ext-0))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref act-25 1))) (case (vector-ref e-6 0) ((1) (let ((e-4 (vector-ref e-6 1))) (let ((act-26 (let ((act-26 ((SystemC-45File-closeFile (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-26 (arg-811 eta-0))) ((arg-812 act-26) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-51 (arg-814 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) e-4) ext-0))) (vector 1 act-26)))) (case (vector-ref act-26 0) ((0) (let ((e-7 (vector-ref act-26 1))) (vector 0 e-7))) (else (vector 1 (box e-2))))))) (else (CoreC-45Directory-firstAvailable arg-0 e-3 ext-0))))))))))))))) +(define CoreC-45Directory-findLibraryFile (lambda (arg-0 arg-1 ext-0) (let ((act-24 (CoreC-45Context-getDirs arg-0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((u--fs (PreludeC-45Types-u--map_Functor_List (lambda (u--p) (LibrariesC-45UtilsC-45Path-C-60C-47C-62 u--p arg-1)) (PreludeC-45TypesC-45List-C-43C-43 (let ((e-8 (vector-ref e-5 8))) e-8) (PreludeC-45Types-u--map_Functor_List (lambda (u--x) (LibrariesC-45UtilsC-45Path-C-60C-47C-62 u--x "lib")) (let ((e-6 (vector-ref e-5 6))) e-6)))))) (let ((act-25 (CoreC-45Directory-firstAvailable arg-0 u--fs ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (if (null? e-6) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 (PreludeC-45TypesC-45String-C-43C-43 "Can't find library " arg-1)) ext-0) (let ((e-1 (unbox e-6))) (vector 1 e-1)))))))))))))) +(define CoreC-45Directory-findIpkgFile (lambda (ext-0) (let ((act-24 ((SystemC-45Directory-currentDir (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-24 (arg-811 eta-0))) ((arg-812 act-24) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-51 (arg-814 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-6881) arg-6881)))) ext-0))) (if (null? act-24) '() (let ((e-1 (unbox act-24))) (let ((act-25 (CoreC-45Directory-n--6409-1326-u--findIpkgFileC-39 e-1 "" ext-0))) act-25)))))) +(define CoreC-45Directory-findDataFile (lambda (arg-0 arg-1 ext-0) (let ((act-24 (CoreC-45Context-getDirs arg-0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((u--fs (PreludeC-45Types-u--map_Functor_List (lambda (u--p) (LibrariesC-45UtilsC-45Path-C-60C-47C-62 u--p arg-1)) (let ((e-9 (vector-ref e-5 9))) e-9)))) (let ((act-25 (CoreC-45Directory-firstAvailable arg-0 u--fs ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (if (null? e-6) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 (PreludeC-45TypesC-45String-C-43C-43 "Can't find data file " (PreludeC-45TypesC-45String-C-43C-43 arg-1 (PreludeC-45TypesC-45String-C-43C-43 " in any of " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_String u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_String u--d u--x)))) u--fs))))) ext-0) (let ((e-1 (unbox e-6))) (vector 1 e-1)))))))))))))) +(define CoreC-45Directory-ensureDirectoryExists (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (CoreC-45Directory-mkdirAll arg-0 ext-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (case (vector-ref e-5 0) ((1) (vector 1 0)) (else (let ((e-6 (vector-ref e-5 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 49 arg-0 e-6) ext-0)))))))))) +(define CoreC-45Directory-dirExists (lambda (arg-0 ext-0) (let ((act-24 ((SystemC-45Directory-openDir (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-24 (arg-811 eta-0))) ((arg-812 act-24) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-51 (arg-814 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) arg-0) ext-0))) (case (vector-ref act-24 0) ((1) (let ((e-2 (vector-ref act-24 1))) ((PreludeC-45Interfaces-C-62C-62 (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-25 (arg-811 eta-0))) ((arg-812 act-25) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-29 (arg-814 eta-0))) (act-29 eta-0)))))) (SystemC-45Directory-closeDir (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-25 (arg-811 eta-0))) ((arg-812 act-25) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-51 (arg-814 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) e-2) (lambda () (lambda (eta-0) 1))) ext-0))) (else 0))))) +(define CoreC-45Directory-dirEntries (lambda (arg-0 ext-0) (let ((act-24 ((SystemC-45Directory-openDir (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-24 (arg-811 eta-0))) ((arg-812 act-24) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-51 (arg-814 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) arg-0) ext-0))) (case (vector-ref act-24 0) ((1) (let ((e-2 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Directory-getEntries e-2 ext-0))) ((PreludeC-45Interfaces-C-62C-62 (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-26 (arg-811 eta-0))) ((arg-812 act-26) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-29 (arg-814 eta-0))) (act-29 eta-0)))))) (SystemC-45Directory-closeDir (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-26 (arg-811 eta-0))) ((arg-812 act-26) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-51 (arg-814 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) e-2) (lambda () (lambda (eta-0) (vector 1 act-25)))) ext-0)))) (else (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))))))) +(define CoreC-45Directory-ctxtPathToNS (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((u--wdir (let ((e-4 (vector-ref e-5 4))) (let ((e-38 (vector-ref e-4 0))) (let ((e-48 (vector-ref e-38 0))) e-48))))) (let ((u--sdir (let ((e-4 (vector-ref e-5 4))) (let ((e-38 (vector-ref e-4 0))) (let ((e-47 (vector-ref e-38 1))) e-47))))) ((CoreC-45Directory-corePathToNS u--wdir u--sdir arg-1) ext-0))))))))) +(define CoreC-45Directory-corePathToNS (lambda (arg-0 arg-1 arg-2) (let ((u--err (vector 58 (PreludeC-45TypesC-45String-C-43C-43 "Source file " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_String arg-2) (PreludeC-45TypesC-45String-C-43C-43 " is not in the source directory " (PreludeC-45Show-u--show_Show_String (LibrariesC-45UtilsC-45Path-C-60C-47C-62 arg-0 (DataC-45Maybe-fromMaybe (lambda () "") arg-1))))))))) (PreludeC-45Types-maybe (lambda () (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error u--err eta-0))) (lambda () (lambda (eta-0) (lambda (eta-1) (vector 1 eta-0)))) (CoreC-45Directory-mbPathToNS arg-0 arg-1 arg-2))))) +(define CoreC-45ContextC-45Log-n--5946-5040-u--showTimeLog (lambda (arg-0 arg-1 ext-0) (let ((e-2 (car arg-1))) (let ((e-3 (cdr arg-1))) (let ((e-7 (cdr e-3))) (let ((act-24 (let ((act-24 ((PreludeC-45IO-putStr (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-24 (arg-811 eta-0))) ((arg-812 act-24) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-51 (arg-814 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) (PreludeC-45TypesC-45String-C-43C-43 e-2 ": ")) ext-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((act-25 ((PreludeC-45IO-putStrLn (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-25 (arg-811 eta-0))) ((arg-812 act-25) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-51 (arg-814 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Integer (PreludeC-45Num-u--div_Integral_Integer e-7 (CoreC-45ContextC-45Log-nano))) (PreludeC-45TypesC-45String-C-43C-43 "." (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45ContextC-45Log-n--5946-5039-u--addZeros arg-0 (PreludeC-45Types-fastUnpack (PreludeC-45Show-u--show_Show_Integer (PreludeC-45Num-u--div_Integral_Integer (PreludeC-45Num-u--mod_Integral_Integer e-7 (CoreC-45ContextC-45Log-nano)) (CoreC-45ContextC-45Log-micro))))) "s")))) ext-0))) (vector 1 act-25)))))))))) +(define CoreC-45ContextC-45Log-n--5946-5039-u--addZeros (lambda (arg-0 arg-1) (if (null? arg-1) "000" (let ((e-2 (car arg-1))) (let ((e-3 (cdr arg-1))) (if (null? e-3) (PreludeC-45TypesC-45String-C-43C-43 "00" (PreludeC-45Cast-u--cast_Cast_Char_String e-2)) (let ((e-6 (car e-3))) (let ((e-7 (cdr e-3))) (if (null? e-7) (PreludeC-45TypesC-45String-C-43C-43 "0" (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Cast-u--cast_Cast_Char_String e-2) (PreludeC-45Cast-u--cast_Cast_Char_String e-6))) (PreludeC-45Types-fastPack arg-1)))))))))) +(define CoreC-45ContextC-45Log-n--5462-4604-u--addZeros (lambda (arg-1 arg-2 arg-3 arg-4 arg-5) (if (null? arg-5) "000" (let ((e-2 (car arg-5))) (let ((e-3 (cdr arg-5))) (if (null? e-3) (PreludeC-45TypesC-45String-C-43C-43 "00" (PreludeC-45Cast-u--cast_Cast_Char_String e-2)) (let ((e-6 (car e-3))) (let ((e-7 (cdr e-3))) (if (null? e-7) (PreludeC-45TypesC-45String-C-43C-43 "0" (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Cast-u--cast_Cast_Char_String e-2) (PreludeC-45Cast-u--cast_Cast_Char_String e-6))) (PreludeC-45Types-fastPack arg-5)))))))))) +(define CoreC-45ContextC-45Log-unverifiedLogging (lambda (arg-0 arg-1 arg-2 ext-0) (cond ((equal? arg-2 0) (vector 1 1))(else (let ((act-24 (CoreC-45Context-getSession arg-0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (let ((sc1 (let ((e-19 (vector-ref e-5 5))) e-19))) (cond ((equal? sc1 1) (CoreC-45OptionsC-45Log-keepLog (CoreC-45OptionsC-45Log-mkUnverifiedLogLevel arg-1 arg-2) (let ((e-6 (vector-ref e-5 6))) e-6))) (else 0)))))))))))) +(define CoreC-45ContextC-45Log-unverifiedLogC (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (CoreC-45ContextC-45Log-unverifiedLogging arg-0 arg-1 arg-2 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (cond ((equal? e-5 1) (let ((act-25 (arg-3 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (cond ((equal? arg-1 "") (let ((act-26 ((PreludeC-45IO-putStrLn (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-26 (arg-811 eta-0))) ((arg-812 act-26) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-51 (arg-814 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) (PreludeC-45TypesC-45String-C-43C-43 "LOG " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Nat arg-2) (PreludeC-45TypesC-45String-C-43C-43 ": " e-6)))) ext-0))) (vector 1 act-26)))(else (let ((act-26 ((PreludeC-45IO-putStrLn (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-26 (arg-811 eta-0))) ((arg-812 act-26) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-51 (arg-814 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) (PreludeC-45TypesC-45String-C-43C-43 "LOG " (PreludeC-45TypesC-45String-C-43C-43 arg-1 (PreludeC-45TypesC-45String-C-43C-43 ":" (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Nat arg-2) (PreludeC-45TypesC-45String-C-43C-43 ": " e-6)))))) ext-0))) (vector 1 act-26))))))))) (else (vector 1 0))))))))) +(define CoreC-45ContextC-45Log-showTimeRecord (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (CoreC-45Core-traverse_ (lambda (eta-0) (lambda (eta-1) (CoreC-45ContextC-45Log-n--5946-5040-u--showTimeLog arg-0 eta-0 eta-1))) (LibrariesC-45DataC-45StringMap-toList (let ((e-26 (vector-ref e-5 26))) e-26)) ext-0))))))) +(define CoreC-45ContextC-45Log-nano (lambda () 1000000000)) +(define CoreC-45ContextC-45Log-micro (lambda () 1000000)) +(define CoreC-45ContextC-45Log-logTimeWhen (lambda (arg-1 arg-2 arg-3 arg-4) (cond ((equal? arg-2 1) (lambda (eta-0) (let ((act-24 (let ((act-24 (SystemC-45Clock-clockTime 3 eta-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((u--t (+ (* (SystemC-45Clock-seconds e-5) (CoreC-45ContextC-45Log-nano)) (SystemC-45Clock-nanoseconds e-5)))) (let ((act-25 (arg-4 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (let ((act-26 (SystemC-45Clock-clockTime 3 eta-0))) (vector 1 act-26)))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((u--tC-39 (+ (* (SystemC-45Clock-seconds e-7) (CoreC-45ContextC-45Log-nano)) (SystemC-45Clock-nanoseconds e-7)))) (let ((u--time (PreludeC-45Num-u--C-45_Neg_Integer u--tC-39 u--t))) (let ((act-27 (let ((act-27 ((PreludeC-45IO-putStrLn (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-1)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-1) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-1) (let ((act-17 (arg-528 eta-1))) (let ((act-16 (arg-530 eta-1))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-1) (let ((act-27 (arg-811 eta-1))) ((arg-812 act-27) eta-1))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-1) (let ((act-51 (arg-814 eta-1))) (act-51 eta-1)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) (PreludeC-45TypesC-45String-C-43C-43 "TIMING " (PreludeC-45TypesC-45String-C-43C-43 (arg-3) (PreludeC-45TypesC-45String-C-43C-43 ": " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Integer (PreludeC-45Num-u--div_Integral_Integer u--time (CoreC-45ContextC-45Log-nano))) (PreludeC-45TypesC-45String-C-43C-43 "." (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45ContextC-45Log-n--5462-4604-u--addZeros arg-4 arg-3 arg-2 arg-1 (PreludeC-45Types-fastUnpack (PreludeC-45Show-u--show_Show_Integer (PreludeC-45Num-u--div_Integral_Integer (PreludeC-45Num-u--mod_Integral_Integer u--time (CoreC-45ContextC-45Log-nano)) (CoreC-45ContextC-45Log-micro))))) "s"))))))) eta-0))) (vector 1 act-27)))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (vector 1 e-6))))))))))))))))))))) (else arg-4)))) +(define CoreC-45ContextC-45Log-logTime (lambda (arg-1 arg-2 arg-3 ext-0) (let ((act-24 (CoreC-45Context-getSession arg-1 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) ((CoreC-45ContextC-45Log-logTimeWhen arg-1 (let ((e-7 (vector-ref e-5 7))) e-7) arg-2 arg-3) ext-0))))))) +(define CoreC-45ContextC-45Log-logTerm (lambda (arg-0 arg-1 arg-2 arg-4 arg-5 arg-6 ext-0) (let ((act-24 (CoreC-45ContextC-45Log-unverifiedLogging arg-1 arg-2 arg-4 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (cond ((equal? e-5 1) (let ((act-25 (CoreC-45Context-toFullNames arg-1 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-0))))) arg-6 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (cond ((equal? arg-2 "") (let ((act-26 ((PreludeC-45IO-putStrLn (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-26 (arg-811 eta-0))) ((arg-812 act-26) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-51 (arg-814 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) (PreludeC-45TypesC-45String-C-43C-43 "LOG " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Nat arg-4) (PreludeC-45TypesC-45String-C-43C-43 ": " (PreludeC-45TypesC-45String-C-43C-43 (arg-5) (PreludeC-45TypesC-45String-C-43C-43 ": " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 e-6))))))) ext-0))) (vector 1 act-26)))(else (let ((act-26 ((PreludeC-45IO-putStrLn (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-26 (arg-811 eta-0))) ((arg-812 act-26) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-51 (arg-814 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) (PreludeC-45TypesC-45String-C-43C-43 "LOG " (PreludeC-45TypesC-45String-C-43C-43 arg-2 (PreludeC-45TypesC-45String-C-43C-43 ":" (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Nat arg-4) (PreludeC-45TypesC-45String-C-43C-43 ": " (PreludeC-45TypesC-45String-C-43C-43 (arg-5) (PreludeC-45TypesC-45String-C-43C-43 ": " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 e-6))))))))) ext-0))) (vector 1 act-26))))))))) (else (vector 1 0))))))))) +(define CoreC-45ContextC-45Log-log (lambda (arg-0 arg-1 arg-3 arg-4 ext-0) (let ((act-24 (CoreC-45ContextC-45Log-unverifiedLogging arg-0 arg-1 arg-3 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (cond ((equal? e-5 1) (cond ((equal? arg-1 "") (let ((act-25 ((PreludeC-45IO-putStrLn (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-25 (arg-811 eta-0))) ((arg-812 act-25) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-51 (arg-814 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) (PreludeC-45TypesC-45String-C-43C-43 "LOG " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Nat arg-3) (PreludeC-45TypesC-45String-C-43C-43 ": " (arg-4))))) ext-0))) (vector 1 act-25)))(else (let ((act-25 ((PreludeC-45IO-putStrLn (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-25 (arg-811 eta-0))) ((arg-812 act-25) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-51 (arg-814 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) (PreludeC-45TypesC-45String-C-43C-43 "LOG " (PreludeC-45TypesC-45String-C-43C-43 arg-1 (PreludeC-45TypesC-45String-C-43C-43 ":" (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Nat arg-3) (PreludeC-45TypesC-45String-C-43C-43 ": " (arg-4))))))) ext-0))) (vector 1 act-25))))) (else (vector 1 0))))))))) +(define CompilerC-45VMCode-n--6054-2412-u--toVMConstAlt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((e-0 (car arg-6))) (let ((e-1 (cdr arg-6))) (cons e-0 (CompilerC-45VMCode-toVM arg-5 arg-4 e-1)))))) +(define CompilerC-45VMCode-n--6054-2347-u--toVMConAlt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((e-0 (vector-ref arg-6 0))) (let ((e-2 (vector-ref arg-6 2))) (let ((e-3 (vector-ref arg-6 3))) (let ((e-4 (vector-ref arg-6 4))) (if (null? e-2) (cons (vector 1 e-0) (PreludeC-45TypesC-45List-C-43C-43 (CompilerC-45VMCode-n--6054-2346-u--projectArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 0 e-3) (CompilerC-45VMCode-toVM arg-5 arg-4 e-4))) (let ((e-6 (unbox e-2))) (cons (vector 0 e-6) (PreludeC-45TypesC-45List-C-43C-43 (CompilerC-45VMCode-n--6054-2346-u--projectArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 0 e-3) (CompilerC-45VMCode-toVM arg-5 arg-4 e-4))))))))))) +(define CompilerC-45VMCode-n--6054-2346-u--projectArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (if (null? arg-7) '() (let ((e-2 (car arg-7))) (let ((e-3 (cdr arg-7))) (cons (vector 12 (vector 1 e-2) (vector 1 arg-0) arg-6) (CompilerC-45VMCode-n--6054-2346-u--projectArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (bs+ arg-6 1 63) e-3))))))) +(define CompilerC-45VMCode-n--6290-2542-u--findVarAlt (lambda (arg-0 arg-1 arg-2 arg-3) (let ((e-3 (cdr arg-3))) (PreludeC-45Interfaces-concatMap (cons (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (cons (lambda (arg-4) (lambda (arg-5) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-4 arg-5))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) (lambda (eta-0) (CompilerC-45VMCode-findVars eta-0)) e-3)))) +(define CompilerC-45VMCode-n--6290-2593-u--findConstVarAlt (lambda (arg-0 arg-1 arg-2 arg-3) (let ((e-3 (cdr arg-3))) (PreludeC-45Interfaces-concatMap (cons (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (cons (lambda (arg-4) (lambda (arg-5) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-4 arg-5))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) (lambda (eta-0) (CompilerC-45VMCode-findVars eta-0)) e-3)))) +(define CompilerC-45VMCode-n--6485-2656-u--declareAll (lambda (arg-0 arg-1 arg-2 arg-3) (if (null? arg-3) (cons (vector 1 ) arg-0) (let ((e-2 (car arg-3))) (let ((e-3 (cdr arg-3))) (let ((sc1 (PreludeC-45Types-elem (cons (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) e-2 arg-2))) (cond ((equal? sc1 1) (CompilerC-45VMCode-n--6485-2656-u--declareAll arg-0 arg-1 arg-2 e-3)) (else (cons (vector 0 (vector 1 e-2)) (CompilerC-45VMCode-n--6485-2656-u--declareAll arg-0 arg-1 (cons e-2 arg-2) e-3)))))))))) +(define CompilerC-45VMCode-u--show_Show_VMInst (lambda (arg-0) (case (vector-ref arg-0 0) ((0) (let ((e-0 (vector-ref arg-0 1))) (PreludeC-45TypesC-45String-C-43C-43 "DECLARE " (CompilerC-45VMCode-u--show_Show_Reg e-0)))) ((1) "START") ((2) (let ((e-1 (vector-ref arg-0 1))) (let ((e-2 (vector-ref arg-0 2))) (PreludeC-45TypesC-45String-C-43C-43 (CompilerC-45VMCode-u--show_Show_Reg e-1) (PreludeC-45TypesC-45String-C-43C-43 " := " (CompilerC-45VMCode-u--show_Show_Reg e-2)))))) ((3) (let ((e-3 (vector-ref arg-0 1))) (let ((e-4 (vector-ref arg-0 2))) (let ((e-5 (vector-ref arg-0 3))) (PreludeC-45TypesC-45String-C-43C-43 (CompilerC-45VMCode-u--show_Show_Reg e-3) (PreludeC-45TypesC-45String-C-43C-43 " := MKCON " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40C-40EitherC-32C-36aC-41C-32C-36bC-41 (cons (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_Int u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_Int u--d u--x)))) (cons (lambda (u--x) (CoreC-45Name-u--show_Show_Name u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Name-u--showPrec_Show_Name u--d u--x))))) e-4) (PreludeC-45TypesC-45String-C-43C-43 " (" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-showSep ", " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CompilerC-45VMCode-u--show_Show_Reg eta-0)) e-5)) ")"))))))))) ((4) (let ((e-6 (vector-ref arg-0 1))) (let ((e-7 (vector-ref arg-0 2))) (let ((e-8 (vector-ref arg-0 3))) (let ((e-9 (vector-ref arg-0 4))) (PreludeC-45TypesC-45String-C-43C-43 (CompilerC-45VMCode-u--show_Show_Reg e-6) (PreludeC-45TypesC-45String-C-43C-43 " := MKCLOSURE " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-7) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Nat e-8) (PreludeC-45TypesC-45String-C-43C-43 " (" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-showSep ", " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CompilerC-45VMCode-u--show_Show_Reg eta-0)) e-9)) ")")))))))))))) ((5) (let ((e-10 (vector-ref arg-0 1))) (let ((e-11 (vector-ref arg-0 2))) (PreludeC-45TypesC-45String-C-43C-43 (CompilerC-45VMCode-u--show_Show_Reg e-10) (PreludeC-45TypesC-45String-C-43C-43 " := MKCONSTANT " (CoreC-45TT-u--show_Show_Constant e-11)))))) ((6) (let ((e-12 (vector-ref arg-0 1))) (let ((e-13 (vector-ref arg-0 2))) (let ((e-14 (vector-ref arg-0 3))) (PreludeC-45TypesC-45String-C-43C-43 (CompilerC-45VMCode-u--show_Show_Reg e-12) (PreludeC-45TypesC-45String-C-43C-43 " := " (PreludeC-45TypesC-45String-C-43C-43 (CompilerC-45VMCode-u--show_Show_Reg e-13) (PreludeC-45TypesC-45String-C-43C-43 " @ " (CompilerC-45VMCode-u--show_Show_Reg e-14))))))))) ((7) (let ((e-15 (vector-ref arg-0 1))) (let ((e-16 (vector-ref arg-0 2))) (let ((e-17 (vector-ref arg-0 3))) (let ((e-18 (vector-ref arg-0 4))) (PreludeC-45TypesC-45String-C-43C-43 (CompilerC-45VMCode-u--show_Show_Reg e-15) (PreludeC-45TypesC-45String-C-43C-43 " := " (PreludeC-45TypesC-45String-C-43C-43 (cond ((equal? e-16 1) "TAILCALL ") (else "CALL ")) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-17) (PreludeC-45TypesC-45String-C-43C-43 "(" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-showSep ", " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CompilerC-45VMCode-u--show_Show_Reg eta-0)) e-18)) ")"))))))))))) ((8) (let ((e-20 (vector-ref arg-0 1))) (let ((e-21 (vector-ref arg-0 2))) (let ((e-22 (vector-ref arg-0 3))) (PreludeC-45TypesC-45String-C-43C-43 (CompilerC-45VMCode-u--show_Show_Reg e-20) (PreludeC-45TypesC-45String-C-43C-43 " := " (PreludeC-45TypesC-45String-C-43C-43 "OP " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40PrimFnC-32C-36arityC-41 e-21) (PreludeC-45TypesC-45String-C-43C-43 "(" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-showSep ", " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CompilerC-45VMCode-u--show_Show_Reg eta-0)) (DataC-45Vect-u--toList_Foldable_C-40VectC-32C-36nC-41 e-22))) ")")))))))))) ((9) (let ((e-23 (vector-ref arg-0 1))) (let ((e-24 (vector-ref arg-0 2))) (let ((e-25 (vector-ref arg-0 3))) (PreludeC-45TypesC-45String-C-43C-43 (CompilerC-45VMCode-u--show_Show_Reg e-23) (PreludeC-45TypesC-45String-C-43C-43 " := " (PreludeC-45TypesC-45String-C-43C-43 "EXTPRIM " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-24) (PreludeC-45TypesC-45String-C-43C-43 "(" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-showSep ", " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CompilerC-45VMCode-u--show_Show_Reg eta-0)) e-25)) ")")))))))))) ((10) (let ((e-26 (vector-ref arg-0 1))) (let ((e-27 (vector-ref arg-0 2))) (let ((e-28 (vector-ref arg-0 3))) (PreludeC-45TypesC-45String-C-43C-43 "CASE " (PreludeC-45TypesC-45String-C-43C-43 (CompilerC-45VMCode-u--show_Show_Reg e-26) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40C-40EitherC-32C-36aC-41C-32C-36bC-41 (cons (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_Int x-1)) (lambda (u--d) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_Int u--d x-1)))) (cons (lambda (x-1) (CoreC-45Name-u--show_Show_Name x-1)) (lambda (u--d) (lambda (x-1) (CoreC-45Name-u--showPrec_Show_Name u--d x-1))))) x-0)) (lambda (u--d) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40C-40EitherC-32C-36aC-41C-32C-36bC-41 (cons (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_Int x-1)) (lambda (d-0) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-1)))) (cons (lambda (x-1) (CoreC-45Name-u--show_Show_Name x-1)) (lambda (d-0) (lambda (x-1) (CoreC-45Name-u--showPrec_Show_Name d-0 x-1))))) u--d x-0)))) (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (x-1) (CompilerC-45VMCode-u--show_Show_VMInst x-1)) (lambda (u--d) (lambda (x-1) (CompilerC-45VMCode-u--showPrec_Show_VMInst u--d x-1)))) x-0)) (lambda (u--d) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40ListC-32C-36aC-41 (cons (lambda (x-1) (CompilerC-45VMCode-u--show_Show_VMInst x-1)) (lambda (d-0) (lambda (x-1) (CompilerC-45VMCode-u--showPrec_Show_VMInst d-0 x-1)))) u--d x-0))))) u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40C-40EitherC-32C-36aC-41C-32C-36bC-41 (cons (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_Int x-1)) (lambda (d-0) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-1)))) (cons (lambda (x-1) (CoreC-45Name-u--show_Show_Name x-1)) (lambda (d-0) (lambda (x-1) (CoreC-45Name-u--showPrec_Show_Name d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40C-40EitherC-32C-36aC-41C-32C-36bC-41 (cons (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_Int x-1)) (lambda (d-1) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-1)))) (cons (lambda (x-1) (CoreC-45Name-u--show_Show_Name x-1)) (lambda (d-1) (lambda (x-1) (CoreC-45Name-u--showPrec_Show_Name d-1 x-1))))) d-0 x-0)))) (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (x-1) (CompilerC-45VMCode-u--show_Show_VMInst x-1)) (lambda (d-0) (lambda (x-1) (CompilerC-45VMCode-u--showPrec_Show_VMInst d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40ListC-32C-36aC-41 (cons (lambda (x-1) (CompilerC-45VMCode-u--show_Show_VMInst x-1)) (lambda (d-1) (lambda (x-1) (CompilerC-45VMCode-u--showPrec_Show_VMInst d-1 x-1)))) d-0 x-0))))) u--d u--x)))) e-27) (PreludeC-45TypesC-45String-C-43C-43 " {default: " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (x-0) (CompilerC-45VMCode-u--show_Show_VMInst x-0)) (lambda (u--d) (lambda (x-0) (CompilerC-45VMCode-u--showPrec_Show_VMInst u--d x-0)))) u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_C-40ListC-32C-36aC-41 (cons (lambda (x-0) (CompilerC-45VMCode-u--show_Show_VMInst x-0)) (lambda (d-0) (lambda (x-0) (CompilerC-45VMCode-u--showPrec_Show_VMInst d-0 x-0)))) u--d u--x)))) e-28) "}")))))))))) ((11) (let ((e-29 (vector-ref arg-0 1))) (let ((e-30 (vector-ref arg-0 2))) (let ((e-31 (vector-ref arg-0 3))) (PreludeC-45TypesC-45String-C-43C-43 "CASE " (PreludeC-45TypesC-45String-C-43C-43 (CompilerC-45VMCode-u--show_Show_Reg e-29) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (CoreC-45TT-u--show_Show_Constant x-0)) (lambda (u--d) (lambda (x-0) (CoreC-45TT-u--showPrec_Show_Constant u--d x-0)))) (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (x-1) (CompilerC-45VMCode-u--show_Show_VMInst x-1)) (lambda (u--d) (lambda (x-1) (CompilerC-45VMCode-u--showPrec_Show_VMInst u--d x-1)))) x-0)) (lambda (u--d) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40ListC-32C-36aC-41 (cons (lambda (x-1) (CompilerC-45VMCode-u--show_Show_VMInst x-1)) (lambda (d-0) (lambda (x-1) (CompilerC-45VMCode-u--showPrec_Show_VMInst d-0 x-1)))) u--d x-0))))) u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (CoreC-45TT-u--show_Show_Constant x-0)) (lambda (d-0) (lambda (x-0) (CoreC-45TT-u--showPrec_Show_Constant d-0 x-0)))) (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (x-1) (CompilerC-45VMCode-u--show_Show_VMInst x-1)) (lambda (d-0) (lambda (x-1) (CompilerC-45VMCode-u--showPrec_Show_VMInst d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40ListC-32C-36aC-41 (cons (lambda (x-1) (CompilerC-45VMCode-u--show_Show_VMInst x-1)) (lambda (d-1) (lambda (x-1) (CompilerC-45VMCode-u--showPrec_Show_VMInst d-1 x-1)))) d-0 x-0))))) u--d u--x)))) e-30) (PreludeC-45TypesC-45String-C-43C-43 " {default: " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (x-0) (CompilerC-45VMCode-u--show_Show_VMInst x-0)) (lambda (u--d) (lambda (x-0) (CompilerC-45VMCode-u--showPrec_Show_VMInst u--d x-0)))) u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_C-40ListC-32C-36aC-41 (cons (lambda (x-0) (CompilerC-45VMCode-u--show_Show_VMInst x-0)) (lambda (d-0) (lambda (x-0) (CompilerC-45VMCode-u--showPrec_Show_VMInst d-0 x-0)))) u--d u--x)))) e-31) "}")))))))))) ((12) (let ((e-32 (vector-ref arg-0 1))) (let ((e-33 (vector-ref arg-0 2))) (let ((e-34 (vector-ref arg-0 3))) (PreludeC-45TypesC-45String-C-43C-43 (CompilerC-45VMCode-u--show_Show_Reg e-32) (PreludeC-45TypesC-45String-C-43C-43 " := PROJECT(" (PreludeC-45TypesC-45String-C-43C-43 (CompilerC-45VMCode-u--show_Show_Reg e-33) (PreludeC-45TypesC-45String-C-43C-43 ", " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Int e-34) ")"))))))))) ((13) (let ((e-35 (vector-ref arg-0 1))) (PreludeC-45TypesC-45String-C-43C-43 (CompilerC-45VMCode-u--show_Show_Reg e-35) " := NULL"))) (else (let ((e-36 (vector-ref arg-0 1))) (PreludeC-45TypesC-45String-C-43C-43 "ERROR " (PreludeC-45Show-u--show_Show_String e-36))))))) +(define CompilerC-45VMCode-u--show_Show_VMDef (lambda (arg-0) (case (vector-ref arg-0 0) ((0) (let ((e-0 (vector-ref arg-0 1))) (let ((e-1 (vector-ref arg-0 2))) (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_Int u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_Int u--d u--x)))) e-0) (PreludeC-45TypesC-45String-C-43C-43 ": " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CompilerC-45VMCode-u--show_Show_VMInst u--x)) (lambda (u--d) (lambda (u--x) (CompilerC-45VMCode-u--showPrec_Show_VMInst u--d u--x)))) e-1)))))) (else (let ((e-2 (vector-ref arg-0 1))) (PreludeC-45TypesC-45String-C-43C-43 "Error: " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CompilerC-45VMCode-u--show_Show_VMInst u--x)) (lambda (u--d) (lambda (u--x) (CompilerC-45VMCode-u--showPrec_Show_VMInst u--d u--x)))) e-2))))))) +(define CompilerC-45VMCode-u--show_Show_Reg (lambda (arg-0) (case (vector-ref arg-0 0) ((0) "RVAL") ((1) (let ((e-0 (vector-ref arg-0 1))) (PreludeC-45TypesC-45String-C-43C-43 "v" (PreludeC-45Show-u--show_Show_Int e-0)))) (else "DISCARD")))) +(define CompilerC-45VMCode-u--showPrec_Show_VMInst (lambda (arg-0 arg-1) (CompilerC-45VMCode-u--show_Show_VMInst arg-1))) +(define CompilerC-45VMCode-toVMDef (lambda (arg-0) (case (vector-ref arg-0 0) ((0) (let ((e-0 (vector-ref arg-0 1))) (let ((e-1 (vector-ref arg-0 2))) (box (vector 0 e-0 (CompilerC-45VMCode-declareVars e-0 (CompilerC-45VMCode-toVM 1 (vector 0 ) e-1))))))) ((3) (let ((e-2 (vector-ref arg-0 1))) (box (vector 1 (CompilerC-45VMCode-declareVars '() (CompilerC-45VMCode-toVM 1 (vector 0 ) e-2))))))(else '())))) +(define CompilerC-45VMCode-toVM (lambda (arg-0 arg-1 arg-2) (case (vector-ref arg-1 0) ((2) '())(else (case (vector-ref arg-2 0) ((0) (let ((e-1 (vector-ref arg-2 2))) (if (null? e-1) (cons (vector 13 arg-1) '()) (let ((e-45 (unbox e-1))) (cons (vector 2 arg-1 (vector 1 e-45)) '()))))) ((1) (let ((e-4 (vector-ref arg-2 3))) (let ((e-5 (vector-ref arg-2 4))) (cons (vector 7 arg-1 arg-0 e-4 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CompilerC-45VMCode-toReg eta-0)) e-5)) '())))) ((2) (let ((e-7 (vector-ref arg-2 2))) (let ((e-8 (vector-ref arg-2 3))) (let ((e-9 (vector-ref arg-2 4))) (cons (vector 4 arg-1 e-7 e-8 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CompilerC-45VMCode-toReg eta-0)) e-9)) '()))))) ((3) (let ((e-12 (vector-ref arg-2 3))) (let ((e-13 (vector-ref arg-2 4))) (cons (vector 6 arg-1 (CompilerC-45VMCode-toReg e-12) (CompilerC-45VMCode-toReg e-13)) '())))) ((4) (let ((e-15 (vector-ref arg-2 2))) (let ((e-16 (vector-ref arg-2 3))) (let ((e-17 (vector-ref arg-2 4))) (PreludeC-45TypesC-45List-C-43C-43 (CompilerC-45VMCode-toVM 0 (vector 1 e-15) e-16) (CompilerC-45VMCode-toVM arg-0 arg-1 e-17)))))) ((5) (let ((e-19 (vector-ref arg-2 2))) (let ((e-21 (vector-ref arg-2 4))) (let ((e-22 (vector-ref arg-2 5))) (if (null? e-21) (cons (vector 3 arg-1 (vector 1 e-19) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CompilerC-45VMCode-toReg eta-0)) e-22)) '()) (let ((e-47 (unbox e-21))) (cons (vector 3 arg-1 (vector 0 e-47) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CompilerC-45VMCode-toReg eta-0)) e-22)) '()))))))) ((6) (let ((e-26 (vector-ref arg-2 3))) (let ((e-27 (vector-ref arg-2 4))) (cons (vector 8 arg-1 e-26 (DataC-45Vect-u--map_Functor_C-40VectC-32C-36nC-41 (lambda (eta-0) (CompilerC-45VMCode-toReg eta-0)) e-27)) '())))) ((7) (let ((e-30 (vector-ref arg-2 3))) (let ((e-31 (vector-ref arg-2 4))) (cons (vector 9 arg-1 e-30 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CompilerC-45VMCode-toReg eta-0)) e-31)) '())))) ((8) (let ((e-32 (vector-ref arg-2 1))) (let ((e-33 (vector-ref arg-2 2))) (let ((e-34 (vector-ref arg-2 3))) (let ((e-35 (vector-ref arg-2 4))) (if (null? e-33) (cons (vector 13 arg-1) '()) (let ((e-49 (unbox e-33))) (cons (vector 10 (vector 1 e-49) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CompilerC-45VMCode-n--6054-2347-u--toVMConAlt e-49 e-35 e-34 e-32 arg-1 arg-0 eta-0)) e-34) (PreludeC-45Types-u--map_Functor_Maybe (lambda (eta-0) (CompilerC-45VMCode-toVM arg-0 arg-1 eta-0)) e-35)) '())))))))) ((9) (let ((e-36 (vector-ref arg-2 1))) (let ((e-37 (vector-ref arg-2 2))) (let ((e-38 (vector-ref arg-2 3))) (let ((e-39 (vector-ref arg-2 4))) (if (null? e-37) (cons (vector 13 arg-1) '()) (let ((e-50 (unbox e-37))) (cons (vector 11 (vector 1 e-50) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CompilerC-45VMCode-n--6054-2412-u--toVMConstAlt e-50 e-39 e-38 e-36 arg-1 arg-0 eta-0)) e-38) (PreludeC-45Types-u--map_Functor_Maybe (lambda (eta-0) (CompilerC-45VMCode-toVM arg-0 arg-1 eta-0)) e-39)) '())))))))) ((10) (let ((e-41 (vector-ref arg-2 2))) (cons (vector 5 arg-1 e-41) '()))) ((11) (cons (vector 13 arg-1) '())) ((12) (let ((e-44 (vector-ref arg-2 2))) (cons (vector 14 e-44) '())))(else (cons (vector 13 arg-1) '()))))))) +(define CompilerC-45VMCode-toReg (lambda (arg-0) (if (null? arg-0) (vector 2 ) (let ((e-0 (unbox arg-0))) (vector 1 e-0))))) +(define CompilerC-45VMCode-findVars (lambda (arg-0) (case (vector-ref arg-0 0) ((2) (let ((e-0 (vector-ref arg-0 1))) (case (vector-ref e-0 0) ((1) (let ((e-34 (vector-ref e-0 1))) (cons e-34 '())))(else '())))) ((3) (let ((e-2 (vector-ref arg-0 1))) (case (vector-ref e-2 0) ((1) (let ((e-35 (vector-ref e-2 1))) (cons e-35 '())))(else '())))) ((4) (let ((e-5 (vector-ref arg-0 1))) (case (vector-ref e-5 0) ((1) (let ((e-36 (vector-ref e-5 1))) (cons e-36 '())))(else '())))) ((5) (let ((e-9 (vector-ref arg-0 1))) (case (vector-ref e-9 0) ((1) (let ((e-37 (vector-ref e-9 1))) (cons e-37 '())))(else '())))) ((6) (let ((e-11 (vector-ref arg-0 1))) (case (vector-ref e-11 0) ((1) (let ((e-38 (vector-ref e-11 1))) (cons e-38 '())))(else '())))) ((7) (let ((e-14 (vector-ref arg-0 1))) (case (vector-ref e-14 0) ((1) (let ((e-39 (vector-ref e-14 1))) (cons e-39 '())))(else '())))) ((8) (let ((e-19 (vector-ref arg-0 1))) (case (vector-ref e-19 0) ((1) (let ((e-40 (vector-ref e-19 1))) (cons e-40 '())))(else '())))) ((9) (let ((e-22 (vector-ref arg-0 1))) (case (vector-ref e-22 0) ((1) (let ((e-41 (vector-ref e-22 1))) (cons e-41 '())))(else '())))) ((10) (let ((e-25 (vector-ref arg-0 1))) (let ((e-26 (vector-ref arg-0 2))) (let ((e-27 (vector-ref arg-0 3))) (PreludeC-45TypesC-45List-C-43C-43 (PreludeC-45Interfaces-concatMap (cons (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-2 arg-3))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) (lambda (eta-0) (CompilerC-45VMCode-n--6290-2542-u--findVarAlt e-25 e-27 e-26 eta-0)) e-26) (DataC-45Maybe-fromMaybe (lambda () '()) (PreludeC-45Types-u--map_Functor_Maybe (lambda (eta-0) (PreludeC-45Interfaces-concatMap (cons (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-2 arg-3))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) (lambda (eta-1) (CompilerC-45VMCode-findVars eta-1)) eta-0)) e-27))))))) ((11) (let ((e-28 (vector-ref arg-0 1))) (let ((e-29 (vector-ref arg-0 2))) (let ((e-30 (vector-ref arg-0 3))) (PreludeC-45TypesC-45List-C-43C-43 (PreludeC-45Interfaces-concatMap (cons (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-2 arg-3))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) (lambda (eta-0) (CompilerC-45VMCode-n--6290-2593-u--findConstVarAlt e-28 e-30 e-29 eta-0)) e-29) (DataC-45Maybe-fromMaybe (lambda () '()) (PreludeC-45Types-u--map_Functor_Maybe (lambda (eta-0) (PreludeC-45Interfaces-concatMap (cons (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-2 arg-3))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) (lambda (eta-1) (CompilerC-45VMCode-findVars eta-1)) eta-0)) e-30))))))) ((12) (let ((e-31 (vector-ref arg-0 1))) (case (vector-ref e-31 0) ((1) (let ((e-42 (vector-ref e-31 1))) (cons e-42 '())))(else '()))))(else '())))) +(define CompilerC-45VMCode-declareVars (lambda (arg-0 arg-1) (let ((u--vs (PreludeC-45Interfaces-concatMap (cons (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-2 arg-3))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) (lambda (eta-0) (CompilerC-45VMCode-findVars eta-0)) arg-1))) (CompilerC-45VMCode-n--6485-2656-u--declareAll arg-1 arg-0 arg-0 u--vs)))) +(define CompilerC-45VMCode-allDefs (lambda (ext-0) (DataC-45List-mapMaybe (lambda (lamc-0) (let ((e-2 (car lamc-0))) (let ((e-3 (cdr lamc-0))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CompilerC-45VMCode-toVMDef e-3) (lambda (u--dC-39) (PreludeC-45Types-u--pure_Applicative_Maybe (cons e-2 u--dC-39))))))) ext-0))) +(define CompilerC-45ANF-n--6077-2159-u--showArg (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (PreludeC-45TypesC-45String-C-43C-43 "v" (PreludeC-45Show-u--show_Show_Int arg-5)))) +(define CompilerC-45ANF-n--6395-2442-u--doBind (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (if (null? arg-5) (arg-0 (DataC-45List-reverse arg-4)) (let ((e-2 (car arg-5))) (let ((e-3 (cdr arg-5))) (let ((e-6 (car e-2))) (let ((e-7 (cdr e-2))) (if (null? e-6) (CompilerC-45ANF-n--6395-2442-u--doBind arg-0 arg-1 arg-2 arg-3 (cons e-6 arg-4) e-3) (let ((e-8 (unbox e-6))) (if (null? e-7) (CompilerC-45ANF-n--6395-2442-u--doBind arg-0 arg-1 arg-2 arg-3 (cons e-6 arg-4) e-3) (let ((e-10 (unbox e-7))) (vector 4 arg-2 e-8 e-10 (CompilerC-45ANF-n--6395-2442-u--doBind arg-0 arg-1 arg-2 arg-3 (cons (box e-8) arg-4) e-3))))))))))))) +(define CompilerC-45ANF-n--6989-2958-u--bindArgs (lambda (arg-0 arg-1 arg-2 arg-4 arg-5 arg-6 ext-0) (if (null? arg-5) (vector 1 (cons '() arg-6)) (let ((e-3 (cdr arg-5))) (let ((act-24 (CompilerC-45ANF-nextVar arg-4 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CompilerC-45ANF-n--6989-2958-u--bindArgs arg-0 arg-1 arg-2 arg-4 e-3 arg-6 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref act-25 1))) (let ((e-7 (car e-6))) (let ((e-4 (cdr e-6))) (vector 1 (cons (cons e-5 e-7) (cons e-5 e-4))))))))))))))))) +(define CompilerC-45ANF-n--6474-2830-u--bindArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-9 arg-10 ext-0) (if (null? arg-9) (vector 1 (cons '() arg-10)) (let ((e-3 (cdr arg-9))) (let ((act-24 (CompilerC-45ANF-nextVar arg-7 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CompilerC-45ANF-n--6474-2830-u--bindArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-3 arg-10 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref act-25 1))) (let ((e-7 (car e-6))) (let ((e-4 (cdr e-6))) (vector 1 (cons (cons e-5 e-7) (cons e-5 e-4))))))))))))))))) +(define CompilerC-45ANF-u--show_Show_AVar (lambda (arg-0) (if (null? arg-0) "[__]" (let ((e-0 (unbox arg-0))) (PreludeC-45TypesC-45String-C-43C-43 "v" (PreludeC-45Show-u--show_Show_Int e-0)))))) +(define CompilerC-45ANF-u--show_Show_ANFDef (lambda (arg-0) (case (vector-ref arg-0 0) ((0) (let ((e-0 (vector-ref arg-0 1))) (let ((e-1 (vector-ref arg-0 2))) (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_Int u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_Int u--d u--x)))) e-0) (PreludeC-45TypesC-45String-C-43C-43 ": " (CompilerC-45ANF-u--show_Show_ANF e-1)))))) ((1) (let ((e-2 (vector-ref arg-0 1))) (let ((e-3 (vector-ref arg-0 2))) (let ((e-4 (vector-ref arg-0 3))) (PreludeC-45TypesC-45String-C-43C-43 "Constructor tag " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_Int u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_Int u--d u--x)))) e-2) (PreludeC-45TypesC-45String-C-43C-43 " arity " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Nat e-3) (PreludeC-45TypesC-45String-C-43C-43 " newtype by " (PreludeC-45Show-u--show_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_Nat u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_Nat u--d u--x)))) e-4)))))))))) ((2) (let ((e-5 (vector-ref arg-0 1))) (let ((e-6 (vector-ref arg-0 2))) (let ((e-7 (vector-ref arg-0 3))) (PreludeC-45TypesC-45String-C-43C-43 "Foreign call " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_String u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_String u--d u--x)))) e-5) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45CompileExpr-u--show_Show_CFType u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45CompileExpr-u--showPrec_Show_CFType u--d u--x)))) e-6) (PreludeC-45TypesC-45String-C-43C-43 " -> " (CoreC-45CompileExpr-u--show_Show_CFType e-7)))))))))) (else (let ((e-8 (vector-ref arg-0 1))) (PreludeC-45TypesC-45String-C-43C-43 "Error: " (CompilerC-45ANF-u--show_Show_ANF e-8))))))) +(define CompilerC-45ANF-u--show_Show_ANF (lambda (arg-0) (case (vector-ref arg-0 0) ((0) (let ((e-1 (vector-ref arg-0 2))) (CompilerC-45ANF-u--show_Show_AVar e-1))) ((1) (let ((e-3 (vector-ref arg-0 2))) (let ((e-4 (vector-ref arg-0 3))) (let ((e-5 (vector-ref arg-0 4))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-4) (PreludeC-45TypesC-45String-C-43C-43 (CompilerC-45ANF-showLazy e-3) (PreludeC-45TypesC-45String-C-43C-43 "(" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-showSep ", " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CompilerC-45ANF-u--show_Show_AVar eta-0)) e-5)) ")")))))))) ((2) (let ((e-7 (vector-ref arg-0 2))) (let ((e-8 (vector-ref arg-0 3))) (let ((e-9 (vector-ref arg-0 4))) (PreludeC-45TypesC-45String-C-43C-43 "<" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-7) (PreludeC-45TypesC-45String-C-43C-43 " underapp " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Nat e-8) (PreludeC-45TypesC-45String-C-43C-43 ">(" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-showSep ", " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CompilerC-45ANF-u--show_Show_AVar eta-0)) e-9)) ")")))))))))) ((3) (let ((e-11 (vector-ref arg-0 2))) (let ((e-12 (vector-ref arg-0 3))) (let ((e-13 (vector-ref arg-0 4))) (PreludeC-45TypesC-45String-C-43C-43 (CompilerC-45ANF-u--show_Show_AVar e-12) (PreludeC-45TypesC-45String-C-43C-43 (CompilerC-45ANF-showLazy e-11) (PreludeC-45TypesC-45String-C-43C-43 " @ (" (PreludeC-45TypesC-45String-C-43C-43 (CompilerC-45ANF-u--show_Show_AVar e-13) ")")))))))) ((4) (let ((e-15 (vector-ref arg-0 2))) (let ((e-16 (vector-ref arg-0 3))) (let ((e-17 (vector-ref arg-0 4))) (PreludeC-45TypesC-45String-C-43C-43 "%let v" (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Int e-15) (PreludeC-45TypesC-45String-C-43C-43 " = (" (PreludeC-45TypesC-45String-C-43C-43 (CompilerC-45ANF-u--show_Show_ANF e-16) (PreludeC-45TypesC-45String-C-43C-43 ") in (" (PreludeC-45TypesC-45String-C-43C-43 (CompilerC-45ANF-u--show_Show_ANF e-17) ")")))))))))) ((5) (let ((e-19 (vector-ref arg-0 2))) (let ((e-22 (vector-ref arg-0 5))) (PreludeC-45TypesC-45String-C-43C-43 "%con " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-19) (PreludeC-45TypesC-45String-C-43C-43 "(" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-showSep ", " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CompilerC-45ANF-u--show_Show_AVar eta-0)) e-22)) ")"))))))) ((6) (let ((e-25 (vector-ref arg-0 2))) (let ((e-26 (vector-ref arg-0 3))) (let ((e-27 (vector-ref arg-0 4))) (PreludeC-45TypesC-45String-C-43C-43 "%op " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40PrimFnC-32C-36arityC-41 e-26) (PreludeC-45TypesC-45String-C-43C-43 (CompilerC-45ANF-showLazy e-25) (PreludeC-45TypesC-45String-C-43C-43 "(" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-showSep ", " (DataC-45Vect-u--toList_Foldable_C-40VectC-32C-36nC-41 (DataC-45Vect-u--map_Functor_C-40VectC-32C-36nC-41 (lambda (eta-0) (CompilerC-45ANF-u--show_Show_AVar eta-0)) e-27))) ")"))))))))) ((7) (let ((e-29 (vector-ref arg-0 2))) (let ((e-30 (vector-ref arg-0 3))) (let ((e-31 (vector-ref arg-0 4))) (PreludeC-45TypesC-45String-C-43C-43 "%extprim " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-30) (PreludeC-45TypesC-45String-C-43C-43 (CompilerC-45ANF-showLazy e-29) (PreludeC-45TypesC-45String-C-43C-43 "(" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-showSep ", " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CompilerC-45ANF-u--show_Show_AVar eta-0)) e-31)) ")"))))))))) ((8) (let ((e-33 (vector-ref arg-0 2))) (let ((e-34 (vector-ref arg-0 3))) (let ((e-35 (vector-ref arg-0 4))) (PreludeC-45TypesC-45String-C-43C-43 "%case " (PreludeC-45TypesC-45String-C-43C-43 (CompilerC-45ANF-u--show_Show_AVar e-33) (PreludeC-45TypesC-45String-C-43C-43 " of { " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-showSep "| " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CompilerC-45ANF-u--show_Show_AConAlt eta-0)) e-34)) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (u--x) (CompilerC-45ANF-u--show_Show_ANF u--x)) (lambda (u--d) (lambda (u--x) (CompilerC-45ANF-u--showPrec_Show_ANF u--d u--x)))) e-35) " }")))))))))) ((9) (let ((e-37 (vector-ref arg-0 2))) (let ((e-38 (vector-ref arg-0 3))) (let ((e-39 (vector-ref arg-0 4))) (PreludeC-45TypesC-45String-C-43C-43 "%case " (PreludeC-45TypesC-45String-C-43C-43 (CompilerC-45ANF-u--show_Show_AVar e-37) (PreludeC-45TypesC-45String-C-43C-43 " of { " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-showSep "| " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CompilerC-45ANF-u--show_Show_AConstAlt eta-0)) e-38)) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (u--x) (CompilerC-45ANF-u--show_Show_ANF u--x)) (lambda (u--d) (lambda (u--x) (CompilerC-45ANF-u--showPrec_Show_ANF u--d u--x)))) e-39) " }")))))))))) ((10) (let ((e-41 (vector-ref arg-0 2))) (CoreC-45TT-u--show_Show_Constant e-41))) ((11) "___") (else (let ((e-44 (vector-ref arg-0 2))) (PreludeC-45TypesC-45String-C-43C-43 "%CRASH(" (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_String e-44) ")"))))))) +(define CompilerC-45ANF-u--show_Show_AConstAlt (lambda (arg-0) (let ((e-0 (car arg-0))) (let ((e-1 (cdr arg-0))) (PreludeC-45TypesC-45String-C-43C-43 "%constalt(" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_Constant e-0) (PreludeC-45TypesC-45String-C-43C-43 ") => " (CompilerC-45ANF-u--show_Show_ANF e-1)))))))) +(define CompilerC-45ANF-u--show_Show_AConAlt (lambda (arg-0) (let ((e-0 (vector-ref arg-0 0))) (let ((e-1 (vector-ref arg-0 1))) (let ((e-2 (vector-ref arg-0 2))) (let ((e-3 (vector-ref arg-0 3))) (let ((e-4 (vector-ref arg-0 4))) (PreludeC-45TypesC-45String-C-43C-43 "%conalt " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-0) (PreludeC-45TypesC-45String-C-43C-43 "(" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-showSep ", " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CompilerC-45ANF-n--6077-2159-u--showArg e-1 e-4 e-3 e-2 e-0 eta-0)) e-3)) (PreludeC-45TypesC-45String-C-43C-43 ") => " (CompilerC-45ANF-u--show_Show_ANF e-4))))))))))))) +(define CompilerC-45ANF-u--showPrec_Show_ANF (lambda (arg-0 arg-1) (CompilerC-45ANF-u--show_Show_ANF arg-1))) +(define CompilerC-45ANF-toANF (lambda (arg-0 ext-0) (case (vector-ref arg-0 0) ((0) (let ((e-0 (vector-ref arg-0 1))) (let ((e-1 (vector-ref arg-0 2))) (let ((e-2 (vector-ref arg-0 3))) (let ((act-24 (CoreC-45Core-newRef (vector "Compiler.ANF.Next" ) 0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CompilerC-45ANF-n--6989-2958-u--bindArgs e-1 e-0 e-2 e-5 e-0 '() ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-3 (vector-ref act-25 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref act-25 1))) (let ((e-4 (car e-6))) (let ((e-3 (cdr e-6))) (let ((u--vs e-3)) (let ((act-26 (CompilerC-45ANF-n--6989-2958-u--bindArgs e-1 e-0 e-2 e-5 e-1 u--vs ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-7 (vector-ref act-26 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-26 1))) (let ((e-9 (car e-7))) (let ((e-8 (cdr e-7))) (let ((act-27 (CompilerC-45ANF-anf (PreludeC-45TypesC-45List-C-43C-43 e-1 e-0) e-5 e-8 e-2 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (vector 1 (vector 0 (PreludeC-45TypesC-45List-C-43C-43 e-4 (DataC-45List-reverse e-9)) e-10))))))))))))))))))))))))))) ((1) (let ((e-3 (vector-ref arg-0 1))) (let ((e-4 (vector-ref arg-0 2))) (let ((e-5 (vector-ref arg-0 3))) (vector 1 (vector 1 e-3 e-4 e-5)))))) ((2) (let ((e-6 (vector-ref arg-0 1))) (let ((e-7 (vector-ref arg-0 2))) (let ((e-8 (vector-ref arg-0 3))) (vector 1 (vector 2 e-6 e-7 e-8)))))) (else (let ((e-9 (vector-ref arg-0 1))) (let ((act-24 (CoreC-45Core-newRef (vector "Compiler.ANF.Next" ) 0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CompilerC-45ANF-anf '() e-5 '() e-9 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (vector 3 e-6))))))))))))))) +(define CompilerC-45ANF-showLazy (lambda (ext-0) (PreludeC-45Types-maybe (lambda () "") (lambda () (lambda (eta-0) (PreludeC-45TypesC-45String-C-43C-43 " " (CoreC-45TT-u--show_Show_LazyReason eta-0)))) ext-0))) +(define CompilerC-45ANF-nextVar (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (let ((act-25 (set-box! arg-0 (bs+ e-5 1 63)))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (vector 1 e-5)))))))))) +(define CompilerC-45ANF-mlet (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (case (vector-ref arg-2 0) ((0) (let ((e-1 (vector-ref arg-2 2))) (vector 1 (arg-3 e-1))))(else (let ((act-24 (CompilerC-45ANF-nextVar arg-0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 4 arg-1 e-5 arg-2 (arg-3 (box e-5)))))))))))) +(define CompilerC-45ANF-lookup (lambda (arg-2 arg-4) (cond ((equal? arg-2 0) (let ((e-3 (car arg-4))) e-3))(else (let ((e-0 (- arg-2 1))) (let ((e-8 (cdr arg-4))) (CompilerC-45ANF-lookup e-0 e-8))))))) +(define CompilerC-45ANF-letBind (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (CompilerC-45ANF-bindArgs arg-0 arg-2 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (CompilerC-45ANF-n--6395-2442-u--doBind arg-3 arg-2 arg-1 arg-0 '() e-5)))))))) +(define CompilerC-45ANF-bindArgs (lambda (arg-0 arg-1 ext-0) (if (null? arg-1) (vector 1 '()) (let ((e-2 (car arg-1))) (let ((e-3 (cdr arg-1))) (case (vector-ref e-2 0) ((0) (let ((e-5 (vector-ref e-2 2))) (let ((act-24 (CompilerC-45ANF-bindArgs arg-0 e-3 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (vector 1 (cons (cons e-5 '()) e-6)))))))) ((11) (let ((act-24 (CompilerC-45ANF-bindArgs arg-0 e-3 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (cons (cons '() '()) e-5)))))))(else (let ((act-24 (CompilerC-45ANF-nextVar arg-0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CompilerC-45ANF-bindArgs arg-0 e-3 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (cons (cons (box e-5) (box e-2)) e-6))))))))))))))))) +(define CompilerC-45ANF-anfConstAlt (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((e-1 (car arg-3))) (let ((e-2 (cdr arg-3))) (let ((act-24 (CompilerC-45ANF-anf arg-0 arg-1 arg-2 e-2 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (cons e-1 e-5)))))))))) +(define CompilerC-45ANF-anfConAlt (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((e-1 (vector-ref arg-3 0))) (let ((e-2 (vector-ref arg-3 1))) (let ((e-3 (vector-ref arg-3 2))) (let ((e-4 (vector-ref arg-3 3))) (let ((e-5 (vector-ref arg-3 4))) (let ((act-24 (CompilerC-45ANF-n--6474-2830-u--bindArgs arg-0 e-4 e-5 e-3 e-2 e-1 arg-2 arg-1 e-4 arg-2 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((e-8 (car e-6))) (let ((e-7 (cdr e-6))) (let ((act-25 (CompilerC-45ANF-anf (PreludeC-45TypesC-45List-C-43C-43 e-4 arg-0) arg-1 e-7 e-5 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-9 (vector-ref act-25 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref act-25 1))) (vector 1 (vector e-1 e-2 e-3 e-8 e-9))))))))))))))))))) +(define CompilerC-45ANF-anfArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (CompilerC-45ANF-anf arg-0 arg-1 arg-3 eta-0 eta-1))) arg-4 '() ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (CompilerC-45ANF-letBind arg-1 arg-2 e-5 arg-5 ext-0))))))) +(define CompilerC-45ANF-anf (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (case (vector-ref arg-3 0) ((0) (let ((e-2 (vector-ref arg-3 1))) (let ((e-3 (vector-ref arg-3 2))) (vector 1 (vector 0 e-3 (box (CompilerC-45ANF-lookup e-2 arg-2))))))) ((1) (let ((e-6 (vector-ref arg-3 1))) (let ((e-7 (vector-ref arg-3 2))) (let ((e-8 (vector-ref arg-3 3))) (let ((e-9 (vector-ref arg-3 4))) (CompilerC-45ANF-anfArgs arg-0 arg-1 e-6 arg-2 e-9 (lambda (eta-0) (vector 1 e-6 e-7 e-8 eta-0)) ext-0)))))) ((2) (let ((e-11 (vector-ref arg-3 1))) (let ((e-12 (vector-ref arg-3 2))) (let ((e-13 (vector-ref arg-3 3))) (let ((e-14 (vector-ref arg-3 4))) (CompilerC-45ANF-anfArgs arg-0 arg-1 e-11 arg-2 e-14 (lambda (eta-0) (vector 2 e-11 e-12 e-13 eta-0)) ext-0)))))) ((3) (let ((e-16 (vector-ref arg-3 1))) (let ((e-17 (vector-ref arg-3 2))) (let ((e-18 (vector-ref arg-3 3))) (let ((e-19 (vector-ref arg-3 4))) (CompilerC-45ANF-anfArgs arg-0 arg-1 e-16 arg-2 (cons e-18 (cons e-19 '())) (lambda (lcase-0) (if (null? lcase-0) (vector 12 e-16 "Can't happen (AApp)") (let ((e-1 (car lcase-0))) (let ((e-2 (cdr lcase-0))) (if (null? e-2) (vector 12 e-16 "Can't happen (AApp)") (let ((e-4 (car e-2))) (let ((e-5 (cdr e-2))) (if (null? e-5) (vector 3 e-16 e-17 e-1 e-4) (vector 12 e-16 "Can't happen (AApp)"))))))))) ext-0)))))) ((4) (let ((e-21 (vector-ref arg-3 1))) (let ((e-22 (vector-ref arg-3 2))) (let ((e-23 (vector-ref arg-3 3))) (let ((e-24 (vector-ref arg-3 4))) (let ((act-24 (CompilerC-45ANF-nextVar arg-1 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((u--vsC-39 (cons e-5 arg-2))) (let ((act-25 (CompilerC-45ANF-anf arg-0 arg-1 arg-2 e-23 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CompilerC-45ANF-anf (cons e-22 arg-0) arg-1 u--vsC-39 e-24 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (vector 4 e-21 e-5 e-6 e-7)))))))))))))))))))) ((5) (let ((e-26 (vector-ref arg-3 1))) (let ((e-27 (vector-ref arg-3 2))) (let ((e-28 (vector-ref arg-3 3))) (let ((e-29 (vector-ref arg-3 4))) (let ((e-30 (vector-ref arg-3 5))) (CompilerC-45ANF-anfArgs arg-0 arg-1 e-26 arg-2 e-30 (lambda (eta-0) (vector 5 e-26 e-27 e-28 e-29 eta-0)) ext-0))))))) ((6) (let ((e-32 (vector-ref arg-3 1))) (let ((e-33 (vector-ref arg-3 2))) (let ((e-34 (vector-ref arg-3 3))) (let ((e-35 (vector-ref arg-3 4))) (let ((e-36 (vector-ref arg-3 5))) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (CompilerC-45ANF-anf arg-0 arg-1 arg-2 eta-0 eta-1))) (DataC-45Vect-u--toList_Foldable_C-40VectC-32C-36nC-41 e-36) '() ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (CompilerC-45ANF-letBind arg-1 e-33 e-5 (lambda (u--args) (let ((sc2 (DataC-45Vect-toVect e-32 u--args))) (if (null? sc2) (vector 12 e-33 "Can't happen (AOp)") (let ((e-2 (unbox sc2))) (vector 6 e-33 e-34 e-35 e-2))))) ext-0))))))))))) ((7) (let ((e-38 (vector-ref arg-3 1))) (let ((e-39 (vector-ref arg-3 2))) (let ((e-40 (vector-ref arg-3 3))) (let ((e-41 (vector-ref arg-3 4))) (CompilerC-45ANF-anfArgs arg-0 arg-1 e-38 arg-2 e-41 (lambda (eta-0) (vector 7 e-38 e-39 e-40 eta-0)) ext-0)))))) ((8) (let ((e-43 (vector-ref arg-3 1))) (let ((e-44 (vector-ref arg-3 2))) (let ((e-45 (vector-ref arg-3 3))) (let ((e-46 (vector-ref arg-3 4))) (let ((act-24 (CompilerC-45ANF-anf arg-0 arg-1 arg-2 e-44 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (CompilerC-45ANF-anfConAlt arg-0 arg-1 arg-2 eta-0 eta-1))) e-45 '() ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (if (null? e-46) (vector 1 '()) (let ((e-2 (unbox e-46))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-3 (vector-ref eta-0 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref eta-0 1))) (vector 1 (box e-7)))))) (lambda (eta-0) (CompilerC-45ANF-anf arg-0 arg-1 arg-2 e-2 eta-0)) ext-0))))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (CompilerC-45ANF-mlet arg-1 e-43 e-5 (lambda (u--x) (vector 8 e-43 u--x e-6 e-7)) ext-0)))))))))))))))))) ((9) (let ((e-48 (vector-ref arg-3 1))) (let ((e-49 (vector-ref arg-3 2))) (let ((e-50 (vector-ref arg-3 3))) (let ((e-51 (vector-ref arg-3 4))) (let ((act-24 (CompilerC-45ANF-anf arg-0 arg-1 arg-2 e-49 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (CompilerC-45ANF-anfConstAlt arg-0 arg-1 arg-2 eta-0 eta-1))) e-50 '() ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (if (null? e-51) (vector 1 '()) (let ((e-2 (unbox e-51))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-3 (vector-ref eta-0 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref eta-0 1))) (vector 1 (box e-7)))))) (lambda (eta-0) (CompilerC-45ANF-anf arg-0 arg-1 arg-2 e-2 eta-0)) ext-0))))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (CompilerC-45ANF-mlet arg-1 e-48 e-5 (lambda (u--x) (vector 9 e-48 u--x e-6 e-7)) ext-0)))))))))))))))))) ((10) (let ((e-53 (vector-ref arg-3 1))) (let ((e-54 (vector-ref arg-3 2))) (vector 1 (vector 10 e-53 e-54))))) ((11) (let ((e-56 (vector-ref arg-3 1))) (vector 1 (vector 11 e-56)))) (else (let ((e-58 (vector-ref arg-3 1))) (let ((e-59 (vector-ref arg-3 2))) (vector 1 (vector 12 e-58 e-59)))))))) +(define CompilerC-45LambdaLift-n--6448-3525-u--usedConstAlt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((e-2 (cdr arg-9))) (CompilerC-45LambdaLift-usedVars arg-0 arg-6 arg-8 e-2)))) +(define CompilerC-45LambdaLift-n--6448-3490-u--usedConAlt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((e-4 (vector-ref arg-9 3))) (let ((e-5 (vector-ref arg-9 4))) (CompilerC-45LambdaLift-contractUsedMany e-4 (CompilerC-45LambdaLift-usedVars (PreludeC-45TypesC-45List-C-43C-43 e-4 arg-0) arg-6 (CompilerC-45LambdaLift-weakenUsed e-4 arg-8) e-5)))))) +(define CompilerC-45LambdaLift-n--6443-3085-u--traverseArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-9 ext-0) (if (null? arg-9) (vector 1 '()) (let ((e-3 (car arg-9))) (let ((e-4 (cdr arg-9))) (let ((act-24 ((CompilerC-45LambdaLift-liftExp arg-0 arg-7 arg-1 '() e-3) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CompilerC-45LambdaLift-n--6443-3085-u--traverseArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-4 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (cons e-5 e-6))))))))))))))) +(define CompilerC-45LambdaLift-n--6111-2378-u--mkName (lambda (arg-0 arg-1 arg-2) (case (vector-ref arg-1 0) ((0) (let ((e-0 (vector-ref arg-1 1))) (let ((e-1 (vector-ref arg-1 2))) (vector 0 e-0 (CompilerC-45LambdaLift-n--6111-2378-u--mkName arg-0 e-1 arg-2))))) ((1) (let ((e-2 (vector-ref arg-1 1))) (vector 2 e-2 arg-2))) ((4) (let ((e-4 (vector-ref arg-1 2))) (CompilerC-45LambdaLift-n--6111-2378-u--mkName arg-0 e-4 arg-2))) ((7) (let ((e-5 (vector-ref arg-1 1))) (let ((e-6 (vector-ref arg-1 2))) (vector 2 (PreludeC-45TypesC-45String-C-43C-43 "case block in " (PreludeC-45TypesC-45String-C-43C-43 e-5 (PreludeC-45TypesC-45String-C-43C-43 " (" (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Int e-6) ")")))) arg-2)))) ((8) (let ((e-7 (vector-ref arg-1 1))) (let ((e-8 (vector-ref arg-1 2))) (vector 2 (PreludeC-45TypesC-45String-C-43C-43 "with block in " (PreludeC-45TypesC-45String-C-43C-43 e-7 (PreludeC-45TypesC-45String-C-43C-43 " (" (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Int e-8) ")")))) arg-2))))(else (vector 2 (CoreC-45Name-u--show_Show_Name arg-1) arg-2))))) +(define CompilerC-45LambdaLift-n--6443-3310-u--liftConstAlt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 ext-0) (let ((e-1 (car arg-9))) (let ((e-2 (cdr arg-9))) (let ((act-24 ((CompilerC-45LambdaLift-liftExp arg-0 arg-7 arg-1 arg-2 e-2) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (cons e-1 e-5)))))))))) +(define CompilerC-45LambdaLift-n--6443-3259-u--liftConAlt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 ext-0) (let ((e-1 (vector-ref arg-9 0))) (let ((e-2 (vector-ref arg-9 1))) (let ((e-3 (vector-ref arg-9 2))) (let ((e-4 (vector-ref arg-9 3))) (let ((e-5 (vector-ref arg-9 4))) (let ((act-24 ((CompilerC-45LambdaLift-liftExp (PreludeC-45TypesC-45List-C-43C-43 e-4 arg-0) arg-7 arg-1 arg-2 e-5) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (vector 1 (vector e-1 e-2 e-3 e-4 e-6))))))))))))) +(define CompilerC-45LambdaLift-n--6348-2590-u--finIdx (lambda (arg-1 arg-2 arg-3 arg-5 arg-6) (let ((e-2 (cdr arg-5))) (cond ((equal? arg-6 0) '())(else (let ((e-3 (- arg-6 1))) (box (CompilerC-45LambdaLift-n--6348-2590-u--finIdx arg-1 arg-2 arg-3 e-2 e-3)))))))) +(define CompilerC-45LambdaLift-n--6464-4020-u--dropConstCase (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((e-1 (car arg-8))) (let ((e-2 (cdr arg-8))) (cons e-1 (CompilerC-45LambdaLift-dropUnused arg-1 arg-7 arg-0 arg-6 e-2)))))) +(define CompilerC-45LambdaLift-n--6464-3956-u--dropConCase (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((e-1 (vector-ref arg-8 0))) (let ((e-2 (vector-ref arg-8 1))) (let ((e-3 (vector-ref arg-8 2))) (let ((e-4 (vector-ref arg-8 3))) (let ((e-5 (vector-ref arg-8 4))) (let ((u--scC-39 e-5)) (let ((u--droppedSc (CompilerC-45LambdaLift-dropUnused arg-1 arg-7 (PreludeC-45TypesC-45List-C-43C-43 e-4 arg-0) arg-6 u--scC-39))) (vector e-1 e-2 e-3 e-4 u--droppedSc)))))))))) +(define CompilerC-45LambdaLift-n--6436-2736-u--allVars (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (PreludeC-45Types-u--map_Functor_List (lambda (lamc-0) (vector 0 lamc-0 arg-7)) (CompilerC-45LambdaLift-n--6436-2735-u--allPrfs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9)))) +(define CompilerC-45LambdaLift-n--6436-2735-u--allPrfs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (if (null? arg-7) '() (let ((e-3 (cdr arg-7))) (let ((e-6 (car arg-8))) (let ((e-7 (cdr arg-8))) (cond ((equal? e-6 0) (cons 0 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45TT-u--weaken_Weaken_Var eta-0)) (CompilerC-45LambdaLift-n--6436-2735-u--allPrfs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3 e-7)))) (else (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45TT-u--weaken_Weaken_Var eta-0)) (CompilerC-45LambdaLift-n--6436-2735-u--allPrfs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3 e-7)))))))))) +(define CompilerC-45LambdaLift-u--show_Show_LiftedDef (lambda (arg-0) (case (vector-ref arg-0 0) ((0) (let ((e-0 (vector-ref arg-0 1))) (let ((e-1 (vector-ref arg-0 2))) (let ((e-2 (vector-ref arg-0 3))) (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45Name-u--show_Show_Name u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Name-u--showPrec_Show_Name u--d u--x)))) e-0) (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45Name-u--show_Show_Name u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Name-u--showPrec_Show_Name u--d u--x)))) (DataC-45List-reverse e-1)) (PreludeC-45TypesC-45String-C-43C-43 ": " (CompilerC-45LambdaLift-u--show_Show_C-40LiftedC-32C-36vsC-41 (PreludeC-45TypesC-45List-C-43C-43 e-1 e-0) e-2)))))))) ((1) (let ((e-3 (vector-ref arg-0 1))) (let ((e-4 (vector-ref arg-0 2))) (let ((e-5 (vector-ref arg-0 3))) (PreludeC-45TypesC-45String-C-43C-43 "Constructor tag " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_Int u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_Int u--d u--x)))) e-3) (PreludeC-45TypesC-45String-C-43C-43 " arity " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Nat e-4) (PreludeC-45Types-maybe (lambda () "") (lambda () (lambda (u--n) (PreludeC-45TypesC-45String-C-43C-43 " (newtype by " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Nat u--n) ")")))) e-5))))))))) ((2) (let ((e-6 (vector-ref arg-0 1))) (let ((e-7 (vector-ref arg-0 2))) (let ((e-8 (vector-ref arg-0 3))) (PreludeC-45TypesC-45String-C-43C-43 "Foreign call " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_String u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_String u--d u--x)))) e-6) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45CompileExpr-u--show_Show_CFType u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45CompileExpr-u--showPrec_Show_CFType u--d u--x)))) e-7) (PreludeC-45TypesC-45String-C-43C-43 " -> " (CoreC-45CompileExpr-u--show_Show_CFType e-8)))))))))) (else (let ((e-9 (vector-ref arg-0 1))) (PreludeC-45TypesC-45String-C-43C-43 "Error: " (CompilerC-45LambdaLift-u--show_Show_C-40LiftedC-32C-36vsC-41 '() e-9))))))) +(define CompilerC-45LambdaLift-u--show_Show_C-40LiftedConstAltC-32C-36vsC-41 (lambda (arg-0 arg-1) (let ((e-1 (car arg-1))) (let ((e-2 (cdr arg-1))) (PreludeC-45TypesC-45String-C-43C-43 "%constalt(" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_Constant e-1) (PreludeC-45TypesC-45String-C-43C-43 ") => " (CompilerC-45LambdaLift-u--show_Show_C-40LiftedC-32C-36vsC-41 arg-0 e-2)))))))) +(define CompilerC-45LambdaLift-u--show_Show_C-40LiftedConAltC-32C-36vsC-41 (lambda (arg-0 arg-1) (let ((e-1 (vector-ref arg-1 0))) (let ((e-4 (vector-ref arg-1 3))) (let ((e-5 (vector-ref arg-1 4))) (PreludeC-45TypesC-45String-C-43C-43 "%conalt " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-1) (PreludeC-45TypesC-45String-C-43C-43 "(" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-showSep ", " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45Name-u--show_Show_Name eta-0)) e-4)) (PreludeC-45TypesC-45String-C-43C-43 ") => " (CompilerC-45LambdaLift-u--show_Show_C-40LiftedC-32C-36vsC-41 (PreludeC-45TypesC-45List-C-43C-43 e-4 arg-0) e-5))))))))))) +(define CompilerC-45LambdaLift-u--show_Show_C-40LiftedC-32C-36vsC-41 (lambda (arg-0 arg-1) (case (vector-ref arg-1 0) ((0) (let ((e-2 (vector-ref arg-1 1))) (PreludeC-45TypesC-45String-C-43C-43 "!" (CoreC-45Name-u--show_Show_Name (CoreC-45TT-nameAt arg-0 e-2))))) ((1) (let ((e-7 (vector-ref arg-1 2))) (let ((e-8 (vector-ref arg-1 3))) (let ((e-9 (vector-ref arg-1 4))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-8) (PreludeC-45TypesC-45String-C-43C-43 (CompilerC-45LambdaLift-showLazy e-7) (PreludeC-45TypesC-45String-C-43C-43 "(" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-showSep ", " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CompilerC-45LambdaLift-u--show_Show_C-40LiftedC-32C-36vsC-41 arg-0 eta-0)) e-9)) ")")))))))) ((2) (let ((e-12 (vector-ref arg-1 2))) (let ((e-13 (vector-ref arg-1 3))) (let ((e-14 (vector-ref arg-1 4))) (PreludeC-45TypesC-45String-C-43C-43 "<" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-12) (PreludeC-45TypesC-45String-C-43C-43 " underapp " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Nat e-13) (PreludeC-45TypesC-45String-C-43C-43 ">(" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-showSep ", " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CompilerC-45LambdaLift-u--show_Show_C-40LiftedC-32C-36vsC-41 arg-0 eta-0)) e-14)) ")")))))))))) ((3) (let ((e-17 (vector-ref arg-1 2))) (let ((e-18 (vector-ref arg-1 3))) (let ((e-19 (vector-ref arg-1 4))) (PreludeC-45TypesC-45String-C-43C-43 (CompilerC-45LambdaLift-u--show_Show_C-40LiftedC-32C-36vsC-41 arg-0 e-18) (PreludeC-45TypesC-45String-C-43C-43 (CompilerC-45LambdaLift-showLazy e-17) (PreludeC-45TypesC-45String-C-43C-43 " @ (" (PreludeC-45TypesC-45String-C-43C-43 (CompilerC-45LambdaLift-u--show_Show_C-40LiftedC-32C-36vsC-41 arg-0 e-19) ")")))))))) ((4) (let ((e-22 (vector-ref arg-1 2))) (let ((e-23 (vector-ref arg-1 3))) (let ((e-24 (vector-ref arg-1 4))) (PreludeC-45TypesC-45String-C-43C-43 "%let " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-22) (PreludeC-45TypesC-45String-C-43C-43 " = " (PreludeC-45TypesC-45String-C-43C-43 (CompilerC-45LambdaLift-u--show_Show_C-40LiftedC-32C-36vsC-41 arg-0 e-23) (PreludeC-45TypesC-45String-C-43C-43 " in " (CompilerC-45LambdaLift-u--show_Show_C-40LiftedC-32C-36vsC-41 (cons e-22 arg-0) e-24)))))))))) ((5) (let ((e-27 (vector-ref arg-1 2))) (let ((e-30 (vector-ref arg-1 5))) (PreludeC-45TypesC-45String-C-43C-43 "%con " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-27) (PreludeC-45TypesC-45String-C-43C-43 "(" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-showSep ", " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CompilerC-45LambdaLift-u--show_Show_C-40LiftedC-32C-36vsC-41 arg-0 eta-0)) e-30)) ")"))))))) ((6) (let ((e-34 (vector-ref arg-1 3))) (let ((e-35 (vector-ref arg-1 4))) (let ((e-36 (vector-ref arg-1 5))) (PreludeC-45TypesC-45String-C-43C-43 "%op " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40PrimFnC-32C-36arityC-41 e-35) (PreludeC-45TypesC-45String-C-43C-43 (CompilerC-45LambdaLift-showLazy e-34) (PreludeC-45TypesC-45String-C-43C-43 "(" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-showSep ", " (DataC-45Vect-u--toList_Foldable_C-40VectC-32C-36nC-41 (DataC-45Vect-u--map_Functor_C-40VectC-32C-36nC-41 (lambda (eta-0) (CompilerC-45LambdaLift-u--show_Show_C-40LiftedC-32C-36vsC-41 arg-0 eta-0)) e-36))) ")"))))))))) ((7) (let ((e-39 (vector-ref arg-1 2))) (let ((e-40 (vector-ref arg-1 3))) (let ((e-41 (vector-ref arg-1 4))) (PreludeC-45TypesC-45String-C-43C-43 "%extprim " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-40) (PreludeC-45TypesC-45String-C-43C-43 (CompilerC-45LambdaLift-showLazy e-39) (PreludeC-45TypesC-45String-C-43C-43 "(" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-showSep ", " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CompilerC-45LambdaLift-u--show_Show_C-40LiftedC-32C-36vsC-41 arg-0 eta-0)) e-41)) ")"))))))))) ((8) (let ((e-44 (vector-ref arg-1 2))) (let ((e-45 (vector-ref arg-1 3))) (let ((e-46 (vector-ref arg-1 4))) (PreludeC-45TypesC-45String-C-43C-43 "%case " (PreludeC-45TypesC-45String-C-43C-43 (CompilerC-45LambdaLift-u--show_Show_C-40LiftedC-32C-36vsC-41 arg-0 e-44) (PreludeC-45TypesC-45String-C-43C-43 " of { " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-showSep "| " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CompilerC-45LambdaLift-u--show_Show_C-40LiftedConAltC-32C-36vsC-41 arg-0 eta-0)) e-45)) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45Show-u--show_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (u--x) (CompilerC-45LambdaLift-u--show_Show_C-40LiftedC-32C-36vsC-41 arg-0 u--x)) (lambda (u--d) (lambda (u--x) (CompilerC-45LambdaLift-u--showPrec_Show_C-40LiftedC-32C-36vsC-41 arg-0 u--d u--x)))) e-46)))))))))) ((9) (let ((e-49 (vector-ref arg-1 2))) (let ((e-50 (vector-ref arg-1 3))) (let ((e-51 (vector-ref arg-1 4))) (PreludeC-45TypesC-45String-C-43C-43 "%case " (PreludeC-45TypesC-45String-C-43C-43 (CompilerC-45LambdaLift-u--show_Show_C-40LiftedC-32C-36vsC-41 arg-0 e-49) (PreludeC-45TypesC-45String-C-43C-43 " of { " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-showSep "| " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CompilerC-45LambdaLift-u--show_Show_C-40LiftedConstAltC-32C-36vsC-41 arg-0 eta-0)) e-50)) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45Show-u--show_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (u--x) (CompilerC-45LambdaLift-u--show_Show_C-40LiftedC-32C-36vsC-41 arg-0 u--x)) (lambda (u--d) (lambda (u--x) (CompilerC-45LambdaLift-u--showPrec_Show_C-40LiftedC-32C-36vsC-41 arg-0 u--d u--x)))) e-51)))))))))) ((10) (let ((e-54 (vector-ref arg-1 2))) (CoreC-45TT-u--show_Show_Constant e-54))) ((11) "___") (else (let ((e-59 (vector-ref arg-1 2))) (PreludeC-45TypesC-45String-C-43C-43 "%CRASH(" (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_String e-59) ")"))))))) +(define CompilerC-45LambdaLift-u--showPrec_Show_C-40LiftedC-32C-36vsC-41 (lambda (arg-0 arg-1 arg-2) (CompilerC-45LambdaLift-u--show_Show_C-40LiftedC-32C-36vsC-41 arg-0 arg-2))) +(define CompilerC-45LambdaLift-weakenUsed (lambda (arg-1 arg-2) (DataC-45Vect-C-43C-43 (DataC-45Vect-replicate (PreludeC-45TypesC-45List-length arg-1) 0) arg-2))) +(define CompilerC-45LambdaLift-usedVars (lambda (arg-0 arg-1 arg-2 arg-3) (case (vector-ref arg-3 0) ((0) (let ((e-2 (vector-ref arg-3 1))) (CompilerC-45LambdaLift-markUsed arg-0 e-2 arg-2))) ((1) (let ((e-9 (vector-ref arg-3 4))) (PreludeC-45Types-u--foldl_Foldable_List (lambda (eta-0) (lambda (eta-1) (CompilerC-45LambdaLift-usedVars arg-0 arg-1 eta-0 eta-1))) arg-2 e-9))) ((2) (let ((e-14 (vector-ref arg-3 4))) (PreludeC-45Types-u--foldl_Foldable_List (lambda (eta-0) (lambda (eta-1) (CompilerC-45LambdaLift-usedVars arg-0 arg-1 eta-0 eta-1))) arg-2 e-14))) ((3) (let ((e-18 (vector-ref arg-3 3))) (let ((e-19 (vector-ref arg-3 4))) (CompilerC-45LambdaLift-usedVars arg-0 arg-1 (CompilerC-45LambdaLift-usedVars arg-0 arg-1 arg-2 e-19) e-18)))) ((4) (let ((e-22 (vector-ref arg-3 2))) (let ((e-23 (vector-ref arg-3 3))) (let ((e-24 (vector-ref arg-3 4))) (let ((u--innerUsed (CompilerC-45LambdaLift-contractUsed (CompilerC-45LambdaLift-usedVars (PreludeC-45TypesC-45List-C-43C-43 (cons e-22 '()) arg-0) arg-1 (CompilerC-45LambdaLift-weakenUsed (cons e-22 '()) arg-2) e-24)))) (CompilerC-45LambdaLift-usedVars arg-0 arg-1 u--innerUsed e-23)))))) ((5) (let ((e-30 (vector-ref arg-3 5))) (PreludeC-45Types-u--foldl_Foldable_List (lambda (eta-0) (lambda (eta-1) (CompilerC-45LambdaLift-usedVars arg-0 arg-1 eta-0 eta-1))) arg-2 e-30))) ((6) (let ((e-36 (vector-ref arg-3 5))) (DataC-45Vect-u--foldl_Foldable_C-40VectC-32C-36nC-41 (lambda (eta-0) (lambda (eta-1) (CompilerC-45LambdaLift-usedVars arg-0 arg-1 eta-0 eta-1))) arg-2 e-36))) ((7) (let ((e-41 (vector-ref arg-3 4))) (PreludeC-45Types-u--foldl_Foldable_List (lambda (eta-0) (lambda (eta-1) (CompilerC-45LambdaLift-usedVars arg-0 arg-1 eta-0 eta-1))) arg-2 e-41))) ((8) (let ((e-43 (vector-ref arg-3 1))) (let ((e-44 (vector-ref arg-3 2))) (let ((e-45 (vector-ref arg-3 3))) (let ((e-46 (vector-ref arg-3 4))) (let ((u--defUsed (PreludeC-45Types-maybe (lambda () arg-2) (lambda () (lambda (eta-0) (CompilerC-45LambdaLift-usedVars arg-0 arg-1 arg-2 eta-0))) e-46))) (let ((u--scDefUsed (CompilerC-45LambdaLift-usedVars arg-0 arg-1 u--defUsed e-44))) (PreludeC-45Types-u--foldl_Foldable_List (lambda (eta-0) (lambda (eta-1) (CompilerC-45LambdaLift-n--6448-3490-u--usedConAlt arg-0 e-46 e-45 e-44 e-43 arg-2 arg-1 '() eta-0 eta-1))) u--scDefUsed e-45)))))))) ((9) (let ((e-48 (vector-ref arg-3 1))) (let ((e-49 (vector-ref arg-3 2))) (let ((e-50 (vector-ref arg-3 3))) (let ((e-51 (vector-ref arg-3 4))) (let ((u--defUsed (PreludeC-45Types-maybe (lambda () arg-2) (lambda () (lambda (eta-0) (CompilerC-45LambdaLift-usedVars arg-0 arg-1 arg-2 eta-0))) e-51))) (let ((u--scDefUsed (CompilerC-45LambdaLift-usedVars arg-0 arg-1 u--defUsed e-49))) (PreludeC-45Types-u--foldl_Foldable_List (lambda (eta-0) (lambda (eta-1) (CompilerC-45LambdaLift-n--6448-3525-u--usedConstAlt arg-0 e-51 e-50 e-49 e-48 arg-2 arg-1 '() eta-0 eta-1))) u--scDefUsed e-50)))))))) ((10) arg-2) ((11) arg-2) (else arg-2)))) +(define CompilerC-45LambdaLift-unload (lambda (arg-1 arg-2 arg-3 arg-4) (if (null? arg-4) (lambda (eta-0) (vector 1 arg-3)) (let ((e-2 (car arg-4))) (let ((e-3 (cdr arg-4))) (CompilerC-45LambdaLift-unload arg-1 '() (vector 3 arg-1 arg-2 arg-3 e-2) e-3)))))) +(define CompilerC-45LambdaLift-showLazy (lambda (ext-0) (PreludeC-45Types-maybe (lambda () "") (lambda () (lambda (eta-0) (PreludeC-45TypesC-45String-C-43C-43 " " (CoreC-45TT-u--show_Show_LazyReason eta-0)))) ext-0))) +(define CompilerC-45LambdaLift-markUsed (lambda (arg-1 arg-2 arg-4) (let ((u--newUsed (DataC-45Vect-replaceAt (CompilerC-45LambdaLift-n--6348-2590-u--finIdx arg-1 arg-4 arg-2 arg-1 arg-2) 1 arg-4))) u--newUsed))) +(define CompilerC-45LambdaLift-makeLam (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (case (vector-ref arg-6 0) ((2) (let ((e-2 (vector-ref arg-6 2))) (let ((e-3 (vector-ref arg-6 3))) (CompilerC-45LambdaLift-makeLam arg-0 arg-1 arg-2 arg-3 arg-4 (cons e-2 arg-5) e-3))))(else (lambda (eta-0) (let ((act-24 ((CompilerC-45LambdaLift-liftExp (PreludeC-45TypesC-45List-C-43C-43 arg-5 arg-1) arg-0 arg-2 arg-3 arg-6) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((u--scUsedL (CompilerC-45LambdaLift-usedVars (PreludeC-45TypesC-45List-C-43C-43 arg-5 arg-1) arg-0 (CompilerC-45LambdaLift-initUsed (PreludeC-45TypesC-45List-C-43C-43 arg-5 arg-1)) e-5))) (let ((u--unusedContracted (CompilerC-45LambdaLift-contractUsedMany arg-5 u--scUsedL))) (let ((u--unused (CompilerC-45LambdaLift-getUnused u--unusedContracted))) (let ((u--sclC-39 (CompilerC-45LambdaLift-dropUnused arg-1 arg-0 arg-5 u--unused e-5))) (let ((act-25 (CompilerC-45LambdaLift-genName arg-0 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (let ((act-26 (unbox arg-0))) (vector 1 act-26)))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (let ((act-27 (set-box! arg-0 (let ((e-0 (vector-ref e-7 0))) (let ((e-1 (vector-ref e-7 1))) (let ((e-2 (vector-ref e-7 2))) (vector e-0 (cons (cons e-6 (vector 0 (CompilerC-45LambdaLift-dropped arg-1 u--unused) arg-5 u--sclC-39)) e-1) e-2))))))) (vector 1 act-27)))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (vector 1 (vector 2 arg-4 e-6 (PreludeC-45TypesC-45List-length arg-5) (CompilerC-45LambdaLift-n--6436-2736-u--allVars arg-2 arg-3 arg-5 arg-1 arg-6 arg-4 arg-0 arg-4 arg-1 u--unused))))))))))))))))))))))))))) +(define CompilerC-45LambdaLift-liftExp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (case (vector-ref arg-4 0) ((0) (let ((e-2 (vector-ref arg-4 1))) (let ((e-3 (vector-ref arg-4 2))) (lambda (eta-0) (vector 1 (vector 0 e-2 e-3)))))) ((1) (let ((e-6 (vector-ref arg-4 1))) (let ((e-7 (vector-ref arg-4 2))) (lambda (eta-0) (vector 1 (vector 1 e-6 arg-3 e-7 '())))))) ((2) (let ((e-9 (vector-ref arg-4 1))) (let ((e-10 (vector-ref arg-4 2))) (let ((e-11 (vector-ref arg-4 3))) (CompilerC-45LambdaLift-makeLam arg-1 arg-0 arg-2 arg-3 e-9 (cons e-10 '()) e-11))))) ((3) (let ((e-13 (vector-ref arg-4 1))) (let ((e-14 (vector-ref arg-4 2))) (let ((e-16 (vector-ref arg-4 4))) (let ((e-17 (vector-ref arg-4 5))) (lambda (eta-0) (let ((act-24 ((CompilerC-45LambdaLift-liftExp arg-0 arg-1 arg-2 '() e-16) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CompilerC-45LambdaLift-liftExp (cons e-14 arg-0) arg-1 arg-2 '() e-17) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (vector 4 e-13 e-14 e-5 e-6)))))))))))))))) ((4) (let ((e-19 (vector-ref arg-4 1))) (let ((e-20 (vector-ref arg-4 2))) (let ((e-21 (vector-ref arg-4 3))) (lambda (clam-0) (case (vector-ref e-20 0) ((1) (let ((e-65 (vector-ref e-20 2))) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45LambdaLift-liftExp arg-0 arg-1 arg-2 '() eta-0)) e-21 '() clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 1 e-19 arg-3 e-65 e-5))))))))(else (let ((act-24 ((CompilerC-45LambdaLift-liftExp arg-0 arg-1 arg-2 '() e-20) clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45LambdaLift-liftExp arg-0 arg-1 arg-2 '() eta-0)) e-21 '() clam-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) ((CompilerC-45LambdaLift-unload e-19 arg-3 e-5 e-6) clam-0)))))))))))))))) ((5) (let ((e-23 (vector-ref arg-4 1))) (let ((e-24 (vector-ref arg-4 2))) (let ((e-25 (vector-ref arg-4 3))) (let ((e-26 (vector-ref arg-4 4))) (let ((e-27 (vector-ref arg-4 5))) (lambda (eta-0) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-1) (CompilerC-45LambdaLift-liftExp arg-0 arg-1 arg-2 '() eta-1)) e-27 '() eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 5 e-23 e-24 e-25 e-26 e-5))))))))))))) ((6) (let ((e-29 (vector-ref arg-4 1))) (let ((e-30 (vector-ref arg-4 2))) (let ((e-31 (vector-ref arg-4 3))) (let ((e-32 (vector-ref arg-4 4))) (lambda (eta-0) (let ((act-24 (CompilerC-45LambdaLift-n--6443-3085-u--traverseArgs arg-0 arg-2 arg-3 e-29 e-32 e-31 e-30 arg-1 e-32 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 6 e-29 e-30 arg-3 e-31 e-5)))))))))))) ((7) (let ((e-34 (vector-ref arg-4 1))) (let ((e-35 (vector-ref arg-4 2))) (let ((e-36 (vector-ref arg-4 3))) (lambda (eta-0) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-1) (CompilerC-45LambdaLift-liftExp arg-0 arg-1 arg-2 '() eta-1)) e-36 '() eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 7 e-34 arg-3 e-35 e-5))))))))))) ((8) (let ((e-38 (vector-ref arg-4 1))) (let ((e-40 (vector-ref arg-4 3))) (cond ((equal? arg-2 1) (CompilerC-45LambdaLift-liftExp arg-0 arg-1 arg-2 '() e-40)) (else (CompilerC-45LambdaLift-liftExp arg-0 arg-1 arg-2 '() (vector 4 e-38 e-40 (cons (vector 13 e-38) '())))))))) ((9) (let ((e-42 (vector-ref arg-4 1))) (let ((e-43 (vector-ref arg-4 2))) (let ((e-44 (vector-ref arg-4 3))) (cond ((equal? arg-2 1) (CompilerC-45LambdaLift-liftExp arg-0 arg-1 arg-2 (box e-43) e-44)) (else (CompilerC-45LambdaLift-liftExp arg-0 arg-1 arg-2 '() (vector 2 e-42 (vector 2 "act" 0) (CoreC-45CompileExpr-u--weaken_Weaken_CExp e-44))))))))) ((10) (let ((e-46 (vector-ref arg-4 1))) (let ((e-47 (vector-ref arg-4 2))) (let ((e-48 (vector-ref arg-4 3))) (let ((e-49 (vector-ref arg-4 4))) (lambda (eta-0) (let ((act-24 ((CompilerC-45LambdaLift-liftExp arg-0 arg-1 arg-2 '() e-47) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (eta-1) (lambda (eta-2) (CompilerC-45LambdaLift-n--6443-3259-u--liftConAlt arg-0 arg-2 arg-3 e-49 e-48 e-47 e-46 arg-1 arg-3 eta-1 eta-2))) e-48 '() eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (if (null? e-49) (vector 1 '()) (let ((e-2 (unbox e-49))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (case (vector-ref eta-1 0) ((0) (let ((e-3 (vector-ref eta-1 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref eta-1 1))) (vector 1 (box e-7)))))) (CompilerC-45LambdaLift-liftExp arg-0 arg-1 arg-2 '() e-2) eta-0))))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (vector 8 e-46 e-5 e-6 e-7)))))))))))))))))))) ((11) (let ((e-51 (vector-ref arg-4 1))) (let ((e-52 (vector-ref arg-4 2))) (let ((e-53 (vector-ref arg-4 3))) (let ((e-54 (vector-ref arg-4 4))) (lambda (eta-0) (let ((act-24 ((CompilerC-45LambdaLift-liftExp arg-0 arg-1 arg-2 '() e-52) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (eta-1) (lambda (eta-2) (CompilerC-45LambdaLift-n--6443-3310-u--liftConstAlt arg-0 arg-2 arg-3 e-54 e-53 e-52 e-51 arg-1 '() eta-1 eta-2))) e-53 '() eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (if (null? e-54) (vector 1 '()) (let ((e-2 (unbox e-54))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (case (vector-ref eta-1 0) ((0) (let ((e-3 (vector-ref eta-1 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref eta-1 1))) (vector 1 (box e-7)))))) (CompilerC-45LambdaLift-liftExp arg-0 arg-1 arg-2 '() e-2) eta-0))))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (vector 9 e-51 e-5 e-6 e-7)))))))))))))))))))) ((12) (let ((e-56 (vector-ref arg-4 1))) (let ((e-57 (vector-ref arg-4 2))) (lambda (eta-0) (vector 1 (vector 10 e-56 e-57)))))) ((13) (let ((e-59 (vector-ref arg-4 1))) (lambda (eta-0) (vector 1 (vector 11 e-59))))) (else (let ((e-61 (vector-ref arg-4 1))) (let ((e-62 (vector-ref arg-4 2))) (lambda (eta-0) (vector 1 (vector 12 e-61 e-62))))))))) +(define CompilerC-45LambdaLift-liftBody (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (CoreC-45Core-newRef (vector "Compiler.LambdaLift.Lifts" ) (vector arg-2 '() 0) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CompilerC-45LambdaLift-liftExp arg-0 e-5 arg-1 '() arg-3) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (let ((act-26 (unbox e-5))) (vector 1 act-26)))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (cons e-6 (let ((e-1 (vector-ref e-7 1))) e-1))))))))))))))))) +(define CompilerC-45LambdaLift-lambdaLiftDef (lambda (arg-0 arg-1 arg-2 ext-0) (case (vector-ref arg-2 0) ((0) (let ((e-0 (vector-ref arg-2 1))) (let ((e-1 (vector-ref arg-2 2))) (let ((act-24 (CompilerC-45LambdaLift-liftBody e-0 arg-0 arg-1 e-1 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((e-2 (car e-5))) (let ((e-3 (cdr e-5))) (vector 1 (cons (cons arg-1 (vector 0 e-0 '() e-2)) e-3))))))))))) ((1) (let ((e-2 (vector-ref arg-2 1))) (let ((e-3 (vector-ref arg-2 2))) (let ((e-4 (vector-ref arg-2 3))) (vector 1 (cons (cons arg-1 (vector 1 e-2 e-3 e-4)) '())))))) ((2) (let ((e-5 (vector-ref arg-2 1))) (let ((e-6 (vector-ref arg-2 2))) (let ((e-7 (vector-ref arg-2 3))) (vector 1 (cons (cons arg-1 (vector 2 e-5 e-6 e-7)) '())))))) (else (let ((e-8 (vector-ref arg-2 1))) (let ((act-24 (CompilerC-45LambdaLift-liftBody '() arg-0 arg-1 e-8 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((e-2 (car e-5))) (let ((e-3 (cdr e-5))) (vector 1 (cons (cons arg-1 (vector 3 e-2)) e-3))))))))))))) +(define CompilerC-45LambdaLift-lambdaLift (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact arg-2 (let ((e-0 (vector-ref e-5 0))) e-0)) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (if (null? e-6) (vector 1 '()) (let ((e-1 (unbox e-6))) (let ((e-18 (vector-ref e-1 18))) (if (null? e-18) (vector 1 '()) (let ((e-24 (unbox e-18))) (CompilerC-45LambdaLift-lambdaLiftDef arg-1 arg-2 e-24 ext-0)))))))))))))))) +(define CompilerC-45LambdaLift-initUsed (lambda (arg-0) (DataC-45Vect-replicate (PreludeC-45TypesC-45List-length arg-0) 0))) +(define CompilerC-45LambdaLift-getUnused (lambda (arg-1) (DataC-45Vect-u--map_Functor_C-40VectC-32C-36nC-41 (lambda (eta-0) (cond ((equal? eta-0 1) 0) (else 1))) arg-1))) +(define CompilerC-45LambdaLift-genName (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((u--i (let ((e-2 (vector-ref e-5 2))) e-2))) (let ((act-25 (let ((act-25 (set-box! arg-0 (let ((e-0 (vector-ref e-5 0))) (let ((e-1 (vector-ref e-5 1))) (vector e-0 e-1 (bs+ u--i 1 63))))))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (vector 1 (CompilerC-45LambdaLift-n--6111-2378-u--mkName arg-0 (let ((e-0 (vector-ref e-5 0))) e-0) u--i)))))))))))) +(define CompilerC-45LambdaLift-dropped (lambda (arg-0 arg-1) (if (null? arg-0) '() (let ((e-2 (car arg-0))) (let ((e-3 (cdr arg-0))) (let ((e-6 (car arg-1))) (let ((e-7 (cdr arg-1))) (cond ((equal? e-6 0) (cons e-2 (CompilerC-45LambdaLift-dropped e-3 e-7))) (else (CompilerC-45LambdaLift-dropped e-3 e-7)))))))))) +(define CompilerC-45LambdaLift-dropUnused (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (case (vector-ref arg-4 0) ((10) (let ((e-1 (vector-ref arg-4 1))) (let ((e-2 (vector-ref arg-4 2))) (vector 10 e-1 e-2)))) ((11) (let ((e-4 (vector-ref arg-4 1))) (vector 11 e-4))) ((12) (let ((e-6 (vector-ref arg-4 1))) (let ((e-7 (vector-ref arg-4 2))) (vector 12 e-6 e-7)))) ((0) (let ((e-10 (vector-ref arg-4 1))) (let ((e-11 (vector-ref arg-4 2))) (vector 0 (CompilerC-45LambdaLift-dropIdx arg-0 e-10 arg-2 arg-3) e-11)))) ((5) (let ((e-14 (vector-ref arg-4 1))) (let ((e-15 (vector-ref arg-4 2))) (let ((e-16 (vector-ref arg-4 3))) (let ((e-17 (vector-ref arg-4 4))) (let ((e-18 (vector-ref arg-4 5))) (let ((u--argsC-39 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CompilerC-45LambdaLift-dropUnused arg-0 arg-1 arg-2 arg-3 eta-0)) e-18))) (vector 5 e-14 e-15 e-16 e-17 u--argsC-39)))))))) ((4) (let ((e-20 (vector-ref arg-4 1))) (let ((e-21 (vector-ref arg-4 2))) (let ((e-22 (vector-ref arg-4 3))) (let ((e-23 (vector-ref arg-4 4))) (let ((u--valC-39 (CompilerC-45LambdaLift-dropUnused arg-0 arg-1 arg-2 arg-3 e-22))) (let ((u--scC-39 (CompilerC-45LambdaLift-dropUnused arg-0 arg-1 (cons e-21 arg-2) arg-3 e-23))) (vector 4 e-20 e-21 u--valC-39 u--scC-39)))))))) ((3) (let ((e-25 (vector-ref arg-4 1))) (let ((e-26 (vector-ref arg-4 2))) (let ((e-27 (vector-ref arg-4 3))) (let ((e-28 (vector-ref arg-4 4))) (let ((u--cC-39 (CompilerC-45LambdaLift-dropUnused arg-0 arg-1 arg-2 arg-3 e-27))) (let ((u--argC-39 (CompilerC-45LambdaLift-dropUnused arg-0 arg-1 arg-2 arg-3 e-28))) (vector 3 e-25 e-26 u--cC-39 u--argC-39)))))))) ((6) (let ((e-30 (vector-ref arg-4 1))) (let ((e-31 (vector-ref arg-4 2))) (let ((e-32 (vector-ref arg-4 3))) (let ((e-33 (vector-ref arg-4 4))) (let ((e-34 (vector-ref arg-4 5))) (let ((u--argsC-39 (DataC-45Vect-u--map_Functor_C-40VectC-32C-36nC-41 (lambda (eta-0) (CompilerC-45LambdaLift-dropUnused arg-0 arg-1 arg-2 arg-3 eta-0)) e-34))) (vector 6 e-30 e-31 e-32 e-33 u--argsC-39)))))))) ((7) (let ((e-36 (vector-ref arg-4 1))) (let ((e-37 (vector-ref arg-4 2))) (let ((e-38 (vector-ref arg-4 3))) (let ((e-39 (vector-ref arg-4 4))) (let ((u--argsC-39 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CompilerC-45LambdaLift-dropUnused arg-0 arg-1 arg-2 arg-3 eta-0)) e-39))) (vector 7 e-36 e-37 e-38 u--argsC-39))))))) ((1) (let ((e-41 (vector-ref arg-4 1))) (let ((e-42 (vector-ref arg-4 2))) (let ((e-43 (vector-ref arg-4 3))) (let ((e-44 (vector-ref arg-4 4))) (let ((u--argsC-39 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CompilerC-45LambdaLift-dropUnused arg-0 arg-1 arg-2 arg-3 eta-0)) e-44))) (vector 1 e-41 e-42 e-43 u--argsC-39))))))) ((2) (let ((e-46 (vector-ref arg-4 1))) (let ((e-47 (vector-ref arg-4 2))) (let ((e-48 (vector-ref arg-4 3))) (let ((e-49 (vector-ref arg-4 4))) (let ((u--argsC-39 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CompilerC-45LambdaLift-dropUnused arg-0 arg-1 arg-2 arg-3 eta-0)) e-49))) (vector 2 e-46 e-47 e-48 u--argsC-39))))))) ((8) (let ((e-51 (vector-ref arg-4 1))) (let ((e-52 (vector-ref arg-4 2))) (let ((e-53 (vector-ref arg-4 3))) (let ((e-54 (vector-ref arg-4 4))) (let ((u--altsC-39 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CompilerC-45LambdaLift-n--6464-3956-u--dropConCase arg-2 arg-0 e-54 e-53 e-52 e-51 arg-3 arg-1 eta-0)) e-53))) (vector 8 e-51 (CompilerC-45LambdaLift-dropUnused arg-0 arg-1 arg-2 arg-3 e-52) u--altsC-39 (PreludeC-45Types-u--map_Functor_Maybe (lambda (eta-0) (CompilerC-45LambdaLift-dropUnused arg-0 arg-1 arg-2 arg-3 eta-0)) e-54)))))))) (else (let ((e-56 (vector-ref arg-4 1))) (let ((e-57 (vector-ref arg-4 2))) (let ((e-58 (vector-ref arg-4 3))) (let ((e-59 (vector-ref arg-4 4))) (let ((u--altsC-39 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CompilerC-45LambdaLift-n--6464-4020-u--dropConstCase arg-2 arg-0 e-59 e-58 e-57 e-56 arg-3 arg-1 eta-0)) e-58))) (vector 9 e-56 (CompilerC-45LambdaLift-dropUnused arg-0 arg-1 arg-2 arg-3 e-57) u--altsC-39 (PreludeC-45Types-u--map_Functor_Maybe (lambda (eta-0) (CompilerC-45LambdaLift-dropUnused arg-0 arg-1 arg-2 arg-3 eta-0)) e-59))))))))))) +(define CompilerC-45LambdaLift-dropIdx (lambda (arg-1 arg-2 arg-3 arg-4) (if (null? arg-1) (cond ((equal? arg-2 0) 0)(else (let ((e-0 (- arg-2 1))) (let ((e-6 (cdr arg-3))) (CoreC-45TTC-45Var-later (CompilerC-45LambdaLift-dropIdx arg-1 e-0 e-6 arg-4)))))) (let ((e-9 (cdr arg-1))) (cond ((equal? arg-2 0) (if (null? arg-3) (if (null? arg-4) (cond ((equal? arg-2 0) 0)(else (let ((e-0 (- arg-2 1))) (let ((e-6 (cdr arg-3))) (CoreC-45TTC-45Var-later (CompilerC-45LambdaLift-dropIdx arg-1 e-0 e-6 arg-4)))))) (let ((e-14 (car arg-4))) (cond ((equal? e-14 0) 0) ((equal? e-14 1) (Builtin-idris_crash "INTERNAL ERROR: Referenced variable marked as unused"))(else (cond ((equal? arg-2 0) 0)(else (let ((e-0 (- arg-2 1))) (let ((e-6 (cdr arg-3))) (CoreC-45TTC-45Var-later (CompilerC-45LambdaLift-dropIdx arg-1 e-0 e-6 arg-4)))))))))) (cond ((equal? arg-2 0) 0)(else (let ((e-0 (- arg-2 1))) (let ((e-6 (cdr arg-3))) (CoreC-45TTC-45Var-later (CompilerC-45LambdaLift-dropIdx arg-1 e-0 e-6 arg-4))))))))(else (let ((e-10 (- arg-2 1))) (if (null? arg-3) (if (null? arg-4) (cond ((equal? arg-2 0) 0)(else (let ((e-0 (- arg-2 1))) (let ((e-6 (cdr arg-3))) (CoreC-45TTC-45Var-later (CompilerC-45LambdaLift-dropIdx arg-1 e-0 e-6 arg-4)))))) (let ((e-19 (car arg-4))) (let ((e-20 (cdr arg-4))) (cond ((equal? e-19 0) (CoreC-45TTC-45Var-later (CompilerC-45LambdaLift-dropIdx e-9 e-10 '() e-20))) ((equal? e-19 1) (CompilerC-45LambdaLift-dropIdx e-9 e-10 '() e-20))(else (cond ((equal? arg-2 0) 0)(else (let ((e-0 (- arg-2 1))) (let ((e-6 (cdr arg-3))) (CoreC-45TTC-45Var-later (CompilerC-45LambdaLift-dropIdx arg-1 e-0 e-6 arg-4))))))))))) (cond ((equal? arg-2 0) 0)(else (let ((e-0 (- arg-2 1))) (let ((e-6 (cdr arg-3))) (CoreC-45TTC-45Var-later (CompilerC-45LambdaLift-dropIdx arg-1 e-0 e-6 arg-4)))))))))))))) +(define CompilerC-45LambdaLift-contractUsedMany (lambda (arg-1 arg-2) (if (null? arg-1) arg-2 (let ((e-3 (cdr arg-1))) (CompilerC-45LambdaLift-contractUsedMany e-3 (CompilerC-45LambdaLift-contractUsed arg-2)))))) +(define CompilerC-45LambdaLift-contractUsed (lambda (arg-2) (DataC-45Vect-tail arg-2))) +(define CompilerC-45Inline-case--caseC-32blockC-32inC-32updateCallGraph-5604 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (if (null? arg-5) (lambda (eta-0) (vector 1 0)) (let ((e-1 (unbox arg-5))) (let ((u--refs (CompilerC-45Inline-getRefs e-1))) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (case (vector-ref eta-1 0) ((0) (let ((e-2 (vector-ref eta-1 1))) (vector 0 e-2))) (else (vector 1 0)))) (lambda (eta-1) (CoreC-45Context-addDef arg-1 arg-0 (let ((e-0 (vector-ref arg-3 0))) (let ((e-21 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-3 (vector-ref arg-3 3))) (let ((e-4 (vector-ref arg-3 4))) (let ((e-5 (vector-ref arg-3 5))) (let ((e-6 (vector-ref arg-3 6))) (let ((e-7 (vector-ref arg-3 7))) (let ((e-8 (vector-ref arg-3 8))) (let ((e-9 (vector-ref arg-3 9))) (let ((e-10 (vector-ref arg-3 10))) (let ((e-11 (vector-ref arg-3 11))) (let ((e-12 (vector-ref arg-3 12))) (let ((e-14 (vector-ref arg-3 14))) (let ((e-15 (vector-ref arg-3 15))) (let ((e-16 (vector-ref arg-3 16))) (let ((e-17 (vector-ref arg-3 17))) (let ((e-18 (vector-ref arg-3 18))) (let ((e-19 (vector-ref arg-3 19))) (let ((e-20 (vector-ref arg-3 20))) (vector e-0 e-21 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 (box u--refs) e-14 e-15 e-16 e-17 e-18 e-19 e-20))))))))))))))))))))) eta-1)) eta-0))))))) +(define CompilerC-45Inline-case--mergeLambdas-5139 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((e-2 (car arg-4))) (let ((e-3 (cdr arg-4))) (let ((e-6 (car e-3))) (let ((e-7 (cdr e-3))) (let ((u--expNs (CoreC-45CompileExpr-substs e-2 arg-1 e-6 e-7))) (let ((u--newArgs (DataC-45List-reverse (CompilerC-45Inline-getNewArgs e-2 e-6)))) (let ((u--expLocs (CoreC-45CompileExpr-mkLocals (CoreC-45TTC-45SizeOf-mkSizeOf arg-1) (CompilerC-45Inline-mkBounds u--newArgs) u--expNs))) (cons (PreludeC-45TypesC-45List-C-43C-43 arg-1 (PreludeC-45TypesC-45List-C-43C-43 u--newArgs '())) u--expLocs)))))))))) +(define CompilerC-45Inline-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32eval-3063 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (if (null? arg-14) (lambda (eta-0) (vector 1 (CompilerC-45Inline-unload arg-4 (vector 1 arg-3 arg-2)))) (let ((e-1 (unbox arg-14))) (let ((u--arity (CompilerC-45Inline-getArity e-1))) (lambda (clam-0) (let ((sc1 (let ((sc2 (PreludeC-45Types-elem (cons (lambda (arg-15) (lambda (arg-16) (CoreC-45Context-u--C-61C-61_Eq_DefFlag arg-15 arg-16))) (lambda (arg-15) (lambda (arg-16) (CoreC-45Context-u--C-47C-61_Eq_DefFlag arg-15 arg-16)))) (vector 0 ) (let ((e-11 (vector-ref arg-12 11))) e-11)))) (cond ((equal? sc2 1) (let ((sc3 (PreludeC-45Types-elem (cons (lambda (arg-15) (lambda (arg-16) (CoreC-45Name-u--C-61C-61_Eq_Name arg-15 arg-16))) (lambda (arg-15) (lambda (arg-16) (CoreC-45Name-u--C-47C-61_Eq_Name arg-15 arg-16)))) arg-2 arg-6))) (cond ((equal? sc3 1) 0) (else 1)))) (else 0))))) (cond ((equal? sc1 1) (let ((act-24 ((CompilerC-45Inline-tryApply arg-0 arg-1 arg-8 arg-7 (cons arg-2 arg-6) arg-4 arg-5 e-1) clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (DataC-45Maybe-fromMaybe (lambda () (CompilerC-45Inline-unloadApp u--arity arg-4 (vector 1 arg-3 arg-2))) e-5))))))) (else (vector 1 (CompilerC-45Inline-unloadApp u--arity arg-4 (vector 1 arg-3 arg-2)))))))))))) +(define CompilerC-45Inline-case--eval-2916 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((e-2 (car arg-9))) (let ((e-3 (cdr arg-9))) (cond ((equal? e-2 1) (if (null? e-3) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-8))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact arg-2 (let ((e-0 (vector-ref e-5 0))) e-0)) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref act-25 1))) (if (null? e-6) (vector 1 (CompilerC-45Inline-unload arg-4 (vector 1 arg-3 arg-2))) (let ((e-1 (unbox e-6))) (let ((_-0 (box e-1))) ((CompilerC-45Inline-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32eval-3063 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-3 e-2 e-5 e-1 _-0 (let ((e-18 (vector-ref e-1 18))) e-18)) eta-0))))))))))))) (let ((e-5 (car e-3))) (let ((e-6 (cdr e-3))) (lambda (clam-0) (if (null? e-6) (let ((act-24 (let ((act-24 (unbox arg-8))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact arg-2 (let ((e-0 (vector-ref e-7 0))) e-0)) clam-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref act-25 1))) (if (null? e-8) (vector 1 (CompilerC-45Inline-unload arg-4 (vector 1 arg-3 arg-2))) (let ((e-1 (unbox e-8))) (let ((_-0 (box e-1))) ((CompilerC-45Inline-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32eval-3063 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-3 e-2 e-7 e-1 _-0 (let ((e-18 (vector-ref e-1 18))) e-18)) clam-0)))))))))))) (let ((e-8 (car e-6))) (let ((e-9 (cdr e-6))) (if (null? e-9) (let ((act-24 (let ((act-24 (unbox arg-8))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact arg-2 (let ((e-0 (vector-ref e-7 0))) e-0)) clam-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref act-25 1))) (if (null? e-10) (vector 1 (CompilerC-45Inline-unload arg-4 (vector 1 arg-3 arg-2))) (let ((e-1 (unbox e-10))) (let ((_-0 (box e-1))) ((CompilerC-45Inline-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32eval-3063 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-3 e-2 e-7 e-1 _-0 (let ((e-18 (vector-ref e-1 18))) e-18)) clam-0)))))))))))) (let ((e-11 (car e-9))) (let ((e-12 (cdr e-9))) (let ((act-24 (CompilerC-45Inline-genName arg-7 "act" clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref act-24 1))) (let ((act-25 ((CompilerC-45Inline-eval '() arg-1 arg-8 arg-7 arg-6 '() '() (vector 4 arg-3 e-8 (cons (vector 1 arg-3 e-7) (cons e-11 '())))) clam-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref act-25 1))) (vector 1 (CompilerC-45Inline-unload e-12 (vector 3 arg-3 e-7 0 (vector 4 arg-3 e-5 (cons e-11 '())) (CompilerC-45Inline-refToLocal e-7 e-7 e-10)))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-8))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact arg-2 (let ((e-0 (vector-ref e-5 0))) e-0)) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref act-25 1))) (if (null? e-6) (vector 1 (CompilerC-45Inline-unload arg-4 (vector 1 arg-3 arg-2))) (let ((e-1 (unbox e-6))) (let ((_-0 (box e-1))) ((CompilerC-45Inline-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32eval-3063 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-3 e-2 e-5 e-1 _-0 (let ((e-18 (vector-ref e-1 18))) e-18)) eta-0))))))))))))))))))) +(define CompilerC-45Inline-n--7026-3681-u--updateLoc (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-12 arg-13 arg-15 arg-16) (if (null? arg-13) arg-15 (cond ((equal? arg-12 0) (let ((e-8 (cdr arg-15))) (cons arg-16 e-8)))(else (let ((e-0 (- arg-12 1))) (let ((e-11 (cdr arg-13))) (let ((e-15 (car arg-15))) (let ((e-16 (cdr arg-15))) (cons e-15 (CompilerC-45Inline-n--7026-3681-u--updateLoc arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-0 e-11 e-16 arg-16))))))))))) +(define CompilerC-45Inline-n--7026-3682-u--update (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (case (vector-ref arg-12 0) ((0) (let ((e-2 (vector-ref arg-12 1))) (CompilerC-45Inline-n--7026-3681-u--updateLoc arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-2 arg-11 arg-13 arg-14)))(else arg-13)))) +(define CompilerC-45Inline-n--9255-4769-u--traverseArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-8 ext-0) (if (null? arg-8) (vector 1 '()) (let ((e-3 (car arg-8))) (let ((e-4 (cdr arg-8))) (let ((act-24 ((CompilerC-45Inline-fixArityTm arg-7 arg-5 e-3 '()) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CompilerC-45Inline-n--9255-4769-u--traverseArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 e-4 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (cons e-5 e-6))))))))))))))) +(define CompilerC-45Inline-n--10679-5841-u--transform (lambda (arg-0 arg-1 arg-2) (cond ((equal? arg-1 0) (lambda (eta-0) (vector 1 0)))(else (let ((e-0 (- arg-1 1))) (lambda (eta-0) (let ((act-24 (CoreC-45Core-traverse_ (lambda (eta-1) (lambda (eta-2) (CompilerC-45Inline-inlineDef arg-0 eta-1 eta-2))) arg-2 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45Core-traverse_ (lambda (eta-1) (lambda (eta-2) (CompilerC-45Inline-mergeLamDef arg-0 eta-1 eta-2))) arg-2 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45Core-traverse_ (lambda (eta-1) (lambda (eta-2) (CompilerC-45CaseOpts-caseLamDef arg-0 eta-1 eta-2))) arg-2 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((act-27 (CoreC-45Core-traverse_ (lambda (eta-1) (lambda (eta-2) (CompilerC-45Inline-fixArityDef arg-0 eta-1 eta-2))) arg-2 eta-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else ((CompilerC-45Inline-n--10679-5841-u--transform arg-0 e-0 arg-2) eta-0))))))))))))))))))) +(define CompilerC-45Inline-n--10679-5842-u--nonErased (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact arg-1 (let ((e-0 (vector-ref e-5 0))) e-0)) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (if (null? e-6) (vector 1 0) (let ((e-1 (unbox e-6))) (vector 1 (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega (let ((e-7 (vector-ref e-1 7))) e-7) (AlgebraC-45Semiring-erased (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))))))))))))))))) +(define CompilerC-45Inline-n--7061-4192-u--matches (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (if (null? arg-21) (if (null? arg-23) (CoreC-45Name-u--C-61C-61_Eq_Name arg-20 arg-22) 0) (let ((e-1 (unbox arg-21))) (if (null? arg-23) 0 (let ((e-4 (unbox arg-23))) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int e-1 e-4))))))) +(define CompilerC-45Inline-n--9255-4931-u--fixArityConstAlt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((e-1 (car arg-7))) (let ((e-2 (cdr arg-7))) (let ((act-24 ((CompilerC-45Inline-fixArityTm arg-0 arg-6 e-2 '()) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (cons e-1 e-5)))))))))) +(define CompilerC-45Inline-n--9255-4878-u--fixArityAlt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((e-1 (vector-ref arg-7 0))) (let ((e-2 (vector-ref arg-7 1))) (let ((e-3 (vector-ref arg-7 2))) (let ((e-4 (vector-ref arg-7 3))) (let ((e-5 (vector-ref arg-7 4))) (let ((act-24 ((CompilerC-45Inline-fixArityTm (PreludeC-45TypesC-45List-C-43C-43 e-4 arg-0) arg-6 e-5 '()) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (vector 1 (vector e-1 e-2 e-3 e-4 e-6))))))))))))) +(define CompilerC-45Inline-usedConst (lambda (arg-1 arg-2 arg-4) (let ((e-2 (cdr arg-4))) (CompilerC-45Inline-used arg-1 arg-2 e-2)))) +(define CompilerC-45Inline-usedCon (lambda (arg-1 arg-2 arg-4) (let ((e-4 (vector-ref arg-4 3))) (let ((e-5 (vector-ref arg-4 4))) (CompilerC-45Inline-used (PreludeC-45TypesC-45List-C-43C-43 e-4 arg-1) (CoreC-45TT-u--weakenNs_Weaken_Var (CoreC-45TTC-45SizeOf-mkSizeOf e-4) arg-2) e-5))))) +(define CompilerC-45Inline-used (lambda (arg-1 arg-2 arg-4) (case (vector-ref arg-4 0) ((0) (let ((e-2 (vector-ref arg-4 1))) (let ((sc1 (PreludeC-45Types-u--C-61C-61_Eq_Nat arg-2 e-2))) (cond ((equal? sc1 1) 1) (else 0))))) ((2) (let ((e-7 (vector-ref arg-4 2))) (let ((e-8 (vector-ref arg-4 3))) (CompilerC-45Inline-used (cons e-7 arg-1) (+ 1 arg-2) e-8)))) ((3) (let ((e-11 (vector-ref arg-4 2))) (let ((e-12 (vector-ref arg-4 3))) (let ((e-13 (vector-ref arg-4 4))) (let ((e-14 (vector-ref arg-4 5))) (cond ((equal? e-12 0) (let ((u--usedl (bs+ (CompilerC-45Inline-used arg-1 arg-2 e-13) (CompilerC-45Inline-used (cons e-11 arg-1) (+ 1 arg-2) e-14) 63))) (let ((sc2 (PreludeC-45EqOrd-u--C-62_Ord_Int u--usedl 0))) (cond ((equal? sc2 1) (blodwen-toSignedInt 1000 63)) (else u--usedl))))) ((equal? e-12 1) (bs+ (CompilerC-45Inline-used arg-1 arg-2 e-13) (CompilerC-45Inline-used (cons e-11 arg-1) (+ 1 arg-2) e-14) 63))(else 0))))))) ((4) (let ((e-17 (vector-ref arg-4 2))) (let ((e-18 (vector-ref arg-4 3))) (PreludeC-45Types-u--foldr_Foldable_List (lambda (eta-0) (lambda (eta-1) (bs+ eta-0 eta-1 63))) (CompilerC-45Inline-used arg-1 arg-2 e-17) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CompilerC-45Inline-used arg-1 arg-2 eta-0)) e-18))))) ((5) (let ((e-24 (vector-ref arg-4 5))) (PreludeC-45Types-u--foldr_Foldable_List (lambda (eta-0) (lambda (eta-1) (bs+ eta-0 eta-1 63))) 0 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CompilerC-45Inline-used arg-1 arg-2 eta-0)) e-24)))) ((6) (let ((e-29 (vector-ref arg-4 4))) (DataC-45Vect-u--foldr_Foldable_C-40VectC-32C-36nC-41 (lambda (eta-0) (lambda (eta-1) (bs+ eta-0 eta-1 63))) 0 (DataC-45Vect-u--map_Functor_C-40VectC-32C-36nC-41 (lambda (eta-0) (CompilerC-45Inline-used arg-1 arg-2 eta-0)) e-29)))) ((7) (let ((e-33 (vector-ref arg-4 3))) (PreludeC-45Types-u--foldr_Foldable_List (lambda (eta-0) (lambda (eta-1) (bs+ eta-0 eta-1 63))) 0 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CompilerC-45Inline-used arg-1 arg-2 eta-0)) e-33)))) ((8) (let ((e-37 (vector-ref arg-4 3))) (CompilerC-45Inline-used arg-1 arg-2 e-37))) ((9) (let ((e-41 (vector-ref arg-4 3))) (CompilerC-45Inline-used arg-1 arg-2 e-41))) ((10) (let ((e-44 (vector-ref arg-4 2))) (let ((e-45 (vector-ref arg-4 3))) (let ((e-46 (vector-ref arg-4 4))) (bs+ (CompilerC-45Inline-used arg-1 arg-2 e-44) (CompilerC-45Inline-largest (vector (cons (lambda (arg-3) (lambda (arg-5) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-5))) (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-5 arg-6)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) (PreludeC-45Types-maybe (lambda () (blodwen-toSignedInt 0 63)) (lambda () (lambda (eta-0) (CompilerC-45Inline-used arg-1 arg-2 eta-0))) e-46) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CompilerC-45Inline-usedCon arg-1 arg-2 eta-0)) e-45)) 63))))) ((11) (let ((e-49 (vector-ref arg-4 2))) (let ((e-50 (vector-ref arg-4 3))) (let ((e-51 (vector-ref arg-4 4))) (bs+ (CompilerC-45Inline-used arg-1 arg-2 e-49) (CompilerC-45Inline-largest (vector (cons (lambda (arg-3) (lambda (arg-5) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-5))) (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-5 arg-6)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) (PreludeC-45Types-maybe (lambda () (blodwen-toSignedInt 0 63)) (lambda () (lambda (eta-0) (CompilerC-45Inline-used arg-1 arg-2 eta-0))) e-51) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CompilerC-45Inline-usedConst arg-1 arg-2 eta-0)) e-50)) 63)))))(else 0)))) +(define CompilerC-45Inline-updateCallGraph (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact arg-1 (let ((e-0 (vector-ref e-5 0))) e-0)) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (if (null? e-6) (vector 1 0) (let ((e-1 (unbox e-6))) (let ((_-0 (box e-1))) ((CompilerC-45Inline-case--caseC-32blockC-32inC-32updateCallGraph-5604 arg-1 arg-0 e-5 e-1 _-0 (let ((e-18 (vector-ref e-1 18))) e-18)) ext-0)))))))))))))) +(define CompilerC-45Inline-unloadApp (lambda (arg-1 arg-2 arg-3) (CompilerC-45Inline-unload (DataC-45List-drop arg-1 arg-2) (vector 4 (CoreC-45CompileExpr-getFC arg-3) arg-3 (DataC-45List-take arg-1 arg-2))))) +(define CompilerC-45Inline-unload (lambda (arg-1 arg-2) (if (null? arg-1) arg-2 (let ((e-2 (car arg-1))) (let ((e-3 (cdr arg-1))) (CompilerC-45Inline-unload e-3 (vector 4 (CoreC-45CompileExpr-getFC arg-2) arg-2 (cons e-2 '())))))))) +(define CompilerC-45Inline-tryApply (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (case (vector-ref arg-7 0) ((0) (let ((e-0 (vector-ref arg-7 1))) (let ((e-1 (vector-ref arg-7 2))) (lambda (clam-0) (let ((sc1 (CompilerC-45Inline-takeFromStack arg-6 arg-5 e-0))) (if (null? sc1) (vector 1 '()) (let ((e-2 (unbox sc1))) (let ((e-5 (car e-2))) (let ((e-6 (cdr e-2))) (let ((act-24 ((CompilerC-45Inline-eval (PreludeC-45TypesC-45List-C-43C-43 e-0 arg-0) arg-1 arg-2 arg-3 arg-4 e-5 e-6 (CoreC-45CompileExpr-embed e-1)) clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref act-24 1))) (vector 1 (box e-7)))))))))))))))(else (lambda (eta-0) (vector 1 '())))))) +(define CompilerC-45Inline-takeFromStack (lambda (arg-2 arg-3 arg-4) (if (null? arg-3) (if (null? arg-4) (PreludeC-45Types-u--pure_Applicative_Maybe (cons arg-2 arg-3)) '()) (let ((e-3 (car arg-3))) (let ((e-4 (cdr arg-3))) (if (null? arg-4) (if (null? arg-4) (PreludeC-45Types-u--pure_Applicative_Maybe (cons arg-2 arg-3)) '()) (let ((e-7 (cdr arg-4))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CompilerC-45Inline-takeFromStack arg-2 e-4 e-7) (lambda (_-0) (let ((e-2 (car _-0))) (let ((e-5 (cdr _-0))) (PreludeC-45Types-u--pure_Applicative_Maybe (cons (cons e-3 e-2) e-5))))))))))))) +(define CompilerC-45Inline-refToLocal (lambda (arg-1 arg-2 arg-3) (CoreC-45CompileExpr-refsToLocals (vector 1 arg-2 arg-1 (vector 0 )) arg-3))) +(define CompilerC-45Inline-pickConstAlt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (case (vector-ref arg-7 0) ((12) (let ((e-1 (vector-ref arg-7 1))) (let ((e-2 (vector-ref arg-7 2))) (if (null? arg-8) (lambda (eta-0) (if (null? arg-9) (vector 1 '()) (let ((e-3 (unbox arg-9))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (case (vector-ref eta-1 0) ((0) (let ((e-4 (vector-ref eta-1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref eta-1 1))) (vector 1 (box e-5)))))) (CompilerC-45Inline-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3) eta-0)))) (let ((e-5 (car arg-8))) (let ((e-6 (cdr arg-8))) (if (null? e-5) (lambda (eta-0) (vector 1 '())) (let ((e-8 (car e-5))) (let ((e-9 (cdr e-5))) (let ((sc3 (CoreC-45TT-u--C-61C-61_Eq_Constant e-2 e-8))) (cond ((equal? sc3 1) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (case (vector-ref eta-1 0) ((0) (let ((e-3 (vector-ref eta-1 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref eta-1 1))) (vector 1 (box e-7)))))) (CompilerC-45Inline-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-9) eta-0))) (else (CompilerC-45Inline-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (vector 12 e-1 e-2) e-6 arg-9)))))))))))))(else (lambda (eta-0) (vector 1 '())))))) +(define CompilerC-45Inline-pickAlt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (case (vector-ref arg-7 0) ((5) (let ((e-1 (vector-ref arg-7 1))) (let ((e-2 (vector-ref arg-7 2))) (let ((e-3 (vector-ref arg-7 3))) (let ((e-4 (vector-ref arg-7 4))) (let ((e-5 (vector-ref arg-7 5))) (if (null? arg-8) (lambda (eta-0) (if (null? arg-9) (vector 1 '()) (let ((e-6 (unbox arg-9))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (case (vector-ref eta-1 0) ((0) (let ((e-7 (vector-ref eta-1 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref eta-1 1))) (vector 1 (box e-7)))))) (CompilerC-45Inline-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-6) eta-0)))) (let ((e-8 (car arg-8))) (let ((e-9 (cdr arg-8))) (let ((e-11 (vector-ref e-8 0))) (let ((e-12 (vector-ref e-8 1))) (let ((e-13 (vector-ref e-8 2))) (let ((e-14 (vector-ref e-8 3))) (let ((e-15 (vector-ref e-8 4))) (let ((u--con (vector 5 e-1 e-2 e-3 e-4 e-5))) (let ((sc2 (CompilerC-45Inline-n--7061-4192-u--matches e-12 arg-1 e-5 e-4 e-3 e-2 e-1 u--con e-14 arg-0 e-15 e-13 e-11 e-9 arg-9 arg-6 arg-5 arg-4 arg-3 arg-2 e-2 e-4 e-11 e-13))) (cond ((equal? sc2 1) (let ((sc3 (LibrariesC-45DataC-45LengthMatch-checkLengthMatch e-5 e-14))) (if (null? sc3) (lambda (eta-0) (vector 1 '())) (let ((e-6 (unbox sc3))) (let ((u--envC-39 (CompilerC-45Inline-extend arg-5 e-5 e-14 e-6))) (lambda (eta-0) (let ((act-24 ((CompilerC-45Inline-eval (PreludeC-45TypesC-45List-C-43C-43 e-14 arg-0) arg-1 arg-2 arg-3 arg-4 u--envC-39 arg-6 e-15) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-7 (vector-ref act-24 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-24 1))) (vector 1 (box e-7)))))))))))) (else (CompilerC-45Inline-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 u--con e-9 arg-9)))))))))))))))))))(else (lambda (eta-0) (vector 1 '())))))) +(define CompilerC-45Inline-mkBounds (lambda (arg-0) (if (null? arg-0) (vector 0 ) (let ((e-2 (car arg-0))) (let ((e-3 (cdr arg-0))) (vector 1 e-2 e-2 (CompilerC-45Inline-mkBounds e-3))))))) +(define CompilerC-45Inline-mergeLambdas (lambda (arg-0 arg-1) (case (vector-ref arg-1 0) ((2) (let ((e-1 (vector-ref arg-1 1))) (let ((e-2 (vector-ref arg-1 2))) (let ((e-3 (vector-ref arg-1 3))) (CompilerC-45Inline-case--mergeLambdas-5139 e-2 arg-0 e-3 e-1 (CompilerC-45Inline-getLams '() 0 '() (vector 2 e-1 e-2 e-3)))))))(else (cons arg-0 arg-1))))) +(define CompilerC-45Inline-mergeLamDef (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact arg-1 (let ((e-0 (vector-ref e-5 0))) e-0)) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (if (null? e-6) (vector 1 0) (let ((e-1 (unbox e-6))) (let ((e-18 (vector-ref e-1 18))) (if (null? e-18) (vector 1 0) (let ((e-24 (unbox e-18))) (let ((act-26 (CompilerC-45Inline-mergeLam arg-0 e-24 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-25 (vector-ref act-26 1))) (vector 0 e-25))) (else (let ((e-25 (vector-ref act-26 1))) (CoreC-45Context-setCompiled arg-0 arg-1 e-25 ext-0)))))))))))))))))))) +(define CompilerC-45Inline-mergeLam (lambda (arg-0 arg-1 ext-0) (case (vector-ref arg-1 0) ((0) (let ((e-0 (vector-ref arg-1 1))) (let ((e-1 (vector-ref arg-1 2))) (let ((sc1 (CompilerC-45Inline-mergeLambdas e-0 e-1))) (let ((e-2 (car sc1))) (let ((e-3 (cdr sc1))) (vector 1 (vector 0 e-2 e-3))))))))(else (vector 1 arg-1))))) +(define CompilerC-45Inline-largest (lambda (arg-1 arg-2 arg-3) (if (null? arg-3) arg-2 (let ((e-2 (car arg-3))) (let ((e-3 (cdr arg-3))) (let ((sc1 (let ((e-4 (vector-ref arg-1 3))) ((e-4 e-2) arg-2)))) (cond ((equal? sc1 1) (CompilerC-45Inline-largest arg-1 e-2 e-3)) (else (CompilerC-45Inline-largest arg-1 arg-2 e-3))))))))) +(define CompilerC-45Inline-inlineDef (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact arg-1 (let ((e-0 (vector-ref e-5 0))) e-0)) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (if (null? e-6) (vector 1 0) (let ((e-1 (unbox e-6))) (let ((e-18 (vector-ref e-1 18))) (if (null? e-18) (vector 1 0) (let ((e-24 (unbox e-18))) (let ((act-26 (CompilerC-45Inline-inline arg-0 arg-1 e-24 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-25 (vector-ref act-26 1))) (vector 0 e-25))) (else (let ((e-25 (vector-ref act-26 1))) (CoreC-45Context-setCompiled arg-0 arg-1 e-25 ext-0)))))))))))))))))))) +(define CompilerC-45Inline-inline (lambda (arg-0 arg-1 arg-2 ext-0) (case (vector-ref arg-2 0) ((0) (let ((e-0 (vector-ref arg-2 1))) (let ((e-1 (vector-ref arg-2 2))) (let ((act-24 (CompilerC-45Inline-doEval e-0 arg-0 arg-1 e-1 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 0 e-0 e-5)))))))))(else (vector 1 arg-2))))) +(define CompilerC-45Inline-getRefs (lambda (arg-0) (case (vector-ref arg-0 0) ((0) (let ((e-1 (vector-ref arg-0 2))) (CompilerC-45Inline-addRefs (LibrariesC-45DataC-45NameMap-empty) e-1)))(else (LibrariesC-45DataC-45NameMap-empty))))) +(define CompilerC-45Inline-getNewArgs (lambda (arg-1 arg-2) (if (null? arg-1) '() (let ((e-2 (car arg-1))) (let ((e-3 (cdr arg-1))) (let ((e-8 (car arg-2))) (let ((e-9 (cdr arg-2))) (case (vector-ref e-8 0) ((1) (let ((e-12 (vector-ref e-8 2))) (cons e-12 (CompilerC-45Inline-getNewArgs e-3 e-9))))(else (cons e-2 (CompilerC-45Inline-getNewArgs e-3 e-9))))))))))) +(define CompilerC-45Inline-getLams (lambda (arg-1 arg-2 arg-3 arg-4) (case (vector-ref arg-4 0) ((2) (let ((e-1 (vector-ref arg-4 1))) (let ((e-2 (vector-ref arg-4 2))) (let ((e-3 (vector-ref arg-4 3))) (CompilerC-45Inline-getLams (cons e-2 arg-1) (bs+ arg-2 1 63) (cons (vector 1 e-1 (vector 2 "ext" arg-2)) arg-3) e-3)))))(else (cons arg-1 (cons arg-3 arg-4)))))) +(define CompilerC-45Inline-getArity (lambda (arg-0) (case (vector-ref arg-0 0) ((0) (let ((e-0 (vector-ref arg-0 1))) (PreludeC-45TypesC-45List-length e-0))) ((1) (let ((e-3 (vector-ref arg-0 2))) e-3)) ((2) (let ((e-6 (vector-ref arg-0 2))) (PreludeC-45TypesC-45List-length e-6))) (else 0)))) +(define CompilerC-45Inline-genName (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (let ((act-25 (set-box! arg-0 (bs+ e-5 1 63)))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (vector 1 (vector 2 arg-1 e-5))))))))))) +(define CompilerC-45Inline-fixArityTm (lambda (arg-0 arg-1 arg-2 arg-3) (case (vector-ref arg-2 0) ((1) (let ((e-2 (vector-ref arg-2 1))) (let ((e-3 (vector-ref arg-2 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact e-3 (let ((e-0 (vector-ref e-5 0))) e-0)) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref act-25 1))) (if (null? e-6) (vector 1 (CompilerC-45Inline-unload arg-3 (vector 1 e-2 e-3))) (let ((e-1 (unbox e-6))) (let ((e-18 (vector-ref e-1 18))) (if (null? e-18) (vector 1 (CompilerC-45Inline-unload arg-3 (vector 1 e-2 e-3))) (let ((e-26 (unbox e-18))) (let ((u--arity (CompilerC-45Inline-getArity e-26))) (vector 1 (CompilerC-45CompileExpr-expandToArity arg-0 u--arity (vector 4 e-2 (vector 1 e-2 e-3) '()) arg-3)))))))))))))))))))) ((2) (let ((e-5 (vector-ref arg-2 1))) (let ((e-6 (vector-ref arg-2 2))) (let ((e-7 (vector-ref arg-2 3))) (lambda (eta-0) (let ((act-24 ((CompilerC-45Inline-fixArityTm (cons e-6 arg-0) arg-1 e-7 '()) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-24 1))) (vector 1 (CompilerC-45CompileExpr-expandToArity arg-0 0 (vector 2 e-5 e-6 e-8) arg-3))))))))))) ((3) (let ((e-9 (vector-ref arg-2 1))) (let ((e-10 (vector-ref arg-2 2))) (let ((e-11 (vector-ref arg-2 3))) (let ((e-12 (vector-ref arg-2 4))) (let ((e-13 (vector-ref arg-2 5))) (lambda (eta-0) (let ((act-24 ((CompilerC-45Inline-fixArityTm arg-0 arg-1 e-12 '()) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CompilerC-45Inline-fixArityTm (cons e-10 arg-0) arg-1 e-13 '()) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (CompilerC-45CompileExpr-expandToArity arg-0 0 (vector 3 e-9 e-10 e-11 e-5 e-6) arg-3))))))))))))))))) ((4) (let ((e-16 (vector-ref arg-2 2))) (let ((e-17 (vector-ref arg-2 3))) (lambda (eta-0) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (u--tm) (CompilerC-45Inline-fixArityTm arg-0 arg-1 u--tm '())) e-17 '() eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) ((CompilerC-45Inline-fixArityTm arg-0 arg-1 e-16 (PreludeC-45TypesC-45List-C-43C-43 e-5 arg-3)) eta-0))))))))) ((5) (let ((e-19 (vector-ref arg-2 1))) (let ((e-20 (vector-ref arg-2 2))) (let ((e-21 (vector-ref arg-2 3))) (let ((e-22 (vector-ref arg-2 4))) (let ((e-23 (vector-ref arg-2 5))) (lambda (clam-0) (if (null? arg-3) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (u--tm) (CompilerC-45Inline-fixArityTm arg-0 arg-1 u--tm '())) e-23 '() clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 5 e-19 e-20 e-21 e-22 e-5)))))) (if (null? arg-3) (vector 1 arg-2) (vector 1 (CompilerC-45CompileExpr-expandToArity arg-0 0 arg-2 arg-3))))))))))) ((6) (let ((e-25 (vector-ref arg-2 1))) (let ((e-26 (vector-ref arg-2 2))) (let ((e-27 (vector-ref arg-2 3))) (let ((e-28 (vector-ref arg-2 4))) (lambda (clam-1) (if (null? arg-3) (let ((act-24 (CompilerC-45Inline-n--9255-4769-u--traverseArgs arg-0 e-25 e-28 e-27 e-26 arg-1 arg-0 e-28 clam-1))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 6 e-25 e-26 e-27 e-5)))))) (if (null? arg-3) (vector 1 arg-2) (vector 1 (CompilerC-45CompileExpr-expandToArity arg-0 0 arg-2 arg-3)))))))))) ((7) (let ((e-30 (vector-ref arg-2 1))) (let ((e-31 (vector-ref arg-2 2))) (let ((e-32 (vector-ref arg-2 3))) (lambda (clam-2) (if (null? arg-3) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (u--tm) (CompilerC-45Inline-fixArityTm arg-0 arg-1 u--tm '())) e-32 '() clam-2))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 7 e-30 e-31 e-5)))))) (if (null? arg-3) (vector 1 arg-2) (vector 1 (CompilerC-45CompileExpr-expandToArity arg-0 0 arg-2 arg-3))))))))) ((8) (let ((e-34 (vector-ref arg-2 1))) (let ((e-35 (vector-ref arg-2 2))) (let ((e-36 (vector-ref arg-2 3))) (lambda (eta-0) (let ((act-24 ((CompilerC-45Inline-fixArityTm arg-0 arg-1 e-36 '()) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (CompilerC-45CompileExpr-expandToArity arg-0 0 (vector 8 e-34 e-35 e-5) arg-3))))))))))) ((9) (let ((e-38 (vector-ref arg-2 1))) (let ((e-39 (vector-ref arg-2 2))) (let ((e-40 (vector-ref arg-2 3))) (lambda (eta-0) (let ((act-24 ((CompilerC-45Inline-fixArityTm arg-0 arg-1 e-40 '()) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (CompilerC-45CompileExpr-expandToArity arg-0 0 (vector 9 e-38 e-39 e-5) arg-3))))))))))) ((10) (let ((e-42 (vector-ref arg-2 1))) (let ((e-43 (vector-ref arg-2 2))) (let ((e-44 (vector-ref arg-2 3))) (let ((e-45 (vector-ref arg-2 4))) (lambda (eta-0) (let ((act-24 ((CompilerC-45Inline-fixArityTm arg-0 arg-1 e-43 '()) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (eta-1) (lambda (eta-2) (CompilerC-45Inline-n--9255-4878-u--fixArityAlt arg-0 e-45 e-44 e-43 e-42 arg-3 arg-1 eta-1 eta-2))) e-44 '() eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (if (null? e-45) (vector 1 '()) (let ((e-2 (unbox e-45))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (case (vector-ref eta-1 0) ((0) (let ((e-3 (vector-ref eta-1 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref eta-1 1))) (vector 1 (box e-7)))))) (CompilerC-45Inline-fixArityTm arg-0 arg-1 e-2 '()) eta-0))))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (CompilerC-45CompileExpr-expandToArity arg-0 0 (vector 10 e-42 e-5 e-6 e-7) arg-3)))))))))))))))))))) ((11) (let ((e-47 (vector-ref arg-2 1))) (let ((e-48 (vector-ref arg-2 2))) (let ((e-49 (vector-ref arg-2 3))) (let ((e-50 (vector-ref arg-2 4))) (lambda (eta-0) (let ((act-24 ((CompilerC-45Inline-fixArityTm arg-0 arg-1 e-48 '()) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (eta-1) (lambda (eta-2) (CompilerC-45Inline-n--9255-4931-u--fixArityConstAlt arg-0 e-50 e-49 e-48 e-47 arg-3 arg-1 eta-1 eta-2))) e-49 '() eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (if (null? e-50) (vector 1 '()) (let ((e-2 (unbox e-50))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (case (vector-ref eta-1 0) ((0) (let ((e-3 (vector-ref eta-1 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref eta-1 1))) (vector 1 (box e-7)))))) (CompilerC-45Inline-fixArityTm arg-0 arg-1 e-2 '()) eta-0))))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (CompilerC-45CompileExpr-expandToArity arg-0 0 (vector 11 e-47 e-5 e-6 e-7) arg-3))))))))))))))))))))(else (lambda (clam-3) (if (null? arg-3) (vector 1 arg-2) (vector 1 (CompilerC-45CompileExpr-expandToArity arg-0 0 arg-2 arg-3)))))))) +(define CompilerC-45Inline-fixArityExp (lambda (arg-0 arg-1 arg-2) (CompilerC-45Inline-fixArityTm arg-0 arg-1 arg-2 '()))) +(define CompilerC-45Inline-fixArityDef (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact arg-1 (let ((e-0 (vector-ref e-5 0))) e-0)) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (if (null? e-6) (vector 1 0) (let ((e-1 (unbox e-6))) (let ((e-18 (vector-ref e-1 18))) (if (null? e-18) (vector 1 0) (let ((e-24 (unbox e-18))) (let ((act-26 (CompilerC-45Inline-fixArity arg-0 e-24 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-25 (vector-ref act-26 1))) (vector 0 e-25))) (else (let ((e-25 (vector-ref act-26 1))) (CoreC-45Context-setCompiled arg-0 arg-1 e-25 ext-0)))))))))))))))))))) +(define CompilerC-45Inline-fixArity (lambda (arg-0 arg-1 ext-0) (case (vector-ref arg-1 0) ((0) (let ((e-0 (vector-ref arg-1 1))) (let ((e-1 (vector-ref arg-1 2))) (let ((act-24 ((CompilerC-45Inline-fixArityTm e-0 arg-0 e-1 '()) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 0 e-0 e-5))))))))) ((3) (let ((e-2 (vector-ref arg-1 1))) (let ((act-24 ((CompilerC-45Inline-fixArityTm '() arg-0 e-2 '()) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 3 e-5))))))))(else (vector 1 arg-1))))) +(define CompilerC-45Inline-extendLoc (lambda (arg-2 arg-3 arg-4 arg-5 ext-0) (if (null? arg-5) (vector 1 (cons (vector 0 ) arg-4)) (let ((e-2 (car arg-5))) (let ((e-3 (cdr arg-5))) (let ((act-24 (CompilerC-45Inline-genName arg-2 "cv" ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CompilerC-45Inline-extendLoc arg-2 arg-3 arg-4 e-3 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref act-25 1))) (let ((e-7 (car e-6))) (let ((e-4 (cdr e-6))) (vector 1 (cons (vector 1 e-2 e-5 e-7) (cons (vector 1 arg-3 e-5) e-4)))))))))))))))))) +(define CompilerC-45Inline-extend (lambda (arg-2 arg-3 arg-4 arg-5) (if (null? arg-3) arg-2 (let ((e-2 (car arg-3))) (let ((e-3 (cdr arg-3))) (let ((e-9 (cdr arg-4))) (let ((e-16 (unbox arg-5))) (cons e-2 (CompilerC-45Inline-extend arg-2 e-3 e-9 e-16))))))))) +(define CompilerC-45Inline-evalLocal (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (if (null? arg-1) (lambda (eta-0) (vector 1 (CompilerC-45Inline-unload arg-7 (vector 0 arg-9 arg-5)))) (let ((e-3 (cdr arg-1))) (let ((e-7 (car arg-8))) (let ((e-8 (cdr arg-8))) (cond ((equal? arg-9 0) (if (null? arg-7) (lambda (eta-0) (vector 1 e-7)) (CompilerC-45Inline-eval e-3 arg-2 arg-3 arg-4 arg-6 e-8 arg-7 (CoreC-45CompileExpr-u--weakenNs_Weaken_CExp (CoreC-45TTC-45SizeOf-mkSizeOf e-3) e-7))))(else (let ((e-9 (- arg-9 1))) (CompilerC-45Inline-evalLocal e-3 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-8 e-9)))))))))) +(define CompilerC-45Inline-evalConstAlt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((e-1 (car arg-7))) (let ((e-2 (cdr arg-7))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-3 (vector-ref eta-0 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref eta-0 1))) (vector 1 (cons e-1 e-5)))))) (CompilerC-45Inline-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-2) ext-0))))) +(define CompilerC-45Inline-evalAlt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 ext-0) (let ((e-1 (vector-ref arg-8 0))) (let ((e-2 (vector-ref arg-8 1))) (let ((e-3 (vector-ref arg-8 2))) (let ((e-4 (vector-ref arg-8 3))) (let ((e-5 (vector-ref arg-8 4))) (let ((act-24 (CompilerC-45Inline-extendLoc arg-3 arg-4 arg-6 e-4 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((e-8 (car e-6))) (let ((e-7 (cdr e-6))) (let ((act-25 ((CompilerC-45Inline-eval (PreludeC-45TypesC-45List-C-43C-43 e-4 arg-0) arg-1 arg-2 arg-3 arg-5 e-7 arg-7 e-5) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-9 (vector-ref act-25 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref act-25 1))) (vector 1 (vector e-1 e-2 e-3 e-4 (CoreC-45CompileExpr-refsToLocals e-8 e-9)))))))))))))))))))) +(define CompilerC-45Inline-eval (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (case (vector-ref arg-7 0) ((0) (let ((e-65 (vector-ref arg-7 1))) (let ((e-66 (vector-ref arg-7 2))) (CompilerC-45Inline-evalLocal arg-0 arg-1 arg-2 arg-3 e-66 arg-4 arg-6 arg-5 e-65)))) ((1) (let ((e-69 (vector-ref arg-7 1))) (let ((e-70 (vector-ref arg-7 2))) (CompilerC-45Inline-case--eval-2916 arg-0 arg-1 e-70 e-69 arg-6 arg-5 arg-4 arg-3 arg-2 (cons (CoreC-45Name-u--C-61C-61_Eq_Name e-70 (vector 0 (CoreC-45NameC-45Namespace-primIONS) (vector 1 "io_bind"))) arg-6)))))(else (if (null? arg-6) (case (vector-ref arg-7 0) ((2) (let ((e-56 (vector-ref arg-7 1))) (let ((e-57 (vector-ref arg-7 2))) (let ((e-58 (vector-ref arg-7 3))) (lambda (eta-0) (let ((act-24 (CompilerC-45Inline-genName arg-3 "lamv" eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CompilerC-45Inline-eval (cons e-57 arg-0) arg-1 arg-2 arg-3 arg-4 (cons (vector 1 e-56 e-5) arg-5) '() e-58) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (vector 2 e-56 e-57 (CompilerC-45Inline-refToLocal e-5 e-57 e-6))))))))))))))))(else (case (vector-ref arg-7 0) ((3) (let ((e-1 (vector-ref arg-7 1))) (let ((e-2 (vector-ref arg-7 2))) (let ((e-3 (vector-ref arg-7 3))) (let ((e-4 (vector-ref arg-7 4))) (let ((e-5 (vector-ref arg-7 5))) (cond ((equal? e-3 0) (lambda (eta-0) (let ((act-24 (CompilerC-45Inline-genName arg-3 "letv" eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((act-25 ((CompilerC-45Inline-eval (cons e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (cons (vector 1 e-1 e-6) arg-5) '() e-5) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-7 (vector-ref act-25 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-25 1))) (let ((act-26 ((CompilerC-45Inline-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 '() e-4) eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-8 (vector-ref act-26 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref act-26 1))) (vector 1 (CompilerC-45Inline-unload arg-6 (vector 3 e-1 e-2 0 e-8 (CompilerC-45Inline-refToLocal e-6 e-2 e-7)))))))))))))))))) (else (let ((u--u (CompilerC-45Inline-used (cons e-2 (PreludeC-45TypesC-45List-C-43C-43 arg-0 arg-1)) 0 e-5))) (lambda (clam-0) (let ((sc3 (PreludeC-45EqOrd-u--C-60_Ord_Int u--u 1))) (cond ((equal? sc3 1) (let ((act-24 ((CompilerC-45Inline-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 '() e-4) clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) ((CompilerC-45Inline-eval (cons e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (cons e-6 arg-5) arg-6 e-5) clam-0)))))) (else (let ((act-24 (CompilerC-45Inline-genName arg-3 "letv" clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((act-25 ((CompilerC-45Inline-eval (cons e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (cons (vector 1 e-1 e-6) arg-5) arg-6 e-5) clam-0))) (case (vector-ref act-25 0) ((0) (let ((e-7 (vector-ref act-25 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-25 1))) (let ((act-26 ((CompilerC-45Inline-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 '() e-4) clam-0))) (case (vector-ref act-26 0) ((0) (let ((e-8 (vector-ref act-26 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref act-26 1))) (vector 1 (vector 3 e-1 e-2 1 e-8 (CompilerC-45Inline-refToLocal e-6 e-2 e-7)))))))))))))))))))))))))))) ((4) (let ((e-8 (vector-ref arg-7 2))) (let ((e-9 (vector-ref arg-7 3))) (lambda (eta-0) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-1) (CompilerC-45Inline-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 '() eta-1)) e-9 '() eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) ((CompilerC-45Inline-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (PreludeC-45TypesC-45List-C-43C-43 e-5 arg-6) e-8) eta-0))))))))) ((5) (let ((e-11 (vector-ref arg-7 1))) (let ((e-12 (vector-ref arg-7 2))) (let ((e-13 (vector-ref arg-7 3))) (let ((e-14 (vector-ref arg-7 4))) (let ((e-15 (vector-ref arg-7 5))) (lambda (eta-0) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-1) (CompilerC-45Inline-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 '() eta-1)) e-15 '() eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (CompilerC-45Inline-unload arg-6 (vector 5 e-11 e-12 e-13 e-14 e-5)))))))))))))) ((6) (let ((e-17 (vector-ref arg-7 1))) (let ((e-18 (vector-ref arg-7 2))) (let ((e-19 (vector-ref arg-7 3))) (let ((e-20 (vector-ref arg-7 4))) (lambda (eta-0) (let ((act-24 (CoreC-45Core-traverseVect (lambda (eta-1) (CompilerC-45Inline-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 '() eta-1)) e-20 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (CompilerC-45Inline-unload arg-6 (vector 6 e-17 e-18 e-19 e-5))))))))))))) ((7) (let ((e-22 (vector-ref arg-7 1))) (let ((e-23 (vector-ref arg-7 2))) (let ((e-24 (vector-ref arg-7 3))) (lambda (eta-0) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-1) (CompilerC-45Inline-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 '() eta-1)) e-24 '() eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (CompilerC-45Inline-unload arg-6 (vector 7 e-22 e-23 e-5)))))))))))) ((8) (let ((e-26 (vector-ref arg-7 1))) (let ((e-27 (vector-ref arg-7 2))) (let ((e-28 (vector-ref arg-7 3))) (lambda (eta-0) (let ((act-24 ((CompilerC-45Inline-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 '() e-28) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (case (vector-ref e-5 0) ((9) (let ((e-3 (vector-ref e-5 3))) ((CompilerC-45Inline-eval '() arg-1 arg-2 arg-3 arg-4 '() arg-6 e-3) eta-0)))(else (vector 1 (CompilerC-45Inline-unload arg-6 (vector 8 e-26 e-27 e-5)))))))))))))) ((9) (let ((e-30 (vector-ref arg-7 1))) (let ((e-31 (vector-ref arg-7 2))) (let ((e-32 (vector-ref arg-7 3))) (lambda (eta-0) (let ((act-24 ((CompilerC-45Inline-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 '() e-32) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (CompilerC-45Inline-unload arg-6 (vector 9 e-30 e-31 e-5)))))))))))) ((10) (let ((e-34 (vector-ref arg-7 1))) (let ((e-35 (vector-ref arg-7 2))) (let ((e-36 (vector-ref arg-7 3))) (let ((e-37 (vector-ref arg-7 4))) (lambda (eta-0) (let ((act-24 ((CompilerC-45Inline-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 '() e-35) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((u--envC-39 (CompilerC-45Inline-n--7026-3682-u--update arg-0 arg-1 e-37 e-36 e-35 e-34 arg-6 arg-5 arg-4 arg-3 arg-2 arg-0 e-35 arg-5 e-5))) (let ((act-25 ((CompilerC-45Inline-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 u--envC-39 arg-6 e-5 e-36 e-37) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (if (null? e-6) (let ((act-26 (if (null? e-37) (vector 1 '()) (let ((e-2 (unbox e-37))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (case (vector-ref eta-1 0) ((0) (let ((e-3 (vector-ref eta-1 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref eta-1 1))) (vector 1 (box e-7)))))) (CompilerC-45Inline-eval arg-0 arg-1 arg-2 arg-3 arg-4 u--envC-39 arg-6 e-2) eta-0))))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-1) (lambda (eta-2) (CompilerC-45Inline-evalAlt arg-0 arg-1 arg-2 arg-3 e-34 arg-4 u--envC-39 arg-6 eta-1 eta-2))) e-36 '() eta-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (vector 1 (CompilerC-45CaseOpts-caseOfCase (vector 10 e-34 e-5 e-8 e-7))))))))))) (let ((e-2 (unbox e-6))) (vector 1 e-2)))))))))))))))))) ((11) (let ((e-39 (vector-ref arg-7 1))) (let ((e-40 (vector-ref arg-7 2))) (let ((e-41 (vector-ref arg-7 3))) (let ((e-42 (vector-ref arg-7 4))) (lambda (eta-0) (let ((act-24 ((CompilerC-45Inline-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 '() e-40) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CompilerC-45Inline-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-41 e-42) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (if (null? e-6) (let ((act-26 (if (null? e-42) (vector 1 '()) (let ((e-2 (unbox e-42))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (case (vector-ref eta-1 0) ((0) (let ((e-3 (vector-ref eta-1 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref eta-1 1))) (vector 1 (box e-7)))))) (CompilerC-45Inline-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-2) eta-0))))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-1) (lambda (eta-2) (CompilerC-45Inline-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1 eta-2))) e-41 '() eta-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (vector 1 (CompilerC-45CaseOpts-caseOfCase (vector 11 e-39 e-5 e-8 e-7))))))))))) (let ((e-2 (unbox e-6))) (vector 1 e-2))))))))))))))))) ((12) (let ((e-44 (vector-ref arg-7 1))) (let ((e-45 (vector-ref arg-7 2))) (lambda (eta-0) (vector 1 (CompilerC-45Inline-unload arg-6 (vector 12 e-44 e-45))))))) ((13) (let ((e-47 (vector-ref arg-7 1))) (lambda (eta-0) (vector 1 (CompilerC-45Inline-unload arg-6 (vector 13 e-47)))))) (else (let ((e-49 (vector-ref arg-7 1))) (let ((e-50 (vector-ref arg-7 2))) (lambda (eta-0) (vector 1 (CompilerC-45Inline-unload arg-6 (vector 14 e-49 e-50)))))))))) (let ((e-53 (car arg-6))) (let ((e-54 (cdr arg-6))) (case (vector-ref arg-7 0) ((2) (let ((e-61 (vector-ref arg-7 2))) (let ((e-62 (vector-ref arg-7 3))) (CompilerC-45Inline-eval (cons e-61 arg-0) arg-1 arg-2 arg-3 arg-4 (cons e-53 arg-5) e-54 e-62))))(else (case (vector-ref arg-7 0) ((3) (let ((e-1 (vector-ref arg-7 1))) (let ((e-2 (vector-ref arg-7 2))) (let ((e-3 (vector-ref arg-7 3))) (let ((e-4 (vector-ref arg-7 4))) (let ((e-5 (vector-ref arg-7 5))) (cond ((equal? e-3 0) (lambda (eta-0) (let ((act-24 (CompilerC-45Inline-genName arg-3 "letv" eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((act-25 ((CompilerC-45Inline-eval (cons e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (cons (vector 1 e-1 e-6) arg-5) '() e-5) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-7 (vector-ref act-25 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-25 1))) (let ((act-26 ((CompilerC-45Inline-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 '() e-4) eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-8 (vector-ref act-26 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref act-26 1))) (vector 1 (CompilerC-45Inline-unload arg-6 (vector 3 e-1 e-2 0 e-8 (CompilerC-45Inline-refToLocal e-6 e-2 e-7)))))))))))))))))) (else (let ((u--u (CompilerC-45Inline-used (cons e-2 (PreludeC-45TypesC-45List-C-43C-43 arg-0 arg-1)) 0 e-5))) (lambda (clam-1) (let ((sc3 (PreludeC-45EqOrd-u--C-60_Ord_Int u--u 1))) (cond ((equal? sc3 1) (let ((act-24 ((CompilerC-45Inline-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 '() e-4) clam-1))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) ((CompilerC-45Inline-eval (cons e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (cons e-6 arg-5) arg-6 e-5) clam-1)))))) (else (let ((act-24 (CompilerC-45Inline-genName arg-3 "letv" clam-1))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((act-25 ((CompilerC-45Inline-eval (cons e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (cons (vector 1 e-1 e-6) arg-5) arg-6 e-5) clam-1))) (case (vector-ref act-25 0) ((0) (let ((e-7 (vector-ref act-25 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-25 1))) (let ((act-26 ((CompilerC-45Inline-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 '() e-4) clam-1))) (case (vector-ref act-26 0) ((0) (let ((e-8 (vector-ref act-26 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref act-26 1))) (vector 1 (vector 3 e-1 e-2 1 e-8 (CompilerC-45Inline-refToLocal e-6 e-2 e-7)))))))))))))))))))))))))))) ((4) (let ((e-8 (vector-ref arg-7 2))) (let ((e-9 (vector-ref arg-7 3))) (lambda (eta-0) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-1) (CompilerC-45Inline-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 '() eta-1)) e-9 '() eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) ((CompilerC-45Inline-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (PreludeC-45TypesC-45List-C-43C-43 e-5 arg-6) e-8) eta-0))))))))) ((5) (let ((e-11 (vector-ref arg-7 1))) (let ((e-12 (vector-ref arg-7 2))) (let ((e-13 (vector-ref arg-7 3))) (let ((e-14 (vector-ref arg-7 4))) (let ((e-15 (vector-ref arg-7 5))) (lambda (eta-0) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-1) (CompilerC-45Inline-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 '() eta-1)) e-15 '() eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (CompilerC-45Inline-unload arg-6 (vector 5 e-11 e-12 e-13 e-14 e-5)))))))))))))) ((6) (let ((e-17 (vector-ref arg-7 1))) (let ((e-18 (vector-ref arg-7 2))) (let ((e-19 (vector-ref arg-7 3))) (let ((e-20 (vector-ref arg-7 4))) (lambda (eta-0) (let ((act-24 (CoreC-45Core-traverseVect (lambda (eta-1) (CompilerC-45Inline-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 '() eta-1)) e-20 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (CompilerC-45Inline-unload arg-6 (vector 6 e-17 e-18 e-19 e-5))))))))))))) ((7) (let ((e-22 (vector-ref arg-7 1))) (let ((e-23 (vector-ref arg-7 2))) (let ((e-24 (vector-ref arg-7 3))) (lambda (eta-0) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-1) (CompilerC-45Inline-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 '() eta-1)) e-24 '() eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (CompilerC-45Inline-unload arg-6 (vector 7 e-22 e-23 e-5)))))))))))) ((8) (let ((e-26 (vector-ref arg-7 1))) (let ((e-27 (vector-ref arg-7 2))) (let ((e-28 (vector-ref arg-7 3))) (lambda (eta-0) (let ((act-24 ((CompilerC-45Inline-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 '() e-28) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (case (vector-ref e-5 0) ((9) (let ((e-3 (vector-ref e-5 3))) ((CompilerC-45Inline-eval '() arg-1 arg-2 arg-3 arg-4 '() arg-6 e-3) eta-0)))(else (vector 1 (CompilerC-45Inline-unload arg-6 (vector 8 e-26 e-27 e-5)))))))))))))) ((9) (let ((e-30 (vector-ref arg-7 1))) (let ((e-31 (vector-ref arg-7 2))) (let ((e-32 (vector-ref arg-7 3))) (lambda (eta-0) (let ((act-24 ((CompilerC-45Inline-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 '() e-32) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (CompilerC-45Inline-unload arg-6 (vector 9 e-30 e-31 e-5)))))))))))) ((10) (let ((e-34 (vector-ref arg-7 1))) (let ((e-35 (vector-ref arg-7 2))) (let ((e-36 (vector-ref arg-7 3))) (let ((e-37 (vector-ref arg-7 4))) (lambda (eta-0) (let ((act-24 ((CompilerC-45Inline-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 '() e-35) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((u--envC-39 (CompilerC-45Inline-n--7026-3682-u--update arg-0 arg-1 e-37 e-36 e-35 e-34 arg-6 arg-5 arg-4 arg-3 arg-2 arg-0 e-35 arg-5 e-5))) (let ((act-25 ((CompilerC-45Inline-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 u--envC-39 arg-6 e-5 e-36 e-37) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (if (null? e-6) (let ((act-26 (if (null? e-37) (vector 1 '()) (let ((e-2 (unbox e-37))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (case (vector-ref eta-1 0) ((0) (let ((e-3 (vector-ref eta-1 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref eta-1 1))) (vector 1 (box e-7)))))) (CompilerC-45Inline-eval arg-0 arg-1 arg-2 arg-3 arg-4 u--envC-39 arg-6 e-2) eta-0))))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-1) (lambda (eta-2) (CompilerC-45Inline-evalAlt arg-0 arg-1 arg-2 arg-3 e-34 arg-4 u--envC-39 arg-6 eta-1 eta-2))) e-36 '() eta-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (vector 1 (CompilerC-45CaseOpts-caseOfCase (vector 10 e-34 e-5 e-8 e-7))))))))))) (let ((e-2 (unbox e-6))) (vector 1 e-2)))))))))))))))))) ((11) (let ((e-39 (vector-ref arg-7 1))) (let ((e-40 (vector-ref arg-7 2))) (let ((e-41 (vector-ref arg-7 3))) (let ((e-42 (vector-ref arg-7 4))) (lambda (eta-0) (let ((act-24 ((CompilerC-45Inline-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 '() e-40) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CompilerC-45Inline-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-41 e-42) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (if (null? e-6) (let ((act-26 (if (null? e-42) (vector 1 '()) (let ((e-2 (unbox e-42))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (case (vector-ref eta-1 0) ((0) (let ((e-3 (vector-ref eta-1 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref eta-1 1))) (vector 1 (box e-7)))))) (CompilerC-45Inline-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-2) eta-0))))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-1) (lambda (eta-2) (CompilerC-45Inline-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1 eta-2))) e-41 '() eta-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (vector 1 (CompilerC-45CaseOpts-caseOfCase (vector 11 e-39 e-5 e-8 e-7))))))))))) (let ((e-2 (unbox e-6))) (vector 1 e-2))))))))))))))))) ((12) (let ((e-44 (vector-ref arg-7 1))) (let ((e-45 (vector-ref arg-7 2))) (lambda (eta-0) (vector 1 (CompilerC-45Inline-unload arg-6 (vector 12 e-44 e-45))))))) ((13) (let ((e-47 (vector-ref arg-7 1))) (lambda (eta-0) (vector 1 (CompilerC-45Inline-unload arg-6 (vector 13 e-47)))))) (else (let ((e-49 (vector-ref arg-7 1))) (let ((e-50 (vector-ref arg-7 2))) (lambda (eta-0) (vector 1 (CompilerC-45Inline-unload arg-6 (vector 14 e-49 e-50))))))))))))))))) +(define CompilerC-45Inline-doEval (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (CoreC-45Core-newRef (vector "Compiler.Inline.LVar" ) 0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45ContextC-45Log-log arg-1 "compiler.inline.eval" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name arg-2) (PreludeC-45TypesC-45String-C-43C-43 ": " (CoreC-45CompileExpr-u--show_Show_C-40CExpC-32C-36varsC-41 arg-0 arg-3)))) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 ((CompilerC-45Inline-eval '() arg-0 arg-1 e-5 '() '() '() arg-3) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (CoreC-45ContextC-45Log-log arg-1 "compiler.inline.eval" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Inlined: " (CoreC-45CompileExpr-u--show_Show_C-40CExpC-32C-36varsC-41 arg-0 e-7))) ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (vector 1 e-7))))))))))))))))) +(define CompilerC-45Inline-compileAndInlineAll (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((u--ns (LibrariesC-45DataC-45NameMap-keys (let ((e-23 (vector-ref e-5 23))) e-23)))) (let ((act-25 (CoreC-45Core-filterM (lambda (eta-0) (lambda (eta-1) (CompilerC-45Inline-n--10679-5842-u--nonErased arg-0 eta-0 eta-1))) u--ns ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Core-traverse_ (lambda (eta-0) (lambda (eta-1) (CompilerC-45CompileExpr-compileDef arg-0 eta-0 eta-1))) e-6 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((act-27 ((CompilerC-45Inline-n--10679-5841-u--transform arg-0 (+ 1 (+ 1 (+ 1 0))) e-6) ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (CoreC-45Core-traverse_ (lambda (eta-0) (lambda (eta-1) (CompilerC-45Inline-updateCallGraph arg-0 eta-0 eta-1))) e-6 ext-0)))))))))))))))))) +(define CompilerC-45Inline-addRefsConstAlts (lambda (arg-1 arg-2) (if (null? arg-2) arg-1 (let ((e-2 (car arg-2))) (let ((e-3 (cdr arg-2))) (let ((e-6 (cdr e-2))) (CompilerC-45Inline-addRefsConstAlts (CompilerC-45Inline-addRefs arg-1 e-6) e-3))))))) +(define CompilerC-45Inline-addRefsConAlts (lambda (arg-1 arg-2) (if (null? arg-2) arg-1 (let ((e-2 (car arg-2))) (let ((e-3 (cdr arg-2))) (let ((e-9 (vector-ref e-2 4))) (CompilerC-45Inline-addRefsConAlts (CompilerC-45Inline-addRefs arg-1 e-9) e-3))))))) +(define CompilerC-45Inline-addRefsArgs (lambda (arg-1 arg-2) (if (null? arg-2) arg-1 (let ((e-2 (car arg-2))) (let ((e-3 (cdr arg-2))) (CompilerC-45Inline-addRefsArgs (CompilerC-45Inline-addRefs arg-1 e-2) e-3)))))) +(define CompilerC-45Inline-addRefs (lambda (arg-1 arg-2) (case (vector-ref arg-2 0) ((1) (let ((e-2 (vector-ref arg-2 2))) (LibrariesC-45DataC-45NameMap-insert e-2 0 arg-1))) ((2) (let ((e-6 (vector-ref arg-2 3))) (CompilerC-45Inline-addRefs arg-1 e-6))) ((3) (let ((e-11 (vector-ref arg-2 4))) (let ((e-12 (vector-ref arg-2 5))) (CompilerC-45Inline-addRefs (CompilerC-45Inline-addRefs arg-1 e-11) e-12)))) ((4) (let ((e-15 (vector-ref arg-2 2))) (let ((e-16 (vector-ref arg-2 3))) (CompilerC-45Inline-addRefsArgs (CompilerC-45Inline-addRefs arg-1 e-15) e-16)))) ((5) (let ((e-19 (vector-ref arg-2 2))) (let ((e-22 (vector-ref arg-2 5))) (CompilerC-45Inline-addRefsArgs (LibrariesC-45DataC-45NameMap-insert e-19 0 arg-1) e-22)))) ((6) (let ((e-27 (vector-ref arg-2 4))) (CompilerC-45Inline-addRefsArgs arg-1 (DataC-45Vect-u--toList_Foldable_C-40VectC-32C-36nC-41 e-27)))) ((7) (let ((e-31 (vector-ref arg-2 3))) (CompilerC-45Inline-addRefsArgs arg-1 e-31))) ((8) (let ((e-35 (vector-ref arg-2 3))) (CompilerC-45Inline-addRefs arg-1 e-35))) ((9) (let ((e-39 (vector-ref arg-2 3))) (CompilerC-45Inline-addRefs arg-1 e-39))) ((10) (let ((e-42 (vector-ref arg-2 2))) (let ((e-43 (vector-ref arg-2 3))) (let ((e-44 (vector-ref arg-2 4))) (let ((u--dsC-39 (PreludeC-45Types-maybe (lambda () arg-1) (lambda () (lambda (eta-0) (CompilerC-45Inline-addRefs arg-1 eta-0))) e-44))) (CompilerC-45Inline-addRefsConAlts (CompilerC-45Inline-addRefs u--dsC-39 e-42) e-43)))))) ((11) (let ((e-47 (vector-ref arg-2 2))) (let ((e-48 (vector-ref arg-2 3))) (let ((e-49 (vector-ref arg-2 4))) (let ((u--dsC-39 (PreludeC-45Types-maybe (lambda () arg-1) (lambda () (lambda (eta-0) (CompilerC-45Inline-addRefs arg-1 eta-0))) e-49))) (CompilerC-45Inline-addRefsConstAlts (CompilerC-45Inline-addRefs u--dsC-39 e-47) e-48))))))(else arg-1)))) +(define LibrariesC-45DataC-45LengthMatch-checkLengthMatch (lambda (arg-2 arg-3) (if (null? arg-2) (if (null? arg-3) (box '()) '()) (let ((e-3 (cdr arg-2))) (if (null? arg-3) '() (let ((e-11 (cdr arg-3))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (LibrariesC-45DataC-45LengthMatch-checkLengthMatch e-3 e-11) (lambda (bind-0) (box (box bind-0)))))))))) +(define CompilerC-45CompileExpr-case--caseC-32blockC-32inC-32getFieldArgs-5596 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (if (null? arg-9) (lambda (eta-0) (vector 1 '())) (let ((e-2 (cdr arg-9))) (if (null? e-2) (lambda (eta-0) (vector 1 '())) (let ((e-4 (car e-2))) (let ((e-5 (cdr e-2))) (lambda (clam-0) (if (null? e-5) (vector 1 '()) (let ((e-7 (car e-5))) (let ((e-8 (cdr e-5))) (if (null? e-8) (let ((act-24 (CompilerC-45CompileExpr-getFieldArgs arg-2 arg-1 e-7 clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref act-24 1))) (let ((act-25 (CompilerC-45CompileExpr-getPArgs arg-2 arg-1 e-4 clam-0))) (case (vector-ref act-25 0) ((0) (let ((e-3 (vector-ref act-25 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref act-25 1))) (let ((e-10 (car e-9))) (let ((e-3 (cdr e-9))) (vector 1 (cons (cons e-10 e-3) e-6)))))))))))) (vector 1 '()))))))))))))) +(define CompilerC-45CompileExpr-case--caseC-32blockC-32inC-32getPArgs-5407 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 ext-0) (if (null? arg-9) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-7 "Badly formed struct type") ext-0) (let ((e-1 (car arg-9))) (let ((e-2 (cdr arg-9))) (if (null? e-2) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-7 "Badly formed struct type") ext-0) (let ((e-4 (car e-2))) (let ((act-24 ((CoreC-45Normalise-evalClosure arg-2 '() arg-1 e-4) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref act-24 1))) (case (vector-ref e-6 0) ((8) (let ((e-3 (vector-ref e-6 2))) (case (vector-ref e-3 0) ((10) (let ((e-8 (vector-ref e-3 1))) (vector 1 (cons e-8 e-1))))(else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc e-6) "Unknown field name") ext-0)))))(else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc e-6) "Unknown field name") ext-0)))))))))))))) +(define CompilerC-45CompileExpr-case--caseC-32blockC-32inC-32conCases-4245 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (case (vector-ref arg-11 0) ((5) (let ((e-2 (vector-ref arg-11 3))) (if (null? e-2) (lambda (eta-0) (let ((act-24 (CoreC-45Context-getFullName arg-7 arg-4 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref act-24 1))) (let ((sc3 (CompilerC-45CompileExpr-mkDropSubst 0 (let ((e-3 (vector-ref arg-9 3))) e-3) arg-1 arg-0))) (let ((e-4 (car sc3))) (let ((e-3 (cdr sc3))) (let ((act-25 ((CompilerC-45CompileExpr-toCExpTree (PreludeC-45TypesC-45List-C-43C-43 arg-0 arg-1) arg-7 arg-6 arg-2) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-6 (vector-ref act-25 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 ((CompilerC-45CompileExpr-conCases arg-1 arg-7 arg-6 arg-5) eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-7 (vector-ref act-26 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-26 1))) (let ((sc6 (CompilerC-45CompileExpr-n--9107-4195-u--dcon arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (let ((e-17 (vector-ref arg-9 17))) e-17)))) (cond ((equal? sc6 1) (let ((act-27 (CompilerC-45CompileExpr-dconFlag arg-7 e-5 eta-0))) (case (vector-ref act-27 0) ((0) (let ((e-8 (vector-ref act-27 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref act-27 1))) (vector 1 (cons (vector e-5 e-8 (box arg-3) e-4 (CoreC-45CompileExpr-shrinkCExp e-3 e-6)) e-7))))))) (else (let ((act-27 (CompilerC-45CompileExpr-dconFlag arg-7 e-5 eta-0))) (case (vector-ref act-27 0) ((0) (let ((e-8 (vector-ref act-27 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref act-27 1))) (vector 1 (cons (vector e-5 e-8 '() e-4 (CoreC-45CompileExpr-shrinkCExp e-3 e-6)) e-7))))))))))))))))))))))))) (CompilerC-45CompileExpr-conCases arg-1 arg-7 arg-6 arg-5))))(else (lambda (eta-0) (let ((act-24 (CoreC-45Context-getFullName arg-7 arg-4 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((sc1 (CompilerC-45CompileExpr-mkDropSubst 0 (let ((e-3 (vector-ref arg-9 3))) e-3) arg-1 arg-0))) (let ((e-2 (car sc1))) (let ((e-3 (cdr sc1))) (let ((act-25 ((CompilerC-45CompileExpr-toCExpTree (PreludeC-45TypesC-45List-C-43C-43 arg-0 arg-1) arg-7 arg-6 arg-2) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 ((CompilerC-45CompileExpr-conCases arg-1 arg-7 arg-6 arg-5) eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-4 (vector-ref act-26 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref act-26 1))) (let ((sc4 (CompilerC-45CompileExpr-n--9107-4195-u--dcon arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (let ((e-17 (vector-ref arg-9 17))) e-17)))) (cond ((equal? sc4 1) (let ((act-27 (CompilerC-45CompileExpr-dconFlag arg-7 e-5 eta-0))) (case (vector-ref act-27 0) ((0) (let ((e-4 (vector-ref act-27 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref act-27 1))) (vector 1 (cons (vector e-5 e-8 (box arg-3) e-2 (CoreC-45CompileExpr-shrinkCExp e-3 e-6)) e-7))))))) (else (let ((act-27 (CompilerC-45CompileExpr-dconFlag arg-7 e-5 eta-0))) (case (vector-ref act-27 0) ((0) (let ((e-4 (vector-ref act-27 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref act-27 1))) (vector 1 (cons (vector e-5 e-8 '() e-2 (CoreC-45CompileExpr-shrinkCExp e-3 e-6)) e-7))))))))))))))))))))))))))))) +(define CompilerC-45CompileExpr-case--toCExp-4014 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((e-2 (car arg-5))) (let ((e-3 (cdr arg-5))) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (CompilerC-45CompileExpr-toCExp arg-0 arg-4 (lambda (vars-4064) (arg-3 'erased)) arg-2 eta-0 eta-1))) e-3 '() ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (let ((act-25 (unbox arg-4))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 ((CompilerC-45CompileExpr-toCExpTm arg-0 arg-4 (lambda (vars-4048) (arg-3 'erased)) arg-2 e-2) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-4 (vector-ref act-26 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (CompilerC-45CompileExpr-numArgs e-6 e-2 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-4 (vector-ref act-27 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref act-27 1))) (case (vector-ref e-8 0) ((2) (let ((e-0 (vector-ref e-8 1))) (let ((u--res (CompilerC-45CompileExpr-expandToArity arg-0 e-0 e-7 e-5))) (vector 1 ((arg-3 'erased) u--res))))) ((0) (let ((e-1 (vector-ref e-8 1))) (let ((e-4 (vector-ref e-8 2))) (let ((u--res (CompilerC-45CompileExpr-applyNewType arg-0 e-1 e-4 e-7 e-5))) (vector 1 ((arg-3 'erased) u--res)))))) (else (let ((e-9 (vector-ref e-8 1))) (let ((e-4 (vector-ref e-8 2))) (let ((u--res (CompilerC-45CompileExpr-eraseConArgs arg-0 e-9 e-4 e-7 e-5))) (vector 1 ((arg-3 'erased) u--res))))))))))))))))))))))))))) +(define CompilerC-45CompileExpr-n--8340-3416-u--toEnum (lambda (arg-1 arg-2 arg-3 arg-4 arg-5) (let ((e-2 (vector-ref arg-5 1))) (let ((e-3 (vector-ref arg-5 2))) (let ((e-4 (vector-ref arg-5 3))) (let ((e-5 (vector-ref arg-5 4))) (cond ((equal? e-2 4) (if (null? e-3) '() (let ((e-7 (unbox e-3))) (if (null? e-4) (PreludeC-45Types-u--pure_Applicative_Maybe (cons (vector 0 e-7) e-5)) '()))))(else '())))))))) +(define CompilerC-45CompileExpr-n--11763-6790-u--toArgExp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7) (vector 0 arg-7 (CoreC-45FC-emptyFC)))) +(define CompilerC-45CompileExpr-n--11763-6651-u--toArgExp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-6) (vector 0 arg-6 (CoreC-45FC-emptyFC)))) +(define CompilerC-45CompileExpr-n--7904-3017-u--natToIntMagic (lambda (arg-0 arg-1) (let ((e-2 (car arg-1))) (let ((e-3 (cdr arg-1))) (let ((e-4 (car e-3))) (let ((e-5 (cdr e-3))) (vector 1 e-2 e-4 (lambda (_-3102) (lambda (_-3104) (lambda (vars-3106) (lambda (u--args) (DataC-45Vect-index e-5 u--args)))))))))))) +(define CompilerC-45CompileExpr-n--9115-4578-u--mkSubst (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-11 arg-12 arg-13 arg-14) (if (null? arg-14) '() (let ((e-3 (cdr arg-14))) (let ((sc1 (PreludeC-45Types-u--C-61C-61_Eq_Nat arg-11 arg-13))) (cond ((equal? sc1 1) (cons arg-12 (CompilerC-45CompileExpr-n--9115-4578-u--mkSubst arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (PreludeC-45Types-u--C-43_Num_Nat (+ 1 0) arg-11) arg-12 arg-13 e-3))) (else (cons (vector 13 arg-8) (CompilerC-45CompileExpr-n--9115-4578-u--mkSubst arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (PreludeC-45Types-u--C-43_Num_Nat (+ 1 0) arg-11) arg-12 arg-13 e-3))))))))) +(define CompilerC-45CompileExpr-n--6924-2132-u--mkLocal (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (vector 0 arg-5 arg-4))) +(define CompilerC-45CompileExpr-n--6924-2133-u--mkApp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (if (null? arg-5) arg-4 (case (vector-ref arg-4 0) ((4) (let ((e-1 (vector-ref arg-4 1))) (let ((e-2 (vector-ref arg-4 2))) (let ((e-3 (vector-ref arg-4 3))) (vector 4 e-1 e-2 (PreludeC-45TypesC-45List-C-43C-43 e-3 arg-5)))))) ((5) (let ((e-5 (vector-ref arg-4 1))) (let ((e-6 (vector-ref arg-4 2))) (let ((e-7 (vector-ref arg-4 3))) (let ((e-8 (vector-ref arg-4 4))) (let ((e-9 (vector-ref arg-4 5))) (vector 5 e-5 e-6 e-7 e-8 (PreludeC-45TypesC-45List-C-43C-43 e-9 arg-5)))))))) ((7) (let ((e-11 (vector-ref arg-4 1))) (let ((e-12 (vector-ref arg-4 2))) (let ((e-13 (vector-ref arg-4 3))) (vector 7 e-11 e-12 (PreludeC-45TypesC-45List-C-43C-43 e-13 arg-5))))))(else (vector 4 (CoreC-45CompileExpr-getFC arg-4) arg-4 arg-5)))))) +(define CompilerC-45CompileExpr-n--7128-2315-u--keepArg (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-6) (case (vector-ref arg-6 0) ((2) (let ((e-1 (vector-ref arg-6 1))) (let ((e-2 (vector-ref arg-6 2))) (let ((e-3 (vector-ref arg-6 3))) (vector 2 e-1 e-2 (CompilerC-45CompileExpr-n--7128-2315-u--keepArg arg-0 arg-1 arg-2 arg-3 arg-4 e-3)))))) ((5) (let ((e-9 (vector-ref arg-6 5))) (CompilerC-45CompileExpr-n--7128-2314-u--keep arg-0 arg-1 arg-2 arg-3 arg-4 0 e-9)))(else (vector 13 (CoreC-45CompileExpr-getFC arg-2)))))) +(define CompilerC-45CompileExpr-n--7128-2314-u--keep (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-6 arg-7) (if (null? arg-7) (vector 13 (CoreC-45CompileExpr-getFC arg-2)) (let ((e-2 (car arg-7))) (let ((e-3 (cdr arg-7))) (let ((sc1 (PreludeC-45Types-u--C-61C-61_Eq_Nat arg-6 arg-3))) (cond ((equal? sc1 1) e-2) (else (CompilerC-45CompileExpr-n--7128-2314-u--keep arg-0 arg-1 arg-2 arg-3 arg-4 (PreludeC-45Types-u--C-43_Num_Nat (+ 1 0) arg-6) e-3))))))))) +(define CompilerC-45CompileExpr-n--7904-3018-u--intToNatMagic (lambda (arg-0 arg-1) (let ((e-2 (car arg-1))) (let ((e-3 (cdr arg-1))) (let ((e-4 (car e-3))) (let ((e-5 (cdr e-3))) (vector 1 e-2 e-4 (lambda (u--fc) (lambda (u--fcC-39) (lambda (vars-3120) (lambda (u--args) (vector 4 u--fc (vector 1 u--fcC-39 (vector 0 (CoreC-45NameC-45Namespace-typesNS) (vector 1 "prim__integerToNat"))) (cons (DataC-45Vect-index e-5 u--args) '()))))))))))))) +(define CompilerC-45CompileExpr-n--7535-2673-u--go (lambda (arg-1 arg-2 arg-3 arg-4) (if (null? arg-3) arg-4 (let ((e-2 (car arg-3))) (let ((e-3 (cdr arg-3))) (let ((sc1 (CompilerC-45CompileExpr-n--7535-2672-u--fire arg-1 arg-2 e-2 arg-4))) (if (null? sc1) (CompilerC-45CompileExpr-n--7535-2673-u--go arg-1 arg-2 e-3 arg-4) (let ((e-4 (unbox sc1))) e-4)))))))) +(define CompilerC-45CompileExpr-n--11763-6791-u--getVars (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-8) (if (null? arg-8) '() (let ((e-3 (cdr arg-8))) (cons 0 (DataC-45Vect-u--map_Functor_C-40VectC-32C-36nC-41 (lambda (eta-0) (CompilerC-45CompileExpr-weakenVar eta-0)) (CompilerC-45CompileExpr-n--11763-6791-u--getVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3))))))) +(define CompilerC-45CompileExpr-n--11763-6652-u--getVars (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-7) (if (null? arg-7) '() (let ((e-3 (cdr arg-7))) (cons 0 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CompilerC-45CompileExpr-weakenVar eta-0)) (CompilerC-45CompileExpr-n--11763-6652-u--getVars arg-0 arg-1 arg-2 arg-3 arg-4 e-3))))))) +(define CompilerC-45CompileExpr-n--7535-2672-u--fire (lambda (arg-1 arg-2 arg-3 arg-4) (case (vector-ref arg-3 0) ((0) (let ((e-0 (vector-ref arg-3 1))) (let ((e-1 (vector-ref arg-3 2))) (let ((e-2 (vector-ref arg-3 3))) (case (vector-ref arg-4 0) ((5) (let ((e-7 (vector-ref arg-4 1))) (let ((e-8 (vector-ref arg-4 2))) (let ((e-11 (vector-ref arg-4 5))) (PreludeC-45Interfaces-C-62C-62 (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (PreludeC-45Types-u--map_Functor_Maybe u--func arg-133))))) (lambda (u--a) (lambda (arg-527) (PreludeC-45Types-u--pure_Applicative_Maybe arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (PreludeC-45Types-u--C-60C-42C-62_Applicative_Maybe arg-528 arg-530)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe arg-811 arg-812))))) (lambda (u--a) (lambda (arg-814) (PreludeC-45Types-u--join_Monad_Maybe arg-814)))) (PreludeC-45Interfaces-guard (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (PreludeC-45Types-u--map_Functor_Maybe u--func arg-133))))) (lambda (u--a) (lambda (arg-527) (PreludeC-45Types-u--pure_Applicative_Maybe arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (PreludeC-45Types-u--C-60C-42C-62_Applicative_Maybe arg-528 arg-530)))))) (lambda (u--a) (PreludeC-45Types-u--empty_Alternative_Maybe)) (lambda (u--a) (lambda (arg-763) (lambda (arg-764) (PreludeC-45Types-u--C-60C-124C-62_Alternative_Maybe arg-763 arg-764))))) (CoreC-45Name-u--C-61C-61_Eq_Name e-0 e-8)) (lambda () (PreludeC-45Types-u--map_Functor_Maybe ((e-2 e-7) 'erased) (DataC-45Vect-toVect e-1 e-11))))))))(else '())))))) ((1) (let ((e-3 (vector-ref arg-3 1))) (let ((e-4 (vector-ref arg-3 2))) (let ((e-5 (vector-ref arg-3 3))) (case (vector-ref arg-4 0) ((4) (let ((e-13 (vector-ref arg-4 1))) (let ((e-14 (vector-ref arg-4 2))) (let ((e-15 (vector-ref arg-4 3))) (case (vector-ref e-14 0) ((1) (let ((e-17 (vector-ref e-14 1))) (let ((e-18 (vector-ref e-14 2))) (PreludeC-45Interfaces-C-62C-62 (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (PreludeC-45Types-u--map_Functor_Maybe u--func arg-133))))) (lambda (u--a) (lambda (arg-527) (PreludeC-45Types-u--pure_Applicative_Maybe arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (PreludeC-45Types-u--C-60C-42C-62_Applicative_Maybe arg-528 arg-530)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe arg-811 arg-812))))) (lambda (u--a) (lambda (arg-814) (PreludeC-45Types-u--join_Monad_Maybe arg-814)))) (PreludeC-45Interfaces-guard (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (PreludeC-45Types-u--map_Functor_Maybe u--func arg-133))))) (lambda (u--a) (lambda (arg-527) (PreludeC-45Types-u--pure_Applicative_Maybe arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (PreludeC-45Types-u--C-60C-42C-62_Applicative_Maybe arg-528 arg-530)))))) (lambda (u--a) (PreludeC-45Types-u--empty_Alternative_Maybe)) (lambda (u--a) (lambda (arg-763) (lambda (arg-764) (PreludeC-45Types-u--C-60C-124C-62_Alternative_Maybe arg-763 arg-764))))) (CoreC-45Name-u--C-61C-61_Eq_Name e-3 e-18)) (lambda () (PreludeC-45Types-u--map_Functor_Maybe (((e-5 e-13) e-17) 'erased) (DataC-45Vect-toVect e-4 e-15)))))))(else '()))))))(else '()))))))(else '())))) +(define CompilerC-45CompileExpr-n--9107-4195-u--dcon (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (case (vector-ref arg-8 0) ((5) 1)(else 0)))) +(define CompilerC-45CompileExpr-n--8418-3479-u--ciFlags (lambda (arg-0 arg-1 arg-2) (if (null? arg-2) 0 (let ((e-2 (car arg-2))) (let ((e-3 (cdr arg-2))) (case (vector-ref e-2 0) ((9) (let ((e-4 (vector-ref e-2 1))) e-4))(else (CompilerC-45CompileExpr-n--8418-3479-u--ciFlags arg-0 arg-1 e-3)))))))) +(define CompilerC-45CompileExpr-n--7904-3016-u--builtinMagicNat (lambda (arg-0 arg-1) (cons (vector 0 (let ((e-0 (car arg-1))) e-0) 0 (lambda (u--fc) (lambda (vars-3039) (lambda (lamc-0) (vector 12 u--fc (vector 5 0)))))) (cons (vector 0 (let ((e-1 (cdr arg-1))) e-1) (+ 1 0) (lambda (u--fc) (lambda (vars-3030) (lambda (lamc-0) (let ((e-2 (car lamc-0))) (let ((e-3 (cdr lamc-0))) (vector 4 u--fc (vector 1 u--fc (vector 1 "prim__add_Integer")) (cons (vector 12 u--fc (vector 5 1)) (cons e-2 '()))))))))) '())))) +(define CompilerC-45CompileExpr-n--7024-2233-u--applyAll (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (if (null? arg-4) arg-3 (let ((e-2 (car arg-4))) (let ((e-3 (cdr arg-4))) (CompilerC-45CompileExpr-n--7024-2233-u--applyAll arg-0 arg-1 arg-2 (vector 4 (CoreC-45CompileExpr-getFC arg-3) arg-3 (cons e-2 '())) e-3)))))) +(define CompilerC-45CompileExpr-n--7024-2255-u--addArg (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (case (vector-ref arg-5 0) ((4) (let ((e-1 (vector-ref arg-5 1))) (let ((e-2 (vector-ref arg-5 2))) (let ((e-3 (vector-ref arg-5 3))) (vector 4 e-1 e-2 (PreludeC-45TypesC-45List-C-43C-43 e-3 (cons arg-6 '()))))))) ((5) (let ((e-5 (vector-ref arg-5 1))) (let ((e-6 (vector-ref arg-5 2))) (let ((e-7 (vector-ref arg-5 3))) (let ((e-8 (vector-ref arg-5 4))) (let ((e-9 (vector-ref arg-5 5))) (vector 5 e-5 e-6 e-7 e-8 (PreludeC-45TypesC-45List-C-43C-43 e-9 (cons arg-6 '()))))))))) ((7) (let ((e-11 (vector-ref arg-5 1))) (let ((e-12 (vector-ref arg-5 2))) (let ((e-13 (vector-ref arg-5 3))) (vector 7 e-11 e-12 (PreludeC-45TypesC-45List-C-43C-43 e-13 (cons arg-6 '())))))))(else (vector 4 (CoreC-45CompileExpr-getFC arg-5) arg-5 (cons arg-6 '())))))) +(define CompilerC-45CompileExpr-weakenVar (lambda (arg-2) (+ 1 arg-2))) +(define CompilerC-45CompileExpr-tryZBranch (lambda (arg-1 arg-2) (let ((e-1 (vector-ref arg-2 0))) (let ((e-4 (vector-ref arg-2 3))) (let ((e-5 (vector-ref arg-2 4))) (if (null? e-4) (PreludeC-45Interfaces-C-62C-62 (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (PreludeC-45Types-u--map_Functor_Maybe u--func arg-133))))) (lambda (u--a) (lambda (arg-527) (PreludeC-45Types-u--pure_Applicative_Maybe arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (PreludeC-45Types-u--C-60C-42C-62_Applicative_Maybe arg-528 arg-530)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe arg-811 arg-812))))) (lambda (u--a) (lambda (arg-814) (PreludeC-45Types-u--join_Monad_Maybe arg-814)))) (PreludeC-45Interfaces-guard (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (PreludeC-45Types-u--map_Functor_Maybe u--func arg-133))))) (lambda (u--a) (lambda (arg-527) (PreludeC-45Types-u--pure_Applicative_Maybe arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (PreludeC-45Types-u--C-60C-42C-62_Applicative_Maybe arg-528 arg-530)))))) (lambda (u--a) (PreludeC-45Types-u--empty_Alternative_Maybe)) (lambda (u--a) (lambda (arg-763) (lambda (arg-764) (PreludeC-45Types-u--C-60C-124C-62_Alternative_Maybe arg-763 arg-764))))) (DataC-45Maybe-isJust (LibrariesC-45DataC-45NameMap-lookup e-1 arg-1))) (lambda () (PreludeC-45Types-u--pure_Applicative_Maybe e-5))) '())))))) +(define CompilerC-45CompileExpr-trySBranch (lambda (arg-1 arg-2 arg-3) (let ((e-1 (vector-ref arg-3 0))) (let ((e-4 (vector-ref arg-3 3))) (let ((e-5 (vector-ref arg-3 4))) (if (null? e-4) '() (let ((e-7 (car e-4))) (let ((e-8 (cdr e-4))) (if (null? e-8) (PreludeC-45Interfaces-C-62C-62 (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (PreludeC-45Types-u--map_Functor_Maybe u--func arg-133))))) (lambda (u--a) (lambda (arg-527) (PreludeC-45Types-u--pure_Applicative_Maybe arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (PreludeC-45Types-u--C-60C-42C-62_Applicative_Maybe arg-528 arg-530)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe arg-811 arg-812))))) (lambda (u--a) (lambda (arg-814) (PreludeC-45Types-u--join_Monad_Maybe arg-814)))) (PreludeC-45Interfaces-guard (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (PreludeC-45Types-u--map_Functor_Maybe u--func arg-133))))) (lambda (u--a) (lambda (arg-527) (PreludeC-45Types-u--pure_Applicative_Maybe arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (PreludeC-45Types-u--C-60C-42C-62_Applicative_Maybe arg-528 arg-530)))))) (lambda (u--a) (PreludeC-45Types-u--empty_Alternative_Maybe)) (lambda (u--a) (lambda (arg-763) (lambda (arg-764) (PreludeC-45Types-u--C-60C-124C-62_Alternative_Maybe arg-763 arg-764))))) (DataC-45Maybe-isJust (LibrariesC-45DataC-45NameMap-lookup e-1 arg-1))) (let ((u--fc (CoreC-45CompileExpr-getFC arg-2))) (lambda () (PreludeC-45Types-u--pure_Applicative_Maybe (vector 3 u--fc e-7 1 (CompilerC-45CompileExpr-magic__natUnsuc u--fc u--fc (cons arg-2 '())) e-5))))) '()))))))))) +(define CompilerC-45CompileExpr-toCExpTreeC-39 (lambda (arg-0 arg-1 arg-2 arg-3) (case (vector-ref arg-3 0) ((0) (let ((e-2 (vector-ref arg-3 2))) (let ((e-4 (vector-ref arg-3 3))) (let ((e-5 (vector-ref arg-3 4))) (if (null? e-5) (lambda (eta-0) (vector 1 (vector 14 (CoreC-45TT-getLoc e-4) (PreludeC-45TypesC-45String-C-43C-43 "Missing case tree in " (CoreC-45Name-u--show_Show_Name arg-2))))) (let ((e-13 (car e-5))) (let ((e-14 (cdr e-5))) (case (vector-ref e-13 0) ((0) (let ((e-17 (vector-ref e-13 1))) (let ((e-18 (vector-ref e-13 2))) (let ((e-19 (vector-ref e-13 3))) (let ((e-20 (vector-ref e-13 4))) (let ((u--fc (CoreC-45TT-getLoc e-4))) (lambda (eta-0) (let ((act-24 ((CompilerC-45CompileExpr-getNewType arg-0 arg-1 u--fc (vector 0 e-2 u--fc) arg-2 e-5) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref act-24 1))) (let ((u--alts (cons (vector 0 e-17 e-18 e-19 e-20) e-14))) (if (null? e-6) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-3 (vector-ref act-25 1))) (vector 0 e-3))) (else (let ((act-26 ((CompilerC-45CompileExpr-conCases arg-0 arg-1 arg-2 u--alts) eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-3 (vector-ref act-26 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref act-26 1))) (let ((act-27 ((CompilerC-45CompileExpr-getDef arg-0 arg-1 arg-2 u--alts) eta-0))) (case (vector-ref act-27 0) ((0) (let ((e-3 (vector-ref act-27 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref act-27 1))) (let ((sc8 (DataC-45List-isNil e-8))) (cond ((equal? sc8 1) (vector 1 (DataC-45Maybe-fromMaybe (lambda () (vector 13 u--fc)) e-9))) (else (let ((act-28 (CompilerC-45CompileExpr-builtinNatTree arg-1 eta-0))) (case (vector-ref act-28 0) ((0) (let ((e-3 (vector-ref act-28 1))) (vector 0 e-3))) (else (let ((e-10 (vector-ref act-28 1))) (vector 1 (CompilerC-45CompileExpr-enumTree (e-10 (vector 10 u--fc (vector 0 e-2 u--fc) e-8 e-9)))))))))))))))))))))) (let ((e-3 (unbox e-6))) (vector 1 e-3))))))))))))))) ((1) (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 "Unexpected DelayCase") eta-0))) ((2) (let ((u--fc (CoreC-45TT-getLoc e-4))) (lambda (eta-0) (let ((act-24 ((CompilerC-45CompileExpr-constCases arg-0 arg-1 arg-2 e-5) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref act-24 1))) (let ((act-25 ((CompilerC-45CompileExpr-getDef arg-0 arg-1 arg-2 e-5) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-3 (vector-ref act-25 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref act-25 1))) (let ((sc5 (DataC-45List-isNil e-6))) (cond ((equal? sc5 1) (vector 1 (DataC-45Maybe-fromMaybe (lambda () (vector 13 u--fc)) e-7))) (else (vector 1 (vector 11 u--fc (vector 0 e-2 u--fc) e-6 e-7)))))))))))))))) (else (let ((e-29 (vector-ref e-13 1))) (CompilerC-45CompileExpr-toCExpTree arg-0 arg-1 arg-2 e-29))))))))))) ((1) (let ((e-8 (vector-ref arg-3 2))) (lambda (eta-0) (let ((act-24 (CompilerC-45CompileExpr-builtinMagic arg-1 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (CompilerC-45CompileExpr-toCExp arg-0 arg-1 (lambda (vars-5271) (e-5 'erased)) arg-2 e-8 eta-0)))))))) ((2) (let ((e-10 (vector-ref arg-3 1))) (lambda (eta-0) (vector 1 (vector 14 (CoreC-45FC-emptyFC) e-10))))) (else (lambda (eta-0) (vector 1 (vector 14 (CoreC-45FC-emptyFC) (PreludeC-45TypesC-45String-C-43C-43 "Impossible case encountered in " (CoreC-45Name-u--show_Show_Name arg-2))))))))) +(define CompilerC-45CompileExpr-toCExpTree (lambda (arg-0 arg-1 arg-2 arg-3) (case (vector-ref arg-3 0) ((0) (let ((e-2 (vector-ref arg-3 2))) (let ((e-4 (vector-ref arg-3 3))) (let ((e-5 (vector-ref arg-3 4))) (if (null? e-5) (CompilerC-45CompileExpr-toCExpTreeC-39 arg-0 arg-1 arg-2 arg-3) (let ((e-7 (car e-5))) (case (vector-ref e-7 0) ((1) (let ((e-10 (vector-ref e-7 1))) (let ((e-11 (vector-ref e-7 2))) (let ((e-12 (vector-ref e-7 3))) (let ((u--fc (CoreC-45TT-getLoc e-4))) (lambda (eta-0) (let ((act-24 ((CompilerC-45CompileExpr-toCExpTree (cons e-10 (cons e-11 arg-0)) arg-1 arg-2 e-12) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref act-24 1))) (vector 1 (vector 3 u--fc e-11 1 (vector 8 u--fc 0 (vector 0 e-2 (CoreC-45TT-getLoc e-4))) (vector 3 u--fc e-10 1 (vector 13 u--fc) e-6)))))))))))))(else (CompilerC-45CompileExpr-toCExpTreeC-39 arg-0 arg-1 arg-2 arg-3)))))))))(else (CompilerC-45CompileExpr-toCExpTreeC-39 arg-0 arg-1 arg-2 arg-3))))) +(define CompilerC-45CompileExpr-toCExpTm (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (case (vector-ref arg-4 0) ((0) (let ((e-2 (vector-ref arg-4 1))) (let ((e-4 (vector-ref arg-4 3))) (lambda (eta-0) (vector 1 (vector 0 e-4 e-2)))))) ((1) (let ((e-7 (vector-ref arg-4 1))) (let ((e-8 (vector-ref arg-4 2))) (let ((e-9 (vector-ref arg-4 3))) (lambda (clam-0) (case (vector-ref e-8 0) ((2) (let ((e-50 (vector-ref e-8 1))) (let ((act-24 (CoreC-45Context-getFullName arg-1 e-9 clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CompilerC-45CompileExpr-dconFlag arg-1 e-5 clam-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (cond ((equal? e-6 4) (vector 1 (vector 12 e-7 (vector 0 e-50))))(else (vector 1 (vector 5 e-7 e-5 e-6 (box e-50) '())))))))))))))) ((3) (vector 1 (vector 5 e-7 e-9 1 '() '())))(else (let ((act-24 (CoreC-45Context-getFullName arg-1 e-9 clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 4 e-7 (vector 1 e-7 e-5) '()))))))))))))) ((2) (let ((e-11 (vector-ref arg-4 1))) (let ((e-12 (vector-ref arg-4 2))) (let ((e-14 (vector-ref arg-4 4))) (lambda (eta-0) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-1) (lambda (eta-2) (CompilerC-45CompileExpr-toCExp arg-0 arg-1 (lambda (vars-3683) (arg-2 'erased)) arg-3 eta-1 eta-2))) e-14 '() eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 4 e-11 (vector 1 e-11 e-12) e-5))))))))))) ((3) (let ((e-16 (vector-ref arg-4 1))) (let ((e-17 (vector-ref arg-4 2))) (let ((e-18 (vector-ref arg-4 3))) (let ((e-19 (vector-ref arg-4 4))) (lambda (clam-1) (case (vector-ref e-18 0) ((0) (let ((act-24 (CompilerC-45CompileExpr-toCExp (cons e-17 arg-0) arg-1 (lambda (vars-3708) (arg-2 'erased)) arg-3 e-19 clam-1))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 2 e-16 e-17 e-5))))))) ((1) (let ((e-61 (vector-ref e-18 2))) (let ((e-62 (vector-ref e-18 3))) (let ((act-24 (CompilerC-45CompileExpr-toCExp (cons e-17 arg-0) arg-1 (lambda (vars-3734) (arg-2 'erased)) arg-3 e-19 clam-1))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CompilerC-45CompileExpr-toCExp arg-0 arg-1 (lambda (vars-3744) (arg-2 'erased)) arg-3 e-62 clam-1))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (AlgebraC-45Semiring-branchZero (cons (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-5) (lambda (arg-6) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-5 arg-6))))) (lambda () (CoreC-45CompileExpr-shrinkCExp (vector 1 (vector 0 )) e-5)) (lambda () (vector 3 e-16 e-17 1 e-6 e-5)) e-61))))))))))))) ((2) (let ((e-68 (vector-ref e-18 4))) (let ((act-24 (CompilerC-45CompileExpr-toCExp arg-0 arg-1 (lambda (vars-3783) (arg-2 'erased)) arg-3 e-68 clam-1))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CompilerC-45CompileExpr-toCExp (cons e-17 arg-0) arg-1 (lambda (vars-3793) (arg-2 'erased)) arg-3 e-19 clam-1))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (vector 5 e-16 (vector 1 "->") 1 '() (cons e-5 (cons (vector 2 e-16 e-17 e-6) '()))))))))))))))(else (vector 1 (vector 13 e-16)))))))))) ((4) (let ((e-21 (vector-ref arg-4 1))) (let ((e-22 (vector-ref arg-4 2))) (let ((e-23 (vector-ref arg-4 3))) (lambda (eta-0) (let ((act-24 (CompilerC-45CompileExpr-toCExp arg-0 arg-1 (lambda (vars-3831) (arg-2 'erased)) arg-3 e-22 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CompilerC-45CompileExpr-toCExp arg-0 arg-1 (lambda (vars-3841) (arg-2 'erased)) arg-3 e-23 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (vector 4 e-21 e-5 (cons e-6 '())))))))))))))))) ((5) (let ((e-28 (vector-ref arg-4 4))) (CompilerC-45CompileExpr-toCExpTm arg-0 arg-1 (lambda (vars-3868) (arg-2 'erased)) arg-3 e-28))) ((6) (let ((e-30 (vector-ref arg-4 1))) (lambda (eta-0) (vector 1 (vector 13 e-30))))) ((7) (let ((e-34 (vector-ref arg-4 1))) (let ((e-35 (vector-ref arg-4 2))) (let ((e-37 (vector-ref arg-4 4))) (lambda (eta-0) (let ((act-24 (CompilerC-45CompileExpr-toCExp arg-0 arg-1 (lambda (vars-3895) (arg-2 'erased)) arg-3 e-37 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 9 e-34 e-35 e-5))))))))))) ((8) (let ((e-39 (vector-ref arg-4 1))) (let ((e-40 (vector-ref arg-4 2))) (let ((e-41 (vector-ref arg-4 3))) (lambda (eta-0) (let ((act-24 (CompilerC-45CompileExpr-toCExp arg-0 arg-1 (lambda (vars-3913) (arg-2 'erased)) arg-3 e-41 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 8 e-39 e-40 e-5))))))))))) ((9) (let ((e-43 (vector-ref arg-4 1))) (let ((e-44 (vector-ref arg-4 2))) (let ((u--t (CoreC-45TT-constTag e-44))) (lambda (clam-2) (let ((sc1 (PreludeC-45EqOrd-u--C-61C-61_Eq_Int u--t 0))) (cond ((equal? sc1 1) (vector 1 (vector 12 e-43 e-44))) (else (vector 1 (vector 5 e-43 (vector 1 (CoreC-45TT-u--show_Show_Constant e-44)) 1 '() '())))))))))) ((10) (let ((e-46 (vector-ref arg-4 1))) (lambda (eta-0) (vector 1 (vector 13 e-46))))) (else (let ((e-49 (vector-ref arg-4 1))) (lambda (eta-0) (vector 1 (vector 5 e-49 (vector 1 "Type") 1 '() '())))))))) +(define CompilerC-45CompileExpr-toCExp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (CompilerC-45CompileExpr-case--toCExp-4014 arg-0 arg-4 arg-3 arg-2 arg-1 (CoreC-45TT-getFnArgs arg-4) ext-0))) +(define CompilerC-45CompileExpr-toCDef (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (case (vector-ref arg-4 0) ((0) (lambda (eta-0) (let ((act-24 (CoreC-45Context-getFullName arg-0 arg-1 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 3 (vector 14 (CoreC-45FC-emptyFC) (PreludeC-45TypesC-45String-C-43C-43 "Encountered undefined name " (CoreC-45Name-u--show_Show_Name e-5))))))))))) ((1) (let ((e-1 (vector-ref arg-4 2))) (let ((e-3 (vector-ref arg-4 4))) (lambda (clam-0) (let ((sc1 (CompilerC-45CompileExpr-mkSub 0 e-1 arg-3))) (let ((e-6 (car sc1))) (let ((e-5 (cdr sc1))) (let ((act-24 ((CompilerC-45CompileExpr-toCExpTree e-1 arg-0 arg-1 e-3) clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-7 (vector-ref act-24 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-24 1))) (let ((sc3 (DataC-45List-isNil arg-3))) (cond ((equal? sc3 1) (vector 1 (vector 0 e-1 e-7))) (else (vector 1 (vector 0 e-6 (CoreC-45CompileExpr-shrinkCExp e-5 e-7))))))))))))))))) ((2) (let ((e-5 (vector-ref arg-4 1))) (lambda (clam-1) (let ((sc1 (CompilerC-45CompileExpr-mkArgList 0 e-5))) (let ((e-2 (car sc1))) (let ((e-3 (cdr sc1))) (let ((act-24 (CoreC-45Context-getFullName arg-0 arg-1 clam-1))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref act-24 1))) (vector 1 (vector 0 e-2 (vector 7 (CoreC-45FC-emptyFC) e-6 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CompilerC-45CompileExpr-n--11763-6651-u--toArgExp arg-3 e-5 arg-2 arg-1 arg-0 eta-0)) (CompilerC-45CompileExpr-n--11763-6652-u--getVars arg-3 e-5 arg-2 arg-1 arg-0 e-3))))))))))))))) ((3) (let ((e-7 (vector-ref arg-4 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-nf arg-0 '() e-5 '() arg-2) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-25 1))) (CompilerC-45CompileExpr-getCFTypes arg-0 '() e-8 eta-0))))))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-25 1))) (let ((e-2 (car e-8))) (let ((e-3 (cdr e-8))) (vector 1 (vector 2 e-7 e-2 e-3))))))))))))))) ((4) (let ((e-8 (vector-ref arg-4 1))) (let ((e-9 (vector-ref arg-4 2))) (lambda (clam-2) (let ((sc1 (CompilerC-45CompileExpr-mkArgList 0 e-8))) (let ((e-2 (car sc1))) (let ((e-3 (cdr sc1))) (vector 1 (vector 0 e-2 (vector 6 e-8 (CoreC-45FC-emptyFC) e-9 (DataC-45Vect-u--map_Functor_C-40VectC-32C-36nC-41 (lambda (eta-0) (CompilerC-45CompileExpr-n--11763-6790-u--toArgExp arg-3 e-8 e-9 arg-2 arg-1 arg-0 eta-0)) (CompilerC-45CompileExpr-n--11763-6791-u--getVars arg-3 e-8 e-9 arg-2 arg-1 arg-0 e-3)))))))))))) ((5) (let ((e-10 (vector-ref arg-4 1))) (let ((e-11 (vector-ref arg-4 2))) (let ((e-12 (vector-ref arg-4 3))) (let ((u--nt (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (PreludeC-45Types-u--map_Functor_Maybe eta-2 eta-3))))) (lambda (eta-0) (Builtin-snd eta-0)) e-12))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CompilerC-45CompileExpr-numArgs e-5 (vector 1 (vector 2 ) (vector 2 e-10 e-11) arg-1) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((u--arityC-39 (case (vector-ref e-6 0) ((0) (let ((e-0 (vector-ref e-6 1))) e-0)) ((1) (let ((e-2 (vector-ref e-6 1))) (let ((e-3 (vector-ref e-6 2))) (PreludeC-45Types-prim__integerToNat (- e-2 (PreludeC-45TypesC-45List-length e-3)))))) (else (let ((e-4 (vector-ref e-6 1))) e-4))))) (vector 1 (vector 1 (box e-10) u--arityC-39 u--nt))))))))))))))))) ((6) (let ((e-14 (vector-ref arg-4 2))) (lambda (eta-0) (vector 1 (vector 1 '() e-14 '()))))) ((7) (lambda (eta-0) (let ((act-24 (CoreC-45Context-getFullName arg-0 arg-1 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 3 (vector 14 (CoreC-45FC-emptyFC) (PreludeC-45TypesC-45String-C-43C-43 "Encountered unimplemented hole " (CoreC-45Name-u--show_Show_Name e-5))))))))))) ((9) (lambda (eta-0) (let ((act-24 (CoreC-45Context-getFullName arg-0 arg-1 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 3 (vector 14 (CoreC-45FC-emptyFC) (PreludeC-45TypesC-45String-C-43C-43 "Encountered constrained hole " (CoreC-45Name-u--show_Show_Name e-5))))))))))) ((8) (lambda (eta-0) (let ((act-24 (CoreC-45Context-getFullName arg-0 arg-1 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 3 (vector 14 (CoreC-45FC-emptyFC) (PreludeC-45TypesC-45String-C-43C-43 "Encountered incomplete proof search " (CoreC-45Name-u--show_Show_Name e-5)))))))))))(else (lambda (eta-0) (let ((act-24 (CoreC-45Context-getFullName arg-0 arg-1 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 3 (vector 14 (CoreC-45FC-emptyFC) (PreludeC-45TypesC-45String-C-43C-43 "Encountered uncompilable name " (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (u--x) (CoreC-45Name-u--show_Show_Name u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Name-u--showPrec_Show_Name u--d u--x)))) (cons (lambda (u--x) (CoreC-45Context-u--show_Show_Def u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Context-u--showPrec_Show_Def u--d u--x))))) (cons e-5 arg-4))))))))))))))) +(define CompilerC-45CompileExpr-numArgs (lambda (arg-1 arg-2 ext-0) (case (vector-ref arg-2 0) ((1) (let ((e-2 (vector-ref arg-2 2))) (let ((e-3 (vector-ref arg-2 3))) (case (vector-ref e-2 0) ((3) (let ((e-5 (vector-ref e-2 2))) (vector 1 (vector 2 e-5))))(else (let ((act-24 ((CoreC-45Context-lookupCtxtExact e-3 (let ((e-0 (vector-ref arg-1 0))) e-0)) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (if (null? e-5) (vector 1 (vector 2 0)) (let ((e-4 (unbox e-5))) (let ((e-17 (vector-ref e-4 17))) (case (vector-ref e-17 0) ((5) (let ((e-27 (vector-ref e-17 2))) (let ((e-26 (vector-ref e-17 3))) (if (null? e-26) (vector 1 (vector 1 e-27 (let ((e-46 (vector-ref e-4 3))) e-46))) (let ((e-29 (unbox e-26))) (if (null? e-29) (vector 1 (vector 2 0)) (let ((e-30 (cdr e-29))) (vector 1 (vector 0 e-27 e-30))))))))) ((1) (let ((e-29 (vector-ref e-17 2))) (vector 1 (vector 1 (PreludeC-45TypesC-45List-length e-29) (let ((e-48 (vector-ref e-4 3))) e-48))))) ((2) (let ((e-26 (vector-ref e-17 1))) (vector 1 (vector 2 e-26)))) ((3) (let ((e-27 (vector-ref e-17 1))) (vector 1 (vector 2 e-27)))) ((4) (let ((e-27 (vector-ref e-17 1))) (vector 1 (vector 2 e-27))))(else (vector 1 (vector 2 0))))))))))))))))(else (vector 1 (vector 2 0)))))) +(define CompilerC-45CompileExpr-nfToCFType (lambda (arg-0 arg-1 arg-2 arg-3) (case (vector-ref arg-3 0) ((8) (let ((e-37 (vector-ref arg-3 2))) (case (vector-ref e-37 0) ((14) (lambda (eta-0) (vector 1 (vector 1 )))) ((20) (lambda (eta-0) (vector 1 (vector 6 )))) ((21) (lambda (eta-0) (vector 1 (vector 7 )))) ((22) (lambda (eta-0) (vector 1 (vector 8 )))) ((23) (lambda (eta-0) (vector 1 (vector 9 )))) ((15) (lambda (eta-0) (vector 1 (vector 2 )))) ((16) (lambda (eta-0) (vector 1 (vector 3 )))) ((17) (lambda (eta-0) (vector 1 (vector 4 )))) ((18) (lambda (eta-0) (vector 1 (vector 5 ))))(else (cond ((equal? arg-2 0) (case (vector-ref arg-3 0) ((8) (let ((e-31 (vector-ref arg-3 2))) (case (vector-ref e-31 0) ((24) (lambda (eta-0) (vector 1 (vector 10 ))))(else (case (vector-ref arg-3 0) ((8) (let ((e-28 (vector-ref arg-3 2))) (case (vector-ref e-28 0) ((26) (lambda (eta-0) (vector 1 (vector 11 )))) ((25) (lambda (eta-0) (vector 1 (vector 12 )))) ((27) (lambda (eta-0) (vector 1 (vector 16 ))))(else (cond ((equal? arg-2 0) (case (vector-ref arg-3 0) ((0) (let ((e-12 (vector-ref arg-3 1))) (let ((e-14 (vector-ref arg-3 3))) (let ((e-15 (vector-ref arg-3 4))) (lambda (clam-0) (case (vector-ref e-14 0) ((2) (let ((e-20 (vector-ref e-14 4))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-12 0 e-20) clam-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (((e-15 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 e-12 0))) clam-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-12 0 e-7) clam-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (vector 1 (vector 17 e-6 e-8))))))))))))))))))))(else (case (vector-ref arg-3 0) ((3) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-5 (vector-ref arg-3 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-0))))) e-2 clam-0))) (case (vector-ref act-25 0) ((0) (let ((e-7 (vector-ref act-25 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-25 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-0))) (case (vector-ref act-26 0) ((0) (let ((e-8 (vector-ref act-26 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref act-26 1))) (case (vector-ref e-8 0) ((0) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-0))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-0))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 20 e-7 e-11)))))))))))) ((1) (let ((e-10 (vector-ref e-8 1))) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-1) (let ((e-16 (car lamc-0))) (let ((e-11 (cdr lamc-0))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-1))) (case (vector-ref act-27 0) ((0) (let ((e-17 (vector-ref act-27 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 1 e-17) clam-1))) (case (vector-ref act-28 0) ((0) (let ((e-18 (vector-ref act-28 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref act-28 1))) (vector 1 (cons e-16 e-18)))))))))))))) e-9 '() clam-0))) (case (vector-ref act-27 0) ((0) (let ((e-11 (vector-ref act-27 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-27 1))) (vector 1 (vector 19 e-10 e-11))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 13 ))) ((4) (vector 1 (vector 14 ))) ((5) (vector 1 (vector 15 ))) (else (let ((e-9 (vector-ref e-8 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-0))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-0))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 18 e-11))))))))))))))))))))))))))))) ((10) (vector 1 (vector 20 (vector 1 "Type") '()))) ((9) (vector 1 (vector 20 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-0))))) e-6 clam-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-0))))))))))))))))))))))(else (lambda (clam-2) (case (vector-ref arg-3 0) ((3) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-5 (vector-ref arg-3 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-0))))) e-2 clam-2))) (case (vector-ref act-25 0) ((0) (let ((e-7 (vector-ref act-25 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-25 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-2))) (case (vector-ref act-26 0) ((0) (let ((e-8 (vector-ref act-26 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref act-26 1))) (case (vector-ref e-8 0) ((0) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-2))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-2))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 20 e-7 e-11)))))))))))) ((1) (let ((e-10 (vector-ref e-8 1))) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-3) (let ((e-12 (car lamc-0))) (let ((e-11 (cdr lamc-0))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-3))) (case (vector-ref act-27 0) ((0) (let ((e-13 (vector-ref act-27 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 1 e-13) clam-3))) (case (vector-ref act-28 0) ((0) (let ((e-14 (vector-ref act-28 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref act-28 1))) (vector 1 (cons e-12 e-14)))))))))))))) e-9 '() clam-2))) (case (vector-ref act-27 0) ((0) (let ((e-11 (vector-ref act-27 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-27 1))) (vector 1 (vector 19 e-10 e-11))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 13 ))) ((4) (vector 1 (vector 14 ))) ((5) (vector 1 (vector 15 ))) (else (let ((e-9 (vector-ref e-8 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-2))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-2))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 18 e-11))))))))))))))))))))))))))))) ((10) (vector 1 (vector 20 (vector 1 "Type") '()))) ((9) (vector 1 (vector 20 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-2))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-0))))) e-6 clam-2))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-2))))))))))))))))))) ((equal? arg-2 1) (lambda (clam-1) (case (vector-ref arg-3 0) ((0) (let ((e-22 (vector-ref arg-3 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 e-22 "Function types not allowed in a foreign struct") clam-1)))(else (case (vector-ref arg-3 0) ((3) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-5 (vector-ref arg-3 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-0))))) e-2 clam-1))) (case (vector-ref act-25 0) ((0) (let ((e-7 (vector-ref act-25 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-25 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-1))) (case (vector-ref act-26 0) ((0) (let ((e-8 (vector-ref act-26 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref act-26 1))) (case (vector-ref e-8 0) ((0) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-1))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-1))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 20 e-7 e-11)))))))))))) ((1) (let ((e-10 (vector-ref e-8 1))) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-5) (let ((e-12 (car lamc-0))) (let ((e-11 (cdr lamc-0))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-5))) (case (vector-ref act-27 0) ((0) (let ((e-13 (vector-ref act-27 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 1 e-13) clam-5))) (case (vector-ref act-28 0) ((0) (let ((e-14 (vector-ref act-28 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref act-28 1))) (vector 1 (cons e-12 e-14)))))))))))))) e-9 '() clam-1))) (case (vector-ref act-27 0) ((0) (let ((e-11 (vector-ref act-27 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-27 1))) (vector 1 (vector 19 e-10 e-11))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 13 ))) ((4) (vector 1 (vector 14 ))) ((5) (vector 1 (vector 15 ))) (else (let ((e-9 (vector-ref e-8 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-1))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-1))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 18 e-11))))))))))))))))))))))))))))) ((10) (vector 1 (vector 20 (vector 1 "Type") '()))) ((9) (vector 1 (vector 20 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-1))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-0))))) e-6 clam-1))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-1)))))))))))))))))))(else (lambda (clam-6) (case (vector-ref arg-3 0) ((3) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-5 (vector-ref arg-3 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-0))))) e-2 clam-6))) (case (vector-ref act-25 0) ((0) (let ((e-7 (vector-ref act-25 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-25 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-6))) (case (vector-ref act-26 0) ((0) (let ((e-8 (vector-ref act-26 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref act-26 1))) (case (vector-ref e-8 0) ((0) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-6))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-6))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 20 e-7 e-11)))))))))))) ((1) (let ((e-10 (vector-ref e-8 1))) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-7) (let ((e-12 (car lamc-0))) (let ((e-11 (cdr lamc-0))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-7))) (case (vector-ref act-27 0) ((0) (let ((e-13 (vector-ref act-27 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 1 e-13) clam-7))) (case (vector-ref act-28 0) ((0) (let ((e-14 (vector-ref act-28 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref act-28 1))) (vector 1 (cons e-12 e-14)))))))))))))) e-9 '() clam-6))) (case (vector-ref act-27 0) ((0) (let ((e-11 (vector-ref act-27 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-27 1))) (vector 1 (vector 19 e-10 e-11))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 13 ))) ((4) (vector 1 (vector 14 ))) ((5) (vector 1 (vector 15 ))) (else (let ((e-9 (vector-ref e-8 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-6))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-6))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 18 e-11))))))))))))))))))))))))))))) ((10) (vector 1 (vector 20 (vector 1 "Type") '()))) ((9) (vector 1 (vector 20 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-6))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-0))))) e-6 clam-6))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-6))))))))))))))))))))))(else (cond ((equal? arg-2 0) (case (vector-ref arg-3 0) ((0) (let ((e-12 (vector-ref arg-3 1))) (let ((e-14 (vector-ref arg-3 3))) (let ((e-15 (vector-ref arg-3 4))) (lambda (clam-2) (case (vector-ref e-14 0) ((2) (let ((e-20 (vector-ref e-14 4))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-12 0 e-20) clam-2))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (((e-15 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 e-12 0))) clam-2))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-12 0 e-7) clam-2))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (vector 1 (vector 17 e-6 e-8))))))))))))))))))))(else (case (vector-ref arg-3 0) ((3) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-5 (vector-ref arg-3 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-0))))) e-2 clam-2))) (case (vector-ref act-25 0) ((0) (let ((e-7 (vector-ref act-25 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-25 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-2))) (case (vector-ref act-26 0) ((0) (let ((e-8 (vector-ref act-26 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref act-26 1))) (case (vector-ref e-8 0) ((0) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-2))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-2))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 20 e-7 e-11)))))))))))) ((1) (let ((e-10 (vector-ref e-8 1))) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-9) (let ((e-16 (car lamc-0))) (let ((e-11 (cdr lamc-0))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-9))) (case (vector-ref act-27 0) ((0) (let ((e-17 (vector-ref act-27 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 1 e-17) clam-9))) (case (vector-ref act-28 0) ((0) (let ((e-18 (vector-ref act-28 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref act-28 1))) (vector 1 (cons e-16 e-18)))))))))))))) e-9 '() clam-2))) (case (vector-ref act-27 0) ((0) (let ((e-11 (vector-ref act-27 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-27 1))) (vector 1 (vector 19 e-10 e-11))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 13 ))) ((4) (vector 1 (vector 14 ))) ((5) (vector 1 (vector 15 ))) (else (let ((e-9 (vector-ref e-8 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-2))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-2))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 18 e-11))))))))))))))))))))))))))))) ((10) (vector 1 (vector 20 (vector 1 "Type") '()))) ((9) (vector 1 (vector 20 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-2))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-0))))) e-6 clam-2))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-2))))))))))))))))))))))(else (lambda (clam-10) (case (vector-ref arg-3 0) ((3) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-5 (vector-ref arg-3 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-0))))) e-2 clam-10))) (case (vector-ref act-25 0) ((0) (let ((e-7 (vector-ref act-25 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-25 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-10))) (case (vector-ref act-26 0) ((0) (let ((e-8 (vector-ref act-26 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref act-26 1))) (case (vector-ref e-8 0) ((0) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-10))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-10))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 20 e-7 e-11)))))))))))) ((1) (let ((e-10 (vector-ref e-8 1))) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-11) (let ((e-12 (car lamc-0))) (let ((e-11 (cdr lamc-0))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-11))) (case (vector-ref act-27 0) ((0) (let ((e-13 (vector-ref act-27 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 1 e-13) clam-11))) (case (vector-ref act-28 0) ((0) (let ((e-14 (vector-ref act-28 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref act-28 1))) (vector 1 (cons e-12 e-14)))))))))))))) e-9 '() clam-10))) (case (vector-ref act-27 0) ((0) (let ((e-11 (vector-ref act-27 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-27 1))) (vector 1 (vector 19 e-10 e-11))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 13 ))) ((4) (vector 1 (vector 14 ))) ((5) (vector 1 (vector 15 ))) (else (let ((e-9 (vector-ref e-8 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-10))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-10))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 18 e-11))))))))))))))))))))))))))))) ((10) (vector 1 (vector 20 (vector 1 "Type") '()))) ((9) (vector 1 (vector 20 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-10))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-0))))) e-6 clam-10))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-10))))))))))))))))))) ((equal? arg-2 1) (lambda (clam-3) (case (vector-ref arg-3 0) ((0) (let ((e-22 (vector-ref arg-3 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 e-22 "Function types not allowed in a foreign struct") clam-3)))(else (case (vector-ref arg-3 0) ((3) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-5 (vector-ref arg-3 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-0))))) e-2 clam-3))) (case (vector-ref act-25 0) ((0) (let ((e-7 (vector-ref act-25 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-25 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-3))) (case (vector-ref act-26 0) ((0) (let ((e-8 (vector-ref act-26 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref act-26 1))) (case (vector-ref e-8 0) ((0) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-3))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-3))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 20 e-7 e-11)))))))))))) ((1) (let ((e-10 (vector-ref e-8 1))) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-13) (let ((e-12 (car lamc-0))) (let ((e-11 (cdr lamc-0))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-13))) (case (vector-ref act-27 0) ((0) (let ((e-13 (vector-ref act-27 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 1 e-13) clam-13))) (case (vector-ref act-28 0) ((0) (let ((e-14 (vector-ref act-28 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref act-28 1))) (vector 1 (cons e-12 e-14)))))))))))))) e-9 '() clam-3))) (case (vector-ref act-27 0) ((0) (let ((e-11 (vector-ref act-27 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-27 1))) (vector 1 (vector 19 e-10 e-11))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 13 ))) ((4) (vector 1 (vector 14 ))) ((5) (vector 1 (vector 15 ))) (else (let ((e-9 (vector-ref e-8 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-3))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-3))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 18 e-11))))))))))))))))))))))))))))) ((10) (vector 1 (vector 20 (vector 1 "Type") '()))) ((9) (vector 1 (vector 20 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-3))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-0))))) e-6 clam-3))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-3)))))))))))))))))))(else (lambda (clam-14) (case (vector-ref arg-3 0) ((3) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-5 (vector-ref arg-3 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-0))))) e-2 clam-14))) (case (vector-ref act-25 0) ((0) (let ((e-7 (vector-ref act-25 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-25 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-14))) (case (vector-ref act-26 0) ((0) (let ((e-8 (vector-ref act-26 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref act-26 1))) (case (vector-ref e-8 0) ((0) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-14))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-14))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 20 e-7 e-11)))))))))))) ((1) (let ((e-10 (vector-ref e-8 1))) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-15) (let ((e-12 (car lamc-0))) (let ((e-11 (cdr lamc-0))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-15))) (case (vector-ref act-27 0) ((0) (let ((e-13 (vector-ref act-27 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 1 e-13) clam-15))) (case (vector-ref act-28 0) ((0) (let ((e-14 (vector-ref act-28 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref act-28 1))) (vector 1 (cons e-12 e-14)))))))))))))) e-9 '() clam-14))) (case (vector-ref act-27 0) ((0) (let ((e-11 (vector-ref act-27 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-27 1))) (vector 1 (vector 19 e-10 e-11))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 13 ))) ((4) (vector 1 (vector 14 ))) ((5) (vector 1 (vector 15 ))) (else (let ((e-9 (vector-ref e-8 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-14))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-14))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 18 e-11))))))))))))))))))))))))))))) ((10) (vector 1 (vector 20 (vector 1 "Type") '()))) ((9) (vector 1 (vector 20 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-14))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-0))))) e-6 clam-14))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-14))))))))))))))))))))))))(else (case (vector-ref arg-3 0) ((8) (let ((e-28 (vector-ref arg-3 2))) (case (vector-ref e-28 0) ((26) (lambda (eta-0) (vector 1 (vector 11 )))) ((25) (lambda (eta-0) (vector 1 (vector 12 )))) ((27) (lambda (eta-0) (vector 1 (vector 16 ))))(else (cond ((equal? arg-2 0) (case (vector-ref arg-3 0) ((0) (let ((e-12 (vector-ref arg-3 1))) (let ((e-14 (vector-ref arg-3 3))) (let ((e-15 (vector-ref arg-3 4))) (lambda (clam-4) (case (vector-ref e-14 0) ((2) (let ((e-20 (vector-ref e-14 4))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-12 0 e-20) clam-4))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (((e-15 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 e-12 0))) clam-4))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-12 0 e-7) clam-4))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (vector 1 (vector 17 e-6 e-8))))))))))))))))))))(else (case (vector-ref arg-3 0) ((3) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-5 (vector-ref arg-3 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-0))))) e-2 clam-4))) (case (vector-ref act-25 0) ((0) (let ((e-7 (vector-ref act-25 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-25 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-4))) (case (vector-ref act-26 0) ((0) (let ((e-8 (vector-ref act-26 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref act-26 1))) (case (vector-ref e-8 0) ((0) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-4))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-4))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 20 e-7 e-11)))))))))))) ((1) (let ((e-10 (vector-ref e-8 1))) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-17) (let ((e-16 (car lamc-0))) (let ((e-11 (cdr lamc-0))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-17))) (case (vector-ref act-27 0) ((0) (let ((e-17 (vector-ref act-27 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 1 e-17) clam-17))) (case (vector-ref act-28 0) ((0) (let ((e-18 (vector-ref act-28 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref act-28 1))) (vector 1 (cons e-16 e-18)))))))))))))) e-9 '() clam-4))) (case (vector-ref act-27 0) ((0) (let ((e-11 (vector-ref act-27 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-27 1))) (vector 1 (vector 19 e-10 e-11))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 13 ))) ((4) (vector 1 (vector 14 ))) ((5) (vector 1 (vector 15 ))) (else (let ((e-9 (vector-ref e-8 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-4))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-4))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 18 e-11))))))))))))))))))))))))))))) ((10) (vector 1 (vector 20 (vector 1 "Type") '()))) ((9) (vector 1 (vector 20 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-4))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-0))))) e-6 clam-4))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-4))))))))))))))))))))))(else (lambda (clam-18) (case (vector-ref arg-3 0) ((3) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-5 (vector-ref arg-3 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-0))))) e-2 clam-18))) (case (vector-ref act-25 0) ((0) (let ((e-7 (vector-ref act-25 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-25 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-18))) (case (vector-ref act-26 0) ((0) (let ((e-8 (vector-ref act-26 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref act-26 1))) (case (vector-ref e-8 0) ((0) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-18))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-18))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 20 e-7 e-11)))))))))))) ((1) (let ((e-10 (vector-ref e-8 1))) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-19) (let ((e-12 (car lamc-0))) (let ((e-11 (cdr lamc-0))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-19))) (case (vector-ref act-27 0) ((0) (let ((e-13 (vector-ref act-27 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 1 e-13) clam-19))) (case (vector-ref act-28 0) ((0) (let ((e-14 (vector-ref act-28 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref act-28 1))) (vector 1 (cons e-12 e-14)))))))))))))) e-9 '() clam-18))) (case (vector-ref act-27 0) ((0) (let ((e-11 (vector-ref act-27 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-27 1))) (vector 1 (vector 19 e-10 e-11))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 13 ))) ((4) (vector 1 (vector 14 ))) ((5) (vector 1 (vector 15 ))) (else (let ((e-9 (vector-ref e-8 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-18))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-18))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 18 e-11))))))))))))))))))))))))))))) ((10) (vector 1 (vector 20 (vector 1 "Type") '()))) ((9) (vector 1 (vector 20 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-18))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-0))))) e-6 clam-18))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-18))))))))))))))))))) ((equal? arg-2 1) (lambda (clam-5) (case (vector-ref arg-3 0) ((0) (let ((e-22 (vector-ref arg-3 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 e-22 "Function types not allowed in a foreign struct") clam-5)))(else (case (vector-ref arg-3 0) ((3) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-5 (vector-ref arg-3 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-0))))) e-2 clam-5))) (case (vector-ref act-25 0) ((0) (let ((e-7 (vector-ref act-25 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-25 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-5))) (case (vector-ref act-26 0) ((0) (let ((e-8 (vector-ref act-26 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref act-26 1))) (case (vector-ref e-8 0) ((0) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-5))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-5))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 20 e-7 e-11)))))))))))) ((1) (let ((e-10 (vector-ref e-8 1))) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-21) (let ((e-12 (car lamc-0))) (let ((e-11 (cdr lamc-0))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-21))) (case (vector-ref act-27 0) ((0) (let ((e-13 (vector-ref act-27 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 1 e-13) clam-21))) (case (vector-ref act-28 0) ((0) (let ((e-14 (vector-ref act-28 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref act-28 1))) (vector 1 (cons e-12 e-14)))))))))))))) e-9 '() clam-5))) (case (vector-ref act-27 0) ((0) (let ((e-11 (vector-ref act-27 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-27 1))) (vector 1 (vector 19 e-10 e-11))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 13 ))) ((4) (vector 1 (vector 14 ))) ((5) (vector 1 (vector 15 ))) (else (let ((e-9 (vector-ref e-8 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-5))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-5))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 18 e-11))))))))))))))))))))))))))))) ((10) (vector 1 (vector 20 (vector 1 "Type") '()))) ((9) (vector 1 (vector 20 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-5))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-0))))) e-6 clam-5))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-5)))))))))))))))))))(else (lambda (clam-22) (case (vector-ref arg-3 0) ((3) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-5 (vector-ref arg-3 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-0))))) e-2 clam-22))) (case (vector-ref act-25 0) ((0) (let ((e-7 (vector-ref act-25 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-25 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-22))) (case (vector-ref act-26 0) ((0) (let ((e-8 (vector-ref act-26 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref act-26 1))) (case (vector-ref e-8 0) ((0) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-22))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-22))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 20 e-7 e-11)))))))))))) ((1) (let ((e-10 (vector-ref e-8 1))) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-23) (let ((e-12 (car lamc-0))) (let ((e-11 (cdr lamc-0))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-23))) (case (vector-ref act-27 0) ((0) (let ((e-13 (vector-ref act-27 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 1 e-13) clam-23))) (case (vector-ref act-28 0) ((0) (let ((e-14 (vector-ref act-28 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref act-28 1))) (vector 1 (cons e-12 e-14)))))))))))))) e-9 '() clam-22))) (case (vector-ref act-27 0) ((0) (let ((e-11 (vector-ref act-27 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-27 1))) (vector 1 (vector 19 e-10 e-11))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 13 ))) ((4) (vector 1 (vector 14 ))) ((5) (vector 1 (vector 15 ))) (else (let ((e-9 (vector-ref e-8 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-22))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-22))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 18 e-11))))))))))))))))))))))))))))) ((10) (vector 1 (vector 20 (vector 1 "Type") '()))) ((9) (vector 1 (vector 20 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-22))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-0))))) e-6 clam-22))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-22))))))))))))))))))))))(else (cond ((equal? arg-2 0) (case (vector-ref arg-3 0) ((0) (let ((e-12 (vector-ref arg-3 1))) (let ((e-14 (vector-ref arg-3 3))) (let ((e-15 (vector-ref arg-3 4))) (lambda (clam-6) (case (vector-ref e-14 0) ((2) (let ((e-20 (vector-ref e-14 4))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-12 0 e-20) clam-6))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (((e-15 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 e-12 0))) clam-6))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-12 0 e-7) clam-6))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (vector 1 (vector 17 e-6 e-8))))))))))))))))))))(else (case (vector-ref arg-3 0) ((3) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-5 (vector-ref arg-3 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-0))))) e-2 clam-6))) (case (vector-ref act-25 0) ((0) (let ((e-7 (vector-ref act-25 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-25 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-6))) (case (vector-ref act-26 0) ((0) (let ((e-8 (vector-ref act-26 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref act-26 1))) (case (vector-ref e-8 0) ((0) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-6))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-6))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 20 e-7 e-11)))))))))))) ((1) (let ((e-10 (vector-ref e-8 1))) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-25) (let ((e-16 (car lamc-0))) (let ((e-11 (cdr lamc-0))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-25))) (case (vector-ref act-27 0) ((0) (let ((e-17 (vector-ref act-27 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 1 e-17) clam-25))) (case (vector-ref act-28 0) ((0) (let ((e-18 (vector-ref act-28 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref act-28 1))) (vector 1 (cons e-16 e-18)))))))))))))) e-9 '() clam-6))) (case (vector-ref act-27 0) ((0) (let ((e-11 (vector-ref act-27 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-27 1))) (vector 1 (vector 19 e-10 e-11))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 13 ))) ((4) (vector 1 (vector 14 ))) ((5) (vector 1 (vector 15 ))) (else (let ((e-9 (vector-ref e-8 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-6))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-6))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 18 e-11))))))))))))))))))))))))))))) ((10) (vector 1 (vector 20 (vector 1 "Type") '()))) ((9) (vector 1 (vector 20 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-6))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-0))))) e-6 clam-6))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-6))))))))))))))))))))))(else (lambda (clam-26) (case (vector-ref arg-3 0) ((3) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-5 (vector-ref arg-3 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-0))))) e-2 clam-26))) (case (vector-ref act-25 0) ((0) (let ((e-7 (vector-ref act-25 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-25 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-26))) (case (vector-ref act-26 0) ((0) (let ((e-8 (vector-ref act-26 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref act-26 1))) (case (vector-ref e-8 0) ((0) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-26))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-26))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 20 e-7 e-11)))))))))))) ((1) (let ((e-10 (vector-ref e-8 1))) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-27) (let ((e-12 (car lamc-0))) (let ((e-11 (cdr lamc-0))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-27))) (case (vector-ref act-27 0) ((0) (let ((e-13 (vector-ref act-27 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 1 e-13) clam-27))) (case (vector-ref act-28 0) ((0) (let ((e-14 (vector-ref act-28 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref act-28 1))) (vector 1 (cons e-12 e-14)))))))))))))) e-9 '() clam-26))) (case (vector-ref act-27 0) ((0) (let ((e-11 (vector-ref act-27 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-27 1))) (vector 1 (vector 19 e-10 e-11))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 13 ))) ((4) (vector 1 (vector 14 ))) ((5) (vector 1 (vector 15 ))) (else (let ((e-9 (vector-ref e-8 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-26))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-26))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 18 e-11))))))))))))))))))))))))))))) ((10) (vector 1 (vector 20 (vector 1 "Type") '()))) ((9) (vector 1 (vector 20 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-26))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-0))))) e-6 clam-26))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-26))))))))))))))))))) ((equal? arg-2 1) (lambda (clam-7) (case (vector-ref arg-3 0) ((0) (let ((e-22 (vector-ref arg-3 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 e-22 "Function types not allowed in a foreign struct") clam-7)))(else (case (vector-ref arg-3 0) ((3) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-5 (vector-ref arg-3 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-0))))) e-2 clam-7))) (case (vector-ref act-25 0) ((0) (let ((e-7 (vector-ref act-25 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-25 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-7))) (case (vector-ref act-26 0) ((0) (let ((e-8 (vector-ref act-26 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref act-26 1))) (case (vector-ref e-8 0) ((0) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-7))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-7))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 20 e-7 e-11)))))))))))) ((1) (let ((e-10 (vector-ref e-8 1))) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-29) (let ((e-12 (car lamc-0))) (let ((e-11 (cdr lamc-0))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-29))) (case (vector-ref act-27 0) ((0) (let ((e-13 (vector-ref act-27 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 1 e-13) clam-29))) (case (vector-ref act-28 0) ((0) (let ((e-14 (vector-ref act-28 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref act-28 1))) (vector 1 (cons e-12 e-14)))))))))))))) e-9 '() clam-7))) (case (vector-ref act-27 0) ((0) (let ((e-11 (vector-ref act-27 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-27 1))) (vector 1 (vector 19 e-10 e-11))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 13 ))) ((4) (vector 1 (vector 14 ))) ((5) (vector 1 (vector 15 ))) (else (let ((e-9 (vector-ref e-8 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-7))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-7))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 18 e-11))))))))))))))))))))))))))))) ((10) (vector 1 (vector 20 (vector 1 "Type") '()))) ((9) (vector 1 (vector 20 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-7))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-0))))) e-6 clam-7))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-7)))))))))))))))))))(else (lambda (clam-30) (case (vector-ref arg-3 0) ((3) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-5 (vector-ref arg-3 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-0))))) e-2 clam-30))) (case (vector-ref act-25 0) ((0) (let ((e-7 (vector-ref act-25 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-25 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-30))) (case (vector-ref act-26 0) ((0) (let ((e-8 (vector-ref act-26 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref act-26 1))) (case (vector-ref e-8 0) ((0) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-30))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-30))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 20 e-7 e-11)))))))))))) ((1) (let ((e-10 (vector-ref e-8 1))) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-31) (let ((e-12 (car lamc-0))) (let ((e-11 (cdr lamc-0))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-31))) (case (vector-ref act-27 0) ((0) (let ((e-13 (vector-ref act-27 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 1 e-13) clam-31))) (case (vector-ref act-28 0) ((0) (let ((e-14 (vector-ref act-28 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref act-28 1))) (vector 1 (cons e-12 e-14)))))))))))))) e-9 '() clam-30))) (case (vector-ref act-27 0) ((0) (let ((e-11 (vector-ref act-27 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-27 1))) (vector 1 (vector 19 e-10 e-11))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 13 ))) ((4) (vector 1 (vector 14 ))) ((5) (vector 1 (vector 15 ))) (else (let ((e-9 (vector-ref e-8 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-30))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-30))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 18 e-11))))))))))))))))))))))))))))) ((10) (vector 1 (vector 20 (vector 1 "Type") '()))) ((9) (vector 1 (vector 20 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-30))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-0))))) e-6 clam-30))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-30))))))))))))))))))))))) ((equal? arg-2 1) (case (vector-ref arg-3 0) ((8) (let ((e-34 (vector-ref arg-3 2))) (case (vector-ref e-34 0) ((24) (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-1 "String not allowed in a foreign struct") eta-0)))(else (case (vector-ref arg-3 0) ((8) (let ((e-28 (vector-ref arg-3 2))) (case (vector-ref e-28 0) ((26) (lambda (eta-0) (vector 1 (vector 11 )))) ((25) (lambda (eta-0) (vector 1 (vector 12 )))) ((27) (lambda (eta-0) (vector 1 (vector 16 ))))(else (cond ((equal? arg-2 0) (case (vector-ref arg-3 0) ((0) (let ((e-12 (vector-ref arg-3 1))) (let ((e-14 (vector-ref arg-3 3))) (let ((e-15 (vector-ref arg-3 4))) (lambda (clam-8) (case (vector-ref e-14 0) ((2) (let ((e-20 (vector-ref e-14 4))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-12 0 e-20) clam-8))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (((e-15 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 e-12 0))) clam-8))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-12 0 e-7) clam-8))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (vector 1 (vector 17 e-6 e-8))))))))))))))))))))(else (case (vector-ref arg-3 0) ((3) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-5 (vector-ref arg-3 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-0))))) e-2 clam-8))) (case (vector-ref act-25 0) ((0) (let ((e-7 (vector-ref act-25 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-25 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-8))) (case (vector-ref act-26 0) ((0) (let ((e-8 (vector-ref act-26 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref act-26 1))) (case (vector-ref e-8 0) ((0) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-8))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-8))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 20 e-7 e-11)))))))))))) ((1) (let ((e-10 (vector-ref e-8 1))) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-33) (let ((e-16 (car lamc-0))) (let ((e-11 (cdr lamc-0))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-33))) (case (vector-ref act-27 0) ((0) (let ((e-17 (vector-ref act-27 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 1 e-17) clam-33))) (case (vector-ref act-28 0) ((0) (let ((e-18 (vector-ref act-28 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref act-28 1))) (vector 1 (cons e-16 e-18)))))))))))))) e-9 '() clam-8))) (case (vector-ref act-27 0) ((0) (let ((e-11 (vector-ref act-27 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-27 1))) (vector 1 (vector 19 e-10 e-11))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 13 ))) ((4) (vector 1 (vector 14 ))) ((5) (vector 1 (vector 15 ))) (else (let ((e-9 (vector-ref e-8 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-8))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-8))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 18 e-11))))))))))))))))))))))))))))) ((10) (vector 1 (vector 20 (vector 1 "Type") '()))) ((9) (vector 1 (vector 20 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-8))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-0))))) e-6 clam-8))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-8))))))))))))))))))))))(else (lambda (clam-34) (case (vector-ref arg-3 0) ((3) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-5 (vector-ref arg-3 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-0))))) e-2 clam-34))) (case (vector-ref act-25 0) ((0) (let ((e-7 (vector-ref act-25 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-25 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-34))) (case (vector-ref act-26 0) ((0) (let ((e-8 (vector-ref act-26 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref act-26 1))) (case (vector-ref e-8 0) ((0) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-34))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-34))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 20 e-7 e-11)))))))))))) ((1) (let ((e-10 (vector-ref e-8 1))) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-35) (let ((e-12 (car lamc-0))) (let ((e-11 (cdr lamc-0))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-35))) (case (vector-ref act-27 0) ((0) (let ((e-13 (vector-ref act-27 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 1 e-13) clam-35))) (case (vector-ref act-28 0) ((0) (let ((e-14 (vector-ref act-28 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref act-28 1))) (vector 1 (cons e-12 e-14)))))))))))))) e-9 '() clam-34))) (case (vector-ref act-27 0) ((0) (let ((e-11 (vector-ref act-27 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-27 1))) (vector 1 (vector 19 e-10 e-11))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 13 ))) ((4) (vector 1 (vector 14 ))) ((5) (vector 1 (vector 15 ))) (else (let ((e-9 (vector-ref e-8 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-34))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-34))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 18 e-11))))))))))))))))))))))))))))) ((10) (vector 1 (vector 20 (vector 1 "Type") '()))) ((9) (vector 1 (vector 20 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-34))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-0))))) e-6 clam-34))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-34))))))))))))))))))) ((equal? arg-2 1) (lambda (clam-9) (case (vector-ref arg-3 0) ((0) (let ((e-22 (vector-ref arg-3 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 e-22 "Function types not allowed in a foreign struct") clam-9)))(else (case (vector-ref arg-3 0) ((3) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-5 (vector-ref arg-3 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-0))))) e-2 clam-9))) (case (vector-ref act-25 0) ((0) (let ((e-7 (vector-ref act-25 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-25 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-9))) (case (vector-ref act-26 0) ((0) (let ((e-8 (vector-ref act-26 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref act-26 1))) (case (vector-ref e-8 0) ((0) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-9))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-9))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 20 e-7 e-11)))))))))))) ((1) (let ((e-10 (vector-ref e-8 1))) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-37) (let ((e-12 (car lamc-0))) (let ((e-11 (cdr lamc-0))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-37))) (case (vector-ref act-27 0) ((0) (let ((e-13 (vector-ref act-27 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 1 e-13) clam-37))) (case (vector-ref act-28 0) ((0) (let ((e-14 (vector-ref act-28 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref act-28 1))) (vector 1 (cons e-12 e-14)))))))))))))) e-9 '() clam-9))) (case (vector-ref act-27 0) ((0) (let ((e-11 (vector-ref act-27 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-27 1))) (vector 1 (vector 19 e-10 e-11))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 13 ))) ((4) (vector 1 (vector 14 ))) ((5) (vector 1 (vector 15 ))) (else (let ((e-9 (vector-ref e-8 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-9))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-9))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 18 e-11))))))))))))))))))))))))))))) ((10) (vector 1 (vector 20 (vector 1 "Type") '()))) ((9) (vector 1 (vector 20 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-9))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-0))))) e-6 clam-9))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-9)))))))))))))))))))(else (lambda (clam-38) (case (vector-ref arg-3 0) ((3) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-5 (vector-ref arg-3 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-0))))) e-2 clam-38))) (case (vector-ref act-25 0) ((0) (let ((e-7 (vector-ref act-25 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-25 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-38))) (case (vector-ref act-26 0) ((0) (let ((e-8 (vector-ref act-26 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref act-26 1))) (case (vector-ref e-8 0) ((0) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-38))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-38))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 20 e-7 e-11)))))))))))) ((1) (let ((e-10 (vector-ref e-8 1))) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-39) (let ((e-12 (car lamc-0))) (let ((e-11 (cdr lamc-0))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-39))) (case (vector-ref act-27 0) ((0) (let ((e-13 (vector-ref act-27 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 1 e-13) clam-39))) (case (vector-ref act-28 0) ((0) (let ((e-14 (vector-ref act-28 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref act-28 1))) (vector 1 (cons e-12 e-14)))))))))))))) e-9 '() clam-38))) (case (vector-ref act-27 0) ((0) (let ((e-11 (vector-ref act-27 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-27 1))) (vector 1 (vector 19 e-10 e-11))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 13 ))) ((4) (vector 1 (vector 14 ))) ((5) (vector 1 (vector 15 ))) (else (let ((e-9 (vector-ref e-8 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-38))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-38))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 18 e-11))))))))))))))))))))))))))))) ((10) (vector 1 (vector 20 (vector 1 "Type") '()))) ((9) (vector 1 (vector 20 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-38))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-0))))) e-6 clam-38))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-38))))))))))))))))))))))(else (cond ((equal? arg-2 0) (case (vector-ref arg-3 0) ((0) (let ((e-12 (vector-ref arg-3 1))) (let ((e-14 (vector-ref arg-3 3))) (let ((e-15 (vector-ref arg-3 4))) (lambda (clam-10) (case (vector-ref e-14 0) ((2) (let ((e-20 (vector-ref e-14 4))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-12 0 e-20) clam-10))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (((e-15 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 e-12 0))) clam-10))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-12 0 e-7) clam-10))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (vector 1 (vector 17 e-6 e-8))))))))))))))))))))(else (case (vector-ref arg-3 0) ((3) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-5 (vector-ref arg-3 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-0))))) e-2 clam-10))) (case (vector-ref act-25 0) ((0) (let ((e-7 (vector-ref act-25 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-25 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-10))) (case (vector-ref act-26 0) ((0) (let ((e-8 (vector-ref act-26 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref act-26 1))) (case (vector-ref e-8 0) ((0) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-10))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-10))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 20 e-7 e-11)))))))))))) ((1) (let ((e-10 (vector-ref e-8 1))) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-41) (let ((e-16 (car lamc-0))) (let ((e-11 (cdr lamc-0))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-41))) (case (vector-ref act-27 0) ((0) (let ((e-17 (vector-ref act-27 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 1 e-17) clam-41))) (case (vector-ref act-28 0) ((0) (let ((e-18 (vector-ref act-28 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref act-28 1))) (vector 1 (cons e-16 e-18)))))))))))))) e-9 '() clam-10))) (case (vector-ref act-27 0) ((0) (let ((e-11 (vector-ref act-27 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-27 1))) (vector 1 (vector 19 e-10 e-11))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 13 ))) ((4) (vector 1 (vector 14 ))) ((5) (vector 1 (vector 15 ))) (else (let ((e-9 (vector-ref e-8 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-10))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-10))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 18 e-11))))))))))))))))))))))))))))) ((10) (vector 1 (vector 20 (vector 1 "Type") '()))) ((9) (vector 1 (vector 20 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-10))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-0))))) e-6 clam-10))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-10))))))))))))))))))))))(else (lambda (clam-42) (case (vector-ref arg-3 0) ((3) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-5 (vector-ref arg-3 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-0))))) e-2 clam-42))) (case (vector-ref act-25 0) ((0) (let ((e-7 (vector-ref act-25 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-25 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-42))) (case (vector-ref act-26 0) ((0) (let ((e-8 (vector-ref act-26 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref act-26 1))) (case (vector-ref e-8 0) ((0) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-42))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-42))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 20 e-7 e-11)))))))))))) ((1) (let ((e-10 (vector-ref e-8 1))) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-43) (let ((e-12 (car lamc-0))) (let ((e-11 (cdr lamc-0))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-43))) (case (vector-ref act-27 0) ((0) (let ((e-13 (vector-ref act-27 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 1 e-13) clam-43))) (case (vector-ref act-28 0) ((0) (let ((e-14 (vector-ref act-28 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref act-28 1))) (vector 1 (cons e-12 e-14)))))))))))))) e-9 '() clam-42))) (case (vector-ref act-27 0) ((0) (let ((e-11 (vector-ref act-27 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-27 1))) (vector 1 (vector 19 e-10 e-11))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 13 ))) ((4) (vector 1 (vector 14 ))) ((5) (vector 1 (vector 15 ))) (else (let ((e-9 (vector-ref e-8 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-42))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-42))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 18 e-11))))))))))))))))))))))))))))) ((10) (vector 1 (vector 20 (vector 1 "Type") '()))) ((9) (vector 1 (vector 20 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-42))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-0))))) e-6 clam-42))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-42))))))))))))))))))) ((equal? arg-2 1) (lambda (clam-11) (case (vector-ref arg-3 0) ((0) (let ((e-22 (vector-ref arg-3 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 e-22 "Function types not allowed in a foreign struct") clam-11)))(else (case (vector-ref arg-3 0) ((3) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-5 (vector-ref arg-3 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-0))))) e-2 clam-11))) (case (vector-ref act-25 0) ((0) (let ((e-7 (vector-ref act-25 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-25 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-11))) (case (vector-ref act-26 0) ((0) (let ((e-8 (vector-ref act-26 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref act-26 1))) (case (vector-ref e-8 0) ((0) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-11))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-11))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 20 e-7 e-11)))))))))))) ((1) (let ((e-10 (vector-ref e-8 1))) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-45) (let ((e-12 (car lamc-0))) (let ((e-11 (cdr lamc-0))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-45))) (case (vector-ref act-27 0) ((0) (let ((e-13 (vector-ref act-27 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 1 e-13) clam-45))) (case (vector-ref act-28 0) ((0) (let ((e-14 (vector-ref act-28 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref act-28 1))) (vector 1 (cons e-12 e-14)))))))))))))) e-9 '() clam-11))) (case (vector-ref act-27 0) ((0) (let ((e-11 (vector-ref act-27 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-27 1))) (vector 1 (vector 19 e-10 e-11))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 13 ))) ((4) (vector 1 (vector 14 ))) ((5) (vector 1 (vector 15 ))) (else (let ((e-9 (vector-ref e-8 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-11))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-11))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 18 e-11))))))))))))))))))))))))))))) ((10) (vector 1 (vector 20 (vector 1 "Type") '()))) ((9) (vector 1 (vector 20 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-11))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-0))))) e-6 clam-11))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-11)))))))))))))))))))(else (lambda (clam-46) (case (vector-ref arg-3 0) ((3) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-5 (vector-ref arg-3 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-0))))) e-2 clam-46))) (case (vector-ref act-25 0) ((0) (let ((e-7 (vector-ref act-25 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-25 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-46))) (case (vector-ref act-26 0) ((0) (let ((e-8 (vector-ref act-26 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref act-26 1))) (case (vector-ref e-8 0) ((0) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-46))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-46))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 20 e-7 e-11)))))))))))) ((1) (let ((e-10 (vector-ref e-8 1))) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-47) (let ((e-12 (car lamc-0))) (let ((e-11 (cdr lamc-0))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-47))) (case (vector-ref act-27 0) ((0) (let ((e-13 (vector-ref act-27 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 1 e-13) clam-47))) (case (vector-ref act-28 0) ((0) (let ((e-14 (vector-ref act-28 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref act-28 1))) (vector 1 (cons e-12 e-14)))))))))))))) e-9 '() clam-46))) (case (vector-ref act-27 0) ((0) (let ((e-11 (vector-ref act-27 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-27 1))) (vector 1 (vector 19 e-10 e-11))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 13 ))) ((4) (vector 1 (vector 14 ))) ((5) (vector 1 (vector 15 ))) (else (let ((e-9 (vector-ref e-8 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-46))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-46))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 18 e-11))))))))))))))))))))))))))))) ((10) (vector 1 (vector 20 (vector 1 "Type") '()))) ((9) (vector 1 (vector 20 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-46))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-0))))) e-6 clam-46))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-46))))))))))))))))))))))))(else (case (vector-ref arg-3 0) ((8) (let ((e-28 (vector-ref arg-3 2))) (case (vector-ref e-28 0) ((26) (lambda (eta-0) (vector 1 (vector 11 )))) ((25) (lambda (eta-0) (vector 1 (vector 12 )))) ((27) (lambda (eta-0) (vector 1 (vector 16 ))))(else (cond ((equal? arg-2 0) (case (vector-ref arg-3 0) ((0) (let ((e-12 (vector-ref arg-3 1))) (let ((e-14 (vector-ref arg-3 3))) (let ((e-15 (vector-ref arg-3 4))) (lambda (clam-12) (case (vector-ref e-14 0) ((2) (let ((e-20 (vector-ref e-14 4))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-12 0 e-20) clam-12))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (((e-15 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 e-12 0))) clam-12))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-12 0 e-7) clam-12))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (vector 1 (vector 17 e-6 e-8))))))))))))))))))))(else (case (vector-ref arg-3 0) ((3) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-5 (vector-ref arg-3 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-0))))) e-2 clam-12))) (case (vector-ref act-25 0) ((0) (let ((e-7 (vector-ref act-25 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-25 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-12))) (case (vector-ref act-26 0) ((0) (let ((e-8 (vector-ref act-26 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref act-26 1))) (case (vector-ref e-8 0) ((0) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-12))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-12))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 20 e-7 e-11)))))))))))) ((1) (let ((e-10 (vector-ref e-8 1))) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-49) (let ((e-16 (car lamc-0))) (let ((e-11 (cdr lamc-0))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-49))) (case (vector-ref act-27 0) ((0) (let ((e-17 (vector-ref act-27 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 1 e-17) clam-49))) (case (vector-ref act-28 0) ((0) (let ((e-18 (vector-ref act-28 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref act-28 1))) (vector 1 (cons e-16 e-18)))))))))))))) e-9 '() clam-12))) (case (vector-ref act-27 0) ((0) (let ((e-11 (vector-ref act-27 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-27 1))) (vector 1 (vector 19 e-10 e-11))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 13 ))) ((4) (vector 1 (vector 14 ))) ((5) (vector 1 (vector 15 ))) (else (let ((e-9 (vector-ref e-8 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-12))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-12))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 18 e-11))))))))))))))))))))))))))))) ((10) (vector 1 (vector 20 (vector 1 "Type") '()))) ((9) (vector 1 (vector 20 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-12))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-0))))) e-6 clam-12))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-12))))))))))))))))))))))(else (lambda (clam-50) (case (vector-ref arg-3 0) ((3) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-5 (vector-ref arg-3 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-0))))) e-2 clam-50))) (case (vector-ref act-25 0) ((0) (let ((e-7 (vector-ref act-25 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-25 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-50))) (case (vector-ref act-26 0) ((0) (let ((e-8 (vector-ref act-26 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref act-26 1))) (case (vector-ref e-8 0) ((0) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-50))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-50))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 20 e-7 e-11)))))))))))) ((1) (let ((e-10 (vector-ref e-8 1))) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-51) (let ((e-12 (car lamc-0))) (let ((e-11 (cdr lamc-0))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-51))) (case (vector-ref act-27 0) ((0) (let ((e-13 (vector-ref act-27 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 1 e-13) clam-51))) (case (vector-ref act-28 0) ((0) (let ((e-14 (vector-ref act-28 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref act-28 1))) (vector 1 (cons e-12 e-14)))))))))))))) e-9 '() clam-50))) (case (vector-ref act-27 0) ((0) (let ((e-11 (vector-ref act-27 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-27 1))) (vector 1 (vector 19 e-10 e-11))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 13 ))) ((4) (vector 1 (vector 14 ))) ((5) (vector 1 (vector 15 ))) (else (let ((e-9 (vector-ref e-8 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-50))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-50))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 18 e-11))))))))))))))))))))))))))))) ((10) (vector 1 (vector 20 (vector 1 "Type") '()))) ((9) (vector 1 (vector 20 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-50))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-0))))) e-6 clam-50))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-50))))))))))))))))))) ((equal? arg-2 1) (lambda (clam-13) (case (vector-ref arg-3 0) ((0) (let ((e-22 (vector-ref arg-3 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 e-22 "Function types not allowed in a foreign struct") clam-13)))(else (case (vector-ref arg-3 0) ((3) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-5 (vector-ref arg-3 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-0))))) e-2 clam-13))) (case (vector-ref act-25 0) ((0) (let ((e-7 (vector-ref act-25 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-25 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-13))) (case (vector-ref act-26 0) ((0) (let ((e-8 (vector-ref act-26 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref act-26 1))) (case (vector-ref e-8 0) ((0) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-13))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-13))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 20 e-7 e-11)))))))))))) ((1) (let ((e-10 (vector-ref e-8 1))) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-53) (let ((e-12 (car lamc-0))) (let ((e-11 (cdr lamc-0))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-53))) (case (vector-ref act-27 0) ((0) (let ((e-13 (vector-ref act-27 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 1 e-13) clam-53))) (case (vector-ref act-28 0) ((0) (let ((e-14 (vector-ref act-28 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref act-28 1))) (vector 1 (cons e-12 e-14)))))))))))))) e-9 '() clam-13))) (case (vector-ref act-27 0) ((0) (let ((e-11 (vector-ref act-27 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-27 1))) (vector 1 (vector 19 e-10 e-11))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 13 ))) ((4) (vector 1 (vector 14 ))) ((5) (vector 1 (vector 15 ))) (else (let ((e-9 (vector-ref e-8 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-13))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-13))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 18 e-11))))))))))))))))))))))))))))) ((10) (vector 1 (vector 20 (vector 1 "Type") '()))) ((9) (vector 1 (vector 20 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-13))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-0))))) e-6 clam-13))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-13)))))))))))))))))))(else (lambda (clam-54) (case (vector-ref arg-3 0) ((3) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-5 (vector-ref arg-3 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-0))))) e-2 clam-54))) (case (vector-ref act-25 0) ((0) (let ((e-7 (vector-ref act-25 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-25 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-54))) (case (vector-ref act-26 0) ((0) (let ((e-8 (vector-ref act-26 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref act-26 1))) (case (vector-ref e-8 0) ((0) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-54))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-54))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 20 e-7 e-11)))))))))))) ((1) (let ((e-10 (vector-ref e-8 1))) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-55) (let ((e-12 (car lamc-0))) (let ((e-11 (cdr lamc-0))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-55))) (case (vector-ref act-27 0) ((0) (let ((e-13 (vector-ref act-27 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 1 e-13) clam-55))) (case (vector-ref act-28 0) ((0) (let ((e-14 (vector-ref act-28 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref act-28 1))) (vector 1 (cons e-12 e-14)))))))))))))) e-9 '() clam-54))) (case (vector-ref act-27 0) ((0) (let ((e-11 (vector-ref act-27 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-27 1))) (vector 1 (vector 19 e-10 e-11))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 13 ))) ((4) (vector 1 (vector 14 ))) ((5) (vector 1 (vector 15 ))) (else (let ((e-9 (vector-ref e-8 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-54))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-54))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 18 e-11))))))))))))))))))))))))))))) ((10) (vector 1 (vector 20 (vector 1 "Type") '()))) ((9) (vector 1 (vector 20 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-54))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-0))))) e-6 clam-54))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-54))))))))))))))))))))))(else (cond ((equal? arg-2 0) (case (vector-ref arg-3 0) ((0) (let ((e-12 (vector-ref arg-3 1))) (let ((e-14 (vector-ref arg-3 3))) (let ((e-15 (vector-ref arg-3 4))) (lambda (clam-14) (case (vector-ref e-14 0) ((2) (let ((e-20 (vector-ref e-14 4))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-12 0 e-20) clam-14))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (((e-15 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 e-12 0))) clam-14))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-12 0 e-7) clam-14))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (vector 1 (vector 17 e-6 e-8))))))))))))))))))))(else (case (vector-ref arg-3 0) ((3) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-5 (vector-ref arg-3 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-0))))) e-2 clam-14))) (case (vector-ref act-25 0) ((0) (let ((e-7 (vector-ref act-25 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-25 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-14))) (case (vector-ref act-26 0) ((0) (let ((e-8 (vector-ref act-26 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref act-26 1))) (case (vector-ref e-8 0) ((0) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-14))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-14))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 20 e-7 e-11)))))))))))) ((1) (let ((e-10 (vector-ref e-8 1))) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-57) (let ((e-16 (car lamc-0))) (let ((e-11 (cdr lamc-0))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-57))) (case (vector-ref act-27 0) ((0) (let ((e-17 (vector-ref act-27 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 1 e-17) clam-57))) (case (vector-ref act-28 0) ((0) (let ((e-18 (vector-ref act-28 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref act-28 1))) (vector 1 (cons e-16 e-18)))))))))))))) e-9 '() clam-14))) (case (vector-ref act-27 0) ((0) (let ((e-11 (vector-ref act-27 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-27 1))) (vector 1 (vector 19 e-10 e-11))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 13 ))) ((4) (vector 1 (vector 14 ))) ((5) (vector 1 (vector 15 ))) (else (let ((e-9 (vector-ref e-8 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-14))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-14))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 18 e-11))))))))))))))))))))))))))))) ((10) (vector 1 (vector 20 (vector 1 "Type") '()))) ((9) (vector 1 (vector 20 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-14))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-0))))) e-6 clam-14))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-14))))))))))))))))))))))(else (lambda (clam-58) (case (vector-ref arg-3 0) ((3) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-5 (vector-ref arg-3 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-0))))) e-2 clam-58))) (case (vector-ref act-25 0) ((0) (let ((e-7 (vector-ref act-25 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-25 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-58))) (case (vector-ref act-26 0) ((0) (let ((e-8 (vector-ref act-26 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref act-26 1))) (case (vector-ref e-8 0) ((0) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-58))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-58))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 20 e-7 e-11)))))))))))) ((1) (let ((e-10 (vector-ref e-8 1))) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-59) (let ((e-12 (car lamc-0))) (let ((e-11 (cdr lamc-0))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-59))) (case (vector-ref act-27 0) ((0) (let ((e-13 (vector-ref act-27 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 1 e-13) clam-59))) (case (vector-ref act-28 0) ((0) (let ((e-14 (vector-ref act-28 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref act-28 1))) (vector 1 (cons e-12 e-14)))))))))))))) e-9 '() clam-58))) (case (vector-ref act-27 0) ((0) (let ((e-11 (vector-ref act-27 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-27 1))) (vector 1 (vector 19 e-10 e-11))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 13 ))) ((4) (vector 1 (vector 14 ))) ((5) (vector 1 (vector 15 ))) (else (let ((e-9 (vector-ref e-8 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-58))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-58))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 18 e-11))))))))))))))))))))))))))))) ((10) (vector 1 (vector 20 (vector 1 "Type") '()))) ((9) (vector 1 (vector 20 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-58))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-0))))) e-6 clam-58))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-58))))))))))))))))))) ((equal? arg-2 1) (lambda (clam-15) (case (vector-ref arg-3 0) ((0) (let ((e-22 (vector-ref arg-3 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 e-22 "Function types not allowed in a foreign struct") clam-15)))(else (case (vector-ref arg-3 0) ((3) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-5 (vector-ref arg-3 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-0))))) e-2 clam-15))) (case (vector-ref act-25 0) ((0) (let ((e-7 (vector-ref act-25 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-25 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-15))) (case (vector-ref act-26 0) ((0) (let ((e-8 (vector-ref act-26 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref act-26 1))) (case (vector-ref e-8 0) ((0) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-15))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-15))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 20 e-7 e-11)))))))))))) ((1) (let ((e-10 (vector-ref e-8 1))) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-61) (let ((e-12 (car lamc-0))) (let ((e-11 (cdr lamc-0))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-61))) (case (vector-ref act-27 0) ((0) (let ((e-13 (vector-ref act-27 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 1 e-13) clam-61))) (case (vector-ref act-28 0) ((0) (let ((e-14 (vector-ref act-28 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref act-28 1))) (vector 1 (cons e-12 e-14)))))))))))))) e-9 '() clam-15))) (case (vector-ref act-27 0) ((0) (let ((e-11 (vector-ref act-27 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-27 1))) (vector 1 (vector 19 e-10 e-11))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 13 ))) ((4) (vector 1 (vector 14 ))) ((5) (vector 1 (vector 15 ))) (else (let ((e-9 (vector-ref e-8 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-15))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-15))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 18 e-11))))))))))))))))))))))))))))) ((10) (vector 1 (vector 20 (vector 1 "Type") '()))) ((9) (vector 1 (vector 20 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-15))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-0))))) e-6 clam-15))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-15)))))))))))))))))))(else (lambda (clam-62) (case (vector-ref arg-3 0) ((3) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-5 (vector-ref arg-3 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-0))))) e-2 clam-62))) (case (vector-ref act-25 0) ((0) (let ((e-7 (vector-ref act-25 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-25 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-62))) (case (vector-ref act-26 0) ((0) (let ((e-8 (vector-ref act-26 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref act-26 1))) (case (vector-ref e-8 0) ((0) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-62))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-62))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 20 e-7 e-11)))))))))))) ((1) (let ((e-10 (vector-ref e-8 1))) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-63) (let ((e-12 (car lamc-0))) (let ((e-11 (cdr lamc-0))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-63))) (case (vector-ref act-27 0) ((0) (let ((e-13 (vector-ref act-27 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 1 e-13) clam-63))) (case (vector-ref act-28 0) ((0) (let ((e-14 (vector-ref act-28 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref act-28 1))) (vector 1 (cons e-12 e-14)))))))))))))) e-9 '() clam-62))) (case (vector-ref act-27 0) ((0) (let ((e-11 (vector-ref act-27 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-27 1))) (vector 1 (vector 19 e-10 e-11))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 13 ))) ((4) (vector 1 (vector 14 ))) ((5) (vector 1 (vector 15 ))) (else (let ((e-9 (vector-ref e-8 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-62))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-62))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 18 e-11))))))))))))))))))))))))))))) ((10) (vector 1 (vector 20 (vector 1 "Type") '()))) ((9) (vector 1 (vector 20 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-62))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-0))))) e-6 clam-62))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-62)))))))))))))))))))))))(else (case (vector-ref arg-3 0) ((8) (let ((e-28 (vector-ref arg-3 2))) (case (vector-ref e-28 0) ((26) (lambda (eta-0) (vector 1 (vector 11 )))) ((25) (lambda (eta-0) (vector 1 (vector 12 )))) ((27) (lambda (eta-0) (vector 1 (vector 16 ))))(else (cond ((equal? arg-2 0) (case (vector-ref arg-3 0) ((0) (let ((e-12 (vector-ref arg-3 1))) (let ((e-14 (vector-ref arg-3 3))) (let ((e-15 (vector-ref arg-3 4))) (lambda (clam-16) (case (vector-ref e-14 0) ((2) (let ((e-20 (vector-ref e-14 4))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-12 0 e-20) clam-16))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (((e-15 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 e-12 0))) clam-16))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-12 0 e-7) clam-16))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (vector 1 (vector 17 e-6 e-8))))))))))))))))))))(else (case (vector-ref arg-3 0) ((3) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-5 (vector-ref arg-3 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-0))))) e-2 clam-16))) (case (vector-ref act-25 0) ((0) (let ((e-7 (vector-ref act-25 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-25 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-16))) (case (vector-ref act-26 0) ((0) (let ((e-8 (vector-ref act-26 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref act-26 1))) (case (vector-ref e-8 0) ((0) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-16))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-16))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 20 e-7 e-11)))))))))))) ((1) (let ((e-10 (vector-ref e-8 1))) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-65) (let ((e-16 (car lamc-0))) (let ((e-11 (cdr lamc-0))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-65))) (case (vector-ref act-27 0) ((0) (let ((e-17 (vector-ref act-27 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 1 e-17) clam-65))) (case (vector-ref act-28 0) ((0) (let ((e-18 (vector-ref act-28 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref act-28 1))) (vector 1 (cons e-16 e-18)))))))))))))) e-9 '() clam-16))) (case (vector-ref act-27 0) ((0) (let ((e-11 (vector-ref act-27 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-27 1))) (vector 1 (vector 19 e-10 e-11))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 13 ))) ((4) (vector 1 (vector 14 ))) ((5) (vector 1 (vector 15 ))) (else (let ((e-9 (vector-ref e-8 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-16))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-16))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 18 e-11))))))))))))))))))))))))))))) ((10) (vector 1 (vector 20 (vector 1 "Type") '()))) ((9) (vector 1 (vector 20 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-16))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-0))))) e-6 clam-16))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-16))))))))))))))))))))))(else (lambda (clam-66) (case (vector-ref arg-3 0) ((3) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-5 (vector-ref arg-3 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-0))))) e-2 clam-66))) (case (vector-ref act-25 0) ((0) (let ((e-7 (vector-ref act-25 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-25 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-66))) (case (vector-ref act-26 0) ((0) (let ((e-8 (vector-ref act-26 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref act-26 1))) (case (vector-ref e-8 0) ((0) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-66))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-66))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 20 e-7 e-11)))))))))))) ((1) (let ((e-10 (vector-ref e-8 1))) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-67) (let ((e-12 (car lamc-0))) (let ((e-11 (cdr lamc-0))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-67))) (case (vector-ref act-27 0) ((0) (let ((e-13 (vector-ref act-27 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 1 e-13) clam-67))) (case (vector-ref act-28 0) ((0) (let ((e-14 (vector-ref act-28 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref act-28 1))) (vector 1 (cons e-12 e-14)))))))))))))) e-9 '() clam-66))) (case (vector-ref act-27 0) ((0) (let ((e-11 (vector-ref act-27 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-27 1))) (vector 1 (vector 19 e-10 e-11))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 13 ))) ((4) (vector 1 (vector 14 ))) ((5) (vector 1 (vector 15 ))) (else (let ((e-9 (vector-ref e-8 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-66))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-66))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 18 e-11))))))))))))))))))))))))))))) ((10) (vector 1 (vector 20 (vector 1 "Type") '()))) ((9) (vector 1 (vector 20 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-66))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-0))))) e-6 clam-66))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-66))))))))))))))))))) ((equal? arg-2 1) (lambda (clam-17) (case (vector-ref arg-3 0) ((0) (let ((e-22 (vector-ref arg-3 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 e-22 "Function types not allowed in a foreign struct") clam-17)))(else (case (vector-ref arg-3 0) ((3) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-5 (vector-ref arg-3 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-0))))) e-2 clam-17))) (case (vector-ref act-25 0) ((0) (let ((e-7 (vector-ref act-25 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-25 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-17))) (case (vector-ref act-26 0) ((0) (let ((e-8 (vector-ref act-26 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref act-26 1))) (case (vector-ref e-8 0) ((0) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-17))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-17))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 20 e-7 e-11)))))))))))) ((1) (let ((e-10 (vector-ref e-8 1))) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-69) (let ((e-12 (car lamc-0))) (let ((e-11 (cdr lamc-0))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-69))) (case (vector-ref act-27 0) ((0) (let ((e-13 (vector-ref act-27 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 1 e-13) clam-69))) (case (vector-ref act-28 0) ((0) (let ((e-14 (vector-ref act-28 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref act-28 1))) (vector 1 (cons e-12 e-14)))))))))))))) e-9 '() clam-17))) (case (vector-ref act-27 0) ((0) (let ((e-11 (vector-ref act-27 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-27 1))) (vector 1 (vector 19 e-10 e-11))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 13 ))) ((4) (vector 1 (vector 14 ))) ((5) (vector 1 (vector 15 ))) (else (let ((e-9 (vector-ref e-8 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-17))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-17))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 18 e-11))))))))))))))))))))))))))))) ((10) (vector 1 (vector 20 (vector 1 "Type") '()))) ((9) (vector 1 (vector 20 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-17))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-0))))) e-6 clam-17))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-17)))))))))))))))))))(else (lambda (clam-70) (case (vector-ref arg-3 0) ((3) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-5 (vector-ref arg-3 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-0))))) e-2 clam-70))) (case (vector-ref act-25 0) ((0) (let ((e-7 (vector-ref act-25 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-25 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-70))) (case (vector-ref act-26 0) ((0) (let ((e-8 (vector-ref act-26 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref act-26 1))) (case (vector-ref e-8 0) ((0) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-70))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-70))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 20 e-7 e-11)))))))))))) ((1) (let ((e-10 (vector-ref e-8 1))) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-71) (let ((e-12 (car lamc-0))) (let ((e-11 (cdr lamc-0))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-71))) (case (vector-ref act-27 0) ((0) (let ((e-13 (vector-ref act-27 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 1 e-13) clam-71))) (case (vector-ref act-28 0) ((0) (let ((e-14 (vector-ref act-28 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref act-28 1))) (vector 1 (cons e-12 e-14)))))))))))))) e-9 '() clam-70))) (case (vector-ref act-27 0) ((0) (let ((e-11 (vector-ref act-27 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-27 1))) (vector 1 (vector 19 e-10 e-11))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 13 ))) ((4) (vector 1 (vector 14 ))) ((5) (vector 1 (vector 15 ))) (else (let ((e-9 (vector-ref e-8 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-70))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-70))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 18 e-11))))))))))))))))))))))))))))) ((10) (vector 1 (vector 20 (vector 1 "Type") '()))) ((9) (vector 1 (vector 20 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-70))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-0))))) e-6 clam-70))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-70))))))))))))))))))))))(else (cond ((equal? arg-2 0) (case (vector-ref arg-3 0) ((0) (let ((e-12 (vector-ref arg-3 1))) (let ((e-14 (vector-ref arg-3 3))) (let ((e-15 (vector-ref arg-3 4))) (lambda (clam-18) (case (vector-ref e-14 0) ((2) (let ((e-20 (vector-ref e-14 4))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-12 0 e-20) clam-18))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (((e-15 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 e-12 0))) clam-18))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-12 0 e-7) clam-18))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (vector 1 (vector 17 e-6 e-8))))))))))))))))))))(else (case (vector-ref arg-3 0) ((3) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-5 (vector-ref arg-3 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-0))))) e-2 clam-18))) (case (vector-ref act-25 0) ((0) (let ((e-7 (vector-ref act-25 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-25 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-18))) (case (vector-ref act-26 0) ((0) (let ((e-8 (vector-ref act-26 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref act-26 1))) (case (vector-ref e-8 0) ((0) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-18))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-18))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 20 e-7 e-11)))))))))))) ((1) (let ((e-10 (vector-ref e-8 1))) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-73) (let ((e-16 (car lamc-0))) (let ((e-11 (cdr lamc-0))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-73))) (case (vector-ref act-27 0) ((0) (let ((e-17 (vector-ref act-27 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 1 e-17) clam-73))) (case (vector-ref act-28 0) ((0) (let ((e-18 (vector-ref act-28 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref act-28 1))) (vector 1 (cons e-16 e-18)))))))))))))) e-9 '() clam-18))) (case (vector-ref act-27 0) ((0) (let ((e-11 (vector-ref act-27 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-27 1))) (vector 1 (vector 19 e-10 e-11))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 13 ))) ((4) (vector 1 (vector 14 ))) ((5) (vector 1 (vector 15 ))) (else (let ((e-9 (vector-ref e-8 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-18))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-18))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 18 e-11))))))))))))))))))))))))))))) ((10) (vector 1 (vector 20 (vector 1 "Type") '()))) ((9) (vector 1 (vector 20 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-18))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-0))))) e-6 clam-18))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-18))))))))))))))))))))))(else (lambda (clam-74) (case (vector-ref arg-3 0) ((3) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-5 (vector-ref arg-3 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-0))))) e-2 clam-74))) (case (vector-ref act-25 0) ((0) (let ((e-7 (vector-ref act-25 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-25 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-74))) (case (vector-ref act-26 0) ((0) (let ((e-8 (vector-ref act-26 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref act-26 1))) (case (vector-ref e-8 0) ((0) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-74))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-74))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 20 e-7 e-11)))))))))))) ((1) (let ((e-10 (vector-ref e-8 1))) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-75) (let ((e-12 (car lamc-0))) (let ((e-11 (cdr lamc-0))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-75))) (case (vector-ref act-27 0) ((0) (let ((e-13 (vector-ref act-27 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 1 e-13) clam-75))) (case (vector-ref act-28 0) ((0) (let ((e-14 (vector-ref act-28 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref act-28 1))) (vector 1 (cons e-12 e-14)))))))))))))) e-9 '() clam-74))) (case (vector-ref act-27 0) ((0) (let ((e-11 (vector-ref act-27 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-27 1))) (vector 1 (vector 19 e-10 e-11))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 13 ))) ((4) (vector 1 (vector 14 ))) ((5) (vector 1 (vector 15 ))) (else (let ((e-9 (vector-ref e-8 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-74))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-74))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 18 e-11))))))))))))))))))))))))))))) ((10) (vector 1 (vector 20 (vector 1 "Type") '()))) ((9) (vector 1 (vector 20 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-74))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-0))))) e-6 clam-74))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-74))))))))))))))))))) ((equal? arg-2 1) (lambda (clam-19) (case (vector-ref arg-3 0) ((0) (let ((e-22 (vector-ref arg-3 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 e-22 "Function types not allowed in a foreign struct") clam-19)))(else (case (vector-ref arg-3 0) ((3) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-5 (vector-ref arg-3 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-0))))) e-2 clam-19))) (case (vector-ref act-25 0) ((0) (let ((e-7 (vector-ref act-25 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-25 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-19))) (case (vector-ref act-26 0) ((0) (let ((e-8 (vector-ref act-26 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref act-26 1))) (case (vector-ref e-8 0) ((0) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-19))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-19))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 20 e-7 e-11)))))))))))) ((1) (let ((e-10 (vector-ref e-8 1))) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-77) (let ((e-12 (car lamc-0))) (let ((e-11 (cdr lamc-0))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-77))) (case (vector-ref act-27 0) ((0) (let ((e-13 (vector-ref act-27 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 1 e-13) clam-77))) (case (vector-ref act-28 0) ((0) (let ((e-14 (vector-ref act-28 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref act-28 1))) (vector 1 (cons e-12 e-14)))))))))))))) e-9 '() clam-19))) (case (vector-ref act-27 0) ((0) (let ((e-11 (vector-ref act-27 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-27 1))) (vector 1 (vector 19 e-10 e-11))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 13 ))) ((4) (vector 1 (vector 14 ))) ((5) (vector 1 (vector 15 ))) (else (let ((e-9 (vector-ref e-8 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-19))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-19))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 18 e-11))))))))))))))))))))))))))))) ((10) (vector 1 (vector 20 (vector 1 "Type") '()))) ((9) (vector 1 (vector 20 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-19))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-0))))) e-6 clam-19))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-19)))))))))))))))))))(else (lambda (clam-78) (case (vector-ref arg-3 0) ((3) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-5 (vector-ref arg-3 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-0))))) e-2 clam-78))) (case (vector-ref act-25 0) ((0) (let ((e-7 (vector-ref act-25 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-25 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-78))) (case (vector-ref act-26 0) ((0) (let ((e-8 (vector-ref act-26 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref act-26 1))) (case (vector-ref e-8 0) ((0) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-78))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-78))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 20 e-7 e-11)))))))))))) ((1) (let ((e-10 (vector-ref e-8 1))) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-79) (let ((e-12 (car lamc-0))) (let ((e-11 (cdr lamc-0))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-79))) (case (vector-ref act-27 0) ((0) (let ((e-13 (vector-ref act-27 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 1 e-13) clam-79))) (case (vector-ref act-28 0) ((0) (let ((e-14 (vector-ref act-28 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref act-28 1))) (vector 1 (cons e-12 e-14)))))))))))))) e-9 '() clam-78))) (case (vector-ref act-27 0) ((0) (let ((e-11 (vector-ref act-27 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-27 1))) (vector 1 (vector 19 e-10 e-11))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 13 ))) ((4) (vector 1 (vector 14 ))) ((5) (vector 1 (vector 15 ))) (else (let ((e-9 (vector-ref e-8 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-78))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-78))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 18 e-11))))))))))))))))))))))))))))) ((10) (vector 1 (vector 20 (vector 1 "Type") '()))) ((9) (vector 1 (vector 20 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-78))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-0))))) e-6 clam-78))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-78))))))))))))))))))))))))))(else (cond ((equal? arg-2 0) (case (vector-ref arg-3 0) ((8) (let ((e-31 (vector-ref arg-3 2))) (case (vector-ref e-31 0) ((24) (lambda (eta-0) (vector 1 (vector 10 ))))(else (case (vector-ref arg-3 0) ((8) (let ((e-28 (vector-ref arg-3 2))) (case (vector-ref e-28 0) ((26) (lambda (eta-0) (vector 1 (vector 11 )))) ((25) (lambda (eta-0) (vector 1 (vector 12 )))) ((27) (lambda (eta-0) (vector 1 (vector 16 ))))(else (cond ((equal? arg-2 0) (case (vector-ref arg-3 0) ((0) (let ((e-12 (vector-ref arg-3 1))) (let ((e-14 (vector-ref arg-3 3))) (let ((e-15 (vector-ref arg-3 4))) (lambda (clam-20) (case (vector-ref e-14 0) ((2) (let ((e-20 (vector-ref e-14 4))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-12 0 e-20) clam-20))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (((e-15 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 e-12 0))) clam-20))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-12 0 e-7) clam-20))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (vector 1 (vector 17 e-6 e-8))))))))))))))))))))(else (case (vector-ref arg-3 0) ((3) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-5 (vector-ref arg-3 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-0))))) e-2 clam-20))) (case (vector-ref act-25 0) ((0) (let ((e-7 (vector-ref act-25 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-25 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-20))) (case (vector-ref act-26 0) ((0) (let ((e-8 (vector-ref act-26 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref act-26 1))) (case (vector-ref e-8 0) ((0) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-20))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-20))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 20 e-7 e-11)))))))))))) ((1) (let ((e-10 (vector-ref e-8 1))) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-81) (let ((e-16 (car lamc-0))) (let ((e-11 (cdr lamc-0))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-81))) (case (vector-ref act-27 0) ((0) (let ((e-17 (vector-ref act-27 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 1 e-17) clam-81))) (case (vector-ref act-28 0) ((0) (let ((e-18 (vector-ref act-28 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref act-28 1))) (vector 1 (cons e-16 e-18)))))))))))))) e-9 '() clam-20))) (case (vector-ref act-27 0) ((0) (let ((e-11 (vector-ref act-27 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-27 1))) (vector 1 (vector 19 e-10 e-11))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 13 ))) ((4) (vector 1 (vector 14 ))) ((5) (vector 1 (vector 15 ))) (else (let ((e-9 (vector-ref e-8 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-20))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-20))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 18 e-11))))))))))))))))))))))))))))) ((10) (vector 1 (vector 20 (vector 1 "Type") '()))) ((9) (vector 1 (vector 20 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-20))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-0))))) e-6 clam-20))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-20))))))))))))))))))))))(else (lambda (clam-82) (case (vector-ref arg-3 0) ((3) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-5 (vector-ref arg-3 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-0))))) e-2 clam-82))) (case (vector-ref act-25 0) ((0) (let ((e-7 (vector-ref act-25 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-25 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-82))) (case (vector-ref act-26 0) ((0) (let ((e-8 (vector-ref act-26 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref act-26 1))) (case (vector-ref e-8 0) ((0) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-82))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-82))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 20 e-7 e-11)))))))))))) ((1) (let ((e-10 (vector-ref e-8 1))) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-83) (let ((e-12 (car lamc-0))) (let ((e-11 (cdr lamc-0))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-83))) (case (vector-ref act-27 0) ((0) (let ((e-13 (vector-ref act-27 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 1 e-13) clam-83))) (case (vector-ref act-28 0) ((0) (let ((e-14 (vector-ref act-28 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref act-28 1))) (vector 1 (cons e-12 e-14)))))))))))))) e-9 '() clam-82))) (case (vector-ref act-27 0) ((0) (let ((e-11 (vector-ref act-27 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-27 1))) (vector 1 (vector 19 e-10 e-11))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 13 ))) ((4) (vector 1 (vector 14 ))) ((5) (vector 1 (vector 15 ))) (else (let ((e-9 (vector-ref e-8 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-82))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-82))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 18 e-11))))))))))))))))))))))))))))) ((10) (vector 1 (vector 20 (vector 1 "Type") '()))) ((9) (vector 1 (vector 20 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-82))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-0))))) e-6 clam-82))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-82))))))))))))))))))) ((equal? arg-2 1) (lambda (clam-21) (case (vector-ref arg-3 0) ((0) (let ((e-22 (vector-ref arg-3 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 e-22 "Function types not allowed in a foreign struct") clam-21)))(else (case (vector-ref arg-3 0) ((3) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-5 (vector-ref arg-3 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-0))))) e-2 clam-21))) (case (vector-ref act-25 0) ((0) (let ((e-7 (vector-ref act-25 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-25 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-21))) (case (vector-ref act-26 0) ((0) (let ((e-8 (vector-ref act-26 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref act-26 1))) (case (vector-ref e-8 0) ((0) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-21))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-21))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 20 e-7 e-11)))))))))))) ((1) (let ((e-10 (vector-ref e-8 1))) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-85) (let ((e-12 (car lamc-0))) (let ((e-11 (cdr lamc-0))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-85))) (case (vector-ref act-27 0) ((0) (let ((e-13 (vector-ref act-27 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 1 e-13) clam-85))) (case (vector-ref act-28 0) ((0) (let ((e-14 (vector-ref act-28 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref act-28 1))) (vector 1 (cons e-12 e-14)))))))))))))) e-9 '() clam-21))) (case (vector-ref act-27 0) ((0) (let ((e-11 (vector-ref act-27 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-27 1))) (vector 1 (vector 19 e-10 e-11))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 13 ))) ((4) (vector 1 (vector 14 ))) ((5) (vector 1 (vector 15 ))) (else (let ((e-9 (vector-ref e-8 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-21))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-21))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 18 e-11))))))))))))))))))))))))))))) ((10) (vector 1 (vector 20 (vector 1 "Type") '()))) ((9) (vector 1 (vector 20 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-21))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-0))))) e-6 clam-21))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-21)))))))))))))))))))(else (lambda (clam-86) (case (vector-ref arg-3 0) ((3) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-5 (vector-ref arg-3 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-0))))) e-2 clam-86))) (case (vector-ref act-25 0) ((0) (let ((e-7 (vector-ref act-25 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-25 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-86))) (case (vector-ref act-26 0) ((0) (let ((e-8 (vector-ref act-26 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref act-26 1))) (case (vector-ref e-8 0) ((0) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-86))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-86))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 20 e-7 e-11)))))))))))) ((1) (let ((e-10 (vector-ref e-8 1))) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-87) (let ((e-12 (car lamc-0))) (let ((e-11 (cdr lamc-0))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-87))) (case (vector-ref act-27 0) ((0) (let ((e-13 (vector-ref act-27 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 1 e-13) clam-87))) (case (vector-ref act-28 0) ((0) (let ((e-14 (vector-ref act-28 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref act-28 1))) (vector 1 (cons e-12 e-14)))))))))))))) e-9 '() clam-86))) (case (vector-ref act-27 0) ((0) (let ((e-11 (vector-ref act-27 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-27 1))) (vector 1 (vector 19 e-10 e-11))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 13 ))) ((4) (vector 1 (vector 14 ))) ((5) (vector 1 (vector 15 ))) (else (let ((e-9 (vector-ref e-8 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-86))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-86))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 18 e-11))))))))))))))))))))))))))))) ((10) (vector 1 (vector 20 (vector 1 "Type") '()))) ((9) (vector 1 (vector 20 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-86))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-0))))) e-6 clam-86))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-86))))))))))))))))))))))(else (cond ((equal? arg-2 0) (case (vector-ref arg-3 0) ((0) (let ((e-12 (vector-ref arg-3 1))) (let ((e-14 (vector-ref arg-3 3))) (let ((e-15 (vector-ref arg-3 4))) (lambda (clam-22) (case (vector-ref e-14 0) ((2) (let ((e-20 (vector-ref e-14 4))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-12 0 e-20) clam-22))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (((e-15 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 e-12 0))) clam-22))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-12 0 e-7) clam-22))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (vector 1 (vector 17 e-6 e-8))))))))))))))))))))(else (case (vector-ref arg-3 0) ((3) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-5 (vector-ref arg-3 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-0))))) e-2 clam-22))) (case (vector-ref act-25 0) ((0) (let ((e-7 (vector-ref act-25 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-25 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-22))) (case (vector-ref act-26 0) ((0) (let ((e-8 (vector-ref act-26 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref act-26 1))) (case (vector-ref e-8 0) ((0) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-22))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-22))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 20 e-7 e-11)))))))))))) ((1) (let ((e-10 (vector-ref e-8 1))) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-89) (let ((e-16 (car lamc-0))) (let ((e-11 (cdr lamc-0))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-89))) (case (vector-ref act-27 0) ((0) (let ((e-17 (vector-ref act-27 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 1 e-17) clam-89))) (case (vector-ref act-28 0) ((0) (let ((e-18 (vector-ref act-28 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref act-28 1))) (vector 1 (cons e-16 e-18)))))))))))))) e-9 '() clam-22))) (case (vector-ref act-27 0) ((0) (let ((e-11 (vector-ref act-27 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-27 1))) (vector 1 (vector 19 e-10 e-11))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 13 ))) ((4) (vector 1 (vector 14 ))) ((5) (vector 1 (vector 15 ))) (else (let ((e-9 (vector-ref e-8 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-22))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-22))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 18 e-11))))))))))))))))))))))))))))) ((10) (vector 1 (vector 20 (vector 1 "Type") '()))) ((9) (vector 1 (vector 20 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-22))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-0))))) e-6 clam-22))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-22))))))))))))))))))))))(else (lambda (clam-90) (case (vector-ref arg-3 0) ((3) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-5 (vector-ref arg-3 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-0))))) e-2 clam-90))) (case (vector-ref act-25 0) ((0) (let ((e-7 (vector-ref act-25 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-25 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-90))) (case (vector-ref act-26 0) ((0) (let ((e-8 (vector-ref act-26 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref act-26 1))) (case (vector-ref e-8 0) ((0) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-90))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-90))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 20 e-7 e-11)))))))))))) ((1) (let ((e-10 (vector-ref e-8 1))) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-91) (let ((e-12 (car lamc-0))) (let ((e-11 (cdr lamc-0))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-91))) (case (vector-ref act-27 0) ((0) (let ((e-13 (vector-ref act-27 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 1 e-13) clam-91))) (case (vector-ref act-28 0) ((0) (let ((e-14 (vector-ref act-28 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref act-28 1))) (vector 1 (cons e-12 e-14)))))))))))))) e-9 '() clam-90))) (case (vector-ref act-27 0) ((0) (let ((e-11 (vector-ref act-27 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-27 1))) (vector 1 (vector 19 e-10 e-11))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 13 ))) ((4) (vector 1 (vector 14 ))) ((5) (vector 1 (vector 15 ))) (else (let ((e-9 (vector-ref e-8 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-90))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-90))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 18 e-11))))))))))))))))))))))))))))) ((10) (vector 1 (vector 20 (vector 1 "Type") '()))) ((9) (vector 1 (vector 20 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-90))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-0))))) e-6 clam-90))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-90))))))))))))))))))) ((equal? arg-2 1) (lambda (clam-23) (case (vector-ref arg-3 0) ((0) (let ((e-22 (vector-ref arg-3 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 e-22 "Function types not allowed in a foreign struct") clam-23)))(else (case (vector-ref arg-3 0) ((3) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-5 (vector-ref arg-3 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-0))))) e-2 clam-23))) (case (vector-ref act-25 0) ((0) (let ((e-7 (vector-ref act-25 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-25 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-23))) (case (vector-ref act-26 0) ((0) (let ((e-8 (vector-ref act-26 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref act-26 1))) (case (vector-ref e-8 0) ((0) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-23))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-23))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 20 e-7 e-11)))))))))))) ((1) (let ((e-10 (vector-ref e-8 1))) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-93) (let ((e-12 (car lamc-0))) (let ((e-11 (cdr lamc-0))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-93))) (case (vector-ref act-27 0) ((0) (let ((e-13 (vector-ref act-27 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 1 e-13) clam-93))) (case (vector-ref act-28 0) ((0) (let ((e-14 (vector-ref act-28 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref act-28 1))) (vector 1 (cons e-12 e-14)))))))))))))) e-9 '() clam-23))) (case (vector-ref act-27 0) ((0) (let ((e-11 (vector-ref act-27 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-27 1))) (vector 1 (vector 19 e-10 e-11))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 13 ))) ((4) (vector 1 (vector 14 ))) ((5) (vector 1 (vector 15 ))) (else (let ((e-9 (vector-ref e-8 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-23))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-23))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 18 e-11))))))))))))))))))))))))))))) ((10) (vector 1 (vector 20 (vector 1 "Type") '()))) ((9) (vector 1 (vector 20 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-23))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-0))))) e-6 clam-23))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-23)))))))))))))))))))(else (lambda (clam-94) (case (vector-ref arg-3 0) ((3) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-5 (vector-ref arg-3 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-0))))) e-2 clam-94))) (case (vector-ref act-25 0) ((0) (let ((e-7 (vector-ref act-25 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-25 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-94))) (case (vector-ref act-26 0) ((0) (let ((e-8 (vector-ref act-26 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref act-26 1))) (case (vector-ref e-8 0) ((0) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-94))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-94))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 20 e-7 e-11)))))))))))) ((1) (let ((e-10 (vector-ref e-8 1))) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-95) (let ((e-12 (car lamc-0))) (let ((e-11 (cdr lamc-0))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-95))) (case (vector-ref act-27 0) ((0) (let ((e-13 (vector-ref act-27 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 1 e-13) clam-95))) (case (vector-ref act-28 0) ((0) (let ((e-14 (vector-ref act-28 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref act-28 1))) (vector 1 (cons e-12 e-14)))))))))))))) e-9 '() clam-94))) (case (vector-ref act-27 0) ((0) (let ((e-11 (vector-ref act-27 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-27 1))) (vector 1 (vector 19 e-10 e-11))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 13 ))) ((4) (vector 1 (vector 14 ))) ((5) (vector 1 (vector 15 ))) (else (let ((e-9 (vector-ref e-8 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-94))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-94))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 18 e-11))))))))))))))))))))))))))))) ((10) (vector 1 (vector 20 (vector 1 "Type") '()))) ((9) (vector 1 (vector 20 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-94))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-0))))) e-6 clam-94))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-94))))))))))))))))))))))))(else (case (vector-ref arg-3 0) ((8) (let ((e-28 (vector-ref arg-3 2))) (case (vector-ref e-28 0) ((26) (lambda (eta-0) (vector 1 (vector 11 )))) ((25) (lambda (eta-0) (vector 1 (vector 12 )))) ((27) (lambda (eta-0) (vector 1 (vector 16 ))))(else (cond ((equal? arg-2 0) (case (vector-ref arg-3 0) ((0) (let ((e-12 (vector-ref arg-3 1))) (let ((e-14 (vector-ref arg-3 3))) (let ((e-15 (vector-ref arg-3 4))) (lambda (clam-24) (case (vector-ref e-14 0) ((2) (let ((e-20 (vector-ref e-14 4))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-12 0 e-20) clam-24))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (((e-15 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 e-12 0))) clam-24))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-12 0 e-7) clam-24))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (vector 1 (vector 17 e-6 e-8))))))))))))))))))))(else (case (vector-ref arg-3 0) ((3) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-5 (vector-ref arg-3 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-0))))) e-2 clam-24))) (case (vector-ref act-25 0) ((0) (let ((e-7 (vector-ref act-25 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-25 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-24))) (case (vector-ref act-26 0) ((0) (let ((e-8 (vector-ref act-26 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref act-26 1))) (case (vector-ref e-8 0) ((0) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-24))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-24))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 20 e-7 e-11)))))))))))) ((1) (let ((e-10 (vector-ref e-8 1))) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-97) (let ((e-16 (car lamc-0))) (let ((e-11 (cdr lamc-0))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-97))) (case (vector-ref act-27 0) ((0) (let ((e-17 (vector-ref act-27 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 1 e-17) clam-97))) (case (vector-ref act-28 0) ((0) (let ((e-18 (vector-ref act-28 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref act-28 1))) (vector 1 (cons e-16 e-18)))))))))))))) e-9 '() clam-24))) (case (vector-ref act-27 0) ((0) (let ((e-11 (vector-ref act-27 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-27 1))) (vector 1 (vector 19 e-10 e-11))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 13 ))) ((4) (vector 1 (vector 14 ))) ((5) (vector 1 (vector 15 ))) (else (let ((e-9 (vector-ref e-8 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-24))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-24))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 18 e-11))))))))))))))))))))))))))))) ((10) (vector 1 (vector 20 (vector 1 "Type") '()))) ((9) (vector 1 (vector 20 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-24))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-0))))) e-6 clam-24))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-24))))))))))))))))))))))(else (lambda (clam-98) (case (vector-ref arg-3 0) ((3) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-5 (vector-ref arg-3 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-0))))) e-2 clam-98))) (case (vector-ref act-25 0) ((0) (let ((e-7 (vector-ref act-25 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-25 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-98))) (case (vector-ref act-26 0) ((0) (let ((e-8 (vector-ref act-26 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref act-26 1))) (case (vector-ref e-8 0) ((0) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-98))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-98))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 20 e-7 e-11)))))))))))) ((1) (let ((e-10 (vector-ref e-8 1))) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-99) (let ((e-12 (car lamc-0))) (let ((e-11 (cdr lamc-0))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-99))) (case (vector-ref act-27 0) ((0) (let ((e-13 (vector-ref act-27 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 1 e-13) clam-99))) (case (vector-ref act-28 0) ((0) (let ((e-14 (vector-ref act-28 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref act-28 1))) (vector 1 (cons e-12 e-14)))))))))))))) e-9 '() clam-98))) (case (vector-ref act-27 0) ((0) (let ((e-11 (vector-ref act-27 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-27 1))) (vector 1 (vector 19 e-10 e-11))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 13 ))) ((4) (vector 1 (vector 14 ))) ((5) (vector 1 (vector 15 ))) (else (let ((e-9 (vector-ref e-8 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-98))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-98))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 18 e-11))))))))))))))))))))))))))))) ((10) (vector 1 (vector 20 (vector 1 "Type") '()))) ((9) (vector 1 (vector 20 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-98))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-0))))) e-6 clam-98))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-98))))))))))))))))))) ((equal? arg-2 1) (lambda (clam-25) (case (vector-ref arg-3 0) ((0) (let ((e-22 (vector-ref arg-3 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 e-22 "Function types not allowed in a foreign struct") clam-25)))(else (case (vector-ref arg-3 0) ((3) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-5 (vector-ref arg-3 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-0))))) e-2 clam-25))) (case (vector-ref act-25 0) ((0) (let ((e-7 (vector-ref act-25 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-25 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-25))) (case (vector-ref act-26 0) ((0) (let ((e-8 (vector-ref act-26 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref act-26 1))) (case (vector-ref e-8 0) ((0) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-25))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-25))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 20 e-7 e-11)))))))))))) ((1) (let ((e-10 (vector-ref e-8 1))) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-101) (let ((e-12 (car lamc-0))) (let ((e-11 (cdr lamc-0))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-101))) (case (vector-ref act-27 0) ((0) (let ((e-13 (vector-ref act-27 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 1 e-13) clam-101))) (case (vector-ref act-28 0) ((0) (let ((e-14 (vector-ref act-28 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref act-28 1))) (vector 1 (cons e-12 e-14)))))))))))))) e-9 '() clam-25))) (case (vector-ref act-27 0) ((0) (let ((e-11 (vector-ref act-27 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-27 1))) (vector 1 (vector 19 e-10 e-11))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 13 ))) ((4) (vector 1 (vector 14 ))) ((5) (vector 1 (vector 15 ))) (else (let ((e-9 (vector-ref e-8 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-25))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-25))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 18 e-11))))))))))))))))))))))))))))) ((10) (vector 1 (vector 20 (vector 1 "Type") '()))) ((9) (vector 1 (vector 20 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-25))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-0))))) e-6 clam-25))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-25)))))))))))))))))))(else (lambda (clam-102) (case (vector-ref arg-3 0) ((3) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-5 (vector-ref arg-3 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-0))))) e-2 clam-102))) (case (vector-ref act-25 0) ((0) (let ((e-7 (vector-ref act-25 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-25 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-102))) (case (vector-ref act-26 0) ((0) (let ((e-8 (vector-ref act-26 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref act-26 1))) (case (vector-ref e-8 0) ((0) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-102))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-102))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 20 e-7 e-11)))))))))))) ((1) (let ((e-10 (vector-ref e-8 1))) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-103) (let ((e-12 (car lamc-0))) (let ((e-11 (cdr lamc-0))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-103))) (case (vector-ref act-27 0) ((0) (let ((e-13 (vector-ref act-27 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 1 e-13) clam-103))) (case (vector-ref act-28 0) ((0) (let ((e-14 (vector-ref act-28 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref act-28 1))) (vector 1 (cons e-12 e-14)))))))))))))) e-9 '() clam-102))) (case (vector-ref act-27 0) ((0) (let ((e-11 (vector-ref act-27 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-27 1))) (vector 1 (vector 19 e-10 e-11))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 13 ))) ((4) (vector 1 (vector 14 ))) ((5) (vector 1 (vector 15 ))) (else (let ((e-9 (vector-ref e-8 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-102))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-102))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 18 e-11))))))))))))))))))))))))))))) ((10) (vector 1 (vector 20 (vector 1 "Type") '()))) ((9) (vector 1 (vector 20 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-102))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-0))))) e-6 clam-102))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-102))))))))))))))))))))))(else (cond ((equal? arg-2 0) (case (vector-ref arg-3 0) ((0) (let ((e-12 (vector-ref arg-3 1))) (let ((e-14 (vector-ref arg-3 3))) (let ((e-15 (vector-ref arg-3 4))) (lambda (clam-26) (case (vector-ref e-14 0) ((2) (let ((e-20 (vector-ref e-14 4))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-12 0 e-20) clam-26))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (((e-15 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 e-12 0))) clam-26))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-12 0 e-7) clam-26))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (vector 1 (vector 17 e-6 e-8))))))))))))))))))))(else (case (vector-ref arg-3 0) ((3) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-5 (vector-ref arg-3 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-0))))) e-2 clam-26))) (case (vector-ref act-25 0) ((0) (let ((e-7 (vector-ref act-25 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-25 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-26))) (case (vector-ref act-26 0) ((0) (let ((e-8 (vector-ref act-26 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref act-26 1))) (case (vector-ref e-8 0) ((0) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-26))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-26))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 20 e-7 e-11)))))))))))) ((1) (let ((e-10 (vector-ref e-8 1))) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-105) (let ((e-16 (car lamc-0))) (let ((e-11 (cdr lamc-0))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-105))) (case (vector-ref act-27 0) ((0) (let ((e-17 (vector-ref act-27 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 1 e-17) clam-105))) (case (vector-ref act-28 0) ((0) (let ((e-18 (vector-ref act-28 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref act-28 1))) (vector 1 (cons e-16 e-18)))))))))))))) e-9 '() clam-26))) (case (vector-ref act-27 0) ((0) (let ((e-11 (vector-ref act-27 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-27 1))) (vector 1 (vector 19 e-10 e-11))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 13 ))) ((4) (vector 1 (vector 14 ))) ((5) (vector 1 (vector 15 ))) (else (let ((e-9 (vector-ref e-8 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-26))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-26))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 18 e-11))))))))))))))))))))))))))))) ((10) (vector 1 (vector 20 (vector 1 "Type") '()))) ((9) (vector 1 (vector 20 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-26))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-0))))) e-6 clam-26))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-26))))))))))))))))))))))(else (lambda (clam-106) (case (vector-ref arg-3 0) ((3) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-5 (vector-ref arg-3 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-0))))) e-2 clam-106))) (case (vector-ref act-25 0) ((0) (let ((e-7 (vector-ref act-25 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-25 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-106))) (case (vector-ref act-26 0) ((0) (let ((e-8 (vector-ref act-26 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref act-26 1))) (case (vector-ref e-8 0) ((0) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-106))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-106))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 20 e-7 e-11)))))))))))) ((1) (let ((e-10 (vector-ref e-8 1))) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-107) (let ((e-12 (car lamc-0))) (let ((e-11 (cdr lamc-0))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-107))) (case (vector-ref act-27 0) ((0) (let ((e-13 (vector-ref act-27 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 1 e-13) clam-107))) (case (vector-ref act-28 0) ((0) (let ((e-14 (vector-ref act-28 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref act-28 1))) (vector 1 (cons e-12 e-14)))))))))))))) e-9 '() clam-106))) (case (vector-ref act-27 0) ((0) (let ((e-11 (vector-ref act-27 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-27 1))) (vector 1 (vector 19 e-10 e-11))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 13 ))) ((4) (vector 1 (vector 14 ))) ((5) (vector 1 (vector 15 ))) (else (let ((e-9 (vector-ref e-8 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-106))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-106))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 18 e-11))))))))))))))))))))))))))))) ((10) (vector 1 (vector 20 (vector 1 "Type") '()))) ((9) (vector 1 (vector 20 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-106))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-0))))) e-6 clam-106))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-106))))))))))))))))))) ((equal? arg-2 1) (lambda (clam-27) (case (vector-ref arg-3 0) ((0) (let ((e-22 (vector-ref arg-3 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 e-22 "Function types not allowed in a foreign struct") clam-27)))(else (case (vector-ref arg-3 0) ((3) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-5 (vector-ref arg-3 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-0))))) e-2 clam-27))) (case (vector-ref act-25 0) ((0) (let ((e-7 (vector-ref act-25 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-25 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-27))) (case (vector-ref act-26 0) ((0) (let ((e-8 (vector-ref act-26 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref act-26 1))) (case (vector-ref e-8 0) ((0) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-27))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-27))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 20 e-7 e-11)))))))))))) ((1) (let ((e-10 (vector-ref e-8 1))) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-109) (let ((e-12 (car lamc-0))) (let ((e-11 (cdr lamc-0))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-109))) (case (vector-ref act-27 0) ((0) (let ((e-13 (vector-ref act-27 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 1 e-13) clam-109))) (case (vector-ref act-28 0) ((0) (let ((e-14 (vector-ref act-28 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref act-28 1))) (vector 1 (cons e-12 e-14)))))))))))))) e-9 '() clam-27))) (case (vector-ref act-27 0) ((0) (let ((e-11 (vector-ref act-27 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-27 1))) (vector 1 (vector 19 e-10 e-11))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 13 ))) ((4) (vector 1 (vector 14 ))) ((5) (vector 1 (vector 15 ))) (else (let ((e-9 (vector-ref e-8 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-27))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-27))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 18 e-11))))))))))))))))))))))))))))) ((10) (vector 1 (vector 20 (vector 1 "Type") '()))) ((9) (vector 1 (vector 20 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-27))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-0))))) e-6 clam-27))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-27)))))))))))))))))))(else (lambda (clam-110) (case (vector-ref arg-3 0) ((3) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-5 (vector-ref arg-3 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-0))))) e-2 clam-110))) (case (vector-ref act-25 0) ((0) (let ((e-7 (vector-ref act-25 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-25 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-110))) (case (vector-ref act-26 0) ((0) (let ((e-8 (vector-ref act-26 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref act-26 1))) (case (vector-ref e-8 0) ((0) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-110))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-110))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 20 e-7 e-11)))))))))))) ((1) (let ((e-10 (vector-ref e-8 1))) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-111) (let ((e-12 (car lamc-0))) (let ((e-11 (cdr lamc-0))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-111))) (case (vector-ref act-27 0) ((0) (let ((e-13 (vector-ref act-27 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 1 e-13) clam-111))) (case (vector-ref act-28 0) ((0) (let ((e-14 (vector-ref act-28 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref act-28 1))) (vector 1 (cons e-12 e-14)))))))))))))) e-9 '() clam-110))) (case (vector-ref act-27 0) ((0) (let ((e-11 (vector-ref act-27 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-27 1))) (vector 1 (vector 19 e-10 e-11))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 13 ))) ((4) (vector 1 (vector 14 ))) ((5) (vector 1 (vector 15 ))) (else (let ((e-9 (vector-ref e-8 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-110))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-110))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 18 e-11))))))))))))))))))))))))))))) ((10) (vector 1 (vector 20 (vector 1 "Type") '()))) ((9) (vector 1 (vector 20 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-110))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-0))))) e-6 clam-110))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-110))))))))))))))))))))))) ((equal? arg-2 1) (case (vector-ref arg-3 0) ((8) (let ((e-34 (vector-ref arg-3 2))) (case (vector-ref e-34 0) ((24) (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-1 "String not allowed in a foreign struct") eta-0)))(else (case (vector-ref arg-3 0) ((8) (let ((e-28 (vector-ref arg-3 2))) (case (vector-ref e-28 0) ((26) (lambda (eta-0) (vector 1 (vector 11 )))) ((25) (lambda (eta-0) (vector 1 (vector 12 )))) ((27) (lambda (eta-0) (vector 1 (vector 16 ))))(else (cond ((equal? arg-2 0) (case (vector-ref arg-3 0) ((0) (let ((e-12 (vector-ref arg-3 1))) (let ((e-14 (vector-ref arg-3 3))) (let ((e-15 (vector-ref arg-3 4))) (lambda (clam-28) (case (vector-ref e-14 0) ((2) (let ((e-20 (vector-ref e-14 4))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-12 0 e-20) clam-28))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (((e-15 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 e-12 0))) clam-28))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-12 0 e-7) clam-28))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (vector 1 (vector 17 e-6 e-8))))))))))))))))))))(else (case (vector-ref arg-3 0) ((3) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-5 (vector-ref arg-3 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-0))))) e-2 clam-28))) (case (vector-ref act-25 0) ((0) (let ((e-7 (vector-ref act-25 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-25 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-28))) (case (vector-ref act-26 0) ((0) (let ((e-8 (vector-ref act-26 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref act-26 1))) (case (vector-ref e-8 0) ((0) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-28))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-28))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 20 e-7 e-11)))))))))))) ((1) (let ((e-10 (vector-ref e-8 1))) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-113) (let ((e-16 (car lamc-0))) (let ((e-11 (cdr lamc-0))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-113))) (case (vector-ref act-27 0) ((0) (let ((e-17 (vector-ref act-27 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 1 e-17) clam-113))) (case (vector-ref act-28 0) ((0) (let ((e-18 (vector-ref act-28 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref act-28 1))) (vector 1 (cons e-16 e-18)))))))))))))) e-9 '() clam-28))) (case (vector-ref act-27 0) ((0) (let ((e-11 (vector-ref act-27 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-27 1))) (vector 1 (vector 19 e-10 e-11))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 13 ))) ((4) (vector 1 (vector 14 ))) ((5) (vector 1 (vector 15 ))) (else (let ((e-9 (vector-ref e-8 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-28))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-28))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 18 e-11))))))))))))))))))))))))))))) ((10) (vector 1 (vector 20 (vector 1 "Type") '()))) ((9) (vector 1 (vector 20 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-28))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-0))))) e-6 clam-28))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-28))))))))))))))))))))))(else (lambda (clam-114) (case (vector-ref arg-3 0) ((3) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-5 (vector-ref arg-3 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-0))))) e-2 clam-114))) (case (vector-ref act-25 0) ((0) (let ((e-7 (vector-ref act-25 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-25 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-114))) (case (vector-ref act-26 0) ((0) (let ((e-8 (vector-ref act-26 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref act-26 1))) (case (vector-ref e-8 0) ((0) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-114))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-114))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 20 e-7 e-11)))))))))))) ((1) (let ((e-10 (vector-ref e-8 1))) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-115) (let ((e-12 (car lamc-0))) (let ((e-11 (cdr lamc-0))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-115))) (case (vector-ref act-27 0) ((0) (let ((e-13 (vector-ref act-27 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 1 e-13) clam-115))) (case (vector-ref act-28 0) ((0) (let ((e-14 (vector-ref act-28 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref act-28 1))) (vector 1 (cons e-12 e-14)))))))))))))) e-9 '() clam-114))) (case (vector-ref act-27 0) ((0) (let ((e-11 (vector-ref act-27 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-27 1))) (vector 1 (vector 19 e-10 e-11))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 13 ))) ((4) (vector 1 (vector 14 ))) ((5) (vector 1 (vector 15 ))) (else (let ((e-9 (vector-ref e-8 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-114))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-114))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 18 e-11))))))))))))))))))))))))))))) ((10) (vector 1 (vector 20 (vector 1 "Type") '()))) ((9) (vector 1 (vector 20 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-114))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-0))))) e-6 clam-114))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-114))))))))))))))))))) ((equal? arg-2 1) (lambda (clam-29) (case (vector-ref arg-3 0) ((0) (let ((e-22 (vector-ref arg-3 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 e-22 "Function types not allowed in a foreign struct") clam-29)))(else (case (vector-ref arg-3 0) ((3) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-5 (vector-ref arg-3 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-0))))) e-2 clam-29))) (case (vector-ref act-25 0) ((0) (let ((e-7 (vector-ref act-25 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-25 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-29))) (case (vector-ref act-26 0) ((0) (let ((e-8 (vector-ref act-26 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref act-26 1))) (case (vector-ref e-8 0) ((0) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-29))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-29))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 20 e-7 e-11)))))))))))) ((1) (let ((e-10 (vector-ref e-8 1))) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-117) (let ((e-12 (car lamc-0))) (let ((e-11 (cdr lamc-0))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-117))) (case (vector-ref act-27 0) ((0) (let ((e-13 (vector-ref act-27 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 1 e-13) clam-117))) (case (vector-ref act-28 0) ((0) (let ((e-14 (vector-ref act-28 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref act-28 1))) (vector 1 (cons e-12 e-14)))))))))))))) e-9 '() clam-29))) (case (vector-ref act-27 0) ((0) (let ((e-11 (vector-ref act-27 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-27 1))) (vector 1 (vector 19 e-10 e-11))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 13 ))) ((4) (vector 1 (vector 14 ))) ((5) (vector 1 (vector 15 ))) (else (let ((e-9 (vector-ref e-8 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-29))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-29))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 18 e-11))))))))))))))))))))))))))))) ((10) (vector 1 (vector 20 (vector 1 "Type") '()))) ((9) (vector 1 (vector 20 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-29))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-0))))) e-6 clam-29))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-29)))))))))))))))))))(else (lambda (clam-118) (case (vector-ref arg-3 0) ((3) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-5 (vector-ref arg-3 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-0))))) e-2 clam-118))) (case (vector-ref act-25 0) ((0) (let ((e-7 (vector-ref act-25 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-25 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-118))) (case (vector-ref act-26 0) ((0) (let ((e-8 (vector-ref act-26 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref act-26 1))) (case (vector-ref e-8 0) ((0) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-118))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-118))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 20 e-7 e-11)))))))))))) ((1) (let ((e-10 (vector-ref e-8 1))) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-119) (let ((e-12 (car lamc-0))) (let ((e-11 (cdr lamc-0))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-119))) (case (vector-ref act-27 0) ((0) (let ((e-13 (vector-ref act-27 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 1 e-13) clam-119))) (case (vector-ref act-28 0) ((0) (let ((e-14 (vector-ref act-28 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref act-28 1))) (vector 1 (cons e-12 e-14)))))))))))))) e-9 '() clam-118))) (case (vector-ref act-27 0) ((0) (let ((e-11 (vector-ref act-27 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-27 1))) (vector 1 (vector 19 e-10 e-11))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 13 ))) ((4) (vector 1 (vector 14 ))) ((5) (vector 1 (vector 15 ))) (else (let ((e-9 (vector-ref e-8 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-118))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-118))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 18 e-11))))))))))))))))))))))))))))) ((10) (vector 1 (vector 20 (vector 1 "Type") '()))) ((9) (vector 1 (vector 20 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-118))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-0))))) e-6 clam-118))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-118))))))))))))))))))))))(else (cond ((equal? arg-2 0) (case (vector-ref arg-3 0) ((0) (let ((e-12 (vector-ref arg-3 1))) (let ((e-14 (vector-ref arg-3 3))) (let ((e-15 (vector-ref arg-3 4))) (lambda (clam-30) (case (vector-ref e-14 0) ((2) (let ((e-20 (vector-ref e-14 4))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-12 0 e-20) clam-30))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (((e-15 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 e-12 0))) clam-30))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-12 0 e-7) clam-30))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (vector 1 (vector 17 e-6 e-8))))))))))))))))))))(else (case (vector-ref arg-3 0) ((3) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-5 (vector-ref arg-3 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-0))))) e-2 clam-30))) (case (vector-ref act-25 0) ((0) (let ((e-7 (vector-ref act-25 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-25 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-30))) (case (vector-ref act-26 0) ((0) (let ((e-8 (vector-ref act-26 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref act-26 1))) (case (vector-ref e-8 0) ((0) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-30))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-30))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 20 e-7 e-11)))))))))))) ((1) (let ((e-10 (vector-ref e-8 1))) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-121) (let ((e-16 (car lamc-0))) (let ((e-11 (cdr lamc-0))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-121))) (case (vector-ref act-27 0) ((0) (let ((e-17 (vector-ref act-27 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 1 e-17) clam-121))) (case (vector-ref act-28 0) ((0) (let ((e-18 (vector-ref act-28 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref act-28 1))) (vector 1 (cons e-16 e-18)))))))))))))) e-9 '() clam-30))) (case (vector-ref act-27 0) ((0) (let ((e-11 (vector-ref act-27 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-27 1))) (vector 1 (vector 19 e-10 e-11))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 13 ))) ((4) (vector 1 (vector 14 ))) ((5) (vector 1 (vector 15 ))) (else (let ((e-9 (vector-ref e-8 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-30))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-30))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 18 e-11))))))))))))))))))))))))))))) ((10) (vector 1 (vector 20 (vector 1 "Type") '()))) ((9) (vector 1 (vector 20 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-30))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-0))))) e-6 clam-30))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-30))))))))))))))))))))))(else (lambda (clam-122) (case (vector-ref arg-3 0) ((3) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-5 (vector-ref arg-3 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-0))))) e-2 clam-122))) (case (vector-ref act-25 0) ((0) (let ((e-7 (vector-ref act-25 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-25 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-122))) (case (vector-ref act-26 0) ((0) (let ((e-8 (vector-ref act-26 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref act-26 1))) (case (vector-ref e-8 0) ((0) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-122))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-122))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 20 e-7 e-11)))))))))))) ((1) (let ((e-10 (vector-ref e-8 1))) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-123) (let ((e-12 (car lamc-0))) (let ((e-11 (cdr lamc-0))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-123))) (case (vector-ref act-27 0) ((0) (let ((e-13 (vector-ref act-27 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 1 e-13) clam-123))) (case (vector-ref act-28 0) ((0) (let ((e-14 (vector-ref act-28 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref act-28 1))) (vector 1 (cons e-12 e-14)))))))))))))) e-9 '() clam-122))) (case (vector-ref act-27 0) ((0) (let ((e-11 (vector-ref act-27 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-27 1))) (vector 1 (vector 19 e-10 e-11))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 13 ))) ((4) (vector 1 (vector 14 ))) ((5) (vector 1 (vector 15 ))) (else (let ((e-9 (vector-ref e-8 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-122))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-122))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 18 e-11))))))))))))))))))))))))))))) ((10) (vector 1 (vector 20 (vector 1 "Type") '()))) ((9) (vector 1 (vector 20 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-122))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-0))))) e-6 clam-122))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-122))))))))))))))))))) ((equal? arg-2 1) (lambda (clam-31) (case (vector-ref arg-3 0) ((0) (let ((e-22 (vector-ref arg-3 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 e-22 "Function types not allowed in a foreign struct") clam-31)))(else (case (vector-ref arg-3 0) ((3) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-5 (vector-ref arg-3 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-0))))) e-2 clam-31))) (case (vector-ref act-25 0) ((0) (let ((e-7 (vector-ref act-25 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-25 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-31))) (case (vector-ref act-26 0) ((0) (let ((e-8 (vector-ref act-26 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref act-26 1))) (case (vector-ref e-8 0) ((0) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-31))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-31))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 20 e-7 e-11)))))))))))) ((1) (let ((e-10 (vector-ref e-8 1))) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-125) (let ((e-12 (car lamc-0))) (let ((e-11 (cdr lamc-0))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-125))) (case (vector-ref act-27 0) ((0) (let ((e-13 (vector-ref act-27 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 1 e-13) clam-125))) (case (vector-ref act-28 0) ((0) (let ((e-14 (vector-ref act-28 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref act-28 1))) (vector 1 (cons e-12 e-14)))))))))))))) e-9 '() clam-31))) (case (vector-ref act-27 0) ((0) (let ((e-11 (vector-ref act-27 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-27 1))) (vector 1 (vector 19 e-10 e-11))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 13 ))) ((4) (vector 1 (vector 14 ))) ((5) (vector 1 (vector 15 ))) (else (let ((e-9 (vector-ref e-8 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-31))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-31))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 18 e-11))))))))))))))))))))))))))))) ((10) (vector 1 (vector 20 (vector 1 "Type") '()))) ((9) (vector 1 (vector 20 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-31))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-0))))) e-6 clam-31))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-31)))))))))))))))))))(else (lambda (clam-126) (case (vector-ref arg-3 0) ((3) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-5 (vector-ref arg-3 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-0))))) e-2 clam-126))) (case (vector-ref act-25 0) ((0) (let ((e-7 (vector-ref act-25 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-25 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-126))) (case (vector-ref act-26 0) ((0) (let ((e-8 (vector-ref act-26 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref act-26 1))) (case (vector-ref e-8 0) ((0) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-126))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-126))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 20 e-7 e-11)))))))))))) ((1) (let ((e-10 (vector-ref e-8 1))) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-127) (let ((e-12 (car lamc-0))) (let ((e-11 (cdr lamc-0))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-127))) (case (vector-ref act-27 0) ((0) (let ((e-13 (vector-ref act-27 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 1 e-13) clam-127))) (case (vector-ref act-28 0) ((0) (let ((e-14 (vector-ref act-28 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref act-28 1))) (vector 1 (cons e-12 e-14)))))))))))))) e-9 '() clam-126))) (case (vector-ref act-27 0) ((0) (let ((e-11 (vector-ref act-27 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-27 1))) (vector 1 (vector 19 e-10 e-11))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 13 ))) ((4) (vector 1 (vector 14 ))) ((5) (vector 1 (vector 15 ))) (else (let ((e-9 (vector-ref e-8 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-126))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-126))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 18 e-11))))))))))))))))))))))))))))) ((10) (vector 1 (vector 20 (vector 1 "Type") '()))) ((9) (vector 1 (vector 20 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-126))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-0))))) e-6 clam-126))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-126))))))))))))))))))))))))(else (case (vector-ref arg-3 0) ((8) (let ((e-28 (vector-ref arg-3 2))) (case (vector-ref e-28 0) ((26) (lambda (eta-0) (vector 1 (vector 11 )))) ((25) (lambda (eta-0) (vector 1 (vector 12 )))) ((27) (lambda (eta-0) (vector 1 (vector 16 ))))(else (cond ((equal? arg-2 0) (case (vector-ref arg-3 0) ((0) (let ((e-12 (vector-ref arg-3 1))) (let ((e-14 (vector-ref arg-3 3))) (let ((e-15 (vector-ref arg-3 4))) (lambda (clam-32) (case (vector-ref e-14 0) ((2) (let ((e-20 (vector-ref e-14 4))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-12 0 e-20) clam-32))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (((e-15 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 e-12 0))) clam-32))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-12 0 e-7) clam-32))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (vector 1 (vector 17 e-6 e-8))))))))))))))))))))(else (case (vector-ref arg-3 0) ((3) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-5 (vector-ref arg-3 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-0))))) e-2 clam-32))) (case (vector-ref act-25 0) ((0) (let ((e-7 (vector-ref act-25 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-25 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-32))) (case (vector-ref act-26 0) ((0) (let ((e-8 (vector-ref act-26 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref act-26 1))) (case (vector-ref e-8 0) ((0) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-32))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-32))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 20 e-7 e-11)))))))))))) ((1) (let ((e-10 (vector-ref e-8 1))) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-129) (let ((e-16 (car lamc-0))) (let ((e-11 (cdr lamc-0))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-129))) (case (vector-ref act-27 0) ((0) (let ((e-17 (vector-ref act-27 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 1 e-17) clam-129))) (case (vector-ref act-28 0) ((0) (let ((e-18 (vector-ref act-28 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref act-28 1))) (vector 1 (cons e-16 e-18)))))))))))))) e-9 '() clam-32))) (case (vector-ref act-27 0) ((0) (let ((e-11 (vector-ref act-27 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-27 1))) (vector 1 (vector 19 e-10 e-11))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 13 ))) ((4) (vector 1 (vector 14 ))) ((5) (vector 1 (vector 15 ))) (else (let ((e-9 (vector-ref e-8 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-32))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-32))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 18 e-11))))))))))))))))))))))))))))) ((10) (vector 1 (vector 20 (vector 1 "Type") '()))) ((9) (vector 1 (vector 20 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-32))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-0))))) e-6 clam-32))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-32))))))))))))))))))))))(else (lambda (clam-130) (case (vector-ref arg-3 0) ((3) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-5 (vector-ref arg-3 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-0))))) e-2 clam-130))) (case (vector-ref act-25 0) ((0) (let ((e-7 (vector-ref act-25 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-25 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-130))) (case (vector-ref act-26 0) ((0) (let ((e-8 (vector-ref act-26 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref act-26 1))) (case (vector-ref e-8 0) ((0) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-130))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-130))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 20 e-7 e-11)))))))))))) ((1) (let ((e-10 (vector-ref e-8 1))) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-131) (let ((e-12 (car lamc-0))) (let ((e-11 (cdr lamc-0))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-131))) (case (vector-ref act-27 0) ((0) (let ((e-13 (vector-ref act-27 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 1 e-13) clam-131))) (case (vector-ref act-28 0) ((0) (let ((e-14 (vector-ref act-28 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref act-28 1))) (vector 1 (cons e-12 e-14)))))))))))))) e-9 '() clam-130))) (case (vector-ref act-27 0) ((0) (let ((e-11 (vector-ref act-27 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-27 1))) (vector 1 (vector 19 e-10 e-11))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 13 ))) ((4) (vector 1 (vector 14 ))) ((5) (vector 1 (vector 15 ))) (else (let ((e-9 (vector-ref e-8 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-130))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-130))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 18 e-11))))))))))))))))))))))))))))) ((10) (vector 1 (vector 20 (vector 1 "Type") '()))) ((9) (vector 1 (vector 20 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-130))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-0))))) e-6 clam-130))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-130))))))))))))))))))) ((equal? arg-2 1) (lambda (clam-33) (case (vector-ref arg-3 0) ((0) (let ((e-22 (vector-ref arg-3 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 e-22 "Function types not allowed in a foreign struct") clam-33)))(else (case (vector-ref arg-3 0) ((3) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-5 (vector-ref arg-3 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-0))))) e-2 clam-33))) (case (vector-ref act-25 0) ((0) (let ((e-7 (vector-ref act-25 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-25 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-33))) (case (vector-ref act-26 0) ((0) (let ((e-8 (vector-ref act-26 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref act-26 1))) (case (vector-ref e-8 0) ((0) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-33))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-33))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 20 e-7 e-11)))))))))))) ((1) (let ((e-10 (vector-ref e-8 1))) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-133) (let ((e-12 (car lamc-0))) (let ((e-11 (cdr lamc-0))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-133))) (case (vector-ref act-27 0) ((0) (let ((e-13 (vector-ref act-27 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 1 e-13) clam-133))) (case (vector-ref act-28 0) ((0) (let ((e-14 (vector-ref act-28 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref act-28 1))) (vector 1 (cons e-12 e-14)))))))))))))) e-9 '() clam-33))) (case (vector-ref act-27 0) ((0) (let ((e-11 (vector-ref act-27 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-27 1))) (vector 1 (vector 19 e-10 e-11))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 13 ))) ((4) (vector 1 (vector 14 ))) ((5) (vector 1 (vector 15 ))) (else (let ((e-9 (vector-ref e-8 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-33))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-33))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 18 e-11))))))))))))))))))))))))))))) ((10) (vector 1 (vector 20 (vector 1 "Type") '()))) ((9) (vector 1 (vector 20 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-33))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-0))))) e-6 clam-33))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-33)))))))))))))))))))(else (lambda (clam-134) (case (vector-ref arg-3 0) ((3) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-5 (vector-ref arg-3 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-0))))) e-2 clam-134))) (case (vector-ref act-25 0) ((0) (let ((e-7 (vector-ref act-25 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-25 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-134))) (case (vector-ref act-26 0) ((0) (let ((e-8 (vector-ref act-26 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref act-26 1))) (case (vector-ref e-8 0) ((0) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-134))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-134))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 20 e-7 e-11)))))))))))) ((1) (let ((e-10 (vector-ref e-8 1))) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-135) (let ((e-12 (car lamc-0))) (let ((e-11 (cdr lamc-0))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-135))) (case (vector-ref act-27 0) ((0) (let ((e-13 (vector-ref act-27 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 1 e-13) clam-135))) (case (vector-ref act-28 0) ((0) (let ((e-14 (vector-ref act-28 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref act-28 1))) (vector 1 (cons e-12 e-14)))))))))))))) e-9 '() clam-134))) (case (vector-ref act-27 0) ((0) (let ((e-11 (vector-ref act-27 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-27 1))) (vector 1 (vector 19 e-10 e-11))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 13 ))) ((4) (vector 1 (vector 14 ))) ((5) (vector 1 (vector 15 ))) (else (let ((e-9 (vector-ref e-8 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-134))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-134))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 18 e-11))))))))))))))))))))))))))))) ((10) (vector 1 (vector 20 (vector 1 "Type") '()))) ((9) (vector 1 (vector 20 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-134))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-0))))) e-6 clam-134))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-134))))))))))))))))))))))(else (cond ((equal? arg-2 0) (case (vector-ref arg-3 0) ((0) (let ((e-12 (vector-ref arg-3 1))) (let ((e-14 (vector-ref arg-3 3))) (let ((e-15 (vector-ref arg-3 4))) (lambda (clam-34) (case (vector-ref e-14 0) ((2) (let ((e-20 (vector-ref e-14 4))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-12 0 e-20) clam-34))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (((e-15 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 e-12 0))) clam-34))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-12 0 e-7) clam-34))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (vector 1 (vector 17 e-6 e-8))))))))))))))))))))(else (case (vector-ref arg-3 0) ((3) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-5 (vector-ref arg-3 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-0))))) e-2 clam-34))) (case (vector-ref act-25 0) ((0) (let ((e-7 (vector-ref act-25 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-25 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-34))) (case (vector-ref act-26 0) ((0) (let ((e-8 (vector-ref act-26 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref act-26 1))) (case (vector-ref e-8 0) ((0) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-34))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-34))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 20 e-7 e-11)))))))))))) ((1) (let ((e-10 (vector-ref e-8 1))) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-137) (let ((e-16 (car lamc-0))) (let ((e-11 (cdr lamc-0))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-137))) (case (vector-ref act-27 0) ((0) (let ((e-17 (vector-ref act-27 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 1 e-17) clam-137))) (case (vector-ref act-28 0) ((0) (let ((e-18 (vector-ref act-28 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref act-28 1))) (vector 1 (cons e-16 e-18)))))))))))))) e-9 '() clam-34))) (case (vector-ref act-27 0) ((0) (let ((e-11 (vector-ref act-27 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-27 1))) (vector 1 (vector 19 e-10 e-11))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 13 ))) ((4) (vector 1 (vector 14 ))) ((5) (vector 1 (vector 15 ))) (else (let ((e-9 (vector-ref e-8 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-34))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-34))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 18 e-11))))))))))))))))))))))))))))) ((10) (vector 1 (vector 20 (vector 1 "Type") '()))) ((9) (vector 1 (vector 20 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-34))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-0))))) e-6 clam-34))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-34))))))))))))))))))))))(else (lambda (clam-138) (case (vector-ref arg-3 0) ((3) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-5 (vector-ref arg-3 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-0))))) e-2 clam-138))) (case (vector-ref act-25 0) ((0) (let ((e-7 (vector-ref act-25 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-25 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-138))) (case (vector-ref act-26 0) ((0) (let ((e-8 (vector-ref act-26 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref act-26 1))) (case (vector-ref e-8 0) ((0) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-138))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-138))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 20 e-7 e-11)))))))))))) ((1) (let ((e-10 (vector-ref e-8 1))) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-139) (let ((e-12 (car lamc-0))) (let ((e-11 (cdr lamc-0))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-139))) (case (vector-ref act-27 0) ((0) (let ((e-13 (vector-ref act-27 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 1 e-13) clam-139))) (case (vector-ref act-28 0) ((0) (let ((e-14 (vector-ref act-28 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref act-28 1))) (vector 1 (cons e-12 e-14)))))))))))))) e-9 '() clam-138))) (case (vector-ref act-27 0) ((0) (let ((e-11 (vector-ref act-27 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-27 1))) (vector 1 (vector 19 e-10 e-11))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 13 ))) ((4) (vector 1 (vector 14 ))) ((5) (vector 1 (vector 15 ))) (else (let ((e-9 (vector-ref e-8 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-138))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-138))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 18 e-11))))))))))))))))))))))))))))) ((10) (vector 1 (vector 20 (vector 1 "Type") '()))) ((9) (vector 1 (vector 20 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-138))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-0))))) e-6 clam-138))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-138))))))))))))))))))) ((equal? arg-2 1) (lambda (clam-35) (case (vector-ref arg-3 0) ((0) (let ((e-22 (vector-ref arg-3 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 e-22 "Function types not allowed in a foreign struct") clam-35)))(else (case (vector-ref arg-3 0) ((3) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-5 (vector-ref arg-3 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-0))))) e-2 clam-35))) (case (vector-ref act-25 0) ((0) (let ((e-7 (vector-ref act-25 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-25 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-35))) (case (vector-ref act-26 0) ((0) (let ((e-8 (vector-ref act-26 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref act-26 1))) (case (vector-ref e-8 0) ((0) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-35))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-35))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 20 e-7 e-11)))))))))))) ((1) (let ((e-10 (vector-ref e-8 1))) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-141) (let ((e-12 (car lamc-0))) (let ((e-11 (cdr lamc-0))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-141))) (case (vector-ref act-27 0) ((0) (let ((e-13 (vector-ref act-27 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 1 e-13) clam-141))) (case (vector-ref act-28 0) ((0) (let ((e-14 (vector-ref act-28 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref act-28 1))) (vector 1 (cons e-12 e-14)))))))))))))) e-9 '() clam-35))) (case (vector-ref act-27 0) ((0) (let ((e-11 (vector-ref act-27 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-27 1))) (vector 1 (vector 19 e-10 e-11))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 13 ))) ((4) (vector 1 (vector 14 ))) ((5) (vector 1 (vector 15 ))) (else (let ((e-9 (vector-ref e-8 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-35))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-35))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 18 e-11))))))))))))))))))))))))))))) ((10) (vector 1 (vector 20 (vector 1 "Type") '()))) ((9) (vector 1 (vector 20 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-35))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-0))))) e-6 clam-35))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-35)))))))))))))))))))(else (lambda (clam-142) (case (vector-ref arg-3 0) ((3) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-5 (vector-ref arg-3 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-0))))) e-2 clam-142))) (case (vector-ref act-25 0) ((0) (let ((e-7 (vector-ref act-25 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-25 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-142))) (case (vector-ref act-26 0) ((0) (let ((e-8 (vector-ref act-26 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref act-26 1))) (case (vector-ref e-8 0) ((0) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-142))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-142))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 20 e-7 e-11)))))))))))) ((1) (let ((e-10 (vector-ref e-8 1))) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-143) (let ((e-12 (car lamc-0))) (let ((e-11 (cdr lamc-0))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-143))) (case (vector-ref act-27 0) ((0) (let ((e-13 (vector-ref act-27 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 1 e-13) clam-143))) (case (vector-ref act-28 0) ((0) (let ((e-14 (vector-ref act-28 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref act-28 1))) (vector 1 (cons e-12 e-14)))))))))))))) e-9 '() clam-142))) (case (vector-ref act-27 0) ((0) (let ((e-11 (vector-ref act-27 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-27 1))) (vector 1 (vector 19 e-10 e-11))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 13 ))) ((4) (vector 1 (vector 14 ))) ((5) (vector 1 (vector 15 ))) (else (let ((e-9 (vector-ref e-8 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-142))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-142))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 18 e-11))))))))))))))))))))))))))))) ((10) (vector 1 (vector 20 (vector 1 "Type") '()))) ((9) (vector 1 (vector 20 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-142))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-0))))) e-6 clam-142))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-142)))))))))))))))))))))))(else (case (vector-ref arg-3 0) ((8) (let ((e-28 (vector-ref arg-3 2))) (case (vector-ref e-28 0) ((26) (lambda (eta-0) (vector 1 (vector 11 )))) ((25) (lambda (eta-0) (vector 1 (vector 12 )))) ((27) (lambda (eta-0) (vector 1 (vector 16 ))))(else (cond ((equal? arg-2 0) (case (vector-ref arg-3 0) ((0) (let ((e-12 (vector-ref arg-3 1))) (let ((e-14 (vector-ref arg-3 3))) (let ((e-15 (vector-ref arg-3 4))) (lambda (clam-36) (case (vector-ref e-14 0) ((2) (let ((e-20 (vector-ref e-14 4))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-12 0 e-20) clam-36))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (((e-15 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 e-12 0))) clam-36))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-12 0 e-7) clam-36))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (vector 1 (vector 17 e-6 e-8))))))))))))))))))))(else (case (vector-ref arg-3 0) ((3) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-5 (vector-ref arg-3 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-0))))) e-2 clam-36))) (case (vector-ref act-25 0) ((0) (let ((e-7 (vector-ref act-25 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-25 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-36))) (case (vector-ref act-26 0) ((0) (let ((e-8 (vector-ref act-26 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref act-26 1))) (case (vector-ref e-8 0) ((0) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-36))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-36))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 20 e-7 e-11)))))))))))) ((1) (let ((e-10 (vector-ref e-8 1))) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-145) (let ((e-16 (car lamc-0))) (let ((e-11 (cdr lamc-0))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-145))) (case (vector-ref act-27 0) ((0) (let ((e-17 (vector-ref act-27 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 1 e-17) clam-145))) (case (vector-ref act-28 0) ((0) (let ((e-18 (vector-ref act-28 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref act-28 1))) (vector 1 (cons e-16 e-18)))))))))))))) e-9 '() clam-36))) (case (vector-ref act-27 0) ((0) (let ((e-11 (vector-ref act-27 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-27 1))) (vector 1 (vector 19 e-10 e-11))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 13 ))) ((4) (vector 1 (vector 14 ))) ((5) (vector 1 (vector 15 ))) (else (let ((e-9 (vector-ref e-8 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-36))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-36))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 18 e-11))))))))))))))))))))))))))))) ((10) (vector 1 (vector 20 (vector 1 "Type") '()))) ((9) (vector 1 (vector 20 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-36))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-0))))) e-6 clam-36))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-36))))))))))))))))))))))(else (lambda (clam-146) (case (vector-ref arg-3 0) ((3) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-5 (vector-ref arg-3 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-0))))) e-2 clam-146))) (case (vector-ref act-25 0) ((0) (let ((e-7 (vector-ref act-25 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-25 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-146))) (case (vector-ref act-26 0) ((0) (let ((e-8 (vector-ref act-26 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref act-26 1))) (case (vector-ref e-8 0) ((0) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-146))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-146))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 20 e-7 e-11)))))))))))) ((1) (let ((e-10 (vector-ref e-8 1))) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-147) (let ((e-12 (car lamc-0))) (let ((e-11 (cdr lamc-0))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-147))) (case (vector-ref act-27 0) ((0) (let ((e-13 (vector-ref act-27 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 1 e-13) clam-147))) (case (vector-ref act-28 0) ((0) (let ((e-14 (vector-ref act-28 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref act-28 1))) (vector 1 (cons e-12 e-14)))))))))))))) e-9 '() clam-146))) (case (vector-ref act-27 0) ((0) (let ((e-11 (vector-ref act-27 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-27 1))) (vector 1 (vector 19 e-10 e-11))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 13 ))) ((4) (vector 1 (vector 14 ))) ((5) (vector 1 (vector 15 ))) (else (let ((e-9 (vector-ref e-8 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-146))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-146))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 18 e-11))))))))))))))))))))))))))))) ((10) (vector 1 (vector 20 (vector 1 "Type") '()))) ((9) (vector 1 (vector 20 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-146))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-0))))) e-6 clam-146))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-146))))))))))))))))))) ((equal? arg-2 1) (lambda (clam-37) (case (vector-ref arg-3 0) ((0) (let ((e-22 (vector-ref arg-3 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 e-22 "Function types not allowed in a foreign struct") clam-37)))(else (case (vector-ref arg-3 0) ((3) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-5 (vector-ref arg-3 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-0))))) e-2 clam-37))) (case (vector-ref act-25 0) ((0) (let ((e-7 (vector-ref act-25 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-25 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-37))) (case (vector-ref act-26 0) ((0) (let ((e-8 (vector-ref act-26 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref act-26 1))) (case (vector-ref e-8 0) ((0) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-37))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-37))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 20 e-7 e-11)))))))))))) ((1) (let ((e-10 (vector-ref e-8 1))) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-149) (let ((e-12 (car lamc-0))) (let ((e-11 (cdr lamc-0))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-149))) (case (vector-ref act-27 0) ((0) (let ((e-13 (vector-ref act-27 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 1 e-13) clam-149))) (case (vector-ref act-28 0) ((0) (let ((e-14 (vector-ref act-28 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref act-28 1))) (vector 1 (cons e-12 e-14)))))))))))))) e-9 '() clam-37))) (case (vector-ref act-27 0) ((0) (let ((e-11 (vector-ref act-27 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-27 1))) (vector 1 (vector 19 e-10 e-11))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 13 ))) ((4) (vector 1 (vector 14 ))) ((5) (vector 1 (vector 15 ))) (else (let ((e-9 (vector-ref e-8 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-37))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-37))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 18 e-11))))))))))))))))))))))))))))) ((10) (vector 1 (vector 20 (vector 1 "Type") '()))) ((9) (vector 1 (vector 20 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-37))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-0))))) e-6 clam-37))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-37)))))))))))))))))))(else (lambda (clam-150) (case (vector-ref arg-3 0) ((3) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-5 (vector-ref arg-3 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-0))))) e-2 clam-150))) (case (vector-ref act-25 0) ((0) (let ((e-7 (vector-ref act-25 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-25 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-150))) (case (vector-ref act-26 0) ((0) (let ((e-8 (vector-ref act-26 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref act-26 1))) (case (vector-ref e-8 0) ((0) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-150))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-150))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 20 e-7 e-11)))))))))))) ((1) (let ((e-10 (vector-ref e-8 1))) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-151) (let ((e-12 (car lamc-0))) (let ((e-11 (cdr lamc-0))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-151))) (case (vector-ref act-27 0) ((0) (let ((e-13 (vector-ref act-27 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 1 e-13) clam-151))) (case (vector-ref act-28 0) ((0) (let ((e-14 (vector-ref act-28 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref act-28 1))) (vector 1 (cons e-12 e-14)))))))))))))) e-9 '() clam-150))) (case (vector-ref act-27 0) ((0) (let ((e-11 (vector-ref act-27 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-27 1))) (vector 1 (vector 19 e-10 e-11))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 13 ))) ((4) (vector 1 (vector 14 ))) ((5) (vector 1 (vector 15 ))) (else (let ((e-9 (vector-ref e-8 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-150))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-150))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 18 e-11))))))))))))))))))))))))))))) ((10) (vector 1 (vector 20 (vector 1 "Type") '()))) ((9) (vector 1 (vector 20 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-150))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-0))))) e-6 clam-150))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-150))))))))))))))))))))))(else (cond ((equal? arg-2 0) (case (vector-ref arg-3 0) ((0) (let ((e-12 (vector-ref arg-3 1))) (let ((e-14 (vector-ref arg-3 3))) (let ((e-15 (vector-ref arg-3 4))) (lambda (clam-38) (case (vector-ref e-14 0) ((2) (let ((e-20 (vector-ref e-14 4))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-12 0 e-20) clam-38))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (((e-15 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 e-12 0))) clam-38))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-12 0 e-7) clam-38))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (vector 1 (vector 17 e-6 e-8))))))))))))))))))))(else (case (vector-ref arg-3 0) ((3) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-5 (vector-ref arg-3 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-0))))) e-2 clam-38))) (case (vector-ref act-25 0) ((0) (let ((e-7 (vector-ref act-25 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-25 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-38))) (case (vector-ref act-26 0) ((0) (let ((e-8 (vector-ref act-26 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref act-26 1))) (case (vector-ref e-8 0) ((0) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-38))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-38))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 20 e-7 e-11)))))))))))) ((1) (let ((e-10 (vector-ref e-8 1))) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-153) (let ((e-16 (car lamc-0))) (let ((e-11 (cdr lamc-0))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-153))) (case (vector-ref act-27 0) ((0) (let ((e-17 (vector-ref act-27 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 1 e-17) clam-153))) (case (vector-ref act-28 0) ((0) (let ((e-18 (vector-ref act-28 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref act-28 1))) (vector 1 (cons e-16 e-18)))))))))))))) e-9 '() clam-38))) (case (vector-ref act-27 0) ((0) (let ((e-11 (vector-ref act-27 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-27 1))) (vector 1 (vector 19 e-10 e-11))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 13 ))) ((4) (vector 1 (vector 14 ))) ((5) (vector 1 (vector 15 ))) (else (let ((e-9 (vector-ref e-8 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-38))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-38))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 18 e-11))))))))))))))))))))))))))))) ((10) (vector 1 (vector 20 (vector 1 "Type") '()))) ((9) (vector 1 (vector 20 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-38))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-0))))) e-6 clam-38))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-38))))))))))))))))))))))(else (lambda (clam-154) (case (vector-ref arg-3 0) ((3) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-5 (vector-ref arg-3 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-0))))) e-2 clam-154))) (case (vector-ref act-25 0) ((0) (let ((e-7 (vector-ref act-25 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-25 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-154))) (case (vector-ref act-26 0) ((0) (let ((e-8 (vector-ref act-26 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref act-26 1))) (case (vector-ref e-8 0) ((0) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-154))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-154))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 20 e-7 e-11)))))))))))) ((1) (let ((e-10 (vector-ref e-8 1))) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-155) (let ((e-12 (car lamc-0))) (let ((e-11 (cdr lamc-0))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-155))) (case (vector-ref act-27 0) ((0) (let ((e-13 (vector-ref act-27 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 1 e-13) clam-155))) (case (vector-ref act-28 0) ((0) (let ((e-14 (vector-ref act-28 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref act-28 1))) (vector 1 (cons e-12 e-14)))))))))))))) e-9 '() clam-154))) (case (vector-ref act-27 0) ((0) (let ((e-11 (vector-ref act-27 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-27 1))) (vector 1 (vector 19 e-10 e-11))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 13 ))) ((4) (vector 1 (vector 14 ))) ((5) (vector 1 (vector 15 ))) (else (let ((e-9 (vector-ref e-8 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-154))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-154))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 18 e-11))))))))))))))))))))))))))))) ((10) (vector 1 (vector 20 (vector 1 "Type") '()))) ((9) (vector 1 (vector 20 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-154))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-0))))) e-6 clam-154))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-154))))))))))))))))))) ((equal? arg-2 1) (lambda (clam-39) (case (vector-ref arg-3 0) ((0) (let ((e-22 (vector-ref arg-3 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 e-22 "Function types not allowed in a foreign struct") clam-39)))(else (case (vector-ref arg-3 0) ((3) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-5 (vector-ref arg-3 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-0))))) e-2 clam-39))) (case (vector-ref act-25 0) ((0) (let ((e-7 (vector-ref act-25 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-25 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-39))) (case (vector-ref act-26 0) ((0) (let ((e-8 (vector-ref act-26 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref act-26 1))) (case (vector-ref e-8 0) ((0) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-39))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-39))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 20 e-7 e-11)))))))))))) ((1) (let ((e-10 (vector-ref e-8 1))) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-157) (let ((e-12 (car lamc-0))) (let ((e-11 (cdr lamc-0))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-157))) (case (vector-ref act-27 0) ((0) (let ((e-13 (vector-ref act-27 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 1 e-13) clam-157))) (case (vector-ref act-28 0) ((0) (let ((e-14 (vector-ref act-28 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref act-28 1))) (vector 1 (cons e-12 e-14)))))))))))))) e-9 '() clam-39))) (case (vector-ref act-27 0) ((0) (let ((e-11 (vector-ref act-27 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-27 1))) (vector 1 (vector 19 e-10 e-11))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 13 ))) ((4) (vector 1 (vector 14 ))) ((5) (vector 1 (vector 15 ))) (else (let ((e-9 (vector-ref e-8 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-39))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-39))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 18 e-11))))))))))))))))))))))))))))) ((10) (vector 1 (vector 20 (vector 1 "Type") '()))) ((9) (vector 1 (vector 20 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-39))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-0))))) e-6 clam-39))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-39)))))))))))))))))))(else (lambda (clam-158) (case (vector-ref arg-3 0) ((3) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-5 (vector-ref arg-3 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-0))))) e-2 clam-158))) (case (vector-ref act-25 0) ((0) (let ((e-7 (vector-ref act-25 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-25 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-158))) (case (vector-ref act-26 0) ((0) (let ((e-8 (vector-ref act-26 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref act-26 1))) (case (vector-ref e-8 0) ((0) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-158))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-158))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 20 e-7 e-11)))))))))))) ((1) (let ((e-10 (vector-ref e-8 1))) (let ((e-9 (vector-ref e-8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-159) (let ((e-12 (car lamc-0))) (let ((e-11 (cdr lamc-0))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-159))) (case (vector-ref act-27 0) ((0) (let ((e-13 (vector-ref act-27 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 1 e-13) clam-159))) (case (vector-ref act-28 0) ((0) (let ((e-14 (vector-ref act-28 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref act-28 1))) (vector 1 (cons e-12 e-14)))))))))))))) e-9 '() clam-158))) (case (vector-ref act-27 0) ((0) (let ((e-11 (vector-ref act-27 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-27 1))) (vector 1 (vector 19 e-10 e-11))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 13 ))) ((4) (vector 1 (vector 14 ))) ((5) (vector 1 (vector 15 ))) (else (let ((e-9 (vector-ref e-8 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-158))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-158))) (case (vector-ref act-28 0) ((0) (let ((e-11 (vector-ref act-28 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (vector 18 e-11))))))))))))))))))))))))))))) ((10) (vector 1 (vector 20 (vector 1 "Type") '()))) ((9) (vector 1 (vector 20 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-158))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-0))))) e-6 clam-158))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-158)))))))))))))))))))))))))) +(define CompilerC-45CompileExpr-natHack (lambda () (cons (vector 1 (vector 0 (CoreC-45NameC-45Namespace-typesNS) (vector 1 "natToInteger")) (+ 1 0) (lambda (_-2922) (lambda (_-2924) (lambda (vars-2926) (lambda (lamc-0) (let ((e-2 (car lamc-0))) (let ((e-3 (cdr lamc-0))) e-2))))))) (cons (vector 1 (vector 0 (CoreC-45NameC-45Namespace-typesNS) (vector 1 "integerToNat")) (+ 1 0) (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (let ((e-2 (car eta-3))) (let ((e-3 (cdr eta-3))) (vector 4 eta-0 (vector 1 eta-1 (vector 0 (CoreC-45NameC-45Namespace-typesNS) (vector 1 "prim__integerToNat"))) (cons e-2 '()))))))))) (cons (vector 1 (vector 0 (CoreC-45NameC-45Namespace-typesNS) (vector 1 "plus")) (+ 1 (+ 1 0)) (lambda (u--fc) (lambda (u--fcC-39) (lambda (vars-2903) (lambda (lamc-0) (let ((e-2 (car lamc-0))) (let ((e-3 (cdr lamc-0))) (let ((e-6 (car e-3))) (let ((e-7 (cdr e-3))) (vector 4 u--fc (vector 1 u--fcC-39 (vector 1 "prim__add_Integer")) (cons e-2 (cons e-6 '())))))))))))) (cons (vector 1 (vector 0 (CoreC-45NameC-45Namespace-typesNS) (vector 1 "mult")) (+ 1 (+ 1 0)) (lambda (u--fc) (lambda (u--fcC-39) (lambda (vars-2891) (lambda (lamc-0) (let ((e-2 (car lamc-0))) (let ((e-3 (cdr lamc-0))) (let ((e-6 (car e-3))) (let ((e-7 (cdr e-3))) (vector 4 u--fc (vector 1 u--fcC-39 (vector 1 "prim__mul_Integer")) (cons e-2 (cons e-6 '())))))))))))) (cons (vector 1 (vector 0 (CoreC-45NameC-45Namespace-typesNS) (vector 1 "minus")) (+ 1 (+ 1 0)) (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (CompilerC-45CompileExpr-magic__natMinus eta-0 eta-1 eta-3)))))) '()))))))) +(define CompilerC-45CompileExpr-natBranch (lambda (arg-1 arg-2 arg-3) (let ((e-1 (vector-ref arg-3 0))) (CompilerC-45CompileExpr-isNatCon arg-1 arg-2 e-1)))) +(define CompilerC-45CompileExpr-mkSub (lambda (arg-0 arg-1 arg-2) (if (null? arg-2) (cons arg-1 (vector 0 )) (if (null? arg-1) (cons '() (vector 0 )) (let ((e-2 (car arg-1))) (let ((e-3 (cdr arg-1))) (let ((sc2 (CompilerC-45CompileExpr-mkSub (+ 1 arg-0) e-3 arg-2))) (let ((e-5 (car sc2))) (let ((e-4 (cdr sc2))) (let ((sc3 (PreludeC-45Types-elem (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45Types-u--C-61C-61_Eq_Nat arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45Types-u--C-47C-61_Eq_Nat arg-4 arg-5)))) arg-0 arg-2))) (cond ((equal? sc3 1) (cons e-5 (vector 1 e-4))) (else (cons (cons e-2 e-5) (vector 2 e-4)))))))))))))) +(define CompilerC-45CompileExpr-mkForgetDef (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact arg-1 (let ((e-0 (vector-ref e-5 0))) e-0)) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (if (null? e-6) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 (PreludeC-45TypesC-45String-C-43C-43 "Trying to compile unknown name " (CoreC-45Name-u--show_Show_Name arg-1))) ext-0) (let ((e-1 (unbox e-6))) (let ((e-18 (vector-ref e-1 18))) (if (null? e-18) (vector 1 0) (let ((e-24 (unbox e-18))) (let ((u--ncdef (CoreC-45CompileExpr-forgetDef e-24))) (CoreC-45Context-setNamedCompiled arg-0 arg-1 u--ncdef ext-0))))))))))))))))) +(define CompilerC-45CompileExpr-mkDropSubst (lambda (arg-0 arg-1 arg-2 arg-3) (if (null? arg-3) (cons '() (vector 0 )) (let ((e-2 (car arg-3))) (let ((e-3 (cdr arg-3))) (let ((sc1 (CompilerC-45CompileExpr-mkDropSubst (PreludeC-45Types-u--C-43_Num_Nat (+ 1 0) arg-0) arg-1 arg-2 e-3))) (let ((e-5 (car sc1))) (let ((e-4 (cdr sc1))) (let ((sc2 (PreludeC-45Types-elem (cons (lambda (arg-4) (lambda (arg-5) (PreludeC-45Types-u--C-61C-61_Eq_Nat arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45Types-u--C-47C-61_Eq_Nat arg-4 arg-5)))) arg-0 arg-1))) (cond ((equal? sc2 1) (cons e-5 (vector 1 e-4))) (else (cons (cons e-2 e-5) (vector 2 e-4))))))))))))) +(define CompilerC-45CompileExpr-mkArgList (lambda (arg-0 arg-1) (cond ((equal? arg-1 0) (cons '() '()))(else (let ((e-0 (- arg-1 1))) (let ((sc0 (CompilerC-45CompileExpr-mkArgList (bs+ arg-0 1 63) e-0))) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (cons (cons (vector 2 "arg" arg-0) e-2) (cons (vector 2 "arg" arg-0) e-3)))))))))) +(define CompilerC-45CompileExpr-magic__natUnsuc (lambda (arg-0 arg-1 arg-3) (let ((e-2 (car arg-3))) (let ((e-3 (cdr arg-3))) (vector 4 arg-0 (vector 1 arg-1 (vector 1 "prim__sub_Integer")) (cons e-2 (cons (vector 12 arg-0 (vector 5 1)) '()))))))) +(define CompilerC-45CompileExpr-magic__natMinus (lambda (arg-0 arg-1 arg-3) (let ((e-2 (car arg-3))) (let ((e-3 (cdr arg-3))) (let ((e-6 (car e-3))) (let ((e-7 (cdr e-3))) (vector 4 arg-0 (vector 1 arg-1 (vector 0 (CoreC-45NameC-45Namespace-typesNS) (vector 1 "prim__integerToNat"))) (cons (vector 4 arg-0 (vector 1 arg-1 (vector 1 "prim__sub_Integer")) (cons e-2 (cons e-6 '()))) '())))))))) +(define CompilerC-45CompileExpr-magic (lambda (arg-1 arg-2) (case (vector-ref arg-2 0) ((2) (let ((e-1 (vector-ref arg-2 1))) (let ((e-2 (vector-ref arg-2 2))) (let ((e-3 (vector-ref arg-2 3))) (vector 2 e-1 e-2 (CompilerC-45CompileExpr-magic arg-1 e-3))))))(else (CompilerC-45CompileExpr-n--7535-2673-u--go arg-2 arg-1 arg-1 arg-2))))) +(define CompilerC-45CompileExpr-isNatCon (lambda (arg-0 arg-1 arg-2) (let ((sc0 (DataC-45Maybe-isJust (LibrariesC-45DataC-45NameMap-lookup arg-2 arg-0)))) (cond ((equal? sc0 1) 1) (else (DataC-45Maybe-isJust (LibrariesC-45DataC-45NameMap-lookup arg-2 arg-1))))))) +(define CompilerC-45CompileExpr-getZBranch (lambda (arg-1 arg-2) (if (null? arg-2) '() (let ((e-2 (car arg-2))) (let ((e-3 (cdr arg-2))) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40MaybeC-32C-36aC-41 (CompilerC-45CompileExpr-tryZBranch arg-1 e-2) (CompilerC-45CompileExpr-getZBranch arg-1 e-3))))))) +(define CompilerC-45CompileExpr-getSBranch (lambda (arg-1 arg-2 arg-3) (if (null? arg-3) '() (let ((e-2 (car arg-3))) (let ((e-3 (cdr arg-3))) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40MaybeC-32C-36aC-41 (CompilerC-45CompileExpr-trySBranch arg-1 arg-2 e-2) (CompilerC-45CompileExpr-getSBranch arg-1 arg-2 e-3))))))) +(define CompilerC-45CompileExpr-getPArgs (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 ((CoreC-45Normalise-evalClosure arg-0 '() arg-1 arg-2) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (case (vector-ref e-5 0) ((2) (let ((e-1 (vector-ref e-5 1))) (let ((e-2 (vector-ref e-5 2))) (let ((e-3 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-6 (vector-ref e-5 5))) (let ((_-0 (vector 2 e-1 e-2 e-3 e-4 e-6))) (CompilerC-45CompileExpr-case--caseC-32blockC-32inC-32getPArgs-5407 arg-2 arg-1 arg-0 e-2 e-3 e-4 e-6 e-1 _-0 (DataC-45List-reverse (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-6)) ext-0))))))))(else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc e-5) "Badly formed struct type") ext-0))))))))) +(define CompilerC-45CompileExpr-getNewType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (if (null? arg-5) (lambda (eta-0) (vector 1 '())) (let ((e-2 (car arg-5))) (let ((e-3 (cdr arg-5))) (case (vector-ref e-2 0) ((3) (lambda (eta-0) (vector 1 '()))) ((0) (let ((e-7 (vector-ref e-2 1))) (let ((e-8 (vector-ref e-2 2))) (let ((e-9 (vector-ref e-2 3))) (let ((e-10 (vector-ref e-2 4))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-lookupDefExact e-7 (let ((e-0 (vector-ref e-5 0))) e-0) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref act-25 1))) (if (null? e-6) (vector 1 '()) (let ((e-1 (unbox e-6))) (case (vector-ref e-1 0) ((5) (let ((e-4 (vector-ref e-1 3))) (if (null? e-4) (vector 1 '()) (let ((e-13 (unbox e-4))) (if (null? e-13) (vector 1 '()) (let ((e-14 (cdr e-13))) (let ((u--env (CompilerC-45CompileExpr-n--9115-4578-u--mkSubst e-9 arg-0 e-10 e-8 e-7 e-3 arg-4 arg-3 arg-2 arg-1 0 arg-3 e-14 e-9))) (let ((act-26 ((CompilerC-45CompileExpr-toCExpTree (PreludeC-45TypesC-45List-C-43C-43 e-9 arg-0) arg-1 arg-4 e-10) eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-16 (vector-ref act-26 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref act-26 1))) (vector 1 (box (CoreC-45CompileExpr-substs e-9 arg-0 u--env e-16))))))))))))))(else (vector 1 '())))))))))))))))))))(else (CompilerC-45CompileExpr-getNewType arg-0 arg-1 arg-2 arg-3 arg-4 e-3)))))))) +(define CompilerC-45CompileExpr-getNArgs (lambda (arg-0 arg-1 arg-2 arg-3) (case (vector-ref arg-2 0) ((0) (let ((e-1 (vector-ref arg-2 2))) (case (vector-ref e-1 0) ((1) (let ((e-2 (vector-ref e-1 1))) (cond ((equal? e-2 "IORes") (lambda (clam-0) (if (null? arg-3) (vector 1 (vector 0 arg-2 arg-3)) (let ((e-4 (car arg-3))) (let ((e-5 (cdr arg-3))) (if (null? e-5) (vector 1 (vector 6 e-4)) (vector 1 (vector 0 arg-2 arg-3)))))))) ((equal? e-2 "Ptr") (lambda (clam-1) (if (null? arg-3) (vector 1 (vector 0 arg-2 arg-3)) (let ((e-9 (cdr arg-3))) (if (null? e-9) (vector 1 (vector 3 )) (vector 1 (vector 0 arg-2 arg-3))))))) ((equal? e-2 "AnyPtr") (lambda (clam-2) (if (null? arg-3) (vector 1 (vector 3 )) (vector 1 (vector 0 arg-2 arg-3))))) ((equal? e-2 "GCPtr") (lambda (clam-2) (if (null? arg-3) (vector 1 (vector 0 arg-2 arg-3)) (let ((e-14 (cdr arg-3))) (if (null? e-14) (vector 1 (vector 4 )) (vector 1 (vector 0 arg-2 arg-3))))))) ((equal? e-2 "GCAnyPtr") (lambda (clam-4) (if (null? arg-3) (vector 1 (vector 4 )) (vector 1 (vector 0 arg-2 arg-3))))) ((equal? e-2 "Buffer") (lambda (clam-5) (if (null? arg-3) (vector 1 (vector 5 )) (vector 1 (vector 0 arg-2 arg-3))))) ((equal? e-2 "Unit") (lambda (clam-6) (if (null? arg-3) (vector 1 (vector 2 )) (vector 1 (vector 0 arg-2 arg-3))))) ((equal? e-2 "Struct") (if (null? arg-3) (lambda (eta-0) (vector 1 (vector 0 arg-2 arg-3))) (let ((e-20 (car arg-3))) (let ((e-21 (cdr arg-3))) (lambda (clam-3) (if (null? e-21) (vector 1 (vector 0 arg-2 arg-3)) (let ((e-23 (car e-21))) (let ((e-24 (cdr e-21))) (if (null? e-24) (let ((act-24 ((CoreC-45Normalise-evalClosure arg-0 '() arg-1 e-20) clam-3))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref act-24 1))) (case (vector-ref e-5 0) ((8) (let ((e-3 (vector-ref e-5 2))) (case (vector-ref e-3 0) ((10) (let ((e-6 (vector-ref e-3 1))) (let ((act-25 (CompilerC-45CompileExpr-getFieldArgs arg-0 arg-1 e-23 clam-3))) (case (vector-ref act-25 0) ((0) (let ((e-7 (vector-ref act-25 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-25 1))) (vector 1 (vector 1 e-6 e-7))))))))(else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc e-5) "Unknown name for struct") clam-3)))))(else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc e-5) "Unknown name for struct") clam-3))))))) (vector 1 (vector 0 arg-2 arg-3)))))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-2 arg-3)))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-2 arg-3)))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-2 arg-3))))))) +(define CompilerC-45CompileExpr-getFieldArgs (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 ((CoreC-45Normalise-evalClosure arg-0 '() arg-1 arg-2) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (case (vector-ref e-5 0) ((2) (let ((e-1 (vector-ref e-5 1))) (let ((e-2 (vector-ref e-5 2))) (let ((e-3 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-6 (vector-ref e-5 5))) (let ((_-0 (vector 2 e-1 e-2 e-3 e-4 e-6))) ((CompilerC-45CompileExpr-case--caseC-32blockC-32inC-32getFieldArgs-5596 arg-2 arg-1 arg-0 e-2 e-3 e-4 e-6 e-1 _-0 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-6)) ext-0))))))))(else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc e-5) "Badly formed struct type") ext-0))))))))) +(define CompilerC-45CompileExpr-getDef (lambda (arg-0 arg-1 arg-2 arg-3) (if (null? arg-3) (lambda (eta-0) (vector 1 '())) (let ((e-2 (car arg-3))) (let ((e-3 (cdr arg-3))) (case (vector-ref e-2 0) ((3) (let ((e-5 (vector-ref e-2 1))) (lambda (eta-0) (let ((act-24 ((CompilerC-45CompileExpr-toCExpTree arg-0 arg-1 arg-2 e-5) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref act-24 1))) (vector 1 (box e-6))))))))) ((2) (let ((e-7 (vector-ref e-2 1))) (let ((e-8 (vector-ref e-2 2))) (case (vector-ref e-7 0) ((13) (lambda (eta-0) (let ((act-24 ((CompilerC-45CompileExpr-toCExpTree arg-0 arg-1 arg-2 e-8) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (box e-5))))))))(else (CompilerC-45CompileExpr-getDef arg-0 arg-1 arg-2 e-3))))))(else (CompilerC-45CompileExpr-getDef arg-0 arg-1 arg-2 e-3)))))))) +(define CompilerC-45CompileExpr-getCFTypes (lambda (arg-0 arg-1 arg-2 ext-0) (case (vector-ref arg-2 0) ((0) (let ((e-1 (vector-ref arg-2 1))) (let ((e-3 (vector-ref arg-2 3))) (let ((e-4 (vector-ref arg-2 4))) (case (vector-ref e-3 0) ((2) (let ((e-9 (vector-ref e-3 4))) (let ((act-24 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 0 e-9) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (let ((act-25 (unbox arg-0))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (let ((act-26 (((e-4 e-10) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 e-1 0))) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-11 (vector-ref act-26 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-26 1))) (CompilerC-45CompileExpr-getCFTypes arg-0 (cons e-5 arg-1) e-11 ext-0)))))))))))))))(else (let ((act-24 ((CompilerC-45CompileExpr-nfToCFType arg-0 (CoreC-45Value-getLoc arg-2) 0 arg-2) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (cons (DataC-45List-reverse arg-1) e-5))))))))))))(else (let ((act-24 ((CompilerC-45CompileExpr-nfToCFType arg-0 (CoreC-45Value-getLoc arg-2) 0 arg-2) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (cons (DataC-45List-reverse arg-1) e-5)))))))))) +(define CompilerC-45CompileExpr-expandToArity (lambda (arg-0 arg-1 arg-2 arg-3) (case (vector-ref arg-2 0) ((13) (let ((e-6 (vector-ref arg-2 1))) (vector 13 e-6)))(else (cond ((equal? arg-1 0) (CompilerC-45CompileExpr-n--7024-2233-u--applyAll arg-0 arg-3 arg-2 arg-2 arg-3))(else (let ((e-1 (- arg-1 1))) (if (null? arg-3) (CompilerC-45CompileExpr-etaExpand arg-0 0 arg-1 arg-2 '()) (let ((e-3 (car arg-3))) (let ((e-4 (cdr arg-3))) (CompilerC-45CompileExpr-expandToArity arg-0 e-1 (CompilerC-45CompileExpr-n--7024-2255-u--addArg arg-0 e-1 e-3 e-4 arg-2 arg-2 e-3) e-4))))))))))) +(define CompilerC-45CompileExpr-etaExpand (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (cond ((equal? arg-2 0) (CompilerC-45CompileExpr-n--6924-2133-u--mkApp arg-0 arg-4 arg-3 arg-1 arg-3 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CompilerC-45CompileExpr-n--6924-2132-u--mkLocal arg-0 arg-4 arg-3 arg-1 (CoreC-45CompileExpr-getFC arg-3) eta-0)) (DataC-45List-reverse arg-4))))(else (let ((e-0 (- arg-2 1))) (vector 2 (CoreC-45CompileExpr-getFC arg-3) (vector 2 "eta" arg-1) (CompilerC-45CompileExpr-etaExpand (cons (vector 2 "eta" arg-1) arg-0) (bs+ arg-1 1 63) e-0 (CoreC-45CompileExpr-u--weaken_Weaken_CExp arg-3) (cons 0 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CompilerC-45CompileExpr-weakenVar eta-0)) arg-4))))))))) +(define CompilerC-45CompileExpr-eraseConArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((u--fnC-39 (CompilerC-45CompileExpr-expandToArity arg-0 arg-1 arg-3 arg-4))) (let ((sc0 (DataC-45List-isNil arg-2))) (cond ((equal? sc0 1) u--fnC-39) (else (CompilerC-45CompileExpr-dropPos arg-2 u--fnC-39))))))) +(define CompilerC-45CompileExpr-enumTree (lambda (arg-1) (case (vector-ref arg-1 0) ((10) (let ((e-1 (vector-ref arg-1 1))) (let ((e-2 (vector-ref arg-1 2))) (let ((e-3 (vector-ref arg-1 3))) (let ((e-4 (vector-ref arg-1 4))) (let ((u--x (PreludeC-45Types-u--traverse_Traversable_List (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (PreludeC-45Types-u--map_Functor_Maybe u--func arg-133))))) (lambda (u--a) (lambda (arg-527) (PreludeC-45Types-u--pure_Applicative_Maybe arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (PreludeC-45Types-u--C-60C-42C-62_Applicative_Maybe arg-528 arg-530)))))) (lambda (eta-0) (CompilerC-45CompileExpr-n--8340-3416-u--toEnum e-4 e-3 e-2 e-1 eta-0)) e-3))) (if (null? u--x) (vector 10 e-1 e-2 e-3 e-4) (let ((e-5 (unbox u--x))) (vector 11 e-1 e-2 e-5 e-4)))))))))(else arg-1)))) +(define CompilerC-45CompileExpr-dropPos (lambda (arg-1 arg-2) (case (vector-ref arg-2 0) ((2) (let ((e-1 (vector-ref arg-2 1))) (let ((e-2 (vector-ref arg-2 2))) (let ((e-3 (vector-ref arg-2 3))) (vector 2 e-1 e-2 (CompilerC-45CompileExpr-dropPos arg-1 e-3)))))) ((4) (let ((e-5 (vector-ref arg-2 1))) (let ((e-6 (vector-ref arg-2 2))) (let ((e-7 (vector-ref arg-2 3))) (case (vector-ref e-6 0) ((4) (vector 4 e-5 (CompilerC-45CompileExpr-dropPos arg-1 e-6) e-7))(else (vector 4 e-5 e-6 (CompilerC-45CompileExpr-dropFrom arg-1 0 e-7)))))))) ((5) (let ((e-9 (vector-ref arg-2 1))) (let ((e-10 (vector-ref arg-2 2))) (let ((e-11 (vector-ref arg-2 3))) (let ((e-12 (vector-ref arg-2 4))) (let ((e-13 (vector-ref arg-2 5))) (vector 5 e-9 e-10 e-11 e-12 (CompilerC-45CompileExpr-dropFrom arg-1 0 e-13))))))))(else arg-2)))) +(define CompilerC-45CompileExpr-dropFrom (lambda (arg-1 arg-2 arg-3) (if (null? arg-3) '() (let ((e-2 (car arg-3))) (let ((e-3 (cdr arg-3))) (let ((sc1 (PreludeC-45Types-elem (cons (lambda (arg-4) (lambda (arg-5) (PreludeC-45Types-u--C-61C-61_Eq_Nat arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45Types-u--C-47C-61_Eq_Nat arg-4 arg-5)))) arg-2 arg-1))) (cond ((equal? sc1 1) (CompilerC-45CompileExpr-dropFrom arg-1 (PreludeC-45Types-u--C-43_Num_Nat (+ 1 0) arg-2) e-3)) (else (cons e-2 (CompilerC-45CompileExpr-dropFrom arg-1 (PreludeC-45Types-u--C-43_Num_Nat (+ 1 0) arg-2) e-3)))))))))) +(define CompilerC-45CompileExpr-dconFlag (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact arg-1 (let ((e-0 (vector-ref e-5 0))) e-0)) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (if (null? e-6) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 (PreludeC-45TypesC-45String-C-43C-43 "Can't find " (CoreC-45Name-u--show_Show_Name arg-1))) ext-0) (let ((e-1 (unbox e-6))) (vector 1 (CompilerC-45CompileExpr-n--8418-3479-u--ciFlags arg-1 arg-0 (let ((e-11 (vector-ref e-1 11))) e-11))))))))))))))) +(define CompilerC-45CompileExpr-constCases (lambda (arg-0 arg-1 arg-2 arg-3) (if (null? arg-3) (lambda (eta-0) (vector 1 '())) (let ((e-2 (car arg-3))) (let ((e-3 (cdr arg-3))) (case (vector-ref e-2 0) ((2) (let ((e-5 (vector-ref e-2 1))) (let ((e-6 (vector-ref e-2 2))) (case (vector-ref e-5 0) ((13) (CompilerC-45CompileExpr-constCases arg-0 arg-1 arg-2 e-3))(else (lambda (eta-0) (let ((act-24 ((CompilerC-45CompileExpr-toCExpTree arg-0 arg-1 arg-2 e-6) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref act-24 1))) (let ((act-25 ((CompilerC-45CompileExpr-constCases arg-0 arg-1 arg-2 e-3) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref act-25 1))) (vector 1 (cons (cons e-5 e-7) e-8))))))))))))))))(else (CompilerC-45CompileExpr-constCases arg-0 arg-1 arg-2 e-3)))))))) +(define CompilerC-45CompileExpr-conCases (lambda (arg-0 arg-1 arg-2 arg-3) (if (null? arg-3) (lambda (eta-0) (vector 1 '())) (let ((e-2 (car arg-3))) (let ((e-3 (cdr arg-3))) (case (vector-ref e-2 0) ((0) (let ((e-5 (vector-ref e-2 1))) (let ((e-6 (vector-ref e-2 2))) (let ((e-7 (vector-ref e-2 3))) (let ((e-8 (vector-ref e-2 4))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact e-5 (let ((e-0 (vector-ref e-9 0))) e-0)) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref act-25 1))) (if (null? e-10) (let ((act-26 (CoreC-45Context-getFullName arg-1 e-5 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-4 (vector-ref act-26 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref act-26 1))) (let ((act-27 ((CompilerC-45CompileExpr-toCExpTree (PreludeC-45TypesC-45List-C-43C-43 e-7 arg-0) arg-1 arg-2 e-8) eta-0))) (case (vector-ref act-27 0) ((0) (let ((e-4 (vector-ref act-27 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref act-27 1))) (let ((act-28 ((CompilerC-45CompileExpr-conCases arg-0 arg-1 arg-2 e-3) eta-0))) (case (vector-ref act-28 0) ((0) (let ((e-4 (vector-ref act-28 1))) (vector 0 e-4))) (else (let ((e-13 (vector-ref act-28 1))) (vector 1 (cons (vector e-11 1 '() e-7 e-12) e-13)))))))))))))) (let ((e-1 (unbox e-10))) (let ((_-0 (box e-1))) ((CompilerC-45CompileExpr-case--caseC-32blockC-32inC-32conCases-4245 e-7 arg-0 e-8 e-6 e-5 e-3 arg-2 arg-1 e-9 e-1 _-0 (let ((e-17 (vector-ref e-1 17))) e-17)) eta-0))))))))))))))))))(else (CompilerC-45CompileExpr-conCases arg-0 arg-1 arg-2 e-3)))))))) +(define CompilerC-45CompileExpr-compileExp (lambda (arg-0 arg-1 ext-0) (let ((act-24 (CompilerC-45CompileExpr-builtinMagic arg-0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CompilerC-45CompileExpr-toCExp '() arg-0 (lambda (vars-7107) (e-5 'erased)) (vector 1 "main") arg-1 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 e-6))))))))))) +(define CompilerC-45CompileExpr-compileDef (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact arg-1 (let ((e-0 (vector-ref e-5 0))) e-0)) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (if (null? e-6) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 (PreludeC-45TypesC-45String-C-43C-43 "Trying to compile unknown name " (CoreC-45Name-u--show_Show_Name arg-1))) ext-0) (let ((e-1 (unbox e-6))) (let ((act-26 (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Def arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Def arg-3843 arg-3844 eta-0))))) (let ((e-17 (vector-ref e-1 17))) e-17) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) ((CompilerC-45CompileExpr-toCDef arg-0 arg-1 (let ((e-2 (vector-ref e-1 2))) e-2) (let ((e-3 (vector-ref e-1 3))) e-3) e-7) ext-0))))))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (CoreC-45Context-setCompiled arg-0 arg-1 e-7 ext-0))))))))))))))))) +(define CompilerC-45CompileExpr-builtinNatTreeC-39 (lambda (arg-1 arg-2 arg-3) (case (vector-ref arg-3 0) ((10) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-3 (vector-ref arg-3 3))) (let ((e-4 (vector-ref arg-3 4))) (let ((sc1 (PreludeC-45Interfaces-any (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (lambda (eta-0) (CompilerC-45CompileExpr-natBranch arg-1 arg-2 eta-0)) e-3))) (cond ((equal? sc1 1) (let ((u--defb (PreludeC-45Types-maybe (lambda () (vector 14 e-1 "Nat case not covered")) (lambda () (lambda (eta-0) eta-0)) e-4))) (let ((u--scase (PreludeC-45Types-maybe (lambda () u--defb) (lambda () (lambda (eta-0) eta-0)) (CompilerC-45CompileExpr-getSBranch arg-2 e-2 e-3)))) (let ((u--zcase (PreludeC-45Types-maybe (lambda () u--defb) (lambda () (lambda (eta-0) eta-0)) (CompilerC-45CompileExpr-getZBranch arg-1 e-3)))) (vector 11 e-1 e-2 (cons (cons (vector 5 0) u--zcase) '()) (box u--scase)))))) (else (vector 10 e-1 e-2 e-3 e-4)))))))))(else arg-3)))) +(define CompilerC-45CompileExpr-builtinNatTree (lambda (arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((u--b (let ((e-15 (vector-ref e-5 15))) e-15))) (vector 1 (lambda (eta-0) (CompilerC-45CompileExpr-builtinNatTreeC-39 (let ((e-1 (vector-ref u--b 1))) e-1) (let ((e-2 (vector-ref u--b 2))) e-2) eta-0)))))))))) +(define CompilerC-45CompileExpr-builtinMagic (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((u--b (let ((e-15 (vector-ref e-5 15))) e-15))) (let ((u--nats (PreludeC-45Types-u--foldMap_Foldable_List (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-2 arg-3))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41)) (lambda (eta-0) (CompilerC-45CompileExpr-n--7904-3016-u--builtinMagicNat arg-0 eta-0)) (LibrariesC-45DataC-45NameMap-values (let ((e-0 (vector-ref u--b 0))) e-0))))) (let ((u--natToInts (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CompilerC-45CompileExpr-n--7904-3017-u--natToIntMagic arg-0 eta-0)) (LibrariesC-45DataC-45NameMap-toList (let ((e-3 (vector-ref u--b 3))) e-3))))) (let ((u--intToNats (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CompilerC-45CompileExpr-n--7904-3018-u--intToNatMagic arg-0 eta-0)) (LibrariesC-45DataC-45NameMap-toList (let ((e-4 (vector-ref u--b 4))) e-4))))) (vector 1 (lambda (vars-3169) (lambda (eta-0) (CompilerC-45CompileExpr-magic (PreludeC-45TypesC-45List-C-43C-43 (CompilerC-45CompileExpr-natHack) (PreludeC-45TypesC-45List-C-43C-43 u--nats (PreludeC-45TypesC-45List-C-43C-43 u--natToInts u--intToNats))) eta-0)))))))))))))) +(define CompilerC-45CompileExpr-applyNewType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((u--fnC-39 (CompilerC-45CompileExpr-expandToArity arg-0 arg-1 arg-3 arg-4))) (CompilerC-45CompileExpr-n--7128-2315-u--keepArg arg-0 arg-4 arg-3 arg-2 arg-1 u--fnC-39)))) +(define CoreC-45Value-u--show_Show_C-40NHeadC-32C-36freeC-41 (lambda (arg-0 arg-1) (case (vector-ref arg-1 0) ((0) (let ((e-3 (vector-ref arg-1 2))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name (CoreC-45TT-nameAt arg-0 e-3)) (PreludeC-45TypesC-45String-C-43C-43 "[" (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Nat e-3) "]"))))) ((1) (let ((e-7 (vector-ref arg-1 2))) (CoreC-45Name-u--show_Show_Name e-7))) (else (let ((e-9 (vector-ref arg-1 1))) (let ((e-11 (vector-ref arg-1 3))) (PreludeC-45TypesC-45String-C-43C-43 "?" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-9) (PreludeC-45TypesC-45String-C-43C-43 "_[" (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Nat (PreludeC-45TypesC-45List-length e-11)) " closures]")))))))))) +(define CoreC-45Value-u--show_Show_C-40NFC-32C-36freeC-41 (lambda (arg-0 arg-1) (case (vector-ref arg-1 0) ((0) (let ((e-2 (vector-ref arg-1 2))) (let ((e-3 (vector-ref arg-1 3))) (case (vector-ref e-3 0) ((0) (let ((e-50 (vector-ref e-3 2))) (let ((e-51 (vector-ref e-3 3))) (let ((e-52 (vector-ref e-3 4))) (PreludeC-45TypesC-45String-C-43C-43 "\\" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-withPiInfo (cons (lambda (u--x) (CoreC-45Value-u--show_Show_C-40NFC-32C-36freeC-41 arg-0 u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Value-u--showPrec_Show_C-40NFC-32C-36freeC-41 arg-0 u--d u--x)))) e-51 (PreludeC-45TypesC-45String-C-43C-43 (Algebra-showCount e-50) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-2) (PreludeC-45TypesC-45String-C-43C-43 " : " (CoreC-45Value-u--show_Show_C-40NFC-32C-36freeC-41 arg-0 e-52))))) " => [closure]")))))) ((1) (let ((e-55 (vector-ref e-3 2))) (let ((e-56 (vector-ref e-3 3))) (let ((e-57 (vector-ref e-3 4))) (PreludeC-45TypesC-45String-C-43C-43 "let " (PreludeC-45TypesC-45String-C-43C-43 (Algebra-showCount e-55) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-2) (PreludeC-45TypesC-45String-C-43C-43 " : " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Value-u--show_Show_C-40NFC-32C-36freeC-41 arg-0 e-57) (PreludeC-45TypesC-45String-C-43C-43 " = " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Value-u--show_Show_C-40NFC-32C-36freeC-41 arg-0 e-56) " in [closure]"))))))))))) ((2) (let ((e-60 (vector-ref e-3 2))) (let ((e-61 (vector-ref e-3 3))) (let ((e-62 (vector-ref e-3 4))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-withPiInfo (cons (lambda (u--x) (CoreC-45Value-u--show_Show_C-40NFC-32C-36freeC-41 arg-0 u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Value-u--showPrec_Show_C-40NFC-32C-36freeC-41 arg-0 u--d u--x)))) e-61 (PreludeC-45TypesC-45String-C-43C-43 (Algebra-showCount e-60) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-2) (PreludeC-45TypesC-45String-C-43C-43 " : " (CoreC-45Value-u--show_Show_C-40NFC-32C-36freeC-41 arg-0 e-62))))) " -> [closure]"))))) ((3) (let ((e-65 (vector-ref e-3 2))) (let ((e-66 (vector-ref e-3 3))) (let ((e-67 (vector-ref e-3 4))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-withPiInfo (cons (lambda (u--x) (CoreC-45Value-u--show_Show_C-40NFC-32C-36freeC-41 arg-0 u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Value-u--showPrec_Show_C-40NFC-32C-36freeC-41 arg-0 u--d u--x)))) e-66 (PreludeC-45TypesC-45String-C-43C-43 "pat " (PreludeC-45TypesC-45String-C-43C-43 (Algebra-showCount e-65) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-2) (PreludeC-45TypesC-45String-C-43C-43 " : " (CoreC-45Value-u--show_Show_C-40NFC-32C-36freeC-41 arg-0 e-67)))))) " => [closure]"))))) ((4) (let ((e-70 (vector-ref e-3 2))) (let ((e-71 (vector-ref e-3 3))) (let ((e-72 (vector-ref e-3 4))) (PreludeC-45TypesC-45String-C-43C-43 "plet " (PreludeC-45TypesC-45String-C-43C-43 (Algebra-showCount e-70) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-2) (PreludeC-45TypesC-45String-C-43C-43 " : " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Value-u--show_Show_C-40NFC-32C-36freeC-41 arg-0 e-72) (PreludeC-45TypesC-45String-C-43C-43 " = " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Value-u--show_Show_C-40NFC-32C-36freeC-41 arg-0 e-71) " in [closure]"))))))))))) (else (let ((e-75 (vector-ref e-3 2))) (let ((e-76 (vector-ref e-3 3))) (PreludeC-45TypesC-45String-C-43C-43 "pty " (PreludeC-45TypesC-45String-C-43C-43 (Algebra-showCount e-75) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-2) (PreludeC-45TypesC-45String-C-43C-43 " : " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Value-u--show_Show_C-40NFC-32C-36freeC-41 arg-0 e-76) " => [closure]")))))))))))) ((1) (let ((e-7 (vector-ref arg-1 2))) (let ((e-8 (vector-ref arg-1 3))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Value-u--show_Show_C-40NHeadC-32C-36freeC-41 arg-0 e-7) (PreludeC-45TypesC-45String-C-43C-43 " [" (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Nat (PreludeC-45TypesC-45List-length e-8)) " closures]")))))) ((2) (let ((e-11 (vector-ref arg-1 2))) (let ((e-14 (vector-ref arg-1 5))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-11) (PreludeC-45TypesC-45String-C-43C-43 " [" (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Nat (PreludeC-45TypesC-45List-length e-14)) " closures]")))))) ((3) (let ((e-17 (vector-ref arg-1 2))) (let ((e-20 (vector-ref arg-1 5))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-17) (PreludeC-45TypesC-45String-C-43C-43 " [" (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Nat (PreludeC-45TypesC-45List-length e-20)) " closures]")))))) ((4) (let ((e-24 (vector-ref arg-1 3))) (let ((e-25 (vector-ref arg-1 4))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Value-u--show_Show_C-40NFC-32C-36freeC-41 arg-0 e-24) (PreludeC-45TypesC-45String-C-43C-43 "@" (CoreC-45Value-u--show_Show_C-40NFC-32C-36freeC-41 arg-0 e-25)))))) ((5) (let ((e-29 (vector-ref arg-1 3))) (PreludeC-45TypesC-45String-C-43C-43 "%Delayed " (CoreC-45Value-u--show_Show_C-40NFC-32C-36freeC-41 arg-0 e-29)))) ((6) "%Delay [closure]") ((7) (let ((e-38 (vector-ref arg-1 3))) (let ((e-39 (vector-ref arg-1 4))) (PreludeC-45TypesC-45String-C-43C-43 "%Force " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Value-u--show_Show_C-40NFC-32C-36freeC-41 arg-0 e-38) (PreludeC-45TypesC-45String-C-43C-43 " [" (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Nat (PreludeC-45TypesC-45List-length e-39)) " closures]"))))))) ((8) (let ((e-42 (vector-ref arg-1 2))) (CoreC-45TT-u--show_Show_Constant e-42))) ((9) "[__]") (else "Type")))) +(define CoreC-45Value-u--showPrec_Show_C-40NFC-32C-36freeC-41 (lambda (arg-0 arg-1 arg-2) (CoreC-45Value-u--show_Show_C-40NFC-32C-36freeC-41 arg-0 arg-2))) +(define CoreC-45Value-withHoles (lambda () (vector 1 1 0 0 0 '() '() 1))) +(define CoreC-45Value-withArgHoles (lambda () (vector 0 1 0 0 0 '() '() 1))) +(define CoreC-45Value-withAll (lambda () (vector 0 0 1 1 0 '() '() 1))) +(define CoreC-45Value-tcOnly (lambda () (let ((sc0 (CoreC-45Value-withArgHoles))) (let ((e-0 (vector-ref sc0 0))) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 5))) (let ((e-6 (vector-ref sc0 6))) (let ((e-7 (vector-ref sc0 7))) (vector e-0 e-1 e-2 e-3 1 e-5 e-6 e-7))))))))))) +(define CoreC-45Value-ntCon (lambda (arg-1 arg-2 arg-3 arg-4 arg-5) (case (vector-ref arg-2 0) ((1) (let ((e-1 (vector-ref arg-2 1))) (cond ((equal? e-1 "Type") (cond ((equal? arg-4 0) (if (null? arg-5) (vector 10 arg-1) (cond ((equal? arg-4 0) (if (null? arg-5) (let ((sc6 (CoreC-45TT-isConstantType arg-2))) (if (null? sc6) (vector 3 arg-1 arg-2 arg-3 0 '()) (let ((e-2 (unbox sc6))) (vector 8 arg-1 e-2)))) (vector 3 arg-1 arg-2 arg-3 arg-4 arg-5)))(else (vector 3 arg-1 arg-2 arg-3 arg-4 arg-5)))))(else (cond ((equal? arg-4 0) (if (null? arg-5) (let ((sc4 (CoreC-45TT-isConstantType arg-2))) (if (null? sc4) (vector 3 arg-1 arg-2 arg-3 0 '()) (let ((e-2 (unbox sc4))) (vector 8 arg-1 e-2)))) (vector 3 arg-1 arg-2 arg-3 arg-4 arg-5)))(else (vector 3 arg-1 arg-2 arg-3 arg-4 arg-5))))))(else (cond ((equal? arg-4 0) (if (null? arg-5) (let ((sc3 (CoreC-45TT-isConstantType arg-2))) (if (null? sc3) (vector 3 arg-1 arg-2 arg-3 0 '()) (let ((e-2 (unbox sc3))) (vector 8 arg-1 e-2)))) (vector 3 arg-1 arg-2 arg-3 arg-4 arg-5)))(else (vector 3 arg-1 arg-2 arg-3 arg-4 arg-5)))))))(else (cond ((equal? arg-4 0) (if (null? arg-5) (let ((sc2 (CoreC-45TT-isConstantType arg-2))) (if (null? sc2) (vector 3 arg-1 arg-2 arg-3 0 '()) (let ((e-1 (unbox sc2))) (vector 8 arg-1 e-1)))) (vector 3 arg-1 arg-2 arg-3 arg-4 arg-5)))(else (vector 3 arg-1 arg-2 arg-3 arg-4 arg-5))))))) +(define CoreC-45Value-getLoc (lambda (arg-1) (case (vector-ref arg-1 0) ((0) (let ((e-1 (vector-ref arg-1 1))) e-1)) ((1) (let ((e-6 (vector-ref arg-1 1))) e-6)) ((2) (let ((e-10 (vector-ref arg-1 1))) e-10)) ((3) (let ((e-16 (vector-ref arg-1 1))) e-16)) ((4) (let ((e-22 (vector-ref arg-1 1))) e-22)) ((5) (let ((e-27 (vector-ref arg-1 1))) e-27)) ((6) (let ((e-31 (vector-ref arg-1 1))) e-31)) ((7) (let ((e-36 (vector-ref arg-1 1))) e-36)) ((8) (let ((e-41 (vector-ref arg-1 1))) e-41)) ((9) (let ((e-44 (vector-ref arg-1 1))) e-44)) (else (let ((e-47 (vector-ref arg-1 1))) e-47))))) +(define CoreC-45Value-defaultOpts (lambda () (vector 0 0 1 0 0 '() '() 1))) +(define CoreC-45Normalise-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32normalisePrims-14281 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 ext-0) (if (null? arg-14) (vector 1 '()) (let ((e-1 (unbox arg-14))) (let ((sc1 (arg-9 e-1))) (cond ((equal? sc1 1) (let ((act-24 (let ((act-24 (unbox arg-10))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (cond ((equal? arg-7 1) (CoreC-45Normalise-normaliseAll arg-10 arg-1 e-5 arg-2 arg-3 ext-0)) (else (CoreC-45Normalise-normalise arg-10 arg-1 e-5 arg-2 arg-3 ext-0))))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (box e-6)))))))))))(else (vector 1 '())))))))) +(define CoreC-45Normalise-case--caseC-32blockC-32inC-32normalisePrims-14246 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (if (null? arg-12) (lambda (eta-0) (vector 1 '())) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (lambda (eta-0) (CoreC-45Normalise-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32normalisePrims-14281 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-2 e-1 (arg-8 e-1) eta-0))))))) +(define CoreC-45Normalise-case--getMatchingVars-9564 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 ext-0) (if (null? arg-9) (vector 1 '()) (let ((e-1 (unbox arg-9))) (let ((act-24 (CoreC-45Normalise-u--convert_Convert_Term arg-8 arg-1 arg-7 (CoreC-45Env-mkEnv (CoreC-45TT-getLoc arg-2) arg-1) e-1 arg-4 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (cond ((equal? e-5 1) (vector 1 (box arg-6))) (else (vector 1 '()))))))))))) +(define CoreC-45Normalise-case--caseC-32blockC-32inC-32getMatchingVarAlt-9164 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 ext-0) (if (null? arg-13) (vector 1 '()) (let ((e-1 (unbox arg-13))) (let ((act-24 ((CoreC-45Normalise-getMatchingVars arg-12 (PreludeC-45TypesC-45List-C-43C-43 arg-2 arg-0) (PreludeC-45TypesC-45List-C-43C-43 arg-6 arg-1) arg-11 e-1 arg-3 arg-7) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (if (null? e-5) (vector 1 '()) (let ((e-2 (unbox e-5))) (vector 1 (box (DataC-45List-mapMaybe (lambda (eta-0) (CoreC-45Normalise-n--13639-8942-u--dropP arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-2 arg-6 eta-0)) e-2))))))))))))) +(define CoreC-45Normalise-case--caseC-32blockC-32inC-32evalDef-5422 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 ext-0) (if (null? arg-17) (vector 1 (arg-8)) (let ((e-2 (unbox arg-17))) (let ((e-5 (car e-2))) (let ((e-6 (cdr e-2))) (let ((act-24 ((CoreC-45Normalise-evalTree arg-0 arg-1 arg-16 arg-3 arg-2 arg-15 e-5 arg-14 arg-12 e-6 arg-6) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref act-24 1))) (case (vector-ref e-7 0) ((0) (let ((e-1 (vector-ref e-7 1))) (vector 1 e-1)))(else (vector 1 (arg-8)))))))))))))) +(define CoreC-45Normalise-case--evalOp-5256 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (if (null? arg-8) (lambda (eta-0) (vector 1 (arg-3))) (let ((e-1 (unbox arg-8))) (lambda (clam-0) (if (null? e-1) (vector 1 (arg-3)) (let ((e-4 (car e-1))) (let ((e-5 (cdr e-1))) (if (null? e-5) (let ((act-24 (CoreC-45Normalise-n--6440-5221-u--evalAll arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-4 clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-24 1))) (vector 1 (let ((sc4 (arg-6 e-6))) (if (null? sc4) (arg-3) (let ((e-2 (unbox sc4))) e-2)))))))) (vector 1 (arg-3))))))))))) +(define CoreC-45Normalise-n--13639-8939-u--weakenP (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((e-2 (car arg-17))) (let ((e-3 (cdr arg-17))) (cons (CoreC-45TT-u--weaken_Weaken_Var e-2) (CoreC-45TT-u--weaken_Weaken_Var e-3)))))) +(define CoreC-45Normalise-n--13086-8103-u--weakenP (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((e-2 (car arg-8))) (let ((e-3 (cdr arg-8))) (cons (CoreC-45TT-u--weaken_Weaken_Var e-2) (CoreC-45TT-u--weaken_Weaken_Var e-3)))))) +(define CoreC-45Normalise-n--13086-8101-u--tryUpdatePi (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (case (vector-ref arg-7 0) ((1) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 1 ))) ((0) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 0 ))) ((2) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 2 ))) (else (let ((e-4 (vector-ref arg-7 1))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Normalise-tryUpdate arg-0 arg-1 arg-6 e-4) (lambda (bind-0) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 3 bind-0))))))))) +(define CoreC-45Normalise-n--13086-8102-u--tryUpdateB (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (case (vector-ref arg-7 0) ((0) (let ((e-1 (vector-ref arg-7 1))) (let ((e-2 (vector-ref arg-7 2))) (let ((e-3 (vector-ref arg-7 3))) (let ((e-4 (vector-ref arg-7 4))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Normalise-n--13086-8101-u--tryUpdatePi arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3) (lambda (bind-0) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Normalise-tryUpdate arg-0 arg-1 arg-6 e-4) (lambda (bind-1) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 0 e-1 e-2 bind-0 bind-1))))))))))) ((1) (let ((e-6 (vector-ref arg-7 1))) (let ((e-7 (vector-ref arg-7 2))) (let ((e-8 (vector-ref arg-7 3))) (let ((e-9 (vector-ref arg-7 4))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Normalise-tryUpdate arg-0 arg-1 arg-6 e-8) (lambda (bind-0) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Normalise-tryUpdate arg-0 arg-1 arg-6 e-9) (lambda (bind-1) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 1 e-6 e-7 bind-0 bind-1))))))))))) ((2) (let ((e-11 (vector-ref arg-7 1))) (let ((e-12 (vector-ref arg-7 2))) (let ((e-13 (vector-ref arg-7 3))) (let ((e-14 (vector-ref arg-7 4))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Normalise-n--13086-8101-u--tryUpdatePi arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-13) (lambda (bind-0) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Normalise-tryUpdate arg-0 arg-1 arg-6 e-14) (lambda (bind-1) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 2 e-11 e-12 bind-0 bind-1)))))))))))(else '())))) +(define CoreC-45Normalise-n--10978-6884-u--toHolesOnly (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-12) (case (vector-ref arg-12 0) ((0) (let ((e-1 (vector-ref arg-12 1))) (let ((e-2 (vector-ref arg-12 2))) (let ((e-3 (vector-ref arg-12 3))) (let ((e-4 (vector-ref arg-12 4))) (let ((e-5 (vector-ref arg-12 5))) (vector 0 e-1 (let ((e-11 (vector-ref e-2 2))) (let ((e-10 (vector-ref e-2 3))) (let ((e-9 (vector-ref e-2 4))) (let ((e-8 (vector-ref e-2 5))) (let ((e-6 (vector-ref e-2 6))) (let ((e-7 (vector-ref e-2 7))) (vector 1 1 e-11 e-10 e-9 e-8 e-6 e-7))))))) e-3 e-4 e-5)))))))(else arg-12)))) +(define CoreC-45Normalise-n--6438-5091-u--takeStk (lambda (arg-0 arg-1 arg-3 arg-4 arg-6 arg-7 arg-8) (cond ((equal? arg-6 0) (box (cons (DataC-45Vect-reverse arg-8) arg-7)))(else (let ((e-0 (- arg-6 1))) (if (null? arg-7) '() (let ((e-3 (car arg-7))) (let ((e-4 (cdr arg-7))) (CoreC-45Normalise-n--6438-5091-u--takeStk arg-0 arg-1 arg-3 arg-4 e-0 e-4 (cons (Builtin-snd e-3) arg-8)))))))))) +(define CoreC-45Normalise-n--6266-1869-u--set (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (if (null? arg-4) '() (let ((e-2 (car arg-4))) (let ((e-3 (cdr arg-4))) (let ((e-6 (car e-2))) (let ((e-7 (cdr e-2))) (let ((sc2 (CoreC-45Name-u--C-61C-61_Eq_Name e-6 arg-2))) (cond ((equal? sc2 1) (cons (cons e-6 arg-3) e-3)) (else (cons (cons e-6 e-7) (CoreC-45Normalise-n--6266-1869-u--set arg-0 arg-1 arg-2 arg-3 e-3)))))))))))) +(define CoreC-45Normalise-n--19594-13645-u--repSub (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 ext-0) (case (vector-ref arg-8 0) ((0) (let ((e-1 (vector-ref arg-8 1))) (let ((e-2 (vector-ref arg-8 2))) (let ((e-3 (vector-ref arg-8 3))) (let ((e-4 (vector-ref arg-8 4))) (let ((act-24 (CoreC-45CoreC-45Binder-traverse (lambda (eta-0) (lambda (eta-1) (CoreC-45Normalise-n--19594-13645-u--repSub arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 eta-0 eta-1))) e-3 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((u--xC-39 (vector 2 "tmp" arg-6))) (let ((act-25 (let ((act-25 (((e-4 arg-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) arg-4 (vector 1 e-1 (vector 0 ) u--xC-39))) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-6 (vector-ref act-25 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-25 1))) (CoreC-45Normalise-replaceC-39 arg-7 arg-0 (bs+ arg-6 1 63) arg-5 arg-4 arg-3 arg-2 e-6 ext-0))))))) (case (vector-ref act-25 0) ((0) (let ((e-6 (vector-ref act-25 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (vector 3 e-1 e-2 e-5 (CoreC-45TT-refsToLocals (vector 1 e-2 u--xC-39 (vector 0 )) e-6))))))))))))))))) ((1) (let ((e-6 (vector-ref arg-8 1))) (let ((e-7 (vector-ref arg-8 2))) (let ((e-8 (vector-ref arg-8 3))) (if (null? e-8) (let ((act-24 (CoreC-45Context-clearDefs arg-5 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (CoreC-45Normalise-u--quote_Quote_NF arg-7 arg-0 e-5 arg-4 (vector 1 e-6 e-7 '()) ext-0))))) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (CoreC-45Core-traversePair (lambda (eta-2) (lambda (eta-3) (CoreC-45Normalise-n--19594-13644-u--repArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 eta-2 eta-3))) eta-0 eta-1))) e-8 '() ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-replaceC-39 arg-7 arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 (vector 1 e-6 e-7 '()) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-25 1))) (vector 1 (CoreC-45TT-applyWithFC e-9 e-5))))))))))))))) ((2) (let ((e-10 (vector-ref arg-8 1))) (let ((e-11 (vector-ref arg-8 2))) (let ((e-12 (vector-ref arg-8 3))) (let ((e-13 (vector-ref arg-8 4))) (let ((e-14 (vector-ref arg-8 5))) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (CoreC-45Core-traversePair (lambda (eta-2) (lambda (eta-3) (CoreC-45Normalise-n--19594-13644-u--repArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 eta-2 eta-3))) eta-0 eta-1))) e-14 '() ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-clearDefs arg-5 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Normalise-u--quote_Quote_NF arg-7 arg-0 e-6 arg-4 (vector 2 e-10 e-11 e-12 e-13 '()) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (CoreC-45TT-applyWithFC e-7 e-5)))))))))))))))))))) ((3) (let ((e-16 (vector-ref arg-8 1))) (let ((e-17 (vector-ref arg-8 2))) (let ((e-18 (vector-ref arg-8 3))) (let ((e-19 (vector-ref arg-8 4))) (let ((e-20 (vector-ref arg-8 5))) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (CoreC-45Core-traversePair (lambda (eta-2) (lambda (eta-3) (CoreC-45Normalise-n--19594-13644-u--repArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 eta-2 eta-3))) eta-0 eta-1))) e-20 '() ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-clearDefs arg-5 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Normalise-u--quote_Quote_NF arg-7 arg-0 e-6 arg-4 (vector 3 e-16 e-17 e-18 e-19 '()) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (CoreC-45TT-applyWithFC e-7 e-5)))))))))))))))))))) ((4) (let ((e-22 (vector-ref arg-8 1))) (let ((e-23 (vector-ref arg-8 2))) (let ((e-24 (vector-ref arg-8 3))) (let ((e-25 (vector-ref arg-8 4))) (let ((act-24 (CoreC-45Normalise-n--19594-13645-u--repSub arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-24 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-n--19594-13645-u--repSub arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-25 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (vector 5 e-22 e-23 e-5 e-6))))))))))))))) ((5) (let ((e-27 (vector-ref arg-8 1))) (let ((e-28 (vector-ref arg-8 2))) (let ((e-29 (vector-ref arg-8 3))) (let ((act-24 (CoreC-45Normalise-n--19594-13645-u--repSub arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-29 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 6 e-27 e-28 e-5)))))))))) ((6) (let ((e-31 (vector-ref arg-8 1))) (let ((e-32 (vector-ref arg-8 2))) (let ((e-33 (vector-ref arg-8 3))) (let ((e-34 (vector-ref arg-8 4))) (let ((act-24 (let ((act-24 ((CoreC-45Normalise-evalClosure arg-7 arg-0 arg-5 e-33) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (CoreC-45Normalise-replaceC-39 arg-7 arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 e-5 ext-0))))))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-7 arg-0 arg-5 e-34) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (CoreC-45Normalise-replaceC-39 arg-7 arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 e-6 ext-0))))))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (vector 7 e-31 e-32 e-5 e-6))))))))))))))) ((7) (let ((e-36 (vector-ref arg-8 1))) (let ((e-37 (vector-ref arg-8 2))) (let ((e-38 (vector-ref arg-8 3))) (let ((e-39 (vector-ref arg-8 4))) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (CoreC-45Core-traversePair (lambda (eta-2) (lambda (eta-3) (CoreC-45Normalise-n--19594-13644-u--repArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 eta-2 eta-3))) eta-0 eta-1))) e-39 '() ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-n--19594-13645-u--repSub arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-38 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (CoreC-45TT-applyWithFC (vector 8 e-36 e-37 e-6) e-5)))))))))))))))(else (let ((act-24 (CoreC-45Context-clearDefs arg-5 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (CoreC-45Normalise-u--quote_Quote_NF arg-7 arg-0 e-5 arg-4 arg-8 ext-0))))))))) +(define CoreC-45Normalise-n--19594-13644-u--repArg (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 ext-0) (let ((act-24 ((CoreC-45Normalise-evalClosure arg-7 arg-0 arg-5 arg-8) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (CoreC-45Normalise-replaceC-39 arg-7 arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 e-5 ext-0))))))) +(define CoreC-45Normalise-n--13631-8610-u--quickConvHead (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (case (vector-ref arg-5 0) ((0) (case (vector-ref arg-6 0) ((0) 1)(else 0))) ((1) (let ((e-7 (vector-ref arg-5 2))) (case (vector-ref arg-6 0) ((1) (let ((e-19 (vector-ref arg-6 2))) (CoreC-45Name-u--C-61C-61_Eq_Name e-7 e-19)))(else 0)))) ((2) (let ((e-9 (vector-ref arg-5 1))) (case (vector-ref arg-6 0) ((2) (let ((e-21 (vector-ref arg-6 1))) (CoreC-45Name-u--C-61C-61_Eq_Name e-9 e-21)))(else 0))))(else 0)))) +(define CoreC-45Normalise-n--13631-8611-u--quickConvArg (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (case (vector-ref arg-5 0) ((0) 1)(else (case (vector-ref arg-6 0) ((0) 1)(else (case (vector-ref arg-5 0) ((1) (let ((e-5 (vector-ref arg-5 2))) (case (vector-ref arg-6 0) ((1) (let ((e-48 (vector-ref arg-6 2))) (CoreC-45Normalise-n--13631-8610-u--quickConvHead arg-1 arg-2 arg-3 arg-4 e-5 e-48)))(else (case (vector-ref arg-6 0) ((9) 1)(else 0)))))) ((2) (let ((e-10 (vector-ref arg-5 3))) (case (vector-ref arg-6 0) ((2) (let ((e-53 (vector-ref arg-6 3))) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int e-10 e-53)))(else (case (vector-ref arg-6 0) ((9) 1)(else 0)))))) ((3) (let ((e-15 (vector-ref arg-5 2))) (case (vector-ref arg-6 0) ((3) (let ((e-58 (vector-ref arg-6 2))) (CoreC-45Name-u--C-61C-61_Eq_Name e-15 e-58)))(else (case (vector-ref arg-6 0) ((9) 1)(else 0)))))) ((4) (let ((e-23 (vector-ref arg-5 4))) (case (vector-ref arg-6 0) ((4) (let ((e-66 (vector-ref arg-6 4))) (CoreC-45Normalise-n--13631-8611-u--quickConvArg arg-1 arg-2 arg-3 arg-4 e-23 e-66)))(else (case (vector-ref arg-6 0) ((9) 1)(else 0)))))) ((5) (let ((e-27 (vector-ref arg-5 3))) (case (vector-ref arg-6 0) ((5) (let ((e-70 (vector-ref arg-6 3))) (CoreC-45Normalise-n--13631-8611-u--quickConvArg arg-1 arg-2 arg-3 arg-4 e-27 e-70)))(else (case (vector-ref arg-6 0) ((9) 1)(else 0)))))) ((6) (case (vector-ref arg-6 0) ((6) 1)(else (case (vector-ref arg-6 0) ((9) 1)(else 0))))) ((7) (let ((e-36 (vector-ref arg-5 3))) (case (vector-ref arg-6 0) ((7) (let ((e-79 (vector-ref arg-6 3))) (CoreC-45Normalise-n--13631-8611-u--quickConvArg arg-1 arg-2 arg-3 arg-4 e-36 e-79)))(else (case (vector-ref arg-6 0) ((9) 1)(else 0)))))) ((8) (let ((e-40 (vector-ref arg-5 2))) (case (vector-ref arg-6 0) ((8) (let ((e-83 (vector-ref arg-6 2))) (CoreC-45TT-u--C-61C-61_Eq_Constant e-40 e-83)))(else (case (vector-ref arg-6 0) ((9) 1)(else 0)))))) ((10) (case (vector-ref arg-6 0) ((10) 1)(else (case (vector-ref arg-6 0) ((9) 1)(else 0))))) ((9) 1)(else (case (vector-ref arg-6 0) ((9) 1)(else 0)))))))))) +(define CoreC-45Normalise-n--13666-10206-u--getScrutinee (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-13 arg-14) (cond ((equal? arg-13 0) (if (null? arg-14) '() (let ((e-2 (car arg-14))) (box e-2))))(else (let ((e-0 (- arg-13 1))) (if (null? arg-14) '() (let ((e-6 (cdr arg-14))) (CoreC-45Normalise-n--13666-10206-u--getScrutinee arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-0 e-6)))))))) +(define CoreC-45Normalise-n--13660-9718-u--getArgPos (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (if (null? arg-10) '() (cond ((equal? arg-9 0) (let ((e-2 (car arg-10))) (PreludeC-45Types-u--pure_Applicative_Maybe e-2)))(else (let ((e-0 (- arg-9 1))) (let ((e-6 (cdr arg-10))) (CoreC-45Normalise-n--13660-9718-u--getArgPos arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-0 e-6)))))))) +(define CoreC-45Normalise-n--10951-6247-u--findName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-11) (case (vector-ref arg-11 0) ((0) '()) (else (let ((e-2 (vector-ref arg-11 2))) (let ((e-3 (vector-ref arg-11 3))) (case (vector-ref e-2 0) ((2) (let ((e-5 (vector-ref e-2 2))) (let ((sc2 (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 e-5))) (cond ((equal? sc2 1) (box 0)) (else (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Normalise-n--10951-6247-u--findName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-3) (lambda (_-0) (box (+ 1 _-0)))))))))(else (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Normalise-n--10951-6247-u--findName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-3) (lambda (_-0) (box (+ 1 _-0)))))))))))) +(define CoreC-45Normalise-n--13086-7933-u--findIdx (lambda (arg-0 arg-1 arg-3 arg-5 arg-6 arg-7 arg-8 arg-9) (if (null? arg-8) '() (let ((e-2 (car arg-8))) (let ((e-3 (cdr arg-8))) (let ((e-6 (car e-2))) (let ((e-7 (cdr e-2))) (let ((sc2 (PreludeC-45Types-u--C-61C-61_Eq_Nat e-6 arg-9))) (cond ((equal? sc2 1) (box e-7)) (else (CoreC-45Normalise-n--13086-7933-u--findIdx arg-0 arg-1 arg-3 arg-5 arg-6 arg-7 e-3 arg-9))))))))))) +(define CoreC-45Normalise-n--13666-10205-u--findArgPos (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-13) (case (vector-ref arg-13 0) ((0) (let ((e-2 (vector-ref arg-13 2))) (box e-2)))(else '())))) +(define CoreC-45Normalise-n--13639-8940-u--extend (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (if (null? arg-13) (if (null? arg-14) (PreludeC-45Types-u--pure_Applicative_Maybe arg-15) '()) (let ((e-2 (car arg-13))) (let ((e-3 (cdr arg-13))) (if (null? arg-14) '() (let ((e-6 (car arg-14))) (let ((e-7 (cdr arg-14))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Normalise-n--13639-8940-u--extend arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-3 e-7 arg-15) (lambda (u--rest) (PreludeC-45Types-u--pure_Applicative_Maybe (cons (cons 0 0) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45Normalise-n--13639-8939-u--weakenP arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-2 e-6 (PreludeC-45TypesC-45List-C-43C-43 e-3 arg-0) (PreludeC-45TypesC-45List-C-43C-43 e-7 arg-1) eta-0)) u--rest))))))))))))) +(define CoreC-45Normalise-n--6440-5221-u--evalAll (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-9 ext-0) (if (null? arg-9) (vector 1 '()) (let ((e-3 (car arg-9))) (let ((e-4 (cdr arg-9))) (let ((act-24 ((CoreC-45Normalise-evalClosure arg-7 arg-2 arg-0 e-3) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-n--6440-5221-u--evalAll arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-4 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (cons e-5 e-6))))))))))))))) +(define CoreC-45Normalise-n--19469-13532-u--dumpEnv (lambda (arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (if (null? arg-7) (lambda (clam-0) (vector 1 0)) (let ((e-2 (car arg-7))) (let ((e-3 (cdr arg-7))) (lambda (clam-0) (let ((e-8 (car arg-8))) (let ((e-9 (cdr arg-8))) (case (vector-ref e-8 0) ((1) (let ((e-12 (vector-ref e-8 2))) (let ((e-13 (vector-ref e-8 3))) (let ((e-14 (vector-ref e-8 4))) (let ((act-24 (CoreC-45Normalise-logTermNFC-39 e-3 arg-6 arg-1 arg-5 (lambda () (PreludeC-45TypesC-45String-C-43C-43 arg-4 (PreludeC-45TypesC-45String-C-43C-43 ": let " (CoreC-45Name-u--show_Show_Name e-2)))) e-9 e-13 clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((act-25 (CoreC-45Normalise-logTermNFC-39 e-3 arg-6 arg-1 arg-5 (lambda () (PreludeC-45TypesC-45String-C-43C-43 arg-4 (PreludeC-45TypesC-45String-C-43C-43 ":" (PreludeC-45TypesC-45String-C-43C-43 (AlgebraC-45ZeroOneOmega-u--show_Show_ZeroOneOmega e-12) (PreludeC-45TypesC-45String-C-43C-43 " " (CoreC-45Name-u--show_Show_Name e-2)))))) e-9 e-14 clam-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else ((CoreC-45Normalise-n--19469-13532-u--dumpEnv arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 e-3 e-9) clam-0)))))))))))(else (let ((act-24 (CoreC-45Normalise-logTermNFC-39 e-3 arg-6 arg-1 arg-5 (lambda () (PreludeC-45TypesC-45String-C-43C-43 arg-4 (PreludeC-45TypesC-45String-C-43C-43 ":" (PreludeC-45TypesC-45String-C-43C-43 (AlgebraC-45ZeroOneOmega-u--show_Show_ZeroOneOmega (CoreC-45TT-multiplicity e-8)) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40PiInfoC-32C-36tC-41 (cons (lambda (u--x) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 e-3 u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 e-3 u--d u--x)))) (CoreC-45TT-piInfo e-8)) (PreludeC-45TypesC-45String-C-43C-43 " " (CoreC-45Name-u--show_Show_Name e-2)))))))) e-9 (CoreC-45TT-binderType e-8) clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else ((CoreC-45Normalise-n--19469-13532-u--dumpEnv arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 e-3 e-9) clam-0)))))))))))))) +(define CoreC-45Normalise-n--13639-8941-u--dropV (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-14 arg-15) (if (null? arg-14) (box arg-15) (let ((e-3 (cdr arg-14))) (cond ((equal? arg-15 0) '())(else (let ((e-8 (- arg-15 1))) (CoreC-45Normalise-n--13639-8941-u--dropV arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-3 e-8)))))))) +(define CoreC-45Normalise-n--13639-8942-u--dropP (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((e-2 (car arg-15))) (let ((e-3 (cdr arg-15))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Normalise-n--13639-8941-u--dropV arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-2) (lambda (bind-0) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Normalise-n--13639-8941-u--dropV arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-14 e-3) (lambda (bind-1) (PreludeC-45Types-u--pure_Applicative_Maybe (cons bind-0 bind-1)))))))))) +(define CoreC-45Normalise-n--13660-9719-u--convertMatches (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (if (null? arg-11) (lambda (eta-0) (vector 1 1)) (let ((e-2 (car arg-11))) (let ((e-3 (cdr arg-11))) (let ((e-6 (car e-2))) (let ((e-7 (cdr e-2))) (lambda (clam-0) (let ((sc2 (CoreC-45Normalise-n--13660-9718-u--getArgPos arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-6 arg-2))) (if (null? sc2) (vector 1 0) (let ((e-1 (unbox sc2))) (let ((sc3 (CoreC-45Normalise-n--13660-9718-u--getArgPos arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-7 arg-1))) (if (null? sc3) (vector 1 0) (let ((e-4 (unbox sc3))) (let ((act-24 (CoreC-45Normalise-u--convGen_Convert_Closure arg-8 arg-0 arg-7 arg-6 arg-5 e-1 e-4 clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Normalise-n--13660-9719-u--convertMatches arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-3) clam-0))) (case (vector-ref act-25 0) ((0) (let ((e-8 (vector-ref act-25 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref act-25 1))) (vector 1 (cond ((equal? e-5 1) e-8) (else 0))))))))))))))))))))))))) +(define CoreC-45Normalise-n--6435-4553-u--concrete (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (case (vector-ref arg-12 0) ((2) 1) ((3) 1) ((8) 1) ((0) 1) ((10) 1)(else 0)))) +(define CoreC-45Normalise-n--6426-2178-u--closeArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (if (null? arg-12) '() (let ((e-2 (car arg-12))) (let ((e-3 (cdr arg-12))) (cons (vector 0 arg-2 arg-1 arg-9 arg-10 e-2) (CoreC-45Normalise-n--6426-2178-u--closeArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-3))))))) +(define CoreC-45Normalise-n--17764-12281-u--args2 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) arg-5))) +(define CoreC-45Normalise-n--17764-12280-u--args1 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) arg-2))) +(define CoreC-45Normalise-n--10951-6117-u--addLater (lambda (arg-0 arg-2 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-14 arg-15) (if (null? arg-15) arg-14 (let ((e-3 (cdr arg-15))) (+ 1 (CoreC-45Normalise-n--10951-6117-u--addLater arg-0 arg-2 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-14 e-3)))))) +(define CoreC-45Normalise-n--12690-7545-u--act (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (CoreC-45ContextC-45Log-logTerm arg-3 arg-0 "eval.eta" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () " Considering") arg-4 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (case (vector-ref arg-4 0) ((3) (let ((e-1 (vector-ref arg-4 1))) (let ((e-2 (vector-ref arg-4 2))) (let ((e-3 (vector-ref arg-4 3))) (let ((e-4 (vector-ref arg-4 4))) (case (vector-ref e-3 0) ((0) (let ((e-6 (vector-ref e-3 1))) (let ((e-7 (vector-ref e-3 2))) (let ((e-8 (vector-ref e-3 3))) (let ((e-9 (vector-ref e-3 4))) (case (vector-ref e-4 0) ((4) (let ((e-11 (vector-ref e-4 1))) (let ((e-12 (vector-ref e-4 2))) (let ((e-13 (vector-ref e-4 3))) (case (vector-ref e-13 0) ((0) (let ((e-16 (vector-ref e-13 1))) (let ((e-17 (vector-ref e-13 2))) (let ((e-18 (vector-ref e-13 3))) (cond ((equal? e-18 0) (let ((act-25 (CoreC-45ContextC-45Log-logTerm (cons e-2 arg-3) arg-0 "eval.eta" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () " Shrinking candidate") e-12 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((u--shrunk (CoreC-45TT-shrinkTerm e-12 (vector 1 (vector 0 ))))) (let ((u--tm (vector 3 e-1 e-2 (vector 0 e-6 e-7 e-8 e-9) (vector 4 e-11 e-12 (vector 0 e-16 e-17 0))))) (if (null? u--shrunk) (let ((act-26 (CoreC-45ContextC-45Log-log arg-0 "eval.eta" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () " Failure!") ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-14 (vector-ref act-26 1))) (vector 0 e-14))) (else (vector 1 u--tm)))) (let ((e-14 (unbox u--shrunk))) (let ((act-26 (CoreC-45ContextC-45Log-logTerm arg-3 arg-0 "eval.eta" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () " Success!") e-14 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-15 (vector-ref act-26 1))) (vector 0 e-15))) (else (vector 1 e-14))))))))))))(else (vector 1 arg-4)))))))(else (vector 1 arg-4)))))))(else (vector 1 arg-4))))))))(else (vector 1 arg-4))))))))(else (vector 1 arg-4)))))))) +(define CoreC-45Normalise-u--quote_Quote_Term (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (CoreC-45Core-newRef (vector "Core.Normalise.QVar" ) 0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (CoreC-45Normalise-u--quoteGen_Quote_Term arg-0 arg-1 e-5 arg-2 arg-3 arg-4 ext-0))))))) +(define CoreC-45Normalise-u--quote_Quote_NF (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (CoreC-45Core-newRef (vector "Core.Normalise.QVar" ) 0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (CoreC-45Normalise-u--quoteGen_Quote_NF arg-0 arg-1 e-5 arg-2 arg-3 arg-4 ext-0))))))) +(define CoreC-45Normalise-u--quote_Quote_Closure (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (CoreC-45Core-newRef (vector "Core.Normalise.QVar" ) 0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (CoreC-45Normalise-u--quoteGen_Quote_Closure arg-0 arg-1 e-5 arg-2 arg-3 arg-4 ext-0))))))) (define CoreC-45Normalise-u--quoteGen_Quote_Term (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (vector 1 arg-5))) (define CoreC-45Normalise-u--quoteGen_Quote_NF (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (CoreC-45Normalise-quoteGenNF arg-0 '() arg-1 arg-2 arg-3 (vector 0 ) arg-4 arg-5 ext-0))) -(define CoreC-45Normalise-u--quoteGen_Quote_Closure (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-3 arg-5) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (CoreC-45Normalise-u--quoteGen_Quote_NF arg-0 arg-1 arg-2 arg-3 arg-4 e-5 ext-0)))))))) -(define CoreC-45Normalise-u--convert_Convert_Term (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (CoreC-45Core-newRef (vector "Core.Normalise.QVar" ) 0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (CoreC-45Normalise-u--convGen_Convert_Term arg-0 arg-1 e-5 arg-2 arg-3 arg-4 arg-5 ext-0)))))))) -(define CoreC-45Normalise-u--convert_Convert_NF (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (CoreC-45Core-newRef (vector "Core.Normalise.QVar" ) 0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((CoreC-45Normalise-u--convGen_Convert_NF arg-0 arg-1 e-5 arg-2 arg-3 arg-4 arg-5) ext-0)))))))) -(define CoreC-45Normalise-u--convert_Convert_Closure (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (CoreC-45Core-newRef (vector "Core.Normalise.QVar" ) 0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (CoreC-45Normalise-u--convGen_Convert_Closure arg-0 arg-1 e-5 arg-2 arg-3 arg-4 arg-5 ext-0)))))))) -(define CoreC-45Normalise-u--convGen_Convert_Term (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 ((CoreC-45Normalise-nf arg-0 arg-1 arg-3 arg-4 arg-5) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((CoreC-45Normalise-nf arg-0 arg-1 arg-3 arg-4 arg-6) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) ((CoreC-45Normalise-u--convGen_Convert_NF arg-0 arg-1 arg-2 arg-3 arg-4 e-5 e-6) ext-0))))))))))))) -(define CoreC-45Normalise-u--convGen_Convert_NF (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-97 (vector-ref sc0 1))) (let ((e-98 (vector-ref sc0 2))) (let ((e-99 (vector-ref sc0 3))) (let ((e-100 (vector-ref sc0 4))) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((0) (let ((e-109 (vector-ref sc1 3))) (let ((e-110 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 (CoreC-45Normalise-genName arg-2 "conv" eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((u--c (vector 0 '() (CoreC-45Value-defaultOpts) '() arg-4 (vector 1 e-97 (vector 0 ) e-5)))) (let ((act-25 ((CoreC-45Normalise-convBinders arg-0 arg-1 arg-2 arg-3 arg-4 e-99 e-109) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (cond ((equal? sc4 0) (let ((act-26 (((e-100 arg-3) u--c) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-27 (((e-110 arg-3) u--c) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc6 1))) ((CoreC-45Normalise-u--convGen_Convert_NF arg-0 arg-1 arg-2 arg-3 arg-4 e-7 e-8) eta-0)))))))))))) (else (vector 1 1)))))))))))))))))))(else (let ((sc1 e-99)) (case (vector-ref sc1 0) ((0) (let ((e-102 (vector-ref sc1 1))) (let ((e-103 (vector-ref sc1 2))) (let ((e-104 (vector-ref sc1 3))) (let ((e-105 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 (CoreC-45Context-clearDefs arg-3 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (let ((act-25 (CoreC-45CoreC-45PiInfo-traverse (lambda (arg-7) (lambda (eta-1) (CoreC-45Normalise-u--quote_Quote_NF arg-0 arg-1 e-5 arg-4 arg-7 eta-1))) e-104 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (CoreC-45Normalise-u--quote_Quote_NF arg-0 arg-1 e-5 arg-4 e-105 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-27 (CoreC-45Normalise-u--quote_Quote_NF arg-0 arg-1 e-5 arg-4 arg-6 eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc5 1))) ((CoreC-45Normalise-nf arg-0 arg-1 arg-3 arg-4 (vector 3 e-97 e-98 (vector 0 e-102 e-103 e-6 e-7) (vector 4 e-97 (CoreC-45TT-u--weaken_Weaken_Term e-8) (vector 0 e-97 (vector 0 ) 0)))) eta-0)))))))))))))))))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) ((CoreC-45Normalise-u--convGen_Convert_NF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-6) eta-0)))))))))))))))))(else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((0) (let ((e-87 (vector-ref sc1 1))) (let ((e-88 (vector-ref sc1 2))) (let ((e-89 (vector-ref sc1 3))) (let ((sc2 e-89)) (case (vector-ref sc2 0) ((0) (let ((e-92 (vector-ref sc2 1))) (let ((e-93 (vector-ref sc2 2))) (let ((e-94 (vector-ref sc2 3))) (let ((e-95 (vector-ref sc2 4))) (lambda (eta-0) (let ((act-24 (CoreC-45Context-clearDefs arg-3 eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (let ((act-25 (CoreC-45CoreC-45PiInfo-traverse (lambda (arg-7) (lambda (eta-1) (CoreC-45Normalise-u--quote_Quote_NF arg-0 arg-1 e-5 arg-4 arg-7 eta-1))) e-94 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (CoreC-45Normalise-u--quote_Quote_NF arg-0 arg-1 e-5 arg-4 e-95 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-27 (CoreC-45Normalise-u--quote_Quote_NF arg-0 arg-1 e-5 arg-4 arg-5 eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc6 1))) ((CoreC-45Normalise-nf arg-0 arg-1 arg-3 arg-4 (vector 3 e-87 e-88 (vector 0 e-92 e-93 e-6 e-7) (vector 4 e-87 (CoreC-45TT-u--weaken_Weaken_Term e-8) (vector 0 e-87 (vector 0 ) 0)))) eta-0)))))))))))))))))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) ((CoreC-45Normalise-u--convGen_Convert_NF arg-0 arg-1 arg-2 arg-3 arg-4 e-6 arg-6) eta-0)))))))))))))))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((1) (let ((e-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (let ((e-10 (vector-ref sc2 3))) (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((1) (let ((e-49 (vector-ref sc3 1))) (let ((e-50 (vector-ref sc3 2))) (let ((e-51 (vector-ref sc3 3))) (lambda (eta-0) (let ((act-24 ((CoreC-45Normalise-chkConvHead arg-0 arg-1 arg-2 arg-3 arg-4 e-9 e-50) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((sc5 e-5)) (cond ((equal? sc5 0) (CoreC-45Normalise-allConv arg-0 arg-1 arg-2 arg-3 arg-4 (CoreC-45Normalise-n--18951-11510-u--args1 arg-1 e-49 e-10 e-9 e-8 e-51 e-50 arg-4 arg-3 arg-2 arg-0) (CoreC-45Normalise-n--18951-11511-u--args2 arg-1 e-49 e-10 e-9 e-8 e-51 e-50 arg-4 arg-3 arg-2 arg-0) eta-0)) (else (CoreC-45Normalise-chkConvCaseBlock arg-0 arg-1 e-8 arg-2 arg-3 arg-4 e-9 (CoreC-45Normalise-n--18951-11510-u--args1 arg-1 e-49 e-10 e-9 e-8 e-51 e-50 arg-4 arg-3 arg-2 arg-0) e-50 (CoreC-45Normalise-n--18951-11511-u--args2 arg-1 e-49 e-10 e-9 e-8 e-51 e-50 arg-4 arg-3 arg-2 arg-0) eta-0))))))))))))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((9) (lambda (eta-0) (vector 1 0)))(else (lambda (clam-0) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((10) (vector 1 0))(else (vector 1 1)))))(else (vector 1 1))))))))))))))) ((2) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (let ((e-14 (vector-ref sc2 3))) (let ((e-15 (vector-ref sc2 4))) (let ((e-16 (vector-ref sc2 5))) (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((2) (let ((e-53 (vector-ref sc3 1))) (let ((e-54 (vector-ref sc3 2))) (let ((e-55 (vector-ref sc3 3))) (let ((e-56 (vector-ref sc3 4))) (let ((e-57 (vector-ref sc3 5))) (CoreC-45Normalise-case--convGen-11609 arg-1 e-53 e-56 e-12 e-15 e-16 e-14 e-13 e-57 e-55 e-54 arg-4 arg-3 arg-2 arg-0 (PreludeC-45EqOrd-u--C-61C-61_Eq_Int e-14 e-55))))))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((9) (lambda (eta-0) (vector 1 0)))(else (lambda (clam-1) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((10) (vector 1 0))(else (vector 1 1)))))(else (vector 1 1))))))))))))))))) ((3) (let ((e-18 (vector-ref sc2 1))) (let ((e-19 (vector-ref sc2 2))) (let ((e-20 (vector-ref sc2 3))) (let ((e-21 (vector-ref sc2 4))) (let ((e-22 (vector-ref sc2 5))) (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((3) (let ((e-59 (vector-ref sc3 1))) (let ((e-60 (vector-ref sc3 2))) (let ((e-61 (vector-ref sc3 3))) (let ((e-62 (vector-ref sc3 4))) (let ((e-63 (vector-ref sc3 5))) (CoreC-45Normalise-case--convGen-11718 arg-1 e-59 e-62 e-18 e-21 e-22 e-20 e-19 e-63 e-61 e-60 arg-4 arg-3 arg-2 arg-0 (CoreC-45Name-u--C-61C-61_Eq_Name e-19 e-60))))))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((9) (lambda (eta-0) (vector 1 0)))(else (lambda (clam-2) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((10) (vector 1 0))(else (vector 1 1)))))(else (vector 1 1))))))))))))))))) ((4) (let ((e-27 (vector-ref sc2 4))) (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((4) (let ((e-68 (vector-ref sc3 4))) (CoreC-45Normalise-u--convGen_Convert_NF arg-0 arg-1 arg-2 arg-3 arg-4 e-27 e-68)))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((9) (lambda (eta-0) (vector 1 0)))(else (lambda (clam-3) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((10) (vector 1 0))(else (vector 1 1)))))(else (vector 1 1))))))))))))) ((5) (let ((e-29 (vector-ref sc2 1))) (let ((e-30 (vector-ref sc2 2))) (let ((e-31 (vector-ref sc2 3))) (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((5) (let ((e-70 (vector-ref sc3 1))) (let ((e-71 (vector-ref sc3 2))) (let ((e-72 (vector-ref sc3 3))) (CoreC-45Normalise-case--convGen-11843 arg-1 e-70 e-29 e-31 e-30 e-72 e-71 arg-4 arg-3 arg-2 arg-0 (CoreC-45TT-compatible e-30 e-71))))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((9) (lambda (eta-0) (vector 1 0)))(else (lambda (clam-4) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((10) (vector 1 0))(else (vector 1 1)))))(else (vector 1 1))))))))))))))) ((6) (let ((e-33 (vector-ref sc2 1))) (let ((e-34 (vector-ref sc2 2))) (let ((e-35 (vector-ref sc2 3))) (let ((e-36 (vector-ref sc2 4))) (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((6) (let ((e-74 (vector-ref sc3 1))) (let ((e-75 (vector-ref sc3 2))) (let ((e-76 (vector-ref sc3 3))) (let ((e-77 (vector-ref sc3 4))) (lambda (eta-0) (CoreC-45Normalise-case--convGen-11914 arg-1 e-74 e-76 e-33 e-35 e-36 e-34 e-77 e-75 arg-4 arg-3 arg-2 arg-0 (CoreC-45TT-compatible e-34 e-75) eta-0)))))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((9) (lambda (eta-0) (vector 1 0)))(else (lambda (clam-5) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((10) (vector 1 0))(else (vector 1 1)))))(else (vector 1 1)))))))))))))))) ((7) (let ((e-38 (vector-ref sc2 1))) (let ((e-39 (vector-ref sc2 2))) (let ((e-40 (vector-ref sc2 3))) (let ((e-41 (vector-ref sc2 4))) (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((7) (let ((e-79 (vector-ref sc3 1))) (let ((e-80 (vector-ref sc3 2))) (let ((e-81 (vector-ref sc3 3))) (let ((e-82 (vector-ref sc3 4))) (lambda (eta-0) (CoreC-45Normalise-case--convGen-12049 arg-1 e-79 e-38 e-41 e-40 e-39 e-82 e-81 e-80 arg-4 arg-3 arg-2 arg-0 (CoreC-45TT-compatible e-39 e-80) eta-0)))))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((9) (lambda (eta-0) (vector 1 0)))(else (lambda (clam-6) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((10) (vector 1 0))(else (vector 1 1)))))(else (vector 1 1)))))))))))))))) ((8) (let ((e-44 (vector-ref sc2 2))) (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((8) (let ((e-85 (vector-ref sc3 2))) (lambda (eta-0) (vector 1 (CoreC-45TT-u--C-61C-61_Eq_Constant e-44 e-85)))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((9) (lambda (eta-0) (vector 1 0)))(else (lambda (clam-7) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((10) (vector 1 0))(else (vector 1 1)))))(else (vector 1 1))))))))))))) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-6)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (lambda (clam-8) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((10) (vector 1 0))(else (vector 1 1)))))(else (vector 1 1))))))))))))))))))(else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((1) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((e-10 (vector-ref sc1 3))) (let ((sc2 arg-6)) (case (vector-ref sc2 0) ((1) (let ((e-49 (vector-ref sc2 1))) (let ((e-50 (vector-ref sc2 2))) (let ((e-51 (vector-ref sc2 3))) (lambda (eta-0) (let ((act-24 ((CoreC-45Normalise-chkConvHead arg-0 arg-1 arg-2 arg-3 arg-4 e-9 e-50) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((sc4 e-5)) (cond ((equal? sc4 0) (CoreC-45Normalise-allConv arg-0 arg-1 arg-2 arg-3 arg-4 (CoreC-45Normalise-n--18951-11510-u--args1 arg-1 e-49 e-10 e-9 e-8 e-51 e-50 arg-4 arg-3 arg-2 arg-0) (CoreC-45Normalise-n--18951-11511-u--args2 arg-1 e-49 e-10 e-9 e-8 e-51 e-50 arg-4 arg-3 arg-2 arg-0) eta-0)) (else (CoreC-45Normalise-chkConvCaseBlock arg-0 arg-1 e-8 arg-2 arg-3 arg-4 e-9 (CoreC-45Normalise-n--18951-11510-u--args1 arg-1 e-49 e-10 e-9 e-8 e-51 e-50 arg-4 arg-3 arg-2 arg-0) e-50 (CoreC-45Normalise-n--18951-11511-u--args2 arg-1 e-49 e-10 e-9 e-8 e-51 e-50 arg-4 arg-3 arg-2 arg-0) eta-0))))))))))))))(else (let ((sc2 arg-6)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (lambda (clam-9) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((10) (vector 1 0))(else (vector 1 1)))))(else (vector 1 1))))))))))))))) ((2) (let ((e-12 (vector-ref sc1 1))) (let ((e-13 (vector-ref sc1 2))) (let ((e-14 (vector-ref sc1 3))) (let ((e-15 (vector-ref sc1 4))) (let ((e-16 (vector-ref sc1 5))) (let ((sc2 arg-6)) (case (vector-ref sc2 0) ((2) (let ((e-53 (vector-ref sc2 1))) (let ((e-54 (vector-ref sc2 2))) (let ((e-55 (vector-ref sc2 3))) (let ((e-56 (vector-ref sc2 4))) (let ((e-57 (vector-ref sc2 5))) (CoreC-45Normalise-case--convGen-11609 arg-1 e-53 e-56 e-12 e-15 e-16 e-14 e-13 e-57 e-55 e-54 arg-4 arg-3 arg-2 arg-0 (PreludeC-45EqOrd-u--C-61C-61_Eq_Int e-14 e-55))))))))(else (let ((sc2 arg-6)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (lambda (clam-10) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((10) (vector 1 0))(else (vector 1 1)))))(else (vector 1 1))))))))))))))))) ((3) (let ((e-18 (vector-ref sc1 1))) (let ((e-19 (vector-ref sc1 2))) (let ((e-20 (vector-ref sc1 3))) (let ((e-21 (vector-ref sc1 4))) (let ((e-22 (vector-ref sc1 5))) (let ((sc2 arg-6)) (case (vector-ref sc2 0) ((3) (let ((e-59 (vector-ref sc2 1))) (let ((e-60 (vector-ref sc2 2))) (let ((e-61 (vector-ref sc2 3))) (let ((e-62 (vector-ref sc2 4))) (let ((e-63 (vector-ref sc2 5))) (CoreC-45Normalise-case--convGen-11718 arg-1 e-59 e-62 e-18 e-21 e-22 e-20 e-19 e-63 e-61 e-60 arg-4 arg-3 arg-2 arg-0 (CoreC-45Name-u--C-61C-61_Eq_Name e-19 e-60))))))))(else (let ((sc2 arg-6)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (lambda (clam-11) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((10) (vector 1 0))(else (vector 1 1)))))(else (vector 1 1))))))))))))))))) ((4) (let ((e-27 (vector-ref sc1 4))) (let ((sc2 arg-6)) (case (vector-ref sc2 0) ((4) (let ((e-68 (vector-ref sc2 4))) (CoreC-45Normalise-u--convGen_Convert_NF arg-0 arg-1 arg-2 arg-3 arg-4 e-27 e-68)))(else (let ((sc2 arg-6)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (lambda (clam-12) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((10) (vector 1 0))(else (vector 1 1)))))(else (vector 1 1))))))))))))) ((5) (let ((e-29 (vector-ref sc1 1))) (let ((e-30 (vector-ref sc1 2))) (let ((e-31 (vector-ref sc1 3))) (let ((sc2 arg-6)) (case (vector-ref sc2 0) ((5) (let ((e-70 (vector-ref sc2 1))) (let ((e-71 (vector-ref sc2 2))) (let ((e-72 (vector-ref sc2 3))) (CoreC-45Normalise-case--convGen-11843 arg-1 e-70 e-29 e-31 e-30 e-72 e-71 arg-4 arg-3 arg-2 arg-0 (CoreC-45TT-compatible e-30 e-71))))))(else (let ((sc2 arg-6)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (lambda (clam-13) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((10) (vector 1 0))(else (vector 1 1)))))(else (vector 1 1))))))))))))))) ((6) (let ((e-33 (vector-ref sc1 1))) (let ((e-34 (vector-ref sc1 2))) (let ((e-35 (vector-ref sc1 3))) (let ((e-36 (vector-ref sc1 4))) (let ((sc2 arg-6)) (case (vector-ref sc2 0) ((6) (let ((e-74 (vector-ref sc2 1))) (let ((e-75 (vector-ref sc2 2))) (let ((e-76 (vector-ref sc2 3))) (let ((e-77 (vector-ref sc2 4))) (lambda (eta-0) (CoreC-45Normalise-case--convGen-11914 arg-1 e-74 e-76 e-33 e-35 e-36 e-34 e-77 e-75 arg-4 arg-3 arg-2 arg-0 (CoreC-45TT-compatible e-34 e-75) eta-0)))))))(else (let ((sc2 arg-6)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (lambda (clam-14) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((10) (vector 1 0))(else (vector 1 1)))))(else (vector 1 1)))))))))))))))) ((7) (let ((e-38 (vector-ref sc1 1))) (let ((e-39 (vector-ref sc1 2))) (let ((e-40 (vector-ref sc1 3))) (let ((e-41 (vector-ref sc1 4))) (let ((sc2 arg-6)) (case (vector-ref sc2 0) ((7) (let ((e-79 (vector-ref sc2 1))) (let ((e-80 (vector-ref sc2 2))) (let ((e-81 (vector-ref sc2 3))) (let ((e-82 (vector-ref sc2 4))) (lambda (eta-0) (CoreC-45Normalise-case--convGen-12049 arg-1 e-79 e-38 e-41 e-40 e-39 e-82 e-81 e-80 arg-4 arg-3 arg-2 arg-0 (CoreC-45TT-compatible e-39 e-80) eta-0)))))))(else (let ((sc2 arg-6)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (lambda (clam-15) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((10) (vector 1 0))(else (vector 1 1)))))(else (vector 1 1)))))))))))))))) ((8) (let ((e-44 (vector-ref sc1 2))) (let ((sc2 arg-6)) (case (vector-ref sc2 0) ((8) (let ((e-85 (vector-ref sc2 2))) (lambda (eta-0) (vector 1 (CoreC-45TT-u--C-61C-61_Eq_Constant e-44 e-85)))))(else (let ((sc2 arg-6)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (lambda (clam-16) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((10) (vector 1 0))(else (vector 1 1)))))(else (vector 1 1))))))))))))) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((9) (lambda (eta-0) (vector 1 0)))(else (lambda (clam-17) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((10) (let ((sc2 arg-6)) (case (vector-ref sc2 0) ((10) (vector 1 0))(else (vector 1 1)))))(else (vector 1 1)))))))))))))))))))))))))(else (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-87 (vector-ref sc0 1))) (let ((e-88 (vector-ref sc0 2))) (let ((e-89 (vector-ref sc0 3))) (let ((sc1 e-89)) (case (vector-ref sc1 0) ((0) (let ((e-92 (vector-ref sc1 1))) (let ((e-93 (vector-ref sc1 2))) (let ((e-94 (vector-ref sc1 3))) (let ((e-95 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 (CoreC-45Context-clearDefs arg-3 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (let ((act-25 (CoreC-45CoreC-45PiInfo-traverse (lambda (arg-7) (lambda (eta-1) (CoreC-45Normalise-u--quote_Quote_NF arg-0 arg-1 e-5 arg-4 arg-7 eta-1))) e-94 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (CoreC-45Normalise-u--quote_Quote_NF arg-0 arg-1 e-5 arg-4 e-95 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-27 (CoreC-45Normalise-u--quote_Quote_NF arg-0 arg-1 e-5 arg-4 arg-5 eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc5 1))) ((CoreC-45Normalise-nf arg-0 arg-1 arg-3 arg-4 (vector 3 e-87 e-88 (vector 0 e-92 e-93 e-6 e-7) (vector 4 e-87 (CoreC-45TT-u--weaken_Weaken_Term e-8) (vector 0 e-87 (vector 0 ) 0)))) eta-0)))))))))))))))))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) ((CoreC-45Normalise-u--convGen_Convert_NF arg-0 arg-1 arg-2 arg-3 arg-4 e-6 arg-6) eta-0)))))))))))))))))(else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((1) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((e-10 (vector-ref sc1 3))) (let ((sc2 arg-6)) (case (vector-ref sc2 0) ((1) (let ((e-49 (vector-ref sc2 1))) (let ((e-50 (vector-ref sc2 2))) (let ((e-51 (vector-ref sc2 3))) (lambda (eta-0) (let ((act-24 ((CoreC-45Normalise-chkConvHead arg-0 arg-1 arg-2 arg-3 arg-4 e-9 e-50) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((sc4 e-5)) (cond ((equal? sc4 0) (CoreC-45Normalise-allConv arg-0 arg-1 arg-2 arg-3 arg-4 (CoreC-45Normalise-n--18951-11510-u--args1 arg-1 e-49 e-10 e-9 e-8 e-51 e-50 arg-4 arg-3 arg-2 arg-0) (CoreC-45Normalise-n--18951-11511-u--args2 arg-1 e-49 e-10 e-9 e-8 e-51 e-50 arg-4 arg-3 arg-2 arg-0) eta-0)) (else (CoreC-45Normalise-chkConvCaseBlock arg-0 arg-1 e-8 arg-2 arg-3 arg-4 e-9 (CoreC-45Normalise-n--18951-11510-u--args1 arg-1 e-49 e-10 e-9 e-8 e-51 e-50 arg-4 arg-3 arg-2 arg-0) e-50 (CoreC-45Normalise-n--18951-11511-u--args2 arg-1 e-49 e-10 e-9 e-8 e-51 e-50 arg-4 arg-3 arg-2 arg-0) eta-0))))))))))))))(else (let ((sc2 arg-6)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (lambda (clam-18) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((10) (vector 1 0))(else (vector 1 1)))))(else (vector 1 1))))))))))))))) ((2) (let ((e-12 (vector-ref sc1 1))) (let ((e-13 (vector-ref sc1 2))) (let ((e-14 (vector-ref sc1 3))) (let ((e-15 (vector-ref sc1 4))) (let ((e-16 (vector-ref sc1 5))) (let ((sc2 arg-6)) (case (vector-ref sc2 0) ((2) (let ((e-53 (vector-ref sc2 1))) (let ((e-54 (vector-ref sc2 2))) (let ((e-55 (vector-ref sc2 3))) (let ((e-56 (vector-ref sc2 4))) (let ((e-57 (vector-ref sc2 5))) (CoreC-45Normalise-case--convGen-11609 arg-1 e-53 e-56 e-12 e-15 e-16 e-14 e-13 e-57 e-55 e-54 arg-4 arg-3 arg-2 arg-0 (PreludeC-45EqOrd-u--C-61C-61_Eq_Int e-14 e-55))))))))(else (let ((sc2 arg-6)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (lambda (clam-19) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((10) (vector 1 0))(else (vector 1 1)))))(else (vector 1 1))))))))))))))))) ((3) (let ((e-18 (vector-ref sc1 1))) (let ((e-19 (vector-ref sc1 2))) (let ((e-20 (vector-ref sc1 3))) (let ((e-21 (vector-ref sc1 4))) (let ((e-22 (vector-ref sc1 5))) (let ((sc2 arg-6)) (case (vector-ref sc2 0) ((3) (let ((e-59 (vector-ref sc2 1))) (let ((e-60 (vector-ref sc2 2))) (let ((e-61 (vector-ref sc2 3))) (let ((e-62 (vector-ref sc2 4))) (let ((e-63 (vector-ref sc2 5))) (CoreC-45Normalise-case--convGen-11718 arg-1 e-59 e-62 e-18 e-21 e-22 e-20 e-19 e-63 e-61 e-60 arg-4 arg-3 arg-2 arg-0 (CoreC-45Name-u--C-61C-61_Eq_Name e-19 e-60))))))))(else (let ((sc2 arg-6)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (lambda (clam-20) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((10) (vector 1 0))(else (vector 1 1)))))(else (vector 1 1))))))))))))))))) ((4) (let ((e-27 (vector-ref sc1 4))) (let ((sc2 arg-6)) (case (vector-ref sc2 0) ((4) (let ((e-68 (vector-ref sc2 4))) (CoreC-45Normalise-u--convGen_Convert_NF arg-0 arg-1 arg-2 arg-3 arg-4 e-27 e-68)))(else (let ((sc2 arg-6)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (lambda (clam-21) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((10) (vector 1 0))(else (vector 1 1)))))(else (vector 1 1))))))))))))) ((5) (let ((e-29 (vector-ref sc1 1))) (let ((e-30 (vector-ref sc1 2))) (let ((e-31 (vector-ref sc1 3))) (let ((sc2 arg-6)) (case (vector-ref sc2 0) ((5) (let ((e-70 (vector-ref sc2 1))) (let ((e-71 (vector-ref sc2 2))) (let ((e-72 (vector-ref sc2 3))) (CoreC-45Normalise-case--convGen-11843 arg-1 e-70 e-29 e-31 e-30 e-72 e-71 arg-4 arg-3 arg-2 arg-0 (CoreC-45TT-compatible e-30 e-71))))))(else (let ((sc2 arg-6)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (lambda (clam-22) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((10) (vector 1 0))(else (vector 1 1)))))(else (vector 1 1))))))))))))))) ((6) (let ((e-33 (vector-ref sc1 1))) (let ((e-34 (vector-ref sc1 2))) (let ((e-35 (vector-ref sc1 3))) (let ((e-36 (vector-ref sc1 4))) (let ((sc2 arg-6)) (case (vector-ref sc2 0) ((6) (let ((e-74 (vector-ref sc2 1))) (let ((e-75 (vector-ref sc2 2))) (let ((e-76 (vector-ref sc2 3))) (let ((e-77 (vector-ref sc2 4))) (lambda (eta-0) (CoreC-45Normalise-case--convGen-11914 arg-1 e-74 e-76 e-33 e-35 e-36 e-34 e-77 e-75 arg-4 arg-3 arg-2 arg-0 (CoreC-45TT-compatible e-34 e-75) eta-0)))))))(else (let ((sc2 arg-6)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (lambda (clam-23) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((10) (vector 1 0))(else (vector 1 1)))))(else (vector 1 1)))))))))))))))) ((7) (let ((e-38 (vector-ref sc1 1))) (let ((e-39 (vector-ref sc1 2))) (let ((e-40 (vector-ref sc1 3))) (let ((e-41 (vector-ref sc1 4))) (let ((sc2 arg-6)) (case (vector-ref sc2 0) ((7) (let ((e-79 (vector-ref sc2 1))) (let ((e-80 (vector-ref sc2 2))) (let ((e-81 (vector-ref sc2 3))) (let ((e-82 (vector-ref sc2 4))) (lambda (eta-0) (CoreC-45Normalise-case--convGen-12049 arg-1 e-79 e-38 e-41 e-40 e-39 e-82 e-81 e-80 arg-4 arg-3 arg-2 arg-0 (CoreC-45TT-compatible e-39 e-80) eta-0)))))))(else (let ((sc2 arg-6)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (lambda (clam-24) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((10) (vector 1 0))(else (vector 1 1)))))(else (vector 1 1)))))))))))))))) ((8) (let ((e-44 (vector-ref sc1 2))) (let ((sc2 arg-6)) (case (vector-ref sc2 0) ((8) (let ((e-85 (vector-ref sc2 2))) (lambda (eta-0) (vector 1 (CoreC-45TT-u--C-61C-61_Eq_Constant e-44 e-85)))))(else (let ((sc2 arg-6)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (lambda (clam-25) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((10) (vector 1 0))(else (vector 1 1)))))(else (vector 1 1))))))))))))) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((9) (lambda (eta-0) (vector 1 0)))(else (lambda (clam-26) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((10) (let ((sc2 arg-6)) (case (vector-ref sc2 0) ((10) (vector 1 0))(else (vector 1 1)))))(else (vector 1 1))))))))))))))))))(else (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 3))) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((1) (let ((e-49 (vector-ref sc1 1))) (let ((e-50 (vector-ref sc1 2))) (let ((e-51 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((CoreC-45Normalise-chkConvHead arg-0 arg-1 arg-2 arg-3 arg-4 e-9 e-50) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (cond ((equal? sc3 0) (CoreC-45Normalise-allConv arg-0 arg-1 arg-2 arg-3 arg-4 (CoreC-45Normalise-n--18951-11510-u--args1 arg-1 e-49 e-10 e-9 e-8 e-51 e-50 arg-4 arg-3 arg-2 arg-0) (CoreC-45Normalise-n--18951-11511-u--args2 arg-1 e-49 e-10 e-9 e-8 e-51 e-50 arg-4 arg-3 arg-2 arg-0) eta-0)) (else (CoreC-45Normalise-chkConvCaseBlock arg-0 arg-1 e-8 arg-2 arg-3 arg-4 e-9 (CoreC-45Normalise-n--18951-11510-u--args1 arg-1 e-49 e-10 e-9 e-8 e-51 e-50 arg-4 arg-3 arg-2 arg-0) e-50 (CoreC-45Normalise-n--18951-11511-u--args2 arg-1 e-49 e-10 e-9 e-8 e-51 e-50 arg-4 arg-3 arg-2 arg-0) eta-0))))))))))))))(else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((9) (lambda (eta-0) (vector 1 0)))(else (lambda (clam-27) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((10) (let ((sc2 arg-6)) (case (vector-ref sc2 0) ((10) (vector 1 0))(else (vector 1 1)))))(else (vector 1 1))))))))))))))) ((2) (let ((e-12 (vector-ref sc0 1))) (let ((e-13 (vector-ref sc0 2))) (let ((e-14 (vector-ref sc0 3))) (let ((e-15 (vector-ref sc0 4))) (let ((e-16 (vector-ref sc0 5))) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((2) (let ((e-53 (vector-ref sc1 1))) (let ((e-54 (vector-ref sc1 2))) (let ((e-55 (vector-ref sc1 3))) (let ((e-56 (vector-ref sc1 4))) (let ((e-57 (vector-ref sc1 5))) (CoreC-45Normalise-case--convGen-11609 arg-1 e-53 e-56 e-12 e-15 e-16 e-14 e-13 e-57 e-55 e-54 arg-4 arg-3 arg-2 arg-0 (PreludeC-45EqOrd-u--C-61C-61_Eq_Int e-14 e-55))))))))(else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((9) (lambda (eta-0) (vector 1 0)))(else (lambda (clam-28) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((10) (let ((sc2 arg-6)) (case (vector-ref sc2 0) ((10) (vector 1 0))(else (vector 1 1)))))(else (vector 1 1))))))))))))))))) ((3) (let ((e-18 (vector-ref sc0 1))) (let ((e-19 (vector-ref sc0 2))) (let ((e-20 (vector-ref sc0 3))) (let ((e-21 (vector-ref sc0 4))) (let ((e-22 (vector-ref sc0 5))) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((3) (let ((e-59 (vector-ref sc1 1))) (let ((e-60 (vector-ref sc1 2))) (let ((e-61 (vector-ref sc1 3))) (let ((e-62 (vector-ref sc1 4))) (let ((e-63 (vector-ref sc1 5))) (CoreC-45Normalise-case--convGen-11718 arg-1 e-59 e-62 e-18 e-21 e-22 e-20 e-19 e-63 e-61 e-60 arg-4 arg-3 arg-2 arg-0 (CoreC-45Name-u--C-61C-61_Eq_Name e-19 e-60))))))))(else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((9) (lambda (eta-0) (vector 1 0)))(else (lambda (clam-29) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((10) (let ((sc2 arg-6)) (case (vector-ref sc2 0) ((10) (vector 1 0))(else (vector 1 1)))))(else (vector 1 1))))))))))))))))) ((4) (let ((e-27 (vector-ref sc0 4))) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((4) (let ((e-68 (vector-ref sc1 4))) (CoreC-45Normalise-u--convGen_Convert_NF arg-0 arg-1 arg-2 arg-3 arg-4 e-27 e-68)))(else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((9) (lambda (eta-0) (vector 1 0)))(else (lambda (clam-30) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((10) (let ((sc2 arg-6)) (case (vector-ref sc2 0) ((10) (vector 1 0))(else (vector 1 1)))))(else (vector 1 1))))))))))))) ((5) (let ((e-29 (vector-ref sc0 1))) (let ((e-30 (vector-ref sc0 2))) (let ((e-31 (vector-ref sc0 3))) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((5) (let ((e-70 (vector-ref sc1 1))) (let ((e-71 (vector-ref sc1 2))) (let ((e-72 (vector-ref sc1 3))) (CoreC-45Normalise-case--convGen-11843 arg-1 e-70 e-29 e-31 e-30 e-72 e-71 arg-4 arg-3 arg-2 arg-0 (CoreC-45TT-compatible e-30 e-71))))))(else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((9) (lambda (eta-0) (vector 1 0)))(else (lambda (clam-31) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((10) (let ((sc2 arg-6)) (case (vector-ref sc2 0) ((10) (vector 1 0))(else (vector 1 1)))))(else (vector 1 1))))))))))))))) ((6) (let ((e-33 (vector-ref sc0 1))) (let ((e-34 (vector-ref sc0 2))) (let ((e-35 (vector-ref sc0 3))) (let ((e-36 (vector-ref sc0 4))) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((6) (let ((e-74 (vector-ref sc1 1))) (let ((e-75 (vector-ref sc1 2))) (let ((e-76 (vector-ref sc1 3))) (let ((e-77 (vector-ref sc1 4))) (lambda (eta-0) (CoreC-45Normalise-case--convGen-11914 arg-1 e-74 e-76 e-33 e-35 e-36 e-34 e-77 e-75 arg-4 arg-3 arg-2 arg-0 (CoreC-45TT-compatible e-34 e-75) eta-0)))))))(else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((9) (lambda (eta-0) (vector 1 0)))(else (lambda (clam-32) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((10) (let ((sc2 arg-6)) (case (vector-ref sc2 0) ((10) (vector 1 0))(else (vector 1 1)))))(else (vector 1 1)))))))))))))))) ((7) (let ((e-38 (vector-ref sc0 1))) (let ((e-39 (vector-ref sc0 2))) (let ((e-40 (vector-ref sc0 3))) (let ((e-41 (vector-ref sc0 4))) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((7) (let ((e-79 (vector-ref sc1 1))) (let ((e-80 (vector-ref sc1 2))) (let ((e-81 (vector-ref sc1 3))) (let ((e-82 (vector-ref sc1 4))) (lambda (eta-0) (CoreC-45Normalise-case--convGen-12049 arg-1 e-79 e-38 e-41 e-40 e-39 e-82 e-81 e-80 arg-4 arg-3 arg-2 arg-0 (CoreC-45TT-compatible e-39 e-80) eta-0)))))))(else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((9) (lambda (eta-0) (vector 1 0)))(else (lambda (clam-33) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((10) (let ((sc2 arg-6)) (case (vector-ref sc2 0) ((10) (vector 1 0))(else (vector 1 1)))))(else (vector 1 1)))))))))))))))) ((8) (let ((e-44 (vector-ref sc0 2))) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((8) (let ((e-85 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (CoreC-45TT-u--C-61C-61_Eq_Constant e-44 e-85)))))(else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((9) (lambda (eta-0) (vector 1 0)))(else (lambda (clam-34) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((10) (let ((sc2 arg-6)) (case (vector-ref sc2 0) ((10) (vector 1 0))(else (vector 1 1)))))(else (vector 1 1))))))))))))) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((9) (lambda (eta-0) (vector 1 0)))(else (lambda (clam-35) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((10) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((10) (vector 1 0))(else (vector 1 1)))))(else (vector 1 1))))))))))))))))))) -(define CoreC-45Normalise-u--convGen_Convert_Closure (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-3 arg-5) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-3 arg-6) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) ((CoreC-45Normalise-u--convGen_Convert_NF arg-0 arg-1 arg-2 arg-3 arg-4 e-5 e-6) ext-0))))))))))))) -(define CoreC-45Normalise-useMeta (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-0)) (cond ((equal? sc0 1) (lambda (eta-0) (vector 1 (vector 1 arg-4)))) (else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((9) (let ((e-0 (vector-ref sc1 1))) (lambda (eta-0) (CoreC-45Normalise-case--useMeta-1921 e-0 arg-4 arg-3 arg-1 (LibrariesC-45DataC-45IntMap-lookup e-0 (let ((sc2 arg-4)) (let ((e-3 (vector-ref sc2 4))) e-3))) eta-0))))(else (CoreC-45Normalise-case--useMeta-1976 arg-4 arg-3 arg-2 arg-1 (CoreC-45Context-getNameID arg-2 (let ((sc1 arg-3)) (let ((e-0 (vector-ref sc1 1))) e-0)))))))))))) -(define CoreC-45Normalise-updateLocal (lambda (arg-0 arg-1 arg-5 arg-7 arg-8) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (let ((sc1 arg-7)) (if (null? sc1) arg-7 (let ((e-5 (cdr sc1))) (cons (vector 1 arg-8) e-5)))))(else (let ((e-0 (- arg-5 1))) (let ((sc0 arg-7)) (if (null? sc0) arg-7 (let ((e-9 (car sc0))) (let ((e-10 (cdr sc0))) (cons e-9 (CoreC-45Normalise-updateLocal arg-0 arg-1 e-0 e-10 arg-8)))))))))))) -(define CoreC-45Normalise-updateLimit (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (CoreC-45Normalise-case--updateLimit-2072 arg-2 arg-1 (let ((sc1 (DataC-45List-isNil (let ((sc2 arg-2)) (let ((e-7 (vector-ref sc2 8))) e-7))))) (cond ((equal? sc1 0) 1) (else 0)))))(else (lambda (eta-0) (vector 1 (vector 1 arg-2)))))))) -(define CoreC-45Normalise-tryUpdate (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Normalise-n--14735-7527-u--findIdx arg-0 arg-1 e-4 e-3 e-2 arg-2 arg-2 e-4) (lambda (_-0) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 0 e-2 e-3 _-0)))))))) ((1) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 1 e-7 e-8 e-9)))))) ((2) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 4))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (PreludeC-45Types-u--traverse_Traversable_List (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (PreludeC-45Types-u--map_Functor_Maybe u--func arg-143))))) (lambda (u--a) (lambda (arg-577) (PreludeC-45Types-u--pure_Applicative_Maybe arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (PreludeC-45Types-u--C-60C-42C-62_Applicative_Maybe arg-578 arg-580)))))) (lambda (eta-0) (CoreC-45Normalise-tryUpdate arg-0 arg-1 arg-2 eta-0)) e-14) (lambda (bind-0) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 2 e-11 e-12 e-13 bind-0))))))))) ((3) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Normalise-n--14735-7696-u--tryUpdateB arg-0 arg-1 e-17 e-19 e-18 e-16 arg-2 e-18) (lambda (u--bC-39) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Normalise-tryUpdate (cons e-17 arg-0) (cons e-17 arg-1) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45Normalise-n--14735-7697-u--weakenP arg-0 arg-1 e-17 e-19 e-18 e-16 arg-2 e-17 eta-0)) arg-2) e-19) (lambda (bind-0) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 3 e-16 e-17 u--bC-39 bind-0))))))))))) ((4) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Normalise-tryUpdate arg-0 arg-1 arg-2 e-22) (lambda (bind-0) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Normalise-tryUpdate arg-0 arg-1 arg-2 e-23) (lambda (bind-1) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 4 e-21 bind-0 bind-1)))))))))) ((5) (let ((e-25 (vector-ref sc0 1))) (let ((e-26 (vector-ref sc0 2))) (let ((e-27 (vector-ref sc0 3))) (let ((e-28 (vector-ref sc0 4))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Normalise-tryUpdate arg-0 arg-1 arg-2 e-27) (lambda (bind-0) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Normalise-tryUpdate arg-0 arg-1 arg-2 e-28) (lambda (bind-1) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 5 e-25 e-26 bind-0 bind-1))))))))))) ((6) (let ((e-30 (vector-ref sc0 1))) (let ((e-31 (vector-ref sc0 2))) (let ((e-32 (vector-ref sc0 3))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Normalise-tryUpdate arg-0 arg-1 arg-2 e-32) (lambda (bind-0) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 6 e-30 e-31 bind-0)))))))) ((7) (let ((e-34 (vector-ref sc0 1))) (let ((e-35 (vector-ref sc0 2))) (let ((e-36 (vector-ref sc0 3))) (let ((e-37 (vector-ref sc0 4))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Normalise-tryUpdate arg-0 arg-1 arg-2 e-36) (lambda (bind-0) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Normalise-tryUpdate arg-0 arg-1 arg-2 e-37) (lambda (bind-1) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 7 e-34 e-35 bind-0 bind-1))))))))))) ((8) (let ((e-39 (vector-ref sc0 1))) (let ((e-40 (vector-ref sc0 2))) (let ((e-41 (vector-ref sc0 3))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Normalise-tryUpdate arg-0 arg-1 arg-2 e-41) (lambda (bind-0) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 8 e-39 e-40 bind-0)))))))) ((9) (let ((e-43 (vector-ref sc0 1))) (let ((e-44 (vector-ref sc0 2))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 9 e-43 e-44))))) ((10) (let ((e-46 (vector-ref sc0 1))) (let ((e-47 (vector-ref sc0 2))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 10 e-46 e-47))))) (else (let ((e-49 (vector-ref sc0 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 11 e-49)))))))) -(define CoreC-45Normalise-tryAlt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((2) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((e-6 (vector-ref sc0 4))) (let ((e-7 (vector-ref sc0 5))) (let ((sc1 arg-11)) (case (vector-ref sc1 0) ((0) (let ((e-30 (vector-ref sc1 1))) (let ((e-31 (vector-ref sc1 2))) (let ((e-32 (vector-ref sc1 3))) (let ((e-33 (vector-ref sc1 4))) (CoreC-45Normalise-case--tryAlt-3579 arg-0 arg-1 arg-3 e-3 e-7 e-6 e-5 e-4 e-32 arg-4 e-33 e-31 e-30 arg-9 arg-8 arg-7 arg-6 arg-5 arg-2 (PreludeC-45EqOrd-u--C-61C-61_Eq_Int e-31 e-5)))))))(else (let ((sc1 arg-11)) (case (vector-ref sc1 0) ((3) (let ((e-1 (vector-ref sc1 1))) (CoreC-45Normalise-case--tryAlt-4176 arg-0 arg-1 arg-3 arg-4 e-1 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-2 (CoreC-45Normalise-n--8889-4126-u--concrete arg-0 arg-1 arg-3 arg-4 e-1 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-2 arg-10))))(else (lambda (eta-0) (vector 1 (vector 2 ))))))))))))))) ((3) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (let ((e-12 (vector-ref sc0 4))) (let ((e-13 (vector-ref sc0 5))) (let ((sc1 arg-11)) (case (vector-ref sc1 0) ((0) (let ((e-35 (vector-ref sc1 1))) (let ((e-36 (vector-ref sc1 2))) (let ((e-37 (vector-ref sc1 3))) (let ((e-38 (vector-ref sc1 4))) (CoreC-45Normalise-case--tryAlt-3689 arg-0 arg-1 arg-3 e-9 e-13 e-12 e-11 e-10 e-37 arg-4 e-38 e-36 e-35 arg-9 arg-8 arg-7 arg-6 arg-5 arg-2 (CoreC-45Name-u--C-61C-61_Eq_Name e-10 e-35)))))))(else (let ((sc1 arg-11)) (case (vector-ref sc1 0) ((3) (let ((e-1 (vector-ref sc1 1))) (CoreC-45Normalise-case--tryAlt-4176 arg-0 arg-1 arg-3 arg-4 e-1 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-2 (CoreC-45Normalise-n--8889-4126-u--concrete arg-0 arg-1 arg-3 arg-4 e-1 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-2 arg-10))))(else (lambda (eta-0) (vector 1 (vector 2 ))))))))))))))) ((8) (let ((e-15 (vector-ref sc0 1))) (let ((e-16 (vector-ref sc0 2))) (let ((sc1 arg-11)) (case (vector-ref sc1 0) ((0) (let ((e-40 (vector-ref sc1 1))) (let ((e-41 (vector-ref sc1 2))) (let ((e-42 (vector-ref sc1 3))) (let ((e-43 (vector-ref sc1 4))) (let ((sc2 e-42)) (if (null? sc2) (let ((u--args '())) (CoreC-45Normalise-case--caseC-32blockC-32inC-32tryAlt-3841 arg-0 arg-1 arg-2 arg-3 arg-4 e-15 e-16 e-43 e-41 e-40 arg-9 arg-8 arg-7 arg-6 arg-5 u--args (CoreC-45Name-u--C-61C-61_Eq_Name (vector 1 (CoreC-45TT-u--show_Show_Constant e-16)) e-40))) (lambda (eta-0) (vector 1 (vector 1 )))))))))) ((2) (let ((e-45 (vector-ref sc1 1))) (let ((e-46 (vector-ref sc1 2))) (CoreC-45Normalise-case--tryAlt-4055 arg-0 arg-1 arg-2 arg-3 arg-4 e-15 e-16 e-46 e-45 arg-9 arg-8 arg-7 arg-6 arg-5 (CoreC-45TT-u--C-61C-61_Eq_Constant e-45 e-16)))))(else (let ((sc1 arg-11)) (case (vector-ref sc1 0) ((3) (let ((e-1 (vector-ref sc1 1))) (CoreC-45Normalise-case--tryAlt-4176 arg-0 arg-1 arg-3 arg-4 e-1 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-2 (CoreC-45Normalise-n--8889-4126-u--concrete arg-0 arg-1 arg-3 arg-4 e-1 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-2 arg-10))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))))))) ((10) (let ((sc1 arg-11)) (case (vector-ref sc1 0) ((0) (let ((e-48 (vector-ref sc1 1))) (let ((e-50 (vector-ref sc1 3))) (let ((e-51 (vector-ref sc1 4))) (let ((sc2 e-48)) (case (vector-ref sc2 0) ((1) (let ((e-52 (vector-ref sc2 1))) (let ((sc3 e-52)) (cond ((equal? sc3 "Type") (let ((sc4 e-50)) (if (null? sc4) (CoreC-45Normalise-evalTree arg-0 arg-1 arg-2 arg-4 arg-3 arg-5 arg-6 arg-7 arg-8 arg-9 e-51) (let ((sc5 arg-11)) (case (vector-ref sc5 0) ((3) (let ((e-1 (vector-ref sc5 1))) (CoreC-45Normalise-case--tryAlt-4176 arg-0 arg-1 arg-3 arg-4 e-1 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-2 (CoreC-45Normalise-n--8889-4126-u--concrete arg-0 arg-1 arg-3 arg-4 e-1 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-2 arg-10))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))))(else (let ((sc3 arg-11)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (CoreC-45Normalise-case--tryAlt-4176 arg-0 arg-1 arg-3 arg-4 e-1 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-2 (CoreC-45Normalise-n--8889-4126-u--concrete arg-0 arg-1 arg-3 arg-4 e-1 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-2 arg-10))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))))))(else (let ((sc2 arg-11)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (CoreC-45Normalise-case--tryAlt-4176 arg-0 arg-1 arg-3 arg-4 e-1 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-2 (CoreC-45Normalise-n--8889-4126-u--concrete arg-0 arg-1 arg-3 arg-4 e-1 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-2 arg-10))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))))))))(else (let ((sc1 arg-11)) (case (vector-ref sc1 0) ((3) (let ((e-1 (vector-ref sc1 1))) (CoreC-45Normalise-case--tryAlt-4176 arg-0 arg-1 arg-3 arg-4 e-1 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-2 (CoreC-45Normalise-n--8889-4126-u--concrete arg-0 arg-1 arg-3 arg-4 e-1 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-2 arg-10))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))))) ((0) (let ((e-20 (vector-ref sc0 1))) (let ((e-21 (vector-ref sc0 2))) (let ((e-22 (vector-ref sc0 3))) (let ((e-23 (vector-ref sc0 4))) (let ((sc1 e-22)) (case (vector-ref sc1 0) ((2) (let ((e-55 (vector-ref sc1 1))) (let ((e-56 (vector-ref sc1 2))) (let ((e-57 (vector-ref sc1 3))) (let ((e-58 (vector-ref sc1 4))) (let ((sc2 arg-11)) (case (vector-ref sc2 0) ((0) (let ((e-60 (vector-ref sc2 1))) (let ((e-62 (vector-ref sc2 3))) (let ((e-63 (vector-ref sc2 4))) (let ((sc3 e-60)) (case (vector-ref sc3 0) ((1) (let ((e-64 (vector-ref sc3 1))) (let ((sc4 e-64)) (cond ((equal? sc4 "->") (let ((sc5 e-62)) (if (null? sc5) (let ((sc6 arg-11)) (case (vector-ref sc6 0) ((3) (let ((e-1 (vector-ref sc6 1))) (CoreC-45Normalise-case--tryAlt-4176 arg-0 arg-1 arg-3 arg-4 e-1 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-2 (CoreC-45Normalise-n--8889-4126-u--concrete arg-0 arg-1 arg-3 arg-4 e-1 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-2 arg-10))))(else (lambda (eta-0) (vector 1 (vector 2 )))))) (let ((e-66 (car sc5))) (let ((e-67 (cdr sc5))) (let ((sc6 e-67)) (if (null? sc6) (let ((sc7 arg-11)) (case (vector-ref sc7 0) ((3) (let ((e-1 (vector-ref sc7 1))) (CoreC-45Normalise-case--tryAlt-4176 arg-0 arg-1 arg-3 arg-4 e-1 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-2 (CoreC-45Normalise-n--8889-4126-u--concrete arg-0 arg-1 arg-3 arg-4 e-1 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-2 arg-10))))(else (lambda (eta-0) (vector 1 (vector 2 )))))) (let ((e-69 (car sc6))) (let ((e-70 (cdr sc6))) (let ((sc7 e-70)) (if (null? sc7) (CoreC-45Normalise-evalConAlt arg-0 arg-1 arg-2 arg-4 arg-3 arg-5 arg-6 arg-7 arg-8 arg-9 (cons e-66 (cons e-69 '())) (cons (vector 1 e-58) (cons (vector 1 (vector 0 e-20 e-21 (vector 0 e-55 e-56 e-57 e-58) e-23)) '())) e-63) (let ((sc8 arg-11)) (case (vector-ref sc8 0) ((3) (let ((e-1 (vector-ref sc8 1))) (CoreC-45Normalise-case--tryAlt-4176 arg-0 arg-1 arg-3 arg-4 e-1 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-2 (CoreC-45Normalise-n--8889-4126-u--concrete arg-0 arg-1 arg-3 arg-4 e-1 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-2 arg-10))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))))))))))))(else (let ((sc4 arg-11)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (CoreC-45Normalise-case--tryAlt-4176 arg-0 arg-1 arg-3 arg-4 e-1 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-2 (CoreC-45Normalise-n--8889-4126-u--concrete arg-0 arg-1 arg-3 arg-4 e-1 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-2 arg-10))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))))))(else (let ((sc3 arg-11)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (CoreC-45Normalise-case--tryAlt-4176 arg-0 arg-1 arg-3 arg-4 e-1 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-2 (CoreC-45Normalise-n--8889-4126-u--concrete arg-0 arg-1 arg-3 arg-4 e-1 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-2 arg-10))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))))))))(else (let ((sc2 arg-11)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (CoreC-45Normalise-case--tryAlt-4176 arg-0 arg-1 arg-3 arg-4 e-1 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-2 (CoreC-45Normalise-n--8889-4126-u--concrete arg-0 arg-1 arg-3 arg-4 e-1 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-2 arg-10))))(else (lambda (eta-0) (vector 1 (vector 2 ))))))))))))))(else (let ((sc1 arg-11)) (case (vector-ref sc1 0) ((3) (let ((e-1 (vector-ref sc1 1))) (CoreC-45Normalise-case--tryAlt-4176 arg-0 arg-1 arg-3 arg-4 e-1 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-2 (CoreC-45Normalise-n--8889-4126-u--concrete arg-0 arg-1 arg-3 arg-4 e-1 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-2 arg-10))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))))))))) ((6) (let ((e-27 (vector-ref sc0 3))) (let ((e-28 (vector-ref sc0 4))) (let ((sc1 arg-11)) (case (vector-ref sc1 0) ((1) (let ((e-73 (vector-ref sc1 1))) (let ((e-74 (vector-ref sc1 2))) (let ((e-75 (vector-ref sc1 3))) (CoreC-45Normalise-evalTree arg-0 arg-1 arg-2 (cons e-73 (cons e-74 arg-4)) arg-3 arg-5 (cons e-27 (cons e-28 arg-6)) arg-7 arg-8 arg-9 e-75)))))(else (let ((sc1 arg-11)) (case (vector-ref sc1 0) ((3) (let ((e-1 (vector-ref sc1 1))) (CoreC-45Normalise-case--tryAlt-4176 arg-0 arg-1 arg-3 arg-4 e-1 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-2 (CoreC-45Normalise-n--8889-4126-u--concrete arg-0 arg-1 arg-3 arg-4 e-1 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-2 arg-10))))(else (lambda (eta-0) (vector 1 (vector 2 ))))))))))))(else (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (CoreC-45Normalise-case--tryAlt-4176 arg-0 arg-1 arg-3 arg-4 e-1 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-2 (CoreC-45Normalise-n--8889-4126-u--concrete arg-0 arg-1 arg-3 arg-4 e-1 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-2 arg-10))))(else (lambda (eta-0) (vector 1 (vector 2 ))))))))))) +(define CoreC-45Normalise-u--quoteGen_Quote_Closure (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-3 arg-5) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (CoreC-45Normalise-u--quoteGen_Quote_NF arg-0 arg-1 arg-2 arg-3 arg-4 e-5 ext-0))))))) +(define CoreC-45Normalise-u--convert_Convert_Term (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (CoreC-45Core-newRef (vector "Core.Normalise.QVar" ) 0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (CoreC-45Normalise-u--convGen_Convert_Term arg-0 arg-1 e-5 arg-2 arg-3 arg-4 arg-5 ext-0))))))) +(define CoreC-45Normalise-u--convert_Convert_NF (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (CoreC-45Core-newRef (vector "Core.Normalise.QVar" ) 0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) ((CoreC-45Normalise-u--convGen_Convert_NF arg-0 arg-1 e-5 arg-2 arg-3 arg-4 arg-5) ext-0))))))) +(define CoreC-45Normalise-u--convert_Convert_Closure (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (CoreC-45Core-newRef (vector "Core.Normalise.QVar" ) 0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (CoreC-45Normalise-u--convGen_Convert_Closure arg-0 arg-1 e-5 arg-2 arg-3 arg-4 arg-5 ext-0))))))) +(define CoreC-45Normalise-u--convGen_Convert_Term (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 ((CoreC-45Normalise-nf arg-0 arg-1 arg-3 arg-4 arg-5) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Normalise-nf arg-0 arg-1 arg-3 arg-4 arg-6) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) ((CoreC-45Normalise-u--convGen_Convert_NF arg-0 arg-1 arg-2 arg-3 arg-4 e-5 e-6) ext-0))))))))))) +(define CoreC-45Normalise-u--convGen_Convert_NF (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (case (vector-ref arg-5 0) ((0) (let ((e-97 (vector-ref arg-5 1))) (let ((e-98 (vector-ref arg-5 2))) (let ((e-99 (vector-ref arg-5 3))) (let ((e-100 (vector-ref arg-5 4))) (case (vector-ref arg-6 0) ((0) (let ((e-109 (vector-ref arg-6 3))) (let ((e-110 (vector-ref arg-6 4))) (lambda (eta-0) (let ((act-24 (CoreC-45Normalise-genName arg-2 "conv" eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((u--c (vector 0 '() (CoreC-45Value-defaultOpts) '() arg-4 (vector 1 e-97 (vector 0 ) e-5)))) (let ((act-25 ((CoreC-45Normalise-convBinders arg-0 arg-1 arg-2 arg-3 arg-4 e-99 e-109) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (cond ((equal? e-6 1) (let ((act-26 (((e-100 arg-3) u--c) eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (((e-110 arg-3) u--c) eta-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) ((CoreC-45Normalise-u--convGen_Convert_NF arg-0 arg-1 arg-2 arg-3 arg-4 e-7 e-8) eta-0)))))))))) (else (vector 1 0))))))))))))))))(else (case (vector-ref e-99 0) ((0) (let ((e-102 (vector-ref e-99 1))) (let ((e-103 (vector-ref e-99 2))) (let ((e-104 (vector-ref e-99 3))) (let ((e-105 (vector-ref e-99 4))) (lambda (eta-0) (let ((act-24 (CoreC-45Context-clearDefs arg-3 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (let ((act-25 (CoreC-45CoreC-45PiInfo-traverse (lambda (arg-7) (lambda (eta-1) (CoreC-45Normalise-u--quote_Quote_NF arg-0 arg-1 e-5 arg-4 arg-7 eta-1))) e-104 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Normalise-u--quote_Quote_NF arg-0 arg-1 e-5 arg-4 e-105 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (CoreC-45Normalise-u--quote_Quote_NF arg-0 arg-1 e-5 arg-4 arg-6 eta-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) ((CoreC-45Normalise-nf arg-0 arg-1 arg-3 arg-4 (vector 3 e-97 e-98 (vector 0 e-102 e-103 e-6 e-7) (vector 4 e-97 (CoreC-45TT-u--weaken_Weaken_Term e-8) (vector 0 e-97 '() 0)))) eta-0))))))))))))))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) ((CoreC-45Normalise-u--convGen_Convert_NF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-6) eta-0)))))))))))))))(else (case (vector-ref arg-6 0) ((0) (let ((e-87 (vector-ref arg-6 1))) (let ((e-88 (vector-ref arg-6 2))) (let ((e-89 (vector-ref arg-6 3))) (case (vector-ref e-89 0) ((0) (let ((e-92 (vector-ref e-89 1))) (let ((e-93 (vector-ref e-89 2))) (let ((e-94 (vector-ref e-89 3))) (let ((e-95 (vector-ref e-89 4))) (lambda (eta-0) (let ((act-24 (CoreC-45Context-clearDefs arg-3 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (let ((act-25 (CoreC-45CoreC-45PiInfo-traverse (lambda (arg-7) (lambda (eta-1) (CoreC-45Normalise-u--quote_Quote_NF arg-0 arg-1 e-5 arg-4 arg-7 eta-1))) e-94 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Normalise-u--quote_Quote_NF arg-0 arg-1 e-5 arg-4 e-95 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (CoreC-45Normalise-u--quote_Quote_NF arg-0 arg-1 e-5 arg-4 arg-5 eta-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) ((CoreC-45Normalise-nf arg-0 arg-1 arg-3 arg-4 (vector 3 e-87 e-88 (vector 0 e-92 e-93 e-6 e-7) (vector 4 e-87 (CoreC-45TT-u--weaken_Weaken_Term e-8) (vector 0 e-87 '() 0)))) eta-0))))))))))))))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) ((CoreC-45Normalise-u--convGen_Convert_NF arg-0 arg-1 arg-2 arg-3 arg-4 e-6 arg-6) eta-0)))))))))))))))(else (case (vector-ref arg-5 0) ((1) (let ((e-8 (vector-ref arg-5 1))) (let ((e-9 (vector-ref arg-5 2))) (let ((e-10 (vector-ref arg-5 3))) (case (vector-ref arg-6 0) ((1) (let ((e-49 (vector-ref arg-6 1))) (let ((e-50 (vector-ref arg-6 2))) (let ((e-51 (vector-ref arg-6 3))) (lambda (eta-0) (let ((act-24 ((CoreC-45Normalise-chkConvHead arg-0 arg-1 arg-2 arg-3 arg-4 e-9 e-50) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (cond ((equal? e-5 1) (CoreC-45Normalise-allConv arg-0 arg-1 arg-2 arg-3 arg-4 (CoreC-45Normalise-n--17764-12280-u--args1 arg-1 e-49 e-10 e-9 e-8 e-51 e-50 arg-4 arg-3 arg-2 arg-0) (CoreC-45Normalise-n--17764-12281-u--args2 arg-1 e-49 e-10 e-9 e-8 e-51 e-50 arg-4 arg-3 arg-2 arg-0) eta-0)) (else (CoreC-45Normalise-chkConvCaseBlock arg-0 arg-1 e-8 arg-2 arg-3 arg-4 e-9 (CoreC-45Normalise-n--17764-12280-u--args1 arg-1 e-49 e-10 e-9 e-8 e-51 e-50 arg-4 arg-3 arg-2 arg-0) e-50 (CoreC-45Normalise-n--17764-12281-u--args2 arg-1 e-49 e-10 e-9 e-8 e-51 e-50 arg-4 arg-3 arg-2 arg-0) eta-0))))))))))))(else (case (vector-ref arg-6 0) ((9) (lambda (eta-0) (vector 1 1)))(else (lambda (clam-0) (case (vector-ref arg-5 0) ((10) (case (vector-ref arg-6 0) ((10) (vector 1 1))(else (vector 1 0))))(else (vector 1 0)))))))))))) ((2) (let ((e-14 (vector-ref arg-5 3))) (let ((e-16 (vector-ref arg-5 5))) (case (vector-ref arg-6 0) ((2) (let ((e-55 (vector-ref arg-6 3))) (let ((e-57 (vector-ref arg-6 5))) (lambda (clam-1) (let ((sc4 (PreludeC-45EqOrd-u--C-61C-61_Eq_Int e-14 e-55))) (cond ((equal? sc4 1) (CoreC-45Normalise-allConv arg-0 arg-1 arg-2 arg-3 arg-4 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-16) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-57) clam-1)) (else (vector 1 0))))))))(else (case (vector-ref arg-6 0) ((9) (lambda (eta-0) (vector 1 1)))(else (lambda (clam-2) (case (vector-ref arg-5 0) ((10) (case (vector-ref arg-6 0) ((10) (vector 1 1))(else (vector 1 0))))(else (vector 1 0))))))))))) ((3) (let ((e-19 (vector-ref arg-5 2))) (let ((e-22 (vector-ref arg-5 5))) (case (vector-ref arg-6 0) ((3) (let ((e-60 (vector-ref arg-6 2))) (let ((e-63 (vector-ref arg-6 5))) (lambda (clam-3) (let ((sc4 (CoreC-45Name-u--C-61C-61_Eq_Name e-19 e-60))) (cond ((equal? sc4 1) (CoreC-45Normalise-allConv arg-0 arg-1 arg-2 arg-3 arg-4 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-22) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-63) clam-3)) (else (vector 1 0))))))))(else (case (vector-ref arg-6 0) ((9) (lambda (eta-0) (vector 1 1)))(else (lambda (clam-4) (case (vector-ref arg-5 0) ((10) (case (vector-ref arg-6 0) ((10) (vector 1 1))(else (vector 1 0))))(else (vector 1 0))))))))))) ((4) (let ((e-27 (vector-ref arg-5 4))) (case (vector-ref arg-6 0) ((4) (let ((e-68 (vector-ref arg-6 4))) (CoreC-45Normalise-u--convGen_Convert_NF arg-0 arg-1 arg-2 arg-3 arg-4 e-27 e-68)))(else (case (vector-ref arg-6 0) ((9) (lambda (eta-0) (vector 1 1)))(else (lambda (clam-5) (case (vector-ref arg-5 0) ((10) (case (vector-ref arg-6 0) ((10) (vector 1 1))(else (vector 1 0))))(else (vector 1 0)))))))))) ((5) (let ((e-30 (vector-ref arg-5 2))) (let ((e-31 (vector-ref arg-5 3))) (case (vector-ref arg-6 0) ((5) (let ((e-71 (vector-ref arg-6 2))) (let ((e-72 (vector-ref arg-6 3))) (let ((sc4 (CoreC-45TT-compatible e-30 e-71))) (cond ((equal? sc4 1) (CoreC-45Normalise-u--convGen_Convert_NF arg-0 arg-1 arg-2 arg-3 arg-4 e-31 e-72)) (else (lambda (eta-0) (vector 1 0))))))))(else (case (vector-ref arg-6 0) ((9) (lambda (eta-0) (vector 1 1)))(else (lambda (clam-6) (case (vector-ref arg-5 0) ((10) (case (vector-ref arg-6 0) ((10) (vector 1 1))(else (vector 1 0))))(else (vector 1 0))))))))))) ((6) (let ((e-34 (vector-ref arg-5 2))) (let ((e-36 (vector-ref arg-5 4))) (case (vector-ref arg-6 0) ((6) (let ((e-75 (vector-ref arg-6 2))) (let ((e-77 (vector-ref arg-6 4))) (lambda (clam-5) (let ((sc4 (CoreC-45TT-compatible e-34 e-75))) (cond ((equal? sc4 1) (let ((act-24 (cond ((equal? e-34 1) (vector 1 arg-3))(else (CoreC-45Context-clearDefs arg-3 clam-5))))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (CoreC-45Normalise-u--convGen_Convert_Closure arg-0 arg-1 arg-2 e-5 arg-4 e-36 e-77 clam-5)))))) (else (vector 1 0))))))))(else (case (vector-ref arg-6 0) ((9) (lambda (eta-0) (vector 1 1)))(else (lambda (clam-7) (case (vector-ref arg-5 0) ((10) (case (vector-ref arg-6 0) ((10) (vector 1 1))(else (vector 1 0))))(else (vector 1 0))))))))))) ((7) (let ((e-39 (vector-ref arg-5 2))) (let ((e-40 (vector-ref arg-5 3))) (let ((e-41 (vector-ref arg-5 4))) (case (vector-ref arg-6 0) ((7) (let ((e-80 (vector-ref arg-6 2))) (let ((e-81 (vector-ref arg-6 3))) (let ((e-82 (vector-ref arg-6 4))) (lambda (clam-7) (let ((sc4 (CoreC-45TT-compatible e-39 e-80))) (cond ((equal? sc4 1) (let ((act-24 ((CoreC-45Normalise-u--convGen_Convert_NF arg-0 arg-1 arg-2 arg-3 arg-4 e-40 e-81) clam-7))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (cond ((equal? e-5 1) (CoreC-45Normalise-allConv arg-0 arg-1 arg-2 arg-3 arg-4 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-41) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-82) clam-7)) (else (vector 1 0)))))))) (else (vector 1 0)))))))))(else (case (vector-ref arg-6 0) ((9) (lambda (eta-0) (vector 1 1)))(else (lambda (clam-8) (case (vector-ref arg-5 0) ((10) (case (vector-ref arg-6 0) ((10) (vector 1 1))(else (vector 1 0))))(else (vector 1 0)))))))))))) ((8) (let ((e-44 (vector-ref arg-5 2))) (case (vector-ref arg-6 0) ((8) (let ((e-85 (vector-ref arg-6 2))) (lambda (eta-0) (vector 1 (CoreC-45TT-u--C-61C-61_Eq_Constant e-44 e-85)))))(else (case (vector-ref arg-6 0) ((9) (lambda (eta-0) (vector 1 1)))(else (lambda (clam-9) (case (vector-ref arg-5 0) ((10) (case (vector-ref arg-6 0) ((10) (vector 1 1))(else (vector 1 0))))(else (vector 1 0)))))))))) ((9) (lambda (eta-0) (vector 1 1)))(else (case (vector-ref arg-6 0) ((9) (lambda (eta-0) (vector 1 1)))(else (lambda (clam-10) (case (vector-ref arg-5 0) ((10) (case (vector-ref arg-6 0) ((10) (vector 1 1))(else (vector 1 0))))(else (vector 1 0))))))))))))))(else (case (vector-ref arg-5 0) ((1) (let ((e-8 (vector-ref arg-5 1))) (let ((e-9 (vector-ref arg-5 2))) (let ((e-10 (vector-ref arg-5 3))) (case (vector-ref arg-6 0) ((1) (let ((e-49 (vector-ref arg-6 1))) (let ((e-50 (vector-ref arg-6 2))) (let ((e-51 (vector-ref arg-6 3))) (lambda (eta-0) (let ((act-24 ((CoreC-45Normalise-chkConvHead arg-0 arg-1 arg-2 arg-3 arg-4 e-9 e-50) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (cond ((equal? e-5 1) (CoreC-45Normalise-allConv arg-0 arg-1 arg-2 arg-3 arg-4 (CoreC-45Normalise-n--17764-12280-u--args1 arg-1 e-49 e-10 e-9 e-8 e-51 e-50 arg-4 arg-3 arg-2 arg-0) (CoreC-45Normalise-n--17764-12281-u--args2 arg-1 e-49 e-10 e-9 e-8 e-51 e-50 arg-4 arg-3 arg-2 arg-0) eta-0)) (else (CoreC-45Normalise-chkConvCaseBlock arg-0 arg-1 e-8 arg-2 arg-3 arg-4 e-9 (CoreC-45Normalise-n--17764-12280-u--args1 arg-1 e-49 e-10 e-9 e-8 e-51 e-50 arg-4 arg-3 arg-2 arg-0) e-50 (CoreC-45Normalise-n--17764-12281-u--args2 arg-1 e-49 e-10 e-9 e-8 e-51 e-50 arg-4 arg-3 arg-2 arg-0) eta-0))))))))))))(else (case (vector-ref arg-6 0) ((9) (lambda (eta-0) (vector 1 1)))(else (lambda (clam-11) (case (vector-ref arg-5 0) ((10) (case (vector-ref arg-6 0) ((10) (vector 1 1))(else (vector 1 0))))(else (vector 1 0)))))))))))) ((2) (let ((e-14 (vector-ref arg-5 3))) (let ((e-16 (vector-ref arg-5 5))) (case (vector-ref arg-6 0) ((2) (let ((e-55 (vector-ref arg-6 3))) (let ((e-57 (vector-ref arg-6 5))) (lambda (clam-12) (let ((sc3 (PreludeC-45EqOrd-u--C-61C-61_Eq_Int e-14 e-55))) (cond ((equal? sc3 1) (CoreC-45Normalise-allConv arg-0 arg-1 arg-2 arg-3 arg-4 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-16) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-57) clam-12)) (else (vector 1 0))))))))(else (case (vector-ref arg-6 0) ((9) (lambda (eta-0) (vector 1 1)))(else (lambda (clam-13) (case (vector-ref arg-5 0) ((10) (case (vector-ref arg-6 0) ((10) (vector 1 1))(else (vector 1 0))))(else (vector 1 0))))))))))) ((3) (let ((e-19 (vector-ref arg-5 2))) (let ((e-22 (vector-ref arg-5 5))) (case (vector-ref arg-6 0) ((3) (let ((e-60 (vector-ref arg-6 2))) (let ((e-63 (vector-ref arg-6 5))) (lambda (clam-14) (let ((sc3 (CoreC-45Name-u--C-61C-61_Eq_Name e-19 e-60))) (cond ((equal? sc3 1) (CoreC-45Normalise-allConv arg-0 arg-1 arg-2 arg-3 arg-4 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-22) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-63) clam-14)) (else (vector 1 0))))))))(else (case (vector-ref arg-6 0) ((9) (lambda (eta-0) (vector 1 1)))(else (lambda (clam-15) (case (vector-ref arg-5 0) ((10) (case (vector-ref arg-6 0) ((10) (vector 1 1))(else (vector 1 0))))(else (vector 1 0))))))))))) ((4) (let ((e-27 (vector-ref arg-5 4))) (case (vector-ref arg-6 0) ((4) (let ((e-68 (vector-ref arg-6 4))) (CoreC-45Normalise-u--convGen_Convert_NF arg-0 arg-1 arg-2 arg-3 arg-4 e-27 e-68)))(else (case (vector-ref arg-6 0) ((9) (lambda (eta-0) (vector 1 1)))(else (lambda (clam-16) (case (vector-ref arg-5 0) ((10) (case (vector-ref arg-6 0) ((10) (vector 1 1))(else (vector 1 0))))(else (vector 1 0)))))))))) ((5) (let ((e-30 (vector-ref arg-5 2))) (let ((e-31 (vector-ref arg-5 3))) (case (vector-ref arg-6 0) ((5) (let ((e-71 (vector-ref arg-6 2))) (let ((e-72 (vector-ref arg-6 3))) (let ((sc3 (CoreC-45TT-compatible e-30 e-71))) (cond ((equal? sc3 1) (CoreC-45Normalise-u--convGen_Convert_NF arg-0 arg-1 arg-2 arg-3 arg-4 e-31 e-72)) (else (lambda (eta-0) (vector 1 0))))))))(else (case (vector-ref arg-6 0) ((9) (lambda (eta-0) (vector 1 1)))(else (lambda (clam-17) (case (vector-ref arg-5 0) ((10) (case (vector-ref arg-6 0) ((10) (vector 1 1))(else (vector 1 0))))(else (vector 1 0))))))))))) ((6) (let ((e-34 (vector-ref arg-5 2))) (let ((e-36 (vector-ref arg-5 4))) (case (vector-ref arg-6 0) ((6) (let ((e-75 (vector-ref arg-6 2))) (let ((e-77 (vector-ref arg-6 4))) (lambda (clam-16) (let ((sc3 (CoreC-45TT-compatible e-34 e-75))) (cond ((equal? sc3 1) (let ((act-24 (cond ((equal? e-34 1) (vector 1 arg-3))(else (CoreC-45Context-clearDefs arg-3 clam-16))))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (CoreC-45Normalise-u--convGen_Convert_Closure arg-0 arg-1 arg-2 e-5 arg-4 e-36 e-77 clam-16)))))) (else (vector 1 0))))))))(else (case (vector-ref arg-6 0) ((9) (lambda (eta-0) (vector 1 1)))(else (lambda (clam-18) (case (vector-ref arg-5 0) ((10) (case (vector-ref arg-6 0) ((10) (vector 1 1))(else (vector 1 0))))(else (vector 1 0))))))))))) ((7) (let ((e-39 (vector-ref arg-5 2))) (let ((e-40 (vector-ref arg-5 3))) (let ((e-41 (vector-ref arg-5 4))) (case (vector-ref arg-6 0) ((7) (let ((e-80 (vector-ref arg-6 2))) (let ((e-81 (vector-ref arg-6 3))) (let ((e-82 (vector-ref arg-6 4))) (lambda (clam-18) (let ((sc3 (CoreC-45TT-compatible e-39 e-80))) (cond ((equal? sc3 1) (let ((act-24 ((CoreC-45Normalise-u--convGen_Convert_NF arg-0 arg-1 arg-2 arg-3 arg-4 e-40 e-81) clam-18))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (cond ((equal? e-5 1) (CoreC-45Normalise-allConv arg-0 arg-1 arg-2 arg-3 arg-4 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-41) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-82) clam-18)) (else (vector 1 0)))))))) (else (vector 1 0)))))))))(else (case (vector-ref arg-6 0) ((9) (lambda (eta-0) (vector 1 1)))(else (lambda (clam-19) (case (vector-ref arg-5 0) ((10) (case (vector-ref arg-6 0) ((10) (vector 1 1))(else (vector 1 0))))(else (vector 1 0)))))))))))) ((8) (let ((e-44 (vector-ref arg-5 2))) (case (vector-ref arg-6 0) ((8) (let ((e-85 (vector-ref arg-6 2))) (lambda (eta-0) (vector 1 (CoreC-45TT-u--C-61C-61_Eq_Constant e-44 e-85)))))(else (case (vector-ref arg-6 0) ((9) (lambda (eta-0) (vector 1 1)))(else (lambda (clam-20) (case (vector-ref arg-5 0) ((10) (case (vector-ref arg-6 0) ((10) (vector 1 1))(else (vector 1 0))))(else (vector 1 0)))))))))) ((9) (lambda (eta-0) (vector 1 1)))(else (case (vector-ref arg-6 0) ((9) (lambda (eta-0) (vector 1 1)))(else (lambda (clam-21) (case (vector-ref arg-5 0) ((10) (case (vector-ref arg-6 0) ((10) (vector 1 1))(else (vector 1 0))))(else (vector 1 0)))))))))))))))))))(else (case (vector-ref arg-6 0) ((0) (let ((e-87 (vector-ref arg-6 1))) (let ((e-88 (vector-ref arg-6 2))) (let ((e-89 (vector-ref arg-6 3))) (case (vector-ref e-89 0) ((0) (let ((e-92 (vector-ref e-89 1))) (let ((e-93 (vector-ref e-89 2))) (let ((e-94 (vector-ref e-89 3))) (let ((e-95 (vector-ref e-89 4))) (lambda (eta-0) (let ((act-24 (CoreC-45Context-clearDefs arg-3 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (let ((act-25 (CoreC-45CoreC-45PiInfo-traverse (lambda (arg-7) (lambda (eta-1) (CoreC-45Normalise-u--quote_Quote_NF arg-0 arg-1 e-5 arg-4 arg-7 eta-1))) e-94 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Normalise-u--quote_Quote_NF arg-0 arg-1 e-5 arg-4 e-95 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (CoreC-45Normalise-u--quote_Quote_NF arg-0 arg-1 e-5 arg-4 arg-5 eta-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) ((CoreC-45Normalise-nf arg-0 arg-1 arg-3 arg-4 (vector 3 e-87 e-88 (vector 0 e-92 e-93 e-6 e-7) (vector 4 e-87 (CoreC-45TT-u--weaken_Weaken_Term e-8) (vector 0 e-87 '() 0)))) eta-0))))))))))))))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) ((CoreC-45Normalise-u--convGen_Convert_NF arg-0 arg-1 arg-2 arg-3 arg-4 e-6 arg-6) eta-0)))))))))))))))(else (case (vector-ref arg-5 0) ((1) (let ((e-8 (vector-ref arg-5 1))) (let ((e-9 (vector-ref arg-5 2))) (let ((e-10 (vector-ref arg-5 3))) (case (vector-ref arg-6 0) ((1) (let ((e-49 (vector-ref arg-6 1))) (let ((e-50 (vector-ref arg-6 2))) (let ((e-51 (vector-ref arg-6 3))) (lambda (eta-0) (let ((act-24 ((CoreC-45Normalise-chkConvHead arg-0 arg-1 arg-2 arg-3 arg-4 e-9 e-50) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (cond ((equal? e-5 1) (CoreC-45Normalise-allConv arg-0 arg-1 arg-2 arg-3 arg-4 (CoreC-45Normalise-n--17764-12280-u--args1 arg-1 e-49 e-10 e-9 e-8 e-51 e-50 arg-4 arg-3 arg-2 arg-0) (CoreC-45Normalise-n--17764-12281-u--args2 arg-1 e-49 e-10 e-9 e-8 e-51 e-50 arg-4 arg-3 arg-2 arg-0) eta-0)) (else (CoreC-45Normalise-chkConvCaseBlock arg-0 arg-1 e-8 arg-2 arg-3 arg-4 e-9 (CoreC-45Normalise-n--17764-12280-u--args1 arg-1 e-49 e-10 e-9 e-8 e-51 e-50 arg-4 arg-3 arg-2 arg-0) e-50 (CoreC-45Normalise-n--17764-12281-u--args2 arg-1 e-49 e-10 e-9 e-8 e-51 e-50 arg-4 arg-3 arg-2 arg-0) eta-0))))))))))))(else (case (vector-ref arg-6 0) ((9) (lambda (eta-0) (vector 1 1)))(else (lambda (clam-22) (case (vector-ref arg-5 0) ((10) (case (vector-ref arg-6 0) ((10) (vector 1 1))(else (vector 1 0))))(else (vector 1 0)))))))))))) ((2) (let ((e-14 (vector-ref arg-5 3))) (let ((e-16 (vector-ref arg-5 5))) (case (vector-ref arg-6 0) ((2) (let ((e-55 (vector-ref arg-6 3))) (let ((e-57 (vector-ref arg-6 5))) (lambda (clam-23) (let ((sc3 (PreludeC-45EqOrd-u--C-61C-61_Eq_Int e-14 e-55))) (cond ((equal? sc3 1) (CoreC-45Normalise-allConv arg-0 arg-1 arg-2 arg-3 arg-4 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-16) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-57) clam-23)) (else (vector 1 0))))))))(else (case (vector-ref arg-6 0) ((9) (lambda (eta-0) (vector 1 1)))(else (lambda (clam-24) (case (vector-ref arg-5 0) ((10) (case (vector-ref arg-6 0) ((10) (vector 1 1))(else (vector 1 0))))(else (vector 1 0))))))))))) ((3) (let ((e-19 (vector-ref arg-5 2))) (let ((e-22 (vector-ref arg-5 5))) (case (vector-ref arg-6 0) ((3) (let ((e-60 (vector-ref arg-6 2))) (let ((e-63 (vector-ref arg-6 5))) (lambda (clam-25) (let ((sc3 (CoreC-45Name-u--C-61C-61_Eq_Name e-19 e-60))) (cond ((equal? sc3 1) (CoreC-45Normalise-allConv arg-0 arg-1 arg-2 arg-3 arg-4 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-22) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-63) clam-25)) (else (vector 1 0))))))))(else (case (vector-ref arg-6 0) ((9) (lambda (eta-0) (vector 1 1)))(else (lambda (clam-26) (case (vector-ref arg-5 0) ((10) (case (vector-ref arg-6 0) ((10) (vector 1 1))(else (vector 1 0))))(else (vector 1 0))))))))))) ((4) (let ((e-27 (vector-ref arg-5 4))) (case (vector-ref arg-6 0) ((4) (let ((e-68 (vector-ref arg-6 4))) (CoreC-45Normalise-u--convGen_Convert_NF arg-0 arg-1 arg-2 arg-3 arg-4 e-27 e-68)))(else (case (vector-ref arg-6 0) ((9) (lambda (eta-0) (vector 1 1)))(else (lambda (clam-27) (case (vector-ref arg-5 0) ((10) (case (vector-ref arg-6 0) ((10) (vector 1 1))(else (vector 1 0))))(else (vector 1 0)))))))))) ((5) (let ((e-30 (vector-ref arg-5 2))) (let ((e-31 (vector-ref arg-5 3))) (case (vector-ref arg-6 0) ((5) (let ((e-71 (vector-ref arg-6 2))) (let ((e-72 (vector-ref arg-6 3))) (let ((sc3 (CoreC-45TT-compatible e-30 e-71))) (cond ((equal? sc3 1) (CoreC-45Normalise-u--convGen_Convert_NF arg-0 arg-1 arg-2 arg-3 arg-4 e-31 e-72)) (else (lambda (eta-0) (vector 1 0))))))))(else (case (vector-ref arg-6 0) ((9) (lambda (eta-0) (vector 1 1)))(else (lambda (clam-28) (case (vector-ref arg-5 0) ((10) (case (vector-ref arg-6 0) ((10) (vector 1 1))(else (vector 1 0))))(else (vector 1 0))))))))))) ((6) (let ((e-34 (vector-ref arg-5 2))) (let ((e-36 (vector-ref arg-5 4))) (case (vector-ref arg-6 0) ((6) (let ((e-75 (vector-ref arg-6 2))) (let ((e-77 (vector-ref arg-6 4))) (lambda (clam-27) (let ((sc3 (CoreC-45TT-compatible e-34 e-75))) (cond ((equal? sc3 1) (let ((act-24 (cond ((equal? e-34 1) (vector 1 arg-3))(else (CoreC-45Context-clearDefs arg-3 clam-27))))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (CoreC-45Normalise-u--convGen_Convert_Closure arg-0 arg-1 arg-2 e-5 arg-4 e-36 e-77 clam-27)))))) (else (vector 1 0))))))))(else (case (vector-ref arg-6 0) ((9) (lambda (eta-0) (vector 1 1)))(else (lambda (clam-29) (case (vector-ref arg-5 0) ((10) (case (vector-ref arg-6 0) ((10) (vector 1 1))(else (vector 1 0))))(else (vector 1 0))))))))))) ((7) (let ((e-39 (vector-ref arg-5 2))) (let ((e-40 (vector-ref arg-5 3))) (let ((e-41 (vector-ref arg-5 4))) (case (vector-ref arg-6 0) ((7) (let ((e-80 (vector-ref arg-6 2))) (let ((e-81 (vector-ref arg-6 3))) (let ((e-82 (vector-ref arg-6 4))) (lambda (clam-29) (let ((sc3 (CoreC-45TT-compatible e-39 e-80))) (cond ((equal? sc3 1) (let ((act-24 ((CoreC-45Normalise-u--convGen_Convert_NF arg-0 arg-1 arg-2 arg-3 arg-4 e-40 e-81) clam-29))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (cond ((equal? e-5 1) (CoreC-45Normalise-allConv arg-0 arg-1 arg-2 arg-3 arg-4 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-41) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-82) clam-29)) (else (vector 1 0)))))))) (else (vector 1 0)))))))))(else (case (vector-ref arg-6 0) ((9) (lambda (eta-0) (vector 1 1)))(else (lambda (clam-30) (case (vector-ref arg-5 0) ((10) (case (vector-ref arg-6 0) ((10) (vector 1 1))(else (vector 1 0))))(else (vector 1 0)))))))))))) ((8) (let ((e-44 (vector-ref arg-5 2))) (case (vector-ref arg-6 0) ((8) (let ((e-85 (vector-ref arg-6 2))) (lambda (eta-0) (vector 1 (CoreC-45TT-u--C-61C-61_Eq_Constant e-44 e-85)))))(else (case (vector-ref arg-6 0) ((9) (lambda (eta-0) (vector 1 1)))(else (lambda (clam-31) (case (vector-ref arg-5 0) ((10) (case (vector-ref arg-6 0) ((10) (vector 1 1))(else (vector 1 0))))(else (vector 1 0)))))))))) ((9) (lambda (eta-0) (vector 1 1)))(else (case (vector-ref arg-6 0) ((9) (lambda (eta-0) (vector 1 1)))(else (lambda (clam-32) (case (vector-ref arg-5 0) ((10) (case (vector-ref arg-6 0) ((10) (vector 1 1))(else (vector 1 0))))(else (vector 1 0))))))))))))))(else (case (vector-ref arg-5 0) ((1) (let ((e-8 (vector-ref arg-5 1))) (let ((e-9 (vector-ref arg-5 2))) (let ((e-10 (vector-ref arg-5 3))) (case (vector-ref arg-6 0) ((1) (let ((e-49 (vector-ref arg-6 1))) (let ((e-50 (vector-ref arg-6 2))) (let ((e-51 (vector-ref arg-6 3))) (lambda (eta-0) (let ((act-24 ((CoreC-45Normalise-chkConvHead arg-0 arg-1 arg-2 arg-3 arg-4 e-9 e-50) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (cond ((equal? e-5 1) (CoreC-45Normalise-allConv arg-0 arg-1 arg-2 arg-3 arg-4 (CoreC-45Normalise-n--17764-12280-u--args1 arg-1 e-49 e-10 e-9 e-8 e-51 e-50 arg-4 arg-3 arg-2 arg-0) (CoreC-45Normalise-n--17764-12281-u--args2 arg-1 e-49 e-10 e-9 e-8 e-51 e-50 arg-4 arg-3 arg-2 arg-0) eta-0)) (else (CoreC-45Normalise-chkConvCaseBlock arg-0 arg-1 e-8 arg-2 arg-3 arg-4 e-9 (CoreC-45Normalise-n--17764-12280-u--args1 arg-1 e-49 e-10 e-9 e-8 e-51 e-50 arg-4 arg-3 arg-2 arg-0) e-50 (CoreC-45Normalise-n--17764-12281-u--args2 arg-1 e-49 e-10 e-9 e-8 e-51 e-50 arg-4 arg-3 arg-2 arg-0) eta-0))))))))))))(else (case (vector-ref arg-6 0) ((9) (lambda (eta-0) (vector 1 1)))(else (lambda (clam-33) (case (vector-ref arg-5 0) ((10) (case (vector-ref arg-6 0) ((10) (vector 1 1))(else (vector 1 0))))(else (vector 1 0)))))))))))) ((2) (let ((e-14 (vector-ref arg-5 3))) (let ((e-16 (vector-ref arg-5 5))) (case (vector-ref arg-6 0) ((2) (let ((e-55 (vector-ref arg-6 3))) (let ((e-57 (vector-ref arg-6 5))) (lambda (clam-34) (let ((sc2 (PreludeC-45EqOrd-u--C-61C-61_Eq_Int e-14 e-55))) (cond ((equal? sc2 1) (CoreC-45Normalise-allConv arg-0 arg-1 arg-2 arg-3 arg-4 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-16) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-57) clam-34)) (else (vector 1 0))))))))(else (case (vector-ref arg-6 0) ((9) (lambda (eta-0) (vector 1 1)))(else (lambda (clam-35) (case (vector-ref arg-5 0) ((10) (case (vector-ref arg-6 0) ((10) (vector 1 1))(else (vector 1 0))))(else (vector 1 0))))))))))) ((3) (let ((e-19 (vector-ref arg-5 2))) (let ((e-22 (vector-ref arg-5 5))) (case (vector-ref arg-6 0) ((3) (let ((e-60 (vector-ref arg-6 2))) (let ((e-63 (vector-ref arg-6 5))) (lambda (clam-36) (let ((sc2 (CoreC-45Name-u--C-61C-61_Eq_Name e-19 e-60))) (cond ((equal? sc2 1) (CoreC-45Normalise-allConv arg-0 arg-1 arg-2 arg-3 arg-4 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-22) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-63) clam-36)) (else (vector 1 0))))))))(else (case (vector-ref arg-6 0) ((9) (lambda (eta-0) (vector 1 1)))(else (lambda (clam-37) (case (vector-ref arg-5 0) ((10) (case (vector-ref arg-6 0) ((10) (vector 1 1))(else (vector 1 0))))(else (vector 1 0))))))))))) ((4) (let ((e-27 (vector-ref arg-5 4))) (case (vector-ref arg-6 0) ((4) (let ((e-68 (vector-ref arg-6 4))) (CoreC-45Normalise-u--convGen_Convert_NF arg-0 arg-1 arg-2 arg-3 arg-4 e-27 e-68)))(else (case (vector-ref arg-6 0) ((9) (lambda (eta-0) (vector 1 1)))(else (lambda (clam-38) (case (vector-ref arg-5 0) ((10) (case (vector-ref arg-6 0) ((10) (vector 1 1))(else (vector 1 0))))(else (vector 1 0)))))))))) ((5) (let ((e-30 (vector-ref arg-5 2))) (let ((e-31 (vector-ref arg-5 3))) (case (vector-ref arg-6 0) ((5) (let ((e-71 (vector-ref arg-6 2))) (let ((e-72 (vector-ref arg-6 3))) (let ((sc2 (CoreC-45TT-compatible e-30 e-71))) (cond ((equal? sc2 1) (CoreC-45Normalise-u--convGen_Convert_NF arg-0 arg-1 arg-2 arg-3 arg-4 e-31 e-72)) (else (lambda (eta-0) (vector 1 0))))))))(else (case (vector-ref arg-6 0) ((9) (lambda (eta-0) (vector 1 1)))(else (lambda (clam-39) (case (vector-ref arg-5 0) ((10) (case (vector-ref arg-6 0) ((10) (vector 1 1))(else (vector 1 0))))(else (vector 1 0))))))))))) ((6) (let ((e-34 (vector-ref arg-5 2))) (let ((e-36 (vector-ref arg-5 4))) (case (vector-ref arg-6 0) ((6) (let ((e-75 (vector-ref arg-6 2))) (let ((e-77 (vector-ref arg-6 4))) (lambda (clam-38) (let ((sc2 (CoreC-45TT-compatible e-34 e-75))) (cond ((equal? sc2 1) (let ((act-24 (cond ((equal? e-34 1) (vector 1 arg-3))(else (CoreC-45Context-clearDefs arg-3 clam-38))))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (CoreC-45Normalise-u--convGen_Convert_Closure arg-0 arg-1 arg-2 e-5 arg-4 e-36 e-77 clam-38)))))) (else (vector 1 0))))))))(else (case (vector-ref arg-6 0) ((9) (lambda (eta-0) (vector 1 1)))(else (lambda (clam-40) (case (vector-ref arg-5 0) ((10) (case (vector-ref arg-6 0) ((10) (vector 1 1))(else (vector 1 0))))(else (vector 1 0))))))))))) ((7) (let ((e-39 (vector-ref arg-5 2))) (let ((e-40 (vector-ref arg-5 3))) (let ((e-41 (vector-ref arg-5 4))) (case (vector-ref arg-6 0) ((7) (let ((e-80 (vector-ref arg-6 2))) (let ((e-81 (vector-ref arg-6 3))) (let ((e-82 (vector-ref arg-6 4))) (lambda (clam-40) (let ((sc2 (CoreC-45TT-compatible e-39 e-80))) (cond ((equal? sc2 1) (let ((act-24 ((CoreC-45Normalise-u--convGen_Convert_NF arg-0 arg-1 arg-2 arg-3 arg-4 e-40 e-81) clam-40))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (cond ((equal? e-5 1) (CoreC-45Normalise-allConv arg-0 arg-1 arg-2 arg-3 arg-4 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-41) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-82) clam-40)) (else (vector 1 0)))))))) (else (vector 1 0)))))))))(else (case (vector-ref arg-6 0) ((9) (lambda (eta-0) (vector 1 1)))(else (lambda (clam-41) (case (vector-ref arg-5 0) ((10) (case (vector-ref arg-6 0) ((10) (vector 1 1))(else (vector 1 0))))(else (vector 1 0)))))))))))) ((8) (let ((e-44 (vector-ref arg-5 2))) (case (vector-ref arg-6 0) ((8) (let ((e-85 (vector-ref arg-6 2))) (lambda (eta-0) (vector 1 (CoreC-45TT-u--C-61C-61_Eq_Constant e-44 e-85)))))(else (case (vector-ref arg-6 0) ((9) (lambda (eta-0) (vector 1 1)))(else (lambda (clam-42) (case (vector-ref arg-5 0) ((10) (case (vector-ref arg-6 0) ((10) (vector 1 1))(else (vector 1 0))))(else (vector 1 0)))))))))) ((9) (lambda (eta-0) (vector 1 1)))(else (case (vector-ref arg-6 0) ((9) (lambda (eta-0) (vector 1 1)))(else (lambda (clam-43) (case (vector-ref arg-5 0) ((10) (case (vector-ref arg-6 0) ((10) (vector 1 1))(else (vector 1 0))))(else (vector 1 0)))))))))))))) +(define CoreC-45Normalise-u--convGen_Convert_Closure (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-3 arg-5) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-3 arg-6) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) ((CoreC-45Normalise-u--convGen_Convert_NF arg-0 arg-1 arg-2 arg-3 arg-4 e-5 e-6) ext-0))))))))))) +(define CoreC-45Normalise-updateLocal (lambda (arg-0 arg-1 arg-5 arg-6 arg-7 arg-9 arg-10) (cond ((equal? arg-7 0) (if (null? arg-9) arg-9 (let ((e-5 (cdr arg-9))) (cons (vector 1 arg-5 arg-6 arg-10) e-5))))(else (let ((e-0 (- arg-7 1))) (if (null? arg-9) arg-9 (let ((e-9 (car arg-9))) (let ((e-10 (cdr arg-9))) (cons e-9 (CoreC-45Normalise-updateLocal arg-0 arg-1 arg-5 arg-6 e-0 e-10 arg-10)))))))))) +(define CoreC-45Normalise-updateLimit (lambda (arg-0 arg-1 arg-2 ext-0) (case (vector-ref arg-0 0) ((1) (vector 1 (let ((sc1 (DataC-45List-isNil (let ((e-6 (vector-ref arg-2 6))) e-6)))) (cond ((equal? sc1 1) (box arg-2)) (else (let ((sc2 (DataC-45List-lookup (cons (lambda (arg-3) (lambda (arg-4) (CoreC-45Name-u--C-61C-61_Eq_Name arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (CoreC-45Name-u--C-47C-61_Eq_Name arg-4 arg-5)))) arg-1 (let ((e-6 (vector-ref arg-2 6))) e-6)))) (if (null? sc2) '() (let ((e-2 (unbox sc2))) (cond ((equal? e-2 0) '())(else (let ((e-3 (- e-2 1))) (box (let ((e-0 (vector-ref arg-2 0))) (let ((e-1 (vector-ref arg-2 1))) (let ((e-9 (vector-ref arg-2 2))) (let ((e-8 (vector-ref arg-2 3))) (let ((e-4 (vector-ref arg-2 4))) (let ((e-5 (vector-ref arg-2 5))) (let ((e-6 (vector-ref arg-2 6))) (let ((e-7 (vector-ref arg-2 7))) (vector e-0 e-1 e-9 e-8 e-4 e-5 (CoreC-45Normalise-n--6266-1869-u--set arg-2 arg-1 arg-1 e-3 e-6) e-7)))))))))))))))))))))(else (vector 1 (box arg-2)))))) +(define CoreC-45Normalise-tryUpdate (lambda (arg-0 arg-1 arg-2 arg-3) (case (vector-ref arg-3 0) ((0) (let ((e-2 (vector-ref arg-3 1))) (let ((e-3 (vector-ref arg-3 2))) (let ((e-4 (vector-ref arg-3 3))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Normalise-n--13086-7933-u--findIdx arg-0 arg-1 e-4 e-3 e-2 arg-2 arg-2 e-4) (lambda (_-0) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 0 e-2 e-3 _-0)))))))) ((1) (let ((e-7 (vector-ref arg-3 1))) (let ((e-8 (vector-ref arg-3 2))) (let ((e-9 (vector-ref arg-3 3))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 1 e-7 e-8 e-9)))))) ((2) (let ((e-11 (vector-ref arg-3 1))) (let ((e-12 (vector-ref arg-3 2))) (let ((e-13 (vector-ref arg-3 3))) (let ((e-14 (vector-ref arg-3 4))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (PreludeC-45Types-u--traverse_Traversable_List (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (PreludeC-45Types-u--map_Functor_Maybe u--func arg-133))))) (lambda (u--a) (lambda (arg-527) (PreludeC-45Types-u--pure_Applicative_Maybe arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (PreludeC-45Types-u--C-60C-42C-62_Applicative_Maybe arg-528 arg-530)))))) (lambda (eta-0) (CoreC-45Normalise-tryUpdate arg-0 arg-1 arg-2 eta-0)) e-14) (lambda (bind-0) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 2 e-11 e-12 e-13 bind-0))))))))) ((3) (let ((e-16 (vector-ref arg-3 1))) (let ((e-17 (vector-ref arg-3 2))) (let ((e-18 (vector-ref arg-3 3))) (let ((e-19 (vector-ref arg-3 4))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Normalise-n--13086-8102-u--tryUpdateB arg-0 arg-1 e-17 e-19 e-18 e-16 arg-2 e-18) (lambda (u--bC-39) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Normalise-tryUpdate (cons e-17 arg-0) (cons e-17 arg-1) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45Normalise-n--13086-8103-u--weakenP arg-0 arg-1 e-17 e-19 e-18 e-16 arg-2 e-17 eta-0)) arg-2) e-19) (lambda (bind-0) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 3 e-16 e-17 u--bC-39 bind-0))))))))))) ((4) (let ((e-21 (vector-ref arg-3 1))) (let ((e-22 (vector-ref arg-3 2))) (let ((e-23 (vector-ref arg-3 3))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Normalise-tryUpdate arg-0 arg-1 arg-2 e-22) (lambda (bind-0) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Normalise-tryUpdate arg-0 arg-1 arg-2 e-23) (lambda (bind-1) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 4 e-21 bind-0 bind-1)))))))))) ((5) (let ((e-25 (vector-ref arg-3 1))) (let ((e-26 (vector-ref arg-3 2))) (let ((e-27 (vector-ref arg-3 3))) (let ((e-28 (vector-ref arg-3 4))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Normalise-tryUpdate arg-0 arg-1 arg-2 e-27) (lambda (bind-0) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Normalise-tryUpdate arg-0 arg-1 arg-2 e-28) (lambda (bind-1) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 5 e-25 e-26 bind-0 bind-1))))))))))) ((6) (let ((e-30 (vector-ref arg-3 1))) (let ((e-31 (vector-ref arg-3 2))) (let ((e-32 (vector-ref arg-3 3))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Normalise-tryUpdate arg-0 arg-1 arg-2 e-32) (lambda (bind-0) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 6 e-30 e-31 bind-0)))))))) ((7) (let ((e-34 (vector-ref arg-3 1))) (let ((e-35 (vector-ref arg-3 2))) (let ((e-36 (vector-ref arg-3 3))) (let ((e-37 (vector-ref arg-3 4))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Normalise-tryUpdate arg-0 arg-1 arg-2 e-36) (lambda (bind-0) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Normalise-tryUpdate arg-0 arg-1 arg-2 e-37) (lambda (bind-1) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 7 e-34 e-35 bind-0 bind-1))))))))))) ((8) (let ((e-39 (vector-ref arg-3 1))) (let ((e-40 (vector-ref arg-3 2))) (let ((e-41 (vector-ref arg-3 3))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Normalise-tryUpdate arg-0 arg-1 arg-2 e-41) (lambda (bind-0) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 8 e-39 e-40 bind-0)))))))) ((9) (let ((e-43 (vector-ref arg-3 1))) (let ((e-44 (vector-ref arg-3 2))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 9 e-43 e-44))))) ((10) (let ((e-46 (vector-ref arg-3 1))) (let ((e-47 (vector-ref arg-3 2))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 10 e-46 e-47))))) (else (let ((e-49 (vector-ref arg-3 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 11 e-49))))))) +(define CoreC-45Normalise-tryAlt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (case (vector-ref arg-10 0) ((2) (let ((e-5 (vector-ref arg-10 3))) (let ((e-7 (vector-ref arg-10 5))) (case (vector-ref arg-11 0) ((0) (let ((e-31 (vector-ref arg-11 2))) (let ((e-32 (vector-ref arg-11 3))) (let ((e-33 (vector-ref arg-11 4))) (let ((sc2 (PreludeC-45EqOrd-u--C-61C-61_Eq_Int e-31 e-5))) (cond ((equal? sc2 1) (CoreC-45Normalise-evalConAlt arg-0 arg-1 arg-2 arg-4 arg-3 arg-5 arg-6 arg-7 arg-8 arg-9 e-32 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-7) e-33)) (else (lambda (eta-0) (vector 1 (vector 1 ))))))))))(else (case (vector-ref arg-11 0) ((3) (let ((e-1 (vector-ref arg-11 1))) (let ((sc2 (CoreC-45Normalise-n--6435-4553-u--concrete arg-0 arg-1 arg-3 arg-4 e-1 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-2 arg-10))) (cond ((equal? sc2 1) (CoreC-45Normalise-evalTree arg-0 arg-1 arg-2 arg-4 arg-3 arg-5 arg-6 arg-7 arg-8 arg-9 e-1)) (else (lambda (eta-0) (vector 1 (vector 2 ))))))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))))) ((3) (let ((e-10 (vector-ref arg-10 2))) (let ((e-13 (vector-ref arg-10 5))) (case (vector-ref arg-11 0) ((0) (let ((e-35 (vector-ref arg-11 1))) (let ((e-37 (vector-ref arg-11 3))) (let ((e-38 (vector-ref arg-11 4))) (let ((sc2 (CoreC-45Name-u--C-61C-61_Eq_Name e-10 e-35))) (cond ((equal? sc2 1) (CoreC-45Normalise-evalConAlt arg-0 arg-1 arg-2 arg-4 arg-3 arg-5 arg-6 arg-7 arg-8 arg-9 e-37 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-13) e-38)) (else (lambda (eta-0) (vector 1 (vector 1 ))))))))))(else (case (vector-ref arg-11 0) ((3) (let ((e-1 (vector-ref arg-11 1))) (let ((sc2 (CoreC-45Normalise-n--6435-4553-u--concrete arg-0 arg-1 arg-3 arg-4 e-1 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-2 arg-10))) (cond ((equal? sc2 1) (CoreC-45Normalise-evalTree arg-0 arg-1 arg-2 arg-4 arg-3 arg-5 arg-6 arg-7 arg-8 arg-9 e-1)) (else (lambda (eta-0) (vector 1 (vector 2 ))))))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))))) ((8) (let ((e-16 (vector-ref arg-10 2))) (case (vector-ref arg-11 0) ((0) (let ((e-40 (vector-ref arg-11 1))) (let ((e-42 (vector-ref arg-11 3))) (let ((e-43 (vector-ref arg-11 4))) (if (null? e-42) (let ((sc3 (CoreC-45Name-u--C-61C-61_Eq_Name (vector 1 (CoreC-45TT-u--show_Show_Constant e-16)) e-40))) (cond ((equal? sc3 1) (CoreC-45Normalise-evalTree arg-0 arg-1 arg-2 arg-4 arg-3 arg-5 arg-6 arg-7 arg-8 arg-9 e-43)) (else (lambda (eta-0) (vector 1 (vector 1 )))))) (lambda (eta-0) (vector 1 (vector 1 )))))))) ((2) (let ((e-45 (vector-ref arg-11 1))) (let ((e-46 (vector-ref arg-11 2))) (let ((sc2 (CoreC-45TT-u--C-61C-61_Eq_Constant e-45 e-16))) (cond ((equal? sc2 1) (CoreC-45Normalise-evalTree arg-0 arg-1 arg-2 arg-4 arg-3 arg-5 arg-6 arg-7 arg-8 arg-9 e-46)) (else (lambda (eta-0) (vector 1 (vector 1 )))))))))(else (case (vector-ref arg-11 0) ((3) (let ((e-1 (vector-ref arg-11 1))) (let ((sc2 (CoreC-45Normalise-n--6435-4553-u--concrete arg-0 arg-1 arg-3 arg-4 e-1 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-2 arg-10))) (cond ((equal? sc2 1) (CoreC-45Normalise-evalTree arg-0 arg-1 arg-2 arg-4 arg-3 arg-5 arg-6 arg-7 arg-8 arg-9 e-1)) (else (lambda (eta-0) (vector 1 (vector 2 ))))))))(else (lambda (eta-0) (vector 1 (vector 2 ))))))))) ((10) (case (vector-ref arg-11 0) ((0) (let ((e-48 (vector-ref arg-11 1))) (let ((e-50 (vector-ref arg-11 3))) (let ((e-51 (vector-ref arg-11 4))) (case (vector-ref e-48 0) ((1) (let ((e-52 (vector-ref e-48 1))) (cond ((equal? e-52 "Type") (if (null? e-50) (CoreC-45Normalise-evalTree arg-0 arg-1 arg-2 arg-4 arg-3 arg-5 arg-6 arg-7 arg-8 arg-9 e-51) (case (vector-ref arg-11 0) ((3) (let ((e-1 (vector-ref arg-11 1))) (let ((sc6 (CoreC-45Normalise-n--6435-4553-u--concrete arg-0 arg-1 arg-3 arg-4 e-1 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-2 arg-10))) (cond ((equal? sc6 1) (CoreC-45Normalise-evalTree arg-0 arg-1 arg-2 arg-4 arg-3 arg-5 arg-6 arg-7 arg-8 arg-9 e-1)) (else (lambda (eta-0) (vector 1 (vector 2 ))))))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))(else (case (vector-ref arg-11 0) ((3) (let ((e-1 (vector-ref arg-11 1))) (let ((sc4 (CoreC-45Normalise-n--6435-4553-u--concrete arg-0 arg-1 arg-3 arg-4 e-1 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-2 arg-10))) (cond ((equal? sc4 1) (CoreC-45Normalise-evalTree arg-0 arg-1 arg-2 arg-4 arg-3 arg-5 arg-6 arg-7 arg-8 arg-9 e-1)) (else (lambda (eta-0) (vector 1 (vector 2 ))))))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))))(else (case (vector-ref arg-11 0) ((3) (let ((e-1 (vector-ref arg-11 1))) (let ((sc3 (CoreC-45Normalise-n--6435-4553-u--concrete arg-0 arg-1 arg-3 arg-4 e-1 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-2 arg-10))) (cond ((equal? sc3 1) (CoreC-45Normalise-evalTree arg-0 arg-1 arg-2 arg-4 arg-3 arg-5 arg-6 arg-7 arg-8 arg-9 e-1)) (else (lambda (eta-0) (vector 1 (vector 2 ))))))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))))))(else (case (vector-ref arg-11 0) ((3) (let ((e-1 (vector-ref arg-11 1))) (let ((sc2 (CoreC-45Normalise-n--6435-4553-u--concrete arg-0 arg-1 arg-3 arg-4 e-1 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-2 arg-10))) (cond ((equal? sc2 1) (CoreC-45Normalise-evalTree arg-0 arg-1 arg-2 arg-4 arg-3 arg-5 arg-6 arg-7 arg-8 arg-9 e-1)) (else (lambda (eta-0) (vector 1 (vector 2 ))))))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))) ((0) (let ((e-20 (vector-ref arg-10 1))) (let ((e-21 (vector-ref arg-10 2))) (let ((e-22 (vector-ref arg-10 3))) (let ((e-23 (vector-ref arg-10 4))) (case (vector-ref e-22 0) ((2) (let ((e-55 (vector-ref e-22 1))) (let ((e-56 (vector-ref e-22 2))) (let ((e-57 (vector-ref e-22 3))) (let ((e-58 (vector-ref e-22 4))) (case (vector-ref arg-11 0) ((0) (let ((e-60 (vector-ref arg-11 1))) (let ((e-62 (vector-ref arg-11 3))) (let ((e-63 (vector-ref arg-11 4))) (case (vector-ref e-60 0) ((1) (let ((e-64 (vector-ref e-60 1))) (cond ((equal? e-64 "->") (if (null? e-62) (case (vector-ref arg-11 0) ((3) (let ((e-1 (vector-ref arg-11 1))) (let ((sc7 (CoreC-45Normalise-n--6435-4553-u--concrete arg-0 arg-1 arg-3 arg-4 e-1 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-2 arg-10))) (cond ((equal? sc7 1) (CoreC-45Normalise-evalTree arg-0 arg-1 arg-2 arg-4 arg-3 arg-5 arg-6 arg-7 arg-8 arg-9 e-1)) (else (lambda (eta-0) (vector 1 (vector 2 ))))))))(else (lambda (eta-0) (vector 1 (vector 2 ))))) (let ((e-66 (car e-62))) (let ((e-67 (cdr e-62))) (if (null? e-67) (case (vector-ref arg-11 0) ((3) (let ((e-1 (vector-ref arg-11 1))) (let ((sc8 (CoreC-45Normalise-n--6435-4553-u--concrete arg-0 arg-1 arg-3 arg-4 e-1 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-2 arg-10))) (cond ((equal? sc8 1) (CoreC-45Normalise-evalTree arg-0 arg-1 arg-2 arg-4 arg-3 arg-5 arg-6 arg-7 arg-8 arg-9 e-1)) (else (lambda (eta-0) (vector 1 (vector 2 ))))))))(else (lambda (eta-0) (vector 1 (vector 2 ))))) (let ((e-69 (car e-67))) (let ((e-70 (cdr e-67))) (if (null? e-70) (CoreC-45Normalise-evalConAlt arg-0 arg-1 arg-2 arg-4 arg-3 arg-5 arg-6 arg-7 arg-8 arg-9 (cons e-66 (cons e-69 '())) (cons (vector 1 arg-7 arg-5 e-58) (cons (vector 1 arg-7 arg-5 (vector 0 e-20 e-21 (vector 0 e-55 e-56 e-57 e-58) e-23)) '())) e-63) (case (vector-ref arg-11 0) ((3) (let ((e-1 (vector-ref arg-11 1))) (let ((sc9 (CoreC-45Normalise-n--6435-4553-u--concrete arg-0 arg-1 arg-3 arg-4 e-1 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-2 arg-10))) (cond ((equal? sc9 1) (CoreC-45Normalise-evalTree arg-0 arg-1 arg-2 arg-4 arg-3 arg-5 arg-6 arg-7 arg-8 arg-9 e-1)) (else (lambda (eta-0) (vector 1 (vector 2 ))))))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))))))))(else (case (vector-ref arg-11 0) ((3) (let ((e-1 (vector-ref arg-11 1))) (let ((sc5 (CoreC-45Normalise-n--6435-4553-u--concrete arg-0 arg-1 arg-3 arg-4 e-1 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-2 arg-10))) (cond ((equal? sc5 1) (CoreC-45Normalise-evalTree arg-0 arg-1 arg-2 arg-4 arg-3 arg-5 arg-6 arg-7 arg-8 arg-9 e-1)) (else (lambda (eta-0) (vector 1 (vector 2 ))))))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))))(else (case (vector-ref arg-11 0) ((3) (let ((e-1 (vector-ref arg-11 1))) (let ((sc4 (CoreC-45Normalise-n--6435-4553-u--concrete arg-0 arg-1 arg-3 arg-4 e-1 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-2 arg-10))) (cond ((equal? sc4 1) (CoreC-45Normalise-evalTree arg-0 arg-1 arg-2 arg-4 arg-3 arg-5 arg-6 arg-7 arg-8 arg-9 e-1)) (else (lambda (eta-0) (vector 1 (vector 2 ))))))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))))))(else (case (vector-ref arg-11 0) ((3) (let ((e-1 (vector-ref arg-11 1))) (let ((sc3 (CoreC-45Normalise-n--6435-4553-u--concrete arg-0 arg-1 arg-3 arg-4 e-1 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-2 arg-10))) (cond ((equal? sc3 1) (CoreC-45Normalise-evalTree arg-0 arg-1 arg-2 arg-4 arg-3 arg-5 arg-6 arg-7 arg-8 arg-9 e-1)) (else (lambda (eta-0) (vector 1 (vector 2 ))))))))(else (lambda (eta-0) (vector 1 (vector 2 ))))))))))))(else (case (vector-ref arg-11 0) ((3) (let ((e-1 (vector-ref arg-11 1))) (let ((sc2 (CoreC-45Normalise-n--6435-4553-u--concrete arg-0 arg-1 arg-3 arg-4 e-1 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-2 arg-10))) (cond ((equal? sc2 1) (CoreC-45Normalise-evalTree arg-0 arg-1 arg-2 arg-4 arg-3 arg-5 arg-6 arg-7 arg-8 arg-9 e-1)) (else (lambda (eta-0) (vector 1 (vector 2 ))))))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))))))) ((6) (let ((e-27 (vector-ref arg-10 3))) (let ((e-28 (vector-ref arg-10 4))) (case (vector-ref arg-11 0) ((1) (let ((e-73 (vector-ref arg-11 1))) (let ((e-74 (vector-ref arg-11 2))) (let ((e-75 (vector-ref arg-11 3))) (CoreC-45Normalise-evalTree arg-0 arg-1 arg-2 (cons e-73 (cons e-74 arg-4)) arg-3 arg-5 (cons e-27 (cons e-28 arg-6)) arg-7 arg-8 arg-9 e-75)))))(else (case (vector-ref arg-11 0) ((3) (let ((e-1 (vector-ref arg-11 1))) (let ((sc2 (CoreC-45Normalise-n--6435-4553-u--concrete arg-0 arg-1 arg-3 arg-4 e-1 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-2 arg-10))) (cond ((equal? sc2 1) (CoreC-45Normalise-evalTree arg-0 arg-1 arg-2 arg-4 arg-3 arg-5 arg-6 arg-7 arg-8 arg-9 e-1)) (else (lambda (eta-0) (vector 1 (vector 2 ))))))))(else (lambda (eta-0) (vector 1 (vector 2 ))))))))))(else (case (vector-ref arg-11 0) ((3) (let ((e-1 (vector-ref arg-11 1))) (let ((sc1 (CoreC-45Normalise-n--6435-4553-u--concrete arg-0 arg-1 arg-3 arg-4 e-1 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-2 arg-10))) (cond ((equal? sc1 1) (CoreC-45Normalise-evalTree arg-0 arg-1 arg-2 arg-4 arg-3 arg-5 arg-6 arg-7 arg-8 arg-9 e-1)) (else (lambda (eta-0) (vector 1 (vector 2 ))))))))(else (lambda (eta-0) (vector 1 (vector 2 ))))))))) (define CoreC-45Normalise-toClosure (lambda (arg-1 arg-2 arg-3) (vector 0 '() arg-1 '() arg-2 arg-3))) -(define CoreC-45Normalise-takeFromStack (lambda (arg-0 arg-1 arg-3 arg-4) (CoreC-45Normalise-n--8892-4656-u--takeStk arg-0 arg-1 arg-4 arg-3 arg-3 arg-4 '()))) -(define CoreC-45Normalise-replaceC-39 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 (CoreC-45Normalise-u--convert_Convert_NF arg-0 arg-1 arg-3 arg-4 arg-5 arg-7 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (vector 1 arg-6)) (else (CoreC-45Normalise-n--20809-12995-u--repSub arg-1 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-0 arg-7 ext-0))))))))))) +(define CoreC-45Normalise-takeFromStack (lambda (arg-0 arg-1 arg-3 arg-4) (CoreC-45Normalise-n--6438-5091-u--takeStk arg-0 arg-1 arg-4 arg-3 arg-3 arg-4 '()))) +(define CoreC-45Normalise-replaceC-39 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 (CoreC-45Normalise-u--convert_Convert_NF arg-0 arg-1 arg-3 arg-4 arg-5 arg-7 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (cond ((equal? e-5 1) (vector 1 arg-6)) (else (CoreC-45Normalise-n--19594-13645-u--repSub arg-1 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-0 arg-7 ext-0))))))))) (define CoreC-45Normalise-replace (lambda (arg-0 arg-1 ext-5 ext-1 ext-2 ext-3 ext-4 ext-0) (CoreC-45Normalise-replaceC-39 arg-0 arg-1 0 ext-5 ext-1 ext-2 ext-3 ext-4 ext-0))) -(define CoreC-45Normalise-quotePi (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (vector 1 (vector 1 ))) ((0) (vector 1 (vector 0 ))) ((2) (vector 1 (vector 2 ))) (else (let ((e-4 (vector-ref sc0 1))) (let ((act-24 (CoreC-45Normalise-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-4 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 3 e-5))))))))))))) -(define CoreC-45Normalise-quoteHead (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (CoreC-45Normalise-case--quoteHead-5718 arg-2 e-3 e-2 arg-7 arg-1 arg-6 arg-5 arg-4 arg-3 arg-0 (CoreC-45Normalise-n--12680-5633-u--addLater arg-2 e-3 e-2 arg-7 arg-1 arg-6 arg-5 arg-4 arg-3 arg-0 e-3 arg-1) eta-0))))) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((sc1 e-6)) (case (vector-ref sc1 0) ((0) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((2) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (lambda (eta-0) (CoreC-45Normalise-case--quoteHead-5976 arg-1 arg-2 e-13 e-12 arg-7 arg-6 arg-5 arg-4 arg-3 arg-0 (CoreC-45Normalise-n--12680-5762-u--findName arg-1 arg-2 e-13 e-12 arg-7 arg-6 arg-5 arg-4 arg-3 arg-0 arg-6) eta-0)))))(else (lambda (eta-0) (vector 1 (vector 1 arg-5 e-6 e-7)))))))(else (lambda (eta-0) (vector 1 (vector 1 arg-5 e-6 e-7))))))))) (else (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (CoreC-45Normalise-quoteArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-6 arg-7 e-11 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 2 arg-5 e-9 e-10 e-5)))))))))))))))) -(define CoreC-45Normalise-quoteGenNF (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((act-24 (CoreC-45Normalise-genName arg-3 "qv" ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (((e-4 arg-4) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) arg-6 (vector 1 e-1 (vector 0 ) e-5))) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (CoreC-45Normalise-quoteGenNF arg-0 (cons e-2 arg-1) arg-2 arg-3 arg-4 (vector 1 e-2 e-5 arg-5) arg-6 e-6 ext-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (CoreC-45Normalise-quoteBinder arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 3 e-1 e-2 e-7 e-6)))))))))))))))))))))) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (let ((act-24 ((CoreC-45Normalise-quoteHead arg-0 arg-1 arg-2 arg-3 arg-4 e-6 arg-5 arg-6 e-7) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Normalise-quoteArgsWithFC arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-8 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc2 1))) (vector 1 (CoreC-45TT-applyWithFC e-5 e-9)))))))))))))))) ((2) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (let ((e-13 (vector-ref sc0 4))) (let ((e-14 (vector-ref sc0 5))) (let ((act-24 (CoreC-45Normalise-quoteArgsWithFC arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-14 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (CoreC-45TT-applyWithFC (vector 1 e-10 (vector 2 e-12 e-13) e-11) e-5))))))))))))) ((3) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (let ((e-20 (vector-ref sc0 5))) (let ((act-24 (CoreC-45Normalise-quoteArgsWithFC arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-20 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (CoreC-45TT-applyWithFC (vector 1 e-16 (vector 3 e-18 e-19) e-17) e-5))))))))))))) ((4) (let ((e-22 (vector-ref sc0 1))) (let ((e-23 (vector-ref sc0 2))) (let ((e-24 (vector-ref sc0 3))) (let ((e-25 (vector-ref sc0 4))) (let ((act-24 (CoreC-45Normalise-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-24 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Normalise-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-25 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 5 e-22 e-23 e-5 e-6))))))))))))))))) ((5) (let ((e-27 (vector-ref sc0 1))) (let ((e-28 (vector-ref sc0 2))) (let ((e-29 (vector-ref sc0 3))) (let ((act-24 (CoreC-45Normalise-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-29 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 6 e-27 e-28 e-5))))))))))) ((6) (let ((e-31 (vector-ref sc0 1))) (let ((e-32 (vector-ref sc0 2))) (let ((e-33 (vector-ref sc0 3))) (let ((e-34 (vector-ref sc0 4))) (let ((act-24 ((CoreC-45Normalise-evalClosure arg-0 arg-2 arg-4 (CoreC-45Normalise-n--12698-6425-u--toHolesOnly arg-1 arg-2 e-34 e-33 e-32 e-31 arg-6 arg-5 arg-4 arg-3 arg-0 e-34)) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Normalise-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((CoreC-45Normalise-evalClosure arg-0 arg-2 arg-4 (CoreC-45Normalise-n--12698-6425-u--toHolesOnly arg-1 arg-2 e-34 e-33 e-32 e-31 arg-6 arg-5 arg-4 arg-3 arg-0 e-33)) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (CoreC-45Normalise-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-7 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 7 e-31 e-32 e-8 e-6))))))))))))))))))))))))))) ((7) (let ((e-36 (vector-ref sc0 1))) (let ((e-37 (vector-ref sc0 2))) (let ((e-38 (vector-ref sc0 3))) (let ((e-39 (vector-ref sc0 4))) (let ((act-24 (CoreC-45Normalise-quoteArgsWithFC arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-39 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-38)) (case (vector-ref sc2 0) ((6) (let ((e-4 (vector-ref sc2 4))) (let ((act-25 ((CoreC-45Normalise-evalClosure arg-0 arg-2 arg-4 e-4) ext-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (CoreC-45Normalise-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-6 ext-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (vector 1 (CoreC-45TT-applyWithFC e-7 e-5))))))))))))))(else (let ((act-25 (CoreC-45Normalise-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-38 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (CoreC-45TT-applyWithFC (vector 8 e-36 e-37 e-6) e-5)))))))))))))))))))) ((8) (let ((e-41 (vector-ref sc0 1))) (let ((e-42 (vector-ref sc0 2))) (vector 1 (vector 9 e-41 e-42))))) ((9) (let ((e-44 (vector-ref sc0 1))) (let ((e-45 (vector-ref sc0 2))) (vector 1 (vector 10 e-44 e-45))))) (else (let ((e-47 (vector-ref sc0 1))) (vector 1 (vector 11 e-47)))))))) -(define CoreC-45Normalise-quoteBinder (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((act-24 (CoreC-45Normalise-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-4 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Normalise-quotePi arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 0 e-1 e-2 e-6 e-5))))))))))))))))) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (let ((e-9 (vector-ref sc0 4))) (let ((act-24 (CoreC-45Normalise-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-8 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Normalise-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-9 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc2 1))) (vector 1 (vector 1 e-6 e-7 e-5 e-10))))))))))))))))) ((2) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 4))) (let ((act-24 (CoreC-45Normalise-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-14 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Normalise-quotePi arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-13 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 2 e-11 e-12 e-6 e-5))))))))))))))))) ((3) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (let ((act-24 (CoreC-45Normalise-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-19 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Normalise-quotePi arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-18 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 3 e-16 e-17 e-6 e-5))))))))))))))))) ((4) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (let ((e-24 (vector-ref sc0 4))) (let ((act-24 (CoreC-45Normalise-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-23 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Normalise-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-24 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 4 e-21 e-22 e-5 e-6))))))))))))))))) (else (let ((e-26 (vector-ref sc0 1))) (let ((e-27 (vector-ref sc0 2))) (let ((e-28 (vector-ref sc0 3))) (let ((act-24 (CoreC-45Normalise-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-28 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 5 e-26 e-27 e-5))))))))))))))) +(define CoreC-45Normalise-quotePi (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (case (vector-ref arg-7 0) ((1) (vector 1 (vector 1 ))) ((0) (vector 1 (vector 0 ))) ((2) (vector 1 (vector 2 ))) (else (let ((e-4 (vector-ref arg-7 1))) (let ((act-24 (CoreC-45Normalise-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-4 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 3 e-5))))))))))) +(define CoreC-45Normalise-quoteHead (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (case (vector-ref arg-8 0) ((0) (let ((e-2 (vector-ref arg-8 1))) (let ((e-3 (vector-ref arg-8 2))) (lambda (eta-0) (vector 1 (vector 0 arg-5 e-2 (CoreC-45Normalise-n--10951-6117-u--addLater arg-2 e-3 e-2 arg-7 arg-1 arg-6 arg-5 arg-4 arg-3 arg-0 e-3 arg-1))))))) ((1) (let ((e-6 (vector-ref arg-8 1))) (let ((e-7 (vector-ref arg-8 2))) (lambda (clam-0) (case (vector-ref e-6 0) ((0) (case (vector-ref e-7 0) ((2) (let ((e-12 (vector-ref e-7 1))) (let ((e-13 (vector-ref e-7 2))) (vector 1 (let ((sc3 (CoreC-45Normalise-n--10951-6247-u--findName arg-1 arg-2 e-13 e-12 arg-7 arg-6 arg-5 arg-4 arg-3 arg-0 arg-6))) (if (null? sc3) (vector 1 arg-5 (vector 0 ) (vector 2 e-12 e-13)) (let ((e-1 (unbox sc3))) (vector 0 arg-5 '() e-1))))))))(else (vector 1 (vector 1 arg-5 e-6 e-7)))))(else (vector 1 (vector 1 arg-5 e-6 e-7)))))))) (else (let ((e-9 (vector-ref arg-8 1))) (let ((e-10 (vector-ref arg-8 2))) (let ((e-11 (vector-ref arg-8 3))) (lambda (eta-0) (let ((act-24 (CoreC-45Normalise-quoteArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-6 arg-7 e-11 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 2 arg-5 e-9 e-10 e-5)))))))))))))) +(define CoreC-45Normalise-quoteGenNF (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (case (vector-ref arg-7 0) ((0) (let ((e-1 (vector-ref arg-7 1))) (let ((e-2 (vector-ref arg-7 2))) (let ((e-3 (vector-ref arg-7 3))) (let ((e-4 (vector-ref arg-7 4))) (let ((act-24 (CoreC-45Normalise-genName arg-3 "qv" ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (let ((act-25 (((e-4 arg-4) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) arg-6 (vector 1 e-1 (vector 0 ) e-5))) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-6 (vector-ref act-25 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-25 1))) (CoreC-45Normalise-quoteGenNF arg-0 (cons e-2 arg-1) arg-2 arg-3 arg-4 (vector 1 e-2 e-5 arg-5) arg-6 e-6 ext-0))))))) (case (vector-ref act-25 0) ((0) (let ((e-6 (vector-ref act-25 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Normalise-quoteBinder arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-7 (vector-ref act-26 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (vector 3 e-1 e-2 e-7 e-6))))))))))))))))))) ((1) (let ((e-6 (vector-ref arg-7 1))) (let ((e-7 (vector-ref arg-7 2))) (let ((e-8 (vector-ref arg-7 3))) (let ((act-24 ((CoreC-45Normalise-quoteHead arg-0 arg-1 arg-2 arg-3 arg-4 e-6 arg-5 arg-6 e-7) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-quoteArgsWithFC arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-8 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-25 1))) (vector 1 (CoreC-45TT-applyWithFC e-5 e-9)))))))))))))) ((2) (let ((e-10 (vector-ref arg-7 1))) (let ((e-11 (vector-ref arg-7 2))) (let ((e-12 (vector-ref arg-7 3))) (let ((e-13 (vector-ref arg-7 4))) (let ((e-14 (vector-ref arg-7 5))) (let ((act-24 (CoreC-45Normalise-quoteArgsWithFC arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-14 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (CoreC-45TT-applyWithFC (vector 1 e-10 (vector 2 e-12 e-13) e-11) e-5)))))))))))) ((3) (let ((e-16 (vector-ref arg-7 1))) (let ((e-17 (vector-ref arg-7 2))) (let ((e-18 (vector-ref arg-7 3))) (let ((e-19 (vector-ref arg-7 4))) (let ((e-20 (vector-ref arg-7 5))) (let ((act-24 (CoreC-45Normalise-quoteArgsWithFC arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-20 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (CoreC-45TT-applyWithFC (vector 1 e-16 (vector 3 e-18 e-19) e-17) e-5)))))))))))) ((4) (let ((e-22 (vector-ref arg-7 1))) (let ((e-23 (vector-ref arg-7 2))) (let ((e-24 (vector-ref arg-7 3))) (let ((e-25 (vector-ref arg-7 4))) (let ((act-24 (CoreC-45Normalise-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-24 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-25 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (vector 5 e-22 e-23 e-5 e-6))))))))))))))) ((5) (let ((e-27 (vector-ref arg-7 1))) (let ((e-28 (vector-ref arg-7 2))) (let ((e-29 (vector-ref arg-7 3))) (let ((act-24 (CoreC-45Normalise-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-29 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 6 e-27 e-28 e-5)))))))))) ((6) (let ((e-31 (vector-ref arg-7 1))) (let ((e-32 (vector-ref arg-7 2))) (let ((e-33 (vector-ref arg-7 3))) (let ((e-34 (vector-ref arg-7 4))) (let ((act-24 ((CoreC-45Normalise-evalClosure arg-0 arg-2 arg-4 (CoreC-45Normalise-n--10978-6884-u--toHolesOnly arg-1 arg-2 e-34 e-33 e-32 e-31 arg-6 arg-5 arg-4 arg-3 arg-0 e-34)) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 ((CoreC-45Normalise-evalClosure arg-0 arg-2 arg-4 (CoreC-45Normalise-n--10978-6884-u--toHolesOnly arg-1 arg-2 e-34 e-33 e-32 e-31 arg-6 arg-5 arg-4 arg-3 arg-0 e-33)) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (CoreC-45Normalise-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-7 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (vector 1 (vector 7 e-31 e-32 e-8 e-6))))))))))))))))))))))) ((7) (let ((e-36 (vector-ref arg-7 1))) (let ((e-37 (vector-ref arg-7 2))) (let ((e-38 (vector-ref arg-7 3))) (let ((e-39 (vector-ref arg-7 4))) (let ((act-24 (CoreC-45Normalise-quoteArgsWithFC arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-39 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (case (vector-ref e-38 0) ((6) (let ((e-4 (vector-ref e-38 4))) (let ((act-25 ((CoreC-45Normalise-evalClosure arg-0 arg-2 arg-4 e-4) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-6 (vector-ref act-25 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Normalise-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-6 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-7 (vector-ref act-26 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (CoreC-45TT-applyWithFC e-7 e-5))))))))))))(else (let ((act-25 (CoreC-45Normalise-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-38 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (CoreC-45TT-applyWithFC (vector 8 e-36 e-37 e-6) e-5))))))))))))))))) ((8) (let ((e-41 (vector-ref arg-7 1))) (let ((e-42 (vector-ref arg-7 2))) (vector 1 (vector 9 e-41 e-42))))) ((9) (let ((e-44 (vector-ref arg-7 1))) (let ((e-45 (vector-ref arg-7 2))) (vector 1 (vector 10 e-44 e-45))))) (else (let ((e-47 (vector-ref arg-7 1))) (vector 1 (vector 11 e-47))))))) +(define CoreC-45Normalise-quoteBinder (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (case (vector-ref arg-7 0) ((0) (let ((e-1 (vector-ref arg-7 1))) (let ((e-2 (vector-ref arg-7 2))) (let ((e-3 (vector-ref arg-7 3))) (let ((e-4 (vector-ref arg-7 4))) (let ((act-24 (CoreC-45Normalise-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-4 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-quotePi arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-6 (vector-ref act-25 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (vector 0 e-1 e-2 e-6 e-5))))))))))))))) ((1) (let ((e-6 (vector-ref arg-7 1))) (let ((e-7 (vector-ref arg-7 2))) (let ((e-8 (vector-ref arg-7 3))) (let ((e-9 (vector-ref arg-7 4))) (let ((act-24 (CoreC-45Normalise-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-8 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-9 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref act-25 1))) (vector 1 (vector 1 e-6 e-7 e-5 e-10))))))))))))))) ((2) (let ((e-11 (vector-ref arg-7 1))) (let ((e-12 (vector-ref arg-7 2))) (let ((e-13 (vector-ref arg-7 3))) (let ((e-14 (vector-ref arg-7 4))) (let ((act-24 (CoreC-45Normalise-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-14 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-quotePi arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-13 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (vector 2 e-11 e-12 e-6 e-5))))))))))))))) ((3) (let ((e-16 (vector-ref arg-7 1))) (let ((e-17 (vector-ref arg-7 2))) (let ((e-18 (vector-ref arg-7 3))) (let ((e-19 (vector-ref arg-7 4))) (let ((act-24 (CoreC-45Normalise-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-19 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-quotePi arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-18 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (vector 3 e-16 e-17 e-6 e-5))))))))))))))) ((4) (let ((e-21 (vector-ref arg-7 1))) (let ((e-22 (vector-ref arg-7 2))) (let ((e-23 (vector-ref arg-7 3))) (let ((e-24 (vector-ref arg-7 4))) (let ((act-24 (CoreC-45Normalise-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-23 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-24 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (vector 4 e-21 e-22 e-5 e-6))))))))))))))) (else (let ((e-26 (vector-ref arg-7 1))) (let ((e-27 (vector-ref arg-7 2))) (let ((e-28 (vector-ref arg-7 3))) (let ((act-24 (CoreC-45Normalise-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-28 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 5 e-26 e-27 e-5))))))))))))) (define CoreC-45Normalise-quoteArgsWithFC (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-1 ext-0) (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (CoreC-45Normalise-quoteArgWithFC arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-0 eta-1))) ext-1 '() ext-0))) (define CoreC-45Normalise-quoteArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-1 ext-0) (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (CoreC-45Normalise-quoteArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-0 eta-1))) ext-1 '() ext-0))) (define CoreC-45Normalise-quoteArgWithFC (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-1 ext-0) (CoreC-45Core-traversePair (lambda (eta-0) (lambda (eta-1) (CoreC-45Normalise-quoteArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-0 eta-1))) ext-1 ext-0))) -(define CoreC-45Normalise-quoteArg (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 ((CoreC-45Normalise-evalClosure arg-0 arg-2 arg-4 arg-7) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (CoreC-45Normalise-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 ext-0)))))))) -(define CoreC-45Normalise-normaliseScope (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((act-24 (CoreC-45Normalise-normaliseScope arg-0 (cons e-2 arg-1) arg-2 (cons e-3 arg-3) e-4 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 3 e-1 e-2 e-3 e-5))))))))))))(else (CoreC-45Normalise-normalise arg-0 arg-1 arg-2 arg-3 arg-4 ext-0)))))) -(define CoreC-45Normalise-normalisePrims (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 ext-0) (let ((act-24 (CoreC-45Context-getFullName arg-1 arg-6 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((CoreC-45Normalise-case--normalisePrims-13585 arg-2 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 e-5 (PreludeC-45Types-elem (cons (lambda (arg-10) (lambda (arg-11) (CoreC-45Name-u--C-61C-61_Eq_Name arg-10 arg-11))) (lambda (arg-10) (lambda (arg-11) (CoreC-45Name-u--C-47C-61_Eq_Name arg-10 arg-11)))) (CoreC-45Name-dropNS e-5) arg-5)) ext-0)))))))) -(define CoreC-45Normalise-normaliseOpts (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 ((CoreC-45Normalise-nfOpts arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (CoreC-45Normalise-u--quote_Quote_NF arg-0 arg-1 arg-3 arg-4 e-5 ext-0)))))))) -(define CoreC-45Normalise-normaliseHoles (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 ((CoreC-45Normalise-nfOpts arg-0 arg-1 (CoreC-45Value-withHoles) arg-2 arg-3 arg-4) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (CoreC-45Normalise-u--quote_Quote_NF arg-0 arg-1 arg-2 arg-3 e-5 ext-0)))))))) -(define CoreC-45Normalise-normaliseErr (lambda (arg-0 arg-1 ext-0) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (CoreC-45Normalise-normaliseHoles arg-0 e-0 e-5 e-2 e-3 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) e-6 ext-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (let ((act-26 (CoreC-45Normalise-normaliseHoles arg-0 e-0 e-5 e-2 e-4 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc3 1))) (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) e-7 ext-0)))))))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 1 e-0 e-1 e-2 e-6 e-7))))))))))))))))))))))) ((2) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (let ((e-9 (vector-ref sc0 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (CoreC-45Normalise-normaliseHoles arg-0 e-5 e-10 e-7 e-8 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc2 1))) (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) e-11 ext-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc2 1))) (let ((act-26 (let ((act-26 (CoreC-45Normalise-normaliseHoles arg-0 e-5 e-10 e-7 e-9 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc3 1))) (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) e-12 ext-0)))))))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc3 1))) (vector 1 (vector 2 e-5 e-6 e-7 e-11 e-12))))))))))))))))))))))) ((5) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (let ((e-13 (vector-ref sc0 4))) (let ((e-14 (vector-ref sc0 5))) (let ((e-15 (vector-ref sc0 6))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (CoreC-45Normalise-normaliseHoles arg-0 e-10 e-5 e-12 e-13 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) e-6 ext-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (let ((act-26 (CoreC-45Normalise-normaliseHoles arg-0 e-10 e-5 e-12 e-14 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) e-7 ext-0)))))))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (CoreC-45Normalise-normaliseErr arg-0 e-15 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 5 e-10 e-11 e-12 e-6 e-7 e-8))))))))))))))))))))))))))))) ((29) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (CoreC-45Normalise-normaliseHoles arg-0 e-16 e-5 e-18 e-19 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) e-6 ext-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 29 e-16 e-17 e-18 e-6))))))))))))))))) ((21) (let ((e-20 (vector-ref sc0 1))) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (u--x) (lambda (eta-0) (let ((act-24 (CoreC-45Normalise-normaliseErr arg-0 (Builtin-snd u--x) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (cons (Builtin-fst u--x) e-5))))))))) e-20 '() ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 21 e-5))))))))) ((61) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (let ((act-24 (CoreC-45Normalise-normaliseErr arg-0 e-23 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 61 e-21 e-22 e-5))))))))))) ((62) (let ((e-24 (vector-ref sc0 1))) (let ((e-25 (vector-ref sc0 2))) (let ((e-26 (vector-ref sc0 3))) (let ((act-24 (CoreC-45Normalise-normaliseErr arg-0 e-26 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 62 e-24 e-25 e-5))))))))))) ((63) (let ((e-27 (vector-ref sc0 1))) (let ((e-28 (vector-ref sc0 2))) (let ((e-29 (vector-ref sc0 3))) (let ((act-24 (CoreC-45Normalise-normaliseErr arg-0 e-29 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 63 e-27 e-28 e-5))))))))))) ((64) (let ((e-30 (vector-ref sc0 1))) (let ((e-31 (vector-ref sc0 2))) (let ((e-32 (vector-ref sc0 3))) (let ((act-24 (CoreC-45Normalise-normaliseErr arg-0 e-32 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 64 e-30 e-31 e-5)))))))))))(else (vector 1 arg-1)))))) -(define CoreC-45Normalise-normaliseArgHoles (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 ((CoreC-45Normalise-nfOpts arg-0 arg-1 (CoreC-45Value-withArgHoles) arg-2 arg-3 arg-4) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (CoreC-45Normalise-u--quote_Quote_NF arg-0 arg-1 arg-2 arg-3 e-5 ext-0)))))))) -(define CoreC-45Normalise-normaliseAll (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 ((CoreC-45Normalise-nfOpts arg-0 arg-1 (CoreC-45Value-withAll) arg-2 arg-3 arg-4) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (CoreC-45Normalise-u--quote_Quote_NF arg-0 arg-1 arg-2 arg-3 e-5 ext-0)))))))) -(define CoreC-45Normalise-normalise (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 ((CoreC-45Normalise-nf arg-0 arg-1 arg-2 arg-3 arg-4) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (CoreC-45Normalise-u--quote_Quote_NF arg-0 arg-1 arg-2 arg-3 e-5 ext-0)))))))) +(define CoreC-45Normalise-quoteArg (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 ((CoreC-45Normalise-evalClosure arg-0 arg-2 arg-4 arg-7) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (CoreC-45Normalise-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 ext-0))))))) +(define CoreC-45Normalise-quickConv (lambda (arg-1 arg-2) (if (null? arg-1) (if (null? arg-2) 1 0) (let ((e-2 (car arg-1))) (let ((e-3 (cdr arg-1))) (if (null? arg-2) 0 (let ((e-6 (car arg-2))) (let ((e-7 (cdr arg-2))) (let ((sc2 (CoreC-45Normalise-n--13631-8611-u--quickConvArg e-2 e-3 e-6 e-7 e-2 e-6))) (cond ((equal? sc2 1) (CoreC-45Normalise-quickConv e-3 e-7)) (else 0))))))))))) +(define CoreC-45Normalise-normaliseScope (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (case (vector-ref arg-4 0) ((3) (let ((e-1 (vector-ref arg-4 1))) (let ((e-2 (vector-ref arg-4 2))) (let ((e-3 (vector-ref arg-4 3))) (let ((e-4 (vector-ref arg-4 4))) (let ((act-24 (CoreC-45Normalise-normaliseScope arg-0 (cons e-2 arg-1) arg-2 (cons e-3 arg-3) e-4 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 3 e-1 e-2 e-3 e-5)))))))))))(else (CoreC-45Normalise-normalise arg-0 arg-1 arg-2 arg-3 arg-4 ext-0))))) +(define CoreC-45Normalise-normalisePrims (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 ext-0) (let ((act-24 (CoreC-45Context-getFullName arg-1 arg-7 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((sc1 (PreludeC-45Types-elem (cons (lambda (arg-11) (lambda (arg-12) (CoreC-45Name-u--C-61C-61_Eq_Name arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (CoreC-45Name-u--C-47C-61_Eq_Name arg-11 arg-12)))) (CoreC-45Name-dropNS e-5) arg-6))) (cond ((equal? sc1 1) ((CoreC-45Normalise-case--caseC-32blockC-32inC-32normalisePrims-14246 arg-2 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 e-5 (DataC-45List-reverse arg-8)) ext-0))(else (vector 1 '())))))))))) +(define CoreC-45Normalise-normaliseOpts (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 ((CoreC-45Normalise-nfOpts arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (CoreC-45Normalise-u--quote_Quote_NF arg-0 arg-1 arg-3 arg-4 e-5 ext-0))))))) +(define CoreC-45Normalise-normaliseHoles (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 ((CoreC-45Normalise-nfOpts arg-0 arg-1 (CoreC-45Value-withHoles) arg-2 arg-3 arg-4) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (CoreC-45Normalise-u--quote_Quote_NF arg-0 arg-1 arg-2 arg-3 e-5 ext-0))))))) +(define CoreC-45Normalise-normaliseErr (lambda (arg-0 arg-1 ext-0) (case (vector-ref arg-1 0) ((1) (let ((e-0 (vector-ref arg-1 1))) (let ((e-1 (vector-ref arg-1 2))) (let ((e-2 (vector-ref arg-1 3))) (let ((e-3 (vector-ref arg-1 4))) (let ((e-4 (vector-ref arg-1 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (let ((act-25 (CoreC-45Normalise-normaliseHoles arg-0 e-0 e-5 e-2 e-3 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-6 (vector-ref act-25 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-25 1))) (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-0))))) e-6 ext-0))))))) (case (vector-ref act-25 0) ((0) (let ((e-6 (vector-ref act-25 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (let ((act-26 (CoreC-45Normalise-normaliseHoles arg-0 e-0 e-5 e-2 e-4 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-7 (vector-ref act-26 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-26 1))) (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-0))))) e-7 ext-0))))))) (case (vector-ref act-26 0) ((0) (let ((e-7 (vector-ref act-26 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (vector 1 e-0 e-1 e-2 e-6 e-7)))))))))))))))))))) ((2) (let ((e-5 (vector-ref arg-1 1))) (let ((e-6 (vector-ref arg-1 2))) (let ((e-7 (vector-ref arg-1 3))) (let ((e-8 (vector-ref arg-1 4))) (let ((e-9 (vector-ref arg-1 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref act-24 1))) (let ((act-25 (let ((act-25 (CoreC-45Normalise-normaliseHoles arg-0 e-5 e-10 e-7 e-8 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref act-25 1))) (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-0))))) e-11 ext-0))))))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref act-25 1))) (let ((act-26 (let ((act-26 (CoreC-45Normalise-normaliseHoles arg-0 e-5 e-10 e-7 e-9 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref act-26 1))) (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-0))))) e-12 ext-0))))))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref act-26 1))) (vector 1 (vector 2 e-5 e-6 e-7 e-11 e-12)))))))))))))))))))) ((5) (let ((e-10 (vector-ref arg-1 1))) (let ((e-11 (vector-ref arg-1 2))) (let ((e-12 (vector-ref arg-1 3))) (let ((e-13 (vector-ref arg-1 4))) (let ((e-14 (vector-ref arg-1 5))) (let ((e-15 (vector-ref arg-1 6))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (let ((act-25 (CoreC-45Normalise-normaliseHoles arg-0 e-10 e-5 e-12 e-13 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-0))))) e-6 ext-0))))))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (let ((act-26 (CoreC-45Normalise-normaliseHoles arg-0 e-10 e-5 e-12 e-14 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-0))))) e-7 ext-0))))))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (CoreC-45Normalise-normaliseErr arg-0 e-15 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (vector 1 (vector 5 e-10 e-11 e-12 e-6 e-7 e-8))))))))))))))))))))))))) ((29) (let ((e-16 (vector-ref arg-1 1))) (let ((e-17 (vector-ref arg-1 2))) (let ((e-18 (vector-ref arg-1 3))) (let ((e-19 (vector-ref arg-1 4))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (let ((act-25 (CoreC-45Normalise-normaliseHoles arg-0 e-16 e-5 e-18 e-19 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-0))))) e-6 ext-0))))))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (vector 29 e-16 e-17 e-18 e-6))))))))))))))) ((21) (let ((e-20 (vector-ref arg-1 1))) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (u--x) (lambda (eta-0) (let ((act-24 (CoreC-45Normalise-normaliseErr arg-0 (Builtin-snd u--x) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (cons (Builtin-fst u--x) e-5)))))))) e-20 '() ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 21 e-5)))))))) ((62) (let ((e-21 (vector-ref arg-1 1))) (let ((e-22 (vector-ref arg-1 2))) (let ((e-23 (vector-ref arg-1 3))) (let ((act-24 (CoreC-45Normalise-normaliseErr arg-0 e-23 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 62 e-21 e-22 e-5)))))))))) ((63) (let ((e-24 (vector-ref arg-1 1))) (let ((e-25 (vector-ref arg-1 2))) (let ((e-26 (vector-ref arg-1 3))) (let ((act-24 (CoreC-45Normalise-normaliseErr arg-0 e-26 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 63 e-24 e-25 e-5)))))))))) ((64) (let ((e-27 (vector-ref arg-1 1))) (let ((e-28 (vector-ref arg-1 2))) (let ((e-29 (vector-ref arg-1 3))) (let ((act-24 (CoreC-45Normalise-normaliseErr arg-0 e-29 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 64 e-27 e-28 e-5)))))))))) ((65) (let ((e-30 (vector-ref arg-1 1))) (let ((e-31 (vector-ref arg-1 2))) (let ((e-32 (vector-ref arg-1 3))) (let ((act-24 (CoreC-45Normalise-normaliseErr arg-0 e-32 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 65 e-30 e-31 e-5))))))))))(else (vector 1 arg-1))))) +(define CoreC-45Normalise-normaliseArgHoles (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 ((CoreC-45Normalise-nfOpts arg-0 arg-1 (CoreC-45Value-withArgHoles) arg-2 arg-3 arg-4) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (CoreC-45Normalise-u--quote_Quote_NF arg-0 arg-1 arg-2 arg-3 e-5 ext-0))))))) +(define CoreC-45Normalise-normaliseAll (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 ((CoreC-45Normalise-nfOpts arg-0 arg-1 (CoreC-45Value-withAll) arg-2 arg-3 arg-4) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (CoreC-45Normalise-u--quote_Quote_NF arg-0 arg-1 arg-2 arg-3 e-5 ext-0))))))) +(define CoreC-45Normalise-normalise (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 ((CoreC-45Normalise-nf arg-0 arg-1 arg-2 arg-3 arg-4) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (CoreC-45Normalise-u--quote_Quote_NF arg-0 arg-1 arg-2 arg-3 e-5 ext-0))))))) (define CoreC-45Normalise-nfOpts (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (CoreC-45Normalise-eval arg-3 arg-2 arg-0 arg-1 '() arg-4 '() arg-5 '()))) (define CoreC-45Normalise-nf (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (CoreC-45Normalise-eval arg-2 (CoreC-45Value-defaultOpts) arg-0 arg-1 '() arg-3 '() arg-4 '()))) -(define CoreC-45Normalise-logTermNFC-39 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (CoreC-45Context-getSession arg-1 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 (CoreC-45OptionsC-45Log-keepLog arg-2 (let ((sc2 e-5)) (let ((e-15 (vector-ref sc2 6))) e-15)) (let ((sc2 e-5)) (let ((e-6 (vector-ref sc2 7))) e-6))))) (cond ((equal? sc1 0) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (CoreC-45Normalise-normaliseHoles arg-1 arg-0 e-6 arg-4 arg-5 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (CoreC-45Context-toFullNames arg-1 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) e-7 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 ((PreludeC-45IO-putStrLn (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-0)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-0) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (let ((act-17 (arg-578 eta-0))) (let ((act-16 (arg-580 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (let ((act-28 (arg-876 eta-0))) ((arg-877 act-28) eta-0))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-0) (let ((act-51 (arg-879 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) (PreludeC-45TypesC-45String-C-43C-43 "LOG " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45OptionsC-45Log-u--show_Show_LogLevel arg-2) (PreludeC-45TypesC-45String-C-43C-43 ": " (PreludeC-45TypesC-45String-C-43C-43 (arg-3) (PreludeC-45TypesC-45String-C-43C-43 ": " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 e-8))))))) ext-0))) (vector 1 act-28)))))))))))))))))) (else (vector 1 (vector 0 )))))))))))) -(define CoreC-45Normalise-logTermNF (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 (CoreC-45Context-getSession arg-1 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((u--lvl (CoreC-45OptionsC-45Log-mkLogLevel (let ((sc1 e-5)) (let ((e-15 (vector-ref sc1 6))) e-15)) arg-2 arg-3))) (CoreC-45Normalise-logTermNFC-39 arg-0 arg-1 u--lvl arg-4 arg-5 arg-6 ext-0))))))))) -(define CoreC-45Normalise-logNF (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 (CoreC-45Context-getSession arg-1 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((u--lvl (CoreC-45OptionsC-45Log-mkLogLevel (let ((sc1 e-5)) (let ((e-15 (vector-ref sc1 6))) e-15)) arg-2 arg-3))) (let ((sc1 (CoreC-45OptionsC-45Log-keepLog u--lvl (let ((sc2 e-5)) (let ((e-15 (vector-ref sc2 6))) e-15)) (let ((sc2 e-5)) (let ((e-6 (vector-ref sc2 7))) e-6))))) (cond ((equal? sc1 0) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (CoreC-45Normalise-u--quote_Quote_NF arg-1 arg-0 e-6 arg-5 arg-6 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (CoreC-45Context-toFullNames arg-1 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) e-7 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 ((PreludeC-45IO-putStrLn (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-0)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-0) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (let ((act-17 (arg-578 eta-0))) (let ((act-16 (arg-580 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (let ((act-28 (arg-876 eta-0))) ((arg-877 act-28) eta-0))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-0) (let ((act-51 (arg-879 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) (PreludeC-45TypesC-45String-C-43C-43 "LOG " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45OptionsC-45Log-u--show_Show_LogLevel u--lvl) (PreludeC-45TypesC-45String-C-43C-43 ": " (PreludeC-45TypesC-45String-C-43C-43 (arg-4) (PreludeC-45TypesC-45String-C-43C-43 ": " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 e-8))))))) ext-0))) (vector 1 act-28)))))))))))))))))) (else (vector 1 (vector 0 ))))))))))))) -(define CoreC-45Normalise-logGlueNF (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 (CoreC-45Context-getSession arg-1 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((u--lvl (CoreC-45OptionsC-45Log-mkLogLevel (let ((sc1 e-5)) (let ((e-15 (vector-ref sc1 6))) e-15)) arg-2 arg-3))) (let ((sc1 (CoreC-45OptionsC-45Log-keepLog u--lvl (let ((sc2 e-5)) (let ((e-15 (vector-ref sc2 6))) e-15)) (let ((sc2 e-5)) (let ((e-6 (vector-ref sc2 7))) e-6))))) (cond ((equal? sc1 0) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((CoreC-45Normalise-getTerm arg-6) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (CoreC-45Normalise-normaliseHoles arg-1 arg-0 e-6 arg-5 e-7 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (CoreC-45Context-toFullNames arg-1 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) e-8 ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 ((PreludeC-45IO-putStrLn (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-0)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-0) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (let ((act-17 (arg-578 eta-0))) (let ((act-16 (arg-580 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (let ((act-29 (arg-876 eta-0))) ((arg-877 act-29) eta-0))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-0) (let ((act-51 (arg-879 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) (PreludeC-45TypesC-45String-C-43C-43 "LOG " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45OptionsC-45Log-u--show_Show_LogLevel u--lvl) (PreludeC-45TypesC-45String-C-43C-43 ": " (PreludeC-45TypesC-45String-C-43C-43 (arg-4) (PreludeC-45TypesC-45String-C-43C-43 ": " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 e-9))))))) ext-0))) (vector 1 act-29))))))))))))))))))))))) (else (vector 1 (vector 0 ))))))))))))) -(define CoreC-45Normalise-logGlue (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 (CoreC-45Context-getSession arg-1 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((u--lvl (CoreC-45OptionsC-45Log-mkLogLevel (let ((sc1 e-5)) (let ((e-15 (vector-ref sc1 6))) e-15)) arg-2 arg-3))) (let ((sc1 (CoreC-45OptionsC-45Log-keepLog u--lvl (let ((sc2 e-5)) (let ((e-15 (vector-ref sc2 6))) e-15)) (let ((sc2 e-5)) (let ((e-6 (vector-ref sc2 7))) e-6))))) (cond ((equal? sc1 0) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((CoreC-45Normalise-getTerm arg-6) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (CoreC-45Context-toFullNames arg-1 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) e-7 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 ((PreludeC-45IO-putStrLn (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-0)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-0) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (let ((act-17 (arg-578 eta-0))) (let ((act-16 (arg-580 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (let ((act-28 (arg-876 eta-0))) ((arg-877 act-28) eta-0))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-0) (let ((act-51 (arg-879 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) (PreludeC-45TypesC-45String-C-43C-43 "LOG " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45OptionsC-45Log-u--show_Show_LogLevel u--lvl) (PreludeC-45TypesC-45String-C-43C-43 ": " (PreludeC-45TypesC-45String-C-43C-43 (arg-4) (PreludeC-45TypesC-45String-C-43C-43 ": " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 e-8))))))) ext-0))) (vector 1 act-28))))))))))))))))) (else (vector 1 (vector 0 ))))))))))))) -(define CoreC-45Normalise-logEnv (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (CoreC-45Context-getSession arg-1 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 (PreludeC-45Basics-C-38C-38 (let ((sc2 e-5)) (let ((e-15 (vector-ref sc2 6))) e-15)) (lambda () (CoreC-45OptionsC-45Log-keepLog (CoreC-45Normalise-n--20678-12873-u--lvl arg-0 arg-5 arg-4 arg-3 arg-2 arg-1) (let ((sc2 e-5)) (let ((e-15 (vector-ref sc2 6))) e-15)) (let ((sc2 e-5)) (let ((e-6 (vector-ref sc2 7))) e-6))))))) (cond ((equal? sc1 0) (let ((act-25 (let ((act-25 ((PreludeC-45IO-putStrLn (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-0)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-0) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (let ((act-17 (arg-578 eta-0))) (let ((act-16 (arg-580 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (let ((act-25 (arg-876 eta-0))) ((arg-877 act-25) eta-0))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-0) (let ((act-51 (arg-879 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) (PreludeC-45TypesC-45String-C-43C-43 "LOG " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45OptionsC-45Log-u--show_Show_LogLevel (CoreC-45Normalise-n--20678-12873-u--lvl arg-0 arg-5 arg-4 arg-3 arg-2 arg-1)) (PreludeC-45TypesC-45String-C-43C-43 ": " arg-4)))) ext-0))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((CoreC-45Normalise-n--20678-12874-u--dumpEnv arg-0 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 arg-5) ext-0)))))) (else (vector 1 (vector 0 )))))))))))) -(define CoreC-45Normalise-isFromTerm (lambda (arg-1) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) e-1)))) -(define CoreC-45Normalise-gnf (lambda (arg-0 arg-1 arg-2) (vector 0 0 (lambda (eta-0) (vector 1 arg-2)) (lambda (u--c) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox u--c))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((CoreC-45Normalise-nf u--c arg-0 e-5 arg-1 arg-2) eta-0))))))))))) -(define CoreC-45Normalise-glueBack (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (vector 0 1 (lambda (eta-0) (let ((act-24 (CoreC-45Context-clearDefs arg-2 eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (CoreC-45Normalise-u--quote_Quote_NF arg-0 arg-1 e-5 arg-3 arg-4 eta-0))))))) (lambda (eta-0) (lambda (eta-1) (vector 1 arg-4)))))) -(define CoreC-45Normalise-getValArity (lambda (arg-1 arg-2 arg-3 ext-0) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((act-24 (((e-4 arg-1) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) arg-2 (vector 10 e-1 1))) ext-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (CoreC-45Normalise-getValArity arg-1 arg-2 e-5 ext-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc3 1))) (vector 1 (+ 1 e-10)))))))))))))(else (vector 1 0))))))))(else (vector 1 0)))))) -(define CoreC-45Normalise-getTerm (lambda (arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) e-2)))) -(define CoreC-45Normalise-getNF (lambda (arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-3 (vector-ref sc0 3))) (e-3 arg-1))))) -(define CoreC-45Normalise-getMatchingVars (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 4))) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((0) (let ((e-14 (vector-ref sc1 2))) (let ((e-17 (vector-ref sc1 4))) (lambda (eta-0) (CoreC-45Normalise-getMatchingVarAlts arg-0 arg-1 arg-2 arg-3 (cons (cons e-2 e-14) arg-4) e-5 e-17 eta-0)))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))) ((1) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((1) (let ((e-19 (vector-ref sc1 1))) (let ((e-20 (vector-ref sc1 2))) (lambda (eta-0) (CoreC-45Normalise-case--getMatchingVars-8762 arg-1 arg-2 e-8 e-7 e-20 e-19 arg-4 arg-3 arg-0 (CoreC-45Normalise-tryUpdate arg-1 arg-2 arg-4 e-8) eta-0)))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))) ((2) (lambda (clam-0) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((2) (vector 1 (vector 1 arg-4)))(else (vector 1 (vector 0 ))))))) ((3) (lambda (clam-1) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((3) (vector 1 (vector 1 arg-4)))(else (vector 1 (vector 0 )))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define CoreC-45Normalise-getMatchingVarAlts (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((sc0 arg-5)) (if (null? sc0) (let ((sc1 arg-6)) (if (null? sc1) (vector 1 (vector 1 arg-4)) (vector 1 (vector 0 )))) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 arg-6)) (if (null? sc1) (vector 1 (vector 0 )) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (let ((act-24 ((CoreC-45Normalise-getMatchingVarAlt arg-0 arg-1 arg-2 arg-3 arg-4 e-2 e-6) ext-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (CoreC-45Normalise-getMatchingVarAlts arg-0 arg-1 arg-2 arg-3 e-1 e-3 e-7 ext-0))) (else (vector 1 (vector 0 )))))))))))))))))))) -(define CoreC-45Normalise-getMatchingVarAlt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((0) (let ((e-11 (vector-ref sc1 1))) (let ((e-12 (vector-ref sc1 2))) (let ((e-13 (vector-ref sc1 3))) (let ((e-14 (vector-ref sc1 4))) (CoreC-45Normalise-case--getMatchingVarAlt-8333 arg-1 arg-2 e-3 e-4 e-2 e-1 e-13 e-14 e-12 e-11 arg-4 arg-3 arg-0 (CoreC-45Name-u--C-61C-61_Eq_Name e-1 e-11)))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))))) ((2) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((2) (let ((e-16 (vector-ref sc1 1))) (let ((e-17 (vector-ref sc1 2))) (CoreC-45Normalise-case--getMatchingVarAlt-8552 arg-0 arg-1 arg-2 e-7 e-6 e-17 e-16 arg-4 arg-3 (CoreC-45TT-u--C-61C-61_Eq_Constant e-6 e-16)))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))) ((3) (let ((e-9 (vector-ref sc0 1))) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((3) (let ((e-19 (vector-ref sc1 1))) (CoreC-45Normalise-getMatchingVars arg-0 arg-1 arg-2 arg-3 arg-4 e-9 e-19)))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define CoreC-45Normalise-getCaseBound (lambda (arg-0 arg-1 arg-4 arg-5 arg-6) (let ((sc0 arg-4)) (if (null? sc0) (let ((sc1 arg-5)) (if (null? sc1) (vector 1 arg-6) (vector 0 ))) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 arg-5)) (if (null? sc1) (vector 0 ) (let ((e-11 (cdr sc1))) (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (PreludeC-45Types-u--map_Functor_Maybe eta-2 eta-3))))) (lambda (arg-2) (cons e-2 arg-2)) (CoreC-45Normalise-getCaseBound arg-0 arg-1 e-3 e-11 arg-6))))))))))) -(define CoreC-45Normalise-getArity (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 ((CoreC-45Normalise-nf arg-0 arg-1 arg-2 arg-3 arg-4) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (CoreC-45Normalise-getValArity arg-2 arg-3 e-5 ext-0)))))))) -(define CoreC-45Normalise-genName (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (set-box! arg-0 (bs+ e-5 1 63)))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 2 arg-1 e-5))))))))))))) -(define CoreC-45Normalise-gType (lambda (arg-1) (vector 0 0 (lambda (eta-0) (vector 1 (vector 11 arg-1))) (lambda (eta-0) (lambda (eta-1) (vector 1 (vector 10 arg-1))))))) -(define CoreC-45Normalise-gErased (lambda (arg-1) (vector 0 0 (lambda (eta-0) (vector 1 (vector 10 arg-1 1))) (lambda (eta-0) (lambda (eta-1) (vector 1 (vector 9 arg-1 1))))))) -(define CoreC-45Normalise-findAlt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 ext-0) (let ((sc0 arg-11)) (if (null? sc0) (let ((act-24 (CoreC-45ContextC-45Log-log arg-2 "eval.casetree.stuck" (+ 1 (+ 1 0)) (lambda () "Ran out of alternatives") ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 2 )))))) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((act-24 ((CoreC-45Normalise-tryAlt arg-0 arg-1 arg-2 arg-4 arg-3 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-2) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (let ((e-1 (vector-ref sc2 1))) (vector 1 (vector 0 e-1)))) ((1) (CoreC-45Normalise-findAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-3 ext-0)) (else (let ((act-25 (let ((act-25 (CoreC-45Context-toFullNames arg-2 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40CaseAltC-32C-36varsC-41 arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40CaseAltC-32C-36varsC-41 arg-3812 arg-3813 eta-0))))) e-2 ext-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) (CoreC-45ContextC-45Log-logC arg-2 "eval.casetree.stuck" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-0) (vector 1 (PreludeC-45TypesC-45String-C-43C-43 "Got stuck matching " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Value-u--show_Show_C-40NFC-32C-36freeC-41 arg-4 arg-10) (PreludeC-45TypesC-45String-C-43C-43 " against " (CoreC-45CaseTree-u--show_Show_C-40CaseAltC-32C-36varsC-41 arg-3 e-6)))))) ext-0)))))))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (vector 1 (vector 2 )))))))))))))))))))) +(define CoreC-45Normalise-logTermNFC-39 (lambda (arg-0 arg-1 arg-2 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-normaliseHoles arg-1 arg-0 e-5 arg-6 arg-7 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-1 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-0))))) e-6 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (cond ((equal? arg-2 "") (let ((act-27 ((PreludeC-45IO-putStrLn (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-27 (arg-811 eta-0))) ((arg-812 act-27) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-51 (arg-814 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) (PreludeC-45TypesC-45String-C-43C-43 "LOG " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Nat arg-4) (PreludeC-45TypesC-45String-C-43C-43 ": " (PreludeC-45TypesC-45String-C-43C-43 (arg-5) (PreludeC-45TypesC-45String-C-43C-43 ": " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 e-7))))))) ext-0))) (vector 1 act-27)))(else (let ((act-27 ((PreludeC-45IO-putStrLn (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-27 (arg-811 eta-0))) ((arg-812 act-27) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-51 (arg-814 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) (PreludeC-45TypesC-45String-C-43C-43 "LOG " (PreludeC-45TypesC-45String-C-43C-43 arg-2 (PreludeC-45TypesC-45String-C-43C-43 ":" (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Nat arg-4) (PreludeC-45TypesC-45String-C-43C-43 ": " (PreludeC-45TypesC-45String-C-43C-43 (arg-5) (PreludeC-45TypesC-45String-C-43C-43 ": " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 e-7))))))))) ext-0))) (vector 1 act-27)))))))))))))))))) +(define CoreC-45Normalise-logTermNF (lambda (arg-0 arg-1 arg-2 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 (CoreC-45ContextC-45Log-unverifiedLogging arg-1 arg-2 arg-4 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (cond ((equal? e-5 1) (CoreC-45Normalise-logTermNFC-39 arg-0 arg-1 arg-2 arg-4 arg-5 arg-6 arg-7 ext-0)) (else (vector 1 0))))))))) +(define CoreC-45Normalise-logNF (lambda (arg-0 arg-1 arg-2 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 (CoreC-45ContextC-45Log-unverifiedLogging arg-1 arg-2 arg-4 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (cond ((equal? e-5 1) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Normalise-u--quote_Quote_NF arg-1 arg-0 e-6 arg-6 arg-7 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (CoreC-45Context-toFullNames arg-1 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-0))))) e-7 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (cond ((equal? arg-2 "") (let ((act-28 ((PreludeC-45IO-putStrLn (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-28 (arg-811 eta-0))) ((arg-812 act-28) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-51 (arg-814 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) (PreludeC-45TypesC-45String-C-43C-43 "LOG " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Nat arg-4) (PreludeC-45TypesC-45String-C-43C-43 ": " (PreludeC-45TypesC-45String-C-43C-43 (arg-5) (PreludeC-45TypesC-45String-C-43C-43 ": " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 e-8))))))) ext-0))) (vector 1 act-28)))(else (let ((act-28 ((PreludeC-45IO-putStrLn (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-28 (arg-811 eta-0))) ((arg-812 act-28) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-51 (arg-814 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) (PreludeC-45TypesC-45String-C-43C-43 "LOG " (PreludeC-45TypesC-45String-C-43C-43 arg-2 (PreludeC-45TypesC-45String-C-43C-43 ":" (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Nat arg-4) (PreludeC-45TypesC-45String-C-43C-43 ": " (PreludeC-45TypesC-45String-C-43C-43 (arg-5) (PreludeC-45TypesC-45String-C-43C-43 ": " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 e-8))))))))) ext-0))) (vector 1 act-28))))))))))))))))) (else (vector 1 0))))))))) +(define CoreC-45Normalise-logGlueNF (lambda (arg-0 arg-1 arg-2 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 (CoreC-45ContextC-45Log-unverifiedLogging arg-1 arg-2 arg-4 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (cond ((equal? e-5 1) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 ((CoreC-45Normalise-getTerm arg-7) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (CoreC-45Normalise-normaliseHoles arg-1 arg-0 e-6 arg-6 e-7 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (let ((act-28 (CoreC-45Context-toFullNames arg-1 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-0))))) e-8 ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-28 1))) (cond ((equal? arg-2 "") (let ((act-29 ((PreludeC-45IO-putStrLn (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-29 (arg-811 eta-0))) ((arg-812 act-29) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-51 (arg-814 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) (PreludeC-45TypesC-45String-C-43C-43 "LOG " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Nat arg-4) (PreludeC-45TypesC-45String-C-43C-43 ": " (PreludeC-45TypesC-45String-C-43C-43 (arg-5) (PreludeC-45TypesC-45String-C-43C-43 ": " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 e-9))))))) ext-0))) (vector 1 act-29)))(else (let ((act-29 ((PreludeC-45IO-putStrLn (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-29 (arg-811 eta-0))) ((arg-812 act-29) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-51 (arg-814 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) (PreludeC-45TypesC-45String-C-43C-43 "LOG " (PreludeC-45TypesC-45String-C-43C-43 arg-2 (PreludeC-45TypesC-45String-C-43C-43 ":" (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Nat arg-4) (PreludeC-45TypesC-45String-C-43C-43 ": " (PreludeC-45TypesC-45String-C-43C-43 (arg-5) (PreludeC-45TypesC-45String-C-43C-43 ": " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 e-9))))))))) ext-0))) (vector 1 act-29))))))))))))))))))))) (else (vector 1 0))))))))) +(define CoreC-45Normalise-logGlue (lambda (arg-0 arg-1 arg-2 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 (CoreC-45ContextC-45Log-unverifiedLogging arg-1 arg-2 arg-4 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (cond ((equal? e-5 1) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 ((CoreC-45Normalise-getTerm arg-7) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (CoreC-45Context-toFullNames arg-1 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-0))))) e-7 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (cond ((equal? arg-2 "") (let ((act-28 ((PreludeC-45IO-putStrLn (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-28 (arg-811 eta-0))) ((arg-812 act-28) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-51 (arg-814 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) (PreludeC-45TypesC-45String-C-43C-43 "LOG " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Nat arg-4) (PreludeC-45TypesC-45String-C-43C-43 ": " (PreludeC-45TypesC-45String-C-43C-43 (arg-5) (PreludeC-45TypesC-45String-C-43C-43 ": " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 e-8))))))) ext-0))) (vector 1 act-28)))(else (let ((act-28 ((PreludeC-45IO-putStrLn (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-28 (arg-811 eta-0))) ((arg-812 act-28) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-51 (arg-814 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) (PreludeC-45TypesC-45String-C-43C-43 "LOG " (PreludeC-45TypesC-45String-C-43C-43 arg-2 (PreludeC-45TypesC-45String-C-43C-43 ":" (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Nat arg-4) (PreludeC-45TypesC-45String-C-43C-43 ": " (PreludeC-45TypesC-45String-C-43C-43 (arg-5) (PreludeC-45TypesC-45String-C-43C-43 ": " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 e-8))))))))) ext-0))) (vector 1 act-28)))))))))))))))) (else (vector 1 0))))))))) +(define CoreC-45Normalise-logEnv (lambda (arg-0 arg-1 arg-2 arg-4 arg-5 arg-6 ext-0) (let ((act-24 (CoreC-45ContextC-45Log-unverifiedLogging arg-1 arg-2 arg-4 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (cond ((equal? e-5 1) (let ((act-25 (cond ((equal? arg-2 "") (let ((act-25 ((PreludeC-45IO-putStrLn (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-25 (arg-811 eta-0))) ((arg-812 act-25) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-51 (arg-814 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) (PreludeC-45TypesC-45String-C-43C-43 "LOG " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Nat arg-4) (PreludeC-45TypesC-45String-C-43C-43 ": " arg-5)))) ext-0))) (vector 1 act-25)))(else (let ((act-25 ((PreludeC-45IO-putStrLn (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-25 (arg-811 eta-0))) ((arg-812 act-25) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-51 (arg-814 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) (PreludeC-45TypesC-45String-C-43C-43 "LOG " (PreludeC-45TypesC-45String-C-43C-43 arg-2 (PreludeC-45TypesC-45String-C-43C-43 ":" (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Nat arg-4) (PreludeC-45TypesC-45String-C-43C-43 ": " arg-5)))))) ext-0))) (vector 1 act-25)))))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else ((CoreC-45Normalise-n--19469-13532-u--dumpEnv arg-0 arg-2 arg-6 arg-5 arg-4 arg-1 arg-0 arg-6) ext-0))))) (else (vector 1 0))))))))) +(define CoreC-45Normalise-isFromTerm (lambda (arg-1) (let ((e-1 (vector-ref arg-1 0))) e-1))) +(define CoreC-45Normalise-gnf (lambda (arg-0 arg-1 arg-2) (vector 1 (lambda (eta-0) (vector 1 arg-2)) (lambda (u--c) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox u--c))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) ((CoreC-45Normalise-nf u--c arg-0 e-5 arg-1 arg-2) eta-0)))))))))) +(define CoreC-45Normalise-glueBack (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (vector 0 (lambda (eta-0) (let ((act-24 (CoreC-45Context-clearDefs arg-2 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (CoreC-45Normalise-u--quote_Quote_NF arg-0 arg-1 e-5 arg-3 arg-4 eta-0)))))) (lambda (eta-0) (lambda (eta-1) (vector 1 arg-4)))))) +(define CoreC-45Normalise-getValArity (lambda (arg-1 arg-2 arg-3 ext-0) (case (vector-ref arg-3 0) ((0) (let ((e-1 (vector-ref arg-3 1))) (let ((e-3 (vector-ref arg-3 3))) (let ((e-4 (vector-ref arg-3 4))) (case (vector-ref e-3 0) ((2) (let ((act-24 (((e-4 arg-1) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) arg-2 (vector 10 e-1 0))) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-getValArity arg-1 arg-2 e-5 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (vector 1 (+ 1 e-10)))))))))))(else (vector 1 0)))))))(else (vector 1 0))))) +(define CoreC-45Normalise-getTerm (lambda (arg-1) (let ((e-2 (vector-ref arg-1 1))) e-2))) +(define CoreC-45Normalise-getNF (lambda (arg-1 arg-2) (let ((e-3 (vector-ref arg-2 2))) (e-3 arg-1)))) +(define CoreC-45Normalise-getMatchingVars (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (case (vector-ref arg-5 0) ((0) (let ((e-2 (vector-ref arg-5 2))) (let ((e-5 (vector-ref arg-5 4))) (case (vector-ref arg-6 0) ((0) (let ((e-14 (vector-ref arg-6 2))) (let ((e-17 (vector-ref arg-6 4))) (lambda (eta-0) (CoreC-45Normalise-getMatchingVarAlts arg-0 arg-1 arg-2 arg-3 (cons (cons e-2 e-14) arg-4) e-5 e-17 eta-0)))))(else (lambda (eta-0) (vector 1 '()))))))) ((1) (let ((e-7 (vector-ref arg-5 1))) (let ((e-8 (vector-ref arg-5 2))) (case (vector-ref arg-6 0) ((1) (let ((e-19 (vector-ref arg-6 1))) (let ((e-20 (vector-ref arg-6 2))) (lambda (eta-0) (CoreC-45Normalise-case--getMatchingVars-9564 arg-1 arg-2 e-8 e-7 e-20 e-19 arg-4 arg-3 arg-0 (CoreC-45Normalise-tryUpdate arg-1 arg-2 arg-4 e-8) eta-0)))))(else (lambda (eta-0) (vector 1 '()))))))) ((2) (lambda (clam-0) (case (vector-ref arg-6 0) ((2) (vector 1 (box arg-4)))(else (vector 1 '()))))) ((3) (lambda (clam-1) (case (vector-ref arg-6 0) ((3) (vector 1 (box arg-4)))(else (vector 1 '())))))(else (lambda (eta-0) (vector 1 '())))))) +(define CoreC-45Normalise-getMatchingVarAlts (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (if (null? arg-5) (if (null? arg-6) (vector 1 (box arg-4)) (vector 1 '())) (let ((e-2 (car arg-5))) (let ((e-3 (cdr arg-5))) (if (null? arg-6) (vector 1 '()) (let ((e-6 (car arg-6))) (let ((e-7 (cdr arg-6))) (let ((act-24 ((CoreC-45Normalise-getMatchingVarAlt arg-0 arg-1 arg-2 arg-3 arg-4 e-2 e-6) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (if (null? e-5) (vector 1 '()) (let ((e-1 (unbox e-5))) (CoreC-45Normalise-getMatchingVarAlts arg-0 arg-1 arg-2 arg-3 e-1 e-3 e-7 ext-0))))))))))))))) +(define CoreC-45Normalise-getMatchingVarAlt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (case (vector-ref arg-5 0) ((0) (let ((e-1 (vector-ref arg-5 1))) (let ((e-2 (vector-ref arg-5 2))) (let ((e-3 (vector-ref arg-5 3))) (let ((e-4 (vector-ref arg-5 4))) (case (vector-ref arg-6 0) ((0) (let ((e-11 (vector-ref arg-6 1))) (let ((e-12 (vector-ref arg-6 2))) (let ((e-13 (vector-ref arg-6 3))) (let ((e-14 (vector-ref arg-6 4))) (let ((sc2 (CoreC-45Name-u--C-61C-61_Eq_Name e-1 e-11))) (cond ((equal? sc2 1) (lambda (eta-0) (CoreC-45Normalise-case--caseC-32blockC-32inC-32getMatchingVarAlt-9164 arg-1 arg-2 e-3 e-4 e-2 e-1 e-13 e-14 e-12 e-11 arg-4 arg-3 arg-0 (CoreC-45Normalise-n--13639-8940-u--extend arg-1 arg-2 e-3 e-4 e-2 e-1 e-13 e-14 e-12 e-11 arg-4 arg-3 arg-0 e-3 e-13 arg-4) eta-0))) (else (lambda (eta-0) (vector 1 '()))))))))))(else (lambda (eta-0) (vector 1 '()))))))))) ((2) (let ((e-6 (vector-ref arg-5 1))) (let ((e-7 (vector-ref arg-5 2))) (case (vector-ref arg-6 0) ((2) (let ((e-16 (vector-ref arg-6 1))) (let ((e-17 (vector-ref arg-6 2))) (let ((sc2 (CoreC-45TT-u--C-61C-61_Eq_Constant e-6 e-16))) (cond ((equal? sc2 1) (CoreC-45Normalise-getMatchingVars arg-0 arg-1 arg-2 arg-3 arg-4 e-7 e-17)) (else (lambda (eta-0) (vector 1 '()))))))))(else (lambda (eta-0) (vector 1 '()))))))) ((3) (let ((e-9 (vector-ref arg-5 1))) (case (vector-ref arg-6 0) ((3) (let ((e-19 (vector-ref arg-6 1))) (CoreC-45Normalise-getMatchingVars arg-0 arg-1 arg-2 arg-3 arg-4 e-9 e-19)))(else (lambda (eta-0) (vector 1 '()))))))(else (lambda (eta-0) (vector 1 '())))))) +(define CoreC-45Normalise-getCaseBound (lambda (arg-0 arg-1 arg-4 arg-5 arg-6) (if (null? arg-4) (if (null? arg-5) (box arg-6) '()) (let ((e-2 (car arg-4))) (let ((e-3 (cdr arg-4))) (if (null? arg-5) '() (let ((e-11 (cdr arg-5))) (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (PreludeC-45Types-u--map_Functor_Maybe eta-2 eta-3))))) (lambda (arg-2) (cons e-2 arg-2)) (CoreC-45Normalise-getCaseBound arg-0 arg-1 e-3 e-11 arg-6))))))))) +(define CoreC-45Normalise-getArity (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 ((CoreC-45Normalise-nf arg-0 arg-1 arg-2 arg-3 arg-4) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (CoreC-45Normalise-getValArity arg-2 arg-3 e-5 ext-0))))))) +(define CoreC-45Normalise-genName (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (let ((act-25 (set-box! arg-0 (bs+ e-5 1 63)))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (vector 1 (vector 2 arg-1 e-5))))))))))) +(define CoreC-45Normalise-gType (lambda (arg-1) (vector 1 (lambda (eta-0) (vector 1 (vector 11 arg-1))) (lambda (eta-0) (lambda (eta-1) (vector 1 (vector 10 arg-1))))))) +(define CoreC-45Normalise-gErased (lambda (arg-1) (vector 1 (lambda (eta-0) (vector 1 (vector 10 arg-1 0))) (lambda (eta-0) (lambda (eta-1) (vector 1 (vector 9 arg-1 0))))))) +(define CoreC-45Normalise-findAlt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 ext-0) (if (null? arg-11) (let ((act-24 (CoreC-45ContextC-45Log-log arg-2 "eval.casetree.stuck" (+ 1 (+ 1 0)) (lambda () "Ran out of alternatives") ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (vector 1 (vector 2 ))))) (let ((e-2 (car arg-11))) (let ((e-3 (cdr arg-11))) (let ((act-24 ((CoreC-45Normalise-tryAlt arg-0 arg-1 arg-2 arg-4 arg-3 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-2) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (case (vector-ref e-5 0) ((0) (let ((e-1 (vector-ref e-5 1))) (vector 1 (vector 0 e-1)))) ((1) (CoreC-45Normalise-findAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-3 ext-0)) (else (let ((act-25 (let ((act-25 (CoreC-45Context-toFullNames arg-2 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40CaseAltC-32C-36varsC-41 arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40CaseAltC-32C-36varsC-41 arg-3843 arg-3844 eta-0))))) e-2 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref act-25 1))) (CoreC-45ContextC-45Log-unverifiedLogC arg-2 "eval.casetree.stuck" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-0) (vector 1 (PreludeC-45TypesC-45String-C-43C-43 "Got stuck matching " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Value-u--show_Show_C-40NFC-32C-36freeC-41 arg-4 arg-10) (PreludeC-45TypesC-45String-C-43C-43 " against " (CoreC-45CaseTree-u--show_Show_C-40CaseAltC-32C-36varsC-41 arg-3 e-6)))))) ext-0))))))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (vector 1 (vector 2 )))))))))))))))) (define CoreC-45Normalise-evalWithOpts (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0 ext-1 ext-2 ext-3) (CoreC-45Normalise-eval arg-3 arg-4 arg-0 arg-1 arg-2 ext-0 ext-1 ext-2 ext-3))) -(define CoreC-45Normalise-evalTree (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((CoreC-45Normalise-evalLocal arg-0 arg-1 arg-2 arg-4 arg-3 arg-5 arg-8 (vector 0 ) e-2 '() arg-6) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-25 (CoreC-45ContextC-45Log-log arg-2 "eval.casetree" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Evaluated " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-1) (PreludeC-45TypesC-45String-C-43C-43 " to " (CoreC-45Value-u--show_Show_C-40NFC-32C-36freeC-41 arg-4 e-6))))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((u--locC-39 (CoreC-45Normalise-updateLocal arg-0 arg-1 e-2 arg-6 e-6))) (CoreC-45Normalise-findAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 u--locC-39 arg-7 arg-8 arg-9 e-6 e-5 eta-0)))))))))))))))) ((1) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (CoreC-45Normalise-case--evalTree-4491 arg-0 arg-1 arg-3 arg-4 e-7 e-8 arg-9 arg-8 arg-7 arg-6 arg-5 arg-2 (let ((sc1 arg-7)) (let ((e-6 (vector-ref sc1 7))) e-6))))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))) -(define CoreC-45Normalise-evalRef (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 ext-0) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (vector 1 (vector 2 arg-6 arg-8 e-0 e-1 arg-9))))) ((3) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 (CoreC-45Value-ntCon arg-6 arg-8 e-2 e-3 arg-9))))) ((0) (vector 1 (arg-10))) (else (let ((act-24 ((CoreC-45Context-lookupCtxtExact arg-8 (let ((sc1 arg-0)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((u--nt (vector 1 ))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((u--redok1 (let ((sc3 arg-1)) (let ((e-4 (vector-ref sc3 5))) e-4)))) (let ((u--redok2 (CoreC-45Context-reducibleInAny (cons (let ((sc3 arg-0)) (let ((e-2 (vector-ref sc3 3))) e-2)) (let ((sc3 arg-0)) (let ((e-3 (vector-ref sc3 4))) e-3))) (let ((sc3 e-1)) (let ((e-22 (vector-ref sc3 2))) e-22)) (let ((sc3 e-1)) (let ((e-9 (vector-ref sc3 10))) e-9))))) (let ((u--redok (PreludeC-45Basics-C-124C-124 u--redok1 (lambda () u--redok2)))) (let ((act-25 (let ((sc3 u--redok2)) (cond ((equal? sc3 0) (vector 1 (vector 0 ))) (else (CoreC-45ContextC-45Log-logC arg-2 "eval.stuck" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-0) (let ((act-25 (CoreC-45Context-toFullNames arg-2 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-1) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-1)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) arg-8 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (vector 1 (PreludeC-45TypesC-45String-C-43C-43 "Stuck function: " (CoreC-45Name-u--show_Show_Name e-6))))))))) ext-0)))))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((sc4 u--redok)) (cond ((equal? sc4 0) (let ((act-26 ((CoreC-45Normalise-useMeta (let ((sc5 e-1)) (let ((e-15 (vector-ref sc5 16))) e-15)) arg-6 arg-8 arg-0 arg-1) ext-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (let ((sc6 e-7)) (case (vector-ref sc6 0) ((1) (let ((e-2 (vector-ref sc6 1))) (let ((act-27 ((CoreC-45Normalise-updateLimit u--nt arg-8 e-2) ext-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((1) (let ((e-3 (vector-ref sc8 1))) ((CoreC-45Normalise-evalDef arg-0 arg-1 arg-2 arg-3 arg-4 e-3 arg-5 arg-6 (let ((sc9 e-1)) (let ((e-22 (vector-ref sc9 8))) e-22)) (let ((sc9 e-1)) (let ((e-17 (vector-ref sc9 18))) e-17)) (let ((sc9 e-1)) (let ((e-11 (vector-ref sc9 12))) e-11)) arg-9 arg-10) ext-0))) (else (let ((act-28 (CoreC-45ContextC-45Log-log arg-2 "eval.stuck" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Function " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name arg-8) " past reduction limit"))) ext-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-3 (vector-ref sc9 1))) (vector 0 e-3))) (else (vector 1 (arg-10)))))))))))))))) (else (vector 1 (arg-10))))))))))) (else (vector 1 (arg-10)))))))))))))) (else (vector 1 (arg-10)))))))))))))))) -(define CoreC-45Normalise-evalOp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (CoreC-45Normalise-case--evalOp-4821 arg-0 arg-1 arg-4 arg-7 arg-6 arg-3 arg-5 arg-2 (CoreC-45Normalise-takeFromStack arg-0 arg-1 arg-3 arg-6)))) -(define CoreC-45Normalise-evalMeta (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 ext-0) (CoreC-45Normalise-evalRef arg-0 arg-1 arg-2 arg-3 arg-4 0 arg-5 (vector 1 ) (vector 9 arg-7) (PreludeC-45TypesC-45List-C-43C-43 (PreludeC-45Types-u--map_Functor_List (lambda (__infixTupleSection-0) (cons (vector 1 ) __infixTupleSection-0)) arg-8) arg-9) (lambda () (vector 1 arg-5 (vector 2 arg-6 arg-7 arg-8) arg-9)) ext-0))) -(define CoreC-45Normalise-evalLocal (lambda (arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-11 arg-12) (let ((sc0 arg-5)) (if (null? sc0) (CoreC-45Normalise-case--evalLocal-2832 arg-0 arg-1 arg-4 arg-12 arg-11 arg-9 arg-8 arg-7 arg-6 arg-3 (PreludeC-45Basics-C-38C-38 (let ((sc1 (PreludeC-45Basics-C-124C-124 (let ((sc2 arg-1)) (let ((e-0 (vector-ref sc2 1))) e-0)) (lambda () (let ((sc2 arg-1)) (let ((e-1 (vector-ref sc2 2))) e-1)))))) (cond ((equal? sc1 0) 1) (else 0))) (lambda () (DataC-45Maybe-fromMaybe (lambda () 0) arg-8)))) (let ((e-3 (cdr sc0))) (let ((sc1 arg-9)) (cond ((equal? sc1 0) (let ((sc2 arg-12)) (let ((e-8 (car sc2))) (CoreC-45Normalise-evalLocClosure arg-0 arg-1 arg-3 arg-4 arg-6 arg-7 arg-8 arg-11 e-8))))(else (let ((e-4 (- arg-9 1))) (let ((sc1 arg-12)) (let ((e-14 (cdr sc1))) (CoreC-45Normalise-evalLocal arg-0 arg-1 arg-3 arg-4 e-3 arg-6 arg-7 arg-8 e-4 arg-11 e-14)))))))))))) -(define CoreC-45Normalise-evalLocClosure (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (CoreC-45Normalise-evalWithOpts arg-2 arg-3 e-1 arg-0 e-2 e-4 e-3 e-5 arg-7))))))) (else (let ((e-7 (vector-ref sc0 1))) (CoreC-45Normalise-n--8882-2749-u--applyToStack arg-0 arg-1 arg-3 e-7 arg-7 arg-6 arg-5 arg-4 arg-2 e-7 arg-7))))))) -(define CoreC-45Normalise-evalDef (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (CoreC-45Normalise-case--evalDef-4950 arg-0 arg-1 arg-3 e-1 e-3 e-4 e-2 e-0 arg-12 arg-11 arg-10 arg-8 arg-7 arg-6 arg-5 arg-4 arg-2 (PreludeC-45Basics-C-124C-124 (let ((sc1 e-0)) (let ((e-5 (cdr sc1))) e-5)) (lambda () (PreludeC-45Basics-C-124C-124 (let ((sc1 (PreludeC-45Basics-C-124C-124 (let ((sc2 arg-5)) (let ((e-12 (vector-ref sc2 1))) e-12)) (lambda () (PreludeC-45Basics-C-124C-124 (let ((sc2 arg-5)) (let ((e-11 (vector-ref sc2 2))) e-11)) (lambda () (let ((sc2 arg-5)) (let ((e-5 (vector-ref sc2 6))) e-5)))))))) (cond ((equal? sc1 0) 1) (else 0))) (lambda () (PreludeC-45Basics-C-124C-124 (PreludeC-45Basics-C-38C-38 arg-6 (lambda () (let ((sc1 (AlgebraC-45Semiring-isErased (cons (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-13) (lambda (arg-14) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-13 arg-14))) (lambda (arg-13) (lambda (arg-14) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-13 arg-14))))) arg-8))) (cond ((equal? sc1 0) 1) (else 0))))) (lambda () (PreludeC-45Basics-C-124C-124 (PreludeC-45Basics-C-38C-38 arg-6 (lambda () (let ((sc1 arg-5)) (let ((e-12 (vector-ref sc1 1))) e-12)))) (lambda () (PreludeC-45Basics-C-38C-38 (let ((sc1 arg-5)) (let ((e-5 (vector-ref sc1 6))) e-5)) (lambda () (PreludeC-45Types-elem (cons (lambda (arg-13) (lambda (arg-14) (CoreC-45Context-u--C-61C-61_Eq_DefFlag arg-13 arg-14))) (lambda (arg-13) (lambda (arg-14) (CoreC-45Context-u--C-47C-61_Eq_DefFlag arg-13 arg-14)))) (vector 3 ) arg-10)))))))))))))))))) ((4) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (CoreC-45Normalise-evalOp arg-0 arg-1 arg-2 e-5 arg-3 (CoreC-45Primitives-getOp e-6 arg-3) arg-11 arg-12))))(else (lambda (eta-0) (vector 1 (arg-12)))))))) -(define CoreC-45Normalise-evalConAlt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (CoreC-45Normalise-case--evalConAlt-3501 arg-0 arg-1 arg-3 arg-4 arg-10 arg-12 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-2 (CoreC-45Normalise-getCaseBound arg-0 arg-1 arg-11 arg-10 arg-6)))) -(define CoreC-45Normalise-evalClosure (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (CoreC-45Normalise-eval arg-2 e-2 arg-0 arg-1 e-1 e-4 e-3 e-5 '()))))))) (else (let ((e-7 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-7)))))))) +(define CoreC-45Normalise-evalTree (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (case (vector-ref arg-10 0) ((0) (let ((e-1 (vector-ref arg-10 1))) (let ((e-2 (vector-ref arg-10 2))) (let ((e-5 (vector-ref arg-10 4))) (lambda (eta-0) (let ((act-24 ((CoreC-45Normalise-evalLocal arg-0 arg-1 arg-2 arg-4 arg-5 arg-8 '() e-2 '() arg-6) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref act-24 1))) (let ((act-25 (CoreC-45ContextC-45Log-log arg-2 "eval.casetree" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Evaluated " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-1) (PreludeC-45TypesC-45String-C-43C-43 " to " (CoreC-45Value-u--show_Show_C-40NFC-32C-36freeC-41 arg-4 e-6))))) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-3 (vector-ref act-25 1))) (vector 0 e-3))) (else (let ((u--locC-39 (CoreC-45Normalise-updateLocal arg-0 arg-1 arg-7 arg-5 e-2 arg-6 e-6))) (CoreC-45Normalise-findAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 u--locC-39 arg-7 arg-8 arg-9 e-6 e-5 eta-0)))))))))))))) ((1) (let ((e-8 (vector-ref arg-10 2))) (let ((e-5 (vector-ref arg-7 5))) (if (null? e-5) (lambda (eta-0) (let ((act-24 ((CoreC-45Normalise-evalWithOpts arg-2 arg-4 arg-3 arg-0 arg-7 arg-5 arg-6 (CoreC-45TT-embed e-8) arg-9) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-10 (vector-ref act-24 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-24 1))) (vector 1 (vector 0 e-10))))))) (let ((e-10 (unbox e-5))) (cond ((equal? e-10 0) (lambda (eta-0) (vector 1 (vector 2 ))))(else (let ((e-11 (- e-10 1))) (let ((u--optsC-39 (let ((e-19 (vector-ref arg-7 0))) (let ((e-18 (vector-ref arg-7 1))) (let ((e-17 (vector-ref arg-7 2))) (let ((e-16 (vector-ref arg-7 3))) (let ((e-15 (vector-ref arg-7 4))) (let ((e-13 (vector-ref arg-7 6))) (let ((e-12 (vector-ref arg-7 7))) (vector e-19 e-18 e-17 e-16 e-15 (box e-11) e-13 e-12)))))))))) (lambda (eta-0) (let ((act-24 ((CoreC-45Normalise-evalWithOpts arg-2 arg-4 arg-3 arg-0 u--optsC-39 arg-5 arg-6 (CoreC-45TT-embed e-8) arg-9) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-12 (vector-ref act-24 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref act-24 1))) (vector 1 (vector 0 e-12))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 2 ))))))) +(define CoreC-45Normalise-evalRef (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 ext-0) (case (vector-ref arg-7 0) ((2) (let ((e-0 (vector-ref arg-7 1))) (let ((e-1 (vector-ref arg-7 2))) (vector 1 (vector 2 arg-6 arg-8 e-0 e-1 arg-9))))) ((3) (let ((e-2 (vector-ref arg-7 1))) (let ((e-3 (vector-ref arg-7 2))) (vector 1 (CoreC-45Value-ntCon arg-6 arg-8 e-2 e-3 arg-9))))) ((0) (vector 1 (arg-10))) (else (let ((act-24 ((CoreC-45Context-lookupCtxtExact arg-8 (let ((e-0 (vector-ref arg-0 0))) e-0)) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((u--nt (vector 1 ))) (if (null? e-5) (vector 1 (arg-10)) (let ((e-1 (unbox e-5))) (let ((u--redok1 (let ((e-3 (vector-ref arg-1 3))) e-3))) (let ((u--redok2 (CoreC-45Context-reducibleInAny (cons (let ((e-2 (vector-ref arg-0 2))) e-2) (let ((e-3 (vector-ref arg-0 3))) e-3)) (let ((e-22 (vector-ref e-1 1))) e-22) (let ((e-9 (vector-ref e-1 9))) e-9)))) (let ((u--redok (cond ((equal? u--redok1 1) 1) (else u--redok2)))) (let ((act-25 (CoreC-45Context-checkTimer arg-2 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 (cond ((equal? u--redok2 1) (vector 1 0)) (else (CoreC-45ContextC-45Log-unverifiedLogC arg-2 "eval.stuck" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-0) (let ((act-26 (CoreC-45Context-toFullNames arg-2 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-1) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-1)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-1) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-1))))) arg-8 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (PreludeC-45TypesC-45String-C-43C-43 "Stuck function: " (CoreC-45Name-u--show_Show_Name e-7)))))))) ext-0))))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (cond ((equal? u--redok 1) (let ((act-27 (CoreC-45Normalise-updateLimit u--nt arg-8 arg-1 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (if (null? e-8) (let ((act-28 (CoreC-45ContextC-45Log-log arg-2 "eval.stuck" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Function " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name arg-8) " past reduction limit"))) ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (vector 1 (arg-10))))) (let ((e-2 (unbox e-8))) ((CoreC-45Normalise-evalDef arg-0 arg-1 arg-2 arg-3 arg-4 e-2 arg-5 arg-6 (let ((e-22 (vector-ref e-1 7))) e-22) (let ((e-17 (vector-ref e-1 17))) e-17) (let ((e-11 (vector-ref e-1 11))) e-11) arg-9 arg-10) ext-0)))))))) (else (vector 1 (arg-10)))))))))))))))))))))))) +(define CoreC-45Normalise-evalOp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (CoreC-45Normalise-case--evalOp-5256 arg-0 arg-1 arg-4 arg-7 arg-6 arg-3 arg-5 arg-2 (CoreC-45Normalise-takeFromStack arg-0 arg-1 arg-3 arg-6)))) +(define CoreC-45Normalise-evalMeta (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((u--argsC-39 (let ((sc0 (DataC-45List-isNil arg-9))) (cond ((equal? sc0 1) (PreludeC-45Types-u--map_Functor_List (lambda (__infixTupleSection-0) (cons (vector 2 ) __infixTupleSection-0)) arg-8)) (else (PreludeC-45TypesC-45List-C-43C-43 (PreludeC-45Types-u--map_Functor_List (lambda (__infixTupleSection-0) (cons (vector 2 ) __infixTupleSection-0)) arg-8) arg-9)))))) (lambda (eta-0) (CoreC-45Normalise-evalRef arg-0 arg-1 arg-2 arg-3 arg-4 1 arg-5 (vector 1 ) (vector 9 arg-7) u--argsC-39 (lambda () (vector 1 arg-5 (vector 2 arg-6 arg-7 arg-8) arg-9)) eta-0))))) +(define CoreC-45Normalise-evalLocal (lambda (arg-0 arg-1 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-11 arg-12) (if (null? arg-12) (let ((sc1 (let ((sc2 (let ((sc3 (let ((e-0 (vector-ref arg-1 0))) e-0))) (cond ((equal? sc3 1) 1) (else (let ((e-1 (vector-ref arg-1 1))) e-1)))))) (cond ((equal? sc2 1) 0) (else (DataC-45Maybe-fromMaybe (lambda () 1) arg-8)))))) (cond ((equal? sc1 1) (let ((sc2 (CoreC-45Env-getBinder (cons (lambda (u--n) (lambda (u--vars) (lambda (arg-5607) (CoreC-45TT-u--weaken_Weaken_Term arg-5607)))) (lambda (u--vars) (lambda (u--ns) (lambda (arg-5613) (lambda (arg-5615) (CoreC-45TT-u--weakenNs_Weaken_Term arg-5613 arg-5615)))))) arg-5 arg-9 arg-6))) (case (vector-ref sc2 0) ((1) (let ((e-3 (vector-ref sc2 3))) (CoreC-45Normalise-eval arg-0 arg-1 arg-4 arg-5 '() arg-6 '() e-3 arg-11)))(else (lambda (eta-0) (vector 1 (vector 1 arg-7 (vector 0 arg-8 arg-9) arg-11))))))) (else (lambda (eta-0) (vector 1 (vector 1 arg-7 (vector 0 arg-8 arg-9) arg-11)))))) (cond ((equal? arg-9 0) (let ((e-4 (car arg-12))) (CoreC-45Normalise-evalLocClosure arg-0 arg-1 arg-4 arg-5 arg-6 arg-7 arg-8 arg-11 e-4)))(else (let ((e-0 (- arg-9 1))) (let ((e-10 (cdr arg-12))) (CoreC-45Normalise-evalLocal arg-0 arg-1 arg-4 arg-5 arg-6 arg-7 arg-8 e-0 arg-11 e-10)))))))) +(define CoreC-45Normalise-evalLocClosure (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (case (vector-ref arg-8 0) ((0) (let ((e-1 (vector-ref arg-8 1))) (let ((e-2 (vector-ref arg-8 2))) (let ((e-3 (vector-ref arg-8 3))) (let ((e-4 (vector-ref arg-8 4))) (let ((e-5 (vector-ref arg-8 5))) (CoreC-45Normalise-evalWithOpts arg-2 arg-3 e-1 arg-0 e-2 e-4 e-3 e-5 arg-7))))))) (else (let ((e-8 (vector-ref arg-8 2))) (let ((e-9 (vector-ref arg-8 3))) (CoreC-45Normalise-applyToStack arg-0 arg-1 arg-2 arg-3 e-8 0 e-9 arg-7))))))) +(define CoreC-45Normalise-evalDef (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (case (vector-ref arg-9 0) ((1) (let ((e-0 (vector-ref arg-9 1))) (let ((e-1 (vector-ref arg-9 2))) (let ((e-2 (vector-ref arg-9 3))) (let ((e-3 (vector-ref arg-9 4))) (let ((e-4 (vector-ref arg-9 5))) (let ((sc1 (let ((sc2 (let ((e-5 (cdr e-0))) e-5))) (cond ((equal? sc2 1) 1) (else (let ((sc3 (let ((sc4 (let ((e-12 (vector-ref arg-5 0))) e-12))) (cond ((equal? sc4 1) 1) (else (let ((sc5 (let ((e-11 (vector-ref arg-5 1))) e-11))) (cond ((equal? sc5 1) 1) (else (let ((e-8 (vector-ref arg-5 4))) e-8))))))))) (cond ((equal? sc3 1) (let ((sc4 (cond ((equal? arg-6 1) (let ((sc6 (AlgebraC-45Semiring-isErased (cons (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-13) (lambda (arg-14) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-13 arg-14))) (lambda (arg-13) (lambda (arg-14) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-13 arg-14))))) arg-8))) (cond ((equal? sc6 1) 0) (else 1)))) (else 0)))) (cond ((equal? sc4 1) 1) (else (let ((sc5 (cond ((equal? arg-6 1) (let ((e-12 (vector-ref arg-5 0))) e-12)) (else 0)))) (cond ((equal? sc5 1) 1) (else (let ((sc6 (let ((e-8 (vector-ref arg-5 4))) e-8))) (cond ((equal? sc6 1) (PreludeC-45Types-elem (cons (lambda (arg-13) (lambda (arg-14) (CoreC-45Context-u--C-61C-61_Eq_DefFlag arg-13 arg-14))) (lambda (arg-13) (lambda (arg-14) (CoreC-45Context-u--C-47C-61_Eq_DefFlag arg-13 arg-14)))) (vector 3 ) arg-10)) (else 0)))))))))) (else 1)))))))) (cond ((equal? sc1 1) (lambda (eta-0) (CoreC-45Normalise-case--caseC-32blockC-32inC-32evalDef-5422 arg-0 arg-1 arg-3 e-1 e-3 e-4 e-2 e-0 arg-12 arg-11 arg-10 arg-8 arg-7 arg-6 arg-5 arg-4 arg-2 (CoreC-45Normalise-argsFromStack arg-0 arg-1 e-1 arg-11) eta-0))) (else (lambda (eta-0) (vector 1 (arg-12)))))))))))) ((4) (let ((e-5 (vector-ref arg-9 1))) (let ((e-6 (vector-ref arg-9 2))) (CoreC-45Normalise-evalOp arg-0 arg-1 arg-2 e-5 arg-3 (CoreC-45Primitives-getOp e-6 arg-3) arg-11 arg-12))))(else (lambda (eta-0) (vector 1 (arg-12))))))) +(define CoreC-45Normalise-evalConAlt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 (CoreC-45Normalise-getCaseBound arg-0 arg-1 arg-11 arg-10 arg-6))) (if (null? sc0) (lambda (eta-0) (vector 1 (vector 2 ))) (let ((e-1 (unbox sc0))) (CoreC-45Normalise-evalTree arg-0 arg-1 arg-2 (PreludeC-45TypesC-45List-C-43C-43 arg-10 arg-3) arg-4 arg-5 e-1 arg-7 arg-8 arg-9 arg-12)))))) +(define CoreC-45Normalise-evalClosure (lambda (arg-0 arg-1 arg-2 arg-3) (case (vector-ref arg-3 0) ((0) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-3 (vector-ref arg-3 3))) (let ((e-4 (vector-ref arg-3 4))) (let ((e-5 (vector-ref arg-3 5))) (CoreC-45Normalise-eval arg-2 e-2 arg-0 arg-1 e-1 e-4 e-3 e-5 '()))))))) (else (let ((e-7 (vector-ref arg-3 1))) (let ((e-8 (vector-ref arg-3 2))) (let ((e-9 (vector-ref arg-3 3))) (CoreC-45Normalise-applyToStack arg-2 e-7 arg-0 arg-1 e-8 1 e-9 '())))))))) (define CoreC-45Normalise-evalArg (lambda (arg-0 arg-1 arg-2 arg-3) (CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 arg-3))) -(define CoreC-45Normalise-eval (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (CoreC-45Normalise-evalLocal arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2 e-3 e-4 arg-8 arg-6))))) ((1) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (lambda (eta-0) (CoreC-45Normalise-evalRef arg-0 arg-1 arg-2 arg-3 arg-5 1 e-7 e-8 e-9 arg-8 (lambda () (vector 1 e-7 (vector 1 e-8 e-9) arg-8)) eta-0)))))) ((2) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 4))) (lambda (eta-0) (CoreC-45Normalise-evalMeta arg-0 arg-1 arg-2 arg-3 arg-5 e-11 e-12 e-13 (CoreC-45Normalise-n--8881-2289-u--closeArgs arg-0 arg-1 arg-4 arg-3 e-14 e-13 e-12 e-11 arg-8 arg-6 arg-5 arg-2 e-14) arg-8 eta-0))))))) ((3) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (let ((sc1 e-18)) (case (vector-ref sc1 0) ((0) (let ((sc2 arg-8)) (if (null? sc2) (lambda (eta-0) (let ((act-24 (CoreC-45CoreC-45Binder-traverse (lambda (u--tm) (CoreC-45Normalise-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 u--tm '())) e-18 eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (vector 1 (vector 0 e-16 e-17 e-5 (lambda (u--defsC-39) (lambda (u--arg) (CoreC-45Normalise-evalWithOpts arg-2 arg-3 (cons e-17 arg-4) u--defsC-39 arg-1 arg-5 (cons u--arg arg-6) e-19 arg-8))))))))))) (let ((e-61 (car sc2))) (let ((e-62 (cdr sc2))) (CoreC-45Normalise-eval arg-0 arg-1 arg-2 arg-3 (cons e-17 arg-4) arg-5 (cons (Builtin-snd e-61) arg-6) e-19 e-62)))))) ((1) (let ((e-56 (vector-ref sc1 1))) (let ((e-57 (vector-ref sc1 2))) (let ((e-58 (vector-ref sc1 3))) (let ((e-59 (vector-ref sc1 4))) (let ((u--b (vector 1 e-56 e-57 e-58 e-59))) (CoreC-45Normalise-case--eval-2344 arg-0 arg-1 arg-3 arg-4 e-56 e-17 e-19 e-58 e-59 e-57 u--b e-16 arg-8 arg-6 arg-5 arg-2 (PreludeC-45Basics-C-38C-38 (PreludeC-45Basics-C-124C-124 (let ((sc2 arg-1)) (let ((e-0 (vector-ref sc2 1))) e-0)) (lambda () (let ((sc2 arg-1)) (let ((e-1 (vector-ref sc2 2))) e-1)))) (lambda () (let ((sc2 (let ((sc3 arg-1)) (let ((e-5 (vector-ref sc3 6))) e-5)))) (cond ((equal? sc2 0) 1) (else 0))))))))))))(else (lambda (eta-0) (let ((act-24 (CoreC-45CoreC-45Binder-traverse (lambda (u--tm) (CoreC-45Normalise-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 u--tm '())) e-18 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-16 e-17 e-5 (lambda (u--defsC-39) (lambda (u--arg) (CoreC-45Normalise-evalWithOpts arg-2 arg-3 (cons e-17 arg-4) u--defsC-39 arg-1 arg-5 (cons u--arg arg-6) e-19 arg-8))))))))))))))))))) ((4) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (CoreC-45Normalise-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-22 (cons (cons e-21 (vector 0 arg-4 arg-1 arg-6 arg-5 e-23)) arg-8)))))) ((5) (let ((e-25 (vector-ref sc0 1))) (let ((e-26 (vector-ref sc0 2))) (let ((e-27 (vector-ref sc0 3))) (let ((e-28 (vector-ref sc0 4))) (CoreC-45Normalise-case--eval-2519 arg-0 arg-1 arg-3 arg-4 e-28 e-27 e-26 e-25 arg-8 arg-6 arg-5 arg-2 (let ((sc1 arg-1)) (let ((e-2 (vector-ref sc1 3))) e-2)))))))) ((6) (let ((e-30 (vector-ref sc0 1))) (let ((e-31 (vector-ref sc0 2))) (let ((e-32 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((CoreC-45Normalise-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-32 arg-8) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 5 e-30 e-31 e-5)))))))))))) ((7) (let ((e-34 (vector-ref sc0 1))) (let ((e-35 (vector-ref sc0 2))) (let ((e-36 (vector-ref sc0 3))) (let ((e-37 (vector-ref sc0 4))) (lambda (eta-0) (vector 1 (vector 6 e-34 e-35 (vector 0 arg-4 arg-1 arg-6 arg-5 e-36) (vector 0 arg-4 arg-1 arg-6 arg-5 e-37))))))))) ((8) (let ((e-39 (vector-ref sc0 1))) (let ((e-40 (vector-ref sc0 2))) (let ((e-41 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((CoreC-45Normalise-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-41 '()) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((6) (let ((e-1 (vector-ref sc2 1))) (let ((e-4 (vector-ref sc2 4))) ((CoreC-45Normalise-eval arg-0 arg-1 arg-2 arg-3 (cons (vector 1 "fvar") arg-4) arg-5 (cons e-4 arg-6) (vector 0 e-1 (vector 0 ) 0) arg-8) eta-0))))(else (vector 1 (vector 7 e-39 e-40 e-5 arg-8))))))))))))))) ((9) (let ((e-43 (vector-ref sc0 1))) (let ((e-44 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 8 e-43 e-44)))))) ((10) (let ((e-46 (vector-ref sc0 1))) (let ((e-47 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 9 e-46 e-47)))))) (else (let ((e-49 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 10 e-49))))))))) -(define CoreC-45Normalise-etaContract (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (CoreC-45ContextC-45Log-logTerm arg-1 arg-0 "eval.eta" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Attempting to eta contract subterms of") arg-2 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45Normalise-normalise arg-0 arg-1 e-5 (CoreC-45Env-mkEnv (vector 1 ) arg-1) arg-2 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (CoreC-45ContextC-45Log-logTerm arg-1 arg-0 "eval.eta" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Evaluated to") e-7 ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-28 ((CoreC-45Core-mapTermM (lambda (vars-7375) (lambda (eta-0) (lambda (eta-1) (CoreC-45Normalise-n--14372-7149-u--act arg-0 arg-1 arg-2 vars-7375 eta-0 eta-1)))) arg-1 arg-2) ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-29 (CoreC-45ContextC-45Log-logTerm arg-1 arg-0 "eval.eta" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Result of eta-contraction") e-9 ext-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (vector 1 e-9)))))))))))))))))))))))))))))) -(define CoreC-45Normalise-convBinders (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((2) (let ((e-11 (vector-ref sc1 1))) (let ((e-12 (vector-ref sc1 2))) (let ((e-13 (vector-ref sc1 3))) (let ((e-14 (vector-ref sc1 4))) (CoreC-45Normalise-case--convBinders-10943 arg-1 e-11 e-1 e-4 e-3 e-2 e-14 e-13 e-12 arg-4 arg-3 arg-2 arg-0 (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega e-2 e-12)))))))(else (CoreC-45Normalise-case--convBinders-11097 arg-1 arg-6 arg-5 arg-4 arg-3 arg-2 arg-0 (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega (CoreC-45TT-multiplicity arg-5) (CoreC-45TT-multiplicity arg-6))))))))))) ((0) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (let ((e-9 (vector-ref sc0 4))) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((0) (let ((e-16 (vector-ref sc1 1))) (let ((e-17 (vector-ref sc1 2))) (let ((e-18 (vector-ref sc1 3))) (let ((e-19 (vector-ref sc1 4))) (CoreC-45Normalise-case--convBinders-11024 arg-1 e-16 e-6 e-9 e-8 e-7 e-19 e-18 e-17 arg-4 arg-3 arg-2 arg-0 (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega e-7 e-17)))))))(else (CoreC-45Normalise-case--convBinders-11097 arg-1 arg-6 arg-5 arg-4 arg-3 arg-2 arg-0 (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega (CoreC-45TT-multiplicity arg-5) (CoreC-45TT-multiplicity arg-6)))))))))))(else (CoreC-45Normalise-case--convBinders-11097 arg-1 arg-6 arg-5 arg-4 arg-3 arg-2 arg-0 (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega (CoreC-45TT-multiplicity arg-5) (CoreC-45TT-multiplicity arg-6)))))))) -(define CoreC-45Normalise-chkSameDefs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 ext-0) (let ((act-24 (CoreC-45Context-lookupDefExact arg-5 (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) e-0)) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((sc2 e-1)) (case (vector-ref sc2 0) ((1) (let ((e-3 (vector-ref sc2 2))) (let ((e-4 (vector-ref sc2 3))) (let ((act-25 (CoreC-45Context-lookupDefExact arg-6 (let ((sc3 arg-3)) (let ((e-0 (vector-ref sc3 1))) e-0)) ext-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-8 (vector-ref sc3 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (case (vector-ref sc4 0) ((1) (let ((e-9 (vector-ref sc4 1))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-13 (vector-ref sc5 2))) (let ((e-12 (vector-ref sc5 3))) (let ((act-26 ((CoreC-45Normalise-getMatchingVars arg-0 e-3 e-13 arg-3 '() e-4 e-12) ext-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-15 (vector-ref sc6 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc6 1))) (let ((sc7 e-15)) (case (vector-ref sc7 0) ((1) (let ((e-16 (vector-ref sc7 1))) ((CoreC-45Normalise-n--15285-8915-u--convertMatches arg-1 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-0 e-3 e-13 e-16) ext-0))) (else (vector 1 1))))))))))))(else (vector 1 1))))))(else (vector 1 1))))))))))))(else (vector 1 1))))))(else (vector 1 1))))))))))) -(define CoreC-45Normalise-chkConvHead (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-3 (vector-ref sc0 2))) (lambda (clam-0) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((0) (let ((e-15 (vector-ref sc1 2))) (vector 1 (PreludeC-45Types-u--C-61C-61_Eq_Nat e-3 e-15))))(else (vector 1 1))))))) ((1) (let ((e-7 (vector-ref sc0 2))) (lambda (clam-1) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((1) (let ((e-19 (vector-ref sc1 2))) (vector 1 (CoreC-45Name-u--C-61C-61_Eq_Name e-7 e-19))))(else (vector 1 1))))))) ((2) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((2) (let ((e-21 (vector-ref sc1 1))) (let ((e-22 (vector-ref sc1 2))) (let ((e-23 (vector-ref sc1 3))) (CoreC-45Normalise-case--chkConvHead-10866 arg-1 e-11 e-10 e-9 e-23 e-22 e-21 arg-4 arg-3 arg-2 arg-0 (PreludeC-45EqOrd-u--C-61C-61_Eq_Int e-10 e-22))))))(else (lambda (eta-0) (vector 1 1)))))))))(else (lambda (eta-0) (vector 1 1))))))) -(define CoreC-45Normalise-chkConvCaseBlock (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 ext-0) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 arg-8)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((act-24 (CoreC-45Context-u--full_HasNames_Name (let ((sc2 arg-4)) (let ((e-0 (vector-ref sc2 1))) e-0)) e-2 ext-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((0) (let ((e-0 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((7) (let ((e-8 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((act-25 (CoreC-45Context-u--full_HasNames_Name (let ((sc5 arg-4)) (let ((e-36 (vector-ref sc5 1))) e-36)) e-5 ext-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc5 1))) (let ((_-0 (vector 0 e-0 (vector 7 e-8 e-7)))) (let ((sc6 e-9)) (case (vector-ref sc6 0) ((0) (let ((e-11 (vector-ref sc6 1))) (let ((e-10 (vector-ref sc6 2))) (let ((sc7 e-10)) (case (vector-ref sc7 0) ((7) (let ((e-13 (vector-ref sc7 1))) (let ((e-12 (vector-ref sc7 2))) (let ((act-26 (CoreC-45Normalise-chkSameDefs arg-0 arg-1 arg-3 arg-4 arg-5 e-2 e-5 arg-7 arg-9 ext-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-14 (vector-ref sc8 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc8 1))) (let ((_-1 (vector 0 e-11 (vector 7 e-13 e-12)))) (let ((sc9 e-14)) (cond ((equal? sc9 1) (let ((act-27 ((CoreC-45Context-lookupCtxtExact e-2 (let ((sc10 arg-4)) (let ((e-42 (vector-ref sc10 1))) e-42))) ext-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-15 (vector-ref sc10 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc10 1))) (let ((_-2 1)) (let ((sc11 e-15)) (case (vector-ref sc11 0) ((1) (let ((e-16 (vector-ref sc11 1))) (let ((act-28 ((CoreC-45Context-lookupCtxtExact e-5 (let ((sc12 arg-4)) (let ((e-44 (vector-ref sc12 1))) e-44))) ext-0))) (let ((sc12 act-28)) (case (vector-ref sc12 0) ((0) (let ((e-17 (vector-ref sc12 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc12 1))) (let ((_-3 (vector 1 e-16))) (let ((sc13 e-17)) (case (vector-ref sc13 0) ((1) (let ((e-18 (vector-ref sc13 1))) (let ((_-4 (vector 1 e-18))) ((CoreC-45Normalise-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32chkConvCaseBlock-9694 arg-1 e-4 e-1 e-2 e-5 arg-9 arg-7 arg-5 arg-4 arg-3 arg-2 arg-0 e-0 e-8 e-7 _-0 e-11 e-13 e-12 _-1 _-2 e-16 _-3 e-18 _-4 (let ((sc14 e-16)) (let ((e-22 (vector-ref sc14 18))) e-22))) ext-0))))(else (vector 1 1))))))))))))(else (vector 1 1))))))))))) (else (vector 1 0)))))))))))))(else (vector 1 1)))))))(else (vector 1 1)))))))))))))(else (vector 1 1)))))))(else (vector 1 1))))))))))))(else (vector 1 1)))))))(else (vector 1 1)))))) -(define CoreC-45Normalise-argsFromStack (lambda (arg-0 arg-1 arg-3 arg-4) (let ((sc0 arg-3)) (if (null? sc0) (vector 1 (cons '() arg-4)) (let ((e-3 (cdr sc0))) (let ((sc1 arg-4)) (if (null? sc1) (vector 0 ) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Normalise-argsFromStack arg-0 arg-1 e-3 e-7) (lambda (_-0) (let ((sc2 _-0)) (let ((e-5 (car sc2))) (let ((e-4 (cdr sc2))) (PreludeC-45Types-u--pure_Applicative_Maybe (cons (cons (Builtin-snd e-6) e-5) e-4)))))))))))))))) -(define CoreC-45Normalise-allConv (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((sc0 arg-5)) (if (null? sc0) (let ((sc1 arg-6)) (if (null? sc1) (vector 1 0) (vector 1 1))) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 arg-6)) (if (null? sc1) (vector 1 1) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (let ((act-24 (CoreC-45Normalise-u--convGen_Convert_Closure arg-0 arg-1 arg-2 arg-3 arg-4 e-2 e-6 ext-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (CoreC-45Normalise-allConv arg-0 arg-1 arg-2 arg-3 arg-4 e-3 e-7 ext-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (vector 1 (PreludeC-45Basics-C-38C-38 e-5 (lambda () e-8))))))))))))))))))))))) -(define CoreC-45Primitives-case--signedShift-2559 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (blodwen-and arg-1 (PreludeC-45Num-u--C-45_Neg_Integer arg-0 1))) (else (blodwen-or arg-1 (PreludeC-45Num-u--negate_Neg_Integer arg-0))))))) -(define CoreC-45Primitives-case--strIndex-1926 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (vector 1 (vector 8 arg-3 (vector 11 (string-ref arg-2 arg-4))))) (else (vector 0 )))))) -(define CoreC-45Primitives-case--intCastWrap-1306 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (PreludeC-45Num-u--mod_Integral_Integer arg-1 arg-0)) (else arg-1))))) -(define CoreC-45Primitives-case--bitCastWrap-1267 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (PreludeC-45Num-u--mod_Integral_Integer arg-1 arg-0)) (else (+ arg-0 (PreludeC-45Num-u--mod_Integral_Integer arg-1 arg-0))))))) -(define CoreC-45Primitives-unaryOp (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (if (null? sc0) (vector 0 ) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((8) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-3)) (if (null? sc2) (PreludeC-45Types-u--map_Functor_Maybe (lambda (eta-0) (vector 8 e-5 eta-0)) (arg-0 e-6)) (vector 0 ))))))(else (vector 0 )))))))))) -(define CoreC-45Primitives-toInt (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 0) (vector 0 1)) (else (vector 0 0)))))) -(define CoreC-45Primitives-sub (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((5) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((5) (let ((e-8 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 5 (PreludeC-45Num-u--C-45_Neg_Integer e-0 e-8)))))(else (vector 0 )))))) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) (let ((e-9 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 0 (PreludeC-45Num-u--C-45_Neg_Int e-1 e-9)))))(else (vector 0 )))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) (let ((e-10 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 1 (CoreC-45Primitives-int8CastWrap (PreludeC-45Num-u--C-45_Neg_Integer e-2 e-10))))))(else (vector 0 )))))) ((2) (let ((e-3 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((2) (let ((e-11 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 2 (CoreC-45Primitives-int16CastWrap (PreludeC-45Num-u--C-45_Neg_Integer e-3 e-11))))))(else (vector 0 )))))) ((3) (let ((e-4 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((3) (let ((e-12 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 3 (CoreC-45Primitives-int32CastWrap (PreludeC-45Num-u--C-45_Neg_Integer e-4 e-12))))))(else (vector 0 )))))) ((4) (let ((e-5 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((4) (let ((e-13 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 4 (CoreC-45Primitives-int64CastWrap (PreludeC-45Num-u--C-45_Neg_Integer e-5 e-13))))))(else (vector 0 )))))) ((11) (let ((e-6 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((11) (let ((e-14 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 11 (PreludeC-45Cast-u--cast_Cast_Int_Char (PreludeC-45Num-u--C-45_Neg_Int (PreludeC-45Cast-u--cast_Cast_Char_Int e-6) (PreludeC-45Cast-u--cast_Cast_Char_Int e-14)))))))(else (vector 0 )))))) ((12) (let ((e-7 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((12) (let ((e-15 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 12 (PreludeC-45Num-u--C-45_Neg_Double e-7 e-15)))))(else (vector 0 ))))))(else (vector 0 )))))) -(define CoreC-45Primitives-strTail (lambda (arg-1) (let ((sc0 arg-1)) (if (null? sc0) (vector 0 ) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((8) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((10) (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (cond ((equal? sc3 "") (let ((sc4 e-3)) (if (null? sc4) (vector 0 ) (let ((sc5 e-3)) (if (null? sc5) (vector 1 (vector 8 e-5 (vector 10 (substring e-7 1 (string-length e-7))))) (vector 0 ))))))(else (let ((sc3 e-3)) (if (null? sc3) (vector 1 (vector 8 e-5 (vector 10 (substring e-7 1 (string-length e-7))))) (vector 0 ))))))))(else (vector 0 )))))))(else (vector 0 )))))))))) -(define CoreC-45Primitives-strSubstr (lambda (arg-1) (let ((sc0 arg-1)) (if (null? sc0) (vector 0 ) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((8) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-3)) (if (null? sc3) (vector 0 ) (let ((e-10 (car sc3))) (let ((e-11 (cdr sc3))) (let ((sc4 e-10)) (case (vector-ref sc4 0) ((8) (let ((e-14 (vector-ref sc4 2))) (let ((sc5 e-14)) (case (vector-ref sc5 0) ((0) (let ((e-15 (vector-ref sc5 1))) (let ((sc6 e-11)) (if (null? sc6) (vector 0 ) (let ((e-18 (car sc6))) (let ((e-19 (cdr sc6))) (let ((sc7 e-18)) (case (vector-ref sc7 0) ((8) (let ((e-22 (vector-ref sc7 2))) (let ((sc8 e-22)) (case (vector-ref sc8 0) ((10) (let ((e-23 (vector-ref sc8 1))) (let ((sc9 e-19)) (if (null? sc9) (vector 1 (vector 8 e-5 (vector 10 (string-substr e-7 e-15 e-23)))) (vector 0 )))))(else (vector 0 ))))))(else (vector 0 ))))))))))(else (vector 0 ))))))(else (vector 0 ))))))))))(else (vector 0 )))))))(else (vector 0 )))))))))) -(define CoreC-45Primitives-strReverse (lambda (arg-1) (let ((sc0 arg-1)) (if (null? sc0) (vector 0 ) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((8) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((10) (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-3)) (if (null? sc3) (vector 1 (vector 8 e-5 (vector 10 (PreludeC-45Types-reverse e-7)))) (vector 0 )))))(else (vector 0 )))))))(else (vector 0 )))))))))) -(define CoreC-45Primitives-strLength (lambda (arg-1) (let ((sc0 arg-1)) (if (null? sc0) (vector 0 ) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((8) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((10) (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-3)) (if (null? sc3) (vector 1 (vector 8 e-5 (vector 0 (PreludeC-45Cast-u--cast_Cast_Nat_Int (PreludeC-45TypesC-45String-length e-7))))) (vector 0 )))))(else (vector 0 )))))))(else (vector 0 )))))))))) -(define CoreC-45Primitives-strIndex (lambda (arg-1) (let ((sc0 arg-1)) (if (null? sc0) (vector 0 ) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((8) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((10) (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-3)) (if (null? sc3) (vector 0 ) (let ((e-10 (car sc3))) (let ((e-11 (cdr sc3))) (let ((sc4 e-10)) (case (vector-ref sc4 0) ((8) (let ((e-13 (vector-ref sc4 1))) (let ((e-14 (vector-ref sc4 2))) (let ((sc5 e-14)) (case (vector-ref sc5 0) ((0) (let ((e-15 (vector-ref sc5 1))) (let ((sc6 e-11)) (if (null? sc6) (CoreC-45Primitives-case--strIndex-1926 e-13 e-7 e-5 e-15 (PreludeC-45Basics-C-38C-38 (PreludeC-45EqOrd-u--C-62C-61_Ord_Int e-15 0) (lambda () (PreludeC-45Types-u--C-60_Ord_Nat (PreludeC-45Types-prim__integerToNat (PreludeC-45Cast-u--cast_Cast_Int_Integer e-15)) (PreludeC-45TypesC-45String-length e-7))))) (vector 0 )))))(else (vector 0 )))))))(else (vector 0 ))))))))))(else (vector 0 )))))))(else (vector 0 )))))))))) -(define CoreC-45Primitives-strHead (lambda (arg-1) (let ((sc0 arg-1)) (if (null? sc0) (vector 0 ) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((8) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((10) (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (cond ((equal? sc3 "") (let ((sc4 e-3)) (if (null? sc4) (vector 0 ) (let ((sc5 e-3)) (if (null? sc5) (vector 1 (vector 8 e-5 (vector 11 (string-ref e-7 0)))) (vector 0 ))))))(else (let ((sc3 e-3)) (if (null? sc3) (vector 1 (vector 8 e-5 (vector 11 (string-ref e-7 0)))) (vector 0 ))))))))(else (vector 0 )))))))(else (vector 0 )))))))))) -(define CoreC-45Primitives-strCons (lambda (arg-1) (let ((sc0 arg-1)) (if (null? sc0) (vector 0 ) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((8) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((11) (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-3)) (if (null? sc3) (vector 0 ) (let ((e-10 (car sc3))) (let ((e-11 (cdr sc3))) (let ((sc4 e-10)) (case (vector-ref sc4 0) ((8) (let ((e-14 (vector-ref sc4 2))) (let ((sc5 e-14)) (case (vector-ref sc5 0) ((10) (let ((e-15 (vector-ref sc5 1))) (let ((sc6 e-11)) (if (null? sc6) (vector 1 (vector 8 e-5 (vector 10 (PreludeC-45Types-strCons e-7 e-15)))) (vector 0 )))))(else (vector 0 ))))))(else (vector 0 ))))))))))(else (vector 0 )))))))(else (vector 0 )))))))))) -(define CoreC-45Primitives-strAppend (lambda (arg-1) (let ((sc0 arg-1)) (if (null? sc0) (vector 0 ) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((8) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((10) (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-3)) (if (null? sc3) (vector 0 ) (let ((e-10 (car sc3))) (let ((e-11 (cdr sc3))) (let ((sc4 e-10)) (case (vector-ref sc4 0) ((8) (let ((e-14 (vector-ref sc4 2))) (let ((sc5 e-14)) (case (vector-ref sc5 0) ((10) (let ((e-15 (vector-ref sc5 1))) (let ((sc6 e-11)) (if (null? sc6) (vector 1 (vector 8 e-5 (vector 10 (PreludeC-45TypesC-45String-C-43C-43 e-7 e-15)))) (vector 0 )))))(else (vector 0 ))))))(else (vector 0 ))))))))))(else (vector 0 )))))))(else (vector 0 )))))))))) -(define CoreC-45Primitives-signedShift (lambda (arg-0 arg-1) (CoreC-45Primitives-case--signedShift-2559 arg-1 arg-0 (PreludeC-45EqOrd-u--C-61C-61_Eq_Integer (blodwen-and arg-0 arg-1) 0)))) -(define CoreC-45Primitives-shiftr (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) (let ((e-9 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 0 (blodwen-shr e-0 e-9)))))(else (vector 0 )))))) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) (let ((e-10 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 1 (CoreC-45Primitives-signedShift (blodwen-shr e-1 e-10) (CoreC-45Primitives-int8max))))))(else (vector 0 )))))) ((2) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((2) (let ((e-11 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 2 (CoreC-45Primitives-signedShift (blodwen-shr e-2 e-11) (CoreC-45Primitives-int16max))))))(else (vector 0 )))))) ((3) (let ((e-3 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((3) (let ((e-12 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 3 (CoreC-45Primitives-signedShift (blodwen-shr e-3 e-12) (CoreC-45Primitives-int32max))))))(else (vector 0 )))))) ((4) (let ((e-4 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((4) (let ((e-13 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 4 (CoreC-45Primitives-signedShift (blodwen-shr e-4 e-13) (CoreC-45Primitives-int64max))))))(else (vector 0 )))))) ((6) (let ((e-5 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((6) (let ((e-14 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 6 (blodwen-shr e-5 e-14)))))(else (vector 0 )))))) ((7) (let ((e-6 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((7) (let ((e-15 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 7 (blodwen-shr e-6 e-15)))))(else (vector 0 )))))) ((8) (let ((e-7 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((8) (let ((e-16 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 8 (blodwen-shr e-7 e-16)))))(else (vector 0 )))))) ((9) (let ((e-8 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((9) (let ((e-17 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 9 (blodwen-shr e-8 e-17)))))(else (vector 0 ))))))(else (vector 0 )))))) -(define CoreC-45Primitives-shiftl (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) (let ((e-10 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 0 (blodwen-bits-shl-signed e-0 e-10 63)))))(else (vector 0 )))))) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) (let ((e-11 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 1 (CoreC-45Primitives-signedShift (blodwen-shl e-1 e-11) (CoreC-45Primitives-int8max))))))(else (vector 0 )))))) ((2) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((2) (let ((e-12 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 2 (CoreC-45Primitives-signedShift (blodwen-shl e-2 e-12) (CoreC-45Primitives-int16max))))))(else (vector 0 )))))) ((3) (let ((e-3 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((3) (let ((e-13 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 3 (CoreC-45Primitives-signedShift (blodwen-shl e-3 e-13) (CoreC-45Primitives-int32max))))))(else (vector 0 )))))) ((4) (let ((e-4 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((4) (let ((e-14 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 4 (CoreC-45Primitives-signedShift (blodwen-shl e-4 e-14) (CoreC-45Primitives-int64max))))))(else (vector 0 )))))) ((5) (let ((e-5 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((5) (let ((e-15 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 5 (blodwen-shl e-5 e-15)))))(else (vector 0 )))))) ((6) (let ((e-6 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((6) (let ((e-16 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 6 (PreludeC-45Num-u--mod_Integral_Int (blodwen-bits-shl-signed e-6 e-16 63) (CoreC-45Primitives-b8max))))))(else (vector 0 )))))) ((7) (let ((e-7 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((7) (let ((e-17 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 7 (PreludeC-45Num-u--mod_Integral_Int (blodwen-bits-shl-signed e-7 e-17 63) (CoreC-45Primitives-b16max))))))(else (vector 0 )))))) ((8) (let ((e-8 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((8) (let ((e-18 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 8 (PreludeC-45Num-u--mod_Integral_Int (blodwen-bits-shl-signed e-8 e-18 63) (CoreC-45Primitives-b32max))))))(else (vector 0 )))))) ((9) (let ((e-9 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((9) (let ((e-19 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 9 (PreludeC-45Num-u--mod_Integral_Integer (blodwen-shl e-9 e-19) (CoreC-45Primitives-b64max))))))(else (vector 0 ))))))(else (vector 0 )))))) +(define CoreC-45Normalise-eval (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (case (vector-ref arg-7 0) ((0) (let ((e-2 (vector-ref arg-7 1))) (let ((e-3 (vector-ref arg-7 2))) (let ((e-4 (vector-ref arg-7 3))) (CoreC-45Normalise-evalLocal arg-0 arg-1 arg-2 arg-3 arg-5 e-2 e-3 e-4 arg-8 arg-6))))) ((1) (let ((e-7 (vector-ref arg-7 1))) (let ((e-8 (vector-ref arg-7 2))) (let ((e-9 (vector-ref arg-7 3))) (lambda (eta-0) (CoreC-45Normalise-evalRef arg-0 arg-1 arg-2 arg-3 arg-5 0 e-7 e-8 e-9 arg-8 (lambda () (vector 1 e-7 (vector 1 e-8 e-9) arg-8)) eta-0)))))) ((2) (let ((e-11 (vector-ref arg-7 1))) (let ((e-12 (vector-ref arg-7 2))) (let ((e-13 (vector-ref arg-7 3))) (let ((e-14 (vector-ref arg-7 4))) (CoreC-45Normalise-evalMeta arg-0 arg-1 arg-2 arg-3 arg-5 e-11 e-12 e-13 (CoreC-45Normalise-n--6426-2178-u--closeArgs arg-0 arg-1 arg-4 arg-3 e-14 e-13 e-12 e-11 arg-8 arg-6 arg-5 arg-2 e-14) arg-8)))))) ((3) (let ((e-16 (vector-ref arg-7 1))) (let ((e-17 (vector-ref arg-7 2))) (let ((e-18 (vector-ref arg-7 3))) (let ((e-19 (vector-ref arg-7 4))) (case (vector-ref e-18 0) ((0) (if (null? arg-8) (lambda (eta-0) (let ((act-24 (CoreC-45CoreC-45Binder-traverse (lambda (u--tm) (CoreC-45Normalise-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 u--tm '())) e-18 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 0 e-16 e-17 e-5 (lambda (u--defsC-39) (lambda (u--arg) (CoreC-45Normalise-evalWithOpts arg-2 arg-3 (cons e-17 arg-4) u--defsC-39 arg-1 arg-5 (cons u--arg arg-6) e-19 arg-8)))))))))) (let ((e-61 (car arg-8))) (let ((e-62 (cdr arg-8))) (CoreC-45Normalise-eval arg-0 arg-1 arg-2 arg-3 (cons e-17 arg-4) arg-5 (cons (Builtin-snd e-61) arg-6) e-19 e-62))))) ((1) (let ((e-56 (vector-ref e-18 1))) (let ((e-57 (vector-ref e-18 2))) (let ((e-58 (vector-ref e-18 3))) (let ((e-59 (vector-ref e-18 4))) (let ((u--b (vector 1 e-56 e-57 e-58 e-59))) (let ((sc2 (let ((sc3 (let ((sc4 (let ((e-0 (vector-ref arg-1 0))) e-0))) (cond ((equal? sc4 1) 1) (else (let ((e-1 (vector-ref arg-1 1))) e-1)))))) (cond ((equal? sc3 1) (let ((sc4 (let ((e-4 (vector-ref arg-1 4))) e-4))) (cond ((equal? sc4 1) 0) (else 1)))) (else 0))))) (cond ((equal? sc2 1) (lambda (eta-0) (let ((act-24 (CoreC-45CoreC-45Binder-traverse (lambda (u--tm) (CoreC-45Normalise-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 u--tm '())) u--b eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 0 e-16 e-17 e-5 (lambda (u--defsC-39) (lambda (u--arg) (CoreC-45Normalise-evalWithOpts arg-2 arg-3 (cons e-17 arg-4) u--defsC-39 arg-1 arg-5 (cons u--arg arg-6) e-19 arg-8))))))))))) (else (CoreC-45Normalise-eval arg-0 arg-1 arg-2 arg-3 (cons e-17 arg-4) arg-5 (cons (vector 0 arg-4 arg-1 arg-6 arg-5 e-58) arg-6) e-19 arg-8))))))))))(else (lambda (eta-0) (let ((act-24 (CoreC-45CoreC-45Binder-traverse (lambda (u--tm) (CoreC-45Normalise-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 u--tm '())) e-18 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 0 e-16 e-17 e-5 (lambda (u--defsC-39) (lambda (u--arg) (CoreC-45Normalise-evalWithOpts arg-2 arg-3 (cons e-17 arg-4) u--defsC-39 arg-1 arg-5 (cons u--arg arg-6) e-19 arg-8))))))))))))))))) ((4) (let ((e-21 (vector-ref arg-7 1))) (let ((e-22 (vector-ref arg-7 2))) (let ((e-23 (vector-ref arg-7 3))) (let ((sc1 (let ((e-7 (vector-ref arg-1 7))) e-7))) (cond ((equal? sc1 0) (lambda (eta-0) (let ((act-24 ((CoreC-45Normalise-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-23 '()) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) ((CoreC-45Normalise-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-22 (cons (cons e-21 (vector 1 arg-1 arg-5 e-5)) arg-8)) eta-0))))))) (else (CoreC-45Normalise-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-22 (cons (cons e-21 (vector 0 arg-4 arg-1 arg-6 arg-5 e-23)) arg-8))))))))) ((5) (let ((e-25 (vector-ref arg-7 1))) (let ((e-26 (vector-ref arg-7 2))) (let ((e-27 (vector-ref arg-7 3))) (let ((e-28 (vector-ref arg-7 4))) (let ((sc1 (let ((e-2 (vector-ref arg-1 2))) e-2))) (cond ((equal? sc1 1) (CoreC-45Normalise-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-28 arg-8)) (else (lambda (eta-0) (let ((act-24 ((CoreC-45Normalise-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-27 arg-8) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Normalise-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-28 arg-8) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (vector 4 e-25 e-26 e-5 e-6))))))))))))))))))) ((6) (let ((e-30 (vector-ref arg-7 1))) (let ((e-31 (vector-ref arg-7 2))) (let ((e-32 (vector-ref arg-7 3))) (lambda (eta-0) (let ((act-24 ((CoreC-45Normalise-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-32 arg-8) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 5 e-30 e-31 e-5))))))))))) ((7) (let ((e-34 (vector-ref arg-7 1))) (let ((e-35 (vector-ref arg-7 2))) (let ((e-36 (vector-ref arg-7 3))) (let ((e-37 (vector-ref arg-7 4))) (lambda (eta-0) (vector 1 (vector 6 e-34 e-35 (vector 0 arg-4 arg-1 arg-6 arg-5 e-36) (vector 0 arg-4 arg-1 arg-6 arg-5 e-37))))))))) ((8) (let ((e-39 (vector-ref arg-7 1))) (let ((e-40 (vector-ref arg-7 2))) (let ((e-41 (vector-ref arg-7 3))) (lambda (eta-0) (let ((act-24 ((CoreC-45Normalise-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-41 '()) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (case (vector-ref e-5 0) ((6) (let ((e-1 (vector-ref e-5 1))) (let ((e-4 (vector-ref e-5 4))) ((CoreC-45Normalise-eval arg-0 arg-1 arg-2 arg-3 (cons (vector 1 "fvar") arg-4) arg-5 (cons e-4 arg-6) (vector 0 e-1 '() 0) arg-8) eta-0))))(else (vector 1 (vector 7 e-39 e-40 e-5 arg-8))))))))))))) ((9) (let ((e-43 (vector-ref arg-7 1))) (let ((e-44 (vector-ref arg-7 2))) (lambda (eta-0) (vector 1 (vector 8 e-43 e-44)))))) ((10) (let ((e-46 (vector-ref arg-7 1))) (let ((e-47 (vector-ref arg-7 2))) (lambda (eta-0) (vector 1 (vector 9 e-46 e-47)))))) (else (let ((e-49 (vector-ref arg-7 1))) (lambda (eta-0) (vector 1 (vector 10 e-49)))))))) +(define CoreC-45Normalise-etaContract (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45ContextC-45Log-logTerm arg-1 arg-0 "eval.eta" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Attempting to eta contract subterms of") arg-2 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45Normalise-normalise arg-0 arg-1 e-5 (CoreC-45Env-mkEnv (vector 2 ) arg-1) arg-2 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (CoreC-45ContextC-45Log-logTerm arg-1 arg-0 "eval.eta" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Evaluated to") e-7 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((act-28 ((CoreC-45Core-mapTermM (lambda (vars-7792) (lambda (eta-0) (lambda (eta-1) (CoreC-45Normalise-n--12690-7545-u--act arg-0 arg-1 arg-2 vars-7792 eta-0 eta-1)))) arg-1 arg-2) ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-28 1))) (let ((act-29 (CoreC-45ContextC-45Log-logTerm arg-1 arg-0 "eval.eta" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Result of eta-contraction") e-9 ext-0))) (case (vector-ref act-29 0) ((0) (let ((e-2 (vector-ref act-29 1))) (vector 0 e-2))) (else (vector 1 e-9)))))))))))))))))))))))) +(define CoreC-45Normalise-convBinders (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (case (vector-ref arg-5 0) ((2) (let ((e-2 (vector-ref arg-5 2))) (let ((e-4 (vector-ref arg-5 4))) (case (vector-ref arg-6 0) ((2) (let ((e-12 (vector-ref arg-6 2))) (let ((e-14 (vector-ref arg-6 4))) (let ((sc2 (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega e-2 e-12))) (cond ((equal? sc2 1) (lambda (eta-0) (vector 1 0))) (else (CoreC-45Normalise-u--convGen_Convert_NF arg-0 arg-1 arg-2 arg-3 arg-4 e-4 e-14)))))))(else (let ((sc1 (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega (CoreC-45TT-multiplicity arg-5) (CoreC-45TT-multiplicity arg-6)))) (cond ((equal? sc1 1) (lambda (eta-0) (vector 1 0))) (else (CoreC-45Normalise-u--convGen_Convert_NF arg-0 arg-1 arg-2 arg-3 arg-4 (CoreC-45TT-binderType arg-5) (CoreC-45TT-binderType arg-6)))))))))) ((0) (let ((e-7 (vector-ref arg-5 2))) (let ((e-9 (vector-ref arg-5 4))) (case (vector-ref arg-6 0) ((0) (let ((e-17 (vector-ref arg-6 2))) (let ((e-19 (vector-ref arg-6 4))) (let ((sc2 (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega e-7 e-17))) (cond ((equal? sc2 1) (lambda (eta-0) (vector 1 0))) (else (CoreC-45Normalise-u--convGen_Convert_NF arg-0 arg-1 arg-2 arg-3 arg-4 e-9 e-19)))))))(else (let ((sc1 (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega (CoreC-45TT-multiplicity arg-5) (CoreC-45TT-multiplicity arg-6)))) (cond ((equal? sc1 1) (lambda (eta-0) (vector 1 0))) (else (CoreC-45Normalise-u--convGen_Convert_NF arg-0 arg-1 arg-2 arg-3 arg-4 (CoreC-45TT-binderType arg-5) (CoreC-45TT-binderType arg-6))))))))))(else (let ((sc0 (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega (CoreC-45TT-multiplicity arg-5) (CoreC-45TT-multiplicity arg-6)))) (cond ((equal? sc0 1) (lambda (eta-0) (vector 1 0))) (else (CoreC-45Normalise-u--convGen_Convert_NF arg-0 arg-1 arg-2 arg-3 arg-4 (CoreC-45TT-binderType arg-5) (CoreC-45TT-binderType arg-6))))))))) +(define CoreC-45Normalise-continueNF (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (CoreC-45Normalise-applyToStack arg-2 (CoreC-45Value-defaultOpts) arg-0 arg-1 arg-3 1 arg-4 '()))) +(define CoreC-45Normalise-chkSameDefs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 ext-0) (let ((act-24 (CoreC-45Context-lookupDefExact arg-5 (let ((e-0 (vector-ref arg-3 0))) e-0) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (if (null? e-5) (vector 1 0) (let ((e-1 (unbox e-5))) (case (vector-ref e-1 0) ((1) (let ((e-3 (vector-ref e-1 2))) (let ((e-4 (vector-ref e-1 3))) (let ((act-25 (CoreC-45Context-lookupDefExact arg-6 (let ((e-0 (vector-ref arg-3 0))) e-0) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-8 (vector-ref act-25 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref act-25 1))) (if (null? e-8) (vector 1 0) (let ((e-9 (unbox e-8))) (case (vector-ref e-9 0) ((1) (let ((e-13 (vector-ref e-9 2))) (let ((e-12 (vector-ref e-9 3))) (let ((act-26 ((CoreC-45Normalise-getMatchingVars arg-0 e-3 e-13 arg-3 '() e-4 e-12) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-15 (vector-ref act-26 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref act-26 1))) (if (null? e-15) (vector 1 0) (let ((e-16 (unbox e-15))) ((CoreC-45Normalise-n--13660-9719-u--convertMatches arg-1 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-0 e-3 e-13 e-16) ext-0))))))))))(else (vector 1 0))))))))))))(else (vector 1 0))))))))))) +(define CoreC-45Normalise-chkConvHead (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (case (vector-ref arg-5 0) ((0) (let ((e-3 (vector-ref arg-5 2))) (lambda (clam-0) (case (vector-ref arg-6 0) ((0) (let ((e-15 (vector-ref arg-6 2))) (vector 1 (PreludeC-45Types-u--C-61C-61_Eq_Nat e-3 e-15))))(else (vector 1 0)))))) ((1) (let ((e-7 (vector-ref arg-5 2))) (lambda (clam-1) (case (vector-ref arg-6 0) ((1) (let ((e-19 (vector-ref arg-6 2))) (vector 1 (CoreC-45Name-u--C-61C-61_Eq_Name e-7 e-19))))(else (vector 1 0)))))) ((2) (let ((e-10 (vector-ref arg-5 2))) (let ((e-11 (vector-ref arg-5 3))) (case (vector-ref arg-6 0) ((2) (let ((e-22 (vector-ref arg-6 2))) (let ((e-23 (vector-ref arg-6 3))) (lambda (clam-0) (let ((sc2 (PreludeC-45EqOrd-u--C-61C-61_Eq_Int e-10 e-22))) (cond ((equal? sc2 1) (CoreC-45Normalise-allConv arg-0 arg-1 arg-2 arg-3 arg-4 e-11 e-23 clam-0)) (else (vector 1 0))))))))(else (lambda (eta-0) (vector 1 0)))))))(else (lambda (eta-0) (vector 1 0)))))) +(define CoreC-45Normalise-chkConvCaseBlock (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 ext-0) (case (vector-ref arg-6 0) ((1) (let ((e-1 (vector-ref arg-6 1))) (let ((e-2 (vector-ref arg-6 2))) (case (vector-ref arg-8 0) ((1) (let ((e-4 (vector-ref arg-8 1))) (let ((e-5 (vector-ref arg-8 2))) (let ((act-24 (CoreC-45Context-u--full_HasNames_Name (let ((e-0 (vector-ref arg-4 0))) e-0) e-2 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref act-24 1))) (case (vector-ref e-6 0) ((0) (let ((e-3 (vector-ref e-6 2))) (case (vector-ref e-3 0) ((7) (let ((act-25 (CoreC-45Context-u--full_HasNames_Name (let ((e-37 (vector-ref arg-4 0))) e-37) e-5 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-9 (vector-ref act-25 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref act-25 1))) (case (vector-ref e-9 0) ((0) (let ((e-10 (vector-ref e-9 2))) (case (vector-ref e-10 0) ((7) (let ((act-26 (CoreC-45Normalise-chkSameDefs arg-0 arg-1 arg-3 arg-4 arg-5 e-2 e-5 arg-7 arg-9 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-14 (vector-ref act-26 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref act-26 1))) (cond ((equal? e-14 0) (let ((act-27 ((CoreC-45Context-lookupCtxtExact e-2 (let ((e-43 (vector-ref arg-4 0))) e-43)) ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-15 (vector-ref act-27 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref act-27 1))) (if (null? e-15) (vector 1 0) (let ((e-16 (unbox e-15))) (let ((act-28 ((CoreC-45Context-lookupCtxtExact e-5 (let ((e-45 (vector-ref arg-4 0))) e-45)) ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-17 (vector-ref act-28 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref act-28 1))) (if (null? e-17) (vector 1 0) (let ((e-18 (unbox e-17))) (let ((e-22 (vector-ref e-16 17))) (case (vector-ref e-22 0) ((1) (let ((e-42 (vector-ref e-22 3))) (let ((e-48 (vector-ref e-18 17))) (case (vector-ref e-48 0) ((1) (let ((e-68 (vector-ref e-48 3))) (let ((sc16 (CoreC-45Normalise-n--13666-10205-u--findArgPos arg-1 e-4 e-1 e-2 e-5 arg-9 arg-7 arg-5 arg-4 arg-3 arg-2 arg-0 e-42))) (if (null? sc16) (vector 1 0) (let ((e-71 (unbox sc16))) (let ((sc17 (CoreC-45Normalise-n--13666-10205-u--findArgPos arg-1 e-4 e-1 e-2 e-5 arg-9 arg-7 arg-5 arg-4 arg-3 arg-2 arg-0 e-68))) (if (null? sc17) (vector 1 0) (let ((e-72 (unbox sc17))) (let ((sc18 (CoreC-45Normalise-n--13666-10206-u--getScrutinee arg-1 e-4 e-1 e-2 e-5 arg-9 arg-7 arg-5 arg-4 arg-3 arg-2 arg-0 e-71 arg-7))) (if (null? sc18) (vector 1 0) (let ((e-73 (unbox sc18))) (let ((sc19 (CoreC-45Normalise-n--13666-10206-u--getScrutinee arg-1 e-4 e-1 e-2 e-5 arg-9 arg-7 arg-5 arg-4 arg-3 arg-2 arg-0 e-72 arg-9))) (if (null? sc19) (vector 1 0) (let ((e-74 (unbox sc19))) (let ((act-29 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-75 (vector-ref eta-0 1))) (vector 0 e-75))) (else (vector 1 0)))) (lambda (eta-0) (CoreC-45Normalise-u--convGen_Convert_Closure arg-0 arg-1 arg-3 arg-4 arg-5 e-73 e-74 eta-0)) ext-0))) (case (vector-ref act-29 0) ((0) (let ((e-75 (vector-ref act-29 1))) (vector 0 e-75))) (else (vector 1 (CoreC-45FC-u--C-61C-61_Eq_FC (let ((e-96 (vector-ref e-16 0))) e-96) (let ((e-96 (vector-ref e-18 0))) e-96))))))))))))))))))))(else (vector 1 0))))))(else (vector 1 0))))))))))))))))) (else (vector 1 1))))))))(else (vector 1 0)))))(else (vector 1 0))))))))(else (vector 1 0)))))(else (vector 1 0))))))))))(else (vector 1 0))))))(else (vector 1 0))))) +(define CoreC-45Normalise-argsFromStack (lambda (arg-0 arg-1 arg-3 arg-4) (if (null? arg-3) (box (cons '() arg-4)) (let ((e-3 (cdr arg-3))) (if (null? arg-4) '() (let ((e-6 (car arg-4))) (let ((e-7 (cdr arg-4))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Normalise-argsFromStack arg-0 arg-1 e-3 e-7) (lambda (_-0) (let ((e-5 (car _-0))) (let ((e-4 (cdr _-0))) (PreludeC-45Types-u--pure_Applicative_Maybe (cons (cons (Builtin-snd e-6) e-5) e-4))))))))))))) +(define CoreC-45Normalise-applyToStack (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (case (vector-ref arg-6 0) ((0) (let ((e-1 (vector-ref arg-6 1))) (let ((e-2 (vector-ref arg-6 2))) (let ((e-3 (vector-ref arg-6 3))) (let ((e-4 (vector-ref arg-6 4))) (case (vector-ref e-3 0) ((0) (lambda (clam-0) (if (null? arg-7) (let ((act-24 (cond ((equal? arg-5 1) (CoreC-45CoreC-45Binder-traverse (lambda (u--t) (CoreC-45Normalise-applyToStack arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 u--t '())) e-3 clam-0)) (else (vector 1 e-3))))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 0 e-1 e-2 e-5 (lambda (u--defsC-39) (lambda (u--arg) (lambda (eta-0) (let ((act-25 (((e-4 u--defsC-39) u--arg) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-6 (vector-ref act-25 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-25 1))) ((CoreC-45Normalise-applyToStack arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-6 arg-7) eta-0)))))))))))))) (let ((e-59 (car arg-7))) (let ((e-60 (cdr arg-7))) (let ((act-24 (((e-4 arg-0) (Builtin-snd e-59)) clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) ((CoreC-45Normalise-applyToStack arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-5 e-60) clam-0)))))))))) ((1) (let ((e-54 (vector-ref e-3 1))) (let ((e-55 (vector-ref e-3 2))) (let ((e-56 (vector-ref e-3 3))) (let ((e-57 (vector-ref e-3 4))) (let ((u--b (vector 1 e-54 e-55 e-56 e-57))) (lambda (clam-1) (let ((sc2 (let ((sc3 (let ((sc4 (let ((e-0 (vector-ref arg-1 0))) e-0))) (cond ((equal? sc4 1) 1) (else (let ((e-11 (vector-ref arg-1 1))) e-11)))))) (cond ((equal? sc3 1) (let ((sc4 (let ((e-8 (vector-ref arg-1 4))) e-8))) (cond ((equal? sc4 1) 0) (else 1)))) (else 0))))) (cond ((equal? sc2 1) (let ((act-24 (cond ((equal? arg-5 1) (CoreC-45CoreC-45Binder-traverse (lambda (u--t) (CoreC-45Normalise-applyToStack arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 u--t '())) u--b clam-1)) (else (vector 1 u--b))))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 0 e-1 e-2 e-5 (lambda (u--defsC-39) (lambda (u--arg) (lambda (eta-0) (let ((act-25 (((e-4 u--defsC-39) u--arg) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-6 (vector-ref act-25 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-25 1))) ((CoreC-45Normalise-applyToStack arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-6 arg-7) eta-0))))))))))))))) (else (let ((act-24 ((CoreC-45Normalise-applyToStack arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-56 '()) clam-1))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (((e-4 arg-0) (vector 1 arg-1 arg-4 e-5)) clam-1))) (case (vector-ref act-25 0) ((0) (let ((e-6 (vector-ref act-25 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-25 1))) ((CoreC-45Normalise-applyToStack arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-6 arg-7) clam-1)))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (cond ((equal? arg-5 1) (CoreC-45CoreC-45Binder-traverse (lambda (u--t) (CoreC-45Normalise-applyToStack arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 u--t '())) e-3 eta-0)) (else (vector 1 e-3))))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 0 e-1 e-2 e-5 (lambda (u--defsC-39) (lambda (u--arg) (lambda (eta-1) (let ((act-25 (((e-4 u--defsC-39) u--arg) eta-1))) (case (vector-ref act-25 0) ((0) (let ((e-6 (vector-ref act-25 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-25 1))) ((CoreC-45Normalise-applyToStack arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-6 arg-7) eta-1)))))))))))))))))))))) ((1) (let ((e-6 (vector-ref arg-6 1))) (let ((e-7 (vector-ref arg-6 2))) (let ((e-8 (vector-ref arg-6 3))) (case (vector-ref e-7 0) ((1) (let ((e-62 (vector-ref e-7 1))) (let ((e-63 (vector-ref e-7 2))) (lambda (eta-0) (CoreC-45Normalise-evalRef arg-0 arg-1 arg-2 arg-3 arg-4 0 e-6 e-62 e-63 (PreludeC-45TypesC-45List-C-43C-43 e-8 arg-7) (lambda () (vector 1 e-6 (vector 1 e-62 e-63) (PreludeC-45TypesC-45List-C-43C-43 e-8 arg-7))) eta-0))))) ((0) (let ((e-66 (vector-ref e-7 1))) (let ((e-67 (vector-ref e-7 2))) (CoreC-45Normalise-evalLocal arg-0 arg-1 arg-2 arg-3 arg-4 e-6 e-66 e-67 (PreludeC-45TypesC-45List-C-43C-43 e-8 arg-7) '())))) (else (let ((e-70 (vector-ref e-7 1))) (let ((e-71 (vector-ref e-7 2))) (let ((e-72 (vector-ref e-7 3))) (CoreC-45Normalise-evalMeta arg-0 arg-1 arg-2 arg-3 arg-4 e-6 e-70 e-71 e-72 (PreludeC-45TypesC-45List-C-43C-43 e-8 arg-7))))))))))) ((2) (let ((e-10 (vector-ref arg-6 1))) (let ((e-11 (vector-ref arg-6 2))) (let ((e-12 (vector-ref arg-6 3))) (let ((e-13 (vector-ref arg-6 4))) (let ((e-14 (vector-ref arg-6 5))) (lambda (eta-0) (vector 1 (vector 2 e-10 e-11 e-12 e-13 (PreludeC-45TypesC-45List-C-43C-43 e-14 arg-7)))))))))) ((3) (let ((e-16 (vector-ref arg-6 1))) (let ((e-17 (vector-ref arg-6 2))) (let ((e-18 (vector-ref arg-6 3))) (let ((e-19 (vector-ref arg-6 4))) (let ((e-20 (vector-ref arg-6 5))) (lambda (eta-0) (vector 1 (vector 3 e-16 e-17 e-18 e-19 (PreludeC-45TypesC-45List-C-43C-43 e-20 arg-7)))))))))) ((4) (let ((e-22 (vector-ref arg-6 1))) (let ((e-23 (vector-ref arg-6 2))) (let ((e-24 (vector-ref arg-6 3))) (let ((e-25 (vector-ref arg-6 4))) (let ((sc1 (let ((e-2 (vector-ref arg-1 2))) e-2))) (cond ((equal? sc1 1) (CoreC-45Normalise-applyToStack arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-25 arg-7)) (else (lambda (eta-0) (let ((act-24 ((CoreC-45Normalise-applyToStack arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-24 '()) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Normalise-applyToStack arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-25 arg-7) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (vector 4 e-22 e-23 e-5 e-6))))))))))))))))))) ((5) (let ((e-27 (vector-ref arg-6 1))) (let ((e-28 (vector-ref arg-6 2))) (let ((e-29 (vector-ref arg-6 3))) (lambda (eta-0) (let ((act-24 ((CoreC-45Normalise-applyToStack arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-29 arg-7) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 5 e-27 e-28 e-5))))))))))) ((6) (lambda (eta-0) (vector 1 arg-6))) ((7) (let ((e-36 (vector-ref arg-6 1))) (let ((e-37 (vector-ref arg-6 2))) (let ((e-38 (vector-ref arg-6 3))) (let ((e-39 (vector-ref arg-6 4))) (lambda (eta-0) (let ((act-24 ((CoreC-45Normalise-applyToStack arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-38 '()) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (case (vector-ref e-5 0) ((6) (let ((e-1 (vector-ref e-5 1))) (let ((e-4 (vector-ref e-5 4))) ((CoreC-45Normalise-eval arg-0 arg-1 arg-2 arg-3 (cons (vector 1 "fvar") '()) arg-4 (cons e-4 '()) (vector 0 e-1 '() 0) arg-7) eta-0))))(else (vector 1 (vector 7 e-36 e-37 e-5 (PreludeC-45TypesC-45List-C-43C-43 e-39 arg-7))))))))))))))) ((8) (lambda (eta-0) (vector 1 arg-6))) ((9) (lambda (eta-0) (vector 1 arg-6))) (else (lambda (eta-0) (vector 1 arg-6)))))) +(define CoreC-45Normalise-allConvNF (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (if (null? arg-5) (if (null? arg-6) (vector 1 1) (vector 1 0)) (let ((e-2 (car arg-5))) (let ((e-3 (cdr arg-5))) (if (null? arg-6) (vector 1 0) (let ((e-6 (car arg-6))) (let ((e-7 (cdr arg-6))) (let ((act-24 (CoreC-45Normalise-allConvNF arg-0 arg-1 arg-2 arg-3 arg-4 e-3 e-7 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (cond ((equal? e-5 1) ((CoreC-45Normalise-u--convGen_Convert_NF arg-0 arg-1 arg-2 arg-3 arg-4 e-2 e-6) ext-0)) (else (vector 1 0))))))))))))))) +(define CoreC-45Normalise-allConv (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 arg-1 arg-3 eta-0)) arg-5 '() ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 arg-1 arg-3 eta-0)) arg-6 '() ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((sc2 (CoreC-45Normalise-quickConv e-5 e-6))) (cond ((equal? sc2 1) (CoreC-45Normalise-allConvNF arg-0 arg-1 arg-2 arg-3 arg-4 e-5 e-6 ext-0)) (else (vector 1 0)))))))))))))) +(define CoreC-45Primitives-unaryOp (lambda (arg-0 arg-1 arg-2) (if (null? arg-2) '() (let ((e-2 (car arg-2))) (let ((e-3 (cdr arg-2))) (case (vector-ref e-2 0) ((8) (let ((e-5 (vector-ref e-2 1))) (let ((e-6 (vector-ref e-2 2))) (if (null? e-3) (PreludeC-45Types-u--map_Functor_Maybe (lambda (eta-0) (vector 8 e-5 eta-0)) (arg-0 e-6)) '()))))(else '()))))))) +(define CoreC-45Primitives-toInt (lambda (arg-0) (cond ((equal? arg-0 1) (vector 0 1)) (else (vector 0 0))))) +(define CoreC-45Primitives-sub (lambda (arg-0 arg-1) (case (vector-ref arg-0 0) ((5) (let ((e-0 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((5) (let ((e-8 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 5 (PreludeC-45Num-u--C-45_Neg_Integer e-0 e-8)))))(else '())))) ((0) (let ((e-1 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((0) (let ((e-9 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 0 (PreludeC-45Num-u--C-45_Neg_Int e-1 e-9)))))(else '())))) ((1) (let ((e-2 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((1) (let ((e-10 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 1 (CoreC-45Primitives-int8CastWrap (PreludeC-45Num-u--C-45_Neg_Integer e-2 e-10))))))(else '())))) ((2) (let ((e-3 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((2) (let ((e-11 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 2 (CoreC-45Primitives-int16CastWrap (PreludeC-45Num-u--C-45_Neg_Integer e-3 e-11))))))(else '())))) ((3) (let ((e-4 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((3) (let ((e-12 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 3 (CoreC-45Primitives-int32CastWrap (PreludeC-45Num-u--C-45_Neg_Integer e-4 e-12))))))(else '())))) ((4) (let ((e-5 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((4) (let ((e-13 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 4 (CoreC-45Primitives-int64CastWrap (PreludeC-45Num-u--C-45_Neg_Integer e-5 e-13))))))(else '())))) ((11) (let ((e-6 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((11) (let ((e-14 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 11 (PreludeC-45Cast-u--cast_Cast_Int_Char (PreludeC-45Num-u--C-45_Neg_Int (PreludeC-45Cast-u--cast_Cast_Char_Int e-6) (PreludeC-45Cast-u--cast_Cast_Char_Int e-14)))))))(else '())))) ((12) (let ((e-7 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((12) (let ((e-15 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 12 (PreludeC-45Num-u--C-45_Neg_Double e-7 e-15)))))(else '()))))(else '())))) +(define CoreC-45Primitives-strTail (lambda (arg-1) (if (null? arg-1) '() (let ((e-2 (car arg-1))) (let ((e-3 (cdr arg-1))) (case (vector-ref e-2 0) ((8) (let ((e-5 (vector-ref e-2 1))) (let ((e-6 (vector-ref e-2 2))) (case (vector-ref e-6 0) ((10) (let ((e-7 (vector-ref e-6 1))) (cond ((equal? e-7 "") (if (null? e-3) '() (if (null? e-3) (box (vector 8 e-5 (vector 10 (substring e-7 1 (string-length e-7))))) '())))(else (if (null? e-3) (box (vector 8 e-5 (vector 10 (substring e-7 1 (string-length e-7))))) '())))))(else '())))))(else '()))))))) +(define CoreC-45Primitives-strSubstr (lambda (arg-1) (if (null? arg-1) '() (let ((e-2 (car arg-1))) (let ((e-3 (cdr arg-1))) (case (vector-ref e-2 0) ((8) (let ((e-5 (vector-ref e-2 1))) (let ((e-6 (vector-ref e-2 2))) (case (vector-ref e-6 0) ((0) (let ((e-7 (vector-ref e-6 1))) (if (null? e-3) '() (let ((e-10 (car e-3))) (let ((e-11 (cdr e-3))) (case (vector-ref e-10 0) ((8) (let ((e-14 (vector-ref e-10 2))) (case (vector-ref e-14 0) ((0) (let ((e-15 (vector-ref e-14 1))) (if (null? e-11) '() (let ((e-18 (car e-11))) (let ((e-19 (cdr e-11))) (case (vector-ref e-18 0) ((8) (let ((e-22 (vector-ref e-18 2))) (case (vector-ref e-22 0) ((10) (let ((e-23 (vector-ref e-22 1))) (if (null? e-19) (box (vector 8 e-5 (vector 10 (string-substr e-7 e-15 e-23)))) '())))(else '()))))(else '())))))))(else '()))))(else '())))))))(else '())))))(else '()))))))) +(define CoreC-45Primitives-strReverse (lambda (arg-1) (if (null? arg-1) '() (let ((e-2 (car arg-1))) (let ((e-3 (cdr arg-1))) (case (vector-ref e-2 0) ((8) (let ((e-5 (vector-ref e-2 1))) (let ((e-6 (vector-ref e-2 2))) (case (vector-ref e-6 0) ((10) (let ((e-7 (vector-ref e-6 1))) (if (null? e-3) (box (vector 8 e-5 (vector 10 (PreludeC-45Types-reverse e-7)))) '())))(else '())))))(else '()))))))) +(define CoreC-45Primitives-strLength (lambda (arg-1) (if (null? arg-1) '() (let ((e-2 (car arg-1))) (let ((e-3 (cdr arg-1))) (case (vector-ref e-2 0) ((8) (let ((e-5 (vector-ref e-2 1))) (let ((e-6 (vector-ref e-2 2))) (case (vector-ref e-6 0) ((10) (let ((e-7 (vector-ref e-6 1))) (if (null? e-3) (box (vector 8 e-5 (vector 0 (PreludeC-45Cast-u--cast_Cast_Nat_Int (PreludeC-45TypesC-45String-length e-7))))) '())))(else '())))))(else '()))))))) +(define CoreC-45Primitives-strIndex (lambda (arg-1) (if (null? arg-1) '() (let ((e-2 (car arg-1))) (let ((e-3 (cdr arg-1))) (case (vector-ref e-2 0) ((8) (let ((e-5 (vector-ref e-2 1))) (let ((e-6 (vector-ref e-2 2))) (case (vector-ref e-6 0) ((10) (let ((e-7 (vector-ref e-6 1))) (if (null? e-3) '() (let ((e-10 (car e-3))) (let ((e-11 (cdr e-3))) (case (vector-ref e-10 0) ((8) (let ((e-14 (vector-ref e-10 2))) (case (vector-ref e-14 0) ((0) (let ((e-15 (vector-ref e-14 1))) (if (null? e-11) (let ((sc7 (let ((sc8 (PreludeC-45EqOrd-u--C-62C-61_Ord_Int e-15 0))) (cond ((equal? sc8 1) (PreludeC-45Types-u--C-60_Ord_Nat (PreludeC-45Types-prim__integerToNat (PreludeC-45Cast-u--cast_Cast_Int_Integer e-15)) (PreludeC-45TypesC-45String-length e-7))) (else 0))))) (cond ((equal? sc7 1) (box (vector 8 e-5 (vector 11 (string-ref e-7 e-15))))) (else '()))) '())))(else '()))))(else '())))))))(else '())))))(else '()))))))) +(define CoreC-45Primitives-strHead (lambda (arg-1) (if (null? arg-1) '() (let ((e-2 (car arg-1))) (let ((e-3 (cdr arg-1))) (case (vector-ref e-2 0) ((8) (let ((e-5 (vector-ref e-2 1))) (let ((e-6 (vector-ref e-2 2))) (case (vector-ref e-6 0) ((10) (let ((e-7 (vector-ref e-6 1))) (cond ((equal? e-7 "") (if (null? e-3) '() (if (null? e-3) (box (vector 8 e-5 (vector 11 (string-ref e-7 0)))) '())))(else (if (null? e-3) (box (vector 8 e-5 (vector 11 (string-ref e-7 0)))) '())))))(else '())))))(else '()))))))) +(define CoreC-45Primitives-strCons (lambda (arg-1) (if (null? arg-1) '() (let ((e-2 (car arg-1))) (let ((e-3 (cdr arg-1))) (case (vector-ref e-2 0) ((8) (let ((e-5 (vector-ref e-2 1))) (let ((e-6 (vector-ref e-2 2))) (case (vector-ref e-6 0) ((11) (let ((e-7 (vector-ref e-6 1))) (if (null? e-3) '() (let ((e-10 (car e-3))) (let ((e-11 (cdr e-3))) (case (vector-ref e-10 0) ((8) (let ((e-14 (vector-ref e-10 2))) (case (vector-ref e-14 0) ((10) (let ((e-15 (vector-ref e-14 1))) (if (null? e-11) (box (vector 8 e-5 (vector 10 (PreludeC-45Types-strCons e-7 e-15)))) '())))(else '()))))(else '())))))))(else '())))))(else '()))))))) +(define CoreC-45Primitives-strAppend (lambda (arg-1) (if (null? arg-1) '() (let ((e-2 (car arg-1))) (let ((e-3 (cdr arg-1))) (case (vector-ref e-2 0) ((8) (let ((e-5 (vector-ref e-2 1))) (let ((e-6 (vector-ref e-2 2))) (case (vector-ref e-6 0) ((10) (let ((e-7 (vector-ref e-6 1))) (if (null? e-3) '() (let ((e-10 (car e-3))) (let ((e-11 (cdr e-3))) (case (vector-ref e-10 0) ((8) (let ((e-14 (vector-ref e-10 2))) (case (vector-ref e-14 0) ((10) (let ((e-15 (vector-ref e-14 1))) (if (null? e-11) (box (vector 8 e-5 (vector 10 (PreludeC-45TypesC-45String-C-43C-43 e-7 e-15)))) '())))(else '()))))(else '())))))))(else '())))))(else '()))))))) +(define CoreC-45Primitives-signedShift (lambda (arg-0 arg-1) (let ((sc0 (PreludeC-45EqOrd-u--C-61C-61_Eq_Integer (blodwen-and arg-0 arg-1) 0))) (cond ((equal? sc0 1) (blodwen-and arg-0 (PreludeC-45Num-u--C-45_Neg_Integer arg-1 1))) (else (blodwen-or arg-0 (PreludeC-45Num-u--negate_Neg_Integer arg-1))))))) +(define CoreC-45Primitives-shiftr (lambda (arg-0 arg-1) (case (vector-ref arg-0 0) ((0) (let ((e-0 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((0) (let ((e-9 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 0 (blodwen-shr e-0 e-9)))))(else '())))) ((1) (let ((e-1 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((1) (let ((e-10 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 1 (CoreC-45Primitives-signedShift (blodwen-shr e-1 e-10) (CoreC-45Primitives-int8max))))))(else '())))) ((2) (let ((e-2 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((2) (let ((e-11 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 2 (CoreC-45Primitives-signedShift (blodwen-shr e-2 e-11) (CoreC-45Primitives-int16max))))))(else '())))) ((3) (let ((e-3 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((3) (let ((e-12 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 3 (CoreC-45Primitives-signedShift (blodwen-shr e-3 e-12) (CoreC-45Primitives-int32max))))))(else '())))) ((4) (let ((e-4 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((4) (let ((e-13 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 4 (CoreC-45Primitives-signedShift (blodwen-shr e-4 e-13) (CoreC-45Primitives-int64max))))))(else '())))) ((6) (let ((e-5 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((6) (let ((e-14 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 6 (blodwen-shr e-5 e-14)))))(else '())))) ((7) (let ((e-6 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((7) (let ((e-15 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 7 (blodwen-shr e-6 e-15)))))(else '())))) ((8) (let ((e-7 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((8) (let ((e-16 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 8 (blodwen-shr e-7 e-16)))))(else '())))) ((9) (let ((e-8 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((9) (let ((e-17 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 9 (blodwen-shr e-8 e-17)))))(else '()))))(else '())))) +(define CoreC-45Primitives-shiftl (lambda (arg-0 arg-1) (case (vector-ref arg-0 0) ((0) (let ((e-0 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((0) (let ((e-10 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 0 (blodwen-bits-shl-signed e-0 e-10 63)))))(else '())))) ((1) (let ((e-1 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((1) (let ((e-11 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 1 (CoreC-45Primitives-signedShift (blodwen-shl e-1 e-11) (CoreC-45Primitives-int8max))))))(else '())))) ((2) (let ((e-2 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((2) (let ((e-12 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 2 (CoreC-45Primitives-signedShift (blodwen-shl e-2 e-12) (CoreC-45Primitives-int16max))))))(else '())))) ((3) (let ((e-3 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((3) (let ((e-13 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 3 (CoreC-45Primitives-signedShift (blodwen-shl e-3 e-13) (CoreC-45Primitives-int32max))))))(else '())))) ((4) (let ((e-4 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((4) (let ((e-14 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 4 (CoreC-45Primitives-signedShift (blodwen-shl e-4 e-14) (CoreC-45Primitives-int64max))))))(else '())))) ((5) (let ((e-5 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((5) (let ((e-15 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 5 (blodwen-shl e-5 e-15)))))(else '())))) ((6) (let ((e-6 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((6) (let ((e-16 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 6 (PreludeC-45Num-u--mod_Integral_Int (blodwen-bits-shl-signed e-6 e-16 63) (CoreC-45Primitives-b8max))))))(else '())))) ((7) (let ((e-7 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((7) (let ((e-17 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 7 (PreludeC-45Num-u--mod_Integral_Int (blodwen-bits-shl-signed e-7 e-17 63) (CoreC-45Primitives-b16max))))))(else '())))) ((8) (let ((e-8 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((8) (let ((e-18 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 8 (PreludeC-45Num-u--mod_Integral_Int (blodwen-bits-shl-signed e-8 e-18 63) (CoreC-45Primitives-b32max))))))(else '())))) ((9) (let ((e-9 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((9) (let ((e-19 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 9 (PreludeC-45Num-u--mod_Integral_Integer (blodwen-shl e-9 e-19) (CoreC-45Primitives-b64max))))))(else '()))))(else '())))) (define CoreC-45Primitives-primTypes (lambda () (PreludeC-45TypesC-45List-C-43C-43 (CoreC-45Primitives-numTypes) (cons (vector 24 ) (cons (vector 25 ) '()))))) (define CoreC-45Primitives-prim (lambda (arg-0) (vector 1 (PreludeC-45TypesC-45String-C-43C-43 "prim__" arg-0)))) (define CoreC-45Primitives-predTy (lambda (arg-0 arg-1) (let ((u--arr (lambda (eta-0) (lambda (eta-1) (CoreC-45TT-fnType '() (CoreC-45FC-emptyFC) eta-0 eta-1))))) ((u--arr (vector 9 (CoreC-45FC-emptyFC) arg-0)) (vector 9 (CoreC-45FC-emptyFC) arg-1))))) -(define CoreC-45Primitives-opName (lambda (arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (CoreC-45Primitives-prim (PreludeC-45TypesC-45String-C-43C-43 "add_" (CoreC-45TT-u--show_Show_Constant e-0))))) ((1) (let ((e-1 (vector-ref sc0 1))) (CoreC-45Primitives-prim (PreludeC-45TypesC-45String-C-43C-43 "sub_" (CoreC-45TT-u--show_Show_Constant e-1))))) ((2) (let ((e-2 (vector-ref sc0 1))) (CoreC-45Primitives-prim (PreludeC-45TypesC-45String-C-43C-43 "mul_" (CoreC-45TT-u--show_Show_Constant e-2))))) ((3) (let ((e-3 (vector-ref sc0 1))) (CoreC-45Primitives-prim (PreludeC-45TypesC-45String-C-43C-43 "div_" (CoreC-45TT-u--show_Show_Constant e-3))))) ((4) (let ((e-4 (vector-ref sc0 1))) (CoreC-45Primitives-prim (PreludeC-45TypesC-45String-C-43C-43 "mod_" (CoreC-45TT-u--show_Show_Constant e-4))))) ((5) (let ((e-5 (vector-ref sc0 1))) (CoreC-45Primitives-prim (PreludeC-45TypesC-45String-C-43C-43 "negate_" (CoreC-45TT-u--show_Show_Constant e-5))))) ((6) (let ((e-6 (vector-ref sc0 1))) (CoreC-45Primitives-prim (PreludeC-45TypesC-45String-C-43C-43 "shl_" (CoreC-45TT-u--show_Show_Constant e-6))))) ((7) (let ((e-7 (vector-ref sc0 1))) (CoreC-45Primitives-prim (PreludeC-45TypesC-45String-C-43C-43 "shr_" (CoreC-45TT-u--show_Show_Constant e-7))))) ((8) (let ((e-8 (vector-ref sc0 1))) (CoreC-45Primitives-prim (PreludeC-45TypesC-45String-C-43C-43 "and_" (CoreC-45TT-u--show_Show_Constant e-8))))) ((9) (let ((e-9 (vector-ref sc0 1))) (CoreC-45Primitives-prim (PreludeC-45TypesC-45String-C-43C-43 "or_" (CoreC-45TT-u--show_Show_Constant e-9))))) ((10) (let ((e-10 (vector-ref sc0 1))) (CoreC-45Primitives-prim (PreludeC-45TypesC-45String-C-43C-43 "xor_" (CoreC-45TT-u--show_Show_Constant e-10))))) ((11) (let ((e-11 (vector-ref sc0 1))) (CoreC-45Primitives-prim (PreludeC-45TypesC-45String-C-43C-43 "lt_" (CoreC-45TT-u--show_Show_Constant e-11))))) ((12) (let ((e-12 (vector-ref sc0 1))) (CoreC-45Primitives-prim (PreludeC-45TypesC-45String-C-43C-43 "lte_" (CoreC-45TT-u--show_Show_Constant e-12))))) ((13) (let ((e-13 (vector-ref sc0 1))) (CoreC-45Primitives-prim (PreludeC-45TypesC-45String-C-43C-43 "eq_" (CoreC-45TT-u--show_Show_Constant e-13))))) ((14) (let ((e-14 (vector-ref sc0 1))) (CoreC-45Primitives-prim (PreludeC-45TypesC-45String-C-43C-43 "gte_" (CoreC-45TT-u--show_Show_Constant e-14))))) ((15) (let ((e-15 (vector-ref sc0 1))) (CoreC-45Primitives-prim (PreludeC-45TypesC-45String-C-43C-43 "gt_" (CoreC-45TT-u--show_Show_Constant e-15))))) ((16) (CoreC-45Primitives-prim "strLength")) ((17) (CoreC-45Primitives-prim "strHead")) ((18) (CoreC-45Primitives-prim "strTail")) ((19) (CoreC-45Primitives-prim "strIndex")) ((20) (CoreC-45Primitives-prim "strCons")) ((21) (CoreC-45Primitives-prim "strAppend")) ((22) (CoreC-45Primitives-prim "strReverse")) ((23) (CoreC-45Primitives-prim "strSubstr")) ((24) (CoreC-45Primitives-prim "doubleExp")) ((25) (CoreC-45Primitives-prim "doubleLog")) ((26) (CoreC-45Primitives-prim "doubleSin")) ((27) (CoreC-45Primitives-prim "doubleCos")) ((28) (CoreC-45Primitives-prim "doubleTan")) ((29) (CoreC-45Primitives-prim "doubleASin")) ((30) (CoreC-45Primitives-prim "doubleACos")) ((31) (CoreC-45Primitives-prim "doubleATan")) ((32) (CoreC-45Primitives-prim "doubleSqrt")) ((33) (CoreC-45Primitives-prim "doubleFloor")) ((34) (CoreC-45Primitives-prim "doubleCeiling")) ((35) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (CoreC-45Primitives-prim (PreludeC-45TypesC-45String-C-43C-43 "cast_" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_Constant e-16) (CoreC-45TT-u--show_Show_Constant e-17))))))) ((36) (CoreC-45Primitives-prim "believe_me")) (else (CoreC-45Primitives-prim "crash")))))) +(define CoreC-45Primitives-opName (lambda (arg-1) (case (vector-ref arg-1 0) ((0) (let ((e-0 (vector-ref arg-1 1))) (CoreC-45Primitives-prim (PreludeC-45TypesC-45String-C-43C-43 "add_" (CoreC-45TT-u--show_Show_Constant e-0))))) ((1) (let ((e-1 (vector-ref arg-1 1))) (CoreC-45Primitives-prim (PreludeC-45TypesC-45String-C-43C-43 "sub_" (CoreC-45TT-u--show_Show_Constant e-1))))) ((2) (let ((e-2 (vector-ref arg-1 1))) (CoreC-45Primitives-prim (PreludeC-45TypesC-45String-C-43C-43 "mul_" (CoreC-45TT-u--show_Show_Constant e-2))))) ((3) (let ((e-3 (vector-ref arg-1 1))) (CoreC-45Primitives-prim (PreludeC-45TypesC-45String-C-43C-43 "div_" (CoreC-45TT-u--show_Show_Constant e-3))))) ((4) (let ((e-4 (vector-ref arg-1 1))) (CoreC-45Primitives-prim (PreludeC-45TypesC-45String-C-43C-43 "mod_" (CoreC-45TT-u--show_Show_Constant e-4))))) ((5) (let ((e-5 (vector-ref arg-1 1))) (CoreC-45Primitives-prim (PreludeC-45TypesC-45String-C-43C-43 "negate_" (CoreC-45TT-u--show_Show_Constant e-5))))) ((6) (let ((e-6 (vector-ref arg-1 1))) (CoreC-45Primitives-prim (PreludeC-45TypesC-45String-C-43C-43 "shl_" (CoreC-45TT-u--show_Show_Constant e-6))))) ((7) (let ((e-7 (vector-ref arg-1 1))) (CoreC-45Primitives-prim (PreludeC-45TypesC-45String-C-43C-43 "shr_" (CoreC-45TT-u--show_Show_Constant e-7))))) ((8) (let ((e-8 (vector-ref arg-1 1))) (CoreC-45Primitives-prim (PreludeC-45TypesC-45String-C-43C-43 "and_" (CoreC-45TT-u--show_Show_Constant e-8))))) ((9) (let ((e-9 (vector-ref arg-1 1))) (CoreC-45Primitives-prim (PreludeC-45TypesC-45String-C-43C-43 "or_" (CoreC-45TT-u--show_Show_Constant e-9))))) ((10) (let ((e-10 (vector-ref arg-1 1))) (CoreC-45Primitives-prim (PreludeC-45TypesC-45String-C-43C-43 "xor_" (CoreC-45TT-u--show_Show_Constant e-10))))) ((11) (let ((e-11 (vector-ref arg-1 1))) (CoreC-45Primitives-prim (PreludeC-45TypesC-45String-C-43C-43 "lt_" (CoreC-45TT-u--show_Show_Constant e-11))))) ((12) (let ((e-12 (vector-ref arg-1 1))) (CoreC-45Primitives-prim (PreludeC-45TypesC-45String-C-43C-43 "lte_" (CoreC-45TT-u--show_Show_Constant e-12))))) ((13) (let ((e-13 (vector-ref arg-1 1))) (CoreC-45Primitives-prim (PreludeC-45TypesC-45String-C-43C-43 "eq_" (CoreC-45TT-u--show_Show_Constant e-13))))) ((14) (let ((e-14 (vector-ref arg-1 1))) (CoreC-45Primitives-prim (PreludeC-45TypesC-45String-C-43C-43 "gte_" (CoreC-45TT-u--show_Show_Constant e-14))))) ((15) (let ((e-15 (vector-ref arg-1 1))) (CoreC-45Primitives-prim (PreludeC-45TypesC-45String-C-43C-43 "gt_" (CoreC-45TT-u--show_Show_Constant e-15))))) ((16) (CoreC-45Primitives-prim "strLength")) ((17) (CoreC-45Primitives-prim "strHead")) ((18) (CoreC-45Primitives-prim "strTail")) ((19) (CoreC-45Primitives-prim "strIndex")) ((20) (CoreC-45Primitives-prim "strCons")) ((21) (CoreC-45Primitives-prim "strAppend")) ((22) (CoreC-45Primitives-prim "strReverse")) ((23) (CoreC-45Primitives-prim "strSubstr")) ((24) (CoreC-45Primitives-prim "doubleExp")) ((25) (CoreC-45Primitives-prim "doubleLog")) ((26) (CoreC-45Primitives-prim "doubleSin")) ((27) (CoreC-45Primitives-prim "doubleCos")) ((28) (CoreC-45Primitives-prim "doubleTan")) ((29) (CoreC-45Primitives-prim "doubleASin")) ((30) (CoreC-45Primitives-prim "doubleACos")) ((31) (CoreC-45Primitives-prim "doubleATan")) ((32) (CoreC-45Primitives-prim "doubleSqrt")) ((33) (CoreC-45Primitives-prim "doubleFloor")) ((34) (CoreC-45Primitives-prim "doubleCeiling")) ((35) (let ((e-16 (vector-ref arg-1 1))) (let ((e-17 (vector-ref arg-1 2))) (CoreC-45Primitives-prim (PreludeC-45TypesC-45String-C-43C-43 "cast_" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_Constant e-16) (CoreC-45TT-u--show_Show_Constant e-17))))))) ((36) (CoreC-45Primitives-prim "believe_me")) (else (CoreC-45Primitives-prim "crash"))))) (define CoreC-45Primitives-numTypes (lambda () (PreludeC-45TypesC-45List-C-43C-43 (CoreC-45Primitives-integralTypes) (cons (vector 26 ) '())))) -(define CoreC-45Primitives-neg (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((5) (let ((e-0 (vector-ref sc0 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 5 (PreludeC-45Num-u--negate_Neg_Integer e-0))))) ((0) (let ((e-1 (vector-ref sc0 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 0 (PreludeC-45Num-u--negate_Neg_Int e-1))))) ((1) (let ((e-2 (vector-ref sc0 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 1 (CoreC-45Primitives-int8CastWrap (PreludeC-45Num-u--negate_Neg_Integer e-2)))))) ((2) (let ((e-3 (vector-ref sc0 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 2 (CoreC-45Primitives-int16CastWrap (PreludeC-45Num-u--negate_Neg_Integer e-3)))))) ((3) (let ((e-4 (vector-ref sc0 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 3 (CoreC-45Primitives-int32CastWrap (PreludeC-45Num-u--negate_Neg_Integer e-4)))))) ((4) (let ((e-5 (vector-ref sc0 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 4 (CoreC-45Primitives-int64CastWrap (PreludeC-45Num-u--negate_Neg_Integer e-5)))))) ((12) (let ((e-6 (vector-ref sc0 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 12 (PreludeC-45Num-u--negate_Neg_Double e-6)))))(else (vector 0 )))))) -(define CoreC-45Primitives-mul (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((5) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((5) (let ((e-11 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 5 (* e-0 e-11)))))(else (vector 0 )))))) ((6) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((6) (let ((e-12 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 6 (PreludeC-45Num-u--mod_Integral_Int (bs* e-1 e-12 63) (CoreC-45Primitives-b8max))))))(else (vector 0 )))))) ((7) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((7) (let ((e-13 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 7 (PreludeC-45Num-u--mod_Integral_Int (bs* e-2 e-13 63) (CoreC-45Primitives-b16max))))))(else (vector 0 )))))) ((8) (let ((e-3 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((8) (let ((e-14 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 8 (PreludeC-45Num-u--mod_Integral_Int (bs* e-3 e-14 63) (CoreC-45Primitives-b32max))))))(else (vector 0 )))))) ((9) (let ((e-4 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((9) (let ((e-15 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 9 (PreludeC-45Num-u--mod_Integral_Integer (* e-4 e-15) (CoreC-45Primitives-b64max))))))(else (vector 0 )))))) ((0) (let ((e-5 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) (let ((e-16 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 0 (bs* e-5 e-16 63)))))(else (vector 0 )))))) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) (let ((e-17 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 1 (CoreC-45Primitives-int8CastWrap (* e-6 e-17))))))(else (vector 0 )))))) ((2) (let ((e-7 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((2) (let ((e-18 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 2 (CoreC-45Primitives-int16CastWrap (* e-7 e-18))))))(else (vector 0 )))))) ((3) (let ((e-8 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((3) (let ((e-19 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 3 (CoreC-45Primitives-int32CastWrap (* e-8 e-19))))))(else (vector 0 )))))) ((4) (let ((e-9 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((4) (let ((e-20 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 4 (CoreC-45Primitives-int64CastWrap (* e-9 e-20))))))(else (vector 0 )))))) ((12) (let ((e-10 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((12) (let ((e-21 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 12 (PreludeC-45Num-u--C-42_Num_Double e-10 e-21)))))(else (vector 0 ))))))(else (vector 0 )))))) -(define CoreC-45Primitives-mod (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((5) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((5) (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (cond ((equal? sc2 0) (vector 0 ))(else (PreludeC-45Types-u--pure_Applicative_Maybe (vector 5 (PreludeC-45Num-u--mod_Integral_Integer e-0 e-6))))))))(else (vector 0 )))))) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) (let ((e-7 (vector-ref sc1 1))) (let ((sc2 e-7)) (cond ((equal? sc2 0) (vector 0 ))(else (PreludeC-45Types-u--pure_Applicative_Maybe (vector 0 (PreludeC-45Num-u--mod_Integral_Int e-1 e-7))))))))(else (vector 0 )))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) (let ((e-8 (vector-ref sc1 1))) (let ((sc2 e-8)) (cond ((equal? sc2 0) (vector 0 ))(else (PreludeC-45Types-u--pure_Applicative_Maybe (vector 1 (CoreC-45Primitives-int8CastWrap (PreludeC-45Num-u--mod_Integral_Integer e-2 e-8)))))))))(else (vector 0 )))))) ((2) (let ((e-3 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((2) (let ((e-9 (vector-ref sc1 1))) (let ((sc2 e-9)) (cond ((equal? sc2 0) (vector 0 ))(else (PreludeC-45Types-u--pure_Applicative_Maybe (vector 2 (CoreC-45Primitives-int16CastWrap (PreludeC-45Num-u--mod_Integral_Integer e-3 e-9)))))))))(else (vector 0 )))))) ((3) (let ((e-4 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((3) (let ((e-10 (vector-ref sc1 1))) (let ((sc2 e-10)) (cond ((equal? sc2 0) (vector 0 ))(else (PreludeC-45Types-u--pure_Applicative_Maybe (vector 3 (CoreC-45Primitives-int32CastWrap (PreludeC-45Num-u--mod_Integral_Integer e-4 e-10)))))))))(else (vector 0 )))))) ((4) (let ((e-5 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((4) (let ((e-11 (vector-ref sc1 1))) (let ((sc2 e-11)) (cond ((equal? sc2 0) (vector 0 ))(else (PreludeC-45Types-u--pure_Applicative_Maybe (vector 4 (CoreC-45Primitives-int64CastWrap (PreludeC-45Num-u--mod_Integral_Integer e-5 e-11)))))))))(else (vector 0 ))))))(else (vector 0 )))))) -(define CoreC-45Primitives-lte (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) (let ((e-13 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-60C-61_Ord_Int e-0 e-13)))))(else (vector 0 )))))) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) (let ((e-14 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-60C-61_Ord_Integer e-1 e-14)))))(else (vector 0 )))))) ((2) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((2) (let ((e-15 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-60C-61_Ord_Integer e-2 e-15)))))(else (vector 0 )))))) ((3) (let ((e-3 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((3) (let ((e-16 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-60C-61_Ord_Integer e-3 e-16)))))(else (vector 0 )))))) ((4) (let ((e-4 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((4) (let ((e-17 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-60C-61_Ord_Integer e-4 e-17)))))(else (vector 0 )))))) ((5) (let ((e-5 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((5) (let ((e-18 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-60C-61_Ord_Integer e-5 e-18)))))(else (vector 0 )))))) ((6) (let ((e-6 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((6) (let ((e-19 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-60C-61_Ord_Int e-6 e-19)))))(else (vector 0 )))))) ((7) (let ((e-7 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((7) (let ((e-20 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-60C-61_Ord_Int e-7 e-20)))))(else (vector 0 )))))) ((8) (let ((e-8 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((8) (let ((e-21 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-60C-61_Ord_Int e-8 e-21)))))(else (vector 0 )))))) ((9) (let ((e-9 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((9) (let ((e-22 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-60C-61_Ord_Integer e-9 e-22)))))(else (vector 0 )))))) ((10) (let ((e-10 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((10) (let ((e-23 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-60C-61_Ord_String e-10 e-23)))))(else (vector 0 )))))) ((11) (let ((e-11 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((11) (let ((e-24 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-60C-61_Ord_Char e-11 e-24)))))(else (vector 0 )))))) ((12) (let ((e-12 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((12) (let ((e-25 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-60C-61_Ord_Double e-12 e-25)))))(else (vector 0 ))))))(else (vector 0 )))))) -(define CoreC-45Primitives-lt (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) (let ((e-13 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-60_Ord_Int e-0 e-13)))))(else (vector 0 )))))) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) (let ((e-14 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-60_Ord_Integer e-1 e-14)))))(else (vector 0 )))))) ((2) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((2) (let ((e-15 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-60_Ord_Integer e-2 e-15)))))(else (vector 0 )))))) ((3) (let ((e-3 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((3) (let ((e-16 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-60_Ord_Integer e-3 e-16)))))(else (vector 0 )))))) ((4) (let ((e-4 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((4) (let ((e-17 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-60_Ord_Integer e-4 e-17)))))(else (vector 0 )))))) ((5) (let ((e-5 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((5) (let ((e-18 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-60_Ord_Integer e-5 e-18)))))(else (vector 0 )))))) ((6) (let ((e-6 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((6) (let ((e-19 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-60_Ord_Int e-6 e-19)))))(else (vector 0 )))))) ((7) (let ((e-7 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((7) (let ((e-20 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-60_Ord_Int e-7 e-20)))))(else (vector 0 )))))) ((8) (let ((e-8 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((8) (let ((e-21 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-60_Ord_Int e-8 e-21)))))(else (vector 0 )))))) ((9) (let ((e-9 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((9) (let ((e-22 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-60_Ord_Integer e-9 e-22)))))(else (vector 0 )))))) ((10) (let ((e-10 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((10) (let ((e-23 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-60_Ord_String e-10 e-23)))))(else (vector 0 )))))) ((11) (let ((e-11 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((11) (let ((e-24 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-60_Ord_Char e-11 e-24)))))(else (vector 0 )))))) ((12) (let ((e-12 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((12) (let ((e-25 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-60_Ord_Double e-12 e-25)))))(else (vector 0 ))))))(else (vector 0 )))))) +(define CoreC-45Primitives-neg (lambda (arg-0) (case (vector-ref arg-0 0) ((5) (let ((e-0 (vector-ref arg-0 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 5 (PreludeC-45Num-u--negate_Neg_Integer e-0))))) ((0) (let ((e-1 (vector-ref arg-0 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 0 (PreludeC-45Num-u--negate_Neg_Int e-1))))) ((1) (let ((e-2 (vector-ref arg-0 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 1 (CoreC-45Primitives-int8CastWrap (PreludeC-45Num-u--negate_Neg_Integer e-2)))))) ((2) (let ((e-3 (vector-ref arg-0 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 2 (CoreC-45Primitives-int16CastWrap (PreludeC-45Num-u--negate_Neg_Integer e-3)))))) ((3) (let ((e-4 (vector-ref arg-0 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 3 (CoreC-45Primitives-int32CastWrap (PreludeC-45Num-u--negate_Neg_Integer e-4)))))) ((4) (let ((e-5 (vector-ref arg-0 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 4 (CoreC-45Primitives-int64CastWrap (PreludeC-45Num-u--negate_Neg_Integer e-5)))))) ((12) (let ((e-6 (vector-ref arg-0 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 12 (PreludeC-45Num-u--negate_Neg_Double e-6)))))(else '())))) +(define CoreC-45Primitives-mul (lambda (arg-0 arg-1) (case (vector-ref arg-0 0) ((5) (let ((e-0 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((5) (let ((e-11 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 5 (* e-0 e-11)))))(else '())))) ((6) (let ((e-1 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((6) (let ((e-12 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 6 (PreludeC-45Num-u--mod_Integral_Int (bs* e-1 e-12 63) (CoreC-45Primitives-b8max))))))(else '())))) ((7) (let ((e-2 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((7) (let ((e-13 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 7 (PreludeC-45Num-u--mod_Integral_Int (bs* e-2 e-13 63) (CoreC-45Primitives-b16max))))))(else '())))) ((8) (let ((e-3 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((8) (let ((e-14 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 8 (PreludeC-45Num-u--mod_Integral_Int (bs* e-3 e-14 63) (CoreC-45Primitives-b32max))))))(else '())))) ((9) (let ((e-4 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((9) (let ((e-15 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 9 (PreludeC-45Num-u--mod_Integral_Integer (* e-4 e-15) (CoreC-45Primitives-b64max))))))(else '())))) ((0) (let ((e-5 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((0) (let ((e-16 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 0 (bs* e-5 e-16 63)))))(else '())))) ((1) (let ((e-6 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((1) (let ((e-17 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 1 (CoreC-45Primitives-int8CastWrap (* e-6 e-17))))))(else '())))) ((2) (let ((e-7 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((2) (let ((e-18 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 2 (CoreC-45Primitives-int16CastWrap (* e-7 e-18))))))(else '())))) ((3) (let ((e-8 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((3) (let ((e-19 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 3 (CoreC-45Primitives-int32CastWrap (* e-8 e-19))))))(else '())))) ((4) (let ((e-9 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((4) (let ((e-20 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 4 (CoreC-45Primitives-int64CastWrap (* e-9 e-20))))))(else '())))) ((12) (let ((e-10 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((12) (let ((e-21 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 12 (PreludeC-45Num-u--C-42_Num_Double e-10 e-21)))))(else '()))))(else '())))) +(define CoreC-45Primitives-mod (lambda (arg-0 arg-1) (case (vector-ref arg-0 0) ((5) (let ((e-0 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((5) (let ((e-6 (vector-ref arg-1 1))) (cond ((equal? e-6 0) '())(else (PreludeC-45Types-u--pure_Applicative_Maybe (vector 5 (PreludeC-45Num-u--mod_Integral_Integer e-0 e-6)))))))(else '())))) ((0) (let ((e-1 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((0) (let ((e-7 (vector-ref arg-1 1))) (cond ((equal? e-7 0) '())(else (PreludeC-45Types-u--pure_Applicative_Maybe (vector 0 (PreludeC-45Num-u--mod_Integral_Int e-1 e-7)))))))(else '())))) ((1) (let ((e-2 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((1) (let ((e-8 (vector-ref arg-1 1))) (cond ((equal? e-8 0) '())(else (PreludeC-45Types-u--pure_Applicative_Maybe (vector 1 (CoreC-45Primitives-int8CastWrap (PreludeC-45Num-u--mod_Integral_Integer e-2 e-8))))))))(else '())))) ((2) (let ((e-3 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((2) (let ((e-9 (vector-ref arg-1 1))) (cond ((equal? e-9 0) '())(else (PreludeC-45Types-u--pure_Applicative_Maybe (vector 2 (CoreC-45Primitives-int16CastWrap (PreludeC-45Num-u--mod_Integral_Integer e-3 e-9))))))))(else '())))) ((3) (let ((e-4 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((3) (let ((e-10 (vector-ref arg-1 1))) (cond ((equal? e-10 0) '())(else (PreludeC-45Types-u--pure_Applicative_Maybe (vector 3 (CoreC-45Primitives-int32CastWrap (PreludeC-45Num-u--mod_Integral_Integer e-4 e-10))))))))(else '())))) ((4) (let ((e-5 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((4) (let ((e-11 (vector-ref arg-1 1))) (cond ((equal? e-11 0) '())(else (PreludeC-45Types-u--pure_Applicative_Maybe (vector 4 (CoreC-45Primitives-int64CastWrap (PreludeC-45Num-u--mod_Integral_Integer e-5 e-11))))))))(else '()))))(else '())))) +(define CoreC-45Primitives-lte (lambda (arg-0 arg-1) (case (vector-ref arg-0 0) ((0) (let ((e-0 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((0) (let ((e-13 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-60C-61_Ord_Int e-0 e-13)))))(else '())))) ((1) (let ((e-1 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((1) (let ((e-14 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-60C-61_Ord_Integer e-1 e-14)))))(else '())))) ((2) (let ((e-2 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((2) (let ((e-15 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-60C-61_Ord_Integer e-2 e-15)))))(else '())))) ((3) (let ((e-3 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((3) (let ((e-16 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-60C-61_Ord_Integer e-3 e-16)))))(else '())))) ((4) (let ((e-4 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((4) (let ((e-17 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-60C-61_Ord_Integer e-4 e-17)))))(else '())))) ((5) (let ((e-5 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((5) (let ((e-18 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-60C-61_Ord_Integer e-5 e-18)))))(else '())))) ((6) (let ((e-6 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((6) (let ((e-19 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-60C-61_Ord_Int e-6 e-19)))))(else '())))) ((7) (let ((e-7 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((7) (let ((e-20 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-60C-61_Ord_Int e-7 e-20)))))(else '())))) ((8) (let ((e-8 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((8) (let ((e-21 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-60C-61_Ord_Int e-8 e-21)))))(else '())))) ((9) (let ((e-9 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((9) (let ((e-22 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-60C-61_Ord_Integer e-9 e-22)))))(else '())))) ((10) (let ((e-10 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((10) (let ((e-23 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-60C-61_Ord_String e-10 e-23)))))(else '())))) ((11) (let ((e-11 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((11) (let ((e-24 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-60C-61_Ord_Char e-11 e-24)))))(else '())))) ((12) (let ((e-12 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((12) (let ((e-25 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-60C-61_Ord_Double e-12 e-25)))))(else '()))))(else '())))) +(define CoreC-45Primitives-lt (lambda (arg-0 arg-1) (case (vector-ref arg-0 0) ((0) (let ((e-0 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((0) (let ((e-13 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-60_Ord_Int e-0 e-13)))))(else '())))) ((1) (let ((e-1 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((1) (let ((e-14 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-60_Ord_Integer e-1 e-14)))))(else '())))) ((2) (let ((e-2 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((2) (let ((e-15 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-60_Ord_Integer e-2 e-15)))))(else '())))) ((3) (let ((e-3 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((3) (let ((e-16 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-60_Ord_Integer e-3 e-16)))))(else '())))) ((4) (let ((e-4 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((4) (let ((e-17 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-60_Ord_Integer e-4 e-17)))))(else '())))) ((5) (let ((e-5 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((5) (let ((e-18 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-60_Ord_Integer e-5 e-18)))))(else '())))) ((6) (let ((e-6 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((6) (let ((e-19 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-60_Ord_Int e-6 e-19)))))(else '())))) ((7) (let ((e-7 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((7) (let ((e-20 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-60_Ord_Int e-7 e-20)))))(else '())))) ((8) (let ((e-8 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((8) (let ((e-21 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-60_Ord_Int e-8 e-21)))))(else '())))) ((9) (let ((e-9 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((9) (let ((e-22 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-60_Ord_Integer e-9 e-22)))))(else '())))) ((10) (let ((e-10 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((10) (let ((e-23 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-60_Ord_String e-10 e-23)))))(else '())))) ((11) (let ((e-11 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((11) (let ((e-24 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-60_Ord_Char e-11 e-24)))))(else '())))) ((12) (let ((e-12 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((12) (let ((e-25 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-60_Ord_Double e-12 e-25)))))(else '()))))(else '())))) (define CoreC-45Primitives-integralTypes (lambda () (cons (vector 14 ) (cons (vector 15 ) (cons (vector 16 ) (cons (vector 17 ) (cons (vector 18 ) (cons (vector 19 ) (cons (vector 20 ) (cons (vector 21 ) (cons (vector 22 ) (cons (vector 23 ) '())))))))))))) -(define CoreC-45Primitives-intCastWrap (lambda (arg-0 arg-1) (CoreC-45Primitives-case--intCastWrap-1306 arg-1 arg-0 (PreludeC-45Basics-C-124C-124 (PreludeC-45EqOrd-u--C-60_Ord_Integer arg-0 (PreludeC-45Num-u--negate_Neg_Integer arg-1)) (lambda () (PreludeC-45EqOrd-u--C-62C-61_Ord_Integer arg-0 arg-1)))))) +(define CoreC-45Primitives-intCastWrap (lambda (arg-0 arg-1) (let ((u--max2 (* 2 arg-1))) (let ((u--i2 (PreludeC-45Num-u--mod_Integral_Integer arg-0 u--max2))) (let ((u--i3 (let ((sc0 (PreludeC-45EqOrd-u--C-60_Ord_Integer u--i2 0))) (cond ((equal? sc0 1) (+ u--i2 u--max2)) (else u--i2))))) (let ((sc0 (PreludeC-45EqOrd-u--C-62C-61_Ord_Integer u--i3 arg-1))) (cond ((equal? sc0 1) (PreludeC-45Num-u--C-45_Neg_Integer u--i3 u--max2)) (else u--i3)))))))) (define CoreC-45Primitives-int8max (lambda () 128)) (define CoreC-45Primitives-int8CastWrap (lambda (arg-0) (CoreC-45Primitives-intCastWrap arg-0 (CoreC-45Primitives-int8max)))) (define CoreC-45Primitives-int64max (lambda () 9223372036854775808)) @@ -3404,15 +2951,15 @@ (define CoreC-45Primitives-int32CastWrap (lambda (arg-0) (CoreC-45Primitives-intCastWrap arg-0 (CoreC-45Primitives-int32max)))) (define CoreC-45Primitives-int16max (lambda () 32768)) (define CoreC-45Primitives-int16CastWrap (lambda (arg-0) (CoreC-45Primitives-intCastWrap arg-0 (CoreC-45Primitives-int16max)))) -(define CoreC-45Primitives-gte (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) (let ((e-13 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-62C-61_Ord_Int e-0 e-13)))))(else (vector 0 )))))) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) (let ((e-14 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-62C-61_Ord_Integer e-1 e-14)))))(else (vector 0 )))))) ((2) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((2) (let ((e-15 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-62C-61_Ord_Integer e-2 e-15)))))(else (vector 0 )))))) ((3) (let ((e-3 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((3) (let ((e-16 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-62C-61_Ord_Integer e-3 e-16)))))(else (vector 0 )))))) ((4) (let ((e-4 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((4) (let ((e-17 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-62C-61_Ord_Integer e-4 e-17)))))(else (vector 0 )))))) ((5) (let ((e-5 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((5) (let ((e-18 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-62C-61_Ord_Integer e-5 e-18)))))(else (vector 0 )))))) ((6) (let ((e-6 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((6) (let ((e-19 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-62C-61_Ord_Int e-6 e-19)))))(else (vector 0 )))))) ((7) (let ((e-7 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((7) (let ((e-20 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-62C-61_Ord_Int e-7 e-20)))))(else (vector 0 )))))) ((8) (let ((e-8 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((8) (let ((e-21 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-62C-61_Ord_Int e-8 e-21)))))(else (vector 0 )))))) ((9) (let ((e-9 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((9) (let ((e-22 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-62C-61_Ord_Integer e-9 e-22)))))(else (vector 0 )))))) ((10) (let ((e-10 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((10) (let ((e-23 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-62C-61_Ord_String e-10 e-23)))))(else (vector 0 )))))) ((11) (let ((e-11 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((11) (let ((e-24 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-62C-61_Ord_Char e-11 e-24)))))(else (vector 0 )))))) ((12) (let ((e-12 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((12) (let ((e-25 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-62C-61_Ord_Double e-12 e-25)))))(else (vector 0 ))))))(else (vector 0 )))))) -(define CoreC-45Primitives-gt (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) (let ((e-13 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-62_Ord_Int e-0 e-13)))))(else (vector 0 )))))) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) (let ((e-14 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-62_Ord_Integer e-1 e-14)))))(else (vector 0 )))))) ((2) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((2) (let ((e-15 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-62_Ord_Integer e-2 e-15)))))(else (vector 0 )))))) ((3) (let ((e-3 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((3) (let ((e-16 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-62_Ord_Integer e-3 e-16)))))(else (vector 0 )))))) ((4) (let ((e-4 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((4) (let ((e-17 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-62_Ord_Integer e-4 e-17)))))(else (vector 0 )))))) ((5) (let ((e-5 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((5) (let ((e-18 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-62_Ord_Integer e-5 e-18)))))(else (vector 0 )))))) ((6) (let ((e-6 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((6) (let ((e-19 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-62_Ord_Int e-6 e-19)))))(else (vector 0 )))))) ((7) (let ((e-7 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((7) (let ((e-20 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-62_Ord_Int e-7 e-20)))))(else (vector 0 )))))) ((8) (let ((e-8 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((8) (let ((e-21 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-62_Ord_Int e-8 e-21)))))(else (vector 0 )))))) ((9) (let ((e-9 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((9) (let ((e-22 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-62_Ord_Integer e-9 e-22)))))(else (vector 0 )))))) ((10) (let ((e-10 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((10) (let ((e-23 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-62_Ord_String e-10 e-23)))))(else (vector 0 )))))) ((11) (let ((e-11 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((11) (let ((e-24 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-62_Ord_Char e-11 e-24)))))(else (vector 0 )))))) ((12) (let ((e-12 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((12) (let ((e-25 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-62_Ord_Double e-12 e-25)))))(else (vector 0 ))))))(else (vector 0 )))))) -(define CoreC-45Primitives-getOp (lambda (arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (CoreC-45Primitives-binOp (lambda (eta-1) (lambda (eta-2) (CoreC-45Primitives-add eta-1 eta-2))) arg-2 eta-0))) ((1) (lambda (eta-0) (CoreC-45Primitives-binOp (lambda (eta-1) (lambda (eta-2) (CoreC-45Primitives-sub eta-1 eta-2))) arg-2 eta-0))) ((2) (lambda (eta-0) (CoreC-45Primitives-binOp (lambda (eta-1) (lambda (eta-2) (CoreC-45Primitives-mul eta-1 eta-2))) arg-2 eta-0))) ((3) (lambda (eta-0) (CoreC-45Primitives-binOp (lambda (eta-1) (lambda (eta-2) (CoreC-45Primitives-div eta-1 eta-2))) arg-2 eta-0))) ((4) (lambda (eta-0) (CoreC-45Primitives-binOp (lambda (eta-1) (lambda (eta-2) (CoreC-45Primitives-mod eta-1 eta-2))) arg-2 eta-0))) ((5) (lambda (eta-0) (CoreC-45Primitives-unaryOp (lambda (eta-1) (CoreC-45Primitives-neg eta-1)) arg-2 eta-0))) ((6) (lambda (eta-0) (CoreC-45Primitives-binOp (lambda (eta-1) (lambda (eta-2) (CoreC-45Primitives-shiftl eta-1 eta-2))) arg-2 eta-0))) ((7) (lambda (eta-0) (CoreC-45Primitives-binOp (lambda (eta-1) (lambda (eta-2) (CoreC-45Primitives-shiftr eta-1 eta-2))) arg-2 eta-0))) ((8) (lambda (eta-0) (CoreC-45Primitives-binOp (lambda (eta-1) (lambda (eta-2) (CoreC-45Primitives-band eta-1 eta-2))) arg-2 eta-0))) ((9) (lambda (eta-0) (CoreC-45Primitives-binOp (lambda (eta-1) (lambda (eta-2) (CoreC-45Primitives-bor eta-1 eta-2))) arg-2 eta-0))) ((10) (lambda (eta-0) (CoreC-45Primitives-binOp (lambda (eta-1) (lambda (eta-2) (CoreC-45Primitives-bxor eta-1 eta-2))) arg-2 eta-0))) ((11) (lambda (eta-0) (CoreC-45Primitives-binOp (lambda (eta-1) (lambda (eta-2) (CoreC-45Primitives-lt eta-1 eta-2))) arg-2 eta-0))) ((12) (lambda (eta-0) (CoreC-45Primitives-binOp (lambda (eta-1) (lambda (eta-2) (CoreC-45Primitives-lte eta-1 eta-2))) arg-2 eta-0))) ((13) (lambda (eta-0) (CoreC-45Primitives-binOp (lambda (eta-1) (lambda (eta-2) (CoreC-45Primitives-eq eta-1 eta-2))) arg-2 eta-0))) ((14) (lambda (eta-0) (CoreC-45Primitives-binOp (lambda (eta-1) (lambda (eta-2) (CoreC-45Primitives-gte eta-1 eta-2))) arg-2 eta-0))) ((15) (lambda (eta-0) (CoreC-45Primitives-binOp (lambda (eta-1) (lambda (eta-2) (CoreC-45Primitives-gt eta-1 eta-2))) arg-2 eta-0))) ((16) (lambda (eta-0) (CoreC-45Primitives-strLength eta-0))) ((17) (lambda (eta-0) (CoreC-45Primitives-strHead eta-0))) ((18) (lambda (eta-0) (CoreC-45Primitives-strTail eta-0))) ((19) (lambda (eta-0) (CoreC-45Primitives-strIndex eta-0))) ((20) (lambda (eta-0) (CoreC-45Primitives-strCons eta-0))) ((21) (lambda (eta-0) (CoreC-45Primitives-strAppend eta-0))) ((22) (lambda (eta-0) (CoreC-45Primitives-strReverse eta-0))) ((23) (lambda (eta-0) (CoreC-45Primitives-strSubstr eta-0))) ((24) (lambda (eta-0) (CoreC-45Primitives-doubleExp eta-0))) ((25) (lambda (eta-0) (CoreC-45Primitives-doubleLog eta-0))) ((26) (lambda (eta-0) (CoreC-45Primitives-doubleSin eta-0))) ((27) (lambda (eta-0) (CoreC-45Primitives-doubleCos eta-0))) ((28) (lambda (eta-0) (CoreC-45Primitives-doubleTan eta-0))) ((29) (lambda (eta-0) (CoreC-45Primitives-doubleASin eta-0))) ((30) (lambda (eta-0) (CoreC-45Primitives-doubleACos eta-0))) ((31) (lambda (eta-0) (CoreC-45Primitives-doubleATan eta-0))) ((32) (lambda (eta-0) (CoreC-45Primitives-doubleSqrt eta-0))) ((33) (lambda (eta-0) (CoreC-45Primitives-doubleFloor eta-0))) ((34) (lambda (eta-0) (CoreC-45Primitives-doubleCeiling eta-0))) ((35) (let ((e-17 (vector-ref sc0 2))) (lambda (eta-0) (CoreC-45Primitives-castTo e-17 eta-0)))) ((36) (lambda (eta-0) (CoreC-45Primitives-believeMe eta-0)))(else (lambda (eta-0) (vector 0 ))))))) -(define CoreC-45Primitives-eq (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) (let ((e-13 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-61C-61_Eq_Int e-0 e-13)))))(else (vector 0 )))))) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) (let ((e-14 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-61C-61_Eq_Integer e-1 e-14)))))(else (vector 0 )))))) ((2) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((2) (let ((e-15 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-61C-61_Eq_Integer e-2 e-15)))))(else (vector 0 )))))) ((3) (let ((e-3 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((3) (let ((e-16 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-61C-61_Eq_Integer e-3 e-16)))))(else (vector 0 )))))) ((4) (let ((e-4 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((4) (let ((e-17 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-61C-61_Eq_Integer e-4 e-17)))))(else (vector 0 )))))) ((5) (let ((e-5 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((5) (let ((e-18 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-61C-61_Eq_Integer e-5 e-18)))))(else (vector 0 )))))) ((6) (let ((e-6 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((6) (let ((e-19 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-61C-61_Eq_Int e-6 e-19)))))(else (vector 0 )))))) ((7) (let ((e-7 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((7) (let ((e-20 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-61C-61_Eq_Int e-7 e-20)))))(else (vector 0 )))))) ((8) (let ((e-8 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((8) (let ((e-21 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-61C-61_Eq_Int e-8 e-21)))))(else (vector 0 )))))) ((9) (let ((e-9 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((9) (let ((e-22 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-61C-61_Eq_Integer e-9 e-22)))))(else (vector 0 )))))) ((10) (let ((e-10 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((10) (let ((e-23 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-61C-61_Eq_String e-10 e-23)))))(else (vector 0 )))))) ((11) (let ((e-11 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((11) (let ((e-24 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-61C-61_Eq_Char e-11 e-24)))))(else (vector 0 )))))) ((12) (let ((e-12 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((12) (let ((e-25 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-61C-61_Eq_Double e-12 e-25)))))(else (vector 0 ))))))(else (vector 0 )))))) +(define CoreC-45Primitives-gte (lambda (arg-0 arg-1) (case (vector-ref arg-0 0) ((0) (let ((e-0 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((0) (let ((e-13 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-62C-61_Ord_Int e-0 e-13)))))(else '())))) ((1) (let ((e-1 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((1) (let ((e-14 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-62C-61_Ord_Integer e-1 e-14)))))(else '())))) ((2) (let ((e-2 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((2) (let ((e-15 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-62C-61_Ord_Integer e-2 e-15)))))(else '())))) ((3) (let ((e-3 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((3) (let ((e-16 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-62C-61_Ord_Integer e-3 e-16)))))(else '())))) ((4) (let ((e-4 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((4) (let ((e-17 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-62C-61_Ord_Integer e-4 e-17)))))(else '())))) ((5) (let ((e-5 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((5) (let ((e-18 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-62C-61_Ord_Integer e-5 e-18)))))(else '())))) ((6) (let ((e-6 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((6) (let ((e-19 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-62C-61_Ord_Int e-6 e-19)))))(else '())))) ((7) (let ((e-7 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((7) (let ((e-20 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-62C-61_Ord_Int e-7 e-20)))))(else '())))) ((8) (let ((e-8 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((8) (let ((e-21 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-62C-61_Ord_Int e-8 e-21)))))(else '())))) ((9) (let ((e-9 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((9) (let ((e-22 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-62C-61_Ord_Integer e-9 e-22)))))(else '())))) ((10) (let ((e-10 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((10) (let ((e-23 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-62C-61_Ord_String e-10 e-23)))))(else '())))) ((11) (let ((e-11 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((11) (let ((e-24 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-62C-61_Ord_Char e-11 e-24)))))(else '())))) ((12) (let ((e-12 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((12) (let ((e-25 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-62C-61_Ord_Double e-12 e-25)))))(else '()))))(else '())))) +(define CoreC-45Primitives-gt (lambda (arg-0 arg-1) (case (vector-ref arg-0 0) ((0) (let ((e-0 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((0) (let ((e-13 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-62_Ord_Int e-0 e-13)))))(else '())))) ((1) (let ((e-1 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((1) (let ((e-14 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-62_Ord_Integer e-1 e-14)))))(else '())))) ((2) (let ((e-2 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((2) (let ((e-15 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-62_Ord_Integer e-2 e-15)))))(else '())))) ((3) (let ((e-3 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((3) (let ((e-16 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-62_Ord_Integer e-3 e-16)))))(else '())))) ((4) (let ((e-4 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((4) (let ((e-17 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-62_Ord_Integer e-4 e-17)))))(else '())))) ((5) (let ((e-5 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((5) (let ((e-18 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-62_Ord_Integer e-5 e-18)))))(else '())))) ((6) (let ((e-6 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((6) (let ((e-19 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-62_Ord_Int e-6 e-19)))))(else '())))) ((7) (let ((e-7 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((7) (let ((e-20 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-62_Ord_Int e-7 e-20)))))(else '())))) ((8) (let ((e-8 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((8) (let ((e-21 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-62_Ord_Int e-8 e-21)))))(else '())))) ((9) (let ((e-9 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((9) (let ((e-22 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-62_Ord_Integer e-9 e-22)))))(else '())))) ((10) (let ((e-10 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((10) (let ((e-23 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-62_Ord_String e-10 e-23)))))(else '())))) ((11) (let ((e-11 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((11) (let ((e-24 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-62_Ord_Char e-11 e-24)))))(else '())))) ((12) (let ((e-12 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((12) (let ((e-25 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-62_Ord_Double e-12 e-25)))))(else '()))))(else '())))) +(define CoreC-45Primitives-getOp (lambda (arg-1 arg-2) (case (vector-ref arg-1 0) ((0) (lambda (eta-0) (CoreC-45Primitives-binOp (lambda (eta-1) (lambda (eta-2) (CoreC-45Primitives-add eta-1 eta-2))) arg-2 eta-0))) ((1) (lambda (eta-0) (CoreC-45Primitives-binOp (lambda (eta-1) (lambda (eta-2) (CoreC-45Primitives-sub eta-1 eta-2))) arg-2 eta-0))) ((2) (lambda (eta-0) (CoreC-45Primitives-binOp (lambda (eta-1) (lambda (eta-2) (CoreC-45Primitives-mul eta-1 eta-2))) arg-2 eta-0))) ((3) (lambda (eta-0) (CoreC-45Primitives-binOp (lambda (eta-1) (lambda (eta-2) (CoreC-45Primitives-div eta-1 eta-2))) arg-2 eta-0))) ((4) (lambda (eta-0) (CoreC-45Primitives-binOp (lambda (eta-1) (lambda (eta-2) (CoreC-45Primitives-mod eta-1 eta-2))) arg-2 eta-0))) ((5) (lambda (eta-0) (CoreC-45Primitives-unaryOp (lambda (eta-1) (CoreC-45Primitives-neg eta-1)) arg-2 eta-0))) ((6) (lambda (eta-0) (CoreC-45Primitives-binOp (lambda (eta-1) (lambda (eta-2) (CoreC-45Primitives-shiftl eta-1 eta-2))) arg-2 eta-0))) ((7) (lambda (eta-0) (CoreC-45Primitives-binOp (lambda (eta-1) (lambda (eta-2) (CoreC-45Primitives-shiftr eta-1 eta-2))) arg-2 eta-0))) ((8) (lambda (eta-0) (CoreC-45Primitives-binOp (lambda (eta-1) (lambda (eta-2) (CoreC-45Primitives-band eta-1 eta-2))) arg-2 eta-0))) ((9) (lambda (eta-0) (CoreC-45Primitives-binOp (lambda (eta-1) (lambda (eta-2) (CoreC-45Primitives-bor eta-1 eta-2))) arg-2 eta-0))) ((10) (lambda (eta-0) (CoreC-45Primitives-binOp (lambda (eta-1) (lambda (eta-2) (CoreC-45Primitives-bxor eta-1 eta-2))) arg-2 eta-0))) ((11) (lambda (eta-0) (CoreC-45Primitives-binOp (lambda (eta-1) (lambda (eta-2) (CoreC-45Primitives-lt eta-1 eta-2))) arg-2 eta-0))) ((12) (lambda (eta-0) (CoreC-45Primitives-binOp (lambda (eta-1) (lambda (eta-2) (CoreC-45Primitives-lte eta-1 eta-2))) arg-2 eta-0))) ((13) (lambda (eta-0) (CoreC-45Primitives-binOp (lambda (eta-1) (lambda (eta-2) (CoreC-45Primitives-eq eta-1 eta-2))) arg-2 eta-0))) ((14) (lambda (eta-0) (CoreC-45Primitives-binOp (lambda (eta-1) (lambda (eta-2) (CoreC-45Primitives-gte eta-1 eta-2))) arg-2 eta-0))) ((15) (lambda (eta-0) (CoreC-45Primitives-binOp (lambda (eta-1) (lambda (eta-2) (CoreC-45Primitives-gt eta-1 eta-2))) arg-2 eta-0))) ((16) (lambda (eta-0) (CoreC-45Primitives-strLength eta-0))) ((17) (lambda (eta-0) (CoreC-45Primitives-strHead eta-0))) ((18) (lambda (eta-0) (CoreC-45Primitives-strTail eta-0))) ((19) (lambda (eta-0) (CoreC-45Primitives-strIndex eta-0))) ((20) (lambda (eta-0) (CoreC-45Primitives-strCons eta-0))) ((21) (lambda (eta-0) (CoreC-45Primitives-strAppend eta-0))) ((22) (lambda (eta-0) (CoreC-45Primitives-strReverse eta-0))) ((23) (lambda (eta-0) (CoreC-45Primitives-strSubstr eta-0))) ((24) (lambda (eta-0) (CoreC-45Primitives-doubleExp eta-0))) ((25) (lambda (eta-0) (CoreC-45Primitives-doubleLog eta-0))) ((26) (lambda (eta-0) (CoreC-45Primitives-doubleSin eta-0))) ((27) (lambda (eta-0) (CoreC-45Primitives-doubleCos eta-0))) ((28) (lambda (eta-0) (CoreC-45Primitives-doubleTan eta-0))) ((29) (lambda (eta-0) (CoreC-45Primitives-doubleASin eta-0))) ((30) (lambda (eta-0) (CoreC-45Primitives-doubleACos eta-0))) ((31) (lambda (eta-0) (CoreC-45Primitives-doubleATan eta-0))) ((32) (lambda (eta-0) (CoreC-45Primitives-doubleSqrt eta-0))) ((33) (lambda (eta-0) (CoreC-45Primitives-doubleFloor eta-0))) ((34) (lambda (eta-0) (CoreC-45Primitives-doubleCeiling eta-0))) ((35) (let ((e-17 (vector-ref arg-1 2))) (lambda (eta-0) (CoreC-45Primitives-castTo e-17 eta-0)))) ((36) (lambda (eta-0) (CoreC-45Primitives-believeMe eta-0)))(else (lambda (eta-0) '()))))) +(define CoreC-45Primitives-eq (lambda (arg-0 arg-1) (case (vector-ref arg-0 0) ((0) (let ((e-0 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((0) (let ((e-13 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-61C-61_Eq_Int e-0 e-13)))))(else '())))) ((1) (let ((e-1 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((1) (let ((e-14 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-61C-61_Eq_Integer e-1 e-14)))))(else '())))) ((2) (let ((e-2 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((2) (let ((e-15 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-61C-61_Eq_Integer e-2 e-15)))))(else '())))) ((3) (let ((e-3 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((3) (let ((e-16 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-61C-61_Eq_Integer e-3 e-16)))))(else '())))) ((4) (let ((e-4 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((4) (let ((e-17 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-61C-61_Eq_Integer e-4 e-17)))))(else '())))) ((5) (let ((e-5 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((5) (let ((e-18 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-61C-61_Eq_Integer e-5 e-18)))))(else '())))) ((6) (let ((e-6 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((6) (let ((e-19 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-61C-61_Eq_Int e-6 e-19)))))(else '())))) ((7) (let ((e-7 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((7) (let ((e-20 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-61C-61_Eq_Int e-7 e-20)))))(else '())))) ((8) (let ((e-8 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((8) (let ((e-21 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-61C-61_Eq_Int e-8 e-21)))))(else '())))) ((9) (let ((e-9 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((9) (let ((e-22 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-61C-61_Eq_Integer e-9 e-22)))))(else '())))) ((10) (let ((e-10 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((10) (let ((e-23 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-61C-61_Eq_String e-10 e-23)))))(else '())))) ((11) (let ((e-11 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((11) (let ((e-24 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-61C-61_Eq_Char e-11 e-24)))))(else '())))) ((12) (let ((e-12 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((12) (let ((e-25 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45Primitives-toInt (PreludeC-45EqOrd-u--C-61C-61_Eq_Double e-12 e-25)))))(else '()))))(else '())))) (define CoreC-45Primitives-doubleTy (lambda () (CoreC-45Primitives-predTy (vector 26 ) (vector 26 )))) (define CoreC-45Primitives-doubleTan (lambda (ext-0) (CoreC-45Primitives-doubleOp (lambda (eta-0) (PreludeC-45Types-tan eta-0)) ext-0))) (define CoreC-45Primitives-doubleSqrt (lambda (ext-0) (CoreC-45Primitives-doubleOp (lambda (eta-0) (PreludeC-45Types-sqrt eta-0)) ext-0))) (define CoreC-45Primitives-doubleSin (lambda (ext-0) (CoreC-45Primitives-doubleOp (lambda (eta-0) (PreludeC-45Types-sin eta-0)) ext-0))) -(define CoreC-45Primitives-doubleOp (lambda (arg-1 arg-2) (let ((sc0 arg-2)) (if (null? sc0) (vector 0 ) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((8) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((12) (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-3)) (if (null? sc3) (vector 1 (vector 8 e-5 (vector 12 (arg-1 e-7)))) (vector 0 )))))(else (vector 0 )))))))(else (vector 0 )))))))))) +(define CoreC-45Primitives-doubleOp (lambda (arg-1 arg-2) (if (null? arg-2) '() (let ((e-2 (car arg-2))) (let ((e-3 (cdr arg-2))) (case (vector-ref e-2 0) ((8) (let ((e-5 (vector-ref e-2 1))) (let ((e-6 (vector-ref e-2 2))) (case (vector-ref e-6 0) ((12) (let ((e-7 (vector-ref e-6 1))) (if (null? e-3) (box (vector 8 e-5 (vector 12 (arg-1 e-7)))) '())))(else '())))))(else '()))))))) (define CoreC-45Primitives-doubleLog (lambda (ext-0) (CoreC-45Primitives-doubleOp (lambda (eta-0) (PreludeC-45Types-log eta-0)) ext-0))) (define CoreC-45Primitives-doubleFloor (lambda (ext-0) (CoreC-45Primitives-doubleOp (lambda (eta-0) (PreludeC-45Types-floor eta-0)) ext-0))) (define CoreC-45Primitives-doubleExp (lambda (ext-0) (CoreC-45Primitives-doubleOp (lambda (eta-0) (PreludeC-45Types-exp eta-0)) ext-0))) @@ -3421,2091 +2968,1932 @@ (define CoreC-45Primitives-doubleATan (lambda (ext-0) (CoreC-45Primitives-doubleOp (lambda (eta-0) (PreludeC-45Types-atan eta-0)) ext-0))) (define CoreC-45Primitives-doubleASin (lambda (ext-0) (CoreC-45Primitives-doubleOp (lambda (eta-0) (PreludeC-45Types-asin eta-0)) ext-0))) (define CoreC-45Primitives-doubleACos (lambda (ext-0) (CoreC-45Primitives-doubleOp (lambda (eta-0) (PreludeC-45Types-acos eta-0)) ext-0))) -(define CoreC-45Primitives-div (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((5) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((5) (let ((e-7 (vector-ref sc1 1))) (let ((sc2 e-7)) (cond ((equal? sc2 0) (vector 0 ))(else (PreludeC-45Types-u--pure_Applicative_Maybe (vector 5 (PreludeC-45Num-u--div_Integral_Integer e-0 e-7))))))))(else (vector 0 )))))) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) (let ((e-8 (vector-ref sc1 1))) (let ((sc2 e-8)) (cond ((equal? sc2 0) (vector 0 ))(else (PreludeC-45Types-u--pure_Applicative_Maybe (vector 0 (PreludeC-45Num-u--div_Integral_Int e-1 e-8))))))))(else (vector 0 )))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) (let ((e-9 (vector-ref sc1 1))) (let ((sc2 e-9)) (cond ((equal? sc2 0) (vector 0 ))(else (PreludeC-45Types-u--pure_Applicative_Maybe (vector 1 (CoreC-45Primitives-int8CastWrap (PreludeC-45Num-u--div_Integral_Integer e-2 e-9)))))))))(else (vector 0 )))))) ((2) (let ((e-3 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((2) (let ((e-10 (vector-ref sc1 1))) (let ((sc2 e-10)) (cond ((equal? sc2 0) (vector 0 ))(else (PreludeC-45Types-u--pure_Applicative_Maybe (vector 2 (CoreC-45Primitives-int16CastWrap (PreludeC-45Num-u--div_Integral_Integer e-3 e-10)))))))))(else (vector 0 )))))) ((3) (let ((e-4 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((3) (let ((e-11 (vector-ref sc1 1))) (let ((sc2 e-11)) (cond ((equal? sc2 0) (vector 0 ))(else (PreludeC-45Types-u--pure_Applicative_Maybe (vector 3 (CoreC-45Primitives-int32CastWrap (PreludeC-45Num-u--div_Integral_Integer e-4 e-11)))))))))(else (vector 0 )))))) ((4) (let ((e-5 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((4) (let ((e-12 (vector-ref sc1 1))) (let ((sc2 e-12)) (cond ((equal? sc2 0) (vector 0 ))(else (PreludeC-45Types-u--pure_Applicative_Maybe (vector 4 (CoreC-45Primitives-int64CastWrap (PreludeC-45Num-u--div_Integral_Integer e-5 e-12)))))))))(else (vector 0 )))))) ((12) (let ((e-6 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((12) (let ((e-13 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 12 (PreludeC-45Num-u--C-47_Fractional_Double e-6 e-13)))))(else (vector 0 ))))))(else (vector 0 )))))) -(define CoreC-45Primitives-crashTy (lambda () (vector 3 (CoreC-45FC-emptyFC) (vector 1 "a") (vector 2 (CoreC-45FC-emptyFC) (AlgebraC-45Semiring-erased (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))) (vector 1 ) (vector 11 (CoreC-45FC-emptyFC))) (vector 3 (CoreC-45FC-emptyFC) (vector 1 "msg") (vector 2 (CoreC-45FC-emptyFC) (AlgebraC-45ZeroOneOmega-u--top_Top_ZeroOneOmega) (vector 1 ) (vector 9 (CoreC-45FC-emptyFC) (vector 24 ))) (vector 0 (CoreC-45FC-emptyFC) (vector 0 ) (+ 1 0)))))) -(define CoreC-45Primitives-constantIntegerValue (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (vector 1 (PreludeC-45Cast-u--cast_Cast_Int_Integer e-0)))) ((1) (let ((e-1 (vector-ref sc0 1))) (vector 1 e-1))) ((2) (let ((e-2 (vector-ref sc0 1))) (vector 1 e-2))) ((3) (let ((e-3 (vector-ref sc0 1))) (vector 1 e-3))) ((4) (let ((e-4 (vector-ref sc0 1))) (vector 1 e-4))) ((5) (let ((e-5 (vector-ref sc0 1))) (vector 1 e-5))) ((6) (let ((e-6 (vector-ref sc0 1))) (vector 1 (PreludeC-45Cast-u--cast_Cast_Int_Integer e-6)))) ((7) (let ((e-7 (vector-ref sc0 1))) (vector 1 (PreludeC-45Cast-u--cast_Cast_Int_Integer e-7)))) ((8) (let ((e-8 (vector-ref sc0 1))) (vector 1 (PreludeC-45Cast-u--cast_Cast_Int_Integer e-8)))) ((9) (let ((e-9 (vector-ref sc0 1))) (vector 1 e-9)))(else (vector 0 )))))) +(define CoreC-45Primitives-div (lambda (arg-0 arg-1) (case (vector-ref arg-0 0) ((5) (let ((e-0 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((5) (let ((e-7 (vector-ref arg-1 1))) (cond ((equal? e-7 0) '())(else (PreludeC-45Types-u--pure_Applicative_Maybe (vector 5 (PreludeC-45Num-u--div_Integral_Integer e-0 e-7)))))))(else '())))) ((0) (let ((e-1 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((0) (let ((e-8 (vector-ref arg-1 1))) (cond ((equal? e-8 0) '())(else (PreludeC-45Types-u--pure_Applicative_Maybe (vector 0 (PreludeC-45Num-u--div_Integral_Int e-1 e-8)))))))(else '())))) ((1) (let ((e-2 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((1) (let ((e-9 (vector-ref arg-1 1))) (cond ((equal? e-9 0) '())(else (PreludeC-45Types-u--pure_Applicative_Maybe (vector 1 (CoreC-45Primitives-int8CastWrap (PreludeC-45Num-u--div_Integral_Integer e-2 e-9))))))))(else '())))) ((2) (let ((e-3 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((2) (let ((e-10 (vector-ref arg-1 1))) (cond ((equal? e-10 0) '())(else (PreludeC-45Types-u--pure_Applicative_Maybe (vector 2 (CoreC-45Primitives-int16CastWrap (PreludeC-45Num-u--div_Integral_Integer e-3 e-10))))))))(else '())))) ((3) (let ((e-4 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((3) (let ((e-11 (vector-ref arg-1 1))) (cond ((equal? e-11 0) '())(else (PreludeC-45Types-u--pure_Applicative_Maybe (vector 3 (CoreC-45Primitives-int32CastWrap (PreludeC-45Num-u--div_Integral_Integer e-4 e-11))))))))(else '())))) ((4) (let ((e-5 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((4) (let ((e-12 (vector-ref arg-1 1))) (cond ((equal? e-12 0) '())(else (PreludeC-45Types-u--pure_Applicative_Maybe (vector 4 (CoreC-45Primitives-int64CastWrap (PreludeC-45Num-u--div_Integral_Integer e-5 e-12))))))))(else '())))) ((12) (let ((e-6 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((12) (let ((e-13 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 12 (PreludeC-45Num-u--C-47_Fractional_Double e-6 e-13)))))(else '()))))(else '())))) +(define CoreC-45Primitives-crashTy (lambda () (vector 3 (CoreC-45FC-emptyFC) (vector 1 "a") (vector 2 (CoreC-45FC-emptyFC) (AlgebraC-45Semiring-erased (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))) (vector 1 ) (vector 11 (CoreC-45FC-emptyFC))) (vector 3 (CoreC-45FC-emptyFC) (vector 1 "msg") (vector 2 (CoreC-45FC-emptyFC) (AlgebraC-45ZeroOneOmega-u--top_Top_ZeroOneOmega) (vector 1 ) (vector 9 (CoreC-45FC-emptyFC) (vector 24 ))) (vector 0 (CoreC-45FC-emptyFC) '() (+ 1 0)))))) +(define CoreC-45Primitives-constantIntegerValue (lambda (arg-0) (case (vector-ref arg-0 0) ((0) (let ((e-0 (vector-ref arg-0 1))) (box (PreludeC-45Cast-u--cast_Cast_Int_Integer e-0)))) ((1) (let ((e-1 (vector-ref arg-0 1))) (box e-1))) ((2) (let ((e-2 (vector-ref arg-0 1))) (box e-2))) ((3) (let ((e-3 (vector-ref arg-0 1))) (box e-3))) ((4) (let ((e-4 (vector-ref arg-0 1))) (box e-4))) ((5) (let ((e-5 (vector-ref arg-0 1))) (box e-5))) ((6) (let ((e-6 (vector-ref arg-0 1))) (box (PreludeC-45Cast-u--cast_Cast_Int_Integer e-6)))) ((7) (let ((e-7 (vector-ref arg-0 1))) (box (PreludeC-45Cast-u--cast_Cast_Int_Integer e-7)))) ((8) (let ((e-8 (vector-ref arg-0 1))) (box (PreludeC-45Cast-u--cast_Cast_Int_Integer e-8)))) ((9) (let ((e-9 (vector-ref arg-0 1))) (box e-9)))(else '())))) (define CoreC-45Primitives-constTy3 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((u--arr (lambda (eta-0) (lambda (eta-1) (CoreC-45TT-fnType '() (CoreC-45FC-emptyFC) eta-0 eta-1))))) ((u--arr (vector 9 (CoreC-45FC-emptyFC) arg-0)) ((u--arr (vector 9 (CoreC-45FC-emptyFC) arg-1)) ((u--arr (vector 9 (CoreC-45FC-emptyFC) arg-2)) (vector 9 (CoreC-45FC-emptyFC) arg-3))))))) (define CoreC-45Primitives-constTy (lambda (arg-0 arg-1 arg-2) (let ((u--arr (lambda (eta-0) (lambda (eta-1) (CoreC-45TT-fnType '() (CoreC-45FC-emptyFC) eta-0 eta-1))))) ((u--arr (vector 9 (CoreC-45FC-emptyFC) arg-0)) ((u--arr (vector 9 (CoreC-45FC-emptyFC) arg-1)) (vector 9 (CoreC-45FC-emptyFC) arg-2)))))) (define CoreC-45Primitives-cmpTy (lambda (arg-0) (CoreC-45Primitives-constTy arg-0 arg-0 (vector 14 )))) -(define CoreC-45Primitives-castTo (lambda (arg-1 ext-0) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((14) (CoreC-45Primitives-castInt ext-0)) ((15) (CoreC-45Primitives-castInt8 ext-0)) ((16) (CoreC-45Primitives-castInt16 ext-0)) ((17) (CoreC-45Primitives-castInt32 ext-0)) ((18) (CoreC-45Primitives-castInt64 ext-0)) ((19) (CoreC-45Primitives-castInteger ext-0)) ((20) (CoreC-45Primitives-castBits8 ext-0)) ((21) (CoreC-45Primitives-castBits16 ext-0)) ((22) (CoreC-45Primitives-castBits32 ext-0)) ((23) (CoreC-45Primitives-castBits64 ext-0)) ((24) (CoreC-45Primitives-castString ext-0)) ((25) (CoreC-45Primitives-castChar ext-0)) ((26) (CoreC-45Primitives-castDouble ext-0))(else (vector 0 )))))) -(define CoreC-45Primitives-castString (lambda (arg-1) (let ((sc0 arg-1)) (if (null? sc0) (vector 0 ) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((8) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-3)) (if (null? sc3) (vector 1 (vector 8 e-5 (vector 10 (PreludeC-45Show-u--show_Show_Int e-7)))) (vector 0 ))))) ((1) (let ((e-8 (vector-ref sc2 1))) (let ((sc3 e-3)) (if (null? sc3) (vector 1 (vector 8 e-5 (vector 10 (PreludeC-45Show-u--show_Show_Integer e-8)))) (vector 0 ))))) ((2) (let ((e-9 (vector-ref sc2 1))) (let ((sc3 e-3)) (if (null? sc3) (vector 1 (vector 8 e-5 (vector 10 (PreludeC-45Show-u--show_Show_Integer e-9)))) (vector 0 ))))) ((3) (let ((e-10 (vector-ref sc2 1))) (let ((sc3 e-3)) (if (null? sc3) (vector 1 (vector 8 e-5 (vector 10 (PreludeC-45Show-u--show_Show_Integer e-10)))) (vector 0 ))))) ((4) (let ((e-11 (vector-ref sc2 1))) (let ((sc3 e-3)) (if (null? sc3) (vector 1 (vector 8 e-5 (vector 10 (PreludeC-45Show-u--show_Show_Integer e-11)))) (vector 0 ))))) ((5) (let ((e-12 (vector-ref sc2 1))) (let ((sc3 e-3)) (if (null? sc3) (vector 1 (vector 8 e-5 (vector 10 (PreludeC-45Show-u--show_Show_Integer e-12)))) (vector 0 ))))) ((6) (let ((e-13 (vector-ref sc2 1))) (let ((sc3 e-3)) (if (null? sc3) (vector 1 (vector 8 e-5 (vector 10 (PreludeC-45Show-u--show_Show_Int e-13)))) (vector 0 ))))) ((7) (let ((e-14 (vector-ref sc2 1))) (let ((sc3 e-3)) (if (null? sc3) (vector 1 (vector 8 e-5 (vector 10 (PreludeC-45Show-u--show_Show_Int e-14)))) (vector 0 ))))) ((8) (let ((e-15 (vector-ref sc2 1))) (let ((sc3 e-3)) (if (null? sc3) (vector 1 (vector 8 e-5 (vector 10 (PreludeC-45Show-u--show_Show_Int e-15)))) (vector 0 ))))) ((9) (let ((e-16 (vector-ref sc2 1))) (let ((sc3 e-3)) (if (null? sc3) (vector 1 (vector 8 e-5 (vector 10 (PreludeC-45Show-u--show_Show_Integer e-16)))) (vector 0 ))))) ((11) (let ((e-17 (vector-ref sc2 1))) (let ((sc3 e-3)) (if (null? sc3) (vector 1 (vector 8 e-5 (vector 10 (LibrariesC-45UtilsC-45String-stripQuotes (PreludeC-45Show-u--show_Show_Char e-17))))) (vector 0 ))))) ((12) (let ((e-18 (vector-ref sc2 1))) (let ((sc3 e-3)) (if (null? sc3) (vector 1 (vector 8 e-5 (vector 10 (PreludeC-45Show-u--show_Show_Double e-18)))) (vector 0 )))))(else (vector 0 )))))))(else (vector 0 )))))))))) -(define CoreC-45Primitives-castInteger (lambda (arg-1) (let ((sc0 arg-1)) (if (null? sc0) (vector 0 ) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((8) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-3)) (if (null? sc3) (vector 1 (vector 8 e-5 (vector 5 (PreludeC-45Cast-u--cast_Cast_Int_Integer e-7)))) (vector 0 ))))) ((1) (let ((e-8 (vector-ref sc2 1))) (let ((sc3 e-3)) (if (null? sc3) (vector 1 (vector 8 e-5 (vector 5 e-8))) (vector 0 ))))) ((2) (let ((e-9 (vector-ref sc2 1))) (let ((sc3 e-3)) (if (null? sc3) (vector 1 (vector 8 e-5 (vector 5 e-9))) (vector 0 ))))) ((3) (let ((e-10 (vector-ref sc2 1))) (let ((sc3 e-3)) (if (null? sc3) (vector 1 (vector 8 e-5 (vector 5 e-10))) (vector 0 ))))) ((4) (let ((e-11 (vector-ref sc2 1))) (let ((sc3 e-3)) (if (null? sc3) (vector 1 (vector 8 e-5 (vector 5 e-11))) (vector 0 ))))) ((6) (let ((e-12 (vector-ref sc2 1))) (let ((sc3 e-3)) (if (null? sc3) (vector 1 (vector 8 e-5 (vector 5 (PreludeC-45Cast-u--cast_Cast_Int_Integer e-12)))) (vector 0 ))))) ((7) (let ((e-13 (vector-ref sc2 1))) (let ((sc3 e-3)) (if (null? sc3) (vector 1 (vector 8 e-5 (vector 5 (PreludeC-45Cast-u--cast_Cast_Int_Integer e-13)))) (vector 0 ))))) ((8) (let ((e-14 (vector-ref sc2 1))) (let ((sc3 e-3)) (if (null? sc3) (vector 1 (vector 8 e-5 (vector 5 (PreludeC-45Cast-u--cast_Cast_Int_Integer e-14)))) (vector 0 ))))) ((9) (let ((e-15 (vector-ref sc2 1))) (let ((sc3 e-3)) (if (null? sc3) (vector 1 (vector 8 e-5 (vector 5 e-15))) (vector 0 ))))) ((11) (let ((e-16 (vector-ref sc2 1))) (let ((sc3 e-3)) (if (null? sc3) (vector 1 (vector 8 e-5 (vector 5 (PreludeC-45Cast-u--cast_Cast_Int_Integer (PreludeC-45Cast-u--cast_Cast_Char_Int e-16))))) (vector 0 ))))) ((12) (let ((e-17 (vector-ref sc2 1))) (let ((sc3 e-3)) (if (null? sc3) (vector 1 (vector 8 e-5 (vector 5 (PreludeC-45Cast-u--cast_Cast_Double_Integer e-17)))) (vector 0 ))))) ((10) (let ((e-18 (vector-ref sc2 1))) (let ((sc3 e-3)) (if (null? sc3) (vector 1 (vector 8 e-5 (vector 5 (PreludeC-45Cast-u--cast_Cast_String_Integer e-18)))) (vector 0 )))))(else (vector 0 )))))))(else (vector 0 )))))))))) -(define CoreC-45Primitives-castInt8 (lambda (arg-1) (let ((sc0 arg-1)) (if (null? sc0) (vector 0 ) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((8) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-3)) (if (null? sc2) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Primitives-constantIntegerValue e-6) (lambda (u--value) (let ((u--wrapped (CoreC-45Primitives-int8CastWrap u--value))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 8 e-5 (vector 1 u--wrapped)))))) (vector 0 ))))))(else (vector 0 )))))))))) -(define CoreC-45Primitives-castInt64 (lambda (arg-1) (let ((sc0 arg-1)) (if (null? sc0) (vector 0 ) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((8) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-3)) (if (null? sc2) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Primitives-constantIntegerValue e-6) (lambda (u--value) (let ((u--wrapped (CoreC-45Primitives-int64CastWrap u--value))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 8 e-5 (vector 4 u--wrapped)))))) (vector 0 ))))))(else (vector 0 )))))))))) -(define CoreC-45Primitives-castInt32 (lambda (arg-1) (let ((sc0 arg-1)) (if (null? sc0) (vector 0 ) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((8) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-3)) (if (null? sc2) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Primitives-constantIntegerValue e-6) (lambda (u--value) (let ((u--wrapped (CoreC-45Primitives-int32CastWrap u--value))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 8 e-5 (vector 3 u--wrapped)))))) (vector 0 ))))))(else (vector 0 )))))))))) -(define CoreC-45Primitives-castInt16 (lambda (arg-1) (let ((sc0 arg-1)) (if (null? sc0) (vector 0 ) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((8) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-3)) (if (null? sc2) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Primitives-constantIntegerValue e-6) (lambda (u--value) (let ((u--wrapped (CoreC-45Primitives-int16CastWrap u--value))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 8 e-5 (vector 2 u--wrapped)))))) (vector 0 ))))))(else (vector 0 )))))))))) -(define CoreC-45Primitives-castInt (lambda (arg-1) (let ((sc0 arg-1)) (if (null? sc0) (vector 0 ) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((8) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-3)) (if (null? sc3) (vector 1 (vector 8 e-5 (vector 0 (blodwen-toSignedInt e-7 63)))) (vector 0 ))))) ((2) (let ((e-8 (vector-ref sc2 1))) (let ((sc3 e-3)) (if (null? sc3) (vector 1 (vector 8 e-5 (vector 0 (blodwen-toSignedInt e-8 63)))) (vector 0 ))))) ((3) (let ((e-9 (vector-ref sc2 1))) (let ((sc3 e-3)) (if (null? sc3) (vector 1 (vector 8 e-5 (vector 0 (blodwen-toSignedInt e-9 63)))) (vector 0 ))))) ((4) (let ((e-10 (vector-ref sc2 1))) (let ((sc3 e-3)) (if (null? sc3) (vector 1 (vector 8 e-5 (vector 0 (blodwen-toSignedInt e-10 63)))) (vector 0 ))))) ((5) (let ((e-11 (vector-ref sc2 1))) (let ((sc3 e-3)) (if (null? sc3) (vector 1 (vector 8 e-5 (vector 0 (blodwen-toSignedInt e-11 63)))) (vector 0 ))))) ((6) (let ((e-12 (vector-ref sc2 1))) (let ((sc3 e-3)) (if (null? sc3) (vector 1 (vector 8 e-5 (vector 0 e-12))) (vector 0 ))))) ((7) (let ((e-13 (vector-ref sc2 1))) (let ((sc3 e-3)) (if (null? sc3) (vector 1 (vector 8 e-5 (vector 0 e-13))) (vector 0 ))))) ((8) (let ((e-14 (vector-ref sc2 1))) (let ((sc3 e-3)) (if (null? sc3) (vector 1 (vector 8 e-5 (vector 0 e-14))) (vector 0 ))))) ((9) (let ((e-15 (vector-ref sc2 1))) (let ((sc3 e-3)) (if (null? sc3) (vector 1 (vector 8 e-5 (vector 0 (blodwen-toSignedInt e-15 63)))) (vector 0 ))))) ((12) (let ((e-16 (vector-ref sc2 1))) (let ((sc3 e-3)) (if (null? sc3) (vector 1 (vector 8 e-5 (vector 0 (PreludeC-45Cast-u--cast_Cast_Double_Int e-16)))) (vector 0 ))))) ((11) (let ((e-17 (vector-ref sc2 1))) (let ((sc3 e-3)) (if (null? sc3) (vector 1 (vector 8 e-5 (vector 0 (PreludeC-45Cast-u--cast_Cast_Char_Int e-17)))) (vector 0 ))))) ((10) (let ((e-18 (vector-ref sc2 1))) (let ((sc3 e-3)) (if (null? sc3) (vector 1 (vector 8 e-5 (vector 0 (PreludeC-45Cast-u--cast_Cast_String_Int e-18)))) (vector 0 )))))(else (vector 0 )))))))(else (vector 0 )))))))))) -(define CoreC-45Primitives-castDouble (lambda (arg-1) (let ((sc0 arg-1)) (if (null? sc0) (vector 0 ) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((8) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-3)) (if (null? sc3) (vector 1 (vector 8 e-5 (vector 12 (PreludeC-45Cast-u--cast_Cast_Int_Double e-7)))) (vector 0 ))))) ((1) (let ((e-8 (vector-ref sc2 1))) (let ((sc3 e-3)) (if (null? sc3) (vector 1 (vector 8 e-5 (vector 12 (PreludeC-45Cast-u--cast_Cast_Integer_Double e-8)))) (vector 0 ))))) ((2) (let ((e-9 (vector-ref sc2 1))) (let ((sc3 e-3)) (if (null? sc3) (vector 1 (vector 8 e-5 (vector 12 (PreludeC-45Cast-u--cast_Cast_Integer_Double e-9)))) (vector 0 ))))) ((3) (let ((e-10 (vector-ref sc2 1))) (let ((sc3 e-3)) (if (null? sc3) (vector 1 (vector 8 e-5 (vector 12 (PreludeC-45Cast-u--cast_Cast_Integer_Double e-10)))) (vector 0 ))))) ((4) (let ((e-11 (vector-ref sc2 1))) (let ((sc3 e-3)) (if (null? sc3) (vector 1 (vector 8 e-5 (vector 12 (PreludeC-45Cast-u--cast_Cast_Integer_Double e-11)))) (vector 0 ))))) ((5) (let ((e-12 (vector-ref sc2 1))) (let ((sc3 e-3)) (if (null? sc3) (vector 1 (vector 8 e-5 (vector 12 (PreludeC-45Cast-u--cast_Cast_Integer_Double e-12)))) (vector 0 ))))) ((10) (let ((e-13 (vector-ref sc2 1))) (let ((sc3 e-3)) (if (null? sc3) (vector 1 (vector 8 e-5 (vector 12 (PreludeC-45Cast-u--cast_Cast_String_Double e-13)))) (vector 0 )))))(else (vector 0 )))))))(else (vector 0 )))))))))) -(define CoreC-45Primitives-castChar (lambda (arg-1) (let ((sc0 arg-1)) (if (null? sc0) (vector 0 ) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((8) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-3)) (if (null? sc3) (vector 1 (vector 8 e-5 (vector 11 (PreludeC-45Cast-u--cast_Cast_Int_Char e-7)))) (vector 0 )))))(else (vector 0 )))))))(else (vector 0 )))))))))) -(define CoreC-45Primitives-castBits8 (lambda (arg-1) (let ((sc0 arg-1)) (if (null? sc0) (vector 0 ) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((8) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-3)) (if (null? sc2) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Primitives-constantIntegerValue e-6) (lambda (u--value) (let ((u--wrapped (CoreC-45Primitives-bitCastWrap u--value (PreludeC-45Cast-u--cast_Cast_Int_Integer (CoreC-45Primitives-b8max))))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 8 e-5 (vector 6 (PreludeC-45Cast-u--cast_Cast_Integer_Int u--wrapped))))))) (vector 0 ))))))(else (vector 0 )))))))))) -(define CoreC-45Primitives-castBits64 (lambda (arg-1) (let ((sc0 arg-1)) (if (null? sc0) (vector 0 ) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((8) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-3)) (if (null? sc2) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Primitives-constantIntegerValue e-6) (lambda (u--value) (let ((u--wrapped (CoreC-45Primitives-bitCastWrap u--value (CoreC-45Primitives-b64max)))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 8 e-5 (vector 9 u--wrapped)))))) (vector 0 ))))))(else (vector 0 )))))))))) -(define CoreC-45Primitives-castBits32 (lambda (arg-1) (let ((sc0 arg-1)) (if (null? sc0) (vector 0 ) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((8) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-3)) (if (null? sc2) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Primitives-constantIntegerValue e-6) (lambda (u--value) (let ((u--wrapped (CoreC-45Primitives-bitCastWrap u--value (PreludeC-45Cast-u--cast_Cast_Int_Integer (CoreC-45Primitives-b32max))))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 8 e-5 (vector 8 (PreludeC-45Cast-u--cast_Cast_Integer_Int u--wrapped))))))) (vector 0 ))))))(else (vector 0 )))))))))) -(define CoreC-45Primitives-castBits16 (lambda (arg-1) (let ((sc0 arg-1)) (if (null? sc0) (vector 0 ) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((8) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-3)) (if (null? sc2) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Primitives-constantIntegerValue e-6) (lambda (u--value) (let ((u--wrapped (CoreC-45Primitives-bitCastWrap u--value (PreludeC-45Cast-u--cast_Cast_Int_Integer (CoreC-45Primitives-b16max))))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 8 e-5 (vector 7 (PreludeC-45Cast-u--cast_Cast_Integer_Int u--wrapped))))))) (vector 0 ))))))(else (vector 0 )))))))))) -(define CoreC-45Primitives-bxor (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 0 (blodwen-xor e-0 e-4)))))(else (vector 0 )))))) ((6) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((6) (let ((e-5 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 6 (blodwen-xor e-1 e-5)))))(else (vector 0 )))))) ((7) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((7) (let ((e-6 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 7 (blodwen-xor e-2 e-6)))))(else (vector 0 )))))) ((8) (let ((e-3 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((8) (let ((e-7 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 8 (blodwen-xor e-3 e-7)))))(else (vector 0 ))))))(else (vector 0 )))))) -(define CoreC-45Primitives-bor (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) (let ((e-10 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 0 (blodwen-or e-0 e-10)))))(else (vector 0 )))))) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) (let ((e-11 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 1 (blodwen-or e-1 e-11)))))(else (vector 0 )))))) ((2) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((2) (let ((e-12 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 2 (blodwen-or e-2 e-12)))))(else (vector 0 )))))) ((3) (let ((e-3 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((3) (let ((e-13 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 3 (blodwen-or e-3 e-13)))))(else (vector 0 )))))) ((4) (let ((e-4 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((4) (let ((e-14 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 4 (blodwen-or e-4 e-14)))))(else (vector 0 )))))) ((5) (let ((e-5 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((5) (let ((e-15 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 5 (blodwen-or e-5 e-15)))))(else (vector 0 )))))) ((6) (let ((e-6 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((6) (let ((e-16 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 6 (blodwen-or e-6 e-16)))))(else (vector 0 )))))) ((7) (let ((e-7 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((7) (let ((e-17 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 7 (blodwen-or e-7 e-17)))))(else (vector 0 )))))) ((8) (let ((e-8 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((8) (let ((e-18 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 8 (blodwen-or e-8 e-18)))))(else (vector 0 )))))) ((9) (let ((e-9 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((9) (let ((e-19 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 9 (blodwen-or e-9 e-19)))))(else (vector 0 ))))))(else (vector 0 )))))) -(define CoreC-45Primitives-bitCastWrap (lambda (arg-0 arg-1) (CoreC-45Primitives-case--bitCastWrap-1267 arg-1 arg-0 (PreludeC-45EqOrd-u--C-62C-61_Ord_Integer arg-0 0)))) -(define CoreC-45Primitives-binOp (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (if (null? sc0) (vector 0 ) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((8) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-3)) (if (null? sc2) (vector 0 ) (let ((e-9 (car sc2))) (let ((e-10 (cdr sc2))) (let ((sc3 e-9)) (case (vector-ref sc3 0) ((8) (let ((e-13 (vector-ref sc3 2))) (let ((sc4 e-10)) (if (null? sc4) (PreludeC-45Types-u--map_Functor_Maybe (lambda (eta-0) (vector 8 e-5 eta-0)) ((arg-0 e-6) e-13)) (vector 0 )))))(else (vector 0 )))))))))))(else (vector 0 )))))))))) -(define CoreC-45Primitives-believeMeTy (lambda () (vector 3 (CoreC-45FC-emptyFC) (vector 1 "a") (vector 2 (CoreC-45FC-emptyFC) (AlgebraC-45Semiring-erased (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))) (vector 1 ) (vector 11 (CoreC-45FC-emptyFC))) (vector 3 (CoreC-45FC-emptyFC) (vector 1 "b") (vector 2 (CoreC-45FC-emptyFC) (AlgebraC-45Semiring-erased (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))) (vector 1 ) (vector 11 (CoreC-45FC-emptyFC))) (vector 3 (CoreC-45FC-emptyFC) (vector 1 "x") (vector 2 (CoreC-45FC-emptyFC) (AlgebraC-45ZeroOneOmega-u--top_Top_ZeroOneOmega) (vector 1 ) (vector 0 (CoreC-45FC-emptyFC) (vector 0 ) (+ 1 0))) (vector 0 (CoreC-45FC-emptyFC) (vector 0 ) (+ 1 0))))))) -(define CoreC-45Primitives-believeMe (lambda (arg-1) (let ((sc0 arg-1)) (let ((e-3 (cdr sc0))) (let ((sc1 e-3)) (let ((e-7 (cdr sc1))) (let ((sc2 e-7)) (let ((e-10 (car sc2))) (let ((e-11 (cdr sc2))) (let ((sc3 e-10)) (case (vector-ref sc3 0) ((2) (let ((sc4 e-11)) (if (null? sc4) (vector 1 e-10) (let ((sc5 e-11)) (vector 0 ))))) ((3) (let ((sc4 e-11)) (if (null? sc4) (vector 1 e-10) (let ((sc5 e-11)) (vector 0 ))))) ((8) (let ((sc4 e-11)) (if (null? sc4) (vector 1 e-10) (let ((sc5 e-11)) (vector 0 ))))) ((10) (let ((e-29 (vector-ref sc3 1))) (let ((sc4 e-11)) (if (null? sc4) (vector 1 (vector 10 e-29)) (let ((sc5 e-11)) (vector 0 ))))))(else (let ((sc3 e-11)) (vector 0 )))))))))))))) -(define CoreC-45Primitives-band (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) (let ((e-10 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 0 (blodwen-and e-0 e-10)))))(else (vector 0 )))))) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) (let ((e-11 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 1 (blodwen-and e-1 e-11)))))(else (vector 0 )))))) ((2) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((2) (let ((e-12 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 2 (blodwen-and e-2 e-12)))))(else (vector 0 )))))) ((3) (let ((e-3 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((3) (let ((e-13 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 3 (blodwen-and e-3 e-13)))))(else (vector 0 )))))) ((4) (let ((e-4 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((4) (let ((e-14 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 4 (blodwen-and e-4 e-14)))))(else (vector 0 )))))) ((5) (let ((e-5 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((5) (let ((e-15 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 5 (blodwen-and e-5 e-15)))))(else (vector 0 )))))) ((6) (let ((e-6 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((6) (let ((e-16 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 6 (blodwen-and e-6 e-16)))))(else (vector 0 )))))) ((7) (let ((e-7 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((7) (let ((e-17 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 7 (blodwen-and e-7 e-17)))))(else (vector 0 )))))) ((8) (let ((e-8 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((8) (let ((e-18 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 8 (blodwen-and e-8 e-18)))))(else (vector 0 )))))) ((9) (let ((e-9 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((9) (let ((e-19 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 9 (blodwen-and e-9 e-19)))))(else (vector 0 ))))))(else (vector 0 )))))) +(define CoreC-45Primitives-castTo (lambda (arg-1 ext-0) (case (vector-ref arg-1 0) ((14) (CoreC-45Primitives-castInt ext-0)) ((15) (CoreC-45Primitives-castInt8 ext-0)) ((16) (CoreC-45Primitives-castInt16 ext-0)) ((17) (CoreC-45Primitives-castInt32 ext-0)) ((18) (CoreC-45Primitives-castInt64 ext-0)) ((19) (CoreC-45Primitives-castInteger ext-0)) ((20) (CoreC-45Primitives-castBits8 ext-0)) ((21) (CoreC-45Primitives-castBits16 ext-0)) ((22) (CoreC-45Primitives-castBits32 ext-0)) ((23) (CoreC-45Primitives-castBits64 ext-0)) ((24) (CoreC-45Primitives-castString ext-0)) ((25) (CoreC-45Primitives-castChar ext-0)) ((26) (CoreC-45Primitives-castDouble ext-0))(else '())))) +(define CoreC-45Primitives-castString (lambda (arg-1) (if (null? arg-1) '() (let ((e-2 (car arg-1))) (let ((e-3 (cdr arg-1))) (case (vector-ref e-2 0) ((8) (let ((e-5 (vector-ref e-2 1))) (let ((e-6 (vector-ref e-2 2))) (case (vector-ref e-6 0) ((0) (let ((e-7 (vector-ref e-6 1))) (if (null? e-3) (box (vector 8 e-5 (vector 10 (PreludeC-45Show-u--show_Show_Int e-7)))) '()))) ((1) (let ((e-8 (vector-ref e-6 1))) (if (null? e-3) (box (vector 8 e-5 (vector 10 (PreludeC-45Show-u--show_Show_Integer e-8)))) '()))) ((2) (let ((e-9 (vector-ref e-6 1))) (if (null? e-3) (box (vector 8 e-5 (vector 10 (PreludeC-45Show-u--show_Show_Integer e-9)))) '()))) ((3) (let ((e-10 (vector-ref e-6 1))) (if (null? e-3) (box (vector 8 e-5 (vector 10 (PreludeC-45Show-u--show_Show_Integer e-10)))) '()))) ((4) (let ((e-11 (vector-ref e-6 1))) (if (null? e-3) (box (vector 8 e-5 (vector 10 (PreludeC-45Show-u--show_Show_Integer e-11)))) '()))) ((5) (let ((e-12 (vector-ref e-6 1))) (if (null? e-3) (box (vector 8 e-5 (vector 10 (PreludeC-45Show-u--show_Show_Integer e-12)))) '()))) ((6) (let ((e-13 (vector-ref e-6 1))) (if (null? e-3) (box (vector 8 e-5 (vector 10 (PreludeC-45Show-u--show_Show_Int e-13)))) '()))) ((7) (let ((e-14 (vector-ref e-6 1))) (if (null? e-3) (box (vector 8 e-5 (vector 10 (PreludeC-45Show-u--show_Show_Int e-14)))) '()))) ((8) (let ((e-15 (vector-ref e-6 1))) (if (null? e-3) (box (vector 8 e-5 (vector 10 (PreludeC-45Show-u--show_Show_Int e-15)))) '()))) ((9) (let ((e-16 (vector-ref e-6 1))) (if (null? e-3) (box (vector 8 e-5 (vector 10 (PreludeC-45Show-u--show_Show_Integer e-16)))) '()))) ((11) (let ((e-17 (vector-ref e-6 1))) (if (null? e-3) (box (vector 8 e-5 (vector 10 (LibrariesC-45UtilsC-45String-stripQuotes (PreludeC-45Show-u--show_Show_Char e-17))))) '()))) ((12) (let ((e-18 (vector-ref e-6 1))) (if (null? e-3) (box (vector 8 e-5 (vector 10 (PreludeC-45Show-u--show_Show_Double e-18)))) '())))(else '())))))(else '()))))))) +(define CoreC-45Primitives-castInteger (lambda (arg-1) (if (null? arg-1) '() (let ((e-2 (car arg-1))) (let ((e-3 (cdr arg-1))) (case (vector-ref e-2 0) ((8) (let ((e-5 (vector-ref e-2 1))) (let ((e-6 (vector-ref e-2 2))) (case (vector-ref e-6 0) ((0) (let ((e-7 (vector-ref e-6 1))) (if (null? e-3) (box (vector 8 e-5 (vector 5 (PreludeC-45Cast-u--cast_Cast_Int_Integer e-7)))) '()))) ((1) (let ((e-8 (vector-ref e-6 1))) (if (null? e-3) (box (vector 8 e-5 (vector 5 e-8))) '()))) ((2) (let ((e-9 (vector-ref e-6 1))) (if (null? e-3) (box (vector 8 e-5 (vector 5 e-9))) '()))) ((3) (let ((e-10 (vector-ref e-6 1))) (if (null? e-3) (box (vector 8 e-5 (vector 5 e-10))) '()))) ((4) (let ((e-11 (vector-ref e-6 1))) (if (null? e-3) (box (vector 8 e-5 (vector 5 e-11))) '()))) ((6) (let ((e-12 (vector-ref e-6 1))) (if (null? e-3) (box (vector 8 e-5 (vector 5 (PreludeC-45Cast-u--cast_Cast_Int_Integer e-12)))) '()))) ((7) (let ((e-13 (vector-ref e-6 1))) (if (null? e-3) (box (vector 8 e-5 (vector 5 (PreludeC-45Cast-u--cast_Cast_Int_Integer e-13)))) '()))) ((8) (let ((e-14 (vector-ref e-6 1))) (if (null? e-3) (box (vector 8 e-5 (vector 5 (PreludeC-45Cast-u--cast_Cast_Int_Integer e-14)))) '()))) ((9) (let ((e-15 (vector-ref e-6 1))) (if (null? e-3) (box (vector 8 e-5 (vector 5 e-15))) '()))) ((11) (let ((e-16 (vector-ref e-6 1))) (if (null? e-3) (box (vector 8 e-5 (vector 5 (PreludeC-45Cast-u--cast_Cast_Int_Integer (PreludeC-45Cast-u--cast_Cast_Char_Int e-16))))) '()))) ((12) (let ((e-17 (vector-ref e-6 1))) (if (null? e-3) (box (vector 8 e-5 (vector 5 (PreludeC-45Cast-u--cast_Cast_Double_Integer e-17)))) '()))) ((10) (let ((e-18 (vector-ref e-6 1))) (if (null? e-3) (box (vector 8 e-5 (vector 5 (PreludeC-45Cast-u--cast_Cast_String_Integer e-18)))) '())))(else '())))))(else '()))))))) +(define CoreC-45Primitives-castInt8 (lambda (arg-1) (if (null? arg-1) '() (let ((e-2 (car arg-1))) (let ((e-3 (cdr arg-1))) (case (vector-ref e-2 0) ((8) (let ((e-5 (vector-ref e-2 1))) (let ((e-6 (vector-ref e-2 2))) (if (null? e-3) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Primitives-constantIntegerValue e-6) (lambda (u--value) (let ((u--wrapped (CoreC-45Primitives-int8CastWrap u--value))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 8 e-5 (vector 1 u--wrapped)))))) '()))))(else '()))))))) +(define CoreC-45Primitives-castInt64 (lambda (arg-1) (if (null? arg-1) '() (let ((e-2 (car arg-1))) (let ((e-3 (cdr arg-1))) (case (vector-ref e-2 0) ((8) (let ((e-5 (vector-ref e-2 1))) (let ((e-6 (vector-ref e-2 2))) (if (null? e-3) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Primitives-constantIntegerValue e-6) (lambda (u--value) (let ((u--wrapped (CoreC-45Primitives-int64CastWrap u--value))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 8 e-5 (vector 4 u--wrapped)))))) '()))))(else '()))))))) +(define CoreC-45Primitives-castInt32 (lambda (arg-1) (if (null? arg-1) '() (let ((e-2 (car arg-1))) (let ((e-3 (cdr arg-1))) (case (vector-ref e-2 0) ((8) (let ((e-5 (vector-ref e-2 1))) (let ((e-6 (vector-ref e-2 2))) (if (null? e-3) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Primitives-constantIntegerValue e-6) (lambda (u--value) (let ((u--wrapped (CoreC-45Primitives-int32CastWrap u--value))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 8 e-5 (vector 3 u--wrapped)))))) '()))))(else '()))))))) +(define CoreC-45Primitives-castInt16 (lambda (arg-1) (if (null? arg-1) '() (let ((e-2 (car arg-1))) (let ((e-3 (cdr arg-1))) (case (vector-ref e-2 0) ((8) (let ((e-5 (vector-ref e-2 1))) (let ((e-6 (vector-ref e-2 2))) (if (null? e-3) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Primitives-constantIntegerValue e-6) (lambda (u--value) (let ((u--wrapped (CoreC-45Primitives-int16CastWrap u--value))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 8 e-5 (vector 2 u--wrapped)))))) '()))))(else '()))))))) +(define CoreC-45Primitives-castInt (lambda (arg-1) (if (null? arg-1) '() (let ((e-2 (car arg-1))) (let ((e-3 (cdr arg-1))) (case (vector-ref e-2 0) ((8) (let ((e-5 (vector-ref e-2 1))) (let ((e-6 (vector-ref e-2 2))) (case (vector-ref e-6 0) ((1) (let ((e-7 (vector-ref e-6 1))) (if (null? e-3) (box (vector 8 e-5 (vector 0 (blodwen-toSignedInt e-7 63)))) '()))) ((2) (let ((e-8 (vector-ref e-6 1))) (if (null? e-3) (box (vector 8 e-5 (vector 0 (blodwen-toSignedInt e-8 63)))) '()))) ((3) (let ((e-9 (vector-ref e-6 1))) (if (null? e-3) (box (vector 8 e-5 (vector 0 (blodwen-toSignedInt e-9 63)))) '()))) ((4) (let ((e-10 (vector-ref e-6 1))) (if (null? e-3) (box (vector 8 e-5 (vector 0 (blodwen-toSignedInt e-10 63)))) '()))) ((5) (let ((e-11 (vector-ref e-6 1))) (if (null? e-3) (box (vector 8 e-5 (vector 0 (blodwen-toSignedInt e-11 63)))) '()))) ((6) (let ((e-12 (vector-ref e-6 1))) (if (null? e-3) (box (vector 8 e-5 (vector 0 e-12))) '()))) ((7) (let ((e-13 (vector-ref e-6 1))) (if (null? e-3) (box (vector 8 e-5 (vector 0 e-13))) '()))) ((8) (let ((e-14 (vector-ref e-6 1))) (if (null? e-3) (box (vector 8 e-5 (vector 0 e-14))) '()))) ((9) (let ((e-15 (vector-ref e-6 1))) (if (null? e-3) (box (vector 8 e-5 (vector 0 (blodwen-toSignedInt e-15 63)))) '()))) ((12) (let ((e-16 (vector-ref e-6 1))) (if (null? e-3) (box (vector 8 e-5 (vector 0 (PreludeC-45Cast-u--cast_Cast_Double_Int e-16)))) '()))) ((11) (let ((e-17 (vector-ref e-6 1))) (if (null? e-3) (box (vector 8 e-5 (vector 0 (PreludeC-45Cast-u--cast_Cast_Char_Int e-17)))) '()))) ((10) (let ((e-18 (vector-ref e-6 1))) (if (null? e-3) (box (vector 8 e-5 (vector 0 (PreludeC-45Cast-u--cast_Cast_String_Int e-18)))) '())))(else '())))))(else '()))))))) +(define CoreC-45Primitives-castDouble (lambda (arg-1) (if (null? arg-1) '() (let ((e-2 (car arg-1))) (let ((e-3 (cdr arg-1))) (case (vector-ref e-2 0) ((8) (let ((e-5 (vector-ref e-2 1))) (let ((e-6 (vector-ref e-2 2))) (case (vector-ref e-6 0) ((0) (let ((e-7 (vector-ref e-6 1))) (if (null? e-3) (box (vector 8 e-5 (vector 12 (PreludeC-45Cast-u--cast_Cast_Int_Double e-7)))) '()))) ((1) (let ((e-8 (vector-ref e-6 1))) (if (null? e-3) (box (vector 8 e-5 (vector 12 (PreludeC-45Cast-u--cast_Cast_Integer_Double e-8)))) '()))) ((2) (let ((e-9 (vector-ref e-6 1))) (if (null? e-3) (box (vector 8 e-5 (vector 12 (PreludeC-45Cast-u--cast_Cast_Integer_Double e-9)))) '()))) ((3) (let ((e-10 (vector-ref e-6 1))) (if (null? e-3) (box (vector 8 e-5 (vector 12 (PreludeC-45Cast-u--cast_Cast_Integer_Double e-10)))) '()))) ((4) (let ((e-11 (vector-ref e-6 1))) (if (null? e-3) (box (vector 8 e-5 (vector 12 (PreludeC-45Cast-u--cast_Cast_Integer_Double e-11)))) '()))) ((5) (let ((e-12 (vector-ref e-6 1))) (if (null? e-3) (box (vector 8 e-5 (vector 12 (PreludeC-45Cast-u--cast_Cast_Integer_Double e-12)))) '()))) ((10) (let ((e-13 (vector-ref e-6 1))) (if (null? e-3) (box (vector 8 e-5 (vector 12 (PreludeC-45Cast-u--cast_Cast_String_Double e-13)))) '())))(else '())))))(else '()))))))) +(define CoreC-45Primitives-castChar (lambda (arg-1) (if (null? arg-1) '() (let ((e-2 (car arg-1))) (let ((e-3 (cdr arg-1))) (case (vector-ref e-2 0) ((8) (let ((e-5 (vector-ref e-2 1))) (let ((e-6 (vector-ref e-2 2))) (case (vector-ref e-6 0) ((0) (let ((e-7 (vector-ref e-6 1))) (if (null? e-3) (box (vector 8 e-5 (vector 11 (PreludeC-45Cast-u--cast_Cast_Int_Char e-7)))) '())))(else '())))))(else '()))))))) +(define CoreC-45Primitives-castBits8 (lambda (arg-1) (if (null? arg-1) '() (let ((e-2 (car arg-1))) (let ((e-3 (cdr arg-1))) (case (vector-ref e-2 0) ((8) (let ((e-5 (vector-ref e-2 1))) (let ((e-6 (vector-ref e-2 2))) (if (null? e-3) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Primitives-constantIntegerValue e-6) (lambda (u--value) (let ((u--wrapped (CoreC-45Primitives-bitCastWrap u--value (PreludeC-45Cast-u--cast_Cast_Int_Integer (CoreC-45Primitives-b8max))))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 8 e-5 (vector 6 (PreludeC-45Cast-u--cast_Cast_Integer_Int u--wrapped))))))) '()))))(else '()))))))) +(define CoreC-45Primitives-castBits64 (lambda (arg-1) (if (null? arg-1) '() (let ((e-2 (car arg-1))) (let ((e-3 (cdr arg-1))) (case (vector-ref e-2 0) ((8) (let ((e-5 (vector-ref e-2 1))) (let ((e-6 (vector-ref e-2 2))) (if (null? e-3) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Primitives-constantIntegerValue e-6) (lambda (u--value) (let ((u--wrapped (CoreC-45Primitives-bitCastWrap u--value (CoreC-45Primitives-b64max)))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 8 e-5 (vector 9 u--wrapped)))))) '()))))(else '()))))))) +(define CoreC-45Primitives-castBits32 (lambda (arg-1) (if (null? arg-1) '() (let ((e-2 (car arg-1))) (let ((e-3 (cdr arg-1))) (case (vector-ref e-2 0) ((8) (let ((e-5 (vector-ref e-2 1))) (let ((e-6 (vector-ref e-2 2))) (if (null? e-3) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Primitives-constantIntegerValue e-6) (lambda (u--value) (let ((u--wrapped (CoreC-45Primitives-bitCastWrap u--value (PreludeC-45Cast-u--cast_Cast_Int_Integer (CoreC-45Primitives-b32max))))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 8 e-5 (vector 8 (PreludeC-45Cast-u--cast_Cast_Integer_Int u--wrapped))))))) '()))))(else '()))))))) +(define CoreC-45Primitives-castBits16 (lambda (arg-1) (if (null? arg-1) '() (let ((e-2 (car arg-1))) (let ((e-3 (cdr arg-1))) (case (vector-ref e-2 0) ((8) (let ((e-5 (vector-ref e-2 1))) (let ((e-6 (vector-ref e-2 2))) (if (null? e-3) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Primitives-constantIntegerValue e-6) (lambda (u--value) (let ((u--wrapped (CoreC-45Primitives-bitCastWrap u--value (PreludeC-45Cast-u--cast_Cast_Int_Integer (CoreC-45Primitives-b16max))))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 8 e-5 (vector 7 (PreludeC-45Cast-u--cast_Cast_Integer_Int u--wrapped))))))) '()))))(else '()))))))) +(define CoreC-45Primitives-bxor (lambda (arg-0 arg-1) (case (vector-ref arg-0 0) ((0) (let ((e-0 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((0) (let ((e-4 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 0 (blodwen-xor e-0 e-4)))))(else '())))) ((6) (let ((e-1 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((6) (let ((e-5 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 6 (blodwen-xor e-1 e-5)))))(else '())))) ((7) (let ((e-2 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((7) (let ((e-6 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 7 (blodwen-xor e-2 e-6)))))(else '())))) ((8) (let ((e-3 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((8) (let ((e-7 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 8 (blodwen-xor e-3 e-7)))))(else '()))))(else '())))) +(define CoreC-45Primitives-bor (lambda (arg-0 arg-1) (case (vector-ref arg-0 0) ((0) (let ((e-0 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((0) (let ((e-10 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 0 (blodwen-or e-0 e-10)))))(else '())))) ((1) (let ((e-1 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((1) (let ((e-11 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 1 (blodwen-or e-1 e-11)))))(else '())))) ((2) (let ((e-2 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((2) (let ((e-12 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 2 (blodwen-or e-2 e-12)))))(else '())))) ((3) (let ((e-3 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((3) (let ((e-13 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 3 (blodwen-or e-3 e-13)))))(else '())))) ((4) (let ((e-4 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((4) (let ((e-14 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 4 (blodwen-or e-4 e-14)))))(else '())))) ((5) (let ((e-5 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((5) (let ((e-15 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 5 (blodwen-or e-5 e-15)))))(else '())))) ((6) (let ((e-6 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((6) (let ((e-16 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 6 (blodwen-or e-6 e-16)))))(else '())))) ((7) (let ((e-7 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((7) (let ((e-17 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 7 (blodwen-or e-7 e-17)))))(else '())))) ((8) (let ((e-8 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((8) (let ((e-18 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 8 (blodwen-or e-8 e-18)))))(else '())))) ((9) (let ((e-9 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((9) (let ((e-19 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 9 (blodwen-or e-9 e-19)))))(else '()))))(else '())))) +(define CoreC-45Primitives-bitCastWrap (lambda (arg-0 arg-1) (let ((sc0 (PreludeC-45EqOrd-u--C-62C-61_Ord_Integer arg-0 0))) (cond ((equal? sc0 1) (PreludeC-45Num-u--mod_Integral_Integer arg-0 arg-1)) (else (+ arg-1 (PreludeC-45Num-u--mod_Integral_Integer arg-0 arg-1))))))) +(define CoreC-45Primitives-binOp (lambda (arg-0 arg-1 arg-2) (if (null? arg-2) '() (let ((e-2 (car arg-2))) (let ((e-3 (cdr arg-2))) (case (vector-ref e-2 0) ((8) (let ((e-5 (vector-ref e-2 1))) (let ((e-6 (vector-ref e-2 2))) (if (null? e-3) '() (let ((e-9 (car e-3))) (let ((e-10 (cdr e-3))) (case (vector-ref e-9 0) ((8) (let ((e-13 (vector-ref e-9 2))) (if (null? e-10) (PreludeC-45Types-u--map_Functor_Maybe (lambda (eta-0) (vector 8 e-5 eta-0)) ((arg-0 e-6) e-13)) '())))(else '()))))))))(else '()))))))) +(define CoreC-45Primitives-believeMeTy (lambda () (vector 3 (CoreC-45FC-emptyFC) (vector 1 "a") (vector 2 (CoreC-45FC-emptyFC) (AlgebraC-45Semiring-erased (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))) (vector 1 ) (vector 11 (CoreC-45FC-emptyFC))) (vector 3 (CoreC-45FC-emptyFC) (vector 1 "b") (vector 2 (CoreC-45FC-emptyFC) (AlgebraC-45Semiring-erased (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))) (vector 1 ) (vector 11 (CoreC-45FC-emptyFC))) (vector 3 (CoreC-45FC-emptyFC) (vector 1 "x") (vector 2 (CoreC-45FC-emptyFC) (AlgebraC-45ZeroOneOmega-u--top_Top_ZeroOneOmega) (vector 1 ) (vector 0 (CoreC-45FC-emptyFC) '() (+ 1 0))) (vector 0 (CoreC-45FC-emptyFC) '() (+ 1 0))))))) +(define CoreC-45Primitives-believeMe (lambda (arg-1) (let ((e-3 (cdr arg-1))) (let ((e-7 (cdr e-3))) (let ((e-10 (car e-7))) (let ((e-11 (cdr e-7))) (case (vector-ref e-10 0) ((2) (if (null? e-11) (box e-10) '())) ((3) (if (null? e-11) (box e-10) '())) ((8) (if (null? e-11) (box e-10) '())) ((10) (let ((e-29 (vector-ref e-10 1))) (if (null? e-11) (box (vector 10 e-29)) '())))(else '())))))))) +(define CoreC-45Primitives-band (lambda (arg-0 arg-1) (case (vector-ref arg-0 0) ((0) (let ((e-0 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((0) (let ((e-10 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 0 (blodwen-and e-0 e-10)))))(else '())))) ((1) (let ((e-1 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((1) (let ((e-11 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 1 (blodwen-and e-1 e-11)))))(else '())))) ((2) (let ((e-2 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((2) (let ((e-12 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 2 (blodwen-and e-2 e-12)))))(else '())))) ((3) (let ((e-3 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((3) (let ((e-13 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 3 (blodwen-and e-3 e-13)))))(else '())))) ((4) (let ((e-4 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((4) (let ((e-14 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 4 (blodwen-and e-4 e-14)))))(else '())))) ((5) (let ((e-5 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((5) (let ((e-15 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 5 (blodwen-and e-5 e-15)))))(else '())))) ((6) (let ((e-6 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((6) (let ((e-16 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 6 (blodwen-and e-6 e-16)))))(else '())))) ((7) (let ((e-7 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((7) (let ((e-17 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 7 (blodwen-and e-7 e-17)))))(else '())))) ((8) (let ((e-8 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((8) (let ((e-18 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 8 (blodwen-and e-8 e-18)))))(else '())))) ((9) (let ((e-9 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((9) (let ((e-19 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 9 (blodwen-and e-9 e-19)))))(else '()))))(else '())))) (define CoreC-45Primitives-b8max (lambda () (blodwen-toSignedInt 256 63))) (define CoreC-45Primitives-b64max (lambda () 18446744073709551616)) (define CoreC-45Primitives-b32max (lambda () (blodwen-toSignedInt 4294967296 63))) (define CoreC-45Primitives-b16max (lambda () (blodwen-toSignedInt 65536 63))) (define CoreC-45Primitives-arithTy (lambda (arg-0) (CoreC-45Primitives-constTy arg-0 arg-0 arg-0))) -(define CoreC-45Primitives-allPrimitives (lambda () (PreludeC-45TypesC-45List-C-43C-43 (PreludeC-45Types-u--map_Functor_List (lambda (u--t) (vector 0 (+ 1 (+ 1 0)) (vector 0 u--t) (CoreC-45Primitives-arithTy u--t) (CoreC-45TT-isTotal))) (CoreC-45Primitives-numTypes)) (PreludeC-45TypesC-45List-C-43C-43 (PreludeC-45Types-u--map_Functor_List (lambda (u--t) (vector 0 (+ 1 (+ 1 0)) (vector 1 u--t) (CoreC-45Primitives-arithTy u--t) (CoreC-45TT-isTotal))) (CoreC-45Primitives-numTypes)) (PreludeC-45TypesC-45List-C-43C-43 (PreludeC-45Types-u--map_Functor_List (lambda (u--t) (vector 0 (+ 1 (+ 1 0)) (vector 2 u--t) (CoreC-45Primitives-arithTy u--t) (CoreC-45TT-isTotal))) (CoreC-45Primitives-numTypes)) (PreludeC-45TypesC-45List-C-43C-43 (PreludeC-45Types-u--map_Functor_List (lambda (u--t) (vector 0 (+ 1 0) (vector 5 u--t) (CoreC-45Primitives-predTy u--t u--t) (CoreC-45TT-isTotal))) (CoreC-45Primitives-numTypes)) (PreludeC-45TypesC-45List-C-43C-43 (PreludeC-45Types-u--map_Functor_List (lambda (u--t) (vector 0 (+ 1 (+ 1 0)) (vector 3 u--t) (CoreC-45Primitives-arithTy u--t) (CoreC-45TT-notCovering))) (CoreC-45Primitives-numTypes)) (PreludeC-45TypesC-45List-C-43C-43 (PreludeC-45Types-u--map_Functor_List (lambda (u--t) (vector 0 (+ 1 (+ 1 0)) (vector 4 u--t) (CoreC-45Primitives-arithTy u--t) (CoreC-45TT-notCovering))) (CoreC-45Primitives-integralTypes)) (PreludeC-45TypesC-45List-C-43C-43 (PreludeC-45Types-u--map_Functor_List (lambda (u--t) (vector 0 (+ 1 (+ 1 0)) (vector 6 u--t) (CoreC-45Primitives-arithTy u--t) (CoreC-45TT-isTotal))) (CoreC-45Primitives-integralTypes)) (PreludeC-45TypesC-45List-C-43C-43 (PreludeC-45Types-u--map_Functor_List (lambda (u--t) (vector 0 (+ 1 (+ 1 0)) (vector 7 u--t) (CoreC-45Primitives-arithTy u--t) (CoreC-45TT-isTotal))) (CoreC-45Primitives-integralTypes)) (PreludeC-45TypesC-45List-C-43C-43 (PreludeC-45Types-u--map_Functor_List (lambda (u--t) (vector 0 (+ 1 (+ 1 0)) (vector 8 u--t) (CoreC-45Primitives-arithTy u--t) (CoreC-45TT-isTotal))) (CoreC-45Primitives-integralTypes)) (PreludeC-45TypesC-45List-C-43C-43 (PreludeC-45Types-u--map_Functor_List (lambda (u--t) (vector 0 (+ 1 (+ 1 0)) (vector 9 u--t) (CoreC-45Primitives-arithTy u--t) (CoreC-45TT-isTotal))) (CoreC-45Primitives-integralTypes)) (PreludeC-45TypesC-45List-C-43C-43 (PreludeC-45Types-u--map_Functor_List (lambda (u--t) (vector 0 (+ 1 (+ 1 0)) (vector 10 u--t) (CoreC-45Primitives-arithTy u--t) (CoreC-45TT-isTotal))) (CoreC-45Primitives-integralTypes)) (PreludeC-45TypesC-45List-C-43C-43 (PreludeC-45Types-u--map_Functor_List (lambda (u--t) (vector 0 (+ 1 (+ 1 0)) (vector 11 u--t) (CoreC-45Primitives-cmpTy u--t) (CoreC-45TT-isTotal))) (CoreC-45Primitives-primTypes)) (PreludeC-45TypesC-45List-C-43C-43 (PreludeC-45Types-u--map_Functor_List (lambda (u--t) (vector 0 (+ 1 (+ 1 0)) (vector 12 u--t) (CoreC-45Primitives-cmpTy u--t) (CoreC-45TT-isTotal))) (CoreC-45Primitives-primTypes)) (PreludeC-45TypesC-45List-C-43C-43 (PreludeC-45Types-u--map_Functor_List (lambda (u--t) (vector 0 (+ 1 (+ 1 0)) (vector 13 u--t) (CoreC-45Primitives-cmpTy u--t) (CoreC-45TT-isTotal))) (CoreC-45Primitives-primTypes)) (PreludeC-45TypesC-45List-C-43C-43 (PreludeC-45Types-u--map_Functor_List (lambda (u--t) (vector 0 (+ 1 (+ 1 0)) (vector 14 u--t) (CoreC-45Primitives-cmpTy u--t) (CoreC-45TT-isTotal))) (CoreC-45Primitives-primTypes)) (PreludeC-45TypesC-45List-C-43C-43 (PreludeC-45Types-u--map_Functor_List (lambda (u--t) (vector 0 (+ 1 (+ 1 0)) (vector 15 u--t) (CoreC-45Primitives-cmpTy u--t) (CoreC-45TT-isTotal))) (CoreC-45Primitives-primTypes)) (PreludeC-45TypesC-45List-C-43C-43 (cons (vector 0 (+ 1 0) (vector 16 ) (CoreC-45Primitives-predTy (vector 24 ) (vector 14 )) (CoreC-45TT-isTotal)) (cons (vector 0 (+ 1 0) (vector 17 ) (CoreC-45Primitives-predTy (vector 24 ) (vector 25 )) (CoreC-45TT-notCovering)) (cons (vector 0 (+ 1 0) (vector 18 ) (CoreC-45Primitives-predTy (vector 24 ) (vector 24 )) (CoreC-45TT-notCovering)) (cons (vector 0 (+ 1 (+ 1 0)) (vector 19 ) (CoreC-45Primitives-constTy (vector 24 ) (vector 14 ) (vector 25 )) (CoreC-45TT-notCovering)) (cons (vector 0 (+ 1 (+ 1 0)) (vector 20 ) (CoreC-45Primitives-constTy (vector 25 ) (vector 24 ) (vector 24 )) (CoreC-45TT-isTotal)) (cons (vector 0 (+ 1 (+ 1 0)) (vector 21 ) (CoreC-45Primitives-arithTy (vector 24 )) (CoreC-45TT-isTotal)) (cons (vector 0 (+ 1 0) (vector 22 ) (CoreC-45Primitives-predTy (vector 24 ) (vector 24 )) (CoreC-45TT-isTotal)) (cons (vector 0 (+ 1 (+ 1 (+ 1 0))) (vector 23 ) (CoreC-45Primitives-constTy3 (vector 14 ) (vector 14 ) (vector 24 ) (vector 24 )) (CoreC-45TT-isTotal)) (cons (vector 0 (+ 1 (+ 1 (+ 1 0))) (vector 36 ) (CoreC-45Primitives-believeMeTy) (CoreC-45TT-isTotal)) (cons (vector 0 (+ 1 (+ 1 0)) (vector 37 ) (CoreC-45Primitives-crashTy) (CoreC-45TT-notCovering)) '())))))))))) (PreludeC-45TypesC-45List-C-43C-43 (cons (vector 0 (+ 1 0) (vector 24 ) (CoreC-45Primitives-doubleTy) (CoreC-45TT-isTotal)) (cons (vector 0 (+ 1 0) (vector 25 ) (CoreC-45Primitives-doubleTy) (CoreC-45TT-isTotal)) (cons (vector 0 (+ 1 0) (vector 26 ) (CoreC-45Primitives-doubleTy) (CoreC-45TT-isTotal)) (cons (vector 0 (+ 1 0) (vector 27 ) (CoreC-45Primitives-doubleTy) (CoreC-45TT-isTotal)) (cons (vector 0 (+ 1 0) (vector 28 ) (CoreC-45Primitives-doubleTy) (CoreC-45TT-isTotal)) (cons (vector 0 (+ 1 0) (vector 29 ) (CoreC-45Primitives-doubleTy) (CoreC-45TT-isTotal)) (cons (vector 0 (+ 1 0) (vector 30 ) (CoreC-45Primitives-doubleTy) (CoreC-45TT-isTotal)) (cons (vector 0 (+ 1 0) (vector 31 ) (CoreC-45Primitives-doubleTy) (CoreC-45TT-isTotal)) (cons (vector 0 (+ 1 0) (vector 32 ) (CoreC-45Primitives-doubleTy) (CoreC-45TT-isTotal)) (cons (vector 0 (+ 1 0) (vector 33 ) (CoreC-45Primitives-doubleTy) (CoreC-45TT-isTotal)) (cons (vector 0 (+ 1 0) (vector 34 ) (CoreC-45Primitives-doubleTy) (CoreC-45TT-isTotal)) '()))))))))))) (PreludeC-45Types-u--C-62C-62C-61_Monad_List (CoreC-45Primitives-primTypes) (lambda (u--t1) (PreludeC-45Types-u--C-62C-62C-61_Monad_List (CoreC-45Primitives-primTypes) (lambda (u--t2) (PreludeC-45Interfaces-C-62C-62 (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (PreludeC-45Types-u--map_Functor_List u--func arg-143))))) (lambda (u--a) (lambda (arg-577) (PreludeC-45Types-u--pure_Applicative_List arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (PreludeC-45Types-u--C-60C-42C-62_Applicative_List arg-578 arg-580)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (PreludeC-45Types-u--C-62C-62C-61_Monad_List arg-876 arg-877))))) (lambda (u--a) (lambda (arg-879) (PreludeC-45Types-u--join_Monad_List arg-879)))) (PreludeC-45Interfaces-guard (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (PreludeC-45Types-u--map_Functor_List u--func arg-143))))) (lambda (u--a) (lambda (arg-577) (PreludeC-45Types-u--pure_Applicative_List arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (PreludeC-45Types-u--C-60C-42C-62_Applicative_List arg-578 arg-580)))))) (lambda (u--a) (PreludeC-45Types-u--empty_Alternative_List)) (lambda (u--a) (lambda (arg-827) (lambda (arg-828) (PreludeC-45Types-u--C-60C-124C-62_Alternative_List arg-827 arg-828))))) (PreludeC-45Basics-C-38C-38 (CoreC-45TT-u--C-47C-61_Eq_Constant u--t1 u--t2) (lambda () (PreludeC-45Basics-C-38C-38 (PreludeC-45EqOrd-u--C-47C-61_Eq_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (arg-2) (lambda (arg-3) (CoreC-45TT-u--C-61C-61_Eq_Constant arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (CoreC-45TT-u--C-47C-61_Eq_Constant arg-4 arg-5)))) (cons (lambda (arg-2) (lambda (arg-3) (CoreC-45TT-u--C-61C-61_Eq_Constant arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (CoreC-45TT-u--C-47C-61_Eq_Constant arg-4 arg-5)))) (cons u--t1 u--t2) (cons (vector 24 ) (vector 25 ))) (lambda () (PreludeC-45Basics-C-38C-38 (PreludeC-45EqOrd-u--C-47C-61_Eq_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (arg-2) (lambda (arg-3) (CoreC-45TT-u--C-61C-61_Eq_Constant arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (CoreC-45TT-u--C-47C-61_Eq_Constant arg-4 arg-5)))) (cons (lambda (arg-2) (lambda (arg-3) (CoreC-45TT-u--C-61C-61_Eq_Constant arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (CoreC-45TT-u--C-47C-61_Eq_Constant arg-4 arg-5)))) (cons u--t1 u--t2) (cons (vector 26 ) (vector 25 ))) (lambda () (PreludeC-45EqOrd-u--C-47C-61_Eq_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (arg-2) (lambda (arg-3) (CoreC-45TT-u--C-61C-61_Eq_Constant arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (CoreC-45TT-u--C-47C-61_Eq_Constant arg-4 arg-5)))) (cons (lambda (arg-2) (lambda (arg-3) (CoreC-45TT-u--C-61C-61_Eq_Constant arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (CoreC-45TT-u--C-47C-61_Eq_Constant arg-4 arg-5)))) (cons u--t1 u--t2) (cons (vector 25 ) (vector 26 )))))))))) (lambda () (PreludeC-45Types-u--pure_Applicative_List (vector 0 (+ 1 0) (vector 35 u--t1 u--t2) (CoreC-45Primitives-predTy u--t1 u--t2) (CoreC-45TT-isTotal))))))))))))))))))))))))))))) -(define CoreC-45Primitives-add (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((5) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((5) (let ((e-12 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 5 (+ e-0 e-12)))))(else (vector 0 )))))) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) (let ((e-13 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 0 (bs+ e-1 e-13 63)))))(else (vector 0 )))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) (let ((e-14 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 1 (CoreC-45Primitives-int8CastWrap (+ e-2 e-14))))))(else (vector 0 )))))) ((2) (let ((e-3 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((2) (let ((e-15 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 2 (CoreC-45Primitives-int16CastWrap (+ e-3 e-15))))))(else (vector 0 )))))) ((3) (let ((e-4 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((3) (let ((e-16 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 3 (CoreC-45Primitives-int32CastWrap (+ e-4 e-16))))))(else (vector 0 )))))) ((4) (let ((e-5 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((4) (let ((e-17 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 4 (CoreC-45Primitives-int64CastWrap (+ e-5 e-17))))))(else (vector 0 )))))) ((6) (let ((e-6 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((6) (let ((e-18 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 6 (PreludeC-45Num-u--mod_Integral_Int (bs+ e-6 e-18 63) (CoreC-45Primitives-b8max))))))(else (vector 0 )))))) ((7) (let ((e-7 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((7) (let ((e-19 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 7 (PreludeC-45Num-u--mod_Integral_Int (bs+ e-7 e-19 63) (CoreC-45Primitives-b16max))))))(else (vector 0 )))))) ((8) (let ((e-8 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((8) (let ((e-20 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 8 (PreludeC-45Num-u--mod_Integral_Int (bs+ e-8 e-20 63) (CoreC-45Primitives-b32max))))))(else (vector 0 )))))) ((9) (let ((e-9 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((9) (let ((e-21 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 9 (PreludeC-45Num-u--mod_Integral_Integer (+ e-9 e-21) (CoreC-45Primitives-b64max))))))(else (vector 0 )))))) ((11) (let ((e-10 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((11) (let ((e-22 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 11 (PreludeC-45Cast-u--cast_Cast_Int_Char (bs+ (PreludeC-45Cast-u--cast_Cast_Char_Int e-10) (PreludeC-45Cast-u--cast_Cast_Char_Int e-22) 63))))))(else (vector 0 )))))) ((12) (let ((e-11 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((12) (let ((e-23 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 12 (PreludeC-45Num-u--C-43_Num_Double e-11 e-23)))))(else (vector 0 ))))))(else (vector 0 )))))) -(define CoreC-45ContextC-45Log-case--logC-1056 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (let ((act-24 (arg-0 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((PreludeC-45IO-putStrLn (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-0)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-0) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (let ((act-17 (arg-578 eta-0))) (let ((act-16 (arg-580 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (let ((act-25 (arg-876 eta-0))) ((arg-877 act-25) eta-0))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-0) (let ((act-51 (arg-879 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) (PreludeC-45TypesC-45String-C-43C-43 "LOG " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45OptionsC-45Log-u--show_Show_LogLevel arg-5) (PreludeC-45TypesC-45String-C-43C-43 ": " e-5)))) ext-0))) (vector 1 act-25)))))))) (else (vector 1 (vector 0 ))))))) -(define CoreC-45ContextC-45Log-case--logC-39-998 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (let ((act-24 ((PreludeC-45IO-putStrLn (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-0)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-0) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (let ((act-17 (arg-578 eta-0))) (let ((act-16 (arg-580 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (let ((act-24 (arg-876 eta-0))) ((arg-877 act-24) eta-0))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-0) (let ((act-51 (arg-879 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) (PreludeC-45TypesC-45String-C-43C-43 "LOG " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45OptionsC-45Log-u--show_Show_LogLevel arg-1) (PreludeC-45TypesC-45String-C-43C-43 ": " (arg-0))))) ext-0))) (vector 1 act-24))) (else (vector 1 (vector 0 ))))))) -(define CoreC-45ContextC-45Log-case--logTerm-919 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 ext-0) (let ((sc0 arg-8)) (cond ((equal? sc0 0) (let ((act-24 (CoreC-45Context-toFullNames arg-5 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) arg-1 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((PreludeC-45IO-putStrLn (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-0)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-0) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (let ((act-17 (arg-578 eta-0))) (let ((act-16 (arg-580 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (let ((act-25 (arg-876 eta-0))) ((arg-877 act-25) eta-0))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-0) (let ((act-51 (arg-879 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) (PreludeC-45TypesC-45String-C-43C-43 "LOG " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45OptionsC-45Log-u--show_Show_LogLevel arg-7) (PreludeC-45TypesC-45String-C-43C-43 ": " (PreludeC-45TypesC-45String-C-43C-43 (arg-2) (PreludeC-45TypesC-45String-C-43C-43 ": " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 e-5))))))) ext-0))) (vector 1 act-25)))))))) (else (vector 1 (vector 0 ))))))) -(define CoreC-45ContextC-45Log-n--7089-1680-u--showTimeLog (lambda (arg-0 arg-1 ext-0) (let ((sc0 arg-1)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-3)) (let ((e-7 (cdr sc1))) (let ((act-24 (let ((act-24 ((PreludeC-45IO-putStr (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-0)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-0) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (let ((act-17 (arg-578 eta-0))) (let ((act-16 (arg-580 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (let ((act-24 (arg-876 eta-0))) ((arg-877 act-24) eta-0))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-0) (let ((act-51 (arg-879 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) (PreludeC-45TypesC-45String-C-43C-43 e-2 ": ")) ext-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((u--nano 1000000000)) (let ((act-25 ((PreludeC-45IO-putStrLn (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-0)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-0) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (let ((act-17 (arg-578 eta-0))) (let ((act-16 (arg-580 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (let ((act-25 (arg-876 eta-0))) ((arg-877 act-25) eta-0))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-0) (let ((act-51 (arg-879 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Integer (PreludeC-45Num-u--div_Integral_Integer e-7 u--nano)) (PreludeC-45TypesC-45String-C-43C-43 "." (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45ContextC-45Log-n--7089-1679-u--addZeros arg-0 (PreludeC-45Types-fastUnpack (PreludeC-45Show-u--show_Show_Integer (PreludeC-45Num-u--div_Integral_Integer (PreludeC-45Num-u--mod_Integral_Integer e-7 u--nano) 1000000)))) "s")))) ext-0))) (vector 1 act-25)))))))))))))) -(define CoreC-45ContextC-45Log-n--7089-1679-u--addZeros (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (if (null? sc0) "000" (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-3)) (if (null? sc1) (PreludeC-45TypesC-45String-C-43C-43 "00" (PreludeC-45Cast-u--cast_Cast_Char_String e-2)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (let ((sc2 e-7)) (if (null? sc2) (PreludeC-45TypesC-45String-C-43C-43 "0" (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Cast-u--cast_Cast_Char_String e-2) (PreludeC-45Cast-u--cast_Cast_Char_String e-6))) (PreludeC-45Types-fastPack arg-1))))))))))))) -(define CoreC-45ContextC-45Log-n--6595-1233-u--addZeros (lambda (arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (if (null? sc0) "000" (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-3)) (if (null? sc1) (PreludeC-45TypesC-45String-C-43C-43 "00" (PreludeC-45Cast-u--cast_Cast_Char_String e-2)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (let ((sc2 e-7)) (if (null? sc2) (PreludeC-45TypesC-45String-C-43C-43 "0" (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Cast-u--cast_Cast_Char_String e-2) (PreludeC-45Cast-u--cast_Cast_Char_String e-6))) (PreludeC-45Types-fastPack arg-5))))))))))))) -(define CoreC-45ContextC-45Log-showTimeRecord (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (CoreC-45Core-traverse_ (lambda (eta-0) (lambda (eta-1) (CoreC-45ContextC-45Log-n--7089-1680-u--showTimeLog arg-0 eta-0 eta-1))) (LibrariesC-45DataC-45StringMap-toList (let ((sc1 e-5)) (let ((e-26 (vector-ref sc1 27))) e-26))) ext-0)))))))) -(define CoreC-45ContextC-45Log-logTimeWhen (lambda (arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 (SystemC-45Clock-clockTime (vector 3 ) eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((u--nano 1000000000)) (let ((u--t (+ (* (SystemC-45Clock-seconds e-5) u--nano) (SystemC-45Clock-nanoseconds e-5)))) (let ((act-25 (arg-4 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (let ((act-26 (SystemC-45Clock-clockTime (vector 3 ) eta-0))) (vector 1 act-26)))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((u--tC-39 (+ (* (SystemC-45Clock-seconds e-7) u--nano) (SystemC-45Clock-nanoseconds e-7)))) (let ((u--time (PreludeC-45Num-u--C-45_Neg_Integer u--tC-39 u--t))) (let ((act-27 (let ((act-27 ((PreludeC-45IO-putStrLn (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-1)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-1) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-1) (let ((act-17 (arg-578 eta-1))) (let ((act-16 (arg-580 eta-1))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-1) (let ((act-27 (arg-876 eta-1))) ((arg-877 act-27) eta-1))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-1) (let ((act-51 (arg-879 eta-1))) (act-51 eta-1)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) (PreludeC-45TypesC-45String-C-43C-43 "TIMING " (PreludeC-45TypesC-45String-C-43C-43 (arg-3) (PreludeC-45TypesC-45String-C-43C-43 ": " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Integer (PreludeC-45Num-u--div_Integral_Integer u--time u--nano)) (PreludeC-45TypesC-45String-C-43C-43 "." (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45ContextC-45Log-n--6595-1233-u--addZeros arg-4 arg-3 arg-2 arg-1 (PreludeC-45Types-fastUnpack (PreludeC-45Show-u--show_Show_Integer (PreludeC-45Num-u--div_Integral_Integer (PreludeC-45Num-u--mod_Integral_Integer u--time u--nano) 1000000)))) "s"))))))) eta-0))) (vector 1 act-27)))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (vector 1 e-6)))))))))))))))))))))))))) (else arg-4))))) -(define CoreC-45ContextC-45Log-logTime (lambda (arg-1 arg-2 arg-3 ext-0) (let ((act-24 (CoreC-45Context-getSession arg-1 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((CoreC-45ContextC-45Log-logTimeWhen arg-1 (let ((sc1 e-5)) (let ((e-7 (vector-ref sc1 8))) e-7)) arg-2 arg-3) ext-0)))))))) -(define CoreC-45ContextC-45Log-logTerm (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (CoreC-45Context-getSession arg-1 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((u--lvl (CoreC-45OptionsC-45Log-mkLogLevel (let ((sc1 e-5)) (let ((e-15 (vector-ref sc1 6))) e-15)) arg-2 arg-3))) (CoreC-45ContextC-45Log-case--logTerm-919 arg-0 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 u--lvl (CoreC-45OptionsC-45Log-keepLog u--lvl (let ((sc1 e-5)) (let ((e-15 (vector-ref sc1 6))) e-15)) (let ((sc1 e-5)) (let ((e-6 (vector-ref sc1 7))) e-6))) ext-0))))))))) -(define CoreC-45ContextC-45Log-logC (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (CoreC-45Context-getSession arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((u--lvl (CoreC-45OptionsC-45Log-mkLogLevel (let ((sc1 e-5)) (let ((e-15 (vector-ref sc1 6))) e-15)) arg-1 arg-2))) (CoreC-45ContextC-45Log-case--logC-1056 arg-3 arg-2 arg-1 arg-0 e-5 u--lvl (CoreC-45OptionsC-45Log-keepLog u--lvl (let ((sc1 e-5)) (let ((e-15 (vector-ref sc1 6))) e-15)) (let ((sc1 e-5)) (let ((e-6 (vector-ref sc1 7))) e-6))) ext-0))))))))) -(define CoreC-45ContextC-45Log-logC-39 (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (CoreC-45Context-getSession arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (CoreC-45ContextC-45Log-case--logC-39-998 arg-2 arg-1 arg-0 e-5 (CoreC-45OptionsC-45Log-keepLog arg-1 (let ((sc1 e-5)) (let ((e-15 (vector-ref sc1 6))) e-15)) (let ((sc1 e-5)) (let ((e-6 (vector-ref sc1 7))) e-6))) ext-0)))))))) -(define CoreC-45ContextC-45Log-log (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (CoreC-45Context-getSession arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((u--lvl (CoreC-45OptionsC-45Log-mkLogLevel (let ((sc1 e-5)) (let ((e-15 (vector-ref sc1 6))) e-15)) arg-1 arg-2))) (CoreC-45ContextC-45Log-logC-39 arg-0 u--lvl arg-3 ext-0))))))))) -(define SystemC-45Clock-with--clockTime-794 (lambda (arg-0 arg-1 ext-0) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((act-24 (SystemC-45Clock-fetchOSClock arg-0 ext-0))) (SystemC-45Clock-fromOSClock arg-0 act-24 ext-0))) (else (let ((act-24 (SystemC-45Clock-fetchOSClock arg-0 ext-0))) (let ((act-25 (PreludeC-45IO-u--map_Functor_IO (lambda (arg-2) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 (blodwen-toSignedInt 1 63))) (lambda (eta-0) (SystemC-45Clock-osClockValid act-24 eta-0)) ext-0))) (let ((sc1 act-25)) (cond ((equal? sc1 0) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (vector 1 eta-0)) (lambda (eta-0) (SystemC-45Clock-fromOSClock arg-0 act-24 eta-0)) ext-0)) (else (vector 0 ))))))))))) -(define SystemC-45Clock-seconds (lambda (arg-1) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 2))) e-1)))) -(define SystemC-45Clock-osClockValid (lambda (arg-0 ext-0) (SystemC-45Clock-prim__osClockValid arg-0 ext-0))) -(define SystemC-45Clock-osClockSecond (lambda (arg-0 ext-0) (SystemC-45Clock-prim__osClockSecond arg-0 ext-0))) -(define SystemC-45Clock-osClockNanosecond (lambda (arg-0 ext-0) (SystemC-45Clock-prim__osClockNanosecond arg-0 ext-0))) -(define SystemC-45Clock-nanoseconds (lambda (arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 3))) e-2)))) -(define SystemC-45Clock-isClockMandatory (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((5) (vector 1 )) ((6) (vector 1 ))(else (vector 0 )))))) -(define SystemC-45Clock-fromOSClock (lambda (arg-0 arg-1 ext-0) (let ((act-24 (SystemC-45Clock-osClockSecond arg-1 ext-0))) (let ((act-25 (SystemC-45Clock-osClockNanosecond arg-1 ext-0))) (vector 0 arg-0 (PreludeC-45Cast-u--cast_Cast_Bits64_Integer act-24) (PreludeC-45Cast-u--cast_Cast_Bits64_Integer act-25)))))) -(define SystemC-45Clock-fetchOSClock (lambda (arg-0 ext-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (SystemC-45Clock-clockTimeUtc ext-0)) ((1) (SystemC-45Clock-clockTimeMonotonic ext-0)) ((3) (SystemC-45Clock-clockTimeProcess ext-0)) ((4) (SystemC-45Clock-clockTimeThread ext-0)) ((5) (SystemC-45Clock-clockTimeGcCpu ext-0)) ((6) (SystemC-45Clock-clockTimeGcReal ext-0)) (else (SystemC-45Clock-clockTimeMonotonic ext-0)))))) -(define SystemC-45Clock-clockTimeUtc (lambda (ext-0) (SystemC-45Clock-prim__clockTimeUtc ext-0))) -(define SystemC-45Clock-clockTimeThread (lambda (ext-0) (SystemC-45Clock-prim__clockTimeThread ext-0))) -(define SystemC-45Clock-clockTimeProcess (lambda (ext-0) (SystemC-45Clock-prim__clockTimeProcess ext-0))) -(define SystemC-45Clock-clockTimeMonotonic (lambda (ext-0) (SystemC-45Clock-prim__clockTimeMonotonic ext-0))) -(define SystemC-45Clock-clockTimeGcReal (lambda (ext-0) (SystemC-45Clock-prim__clockTimeGcReal ext-0))) -(define SystemC-45Clock-clockTimeGcCpu (lambda (ext-0) (SystemC-45Clock-prim__clockTimeGcCpu ext-0))) -(define SystemC-45Clock-clockTime (lambda (arg-0 ext-0) (SystemC-45Clock-with--clockTime-794 arg-0 (SystemC-45Clock-isClockMandatory arg-0) ext-0))) -(define CoreC-45Binary-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32readFromTTC-5844 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 ext-0) (let ((sc0 arg-17)) (cond ((equal? sc0 0) (vector 1 (vector 1 (cons arg-16 (cons (let ((sc1 arg-15)) (let ((e-2 (vector-ref sc1 2))) e-2)) (let ((sc1 arg-15)) (let ((e-8 (vector-ref sc1 8))) e-8))))))) (else (let ((act-24 (CoreC-45Core-traverse_ (lambda (eta-0) (lambda (eta-1) (CoreC-45Binary-addGlobalDef arg-9 arg-3 arg-14 eta-0 eta-1))) (let ((sc1 arg-15)) (let ((e-4 (vector-ref sc1 4))) e-4)) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45Core-traverse_ (lambda (eta-0) (lambda (eta-1) (CoreC-45Context-addUserHole arg-9 eta-0 eta-1))) (let ((sc2 arg-15)) (let ((e-19 (vector-ref sc2 5))) e-19)) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45Context-setNS arg-9 (let ((sc3 arg-15)) (let ((e-10 (vector-ref sc3 10))) e-10)) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 (let ((sc4 arg-7)) (cond ((equal? sc4 0) (CoreC-45Context-setNestedNS arg-9 (let ((sc5 arg-15)) (let ((e-11 (vector-ref sc5 11))) e-11)) ext-0)) (else (vector 1 (vector 0 ))))))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-28 (let ((sc5 (PreludeC-45Types-elem (cons (lambda (arg-18) (lambda (arg-19) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_ModuleIdent arg-18 arg-19))) (lambda (arg-18) (lambda (arg-19) (CoreC-45NameC-45Namespace-u--C-47C-61_Eq_ModuleIdent arg-18 arg-19)))) arg-3 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-fst (CoreC-45Binary-getNSas eta-0))) (let ((sc6 arg-10)) (let ((e-20 (vector-ref sc6 21))) e-20)))))) (cond ((equal? sc5 0) (vector 1 (vector 0 ))) (else (let ((act-28 (CoreC-45Core-traverse_ (lambda (eta-0) (lambda (eta-1) (CoreC-45Binary-addTypeHint arg-9 arg-6 eta-0 eta-1))) (let ((sc6 arg-15)) (let ((e-20 (vector-ref sc6 7))) e-20)) ext-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((act-29 (CoreC-45Core-traverse_ (lambda (eta-0) (lambda (eta-1) (CoreC-45Binary-addAutoHint arg-9 eta-0 eta-1))) (let ((sc7 arg-15)) (let ((e-22 (vector-ref sc7 6))) e-22)) ext-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((act-30 (CoreC-45Binary-updatePair arg-9 (let ((sc8 arg-15)) (let ((e-12 (vector-ref sc8 12))) e-12)) ext-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((act-31 (CoreC-45Binary-updateRewrite arg-9 (let ((sc9 arg-15)) (let ((e-13 (vector-ref sc9 13))) e-13)) ext-0))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((act-32 (CoreC-45Binary-updatePrims arg-9 (let ((sc10 arg-15)) (let ((e-14 (vector-ref sc10 14))) e-14)) ext-0))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((act-33 (CoreC-45Binary-updateNameDirectives arg-9 (DataC-45List-reverse (let ((sc11 arg-15)) (let ((e-15 (vector-ref sc11 15))) e-15))) ext-0))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((act-34 (CoreC-45Binary-updateCGDirectives arg-9 (let ((sc12 arg-15)) (let ((e-16 (vector-ref sc12 16))) e-16)) ext-0))) (let ((sc12 act-34)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (CoreC-45Binary-updateTransforms arg-9 (let ((sc13 arg-15)) (let ((e-17 (vector-ref sc13 17))) e-17)) ext-0)))))))))))))))))))))))))))))))))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((act-29 (let ((sc6 arg-5)) (cond ((equal? sc6 0) (vector 1 (vector 0 ))) (else (CoreC-45Context-clearSavedHints arg-9 ext-0)))))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((act-30 (CoreC-45Context-resetFirstEntry arg-9 ext-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((act-31 (let ((act-31 (unbox arg-8))) (vector 1 act-31)))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-32 (let ((act-32 (set-box! arg-8 (let ((sc9 e-12)) (let ((e-0 (vector-ref sc9 1))) (let ((e-1 (vector-ref sc9 2))) (let ((e-2 (vector-ref sc9 3))) (let ((e-3 (vector-ref sc9 4))) (let ((e-4 (vector-ref sc9 5))) (let ((e-17 (vector-ref sc9 6))) (let ((e-15 (vector-ref sc9 8))) (let ((e-14 (vector-ref sc9 9))) (let ((e-13 (vector-ref sc9 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-17 (let ((sc10 arg-15)) (let ((e-27 (vector-ref sc10 9))) e-27)) e-15 e-14 e-13)))))))))))))) (vector 1 act-32)))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (vector 1 (vector 1 (cons arg-16 (cons (let ((sc10 arg-15)) (let ((e-2 (vector-ref sc10 2))) e-2)) (let ((sc10 arg-15)) (let ((e-24 (vector-ref sc10 8))) e-24)))))))))))))))))))))))))))))))))))))))))))))))) -(define CoreC-45Binary-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32readFromTTC-5767 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (cond ((equal? sc0 0) (vector 0 )) (else (vector 1 arg-2)))))) -(define CoreC-45Binary-case--readFromTTC-5684 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 ext-0) (let ((sc0 arg-11)) (cond ((equal? sc0 1) (let ((act-24 (let ((act-24 (set-box! arg-9 (let ((sc1 arg-10)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (let ((e-26 (vector-ref sc1 27))) (let ((e-27 (vector-ref sc1 28))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 (cons (cons arg-4 (cons arg-3 (cons arg-5 arg-2))) e-20) e-21 e-22 e-23 e-24 e-25 e-26 e-27))))))))))))))))))))))))))))))))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (let ((act-25 (LibrariesC-45UtilsC-45Binary-readFromFile arg-4 ext-0))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-2 (vector-ref sc3 1))) (let ((act-26 (CoreC-45Core-newRef (vector "Libraries.Utils.Binary.Bin" ) e-2 ext-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc4 1))) (let ((u--as (let ((_-0 (vector 1 e-2))) (CoreC-45Binary-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32readFromTTC-5767 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-2 _-0 e-7 (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace arg-2 (CoreC-45NameC-45Namespace-miAsNamespace arg-3)))))) (let ((act-27 (CoreC-45Binary-readTTCFile arg-1 arg-9 arg-4 u--as e-7 ext-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc5 1))) (let ((u--ex (let ((sc6 e-8)) (let ((e-18 (vector-ref sc6 18))) e-18)))) (let ((_-0 (vector 1 e-2))) (CoreC-45Binary-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32readFromTTC-5844 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-2 _-0 e-7 u--as e-8 u--ex (CoreC-45Binary-n--13836-5603-u--alreadyDone arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-3 arg-2 (let ((sc6 arg-10)) (let ((e-20 (vector-ref sc6 21))) e-20))) ext-0)))))))))))))))) (else (let ((e-7 (vector-ref sc3 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 (PreludeC-45TypesC-45String-C-43C-43 arg-4 (PreludeC-45TypesC-45String-C-43C-43 ": " (SystemC-45File-u--show_Show_FileError e-7)))) ext-0))))))))))))))) (else (vector 1 (vector 0 ))))))) -(define CoreC-45Binary-case--updateTransformsC-44addT-5408 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((act-24 (set-box! arg-3 (let ((sc1 arg-6)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (let ((e-26 (vector-ref sc1 27))) (let ((e-27 (vector-ref sc1 28))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 (LibrariesC-45DataC-45NameMap-insert arg-5 (cons arg-4 '()) e-13) e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27))))))))))))))))))))))))))))))))) (vector 1 act-24))) (else (let ((e-2 (vector-ref sc0 1))) (let ((act-24 (set-box! arg-3 (let ((sc1 arg-6)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (let ((e-26 (vector-ref sc1 27))) (let ((e-27 (vector-ref sc1 28))) (vector 0 e-0 e-1 e-28 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 (LibrariesC-45DataC-45NameMap-insert arg-5 (cons arg-4 e-2) e-13) e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27))))))))))))))))))))))))))))))))) (vector 1 act-24)))))))) -(define CoreC-45Binary-case--addGlobalDefC-44completeDef-4805 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) 1) ((7) 1)(else 0))))) -(define CoreC-45Binary-case--caseC-32blockC-32inC-32getSaveDefs-4550 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((4) (lambda (eta-0) (CoreC-45Binary-getSaveDefs arg-1 arg-3 arg-2 eta-0)))(else (lambda (eta-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-initBinaryS (blodwen-toSignedInt 16384 63) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (CoreC-45Context-u--full_HasNames_GlobalDef (let ((sc1 arg-2)) (let ((e-0 (vector-ref sc1 1))) e-0)) arg-4 eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (CoreC-45TTC-u--toBuf_TTC_GlobalDef e-5 e-6 eta-0)))))))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 (let ((act-26 (unbox e-5))) (vector 1 act-26)))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (CoreC-45Binary-getSaveDefs arg-1 (cons (cons (let ((sc3 arg-4)) (let ((e-1 (vector-ref sc3 2))) e-1)) e-7) arg-3) arg-2 eta-0))))))))))))))))))))) -(define CoreC-45Binary-n--11338-3202-u--resolved_aux (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((sc0 arg-6)) (if (null? sc0) (vector 1 (DataC-45List-reverse arg-5)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((act-24 (let ((sc1 arg-1)) (let ((e-4 (cdr sc1))) (((e-4 arg-4) e-2) ext-0))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (CoreC-45Binary-n--11338-3202-u--resolved_aux arg-1 arg-2 arg-3 arg-4 (cons e-5 arg-5) e-3 ext-0)))))))))))) -(define CoreC-45Binary-n--11761-3818-u--resolvedRW (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 ext-0) (let ((sc0 arg-22)) (case (vector-ref sc0 0) ((0) (vector 1 (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-3 (car sc1))) (let ((e-4 (cdr sc1))) (let ((act-24 ((CoreC-45Context-u--resolved_HasNames_Name arg-21 e-3) ext-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((CoreC-45Context-u--resolved_HasNames_Name arg-21 e-4) ext-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 (vector 1 (cons e-5 e-6)))))))))))))))))))))) -(define CoreC-45Binary-n--11761-3819-u--resolvedPrim (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 ext-0) (let ((sc0 arg-22)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((act-24 (CoreC-45Context-u--resolved_HasNames_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) arg-21 e-0 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Context-u--resolved_HasNames_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) arg-21 e-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (CoreC-45Context-u--resolved_HasNames_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) arg-21 e-2 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (CoreC-45Context-u--resolved_HasNames_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) arg-21 e-3 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 0 e-5 e-6 e-7 e-8))))))))))))))))))))))))))))) -(define CoreC-45Binary-n--11761-3817-u--resolvedPair (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 ext-0) (let ((sc0 arg-22)) (case (vector-ref sc0 0) ((0) (vector 1 (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-3 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (let ((e-5 (vector-ref sc1 3))) (let ((act-24 ((CoreC-45Context-u--resolved_HasNames_Name arg-21 e-3) ext-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-25 ((CoreC-45Context-u--resolved_HasNames_Name arg-21 e-4) ext-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-26 ((CoreC-45Context-u--resolved_HasNames_Name arg-21 e-5) ext-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 1 (vector 0 e-6 e-7 e-8)))))))))))))))))))))))))))) -(define CoreC-45Binary-n--11337-3173-u--full_aux (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((sc0 arg-6)) (if (null? sc0) (vector 1 (DataC-45List-reverse arg-5)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((act-24 (let ((sc1 arg-1)) (let ((e-1 (car sc1))) (((e-1 arg-4) e-2) ext-0))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (CoreC-45Binary-n--11337-3173-u--full_aux arg-1 arg-2 arg-3 arg-4 (cons e-5 arg-5) e-3 ext-0)))))))))))) -(define CoreC-45Binary-n--11760-3619-u--fullRW (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 ext-0) (let ((sc0 arg-22)) (case (vector-ref sc0 0) ((0) (vector 1 (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-3 (car sc1))) (let ((e-4 (cdr sc1))) (let ((act-24 (CoreC-45Context-u--full_HasNames_Name arg-21 e-3 ext-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (CoreC-45Context-u--full_HasNames_Name arg-21 e-4 ext-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 (vector 1 (cons e-5 e-6)))))))))))))))))))))) -(define CoreC-45Binary-n--11760-3620-u--fullPrim (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 ext-0) (let ((sc0 arg-22)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (CoreC-45Core-C-60C-42C-62 (lambda (eta-0) (CoreC-45Core-C-60C-42C-62 (lambda (eta-1) (CoreC-45Core-C-60C-42C-62 (lambda (eta-2) (CoreC-45Core-C-60C-42C-62 (lambda (eta-3) (vector 1 (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (lambda (eta-7) (vector 0 eta-4 eta-5 eta-6 eta-7))))))) (lambda (eta-3) (CoreC-45Context-u--full_HasNames_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-4) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-4)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) arg-21 e-0 eta-3)) eta-2)) (lambda (eta-2) (CoreC-45Context-u--full_HasNames_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-3) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-3)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) arg-21 e-1 eta-2)) eta-1)) (lambda (eta-1) (CoreC-45Context-u--full_HasNames_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-2) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-2)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) arg-21 e-2 eta-1)) eta-0)) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-1) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-1)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) arg-21 e-3 eta-0)) ext-0)))))))) -(define CoreC-45Binary-n--11760-3618-u--fullPair (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 ext-0) (let ((sc0 arg-22)) (case (vector-ref sc0 0) ((0) (vector 1 (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-3 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (let ((e-5 (vector-ref sc1 3))) (let ((act-24 (CoreC-45Context-u--full_HasNames_Name arg-21 e-3 ext-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-25 (CoreC-45Context-u--full_HasNames_Name arg-21 e-4 ext-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-26 (CoreC-45Context-u--full_HasNames_Name arg-21 e-5 ext-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 1 (vector 0 e-6 e-7 e-8)))))))))))))))))))))))))))) -(define CoreC-45Binary-n--12972-4796-u--completeDef (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) 1) (else (let ((e-2 (vector-ref sc0 1))) (CoreC-45Binary-case--addGlobalDefC-44completeDef-4805 arg-0 arg-1 arg-2 arg-3 arg-4 e-2 (let ((sc1 e-2)) (let ((e-17 (vector-ref sc1 18))) e-17))))))))) -(define CoreC-45Binary-n--13836-5603-u--alreadyDone (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (if (null? sc0) 1 (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (let ((e-7 (cdr sc1))) (let ((sc2 e-7)) (let ((e-10 (car sc2))) (let ((e-11 (cdr sc2))) (let ((sc3 e-11)) (let ((e-15 (cdr sc3))) (PreludeC-45Basics-C-124C-124 (PreludeC-45Basics-C-38C-38 (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_ModuleIdent arg-10 e-10) (lambda () (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace arg-11 e-15))) (lambda () (PreludeC-45Basics-C-124C-124 (PreludeC-45Basics-C-38C-38 (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_ModuleIdent arg-10 e-10) (lambda () (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace (CoreC-45NameC-45Namespace-miAsNamespace arg-10) arg-11))) (lambda () (CoreC-45Binary-n--13836-5603-u--alreadyDone arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-3)))))))))))))))))) -(define CoreC-45Binary-n--13596-5392-u--addT (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (let ((act-24 (unbox arg-3))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (CoreC-45Binary-case--updateTransformsC-44addT-5408 arg-0 arg-1 arg-2 arg-3 arg-5 arg-4 e-5 (LibrariesC-45DataC-45NameMap-lookup arg-4 (let ((sc1 e-5)) (let ((e-13 (vector-ref sc1 14))) e-13))) ext-0)))))))) -(define CoreC-45Binary-u--resolved_HasNames_C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32TransformC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32TransformC-41C-124C-41 (lambda (arg-0 arg-1 ext-0) (let ((sc0 arg-1)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((act-24 ((CoreC-45Context-u--resolved_HasNames_Name arg-0 e-2) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Context-u--resolved_HasNames_Transform arg-0 e-3 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (cons e-5 e-6))))))))))))))))) -(define CoreC-45Binary-u--resolved_HasNames_C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32BoolC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32BoolC-41C-124C-41 (lambda (arg-0 arg-1 ext-0) (let ((sc0 arg-1)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((act-24 ((CoreC-45Context-u--resolved_HasNames_Name arg-0 e-2) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (cons e-5 e-3)))))))))))) -(define CoreC-45Binary-u--resolved_HasNames_C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32BoolC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32BoolC-41C-124C-41C-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32BoolC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32BoolC-41C-124C-41C-41C-124C-41 (lambda (arg-0 arg-1 ext-0) (let ((sc0 arg-1)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-3)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (let ((act-24 ((CoreC-45Context-u--resolved_HasNames_Name arg-0 e-2) ext-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((CoreC-45Context-u--resolved_HasNames_Name arg-0 e-6) ext-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (vector 1 (cons e-5 (cons e-8 e-7))))))))))))))))))))) -(define CoreC-45Binary-u--resolved_HasNames_C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32C-40ListC-32StringC-41C-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32C-40ListC-32StringC-41C-41C-124C-41 (lambda (arg-0 arg-1 ext-0) (let ((sc0 arg-1)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((act-24 ((CoreC-45Context-u--resolved_HasNames_Name arg-0 e-2) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (cons e-5 e-3)))))))))))) -(define CoreC-45Binary-u--resolved_HasNames_C-40TTCFileC-32C-36eC-41 (lambda (arg-1 arg-2 arg-3 ext-0) (let ((sc0 arg-3)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((e-6 (vector-ref sc0 6))) (let ((e-7 (vector-ref sc0 7))) (let ((e-8 (vector-ref sc0 8))) (let ((e-9 (vector-ref sc0 9))) (let ((e-10 (vector-ref sc0 10))) (let ((e-11 (vector-ref sc0 11))) (let ((e-12 (vector-ref sc0 12))) (let ((e-13 (vector-ref sc0 13))) (let ((e-14 (vector-ref sc0 14))) (let ((e-15 (vector-ref sc0 15))) (let ((e-16 (vector-ref sc0 16))) (let ((e-17 (vector-ref sc0 17))) (let ((e-18 (vector-ref sc0 18))) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (CoreC-45Binary-u--resolved_HasNames_C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32BoolC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32BoolC-41C-124C-41 arg-2 eta-0 eta-1))) e-6 '() ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-19 (vector-ref sc1 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (CoreC-45Binary-u--resolved_HasNames_C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32BoolC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32BoolC-41C-124C-41C-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32BoolC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32BoolC-41C-124C-41C-41C-124C-41 arg-2 eta-0 eta-1))) e-7 '() ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-20 (vector-ref sc2 1))) (vector 0 e-20))) (else (let ((e-20 (vector-ref sc2 1))) (let ((act-26 (CoreC-45Binary-n--11761-3817-u--resolvedPair arg-1 e-18 e-17 e-16 e-15 e-14 e-13 e-12 e-11 e-10 e-9 e-8 e-7 e-6 e-5 e-4 e-3 e-2 e-1 arg-2 arg-2 e-12 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-21 (vector-ref sc3 1))) (vector 0 e-21))) (else (let ((e-21 (vector-ref sc3 1))) (let ((act-27 (CoreC-45Binary-n--11761-3818-u--resolvedRW arg-1 e-18 e-17 e-16 e-15 e-14 e-13 e-12 e-11 e-10 e-9 e-8 e-7 e-6 e-5 e-4 e-3 e-2 e-1 arg-2 arg-2 e-13 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-22 (vector-ref sc4 1))) (vector 0 e-22))) (else (let ((e-22 (vector-ref sc4 1))) (let ((act-28 (CoreC-45Binary-n--11761-3819-u--resolvedPrim arg-1 e-18 e-17 e-16 e-15 e-14 e-13 e-12 e-11 e-10 e-9 e-8 e-7 e-6 e-5 e-4 e-3 e-2 e-1 arg-2 arg-2 e-14 ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-23 (vector-ref sc5 1))) (vector 0 e-23))) (else (let ((e-23 (vector-ref sc5 1))) (let ((act-29 (CoreC-45Binary-u--resolved_HasNames_C-40ListC-32C-36aC-41 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Binary-u--full_HasNames_C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32C-40ListC-32StringC-41C-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32C-40ListC-32StringC-41C-41C-124C-41 arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (lambda (eta-0) (CoreC-45Binary-u--resolved_HasNames_C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32C-40ListC-32StringC-41C-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32C-40ListC-32StringC-41C-41C-124C-41 arg-3812 arg-3813 eta-0))))) arg-2 e-15 ext-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-24 (vector-ref sc6 1))) (vector 0 e-24))) (else (let ((e-24 (vector-ref sc6 1))) (let ((act-30 (CoreC-45Binary-u--resolved_HasNames_C-40ListC-32C-36aC-41 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Binary-u--full_HasNames_C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32TransformC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32TransformC-41C-124C-41 arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (lambda (eta-0) (CoreC-45Binary-u--resolved_HasNames_C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32TransformC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32TransformC-41C-124C-41 arg-3812 arg-3813 eta-0))))) arg-2 e-17 ext-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-25 (vector-ref sc7 1))) (vector 0 e-25))) (else (let ((e-25 (vector-ref sc7 1))) (let ((act-31 (let ((sc8 arg-1)) (let ((e-26 (cdr sc8))) (((e-26 arg-2) e-18) ext-0))))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-26 (vector-ref sc8 1))) (vector 0 e-26))) (else (let ((e-26 (vector-ref sc8 1))) (vector 1 (vector 0 e-1 e-2 e-3 e-4 e-5 e-19 e-20 e-8 e-9 e-10 e-11 e-21 e-22 e-23 e-24 e-16 e-25 e-26))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) -(define CoreC-45Binary-u--resolved_HasNames_C-40ListC-32C-36aC-41 (lambda (arg-1 arg-2 arg-3 ext-0) (CoreC-45Binary-n--11338-3202-u--resolved_aux arg-1 arg-3 arg-2 arg-2 '() arg-3 ext-0))) -(define CoreC-45Binary-u--full_HasNames_C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32TransformC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32TransformC-41C-124C-41 (lambda (arg-0 arg-1 ext-0) (let ((sc0 arg-1)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((act-24 (CoreC-45Context-u--full_HasNames_Name arg-0 e-2 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Context-u--full_HasNames_Transform arg-0 e-3 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (cons e-5 e-6))))))))))))))))) -(define CoreC-45Binary-u--full_HasNames_C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32BoolC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32BoolC-41C-124C-41 (lambda (arg-0 arg-1 ext-0) (let ((sc0 arg-1)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((act-24 (CoreC-45Context-u--full_HasNames_Name arg-0 e-2 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (cons e-5 e-3)))))))))))) -(define CoreC-45Binary-u--full_HasNames_C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32BoolC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32BoolC-41C-124C-41C-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32BoolC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32BoolC-41C-124C-41C-41C-124C-41 (lambda (arg-0 arg-1 ext-0) (let ((sc0 arg-1)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-3)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (let ((act-24 (CoreC-45Context-u--full_HasNames_Name arg-0 e-2 ext-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (CoreC-45Context-u--full_HasNames_Name arg-0 e-6 ext-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (vector 1 (cons e-5 (cons e-8 e-7))))))))))))))))))))) -(define CoreC-45Binary-u--full_HasNames_C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32C-40ListC-32StringC-41C-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32C-40ListC-32StringC-41C-41C-124C-41 (lambda (arg-0 arg-1 ext-0) (let ((sc0 arg-1)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((act-24 (CoreC-45Context-u--full_HasNames_Name arg-0 e-2 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (cons e-5 e-3)))))))))))) -(define CoreC-45Binary-u--full_HasNames_C-40TTCFileC-32C-36eC-41 (lambda (arg-1 arg-2 arg-3 ext-0) (let ((sc0 arg-3)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((e-6 (vector-ref sc0 6))) (let ((e-7 (vector-ref sc0 7))) (let ((e-8 (vector-ref sc0 8))) (let ((e-9 (vector-ref sc0 9))) (let ((e-10 (vector-ref sc0 10))) (let ((e-11 (vector-ref sc0 11))) (let ((e-12 (vector-ref sc0 12))) (let ((e-13 (vector-ref sc0 13))) (let ((e-14 (vector-ref sc0 14))) (let ((e-15 (vector-ref sc0 15))) (let ((e-16 (vector-ref sc0 16))) (let ((e-17 (vector-ref sc0 17))) (let ((e-18 (vector-ref sc0 18))) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (CoreC-45Binary-u--full_HasNames_C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32BoolC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32BoolC-41C-124C-41 arg-2 eta-0 eta-1))) e-6 '() ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-19 (vector-ref sc1 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (CoreC-45Binary-u--full_HasNames_C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32BoolC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32BoolC-41C-124C-41C-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32BoolC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32BoolC-41C-124C-41C-41C-124C-41 arg-2 eta-0 eta-1))) e-7 '() ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-20 (vector-ref sc2 1))) (vector 0 e-20))) (else (let ((e-20 (vector-ref sc2 1))) (let ((act-26 (CoreC-45Binary-n--11760-3618-u--fullPair arg-1 e-18 e-17 e-16 e-15 e-14 e-13 e-12 e-11 e-10 e-9 e-8 e-7 e-6 e-5 e-4 e-3 e-2 e-1 arg-2 arg-2 e-12 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-21 (vector-ref sc3 1))) (vector 0 e-21))) (else (let ((e-21 (vector-ref sc3 1))) (let ((act-27 (CoreC-45Binary-n--11760-3619-u--fullRW arg-1 e-18 e-17 e-16 e-15 e-14 e-13 e-12 e-11 e-10 e-9 e-8 e-7 e-6 e-5 e-4 e-3 e-2 e-1 arg-2 arg-2 e-13 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-22 (vector-ref sc4 1))) (vector 0 e-22))) (else (let ((e-22 (vector-ref sc4 1))) (let ((act-28 (CoreC-45Binary-n--11760-3620-u--fullPrim arg-1 e-18 e-17 e-16 e-15 e-14 e-13 e-12 e-11 e-10 e-9 e-8 e-7 e-6 e-5 e-4 e-3 e-2 e-1 arg-2 arg-2 e-14 ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-23 (vector-ref sc5 1))) (vector 0 e-23))) (else (let ((e-23 (vector-ref sc5 1))) (let ((act-29 (CoreC-45Binary-u--full_HasNames_C-40ListC-32C-36aC-41 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Binary-u--full_HasNames_C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32C-40ListC-32StringC-41C-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32C-40ListC-32StringC-41C-41C-124C-41 arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (lambda (eta-0) (CoreC-45Binary-u--resolved_HasNames_C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32C-40ListC-32StringC-41C-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32C-40ListC-32StringC-41C-41C-124C-41 arg-3812 arg-3813 eta-0))))) arg-2 e-15 ext-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-24 (vector-ref sc6 1))) (vector 0 e-24))) (else (let ((e-24 (vector-ref sc6 1))) (let ((act-30 (CoreC-45Binary-u--full_HasNames_C-40ListC-32C-36aC-41 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Binary-u--full_HasNames_C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32TransformC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32TransformC-41C-124C-41 arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (lambda (eta-0) (CoreC-45Binary-u--resolved_HasNames_C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32TransformC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32TransformC-41C-124C-41 arg-3812 arg-3813 eta-0))))) arg-2 e-17 ext-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-25 (vector-ref sc7 1))) (vector 0 e-25))) (else (let ((e-25 (vector-ref sc7 1))) (let ((act-31 (let ((sc8 arg-1)) (let ((e-27 (car sc8))) (((e-27 arg-2) e-18) ext-0))))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-26 (vector-ref sc8 1))) (vector 0 e-26))) (else (let ((e-26 (vector-ref sc8 1))) (vector 1 (vector 0 e-1 e-2 e-3 e-4 e-5 e-19 e-20 e-8 e-9 e-10 e-11 e-21 e-22 e-23 e-24 e-16 e-25 e-26))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) -(define CoreC-45Binary-u--full_HasNames_C-40ListC-32C-36aC-41 (lambda (arg-1 arg-2 arg-3 ext-0) (CoreC-45Binary-n--11337-3173-u--full_aux arg-1 arg-3 arg-2 arg-2 '() arg-3 ext-0))) -(define CoreC-45Binary-writeToTTC (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-initBinary ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (unbox arg-2))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (let ((act-26 (unbox arg-3))) (vector 1 act-26)))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (CoreC-45Binary-getSaveDefs (LibrariesC-45DataC-45NameMap-keys (let ((sc3 e-6)) (let ((e-30 (vector-ref sc3 6))) e-30))) '() e-6 ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (CoreC-45ContextC-45Log-log arg-2 "ttc.write" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Writing " (PreludeC-45TypesC-45String-C-43C-43 arg-5 (PreludeC-45TypesC-45String-C-43C-43 " with hash " (PreludeC-45Show-u--show_Show_Int (let ((sc4 e-6)) (let ((e-17 (vector-ref sc4 18))) e-17))))))) ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-29 (CoreC-45Binary-writeTTCFile arg-1 arg-2 e-5 (vector 0 (CoreC-45Binary-ttcVersion) (let ((sc5 e-6)) (let ((e-17 (vector-ref sc5 18))) e-17)) (let ((sc5 e-6)) (let ((e-18 (vector-ref sc5 19))) e-18)) e-8 (LibrariesC-45DataC-45NameMap-keys (let ((sc5 e-6)) (let ((e-24 (vector-ref sc5 25))) e-24))) (let ((sc5 e-6)) (let ((e-12 (vector-ref sc5 13))) e-12)) (let ((sc5 e-6)) (let ((e-11 (vector-ref sc5 12))) e-11)) (let ((sc5 e-6)) (let ((e-19 (vector-ref sc5 20))) e-19)) (let ((sc5 e-7)) (let ((e-13 (vector-ref sc5 7))) e-13)) (let ((sc5 e-6)) (let ((e-2 (vector-ref sc5 3))) e-2)) (let ((sc5 e-6)) (let ((e-3 (vector-ref sc5 4))) e-3)) (let ((sc5 e-6)) (let ((e-4 (vector-ref sc5 5))) (let ((sc6 e-4)) (let ((e-37 (vector-ref sc6 5))) e-37)))) (let ((sc5 e-6)) (let ((e-4 (vector-ref sc5 5))) (let ((sc6 e-4)) (let ((e-36 (vector-ref sc6 6))) e-36)))) (let ((sc5 e-6)) (let ((e-4 (vector-ref sc5 5))) (let ((sc6 e-4)) (let ((e-35 (vector-ref sc6 7))) e-35)))) (LibrariesC-45DataC-45NameMap-toList (let ((sc5 e-6)) (let ((e-16 (vector-ref sc5 17))) e-16))) (let ((sc5 e-6)) (let ((e-21 (vector-ref sc5 22))) e-21)) (let ((sc5 e-6)) (let ((e-14 (vector-ref sc5 15))) e-14)) arg-4) ext-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((act-30 (let ((act-30 (let ((act-30 (unbox e-5))) (vector 1 act-30)))) (let ((sc6 act-30)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-31 ((LibrariesC-45UtilsC-45Binary-writeToFile arg-5 e-11) ext-0))) (vector 1 act-31))))))))) (let ((sc6 act-30)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc6 1))) (let ((sc7 e-11)) (case (vector-ref sc7 0) ((1) (vector 1 (vector 0 ))) (else (let ((e-12 (vector-ref sc7 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 (PreludeC-45TypesC-45String-C-43C-43 arg-5 (PreludeC-45TypesC-45String-C-43C-43 ": " (SystemC-45File-u--show_Show_FileError e-12)))) ext-0)))))))))))))))))))))))))))))))))))))))) -(define CoreC-45Binary-writeTTCFile (lambda (arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (CoreC-45Context-toFullNames arg-2 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Binary-u--full_HasNames_C-40TTCFileC-32C-36eC-41 (Builtin-fst arg-1) arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (lambda (eta-0) (CoreC-45Binary-u--resolved_HasNames_C-40TTCFileC-32C-36eC-41 (Builtin-fst arg-1) arg-3812 arg-3813 eta-0))))) arg-4 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-3 "TT2") ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-3 (let ((sc2 e-5)) (let ((e-1 (vector-ref sc2 1))) e-1)) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-27 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-3 (let ((sc3 e-5)) (let ((e-2 (vector-ref sc3 2))) e-2)) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-28 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10258) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_Namespace arg-10256 arg-10258 eta-1)))) (lambda (arg-10258) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_Namespace arg-10258 eta-1)))) (cons (lambda (arg-10256) (lambda (arg-10258) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10258 eta-1)))) (lambda (arg-10258) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10258 eta-1))))) arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_Namespace arg-10255 arg-10257 eta-1)))) (lambda (arg-10259) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_Namespace arg-10259 eta-1)))) (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10255 arg-10257 eta-1)))) (lambda (arg-10259) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10259 eta-1))))) arg-10258 eta-0)))) arg-3 (let ((sc4 e-5)) (let ((e-3 (vector-ref sc4 3))) e-3)) ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-29 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10258) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_Name arg-10256 arg-10258 eta-1)))) (lambda (arg-10258) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10258 eta-1)))) (cons (lambda (arg-10256) (lambda (arg-10258) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Binary arg-10256 arg-10258))) (lambda (arg-10258) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Binary arg-10258 eta-1))))) arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_Name arg-10255 arg-10257 eta-1)))) (lambda (arg-10259) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10259 eta-1)))) (cons (lambda (arg-10255) (lambda (arg-10257) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Binary arg-10255 arg-10257))) (lambda (arg-10259) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Binary arg-10259 eta-1))))) arg-10258 eta-0)))) arg-3 (let ((sc5 e-5)) (let ((e-4 (vector-ref sc5 4))) e-4)) ext-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((act-30 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_Name arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10258 eta-0)))) arg-3 (let ((sc6 e-5)) (let ((e-24 (vector-ref sc6 5))) e-24)) ext-0))) (let ((sc6 act-30)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((act-31 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10258) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_Name arg-10256 arg-10258 eta-1)))) (lambda (arg-10258) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10258 eta-1)))) (cons (lambda (arg-10256) (lambda (arg-10258) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Bool arg-10256 arg-10258 eta-1)))) (lambda (arg-10258) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Bool arg-10258 eta-1))))) arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_Name arg-10255 arg-10257 eta-1)))) (lambda (arg-10259) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10259 eta-1)))) (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Bool arg-10255 arg-10257 eta-1)))) (lambda (arg-10259) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Bool arg-10259 eta-1))))) arg-10258 eta-0)))) arg-3 (let ((sc7 e-5)) (let ((e-24 (vector-ref sc7 6))) e-24)) ext-0))) (let ((sc7 act-31)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((act-32 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10258) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_Name arg-10256 arg-10258 eta-1)))) (lambda (arg-10258) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10258 eta-1)))) (cons (lambda (arg-10256) (lambda (arg-10258) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10259) (lambda (arg-10260) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_Name arg-10259 arg-10260 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10259 eta-2)))) (cons (lambda (arg-10259) (lambda (arg-10260) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Bool arg-10259 arg-10260 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Bool arg-10259 eta-2))))) arg-10256 arg-10258 eta-1)))) (lambda (arg-10258) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10259) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_Name arg-10256 arg-10259 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10259 eta-2)))) (cons (lambda (arg-10256) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Bool arg-10256 arg-10259 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Bool arg-10259 eta-2))))) arg-10258 eta-1))))) arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_Name arg-10255 arg-10257 eta-1)))) (lambda (arg-10259) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10259 eta-1)))) (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10259) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_Name arg-10256 arg-10259 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10259 eta-2)))) (cons (lambda (arg-10256) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Bool arg-10256 arg-10259 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Bool arg-10259 eta-2))))) arg-10255 arg-10257 eta-1)))) (lambda (arg-10259) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_Name arg-10255 arg-10257 eta-2)))) (lambda (arg-10260) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10260 eta-2)))) (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Bool arg-10255 arg-10257 eta-2)))) (lambda (arg-10260) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Bool arg-10260 eta-2))))) arg-10259 eta-1))))) arg-10258 eta-0)))) arg-3 (let ((sc8 e-5)) (let ((e-24 (vector-ref sc8 7))) e-24)) ext-0))) (let ((sc8 act-32)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((act-33 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10258) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_ModuleIdent arg-10256 arg-10258 eta-1)))) (lambda (arg-10258) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_ModuleIdent arg-10258 eta-1)))) (cons (lambda (arg-10256) (lambda (arg-10258) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10259) (lambda (arg-10260) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Bool arg-10259 arg-10260 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Bool arg-10259 eta-2)))) (cons (lambda (arg-10259) (lambda (arg-10260) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_Namespace arg-10259 arg-10260 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_Namespace arg-10259 eta-2))))) arg-10256 arg-10258 eta-1)))) (lambda (arg-10258) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Bool arg-10256 arg-10259 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Bool arg-10259 eta-2)))) (cons (lambda (arg-10256) (lambda (arg-10259) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_Namespace arg-10256 arg-10259 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_Namespace arg-10259 eta-2))))) arg-10258 eta-1))))) arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_ModuleIdent arg-10255 arg-10257 eta-1)))) (lambda (arg-10259) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_ModuleIdent arg-10259 eta-1)))) (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Bool arg-10256 arg-10259 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Bool arg-10259 eta-2)))) (cons (lambda (arg-10256) (lambda (arg-10259) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_Namespace arg-10256 arg-10259 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_Namespace arg-10259 eta-2))))) arg-10255 arg-10257 eta-1)))) (lambda (arg-10259) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Bool arg-10255 arg-10257 eta-2)))) (lambda (arg-10260) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Bool arg-10260 eta-2)))) (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_Namespace arg-10255 arg-10257 eta-2)))) (lambda (arg-10260) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_Namespace arg-10260 eta-2))))) arg-10259 eta-1))))) arg-10258 eta-0)))) arg-3 (let ((sc9 e-5)) (let ((e-24 (vector-ref sc9 8))) e-24)) ext-0))) (let ((sc9 act-33)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((act-34 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-3 (let ((sc10 e-5)) (let ((e-24 (vector-ref sc10 9))) e-24)) ext-0))) (let ((sc10 act-34)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((act-35 (CoreC-45TTC-u--toBuf_TTC_Namespace arg-3 (let ((sc11 e-5)) (let ((e-24 (vector-ref sc11 10))) e-24)) ext-0))) (let ((sc11 act-35)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((act-36 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_Namespace arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_Namespace arg-10258 eta-0)))) arg-3 (let ((sc12 e-5)) (let ((e-24 (vector-ref sc12 11))) e-24)) ext-0))) (let ((sc12 act-36)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((act-37 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_PairNames arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_PairNames arg-10258 eta-0)))) arg-3 (let ((sc13 e-5)) (let ((e-24 (vector-ref sc13 12))) e-24)) ext-0))) (let ((sc13 act-37)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((act-38 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_RewriteNames arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_RewriteNames arg-10258 eta-0)))) arg-3 (let ((sc14 e-5)) (let ((e-24 (vector-ref sc14 13))) e-24)) ext-0))) (let ((sc14 act-38)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((act-39 (CoreC-45TTC-u--toBuf_TTC_PrimNames arg-3 (let ((sc15 e-5)) (let ((e-24 (vector-ref sc15 14))) e-24)) ext-0))) (let ((sc15 act-39)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((act-40 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10258) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_Name arg-10256 arg-10258 eta-1)))) (lambda (arg-10258) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10258 eta-1)))) (cons (lambda (arg-10256) (lambda (arg-10258) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10259) (lambda (arg-10260) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-10259 arg-10260))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-10259 eta-2)))) arg-10256 arg-10258 eta-1)))) (lambda (arg-10258) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10256) (lambda (arg-10259) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-10256 arg-10259))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-10259 eta-2)))) arg-10258 eta-1))))) arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_Name arg-10255 arg-10257 eta-1)))) (lambda (arg-10259) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10259 eta-1)))) (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10256) (lambda (arg-10259) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-10256 arg-10259))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-10259 eta-2)))) arg-10255 arg-10257 eta-1)))) (lambda (arg-10259) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-10255 arg-10257))) (lambda (arg-10260) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-10260 eta-2)))) arg-10259 eta-1))))) arg-10258 eta-0)))) arg-3 (let ((sc16 e-5)) (let ((e-24 (vector-ref sc16 15))) e-24)) ext-0))) (let ((sc16 act-40)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((act-41 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10258) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_CG arg-10256 arg-10258 eta-1)))) (lambda (arg-10258) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_CG arg-10258 eta-1)))) (cons (lambda (arg-10256) (lambda (arg-10258) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-10256 arg-10258))) (lambda (arg-10258) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-10258 eta-1))))) arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_CG arg-10255 arg-10257 eta-1)))) (lambda (arg-10259) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_CG arg-10259 eta-1)))) (cons (lambda (arg-10255) (lambda (arg-10257) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-10255 arg-10257))) (lambda (arg-10259) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-10259 eta-1))))) arg-10258 eta-0)))) arg-3 (let ((sc17 e-5)) (let ((e-24 (vector-ref sc17 16))) e-24)) ext-0))) (let ((sc17 act-41)) (case (vector-ref sc17 0) ((0) (let ((e-2 (vector-ref sc17 1))) (vector 0 e-2))) (else (let ((act-42 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10258) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_Name arg-10256 arg-10258 eta-1)))) (lambda (arg-10258) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10258 eta-1)))) (cons (lambda (arg-10256) (lambda (arg-10258) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_Transform arg-10256 arg-10258 eta-1)))) (lambda (arg-10258) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_Transform arg-10258 eta-1))))) arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_Name arg-10255 arg-10257 eta-1)))) (lambda (arg-10259) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10259 eta-1)))) (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_Transform arg-10255 arg-10257 eta-1)))) (lambda (arg-10259) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_Transform arg-10259 eta-1))))) arg-10258 eta-0)))) arg-3 (let ((sc18 e-5)) (let ((e-24 (vector-ref sc18 17))) e-24)) ext-0))) (let ((sc18 act-42)) (case (vector-ref sc18 0) ((0) (let ((e-2 (vector-ref sc18 1))) (vector 0 e-2))) (else (let ((sc19 (Builtin-snd arg-1))) (let ((e-1 (car sc19))) (((e-1 arg-3) (let ((sc20 e-5)) (let ((e-24 (vector-ref sc20 18))) e-24))) ext-0)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) -(define CoreC-45Binary-updateTransforms (lambda (arg-0 arg-1 ext-0) (let ((sc0 arg-1)) (if (null? sc0) (vector 1 (vector 0 )) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (let ((act-24 (let ((act-24 (CoreC-45Context-toResolvedNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) e-6 ext-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (CoreC-45Context-toResolvedNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Transform arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Transform arg-3812 arg-3813 eta-0))))) e-7 ext-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (CoreC-45Binary-n--13596-5392-u--addT e-6 e-7 e-3 arg-0 e-5 e-8 ext-0))))))))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (CoreC-45Binary-updateTransforms arg-0 e-3 ext-0)))))))))))))) -(define CoreC-45Binary-updateRewrite (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-28 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (let ((e-26 (vector-ref sc1 27))) (let ((e-27 (vector-ref sc1 28))) (let ((sc2 e-4)) (let ((e-37 (vector-ref sc2 1))) (let ((e-29 (vector-ref sc2 2))) (let ((e-30 (vector-ref sc2 3))) (let ((e-31 (vector-ref sc2 4))) (let ((e-32 (vector-ref sc2 5))) (let ((e-33 (vector-ref sc2 6))) (let ((e-34 (vector-ref sc2 7))) (let ((e-35 (vector-ref sc2 8))) (let ((e-36 (vector-ref sc2 9))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-37 e-29 e-30 e-31 e-32 (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40MaybeC-32C-36aC-41 arg-1 e-33) e-34 e-35 e-36) e-28 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25))))))))) -(define CoreC-45Binary-updatePrims (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-28 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (let ((e-26 (vector-ref sc1 27))) (let ((e-27 (vector-ref sc1 28))) (let ((sc2 e-4)) (let ((e-37 (vector-ref sc2 1))) (let ((e-29 (vector-ref sc2 2))) (let ((e-30 (vector-ref sc2 3))) (let ((e-31 (vector-ref sc2 4))) (let ((e-32 (vector-ref sc2 5))) (let ((e-33 (vector-ref sc2 6))) (let ((e-34 (vector-ref sc2 7))) (let ((e-35 (vector-ref sc2 8))) (let ((e-36 (vector-ref sc2 9))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-37 e-29 e-30 e-31 e-32 e-33 (CoreC-45Binary-updatePrimNames arg-1 e-34) e-35 e-36) e-28 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25))))))))) -(define CoreC-45Binary-updatePrimNames (lambda (arg-0 ext-0) (let ((sc0 ext-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (vector 0 (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40MaybeC-32C-36aC-41 (let ((sc1 arg-0)) (let ((e-7 (vector-ref sc1 1))) e-7)) e-0) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40MaybeC-32C-36aC-41 (let ((sc1 arg-0)) (let ((e-6 (vector-ref sc1 2))) e-6)) e-1) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40MaybeC-32C-36aC-41 (let ((sc1 arg-0)) (let ((e-5 (vector-ref sc1 3))) e-5)) e-2) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40MaybeC-32C-36aC-41 (let ((sc1 arg-0)) (let ((e-4 (vector-ref sc1 4))) e-4)) e-3))))))))) -(define CoreC-45Binary-updatePair (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-28 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (let ((e-26 (vector-ref sc1 27))) (let ((e-27 (vector-ref sc1 28))) (let ((sc2 e-4)) (let ((e-37 (vector-ref sc2 1))) (let ((e-29 (vector-ref sc2 2))) (let ((e-30 (vector-ref sc2 3))) (let ((e-31 (vector-ref sc2 4))) (let ((e-32 (vector-ref sc2 5))) (let ((e-33 (vector-ref sc2 6))) (let ((e-34 (vector-ref sc2 7))) (let ((e-35 (vector-ref sc2 8))) (let ((e-36 (vector-ref sc2 9))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-37 e-29 e-30 e-31 (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40MaybeC-32C-36aC-41 arg-1 e-32) e-33 e-34 e-35 e-36) e-28 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25))))))))) -(define CoreC-45Binary-updateNameDirectives (lambda (arg-0 arg-1 ext-0) (let ((sc0 arg-1)) (if (null? sc0) (vector 1 (vector 0 )) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (let ((act-25 (set-box! arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-32 (vector-ref sc3 3))) (let ((e-31 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-30 (vector-ref sc3 6))) (let ((e-29 (vector-ref sc3 7))) (let ((e-28 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (let ((e-11 (vector-ref sc3 12))) (let ((e-12 (vector-ref sc3 13))) (let ((e-13 (vector-ref sc3 14))) (let ((e-14 (vector-ref sc3 15))) (let ((e-15 (vector-ref sc3 16))) (let ((e-16 (vector-ref sc3 17))) (let ((e-17 (vector-ref sc3 18))) (let ((e-18 (vector-ref sc3 19))) (let ((e-19 (vector-ref sc3 20))) (let ((e-20 (vector-ref sc3 21))) (let ((e-21 (vector-ref sc3 22))) (let ((e-22 (vector-ref sc3 23))) (let ((e-23 (vector-ref sc3 24))) (let ((e-24 (vector-ref sc3 25))) (let ((e-25 (vector-ref sc3 26))) (let ((e-26 (vector-ref sc3 27))) (let ((e-27 (vector-ref sc3 28))) (vector 0 e-0 e-1 e-32 e-31 e-4 e-30 e-29 e-28 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 (LibrariesC-45DataC-45NameMap-insert e-6 e-7 e-16) e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27))))))))))))))))))))))))))))))))) (vector 1 act-25)))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (CoreC-45Binary-updateNameDirectives arg-0 e-3 ext-0))))))))))))))))))) -(define CoreC-45Binary-updateCGDirectives (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((u--cgsC-39 (DataC-45List-nub (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (arg-4) (lambda (arg-5) (CoreC-45Options-u--C-61C-61_Eq_CG arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (CoreC-45Options-u--C-47C-61_Eq_CG arg-4 arg-5)))) (cons (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-61C-61_Eq_String arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_String arg-4 arg-5)))) arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (arg-2) (lambda (arg-3) (CoreC-45Options-u--C-61C-61_Eq_CG arg-2 arg-3))) (lambda (arg-6) (lambda (arg-7) (CoreC-45Options-u--C-47C-61_Eq_CG arg-6 arg-7)))) (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_String arg-2 arg-3))) (lambda (arg-6) (lambda (arg-7) (PreludeC-45EqOrd-u--C-47C-61_Eq_String arg-6 arg-7)))) arg-4 arg-5)))) (PreludeC-45TypesC-45List-C-43C-43 arg-1 (let ((sc1 e-5)) (let ((e-21 (vector-ref sc1 22))) e-21)))))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-28 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (let ((e-26 (vector-ref sc1 27))) (let ((e-27 (vector-ref sc1 28))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-28 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 u--cgsC-39 e-22 e-23 e-24 e-25 e-26 e-27)))))))))))))))))))))))))))))))) (vector 1 act-25)))))))))) -(define CoreC-45Binary-ttcVersion (lambda () 50)) -(define CoreC-45Binary-readTTCFile (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-5 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (unbox arg-5))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 (let ((sc2 (PreludeC-45EqOrd-u--C-47C-61_Eq_String e-5 "TT2"))) (cond ((equal? sc2 0) (LibrariesC-45UtilsC-45Binary-corrupt (PreludeC-45TypesC-45String-C-43C-43 "TTC header in " (PreludeC-45TypesC-45String-C-43C-43 arg-3 (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45Show-u--show_Show_String e-5)))) ext-0)) (else (vector 1 (vector 0 ))))))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-27 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-5 ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (CoreC-45Binary-checkTTCVersion arg-3 e-8 (CoreC-45Binary-ttcVersion) ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-29 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-5 ext-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-30 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10258) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_Namespace arg-10256 arg-10258 eta-1)))) (lambda (arg-10258) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_Namespace arg-10258 eta-1)))) (cons (lambda (arg-10256) (lambda (arg-10258) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10258 eta-1)))) (lambda (arg-10258) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10258 eta-1))))) arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_Namespace arg-10255 arg-10257 eta-1)))) (lambda (arg-10259) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_Namespace arg-10259 eta-1)))) (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10255 arg-10257 eta-1)))) (lambda (arg-10259) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10259 eta-1))))) arg-10258 eta-0)))) arg-5 ext-0))) (let ((sc6 act-30)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-31 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10258) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_Name arg-10256 arg-10258 eta-1)))) (lambda (arg-10258) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10258 eta-1)))) (cons (lambda (arg-10256) (lambda (arg-10258) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Binary arg-10256 arg-10258))) (lambda (arg-10258) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Binary arg-10258 eta-1))))) arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_Name arg-10255 arg-10257 eta-1)))) (lambda (arg-10259) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10259 eta-1)))) (cons (lambda (arg-10255) (lambda (arg-10257) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Binary arg-10255 arg-10257))) (lambda (arg-10259) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Binary arg-10259 eta-1))))) arg-10258 eta-0)))) arg-5 ext-0))) (let ((sc7 act-31)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc7 1))) (let ((act-32 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_Name arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10258 eta-0)))) arg-5 ext-0))) (let ((sc8 act-32)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-33 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10258) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_Name arg-10256 arg-10258 eta-1)))) (lambda (arg-10258) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10258 eta-1)))) (cons (lambda (arg-10256) (lambda (arg-10258) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Bool arg-10256 arg-10258 eta-1)))) (lambda (arg-10258) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Bool arg-10258 eta-1))))) arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_Name arg-10255 arg-10257 eta-1)))) (lambda (arg-10259) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10259 eta-1)))) (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Bool arg-10255 arg-10257 eta-1)))) (lambda (arg-10259) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Bool arg-10259 eta-1))))) arg-10258 eta-0)))) arg-5 ext-0))) (let ((sc9 act-33)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref sc9 1))) (let ((act-34 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10258) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_Name arg-10256 arg-10258 eta-1)))) (lambda (arg-10258) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10258 eta-1)))) (cons (lambda (arg-10256) (lambda (arg-10258) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10259) (lambda (arg-10260) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_Name arg-10259 arg-10260 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10259 eta-2)))) (cons (lambda (arg-10259) (lambda (arg-10260) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Bool arg-10259 arg-10260 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Bool arg-10259 eta-2))))) arg-10256 arg-10258 eta-1)))) (lambda (arg-10258) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10259) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_Name arg-10256 arg-10259 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10259 eta-2)))) (cons (lambda (arg-10256) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Bool arg-10256 arg-10259 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Bool arg-10259 eta-2))))) arg-10258 eta-1))))) arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_Name arg-10255 arg-10257 eta-1)))) (lambda (arg-10259) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10259 eta-1)))) (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10259) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_Name arg-10256 arg-10259 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10259 eta-2)))) (cons (lambda (arg-10256) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Bool arg-10256 arg-10259 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Bool arg-10259 eta-2))))) arg-10255 arg-10257 eta-1)))) (lambda (arg-10259) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_Name arg-10255 arg-10257 eta-2)))) (lambda (arg-10260) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10260 eta-2)))) (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Bool arg-10255 arg-10257 eta-2)))) (lambda (arg-10260) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Bool arg-10260 eta-2))))) arg-10259 eta-1))))) arg-10258 eta-0)))) arg-5 ext-0))) (let ((sc10 act-34)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-15 (vector-ref sc10 1))) (let ((act-35 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10258) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_ModuleIdent arg-10256 arg-10258 eta-1)))) (lambda (arg-10258) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_ModuleIdent arg-10258 eta-1)))) (cons (lambda (arg-10256) (lambda (arg-10258) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10259) (lambda (arg-10260) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Bool arg-10259 arg-10260 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Bool arg-10259 eta-2)))) (cons (lambda (arg-10259) (lambda (arg-10260) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_Namespace arg-10259 arg-10260 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_Namespace arg-10259 eta-2))))) arg-10256 arg-10258 eta-1)))) (lambda (arg-10258) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Bool arg-10256 arg-10259 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Bool arg-10259 eta-2)))) (cons (lambda (arg-10256) (lambda (arg-10259) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_Namespace arg-10256 arg-10259 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_Namespace arg-10259 eta-2))))) arg-10258 eta-1))))) arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_ModuleIdent arg-10255 arg-10257 eta-1)))) (lambda (arg-10259) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_ModuleIdent arg-10259 eta-1)))) (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Bool arg-10256 arg-10259 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Bool arg-10259 eta-2)))) (cons (lambda (arg-10256) (lambda (arg-10259) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_Namespace arg-10256 arg-10259 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_Namespace arg-10259 eta-2))))) arg-10255 arg-10257 eta-1)))) (lambda (arg-10259) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Bool arg-10255 arg-10257 eta-2)))) (lambda (arg-10260) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Bool arg-10260 eta-2)))) (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_Namespace arg-10255 arg-10257 eta-2)))) (lambda (arg-10260) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_Namespace arg-10260 eta-2))))) arg-10259 eta-1))))) arg-10258 eta-0)))) arg-5 ext-0))) (let ((sc11 act-35)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-16 (vector-ref sc11 1))) (let ((act-36 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-5 ext-0))) (let ((sc12 act-36)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-17 (vector-ref sc12 1))) (let ((act-37 (CoreC-45TTC-u--fromBuf_TTC_Namespace arg-5 ext-0))) (let ((sc13 act-37)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-18 (vector-ref sc13 1))) (let ((act-38 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_Namespace arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_Namespace arg-10258 eta-0)))) arg-5 ext-0))) (let ((sc14 act-38)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-19 (vector-ref sc14 1))) (let ((act-39 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_PairNames arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_PairNames arg-10258 eta-0)))) arg-5 ext-0))) (let ((sc15 act-39)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-20 (vector-ref sc15 1))) (let ((act-40 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_RewriteNames arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_RewriteNames arg-10258 eta-0)))) arg-5 ext-0))) (let ((sc16 act-40)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((e-21 (vector-ref sc16 1))) (let ((act-41 (CoreC-45TTC-u--fromBuf_TTC_PrimNames arg-5 ext-0))) (let ((sc17 act-41)) (case (vector-ref sc17 0) ((0) (let ((e-2 (vector-ref sc17 1))) (vector 0 e-2))) (else (let ((e-22 (vector-ref sc17 1))) (let ((act-42 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10258) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_Name arg-10256 arg-10258 eta-1)))) (lambda (arg-10258) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10258 eta-1)))) (cons (lambda (arg-10256) (lambda (arg-10258) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10259) (lambda (arg-10260) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-10259 arg-10260))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-10259 eta-2)))) arg-10256 arg-10258 eta-1)))) (lambda (arg-10258) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10256) (lambda (arg-10259) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-10256 arg-10259))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-10259 eta-2)))) arg-10258 eta-1))))) arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_Name arg-10255 arg-10257 eta-1)))) (lambda (arg-10259) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10259 eta-1)))) (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10256) (lambda (arg-10259) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-10256 arg-10259))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-10259 eta-2)))) arg-10255 arg-10257 eta-1)))) (lambda (arg-10259) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-10255 arg-10257))) (lambda (arg-10260) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-10260 eta-2)))) arg-10259 eta-1))))) arg-10258 eta-0)))) arg-5 ext-0))) (let ((sc18 act-42)) (case (vector-ref sc18 0) ((0) (let ((e-2 (vector-ref sc18 1))) (vector 0 e-2))) (else (let ((e-23 (vector-ref sc18 1))) (let ((act-43 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10258) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_CG arg-10256 arg-10258 eta-1)))) (lambda (arg-10258) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_CG arg-10258 eta-1)))) (cons (lambda (arg-10256) (lambda (arg-10258) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-10256 arg-10258))) (lambda (arg-10258) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-10258 eta-1))))) arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_CG arg-10255 arg-10257 eta-1)))) (lambda (arg-10259) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_CG arg-10259 eta-1)))) (cons (lambda (arg-10255) (lambda (arg-10257) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-10255 arg-10257))) (lambda (arg-10259) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-10259 eta-1))))) arg-10258 eta-0)))) arg-5 ext-0))) (let ((sc19 act-43)) (case (vector-ref sc19 0) ((0) (let ((e-2 (vector-ref sc19 1))) (vector 0 e-2))) (else (let ((e-24 (vector-ref sc19 1))) (let ((act-44 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10258) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_Name arg-10256 arg-10258 eta-1)))) (lambda (arg-10258) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10258 eta-1)))) (cons (lambda (arg-10256) (lambda (arg-10258) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_Transform arg-10256 arg-10258 eta-1)))) (lambda (arg-10258) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_Transform arg-10258 eta-1))))) arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_Name arg-10255 arg-10257 eta-1)))) (lambda (arg-10259) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10259 eta-1)))) (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_Transform arg-10255 arg-10257 eta-1)))) (lambda (arg-10259) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_Transform arg-10259 eta-1))))) arg-10258 eta-0)))) arg-5 ext-0))) (let ((sc20 act-44)) (case (vector-ref sc20 0) ((0) (let ((e-2 (vector-ref sc20 1))) (vector 0 e-2))) (else (let ((e-25 (vector-ref sc20 1))) (let ((act-45 (let ((sc21 arg-1)) (let ((e-2 (cdr sc21))) ((e-2 arg-5) ext-0))))) (let ((sc21 act-45)) (case (vector-ref sc21 0) ((0) (let ((e-2 (vector-ref sc21 1))) (vector 0 e-2))) (else (let ((e-26 (vector-ref sc21 1))) (vector 1 (vector 0 e-8 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) -(define CoreC-45Binary-readImportHashes (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (LibrariesC-45UtilsC-45Binary-readFromFile arg-0 ext-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Core-newRef (vector "Libraries.Utils.Binary.Bin" ) e-2 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (CoreC-45Core-u--catch_Catchable_Core_Error (lambda (eta-0) (let ((act-26 (CoreC-45Binary-getImportHashes arg-0 e-6 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 e-7))))))) (lambda (u--err) (lambda (eta-0) (vector 1 '()))) ext-0)))))))) (else (vector 1 '()))))))))))) -(define CoreC-45Binary-readIFaceHash (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (LibrariesC-45UtilsC-45Binary-readFromFile arg-0 ext-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Core-newRef (vector "Libraries.Utils.Binary.Bin" ) e-2 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (CoreC-45Core-u--catch_Catchable_Core_Error (lambda (eta-0) (let ((act-26 (CoreC-45Binary-getHash arg-0 e-6 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 e-7))))))) (lambda (u--err) (lambda (eta-0) (vector 1 0))) ext-0)))))))) (else (vector 1 0))))))))))) -(define CoreC-45Binary-readFromTTC (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 ext-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (CoreC-45Binary-case--readFromTTC-5684 arg-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 e-5 (PreludeC-45Types-elem (cons (lambda (arg-10) (lambda (arg-11) (PreludeC-45EqOrd-u--C-61C-61_Eq_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (arg-12) (lambda (arg-13) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_ModuleIdent arg-12 arg-13))) (lambda (arg-12) (lambda (arg-13) (CoreC-45NameC-45Namespace-u--C-47C-61_Eq_ModuleIdent arg-12 arg-13)))) (cons (lambda (arg-12) (lambda (arg-13) (PreludeC-45EqOrd-u--C-61C-61_Eq_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (arg-14) (lambda (arg-15) (PreludeC-45EqOrd-u--C-61C-61_Eq_Bool arg-14 arg-15))) (lambda (arg-14) (lambda (arg-15) (PreludeC-45EqOrd-u--C-47C-61_Eq_Bool arg-14 arg-15)))) (cons (lambda (arg-14) (lambda (arg-15) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace arg-14 arg-15))) (lambda (arg-14) (lambda (arg-15) (CoreC-45NameC-45Namespace-u--C-47C-61_Eq_Namespace arg-14 arg-15)))) arg-12 arg-13))) (lambda (arg-12) (lambda (arg-13) (PreludeC-45EqOrd-u--C-47C-61_Eq_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (arg-14) (lambda (arg-15) (PreludeC-45EqOrd-u--C-61C-61_Eq_Bool arg-14 arg-15))) (lambda (arg-14) (lambda (arg-15) (PreludeC-45EqOrd-u--C-47C-61_Eq_Bool arg-14 arg-15)))) (cons (lambda (arg-14) (lambda (arg-15) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace arg-14 arg-15))) (lambda (arg-14) (lambda (arg-15) (CoreC-45NameC-45Namespace-u--C-47C-61_Eq_Namespace arg-14 arg-15)))) arg-12 arg-13)))) arg-10 arg-11))) (lambda (arg-10) (lambda (arg-11) (PreludeC-45EqOrd-u--C-47C-61_Eq_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (arg-12) (lambda (arg-13) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_ModuleIdent arg-12 arg-13))) (lambda (arg-12) (lambda (arg-13) (CoreC-45NameC-45Namespace-u--C-47C-61_Eq_ModuleIdent arg-12 arg-13)))) (cons (lambda (arg-12) (lambda (arg-13) (PreludeC-45EqOrd-u--C-61C-61_Eq_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (arg-14) (lambda (arg-15) (PreludeC-45EqOrd-u--C-61C-61_Eq_Bool arg-14 arg-15))) (lambda (arg-14) (lambda (arg-15) (PreludeC-45EqOrd-u--C-47C-61_Eq_Bool arg-14 arg-15)))) (cons (lambda (arg-14) (lambda (arg-15) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace arg-14 arg-15))) (lambda (arg-14) (lambda (arg-15) (CoreC-45NameC-45Namespace-u--C-47C-61_Eq_Namespace arg-14 arg-15)))) arg-12 arg-13))) (lambda (arg-12) (lambda (arg-13) (PreludeC-45EqOrd-u--C-47C-61_Eq_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (arg-14) (lambda (arg-15) (PreludeC-45EqOrd-u--C-61C-61_Eq_Bool arg-14 arg-15))) (lambda (arg-14) (lambda (arg-15) (PreludeC-45EqOrd-u--C-47C-61_Eq_Bool arg-14 arg-15)))) (cons (lambda (arg-14) (lambda (arg-15) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace arg-14 arg-15))) (lambda (arg-14) (lambda (arg-15) (CoreC-45NameC-45Namespace-u--C-47C-61_Eq_Namespace arg-14 arg-15)))) arg-12 arg-13)))) arg-10 arg-11)))) (cons arg-8 (cons arg-6 arg-9)) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) (let ((sc1 e-5)) (let ((e-20 (vector-ref sc1 21))) e-20)))) ext-0)))))))) -(define CoreC-45Binary-getSaveDefs (lambda (arg-0 arg-1 arg-2 ext-0) (let ((sc0 arg-0)) (if (null? sc0) (vector 1 arg-1) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((act-24 ((CoreC-45Context-lookupCtxtExact e-2 (let ((sc1 arg-2)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((_-0 (vector 1 e-1))) ((CoreC-45Binary-case--caseC-32blockC-32inC-32getSaveDefs-4550 e-2 e-3 arg-2 arg-1 e-1 _-0 (let ((sc3 e-1)) (let ((e-17 (vector-ref sc3 18))) e-17))) ext-0)))) (else (CoreC-45Binary-getSaveDefs e-3 arg-1 arg-2 ext-0))))))))))))))) -(define CoreC-45Binary-getNSas (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-3 (cdr sc0))) (let ((sc1 e-3)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (let ((sc2 e-7)) (let ((e-11 (cdr sc2))) (cons e-6 e-11)))))))))) -(define CoreC-45Binary-getImportHashes (lambda (arg-0 arg-1 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-1 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((sc1 (PreludeC-45EqOrd-u--C-47C-61_Eq_String e-5 "TT2"))) (cond ((equal? sc1 0) (LibrariesC-45UtilsC-45Binary-corrupt (PreludeC-45TypesC-45String-C-43C-43 "TTC header in " (PreludeC-45TypesC-45String-C-43C-43 arg-0 (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45Show-u--show_Show_String e-5)))) ext-0)) (else (vector 1 (vector 0 ))))))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (CoreC-45Binary-checkTTCVersion arg-0 e-7 (CoreC-45Binary-ttcVersion) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-28 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1 ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10258) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_Namespace arg-10256 arg-10258 eta-1)))) (lambda (arg-10258) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_Namespace arg-10258 eta-1)))) (cons (lambda (arg-10256) (lambda (arg-10258) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10258 eta-1)))) (lambda (arg-10258) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10258 eta-1))))) arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_Namespace arg-10255 arg-10257 eta-1)))) (lambda (arg-10259) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_Namespace arg-10259 eta-1)))) (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10255 arg-10257 eta-1)))) (lambda (arg-10259) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10259 eta-1))))) arg-10258 eta-0)))) arg-1 ext-0))))))))))))))))))))))))) -(define CoreC-45Binary-getHash (lambda (arg-0 arg-1 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-1 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((sc1 (PreludeC-45EqOrd-u--C-47C-61_Eq_String e-5 "TT2"))) (cond ((equal? sc1 0) (LibrariesC-45UtilsC-45Binary-corrupt (PreludeC-45TypesC-45String-C-43C-43 "TTC header in " (PreludeC-45TypesC-45String-C-43C-43 arg-0 (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45Show-u--show_Show_String e-5)))) ext-0)) (else (vector 1 (vector 0 ))))))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (CoreC-45Binary-checkTTCVersion arg-0 e-7 (CoreC-45Binary-ttcVersion) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1 ext-0))))))))))))))))))))) -(define CoreC-45Binary-checkTTCVersion (lambda (arg-0 arg-1 arg-2 ext-0) (let ((sc0 (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-1 arg-2))) (cond ((equal? sc0 0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 48 (vector 0 arg-0 arg-1 arg-2)) ext-0)) (else (vector 1 (vector 0 ))))))) -(define CoreC-45Binary-addTypeHint (lambda (arg-0 arg-1 arg-2 ext-0) (let ((sc0 arg-2)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-3)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (let ((act-24 (let ((act-24 (CoreC-45Context-getFullName arg-0 e-6 ext-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (CoreC-45Context-getFullName arg-0 e-2 ext-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (CoreC-45ContextC-45Log-logC arg-0 "ttc.read" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda (eta-0) (vector 1 (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-5) (PreludeC-45TypesC-45String-C-43C-43 " for " (CoreC-45Name-u--show_Show_Name e-8))))) ext-0))))))))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (CoreC-45Context-addHintFor arg-0 arg-1 e-2 e-6 e-7 0 ext-0))))))))))))) -(define CoreC-45Binary-addGlobalDef (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((sc0 arg-3)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((CoreC-45Context-lookupContextEntry e-2 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((PreludeC-45Types-maybe (lambda () (lambda (eta-0) (vector 1 (vector 0 )))) (lambda () (lambda (u--p) (lambda (eta-0) (let ((act-26 (CoreC-45Context-decode (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) e-0)) (Builtin-fst u--p) 1 (Builtin-snd u--p) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 1 e-7)))))))))) e-6) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (let ((sc4 (CoreC-45Binary-n--12972-4796-u--completeDef e-2 e-3 arg-2 arg-1 arg-0 e-7))) (cond ((equal? sc4 0) (vector 1 (vector 0 ))) (else (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc5 eta-0)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (vector 1 (vector 0 )))))) (lambda (eta-0) (CoreC-45Context-addContextEntry arg-0 e-2 e-3 eta-0)) ext-0)))))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((sc5 arg-2)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (CoreC-45Context-addContextAlias arg-0 (CoreC-45Name-asName arg-1 e-1 e-2) e-2 ext-0))) (else (vector 1 (vector 0 ))))))))))))))))))))))))))))) -(define CoreC-45Binary-addAutoHint (lambda (arg-0 arg-1 ext-0) (let ((sc0 arg-1)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Context-toResolvedNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) e-2 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (set-box! arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-31 (vector-ref sc3 3))) (let ((e-30 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-29 (vector-ref sc3 6))) (let ((e-28 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (let ((e-11 (vector-ref sc3 12))) (let ((e-12 (vector-ref sc3 13))) (let ((e-13 (vector-ref sc3 14))) (let ((e-14 (vector-ref sc3 15))) (let ((e-15 (vector-ref sc3 16))) (let ((e-16 (vector-ref sc3 17))) (let ((e-17 (vector-ref sc3 18))) (let ((e-18 (vector-ref sc3 19))) (let ((e-19 (vector-ref sc3 20))) (let ((e-20 (vector-ref sc3 21))) (let ((e-21 (vector-ref sc3 22))) (let ((e-22 (vector-ref sc3 23))) (let ((e-23 (vector-ref sc3 24))) (let ((e-24 (vector-ref sc3 25))) (let ((e-25 (vector-ref sc3 26))) (let ((e-26 (vector-ref sc3 27))) (let ((e-27 (vector-ref sc3 28))) (vector 0 e-0 e-1 e-31 e-30 e-4 e-29 e-28 e-7 (LibrariesC-45DataC-45NameMap-insert e-6 e-3 e-8) e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27))))))))))))))))))))))))))))))))) (vector 1 act-26))))))))))))))))) -(define CoreC-45UnifyState-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32dumpHoleC-39-8639 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (cond ((equal? sc0 0) " (Invertible)") (else ""))))) -(define CoreC-45UnifyState-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32dumpHoleC-39-8573 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (cond ((equal? sc0 0) " (ImplBind)") (else (PreludeC-45TypesC-45String-C-43C-43 "" (CoreC-45UnifyState-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32dumpHoleC-39-8639 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (let ((sc1 arg-8)) (let ((e-14 (vector-ref sc1 15))) e-14))))))))) -(define CoreC-45UnifyState-case--caseC-32blockC-32inC-32dumpHoleC-39-8423 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 ext-0) (let ((sc0 arg-10)) (if (null? sc0) (vector 1 (vector 0 )) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((9) (let ((e-4 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 3))) (let ((act-24 (let ((act-24 (CoreC-45Context-getFullName arg-2 (vector 9 arg-0) ext-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-25 (CoreC-45Normalise-normaliseHoles arg-2 '() arg-7 '() e-3 ext-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-8 (vector-ref sc3 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-2 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) e-8 ext-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc4 1))) (CoreC-45ContextC-45Log-logC-39 arg-2 arg-1 (lambda () (PreludeC-45TypesC-45String-C-43C-43 "!" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-7) (PreludeC-45TypesC-45String-C-43C-43 " : " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-9))))) ext-0)))))))))))))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (vector 0 e-7))) (else (let ((act-25 (let ((act-25 (CoreC-45Normalise-normaliseHoles arg-2 '() arg-7 '() e-4 ext-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-8 (vector-ref sc3 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc3 1))) (CoreC-45ContextC-45Log-logC-39 arg-2 arg-1 (lambda () (PreludeC-45TypesC-45String-C-43C-43 "\u0009 = " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-8) "\u000a\u0009when"))) ext-0)))))))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-8 (vector-ref sc3 1))) (vector 0 e-8))) (else (CoreC-45Core-traverse_ (lambda (eta-0) (lambda (eta-1) (CoreC-45UnifyState-n--14062-8052-u--dumpConstraint arg-0 arg-1 arg-2 arg-3 eta-0 eta-1))) e-6 ext-0)))))))))))) ((7) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((act-24 (CoreC-45Normalise-normaliseHoles arg-2 '() arg-7 '() e-3 ext-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (CoreC-45ContextC-45Log-logC-39 arg-2 arg-1 (lambda () (PreludeC-45TypesC-45String-C-43C-43 "?" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name (let ((sc3 arg-8)) (let ((e-1 (vector-ref sc3 2))) e-1))) (PreludeC-45TypesC-45String-C-43C-43 " : " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-5) (CoreC-45UnifyState-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32dumpHoleC-39-8573 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-7 e-8 e-3 e-5 (let ((sc3 e-8)) (let ((e-0 (car sc3))) e-0)))))))) ext-0))))))))) ((8) (let ((act-24 (CoreC-45Normalise-normaliseHoles arg-2 '() arg-7 '() e-3 ext-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-2 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) e-5 ext-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) (CoreC-45ContextC-45Log-logC-39 arg-2 arg-1 (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Search " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Int arg-0) (PreludeC-45TypesC-45String-C-43C-43 " : " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-6))))) ext-0)))))))))))) ((1) (let ((act-24 (CoreC-45Normalise-normalise arg-2 '() arg-7 '() e-3 ext-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (CoreC-45Normalise-normalise arg-2 '() arg-7 '() (vector 1 (CoreC-45FC-emptyFC) (vector 1 ) (vector 9 arg-0)) ext-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) (CoreC-45ContextC-45Log-logC-39 arg-2 (CoreC-45OptionsC-45Log-withVerbosity (+ 1 (+ 1 (+ 1 (+ 1 0)))) arg-1) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Solved: " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Int arg-0) (PreludeC-45TypesC-45String-C-43C-43 " : " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-5) (PreludeC-45TypesC-45String-C-43C-43 " = " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-6))))))) ext-0)))))))))))) ((10) (let ((act-24 (CoreC-45Normalise-normalise arg-2 '() arg-7 '() e-3 ext-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (CoreC-45ContextC-45Log-logC-39 arg-2 (CoreC-45OptionsC-45Log-withVerbosity (+ 1 (+ 1 (+ 1 (+ 1 0)))) arg-1) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Bound: " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Int arg-0) (PreludeC-45TypesC-45String-C-43C-43 " : " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-5))))) ext-0))))))) ((11) (let ((act-24 (CoreC-45Normalise-normalise arg-2 '() arg-7 '() e-3 ext-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (CoreC-45ContextC-45Log-logC-39 arg-2 (CoreC-45OptionsC-45Log-withVerbosity (+ 1 (+ 1 (+ 1 (+ 1 0)))) arg-1) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Delayed elaborator : " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-5))) ext-0)))))))(else (vector 1 (vector 0 ))))))))))) -(define CoreC-45UnifyState-case--dumpHoleC-39C-44dumpConstraint-8074 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (vector 1 (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((2) (CoreC-45ContextC-45Log-logC-39 arg-2 arg-1 (lambda () "\u0009Resolved") ext-0)) ((0) (let ((e-3 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 3))) (let ((e-7 (vector-ref sc1 5))) (let ((e-8 (vector-ref sc1 6))) (let ((e-9 (vector-ref sc1 7))) (let ((act-24 (let ((act-24 (CoreC-45Normalise-normalise arg-2 e-3 arg-6 e-7 e-8 ext-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc2 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-2 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) e-10 ext-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-11 (vector-ref sc3 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc3 1))) (let ((act-26 (CoreC-45Normalise-normalise arg-2 e-3 arg-6 e-7 e-9 ext-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-12 (vector-ref sc4 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc4 1))) (let ((act-27 (CoreC-45Context-toFullNames arg-2 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) e-12 ext-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-13 (vector-ref sc5 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc5 1))) (CoreC-45ContextC-45Log-logC-39 arg-2 arg-1 (lambda () (PreludeC-45TypesC-45String-C-43C-43 "\u0009 " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 e-3 e-11) (PreludeC-45TypesC-45String-C-43C-43 " =?= " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 e-3 e-13))))) ext-0))))))))))))))))))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (vector 0 e-10))) (else (let ((act-25 (CoreC-45Context-toFullNames arg-2 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) e-8 ext-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-11 (vector-ref sc3 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc3 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-2 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) e-9 ext-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-12 (vector-ref sc4 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc4 1))) (CoreC-45ContextC-45Log-logC-39 arg-2 (CoreC-45OptionsC-45Log-withVerbosity (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) arg-1) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "\u0009 from " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 e-3 e-11) (PreludeC-45TypesC-45String-C-43C-43 " =?= " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 e-3 e-12) (let ((sc5 e-5)) (cond ((equal? sc5 0) "\u000a\u0009(lazy allowed)") (else "")))))))) ext-0))))))))))))))))))))) (else (let ((e-10 (vector-ref sc1 1))) (let ((e-13 (vector-ref sc1 4))) (let ((e-14 (vector-ref sc1 5))) (CoreC-45ContextC-45Log-logC-39 arg-2 arg-1 (lambda () (PreludeC-45TypesC-45String-C-43C-43 "\u0009\u0009" (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 e-10 u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 e-10 u--d u--x)))) e-13) (PreludeC-45TypesC-45String-C-43C-43 " =?= " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 e-10 u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 e-10 u--d u--x)))) e-14))))) ext-0))))))))))))) -(define CoreC-45UnifyState-case--checkUserHolesAfter-8001 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (cond ((equal? sc0 0) '()) (else arg-7))))) -(define CoreC-45UnifyState-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkValidHole-7437 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-0 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (lambda (eta-0) (let ((act-24 (let ((act-24 (set-box! arg-4 (let ((sc2 arg-14)) (let ((e-17 (vector-ref sc2 1))) (let ((e-15 (vector-ref sc2 3))) (let ((e-14 (vector-ref sc2 4))) (let ((e-13 (vector-ref sc2 5))) (let ((e-12 (vector-ref sc2 6))) (let ((e-11 (vector-ref sc2 7))) (let ((e-10 (vector-ref sc2 8))) (let ((e-8 (vector-ref sc2 9))) (let ((e-9 (vector-ref sc2 10))) (vector 0 e-17 (LibrariesC-45DataC-45IntMap-empty) e-15 e-14 e-13 e-12 e-11 e-10 e-8 e-9)))))))))))))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-8 (vector-ref sc2 1))) (vector 0 e-8))) (else (let ((act-25 (CoreC-45Normalise-normaliseHoles arg-5 e-0 arg-6 e-4 e-5 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-9 (vector-ref sc3 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc3 1))) (let ((act-26 (CoreC-45Normalise-normaliseHoles arg-5 e-0 arg-6 e-4 e-6 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc4 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 2 e-0 e-7 e-4 e-9 e-10) eta-0)))))))))))))))))))))) ((1) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((e-9 (vector-ref sc1 3))) (let ((e-10 (vector-ref sc1 4))) (let ((e-11 (vector-ref sc1 5))) (lambda (clam-0) (let ((sc2 e-10)) (if (null? sc2) (vector 1 (vector 0 )) (let ((e-13 (car sc2))) (let ((sc3 e-11)) (if (null? sc3) (vector 1 (vector 0 )) (let ((e-16 (car sc3))) (let ((act-24 (let ((act-24 (set-box! arg-4 (let ((sc4 arg-14)) (let ((e-0 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 3))) (let ((e-3 (vector-ref sc4 4))) (let ((e-4 (vector-ref sc4 5))) (let ((e-5 (vector-ref sc4 6))) (let ((e-6 (vector-ref sc4 7))) (let ((e-18 (vector-ref sc4 8))) (let ((e-15 (vector-ref sc4 9))) (let ((e-12 (vector-ref sc4 10))) (vector 0 e-0 (LibrariesC-45DataC-45IntMap-empty) e-2 e-3 e-4 e-5 e-6 e-18 e-15 e-12)))))))))))))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45Normalise-normaliseHoles arg-5 e-7 arg-6 e-9 e-13 clam-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (CoreC-45Normalise-normaliseHoles arg-5 e-7 arg-6 e-9 e-16 clam-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc6 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 2 e-7 e-8 e-9 e-6 e-12) clam-0))))))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define CoreC-45UnifyState-case--caseC-32blockC-32inC-32checkValidHole-7286 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 ext-0) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((8) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Context-lookupTyExact arg-2 (let ((sc2 e-5)) (let ((e-31 (vector-ref sc2 1))) e-31)) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-3 (vector-ref sc3 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 29 '() arg-1 '() e-3) ext-0))) (else (vector 1 (vector 0 )))))))))))))))) ((9) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((sc1 e-5)) (if (null? sc1) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (CoreC-45Context-getFullName arg-5 eta-0 eta-1))) (LibrariesC-45DataC-45NameMap-keys (CoreC-45TT-getRefs (vector 9 -1) (let ((sc2 arg-8)) (let ((e-2 (vector-ref sc2 3))) e-2)))) '() ext-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (CoreC-45Core-traverse_ (lambda (eta-0) (lambda (eta-1) (CoreC-45UnifyState-n--13101-7218-u--checkRef arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 eta-0 eta-1))) e-6 ext-0)))))) (let ((e-7 (car sc1))) (let ((e-8 (cdr sc1))) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((CoreC-45UnifyState-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkValidHole-7437 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-8 e-7 e-4 e-3 e-6 (LibrariesC-45DataC-45IntMap-lookup e-7 (let ((sc3 e-6)) (let ((e-14 (vector-ref sc3 5))) e-14)))) ext-0))))))))))))))(else (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (CoreC-45Context-getFullName arg-5 eta-0 eta-1))) (LibrariesC-45DataC-45NameMap-keys (CoreC-45TT-getRefs (vector 9 -1) (let ((sc0 arg-8)) (let ((e-2 (vector-ref sc0 3))) e-2)))) '() ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (CoreC-45Core-traverse_ (lambda (eta-0) (lambda (eta-1) (CoreC-45UnifyState-n--13101-7218-u--checkRef arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 eta-0 eta-1))) e-5 ext-0))))))))))) -(define CoreC-45UnifyState-case--checkDelayedHoles-7165 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (vector 1 (vector 1 (vector 31 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) arg-3))))) (else (vector 1 (vector 0 ))))))) -(define CoreC-45UnifyState-case--newMetaLets-6557 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 arg-1 e-16 e-17 e-18 e-19 e-20)))))))))))))))))))))))) -(define CoreC-45UnifyState-case--mkConstantAppArgs-5692 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (cons (vector 0 arg-5 (vector 1 (CoreC-45TT-isLet arg-3)) (PreludeC-45TypesC-45List-length arg-4)) arg-8)) (else arg-8))))) -(define CoreC-45UnifyState-case--removeHoleName-5219 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (CoreC-45UnifyState-removeHole arg-1 e-1 ext-0))) (else (vector 1 (vector 0 ))))))) -(define CoreC-45UnifyState-n--13859-7855-u--nameEq (lambda (arg-0 arg-1 arg-2 arg-3 arg-6 arg-7) (let ((sc0 arg-6)) (let ((e-3 (cdr sc0))) (let ((sc1 e-3)) (let ((e-7 (cdr sc1))) (let ((sc2 arg-7)) (let ((e-11 (cdr sc2))) (let ((sc3 e-11)) (let ((e-15 (cdr sc3))) (CoreC-45Name-u--C-61C-61_Eq_Name e-7 e-15))))))))))) -(define CoreC-45UnifyState-n--12682-6825-u--envArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((u--args (DataC-45List-reverse (CoreC-45UnifyState-mkConstantAppArgs arg-0 1 arg-5 arg-3 '())))) u--args))) -(define CoreC-45UnifyState-n--12600-6744-u--envArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((u--args (DataC-45List-reverse (CoreC-45UnifyState-mkConstantAppArgs arg-0 1 arg-7 arg-3 '())))) u--args))) -(define CoreC-45UnifyState-n--12492-6632-u--envArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((u--args (DataC-45List-reverse (CoreC-45UnifyState-mkConstantAppArgs arg-1 0 arg-6 arg-4 '())))) u--args))) -(define CoreC-45UnifyState-n--12218-6386-u--envArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((u--args (DataC-45List-reverse (CoreC-45UnifyState-mkConstantAppArgs arg-3 arg-0 arg-8 arg-6 '())))) u--args))) -(define CoreC-45UnifyState-n--14062-8052-u--dumpConstraint (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (let ((act-24 (unbox arg-3))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (unbox arg-2))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (CoreC-45UnifyState-case--dumpHoleC-39C-44dumpConstraint-8074 arg-0 arg-1 arg-2 arg-3 arg-4 e-5 e-6 (LibrariesC-45DataC-45IntMap-lookup arg-4 (let ((sc2 e-5)) (let ((e-4 (vector-ref sc2 5))) e-4))) ext-0))))))))))))) -(define CoreC-45UnifyState-n--13101-7218-u--checkRef (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((3) (let ((e-0 (vector-ref sc0 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-1 (PreludeC-45TypesC-45String-C-43C-43 "Hole cannot depend on an unbound implicit " (CoreC-45Name-u--show_Show_Name e-0))) ext-0)))(else (vector 1 (vector 0 ))))))) -(define CoreC-45UnifyState-tryUnify (lambda (arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (CoreC-45UnifyState-tryErrorUnify arg-1 arg-2 arg-3 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (vector 1 e-2))) (else (arg-4 ext-0))))))))))) -(define CoreC-45UnifyState-tryErrorUnify (lambda (arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (CoreC-45Context-branch arg-1 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (CoreC-45Core-u--catch_Catchable_Core_Error (lambda (eta-0) (let ((act-26 (arg-3 eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (CoreC-45Context-commit arg-1 eta-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (vector 1 (vector 1 e-7)))))))))))) (lambda (u--err) (lambda (eta-0) (let ((act-26 (let ((act-26 (set-box! arg-2 e-5))) (vector 1 act-26)))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-27 (let ((act-27 (unbox arg-1))) (vector 1 act-27)))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (let ((act-28 (set-box! arg-1 (let ((sc4 e-6)) (let ((e-0 (vector-ref sc4 1))) (let ((e-1 (vector-ref sc4 2))) (let ((e-2 (vector-ref sc4 3))) (let ((e-3 (vector-ref sc4 4))) (let ((e-4 (vector-ref sc4 5))) (let ((e-31 (vector-ref sc4 6))) (let ((e-30 (vector-ref sc4 7))) (let ((e-29 (vector-ref sc4 8))) (let ((e-28 (vector-ref sc4 9))) (let ((e-9 (vector-ref sc4 10))) (let ((e-10 (vector-ref sc4 11))) (let ((e-11 (vector-ref sc4 12))) (let ((e-12 (vector-ref sc4 13))) (let ((e-13 (vector-ref sc4 14))) (let ((e-14 (vector-ref sc4 15))) (let ((e-15 (vector-ref sc4 16))) (let ((e-16 (vector-ref sc4 17))) (let ((e-17 (vector-ref sc4 18))) (let ((e-18 (vector-ref sc4 19))) (let ((e-19 (vector-ref sc4 20))) (let ((e-20 (vector-ref sc4 21))) (let ((e-21 (vector-ref sc4 22))) (let ((e-22 (vector-ref sc4 23))) (let ((e-23 (vector-ref sc4 24))) (let ((e-24 (vector-ref sc4 25))) (let ((e-25 (vector-ref sc4 26))) (let ((e-27 (vector-ref sc4 28))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-31 e-30 e-29 e-28 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 (let ((sc5 e-8)) (let ((e-33 (vector-ref sc5 27))) e-33)) e-27)))))))))))))))))))))))))))))))) (vector 1 act-28)))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (vector 1 (vector 0 u--err))))))))))))))))) ext-0))))))))))))) -(define CoreC-45UnifyState-saveHoles (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-10 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (vector 0 e-0 e-1 (LibrariesC-45DataC-45IntMap-empty) e-3 e-4 e-10 e-6 e-7 e-8 e-9)))))))))))))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 3))) e-2)))))))))))))) -(define CoreC-45UnifyState-restoreHoles (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-10 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (vector 0 e-0 e-1 arg-1 e-3 e-4 e-10 e-6 e-7 e-8 e-9)))))))))))))) (vector 1 act-25))))))))) -(define CoreC-45UnifyState-resetNextVar (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-10 (vector-ref sc1 6))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-10 0 e-7 e-8 e-9)))))))))))))) (vector 1 act-25))))))))) -(define CoreC-45UnifyState-removeHoleName (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (CoreC-45UnifyState-case--removeHoleName-5219 arg-2 arg-1 arg-0 e-5 (CoreC-45Context-getNameID arg-2 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0)))))))) -(define CoreC-45UnifyState-removeHole (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-10 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (vector 0 (LibrariesC-45DataC-45IntMap-delete arg-1 e-0) e-1 (LibrariesC-45DataC-45IntMap-delete arg-1 e-2) (LibrariesC-45DataC-45IntMap-delete arg-1 e-3) e-4 e-10 e-6 e-7 e-8 e-9))))))))))))))) (vector 1 act-25))))))))) -(define CoreC-45UnifyState-removeGuess (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-10 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (vector 0 e-0 (LibrariesC-45DataC-45IntMap-delete arg-1 e-1) e-2 e-3 e-4 e-10 e-6 e-7 e-8 e-9))))))))))))))) (vector 1 act-25))))))))) -(define CoreC-45UnifyState-newSearch (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((u--hty (CoreC-45Env-abstractEnvType arg-0 arg-3 arg-7 arg-9))) (let ((u--hole (CoreC-45Context-newDef arg-3 arg-8 arg-4 '() u--hty (vector 2 ) (vector 8 arg-4 arg-5 arg-6)))) (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-log arg-1 "unify.search" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Adding new search " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC arg-3) (PreludeC-45TypesC-45String-C-43C-43 " " (CoreC-45Name-u--show_Show_Name arg-8))))) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45Normalise-logTermNF '() arg-1 "unify.search" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "New search type") '() u--hty eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45Context-addDef arg-1 arg-8 u--hole eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (CoreC-45UnifyState-addGuessName arg-2 arg-3 arg-8 e-7 eta-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (vector 1 (cons e-7 (vector 2 arg-3 arg-8 e-7 (CoreC-45UnifyState-n--12600-6744-u--envArgs arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1)))))))))))))))))))))))))) -(define CoreC-45UnifyState-newMetaLets (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((u--hty (let ((sc0 arg-10)) (cond ((equal? sc0 0) (CoreC-45Env-abstractFullEnvType arg-0 arg-3 arg-5 arg-7)) (else (CoreC-45Env-abstractEnvType arg-0 arg-3 arg-5 arg-7)))))) (let ((u--hole (CoreC-45UnifyState-case--newMetaLets-6557 arg-10 arg-9 arg-8 arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 u--hty (CoreC-45Context-newDef arg-3 arg-6 arg-4 '() u--hty (vector 2 ) arg-8)))) (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-log arg-1 "unify.meta" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Adding new meta " (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (u--x) (CoreC-45Name-u--show_Show_Name u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Name-u--showPrec_Show_Name u--d u--x)))) (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (CoreC-45FC-u--show_Show_FC x-0)) (lambda (u--d) (lambda (x-0) (CoreC-45FC-u--showPrec_Show_FC u--d x-0)))) (cons (lambda (x-0) (AlgebraC-45ZeroOneOmega-u--show_Show_ZeroOneOmega x-0)) (lambda (u--d) (lambda (x-0) (AlgebraC-45ZeroOneOmega-u--showPrec_Show_ZeroOneOmega u--d x-0))))) u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (CoreC-45FC-u--show_Show_FC x-0)) (lambda (d-0) (lambda (x-0) (CoreC-45FC-u--showPrec_Show_FC d-0 x-0)))) (cons (lambda (x-0) (AlgebraC-45ZeroOneOmega-u--show_Show_ZeroOneOmega x-0)) (lambda (d-0) (lambda (x-0) (AlgebraC-45ZeroOneOmega-u--showPrec_Show_ZeroOneOmega d-0 x-0))))) u--d u--x))))) (cons arg-6 (cons arg-3 arg-4))))) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45ContextC-45Log-logTerm '() arg-1 "unify.meta" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "New meta type " (CoreC-45Name-u--show_Show_Name arg-6))) u--hty eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 (let ((act-26 (unbox arg-1))) (vector 1 act-26)))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-27 (CoreC-45Context-addDef arg-1 arg-6 u--hole eta-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (CoreC-45UnifyState-addHoleName arg-2 arg-3 arg-6 e-8 eta-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (vector 1 (cons e-8 (vector 2 arg-3 arg-6 e-8 (CoreC-45UnifyState-n--12218-6386-u--envArgs arg-10 arg-9 arg-8 arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1)))))))))))))))))))))))))))))) -(define CoreC-45UnifyState-newMeta (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (CoreC-45UnifyState-newMetaLets arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 1))) -(define CoreC-45UnifyState-newDelayed (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((u--hty (CoreC-45Env-abstractEnvType arg-0 arg-3 arg-5 arg-7))) (let ((u--hole (CoreC-45Context-newDef arg-3 arg-6 arg-4 '() u--hty (vector 2 ) (vector 11 )))) (lambda (eta-0) (let ((act-24 (CoreC-45Context-addDef arg-2 arg-6 u--hole eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (CoreC-45ContextC-45Log-log arg-2 "unify.delay" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Added delayed elaborator " (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (u--x) (CoreC-45Name-u--show_Show_Name u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Name-u--showPrec_Show_Name u--d u--x)))) (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_Int u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_Int u--d u--x))))) (cons arg-6 e-5)))) eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45UnifyState-addHoleName arg-1 arg-3 arg-6 e-5 eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (vector 1 (cons e-5 (vector 2 arg-3 arg-6 e-5 (CoreC-45UnifyState-n--12682-6825-u--envArgs arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1)))))))))))))))))))))) -(define CoreC-45UnifyState-newConstant (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((u--def (CoreC-45UnifyState-mkConstant arg-0 arg-3 arg-5 arg-6))) (let ((u--defty (CoreC-45Env-abstractFullEnvType arg-0 arg-3 arg-5 arg-7))) (lambda (eta-0) (let ((act-24 (CoreC-45UnifyState-genName arg-2 arg-1 "postpone" eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((u--guess (CoreC-45Context-newDef arg-3 e-5 arg-4 '() u--defty (vector 2 ) (vector 9 u--def (CoreC-45Env-length arg-5) arg-8)))) (let ((act-25 (CoreC-45ContextC-45Log-log arg-2 "unify.constant" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Adding new constant " (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (u--x) (CoreC-45Name-u--show_Show_Name u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Name-u--showPrec_Show_Name u--d u--x)))) (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (CoreC-45FC-u--show_Show_FC x-0)) (lambda (u--d) (lambda (x-0) (CoreC-45FC-u--showPrec_Show_FC u--d x-0)))) (cons (lambda (x-0) (AlgebraC-45ZeroOneOmega-u--show_Show_ZeroOneOmega x-0)) (lambda (u--d) (lambda (x-0) (AlgebraC-45ZeroOneOmega-u--showPrec_Show_ZeroOneOmega u--d x-0))))) u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (CoreC-45FC-u--show_Show_FC x-0)) (lambda (d-0) (lambda (x-0) (CoreC-45FC-u--showPrec_Show_FC d-0 x-0)))) (cons (lambda (x-0) (AlgebraC-45ZeroOneOmega-u--show_Show_ZeroOneOmega x-0)) (lambda (d-0) (lambda (x-0) (AlgebraC-45ZeroOneOmega-u--showPrec_Show_ZeroOneOmega d-0 x-0))))) u--d u--x))))) (cons e-5 (cons arg-3 arg-4))))) eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45ContextC-45Log-logTerm '() arg-2 "unify.constant" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "New constant type " (CoreC-45Name-u--show_Show_Name e-5))) u--defty eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-27 (CoreC-45Context-addDef arg-2 e-5 u--guess eta-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (CoreC-45UnifyState-addGuessName arg-1 arg-3 e-5 e-8 eta-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (vector 1 (vector 2 arg-3 e-5 e-8 (CoreC-45UnifyState-n--12492-6632-u--envArgs arg-8 arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1))))))))))))))))))))))))))))))) -(define CoreC-45UnifyState-mkConstantAppArgs (lambda (arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-1)) (if (null? sc0) (let ((sc1 arg-4)) '()) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 arg-4)) (let ((e-8 (car sc1))) (let ((e-9 (cdr sc1))) (let ((u--rec (CoreC-45UnifyState-mkConstantAppArgs e-3 arg-2 arg-3 e-9 (PreludeC-45TypesC-45List-C-43C-43 arg-5 (cons e-2 '()))))) (CoreC-45UnifyState-case--mkConstantAppArgs-5692 e-2 e-3 e-9 e-8 arg-5 arg-3 arg-2 u--rec (PreludeC-45Basics-C-124C-124 arg-2 (lambda () (let ((sc2 (CoreC-45TT-isLet e-8))) (cond ((equal? sc2 0) 1) (else 0)))))))))))))))) -(define CoreC-45UnifyState-mkConstant (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-0)) (if (null? sc0) (let ((sc1 arg-2)) arg-3) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 arg-2)) (let ((e-8 (car sc1))) (let ((e-9 (cdr sc1))) (let ((u--ty (CoreC-45TT-binderType e-8))) (CoreC-45UnifyState-mkConstant e-3 arg-1 e-9 (vector 3 arg-1 e-2 (vector 0 arg-1 (CoreC-45TT-multiplicity e-8) (vector 1 ) u--ty) arg-3)))))))))))) -(define CoreC-45UnifyState-isCurrentHole (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (PreludeC-45Types-maybe (lambda () 1) (lambda () (lambda (eta-0) 0)) (LibrariesC-45DataC-45IntMap-lookup arg-1 (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 3))) e-2)))))))))))) -(define CoreC-45UnifyState-initUState (lambda () (vector 0 (LibrariesC-45DataC-45IntMap-empty) (LibrariesC-45DataC-45IntMap-empty) (LibrariesC-45DataC-45IntMap-empty) (LibrariesC-45DataC-45IntMap-empty) (LibrariesC-45DataC-45IntMap-empty) '() 0 0 '() 1))) -(define CoreC-45UnifyState-handleUnify (lambda (arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (CoreC-45UnifyState-tryErrorUnify arg-1 arg-2 arg-3 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (vector 1 e-2))) (else (let ((e-6 (vector-ref sc1 1))) ((arg-4 e-6) ext-0)))))))))))) -(define CoreC-45UnifyState-getHoles (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0)))))))))) -(define CoreC-45UnifyState-getGuesses (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (let ((sc1 e-5)) (let ((e-1 (vector-ref sc1 2))) e-1)))))))))) -(define CoreC-45UnifyState-getCurrentHoles (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 3))) e-2)))))))))) -(define CoreC-45UnifyState-genWithName (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (set-box! arg-1 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-10 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-10 (bs+ e-6 1 63) e-7 e-8 e-9))))))))))))))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (CoreC-45Context-inCurrentNS arg-0 (vector 8 arg-2 (let ((sc2 e-5)) (let ((e-10 (vector-ref sc2 7))) e-10))) ext-0)))))))))))) -(define CoreC-45UnifyState-genVarName (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (set-box! arg-1 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-10 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-10 (bs+ e-6 1 63) e-7 e-8 e-9))))))))))))))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 2 arg-2 (let ((sc2 e-5)) (let ((e-10 (vector-ref sc2 7))) e-10))))))))))))))) -(define CoreC-45UnifyState-genName (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (set-box! arg-1 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-10 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-10 (bs+ e-6 1 63) e-7 e-8 e-9))))))))))))))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45Context-inCurrentNS arg-0 (vector 2 arg-2 (let ((sc2 e-5)) (let ((e-10 (vector-ref sc2 7))) e-10))) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (vector 1 e-7))))))))))))))))) -(define CoreC-45UnifyState-genMVName (lambda (arg-0 arg-1 arg-2 ext-0) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (CoreC-45UnifyState-genName arg-0 arg-1 e-0 ext-0))) ((2) (let ((e-1 (vector-ref sc0 1))) (CoreC-45UnifyState-genName arg-0 arg-1 e-1 ext-0))) ((5) (let ((e-3 (vector-ref sc0 1))) (CoreC-45UnifyState-genName arg-0 arg-1 e-3 ext-0)))(else (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (set-box! arg-1 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-10 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-10 (bs+ e-6 1 63) e-7 e-8 e-9))))))))))))))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45Context-inCurrentNS arg-0 (vector 2 (CoreC-45Name-u--show_Show_Name arg-2) (let ((sc2 e-5)) (let ((e-10 (vector-ref sc2 7))) e-10))) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (vector 1 e-7)))))))))))))))))))) -(define CoreC-45UnifyState-genCaseName (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (set-box! arg-1 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-10 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-10 (bs+ e-6 1 63) e-7 e-8 e-9))))))))))))))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (CoreC-45Context-inCurrentNS arg-0 (vector 7 arg-2 (let ((sc2 e-5)) (let ((e-10 (vector-ref sc2 7))) e-10))) ext-0)))))))))))) -(define CoreC-45UnifyState-dumpHoleC-39 (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (CoreC-45Context-getSession arg-1 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 (CoreC-45OptionsC-45Log-keepLog arg-2 (let ((sc4 e-7)) (let ((e-17 (vector-ref sc4 6))) e-17)) (let ((sc4 e-7)) (let ((e-16 (vector-ref sc4 7))) e-16))))) (cond ((equal? sc3 0) (let ((act-27 (let ((act-27 (unbox arg-1))) (vector 1 act-27)))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 ((CoreC-45Context-lookupCtxtExact (vector 9 arg-3) (let ((sc5 e-8)) (let ((e-0 (vector-ref sc5 1))) e-0))) ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((sc6 e-9)) (case (vector-ref sc6 0) ((0) (vector 1 (vector 0 ))) (else (let ((e-2 (vector-ref sc6 1))) (let ((bind-0 (vector 1 e-2))) (CoreC-45UnifyState-case--caseC-32blockC-32inC-32dumpHoleC-39-8423 arg-3 arg-2 arg-1 arg-0 e-5 e-6 e-7 e-8 e-2 bind-0 (cons (let ((sc7 e-2)) (let ((e-17 (vector-ref sc7 18))) e-17)) (let ((sc7 e-2)) (let ((e-26 (vector-ref sc7 3))) e-26))) ext-0))))))))))))))))) (else (vector 1 (vector 0 )))))))))))))))))))))) -(define CoreC-45UnifyState-dumpConstraints (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45Context-getSession arg-1 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((u--lvl (CoreC-45OptionsC-45Log-mkLogLevel (let ((sc3 e-7)) (let ((e-17 (vector-ref sc3 6))) e-17)) arg-2 arg-3))) (let ((sc3 (CoreC-45OptionsC-45Log-keepLog u--lvl (let ((sc4 e-7)) (let ((e-17 (vector-ref sc4 6))) e-17)) (let ((sc4 e-7)) (let ((e-16 (vector-ref sc4 7))) e-16))))) (cond ((equal? sc3 0) (((let ((u--hs (PreludeC-45TypesC-45List-C-43C-43 (LibrariesC-45DataC-45IntMap-toList (let ((sc4 e-5)) (let ((e-1 (vector-ref sc4 2))) e-1))) (LibrariesC-45DataC-45IntMap-toList (let ((sc4 arg-4)) (cond ((equal? sc4 0) (let ((sc5 e-5)) (let ((e-0 (vector-ref sc5 1))) e-0))) (else (let ((sc5 e-5)) (let ((e-2 (vector-ref sc5 3))) e-2))))))))) (let ((sc4 u--hs)) (if (null? sc4) (lambda () (lambda (eta-0) (vector 1 (vector 0 )))) (lambda () (lambda (eta-0) (let ((act-27 (CoreC-45ContextC-45Log-logC-39 arg-1 u--lvl (lambda () "--- CONSTRAINTS AND HOLES ---") eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (CoreC-45Core-traverse_ (lambda (eta-1) (lambda (eta-2) (CoreC-45UnifyState-dumpHoleC-39 arg-0 arg-1 u--lvl eta-1 eta-2))) (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-fst eta-1)) u--hs) eta-0))))))))))) ext-0)) (else (vector 1 (vector 0 )))))))))))))))))))))) -(define CoreC-45UnifyState-deleteConstraint (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-10 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (vector 0 e-0 e-1 e-2 e-3 (LibrariesC-45DataC-45IntMap-delete arg-1 e-4) e-10 e-6 e-7 e-8 e-9))))))))))))))) (vector 1 act-25))))))))) -(define CoreC-45UnifyState-checkValidHole (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (lambda (clam-0) (let ((sc1 e-3)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (let ((sc2 (PreludeC-45EqOrd-u--C-62C-61_Ord_Int e-2 arg-2))) (cond ((equal? sc2 0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-26 ((CoreC-45Context-lookupCtxtExact (vector 9 e-2) (let ((sc5 e-5)) (let ((e-0 (vector-ref sc5 1))) e-0))) clam-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (let ((sc6 e-9)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((_-0 (vector 1 e-1))) (CoreC-45UnifyState-case--caseC-32blockC-32inC-32checkValidHole-7286 e-2 e-6 e-7 arg-2 arg-1 arg-0 e-5 e-8 e-1 _-0 (let ((sc7 e-1)) (let ((e-17 (vector-ref sc7 18))) e-17)) clam-0)))) (else (vector 1 (vector 0 ))))))))))))))))))))) (else (vector 1 (vector 0 )))))))))))))) -(define CoreC-45UnifyState-checkUserHolesAfter (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (CoreC-45UnifyState-getGuesses arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((u--gs (LibrariesC-45DataC-45IntMap-toList e-5))) (let ((act-25 (CoreC-45ContextC-45Log-log arg-1 "unify.unsolved" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Unsolved guesses " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_Int x-0)) (lambda (u--d) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_Int u--d x-0)))) (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (CoreC-45FC-u--show_Show_FC x-1)) (lambda (u--d) (lambda (x-1) (CoreC-45FC-u--showPrec_Show_FC u--d x-1)))) (cons (lambda (x-1) (CoreC-45Name-u--show_Show_Name x-1)) (lambda (u--d) (lambda (x-1) (CoreC-45Name-u--showPrec_Show_Name u--d x-1))))) x-0)) (lambda (u--d) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (CoreC-45FC-u--show_Show_FC x-1)) (lambda (d-0) (lambda (x-1) (CoreC-45FC-u--showPrec_Show_FC d-0 x-1)))) (cons (lambda (x-1) (CoreC-45Name-u--show_Show_Name x-1)) (lambda (d-0) (lambda (x-1) (CoreC-45Name-u--showPrec_Show_Name d-0 x-1))))) u--d x-0))))) u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_Int x-0)) (lambda (d-0) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-0)))) (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (CoreC-45FC-u--show_Show_FC x-1)) (lambda (d-0) (lambda (x-1) (CoreC-45FC-u--showPrec_Show_FC d-0 x-1)))) (cons (lambda (x-1) (CoreC-45Name-u--show_Show_Name x-1)) (lambda (d-0) (lambda (x-1) (CoreC-45Name-u--showPrec_Show_Name d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (CoreC-45FC-u--show_Show_FC x-1)) (lambda (d-1) (lambda (x-1) (CoreC-45FC-u--showPrec_Show_FC d-1 x-1)))) (cons (lambda (x-1) (CoreC-45Name-u--show_Show_Name x-1)) (lambda (d-1) (lambda (x-1) (CoreC-45Name-u--showPrec_Show_Name d-1 x-1))))) d-0 x-0))))) u--d u--x)))) u--gs))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45Core-traverse_ (lambda (eta-0) (CoreC-45UnifyState-checkValidHole arg-1 arg-0 arg-2 eta-0)) u--gs ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-27 (CoreC-45UnifyState-getCurrentHoles arg-0 ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((u--hs (LibrariesC-45DataC-45IntMap-toList e-8))) (let ((u--hsC-39 (CoreC-45UnifyState-case--checkUserHolesAfter-8001 arg-3 arg-2 arg-1 arg-0 e-5 u--gs e-8 u--hs (PreludeC-45Interfaces-any (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (lambda (eta-0) (CoreC-45Name-isUserName eta-0)) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd (Builtin-snd eta-0))) u--hs))))) (let ((act-28 (let ((sc4 (PreludeC-45Basics-C-38C-38 arg-3 (lambda () (let ((sc5 (DataC-45List-isNil u--hsC-39))) (cond ((equal? sc5 0) 1) (else 0))))))) (cond ((equal? sc4 0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 31 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) (DataC-45List-nubBy (lambda (eta-0) (lambda (eta-1) (CoreC-45UnifyState-n--13859-7855-u--nameEq arg-3 arg-2 arg-1 arg-0 eta-0 eta-1))) u--hs))) ext-0)) (else (vector 1 (vector 0 ))))))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (CoreC-45Core-traverse_ (lambda (eta-0) (lambda (eta-1) (CoreC-45UnifyState-addDelayedHoleName arg-0 eta-0 eta-1))) u--hsC-39 ext-0)))))))))))))))))))))))))))) -(define CoreC-45UnifyState-checkDelayedHoles (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((u--hs (LibrariesC-45DataC-45IntMap-toList (let ((sc1 e-5)) (let ((e-3 (vector-ref sc1 4))) e-3))))) (CoreC-45UnifyState-case--checkDelayedHoles-7165 arg-1 arg-0 e-5 u--hs (let ((sc1 (DataC-45List-isNil u--hs))) (cond ((equal? sc1 0) 1) (else 0))) ext-0))))))))) -(define CoreC-45UnifyState-applyToFull (lambda (arg-0 arg-1 arg-2 arg-3) (let ((u--args (DataC-45List-reverse (CoreC-45UnifyState-mkConstantAppArgs arg-0 0 arg-1 arg-3 '())))) (CoreC-45TT-apply arg-1 arg-2 u--args)))) -(define CoreC-45UnifyState-applyTo (lambda (arg-0 arg-1 arg-2 arg-3) (let ((u--args (DataC-45List-reverse (CoreC-45UnifyState-mkConstantAppArgs arg-0 1 arg-1 arg-3 '())))) (CoreC-45TT-apply arg-1 arg-2 u--args)))) -(define CoreC-45UnifyState-addHoleName (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-10 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (vector 0 (LibrariesC-45DataC-45IntMap-insert arg-3 (cons arg-1 arg-2) e-0) e-1 (LibrariesC-45DataC-45IntMap-insert arg-3 (cons arg-1 arg-2) e-2) e-3 e-4 e-10 e-6 e-7 e-8 e-9))))))))))))))) (vector 1 act-25))))))))) -(define CoreC-45UnifyState-addGuessName (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-10 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (vector 0 e-0 (LibrariesC-45DataC-45IntMap-insert arg-3 (cons arg-1 arg-2) e-1) e-2 e-3 e-4 e-10 e-6 e-7 e-8 e-9))))))))))))))) (vector 1 act-25))))))))) -(define CoreC-45UnifyState-addDot (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-1 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-10 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 (cons (cons arg-4 (cons arg-6 (vector 0 arg-0 arg-2 1 '() arg-3 arg-5 arg-7))) e-10) e-6 e-7 e-8 e-9))))))))))))))) (vector 1 act-25))))))))) -(define CoreC-45UnifyState-addDelayedHoleName (lambda (arg-0 arg-1 ext-0) (let ((sc0 arg-1)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (set-box! arg-0 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-12 (vector-ref sc2 3))) (let ((e-11 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-10 (vector-ref sc2 6))) (let ((e-6 (vector-ref sc2 7))) (let ((e-7 (vector-ref sc2 8))) (let ((e-8 (vector-ref sc2 9))) (let ((e-9 (vector-ref sc2 10))) (vector 0 e-0 e-1 e-12 (LibrariesC-45DataC-45IntMap-insert e-2 e-3 e-11) e-4 e-10 e-6 e-7 e-8 e-9))))))))))))))) (vector 1 act-25)))))))))))) -(define CoreC-45UnifyState-addConstraint (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((u--cid (let ((sc1 e-5)) (let ((e-7 (vector-ref sc1 8))) e-7)))) (let ((act-25 (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-10 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (vector 0 e-0 e-1 e-2 e-3 (LibrariesC-45DataC-45IntMap-insert u--cid arg-2 e-4) e-10 e-6 (bs+ u--cid 1 63) e-8 e-9)))))))))))))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 u--cid))))))))))))) -(define TTImpC-45ProcessDecls-case--caseC-32blockC-32inC-32checkTotalityOK-4986 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((6) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc1 eta-0)) (case (vector-ref sc1 0) ((0) (let ((e-8 (vector-ref sc1 1))) (vector 0 e-8))) (else (vector 1 (vector 0 )))))) (lambda (eta-0) (CoreC-45Termination-checkPositive arg-1 arg-5 arg-0 eta-0)) ext-0))(else (vector 1 (vector 0 ))))))) -(define TTImpC-45ProcessDecls-case--checkTotalityOKC-44checkTotality-4893 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (lambda () (lambda (eta-0) (vector 1 (vector 1 (vector 12 arg-2 arg-0 e-0)))))))(else (lambda () (lambda (eta-0) (vector 1 (vector 0 ))))))))) -(define TTImpC-45ProcessDecls-n--13560-4846-u--checkTotality (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc0 eta-0)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))) (lambda (eta-0) (CoreC-45ContextC-45Log-logTime arg-1 (lambda () (PreludeC-45TypesC-45String-C-43C-43 "+++ Checking Termination " (CoreC-45Name-u--show_Show_Name arg-0))) (lambda (eta-1) (CoreC-45Termination-checkTotal arg-1 arg-2 arg-0 eta-1)) eta-0)) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45Context-getTotality arg-1 arg-2 arg-0 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (TTImpC-45ProcessDecls-n--13560-4845-u--checkCovering arg-0 arg-1 arg-2 (let ((sc2 e-6)) (let ((e-1 (cdr sc2))) e-1)) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) ((PreludeC-45Types-maybe (TTImpC-45ProcessDecls-case--checkTotalityOKC-44checkTotality-4893 arg-0 arg-1 arg-2 e-6 e-7 (let ((sc3 e-6)) (let ((e-0 (car sc3))) e-0))) (lambda () (lambda (eta-0) (lambda (eta-1) (vector 1 (vector 1 eta-0))))) e-7) ext-0))))))))))))))))) -(define TTImpC-45ProcessDecls-n--13560-4845-u--checkCovering (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 1 (vector 0 )))(else (vector 1 (vector 1 (vector 11 arg-2 arg-0 arg-3)))))))) -(define TTImpC-45ProcessDecls-n--13905-5159-u--bindNames (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((sc1 e-4)) (case (vector-ref sc1 0) ((0) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((e-10 (vector-ref sc1 3))) (let ((e-11 (vector-ref sc1 4))) (let ((act-24 (TTImpC-45BindImplicits-bindTypeNames arg-6 '() arg-1 e-11 ext-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-8 e-9 e-10 e-5)))))))))))))(else (vector 1 arg-7)))))))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((act-24 (TTImpC-45ProcessDecls-n--13905-5158-u--bindDataNames arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-7 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc1 1))) (vector 1 (vector 1 e-5 e-6 e-8)))))))))))(else (vector 1 arg-7)))))) -(define TTImpC-45ProcessDecls-n--13905-5158-u--bindDataNames (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((act-24 (TTImpC-45BindImplicits-bindTypeNames arg-6 '() arg-1 e-2 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (TTImpC-45ProcessDecls-n--13905-5157-u--bindConNames arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-0 eta-1))) e-4 '() ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 0 e-0 e-1 e-5 e-3 e-6)))))))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((act-24 (TTImpC-45BindImplicits-bindTypeNames arg-6 '() arg-1 e-7 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc1 1))) (vector 1 (vector 1 e-5 e-6 e-8))))))))))))))) -(define TTImpC-45ProcessDecls-n--13905-5157-u--bindConNames (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((sc0 arg-7)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((act-24 (TTImpC-45BindImplicits-bindTypeNames arg-6 '() arg-1 e-3 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-0 e-1 e-2 e-5)))))))))))))) -(define TTImpC-45ProcessDecls-processTTImpFile (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (CoreC-45ContextC-45Log-logTime arg-0 (lambda () "Parsing") (lambda (eta-0) (let ((act-24 (ParserC-45Source-parseFile arg-3 (vector 8 1 (TTImpC-45Parser-prog arg-3) (lambda () (lambda (u--decls) (vector 11 1 1 (ParserC-45RuleC-45Source-eoi) (vector 0 u--decls))))) eta-0))) (vector 1 act-24))) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (CoreC-45ContextC-45Log-logTime arg-0 (lambda () "Elaboration") (lambda (eta-0) (CoreC-45Core-u--catch_Catchable_Core_Error (lambda (eta-1) (let ((act-25 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-2) (let ((sc2 eta-2)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (vector 1 (vector 0 )))))) (lambda (eta-2) (TTImpC-45ProcessDecls-processTTImpDecls '() arg-0 arg-1 arg-2 '() '() e-2 eta-2)) eta-1))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((act-26 (CoreC-45UnifyState-checkDelayedHoles arg-2 arg-0 eta-1))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((0) (vector 1 0)) (else (let ((e-3 (vector-ref sc4 1))) (CoreC-45Core-u--throw_Catchable_Core_Error e-3 eta-1))))))))))))))) (lambda (u--err) (lambda (eta-1) (let ((act-25 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-2) (let ((sc2 eta-2)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (vector 1 (vector 0 )))))) (lambda (eta-2) (let ((act-25 ((PreludeC-45IO-printLn (cons (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-3) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-3)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-3) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-3) (let ((act-17 (arg-578 eta-3))) (let ((act-16 (arg-580 eta-3))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-3) (let ((act-25 (arg-876 eta-3))) ((arg-877 act-25) eta-3))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-3) (let ((act-51 (arg-879 eta-3))) (act-51 eta-3)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) (cons (lambda (u--x) (CoreC-45Core-u--show_Show_Error u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Core-u--showPrec_Show_Error u--d u--x))))) u--err) eta-2))) (vector 1 act-25))) eta-1))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (vector 1 1))))))) eta-0)) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 ((PreludeC-45IO-putStrLn (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-0)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-0) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (let ((act-17 (arg-578 eta-0))) (let ((act-16 (arg-580 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (let ((act-25 (arg-876 eta-0))) ((arg-877 act-25) eta-0))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-0) (let ((act-51 (arg-879 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) (CoreC-45Core-u--show_Show_Error e-6)) ext-0))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (vector 1 1)))))))))))))))) -(define TTImpC-45ProcessDecls-processTTImpDecls (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 (CoreC-45Core-traverse_ (lambda (u--d) (lambda (eta-0) (let ((act-24 (TTImpC-45ProcessDecls-n--13905-5159-u--bindNames arg-6 arg-0 arg-5 arg-4 arg-3 arg-2 arg-1 u--d eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((TTImpC-45ElabC-45Check-processDecl arg-0 arg-1 arg-2 arg-3 '() arg-4 arg-5 e-5) eta-0)))))))) arg-6 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (vector 1 0))))))) -(define TTImpC-45ProcessDecls-processDecls (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 (CoreC-45Core-traverse_ (lambda (eta-0) (TTImpC-45ElabC-45Check-processDecl arg-0 arg-1 arg-2 arg-3 '() arg-4 arg-5 eta-0)) arg-6 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (vector 1 0))))))) +(define CoreC-45Primitives-allPrimitives (lambda () (PreludeC-45TypesC-45List-C-43C-43 (PreludeC-45Types-u--map_Functor_List (lambda (u--t) (vector (+ 1 (+ 1 0)) (vector 0 u--t) (CoreC-45Primitives-arithTy u--t) (CoreC-45TT-isTotal))) (CoreC-45Primitives-numTypes)) (PreludeC-45TypesC-45List-C-43C-43 (PreludeC-45Types-u--map_Functor_List (lambda (u--t) (vector (+ 1 (+ 1 0)) (vector 1 u--t) (CoreC-45Primitives-arithTy u--t) (CoreC-45TT-isTotal))) (CoreC-45Primitives-numTypes)) (PreludeC-45TypesC-45List-C-43C-43 (PreludeC-45Types-u--map_Functor_List (lambda (u--t) (vector (+ 1 (+ 1 0)) (vector 2 u--t) (CoreC-45Primitives-arithTy u--t) (CoreC-45TT-isTotal))) (CoreC-45Primitives-numTypes)) (PreludeC-45TypesC-45List-C-43C-43 (PreludeC-45Types-u--map_Functor_List (lambda (u--t) (vector (+ 1 0) (vector 5 u--t) (CoreC-45Primitives-predTy u--t u--t) (CoreC-45TT-isTotal))) (CoreC-45Primitives-numTypes)) (PreludeC-45TypesC-45List-C-43C-43 (PreludeC-45Types-u--map_Functor_List (lambda (u--t) (vector (+ 1 (+ 1 0)) (vector 3 u--t) (CoreC-45Primitives-arithTy u--t) (CoreC-45TT-notCovering))) (CoreC-45Primitives-numTypes)) (PreludeC-45TypesC-45List-C-43C-43 (PreludeC-45Types-u--map_Functor_List (lambda (u--t) (vector (+ 1 (+ 1 0)) (vector 4 u--t) (CoreC-45Primitives-arithTy u--t) (CoreC-45TT-notCovering))) (CoreC-45Primitives-integralTypes)) (PreludeC-45TypesC-45List-C-43C-43 (PreludeC-45Types-u--map_Functor_List (lambda (u--t) (vector (+ 1 (+ 1 0)) (vector 6 u--t) (CoreC-45Primitives-arithTy u--t) (CoreC-45TT-isTotal))) (CoreC-45Primitives-integralTypes)) (PreludeC-45TypesC-45List-C-43C-43 (PreludeC-45Types-u--map_Functor_List (lambda (u--t) (vector (+ 1 (+ 1 0)) (vector 7 u--t) (CoreC-45Primitives-arithTy u--t) (CoreC-45TT-isTotal))) (CoreC-45Primitives-integralTypes)) (PreludeC-45TypesC-45List-C-43C-43 (PreludeC-45Types-u--map_Functor_List (lambda (u--t) (vector (+ 1 (+ 1 0)) (vector 8 u--t) (CoreC-45Primitives-arithTy u--t) (CoreC-45TT-isTotal))) (CoreC-45Primitives-integralTypes)) (PreludeC-45TypesC-45List-C-43C-43 (PreludeC-45Types-u--map_Functor_List (lambda (u--t) (vector (+ 1 (+ 1 0)) (vector 9 u--t) (CoreC-45Primitives-arithTy u--t) (CoreC-45TT-isTotal))) (CoreC-45Primitives-integralTypes)) (PreludeC-45TypesC-45List-C-43C-43 (PreludeC-45Types-u--map_Functor_List (lambda (u--t) (vector (+ 1 (+ 1 0)) (vector 10 u--t) (CoreC-45Primitives-arithTy u--t) (CoreC-45TT-isTotal))) (CoreC-45Primitives-integralTypes)) (PreludeC-45TypesC-45List-C-43C-43 (PreludeC-45Types-u--map_Functor_List (lambda (u--t) (vector (+ 1 (+ 1 0)) (vector 11 u--t) (CoreC-45Primitives-cmpTy u--t) (CoreC-45TT-isTotal))) (CoreC-45Primitives-primTypes)) (PreludeC-45TypesC-45List-C-43C-43 (PreludeC-45Types-u--map_Functor_List (lambda (u--t) (vector (+ 1 (+ 1 0)) (vector 12 u--t) (CoreC-45Primitives-cmpTy u--t) (CoreC-45TT-isTotal))) (CoreC-45Primitives-primTypes)) (PreludeC-45TypesC-45List-C-43C-43 (PreludeC-45Types-u--map_Functor_List (lambda (u--t) (vector (+ 1 (+ 1 0)) (vector 13 u--t) (CoreC-45Primitives-cmpTy u--t) (CoreC-45TT-isTotal))) (CoreC-45Primitives-primTypes)) (PreludeC-45TypesC-45List-C-43C-43 (PreludeC-45Types-u--map_Functor_List (lambda (u--t) (vector (+ 1 (+ 1 0)) (vector 14 u--t) (CoreC-45Primitives-cmpTy u--t) (CoreC-45TT-isTotal))) (CoreC-45Primitives-primTypes)) (PreludeC-45TypesC-45List-C-43C-43 (PreludeC-45Types-u--map_Functor_List (lambda (u--t) (vector (+ 1 (+ 1 0)) (vector 15 u--t) (CoreC-45Primitives-cmpTy u--t) (CoreC-45TT-isTotal))) (CoreC-45Primitives-primTypes)) (PreludeC-45TypesC-45List-C-43C-43 (cons (vector (+ 1 0) (vector 16 ) (CoreC-45Primitives-predTy (vector 24 ) (vector 14 )) (CoreC-45TT-isTotal)) (cons (vector (+ 1 0) (vector 17 ) (CoreC-45Primitives-predTy (vector 24 ) (vector 25 )) (CoreC-45TT-notCovering)) (cons (vector (+ 1 0) (vector 18 ) (CoreC-45Primitives-predTy (vector 24 ) (vector 24 )) (CoreC-45TT-notCovering)) (cons (vector (+ 1 (+ 1 0)) (vector 19 ) (CoreC-45Primitives-constTy (vector 24 ) (vector 14 ) (vector 25 )) (CoreC-45TT-notCovering)) (cons (vector (+ 1 (+ 1 0)) (vector 20 ) (CoreC-45Primitives-constTy (vector 25 ) (vector 24 ) (vector 24 )) (CoreC-45TT-isTotal)) (cons (vector (+ 1 (+ 1 0)) (vector 21 ) (CoreC-45Primitives-arithTy (vector 24 )) (CoreC-45TT-isTotal)) (cons (vector (+ 1 0) (vector 22 ) (CoreC-45Primitives-predTy (vector 24 ) (vector 24 )) (CoreC-45TT-isTotal)) (cons (vector (+ 1 (+ 1 (+ 1 0))) (vector 23 ) (CoreC-45Primitives-constTy3 (vector 14 ) (vector 14 ) (vector 24 ) (vector 24 )) (CoreC-45TT-isTotal)) (cons (vector (+ 1 (+ 1 (+ 1 0))) (vector 36 ) (CoreC-45Primitives-believeMeTy) (CoreC-45TT-isTotal)) (cons (vector (+ 1 (+ 1 0)) (vector 37 ) (CoreC-45Primitives-crashTy) (CoreC-45TT-notCovering)) '())))))))))) (PreludeC-45TypesC-45List-C-43C-43 (cons (vector (+ 1 0) (vector 24 ) (CoreC-45Primitives-doubleTy) (CoreC-45TT-isTotal)) (cons (vector (+ 1 0) (vector 25 ) (CoreC-45Primitives-doubleTy) (CoreC-45TT-isTotal)) (cons (vector (+ 1 0) (vector 26 ) (CoreC-45Primitives-doubleTy) (CoreC-45TT-isTotal)) (cons (vector (+ 1 0) (vector 27 ) (CoreC-45Primitives-doubleTy) (CoreC-45TT-isTotal)) (cons (vector (+ 1 0) (vector 28 ) (CoreC-45Primitives-doubleTy) (CoreC-45TT-isTotal)) (cons (vector (+ 1 0) (vector 29 ) (CoreC-45Primitives-doubleTy) (CoreC-45TT-isTotal)) (cons (vector (+ 1 0) (vector 30 ) (CoreC-45Primitives-doubleTy) (CoreC-45TT-isTotal)) (cons (vector (+ 1 0) (vector 31 ) (CoreC-45Primitives-doubleTy) (CoreC-45TT-isTotal)) (cons (vector (+ 1 0) (vector 32 ) (CoreC-45Primitives-doubleTy) (CoreC-45TT-isTotal)) (cons (vector (+ 1 0) (vector 33 ) (CoreC-45Primitives-doubleTy) (CoreC-45TT-isTotal)) (cons (vector (+ 1 0) (vector 34 ) (CoreC-45Primitives-doubleTy) (CoreC-45TT-isTotal)) '()))))))))))) (PreludeC-45Types-u--C-62C-62C-61_Monad_List (CoreC-45Primitives-primTypes) (lambda (u--t1) (PreludeC-45Types-u--C-62C-62C-61_Monad_List (CoreC-45Primitives-primTypes) (lambda (u--t2) (PreludeC-45Interfaces-C-62C-62 (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (PreludeC-45Types-u--map_Functor_List u--func arg-133))))) (lambda (u--a) (lambda (arg-527) (PreludeC-45Types-u--pure_Applicative_List arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (PreludeC-45Types-u--C-60C-42C-62_Applicative_List arg-528 arg-530)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (PreludeC-45Types-u--C-62C-62C-61_Monad_List arg-811 arg-812))))) (lambda (u--a) (lambda (arg-814) (PreludeC-45Types-u--join_Monad_List arg-814)))) (PreludeC-45Interfaces-guard (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (PreludeC-45Types-u--map_Functor_List u--func arg-133))))) (lambda (u--a) (lambda (arg-527) (PreludeC-45Types-u--pure_Applicative_List arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (PreludeC-45Types-u--C-60C-42C-62_Applicative_List arg-528 arg-530)))))) (lambda (u--a) (PreludeC-45Types-u--empty_Alternative_List)) (lambda (u--a) (lambda (arg-763) (lambda (arg-764) (PreludeC-45Types-u--C-60C-124C-62_Alternative_List arg-763 arg-764))))) (let ((sc0 (CoreC-45TT-u--C-47C-61_Eq_Constant u--t1 u--t2))) (cond ((equal? sc0 1) (let ((sc1 (PreludeC-45EqOrd-u--C-47C-61_Eq_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (arg-2) (lambda (arg-3) (CoreC-45TT-u--C-61C-61_Eq_Constant arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (CoreC-45TT-u--C-47C-61_Eq_Constant arg-4 arg-5)))) (cons (lambda (arg-2) (lambda (arg-3) (CoreC-45TT-u--C-61C-61_Eq_Constant arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (CoreC-45TT-u--C-47C-61_Eq_Constant arg-4 arg-5)))) (cons u--t1 u--t2) (cons (vector 24 ) (vector 25 ))))) (cond ((equal? sc1 1) (let ((sc2 (PreludeC-45EqOrd-u--C-47C-61_Eq_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (arg-2) (lambda (arg-3) (CoreC-45TT-u--C-61C-61_Eq_Constant arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (CoreC-45TT-u--C-47C-61_Eq_Constant arg-4 arg-5)))) (cons (lambda (arg-2) (lambda (arg-3) (CoreC-45TT-u--C-61C-61_Eq_Constant arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (CoreC-45TT-u--C-47C-61_Eq_Constant arg-4 arg-5)))) (cons u--t1 u--t2) (cons (vector 26 ) (vector 25 ))))) (cond ((equal? sc2 1) (PreludeC-45EqOrd-u--C-47C-61_Eq_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (arg-2) (lambda (arg-3) (CoreC-45TT-u--C-61C-61_Eq_Constant arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (CoreC-45TT-u--C-47C-61_Eq_Constant arg-4 arg-5)))) (cons (lambda (arg-2) (lambda (arg-3) (CoreC-45TT-u--C-61C-61_Eq_Constant arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (CoreC-45TT-u--C-47C-61_Eq_Constant arg-4 arg-5)))) (cons u--t1 u--t2) (cons (vector 25 ) (vector 26 )))) (else 0)))) (else 0)))) (else 0)))) (lambda () (PreludeC-45Types-u--pure_Applicative_List (vector (+ 1 0) (vector 35 u--t1 u--t2) (CoreC-45Primitives-predTy u--t1 u--t2) (CoreC-45TT-isTotal))))))))))))))))))))))))))))) +(define CoreC-45Primitives-add (lambda (arg-0 arg-1) (case (vector-ref arg-0 0) ((5) (let ((e-0 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((5) (let ((e-12 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 5 (+ e-0 e-12)))))(else '())))) ((0) (let ((e-1 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((0) (let ((e-13 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 0 (bs+ e-1 e-13 63)))))(else '())))) ((1) (let ((e-2 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((1) (let ((e-14 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 1 (CoreC-45Primitives-int8CastWrap (+ e-2 e-14))))))(else '())))) ((2) (let ((e-3 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((2) (let ((e-15 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 2 (CoreC-45Primitives-int16CastWrap (+ e-3 e-15))))))(else '())))) ((3) (let ((e-4 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((3) (let ((e-16 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 3 (CoreC-45Primitives-int32CastWrap (+ e-4 e-16))))))(else '())))) ((4) (let ((e-5 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((4) (let ((e-17 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 4 (CoreC-45Primitives-int64CastWrap (+ e-5 e-17))))))(else '())))) ((6) (let ((e-6 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((6) (let ((e-18 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 6 (PreludeC-45Num-u--mod_Integral_Int (bs+ e-6 e-18 63) (CoreC-45Primitives-b8max))))))(else '())))) ((7) (let ((e-7 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((7) (let ((e-19 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 7 (PreludeC-45Num-u--mod_Integral_Int (bs+ e-7 e-19 63) (CoreC-45Primitives-b16max))))))(else '())))) ((8) (let ((e-8 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((8) (let ((e-20 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 8 (PreludeC-45Num-u--mod_Integral_Int (bs+ e-8 e-20 63) (CoreC-45Primitives-b32max))))))(else '())))) ((9) (let ((e-9 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((9) (let ((e-21 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 9 (PreludeC-45Num-u--mod_Integral_Integer (+ e-9 e-21) (CoreC-45Primitives-b64max))))))(else '())))) ((11) (let ((e-10 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((11) (let ((e-22 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 11 (PreludeC-45Cast-u--cast_Cast_Int_Char (bs+ (PreludeC-45Cast-u--cast_Cast_Char_Int e-10) (PreludeC-45Cast-u--cast_Cast_Char_Int e-22) 63))))))(else '())))) ((12) (let ((e-11 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((12) (let ((e-23 (vector-ref arg-1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 12 (PreludeC-45Num-u--C-43_Num_Double e-11 e-23)))))(else '()))))(else '())))) +(define CompilerC-45CaseOpts-n--7517-3425-u--updateAlt (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((e-1 (car arg-6))) (let ((e-2 (cdr arg-6))) (cons e-1 (vector 11 arg-5 e-2 arg-2 arg-1)))))) +(define CompilerC-45CaseOpts-n--7470-3385-u--updateAlt (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((e-1 (vector-ref arg-6 0))) (let ((e-2 (vector-ref arg-6 1))) (let ((e-3 (vector-ref arg-6 2))) (let ((e-4 (vector-ref arg-6 3))) (let ((e-5 (vector-ref arg-6 4))) (vector e-1 e-2 e-3 e-4 (vector 10 arg-5 e-5 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45CompileExpr-u--weakenNs_Weaken_CConAlt (CoreC-45TTC-45SizeOf-mkSizeOf e-4) eta-0)) arg-2) (PreludeC-45Types-u--map_Functor_Maybe (lambda (eta-0) (CoreC-45CompileExpr-u--weakenNs_Weaken_CExp (CoreC-45TTC-45SizeOf-mkSizeOf e-4) eta-0)) arg-1)))))))))) +(define CompilerC-45CaseOpts-n--7723-3608-u--go (lambda (arg-1 arg-2 arg-3) (cond ((equal? arg-2 0) arg-3)(else (let ((e-0 (- arg-2 1))) (PreludeC-45Types-maybe (lambda () arg-3) (lambda () (lambda (eta-0) (CompilerC-45CaseOpts-n--7723-3608-u--go arg-1 e-0 eta-0))) (CompilerC-45CaseOpts-tryCaseOfCase arg-3))))))) +(define CompilerC-45CaseOpts-n--7358-3287-u--doCaseLam (lambda (arg-0 arg-1 arg-2 ext-0) (case (vector-ref arg-2 0) ((0) (let ((e-0 (vector-ref arg-2 1))) (let ((e-1 (vector-ref arg-2 2))) (let ((act-24 (CoreC-45Core-newRef (vector "Compiler.CaseOpts.NextName" ) 0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CompilerC-45CaseOpts-caseLam e-5 e-1 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (vector 0 e-0 e-6)))))))))))))(else (vector 1 arg-2))))) +(define CompilerC-45CaseOpts-n--6757-2941-u--defLam (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (if (null? arg-6) 1 (let ((e-2 (unbox arg-6))) (case (vector-ref e-2 0) ((2) 1)(else 0)))))) +(define CompilerC-45CaseOpts-n--6757-2735-u--defLam (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (if (null? arg-6) 1 (let ((e-2 (unbox arg-6))) (case (vector-ref e-2 0) ((2) 1)(else 0)))))) +(define CompilerC-45CaseOpts-n--7540-3534-u--constCase (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (if (null? arg-7) 0 (let ((e-2 (cdr arg-7))) (case (vector-ref e-2 0) ((12) 1)(else 0)))))) +(define CompilerC-45CaseOpts-n--7540-3448-u--conCase (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((e-5 (vector-ref arg-7 4))) (case (vector-ref e-5 0) ((5) 1)(else 0))))) +(define CompilerC-45CaseOpts-n--7540-3535-u--canCaseOfCase (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (if (null? arg-7) 1 (let ((e-3 (cdr arg-7))) (if (null? e-3) 1 (PreludeC-45Interfaces-all (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (lambda (eta-0) (CompilerC-45CaseOpts-n--7540-3534-u--constCase arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-0)) arg-7)))))) +(define CompilerC-45CaseOpts-n--7540-3449-u--canCaseOfCase (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (if (null? arg-7) 1 (let ((e-3 (cdr arg-7))) (if (null? e-3) 1 (PreludeC-45Interfaces-all (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (lambda (eta-0) (CompilerC-45CaseOpts-n--7540-3448-u--conCase arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-0)) arg-7)))))) +(define CompilerC-45CaseOpts-tryLiftOutConst (lambda (arg-1 arg-2) (if (null? arg-2) (box '()) (let ((e-2 (car arg-2))) (let ((e-3 (cdr arg-2))) (if (null? e-2) '() (let ((e-5 (car e-2))) (let ((e-6 (cdr e-2))) (case (vector-ref e-6 0) ((2) (let ((e-10 (vector-ref e-6 3))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CompilerC-45CaseOpts-tryLiftOutConst arg-1 e-3) (lambda (u--asC-39) (let ((u--scC-39 (CompilerC-45CaseOpts-liftOutLambda '() arg-1 e-10))) (PreludeC-45Types-u--pure_Applicative_Maybe (cons (cons e-5 u--scC-39) u--asC-39)))))))(else '())))))))))) +(define CompilerC-45CaseOpts-tryLiftOut (lambda (arg-1 arg-2) (if (null? arg-2) (box '()) (let ((e-2 (car arg-2))) (let ((e-3 (cdr arg-2))) (let ((e-5 (vector-ref e-2 0))) (let ((e-6 (vector-ref e-2 1))) (let ((e-7 (vector-ref e-2 2))) (let ((e-8 (vector-ref e-2 3))) (let ((e-9 (vector-ref e-2 4))) (case (vector-ref e-9 0) ((2) (let ((e-13 (vector-ref e-9 3))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CompilerC-45CaseOpts-tryLiftOut arg-1 e-3) (lambda (u--asC-39) (let ((u--scC-39 (CompilerC-45CaseOpts-liftOutLambda e-8 arg-1 e-13))) (PreludeC-45Types-u--pure_Applicative_Maybe (cons (vector e-5 e-6 e-7 e-8 u--scC-39) u--asC-39)))))))(else '())))))))))))) +(define CompilerC-45CaseOpts-tryLiftDef (lambda (arg-1 arg-2) (if (null? arg-2) (box '()) (let ((e-2 (unbox arg-2))) (case (vector-ref e-2 0) ((2) (let ((e-6 (vector-ref e-2 3))) (let ((u--scC-39 (CompilerC-45CaseOpts-liftOutLambda '() arg-1 e-6))) (PreludeC-45Types-u--pure_Applicative_Maybe (box u--scC-39)))))(else '())))))) +(define CompilerC-45CaseOpts-tryCaseOfCase (lambda (arg-1) (case (vector-ref arg-1 0) ((10) (let ((e-1 (vector-ref arg-1 1))) (let ((e-2 (vector-ref arg-1 2))) (let ((e-3 (vector-ref arg-1 3))) (let ((e-4 (vector-ref arg-1 4))) (case (vector-ref e-2 0) ((10) (let ((e-11 (vector-ref e-2 1))) (let ((e-12 (vector-ref e-2 2))) (let ((e-13 (vector-ref e-2 3))) (let ((e-14 (vector-ref e-2 4))) (if (null? e-14) (let ((sc3 (CompilerC-45CaseOpts-n--7540-3449-u--canCaseOfCase e-13 e-12 e-11 e-4 e-3 e-1 e-13))) (cond ((equal? sc3 1) (box (CompilerC-45CaseOpts-doCaseOfCase e-11 e-12 e-13 e-3 e-4))) (else '()))) '()))))))(else '()))))))) ((11) (let ((e-6 (vector-ref arg-1 1))) (let ((e-7 (vector-ref arg-1 2))) (let ((e-8 (vector-ref arg-1 3))) (let ((e-9 (vector-ref arg-1 4))) (case (vector-ref e-7 0) ((11) (let ((e-17 (vector-ref e-7 1))) (let ((e-18 (vector-ref e-7 2))) (let ((e-19 (vector-ref e-7 3))) (let ((e-20 (vector-ref e-7 4))) (if (null? e-20) (let ((sc3 (CompilerC-45CaseOpts-n--7540-3535-u--canCaseOfCase e-19 e-18 e-17 e-9 e-8 e-6 e-19))) (cond ((equal? sc3 1) (box (CompilerC-45CaseOpts-doCaseOfConstCase e-17 e-18 e-19 e-8 e-9))) (else '()))) '()))))))(else '())))))))(else '())))) +(define CompilerC-45CaseOpts-shiftVar (lambda (arg-3 arg-4 arg-5) (if (null? arg-3) (CompilerC-45CaseOpts-shiftUnder arg-4 arg-5) (let ((e-3 (cdr arg-3))) (cond ((equal? arg-5 0) 0)(else (let ((e-4 (- arg-5 1))) (+ 1 (CompilerC-45CaseOpts-shiftVar e-3 arg-4 e-4))))))))) +(define CompilerC-45CaseOpts-shiftUnder (lambda (arg-3 arg-4) (cond ((equal? arg-4 0) (CoreC-45TT-weakenNVar (CoreC-45TTC-45SizeOf-mkSizeOf arg-3) 0))(else (let ((e-0 (- arg-4 1))) (CoreC-45TT-insertNVar (CoreC-45TTC-45SizeOf-mkSizeOf arg-3) e-0)))))) +(define CompilerC-45CaseOpts-shiftBinderConstAlt (lambda (arg-2 arg-3 arg-4 arg-5) (let ((e-1 (car arg-5))) (let ((e-2 (cdr arg-5))) (cons e-1 (CompilerC-45CaseOpts-shiftBinder arg-2 arg-3 arg-4 e-2)))))) +(define CompilerC-45CaseOpts-shiftBinderConAlt (lambda (arg-2 arg-3 arg-4 arg-5) (let ((e-1 (vector-ref arg-5 0))) (let ((e-2 (vector-ref arg-5 1))) (let ((e-3 (vector-ref arg-5 2))) (let ((e-4 (vector-ref arg-5 3))) (let ((e-5 (vector-ref arg-5 4))) (let ((u--scC-39 e-5)) (vector e-1 e-2 e-3 e-4 (CompilerC-45CaseOpts-shiftBinder (PreludeC-45TypesC-45List-C-43C-43 e-4 arg-2) arg-3 arg-4 u--scC-39)))))))))) +(define CompilerC-45CaseOpts-shiftBinder (lambda (arg-2 arg-3 arg-4 arg-5) (case (vector-ref arg-5 0) ((0) (let ((e-2 (vector-ref arg-5 1))) (let ((e-3 (vector-ref arg-5 2))) (vector 0 (CompilerC-45CaseOpts-shiftVar arg-2 arg-3 e-2) e-3)))) ((1) (let ((e-6 (vector-ref arg-5 1))) (let ((e-7 (vector-ref arg-5 2))) (vector 1 e-6 e-7)))) ((2) (let ((e-9 (vector-ref arg-5 1))) (let ((e-10 (vector-ref arg-5 2))) (let ((e-11 (vector-ref arg-5 3))) (vector 2 e-9 e-10 (CompilerC-45CaseOpts-shiftBinder (cons e-10 arg-2) arg-3 arg-4 e-11)))))) ((3) (let ((e-13 (vector-ref arg-5 1))) (let ((e-14 (vector-ref arg-5 2))) (let ((e-15 (vector-ref arg-5 3))) (let ((e-16 (vector-ref arg-5 4))) (let ((e-17 (vector-ref arg-5 5))) (vector 3 e-13 e-14 e-15 (CompilerC-45CaseOpts-shiftBinder arg-2 arg-3 arg-4 e-16) (CompilerC-45CaseOpts-shiftBinder (cons e-14 arg-2) arg-3 arg-4 e-17)))))))) ((4) (let ((e-19 (vector-ref arg-5 1))) (let ((e-20 (vector-ref arg-5 2))) (let ((e-21 (vector-ref arg-5 3))) (vector 4 e-19 (CompilerC-45CaseOpts-shiftBinder arg-2 arg-3 arg-4 e-20) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CompilerC-45CaseOpts-shiftBinder arg-2 arg-3 arg-4 eta-0)) e-21)))))) ((5) (let ((e-23 (vector-ref arg-5 1))) (let ((e-24 (vector-ref arg-5 2))) (let ((e-25 (vector-ref arg-5 3))) (let ((e-26 (vector-ref arg-5 4))) (let ((e-27 (vector-ref arg-5 5))) (vector 5 e-23 e-24 e-25 e-26 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CompilerC-45CaseOpts-shiftBinder arg-2 arg-3 arg-4 eta-0)) e-27)))))))) ((6) (let ((e-29 (vector-ref arg-5 1))) (let ((e-30 (vector-ref arg-5 2))) (let ((e-31 (vector-ref arg-5 3))) (let ((e-32 (vector-ref arg-5 4))) (vector 6 e-29 e-30 e-31 (DataC-45Vect-u--map_Functor_C-40VectC-32C-36nC-41 (lambda (eta-0) (CompilerC-45CaseOpts-shiftBinder arg-2 arg-3 arg-4 eta-0)) e-32))))))) ((7) (let ((e-34 (vector-ref arg-5 1))) (let ((e-35 (vector-ref arg-5 2))) (let ((e-36 (vector-ref arg-5 3))) (vector 7 e-34 e-35 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CompilerC-45CaseOpts-shiftBinder arg-2 arg-3 arg-4 eta-0)) e-36)))))) ((8) (let ((e-38 (vector-ref arg-5 1))) (let ((e-39 (vector-ref arg-5 2))) (let ((e-40 (vector-ref arg-5 3))) (vector 8 e-38 e-39 (CompilerC-45CaseOpts-shiftBinder arg-2 arg-3 arg-4 e-40)))))) ((9) (let ((e-42 (vector-ref arg-5 1))) (let ((e-43 (vector-ref arg-5 2))) (let ((e-44 (vector-ref arg-5 3))) (vector 9 e-42 e-43 (CompilerC-45CaseOpts-shiftBinder arg-2 arg-3 arg-4 e-44)))))) ((10) (let ((e-46 (vector-ref arg-5 1))) (let ((e-47 (vector-ref arg-5 2))) (let ((e-48 (vector-ref arg-5 3))) (let ((e-49 (vector-ref arg-5 4))) (vector 10 e-46 (CompilerC-45CaseOpts-shiftBinder arg-2 arg-3 arg-4 e-47) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CompilerC-45CaseOpts-shiftBinderConAlt arg-2 arg-3 arg-4 eta-0)) e-48) (PreludeC-45Types-u--map_Functor_Maybe (lambda (eta-0) (CompilerC-45CaseOpts-shiftBinder arg-2 arg-3 arg-4 eta-0)) e-49))))))) ((11) (let ((e-51 (vector-ref arg-5 1))) (let ((e-52 (vector-ref arg-5 2))) (let ((e-53 (vector-ref arg-5 3))) (let ((e-54 (vector-ref arg-5 4))) (vector 11 e-51 (CompilerC-45CaseOpts-shiftBinder arg-2 arg-3 arg-4 e-52) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CompilerC-45CaseOpts-shiftBinderConstAlt arg-2 arg-3 arg-4 eta-0)) e-53) (PreludeC-45Types-u--map_Functor_Maybe (lambda (eta-0) (CompilerC-45CaseOpts-shiftBinder arg-2 arg-3 arg-4 eta-0)) e-54))))))) ((12) (let ((e-56 (vector-ref arg-5 1))) (let ((e-57 (vector-ref arg-5 2))) (vector 12 e-56 e-57)))) ((13) (let ((e-59 (vector-ref arg-5 1))) (vector 13 e-59))) (else (let ((e-61 (vector-ref arg-5 1))) (let ((e-62 (vector-ref arg-5 2))) (vector 14 e-61 e-62))))))) +(define CompilerC-45CaseOpts-liftOutLambda (lambda (arg-2 ext-0 ext-1) (CompilerC-45CaseOpts-shiftBinder '() arg-2 ext-0 ext-1))) +(define CompilerC-45CaseOpts-getName (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (let ((act-25 (set-box! arg-0 (bs+ e-5 1 63)))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (vector 1 (vector 2 "clam" e-5))))))))))) +(define CompilerC-45CaseOpts-doCaseOfConstCase (lambda (arg-1 arg-2 arg-3 arg-4 arg-5) (vector 11 arg-1 arg-2 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CompilerC-45CaseOpts-n--7517-3425-u--updateAlt arg-5 arg-4 arg-3 arg-2 arg-1 eta-0)) arg-3) '()))) +(define CompilerC-45CaseOpts-doCaseOfCase (lambda (arg-1 arg-2 arg-3 arg-4 arg-5) (vector 10 arg-1 arg-2 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CompilerC-45CaseOpts-n--7470-3385-u--updateAlt arg-5 arg-4 arg-3 arg-2 arg-1 eta-0)) arg-3) '()))) +(define CompilerC-45CaseOpts-caseOfCase (lambda (arg-1) (CompilerC-45CaseOpts-n--7723-3608-u--go arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) arg-1))) +(define CompilerC-45CaseOpts-caseLamDef (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact arg-1 (let ((e-0 (vector-ref e-5 0))) e-0)) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (if (null? e-6) (vector 1 0) (let ((e-1 (unbox e-6))) (let ((e-18 (vector-ref e-1 18))) (if (null? e-18) (vector 1 0) (let ((e-24 (unbox e-18))) (let ((act-26 (CompilerC-45CaseOpts-n--7358-3287-u--doCaseLam arg-1 arg-0 e-24 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-25 (vector-ref act-26 1))) (vector 0 e-25))) (else (let ((e-25 (vector-ref act-26 1))) (CoreC-45Context-setCompiled arg-0 arg-1 e-25 ext-0)))))))))))))))))))) +(define CompilerC-45CaseOpts-caseLamConstAlt (lambda (arg-1 arg-2 ext-0) (let ((e-1 (car arg-2))) (let ((e-2 (cdr arg-2))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-3 (vector-ref eta-0 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref eta-0 1))) (vector 1 (cons e-1 e-5)))))) (lambda (eta-0) (CompilerC-45CaseOpts-caseLam arg-1 e-2 eta-0)) ext-0))))) +(define CompilerC-45CaseOpts-caseLamConAlt (lambda (arg-1 arg-2 ext-0) (let ((e-1 (vector-ref arg-2 0))) (let ((e-2 (vector-ref arg-2 1))) (let ((e-3 (vector-ref arg-2 2))) (let ((e-4 (vector-ref arg-2 3))) (let ((e-5 (vector-ref arg-2 4))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-6 (vector-ref eta-0 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref eta-0 1))) (vector 1 (vector e-1 e-2 e-3 e-4 e-6)))))) (lambda (eta-0) (CompilerC-45CaseOpts-caseLam arg-1 e-5 eta-0)) ext-0)))))))) +(define CompilerC-45CaseOpts-caseLam (lambda (arg-1 arg-2 ext-0) (case (vector-ref arg-2 0) ((10) (let ((e-1 (vector-ref arg-2 1))) (let ((e-2 (vector-ref arg-2 2))) (let ((e-3 (vector-ref arg-2 3))) (let ((e-4 (vector-ref arg-2 4))) (let ((sc1 (let ((sc2 (CompilerC-45CaseOpts-allLams e-3))) (cond ((equal? sc2 1) (CompilerC-45CaseOpts-n--6757-2735-u--defLam e-4 e-3 e-2 e-1 arg-1 e-4)) (else 0))))) (cond ((equal? sc1 1) (let ((act-24 (CompilerC-45CaseOpts-getName arg-1 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((sc3 (CompilerC-45CaseOpts-tryLiftOut e-5 e-3))) (if (null? sc3) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 "Can't happen caseLam 1") ext-0) (let ((e-6 (unbox sc3))) (let ((sc4 (CompilerC-45CaseOpts-tryLiftDef e-5 e-4))) (if (null? sc4) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 "Can't happen caseLam 2") ext-0) (let ((e-7 (unbox sc4))) (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (CompilerC-45CaseOpts-caseLamConAlt arg-1 eta-0 eta-1))) e-6 '() ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-8 (vector-ref act-25 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref act-25 1))) (let ((act-26 (if (null? e-7) (vector 1 '()) (let ((e-9 (unbox e-7))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-10 (vector-ref eta-0 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref eta-0 1))) (vector 1 (box e-10)))))) (lambda (eta-0) (CompilerC-45CaseOpts-caseLam arg-1 e-9 eta-0)) ext-0))))) (case (vector-ref act-26 0) ((0) (let ((e-9 (vector-ref act-26 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref act-26 1))) (vector 1 (vector 2 e-1 e-5 (vector 10 e-1 (CoreC-45CompileExpr-u--weaken_Weaken_CExp e-2) e-8 e-9)))))))))))))))))))))) (else (let ((act-24 (CompilerC-45CaseOpts-caseLam arg-1 e-2 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (CompilerC-45CaseOpts-caseLamConAlt arg-1 eta-0 eta-1))) e-3 '() ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-6 (vector-ref act-25 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (if (null? e-4) (vector 1 '()) (let ((e-7 (unbox e-4))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-8 (vector-ref eta-0 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref eta-0 1))) (vector 1 (box e-8)))))) (lambda (eta-0) (CompilerC-45CaseOpts-caseLam arg-1 e-7 eta-0)) ext-0))))) (case (vector-ref act-26 0) ((0) (let ((e-7 (vector-ref act-26 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (vector 10 e-1 e-5 e-6 e-7)))))))))))))))))))))) ((11) (let ((e-6 (vector-ref arg-2 1))) (let ((e-7 (vector-ref arg-2 2))) (let ((e-8 (vector-ref arg-2 3))) (let ((e-9 (vector-ref arg-2 4))) (let ((sc1 (let ((sc2 (CompilerC-45CaseOpts-allLamsConst e-8))) (cond ((equal? sc2 1) (CompilerC-45CaseOpts-n--6757-2941-u--defLam e-9 e-8 e-7 e-6 arg-1 e-9)) (else 0))))) (cond ((equal? sc1 1) (let ((act-24 (CompilerC-45CaseOpts-getName arg-1 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((sc3 (CompilerC-45CaseOpts-tryLiftOutConst e-5 e-8))) (if (null? sc3) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 "Can't happen caseLam 1") ext-0) (let ((e-1 (unbox sc3))) (let ((sc4 (CompilerC-45CaseOpts-tryLiftDef e-5 e-9))) (if (null? sc4) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 "Can't happen caseLam 2") ext-0) (let ((e-2 (unbox sc4))) (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (CompilerC-45CaseOpts-caseLamConstAlt arg-1 eta-0 eta-1))) e-1 '() ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-3 (vector-ref act-25 1))) (vector 0 e-3))) (else (let ((e-10 (vector-ref act-25 1))) (let ((act-26 (if (null? e-2) (vector 1 '()) (let ((e-3 (unbox e-2))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-4 (vector-ref eta-0 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref eta-0 1))) (vector 1 (box e-11)))))) (lambda (eta-0) (CompilerC-45CaseOpts-caseLam arg-1 e-3 eta-0)) ext-0))))) (case (vector-ref act-26 0) ((0) (let ((e-3 (vector-ref act-26 1))) (vector 0 e-3))) (else (let ((e-11 (vector-ref act-26 1))) (vector 1 (vector 2 e-6 e-5 (vector 11 e-6 (CoreC-45CompileExpr-u--weaken_Weaken_CExp e-7) e-10 e-11)))))))))))))))))))))) (else (let ((act-24 (CompilerC-45CaseOpts-caseLam arg-1 e-7 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (CompilerC-45CaseOpts-caseLamConstAlt arg-1 eta-0 eta-1))) e-8 '() ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref act-25 1))) (let ((act-26 (if (null? e-9) (vector 1 '()) (let ((e-2 (unbox e-9))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-3 (vector-ref eta-0 1))) (vector 0 e-3))) (else (let ((e-11 (vector-ref eta-0 1))) (vector 1 (box e-11)))))) (lambda (eta-0) (CompilerC-45CaseOpts-caseLam arg-1 e-2 eta-0)) ext-0))))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref act-26 1))) (vector 1 (vector 11 e-6 e-5 e-10 e-11)))))))))))))))))))))) ((2) (let ((e-11 (vector-ref arg-2 1))) (let ((e-12 (vector-ref arg-2 2))) (let ((e-13 (vector-ref arg-2 3))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-2 (vector-ref eta-0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-0 1))) (vector 1 (vector 2 e-11 e-12 e-5)))))) (lambda (eta-0) (CompilerC-45CaseOpts-caseLam arg-1 e-13 eta-0)) ext-0))))) ((3) (let ((e-15 (vector-ref arg-2 1))) (let ((e-16 (vector-ref arg-2 2))) (let ((e-17 (vector-ref arg-2 3))) (let ((e-18 (vector-ref arg-2 4))) (let ((e-19 (vector-ref arg-2 5))) (CoreC-45Core-C-60C-42C-62 (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (case (vector-ref eta-1 0) ((0) (let ((e-2 (vector-ref eta-1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-1 1))) (vector 1 (lambda (eta-2) (vector 3 e-15 e-16 e-17 e-5 eta-2))))))) (lambda (eta-1) (CompilerC-45CaseOpts-caseLam arg-1 e-18 eta-1)) eta-0)) (lambda (eta-0) (CompilerC-45CaseOpts-caseLam arg-1 e-19 eta-0)) ext-0))))))) ((4) (let ((e-21 (vector-ref arg-2 1))) (let ((e-22 (vector-ref arg-2 2))) (let ((e-23 (vector-ref arg-2 3))) (CoreC-45Core-C-60C-42C-62 (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (case (vector-ref eta-1 0) ((0) (let ((e-2 (vector-ref eta-1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-1 1))) (vector 1 (lambda (eta-2) (vector 4 e-21 e-5 eta-2))))))) (lambda (eta-1) (CompilerC-45CaseOpts-caseLam arg-1 e-22 eta-1)) eta-0)) (lambda (eta-0) (CoreC-45Core-traverseC-39 (lambda (eta-1) (lambda (eta-2) (CompilerC-45CaseOpts-caseLam arg-1 eta-1 eta-2))) e-23 '() eta-0)) ext-0))))) ((5) (let ((e-25 (vector-ref arg-2 1))) (let ((e-26 (vector-ref arg-2 2))) (let ((e-27 (vector-ref arg-2 3))) (let ((e-28 (vector-ref arg-2 4))) (let ((e-29 (vector-ref arg-2 5))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-2 (vector-ref eta-0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-0 1))) (vector 1 (vector 5 e-25 e-26 e-27 e-28 e-5)))))) (lambda (eta-0) (CoreC-45Core-traverseC-39 (lambda (eta-1) (lambda (eta-2) (CompilerC-45CaseOpts-caseLam arg-1 eta-1 eta-2))) e-29 '() eta-0)) ext-0))))))) ((6) (let ((e-31 (vector-ref arg-2 1))) (let ((e-32 (vector-ref arg-2 2))) (let ((e-33 (vector-ref arg-2 3))) (let ((e-34 (vector-ref arg-2 4))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-2 (vector-ref eta-0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-0 1))) (vector 1 (vector 6 e-31 e-32 e-33 e-5)))))) (lambda (eta-0) (CoreC-45Core-traverseVect (lambda (eta-1) (lambda (eta-2) (CompilerC-45CaseOpts-caseLam arg-1 eta-1 eta-2))) e-34 eta-0)) ext-0)))))) ((7) (let ((e-36 (vector-ref arg-2 1))) (let ((e-37 (vector-ref arg-2 2))) (let ((e-38 (vector-ref arg-2 3))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-2 (vector-ref eta-0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-0 1))) (vector 1 (vector 7 e-36 e-37 e-5)))))) (lambda (eta-0) (CoreC-45Core-traverseC-39 (lambda (eta-1) (lambda (eta-2) (CompilerC-45CaseOpts-caseLam arg-1 eta-1 eta-2))) e-38 '() eta-0)) ext-0))))) ((8) (let ((e-40 (vector-ref arg-2 1))) (let ((e-41 (vector-ref arg-2 2))) (let ((e-42 (vector-ref arg-2 3))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-2 (vector-ref eta-0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-0 1))) (vector 1 (vector 8 e-40 e-41 e-5)))))) (lambda (eta-0) (CompilerC-45CaseOpts-caseLam arg-1 e-42 eta-0)) ext-0))))) ((9) (let ((e-44 (vector-ref arg-2 1))) (let ((e-45 (vector-ref arg-2 2))) (let ((e-46 (vector-ref arg-2 3))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-2 (vector-ref eta-0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-0 1))) (vector 1 (vector 9 e-44 e-45 e-5)))))) (lambda (eta-0) (CompilerC-45CaseOpts-caseLam arg-1 e-46 eta-0)) ext-0)))))(else (vector 1 arg-2))))) +(define CompilerC-45CaseOpts-allLamsConst (lambda (arg-1) (if (null? arg-1) 1 (let ((e-2 (car arg-1))) (let ((e-3 (cdr arg-1))) (if (null? e-2) 0 (let ((e-6 (cdr e-2))) (case (vector-ref e-6 0) ((2) (CompilerC-45CaseOpts-allLamsConst e-3))(else 0))))))))) +(define CompilerC-45CaseOpts-allLams (lambda (arg-1) (if (null? arg-1) 1 (let ((e-2 (car arg-1))) (let ((e-3 (cdr arg-1))) (let ((e-9 (vector-ref e-2 4))) (case (vector-ref e-9 0) ((2) (CompilerC-45CaseOpts-allLams e-3))(else 0)))))))) +(define IdrisC-45Driver-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32stMain-6204 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 ext-0) (let ((e-2 (car arg-23))) (let ((e-3 (cdr arg-23))) (let ((act-24 (let ((act-24 (IdrisC-45IDEModeC-45REPL-initIDESocketFile e-2 e-3 ext-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (case (vector-ref e-5 0) ((0) (let ((e-4 (vector-ref e-5 1))) (let ((act-25 (let ((act-25 ((PreludeC-45IO-putStrLn (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-25 (arg-811 eta-0))) ((arg-812 act-25) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-51 (arg-814 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) e-4) ext-0))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-6 (vector-ref act-25 1))) (vector 0 e-6))) (else (let ((act-26 ((System-exitWith (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-26 (arg-811 eta-0))) ((arg-812 act-26) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-51 (arg-814 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) (cons 1 0)) ext-0))) (vector 1 act-26))))))) (else (let ((e-6 (vector-ref e-5 1))) (let ((act-25 (IdrisC-45REPLC-45Opts-setOutput arg-12 (vector 0 0 e-6 e-6) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (IdrisC-45IDEModeC-45REPL-replIDE arg-6 arg-16 arg-7 arg-18 arg-12 ext-0))))))))))))))) +(define IdrisC-45Driver-n--12099-5367-u--renderError (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 ((IdrisC-45Error-perror arg-2 arg-3 arg-4 arg-5) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (IdrisC-45Pretty-render arg-4 e-5 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 58 e-6) ext-0))))))))))) +(define IdrisC-45Driver-updateREPLOpts (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (let ((act-25 ((IdrisC-45Env-idrisGetEnv (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-25 (arg-811 eta-0))) ((arg-812 act-25) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-51 (arg-814 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) "EDITOR" 0) ext-0))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (if (null? e-6) (vector 1 0) (let ((e-1 (unbox e-6))) (let ((act-26 (set-box! arg-0 (let ((e-0 (vector-ref e-5 0))) (let ((e-18 (vector-ref e-5 1))) (let ((e-2 (vector-ref e-5 2))) (let ((e-3 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-16 (vector-ref e-5 6))) (let ((e-7 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (let ((e-10 (vector-ref e-5 10))) (let ((e-11 (vector-ref e-5 11))) (let ((e-12 (vector-ref e-5 12))) (let ((e-13 (vector-ref e-5 13))) (let ((e-14 (vector-ref e-5 14))) (let ((e-15 (vector-ref e-5 15))) (vector e-0 e-18 e-2 e-3 e-4 e-1 e-16 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15))))))))))))))))))) (vector 1 act-26)))))))))))))) +(define IdrisC-45Driver-updateEnv (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (let ((act-25 ((IdrisC-45Env-idrisGetEnv (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-25 (arg-811 eta-0))) ((arg-812 act-25) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-51 (arg-814 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) "IDRIS2_PREFIX" 0) ext-0))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (if (null? e-6) (CoreC-45Context-setPrefix arg-0 (IdrisPaths-yprefix) ext-0) (let ((e-1 (unbox e-6))) (CoreC-45Context-setPrefix arg-0 e-1 ext-0))))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((act-27 (let ((act-27 ((IdrisC-45Env-idrisGetEnv (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-27 (arg-811 eta-0))) ((arg-812 act-27) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-51 (arg-814 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) "IDRIS2_PATH" 0) ext-0))) (vector 1 act-27)))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (let ((act-28 (if (null? e-8) (vector 1 0) (let ((e-1 (unbox e-8))) ((CoreC-45Core-traverseList1_ (lambda (eta-0) (lambda (eta-1) (CoreC-45Context-addExtraDir arg-0 eta-0 eta-1))) (DataC-45List1-u--map_Functor_List1 (lambda (eta-0) (DataC-45String-trim eta-0)) (DataC-45String-split (lambda (arg-1) (PreludeC-45EqOrd-u--C-61C-61_Eq_Char arg-1 (LibrariesC-45UtilsC-45Path-pathSeparator))) e-1))) ext-0))))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((act-29 (let ((act-29 ((IdrisC-45Env-idrisGetEnv (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-29 (arg-811 eta-0))) ((arg-812 act-29) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-51 (arg-814 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) "IDRIS2_DATA" 0) ext-0))) (vector 1 act-29)))) (case (vector-ref act-29 0) ((0) (let ((e-2 (vector-ref act-29 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref act-29 1))) (let ((act-30 (if (null? e-10) (vector 1 0) (let ((e-1 (unbox e-10))) ((CoreC-45Core-traverseList1_ (lambda (eta-0) (lambda (eta-1) (CoreC-45Context-addDataDir arg-0 eta-0 eta-1))) (DataC-45List1-u--map_Functor_List1 (lambda (eta-0) (DataC-45String-trim eta-0)) (DataC-45String-split (lambda (arg-1) (PreludeC-45EqOrd-u--C-61C-61_Eq_Char arg-1 (LibrariesC-45UtilsC-45Path-pathSeparator))) e-1))) ext-0))))) (case (vector-ref act-30 0) ((0) (let ((e-2 (vector-ref act-30 1))) (vector 0 e-2))) (else (let ((act-31 (let ((act-31 ((IdrisC-45Env-idrisGetEnv (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-31 (arg-811 eta-0))) ((arg-812 act-31) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-51 (arg-814 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) "IDRIS2_LIBS" 0) ext-0))) (vector 1 act-31)))) (case (vector-ref act-31 0) ((0) (let ((e-2 (vector-ref act-31 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref act-31 1))) (let ((act-32 (if (null? e-12) (vector 1 0) (let ((e-1 (unbox e-12))) ((CoreC-45Core-traverseList1_ (lambda (eta-0) (lambda (eta-1) (CoreC-45Context-addLibDir arg-0 eta-0 eta-1))) (DataC-45List1-u--map_Functor_List1 (lambda (eta-0) (DataC-45String-trim eta-0)) (DataC-45String-split (lambda (arg-1) (PreludeC-45EqOrd-u--C-61C-61_Eq_Char arg-1 (LibrariesC-45UtilsC-45Path-pathSeparator))) e-1))) ext-0))))) (case (vector-ref act-32 0) ((0) (let ((e-2 (vector-ref act-32 1))) (vector 0 e-2))) (else (let ((act-33 (let ((act-33 ((IdrisC-45Env-idrisGetEnv (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-33 (arg-811 eta-0))) ((arg-812 act-33) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-51 (arg-814 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) "IDRIS2_PACKAGE_PATH" 0) ext-0))) (vector 1 act-33)))) (case (vector-ref act-33 0) ((0) (let ((e-2 (vector-ref act-33 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref act-33 1))) (let ((act-34 (if (null? e-14) (vector 1 0) (let ((e-1 (unbox e-14))) ((CoreC-45Core-traverseList1_ (lambda (eta-0) (lambda (eta-1) (CoreC-45Context-addPackageDir arg-0 eta-0 eta-1))) (DataC-45List1-u--map_Functor_List1 (lambda (eta-0) (DataC-45String-trim eta-0)) (DataC-45String-split (lambda (arg-1) (PreludeC-45EqOrd-u--C-61C-61_Eq_Char arg-1 (LibrariesC-45UtilsC-45Path-pathSeparator))) e-1))) ext-0))))) (case (vector-ref act-34 0) ((0) (let ((e-2 (vector-ref act-34 1))) (vector 0 e-2))) (else (let ((act-35 (let ((act-35 ((IdrisC-45Env-idrisGetEnv (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-35 (arg-811 eta-0))) ((arg-812 act-35) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-51 (arg-814 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) "IDRIS2_CG" 0) ext-0))) (vector 1 act-35)))) (case (vector-ref act-35 0) ((0) (let ((e-2 (vector-ref act-35 1))) (vector 0 e-2))) (else (let ((e-16 (vector-ref act-35 1))) (let ((act-36 (if (null? e-16) (vector 1 0) (let ((e-1 (unbox e-16))) (let ((sc13 (CoreC-45Options-getCG (let ((e-4 (vector-ref e-5 4))) e-4) e-1))) (if (null? sc13) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 (PreludeC-45TypesC-45String-C-43C-43 "Unknown code generator " (PreludeC-45Show-u--show_Show_String e-1))) ext-0) (let ((e-2 (unbox sc13))) (CoreC-45Context-setCG arg-0 e-2 ext-0)))))))) (case (vector-ref act-36 0) ((0) (let ((e-2 (vector-ref act-36 1))) (vector 0 e-2))) (else (let ((act-37 (let ((act-37 (unbox arg-0))) (vector 1 act-37)))) (case (vector-ref act-37 0) ((0) (let ((e-2 (vector-ref act-37 1))) (vector 0 e-2))) (else (let ((e-18 (vector-ref act-37 1))) (let ((act-38 (CoreC-45Core-u--catch_Catchable_Core_Error (lambda (eta-0) (IdrisC-45SetOptions-addPkgDir arg-0 "prelude" (IdrisC-45PackageC-45Types-anyBounds) eta-0)) (lambda (eta-0) (lambda (eta-1) (vector 1 0))) ext-0))) (case (vector-ref act-38 0) ((0) (let ((e-2 (vector-ref act-38 1))) (vector 0 e-2))) (else (let ((act-39 (CoreC-45Core-u--catch_Catchable_Core_Error (lambda (eta-0) (IdrisC-45SetOptions-addPkgDir arg-0 "base" (IdrisC-45PackageC-45Types-anyBounds) eta-0)) (lambda (eta-0) (lambda (eta-1) (vector 1 0))) ext-0))) (case (vector-ref act-39 0) ((0) (let ((e-2 (vector-ref act-39 1))) (vector 0 e-2))) (else (let ((act-40 (CoreC-45Context-addDataDir arg-0 (LibrariesC-45UtilsC-45Path-C-60C-47C-62 (let ((e-4 (vector-ref e-18 4))) (let ((e-53 (vector-ref e-4 0))) (let ((e-58 (vector-ref e-53 5))) e-58))) (LibrariesC-45UtilsC-45Path-C-60C-47C-62 (PreludeC-45TypesC-45String-C-43C-43 "idris2-" (LibrariesC-45DataC-45Version-showVersion 0 (IdrisC-45Version-version))) "support")) ext-0))) (case (vector-ref act-40 0) ((0) (let ((e-2 (vector-ref act-40 1))) (vector 0 e-2))) (else (let ((act-41 (CoreC-45Context-addLibDir arg-0 (LibrariesC-45UtilsC-45Path-C-60C-47C-62 (let ((e-4 (vector-ref e-18 4))) (let ((e-54 (vector-ref e-4 0))) (let ((e-59 (vector-ref e-54 5))) e-59))) (LibrariesC-45UtilsC-45Path-C-60C-47C-62 (PreludeC-45TypesC-45String-C-43C-43 "idris2-" (LibrariesC-45DataC-45Version-showVersion 0 (IdrisC-45Version-version))) "lib")) ext-0))) (case (vector-ref act-41 0) ((0) (let ((e-2 (vector-ref act-41 1))) (vector 0 e-2))) (else (let ((act-42 (let ((act-42 ((SystemC-45Directory-currentDir (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-42 (arg-811 eta-0))) ((arg-812 act-42) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-51 (arg-814 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-6881) arg-6881)))) ext-0))) (vector 1 act-42)))) (case (vector-ref act-42 0) ((0) (let ((e-2 (vector-ref act-42 1))) (vector 0 e-2))) (else (let ((e-23 (vector-ref act-42 1))) (if (null? e-23) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 "Can't get current directory") ext-0) (let ((e-1 (unbox e-23))) (CoreC-45Context-addLibDir arg-0 e-1 ext-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) +(define IdrisC-45Driver-tryYaffle (lambda (arg-0) (if (null? arg-0) (lambda (eta-0) (vector 1 0)) (let ((e-2 (car arg-0))) (let ((e-3 (cdr arg-0))) (case (vector-ref e-2 0) ((25) (let ((e-4 (vector-ref e-2 1))) (lambda (eta-0) (let ((act-24 (YaffleC-45Main-yaffleMain e-4 '() eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (vector 1 1)))))))(else (IdrisC-45Driver-tryYaffle e-3)))))))) +(define IdrisC-45Driver-tryTTM (lambda (arg-0) (if (null? arg-0) (lambda (eta-0) (vector 1 0)) (let ((e-2 (car arg-0))) (let ((e-3 (cdr arg-0))) (case (vector-ref e-2 0) ((26) (let ((e-4 (vector-ref e-2 1))) (lambda (eta-0) (let ((act-24 (CoreC-45Metadata-dumpTTM e-4 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (vector 1 1)))))))(else (IdrisC-45Driver-tryTTM e-3)))))))) +(define IdrisC-45Driver-stMain (lambda (arg-0 arg-1 ext-0) (let ((act-24 ((IdrisC-45Driver-tryYaffle arg-1) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (cond ((equal? e-5 0) (let ((act-25 ((IdrisC-45Driver-tryTTM arg-1) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((_-0 0)) (cond ((equal? e-6 0) (let ((act-26 (CoreC-45Context-initDefs ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((u--updated (PreludeC-45Types-u--foldl_Foldable_List (lambda (u--o) (lambda (lamc-0) (let ((e-2 (car lamc-0))) (CoreC-45Options-addCG (cons e-2 (vector 7 e-2)) u--o)))) (let ((e-4 (vector-ref e-7 4))) e-4) arg-0))) (let ((act-27 (CoreC-45Core-newRef (vector "Core.Context.Ctxt" ) (let ((e-0 (vector-ref e-7 0))) (let ((e-1 (vector-ref e-7 1))) (let ((e-2 (vector-ref e-7 2))) (let ((e-3 (vector-ref e-7 3))) (let ((e-31 (vector-ref e-7 5))) (let ((e-30 (vector-ref e-7 6))) (let ((e-29 (vector-ref e-7 7))) (let ((e-8 (vector-ref e-7 8))) (let ((e-9 (vector-ref e-7 9))) (let ((e-10 (vector-ref e-7 10))) (let ((e-11 (vector-ref e-7 11))) (let ((e-12 (vector-ref e-7 12))) (let ((e-13 (vector-ref e-7 13))) (let ((e-14 (vector-ref e-7 14))) (let ((e-15 (vector-ref e-7 15))) (let ((e-16 (vector-ref e-7 16))) (let ((e-17 (vector-ref e-7 17))) (let ((e-18 (vector-ref e-7 18))) (let ((e-19 (vector-ref e-7 19))) (let ((e-20 (vector-ref e-7 20))) (let ((e-21 (vector-ref e-7 21))) (let ((e-22 (vector-ref e-7 22))) (let ((e-23 (vector-ref e-7 23))) (let ((e-24 (vector-ref e-7 24))) (let ((e-25 (vector-ref e-7 25))) (let ((e-26 (vector-ref e-7 26))) (let ((e-27 (vector-ref e-7 27))) (let ((e-28 (vector-ref e-7 28))) (vector e-0 e-1 e-2 e-3 u--updated e-31 e-30 e-29 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27 e-28))))))))))))))))))))))))))))) ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (let ((act-28 (CoreC-45Core-newRef (vector "Idris.Syntax.Syn" ) (IdrisC-45Syntax-initSyntax) ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-28 1))) (let ((act-29 (CoreC-45Context-setCG e-8 (PreludeC-45Types-maybe (lambda () (vector 0 )) (lambda () (lambda (eta-0) (vector 7 (Builtin-fst eta-0)))) (DataC-45List-headC-39 arg-0)) ext-0))) (case (vector-ref act-29 0) ((0) (let ((e-2 (vector-ref act-29 1))) (vector 0 e-2))) (else (let ((act-30 (CoreC-45InitPrimitives-addPrimitives e-8 ext-0))) (case (vector-ref act-30 0) ((0) (let ((e-2 (vector-ref act-30 1))) (vector 0 e-2))) (else (let ((act-31 (CoreC-45Context-setWorkingDir e-8 "." ext-0))) (case (vector-ref act-31 0) ((0) (let ((e-2 (vector-ref act-31 1))) (vector 0 e-2))) (else (let ((act-32 (let ((act-32 (CoreC-45Context-getSession e-8 ext-0))) (case (vector-ref act-32 0) ((0) (let ((e-2 (vector-ref act-32 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref act-32 1))) (let ((sc11 (IdrisC-45Driver-ignoreMissingIpkg arg-1))) (cond ((equal? sc11 1) (CoreC-45Context-setSession e-8 (let ((e-0 (vector-ref e-13 0))) (let ((e-1 (vector-ref e-13 1))) (let ((e-2 (vector-ref e-13 2))) (let ((e-3 (vector-ref e-13 3))) (let ((e-4 (vector-ref e-13 4))) (let ((e-27 (vector-ref e-13 5))) (let ((e-26 (vector-ref e-13 6))) (let ((e-25 (vector-ref e-13 7))) (let ((e-23 (vector-ref e-13 9))) (let ((e-22 (vector-ref e-13 10))) (let ((e-21 (vector-ref e-13 11))) (let ((e-20 (vector-ref e-13 12))) (let ((e-19 (vector-ref e-13 13))) (let ((e-14 (vector-ref e-13 14))) (let ((e-15 (vector-ref e-13 15))) (let ((e-16 (vector-ref e-13 16))) (let ((e-17 (vector-ref e-13 17))) (let ((e-18 (vector-ref e-13 18))) (vector e-0 e-1 e-2 e-3 e-4 e-27 e-26 e-25 1 e-23 e-22 e-21 e-20 e-19 e-14 e-15 e-16 e-17 e-18))))))))))))))))))) ext-0)) (else (vector 1 0)))))))))) (case (vector-ref act-32 0) ((0) (let ((e-2 (vector-ref act-32 1))) (vector 0 e-2))) (else (let ((act-33 (IdrisC-45Driver-updateEnv e-8 ext-0))) (case (vector-ref act-33 0) ((0) (let ((e-2 (vector-ref act-33 1))) (vector 0 e-2))) (else (let ((u--ide (IdrisC-45SetOptions-ideMode arg-1))) (let ((u--ideSocket (IdrisC-45SetOptions-ideModeSocket arg-1))) (let ((u--outmode (cond ((equal? u--ide 1) (vector 0 0 (SystemC-45File-stdin) (SystemC-45File-stdout))) (else (vector 1 0))))) (let ((u--fname (IdrisC-45Driver-findInput arg-1))) (let ((act-34 (CoreC-45Core-newRef (vector "Idris.REPL.Opts.ROpts" ) (IdrisC-45REPLC-45Opts-defaultOpts u--fname u--outmode arg-0) ext-0))) (case (vector-ref act-34 0) ((0) (let ((e-2 (vector-ref act-34 1))) (vector 0 e-2))) (else (let ((e-15 (vector-ref act-34 1))) (let ((act-35 ((IdrisC-45Driver-showInfo e-8 e-15 arg-1) ext-0))) (case (vector-ref act-35 0) ((0) (let ((e-2 (vector-ref act-35 1))) (vector 0 e-2))) (else (let ((e-16 (vector-ref act-35 1))) (cond ((equal? e-16 1) (vector 1 0)) (else (let ((act-36 (IdrisC-45Package-processPackageOpts e-8 e-9 e-15 arg-1 ext-0))) (case (vector-ref act-36 0) ((0) (let ((e-2 (vector-ref act-36 1))) (vector 0 e-2))) (else (let ((e-17 (vector-ref act-36 1))) (cond ((equal? e-17 1) (vector 1 0)) (else ((PreludeC-45Basics-flip (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (CoreC-45Core-u--catch_Catchable_Core_Error eta-0 eta-1 eta-2)))) (lambda (eta-0) (lambda (eta-1) (IdrisC-45Driver-n--12099-5367-u--renderError arg-1 arg-0 e-8 e-9 e-15 eta-0 eta-1))) (lambda (eta-0) (let ((act-37 ((IdrisC-45SetOptions-preOptions e-8 e-15 arg-1) eta-0))) (case (vector-ref act-37 0) ((0) (let ((e-2 (vector-ref act-37 1))) (vector 0 e-2))) (else (let ((e-18 (vector-ref act-37 1))) (let ((_-1 0)) (cond ((equal? e-18 1) (let ((act-38 (let ((sc19 (IdrisC-45Driver-checkVerbose arg-1))) (cond ((equal? sc19 1) (IdrisC-45REPLC-45Opts-setOutput e-15 (vector 1 0) eta-0)) (else (vector 1 0)))))) (case (vector-ref act-38 0) ((0) (let ((e-2 (vector-ref act-38 1))) (vector 0 e-2))) (else (let ((act-39 (CoreC-45Core-newRef (vector "Core.UnifyState.UST" ) (CoreC-45UnifyState-initUState) eta-0))) (case (vector-ref act-39 0) ((0) (let ((e-2 (vector-ref act-39 1))) (vector 0 e-2))) (else (let ((e-20 (vector-ref act-39 1))) (let ((act-40 ((PreludeC-45Types-maybe (lambda () (lambda (eta-1) (vector 1 (vector 2 0)))) (lambda () (lambda (fname-0) (lambda (eta-1) (let ((act-40 (CoreC-45Directory-ctxtPathToNS e-8 fname-0 eta-1))) (case (vector-ref act-40 0) ((0) (let ((e-2 (vector-ref act-40 1))) (vector 0 e-2))) (else (let ((e-21 (vector-ref act-40 1))) (vector 1 (vector 0 e-21))))))))) u--fname) eta-0))) (case (vector-ref act-40 0) ((0) (let ((e-2 (vector-ref act-40 1))) (vector 0 e-2))) (else (let ((e-21 (vector-ref act-40 1))) (let ((act-41 (CoreC-45Core-newRef (vector "Core.Metadata.MD" ) (CoreC-45Metadata-initMetadata e-21) eta-0))) (case (vector-ref act-41 0) ((0) (let ((e-2 (vector-ref act-41 1))) (vector 0 e-2))) (else (let ((e-22 (vector-ref act-41 1))) (let ((act-42 (IdrisC-45Driver-updateREPLOpts e-15 eta-0))) (case (vector-ref act-42 0) ((0) (let ((e-2 (vector-ref act-42 1))) (vector 0 e-2))) (else (let ((act-43 (CoreC-45Context-getSession e-8 eta-0))) (case (vector-ref act-43 0) ((0) (let ((e-2 (vector-ref act-43 1))) (vector 0 e-2))) (else (let ((e-24 (vector-ref act-43 1))) (let ((act-44 (let ((sc25 (let ((e-1 (vector-ref e-24 1))) e-1))) (cond ((equal? sc25 1) (vector 1 0)) (else (let ((act-44 (IdrisC-45REPLC-45Common-iputStrLn e-8 e-15 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String (IdrisC-45Driver-banner)) eta-0))) (case (vector-ref act-44 0) ((0) (let ((e-2 (vector-ref act-44 1))) (vector 0 e-2))) (else (let ((sc27 (DataC-45List-isCons arg-0))) (cond ((equal? sc27 1) (IdrisC-45REPLC-45Common-iputStrLn e-8 e-15 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "With codegen for:") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-hsep (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (PreludeC-45Types-u--map_Functor_List eta-3 eta-4))))) (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String (Builtin-fst eta-1))) arg-0))) eta-0)) (else (vector 1 0)))))))))))) (case (vector-ref act-44 0) ((0) (let ((e-2 (vector-ref act-44 1))) (vector 0 e-2))) (else (let ((act-45 (let ((sc26 (let ((e-2 (vector-ref e-24 2))) e-2))) (cond ((equal? sc26 1) (IdrisC-45Package-findIpkg e-8 e-15 e-9 u--fname eta-0)) (else (vector 1 u--fname)))))) (case (vector-ref act-45 0) ((0) (let ((e-2 (vector-ref act-45 1))) (vector 0 e-2))) (else (let ((e-26 (vector-ref act-45 1))) (let ((act-46 (IdrisC-45REPLC-45Opts-setMainFile e-15 e-26 eta-0))) (case (vector-ref act-46 0) ((0) (let ((e-2 (vector-ref act-46 1))) (vector 0 e-2))) (else (let ((act-47 (if (null? e-26) (CoreC-45ContextC-45Log-logTime e-8 (lambda () "+ Loading prelude") (lambda (eta-1) (let ((act-47 (let ((sc29 (let ((e-0 (vector-ref e-24 0))) e-0))) (cond ((equal? sc29 1) (vector 1 0)) (else (IdrisC-45ProcessIdr-readPrelude e-8 e-20 e-9 1 eta-1)))))) (case (vector-ref act-47 0) ((0) (let ((e-2 (vector-ref act-47 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))) eta-0) (let ((e-2 (unbox e-26))) (CoreC-45ContextC-45Log-logTime e-8 (lambda () "+ Loading main file") (lambda (eta-1) (let ((act-47 (IdrisC-45REPL-loadMainFile e-8 e-20 e-9 e-22 e-15 e-2 eta-1))) (case (vector-ref act-47 0) ((0) (let ((e-3 (vector-ref act-47 1))) (vector 0 e-3))) (else (let ((e-28 (vector-ref act-47 1))) (let ((act-48 (IdrisC-45REPL-displayErrors e-8 e-20 e-9 e-22 e-15 e-28 eta-1))) (case (vector-ref act-48 0) ((0) (let ((e-3 (vector-ref act-48 1))) (vector 0 e-3))) (else (vector 1 e-28))))))))) eta-0))))) (case (vector-ref act-47 0) ((0) (let ((e-2 (vector-ref act-47 1))) (vector 0 e-2))) (else (let ((e-28 (vector-ref act-47 1))) (let ((act-48 (CoreC-45Core-u--catch_Catchable_Core_Error (IdrisC-45SetOptions-postOptions e-8 e-20 e-9 e-22 e-15 e-28 arg-1) (lambda (u--err) (lambda (eta-1) (CoreC-45Core-C-42C-62 (lambda (eta-2) (IdrisC-45REPLC-45Common-emitError e-8 e-15 e-9 u--err eta-2)) (lambda (eta-2) (vector 1 0)) eta-1))) eta-0))) (case (vector-ref act-48 0) ((0) (let ((e-2 (vector-ref act-48 1))) (vector 0 e-2))) (else (let ((e-29 (vector-ref act-48 1))) (let ((_-2 1)) (cond ((equal? e-29 1) (let ((u--doRepl 1)) (let ((sc31 (cond ((equal? u--ide 1) 1) (else u--ideSocket)))) (cond ((equal? sc31 1) (cond ((equal? u--ideSocket 1) (IdrisC-45Driver-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32stMain-6204 arg-1 arg-0 _-0 _-1 e-7 u--updated e-8 e-9 u--ide u--ideSocket u--outmode u--fname e-15 e-16 e-17 _-2 e-20 e-21 e-22 e-24 e-26 e-28 u--doRepl (IdrisC-45CommandLine-ideSocketModeAddress arg-1) eta-0)) (else (let ((act-49 (IdrisC-45REPLC-45Opts-setOutput e-15 (vector 0 0 (SystemC-45File-stdin) (SystemC-45File-stdout)) eta-0))) (case (vector-ref act-49 0) ((0) (let ((e-2 (vector-ref act-49 1))) (vector 0 e-2))) (else (IdrisC-45IDEModeC-45REPL-replIDE e-8 e-20 e-9 e-22 e-15 eta-0))))))) (else (let ((act-49 (IdrisC-45REPL-repl e-8 e-20 e-9 e-22 e-15 eta-0))) (case (vector-ref act-49 0) ((0) (let ((e-2 (vector-ref act-49 1))) (vector 0 e-2))) (else (CoreC-45ContextC-45Log-showTimeRecord e-8 eta-0))))))))) (else (let ((act-49 (let ((act-49 (unbox e-15))) (vector 1 act-49)))) (case (vector-ref act-49 0) ((0) (let ((e-2 (vector-ref act-49 1))) (vector 0 e-2))) (else (let ((e-30 (vector-ref act-49 1))) (let ((act-50 (CoreC-45ContextC-45Log-showTimeRecord e-8 eta-0))) (case (vector-ref act-50 0) ((0) (let ((e-2 (vector-ref act-50 1))) (vector 0 e-2))) (else (let ((e-41 (vector-ref e-30 6))) (if (null? e-41) (vector 1 0) (let ((act-51 ((System-exitWith (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-1)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-1) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-1) (let ((act-17 (arg-528 eta-1))) (let ((act-16 (arg-530 eta-1))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-1) (let ((act-51 (arg-811 eta-1))) ((arg-812 act-51) eta-1))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-1) (let ((act-51 (arg-814 eta-1))) (act-51 eta-1)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) (cons 1 0)) eta-0))) (vector 1 act-51))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (vector 1 0)))))))))) ext-0)))))))))))))))))))))))))))))))))))))))))))))))))) (else (vector 1 0))))))))) (else (vector 1 0))))))))) +(define IdrisC-45Driver-showInfo (lambda (arg-0 arg-1 arg-2) (if (null? arg-2) (lambda (eta-0) (vector 1 0)) (let ((e-2 (car arg-2))) (let ((e-3 (cdr arg-2))) (case (vector-ref e-2 0) ((36) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (IdrisC-45REPLC-45Common-iputStrLn arg-0 arg-1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String (CoreC-45Options-toString (let ((e-4 (vector-ref e-5 4))) (let ((e-40 (vector-ref e-4 0))) e-40)))) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (vector 1 1))))))))))(else (IdrisC-45Driver-showInfo arg-0 arg-1 e-3)))))))) +(define IdrisC-45Driver-quitOpts (lambda (arg-0) (if (null? arg-0) (lambda (eta-0) 1) (let ((e-2 (car arg-0))) (let ((e-3 (cdr arg-0))) (case (vector-ref e-2 0) ((11) (PreludeC-45Interfaces-C-62C-62 (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-24 (arg-811 eta-0))) ((arg-812 act-24) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-29 (arg-814 eta-0))) (act-29 eta-0)))))) (PreludeC-45IO-putStrLn (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-24 (arg-811 eta-0))) ((arg-812 act-24) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-51 (arg-814 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) (IdrisC-45CommandLine-versionMsg)) (lambda () (lambda (eta-0) 0)))) ((12) (let ((e-4 (vector-ref e-2 1))) (if (null? e-4) (PreludeC-45Interfaces-C-62C-62 (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-24 (arg-811 eta-0))) ((arg-812 act-24) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-29 (arg-814 eta-0))) (act-29 eta-0)))))) (PreludeC-45IO-putStrLn (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-24 (arg-811 eta-0))) ((arg-812 act-24) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-51 (arg-814 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) (IdrisC-45CommandLine-usage)) (lambda () (lambda (eta-0) 0))) (let ((e-7 (unbox e-4))) (cond ((equal? e-7 0) (PreludeC-45Interfaces-C-62C-62 (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-24 (arg-811 eta-0))) ((arg-812 act-24) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-29 (arg-814 eta-0))) (act-29 eta-0)))))) (PreludeC-45IO-putStrLn (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-24 (arg-811 eta-0))) ((arg-812 act-24) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-51 (arg-814 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) (CoreC-45OptionsC-45Log-helpTopics)) (lambda () (lambda (eta-0) 0))))(else (IdrisC-45Driver-quitOpts e-3))))))) ((10) (PreludeC-45Interfaces-C-62C-62 (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-24 (arg-811 eta-0))) ((arg-812 act-24) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-29 (arg-814 eta-0))) (act-29 eta-0)))))) (PreludeC-45IO-putStrLn (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-24 (arg-811 eta-0))) ((arg-812 act-24) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-51 (arg-814 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) (IdrisPaths-yprefix)) (lambda () (lambda (eta-0) 0))))(else (IdrisC-45Driver-quitOpts e-3)))))))) +(define IdrisC-45Driver-mainWithCodegens (lambda (arg-0 ext-0) (let ((act-24 (IdrisC-45CommandLine-getCmdOpts ext-0))) (case (vector-ref act-24 0) ((1) (let ((e-2 (vector-ref act-24 1))) (let ((act-25 ((IdrisC-45Driver-quitOpts e-2) ext-0))) ((PreludeC-45Interfaces-when (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) act-25 (lambda () (PreludeC-45Interfaces-C-62C-62 (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-26 (arg-811 eta-0))) ((arg-812 act-26) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-29 (arg-814 eta-0))) (act-29 eta-0)))))) (lambda (eta-0) (LibrariesC-45UtilsC-45Term-setupTerm eta-0)) (lambda () (lambda (eta-0) (CoreC-45Core-coreRun (lambda (eta-1) (IdrisC-45Driver-stMain arg-0 e-2 eta-1)) (lambda (u--err) (PreludeC-45Interfaces-C-62C-62 (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-1)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-1) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-1) (let ((act-17 (arg-528 eta-1))) (let ((act-16 (arg-530 eta-1))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-1) (let ((act-26 (arg-811 eta-1))) ((arg-812 act-26) eta-1))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-1) (let ((act-29 (arg-814 eta-1))) (act-29 eta-1)))))) (PreludeC-45IO-putStrLn (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-1)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-1) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-1) (let ((act-17 (arg-528 eta-1))) (let ((act-16 (arg-530 eta-1))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-1) (let ((act-26 (arg-811 eta-1))) ((arg-812 act-26) eta-1))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-1) (let ((act-51 (arg-814 eta-1))) (act-51 eta-1)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) (PreludeC-45TypesC-45String-C-43C-43 "Uncaught error: " (CoreC-45Core-u--show_Show_Error u--err))) (lambda () (System-exitWith (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-1)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-1) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-1) (let ((act-17 (arg-528 eta-1))) (let ((act-16 (arg-530 eta-1))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-1) (let ((act-26 (arg-811 eta-1))) ((arg-812 act-26) eta-1))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-1) (let ((act-51 (arg-814 eta-1))) (act-51 eta-1)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) (cons 1 0))))) (lambda (u--res) (lambda (eta-1) 0)) eta-0)))))) ext-0)))) (else (let ((e-5 (vector-ref act-24 1))) ((PreludeC-45Interfaces-C-62C-62 (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-25 (arg-811 eta-0))) ((arg-812 act-25) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-29 (arg-814 eta-0))) (act-29 eta-0)))))) (PreludeC-45IO-putStrLn (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-25 (arg-811 eta-0))) ((arg-812 act-25) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-51 (arg-814 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) e-5) (lambda () (PreludeC-45IO-putStrLn (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-25 (arg-811 eta-0))) ((arg-812 act-25) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-51 (arg-814 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) (IdrisC-45CommandLine-usage)))) ext-0))))))) +(define IdrisC-45Driver-ignoreMissingIpkg (lambda (arg-0) (if (null? arg-0) 0 (let ((e-2 (car arg-0))) (let ((e-3 (cdr arg-0))) (case (vector-ref e-2 0) ((32) 1)(else (IdrisC-45Driver-ignoreMissingIpkg e-3)))))))) +(define IdrisC-45Driver-findInput (lambda (arg-0) (if (null? arg-0) '() (let ((e-2 (car arg-0))) (let ((e-3 (cdr arg-0))) (case (vector-ref e-2 0) ((22) (let ((e-4 (vector-ref e-2 1))) (box e-4)))(else (IdrisC-45Driver-findInput e-3)))))))) +(define IdrisC-45Driver-checkVerbose (lambda (arg-0) (if (null? arg-0) 0 (let ((e-2 (car arg-0))) (let ((e-3 (cdr arg-0))) (case (vector-ref e-2 0) ((15) 1)(else (IdrisC-45Driver-checkVerbose e-3)))))))) +(define IdrisC-45Driver-banner (lambda () (PreludeC-45TypesC-45String-C-43C-43 " ____ __ _ ___ \u000a" (PreludeC-45TypesC-45String-C-43C-43 " / _/___/ /____(_)____ |__ \\ \u000a" (PreludeC-45TypesC-45String-C-43C-43 " / // __ / ___/ / ___/ __/ / Version " (PreludeC-45TypesC-45String-C-43C-43 (LibrariesC-45DataC-45Version-showVersion 1 (IdrisC-45Version-version)) (PreludeC-45TypesC-45String-C-43C-43 "\u000a" (PreludeC-45TypesC-45String-C-43C-43 " _/ // /_/ / / / (__ ) / __/ https://www.idris-lang.org \u000a" (PreludeC-45TypesC-45String-C-43C-43 " /___/\\__,_/_/ /_/____/ /____/ Type :? for help \u000a" (PreludeC-45TypesC-45String-C-43C-43 "\u000a" "Welcome to Idris 2. Enjoy yourself!")))))))))) +(define YaffleC-45Main-u--resolved_HasNames_C-40C-124UnitC-44MkUnitC-124C-41 (lambda (arg-0 arg-1 ext-0) (vector 1 0))) +(define YaffleC-45Main-u--full_HasNames_C-40C-124UnitC-44MkUnitC-124C-41 (lambda (arg-0 arg-1 ext-0) (vector 1 0))) +(define YaffleC-45Main-yaffleMain (lambda (arg-0 arg-1 ext-0) (let ((act-24 (CoreC-45Context-initDefs ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Core-newRef (vector "Core.Context.Ctxt" ) e-5 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 ((YaffleC-45Main-processArgs arg-1) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (CoreC-45Directory-ctxtPathToNS e-6 arg-0 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (let ((act-28 (CoreC-45Core-newRef (vector "Core.Metadata.MD" ) (CoreC-45Metadata-initMetadata (vector 0 e-8)) ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-28 1))) (let ((act-29 (CoreC-45Core-newRef (vector "Core.UnifyState.UST" ) (CoreC-45UnifyState-initUState) ext-0))) (case (vector-ref act-29 0) ((0) (let ((e-2 (vector-ref act-29 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref act-29 1))) (let ((act-30 (CoreC-45Context-setLogTimings e-6 e-7 ext-0))) (case (vector-ref act-30 0) ((0) (let ((e-2 (vector-ref act-30 1))) (vector 0 e-2))) (else (let ((act-31 (CoreC-45InitPrimitives-addPrimitives e-6 ext-0))) (case (vector-ref act-31 0) ((0) (let ((e-2 (vector-ref act-31 1))) (vector 0 e-2))) (else (let ((act-32 (let ((sc8 (LibrariesC-45UtilsC-45Path-extension arg-0))) (if (null? sc8) (let ((act-32 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-2 (vector-ref eta-0 1))) (vector 0 e-2))) (else (vector 1 0)))) (lambda (eta-0) (let ((act-32 ((PreludeC-45IO-putStrLn (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-1)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-1) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-1) (let ((act-17 (arg-528 eta-1))) (let ((act-16 (arg-530 eta-1))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-1) (let ((act-32 (arg-811 eta-1))) ((arg-812 act-32) eta-1))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-1) (let ((act-51 (arg-814 eta-1))) (act-51 eta-1)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) "Processing as TTImp") eta-0))) (vector 1 act-32))) ext-0))) (case (vector-ref act-32 0) ((0) (let ((e-2 (vector-ref act-32 1))) (vector 0 e-2))) (else (let ((act-33 (TTImpC-45ProcessDecls-processTTImpFile e-6 e-9 e-10 arg-0 ext-0))) (case (vector-ref act-33 0) ((0) (let ((e-2 (vector-ref act-33 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref act-33 1))) (cond ((equal? e-14 1) (let ((act-34 (CoreC-45Directory-makeBuildDirectory e-6 e-8 ext-0))) (case (vector-ref act-34 0) ((0) (let ((e-2 (vector-ref act-34 1))) (vector 0 e-2))) (else (let ((act-35 (CoreC-45Directory-getTTCFileName e-6 arg-0 "ttc" ext-0))) (case (vector-ref act-35 0) ((0) (let ((e-2 (vector-ref act-35 1))) (vector 0 e-2))) (else (let ((e-16 (vector-ref act-35 1))) (let ((act-36 (CoreC-45Binary-writeToTTC (cons (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (YaffleC-45Main-u--full_HasNames_C-40C-124UnitC-44MkUnitC-124C-41 arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (YaffleC-45Main-u--resolved_HasNames_C-40C-124UnitC-44MkUnitC-124C-41 arg-3843 arg-3844 eta-0))))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124UnitC-44MkUnitC-124C-41 arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124UnitC-44MkUnitC-124C-41 arg-1461 eta-0))))) e-6 e-10 0 arg-0 e-16 ext-0))) (case (vector-ref act-36 0) ((0) (let ((e-2 (vector-ref act-36 1))) (vector 0 e-2))) (else (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-2 (vector-ref eta-0 1))) (vector 0 e-2))) (else (vector 1 0)))) (lambda (eta-0) (let ((act-37 ((PreludeC-45IO-putStrLn (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-1)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-1) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-1) (let ((act-17 (arg-528 eta-1))) (let ((act-16 (arg-530 eta-1))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-1) (let ((act-37 (arg-811 eta-1))) ((arg-812 act-37) eta-1))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-1) (let ((act-51 (arg-814 eta-1))) (act-51 eta-1)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) "Written TTC") eta-0))) (vector 1 act-37))) ext-0)))))))))))) (else (vector 1 0)))))))))) (let ((e-1 (unbox sc8))) (cond ((equal? e-1 "ttc") (let ((act-32 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-2 (vector-ref eta-0 1))) (vector 0 e-2))) (else (vector 1 0)))) (lambda (eta-0) (let ((act-32 ((PreludeC-45IO-putStrLn (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-1)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-1) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-1) (let ((act-17 (arg-528 eta-1))) (let ((act-16 (arg-530 eta-1))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-1) (let ((act-32 (arg-811 eta-1))) ((arg-812 act-32) eta-1))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-1) (let ((act-51 (arg-814 eta-1))) (act-51 eta-1)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) "Processing as TTC") eta-0))) (vector 1 act-32))) ext-0))) (case (vector-ref act-32 0) ((0) (let ((e-2 (vector-ref act-32 1))) (vector 0 e-2))) (else (let ((act-33 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-2 (vector-ref eta-0 1))) (vector 0 e-2))) (else (vector 1 0)))) (lambda (eta-0) (CoreC-45Binary-readFromTTC (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124UnitC-44MkUnitC-124C-41 arg-1456 arg-1459 eta-1)))) (lambda (arg-1461) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124UnitC-44MkUnitC-124C-41 arg-1461 eta-1)))) e-6 e-10 1 (CoreC-45FC-emptyFC) 1 arg-0 (CoreC-45NameC-45Namespace-nsAsModuleIdent (CoreC-45NameC-45Namespace-emptyNS)) (CoreC-45NameC-45Namespace-emptyNS) eta-0)) ext-0))) (case (vector-ref act-33 0) ((0) (let ((e-2 (vector-ref act-33 1))) (vector 0 e-2))) (else (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-2 (vector-ref eta-0 1))) (vector 0 e-2))) (else (vector 1 0)))) (lambda (eta-0) (let ((act-34 ((PreludeC-45IO-putStrLn (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-1)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-1) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-1) (let ((act-17 (arg-528 eta-1))) (let ((act-16 (arg-530 eta-1))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-1) (let ((act-34 (arg-811 eta-1))) ((arg-812 act-34) eta-1))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-1) (let ((act-51 (arg-814 eta-1))) (act-51 eta-1)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) "Read TTC") eta-0))) (vector 1 act-34))) ext-0))))))))(else (let ((act-32 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-2 (vector-ref eta-0 1))) (vector 0 e-2))) (else (vector 1 0)))) (lambda (eta-0) (let ((act-32 ((PreludeC-45IO-putStrLn (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-1)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-1) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-1) (let ((act-17 (arg-528 eta-1))) (let ((act-16 (arg-530 eta-1))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-1) (let ((act-32 (arg-811 eta-1))) ((arg-812 act-32) eta-1))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-1) (let ((act-51 (arg-814 eta-1))) (act-51 eta-1)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) "Processing as TTImp") eta-0))) (vector 1 act-32))) ext-0))) (case (vector-ref act-32 0) ((0) (let ((e-2 (vector-ref act-32 1))) (vector 0 e-2))) (else (let ((act-33 (TTImpC-45ProcessDecls-processTTImpFile e-6 e-9 e-10 arg-0 ext-0))) (case (vector-ref act-33 0) ((0) (let ((e-2 (vector-ref act-33 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref act-33 1))) (cond ((equal? e-14 1) (let ((act-34 (CoreC-45Directory-makeBuildDirectory e-6 e-8 ext-0))) (case (vector-ref act-34 0) ((0) (let ((e-2 (vector-ref act-34 1))) (vector 0 e-2))) (else (let ((act-35 (CoreC-45Directory-getTTCFileName e-6 arg-0 "ttc" ext-0))) (case (vector-ref act-35 0) ((0) (let ((e-2 (vector-ref act-35 1))) (vector 0 e-2))) (else (let ((e-16 (vector-ref act-35 1))) (let ((act-36 (CoreC-45Binary-writeToTTC (cons (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (YaffleC-45Main-u--full_HasNames_C-40C-124UnitC-44MkUnitC-124C-41 arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (YaffleC-45Main-u--resolved_HasNames_C-40C-124UnitC-44MkUnitC-124C-41 arg-3843 arg-3844 eta-0))))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124UnitC-44MkUnitC-124C-41 arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124UnitC-44MkUnitC-124C-41 arg-1461 eta-0))))) e-6 e-10 0 arg-0 e-16 ext-0))) (case (vector-ref act-36 0) ((0) (let ((e-2 (vector-ref act-36 1))) (vector 0 e-2))) (else (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-2 (vector-ref eta-0 1))) (vector 0 e-2))) (else (vector 1 0)))) (lambda (eta-0) (let ((act-37 ((PreludeC-45IO-putStrLn (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-1)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-1) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-1) (let ((act-17 (arg-528 eta-1))) (let ((act-16 (arg-530 eta-1))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-1) (let ((act-37 (arg-811 eta-1))) ((arg-812 act-37) eta-1))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-1) (let ((act-51 (arg-814 eta-1))) (act-51 eta-1)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) "Written TTC") eta-0))) (vector 1 act-37))) ext-0)))))))))))) (else (vector 1 0))))))))))))))))) (case (vector-ref act-32 0) ((0) (let ((e-2 (vector-ref act-32 1))) (vector 0 e-2))) (else (let ((act-33 (let ((act-33 (unbox e-10))) (vector 1 act-33)))) (case (vector-ref act-33 0) ((0) (let ((e-2 (vector-ref act-33 1))) (vector 0 e-2))) (else (YaffleC-45REPL-repl e-6 e-9 e-10 ext-0))))))))))))))))))))))))))))))))))))))) +(define YaffleC-45Main-usage (lambda () "Usage: yaffle [--timing]")) +(define YaffleC-45Main-processArgs (lambda (arg-0) (if (null? arg-0) (lambda (eta-0) (vector 1 0)) (let ((e-2 (car arg-0))) (let ((e-3 (cdr arg-0))) (lambda (clam-0) (cond ((equal? e-2 "--timing") (if (null? e-3) (vector 1 1) (let ((act-24 ((PreludeC-45Interfaces-C-62C-62 (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-24 (arg-811 eta-0))) ((arg-812 act-24) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-29 (arg-814 eta-0))) (act-29 eta-0)))))) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) 0) (PreludeC-45IO-putStrLn (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-1)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-1) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-1) (let ((act-17 (arg-528 eta-1))) (let ((act-16 (arg-530 eta-1))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-1) (let ((act-24 (arg-811 eta-1))) ((arg-812 act-24) eta-1))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-1) (let ((act-51 (arg-814 eta-1))) (act-51 eta-1)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) (YaffleC-45Main-usage)) eta-0)) (lambda () (System-exitWith (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-24 (arg-811 eta-0))) ((arg-812 act-24) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-51 (arg-814 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) (cons 1 0)))) clam-0))) (vector 1 act-24))))(else (let ((act-24 ((PreludeC-45Interfaces-C-62C-62 (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-24 (arg-811 eta-0))) ((arg-812 act-24) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-29 (arg-814 eta-0))) (act-29 eta-0)))))) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) 0) (PreludeC-45IO-putStrLn (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-1)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-1) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-1) (let ((act-17 (arg-528 eta-1))) (let ((act-16 (arg-530 eta-1))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-1) (let ((act-24 (arg-811 eta-1))) ((arg-812 act-24) eta-1))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-1) (let ((act-51 (arg-814 eta-1))) (act-51 eta-1)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) (YaffleC-45Main-usage)) eta-0)) (lambda () (System-exitWith (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-24 (arg-811 eta-0))) ((arg-812 act-24) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-51 (arg-814 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) (cons 1 0)))) clam-0))) (vector 1 act-24)))))))))) +(define YaffleC-45REPL-n--10272-583-u--printName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((e-2 (car arg-5))) (let ((e-3 (cdr arg-5))) (let ((e-7 (cdr e-3))) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-normaliseHoles arg-4 '() e-5 '() e-7 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref act-25 1))) (let ((act-26 ((TTImpC-45Unelab-unelab '() arg-4 '() e-8) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-4 (vector-ref act-26 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref act-26 1))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-4 (vector-ref eta-0 1))) (vector 0 e-4))) (else (vector 1 0)))) (lambda (eta-0) (let ((act-27 ((PreludeC-45IO-putStrLn (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-1)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-1) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-1) (let ((act-17 (arg-528 eta-1))) (let ((act-16 (arg-530 eta-1))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-1) (let ((act-27 (arg-811 eta-1))) ((arg-812 act-27) eta-1))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-1) (let ((act-51 (arg-814 eta-1))) (act-51 eta-1)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-2) (PreludeC-45TypesC-45String-C-43C-43 " : " (TTImpC-45TTImp-u--show_Show_RawImp e-9)))) eta-0))) (vector 1 act-27))) ext-0)))))))))))))))))) +(define YaffleC-45REPL-showInfo (lambda (arg-0 ext-0) (let ((e-2 (car arg-0))) (let ((e-3 (cdr arg-0))) (let ((e-7 (cdr e-3))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-4 (vector-ref eta-0 1))) (vector 0 e-4))) (else (vector 1 0)))) (lambda (eta-0) (let ((act-24 ((PreludeC-45IO-putStrLn (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-1)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-1) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-1) (let ((act-17 (arg-528 eta-1))) (let ((act-16 (arg-530 eta-1))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-1) (let ((act-24 (arg-811 eta-1))) ((arg-812 act-24) eta-1))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-1) (let ((act-51 (arg-814 eta-1))) (act-51 eta-1)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-2) (PreludeC-45TypesC-45String-C-43C-43 " ==>\u000a" (PreludeC-45TypesC-45String-C-43C-43 "\u0009" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Context-u--show_Show_Def (let ((e-17 (vector-ref e-7 17))) e-17)) (PreludeC-45TypesC-45String-C-43C-43 "\u000a" (PreludeC-45TypesC-45String-C-43C-43 "\u0009" (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45Context-u--show_Show_SCCall u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Context-u--showPrec_Show_SCCall u--d u--x)))) (let ((e-20 (vector-ref e-7 20))) e-20)) "\u000a")))))))) eta-0))) (vector 1 act-24))) ext-0)))))) +(define YaffleC-45REPL-repl (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-2 (vector-ref eta-0 1))) (vector 0 e-2))) (else (vector 1 0)))) (lambda (eta-0) (let ((act-24 ((PreludeC-45IO-putStr (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-1)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-1) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-1) (let ((act-17 (arg-528 eta-1))) (let ((act-16 (arg-530 eta-1))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-1) (let ((act-24 (arg-811 eta-1))) ((arg-812 act-24) eta-1))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-1) (let ((act-51 (arg-814 eta-1))) (act-51 eta-1)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) "Yaffle> ") eta-0))) (vector 1 act-24))) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 (let ((act-25 ((PreludeC-45IO-getLine (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-25 (arg-811 eta-0))) ((arg-812 act-25) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-51 (arg-814 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-6881) arg-6881)))) ext-0))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((sc2 (ParserC-45Source-runParser 1 (vector 2 0) '() e-6 (TTImpC-45Parser-command)))) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (let ((act-26 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-3 (vector-ref eta-0 1))) (vector 0 e-3))) (else (vector 1 0)))) (lambda (eta-0) (let ((act-26 ((PreludeC-45IO-printLn (cons (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-1)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-1) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-1) (let ((act-17 (arg-528 eta-1))) (let ((act-16 (arg-530 eta-1))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-1) (let ((act-26 (arg-811 eta-1))) ((arg-812 act-26) eta-1))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-1) (let ((act-51 (arg-814 eta-1))) (act-51 eta-1)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) (cons (lambda (u--x) (CoreC-45Core-u--show_Show_Error u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Core-u--showPrec_Show_Error u--d u--x))))) e-2) eta-0))) (vector 1 act-26))) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-3 (vector-ref act-26 1))) (vector 0 e-3))) (else (YaffleC-45REPL-repl arg-0 arg-1 arg-2 ext-0)))))) (else (let ((e-7 (vector-ref sc2 1))) (let ((e-9 (cdr e-7))) (let ((act-26 (YaffleC-45REPL-processCatch arg-0 arg-1 arg-2 e-9 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref act-26 1))) (cond ((equal? e-10 1) (YaffleC-45REPL-repl arg-0 arg-1 arg-2 ext-0)) (else (vector 1 0))))))))))))))))))))) +(define YaffleC-45REPL-processCatch (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (CoreC-45Core-u--catch_Catchable_Core_Error (lambda (eta-0) (YaffleC-45REPL-process arg-0 arg-1 arg-2 arg-3 eta-0)) (lambda (u--err) (lambda (eta-0) (let ((act-24 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (case (vector-ref eta-1 0) ((0) (let ((e-2 (vector-ref eta-1 1))) (vector 0 e-2))) (else (vector 1 0)))) (lambda (eta-1) (let ((act-24 ((PreludeC-45IO-putStrLn (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-2) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-2)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-2) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-2) (let ((act-17 (arg-528 eta-2))) (let ((act-16 (arg-530 eta-2))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-2) (let ((act-24 (arg-811 eta-2))) ((arg-812 act-24) eta-2))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-2) (let ((act-51 (arg-814 eta-2))) (act-51 eta-2)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) (CoreC-45Core-u--show_Show_Error u--err)) eta-1))) (vector 1 act-24))) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (vector 1 1)))))) ext-0))) +(define YaffleC-45REPL-process (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (case (vector-ref arg-3 0) ((0) (let ((e-0 (vector-ref arg-3 1))) (let ((act-24 ((TTImpC-45Elab-elabTerm '() arg-0 arg-1 arg-2 0 (vector 2 ) '() '() '() e-0 '()) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((e-2 (car e-5))) (let ((act-25 (let ((act-25 (unbox arg-0))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Normalise-normalise arg-0 '() e-6 '() e-2 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-4 (vector-ref act-26 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (let ((act-27 ((TTImpC-45Unelab-unelab '() arg-0 '() e-7) ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-4 (vector-ref act-27 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref act-27 1))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-4 (vector-ref eta-0 1))) (vector 0 e-4))) (else (vector 1 0)))) (lambda (eta-0) (let ((act-28 ((PreludeC-45IO-printLn (cons (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-1)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-1) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-1) (let ((act-17 (arg-528 eta-1))) (let ((act-16 (arg-530 eta-1))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-1) (let ((act-28 (arg-811 eta-1))) ((arg-812 act-28) eta-1))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-1) (let ((act-51 (arg-814 eta-1))) (act-51 eta-1)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) (cons (lambda (u--x) (TTImpC-45TTImp-u--show_Show_RawImp u--x)) (lambda (u--d) (lambda (u--x) (TTImpC-45TTImp-u--showPrec_Show_RawImp u--d u--x))))) e-8) eta-0))) (vector 1 act-28))) ext-0))))))) (case (vector-ref act-27 0) ((0) (let ((e-4 (vector-ref act-27 1))) (vector 0 e-4))) (else (vector 1 1))))))))))))))))))) ((1) (let ((e-1 (vector-ref arg-3 1))) (case (vector-ref e-1 0) ((0) (let ((e-9 (vector-ref e-1 1))) (let ((e-10 (vector-ref e-1 2))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-lookupTyName e-10 (let ((e-0 (vector-ref e-5 0))) e-0) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Core-traverse_ (lambda (eta-0) (lambda (eta-1) (YaffleC-45REPL-n--10272-583-u--printName e-9 e-10 arg-2 arg-1 arg-0 eta-0 eta-1))) e-6 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (vector 1 1)))))))))))))))(else (let ((act-24 ((TTImpC-45Elab-elabTerm '() arg-0 arg-1 arg-2 0 (vector 2 ) '() '() '() e-1 '()) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((e-3 (cdr e-5))) (let ((act-25 (let ((act-25 (unbox arg-0))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 ((CoreC-45Normalise-getTerm e-3) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-4 (vector-ref act-26 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (CoreC-45Normalise-normaliseHoles arg-0 '() e-6 '() e-7 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-4 (vector-ref act-27 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref act-27 1))) (let ((act-28 (let ((act-28 ((TTImpC-45Unelab-unelab '() arg-0 '() e-8) ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-4 (vector-ref act-28 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref act-28 1))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-4 (vector-ref eta-0 1))) (vector 0 e-4))) (else (vector 1 0)))) (lambda (eta-0) (let ((act-29 ((PreludeC-45IO-printLn (cons (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-1)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-1) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-1) (let ((act-17 (arg-528 eta-1))) (let ((act-16 (arg-530 eta-1))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-1) (let ((act-29 (arg-811 eta-1))) ((arg-812 act-29) eta-1))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-1) (let ((act-51 (arg-814 eta-1))) (act-51 eta-1)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) (cons (lambda (u--x) (TTImpC-45TTImp-u--show_Show_RawImp u--x)) (lambda (u--d) (lambda (u--x) (TTImpC-45TTImp-u--showPrec_Show_RawImp u--d u--x))))) e-9) eta-0))) (vector 1 act-29))) ext-0))))))) (case (vector-ref act-28 0) ((0) (let ((e-4 (vector-ref act-28 1))) (vector 0 e-4))) (else (vector 1 1))))))))))))))))))))))))) ((2) (let ((e-2 (vector-ref arg-3 1))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-lookupTyName e-2 (let ((e-0 (vector-ref e-5 0))) e-0) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-3 (vector-ref act-25 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref act-25 1))) (if (null? e-6) (CoreC-45Context-undefinedName arg-0 (CoreC-45FC-justFC (CoreC-45FC-defaultFC)) e-2 ext-0) (let ((e-1 (car e-6))) (let ((e-3 (cdr e-6))) (if (null? e-1) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 17 (CoreC-45FC-justFC (CoreC-45FC-defaultFC)) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-fst eta-0)) e-6)) ext-0) (let ((e-8 (car e-1))) (let ((e-7 (cdr e-1))) (if (null? e-7) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 17 (CoreC-45FC-justFC (CoreC-45FC-defaultFC)) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-fst eta-0)) e-6)) ext-0) (let ((e-11 (cdr e-7))) (if (null? e-3) (let ((act-26 (CoreC-45Unify-search '() arg-0 arg-2 (CoreC-45FC-justFC (CoreC-45FC-defaultFC)) (AlgebraC-45ZeroOneOmega-u--top_Top_ZeroOneOmega) 0 (PreludeC-45Types-u--fromInteger_Num_Nat 1000) e-8 e-11 '() ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-4 (vector-ref act-26 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref act-26 1))) (let ((act-27 (let ((act-27 (unbox arg-0))) (vector 1 act-27)))) (case (vector-ref act-27 0) ((0) (let ((e-4 (vector-ref act-27 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref act-27 1))) (let ((act-28 (CoreC-45Normalise-normaliseHoles arg-0 '() e-12 '() e-9 ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-4 (vector-ref act-28 1))) (vector 0 e-4))) (else (let ((e-13 (vector-ref act-28 1))) (let ((act-29 (let ((act-29 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-0))))) e-13 ext-0))) (case (vector-ref act-29 0) ((0) (let ((e-4 (vector-ref act-29 1))) (vector 0 e-4))) (else (let ((e-14 (vector-ref act-29 1))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-4 (vector-ref eta-0 1))) (vector 0 e-4))) (else (vector 1 0)))) (lambda (eta-0) (let ((act-30 ((PreludeC-45IO-printLn (cons (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-1)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-1) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-1) (let ((act-17 (arg-528 eta-1))) (let ((act-16 (arg-530 eta-1))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-1) (let ((act-30 (arg-811 eta-1))) ((arg-812 act-30) eta-1))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-1) (let ((act-51 (arg-814 eta-1))) (act-51 eta-1)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) (cons (lambda (u--x) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 '() u--d u--x))))) e-14) eta-0))) (vector 1 act-30))) ext-0))))))) (case (vector-ref act-29 0) ((0) (let ((e-4 (vector-ref act-29 1))) (vector 0 e-4))) (else (vector 1 1)))))))))))))))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 17 (CoreC-45FC-justFC (CoreC-45FC-defaultFC)) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-fst eta-0)) e-6)) ext-0)))))))))))))))))))) ((3) (let ((e-3 (vector-ref arg-3 1))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-lookupTyName e-3 (let ((e-0 (vector-ref e-5 0))) e-0) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (if (null? e-6) (CoreC-45Context-undefinedName arg-0 (CoreC-45FC-justFC (CoreC-45FC-defaultFC)) e-3 ext-0) (let ((e-1 (car e-6))) (let ((e-2 (cdr e-6))) (if (null? e-1) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 17 (CoreC-45FC-justFC (CoreC-45FC-defaultFC)) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-fst eta-0)) e-6)) ext-0) (let ((e-8 (car e-1))) (let ((e-7 (cdr e-1))) (if (null? e-7) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 17 (CoreC-45FC-justFC (CoreC-45FC-defaultFC)) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-fst eta-0)) e-6)) ext-0) (if (null? e-2) (let ((act-26 (TTImpC-45InteractiveC-45ExprSearch-exprSearchN arg-0 arg-1 arg-2 (CoreC-45FC-justFC (CoreC-45FC-defaultFC)) (+ 1 0) e-8 '() ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-4 (vector-ref act-26 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref act-26 1))) (let ((act-27 (CoreC-45Core-traverse_ (lambda (eta-0) (lambda (eta-1) (let ((act-27 ((PreludeC-45IO-printLn (cons (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-2) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-2)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-2) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-2) (let ((act-17 (arg-528 eta-2))) (let ((act-16 (arg-530 eta-2))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-2) (let ((act-27 (arg-811 eta-2))) ((arg-812 act-27) eta-2))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-2) (let ((act-51 (arg-814 eta-2))) (act-51 eta-2)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) (cons (lambda (u--x) (TTImpC-45TTImp-u--show_Show_RawImp u--x)) (lambda (u--d) (lambda (u--x) (TTImpC-45TTImp-u--showPrec_Show_RawImp u--d u--x))))) eta-0) eta-1))) (vector 1 act-27)))) e-9 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-4 (vector-ref act-27 1))) (vector 0 e-4))) (else (vector 1 1)))))))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 17 (CoreC-45FC-justFC (CoreC-45FC-defaultFC)) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-fst eta-0)) e-6)) ext-0))))))))))))))))))) ((4) (let ((e-4 (vector-ref arg-3 1))) (let ((e-5 (vector-ref arg-3 2))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Metadata-findTyDeclAt arg-1 (lambda (u--p) (lambda (u--n) (CoreC-45FC-onLine e-4 u--p))) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-25 1))) (if (null? e-7) (let ((act-26 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-2 (vector-ref eta-0 1))) (vector 0 e-2))) (else (vector 1 0)))) (lambda (eta-0) (let ((act-26 ((PreludeC-45IO-putStrLn (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-1)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-1) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-1) (let ((act-17 (arg-528 eta-1))) (let ((act-16 (arg-530 eta-1))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-1) (let ((act-26 (arg-811 eta-1))) ((arg-812 act-26) eta-1))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-1) (let ((act-51 (arg-814 eta-1))) (act-51 eta-1)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) (PreludeC-45TypesC-45String-C-43C-43 "Can't find declaration for " (CoreC-45Name-u--show_Show_Name e-5))) eta-0))) (vector 1 act-26))) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (vector 1 1)))) (let ((e-1 (unbox e-7))) (let ((e-8 (cdr e-1))) (let ((e-11 (car e-8))) (let ((e-10 (cdr e-8))) (let ((act-26 (let ((act-26 (CoreC-45Context-lookupDefExact e-11 (let ((e-0 (vector-ref e-6 0))) e-0) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref act-26 1))) (if (null? e-12) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-2 (vector-ref eta-0 1))) (vector 0 e-2))) (else (vector 1 0)))) (lambda (eta-0) (let ((act-27 ((PreludeC-45IO-putStrLn (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-1)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-1) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-1) (let ((act-17 (arg-528 eta-1))) (let ((act-16 (arg-530 eta-1))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-1) (let ((act-27 (arg-811 eta-1))) ((arg-812 act-27) eta-1))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-1) (let ((act-51 (arg-814 eta-1))) (act-51 eta-1)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) (PreludeC-45TypesC-45String-C-43C-43 "Can't find declaration for " (CoreC-45Name-u--show_Show_Name e-5))) eta-0))) (vector 1 act-27))) ext-0) (let ((e-2 (unbox e-12))) (case (vector-ref e-2 0) ((0) (CoreC-45Core-u--catch_Catchable_Core_Error (lambda (eta-0) (let ((act-27 (CoreC-45ContextC-45Log-logTime arg-0 (lambda () "Generation") (lambda (eta-1) (TTImpC-45InteractiveC-45GenerateDef-makeDefN arg-0 arg-1 arg-2 (lambda (u--p) (lambda (u--n) (CoreC-45FC-onLine e-4 u--p))) (+ 1 0) e-11 eta-1)) eta-0))) (case (vector-ref act-27 0) ((0) (let ((e-3 (vector-ref act-27 1))) (vector 0 e-3))) (else (let ((e-15 (vector-ref act-27 1))) (if (null? e-15) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (case (vector-ref eta-1 0) ((0) (let ((e-3 (vector-ref eta-1 1))) (vector 0 e-3))) (else (vector 1 0)))) (lambda (eta-1) (let ((act-28 ((PreludeC-45IO-putStrLn (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-2) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-2)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-2) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-2) (let ((act-17 (arg-528 eta-2))) (let ((act-16 (arg-530 eta-2))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-2) (let ((act-28 (arg-811 eta-2))) ((arg-812 act-28) eta-2))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-2) (let ((act-51 (arg-814 eta-2))) (act-51 eta-2)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) "Failed") eta-1))) (vector 1 act-28))) eta-0) (let ((e-16 (car e-15))) (if (null? e-16) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (case (vector-ref eta-1 0) ((0) (let ((e-17 (vector-ref eta-1 1))) (vector 0 e-17))) (else (vector 1 0)))) (lambda (eta-1) (let ((act-28 ((PreludeC-45IO-putStrLn (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-2) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-2)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-2) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-2) (let ((act-17 (arg-528 eta-2))) (let ((act-16 (arg-530 eta-2))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-2) (let ((act-28 (arg-811 eta-2))) ((arg-812 act-28) eta-2))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-2) (let ((act-51 (arg-814 eta-2))) (act-51 eta-2)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) "Failed") eta-1))) (vector 1 act-28))) eta-0) (let ((e-17 (cdr e-16))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (case (vector-ref eta-1 0) ((0) (let ((e-19 (vector-ref eta-1 1))) (vector 0 e-19))) (else (vector 1 0)))) (lambda (eta-1) (let ((act-28 ((PreludeC-45IO-putStrLn (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-2) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-2)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-2) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-2) (let ((act-17 (arg-528 eta-2))) (let ((act-16 (arg-530 eta-2))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-2) (let ((act-28 (arg-811 eta-2))) ((arg-812 act-28) eta-2))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-2) (let ((act-51 (arg-814 eta-2))) (act-51 eta-2)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (TTImpC-45TTImp-u--show_Show_ImpClause u--x)) (lambda (u--d) (lambda (u--x) (TTImpC-45TTImp-u--showPrec_Show_ImpClause u--d u--x)))) e-17)) eta-1))) (vector 1 act-28))) eta-0)))))))))) (lambda (u--err) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (case (vector-ref eta-1 0) ((0) (let ((e-3 (vector-ref eta-1 1))) (vector 0 e-3))) (else (vector 1 0)))) (lambda (eta-1) (let ((act-27 ((PreludeC-45IO-putStrLn (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-2) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-2)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-2) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-2) (let ((act-17 (arg-528 eta-2))) (let ((act-16 (arg-530 eta-2))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-2) (let ((act-27 (arg-811 eta-2))) ((arg-812 act-27) eta-2))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-2) (let ((act-51 (arg-814 eta-2))) (act-51 eta-2)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) (PreludeC-45TypesC-45String-C-43C-43 "Can't find a definition for " (CoreC-45Name-u--show_Show_Name e-11))) eta-1))) (vector 1 act-27))) eta-0))) ext-0))(else (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-3 (vector-ref eta-0 1))) (vector 0 e-3))) (else (vector 1 0)))) (lambda (eta-0) (let ((act-27 ((PreludeC-45IO-putStrLn (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-1)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-1) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-1) (let ((act-17 (arg-528 eta-1))) (let ((act-16 (arg-530 eta-1))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-1) (let ((act-27 (arg-811 eta-1))) ((arg-812 act-27) eta-1))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-1) (let ((act-51 (arg-814 eta-1))) (act-51 eta-1)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) "Already defined") eta-0))) (vector 1 act-27))) ext-0))))))))))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (vector 1 1)))))))))))))))))))) ((5) (let ((e-6 (vector-ref arg-3 1))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtName e-6 (let ((e-0 (vector-ref e-5 0))) e-0)) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-25 1))) (if (null? e-7) (CoreC-45Context-undefinedName arg-0 (CoreC-45FC-emptyFC) e-6 ext-0) (let ((act-26 (CoreC-45Core-traverse_ (lambda (u--fn) (lambda (eta-0) (let ((act-26 (CoreC-45Context-getTotality arg-0 (CoreC-45FC-emptyFC) u--fn eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-26 1))) (let ((e-1 (cdr e-8))) (case (vector-ref e-1 0) ((1) (let ((e-2 (vector-ref e-1 1))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (case (vector-ref eta-1 0) ((0) (let ((e-3 (vector-ref eta-1 1))) (vector 0 e-3))) (else (vector 1 0)))) (lambda (eta-1) (let ((act-27 ((PreludeC-45IO-putStrLn (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-2) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-2)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-2) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-2) (let ((act-17 (arg-528 eta-2))) (let ((act-16 (arg-530 eta-2))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-2) (let ((act-27 (arg-811 eta-2))) ((arg-812 act-27) eta-2))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-2) (let ((act-51 (arg-814 eta-2))) (act-51 eta-2)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name u--fn) (PreludeC-45TypesC-45String-C-43C-43 ":\u000a" (CoreC-45NameC-45Namespace-showSep "\u000a" (PreludeC-45Types-u--map_Functor_List (lambda (eta-2) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() eta-2)) e-2))))) eta-1))) (vector 1 act-27))) eta-0))) ((2) (let ((e-2 (vector-ref e-1 1))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (case (vector-ref eta-1 0) ((0) (let ((e-3 (vector-ref eta-1 1))) (vector 0 e-3))) (else (vector 1 0)))) (lambda (eta-1) (let ((act-27 ((PreludeC-45IO-putStrLn (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-2) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-2)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-2) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-2) (let ((act-17 (arg-528 eta-2))) (let ((act-16 (arg-530 eta-2))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-2) (let ((act-27 (arg-811 eta-2))) ((arg-812 act-27) eta-2))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-2) (let ((act-51 (arg-814 eta-2))) (act-51 eta-2)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name u--fn) (PreludeC-45TypesC-45String-C-43C-43 ": Calls non covering function" (if (null? e-2) (PreludeC-45TypesC-45String-C-43C-43 "s: " (CoreC-45NameC-45Namespace-showSep ", " (PreludeC-45Types-u--map_Functor_List (lambda (eta-2) (CoreC-45Name-u--show_Show_Name eta-2)) e-2))) (let ((e-4 (car e-2))) (let ((e-3 (cdr e-2))) (if (null? e-3) (PreludeC-45TypesC-45String-C-43C-43 " " (CoreC-45Name-u--show_Show_Name e-4)) (PreludeC-45TypesC-45String-C-43C-43 "s: " (CoreC-45NameC-45Namespace-showSep ", " (PreludeC-45Types-u--map_Functor_List (lambda (eta-2) (CoreC-45Name-u--show_Show_Name eta-2)) e-2)))))))))) eta-1))) (vector 1 act-27))) eta-0)))(else (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (case (vector-ref eta-1 0) ((0) (let ((e-2 (vector-ref eta-1 1))) (vector 0 e-2))) (else (vector 1 0)))) (lambda (eta-1) (let ((act-27 ((PreludeC-45IO-putStrLn (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-2) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-2)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-2) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-2) (let ((act-17 (arg-528 eta-2))) (let ((act-16 (arg-530 eta-2))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-2) (let ((act-27 (arg-811 eta-2))) ((arg-812 act-27) eta-2))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-2) (let ((act-51 (arg-814 eta-2))) (act-51 eta-2)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name u--fn) ": All cases covered")) eta-1))) (vector 1 act-27))) eta-0)))))))))) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-fst eta-0)) e-7) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (vector 1 1))))))))))))))) ((6) (let ((e-7 (vector-ref arg-3 1))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtName e-7 (let ((e-0 (vector-ref e-5 0))) e-0)) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (if (null? e-6) (CoreC-45Context-undefinedName arg-0 (CoreC-45FC-emptyFC) e-7 ext-0) (let ((act-26 (CoreC-45Core-traverse_ (lambda (u--fn) (lambda (eta-0) (let ((act-26 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (case (vector-ref eta-1 0) ((0) (let ((e-2 (vector-ref eta-1 1))) (vector 0 e-2))) (else (vector 1 0)))) (lambda (eta-1) (CoreC-45Termination-checkTotal arg-0 (CoreC-45FC-emptyFC) u--fn eta-1)) eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((act-27 (CoreC-45Context-getTotality arg-0 (CoreC-45FC-emptyFC) u--fn eta-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-27 1))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (case (vector-ref eta-1 0) ((0) (let ((e-2 (vector-ref eta-1 1))) (vector 0 e-2))) (else (vector 1 0)))) (lambda (eta-1) (let ((act-28 ((PreludeC-45IO-putStrLn (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-2) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-2)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-2) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-2) (let ((act-17 (arg-528 eta-2))) (let ((act-16 (arg-530 eta-2))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-2) (let ((act-28 (arg-811 eta-2))) ((arg-812 act-28) eta-2))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-2) (let ((act-51 (arg-814 eta-2))) (act-51 eta-2)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name u--fn) (PreludeC-45TypesC-45String-C-43C-43 " is " (CoreC-45TT-u--show_Show_Totality e-9)))) eta-1))) (vector 1 act-28))) eta-0)))))))))) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-fst eta-0)) e-6) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (vector 1 1))))))))))))))) ((7) (let ((e-8 (vector-ref arg-3 1))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (let ((act-25 ((CoreC-45Context-lookupCtxtName e-8 (let ((e-0 (vector-ref e-5 0))) e-0)) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (CoreC-45Core-traverse_ (lambda (eta-0) (lambda (eta-1) (YaffleC-45REPL-showInfo eta-0 eta-1))) e-6 ext-0))))))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (vector 1 1)))))))))) (else (let ((act-24 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-2 (vector-ref eta-0 1))) (vector 0 e-2))) (else (vector 1 0)))) (lambda (eta-0) (let ((act-24 ((PreludeC-45IO-putStrLn (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-1)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-1) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-1) (let ((act-17 (arg-528 eta-1))) (let ((act-16 (arg-530 eta-1))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-1) (let ((act-24 (arg-811 eta-1))) ((arg-812 act-24) eta-1))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-1) (let ((act-51 (arg-814 eta-1))) (act-51 eta-1)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) "Bye for now!") eta-0))) (vector 1 act-24))) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (vector 1 0)))))))) +(define ParserC-45Source-runParserTo (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (PreludeC-45Types-u--C-62C-62C-61_Monad_C-40EitherC-32C-36eC-41 (let ((sc0 (ParserC-45Unlit-unlit arg-3 arg-5))) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 (ParserC-45Support-fromLitError arg-2 e-2)))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 e-5))))) (lambda (u--str) (PreludeC-45Types-u--C-62C-62C-61_Monad_C-40EitherC-32C-36eC-41 (let ((sc0 (ParserC-45LexerC-45Source-lexTo arg-4 u--str))) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 (ParserC-45Support-fromLexError arg-2 e-2)))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 e-5))))) (lambda (u--toks) (PreludeC-45Types-u--C-62C-62C-61_Monad_C-40EitherC-32C-36eC-41 (let ((sc0 (LibrariesC-45TextC-45ParserC-45Core-parseWith (cons (lambda (arg-7) (lambda (arg-8) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-7 arg-8))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41)) arg-1 arg-6 u--toks))) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 (ParserC-45Support-fromParsingError (cons (cons (lambda (u--x) (ParserC-45LexerC-45Source-u--show_Show_Token u--x)) (lambda (u--d) (lambda (u--x) (ParserC-45LexerC-45Source-u--showPrec_Show_Token u--d u--x)))) (cons (lambda (u--ann) (lambda (arg-5072) (ParserC-45LexerC-45Source-u--pretty_Pretty_Token arg-5072))) (lambda (u--ann) (lambda (arg-5073) (lambda (arg-5074) (ParserC-45LexerC-45Source-u--prettyPrec_Pretty_Token arg-5073 arg-5074)))))) arg-2 e-2)))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 e-5))))) (lambda (_-0) (let ((e-2 (car _-0))) (let ((e-3 (cdr _-0))) (let ((e-6 (car e-3))) (vector 1 (cons e-2 e-6))))))))))))) +(define ParserC-45Source-runParser (lambda (arg-1 arg-2 arg-3 ext-0 ext-1) (ParserC-45Source-runParserTo arg-1 arg-2 arg-3 (LibrariesC-45TextC-45LexerC-45Core-pred (lambda (eta-0) 0)) ext-0 ext-1))) +(define ParserC-45Source-parseFile (lambda (arg-1 arg-2 arg-3 ext-0) (let ((act-24 ((SystemC-45File-readFile (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-24 (arg-811 eta-0))) ((arg-812 act-24) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-51 (arg-814 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) arg-1) ext-0))) (case (vector-ref act-24 0) ((1) (let ((e-2 (vector-ref act-24 1))) (ParserC-45Source-runParser 1 arg-2 (ParserC-45Unlit-isLitFile arg-1) e-2 arg-3))) (else (let ((e-5 (vector-ref act-24 1))) (vector 0 (vector 49 arg-1 e-5)))))))) +(define CoreC-45Metadata-case--addSemanticDecorations-11147 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((e-2 (car arg-6))) (let ((e-3 (cdr arg-6))) (let ((act-24 (let ((sc1 (DataC-45List-isNil e-3))) (cond ((equal? sc1 1) (vector 1 0)) (else (CoreC-45ContextC-45Log-log arg-1 "ide-mode.highlight" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))))))))))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "ignored adding decorations to " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_OriginDesc (let ((e-6 (vector-ref arg-3 6))) e-6)) (PreludeC-45TypesC-45String-C-43C-43 ": " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (CoreC-45FC-u--show_Show_OriginDesc x-1)) (lambda (u--d) (lambda (x-1) (CoreC-45FC-u--showPrec_Show_OriginDesc u--d x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (u--d) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int u--d x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (u--d) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int u--d x-3))))) x-2)) (lambda (u--d) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3))))) u--d x-2)))) (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (u--d) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int u--d x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (u--d) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int u--d x-3))))) x-2)) (lambda (u--d) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3))))) u--d x-2))))) x-1)) (lambda (u--d) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) d-0 x-2)))) (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) d-0 x-2))))) u--d x-1))))) x-0)) (lambda (u--d) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (CoreC-45FC-u--show_Show_OriginDesc x-1)) (lambda (d-0) (lambda (x-1) (CoreC-45FC-u--showPrec_Show_OriginDesc d-0 x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) d-0 x-2)))) (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3))))) d-1 x-2)))) (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3))))) d-1 x-2))))) d-0 x-1))))) u--d x-0)))) (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (CoreC-45Metadata-u--show_Show_Decoration x-1)) (lambda (u--d) (lambda (x-1) (CoreC-45Metadata-u--showPrec_Show_Decoration u--d x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (x-2) (CoreC-45Name-u--show_Show_Name x-2)) (lambda (u--d) (lambda (x-2) (CoreC-45Name-u--showPrec_Show_Name u--d x-2)))) x-1)) (lambda (u--d) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (x-2) (CoreC-45Name-u--show_Show_Name x-2)) (lambda (d-0) (lambda (x-2) (CoreC-45Name-u--showPrec_Show_Name d-0 x-2)))) u--d x-1))))) x-0)) (lambda (u--d) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (CoreC-45Metadata-u--show_Show_Decoration x-1)) (lambda (d-0) (lambda (x-1) (CoreC-45Metadata-u--showPrec_Show_Decoration d-0 x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (x-2) (CoreC-45Name-u--show_Show_Name x-2)) (lambda (d-0) (lambda (x-2) (CoreC-45Name-u--showPrec_Show_Name d-0 x-2)))) x-1)) (lambda (d-0) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (x-2) (CoreC-45Name-u--show_Show_Name x-2)) (lambda (d-1) (lambda (x-2) (CoreC-45Name-u--showPrec_Show_Name d-1 x-2)))) d-0 x-1))))) u--d x-0))))) u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (CoreC-45FC-u--show_Show_OriginDesc x-1)) (lambda (d-0) (lambda (x-1) (CoreC-45FC-u--showPrec_Show_OriginDesc d-0 x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) d-0 x-2)))) (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3))))) d-1 x-2)))) (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3))))) d-1 x-2))))) d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (CoreC-45FC-u--show_Show_OriginDesc x-1)) (lambda (d-1) (lambda (x-1) (CoreC-45FC-u--showPrec_Show_OriginDesc d-1 x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3))))) d-1 x-2)))) (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3))))) d-1 x-2))))) x-1)) (lambda (d-1) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3))))) x-2)) (lambda (d-2) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-3) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-3 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-3) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-3 x-3))))) d-2 x-2)))) (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3))))) x-2)) (lambda (d-2) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-3) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-3 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-3) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-3 x-3))))) d-2 x-2))))) d-1 x-1))))) d-0 x-0)))) (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (CoreC-45Metadata-u--show_Show_Decoration x-1)) (lambda (d-0) (lambda (x-1) (CoreC-45Metadata-u--showPrec_Show_Decoration d-0 x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (x-2) (CoreC-45Name-u--show_Show_Name x-2)) (lambda (d-0) (lambda (x-2) (CoreC-45Name-u--showPrec_Show_Name d-0 x-2)))) x-1)) (lambda (d-0) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (x-2) (CoreC-45Name-u--show_Show_Name x-2)) (lambda (d-1) (lambda (x-2) (CoreC-45Name-u--showPrec_Show_Name d-1 x-2)))) d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (CoreC-45Metadata-u--show_Show_Decoration x-1)) (lambda (d-1) (lambda (x-1) (CoreC-45Metadata-u--showPrec_Show_Decoration d-1 x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (x-2) (CoreC-45Name-u--show_Show_Name x-2)) (lambda (d-1) (lambda (x-2) (CoreC-45Name-u--showPrec_Show_Name d-1 x-2)))) x-1)) (lambda (d-1) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (x-2) (CoreC-45Name-u--show_Show_Name x-2)) (lambda (d-2) (lambda (x-2) (CoreC-45Name-u--showPrec_Show_Name d-2 x-2)))) d-1 x-1))))) d-0 x-0))))) u--d u--x)))) e-3))))) ext-0)))))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((act-25 (set-box! arg-2 (let ((e-0 (vector-ref arg-3 0))) (let ((e-1 (vector-ref arg-3 1))) (let ((e-12 (vector-ref arg-3 2))) (let ((e-11 (vector-ref arg-3 3))) (let ((e-4 (vector-ref arg-3 4))) (let ((e-10 (vector-ref arg-3 5))) (let ((e-6 (vector-ref arg-3 6))) (let ((e-8 (vector-ref arg-3 8))) (let ((e-9 (vector-ref arg-3 9))) (vector e-0 e-1 e-12 e-11 e-4 e-10 e-6 (LibrariesC-45DataC-45PosMap-union (lambda (eta-0) (LibrariesC-45DataC-45PosMap-u--measure_Measure_C-40C-124C-40C-40BuiltinC-46PairC-32NonEmptyFCC-41C-32C-36aC-41C-44C-40C-40BuiltinC-46MkPairC-32NonEmptyFCC-41C-32C-36aC-41C-124C-41 eta-0)) (LibrariesC-45DataC-45PosMap-fromList (lambda (eta-0) (LibrariesC-45DataC-45PosMap-u--measure_Measure_C-40C-124C-40C-40BuiltinC-46PairC-32NonEmptyFCC-41C-32C-36aC-41C-44C-40C-40BuiltinC-46MkPairC-32NonEmptyFCC-41C-32C-36aC-41C-124C-41 eta-0)) e-2) arg-5) e-8 e-9))))))))))))) (vector 1 act-25))))))))) +(define CoreC-45Metadata-n--8500-10333-u--toPat (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-8) (if (null? arg-8) '() (let ((e-3 (car arg-8))) (let ((e-4 (cdr arg-8))) (case (vector-ref e-3 0) ((0) (let ((e-7 (vector-ref e-3 1))) (let ((e-8 (vector-ref e-3 2))) (let ((e-9 (vector-ref e-3 3))) (let ((e-10 (vector-ref e-3 4))) (cons (vector 3 e-7 e-8 e-9 e-10) (CoreC-45Metadata-n--8500-10333-u--toPat arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-4)))))))(else (cons e-3 (CoreC-45Metadata-n--8500-10333-u--toPat arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-4))))))))) +(define CoreC-45Metadata-n--9523-11284-u--nfType (lambda (arg-0 arg-1 arg-2 arg-3) (let ((e-2 (car arg-3))) (let ((e-3 (cdr arg-3))) (lambda (clam-0) (let ((e-6 (car e-3))) (let ((e-7 (cdr e-3))) (let ((e-10 (car e-7))) (let ((e-11 (cdr e-7))) (let ((act-24 (CoreC-45Normalise-normaliseArgHoles arg-0 '() arg-2 '() e-11 clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (cons e-2 (cons e-6 (cons e-10 e-5))))))))))))))))) +(define CoreC-45Metadata-n--9718-11468-u--fullTy (lambda (arg-0 arg-1 arg-2) (let ((e-2 (car arg-2))) (let ((e-3 (cdr arg-2))) (lambda (clam-0) (let ((e-6 (car e-3))) (let ((e-7 (cdr e-3))) (let ((e-10 (car e-7))) (let ((e-11 (cdr e-7))) (let ((act-24 (CoreC-45Context-u--full_HasNames_Name arg-1 e-6 clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-1 e-11 clam-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref act-25 1))) (vector 1 (cons e-2 (cons e-5 (cons e-10 e-8))))))))))))))))))))) +(define CoreC-45Metadata-n--9718-11467-u--fullLHS (lambda (arg-0 arg-1 arg-2 ext-0) (let ((e-2 (car arg-2))) (let ((e-3 (cdr arg-2))) (let ((e-6 (car e-3))) (let ((e-7 (cdr e-3))) (let ((act-24 (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-1 e-7 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (cons e-2 (cons e-6 e-5))))))))))))) +(define CoreC-45Metadata-n--9718-11469-u--fullHLHS (lambda (arg-0 arg-1 arg-2 ext-0) (let ((e-2 (car arg-2))) (let ((e-3 (cdr arg-2))) (let ((act-24 (CoreC-45Context-u--full_HasNames_Name arg-1 e-2 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-1 e-3 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (cons e-5 e-6)))))))))))))) +(define CoreC-45Metadata-n--9718-11470-u--fullDecls (lambda (arg-0 arg-1 arg-2 ext-0) (let ((e-2 (car arg-2))) (let ((e-3 (cdr arg-2))) (let ((act-24 (CoreC-45Context-u--full_HasNames_Name arg-1 e-3 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (cons e-2 e-5)))))))))) +(define CoreC-45Metadata-u--toBuf_TTC_TTMFile (lambda (arg-0 arg-1 ext-0) (let ((act-24 ((LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-0 "TTM") ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-0 (let ((e-0 (car arg-1))) e-0) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (CoreC-45Metadata-u--toBuf_TTC_Metadata arg-0 (let ((e-1 (cdr arg-1))) e-1) ext-0))))))))) +(define CoreC-45Metadata-u--toBuf_TTC_Metadata (lambda (arg-0 arg-1 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1461) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_OriginDesc arg-1458 arg-1461 eta-2)))) (lambda (arg-1461) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_OriginDesc arg-1461 eta-2)))) (cons (lambda (arg-1458) (lambda (arg-1461) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1462) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1464) (lambda (arg-1465) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1464 arg-1465 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1464) (lambda (arg-1465) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1464 arg-1465 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1462 arg-1463 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1462 eta-3)))) (cons (lambda (arg-1462) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1464) (lambda (arg-1465) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1464 arg-1465 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1464) (lambda (arg-1465) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1464 arg-1465 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1462 arg-1463 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1462 eta-3))))) arg-1458 arg-1461 eta-2)))) (lambda (arg-1461) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1462 eta-3)))) (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1462 eta-3))))) arg-1461 eta-2))))) arg-1457 arg-1460 eta-1)))) (lambda (arg-1461) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_OriginDesc arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_OriginDesc arg-1462 eta-2)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1462 eta-3)))) (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1462 eta-3))))) arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1463 eta-3)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1463 eta-3))))) arg-1462 eta-2))))) arg-1461 eta-1)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1461) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-1458 arg-1461 eta-2)))) (lambda (arg-1461) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-1461 eta-2)))) (cons (lambda (arg-1458) (lambda (arg-1461) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-1458 arg-1461))) (lambda (arg-1461) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-1461 eta-2))))) arg-1457 arg-1460 eta-1)))) (lambda (arg-1461) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-1462 eta-2)))) (cons (lambda (arg-1457) (lambda (arg-1460) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-1457 arg-1460))) (lambda (arg-1462) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-1462 eta-2))))) arg-1461 eta-1))))) arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_OriginDesc arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_OriginDesc arg-1462 eta-2)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1462 eta-3)))) (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1462 eta-3))))) arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1463 eta-3)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1463 eta-3))))) arg-1462 eta-2))))) arg-1456 arg-1459 eta-1)))) (lambda (arg-1462) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_OriginDesc arg-1456 arg-1459 eta-2)))) (lambda (arg-1463) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_OriginDesc arg-1463 eta-2)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1463 eta-3)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1463 eta-3))))) arg-1456 arg-1459 eta-2)))) (lambda (arg-1463) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1456 arg-1459 eta-3)))) (lambda (arg-1464) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1456 arg-1459 eta-4)))) (lambda (arg-1465) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1465 eta-4)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1456 arg-1459 eta-4)))) (lambda (arg-1465) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1465 eta-4))))) arg-1464 eta-3)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1456 arg-1459 eta-3)))) (lambda (arg-1464) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1456 arg-1459 eta-4)))) (lambda (arg-1465) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1465 eta-4)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1456 arg-1459 eta-4)))) (lambda (arg-1465) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1465 eta-4))))) arg-1464 eta-3))))) arg-1463 eta-2))))) arg-1462 eta-1)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-1462 eta-2)))) (cons (lambda (arg-1457) (lambda (arg-1460) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-1457 arg-1460))) (lambda (arg-1462) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-1462 eta-2))))) arg-1456 arg-1459 eta-1)))) (lambda (arg-1462) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-1456 arg-1459 eta-2)))) (lambda (arg-1463) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-1463 eta-2)))) (cons (lambda (arg-1456) (lambda (arg-1459) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-1456 arg-1459))) (lambda (arg-1463) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-1463 eta-2))))) arg-1462 eta-1))))) arg-1461 eta-0)))) arg-0 (let ((e-0 (vector-ref arg-1 0))) e-0) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1461) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_OriginDesc arg-1458 arg-1461 eta-2)))) (lambda (arg-1461) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_OriginDesc arg-1461 eta-2)))) (cons (lambda (arg-1458) (lambda (arg-1461) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1462) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1464) (lambda (arg-1465) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1464 arg-1465 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1464) (lambda (arg-1465) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1464 arg-1465 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1462 arg-1463 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1462 eta-3)))) (cons (lambda (arg-1462) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1464) (lambda (arg-1465) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1464 arg-1465 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1464) (lambda (arg-1465) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1464 arg-1465 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1462 arg-1463 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1462 eta-3))))) arg-1458 arg-1461 eta-2)))) (lambda (arg-1461) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1462 eta-3)))) (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1462 eta-3))))) arg-1461 eta-2))))) arg-1457 arg-1460 eta-1)))) (lambda (arg-1461) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_OriginDesc arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_OriginDesc arg-1462 eta-2)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1462 eta-3)))) (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1462 eta-3))))) arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1463 eta-3)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1463 eta-3))))) arg-1462 eta-2))))) arg-1461 eta-1)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1461) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_Name arg-1458 arg-1461 eta-2)))) (lambda (arg-1461) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1461 eta-2)))) (cons (lambda (arg-1458) (lambda (arg-1461) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1462) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-1462 arg-1463 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-1462 eta-3)))) (cons (lambda (arg-1462) (lambda (arg-1463) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-1462 arg-1463))) (lambda (arg-1462) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-1462 eta-3))))) arg-1458 arg-1461 eta-2)))) (lambda (arg-1461) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-1462 eta-3)))) (cons (lambda (arg-1458) (lambda (arg-1462) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-1458 arg-1462))) (lambda (arg-1462) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-1462 eta-3))))) arg-1461 eta-2))))) arg-1457 arg-1460 eta-1)))) (lambda (arg-1461) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_Name arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1462 eta-2)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-1462 eta-3)))) (cons (lambda (arg-1458) (lambda (arg-1462) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-1458 arg-1462))) (lambda (arg-1462) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-1462 eta-3))))) arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-1463 eta-3)))) (cons (lambda (arg-1457) (lambda (arg-1460) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-1457 arg-1460))) (lambda (arg-1463) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-1463 eta-3))))) arg-1462 eta-2))))) arg-1461 eta-1))))) arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_OriginDesc arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_OriginDesc arg-1462 eta-2)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1462 eta-3)))) (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1462 eta-3))))) arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1463 eta-3)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1463 eta-3))))) arg-1462 eta-2))))) arg-1456 arg-1459 eta-1)))) (lambda (arg-1462) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_OriginDesc arg-1456 arg-1459 eta-2)))) (lambda (arg-1463) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_OriginDesc arg-1463 eta-2)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1463 eta-3)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1463 eta-3))))) arg-1456 arg-1459 eta-2)))) (lambda (arg-1463) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1456 arg-1459 eta-3)))) (lambda (arg-1464) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1456 arg-1459 eta-4)))) (lambda (arg-1465) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1465 eta-4)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1456 arg-1459 eta-4)))) (lambda (arg-1465) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1465 eta-4))))) arg-1464 eta-3)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1456 arg-1459 eta-3)))) (lambda (arg-1464) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1456 arg-1459 eta-4)))) (lambda (arg-1465) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1465 eta-4)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1456 arg-1459 eta-4)))) (lambda (arg-1465) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1465 eta-4))))) arg-1464 eta-3))))) arg-1463 eta-2))))) arg-1462 eta-1)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_Name arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1462 eta-2)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-1462 eta-3)))) (cons (lambda (arg-1458) (lambda (arg-1462) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-1458 arg-1462))) (lambda (arg-1462) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-1462 eta-3))))) arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-1463 eta-3)))) (cons (lambda (arg-1457) (lambda (arg-1460) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-1457 arg-1460))) (lambda (arg-1463) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-1463 eta-3))))) arg-1462 eta-2))))) arg-1456 arg-1459 eta-1)))) (lambda (arg-1462) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_Name arg-1456 arg-1459 eta-2)))) (lambda (arg-1463) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1463 eta-2)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-1463 eta-3)))) (cons (lambda (arg-1457) (lambda (arg-1460) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-1457 arg-1460))) (lambda (arg-1463) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-1463 eta-3))))) arg-1456 arg-1459 eta-2)))) (lambda (arg-1463) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-1456 arg-1459 eta-3)))) (lambda (arg-1464) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-1464 eta-3)))) (cons (lambda (arg-1456) (lambda (arg-1459) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-1456 arg-1459))) (lambda (arg-1464) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-1464 eta-3))))) arg-1463 eta-2))))) arg-1462 eta-1))))) arg-1461 eta-0)))) arg-0 (let ((e-1 (vector-ref arg-1 1))) e-1) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1461) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_OriginDesc arg-1458 arg-1461 eta-2)))) (lambda (arg-1461) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_OriginDesc arg-1461 eta-2)))) (cons (lambda (arg-1458) (lambda (arg-1461) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1462) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1464) (lambda (arg-1465) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1464 arg-1465 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1464) (lambda (arg-1465) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1464 arg-1465 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1462 arg-1463 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1462 eta-3)))) (cons (lambda (arg-1462) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1464) (lambda (arg-1465) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1464 arg-1465 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1464) (lambda (arg-1465) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1464 arg-1465 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1462 arg-1463 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1462 eta-3))))) arg-1458 arg-1461 eta-2)))) (lambda (arg-1461) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1462 eta-3)))) (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1462 eta-3))))) arg-1461 eta-2))))) arg-1457 arg-1460 eta-1)))) (lambda (arg-1461) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_OriginDesc arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_OriginDesc arg-1462 eta-2)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1462 eta-3)))) (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1462 eta-3))))) arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1463 eta-3)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1463 eta-3))))) arg-1462 eta-2))))) arg-1461 eta-1)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1461) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_Name arg-1458 arg-1461 eta-2)))) (lambda (arg-1461) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1461 eta-2)))) (cons (lambda (arg-1458) (lambda (arg-1461) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1462) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-1462 arg-1463 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-1462 eta-3)))) (cons (lambda (arg-1462) (lambda (arg-1463) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-1462 arg-1463))) (lambda (arg-1462) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-1462 eta-3))))) arg-1458 arg-1461 eta-2)))) (lambda (arg-1461) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-1462 eta-3)))) (cons (lambda (arg-1458) (lambda (arg-1462) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-1458 arg-1462))) (lambda (arg-1462) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-1462 eta-3))))) arg-1461 eta-2))))) arg-1457 arg-1460 eta-1)))) (lambda (arg-1461) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_Name arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1462 eta-2)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-1462 eta-3)))) (cons (lambda (arg-1458) (lambda (arg-1462) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-1458 arg-1462))) (lambda (arg-1462) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-1462 eta-3))))) arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-1463 eta-3)))) (cons (lambda (arg-1457) (lambda (arg-1460) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-1457 arg-1460))) (lambda (arg-1463) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-1463 eta-3))))) arg-1462 eta-2))))) arg-1461 eta-1))))) arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_OriginDesc arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_OriginDesc arg-1462 eta-2)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1462 eta-3)))) (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1462 eta-3))))) arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1463 eta-3)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1463 eta-3))))) arg-1462 eta-2))))) arg-1456 arg-1459 eta-1)))) (lambda (arg-1462) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_OriginDesc arg-1456 arg-1459 eta-2)))) (lambda (arg-1463) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_OriginDesc arg-1463 eta-2)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1463 eta-3)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1463 eta-3))))) arg-1456 arg-1459 eta-2)))) (lambda (arg-1463) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1456 arg-1459 eta-3)))) (lambda (arg-1464) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1456 arg-1459 eta-4)))) (lambda (arg-1465) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1465 eta-4)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1456 arg-1459 eta-4)))) (lambda (arg-1465) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1465 eta-4))))) arg-1464 eta-3)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1456 arg-1459 eta-3)))) (lambda (arg-1464) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1456 arg-1459 eta-4)))) (lambda (arg-1465) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1465 eta-4)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1456 arg-1459 eta-4)))) (lambda (arg-1465) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1465 eta-4))))) arg-1464 eta-3))))) arg-1463 eta-2))))) arg-1462 eta-1)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_Name arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1462 eta-2)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-1462 eta-3)))) (cons (lambda (arg-1458) (lambda (arg-1462) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-1458 arg-1462))) (lambda (arg-1462) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-1462 eta-3))))) arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-1463 eta-3)))) (cons (lambda (arg-1457) (lambda (arg-1460) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-1457 arg-1460))) (lambda (arg-1463) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-1463 eta-3))))) arg-1462 eta-2))))) arg-1456 arg-1459 eta-1)))) (lambda (arg-1462) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_Name arg-1456 arg-1459 eta-2)))) (lambda (arg-1463) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1463 eta-2)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-1463 eta-3)))) (cons (lambda (arg-1457) (lambda (arg-1460) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-1457 arg-1460))) (lambda (arg-1463) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-1463 eta-3))))) arg-1456 arg-1459 eta-2)))) (lambda (arg-1463) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-1456 arg-1459 eta-3)))) (lambda (arg-1464) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-1464 eta-3)))) (cons (lambda (arg-1456) (lambda (arg-1459) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-1456 arg-1459))) (lambda (arg-1464) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-1464 eta-3))))) arg-1463 eta-2))))) arg-1462 eta-1))))) arg-1461 eta-0)))) arg-0 (let ((e-2 (vector-ref arg-1 2))) e-2) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((act-27 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_Name arg-1457 arg-1460 eta-1)))) (lambda (arg-1461) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1461 eta-1)))) (cons (lambda (arg-1457) (lambda (arg-1460) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-1457 arg-1460))) (lambda (arg-1461) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-1461 eta-1))))) arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_Name arg-1456 arg-1459 eta-1)))) (lambda (arg-1462) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1462 eta-1)))) (cons (lambda (arg-1456) (lambda (arg-1459) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-1456 arg-1459))) (lambda (arg-1462) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-1462 eta-1))))) arg-1461 eta-0)))) arg-0 (let ((e-4 (vector-ref arg-1 4))) e-4) ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((act-28 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40PosMapC-32C-36aC-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1461) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_OriginDesc arg-1458 arg-1461 eta-2)))) (lambda (arg-1461) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_OriginDesc arg-1461 eta-2)))) (cons (lambda (arg-1458) (lambda (arg-1461) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1462) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1464) (lambda (arg-1465) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1464 arg-1465 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1464) (lambda (arg-1465) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1464 arg-1465 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1462 arg-1463 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1462 eta-3)))) (cons (lambda (arg-1462) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1464) (lambda (arg-1465) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1464 arg-1465 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1464) (lambda (arg-1465) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1464 arg-1465 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1462 arg-1463 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1462 eta-3))))) arg-1458 arg-1461 eta-2)))) (lambda (arg-1461) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1462 eta-3)))) (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1462 eta-3))))) arg-1461 eta-2))))) arg-1457 arg-1460 eta-1)))) (lambda (arg-1461) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_OriginDesc arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_OriginDesc arg-1462 eta-2)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1462 eta-3)))) (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1462 eta-3))))) arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1463 eta-3)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1463 eta-3))))) arg-1462 eta-2))))) arg-1461 eta-1)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_Name arg-1457 arg-1460 eta-1)))) (lambda (arg-1461) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1461 eta-1))))) arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_OriginDesc arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_OriginDesc arg-1462 eta-2)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1462 eta-3)))) (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1462 eta-3))))) arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1463 eta-3)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1463 eta-3))))) arg-1462 eta-2))))) arg-1456 arg-1459 eta-1)))) (lambda (arg-1462) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_OriginDesc arg-1456 arg-1459 eta-2)))) (lambda (arg-1463) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_OriginDesc arg-1463 eta-2)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1463 eta-3)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1463 eta-3))))) arg-1456 arg-1459 eta-2)))) (lambda (arg-1463) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1456 arg-1459 eta-3)))) (lambda (arg-1464) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1456 arg-1459 eta-4)))) (lambda (arg-1465) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1465 eta-4)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1456 arg-1459 eta-4)))) (lambda (arg-1465) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1465 eta-4))))) arg-1464 eta-3)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1456 arg-1459 eta-3)))) (lambda (arg-1464) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1456 arg-1459 eta-4)))) (lambda (arg-1465) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1465 eta-4)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1456 arg-1459 eta-4)))) (lambda (arg-1465) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1465 eta-4))))) arg-1464 eta-3))))) arg-1463 eta-2))))) arg-1462 eta-1)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_Name arg-1456 arg-1459 eta-1)))) (lambda (arg-1462) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1462 eta-1))))) arg-1461 eta-0)))) (lambda (eta-0) (LibrariesC-45DataC-45PosMap-u--measure_Measure_C-40C-124C-40C-40BuiltinC-46PairC-32NonEmptyFCC-41C-32C-36aC-41C-44C-40C-40BuiltinC-46MkPairC-32NonEmptyFCC-41C-32C-36aC-41C-124C-41 eta-0))) arg-0 (let ((e-13 (vector-ref arg-1 5))) e-13) ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((act-29 (CoreC-45TTC-u--toBuf_TTC_OriginDesc arg-0 (let ((e-13 (vector-ref arg-1 6))) e-13) ext-0))) (case (vector-ref act-29 0) ((0) (let ((e-2 (vector-ref act-29 1))) (vector 0 e-2))) (else (let ((act-30 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40PosMapC-32C-36aC-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1461) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_OriginDesc arg-1458 arg-1461 eta-2)))) (lambda (arg-1461) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_OriginDesc arg-1461 eta-2)))) (cons (lambda (arg-1458) (lambda (arg-1461) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1462) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1464) (lambda (arg-1465) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1464 arg-1465 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1464) (lambda (arg-1465) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1464 arg-1465 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1462 arg-1463 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1462 eta-3)))) (cons (lambda (arg-1462) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1464) (lambda (arg-1465) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1464 arg-1465 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1464) (lambda (arg-1465) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1464 arg-1465 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1462 arg-1463 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1462 eta-3))))) arg-1458 arg-1461 eta-2)))) (lambda (arg-1461) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1462 eta-3)))) (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1462 eta-3))))) arg-1461 eta-2))))) arg-1457 arg-1460 eta-1)))) (lambda (arg-1461) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_OriginDesc arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_OriginDesc arg-1462 eta-2)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1462 eta-3)))) (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1462 eta-3))))) arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1463 eta-3)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1463 eta-3))))) arg-1462 eta-2))))) arg-1461 eta-1)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1461) (lambda (eta-2) (CoreC-45Metadata-u--toBuf_TTC_Decoration arg-1458 arg-1461 eta-2)))) (lambda (arg-1461) (lambda (eta-2) (CoreC-45Metadata-u--fromBuf_TTC_Decoration arg-1461 eta-2)))) (cons (lambda (arg-1458) (lambda (arg-1461) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-1462) (lambda (arg-1463) (lambda (eta-3) (CoreC-45TTC-u--toBuf_TTC_Name arg-1462 arg-1463 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1462 eta-3)))) arg-1458 arg-1461 eta-2)))) (lambda (arg-1461) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (CoreC-45TTC-u--toBuf_TTC_Name arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1462 eta-3)))) arg-1461 eta-2))))) arg-1457 arg-1460 eta-1)))) (lambda (arg-1461) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (CoreC-45Metadata-u--toBuf_TTC_Decoration arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (CoreC-45Metadata-u--fromBuf_TTC_Decoration arg-1462 eta-2)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (CoreC-45TTC-u--toBuf_TTC_Name arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1462 eta-3)))) arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (CoreC-45TTC-u--toBuf_TTC_Name arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1463 eta-3)))) arg-1462 eta-2))))) arg-1461 eta-1))))) arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_OriginDesc arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_OriginDesc arg-1462 eta-2)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1462 eta-3)))) (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1462 eta-3))))) arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1463 eta-3)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1463 eta-3))))) arg-1462 eta-2))))) arg-1456 arg-1459 eta-1)))) (lambda (arg-1462) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_OriginDesc arg-1456 arg-1459 eta-2)))) (lambda (arg-1463) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_OriginDesc arg-1463 eta-2)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1463 eta-3)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1463 eta-3))))) arg-1456 arg-1459 eta-2)))) (lambda (arg-1463) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1456 arg-1459 eta-3)))) (lambda (arg-1464) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1456 arg-1459 eta-4)))) (lambda (arg-1465) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1465 eta-4)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1456 arg-1459 eta-4)))) (lambda (arg-1465) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1465 eta-4))))) arg-1464 eta-3)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1456 arg-1459 eta-3)))) (lambda (arg-1464) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1456 arg-1459 eta-4)))) (lambda (arg-1465) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1465 eta-4)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1456 arg-1459 eta-4)))) (lambda (arg-1465) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1465 eta-4))))) arg-1464 eta-3))))) arg-1463 eta-2))))) arg-1462 eta-1)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (CoreC-45Metadata-u--toBuf_TTC_Decoration arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (CoreC-45Metadata-u--fromBuf_TTC_Decoration arg-1462 eta-2)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (CoreC-45TTC-u--toBuf_TTC_Name arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1462 eta-3)))) arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (CoreC-45TTC-u--toBuf_TTC_Name arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1463 eta-3)))) arg-1462 eta-2))))) arg-1456 arg-1459 eta-1)))) (lambda (arg-1462) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-2) (CoreC-45Metadata-u--toBuf_TTC_Decoration arg-1456 arg-1459 eta-2)))) (lambda (arg-1463) (lambda (eta-2) (CoreC-45Metadata-u--fromBuf_TTC_Decoration arg-1463 eta-2)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (CoreC-45TTC-u--toBuf_TTC_Name arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1463 eta-3)))) arg-1456 arg-1459 eta-2)))) (lambda (arg-1463) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-3) (CoreC-45TTC-u--toBuf_TTC_Name arg-1456 arg-1459 eta-3)))) (lambda (arg-1464) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1464 eta-3)))) arg-1463 eta-2))))) arg-1462 eta-1))))) arg-1461 eta-0)))) (lambda (eta-0) (LibrariesC-45DataC-45PosMap-u--measure_Measure_C-40C-124C-40C-40BuiltinC-46PairC-32NonEmptyFCC-41C-32C-36aC-41C-44C-40C-40BuiltinC-46MkPairC-32NonEmptyFCC-41C-32C-36aC-41C-124C-41 eta-0))) arg-0 (let ((e-13 (vector-ref arg-1 7))) e-13) ext-0))) (case (vector-ref act-30 0) ((0) (let ((e-2 (vector-ref act-30 1))) (vector 0 e-2))) (else (let ((act-31 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40PosMapC-32C-36aC-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1461) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_OriginDesc arg-1458 arg-1461 eta-2)))) (lambda (arg-1461) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_OriginDesc arg-1461 eta-2)))) (cons (lambda (arg-1458) (lambda (arg-1461) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1462) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1464) (lambda (arg-1465) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1464 arg-1465 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1464) (lambda (arg-1465) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1464 arg-1465 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1462 arg-1463 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1462 eta-3)))) (cons (lambda (arg-1462) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1464) (lambda (arg-1465) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1464 arg-1465 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1464) (lambda (arg-1465) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1464 arg-1465 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1462 arg-1463 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1462 eta-3))))) arg-1458 arg-1461 eta-2)))) (lambda (arg-1461) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1462 eta-3)))) (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1462 eta-3))))) arg-1461 eta-2))))) arg-1457 arg-1460 eta-1)))) (lambda (arg-1461) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_OriginDesc arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_OriginDesc arg-1462 eta-2)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1462 eta-3)))) (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1462 eta-3))))) arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1463 eta-3)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1463 eta-3))))) arg-1462 eta-2))))) arg-1461 eta-1)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1461) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_OriginDesc arg-1458 arg-1461 eta-2)))) (lambda (arg-1461) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_OriginDesc arg-1461 eta-2)))) (cons (lambda (arg-1458) (lambda (arg-1461) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1462) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1464) (lambda (arg-1465) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1464 arg-1465 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1464) (lambda (arg-1465) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1464 arg-1465 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1462 arg-1463 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1462 eta-3)))) (cons (lambda (arg-1462) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1464) (lambda (arg-1465) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1464 arg-1465 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1464) (lambda (arg-1465) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1464 arg-1465 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1462 arg-1463 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1462 eta-3))))) arg-1458 arg-1461 eta-2)))) (lambda (arg-1461) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1462 eta-3)))) (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1462 eta-3))))) arg-1461 eta-2))))) arg-1457 arg-1460 eta-1)))) (lambda (arg-1461) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_OriginDesc arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_OriginDesc arg-1462 eta-2)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1462 eta-3)))) (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1462 eta-3))))) arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1463 eta-3)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1463 eta-3))))) arg-1462 eta-2))))) arg-1461 eta-1))))) arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_OriginDesc arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_OriginDesc arg-1462 eta-2)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1462 eta-3)))) (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1462 eta-3))))) arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1463 eta-3)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1463 eta-3))))) arg-1462 eta-2))))) arg-1456 arg-1459 eta-1)))) (lambda (arg-1462) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_OriginDesc arg-1456 arg-1459 eta-2)))) (lambda (arg-1463) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_OriginDesc arg-1463 eta-2)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1463 eta-3)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1463 eta-3))))) arg-1456 arg-1459 eta-2)))) (lambda (arg-1463) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1456 arg-1459 eta-3)))) (lambda (arg-1464) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1456 arg-1459 eta-4)))) (lambda (arg-1465) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1465 eta-4)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1456 arg-1459 eta-4)))) (lambda (arg-1465) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1465 eta-4))))) arg-1464 eta-3)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1456 arg-1459 eta-3)))) (lambda (arg-1464) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1456 arg-1459 eta-4)))) (lambda (arg-1465) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1465 eta-4)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1456 arg-1459 eta-4)))) (lambda (arg-1465) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1465 eta-4))))) arg-1464 eta-3))))) arg-1463 eta-2))))) arg-1462 eta-1)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_OriginDesc arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_OriginDesc arg-1462 eta-2)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1462 eta-3)))) (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1462 eta-3))))) arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1463 eta-3)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1463 eta-3))))) arg-1462 eta-2))))) arg-1456 arg-1459 eta-1)))) (lambda (arg-1462) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_OriginDesc arg-1456 arg-1459 eta-2)))) (lambda (arg-1463) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_OriginDesc arg-1463 eta-2)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1463 eta-3)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1463 eta-3))))) arg-1456 arg-1459 eta-2)))) (lambda (arg-1463) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1456 arg-1459 eta-3)))) (lambda (arg-1464) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1456 arg-1459 eta-4)))) (lambda (arg-1465) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1465 eta-4)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1456 arg-1459 eta-4)))) (lambda (arg-1465) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1465 eta-4))))) arg-1464 eta-3)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1456 arg-1459 eta-3)))) (lambda (arg-1464) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1456 arg-1459 eta-4)))) (lambda (arg-1465) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1465 eta-4)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1456 arg-1459 eta-4)))) (lambda (arg-1465) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1465 eta-4))))) arg-1464 eta-3))))) arg-1463 eta-2))))) arg-1462 eta-1))))) arg-1461 eta-0)))) (lambda (eta-0) (LibrariesC-45DataC-45PosMap-u--measure_Measure_C-40C-124C-40C-40BuiltinC-46PairC-32NonEmptyFCC-41C-32C-36aC-41C-44C-40C-40BuiltinC-46MkPairC-32NonEmptyFCC-41C-32C-36aC-41C-124C-41 eta-0))) arg-0 (let ((e-13 (vector-ref arg-1 8))) e-13) ext-0))) (case (vector-ref act-31 0) ((0) (let ((e-2 (vector-ref act-31 1))) (vector 0 e-2))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40PosMapC-32C-36aC-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1461) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_OriginDesc arg-1458 arg-1461 eta-2)))) (lambda (arg-1461) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_OriginDesc arg-1461 eta-2)))) (cons (lambda (arg-1458) (lambda (arg-1461) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1462) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1464) (lambda (arg-1465) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1464 arg-1465 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1464) (lambda (arg-1465) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1464 arg-1465 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1462 arg-1463 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1462 eta-3)))) (cons (lambda (arg-1462) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1464) (lambda (arg-1465) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1464 arg-1465 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1464) (lambda (arg-1465) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1464 arg-1465 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1462 arg-1463 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1462 eta-3))))) arg-1458 arg-1461 eta-2)))) (lambda (arg-1461) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1462 eta-3)))) (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1462 eta-3))))) arg-1461 eta-2))))) arg-1457 arg-1460 eta-1)))) (lambda (arg-1461) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_OriginDesc arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_OriginDesc arg-1462 eta-2)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1462 eta-3)))) (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1462 eta-3))))) arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1463 eta-3)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1463 eta-3))))) arg-1462 eta-2))))) arg-1461 eta-1)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1461) (lambda (eta-2) (CoreC-45Metadata-u--toBuf_TTC_Decoration arg-1458 arg-1461 eta-2)))) (lambda (arg-1461) (lambda (eta-2) (CoreC-45Metadata-u--fromBuf_TTC_Decoration arg-1461 eta-2)))) (cons (lambda (arg-1458) (lambda (arg-1461) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-1462) (lambda (arg-1463) (lambda (eta-3) (CoreC-45TTC-u--toBuf_TTC_Name arg-1462 arg-1463 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1462 eta-3)))) arg-1458 arg-1461 eta-2)))) (lambda (arg-1461) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (CoreC-45TTC-u--toBuf_TTC_Name arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1462 eta-3)))) arg-1461 eta-2))))) arg-1457 arg-1460 eta-1)))) (lambda (arg-1461) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (CoreC-45Metadata-u--toBuf_TTC_Decoration arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (CoreC-45Metadata-u--fromBuf_TTC_Decoration arg-1462 eta-2)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (CoreC-45TTC-u--toBuf_TTC_Name arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1462 eta-3)))) arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (CoreC-45TTC-u--toBuf_TTC_Name arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1463 eta-3)))) arg-1462 eta-2))))) arg-1461 eta-1))))) arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_OriginDesc arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_OriginDesc arg-1462 eta-2)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1462 eta-3)))) (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1462 eta-3))))) arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1463 eta-3)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1463 eta-3))))) arg-1462 eta-2))))) arg-1456 arg-1459 eta-1)))) (lambda (arg-1462) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_OriginDesc arg-1456 arg-1459 eta-2)))) (lambda (arg-1463) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_OriginDesc arg-1463 eta-2)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1463 eta-3)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1463 eta-3))))) arg-1456 arg-1459 eta-2)))) (lambda (arg-1463) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1456 arg-1459 eta-3)))) (lambda (arg-1464) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1456 arg-1459 eta-4)))) (lambda (arg-1465) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1465 eta-4)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1456 arg-1459 eta-4)))) (lambda (arg-1465) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1465 eta-4))))) arg-1464 eta-3)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1456 arg-1459 eta-3)))) (lambda (arg-1464) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1456 arg-1459 eta-4)))) (lambda (arg-1465) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1465 eta-4)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1456 arg-1459 eta-4)))) (lambda (arg-1465) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1465 eta-4))))) arg-1464 eta-3))))) arg-1463 eta-2))))) arg-1462 eta-1)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (CoreC-45Metadata-u--toBuf_TTC_Decoration arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (CoreC-45Metadata-u--fromBuf_TTC_Decoration arg-1462 eta-2)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (CoreC-45TTC-u--toBuf_TTC_Name arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1462 eta-3)))) arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (CoreC-45TTC-u--toBuf_TTC_Name arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1463 eta-3)))) arg-1462 eta-2))))) arg-1456 arg-1459 eta-1)))) (lambda (arg-1462) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-2) (CoreC-45Metadata-u--toBuf_TTC_Decoration arg-1456 arg-1459 eta-2)))) (lambda (arg-1463) (lambda (eta-2) (CoreC-45Metadata-u--fromBuf_TTC_Decoration arg-1463 eta-2)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (CoreC-45TTC-u--toBuf_TTC_Name arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1463 eta-3)))) arg-1456 arg-1459 eta-2)))) (lambda (arg-1463) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-3) (CoreC-45TTC-u--toBuf_TTC_Name arg-1456 arg-1459 eta-3)))) (lambda (arg-1464) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1464 eta-3)))) arg-1463 eta-2))))) arg-1462 eta-1))))) arg-1461 eta-0)))) (lambda (eta-0) (LibrariesC-45DataC-45PosMap-u--measure_Measure_C-40C-124C-40C-40BuiltinC-46PairC-32NonEmptyFCC-41C-32C-36aC-41C-44C-40C-40BuiltinC-46MkPairC-32NonEmptyFCC-41C-32C-36aC-41C-124C-41 eta-0))) arg-0 (let ((e-13 (vector-ref arg-1 9))) e-13) ext-0))))))))))))))))))))))))))) +(define CoreC-45Metadata-u--toBuf_TTC_Decoration (lambda (arg-0 arg-1 ext-0) (cond ((equal? arg-1 0) (LibrariesC-45UtilsC-45Binary-tag arg-0 0 ext-0)) ((equal? arg-1 1) (LibrariesC-45UtilsC-45Binary-tag arg-0 1 ext-0)) ((equal? arg-1 2) (LibrariesC-45UtilsC-45Binary-tag arg-0 2 ext-0)) ((equal? arg-1 3) (LibrariesC-45UtilsC-45Binary-tag arg-0 3 ext-0)) (else (LibrariesC-45UtilsC-45Binary-tag arg-0 4 ext-0))))) +(define CoreC-45Metadata-u--show_Show_Metadata (lambda (arg-0) (let ((e-0 (vector-ref arg-0 0))) (let ((e-1 (vector-ref arg-0 1))) (let ((e-2 (vector-ref arg-0 2))) (let ((e-3 (vector-ref arg-0 3))) (let ((e-4 (vector-ref arg-0 4))) (let ((e-5 (vector-ref arg-0 5))) (let ((e-6 (vector-ref arg-0 6))) (let ((e-7 (vector-ref arg-0 7))) (let ((e-8 (vector-ref arg-0 8))) (let ((e-9 (vector-ref arg-0 9))) (PreludeC-45TypesC-45String-C-43C-43 "Metadata:\u000a" (PreludeC-45TypesC-45String-C-43C-43 " lhsApps: " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (CoreC-45FC-u--show_Show_OriginDesc x-1)) (lambda (u--d) (lambda (x-1) (CoreC-45FC-u--showPrec_Show_OriginDesc u--d x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (u--d) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int u--d x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (u--d) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int u--d x-3))))) x-2)) (lambda (u--d) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3))))) u--d x-2)))) (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (u--d) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int u--d x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (u--d) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int u--d x-3))))) x-2)) (lambda (u--d) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3))))) u--d x-2))))) x-1)) (lambda (u--d) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) d-0 x-2)))) (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) d-0 x-2))))) u--d x-1))))) x-0)) (lambda (u--d) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (CoreC-45FC-u--show_Show_OriginDesc x-1)) (lambda (d-0) (lambda (x-1) (CoreC-45FC-u--showPrec_Show_OriginDesc d-0 x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) d-0 x-2)))) (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3))))) d-1 x-2)))) (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3))))) d-1 x-2))))) d-0 x-1))))) u--d x-0)))) (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_Nat x-1)) (lambda (u--d) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_Nat u--d x-1)))) (cons (lambda (x-1) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() x-1)) (lambda (u--d) (lambda (x-1) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 '() u--d x-1))))) x-0)) (lambda (u--d) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_Nat x-1)) (lambda (d-0) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_Nat d-0 x-1)))) (cons (lambda (x-1) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() x-1)) (lambda (d-0) (lambda (x-1) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 '() d-0 x-1))))) u--d x-0))))) u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (CoreC-45FC-u--show_Show_OriginDesc x-1)) (lambda (d-0) (lambda (x-1) (CoreC-45FC-u--showPrec_Show_OriginDesc d-0 x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) d-0 x-2)))) (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3))))) d-1 x-2)))) (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3))))) d-1 x-2))))) d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (CoreC-45FC-u--show_Show_OriginDesc x-1)) (lambda (d-1) (lambda (x-1) (CoreC-45FC-u--showPrec_Show_OriginDesc d-1 x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3))))) d-1 x-2)))) (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3))))) d-1 x-2))))) x-1)) (lambda (d-1) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3))))) x-2)) (lambda (d-2) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-3) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-3 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-3) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-3 x-3))))) d-2 x-2)))) (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3))))) x-2)) (lambda (d-2) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-3) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-3 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-3) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-3 x-3))))) d-2 x-2))))) d-1 x-1))))) d-0 x-0)))) (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_Nat x-1)) (lambda (d-0) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_Nat d-0 x-1)))) (cons (lambda (x-1) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() x-1)) (lambda (d-0) (lambda (x-1) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 '() d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_Nat x-1)) (lambda (d-1) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_Nat d-1 x-1)))) (cons (lambda (x-1) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() x-1)) (lambda (d-1) (lambda (x-1) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 '() d-1 x-1))))) d-0 x-0))))) u--d u--x)))) e-0) (PreludeC-45TypesC-45String-C-43C-43 "\u000a" (PreludeC-45TypesC-45String-C-43C-43 " names: " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (CoreC-45FC-u--show_Show_OriginDesc x-1)) (lambda (u--d) (lambda (x-1) (CoreC-45FC-u--showPrec_Show_OriginDesc u--d x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (u--d) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int u--d x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (u--d) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int u--d x-3))))) x-2)) (lambda (u--d) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3))))) u--d x-2)))) (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (u--d) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int u--d x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (u--d) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int u--d x-3))))) x-2)) (lambda (u--d) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3))))) u--d x-2))))) x-1)) (lambda (u--d) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) d-0 x-2)))) (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) d-0 x-2))))) u--d x-1))))) x-0)) (lambda (u--d) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (CoreC-45FC-u--show_Show_OriginDesc x-1)) (lambda (d-0) (lambda (x-1) (CoreC-45FC-u--showPrec_Show_OriginDesc d-0 x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) d-0 x-2)))) (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3))))) d-1 x-2)))) (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3))))) d-1 x-2))))) d-0 x-1))))) u--d x-0)))) (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (CoreC-45Name-u--show_Show_Name x-1)) (lambda (u--d) (lambda (x-1) (CoreC-45Name-u--showPrec_Show_Name u--d x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_Nat x-2)) (lambda (u--d) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_Nat u--d x-2)))) (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() x-2)) (lambda (u--d) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 '() u--d x-2))))) x-1)) (lambda (u--d) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_Nat x-2)) (lambda (d-0) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_Nat d-0 x-2)))) (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() x-2)) (lambda (d-0) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 '() d-0 x-2))))) u--d x-1))))) x-0)) (lambda (u--d) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (CoreC-45Name-u--show_Show_Name x-1)) (lambda (d-0) (lambda (x-1) (CoreC-45Name-u--showPrec_Show_Name d-0 x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_Nat x-2)) (lambda (d-0) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_Nat d-0 x-2)))) (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() x-2)) (lambda (d-0) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 '() d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_Nat x-2)) (lambda (d-1) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_Nat d-1 x-2)))) (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() x-2)) (lambda (d-1) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 '() d-1 x-2))))) d-0 x-1))))) u--d x-0))))) u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (CoreC-45FC-u--show_Show_OriginDesc x-1)) (lambda (d-0) (lambda (x-1) (CoreC-45FC-u--showPrec_Show_OriginDesc d-0 x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) d-0 x-2)))) (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3))))) d-1 x-2)))) (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3))))) d-1 x-2))))) d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (CoreC-45FC-u--show_Show_OriginDesc x-1)) (lambda (d-1) (lambda (x-1) (CoreC-45FC-u--showPrec_Show_OriginDesc d-1 x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3))))) d-1 x-2)))) (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3))))) d-1 x-2))))) x-1)) (lambda (d-1) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3))))) x-2)) (lambda (d-2) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-3) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-3 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-3) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-3 x-3))))) d-2 x-2)))) (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3))))) x-2)) (lambda (d-2) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-3) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-3 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-3) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-3 x-3))))) d-2 x-2))))) d-1 x-1))))) d-0 x-0)))) (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (CoreC-45Name-u--show_Show_Name x-1)) (lambda (d-0) (lambda (x-1) (CoreC-45Name-u--showPrec_Show_Name d-0 x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_Nat x-2)) (lambda (d-0) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_Nat d-0 x-2)))) (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() x-2)) (lambda (d-0) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 '() d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_Nat x-2)) (lambda (d-1) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_Nat d-1 x-2)))) (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() x-2)) (lambda (d-1) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 '() d-1 x-2))))) d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (CoreC-45Name-u--show_Show_Name x-1)) (lambda (d-1) (lambda (x-1) (CoreC-45Name-u--showPrec_Show_Name d-1 x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_Nat x-2)) (lambda (d-1) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_Nat d-1 x-2)))) (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() x-2)) (lambda (d-1) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 '() d-1 x-2))))) x-1)) (lambda (d-1) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_Nat x-2)) (lambda (d-2) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_Nat d-2 x-2)))) (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() x-2)) (lambda (d-2) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 '() d-2 x-2))))) d-1 x-1))))) d-0 x-0))))) u--d u--x)))) e-1) (PreludeC-45TypesC-45String-C-43C-43 "\u000a" (PreludeC-45TypesC-45String-C-43C-43 " type declarations: " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (CoreC-45FC-u--show_Show_OriginDesc x-1)) (lambda (u--d) (lambda (x-1) (CoreC-45FC-u--showPrec_Show_OriginDesc u--d x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (u--d) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int u--d x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (u--d) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int u--d x-3))))) x-2)) (lambda (u--d) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3))))) u--d x-2)))) (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (u--d) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int u--d x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (u--d) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int u--d x-3))))) x-2)) (lambda (u--d) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3))))) u--d x-2))))) x-1)) (lambda (u--d) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) d-0 x-2)))) (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) d-0 x-2))))) u--d x-1))))) x-0)) (lambda (u--d) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (CoreC-45FC-u--show_Show_OriginDesc x-1)) (lambda (d-0) (lambda (x-1) (CoreC-45FC-u--showPrec_Show_OriginDesc d-0 x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) d-0 x-2)))) (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3))))) d-1 x-2)))) (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3))))) d-1 x-2))))) d-0 x-1))))) u--d x-0)))) (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (CoreC-45Name-u--show_Show_Name x-1)) (lambda (u--d) (lambda (x-1) (CoreC-45Name-u--showPrec_Show_Name u--d x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_Nat x-2)) (lambda (u--d) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_Nat u--d x-2)))) (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() x-2)) (lambda (u--d) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 '() u--d x-2))))) x-1)) (lambda (u--d) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_Nat x-2)) (lambda (d-0) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_Nat d-0 x-2)))) (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() x-2)) (lambda (d-0) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 '() d-0 x-2))))) u--d x-1))))) x-0)) (lambda (u--d) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (CoreC-45Name-u--show_Show_Name x-1)) (lambda (d-0) (lambda (x-1) (CoreC-45Name-u--showPrec_Show_Name d-0 x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_Nat x-2)) (lambda (d-0) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_Nat d-0 x-2)))) (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() x-2)) (lambda (d-0) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 '() d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_Nat x-2)) (lambda (d-1) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_Nat d-1 x-2)))) (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() x-2)) (lambda (d-1) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 '() d-1 x-2))))) d-0 x-1))))) u--d x-0))))) u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (CoreC-45FC-u--show_Show_OriginDesc x-1)) (lambda (d-0) (lambda (x-1) (CoreC-45FC-u--showPrec_Show_OriginDesc d-0 x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) d-0 x-2)))) (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3))))) d-1 x-2)))) (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3))))) d-1 x-2))))) d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (CoreC-45FC-u--show_Show_OriginDesc x-1)) (lambda (d-1) (lambda (x-1) (CoreC-45FC-u--showPrec_Show_OriginDesc d-1 x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3))))) d-1 x-2)))) (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3))))) d-1 x-2))))) x-1)) (lambda (d-1) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3))))) x-2)) (lambda (d-2) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-3) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-3 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-3) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-3 x-3))))) d-2 x-2)))) (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3))))) x-2)) (lambda (d-2) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-3) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-3 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-3) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-3 x-3))))) d-2 x-2))))) d-1 x-1))))) d-0 x-0)))) (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (CoreC-45Name-u--show_Show_Name x-1)) (lambda (d-0) (lambda (x-1) (CoreC-45Name-u--showPrec_Show_Name d-0 x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_Nat x-2)) (lambda (d-0) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_Nat d-0 x-2)))) (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() x-2)) (lambda (d-0) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 '() d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_Nat x-2)) (lambda (d-1) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_Nat d-1 x-2)))) (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() x-2)) (lambda (d-1) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 '() d-1 x-2))))) d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (CoreC-45Name-u--show_Show_Name x-1)) (lambda (d-1) (lambda (x-1) (CoreC-45Name-u--showPrec_Show_Name d-1 x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_Nat x-2)) (lambda (d-1) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_Nat d-1 x-2)))) (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() x-2)) (lambda (d-1) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 '() d-1 x-2))))) x-1)) (lambda (d-1) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_Nat x-2)) (lambda (d-2) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_Nat d-2 x-2)))) (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() x-2)) (lambda (d-2) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 '() d-2 x-2))))) d-1 x-1))))) d-0 x-0))))) u--d u--x)))) e-2) (PreludeC-45TypesC-45String-C-43C-43 "\u000a" (PreludeC-45TypesC-45String-C-43C-43 " current LHS: " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 '() u--d u--x)))) e-3) (PreludeC-45TypesC-45String-C-43C-43 "\u000a" (PreludeC-45TypesC-45String-C-43C-43 " holes: " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (CoreC-45Name-u--show_Show_Name x-0)) (lambda (u--d) (lambda (x-0) (CoreC-45Name-u--showPrec_Show_Name u--d x-0)))) (cons (lambda (x-0) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() x-0)) (lambda (u--d) (lambda (x-0) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 '() u--d x-0))))) u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (CoreC-45Name-u--show_Show_Name x-0)) (lambda (d-0) (lambda (x-0) (CoreC-45Name-u--showPrec_Show_Name d-0 x-0)))) (cons (lambda (x-0) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() x-0)) (lambda (d-0) (lambda (x-0) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 '() d-0 x-0))))) u--d u--x)))) e-4) (PreludeC-45TypesC-45String-C-43C-43 "\u000a" (PreludeC-45TypesC-45String-C-43C-43 " nameLocMap: " (PreludeC-45TypesC-45String-C-43C-43 (LibrariesC-45DataC-45PosMap-u--show_Show_C-40PosMapC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (CoreC-45FC-u--show_Show_OriginDesc x-1)) (lambda (u--d) (lambda (x-1) (CoreC-45FC-u--showPrec_Show_OriginDesc u--d x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (u--d) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int u--d x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (u--d) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int u--d x-3))))) x-2)) (lambda (u--d) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3))))) u--d x-2)))) (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (u--d) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int u--d x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (u--d) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int u--d x-3))))) x-2)) (lambda (u--d) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3))))) u--d x-2))))) x-1)) (lambda (u--d) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) d-0 x-2)))) (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) d-0 x-2))))) u--d x-1))))) x-0)) (lambda (u--d) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (CoreC-45FC-u--show_Show_OriginDesc x-1)) (lambda (d-0) (lambda (x-1) (CoreC-45FC-u--showPrec_Show_OriginDesc d-0 x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) d-0 x-2)))) (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3))))) d-1 x-2)))) (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3))))) d-1 x-2))))) d-0 x-1))))) u--d x-0)))) (cons (lambda (x-0) (CoreC-45Name-u--show_Show_Name x-0)) (lambda (u--d) (lambda (x-0) (CoreC-45Name-u--showPrec_Show_Name u--d x-0))))) u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (CoreC-45FC-u--show_Show_OriginDesc x-1)) (lambda (d-0) (lambda (x-1) (CoreC-45FC-u--showPrec_Show_OriginDesc d-0 x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) d-0 x-2)))) (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3))))) d-1 x-2)))) (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3))))) d-1 x-2))))) d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (CoreC-45FC-u--show_Show_OriginDesc x-1)) (lambda (d-1) (lambda (x-1) (CoreC-45FC-u--showPrec_Show_OriginDesc d-1 x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3))))) d-1 x-2)))) (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3))))) d-1 x-2))))) x-1)) (lambda (d-1) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3))))) x-2)) (lambda (d-2) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-3) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-3 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-3) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-3 x-3))))) d-2 x-2)))) (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3))))) x-2)) (lambda (d-2) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-3) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-3 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-3) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-3 x-3))))) d-2 x-2))))) d-1 x-1))))) d-0 x-0)))) (cons (lambda (x-0) (CoreC-45Name-u--show_Show_Name x-0)) (lambda (d-0) (lambda (x-0) (CoreC-45Name-u--showPrec_Show_Name d-0 x-0))))) u--d u--x)))) e-5) (PreludeC-45TypesC-45String-C-43C-43 "\u000a" (PreludeC-45TypesC-45String-C-43C-43 " sourceIdent: " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_OriginDesc e-6) (PreludeC-45TypesC-45String-C-43C-43 " semanticHighlighting: " (PreludeC-45TypesC-45String-C-43C-43 (LibrariesC-45DataC-45PosMap-u--show_Show_C-40PosMapC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (CoreC-45FC-u--show_Show_OriginDesc x-1)) (lambda (u--d) (lambda (x-1) (CoreC-45FC-u--showPrec_Show_OriginDesc u--d x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (u--d) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int u--d x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (u--d) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int u--d x-3))))) x-2)) (lambda (u--d) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3))))) u--d x-2)))) (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (u--d) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int u--d x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (u--d) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int u--d x-3))))) x-2)) (lambda (u--d) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3))))) u--d x-2))))) x-1)) (lambda (u--d) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) d-0 x-2)))) (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) d-0 x-2))))) u--d x-1))))) x-0)) (lambda (u--d) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (CoreC-45FC-u--show_Show_OriginDesc x-1)) (lambda (d-0) (lambda (x-1) (CoreC-45FC-u--showPrec_Show_OriginDesc d-0 x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) d-0 x-2)))) (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3))))) d-1 x-2)))) (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3))))) d-1 x-2))))) d-0 x-1))))) u--d x-0)))) (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (CoreC-45Metadata-u--show_Show_Decoration x-1)) (lambda (u--d) (lambda (x-1) (CoreC-45Metadata-u--showPrec_Show_Decoration u--d x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (x-2) (CoreC-45Name-u--show_Show_Name x-2)) (lambda (u--d) (lambda (x-2) (CoreC-45Name-u--showPrec_Show_Name u--d x-2)))) x-1)) (lambda (u--d) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (x-2) (CoreC-45Name-u--show_Show_Name x-2)) (lambda (d-0) (lambda (x-2) (CoreC-45Name-u--showPrec_Show_Name d-0 x-2)))) u--d x-1))))) x-0)) (lambda (u--d) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (CoreC-45Metadata-u--show_Show_Decoration x-1)) (lambda (d-0) (lambda (x-1) (CoreC-45Metadata-u--showPrec_Show_Decoration d-0 x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (x-2) (CoreC-45Name-u--show_Show_Name x-2)) (lambda (d-0) (lambda (x-2) (CoreC-45Name-u--showPrec_Show_Name d-0 x-2)))) x-1)) (lambda (d-0) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (x-2) (CoreC-45Name-u--show_Show_Name x-2)) (lambda (d-1) (lambda (x-2) (CoreC-45Name-u--showPrec_Show_Name d-1 x-2)))) d-0 x-1))))) u--d x-0))))) u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (CoreC-45FC-u--show_Show_OriginDesc x-1)) (lambda (d-0) (lambda (x-1) (CoreC-45FC-u--showPrec_Show_OriginDesc d-0 x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) d-0 x-2)))) (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3))))) d-1 x-2)))) (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3))))) d-1 x-2))))) d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (CoreC-45FC-u--show_Show_OriginDesc x-1)) (lambda (d-1) (lambda (x-1) (CoreC-45FC-u--showPrec_Show_OriginDesc d-1 x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3))))) d-1 x-2)))) (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3))))) d-1 x-2))))) x-1)) (lambda (d-1) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3))))) x-2)) (lambda (d-2) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-3) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-3 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-3) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-3 x-3))))) d-2 x-2)))) (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3))))) x-2)) (lambda (d-2) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-3) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-3 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-3) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-3 x-3))))) d-2 x-2))))) d-1 x-1))))) d-0 x-0)))) (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (CoreC-45Metadata-u--show_Show_Decoration x-1)) (lambda (d-0) (lambda (x-1) (CoreC-45Metadata-u--showPrec_Show_Decoration d-0 x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (x-2) (CoreC-45Name-u--show_Show_Name x-2)) (lambda (d-0) (lambda (x-2) (CoreC-45Name-u--showPrec_Show_Name d-0 x-2)))) x-1)) (lambda (d-0) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (x-2) (CoreC-45Name-u--show_Show_Name x-2)) (lambda (d-1) (lambda (x-2) (CoreC-45Name-u--showPrec_Show_Name d-1 x-2)))) d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (CoreC-45Metadata-u--show_Show_Decoration x-1)) (lambda (d-1) (lambda (x-1) (CoreC-45Metadata-u--showPrec_Show_Decoration d-1 x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (x-2) (CoreC-45Name-u--show_Show_Name x-2)) (lambda (d-1) (lambda (x-2) (CoreC-45Name-u--showPrec_Show_Name d-1 x-2)))) x-1)) (lambda (d-1) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (x-2) (CoreC-45Name-u--show_Show_Name x-2)) (lambda (d-2) (lambda (x-2) (CoreC-45Name-u--showPrec_Show_Name d-2 x-2)))) d-1 x-1))))) d-0 x-0))))) u--d u--x)))) e-7) (PreludeC-45TypesC-45String-C-43C-43 " semanticAliases: " (PreludeC-45TypesC-45String-C-43C-43 (LibrariesC-45DataC-45PosMap-u--show_Show_C-40PosMapC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (CoreC-45FC-u--show_Show_OriginDesc x-1)) (lambda (u--d) (lambda (x-1) (CoreC-45FC-u--showPrec_Show_OriginDesc u--d x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (u--d) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int u--d x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (u--d) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int u--d x-3))))) x-2)) (lambda (u--d) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3))))) u--d x-2)))) (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (u--d) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int u--d x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (u--d) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int u--d x-3))))) x-2)) (lambda (u--d) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3))))) u--d x-2))))) x-1)) (lambda (u--d) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) d-0 x-2)))) (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) d-0 x-2))))) u--d x-1))))) x-0)) (lambda (u--d) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (CoreC-45FC-u--show_Show_OriginDesc x-1)) (lambda (d-0) (lambda (x-1) (CoreC-45FC-u--showPrec_Show_OriginDesc d-0 x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) d-0 x-2)))) (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3))))) d-1 x-2)))) (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3))))) d-1 x-2))))) d-0 x-1))))) u--d x-0)))) (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (CoreC-45FC-u--show_Show_OriginDesc x-1)) (lambda (u--d) (lambda (x-1) (CoreC-45FC-u--showPrec_Show_OriginDesc u--d x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (u--d) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int u--d x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (u--d) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int u--d x-3))))) x-2)) (lambda (u--d) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3))))) u--d x-2)))) (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (u--d) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int u--d x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (u--d) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int u--d x-3))))) x-2)) (lambda (u--d) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3))))) u--d x-2))))) x-1)) (lambda (u--d) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) d-0 x-2)))) (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) d-0 x-2))))) u--d x-1))))) x-0)) (lambda (u--d) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (CoreC-45FC-u--show_Show_OriginDesc x-1)) (lambda (d-0) (lambda (x-1) (CoreC-45FC-u--showPrec_Show_OriginDesc d-0 x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) d-0 x-2)))) (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3))))) d-1 x-2)))) (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3))))) d-1 x-2))))) d-0 x-1))))) u--d x-0))))) u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (CoreC-45FC-u--show_Show_OriginDesc x-1)) (lambda (d-0) (lambda (x-1) (CoreC-45FC-u--showPrec_Show_OriginDesc d-0 x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) d-0 x-2)))) (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3))))) d-1 x-2)))) (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3))))) d-1 x-2))))) d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (CoreC-45FC-u--show_Show_OriginDesc x-1)) (lambda (d-1) (lambda (x-1) (CoreC-45FC-u--showPrec_Show_OriginDesc d-1 x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3))))) d-1 x-2)))) (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3))))) d-1 x-2))))) x-1)) (lambda (d-1) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3))))) x-2)) (lambda (d-2) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-3) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-3 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-3) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-3 x-3))))) d-2 x-2)))) (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3))))) x-2)) (lambda (d-2) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-3) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-3 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-3) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-3 x-3))))) d-2 x-2))))) d-1 x-1))))) d-0 x-0)))) (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (CoreC-45FC-u--show_Show_OriginDesc x-1)) (lambda (d-0) (lambda (x-1) (CoreC-45FC-u--showPrec_Show_OriginDesc d-0 x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) d-0 x-2)))) (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3))))) d-1 x-2)))) (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3))))) d-1 x-2))))) d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (CoreC-45FC-u--show_Show_OriginDesc x-1)) (lambda (d-1) (lambda (x-1) (CoreC-45FC-u--showPrec_Show_OriginDesc d-1 x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3))))) d-1 x-2)))) (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3))))) d-1 x-2))))) x-1)) (lambda (d-1) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3))))) x-2)) (lambda (d-2) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-3) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-3 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-3) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-3 x-3))))) d-2 x-2)))) (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3))))) x-2)) (lambda (d-2) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-3) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-3 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-3) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-3 x-3))))) d-2 x-2))))) d-1 x-1))))) d-0 x-0))))) u--d u--x)))) e-8) (PreludeC-45TypesC-45String-C-43C-43 " semanticDefaults: " (LibrariesC-45DataC-45PosMap-u--show_Show_C-40PosMapC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (CoreC-45FC-u--show_Show_OriginDesc x-1)) (lambda (u--d) (lambda (x-1) (CoreC-45FC-u--showPrec_Show_OriginDesc u--d x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (u--d) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int u--d x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (u--d) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int u--d x-3))))) x-2)) (lambda (u--d) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3))))) u--d x-2)))) (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (u--d) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int u--d x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (u--d) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int u--d x-3))))) x-2)) (lambda (u--d) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3))))) u--d x-2))))) x-1)) (lambda (u--d) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) d-0 x-2)))) (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) d-0 x-2))))) u--d x-1))))) x-0)) (lambda (u--d) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (CoreC-45FC-u--show_Show_OriginDesc x-1)) (lambda (d-0) (lambda (x-1) (CoreC-45FC-u--showPrec_Show_OriginDesc d-0 x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) d-0 x-2)))) (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3))))) d-1 x-2)))) (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3))))) d-1 x-2))))) d-0 x-1))))) u--d x-0)))) (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (CoreC-45Metadata-u--show_Show_Decoration x-1)) (lambda (u--d) (lambda (x-1) (CoreC-45Metadata-u--showPrec_Show_Decoration u--d x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (x-2) (CoreC-45Name-u--show_Show_Name x-2)) (lambda (u--d) (lambda (x-2) (CoreC-45Name-u--showPrec_Show_Name u--d x-2)))) x-1)) (lambda (u--d) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (x-2) (CoreC-45Name-u--show_Show_Name x-2)) (lambda (d-0) (lambda (x-2) (CoreC-45Name-u--showPrec_Show_Name d-0 x-2)))) u--d x-1))))) x-0)) (lambda (u--d) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (CoreC-45Metadata-u--show_Show_Decoration x-1)) (lambda (d-0) (lambda (x-1) (CoreC-45Metadata-u--showPrec_Show_Decoration d-0 x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (x-2) (CoreC-45Name-u--show_Show_Name x-2)) (lambda (d-0) (lambda (x-2) (CoreC-45Name-u--showPrec_Show_Name d-0 x-2)))) x-1)) (lambda (d-0) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (x-2) (CoreC-45Name-u--show_Show_Name x-2)) (lambda (d-1) (lambda (x-2) (CoreC-45Name-u--showPrec_Show_Name d-1 x-2)))) d-0 x-1))))) u--d x-0))))) u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (CoreC-45FC-u--show_Show_OriginDesc x-1)) (lambda (d-0) (lambda (x-1) (CoreC-45FC-u--showPrec_Show_OriginDesc d-0 x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) d-0 x-2)))) (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3))))) d-1 x-2)))) (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3))))) d-1 x-2))))) d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (CoreC-45FC-u--show_Show_OriginDesc x-1)) (lambda (d-1) (lambda (x-1) (CoreC-45FC-u--showPrec_Show_OriginDesc d-1 x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3))))) d-1 x-2)))) (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3))))) d-1 x-2))))) x-1)) (lambda (d-1) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3))))) x-2)) (lambda (d-2) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-3) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-3 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-3) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-3 x-3))))) d-2 x-2)))) (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3))))) x-2)) (lambda (d-2) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-3) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-3 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-3) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-3 x-3))))) d-2 x-2))))) d-1 x-1))))) d-0 x-0)))) (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (CoreC-45Metadata-u--show_Show_Decoration x-1)) (lambda (d-0) (lambda (x-1) (CoreC-45Metadata-u--showPrec_Show_Decoration d-0 x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (x-2) (CoreC-45Name-u--show_Show_Name x-2)) (lambda (d-0) (lambda (x-2) (CoreC-45Name-u--showPrec_Show_Name d-0 x-2)))) x-1)) (lambda (d-0) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (x-2) (CoreC-45Name-u--show_Show_Name x-2)) (lambda (d-1) (lambda (x-2) (CoreC-45Name-u--showPrec_Show_Name d-1 x-2)))) d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (CoreC-45Metadata-u--show_Show_Decoration x-1)) (lambda (d-1) (lambda (x-1) (CoreC-45Metadata-u--showPrec_Show_Decoration d-1 x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (x-2) (CoreC-45Name-u--show_Show_Name x-2)) (lambda (d-1) (lambda (x-2) (CoreC-45Name-u--showPrec_Show_Name d-1 x-2)))) x-1)) (lambda (d-1) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (x-2) (CoreC-45Name-u--show_Show_Name x-2)) (lambda (d-2) (lambda (x-2) (CoreC-45Name-u--showPrec_Show_Name d-2 x-2)))) d-1 x-1))))) d-0 x-0))))) u--d u--x)))) e-9))))))))))))))))))))))))))))))))))))))) +(define CoreC-45Metadata-u--show_Show_Decoration (lambda (arg-0) (cond ((equal? arg-0 0) "type") ((equal? arg-0 1) "function") ((equal? arg-0 2) "data") ((equal? arg-0 3) "keyword") (else "bound")))) +(define CoreC-45Metadata-u--showPrec_Show_Decoration (lambda (arg-0 arg-1) (CoreC-45Metadata-u--show_Show_Decoration arg-1))) +(define CoreC-45Metadata-u--full_HasNames_Metadata (lambda (arg-0 arg-1 ext-0) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (CoreC-45Metadata-n--9718-11467-u--fullLHS arg-1 arg-0 eta-0 eta-1))) (let ((e-0 (vector-ref arg-1 0))) e-0) '() ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Metadata-n--9718-11468-u--fullTy arg-1 arg-0 eta-0)) (let ((e-1 (vector-ref arg-1 1))) e-1) '() ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Metadata-n--9718-11468-u--fullTy arg-1 arg-0 eta-0)) (let ((e-2 (vector-ref arg-1 2))) e-2) '() ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (CoreC-45Metadata-n--9718-11469-u--fullHLHS arg-1 arg-0 eta-0 eta-1))) (let ((e-4 (vector-ref arg-1 4))) e-4) '() ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (CoreC-45Metadata-n--9718-11470-u--fullDecls arg-1 arg-0 eta-0 eta-1))) (LibrariesC-45DataC-45PosMap-u--toList_Foldable_PosMap (let ((e-13 (vector-ref arg-1 5))) e-13)) '() ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-28 1))) (vector 1 (let ((e-13 (vector-ref arg-1 6))) (let ((e-12 (vector-ref arg-1 7))) (let ((e-11 (vector-ref arg-1 8))) (let ((e-10 (vector-ref arg-1 9))) (vector e-5 e-6 e-7 '() e-8 (LibrariesC-45DataC-45PosMap-fromList (lambda (eta-0) (LibrariesC-45DataC-45PosMap-u--measure_Measure_C-40C-124C-40C-40BuiltinC-46PairC-32NonEmptyFCC-41C-32C-36aC-41C-44C-40C-40BuiltinC-46MkPairC-32NonEmptyFCC-41C-32C-36aC-41C-124C-41 eta-0)) e-9) e-13 e-12 e-11 e-10)))))))))))))))))))))))))))) +(define CoreC-45Metadata-u--fromBuf_TTC_TTMFile (lambda (arg-0 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (let ((sc1 (PreludeC-45EqOrd-u--C-47C-61_Eq_String e-5 "TTM"))) (cond ((equal? sc1 1) (LibrariesC-45UtilsC-45Binary-corrupt "TTM header" ext-0)) (else (vector 1 0)))))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-0 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (CoreC-45Binary-checkTTCVersion "" e-7 (CoreC-45Binary-ttcVersion) ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((act-28 (CoreC-45Metadata-u--fromBuf_TTC_Metadata arg-0 ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-28 1))) (vector 1 (cons e-7 e-9)))))))))))))))))))))) +(define CoreC-45Metadata-u--fromBuf_TTC_Metadata (lambda (arg-0 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1461) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_OriginDesc arg-1458 arg-1461 eta-2)))) (lambda (arg-1461) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_OriginDesc arg-1461 eta-2)))) (cons (lambda (arg-1458) (lambda (arg-1461) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1462) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1464) (lambda (arg-1465) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1464 arg-1465 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1464) (lambda (arg-1465) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1464 arg-1465 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1462 arg-1463 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1462 eta-3)))) (cons (lambda (arg-1462) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1464) (lambda (arg-1465) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1464 arg-1465 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1464) (lambda (arg-1465) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1464 arg-1465 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1462 arg-1463 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1462 eta-3))))) arg-1458 arg-1461 eta-2)))) (lambda (arg-1461) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1462 eta-3)))) (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1462 eta-3))))) arg-1461 eta-2))))) arg-1457 arg-1460 eta-1)))) (lambda (arg-1461) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_OriginDesc arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_OriginDesc arg-1462 eta-2)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1462 eta-3)))) (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1462 eta-3))))) arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1463 eta-3)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1463 eta-3))))) arg-1462 eta-2))))) arg-1461 eta-1)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1461) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-1458 arg-1461 eta-2)))) (lambda (arg-1461) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-1461 eta-2)))) (cons (lambda (arg-1458) (lambda (arg-1461) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-1458 arg-1461))) (lambda (arg-1461) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-1461 eta-2))))) arg-1457 arg-1460 eta-1)))) (lambda (arg-1461) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-1462 eta-2)))) (cons (lambda (arg-1457) (lambda (arg-1460) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-1457 arg-1460))) (lambda (arg-1462) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-1462 eta-2))))) arg-1461 eta-1))))) arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_OriginDesc arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_OriginDesc arg-1462 eta-2)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1462 eta-3)))) (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1462 eta-3))))) arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1463 eta-3)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1463 eta-3))))) arg-1462 eta-2))))) arg-1456 arg-1459 eta-1)))) (lambda (arg-1462) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_OriginDesc arg-1456 arg-1459 eta-2)))) (lambda (arg-1463) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_OriginDesc arg-1463 eta-2)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1463 eta-3)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1463 eta-3))))) arg-1456 arg-1459 eta-2)))) (lambda (arg-1463) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1456 arg-1459 eta-3)))) (lambda (arg-1464) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1456 arg-1459 eta-4)))) (lambda (arg-1465) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1465 eta-4)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1456 arg-1459 eta-4)))) (lambda (arg-1465) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1465 eta-4))))) arg-1464 eta-3)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1456 arg-1459 eta-3)))) (lambda (arg-1464) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1456 arg-1459 eta-4)))) (lambda (arg-1465) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1465 eta-4)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1456 arg-1459 eta-4)))) (lambda (arg-1465) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1465 eta-4))))) arg-1464 eta-3))))) arg-1463 eta-2))))) arg-1462 eta-1)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-1462 eta-2)))) (cons (lambda (arg-1457) (lambda (arg-1460) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-1457 arg-1460))) (lambda (arg-1462) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-1462 eta-2))))) arg-1456 arg-1459 eta-1)))) (lambda (arg-1462) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-1456 arg-1459 eta-2)))) (lambda (arg-1463) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-1463 eta-2)))) (cons (lambda (arg-1456) (lambda (arg-1459) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-1456 arg-1459))) (lambda (arg-1463) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-1463 eta-2))))) arg-1462 eta-1))))) arg-1461 eta-0)))) arg-0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1461) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_OriginDesc arg-1458 arg-1461 eta-2)))) (lambda (arg-1461) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_OriginDesc arg-1461 eta-2)))) (cons (lambda (arg-1458) (lambda (arg-1461) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1462) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1464) (lambda (arg-1465) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1464 arg-1465 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1464) (lambda (arg-1465) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1464 arg-1465 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1462 arg-1463 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1462 eta-3)))) (cons (lambda (arg-1462) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1464) (lambda (arg-1465) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1464 arg-1465 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1464) (lambda (arg-1465) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1464 arg-1465 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1462 arg-1463 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1462 eta-3))))) arg-1458 arg-1461 eta-2)))) (lambda (arg-1461) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1462 eta-3)))) (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1462 eta-3))))) arg-1461 eta-2))))) arg-1457 arg-1460 eta-1)))) (lambda (arg-1461) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_OriginDesc arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_OriginDesc arg-1462 eta-2)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1462 eta-3)))) (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1462 eta-3))))) arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1463 eta-3)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1463 eta-3))))) arg-1462 eta-2))))) arg-1461 eta-1)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1461) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_Name arg-1458 arg-1461 eta-2)))) (lambda (arg-1461) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1461 eta-2)))) (cons (lambda (arg-1458) (lambda (arg-1461) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1462) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-1462 arg-1463 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-1462 eta-3)))) (cons (lambda (arg-1462) (lambda (arg-1463) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-1462 arg-1463))) (lambda (arg-1462) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-1462 eta-3))))) arg-1458 arg-1461 eta-2)))) (lambda (arg-1461) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-1462 eta-3)))) (cons (lambda (arg-1458) (lambda (arg-1462) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-1458 arg-1462))) (lambda (arg-1462) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-1462 eta-3))))) arg-1461 eta-2))))) arg-1457 arg-1460 eta-1)))) (lambda (arg-1461) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_Name arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1462 eta-2)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-1462 eta-3)))) (cons (lambda (arg-1458) (lambda (arg-1462) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-1458 arg-1462))) (lambda (arg-1462) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-1462 eta-3))))) arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-1463 eta-3)))) (cons (lambda (arg-1457) (lambda (arg-1460) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-1457 arg-1460))) (lambda (arg-1463) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-1463 eta-3))))) arg-1462 eta-2))))) arg-1461 eta-1))))) arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_OriginDesc arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_OriginDesc arg-1462 eta-2)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1462 eta-3)))) (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1462 eta-3))))) arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1463 eta-3)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1463 eta-3))))) arg-1462 eta-2))))) arg-1456 arg-1459 eta-1)))) (lambda (arg-1462) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_OriginDesc arg-1456 arg-1459 eta-2)))) (lambda (arg-1463) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_OriginDesc arg-1463 eta-2)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1463 eta-3)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1463 eta-3))))) arg-1456 arg-1459 eta-2)))) (lambda (arg-1463) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1456 arg-1459 eta-3)))) (lambda (arg-1464) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1456 arg-1459 eta-4)))) (lambda (arg-1465) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1465 eta-4)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1456 arg-1459 eta-4)))) (lambda (arg-1465) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1465 eta-4))))) arg-1464 eta-3)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1456 arg-1459 eta-3)))) (lambda (arg-1464) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1456 arg-1459 eta-4)))) (lambda (arg-1465) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1465 eta-4)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1456 arg-1459 eta-4)))) (lambda (arg-1465) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1465 eta-4))))) arg-1464 eta-3))))) arg-1463 eta-2))))) arg-1462 eta-1)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_Name arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1462 eta-2)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-1462 eta-3)))) (cons (lambda (arg-1458) (lambda (arg-1462) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-1458 arg-1462))) (lambda (arg-1462) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-1462 eta-3))))) arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-1463 eta-3)))) (cons (lambda (arg-1457) (lambda (arg-1460) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-1457 arg-1460))) (lambda (arg-1463) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-1463 eta-3))))) arg-1462 eta-2))))) arg-1456 arg-1459 eta-1)))) (lambda (arg-1462) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_Name arg-1456 arg-1459 eta-2)))) (lambda (arg-1463) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1463 eta-2)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-1463 eta-3)))) (cons (lambda (arg-1457) (lambda (arg-1460) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-1457 arg-1460))) (lambda (arg-1463) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-1463 eta-3))))) arg-1456 arg-1459 eta-2)))) (lambda (arg-1463) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-1456 arg-1459 eta-3)))) (lambda (arg-1464) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-1464 eta-3)))) (cons (lambda (arg-1456) (lambda (arg-1459) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-1456 arg-1459))) (lambda (arg-1464) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-1464 eta-3))))) arg-1463 eta-2))))) arg-1462 eta-1))))) arg-1461 eta-0)))) arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1461) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_OriginDesc arg-1458 arg-1461 eta-2)))) (lambda (arg-1461) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_OriginDesc arg-1461 eta-2)))) (cons (lambda (arg-1458) (lambda (arg-1461) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1462) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1464) (lambda (arg-1465) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1464 arg-1465 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1464) (lambda (arg-1465) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1464 arg-1465 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1462 arg-1463 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1462 eta-3)))) (cons (lambda (arg-1462) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1464) (lambda (arg-1465) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1464 arg-1465 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1464) (lambda (arg-1465) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1464 arg-1465 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1462 arg-1463 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1462 eta-3))))) arg-1458 arg-1461 eta-2)))) (lambda (arg-1461) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1462 eta-3)))) (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1462 eta-3))))) arg-1461 eta-2))))) arg-1457 arg-1460 eta-1)))) (lambda (arg-1461) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_OriginDesc arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_OriginDesc arg-1462 eta-2)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1462 eta-3)))) (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1462 eta-3))))) arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1463 eta-3)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1463 eta-3))))) arg-1462 eta-2))))) arg-1461 eta-1)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1461) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_Name arg-1458 arg-1461 eta-2)))) (lambda (arg-1461) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1461 eta-2)))) (cons (lambda (arg-1458) (lambda (arg-1461) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1462) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-1462 arg-1463 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-1462 eta-3)))) (cons (lambda (arg-1462) (lambda (arg-1463) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-1462 arg-1463))) (lambda (arg-1462) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-1462 eta-3))))) arg-1458 arg-1461 eta-2)))) (lambda (arg-1461) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-1462 eta-3)))) (cons (lambda (arg-1458) (lambda (arg-1462) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-1458 arg-1462))) (lambda (arg-1462) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-1462 eta-3))))) arg-1461 eta-2))))) arg-1457 arg-1460 eta-1)))) (lambda (arg-1461) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_Name arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1462 eta-2)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-1462 eta-3)))) (cons (lambda (arg-1458) (lambda (arg-1462) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-1458 arg-1462))) (lambda (arg-1462) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-1462 eta-3))))) arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-1463 eta-3)))) (cons (lambda (arg-1457) (lambda (arg-1460) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-1457 arg-1460))) (lambda (arg-1463) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-1463 eta-3))))) arg-1462 eta-2))))) arg-1461 eta-1))))) arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_OriginDesc arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_OriginDesc arg-1462 eta-2)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1462 eta-3)))) (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1462 eta-3))))) arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1463 eta-3)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1463 eta-3))))) arg-1462 eta-2))))) arg-1456 arg-1459 eta-1)))) (lambda (arg-1462) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_OriginDesc arg-1456 arg-1459 eta-2)))) (lambda (arg-1463) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_OriginDesc arg-1463 eta-2)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1463 eta-3)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1463 eta-3))))) arg-1456 arg-1459 eta-2)))) (lambda (arg-1463) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1456 arg-1459 eta-3)))) (lambda (arg-1464) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1456 arg-1459 eta-4)))) (lambda (arg-1465) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1465 eta-4)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1456 arg-1459 eta-4)))) (lambda (arg-1465) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1465 eta-4))))) arg-1464 eta-3)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1456 arg-1459 eta-3)))) (lambda (arg-1464) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1456 arg-1459 eta-4)))) (lambda (arg-1465) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1465 eta-4)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1456 arg-1459 eta-4)))) (lambda (arg-1465) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1465 eta-4))))) arg-1464 eta-3))))) arg-1463 eta-2))))) arg-1462 eta-1)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_Name arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1462 eta-2)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-1462 eta-3)))) (cons (lambda (arg-1458) (lambda (arg-1462) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-1458 arg-1462))) (lambda (arg-1462) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-1462 eta-3))))) arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-1463 eta-3)))) (cons (lambda (arg-1457) (lambda (arg-1460) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-1457 arg-1460))) (lambda (arg-1463) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-1463 eta-3))))) arg-1462 eta-2))))) arg-1456 arg-1459 eta-1)))) (lambda (arg-1462) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_Name arg-1456 arg-1459 eta-2)))) (lambda (arg-1463) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1463 eta-2)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-1463 eta-3)))) (cons (lambda (arg-1457) (lambda (arg-1460) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-1457 arg-1460))) (lambda (arg-1463) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-1463 eta-3))))) arg-1456 arg-1459 eta-2)))) (lambda (arg-1463) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-1456 arg-1459 eta-3)))) (lambda (arg-1464) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-1464 eta-3)))) (cons (lambda (arg-1456) (lambda (arg-1459) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-1456 arg-1459))) (lambda (arg-1464) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-1464 eta-3))))) arg-1463 eta-2))))) arg-1462 eta-1))))) arg-1461 eta-0)))) arg-0 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_Name arg-1457 arg-1460 eta-1)))) (lambda (arg-1461) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1461 eta-1)))) (cons (lambda (arg-1457) (lambda (arg-1460) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-1457 arg-1460))) (lambda (arg-1461) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-1461 eta-1))))) arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_Name arg-1456 arg-1459 eta-1)))) (lambda (arg-1462) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1462 eta-1)))) (cons (lambda (arg-1456) (lambda (arg-1459) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-1456 arg-1459))) (lambda (arg-1462) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-1462 eta-1))))) arg-1461 eta-0)))) arg-0 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (let ((act-28 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40PosMapC-32C-36aC-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1461) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_OriginDesc arg-1458 arg-1461 eta-2)))) (lambda (arg-1461) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_OriginDesc arg-1461 eta-2)))) (cons (lambda (arg-1458) (lambda (arg-1461) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1462) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1464) (lambda (arg-1465) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1464 arg-1465 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1464) (lambda (arg-1465) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1464 arg-1465 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1462 arg-1463 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1462 eta-3)))) (cons (lambda (arg-1462) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1464) (lambda (arg-1465) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1464 arg-1465 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1464) (lambda (arg-1465) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1464 arg-1465 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1462 arg-1463 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1462 eta-3))))) arg-1458 arg-1461 eta-2)))) (lambda (arg-1461) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1462 eta-3)))) (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1462 eta-3))))) arg-1461 eta-2))))) arg-1457 arg-1460 eta-1)))) (lambda (arg-1461) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_OriginDesc arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_OriginDesc arg-1462 eta-2)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1462 eta-3)))) (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1462 eta-3))))) arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1463 eta-3)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1463 eta-3))))) arg-1462 eta-2))))) arg-1461 eta-1)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_Name arg-1457 arg-1460 eta-1)))) (lambda (arg-1461) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1461 eta-1))))) arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_OriginDesc arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_OriginDesc arg-1462 eta-2)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1462 eta-3)))) (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1462 eta-3))))) arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1463 eta-3)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1463 eta-3))))) arg-1462 eta-2))))) arg-1456 arg-1459 eta-1)))) (lambda (arg-1462) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_OriginDesc arg-1456 arg-1459 eta-2)))) (lambda (arg-1463) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_OriginDesc arg-1463 eta-2)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1463 eta-3)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1463 eta-3))))) arg-1456 arg-1459 eta-2)))) (lambda (arg-1463) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1456 arg-1459 eta-3)))) (lambda (arg-1464) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1456 arg-1459 eta-4)))) (lambda (arg-1465) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1465 eta-4)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1456 arg-1459 eta-4)))) (lambda (arg-1465) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1465 eta-4))))) arg-1464 eta-3)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1456 arg-1459 eta-3)))) (lambda (arg-1464) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1456 arg-1459 eta-4)))) (lambda (arg-1465) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1465 eta-4)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1456 arg-1459 eta-4)))) (lambda (arg-1465) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1465 eta-4))))) arg-1464 eta-3))))) arg-1463 eta-2))))) arg-1462 eta-1)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_Name arg-1456 arg-1459 eta-1)))) (lambda (arg-1462) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1462 eta-1))))) arg-1461 eta-0)))) (lambda (eta-0) (LibrariesC-45DataC-45PosMap-u--measure_Measure_C-40C-124C-40C-40BuiltinC-46PairC-32NonEmptyFCC-41C-32C-36aC-41C-44C-40C-40BuiltinC-46MkPairC-32NonEmptyFCC-41C-32C-36aC-41C-124C-41 eta-0))) arg-0 ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-28 1))) (let ((act-29 (CoreC-45TTC-u--fromBuf_TTC_OriginDesc arg-0 ext-0))) (case (vector-ref act-29 0) ((0) (let ((e-2 (vector-ref act-29 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref act-29 1))) (let ((act-30 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40PosMapC-32C-36aC-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1461) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_OriginDesc arg-1458 arg-1461 eta-2)))) (lambda (arg-1461) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_OriginDesc arg-1461 eta-2)))) (cons (lambda (arg-1458) (lambda (arg-1461) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1462) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1464) (lambda (arg-1465) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1464 arg-1465 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1464) (lambda (arg-1465) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1464 arg-1465 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1462 arg-1463 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1462 eta-3)))) (cons (lambda (arg-1462) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1464) (lambda (arg-1465) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1464 arg-1465 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1464) (lambda (arg-1465) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1464 arg-1465 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1462 arg-1463 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1462 eta-3))))) arg-1458 arg-1461 eta-2)))) (lambda (arg-1461) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1462 eta-3)))) (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1462 eta-3))))) arg-1461 eta-2))))) arg-1457 arg-1460 eta-1)))) (lambda (arg-1461) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_OriginDesc arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_OriginDesc arg-1462 eta-2)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1462 eta-3)))) (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1462 eta-3))))) arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1463 eta-3)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1463 eta-3))))) arg-1462 eta-2))))) arg-1461 eta-1)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1461) (lambda (eta-2) (CoreC-45Metadata-u--toBuf_TTC_Decoration arg-1458 arg-1461 eta-2)))) (lambda (arg-1461) (lambda (eta-2) (CoreC-45Metadata-u--fromBuf_TTC_Decoration arg-1461 eta-2)))) (cons (lambda (arg-1458) (lambda (arg-1461) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-1462) (lambda (arg-1463) (lambda (eta-3) (CoreC-45TTC-u--toBuf_TTC_Name arg-1462 arg-1463 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1462 eta-3)))) arg-1458 arg-1461 eta-2)))) (lambda (arg-1461) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (CoreC-45TTC-u--toBuf_TTC_Name arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1462 eta-3)))) arg-1461 eta-2))))) arg-1457 arg-1460 eta-1)))) (lambda (arg-1461) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (CoreC-45Metadata-u--toBuf_TTC_Decoration arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (CoreC-45Metadata-u--fromBuf_TTC_Decoration arg-1462 eta-2)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (CoreC-45TTC-u--toBuf_TTC_Name arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1462 eta-3)))) arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (CoreC-45TTC-u--toBuf_TTC_Name arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1463 eta-3)))) arg-1462 eta-2))))) arg-1461 eta-1))))) arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_OriginDesc arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_OriginDesc arg-1462 eta-2)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1462 eta-3)))) (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1462 eta-3))))) arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1463 eta-3)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1463 eta-3))))) arg-1462 eta-2))))) arg-1456 arg-1459 eta-1)))) (lambda (arg-1462) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_OriginDesc arg-1456 arg-1459 eta-2)))) (lambda (arg-1463) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_OriginDesc arg-1463 eta-2)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1463 eta-3)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1463 eta-3))))) arg-1456 arg-1459 eta-2)))) (lambda (arg-1463) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1456 arg-1459 eta-3)))) (lambda (arg-1464) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1456 arg-1459 eta-4)))) (lambda (arg-1465) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1465 eta-4)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1456 arg-1459 eta-4)))) (lambda (arg-1465) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1465 eta-4))))) arg-1464 eta-3)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1456 arg-1459 eta-3)))) (lambda (arg-1464) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1456 arg-1459 eta-4)))) (lambda (arg-1465) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1465 eta-4)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1456 arg-1459 eta-4)))) (lambda (arg-1465) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1465 eta-4))))) arg-1464 eta-3))))) arg-1463 eta-2))))) arg-1462 eta-1)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (CoreC-45Metadata-u--toBuf_TTC_Decoration arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (CoreC-45Metadata-u--fromBuf_TTC_Decoration arg-1462 eta-2)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (CoreC-45TTC-u--toBuf_TTC_Name arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1462 eta-3)))) arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (CoreC-45TTC-u--toBuf_TTC_Name arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1463 eta-3)))) arg-1462 eta-2))))) arg-1456 arg-1459 eta-1)))) (lambda (arg-1462) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-2) (CoreC-45Metadata-u--toBuf_TTC_Decoration arg-1456 arg-1459 eta-2)))) (lambda (arg-1463) (lambda (eta-2) (CoreC-45Metadata-u--fromBuf_TTC_Decoration arg-1463 eta-2)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (CoreC-45TTC-u--toBuf_TTC_Name arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1463 eta-3)))) arg-1456 arg-1459 eta-2)))) (lambda (arg-1463) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-3) (CoreC-45TTC-u--toBuf_TTC_Name arg-1456 arg-1459 eta-3)))) (lambda (arg-1464) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1464 eta-3)))) arg-1463 eta-2))))) arg-1462 eta-1))))) arg-1461 eta-0)))) (lambda (eta-0) (LibrariesC-45DataC-45PosMap-u--measure_Measure_C-40C-124C-40C-40BuiltinC-46PairC-32NonEmptyFCC-41C-32C-36aC-41C-44C-40C-40BuiltinC-46MkPairC-32NonEmptyFCC-41C-32C-36aC-41C-124C-41 eta-0))) arg-0 ext-0))) (case (vector-ref act-30 0) ((0) (let ((e-2 (vector-ref act-30 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref act-30 1))) (let ((act-31 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40PosMapC-32C-36aC-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1461) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_OriginDesc arg-1458 arg-1461 eta-2)))) (lambda (arg-1461) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_OriginDesc arg-1461 eta-2)))) (cons (lambda (arg-1458) (lambda (arg-1461) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1462) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1464) (lambda (arg-1465) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1464 arg-1465 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1464) (lambda (arg-1465) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1464 arg-1465 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1462 arg-1463 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1462 eta-3)))) (cons (lambda (arg-1462) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1464) (lambda (arg-1465) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1464 arg-1465 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1464) (lambda (arg-1465) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1464 arg-1465 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1462 arg-1463 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1462 eta-3))))) arg-1458 arg-1461 eta-2)))) (lambda (arg-1461) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1462 eta-3)))) (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1462 eta-3))))) arg-1461 eta-2))))) arg-1457 arg-1460 eta-1)))) (lambda (arg-1461) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_OriginDesc arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_OriginDesc arg-1462 eta-2)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1462 eta-3)))) (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1462 eta-3))))) arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1463 eta-3)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1463 eta-3))))) arg-1462 eta-2))))) arg-1461 eta-1)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1461) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_OriginDesc arg-1458 arg-1461 eta-2)))) (lambda (arg-1461) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_OriginDesc arg-1461 eta-2)))) (cons (lambda (arg-1458) (lambda (arg-1461) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1462) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1464) (lambda (arg-1465) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1464 arg-1465 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1464) (lambda (arg-1465) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1464 arg-1465 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1462 arg-1463 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1462 eta-3)))) (cons (lambda (arg-1462) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1464) (lambda (arg-1465) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1464 arg-1465 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1464) (lambda (arg-1465) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1464 arg-1465 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1462 arg-1463 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1462 eta-3))))) arg-1458 arg-1461 eta-2)))) (lambda (arg-1461) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1462 eta-3)))) (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1462 eta-3))))) arg-1461 eta-2))))) arg-1457 arg-1460 eta-1)))) (lambda (arg-1461) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_OriginDesc arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_OriginDesc arg-1462 eta-2)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1462 eta-3)))) (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1462 eta-3))))) arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1463 eta-3)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1463 eta-3))))) arg-1462 eta-2))))) arg-1461 eta-1))))) arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_OriginDesc arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_OriginDesc arg-1462 eta-2)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1462 eta-3)))) (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1462 eta-3))))) arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1463 eta-3)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1463 eta-3))))) arg-1462 eta-2))))) arg-1456 arg-1459 eta-1)))) (lambda (arg-1462) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_OriginDesc arg-1456 arg-1459 eta-2)))) (lambda (arg-1463) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_OriginDesc arg-1463 eta-2)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1463 eta-3)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1463 eta-3))))) arg-1456 arg-1459 eta-2)))) (lambda (arg-1463) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1456 arg-1459 eta-3)))) (lambda (arg-1464) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1456 arg-1459 eta-4)))) (lambda (arg-1465) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1465 eta-4)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1456 arg-1459 eta-4)))) (lambda (arg-1465) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1465 eta-4))))) arg-1464 eta-3)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1456 arg-1459 eta-3)))) (lambda (arg-1464) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1456 arg-1459 eta-4)))) (lambda (arg-1465) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1465 eta-4)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1456 arg-1459 eta-4)))) (lambda (arg-1465) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1465 eta-4))))) arg-1464 eta-3))))) arg-1463 eta-2))))) arg-1462 eta-1)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_OriginDesc arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_OriginDesc arg-1462 eta-2)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1462 eta-3)))) (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1462 eta-3))))) arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1463 eta-3)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1463 eta-3))))) arg-1462 eta-2))))) arg-1456 arg-1459 eta-1)))) (lambda (arg-1462) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_OriginDesc arg-1456 arg-1459 eta-2)))) (lambda (arg-1463) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_OriginDesc arg-1463 eta-2)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1463 eta-3)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1463 eta-3))))) arg-1456 arg-1459 eta-2)))) (lambda (arg-1463) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1456 arg-1459 eta-3)))) (lambda (arg-1464) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1456 arg-1459 eta-4)))) (lambda (arg-1465) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1465 eta-4)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1456 arg-1459 eta-4)))) (lambda (arg-1465) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1465 eta-4))))) arg-1464 eta-3)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1456 arg-1459 eta-3)))) (lambda (arg-1464) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1456 arg-1459 eta-4)))) (lambda (arg-1465) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1465 eta-4)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1456 arg-1459 eta-4)))) (lambda (arg-1465) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1465 eta-4))))) arg-1464 eta-3))))) arg-1463 eta-2))))) arg-1462 eta-1))))) arg-1461 eta-0)))) (lambda (eta-0) (LibrariesC-45DataC-45PosMap-u--measure_Measure_C-40C-124C-40C-40BuiltinC-46PairC-32NonEmptyFCC-41C-32C-36aC-41C-44C-40C-40BuiltinC-46MkPairC-32NonEmptyFCC-41C-32C-36aC-41C-124C-41 eta-0))) arg-0 ext-0))) (case (vector-ref act-31 0) ((0) (let ((e-2 (vector-ref act-31 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref act-31 1))) (let ((act-32 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40PosMapC-32C-36aC-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1461) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_OriginDesc arg-1458 arg-1461 eta-2)))) (lambda (arg-1461) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_OriginDesc arg-1461 eta-2)))) (cons (lambda (arg-1458) (lambda (arg-1461) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1462) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1464) (lambda (arg-1465) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1464 arg-1465 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1464) (lambda (arg-1465) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1464 arg-1465 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1462 arg-1463 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1462 eta-3)))) (cons (lambda (arg-1462) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1464) (lambda (arg-1465) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1464 arg-1465 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1464) (lambda (arg-1465) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1464 arg-1465 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1462 arg-1463 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1462 eta-3))))) arg-1458 arg-1461 eta-2)))) (lambda (arg-1461) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1462 eta-3)))) (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1462 eta-3))))) arg-1461 eta-2))))) arg-1457 arg-1460 eta-1)))) (lambda (arg-1461) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_OriginDesc arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_OriginDesc arg-1462 eta-2)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1462 eta-3)))) (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1462 eta-3))))) arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1463 eta-3)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1463 eta-3))))) arg-1462 eta-2))))) arg-1461 eta-1)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1461) (lambda (eta-2) (CoreC-45Metadata-u--toBuf_TTC_Decoration arg-1458 arg-1461 eta-2)))) (lambda (arg-1461) (lambda (eta-2) (CoreC-45Metadata-u--fromBuf_TTC_Decoration arg-1461 eta-2)))) (cons (lambda (arg-1458) (lambda (arg-1461) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-1462) (lambda (arg-1463) (lambda (eta-3) (CoreC-45TTC-u--toBuf_TTC_Name arg-1462 arg-1463 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1462 eta-3)))) arg-1458 arg-1461 eta-2)))) (lambda (arg-1461) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (CoreC-45TTC-u--toBuf_TTC_Name arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1462 eta-3)))) arg-1461 eta-2))))) arg-1457 arg-1460 eta-1)))) (lambda (arg-1461) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (CoreC-45Metadata-u--toBuf_TTC_Decoration arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (CoreC-45Metadata-u--fromBuf_TTC_Decoration arg-1462 eta-2)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (CoreC-45TTC-u--toBuf_TTC_Name arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1462 eta-3)))) arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (CoreC-45TTC-u--toBuf_TTC_Name arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1463 eta-3)))) arg-1462 eta-2))))) arg-1461 eta-1))))) arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_OriginDesc arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_OriginDesc arg-1462 eta-2)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1462 eta-3)))) (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1463) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1463 arg-1464 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1462 eta-3))))) arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1463 eta-3)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1463 eta-3))))) arg-1462 eta-2))))) arg-1456 arg-1459 eta-1)))) (lambda (arg-1462) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_OriginDesc arg-1456 arg-1459 eta-2)))) (lambda (arg-1463) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_OriginDesc arg-1463 eta-2)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1463 eta-3)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4)))) (cons (lambda (arg-1458) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1458 arg-1463 eta-4)))) (lambda (arg-1463) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1463 eta-4))))) arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1463 eta-3))))) arg-1456 arg-1459 eta-2)))) (lambda (arg-1463) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1456 arg-1459 eta-3)))) (lambda (arg-1464) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1456 arg-1459 eta-4)))) (lambda (arg-1465) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1465 eta-4)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1456 arg-1459 eta-4)))) (lambda (arg-1465) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1465 eta-4))))) arg-1464 eta-3)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-4)))) (lambda (arg-1464) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1464 eta-4))))) arg-1456 arg-1459 eta-3)))) (lambda (arg-1464) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1456 arg-1459 eta-4)))) (lambda (arg-1465) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1465 eta-4)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1456 arg-1459 eta-4)))) (lambda (arg-1465) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1465 eta-4))))) arg-1464 eta-3))))) arg-1463 eta-2))))) arg-1462 eta-1)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (CoreC-45Metadata-u--toBuf_TTC_Decoration arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (CoreC-45Metadata-u--fromBuf_TTC_Decoration arg-1462 eta-2)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (CoreC-45TTC-u--toBuf_TTC_Name arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1462 eta-3)))) arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (CoreC-45TTC-u--toBuf_TTC_Name arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1463 eta-3)))) arg-1462 eta-2))))) arg-1456 arg-1459 eta-1)))) (lambda (arg-1462) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-2) (CoreC-45Metadata-u--toBuf_TTC_Decoration arg-1456 arg-1459 eta-2)))) (lambda (arg-1463) (lambda (eta-2) (CoreC-45Metadata-u--fromBuf_TTC_Decoration arg-1463 eta-2)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (CoreC-45TTC-u--toBuf_TTC_Name arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1463 eta-3)))) arg-1456 arg-1459 eta-2)))) (lambda (arg-1463) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-3) (CoreC-45TTC-u--toBuf_TTC_Name arg-1456 arg-1459 eta-3)))) (lambda (arg-1464) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1464 eta-3)))) arg-1463 eta-2))))) arg-1462 eta-1))))) arg-1461 eta-0)))) (lambda (eta-0) (LibrariesC-45DataC-45PosMap-u--measure_Measure_C-40C-124C-40C-40BuiltinC-46PairC-32NonEmptyFCC-41C-32C-36aC-41C-44C-40C-40BuiltinC-46MkPairC-32NonEmptyFCC-41C-32C-36aC-41C-124C-41 eta-0))) arg-0 ext-0))) (case (vector-ref act-32 0) ((0) (let ((e-2 (vector-ref act-32 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref act-32 1))) (vector 1 (vector e-5 e-6 e-7 '() e-8 e-9 e-10 e-11 e-12 e-13)))))))))))))))))))))))))))))))))))))))) +(define CoreC-45Metadata-u--fromBuf_TTC_Decoration (lambda (arg-0 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-getTag arg-0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (cond ((equal? e-5 0) (vector 1 0)) ((equal? e-5 1) (vector 1 1)) ((equal? e-5 2) (vector 1 2)) ((equal? e-5 3) (vector 1 3)) ((equal? e-5 4) (vector 1 4))(else (LibrariesC-45UtilsC-45Binary-corrupt "Decoration" ext-0))))))))) +(define CoreC-45Metadata-writeToTTM (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (CoreC-45Metadata-normaliseTypes arg-1 arg-0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 (LibrariesC-45UtilsC-45Binary-initBinary ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (let ((act-26 (unbox arg-1))) (vector 1 act-26)))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (let ((act-27 (unbox arg-0))) (vector 1 act-27)))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (let ((act-28 (let ((act-28 (CoreC-45Metadata-u--full_HasNames_Metadata (let ((e-0 (vector-ref e-8 0))) e-0) e-7 ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-28 1))) (CoreC-45Metadata-u--toBuf_TTC_TTMFile e-6 (cons (CoreC-45Binary-ttcVersion) e-9) ext-0))))))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((act-29 (let ((act-29 (let ((act-29 (unbox e-6))) (vector 1 act-29)))) (case (vector-ref act-29 0) ((0) (let ((e-2 (vector-ref act-29 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref act-29 1))) (let ((act-30 ((LibrariesC-45UtilsC-45Binary-writeToFile arg-2 e-10) ext-0))) (vector 1 act-30)))))))) (case (vector-ref act-29 0) ((0) (let ((e-2 (vector-ref act-29 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref act-29 1))) (case (vector-ref e-10 0) ((1) (vector 1 0)) (else (let ((e-11 (vector-ref e-10 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 (PreludeC-45TypesC-45String-C-43C-43 arg-2 (PreludeC-45TypesC-45String-C-43C-43 ": " (SystemC-45File-u--show_Show_FileError e-11)))) ext-0)))))))))))))))))))))))))))) +(define CoreC-45Metadata-withCurrentLHS (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-getFullName arg-0 arg-2 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) ((PreludeC-45Types-maybe (lambda () (lambda (eta-0) (vector 1 0))) (lambda () (lambda (u--lhs) (lambda (eta-0) (let ((act-26 (set-box! arg-1 (let ((e-0 (vector-ref e-5 0))) (let ((e-1 (vector-ref e-5 1))) (let ((e-2 (vector-ref e-5 2))) (let ((e-3 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-11 (vector-ref e-5 5))) (let ((e-10 (vector-ref e-5 6))) (let ((e-7 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (vector e-0 e-1 e-2 e-3 (cons (cons e-6 u--lhs) e-4) e-11 e-10 e-7 e-8 e-9)))))))))))))) (vector 1 act-26))))) (let ((e-3 (vector-ref e-5 3))) e-3)) ext-0))))))))))) +(define CoreC-45Metadata-substEnv (lambda (arg-0 arg-1 arg-2 arg-3) (if (null? arg-0) arg-3 (let ((e-2 (car arg-0))) (let ((e-3 (cdr arg-0))) (let ((e-9 (cdr arg-2))) (CoreC-45Metadata-substEnv e-3 arg-1 e-9 (CoreC-45TTC-45SubstEnv-subst (vector 1 arg-1 (vector 0 ) e-2) arg-3)))))))) +(define CoreC-45Metadata-setHoleLHS (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (set-box! arg-0 (let ((e-0 (vector-ref e-5 0))) (let ((e-1 (vector-ref e-5 1))) (let ((e-2 (vector-ref e-5 2))) (let ((e-4 (vector-ref e-5 4))) (let ((e-10 (vector-ref e-5 5))) (let ((e-6 (vector-ref e-5 6))) (let ((e-7 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (vector e-0 e-1 e-2 (box arg-1) e-4 e-10 e-6 e-7 e-8 e-9))))))))))))) (vector 1 act-25)))))))) +(define CoreC-45Metadata-readMetadata (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (LibrariesC-45UtilsC-45Binary-readFromFile arg-0 ext-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (case (vector-ref e-5 0) ((1) (let ((e-2 (vector-ref e-5 1))) (let ((act-25 (CoreC-45Core-newRef (vector "Libraries.Utils.Binary.Bin" ) e-2 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-3 (vector-ref act-25 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Metadata-u--fromBuf_TTC_TTMFile e-6 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-3 (vector-ref act-26 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref act-26 1))) (let ((e-1 (cdr e-7))) (vector 1 e-1)))))))))))) (else (let ((e-6 (vector-ref e-5 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 (PreludeC-45TypesC-45String-C-43C-43 arg-0 (PreludeC-45TypesC-45String-C-43C-43 ": " (SystemC-45File-u--show_Show_FileError e-6)))) ext-0)))))))))) +(define CoreC-45Metadata-readFromTTM (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (LibrariesC-45UtilsC-45Binary-readFromFile arg-1 ext-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (case (vector-ref e-5 0) ((1) (let ((e-2 (vector-ref e-5 1))) (let ((act-25 (CoreC-45Core-newRef (vector "Libraries.Utils.Binary.Bin" ) e-2 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-3 (vector-ref act-25 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Metadata-u--fromBuf_TTC_TTMFile e-6 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-3 (vector-ref act-26 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (set-box! arg-0 (let ((e-1 (cdr e-7))) e-1)))) (vector 1 act-27)))))))))))) (else (let ((e-6 (vector-ref e-5 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 (PreludeC-45TypesC-45String-C-43C-43 arg-1 (PreludeC-45TypesC-45String-C-43C-43 ": " (SystemC-45File-u--show_Show_FileError e-6)))) ext-0)))))))))) +(define CoreC-45Metadata-normaliseTypes (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Metadata-n--9523-11284-u--nfType arg-1 arg-0 e-6 eta-0)) (let ((e-1 (vector-ref e-5 1))) e-1) '() ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (set-box! arg-0 (let ((e-0 (vector-ref e-5 0))) (let ((e-2 (vector-ref e-5 2))) (let ((e-3 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-12 (vector-ref e-5 5))) (let ((e-11 (vector-ref e-5 6))) (let ((e-10 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (vector e-0 e-7 e-2 e-3 e-4 e-12 e-11 e-10 e-8 e-9))))))))))))) (vector 1 act-27)))))))))))))))) +(define CoreC-45Metadata-nameTypeDecoration (lambda (arg-0) (case (vector-ref arg-0 0) ((0) 4) ((1) 1) ((2) 2) (else 0)))) +(define CoreC-45Metadata-initMetadata (lambda (arg-0) (vector '() '() '() '() '() (LibrariesC-45DataC-45PosMap-empty) arg-0 (LibrariesC-45DataC-45PosMap-empty) (LibrariesC-45DataC-45PosMap-empty) (LibrariesC-45DataC-45PosMap-empty)))) +(define CoreC-45Metadata-findTypeAt (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (PreludeC-45Types-u--map_Functor_Maybe (lambda (eta-0) (Builtin-snd eta-0)) (CoreC-45Metadata-findEntryWith arg-1 (let ((e-1 (vector-ref e-5 1))) e-1)))))))))) +(define CoreC-45Metadata-findTyDeclAt (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (CoreC-45Metadata-findEntryWith arg-1 (let ((e-2 (vector-ref e-5 2))) e-2))))))))) +(define CoreC-45Metadata-findLHSAt (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (CoreC-45Metadata-findEntryWith (lambda (u--loc) (lambda (u--tm) ((arg-1 u--loc) (Builtin-snd u--tm)))) (let ((e-0 (vector-ref e-5 0))) e-0))))))))) +(define CoreC-45Metadata-findHoleLHS (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (DataC-45List-lookupBy (lambda (u--x) (lambda (u--y) (CoreC-45Name-u--C-61C-61_Eq_Name (CoreC-45Name-dropNS u--x) (CoreC-45Name-dropNS u--y)))) arg-1 (let ((e-4 (vector-ref e-5 4))) e-4))))))))) +(define CoreC-45Metadata-findEntryWith (lambda (ext-0 ext-1) (DataC-45List-find (lambda (eta-1) (PreludeC-45Basics-uncurry ext-0 eta-1)) ext-1))) +(define CoreC-45Metadata-dumpTTM (lambda (arg-0 ext-0) (let ((act-24 (CoreC-45Metadata-readMetadata arg-0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((PreludeC-45IO-putStrLn (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-25 (arg-811 eta-0))) ((arg-812 act-25) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-51 (arg-814 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) (CoreC-45Metadata-u--show_Show_Metadata e-5)) ext-0))) (vector 1 act-25)))))))) +(define CoreC-45Metadata-clearHoleLHS (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (set-box! arg-0 (let ((e-0 (vector-ref e-5 0))) (let ((e-1 (vector-ref e-5 1))) (let ((e-2 (vector-ref e-5 2))) (let ((e-4 (vector-ref e-5 4))) (let ((e-10 (vector-ref e-5 5))) (let ((e-6 (vector-ref e-5 6))) (let ((e-7 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (vector e-0 e-1 e-2 '() e-4 e-10 e-6 e-7 e-8 e-9))))))))))))) (vector 1 act-25)))))))) +(define CoreC-45Metadata-addTyDecl (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-getFullName arg-1 arg-4 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((sc2 (CoreC-45FC-isNonEmptyFC arg-3))) (if (null? sc2) (vector 1 0) (let ((e-1 (unbox sc2))) (let ((act-26 (set-box! arg-2 (let ((e-0 (vector-ref e-5 0))) (let ((e-12 (vector-ref e-5 1))) (let ((e-2 (vector-ref e-5 2))) (let ((e-3 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-11 (vector-ref e-5 5))) (let ((e-10 (vector-ref e-5 6))) (let ((e-7 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (vector e-0 e-12 (cons (cons e-1 (cons e-6 (cons (CoreC-45Env-length arg-5) (CoreC-45Env-bindEnv arg-0 arg-3 arg-5 arg-6)))) e-2) e-3 e-4 e-11 e-10 e-7 e-8 e-9)))))))))))))) (vector 1 act-26))))))))))))))) +(define CoreC-45Metadata-addSemanticDefault (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (set-box! arg-0 (let ((e-0 (vector-ref e-5 0))) (let ((e-1 (vector-ref e-5 1))) (let ((e-2 (vector-ref e-5 2))) (let ((e-3 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-10 (vector-ref e-5 5))) (let ((e-6 (vector-ref e-5 6))) (let ((e-7 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (vector e-0 e-1 e-2 e-3 e-4 e-10 e-6 e-7 e-8 (LibrariesC-45DataC-45PosMap-insert (lambda (eta-0) (LibrariesC-45DataC-45PosMap-u--measure_Measure_C-40C-124C-40C-40BuiltinC-46PairC-32NonEmptyFCC-41C-32C-36aC-41C-44C-40C-40BuiltinC-46MkPairC-32NonEmptyFCC-41C-32C-36aC-41C-124C-41 eta-0)) arg-1 e-9))))))))))))))) (vector 1 act-25)))))))) +(define CoreC-45Metadata-addSemanticDecorations (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((u--posmap (let ((e-7 (vector-ref e-5 7))) e-7))) (CoreC-45Metadata-case--addSemanticDecorations-11147 arg-2 arg-1 arg-0 e-5 e-6 u--posmap (DataC-45List-span (lambda (eta-0) (CoreC-45FC-u--C-61C-61_Eq_OriginDesc (let ((e-10 (vector-ref e-5 6))) e-10) (Builtin-fst (Builtin-fst eta-0)))) arg-2) ext-0)))))))))))) +(define CoreC-45Metadata-addSemanticAlias (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (set-box! arg-0 (let ((e-0 (vector-ref e-5 0))) (let ((e-1 (vector-ref e-5 1))) (let ((e-2 (vector-ref e-5 2))) (let ((e-3 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-10 (vector-ref e-5 5))) (let ((e-6 (vector-ref e-5 6))) (let ((e-7 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (vector e-0 e-1 e-2 e-3 e-4 e-10 e-6 e-7 (LibrariesC-45DataC-45PosMap-insert (lambda (eta-0) (LibrariesC-45DataC-45PosMap-u--measure_Measure_C-40C-124C-40C-40BuiltinC-46PairC-32NonEmptyFCC-41C-32C-36aC-41C-44C-40C-40BuiltinC-46MkPairC-32NonEmptyFCC-41C-32C-36aC-41C-124C-41 eta-0)) (cons arg-1 arg-2) e-8) e-9)))))))))))))) (vector 1 act-25)))))))) +(define CoreC-45Metadata-addNameType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-getFullName arg-1 arg-4 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((sc2 (CoreC-45FC-isNonEmptyFC arg-3))) (if (null? sc2) (vector 1 0) (let ((e-1 (unbox sc2))) (let ((act-26 (let ((act-26 (set-box! arg-2 (let ((e-0 (vector-ref e-5 0))) (let ((e-12 (vector-ref e-5 1))) (let ((e-2 (vector-ref e-5 2))) (let ((e-3 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-11 (vector-ref e-5 5))) (let ((e-10 (vector-ref e-5 6))) (let ((e-7 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (vector e-0 (cons (cons e-1 (cons e-6 (cons 0 (CoreC-45Metadata-substEnv arg-0 arg-3 arg-5 arg-6)))) e-12) e-2 e-3 e-4 e-11 e-10 e-7 e-8 e-9)))))))))))))) (vector 1 act-26)))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (CoreC-45ContextC-45Log-log arg-1 "metadata.names" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-6) (PreludeC-45TypesC-45String-C-43C-43 " at line " (PreludeC-45Show-u--show_Show_Int (bs+ (blodwen-toSignedInt 1 63) (CoreC-45FC-startLine e-1) 63))))) ext-0))))))))))))))))) +(define CoreC-45Metadata-addNameLoc (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-getFullName arg-1 arg-3 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((sc2 (CoreC-45FC-isNonEmptyFC arg-2))) (if (null? sc2) (vector 1 0) (let ((e-1 (unbox sc2))) (let ((act-26 (set-box! arg-0 (let ((e-0 (vector-ref e-5 0))) (let ((e-12 (vector-ref e-5 1))) (let ((e-2 (vector-ref e-5 2))) (let ((e-3 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-11 (vector-ref e-5 5))) (let ((e-10 (vector-ref e-5 6))) (let ((e-7 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (vector e-0 e-12 e-2 e-3 e-4 (LibrariesC-45DataC-45PosMap-insert (lambda (eta-0) (LibrariesC-45DataC-45PosMap-u--measure_Measure_C-40C-124C-40C-40BuiltinC-46PairC-32NonEmptyFCC-41C-32C-36aC-41C-44C-40C-40BuiltinC-46MkPairC-32NonEmptyFCC-41C-32C-36aC-41C-124C-41 eta-0)) (cons e-1 e-6) e-11) e-10 e-7 e-8 e-9)))))))))))))) (vector 1 act-26))))))))))))))) +(define CoreC-45Metadata-addLHS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-1 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-0))))) (CoreC-45Env-bindEnv arg-0 arg-3 (CoreC-45Metadata-n--8500-10333-u--toPat arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-5) arg-6) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((sc2 (CoreC-45FC-isNonEmptyFC arg-3))) (if (null? sc2) (vector 1 0) (let ((e-1 (unbox sc2))) (let ((act-26 (set-box! arg-2 (let ((e-0 (vector-ref e-5 0))) (let ((e-12 (vector-ref e-5 1))) (let ((e-2 (vector-ref e-5 2))) (let ((e-3 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-11 (vector-ref e-5 5))) (let ((e-10 (vector-ref e-5 6))) (let ((e-7 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (vector (cons (cons e-1 (cons arg-4 e-6)) e-0) e-12 e-2 e-3 e-4 e-11 e-10 e-7 e-8 e-9)))))))))))))) (vector 1 act-26))))))))))))))) +(define CoreC-45Binary-n--9570-3616-u--trimName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (case (vector-ref arg-5 0) ((0) (let ((e-0 (vector-ref arg-5 1))) (let ((e-1 (vector-ref arg-5 2))) (let ((u--n (vector 0 e-0 e-1))) (let ((sc1 (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace e-0 arg-4))) (cond ((equal? sc1 1) e-1) (else u--n)))))))(else arg-5)))) +(define CoreC-45Binary-n--8034-2209-u--resolved_aux (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (if (null? arg-6) (vector 1 (DataC-45List-reverse arg-5)) (let ((e-2 (car arg-6))) (let ((e-3 (cdr arg-6))) (let ((act-24 (let ((e-4 (cdr arg-1))) (((e-4 arg-4) e-2) ext-0)))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (CoreC-45Binary-n--8034-2209-u--resolved_aux arg-1 arg-2 arg-3 arg-4 (cons e-5 arg-5) e-3 ext-0)))))))))) +(define CoreC-45Binary-n--8482-2784-u--resolvedRW (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 ext-0) (if (null? arg-23) (vector 1 '()) (let ((e-2 (unbox arg-23))) (let ((e-3 (car e-2))) (let ((e-4 (cdr e-2))) (let ((act-24 (CoreC-45Context-u--resolved_HasNames_Name arg-22 e-3 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-u--resolved_HasNames_Name arg-22 e-4 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-6 (vector-ref act-25 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (box (cons e-5 e-6))))))))))))))))) +(define CoreC-45Binary-n--8482-2785-u--resolvedPrim (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 ext-0) (let ((e-0 (vector-ref arg-23 0))) (let ((e-1 (vector-ref arg-23 1))) (let ((e-2 (vector-ref arg-23 2))) (let ((e-3 (vector-ref arg-23 3))) (let ((act-24 (CoreC-45Context-u--resolved_HasNames_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-0))))) arg-22 e-0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-u--resolved_HasNames_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-0))))) arg-22 e-1 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Context-u--resolved_HasNames_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-0))))) arg-22 e-2 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-4 (vector-ref act-26 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (CoreC-45Context-u--resolved_HasNames_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-0))))) arg-22 e-3 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-4 (vector-ref act-27 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref act-27 1))) (vector 1 (vector e-5 e-6 e-7 e-8)))))))))))))))))))))))) +(define CoreC-45Binary-n--8482-2783-u--resolvedPair (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 ext-0) (if (null? arg-23) (vector 1 '()) (let ((e-2 (unbox arg-23))) (let ((e-3 (vector-ref e-2 0))) (let ((e-4 (vector-ref e-2 1))) (let ((e-5 (vector-ref e-2 2))) (let ((act-24 (CoreC-45Context-u--resolved_HasNames_Name arg-22 e-3 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-u--resolved_HasNames_Name arg-22 e-4 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-7 (vector-ref act-25 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Context-u--resolved_HasNames_Name arg-22 e-5 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-8 (vector-ref act-26 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref act-26 1))) (vector 1 (box (vector e-6 e-7 e-8)))))))))))))))))))))) +(define CoreC-45Binary-n--9148-3209-u--replaceNS (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9) (let ((e-2 (car arg-9))) (let ((e-3 (cdr arg-9))) (case (vector-ref e-2 0) ((0) arg-9)(else (cons (vector 0 arg-8 e-2) e-3))))))) +(define CoreC-45Binary-n--8033-2181-u--full_aux (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (if (null? arg-6) (vector 1 (DataC-45List-reverse arg-5)) (let ((e-2 (car arg-6))) (let ((e-3 (cdr arg-6))) (let ((act-24 (let ((e-1 (car arg-1))) (((e-1 arg-4) e-2) ext-0)))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (CoreC-45Binary-n--8033-2181-u--full_aux arg-1 arg-2 arg-3 arg-4 (cons e-5 arg-5) e-3 ext-0)))))))))) +(define CoreC-45Binary-n--8481-2599-u--fullRW (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 ext-0) (if (null? arg-23) (vector 1 '()) (let ((e-2 (unbox arg-23))) (let ((e-3 (car e-2))) (let ((e-4 (cdr e-2))) (let ((act-24 (CoreC-45Context-u--full_HasNames_Name arg-22 e-3 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-u--full_HasNames_Name arg-22 e-4 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-6 (vector-ref act-25 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (box (cons e-5 e-6))))))))))))))))) +(define CoreC-45Binary-n--8481-2600-u--fullPrim (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 ext-0) (let ((e-0 (vector-ref arg-23 0))) (let ((e-1 (vector-ref arg-23 1))) (let ((e-2 (vector-ref arg-23 2))) (let ((e-3 (vector-ref arg-23 3))) (CoreC-45Core-C-60C-42C-62 (lambda (eta-0) (CoreC-45Core-C-60C-42C-62 (lambda (eta-1) (CoreC-45Core-C-60C-42C-62 (lambda (eta-2) (CoreC-45Core-C-60C-42C-62 (lambda (eta-3) (vector 1 (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (lambda (eta-7) (vector eta-4 eta-5 eta-6 eta-7))))))) (lambda (eta-3) (CoreC-45Context-u--full_HasNames_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-4) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-4)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-4) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-4))))) arg-22 e-0 eta-3)) eta-2)) (lambda (eta-2) (CoreC-45Context-u--full_HasNames_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-3) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-3)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-3) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-3))))) arg-22 e-1 eta-2)) eta-1)) (lambda (eta-1) (CoreC-45Context-u--full_HasNames_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-2) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-2)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-2) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-2))))) arg-22 e-2 eta-1)) eta-0)) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-1) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-1)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-1) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-1))))) arg-22 e-3 eta-0)) ext-0))))))) +(define CoreC-45Binary-n--8481-2598-u--fullPair (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 ext-0) (if (null? arg-23) (vector 1 '()) (let ((e-2 (unbox arg-23))) (let ((e-3 (vector-ref e-2 0))) (let ((e-4 (vector-ref e-2 1))) (let ((e-5 (vector-ref e-2 2))) (let ((act-24 (CoreC-45Context-u--full_HasNames_Name arg-22 e-3 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-u--full_HasNames_Name arg-22 e-4 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-7 (vector-ref act-25 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Context-u--full_HasNames_Name arg-22 e-5 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-8 (vector-ref act-26 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref act-26 1))) (vector 1 (box (vector e-6 e-7 e-8)))))))))))))))))))))) +(define CoreC-45Binary-n--9959-3958-u--completeDef (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (if (null? arg-6) 0 (let ((e-2 (unbox arg-6))) (let ((e-17 (vector-ref e-2 17))) (case (vector-ref e-17 0) ((0) 0) ((7) 0)(else 1))))))) +(define CoreC-45Binary-n--10878-4820-u--alreadyDone (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (if (null? arg-12) 0 (let ((e-2 (car arg-12))) (let ((e-3 (cdr arg-12))) (let ((e-7 (cdr e-2))) (let ((e-10 (car e-7))) (let ((e-11 (cdr e-7))) (let ((e-15 (cdr e-11))) (let ((sc4 (let ((sc5 (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_ModuleIdent arg-10 e-10))) (cond ((equal? sc5 1) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace arg-11 e-15)) (else 0))))) (cond ((equal? sc4 1) 1) (else (let ((sc5 (let ((sc6 (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_ModuleIdent arg-10 e-10))) (cond ((equal? sc6 1) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace (CoreC-45NameC-45Namespace-miAsNamespace arg-10) arg-11)) (else 0))))) (cond ((equal? sc5 1) 1) (else (CoreC-45Binary-n--10878-4820-u--alreadyDone arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-3)))))))))))))))) +(define CoreC-45Binary-n--10628-4596-u--addT (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (let ((act-24 (unbox arg-3))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((sc1 (LibrariesC-45DataC-45NameMap-lookup arg-4 (let ((e-13 (vector-ref e-5 13))) e-13)))) (if (null? sc1) (let ((act-25 (set-box! arg-3 (let ((e-0 (vector-ref e-5 0))) (let ((e-1 (vector-ref e-5 1))) (let ((e-2 (vector-ref e-5 2))) (let ((e-3 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-29 (vector-ref e-5 5))) (let ((e-6 (vector-ref e-5 6))) (let ((e-7 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (let ((e-10 (vector-ref e-5 10))) (let ((e-11 (vector-ref e-5 11))) (let ((e-12 (vector-ref e-5 12))) (let ((e-13 (vector-ref e-5 13))) (let ((e-14 (vector-ref e-5 14))) (let ((e-15 (vector-ref e-5 15))) (let ((e-16 (vector-ref e-5 16))) (let ((e-17 (vector-ref e-5 17))) (let ((e-18 (vector-ref e-5 18))) (let ((e-19 (vector-ref e-5 19))) (let ((e-20 (vector-ref e-5 20))) (let ((e-21 (vector-ref e-5 21))) (let ((e-22 (vector-ref e-5 22))) (let ((e-23 (vector-ref e-5 23))) (let ((e-24 (vector-ref e-5 24))) (let ((e-25 (vector-ref e-5 25))) (let ((e-26 (vector-ref e-5 26))) (let ((e-27 (vector-ref e-5 27))) (let ((e-28 (vector-ref e-5 28))) (vector e-0 e-1 e-2 e-3 e-4 e-29 e-6 e-7 e-8 e-9 e-10 e-11 e-12 (LibrariesC-45DataC-45NameMap-insert arg-4 (cons arg-5 '()) e-13) e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27 e-28))))))))))))))))))))))))))))))))) (vector 1 act-25)) (let ((e-2 (unbox sc1))) (let ((act-25 (set-box! arg-3 (let ((e-0 (vector-ref e-5 0))) (let ((e-1 (vector-ref e-5 1))) (let ((e-30 (vector-ref e-5 2))) (let ((e-3 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-29 (vector-ref e-5 5))) (let ((e-6 (vector-ref e-5 6))) (let ((e-7 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (let ((e-10 (vector-ref e-5 10))) (let ((e-11 (vector-ref e-5 11))) (let ((e-12 (vector-ref e-5 12))) (let ((e-13 (vector-ref e-5 13))) (let ((e-14 (vector-ref e-5 14))) (let ((e-15 (vector-ref e-5 15))) (let ((e-16 (vector-ref e-5 16))) (let ((e-17 (vector-ref e-5 17))) (let ((e-18 (vector-ref e-5 18))) (let ((e-19 (vector-ref e-5 19))) (let ((e-20 (vector-ref e-5 20))) (let ((e-21 (vector-ref e-5 21))) (let ((e-22 (vector-ref e-5 22))) (let ((e-23 (vector-ref e-5 23))) (let ((e-24 (vector-ref e-5 24))) (let ((e-25 (vector-ref e-5 25))) (let ((e-26 (vector-ref e-5 26))) (let ((e-27 (vector-ref e-5 27))) (let ((e-28 (vector-ref e-5 28))) (vector e-0 e-1 e-30 e-3 e-4 e-29 e-6 e-7 e-8 e-9 e-10 e-11 e-12 (LibrariesC-45DataC-45NameMap-insert arg-4 (cons arg-5 e-2) e-13) e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27 e-28))))))))))))))))))))))))))))))))) (vector 1 act-25))))))))))) +(define CoreC-45Binary-u--resolved_HasNames_C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32TransformC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32TransformC-41C-124C-41 (lambda (arg-0 arg-1 ext-0) (let ((e-2 (car arg-1))) (let ((e-3 (cdr arg-1))) (let ((act-24 (CoreC-45Context-u--resolved_HasNames_Name arg-0 e-2 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-u--resolved_HasNames_Transform arg-0 e-3 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (cons e-5 e-6)))))))))))))) +(define CoreC-45Binary-u--resolved_HasNames_C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32BoolC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32BoolC-41C-124C-41 (lambda (arg-0 arg-1 ext-0) (let ((e-2 (car arg-1))) (let ((e-3 (cdr arg-1))) (let ((act-24 (CoreC-45Context-u--resolved_HasNames_Name arg-0 e-2 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (cons e-5 e-3)))))))))) +(define CoreC-45Binary-u--resolved_HasNames_C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32BoolC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32BoolC-41C-124C-41C-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32BoolC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32BoolC-41C-124C-41C-41C-124C-41 (lambda (arg-0 arg-1 ext-0) (let ((e-2 (car arg-1))) (let ((e-3 (cdr arg-1))) (let ((e-6 (car e-3))) (let ((e-7 (cdr e-3))) (let ((act-24 (CoreC-45Context-u--resolved_HasNames_Name arg-0 e-2 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-u--resolved_HasNames_Name arg-0 e-6 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref act-25 1))) (vector 1 (cons e-5 (cons e-8 e-7))))))))))))))))) +(define CoreC-45Binary-u--resolved_HasNames_C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32C-40ListC-32StringC-41C-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32C-40ListC-32StringC-41C-41C-124C-41 (lambda (arg-0 arg-1 ext-0) (let ((e-2 (car arg-1))) (let ((e-3 (cdr arg-1))) (let ((act-24 (CoreC-45Context-u--resolved_HasNames_Name arg-0 e-2 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (cons e-5 e-3)))))))))) +(define CoreC-45Binary-u--resolved_HasNames_C-40TTCFileC-32C-36eC-41 (lambda (arg-1 arg-2 arg-3 ext-0) (let ((e-1 (vector-ref arg-3 0))) (let ((e-2 (vector-ref arg-3 1))) (let ((e-3 (vector-ref arg-3 2))) (let ((e-4 (vector-ref arg-3 3))) (let ((e-5 (vector-ref arg-3 4))) (let ((e-6 (vector-ref arg-3 5))) (let ((e-7 (vector-ref arg-3 6))) (let ((e-8 (vector-ref arg-3 7))) (let ((e-9 (vector-ref arg-3 8))) (let ((e-10 (vector-ref arg-3 9))) (let ((e-11 (vector-ref arg-3 10))) (let ((e-12 (vector-ref arg-3 11))) (let ((e-13 (vector-ref arg-3 12))) (let ((e-14 (vector-ref arg-3 13))) (let ((e-15 (vector-ref arg-3 14))) (let ((e-16 (vector-ref arg-3 15))) (let ((e-17 (vector-ref arg-3 16))) (let ((e-18 (vector-ref arg-3 17))) (let ((e-19 (vector-ref arg-3 18))) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (CoreC-45Binary-u--resolved_HasNames_C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32BoolC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32BoolC-41C-124C-41 arg-2 eta-0 eta-1))) e-7 '() ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-20 (vector-ref act-24 1))) (vector 0 e-20))) (else (let ((e-20 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (CoreC-45Binary-u--resolved_HasNames_C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32BoolC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32BoolC-41C-124C-41C-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32BoolC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32BoolC-41C-124C-41C-41C-124C-41 arg-2 eta-0 eta-1))) e-8 '() ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-21 (vector-ref act-25 1))) (vector 0 e-21))) (else (let ((e-21 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Binary-n--8482-2783-u--resolvedPair arg-1 e-19 e-18 e-17 e-16 e-15 e-14 e-13 e-12 e-11 e-10 e-9 e-8 e-7 e-6 e-5 e-4 e-3 e-2 e-1 arg-2 arg-2 e-13 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-22 (vector-ref act-26 1))) (vector 0 e-22))) (else (let ((e-22 (vector-ref act-26 1))) (let ((act-27 (CoreC-45Binary-n--8482-2784-u--resolvedRW arg-1 e-19 e-18 e-17 e-16 e-15 e-14 e-13 e-12 e-11 e-10 e-9 e-8 e-7 e-6 e-5 e-4 e-3 e-2 e-1 arg-2 arg-2 e-14 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-23 (vector-ref act-27 1))) (vector 0 e-23))) (else (let ((e-23 (vector-ref act-27 1))) (let ((act-28 (CoreC-45Binary-n--8482-2785-u--resolvedPrim arg-1 e-19 e-18 e-17 e-16 e-15 e-14 e-13 e-12 e-11 e-10 e-9 e-8 e-7 e-6 e-5 e-4 e-3 e-2 e-1 arg-2 arg-2 e-15 ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-24 (vector-ref act-28 1))) (vector 0 e-24))) (else (let ((e-24 (vector-ref act-28 1))) (let ((act-29 (CoreC-45Binary-u--resolved_HasNames_C-40ListC-32C-36aC-41 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Binary-u--full_HasNames_C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32C-40ListC-32StringC-41C-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32C-40ListC-32StringC-41C-41C-124C-41 arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Binary-u--resolved_HasNames_C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32C-40ListC-32StringC-41C-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32C-40ListC-32StringC-41C-41C-124C-41 arg-3843 arg-3844 eta-0))))) arg-2 e-16 ext-0))) (case (vector-ref act-29 0) ((0) (let ((e-25 (vector-ref act-29 1))) (vector 0 e-25))) (else (let ((e-25 (vector-ref act-29 1))) (let ((act-30 (CoreC-45Binary-u--resolved_HasNames_C-40ListC-32C-36aC-41 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Binary-u--full_HasNames_C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32TransformC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32TransformC-41C-124C-41 arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Binary-u--resolved_HasNames_C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32TransformC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32TransformC-41C-124C-41 arg-3843 arg-3844 eta-0))))) arg-2 e-18 ext-0))) (case (vector-ref act-30 0) ((0) (let ((e-26 (vector-ref act-30 1))) (vector 0 e-26))) (else (let ((e-26 (vector-ref act-30 1))) (let ((act-31 (let ((e-27 (cdr arg-1))) (((e-27 arg-2) e-19) ext-0)))) (case (vector-ref act-31 0) ((0) (let ((e-27 (vector-ref act-31 1))) (vector 0 e-27))) (else (let ((e-27 (vector-ref act-31 1))) (vector 1 (vector e-1 e-2 e-3 e-4 e-5 e-6 e-20 e-21 e-9 e-10 e-11 e-12 e-22 e-23 e-24 e-25 e-17 e-26 e-27))))))))))))))))))))))))))))))))))))))))))))))))))))))) +(define CoreC-45Binary-u--resolved_HasNames_C-40ListC-32C-36aC-41 (lambda (arg-1 arg-2 arg-3 ext-0) (CoreC-45Binary-n--8034-2209-u--resolved_aux arg-1 arg-3 arg-2 arg-2 '() arg-3 ext-0))) +(define CoreC-45Binary-u--full_HasNames_C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32TransformC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32TransformC-41C-124C-41 (lambda (arg-0 arg-1 ext-0) (let ((e-2 (car arg-1))) (let ((e-3 (cdr arg-1))) (let ((act-24 (CoreC-45Context-u--full_HasNames_Name arg-0 e-2 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-u--full_HasNames_Transform arg-0 e-3 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (cons e-5 e-6)))))))))))))) +(define CoreC-45Binary-u--full_HasNames_C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32BoolC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32BoolC-41C-124C-41 (lambda (arg-0 arg-1 ext-0) (let ((e-2 (car arg-1))) (let ((e-3 (cdr arg-1))) (let ((act-24 (CoreC-45Context-u--full_HasNames_Name arg-0 e-2 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (cons e-5 e-3)))))))))) +(define CoreC-45Binary-u--full_HasNames_C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32BoolC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32BoolC-41C-124C-41C-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32BoolC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32BoolC-41C-124C-41C-41C-124C-41 (lambda (arg-0 arg-1 ext-0) (let ((e-2 (car arg-1))) (let ((e-3 (cdr arg-1))) (let ((e-6 (car e-3))) (let ((e-7 (cdr e-3))) (let ((act-24 (CoreC-45Context-u--full_HasNames_Name arg-0 e-2 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-u--full_HasNames_Name arg-0 e-6 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref act-25 1))) (vector 1 (cons e-5 (cons e-8 e-7))))))))))))))))) +(define CoreC-45Binary-u--full_HasNames_C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32C-40ListC-32StringC-41C-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32C-40ListC-32StringC-41C-41C-124C-41 (lambda (arg-0 arg-1 ext-0) (let ((e-2 (car arg-1))) (let ((e-3 (cdr arg-1))) (let ((act-24 (CoreC-45Context-u--full_HasNames_Name arg-0 e-2 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (cons e-5 e-3)))))))))) +(define CoreC-45Binary-u--full_HasNames_C-40TTCFileC-32C-36eC-41 (lambda (arg-1 arg-2 arg-3 ext-0) (let ((e-1 (vector-ref arg-3 0))) (let ((e-2 (vector-ref arg-3 1))) (let ((e-3 (vector-ref arg-3 2))) (let ((e-4 (vector-ref arg-3 3))) (let ((e-5 (vector-ref arg-3 4))) (let ((e-6 (vector-ref arg-3 5))) (let ((e-7 (vector-ref arg-3 6))) (let ((e-8 (vector-ref arg-3 7))) (let ((e-9 (vector-ref arg-3 8))) (let ((e-10 (vector-ref arg-3 9))) (let ((e-11 (vector-ref arg-3 10))) (let ((e-12 (vector-ref arg-3 11))) (let ((e-13 (vector-ref arg-3 12))) (let ((e-14 (vector-ref arg-3 13))) (let ((e-15 (vector-ref arg-3 14))) (let ((e-16 (vector-ref arg-3 15))) (let ((e-17 (vector-ref arg-3 16))) (let ((e-18 (vector-ref arg-3 17))) (let ((e-19 (vector-ref arg-3 18))) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (CoreC-45Binary-u--full_HasNames_C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32BoolC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32BoolC-41C-124C-41 arg-2 eta-0 eta-1))) e-7 '() ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-20 (vector-ref act-24 1))) (vector 0 e-20))) (else (let ((e-20 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (CoreC-45Binary-u--full_HasNames_C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32BoolC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32BoolC-41C-124C-41C-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32BoolC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32BoolC-41C-124C-41C-41C-124C-41 arg-2 eta-0 eta-1))) e-8 '() ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-21 (vector-ref act-25 1))) (vector 0 e-21))) (else (let ((e-21 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Binary-n--8481-2598-u--fullPair arg-1 e-19 e-18 e-17 e-16 e-15 e-14 e-13 e-12 e-11 e-10 e-9 e-8 e-7 e-6 e-5 e-4 e-3 e-2 e-1 arg-2 arg-2 e-13 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-22 (vector-ref act-26 1))) (vector 0 e-22))) (else (let ((e-22 (vector-ref act-26 1))) (let ((act-27 (CoreC-45Binary-n--8481-2599-u--fullRW arg-1 e-19 e-18 e-17 e-16 e-15 e-14 e-13 e-12 e-11 e-10 e-9 e-8 e-7 e-6 e-5 e-4 e-3 e-2 e-1 arg-2 arg-2 e-14 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-23 (vector-ref act-27 1))) (vector 0 e-23))) (else (let ((e-23 (vector-ref act-27 1))) (let ((act-28 (CoreC-45Binary-n--8481-2600-u--fullPrim arg-1 e-19 e-18 e-17 e-16 e-15 e-14 e-13 e-12 e-11 e-10 e-9 e-8 e-7 e-6 e-5 e-4 e-3 e-2 e-1 arg-2 arg-2 e-15 ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-24 (vector-ref act-28 1))) (vector 0 e-24))) (else (let ((e-24 (vector-ref act-28 1))) (let ((act-29 (CoreC-45Binary-u--full_HasNames_C-40ListC-32C-36aC-41 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Binary-u--full_HasNames_C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32C-40ListC-32StringC-41C-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32C-40ListC-32StringC-41C-41C-124C-41 arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Binary-u--resolved_HasNames_C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32C-40ListC-32StringC-41C-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32C-40ListC-32StringC-41C-41C-124C-41 arg-3843 arg-3844 eta-0))))) arg-2 e-16 ext-0))) (case (vector-ref act-29 0) ((0) (let ((e-25 (vector-ref act-29 1))) (vector 0 e-25))) (else (let ((e-25 (vector-ref act-29 1))) (let ((act-30 (CoreC-45Binary-u--full_HasNames_C-40ListC-32C-36aC-41 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Binary-u--full_HasNames_C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32TransformC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32TransformC-41C-124C-41 arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Binary-u--resolved_HasNames_C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32TransformC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32TransformC-41C-124C-41 arg-3843 arg-3844 eta-0))))) arg-2 e-18 ext-0))) (case (vector-ref act-30 0) ((0) (let ((e-26 (vector-ref act-30 1))) (vector 0 e-26))) (else (let ((e-26 (vector-ref act-30 1))) (let ((act-31 (let ((e-28 (car arg-1))) (((e-28 arg-2) e-19) ext-0)))) (case (vector-ref act-31 0) ((0) (let ((e-27 (vector-ref act-31 1))) (vector 0 e-27))) (else (let ((e-27 (vector-ref act-31 1))) (vector 1 (vector e-1 e-2 e-3 e-4 e-5 e-6 e-20 e-21 e-9 e-10 e-11 e-12 e-22 e-23 e-24 e-25 e-17 e-26 e-27))))))))))))))))))))))))))))))))))))))))))))))))))))))) +(define CoreC-45Binary-u--full_HasNames_C-40ListC-32C-36aC-41 (lambda (arg-1 arg-2 arg-3 ext-0) (CoreC-45Binary-n--8033-2181-u--full_aux arg-1 arg-3 arg-2 arg-2 '() arg-3 ext-0))) +(define CoreC-45Binary-writeToTTC (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-initBinary ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (let ((act-25 (unbox arg-2))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (let ((act-26 (unbox arg-3))) (vector 1 act-26)))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (CoreC-45Binary-getSaveDefs (let ((e-2 (vector-ref e-6 2))) e-2) (LibrariesC-45DataC-45NameMap-keys (let ((e-31 (vector-ref e-6 5))) e-31)) '() e-6 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (let ((act-28 (LibrariesC-45UtilsC-45Binary-hashFile arg-5 ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-28 1))) (let ((act-29 (CoreC-45ContextC-45Log-log arg-2 "ttc.write" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Writing " (PreludeC-45TypesC-45String-C-43C-43 arg-6 (PreludeC-45TypesC-45String-C-43C-43 " with source hash " (PreludeC-45TypesC-45String-C-43C-43 e-9 (PreludeC-45TypesC-45String-C-43C-43 " and interface hash " (PreludeC-45Show-u--show_Show_Int (let ((e-17 (vector-ref e-6 17))) e-17)))))))) ext-0))) (case (vector-ref act-29 0) ((0) (let ((e-2 (vector-ref act-29 1))) (vector 0 e-2))) (else (let ((act-30 (CoreC-45Binary-writeTTCFile arg-1 arg-2 e-5 (vector (CoreC-45Binary-ttcVersion) e-9 (let ((e-17 (vector-ref e-6 17))) e-17) (let ((e-18 (vector-ref e-6 18))) e-18) e-8 (LibrariesC-45DataC-45NameMap-keys (let ((e-24 (vector-ref e-6 24))) e-24)) (let ((e-12 (vector-ref e-6 12))) e-12) (let ((e-11 (vector-ref e-6 11))) e-11) (let ((e-19 (vector-ref e-6 19))) e-19) (let ((e-14 (vector-ref e-7 8))) e-14) (let ((e-2 (vector-ref e-6 2))) e-2) (let ((e-3 (vector-ref e-6 3))) e-3) (let ((e-4 (vector-ref e-6 4))) (let ((e-39 (vector-ref e-4 4))) e-39)) (let ((e-4 (vector-ref e-6 4))) (let ((e-38 (vector-ref e-4 5))) e-38)) (let ((e-4 (vector-ref e-6 4))) (let ((e-37 (vector-ref e-4 6))) e-37)) (LibrariesC-45DataC-45NameMap-toList (let ((e-16 (vector-ref e-6 16))) e-16)) (let ((e-21 (vector-ref e-6 21))) e-21) (let ((e-14 (vector-ref e-6 14))) e-14) arg-4) ext-0))) (case (vector-ref act-30 0) ((0) (let ((e-2 (vector-ref act-30 1))) (vector 0 e-2))) (else (let ((act-31 (let ((act-31 (let ((act-31 (unbox e-5))) (vector 1 act-31)))) (case (vector-ref act-31 0) ((0) (let ((e-2 (vector-ref act-31 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref act-31 1))) (let ((act-32 ((LibrariesC-45UtilsC-45Binary-writeToFile arg-6 e-12) ext-0))) (vector 1 act-32)))))))) (case (vector-ref act-31 0) ((0) (let ((e-2 (vector-ref act-31 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref act-31 1))) (case (vector-ref e-12 0) ((1) (vector 1 0)) (else (let ((e-13 (vector-ref e-12 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 (PreludeC-45TypesC-45String-C-43C-43 arg-6 (PreludeC-45TypesC-45String-C-43C-43 ": " (SystemC-45File-u--show_Show_FileError e-13)))) ext-0)))))))))))))))))))))))))))))))))))) +(define CoreC-45Binary-writeTTCFile (lambda (arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (CoreC-45Context-toFullNames arg-2 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Binary-u--full_HasNames_C-40TTCFileC-32C-36eC-41 (Builtin-fst arg-1) arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Binary-u--resolved_HasNames_C-40TTCFileC-32C-36eC-41 (Builtin-fst arg-1) arg-3843 arg-3844 eta-0))))) arg-4 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-3 "TT2") ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_WastefulInt arg-3 (let ((e-1 (vector-ref e-5 0))) e-1) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((act-27 ((LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-3 (let ((e-2 (vector-ref e-5 1))) e-2)) ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((act-28 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-3 (let ((e-3 (vector-ref e-5 2))) e-3) ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((act-29 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_Namespace arg-1457 arg-1460 eta-1)))) (lambda (arg-1461) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_Namespace arg-1461 eta-1)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-1)))) (lambda (arg-1461) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1461 eta-1))))) arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_Namespace arg-1456 arg-1459 eta-1)))) (lambda (arg-1462) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_Namespace arg-1462 eta-1)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1456 arg-1459 eta-1)))) (lambda (arg-1462) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1462 eta-1))))) arg-1461 eta-0)))) arg-3 (let ((e-4 (vector-ref e-5 3))) e-4) ext-0))) (case (vector-ref act-29 0) ((0) (let ((e-2 (vector-ref act-29 1))) (vector 0 e-2))) (else (let ((act-30 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_ModuleIdent arg-1457 arg-1460 eta-1)))) (lambda (arg-1461) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_ModuleIdent arg-1461 eta-1)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1461) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Bool arg-1458 arg-1461 eta-2)))) (lambda (arg-1461) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Bool arg-1461 eta-2)))) (cons (lambda (arg-1458) (lambda (arg-1461) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_Namespace arg-1458 arg-1461 eta-2)))) (lambda (arg-1461) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_Namespace arg-1461 eta-2))))) arg-1457 arg-1460 eta-1)))) (lambda (arg-1461) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Bool arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Bool arg-1462 eta-2)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_Namespace arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_Namespace arg-1462 eta-2))))) arg-1461 eta-1))))) arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_ModuleIdent arg-1456 arg-1459 eta-1)))) (lambda (arg-1462) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_ModuleIdent arg-1462 eta-1)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Bool arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Bool arg-1462 eta-2)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_Namespace arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_Namespace arg-1462 eta-2))))) arg-1456 arg-1459 eta-1)))) (lambda (arg-1462) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Bool arg-1456 arg-1459 eta-2)))) (lambda (arg-1463) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Bool arg-1463 eta-2)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_Namespace arg-1456 arg-1459 eta-2)))) (lambda (arg-1463) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_Namespace arg-1463 eta-2))))) arg-1462 eta-1))))) arg-1461 eta-0)))) arg-3 (let ((e-21 (vector-ref e-5 8))) e-21) ext-0))) (case (vector-ref act-30 0) ((0) (let ((e-2 (vector-ref act-30 1))) (vector 0 e-2))) (else (let ((act-31 (let ((sc7 (Builtin-snd arg-1))) (let ((e-1 (car sc7))) (((e-1 arg-3) (let ((e-19 (vector-ref e-5 18))) e-19)) ext-0))))) (case (vector-ref act-31 0) ((0) (let ((e-2 (vector-ref act-31 1))) (vector 0 e-2))) (else (let ((act-32 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_Name arg-1457 arg-1460 eta-1)))) (lambda (arg-1461) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1461 eta-1)))) (cons (lambda (arg-1457) (lambda (arg-1460) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Binary arg-1457 arg-1460))) (lambda (arg-1461) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Binary arg-1461 eta-1))))) arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_Name arg-1456 arg-1459 eta-1)))) (lambda (arg-1462) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1462 eta-1)))) (cons (lambda (arg-1456) (lambda (arg-1459) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Binary arg-1456 arg-1459))) (lambda (arg-1462) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Binary arg-1462 eta-1))))) arg-1461 eta-0)))) arg-3 (let ((e-27 (vector-ref e-5 4))) e-27) ext-0))) (case (vector-ref act-32 0) ((0) (let ((e-2 (vector-ref act-32 1))) (vector 0 e-2))) (else (let ((act-33 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_Name arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1461 eta-0)))) arg-3 (let ((e-27 (vector-ref e-5 5))) e-27) ext-0))) (case (vector-ref act-33 0) ((0) (let ((e-2 (vector-ref act-33 1))) (vector 0 e-2))) (else (let ((act-34 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_Name arg-1457 arg-1460 eta-1)))) (lambda (arg-1461) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1461 eta-1)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Bool arg-1457 arg-1460 eta-1)))) (lambda (arg-1461) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Bool arg-1461 eta-1))))) arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_Name arg-1456 arg-1459 eta-1)))) (lambda (arg-1462) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1462 eta-1)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Bool arg-1456 arg-1459 eta-1)))) (lambda (arg-1462) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Bool arg-1462 eta-1))))) arg-1461 eta-0)))) arg-3 (let ((e-27 (vector-ref e-5 6))) e-27) ext-0))) (case (vector-ref act-34 0) ((0) (let ((e-2 (vector-ref act-34 1))) (vector 0 e-2))) (else (let ((act-35 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_Name arg-1457 arg-1460 eta-1)))) (lambda (arg-1461) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1461 eta-1)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1461) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_Name arg-1458 arg-1461 eta-2)))) (lambda (arg-1461) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1461 eta-2)))) (cons (lambda (arg-1458) (lambda (arg-1461) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Bool arg-1458 arg-1461 eta-2)))) (lambda (arg-1461) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Bool arg-1461 eta-2))))) arg-1457 arg-1460 eta-1)))) (lambda (arg-1461) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_Name arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1462 eta-2)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Bool arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Bool arg-1462 eta-2))))) arg-1461 eta-1))))) arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_Name arg-1456 arg-1459 eta-1)))) (lambda (arg-1462) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1462 eta-1)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_Name arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1462 eta-2)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Bool arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Bool arg-1462 eta-2))))) arg-1456 arg-1459 eta-1)))) (lambda (arg-1462) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_Name arg-1456 arg-1459 eta-2)))) (lambda (arg-1463) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1463 eta-2)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Bool arg-1456 arg-1459 eta-2)))) (lambda (arg-1463) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Bool arg-1463 eta-2))))) arg-1462 eta-1))))) arg-1461 eta-0)))) arg-3 (let ((e-27 (vector-ref e-5 7))) e-27) ext-0))) (case (vector-ref act-35 0) ((0) (let ((e-2 (vector-ref act-35 1))) (vector 0 e-2))) (else (let ((act-36 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-3 (let ((e-26 (vector-ref e-5 9))) e-26) ext-0))) (case (vector-ref act-36 0) ((0) (let ((e-2 (vector-ref act-36 1))) (vector 0 e-2))) (else (let ((act-37 (CoreC-45TTC-u--toBuf_TTC_Namespace arg-3 (let ((e-26 (vector-ref e-5 10))) e-26) ext-0))) (case (vector-ref act-37 0) ((0) (let ((e-2 (vector-ref act-37 1))) (vector 0 e-2))) (else (let ((act-38 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_Namespace arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_Namespace arg-1461 eta-0)))) arg-3 (let ((e-26 (vector-ref e-5 11))) e-26) ext-0))) (case (vector-ref act-38 0) ((0) (let ((e-2 (vector-ref act-38 1))) (vector 0 e-2))) (else (let ((act-39 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_PairNames arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_PairNames arg-1461 eta-0)))) arg-3 (let ((e-26 (vector-ref e-5 12))) e-26) ext-0))) (case (vector-ref act-39 0) ((0) (let ((e-2 (vector-ref act-39 1))) (vector 0 e-2))) (else (let ((act-40 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_RewriteNames arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_RewriteNames arg-1461 eta-0)))) arg-3 (let ((e-26 (vector-ref e-5 13))) e-26) ext-0))) (case (vector-ref act-40 0) ((0) (let ((e-2 (vector-ref act-40 1))) (vector 0 e-2))) (else (let ((act-41 (CoreC-45TTC-u--toBuf_TTC_PrimNames arg-3 (let ((e-26 (vector-ref e-5 14))) e-26) ext-0))) (case (vector-ref act-41 0) ((0) (let ((e-2 (vector-ref act-41 1))) (vector 0 e-2))) (else (let ((act-42 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_Name arg-1457 arg-1460 eta-1)))) (lambda (arg-1461) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1461 eta-1)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1458) (lambda (arg-1461) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-1458 arg-1461))) (lambda (arg-1461) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-1461 eta-2)))) arg-1457 arg-1460 eta-1)))) (lambda (arg-1461) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1457) (lambda (arg-1460) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-1457 arg-1460))) (lambda (arg-1462) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-1462 eta-2)))) arg-1461 eta-1))))) arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_Name arg-1456 arg-1459 eta-1)))) (lambda (arg-1462) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1462 eta-1)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1457) (lambda (arg-1460) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-1457 arg-1460))) (lambda (arg-1462) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-1462 eta-2)))) arg-1456 arg-1459 eta-1)))) (lambda (arg-1462) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-1456 arg-1459))) (lambda (arg-1463) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-1463 eta-2)))) arg-1462 eta-1))))) arg-1461 eta-0)))) arg-3 (let ((e-26 (vector-ref e-5 15))) e-26) ext-0))) (case (vector-ref act-42 0) ((0) (let ((e-2 (vector-ref act-42 1))) (vector 0 e-2))) (else (let ((act-43 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_CG arg-1457 arg-1460 eta-1)))) (lambda (arg-1461) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_CG arg-1461 eta-1)))) (cons (lambda (arg-1457) (lambda (arg-1460) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-1457 arg-1460))) (lambda (arg-1461) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-1461 eta-1))))) arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_CG arg-1456 arg-1459 eta-1)))) (lambda (arg-1462) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_CG arg-1462 eta-1)))) (cons (lambda (arg-1456) (lambda (arg-1459) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-1456 arg-1459))) (lambda (arg-1462) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-1462 eta-1))))) arg-1461 eta-0)))) arg-3 (let ((e-26 (vector-ref e-5 16))) e-26) ext-0))) (case (vector-ref act-43 0) ((0) (let ((e-2 (vector-ref act-43 1))) (vector 0 e-2))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_Name arg-1457 arg-1460 eta-1)))) (lambda (arg-1461) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1461 eta-1)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_Transform arg-1457 arg-1460 eta-1)))) (lambda (arg-1461) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_Transform arg-1461 eta-1))))) arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_Name arg-1456 arg-1459 eta-1)))) (lambda (arg-1462) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1462 eta-1)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_Transform arg-1456 arg-1459 eta-1)))) (lambda (arg-1462) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_Transform arg-1462 eta-1))))) arg-1461 eta-0)))) arg-3 (let ((e-26 (vector-ref e-5 17))) e-26) ext-0)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) +(define CoreC-45Binary-updateTransforms (lambda (arg-0 arg-1 ext-0) (if (null? arg-1) (vector 1 0) (let ((e-2 (car arg-1))) (let ((e-3 (cdr arg-1))) (let ((e-6 (car e-2))) (let ((e-7 (cdr e-2))) (let ((act-24 (let ((act-24 (CoreC-45Context-toResolvedNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-0))))) e-6 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-toResolvedNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Transform arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Transform arg-3843 arg-3844 eta-0))))) e-7 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref act-25 1))) (CoreC-45Binary-n--10628-4596-u--addT e-6 e-7 e-3 arg-0 e-5 e-8 ext-0))))))))))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (CoreC-45Binary-updateTransforms arg-0 e-3 ext-0))))))))))) +(define CoreC-45Binary-updateRewrite (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (set-box! arg-0 (let ((e-0 (vector-ref e-5 0))) (let ((e-1 (vector-ref e-5 1))) (let ((e-2 (vector-ref e-5 2))) (let ((e-3 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-29 (vector-ref e-5 5))) (let ((e-6 (vector-ref e-5 6))) (let ((e-7 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (let ((e-10 (vector-ref e-5 10))) (let ((e-11 (vector-ref e-5 11))) (let ((e-12 (vector-ref e-5 12))) (let ((e-13 (vector-ref e-5 13))) (let ((e-14 (vector-ref e-5 14))) (let ((e-15 (vector-ref e-5 15))) (let ((e-16 (vector-ref e-5 16))) (let ((e-17 (vector-ref e-5 17))) (let ((e-18 (vector-ref e-5 18))) (let ((e-19 (vector-ref e-5 19))) (let ((e-20 (vector-ref e-5 20))) (let ((e-21 (vector-ref e-5 21))) (let ((e-22 (vector-ref e-5 22))) (let ((e-23 (vector-ref e-5 23))) (let ((e-24 (vector-ref e-5 24))) (let ((e-25 (vector-ref e-5 25))) (let ((e-26 (vector-ref e-5 26))) (let ((e-27 (vector-ref e-5 27))) (let ((e-28 (vector-ref e-5 28))) (let ((e-38 (vector-ref e-4 0))) (let ((e-30 (vector-ref e-4 1))) (let ((e-31 (vector-ref e-4 2))) (let ((e-32 (vector-ref e-4 3))) (let ((e-33 (vector-ref e-4 4))) (let ((e-34 (vector-ref e-4 5))) (let ((e-35 (vector-ref e-4 6))) (let ((e-36 (vector-ref e-4 7))) (let ((e-37 (vector-ref e-4 8))) (vector e-0 e-1 e-2 e-3 (vector e-38 e-30 e-31 e-32 e-33 (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40MaybeC-32C-36aC-41 arg-1 e-34) e-35 e-36 e-37) e-29 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27 e-28)))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25)))))))) +(define CoreC-45Binary-updatePrims (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (set-box! arg-0 (let ((e-0 (vector-ref e-5 0))) (let ((e-1 (vector-ref e-5 1))) (let ((e-2 (vector-ref e-5 2))) (let ((e-3 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-29 (vector-ref e-5 5))) (let ((e-6 (vector-ref e-5 6))) (let ((e-7 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (let ((e-10 (vector-ref e-5 10))) (let ((e-11 (vector-ref e-5 11))) (let ((e-12 (vector-ref e-5 12))) (let ((e-13 (vector-ref e-5 13))) (let ((e-14 (vector-ref e-5 14))) (let ((e-15 (vector-ref e-5 15))) (let ((e-16 (vector-ref e-5 16))) (let ((e-17 (vector-ref e-5 17))) (let ((e-18 (vector-ref e-5 18))) (let ((e-19 (vector-ref e-5 19))) (let ((e-20 (vector-ref e-5 20))) (let ((e-21 (vector-ref e-5 21))) (let ((e-22 (vector-ref e-5 22))) (let ((e-23 (vector-ref e-5 23))) (let ((e-24 (vector-ref e-5 24))) (let ((e-25 (vector-ref e-5 25))) (let ((e-26 (vector-ref e-5 26))) (let ((e-27 (vector-ref e-5 27))) (let ((e-28 (vector-ref e-5 28))) (let ((e-38 (vector-ref e-4 0))) (let ((e-30 (vector-ref e-4 1))) (let ((e-31 (vector-ref e-4 2))) (let ((e-32 (vector-ref e-4 3))) (let ((e-33 (vector-ref e-4 4))) (let ((e-34 (vector-ref e-4 5))) (let ((e-35 (vector-ref e-4 6))) (let ((e-36 (vector-ref e-4 7))) (let ((e-37 (vector-ref e-4 8))) (vector e-0 e-1 e-2 e-3 (vector e-38 e-30 e-31 e-32 e-33 e-34 (CoreC-45Binary-updatePrimNames arg-1 e-35) e-36 e-37) e-29 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27 e-28)))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25)))))))) +(define CoreC-45Binary-updatePrimNames (lambda (arg-0 ext-0) (let ((e-0 (vector-ref ext-0 0))) (let ((e-1 (vector-ref ext-0 1))) (let ((e-2 (vector-ref ext-0 2))) (let ((e-3 (vector-ref ext-0 3))) (vector (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40MaybeC-32C-36aC-41 (let ((e-7 (vector-ref arg-0 0))) e-7) e-0) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40MaybeC-32C-36aC-41 (let ((e-6 (vector-ref arg-0 1))) e-6) e-1) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40MaybeC-32C-36aC-41 (let ((e-5 (vector-ref arg-0 2))) e-5) e-2) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40MaybeC-32C-36aC-41 (let ((e-4 (vector-ref arg-0 3))) e-4) e-3)))))))) +(define CoreC-45Binary-updatePair (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (set-box! arg-0 (let ((e-0 (vector-ref e-5 0))) (let ((e-1 (vector-ref e-5 1))) (let ((e-2 (vector-ref e-5 2))) (let ((e-3 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-29 (vector-ref e-5 5))) (let ((e-6 (vector-ref e-5 6))) (let ((e-7 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (let ((e-10 (vector-ref e-5 10))) (let ((e-11 (vector-ref e-5 11))) (let ((e-12 (vector-ref e-5 12))) (let ((e-13 (vector-ref e-5 13))) (let ((e-14 (vector-ref e-5 14))) (let ((e-15 (vector-ref e-5 15))) (let ((e-16 (vector-ref e-5 16))) (let ((e-17 (vector-ref e-5 17))) (let ((e-18 (vector-ref e-5 18))) (let ((e-19 (vector-ref e-5 19))) (let ((e-20 (vector-ref e-5 20))) (let ((e-21 (vector-ref e-5 21))) (let ((e-22 (vector-ref e-5 22))) (let ((e-23 (vector-ref e-5 23))) (let ((e-24 (vector-ref e-5 24))) (let ((e-25 (vector-ref e-5 25))) (let ((e-26 (vector-ref e-5 26))) (let ((e-27 (vector-ref e-5 27))) (let ((e-28 (vector-ref e-5 28))) (let ((e-38 (vector-ref e-4 0))) (let ((e-30 (vector-ref e-4 1))) (let ((e-31 (vector-ref e-4 2))) (let ((e-32 (vector-ref e-4 3))) (let ((e-33 (vector-ref e-4 4))) (let ((e-34 (vector-ref e-4 5))) (let ((e-35 (vector-ref e-4 6))) (let ((e-36 (vector-ref e-4 7))) (let ((e-37 (vector-ref e-4 8))) (vector e-0 e-1 e-2 e-3 (vector e-38 e-30 e-31 e-32 (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40MaybeC-32C-36aC-41 arg-1 e-33) e-34 e-35 e-36 e-37) e-29 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27 e-28)))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25)))))))) +(define CoreC-45Binary-updateNameDirectives (lambda (arg-0 arg-1 ext-0) (if (null? arg-1) (vector 1 0) (let ((e-2 (car arg-1))) (let ((e-3 (cdr arg-1))) (let ((e-6 (car e-2))) (let ((e-7 (cdr e-2))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (let ((act-25 (set-box! arg-0 (let ((e-0 (vector-ref e-5 0))) (let ((e-1 (vector-ref e-5 1))) (let ((e-33 (vector-ref e-5 2))) (let ((e-32 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-31 (vector-ref e-5 5))) (let ((e-30 (vector-ref e-5 6))) (let ((e-29 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (let ((e-10 (vector-ref e-5 10))) (let ((e-11 (vector-ref e-5 11))) (let ((e-12 (vector-ref e-5 12))) (let ((e-13 (vector-ref e-5 13))) (let ((e-14 (vector-ref e-5 14))) (let ((e-15 (vector-ref e-5 15))) (let ((e-16 (vector-ref e-5 16))) (let ((e-17 (vector-ref e-5 17))) (let ((e-18 (vector-ref e-5 18))) (let ((e-19 (vector-ref e-5 19))) (let ((e-20 (vector-ref e-5 20))) (let ((e-21 (vector-ref e-5 21))) (let ((e-22 (vector-ref e-5 22))) (let ((e-23 (vector-ref e-5 23))) (let ((e-24 (vector-ref e-5 24))) (let ((e-25 (vector-ref e-5 25))) (let ((e-26 (vector-ref e-5 26))) (let ((e-27 (vector-ref e-5 27))) (let ((e-28 (vector-ref e-5 28))) (vector e-0 e-1 e-33 e-32 e-4 e-31 e-30 e-29 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 (LibrariesC-45DataC-45NameMap-insert e-6 e-7 e-16) e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27 e-28))))))))))))))))))))))))))))))))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (CoreC-45Binary-updateNameDirectives arg-0 e-3 ext-0))))))))))))))) +(define CoreC-45Binary-updateCGDirectives (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((u--cgsC-39 (DataC-45List-nub (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (arg-4) (lambda (arg-5) (CoreC-45Options-u--C-61C-61_Eq_CG arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (CoreC-45Options-u--C-47C-61_Eq_CG arg-4 arg-5)))) (cons (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-61C-61_Eq_String arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_String arg-4 arg-5)))) arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (arg-2) (lambda (arg-3) (CoreC-45Options-u--C-61C-61_Eq_CG arg-2 arg-3))) (lambda (arg-6) (lambda (arg-7) (CoreC-45Options-u--C-47C-61_Eq_CG arg-6 arg-7)))) (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_String arg-2 arg-3))) (lambda (arg-6) (lambda (arg-7) (PreludeC-45EqOrd-u--C-47C-61_Eq_String arg-6 arg-7)))) arg-4 arg-5)))) (PreludeC-45TypesC-45List-C-43C-43 arg-1 (let ((e-21 (vector-ref e-5 21))) e-21))))) (let ((act-25 (set-box! arg-0 (let ((e-0 (vector-ref e-5 0))) (let ((e-1 (vector-ref e-5 1))) (let ((e-2 (vector-ref e-5 2))) (let ((e-3 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-29 (vector-ref e-5 5))) (let ((e-6 (vector-ref e-5 6))) (let ((e-7 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (let ((e-10 (vector-ref e-5 10))) (let ((e-11 (vector-ref e-5 11))) (let ((e-12 (vector-ref e-5 12))) (let ((e-13 (vector-ref e-5 13))) (let ((e-14 (vector-ref e-5 14))) (let ((e-15 (vector-ref e-5 15))) (let ((e-16 (vector-ref e-5 16))) (let ((e-17 (vector-ref e-5 17))) (let ((e-18 (vector-ref e-5 18))) (let ((e-19 (vector-ref e-5 19))) (let ((e-20 (vector-ref e-5 20))) (let ((e-22 (vector-ref e-5 22))) (let ((e-23 (vector-ref e-5 23))) (let ((e-24 (vector-ref e-5 24))) (let ((e-25 (vector-ref e-5 25))) (let ((e-26 (vector-ref e-5 26))) (let ((e-27 (vector-ref e-5 27))) (let ((e-28 (vector-ref e-5 28))) (vector e-0 e-1 e-2 e-3 e-4 e-29 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 u--cgsC-39 e-22 e-23 e-24 e-25 e-26 e-27 e-28)))))))))))))))))))))))))))))))) (vector 1 act-25))))))))) +(define CoreC-45Binary-ttcVersion (lambda () 56)) +(define CoreC-45Binary-readTTCFile (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-6 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (let ((act-25 (unbox arg-6))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 (let ((sc2 (PreludeC-45EqOrd-u--C-47C-61_Eq_String e-5 "TT2"))) (cond ((equal? sc2 1) (LibrariesC-45UtilsC-45Binary-corrupt (PreludeC-45TypesC-45String-C-43C-43 "TTC header in " (PreludeC-45TypesC-45String-C-43C-43 arg-4 (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45Show-u--show_Show_String e-5)))) ext-0)) (else (vector 1 0)))))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((act-27 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_WastefulInt arg-6 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (let ((act-28 (CoreC-45Binary-checkTTCVersion arg-4 e-8 (CoreC-45Binary-ttcVersion) ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((act-29 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-6 ext-0))) (case (vector-ref act-29 0) ((0) (let ((e-2 (vector-ref act-29 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref act-29 1))) (let ((act-30 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-6 ext-0))) (case (vector-ref act-30 0) ((0) (let ((e-2 (vector-ref act-30 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref act-30 1))) (let ((act-31 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_Namespace arg-1457 arg-1460 eta-1)))) (lambda (arg-1461) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_Namespace arg-1461 eta-1)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-1)))) (lambda (arg-1461) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1461 eta-1))))) arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_Namespace arg-1456 arg-1459 eta-1)))) (lambda (arg-1462) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_Namespace arg-1462 eta-1)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1456 arg-1459 eta-1)))) (lambda (arg-1462) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1462 eta-1))))) arg-1461 eta-0)))) arg-6 ext-0))) (case (vector-ref act-31 0) ((0) (let ((e-2 (vector-ref act-31 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref act-31 1))) (let ((act-32 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_ModuleIdent arg-1457 arg-1460 eta-1)))) (lambda (arg-1461) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_ModuleIdent arg-1461 eta-1)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1461) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Bool arg-1458 arg-1461 eta-2)))) (lambda (arg-1461) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Bool arg-1461 eta-2)))) (cons (lambda (arg-1458) (lambda (arg-1461) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_Namespace arg-1458 arg-1461 eta-2)))) (lambda (arg-1461) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_Namespace arg-1461 eta-2))))) arg-1457 arg-1460 eta-1)))) (lambda (arg-1461) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Bool arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Bool arg-1462 eta-2)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_Namespace arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_Namespace arg-1462 eta-2))))) arg-1461 eta-1))))) arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_ModuleIdent arg-1456 arg-1459 eta-1)))) (lambda (arg-1462) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_ModuleIdent arg-1462 eta-1)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Bool arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Bool arg-1462 eta-2)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_Namespace arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_Namespace arg-1462 eta-2))))) arg-1456 arg-1459 eta-1)))) (lambda (arg-1462) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Bool arg-1456 arg-1459 eta-2)))) (lambda (arg-1463) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Bool arg-1463 eta-2)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_Namespace arg-1456 arg-1459 eta-2)))) (lambda (arg-1463) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_Namespace arg-1463 eta-2))))) arg-1462 eta-1))))) arg-1461 eta-0)))) arg-6 ext-0))) (case (vector-ref act-32 0) ((0) (let ((e-2 (vector-ref act-32 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref act-32 1))) (let ((act-33 (let ((e-2 (cdr arg-1))) ((e-2 arg-6) ext-0)))) (case (vector-ref act-33 0) ((0) (let ((e-2 (vector-ref act-33 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref act-33 1))) (cond ((equal? arg-3 1) (let ((act-34 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_Name arg-1457 arg-1460 eta-1)))) (lambda (arg-1461) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1461 eta-1)))) (cons (lambda (arg-1457) (lambda (arg-1460) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Binary arg-1457 arg-1460))) (lambda (arg-1461) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Binary arg-1461 eta-1))))) arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_Name arg-1456 arg-1459 eta-1)))) (lambda (arg-1462) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1462 eta-1)))) (cons (lambda (arg-1456) (lambda (arg-1459) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Binary arg-1456 arg-1459))) (lambda (arg-1462) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Binary arg-1462 eta-1))))) arg-1461 eta-0)))) arg-6 ext-0))) (case (vector-ref act-34 0) ((0) (let ((e-2 (vector-ref act-34 1))) (vector 0 e-2))) (else (let ((e-15 (vector-ref act-34 1))) (let ((act-35 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_Name arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1461 eta-0)))) arg-6 ext-0))) (case (vector-ref act-35 0) ((0) (let ((e-2 (vector-ref act-35 1))) (vector 0 e-2))) (else (let ((e-16 (vector-ref act-35 1))) (let ((act-36 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_Name arg-1457 arg-1460 eta-1)))) (lambda (arg-1461) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1461 eta-1)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Bool arg-1457 arg-1460 eta-1)))) (lambda (arg-1461) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Bool arg-1461 eta-1))))) arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_Name arg-1456 arg-1459 eta-1)))) (lambda (arg-1462) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1462 eta-1)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Bool arg-1456 arg-1459 eta-1)))) (lambda (arg-1462) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Bool arg-1462 eta-1))))) arg-1461 eta-0)))) arg-6 ext-0))) (case (vector-ref act-36 0) ((0) (let ((e-2 (vector-ref act-36 1))) (vector 0 e-2))) (else (let ((e-17 (vector-ref act-36 1))) (let ((act-37 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_Name arg-1457 arg-1460 eta-1)))) (lambda (arg-1461) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1461 eta-1)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1461) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_Name arg-1458 arg-1461 eta-2)))) (lambda (arg-1461) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1461 eta-2)))) (cons (lambda (arg-1458) (lambda (arg-1461) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Bool arg-1458 arg-1461 eta-2)))) (lambda (arg-1461) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Bool arg-1461 eta-2))))) arg-1457 arg-1460 eta-1)))) (lambda (arg-1461) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_Name arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1462 eta-2)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Bool arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Bool arg-1462 eta-2))))) arg-1461 eta-1))))) arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_Name arg-1456 arg-1459 eta-1)))) (lambda (arg-1462) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1462 eta-1)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_Name arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1462 eta-2)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Bool arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Bool arg-1462 eta-2))))) arg-1456 arg-1459 eta-1)))) (lambda (arg-1462) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_Name arg-1456 arg-1459 eta-2)))) (lambda (arg-1463) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1463 eta-2)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Bool arg-1456 arg-1459 eta-2)))) (lambda (arg-1463) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Bool arg-1463 eta-2))))) arg-1462 eta-1))))) arg-1461 eta-0)))) arg-6 ext-0))) (case (vector-ref act-37 0) ((0) (let ((e-2 (vector-ref act-37 1))) (vector 0 e-2))) (else (let ((e-18 (vector-ref act-37 1))) (let ((act-38 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-6 ext-0))) (case (vector-ref act-38 0) ((0) (let ((e-2 (vector-ref act-38 1))) (vector 0 e-2))) (else (let ((e-19 (vector-ref act-38 1))) (let ((act-39 (CoreC-45TTC-u--fromBuf_TTC_Namespace arg-6 ext-0))) (case (vector-ref act-39 0) ((0) (let ((e-2 (vector-ref act-39 1))) (vector 0 e-2))) (else (let ((e-20 (vector-ref act-39 1))) (let ((act-40 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_Namespace arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_Namespace arg-1461 eta-0)))) arg-6 ext-0))) (case (vector-ref act-40 0) ((0) (let ((e-2 (vector-ref act-40 1))) (vector 0 e-2))) (else (let ((e-21 (vector-ref act-40 1))) (let ((act-41 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_PairNames arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_PairNames arg-1461 eta-0)))) arg-6 ext-0))) (case (vector-ref act-41 0) ((0) (let ((e-2 (vector-ref act-41 1))) (vector 0 e-2))) (else (let ((e-22 (vector-ref act-41 1))) (let ((act-42 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_RewriteNames arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_RewriteNames arg-1461 eta-0)))) arg-6 ext-0))) (case (vector-ref act-42 0) ((0) (let ((e-2 (vector-ref act-42 1))) (vector 0 e-2))) (else (let ((e-23 (vector-ref act-42 1))) (let ((act-43 (CoreC-45TTC-u--fromBuf_TTC_PrimNames arg-6 ext-0))) (case (vector-ref act-43 0) ((0) (let ((e-2 (vector-ref act-43 1))) (vector 0 e-2))) (else (let ((e-24 (vector-ref act-43 1))) (let ((act-44 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_Name arg-1457 arg-1460 eta-1)))) (lambda (arg-1461) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1461 eta-1)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1458) (lambda (arg-1461) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-1458 arg-1461))) (lambda (arg-1461) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-1461 eta-2)))) arg-1457 arg-1460 eta-1)))) (lambda (arg-1461) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1457) (lambda (arg-1460) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-1457 arg-1460))) (lambda (arg-1462) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-1462 eta-2)))) arg-1461 eta-1))))) arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_Name arg-1456 arg-1459 eta-1)))) (lambda (arg-1462) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1462 eta-1)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1457) (lambda (arg-1460) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-1457 arg-1460))) (lambda (arg-1462) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-1462 eta-2)))) arg-1456 arg-1459 eta-1)))) (lambda (arg-1462) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-1456 arg-1459))) (lambda (arg-1463) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-1463 eta-2)))) arg-1462 eta-1))))) arg-1461 eta-0)))) arg-6 ext-0))) (case (vector-ref act-44 0) ((0) (let ((e-2 (vector-ref act-44 1))) (vector 0 e-2))) (else (let ((e-25 (vector-ref act-44 1))) (let ((act-45 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_CG arg-1457 arg-1460 eta-1)))) (lambda (arg-1461) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_CG arg-1461 eta-1)))) (cons (lambda (arg-1457) (lambda (arg-1460) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-1457 arg-1460))) (lambda (arg-1461) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-1461 eta-1))))) arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_CG arg-1456 arg-1459 eta-1)))) (lambda (arg-1462) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_CG arg-1462 eta-1)))) (cons (lambda (arg-1456) (lambda (arg-1459) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-1456 arg-1459))) (lambda (arg-1462) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-1462 eta-1))))) arg-1461 eta-0)))) arg-6 ext-0))) (case (vector-ref act-45 0) ((0) (let ((e-2 (vector-ref act-45 1))) (vector 0 e-2))) (else (let ((e-26 (vector-ref act-45 1))) (let ((act-46 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_Name arg-1457 arg-1460 eta-1)))) (lambda (arg-1461) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1461 eta-1)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_Transform arg-1457 arg-1460 eta-1)))) (lambda (arg-1461) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_Transform arg-1461 eta-1))))) arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_Name arg-1456 arg-1459 eta-1)))) (lambda (arg-1462) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1462 eta-1)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_Transform arg-1456 arg-1459 eta-1)))) (lambda (arg-1462) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_Transform arg-1462 eta-1))))) arg-1461 eta-0)))) arg-6 ext-0))) (case (vector-ref act-46 0) ((0) (let ((e-2 (vector-ref act-46 1))) (vector 0 e-2))) (else (let ((e-27 (vector-ref act-46 1))) (vector 1 (vector e-8 e-10 e-11 e-12 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45Binary-n--9148-3209-u--replaceNS arg-1 arg-6 arg-5 arg-4 arg-3 arg-2 e-20 eta-0)) e-15) e-16 e-17 e-18 e-13 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27 e-14))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (vector 1 (vector e-8 e-10 e-11 e-12 '() '() '() '() '() 0 (CoreC-45NameC-45Namespace-mkNamespace "") '() '() '() (vector '() '() '() '()) '() '() '() e-14))))))))))))))))))))))))))))))))))))))))))) +(define CoreC-45Binary-readImportHashes (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (LibrariesC-45UtilsC-45Binary-readFromFile arg-0 ext-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (case (vector-ref e-5 0) ((1) (let ((e-2 (vector-ref e-5 1))) (let ((act-25 (CoreC-45Core-newRef (vector "Libraries.Utils.Binary.Bin" ) e-2 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-3 (vector-ref act-25 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref act-25 1))) (CoreC-45Core-u--catch_Catchable_Core_Error (lambda (eta-0) (let ((act-26 (CoreC-45Binary-getImportHashes arg-0 e-6 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-3 (vector-ref act-26 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 e-7)))))) (lambda (u--err) (lambda (eta-0) (vector 1 '()))) ext-0))))))) (else (vector 1 '()))))))))) +(define CoreC-45Binary-readHashes (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (LibrariesC-45UtilsC-45Binary-readFromFile arg-0 ext-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (case (vector-ref e-5 0) ((1) (let ((e-2 (vector-ref e-5 1))) (let ((act-25 (CoreC-45Core-newRef (vector "Libraries.Utils.Binary.Bin" ) e-2 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-3 (vector-ref act-25 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref act-25 1))) (CoreC-45Core-u--catch_Catchable_Core_Error (lambda (eta-0) (let ((act-26 (CoreC-45Binary-getHashes arg-0 e-6 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-3 (vector-ref act-26 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 e-7)))))) (lambda (u--err) (lambda (eta-0) (vector 1 (cons "" 0)))) ext-0))))))) (else (vector 1 (cons "" 0)))))))))) +(define CoreC-45Binary-readFromTTC (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 ext-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((sc1 (PreludeC-45Types-elem (cons (lambda (arg-10) (lambda (arg-11) (PreludeC-45EqOrd-u--C-61C-61_Eq_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (arg-12) (lambda (arg-13) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_ModuleIdent arg-12 arg-13))) (lambda (arg-12) (lambda (arg-13) (CoreC-45NameC-45Namespace-u--C-47C-61_Eq_ModuleIdent arg-12 arg-13)))) (cons (lambda (arg-12) (lambda (arg-13) (PreludeC-45EqOrd-u--C-61C-61_Eq_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (arg-14) (lambda (arg-15) (PreludeC-45EqOrd-u--C-61C-61_Eq_Bool arg-14 arg-15))) (lambda (arg-14) (lambda (arg-15) (PreludeC-45EqOrd-u--C-47C-61_Eq_Bool arg-14 arg-15)))) (cons (lambda (arg-14) (lambda (arg-15) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace arg-14 arg-15))) (lambda (arg-14) (lambda (arg-15) (CoreC-45NameC-45Namespace-u--C-47C-61_Eq_Namespace arg-14 arg-15)))) arg-12 arg-13))) (lambda (arg-12) (lambda (arg-13) (PreludeC-45EqOrd-u--C-47C-61_Eq_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (arg-14) (lambda (arg-15) (PreludeC-45EqOrd-u--C-61C-61_Eq_Bool arg-14 arg-15))) (lambda (arg-14) (lambda (arg-15) (PreludeC-45EqOrd-u--C-47C-61_Eq_Bool arg-14 arg-15)))) (cons (lambda (arg-14) (lambda (arg-15) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace arg-14 arg-15))) (lambda (arg-14) (lambda (arg-15) (CoreC-45NameC-45Namespace-u--C-47C-61_Eq_Namespace arg-14 arg-15)))) arg-12 arg-13)))) arg-10 arg-11))) (lambda (arg-10) (lambda (arg-11) (PreludeC-45EqOrd-u--C-47C-61_Eq_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (arg-12) (lambda (arg-13) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_ModuleIdent arg-12 arg-13))) (lambda (arg-12) (lambda (arg-13) (CoreC-45NameC-45Namespace-u--C-47C-61_Eq_ModuleIdent arg-12 arg-13)))) (cons (lambda (arg-12) (lambda (arg-13) (PreludeC-45EqOrd-u--C-61C-61_Eq_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (arg-14) (lambda (arg-15) (PreludeC-45EqOrd-u--C-61C-61_Eq_Bool arg-14 arg-15))) (lambda (arg-14) (lambda (arg-15) (PreludeC-45EqOrd-u--C-47C-61_Eq_Bool arg-14 arg-15)))) (cons (lambda (arg-14) (lambda (arg-15) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace arg-14 arg-15))) (lambda (arg-14) (lambda (arg-15) (CoreC-45NameC-45Namespace-u--C-47C-61_Eq_Namespace arg-14 arg-15)))) arg-12 arg-13))) (lambda (arg-12) (lambda (arg-13) (PreludeC-45EqOrd-u--C-47C-61_Eq_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (arg-14) (lambda (arg-15) (PreludeC-45EqOrd-u--C-61C-61_Eq_Bool arg-14 arg-15))) (lambda (arg-14) (lambda (arg-15) (PreludeC-45EqOrd-u--C-47C-61_Eq_Bool arg-14 arg-15)))) (cons (lambda (arg-14) (lambda (arg-15) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace arg-14 arg-15))) (lambda (arg-14) (lambda (arg-15) (CoreC-45NameC-45Namespace-u--C-47C-61_Eq_Namespace arg-14 arg-15)))) arg-12 arg-13)))) arg-10 arg-11)))) (cons arg-8 (cons arg-6 arg-9)) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) (let ((e-20 (vector-ref e-5 20))) e-20))))) (cond ((equal? sc1 0) (let ((act-25 (let ((act-25 (set-box! arg-2 (let ((e-0 (vector-ref e-5 0))) (let ((e-1 (vector-ref e-5 1))) (let ((e-2 (vector-ref e-5 2))) (let ((e-3 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-29 (vector-ref e-5 5))) (let ((e-6 (vector-ref e-5 6))) (let ((e-7 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (let ((e-10 (vector-ref e-5 10))) (let ((e-11 (vector-ref e-5 11))) (let ((e-12 (vector-ref e-5 12))) (let ((e-13 (vector-ref e-5 13))) (let ((e-14 (vector-ref e-5 14))) (let ((e-15 (vector-ref e-5 15))) (let ((e-16 (vector-ref e-5 16))) (let ((e-17 (vector-ref e-5 17))) (let ((e-18 (vector-ref e-5 18))) (let ((e-19 (vector-ref e-5 19))) (let ((e-20 (vector-ref e-5 20))) (let ((e-21 (vector-ref e-5 21))) (let ((e-22 (vector-ref e-5 22))) (let ((e-23 (vector-ref e-5 23))) (let ((e-24 (vector-ref e-5 24))) (let ((e-25 (vector-ref e-5 25))) (let ((e-26 (vector-ref e-5 26))) (let ((e-27 (vector-ref e-5 27))) (let ((e-28 (vector-ref e-5 28))) (vector e-0 e-1 e-2 e-3 e-4 e-29 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 (cons (cons arg-7 (cons arg-8 (cons arg-6 arg-9))) e-20) e-21 e-22 e-23 e-24 e-25 e-26 e-27 e-28))))))))))))))))))))))))))))))))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 (let ((act-26 (LibrariesC-45UtilsC-45Binary-readFromFile arg-7 ext-0))) (vector 1 act-26)))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (case (vector-ref e-7 0) ((1) (let ((e-2 (vector-ref e-7 1))) (let ((act-27 (CoreC-45Core-newRef (vector "Libraries.Utils.Binary.Bin" ) e-2 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-3 (vector-ref act-27 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref act-27 1))) (let ((u--as (let ((sc6 (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace arg-9 (CoreC-45NameC-45Namespace-miAsNamespace arg-8)))) (cond ((equal? sc6 1) '()) (else (box arg-9)))))) (let ((sc6 (CoreC-45Binary-n--10878-4820-u--alreadyDone arg-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-8 arg-9 (let ((e-20 (vector-ref e-5 20))) e-20)))) (cond ((equal? sc6 1) (let ((act-28 (CoreC-45Binary-readTTCFile arg-1 arg-2 0 arg-7 u--as e-8 ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-3 (vector-ref act-28 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref act-28 1))) (let ((u--ex (let ((e-19 (vector-ref e-9 18))) e-19))) (vector 1 (box (cons u--ex (cons (let ((e-3 (vector-ref e-9 2))) e-3) (let ((e-20 (vector-ref e-9 8))) e-20))))))))))) (else (let ((act-28 (CoreC-45Binary-readTTCFile arg-1 arg-2 1 arg-7 u--as e-8 ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-3 (vector-ref act-28 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref act-28 1))) (let ((u--ex (let ((e-19 (vector-ref e-9 18))) e-19))) (let ((act-29 (CoreC-45Core-traverse_ (lambda (eta-0) (lambda (eta-1) (CoreC-45Binary-addGlobalDef arg-2 arg-8 (let ((e-11 (vector-ref e-9 10))) e-11) u--as eta-0 eta-1))) (let ((e-24 (vector-ref e-9 4))) e-24) ext-0))) (case (vector-ref act-29 0) ((0) (let ((e-3 (vector-ref act-29 1))) (vector 0 e-3))) (else (let ((act-30 (CoreC-45Core-traverse_ (lambda (eta-0) (lambda (eta-1) (CoreC-45Context-addUserHole arg-2 eta-0 eta-1))) (let ((e-24 (vector-ref e-9 5))) e-24) ext-0))) (case (vector-ref act-30 0) ((0) (let ((e-3 (vector-ref act-30 1))) (vector 0 e-3))) (else (let ((act-31 (CoreC-45Context-setNS arg-2 (let ((e-20 (vector-ref e-9 10))) e-20) ext-0))) (case (vector-ref act-31 0) ((0) (let ((e-3 (vector-ref act-31 1))) (vector 0 e-3))) (else (let ((act-32 (cond ((equal? arg-4 1) (CoreC-45Context-setNestedNS arg-2 (let ((e-20 (vector-ref e-9 11))) e-20) ext-0)) (else (vector 1 0))))) (case (vector-ref act-32 0) ((0) (let ((e-3 (vector-ref act-32 1))) (vector 0 e-3))) (else (let ((act-33 (let ((sc12 (PreludeC-45Types-elem (cons (lambda (arg-10) (lambda (arg-11) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_ModuleIdent arg-10 arg-11))) (lambda (arg-10) (lambda (arg-11) (CoreC-45NameC-45Namespace-u--C-47C-61_Eq_ModuleIdent arg-10 arg-11)))) arg-8 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-fst (CoreC-45Binary-getNSas eta-0))) (let ((e-20 (vector-ref e-5 20))) e-20))))) (cond ((equal? sc12 1) (vector 1 0)) (else (let ((act-33 (CoreC-45Core-traverse_ (lambda (eta-0) (lambda (eta-1) (CoreC-45Binary-addTypeHint arg-2 arg-5 eta-0 eta-1))) (let ((e-25 (vector-ref e-9 7))) e-25) ext-0))) (case (vector-ref act-33 0) ((0) (let ((e-3 (vector-ref act-33 1))) (vector 0 e-3))) (else (let ((act-34 (CoreC-45Core-traverse_ (lambda (eta-0) (lambda (eta-1) (CoreC-45Binary-addAutoHint arg-2 eta-0 eta-1))) (let ((e-27 (vector-ref e-9 6))) e-27) ext-0))) (case (vector-ref act-34 0) ((0) (let ((e-3 (vector-ref act-34 1))) (vector 0 e-3))) (else (let ((act-35 (CoreC-45Binary-updatePair arg-2 (let ((e-22 (vector-ref e-9 12))) e-22) ext-0))) (case (vector-ref act-35 0) ((0) (let ((e-3 (vector-ref act-35 1))) (vector 0 e-3))) (else (let ((act-36 (CoreC-45Binary-updateRewrite arg-2 (let ((e-22 (vector-ref e-9 13))) e-22) ext-0))) (case (vector-ref act-36 0) ((0) (let ((e-3 (vector-ref act-36 1))) (vector 0 e-3))) (else (let ((act-37 (CoreC-45Binary-updatePrims arg-2 (let ((e-22 (vector-ref e-9 14))) e-22) ext-0))) (case (vector-ref act-37 0) ((0) (let ((e-3 (vector-ref act-37 1))) (vector 0 e-3))) (else (let ((act-38 (CoreC-45Binary-updateNameDirectives arg-2 (DataC-45List-reverse (let ((e-22 (vector-ref e-9 15))) e-22)) ext-0))) (case (vector-ref act-38 0) ((0) (let ((e-3 (vector-ref act-38 1))) (vector 0 e-3))) (else (let ((act-39 (CoreC-45Binary-updateCGDirectives arg-2 (let ((e-22 (vector-ref e-9 16))) e-22) ext-0))) (case (vector-ref act-39 0) ((0) (let ((e-3 (vector-ref act-39 1))) (vector 0 e-3))) (else (CoreC-45Binary-updateTransforms arg-2 (let ((e-22 (vector-ref e-9 17))) e-22) ext-0))))))))))))))))))))))))))) (case (vector-ref act-33 0) ((0) (let ((e-3 (vector-ref act-33 1))) (vector 0 e-3))) (else (let ((act-34 (cond ((equal? arg-6 1) (vector 1 0)) (else (CoreC-45Context-clearSavedHints arg-2 ext-0))))) (case (vector-ref act-34 0) ((0) (let ((e-3 (vector-ref act-34 1))) (vector 0 e-3))) (else (let ((act-35 (CoreC-45Context-resetFirstEntry arg-2 ext-0))) (case (vector-ref act-35 0) ((0) (let ((e-3 (vector-ref act-35 1))) (vector 0 e-3))) (else (let ((act-36 (let ((act-36 (unbox arg-3))) (vector 1 act-36)))) (case (vector-ref act-36 0) ((0) (let ((e-3 (vector-ref act-36 1))) (vector 0 e-3))) (else (let ((e-17 (vector-ref act-36 1))) (let ((act-37 (let ((act-37 (set-box! arg-3 (let ((e-0 (vector-ref e-17 0))) (let ((e-1 (vector-ref e-17 1))) (let ((e-25 (vector-ref e-17 2))) (let ((e-3 (vector-ref e-17 3))) (let ((e-4 (vector-ref e-17 4))) (let ((e-24 (vector-ref e-17 5))) (let ((e-23 (vector-ref e-17 6))) (let ((e-22 (vector-ref e-17 7))) (let ((e-20 (vector-ref e-17 9))) (let ((e-19 (vector-ref e-17 10))) (let ((e-18 (vector-ref e-17 11))) (vector e-0 e-1 e-25 e-3 e-4 e-24 e-23 e-22 (let ((e-35 (vector-ref e-9 9))) e-35) e-20 e-19 e-18))))))))))))))) (vector 1 act-37)))) (case (vector-ref act-37 0) ((0) (let ((e-3 (vector-ref act-37 1))) (vector 0 e-3))) (else (vector 1 (box (cons u--ex (cons (let ((e-3 (vector-ref e-9 2))) e-3) (let ((e-29 (vector-ref e-9 8))) e-29)))))))))))))))))))))))))))))))))))))))))))))))) (else (let ((e-8 (vector-ref e-7 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 (PreludeC-45TypesC-45String-C-43C-43 arg-7 (PreludeC-45TypesC-45String-C-43C-43 ": " (SystemC-45File-u--show_Show_FileError e-8)))) ext-0)))))))))))) (else (vector 1 '())))))))))) +(define CoreC-45Binary-getSaveDefs (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (if (null? arg-1) (vector 1 arg-2) (let ((e-2 (car arg-1))) (let ((e-3 (cdr arg-1))) (let ((act-24 ((CoreC-45Context-lookupCtxtExact e-2 (let ((e-0 (vector-ref arg-3 0))) e-0)) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (if (null? e-5) (CoreC-45Binary-getSaveDefs arg-0 e-3 arg-2 arg-3 ext-0) (let ((e-1 (unbox e-5))) (let ((e-17 (vector-ref e-1 17))) (case (vector-ref e-17 0) ((4) (CoreC-45Binary-getSaveDefs arg-0 e-3 arg-2 arg-3 ext-0))(else (let ((act-25 (LibrariesC-45UtilsC-45Binary-initBinaryS (blodwen-toSignedInt 16384 63) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-25 (vector-ref act-25 1))) (vector 0 e-25))) (else (let ((e-25 (vector-ref act-25 1))) (let ((act-26 (let ((act-26 (CoreC-45Context-u--full_HasNames_GlobalDef (let ((e-54 (vector-ref arg-3 0))) e-54) e-1 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-26 (vector-ref act-26 1))) (vector 0 e-26))) (else (let ((e-26 (vector-ref act-26 1))) (CoreC-45TTC-u--toBuf_TTC_GlobalDef e-25 (CoreC-45Context-u--trimNS_StripNamespace_GlobalDef arg-0 e-26) ext-0))))))) (case (vector-ref act-26 0) ((0) (let ((e-26 (vector-ref act-26 1))) (vector 0 e-26))) (else (let ((act-27 (let ((act-27 (unbox e-25))) (vector 1 act-27)))) (case (vector-ref act-27 0) ((0) (let ((e-27 (vector-ref act-27 1))) (vector 0 e-27))) (else (let ((e-27 (vector-ref act-27 1))) (CoreC-45Binary-getSaveDefs arg-0 e-3 (cons (cons (CoreC-45Binary-n--9570-3616-u--trimName e-2 e-3 arg-3 arg-2 arg-0 (let ((e-47 (vector-ref e-1 1))) e-47)) e-27) arg-2) arg-3 ext-0)))))))))))))))))))))))))) +(define CoreC-45Binary-getNSas (lambda (arg-0) (let ((e-3 (cdr arg-0))) (let ((e-6 (car e-3))) (let ((e-7 (cdr e-3))) (let ((e-11 (cdr e-7))) (cons e-6 e-11))))))) +(define CoreC-45Binary-getImportHashes (lambda (arg-0 arg-1 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-1 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (let ((sc1 (PreludeC-45EqOrd-u--C-47C-61_Eq_String e-5 "TT2"))) (cond ((equal? sc1 1) (LibrariesC-45UtilsC-45Binary-corrupt (PreludeC-45TypesC-45String-C-43C-43 "TTC header in " (PreludeC-45TypesC-45String-C-43C-43 arg-0 (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45Show-u--show_Show_String e-5)))) ext-0)) (else (vector 1 0)))))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_WastefulInt arg-1 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (CoreC-45Binary-checkTTCVersion arg-0 e-7 (CoreC-45Binary-ttcVersion) ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((act-28 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-1 ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((act-29 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1 ext-0))) (case (vector-ref act-29 0) ((0) (let ((e-2 (vector-ref act-29 1))) (vector 0 e-2))) (else (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_Namespace arg-1457 arg-1460 eta-1)))) (lambda (arg-1461) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_Namespace arg-1461 eta-1)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1457 arg-1460 eta-1)))) (lambda (arg-1461) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1461 eta-1))))) arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_Namespace arg-1456 arg-1459 eta-1)))) (lambda (arg-1462) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_Namespace arg-1462 eta-1)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-1456 arg-1459 eta-1)))) (lambda (arg-1462) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1462 eta-1))))) arg-1461 eta-0)))) arg-1 ext-0))))))))))))))))))))))) +(define CoreC-45Binary-getHashes (lambda (arg-0 arg-1 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-1 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (let ((sc1 (PreludeC-45EqOrd-u--C-47C-61_Eq_String e-5 "TT2"))) (cond ((equal? sc1 1) (LibrariesC-45UtilsC-45Binary-corrupt (PreludeC-45TypesC-45String-C-43C-43 "TTC header in " (PreludeC-45TypesC-45String-C-43C-43 arg-0 (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45Show-u--show_Show_String e-5)))) ext-0)) (else (vector 1 0)))))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_WastefulInt arg-1 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (CoreC-45Binary-checkTTCVersion arg-0 e-7 (CoreC-45Binary-ttcVersion) ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((act-28 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-1 ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-28 1))) (let ((act-29 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-1 ext-0))) (case (vector-ref act-29 0) ((0) (let ((e-2 (vector-ref act-29 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref act-29 1))) (vector 1 (cons e-9 e-10)))))))))))))))))))))))))) +(define CoreC-45Binary-checkTTCVersion (lambda (arg-0 arg-1 arg-2 ext-0) (let ((sc0 (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-1 arg-2))) (cond ((equal? sc0 1) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 48 (vector 0 arg-0 arg-1 arg-2)) ext-0)) (else (vector 1 0)))))) +(define CoreC-45Binary-addTypeHint (lambda (arg-0 arg-1 arg-2 ext-0) (let ((e-2 (car arg-2))) (let ((e-3 (cdr arg-2))) (let ((e-6 (car e-3))) (let ((e-7 (cdr e-3))) (let ((act-24 (let ((act-24 (CoreC-45Context-getFullName arg-0 e-6 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-getFullName arg-0 e-2 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref act-25 1))) (CoreC-45ContextC-45Log-unverifiedLogC arg-0 "ttc.read" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda (eta-0) (vector 1 (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-5) (PreludeC-45TypesC-45String-C-43C-43 " for " (CoreC-45Name-u--show_Show_Name e-8))))) ext-0))))))))))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (CoreC-45Context-addHintFor arg-0 arg-1 e-2 e-6 e-7 1 ext-0)))))))))) +(define CoreC-45Binary-addGlobalDef (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((e-2 (car arg-4))) (let ((e-3 (cdr arg-4))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Context-lookupContextEntry e-2 (let ((e-0 (vector-ref e-5 0))) e-0)) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 ((PreludeC-45Types-maybe (lambda () (lambda (eta-0) (vector 1 '()))) (lambda () (lambda (u--p) (lambda (eta-0) (let ((act-26 (CoreC-45Context-decode (let ((e-0 (vector-ref e-5 0))) e-0) (Builtin-fst u--p) 0 (Builtin-snd u--p) eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-4 (vector-ref act-26 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (box e-7))))))))) e-6) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-4 (vector-ref act-26 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (let ((sc4 (CoreC-45Binary-n--9959-3958-u--completeDef e-2 e-3 arg-3 arg-2 arg-1 arg-0 e-7))) (cond ((equal? sc4 1) (vector 1 0)) (else (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-4 (vector-ref eta-0 1))) (vector 0 e-4))) (else (vector 1 0)))) (lambda (eta-0) (CoreC-45Context-addContextEntry arg-0 arg-2 e-2 e-3 eta-0)) ext-0)))))) (case (vector-ref act-27 0) ((0) (let ((e-4 (vector-ref act-27 1))) (vector 0 e-4))) (else (if (null? arg-3) (vector 1 0) (let ((e-1 (unbox arg-3))) (CoreC-45Context-addContextAlias arg-0 (CoreC-45Name-asName arg-1 e-1 e-2) e-2 ext-0)))))))))))))))))))))) +(define CoreC-45Binary-addAutoHint (lambda (arg-0 arg-1 ext-0) (let ((e-2 (car arg-1))) (let ((e-3 (cdr arg-1))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-toResolvedNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-0))))) e-2 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (set-box! arg-0 (let ((e-0 (vector-ref e-5 0))) (let ((e-1 (vector-ref e-5 1))) (let ((e-32 (vector-ref e-5 2))) (let ((e-31 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-30 (vector-ref e-5 5))) (let ((e-29 (vector-ref e-5 6))) (let ((e-7 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (let ((e-10 (vector-ref e-5 10))) (let ((e-11 (vector-ref e-5 11))) (let ((e-12 (vector-ref e-5 12))) (let ((e-13 (vector-ref e-5 13))) (let ((e-14 (vector-ref e-5 14))) (let ((e-15 (vector-ref e-5 15))) (let ((e-16 (vector-ref e-5 16))) (let ((e-17 (vector-ref e-5 17))) (let ((e-18 (vector-ref e-5 18))) (let ((e-19 (vector-ref e-5 19))) (let ((e-20 (vector-ref e-5 20))) (let ((e-21 (vector-ref e-5 21))) (let ((e-22 (vector-ref e-5 22))) (let ((e-23 (vector-ref e-5 23))) (let ((e-24 (vector-ref e-5 24))) (let ((e-25 (vector-ref e-5 25))) (let ((e-26 (vector-ref e-5 26))) (let ((e-27 (vector-ref e-5 27))) (let ((e-28 (vector-ref e-5 28))) (vector e-0 e-1 e-32 e-31 e-4 e-30 e-29 e-7 (LibrariesC-45DataC-45NameMap-insert e-6 e-3 e-8) e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27 e-28))))))))))))))))))))))))))))))))) (vector 1 act-26)))))))))))))) +(define CoreC-45UnifyState-case--caseC-32blockC-32inC-32dumpHole-9816 (lambda (arg-0 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 ext-0) (if (null? arg-12) (vector 1 0) (let ((e-2 (car arg-12))) (let ((e-3 (cdr arg-12))) (case (vector-ref e-2 0) ((9) (let ((e-4 (vector-ref e-2 1))) (let ((e-6 (vector-ref e-2 3))) (let ((act-24 (let ((act-24 (CoreC-45Context-getFullName arg-4 (vector 9 arg-2) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-7 (vector-ref act-24 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-normaliseHoles arg-4 '() arg-9 '() e-3 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-8 (vector-ref act-25 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-4 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-0))))) e-8 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-9 (vector-ref act-26 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref act-26 1))) (let ((act-27 (CoreC-45Normalise-normaliseHoles arg-4 '() arg-9 '() e-4 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (cond ((equal? arg-0 "") (let ((act-28 ((PreludeC-45IO-putStrLn (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-28 (arg-811 eta-0))) ((arg-812 act-28) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-51 (arg-814 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) (PreludeC-45TypesC-45String-C-43C-43 "LOG " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Nat arg-3) (PreludeC-45TypesC-45String-C-43C-43 ": " (PreludeC-45TypesC-45String-C-43C-43 "!" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-7) (PreludeC-45TypesC-45String-C-43C-43 " : " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-9) (PreludeC-45TypesC-45String-C-43C-43 "\u000a\u0009 = " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-10) "\u000a\u0009when")))))))))) ext-0))) (vector 1 act-28)))(else (let ((act-28 ((PreludeC-45IO-putStrLn (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-28 (arg-811 eta-0))) ((arg-812 act-28) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-51 (arg-814 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) (PreludeC-45TypesC-45String-C-43C-43 "LOG " (PreludeC-45TypesC-45String-C-43C-43 arg-0 (PreludeC-45TypesC-45String-C-43C-43 ":" (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Nat arg-3) (PreludeC-45TypesC-45String-C-43C-43 ": " (PreludeC-45TypesC-45String-C-43C-43 "!" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-7) (PreludeC-45TypesC-45String-C-43C-43 " : " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-9) (PreludeC-45TypesC-45String-C-43C-43 "\u000a\u0009 = " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-10) "\u000a\u0009when")))))))))))) ext-0))) (vector 1 act-28)))))))))))))))))))))) (case (vector-ref act-24 0) ((0) (let ((e-7 (vector-ref act-24 1))) (vector 0 e-7))) (else (CoreC-45Core-traverse_ (lambda (eta-0) (lambda (eta-1) (CoreC-45UnifyState-n--10830-9382-u--dumpConstraint arg-0 arg-2 arg-3 arg-4 arg-5 eta-0 eta-1))) e-6 ext-0))))))) ((7) (let ((e-8 (vector-ref e-2 2))) (let ((act-24 (CoreC-45Normalise-normaliseHoles arg-4 '() arg-9 '() e-3 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (cond ((equal? arg-0 "") (let ((act-25 ((PreludeC-45IO-putStrLn (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-25 (arg-811 eta-0))) ((arg-812 act-25) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-51 (arg-814 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) (PreludeC-45TypesC-45String-C-43C-43 "LOG " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Nat arg-3) (PreludeC-45TypesC-45String-C-43C-43 ": " (PreludeC-45TypesC-45String-C-43C-43 "?" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name (let ((e-1 (vector-ref arg-10 1))) e-1)) (PreludeC-45TypesC-45String-C-43C-43 " : " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-5) (let ((sc4 (let ((e-0 (car e-8))) e-0))) (cond ((equal? sc4 1) " (ImplBind)") (else (PreludeC-45TypesC-45String-C-43C-43 "" (let ((sc5 (let ((e-14 (vector-ref arg-10 14))) e-14))) (cond ((equal? sc5 1) " (Invertible)") (else ""))))))))))))))) ext-0))) (vector 1 act-25)))(else (let ((act-25 ((PreludeC-45IO-putStrLn (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-25 (arg-811 eta-0))) ((arg-812 act-25) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-51 (arg-814 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) (PreludeC-45TypesC-45String-C-43C-43 "LOG " (PreludeC-45TypesC-45String-C-43C-43 arg-0 (PreludeC-45TypesC-45String-C-43C-43 ":" (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Nat arg-3) (PreludeC-45TypesC-45String-C-43C-43 ": " (PreludeC-45TypesC-45String-C-43C-43 "?" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name (let ((e-1 (vector-ref arg-10 1))) e-1)) (PreludeC-45TypesC-45String-C-43C-43 " : " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-5) (let ((sc3 (let ((e-0 (car e-8))) e-0))) (cond ((equal? sc3 1) " (ImplBind)") (else (PreludeC-45TypesC-45String-C-43C-43 "" (let ((sc4 (let ((e-14 (vector-ref arg-10 14))) e-14))) (cond ((equal? sc4 1) " (Invertible)") (else ""))))))))))))))))) ext-0))) (vector 1 act-25)))))))))) ((8) (let ((act-24 (CoreC-45Normalise-normaliseHoles arg-4 '() arg-9 '() e-3 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-4 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-0))))) e-5 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref act-25 1))) (cond ((equal? arg-0 "") (let ((act-26 ((PreludeC-45IO-putStrLn (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-26 (arg-811 eta-0))) ((arg-812 act-26) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-51 (arg-814 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) (PreludeC-45TypesC-45String-C-43C-43 "LOG " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Nat arg-3) (PreludeC-45TypesC-45String-C-43C-43 ": " (PreludeC-45TypesC-45String-C-43C-43 "Search " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Int arg-2) (PreludeC-45TypesC-45String-C-43C-43 " : " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-6)))))))) ext-0))) (vector 1 act-26)))(else (let ((act-26 ((PreludeC-45IO-putStrLn (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-26 (arg-811 eta-0))) ((arg-812 act-26) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-51 (arg-814 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) (PreludeC-45TypesC-45String-C-43C-43 "LOG " (PreludeC-45TypesC-45String-C-43C-43 arg-0 (PreludeC-45TypesC-45String-C-43C-43 ":" (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Nat arg-3) (PreludeC-45TypesC-45String-C-43C-43 ": " (PreludeC-45TypesC-45String-C-43C-43 "Search " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Int arg-2) (PreludeC-45TypesC-45String-C-43C-43 " : " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-6)))))))))) ext-0))) (vector 1 act-26))))))))))))) ((1) (let ((act-24 (CoreC-45Normalise-normalise arg-4 '() arg-9 '() e-3 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-normalise arg-4 '() arg-9 '() (vector 1 (CoreC-45FC-emptyFC) (vector 1 ) (vector 9 arg-2)) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref act-25 1))) (CoreC-45ContextC-45Log-log arg-4 arg-0 (+ 1 (+ 1 (+ 1 (+ 1 0)))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Solved: " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Int arg-2) (PreludeC-45TypesC-45String-C-43C-43 " : " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-5) (PreludeC-45TypesC-45String-C-43C-43 " = " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-6))))))) ext-0)))))))))) ((10) (let ((act-24 (CoreC-45Normalise-normalise arg-4 '() arg-9 '() e-3 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (CoreC-45ContextC-45Log-log arg-4 arg-0 (+ 1 (+ 1 (+ 1 (+ 1 0)))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Bound: " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Int arg-2) (PreludeC-45TypesC-45String-C-43C-43 " : " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-5))))) ext-0)))))) ((11) (let ((act-24 (CoreC-45Normalise-normalise arg-4 '() arg-9 '() e-3 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (CoreC-45ContextC-45Log-log arg-4 arg-0 (+ 1 (+ 1 (+ 1 (+ 1 0)))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Delayed elaborator : " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-5))) ext-0))))))(else (vector 1 0)))))))) +(define CoreC-45UnifyState-case--dumpHoleC-44dumpConstraint-9405 (lambda (arg-0 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 ext-0) (if (null? arg-9) (vector 1 0) (let ((e-2 (unbox arg-9))) (case (vector-ref e-2 0) ((2) (cond ((equal? arg-0 "") (let ((act-24 ((PreludeC-45IO-putStrLn (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-24 (arg-811 eta-0))) ((arg-812 act-24) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-51 (arg-814 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) (PreludeC-45TypesC-45String-C-43C-43 "LOG " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Nat arg-3) (PreludeC-45TypesC-45String-C-43C-43 ": " "\u0009Resolved")))) ext-0))) (vector 1 act-24)))(else (let ((act-24 ((PreludeC-45IO-putStrLn (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-24 (arg-811 eta-0))) ((arg-812 act-24) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-51 (arg-814 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) (PreludeC-45TypesC-45String-C-43C-43 "LOG " (PreludeC-45TypesC-45String-C-43C-43 arg-0 (PreludeC-45TypesC-45String-C-43C-43 ":" (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Nat arg-3) (PreludeC-45TypesC-45String-C-43C-43 ": " "\u0009Resolved")))))) ext-0))) (vector 1 act-24))))) ((0) (let ((e-3 (vector-ref e-2 1))) (let ((e-5 (vector-ref e-2 3))) (let ((e-6 (vector-ref e-2 4))) (let ((e-7 (vector-ref e-2 5))) (let ((e-8 (vector-ref e-2 6))) (let ((act-24 (let ((act-24 (CoreC-45Normalise-u--quote_Quote_NF arg-4 e-3 arg-8 e-6 e-7 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-9 (vector-ref act-24 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-4 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-0))))) e-9 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Normalise-u--quote_Quote_NF arg-4 e-3 arg-8 e-6 e-8 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-11 (vector-ref act-26 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-26 1))) (let ((act-27 (CoreC-45Context-toFullNames arg-4 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-0))))) e-11 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-12 (vector-ref act-27 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref act-27 1))) (cond ((equal? arg-0 "") (let ((act-28 ((PreludeC-45IO-putStrLn (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-28 (arg-811 eta-0))) ((arg-812 act-28) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-51 (arg-814 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) (PreludeC-45TypesC-45String-C-43C-43 "LOG " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Nat arg-3) (PreludeC-45TypesC-45String-C-43C-43 ": " (PreludeC-45TypesC-45String-C-43C-43 "\u0009 " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 e-3 e-10) (PreludeC-45TypesC-45String-C-43C-43 " =?= " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 e-3 e-12)))))))) ext-0))) (vector 1 act-28)))(else (let ((act-28 ((PreludeC-45IO-putStrLn (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-28 (arg-811 eta-0))) ((arg-812 act-28) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-51 (arg-814 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) (PreludeC-45TypesC-45String-C-43C-43 "LOG " (PreludeC-45TypesC-45String-C-43C-43 arg-0 (PreludeC-45TypesC-45String-C-43C-43 ":" (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Nat arg-3) (PreludeC-45TypesC-45String-C-43C-43 ": " (PreludeC-45TypesC-45String-C-43C-43 "\u0009 " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 e-3 e-10) (PreludeC-45TypesC-45String-C-43C-43 " =?= " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 e-3 e-12)))))))))) ext-0))) (vector 1 act-28)))))))))))))))))))))) (case (vector-ref act-24 0) ((0) (let ((e-9 (vector-ref act-24 1))) (vector 0 e-9))) (else (let ((act-25 (CoreC-45Context-clearDefs arg-8 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Normalise-u--quote_Quote_NF arg-4 e-3 e-10 e-6 e-7 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-11 (vector-ref act-26 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-26 1))) (let ((act-27 (CoreC-45Context-toFullNames arg-4 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-0))))) e-11 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-12 (vector-ref act-27 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref act-27 1))) (let ((act-28 (CoreC-45Normalise-u--quote_Quote_NF arg-4 e-3 e-10 e-6 e-8 ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-13 (vector-ref act-28 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref act-28 1))) (let ((act-29 (CoreC-45Context-toFullNames arg-4 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-0))))) e-13 ext-0))) (case (vector-ref act-29 0) ((0) (let ((e-14 (vector-ref act-29 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref act-29 1))) (CoreC-45ContextC-45Log-log arg-4 arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "\u0009 from " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 e-3 e-12) (PreludeC-45TypesC-45String-C-43C-43 " =?= " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 e-3 e-14) (cond ((equal? e-5 1) "\u000a\u0009(lazy allowed)") (else ""))))))) ext-0)))))))))))))))))))))))))))))) (else (let ((e-9 (vector-ref e-2 1))) (let ((e-12 (vector-ref e-2 4))) (let ((e-13 (vector-ref e-2 5))) (cond ((equal? arg-0 "") (let ((act-24 ((PreludeC-45IO-putStrLn (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-24 (arg-811 eta-0))) ((arg-812 act-24) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-51 (arg-814 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) (PreludeC-45TypesC-45String-C-43C-43 "LOG " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Nat arg-3) (PreludeC-45TypesC-45String-C-43C-43 ": " (PreludeC-45TypesC-45String-C-43C-43 "\u0009\u0009" (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45Value-u--show_Show_C-40NFC-32C-36freeC-41 e-9 u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Value-u--showPrec_Show_C-40NFC-32C-36freeC-41 e-9 u--d u--x)))) e-12) (PreludeC-45TypesC-45String-C-43C-43 " =?= " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45Value-u--show_Show_C-40NFC-32C-36freeC-41 e-9 u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Value-u--showPrec_Show_C-40NFC-32C-36freeC-41 e-9 u--d u--x)))) e-13)))))))) ext-0))) (vector 1 act-24)))(else (let ((act-24 ((PreludeC-45IO-putStrLn (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-24 (arg-811 eta-0))) ((arg-812 act-24) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-51 (arg-814 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) (PreludeC-45TypesC-45String-C-43C-43 "LOG " (PreludeC-45TypesC-45String-C-43C-43 arg-0 (PreludeC-45TypesC-45String-C-43C-43 ":" (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Nat arg-3) (PreludeC-45TypesC-45String-C-43C-43 ": " (PreludeC-45TypesC-45String-C-43C-43 "\u0009\u0009" (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45Value-u--show_Show_C-40NFC-32C-36freeC-41 e-9 u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Value-u--showPrec_Show_C-40NFC-32C-36freeC-41 e-9 u--d u--x)))) e-12) (PreludeC-45TypesC-45String-C-43C-43 " =?= " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45Value-u--show_Show_C-40NFC-32C-36freeC-41 e-9 u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Value-u--showPrec_Show_C-40NFC-32C-36freeC-41 e-9 u--d u--x)))) e-13)))))))))) ext-0))) (vector 1 act-24))))))))))))) +(define CoreC-45UnifyState-case--caseC-32blockC-32inC-32checkValidHole-8571 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 ext-0) (case (vector-ref arg-10 0) ((8) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-lookupTyExact arg-2 (let ((e-32 (vector-ref e-5 0))) e-32) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-3 (vector-ref act-25 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref act-25 1))) (if (null? e-6) (vector 1 0) (let ((e-3 (unbox e-6))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 29 '() arg-1 '() e-3) ext-0)))))))))))) ((9) (let ((e-5 (vector-ref arg-10 3))) (if (null? e-5) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (CoreC-45Context-getFullName arg-5 eta-0 eta-1))) (LibrariesC-45DataC-45NameMap-keys (CoreC-45TT-getRefs (vector 9 -1) (let ((e-2 (vector-ref arg-8 2))) e-2))) '() ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-24 1))) (CoreC-45Core-traverse_ (lambda (eta-0) (lambda (eta-1) (CoreC-45UnifyState-n--9818-8502-u--checkRef arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 eta-0 eta-1))) e-6 ext-0))))) (let ((e-7 (car e-5))) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-24 1))) (let ((sc3 (LibrariesC-45DataC-45IntMap-lookup e-7 (let ((e-16 (vector-ref e-6 4))) e-16)))) (if (null? sc3) (vector 1 0) (let ((e-1 (unbox sc3))) (case (vector-ref e-1 0) ((0) (let ((e-0 (vector-ref e-1 1))) (let ((e-12 (vector-ref e-1 2))) (let ((e-11 (vector-ref e-1 4))) (let ((e-10 (vector-ref e-1 5))) (let ((e-9 (vector-ref e-1 6))) (let ((act-25 (let ((act-25 (set-box! arg-4 (let ((e-24 (vector-ref e-6 0))) (let ((e-22 (vector-ref e-6 2))) (let ((e-21 (vector-ref e-6 3))) (let ((e-20 (vector-ref e-6 4))) (let ((e-19 (vector-ref e-6 5))) (let ((e-18 (vector-ref e-6 6))) (let ((e-17 (vector-ref e-6 7))) (let ((e-16 (vector-ref e-6 8))) (let ((e-15 (vector-ref e-6 9))) (let ((e-14 (vector-ref e-6 10))) (let ((e-13 (vector-ref e-6 11))) (vector e-24 (LibrariesC-45DataC-45IntMap-empty) e-22 e-21 e-20 e-19 e-18 e-17 e-16 e-15 e-14 e-13))))))))))))))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-13 (vector-ref act-25 1))) (vector 0 e-13))) (else (let ((act-26 (CoreC-45Context-clearDefs arg-6 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-14 (vector-ref act-26 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref act-26 1))) (let ((act-27 (CoreC-45Normalise-u--quote_Quote_NF arg-5 e-0 e-14 e-11 e-10 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-15 (vector-ref act-27 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref act-27 1))) (let ((act-28 (CoreC-45Normalise-u--quote_Quote_NF arg-5 e-0 e-14 e-11 e-9 ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-16 (vector-ref act-28 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref act-28 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 2 e-0 e-12 e-11 e-15 e-16) ext-0)))))))))))))))))))))) ((1) (let ((e-13 (vector-ref e-1 1))) (let ((e-12 (vector-ref e-1 2))) (let ((e-11 (vector-ref e-1 3))) (let ((e-9 (vector-ref e-1 4))) (let ((e-10 (vector-ref e-1 5))) (if (null? e-9) (vector 1 0) (let ((e-15 (car e-9))) (if (null? e-10) (vector 1 0) (let ((e-17 (car e-10))) (let ((act-25 (let ((act-25 (set-box! arg-4 (let ((e-0 (vector-ref e-6 0))) (let ((e-2 (vector-ref e-6 2))) (let ((e-26 (vector-ref e-6 3))) (let ((e-25 (vector-ref e-6 4))) (let ((e-24 (vector-ref e-6 5))) (let ((e-23 (vector-ref e-6 6))) (let ((e-22 (vector-ref e-6 7))) (let ((e-21 (vector-ref e-6 8))) (let ((e-20 (vector-ref e-6 9))) (let ((e-19 (vector-ref e-6 10))) (let ((e-18 (vector-ref e-6 11))) (vector e-0 (LibrariesC-45DataC-45IntMap-empty) e-2 e-26 e-25 e-24 e-23 e-22 e-21 e-20 e-19 e-18))))))))))))))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45Context-clearDefs arg-6 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-19 (vector-ref act-26 1))) (let ((act-27 (CoreC-45Normalise-u--quote_Quote_NF arg-5 e-13 e-19 e-11 e-15 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-20 (vector-ref act-27 1))) (let ((act-28 (CoreC-45Normalise-u--quote_Quote_NF arg-5 e-13 e-19 e-11 e-17 ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((e-21 (vector-ref act-28 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 2 e-13 e-12 e-11 e-20 e-21) ext-0))))))))))))))))))))))))))(else (vector 1 0))))))))))))))(else (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (CoreC-45Context-getFullName arg-5 eta-0 eta-1))) (LibrariesC-45DataC-45NameMap-keys (CoreC-45TT-getRefs (vector 9 -1) (let ((e-2 (vector-ref arg-8 2))) e-2))) '() ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (CoreC-45Core-traverse_ (lambda (eta-0) (lambda (eta-1) (CoreC-45UnifyState-n--9818-8502-u--checkRef arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 eta-0 eta-1))) e-5 ext-0))))))))) +(define CoreC-45UnifyState-n--10613-9171-u--nameEq (lambda (arg-0 arg-1 arg-2 arg-3 arg-6 arg-7) (let ((e-3 (cdr arg-6))) (let ((e-7 (cdr e-3))) (let ((e-11 (cdr arg-7))) (let ((e-15 (cdr e-11))) (CoreC-45Name-u--C-61C-61_Eq_Name e-7 e-15))))))) +(define CoreC-45UnifyState-n--9375-8091-u--envArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((u--args (DataC-45List-reverse (CoreC-45UnifyState-mkConstantAppArgs arg-0 0 arg-5 arg-3 '())))) u--args))) +(define CoreC-45UnifyState-n--9284-8002-u--envArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((u--args (DataC-45List-reverse (CoreC-45UnifyState-mkConstantAppArgs arg-0 0 arg-7 arg-3 '())))) u--args))) +(define CoreC-45UnifyState-n--9168-7883-u--envArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((u--args (DataC-45List-reverse (CoreC-45UnifyState-mkConstantAppArgs arg-1 1 arg-6 arg-4 '())))) u--args))) +(define CoreC-45UnifyState-n--8880-7626-u--envArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((u--args (DataC-45List-reverse (CoreC-45UnifyState-mkConstantAppArgs arg-3 arg-0 arg-8 arg-6 '())))) u--args))) +(define CoreC-45UnifyState-n--10830-9382-u--dumpConstraint (lambda (arg-0 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (let ((act-25 (unbox arg-4))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (CoreC-45UnifyState-case--dumpHoleC-44dumpConstraint-9405 arg-0 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-6 (LibrariesC-45DataC-45IntMap-lookup arg-6 (let ((e-4 (vector-ref e-5 4))) e-4)) ext-0))))))))))) +(define CoreC-45UnifyState-n--9818-8502-u--checkRef (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (case (vector-ref arg-6 0) ((3) (let ((e-0 (vector-ref arg-6 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-1 (PreludeC-45TypesC-45String-C-43C-43 "Hole cannot depend on an unbound implicit " (CoreC-45Name-u--show_Show_Name e-0))) ext-0)))(else (vector 1 0))))) +(define CoreC-45UnifyState-tryUnify (lambda (arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (CoreC-45UnifyState-tryErrorUnify arg-1 arg-2 arg-3 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (case (vector-ref e-5 0) ((1) (let ((e-2 (vector-ref e-5 1))) (vector 1 e-2))) (else (arg-4 ext-0))))))))) +(define CoreC-45UnifyState-tryErrorUnify (lambda (arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-branch arg-1 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (CoreC-45Core-u--catch_Catchable_Core_Error (lambda (eta-0) (let ((act-26 (arg-3 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (CoreC-45Context-commit arg-1 eta-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (vector 1 (vector 1 e-7)))))))))) (lambda (u--err) (lambda (eta-0) (let ((act-26 (let ((act-26 (set-box! arg-2 e-5))) (vector 1 act-26)))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((act-27 (let ((act-27 (unbox arg-1))) (vector 1 act-27)))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (let ((act-28 (let ((act-28 (set-box! arg-1 (let ((e-0 (vector-ref e-6 0))) (let ((e-1 (vector-ref e-6 1))) (let ((e-2 (vector-ref e-6 2))) (let ((e-3 (vector-ref e-6 3))) (let ((e-4 (vector-ref e-6 4))) (let ((e-32 (vector-ref e-6 5))) (let ((e-31 (vector-ref e-6 6))) (let ((e-30 (vector-ref e-6 7))) (let ((e-29 (vector-ref e-6 8))) (let ((e-9 (vector-ref e-6 9))) (let ((e-10 (vector-ref e-6 10))) (let ((e-11 (vector-ref e-6 11))) (let ((e-12 (vector-ref e-6 12))) (let ((e-13 (vector-ref e-6 13))) (let ((e-14 (vector-ref e-6 14))) (let ((e-15 (vector-ref e-6 15))) (let ((e-16 (vector-ref e-6 16))) (let ((e-17 (vector-ref e-6 17))) (let ((e-18 (vector-ref e-6 18))) (let ((e-19 (vector-ref e-6 19))) (let ((e-20 (vector-ref e-6 20))) (let ((e-21 (vector-ref e-6 21))) (let ((e-22 (vector-ref e-6 22))) (let ((e-23 (vector-ref e-6 23))) (let ((e-24 (vector-ref e-6 24))) (let ((e-25 (vector-ref e-6 25))) (let ((e-27 (vector-ref e-6 27))) (let ((e-28 (vector-ref e-6 28))) (vector e-0 e-1 e-2 e-3 e-4 e-32 e-31 e-30 e-29 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 (let ((e-35 (vector-ref e-8 26))) e-35) e-27 e-28)))))))))))))))))))))))))))))))) (vector 1 act-28)))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (vector 1 (vector 0 u--err)))))))))))))) ext-0))))))))))) +(define CoreC-45UnifyState-saveHoles (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (let ((act-25 (set-box! arg-0 (let ((e-0 (vector-ref e-5 0))) (let ((e-1 (vector-ref e-5 1))) (let ((e-3 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-12 (vector-ref e-5 5))) (let ((e-6 (vector-ref e-5 6))) (let ((e-7 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (let ((e-10 (vector-ref e-5 10))) (let ((e-11 (vector-ref e-5 11))) (vector e-0 e-1 (LibrariesC-45DataC-45IntMap-empty) e-3 e-4 e-12 e-6 e-7 e-8 e-9 e-10 e-11))))))))))))))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (vector 1 (let ((e-2 (vector-ref e-5 2))) e-2))))))))))) +(define CoreC-45UnifyState-restoreHoles (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (set-box! arg-0 (let ((e-0 (vector-ref e-5 0))) (let ((e-1 (vector-ref e-5 1))) (let ((e-3 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-12 (vector-ref e-5 5))) (let ((e-6 (vector-ref e-5 6))) (let ((e-7 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (let ((e-10 (vector-ref e-5 10))) (let ((e-11 (vector-ref e-5 11))) (vector e-0 e-1 arg-1 e-3 e-4 e-12 e-6 e-7 e-8 e-9 e-10 e-11))))))))))))))) (vector 1 act-25)))))))) +(define CoreC-45UnifyState-resetNextVar (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (set-box! arg-0 (let ((e-0 (vector-ref e-5 0))) (let ((e-1 (vector-ref e-5 1))) (let ((e-2 (vector-ref e-5 2))) (let ((e-3 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-12 (vector-ref e-5 5))) (let ((e-6 (vector-ref e-5 6))) (let ((e-7 (vector-ref e-5 7))) (let ((e-9 (vector-ref e-5 9))) (let ((e-10 (vector-ref e-5 10))) (let ((e-11 (vector-ref e-5 11))) (vector e-0 e-1 e-2 e-3 e-4 e-12 e-6 e-7 0 e-9 e-10 e-11))))))))))))))) (vector 1 act-25)))))))) +(define CoreC-45UnifyState-removeNoSolve (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (set-box! arg-0 (let ((e-0 (vector-ref e-5 0))) (let ((e-1 (vector-ref e-5 1))) (let ((e-2 (vector-ref e-5 2))) (let ((e-3 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-12 (vector-ref e-5 5))) (let ((e-6 (vector-ref e-5 6))) (let ((e-7 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (let ((e-10 (vector-ref e-5 10))) (let ((e-11 (vector-ref e-5 11))) (vector e-0 e-1 e-2 e-3 e-4 (LibrariesC-45DataC-45IntMap-delete arg-1 e-12) e-6 e-7 e-8 e-9 e-10 e-11)))))))))))))))) (vector 1 act-25)))))))) +(define CoreC-45UnifyState-removeHoleName (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((sc1 (CoreC-45Context-getNameID arg-2 (let ((e-0 (vector-ref e-5 0))) e-0)))) (if (null? sc1) (vector 1 0) (let ((e-1 (unbox sc1))) (CoreC-45UnifyState-removeHole arg-1 e-1 ext-0)))))))))) +(define CoreC-45UnifyState-removeHole (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (set-box! arg-0 (let ((e-0 (vector-ref e-5 0))) (let ((e-1 (vector-ref e-5 1))) (let ((e-2 (vector-ref e-5 2))) (let ((e-3 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-12 (vector-ref e-5 5))) (let ((e-6 (vector-ref e-5 6))) (let ((e-7 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (let ((e-10 (vector-ref e-5 10))) (let ((e-11 (vector-ref e-5 11))) (vector (LibrariesC-45DataC-45IntMap-delete arg-1 e-0) e-1 (LibrariesC-45DataC-45IntMap-delete arg-1 e-2) (LibrariesC-45DataC-45IntMap-delete arg-1 e-3) e-4 e-12 e-6 e-7 e-8 e-9 e-10 e-11)))))))))))))))) (vector 1 act-25)))))))) +(define CoreC-45UnifyState-removeGuess (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (set-box! arg-0 (let ((e-0 (vector-ref e-5 0))) (let ((e-1 (vector-ref e-5 1))) (let ((e-2 (vector-ref e-5 2))) (let ((e-3 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-12 (vector-ref e-5 5))) (let ((e-6 (vector-ref e-5 6))) (let ((e-7 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (let ((e-10 (vector-ref e-5 10))) (let ((e-11 (vector-ref e-5 11))) (vector e-0 (LibrariesC-45DataC-45IntMap-delete arg-1 e-1) e-2 e-3 e-4 e-12 e-6 e-7 e-8 e-9 e-10 e-11)))))))))))))))) (vector 1 act-25)))))))) +(define CoreC-45UnifyState-newSearch (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((u--hty (CoreC-45Env-abstractEnvType arg-0 arg-3 arg-7 arg-9))) (let ((u--hole (CoreC-45Context-newDef arg-3 arg-8 arg-4 '() u--hty 2 (vector 8 arg-4 arg-5 arg-6)))) (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-log arg-1 "unify.search" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Adding new search " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC arg-3) (PreludeC-45TypesC-45String-C-43C-43 " " (CoreC-45Name-u--show_Show_Name arg-8))))) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45Normalise-logTermNF '() arg-1 "unify.search" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "New search type") '() u--hty eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45Context-addDef arg-1 arg-8 u--hole eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (CoreC-45UnifyState-addGuessName arg-2 arg-3 arg-8 e-7 eta-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (vector 1 (cons e-7 (vector 2 arg-3 arg-8 e-7 (CoreC-45UnifyState-n--9284-8002-u--envArgs arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1)))))))))))))))))))))) +(define CoreC-45UnifyState-newMetaLets (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((u--hty (cond ((equal? arg-10 1) (CoreC-45Env-abstractFullEnvType arg-0 arg-3 arg-5 arg-7)) (else (CoreC-45Env-abstractEnvType arg-0 arg-3 arg-5 arg-7))))) (let ((u--hole (let ((sc0 (CoreC-45Context-newDef arg-3 arg-6 arg-4 '() u--hty 2 arg-8))) (let ((e-0 (vector-ref sc0 0))) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((e-6 (vector-ref sc0 6))) (let ((e-7 (vector-ref sc0 7))) (let ((e-8 (vector-ref sc0 8))) (let ((e-9 (vector-ref sc0 9))) (let ((e-10 (vector-ref sc0 10))) (let ((e-11 (vector-ref sc0 11))) (let ((e-12 (vector-ref sc0 12))) (let ((e-13 (vector-ref sc0 13))) (let ((e-14 (vector-ref sc0 14))) (let ((e-16 (vector-ref sc0 16))) (let ((e-17 (vector-ref sc0 17))) (let ((e-18 (vector-ref sc0 18))) (let ((e-19 (vector-ref sc0 19))) (let ((e-20 (vector-ref sc0 20))) (vector e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 arg-9 e-16 e-17 e-18 e-19 e-20)))))))))))))))))))))))) (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-log arg-1 "unify.meta" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Adding new meta " (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (u--x) (CoreC-45Name-u--show_Show_Name u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Name-u--showPrec_Show_Name u--d u--x)))) (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (CoreC-45FC-u--show_Show_FC x-0)) (lambda (u--d) (lambda (x-0) (CoreC-45FC-u--showPrec_Show_FC u--d x-0)))) (cons (lambda (x-0) (AlgebraC-45ZeroOneOmega-u--show_Show_ZeroOneOmega x-0)) (lambda (u--d) (lambda (x-0) (AlgebraC-45ZeroOneOmega-u--showPrec_Show_ZeroOneOmega u--d x-0))))) u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (CoreC-45FC-u--show_Show_FC x-0)) (lambda (d-0) (lambda (x-0) (CoreC-45FC-u--showPrec_Show_FC d-0 x-0)))) (cons (lambda (x-0) (AlgebraC-45ZeroOneOmega-u--show_Show_ZeroOneOmega x-0)) (lambda (d-0) (lambda (x-0) (AlgebraC-45ZeroOneOmega-u--showPrec_Show_ZeroOneOmega d-0 x-0))))) u--d u--x))))) (cons arg-6 (cons arg-3 arg-4))))) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45ContextC-45Log-logTerm '() arg-1 "unify.meta" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "New meta type " (CoreC-45Name-u--show_Show_Name arg-6))) u--hty eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 (let ((act-26 (unbox arg-1))) (vector 1 act-26)))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((act-27 (CoreC-45Context-addDef arg-1 arg-6 u--hole eta-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (let ((act-28 (CoreC-45UnifyState-addHoleName arg-2 arg-3 arg-6 e-8 eta-0))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (vector 1 (cons e-8 (vector 2 arg-3 arg-6 e-8 (CoreC-45UnifyState-n--8880-7626-u--envArgs arg-10 arg-9 arg-8 arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1))))))))))))))))))))))))) +(define CoreC-45UnifyState-newMeta (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (CoreC-45UnifyState-newMetaLets arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 0))) +(define CoreC-45UnifyState-newDelayed (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((u--hty (CoreC-45Env-abstractEnvType arg-0 arg-3 arg-5 arg-7))) (let ((u--hole (CoreC-45Context-newDef arg-3 arg-6 arg-4 '() u--hty 2 (vector 11 )))) (lambda (eta-0) (let ((act-24 (CoreC-45Context-addDef arg-2 arg-6 u--hole eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45ContextC-45Log-log arg-2 "unify.delay" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Added delayed elaborator " (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (u--x) (CoreC-45Name-u--show_Show_Name u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Name-u--showPrec_Show_Name u--d u--x)))) (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_Int u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_Int u--d u--x))))) (cons arg-6 e-5)))) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45UnifyState-addHoleName arg-1 arg-3 arg-6 e-5 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (vector 1 (cons e-5 (vector 2 arg-3 arg-6 e-5 (CoreC-45UnifyState-n--9375-8091-u--envArgs arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1))))))))))))))))))) +(define CoreC-45UnifyState-newConstant (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((u--def (CoreC-45UnifyState-mkConstant arg-0 arg-3 arg-5 arg-6))) (let ((u--defty (CoreC-45Env-abstractFullEnvType arg-0 arg-3 arg-5 arg-7))) (lambda (eta-0) (let ((act-24 (CoreC-45UnifyState-genName arg-2 arg-1 "postpone" eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((u--guess (CoreC-45Context-newDef arg-3 e-5 arg-4 '() u--defty 2 (vector 9 u--def (CoreC-45Env-length arg-5) arg-8)))) (let ((act-25 (CoreC-45ContextC-45Log-log arg-2 "unify.constant" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Adding new constant " (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (u--x) (CoreC-45Name-u--show_Show_Name u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Name-u--showPrec_Show_Name u--d u--x)))) (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (CoreC-45FC-u--show_Show_FC x-0)) (lambda (u--d) (lambda (x-0) (CoreC-45FC-u--showPrec_Show_FC u--d x-0)))) (cons (lambda (x-0) (AlgebraC-45ZeroOneOmega-u--show_Show_ZeroOneOmega x-0)) (lambda (u--d) (lambda (x-0) (AlgebraC-45ZeroOneOmega-u--showPrec_Show_ZeroOneOmega u--d x-0))))) u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (CoreC-45FC-u--show_Show_FC x-0)) (lambda (d-0) (lambda (x-0) (CoreC-45FC-u--showPrec_Show_FC d-0 x-0)))) (cons (lambda (x-0) (AlgebraC-45ZeroOneOmega-u--show_Show_ZeroOneOmega x-0)) (lambda (d-0) (lambda (x-0) (AlgebraC-45ZeroOneOmega-u--showPrec_Show_ZeroOneOmega d-0 x-0))))) u--d u--x))))) (cons e-5 (cons arg-3 arg-4))))) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45ContextC-45Log-logTerm '() arg-2 "unify.constant" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "New constant type " (CoreC-45Name-u--show_Show_Name e-5))) u--defty eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((act-27 (CoreC-45Context-addDef arg-2 e-5 u--guess eta-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (let ((act-28 (CoreC-45UnifyState-addGuessName arg-1 arg-3 e-5 e-8 eta-0))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (vector 1 (vector 2 arg-3 e-5 e-8 (CoreC-45UnifyState-n--9168-7883-u--envArgs arg-8 arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1)))))))))))))))))))))))))) +(define CoreC-45UnifyState-mkConstantAppArgs (lambda (arg-1 arg-2 arg-3 arg-4 arg-5) (if (null? arg-1) '() (let ((e-2 (car arg-1))) (let ((e-3 (cdr arg-1))) (let ((e-8 (car arg-4))) (let ((e-9 (cdr arg-4))) (let ((u--rec (CoreC-45UnifyState-mkConstantAppArgs e-3 arg-2 arg-3 e-9 (PreludeC-45TypesC-45List-C-43C-43 arg-5 (cons e-2 '()))))) (let ((sc2 (cond ((equal? arg-2 1) 1) (else (let ((sc4 (CoreC-45TT-isLet e-8))) (cond ((equal? sc4 1) 0) (else 1))))))) (cond ((equal? sc2 1) (cons (vector 0 arg-3 (box (CoreC-45TT-isLet e-8)) (PreludeC-45TypesC-45List-length arg-5)) u--rec)) (else u--rec))))))))))) +(define CoreC-45UnifyState-mkConstant (lambda (arg-0 arg-1 arg-2 arg-3) (if (null? arg-0) arg-3 (let ((e-2 (car arg-0))) (let ((e-3 (cdr arg-0))) (let ((e-8 (car arg-2))) (let ((e-9 (cdr arg-2))) (let ((u--ty (CoreC-45TT-binderType e-8))) (CoreC-45UnifyState-mkConstant e-3 arg-1 e-9 (vector 3 arg-1 e-2 (vector 0 arg-1 (CoreC-45TT-multiplicity e-8) (vector 1 ) u--ty) arg-3)))))))))) +(define CoreC-45UnifyState-isCurrentHole (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (PreludeC-45Types-maybe (lambda () 0) (lambda () (lambda (eta-0) 1)) (LibrariesC-45DataC-45IntMap-lookup arg-1 (let ((e-2 (vector-ref e-5 2))) e-2)))))))))) +(define CoreC-45UnifyState-initUState (lambda () (vector (LibrariesC-45DataC-45IntMap-empty) (LibrariesC-45DataC-45IntMap-empty) (LibrariesC-45DataC-45IntMap-empty) (LibrariesC-45DataC-45IntMap-empty) (LibrariesC-45DataC-45IntMap-empty) (LibrariesC-45DataC-45IntMap-empty) '() '() 0 0 '() 0))) +(define CoreC-45UnifyState-handleUnify (lambda (arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (CoreC-45UnifyState-tryErrorUnify arg-1 arg-2 arg-3 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (case (vector-ref e-5 0) ((1) (let ((e-2 (vector-ref e-5 1))) (vector 1 e-2))) (else (let ((e-6 (vector-ref e-5 1))) ((arg-4 e-6) ext-0)))))))))) +(define CoreC-45UnifyState-getHoles (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (let ((e-0 (vector-ref e-5 0))) e-0)))))))) +(define CoreC-45UnifyState-getGuesses (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (let ((e-1 (vector-ref e-5 1))) e-1)))))))) +(define CoreC-45UnifyState-getCurrentHoles (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (let ((e-2 (vector-ref e-5 2))) e-2)))))))) +(define CoreC-45UnifyState-genWithName (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (let ((act-25 (set-box! arg-1 (let ((e-0 (vector-ref e-5 0))) (let ((e-1 (vector-ref e-5 1))) (let ((e-2 (vector-ref e-5 2))) (let ((e-3 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-12 (vector-ref e-5 5))) (let ((e-6 (vector-ref e-5 6))) (let ((e-7 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (let ((e-10 (vector-ref e-5 10))) (let ((e-11 (vector-ref e-5 11))) (vector e-0 e-1 e-2 e-3 e-4 e-12 e-6 e-7 (bs+ e-8 1 63) e-9 e-10 e-11)))))))))))))))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (CoreC-45Context-inCurrentNS arg-0 (vector 8 arg-2 (let ((e-8 (vector-ref e-5 8))) e-8)) ext-0)))))))))) +(define CoreC-45UnifyState-genVarName (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (let ((act-25 (set-box! arg-1 (let ((e-0 (vector-ref e-5 0))) (let ((e-1 (vector-ref e-5 1))) (let ((e-2 (vector-ref e-5 2))) (let ((e-3 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-12 (vector-ref e-5 5))) (let ((e-6 (vector-ref e-5 6))) (let ((e-7 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (let ((e-10 (vector-ref e-5 10))) (let ((e-11 (vector-ref e-5 11))) (vector e-0 e-1 e-2 e-3 e-4 e-12 e-6 e-7 (bs+ e-8 1 63) e-9 e-10 e-11)))))))))))))))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (vector 1 (vector 2 arg-2 (let ((e-8 (vector-ref e-5 8))) e-8)))))))))))) +(define CoreC-45UnifyState-genName (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (let ((act-25 (set-box! arg-1 (let ((e-0 (vector-ref e-5 0))) (let ((e-1 (vector-ref e-5 1))) (let ((e-2 (vector-ref e-5 2))) (let ((e-3 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-12 (vector-ref e-5 5))) (let ((e-6 (vector-ref e-5 6))) (let ((e-7 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (let ((e-10 (vector-ref e-5 10))) (let ((e-11 (vector-ref e-5 11))) (vector e-0 e-1 e-2 e-3 e-4 e-12 e-6 e-7 (bs+ e-8 1 63) e-9 e-10 e-11)))))))))))))))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45Context-inCurrentNS arg-0 (vector 2 arg-2 (let ((e-8 (vector-ref e-5 8))) e-8)) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 e-7)))))))))))))) +(define CoreC-45UnifyState-genMVName (lambda (arg-0 arg-1 arg-2 ext-0) (case (vector-ref arg-2 0) ((1) (let ((e-0 (vector-ref arg-2 1))) (CoreC-45UnifyState-genName arg-0 arg-1 e-0 ext-0))) ((2) (let ((e-1 (vector-ref arg-2 1))) (CoreC-45UnifyState-genName arg-0 arg-1 e-1 ext-0))) ((5) (let ((e-3 (vector-ref arg-2 1))) (CoreC-45UnifyState-genName arg-0 arg-1 e-3 ext-0)))(else (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (let ((act-25 (set-box! arg-1 (let ((e-0 (vector-ref e-5 0))) (let ((e-1 (vector-ref e-5 1))) (let ((e-2 (vector-ref e-5 2))) (let ((e-3 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-12 (vector-ref e-5 5))) (let ((e-6 (vector-ref e-5 6))) (let ((e-7 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (let ((e-10 (vector-ref e-5 10))) (let ((e-11 (vector-ref e-5 11))) (vector e-0 e-1 e-2 e-3 e-4 e-12 e-6 e-7 (bs+ e-8 1 63) e-9 e-10 e-11)))))))))))))))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45Context-inCurrentNS arg-0 (vector 2 (CoreC-45Name-u--show_Show_Name arg-2) (let ((e-8 (vector-ref e-5 8))) e-8)) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 e-7)))))))))))))))) +(define CoreC-45UnifyState-genCaseName (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (let ((act-25 (set-box! arg-1 (let ((e-0 (vector-ref e-5 0))) (let ((e-1 (vector-ref e-5 1))) (let ((e-2 (vector-ref e-5 2))) (let ((e-3 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-12 (vector-ref e-5 5))) (let ((e-6 (vector-ref e-5 6))) (let ((e-7 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (let ((e-10 (vector-ref e-5 10))) (let ((e-11 (vector-ref e-5 11))) (vector e-0 e-1 e-2 e-3 e-4 e-12 e-6 e-7 (bs+ e-8 1 63) e-9 e-10 e-11)))))))))))))))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (CoreC-45Context-inCurrentNS arg-0 (vector 7 arg-2 (let ((e-8 (vector-ref e-5 8))) e-8)) ext-0)))))))))) +(define CoreC-45UnifyState-dumpHole (lambda (arg-0 arg-1 arg-2 arg-4 arg-5 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Context-getSession arg-1 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (let ((act-27 (unbox arg-1))) (vector 1 act-27)))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (let ((act-28 ((CoreC-45Context-lookupCtxtExact (vector 9 arg-5) (let ((e-0 (vector-ref e-8 0))) e-0)) ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-28 1))) (if (null? e-9) (vector 1 0) (let ((e-2 (unbox e-9))) (let ((bind-0 (box e-2))) (CoreC-45UnifyState-case--caseC-32blockC-32inC-32dumpHole-9816 arg-2 arg-5 arg-4 arg-1 arg-0 e-5 e-6 e-7 e-8 e-2 bind-0 (cons (let ((e-17 (vector-ref e-2 17))) e-17) (let ((e-26 (vector-ref e-2 2))) e-26)) ext-0)))))))))))))))))))))))))) +(define CoreC-45UnifyState-dumpConstraints (lambda (arg-0 arg-1 arg-2 arg-4 arg-5 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45Context-getSession arg-1 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((act-27 (CoreC-45ContextC-45Log-unverifiedLogging arg-1 arg-2 arg-4 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (cond ((equal? e-8 1) (((let ((u--hs (PreludeC-45TypesC-45List-C-43C-43 (LibrariesC-45DataC-45IntMap-toList (let ((e-1 (vector-ref e-5 1))) e-1)) (LibrariesC-45DataC-45IntMap-toList (cond ((equal? arg-5 1) (let ((e-0 (vector-ref e-5 0))) e-0)) (else (let ((e-2 (vector-ref e-5 2))) e-2))))))) (lambda () (lambda (clam-0) (let ((sc5 (DataC-45List-isNil u--hs))) (cond ((equal? sc5 1) (vector 1 0)) (else (let ((act-28 (cond ((equal? arg-2 "") (let ((act-28 ((PreludeC-45IO-putStrLn (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-28 (arg-811 eta-0))) ((arg-812 act-28) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-51 (arg-814 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) (PreludeC-45TypesC-45String-C-43C-43 "LOG " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Nat arg-4) (PreludeC-45TypesC-45String-C-43C-43 ": " "--- CONSTRAINTS AND HOLES ---")))) clam-0))) (vector 1 act-28)))(else (let ((act-28 ((PreludeC-45IO-putStrLn (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-28 (arg-811 eta-0))) ((arg-812 act-28) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-51 (arg-814 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) (PreludeC-45TypesC-45String-C-43C-43 "LOG " (PreludeC-45TypesC-45String-C-43C-43 arg-2 (PreludeC-45TypesC-45String-C-43C-43 ":" (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Nat arg-4) (PreludeC-45TypesC-45String-C-43C-43 ": " "--- CONSTRAINTS AND HOLES ---")))))) clam-0))) (vector 1 act-28)))))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (CoreC-45Core-traverse_ (lambda (eta-0) (lambda (eta-1) (CoreC-45UnifyState-dumpHole arg-0 arg-1 arg-2 arg-4 eta-0 eta-1))) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-fst eta-0)) u--hs) clam-0))))))))))) ext-0)) (else (vector 1 0))))))))))))))))))) +(define CoreC-45UnifyState-deleteConstraint (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (set-box! arg-0 (let ((e-0 (vector-ref e-5 0))) (let ((e-1 (vector-ref e-5 1))) (let ((e-2 (vector-ref e-5 2))) (let ((e-3 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-12 (vector-ref e-5 5))) (let ((e-6 (vector-ref e-5 6))) (let ((e-7 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (let ((e-10 (vector-ref e-5 10))) (let ((e-11 (vector-ref e-5 11))) (vector e-0 e-1 e-2 e-3 (LibrariesC-45DataC-45IntMap-delete arg-1 e-4) e-12 e-6 e-7 e-8 e-9 e-10 e-11)))))))))))))))) (vector 1 act-25)))))))) +(define CoreC-45UnifyState-checkValidHole (lambda (arg-0 arg-1 arg-2 arg-3) (let ((e-2 (car arg-3))) (let ((e-3 (cdr arg-3))) (lambda (clam-0) (let ((e-6 (car e-3))) (let ((e-7 (cdr e-3))) (let ((sc2 (PreludeC-45EqOrd-u--C-62C-61_Ord_Int e-2 arg-2))) (cond ((equal? sc2 1) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref act-25 1))) (let ((act-26 ((CoreC-45Context-lookupCtxtExact (vector 9 e-2) (let ((e-0 (vector-ref e-5 0))) e-0)) clam-0))) (case (vector-ref act-26 0) ((0) (let ((e-4 (vector-ref act-26 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref act-26 1))) (if (null? e-9) (vector 1 0) (let ((e-1 (unbox e-9))) (let ((_-0 (box e-1))) (CoreC-45UnifyState-case--caseC-32blockC-32inC-32checkValidHole-8571 e-2 e-6 e-7 arg-2 arg-1 arg-0 e-5 e-8 e-1 _-0 (let ((e-17 (vector-ref e-1 17))) e-17) clam-0))))))))))))))))) (else (vector 1 0))))))))))) +(define CoreC-45UnifyState-checkUserHolesAfter (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (CoreC-45UnifyState-getGuesses arg-0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((u--gs (LibrariesC-45DataC-45IntMap-toList e-5))) (let ((act-25 (CoreC-45ContextC-45Log-log arg-1 "unify.unsolved" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Unsolved guesses " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_Int x-0)) (lambda (u--d) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_Int u--d x-0)))) (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (CoreC-45FC-u--show_Show_FC x-1)) (lambda (u--d) (lambda (x-1) (CoreC-45FC-u--showPrec_Show_FC u--d x-1)))) (cons (lambda (x-1) (CoreC-45Name-u--show_Show_Name x-1)) (lambda (u--d) (lambda (x-1) (CoreC-45Name-u--showPrec_Show_Name u--d x-1))))) x-0)) (lambda (u--d) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (CoreC-45FC-u--show_Show_FC x-1)) (lambda (d-0) (lambda (x-1) (CoreC-45FC-u--showPrec_Show_FC d-0 x-1)))) (cons (lambda (x-1) (CoreC-45Name-u--show_Show_Name x-1)) (lambda (d-0) (lambda (x-1) (CoreC-45Name-u--showPrec_Show_Name d-0 x-1))))) u--d x-0))))) u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_Int x-0)) (lambda (d-0) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-0)))) (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (CoreC-45FC-u--show_Show_FC x-1)) (lambda (d-0) (lambda (x-1) (CoreC-45FC-u--showPrec_Show_FC d-0 x-1)))) (cons (lambda (x-1) (CoreC-45Name-u--show_Show_Name x-1)) (lambda (d-0) (lambda (x-1) (CoreC-45Name-u--showPrec_Show_Name d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (CoreC-45FC-u--show_Show_FC x-1)) (lambda (d-1) (lambda (x-1) (CoreC-45FC-u--showPrec_Show_FC d-1 x-1)))) (cons (lambda (x-1) (CoreC-45Name-u--show_Show_Name x-1)) (lambda (d-1) (lambda (x-1) (CoreC-45Name-u--showPrec_Show_Name d-1 x-1))))) d-0 x-0))))) u--d u--x)))) u--gs))) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45Core-traverse_ (lambda (eta-0) (CoreC-45UnifyState-checkValidHole arg-1 arg-0 arg-2 eta-0)) u--gs ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((act-27 (CoreC-45UnifyState-getCurrentHoles arg-0 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (let ((u--hs (LibrariesC-45DataC-45IntMap-toList e-8))) (let ((u--hsC-39 (let ((sc4 (PreludeC-45Interfaces-any (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (lambda (eta-0) (CoreC-45Name-isUserName eta-0)) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd (Builtin-snd eta-0))) u--hs)))) (cond ((equal? sc4 1) '()) (else u--hs))))) (let ((act-28 (let ((sc4 (cond ((equal? arg-3 1) (let ((sc6 (DataC-45List-isNil u--hsC-39))) (cond ((equal? sc6 1) 0) (else 1)))) (else 0)))) (cond ((equal? sc4 1) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 31 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) (DataC-45List-nubBy (lambda (eta-0) (lambda (eta-1) (CoreC-45UnifyState-n--10613-9171-u--nameEq arg-3 arg-2 arg-1 arg-0 eta-0 eta-1))) u--hs))) ext-0)) (else (vector 1 0)))))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (CoreC-45Core-traverse_ (lambda (eta-0) (lambda (eta-1) (CoreC-45UnifyState-addDelayedHoleName arg-0 eta-0 eta-1))) u--hsC-39 ext-0))))))))))))))))))))))) +(define CoreC-45UnifyState-checkDelayedHoles (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((u--hs (LibrariesC-45DataC-45IntMap-toList (let ((e-3 (vector-ref e-5 3))) e-3)))) (let ((sc1 (DataC-45List-isNil u--hs))) (cond ((equal? sc1 1) (vector 1 '())) (else (vector 1 (box (vector 31 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) u--hs)))))))))))))) +(define CoreC-45UnifyState-applyToFull (lambda (arg-0 arg-1 arg-2 arg-3) (let ((u--args (DataC-45List-reverse (CoreC-45UnifyState-mkConstantAppArgs arg-0 1 arg-1 arg-3 '())))) (CoreC-45TT-apply arg-1 arg-2 u--args)))) +(define CoreC-45UnifyState-applyTo (lambda (arg-0 arg-1 arg-2 arg-3) (let ((u--args (DataC-45List-reverse (CoreC-45UnifyState-mkConstantAppArgs arg-0 0 arg-1 arg-3 '())))) (CoreC-45TT-apply arg-1 arg-2 u--args)))) +(define CoreC-45UnifyState-addPolyConstraint (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (case (vector-ref arg-5 0) ((1) (let ((e-1 (vector-ref arg-5 1))) (let ((e-2 (vector-ref arg-5 2))) (let ((e-3 (vector-ref arg-5 3))) (case (vector-ref e-2 0) ((2) (let ((e-5 (vector-ref e-2 1))) (let ((e-6 (vector-ref e-2 2))) (let ((e-7 (vector-ref e-2 3))) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref act-24 1))) (let ((act-25 (set-box! arg-1 (let ((u--x (vector 1 e-1 (vector 2 e-5 e-6 e-7) e-3))) (let ((e-0 (vector-ref e-8 0))) (let ((e-18 (vector-ref e-8 1))) (let ((e-17 (vector-ref e-8 2))) (let ((e-16 (vector-ref e-8 3))) (let ((e-4 (vector-ref e-8 4))) (let ((e-15 (vector-ref e-8 5))) (let ((e-14 (vector-ref e-8 6))) (let ((e-13 (vector-ref e-8 7))) (let ((e-12 (vector-ref e-8 8))) (let ((e-9 (vector-ref e-8 9))) (let ((e-10 (vector-ref e-8 10))) (let ((e-11 (vector-ref e-8 11))) (vector e-0 e-18 e-17 e-16 e-4 e-15 (cons (vector arg-0 arg-2 arg-3 arg-4 u--x arg-6) e-14) e-13 e-12 e-9 e-10 e-11))))))))))))))))) (vector 1 act-25))))))))))(else (vector 1 0)))))))(else (vector 1 0))))) +(define CoreC-45UnifyState-addNoSolve (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (set-box! arg-0 (let ((e-0 (vector-ref e-5 0))) (let ((e-1 (vector-ref e-5 1))) (let ((e-2 (vector-ref e-5 2))) (let ((e-3 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-12 (vector-ref e-5 5))) (let ((e-6 (vector-ref e-5 6))) (let ((e-7 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (let ((e-10 (vector-ref e-5 10))) (let ((e-11 (vector-ref e-5 11))) (vector e-0 e-1 e-2 e-3 e-4 (LibrariesC-45DataC-45IntMap-insert arg-1 0 e-12) e-6 e-7 e-8 e-9 e-10 e-11)))))))))))))))) (vector 1 act-25)))))))) +(define CoreC-45UnifyState-addHoleName (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (set-box! arg-0 (let ((e-0 (vector-ref e-5 0))) (let ((e-1 (vector-ref e-5 1))) (let ((e-2 (vector-ref e-5 2))) (let ((e-3 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-12 (vector-ref e-5 5))) (let ((e-6 (vector-ref e-5 6))) (let ((e-7 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (let ((e-10 (vector-ref e-5 10))) (let ((e-11 (vector-ref e-5 11))) (vector (LibrariesC-45DataC-45IntMap-insert arg-3 (cons arg-1 arg-2) e-0) e-1 (LibrariesC-45DataC-45IntMap-insert arg-3 (cons arg-1 arg-2) e-2) e-3 e-4 e-12 e-6 e-7 e-8 e-9 e-10 e-11)))))))))))))))) (vector 1 act-25)))))))) +(define CoreC-45UnifyState-addGuessName (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (set-box! arg-0 (let ((e-0 (vector-ref e-5 0))) (let ((e-1 (vector-ref e-5 1))) (let ((e-2 (vector-ref e-5 2))) (let ((e-3 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-12 (vector-ref e-5 5))) (let ((e-6 (vector-ref e-5 6))) (let ((e-7 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (let ((e-10 (vector-ref e-5 10))) (let ((e-11 (vector-ref e-5 11))) (vector e-0 (LibrariesC-45DataC-45IntMap-insert arg-3 (cons arg-1 arg-2) e-1) e-2 e-3 e-4 e-12 e-6 e-7 e-8 e-9 e-10 e-11)))))))))))))))) (vector 1 act-25)))))))) +(define CoreC-45UnifyState-addDot (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 ext-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 ((CoreC-45Normalise-nf arg-1 arg-0 e-6 arg-4 arg-6) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 ((CoreC-45Normalise-nf arg-1 arg-0 e-6 arg-4 arg-8) ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (let ((act-28 (set-box! arg-2 (let ((e-0 (vector-ref e-5 0))) (let ((e-1 (vector-ref e-5 1))) (let ((e-2 (vector-ref e-5 2))) (let ((e-3 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-15 (vector-ref e-5 5))) (let ((e-14 (vector-ref e-5 6))) (let ((e-13 (vector-ref e-5 7))) (let ((e-12 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (let ((e-10 (vector-ref e-5 10))) (let ((e-11 (vector-ref e-5 11))) (vector e-0 e-1 e-2 e-3 e-4 e-15 e-14 (cons (cons arg-5 (cons arg-7 (vector 0 arg-0 arg-3 0 arg-4 e-7 e-8))) e-13) e-12 e-9 e-10 e-11)))))))))))))))) (vector 1 act-28)))))))))))))))))))) +(define CoreC-45UnifyState-addDelayedHoleName (lambda (arg-0 arg-1 ext-0) (let ((e-2 (car arg-1))) (let ((e-3 (cdr arg-1))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (set-box! arg-0 (let ((e-0 (vector-ref e-5 0))) (let ((e-1 (vector-ref e-5 1))) (let ((e-14 (vector-ref e-5 2))) (let ((e-13 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-12 (vector-ref e-5 5))) (let ((e-6 (vector-ref e-5 6))) (let ((e-7 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (let ((e-10 (vector-ref e-5 10))) (let ((e-11 (vector-ref e-5 11))) (vector e-0 e-1 e-14 (LibrariesC-45DataC-45IntMap-insert e-2 e-3 e-13) e-4 e-12 e-6 e-7 e-8 e-9 e-10 e-11)))))))))))))))) (vector 1 act-25)))))))))) +(define CoreC-45UnifyState-addConstraint (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((u--cid (let ((e-9 (vector-ref e-5 9))) e-9))) (let ((act-25 (let ((act-25 (set-box! arg-0 (let ((e-0 (vector-ref e-5 0))) (let ((e-1 (vector-ref e-5 1))) (let ((e-2 (vector-ref e-5 2))) (let ((e-3 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-12 (vector-ref e-5 5))) (let ((e-6 (vector-ref e-5 6))) (let ((e-7 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-10 (vector-ref e-5 10))) (let ((e-11 (vector-ref e-5 11))) (vector e-0 e-1 e-2 e-3 (LibrariesC-45DataC-45IntMap-insert u--cid arg-2 e-4) e-12 e-6 e-7 e-8 (bs+ u--cid 1 63) e-10 e-11))))))))))))))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (vector 1 u--cid))))))))))) +(define ParserC-45Unlit-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32isLitLine-3985 (lambda (arg-0 arg-1 arg-2 arg-3) (if (null? arg-3) (let ((sc1 (LibrariesC-45TextC-45Literate-isLiterateLine (ParserC-45Unlit-styleTeX) arg-0))) (if (null? sc1) (cons '() arg-0) (let ((e-2 (car sc1))) (let ((e-3 (cdr sc1))) (if (null? e-2) (cons '() arg-0) (let ((e-5 (unbox e-2))) (cons (box e-5) e-3))))))) (let ((e-2 (car arg-3))) (let ((e-3 (cdr arg-3))) (if (null? e-2) (let ((sc2 (LibrariesC-45TextC-45Literate-isLiterateLine (ParserC-45Unlit-styleTeX) arg-0))) (if (null? sc2) (cons '() arg-0) (let ((e-5 (car sc2))) (let ((e-4 (cdr sc2))) (if (null? e-5) (cons '() arg-0) (let ((e-6 (unbox e-5))) (cons (box e-6) e-4))))))) (let ((e-5 (unbox e-2))) (cons (box e-5) e-3)))))))) +(define ParserC-45Unlit-case--caseC-32blockC-32inC-32isLitLine-3960 (lambda (arg-0 arg-1 arg-2) (if (null? arg-2) (ParserC-45Unlit-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32isLitLine-3985 arg-0 arg-1 arg-2 (LibrariesC-45TextC-45Literate-isLiterateLine (ParserC-45Unlit-styleCMark) arg-0)) (let ((e-2 (car arg-2))) (let ((e-3 (cdr arg-2))) (if (null? e-2) (ParserC-45Unlit-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32isLitLine-3985 arg-0 arg-1 arg-2 (LibrariesC-45TextC-45Literate-isLiterateLine (ParserC-45Unlit-styleCMark) arg-0)) (let ((e-5 (unbox e-2))) (cons (box e-5) e-3)))))))) +(define ParserC-45Unlit-case--isLitLine-3939 (lambda (arg-0 arg-1) (if (null? arg-1) (ParserC-45Unlit-case--caseC-32blockC-32inC-32isLitLine-3960 arg-0 arg-1 (LibrariesC-45TextC-45Literate-isLiterateLine (ParserC-45Unlit-styleOrg) arg-0)) (let ((e-2 (car arg-1))) (let ((e-3 (cdr arg-1))) (if (null? e-2) (ParserC-45Unlit-case--caseC-32blockC-32inC-32isLitLine-3960 arg-0 arg-1 (LibrariesC-45TextC-45Literate-isLiterateLine (ParserC-45Unlit-styleOrg) arg-0)) (let ((e-5 (unbox e-2))) (cons (box e-5) e-3)))))))) +(define ParserC-45Unlit-n--2271-3865-u--isStyle (lambda (arg-0 arg-1) (let ((sc0 (PreludeC-45Interfaces-any (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (lambda (eta-0) (ParserC-45Unlit-n--2271-3864-u--hasSuffix arg-0 eta-0)) (let ((e-2 (vector-ref arg-1 2))) e-2)))) (cond ((equal? sc0 1) (box arg-1)) (else '()))))) +(define ParserC-45Unlit-n--2271-3864-u--hasSuffix (lambda (arg-0 arg-1) (DataC-45String-isSuffixOf arg-1 arg-0))) +(define ParserC-45Unlit-unlit (lambda (arg-0 arg-1) (if (null? arg-0) (vector 1 arg-1) (let ((e-2 (unbox arg-0))) (LibrariesC-45TextC-45Literate-unlit e-2 arg-1))))) +(define ParserC-45Unlit-styleTeX (lambda () (vector (cons (cons "\\begin{code}" "\\end{code}") (cons (cons "\\begin{hidden}" "\\end{hidden}") '())) '() (cons ".tex" (cons ".ltx" '()))))) +(define ParserC-45Unlit-styleOrg (lambda () (vector (cons (cons "#+BEGIN_SRC idris" "#+END_SRC") (cons (cons "#+begin_src idris" "#+end_src") (cons (cons "#+BEGIN_COMMENT idris" "#+END_COMMENT") (cons (cons "#+begin_comment idris" "#+end_comment") '())))) (cons "#+IDRIS:" '()) (cons ".org" '())))) +(define ParserC-45Unlit-styleCMark (lambda () (vector (cons (cons "```idris" "```") (cons (cons "~~~idris" "~~~") (cons (cons "") '()))) '() (cons ".md" (cons ".markdown" '()))))) +(define ParserC-45Unlit-styleBird (lambda () (vector '() (cons ">" (cons "<" '())) (cons ".lidr" '())))) +(define ParserC-45Unlit-relit (lambda (arg-0 arg-1) (if (null? arg-0) arg-1 (let ((e-2 (unbox arg-0))) (DataC-45String-unwords (cons e-2 (cons arg-1 '()))))))) +(define ParserC-45Unlit-isLitLine (lambda (arg-0) (ParserC-45Unlit-case--isLitLine-3939 arg-0 (LibrariesC-45TextC-45Literate-isLiterateLine (ParserC-45Unlit-styleBird) arg-0)))) +(define ParserC-45Unlit-isLitFile (lambda (arg-0) (let ((sc0 (ParserC-45Unlit-n--2271-3865-u--isStyle arg-0 (ParserC-45Unlit-styleBird)))) (if (null? sc0) (let ((sc1 (ParserC-45Unlit-n--2271-3865-u--isStyle arg-0 (ParserC-45Unlit-styleOrg)))) (if (null? sc1) (let ((sc2 (ParserC-45Unlit-n--2271-3865-u--isStyle arg-0 (ParserC-45Unlit-styleCMark)))) (if (null? sc2) (ParserC-45Unlit-n--2271-3865-u--isStyle arg-0 (ParserC-45Unlit-styleTeX)) (let ((e-1 (unbox sc2))) (box e-1)))) (let ((e-1 (unbox sc1))) (box e-1)))) (let ((e-1 (unbox sc0))) (box e-1)))))) +(define LibrariesC-45TextC-45Literate-with--isLiterateLine-4238 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((e-2 (car arg-3))) (let ((e-3 (cdr arg-3))) (if (null? e-2) (cons '() arg-2) (let ((e-5 (car e-2))) (let ((e-6 (cdr e-2))) (let ((e-8 (vector-ref e-5 0))) (case (vector-ref e-8 0) ((2) (let ((e-11 (vector-ref e-8 1))) (let ((e-12 (vector-ref e-8 2))) (if (null? e-6) (if (null? e-3) (cons '() arg-2) (let ((e-17 (cdr e-3))) (if (null? e-17) (cons '() arg-2) (let ((e-21 (cdr e-17))) (cond ((equal? e-21 "") (cons (box e-11) e-12))(else (cons '() arg-2))))))) (cons '() arg-2)))))(else (cons '() arg-2))))))))))) +(define LibrariesC-45TextC-45Literate-with--withC-32blockC-32inC-32reduce-4095 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (if (null? arg-0) (case (vector-ref arg-1 0) ((0) (LibrariesC-45TextC-45Literate-reduce arg-6 arg-5))(else (let ((e-2 (vector-ref arg-1 2))) (LibrariesC-45TextC-45Literate-reduce arg-6 (cons (PreludeC-45TypesC-45String-C-43C-43 (LibrariesC-45DataC-45StringC-45Extra-unlines e-2) "\u000a") (cons "\u000a" arg-5)))))) (let ((e-2 (vector-ref arg-1 2))) (LibrariesC-45TextC-45Literate-reduce arg-6 (cons (PreludeC-45TypesC-45String-C-43C-43 (LibrariesC-45DataC-45StringC-45Extra-unlines e-2) "\u000a") (cons "\u000a" arg-5))))))) +(define LibrariesC-45TextC-45Literate-with--reduce-4086 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((e-1 (car arg-1))) (let ((e-2 (cdr arg-1))) (LibrariesC-45TextC-45Literate-with--withC-32blockC-32inC-32reduce-4095 e-2 (DataC-45ListC-45Views-snocList e-2) arg-2 arg-3 e-1 arg-7 arg-6 arg-5 arg-4 arg-0))))) +(define LibrariesC-45TextC-45Literate-case--extractCode-4173 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((e-2 (car arg-4))) (let ((e-3 (cdr arg-4))) (let ((e-6 (car e-3))) (let ((e-7 (cdr e-3))) (let ((e-10 (car e-7))) (let ((e-11 (cdr e-7))) (cond ((equal? e-11 "") (vector 1 (LibrariesC-45TextC-45Literate-reduce e-2 '())))(else (vector 0 (vector e-6 e-10 e-11)))))))))))) +(define LibrariesC-45TextC-45Literate-untilEOL (lambda () (LibrariesC-45TextC-45Lexer-manyUntil (LibrariesC-45TextC-45Lexer-newline) (LibrariesC-45TextC-45Lexer-any)))) +(define LibrariesC-45TextC-45Literate-unlit (lambda (ext-0 ext-1) (LibrariesC-45TextC-45Literate-extractCode ext-0 ext-1))) +(define LibrariesC-45TextC-45Literate-reduce (lambda (arg-0 arg-1) (if (null? arg-0) (DataC-45String-fastAppend (DataC-45List-reverse arg-1)) (let ((e-2 (car arg-0))) (let ((e-3 (cdr arg-0))) (let ((e-5 (vector-ref e-2 0))) (let ((e-6 (vector-ref e-2 1))) (let ((e-7 (vector-ref e-2 2))) (case (vector-ref e-5 0) ((1) (let ((e-8 (vector-ref e-5 1))) (let ((sc2 (PreludeC-45EqOrd-u--C-61C-61_Eq_String e-8 "\u000a"))) (cond ((equal? sc2 1) (LibrariesC-45TextC-45Literate-reduce e-3 (cons "\u000a" arg-1))) (else (LibrariesC-45TextC-45Literate-reduce e-3 arg-1)))))) ((2) (let ((e-9 (vector-ref e-5 1))) (let ((e-10 (vector-ref e-5 2))) (let ((sc2 (PreludeC-45EqOrd-u--C-61C-61_Eq_String e-9 (DataC-45String-trim e-10)))) (cond ((equal? sc2 1) (LibrariesC-45TextC-45Literate-reduce e-3 (cons "\u000a" arg-1))) (else (LibrariesC-45TextC-45Literate-reduce e-3 (cons (PreludeC-45Types-substr (PreludeC-45Types-u--C-43_Num_Nat (PreludeC-45TypesC-45String-length e-9) (+ 1 0)) (PreludeC-45TypesC-45String-length e-10) e-10) arg-1)))))))) (else (let ((e-11 (vector-ref e-5 1))) (let ((e-12 (vector-ref e-5 2))) (let ((e-13 (vector-ref e-5 3))) (LibrariesC-45TextC-45Literate-with--reduce-4086 e-13 (LibrariesC-45DataC-45StringC-45Extra-lines e-13) e-6 e-7 e-12 e-11 e-3 arg-1)))))))))))))) +(define LibrariesC-45TextC-45Literate-rawTokens (lambda (arg-0 arg-1) (PreludeC-45TypesC-45List-C-43C-43 (PreludeC-45Types-u--map_Functor_List (lambda (lamc-0) (let ((e-2 (car lamc-0))) (let ((e-3 (cdr lamc-0))) (cons (LibrariesC-45TextC-45Literate-block e-2 e-3) (lambda (eta-0) (vector 0 (DataC-45String-trim e-2) (DataC-45String-trim e-3) eta-0)))))) arg-0) (PreludeC-45TypesC-45List-C-43C-43 (PreludeC-45Types-u--map_Functor_List (lambda (u--m) (cons (LibrariesC-45TextC-45Literate-line u--m) (lambda (eta-0) (vector 2 (DataC-45String-trim u--m) eta-0)))) arg-1) (cons (cons (LibrariesC-45TextC-45Literate-notCodeLine) (lambda (eta-0) (vector 1 eta-0))) '()))))) +(define LibrariesC-45TextC-45Literate-notCodeLine (lambda () (LibrariesC-45TextC-45LexerC-45Core-C-60C-124C-62 (LibrariesC-45TextC-45Lexer-newline) (vector 4 (LibrariesC-45TextC-45Lexer-any) (lambda () (LibrariesC-45TextC-45Literate-untilEOL)))))) +(define LibrariesC-45TextC-45Literate-line (lambda (arg-0) (vector 4 (LibrariesC-45TextC-45Lexer-exact arg-0) (lambda () (LibrariesC-45TextC-45LexerC-45Core-C-60C-124C-62 (LibrariesC-45TextC-45Lexer-newline) (vector 4 (LibrariesC-45TextC-45Lexer-space) (lambda () (LibrariesC-45TextC-45Literate-untilEOL)))))))) +(define LibrariesC-45TextC-45Literate-isLiterateLine (lambda (arg-0 arg-1) (let ((e-0 (vector-ref arg-0 0))) (let ((e-1 (vector-ref arg-0 1))) (let ((e-2 (vector-ref arg-0 2))) (LibrariesC-45TextC-45Literate-with--isLiterateLine-4238 e-1 e-0 arg-1 (LibrariesC-45TextC-45LexerC-45Core-lex (LibrariesC-45TextC-45Literate-rawTokens e-0 e-1) arg-1) e-2)))))) +(define LibrariesC-45TextC-45Literate-extractCode (lambda (arg-0 arg-1) (let ((e-0 (vector-ref arg-0 0))) (let ((e-1 (vector-ref arg-0 1))) (let ((e-2 (vector-ref arg-0 2))) (LibrariesC-45TextC-45Literate-case--extractCode-4173 e-2 e-1 e-0 arg-1 (LibrariesC-45TextC-45LexerC-45Core-lex (LibrariesC-45TextC-45Literate-rawTokens e-0 e-1) arg-1))))))) +(define LibrariesC-45TextC-45Literate-block (lambda (arg-0 arg-1) (LibrariesC-45TextC-45Lexer-surround (vector 4 (LibrariesC-45TextC-45Lexer-exact arg-0) (lambda () (LibrariesC-45TextC-45Literate-untilEOL))) (vector 4 (LibrariesC-45TextC-45Lexer-exact arg-1) (lambda () (LibrariesC-45TextC-45Literate-untilEOL))) (LibrariesC-45TextC-45Lexer-any)))) +(define DataC-45ListC-45Views-snocListHelp (lambda (arg-1 arg-2 arg-3) (if (null? arg-3) arg-2 (let ((e-2 (car arg-3))) (let ((e-3 (cdr arg-3))) (DataC-45ListC-45Views-snocListHelp (PreludeC-45TypesC-45List-C-43C-43 arg-1 (cons e-2 '())) (vector 1 e-2 arg-1 arg-2) e-3)))))) +(define DataC-45ListC-45Views-snocList (lambda (arg-1) (DataC-45ListC-45Views-snocListHelp '() (vector 0 ) arg-1))) +(define ParserC-45RuleC-45Source-case--isCapitalisedIdent-3859 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (cond ((equal? arg-1 "") (if (null? arg-4) arg-3 (let ((e-0 (car arg-4))) (let ((sc3 (let ((sc4 (PreludeC-45Types-isUpper e-0))) (cond ((equal? sc4 1) 1) (else (PreludeC-45EqOrd-u--C-62_Ord_Char e-0 (PreludeC-45Types-chr (blodwen-toSignedInt 160 63)))))))) (cond ((equal? sc3 1) (vector 0 0)) (else arg-3))))))(else (let ((e-0 (car arg-4))) (let ((sc1 (let ((sc2 (PreludeC-45Types-isUpper e-0))) (cond ((equal? sc2 1) 1) (else (PreludeC-45EqOrd-u--C-62_Ord_Char e-0 (PreludeC-45Types-chr (blodwen-toSignedInt 160 63)))))))) (cond ((equal? sc1 1) (vector 0 0)) (else arg-3)))))))) +(define ParserC-45RuleC-45Source-n--8237-5160-u--restOfBlock (lambda (arg-2 arg-3 arg-4 arg-5) (if (null? arg-5) (vector 9 0 1 (ParserC-45RuleC-45Source-blockEntries (vector 0 ) arg-2) (lambda (u--ps) (vector 10 0 (ParserC-45RuleC-45Source-symbol "}") (lambda () (vector 0 (cons '() u--ps)))))) (let ((e-1 (unbox arg-5))) (let ((e-5 (car e-1))) (let ((e-6 (cdr e-1))) (vector 9 0 1 (ParserC-45RuleC-45Source-blockEntries e-6 arg-2) (lambda (u--ps) (vector 10 0 (ParserC-45RuleC-45Source-symbol "}") (lambda () (vector 0 (cons (box e-5) u--ps)))))))))))) +(define ParserC-45RuleC-45Source-n--7228-4156-u--opNS (lambda (arg-0 arg-1) (vector 11 0 1 (ParserC-45RuleC-45Source-isCapitalisedIdent (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (LibrariesC-45TextC-45Bounded-u--map_Functor_WithBounds eta-2 eta-3))))) (lambda (eta-0) (Builtin-snd eta-0)) arg-1)) (let ((u--ns (PreludeC-45Basics-uncurry (lambda (eta-0) (lambda (eta-1) (CoreC-45NameC-45Namespace-mkNestedNamespace eta-0 eta-1))) (let ((e-1 (vector-ref arg-1 0))) e-1)))) (vector 10 1 (ParserC-45RuleC-45Source-symbol ".(") (lambda () (vector 8 1 (vector 12 1 1 (ParserC-45RuleC-45Source-operator) (lambda () (ParserC-45RuleC-45Source-postfixProj))) (lambda () (lambda (u--n) (vector 10 0 (ParserC-45RuleC-45Source-symbol ")") (lambda () (vector 0 (vector 0 u--ns u--n))))))))))))) +(define ParserC-45RuleC-45Source-n--7228-4155-u--nameNS (lambda (arg-0 arg-1) (let ((u--id (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (LibrariesC-45TextC-45Bounded-u--map_Functor_WithBounds eta-2 eta-3))))) (lambda (eta-0) (Builtin-snd eta-0)) arg-1))) (vector 11 0 0 (ParserC-45RuleC-45Source-identWithCapital arg-0 u--id) (vector 11 0 0 (ParserC-45RuleC-45Source-isNotReservedIdent u--id) (vector 0 (PreludeC-45Basics-uncurry (lambda (eta-0) (lambda (eta-1) (CoreC-45Name-mkNamespacedName eta-0 eta-1))) (let ((e-1 (vector-ref arg-1 0))) e-1)))))))) +(define ParserC-45RuleC-45Source-n--6226-3211-u--isEOI (lambda (arg-0) (case (vector-ref arg-0 0) ((16) 1)(else 0)))) +(define ParserC-45RuleC-45Source-n--7769-4684-u--afterSemi (lambda (arg-0 arg-1 arg-2) (case (vector-ref arg-2 0) ((0) (vector 0 )) ((1) (let ((e-0 (vector-ref arg-2 1))) (vector 2 e-0))) ((2) (let ((e-1 (vector-ref arg-2 1))) (vector 2 e-1))) (else (vector 3 ))))) +(define ParserC-45RuleC-45Source-n--7769-4685-u--afterDedent (lambda (arg-0 arg-1 arg-2 arg-3) (case (vector-ref arg-2 0) ((0) (let ((sc1 (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-3 arg-0))) (cond ((equal? sc1 1) (vector 0 (vector 0 ))) (else (vector 4 '() 0 "Not the end of a block entry"))))) ((2) (let ((e-0 (vector-ref arg-2 1))) (let ((sc1 (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-3 arg-0))) (cond ((equal? sc1 1) (vector 0 (vector 1 e-0))) (else (vector 4 '() 0 "Not the end of a block entry")))))) ((1) (let ((e-1 (vector-ref arg-2 1))) (let ((sc1 (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-3 arg-0))) (cond ((equal? sc1 1) (vector 0 (vector 1 e-1))) (else (vector 4 '() 0 "Not the end of a block entry")))))) (else (vector 0 (vector 3 )))))) +(define ParserC-45RuleC-45Source-unqualifiedName (lambda () (ParserC-45RuleC-45Source-identPart))) +(define ParserC-45RuleC-45Source-terminator (lambda (arg-0 arg-1) (vector 12 0 0 (vector 11 0 0 (ParserC-45RuleC-45Source-eoi) (vector 0 (vector 3 ))) (lambda () (vector 12 1 0 (vector 10 0 (ParserC-45RuleC-45Source-symbol ";") (lambda () (vector 0 (ParserC-45RuleC-45Source-n--7769-4684-u--afterSemi arg-1 arg-0 arg-0)))) (lambda () (vector 12 0 0 (vector 9 0 0 (LibrariesC-45TextC-45Parser-column) (lambda (u--col) (ParserC-45RuleC-45Source-n--7769-4685-u--afterDedent arg-1 arg-0 arg-0 u--col))) (lambda () (vector 0 (vector 3 )))))))))) +(define ParserC-45RuleC-45Source-symbol (lambda (arg-0) (vector 1 (PreludeC-45TypesC-45String-C-43C-43 "Expected '" (PreludeC-45TypesC-45String-C-43C-43 arg-0 "'")) (lambda (lcase-0) (case (vector-ref lcase-0 0) ((12) (let ((e-0 (vector-ref lcase-0 1))) (let ((sc1 (PreludeC-45EqOrd-u--C-61C-61_Eq_String e-0 arg-0))) (cond ((equal? sc1 1) (box 0)) (else '())))))(else '())))))) +(define ParserC-45RuleC-45Source-strLitLines (lambda () (vector 1 "Expected string literal" (lambda (lcase-0) (case (vector-ref lcase-0 0) ((7) (let ((e-0 (vector-ref lcase-0 1))) (let ((e-1 (vector-ref lcase-0 2))) (DataC-45List1-u--traverse_Traversable_List1 (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (PreludeC-45Types-u--map_Functor_Maybe u--func arg-133))))) (lambda (u--a) (lambda (arg-527) (PreludeC-45Types-u--pure_Applicative_Maybe arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (PreludeC-45Types-u--C-60C-42C-62_Applicative_Maybe arg-528 arg-530)))))) (lambda (eta-0) (ParserC-45Support-escape e-0 (PreludeC-45Types-fastPack eta-0))) (LibrariesC-45DataC-45ListC-45Extra-splitAfter (lambda (eta-0) (PreludeC-45Types-isNL eta-0)) (PreludeC-45Types-fastUnpack e-1))))))(else '())))))) +(define ParserC-45RuleC-45Source-strLit (lambda () (vector 1 "Expected string literal" (lambda (lcase-0) (case (vector-ref lcase-0 0) ((7) (let ((e-0 (vector-ref lcase-0 1))) (let ((e-1 (vector-ref lcase-0 2))) (ParserC-45Support-escape e-0 e-1))))(else '())))))) +(define ParserC-45RuleC-45Source-strEnd (lambda () (vector 1 "Expected string end" (lambda (lcase-0) (case (vector-ref lcase-0 0) ((4) (box 0))(else '())))))) +(define ParserC-45RuleC-45Source-strBegin (lambda () (vector 1 "Expected string begin" (lambda (lcase-0) (case (vector-ref lcase-0 0) ((3) (let ((e-0 (vector-ref lcase-0 1))) (cond ((equal? e-0 0) (box 0))(else '()))))(else '())))))) +(define ParserC-45RuleC-45Source-simpleStr (lambda () (vector 9 1 1 (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40C-40GrammarC-32C-36stateC-41C-32C-36tokC-41C-32C-36cC-41 1 (lambda (eta-0) (lambda (eta-1) eta-0)) (vector 9 1 0 (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40C-40GrammarC-32C-36stateC-41C-32C-36tokC-41C-32C-36cC-41 1 (lambda (eta-0) (lambda (eta-1) eta-1)) (vector 9 1 0 (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40C-40GrammarC-32C-36stateC-41C-32C-36tokC-41C-32C-36cC-41 1 (lambda (eta-0) (lambda (eta-1) eta-1)) (ParserC-45RuleC-45Source-strBegin)) (lambda (u--f) (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40C-40GrammarC-32C-36stateC-41C-32C-36tokC-41C-32C-36cC-41 0 u--f (vector 6 ))))) (lambda (u--f) (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40C-40GrammarC-32C-36stateC-41C-32C-36tokC-41C-32C-36cC-41 0 u--f (LibrariesC-45TextC-45Parser-option 1 "" (ParserC-45RuleC-45Source-strLit)))))) (lambda (u--f) (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40C-40GrammarC-32C-36stateC-41C-32C-36tokC-41C-32C-36cC-41 1 u--f (ParserC-45RuleC-45Source-strEnd)))))) +(define ParserC-45RuleC-45Source-reservedNames (lambda () (cons "Type" (cons "Int" (cons "Int8" (cons "Int16" (cons "Int32" (cons "Int64" (cons "Integer" (cons "Bits8" (cons "Bits16" (cons "Bits32" (cons "Bits64" (cons "String" (cons "Char" (cons "Double" (cons "Lazy" (cons "Inf" (cons "Force" (cons "Delay" '())))))))))))))))))))) +(define ParserC-45RuleC-45Source-pragma (lambda (arg-0) (vector 1 (PreludeC-45TypesC-45String-C-43C-43 "Expected pragma " arg-0) (lambda (lcase-0) (case (vector-ref lcase-0 0) ((18) (let ((e-0 (vector-ref lcase-0 1))) (let ((sc1 (PreludeC-45EqOrd-u--C-61C-61_Eq_String e-0 arg-0))) (cond ((equal? sc1 1) (box 0)) (else '())))))(else '())))))) +(define ParserC-45RuleC-45Source-postfixProj (lambda () (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40C-40GrammarC-32C-36stateC-41C-32C-36tokC-41C-32C-36cC-41 1 eta-2 eta-3))))) (lambda (eta-0) (vector 5 eta-0)) (ParserC-45RuleC-45Source-aDotIdent)))) +(define ParserC-45RuleC-45Source-operator (lambda () (vector 1 "Expected operator" (lambda (lcase-0) (case (vector-ref lcase-0 0) ((12) (let ((e-0 (vector-ref lcase-0 1))) (let ((sc1 (PreludeC-45Types-elem (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_String arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_String arg-4 arg-5)))) e-0 (ParserC-45LexerC-45Source-reservedSymbols)))) (cond ((equal? sc1 1) '()) (else (box (vector 1 e-0)))))))(else '())))))) +(define ParserC-45RuleC-45Source-opNonNS (lambda () (vector 9 1 1 (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40C-40GrammarC-32C-36stateC-41C-32C-36tokC-41C-32C-36cC-41 1 (lambda (eta-0) (lambda (eta-1) eta-0)) (vector 9 1 1 (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40C-40GrammarC-32C-36stateC-41C-32C-36tokC-41C-32C-36cC-41 1 (lambda (eta-0) (lambda (eta-1) eta-1)) (ParserC-45RuleC-45Source-symbol "(")) (lambda (u--f) (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40C-40GrammarC-32C-36stateC-41C-32C-36tokC-41C-32C-36cC-41 1 u--f (vector 12 1 1 (ParserC-45RuleC-45Source-operator) (lambda () (ParserC-45RuleC-45Source-postfixProj))))))) (lambda (u--f) (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40C-40GrammarC-32C-36stateC-41C-32C-36tokC-41C-32C-36cC-41 1 u--f (ParserC-45RuleC-45Source-symbol ")")))))) +(define ParserC-45RuleC-45Source-onOffLit (lambda () (vector 1 "Expected on or off" (lambda (lcase-0) (case (vector-ref lcase-0 0) ((9) (let ((e-0 (vector-ref lcase-0 1))) (cond ((equal? e-0 "on") (box 1)) ((equal? e-0 "off") (box 0))(else '()))))(else '())))))) +(define ParserC-45RuleC-45Source-nonEmptyBlockAfter (lambda (arg-1 arg-2) (vector 12 1 1 (vector 10 1 (ParserC-45RuleC-45Source-symbol "{") (lambda () (vector 11 0 1 (vector 6 ) (vector 8 1 (ParserC-45RuleC-45Source-blockEntry (vector 0 ) arg-2) (lambda () (lambda (u--res) (vector 9 0 1 (ParserC-45RuleC-45Source-blockEntries (Builtin-snd u--res) arg-2) (lambda (u--ps) (vector 10 0 (ParserC-45RuleC-45Source-symbol "}") (lambda () (vector 0 (cons (Builtin-fst u--res) u--ps)))))))))))) (lambda () (vector 9 0 1 (LibrariesC-45TextC-45Parser-column) (lambda (u--col) (let ((sc0 (PreludeC-45EqOrd-u--C-60C-61_Ord_Int u--col arg-1))) (cond ((equal? sc0 0) (vector 8 0 (ParserC-45RuleC-45Source-blockEntry (vector 1 u--col) arg-2) (lambda () (lambda (u--res) (vector 9 0 0 (ParserC-45RuleC-45Source-blockEntries (Builtin-snd u--res) arg-2) (lambda (u--ps) (vector 0 (cons (Builtin-fst u--res) u--ps)))))))) (else (vector 4 '() 0 "Expected an indented non-empty block")))))))))) +(define ParserC-45RuleC-45Source-nonEmptyBlock (lambda (arg-1) (vector 12 1 1 (vector 10 1 (ParserC-45RuleC-45Source-symbol "{") (lambda () (vector 11 0 1 (vector 6 ) (vector 8 1 (ParserC-45RuleC-45Source-blockEntry (vector 0 ) arg-1) (lambda () (lambda (u--res) (vector 9 0 1 (ParserC-45RuleC-45Source-blockEntries (Builtin-snd u--res) arg-1) (lambda (u--ps) (vector 10 0 (ParserC-45RuleC-45Source-symbol "}") (lambda () (vector 0 (cons (Builtin-fst u--res) u--ps)))))))))))) (lambda () (vector 9 0 1 (LibrariesC-45TextC-45Parser-column) (lambda (u--col) (vector 8 0 (ParserC-45RuleC-45Source-blockEntry (vector 1 u--col) arg-1) (lambda () (lambda (u--res) (vector 9 0 0 (ParserC-45RuleC-45Source-blockEntries (Builtin-snd u--res) arg-1) (lambda (u--ps) (vector 0 (cons (Builtin-fst u--res) u--ps))))))))))))) +(define ParserC-45RuleC-45Source-namespacedIdent (lambda () (vector 1 "Expected namespaced name" (lambda (lcase-0) (case (vector-ref lcase-0 0) ((10) (let ((e-0 (vector-ref lcase-0 1))) (let ((e-1 (vector-ref lcase-0 2))) (box (cons (box e-0) e-1))))) ((9) (let ((e-2 (vector-ref lcase-0 1))) (box (cons '() e-2))))(else '())))))) +(define ParserC-45RuleC-45Source-namespaceId (lambda () (vector 8 0 (vector 13 (ParserC-45RuleC-45Source-namespacedIdent)) (lambda () (lambda (u--nsid) (vector 11 0 0 (ParserC-45RuleC-45Source-isCapitalisedIdent (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (LibrariesC-45TextC-45Bounded-u--map_Functor_WithBounds eta-2 eta-3))))) (lambda (eta-0) (Builtin-snd eta-0)) u--nsid)) (vector 0 (PreludeC-45Basics-uncurry (lambda (eta-0) (lambda (eta-1) (CoreC-45NameC-45Namespace-mkNestedNamespace eta-0 eta-1))) (let ((e-1 (vector-ref u--nsid 0))) e-1))))))))) +(define ParserC-45RuleC-45Source-nameWithCapital (lambda (arg-0) (vector 12 1 1 (ParserC-45RuleC-45Source-opNonNS) (lambda () (vector 8 0 (vector 13 (ParserC-45RuleC-45Source-namespacedIdent)) (lambda () (lambda (u--nsx) (vector 12 1 0 (ParserC-45RuleC-45Source-n--7228-4156-u--opNS arg-0 u--nsx) (lambda () (ParserC-45RuleC-45Source-n--7228-4155-u--nameNS arg-0 u--nsx)))))))))) +(define ParserC-45RuleC-45Source-name (lambda () (ParserC-45RuleC-45Source-nameWithCapital 0))) +(define ParserC-45RuleC-45Source-mustContinue (lambda (arg-0 arg-1) (if (null? arg-1) (ParserC-45RuleC-45Source-continueF (vector 4 '() 1 "Unexpected end of expression") arg-0) (let ((e-2 (unbox arg-1))) (ParserC-45RuleC-45Source-continueF (vector 4 '() 1 (PreludeC-45TypesC-45String-C-43C-43 "Expected '" (PreludeC-45TypesC-45String-C-43C-43 e-2 "'"))) arg-0))))) +(define ParserC-45RuleC-45Source-multilineBegin (lambda () (vector 1 "Expected multiline string begin" (lambda (lcase-0) (case (vector-ref lcase-0 0) ((3) (let ((e-0 (vector-ref lcase-0 1))) (cond ((equal? e-0 1) (box 0))(else '()))))(else '())))))) +(define ParserC-45RuleC-45Source-moduleIdent (lambda () (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40C-40GrammarC-32C-36stateC-41C-32C-36tokC-41C-32C-36cC-41 1 eta-2 eta-3))))) (lambda (eta-0) (CoreC-45NameC-45Namespace-nsAsModuleIdent eta-0)) (ParserC-45RuleC-45Source-namespaceId)))) +(define ParserC-45RuleC-45Source-keyword (lambda (arg-0) (vector 1 (PreludeC-45TypesC-45String-C-43C-43 "Expected '" (PreludeC-45TypesC-45String-C-43C-43 arg-0 "'")) (lambda (lcase-0) (case (vector-ref lcase-0 0) ((17) (let ((e-0 (vector-ref lcase-0 1))) (let ((sc1 (PreludeC-45EqOrd-u--C-61C-61_Eq_String e-0 arg-0))) (cond ((equal? sc1 1) (box 0)) (else '())))))(else '())))))) +(define ParserC-45RuleC-45Source-isTerminator (lambda (arg-0) (case (vector-ref arg-0 0) ((12) (let ((e-0 (vector-ref arg-0 1))) (cond ((equal? e-0 ",") 1) ((equal? e-0 "]") 1) ((equal? e-0 ";") 1) ((equal? e-0 "}") 1) ((equal? e-0 ")") 1) ((equal? e-0 "|") 1) ((equal? e-0 "**") 1)(else 0)))) ((17) (let ((e-1 (vector-ref arg-0 1))) (cond ((equal? e-1 "in") 1) ((equal? e-1 "then") 1) ((equal? e-1 "else") 1) ((equal? e-1 "where") 1)(else 0)))) ((16) 1)(else 0)))) +(define ParserC-45RuleC-45Source-isNotReservedIdent (lambda (arg-0) (let ((sc0 (PreludeC-45Types-elem (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_String arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_String arg-4 arg-5)))) (let ((e-1 (vector-ref arg-0 0))) e-1) (ParserC-45RuleC-45Source-reservedNames)))) (cond ((equal? sc0 1) (vector 4 (box (let ((e-3 (vector-ref arg-0 2))) e-3)) 0 (PreludeC-45TypesC-45String-C-43C-43 "can't use reserved name " (let ((e-1 (vector-ref arg-0 0))) e-1)))) (else (vector 0 0)))))) +(define ParserC-45RuleC-45Source-isCapitalisedIdent (lambda (arg-0) (let ((u--val (let ((e-1 (vector-ref arg-0 0))) e-1))) (let ((u--loc (let ((e-3 (vector-ref arg-0 2))) e-3))) (let ((u--err (vector 4 (box u--loc) 0 (PreludeC-45TypesC-45String-C-43C-43 "Expected a capitalised identifier, got: " u--val)))) (ParserC-45RuleC-45Source-case--isCapitalisedIdent-3859 arg-0 u--val u--loc u--err (DataC-45String-strM u--val))))))) +(define ParserC-45RuleC-45Source-interpEnd (lambda () (vector 1 "Expected string interp end" (lambda (lcase-0) (case (vector-ref lcase-0 0) ((6) (box 0))(else '())))))) +(define ParserC-45RuleC-45Source-interpBegin (lambda () (vector 1 "Expected string interp begin" (lambda (lcase-0) (case (vector-ref lcase-0 0) ((5) (box 0))(else '())))))) +(define ParserC-45RuleC-45Source-intLit (lambda () (vector 1 "Expected integer literal" (lambda (lcase-0) (case (vector-ref lcase-0 0) ((2) (let ((e-0 (vector-ref lcase-0 1))) (box e-0)))(else '())))))) +(define ParserC-45RuleC-45Source-init (lambda () 0)) +(define ParserC-45RuleC-45Source-identWithCapital (lambda (arg-0 arg-1) (cond ((equal? arg-0 1) (ParserC-45RuleC-45Source-isCapitalisedIdent arg-1)) (else (vector 0 0))))) +(define ParserC-45RuleC-45Source-identPart (lambda () (vector 1 "Expected name" (lambda (lcase-0) (case (vector-ref lcase-0 0) ((9) (let ((e-0 (vector-ref lcase-0 1))) (box e-0)))(else '())))))) +(define ParserC-45RuleC-45Source-holeName (lambda () (vector 1 "Expected hole name" (lambda (lcase-0) (case (vector-ref lcase-0 0) ((8) (let ((e-0 (vector-ref lcase-0 1))) (box e-0)))(else '())))))) +(define ParserC-45RuleC-45Source-exactIdent (lambda (arg-0) (vector 1 (PreludeC-45TypesC-45String-C-43C-43 "Expected " arg-0) (lambda (lcase-0) (case (vector-ref lcase-0 0) ((9) (let ((e-0 (vector-ref lcase-0 1))) (let ((sc1 (PreludeC-45EqOrd-u--C-61C-61_Eq_String e-0 arg-0))) (cond ((equal? sc1 1) (box 0)) (else '())))))(else '())))))) +(define ParserC-45RuleC-45Source-eoi (lambda () (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40C-40GrammarC-32C-36stateC-41C-32C-36tokC-41C-32C-36cC-41 0 (lambda (eta-0) 0) (vector 2 "Expected end of input" (lambda (eta-0) (ParserC-45RuleC-45Source-n--6226-3211-u--isEOI eta-0)))))) +(define ParserC-45RuleC-45Source-documentationC-39 (lambda () (vector 1 "Expected documentation comment" (lambda (lcase-0) (case (vector-ref lcase-0 0) ((14) (let ((e-0 (vector-ref lcase-0 1))) (box e-0)))(else '())))))) +(define ParserC-45RuleC-45Source-documentation (lambda () (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40C-40GrammarC-32C-36stateC-41C-32C-36tokC-41C-32C-36cC-41 1 eta-2 eta-3))))) (lambda (eta-0) (LibrariesC-45DataC-45StringC-45Extra-unlines (DataC-45List1-forget eta-0))) (LibrariesC-45TextC-45Parser-some (ParserC-45RuleC-45Source-documentationC-39))))) +(define ParserC-45RuleC-45Source-dataConstructorName (lambda () (vector 12 1 1 (ParserC-45RuleC-45Source-opNonNS) (lambda () (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40C-40GrammarC-32C-36stateC-41C-32C-36tokC-41C-32C-36cC-41 1 eta-2 eta-3))))) (lambda (eta-0) (vector 1 eta-0)) (ParserC-45RuleC-45Source-capitalisedIdent)))))) +(define ParserC-45RuleC-45Source-continueF (lambda (arg-0 arg-1) (vector 12 0 0 (vector 11 0 0 (ParserC-45RuleC-45Source-eoi) arg-0) (lambda () (vector 12 1 0 (vector 10 0 (ParserC-45RuleC-45Source-keyword "where") (lambda () arg-0)) (lambda () (vector 9 0 0 (LibrariesC-45TextC-45Parser-column) (lambda (u--col) (LibrariesC-45TextC-45Parser-when (PreludeC-45EqOrd-u--C-60C-61_Ord_Int u--col arg-1) (lambda () arg-0)))))))))) +(define ParserC-45RuleC-45Source-continue (lambda (ext-0) (ParserC-45RuleC-45Source-continueF (vector 4 '() 0 "Unexpected end of expression") ext-0))) +(define ParserC-45RuleC-45Source-constant (lambda () (vector 1 "Expected constant" (lambda (lcase-0) (case (vector-ref lcase-0 0) ((0) (let ((e-0 (vector-ref lcase-0 1))) (PreludeC-45Types-u--map_Functor_Maybe (lambda (eta-0) (vector 11 eta-0)) (ParserC-45Support-getCharLit e-0)))) ((1) (let ((e-1 (vector-ref lcase-0 1))) (box (vector 12 e-1)))) ((2) (let ((e-2 (vector-ref lcase-0 1))) (box (vector 5 e-2)))) ((9) (let ((e-3 (vector-ref lcase-0 1))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45TT-isConstantType (vector 1 e-3)) (lambda (lcase-1) (case (vector-ref lcase-1 0) ((27) '())(else (box lcase-1)))))))(else '())))))) +(define ParserC-45RuleC-45Source-checkValid (lambda (arg-0 arg-1) (case (vector-ref arg-0 0) ((0) (vector 0 0)) ((1) (let ((e-0 (vector-ref arg-0 1))) (let ((sc1 (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-1 e-0))) (cond ((equal? sc1 1) (vector 0 0)) (else (vector 4 '() 0 "Invalid indentation")))))) ((2) (let ((e-1 (vector-ref arg-0 1))) (let ((sc1 (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-1 e-1))) (cond ((equal? sc1 1) (vector 0 0)) (else (vector 4 '() 0 "Invalid indentation")))))) (else (vector 4 '() 0 "End of block"))))) +(define ParserC-45RuleC-45Source-capitalisedName (lambda () (ParserC-45RuleC-45Source-nameWithCapital 1))) +(define ParserC-45RuleC-45Source-capitalisedIdent (lambda () (vector 8 0 (vector 13 (ParserC-45RuleC-45Source-identPart)) (lambda () (lambda (u--id) (vector 11 0 0 (ParserC-45RuleC-45Source-isCapitalisedIdent u--id) (vector 11 0 0 (ParserC-45RuleC-45Source-isNotReservedIdent u--id) (vector 0 (let ((e-1 (vector-ref u--id 0))) e-1))))))))) +(define ParserC-45RuleC-45Source-builtinType (lambda () (vector 12 1 1 (PreludeC-45Interfaces-C-60C-36 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40C-40GrammarC-32C-36stateC-41C-32C-36tokC-41C-32C-36cC-41 1 eta-2 eta-3))))) 0 (ParserC-45RuleC-45Source-exactIdent "Natural")) (lambda () (vector 12 1 1 (PreludeC-45Interfaces-C-60C-36 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40C-40GrammarC-32C-36stateC-41C-32C-36tokC-41C-32C-36cC-41 1 eta-2 eta-3))))) 1 (ParserC-45RuleC-45Source-exactIdent "NaturalToInteger")) (lambda () (PreludeC-45Interfaces-C-60C-36 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40C-40GrammarC-32C-36stateC-41C-32C-36tokC-41C-32C-36cC-41 1 eta-2 eta-3))))) 2 (ParserC-45RuleC-45Source-exactIdent "IntegerToNatural")))))))) +(define ParserC-45RuleC-45Source-blockWithOptHeaderAfter (lambda (arg-2 arg-3 arg-4) (vector 12 1 0 (vector 10 1 (ParserC-45RuleC-45Source-symbol "{") (lambda () (vector 11 0 1 (vector 6 ) (vector 9 0 1 (LibrariesC-45TextC-45Parser-optional 1 (ParserC-45RuleC-45Source-blockEntry (vector 0 ) arg-3)) (lambda (u--hidt) (ParserC-45RuleC-45Source-n--8237-5160-u--restOfBlock arg-4 arg-3 arg-2 u--hidt)))))) (lambda () (vector 9 0 0 (LibrariesC-45TextC-45Parser-column) (lambda (u--col) (let ((sc0 (PreludeC-45EqOrd-u--C-60C-61_Ord_Int u--col arg-2))) (cond ((equal? sc0 1) (vector 0 (cons '() '()))) (else (vector 9 0 0 (LibrariesC-45TextC-45Parser-optional 1 (ParserC-45RuleC-45Source-blockEntry (vector 1 u--col) arg-3)) (lambda (u--hidt) (vector 9 0 0 (ParserC-45RuleC-45Source-blockEntries (vector 1 u--col) arg-4) (lambda (u--ps) (vector 0 (cons (PreludeC-45Types-u--map_Functor_Maybe (lambda (eta-0) (Builtin-fst eta-0)) u--hidt) u--ps))))))))))))))) +(define ParserC-45RuleC-45Source-blockEntry (lambda (arg-1 arg-2) (vector 9 0 1 (LibrariesC-45TextC-45Parser-column) (lambda (u--col) (vector 11 0 1 (ParserC-45RuleC-45Source-checkValid arg-1 u--col) (vector 8 0 (arg-2 u--col) (lambda () (lambda (u--p) (vector 9 0 0 (ParserC-45RuleC-45Source-terminator arg-1 u--col) (lambda (u--validC-39) (vector 0 (cons u--p u--validC-39)))))))))))) +(define ParserC-45RuleC-45Source-blockEntries (lambda (arg-1 arg-2) (vector 12 0 0 (vector 11 0 0 (ParserC-45RuleC-45Source-eoi) (vector 0 '())) (lambda () (vector 12 1 0 (vector 8 0 (ParserC-45RuleC-45Source-blockEntry arg-1 arg-2) (lambda () (lambda (u--res) (vector 9 0 0 (ParserC-45RuleC-45Source-blockEntries (Builtin-snd u--res) arg-2) (lambda (u--ts) (vector 0 (cons (Builtin-fst u--res) u--ts))))))) (lambda () (vector 0 '()))))))) +(define ParserC-45RuleC-45Source-blockAfter (lambda (arg-1 arg-2) (vector 12 1 0 (vector 10 1 (ParserC-45RuleC-45Source-symbol "{") (lambda () (vector 11 0 1 (vector 6 ) (vector 9 0 1 (ParserC-45RuleC-45Source-blockEntries (vector 0 ) arg-2) (lambda (u--ps) (vector 10 0 (ParserC-45RuleC-45Source-symbol "}") (lambda () (vector 0 u--ps)))))))) (lambda () (vector 9 0 0 (LibrariesC-45TextC-45Parser-column) (lambda (u--col) (let ((sc0 (PreludeC-45EqOrd-u--C-60C-61_Ord_Int u--col arg-1))) (cond ((equal? sc0 1) (vector 0 '())) (else (ParserC-45RuleC-45Source-blockEntries (vector 1 u--col) arg-2)))))))))) +(define ParserC-45RuleC-45Source-block (lambda (arg-1) (vector 12 1 0 (vector 10 1 (ParserC-45RuleC-45Source-symbol "{") (lambda () (vector 11 0 1 (vector 6 ) (vector 9 0 1 (ParserC-45RuleC-45Source-blockEntries (vector 0 ) arg-1) (lambda (u--ps) (vector 10 0 (ParserC-45RuleC-45Source-symbol "}") (lambda () (vector 0 u--ps)))))))) (lambda () (vector 9 0 0 (LibrariesC-45TextC-45Parser-column) (lambda (u--col) (ParserC-45RuleC-45Source-blockEntries (vector 1 u--col) arg-1))))))) +(define ParserC-45RuleC-45Source-atEndIndent (lambda (arg-0) (vector 12 0 0 (ParserC-45RuleC-45Source-eoi) (lambda () (vector 9 0 0 (LibrariesC-45TextC-45Parser-column) (lambda (u--col) (LibrariesC-45TextC-45Parser-when (let ((sc0 (PreludeC-45EqOrd-u--C-60C-61_Ord_Int u--col arg-0))) (cond ((equal? sc0 1) 0) (else 1))) (lambda () (vector 4 '() 0 "Not the end of a block entry"))))))))) +(define ParserC-45RuleC-45Source-atEnd (lambda (arg-0) (vector 12 0 0 (ParserC-45RuleC-45Source-eoi) (lambda () (vector 12 0 0 (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40C-40GrammarC-32C-36stateC-41C-32C-36tokC-41C-32C-36cC-41 0 (lambda (eta-0) 0) (vector 2 "Expected end of block" (lambda (eta-0) (ParserC-45RuleC-45Source-isTerminator eta-0)))) (lambda () (vector 9 0 0 (LibrariesC-45TextC-45Parser-column) (lambda (u--col) (LibrariesC-45TextC-45Parser-when (let ((sc0 (PreludeC-45EqOrd-u--C-60C-61_Ord_Int u--col arg-0))) (cond ((equal? sc0 1) 0) (else 1))) (lambda () (vector 4 '() 0 "Not the end of a block entry"))))))))))) +(define ParserC-45RuleC-45Source-aDotIdent (lambda () (vector 1 "Expected dot+identifier" (lambda (lcase-0) (case (vector-ref lcase-0 0) ((11) (let ((e-0 (vector-ref lcase-0 1))) (box e-0)))(else '())))))) +(define ParserC-45Support-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32escapeC-39-1316 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((e-2 (car arg-4))) (let ((e-3 (cdr arg-4))) (if (null? e-2) (if (null? e-3) (ParserC-45Support-escapeC-39 arg-2 e-3) (let ((e-6 (car e-3))) (let ((e-7 (cdr e-3))) (if (null? e-7) (ParserC-45Support-escapeC-39 arg-2 e-3) (let ((e-9 (car e-7))) (let ((e-10 (cdr e-7))) (if (null? e-10) (let ((sc5 (ParserC-45Support-getEsc (PreludeC-45Types-fastPack (cons e-6 (cons e-9 '())))))) (if (null? sc5) (ParserC-45Support-escapeC-39 arg-2 arg-3) (let ((e-1 (unbox sc5))) (box (cons e-1 '()))))) (let ((e-12 (car e-10))) (let ((e-13 (cdr e-10))) (let ((sc5 (ParserC-45Support-getEsc (PreludeC-45Types-fastPack (cons e-6 (cons e-9 (cons e-12 '()))))))) (if (null? sc5) (let ((sc6 (ParserC-45Support-getEsc (PreludeC-45Types-fastPack (cons e-6 (cons e-9 '())))))) (if (null? sc6) (ParserC-45Support-escapeC-39 arg-2 arg-3) (let ((e-1 (unbox sc6))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (ParserC-45Support-escapeC-39 arg-2 (cons e-12 e-13)) (lambda (bind-0) (box (cons e-1 bind-0))))))) (let ((e-1 (unbox sc5))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (ParserC-45Support-escapeC-39 arg-2 e-13) (lambda (bind-0) (box (cons e-1 bind-0)))))))))))))))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (ParserC-45Support-escapeC-39 arg-2 e-3) (lambda (bind-0) (box (cons (PreludeC-45Cast-u--cast_Cast_Int_Char (PreludeC-45Cast-u--cast_Cast_String_Int (PreludeC-45Types-fastPack e-2))) bind-0))))))))) +(define ParserC-45Support-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32escapeC-39-1253 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((e-2 (car arg-4))) (let ((e-3 (cdr arg-4))) (if (null? e-2) (ParserC-45Support-escapeC-39 arg-2 e-3) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (ParserC-45Support-n--5599-836-u--toOct arg-0 arg-1 arg-2 1 (DataC-45List-reverse e-2)) (lambda (bind-0) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (ParserC-45Support-escapeC-39 arg-2 e-3) (lambda (bind-1) (PreludeC-45Types-u--pure_Applicative_Maybe (cons (PreludeC-45Cast-u--cast_Cast_Int_Char bind-0) bind-1))))))))))) +(define ParserC-45Support-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32escapeC-39-1187 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((e-2 (car arg-4))) (let ((e-3 (cdr arg-4))) (if (null? e-2) (ParserC-45Support-escapeC-39 arg-2 e-3) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (ParserC-45Support-n--5599-835-u--toHex arg-0 arg-1 arg-2 1 (DataC-45List-reverse e-2)) (lambda (bind-0) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (ParserC-45Support-escapeC-39 arg-2 e-3) (lambda (bind-1) (PreludeC-45Types-u--pure_Applicative_Maybe (cons (PreludeC-45Cast-u--cast_Cast_Int_Char bind-0) bind-1))))))))))) +(define ParserC-45Support-case--caseC-32blockC-32inC-32escapeC-39-936 (lambda (arg-0 arg-1 arg-2 arg-3) (if (null? arg-3) (ParserC-45Support-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32escapeC-39-1316 arg-0 arg-1 arg-2 arg-3 (DataC-45List-span (lambda (eta-0) (PreludeC-45Types-isDigit eta-0)) arg-3)) (let ((e-1 (car arg-3))) (let ((e-2 (cdr arg-3))) (cond ((equal? e-1 #\\) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (ParserC-45Support-escapeC-39 arg-2 e-2) (lambda (bind-0) (PreludeC-45Types-u--pure_Applicative_Maybe (cons #\\ bind-0))))) ((equal? e-1 (integer->char 10)) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (ParserC-45Support-escapeC-39 arg-2 e-2) (lambda (bind-0) (PreludeC-45Types-u--pure_Applicative_Maybe bind-0)))) ((equal? e-1 #\&) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (ParserC-45Support-escapeC-39 arg-2 e-2) (lambda (bind-0) (PreludeC-45Types-u--pure_Applicative_Maybe bind-0)))) ((equal? e-1 #\a) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (ParserC-45Support-escapeC-39 arg-2 e-2) (lambda (bind-0) (PreludeC-45Types-u--pure_Applicative_Maybe (cons (integer->char 7) bind-0))))) ((equal? e-1 #\b) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (ParserC-45Support-escapeC-39 arg-2 e-2) (lambda (bind-0) (PreludeC-45Types-u--pure_Applicative_Maybe (cons (integer->char 8) bind-0))))) ((equal? e-1 #\f) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (ParserC-45Support-escapeC-39 arg-2 e-2) (lambda (bind-0) (PreludeC-45Types-u--pure_Applicative_Maybe (cons (integer->char 12) bind-0))))) ((equal? e-1 #\n) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (ParserC-45Support-escapeC-39 arg-2 e-2) (lambda (bind-0) (PreludeC-45Types-u--pure_Applicative_Maybe (cons (integer->char 10) bind-0))))) ((equal? e-1 #\r) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (ParserC-45Support-escapeC-39 arg-2 e-2) (lambda (bind-0) (PreludeC-45Types-u--pure_Applicative_Maybe (cons (integer->char 13) bind-0))))) ((equal? e-1 #\t) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (ParserC-45Support-escapeC-39 arg-2 e-2) (lambda (bind-0) (PreludeC-45Types-u--pure_Applicative_Maybe (cons (integer->char 9) bind-0))))) ((equal? e-1 #\v) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (ParserC-45Support-escapeC-39 arg-2 e-2) (lambda (bind-0) (PreludeC-45Types-u--pure_Applicative_Maybe (cons (integer->char 11) bind-0))))) ((equal? e-1 #\') (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (ParserC-45Support-escapeC-39 arg-2 e-2) (lambda (bind-0) (PreludeC-45Types-u--pure_Applicative_Maybe (cons #\' bind-0))))) ((equal? e-1 #\") (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (ParserC-45Support-escapeC-39 arg-2 e-2) (lambda (bind-0) (PreludeC-45Types-u--pure_Applicative_Maybe (cons #\" bind-0))))) ((equal? e-1 #\x) (ParserC-45Support-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32escapeC-39-1187 arg-0 arg-1 arg-2 e-2 (DataC-45List-span (lambda (eta-0) (PreludeC-45Types-isHexDigit eta-0)) e-2))) ((equal? e-1 #\o) (ParserC-45Support-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32escapeC-39-1253 arg-0 arg-1 arg-2 e-2 (DataC-45List-span (lambda (eta-0) (PreludeC-45Types-isOctDigit eta-0)) e-2)))(else (ParserC-45Support-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32escapeC-39-1316 arg-0 arg-1 arg-2 arg-3 (DataC-45List-span (lambda (eta-0) (PreludeC-45Types-isDigit eta-0)) arg-3))))))))) +(define ParserC-45Support-n--5599-836-u--toOct (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (if (null? arg-4) (box 0) (let ((e-2 (car arg-4))) (let ((e-3 (cdr arg-4))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (ParserC-45Support-oct (PreludeC-45Types-toLower e-2)) (lambda (bind-0) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (ParserC-45Support-n--5599-836-u--toOct arg-0 arg-1 arg-2 (bs* arg-3 8 63) e-3) (lambda (bind-1) (PreludeC-45Types-u--pure_Applicative_Maybe (bs+ (bs* bind-0 arg-3 63) bind-1 63))))))))))) +(define ParserC-45Support-n--5599-835-u--toHex (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (if (null? arg-4) (box 0) (let ((e-2 (car arg-4))) (let ((e-3 (cdr arg-4))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (ParserC-45Support-hex (PreludeC-45Types-toLower e-2)) (lambda (bind-0) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (ParserC-45Support-n--5599-835-u--toHex arg-0 arg-1 arg-2 (bs* arg-3 16 63) e-3) (lambda (bind-1) (PreludeC-45Types-u--pure_Applicative_Maybe (bs+ (bs* bind-0 arg-3 63) bind-1 63))))))))))) +(define ParserC-45Support-oct (lambda (arg-0) (cond ((equal? arg-0 #\0) (box 0)) ((equal? arg-0 #\1) (box 1)) ((equal? arg-0 #\2) (box 2)) ((equal? arg-0 #\3) (box 3)) ((equal? arg-0 #\4) (box 4)) ((equal? arg-0 #\5) (box 5)) ((equal? arg-0 #\6) (box 6)) ((equal? arg-0 #\7) (box 7))(else '())))) +(define ParserC-45Support-hex (lambda (arg-0) (cond ((equal? arg-0 #\0) (box 0)) ((equal? arg-0 #\1) (box 1)) ((equal? arg-0 #\2) (box 2)) ((equal? arg-0 #\3) (box 3)) ((equal? arg-0 #\4) (box 4)) ((equal? arg-0 #\5) (box 5)) ((equal? arg-0 #\6) (box 6)) ((equal? arg-0 #\7) (box 7)) ((equal? arg-0 #\8) (box 8)) ((equal? arg-0 #\9) (box 9)) ((equal? arg-0 #\a) (box 10)) ((equal? arg-0 #\b) (box 11)) ((equal? arg-0 #\c) (box 12)) ((equal? arg-0 #\d) (box 13)) ((equal? arg-0 #\e) (box 14)) ((equal? arg-0 #\f) (box 15))(else '())))) +(define ParserC-45Support-getEsc (lambda (arg-0) (cond ((equal? arg-0 "NUL") (box (integer->char 0))) ((equal? arg-0 "SOH") (box (integer->char 1))) ((equal? arg-0 "STX") (box (integer->char 2))) ((equal? arg-0 "ETX") (box (integer->char 3))) ((equal? arg-0 "EOT") (box (integer->char 4))) ((equal? arg-0 "ENQ") (box (integer->char 5))) ((equal? arg-0 "ACK") (box (integer->char 6))) ((equal? arg-0 "BEL") (box (integer->char 7))) ((equal? arg-0 "BS") (box (integer->char 8))) ((equal? arg-0 "HT") (box (integer->char 9))) ((equal? arg-0 "LF") (box (integer->char 10))) ((equal? arg-0 "VT") (box (integer->char 11))) ((equal? arg-0 "FF") (box (integer->char 12))) ((equal? arg-0 "CR") (box (integer->char 13))) ((equal? arg-0 "SO") (box (integer->char 14))) ((equal? arg-0 "SI") (box (integer->char 15))) ((equal? arg-0 "DLE") (box (integer->char 16))) ((equal? arg-0 "DC1") (box (integer->char 17))) ((equal? arg-0 "DC2") (box (integer->char 18))) ((equal? arg-0 "DC3") (box (integer->char 19))) ((equal? arg-0 "DC4") (box (integer->char 20))) ((equal? arg-0 "NAK") (box (integer->char 21))) ((equal? arg-0 "SYN") (box (integer->char 22))) ((equal? arg-0 "ETB") (box (integer->char 23))) ((equal? arg-0 "CAN") (box (integer->char 24))) ((equal? arg-0 "EM") (box (integer->char 25))) ((equal? arg-0 "SUB") (box (integer->char 26))) ((equal? arg-0 "ESC") (box (integer->char 27))) ((equal? arg-0 "FS") (box (integer->char 28))) ((equal? arg-0 "GS") (box (integer->char 29))) ((equal? arg-0 "RS") (box (integer->char 30))) ((equal? arg-0 "US") (box (integer->char 31))) ((equal? arg-0 "SP") (box #\ )) ((equal? arg-0 "DEL") (box (integer->char 127)))(else '())))) +(define ParserC-45Support-getCharLit (lambda (arg-0) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (ParserC-45Support-escape 0 arg-0) (lambda (u--e) (let ((sc0 (PreludeC-45Types-u--C-61C-61_Eq_Nat (PreludeC-45TypesC-45String-length u--e) (PreludeC-45Types-u--fromInteger_Num_Nat 1)))) (cond ((equal? sc0 1) (box (string-ref u--e 0))) (else (let ((sc1 (PreludeC-45Types-u--C-61C-61_Eq_Nat (PreludeC-45TypesC-45String-length u--e) (PreludeC-45Types-u--fromInteger_Num_Nat 0)))) (cond ((equal? sc1 1) (box (integer->char 0))) (else '())))))))))) +(define ParserC-45Support-fromParsingError (lambda (arg-1 arg-2 arg-3) (let ((e-1 (car arg-3))) (let ((e-2 (cdr arg-3))) (if (null? e-2) (vector 53 (vector 0 arg-2 (cons 0 0) (cons 0 0)) (LibrariesC-45DataC-45StringC-45Extra-C-43C-62 e-1 #\.)) (let ((e-5 (unbox e-2))) (let ((u--l (let ((e-0 (vector-ref e-5 0))) e-0))) (let ((u--c (let ((e-6 (vector-ref e-5 1))) e-6))) (vector 53 (vector 0 arg-2 (cons u--l u--c) (cons u--l (bs+ u--c 1 63))) (LibrariesC-45DataC-45StringC-45Extra-C-43C-62 e-1 #\.)))))))))) +(define ParserC-45Support-fromLitError (lambda (arg-0 arg-1) (let ((e-0 (vector-ref arg-1 0))) (let ((e-1 (vector-ref arg-1 1))) (vector 51 (vector 0 arg-0 (cons e-0 e-1) (cons e-0 (bs+ e-1 1 63)))))))) +(define ParserC-45Support-fromLexError (lambda (arg-0 arg-1) (let ((e-2 (car arg-1))) (let ((e-3 (cdr arg-1))) (case (vector-ref e-2 0) ((2) (let ((e-12 (vector-ref e-2 1))) (let ((e-13 (vector-ref e-2 2))) (if (null? e-3) (let ((e-6 (car e-3))) (let ((e-7 (cdr e-3))) (let ((e-10 (car e-7))) (vector 52 (vector 0 arg-0 (cons e-6 e-10) (cons e-6 (bs+ e-10 1 63))) "Can't recognise token.")))) (let ((e-17 (cdr e-3))) (if (null? e-17) (let ((e-6 (car e-3))) (let ((e-7 (cdr e-3))) (let ((e-10 (car e-7))) (vector 52 (vector 0 arg-0 (cons e-6 e-10) (cons e-6 (bs+ e-10 1 63))) "Can't recognise token.")))) (vector 52 (vector 0 arg-0 e-12 e-13) "Bracket is not properly closed.")))))))(else (let ((e-6 (car e-3))) (let ((e-7 (cdr e-3))) (let ((e-10 (car e-7))) (vector 52 (vector 0 arg-0 (cons e-6 e-10) (cons e-6 (bs+ e-10 1 63))) "Can't recognise token.")))))))))) +(define ParserC-45Support-escapeC-39 (lambda (arg-0 arg-1) (if (null? arg-1) (PreludeC-45Types-u--pure_Applicative_Maybe '()) (let ((e-2 (car arg-1))) (let ((e-3 (cdr arg-1))) (let ((sc1 (DataC-45List-isPrefixOf (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Char arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Char arg-4 arg-5)))) arg-0 (cons e-2 e-3)))) (cond ((equal? sc1 1) (ParserC-45Support-case--caseC-32blockC-32inC-32escapeC-39-936 e-2 e-3 arg-0 (DataC-45List-drop (PreludeC-45TypesC-45List-length arg-0) (cons e-2 e-3)))) (else (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (ParserC-45Support-escapeC-39 arg-0 e-3) (lambda (bind-0) (box (cons e-2 bind-0)))))))))))) +(define ParserC-45Support-escape (lambda (arg-0 arg-1) (let ((u--escapeChars (cons #\\ (DataC-45List-replicate arg-0 #\#)))) (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (PreludeC-45Types-u--map_Functor_Maybe eta-2 eta-3))))) (lambda (eta-0) (PreludeC-45Types-fastPack eta-0)) (ParserC-45Support-escapeC-39 u--escapeChars (PreludeC-45Types-fastUnpack arg-1)))))) +(define LibrariesC-45TextC-45LexerC-45Tokenizer-case--tokeniseC-44getFirstMatch-1917 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (case (vector-ref arg-10 0) ((1) (let ((e-2 (vector-ref arg-10 1))) (vector 1 e-2))) (else (let ((e-5 (vector-ref arg-10 1))) (case (vector-ref e-5 0) ((2) (vector 0 e-5))(else (LibrariesC-45TextC-45LexerC-45Tokenizer-n--3596-1135-u--getFirstMatch arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (arg-7) arg-9)))))))) +(define LibrariesC-45TextC-45LexerC-45Tokenizer-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32tokeniseC-44getFirstMatch-1683 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28) (if (null? arg-28) (vector 0 (vector 2 (cons arg-4 arg-3) (cons arg-16 arg-17))) (let ((e-1 (unbox arg-28))) (if (null? e-1) (vector 0 (vector 2 (cons arg-4 arg-3) (cons arg-16 arg-17))) (let ((e-4 (car e-1))) (let ((e-5 (cdr e-1))) (if (null? e-5) (vector 0 (vector 2 (cons arg-4 arg-3) (cons arg-16 arg-17))) (let ((e-8 (car e-5))) (let ((e-9 (cdr e-5))) (if (null? e-9) (vector 0 (vector 2 (cons arg-4 arg-3) (cons arg-16 arg-17))) (let ((e-12 (car e-9))) (let ((e-13 (cdr e-9))) (let ((u--endTokC-39C-39 (vector (arg-8 e-4) 0 (vector arg-24 arg-25 e-8 e-12)))) (vector 1 (cons (PreludeC-45TypesC-45List-C-43C-43 (cons u--endTokC-39C-39 '()) (PreludeC-45TypesC-45List-C-43C-43 (DataC-45List-reverse arg-22) (cons arg-21 '()))) (cons e-8 (cons e-12 e-13)))))))))))))))))) +(define LibrariesC-45TextC-45LexerC-45Tokenizer-case--tokeniseC-44getFirstMatch-1414 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (if (null? arg-15) (vector 0 (vector 1 )) (let ((e-1 (unbox arg-15))) (let ((e-5 (car e-1))) (let ((e-6 (cdr e-1))) (let ((e-9 (car e-6))) (let ((e-10 (cdr e-6))) (let ((e-13 (car e-10))) (let ((e-14 (cdr e-10))) (let ((u--tag (arg-11 e-5))) (let ((u--middle ((arg-10) u--tag))) (let ((u--end (arg-9 u--tag))) (let ((u--beginTokC-39C-39 (vector (arg-12 e-5) 0 (vector arg-4 arg-3 e-9 e-13)))) (let ((sc4 (LibrariesC-45TextC-45LexerC-45Tokenizer-tokenise u--end u--middle e-9 e-13 '() e-14))) (let ((e-2 (car sc4))) (let ((e-3 (cdr sc4))) (let ((e-8 (car e-3))) (let ((e-7 (cdr e-3))) (let ((e-12 (car e-7))) (let ((e-11 (cdr e-7))) (let ((e-16 (car e-11))) (let ((e-15 (cdr e-11))) (case (vector-ref e-8 0) ((2) (vector 0 e-8))(else (LibrariesC-45TextC-45LexerC-45Tokenizer-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32tokeniseC-44getFirstMatch-1683 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 e-5 e-9 e-13 e-14 u--middle u--end u--beginTokC-39C-39 e-2 e-8 e-12 e-16 e-15 u--tag (LibrariesC-45TextC-45LexerC-45Tokenizer-n--3596-1134-u--getNext arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 u--end e-12 e-16 e-15))))))))))))))))))))))))))) +(define LibrariesC-45TextC-45LexerC-45Tokenizer-case--tokeniseC-44getFirstMatch-1317 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (if (null? arg-10) (vector 0 (vector 1 )) (let ((e-1 (unbox arg-10))) (if (null? e-1) (vector 0 (vector 1 )) (let ((e-4 (car e-1))) (let ((e-5 (cdr e-1))) (if (null? e-5) (vector 0 (vector 1 )) (let ((e-8 (car e-5))) (let ((e-9 (cdr e-5))) (if (null? e-9) (vector 0 (vector 1 )) (let ((e-12 (car e-9))) (let ((e-13 (cdr e-9))) (let ((u--tokC-39 (vector (arg-7 e-4) 0 (vector arg-4 arg-3 e-8 e-12)))) (vector 1 (cons (cons u--tokC-39 '()) (cons e-8 (cons e-12 e-13)))))))))))))))))) +(define LibrariesC-45TextC-45LexerC-45Tokenizer-case--tokeniseC-44getNext-1226 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (if (null? arg-11) '() (let ((e-1 (unbox arg-11))) (if (null? e-1) '() (let ((e-4 (car e-1))) (let ((e-5 (cdr e-1))) (let ((u--lineC-39 (bs+ arg-9 (PreludeC-45Cast-u--cast_Cast_Nat_Int (LibrariesC-45TextC-45LexerC-45Tokenizer-n--3596-1132-u--countNLs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-4)) 63))) (let ((u--colC-39 (LibrariesC-45TextC-45LexerC-45Tokenizer-n--3596-1133-u--getCols arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-4 arg-8))) (let ((u--tokenStr (PreludeC-45Types-fastPack (DataC-45List-reverse e-4)))) (PreludeC-45Types-u--pure_Applicative_Maybe (cons u--tokenStr (cons u--lineC-39 (cons u--colC-39 e-5)))))))))))))) +(define LibrariesC-45TextC-45LexerC-45Tokenizer-n--3596-1134-u--getNext (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (LibrariesC-45TextC-45LexerC-45Tokenizer-case--tokeniseC-44getNext-1226 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-10 arg-9 arg-8 arg-7 (LibrariesC-45TextC-45LexerC-45Core-scan arg-7 '() arg-10)))) +(define LibrariesC-45TextC-45LexerC-45Tokenizer-n--3596-1135-u--getFirstMatch (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (case (vector-ref arg-7 0) ((0) (let ((e-1 (vector-ref arg-7 1))) (let ((e-2 (vector-ref arg-7 2))) (LibrariesC-45TextC-45LexerC-45Tokenizer-case--tokeniseC-44getFirstMatch-1317 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-2 e-1 arg-8 (LibrariesC-45TextC-45LexerC-45Tokenizer-n--3596-1134-u--getNext arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-1 arg-4 arg-3 arg-8))))) ((1) (let ((e-5 (vector-ref arg-7 1))) (let ((e-6 (vector-ref arg-7 2))) (let ((e-7 (vector-ref arg-7 3))) (let ((e-8 (vector-ref arg-7 4))) (let ((e-9 (vector-ref arg-7 5))) (let ((e-10 (vector-ref arg-7 6))) (LibrariesC-45TextC-45LexerC-45Tokenizer-case--tokeniseC-44getFirstMatch-1414 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10 e-9 e-8 e-7 e-6 e-5 arg-8 (LibrariesC-45TextC-45LexerC-45Tokenizer-n--3596-1134-u--getNext arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 arg-4 arg-3 arg-8))))))))) (else (let ((e-12 (vector-ref arg-7 1))) (let ((e-13 (vector-ref arg-7 2))) (LibrariesC-45TextC-45LexerC-45Tokenizer-case--tokeniseC-44getFirstMatch-1917 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-13 e-12 arg-8 (LibrariesC-45TextC-45LexerC-45Tokenizer-n--3596-1135-u--getFirstMatch arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-12 arg-8)))))))) +(define LibrariesC-45TextC-45LexerC-45Tokenizer-n--3596-1133-u--getCols (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 (DataC-45List-span (lambda (arg-0) (PreludeC-45EqOrd-u--C-47C-61_Eq_Char arg-0 (integer->char 10))) arg-7))) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (if (null? e-3) (bs+ arg-8 (PreludeC-45Cast-u--cast_Cast_Nat_Int (PreludeC-45TypesC-45List-length e-2)) 63) (PreludeC-45Cast-u--cast_Cast_Nat_Int (PreludeC-45TypesC-45List-length e-2)))))))) +(define LibrariesC-45TextC-45LexerC-45Tokenizer-n--3596-1132-u--countNLs (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (PreludeC-45TypesC-45List-length (DataC-45List-filter (lambda (arg-0) (PreludeC-45EqOrd-u--C-61C-61_Eq_Char arg-0 (integer->char 10))) arg-7)))) +(define LibrariesC-45TextC-45LexerC-45Tokenizer-tokenise (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (if (null? arg-6) (cons (DataC-45List-reverse arg-5) (cons (vector 0 ) (cons arg-3 (cons arg-4 '())))) (let ((sc1 (LibrariesC-45TextC-45LexerC-45Core-scan arg-1 '() arg-6))) (if (null? sc1) (let ((sc2 (LibrariesC-45TextC-45LexerC-45Tokenizer-n--3596-1135-u--getFirstMatch arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-2 arg-6))) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (let ((e-8 (car e-2))) (let ((e-9 (cdr e-2))) (let ((e-12 (car e-9))) (let ((e-13 (cdr e-9))) (let ((e-16 (car e-13))) (let ((e-17 (cdr e-13))) (LibrariesC-45TextC-45LexerC-45Tokenizer-tokenise arg-1 arg-2 e-12 e-16 (PreludeC-45TypesC-45List-C-43C-43 e-8 arg-5) e-17))))))))) (else (let ((e-5 (vector-ref sc2 1))) (cons (DataC-45List-reverse arg-5) (cons e-5 (cons arg-3 (cons arg-4 arg-6)))))))) (cons (DataC-45List-reverse arg-5) (cons (vector 0 ) (cons arg-3 (cons arg-4 arg-6))))))))) +(define LibrariesC-45TextC-45LexerC-45Tokenizer-match (lambda (ext-0 ext-1) (vector 0 ext-0 ext-1))) +(define LibrariesC-45TextC-45LexerC-45Tokenizer-lexTo (lambda (arg-1 arg-2 arg-3) (let ((sc0 (LibrariesC-45TextC-45LexerC-45Tokenizer-tokenise arg-1 arg-2 0 0 '() (PreludeC-45Types-fastUnpack arg-3)))) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((e-6 (car e-3))) (let ((e-7 (cdr e-3))) (let ((e-10 (car e-7))) (let ((e-11 (cdr e-7))) (let ((e-14 (car e-11))) (let ((e-15 (cdr e-11))) (cons e-2 (cons e-6 (cons e-10 (cons e-14 (PreludeC-45Types-fastPack e-15)))))))))))))))) +(define LibrariesC-45TextC-45LexerC-45Tokenizer-lex (lambda (arg-1 arg-2) (LibrariesC-45TextC-45LexerC-45Tokenizer-lexTo (LibrariesC-45TextC-45LexerC-45Core-pred (lambda (eta-0) 0)) arg-1 arg-2))) +(define LibrariesC-45TextC-45LexerC-45Tokenizer-compose (lambda (ext-0 ext-1 ext-2 ext-3 ext-4 ext-5) (vector 1 ext-0 ext-1 ext-2 ext-3 ext-4 ext-5))) +(define LibrariesC-45TextC-45LexerC-45Tokenizer-C-60C-124C-62 (lambda (ext-0 ext-1) (vector 2 ext-0 ext-1))) +(define ParserC-45LexerC-45Source-case--lexTo-4324 (lambda (arg-0 arg-1 arg-2) (let ((e-2 (car arg-2))) (let ((e-3 (cdr arg-2))) (if (null? e-3) (vector 0 e-3) (let ((e-6 (car e-3))) (let ((e-7 (cdr e-3))) (case (vector-ref e-6 0) ((0) (if (null? e-7) (vector 0 e-3) (let ((e-10 (car e-7))) (let ((e-11 (cdr e-7))) (if (null? e-11) (vector 0 e-3) (let ((e-14 (car e-11))) (vector 1 (PreludeC-45TypesC-45List-C-43C-43 (DataC-45List-filter (lambda (eta-0) (ParserC-45LexerC-45Source-n--5021-4298-u--notComment arg-0 arg-1 eta-0)) e-2) (cons (vector (vector 16 ) 0 (vector e-10 e-14 e-10 e-14)) '())))))))))(else (vector 0 e-3)))))))))) +(define ParserC-45LexerC-45Source-n--4716-3990-u--removeUnderscores (lambda (arg-0) (PreludeC-45Types-fastPack (DataC-45List-filter (lambda (arg-1) (PreludeC-45EqOrd-u--C-47C-61_Eq_Char arg-1 #\_)) (PreludeC-45Types-fastUnpack arg-0))))) +(define ParserC-45LexerC-45Source-n--4716-3989-u--removeOptionalLeadingSpace (lambda (arg-0) (let ((sc0 (DataC-45String-strM arg-0))) (if (null? sc0) arg-0 (let ((e-0 (car sc0))) (let ((e-1 (cdr sc0))) (cond ((equal? e-0 #\ ) e-1)(else arg-0)))))))) +(define ParserC-45LexerC-45Source-n--4716-3987-u--parseNamespace (lambda (arg-0) (let ((sc0 (CoreC-45NameC-45Namespace-mkNamespacedIdent arg-0))) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (if (null? e-2) (ParserC-45LexerC-45Source-n--4716-3986-u--parseIdent e-3) (let ((e-6 (unbox e-2))) (vector 10 e-6 e-3)))))))) +(define ParserC-45LexerC-45Source-n--4716-3986-u--parseIdent (lambda (arg-0) (let ((sc0 (PreludeC-45Types-elem (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_String arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_String arg-4 arg-5)))) arg-0 (ParserC-45LexerC-45Source-keywords)))) (cond ((equal? sc0 1) (vector 17 arg-0)) (else (vector 9 arg-0)))))) +(define ParserC-45LexerC-45Source-n--5021-4298-u--notComment (lambda (arg-0 arg-1 arg-2) (let ((e-1 (vector-ref arg-2 0))) (case (vector-ref e-1 0) ((13) 0)(else 1))))) +(define ParserC-45LexerC-45Source-n--4592-3800-u--fromBin (lambda (arg-0 arg-1) (if (null? arg-1) 0 (let ((e-2 (car arg-1))) (let ((e-3 (cdr arg-1))) (cond ((equal? e-2 0) (* 2 (ParserC-45LexerC-45Source-n--4592-3800-u--fromBin arg-0 e-3)))(else (+ e-2 (* 2 (ParserC-45LexerC-45Source-n--4592-3800-u--fromBin arg-0 e-3)))))))))) +(define ParserC-45LexerC-45Source-n--4716-3988-u--countHashtag (lambda (ext-0) (PreludeC-45Types-count (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (lambda (arg-0) (PreludeC-45EqOrd-u--C-61C-61_Eq_Char arg-0 #\#)) (PreludeC-45Types-fastUnpack ext-0)))) +(define ParserC-45LexerC-45Source-n--4592-3799-u--castBin (lambda (arg-0 arg-1) (cond ((equal? arg-1 #\1) 1)(else 0)))) +(define ParserC-45LexerC-45Source-u--show_Show_Token (lambda (arg-0) (case (vector-ref arg-0 0) ((0) (let ((e-0 (vector-ref arg-0 1))) (PreludeC-45TypesC-45String-C-43C-43 "character " (PreludeC-45Show-u--show_Show_String e-0)))) ((1) (let ((e-1 (vector-ref arg-0 1))) (PreludeC-45TypesC-45String-C-43C-43 "double " (PreludeC-45Show-u--show_Show_Double e-1)))) ((2) (let ((e-2 (vector-ref arg-0 1))) (PreludeC-45TypesC-45String-C-43C-43 "literal " (PreludeC-45Show-u--show_Show_Integer e-2)))) ((3) (let ((e-3 (vector-ref arg-0 1))) (cond ((equal? e-3 1) "string begin") (else "multiline string begin")))) ((4) "string end") ((5) "string interp begin") ((6) "string interp end") ((7) (let ((e-4 (vector-ref arg-0 1))) (let ((e-5 (vector-ref arg-0 2))) (PreludeC-45TypesC-45String-C-43C-43 "string" (PreludeC-45TypesC-45String-C-43C-43 (LibrariesC-45DataC-45StringC-45Extra-replicate e-4 #\#) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45Show-u--show_Show_String e-5))))))) ((8) (let ((e-6 (vector-ref arg-0 1))) (PreludeC-45TypesC-45String-C-43C-43 "hole identifier " e-6))) ((9) (let ((e-7 (vector-ref arg-0 1))) (PreludeC-45TypesC-45String-C-43C-43 "identifier " e-7))) ((10) (let ((e-8 (vector-ref arg-0 1))) (let ((e-9 (vector-ref arg-0 2))) (PreludeC-45TypesC-45String-C-43C-43 "namespaced identifier " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-u--show_Show_Namespace e-8) (PreludeC-45TypesC-45String-C-43C-43 "." (PreludeC-45Show-u--show_Show_String e-9))))))) ((11) (let ((e-10 (vector-ref arg-0 1))) (PreludeC-45TypesC-45String-C-43C-43 "dot+identifier " e-10))) ((12) (let ((e-11 (vector-ref arg-0 1))) (PreludeC-45TypesC-45String-C-43C-43 "symbol " e-11))) ((13) "comment") ((14) (let ((e-12 (vector-ref arg-0 1))) (PreludeC-45TypesC-45String-C-43C-43 "doc comment: \"" (PreludeC-45TypesC-45String-C-43C-43 e-12 "\"")))) ((15) (let ((e-13 (vector-ref arg-0 1))) (PreludeC-45TypesC-45String-C-43C-43 "CGDirective " e-13))) ((16) "end of input") ((17) (let ((e-14 (vector-ref arg-0 1))) e-14)) ((18) (let ((e-15 (vector-ref arg-0 1))) (PreludeC-45TypesC-45String-C-43C-43 "pragma " e-15))) (else (let ((e-16 (vector-ref arg-0 1))) (PreludeC-45TypesC-45String-C-43C-43 "Unrecognised " e-16)))))) +(define ParserC-45LexerC-45Source-u--showPrec_Show_Token (lambda (arg-0 arg-1) (ParserC-45LexerC-45Source-u--show_Show_Token arg-1))) +(define ParserC-45LexerC-45Source-u--pretty_Pretty_Token (lambda (arg-1) (case (vector-ref arg-1 0) ((0) (let ((e-0 (vector-ref arg-1 1))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "character") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-squotes (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String e-0))))) ((1) (let ((e-1 (vector-ref arg-1 1))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "double") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Double e-1)))) ((2) (let ((e-2 (vector-ref arg-1 1))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "literal") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Integer e-2)))) ((3) (let ((e-3 (vector-ref arg-1 1))) (cond ((equal? e-3 1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "string begin")) (else (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "multiline string begin"))))) ((4) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "string end")) ((5) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "string interp begin")) ((6) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "string interp end")) ((7) (let ((e-4 (vector-ref arg-1 1))) (let ((e-5 (vector-ref arg-1 2))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String (PreludeC-45TypesC-45String-C-43C-43 "string" (LibrariesC-45DataC-45StringC-45Extra-replicate e-4 #\#))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-dquotes (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String e-5)))))) ((8) (let ((e-6 (vector-ref arg-1 1))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "hole identifier") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String e-6)))) ((9) (let ((e-7 (vector-ref arg-1 1))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "identifier") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String e-7)))) ((10) (let ((e-8 (vector-ref arg-1 1))) (let ((e-9 (vector-ref arg-1 2))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "namespaced identifier") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (CoreC-45NameC-45Namespace-u--pretty_Pretty_Namespace e-8) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-dot)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String e-9)))))) ((11) (let ((e-10 (vector-ref arg-1 1))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "dot+identifier") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String e-10)))) ((12) (let ((e-11 (vector-ref arg-1 1))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "symbol") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String e-11)))) ((13) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "comment")) ((14) (let ((e-12 (vector-ref arg-1 1))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "doc comment:") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-dquotes (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String e-12))))) ((15) (let ((e-13 (vector-ref arg-1 1))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "CGDirective") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String e-13)))) ((16) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "end of input")) ((17) (let ((e-14 (vector-ref arg-1 1))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String e-14))) ((18) (let ((e-15 (vector-ref arg-1 1))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "pragma") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String e-15)))) (else (let ((e-16 (vector-ref arg-1 1))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "Unrecognised") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String e-16))))))) +(define ParserC-45LexerC-45Source-u--prettyPrec_Pretty_Token (lambda (arg-1 arg-2) (ParserC-45LexerC-45Source-u--pretty_Pretty_Token arg-2))) +(define ParserC-45LexerC-45Source-validSymbol (lambda () (LibrariesC-45TextC-45Lexer-some (LibrariesC-45TextC-45LexerC-45Core-pred (lambda (eta-0) (ParserC-45LexerC-45Source-isOpChar eta-0)))))) +(define ParserC-45LexerC-45Source-toEndComment (lambda (arg-0) (cond ((equal? arg-0 0) (LibrariesC-45TextC-45LexerC-45Core-empty))(else (let ((e-0 (- arg-0 1))) (LibrariesC-45TextC-45LexerC-45Core-C-60C-124C-62 (vector 4 (LibrariesC-45TextC-45Lexer-some (LibrariesC-45TextC-45LexerC-45Core-pred (lambda (u--c) (let ((sc0 (PreludeC-45EqOrd-u--C-47C-61_Eq_Char u--c #\-))) (cond ((equal? sc0 1) (let ((sc1 (PreludeC-45EqOrd-u--C-47C-61_Eq_Char u--c #\{))) (cond ((equal? sc1 1) (PreludeC-45EqOrd-u--C-47C-61_Eq_Char u--c #\")) (else 0)))) (else 0)))))) (lambda () (ParserC-45LexerC-45Source-toEndComment (+ 1 e-0)))) (LibrariesC-45TextC-45LexerC-45Core-C-60C-124C-62 (vector 4 (LibrariesC-45TextC-45Lexer-is #\{) (lambda () (ParserC-45LexerC-45Source-singleBrace e-0))) (LibrariesC-45TextC-45LexerC-45Core-C-60C-124C-62 (vector 4 (LibrariesC-45TextC-45Lexer-is #\-) (lambda () (ParserC-45LexerC-45Source-singleDash e-0))) (vector 4 (LibrariesC-45TextC-45Lexer-stringLit) (lambda () (ParserC-45LexerC-45Source-toEndComment (+ 1 e-0)))))))))))) +(define ParserC-45LexerC-45Source-symbols (lambda () (cons "," (cons ";" (cons "_" (cons "`" '())))))) +(define ParserC-45LexerC-45Source-stringTokens (lambda (arg-0 arg-1) (let ((u--escapeChars (PreludeC-45TypesC-45String-C-43C-43 "\\" (LibrariesC-45DataC-45StringC-45Extra-replicate arg-1 #\#)))) (let ((u--interpStart (PreludeC-45TypesC-45String-C-43C-43 u--escapeChars "{"))) (let ((u--escapeLexer (LibrariesC-45TextC-45Lexer-escape (LibrariesC-45TextC-45Lexer-exact u--escapeChars) (LibrariesC-45TextC-45Lexer-any)))) (let ((u--charLexer (LibrariesC-45TextC-45Lexer-non (LibrariesC-45TextC-45Lexer-exact (cond ((equal? arg-0 1) (ParserC-45LexerC-45Source-multilineEnd arg-1)) (else (ParserC-45LexerC-45Source-stringEnd arg-1))))))) (LibrariesC-45TextC-45LexerC-45Tokenizer-C-60C-124C-62 (LibrariesC-45TextC-45LexerC-45Tokenizer-match (LibrariesC-45TextC-45Lexer-someUntil (LibrariesC-45TextC-45Lexer-exact u--interpStart) (LibrariesC-45TextC-45LexerC-45Core-C-60C-124C-62 u--escapeLexer u--charLexer)) (lambda (u--x) (vector 7 arg-1 u--x))) (lambda () (LibrariesC-45TextC-45LexerC-45Tokenizer-compose (LibrariesC-45TextC-45Lexer-exact u--interpStart) (lambda (eta-0) (vector 5 )) (lambda (eta-0) 0) (lambda () (lambda (_-3983) (ParserC-45LexerC-45Source-rawTokens))) (lambda (eta-0) (LibrariesC-45TextC-45Lexer-is #\})) (lambda (eta-0) (vector 6 ))))))))))) +(define ParserC-45LexerC-45Source-stringEnd (lambda (arg-0) (PreludeC-45TypesC-45String-C-43C-43 "\"" (LibrariesC-45DataC-45StringC-45Extra-replicate arg-0 #\#)))) +(define ParserC-45LexerC-45Source-stringBegin (lambda () (vector 5 (LibrariesC-45TextC-45Lexer-many (LibrariesC-45TextC-45Lexer-is #\#)) (LibrariesC-45TextC-45Lexer-is #\")))) +(define ParserC-45LexerC-45Source-singleDash (lambda (arg-0) (LibrariesC-45TextC-45LexerC-45Core-C-60C-124C-62 (vector 4 (LibrariesC-45TextC-45Lexer-is #\-) (lambda () (ParserC-45LexerC-45Source-doubleDash arg-0))) (LibrariesC-45TextC-45LexerC-45Core-C-60C-124C-62 (vector 4 (LibrariesC-45TextC-45Lexer-is #\}) (lambda () (ParserC-45LexerC-45Source-toEndComment arg-0))) (ParserC-45LexerC-45Source-toEndComment (+ 1 arg-0)))))) +(define ParserC-45LexerC-45Source-singleBrace (lambda (arg-0) (LibrariesC-45TextC-45LexerC-45Core-C-60C-124C-62 (vector 4 (vector 4 (LibrariesC-45TextC-45Lexer-is #\-) (lambda () (LibrariesC-45TextC-45Lexer-many (LibrariesC-45TextC-45Lexer-is #\-)))) (lambda () (ParserC-45LexerC-45Source-singleDash (+ 1 arg-0)))) (ParserC-45LexerC-45Source-toEndComment (+ 1 arg-0))))) +(define ParserC-45LexerC-45Source-reservedSymbols (lambda () (PreludeC-45TypesC-45List-C-43C-43 (ParserC-45LexerC-45Source-symbols) (PreludeC-45TypesC-45List-C-43C-43 (ParserC-45LexerC-45Source-groupSymbols) (PreludeC-45TypesC-45List-C-43C-43 (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (PreludeC-45Types-u--map_Functor_List eta-2 eta-3))))) (lambda (eta-0) (ParserC-45LexerC-45Source-groupClose eta-0)) (ParserC-45LexerC-45Source-groupSymbols)) (cons "%" (cons "\\" (cons ":" (cons "=" (cons ":=" (cons "|" (cons "|||" (cons "<-" (cons "->" (cons "=>" (cons "?" (cons "!" (cons "&" (cons "**" (cons ".." (cons "~" '()))))))))))))))))))))) +(define ParserC-45LexerC-45Source-rawTokens (lambda () (LibrariesC-45TextC-45LexerC-45Tokenizer-C-60C-124C-62 (LibrariesC-45TextC-45LexerC-45Tokenizer-match (ParserC-45LexerC-45Common-comment) (lambda (eta-0) (vector 13 ))) (lambda () (LibrariesC-45TextC-45LexerC-45Tokenizer-C-60C-124C-62 (LibrariesC-45TextC-45LexerC-45Tokenizer-match (ParserC-45LexerC-45Source-blockComment) (lambda (eta-0) (vector 13 ))) (lambda () (LibrariesC-45TextC-45LexerC-45Tokenizer-C-60C-124C-62 (LibrariesC-45TextC-45LexerC-45Tokenizer-match (ParserC-45LexerC-45Source-docComment) (lambda (eta-0) (vector 14 (ParserC-45LexerC-45Source-n--4716-3989-u--removeOptionalLeadingSpace (LibrariesC-45DataC-45StringC-45Extra-drop (+ 1 (+ 1 (+ 1 0))) eta-0))))) (lambda () (LibrariesC-45TextC-45LexerC-45Tokenizer-C-60C-124C-62 (LibrariesC-45TextC-45LexerC-45Tokenizer-match (ParserC-45LexerC-45Source-cgDirective) (lambda (eta-0) (ParserC-45LexerC-45Source-mkDirective eta-0))) (lambda () (LibrariesC-45TextC-45LexerC-45Tokenizer-C-60C-124C-62 (LibrariesC-45TextC-45LexerC-45Tokenizer-match (ParserC-45LexerC-45Source-holeIdent) (lambda (u--x) (vector 8 (DataC-45String-strTail u--x)))) (lambda () (LibrariesC-45TextC-45LexerC-45Tokenizer-C-60C-124C-62 (LibrariesC-45TextC-45LexerC-45Tokenizer-compose (LibrariesC-45TextC-45Lexer-choice 1 (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (PreludeC-45Types-u--map_Functor_List eta-2 eta-3))))) (lambda (eta-0) (LibrariesC-45TextC-45Lexer-exact eta-0)) (ParserC-45LexerC-45Source-groupSymbols))) (lambda (eta-0) (vector 12 eta-0)) (lambda (eta-0) eta-0) (lambda () (lambda (_-4118) (ParserC-45LexerC-45Source-rawTokens))) (lambda (eta-0) (LibrariesC-45TextC-45Lexer-exact (ParserC-45LexerC-45Source-groupClose eta-0))) (lambda (eta-0) (vector 12 eta-0))) (lambda () (LibrariesC-45TextC-45LexerC-45Tokenizer-C-60C-124C-62 (LibrariesC-45TextC-45LexerC-45Tokenizer-match (LibrariesC-45TextC-45Lexer-choice 1 (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (PreludeC-45Types-u--map_Functor_List eta-2 eta-3))))) (lambda (eta-0) (LibrariesC-45TextC-45Lexer-exact eta-0)) (ParserC-45LexerC-45Source-symbols))) (lambda (eta-0) (vector 12 eta-0))) (lambda () (LibrariesC-45TextC-45LexerC-45Tokenizer-C-60C-124C-62 (LibrariesC-45TextC-45LexerC-45Tokenizer-match (ParserC-45LexerC-45Source-doubleLit) (lambda (eta-0) (vector 1 (PreludeC-45Cast-u--cast_Cast_String_Double eta-0)))) (lambda () (LibrariesC-45TextC-45LexerC-45Tokenizer-C-60C-124C-62 (LibrariesC-45TextC-45LexerC-45Tokenizer-match (LibrariesC-45TextC-45Lexer-binUnderscoredLit) (lambda (eta-0) (vector 2 (ParserC-45LexerC-45Source-fromBinLit (ParserC-45LexerC-45Source-n--4716-3990-u--removeUnderscores eta-0))))) (lambda () (LibrariesC-45TextC-45LexerC-45Tokenizer-C-60C-124C-62 (LibrariesC-45TextC-45LexerC-45Tokenizer-match (LibrariesC-45TextC-45Lexer-hexUnderscoredLit) (lambda (eta-0) (vector 2 (ParserC-45LexerC-45Source-fromHexLit (ParserC-45LexerC-45Source-n--4716-3990-u--removeUnderscores eta-0))))) (lambda () (LibrariesC-45TextC-45LexerC-45Tokenizer-C-60C-124C-62 (LibrariesC-45TextC-45LexerC-45Tokenizer-match (LibrariesC-45TextC-45Lexer-octUnderscoredLit) (lambda (eta-0) (vector 2 (ParserC-45LexerC-45Source-fromOctLit (ParserC-45LexerC-45Source-n--4716-3990-u--removeUnderscores eta-0))))) (lambda () (LibrariesC-45TextC-45LexerC-45Tokenizer-C-60C-124C-62 (LibrariesC-45TextC-45LexerC-45Tokenizer-match (LibrariesC-45TextC-45Lexer-digitsUnderscoredLit) (lambda (eta-0) (vector 2 (PreludeC-45Cast-u--cast_Cast_String_Integer (ParserC-45LexerC-45Source-n--4716-3990-u--removeUnderscores eta-0))))) (lambda () (LibrariesC-45TextC-45LexerC-45Tokenizer-C-60C-124C-62 (LibrariesC-45TextC-45LexerC-45Tokenizer-compose (ParserC-45LexerC-45Source-multilineBegin) (lambda (eta-0) (vector 3 1)) (lambda (eta-0) (ParserC-45LexerC-45Source-n--4716-3988-u--countHashtag eta-0)) (lambda () (lambda (eta-0) (ParserC-45LexerC-45Source-stringTokens 1 eta-0))) (lambda (eta-0) (LibrariesC-45TextC-45Lexer-exact (ParserC-45LexerC-45Source-multilineEnd eta-0))) (lambda (eta-0) (vector 4 ))) (lambda () (LibrariesC-45TextC-45LexerC-45Tokenizer-C-60C-124C-62 (LibrariesC-45TextC-45LexerC-45Tokenizer-compose (ParserC-45LexerC-45Source-stringBegin) (lambda (eta-0) (vector 3 0)) (lambda (eta-0) (ParserC-45LexerC-45Source-n--4716-3988-u--countHashtag eta-0)) (lambda () (lambda (eta-0) (ParserC-45LexerC-45Source-stringTokens 0 eta-0))) (lambda (u--hashtag) (vector 4 (LibrariesC-45TextC-45Lexer-exact (ParserC-45LexerC-45Source-stringEnd u--hashtag)) (lambda () (LibrariesC-45TextC-45LexerC-45Core-reject (LibrariesC-45TextC-45Lexer-is #\"))))) (lambda (eta-0) (vector 4 ))) (lambda () (LibrariesC-45TextC-45LexerC-45Tokenizer-C-60C-124C-62 (LibrariesC-45TextC-45LexerC-45Tokenizer-match (LibrariesC-45TextC-45Lexer-charLit) (lambda (eta-0) (vector 0 (LibrariesC-45UtilsC-45String-stripQuotes eta-0)))) (lambda () (LibrariesC-45TextC-45LexerC-45Tokenizer-C-60C-124C-62 (LibrariesC-45TextC-45LexerC-45Tokenizer-match (ParserC-45LexerC-45Source-dotIdent) (lambda (u--x) (vector 11 (DataC-45String-strTail u--x)))) (lambda () (LibrariesC-45TextC-45LexerC-45Tokenizer-C-60C-124C-62 (LibrariesC-45TextC-45LexerC-45Tokenizer-match (ParserC-45LexerC-45Common-namespacedIdent) (lambda (eta-0) (ParserC-45LexerC-45Source-n--4716-3987-u--parseNamespace eta-0))) (lambda () (LibrariesC-45TextC-45LexerC-45Tokenizer-C-60C-124C-62 (LibrariesC-45TextC-45LexerC-45Tokenizer-match (ParserC-45LexerC-45Common-identNormal) (lambda (eta-0) (ParserC-45LexerC-45Source-n--4716-3986-u--parseIdent eta-0))) (lambda () (LibrariesC-45TextC-45LexerC-45Tokenizer-C-60C-124C-62 (LibrariesC-45TextC-45LexerC-45Tokenizer-match (ParserC-45LexerC-45Source-pragma) (lambda (u--x) (vector 18 (DataC-45String-strTail u--x)))) (lambda () (LibrariesC-45TextC-45LexerC-45Tokenizer-C-60C-124C-62 (LibrariesC-45TextC-45LexerC-45Tokenizer-match (LibrariesC-45TextC-45Lexer-space) (lambda (eta-0) (vector 13 ))) (lambda () (LibrariesC-45TextC-45LexerC-45Tokenizer-C-60C-124C-62 (LibrariesC-45TextC-45LexerC-45Tokenizer-match (ParserC-45LexerC-45Source-validSymbol) (lambda (eta-0) (vector 12 eta-0))) (lambda () (LibrariesC-45TextC-45LexerC-45Tokenizer-match (LibrariesC-45TextC-45Lexer-symbol) (lambda (eta-0) (vector 19 eta-0))))))))))))))))))))))))))))))))))))))))))))))) +(define ParserC-45LexerC-45Source-pragma (lambda () (vector 4 (LibrariesC-45TextC-45Lexer-is #\%) (lambda () (ParserC-45LexerC-45Common-identNormal))))) +(define ParserC-45LexerC-45Source-multilineEnd (lambda (arg-0) (PreludeC-45TypesC-45String-C-43C-43 "\"\"\"" (LibrariesC-45DataC-45StringC-45Extra-replicate arg-0 #\#)))) +(define ParserC-45LexerC-45Source-multilineBegin (lambda () (vector 4 (vector 4 (vector 5 (LibrariesC-45TextC-45Lexer-many (LibrariesC-45TextC-45Lexer-is #\#)) (LibrariesC-45TextC-45Lexer-exact "\"\"\"")) (lambda () (LibrariesC-45TextC-45Lexer-manyUntil (LibrariesC-45TextC-45Lexer-newline) (LibrariesC-45TextC-45Lexer-space)))) (lambda () (LibrariesC-45TextC-45Lexer-newline))))) +(define ParserC-45LexerC-45Source-mkDirective (lambda (arg-0) (vector 15 (DataC-45String-trim (PreludeC-45Types-substr (+ 1 (+ 1 (+ 1 0))) (PreludeC-45TypesC-45String-length arg-0) arg-0))))) +(define ParserC-45LexerC-45Source-lexTo (lambda (arg-0 arg-1) (ParserC-45LexerC-45Source-case--lexTo-4324 arg-1 arg-0 (LibrariesC-45TextC-45LexerC-45Tokenizer-lexTo arg-0 (ParserC-45LexerC-45Source-rawTokens) arg-1)))) +(define ParserC-45LexerC-45Source-keywords (lambda () (cons "data" (cons "module" (cons "where" (cons "let" (cons "in" (cons "do" (cons "record" (cons "auto" (cons "default" (cons "implicit" (cons "mutual" (cons "namespace" (cons "parameters" (cons "with" (cons "proof" (cons "impossible" (cons "case" (cons "of" (cons "if" (cons "then" (cons "else" (cons "forall" (cons "rewrite" (cons "using" (cons "interface" (cons "implementation" (cons "open" (cons "import" (cons "public" (cons "export" (cons "private" (cons "infixl" (cons "infixr" (cons "infix" (cons "prefix" (cons "total" (cons "partial" (cons "covering" '())))))))))))))))))))))))))))))))))))))))) +(define ParserC-45LexerC-45Source-isOpName (lambda (arg-0) (DataC-45Maybe-fromMaybe (lambda () 0) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Name-userNameRoot arg-0) (lambda (u--n) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (PreludeC-45Types-u--map_Functor_Maybe eta-2 eta-3))))) (lambda (eta-0) (Builtin-fst eta-0)) (PreludeC-45Types-strUncons u--n)) (lambda (u--c) (PreludeC-45Interfaces-C-62C-62 (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (PreludeC-45Types-u--map_Functor_Maybe u--func arg-133))))) (lambda (u--a) (lambda (arg-527) (PreludeC-45Types-u--pure_Applicative_Maybe arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (PreludeC-45Types-u--C-60C-42C-62_Applicative_Maybe arg-528 arg-530)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe arg-811 arg-812))))) (lambda (u--a) (lambda (arg-814) (PreludeC-45Types-u--join_Monad_Maybe arg-814)))) (PreludeC-45Interfaces-guard (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (PreludeC-45Types-u--map_Functor_Maybe u--func arg-133))))) (lambda (u--a) (lambda (arg-527) (PreludeC-45Types-u--pure_Applicative_Maybe arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (PreludeC-45Types-u--C-60C-42C-62_Applicative_Maybe arg-528 arg-530)))))) (lambda (u--a) (PreludeC-45Types-u--empty_Alternative_Maybe)) (lambda (u--a) (lambda (arg-763) (lambda (arg-764) (PreludeC-45Types-u--C-60C-124C-62_Alternative_Maybe arg-763 arg-764))))) (ParserC-45LexerC-45Source-isOpChar u--c)) (lambda () (PreludeC-45Types-u--pure_Applicative_Maybe 1)))))))))) +(define ParserC-45LexerC-45Source-isOpChar (lambda (arg-0) (PreludeC-45Types-elem (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Char arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Char arg-4 arg-5)))) arg-0 (PreludeC-45Types-fastUnpack ":!#$%&*+./<=>?@\\^|-~")))) +(define ParserC-45LexerC-45Source-holeIdent (lambda () (vector 4 (LibrariesC-45TextC-45Lexer-is #\?) (lambda () (ParserC-45LexerC-45Common-identNormal))))) +(define ParserC-45LexerC-45Source-groupSymbols (lambda () (cons ".(" (cons "@{" (cons "[|" (cons "(" (cons "{" (cons "[<" (cons "[>" (cons "[" (cons "`(" (cons "`{{" (cons "`[" '()))))))))))))) +(define ParserC-45LexerC-45Source-groupClose (lambda (arg-0) (cond ((equal? arg-0 ".(") ")") ((equal? arg-0 "@{") "}") ((equal? arg-0 "[|") "|]") ((equal? arg-0 "(") ")") ((equal? arg-0 "[") "]") ((equal? arg-0 "[<") "]") ((equal? arg-0 "[>") "]") ((equal? arg-0 "{") "}") ((equal? arg-0 "`(") ")") ((equal? arg-0 "`{{") "}}") ((equal? arg-0 "`[") "]")(else "")))) +(define ParserC-45LexerC-45Source-fromOctLit (lambda (arg-0) (let ((sc0 (PreludeC-45Types-u--C-60C-61_Ord_Nat (PreludeC-45TypesC-45String-length arg-0) (PreludeC-45Types-u--fromInteger_Num_Nat 2)))) (cond ((equal? sc0 1) 0) (else (let ((u--num (DataC-45String-strTail (DataC-45String-strTail arg-0)))) (DataC-45Maybe-fromMaybe (lambda () 0) (LibrariesC-45UtilsC-45Octal-fromOct (PreludeC-45Types-reverse u--num))))))))) +(define ParserC-45LexerC-45Source-fromHexLit (lambda (arg-0) (let ((sc0 (PreludeC-45Types-u--C-60C-61_Ord_Nat (PreludeC-45TypesC-45String-length arg-0) (PreludeC-45Types-u--fromInteger_Num_Nat 2)))) (cond ((equal? sc0 1) 0) (else (let ((u--num (DataC-45String-strTail (DataC-45String-strTail arg-0)))) (DataC-45Maybe-fromMaybe (lambda () 0) (LibrariesC-45UtilsC-45Hex-fromHex (PreludeC-45Types-reverse u--num))))))))) +(define ParserC-45LexerC-45Source-fromBinLit (lambda (arg-0) (let ((sc0 (PreludeC-45Types-u--C-60C-61_Ord_Nat (PreludeC-45TypesC-45String-length arg-0) (PreludeC-45Types-u--fromInteger_Num_Nat 2)))) (cond ((equal? sc0 1) 0) (else (let ((u--num (DataC-45String-strTail (DataC-45String-strTail arg-0)))) (ParserC-45LexerC-45Source-n--4592-3800-u--fromBin arg-0 (DataC-45List-reverse (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (ParserC-45LexerC-45Source-n--4592-3799-u--castBin arg-0 eta-0)) (PreludeC-45Types-fastUnpack u--num)))))))))) +(define ParserC-45LexerC-45Source-doubleLit (lambda () (vector 4 (vector 4 (vector 4 (LibrariesC-45TextC-45Lexer-digits) (lambda () (LibrariesC-45TextC-45Lexer-is #\.))) (lambda () (LibrariesC-45TextC-45Lexer-digits))) (lambda () (LibrariesC-45TextC-45Lexer-opt (vector 4 (vector 4 (LibrariesC-45TextC-45Lexer-is #\e) (lambda () (LibrariesC-45TextC-45Lexer-opt (LibrariesC-45TextC-45LexerC-45Core-C-60C-124C-62 (LibrariesC-45TextC-45Lexer-is #\-) (LibrariesC-45TextC-45Lexer-is #\+))))) (lambda () (LibrariesC-45TextC-45Lexer-digits)))))))) +(define ParserC-45LexerC-45Source-doubleDash (lambda (arg-0) (vector 5 (LibrariesC-45TextC-45Lexer-many (LibrariesC-45TextC-45Lexer-is #\-)) (LibrariesC-45TextC-45Lexer-choice 1 (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (cons (vector 4 (LibrariesC-45TextC-45Lexer-is #\}) (lambda () (ParserC-45LexerC-45Source-toEndComment arg-0))) (cons (vector 5 (LibrariesC-45TextC-45Lexer-many (LibrariesC-45TextC-45Lexer-isNot (integer->char 10))) (ParserC-45LexerC-45Source-toEndComment (+ 1 arg-0))) '())))))) +(define ParserC-45LexerC-45Source-dotIdent (lambda () (vector 4 (LibrariesC-45TextC-45Lexer-is #\.) (lambda () (ParserC-45LexerC-45Common-identNormal))))) +(define ParserC-45LexerC-45Source-docComment (lambda () (vector 4 (vector 4 (vector 4 (LibrariesC-45TextC-45Lexer-is #\|) (lambda () (LibrariesC-45TextC-45Lexer-is #\|))) (lambda () (LibrariesC-45TextC-45Lexer-is #\|))) (lambda () (LibrariesC-45TextC-45Lexer-many (LibrariesC-45TextC-45Lexer-isNot (integer->char 10))))))) +(define ParserC-45LexerC-45Source-cgDirective (lambda () (vector 4 (LibrariesC-45TextC-45Lexer-exact "%cg") (lambda () (LibrariesC-45TextC-45LexerC-45Core-C-60C-124C-62 (vector 4 (vector 4 (vector 4 (vector 4 (vector 4 (LibrariesC-45TextC-45Lexer-some (LibrariesC-45TextC-45Lexer-space)) (lambda () (LibrariesC-45TextC-45Lexer-some (LibrariesC-45TextC-45LexerC-45Core-pred (lambda (eta-0) (PreludeC-45Types-isAlphaNum eta-0)))))) (lambda () (LibrariesC-45TextC-45Lexer-many (LibrariesC-45TextC-45Lexer-space)))) (lambda () (LibrariesC-45TextC-45Lexer-is #\{))) (lambda () (LibrariesC-45TextC-45Lexer-many (LibrariesC-45TextC-45Lexer-isNot #\})))) (lambda () (LibrariesC-45TextC-45Lexer-is #\}))) (LibrariesC-45TextC-45Lexer-many (LibrariesC-45TextC-45Lexer-isNot (integer->char 10)))))))) +(define ParserC-45LexerC-45Source-blockComment (lambda () (vector 4 (vector 4 (LibrariesC-45TextC-45Lexer-is #\{) (lambda () (LibrariesC-45TextC-45Lexer-is #\-))) (lambda () (ParserC-45LexerC-45Source-toEndComment (+ 1 0)))))) +(define LibrariesC-45UtilsC-45Octal-n--2129-678-u--fromOctCharsC-39 (lambda (arg-0 arg-1) (if (null? arg-1) (box 0) (let ((e-2 (car arg-1))) (let ((e-3 (cdr arg-1))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (LibrariesC-45UtilsC-45Octal-fromOctDigit (PreludeC-45Types-toLower e-2)) (lambda (u--digit) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (LibrariesC-45UtilsC-45Octal-n--2129-678-u--fromOctCharsC-39 (* arg-0 8) e-3) (lambda (u--digits) (PreludeC-45Types-u--pure_Applicative_Maybe (+ (* (PreludeC-45Cast-u--cast_Cast_Int_Integer u--digit) arg-0) u--digits))))))))))) +(define LibrariesC-45UtilsC-45Octal-fromOctDigit (lambda (arg-0) (cond ((equal? arg-0 #\0) (box 0)) ((equal? arg-0 #\1) (box 1)) ((equal? arg-0 #\2) (box 2)) ((equal? arg-0 #\3) (box 3)) ((equal? arg-0 #\4) (box 4)) ((equal? arg-0 #\5) (box 5)) ((equal? arg-0 #\6) (box 6)) ((equal? arg-0 #\7) (box 7))(else '())))) +(define LibrariesC-45UtilsC-45Octal-fromOctChars (lambda (ext-0) (LibrariesC-45UtilsC-45Octal-n--2129-678-u--fromOctCharsC-39 1 ext-0))) +(define LibrariesC-45UtilsC-45Octal-fromOct (lambda (ext-0) (LibrariesC-45UtilsC-45Octal-fromOctChars (PreludeC-45Types-fastUnpack ext-0)))) +(define DataC-45PrimitivesC-45ViewsC-45IntV-divides (lambda (arg-0 arg-1) (cond ((equal? arg-1 0) (vector 0 ))(else (let ((u--dividend (let ((sc0 (PreludeC-45EqOrd-u--C-60_Ord_Int arg-1 (blodwen-toSignedInt 0 63)))) (cond ((equal? sc0 1) (PreludeC-45Num-u--negate_Neg_Int (PreludeC-45Num-u--div_Integral_Int arg-0 (PreludeC-45Num-u--abs_Abs_Int arg-1)))) (else (PreludeC-45Num-u--div_Integral_Int arg-0 arg-1)))))) (let ((u--remainder (PreludeC-45Num-u--abs_Abs_Int (PreludeC-45Num-u--C-45_Neg_Int arg-0 (bs* u--dividend arg-1 63))))) (Builtin-believe_me (vector 1 u--dividend u--remainder (Builtin-believe_me 0))))))))) +(define LibrariesC-45UtilsC-45Hex-with--asHexC-44asHexC-39-636 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((e-1 (vector-ref arg-2 1))) (let ((e-2 (vector-ref arg-2 2))) (LibrariesC-45UtilsC-45Hex-n--2363-627-u--asHexC-39 arg-0 e-1 (cons (LibrariesC-45UtilsC-45Hex-hexDigit e-2) arg-3)))))) +(define LibrariesC-45UtilsC-45Hex-n--2530-787-u--fromHexCharsC-39 (lambda (arg-0 arg-1) (if (null? arg-1) (box 0) (let ((e-2 (car arg-1))) (let ((e-3 (cdr arg-1))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (LibrariesC-45UtilsC-45Hex-fromHexDigit (PreludeC-45Types-toLower e-2)) (lambda (u--digit) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (LibrariesC-45UtilsC-45Hex-n--2530-787-u--fromHexCharsC-39 (* arg-0 16) e-3) (lambda (u--digits) (PreludeC-45Types-u--pure_Applicative_Maybe (+ (* (PreludeC-45Cast-u--cast_Cast_Int_Integer u--digit) arg-0) u--digits))))))))))) +(define LibrariesC-45UtilsC-45Hex-n--2363-627-u--asHexC-39 (lambda (arg-0 arg-1 arg-2) (cond ((equal? arg-1 0) arg-2)(else (LibrariesC-45UtilsC-45Hex-with--asHexC-44asHexC-39-636 arg-1 arg-1 (DataC-45PrimitivesC-45ViewsC-45IntV-divides arg-1 16) arg-2))))) +(define LibrariesC-45UtilsC-45Hex-leftPad (lambda (arg-0 arg-1 arg-2) (let ((sc0 (PreludeC-45Types-u--C-60_Ord_Nat (PreludeC-45TypesC-45String-length arg-2) arg-1))) (cond ((equal? sc0 1) (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Types-fastPack (DataC-45List-replicate (PreludeC-45Types-prim__integerToNat (- arg-1 (PreludeC-45TypesC-45String-length arg-2))) arg-0)) arg-2)) (else arg-2))))) +(define LibrariesC-45UtilsC-45Hex-hexDigit (lambda (arg-0) (cond ((equal? arg-0 0) #\0) ((equal? arg-0 1) #\1) ((equal? arg-0 2) #\2) ((equal? arg-0 3) #\3) ((equal? arg-0 4) #\4) ((equal? arg-0 5) #\5) ((equal? arg-0 6) #\6) ((equal? arg-0 7) #\7) ((equal? arg-0 8) #\8) ((equal? arg-0 9) #\9) ((equal? arg-0 10) #\a) ((equal? arg-0 11) #\b) ((equal? arg-0 12) #\c) ((equal? arg-0 13) #\d) ((equal? arg-0 14) #\e) ((equal? arg-0 15) #\f)(else #\X)))) +(define LibrariesC-45UtilsC-45Hex-fromHexDigit (lambda (arg-0) (cond ((equal? arg-0 #\0) (box 0)) ((equal? arg-0 #\1) (box 1)) ((equal? arg-0 #\2) (box 2)) ((equal? arg-0 #\3) (box 3)) ((equal? arg-0 #\4) (box 4)) ((equal? arg-0 #\5) (box 5)) ((equal? arg-0 #\6) (box 6)) ((equal? arg-0 #\7) (box 7)) ((equal? arg-0 #\8) (box 8)) ((equal? arg-0 #\9) (box 9)) ((equal? arg-0 #\a) (box 10)) ((equal? arg-0 #\b) (box 11)) ((equal? arg-0 #\c) (box 12)) ((equal? arg-0 #\d) (box 13)) ((equal? arg-0 #\e) (box 14)) ((equal? arg-0 #\f) (box 15))(else '())))) +(define LibrariesC-45UtilsC-45Hex-fromHexChars (lambda (ext-0) (LibrariesC-45UtilsC-45Hex-n--2530-787-u--fromHexCharsC-39 1 ext-0))) +(define LibrariesC-45UtilsC-45Hex-fromHex (lambda (ext-0) (LibrariesC-45UtilsC-45Hex-fromHexChars (PreludeC-45Types-fastUnpack ext-0)))) +(define LibrariesC-45UtilsC-45Hex-asHex (lambda (arg-0) (let ((sc0 (PreludeC-45EqOrd-u--C-62_Ord_Int arg-0 (blodwen-toSignedInt 0 63)))) (cond ((equal? sc0 1) (PreludeC-45Types-fastPack (LibrariesC-45UtilsC-45Hex-n--2363-627-u--asHexC-39 arg-0 arg-0 '()))) (else "0"))))) +(define ParserC-45LexerC-45Common-spacesOrNewlines (lambda () (LibrariesC-45TextC-45Lexer-some (LibrariesC-45TextC-45LexerC-45Core-C-60C-124C-62 (LibrariesC-45TextC-45Lexer-space) (LibrariesC-45TextC-45Lexer-newline))))) +(define ParserC-45LexerC-45Common-namespacedIdent (lambda () (vector 4 (ParserC-45LexerC-45Common-namespaceIdent) (lambda () (LibrariesC-45TextC-45Lexer-opt (vector 4 (LibrariesC-45TextC-45Lexer-is #\.) (lambda () (ParserC-45LexerC-45Common-identNormal)))))))) +(define ParserC-45LexerC-45Common-namespaceIdent (lambda () (vector 4 (vector 4 (LibrariesC-45TextC-45LexerC-45Core-pred (lambda (eta-0) (ParserC-45LexerC-45Common-isIdentStart 1 eta-0))) (lambda () (LibrariesC-45TextC-45Lexer-many (LibrariesC-45TextC-45LexerC-45Core-pred (lambda (eta-0) (ParserC-45LexerC-45Common-isIdentTrailing 1 eta-0)))))) (lambda () (LibrariesC-45TextC-45Lexer-many (vector 4 (vector 4 (LibrariesC-45TextC-45Lexer-is #\.) (lambda () (vector 4 (LibrariesC-45TextC-45LexerC-45Core-pred (lambda (eta-0) (ParserC-45LexerC-45Common-isIdentStart 1 eta-0))) (lambda () (LibrariesC-45TextC-45Lexer-many (LibrariesC-45TextC-45LexerC-45Core-pred (lambda (eta-0) (ParserC-45LexerC-45Common-isIdentTrailing 1 eta-0)))))))) (lambda () (LibrariesC-45TextC-45LexerC-45Core-expect (LibrariesC-45TextC-45Lexer-is #\.))))))))) +(define ParserC-45LexerC-45Common-isIdentTrailing (lambda (arg-0 arg-1) (cond ((equal? arg-0 0) (cond ((equal? arg-1 #\-) 1)(else (cond ((equal? arg-1 #\') 1) ((equal? arg-1 #\_) 1)(else (let ((sc1 (PreludeC-45Types-isAlphaNum arg-1))) (cond ((equal? sc1 1) 1) (else (PreludeC-45EqOrd-u--C-62_Ord_Char arg-1 (PreludeC-45Types-chr (blodwen-toSignedInt 160 63)))))))))))(else (cond ((equal? arg-1 #\') 1) ((equal? arg-1 #\_) 1)(else (let ((sc0 (PreludeC-45Types-isAlphaNum arg-1))) (cond ((equal? sc0 1) 1) (else (PreludeC-45EqOrd-u--C-62_Ord_Char arg-1 (PreludeC-45Types-chr (blodwen-toSignedInt 160 63)))))))))))) +(define ParserC-45LexerC-45Common-isIdentStart (lambda (arg-0 arg-1) (cond ((equal? arg-1 #\_) 1)(else (cond ((equal? arg-0 1) (let ((sc1 (PreludeC-45Types-isUpper arg-1))) (cond ((equal? sc1 1) 1) (else (PreludeC-45EqOrd-u--C-62_Ord_Char arg-1 (PreludeC-45Types-chr (blodwen-toSignedInt 160 63)))))))(else (let ((sc0 (PreludeC-45Types-isAlpha arg-1))) (cond ((equal? sc0 1) 1) (else (PreludeC-45EqOrd-u--C-62_Ord_Char arg-1 (PreludeC-45Types-chr (blodwen-toSignedInt 160 63)))))))))))) +(define ParserC-45LexerC-45Common-isIdentNormal (lambda (ext-0) (let ((sc0 (PreludeC-45Types-fastUnpack ext-0))) (if (null? sc0) 0 (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 (ParserC-45LexerC-45Common-isIdentStart 2 e-2))) (cond ((equal? sc1 1) (PreludeC-45Interfaces-all (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (lambda (eta-0) (ParserC-45LexerC-45Common-isIdentTrailing 2 eta-0)) e-3)) (else 0))))))))) +(define ParserC-45LexerC-45Common-identNormal (lambda () (vector 4 (LibrariesC-45TextC-45LexerC-45Core-pred (lambda (eta-0) (ParserC-45LexerC-45Common-isIdentStart 2 eta-0))) (lambda () (LibrariesC-45TextC-45Lexer-many (LibrariesC-45TextC-45LexerC-45Core-pred (lambda (eta-0) (ParserC-45LexerC-45Common-isIdentTrailing 2 eta-0)))))))) +(define ParserC-45LexerC-45Common-identAllowDashes (lambda () (vector 4 (LibrariesC-45TextC-45LexerC-45Core-pred (lambda (eta-0) (ParserC-45LexerC-45Common-isIdentStart 0 eta-0))) (lambda () (LibrariesC-45TextC-45Lexer-many (LibrariesC-45TextC-45LexerC-45Core-pred (lambda (eta-0) (ParserC-45LexerC-45Common-isIdentTrailing 0 eta-0)))))))) +(define ParserC-45LexerC-45Common-comment (lambda () (vector 4 (vector 4 (vector 4 (vector 4 (LibrariesC-45TextC-45Lexer-is #\-) (lambda () (LibrariesC-45TextC-45Lexer-is #\-))) (lambda () (LibrariesC-45TextC-45Lexer-many (LibrariesC-45TextC-45Lexer-is #\-)))) (lambda () (LibrariesC-45TextC-45LexerC-45Core-reject (LibrariesC-45TextC-45Lexer-is #\})))) (lambda () (LibrariesC-45TextC-45Lexer-many (LibrariesC-45TextC-45Lexer-isNot (integer->char 10))))))) +(define TTImpC-45Unelab-case--caseC-32blockC-32inC-32unelabCase-4208 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (case (vector-ref arg-7 0) ((1) (let ((e-1 (vector-ref arg-7 2))) (let ((e-2 (vector-ref arg-7 3))) (let ((e-4 (vector-ref arg-7 5))) (let ((sc1 (TTImpC-45Unelab-n--6465-3961-u--findArgPos arg-0 arg-1 arg-2 arg-3 e-2))) (if (null? sc1) (lambda (eta-0) (vector 1 arg-0)) (let ((e-5 (unbox sc1))) (let ((sc2 (PreludeC-45Types-u--C-61C-61_Eq_Nat (PreludeC-45TypesC-45List-length arg-1) (PreludeC-45TypesC-45List-length e-1)))) (cond ((equal? sc2 1) (TTImpC-45Unelab-n--6465-3966-u--mkCase arg-0 arg-1 arg-2 arg-3 e-4 e-5 0 arg-1)) (else (lambda (eta-0) (vector 1 arg-0))))))))))))(else (lambda (eta-0) (vector 1 arg-0)))))) +(define TTImpC-45Unelab-n--6217-3716-u--usedBinder (lambda (arg-0 arg-1 arg-3 arg-4 arg-5 arg-6) (case (vector-ref arg-6 0) ((1) (let ((e-3 (vector-ref arg-6 3))) (let ((e-4 (vector-ref arg-6 4))) (let ((sc1 (TTImpC-45Unelab-used arg-5 e-3))) (cond ((equal? sc1 1) 1) (else (TTImpC-45Unelab-used arg-5 e-4)))))))(else (TTImpC-45Unelab-used arg-5 (CoreC-45TT-binderType arg-6)))))) +(define TTImpC-45Unelab-n--6478-4955-u--uniqueLocal (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 (PreludeC-45Types-elem (cons (lambda (arg-10) (lambda (arg-11) (CoreC-45Name-u--C-61C-61_Eq_Name arg-10 arg-11))) (lambda (arg-10) (lambda (arg-11) (CoreC-45Name-u--C-47C-61_Eq_Name arg-10 arg-11)))) arg-9 arg-8))) (cond ((equal? sc0 1) (TTImpC-45Unelab-n--6478-4955-u--uniqueLocal arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (TTImpC-45Unelab-n--6478-4954-u--next arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-9))) (else arg-9))))) +(define TTImpC-45Unelab-n--9557-6547-u--toName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (case (vector-ref arg-7 0) ((0) (let ((e-4 (vector-ref arg-7 3))) (box (CoreC-45TT-nameAt arg-0 e-4))))(else '())))) +(define TTImpC-45Unelab-n--9557-6549-u--showScope (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (PreludeC-45TypesC-45String-C-43C-43 " " (TTImpC-45Unelab-n--9557-6548-u--showNScope arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (DataC-45List-mapMaybe (lambda (eta-0) (TTImpC-45Unelab-n--9557-6547-u--toName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-0)) arg-7))))) +(define TTImpC-45Unelab-n--9557-6548-u--showNScope (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (if (null? arg-7) "[no locals in scope]" (PreludeC-45TypesC-45String-C-43C-43 "[locals in scope: " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-showSep ", " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45Name-u--show_Show_Name eta-0)) (DataC-45List-nub (cons (lambda (arg-8) (lambda (arg-9) (CoreC-45Name-u--C-61C-61_Eq_Name arg-8 arg-9))) (lambda (arg-8) (lambda (arg-9) (CoreC-45Name-u--C-47C-61_Eq_Name arg-8 arg-9)))) arg-7))) "]"))))) +(define TTImpC-45Unelab-n--6465-3964-u--nthArg (lambda (arg-0 arg-1 arg-2 arg-3 arg-5 arg-6 arg-7) (case (vector-ref arg-7 0) ((4) (let ((e-1 (vector-ref arg-7 1))) (let ((e-2 (vector-ref arg-7 2))) (let ((e-3 (vector-ref arg-7 3))) (TTImpC-45Unelab-n--6465-3963-u--getNth arg-0 arg-1 arg-2 arg-3 arg-6 (vector 4 e-1 e-2 e-3))))))(else (vector 10 arg-5 0))))) +(define TTImpC-45Unelab-n--6478-4954-u--next (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (case (vector-ref arg-8 0) ((2) (let ((e-0 (vector-ref arg-8 1))) (let ((e-1 (vector-ref arg-8 2))) (vector 2 e-0 (bs+ e-1 1 63))))) ((1) (let ((e-2 (vector-ref arg-8 1))) (vector 2 (PreludeC-45Show-u--show_Show_String e-2) 0))) ((0) (let ((e-3 (vector-ref arg-8 1))) (let ((e-4 (vector-ref arg-8 2))) (vector 0 e-3 (TTImpC-45Unelab-n--6478-4954-u--next arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-4)))))(else (vector 2 (CoreC-45Name-u--show_Show_Name arg-8) 0))))) +(define TTImpC-45Unelab-n--6465-3965-u--mkClause (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((e-2 (car arg-6))) (let ((e-3 (cdr arg-6))) (let ((e-6 (car e-3))) (let ((e-7 (cdr e-3))) (let ((e-10 (car e-7))) (let ((e-11 (cdr e-7))) (let ((u--pat (TTImpC-45Unelab-n--6465-3964-u--nthArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-10))) (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-logTerm e-2 arg-3 "unelab.case" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))))))))))))) (lambda () "Unelaborating LHS") u--pat eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((act-25 (TTImpC-45Unelab-unelabTy e-2 arg-3 (vector 0 ) e-6 u--pat eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref act-25 1))) (let ((act-26 (CoreC-45ContextC-45Log-logTerm e-2 arg-3 "unelab.case" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))))))))))))) (lambda () "Unelaborating RHS") e-11 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-4 (vector-ref act-26 1))) (vector 0 e-4))) (else (let ((act-27 (CoreC-45Normalise-logEnv e-2 arg-3 "unelab.case" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))))))))))))) "In Env" e-6 eta-0))) (case (vector-ref act-27 0) ((0) (let ((e-4 (vector-ref act-27 1))) (vector 0 e-4))) (else (let ((act-28 (TTImpC-45Unelab-unelabTy e-2 arg-3 (vector 0 ) e-6 e-11 eta-0))) (case (vector-ref act-28 0) ((0) (let ((e-4 (vector-ref act-28 1))) (vector 0 e-4))) (else (let ((e-13 (vector-ref act-28 1))) (vector 1 (vector 0 arg-4 (Builtin-fst e-8) (Builtin-fst e-13)))))))))))))))))))))))))))))) +(define TTImpC-45Unelab-n--6465-3966-u--mkCase (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (cond ((equal? arg-5 0) (lambda (clam-0) (if (null? arg-7) (vector 1 arg-0) (let ((e-5 (car arg-7))) (case (vector-ref e-5 0) ((0) (let ((e-7 (vector-ref e-5 1))) (let ((e-8 (vector-ref e-5 2))) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (TTImpC-45Unelab-n--6465-3965-u--mkClause arg-0 arg-1 arg-2 arg-3 e-7 arg-6 eta-0)) arg-4 '() clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-24 1))) (vector 1 (vector 4 e-7 e-8 (vector 32 e-7 0) e-9)))))))))(else (vector 1 arg-0)))))))(else (let ((e-0 (- arg-5 1))) (if (null? arg-7) (lambda (eta-0) (vector 1 arg-0)) (let ((e-3 (cdr arg-7))) (TTImpC-45Unelab-n--6465-3966-u--mkCase arg-0 arg-1 arg-2 arg-3 arg-4 e-0 (+ 1 arg-6) e-3)))))))) +(define TTImpC-45Unelab-n--6487-6020-u--isNoSugar (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (case (vector-ref arg-13 0) ((1) 1)(else 0)))) +(define TTImpC-45Unelab-n--6487-6021-u--isDefImp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-14) (case (vector-ref arg-14 0) ((3) 1)(else 0)))) +(define TTImpC-45Unelab-n--6465-3962-u--idxOrDefault (lambda (arg-0 arg-1 arg-2 arg-3 arg-5 arg-6 arg-7) (cond ((equal? arg-5 0) (if (null? arg-7) arg-6 (let ((e-3 (car arg-7))) e-3)))(else (let ((e-1 (- arg-5 1))) (if (null? arg-7) arg-6 (let ((e-7 (cdr arg-7))) (TTImpC-45Unelab-n--6465-3962-u--idxOrDefault arg-0 arg-1 arg-2 arg-3 e-1 arg-6 e-7)))))))) +(define TTImpC-45Unelab-n--6465-3963-u--getNth (lambda (arg-0 arg-1 arg-2 arg-3 arg-5 arg-6) (let ((sc0 (CoreC-45TT-getFnArgs arg-6))) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (TTImpC-45Unelab-n--6465-3962-u--idxOrDefault arg-0 arg-1 arg-2 arg-3 arg-5 e-2 e-3)))))) +(define TTImpC-45Unelab-n--6465-3961-u--findArgPos (lambda (arg-0 arg-1 arg-2 arg-3 arg-5) (case (vector-ref arg-5 0) ((0) (let ((e-2 (vector-ref arg-5 2))) (box e-2)))(else '())))) +(define TTImpC-45Unelab-u--show_Show_IArg (lambda (arg-0) (case (vector-ref arg-0 0) ((0) (let ((e-1 (vector-ref arg-0 2))) (TTImpC-45TTImp-u--show_Show_RawImp e-1))) ((1) (let ((e-3 (vector-ref arg-0 2))) (PreludeC-45TypesC-45String-C-43C-43 "@{" (PreludeC-45TypesC-45String-C-43C-43 (TTImpC-45TTImp-u--show_Show_RawImp e-3) "}")))) (else (let ((e-5 (vector-ref arg-0 2))) (let ((e-6 (vector-ref arg-0 3))) (PreludeC-45TypesC-45String-C-43C-43 "{" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-5) (PreludeC-45TypesC-45String-C-43C-43 " = " (PreludeC-45TypesC-45String-C-43C-43 (TTImpC-45TTImp-u--show_Show_RawImp e-6) "}")))))))))) +(define TTImpC-45Unelab-u--showPrec_Show_IArg (lambda (arg-0 arg-1) (TTImpC-45Unelab-u--show_Show_IArg arg-1))) +(define TTImpC-45Unelab-used (lambda (arg-1 arg-2) (case (vector-ref arg-2 0) ((0) (let ((e-4 (vector-ref arg-2 3))) (PreludeC-45Types-u--C-61C-61_Eq_Nat arg-1 e-4))) ((3) (let ((e-7 (vector-ref arg-2 1))) (let ((e-8 (vector-ref arg-2 2))) (let ((e-9 (vector-ref arg-2 3))) (let ((e-10 (vector-ref arg-2 4))) (let ((sc1 (TTImpC-45Unelab-n--6217-3716-u--usedBinder e-7 e-8 e-10 e-9 arg-1 e-9))) (cond ((equal? sc1 1) 1) (else (TTImpC-45Unelab-used (PreludeC-45Types-u--C-43_Num_Nat (PreludeC-45Types-u--fromInteger_Num_Nat 1) arg-1) e-10))))))))) ((2) (let ((e-15 (vector-ref arg-2 4))) (PreludeC-45Interfaces-any (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (lambda (eta-0) (TTImpC-45Unelab-used arg-1 eta-0)) e-15))) ((4) (let ((e-18 (vector-ref arg-2 2))) (let ((e-19 (vector-ref arg-2 3))) (let ((sc1 (TTImpC-45Unelab-used arg-1 e-18))) (cond ((equal? sc1 1) 1) (else (TTImpC-45Unelab-used arg-1 e-19))))))) ((5) (let ((e-24 (vector-ref arg-2 4))) (TTImpC-45Unelab-used arg-1 e-24))) ((6) (let ((e-28 (vector-ref arg-2 3))) (TTImpC-45Unelab-used arg-1 e-28))) ((7) (let ((e-33 (vector-ref arg-2 4))) (TTImpC-45Unelab-used arg-1 e-33))) ((8) (let ((e-37 (vector-ref arg-2 3))) (TTImpC-45Unelab-used arg-1 e-37)))(else 0)))) +(define TTImpC-45Unelab-unelabUniqueBinders (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (TTImpC-45Unelab-unelabTy arg-0 arg-1 (vector 1 1) arg-2 arg-3 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (Builtin-fst e-5)))))))) +(define TTImpC-45Unelab-unelabTyC-39 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (case (vector-ref arg-4 0) ((0) (let ((e-2 (vector-ref arg-4 1))) (let ((e-4 (vector-ref arg-4 3))) (let ((u--nm (CoreC-45TT-nameAt arg-0 e-4))) (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-log arg-1 "unelab.case" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))))))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Found local name: " (CoreC-45Name-u--show_Show_Name u--nm))) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((u--ty (CoreC-45Normalise-gnf arg-0 arg-3 (CoreC-45TT-binderType (CoreC-45Env-getBinder (cons (lambda (u--n) (lambda (u--vars) (lambda (arg-5607) (CoreC-45TT-u--weaken_Weaken_Term arg-5607)))) (lambda (u--vars) (lambda (u--ns) (lambda (arg-5613) (lambda (arg-5615) (CoreC-45TT-u--weakenNs_Weaken_Term arg-5613 arg-5615)))))) arg-0 e-4 arg-3))))) (vector 1 (cons (vector 0 e-2 u--nm) u--ty))))))))))) ((1) (let ((e-7 (vector-ref arg-4 1))) (let ((e-9 (vector-ref arg-4 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-lookupTyExact e-9 (let ((e-0 (vector-ref e-5 0))) e-0) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (if (null? e-6) (case (vector-ref arg-2 0) ((2) (vector 1 (cons (vector 32 e-7 1) (CoreC-45Normalise-gErased e-7))))(else (vector 1 (cons (vector 0 e-7 e-9) (CoreC-45Normalise-gErased e-7))))) (let ((e-1 (unbox e-6))) (let ((act-26 (CoreC-45Context-getFullName arg-1 e-9 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref act-26 1))) (let ((act-27 (case (vector-ref arg-2 0) ((1) (vector 1 e-10))(else (CoreC-45Context-aliasName arg-1 e-10 eta-0))))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref act-27 1))) (let ((act-28 (CoreC-45ContextC-45Log-log arg-1 "unelab.var" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))))))))))))))))))))))))))))))))))))))))))) (lambda () (DataC-45String-unwords (cons "Found name:" (cons (CoreC-45Name-u--show_Show_Name e-9) (cons (PreludeC-45TypesC-45String-C-43C-43 " (aka " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-10) ")")) (cons "sugared to" (cons (CoreC-45Name-u--show_Show_Name e-11) '()))))))) eta-0))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (vector 1 (cons (vector 0 e-7 e-11) (CoreC-45Normalise-gnf arg-0 arg-3 (CoreC-45TT-embed e-1))))))))))))))))))))))))))))) ((2) (let ((e-11 (vector-ref arg-4 1))) (let ((e-12 (vector-ref arg-4 2))) (let ((e-13 (vector-ref arg-4 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((u--mkn (CoreC-45Name-nameRoot e-12))) (let ((act-25 (CoreC-45Context-lookupTyExact (vector 9 e-13) (let ((e-0 (vector-ref e-5 0))) e-0) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (if (null? e-6) (case (vector-ref arg-2 0) ((2) (vector 1 (cons (vector 32 e-11 1) (CoreC-45Normalise-gErased e-11))))(else (vector 1 (cons (vector 30 e-11 u--mkn) (CoreC-45Normalise-gErased e-11))))) (let ((e-1 (unbox e-6))) (vector 1 (cons (vector 30 e-11 u--mkn) (CoreC-45Normalise-gnf arg-0 arg-3 (CoreC-45TT-embed e-1)))))))))))))))))))) ((3) (let ((e-16 (vector-ref arg-4 1))) (let ((e-17 (vector-ref arg-4 2))) (let ((e-18 (vector-ref arg-4 3))) (let ((e-19 (vector-ref arg-4 4))) (lambda (eta-0) (let ((act-24 (TTImpC-45Unelab-unelabTy (cons e-17 arg-0) arg-1 arg-2 (cons e-18 arg-3) e-19 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((e-2 (car e-5))) (let ((e-3 (cdr e-5))) (case (vector-ref arg-2 0) ((1) (let ((e-0 (vector-ref arg-2 1))) (cond ((equal? e-0 1) (let ((u--xC-39 (TTImpC-45Unelab-n--6478-4955-u--uniqueLocal arg-0 e-17 e-19 e-18 e-16 arg-3 arg-2 arg-1 arg-0 e-17))) (let ((act-25 ((CoreC-45Normalise-getTerm e-3) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref act-25 1))) (TTImpC-45Unelab-unelabBinder arg-0 arg-1 arg-2 e-16 arg-3 u--xC-39 e-18 (CoreC-45TT-renameVars (box '()) e-19) e-2 (CoreC-45TT-renameVars (box '()) e-6) eta-0)))))))(else (let ((act-25 ((CoreC-45Normalise-getTerm e-3) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref act-25 1))) (TTImpC-45Unelab-unelabBinder arg-0 arg-1 arg-2 e-16 arg-3 e-17 e-18 e-19 e-2 e-6 eta-0)))))))))(else (let ((act-25 ((CoreC-45Normalise-getTerm e-3) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref act-25 1))) (TTImpC-45Unelab-unelabBinder arg-0 arg-1 arg-2 e-16 arg-3 e-17 e-18 e-19 e-2 e-6 eta-0))))))))))))))))))) ((4) (let ((e-21 (vector-ref arg-4 1))) (let ((e-22 (vector-ref arg-4 2))) (let ((e-23 (vector-ref arg-4 3))) (lambda (eta-0) (let ((act-24 (TTImpC-45Unelab-unelabTy arg-0 arg-1 arg-2 arg-3 e-22 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((e-2 (car e-5))) (let ((e-3 (cdr e-5))) (let ((act-25 (TTImpC-45Unelab-unelabTy arg-0 arg-1 arg-2 arg-3 e-23 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref act-25 1))) (let ((e-7 (car e-6))) (let ((act-26 ((CoreC-45Normalise-getNF arg-1 e-3) eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-8 (vector-ref act-26 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref act-26 1))) (let ((act-27 (let ((act-27 (unbox arg-1))) (vector 1 act-27)))) (case (vector-ref act-27 0) ((0) (let ((e-9 (vector-ref act-27 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref act-27 1))) (case (vector-ref e-8 0) ((0) (let ((e-12 (vector-ref e-8 2))) (let ((e-11 (vector-ref e-8 3))) (let ((e-10 (vector-ref e-8 4))) (case (vector-ref e-11 0) ((2) (let ((e-14 (vector-ref e-11 3))) (case (vector-ref e-14 0) ((1) (let ((act-28 (((e-10 e-9) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) arg-3 e-23)) eta-0))) (case (vector-ref act-28 0) ((0) (let ((e-17 (vector-ref act-28 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref act-28 1))) (vector 1 (cons (vector 8 e-21 e-2 e-7) (CoreC-45Normalise-glueBack arg-1 arg-0 e-9 arg-3 e-17))))))))(else (let ((act-28 (((e-10 e-9) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) arg-3 e-23)) eta-0))) (case (vector-ref act-28 0) ((0) (let ((e-17 (vector-ref act-28 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref act-28 1))) (vector 1 (cons (vector 10 e-21 e-2 e-12 e-7) (CoreC-45Normalise-glueBack arg-1 arg-0 e-9 arg-3 e-17)))))))))))(else (vector 1 (cons (vector 8 e-21 e-2 e-7) (CoreC-45Normalise-gErased e-21)))))))))(else (vector 1 (cons (vector 8 e-21 e-2 e-7) (CoreC-45Normalise-gErased e-21))))))))))))))))))))))))))))) ((5) (let ((e-25 (vector-ref arg-4 1))) (let ((e-26 (vector-ref arg-4 2))) (let ((e-27 (vector-ref arg-4 3))) (let ((e-28 (vector-ref arg-4 4))) (lambda (eta-0) (let ((act-24 ((TTImpC-45Unelab-unelabTyC-39 arg-0 arg-1 arg-2 arg-3 e-27) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((e-2 (car e-5))) (let ((act-25 ((TTImpC-45Unelab-unelabTyC-39 arg-0 arg-1 arg-2 arg-3 e-28) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref act-25 1))) (let ((e-7 (car e-6))) (let ((e-4 (cdr e-6))) (case (vector-ref e-2 0) ((0) (let ((e-1 (vector-ref e-2 2))) (case (vector-ref arg-2 0) ((1) (vector 1 (cons (vector 18 e-25 (CoreC-45TT-getLoc e-27) e-26 e-1 e-7) e-4)))(else (vector 1 (cons e-7 e-4))))))(else (vector 1 (cons e-7 e-4))))))))))))))))))))) ((6) (let ((e-30 (vector-ref arg-4 1))) (let ((e-31 (vector-ref arg-4 2))) (let ((e-32 (vector-ref arg-4 3))) (lambda (eta-0) (let ((act-24 ((TTImpC-45Unelab-unelabTyC-39 arg-0 arg-1 arg-2 arg-3 e-32) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((e-2 (car e-5))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (vector 1 (cons (vector 20 e-30 e-31 e-2) (CoreC-45Normalise-gErased e-30)))))))))))))))) ((7) (let ((e-34 (vector-ref arg-4 1))) (let ((e-37 (vector-ref arg-4 4))) (lambda (eta-0) (let ((act-24 ((TTImpC-45Unelab-unelabTyC-39 arg-0 arg-1 arg-2 arg-3 e-37) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((e-2 (car e-5))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (vector 1 (cons (vector 21 e-34 e-2) (CoreC-45Normalise-gErased e-34))))))))))))))) ((8) (let ((e-39 (vector-ref arg-4 1))) (let ((e-41 (vector-ref arg-4 3))) (lambda (eta-0) (let ((act-24 ((TTImpC-45Unelab-unelabTyC-39 arg-0 arg-1 arg-2 arg-3 e-41) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((e-2 (car e-5))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (vector 1 (cons (vector 22 e-39 e-2) (CoreC-45Normalise-gErased e-39))))))))))))))) ((9) (let ((e-43 (vector-ref arg-4 1))) (let ((e-44 (vector-ref arg-4 2))) (lambda (eta-0) (vector 1 (cons (vector 28 e-43 e-44) (CoreC-45Normalise-gErased e-43))))))) ((10) (let ((e-46 (vector-ref arg-4 1))) (lambda (eta-0) (vector 1 (cons (vector 32 e-46 1) (CoreC-45Normalise-gErased e-46)))))) ((11) (let ((e-49 (vector-ref arg-4 1))) (lambda (eta-0) (vector 1 (cons (vector 29 e-49) (CoreC-45Normalise-gType e-49))))))(else (let ((u--fc (CoreC-45TT-getLoc arg-4))) (lambda (eta-0) (vector 1 (cons (vector 32 u--fc 0) (CoreC-45Normalise-gErased u--fc))))))))) +(define TTImpC-45Unelab-unelabTy (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 ((TTImpC-45Unelab-unelabTyC-39 arg-0 arg-1 arg-2 arg-3 arg-4) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) ((TTImpC-45Unelab-unelabSugar arg-1 arg-2 e-5) ext-0))))))) +(define TTImpC-45Unelab-unelabSugar (lambda (arg-1 arg-2 arg-3) (case (vector-ref arg-2 0) ((1) (lambda (eta-0) (vector 1 arg-3))) ((2) (lambda (eta-0) (vector 1 arg-3)))(else (let ((e-2 (car arg-3))) (let ((e-3 (cdr arg-3))) (let ((sc1 (TTImpC-45Unelab-getFnArgs e-2 '()))) (let ((e-5 (car sc1))) (let ((e-4 (cdr sc1))) (case (vector-ref e-5 0) ((0) (let ((e-1 (vector-ref e-5 2))) (lambda (clam-0) (case (vector-ref e-1 0) ((0) (let ((e-7 (vector-ref e-1 1))) (let ((e-6 (vector-ref e-1 2))) (case (vector-ref e-6 0) ((7) (let ((e-9 (vector-ref e-6 1))) (let ((e-8 (vector-ref e-6 2))) (let ((act-24 (CoreC-45ContextC-45Log-log arg-1 "unelab.case" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))))))))))))) (lambda () (DataC-45String-fastUnlines (cons (PreludeC-45TypesC-45String-C-43C-43 "Unelaborating case " (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_String u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_String u--d u--x)))) (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_Int u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_Int u--d u--x))))) (cons e-9 e-8))) (cons (PreludeC-45TypesC-45String-C-43C-43 "with arguments: " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (TTImpC-45Unelab-u--show_Show_IArg u--x)) (lambda (u--d) (lambda (u--x) (TTImpC-45Unelab-u--showPrec_Show_IArg u--d u--x)))) e-4)) '())))) clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-10 (vector-ref act-24 1))) (vector 0 e-10))) (else (let ((act-25 (TTImpC-45Unelab-unelabCase arg-1 (vector 0 e-7 (vector 7 e-9 e-8)) e-4 e-2 clam-0))) (case (vector-ref act-25 0) ((0) (let ((e-11 (vector-ref act-25 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-25 1))) (let ((act-26 (CoreC-45ContextC-45Log-log arg-1 "unelab.case" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))))))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Unelaborated to: " (TTImpC-45TTImp-u--show_Show_RawImp e-11))) clam-0))) (case (vector-ref act-26 0) ((0) (let ((e-12 (vector-ref act-26 1))) (vector 0 e-12))) (else (vector 1 (cons e-11 e-3)))))))))))))))(else (vector 1 (cons e-2 e-3)))))))(else (vector 1 (cons e-2 e-3)))))))(else (lambda (eta-0) (vector 1 (cons e-2 e-3)))))))))))))) +(define TTImpC-45Unelab-unelabPi (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (case (vector-ref arg-4 0) ((1) (vector 1 (vector 1 ))) ((0) (vector 1 (vector 0 ))) ((2) (vector 1 (vector 2 ))) (else (let ((e-4 (vector-ref arg-4 1))) (let ((act-24 (TTImpC-45Unelab-unelabTy arg-0 arg-1 arg-2 arg-3 e-4 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((e-2 (car e-5))) (vector 1 (vector 3 e-2)))))))))))) +(define TTImpC-45Unelab-unelabNoSugar (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (TTImpC-45Unelab-unelabTy arg-0 arg-1 (vector 1 0) arg-2 arg-3 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (Builtin-fst e-5)))))))) +(define TTImpC-45Unelab-unelabNoPatvars (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (TTImpC-45Unelab-unelabTy arg-0 arg-1 (vector 2 ) arg-2 arg-3 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (Builtin-fst e-5)))))))) +(define TTImpC-45Unelab-unelabCase (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact arg-1 (let ((e-0 (vector-ref e-5 0))) e-0)) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (if (null? e-6) (vector 1 arg-3) (let ((e-1 (unbox e-6))) (let ((_-0 (box e-1))) ((TTImpC-45Unelab-case--caseC-32blockC-32inC-32unelabCase-4208 arg-3 arg-2 arg-1 arg-0 e-5 e-1 _-0 (let ((e-17 (vector-ref e-1 17))) e-17)) ext-0)))))))))))))) +(define TTImpC-45Unelab-unelabBinder (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 ext-0) (case (vector-ref arg-6 0) ((0) (let ((e-1 (vector-ref arg-6 1))) (let ((e-2 (vector-ref arg-6 2))) (let ((e-3 (vector-ref arg-6 3))) (let ((e-4 (vector-ref arg-6 4))) (let ((act-24 (TTImpC-45Unelab-unelabTy arg-0 arg-1 arg-2 arg-4 e-4 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((e-7 (car e-5))) (let ((act-25 (TTImpC-45Unelab-unelabPi arg-0 arg-1 arg-2 arg-4 e-3 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-8 (vector-ref act-25 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref act-25 1))) (vector 1 (cons (vector 2 arg-3 e-2 e-8 (box arg-5) e-7 arg-8) (CoreC-45Normalise-gnf arg-0 arg-4 (vector 3 arg-3 arg-5 (vector 2 e-1 e-2 e-3 e-4) arg-9)))))))))))))))))) ((1) (let ((e-6 (vector-ref arg-6 1))) (let ((e-7 (vector-ref arg-6 2))) (let ((e-8 (vector-ref arg-6 3))) (let ((e-9 (vector-ref arg-6 4))) (let ((act-24 (TTImpC-45Unelab-unelabTy arg-0 arg-1 arg-2 arg-4 e-8 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((e-2 (car e-5))) (let ((act-25 (TTImpC-45Unelab-unelabTy arg-0 arg-1 arg-2 arg-4 e-9 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref act-25 1))) (let ((e-11 (car e-10))) (vector 1 (cons (vector 3 arg-3 (vector 2 ) e-7 arg-5 e-11 e-2 arg-8) (CoreC-45Normalise-gnf arg-0 arg-4 (vector 3 arg-3 arg-5 (vector 1 e-6 e-7 e-8 e-9) arg-9))))))))))))))))))) ((2) (let ((e-11 (vector-ref arg-6 1))) (let ((e-12 (vector-ref arg-6 2))) (let ((e-13 (vector-ref arg-6 3))) (let ((e-14 (vector-ref arg-6 4))) (let ((act-24 (TTImpC-45Unelab-unelabTy arg-0 arg-1 arg-2 arg-4 e-14 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((e-2 (car e-5))) (let ((act-25 (TTImpC-45Unelab-unelabPi arg-0 arg-1 arg-2 arg-4 e-13 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref act-25 1))) (let ((u--nm (let ((sc4 (let ((sc5 (TTImpC-45Unelab-used 0 arg-7))) (cond ((equal? sc5 1) 1) (else (TTImpC-45Unelab-n--6487-6020-u--isNoSugar arg-0 e-11 e-14 e-13 e-12 arg-5 arg-9 arg-8 arg-7 arg-4 arg-3 arg-2 arg-1 arg-2)))))) (cond ((equal? sc4 1) (box arg-5)) (else (let ((sc5 (let ((sc6 (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega e-12 (AlgebraC-45ZeroOneOmega-u--top_Top_ZeroOneOmega)))) (cond ((equal? sc6 1) 1) (else (TTImpC-45Unelab-n--6487-6021-u--isDefImp arg-0 e-11 e-14 e-13 e-12 arg-5 arg-9 arg-8 arg-7 arg-4 arg-3 arg-2 arg-1 e-13)))))) (cond ((equal? sc5 1) (box (vector 1 "_"))) (else '())))))))) (vector 1 (cons (vector 1 arg-3 e-12 e-6 u--nm e-2 arg-8) (CoreC-45Normalise-gType arg-3)))))))))))))))))) ((3) (let ((e-16 (vector-ref arg-6 1))) (let ((e-17 (vector-ref arg-6 2))) (let ((e-19 (vector-ref arg-6 4))) (let ((act-24 (TTImpC-45Unelab-unelabTy arg-0 arg-1 arg-2 arg-4 e-19 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (cons arg-8 (CoreC-45Normalise-gnf arg-0 arg-4 (vector 3 arg-3 arg-5 (vector 5 e-16 e-17 e-19) arg-9)))))))))))) ((4) (let ((e-21 (vector-ref arg-6 1))) (let ((e-22 (vector-ref arg-6 2))) (let ((e-23 (vector-ref arg-6 3))) (let ((e-24 (vector-ref arg-6 4))) (let ((act-24 (TTImpC-45Unelab-unelabTy arg-0 arg-1 arg-2 arg-4 e-23 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((e-2 (car e-5))) (let ((act-25 (TTImpC-45Unelab-unelabTy arg-0 arg-1 arg-2 arg-4 e-24 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref act-25 1))) (let ((e-7 (car e-6))) (vector 1 (cons (vector 3 arg-3 (vector 2 ) e-22 arg-5 e-7 e-2 arg-8) (CoreC-45Normalise-gnf arg-0 arg-4 (vector 3 arg-3 arg-5 (vector 4 e-21 e-22 e-23 e-24) arg-9))))))))))))))))))) (else (let ((e-28 (vector-ref arg-6 3))) (let ((act-24 (TTImpC-45Unelab-unelabTy arg-0 arg-1 arg-2 arg-4 e-28 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (cons arg-8 (CoreC-45Normalise-gType arg-3)))))))))))) +(define TTImpC-45Unelab-unelab (lambda (arg-0 arg-1 arg-2 arg-3) (case (vector-ref arg-3 0) ((2) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-3 (vector-ref arg-3 3))) (let ((e-4 (vector-ref arg-3 4))) (let ((u--mkn (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-nameRoot e-2) (TTImpC-45Unelab-n--9557-6549-u--showScope arg-0 e-4 e-3 e-2 e-1 arg-2 arg-1 e-4)))) (lambda (eta-0) (vector 1 (vector 30 e-1 u--mkn)))))))))(else (lambda (eta-0) (let ((act-24 (TTImpC-45Unelab-unelabTy arg-0 arg-1 (vector 0 ) arg-2 arg-3 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (Builtin-fst e-5))))))))))) +(define TTImpC-45Unelab-getFnArgs (lambda (arg-0 arg-1) (case (vector-ref arg-0 0) ((8) (let ((e-0 (vector-ref arg-0 1))) (let ((e-1 (vector-ref arg-0 2))) (let ((e-2 (vector-ref arg-0 3))) (TTImpC-45Unelab-getFnArgs e-1 (cons (vector 0 e-0 e-2) arg-1)))))) ((10) (let ((e-3 (vector-ref arg-0 1))) (let ((e-4 (vector-ref arg-0 2))) (let ((e-5 (vector-ref arg-0 3))) (let ((e-6 (vector-ref arg-0 4))) (TTImpC-45Unelab-getFnArgs e-4 (cons (vector 2 e-3 e-5 e-6) arg-1))))))) ((9) (let ((e-7 (vector-ref arg-0 1))) (let ((e-8 (vector-ref arg-0 2))) (let ((e-9 (vector-ref arg-0 3))) (TTImpC-45Unelab-getFnArgs e-8 (cons (vector 1 e-7 e-9) arg-1))))))(else (cons arg-0 arg-1))))) +(define TTImpC-45Utils-case--nameNum-1438 (lambda (arg-0 arg-1) (let ((e-2 (car arg-1))) (let ((e-3 (cdr arg-1))) (cond ((equal? e-2 "") (cons arg-0 0))(else (let ((sc1 (PreludeC-45Types-fastUnpack e-3))) (if (null? sc1) (cons arg-0 0) (let ((e-1 (car sc1))) (let ((e-4 (cdr sc1))) (cond ((equal? e-1 #\_) (cons (PreludeC-45Types-reverse (PreludeC-45Types-fastPack e-4)) (PreludeC-45Cast-u--cast_Cast_String_Int (PreludeC-45Types-reverse e-2))))(else (cons arg-0 0))))))))))))) +(define TTImpC-45Utils-n--6600-1500-u--usedName (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (CoreC-45Context-lookupTyName (vector 1 arg-0) (let ((e-0 (vector-ref arg-2 0))) e-0) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (if (null? e-5) (PreludeC-45Types-elem (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_String arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_String arg-4 arg-5)))) arg-0 arg-1) 1)))))))) +(define TTImpC-45Utils-n--6600-1501-u--next (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 (TTImpC-45Utils-nameNum arg-3))) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (PreludeC-45TypesC-45String-C-43C-43 e-2 (PreludeC-45TypesC-45String-C-43C-43 "_" (PreludeC-45Show-u--show_Show_Int (bs+ e-3 1 63))))))))) +(define TTImpC-45Utils-uniqueName (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (TTImpC-45Utils-n--6600-1500-u--usedName arg-2 arg-1 arg-0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (cond ((equal? e-5 1) (TTImpC-45Utils-uniqueName arg-0 arg-1 (TTImpC-45Utils-n--6600-1501-u--next arg-2 arg-1 arg-0 arg-2) ext-0)) (else (vector 1 arg-2))))))))) +(define TTImpC-45Utils-substNamesTyC-39 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((e-0 (vector-ref arg-3 0))) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-3 (vector-ref arg-3 3))) (vector e-0 e-1 e-2 (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 e-3)))))))) +(define TTImpC-45Utils-substNamesDeclC-39 (lambda (arg-0 arg-1 arg-2 arg-3) (case (vector-ref arg-3 0) ((0) (let ((e-0 (vector-ref arg-3 1))) (let ((e-1 (vector-ref arg-3 2))) (let ((e-2 (vector-ref arg-3 3))) (let ((e-3 (vector-ref arg-3 4))) (let ((e-4 (vector-ref arg-3 5))) (vector 0 e-0 e-1 e-2 e-3 (TTImpC-45Utils-substNamesTyC-39 arg-0 arg-1 arg-2 e-4)))))))) ((2) (let ((e-5 (vector-ref arg-3 1))) (let ((e-6 (vector-ref arg-3 2))) (let ((e-7 (vector-ref arg-3 3))) (vector 2 e-5 e-6 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (TTImpC-45Utils-substNamesClauseC-39 arg-0 arg-1 arg-2 eta-0)) e-7)))))) ((1) (let ((e-8 (vector-ref arg-3 1))) (let ((e-9 (vector-ref arg-3 2))) (let ((e-10 (vector-ref arg-3 3))) (vector 1 e-8 e-9 (TTImpC-45Utils-substNamesDataC-39 arg-0 arg-1 arg-2 e-10)))))) ((5) (let ((e-11 (vector-ref arg-3 1))) (let ((e-12 (vector-ref arg-3 2))) (let ((e-13 (vector-ref arg-3 3))) (vector 5 e-11 e-12 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (TTImpC-45Utils-substNamesDeclC-39 arg-0 arg-1 arg-2 eta-0)) e-13))))))(else arg-3)))) +(define TTImpC-45Utils-substNamesDataC-39 (lambda (arg-0 arg-1 arg-2 arg-3) (case (vector-ref arg-3 0) ((0) (let ((e-0 (vector-ref arg-3 1))) (let ((e-1 (vector-ref arg-3 2))) (let ((e-2 (vector-ref arg-3 3))) (let ((e-3 (vector-ref arg-3 4))) (let ((e-4 (vector-ref arg-3 5))) (vector 0 e-0 e-1 (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 e-2) e-3 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (TTImpC-45Utils-substNamesTyC-39 arg-0 arg-1 arg-2 eta-0)) e-4)))))))) (else (let ((e-5 (vector-ref arg-3 1))) (let ((e-6 (vector-ref arg-3 2))) (let ((e-7 (vector-ref arg-3 3))) (vector 1 e-5 e-6 (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 e-7))))))))) +(define TTImpC-45Utils-substNamesClauseC-39 (lambda (arg-0 arg-1 arg-2 arg-3) (case (vector-ref arg-3 0) ((0) (let ((e-0 (vector-ref arg-3 1))) (let ((e-1 (vector-ref arg-3 2))) (let ((e-2 (vector-ref arg-3 3))) (let ((u--boundC-39 (PreludeC-45TypesC-45List-C-43C-43 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (vector 1 eta-0)) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) (TTImpC-45Utils-findBindableNames 1 arg-1 '() e-1))) (PreludeC-45TypesC-45List-C-43C-43 (TTImpC-45Utils-findIBindVars e-1) arg-1)))) (vector 0 e-0 (TTImpC-45Utils-substNamesC-39 arg-0 '() '() e-1) (TTImpC-45Utils-substNamesC-39 arg-0 u--boundC-39 arg-2 e-2))))))) ((1) (let ((e-3 (vector-ref arg-3 1))) (let ((e-4 (vector-ref arg-3 2))) (let ((e-5 (vector-ref arg-3 3))) (let ((e-6 (vector-ref arg-3 4))) (let ((e-7 (vector-ref arg-3 5))) (let ((e-8 (vector-ref arg-3 6))) (let ((u--boundC-39 (PreludeC-45TypesC-45List-C-43C-43 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (vector 1 eta-0)) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) (TTImpC-45Utils-findBindableNames 1 arg-1 '() e-4))) (PreludeC-45TypesC-45List-C-43C-43 (TTImpC-45Utils-findIBindVars e-4) arg-1)))) (vector 1 e-3 (TTImpC-45Utils-substNamesC-39 arg-0 '() '() e-4) (TTImpC-45Utils-substNamesC-39 arg-0 u--boundC-39 arg-2 e-5) e-6 e-7 e-8))))))))) (else (let ((e-9 (vector-ref arg-3 1))) (let ((e-10 (vector-ref arg-3 2))) (vector 2 e-9 (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 '() e-10)))))))) +(define TTImpC-45Utils-substNamesClause (lambda (ext-0 ext-1 ext-2) (TTImpC-45Utils-substNamesClauseC-39 0 ext-0 ext-1 ext-2))) +(define TTImpC-45Utils-substNamesC-39 (lambda (arg-0 arg-1 arg-2 arg-3) (cond ((equal? arg-0 0) (case (vector-ref arg-3 0) ((0) (let ((e-59 (vector-ref arg-3 1))) (let ((e-60 (vector-ref arg-3 2))) (let ((sc2 (PreludeC-45Types-elem (cons (lambda (arg-4) (lambda (arg-5) (CoreC-45Name-u--C-61C-61_Eq_Name arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (CoreC-45Name-u--C-47C-61_Eq_Name arg-4 arg-5)))) e-60 arg-1))) (cond ((equal? sc2 1) (vector 0 e-59 e-60)) (else (let ((sc3 (DataC-45List-lookup (cons (lambda (arg-4) (lambda (arg-5) (CoreC-45Name-u--C-61C-61_Eq_Name arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (CoreC-45Name-u--C-47C-61_Eq_Name arg-4 arg-5)))) e-60 arg-2))) (if (null? sc3) (vector 0 e-59 e-60) (let ((e-1 (unbox sc3))) e-1)))))))))(else (case (vector-ref arg-3 0) ((1) (let ((e-0 (vector-ref arg-3 1))) (let ((e-1 (vector-ref arg-3 2))) (let ((e-2 (vector-ref arg-3 3))) (let ((e-3 (vector-ref arg-3 4))) (let ((e-4 (vector-ref arg-3 5))) (let ((e-5 (vector-ref arg-3 6))) (let ((u--boundC-39 (PreludeC-45Types-maybe (lambda () arg-1) (lambda () (lambda (u--n) (cons u--n arg-1))) e-3))) (vector 1 e-0 e-1 e-2 e-3 (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 e-4) (TTImpC-45Utils-substNamesC-39 arg-0 u--boundC-39 arg-2 e-5)))))))))) ((2) (let ((e-6 (vector-ref arg-3 1))) (let ((e-7 (vector-ref arg-3 2))) (let ((e-8 (vector-ref arg-3 3))) (let ((e-9 (vector-ref arg-3 4))) (let ((e-10 (vector-ref arg-3 5))) (let ((e-11 (vector-ref arg-3 6))) (let ((u--boundC-39 (PreludeC-45Types-maybe (lambda () arg-1) (lambda () (lambda (u--n) (cons u--n arg-1))) e-9))) (vector 2 e-6 e-7 e-8 e-9 (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 e-10) (TTImpC-45Utils-substNamesC-39 arg-0 u--boundC-39 arg-2 e-11)))))))))) ((3) (let ((e-12 (vector-ref arg-3 1))) (let ((e-13 (vector-ref arg-3 2))) (let ((e-14 (vector-ref arg-3 3))) (let ((e-15 (vector-ref arg-3 4))) (let ((e-16 (vector-ref arg-3 5))) (let ((e-17 (vector-ref arg-3 6))) (let ((e-18 (vector-ref arg-3 7))) (let ((u--boundC-39 (cons e-15 arg-1))) (vector 3 e-12 e-13 e-14 e-15 (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 e-16) (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 e-17) (TTImpC-45Utils-substNamesC-39 arg-0 u--boundC-39 arg-2 e-18))))))))))) ((4) (let ((e-19 (vector-ref arg-3 1))) (let ((e-20 (vector-ref arg-3 2))) (let ((e-21 (vector-ref arg-3 3))) (let ((e-22 (vector-ref arg-3 4))) (vector 4 e-19 (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 e-20) (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 e-21) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (TTImpC-45Utils-substNamesClauseC-39 arg-0 arg-1 arg-2 eta-0)) e-22))))))) ((5) (let ((e-23 (vector-ref arg-3 1))) (let ((e-24 (vector-ref arg-3 2))) (let ((e-25 (vector-ref arg-3 3))) (let ((u--boundC-39 (PreludeC-45TypesC-45List-C-43C-43 (TTImpC-45TTImp-definedInBlock (CoreC-45NameC-45Namespace-emptyNS) e-24) arg-1))) (vector 5 e-23 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (TTImpC-45Utils-substNamesDeclC-39 arg-0 arg-1 arg-2 eta-0)) e-24) (TTImpC-45Utils-substNamesC-39 arg-0 u--boundC-39 arg-2 e-25))))))) ((8) (let ((e-26 (vector-ref arg-3 1))) (let ((e-27 (vector-ref arg-3 2))) (let ((e-28 (vector-ref arg-3 3))) (vector 8 e-26 (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 e-27) (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 e-28)))))) ((10) (let ((e-29 (vector-ref arg-3 1))) (let ((e-30 (vector-ref arg-3 2))) (let ((e-31 (vector-ref arg-3 3))) (let ((e-32 (vector-ref arg-3 4))) (vector 10 e-29 (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 e-30) e-31 (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 e-32))))))) ((9) (let ((e-33 (vector-ref arg-3 1))) (let ((e-34 (vector-ref arg-3 2))) (let ((e-35 (vector-ref arg-3 3))) (vector 9 e-33 (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 e-34) (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 e-35)))))) ((11) (let ((e-36 (vector-ref arg-3 1))) (let ((e-37 (vector-ref arg-3 2))) (let ((e-38 (vector-ref arg-3 3))) (vector 11 e-36 (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 e-37) (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 e-38)))))) ((13) (let ((e-39 (vector-ref arg-3 1))) (let ((e-40 (vector-ref arg-3 2))) (let ((e-41 (vector-ref arg-3 3))) (vector 13 e-39 e-40 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 eta-0)) e-41)))))) ((15) (let ((e-42 (vector-ref arg-3 1))) (let ((e-43 (vector-ref arg-3 2))) (vector 15 e-42 (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 e-43))))) ((18) (let ((e-44 (vector-ref arg-3 1))) (let ((e-45 (vector-ref arg-3 2))) (let ((e-46 (vector-ref arg-3 3))) (let ((e-47 (vector-ref arg-3 4))) (let ((e-48 (vector-ref arg-3 5))) (vector 18 e-44 e-45 e-46 e-47 (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 e-48)))))))) ((19) (let ((e-49 (vector-ref arg-3 1))) (let ((e-50 (vector-ref arg-3 2))) (let ((e-51 (vector-ref arg-3 3))) (vector 19 e-49 e-50 (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 e-51)))))) ((20) (let ((e-52 (vector-ref arg-3 1))) (let ((e-53 (vector-ref arg-3 2))) (let ((e-54 (vector-ref arg-3 3))) (vector 20 e-52 e-53 (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 e-54)))))) ((21) (let ((e-55 (vector-ref arg-3 1))) (let ((e-56 (vector-ref arg-3 2))) (vector 21 e-55 (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 e-56))))) ((22) (let ((e-57 (vector-ref arg-3 1))) (let ((e-58 (vector-ref arg-3 2))) (vector 22 e-57 (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 e-58)))))(else arg-3))))) ((equal? arg-0 1) (case (vector-ref arg-3 0) ((17) (let ((e-61 (vector-ref arg-3 1))) (let ((e-62 (vector-ref arg-3 2))) (let ((sc2 (PreludeC-45Types-elem (cons (lambda (arg-4) (lambda (arg-5) (CoreC-45Name-u--C-61C-61_Eq_Name arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (CoreC-45Name-u--C-47C-61_Eq_Name arg-4 arg-5)))) (vector 1 e-62) arg-1))) (cond ((equal? sc2 1) (vector 17 e-61 e-62)) (else (let ((sc3 (DataC-45List-lookup (cons (lambda (arg-4) (lambda (arg-5) (CoreC-45Name-u--C-61C-61_Eq_Name arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (CoreC-45Name-u--C-47C-61_Eq_Name arg-4 arg-5)))) (vector 1 e-62) arg-2))) (if (null? sc3) (vector 17 e-61 e-62) (let ((e-1 (unbox sc3))) e-1)))))))))(else (case (vector-ref arg-3 0) ((1) (let ((e-0 (vector-ref arg-3 1))) (let ((e-1 (vector-ref arg-3 2))) (let ((e-2 (vector-ref arg-3 3))) (let ((e-3 (vector-ref arg-3 4))) (let ((e-4 (vector-ref arg-3 5))) (let ((e-5 (vector-ref arg-3 6))) (let ((u--boundC-39 (PreludeC-45Types-maybe (lambda () arg-1) (lambda () (lambda (u--n) (cons u--n arg-1))) e-3))) (vector 1 e-0 e-1 e-2 e-3 (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 e-4) (TTImpC-45Utils-substNamesC-39 arg-0 u--boundC-39 arg-2 e-5)))))))))) ((2) (let ((e-6 (vector-ref arg-3 1))) (let ((e-7 (vector-ref arg-3 2))) (let ((e-8 (vector-ref arg-3 3))) (let ((e-9 (vector-ref arg-3 4))) (let ((e-10 (vector-ref arg-3 5))) (let ((e-11 (vector-ref arg-3 6))) (let ((u--boundC-39 (PreludeC-45Types-maybe (lambda () arg-1) (lambda () (lambda (u--n) (cons u--n arg-1))) e-9))) (vector 2 e-6 e-7 e-8 e-9 (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 e-10) (TTImpC-45Utils-substNamesC-39 arg-0 u--boundC-39 arg-2 e-11)))))))))) ((3) (let ((e-12 (vector-ref arg-3 1))) (let ((e-13 (vector-ref arg-3 2))) (let ((e-14 (vector-ref arg-3 3))) (let ((e-15 (vector-ref arg-3 4))) (let ((e-16 (vector-ref arg-3 5))) (let ((e-17 (vector-ref arg-3 6))) (let ((e-18 (vector-ref arg-3 7))) (let ((u--boundC-39 (cons e-15 arg-1))) (vector 3 e-12 e-13 e-14 e-15 (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 e-16) (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 e-17) (TTImpC-45Utils-substNamesC-39 arg-0 u--boundC-39 arg-2 e-18))))))))))) ((4) (let ((e-19 (vector-ref arg-3 1))) (let ((e-20 (vector-ref arg-3 2))) (let ((e-21 (vector-ref arg-3 3))) (let ((e-22 (vector-ref arg-3 4))) (vector 4 e-19 (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 e-20) (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 e-21) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (TTImpC-45Utils-substNamesClauseC-39 arg-0 arg-1 arg-2 eta-0)) e-22))))))) ((5) (let ((e-23 (vector-ref arg-3 1))) (let ((e-24 (vector-ref arg-3 2))) (let ((e-25 (vector-ref arg-3 3))) (let ((u--boundC-39 (PreludeC-45TypesC-45List-C-43C-43 (TTImpC-45TTImp-definedInBlock (CoreC-45NameC-45Namespace-emptyNS) e-24) arg-1))) (vector 5 e-23 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (TTImpC-45Utils-substNamesDeclC-39 arg-0 arg-1 arg-2 eta-0)) e-24) (TTImpC-45Utils-substNamesC-39 arg-0 u--boundC-39 arg-2 e-25))))))) ((8) (let ((e-26 (vector-ref arg-3 1))) (let ((e-27 (vector-ref arg-3 2))) (let ((e-28 (vector-ref arg-3 3))) (vector 8 e-26 (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 e-27) (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 e-28)))))) ((10) (let ((e-29 (vector-ref arg-3 1))) (let ((e-30 (vector-ref arg-3 2))) (let ((e-31 (vector-ref arg-3 3))) (let ((e-32 (vector-ref arg-3 4))) (vector 10 e-29 (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 e-30) e-31 (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 e-32))))))) ((9) (let ((e-33 (vector-ref arg-3 1))) (let ((e-34 (vector-ref arg-3 2))) (let ((e-35 (vector-ref arg-3 3))) (vector 9 e-33 (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 e-34) (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 e-35)))))) ((11) (let ((e-36 (vector-ref arg-3 1))) (let ((e-37 (vector-ref arg-3 2))) (let ((e-38 (vector-ref arg-3 3))) (vector 11 e-36 (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 e-37) (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 e-38)))))) ((13) (let ((e-39 (vector-ref arg-3 1))) (let ((e-40 (vector-ref arg-3 2))) (let ((e-41 (vector-ref arg-3 3))) (vector 13 e-39 e-40 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 eta-0)) e-41)))))) ((15) (let ((e-42 (vector-ref arg-3 1))) (let ((e-43 (vector-ref arg-3 2))) (vector 15 e-42 (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 e-43))))) ((18) (let ((e-44 (vector-ref arg-3 1))) (let ((e-45 (vector-ref arg-3 2))) (let ((e-46 (vector-ref arg-3 3))) (let ((e-47 (vector-ref arg-3 4))) (let ((e-48 (vector-ref arg-3 5))) (vector 18 e-44 e-45 e-46 e-47 (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 e-48)))))))) ((19) (let ((e-49 (vector-ref arg-3 1))) (let ((e-50 (vector-ref arg-3 2))) (let ((e-51 (vector-ref arg-3 3))) (vector 19 e-49 e-50 (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 e-51)))))) ((20) (let ((e-52 (vector-ref arg-3 1))) (let ((e-53 (vector-ref arg-3 2))) (let ((e-54 (vector-ref arg-3 3))) (vector 20 e-52 e-53 (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 e-54)))))) ((21) (let ((e-55 (vector-ref arg-3 1))) (let ((e-56 (vector-ref arg-3 2))) (vector 21 e-55 (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 e-56))))) ((22) (let ((e-57 (vector-ref arg-3 1))) (let ((e-58 (vector-ref arg-3 2))) (vector 22 e-57 (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 e-58)))))(else arg-3)))))(else (case (vector-ref arg-3 0) ((1) (let ((e-0 (vector-ref arg-3 1))) (let ((e-1 (vector-ref arg-3 2))) (let ((e-2 (vector-ref arg-3 3))) (let ((e-3 (vector-ref arg-3 4))) (let ((e-4 (vector-ref arg-3 5))) (let ((e-5 (vector-ref arg-3 6))) (let ((u--boundC-39 (PreludeC-45Types-maybe (lambda () arg-1) (lambda () (lambda (u--n) (cons u--n arg-1))) e-3))) (vector 1 e-0 e-1 e-2 e-3 (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 e-4) (TTImpC-45Utils-substNamesC-39 arg-0 u--boundC-39 arg-2 e-5)))))))))) ((2) (let ((e-6 (vector-ref arg-3 1))) (let ((e-7 (vector-ref arg-3 2))) (let ((e-8 (vector-ref arg-3 3))) (let ((e-9 (vector-ref arg-3 4))) (let ((e-10 (vector-ref arg-3 5))) (let ((e-11 (vector-ref arg-3 6))) (let ((u--boundC-39 (PreludeC-45Types-maybe (lambda () arg-1) (lambda () (lambda (u--n) (cons u--n arg-1))) e-9))) (vector 2 e-6 e-7 e-8 e-9 (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 e-10) (TTImpC-45Utils-substNamesC-39 arg-0 u--boundC-39 arg-2 e-11)))))))))) ((3) (let ((e-12 (vector-ref arg-3 1))) (let ((e-13 (vector-ref arg-3 2))) (let ((e-14 (vector-ref arg-3 3))) (let ((e-15 (vector-ref arg-3 4))) (let ((e-16 (vector-ref arg-3 5))) (let ((e-17 (vector-ref arg-3 6))) (let ((e-18 (vector-ref arg-3 7))) (let ((u--boundC-39 (cons e-15 arg-1))) (vector 3 e-12 e-13 e-14 e-15 (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 e-16) (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 e-17) (TTImpC-45Utils-substNamesC-39 arg-0 u--boundC-39 arg-2 e-18))))))))))) ((4) (let ((e-19 (vector-ref arg-3 1))) (let ((e-20 (vector-ref arg-3 2))) (let ((e-21 (vector-ref arg-3 3))) (let ((e-22 (vector-ref arg-3 4))) (vector 4 e-19 (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 e-20) (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 e-21) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (TTImpC-45Utils-substNamesClauseC-39 arg-0 arg-1 arg-2 eta-0)) e-22))))))) ((5) (let ((e-23 (vector-ref arg-3 1))) (let ((e-24 (vector-ref arg-3 2))) (let ((e-25 (vector-ref arg-3 3))) (let ((u--boundC-39 (PreludeC-45TypesC-45List-C-43C-43 (TTImpC-45TTImp-definedInBlock (CoreC-45NameC-45Namespace-emptyNS) e-24) arg-1))) (vector 5 e-23 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (TTImpC-45Utils-substNamesDeclC-39 arg-0 arg-1 arg-2 eta-0)) e-24) (TTImpC-45Utils-substNamesC-39 arg-0 u--boundC-39 arg-2 e-25))))))) ((8) (let ((e-26 (vector-ref arg-3 1))) (let ((e-27 (vector-ref arg-3 2))) (let ((e-28 (vector-ref arg-3 3))) (vector 8 e-26 (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 e-27) (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 e-28)))))) ((10) (let ((e-29 (vector-ref arg-3 1))) (let ((e-30 (vector-ref arg-3 2))) (let ((e-31 (vector-ref arg-3 3))) (let ((e-32 (vector-ref arg-3 4))) (vector 10 e-29 (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 e-30) e-31 (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 e-32))))))) ((9) (let ((e-33 (vector-ref arg-3 1))) (let ((e-34 (vector-ref arg-3 2))) (let ((e-35 (vector-ref arg-3 3))) (vector 9 e-33 (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 e-34) (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 e-35)))))) ((11) (let ((e-36 (vector-ref arg-3 1))) (let ((e-37 (vector-ref arg-3 2))) (let ((e-38 (vector-ref arg-3 3))) (vector 11 e-36 (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 e-37) (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 e-38)))))) ((13) (let ((e-39 (vector-ref arg-3 1))) (let ((e-40 (vector-ref arg-3 2))) (let ((e-41 (vector-ref arg-3 3))) (vector 13 e-39 e-40 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 eta-0)) e-41)))))) ((15) (let ((e-42 (vector-ref arg-3 1))) (let ((e-43 (vector-ref arg-3 2))) (vector 15 e-42 (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 e-43))))) ((18) (let ((e-44 (vector-ref arg-3 1))) (let ((e-45 (vector-ref arg-3 2))) (let ((e-46 (vector-ref arg-3 3))) (let ((e-47 (vector-ref arg-3 4))) (let ((e-48 (vector-ref arg-3 5))) (vector 18 e-44 e-45 e-46 e-47 (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 e-48)))))))) ((19) (let ((e-49 (vector-ref arg-3 1))) (let ((e-50 (vector-ref arg-3 2))) (let ((e-51 (vector-ref arg-3 3))) (vector 19 e-49 e-50 (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 e-51)))))) ((20) (let ((e-52 (vector-ref arg-3 1))) (let ((e-53 (vector-ref arg-3 2))) (let ((e-54 (vector-ref arg-3 3))) (vector 20 e-52 e-53 (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 e-54)))))) ((21) (let ((e-55 (vector-ref arg-3 1))) (let ((e-56 (vector-ref arg-3 2))) (vector 21 e-55 (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 e-56))))) ((22) (let ((e-57 (vector-ref arg-3 1))) (let ((e-58 (vector-ref arg-3 2))) (vector 22 e-57 (TTImpC-45Utils-substNamesC-39 arg-0 arg-1 arg-2 e-58)))))(else arg-3)))))) +(define TTImpC-45Utils-substNames (lambda (ext-0 ext-1 ext-2) (TTImpC-45Utils-substNamesC-39 0 ext-0 ext-1 ext-2))) +(define TTImpC-45Utils-substLocTy (lambda (arg-0 arg-1) (let ((e-2 (vector-ref arg-1 2))) (let ((e-3 (vector-ref arg-1 3))) (vector arg-0 arg-0 e-2 (TTImpC-45Utils-substLoc arg-0 e-3)))))) +(define TTImpC-45Utils-substLocDecl (lambda (arg-0 arg-1) (case (vector-ref arg-1 0) ((0) (let ((e-1 (vector-ref arg-1 2))) (let ((e-2 (vector-ref arg-1 3))) (let ((e-3 (vector-ref arg-1 4))) (let ((e-4 (vector-ref arg-1 5))) (vector 0 arg-0 e-1 e-2 e-3 (TTImpC-45Utils-substLocTy arg-0 e-4))))))) ((2) (let ((e-6 (vector-ref arg-1 2))) (let ((e-7 (vector-ref arg-1 3))) (vector 2 arg-0 e-6 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (TTImpC-45Utils-substLocClause arg-0 eta-0)) e-7))))) ((1) (let ((e-9 (vector-ref arg-1 2))) (let ((e-10 (vector-ref arg-1 3))) (vector 1 arg-0 e-9 (TTImpC-45Utils-substLocData arg-0 e-10))))) ((5) (let ((e-12 (vector-ref arg-1 2))) (let ((e-13 (vector-ref arg-1 3))) (vector 5 arg-0 e-12 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (TTImpC-45Utils-substLocDecl arg-0 eta-0)) e-13)))))(else arg-1)))) +(define TTImpC-45Utils-substLocData (lambda (arg-0 arg-1) (case (vector-ref arg-1 0) ((0) (let ((e-1 (vector-ref arg-1 2))) (let ((e-2 (vector-ref arg-1 3))) (let ((e-3 (vector-ref arg-1 4))) (let ((e-4 (vector-ref arg-1 5))) (vector 0 arg-0 e-1 (TTImpC-45Utils-substLoc arg-0 e-2) e-3 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (TTImpC-45Utils-substLocTy arg-0 eta-0)) e-4))))))) (else (let ((e-6 (vector-ref arg-1 2))) (let ((e-7 (vector-ref arg-1 3))) (vector 1 arg-0 e-6 (TTImpC-45Utils-substLoc arg-0 e-7)))))))) +(define TTImpC-45Utils-substLocClause (lambda (arg-0 arg-1) (case (vector-ref arg-1 0) ((0) (let ((e-1 (vector-ref arg-1 2))) (let ((e-2 (vector-ref arg-1 3))) (vector 0 arg-0 (TTImpC-45Utils-substLoc arg-0 e-1) (TTImpC-45Utils-substLoc arg-0 e-2))))) ((1) (let ((e-4 (vector-ref arg-1 2))) (let ((e-5 (vector-ref arg-1 3))) (let ((e-6 (vector-ref arg-1 4))) (let ((e-7 (vector-ref arg-1 5))) (let ((e-8 (vector-ref arg-1 6))) (vector 1 arg-0 (TTImpC-45Utils-substLoc arg-0 e-4) (TTImpC-45Utils-substLoc arg-0 e-5) e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (TTImpC-45Utils-substLocClause arg-0 eta-0)) e-8)))))))) (else (let ((e-10 (vector-ref arg-1 2))) (vector 2 arg-0 (TTImpC-45Utils-substLoc arg-0 e-10))))))) +(define TTImpC-45Utils-substLoc (lambda (arg-0 arg-1) (case (vector-ref arg-1 0) ((0) (let ((e-1 (vector-ref arg-1 2))) (vector 0 arg-0 e-1))) ((1) (let ((e-3 (vector-ref arg-1 2))) (let ((e-4 (vector-ref arg-1 3))) (let ((e-5 (vector-ref arg-1 4))) (let ((e-6 (vector-ref arg-1 5))) (let ((e-7 (vector-ref arg-1 6))) (vector 1 arg-0 e-3 e-4 e-5 (TTImpC-45Utils-substLoc arg-0 e-6) (TTImpC-45Utils-substLoc arg-0 e-7)))))))) ((2) (let ((e-9 (vector-ref arg-1 2))) (let ((e-10 (vector-ref arg-1 3))) (let ((e-11 (vector-ref arg-1 4))) (let ((e-12 (vector-ref arg-1 5))) (let ((e-13 (vector-ref arg-1 6))) (vector 2 arg-0 e-9 e-10 e-11 (TTImpC-45Utils-substLoc arg-0 e-12) (TTImpC-45Utils-substLoc arg-0 e-13)))))))) ((3) (let ((e-16 (vector-ref arg-1 3))) (let ((e-17 (vector-ref arg-1 4))) (let ((e-18 (vector-ref arg-1 5))) (let ((e-19 (vector-ref arg-1 6))) (let ((e-20 (vector-ref arg-1 7))) (vector 3 arg-0 arg-0 e-16 e-17 (TTImpC-45Utils-substLoc arg-0 e-18) (TTImpC-45Utils-substLoc arg-0 e-19) (TTImpC-45Utils-substLoc arg-0 e-20)))))))) ((4) (let ((e-22 (vector-ref arg-1 2))) (let ((e-23 (vector-ref arg-1 3))) (let ((e-24 (vector-ref arg-1 4))) (vector 4 arg-0 (TTImpC-45Utils-substLoc arg-0 e-22) (TTImpC-45Utils-substLoc arg-0 e-23) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (TTImpC-45Utils-substLocClause arg-0 eta-0)) e-24)))))) ((5) (let ((e-26 (vector-ref arg-1 2))) (let ((e-27 (vector-ref arg-1 3))) (vector 5 arg-0 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (TTImpC-45Utils-substLocDecl arg-0 eta-0)) e-26) (TTImpC-45Utils-substLoc arg-0 e-27))))) ((8) (let ((e-29 (vector-ref arg-1 2))) (let ((e-30 (vector-ref arg-1 3))) (vector 8 arg-0 (TTImpC-45Utils-substLoc arg-0 e-29) (TTImpC-45Utils-substLoc arg-0 e-30))))) ((10) (let ((e-32 (vector-ref arg-1 2))) (let ((e-33 (vector-ref arg-1 3))) (let ((e-34 (vector-ref arg-1 4))) (vector 10 arg-0 (TTImpC-45Utils-substLoc arg-0 e-32) e-33 (TTImpC-45Utils-substLoc arg-0 e-34)))))) ((9) (let ((e-36 (vector-ref arg-1 2))) (let ((e-37 (vector-ref arg-1 3))) (vector 9 arg-0 (TTImpC-45Utils-substLoc arg-0 e-36) (TTImpC-45Utils-substLoc arg-0 e-37))))) ((11) (let ((e-39 (vector-ref arg-1 2))) (let ((e-40 (vector-ref arg-1 3))) (vector 11 arg-0 (TTImpC-45Utils-substLoc arg-0 e-39) (TTImpC-45Utils-substLoc arg-0 e-40))))) ((13) (let ((e-42 (vector-ref arg-1 2))) (let ((e-43 (vector-ref arg-1 3))) (vector 13 arg-0 e-42 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (TTImpC-45Utils-substLoc arg-0 eta-0)) e-43))))) ((15) (let ((e-45 (vector-ref arg-1 2))) (vector 15 arg-0 (TTImpC-45Utils-substLoc arg-0 e-45)))) ((18) (let ((e-48 (vector-ref arg-1 3))) (let ((e-49 (vector-ref arg-1 4))) (let ((e-50 (vector-ref arg-1 5))) (vector 18 arg-0 arg-0 e-48 e-49 (TTImpC-45Utils-substLoc arg-0 e-50)))))) ((19) (let ((e-52 (vector-ref arg-1 2))) (let ((e-53 (vector-ref arg-1 3))) (vector 19 arg-0 e-52 (TTImpC-45Utils-substLoc arg-0 e-53))))) ((20) (let ((e-55 (vector-ref arg-1 2))) (let ((e-56 (vector-ref arg-1 3))) (vector 20 arg-0 e-55 (TTImpC-45Utils-substLoc arg-0 e-56))))) ((21) (let ((e-58 (vector-ref arg-1 2))) (vector 21 arg-0 (TTImpC-45Utils-substLoc arg-0 e-58)))) ((22) (let ((e-60 (vector-ref arg-1 2))) (vector 22 arg-0 (TTImpC-45Utils-substLoc arg-0 e-60))))(else arg-1)))) +(define TTImpC-45Utils-substBindVars (lambda (ext-0 ext-1 ext-2) (TTImpC-45Utils-substNamesC-39 1 ext-0 ext-1 ext-2))) +(define TTImpC-45Utils-nameNum (lambda (arg-0) (TTImpC-45Utils-case--nameNum-1438 arg-0 (DataC-45String-span (lambda (eta-0) (PreludeC-45Types-isDigit eta-0)) (PreludeC-45Types-reverse arg-0))))) +(define TTImpC-45Utils-getUnique (lambda (arg-0 arg-1) (let ((sc0 (PreludeC-45Types-elem (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_String arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_String arg-4 arg-5)))) arg-1 arg-0))) (cond ((equal? sc0 1) (TTImpC-45Utils-getUnique arg-0 (PreludeC-45TypesC-45String-C-43C-43 arg-1 "'"))) (else arg-1))))) +(define TTImpC-45Utils-findUniqueBindableNames (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((u--assoc (DataC-45List-nub (cons (lambda (arg-6) (lambda (arg-7) (PreludeC-45EqOrd-u--C-61C-61_Eq_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (arg-8) (lambda (arg-9) (PreludeC-45EqOrd-u--C-61C-61_Eq_String arg-8 arg-9))) (lambda (arg-8) (lambda (arg-9) (PreludeC-45EqOrd-u--C-47C-61_Eq_String arg-8 arg-9)))) (cons (lambda (arg-8) (lambda (arg-9) (PreludeC-45EqOrd-u--C-61C-61_Eq_String arg-8 arg-9))) (lambda (arg-8) (lambda (arg-9) (PreludeC-45EqOrd-u--C-47C-61_Eq_String arg-8 arg-9)))) arg-6 arg-7))) (lambda (arg-6) (lambda (arg-7) (PreludeC-45EqOrd-u--C-47C-61_Eq_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (arg-8) (lambda (arg-9) (PreludeC-45EqOrd-u--C-61C-61_Eq_String arg-8 arg-9))) (lambda (arg-8) (lambda (arg-9) (PreludeC-45EqOrd-u--C-47C-61_Eq_String arg-8 arg-9)))) (cons (lambda (arg-8) (lambda (arg-9) (PreludeC-45EqOrd-u--C-61C-61_Eq_String arg-8 arg-9))) (lambda (arg-8) (lambda (arg-9) (PreludeC-45EqOrd-u--C-47C-61_Eq_String arg-8 arg-9)))) arg-6 arg-7)))) (TTImpC-45Utils-findBindableNames arg-2 arg-3 arg-4 arg-5)))) (lambda (eta-0) (let ((act-24 (let ((act-24 (CoreC-45Context-getSession arg-0 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((sc1 (let ((e-17 (vector-ref e-5 17))) e-17))) (cond ((equal? sc1 1) (let ((act-25 (let ((act-25 (unbox arg-0))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((u--ctxt (let ((e-0 (vector-ref e-6 0))) e-0))) (let ((act-26 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (case (vector-ref eta-1 0) ((0) (let ((e-2 (vector-ref eta-1 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref eta-1 1))) (vector 1 (DataC-45List-catMaybes e-7)))))) (PreludeC-45Basics-flip (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (CoreC-45Core-traverseC-39 eta-1 eta-2 '() eta-3)))) u--assoc (lambda (lamc-0) (lambda (clam-0) (let ((e-2 (car lamc-0))) (let ((act-26 ((CoreC-45Context-lookupCtxtName (vector 1 e-2) u--ctxt) clam-0))) (case (vector-ref act-26 0) ((0) (let ((e-4 (vector-ref act-26 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref act-26 1))) (let ((u--ns (PreludeC-45Basics-flip (lambda (eta-1) (lambda (eta-2) (DataC-45List-mapMaybe eta-1 eta-2))) e-7 (lambda (lamc-1) (let ((e-8 (car lamc-1))) (let ((e-4 (cdr lamc-1))) (let ((e-9 (cdr e-4))) (let ((e-17 (vector-ref e-9 17))) (case (vector-ref e-17 0) ((7) '())(else (PreludeC-45Types-u--pure_Applicative_Maybe e-8))))))))))) (vector 1 (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (PreludeC-45Types-u--map_Functor_Maybe eta-3 eta-4))))) (lambda (eta-1) (cons e-2 eta-1)) (DataC-45List1-fromList u--ns)))))))))))) eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((sc4 (DataC-45List1-fromList e-7))) (if (null? sc4) (vector 1 0) (let ((e-1 (unbox sc4))) (CoreC-45Context-recordWarning arg-0 (vector 1 arg-1 e-1) eta-0)))))))))))))) (else (vector 1 0)))))))))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (vector 1 u--assoc)))))))) +(define TTImpC-45Utils-findIBindVars (lambda (arg-0) (case (vector-ref arg-0 0) ((1) (let ((e-4 (vector-ref arg-0 5))) (let ((e-5 (vector-ref arg-0 6))) (PreludeC-45TypesC-45List-C-43C-43 (TTImpC-45Utils-findIBindVars e-4) (TTImpC-45Utils-findIBindVars e-5))))) ((2) (let ((e-10 (vector-ref arg-0 5))) (let ((e-11 (vector-ref arg-0 6))) (PreludeC-45TypesC-45List-C-43C-43 (TTImpC-45Utils-findIBindVars e-10) (TTImpC-45Utils-findIBindVars e-11))))) ((8) (let ((e-13 (vector-ref arg-0 2))) (let ((e-14 (vector-ref arg-0 3))) (PreludeC-45TypesC-45List-C-43C-43 (TTImpC-45Utils-findIBindVars e-13) (TTImpC-45Utils-findIBindVars e-14))))) ((10) (let ((e-16 (vector-ref arg-0 2))) (let ((e-18 (vector-ref arg-0 4))) (PreludeC-45TypesC-45List-C-43C-43 (TTImpC-45Utils-findIBindVars e-16) (TTImpC-45Utils-findIBindVars e-18))))) ((9) (let ((e-20 (vector-ref arg-0 2))) (let ((e-21 (vector-ref arg-0 3))) (PreludeC-45TypesC-45List-C-43C-43 (TTImpC-45Utils-findIBindVars e-20) (TTImpC-45Utils-findIBindVars e-21))))) ((11) (let ((e-23 (vector-ref arg-0 2))) (let ((e-24 (vector-ref arg-0 3))) (PreludeC-45TypesC-45List-C-43C-43 (TTImpC-45Utils-findIBindVars e-23) (TTImpC-45Utils-findIBindVars e-24))))) ((17) (let ((e-26 (vector-ref arg-0 2))) (cons (vector 1 e-26) '()))) ((20) (let ((e-29 (vector-ref arg-0 3))) (TTImpC-45Utils-findIBindVars e-29))) ((21) (let ((e-31 (vector-ref arg-0 2))) (TTImpC-45Utils-findIBindVars e-31))) ((22) (let ((e-33 (vector-ref arg-0 2))) (TTImpC-45Utils-findIBindVars e-33))) ((13) (let ((e-36 (vector-ref arg-0 3))) (PreludeC-45Interfaces-concatMap (cons (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-2 arg-3))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) (lambda (eta-0) (TTImpC-45Utils-findIBindVars eta-0)) e-36)))(else '())))) +(define TTImpC-45Utils-findBindableNames (lambda (arg-0 arg-1 arg-2 arg-3) (cond ((equal? arg-0 1) (case (vector-ref arg-3 0) ((0) (let ((e-49 (vector-ref arg-3 2))) (case (vector-ref e-49 0) ((1) (let ((e-50 (vector-ref e-49 1))) (let ((sc3 (let ((sc4 (PreludeC-45Types-elem (cons (lambda (arg-4) (lambda (arg-5) (CoreC-45Name-u--C-61C-61_Eq_Name arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (CoreC-45Name-u--C-47C-61_Eq_Name arg-4 arg-5)))) (vector 1 e-50) arg-1))) (cond ((equal? sc4 1) 0) (else (LibrariesC-45UtilsC-45String-lowerFirst e-50)))))) (cond ((equal? sc3 1) (cons (cons e-50 (TTImpC-45Utils-getUnique arg-2 e-50)) '())) (else '())))))(else (case (vector-ref arg-3 0) ((1) (let ((e-3 (vector-ref arg-3 4))) (let ((e-4 (vector-ref arg-3 5))) (let ((e-5 (vector-ref arg-3 6))) (let ((u--envC-39 (if (null? e-3) arg-1 (let ((e-6 (unbox e-3))) (cons e-6 arg-1))))) (PreludeC-45TypesC-45List-C-43C-43 (TTImpC-45Utils-findBindableNames 1 arg-1 arg-2 e-4) (TTImpC-45Utils-findBindableNames 1 u--envC-39 arg-2 e-5))))))) ((2) (let ((e-9 (vector-ref arg-3 4))) (let ((e-10 (vector-ref arg-3 5))) (let ((e-11 (vector-ref arg-3 6))) (let ((u--envC-39 (if (null? e-9) arg-1 (let ((e-2 (unbox e-9))) (cons e-2 arg-1))))) (PreludeC-45TypesC-45List-C-43C-43 (TTImpC-45Utils-findBindableNames 1 arg-1 arg-2 e-10) (TTImpC-45Utils-findBindableNames 1 u--envC-39 arg-2 e-11))))))) ((8) (let ((e-13 (vector-ref arg-3 2))) (let ((e-14 (vector-ref arg-3 3))) (PreludeC-45TypesC-45List-C-43C-43 (TTImpC-45Utils-findBindableNames 0 arg-1 arg-2 e-13) (TTImpC-45Utils-findBindableNames 1 arg-1 arg-2 e-14))))) ((10) (let ((e-16 (vector-ref arg-3 2))) (let ((e-18 (vector-ref arg-3 4))) (PreludeC-45TypesC-45List-C-43C-43 (TTImpC-45Utils-findBindableNames 0 arg-1 arg-2 e-16) (TTImpC-45Utils-findBindableNames 1 arg-1 arg-2 e-18))))) ((9) (let ((e-20 (vector-ref arg-3 2))) (let ((e-21 (vector-ref arg-3 3))) (PreludeC-45TypesC-45List-C-43C-43 (TTImpC-45Utils-findBindableNames 0 arg-1 arg-2 e-20) (TTImpC-45Utils-findBindableNames 1 arg-1 arg-2 e-21))))) ((11) (let ((e-23 (vector-ref arg-3 2))) (let ((e-24 (vector-ref arg-3 3))) (PreludeC-45TypesC-45List-C-43C-43 (TTImpC-45Utils-findBindableNames 0 arg-1 arg-2 e-23) (TTImpC-45Utils-findBindableNames 1 arg-1 arg-2 e-24))))) ((18) (let ((e-28 (vector-ref arg-3 4))) (let ((e-29 (vector-ref arg-3 5))) (case (vector-ref e-28 0) ((1) (let ((e-47 (vector-ref e-28 1))) (cons (cons e-47 (TTImpC-45Utils-getUnique arg-2 e-47)) (TTImpC-45Utils-findBindableNames arg-0 arg-1 arg-2 e-29))))(else (TTImpC-45Utils-findBindableNames arg-0 arg-1 arg-2 e-29)))))) ((19) (let ((e-32 (vector-ref arg-3 3))) (TTImpC-45Utils-findBindableNames arg-0 arg-1 arg-2 e-32))) ((20) (let ((e-35 (vector-ref arg-3 3))) (TTImpC-45Utils-findBindableNames arg-0 arg-1 arg-2 e-35))) ((21) (let ((e-37 (vector-ref arg-3 2))) (TTImpC-45Utils-findBindableNames arg-0 arg-1 arg-2 e-37))) ((22) (let ((e-39 (vector-ref arg-3 2))) (TTImpC-45Utils-findBindableNames arg-0 arg-1 arg-2 e-39))) ((23) (let ((e-41 (vector-ref arg-3 2))) (TTImpC-45Utils-findBindableNames arg-0 arg-1 arg-2 e-41))) ((26) (let ((e-43 (vector-ref arg-3 2))) (TTImpC-45Utils-findBindableNames arg-0 arg-1 arg-2 e-43))) ((13) (let ((e-46 (vector-ref arg-3 3))) (PreludeC-45Interfaces-concatMap (cons (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (cons (lambda (arg-4) (lambda (arg-5) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-4 arg-5))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) (lambda (eta-0) (TTImpC-45Utils-findBindableNames arg-0 arg-1 arg-2 eta-0)) e-46)))(else '()))))))(else (case (vector-ref arg-3 0) ((1) (let ((e-3 (vector-ref arg-3 4))) (let ((e-4 (vector-ref arg-3 5))) (let ((e-5 (vector-ref arg-3 6))) (let ((u--envC-39 (if (null? e-3) arg-1 (let ((e-6 (unbox e-3))) (cons e-6 arg-1))))) (PreludeC-45TypesC-45List-C-43C-43 (TTImpC-45Utils-findBindableNames 1 arg-1 arg-2 e-4) (TTImpC-45Utils-findBindableNames 1 u--envC-39 arg-2 e-5))))))) ((2) (let ((e-9 (vector-ref arg-3 4))) (let ((e-10 (vector-ref arg-3 5))) (let ((e-11 (vector-ref arg-3 6))) (let ((u--envC-39 (if (null? e-9) arg-1 (let ((e-2 (unbox e-9))) (cons e-2 arg-1))))) (PreludeC-45TypesC-45List-C-43C-43 (TTImpC-45Utils-findBindableNames 1 arg-1 arg-2 e-10) (TTImpC-45Utils-findBindableNames 1 u--envC-39 arg-2 e-11))))))) ((8) (let ((e-13 (vector-ref arg-3 2))) (let ((e-14 (vector-ref arg-3 3))) (PreludeC-45TypesC-45List-C-43C-43 (TTImpC-45Utils-findBindableNames 0 arg-1 arg-2 e-13) (TTImpC-45Utils-findBindableNames 1 arg-1 arg-2 e-14))))) ((10) (let ((e-16 (vector-ref arg-3 2))) (let ((e-18 (vector-ref arg-3 4))) (PreludeC-45TypesC-45List-C-43C-43 (TTImpC-45Utils-findBindableNames 0 arg-1 arg-2 e-16) (TTImpC-45Utils-findBindableNames 1 arg-1 arg-2 e-18))))) ((9) (let ((e-20 (vector-ref arg-3 2))) (let ((e-21 (vector-ref arg-3 3))) (PreludeC-45TypesC-45List-C-43C-43 (TTImpC-45Utils-findBindableNames 0 arg-1 arg-2 e-20) (TTImpC-45Utils-findBindableNames 1 arg-1 arg-2 e-21))))) ((11) (let ((e-23 (vector-ref arg-3 2))) (let ((e-24 (vector-ref arg-3 3))) (PreludeC-45TypesC-45List-C-43C-43 (TTImpC-45Utils-findBindableNames 0 arg-1 arg-2 e-23) (TTImpC-45Utils-findBindableNames 1 arg-1 arg-2 e-24))))) ((18) (let ((e-28 (vector-ref arg-3 4))) (let ((e-29 (vector-ref arg-3 5))) (case (vector-ref e-28 0) ((1) (let ((e-47 (vector-ref e-28 1))) (cons (cons e-47 (TTImpC-45Utils-getUnique arg-2 e-47)) (TTImpC-45Utils-findBindableNames arg-0 arg-1 arg-2 e-29))))(else (TTImpC-45Utils-findBindableNames arg-0 arg-1 arg-2 e-29)))))) ((19) (let ((e-32 (vector-ref arg-3 3))) (TTImpC-45Utils-findBindableNames arg-0 arg-1 arg-2 e-32))) ((20) (let ((e-35 (vector-ref arg-3 3))) (TTImpC-45Utils-findBindableNames arg-0 arg-1 arg-2 e-35))) ((21) (let ((e-37 (vector-ref arg-3 2))) (TTImpC-45Utils-findBindableNames arg-0 arg-1 arg-2 e-37))) ((22) (let ((e-39 (vector-ref arg-3 2))) (TTImpC-45Utils-findBindableNames arg-0 arg-1 arg-2 e-39))) ((23) (let ((e-41 (vector-ref arg-3 2))) (TTImpC-45Utils-findBindableNames arg-0 arg-1 arg-2 e-41))) ((26) (let ((e-43 (vector-ref arg-3 2))) (TTImpC-45Utils-findBindableNames arg-0 arg-1 arg-2 e-43))) ((13) (let ((e-46 (vector-ref arg-3 3))) (PreludeC-45Interfaces-concatMap (cons (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (cons (lambda (arg-4) (lambda (arg-5) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-4 arg-5))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) (lambda (eta-0) (TTImpC-45Utils-findBindableNames arg-0 arg-1 arg-2 eta-0)) e-46)))(else '())))))(else (case (vector-ref arg-3 0) ((1) (let ((e-3 (vector-ref arg-3 4))) (let ((e-4 (vector-ref arg-3 5))) (let ((e-5 (vector-ref arg-3 6))) (let ((u--envC-39 (if (null? e-3) arg-1 (let ((e-6 (unbox e-3))) (cons e-6 arg-1))))) (PreludeC-45TypesC-45List-C-43C-43 (TTImpC-45Utils-findBindableNames 1 arg-1 arg-2 e-4) (TTImpC-45Utils-findBindableNames 1 u--envC-39 arg-2 e-5))))))) ((2) (let ((e-9 (vector-ref arg-3 4))) (let ((e-10 (vector-ref arg-3 5))) (let ((e-11 (vector-ref arg-3 6))) (let ((u--envC-39 (if (null? e-9) arg-1 (let ((e-2 (unbox e-9))) (cons e-2 arg-1))))) (PreludeC-45TypesC-45List-C-43C-43 (TTImpC-45Utils-findBindableNames 1 arg-1 arg-2 e-10) (TTImpC-45Utils-findBindableNames 1 u--envC-39 arg-2 e-11))))))) ((8) (let ((e-13 (vector-ref arg-3 2))) (let ((e-14 (vector-ref arg-3 3))) (PreludeC-45TypesC-45List-C-43C-43 (TTImpC-45Utils-findBindableNames 0 arg-1 arg-2 e-13) (TTImpC-45Utils-findBindableNames 1 arg-1 arg-2 e-14))))) ((10) (let ((e-16 (vector-ref arg-3 2))) (let ((e-18 (vector-ref arg-3 4))) (PreludeC-45TypesC-45List-C-43C-43 (TTImpC-45Utils-findBindableNames 0 arg-1 arg-2 e-16) (TTImpC-45Utils-findBindableNames 1 arg-1 arg-2 e-18))))) ((9) (let ((e-20 (vector-ref arg-3 2))) (let ((e-21 (vector-ref arg-3 3))) (PreludeC-45TypesC-45List-C-43C-43 (TTImpC-45Utils-findBindableNames 0 arg-1 arg-2 e-20) (TTImpC-45Utils-findBindableNames 1 arg-1 arg-2 e-21))))) ((11) (let ((e-23 (vector-ref arg-3 2))) (let ((e-24 (vector-ref arg-3 3))) (PreludeC-45TypesC-45List-C-43C-43 (TTImpC-45Utils-findBindableNames 0 arg-1 arg-2 e-23) (TTImpC-45Utils-findBindableNames 1 arg-1 arg-2 e-24))))) ((18) (let ((e-28 (vector-ref arg-3 4))) (let ((e-29 (vector-ref arg-3 5))) (case (vector-ref e-28 0) ((1) (let ((e-47 (vector-ref e-28 1))) (cons (cons e-47 (TTImpC-45Utils-getUnique arg-2 e-47)) (TTImpC-45Utils-findBindableNames arg-0 arg-1 arg-2 e-29))))(else (TTImpC-45Utils-findBindableNames arg-0 arg-1 arg-2 e-29)))))) ((19) (let ((e-32 (vector-ref arg-3 3))) (TTImpC-45Utils-findBindableNames arg-0 arg-1 arg-2 e-32))) ((20) (let ((e-35 (vector-ref arg-3 3))) (TTImpC-45Utils-findBindableNames arg-0 arg-1 arg-2 e-35))) ((21) (let ((e-37 (vector-ref arg-3 2))) (TTImpC-45Utils-findBindableNames arg-0 arg-1 arg-2 e-37))) ((22) (let ((e-39 (vector-ref arg-3 2))) (TTImpC-45Utils-findBindableNames arg-0 arg-1 arg-2 e-39))) ((23) (let ((e-41 (vector-ref arg-3 2))) (TTImpC-45Utils-findBindableNames arg-0 arg-1 arg-2 e-41))) ((26) (let ((e-43 (vector-ref arg-3 2))) (TTImpC-45Utils-findBindableNames arg-0 arg-1 arg-2 e-43))) ((13) (let ((e-46 (vector-ref arg-3 3))) (PreludeC-45Interfaces-concatMap (cons (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (cons (lambda (arg-4) (lambda (arg-5) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-4 arg-5))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) (lambda (eta-0) (TTImpC-45Utils-findBindableNames arg-0 arg-1 arg-2 eta-0)) e-46)))(else '())))))) +(define TTImpC-45Utils-findAllNames (lambda (arg-0 arg-1) (case (vector-ref arg-1 0) ((0) (let ((e-1 (vector-ref arg-1 2))) (let ((sc1 (PreludeC-45Types-elem (cons (lambda (arg-2) (lambda (arg-3) (CoreC-45Name-u--C-61C-61_Eq_Name arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (CoreC-45Name-u--C-47C-61_Eq_Name arg-4 arg-5)))) e-1 arg-0))) (cond ((equal? sc1 1) '()) (else (cons e-1 '())))))) ((1) (let ((e-5 (vector-ref arg-1 4))) (let ((e-6 (vector-ref arg-1 5))) (let ((e-7 (vector-ref arg-1 6))) (let ((u--envC-39 (if (null? e-5) arg-0 (let ((e-8 (unbox e-5))) (cons e-8 arg-0))))) (PreludeC-45TypesC-45List-C-43C-43 (TTImpC-45Utils-findAllNames arg-0 e-6) (TTImpC-45Utils-findAllNames u--envC-39 e-7))))))) ((2) (let ((e-11 (vector-ref arg-1 4))) (let ((e-12 (vector-ref arg-1 5))) (let ((e-13 (vector-ref arg-1 6))) (let ((u--envC-39 (if (null? e-11) arg-0 (let ((e-2 (unbox e-11))) (cons e-2 arg-0))))) (PreludeC-45TypesC-45List-C-43C-43 (TTImpC-45Utils-findAllNames u--envC-39 e-12) (TTImpC-45Utils-findAllNames u--envC-39 e-13))))))) ((8) (let ((e-15 (vector-ref arg-1 2))) (let ((e-16 (vector-ref arg-1 3))) (PreludeC-45TypesC-45List-C-43C-43 (TTImpC-45Utils-findAllNames arg-0 e-15) (TTImpC-45Utils-findAllNames arg-0 e-16))))) ((10) (let ((e-18 (vector-ref arg-1 2))) (let ((e-20 (vector-ref arg-1 4))) (PreludeC-45TypesC-45List-C-43C-43 (TTImpC-45Utils-findAllNames arg-0 e-18) (TTImpC-45Utils-findAllNames arg-0 e-20))))) ((9) (let ((e-22 (vector-ref arg-1 2))) (let ((e-23 (vector-ref arg-1 3))) (PreludeC-45TypesC-45List-C-43C-43 (TTImpC-45Utils-findAllNames arg-0 e-22) (TTImpC-45Utils-findAllNames arg-0 e-23))))) ((11) (let ((e-25 (vector-ref arg-1 2))) (let ((e-26 (vector-ref arg-1 3))) (PreludeC-45TypesC-45List-C-43C-43 (TTImpC-45Utils-findAllNames arg-0 e-25) (TTImpC-45Utils-findAllNames arg-0 e-26))))) ((18) (let ((e-30 (vector-ref arg-1 4))) (let ((e-31 (vector-ref arg-1 5))) (cons e-30 (TTImpC-45Utils-findAllNames arg-0 e-31))))) ((19) (let ((e-34 (vector-ref arg-1 3))) (TTImpC-45Utils-findAllNames arg-0 e-34))) ((20) (let ((e-37 (vector-ref arg-1 3))) (TTImpC-45Utils-findAllNames arg-0 e-37))) ((21) (let ((e-39 (vector-ref arg-1 2))) (TTImpC-45Utils-findAllNames arg-0 e-39))) ((22) (let ((e-41 (vector-ref arg-1 2))) (TTImpC-45Utils-findAllNames arg-0 e-41))) ((23) (let ((e-43 (vector-ref arg-1 2))) (TTImpC-45Utils-findAllNames arg-0 e-43))) ((26) (let ((e-45 (vector-ref arg-1 2))) (TTImpC-45Utils-findAllNames arg-0 e-45))) ((13) (let ((e-48 (vector-ref arg-1 3))) (PreludeC-45Interfaces-concatMap (cons (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-2 arg-3))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) (lambda (eta-0) (TTImpC-45Utils-findAllNames arg-0 eta-0)) e-48)))(else '())))) +(define TTImpC-45TTImp-case--weakenNs-6874 (lambda (arg-2 arg-3 arg-4) (cond ((equal? arg-3 0) (if (null? arg-4) arg-2 (let ((e-3 (unbox arg-4))) (TTImpC-45TTImp-u--weaken_Weaken_NestedNames (TTImpC-45TTImp-u--weakenNs_Weaken_NestedNames e-3 arg-2)))))(else (let ((e-3 (unbox arg-4))) (TTImpC-45TTImp-u--weaken_Weaken_NestedNames (TTImpC-45TTImp-u--weakenNs_Weaken_NestedNames e-3 arg-2))))))) +(define TTImpC-45TTImp-n--6255-6907-u--wknName (lambda (arg-2 arg-3) (let ((e-2 (car arg-3))) (let ((e-3 (cdr arg-3))) (let ((e-6 (car e-3))) (let ((e-7 (cdr e-3))) (let ((e-10 (car e-7))) (let ((e-11 (cdr e-7))) (cons e-2 (cons e-6 (cons (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45TT-u--weaken_Weaken_Var eta-0)) e-10) (lambda (u--fc) (lambda (u--nt) (CoreC-45TT-u--weaken_Weaken_Term ((e-11 u--fc) u--nt))))))))))))))) +(define TTImpC-45TTImp-n--8209-8743-u--updateNs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (if (null? arg-10) '() (let ((e-1 (car arg-10))) (let ((e-2 (cdr arg-10))) (if (null? e-1) (box e-2) (let ((sc2 (PreludeC-45Types-u--C-61C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-11) (lambda (arg-12) (CoreC-45Name-u--C-61C-61_Eq_Name arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (CoreC-45Name-u--C-47C-61_Eq_Name arg-11 arg-12)))) (box arg-9) e-1))) (cond ((equal? sc2 1) (box e-2)) (else (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (TTImpC-45TTImp-n--8209-8743-u--updateNs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-2) (lambda (u--nsC-39) (PreludeC-45Types-u--pure_Applicative_Maybe (cons e-1 u--nsC-39))))))))))))) +(define TTImpC-45TTImp-n--9178-9759-u--toRF (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (case (vector-ref arg-11 0) ((1) (let ((e-0 (vector-ref arg-11 1))) (vector 5 e-0)))(else arg-11)))) +(define TTImpC-45TTImp-n--8201-8688-u--setAs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (case (vector-ref arg-7 0) ((8) (let ((e-0 (vector-ref arg-7 1))) (let ((e-1 (vector-ref arg-7 2))) (let ((e-2 (vector-ref arg-7 3))) (let ((act-24 (TTImpC-45TTImp-n--8201-8688-u--setAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (cons '() arg-6) e-1 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 8 e-0 e-5 e-2)))))))))) ((9) (let ((e-3 (vector-ref arg-7 1))) (let ((e-4 (vector-ref arg-7 2))) (let ((e-5 (vector-ref arg-7 3))) (let ((act-24 (TTImpC-45TTImp-n--8201-8688-u--setAs arg-0 arg-1 arg-2 arg-3 arg-4 (cons '() arg-5) arg-6 e-4 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-24 1))) (vector 1 (vector 9 e-3 e-6 e-5)))))))))) ((10) (let ((e-6 (vector-ref arg-7 1))) (let ((e-7 (vector-ref arg-7 2))) (let ((e-8 (vector-ref arg-7 3))) (let ((e-9 (vector-ref arg-7 4))) (let ((act-24 (TTImpC-45TTImp-n--8201-8688-u--setAs arg-0 arg-1 arg-2 arg-3 arg-4 (cons (box e-8) arg-5) (cons (box e-8) arg-6) e-7 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 10 e-6 e-5 e-8 e-9))))))))))) ((11) (let ((e-10 (vector-ref arg-7 1))) (let ((e-11 (vector-ref arg-7 2))) (let ((e-12 (vector-ref arg-7 3))) (let ((act-24 (TTImpC-45TTImp-n--8201-8688-u--setAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-11 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 11 e-10 e-5 e-12)))))))))) ((0) (let ((e-13 (vector-ref arg-7 1))) (let ((e-14 (vector-ref arg-7 2))) (let ((act-24 (CoreC-45Context-lookupTyExact (vector 9 arg-3) (let ((e-0 (vector-ref arg-2 0))) e-0) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (if (null? e-5) (let ((act-25 (CoreC-45ContextC-45Log-log arg-4 "declare.def.lhs.implicits" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))))))))))))))))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Could not find variable " (PreludeC-45Show-u--show_Show_Int arg-3))) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (vector 1 (vector 0 e-13 e-14))))) (let ((e-2 (unbox e-5))) (let ((act-25 ((CoreC-45Normalise-nf arg-4 '() arg-2 '() e-2) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-3 (vector-ref act-25 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 ((TTImpC-45TTImp-n--8209-8744-u--findImps arg-0 arg-1 arg-2 arg-3 arg-4 e-14 e-13 arg-6 arg-5 arg-5 arg-6 arg-1 e-6) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-3 (vector-ref act-26 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (CoreC-45ContextC-45Log-log arg-4 "declare.def.lhs.implicits" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))))))))))))))))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "\u000a In the type of " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Int arg-3) (PreludeC-45TypesC-45String-C-43C-43 ": " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-2) (PreludeC-45TypesC-45String-C-43C-43 "\u000a Using locals: " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45Name-u--show_Show_Name u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Name-u--showPrec_Show_Name u--d u--x)))) arg-1) (PreludeC-45TypesC-45String-C-43C-43 "\u000a Found implicits: " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (CoreC-45Name-u--show_Show_Name x-0)) (lambda (u--d) (lambda (x-0) (CoreC-45Name-u--showPrec_Show_Name u--d x-0)))) (cons (lambda (x-0) (CoreC-45TT-u--show_Show_C-40PiInfoC-32C-36tC-41 (cons (lambda (x-1) (TTImpC-45TTImp-u--show_Show_RawImp x-1)) (lambda (u--d) (lambda (x-1) (TTImpC-45TTImp-u--showPrec_Show_RawImp u--d x-1)))) x-0)) (lambda (u--d) (lambda (x-0) (CoreC-45TT-u--showPrec_Show_C-40PiInfoC-32C-36tC-41 (cons (lambda (x-1) (TTImpC-45TTImp-u--show_Show_RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-0 x-1)))) u--d x-0))))) u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (CoreC-45Name-u--show_Show_Name x-0)) (lambda (d-0) (lambda (x-0) (CoreC-45Name-u--showPrec_Show_Name d-0 x-0)))) (cons (lambda (x-0) (CoreC-45TT-u--show_Show_C-40PiInfoC-32C-36tC-41 (cons (lambda (x-1) (TTImpC-45TTImp-u--show_Show_RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (CoreC-45TT-u--showPrec_Show_C-40PiInfoC-32C-36tC-41 (cons (lambda (x-1) (TTImpC-45TTImp-u--show_Show_RawImp x-1)) (lambda (d-1) (lambda (x-1) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-1 x-1)))) d-0 x-0))))) u--d u--x)))) e-7))))))))) ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-3 (vector-ref act-27 1))) (vector 0 e-3))) (else (vector 1 (TTImpC-45TTImp-n--8209-8745-u--impAs arg-0 arg-1 arg-2 arg-3 arg-4 e-14 e-13 arg-6 arg-5 (CoreC-45FC-virtualiseFC e-13) e-7 (vector 0 e-13 e-14)))))))))))))))))))))))(else (vector 1 arg-7))))) +(define TTImpC-45TTImp-n--8209-8745-u--impAs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (if (null? arg-10) arg-11 (let ((e-2 (car arg-10))) (let ((e-3 (cdr arg-10))) (if (null? e-2) (TTImpC-45TTImp-n--8209-8745-u--impAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-3 arg-11) (let ((e-6 (car e-2))) (let ((e-7 (cdr e-2))) (case (vector-ref e-6 0) ((1) (let ((e-11 (vector-ref e-6 1))) (case (vector-ref e-7 0) ((2) (TTImpC-45TTImp-n--8209-8745-u--impAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-3 (vector 10 arg-9 arg-11 (vector 1 e-11) (vector 17 arg-9 e-11))))(else (case (vector-ref e-7 0) ((0) (TTImpC-45TTImp-n--8209-8745-u--impAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-3 (vector 10 arg-9 arg-11 e-6 (vector 18 arg-9 (vector 2 ) 0 e-6 (vector 32 arg-9 1))))) ((3) (TTImpC-45TTImp-n--8209-8745-u--impAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-3 (vector 10 arg-9 arg-11 e-6 (vector 18 arg-9 (vector 2 ) 0 e-6 (vector 32 arg-9 1)))))(else (TTImpC-45TTImp-n--8209-8745-u--impAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-3 arg-11)))))))(else (case (vector-ref e-7 0) ((0) (TTImpC-45TTImp-n--8209-8745-u--impAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-3 (vector 10 arg-9 arg-11 e-6 (vector 18 arg-9 (vector 2 ) 0 e-6 (vector 32 arg-9 1))))) ((3) (TTImpC-45TTImp-n--8209-8745-u--impAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-3 (vector 10 arg-9 arg-11 e-6 (vector 18 arg-9 (vector 2 ) 0 e-6 (vector 32 arg-9 1)))))(else (TTImpC-45TTImp-n--8209-8745-u--impAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-3 arg-11))))))))))))) +(define TTImpC-45TTImp-n--9172-9564-u--getName (lambda (arg-0 arg-1 arg-2) (let ((e-2 (vector-ref arg-2 2))) e-2))) +(define TTImpC-45TTImp-n--9172-9565-u--getFieldName (lambda (arg-0 arg-1 arg-2) (let ((e-3 (vector-ref arg-2 3))) e-3))) +(define TTImpC-45TTImp-n--9178-9760-u--fnsUN (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (TTImpC-45TTImp-n--9172-9565-u--getFieldName arg-0 arg-1 eta-0)) arg-6))) +(define TTImpC-45TTImp-n--9178-9761-u--fnsRF (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (TTImpC-45TTImp-n--9178-9759-u--toRF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 eta-0)) (TTImpC-45TTImp-n--9178-9760-u--fnsUN arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10)))) +(define TTImpC-45TTImp-n--9178-9758-u--fldnsC-39 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (PreludeC-45Types-maybe (lambda () arg-10) (lambda () (lambda (u--f) (CoreC-45NameC-45Namespace-C-60C-46C-62 arg-10 (CoreC-45NameC-45Namespace-mkNamespace u--f)))) arg-9))) +(define TTImpC-45TTImp-n--8209-8744-u--findImps (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (if (null? arg-11) (case (vector-ref arg-12 0) ((0) (let ((e-16 (vector-ref arg-12 1))) (let ((e-17 (vector-ref arg-12 2))) (let ((e-18 (vector-ref arg-12 3))) (let ((e-19 (vector-ref arg-12 4))) (lambda (clam-1) (case (vector-ref e-18 0) ((2) (let ((e-23 (vector-ref e-18 3))) (case (vector-ref e-23 0) ((1) (let ((act-24 (((e-19 arg-2) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 e-16 0))) clam-1))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (if (null? arg-10) (let ((sc6 (TTImpC-45TTImp-n--8209-8743-u--updateNs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-17 arg-10))) (if (null? sc6) (vector 1 '()) (let ((e-2 (unbox sc6))) ((TTImpC-45TTImp-n--8209-8744-u--findImps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-2 '() e-5) clam-1)))) (let ((e-1 (car arg-10))) (if (null? e-1) (let ((sc7 (TTImpC-45TTImp-n--8209-8743-u--updateNs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-17 arg-10))) (if (null? sc7) (vector 1 '()) (let ((e-3 (unbox sc7))) ((TTImpC-45TTImp-n--8209-8744-u--findImps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-3 '() e-5) clam-1)))) (let ((e-4 (unbox e-1))) (case (vector-ref e-4 0) ((1) (let ((e-6 (vector-ref e-4 1))) (cond ((equal? e-6 "_") ((TTImpC-45TTImp-n--8209-8744-u--findImps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 '() e-5) clam-1))(else (let ((sc8 (TTImpC-45TTImp-n--8209-8743-u--updateNs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-17 arg-10))) (if (null? sc8) (vector 1 '()) (let ((e-3 (unbox sc8))) ((TTImpC-45TTImp-n--8209-8744-u--findImps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-3 '() e-5) clam-1))))))))(else (let ((sc7 (TTImpC-45TTImp-n--8209-8743-u--updateNs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-17 arg-10))) (if (null? sc7) (vector 1 '()) (let ((e-3 (unbox sc7))) ((TTImpC-45TTImp-n--8209-8744-u--findImps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-3 '() e-5) clam-1))))))))))))))) ((2) (let ((act-24 (((e-19 arg-2) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 e-16 0))) clam-1))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((sc5 (TTImpC-45TTImp-n--8209-8743-u--updateNs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-17 arg-9))) (if (null? sc5) (let ((act-25 ((TTImpC-45TTImp-n--8209-8744-u--findImps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 '() e-5) clam-1))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (cons (cons e-17 (vector 2 )) e-6)))))) (let ((e-2 (unbox sc5))) ((TTImpC-45TTImp-n--8209-8744-u--findImps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2 arg-10 '() e-5) clam-1)))))))))(else (let ((act-24 (((e-19 arg-2) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 e-16 0))) clam-1))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((sc4 (PreludeC-45Types-elem (cons (lambda (arg-13) (lambda (arg-14) (PreludeC-45Types-u--C-61C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-15) (lambda (arg-16) (CoreC-45Name-u--C-61C-61_Eq_Name arg-15 arg-16))) (lambda (arg-15) (lambda (arg-16) (CoreC-45Name-u--C-47C-61_Eq_Name arg-15 arg-16)))) arg-13 arg-14))) (lambda (arg-13) (lambda (arg-14) (PreludeC-45Types-u--C-47C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-15) (lambda (arg-16) (CoreC-45Name-u--C-61C-61_Eq_Name arg-15 arg-16))) (lambda (arg-15) (lambda (arg-16) (CoreC-45Name-u--C-47C-61_Eq_Name arg-15 arg-16)))) arg-13 arg-14)))) (box e-17) arg-9))) (cond ((equal? sc4 1) ((TTImpC-45TTImp-n--8209-8744-u--findImps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 '() e-5) clam-1)) (else (let ((act-25 ((TTImpC-45TTImp-n--8209-8744-u--findImps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 '() e-5) clam-1))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (cons (cons e-17 (CoreC-45TT-forgetDef e-23)) e-6)))))))))))))))))(else (let ((act-24 (CoreC-45ContextC-45Log-log arg-4 "declare.def.lhs.implicits" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))))))))))))))))))))))))))))))))))))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Giving up with the following locals left: " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45Name-u--show_Show_Name u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Name-u--showPrec_Show_Name u--d u--x)))) arg-11))) clam-1))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (vector 1 '()))))))))))))(else (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-log arg-4 "declare.def.lhs.implicits" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))))))))))))))))))))))))))))))))))))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Giving up with the following locals left: " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45Name-u--show_Show_Name u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Name-u--showPrec_Show_Name u--d u--x)))) arg-11))) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (vector 1 '()))))))) (let ((e-2 (cdr arg-11))) (case (vector-ref arg-12 0) ((0) (let ((e-5 (vector-ref arg-12 1))) (let ((e-7 (vector-ref arg-12 3))) (let ((e-8 (vector-ref arg-12 4))) (lambda (clam-0) (case (vector-ref e-7 0) ((2) (let ((e-12 (vector-ref e-7 3))) (case (vector-ref e-12 0) ((1) (let ((act-24 (((e-8 arg-2) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 e-5 0))) clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref act-24 1))) ((TTImpC-45TTImp-n--8209-8744-u--findImps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-2 e-9) clam-0))))))(else (let ((act-24 (CoreC-45ContextC-45Log-log arg-4 "declare.def.lhs.implicits" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))))))))))))))))))))))))))))))))))))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Giving up with the following locals left: " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45Name-u--show_Show_Name u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Name-u--showPrec_Show_Name u--d u--x)))) arg-11))) clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (vector 1 '()))))))))(else (let ((act-24 (CoreC-45ContextC-45Log-log arg-4 "declare.def.lhs.implicits" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))))))))))))))))))))))))))))))))))))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Giving up with the following locals left: " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45Name-u--show_Show_Name u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Name-u--showPrec_Show_Name u--d u--x)))) arg-11))) clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (vector 1 '())))))))))))(else (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-log arg-4 "declare.def.lhs.implicits" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))))))))))))))))))))))))))))))))))))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Giving up with the following locals left: " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45Name-u--show_Show_Name u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Name-u--showPrec_Show_Name u--d u--x)))) arg-11))) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (vector 1 '()))))))))))) +(define TTImpC-45TTImp-n--9172-9566-u--expandNS (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace arg-2 (CoreC-45NameC-45Namespace-emptyNS)))) (cond ((equal? sc0 1) arg-3) (else (case (vector-ref arg-3 0) ((1) (vector 0 arg-2 arg-3)) ((2) (vector 0 arg-2 arg-3)) ((4) (vector 0 arg-2 arg-3)) ((5) (vector 0 arg-2 arg-3))(else arg-3))))))) +(define TTImpC-45TTImp-n--9172-9567-u--defName (lambda (arg-0 arg-1 arg-2 arg-3) (case (vector-ref arg-3 0) ((0) (let ((e-4 (vector-ref arg-3 5))) (cons (TTImpC-45TTImp-n--9172-9566-u--expandNS arg-0 arg-1 arg-2 (TTImpC-45TTImp-n--9172-9564-u--getName arg-0 arg-1 e-4)) '()))) ((1) (let ((e-7 (vector-ref arg-3 3))) (case (vector-ref e-7 0) ((0) (let ((e-21 (vector-ref e-7 2))) (let ((e-24 (vector-ref e-7 5))) (cons (TTImpC-45TTImp-n--9172-9566-u--expandNS arg-0 arg-1 arg-2 e-21) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (TTImpC-45TTImp-n--9172-9566-u--expandNS arg-0 arg-1 arg-2 eta-0)) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (TTImpC-45TTImp-n--9172-9564-u--getName arg-0 arg-1 eta-0)) e-24)))))) ((1) (let ((e-26 (vector-ref e-7 2))) (cons (TTImpC-45TTImp-n--9172-9566-u--expandNS arg-0 arg-1 arg-2 e-26) '())))(else '())))) ((3) (let ((e-10 (vector-ref arg-3 3))) (PreludeC-45Interfaces-concatMap (cons (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (cons (lambda (arg-4) (lambda (arg-5) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-4 arg-5))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) (lambda (eta-0) (TTImpC-45TTImp-n--9172-9567-u--defName arg-0 arg-1 arg-2 eta-0)) e-10))) ((5) (let ((e-12 (vector-ref arg-3 2))) (let ((e-13 (vector-ref arg-3 3))) (PreludeC-45Interfaces-concatMap (cons (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (cons (lambda (arg-4) (lambda (arg-5) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-4 arg-5))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) (lambda (eta-0) (TTImpC-45TTImp-n--9172-9567-u--defName arg-0 arg-1 (CoreC-45NameC-45Namespace-C-60C-46C-62 arg-2 e-12) eta-0)) e-13)))) ((4) (let ((e-14 (vector-ref arg-3 1))) (let ((e-15 (vector-ref arg-3 2))) (let ((e-16 (vector-ref arg-3 3))) (let ((e-17 (vector-ref arg-3 4))) (let ((e-28 (vector-ref e-17 0))) (let ((e-29 (vector-ref e-17 1))) (let ((e-30 (vector-ref e-17 2))) (let ((e-31 (vector-ref e-17 3))) (let ((e-32 (vector-ref e-17 4))) (cons (TTImpC-45TTImp-n--9172-9566-u--expandNS arg-0 arg-1 arg-2 e-31) (TTImpC-45TTImp-n--9178-9762-u--all arg-0 arg-1 e-14 e-16 e-28 e-30 e-32 e-31 e-29 e-15 arg-2)))))))))))) ((8) (let ((e-18 (vector-ref arg-3 1))) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (TTImpC-45TTImp-n--9172-9566-u--expandNS arg-0 arg-1 arg-2 eta-0)) e-18)))(else '())))) +(define TTImpC-45TTImp-n--9675-10064-u--app (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (if (null? arg-4) (vector 8 (TTImpC-45TTImp-getFC arg-3) arg-3 arg-5) (let ((e-2 (unbox arg-4))) (vector 10 (TTImpC-45TTImp-getFC arg-3) arg-3 e-2 arg-5))))) +(define TTImpC-45TTImp-n--9178-9762-u--all (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (cons (TTImpC-45TTImp-n--9172-9566-u--expandNS arg-0 arg-1 arg-10 arg-8) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (TTImpC-45TTImp-n--9172-9566-u--expandNS arg-0 arg-1 (TTImpC-45TTImp-n--9178-9758-u--fldnsC-39 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) eta-0)) (PreludeC-45TypesC-45List-C-43C-43 (TTImpC-45TTImp-n--9178-9761-u--fnsRF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (TTImpC-45TTImp-n--9178-9760-u--fnsUN arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10)))))) +(define TTImpC-45TTImp-u--weaken_Weaken_NestedNames (lambda (arg-2) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (TTImpC-45TTImp-n--6255-6907-u--wknName arg-2 eta-0)) arg-2))) +(define TTImpC-45TTImp-u--weakenNs_Weaken_NestedNames (lambda (arg-2 arg-3) (TTImpC-45TTImp-case--weakenNs-6874 arg-3 arg-2 (CoreC-45TT-sizedView arg-2)))) +(define TTImpC-45TTImp-u--toBuf_TTC_RawImp (lambda (arg-0 arg-1) (case (vector-ref arg-1 0) ((0) (let ((e-0 (vector-ref arg-1 1))) (let ((e-1 (vector-ref arg-1 2))) (lambda (eta-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 0 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_FC arg-0 e-0 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (CoreC-45TTC-u--toBuf_TTC_Name arg-0 e-1 eta-0))))))))))) ((1) (let ((e-2 (vector-ref arg-1 1))) (let ((e-3 (vector-ref arg-1 2))) (let ((e-4 (vector-ref arg-1 3))) (let ((e-5 (vector-ref arg-1 4))) (let ((e-6 (vector-ref arg-1 5))) (let ((e-7 (vector-ref arg-1 6))) (lambda (eta-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 1 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-8 (vector-ref act-24 1))) (vector 0 e-8))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_FC arg-0 e-2 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-9 (vector-ref act-25 1))) (vector 0 e-9))) (else (let ((act-26 ((CoreC-45TTC-u--toBuf_TTC_RigCount arg-0 e-3) eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-10 (vector-ref act-26 1))) (vector 0 e-10))) (else (let ((act-27 (CoreC-45TTC-u--toBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-1456 arg-1459))) (lambda (arg-1461) (lambda (eta-1) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-1461 eta-1)))) arg-0 e-4 eta-0))) (case (vector-ref act-27 0) ((0) (let ((e-11 (vector-ref act-27 1))) (vector 0 e-11))) (else (let ((act-28 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_Name arg-1456 arg-1459 eta-1)))) (lambda (arg-1461) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1461 eta-1)))) arg-0 e-5 eta-0))) (case (vector-ref act-28 0) ((0) (let ((e-12 (vector-ref act-28 1))) (vector 0 e-12))) (else (let ((act-29 ((TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-0 e-6) eta-0))) (case (vector-ref act-29 0) ((0) (let ((e-13 (vector-ref act-29 1))) (vector 0 e-13))) (else ((TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-0 e-7) eta-0))))))))))))))))))))))))))) ((2) (let ((e-8 (vector-ref arg-1 1))) (let ((e-9 (vector-ref arg-1 2))) (let ((e-10 (vector-ref arg-1 3))) (let ((e-11 (vector-ref arg-1 4))) (let ((e-12 (vector-ref arg-1 5))) (let ((e-13 (vector-ref arg-1 6))) (lambda (eta-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 2 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_FC arg-0 e-8 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 ((CoreC-45TTC-u--toBuf_TTC_RigCount arg-0 e-9) eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((act-27 (CoreC-45TTC-u--toBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-1456 arg-1459))) (lambda (arg-1461) (lambda (eta-1) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-1461 eta-1)))) arg-0 e-10 eta-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((act-28 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_Name arg-1456 arg-1459 eta-1)))) (lambda (arg-1461) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1461 eta-1)))) arg-0 e-11 eta-0))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((act-29 ((TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-0 e-12) eta-0))) (case (vector-ref act-29 0) ((0) (let ((e-2 (vector-ref act-29 1))) (vector 0 e-2))) (else ((TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-0 e-13) eta-0))))))))))))))))))))))))))) ((3) (let ((e-14 (vector-ref arg-1 1))) (let ((e-15 (vector-ref arg-1 2))) (let ((e-16 (vector-ref arg-1 3))) (let ((e-17 (vector-ref arg-1 4))) (let ((e-18 (vector-ref arg-1 5))) (let ((e-19 (vector-ref arg-1 6))) (let ((e-20 (vector-ref arg-1 7))) (lambda (eta-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 3 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_FC arg-0 e-14 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45TTC-u--toBuf_TTC_FC arg-0 e-15 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((act-27 ((CoreC-45TTC-u--toBuf_TTC_RigCount arg-0 e-16) eta-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((act-28 (CoreC-45TTC-u--toBuf_TTC_Name arg-0 e-17 eta-0))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((act-29 ((TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-0 e-18) eta-0))) (case (vector-ref act-29 0) ((0) (let ((e-2 (vector-ref act-29 1))) (vector 0 e-2))) (else (let ((act-30 ((TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-0 e-19) eta-0))) (case (vector-ref act-30 0) ((0) (let ((e-2 (vector-ref act-30 1))) (vector 0 e-2))) (else ((TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-0 e-20) eta-0))))))))))))))))))))))))))))))) ((4) (let ((e-21 (vector-ref arg-1 1))) (let ((e-22 (vector-ref arg-1 2))) (let ((e-23 (vector-ref arg-1 3))) (let ((e-24 (vector-ref arg-1 4))) (lambda (eta-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 4 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_FC arg-0 e-21 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 ((TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-0 e-22) eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((act-27 ((TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-0 e-23) eta-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-1) (TTImpC-45TTImp-u--toBuf_TTC_ImpClause arg-1456 arg-1459 eta-1)))) (lambda (arg-1461) (lambda (eta-1) (TTImpC-45TTImp-u--fromBuf_TTC_ImpClause arg-1461 eta-1)))) arg-0 e-24 eta-0))))))))))))))))))) ((5) (let ((e-25 (vector-ref arg-1 1))) (let ((e-26 (vector-ref arg-1 2))) (let ((e-27 (vector-ref arg-1 3))) (lambda (eta-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 5 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_FC arg-0 e-25 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-1) (TTImpC-45TTImp-u--toBuf_TTC_ImpDecl arg-1456 arg-1459 eta-1)))) (lambda (arg-1461) (lambda (eta-1) (TTImpC-45TTImp-u--fromBuf_TTC_ImpDecl arg-1461 eta-1)))) arg-0 e-26 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else ((TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-0 e-27) eta-0))))))))))))))) ((6) (let ((e-32 (vector-ref arg-1 5))) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-0 e-32))) ((7) (let ((e-33 (vector-ref arg-1 1))) (let ((e-34 (vector-ref arg-1 2))) (let ((e-35 (vector-ref arg-1 3))) (lambda (eta-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 6 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_FC arg-0 e-33 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-1) (TTImpC-45TTImp-u--toBuf_TTC_IFieldUpdate arg-1456 arg-1459 eta-1)))) (lambda (arg-1461) (lambda (eta-1) (TTImpC-45TTImp-u--fromBuf_TTC_IFieldUpdate arg-1461 eta-1)))) arg-0 e-34 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else ((TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-0 e-35) eta-0))))))))))))))) ((8) (let ((e-36 (vector-ref arg-1 1))) (let ((e-37 (vector-ref arg-1 2))) (let ((e-38 (vector-ref arg-1 3))) (lambda (eta-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 7 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_FC arg-0 e-36 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 ((TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-0 e-37) eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else ((TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-0 e-38) eta-0))))))))))))))) ((10) (let ((e-39 (vector-ref arg-1 1))) (let ((e-40 (vector-ref arg-1 2))) (let ((e-41 (vector-ref arg-1 3))) (let ((e-42 (vector-ref arg-1 4))) (lambda (eta-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 8 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_FC arg-0 e-39 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 ((TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-0 e-40) eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((act-27 (CoreC-45TTC-u--toBuf_TTC_Name arg-0 e-41 eta-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else ((TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-0 e-42) eta-0))))))))))))))))))) ((11) (let ((e-43 (vector-ref arg-1 1))) (let ((e-44 (vector-ref arg-1 2))) (let ((e-45 (vector-ref arg-1 3))) (lambda (eta-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 9 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_FC arg-0 e-43 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 ((TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-0 e-44) eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else ((TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-0 e-45) eta-0))))))))))))))) ((12) (let ((e-46 (vector-ref arg-1 1))) (let ((e-47 (vector-ref arg-1 2))) (lambda (eta-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 10 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_FC arg-0 e-46 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-0 e-47 eta-0))))))))))) ((13) (let ((e-48 (vector-ref arg-1 1))) (let ((e-49 (vector-ref arg-1 2))) (let ((e-50 (vector-ref arg-1 3))) (lambda (eta-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 11 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_FC arg-0 e-48 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 (TTImpC-45TTImp-u--toBuf_TTC_AltType arg-0 e-49 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-1456 arg-1459))) (lambda (arg-1461) (lambda (eta-1) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-1461 eta-1)))) arg-0 e-50 eta-0))))))))))))))) ((14) (let ((e-51 (vector-ref arg-1 1))) (let ((e-52 (vector-ref arg-1 2))) (let ((e-53 (vector-ref arg-1 3))) (lambda (eta-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 12 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_FC arg-0 e-51 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 ((TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-0 e-52) eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else ((TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-0 e-53) eta-0))))))))))))))) ((15) (let ((e-54 (vector-ref arg-1 1))) (let ((e-55 (vector-ref arg-1 2))) (lambda (eta-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 13 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_FC arg-0 e-54 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else ((TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-0 e-55) eta-0))))))))))) ((16) (let ((e-56 (vector-ref arg-1 1))) (let ((e-57 (vector-ref arg-1 2))) (let ((e-58 (vector-ref arg-1 3))) (lambda (eta-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 14 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_FC arg-0 e-56 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 (TTImpC-45TTImp-u--toBuf_TTC_BindMode arg-0 e-57 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else ((TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-0 e-58) eta-0))))))))))))))) ((17) (let ((e-59 (vector-ref arg-1 1))) (let ((e-60 (vector-ref arg-1 2))) (lambda (eta-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 15 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_FC arg-0 e-59 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else ((LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-0 e-60) eta-0))))))))))) ((18) (let ((e-61 (vector-ref arg-1 1))) (let ((e-62 (vector-ref arg-1 2))) (let ((e-63 (vector-ref arg-1 3))) (let ((e-64 (vector-ref arg-1 4))) (let ((e-65 (vector-ref arg-1 5))) (lambda (eta-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 16 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_FC arg-0 e-61 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45TTC-u--toBuf_TTC_FC arg-0 e-62 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((act-27 (CoreC-45TTC-u--toBuf_TTC_UseSide arg-0 e-63 eta-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((act-28 (CoreC-45TTC-u--toBuf_TTC_Name arg-0 e-64 eta-0))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else ((TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-0 e-65) eta-0))))))))))))))))))))))) ((19) (let ((e-66 (vector-ref arg-1 1))) (let ((e-68 (vector-ref arg-1 3))) (lambda (eta-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 17 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_FC arg-0 e-66 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else ((TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-0 e-68) eta-0))))))))))) ((20) (let ((e-69 (vector-ref arg-1 1))) (let ((e-70 (vector-ref arg-1 2))) (let ((e-71 (vector-ref arg-1 3))) (lambda (eta-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 18 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_FC arg-0 e-69 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45TTC-u--toBuf_TTC_LazyReason arg-0 e-70 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else ((TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-0 e-71) eta-0))))))))))))))) ((21) (let ((e-72 (vector-ref arg-1 1))) (let ((e-73 (vector-ref arg-1 2))) (lambda (eta-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 19 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_FC arg-0 e-72 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else ((TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-0 e-73) eta-0))))))))))) ((22) (let ((e-74 (vector-ref arg-1 1))) (let ((e-75 (vector-ref arg-1 2))) (lambda (eta-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 20 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_FC arg-0 e-74 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else ((TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-0 e-75) eta-0))))))))))) ((23) (let ((e-76 (vector-ref arg-1 1))) (let ((e-77 (vector-ref arg-1 2))) (lambda (eta-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 21 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_FC arg-0 e-76 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else ((TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-0 e-77) eta-0))))))))))) ((24) (let ((e-78 (vector-ref arg-1 1))) (let ((e-79 (vector-ref arg-1 2))) (lambda (eta-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 22 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_FC arg-0 e-78 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (CoreC-45TTC-u--toBuf_TTC_Name arg-0 e-79 eta-0))))))))))) ((25) (let ((e-80 (vector-ref arg-1 1))) (let ((e-81 (vector-ref arg-1 2))) (lambda (eta-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 23 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_FC arg-0 e-80 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-1) (TTImpC-45TTImp-u--toBuf_TTC_ImpDecl arg-1456 arg-1459 eta-1)))) (lambda (arg-1461) (lambda (eta-1) (TTImpC-45TTImp-u--fromBuf_TTC_ImpDecl arg-1461 eta-1)))) arg-0 e-81 eta-0))))))))))) ((26) (let ((e-82 (vector-ref arg-1 1))) (let ((e-83 (vector-ref arg-1 2))) (lambda (eta-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 24 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_FC arg-0 e-82 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else ((TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-0 e-83) eta-0))))))))))) ((27) (let ((e-84 (vector-ref arg-1 1))) (let ((e-85 (vector-ref arg-1 2))) (lambda (eta-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 25 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_FC arg-0 e-84 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else ((TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-0 e-85) eta-0))))))))))) ((28) (let ((e-86 (vector-ref arg-1 1))) (let ((e-87 (vector-ref arg-1 2))) (lambda (eta-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 26 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_FC arg-0 e-86 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (CoreC-45TTC-u--toBuf_TTC_Constant arg-0 e-87 eta-0))))))))))) ((29) (let ((e-88 (vector-ref arg-1 1))) (lambda (eta-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 27 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (CoreC-45TTC-u--toBuf_TTC_FC arg-0 e-88 eta-0))))))) ((30) (let ((e-89 (vector-ref arg-1 1))) (let ((e-90 (vector-ref arg-1 2))) (lambda (eta-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 28 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_FC arg-0 e-89 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else ((LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-0 e-90) eta-0))))))))))) ((31) (let ((e-93 (vector-ref arg-1 3))) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-0 e-93))) ((32) (let ((e-94 (vector-ref arg-1 1))) (let ((e-95 (vector-ref arg-1 2))) (lambda (eta-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 29 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_FC arg-0 e-94 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Bool arg-0 e-95 eta-0))))))))))) ((33) (let ((e-97 (vector-ref arg-1 2))) (let ((e-98 (vector-ref arg-1 3))) (lambda (eta-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 30 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_Name arg-1456 arg-1459 eta-1)))) (lambda (arg-1461) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1461 eta-1)))) arg-0 e-97 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else ((TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-0 e-98) eta-0))))))))))) (else (let ((e-99 (vector-ref arg-1 1))) (let ((e-100 (vector-ref arg-1 2))) (let ((e-101 (vector-ref arg-1 3))) (lambda (eta-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 31 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_FC arg-0 e-99 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 ((TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-0 e-100) eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else ((TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-0 e-101) eta-0)))))))))))))))))) +(define TTImpC-45TTImp-u--toBuf_TTC_ImpTy (lambda (arg-0 arg-1 ext-0) (let ((e-0 (vector-ref arg-1 0))) (let ((e-1 (vector-ref arg-1 1))) (let ((e-2 (vector-ref arg-1 2))) (let ((e-3 (vector-ref arg-1 3))) (let ((act-24 (CoreC-45TTC-u--toBuf_TTC_FC arg-0 e-0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_FC arg-0 e-1 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((act-26 (CoreC-45TTC-u--toBuf_TTC_Name arg-0 e-2 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-4 (vector-ref act-26 1))) (vector 0 e-4))) (else ((TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-0 e-3) ext-0)))))))))))))))) +(define TTImpC-45TTImp-u--toBuf_TTC_ImpRecord (lambda (arg-0 arg-1 ext-0) (let ((e-0 (vector-ref arg-1 0))) (let ((e-1 (vector-ref arg-1 1))) (let ((e-2 (vector-ref arg-1 2))) (let ((e-3 (vector-ref arg-1 3))) (let ((e-4 (vector-ref arg-1 4))) (let ((act-24 (CoreC-45TTC-u--toBuf_TTC_FC arg-0 e-0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_Name arg-0 e-1 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-6 (vector-ref act-25 1))) (vector 0 e-6))) (else (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_Name arg-1457 arg-1460 eta-1)))) (lambda (arg-1461) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1461 eta-1)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1461) (CoreC-45TTC-u--toBuf_TTC_RigCount arg-1458 arg-1461))) (lambda (arg-1461) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_RigCount arg-1461 eta-2)))) (cons (lambda (arg-1458) (lambda (arg-1461) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1462) (lambda (arg-1463) (lambda (eta-3) (CoreC-45TTC-u--toBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-1464) (lambda (arg-1465) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-1464 arg-1465))) (lambda (arg-1464) (lambda (eta-4) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-1464 eta-4)))) arg-1462 arg-1463 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-1463) (lambda (arg-1464) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-1463 arg-1464))) (lambda (arg-1463) (lambda (eta-4) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-1463 eta-4)))) arg-1462 eta-3)))) (cons (lambda (arg-1462) (lambda (arg-1463) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-1462 arg-1463))) (lambda (arg-1462) (lambda (eta-3) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-1462 eta-3))))) arg-1458 arg-1461 eta-2)))) (lambda (arg-1461) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (CoreC-45TTC-u--toBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-1463) (lambda (arg-1464) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-1463 arg-1464))) (lambda (arg-1463) (lambda (eta-4) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-1463 eta-4)))) arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-1458) (lambda (arg-1463) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-1458 arg-1463))) (lambda (arg-1463) (lambda (eta-4) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-1463 eta-4)))) arg-1462 eta-3)))) (cons (lambda (arg-1458) (lambda (arg-1462) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-1458 arg-1462))) (lambda (arg-1462) (lambda (eta-3) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-1462 eta-3))))) arg-1461 eta-2))))) arg-1457 arg-1460 eta-1)))) (lambda (arg-1461) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (CoreC-45TTC-u--toBuf_TTC_RigCount arg-1457 arg-1460))) (lambda (arg-1462) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_RigCount arg-1462 eta-2)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (CoreC-45TTC-u--toBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-1463) (lambda (arg-1464) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-1463 arg-1464))) (lambda (arg-1463) (lambda (eta-4) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-1463 eta-4)))) arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-1458) (lambda (arg-1463) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-1458 arg-1463))) (lambda (arg-1463) (lambda (eta-4) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-1463 eta-4)))) arg-1462 eta-3)))) (cons (lambda (arg-1458) (lambda (arg-1462) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-1458 arg-1462))) (lambda (arg-1462) (lambda (eta-3) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-1462 eta-3))))) arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (CoreC-45TTC-u--toBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-1458) (lambda (arg-1463) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-1458 arg-1463))) (lambda (arg-1463) (lambda (eta-4) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-1463 eta-4)))) arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-1457) (lambda (arg-1460) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-1457 arg-1460))) (lambda (arg-1464) (lambda (eta-4) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-1464 eta-4)))) arg-1463 eta-3)))) (cons (lambda (arg-1457) (lambda (arg-1460) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-1457 arg-1460))) (lambda (arg-1463) (lambda (eta-3) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-1463 eta-3))))) arg-1462 eta-2))))) arg-1461 eta-1))))) arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_Name arg-1456 arg-1459 eta-1)))) (lambda (arg-1462) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1462 eta-1)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (CoreC-45TTC-u--toBuf_TTC_RigCount arg-1457 arg-1460))) (lambda (arg-1462) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_RigCount arg-1462 eta-2)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (CoreC-45TTC-u--toBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-1463) (lambda (arg-1464) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-1463 arg-1464))) (lambda (arg-1463) (lambda (eta-4) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-1463 eta-4)))) arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-1458) (lambda (arg-1463) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-1458 arg-1463))) (lambda (arg-1463) (lambda (eta-4) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-1463 eta-4)))) arg-1462 eta-3)))) (cons (lambda (arg-1458) (lambda (arg-1462) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-1458 arg-1462))) (lambda (arg-1462) (lambda (eta-3) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-1462 eta-3))))) arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (CoreC-45TTC-u--toBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-1458) (lambda (arg-1463) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-1458 arg-1463))) (lambda (arg-1463) (lambda (eta-4) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-1463 eta-4)))) arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-1457) (lambda (arg-1460) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-1457 arg-1460))) (lambda (arg-1464) (lambda (eta-4) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-1464 eta-4)))) arg-1463 eta-3)))) (cons (lambda (arg-1457) (lambda (arg-1460) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-1457 arg-1460))) (lambda (arg-1463) (lambda (eta-3) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-1463 eta-3))))) arg-1462 eta-2))))) arg-1456 arg-1459 eta-1)))) (lambda (arg-1462) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (CoreC-45TTC-u--toBuf_TTC_RigCount arg-1456 arg-1459))) (lambda (arg-1463) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_RigCount arg-1463 eta-2)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (CoreC-45TTC-u--toBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-1458) (lambda (arg-1463) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-1458 arg-1463))) (lambda (arg-1463) (lambda (eta-4) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-1463 eta-4)))) arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-1457) (lambda (arg-1460) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-1457 arg-1460))) (lambda (arg-1464) (lambda (eta-4) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-1464 eta-4)))) arg-1463 eta-3)))) (cons (lambda (arg-1457) (lambda (arg-1460) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-1457 arg-1460))) (lambda (arg-1463) (lambda (eta-3) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-1463 eta-3))))) arg-1456 arg-1459 eta-2)))) (lambda (arg-1463) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-3) (CoreC-45TTC-u--toBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-1457) (lambda (arg-1460) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-1457 arg-1460))) (lambda (arg-1464) (lambda (eta-4) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-1464 eta-4)))) arg-1456 arg-1459 eta-3)))) (lambda (arg-1464) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-1456 arg-1459))) (lambda (arg-1465) (lambda (eta-4) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-1465 eta-4)))) arg-1464 eta-3)))) (cons (lambda (arg-1456) (lambda (arg-1459) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-1456 arg-1459))) (lambda (arg-1464) (lambda (eta-3) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-1464 eta-3))))) arg-1463 eta-2))))) arg-1462 eta-1))))) arg-1461 eta-0)))) arg-0 e-2 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-7 (vector-ref act-26 1))) (vector 0 e-7))) (else (let ((act-27 (CoreC-45TTC-u--toBuf_TTC_Name arg-0 e-3 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-8 (vector-ref act-27 1))) (vector 0 e-8))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (TTImpC-45TTImp-u--toBuf_TTC_IField arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (TTImpC-45TTImp-u--fromBuf_TTC_IField arg-1461 eta-0)))) arg-0 e-4 ext-0)))))))))))))))))))) +(define TTImpC-45TTImp-u--toBuf_TTC_ImpDecl (lambda (arg-0 arg-1 ext-0) (case (vector-ref arg-1 0) ((0) (let ((e-0 (vector-ref arg-1 1))) (let ((e-1 (vector-ref arg-1 2))) (let ((e-2 (vector-ref arg-1 3))) (let ((e-3 (vector-ref arg-1 4))) (let ((e-4 (vector-ref arg-1 5))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_FC arg-0 e-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-6 (vector-ref act-25 1))) (vector 0 e-6))) (else (let ((act-26 ((CoreC-45TTC-u--toBuf_TTC_RigCount arg-0 e-1) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-7 (vector-ref act-26 1))) (vector 0 e-7))) (else (let ((act-27 (CoreC-45TTC-u--toBuf_TTC_Visibility arg-0 e-2 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-8 (vector-ref act-27 1))) (vector 0 e-8))) (else (let ((act-28 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (TTImpC-45TTImp-u--toBuf_TTC_FnOpt arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (TTImpC-45TTImp-u--fromBuf_TTC_FnOpt arg-1461 eta-0)))) arg-0 e-3 ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-9 (vector-ref act-28 1))) (vector 0 e-9))) (else (TTImpC-45TTImp-u--toBuf_TTC_ImpTy arg-0 e-4 ext-0)))))))))))))))))))))) ((1) (let ((e-5 (vector-ref arg-1 1))) (let ((e-6 (vector-ref arg-1 2))) (let ((e-7 (vector-ref arg-1 3))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 1 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_FC arg-0 e-5 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45TTC-u--toBuf_TTC_Visibility arg-0 e-6 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (TTImpC-45TTImp-u--toBuf_TTC_ImpData arg-0 e-7 ext-0)))))))))))))) ((2) (let ((e-8 (vector-ref arg-1 1))) (let ((e-9 (vector-ref arg-1 2))) (let ((e-10 (vector-ref arg-1 3))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 2 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_FC arg-0 e-8 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45TTC-u--toBuf_TTC_Name arg-0 e-9 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (TTImpC-45TTImp-u--toBuf_TTC_ImpClause arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (TTImpC-45TTImp-u--fromBuf_TTC_ImpClause arg-1461 eta-0)))) arg-0 e-10 ext-0)))))))))))))) ((3) (let ((e-11 (vector-ref arg-1 1))) (let ((e-12 (vector-ref arg-1 2))) (let ((e-13 (vector-ref arg-1 3))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 3 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_FC arg-0 e-11 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_Name arg-1457 arg-1460 eta-1)))) (lambda (arg-1461) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1461 eta-1)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1461) (CoreC-45TTC-u--toBuf_TTC_RigCount arg-1458 arg-1461))) (lambda (arg-1461) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_RigCount arg-1461 eta-2)))) (cons (lambda (arg-1458) (lambda (arg-1461) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1462) (lambda (arg-1463) (lambda (eta-3) (CoreC-45TTC-u--toBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-1464) (lambda (arg-1465) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-1464 arg-1465))) (lambda (arg-1464) (lambda (eta-4) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-1464 eta-4)))) arg-1462 arg-1463 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-1463) (lambda (arg-1464) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-1463 arg-1464))) (lambda (arg-1463) (lambda (eta-4) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-1463 eta-4)))) arg-1462 eta-3)))) (cons (lambda (arg-1462) (lambda (arg-1463) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-1462 arg-1463))) (lambda (arg-1462) (lambda (eta-3) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-1462 eta-3))))) arg-1458 arg-1461 eta-2)))) (lambda (arg-1461) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (CoreC-45TTC-u--toBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-1463) (lambda (arg-1464) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-1463 arg-1464))) (lambda (arg-1463) (lambda (eta-4) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-1463 eta-4)))) arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-1458) (lambda (arg-1463) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-1458 arg-1463))) (lambda (arg-1463) (lambda (eta-4) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-1463 eta-4)))) arg-1462 eta-3)))) (cons (lambda (arg-1458) (lambda (arg-1462) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-1458 arg-1462))) (lambda (arg-1462) (lambda (eta-3) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-1462 eta-3))))) arg-1461 eta-2))))) arg-1457 arg-1460 eta-1)))) (lambda (arg-1461) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (CoreC-45TTC-u--toBuf_TTC_RigCount arg-1457 arg-1460))) (lambda (arg-1462) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_RigCount arg-1462 eta-2)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (CoreC-45TTC-u--toBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-1463) (lambda (arg-1464) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-1463 arg-1464))) (lambda (arg-1463) (lambda (eta-4) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-1463 eta-4)))) arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-1458) (lambda (arg-1463) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-1458 arg-1463))) (lambda (arg-1463) (lambda (eta-4) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-1463 eta-4)))) arg-1462 eta-3)))) (cons (lambda (arg-1458) (lambda (arg-1462) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-1458 arg-1462))) (lambda (arg-1462) (lambda (eta-3) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-1462 eta-3))))) arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (CoreC-45TTC-u--toBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-1458) (lambda (arg-1463) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-1458 arg-1463))) (lambda (arg-1463) (lambda (eta-4) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-1463 eta-4)))) arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-1457) (lambda (arg-1460) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-1457 arg-1460))) (lambda (arg-1464) (lambda (eta-4) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-1464 eta-4)))) arg-1463 eta-3)))) (cons (lambda (arg-1457) (lambda (arg-1460) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-1457 arg-1460))) (lambda (arg-1463) (lambda (eta-3) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-1463 eta-3))))) arg-1462 eta-2))))) arg-1461 eta-1))))) arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_Name arg-1456 arg-1459 eta-1)))) (lambda (arg-1462) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1462 eta-1)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (CoreC-45TTC-u--toBuf_TTC_RigCount arg-1457 arg-1460))) (lambda (arg-1462) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_RigCount arg-1462 eta-2)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (CoreC-45TTC-u--toBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-1463) (lambda (arg-1464) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-1463 arg-1464))) (lambda (arg-1463) (lambda (eta-4) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-1463 eta-4)))) arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-1458) (lambda (arg-1463) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-1458 arg-1463))) (lambda (arg-1463) (lambda (eta-4) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-1463 eta-4)))) arg-1462 eta-3)))) (cons (lambda (arg-1458) (lambda (arg-1462) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-1458 arg-1462))) (lambda (arg-1462) (lambda (eta-3) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-1462 eta-3))))) arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (CoreC-45TTC-u--toBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-1458) (lambda (arg-1463) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-1458 arg-1463))) (lambda (arg-1463) (lambda (eta-4) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-1463 eta-4)))) arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-1457) (lambda (arg-1460) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-1457 arg-1460))) (lambda (arg-1464) (lambda (eta-4) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-1464 eta-4)))) arg-1463 eta-3)))) (cons (lambda (arg-1457) (lambda (arg-1460) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-1457 arg-1460))) (lambda (arg-1463) (lambda (eta-3) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-1463 eta-3))))) arg-1462 eta-2))))) arg-1456 arg-1459 eta-1)))) (lambda (arg-1462) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (CoreC-45TTC-u--toBuf_TTC_RigCount arg-1456 arg-1459))) (lambda (arg-1463) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_RigCount arg-1463 eta-2)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (CoreC-45TTC-u--toBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-1458) (lambda (arg-1463) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-1458 arg-1463))) (lambda (arg-1463) (lambda (eta-4) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-1463 eta-4)))) arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-1457) (lambda (arg-1460) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-1457 arg-1460))) (lambda (arg-1464) (lambda (eta-4) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-1464 eta-4)))) arg-1463 eta-3)))) (cons (lambda (arg-1457) (lambda (arg-1460) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-1457 arg-1460))) (lambda (arg-1463) (lambda (eta-3) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-1463 eta-3))))) arg-1456 arg-1459 eta-2)))) (lambda (arg-1463) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-3) (CoreC-45TTC-u--toBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-1457) (lambda (arg-1460) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-1457 arg-1460))) (lambda (arg-1464) (lambda (eta-4) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-1464 eta-4)))) arg-1456 arg-1459 eta-3)))) (lambda (arg-1464) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-1456 arg-1459))) (lambda (arg-1465) (lambda (eta-4) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-1465 eta-4)))) arg-1464 eta-3)))) (cons (lambda (arg-1456) (lambda (arg-1459) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-1456 arg-1459))) (lambda (arg-1464) (lambda (eta-3) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-1464 eta-3))))) arg-1463 eta-2))))) arg-1462 eta-1))))) arg-1461 eta-0)))) arg-0 e-12 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (TTImpC-45TTImp-u--toBuf_TTC_ImpDecl arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (TTImpC-45TTImp-u--fromBuf_TTC_ImpDecl arg-1461 eta-0)))) arg-0 e-13 ext-0)))))))))))))) ((4) (let ((e-14 (vector-ref arg-1 1))) (let ((e-15 (vector-ref arg-1 2))) (let ((e-16 (vector-ref arg-1 3))) (let ((e-17 (vector-ref arg-1 4))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 4 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_FC arg-0 e-14 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-1456 arg-1459))) (lambda (arg-1461) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-1461 eta-0)))) arg-0 e-15 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((act-27 (CoreC-45TTC-u--toBuf_TTC_Visibility arg-0 e-16 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (TTImpC-45TTImp-u--toBuf_TTC_ImpRecord arg-0 e-17 ext-0)))))))))))))))))) ((5) (let ((e-18 (vector-ref arg-1 1))) (let ((e-19 (vector-ref arg-1 2))) (let ((e-20 (vector-ref arg-1 3))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 5 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_FC arg-0 e-18 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45TTC-u--toBuf_TTC_Namespace arg-0 e-19 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (TTImpC-45TTImp-u--toBuf_TTC_ImpDecl arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (TTImpC-45TTImp-u--fromBuf_TTC_ImpDecl arg-1461 eta-0)))) arg-0 e-20 ext-0)))))))))))))) ((6) (let ((e-21 (vector-ref arg-1 1))) (let ((e-22 (vector-ref arg-1 2))) (let ((e-23 (vector-ref arg-1 3))) (let ((e-24 (vector-ref arg-1 4))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 6 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_FC arg-0 e-21 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45TTC-u--toBuf_TTC_Name arg-0 e-22 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((act-27 ((TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-0 e-23) ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else ((TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-0 e-24) ext-0)))))))))))))))))) ((7) (let ((e-25 (vector-ref arg-1 1))) (let ((e-26 (vector-ref arg-1 2))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 7 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_FC arg-0 e-25 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else ((TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-0 e-26) ext-0)))))))))) ((8) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 "Can't write Pragma") ext-0)) ((9) (let ((e-29 (vector-ref arg-1 1))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 8 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1458) (lambda (arg-1461) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-1458 arg-1461))) (lambda (arg-1461) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-1461 eta-2)))) arg-1457 arg-1460 eta-1)))) (lambda (arg-1461) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1457) (lambda (arg-1460) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-1457 arg-1460))) (lambda (arg-1462) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-1462 eta-2)))) arg-1461 eta-1)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-1457 arg-1460 eta-1)))) (lambda (arg-1461) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-1461 eta-1))))) arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1457) (lambda (arg-1460) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-1457 arg-1460))) (lambda (arg-1462) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-1462 eta-2)))) arg-1456 arg-1459 eta-1)))) (lambda (arg-1462) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-1456 arg-1459))) (lambda (arg-1463) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-1463 eta-2)))) arg-1462 eta-1)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-1456 arg-1459 eta-1)))) (lambda (arg-1462) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-1462 eta-1))))) arg-1461 eta-0)))) arg-0 e-29 ext-0)))))) (else (let ((e-30 (vector-ref arg-1 1))) (let ((e-31 (vector-ref arg-1 2))) (let ((e-32 (vector-ref arg-1 3))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 9 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_FC arg-0 e-30 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 (TTImpC-45TTImp-u--toBuf_TTC_BuiltinType arg-0 e-31 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (CoreC-45TTC-u--toBuf_TTC_Name arg-0 e-32 ext-0))))))))))))))))) +(define TTImpC-45TTImp-u--toBuf_TTC_ImpData (lambda (arg-0 arg-1 ext-0) (case (vector-ref arg-1 0) ((0) (let ((e-0 (vector-ref arg-1 1))) (let ((e-1 (vector-ref arg-1 2))) (let ((e-2 (vector-ref arg-1 3))) (let ((e-3 (vector-ref arg-1 4))) (let ((e-4 (vector-ref arg-1 5))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_FC arg-0 e-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-6 (vector-ref act-25 1))) (vector 0 e-6))) (else (let ((act-26 (CoreC-45TTC-u--toBuf_TTC_Name arg-0 e-1 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-7 (vector-ref act-26 1))) (vector 0 e-7))) (else (let ((act-27 ((TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-0 e-2) ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-8 (vector-ref act-27 1))) (vector 0 e-8))) (else (let ((act-28 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (TTImpC-45TTImp-u--toBuf_TTC_DataOpt arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (TTImpC-45TTImp-u--fromBuf_TTC_DataOpt arg-1461 eta-0)))) arg-0 e-3 ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-9 (vector-ref act-28 1))) (vector 0 e-9))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (TTImpC-45TTImp-u--toBuf_TTC_ImpTy arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (TTImpC-45TTImp-u--fromBuf_TTC_ImpTy arg-1461 eta-0)))) arg-0 e-4 ext-0)))))))))))))))))))))) (else (let ((e-5 (vector-ref arg-1 1))) (let ((e-6 (vector-ref arg-1 2))) (let ((e-7 (vector-ref arg-1 3))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 1 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_FC arg-0 e-5 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45TTC-u--toBuf_TTC_Name arg-0 e-6 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else ((TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-0 e-7) ext-0))))))))))))))))) +(define TTImpC-45TTImp-u--toBuf_TTC_ImpClause (lambda (arg-0 arg-1 ext-0) (case (vector-ref arg-1 0) ((0) (let ((e-0 (vector-ref arg-1 1))) (let ((e-1 (vector-ref arg-1 2))) (let ((e-2 (vector-ref arg-1 3))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_FC arg-0 e-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-3 (vector-ref act-25 1))) (vector 0 e-3))) (else (let ((act-26 ((TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-0 e-1) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-3 (vector-ref act-26 1))) (vector 0 e-3))) (else ((TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-0 e-2) ext-0)))))))))))))) ((2) (let ((e-3 (vector-ref arg-1 1))) (let ((e-4 (vector-ref arg-1 2))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 1 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_FC arg-0 e-3 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else ((TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-0 e-4) ext-0)))))))))) (else (let ((e-5 (vector-ref arg-1 1))) (let ((e-6 (vector-ref arg-1 2))) (let ((e-7 (vector-ref arg-1 3))) (let ((e-8 (vector-ref arg-1 4))) (let ((e-10 (vector-ref arg-1 6))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 2 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45TTC-u--toBuf_TTC_FC arg-0 e-5 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 ((TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-0 e-6) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((act-27 ((TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-0 e-7) ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((act-28 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_Name arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1461 eta-0)))) arg-0 e-8 ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (TTImpC-45TTImp-u--toBuf_TTC_ImpClause arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (TTImpC-45TTImp-u--fromBuf_TTC_ImpClause arg-1461 eta-0)))) arg-0 e-10 ext-0))))))))))))))))))))))))) +(define TTImpC-45TTImp-u--toBuf_TTC_IFieldUpdate (lambda (arg-0 arg-1 ext-0) (case (vector-ref arg-1 0) ((0) (let ((e-0 (vector-ref arg-1 1))) (let ((e-1 (vector-ref arg-1 2))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-1456 arg-1459))) (lambda (arg-1461) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-1461 eta-0)))) arg-0 e-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else ((TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-0 e-1) ext-0)))))))))) (else (let ((e-2 (vector-ref arg-1 1))) (let ((e-3 (vector-ref arg-1 2))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 1 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-1456 arg-1459))) (lambda (arg-1461) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-1461 eta-0)))) arg-0 e-2 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else ((TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-0 e-3) ext-0))))))))))))) +(define TTImpC-45TTImp-u--toBuf_TTC_IField (lambda (arg-0 arg-1 ext-0) (let ((e-0 (vector-ref arg-1 0))) (let ((e-1 (vector-ref arg-1 1))) (let ((e-2 (vector-ref arg-1 2))) (let ((e-3 (vector-ref arg-1 3))) (let ((e-4 (vector-ref arg-1 4))) (let ((act-24 (CoreC-45TTC-u--toBuf_TTC_FC arg-0 e-0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((act-25 ((CoreC-45TTC-u--toBuf_TTC_RigCount arg-0 e-1) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-6 (vector-ref act-25 1))) (vector 0 e-6))) (else (let ((act-26 (CoreC-45TTC-u--toBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-1456 arg-1459))) (lambda (arg-1461) (lambda (eta-0) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-1461 eta-0)))) arg-0 e-2 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-7 (vector-ref act-26 1))) (vector 0 e-7))) (else (let ((act-27 (CoreC-45TTC-u--toBuf_TTC_Name arg-0 e-3 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-8 (vector-ref act-27 1))) (vector 0 e-8))) (else ((TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-0 e-4) ext-0)))))))))))))))))))) +(define TTImpC-45TTImp-u--toBuf_TTC_FnOpt (lambda (arg-0 arg-1 ext-0) (case (vector-ref arg-1 0) ((0) (LibrariesC-45UtilsC-45Binary-tag arg-0 0 ext-0)) ((1) (LibrariesC-45UtilsC-45Binary-tag arg-0 11 ext-0)) ((2) (let ((e-0 (vector-ref arg-1 1))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 1 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Bool arg-0 e-0 ext-0)))))) ((3) (let ((e-1 (vector-ref arg-1 1))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 2 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Bool arg-0 e-1 ext-0)))))) ((4) (LibrariesC-45UtilsC-45Binary-tag arg-0 3 ext-0)) ((5) (let ((e-2 (vector-ref arg-1 1))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 4 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-1456 arg-1459))) (lambda (arg-1461) (lambda (eta-0) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-1461 eta-0)))) arg-0 e-2 ext-0)))))) ((6) (LibrariesC-45UtilsC-45Binary-tag arg-0 5 ext-0)) ((7) (let ((e-3 (vector-ref arg-1 1))) (cond ((equal? e-3 0) (LibrariesC-45UtilsC-45Binary-tag arg-0 6 ext-0)) ((equal? e-3 1) (LibrariesC-45UtilsC-45Binary-tag arg-0 7 ext-0)) (else (LibrariesC-45UtilsC-45Binary-tag arg-0 8 ext-0))))) ((8) (LibrariesC-45UtilsC-45Binary-tag arg-0 9 ext-0)) (else (let ((e-4 (vector-ref arg-1 1))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 10 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_Name arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1461 eta-0)))) arg-0 e-4 ext-0))))))))) +(define TTImpC-45TTImp-u--toBuf_TTC_DataOpt (lambda (arg-0 arg-1 ext-0) (case (vector-ref arg-1 0) ((0) (let ((e-0 (vector-ref arg-1 1))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_Name arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1461 eta-0)))) arg-0 e-0 ext-0)))))) ((1) (LibrariesC-45UtilsC-45Binary-tag arg-0 1 ext-0)) ((2) (LibrariesC-45UtilsC-45Binary-tag arg-0 2 ext-0)) ((3) (LibrariesC-45UtilsC-45Binary-tag arg-0 3 ext-0)) (else (LibrariesC-45UtilsC-45Binary-tag arg-0 4 ext-0))))) +(define TTImpC-45TTImp-u--toBuf_TTC_BuiltinType (lambda (arg-0 arg-1 ext-0) (cond ((equal? arg-1 0) (LibrariesC-45UtilsC-45Binary-tag arg-0 0 ext-0)) ((equal? arg-1 1) (LibrariesC-45UtilsC-45Binary-tag arg-0 1 ext-0)) (else (LibrariesC-45UtilsC-45Binary-tag arg-0 2 ext-0))))) +(define TTImpC-45TTImp-u--toBuf_TTC_BindMode (lambda (arg-0 arg-1 ext-0) (case (vector-ref arg-1 0) ((0) (let ((e-0 (vector-ref arg-1 1))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else ((CoreC-45TTC-u--toBuf_TTC_RigCount arg-0 e-0) ext-0)))))) ((1) (LibrariesC-45UtilsC-45Binary-tag arg-0 1 ext-0)) (else (LibrariesC-45UtilsC-45Binary-tag arg-0 2 ext-0))))) +(define TTImpC-45TTImp-u--toBuf_TTC_AltType (lambda (arg-0 arg-1 ext-0) (case (vector-ref arg-1 0) ((0) (LibrariesC-45UtilsC-45Binary-tag arg-0 0 ext-0)) ((1) (LibrariesC-45UtilsC-45Binary-tag arg-0 1 ext-0)) (else (let ((e-0 (vector-ref arg-1 1))) (let ((act-24 (LibrariesC-45UtilsC-45Binary-tag arg-0 2 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else ((TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-0 e-0) ext-0))))))))) +(define TTImpC-45TTImp-u--show_Show_RawImp (lambda (arg-0) (case (vector-ref arg-0 0) ((0) (let ((e-1 (vector-ref arg-0 2))) (CoreC-45Name-u--show_Show_Name e-1))) ((1) (let ((e-3 (vector-ref arg-0 2))) (let ((e-4 (vector-ref arg-0 3))) (let ((e-5 (vector-ref arg-0 4))) (let ((e-6 (vector-ref arg-0 5))) (let ((e-7 (vector-ref arg-0 6))) (PreludeC-45TypesC-45String-C-43C-43 "(%pi " (PreludeC-45TypesC-45String-C-43C-43 (AlgebraC-45ZeroOneOmega-u--show_Show_ZeroOneOmega e-3) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40PiInfoC-32C-36tC-41 (cons (lambda (u--x) (TTImpC-45TTImp-u--show_Show_RawImp u--x)) (lambda (u--d) (lambda (u--x) (TTImpC-45TTImp-u--showPrec_Show_RawImp u--d u--x)))) e-4) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--showPrec_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45Name-u--show_Show_Name u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Name-u--showPrec_Show_Name u--d u--x)))) (vector 6 ) e-5) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (TTImpC-45TTImp-u--show_Show_RawImp e-6) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (TTImpC-45TTImp-u--show_Show_RawImp e-7) ")")))))))))))))))) ((2) (let ((e-9 (vector-ref arg-0 2))) (let ((e-10 (vector-ref arg-0 3))) (let ((e-11 (vector-ref arg-0 4))) (let ((e-12 (vector-ref arg-0 5))) (let ((e-13 (vector-ref arg-0 6))) (PreludeC-45TypesC-45String-C-43C-43 "(%lam " (PreludeC-45TypesC-45String-C-43C-43 (AlgebraC-45ZeroOneOmega-u--show_Show_ZeroOneOmega e-9) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40PiInfoC-32C-36tC-41 (cons (lambda (u--x) (TTImpC-45TTImp-u--show_Show_RawImp u--x)) (lambda (u--d) (lambda (u--x) (TTImpC-45TTImp-u--showPrec_Show_RawImp u--d u--x)))) e-10) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--showPrec_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45Name-u--show_Show_Name u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Name-u--showPrec_Show_Name u--d u--x)))) (vector 6 ) e-11) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (TTImpC-45TTImp-u--show_Show_RawImp e-12) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (TTImpC-45TTImp-u--show_Show_RawImp e-13) ")")))))))))))))))) ((3) (let ((e-16 (vector-ref arg-0 3))) (let ((e-17 (vector-ref arg-0 4))) (let ((e-18 (vector-ref arg-0 5))) (let ((e-19 (vector-ref arg-0 6))) (let ((e-20 (vector-ref arg-0 7))) (PreludeC-45TypesC-45String-C-43C-43 "(%let " (PreludeC-45TypesC-45String-C-43C-43 (AlgebraC-45ZeroOneOmega-u--show_Show_ZeroOneOmega e-16) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-17) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (TTImpC-45TTImp-u--show_Show_RawImp e-18) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (TTImpC-45TTImp-u--show_Show_RawImp e-19) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (TTImpC-45TTImp-u--show_Show_RawImp e-20) ")"))))))))))))))))) ((4) (let ((e-22 (vector-ref arg-0 2))) (let ((e-23 (vector-ref arg-0 3))) (let ((e-24 (vector-ref arg-0 4))) (PreludeC-45TypesC-45String-C-43C-43 "(%case (" (PreludeC-45TypesC-45String-C-43C-43 (TTImpC-45TTImp-u--show_Show_RawImp e-22) (PreludeC-45TypesC-45String-C-43C-43 " : " (PreludeC-45TypesC-45String-C-43C-43 (TTImpC-45TTImp-u--show_Show_RawImp e-23) (PreludeC-45TypesC-45String-C-43C-43 ") " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (TTImpC-45TTImp-u--show_Show_ImpClause u--x)) (lambda (u--d) (lambda (u--x) (TTImpC-45TTImp-u--showPrec_Show_ImpClause u--d u--x)))) e-24) ")")))))))))) ((5) (let ((e-26 (vector-ref arg-0 2))) (let ((e-27 (vector-ref arg-0 3))) (PreludeC-45TypesC-45String-C-43C-43 "(%local (" (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (TTImpC-45TTImp-u--show_Show_ImpDecl u--x)) (lambda (u--d) (lambda (u--x) (TTImpC-45TTImp-u--showPrec_Show_ImpDecl u--d u--x)))) e-26) (PreludeC-45TypesC-45String-C-43C-43 ") " (PreludeC-45TypesC-45String-C-43C-43 (TTImpC-45TTImp-u--show_Show_RawImp e-27) ")"))))))) ((6) (let ((e-29 (vector-ref arg-0 2))) (let ((e-30 (vector-ref arg-0 3))) (let ((e-31 (vector-ref arg-0 4))) (let ((e-32 (vector-ref arg-0 5))) (PreludeC-45TypesC-45String-C-43C-43 "(%caselocal (" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-29) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-30) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45Name-u--show_Show_Name u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Name-u--showPrec_Show_Name u--d u--x)))) e-31) (PreludeC-45TypesC-45String-C-43C-43 ") " (PreludeC-45TypesC-45String-C-43C-43 (TTImpC-45TTImp-u--show_Show_RawImp e-32) ")"))))))))))))) ((7) (let ((e-34 (vector-ref arg-0 2))) (let ((e-35 (vector-ref arg-0 3))) (PreludeC-45TypesC-45String-C-43C-43 "(%record " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-showSep ", " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (TTImpC-45TTImp-u--show_Show_IFieldUpdate eta-0)) e-34)) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (TTImpC-45TTImp-u--show_Show_RawImp e-35) ")"))))))) ((8) (let ((e-37 (vector-ref arg-0 2))) (let ((e-38 (vector-ref arg-0 3))) (PreludeC-45TypesC-45String-C-43C-43 "(" (PreludeC-45TypesC-45String-C-43C-43 (TTImpC-45TTImp-u--show_Show_RawImp e-37) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (TTImpC-45TTImp-u--show_Show_RawImp e-38) ")"))))))) ((10) (let ((e-40 (vector-ref arg-0 2))) (let ((e-41 (vector-ref arg-0 3))) (let ((e-42 (vector-ref arg-0 4))) (PreludeC-45TypesC-45String-C-43C-43 "(" (PreludeC-45TypesC-45String-C-43C-43 (TTImpC-45TTImp-u--show_Show_RawImp e-40) (PreludeC-45TypesC-45String-C-43C-43 " [" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-41) (PreludeC-45TypesC-45String-C-43C-43 " = " (PreludeC-45TypesC-45String-C-43C-43 (TTImpC-45TTImp-u--show_Show_RawImp e-42) "])")))))))))) ((9) (let ((e-44 (vector-ref arg-0 2))) (let ((e-45 (vector-ref arg-0 3))) (PreludeC-45TypesC-45String-C-43C-43 "(" (PreludeC-45TypesC-45String-C-43C-43 (TTImpC-45TTImp-u--show_Show_RawImp e-44) (PreludeC-45TypesC-45String-C-43C-43 " [" (PreludeC-45TypesC-45String-C-43C-43 (TTImpC-45TTImp-u--show_Show_RawImp e-45) "])"))))))) ((11) (let ((e-47 (vector-ref arg-0 2))) (let ((e-48 (vector-ref arg-0 3))) (PreludeC-45TypesC-45String-C-43C-43 "(" (PreludeC-45TypesC-45String-C-43C-43 (TTImpC-45TTImp-u--show_Show_RawImp e-47) (PreludeC-45TypesC-45String-C-43C-43 " | " (PreludeC-45TypesC-45String-C-43C-43 (TTImpC-45TTImp-u--show_Show_RawImp e-48) ")"))))))) ((12) "%search") ((13) (let ((e-53 (vector-ref arg-0 3))) (PreludeC-45TypesC-45String-C-43C-43 "(|" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-showSep "," (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (TTImpC-45TTImp-u--show_Show_RawImp eta-0)) e-53)) "|)")))) ((14) (let ((e-55 (vector-ref arg-0 2))) (let ((e-56 (vector-ref arg-0 3))) (PreludeC-45TypesC-45String-C-43C-43 "(%rewrite (" (PreludeC-45TypesC-45String-C-43C-43 (TTImpC-45TTImp-u--show_Show_RawImp e-55) (PreludeC-45TypesC-45String-C-43C-43 ") (" (PreludeC-45TypesC-45String-C-43C-43 (TTImpC-45TTImp-u--show_Show_RawImp e-56) "))"))))))) ((15) (let ((e-58 (vector-ref arg-0 2))) (PreludeC-45TypesC-45String-C-43C-43 "(%coerced " (PreludeC-45TypesC-45String-C-43C-43 (TTImpC-45TTImp-u--show_Show_RawImp e-58) ")")))) ((16) (let ((e-61 (vector-ref arg-0 3))) (PreludeC-45TypesC-45String-C-43C-43 "(%bindhere " (PreludeC-45TypesC-45String-C-43C-43 (TTImpC-45TTImp-u--show_Show_RawImp e-61) ")")))) ((17) (let ((e-63 (vector-ref arg-0 2))) (PreludeC-45TypesC-45String-C-43C-43 "$" e-63))) ((18) (let ((e-67 (vector-ref arg-0 4))) (let ((e-68 (vector-ref arg-0 5))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-67) (PreludeC-45TypesC-45String-C-43C-43 "@(" (PreludeC-45TypesC-45String-C-43C-43 (TTImpC-45TTImp-u--show_Show_RawImp e-68) ")")))))) ((19) (let ((e-71 (vector-ref arg-0 3))) (PreludeC-45TypesC-45String-C-43C-43 ".(" (PreludeC-45TypesC-45String-C-43C-43 (TTImpC-45TTImp-u--show_Show_RawImp e-71) ")")))) ((20) (let ((e-74 (vector-ref arg-0 3))) (PreludeC-45TypesC-45String-C-43C-43 "(%delayed " (PreludeC-45TypesC-45String-C-43C-43 (TTImpC-45TTImp-u--show_Show_RawImp e-74) ")")))) ((21) (let ((e-76 (vector-ref arg-0 2))) (PreludeC-45TypesC-45String-C-43C-43 "(%delay " (PreludeC-45TypesC-45String-C-43C-43 (TTImpC-45TTImp-u--show_Show_RawImp e-76) ")")))) ((22) (let ((e-78 (vector-ref arg-0 2))) (PreludeC-45TypesC-45String-C-43C-43 "(%force " (PreludeC-45TypesC-45String-C-43C-43 (TTImpC-45TTImp-u--show_Show_RawImp e-78) ")")))) ((23) (let ((e-80 (vector-ref arg-0 2))) (PreludeC-45TypesC-45String-C-43C-43 "(%quote " (PreludeC-45TypesC-45String-C-43C-43 (TTImpC-45TTImp-u--show_Show_RawImp e-80) ")")))) ((24) (let ((e-82 (vector-ref arg-0 2))) (PreludeC-45TypesC-45String-C-43C-43 "(%quotename " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-82) ")")))) ((25) (let ((e-84 (vector-ref arg-0 2))) (PreludeC-45TypesC-45String-C-43C-43 "(%quotedecl " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (TTImpC-45TTImp-u--show_Show_ImpDecl u--x)) (lambda (u--d) (lambda (u--x) (TTImpC-45TTImp-u--showPrec_Show_ImpDecl u--d u--x)))) e-84) ")")))) ((26) (let ((e-86 (vector-ref arg-0 2))) (PreludeC-45TypesC-45String-C-43C-43 "(%unquote " (PreludeC-45TypesC-45String-C-43C-43 (TTImpC-45TTImp-u--show_Show_RawImp e-86) ")")))) ((27) (let ((e-88 (vector-ref arg-0 2))) (PreludeC-45TypesC-45String-C-43C-43 "(%runelab " (PreludeC-45TypesC-45String-C-43C-43 (TTImpC-45TTImp-u--show_Show_RawImp e-88) ")")))) ((28) (let ((e-90 (vector-ref arg-0 2))) (CoreC-45TT-u--show_Show_Constant e-90))) ((30) (let ((e-92 (vector-ref arg-0 2))) (PreludeC-45TypesC-45String-C-43C-43 "?" e-92))) ((31) (let ((e-94 (vector-ref arg-0 2))) (let ((e-95 (vector-ref arg-0 3))) (PreludeC-45TypesC-45String-C-43C-43 "(%logging " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45OptionsC-45Log-u--show_Show_LogLevel e-94) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (TTImpC-45TTImp-u--show_Show_RawImp e-95) ")"))))))) ((29) "%type") ((32) (let ((e-98 (vector-ref arg-0 2))) (cond ((equal? e-98 1) "_") (else "?")))) (else (let ((e-100 (vector-ref arg-0 2))) (let ((e-101 (vector-ref arg-0 3))) (PreludeC-45TypesC-45String-C-43C-43 "(%with " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45Name-u--show_Show_Name u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Name-u--showPrec_Show_Name u--d u--x)))) e-100) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (TTImpC-45TTImp-u--show_Show_RawImp e-101) ")")))))))))) +(define TTImpC-45TTImp-u--show_Show_ImpTy (lambda (arg-0) (let ((e-2 (vector-ref arg-0 2))) (let ((e-3 (vector-ref arg-0 3))) (PreludeC-45TypesC-45String-C-43C-43 "(%claim " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-2) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (TTImpC-45TTImp-u--show_Show_RawImp e-3) ")")))))))) +(define TTImpC-45TTImp-u--show_Show_ImpRecord (lambda (arg-0) (let ((e-1 (vector-ref arg-0 1))) (let ((e-2 (vector-ref arg-0 2))) (let ((e-3 (vector-ref arg-0 3))) (let ((e-4 (vector-ref arg-0 4))) (PreludeC-45TypesC-45String-C-43C-43 "record " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-1) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (CoreC-45Name-u--show_Show_Name x-0)) (lambda (u--d) (lambda (x-0) (CoreC-45Name-u--showPrec_Show_Name u--d x-0)))) (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (AlgebraC-45ZeroOneOmega-u--show_Show_ZeroOneOmega x-1)) (lambda (u--d) (lambda (x-1) (AlgebraC-45ZeroOneOmega-u--showPrec_Show_ZeroOneOmega u--d x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40PiInfoC-32C-36tC-41 (cons (lambda (x-3) (TTImpC-45TTImp-u--show_Show_RawImp x-3)) (lambda (u--d) (lambda (x-3) (TTImpC-45TTImp-u--showPrec_Show_RawImp u--d x-3)))) x-2)) (lambda (u--d) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40PiInfoC-32C-36tC-41 (cons (lambda (x-3) (TTImpC-45TTImp-u--show_Show_RawImp x-3)) (lambda (d-0) (lambda (x-3) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-0 x-3)))) u--d x-2)))) (cons (lambda (x-2) (TTImpC-45TTImp-u--show_Show_RawImp x-2)) (lambda (u--d) (lambda (x-2) (TTImpC-45TTImp-u--showPrec_Show_RawImp u--d x-2))))) x-1)) (lambda (u--d) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40PiInfoC-32C-36tC-41 (cons (lambda (x-3) (TTImpC-45TTImp-u--show_Show_RawImp x-3)) (lambda (d-0) (lambda (x-3) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40PiInfoC-32C-36tC-41 (cons (lambda (x-3) (TTImpC-45TTImp-u--show_Show_RawImp x-3)) (lambda (d-1) (lambda (x-3) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-1 x-3)))) d-0 x-2)))) (cons (lambda (x-2) (TTImpC-45TTImp-u--show_Show_RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-0 x-2))))) u--d x-1))))) x-0)) (lambda (u--d) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (AlgebraC-45ZeroOneOmega-u--show_Show_ZeroOneOmega x-1)) (lambda (d-0) (lambda (x-1) (AlgebraC-45ZeroOneOmega-u--showPrec_Show_ZeroOneOmega d-0 x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40PiInfoC-32C-36tC-41 (cons (lambda (x-3) (TTImpC-45TTImp-u--show_Show_RawImp x-3)) (lambda (d-0) (lambda (x-3) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40PiInfoC-32C-36tC-41 (cons (lambda (x-3) (TTImpC-45TTImp-u--show_Show_RawImp x-3)) (lambda (d-1) (lambda (x-3) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-1 x-3)))) d-0 x-2)))) (cons (lambda (x-2) (TTImpC-45TTImp-u--show_Show_RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40PiInfoC-32C-36tC-41 (cons (lambda (x-3) (TTImpC-45TTImp-u--show_Show_RawImp x-3)) (lambda (d-1) (lambda (x-3) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40PiInfoC-32C-36tC-41 (cons (lambda (x-3) (TTImpC-45TTImp-u--show_Show_RawImp x-3)) (lambda (d-2) (lambda (x-3) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-2 x-3)))) d-1 x-2)))) (cons (lambda (x-2) (TTImpC-45TTImp-u--show_Show_RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-1 x-2))))) d-0 x-1))))) u--d x-0))))) u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (CoreC-45Name-u--show_Show_Name x-0)) (lambda (d-0) (lambda (x-0) (CoreC-45Name-u--showPrec_Show_Name d-0 x-0)))) (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (AlgebraC-45ZeroOneOmega-u--show_Show_ZeroOneOmega x-1)) (lambda (d-0) (lambda (x-1) (AlgebraC-45ZeroOneOmega-u--showPrec_Show_ZeroOneOmega d-0 x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40PiInfoC-32C-36tC-41 (cons (lambda (x-3) (TTImpC-45TTImp-u--show_Show_RawImp x-3)) (lambda (d-0) (lambda (x-3) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40PiInfoC-32C-36tC-41 (cons (lambda (x-3) (TTImpC-45TTImp-u--show_Show_RawImp x-3)) (lambda (d-1) (lambda (x-3) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-1 x-3)))) d-0 x-2)))) (cons (lambda (x-2) (TTImpC-45TTImp-u--show_Show_RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40PiInfoC-32C-36tC-41 (cons (lambda (x-3) (TTImpC-45TTImp-u--show_Show_RawImp x-3)) (lambda (d-1) (lambda (x-3) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40PiInfoC-32C-36tC-41 (cons (lambda (x-3) (TTImpC-45TTImp-u--show_Show_RawImp x-3)) (lambda (d-2) (lambda (x-3) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-2 x-3)))) d-1 x-2)))) (cons (lambda (x-2) (TTImpC-45TTImp-u--show_Show_RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-1 x-2))))) d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (AlgebraC-45ZeroOneOmega-u--show_Show_ZeroOneOmega x-1)) (lambda (d-1) (lambda (x-1) (AlgebraC-45ZeroOneOmega-u--showPrec_Show_ZeroOneOmega d-1 x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40PiInfoC-32C-36tC-41 (cons (lambda (x-3) (TTImpC-45TTImp-u--show_Show_RawImp x-3)) (lambda (d-1) (lambda (x-3) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40PiInfoC-32C-36tC-41 (cons (lambda (x-3) (TTImpC-45TTImp-u--show_Show_RawImp x-3)) (lambda (d-2) (lambda (x-3) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-2 x-3)))) d-1 x-2)))) (cons (lambda (x-2) (TTImpC-45TTImp-u--show_Show_RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-1 x-2))))) x-1)) (lambda (d-1) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40PiInfoC-32C-36tC-41 (cons (lambda (x-3) (TTImpC-45TTImp-u--show_Show_RawImp x-3)) (lambda (d-2) (lambda (x-3) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-2 x-3)))) x-2)) (lambda (d-2) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40PiInfoC-32C-36tC-41 (cons (lambda (x-3) (TTImpC-45TTImp-u--show_Show_RawImp x-3)) (lambda (d-3) (lambda (x-3) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-3 x-3)))) d-2 x-2)))) (cons (lambda (x-2) (TTImpC-45TTImp-u--show_Show_RawImp x-2)) (lambda (d-2) (lambda (x-2) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-2 x-2))))) d-1 x-1))))) d-0 x-0))))) u--d u--x)))) e-2) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-3) (PreludeC-45TypesC-45String-C-43C-43 "\u000a\u0009" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-showSep "\u000a\u0009" (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (TTImpC-45TTImp-u--show_Show_IField eta-0)) e-4)) "\u000a")))))))))))))) +(define TTImpC-45TTImp-u--show_Show_ImpDecl (lambda (arg-0) (case (vector-ref arg-0 0) ((0) (let ((e-1 (vector-ref arg-0 2))) (let ((e-3 (vector-ref arg-0 4))) (let ((e-4 (vector-ref arg-0 5))) (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (TTImpC-45TTImp-u--show_Show_FnOpt u--x)) (lambda (u--d) (lambda (u--x) (TTImpC-45TTImp-u--showPrec_Show_FnOpt u--d u--x)))) e-3) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (AlgebraC-45ZeroOneOmega-u--show_Show_ZeroOneOmega e-1) (PreludeC-45TypesC-45String-C-43C-43 " " (TTImpC-45TTImp-u--show_Show_ImpTy e-4))))))))) ((1) (let ((e-7 (vector-ref arg-0 3))) (TTImpC-45TTImp-u--show_Show_ImpData e-7))) ((2) (let ((e-9 (vector-ref arg-0 2))) (let ((e-10 (vector-ref arg-0 3))) (PreludeC-45TypesC-45String-C-43C-43 "(%def " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-9) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (TTImpC-45TTImp-u--show_Show_ImpClause u--x)) (lambda (u--d) (lambda (u--x) (TTImpC-45TTImp-u--showPrec_Show_ImpClause u--d u--x)))) e-10) ")"))))))) ((3) (let ((e-12 (vector-ref arg-0 2))) (let ((e-13 (vector-ref arg-0 3))) (PreludeC-45TypesC-45String-C-43C-43 "parameters " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (CoreC-45Name-u--show_Show_Name x-0)) (lambda (u--d) (lambda (x-0) (CoreC-45Name-u--showPrec_Show_Name u--d x-0)))) (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (AlgebraC-45ZeroOneOmega-u--show_Show_ZeroOneOmega x-1)) (lambda (u--d) (lambda (x-1) (AlgebraC-45ZeroOneOmega-u--showPrec_Show_ZeroOneOmega u--d x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40PiInfoC-32C-36tC-41 (cons (lambda (x-3) (TTImpC-45TTImp-u--show_Show_RawImp x-3)) (lambda (u--d) (lambda (x-3) (TTImpC-45TTImp-u--showPrec_Show_RawImp u--d x-3)))) x-2)) (lambda (u--d) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40PiInfoC-32C-36tC-41 (cons (lambda (x-3) (TTImpC-45TTImp-u--show_Show_RawImp x-3)) (lambda (d-0) (lambda (x-3) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-0 x-3)))) u--d x-2)))) (cons (lambda (x-2) (TTImpC-45TTImp-u--show_Show_RawImp x-2)) (lambda (u--d) (lambda (x-2) (TTImpC-45TTImp-u--showPrec_Show_RawImp u--d x-2))))) x-1)) (lambda (u--d) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40PiInfoC-32C-36tC-41 (cons (lambda (x-3) (TTImpC-45TTImp-u--show_Show_RawImp x-3)) (lambda (d-0) (lambda (x-3) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40PiInfoC-32C-36tC-41 (cons (lambda (x-3) (TTImpC-45TTImp-u--show_Show_RawImp x-3)) (lambda (d-1) (lambda (x-3) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-1 x-3)))) d-0 x-2)))) (cons (lambda (x-2) (TTImpC-45TTImp-u--show_Show_RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-0 x-2))))) u--d x-1))))) x-0)) (lambda (u--d) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (AlgebraC-45ZeroOneOmega-u--show_Show_ZeroOneOmega x-1)) (lambda (d-0) (lambda (x-1) (AlgebraC-45ZeroOneOmega-u--showPrec_Show_ZeroOneOmega d-0 x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40PiInfoC-32C-36tC-41 (cons (lambda (x-3) (TTImpC-45TTImp-u--show_Show_RawImp x-3)) (lambda (d-0) (lambda (x-3) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40PiInfoC-32C-36tC-41 (cons (lambda (x-3) (TTImpC-45TTImp-u--show_Show_RawImp x-3)) (lambda (d-1) (lambda (x-3) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-1 x-3)))) d-0 x-2)))) (cons (lambda (x-2) (TTImpC-45TTImp-u--show_Show_RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40PiInfoC-32C-36tC-41 (cons (lambda (x-3) (TTImpC-45TTImp-u--show_Show_RawImp x-3)) (lambda (d-1) (lambda (x-3) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40PiInfoC-32C-36tC-41 (cons (lambda (x-3) (TTImpC-45TTImp-u--show_Show_RawImp x-3)) (lambda (d-2) (lambda (x-3) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-2 x-3)))) d-1 x-2)))) (cons (lambda (x-2) (TTImpC-45TTImp-u--show_Show_RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-1 x-2))))) d-0 x-1))))) u--d x-0))))) u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (CoreC-45Name-u--show_Show_Name x-0)) (lambda (d-0) (lambda (x-0) (CoreC-45Name-u--showPrec_Show_Name d-0 x-0)))) (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (AlgebraC-45ZeroOneOmega-u--show_Show_ZeroOneOmega x-1)) (lambda (d-0) (lambda (x-1) (AlgebraC-45ZeroOneOmega-u--showPrec_Show_ZeroOneOmega d-0 x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40PiInfoC-32C-36tC-41 (cons (lambda (x-3) (TTImpC-45TTImp-u--show_Show_RawImp x-3)) (lambda (d-0) (lambda (x-3) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40PiInfoC-32C-36tC-41 (cons (lambda (x-3) (TTImpC-45TTImp-u--show_Show_RawImp x-3)) (lambda (d-1) (lambda (x-3) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-1 x-3)))) d-0 x-2)))) (cons (lambda (x-2) (TTImpC-45TTImp-u--show_Show_RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40PiInfoC-32C-36tC-41 (cons (lambda (x-3) (TTImpC-45TTImp-u--show_Show_RawImp x-3)) (lambda (d-1) (lambda (x-3) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40PiInfoC-32C-36tC-41 (cons (lambda (x-3) (TTImpC-45TTImp-u--show_Show_RawImp x-3)) (lambda (d-2) (lambda (x-3) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-2 x-3)))) d-1 x-2)))) (cons (lambda (x-2) (TTImpC-45TTImp-u--show_Show_RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-1 x-2))))) d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (AlgebraC-45ZeroOneOmega-u--show_Show_ZeroOneOmega x-1)) (lambda (d-1) (lambda (x-1) (AlgebraC-45ZeroOneOmega-u--showPrec_Show_ZeroOneOmega d-1 x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40PiInfoC-32C-36tC-41 (cons (lambda (x-3) (TTImpC-45TTImp-u--show_Show_RawImp x-3)) (lambda (d-1) (lambda (x-3) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40PiInfoC-32C-36tC-41 (cons (lambda (x-3) (TTImpC-45TTImp-u--show_Show_RawImp x-3)) (lambda (d-2) (lambda (x-3) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-2 x-3)))) d-1 x-2)))) (cons (lambda (x-2) (TTImpC-45TTImp-u--show_Show_RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-1 x-2))))) x-1)) (lambda (d-1) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40PiInfoC-32C-36tC-41 (cons (lambda (x-3) (TTImpC-45TTImp-u--show_Show_RawImp x-3)) (lambda (d-2) (lambda (x-3) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-2 x-3)))) x-2)) (lambda (d-2) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40PiInfoC-32C-36tC-41 (cons (lambda (x-3) (TTImpC-45TTImp-u--show_Show_RawImp x-3)) (lambda (d-3) (lambda (x-3) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-3 x-3)))) d-2 x-2)))) (cons (lambda (x-2) (TTImpC-45TTImp-u--show_Show_RawImp x-2)) (lambda (d-2) (lambda (x-2) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-2 x-2))))) d-1 x-1))))) d-0 x-0))))) u--d u--x)))) e-12) (PreludeC-45TypesC-45String-C-43C-43 "\u000a\u0009" (CoreC-45NameC-45Namespace-showSep "\u000a\u0009" (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (TTImpC-45TTImp-u--show_Show_ImpDecl eta-0)) e-13)))))))) ((4) (let ((e-17 (vector-ref arg-0 4))) (TTImpC-45TTImp-u--show_Show_ImpRecord e-17))) ((5) (let ((e-19 (vector-ref arg-0 2))) (let ((e-20 (vector-ref arg-0 3))) (PreludeC-45TypesC-45String-C-43C-43 "namespace " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-u--show_Show_Namespace e-19) (CoreC-45NameC-45Namespace-showSep "\u000a" (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (TTImpC-45TTImp-u--show_Show_ImpDecl eta-0)) e-20))))))) ((6) (let ((e-22 (vector-ref arg-0 2))) (let ((e-23 (vector-ref arg-0 3))) (let ((e-24 (vector-ref arg-0 4))) (PreludeC-45TypesC-45String-C-43C-43 "%transform " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-22) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (TTImpC-45TTImp-u--show_Show_RawImp e-23) (PreludeC-45TypesC-45String-C-43C-43 " ==> " (TTImpC-45TTImp-u--show_Show_RawImp e-24)))))))))) ((7) (let ((e-26 (vector-ref arg-0 2))) (PreludeC-45TypesC-45String-C-43C-43 "%runElab " (TTImpC-45TTImp-u--show_Show_RawImp e-26)))) ((8) "[externally defined pragma]") ((9) (let ((e-29 (vector-ref arg-0 1))) (if (null? e-29) "%logging off" (let ((e-35 (unbox e-29))) (let ((e-38 (car e-35))) (let ((e-39 (cdr e-35))) (PreludeC-45TypesC-45String-C-43C-43 "%logging " (if (null? e-38) (PreludeC-45Show-u--show_Show_Nat e-39) (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Interfaces-concat (cons (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_String arg-2 arg-3))) (PreludeC-45Types-u--neutral_Monoid_String))) (DataC-45List-intersperse "." e-38)) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45Show-u--show_Show_Nat e-39))))))))))) (else (let ((e-31 (vector-ref arg-0 2))) (let ((e-32 (vector-ref arg-0 3))) (PreludeC-45TypesC-45String-C-43C-43 "%builtin " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Context-u--show_Show_BuiltinType e-31) (PreludeC-45TypesC-45String-C-43C-43 " " (CoreC-45Name-u--show_Show_Name e-32)))))))))) +(define TTImpC-45TTImp-u--show_Show_ImpData (lambda (arg-0) (case (vector-ref arg-0 0) ((0) (let ((e-1 (vector-ref arg-0 2))) (let ((e-2 (vector-ref arg-0 3))) (let ((e-4 (vector-ref arg-0 5))) (PreludeC-45TypesC-45String-C-43C-43 "(%data " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-1) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (TTImpC-45TTImp-u--show_Show_RawImp e-2) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (TTImpC-45TTImp-u--show_Show_ImpTy u--x)) (lambda (u--d) (lambda (u--x) (TTImpC-45TTImp-u--showPrec_Show_ImpTy u--d u--x)))) e-4) ")")))))))))) (else (let ((e-6 (vector-ref arg-0 2))) (let ((e-7 (vector-ref arg-0 3))) (PreludeC-45TypesC-45String-C-43C-43 "(%datadecl " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-6) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (TTImpC-45TTImp-u--show_Show_RawImp e-7) ")")))))))))) +(define TTImpC-45TTImp-u--show_Show_ImpClause (lambda (arg-0) (case (vector-ref arg-0 0) ((0) (let ((e-1 (vector-ref arg-0 2))) (let ((e-2 (vector-ref arg-0 3))) (PreludeC-45TypesC-45String-C-43C-43 (TTImpC-45TTImp-u--show_Show_RawImp e-1) (PreludeC-45TypesC-45String-C-43C-43 " = " (TTImpC-45TTImp-u--show_Show_RawImp e-2)))))) ((1) (let ((e-4 (vector-ref arg-0 2))) (let ((e-5 (vector-ref arg-0 3))) (let ((e-6 (vector-ref arg-0 4))) (let ((e-8 (vector-ref arg-0 6))) (PreludeC-45TypesC-45String-C-43C-43 (TTImpC-45TTImp-u--show_Show_RawImp e-4) (PreludeC-45TypesC-45String-C-43C-43 " with " (PreludeC-45TypesC-45String-C-43C-43 (TTImpC-45TTImp-u--show_Show_RawImp e-5) (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Types-maybe (lambda () "") (lambda () (lambda (u--nm) (PreludeC-45TypesC-45String-C-43C-43 " proof " (CoreC-45Name-u--show_Show_Name u--nm)))) e-6) (PreludeC-45TypesC-45String-C-43C-43 "\u000a\u0009" (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (TTImpC-45TTImp-u--show_Show_ImpClause u--x)) (lambda (u--d) (lambda (u--x) (TTImpC-45TTImp-u--showPrec_Show_ImpClause u--d u--x)))) e-8))))))))))) (else (let ((e-10 (vector-ref arg-0 2))) (PreludeC-45TypesC-45String-C-43C-43 (TTImpC-45TTImp-u--show_Show_RawImp e-10) " impossible")))))) +(define TTImpC-45TTImp-u--show_Show_IFieldUpdate (lambda (arg-0) (case (vector-ref arg-0 0) ((0) (let ((e-0 (vector-ref arg-0 1))) (let ((e-1 (vector-ref arg-0 2))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-showSep "->" e-0) (PreludeC-45TypesC-45String-C-43C-43 " = " (TTImpC-45TTImp-u--show_Show_RawImp e-1)))))) (else (let ((e-2 (vector-ref arg-0 1))) (let ((e-3 (vector-ref arg-0 2))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-showSep "->" e-2) (PreludeC-45TypesC-45String-C-43C-43 " $= " (TTImpC-45TTImp-u--show_Show_RawImp e-3))))))))) +(define TTImpC-45TTImp-u--show_Show_IField (lambda (arg-0) (let ((e-2 (vector-ref arg-0 2))) (let ((e-3 (vector-ref arg-0 3))) (let ((e-4 (vector-ref arg-0 4))) (case (vector-ref e-2 0) ((1) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-3) (PreludeC-45TypesC-45String-C-43C-43 " : " (TTImpC-45TTImp-u--show_Show_RawImp e-4))))(else (PreludeC-45TypesC-45String-C-43C-43 "{" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-3) (PreludeC-45TypesC-45String-C-43C-43 " : " (PreludeC-45TypesC-45String-C-43C-43 (TTImpC-45TTImp-u--show_Show_RawImp e-4) "}"))))))))))) +(define TTImpC-45TTImp-u--show_Show_FnOpt (lambda (arg-0) (case (vector-ref arg-0 0) ((0) "%inline") ((1) "%tcinline") ((2) (let ((e-0 (vector-ref arg-0 1))) (PreludeC-45TypesC-45String-C-43C-43 "%hint " (PreludeC-45Show-u--show_Show_Bool e-0)))) ((3) (let ((e-1 (vector-ref arg-0 1))) (PreludeC-45TypesC-45String-C-43C-43 "%globalhint " (PreludeC-45Show-u--show_Show_Bool e-1)))) ((4) "%extern") ((5) (let ((e-2 (vector-ref arg-0 1))) (PreludeC-45TypesC-45String-C-43C-43 "%foreign " (CoreC-45NameC-45Namespace-showSep " " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (TTImpC-45TTImp-u--show_Show_RawImp eta-0)) e-2))))) ((6) "%invertible") ((7) (let ((e-3 (vector-ref arg-0 1))) (cond ((equal? e-3 0) "total") ((equal? e-3 1) "covering") (else "partial")))) ((8) "%macro") (else (let ((e-4 (vector-ref arg-0 1))) (PreludeC-45TypesC-45String-C-43C-43 "%spec " (CoreC-45NameC-45Namespace-showSep " " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45Name-u--show_Show_Name eta-0)) e-4)))))))) +(define TTImpC-45TTImp-u--showPrec_Show_RawImp (lambda (arg-0 arg-1) (TTImpC-45TTImp-u--show_Show_RawImp arg-1))) +(define TTImpC-45TTImp-u--showPrec_Show_ImpTy (lambda (arg-0 arg-1) (TTImpC-45TTImp-u--show_Show_ImpTy arg-1))) +(define TTImpC-45TTImp-u--showPrec_Show_ImpDecl (lambda (arg-0 arg-1) (TTImpC-45TTImp-u--show_Show_ImpDecl arg-1))) +(define TTImpC-45TTImp-u--showPrec_Show_ImpClause (lambda (arg-0 arg-1) (TTImpC-45TTImp-u--show_Show_ImpClause arg-1))) +(define TTImpC-45TTImp-u--showPrec_Show_FnOpt (lambda (arg-0 arg-1) (TTImpC-45TTImp-u--show_Show_FnOpt arg-1))) +(define TTImpC-45TTImp-u--fromBuf_TTC_RawImp (lambda (arg-0 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-getTag arg-0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (cond ((equal? e-5 0) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_FC arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45TTC-u--fromBuf_TTC_Name arg-0 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (vector 0 e-6 e-7))))))))))) ((equal? e-5 1) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_FC arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45TTC-u--fromBuf_TTC_RigCount arg-0 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (CoreC-45TTC-u--fromBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-1456 arg-1459))) (lambda (arg-1461) (lambda (eta-0) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-1461 eta-0)))) arg-0 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (let ((act-28 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_Name arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1461 eta-0)))) arg-0 ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-28 1))) (let ((act-29 (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-0 ext-0))) (case (vector-ref act-29 0) ((0) (let ((e-2 (vector-ref act-29 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref act-29 1))) (let ((act-30 (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-0 ext-0))) (case (vector-ref act-30 0) ((0) (let ((e-2 (vector-ref act-30 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref act-30 1))) (vector 1 (vector 1 e-6 e-7 e-8 e-9 e-10 e-11))))))))))))))))))))))))))) ((equal? e-5 2) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_FC arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45TTC-u--fromBuf_TTC_RigCount arg-0 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (CoreC-45TTC-u--fromBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-1456 arg-1459))) (lambda (arg-1461) (lambda (eta-0) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-1461 eta-0)))) arg-0 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (let ((act-28 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_Name arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1461 eta-0)))) arg-0 ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-28 1))) (let ((act-29 (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-0 ext-0))) (case (vector-ref act-29 0) ((0) (let ((e-2 (vector-ref act-29 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref act-29 1))) (let ((act-30 (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-0 ext-0))) (case (vector-ref act-30 0) ((0) (let ((e-2 (vector-ref act-30 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref act-30 1))) (vector 1 (vector 2 e-6 e-7 e-8 e-9 e-10 e-11))))))))))))))))))))))))))) ((equal? e-5 3) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_FC arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45TTC-u--fromBuf_TTC_FC arg-0 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (CoreC-45TTC-u--fromBuf_TTC_RigCount arg-0 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (let ((act-28 (CoreC-45TTC-u--fromBuf_TTC_Name arg-0 ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-28 1))) (let ((act-29 (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-0 ext-0))) (case (vector-ref act-29 0) ((0) (let ((e-2 (vector-ref act-29 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref act-29 1))) (let ((act-30 (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-0 ext-0))) (case (vector-ref act-30 0) ((0) (let ((e-2 (vector-ref act-30 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref act-30 1))) (let ((act-31 (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-0 ext-0))) (case (vector-ref act-31 0) ((0) (let ((e-2 (vector-ref act-31 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref act-31 1))) (vector 1 (vector 3 e-6 e-7 e-8 e-9 e-10 e-11 e-12))))))))))))))))))))))))))))))) ((equal? e-5 4) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_FC arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-0 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-0 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (let ((act-28 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (TTImpC-45TTImp-u--toBuf_TTC_ImpClause arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (TTImpC-45TTImp-u--fromBuf_TTC_ImpClause arg-1461 eta-0)))) arg-0 ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-28 1))) (vector 1 (vector 4 e-6 e-7 e-8 e-9))))))))))))))))))) ((equal? e-5 5) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_FC arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (TTImpC-45TTImp-u--toBuf_TTC_ImpDecl arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (TTImpC-45TTImp-u--fromBuf_TTC_ImpDecl arg-1461 eta-0)))) arg-0 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-0 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (vector 1 (vector 5 e-6 e-7 e-8))))))))))))))) ((equal? e-5 6) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_FC arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (TTImpC-45TTImp-u--toBuf_TTC_IFieldUpdate arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (TTImpC-45TTImp-u--fromBuf_TTC_IFieldUpdate arg-1461 eta-0)))) arg-0 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-0 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (vector 1 (vector 7 e-6 e-7 e-8))))))))))))))) ((equal? e-5 7) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_FC arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-0 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-0 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (vector 1 (vector 8 e-6 e-7 e-8))))))))))))))) ((equal? e-5 8) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_FC arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-0 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (CoreC-45TTC-u--fromBuf_TTC_Name arg-0 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (let ((act-28 (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-0 ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-28 1))) (vector 1 (vector 10 e-6 e-7 e-8 e-9))))))))))))))))))) ((equal? e-5 9) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_FC arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-0 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-0 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (vector 1 (vector 11 e-6 e-7 e-8))))))))))))))) ((equal? e-5 10) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_FC arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-0 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (vector 12 e-6 e-7))))))))))) ((equal? e-5 11) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_FC arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45TTImp-u--fromBuf_TTC_AltType arg-0 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-1456 arg-1459))) (lambda (arg-1461) (lambda (eta-0) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-1461 eta-0)))) arg-0 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (vector 1 (vector 13 e-6 e-7 e-8))))))))))))))) ((equal? e-5 12) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_FC arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-0 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-0 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (vector 1 (vector 14 e-6 e-7 e-8))))))))))))))) ((equal? e-5 13) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_FC arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-0 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (vector 15 e-6 e-7))))))))))) ((equal? e-5 14) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_FC arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45TTImp-u--fromBuf_TTC_BindMode arg-0 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-0 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (vector 1 (vector 16 e-6 e-7 e-8))))))))))))))) ((equal? e-5 15) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_FC arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-0 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (vector 17 e-6 e-7))))))))))) ((equal? e-5 16) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_FC arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45TTC-u--fromBuf_TTC_FC arg-0 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (CoreC-45TTC-u--fromBuf_TTC_UseSide arg-0 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (let ((act-28 (CoreC-45TTC-u--fromBuf_TTC_Name arg-0 ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-28 1))) (let ((act-29 (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-0 ext-0))) (case (vector-ref act-29 0) ((0) (let ((e-2 (vector-ref act-29 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref act-29 1))) (vector 1 (vector 18 e-6 e-7 e-8 e-9 e-10))))))))))))))))))))))) ((equal? e-5 17) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_FC arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-0 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (vector 19 e-6 5 e-7))))))))))) ((equal? e-5 18) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_FC arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45TTC-u--fromBuf_TTC_LazyReason arg-0 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-0 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (vector 1 (vector 20 e-6 e-7 e-8))))))))))))))) ((equal? e-5 19) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_FC arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-0 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (vector 21 e-6 e-7))))))))))) ((equal? e-5 20) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_FC arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-0 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (vector 22 e-6 e-7))))))))))) ((equal? e-5 21) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_FC arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-0 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (vector 23 e-6 e-7))))))))))) ((equal? e-5 22) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_FC arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45TTC-u--fromBuf_TTC_Name arg-0 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (vector 24 e-6 e-7))))))))))) ((equal? e-5 23) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_FC arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (TTImpC-45TTImp-u--toBuf_TTC_ImpDecl arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (TTImpC-45TTImp-u--fromBuf_TTC_ImpDecl arg-1461 eta-0)))) arg-0 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (vector 25 e-6 e-7))))))))))) ((equal? e-5 24) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_FC arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-0 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (vector 26 e-6 e-7))))))))))) ((equal? e-5 25) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_FC arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-0 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (vector 27 e-6 e-7))))))))))) ((equal? e-5 26) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_FC arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45TTC-u--fromBuf_TTC_Constant arg-0 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (vector 28 e-6 e-7))))))))))) ((equal? e-5 27) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_FC arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (vector 29 e-6))))))) ((equal? e-5 28) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_FC arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-0 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (vector 30 e-6 e-7))))))))))) ((equal? e-5 29) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_FC arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Bool arg-0 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (vector 32 e-6 e-7))))))))))) ((equal? e-5 30) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_FC arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_Name arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1461 eta-0)))) arg-0 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-0 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (vector 1 (vector 33 e-6 e-7 e-8))))))))))))))) ((equal? e-5 31) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_FC arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-0 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-0 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (vector 1 (vector 9 e-6 e-7 e-8)))))))))))))))(else (LibrariesC-45UtilsC-45Binary-corrupt "RawImp" ext-0))))))))) +(define TTImpC-45TTImp-u--fromBuf_TTC_ImpTy (lambda (arg-0 ext-0) (let ((act-24 (CoreC-45TTC-u--fromBuf_TTC_FC arg-0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_FC arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45TTC-u--fromBuf_TTC_Name arg-0 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-0 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (vector 1 (vector e-5 e-6 e-7 e-8)))))))))))))))))))) +(define TTImpC-45TTImp-u--fromBuf_TTC_ImpRecord (lambda (arg-0 ext-0) (let ((act-24 (CoreC-45TTC-u--fromBuf_TTC_FC arg-0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_Name arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_Name arg-1457 arg-1460 eta-1)))) (lambda (arg-1461) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1461 eta-1)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1461) (CoreC-45TTC-u--toBuf_TTC_RigCount arg-1458 arg-1461))) (lambda (arg-1461) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_RigCount arg-1461 eta-2)))) (cons (lambda (arg-1458) (lambda (arg-1461) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1462) (lambda (arg-1463) (lambda (eta-3) (CoreC-45TTC-u--toBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-1464) (lambda (arg-1465) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-1464 arg-1465))) (lambda (arg-1464) (lambda (eta-4) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-1464 eta-4)))) arg-1462 arg-1463 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-1463) (lambda (arg-1464) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-1463 arg-1464))) (lambda (arg-1463) (lambda (eta-4) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-1463 eta-4)))) arg-1462 eta-3)))) (cons (lambda (arg-1462) (lambda (arg-1463) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-1462 arg-1463))) (lambda (arg-1462) (lambda (eta-3) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-1462 eta-3))))) arg-1458 arg-1461 eta-2)))) (lambda (arg-1461) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (CoreC-45TTC-u--toBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-1463) (lambda (arg-1464) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-1463 arg-1464))) (lambda (arg-1463) (lambda (eta-4) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-1463 eta-4)))) arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-1458) (lambda (arg-1463) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-1458 arg-1463))) (lambda (arg-1463) (lambda (eta-4) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-1463 eta-4)))) arg-1462 eta-3)))) (cons (lambda (arg-1458) (lambda (arg-1462) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-1458 arg-1462))) (lambda (arg-1462) (lambda (eta-3) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-1462 eta-3))))) arg-1461 eta-2))))) arg-1457 arg-1460 eta-1)))) (lambda (arg-1461) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (CoreC-45TTC-u--toBuf_TTC_RigCount arg-1457 arg-1460))) (lambda (arg-1462) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_RigCount arg-1462 eta-2)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (CoreC-45TTC-u--toBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-1463) (lambda (arg-1464) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-1463 arg-1464))) (lambda (arg-1463) (lambda (eta-4) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-1463 eta-4)))) arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-1458) (lambda (arg-1463) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-1458 arg-1463))) (lambda (arg-1463) (lambda (eta-4) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-1463 eta-4)))) arg-1462 eta-3)))) (cons (lambda (arg-1458) (lambda (arg-1462) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-1458 arg-1462))) (lambda (arg-1462) (lambda (eta-3) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-1462 eta-3))))) arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (CoreC-45TTC-u--toBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-1458) (lambda (arg-1463) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-1458 arg-1463))) (lambda (arg-1463) (lambda (eta-4) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-1463 eta-4)))) arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-1457) (lambda (arg-1460) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-1457 arg-1460))) (lambda (arg-1464) (lambda (eta-4) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-1464 eta-4)))) arg-1463 eta-3)))) (cons (lambda (arg-1457) (lambda (arg-1460) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-1457 arg-1460))) (lambda (arg-1463) (lambda (eta-3) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-1463 eta-3))))) arg-1462 eta-2))))) arg-1461 eta-1))))) arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_Name arg-1456 arg-1459 eta-1)))) (lambda (arg-1462) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1462 eta-1)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (CoreC-45TTC-u--toBuf_TTC_RigCount arg-1457 arg-1460))) (lambda (arg-1462) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_RigCount arg-1462 eta-2)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (CoreC-45TTC-u--toBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-1463) (lambda (arg-1464) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-1463 arg-1464))) (lambda (arg-1463) (lambda (eta-4) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-1463 eta-4)))) arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-1458) (lambda (arg-1463) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-1458 arg-1463))) (lambda (arg-1463) (lambda (eta-4) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-1463 eta-4)))) arg-1462 eta-3)))) (cons (lambda (arg-1458) (lambda (arg-1462) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-1458 arg-1462))) (lambda (arg-1462) (lambda (eta-3) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-1462 eta-3))))) arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (CoreC-45TTC-u--toBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-1458) (lambda (arg-1463) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-1458 arg-1463))) (lambda (arg-1463) (lambda (eta-4) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-1463 eta-4)))) arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-1457) (lambda (arg-1460) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-1457 arg-1460))) (lambda (arg-1464) (lambda (eta-4) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-1464 eta-4)))) arg-1463 eta-3)))) (cons (lambda (arg-1457) (lambda (arg-1460) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-1457 arg-1460))) (lambda (arg-1463) (lambda (eta-3) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-1463 eta-3))))) arg-1462 eta-2))))) arg-1456 arg-1459 eta-1)))) (lambda (arg-1462) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (CoreC-45TTC-u--toBuf_TTC_RigCount arg-1456 arg-1459))) (lambda (arg-1463) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_RigCount arg-1463 eta-2)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (CoreC-45TTC-u--toBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-1458) (lambda (arg-1463) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-1458 arg-1463))) (lambda (arg-1463) (lambda (eta-4) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-1463 eta-4)))) arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-1457) (lambda (arg-1460) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-1457 arg-1460))) (lambda (arg-1464) (lambda (eta-4) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-1464 eta-4)))) arg-1463 eta-3)))) (cons (lambda (arg-1457) (lambda (arg-1460) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-1457 arg-1460))) (lambda (arg-1463) (lambda (eta-3) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-1463 eta-3))))) arg-1456 arg-1459 eta-2)))) (lambda (arg-1463) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-3) (CoreC-45TTC-u--toBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-1457) (lambda (arg-1460) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-1457 arg-1460))) (lambda (arg-1464) (lambda (eta-4) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-1464 eta-4)))) arg-1456 arg-1459 eta-3)))) (lambda (arg-1464) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-1456 arg-1459))) (lambda (arg-1465) (lambda (eta-4) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-1465 eta-4)))) arg-1464 eta-3)))) (cons (lambda (arg-1456) (lambda (arg-1459) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-1456 arg-1459))) (lambda (arg-1464) (lambda (eta-3) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-1464 eta-3))))) arg-1463 eta-2))))) arg-1462 eta-1))))) arg-1461 eta-0)))) arg-0 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (CoreC-45TTC-u--fromBuf_TTC_Name arg-0 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (let ((act-28 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (TTImpC-45TTImp-u--toBuf_TTC_IField arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (TTImpC-45TTImp-u--fromBuf_TTC_IField arg-1461 eta-0)))) arg-0 ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-28 1))) (vector 1 (vector e-5 e-6 e-7 e-8 e-9)))))))))))))))))))))))) +(define TTImpC-45TTImp-u--fromBuf_TTC_ImpDecl (lambda (arg-0 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-getTag arg-0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (cond ((equal? e-5 0) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_FC arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45TTC-u--fromBuf_TTC_RigCount arg-0 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (CoreC-45TTC-u--fromBuf_TTC_Visibility arg-0 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (let ((act-28 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (TTImpC-45TTImp-u--toBuf_TTC_FnOpt arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (TTImpC-45TTImp-u--fromBuf_TTC_FnOpt arg-1461 eta-0)))) arg-0 ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-28 1))) (let ((act-29 (TTImpC-45TTImp-u--fromBuf_TTC_ImpTy arg-0 ext-0))) (case (vector-ref act-29 0) ((0) (let ((e-2 (vector-ref act-29 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref act-29 1))) (vector 1 (vector 0 e-6 e-7 e-8 e-9 e-10))))))))))))))))))))))) ((equal? e-5 1) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_FC arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45TTC-u--fromBuf_TTC_Visibility arg-0 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (TTImpC-45TTImp-u--fromBuf_TTC_ImpData arg-0 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (vector 1 (vector 1 e-6 e-7 e-8))))))))))))))) ((equal? e-5 2) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_FC arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45TTC-u--fromBuf_TTC_Name arg-0 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (TTImpC-45TTImp-u--toBuf_TTC_ImpClause arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (TTImpC-45TTImp-u--fromBuf_TTC_ImpClause arg-1461 eta-0)))) arg-0 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (vector 1 (vector 2 e-6 e-7 e-8))))))))))))))) ((equal? e-5 3) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_FC arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_Name arg-1457 arg-1460 eta-1)))) (lambda (arg-1461) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1461 eta-1)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1461) (CoreC-45TTC-u--toBuf_TTC_RigCount arg-1458 arg-1461))) (lambda (arg-1461) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_RigCount arg-1461 eta-2)))) (cons (lambda (arg-1458) (lambda (arg-1461) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1462) (lambda (arg-1463) (lambda (eta-3) (CoreC-45TTC-u--toBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-1464) (lambda (arg-1465) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-1464 arg-1465))) (lambda (arg-1464) (lambda (eta-4) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-1464 eta-4)))) arg-1462 arg-1463 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-1463) (lambda (arg-1464) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-1463 arg-1464))) (lambda (arg-1463) (lambda (eta-4) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-1463 eta-4)))) arg-1462 eta-3)))) (cons (lambda (arg-1462) (lambda (arg-1463) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-1462 arg-1463))) (lambda (arg-1462) (lambda (eta-3) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-1462 eta-3))))) arg-1458 arg-1461 eta-2)))) (lambda (arg-1461) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (CoreC-45TTC-u--toBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-1463) (lambda (arg-1464) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-1463 arg-1464))) (lambda (arg-1463) (lambda (eta-4) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-1463 eta-4)))) arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-1458) (lambda (arg-1463) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-1458 arg-1463))) (lambda (arg-1463) (lambda (eta-4) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-1463 eta-4)))) arg-1462 eta-3)))) (cons (lambda (arg-1458) (lambda (arg-1462) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-1458 arg-1462))) (lambda (arg-1462) (lambda (eta-3) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-1462 eta-3))))) arg-1461 eta-2))))) arg-1457 arg-1460 eta-1)))) (lambda (arg-1461) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (CoreC-45TTC-u--toBuf_TTC_RigCount arg-1457 arg-1460))) (lambda (arg-1462) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_RigCount arg-1462 eta-2)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (CoreC-45TTC-u--toBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-1463) (lambda (arg-1464) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-1463 arg-1464))) (lambda (arg-1463) (lambda (eta-4) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-1463 eta-4)))) arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-1458) (lambda (arg-1463) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-1458 arg-1463))) (lambda (arg-1463) (lambda (eta-4) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-1463 eta-4)))) arg-1462 eta-3)))) (cons (lambda (arg-1458) (lambda (arg-1462) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-1458 arg-1462))) (lambda (arg-1462) (lambda (eta-3) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-1462 eta-3))))) arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (CoreC-45TTC-u--toBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-1458) (lambda (arg-1463) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-1458 arg-1463))) (lambda (arg-1463) (lambda (eta-4) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-1463 eta-4)))) arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-1457) (lambda (arg-1460) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-1457 arg-1460))) (lambda (arg-1464) (lambda (eta-4) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-1464 eta-4)))) arg-1463 eta-3)))) (cons (lambda (arg-1457) (lambda (arg-1460) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-1457 arg-1460))) (lambda (arg-1463) (lambda (eta-3) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-1463 eta-3))))) arg-1462 eta-2))))) arg-1461 eta-1))))) arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_Name arg-1456 arg-1459 eta-1)))) (lambda (arg-1462) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1462 eta-1)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (CoreC-45TTC-u--toBuf_TTC_RigCount arg-1457 arg-1460))) (lambda (arg-1462) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_RigCount arg-1462 eta-2)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1462) (lambda (eta-3) (CoreC-45TTC-u--toBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-1463) (lambda (arg-1464) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-1463 arg-1464))) (lambda (arg-1463) (lambda (eta-4) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-1463 eta-4)))) arg-1458 arg-1462 eta-3)))) (lambda (arg-1462) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-1458) (lambda (arg-1463) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-1458 arg-1463))) (lambda (arg-1463) (lambda (eta-4) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-1463 eta-4)))) arg-1462 eta-3)))) (cons (lambda (arg-1458) (lambda (arg-1462) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-1458 arg-1462))) (lambda (arg-1462) (lambda (eta-3) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-1462 eta-3))))) arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (CoreC-45TTC-u--toBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-1458) (lambda (arg-1463) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-1458 arg-1463))) (lambda (arg-1463) (lambda (eta-4) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-1463 eta-4)))) arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-1457) (lambda (arg-1460) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-1457 arg-1460))) (lambda (arg-1464) (lambda (eta-4) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-1464 eta-4)))) arg-1463 eta-3)))) (cons (lambda (arg-1457) (lambda (arg-1460) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-1457 arg-1460))) (lambda (arg-1463) (lambda (eta-3) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-1463 eta-3))))) arg-1462 eta-2))))) arg-1456 arg-1459 eta-1)))) (lambda (arg-1462) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (CoreC-45TTC-u--toBuf_TTC_RigCount arg-1456 arg-1459))) (lambda (arg-1463) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_RigCount arg-1463 eta-2)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-3) (CoreC-45TTC-u--toBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-1458) (lambda (arg-1463) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-1458 arg-1463))) (lambda (arg-1463) (lambda (eta-4) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-1463 eta-4)))) arg-1457 arg-1460 eta-3)))) (lambda (arg-1463) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-1457) (lambda (arg-1460) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-1457 arg-1460))) (lambda (arg-1464) (lambda (eta-4) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-1464 eta-4)))) arg-1463 eta-3)))) (cons (lambda (arg-1457) (lambda (arg-1460) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-1457 arg-1460))) (lambda (arg-1463) (lambda (eta-3) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-1463 eta-3))))) arg-1456 arg-1459 eta-2)))) (lambda (arg-1463) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-3) (CoreC-45TTC-u--toBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-1457) (lambda (arg-1460) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-1457 arg-1460))) (lambda (arg-1464) (lambda (eta-4) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-1464 eta-4)))) arg-1456 arg-1459 eta-3)))) (lambda (arg-1464) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-1456 arg-1459))) (lambda (arg-1465) (lambda (eta-4) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-1465 eta-4)))) arg-1464 eta-3)))) (cons (lambda (arg-1456) (lambda (arg-1459) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-1456 arg-1459))) (lambda (arg-1464) (lambda (eta-3) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-1464 eta-3))))) arg-1463 eta-2))))) arg-1462 eta-1))))) arg-1461 eta-0)))) arg-0 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (TTImpC-45TTImp-u--toBuf_TTC_ImpDecl arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (TTImpC-45TTImp-u--fromBuf_TTC_ImpDecl arg-1461 eta-0)))) arg-0 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (vector 1 (vector 3 e-6 e-7 e-8))))))))))))))) ((equal? e-5 4) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_FC arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-1456 arg-1459))) (lambda (arg-1461) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-1461 eta-0)))) arg-0 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (CoreC-45TTC-u--fromBuf_TTC_Visibility arg-0 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (let ((act-28 (TTImpC-45TTImp-u--fromBuf_TTC_ImpRecord arg-0 ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-28 1))) (vector 1 (vector 4 e-6 e-7 e-8 e-9))))))))))))))))))) ((equal? e-5 5) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_FC arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45TTC-u--fromBuf_TTC_Namespace arg-0 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (TTImpC-45TTImp-u--toBuf_TTC_ImpDecl arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (TTImpC-45TTImp-u--fromBuf_TTC_ImpDecl arg-1461 eta-0)))) arg-0 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (vector 1 (vector 5 e-6 e-7 e-8))))))))))))))) ((equal? e-5 6) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_FC arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45TTC-u--fromBuf_TTC_Name arg-0 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-0 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (let ((act-28 (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-0 ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-28 1))) (vector 1 (vector 6 e-6 e-7 e-8 e-9))))))))))))))))))) ((equal? e-5 7) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_FC arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-0 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (vector 7 e-6 e-7))))))))))) ((equal? e-5 8) (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1458) (lambda (arg-1461) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-1458 arg-1461))) (lambda (arg-1461) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-1461 eta-2)))) arg-1457 arg-1460 eta-1)))) (lambda (arg-1461) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1457) (lambda (arg-1460) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-1457 arg-1460))) (lambda (arg-1462) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-1462 eta-2)))) arg-1461 eta-1)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-1457 arg-1460 eta-1)))) (lambda (arg-1461) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-1461 eta-1))))) arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1457) (lambda (arg-1460) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-1457 arg-1460))) (lambda (arg-1462) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-1462 eta-2)))) arg-1456 arg-1459 eta-1)))) (lambda (arg-1462) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-1456 arg-1459))) (lambda (arg-1463) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-1463 eta-2)))) arg-1462 eta-1)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-1456 arg-1459 eta-1)))) (lambda (arg-1462) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-1462 eta-1))))) arg-1461 eta-0)))) arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (vector 9 e-6))))))) ((equal? e-5 9) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_FC arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45TTImp-u--fromBuf_TTC_BuiltinType arg-0 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (CoreC-45TTC-u--fromBuf_TTC_Name arg-0 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (vector 1 (vector 10 e-6 e-7 e-8)))))))))))))))(else (LibrariesC-45UtilsC-45Binary-corrupt "ImpDecl" ext-0))))))))) +(define TTImpC-45TTImp-u--fromBuf_TTC_ImpData (lambda (arg-0 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-getTag arg-0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (cond ((equal? e-5 0) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_FC arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45TTC-u--fromBuf_TTC_Name arg-0 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-0 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (let ((act-28 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (TTImpC-45TTImp-u--toBuf_TTC_DataOpt arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (TTImpC-45TTImp-u--fromBuf_TTC_DataOpt arg-1461 eta-0)))) arg-0 ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-28 1))) (let ((act-29 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (TTImpC-45TTImp-u--toBuf_TTC_ImpTy arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (TTImpC-45TTImp-u--fromBuf_TTC_ImpTy arg-1461 eta-0)))) arg-0 ext-0))) (case (vector-ref act-29 0) ((0) (let ((e-2 (vector-ref act-29 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref act-29 1))) (vector 1 (vector 0 e-6 e-7 e-8 e-9 e-10))))))))))))))))))))))) ((equal? e-5 1) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_FC arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45TTC-u--fromBuf_TTC_Name arg-0 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-0 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (vector 1 (vector 1 e-6 e-7 e-8)))))))))))))))(else (LibrariesC-45UtilsC-45Binary-corrupt "ImpData" ext-0))))))))) +(define TTImpC-45TTImp-u--fromBuf_TTC_ImpClause (lambda (arg-0 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-getTag arg-0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (cond ((equal? e-5 0) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_FC arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-0 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-0 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (vector 1 (vector 0 e-6 e-7 e-8))))))))))))))) ((equal? e-5 1) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_FC arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-0 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (vector 2 e-6 e-7))))))))))) ((equal? e-5 2) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_FC arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-0 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-0 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (let ((act-28 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_Name arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1461 eta-0)))) arg-0 ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-28 1))) (let ((act-29 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (TTImpC-45TTImp-u--toBuf_TTC_ImpClause arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (TTImpC-45TTImp-u--fromBuf_TTC_ImpClause arg-1461 eta-0)))) arg-0 ext-0))) (case (vector-ref act-29 0) ((0) (let ((e-2 (vector-ref act-29 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref act-29 1))) (vector 1 (vector 1 e-6 e-7 e-8 e-9 '() e-10)))))))))))))))))))))))(else (LibrariesC-45UtilsC-45Binary-corrupt "ImpClause" ext-0))))))))) +(define TTImpC-45TTImp-u--fromBuf_TTC_IFieldUpdate (lambda (arg-0 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-getTag arg-0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (cond ((equal? e-5 0) (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-1456 arg-1459))) (lambda (arg-1461) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-1461 eta-0)))) arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-0 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (vector 0 e-6 e-7))))))))))) ((equal? e-5 1) (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-1456 arg-1459))) (lambda (arg-1461) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-1461 eta-0)))) arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-0 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (vector 1 e-6 e-7)))))))))))(else (LibrariesC-45UtilsC-45Binary-corrupt "IFieldUpdate" ext-0))))))))) +(define TTImpC-45TTImp-u--fromBuf_TTC_IField (lambda (arg-0 ext-0) (let ((act-24 (CoreC-45TTC-u--fromBuf_TTC_FC arg-0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_RigCount arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45TTC-u--fromBuf_TTC_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-1456 arg-1459))) (lambda (arg-1461) (lambda (eta-0) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-1461 eta-0)))) arg-0 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (CoreC-45TTC-u--fromBuf_TTC_Name arg-0 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (let ((act-28 (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-0 ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-28 1))) (vector 1 (vector e-5 e-6 e-7 e-8 e-9)))))))))))))))))))))))) +(define TTImpC-45TTImp-u--fromBuf_TTC_FnOpt (lambda (arg-0 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-getTag arg-0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (cond ((equal? e-5 0) (vector 1 (vector 0 ))) ((equal? e-5 1) (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Bool arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (vector 2 e-6))))))) ((equal? e-5 2) (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Bool arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (vector 3 e-6))))))) ((equal? e-5 3) (vector 1 (vector 4 ))) ((equal? e-5 4) (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-1456 arg-1459))) (lambda (arg-1461) (lambda (eta-0) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-1461 eta-0)))) arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (vector 5 e-6))))))) ((equal? e-5 5) (vector 1 (vector 6 ))) ((equal? e-5 6) (vector 1 (vector 7 0))) ((equal? e-5 7) (vector 1 (vector 7 1))) ((equal? e-5 8) (vector 1 (vector 7 2))) ((equal? e-5 9) (vector 1 (vector 8 ))) ((equal? e-5 10) (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_Name arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1461 eta-0)))) arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (vector 9 e-6))))))) ((equal? e-5 11) (vector 1 (vector 1 )))(else (LibrariesC-45UtilsC-45Binary-corrupt "FnOpt" ext-0))))))))) +(define TTImpC-45TTImp-u--fromBuf_TTC_DataOpt (lambda (arg-0 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-getTag arg-0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (cond ((equal? e-5 0) (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_Name arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1461 eta-0)))) arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (vector 0 e-6))))))) ((equal? e-5 1) (vector 1 (vector 1 ))) ((equal? e-5 2) (vector 1 (vector 2 ))) ((equal? e-5 3) (vector 1 (vector 3 ))) ((equal? e-5 4) (vector 1 (vector 4 )))(else (LibrariesC-45UtilsC-45Binary-corrupt "DataOpt" ext-0))))))))) +(define TTImpC-45TTImp-u--fromBuf_TTC_BuiltinType (lambda (arg-0 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-getTag arg-0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (cond ((equal? e-5 0) (vector 1 0)) ((equal? e-5 1) (vector 1 1)) ((equal? e-5 2) (vector 1 2))(else (LibrariesC-45UtilsC-45Binary-corrupt "BuiltinType" ext-0))))))))) +(define TTImpC-45TTImp-u--fromBuf_TTC_BindMode (lambda (arg-0 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-getTag arg-0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (cond ((equal? e-5 0) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_RigCount arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (vector 0 e-6))))))) ((equal? e-5 1) (vector 1 (vector 1 ))) ((equal? e-5 2) (vector 1 (vector 2 )))(else (LibrariesC-45UtilsC-45Binary-corrupt "BindMode" ext-0))))))))) +(define TTImpC-45TTImp-u--fromBuf_TTC_AltType (lambda (arg-0 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-getTag arg-0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (cond ((equal? e-5 0) (vector 1 (vector 0 ))) ((equal? e-5 1) (vector 1 (vector 1 ))) ((equal? e-5 2) (let ((act-25 (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (vector 2 e-6)))))))(else (LibrariesC-45UtilsC-45Binary-corrupt "AltType" ext-0))))))))) +(define TTImpC-45TTImp-u--C-61C-61_Eq_WithFlag (lambda (arg-0 arg-1) (cond (else (cond (else 1)))))) +(define TTImpC-45TTImp-u--C-61C-61_Eq_DataOpt (lambda (arg-0 arg-1) (case (vector-ref arg-0 0) ((0) (let ((e-0 (vector-ref arg-0 1))) (case (vector-ref arg-1 0) ((0) (let ((e-1 (vector-ref arg-1 1))) (PreludeC-45Types-u--C-61C-61_Eq_C-40ListC-32C-36aC-41 (cons (lambda (arg-2) (lambda (arg-3) (CoreC-45Name-u--C-61C-61_Eq_Name arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (CoreC-45Name-u--C-47C-61_Eq_Name arg-4 arg-5)))) e-0 e-1)))(else 0)))) ((1) (case (vector-ref arg-1 0) ((1) 1)(else 0))) ((2) (case (vector-ref arg-1 0) ((2) 1)(else 0))) ((3) (case (vector-ref arg-1 0) ((3) 1)(else 0))) ((4) (case (vector-ref arg-1 0) ((4) 1)(else 0)))(else 0)))) +(define TTImpC-45TTImp-u--C-47C-61_Eq_WithFlag (lambda (arg-0 arg-1) (let ((sc0 (TTImpC-45TTImp-u--C-61C-61_Eq_WithFlag arg-0 arg-1))) (cond ((equal? sc0 1) 0) (else 1))))) +(define TTImpC-45TTImp-u--C-47C-61_Eq_DataOpt (lambda (arg-0 arg-1) (let ((sc0 (TTImpC-45TTImp-u--C-61C-61_Eq_DataOpt arg-0 arg-1))) (cond ((equal? sc0 1) 0) (else 1))))) +(define TTImpC-45TTImp-mapAltType (lambda (arg-0 arg-1) (case (vector-ref arg-1 0) ((2) (let ((e-0 (vector-ref arg-1 1))) (vector 2 (arg-0 e-0))))(else arg-1)))) +(define TTImpC-45TTImp-logRaw (lambda (arg-0 arg-1 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (CoreC-45ContextC-45Log-unverifiedLogging arg-0 arg-1 arg-3 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (cond ((equal? e-5 1) (cond ((equal? arg-1 "") (let ((act-25 ((PreludeC-45IO-putStrLn (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-25 (arg-811 eta-0))) ((arg-812 act-25) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-51 (arg-814 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) (PreludeC-45TypesC-45String-C-43C-43 "LOG " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Nat arg-3) (PreludeC-45TypesC-45String-C-43C-43 ": " (PreludeC-45TypesC-45String-C-43C-43 (arg-4) (PreludeC-45TypesC-45String-C-43C-43 ": " (TTImpC-45TTImp-u--show_Show_RawImp arg-5))))))) ext-0))) (vector 1 act-25)))(else (let ((act-25 ((PreludeC-45IO-putStrLn (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-25 (arg-811 eta-0))) ((arg-812 act-25) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-51 (arg-814 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) (PreludeC-45TypesC-45String-C-43C-43 "LOG " (PreludeC-45TypesC-45String-C-43C-43 arg-1 (PreludeC-45TypesC-45String-C-43C-43 ":" (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Nat arg-3) (PreludeC-45TypesC-45String-C-43C-43 ": " (PreludeC-45TypesC-45String-C-43C-43 (arg-4) (PreludeC-45TypesC-45String-C-43C-43 ": " (TTImpC-45TTImp-u--show_Show_RawImp arg-5))))))))) ext-0))) (vector 1 act-25))))) (else (vector 1 0))))))))) +(define TTImpC-45TTImp-lhsInCurrentNS (lambda (arg-1 arg-2 arg-3) (case (vector-ref arg-3 0) ((8) (let ((e-0 (vector-ref arg-3 1))) (let ((e-1 (vector-ref arg-3 2))) (let ((e-2 (vector-ref arg-3 3))) (lambda (eta-0) (let ((act-24 ((TTImpC-45TTImp-lhsInCurrentNS arg-1 arg-2 e-1) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 8 e-0 e-5 e-2))))))))))) ((9) (let ((e-3 (vector-ref arg-3 1))) (let ((e-4 (vector-ref arg-3 2))) (let ((e-5 (vector-ref arg-3 3))) (lambda (eta-0) (let ((act-24 ((TTImpC-45TTImp-lhsInCurrentNS arg-1 arg-2 e-4) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-24 1))) (vector 1 (vector 9 e-3 e-6 e-5))))))))))) ((10) (let ((e-6 (vector-ref arg-3 1))) (let ((e-7 (vector-ref arg-3 2))) (let ((e-8 (vector-ref arg-3 3))) (let ((e-9 (vector-ref arg-3 4))) (lambda (eta-0) (let ((act-24 ((TTImpC-45TTImp-lhsInCurrentNS arg-1 arg-2 e-7) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 10 e-6 e-5 e-8 e-9)))))))))))) ((11) (let ((e-10 (vector-ref arg-3 1))) (let ((e-11 (vector-ref arg-3 2))) (let ((e-12 (vector-ref arg-3 3))) (lambda (eta-0) (let ((act-24 ((TTImpC-45TTImp-lhsInCurrentNS arg-1 arg-2 e-11) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 11 e-10 e-5 e-12))))))))))) ((0) (let ((e-13 (vector-ref arg-3 1))) (let ((e-14 (vector-ref arg-3 2))) (lambda (clam-0) (case (vector-ref e-14 0) ((0) (vector 1 arg-3))(else (let ((sc1 (DataC-45List-lookup (cons (lambda (arg-4) (lambda (arg-5) (CoreC-45Name-u--C-61C-61_Eq_Name arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (CoreC-45Name-u--C-47C-61_Eq_Name arg-4 arg-5)))) e-14 arg-2))) (if (null? sc1) (let ((act-24 (CoreC-45Context-inCurrentNS arg-1 e-14 clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 0 e-13 e-5)))))) (vector 1 (vector 0 e-13 e-14))))))))))(else (lambda (eta-0) (vector 1 arg-3)))))) +(define TTImpC-45TTImp-isTotalityReq (lambda (arg-0) (case (vector-ref arg-0 0) ((7) 1)(else 0)))) +(define TTImpC-45TTImp-isIPrimVal (lambda (arg-0) (case (vector-ref arg-0 0) ((28) (let ((e-1 (vector-ref arg-0 2))) (box e-1)))(else '())))) +(define TTImpC-45TTImp-implicitsAs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((u--implicits (TTImpC-45TTImp-findIBinds arg-4))) (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-log arg-0 "declare.def.lhs.implicits" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))))))))))))))))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Found implicits: " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_String u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_String u--d u--x)))) u--implicits))) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (TTImpC-45TTImp-n--8201-8688-u--setAs arg-4 arg-3 arg-2 arg-1 arg-0 (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (box eta-1)) (PreludeC-45TypesC-45List-C-43C-43 arg-3 (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (vector 1 eta-1)) u--implicits))) '() arg-4 eta-0)))))))) +(define TTImpC-45TTImp-getFn (lambda (arg-0) (case (vector-ref arg-0 0) ((8) (let ((e-1 (vector-ref arg-0 2))) (TTImpC-45TTImp-getFn e-1))) ((11) (let ((e-4 (vector-ref arg-0 2))) (TTImpC-45TTImp-getFn e-4))) ((10) (let ((e-7 (vector-ref arg-0 2))) (TTImpC-45TTImp-getFn e-7))) ((9) (let ((e-11 (vector-ref arg-0 2))) (TTImpC-45TTImp-getFn e-11))) ((18) (let ((e-17 (vector-ref arg-0 5))) (TTImpC-45TTImp-getFn e-17))) ((19) (let ((e-20 (vector-ref arg-0 3))) (TTImpC-45TTImp-getFn e-20)))(else arg-0)))) +(define TTImpC-45TTImp-getFC (lambda (arg-0) (case (vector-ref arg-0 0) ((0) (let ((e-0 (vector-ref arg-0 1))) e-0)) ((1) (let ((e-2 (vector-ref arg-0 1))) e-2)) ((2) (let ((e-8 (vector-ref arg-0 1))) e-8)) ((3) (let ((e-14 (vector-ref arg-0 1))) e-14)) ((4) (let ((e-21 (vector-ref arg-0 1))) e-21)) ((5) (let ((e-25 (vector-ref arg-0 1))) e-25)) ((6) (let ((e-28 (vector-ref arg-0 1))) e-28)) ((7) (let ((e-33 (vector-ref arg-0 1))) e-33)) ((8) (let ((e-36 (vector-ref arg-0 1))) e-36)) ((10) (let ((e-39 (vector-ref arg-0 1))) e-39)) ((9) (let ((e-43 (vector-ref arg-0 1))) e-43)) ((11) (let ((e-46 (vector-ref arg-0 1))) e-46)) ((12) (let ((e-49 (vector-ref arg-0 1))) e-49)) ((13) (let ((e-51 (vector-ref arg-0 1))) e-51)) ((14) (let ((e-54 (vector-ref arg-0 1))) e-54)) ((15) (let ((e-57 (vector-ref arg-0 1))) e-57)) ((28) (let ((e-59 (vector-ref arg-0 1))) e-59)) ((30) (let ((e-61 (vector-ref arg-0 1))) e-61)) ((31) (let ((e-63 (vector-ref arg-0 1))) e-63)) ((29) (let ((e-66 (vector-ref arg-0 1))) e-66)) ((17) (let ((e-67 (vector-ref arg-0 1))) e-67)) ((16) (let ((e-69 (vector-ref arg-0 1))) e-69)) ((19) (let ((e-72 (vector-ref arg-0 1))) e-72)) ((20) (let ((e-75 (vector-ref arg-0 1))) e-75)) ((21) (let ((e-78 (vector-ref arg-0 1))) e-78)) ((22) (let ((e-80 (vector-ref arg-0 1))) e-80)) ((23) (let ((e-82 (vector-ref arg-0 1))) e-82)) ((24) (let ((e-84 (vector-ref arg-0 1))) e-84)) ((25) (let ((e-86 (vector-ref arg-0 1))) e-86)) ((26) (let ((e-88 (vector-ref arg-0 1))) e-88)) ((27) (let ((e-90 (vector-ref arg-0 1))) e-90)) ((18) (let ((e-92 (vector-ref arg-0 1))) e-92)) ((32) (let ((e-97 (vector-ref arg-0 1))) e-97)) (else (let ((e-99 (vector-ref arg-0 1))) e-99))))) +(define TTImpC-45TTImpC-45ImpDecl-getFC (lambda (arg-0) (case (vector-ref arg-0 0) ((0) (let ((e-0 (vector-ref arg-0 1))) e-0)) ((1) (let ((e-5 (vector-ref arg-0 1))) e-5)) ((2) (let ((e-8 (vector-ref arg-0 1))) e-8)) ((3) (let ((e-11 (vector-ref arg-0 1))) e-11)) ((4) (let ((e-14 (vector-ref arg-0 1))) e-14)) ((5) (let ((e-18 (vector-ref arg-0 1))) e-18)) ((6) (let ((e-21 (vector-ref arg-0 1))) e-21)) ((7) (let ((e-25 (vector-ref arg-0 1))) e-25)) ((8) (vector 2 )) ((9) (vector 2 )) (else (let ((e-30 (vector-ref arg-0 1))) e-30))))) +(define TTImpC-45TTImp-gapply (lambda (arg-0 arg-1) (if (null? arg-1) arg-0 (let ((e-2 (car arg-1))) (let ((e-3 (cdr arg-1))) (TTImpC-45TTImp-gapply (PreludeC-45Basics-uncurry (lambda (eta-0) (lambda (eta-1) (TTImpC-45TTImp-n--9675-10064-u--app e-2 e-3 arg-0 arg-0 eta-0 eta-1))) e-2) e-3)))))) +(define TTImpC-45TTImp-findImplicits (lambda (arg-0) (case (vector-ref arg-0 0) ((1) (let ((e-3 (vector-ref arg-0 4))) (let ((e-4 (vector-ref arg-0 5))) (let ((e-5 (vector-ref arg-0 6))) (if (null? e-3) (PreludeC-45TypesC-45List-C-43C-43 (TTImpC-45TTImp-findImplicits e-4) (TTImpC-45TTImp-findImplicits e-5)) (let ((e-52 (unbox e-3))) (case (vector-ref e-52 0) ((1) (let ((e-53 (vector-ref e-52 1))) (cons e-53 (PreludeC-45TypesC-45List-C-43C-43 (TTImpC-45TTImp-findImplicits e-4) (TTImpC-45TTImp-findImplicits e-5)))))(else (PreludeC-45TypesC-45List-C-43C-43 (TTImpC-45TTImp-findImplicits e-4) (TTImpC-45TTImp-findImplicits e-5)))))))))) ((2) (let ((e-10 (vector-ref arg-0 5))) (let ((e-11 (vector-ref arg-0 6))) (PreludeC-45TypesC-45List-C-43C-43 (TTImpC-45TTImp-findImplicits e-10) (TTImpC-45TTImp-findImplicits e-11))))) ((8) (let ((e-13 (vector-ref arg-0 2))) (let ((e-14 (vector-ref arg-0 3))) (PreludeC-45TypesC-45List-C-43C-43 (TTImpC-45TTImp-findImplicits e-13) (TTImpC-45TTImp-findImplicits e-14))))) ((9) (let ((e-16 (vector-ref arg-0 2))) (let ((e-17 (vector-ref arg-0 3))) (PreludeC-45TypesC-45List-C-43C-43 (TTImpC-45TTImp-findImplicits e-16) (TTImpC-45TTImp-findImplicits e-17))))) ((10) (let ((e-19 (vector-ref arg-0 2))) (let ((e-21 (vector-ref arg-0 4))) (PreludeC-45TypesC-45List-C-43C-43 (TTImpC-45TTImp-findImplicits e-19) (TTImpC-45TTImp-findImplicits e-21))))) ((11) (let ((e-23 (vector-ref arg-0 2))) (let ((e-24 (vector-ref arg-0 3))) (PreludeC-45TypesC-45List-C-43C-43 (TTImpC-45TTImp-findImplicits e-23) (TTImpC-45TTImp-findImplicits e-24))))) ((18) (let ((e-29 (vector-ref arg-0 5))) (TTImpC-45TTImp-findImplicits e-29))) ((19) (let ((e-32 (vector-ref arg-0 3))) (TTImpC-45TTImp-findImplicits e-32))) ((13) (let ((e-35 (vector-ref arg-0 3))) (PreludeC-45Interfaces-concatMap (cons (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-2 arg-3))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) (lambda (eta-0) (TTImpC-45TTImp-findImplicits eta-0)) e-35))) ((20) (let ((e-38 (vector-ref arg-0 3))) (TTImpC-45TTImp-findImplicits e-38))) ((21) (let ((e-40 (vector-ref arg-0 2))) (TTImpC-45TTImp-findImplicits e-40))) ((22) (let ((e-42 (vector-ref arg-0 2))) (TTImpC-45TTImp-findImplicits e-42))) ((23) (let ((e-44 (vector-ref arg-0 2))) (TTImpC-45TTImp-findImplicits e-44))) ((26) (let ((e-46 (vector-ref arg-0 2))) (TTImpC-45TTImp-findImplicits e-46))) ((27) (let ((e-48 (vector-ref arg-0 2))) (TTImpC-45TTImp-findImplicits e-48))) ((17) (let ((e-50 (vector-ref arg-0 2))) (cons e-50 '())))(else '())))) +(define TTImpC-45TTImp-findIBinds (lambda (arg-0) (case (vector-ref arg-0 0) ((1) (let ((e-4 (vector-ref arg-0 5))) (let ((e-5 (vector-ref arg-0 6))) (PreludeC-45TypesC-45List-C-43C-43 (TTImpC-45TTImp-findIBinds e-4) (TTImpC-45TTImp-findIBinds e-5))))) ((2) (let ((e-10 (vector-ref arg-0 5))) (let ((e-11 (vector-ref arg-0 6))) (PreludeC-45TypesC-45List-C-43C-43 (TTImpC-45TTImp-findIBinds e-10) (TTImpC-45TTImp-findIBinds e-11))))) ((8) (let ((e-13 (vector-ref arg-0 2))) (let ((e-14 (vector-ref arg-0 3))) (PreludeC-45TypesC-45List-C-43C-43 (TTImpC-45TTImp-findIBinds e-13) (TTImpC-45TTImp-findIBinds e-14))))) ((9) (let ((e-16 (vector-ref arg-0 2))) (let ((e-17 (vector-ref arg-0 3))) (PreludeC-45TypesC-45List-C-43C-43 (TTImpC-45TTImp-findIBinds e-16) (TTImpC-45TTImp-findIBinds e-17))))) ((10) (let ((e-19 (vector-ref arg-0 2))) (let ((e-21 (vector-ref arg-0 4))) (PreludeC-45TypesC-45List-C-43C-43 (TTImpC-45TTImp-findIBinds e-19) (TTImpC-45TTImp-findIBinds e-21))))) ((11) (let ((e-23 (vector-ref arg-0 2))) (let ((e-24 (vector-ref arg-0 3))) (PreludeC-45TypesC-45List-C-43C-43 (TTImpC-45TTImp-findIBinds e-23) (TTImpC-45TTImp-findIBinds e-24))))) ((18) (let ((e-28 (vector-ref arg-0 4))) (let ((e-29 (vector-ref arg-0 5))) (case (vector-ref e-28 0) ((1) (let ((e-54 (vector-ref e-28 1))) (cons e-54 (TTImpC-45TTImp-findIBinds e-29))))(else (TTImpC-45TTImp-findIBinds e-29)))))) ((19) (let ((e-32 (vector-ref arg-0 3))) (TTImpC-45TTImp-findIBinds e-32))) ((13) (let ((e-35 (vector-ref arg-0 3))) (PreludeC-45Interfaces-concatMap (cons (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-2 arg-3))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) (lambda (eta-0) (TTImpC-45TTImp-findIBinds eta-0)) e-35))) ((20) (let ((e-38 (vector-ref arg-0 3))) (TTImpC-45TTImp-findIBinds e-38))) ((21) (let ((e-40 (vector-ref arg-0 2))) (TTImpC-45TTImp-findIBinds e-40))) ((22) (let ((e-42 (vector-ref arg-0 2))) (TTImpC-45TTImp-findIBinds e-42))) ((23) (let ((e-44 (vector-ref arg-0 2))) (TTImpC-45TTImp-findIBinds e-44))) ((26) (let ((e-46 (vector-ref arg-0 2))) (TTImpC-45TTImp-findIBinds e-46))) ((27) (let ((e-48 (vector-ref arg-0 2))) (TTImpC-45TTImp-findIBinds e-48))) ((16) (let ((e-51 (vector-ref arg-0 3))) (TTImpC-45TTImp-findIBinds e-51))) ((17) (let ((e-53 (vector-ref arg-0 2))) (cons e-53 '())))(else '())))) +(define TTImpC-45TTImp-definedInBlock (lambda (arg-0 arg-1) (PreludeC-45Interfaces-concatMap (cons (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-2 arg-3))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) (lambda (eta-0) (TTImpC-45TTImp-n--9172-9567-u--defName arg-1 arg-0 arg-0 eta-0)) arg-1))) +(define TTImpC-45TTImp-apply (lambda (arg-0 arg-1) (if (null? arg-1) arg-0 (let ((e-2 (car arg-1))) (let ((e-3 (cdr arg-1))) (let ((u--fFC (TTImpC-45TTImp-getFC arg-0))) (TTImpC-45TTImp-apply (vector 8 (DataC-45Maybe-fromMaybe (lambda () u--fFC) (CoreC-45FC-mergeFC u--fFC (TTImpC-45TTImp-getFC e-2))) arg-0 e-2) e-3))))))) +(define TTImpC-45ProcessDecls-n--9617-6118-u--checkTotality (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-2 (vector-ref eta-0 1))) (vector 0 e-2))) (else (vector 1 0)))) (lambda (eta-0) (CoreC-45ContextC-45Log-logTime arg-1 (lambda () (PreludeC-45TypesC-45String-C-43C-43 "+++ Checking Termination " (CoreC-45Name-u--show_Show_Name arg-0))) (lambda (eta-1) (CoreC-45Termination-checkTotal arg-1 arg-2 arg-0 eta-1)) eta-0)) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45Context-getTotality arg-1 arg-2 arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45ProcessDecls-n--9617-6117-u--checkCovering arg-0 arg-1 arg-2 (let ((e-1 (cdr e-6))) e-1) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) ((PreludeC-45Types-maybe (let ((e-0 (car e-6))) (case (vector-ref e-0 0) ((2) (let ((e-2 (vector-ref e-0 1))) (lambda () (lambda (eta-0) (vector 1 (box (vector 12 arg-2 arg-0 e-2)))))))(else (lambda () (lambda (eta-0) (vector 1 '())))))) (lambda () (lambda (eta-0) (lambda (eta-1) (vector 1 (box eta-0))))) e-7) ext-0)))))))))))))) +(define TTImpC-45ProcessDecls-n--9617-6117-u--checkCovering (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (case (vector-ref arg-3 0) ((0) (vector 1 '()))(else (vector 1 (box (vector 11 arg-2 arg-0 arg-3))))))) +(define TTImpC-45ProcessDecls-n--9979-6442-u--bindNames (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (case (vector-ref arg-7 0) ((0) (let ((e-0 (vector-ref arg-7 1))) (let ((e-1 (vector-ref arg-7 2))) (let ((e-2 (vector-ref arg-7 3))) (let ((e-3 (vector-ref arg-7 4))) (let ((e-4 (vector-ref arg-7 5))) (let ((e-8 (vector-ref e-4 0))) (let ((e-9 (vector-ref e-4 1))) (let ((e-10 (vector-ref e-4 2))) (let ((e-11 (vector-ref e-4 3))) (let ((act-24 (TTImpC-45BindImplicits-bindTypeNames arg-6 e-0 '() arg-1 e-11 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 0 e-0 e-1 e-2 e-3 (vector e-8 e-9 e-10 e-5))))))))))))))))) ((1) (let ((e-5 (vector-ref arg-7 1))) (let ((e-6 (vector-ref arg-7 2))) (let ((e-7 (vector-ref arg-7 3))) (let ((act-24 (TTImpC-45ProcessDecls-n--9979-6441-u--bindDataNames arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-7 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-24 1))) (vector 1 (vector 1 e-5 e-6 e-8))))))))))(else (vector 1 arg-7))))) +(define TTImpC-45ProcessDecls-n--9979-6441-u--bindDataNames (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (case (vector-ref arg-7 0) ((0) (let ((e-0 (vector-ref arg-7 1))) (let ((e-1 (vector-ref arg-7 2))) (let ((e-2 (vector-ref arg-7 3))) (let ((e-3 (vector-ref arg-7 4))) (let ((e-4 (vector-ref arg-7 5))) (let ((act-24 (TTImpC-45BindImplicits-bindTypeNames arg-6 e-0 '() arg-1 e-2 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (TTImpC-45ProcessDecls-n--9979-6440-u--bindConNames arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-0 eta-1))) e-4 '() ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-6 (vector-ref act-25 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (vector 0 e-0 e-1 e-5 e-3 e-6)))))))))))))))) (else (let ((e-5 (vector-ref arg-7 1))) (let ((e-6 (vector-ref arg-7 2))) (let ((e-7 (vector-ref arg-7 3))) (let ((act-24 (TTImpC-45BindImplicits-bindTypeNames arg-6 e-5 '() arg-1 e-7 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-24 1))) (vector 1 (vector 1 e-5 e-6 e-8))))))))))))) +(define TTImpC-45ProcessDecls-n--9979-6440-u--bindConNames (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((e-0 (vector-ref arg-7 0))) (let ((e-1 (vector-ref arg-7 1))) (let ((e-2 (vector-ref arg-7 2))) (let ((e-3 (vector-ref arg-7 3))) (let ((act-24 (TTImpC-45BindImplicits-bindTypeNames arg-6 e-0 '() arg-1 e-3 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector e-0 e-1 e-2 e-5)))))))))))) +(define TTImpC-45ProcessDecls-processTTImpFile (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (CoreC-45Directory-ctxtPathToNS arg-0 arg-3 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45ContextC-45Log-logTime arg-0 (lambda () "Parsing") (lambda (eta-0) (let ((act-25 (ParserC-45Source-parseFile arg-3 (vector 0 e-5) (vector 8 0 (TTImpC-45Parser-prog (vector 0 e-5)) (lambda () (lambda (u--decls) (vector 11 0 0 (ParserC-45RuleC-45Source-eoi) (vector 0 u--decls))))) eta-0))) (vector 1 act-25))) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (case (vector-ref e-6 0) ((1) (let ((e-2 (vector-ref e-6 1))) (let ((e-9 (cdr e-2))) (CoreC-45ContextC-45Log-logTime arg-0 (lambda () "Elaboration") (lambda (eta-0) (CoreC-45Core-u--catch_Catchable_Core_Error (lambda (eta-1) (let ((act-26 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-2) (case (vector-ref eta-2 0) ((0) (let ((e-3 (vector-ref eta-2 1))) (vector 0 e-3))) (else (vector 1 0)))) (lambda (eta-2) (TTImpC-45ProcessDecls-processTTImpDecls '() arg-0 arg-1 arg-2 '() '() e-9 eta-2)) eta-1))) (case (vector-ref act-26 0) ((0) (let ((e-3 (vector-ref act-26 1))) (vector 0 e-3))) (else (let ((act-27 (CoreC-45UnifyState-checkDelayedHoles arg-2 arg-0 eta-1))) (case (vector-ref act-27 0) ((0) (let ((e-3 (vector-ref act-27 1))) (vector 0 e-3))) (else (let ((e-10 (vector-ref act-27 1))) (if (null? e-10) (vector 1 1) (let ((e-3 (unbox e-10))) (CoreC-45Core-u--throw_Catchable_Core_Error e-3 eta-1))))))))))) (lambda (u--err) (lambda (eta-1) (let ((act-26 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-2) (case (vector-ref eta-2 0) ((0) (let ((e-3 (vector-ref eta-2 1))) (vector 0 e-3))) (else (vector 1 0)))) (lambda (eta-2) (let ((act-26 ((PreludeC-45IO-printLn (cons (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-3) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-3)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-3) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-3) (let ((act-17 (arg-528 eta-3))) (let ((act-16 (arg-530 eta-3))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-3) (let ((act-26 (arg-811 eta-3))) ((arg-812 act-26) eta-3))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-3) (let ((act-51 (arg-814 eta-3))) (act-51 eta-3)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) (cons (lambda (u--x) (CoreC-45Core-u--show_Show_Error u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Core-u--showPrec_Show_Error u--d u--x))))) u--err) eta-2))) (vector 1 act-26))) eta-1))) (case (vector-ref act-26 0) ((0) (let ((e-3 (vector-ref act-26 1))) (vector 0 e-3))) (else (vector 1 0)))))) eta-0)) ext-0)))) (else (let ((e-7 (vector-ref e-6 1))) (let ((act-26 (let ((act-26 ((PreludeC-45IO-putStrLn (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-26 (arg-811 eta-0))) ((arg-812 act-26) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-51 (arg-814 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) (CoreC-45Core-u--show_Show_Error e-7)) ext-0))) (vector 1 act-26)))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (vector 1 0))))))))))))))))) +(define TTImpC-45ProcessDecls-processTTImpDecls (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 (CoreC-45Core-traverse_ (lambda (u--d) (lambda (eta-0) (let ((act-24 (TTImpC-45ProcessDecls-n--9979-6442-u--bindNames arg-6 arg-0 arg-5 arg-4 arg-3 arg-2 arg-1 u--d eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) ((TTImpC-45ElabC-45Check-processDecl arg-0 arg-1 arg-2 arg-3 '() arg-4 arg-5 e-5) eta-0))))))) arg-6 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (vector 1 1)))))) +(define TTImpC-45ProcessDecls-processDecls (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 (CoreC-45Core-traverse_ (lambda (eta-0) (TTImpC-45ElabC-45Check-processDecl arg-0 arg-1 arg-2 arg-3 '() arg-4 arg-5 eta-0)) arg-6 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (vector 1 1)))))) (define TTImpC-45ElabC-45Check-processDecl (lambda (arg-0 arg-1 arg-2 arg-3 ext-0 ext-1 ext-2 ext-3) (TTImpC-45ProcessDecls-process arg-0 arg-1 arg-2 arg-3 ext-0 ext-1 ext-2 ext-3))) -(define TTImpC-45ProcessDecls-process (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (TTImpC-45ProcessType-processType arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-0 e-1 e-2 e-3 e-4 eta-0)))))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (lambda (eta-0) (TTImpC-45ProcessData-processData arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-6 e-7 eta-0)))))) ((2) (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 3))) (lambda (eta-0) (TTImpC-45ProcessDef-processDef arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-8 e-9 e-10 eta-0)))))) ((3) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (TTImpC-45ProcessParams-processParams arg-0 arg-1 arg-2 arg-3 arg-5 arg-6 e-11 e-12 e-13))))) ((4) (let ((e-15 (vector-ref sc0 2))) (let ((e-16 (vector-ref sc0 3))) (let ((e-17 (vector-ref sc0 4))) (lambda (eta-0) (TTImpC-45ProcessRecord-processRecord arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-15 e-16 e-17 eta-0)))))) ((5) (let ((e-19 (vector-ref sc0 2))) (let ((e-20 (vector-ref sc0 3))) (lambda (eta-0) (CoreC-45Context-withExtendedNS arg-1 e-19 (lambda (eta-1) (CoreC-45Core-traverse_ (lambda (eta-2) (TTImpC-45ElabC-45Check-processDecl arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-2)) e-20 eta-1)) eta-0))))) ((6) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (let ((e-24 (vector-ref sc0 4))) (lambda (eta-0) (TTImpC-45ProcessTransform-processTransform arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-21 e-22 e-23 e-24 eta-0))))))) ((7) (let ((e-25 (vector-ref sc0 1))) (let ((e-26 (vector-ref sc0 2))) (lambda (eta-0) (TTImpC-45ProcessRunElab-processRunElab arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-25 e-26 eta-0))))) ((8) (let ((e-28 (vector-ref sc0 2))) (((e-28 arg-0) arg-5) arg-6))) ((9) (let ((e-29 (vector-ref sc0 1))) (lambda (eta-0) (CoreC-45Context-addLogLevel arg-1 (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (PreludeC-45Types-u--map_Functor_Maybe eta-3 eta-4))))) (lambda (eta-1) (PreludeC-45Basics-uncurry (lambda (eta-2) (lambda (eta-3) (CoreC-45OptionsC-45Log-unsafeMkLogLevel eta-2 eta-3))) eta-1)) e-29) eta-0)))) (else (let ((e-30 (vector-ref sc0 1))) (let ((e-31 (vector-ref sc0 2))) (let ((e-32 (vector-ref sc0 3))) (lambda (eta-0) (TTImpC-45ProcessBuiltin-processBuiltin arg-1 arg-2 arg-3 arg-5 arg-6 e-30 e-31 e-32 eta-0)))))))))) -(define TTImpC-45ProcessDecls-getTotalityErrors (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (TTImpC-45ProcessDecls-checkTotalityOK arg-0 eta-0 eta-1))) (LibrariesC-45DataC-45NameMap-keys (let ((sc1 e-5)) (let ((e-28 (vector-ref sc1 6))) e-28))) '() ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 (DataC-45List-mapMaybe (lambda (eta-0) eta-0) e-6)))))))))))))) -(define TTImpC-45ProcessDecls-checkTotalityOK (lambda (arg-0 arg-1 ext-0) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((2) (vector 1 (vector 0 ))) ((7) (vector 1 (vector 0 )))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact arg-1 (let ((sc2 e-5)) (let ((e-30 (vector-ref sc2 1))) e-30))) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-2 (vector-ref sc3 1))) (let ((u--fc (let ((sc4 e-2)) (let ((e-25 (vector-ref sc4 1))) e-25)))) (let ((act-26 (let ((_-0 (vector 1 e-2))) (TTImpC-45ProcessDecls-case--caseC-32blockC-32inC-32checkTotalityOK-4986 arg-1 arg-0 e-5 e-2 _-0 u--fc (let ((sc4 e-2)) (let ((e-17 (vector-ref sc4 18))) e-17)) ext-0)))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((act-27 (CoreC-45Context-getDefaultTotalityOption arg-0 ext-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc5 1))) (let ((u--treq (DataC-45Maybe-fromMaybe (lambda () e-8) (CoreC-45Context-findSetTotal (let ((sc6 e-2)) (let ((e-11 (vector-ref sc6 12))) e-11)))))) (let ((u--tot (let ((sc6 e-2)) (let ((e-10 (vector-ref sc6 11))) e-10)))) (let ((act-28 (CoreC-45ContextC-45Log-log arg-0 "totality" (+ 1 (+ 1 (+ 1 0))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name arg-1) (PreludeC-45TypesC-45String-C-43C-43 " must be: " (CoreC-45TT-u--show_Show_TotalReq u--treq)))) ext-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (let ((sc7 u--treq)) (case (vector-ref sc7 0) ((2) (vector 1 (vector 0 ))) ((1) (TTImpC-45ProcessDecls-n--13560-4845-u--checkCovering arg-1 arg-0 u--fc (let ((sc8 u--tot)) (let ((e-3 (cdr sc8))) e-3)) ext-0)) (else (TTImpC-45ProcessDecls-n--13560-4846-u--checkTotality arg-1 arg-0 u--fc ext-0)))))))))))))))))))))) (else (vector 1 (vector 0 ))))))))))))))))))))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact arg-1 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((u--fc (let ((sc3 e-1)) (let ((e-0 (vector-ref sc3 1))) e-0)))) (let ((act-26 (let ((_-0 (vector 1 e-1))) (TTImpC-45ProcessDecls-case--caseC-32blockC-32inC-32checkTotalityOK-4986 arg-1 arg-0 e-5 e-1 _-0 u--fc (let ((sc3 e-1)) (let ((e-17 (vector-ref sc3 18))) e-17)) ext-0)))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 (CoreC-45Context-getDefaultTotalityOption arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((u--treq (DataC-45Maybe-fromMaybe (lambda () e-8) (CoreC-45Context-findSetTotal (let ((sc5 e-1)) (let ((e-11 (vector-ref sc5 12))) e-11)))))) (let ((u--tot (let ((sc5 e-1)) (let ((e-10 (vector-ref sc5 11))) e-10)))) (let ((act-28 (CoreC-45ContextC-45Log-log arg-0 "totality" (+ 1 (+ 1 (+ 1 0))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name arg-1) (PreludeC-45TypesC-45String-C-43C-43 " must be: " (CoreC-45TT-u--show_Show_TotalReq u--treq)))) ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((sc6 u--treq)) (case (vector-ref sc6 0) ((2) (vector 1 (vector 0 ))) ((1) (TTImpC-45ProcessDecls-n--13560-4845-u--checkCovering arg-1 arg-0 u--fc (let ((sc7 u--tot)) (let ((e-2 (cdr sc7))) e-2)) ext-0)) (else (TTImpC-45ProcessDecls-n--13560-4846-u--checkTotality arg-1 arg-0 u--fc ext-0)))))))))))))))))))))) (else (vector 1 (vector 0 )))))))))))))))))))) -(define TTImpC-45ProcessType-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32processType-6887 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28) (let ((sc0 arg-28)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 6))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (vector 0 e-0 e-1 e-2 arg-22 arg-23 e-5 arg-27 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20)))))))))))))))))))))) -(define TTImpC-45ProcessType-case--caseC-32blockC-32inC-32findInferrableC-44findInf-6276 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 ext-0) (let ((sc0 arg-8)) (cond ((equal? sc0 0) (vector 1 arg-6)) (else (vector 1 (cons arg-7 arg-6))))))) -(define TTImpC-45ProcessType-case--findInferrableC-44findInf-6235 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-6))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (TTImpC-45ProcessType-case--caseC-32blockC-32inC-32findInferrableC-44findInf-6276 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-2 (PreludeC-45Types-elem (cons (lambda (arg-8) (lambda (arg-9) (PreludeC-45Types-u--C-61C-61_Eq_Nat arg-8 arg-9))) (lambda (arg-8) (lambda (arg-9) (PreludeC-45Types-u--C-47C-61_Eq_Nat arg-8 arg-9)))) e-2 arg-6) eta-0)))))))) -(define TTImpC-45ProcessType-case--processFnOptC-44collectSpec-5708 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((TTImpC-45ProcessType-n--11028-4902-u--getDeps arg-0 arg-1 arg-2 arg-3 arg-4 0 arg-8 (LibrariesC-45DataC-45NameMap-empty)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((u--rs (DataC-45List-filter (lambda (u--x) (PreludeC-45Basics-C-124C-124 (Builtin-snd u--x) (lambda () (let ((sc2 (PreludeC-45Types-elem (cons (lambda (arg-19) (lambda (arg-20) (CoreC-45Name-u--C-61C-61_Eq_Name arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (CoreC-45Name-u--C-47C-61_Eq_Name arg-19 arg-20)))) (Builtin-fst u--x) arg-13))) (cond ((equal? sc2 0) 1) (else 0)))))) (LibrariesC-45DataC-45NameMap-toList e-5)))) (let ((u--accC-39 (TTImpC-45ProcessType-n--11028-4899-u--insertDeps arg-0 arg-1 arg-2 arg-3 arg-4 arg-14 arg-12 (cons arg-10 (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-fst eta-1)) u--rs))))) (TTImpC-45ProcessType-n--11028-4903-u--collectSpec arg-0 arg-1 arg-2 arg-3 arg-4 u--accC-39 arg-13 arg-12 arg-17 eta-0)))))))))) (else (lambda (eta-0) (TTImpC-45ProcessType-n--11028-4903-u--collectSpec arg-0 arg-1 arg-2 arg-3 arg-4 arg-14 arg-13 arg-12 arg-17 eta-0))))))) -(define TTImpC-45ProcessType-case--processFnOptC-44getDeps-5592 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 ext-0) (let ((sc0 arg-14)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((act-24 (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-4 '() arg-12 eta-0)) e-2 '() ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (TTImpC-45ProcessType-n--11028-4901-u--getDepsArgs arg-0 arg-1 arg-2 arg-3 arg-4 0 e-5 arg-10 ext-0)))))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-4 '() arg-12 eta-0)) e-3 '() ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (TTImpC-45ProcessType-n--11028-4901-u--getDepsArgs arg-0 arg-1 arg-2 arg-3 arg-4 1 e-6 e-5 ext-0)))))))))))))))) -(define TTImpC-45ProcessType-case--caseC-32blockC-32inC-32processFnOptC-44getDepsC-44splitPs-5391 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (cond ((equal? sc0 0) (cons (cons arg-12 arg-16) arg-17)) (else (cons arg-16 (cons arg-12 arg-17))))))) -(define TTImpC-45ProcessType-case--processFnOptC-44getDepsC-44splitPs-5348 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (TTImpC-45ProcessType-case--caseC-32blockC-32inC-32processFnOptC-44getDepsC-44splitPs-5391 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-2 e-3 (PreludeC-45Types-elem (cons (lambda (arg-17) (lambda (arg-18) (PreludeC-45Types-u--C-61C-61_Eq_Nat arg-17 arg-18))) (lambda (arg-17) (lambda (arg-18) (PreludeC-45Types-u--C-47C-61_Eq_Nat arg-17 arg-18)))) arg-15 arg-14))))))) -(define TTImpC-45ProcessType-case--processFnOptC-44collectDDeps-5056 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (cond ((equal? sc0 0) (lambda (eta-0) (TTImpC-45ProcessType-n--11028-4900-u--collectDDeps arg-0 arg-1 arg-2 arg-3 arg-4 arg-14 eta-0))) (else (lambda (eta-0) (let ((act-24 (CoreC-45Normalise-u--quote_Quote_NF arg-4 '() arg-13 '() arg-8 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((u--deps (LibrariesC-45DataC-45NameMap-keys (CoreC-45TT-getRefs (vector 1 "_") e-5)))) (let ((act-25 (TTImpC-45ProcessType-n--11028-4900-u--collectDDeps arg-0 arg-1 arg-2 arg-3 arg-4 arg-14 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (PreludeC-45TypesC-45List-C-43C-43 e-6 u--deps))))))))))))))))))) -(define TTImpC-45ProcessType-case--caseC-32blockC-32inC-32processFnOptC-44insertDeps-4967 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (TTImpC-45ProcessType-n--11028-4899-u--insertDeps arg-0 arg-1 arg-2 arg-3 arg-4 arg-8 arg-7 arg-6)) (else (TTImpC-45ProcessType-n--11028-4899-u--insertDeps arg-0 arg-1 arg-2 arg-3 arg-4 (cons arg-9 arg-8) arg-7 arg-6)))))) -(define TTImpC-45ProcessType-case--processFnOptC-44insertDeps-4920 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (TTImpC-45ProcessType-n--11028-4899-u--insertDeps arg-0 arg-1 arg-2 arg-3 arg-4 arg-8 arg-7 arg-6)) (else (let ((e-2 (vector-ref sc0 1))) (TTImpC-45ProcessType-case--caseC-32blockC-32inC-32processFnOptC-44insertDeps-4967 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2 (PreludeC-45Types-elem (cons (lambda (arg-10) (lambda (arg-11) (PreludeC-45Types-u--C-61C-61_Eq_Nat arg-10 arg-11))) (lambda (arg-10) (lambda (arg-11) (PreludeC-45Types-u--C-47C-61_Eq_Nat arg-10 arg-11)))) e-2 arg-8)))))))) -(define TTImpC-45ProcessType-n--11179-5322-u--splitPs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (if (null? sc0) (cons '() '()) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (TTImpC-45ProcessType-case--processFnOptC-44getDepsC-44splitPs-5348 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-2 e-3 arg-13 arg-12 (TTImpC-45ProcessType-n--11179-5322-u--splitPs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 (PreludeC-45Types-u--C-43_Num_Nat (PreludeC-45Types-u--fromInteger_Num_Nat 1) arg-12) arg-13 e-3)))))))) -(define TTImpC-45ProcessType-n--13059-6716-u--isNested (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29) (let ((sc0 arg-29)) (case (vector-ref sc0 0) ((6) 0) ((0) (let ((e-3 (vector-ref sc0 2))) (TTImpC-45ProcessType-n--13059-6716-u--isNested arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 e-3)))(else 1))))) -(define TTImpC-45ProcessType-n--11028-4899-u--insertDeps (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (if (null? sc0) arg-5 (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (TTImpC-45ProcessType-case--processFnOptC-44insertDeps-4920 arg-0 arg-1 arg-2 arg-3 arg-4 e-2 e-3 arg-6 arg-5 (DataC-45List-lookup (cons (lambda (arg-8) (lambda (arg-9) (CoreC-45Name-u--C-61C-61_Eq_Name arg-8 arg-9))) (lambda (arg-8) (lambda (arg-9) (CoreC-45Name-u--C-47C-61_Eq_Name arg-8 arg-9)))) e-2 arg-6)))))))) -(define TTImpC-45ProcessType-n--11028-4904-u--getNamePos (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (let ((act-25 (((e-4 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 e-1 1))) ext-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc3 1))) (TTImpC-45ProcessType-n--11028-4904-u--getNamePos arg-0 arg-1 arg-2 arg-3 arg-4 (PreludeC-45Types-u--C-43_Num_Nat (PreludeC-45Types-u--fromInteger_Num_Nat 1) arg-5) e-10 ext-0)))))))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc3 1))) (vector 1 (cons (cons e-2 arg-5) e-10)))))))))))))(else (vector 1 '())))))))))(else (vector 1 '())))))) -(define TTImpC-45ProcessType-n--11028-4901-u--getDepsArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((sc0 arg-6)) (if (null? sc0) (vector 1 arg-7) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((act-24 ((TTImpC-45ProcessType-n--11028-4902-u--getDeps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2 arg-7) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (TTImpC-45ProcessType-n--11028-4901-u--getDepsArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3 e-5 ext-0)))))))))))) -(define TTImpC-45ProcessType-n--11028-4902-u--getDeps (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (lambda (clam-0) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-29 (vector-ref sc1 4))) (let ((act-24 ((TTImpC-45ProcessType-n--11028-4902-u--getDeps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-29 arg-7) clam-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (let ((act-25 (unbox arg-4))) (vector 1 act-25)))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (((e-4 e-6) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-3 1))) clam-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) ((TTImpC-45ProcessType-n--11028-4902-u--getDeps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-7 e-5) clam-0))))))))))))))))))(else (let ((act-24 ((TTImpC-45ProcessType-n--11028-4902-u--getDeps arg-0 arg-1 arg-2 arg-3 arg-4 1 (CoreC-45TT-binderType e-3) arg-7) clam-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((act-25 (let ((act-25 (unbox arg-4))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (((e-4 e-6) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-3 1))) clam-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc3 1))) ((TTImpC-45ProcessType-n--11028-4902-u--getDeps arg-0 arg-1 arg-2 arg-3 arg-4 1 e-7 arg-7) clam-0)))))))))))))))))))))) ((1) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (lambda (clam-0) (let ((sc1 e-7)) (case (vector-ref sc1 0) ((1) (let ((e-31 (vector-ref sc1 1))) (let ((e-32 (vector-ref sc1 2))) (let ((sc2 e-31)) (case (vector-ref sc2 0) ((0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-4 '() e-5 (Builtin-snd eta-0))) e-8 '() clam-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (TTImpC-45ProcessType-n--11028-4901-u--getDepsArgs arg-0 arg-1 arg-2 arg-3 arg-4 1 e-9 arg-7 clam-0)))))))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (vector 1 (LibrariesC-45DataC-45NameMap-insert e-32 arg-5 e-9)))))))))))))(else (vector 1 arg-7)))))))(else (vector 1 arg-7)))))))) ((2) (let ((e-14 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (eta-1) (CoreC-45Normalise-evalClosure arg-4 '() e-5 (Builtin-snd eta-1))) e-14 '() eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (TTImpC-45ProcessType-n--11028-4901-u--getDepsArgs arg-0 arg-1 arg-2 arg-3 arg-4 1 e-6 arg-7 eta-0)))))))))))))) ((3) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (let ((e-20 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (CoreC-45Context-lookupDefExact e-17 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((sc4 e-1)) (case (vector-ref sc4 0) ((6) (let ((e-4 (vector-ref sc4 3))) (vector 1 e-4)))(else (vector 1 '()))))))(else (vector 1 '()))))))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (TTImpC-45ProcessType-case--processFnOptC-44getDeps-5592 arg-0 arg-1 arg-2 arg-3 arg-4 e-16 e-20 e-19 e-18 e-17 arg-7 arg-5 e-5 e-6 (TTImpC-45ProcessType-n--11179-5322-u--splitPs arg-0 arg-1 arg-2 arg-3 arg-4 e-16 e-20 e-19 e-18 e-17 arg-7 arg-5 0 e-6 (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) e-20)) eta-0)))))))))))))))))) ((5) (let ((e-24 (vector-ref sc0 3))) (TTImpC-45ProcessType-n--11028-4902-u--getDeps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-24 arg-7)))(else (lambda (eta-0) (vector 1 arg-7))))))) -(define TTImpC-45ProcessType-n--12595-6209-u--findInfs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((sc0 arg-5)) (if (null? sc0) (vector 1 arg-3) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((act-24 (TTImpC-45ProcessType-n--12595-6209-u--findInfs arg-0 arg-1 arg-2 arg-3 arg-4 e-3 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) ((TTImpC-45ProcessType-n--12595-6208-u--findInf arg-0 arg-1 arg-2 e-5 arg-4 e-2) ext-0)))))))))))) -(define TTImpC-45ProcessType-n--12595-6208-u--findInf (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-21 (vector-ref sc1 1))) (let ((e-22 (vector-ref sc1 2))) (let ((sc2 e-21)) (case (vector-ref sc2 0) ((0) (let ((sc3 e-3)) (if (null? sc3) (TTImpC-45ProcessType-case--findInferrableC-44findInf-6235 arg-0 arg-1 arg-2 e-1 e-22 arg-4 arg-3 (DataC-45List-lookup (cons (lambda (arg-6) (lambda (arg-7) (CoreC-45Name-u--C-61C-61_Eq_Name arg-6 arg-7))) (lambda (arg-6) (lambda (arg-7) (CoreC-45Name-u--C-47C-61_Eq_Name arg-6 arg-7)))) e-22 arg-4)) (lambda (eta-0) (vector 1 arg-3)))))(else (lambda (eta-0) (vector 1 arg-3))))))))(else (lambda (eta-0) (vector 1 arg-3))))))))) ((2) (let ((e-9 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-1) (CoreC-45Normalise-evalClosure arg-2 '() arg-1 (Builtin-snd eta-1))) e-9 '() eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc1 1))) (TTImpC-45ProcessType-n--12595-6209-u--findInfs arg-0 arg-1 arg-2 arg-3 arg-4 e-10 eta-0))))))))) ((3) (let ((e-15 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-1) (CoreC-45Normalise-evalClosure arg-2 '() arg-1 (Builtin-snd eta-1))) e-15 '() eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (TTImpC-45ProcessType-n--12595-6209-u--findInfs arg-0 arg-1 arg-2 arg-3 arg-4 e-5 eta-0))))))))) ((5) (let ((e-19 (vector-ref sc0 3))) (TTImpC-45ProcessType-n--12595-6208-u--findInf arg-0 arg-1 arg-2 arg-3 arg-4 e-19)))(else (lambda (eta-0) (vector 1 arg-3))))))) -(define TTImpC-45ProcessType-n--12595-6210-u--fi (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-9 (vector-ref sc1 4))) (let ((u--argn (vector 2 "inf" arg-4))) (lambda (eta-0) (let ((act-24 (((e-4 arg-1) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 1 e-1 (vector 0 ) u--argn))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((TTImpC-45ProcessType-n--12595-6208-u--findInf arg-0 arg-1 arg-2 arg-6 arg-5 e-9) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc3 1))) (let ((act-26 ((TTImpC-45ProcessType-n--12595-6210-u--fi arg-0 arg-1 arg-2 (PreludeC-45Types-u--C-43_Num_Nat (PreludeC-45Types-u--fromInteger_Num_Nat 1) arg-3) (bs+ (blodwen-toSignedInt 1 63) arg-4 63) (cons (cons u--argn arg-3) arg-5) e-10 e-5) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-11 (vector-ref sc4 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc4 1))) (vector 1 e-11))))))))))))))))))))(else (TTImpC-45ProcessType-n--12595-6208-u--findInf arg-0 arg-1 arg-2 arg-6 arg-5 arg-7))))))))(else (TTImpC-45ProcessType-n--12595-6208-u--findInf arg-0 arg-1 arg-2 arg-6 arg-5 arg-7)))))) -(define TTImpC-45ProcessType-n--11028-4903-u--collectSpec (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 ext-0) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (let ((e-9 (vector-ref sc1 4))) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (CoreC-45Context-clearDefs e-5 ext-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc3 1))) (let ((act-26 (((e-4 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 1 e-1 (vector 0 ) e-2))) ext-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-11 (vector-ref sc4 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc4 1))) ((TTImpC-45ProcessType-case--processFnOptC-44collectSpec-5708 arg-0 arg-1 arg-2 arg-3 arg-4 e-6 e-7 e-8 e-9 e-4 e-2 e-1 arg-7 arg-6 arg-5 e-5 e-10 e-11 (PreludeC-45Types-elem (cons (lambda (arg-9) (lambda (arg-10) (CoreC-45Name-u--C-61C-61_Eq_Name arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (CoreC-45Name-u--C-47C-61_Eq_Name arg-9 arg-10)))) e-2 arg-1)) ext-0)))))))))))))))))))))(else (vector 1 arg-5)))))))))(else (vector 1 arg-5)))))) -(define TTImpC-45ProcessType-n--11028-4900-u--collectDDeps (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (let ((e-9 (vector-ref sc1 4))) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (CoreC-45Context-clearDefs e-5 ext-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc3 1))) (let ((act-26 (((e-4 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 1 e-1 (vector 0 ) e-2))) ext-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-11 (vector-ref sc4 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc4 1))) ((TTImpC-45ProcessType-case--processFnOptC-44collectDDeps-5056 arg-0 arg-1 arg-2 arg-3 arg-4 e-6 e-7 e-8 e-9 e-4 e-2 e-1 e-5 e-10 e-11 (PreludeC-45Types-elem (cons (lambda (arg-6) (lambda (arg-7) (CoreC-45Name-u--C-61C-61_Eq_Name arg-6 arg-7))) (lambda (arg-6) (lambda (arg-7) (CoreC-45Name-u--C-47C-61_Eq_Name arg-6 arg-7)))) e-2 arg-1)) ext-0)))))))))))))))))))))(else (vector 1 '())))))))))(else (vector 1 '())))))) -(define TTImpC-45ProcessType-processType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 ext-0) (let ((sc0 arg-11)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((act-24 (CoreC-45Context-inCurrentNS arg-1 e-2 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45ContextC-45Log-log arg-1 "declare.type" (+ 1 0) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Processing " (CoreC-45Name-u--show_Show_Name e-5))) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((act-26 (CoreC-45ContextC-45Log-log arg-1 "declare.type" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Checking type decl " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-5) (PreludeC-45TypesC-45String-C-43C-43 " : " (TTImpC-45TTImp-u--show_Show_RawImp e-3))))) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((act-27 (CoreC-45Context-resolveName arg-1 e-5 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (let ((act-28 (unbox arg-1))) (vector 1 act-28)))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 ((CoreC-45Context-lookupCtxtExact (vector 9 e-8) (let ((sc6 e-9)) (let ((e-36 (vector-ref sc6 1))) e-36))) ext-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc6 1))) (let ((sc7 e-10)) (case (vector-ref sc7 0) ((0) (let ((act-30 ((TTImpC-45ElabC-45Utils-wrapErrorC arg-4 (lambda (eta-0) (vector 61 arg-7 e-5 eta-0)) (lambda (eta-0) (TTImpC-45Elab-checkTerm arg-0 arg-1 arg-2 arg-3 e-8 (vector 0 ) (cons (vector 0 ) arg-4) arg-5 arg-6 (vector 16 arg-7 (vector 0 (AlgebraC-45Semiring-erased (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)))) e-3) (CoreC-45Normalise-gType arg-7) eta-0))) ext-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc8 1))) (let ((act-31 (CoreC-45Normalise-logTermNF '() arg-1 "declare.type" (+ 1 (+ 1 (+ 1 0))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Type of " (CoreC-45Name-u--show_Show_Name e-5))) '() (CoreC-45Env-abstractFullEnvType arg-0 e-0 arg-6 e-11) ext-0))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((act-32 ((TTImpC-45ProcessType-initDef arg-0 arg-1 arg-2 arg-3 e-5 arg-6 e-11 arg-10) ext-0))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-13 (vector-ref sc10 1))) (let ((u--fullty (CoreC-45Env-abstractFullEnvType arg-0 e-0 arg-6 e-11))) (let ((act-33 (TTImpC-45ElabC-45Utils-findErased arg-1 u--fullty ext-0))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((e-14 (vector-ref sc11 1))) (let ((_-0 (vector 0 ))) (let ((sc12 e-14)) (let ((e-15 (car sc12))) (let ((e-4 (cdr sc12))) (let ((act-34 (let ((act-34 (unbox arg-1))) (vector 1 act-34)))) (let ((sc13 act-34)) (case (vector-ref sc13 0) ((0) (let ((e-16 (vector-ref sc13 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc13 1))) (let ((act-35 (CoreC-45Context-clearDefs e-16 ext-0))) (let ((sc14 act-35)) (case (vector-ref sc14 0) ((0) (let ((e-17 (vector-ref sc14 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc14 1))) (let ((act-36 (let ((act-36 ((CoreC-45Normalise-nf arg-1 '() e-16 '() u--fullty) ext-0))) (let ((sc15 act-36)) (case (vector-ref sc15 0) ((0) (let ((e-18 (vector-ref sc15 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc15 1))) ((TTImpC-45ProcessType-findInferrable arg-1 e-17 e-18) ext-0)))))))) (let ((sc15 act-36)) (case (vector-ref sc15 0) ((0) (let ((e-18 (vector-ref sc15 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc15 1))) (let ((act-37 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc16 eta-0)) (case (vector-ref sc16 0) ((0) (let ((e-19 (vector-ref sc16 1))) (vector 0 e-19))) (else (vector 1 (vector 0 )))))) (lambda (eta-0) (CoreC-45Context-addDef arg-1 (vector 9 e-8) (let ((_-1 (cons e-15 e-4))) (TTImpC-45ProcessType-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32processType-6887 e-3 e-2 e-1 e-0 arg-10 arg-9 arg-8 arg-7 arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-8 e-9 _-0 e-11 e-13 u--fullty e-15 e-4 _-1 e-16 e-17 e-18 (CoreC-45Context-newDef arg-7 e-5 arg-8 arg-0 u--fullty arg-9 e-13))) eta-0)) ext-0))) (let ((sc16 act-37)) (case (vector-ref sc16 0) ((0) (let ((e-19 (vector-ref sc16 1))) (vector 0 e-19))) (else (let ((act-38 (let ((sc17 (PreludeC-45Types-elem (cons (lambda (arg-12) (lambda (arg-13) (TTImpC-45ElabC-45Check-u--C-61C-61_Eq_ElabOpt arg-12 arg-13))) (lambda (arg-12) (lambda (arg-13) (TTImpC-45ElabC-45Check-u--C-47C-61_Eq_ElabOpt arg-12 arg-13)))) (vector 1 ) arg-4))) (cond ((equal? sc17 0) (vector 1 (vector 0 ))) (else (CoreC-45Context-setLinearCheck arg-1 e-8 0 ext-0)))))) (let ((sc17 act-38)) (case (vector-ref sc17 0) ((0) (let ((e-20 (vector-ref sc17 1))) (vector 0 e-20))) (else (let ((act-39 (CoreC-45ContextC-45Log-log arg-1 "declare.type" (+ 1 (+ 1 0)) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Setting options for " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-5) (PreludeC-45TypesC-45String-C-43C-43 ": " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (TTImpC-45TTImp-u--show_Show_FnOpt u--x)) (lambda (u--d) (lambda (u--x) (TTImpC-45TTImp-u--showPrec_Show_FnOpt u--d u--x)))) arg-10))))) ext-0))) (let ((sc18 act-39)) (case (vector-ref sc18 0) ((0) (let ((e-21 (vector-ref sc18 1))) (vector 0 e-21))) (else (let ((u--name (vector 9 e-8))) (let ((act-40 (CoreC-45Core-traverse_ (lambda (eta-0) (TTImpC-45ProcessType-processFnOpt arg-1 arg-7 (let ((sc19 (TTImpC-45ProcessType-n--13059-6716-u--isNested e-3 e-2 e-1 e-0 arg-10 arg-9 arg-8 arg-7 arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-8 e-9 _-0 e-11 e-13 u--fullty e-15 e-4 e-14 e-16 e-17 e-18 u--name e-5))) (cond ((equal? sc19 0) 1) (else 0))) u--name eta-0)) arg-10 ext-0))) (let ((sc19 act-40)) (case (vector-ref sc19 0) ((0) (let ((e-22 (vector-ref sc19 1))) (vector 0 e-22))) (else (let ((act-41 (let ((act-41 (CoreC-45Context-getDefaultTotalityOption arg-1 ext-0))) (let ((sc20 act-41)) (case (vector-ref sc20 0) ((0) (let ((e-23 (vector-ref sc20 1))) (vector 0 e-23))) (else (let ((e-23 (vector-ref sc20 1))) (let ((sc21 (PreludeC-45Interfaces-any (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (lambda (eta-0) (TTImpC-45TTImp-isTotalityReq eta-0)) arg-10))) (cond ((equal? sc21 0) (vector 1 (vector 0 ))) (else (CoreC-45Context-setFlag arg-1 arg-7 u--name (vector 4 e-23) ext-0))))))))))) (let ((sc20 act-41)) (case (vector-ref sc20 0) ((0) (let ((e-23 (vector-ref sc20 1))) (vector 0 e-23))) (else (let ((act-42 (CoreC-45Metadata-addTyDecl arg-0 arg-1 arg-2 arg-7 (vector 9 e-8) arg-6 e-11 ext-0))) (let ((sc21 act-42)) (case (vector-ref sc21 0) ((0) (let ((e-24 (vector-ref sc21 1))) (vector 0 e-24))) (else (let ((act-43 (CoreC-45ContextC-45Log-log arg-1 "metadata.names" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))))) (lambda () "processType is adding \u2193") ext-0))) (let ((sc22 act-43)) (case (vector-ref sc22 0) ((0) (let ((e-25 (vector-ref sc22 1))) (vector 0 e-25))) (else (let ((act-44 (CoreC-45Metadata-addNameType arg-0 arg-1 arg-2 e-1 (vector 9 e-8) arg-6 e-11 ext-0))) (let ((sc23 act-44)) (case (vector-ref sc23 0) ((0) (let ((e-26 (vector-ref sc23 1))) (vector 0 e-26))) (else (let ((act-45 (CoreC-45Core-traverse_ (lambda (eta-0) (lambda (eta-1) (CoreC-45Context-addToSave arg-1 eta-0 eta-1))) (LibrariesC-45DataC-45NameMap-keys (CoreC-45TT-getMetas e-11)) ext-0))) (let ((sc24 act-45)) (case (vector-ref sc24 0) ((0) (let ((e-27 (vector-ref sc24 1))) (vector 0 e-27))) (else (let ((act-46 (CoreC-45Context-addToSave arg-1 e-5 ext-0))) (let ((sc25 act-46)) (case (vector-ref sc25 0) ((0) (let ((e-28 (vector-ref sc25 1))) (vector 0 e-28))) (else (let ((act-47 (CoreC-45ContextC-45Log-log arg-1 "declare.type" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Saving from " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-5) (PreludeC-45TypesC-45String-C-43C-43 ": " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45Name-u--show_Show_Name u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Name-u--showPrec_Show_Name u--d u--x)))) (LibrariesC-45DataC-45NameMap-keys (CoreC-45TT-getMetas e-11))))))) ext-0))) (let ((sc26 act-47)) (case (vector-ref sc26 0) ((0) (let ((e-29 (vector-ref sc26 1))) (vector 0 e-29))) (else (let ((sc27 (CoreC-45TT-u--C-47C-61_Eq_Visibility arg-9 (vector 0 )))) (cond ((equal? sc27 0) (let ((act-48 (CoreC-45Context-addHashWithNames arg-1 (cons (lambda (arg-1546) (CoreC-45Hash-u--hash_Hashable_Name arg-1546)) (lambda (arg-1547) (lambda (arg-1548) (CoreC-45Hash-u--hashWithSalt_Hashable_Name arg-1547 arg-1548)))) (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) e-5 ext-0))) (let ((sc28 act-48)) (case (vector-ref sc28 0) ((0) (let ((e-30 (vector-ref sc28 1))) (vector 0 e-30))) (else (CoreC-45Context-addHashWithNames arg-1 (cons (lambda (arg-1546) (CoreC-45Hash-u--hash_Hashable_C-40TermC-32C-36varsC-41 arg-1546)) (lambda (arg-1547) (lambda (arg-1548) (CoreC-45Hash-u--hashWithSalt_Hashable_C-40TermC-32C-36varsC-41 arg-1547 arg-1548)))) (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) e-11 ext-0)))))) (else (vector 1 (vector 0 )))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 38 arg-7 e-5) ext-0))))))))))))))))))))))))))))))))))))))) -(define TTImpC-45ProcessType-processFnOpt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (CoreC-45Context-setFlag arg-0 arg-1 arg-3 (vector 0 ) eta-0))) ((1) (lambda (eta-0) (CoreC-45Context-setFlag arg-0 arg-1 arg-3 (vector 3 ) eta-0)))(else (let ((sc0 arg-2)) (cond ((equal? sc0 0) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((2) (let ((e-6 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (CoreC-45Context-lookupTyExact arg-3 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) e-0)) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((act-26 (let ((act-26 ((CoreC-45Normalise-nf arg-0 '() e-5 '() e-1) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc5 1))) (TTImpC-45ProcessType-getRetTy e-5 e-8 eta-0)))))))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc5 1))) (CoreC-45Context-addHintFor arg-0 arg-1 e-8 arg-3 e-6 1 eta-0)))))))) (else (CoreC-45Context-undefinedName arg-0 arg-1 arg-3 eta-0)))))))))))))))))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (let ((act-24 (let ((act-24 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-1) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-1)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) arg-3 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (CoreC-45ContextC-45Log-log arg-0 "elab" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Adding local hint " (CoreC-45Name-u--show_Show_Name e-6))) eta-0)))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (CoreC-45Context-addLocalHint arg-0 arg-3 eta-0)))))))(else (let ((sc1 arg-2)) (cond ((equal? sc1 0) (lambda (clam-0) (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((3) (let ((e-4 (vector-ref sc2 1))) (CoreC-45Context-addGlobalHint arg-0 arg-3 e-4 clam-0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((3) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-1 "%globalhint is not valid in local definitions") clam-0)) ((4) (CoreC-45Context-setFlag arg-0 arg-1 arg-3 (vector 0 ) clam-0)) ((5) (CoreC-45Context-setFlag arg-0 arg-1 arg-3 (vector 0 ) clam-0)) ((6) (CoreC-45Context-setFlag arg-0 arg-1 arg-3 (vector 1 ) clam-0)) ((7) (let ((e-2 (vector-ref sc2 1))) (CoreC-45Context-setFlag arg-0 arg-1 arg-3 (vector 4 e-2) clam-0))) ((8) (CoreC-45Context-setFlag arg-0 arg-1 arg-3 (vector 6 ) clam-0)) (else (let ((e-3 (vector-ref sc2 1))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact arg-3 (let ((sc4 e-5)) (let ((e-0 (vector-ref sc4 1))) e-0))) clam-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((sc5 e-6)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((act-26 ((CoreC-45Normalise-nf arg-0 '() e-5 '() (let ((sc6 e-1)) (let ((e-2 (vector-ref sc6 3))) e-2))) clam-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-27 (TTImpC-45ProcessType-n--11028-4904-u--getNamePos arg-2 e-3 arg-3 arg-1 arg-0 0 e-7 clam-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc7 1))) (let ((act-28 (TTImpC-45ProcessType-n--11028-4900-u--collectDDeps arg-2 e-3 arg-3 arg-1 arg-0 e-7 clam-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-29 (TTImpC-45ProcessType-n--11028-4903-u--collectSpec arg-2 e-3 arg-3 arg-1 arg-0 '() e-9 e-8 e-7 clam-0))) (let ((sc9 act-29)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc9 1))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc10 eta-0)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))) (lambda (eta-0) (CoreC-45Context-addDef arg-0 arg-3 (let ((sc10 e-1)) (let ((e-0 (vector-ref sc10 1))) (let ((e-28 (vector-ref sc10 2))) (let ((e-2 (vector-ref sc10 3))) (let ((e-27 (vector-ref sc10 4))) (let ((e-4 (vector-ref sc10 5))) (let ((e-25 (vector-ref sc10 7))) (let ((e-24 (vector-ref sc10 8))) (let ((e-23 (vector-ref sc10 9))) (let ((e-22 (vector-ref sc10 10))) (let ((e-21 (vector-ref sc10 11))) (let ((e-11 (vector-ref sc10 12))) (let ((e-12 (vector-ref sc10 13))) (let ((e-13 (vector-ref sc10 14))) (let ((e-14 (vector-ref sc10 15))) (let ((e-15 (vector-ref sc10 16))) (let ((e-16 (vector-ref sc10 17))) (let ((e-17 (vector-ref sc10 18))) (let ((e-18 (vector-ref sc10 19))) (let ((e-19 (vector-ref sc10 20))) (let ((e-20 (vector-ref sc10 21))) (vector 0 e-0 e-28 e-2 e-27 e-4 e-10 e-25 e-24 e-23 e-22 e-21 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20)))))))))))))))))))))) eta-0)) clam-0))))))))))))))))))))))) (else (CoreC-45Context-undefinedName arg-0 arg-1 arg-3 clam-0)))))))))))))))))))))))(else (lambda (clam-1) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((3) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-1 "%globalhint is not valid in local definitions") clam-1)) ((4) (CoreC-45Context-setFlag arg-0 arg-1 arg-3 (vector 0 ) clam-1)) ((5) (CoreC-45Context-setFlag arg-0 arg-1 arg-3 (vector 0 ) clam-1)) ((6) (CoreC-45Context-setFlag arg-0 arg-1 arg-3 (vector 1 ) clam-1)) ((7) (let ((e-2 (vector-ref sc1 1))) (CoreC-45Context-setFlag arg-0 arg-1 arg-3 (vector 4 e-2) clam-1))) ((8) (CoreC-45Context-setFlag arg-0 arg-1 arg-3 (vector 6 ) clam-1)) (else (let ((e-3 (vector-ref sc1 1))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact arg-3 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) e-0))) clam-1))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((act-26 ((CoreC-45Normalise-nf arg-0 '() e-5 '() (let ((sc5 e-1)) (let ((e-2 (vector-ref sc5 3))) e-2))) clam-1))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-27 (TTImpC-45ProcessType-n--11028-4904-u--getNamePos arg-2 e-3 arg-3 arg-1 arg-0 0 e-7 clam-1))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc6 1))) (let ((act-28 (TTImpC-45ProcessType-n--11028-4900-u--collectDDeps arg-2 e-3 arg-3 arg-1 arg-0 e-7 clam-1))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-29 (TTImpC-45ProcessType-n--11028-4903-u--collectSpec arg-2 e-3 arg-3 arg-1 arg-0 '() e-9 e-8 e-7 clam-1))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc8 1))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc9 eta-0)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))) (lambda (eta-0) (CoreC-45Context-addDef arg-0 arg-3 (let ((sc9 e-1)) (let ((e-0 (vector-ref sc9 1))) (let ((e-28 (vector-ref sc9 2))) (let ((e-2 (vector-ref sc9 3))) (let ((e-27 (vector-ref sc9 4))) (let ((e-4 (vector-ref sc9 5))) (let ((e-25 (vector-ref sc9 7))) (let ((e-24 (vector-ref sc9 8))) (let ((e-23 (vector-ref sc9 9))) (let ((e-22 (vector-ref sc9 10))) (let ((e-21 (vector-ref sc9 11))) (let ((e-11 (vector-ref sc9 12))) (let ((e-12 (vector-ref sc9 13))) (let ((e-13 (vector-ref sc9 14))) (let ((e-14 (vector-ref sc9 15))) (let ((e-15 (vector-ref sc9 16))) (let ((e-16 (vector-ref sc9 17))) (let ((e-17 (vector-ref sc9 18))) (let ((e-18 (vector-ref sc9 19))) (let ((e-19 (vector-ref sc9 20))) (let ((e-20 (vector-ref sc9 21))) (vector 0 e-0 e-28 e-2 e-27 e-4 e-10 e-25 e-24 e-23 e-22 e-21 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20)))))))))))))))))))))) eta-0)) clam-1))))))))))))))))))))))) (else (CoreC-45Context-undefinedName arg-0 arg-1 arg-3 clam-1)))))))))))))))))))))))))))))(else (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((2) (lambda (eta-0) (let ((act-24 (let ((act-24 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-1) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-1)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) arg-3 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (CoreC-45ContextC-45Log-log arg-0 "elab" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Adding local hint " (CoreC-45Name-u--show_Show_Name e-6))) eta-0)))))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (CoreC-45Context-addLocalHint arg-0 arg-3 eta-0)))))))(else (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (clam-1) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((3) (let ((e-4 (vector-ref sc1 1))) (CoreC-45Context-addGlobalHint arg-0 arg-3 e-4 clam-1)))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((3) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-1 "%globalhint is not valid in local definitions") clam-1)) ((4) (CoreC-45Context-setFlag arg-0 arg-1 arg-3 (vector 0 ) clam-1)) ((5) (CoreC-45Context-setFlag arg-0 arg-1 arg-3 (vector 0 ) clam-1)) ((6) (CoreC-45Context-setFlag arg-0 arg-1 arg-3 (vector 1 ) clam-1)) ((7) (let ((e-2 (vector-ref sc1 1))) (CoreC-45Context-setFlag arg-0 arg-1 arg-3 (vector 4 e-2) clam-1))) ((8) (CoreC-45Context-setFlag arg-0 arg-1 arg-3 (vector 6 ) clam-1)) (else (let ((e-3 (vector-ref sc1 1))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact arg-3 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) e-0))) clam-1))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((act-26 ((CoreC-45Normalise-nf arg-0 '() e-5 '() (let ((sc5 e-1)) (let ((e-2 (vector-ref sc5 3))) e-2))) clam-1))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-27 (TTImpC-45ProcessType-n--11028-4904-u--getNamePos arg-2 e-3 arg-3 arg-1 arg-0 0 e-7 clam-1))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc6 1))) (let ((act-28 (TTImpC-45ProcessType-n--11028-4900-u--collectDDeps arg-2 e-3 arg-3 arg-1 arg-0 e-7 clam-1))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-29 (TTImpC-45ProcessType-n--11028-4903-u--collectSpec arg-2 e-3 arg-3 arg-1 arg-0 '() e-9 e-8 e-7 clam-1))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc8 1))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc9 eta-0)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))) (lambda (eta-0) (CoreC-45Context-addDef arg-0 arg-3 (let ((sc9 e-1)) (let ((e-0 (vector-ref sc9 1))) (let ((e-28 (vector-ref sc9 2))) (let ((e-2 (vector-ref sc9 3))) (let ((e-27 (vector-ref sc9 4))) (let ((e-4 (vector-ref sc9 5))) (let ((e-25 (vector-ref sc9 7))) (let ((e-24 (vector-ref sc9 8))) (let ((e-23 (vector-ref sc9 9))) (let ((e-22 (vector-ref sc9 10))) (let ((e-21 (vector-ref sc9 11))) (let ((e-11 (vector-ref sc9 12))) (let ((e-12 (vector-ref sc9 13))) (let ((e-13 (vector-ref sc9 14))) (let ((e-14 (vector-ref sc9 15))) (let ((e-15 (vector-ref sc9 16))) (let ((e-16 (vector-ref sc9 17))) (let ((e-17 (vector-ref sc9 18))) (let ((e-18 (vector-ref sc9 19))) (let ((e-19 (vector-ref sc9 20))) (let ((e-20 (vector-ref sc9 21))) (vector 0 e-0 e-28 e-2 e-27 e-4 e-10 e-25 e-24 e-23 e-22 e-21 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20)))))))))))))))))))))) eta-0)) clam-1))))))))))))))))))))))) (else (CoreC-45Context-undefinedName arg-0 arg-1 arg-3 clam-1)))))))))))))))))))))))(else (lambda (clam-3) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((3) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-1 "%globalhint is not valid in local definitions") clam-3)) ((4) (CoreC-45Context-setFlag arg-0 arg-1 arg-3 (vector 0 ) clam-3)) ((5) (CoreC-45Context-setFlag arg-0 arg-1 arg-3 (vector 0 ) clam-3)) ((6) (CoreC-45Context-setFlag arg-0 arg-1 arg-3 (vector 1 ) clam-3)) ((7) (let ((e-2 (vector-ref sc0 1))) (CoreC-45Context-setFlag arg-0 arg-1 arg-3 (vector 4 e-2) clam-3))) ((8) (CoreC-45Context-setFlag arg-0 arg-1 arg-3 (vector 6 ) clam-3)) (else (let ((e-3 (vector-ref sc0 1))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact arg-3 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) clam-3))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((act-26 ((CoreC-45Normalise-nf arg-0 '() e-5 '() (let ((sc4 e-1)) (let ((e-2 (vector-ref sc4 3))) e-2))) clam-3))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-27 (TTImpC-45ProcessType-n--11028-4904-u--getNamePos arg-2 e-3 arg-3 arg-1 arg-0 0 e-7 clam-3))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-28 (TTImpC-45ProcessType-n--11028-4900-u--collectDDeps arg-2 e-3 arg-3 arg-1 arg-0 e-7 clam-3))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-29 (TTImpC-45ProcessType-n--11028-4903-u--collectSpec arg-2 e-3 arg-3 arg-1 arg-0 '() e-9 e-8 e-7 clam-3))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc7 1))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc8 eta-0)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))) (lambda (eta-0) (CoreC-45Context-addDef arg-0 arg-3 (let ((sc8 e-1)) (let ((e-0 (vector-ref sc8 1))) (let ((e-28 (vector-ref sc8 2))) (let ((e-2 (vector-ref sc8 3))) (let ((e-27 (vector-ref sc8 4))) (let ((e-4 (vector-ref sc8 5))) (let ((e-25 (vector-ref sc8 7))) (let ((e-24 (vector-ref sc8 8))) (let ((e-23 (vector-ref sc8 9))) (let ((e-22 (vector-ref sc8 10))) (let ((e-21 (vector-ref sc8 11))) (let ((e-11 (vector-ref sc8 12))) (let ((e-12 (vector-ref sc8 13))) (let ((e-13 (vector-ref sc8 14))) (let ((e-14 (vector-ref sc8 15))) (let ((e-15 (vector-ref sc8 16))) (let ((e-16 (vector-ref sc8 17))) (let ((e-17 (vector-ref sc8 18))) (let ((e-18 (vector-ref sc8 19))) (let ((e-19 (vector-ref sc8 20))) (let ((e-20 (vector-ref sc8 21))) (vector 0 e-0 e-28 e-2 e-27 e-4 e-10 e-25 e-24 e-23 e-22 e-21 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20)))))))))))))))))))))) eta-0)) clam-3))))))))))))))))))))))) (else (CoreC-45Context-undefinedName arg-0 arg-1 arg-3 clam-3))))))))))))))))))))))))))))))))) -(define TTImpC-45ProcessType-initDef (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (if (null? sc0) (lambda (eta-0) (let ((act-24 (CoreC-45Context-addUserHole arg-1 arg-4 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 0 ))))))) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((4) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (CoreC-45Normalise-getArity arg-1 arg-0 e-5 arg-5 arg-6 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 (vector 2 e-6)))))))))))))) ((5) (let ((e-4 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (CoreC-45Normalise-getArity arg-1 arg-0 e-5 arg-5 arg-6 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (CoreC-45Core-traverseC-39 (lambda (eta-1) (lambda (eta-2) (TTImpC-45ProcessType-getFnString arg-1 arg-2 arg-3 eta-1 eta-2))) e-4 '() eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (vector 1 (vector 3 e-6 e-7))))))))))))))))))))(else (TTImpC-45ProcessType-initDef arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3)))))))))) -(define TTImpC-45ProcessType-getRetTy (lambda (arg-0 arg-1 ext-0) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((act-24 (((e-4 arg-0) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 e-1 1))) ext-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (TTImpC-45ProcessType-getRetTy arg-0 e-5 ext-0)))))))(else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-1) "Can only add hints for concrete return types") ext-0)))))))) ((3) (let ((e-7 (vector-ref sc0 2))) (vector 1 e-7)))(else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-1) "Can only add hints for concrete return types") ext-0)))))) -(define TTImpC-45ProcessType-getFnString (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((28) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((10) (let ((e-2 (vector-ref sc1 1))) (vector 1 e-2)))(else (let ((act-24 (CoreC-45Context-resolveName arg-0 (vector 1 "[foreign]") ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((u--fc (TTImpC-45TTImp-getFC arg-3))) (let ((u--gstr (CoreC-45Normalise-gnf '() '() (vector 9 u--fc (vector 24 ))))) (let ((act-25 (TTImpC-45Elab-checkTerm '() arg-0 arg-1 arg-2 e-5 (vector 2 ) '() '() '() arg-3 u--gstr ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (let ((act-26 (unbox arg-0))) (vector 1 act-26)))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((CoreC-45Normalise-nf arg-0 '() e-7 '() e-6) ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((8) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 e-2)) (case (vector-ref sc6 0) ((10) (let ((e-4 (vector-ref sc6 1))) (vector 1 e-4)))(else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 u--fc "%foreign calling convention must evaluate to a String") ext-0))))))(else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 u--fc "%foreign calling convention must evaluate to a String") ext-0)))))))))))))))))))))))))))))))(else (let ((act-24 (CoreC-45Context-resolveName arg-0 (vector 1 "[foreign]") ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((u--fc (TTImpC-45TTImp-getFC arg-3))) (let ((u--gstr (CoreC-45Normalise-gnf '() '() (vector 9 u--fc (vector 24 ))))) (let ((act-25 (TTImpC-45Elab-checkTerm '() arg-0 arg-1 arg-2 e-5 (vector 2 ) '() '() '() arg-3 u--gstr ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (let ((act-26 (unbox arg-0))) (vector 1 act-26)))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 ((CoreC-45Normalise-nf arg-0 '() e-7 '() e-6) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (case (vector-ref sc4 0) ((8) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 e-2)) (case (vector-ref sc5 0) ((10) (let ((e-3 (vector-ref sc5 1))) (vector 1 e-3)))(else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 u--fc "%foreign calling convention must evaluate to a String") ext-0))))))(else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 u--fc "%foreign calling convention must evaluate to a String") ext-0))))))))))))))))))))))))))))))) -(define TTImpC-45ProcessType-findInferrable (lambda (arg-0 arg-1 arg-2) (TTImpC-45ProcessType-n--12595-6210-u--fi arg-2 arg-1 arg-0 0 0 '() '() arg-2))) -(define TTImpC-45Elab-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32elabTermSub-6295 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 ext-0) (let ((sc0 arg-32)) (cond ((equal? sc0 0) (let ((act-24 (CoreC-45UnifyState-checkUserHolesAfter arg-11 arg-13 arg-20 (PreludeC-45Basics-C-124C-124 arg-16 (lambda () arg-15)) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (CoreC-45LinearCheck-linearCheck arg-1 arg-13 arg-11 (TTImpC-45TTImp-getFC arg-3) arg-23 1 arg-6 arg-31 ext-0)))))) (else (vector 1 arg-31)))))) -(define TTImpC-45Elab-case--elabTermSub-5350 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 ext-0) (let ((sc0 arg-17)) (cond ((equal? sc0 0) (CoreC-45UnifyState-saveHoles arg-11 ext-0)) (else (vector 1 (LibrariesC-45DataC-45IntMap-empty))))))) -(define TTImpC-45Elab-case--elabTermSubC-44addHoles-5186 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-19)) (case (vector-ref sc0 0) ((0) (TTImpC-45Elab-n--13490-5171-u--addHoles arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-18 arg-17 arg-16)) (else (TTImpC-45Elab-n--13490-5171-u--addHoles arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (LibrariesC-45DataC-45IntMap-insert arg-14 arg-15 arg-18) arg-17 arg-16)))))) -(define TTImpC-45Elab-case--normaliseHoleTypesC-44normaliseH-5052 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((7) (TTImpC-45Elab-n--13307-4985-u--updateType arg-0 arg-1 arg-3 arg-2 arg-5 ext-0))(else (vector 1 (vector 0 ))))))) -(define TTImpC-45Elab-case--getRigNeeded-4968 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (AlgebraC-45Semiring-erased (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)))) (else (AlgebraC-45Semiring-linear (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)))))))) -(define TTImpC-45Elab-case--doPLetRenames-4900 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-5 (car sc1))) (let ((e-6 (cdr sc1))) (vector 3 arg-4 e-6 (CoreC-45TT-setMultiplicity arg-3 (AlgebraC-45Preorder-lub (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-60C-61_Preorder_ZeroOneOmega arg-355 arg-356))) (lambda (u--x) (AlgebraC-45ZeroOneOmega-u--preorderRefl_Preorder_ZeroOneOmega u--x)) (lambda (u--x) (lambda (u--y) (lambda (u--z) (lambda (arg-358) (lambda (arg-360) (AlgebraC-45ZeroOneOmega-u--preorderTrans_Preorder_ZeroOneOmega u--x u--y u--z arg-358 arg-360))))))) e-5 (CoreC-45TT-multiplicity arg-3))) (TTImpC-45Elab-doPLetRenames (cons e-6 arg-0) arg-6 (cons e-6 arg-5) (CoreC-45TT-renameTop e-6 arg-2)))))))) (else (vector 3 arg-4 arg-1 arg-3 (TTImpC-45Elab-doPLetRenames (cons arg-1 arg-0) arg-6 arg-5 arg-2))))))) -(define TTImpC-45Elab-case--doPLetRenames-4836 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (cond ((equal? sc0 0) (CoreC-45TTC-45SubstEnv-subst (vector 10 arg-8 1) (TTImpC-45Elab-doPLetRenames (cons arg-5 arg-0) arg-10 arg-9 arg-6))) (else (vector 3 arg-8 arg-5 arg-7 (TTImpC-45Elab-doPLetRenames (cons arg-5 arg-0) arg-10 arg-9 arg-6))))))) -(define TTImpC-45Elab-case--findPLetRenames-4735 (lambda (arg-0 arg-1 arg-3 arg-4 arg-5 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((2) (cons (cons arg-12 (cons arg-8 arg-9)) (TTImpC-45Elab-findPLetRenames (cons arg-9 arg-0) arg-10)))(else (TTImpC-45Elab-findPLetRenames (cons arg-9 arg-0) arg-10)))))) -(define TTImpC-45Elab-n--13307-4985-u--updateType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (CoreC-45Normalise-normaliseHoles arg-1 '() arg-2 '() (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 3))) e-2)) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc1 eta-0)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))) (lambda (eta-0) (CoreC-45Context-addDef arg-1 (vector 9 arg-3) (let ((sc1 arg-4)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-21 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (vector 0 e-0 e-1 e-5 e-3 e-4 e-21 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20)))))))))))))))))))))) eta-0)) ext-0)))))))) -(define TTImpC-45Elab-n--13307-4986-u--normaliseH (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 ((CoreC-45Context-lookupCtxtExact (vector 9 arg-3) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) e-0))) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (TTImpC-45Elab-case--normaliseHoleTypesC-44normaliseH-5052 arg-0 arg-1 arg-3 arg-2 e-5 e-1 (let ((sc2 e-1)) (let ((e-17 (vector-ref sc2 18))) e-17)) ext-0))) (else (vector 1 (vector 0 )))))))))))) -(define TTImpC-45Elab-n--15274-6676-u--bindImpsC-39 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 ext-0) (let ((sc0 arg-17)) (if (null? sc0) (vector 1 arg-18) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (let ((e-6 (car sc1))) (let ((act-24 (TTImpC-45Elab-n--15274-6676-u--bindImpsC-39 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 e-3 arg-18 ext-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (vector 1 arg-15 (AlgebraC-45Semiring-erased (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))) (vector 0 ) (vector 1 e-6) (vector 32 arg-15 0) e-5))))))))))))))) -(define TTImpC-45Elab-n--15274-6677-u--bindImps (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (case (vector-ref sc0 0) ((16) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (TTImpC-45Elab-n--15274-6676-u--bindImpsC-39 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 e-2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 16 e-0 e-1 e-5))))))))))))(else (lambda (eta-0) (TTImpC-45Elab-n--15274-6676-u--bindImpsC-39 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 eta-0))))))) -(define TTImpC-45Elab-n--13490-5171-u--addHoles (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (if (null? sc0) arg-14 (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (TTImpC-45Elab-case--elabTermSubC-44addHoles-5186 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-6 e-7 e-3 arg-15 arg-14 (LibrariesC-45DataC-45IntMap-lookup e-6 arg-15))))))))))) -(define TTImpC-45Elab-normaliseHoleTypes (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((u--hs (LibrariesC-45DataC-45IntMap-keys (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))))) (let ((act-25 (let ((act-25 (unbox arg-0))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (CoreC-45Core-traverse_ (lambda (eta-0) (lambda (eta-1) (TTImpC-45Elab-n--13307-4986-u--normaliseH arg-1 arg-0 e-6 eta-0 eta-1))) u--hs ext-0)))))))))))))) -(define TTImpC-45Elab-getRigNeeded (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (AlgebraC-45Semiring-erased (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)))) ((1) (let ((e-0 (vector-ref sc0 1))) (TTImpC-45Elab-case--getRigNeeded-4968 e-0 (AlgebraC-45Semiring-isErased (cons (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-2) (lambda (arg-3) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-4 arg-5))))) e-0))))(else (AlgebraC-45Semiring-linear (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)))))))) -(define TTImpC-45Elab-findPLetRenames (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((4) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (let ((e-9 (vector-ref sc1 4))) (let ((sc2 e-8)) (case (vector-ref sc2 0) ((0) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (let ((e-14 (vector-ref sc2 3))) (TTImpC-45Elab-case--findPLetRenames-4735 arg-0 e-6 e-12 e-13 e-14 e-9 e-7 e-2 e-4 e-1 (CoreC-45TT-nameAt arg-0 e-14))))))(else (TTImpC-45Elab-findPLetRenames (cons e-2 arg-0) e-4)))))))))(else (TTImpC-45Elab-findPLetRenames (cons e-2 arg-0) e-4)))))))))(else '()))))) -(define TTImpC-45Elab-elabTermSub (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((u--incase (PreludeC-45Types-elem (cons (lambda (arg-14) (lambda (arg-15) (TTImpC-45ElabC-45Check-u--C-61C-61_Eq_ElabOpt arg-14 arg-15))) (lambda (arg-14) (lambda (arg-15) (TTImpC-45ElabC-45Check-u--C-47C-61_Eq_ElabOpt arg-14 arg-15)))) (vector 1 ) arg-7))) (let ((u--inPE (PreludeC-45Types-elem (cons (lambda (arg-14) (lambda (arg-15) (TTImpC-45ElabC-45Check-u--C-61C-61_Eq_ElabOpt arg-14 arg-15))) (lambda (arg-14) (lambda (arg-15) (TTImpC-45ElabC-45Check-u--C-47C-61_Eq_ElabOpt arg-14 arg-15)))) (vector 2 ) arg-7))) (let ((u--inTrans (PreludeC-45Types-elem (cons (lambda (arg-14) (lambda (arg-15) (TTImpC-45ElabC-45Check-u--C-61C-61_Eq_ElabOpt arg-14 arg-15))) (lambda (arg-14) (lambda (arg-15) (TTImpC-45ElabC-45Check-u--C-47C-61_Eq_ElabOpt arg-14 arg-15)))) (vector 3 ) arg-7))) (lambda (eta-0) (let ((act-24 (TTImpC-45Elab-case--elabTermSub-5350 arg-0 arg-1 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 u--incase u--inPE u--inTrans (let ((sc0 u--incase)) (cond ((equal? sc0 0) 1) (else 0))) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (unbox arg-4))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((u--olddelayed (let ((sc2 e-6)) (let ((e-8 (vector-ref sc2 9))) e-8)))) (let ((act-26 (let ((act-26 (set-box! arg-4 (let ((sc2 e-6)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (let ((e-3 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-11 (vector-ref sc2 6))) (let ((e-10 (vector-ref sc2 7))) (let ((e-7 (vector-ref sc2 8))) (let ((e-9 (vector-ref sc2 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-11 e-10 e-7 '() e-9)))))))))))))) (vector 1 act-26)))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-27 (CoreC-45Context-getNextEntry arg-2 eta-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (let ((act-28 (unbox arg-2))) (vector 1 act-28)))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-29 (CoreC-45Core-newRef (vector "TTImp.Elab.Check.EST" ) (TTImpC-45ElabC-45Check-initEStateSub arg-0 arg-5 arg-10 arg-11) eta-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc5 1))) (let ((u--rigc (TTImpC-45Elab-getRigNeeded arg-6))) (let ((act-30 ((TTImpC-45ElabC-45Check-check arg-1 arg-2 arg-3 arg-4 e-10 u--rigc (TTImpC-45ElabC-45Check-initElabInfo arg-6) arg-8 arg-9 arg-12 arg-13) eta-0))) (let ((sc6 act-30)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc6 1))) (let ((sc7 e-11)) (let ((e-2 (car sc7))) (let ((e-3 (cdr sc7))) (let ((u--solvemode (let ((sc8 arg-6)) (case (vector-ref sc8 0) ((1) (CoreC-45Unify-inLHS))(else (CoreC-45Unify-inTerm)))))) (let ((act-31 (CoreC-45Unify-solveConstraints arg-2 arg-4 u--solvemode (vector 0 ) eta-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((act-32 (CoreC-45ContextC-45Log-logTerm arg-1 arg-2 "elab" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Looking for delayed in ") e-2 eta-0))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((act-33 (let ((act-33 (unbox arg-4))) (vector 1 act-33)))) (let ((sc10 act-33)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-14 (vector-ref sc10 1))) (let ((act-34 (CoreC-45Core-u--catch_Catchable_Core_Error (lambda (eta-1) (TTImpC-45ElabC-45Delayed-retryDelayed arg-1 arg-2 arg-3 arg-4 e-10 (DataC-45List-sortBy (lambda (u--x) (lambda (u--y) (PreludeC-45Types-u--compare_Ord_Nat (Builtin-fst u--x) (Builtin-fst u--y)))) (let ((sc11 e-14)) (let ((e-16 (vector-ref sc11 9))) e-16))) eta-1)) (lambda (u--err) (lambda (eta-1) (let ((act-34 (let ((act-34 (unbox arg-4))) (vector 1 act-34)))) (let ((sc11 act-34)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((e-15 (vector-ref sc11 1))) (let ((act-35 (let ((act-35 (set-box! arg-4 (let ((sc12 e-15)) (let ((e-0 (vector-ref sc12 1))) (let ((e-1 (vector-ref sc12 2))) (let ((e-22 (vector-ref sc12 3))) (let ((e-21 (vector-ref sc12 4))) (let ((e-4 (vector-ref sc12 5))) (let ((e-20 (vector-ref sc12 6))) (let ((e-19 (vector-ref sc12 7))) (let ((e-18 (vector-ref sc12 8))) (let ((e-16 (vector-ref sc12 10))) (vector 0 e-0 e-1 e-22 e-21 e-4 e-20 e-19 e-18 u--olddelayed e-16)))))))))))))) (vector 1 act-35)))) (let ((sc12 act-35)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (CoreC-45Core-u--throw_Catchable_Core_Error u--err eta-1)))))))))))) eta-0))) (let ((sc11 act-34)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((act-35 (let ((act-35 (unbox arg-4))) (vector 1 act-35)))) (let ((sc12 act-35)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (let ((e-16 (vector-ref sc12 1))) (let ((act-36 (let ((act-36 (set-box! arg-4 (let ((sc13 e-16)) (let ((e-0 (vector-ref sc13 1))) (let ((e-1 (vector-ref sc13 2))) (let ((e-23 (vector-ref sc13 3))) (let ((e-22 (vector-ref sc13 4))) (let ((e-4 (vector-ref sc13 5))) (let ((e-21 (vector-ref sc13 6))) (let ((e-20 (vector-ref sc13 7))) (let ((e-19 (vector-ref sc13 8))) (let ((e-17 (vector-ref sc13 10))) (vector 0 e-0 e-1 e-23 e-22 e-4 e-21 e-20 e-19 u--olddelayed e-17)))))))))))))) (vector 1 act-36)))) (let ((sc13 act-36)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (vector 0 e-4))) (else (let ((act-37 (CoreC-45Unify-solveConstraintsAfter arg-2 arg-4 e-8 u--solvemode (vector 2 ) eta-0))) (let ((sc14 act-37)) (case (vector-ref sc14 0) ((0) (let ((e-4 (vector-ref sc14 1))) (vector 0 e-4))) (else (let ((act-38 (let ((sc15 (PreludeC-45Basics-C-124C-124 (let ((sc16 u--incase)) (cond ((equal? sc16 0) 1) (else 0))) (lambda () (DataC-45Maybe-isJust (TTImpC-45ElabC-45Check-isLHS arg-6)))))) (cond ((equal? sc15 0) (let ((act-38 (CoreC-45ContextC-45Log-log arg-2 "elab" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Resolving default hints") eta-0))) (let ((sc16 act-38)) (case (vector-ref sc16 0) ((0) (let ((e-4 (vector-ref sc16 1))) (vector 0 e-4))) (else (let ((act-39 (CoreC-45Unify-solveConstraintsAfter arg-2 arg-4 e-8 u--solvemode (vector 1 ) eta-0))) (let ((sc17 act-39)) (case (vector-ref sc17 0) ((0) (let ((e-4 (vector-ref sc17 1))) (vector 0 e-4))) (else (CoreC-45Unify-solveConstraintsAfter arg-2 arg-4 e-8 u--solvemode (vector 3 ) eta-0)))))))))) (else (vector 1 (vector 0 ))))))) (let ((sc15 act-38)) (case (vector-ref sc15 0) ((0) (let ((e-4 (vector-ref sc15 1))) (vector 0 e-4))) (else (let ((act-39 (CoreC-45UnifyState-dumpConstraints arg-4 arg-2 "elab" (+ 1 (+ 1 (+ 1 (+ 1 0)))) 1 eta-0))) (let ((sc16 act-39)) (case (vector-ref sc16 0) ((0) (let ((e-4 (vector-ref sc16 1))) (vector 0 e-4))) (else (let ((act-40 (let ((act-40 (unbox arg-2))) (vector 1 act-40)))) (let ((sc17 act-40)) (case (vector-ref sc17 0) ((0) (let ((e-4 (vector-ref sc17 1))) (vector 0 e-4))) (else (let ((e-21 (vector-ref sc17 1))) (let ((act-41 (let ((sc18 u--inPE)) (cond ((equal? sc18 0) (CoreC-45Normalise-normaliseHoles arg-2 arg-1 e-21 arg-9 e-2 eta-0)) (else (CoreC-45Normalise-normaliseArgHoles arg-2 arg-1 e-21 arg-9 e-2 eta-0)))))) (let ((sc18 act-41)) (case (vector-ref sc18 0) ((0) (let ((e-4 (vector-ref sc18 1))) (vector 0 e-4))) (else (let ((e-22 (vector-ref sc18 1))) (let ((act-42 (let ((_-0 (cons e-2 e-3))) (let ((sc19 arg-6)) (case (vector-ref sc19 0) ((1) (let ((act-42 (let ((sc20 u--incase)) (cond ((equal? sc20 0) (vector 1 (vector 0 ))) (else (CoreC-45UnifyState-checkUserHolesAfter arg-4 arg-2 e-8 0 eta-0)))))) (let ((sc20 act-42)) (case (vector-ref sc20 0) ((0) (let ((e-4 (vector-ref sc20 1))) (vector 0 e-4))) (else (vector 1 e-22)))))) ((3) (let ((act-42 (let ((sc20 u--incase)) (cond ((equal? sc20 0) (vector 1 (vector 0 ))) (else (CoreC-45UnifyState-checkUserHolesAfter arg-4 arg-2 e-8 0 eta-0)))))) (let ((sc20 act-42)) (case (vector-ref sc20 0) ((0) (let ((e-4 (vector-ref sc20 1))) (vector 0 e-4))) (else (vector 1 e-22))))))(else (TTImpC-45Elab-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32elabTermSub-6295 arg-0 arg-1 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 u--incase u--inPE u--inTrans e-5 e-6 u--olddelayed e-8 e-9 e-10 u--rigc e-2 e-3 _-0 u--solvemode e-14 e-16 e-21 e-22 (let ((sc19 u--incase)) (cond ((equal? sc19 0) 1) (else 0))) eta-0))))))) (let ((sc19 act-42)) (case (vector-ref sc19 0) ((0) (let ((e-4 (vector-ref sc19 1))) (vector 0 e-4))) (else (let ((e-23 (vector-ref sc19 1))) (let ((act-43 (TTImpC-45Elab-normaliseHoleTypes arg-2 arg-4 eta-0))) (let ((sc20 act-43)) (case (vector-ref sc20 0) ((0) (let ((e-4 (vector-ref sc20 1))) (vector 0 e-4))) (else (let ((act-44 (let ((sc21 u--incase)) (cond ((equal? sc21 0) (vector 1 (vector 0 ))) (else (let ((act-44 (CoreC-45UnifyState-getHoles arg-4 eta-0))) (let ((sc22 act-44)) (case (vector-ref sc22 0) ((0) (let ((e-4 (vector-ref sc22 1))) (vector 0 e-4))) (else (let ((e-25 (vector-ref sc22 1))) (CoreC-45UnifyState-restoreHoles arg-4 (TTImpC-45Elab-n--13490-5171-u--addHoles arg-0 arg-1 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 (LibrariesC-45DataC-45IntMap-empty) e-25 (LibrariesC-45DataC-45IntMap-toList e-5)) eta-0))))))))))) (let ((sc21 act-44)) (case (vector-ref sc21 0) ((0) (let ((e-4 (vector-ref sc21 1))) (vector 0 e-4))) (else (let ((act-45 (let ((act-45 (unbox e-10))) (vector 1 act-45)))) (let ((sc22 act-45)) (case (vector-ref sc22 0) ((0) (let ((e-4 (vector-ref sc22 1))) (vector 0 e-4))) (else (let ((e-26 (vector-ref sc22 1))) (let ((act-46 (CoreC-45Core-traverse_ (lambda (eta-1) (lambda (eta-2) (TTImpC-45Elab-addHoleToSave arg-2 eta-1 eta-2))) (LibrariesC-45DataC-45NameMap-keys (let ((sc23 e-26)) (let ((e-28 (vector-ref sc23 12))) e-28))) eta-0))) (let ((sc23 act-46)) (case (vector-ref sc23 0) ((0) (let ((e-4 (vector-ref sc23 1))) (vector 0 e-4))) (else (let ((sc24 arg-6)) (case (vector-ref sc24 0) ((1) (let ((u--vs (TTImpC-45Elab-findPLetRenames arg-1 e-23))) (let ((u--ret (TTImpC-45Elab-doPLetRenames arg-1 u--vs '() e-23))) (let ((act-47 ((CoreC-45Normalise-getTerm e-3) eta-0))) (let ((sc25 act-47)) (case (vector-ref sc25 0) ((0) (let ((e-4 (vector-ref sc25 1))) (vector 0 e-4))) (else (let ((e-28 (vector-ref sc25 1))) (vector 1 (cons u--ret (CoreC-45Normalise-gnf arg-1 arg-9 (TTImpC-45Elab-doPLetRenames arg-1 u--vs '() e-28))))))))))))(else (let ((act-47 (CoreC-45UnifyState-dumpConstraints arg-4 arg-2 "elab" (+ 1 (+ 1 0)) 1 eta-0))) (let ((sc24 act-47)) (case (vector-ref sc24 0) ((0) (let ((e-4 (vector-ref sc24 1))) (vector 0 e-4))) (else (vector 1 (cons e-23 e-3))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) +(define TTImpC-45ProcessDecls-process (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (case (vector-ref arg-7 0) ((0) (let ((e-0 (vector-ref arg-7 1))) (let ((e-1 (vector-ref arg-7 2))) (let ((e-2 (vector-ref arg-7 3))) (let ((e-3 (vector-ref arg-7 4))) (let ((e-4 (vector-ref arg-7 5))) (lambda (eta-0) (TTImpC-45ProcessType-processType arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-0 e-1 e-2 e-3 e-4 eta-0)))))))) ((1) (let ((e-5 (vector-ref arg-7 1))) (let ((e-6 (vector-ref arg-7 2))) (let ((e-7 (vector-ref arg-7 3))) (lambda (eta-0) (TTImpC-45ProcessData-processData arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-6 e-7 eta-0)))))) ((2) (let ((e-8 (vector-ref arg-7 1))) (let ((e-9 (vector-ref arg-7 2))) (let ((e-10 (vector-ref arg-7 3))) (lambda (eta-0) (TTImpC-45ProcessDef-processDef arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-8 e-9 e-10 eta-0)))))) ((3) (let ((e-11 (vector-ref arg-7 1))) (let ((e-12 (vector-ref arg-7 2))) (let ((e-13 (vector-ref arg-7 3))) (TTImpC-45ProcessParams-processParams arg-0 arg-1 arg-2 arg-3 arg-5 arg-6 e-11 e-12 e-13))))) ((4) (let ((e-15 (vector-ref arg-7 2))) (let ((e-16 (vector-ref arg-7 3))) (let ((e-17 (vector-ref arg-7 4))) (lambda (eta-0) (TTImpC-45ProcessRecord-processRecord arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-15 e-16 e-17 eta-0)))))) ((5) (let ((e-19 (vector-ref arg-7 2))) (let ((e-20 (vector-ref arg-7 3))) (lambda (eta-0) (CoreC-45Context-withExtendedNS arg-1 e-19 (lambda (eta-1) (CoreC-45Core-traverse_ (lambda (eta-2) (TTImpC-45ElabC-45Check-processDecl arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-2)) e-20 eta-1)) eta-0))))) ((6) (let ((e-21 (vector-ref arg-7 1))) (let ((e-22 (vector-ref arg-7 2))) (let ((e-23 (vector-ref arg-7 3))) (let ((e-24 (vector-ref arg-7 4))) (lambda (eta-0) (TTImpC-45ProcessTransform-processTransform arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-21 e-22 e-23 e-24 eta-0))))))) ((7) (let ((e-25 (vector-ref arg-7 1))) (let ((e-26 (vector-ref arg-7 2))) (lambda (eta-0) (TTImpC-45ProcessRunElab-processRunElab arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-25 e-26 eta-0))))) ((8) (let ((e-28 (vector-ref arg-7 2))) (((e-28 arg-0) arg-5) arg-6))) ((9) (let ((e-29 (vector-ref arg-7 1))) (lambda (eta-0) (CoreC-45Context-addLogLevel arg-1 (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (PreludeC-45Types-u--map_Functor_Maybe eta-3 eta-4))))) (lambda (eta-1) (PreludeC-45Basics-uncurry (lambda (eta-2) (lambda (eta-3) (CoreC-45OptionsC-45Log-unsafeMkLogLevel eta-2 eta-3))) eta-1)) e-29) eta-0)))) (else (let ((e-30 (vector-ref arg-7 1))) (let ((e-31 (vector-ref arg-7 2))) (let ((e-32 (vector-ref arg-7 3))) (lambda (eta-0) (TTImpC-45ProcessBuiltin-processBuiltin arg-1 arg-5 arg-6 e-30 e-31 e-32 eta-0))))))))) +(define TTImpC-45ProcessDecls-getTotalityErrors (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (TTImpC-45ProcessDecls-checkTotalityOK arg-0 eta-0 eta-1))) (LibrariesC-45DataC-45NameMap-keys (let ((e-29 (vector-ref e-5 5))) e-29)) '() ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (DataC-45List-mapMaybe (lambda (eta-0) eta-0) e-6)))))))))))) +(define TTImpC-45ProcessDecls-checkTotalityOK (lambda (arg-0 arg-1 ext-0) (case (vector-ref arg-1 0) ((0) (let ((e-1 (vector-ref arg-1 2))) (case (vector-ref e-1 0) ((2) (vector 1 '())) ((7) (vector 1 '()))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact arg-1 (let ((e-31 (vector-ref e-5 0))) e-31)) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (if (null? e-6) (vector 1 '()) (let ((e-2 (unbox e-6))) (let ((u--fc (let ((e-25 (vector-ref e-2 0))) e-25))) (let ((act-26 (let ((e-17 (vector-ref e-2 17))) (case (vector-ref e-17 0) ((6) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-34 (vector-ref eta-0 1))) (vector 0 e-34))) (else (vector 1 0)))) (lambda (eta-0) (CoreC-45Termination-checkPositive arg-0 u--fc arg-1 eta-0)) ext-0))(else (vector 1 0)))))) (case (vector-ref act-26 0) ((0) (let ((e-3 (vector-ref act-26 1))) (vector 0 e-3))) (else (let ((act-27 (CoreC-45Context-getDefaultTotalityOption arg-0 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-3 (vector-ref act-27 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref act-27 1))) (let ((u--treq (DataC-45Maybe-fromMaybe (lambda () e-8) (CoreC-45Context-findSetTotal (let ((e-11 (vector-ref e-2 11))) e-11))))) (let ((u--tot (let ((e-10 (vector-ref e-2 10))) e-10))) (let ((act-28 (CoreC-45ContextC-45Log-log arg-0 "totality" (+ 1 (+ 1 (+ 1 0))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name arg-1) (PreludeC-45TypesC-45String-C-43C-43 " must be: " (CoreC-45TT-u--show_Show_TotalReq u--treq)))) ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-3 (vector-ref act-28 1))) (vector 0 e-3))) (else (cond ((equal? u--treq 2) (vector 1 '())) ((equal? u--treq 1) (TTImpC-45ProcessDecls-n--9617-6117-u--checkCovering arg-1 arg-0 u--fc (let ((e-3 (cdr u--tot))) e-3) ext-0)) (else (TTImpC-45ProcessDecls-n--9617-6118-u--checkTotality arg-1 arg-0 u--fc ext-0))))))))))))))))))))))))))))))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact arg-1 (let ((e-0 (vector-ref e-5 0))) e-0)) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (if (null? e-6) (vector 1 '()) (let ((e-1 (unbox e-6))) (let ((u--fc (let ((e-0 (vector-ref e-1 0))) e-0))) (let ((act-26 (let ((e-17 (vector-ref e-1 17))) (case (vector-ref e-17 0) ((6) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-32 (vector-ref eta-0 1))) (vector 0 e-32))) (else (vector 1 0)))) (lambda (eta-0) (CoreC-45Termination-checkPositive arg-0 u--fc arg-1 eta-0)) ext-0))(else (vector 1 0)))))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((act-27 (CoreC-45Context-getDefaultTotalityOption arg-0 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (let ((u--treq (DataC-45Maybe-fromMaybe (lambda () e-8) (CoreC-45Context-findSetTotal (let ((e-11 (vector-ref e-1 11))) e-11))))) (let ((u--tot (let ((e-10 (vector-ref e-1 10))) e-10))) (let ((act-28 (CoreC-45ContextC-45Log-log arg-0 "totality" (+ 1 (+ 1 (+ 1 0))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name arg-1) (PreludeC-45TypesC-45String-C-43C-43 " must be: " (CoreC-45TT-u--show_Show_TotalReq u--treq)))) ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (cond ((equal? u--treq 2) (vector 1 '())) ((equal? u--treq 1) (TTImpC-45ProcessDecls-n--9617-6117-u--checkCovering arg-1 arg-0 u--fc (let ((e-2 (cdr u--tot))) e-2) ext-0)) (else (TTImpC-45ProcessDecls-n--9617-6118-u--checkTotality arg-1 arg-0 u--fc ext-0)))))))))))))))))))))))))))))) +(define TTImpC-45ProcessType-case--findInferrableC-44findInf-7502 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (if (null? arg-7) (vector 1 arg-6) (let ((e-2 (unbox arg-7))) (let ((sc1 (PreludeC-45Types-elem (cons (lambda (arg-8) (lambda (arg-9) (PreludeC-45Types-u--C-61C-61_Eq_Nat arg-8 arg-9))) (lambda (arg-8) (lambda (arg-9) (PreludeC-45Types-u--C-47C-61_Eq_Nat arg-8 arg-9)))) e-2 arg-6))) (cond ((equal? sc1 1) (vector 1 arg-6)) (else (vector 1 (cons e-2 arg-6))))))))) +(define TTImpC-45ProcessType-case--processFnOptC-44insertDeps-6194 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (if (null? arg-9) (TTImpC-45ProcessType-n--7499-6172-u--insertDeps arg-0 arg-1 arg-2 arg-3 arg-4 arg-8 arg-7 arg-6) (let ((e-2 (unbox arg-9))) (let ((sc1 (PreludeC-45Types-elem (cons (lambda (arg-10) (lambda (arg-11) (PreludeC-45Types-u--C-61C-61_Eq_Nat arg-10 arg-11))) (lambda (arg-10) (lambda (arg-11) (PreludeC-45Types-u--C-47C-61_Eq_Nat arg-10 arg-11)))) e-2 arg-8))) (cond ((equal? sc1 1) (TTImpC-45ProcessType-n--7499-6172-u--insertDeps arg-0 arg-1 arg-2 arg-3 arg-4 arg-8 arg-7 arg-6)) (else (TTImpC-45ProcessType-n--7499-6172-u--insertDeps arg-0 arg-1 arg-2 arg-3 arg-4 (cons e-2 arg-8) arg-7 arg-6)))))))) +(define TTImpC-45ProcessType-n--7657-6583-u--splitPs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (if (null? arg-14) (cons '() '()) (let ((e-2 (car arg-14))) (let ((e-3 (cdr arg-14))) (let ((sc1 (TTImpC-45ProcessType-n--7657-6583-u--splitPs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 (PreludeC-45Types-u--C-43_Num_Nat (PreludeC-45Types-u--fromInteger_Num_Nat 1) arg-12) arg-13 e-3))) (let ((e-5 (car sc1))) (let ((e-4 (cdr sc1))) (let ((sc2 (PreludeC-45Types-elem (cons (lambda (arg-15) (lambda (arg-16) (PreludeC-45Types-u--C-61C-61_Eq_Nat arg-15 arg-16))) (lambda (arg-15) (lambda (arg-16) (PreludeC-45Types-u--C-47C-61_Eq_Nat arg-15 arg-16)))) arg-12 arg-13))) (cond ((equal? sc2 1) (cons (cons e-2 e-5) e-4)) (else (cons e-5 (cons e-2 e-4))))))))))))) +(define TTImpC-45ProcessType-n--9605-8010-u--isNested (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29) (case (vector-ref arg-29 0) ((6) 1) ((0) (let ((e-3 (vector-ref arg-29 2))) (TTImpC-45ProcessType-n--9605-8010-u--isNested arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 e-3)))(else 0)))) +(define TTImpC-45ProcessType-n--7499-6172-u--insertDeps (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (if (null? arg-7) arg-5 (let ((e-2 (car arg-7))) (let ((e-3 (cdr arg-7))) (TTImpC-45ProcessType-case--processFnOptC-44insertDeps-6194 arg-0 arg-1 arg-2 arg-3 arg-4 e-2 e-3 arg-6 arg-5 (DataC-45List-lookup (cons (lambda (arg-8) (lambda (arg-9) (CoreC-45Name-u--C-61C-61_Eq_Name arg-8 arg-9))) (lambda (arg-8) (lambda (arg-9) (CoreC-45Name-u--C-47C-61_Eq_Name arg-8 arg-9)))) e-2 arg-6))))))) +(define TTImpC-45ProcessType-n--7499-6177-u--getNamePos (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (case (vector-ref arg-6 0) ((0) (let ((e-1 (vector-ref arg-6 1))) (let ((e-2 (vector-ref arg-6 2))) (let ((e-3 (vector-ref arg-6 3))) (let ((e-4 (vector-ref arg-6 4))) (case (vector-ref e-3 0) ((2) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (let ((act-25 (((e-4 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 e-1 0))) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (TTImpC-45ProcessType-n--7499-6177-u--getNamePos arg-0 arg-1 arg-2 arg-3 arg-4 (PreludeC-45Types-u--C-43_Num_Nat (PreludeC-45Types-u--fromInteger_Num_Nat 1) arg-5) e-10 ext-0))))))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (vector 1 (cons (cons e-2 arg-5) e-10)))))))))))(else (vector 1 '()))))))))(else (vector 1 '()))))) +(define TTImpC-45ProcessType-n--7499-6174-u--getDepsArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (if (null? arg-6) (vector 1 arg-7) (let ((e-2 (car arg-6))) (let ((e-3 (cdr arg-6))) (let ((act-24 ((TTImpC-45ProcessType-n--7499-6175-u--getDeps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2 arg-7) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (TTImpC-45ProcessType-n--7499-6174-u--getDepsArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3 e-5 ext-0)))))))))) +(define TTImpC-45ProcessType-n--7499-6175-u--getDeps (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (case (vector-ref arg-6 0) ((0) (let ((e-3 (vector-ref arg-6 3))) (let ((e-4 (vector-ref arg-6 4))) (lambda (clam-0) (case (vector-ref e-3 0) ((2) (let ((e-29 (vector-ref e-3 4))) (let ((act-24 ((TTImpC-45ProcessType-n--7499-6175-u--getDeps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-29 arg-7) clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (let ((act-25 (unbox arg-4))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-6 (vector-ref act-25 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (((e-4 e-6) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-3 0))) clam-0))) (case (vector-ref act-26 0) ((0) (let ((e-7 (vector-ref act-26 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-26 1))) ((TTImpC-45ProcessType-n--7499-6175-u--getDeps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-7 e-5) clam-0)))))))))))))))(else (let ((act-24 ((TTImpC-45ProcessType-n--7499-6175-u--getDeps arg-0 arg-1 arg-2 arg-3 arg-4 0 (CoreC-45TT-binderType e-3) arg-7) clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((act-25 (let ((act-25 (unbox arg-4))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-6 (vector-ref act-25 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (((e-4 e-6) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-3 0))) clam-0))) (case (vector-ref act-26 0) ((0) (let ((e-7 (vector-ref act-26 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-26 1))) ((TTImpC-45ProcessType-n--7499-6175-u--getDeps arg-0 arg-1 arg-2 arg-3 arg-4 0 e-7 arg-7) clam-0)))))))))))))))))) ((1) (let ((e-7 (vector-ref arg-6 2))) (let ((e-8 (vector-ref arg-6 3))) (lambda (clam-0) (case (vector-ref e-7 0) ((1) (let ((e-31 (vector-ref e-7 1))) (let ((e-32 (vector-ref e-7 2))) (case (vector-ref e-31 0) ((0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-4 '() e-5 (Builtin-snd eta-0))) e-8 '() clam-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-25 1))) (TTImpC-45ProcessType-n--7499-6174-u--getDepsArgs arg-0 arg-1 arg-2 arg-3 arg-4 0 e-9 arg-7 clam-0))))))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-25 1))) (vector 1 (LibrariesC-45DataC-45NameMap-insert e-32 arg-5 e-9)))))))))))(else (vector 1 arg-7))))))(else (vector 1 arg-7))))))) ((2) (let ((e-14 (vector-ref arg-6 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (eta-1) (CoreC-45Normalise-evalClosure arg-4 '() e-5 (Builtin-snd eta-1))) e-14 '() eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (TTImpC-45ProcessType-n--7499-6174-u--getDepsArgs arg-0 arg-1 arg-2 arg-3 arg-4 0 e-6 arg-7 eta-0)))))))))))) ((3) (let ((e-16 (vector-ref arg-6 1))) (let ((e-17 (vector-ref arg-6 2))) (let ((e-18 (vector-ref arg-6 3))) (let ((e-19 (vector-ref arg-6 4))) (let ((e-20 (vector-ref arg-6 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (let ((act-25 (CoreC-45Context-lookupDefExact e-17 (let ((e-0 (vector-ref e-5 0))) e-0) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (if (null? e-6) (vector 1 '()) (let ((e-1 (unbox e-6))) (case (vector-ref e-1 0) ((6) (let ((e-4 (vector-ref e-1 3))) (vector 1 e-4)))(else (vector 1 '()))))))))))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((sc3 (TTImpC-45ProcessType-n--7657-6583-u--splitPs arg-0 arg-1 arg-2 arg-3 arg-4 e-16 e-20 e-19 e-18 e-17 arg-7 arg-5 0 e-6 (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) e-20)))) (let ((e-2 (car sc3))) (let ((e-3 (cdr sc3))) (let ((act-26 (let ((act-26 (CoreC-45Core-traverseC-39 (lambda (eta-1) (CoreC-45Normalise-evalClosure arg-4 '() e-5 eta-1)) e-2 '() eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-4 (vector-ref act-26 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref act-26 1))) (TTImpC-45ProcessType-n--7499-6174-u--getDepsArgs arg-0 arg-1 arg-2 arg-3 arg-4 1 e-7 arg-7 eta-0))))))) (case (vector-ref act-26 0) ((0) (let ((e-4 (vector-ref act-26 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-1) (CoreC-45Normalise-evalClosure arg-4 '() e-5 eta-1)) e-3 '() eta-0))) (case (vector-ref act-27 0) ((0) (let ((e-4 (vector-ref act-27 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref act-27 1))) (TTImpC-45ProcessType-n--7499-6174-u--getDepsArgs arg-0 arg-1 arg-2 arg-3 arg-4 0 e-8 e-7 eta-0))))))))))))))))))))))))))) ((5) (let ((e-24 (vector-ref arg-6 3))) (TTImpC-45ProcessType-n--7499-6175-u--getDeps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-24 arg-7)))(else (lambda (eta-0) (vector 1 arg-7)))))) +(define TTImpC-45ProcessType-n--9097-7472-u--findInfs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (if (null? arg-5) (vector 1 arg-3) (let ((e-2 (car arg-5))) (let ((e-3 (cdr arg-5))) (let ((act-24 (TTImpC-45ProcessType-n--9097-7472-u--findInfs arg-0 arg-1 arg-2 arg-3 arg-4 e-3 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) ((TTImpC-45ProcessType-n--9097-7471-u--findInf arg-0 arg-1 arg-2 e-5 arg-4 e-2) ext-0)))))))))) +(define TTImpC-45ProcessType-n--9097-7471-u--findInf (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (case (vector-ref arg-5 0) ((1) (let ((e-1 (vector-ref arg-5 1))) (let ((e-2 (vector-ref arg-5 2))) (let ((e-3 (vector-ref arg-5 3))) (case (vector-ref e-2 0) ((1) (let ((e-21 (vector-ref e-2 1))) (let ((e-22 (vector-ref e-2 2))) (case (vector-ref e-21 0) ((0) (if (null? e-3) (lambda (eta-0) (TTImpC-45ProcessType-case--findInferrableC-44findInf-7502 arg-0 arg-1 arg-2 e-1 e-22 arg-4 arg-3 (DataC-45List-lookup (cons (lambda (arg-6) (lambda (arg-7) (CoreC-45Name-u--C-61C-61_Eq_Name arg-6 arg-7))) (lambda (arg-6) (lambda (arg-7) (CoreC-45Name-u--C-47C-61_Eq_Name arg-6 arg-7)))) e-22 arg-4) eta-0)) (lambda (eta-0) (vector 1 arg-3))))(else (lambda (eta-0) (vector 1 arg-3)))))))(else (lambda (eta-0) (vector 1 arg-3)))))))) ((2) (let ((e-9 (vector-ref arg-5 5))) (lambda (eta-0) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-1) (CoreC-45Normalise-evalClosure arg-2 '() arg-1 (Builtin-snd eta-1))) e-9 '() eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref act-24 1))) (TTImpC-45ProcessType-n--9097-7472-u--findInfs arg-0 arg-1 arg-2 arg-3 arg-4 e-10 eta-0)))))))) ((3) (let ((e-15 (vector-ref arg-5 5))) (lambda (eta-0) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-1) (CoreC-45Normalise-evalClosure arg-2 '() arg-1 (Builtin-snd eta-1))) e-15 '() eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (TTImpC-45ProcessType-n--9097-7472-u--findInfs arg-0 arg-1 arg-2 arg-3 arg-4 e-5 eta-0)))))))) ((5) (let ((e-19 (vector-ref arg-5 3))) (TTImpC-45ProcessType-n--9097-7471-u--findInf arg-0 arg-1 arg-2 arg-3 arg-4 e-19)))(else (lambda (eta-0) (vector 1 arg-3)))))) +(define TTImpC-45ProcessType-n--9097-7473-u--fi (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (case (vector-ref arg-7 0) ((0) (let ((e-1 (vector-ref arg-7 1))) (let ((e-3 (vector-ref arg-7 3))) (let ((e-4 (vector-ref arg-7 4))) (case (vector-ref e-3 0) ((2) (let ((e-9 (vector-ref e-3 4))) (let ((u--argn (vector 2 "inf" arg-4))) (lambda (eta-0) (let ((act-24 (((e-4 arg-1) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 1 e-1 (vector 0 ) u--argn))) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((TTImpC-45ProcessType-n--9097-7471-u--findInf arg-0 arg-1 arg-2 arg-6 arg-5 e-9) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (let ((act-26 ((TTImpC-45ProcessType-n--9097-7473-u--fi arg-0 arg-1 arg-2 (PreludeC-45Types-u--C-43_Num_Nat (PreludeC-45Types-u--fromInteger_Num_Nat 1) arg-3) (bs+ (blodwen-toSignedInt 1 63) arg-4 63) (cons (cons u--argn arg-3) arg-5) e-10 e-5) eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-11 (vector-ref act-26 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-26 1))) (vector 1 e-11)))))))))))))))))(else (TTImpC-45ProcessType-n--9097-7471-u--findInf arg-0 arg-1 arg-2 arg-6 arg-5 arg-7)))))))(else (TTImpC-45ProcessType-n--9097-7471-u--findInf arg-0 arg-1 arg-2 arg-6 arg-5 arg-7))))) +(define TTImpC-45ProcessType-n--7499-6176-u--collectSpec (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 ext-0) (case (vector-ref arg-8 0) ((0) (let ((e-1 (vector-ref arg-8 1))) (let ((e-2 (vector-ref arg-8 2))) (let ((e-3 (vector-ref arg-8 3))) (let ((e-4 (vector-ref arg-8 4))) (case (vector-ref e-3 0) ((2) (let ((e-9 (vector-ref e-3 4))) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-clearDefs e-5 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((act-26 (((e-4 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 1 e-1 (vector 0 ) e-2))) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-11 (vector-ref act-26 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-26 1))) (let ((sc5 (PreludeC-45Types-elem (cons (lambda (arg-9) (lambda (arg-10) (CoreC-45Name-u--C-61C-61_Eq_Name arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (CoreC-45Name-u--C-47C-61_Eq_Name arg-9 arg-10)))) e-2 arg-1))) (cond ((equal? sc5 1) (let ((act-27 ((TTImpC-45ProcessType-n--7499-6175-u--getDeps arg-0 arg-1 arg-2 arg-3 arg-4 1 e-9 (LibrariesC-45DataC-45NameMap-empty)) ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-12 (vector-ref act-27 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref act-27 1))) (let ((u--rs (DataC-45List-filter (lambda (u--x) (let ((sc7 (Builtin-snd u--x))) (cond ((equal? sc7 1) 1) (else (let ((sc8 (PreludeC-45Types-elem (cons (lambda (arg-9) (lambda (arg-10) (CoreC-45Name-u--C-61C-61_Eq_Name arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (CoreC-45Name-u--C-47C-61_Eq_Name arg-9 arg-10)))) (Builtin-fst u--x) arg-6))) (cond ((equal? sc8 1) 0) (else 1))))))) (LibrariesC-45DataC-45NameMap-toList e-12)))) (let ((u--accC-39 (TTImpC-45ProcessType-n--7499-6172-u--insertDeps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 (cons e-2 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-fst eta-0)) u--rs))))) (TTImpC-45ProcessType-n--7499-6176-u--collectSpec arg-0 arg-1 arg-2 arg-3 arg-4 u--accC-39 arg-6 arg-7 e-11 ext-0)))))))) (else (TTImpC-45ProcessType-n--7499-6176-u--collectSpec arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-11 ext-0)))))))))))))))))(else (vector 1 arg-5))))))))(else (vector 1 arg-5))))) +(define TTImpC-45ProcessType-n--7499-6173-u--collectDDeps (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (case (vector-ref arg-5 0) ((0) (let ((e-1 (vector-ref arg-5 1))) (let ((e-2 (vector-ref arg-5 2))) (let ((e-3 (vector-ref arg-5 3))) (let ((e-4 (vector-ref arg-5 4))) (case (vector-ref e-3 0) ((2) (let ((e-9 (vector-ref e-3 4))) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-clearDefs e-5 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (let ((act-26 (((e-4 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 1 e-1 (vector 0 ) e-2))) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-11 (vector-ref act-26 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-26 1))) (let ((sc5 (PreludeC-45Types-elem (cons (lambda (arg-6) (lambda (arg-7) (CoreC-45Name-u--C-61C-61_Eq_Name arg-6 arg-7))) (lambda (arg-6) (lambda (arg-7) (CoreC-45Name-u--C-47C-61_Eq_Name arg-6 arg-7)))) e-2 arg-1))) (cond ((equal? sc5 1) (TTImpC-45ProcessType-n--7499-6173-u--collectDDeps arg-0 arg-1 arg-2 arg-3 arg-4 e-11 ext-0)) (else (let ((act-27 (CoreC-45Normalise-u--quote_Quote_NF arg-4 '() e-10 '() e-9 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-12 (vector-ref act-27 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref act-27 1))) (let ((u--deps (LibrariesC-45DataC-45NameMap-keys (CoreC-45TT-getRefs (vector 1 "_") e-12)))) (let ((act-28 (TTImpC-45ProcessType-n--7499-6173-u--collectDDeps arg-0 arg-1 arg-2 arg-3 arg-4 e-11 ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-13 (vector-ref act-28 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref act-28 1))) (vector 1 (PreludeC-45TypesC-45List-C-43C-43 e-13 u--deps))))))))))))))))))))))))))))(else (vector 1 '()))))))))(else (vector 1 '()))))) +(define TTImpC-45ProcessType-processType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 ext-0) (let ((e-0 (vector-ref arg-11 0))) (let ((e-1 (vector-ref arg-11 1))) (let ((e-2 (vector-ref arg-11 2))) (let ((e-3 (vector-ref arg-11 3))) (let ((act-24 (CoreC-45Context-inCurrentNS arg-1 e-2 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Metadata-addNameLoc arg-2 arg-1 e-1 e-5 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((act-26 (CoreC-45ContextC-45Log-log arg-1 "declare.type" (+ 1 0) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Processing " (CoreC-45Name-u--show_Show_Name e-5))) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-4 (vector-ref act-26 1))) (vector 0 e-4))) (else (let ((act-27 (CoreC-45ContextC-45Log-log arg-1 "declare.type" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (DataC-45String-unwords (cons "Checking type decl:" (cons (AlgebraC-45ZeroOneOmega-u--show_Show_ZeroOneOmega arg-8) (cons (CoreC-45Name-u--show_Show_Name e-5) (cons ":" (cons (TTImpC-45TTImp-u--show_Show_RawImp e-3) '()))))))) ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-4 (vector-ref act-27 1))) (vector 0 e-4))) (else (let ((act-28 (CoreC-45Context-resolveName arg-1 e-5 ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-4 (vector-ref act-28 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref act-28 1))) (let ((act-29 (let ((act-29 (unbox arg-1))) (vector 1 act-29)))) (case (vector-ref act-29 0) ((0) (let ((e-4 (vector-ref act-29 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref act-29 1))) (let ((act-30 ((CoreC-45Context-lookupCtxtExact (vector 9 e-9) (let ((e-38 (vector-ref e-10 0))) e-38)) ext-0))) (case (vector-ref act-30 0) ((0) (let ((e-4 (vector-ref act-30 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref act-30 1))) (if (null? e-11) (let ((act-31 ((TTImpC-45ElabC-45Utils-wrapErrorC arg-4 (lambda (eta-0) (vector 62 arg-7 e-5 eta-0)) (lambda (eta-0) (TTImpC-45Elab-checkTerm arg-0 arg-1 arg-2 arg-3 e-9 (vector 0 ) (cons 0 arg-4) arg-5 arg-6 (vector 16 arg-7 (vector 0 (AlgebraC-45Semiring-erased (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)))) e-3) (CoreC-45Normalise-gType arg-7) eta-0))) ext-0))) (case (vector-ref act-31 0) ((0) (let ((e-4 (vector-ref act-31 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref act-31 1))) (let ((act-32 (CoreC-45Normalise-logTermNF '() arg-1 "declare.type" (+ 1 (+ 1 (+ 1 0))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Type of " (CoreC-45Name-u--show_Show_Name e-5))) '() (CoreC-45Env-abstractFullEnvType arg-0 e-0 arg-6 e-12) ext-0))) (case (vector-ref act-32 0) ((0) (let ((e-4 (vector-ref act-32 1))) (vector 0 e-4))) (else (let ((act-33 ((TTImpC-45ProcessType-initDef arg-0 arg-1 arg-2 arg-3 e-5 arg-6 e-12 arg-10) ext-0))) (case (vector-ref act-33 0) ((0) (let ((e-4 (vector-ref act-33 1))) (vector 0 e-4))) (else (let ((e-14 (vector-ref act-33 1))) (let ((u--fullty (CoreC-45Env-abstractFullEnvType arg-0 e-0 arg-6 e-12))) (let ((act-34 (TTImpC-45ElabC-45Utils-findErased arg-1 u--fullty ext-0))) (case (vector-ref act-34 0) ((0) (let ((e-4 (vector-ref act-34 1))) (vector 0 e-4))) (else (let ((e-15 (vector-ref act-34 1))) (let ((_-0 '())) (let ((e-16 (car e-15))) (let ((e-4 (cdr e-15))) (let ((act-35 (let ((act-35 (unbox arg-1))) (vector 1 act-35)))) (case (vector-ref act-35 0) ((0) (let ((e-17 (vector-ref act-35 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref act-35 1))) (let ((act-36 (CoreC-45Context-clearDefs e-17 ext-0))) (case (vector-ref act-36 0) ((0) (let ((e-18 (vector-ref act-36 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref act-36 1))) (let ((act-37 (let ((act-37 ((CoreC-45Normalise-nf arg-1 '() e-17 '() u--fullty) ext-0))) (case (vector-ref act-37 0) ((0) (let ((e-19 (vector-ref act-37 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref act-37 1))) ((TTImpC-45ProcessType-findInferrable arg-1 e-18 e-19) ext-0))))))) (case (vector-ref act-37 0) ((0) (let ((e-19 (vector-ref act-37 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref act-37 1))) (let ((act-38 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-20 (vector-ref eta-0 1))) (vector 0 e-20))) (else (vector 1 0)))) (lambda (eta-0) (CoreC-45Context-addDef arg-1 (vector 9 e-9) (let ((sc16 (CoreC-45Context-newDef arg-7 e-5 arg-8 arg-0 u--fullty arg-9 e-14))) (let ((e-40 (vector-ref sc16 0))) (let ((e-39 (vector-ref sc16 1))) (let ((e-38 (vector-ref sc16 2))) (let ((e-35 (vector-ref sc16 5))) (let ((e-33 (vector-ref sc16 7))) (let ((e-32 (vector-ref sc16 8))) (let ((e-31 (vector-ref sc16 9))) (let ((e-30 (vector-ref sc16 10))) (let ((e-29 (vector-ref sc16 11))) (let ((e-28 (vector-ref sc16 12))) (let ((e-27 (vector-ref sc16 13))) (let ((e-26 (vector-ref sc16 14))) (let ((e-25 (vector-ref sc16 15))) (let ((e-24 (vector-ref sc16 16))) (let ((e-23 (vector-ref sc16 17))) (let ((e-22 (vector-ref sc16 18))) (let ((e-21 (vector-ref sc16 19))) (let ((e-20 (vector-ref sc16 20))) (vector e-40 e-39 e-38 e-16 e-4 e-35 e-19 e-33 e-32 e-31 e-30 e-29 e-28 e-27 e-26 e-25 e-24 e-23 e-22 e-21 e-20)))))))))))))))))))) eta-0)) ext-0))) (case (vector-ref act-38 0) ((0) (let ((e-20 (vector-ref act-38 1))) (vector 0 e-20))) (else (let ((act-39 (let ((sc17 (PreludeC-45Types-elem (cons (lambda (arg-12) (lambda (arg-13) (TTImpC-45ElabC-45Check-u--C-61C-61_Eq_ElabOpt arg-12 arg-13))) (lambda (arg-12) (lambda (arg-13) (TTImpC-45ElabC-45Check-u--C-47C-61_Eq_ElabOpt arg-12 arg-13)))) 1 arg-4))) (cond ((equal? sc17 1) (vector 1 0)) (else (CoreC-45Context-setLinearCheck arg-1 e-9 1 ext-0)))))) (case (vector-ref act-39 0) ((0) (let ((e-21 (vector-ref act-39 1))) (vector 0 e-21))) (else (let ((act-40 (CoreC-45ContextC-45Log-log arg-1 "declare.type" (+ 1 (+ 1 0)) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Setting options for " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-5) (PreludeC-45TypesC-45String-C-43C-43 ": " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (TTImpC-45TTImp-u--show_Show_FnOpt u--x)) (lambda (u--d) (lambda (u--x) (TTImpC-45TTImp-u--showPrec_Show_FnOpt u--d u--x)))) arg-10))))) ext-0))) (case (vector-ref act-40 0) ((0) (let ((e-22 (vector-ref act-40 1))) (vector 0 e-22))) (else (let ((u--name (vector 9 e-9))) (let ((act-41 (CoreC-45Core-traverse_ (lambda (eta-0) (TTImpC-45ProcessType-processFnOpt arg-1 arg-7 (let ((sc19 (TTImpC-45ProcessType-n--9605-8010-u--isNested e-3 e-2 e-1 e-0 arg-10 arg-9 arg-8 arg-7 arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-9 e-10 _-0 e-12 e-14 u--fullty e-16 e-4 e-15 e-17 e-18 e-19 u--name e-5))) (cond ((equal? sc19 1) 0) (else 1))) u--name eta-0)) arg-10 ext-0))) (case (vector-ref act-41 0) ((0) (let ((e-23 (vector-ref act-41 1))) (vector 0 e-23))) (else (let ((act-42 (let ((act-42 (CoreC-45Context-getDefaultTotalityOption arg-1 ext-0))) (case (vector-ref act-42 0) ((0) (let ((e-24 (vector-ref act-42 1))) (vector 0 e-24))) (else (let ((e-24 (vector-ref act-42 1))) (let ((sc21 (PreludeC-45Interfaces-any (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (lambda (eta-0) (TTImpC-45TTImp-isTotalityReq eta-0)) arg-10))) (cond ((equal? sc21 1) (vector 1 0)) (else (CoreC-45Context-setFlag arg-1 arg-7 u--name (vector 4 e-24) ext-0)))))))))) (case (vector-ref act-42 0) ((0) (let ((e-24 (vector-ref act-42 1))) (vector 0 e-24))) (else (let ((act-43 (CoreC-45Metadata-addTyDecl arg-0 arg-1 arg-2 arg-7 (vector 9 e-9) arg-6 e-12 ext-0))) (case (vector-ref act-43 0) ((0) (let ((e-25 (vector-ref act-43 1))) (vector 0 e-25))) (else (let ((act-44 (CoreC-45ContextC-45Log-log arg-1 "metadata.names" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))))) (lambda () "processType is adding \u2193") ext-0))) (case (vector-ref act-44 0) ((0) (let ((e-26 (vector-ref act-44 1))) (vector 0 e-26))) (else (let ((act-45 (CoreC-45Metadata-addNameType arg-0 arg-1 arg-2 e-1 (vector 9 e-9) arg-6 e-12 ext-0))) (case (vector-ref act-45 0) ((0) (let ((e-27 (vector-ref act-45 1))) (vector 0 e-27))) (else (let ((act-46 (CoreC-45Core-traverse_ (lambda (eta-0) (lambda (eta-1) (CoreC-45Context-addToSave arg-1 eta-0 eta-1))) (LibrariesC-45DataC-45NameMap-keys (CoreC-45TT-getMetas e-12)) ext-0))) (case (vector-ref act-46 0) ((0) (let ((e-28 (vector-ref act-46 1))) (vector 0 e-28))) (else (let ((act-47 (CoreC-45Context-addToSave arg-1 e-5 ext-0))) (case (vector-ref act-47 0) ((0) (let ((e-29 (vector-ref act-47 1))) (vector 0 e-29))) (else (let ((act-48 (CoreC-45ContextC-45Log-log arg-1 "declare.type" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Saving from " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-5) (PreludeC-45TypesC-45String-C-43C-43 ": " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45Name-u--show_Show_Name u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Name-u--showPrec_Show_Name u--d u--x)))) (LibrariesC-45DataC-45NameMap-keys (CoreC-45TT-getMetas e-12))))))) ext-0))) (case (vector-ref act-48 0) ((0) (let ((e-30 (vector-ref act-48 1))) (vector 0 e-30))) (else (let ((sc27 (CoreC-45TT-u--C-47C-61_Eq_Visibility arg-9 0))) (cond ((equal? sc27 1) (let ((act-49 (CoreC-45Context-addHashWithNames arg-1 (cons (lambda (arg-529) (CoreC-45Hash-u--hash_Hashable_Name arg-529)) (lambda (arg-530) (lambda (arg-531) (CoreC-45Hash-u--hashWithSalt_Hashable_Name arg-530 arg-531)))) (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-0))))) e-5 ext-0))) (case (vector-ref act-49 0) ((0) (let ((e-31 (vector-ref act-49 1))) (vector 0 e-31))) (else (CoreC-45Context-addHashWithNames arg-1 (cons (lambda (arg-529) (CoreC-45Hash-u--hash_Hashable_C-40TermC-32C-36varsC-41 arg-529)) (lambda (arg-530) (lambda (arg-531) (CoreC-45Hash-u--hashWithSalt_Hashable_C-40TermC-32C-36varsC-41 arg-530 arg-531)))) (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-0))))) e-12 ext-0))))) (else (vector 1 0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 38 arg-7 e-5) ext-0))))))))))))))))))))))))))))))))) +(define TTImpC-45ProcessType-processFnOpt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (case (vector-ref arg-4 0) ((0) (lambda (eta-0) (CoreC-45Context-setFlag arg-0 arg-1 arg-3 (vector 0 ) eta-0))) ((1) (lambda (eta-0) (CoreC-45Context-setFlag arg-0 arg-1 arg-3 (vector 3 ) eta-0)))(else (cond ((equal? arg-2 1) (case (vector-ref arg-4 0) ((2) (let ((e-6 (vector-ref arg-4 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-lookupTyExact arg-3 (let ((e-0 (vector-ref e-5 0))) e-0) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-25 1))) (if (null? e-7) (CoreC-45Context-undefinedName arg-0 arg-1 arg-3 eta-0) (let ((e-1 (unbox e-7))) (let ((act-26 (let ((act-26 ((CoreC-45Normalise-nf arg-0 '() e-5 '() e-1) eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-26 1))) (TTImpC-45ProcessType-getRetTy e-5 e-8 eta-0))))))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-26 1))) (CoreC-45Context-addHintFor arg-0 arg-1 e-8 arg-3 e-6 0 eta-0))))))))))))))))))(else (case (vector-ref arg-4 0) ((2) (lambda (eta-0) (let ((act-24 (let ((act-24 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-1) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-1)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-1) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-1))))) arg-3 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-24 1))) (CoreC-45ContextC-45Log-log arg-0 "elab" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Adding local hint " (CoreC-45Name-u--show_Show_Name e-6))) eta-0))))))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (CoreC-45Context-addLocalHint arg-0 arg-3 eta-0))))))(else (cond ((equal? arg-2 1) (lambda (clam-0) (case (vector-ref arg-4 0) ((3) (let ((e-4 (vector-ref arg-4 1))) (CoreC-45Context-addGlobalHint arg-0 arg-3 e-4 clam-0)))(else (case (vector-ref arg-4 0) ((3) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-1 "%globalhint is not valid in local definitions") clam-0)) ((4) (CoreC-45Context-setFlag arg-0 arg-1 arg-3 (vector 0 ) clam-0)) ((5) (CoreC-45Context-setFlag arg-0 arg-1 arg-3 (vector 0 ) clam-0)) ((6) (CoreC-45Context-setFlag arg-0 arg-1 arg-3 (vector 1 ) clam-0)) ((7) (let ((e-2 (vector-ref arg-4 1))) (CoreC-45Context-setFlag arg-0 arg-1 arg-3 (vector 4 e-2) clam-0))) ((8) (CoreC-45Context-setFlag arg-0 arg-1 arg-3 (vector 6 ) clam-0)) (else (let ((e-3 (vector-ref arg-4 1))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact arg-3 (let ((e-0 (vector-ref e-5 0))) e-0)) clam-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (if (null? e-6) (CoreC-45Context-undefinedName arg-0 arg-1 arg-3 clam-0) (let ((e-1 (unbox e-6))) (let ((act-26 ((CoreC-45Normalise-nf arg-0 '() e-5 '() (let ((e-2 (vector-ref e-1 2))) e-2)) clam-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (TTImpC-45ProcessType-n--7499-6177-u--getNamePos arg-2 e-3 arg-3 arg-1 arg-0 0 e-7 clam-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (let ((act-28 (TTImpC-45ProcessType-n--7499-6173-u--collectDDeps arg-2 e-3 arg-3 arg-1 arg-0 e-7 clam-0))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-28 1))) (let ((act-29 (TTImpC-45ProcessType-n--7499-6176-u--collectSpec arg-2 e-3 arg-3 arg-1 arg-0 '() e-9 e-8 e-7 clam-0))) (case (vector-ref act-29 0) ((0) (let ((e-2 (vector-ref act-29 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref act-29 1))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-2 (vector-ref eta-0 1))) (vector 0 e-2))) (else (vector 1 0)))) (lambda (eta-0) (CoreC-45Context-addDef arg-0 arg-3 (let ((e-0 (vector-ref e-1 0))) (let ((e-28 (vector-ref e-1 1))) (let ((e-2 (vector-ref e-1 2))) (let ((e-27 (vector-ref e-1 3))) (let ((e-4 (vector-ref e-1 4))) (let ((e-25 (vector-ref e-1 6))) (let ((e-24 (vector-ref e-1 7))) (let ((e-23 (vector-ref e-1 8))) (let ((e-22 (vector-ref e-1 9))) (let ((e-21 (vector-ref e-1 10))) (let ((e-11 (vector-ref e-1 11))) (let ((e-12 (vector-ref e-1 12))) (let ((e-13 (vector-ref e-1 13))) (let ((e-14 (vector-ref e-1 14))) (let ((e-15 (vector-ref e-1 15))) (let ((e-16 (vector-ref e-1 16))) (let ((e-17 (vector-ref e-1 17))) (let ((e-18 (vector-ref e-1 18))) (let ((e-19 (vector-ref e-1 19))) (let ((e-20 (vector-ref e-1 20))) (vector e-0 e-28 e-2 e-27 e-4 e-10 e-25 e-24 e-23 e-22 e-21 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20))))))))))))))))))))) eta-0)) clam-0))))))))))))))))))))))))))))))))))(else (lambda (clam-1) (case (vector-ref arg-4 0) ((3) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-1 "%globalhint is not valid in local definitions") clam-1)) ((4) (CoreC-45Context-setFlag arg-0 arg-1 arg-3 (vector 0 ) clam-1)) ((5) (CoreC-45Context-setFlag arg-0 arg-1 arg-3 (vector 0 ) clam-1)) ((6) (CoreC-45Context-setFlag arg-0 arg-1 arg-3 (vector 1 ) clam-1)) ((7) (let ((e-2 (vector-ref arg-4 1))) (CoreC-45Context-setFlag arg-0 arg-1 arg-3 (vector 4 e-2) clam-1))) ((8) (CoreC-45Context-setFlag arg-0 arg-1 arg-3 (vector 6 ) clam-1)) (else (let ((e-3 (vector-ref arg-4 1))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact arg-3 (let ((e-0 (vector-ref e-5 0))) e-0)) clam-1))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (if (null? e-6) (CoreC-45Context-undefinedName arg-0 arg-1 arg-3 clam-1) (let ((e-1 (unbox e-6))) (let ((act-26 ((CoreC-45Normalise-nf arg-0 '() e-5 '() (let ((e-2 (vector-ref e-1 2))) e-2)) clam-1))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (TTImpC-45ProcessType-n--7499-6177-u--getNamePos arg-2 e-3 arg-3 arg-1 arg-0 0 e-7 clam-1))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (let ((act-28 (TTImpC-45ProcessType-n--7499-6173-u--collectDDeps arg-2 e-3 arg-3 arg-1 arg-0 e-7 clam-1))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-28 1))) (let ((act-29 (TTImpC-45ProcessType-n--7499-6176-u--collectSpec arg-2 e-3 arg-3 arg-1 arg-0 '() e-9 e-8 e-7 clam-1))) (case (vector-ref act-29 0) ((0) (let ((e-2 (vector-ref act-29 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref act-29 1))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-2 (vector-ref eta-0 1))) (vector 0 e-2))) (else (vector 1 0)))) (lambda (eta-0) (CoreC-45Context-addDef arg-0 arg-3 (let ((e-0 (vector-ref e-1 0))) (let ((e-28 (vector-ref e-1 1))) (let ((e-2 (vector-ref e-1 2))) (let ((e-27 (vector-ref e-1 3))) (let ((e-4 (vector-ref e-1 4))) (let ((e-25 (vector-ref e-1 6))) (let ((e-24 (vector-ref e-1 7))) (let ((e-23 (vector-ref e-1 8))) (let ((e-22 (vector-ref e-1 9))) (let ((e-21 (vector-ref e-1 10))) (let ((e-11 (vector-ref e-1 11))) (let ((e-12 (vector-ref e-1 12))) (let ((e-13 (vector-ref e-1 13))) (let ((e-14 (vector-ref e-1 14))) (let ((e-15 (vector-ref e-1 15))) (let ((e-16 (vector-ref e-1 16))) (let ((e-17 (vector-ref e-1 17))) (let ((e-18 (vector-ref e-1 18))) (let ((e-19 (vector-ref e-1 19))) (let ((e-20 (vector-ref e-1 20))) (vector e-0 e-28 e-2 e-27 e-4 e-10 e-25 e-24 e-23 e-22 e-21 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20))))))))))))))))))))) eta-0)) clam-1))))))))))))))))))))))))))))))))))))))(else (case (vector-ref arg-4 0) ((2) (lambda (eta-0) (let ((act-24 (let ((act-24 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-1) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-1)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-1) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-1))))) arg-3 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-24 1))) (CoreC-45ContextC-45Log-log arg-0 "elab" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Adding local hint " (CoreC-45Name-u--show_Show_Name e-6))) eta-0))))))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (CoreC-45Context-addLocalHint arg-0 arg-3 eta-0))))))(else (cond ((equal? arg-2 1) (lambda (clam-1) (case (vector-ref arg-4 0) ((3) (let ((e-4 (vector-ref arg-4 1))) (CoreC-45Context-addGlobalHint arg-0 arg-3 e-4 clam-1)))(else (case (vector-ref arg-4 0) ((3) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-1 "%globalhint is not valid in local definitions") clam-1)) ((4) (CoreC-45Context-setFlag arg-0 arg-1 arg-3 (vector 0 ) clam-1)) ((5) (CoreC-45Context-setFlag arg-0 arg-1 arg-3 (vector 0 ) clam-1)) ((6) (CoreC-45Context-setFlag arg-0 arg-1 arg-3 (vector 1 ) clam-1)) ((7) (let ((e-2 (vector-ref arg-4 1))) (CoreC-45Context-setFlag arg-0 arg-1 arg-3 (vector 4 e-2) clam-1))) ((8) (CoreC-45Context-setFlag arg-0 arg-1 arg-3 (vector 6 ) clam-1)) (else (let ((e-3 (vector-ref arg-4 1))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact arg-3 (let ((e-0 (vector-ref e-5 0))) e-0)) clam-1))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (if (null? e-6) (CoreC-45Context-undefinedName arg-0 arg-1 arg-3 clam-1) (let ((e-1 (unbox e-6))) (let ((act-26 ((CoreC-45Normalise-nf arg-0 '() e-5 '() (let ((e-2 (vector-ref e-1 2))) e-2)) clam-1))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (TTImpC-45ProcessType-n--7499-6177-u--getNamePos arg-2 e-3 arg-3 arg-1 arg-0 0 e-7 clam-1))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (let ((act-28 (TTImpC-45ProcessType-n--7499-6173-u--collectDDeps arg-2 e-3 arg-3 arg-1 arg-0 e-7 clam-1))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-28 1))) (let ((act-29 (TTImpC-45ProcessType-n--7499-6176-u--collectSpec arg-2 e-3 arg-3 arg-1 arg-0 '() e-9 e-8 e-7 clam-1))) (case (vector-ref act-29 0) ((0) (let ((e-2 (vector-ref act-29 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref act-29 1))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-2 (vector-ref eta-0 1))) (vector 0 e-2))) (else (vector 1 0)))) (lambda (eta-0) (CoreC-45Context-addDef arg-0 arg-3 (let ((e-0 (vector-ref e-1 0))) (let ((e-28 (vector-ref e-1 1))) (let ((e-2 (vector-ref e-1 2))) (let ((e-27 (vector-ref e-1 3))) (let ((e-4 (vector-ref e-1 4))) (let ((e-25 (vector-ref e-1 6))) (let ((e-24 (vector-ref e-1 7))) (let ((e-23 (vector-ref e-1 8))) (let ((e-22 (vector-ref e-1 9))) (let ((e-21 (vector-ref e-1 10))) (let ((e-11 (vector-ref e-1 11))) (let ((e-12 (vector-ref e-1 12))) (let ((e-13 (vector-ref e-1 13))) (let ((e-14 (vector-ref e-1 14))) (let ((e-15 (vector-ref e-1 15))) (let ((e-16 (vector-ref e-1 16))) (let ((e-17 (vector-ref e-1 17))) (let ((e-18 (vector-ref e-1 18))) (let ((e-19 (vector-ref e-1 19))) (let ((e-20 (vector-ref e-1 20))) (vector e-0 e-28 e-2 e-27 e-4 e-10 e-25 e-24 e-23 e-22 e-21 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20))))))))))))))))))))) eta-0)) clam-1))))))))))))))))))))))))))))))))))(else (lambda (clam-3) (case (vector-ref arg-4 0) ((3) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-1 "%globalhint is not valid in local definitions") clam-3)) ((4) (CoreC-45Context-setFlag arg-0 arg-1 arg-3 (vector 0 ) clam-3)) ((5) (CoreC-45Context-setFlag arg-0 arg-1 arg-3 (vector 0 ) clam-3)) ((6) (CoreC-45Context-setFlag arg-0 arg-1 arg-3 (vector 1 ) clam-3)) ((7) (let ((e-2 (vector-ref arg-4 1))) (CoreC-45Context-setFlag arg-0 arg-1 arg-3 (vector 4 e-2) clam-3))) ((8) (CoreC-45Context-setFlag arg-0 arg-1 arg-3 (vector 6 ) clam-3)) (else (let ((e-3 (vector-ref arg-4 1))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact arg-3 (let ((e-0 (vector-ref e-5 0))) e-0)) clam-3))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (if (null? e-6) (CoreC-45Context-undefinedName arg-0 arg-1 arg-3 clam-3) (let ((e-1 (unbox e-6))) (let ((act-26 ((CoreC-45Normalise-nf arg-0 '() e-5 '() (let ((e-2 (vector-ref e-1 2))) e-2)) clam-3))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (TTImpC-45ProcessType-n--7499-6177-u--getNamePos arg-2 e-3 arg-3 arg-1 arg-0 0 e-7 clam-3))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (let ((act-28 (TTImpC-45ProcessType-n--7499-6173-u--collectDDeps arg-2 e-3 arg-3 arg-1 arg-0 e-7 clam-3))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-28 1))) (let ((act-29 (TTImpC-45ProcessType-n--7499-6176-u--collectSpec arg-2 e-3 arg-3 arg-1 arg-0 '() e-9 e-8 e-7 clam-3))) (case (vector-ref act-29 0) ((0) (let ((e-2 (vector-ref act-29 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref act-29 1))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-2 (vector-ref eta-0 1))) (vector 0 e-2))) (else (vector 1 0)))) (lambda (eta-0) (CoreC-45Context-addDef arg-0 arg-3 (let ((e-0 (vector-ref e-1 0))) (let ((e-28 (vector-ref e-1 1))) (let ((e-2 (vector-ref e-1 2))) (let ((e-27 (vector-ref e-1 3))) (let ((e-4 (vector-ref e-1 4))) (let ((e-25 (vector-ref e-1 6))) (let ((e-24 (vector-ref e-1 7))) (let ((e-23 (vector-ref e-1 8))) (let ((e-22 (vector-ref e-1 9))) (let ((e-21 (vector-ref e-1 10))) (let ((e-11 (vector-ref e-1 11))) (let ((e-12 (vector-ref e-1 12))) (let ((e-13 (vector-ref e-1 13))) (let ((e-14 (vector-ref e-1 14))) (let ((e-15 (vector-ref e-1 15))) (let ((e-16 (vector-ref e-1 16))) (let ((e-17 (vector-ref e-1 17))) (let ((e-18 (vector-ref e-1 18))) (let ((e-19 (vector-ref e-1 19))) (let ((e-20 (vector-ref e-1 20))) (vector e-0 e-28 e-2 e-27 e-4 e-10 e-25 e-24 e-23 e-22 e-21 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20))))))))))))))))))))) eta-0)) clam-3))))))))))))))))))))))))))))))))))))))))) +(define TTImpC-45ProcessType-initDef (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (if (null? arg-7) (lambda (eta-0) (let ((act-24 (CoreC-45Context-addUserHole arg-1 arg-4 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))) (let ((e-2 (car arg-7))) (let ((e-3 (cdr arg-7))) (case (vector-ref e-2 0) ((4) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-getArity arg-1 arg-0 e-5 arg-5 arg-6 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (vector 2 e-6)))))))))))) ((5) (let ((e-4 (vector-ref e-2 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-getArity arg-1 arg-0 e-5 arg-5 arg-6 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-6 (vector-ref act-25 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Core-traverseC-39 (lambda (eta-1) (lambda (eta-2) (TTImpC-45ProcessType-getFnString arg-1 arg-2 arg-3 eta-1 eta-2))) e-4 '() eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-7 (vector-ref act-26 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (vector 3 e-6 e-7)))))))))))))))))(else (TTImpC-45ProcessType-initDef arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3)))))))) +(define TTImpC-45ProcessType-getRetTy (lambda (arg-0 arg-1 ext-0) (case (vector-ref arg-1 0) ((0) (let ((e-1 (vector-ref arg-1 1))) (let ((e-3 (vector-ref arg-1 3))) (let ((e-4 (vector-ref arg-1 4))) (case (vector-ref e-3 0) ((2) (let ((act-24 (((e-4 arg-0) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 e-1 0))) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (TTImpC-45ProcessType-getRetTy arg-0 e-5 ext-0))))))(else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-1) "Can only add hints for concrete return types") ext-0))))))) ((3) (let ((e-7 (vector-ref arg-1 2))) (vector 1 e-7)))(else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-1) "Can only add hints for concrete return types") ext-0))))) +(define TTImpC-45ProcessType-getFnString (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (case (vector-ref arg-3 0) ((28) (let ((e-1 (vector-ref arg-3 2))) (case (vector-ref e-1 0) ((10) (let ((e-2 (vector-ref e-1 1))) (vector 1 e-2)))(else (let ((act-24 (CoreC-45Context-resolveName arg-0 (vector 1 "[foreign]") ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((u--fc (TTImpC-45TTImp-getFC arg-3))) (let ((u--gstr (CoreC-45Normalise-gnf '() '() (vector 9 u--fc (vector 24 ))))) (let ((act-25 (TTImpC-45Elab-checkTerm '() arg-0 arg-1 arg-2 e-5 (vector 2 ) '() '() '() arg-3 u--gstr ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (let ((act-26 (unbox arg-0))) (vector 1 act-26)))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 ((CoreC-45Normalise-nf arg-0 '() e-7 '() e-6) ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (case (vector-ref e-8 0) ((8) (let ((e-2 (vector-ref e-8 2))) (case (vector-ref e-2 0) ((10) (let ((e-4 (vector-ref e-2 1))) (vector 1 e-4)))(else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 u--fc "%foreign calling convention must evaluate to a String") ext-0)))))(else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 u--fc "%foreign calling convention must evaluate to a String") ext-0)))))))))))))))))))))))))(else (let ((act-24 (CoreC-45Context-resolveName arg-0 (vector 1 "[foreign]") ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((u--fc (TTImpC-45TTImp-getFC arg-3))) (let ((u--gstr (CoreC-45Normalise-gnf '() '() (vector 9 u--fc (vector 24 ))))) (let ((act-25 (TTImpC-45Elab-checkTerm '() arg-0 arg-1 arg-2 e-5 (vector 2 ) '() '() '() arg-3 u--gstr ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (let ((act-26 (unbox arg-0))) (vector 1 act-26)))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 ((CoreC-45Normalise-nf arg-0 '() e-7 '() e-6) ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (case (vector-ref e-8 0) ((8) (let ((e-2 (vector-ref e-8 2))) (case (vector-ref e-2 0) ((10) (let ((e-3 (vector-ref e-2 1))) (vector 1 e-3)))(else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 u--fc "%foreign calling convention must evaluate to a String") ext-0)))))(else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 u--fc "%foreign calling convention must evaluate to a String") ext-0))))))))))))))))))))))))) +(define TTImpC-45ProcessType-findInferrable (lambda (arg-0 arg-1 arg-2) (TTImpC-45ProcessType-n--9097-7473-u--fi arg-2 arg-1 arg-0 0 0 '() '() arg-2))) +(define TTImpC-45Elab-case--doPLetRenames-6174 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (if (null? arg-7) (vector 3 arg-4 arg-1 arg-3 (TTImpC-45Elab-doPLetRenames (cons arg-1 arg-0) arg-6 arg-5 arg-2)) (let ((e-1 (unbox arg-7))) (let ((e-5 (car e-1))) (let ((e-6 (cdr e-1))) (vector 3 arg-4 e-6 (CoreC-45TT-setMultiplicity arg-3 (AlgebraC-45Preorder-lub (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-60C-61_Preorder_ZeroOneOmega arg-333 arg-334))) (lambda (u--x) (AlgebraC-45ZeroOneOmega-u--preorderRefl_Preorder_ZeroOneOmega u--x)) (lambda (u--x) (lambda (u--y) (lambda (u--z) (lambda (arg-338) (lambda (arg-342) (AlgebraC-45ZeroOneOmega-u--preorderTrans_Preorder_ZeroOneOmega u--x u--y u--z arg-338 arg-342))))))) e-5 (CoreC-45TT-multiplicity arg-3))) (TTImpC-45Elab-doPLetRenames (cons e-6 arg-0) arg-6 (cons e-6 arg-5) (CoreC-45TT-renameTop e-6 arg-2))))))))) +(define TTImpC-45Elab-case--findPLetRenames-6005 (lambda (arg-0 arg-1 arg-3 arg-4 arg-5 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (case (vector-ref arg-12 0) ((2) (cons (cons arg-12 (cons arg-8 arg-9)) (TTImpC-45Elab-findPLetRenames (cons arg-9 arg-0) arg-10)))(else (TTImpC-45Elab-findPLetRenames (cons arg-9 arg-0) arg-10))))) +(define TTImpC-45Elab-n--8691-6262-u--updateType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (CoreC-45Normalise-normaliseHoles arg-1 '() arg-2 '() (let ((e-2 (vector-ref arg-4 2))) e-2) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-2 (vector-ref eta-0 1))) (vector 0 e-2))) (else (vector 1 0)))) (lambda (eta-0) (CoreC-45Context-addDef arg-1 (vector 9 arg-3) (let ((e-0 (vector-ref arg-4 0))) (let ((e-1 (vector-ref arg-4 1))) (let ((e-3 (vector-ref arg-4 3))) (let ((e-4 (vector-ref arg-4 4))) (let ((e-21 (vector-ref arg-4 5))) (let ((e-6 (vector-ref arg-4 6))) (let ((e-7 (vector-ref arg-4 7))) (let ((e-8 (vector-ref arg-4 8))) (let ((e-9 (vector-ref arg-4 9))) (let ((e-10 (vector-ref arg-4 10))) (let ((e-11 (vector-ref arg-4 11))) (let ((e-12 (vector-ref arg-4 12))) (let ((e-13 (vector-ref arg-4 13))) (let ((e-14 (vector-ref arg-4 14))) (let ((e-15 (vector-ref arg-4 15))) (let ((e-16 (vector-ref arg-4 16))) (let ((e-17 (vector-ref arg-4 17))) (let ((e-18 (vector-ref arg-4 18))) (let ((e-19 (vector-ref arg-4 19))) (let ((e-20 (vector-ref arg-4 20))) (vector e-0 e-1 e-5 e-3 e-4 e-21 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20))))))))))))))))))))) eta-0)) ext-0))))))) +(define TTImpC-45Elab-n--8691-6263-u--normaliseH (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 ((CoreC-45Context-lookupCtxtExact (vector 9 arg-3) (let ((e-0 (vector-ref arg-2 0))) e-0)) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (if (null? e-5) (vector 1 0) (let ((e-1 (unbox e-5))) (let ((e-17 (vector-ref e-1 17))) (case (vector-ref e-17 0) ((7) (TTImpC-45Elab-n--8691-6262-u--updateType arg-0 arg-1 arg-2 arg-3 e-1 ext-0))(else (vector 1 0)))))))))))) +(define TTImpC-45Elab-n--10706-7982-u--bindImpsC-39 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 ext-0) (if (null? arg-17) (vector 1 arg-18) (let ((e-2 (car arg-17))) (let ((e-3 (cdr arg-17))) (let ((e-6 (car e-2))) (let ((act-24 (TTImpC-45Elab-n--10706-7982-u--bindImpsC-39 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 e-3 arg-18 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 1 arg-15 (AlgebraC-45Semiring-erased (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))) (vector 0 ) (box e-6) (vector 32 arg-15 1) e-5)))))))))))) +(define TTImpC-45Elab-n--10706-7983-u--bindImps (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (case (vector-ref arg-18 0) ((16) (let ((e-0 (vector-ref arg-18 1))) (let ((e-1 (vector-ref arg-18 2))) (let ((e-2 (vector-ref arg-18 3))) (lambda (eta-0) (let ((act-24 (TTImpC-45Elab-n--10706-7982-u--bindImpsC-39 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 e-2 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 16 e-0 e-1 e-5)))))))))))(else (lambda (eta-0) (TTImpC-45Elab-n--10706-7982-u--bindImpsC-39 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 eta-0)))))) +(define TTImpC-45Elab-n--8884-6456-u--addHoles (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (if (null? arg-16) arg-14 (let ((e-2 (car arg-16))) (let ((e-3 (cdr arg-16))) (let ((e-6 (car e-2))) (let ((e-7 (cdr e-2))) (let ((sc2 (LibrariesC-45DataC-45IntMap-lookup e-6 arg-15))) (if (null? sc2) (TTImpC-45Elab-n--8884-6456-u--addHoles arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-3) (TTImpC-45Elab-n--8884-6456-u--addHoles arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (LibrariesC-45DataC-45IntMap-insert e-6 e-7 arg-14) arg-15 e-3)))))))))) +(define TTImpC-45Elab-normaliseHoleTypes (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((u--hs (LibrariesC-45DataC-45IntMap-keys (let ((e-0 (vector-ref e-5 0))) e-0)))) (let ((act-25 (let ((act-25 (unbox arg-0))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (CoreC-45Core-traverse_ (lambda (eta-0) (lambda (eta-1) (TTImpC-45Elab-n--8691-6263-u--normaliseH arg-1 arg-0 e-6 eta-0 eta-1))) u--hs ext-0)))))))))))) +(define TTImpC-45Elab-getRigNeeded (lambda (arg-0) (case (vector-ref arg-0 0) ((0) (AlgebraC-45Semiring-erased (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)))) ((1) (let ((e-0 (vector-ref arg-0 1))) (let ((sc1 (AlgebraC-45Semiring-isErased (cons (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-2) (lambda (arg-3) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-4 arg-5))))) e-0))) (cond ((equal? sc1 1) (AlgebraC-45Semiring-erased (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)))) (else (AlgebraC-45Semiring-linear (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))))))))(else (AlgebraC-45Semiring-linear (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))))))) +(define TTImpC-45Elab-findPLetRenames (lambda (arg-0 arg-1) (case (vector-ref arg-1 0) ((3) (let ((e-1 (vector-ref arg-1 1))) (let ((e-2 (vector-ref arg-1 2))) (let ((e-3 (vector-ref arg-1 3))) (let ((e-4 (vector-ref arg-1 4))) (case (vector-ref e-3 0) ((4) (let ((e-6 (vector-ref e-3 1))) (let ((e-7 (vector-ref e-3 2))) (let ((e-8 (vector-ref e-3 3))) (let ((e-9 (vector-ref e-3 4))) (case (vector-ref e-8 0) ((0) (let ((e-12 (vector-ref e-8 1))) (let ((e-13 (vector-ref e-8 2))) (let ((e-14 (vector-ref e-8 3))) (TTImpC-45Elab-case--findPLetRenames-6005 arg-0 e-6 e-12 e-13 e-14 e-9 e-7 e-2 e-4 e-1 (CoreC-45TT-nameAt arg-0 e-14))))))(else (TTImpC-45Elab-findPLetRenames (cons e-2 arg-0) e-4))))))))(else (TTImpC-45Elab-findPLetRenames (cons e-2 arg-0) e-4))))))))(else '())))) +(define TTImpC-45Elab-elabTermSub (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((u--incase (PreludeC-45Types-elem (cons (lambda (arg-14) (lambda (arg-15) (TTImpC-45ElabC-45Check-u--C-61C-61_Eq_ElabOpt arg-14 arg-15))) (lambda (arg-14) (lambda (arg-15) (TTImpC-45ElabC-45Check-u--C-47C-61_Eq_ElabOpt arg-14 arg-15)))) 1 arg-7))) (let ((u--inPE (PreludeC-45Types-elem (cons (lambda (arg-14) (lambda (arg-15) (TTImpC-45ElabC-45Check-u--C-61C-61_Eq_ElabOpt arg-14 arg-15))) (lambda (arg-14) (lambda (arg-15) (TTImpC-45ElabC-45Check-u--C-47C-61_Eq_ElabOpt arg-14 arg-15)))) 2 arg-7))) (let ((u--inTrans (PreludeC-45Types-elem (cons (lambda (arg-14) (lambda (arg-15) (TTImpC-45ElabC-45Check-u--C-61C-61_Eq_ElabOpt arg-14 arg-15))) (lambda (arg-14) (lambda (arg-15) (TTImpC-45ElabC-45Check-u--C-47C-61_Eq_ElabOpt arg-14 arg-15)))) 3 arg-7))) (lambda (eta-0) (let ((act-24 (cond ((equal? u--incase 1) (vector 1 (LibrariesC-45DataC-45IntMap-empty))) (else (CoreC-45UnifyState-saveHoles arg-4 eta-0))))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (let ((act-25 (unbox arg-4))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((u--olddelayed (let ((e-10 (vector-ref e-6 10))) e-10))) (let ((act-26 (let ((act-26 (set-box! arg-4 (let ((e-0 (vector-ref e-6 0))) (let ((e-1 (vector-ref e-6 1))) (let ((e-2 (vector-ref e-6 2))) (let ((e-3 (vector-ref e-6 3))) (let ((e-4 (vector-ref e-6 4))) (let ((e-13 (vector-ref e-6 5))) (let ((e-12 (vector-ref e-6 6))) (let ((e-7 (vector-ref e-6 7))) (let ((e-8 (vector-ref e-6 8))) (let ((e-9 (vector-ref e-6 9))) (let ((e-11 (vector-ref e-6 11))) (vector e-0 e-1 e-2 e-3 e-4 e-13 e-12 e-7 e-8 e-9 '() e-11))))))))))))))) (vector 1 act-26)))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((act-27 (CoreC-45Context-getNextEntry arg-2 eta-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (let ((act-28 (let ((act-28 (unbox arg-2))) (vector 1 act-28)))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((act-29 (CoreC-45Core-newRef (vector "TTImp.Elab.Check.EST" ) (TTImpC-45ElabC-45Check-initEStateSub arg-0 arg-5 arg-10 arg-11) eta-0))) (case (vector-ref act-29 0) ((0) (let ((e-2 (vector-ref act-29 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref act-29 1))) (let ((u--rigc (TTImpC-45Elab-getRigNeeded arg-6))) (let ((act-30 (TTImpC-45ElabC-45Check-check arg-1 arg-2 arg-3 arg-4 e-10 u--rigc (TTImpC-45ElabC-45Check-initElabInfo arg-6) arg-8 arg-9 arg-12 arg-13 eta-0))) (case (vector-ref act-30 0) ((0) (let ((e-2 (vector-ref act-30 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref act-30 1))) (let ((e-2 (car e-11))) (let ((e-3 (cdr e-11))) (let ((u--solvemode (case (vector-ref arg-6 0) ((1) (CoreC-45Unify-inLHS))(else (CoreC-45Unify-inTerm))))) (let ((act-31 (CoreC-45Unify-solveConstraints arg-2 arg-4 u--solvemode 0 eta-0))) (case (vector-ref act-31 0) ((0) (let ((e-4 (vector-ref act-31 1))) (vector 0 e-4))) (else (let ((act-32 (CoreC-45ContextC-45Log-logTerm arg-1 arg-2 "elab" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Looking for delayed in ") e-2 eta-0))) (case (vector-ref act-32 0) ((0) (let ((e-4 (vector-ref act-32 1))) (vector 0 e-4))) (else (let ((act-33 (let ((act-33 (unbox arg-4))) (vector 1 act-33)))) (case (vector-ref act-33 0) ((0) (let ((e-4 (vector-ref act-33 1))) (vector 0 e-4))) (else (let ((e-14 (vector-ref act-33 1))) (let ((act-34 (CoreC-45Core-u--catch_Catchable_Core_Error (lambda (eta-1) (TTImpC-45ElabC-45Delayed-retryDelayed arg-1 arg-2 arg-3 arg-4 e-10 (DataC-45List-sortBy (lambda (u--x) (lambda (u--y) (PreludeC-45Types-u--compare_Ord_Nat (Builtin-fst u--x) (Builtin-fst u--y)))) (let ((e-16 (vector-ref e-14 10))) e-16)) eta-1)) (lambda (u--err) (lambda (eta-1) (let ((act-34 (let ((act-34 (unbox arg-4))) (vector 1 act-34)))) (case (vector-ref act-34 0) ((0) (let ((e-4 (vector-ref act-34 1))) (vector 0 e-4))) (else (let ((e-15 (vector-ref act-34 1))) (let ((act-35 (let ((act-35 (set-box! arg-4 (let ((e-0 (vector-ref e-15 0))) (let ((e-1 (vector-ref e-15 1))) (let ((e-24 (vector-ref e-15 2))) (let ((e-23 (vector-ref e-15 3))) (let ((e-4 (vector-ref e-15 4))) (let ((e-22 (vector-ref e-15 5))) (let ((e-21 (vector-ref e-15 6))) (let ((e-20 (vector-ref e-15 7))) (let ((e-19 (vector-ref e-15 8))) (let ((e-18 (vector-ref e-15 9))) (let ((e-16 (vector-ref e-15 11))) (vector e-0 e-1 e-24 e-23 e-4 e-22 e-21 e-20 e-19 e-18 u--olddelayed e-16))))))))))))))) (vector 1 act-35)))) (case (vector-ref act-35 0) ((0) (let ((e-4 (vector-ref act-35 1))) (vector 0 e-4))) (else (CoreC-45Core-u--throw_Catchable_Core_Error u--err eta-1)))))))))) eta-0))) (case (vector-ref act-34 0) ((0) (let ((e-4 (vector-ref act-34 1))) (vector 0 e-4))) (else (let ((act-35 (let ((act-35 (unbox arg-4))) (vector 1 act-35)))) (case (vector-ref act-35 0) ((0) (let ((e-4 (vector-ref act-35 1))) (vector 0 e-4))) (else (let ((e-16 (vector-ref act-35 1))) (let ((act-36 (let ((act-36 (set-box! arg-4 (let ((e-0 (vector-ref e-16 0))) (let ((e-1 (vector-ref e-16 1))) (let ((e-25 (vector-ref e-16 2))) (let ((e-24 (vector-ref e-16 3))) (let ((e-4 (vector-ref e-16 4))) (let ((e-23 (vector-ref e-16 5))) (let ((e-22 (vector-ref e-16 6))) (let ((e-21 (vector-ref e-16 7))) (let ((e-20 (vector-ref e-16 8))) (let ((e-19 (vector-ref e-16 9))) (let ((e-17 (vector-ref e-16 11))) (vector e-0 e-1 e-25 e-24 e-4 e-23 e-22 e-21 e-20 e-19 u--olddelayed e-17))))))))))))))) (vector 1 act-36)))) (case (vector-ref act-36 0) ((0) (let ((e-4 (vector-ref act-36 1))) (vector 0 e-4))) (else (let ((act-37 (CoreC-45Unify-solveConstraintsAfter arg-2 arg-4 e-8 u--solvemode 2 eta-0))) (case (vector-ref act-37 0) ((0) (let ((e-4 (vector-ref act-37 1))) (vector 0 e-4))) (else (let ((act-38 (let ((sc15 (cond ((equal? u--incase 1) (DataC-45Maybe-isJust (TTImpC-45ElabC-45Check-isLHS arg-6))) (else 1)))) (cond ((equal? sc15 1) (let ((act-38 (CoreC-45ContextC-45Log-log arg-2 "elab" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Resolving default hints") eta-0))) (case (vector-ref act-38 0) ((0) (let ((e-4 (vector-ref act-38 1))) (vector 0 e-4))) (else (let ((act-39 (CoreC-45Unify-solveConstraintsAfter arg-2 arg-4 e-8 u--solvemode 1 eta-0))) (case (vector-ref act-39 0) ((0) (let ((e-4 (vector-ref act-39 1))) (vector 0 e-4))) (else (CoreC-45Unify-solveConstraintsAfter arg-2 arg-4 e-8 u--solvemode 3 eta-0)))))))) (else (vector 1 0)))))) (case (vector-ref act-38 0) ((0) (let ((e-4 (vector-ref act-38 1))) (vector 0 e-4))) (else (let ((act-39 (CoreC-45UnifyState-dumpConstraints arg-4 arg-2 "elab" (+ 1 (+ 1 (+ 1 (+ 1 0)))) 0 eta-0))) (case (vector-ref act-39 0) ((0) (let ((e-4 (vector-ref act-39 1))) (vector 0 e-4))) (else (let ((act-40 (let ((act-40 (unbox arg-2))) (vector 1 act-40)))) (case (vector-ref act-40 0) ((0) (let ((e-4 (vector-ref act-40 1))) (vector 0 e-4))) (else (let ((e-21 (vector-ref act-40 1))) (let ((act-41 (cond ((equal? u--inPE 1) (CoreC-45Normalise-normaliseHoles arg-2 arg-1 e-21 arg-9 e-2 eta-0)) (else (CoreC-45Normalise-normaliseArgHoles arg-2 arg-1 e-21 arg-9 e-2 eta-0))))) (case (vector-ref act-41 0) ((0) (let ((e-4 (vector-ref act-41 1))) (vector 0 e-4))) (else (let ((e-22 (vector-ref act-41 1))) (let ((act-42 (case (vector-ref arg-6 0) ((1) (let ((act-42 (cond ((equal? u--incase 1) (vector 1 0)) (else (CoreC-45UnifyState-checkUserHolesAfter arg-4 arg-2 e-8 1 eta-0))))) (case (vector-ref act-42 0) ((0) (let ((e-4 (vector-ref act-42 1))) (vector 0 e-4))) (else (vector 1 e-22))))) ((3) (let ((act-42 (cond ((equal? u--incase 1) (vector 1 0)) (else (CoreC-45UnifyState-checkUserHolesAfter arg-4 arg-2 e-8 1 eta-0))))) (case (vector-ref act-42 0) ((0) (let ((e-4 (vector-ref act-42 1))) (vector 0 e-4))) (else (vector 1 e-22)))))(else (cond ((equal? u--incase 1) (vector 1 e-22)) (else (let ((act-42 (CoreC-45UnifyState-checkUserHolesAfter arg-4 arg-2 e-8 (cond ((equal? u--inTrans 1) 1) (else u--inPE)) eta-0))) (case (vector-ref act-42 0) ((0) (let ((e-4 (vector-ref act-42 1))) (vector 0 e-4))) (else (CoreC-45LinearCheck-linearCheck arg-1 arg-2 arg-4 (TTImpC-45TTImp-getFC arg-12) u--rigc 0 arg-9 e-22 eta-0)))))))))) (case (vector-ref act-42 0) ((0) (let ((e-4 (vector-ref act-42 1))) (vector 0 e-4))) (else (let ((e-23 (vector-ref act-42 1))) (let ((act-43 (TTImpC-45Elab-normaliseHoleTypes arg-2 arg-4 eta-0))) (case (vector-ref act-43 0) ((0) (let ((e-4 (vector-ref act-43 1))) (vector 0 e-4))) (else (let ((act-44 (cond ((equal? u--incase 1) (vector 1 0)) (else (let ((act-44 (CoreC-45UnifyState-getHoles arg-4 eta-0))) (case (vector-ref act-44 0) ((0) (let ((e-4 (vector-ref act-44 1))) (vector 0 e-4))) (else (let ((e-25 (vector-ref act-44 1))) (CoreC-45UnifyState-restoreHoles arg-4 (TTImpC-45Elab-n--8884-6456-u--addHoles arg-0 arg-1 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 (LibrariesC-45DataC-45IntMap-empty) e-25 (LibrariesC-45DataC-45IntMap-toList e-5)) eta-0))))))))) (case (vector-ref act-44 0) ((0) (let ((e-4 (vector-ref act-44 1))) (vector 0 e-4))) (else (let ((act-45 (let ((act-45 (unbox e-10))) (vector 1 act-45)))) (case (vector-ref act-45 0) ((0) (let ((e-4 (vector-ref act-45 1))) (vector 0 e-4))) (else (let ((e-26 (vector-ref act-45 1))) (let ((act-46 (CoreC-45Core-traverse_ (lambda (eta-1) (lambda (eta-2) (TTImpC-45Elab-addHoleToSave arg-2 eta-1 eta-2))) (LibrariesC-45DataC-45NameMap-keys (let ((e-28 (vector-ref e-26 12))) e-28)) eta-0))) (case (vector-ref act-46 0) ((0) (let ((e-4 (vector-ref act-46 1))) (vector 0 e-4))) (else (case (vector-ref arg-6 0) ((1) (let ((u--vs (TTImpC-45Elab-findPLetRenames arg-1 e-23))) (let ((u--ret (TTImpC-45Elab-doPLetRenames arg-1 u--vs '() e-23))) (let ((act-47 ((CoreC-45Normalise-getTerm e-3) eta-0))) (case (vector-ref act-47 0) ((0) (let ((e-4 (vector-ref act-47 1))) (vector 0 e-4))) (else (let ((e-28 (vector-ref act-47 1))) (vector 1 (cons u--ret (CoreC-45Normalise-gnf arg-1 arg-9 (TTImpC-45Elab-doPLetRenames arg-1 u--vs '() e-28)))))))))))(else (let ((act-47 (CoreC-45UnifyState-dumpConstraints arg-4 arg-2 "elab" (+ 1 (+ 1 0)) 0 eta-0))) (case (vector-ref act-47 0) ((0) (let ((e-4 (vector-ref act-47 1))) (vector 0 e-4))) (else (vector 1 (cons e-23 e-3)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (define TTImpC-45Elab-elabTerm (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (TTImpC-45Elab-elabTermSub arg-0 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-8 (vector 0 ) arg-9 arg-10))) -(define TTImpC-45Elab-doPLetRenames (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((4) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (let ((e-9 (vector-ref sc1 4))) (let ((u--b (vector 4 e-6 e-7 e-8 e-9))) (TTImpC-45Elab-case--doPLetRenames-4836 arg-0 e-6 e-7 e-9 e-8 e-2 e-4 u--b e-1 arg-2 arg-1 (PreludeC-45Types-elem (cons (lambda (arg-4) (lambda (arg-5) (CoreC-45Name-u--C-61C-61_Eq_Name arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (CoreC-45Name-u--C-47C-61_Eq_Name arg-4 arg-5)))) e-2 arg-2))))))))(else (TTImpC-45Elab-case--doPLetRenames-4900 arg-0 e-2 e-4 e-3 e-1 arg-2 arg-1 (DataC-45List-lookup (cons (lambda (arg-4) (lambda (arg-5) (CoreC-45Name-u--C-61C-61_Eq_Name arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (CoreC-45Name-u--C-47C-61_Eq_Name arg-4 arg-5)))) e-2 arg-1))))))))))(else arg-3))))) -(define TTImpC-45Elab-checkTermSub (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 ext-0) (let ((act-24 (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (CoreC-45Context-branch arg-2 ext-0))(else (let ((act-24 (unbox arg-2))) (vector 1 act-24))))))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (unbox arg-4))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (let ((act-26 (unbox arg-3))) (vector 1 act-26)))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (CoreC-45Core-u--catch_Catchable_Core_Error (TTImpC-45Elab-elabTermSub arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 (vector 1 arg-13)) (lambda (u--err) (lambda (clam-0) (let ((sc3 u--err)) (case (vector-ref sc3 0) ((27) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-2 (vector-ref sc3 3))) (let ((e-3 (vector-ref sc3 4))) (let ((act-27 (let ((act-27 (set-box! arg-2 e-5))) (vector 1 act-27)))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((act-28 (let ((act-28 (set-box! arg-4 e-6))) (vector 1 act-28)))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((act-29 (let ((act-29 (set-box! arg-3 e-7))) (vector 1 act-29)))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((act-30 ((TTImpC-45Elab-n--15274-6677-u--bindImps arg-0 arg-1 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 e-0 e-1 e-2 e-3 arg-12) clam-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc7 1))) ((TTImpC-45Elab-elabTermSub arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-11 (vector 1 arg-13)) clam-0)))))))))))))))))))))))(else (CoreC-45Core-u--throw_Catchable_Core_Error u--err clam-0)))))) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (vector 1 (Builtin-fst e-8)))))))))))))))))))))))) +(define TTImpC-45Elab-doPLetRenames (lambda (arg-0 arg-1 arg-2 arg-3) (case (vector-ref arg-3 0) ((3) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-3 (vector-ref arg-3 3))) (let ((e-4 (vector-ref arg-3 4))) (case (vector-ref e-3 0) ((4) (let ((e-6 (vector-ref e-3 1))) (let ((e-7 (vector-ref e-3 2))) (let ((e-8 (vector-ref e-3 3))) (let ((e-9 (vector-ref e-3 4))) (let ((u--b (vector 4 e-6 e-7 e-8 e-9))) (let ((sc2 (PreludeC-45Types-elem (cons (lambda (arg-4) (lambda (arg-5) (CoreC-45Name-u--C-61C-61_Eq_Name arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (CoreC-45Name-u--C-47C-61_Eq_Name arg-4 arg-5)))) e-2 arg-2))) (cond ((equal? sc2 1) (CoreC-45TTC-45SubstEnv-subst (vector 10 e-1 0) (TTImpC-45Elab-doPLetRenames (cons e-2 arg-0) arg-1 arg-2 e-4))) (else (vector 3 e-1 e-2 u--b (TTImpC-45Elab-doPLetRenames (cons e-2 arg-0) arg-1 arg-2 e-4)))))))))))(else (TTImpC-45Elab-case--doPLetRenames-6174 arg-0 e-2 e-4 e-3 e-1 arg-2 arg-1 (DataC-45List-lookup (cons (lambda (arg-4) (lambda (arg-5) (CoreC-45Name-u--C-61C-61_Eq_Name arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (CoreC-45Name-u--C-47C-61_Eq_Name arg-4 arg-5)))) e-2 arg-1)))))))))(else arg-3)))) +(define TTImpC-45Elab-checkTermSub (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 ext-0) (let ((act-24 (case (vector-ref arg-6 0) ((0) (CoreC-45Context-branch arg-2 ext-0))(else (let ((act-24 (unbox arg-2))) (vector 1 act-24)))))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (let ((act-25 (unbox arg-4))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (let ((act-26 (unbox arg-3))) (vector 1 act-26)))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (CoreC-45Core-u--catch_Catchable_Core_Error (TTImpC-45Elab-elabTermSub arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 (box arg-13)) (lambda (lcase-0) (lambda (clam-0) (case (vector-ref lcase-0 0) ((27) (let ((e-0 (vector-ref lcase-0 1))) (let ((e-1 (vector-ref lcase-0 2))) (let ((e-2 (vector-ref lcase-0 3))) (let ((e-3 (vector-ref lcase-0 4))) (let ((act-27 (let ((act-27 (set-box! arg-2 e-5))) (vector 1 act-27)))) (case (vector-ref act-27 0) ((0) (let ((e-4 (vector-ref act-27 1))) (vector 0 e-4))) (else (let ((act-28 (let ((act-28 (set-box! arg-4 e-6))) (vector 1 act-28)))) (case (vector-ref act-28 0) ((0) (let ((e-4 (vector-ref act-28 1))) (vector 0 e-4))) (else (let ((act-29 (let ((act-29 (set-box! arg-3 e-7))) (vector 1 act-29)))) (case (vector-ref act-29 0) ((0) (let ((e-4 (vector-ref act-29 1))) (vector 0 e-4))) (else (let ((act-30 ((TTImpC-45Elab-n--10706-7983-u--bindImps arg-0 arg-1 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 e-0 e-1 e-2 e-3 arg-12) clam-0))) (case (vector-ref act-30 0) ((0) (let ((e-4 (vector-ref act-30 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref act-30 1))) ((TTImpC-45Elab-elabTermSub arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-11 (box arg-13)) clam-0)))))))))))))))))))(else (CoreC-45Core-u--throw_Catchable_Core_Error lcase-0 clam-0))))) ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (let ((act-28 (case (vector-ref arg-6 0) ((0) (CoreC-45Context-commit arg-2 ext-0))(else (vector 1 0))))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (vector 1 (Builtin-fst e-8))))))))))))))))))))))) (define TTImpC-45Elab-checkTerm (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 ext-0) (TTImpC-45Elab-checkTermSub arg-0 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-8 (vector 0 ) arg-9 arg-10 ext-0))) -(define TTImpC-45Elab-addHoleToSave (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (CoreC-45Context-lookupTyExact arg-1 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0)) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((u--ms (LibrariesC-45DataC-45NameMap-keys (CoreC-45TT-getMetas e-1)))) (let ((act-26 (CoreC-45Context-addToSave arg-0 arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (CoreC-45Core-traverse_ (lambda (eta-0) (lambda (eta-1) (CoreC-45Context-addToSave arg-0 eta-0 eta-1))) u--ms ext-0)))))))) (else (vector 1 (vector 0 ))))))))))))))))) -(define TTImpC-45ElabC-45Term-case--check-9177 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((1) (TTImpC-45ElabC-45Check-checkImp arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-13 arg-1))(else (lambda (eta-0) (let ((act-24 (TTImpC-45ElabC-45Term-insertImpLam arg-10 arg-8 arg-3 arg-13 arg-1 eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((TTImpC-45ElabC-45Check-checkImp arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 e-5 arg-1) eta-0)))))))))))) -(define TTImpC-45ElabC-45Term-case--checkTermC-44resolveNames-8693 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 ext-0) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 (PreludeC-45TypesC-45String-C-43C-43 "non-UN in \"with\" LHS: " (CoreC-45Name-u--show_Show_Name arg-13))) ext-0)) (else (let ((e-2 (vector-ref sc0 1))) (let ((act-24 (let ((act-24 (unbox arg-12))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtName arg-13 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (if (null? sc3) (CoreC-45Context-undefinedName arg-12 arg-15 arg-13 ext-0) (let ((e-4 (car sc3))) (let ((e-3 (cdr sc3))) (let ((sc4 e-3)) (if (null? sc4) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc5 eta-0)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (vector 1 (LibrariesC-45DataC-45StringMap-insert e-2 e-4 e-7))))))) (TTImpC-45ElabC-45Term-n--16630-8679-u--resolveNames arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-15 arg-14) ext-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 17 arg-15 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-fst eta-0)) e-6)) ext-0))))))))))))))))))))))) -(define TTImpC-45ElabC-45Term-case--checkTerm-8481 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (lambda (eta-0) (TTImpC-45ElabC-45Check-checkExp arg-3 arg-0 arg-10 arg-9 arg-8 arg-7 arg-5 arg-2 e-2 (CoreC-45Normalise-gnf arg-3 arg-5 e-3) arg-4 eta-0))))))) -(define TTImpC-45ElabC-45Term-case--insertImpLamC-44bindLamTm-7523 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-8 arg-9 ext-0) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (vector 1 (vector 0 )))(else (vector 1 (vector 1 arg-8))))))) ((8) (vector 1 (vector 0 ))) ((3) (let ((e-11 (vector-ref sc0 3))) (let ((sc1 e-11)) (case (vector-ref sc1 0) ((0) (vector 1 (vector 0 )))(else (vector 1 (vector 1 arg-8)))))))(else (vector 1 (vector 1 arg-8))))))) -(define TTImpC-45ElabC-45Term-n--16630-8679-u--resolveNames (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (if (null? sc0) (lambda (eta-0) (vector 1 (LibrariesC-45DataC-45StringMap-empty))) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (lambda (eta-0) (TTImpC-45ElabC-45Term-case--checkTermC-44resolveNames-8693 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-2 e-3 arg-13 (CoreC-45Name-userNameRoot e-2) eta-0)))))))) -(define TTImpC-45ElabC-45Term-n--15751-7098-u--bindLamTm (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-8) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((2) (let ((e-16 (vector-ref sc0 3))) (let ((sc1 e-16)) (case (vector-ref sc1 0) ((0) (let ((sc2 arg-8)) (case (vector-ref sc2 0) ((3) (let ((e-27 (vector-ref sc2 3))) (let ((sc3 e-27)) (case (vector-ref sc3 0) ((2) (let ((e-32 (vector-ref sc3 3))) (let ((sc4 e-32)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (vector 1 (vector 1 arg-7))))(else (let ((sc4 arg-8)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-3 (vector-ref sc4 3))) (let ((e-4 (vector-ref sc4 4))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((2) (let ((e-7 (vector-ref sc5 2))) (let ((e-8 (vector-ref sc5 3))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (CoreC-45UnifyState-genVarName arg-5 arg-4 (CoreC-45Name-nameRoot e-2) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-5 (vector-ref sc7 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 ((TTImpC-45ElabC-45Term-n--15751-7098-u--bindLamTm arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 e-4) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((sc9 e-10)) (case (vector-ref sc9 0) ((1) (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 1 (vector 2 e-1 e-7 (vector 0 ) (vector 1 e-5) (vector 32 e-1 1) e-11))))) (else (vector 1 (vector 0 ))))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 (CoreC-45UnifyState-genVarName arg-5 arg-4 (CoreC-45Name-nameRoot e-2) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-5 (vector-ref sc7 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 ((TTImpC-45ElabC-45Term-n--15751-7098-u--bindLamTm arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 e-4) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((sc9 e-10)) (case (vector-ref sc9 0) ((1) (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 1 (vector 2 e-1 e-7 (vector 2 ) (vector 1 e-5) (vector 32 e-1 1) e-11))))) (else (vector 1 (vector 0 ))))))))))))))))) ((3) (lambda (eta-0) (let ((act-24 (CoreC-45UnifyState-genVarName arg-5 arg-4 (CoreC-45Name-nameRoot e-2) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-5 (vector-ref sc7 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 ((TTImpC-45ElabC-45Term-n--15751-7098-u--bindLamTm arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 e-4) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((sc9 e-10)) (case (vector-ref sc9 0) ((1) (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 1 (vector 2 e-1 e-7 (vector 3 (vector 32 e-1 1)) (vector 1 e-5) (vector 32 e-1 1) e-11))))) (else (vector 1 (vector 0 )))))))))))))))))(else (lambda (eta-0) (TTImpC-45ElabC-45Term-case--insertImpLamC-44bindLamTm-7523 arg-1 arg-2 arg-3 arg-4 arg-5 arg-8 arg-7 (CoreC-45TT-getFn arg-8) eta-0))))))))(else (lambda (eta-0) (TTImpC-45ElabC-45Term-case--insertImpLamC-44bindLamTm-7523 arg-1 arg-2 arg-3 arg-4 arg-5 arg-8 arg-7 (CoreC-45TT-getFn arg-8) eta-0))))))))))(else (lambda (eta-0) (TTImpC-45ElabC-45Term-case--insertImpLamC-44bindLamTm-7523 arg-1 arg-2 arg-3 arg-4 arg-5 arg-8 arg-7 (CoreC-45TT-getFn arg-8) eta-0))))))))))(else (let ((sc3 arg-8)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-3 (vector-ref sc3 3))) (let ((e-4 (vector-ref sc3 4))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((2) (let ((e-7 (vector-ref sc4 2))) (let ((e-8 (vector-ref sc4 3))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (CoreC-45UnifyState-genVarName arg-5 arg-4 (CoreC-45Name-nameRoot e-2) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-5 (vector-ref sc6 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 ((TTImpC-45ElabC-45Term-n--15751-7098-u--bindLamTm arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 e-4) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((sc8 e-10)) (case (vector-ref sc8 0) ((1) (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 1 (vector 2 e-1 e-7 (vector 0 ) (vector 1 e-5) (vector 32 e-1 1) e-11))))) (else (vector 1 (vector 0 ))))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 (CoreC-45UnifyState-genVarName arg-5 arg-4 (CoreC-45Name-nameRoot e-2) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-5 (vector-ref sc6 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 ((TTImpC-45ElabC-45Term-n--15751-7098-u--bindLamTm arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 e-4) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((sc8 e-10)) (case (vector-ref sc8 0) ((1) (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 1 (vector 2 e-1 e-7 (vector 2 ) (vector 1 e-5) (vector 32 e-1 1) e-11))))) (else (vector 1 (vector 0 ))))))))))))))))) ((3) (lambda (eta-0) (let ((act-24 (CoreC-45UnifyState-genVarName arg-5 arg-4 (CoreC-45Name-nameRoot e-2) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-5 (vector-ref sc6 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 ((TTImpC-45ElabC-45Term-n--15751-7098-u--bindLamTm arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 e-4) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((sc8 e-10)) (case (vector-ref sc8 0) ((1) (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 1 (vector 2 e-1 e-7 (vector 3 (vector 32 e-1 1)) (vector 1 e-5) (vector 32 e-1 1) e-11))))) (else (vector 1 (vector 0 )))))))))))))))))(else (lambda (eta-0) (TTImpC-45ElabC-45Term-case--insertImpLamC-44bindLamTm-7523 arg-1 arg-2 arg-3 arg-4 arg-5 arg-8 arg-7 (CoreC-45TT-getFn arg-8) eta-0))))))))(else (lambda (eta-0) (TTImpC-45ElabC-45Term-case--insertImpLamC-44bindLamTm-7523 arg-1 arg-2 arg-3 arg-4 arg-5 arg-8 arg-7 (CoreC-45TT-getFn arg-8) eta-0))))))))))(else (lambda (eta-0) (TTImpC-45ElabC-45Term-case--insertImpLamC-44bindLamTm-7523 arg-1 arg-2 arg-3 arg-4 arg-5 arg-8 arg-7 (CoreC-45TT-getFn arg-8) eta-0))))))))))(else (let ((sc2 arg-8)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-3 (vector-ref sc2 3))) (let ((e-4 (vector-ref sc2 4))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((2) (let ((e-7 (vector-ref sc3 2))) (let ((e-8 (vector-ref sc3 3))) (let ((sc4 e-8)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (let ((act-24 (CoreC-45UnifyState-genVarName arg-5 arg-4 (CoreC-45Name-nameRoot e-2) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-5 (vector-ref sc5 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 ((TTImpC-45ElabC-45Term-n--15751-7098-u--bindLamTm arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 e-4) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((sc7 e-10)) (case (vector-ref sc7 0) ((1) (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 1 (vector 2 e-1 e-7 (vector 0 ) (vector 1 e-5) (vector 32 e-1 1) e-11))))) (else (vector 1 (vector 0 ))))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 (CoreC-45UnifyState-genVarName arg-5 arg-4 (CoreC-45Name-nameRoot e-2) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-5 (vector-ref sc5 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 ((TTImpC-45ElabC-45Term-n--15751-7098-u--bindLamTm arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 e-4) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((sc7 e-10)) (case (vector-ref sc7 0) ((1) (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 1 (vector 2 e-1 e-7 (vector 2 ) (vector 1 e-5) (vector 32 e-1 1) e-11))))) (else (vector 1 (vector 0 ))))))))))))))))) ((3) (lambda (eta-0) (let ((act-24 (CoreC-45UnifyState-genVarName arg-5 arg-4 (CoreC-45Name-nameRoot e-2) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-5 (vector-ref sc5 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 ((TTImpC-45ElabC-45Term-n--15751-7098-u--bindLamTm arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 e-4) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((sc7 e-10)) (case (vector-ref sc7 0) ((1) (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 1 (vector 2 e-1 e-7 (vector 3 (vector 32 e-1 1)) (vector 1 e-5) (vector 32 e-1 1) e-11))))) (else (vector 1 (vector 0 )))))))))))))))))(else (lambda (eta-0) (TTImpC-45ElabC-45Term-case--insertImpLamC-44bindLamTm-7523 arg-1 arg-2 arg-3 arg-4 arg-5 arg-8 arg-7 (CoreC-45TT-getFn arg-8) eta-0))))))))(else (lambda (eta-0) (TTImpC-45ElabC-45Term-case--insertImpLamC-44bindLamTm-7523 arg-1 arg-2 arg-3 arg-4 arg-5 arg-8 arg-7 (CoreC-45TT-getFn arg-8) eta-0))))))))))(else (lambda (eta-0) (TTImpC-45ElabC-45Term-case--insertImpLamC-44bindLamTm-7523 arg-1 arg-2 arg-3 arg-4 arg-5 arg-8 arg-7 (CoreC-45TT-getFn arg-8) eta-0))))))))) ((2) (let ((sc2 arg-8)) (case (vector-ref sc2 0) ((3) (let ((e-38 (vector-ref sc2 3))) (let ((sc3 e-38)) (case (vector-ref sc3 0) ((2) (let ((e-43 (vector-ref sc3 3))) (let ((sc4 e-43)) (case (vector-ref sc4 0) ((2) (lambda (eta-0) (vector 1 (vector 1 arg-7))))(else (let ((sc4 arg-8)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-3 (vector-ref sc4 3))) (let ((e-4 (vector-ref sc4 4))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((2) (let ((e-7 (vector-ref sc5 2))) (let ((e-8 (vector-ref sc5 3))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (CoreC-45UnifyState-genVarName arg-5 arg-4 (CoreC-45Name-nameRoot e-2) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-5 (vector-ref sc7 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 ((TTImpC-45ElabC-45Term-n--15751-7098-u--bindLamTm arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 e-4) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((sc9 e-10)) (case (vector-ref sc9 0) ((1) (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 1 (vector 2 e-1 e-7 (vector 0 ) (vector 1 e-5) (vector 32 e-1 1) e-11))))) (else (vector 1 (vector 0 ))))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 (CoreC-45UnifyState-genVarName arg-5 arg-4 (CoreC-45Name-nameRoot e-2) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-5 (vector-ref sc7 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 ((TTImpC-45ElabC-45Term-n--15751-7098-u--bindLamTm arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 e-4) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((sc9 e-10)) (case (vector-ref sc9 0) ((1) (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 1 (vector 2 e-1 e-7 (vector 2 ) (vector 1 e-5) (vector 32 e-1 1) e-11))))) (else (vector 1 (vector 0 ))))))))))))))))) ((3) (lambda (eta-0) (let ((act-24 (CoreC-45UnifyState-genVarName arg-5 arg-4 (CoreC-45Name-nameRoot e-2) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-5 (vector-ref sc7 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 ((TTImpC-45ElabC-45Term-n--15751-7098-u--bindLamTm arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 e-4) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((sc9 e-10)) (case (vector-ref sc9 0) ((1) (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 1 (vector 2 e-1 e-7 (vector 3 (vector 32 e-1 1)) (vector 1 e-5) (vector 32 e-1 1) e-11))))) (else (vector 1 (vector 0 )))))))))))))))))(else (lambda (eta-0) (TTImpC-45ElabC-45Term-case--insertImpLamC-44bindLamTm-7523 arg-1 arg-2 arg-3 arg-4 arg-5 arg-8 arg-7 (CoreC-45TT-getFn arg-8) eta-0))))))))(else (lambda (eta-0) (TTImpC-45ElabC-45Term-case--insertImpLamC-44bindLamTm-7523 arg-1 arg-2 arg-3 arg-4 arg-5 arg-8 arg-7 (CoreC-45TT-getFn arg-8) eta-0))))))))))(else (lambda (eta-0) (TTImpC-45ElabC-45Term-case--insertImpLamC-44bindLamTm-7523 arg-1 arg-2 arg-3 arg-4 arg-5 arg-8 arg-7 (CoreC-45TT-getFn arg-8) eta-0))))))))))(else (let ((sc3 arg-8)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-3 (vector-ref sc3 3))) (let ((e-4 (vector-ref sc3 4))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((2) (let ((e-7 (vector-ref sc4 2))) (let ((e-8 (vector-ref sc4 3))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (CoreC-45UnifyState-genVarName arg-5 arg-4 (CoreC-45Name-nameRoot e-2) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-5 (vector-ref sc6 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 ((TTImpC-45ElabC-45Term-n--15751-7098-u--bindLamTm arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 e-4) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((sc8 e-10)) (case (vector-ref sc8 0) ((1) (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 1 (vector 2 e-1 e-7 (vector 0 ) (vector 1 e-5) (vector 32 e-1 1) e-11))))) (else (vector 1 (vector 0 ))))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 (CoreC-45UnifyState-genVarName arg-5 arg-4 (CoreC-45Name-nameRoot e-2) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-5 (vector-ref sc6 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 ((TTImpC-45ElabC-45Term-n--15751-7098-u--bindLamTm arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 e-4) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((sc8 e-10)) (case (vector-ref sc8 0) ((1) (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 1 (vector 2 e-1 e-7 (vector 2 ) (vector 1 e-5) (vector 32 e-1 1) e-11))))) (else (vector 1 (vector 0 ))))))))))))))))) ((3) (lambda (eta-0) (let ((act-24 (CoreC-45UnifyState-genVarName arg-5 arg-4 (CoreC-45Name-nameRoot e-2) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-5 (vector-ref sc6 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 ((TTImpC-45ElabC-45Term-n--15751-7098-u--bindLamTm arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 e-4) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((sc8 e-10)) (case (vector-ref sc8 0) ((1) (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 1 (vector 2 e-1 e-7 (vector 3 (vector 32 e-1 1)) (vector 1 e-5) (vector 32 e-1 1) e-11))))) (else (vector 1 (vector 0 )))))))))))))))))(else (lambda (eta-0) (TTImpC-45ElabC-45Term-case--insertImpLamC-44bindLamTm-7523 arg-1 arg-2 arg-3 arg-4 arg-5 arg-8 arg-7 (CoreC-45TT-getFn arg-8) eta-0))))))))(else (lambda (eta-0) (TTImpC-45ElabC-45Term-case--insertImpLamC-44bindLamTm-7523 arg-1 arg-2 arg-3 arg-4 arg-5 arg-8 arg-7 (CoreC-45TT-getFn arg-8) eta-0))))))))))(else (lambda (eta-0) (TTImpC-45ElabC-45Term-case--insertImpLamC-44bindLamTm-7523 arg-1 arg-2 arg-3 arg-4 arg-5 arg-8 arg-7 (CoreC-45TT-getFn arg-8) eta-0))))))))))(else (let ((sc2 arg-8)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-3 (vector-ref sc2 3))) (let ((e-4 (vector-ref sc2 4))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((2) (let ((e-7 (vector-ref sc3 2))) (let ((e-8 (vector-ref sc3 3))) (let ((sc4 e-8)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (let ((act-24 (CoreC-45UnifyState-genVarName arg-5 arg-4 (CoreC-45Name-nameRoot e-2) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-5 (vector-ref sc5 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 ((TTImpC-45ElabC-45Term-n--15751-7098-u--bindLamTm arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 e-4) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((sc7 e-10)) (case (vector-ref sc7 0) ((1) (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 1 (vector 2 e-1 e-7 (vector 0 ) (vector 1 e-5) (vector 32 e-1 1) e-11))))) (else (vector 1 (vector 0 ))))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 (CoreC-45UnifyState-genVarName arg-5 arg-4 (CoreC-45Name-nameRoot e-2) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-5 (vector-ref sc5 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 ((TTImpC-45ElabC-45Term-n--15751-7098-u--bindLamTm arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 e-4) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((sc7 e-10)) (case (vector-ref sc7 0) ((1) (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 1 (vector 2 e-1 e-7 (vector 2 ) (vector 1 e-5) (vector 32 e-1 1) e-11))))) (else (vector 1 (vector 0 ))))))))))))))))) ((3) (lambda (eta-0) (let ((act-24 (CoreC-45UnifyState-genVarName arg-5 arg-4 (CoreC-45Name-nameRoot e-2) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-5 (vector-ref sc5 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 ((TTImpC-45ElabC-45Term-n--15751-7098-u--bindLamTm arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 e-4) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((sc7 e-10)) (case (vector-ref sc7 0) ((1) (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 1 (vector 2 e-1 e-7 (vector 3 (vector 32 e-1 1)) (vector 1 e-5) (vector 32 e-1 1) e-11))))) (else (vector 1 (vector 0 )))))))))))))))))(else (lambda (eta-0) (TTImpC-45ElabC-45Term-case--insertImpLamC-44bindLamTm-7523 arg-1 arg-2 arg-3 arg-4 arg-5 arg-8 arg-7 (CoreC-45TT-getFn arg-8) eta-0))))))))(else (lambda (eta-0) (TTImpC-45ElabC-45Term-case--insertImpLamC-44bindLamTm-7523 arg-1 arg-2 arg-3 arg-4 arg-5 arg-8 arg-7 (CoreC-45TT-getFn arg-8) eta-0))))))))))(else (lambda (eta-0) (TTImpC-45ElabC-45Term-case--insertImpLamC-44bindLamTm-7523 arg-1 arg-2 arg-3 arg-4 arg-5 arg-8 arg-7 (CoreC-45TT-getFn arg-8) eta-0))))))))) ((3) (let ((sc2 arg-8)) (case (vector-ref sc2 0) ((3) (let ((e-49 (vector-ref sc2 3))) (let ((sc3 e-49)) (case (vector-ref sc3 0) ((2) (let ((e-54 (vector-ref sc3 3))) (let ((sc4 e-54)) (case (vector-ref sc4 0) ((3) (lambda (eta-0) (vector 1 (vector 1 arg-7))))(else (let ((sc4 arg-8)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-3 (vector-ref sc4 3))) (let ((e-4 (vector-ref sc4 4))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((2) (let ((e-7 (vector-ref sc5 2))) (let ((e-8 (vector-ref sc5 3))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (CoreC-45UnifyState-genVarName arg-5 arg-4 (CoreC-45Name-nameRoot e-2) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-5 (vector-ref sc7 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 ((TTImpC-45ElabC-45Term-n--15751-7098-u--bindLamTm arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 e-4) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((sc9 e-10)) (case (vector-ref sc9 0) ((1) (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 1 (vector 2 e-1 e-7 (vector 0 ) (vector 1 e-5) (vector 32 e-1 1) e-11))))) (else (vector 1 (vector 0 ))))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 (CoreC-45UnifyState-genVarName arg-5 arg-4 (CoreC-45Name-nameRoot e-2) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-5 (vector-ref sc7 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 ((TTImpC-45ElabC-45Term-n--15751-7098-u--bindLamTm arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 e-4) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((sc9 e-10)) (case (vector-ref sc9 0) ((1) (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 1 (vector 2 e-1 e-7 (vector 2 ) (vector 1 e-5) (vector 32 e-1 1) e-11))))) (else (vector 1 (vector 0 ))))))))))))))))) ((3) (lambda (eta-0) (let ((act-24 (CoreC-45UnifyState-genVarName arg-5 arg-4 (CoreC-45Name-nameRoot e-2) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-5 (vector-ref sc7 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 ((TTImpC-45ElabC-45Term-n--15751-7098-u--bindLamTm arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 e-4) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((sc9 e-10)) (case (vector-ref sc9 0) ((1) (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 1 (vector 2 e-1 e-7 (vector 3 (vector 32 e-1 1)) (vector 1 e-5) (vector 32 e-1 1) e-11))))) (else (vector 1 (vector 0 )))))))))))))))))(else (lambda (eta-0) (TTImpC-45ElabC-45Term-case--insertImpLamC-44bindLamTm-7523 arg-1 arg-2 arg-3 arg-4 arg-5 arg-8 arg-7 (CoreC-45TT-getFn arg-8) eta-0))))))))(else (lambda (eta-0) (TTImpC-45ElabC-45Term-case--insertImpLamC-44bindLamTm-7523 arg-1 arg-2 arg-3 arg-4 arg-5 arg-8 arg-7 (CoreC-45TT-getFn arg-8) eta-0))))))))))(else (lambda (eta-0) (TTImpC-45ElabC-45Term-case--insertImpLamC-44bindLamTm-7523 arg-1 arg-2 arg-3 arg-4 arg-5 arg-8 arg-7 (CoreC-45TT-getFn arg-8) eta-0))))))))))(else (let ((sc3 arg-8)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-3 (vector-ref sc3 3))) (let ((e-4 (vector-ref sc3 4))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((2) (let ((e-7 (vector-ref sc4 2))) (let ((e-8 (vector-ref sc4 3))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (CoreC-45UnifyState-genVarName arg-5 arg-4 (CoreC-45Name-nameRoot e-2) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-5 (vector-ref sc6 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 ((TTImpC-45ElabC-45Term-n--15751-7098-u--bindLamTm arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 e-4) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((sc8 e-10)) (case (vector-ref sc8 0) ((1) (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 1 (vector 2 e-1 e-7 (vector 0 ) (vector 1 e-5) (vector 32 e-1 1) e-11))))) (else (vector 1 (vector 0 ))))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 (CoreC-45UnifyState-genVarName arg-5 arg-4 (CoreC-45Name-nameRoot e-2) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-5 (vector-ref sc6 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 ((TTImpC-45ElabC-45Term-n--15751-7098-u--bindLamTm arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 e-4) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((sc8 e-10)) (case (vector-ref sc8 0) ((1) (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 1 (vector 2 e-1 e-7 (vector 2 ) (vector 1 e-5) (vector 32 e-1 1) e-11))))) (else (vector 1 (vector 0 ))))))))))))))))) ((3) (lambda (eta-0) (let ((act-24 (CoreC-45UnifyState-genVarName arg-5 arg-4 (CoreC-45Name-nameRoot e-2) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-5 (vector-ref sc6 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 ((TTImpC-45ElabC-45Term-n--15751-7098-u--bindLamTm arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 e-4) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((sc8 e-10)) (case (vector-ref sc8 0) ((1) (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 1 (vector 2 e-1 e-7 (vector 3 (vector 32 e-1 1)) (vector 1 e-5) (vector 32 e-1 1) e-11))))) (else (vector 1 (vector 0 )))))))))))))))))(else (lambda (eta-0) (TTImpC-45ElabC-45Term-case--insertImpLamC-44bindLamTm-7523 arg-1 arg-2 arg-3 arg-4 arg-5 arg-8 arg-7 (CoreC-45TT-getFn arg-8) eta-0))))))))(else (lambda (eta-0) (TTImpC-45ElabC-45Term-case--insertImpLamC-44bindLamTm-7523 arg-1 arg-2 arg-3 arg-4 arg-5 arg-8 arg-7 (CoreC-45TT-getFn arg-8) eta-0))))))))))(else (lambda (eta-0) (TTImpC-45ElabC-45Term-case--insertImpLamC-44bindLamTm-7523 arg-1 arg-2 arg-3 arg-4 arg-5 arg-8 arg-7 (CoreC-45TT-getFn arg-8) eta-0))))))))))(else (let ((sc2 arg-8)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-3 (vector-ref sc2 3))) (let ((e-4 (vector-ref sc2 4))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((2) (let ((e-7 (vector-ref sc3 2))) (let ((e-8 (vector-ref sc3 3))) (let ((sc4 e-8)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (let ((act-24 (CoreC-45UnifyState-genVarName arg-5 arg-4 (CoreC-45Name-nameRoot e-2) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-5 (vector-ref sc5 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 ((TTImpC-45ElabC-45Term-n--15751-7098-u--bindLamTm arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 e-4) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((sc7 e-10)) (case (vector-ref sc7 0) ((1) (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 1 (vector 2 e-1 e-7 (vector 0 ) (vector 1 e-5) (vector 32 e-1 1) e-11))))) (else (vector 1 (vector 0 ))))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 (CoreC-45UnifyState-genVarName arg-5 arg-4 (CoreC-45Name-nameRoot e-2) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-5 (vector-ref sc5 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 ((TTImpC-45ElabC-45Term-n--15751-7098-u--bindLamTm arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 e-4) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((sc7 e-10)) (case (vector-ref sc7 0) ((1) (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 1 (vector 2 e-1 e-7 (vector 2 ) (vector 1 e-5) (vector 32 e-1 1) e-11))))) (else (vector 1 (vector 0 ))))))))))))))))) ((3) (lambda (eta-0) (let ((act-24 (CoreC-45UnifyState-genVarName arg-5 arg-4 (CoreC-45Name-nameRoot e-2) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-5 (vector-ref sc5 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 ((TTImpC-45ElabC-45Term-n--15751-7098-u--bindLamTm arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 e-4) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((sc7 e-10)) (case (vector-ref sc7 0) ((1) (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 1 (vector 2 e-1 e-7 (vector 3 (vector 32 e-1 1)) (vector 1 e-5) (vector 32 e-1 1) e-11))))) (else (vector 1 (vector 0 )))))))))))))))))(else (lambda (eta-0) (TTImpC-45ElabC-45Term-case--insertImpLamC-44bindLamTm-7523 arg-1 arg-2 arg-3 arg-4 arg-5 arg-8 arg-7 (CoreC-45TT-getFn arg-8) eta-0))))))))(else (lambda (eta-0) (TTImpC-45ElabC-45Term-case--insertImpLamC-44bindLamTm-7523 arg-1 arg-2 arg-3 arg-4 arg-5 arg-8 arg-7 (CoreC-45TT-getFn arg-8) eta-0))))))))))(else (lambda (eta-0) (TTImpC-45ElabC-45Term-case--insertImpLamC-44bindLamTm-7523 arg-1 arg-2 arg-3 arg-4 arg-5 arg-8 arg-7 (CoreC-45TT-getFn arg-8) eta-0)))))))))(else (let ((sc1 arg-8)) (case (vector-ref sc1 0) ((3) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((e-3 (vector-ref sc1 3))) (let ((e-4 (vector-ref sc1 4))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((2) (let ((e-7 (vector-ref sc2 2))) (let ((e-8 (vector-ref sc2 3))) (let ((sc3 e-8)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 (CoreC-45UnifyState-genVarName arg-5 arg-4 (CoreC-45Name-nameRoot e-2) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-5 (vector-ref sc4 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 ((TTImpC-45ElabC-45Term-n--15751-7098-u--bindLamTm arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 e-4) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc5 1))) (let ((sc6 e-10)) (case (vector-ref sc6 0) ((1) (let ((e-11 (vector-ref sc6 1))) (vector 1 (vector 1 (vector 2 e-1 e-7 (vector 0 ) (vector 1 e-5) (vector 32 e-1 1) e-11))))) (else (vector 1 (vector 0 ))))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 (CoreC-45UnifyState-genVarName arg-5 arg-4 (CoreC-45Name-nameRoot e-2) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-5 (vector-ref sc4 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 ((TTImpC-45ElabC-45Term-n--15751-7098-u--bindLamTm arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 e-4) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc5 1))) (let ((sc6 e-10)) (case (vector-ref sc6 0) ((1) (let ((e-11 (vector-ref sc6 1))) (vector 1 (vector 1 (vector 2 e-1 e-7 (vector 2 ) (vector 1 e-5) (vector 32 e-1 1) e-11))))) (else (vector 1 (vector 0 ))))))))))))))))) ((3) (lambda (eta-0) (let ((act-24 (CoreC-45UnifyState-genVarName arg-5 arg-4 (CoreC-45Name-nameRoot e-2) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-5 (vector-ref sc4 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 ((TTImpC-45ElabC-45Term-n--15751-7098-u--bindLamTm arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 e-4) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc5 1))) (let ((sc6 e-10)) (case (vector-ref sc6 0) ((1) (let ((e-11 (vector-ref sc6 1))) (vector 1 (vector 1 (vector 2 e-1 e-7 (vector 3 (vector 32 e-1 1)) (vector 1 e-5) (vector 32 e-1 1) e-11))))) (else (vector 1 (vector 0 )))))))))))))))))(else (lambda (eta-0) (TTImpC-45ElabC-45Term-case--insertImpLamC-44bindLamTm-7523 arg-1 arg-2 arg-3 arg-4 arg-5 arg-8 arg-7 (CoreC-45TT-getFn arg-8) eta-0))))))))(else (lambda (eta-0) (TTImpC-45ElabC-45Term-case--insertImpLamC-44bindLamTm-7523 arg-1 arg-2 arg-3 arg-4 arg-5 arg-8 arg-7 (CoreC-45TT-getFn arg-8) eta-0))))))))))(else (lambda (eta-0) (TTImpC-45ElabC-45Term-case--insertImpLamC-44bindLamTm-7523 arg-1 arg-2 arg-3 arg-4 arg-5 arg-8 arg-7 (CoreC-45TT-getFn arg-8) eta-0))))))))))(else (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (let ((sc2 e-8)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (let ((act-24 (CoreC-45UnifyState-genVarName arg-5 arg-4 (CoreC-45Name-nameRoot e-2) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-5 (vector-ref sc3 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((TTImpC-45ElabC-45Term-n--15751-7098-u--bindLamTm arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 e-4) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc4 1))) (let ((sc5 e-10)) (case (vector-ref sc5 0) ((1) (let ((e-11 (vector-ref sc5 1))) (vector 1 (vector 1 (vector 2 e-1 e-7 (vector 0 ) (vector 1 e-5) (vector 32 e-1 1) e-11))))) (else (vector 1 (vector 0 ))))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 (CoreC-45UnifyState-genVarName arg-5 arg-4 (CoreC-45Name-nameRoot e-2) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-5 (vector-ref sc3 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((TTImpC-45ElabC-45Term-n--15751-7098-u--bindLamTm arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 e-4) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc4 1))) (let ((sc5 e-10)) (case (vector-ref sc5 0) ((1) (let ((e-11 (vector-ref sc5 1))) (vector 1 (vector 1 (vector 2 e-1 e-7 (vector 2 ) (vector 1 e-5) (vector 32 e-1 1) e-11))))) (else (vector 1 (vector 0 ))))))))))))))))) ((3) (lambda (eta-0) (let ((act-24 (CoreC-45UnifyState-genVarName arg-5 arg-4 (CoreC-45Name-nameRoot e-2) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-5 (vector-ref sc3 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((TTImpC-45ElabC-45Term-n--15751-7098-u--bindLamTm arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 e-4) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc4 1))) (let ((sc5 e-10)) (case (vector-ref sc5 0) ((1) (let ((e-11 (vector-ref sc5 1))) (vector 1 (vector 1 (vector 2 e-1 e-7 (vector 3 (vector 32 e-1 1)) (vector 1 e-5) (vector 32 e-1 1) e-11))))) (else (vector 1 (vector 0 )))))))))))))))))(else (lambda (eta-0) (TTImpC-45ElabC-45Term-case--insertImpLamC-44bindLamTm-7523 arg-1 arg-2 arg-3 arg-4 arg-5 arg-8 arg-7 (CoreC-45TT-getFn arg-8) eta-0))))))))(else (lambda (eta-0) (TTImpC-45ElabC-45Term-case--insertImpLamC-44bindLamTm-7523 arg-1 arg-2 arg-3 arg-4 arg-5 arg-8 arg-7 (CoreC-45TT-getFn arg-8) eta-0))))))))))(else (lambda (eta-0) (TTImpC-45ElabC-45Term-case--insertImpLamC-44bindLamTm-7523 arg-1 arg-2 arg-3 arg-4 arg-5 arg-8 arg-7 (CoreC-45TT-getFn arg-8) eta-0)))))))))) -(define TTImpC-45ElabC-45Term-n--15751-7099-u--bindLamNF (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((2) (let ((e-16 (vector-ref sc0 3))) (let ((sc1 e-16)) (case (vector-ref sc1 0) ((0) (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-25 (vector-ref sc2 3))) (let ((sc3 e-25)) (case (vector-ref sc3 0) ((2) (let ((e-30 (vector-ref sc3 3))) (let ((sc4 e-30)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (vector 1 arg-6)))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-3 (vector-ref sc4 3))) (let ((e-4 (vector-ref sc4 4))) (lambda (clam-0) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((2) (let ((e-7 (vector-ref sc5 2))) (let ((e-8 (vector-ref sc5 3))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-5 (vector-ref sc7 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 (CoreC-45UnifyState-genVarName arg-5 arg-4 (CoreC-45Name-nameRoot e-2) clam-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-26 (((e-4 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-10))) clam-0))) (let ((sc9 act-26)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (let ((act-27 ((TTImpC-45ElabC-45Term-n--15751-7099-u--bindLamNF arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-11) clam-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-12 (vector-ref sc10 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc10 1))) (vector 1 (vector 2 e-1 e-7 (vector 0 ) (vector 1 e-10) (vector 32 e-1 1) e-12))))))))))))))))))))))) ((2) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-5 (vector-ref sc7 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 (CoreC-45UnifyState-genVarName arg-5 arg-4 (CoreC-45Name-nameRoot e-2) clam-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-26 (((e-4 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-10))) clam-0))) (let ((sc9 act-26)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (let ((act-27 ((TTImpC-45ElabC-45Term-n--15751-7099-u--bindLamNF arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-11) clam-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-12 (vector-ref sc10 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc10 1))) (vector 1 (vector 2 e-1 e-7 (vector 2 ) (vector 1 e-10) (vector 32 e-1 1) e-12))))))))))))))))))))))) ((3) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-5 (vector-ref sc7 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 (CoreC-45UnifyState-genVarName arg-5 arg-4 (CoreC-45Name-nameRoot e-2) clam-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-26 (((e-4 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-10))) clam-0))) (let ((sc9 act-26)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (let ((act-27 ((TTImpC-45ElabC-45Term-n--15751-7099-u--bindLamNF arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-11) clam-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-12 (vector-ref sc10 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc10 1))) (vector 1 (vector 2 e-1 e-7 (vector 3 (vector 32 e-1 1)) (vector 1 e-10) (vector 32 e-1 1) e-12)))))))))))))))))))))))(else (vector 1 arg-6)))))))(else (vector 1 arg-6))))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-3 (vector-ref sc3 3))) (let ((e-4 (vector-ref sc3 4))) (lambda (clam-1) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((2) (let ((e-7 (vector-ref sc4 2))) (let ((e-8 (vector-ref sc4 3))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-5 (vector-ref sc6 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 (CoreC-45UnifyState-genVarName arg-5 arg-4 (CoreC-45Name-nameRoot e-2) clam-1))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-26 (((e-4 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-10))) clam-1))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (let ((act-27 ((TTImpC-45ElabC-45Term-n--15751-7099-u--bindLamNF arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-11) clam-1))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-12 (vector-ref sc9 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc9 1))) (vector 1 (vector 2 e-1 e-7 (vector 0 ) (vector 1 e-10) (vector 32 e-1 1) e-12))))))))))))))))))))))) ((2) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-5 (vector-ref sc6 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 (CoreC-45UnifyState-genVarName arg-5 arg-4 (CoreC-45Name-nameRoot e-2) clam-1))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-26 (((e-4 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-10))) clam-1))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (let ((act-27 ((TTImpC-45ElabC-45Term-n--15751-7099-u--bindLamNF arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-11) clam-1))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-12 (vector-ref sc9 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc9 1))) (vector 1 (vector 2 e-1 e-7 (vector 2 ) (vector 1 e-10) (vector 32 e-1 1) e-12))))))))))))))))))))))) ((3) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-5 (vector-ref sc6 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 (CoreC-45UnifyState-genVarName arg-5 arg-4 (CoreC-45Name-nameRoot e-2) clam-1))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-26 (((e-4 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-10))) clam-1))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (let ((act-27 ((TTImpC-45ElabC-45Term-n--15751-7099-u--bindLamNF arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-11) clam-1))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-12 (vector-ref sc9 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc9 1))) (vector 1 (vector 2 e-1 e-7 (vector 3 (vector 32 e-1 1)) (vector 1 e-10) (vector 32 e-1 1) e-12)))))))))))))))))))))))(else (vector 1 arg-6)))))))(else (vector 1 arg-6))))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-3 (vector-ref sc2 3))) (let ((e-4 (vector-ref sc2 4))) (lambda (clam-2) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((2) (let ((e-7 (vector-ref sc3 2))) (let ((e-8 (vector-ref sc3 3))) (let ((sc4 e-8)) (case (vector-ref sc4 0) ((0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-5 (vector-ref sc5 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 (CoreC-45UnifyState-genVarName arg-5 arg-4 (CoreC-45Name-nameRoot e-2) clam-2))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-26 (((e-4 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-10))) clam-2))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-27 ((TTImpC-45ElabC-45Term-n--15751-7099-u--bindLamNF arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-11) clam-2))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-12 (vector-ref sc8 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc8 1))) (vector 1 (vector 2 e-1 e-7 (vector 0 ) (vector 1 e-10) (vector 32 e-1 1) e-12))))))))))))))))))))))) ((2) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-5 (vector-ref sc5 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 (CoreC-45UnifyState-genVarName arg-5 arg-4 (CoreC-45Name-nameRoot e-2) clam-2))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-26 (((e-4 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-10))) clam-2))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-27 ((TTImpC-45ElabC-45Term-n--15751-7099-u--bindLamNF arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-11) clam-2))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-12 (vector-ref sc8 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc8 1))) (vector 1 (vector 2 e-1 e-7 (vector 2 ) (vector 1 e-10) (vector 32 e-1 1) e-12))))))))))))))))))))))) ((3) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-5 (vector-ref sc5 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 (CoreC-45UnifyState-genVarName arg-5 arg-4 (CoreC-45Name-nameRoot e-2) clam-2))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-26 (((e-4 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-10))) clam-2))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-27 ((TTImpC-45ElabC-45Term-n--15751-7099-u--bindLamNF arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-11) clam-2))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-12 (vector-ref sc8 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc8 1))) (vector 1 (vector 2 e-1 e-7 (vector 3 (vector 32 e-1 1)) (vector 1 e-10) (vector 32 e-1 1) e-12)))))))))))))))))))))))(else (vector 1 arg-6)))))))(else (vector 1 arg-6))))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))) ((2) (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-36 (vector-ref sc2 3))) (let ((sc3 e-36)) (case (vector-ref sc3 0) ((2) (let ((e-41 (vector-ref sc3 3))) (let ((sc4 e-41)) (case (vector-ref sc4 0) ((2) (lambda (eta-0) (vector 1 arg-6)))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-3 (vector-ref sc4 3))) (let ((e-4 (vector-ref sc4 4))) (lambda (clam-3) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((2) (let ((e-7 (vector-ref sc5 2))) (let ((e-8 (vector-ref sc5 3))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-5 (vector-ref sc7 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 (CoreC-45UnifyState-genVarName arg-5 arg-4 (CoreC-45Name-nameRoot e-2) clam-3))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-26 (((e-4 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-10))) clam-3))) (let ((sc9 act-26)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (let ((act-27 ((TTImpC-45ElabC-45Term-n--15751-7099-u--bindLamNF arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-11) clam-3))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-12 (vector-ref sc10 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc10 1))) (vector 1 (vector 2 e-1 e-7 (vector 0 ) (vector 1 e-10) (vector 32 e-1 1) e-12))))))))))))))))))))))) ((2) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-5 (vector-ref sc7 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 (CoreC-45UnifyState-genVarName arg-5 arg-4 (CoreC-45Name-nameRoot e-2) clam-3))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-26 (((e-4 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-10))) clam-3))) (let ((sc9 act-26)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (let ((act-27 ((TTImpC-45ElabC-45Term-n--15751-7099-u--bindLamNF arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-11) clam-3))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-12 (vector-ref sc10 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc10 1))) (vector 1 (vector 2 e-1 e-7 (vector 2 ) (vector 1 e-10) (vector 32 e-1 1) e-12))))))))))))))))))))))) ((3) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-5 (vector-ref sc7 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 (CoreC-45UnifyState-genVarName arg-5 arg-4 (CoreC-45Name-nameRoot e-2) clam-3))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-26 (((e-4 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-10))) clam-3))) (let ((sc9 act-26)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (let ((act-27 ((TTImpC-45ElabC-45Term-n--15751-7099-u--bindLamNF arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-11) clam-3))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-12 (vector-ref sc10 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc10 1))) (vector 1 (vector 2 e-1 e-7 (vector 3 (vector 32 e-1 1)) (vector 1 e-10) (vector 32 e-1 1) e-12)))))))))))))))))))))))(else (vector 1 arg-6)))))))(else (vector 1 arg-6))))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-3 (vector-ref sc3 3))) (let ((e-4 (vector-ref sc3 4))) (lambda (clam-4) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((2) (let ((e-7 (vector-ref sc4 2))) (let ((e-8 (vector-ref sc4 3))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-5 (vector-ref sc6 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 (CoreC-45UnifyState-genVarName arg-5 arg-4 (CoreC-45Name-nameRoot e-2) clam-4))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-26 (((e-4 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-10))) clam-4))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (let ((act-27 ((TTImpC-45ElabC-45Term-n--15751-7099-u--bindLamNF arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-11) clam-4))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-12 (vector-ref sc9 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc9 1))) (vector 1 (vector 2 e-1 e-7 (vector 0 ) (vector 1 e-10) (vector 32 e-1 1) e-12))))))))))))))))))))))) ((2) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-5 (vector-ref sc6 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 (CoreC-45UnifyState-genVarName arg-5 arg-4 (CoreC-45Name-nameRoot e-2) clam-4))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-26 (((e-4 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-10))) clam-4))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (let ((act-27 ((TTImpC-45ElabC-45Term-n--15751-7099-u--bindLamNF arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-11) clam-4))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-12 (vector-ref sc9 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc9 1))) (vector 1 (vector 2 e-1 e-7 (vector 2 ) (vector 1 e-10) (vector 32 e-1 1) e-12))))))))))))))))))))))) ((3) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-5 (vector-ref sc6 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 (CoreC-45UnifyState-genVarName arg-5 arg-4 (CoreC-45Name-nameRoot e-2) clam-4))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-26 (((e-4 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-10))) clam-4))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (let ((act-27 ((TTImpC-45ElabC-45Term-n--15751-7099-u--bindLamNF arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-11) clam-4))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-12 (vector-ref sc9 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc9 1))) (vector 1 (vector 2 e-1 e-7 (vector 3 (vector 32 e-1 1)) (vector 1 e-10) (vector 32 e-1 1) e-12)))))))))))))))))))))))(else (vector 1 arg-6)))))))(else (vector 1 arg-6))))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-3 (vector-ref sc2 3))) (let ((e-4 (vector-ref sc2 4))) (lambda (clam-5) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((2) (let ((e-7 (vector-ref sc3 2))) (let ((e-8 (vector-ref sc3 3))) (let ((sc4 e-8)) (case (vector-ref sc4 0) ((0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-5 (vector-ref sc5 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 (CoreC-45UnifyState-genVarName arg-5 arg-4 (CoreC-45Name-nameRoot e-2) clam-5))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-26 (((e-4 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-10))) clam-5))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-27 ((TTImpC-45ElabC-45Term-n--15751-7099-u--bindLamNF arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-11) clam-5))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-12 (vector-ref sc8 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc8 1))) (vector 1 (vector 2 e-1 e-7 (vector 0 ) (vector 1 e-10) (vector 32 e-1 1) e-12))))))))))))))))))))))) ((2) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-5 (vector-ref sc5 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 (CoreC-45UnifyState-genVarName arg-5 arg-4 (CoreC-45Name-nameRoot e-2) clam-5))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-26 (((e-4 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-10))) clam-5))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-27 ((TTImpC-45ElabC-45Term-n--15751-7099-u--bindLamNF arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-11) clam-5))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-12 (vector-ref sc8 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc8 1))) (vector 1 (vector 2 e-1 e-7 (vector 2 ) (vector 1 e-10) (vector 32 e-1 1) e-12))))))))))))))))))))))) ((3) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-5 (vector-ref sc5 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 (CoreC-45UnifyState-genVarName arg-5 arg-4 (CoreC-45Name-nameRoot e-2) clam-5))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-26 (((e-4 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-10))) clam-5))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-27 ((TTImpC-45ElabC-45Term-n--15751-7099-u--bindLamNF arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-11) clam-5))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-12 (vector-ref sc8 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc8 1))) (vector 1 (vector 2 e-1 e-7 (vector 3 (vector 32 e-1 1)) (vector 1 e-10) (vector 32 e-1 1) e-12)))))))))))))))))))))))(else (vector 1 arg-6)))))))(else (vector 1 arg-6))))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))(else (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((0) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((e-3 (vector-ref sc1 3))) (let ((e-4 (vector-ref sc1 4))) (lambda (clam-6) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((2) (let ((e-7 (vector-ref sc2 2))) (let ((e-8 (vector-ref sc2 3))) (let ((sc3 e-8)) (case (vector-ref sc3 0) ((0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-5 (vector-ref sc4 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (CoreC-45UnifyState-genVarName arg-5 arg-4 (CoreC-45Name-nameRoot e-2) clam-6))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-26 (((e-4 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-10))) clam-6))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-11 (vector-ref sc6 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-27 ((TTImpC-45ElabC-45Term-n--15751-7099-u--bindLamNF arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-11) clam-6))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-12 (vector-ref sc7 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc7 1))) (vector 1 (vector 2 e-1 e-7 (vector 0 ) (vector 1 e-10) (vector 32 e-1 1) e-12))))))))))))))))))))))) ((2) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-5 (vector-ref sc4 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (CoreC-45UnifyState-genVarName arg-5 arg-4 (CoreC-45Name-nameRoot e-2) clam-6))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-26 (((e-4 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-10))) clam-6))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-11 (vector-ref sc6 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-27 ((TTImpC-45ElabC-45Term-n--15751-7099-u--bindLamNF arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-11) clam-6))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-12 (vector-ref sc7 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc7 1))) (vector 1 (vector 2 e-1 e-7 (vector 2 ) (vector 1 e-10) (vector 32 e-1 1) e-12))))))))))))))))))))))) ((3) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-5 (vector-ref sc4 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (CoreC-45UnifyState-genVarName arg-5 arg-4 (CoreC-45Name-nameRoot e-2) clam-6))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-26 (((e-4 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-10))) clam-6))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-11 (vector-ref sc6 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-27 ((TTImpC-45ElabC-45Term-n--15751-7099-u--bindLamNF arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-11) clam-6))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-12 (vector-ref sc7 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc7 1))) (vector 1 (vector 2 e-1 e-7 (vector 3 (vector 32 e-1 1)) (vector 1 e-10) (vector 32 e-1 1) e-12)))))))))))))))))))))))(else (vector 1 arg-6)))))))(else (vector 1 arg-6))))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))(else (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (lambda (clam-7) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (let ((sc2 e-8)) (case (vector-ref sc2 0) ((0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-5 (vector-ref sc3 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (CoreC-45UnifyState-genVarName arg-5 arg-4 (CoreC-45Name-nameRoot e-2) clam-7))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc4 1))) (let ((act-26 (((e-4 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-10))) clam-7))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-11 (vector-ref sc5 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc5 1))) (let ((act-27 ((TTImpC-45ElabC-45Term-n--15751-7099-u--bindLamNF arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-11) clam-7))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-12 (vector-ref sc6 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc6 1))) (vector 1 (vector 2 e-1 e-7 (vector 0 ) (vector 1 e-10) (vector 32 e-1 1) e-12))))))))))))))))))))))) ((2) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-5 (vector-ref sc3 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (CoreC-45UnifyState-genVarName arg-5 arg-4 (CoreC-45Name-nameRoot e-2) clam-7))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc4 1))) (let ((act-26 (((e-4 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-10))) clam-7))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-11 (vector-ref sc5 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc5 1))) (let ((act-27 ((TTImpC-45ElabC-45Term-n--15751-7099-u--bindLamNF arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-11) clam-7))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-12 (vector-ref sc6 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc6 1))) (vector 1 (vector 2 e-1 e-7 (vector 2 ) (vector 1 e-10) (vector 32 e-1 1) e-12))))))))))))))))))))))) ((3) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-5 (vector-ref sc3 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (CoreC-45UnifyState-genVarName arg-5 arg-4 (CoreC-45Name-nameRoot e-2) clam-7))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc4 1))) (let ((act-26 (((e-4 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-10))) clam-7))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-11 (vector-ref sc5 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc5 1))) (let ((act-27 ((TTImpC-45ElabC-45Term-n--15751-7099-u--bindLamNF arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-11) clam-7))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-12 (vector-ref sc6 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc6 1))) (vector 1 (vector 2 e-1 e-7 (vector 3 (vector 32 e-1 1)) (vector 1 e-10) (vector 32 e-1 1) e-12)))))))))))))))))))))))(else (vector 1 arg-6)))))))(else (vector 1 arg-6))))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))) -(define TTImpC-45ElabC-45Term-n--15751-7100-u--bindLam (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 ((CoreC-45Normalise-getTerm arg-7) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((TTImpC-45ElabC-45Term-n--15751-7098-u--bindLamTm arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (vector 1 e-1))) (else (let ((act-26 ((CoreC-45Normalise-getNF arg-5 arg-7) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) ((TTImpC-45ElabC-45Term-n--15751-7099-u--bindLamNF arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-7) ext-0))))))))))))))))))))) -(define TTImpC-45ElabC-45Term-insertImpLam (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (TTImpC-45ElabC-45Term-n--15751-7100-u--bindLam e-1 arg-4 arg-3 arg-2 arg-1 arg-4 e-1 ext-0)))(else (vector 1 arg-4)))))) -(define TTImpC-45ElabC-45Term-checkTerm (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (TTImpC-45ElabC-45App-checkApp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-0 (vector 0 e-0 e-1) '() '() '() arg-10)))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (let ((e-6 (vector-ref sc0 5))) (let ((e-7 (vector-ref sc0 6))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (let ((act-24 (let ((sc2 e-4)) (case (vector-ref sc2 0) ((1) (CoreC-45UnifyState-genVarName arg-1 arg-3 "arg" eta-0)) ((0) (CoreC-45UnifyState-genVarName arg-1 arg-3 "impArg" eta-0)) ((2) (CoreC-45UnifyState-genVarName arg-1 arg-3 "conArg" eta-0)) (else (CoreC-45UnifyState-genVarName arg-1 arg-3 "defArg" eta-0)))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-8 (vector-ref sc2 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc2 1))) ((TTImpC-45ElabC-45Binders-checkPi arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2 e-3 e-4 e-8 e-6 e-7 arg-10) eta-0)))))))) (else (let ((e-104 (vector-ref sc1 1))) (let ((sc2 e-104)) (case (vector-ref sc2 0) ((1) (let ((e-105 (vector-ref sc2 1))) (let ((sc3 e-105)) (cond ((equal? sc3 "_") (TTImpC-45ElabC-45Term-checkTerm arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 e-2 e-3 e-4 (vector 0 ) e-6 e-7) arg-10))(else (TTImpC-45ElabC-45Binders-checkPi arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2 e-3 e-4 e-104 e-6 e-7 arg-10))))))(else (TTImpC-45ElabC-45Binders-checkPi arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2 e-3 e-4 e-104 e-6 e-7 arg-10))))))))))))))) ((2) (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 3))) (let ((e-11 (vector-ref sc0 4))) (let ((e-12 (vector-ref sc0 5))) (let ((e-13 (vector-ref sc0 6))) (let ((sc1 e-11)) (case (vector-ref sc1 0) ((1) (let ((e-107 (vector-ref sc1 1))) (TTImpC-45ElabC-45Binders-checkLambda arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-8 e-9 e-10 e-107 e-12 e-13 arg-10))) (else (lambda (eta-0) (let ((act-24 (CoreC-45UnifyState-genVarName arg-1 arg-3 "_" eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) ((TTImpC-45ElabC-45Binders-checkLambda arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-8 e-9 e-10 e-5 e-12 e-13 arg-10) eta-0))))))))))))))))) ((3) (let ((e-14 (vector-ref sc0 1))) (let ((e-15 (vector-ref sc0 2))) (let ((e-16 (vector-ref sc0 3))) (let ((e-17 (vector-ref sc0 4))) (let ((e-18 (vector-ref sc0 5))) (let ((e-19 (vector-ref sc0 6))) (let ((e-20 (vector-ref sc0 7))) (TTImpC-45ElabC-45Binders-checkLet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-14 e-15 e-16 e-17 e-18 e-19 e-20 arg-10))))))))) ((4) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (let ((e-24 (vector-ref sc0 4))) (lambda (eta-0) (TTImpC-45ElabC-45Case-checkCase arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-21 e-22 e-23 e-24 arg-10 eta-0))))))) ((5) (let ((e-25 (vector-ref sc0 1))) (let ((e-26 (vector-ref sc0 2))) (let ((e-27 (vector-ref sc0 3))) (lambda (eta-0) (TTImpC-45ElabC-45Local-checkLocal arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-25 e-26 e-27 arg-10 eta-0)))))) ((6) (let ((e-28 (vector-ref sc0 1))) (let ((e-29 (vector-ref sc0 2))) (let ((e-30 (vector-ref sc0 3))) (let ((e-31 (vector-ref sc0 4))) (let ((e-32 (vector-ref sc0 5))) (lambda (eta-0) (TTImpC-45ElabC-45Local-checkCaseLocal arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-28 e-29 e-30 e-31 e-32 arg-10 eta-0)))))))) ((7) (let ((e-33 (vector-ref sc0 1))) (let ((e-34 (vector-ref sc0 2))) (let ((e-35 (vector-ref sc0 3))) (lambda (eta-0) (TTImpC-45ElabC-45Record-checkUpdate arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-33 e-34 e-35 arg-10 eta-0)))))) ((8) (let ((e-36 (vector-ref sc0 1))) (let ((e-37 (vector-ref sc0 2))) (let ((e-38 (vector-ref sc0 3))) (TTImpC-45ElabC-45App-checkApp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-36 e-37 (cons e-38 '()) '() '() arg-10))))) ((9) (let ((e-39 (vector-ref sc0 1))) (let ((e-40 (vector-ref sc0 2))) (let ((e-41 (vector-ref sc0 3))) (TTImpC-45ElabC-45App-checkApp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-39 e-40 '() (cons e-41 '()) '() arg-10))))) ((11) (let ((e-42 (vector-ref sc0 1))) (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 e-42 "with application not implemented yet") eta-0)))) ((10) (let ((e-45 (vector-ref sc0 1))) (let ((e-46 (vector-ref sc0 2))) (let ((e-47 (vector-ref sc0 3))) (let ((e-48 (vector-ref sc0 4))) (TTImpC-45ElabC-45App-checkApp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-45 e-46 '() '() (cons (cons e-47 e-48) '()) arg-10)))))) ((12) (let ((e-49 (vector-ref sc0 1))) (let ((e-50 (vector-ref sc0 2))) (lambda (clam-0) (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((1) (let ((e-110 (vector-ref sc1 1))) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (CoreC-45UnifyState-genName arg-1 arg-3 "search" clam-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 ((CoreC-45Normalise-getTerm e-110) clam-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-27 (TTImpC-45ElabC-45Check-searchVar arg-0 arg-1 arg-3 e-49 arg-5 e-50 (vector 9 (let ((sc5 e-5)) (let ((e-2 (vector-ref sc5 2))) e-2))) arg-8 arg-7 e-6 e-7 clam-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc5 1))) (vector 1 (cons e-8 e-110)))))))))))))))))))))))) (else (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (CoreC-45UnifyState-genName arg-1 arg-3 "searchTy" clam-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (TTImpC-45ElabC-45Check-metaVar arg-0 arg-1 arg-3 e-49 (AlgebraC-45Semiring-erased (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))) arg-8 e-6 (vector 11 e-49) clam-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-27 (CoreC-45UnifyState-genName arg-1 arg-3 "search" clam-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-28 (TTImpC-45ElabC-45Check-searchVar arg-0 arg-1 arg-3 e-49 arg-5 e-50 (vector 9 (let ((sc6 e-5)) (let ((e-2 (vector-ref sc6 2))) e-2))) arg-8 arg-7 e-8 e-7 clam-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc6 1))) (vector 1 (cons e-9 (CoreC-45Normalise-gnf arg-0 arg-8 e-7))))))))))))))))))))))))))))))))))) ((13) (let ((e-51 (vector-ref sc0 1))) (let ((e-52 (vector-ref sc0 2))) (let ((e-53 (vector-ref sc0 3))) (lambda (eta-0) (TTImpC-45ElabC-45Ambiguity-checkAlternative arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-51 e-52 e-53 arg-10 eta-0)))))) ((14) (let ((e-54 (vector-ref sc0 1))) (let ((e-55 (vector-ref sc0 2))) (let ((e-56 (vector-ref sc0 3))) (lambda (eta-0) (TTImpC-45ElabC-45Rewrite-checkRewrite arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-54 e-55 e-56 arg-10 eta-0)))))) ((15) (let ((e-58 (vector-ref sc0 2))) (TTImpC-45ElabC-45Term-checkTerm arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-58 arg-10))) ((16) (let ((e-59 (vector-ref sc0 1))) (let ((e-60 (vector-ref sc0 2))) (let ((e-61 (vector-ref sc0 3))) (lambda (eta-0) (TTImpC-45ElabC-45ImplicitBind-checkBindHere arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-59 e-60 e-61 arg-10 eta-0)))))) ((17) (let ((e-62 (vector-ref sc0 1))) (let ((e-63 (vector-ref sc0 2))) (TTImpC-45ElabC-45ImplicitBind-checkBindVar arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-62 e-63 arg-10)))) ((18) (let ((e-64 (vector-ref sc0 1))) (let ((e-65 (vector-ref sc0 2))) (let ((e-66 (vector-ref sc0 3))) (let ((e-67 (vector-ref sc0 4))) (let ((e-68 (vector-ref sc0 5))) (TTImpC-45ElabC-45As-checkAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-64 e-65 e-66 e-67 e-68 arg-10))))))) ((19) (let ((e-69 (vector-ref sc0 1))) (let ((e-70 (vector-ref sc0 2))) (let ((e-71 (vector-ref sc0 3))) (TTImpC-45ElabC-45Dot-checkDot arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-69 e-70 e-71 arg-10))))) ((20) (let ((e-72 (vector-ref sc0 1))) (let ((e-73 (vector-ref sc0 2))) (let ((e-74 (vector-ref sc0 3))) (lambda (eta-0) (TTImpC-45ElabC-45Lazy-checkDelayed arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-72 e-73 e-74 arg-10 eta-0)))))) ((21) (let ((e-75 (vector-ref sc0 1))) (let ((e-76 (vector-ref sc0 2))) (lambda (eta-0) (TTImpC-45ElabC-45Lazy-checkDelay arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-75 e-76 arg-10 eta-0))))) ((22) (let ((e-77 (vector-ref sc0 1))) (let ((e-78 (vector-ref sc0 2))) (lambda (eta-0) (TTImpC-45ElabC-45Lazy-checkForce arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-77 e-78 arg-10 eta-0))))) ((23) (let ((e-79 (vector-ref sc0 1))) (let ((e-80 (vector-ref sc0 2))) (lambda (eta-0) (TTImpC-45ElabC-45Quote-checkQuote arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-79 e-80 arg-10 eta-0))))) ((24) (let ((e-81 (vector-ref sc0 1))) (let ((e-82 (vector-ref sc0 2))) (lambda (eta-0) (TTImpC-45ElabC-45Quote-checkQuoteName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-81 e-82 arg-10 eta-0))))) ((25) (let ((e-83 (vector-ref sc0 1))) (let ((e-84 (vector-ref sc0 2))) (lambda (eta-0) (TTImpC-45ElabC-45Quote-checkQuoteDecl arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-83 e-84 arg-10 eta-0))))) ((26) (let ((e-85 (vector-ref sc0 1))) (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 e-85 "Can't escape outside a quoted term") eta-0)))) ((27) (let ((e-87 (vector-ref sc0 1))) (let ((e-88 (vector-ref sc0 2))) (lambda (eta-0) (TTImpC-45ElabC-45RunElab-checkRunElab arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-87 e-88 arg-10 eta-0))))) ((28) (let ((e-89 (vector-ref sc0 1))) (let ((e-90 (vector-ref sc0 2))) (TTImpC-45ElabC-45Term-case--checkTerm-8481 arg-1 e-90 e-89 arg-0 arg-10 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 (TTImpC-45ElabC-45Prim-checkPrim e-89 e-90))))) ((29) (let ((e-91 (vector-ref sc0 1))) (lambda (eta-0) (TTImpC-45ElabC-45Check-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 e-91 (vector 11 e-91) (CoreC-45Normalise-gType e-91) arg-10 eta-0)))) ((30) (let ((e-92 (vector-ref sc0 1))) (let ((e-93 (vector-ref sc0 2))) (lambda (eta-0) (TTImpC-45ElabC-45Hole-checkHole arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-92 e-93 arg-10 eta-0))))) ((31) (let ((e-95 (vector-ref sc0 2))) (let ((e-96 (vector-ref sc0 3))) (lambda (eta-0) (CoreC-45Context-withLogLevel arg-1 e-95 (TTImpC-45ElabC-45Check-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-96 arg-10) eta-0))))) ((32) (let ((e-97 (vector-ref sc0 1))) (let ((e-98 (vector-ref sc0 2))) (lambda (clam-1) (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((1) (let ((e-113 (vector-ref sc1 1))) (let ((act-24 (CoreC-45UnifyState-genName arg-1 arg-3 "_" clam-1))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((CoreC-45Normalise-getTerm e-113) clam-1))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (TTImpC-45ElabC-45Check-metaVar arg-0 arg-1 arg-3 e-97 arg-5 arg-8 e-5 e-6 clam-1))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-27 (let ((sc5 (PreludeC-45Basics-C-38C-38 e-98 (lambda () (let ((sc6 arg-6)) (let ((e-3 (vector-ref sc6 4))) e-3)))))) (cond ((equal? sc5 0) (let ((act-27 (let ((act-27 (unbox arg-4))) (vector 1 act-27)))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc6 1))) (let ((act-28 ((CoreC-45Normalise-getTerm e-113) clam-1))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-29 (set-box! arg-4 (TTImpC-45ElabC-45Check-addBindIfUnsolved arg-0 e-5 arg-5 (vector 1 ) arg-8 e-7 e-9 e-8)))) (vector 1 act-29))))))))))))) (else (vector 1 (vector 0 ))))))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (vector 1 (cons e-7 e-113))))))))))))))))))))))) (else (let ((act-24 (CoreC-45UnifyState-genName arg-1 arg-3 "implicit_type" clam-1))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (TTImpC-45ElabC-45Check-metaVar arg-0 arg-1 arg-3 e-97 (AlgebraC-45Semiring-erased (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))) arg-8 e-5 (vector 11 e-97) clam-1))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (CoreC-45UnifyState-genName arg-1 arg-3 "_" clam-1))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-27 (TTImpC-45ElabC-45Check-metaVar arg-0 arg-1 arg-3 e-97 arg-5 arg-8 e-7 e-6 clam-1))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-28 (let ((sc6 (PreludeC-45Basics-C-38C-38 e-98 (lambda () (let ((sc7 arg-6)) (let ((e-3 (vector-ref sc7 4))) e-3)))))) (cond ((equal? sc6 0) (let ((act-28 (let ((act-28 (unbox arg-4))) (vector 1 act-28)))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-29 (set-box! arg-4 (TTImpC-45ElabC-45Check-addBindIfUnsolved arg-0 e-7 arg-5 (vector 1 ) arg-8 e-8 e-6 e-9)))) (vector 1 act-29)))))))) (else (vector 1 (vector 0 ))))))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (vector 1 (cons e-8 (CoreC-45Normalise-gnf arg-0 arg-8 e-6)))))))))))))))))))))))))))))))))) (else (let ((e-99 (vector-ref sc0 1))) (let ((e-100 (vector-ref sc0 2))) (let ((e-101 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((TTImpC-45ElabC-45Term-n--16630-8679-u--resolveNames arg-0 e-101 e-100 e-99 arg-10 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-99 e-100) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (let ((act-26 (set-box! arg-4 (let ((sc3 e-5)) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-3 (vector-ref sc3 3))) (let ((e-4 (vector-ref sc3 4))) (let ((e-15 (vector-ref sc3 5))) (let ((e-14 (vector-ref sc3 6))) (let ((e-7 (vector-ref sc3 7))) (let ((e-8 (vector-ref sc3 8))) (let ((e-9 (vector-ref sc3 9))) (let ((e-10 (vector-ref sc3 10))) (let ((e-11 (vector-ref sc3 11))) (let ((e-12 (vector-ref sc3 12))) (vector 0 e-1 e-2 e-3 e-4 e-15 e-14 e-7 e-8 e-9 e-10 e-11 e-12 (LibrariesC-45DataC-45StringMap-mergeLeft e-6 (let ((sc4 e-5)) (let ((e-16 (vector-ref sc4 13))) e-16)))))))))))))))))))) (vector 1 act-26)))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 ((TTImpC-45ElabC-45Check-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-101 arg-10) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (let ((act-28 (unbox arg-4))) (vector 1 act-28)))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 (let ((act-29 (set-box! arg-4 (let ((sc6 e-9)) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((e-3 (vector-ref sc6 3))) (let ((e-4 (vector-ref sc6 4))) (let ((e-18 (vector-ref sc6 5))) (let ((e-17 (vector-ref sc6 6))) (let ((e-16 (vector-ref sc6 7))) (let ((e-15 (vector-ref sc6 8))) (let ((e-14 (vector-ref sc6 9))) (let ((e-10 (vector-ref sc6 10))) (let ((e-11 (vector-ref sc6 11))) (let ((e-12 (vector-ref sc6 12))) (vector 0 e-1 e-2 e-3 e-4 e-18 e-17 e-16 e-15 e-14 e-10 e-11 e-12 (let ((sc7 e-5)) (let ((e-19 (vector-ref sc7 13))) e-19))))))))))))))))))) (vector 1 act-29)))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (vector 1 e-8)))))))))))))))))))))))))))))))))))))) -(define TTImpC-45ElabC-45Check-checkImp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (TTImpC-45ElabC-45Term-checkTerm arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10))) -(define TTImpC-45ElabC-45Check-check (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((15) (let ((e-1 (vector-ref sc0 2))) (TTImpC-45ElabC-45Check-checkImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-1 arg-10))) ((3) (TTImpC-45ElabC-45Check-checkImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10)) ((5) (TTImpC-45ElabC-45Check-checkImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10)) ((7) (TTImpC-45ElabC-45Check-checkImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (unbox arg-4))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((TTImpC-45ElabC-45Ambiguity-expandAmbigName arg-0 arg-1 arg-4 (let ((sc2 arg-6)) (let ((e-0 (vector-ref sc2 1))) e-0)) arg-7 arg-8 arg-9 '() arg-9 arg-10) eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) ((TTImpC-45ElabC-45Term-case--check-9177 arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-6 e-7 (let ((sc3 arg-6)) (let ((e-0 (vector-ref sc3 1))) e-0))) eta-0)))))))))))))))))))))) -(define TTImpC-45Reflect-case--reify-13534 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (if (null? sc0) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "Decl" eta-0)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 "IClaim") (let ((sc4 e-3)) (if (null? sc4) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "Decl" eta-0)) (let ((e-8 (car sc4))) (let ((e-9 (cdr sc4))) (let ((sc5 e-9)) (if (null? sc5) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "Decl" eta-0)) (let ((e-11 (car sc5))) (let ((e-12 (cdr sc5))) (let ((sc6 e-12)) (if (null? sc6) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "Decl" eta-0)) (let ((e-14 (car sc6))) (let ((e-15 (cdr sc6))) (let ((sc7 e-15)) (if (null? sc7) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "Decl" eta-0)) (let ((e-17 (car sc7))) (let ((e-18 (cdr sc7))) (lambda (clam-0) (let ((sc8 e-18)) (if (null? sc8) (CoreC-45Reflect-cantReify arg-6 "Decl" clam-0) (let ((e-20 (car sc8))) (let ((e-21 (cdr sc8))) (let ((sc9 e-21)) (if (null? sc9) (let ((act-24 (let ((act-24 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-8) clam-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-7 (vector-ref sc10 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc10 1))) (CoreC-45Reflect-u--reify_Reify_FC arg-8 arg-0 arg-7 e-7 clam-0)))))))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-7 (vector-ref sc10 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc10 1))) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-11) clam-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-10 (vector-ref sc11 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc11 1))) (CoreC-45Reflect-u--reify_Reify_RigCount arg-8 arg-0 arg-7 e-10 clam-0)))))))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-10 (vector-ref sc11 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc11 1))) (let ((act-26 (let ((act-26 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-14) clam-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-13 (vector-ref sc12 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc12 1))) (CoreC-45Reflect-u--reify_Reify_Visibility arg-8 arg-0 arg-7 e-13 clam-0)))))))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-13 (vector-ref sc12 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc12 1))) (let ((act-27 (let ((act-27 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-17) clam-0))) (let ((sc13 act-27)) (case (vector-ref sc13 0) ((0) (let ((e-16 (vector-ref sc13 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc13 1))) (CoreC-45Reflect-u--reify_Reify_C-40ListC-32C-36aC-41 (lambda (u--c) (lambda (u--vars) (lambda (arg-3831) (lambda (arg-3832) (lambda (eta-0) (TTImpC-45Reflect-u--reify_Reify_FnOpt u--c u--vars arg-3831 arg-3832 eta-0)))))) arg-8 arg-0 arg-7 e-16 clam-0)))))))) (let ((sc13 act-27)) (case (vector-ref sc13 0) ((0) (let ((e-16 (vector-ref sc13 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc13 1))) (let ((act-28 (let ((act-28 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-20) clam-0))) (let ((sc14 act-28)) (case (vector-ref sc14 0) ((0) (let ((e-19 (vector-ref sc14 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref sc14 1))) (TTImpC-45Reflect-u--reify_Reify_ImpTy arg-8 arg-0 arg-7 e-19 clam-0)))))))) (let ((sc14 act-28)) (case (vector-ref sc14 0) ((0) (let ((e-19 (vector-ref sc14 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref sc14 1))) (vector 1 (vector 0 e-7 e-10 e-13 e-16 e-19))))))))))))))))))))))))))) (CoreC-45Reflect-cantReify arg-6 "Decl" clam-0))))))))))))))))))))))))) ((equal? sc3 "IData") (let ((sc4 e-3)) (if (null? sc4) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "Decl" eta-0)) (let ((e-24 (car sc4))) (let ((e-25 (cdr sc4))) (let ((sc5 e-25)) (if (null? sc5) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "Decl" eta-0)) (let ((e-27 (car sc5))) (let ((e-28 (cdr sc5))) (lambda (clam-1) (let ((sc6 e-28)) (if (null? sc6) (CoreC-45Reflect-cantReify arg-6 "Decl" clam-1) (let ((e-30 (car sc6))) (let ((e-31 (cdr sc6))) (let ((sc7 e-31)) (if (null? sc7) (let ((act-24 (let ((act-24 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-24) clam-1))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (CoreC-45Reflect-u--reify_Reify_FC arg-8 arg-0 arg-7 e-7 clam-1)))))))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-27) clam-1))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) (CoreC-45Reflect-u--reify_Reify_Visibility arg-8 arg-0 arg-7 e-8 clam-1)))))))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) (let ((act-26 (let ((act-26 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-30) clam-1))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) (TTImpC-45Reflect-u--reify_Reify_ImpData arg-8 arg-0 arg-7 e-9 clam-1)))))))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) (vector 1 (vector 1 e-7 e-8 e-9))))))))))))))))) (CoreC-45Reflect-cantReify arg-6 "Decl" clam-1))))))))))))))))) ((equal? sc3 "IDef") (let ((sc4 e-3)) (if (null? sc4) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "Decl" eta-0)) (let ((e-34 (car sc4))) (let ((e-35 (cdr sc4))) (let ((sc5 e-35)) (if (null? sc5) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "Decl" eta-0)) (let ((e-37 (car sc5))) (let ((e-38 (cdr sc5))) (lambda (clam-2) (let ((sc6 e-38)) (if (null? sc6) (CoreC-45Reflect-cantReify arg-6 "Decl" clam-2) (let ((e-40 (car sc6))) (let ((e-41 (cdr sc6))) (let ((sc7 e-41)) (if (null? sc7) (let ((act-24 (let ((act-24 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-34) clam-2))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (CoreC-45Reflect-u--reify_Reify_FC arg-8 arg-0 arg-7 e-7 clam-2)))))))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-37) clam-2))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) (CoreC-45Reflect-u--reify_Reify_Name arg-8 arg-0 arg-7 e-8 clam-2)))))))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) (let ((act-26 (let ((act-26 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-40) clam-2))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) (CoreC-45Reflect-u--reify_Reify_C-40ListC-32C-36aC-41 (lambda (u--c) (lambda (u--vars) (lambda (arg-3831) (lambda (arg-3832) (lambda (eta-0) (TTImpC-45Reflect-u--reify_Reify_ImpClause u--c u--vars arg-3831 arg-3832 eta-0)))))) arg-8 arg-0 arg-7 e-9 clam-2)))))))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) (vector 1 (vector 2 e-7 e-8 e-9))))))))))))))))) (CoreC-45Reflect-cantReify arg-6 "Decl" clam-2))))))))))))))))) ((equal? sc3 "IParameters") (let ((sc4 e-3)) (if (null? sc4) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "Decl" eta-0)) (let ((e-44 (car sc4))) (let ((e-45 (cdr sc4))) (let ((sc5 e-45)) (if (null? sc5) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "Decl" eta-0)) (let ((e-47 (car sc5))) (let ((e-48 (cdr sc5))) (lambda (clam-3) (let ((sc6 e-48)) (if (null? sc6) (CoreC-45Reflect-cantReify arg-6 "Decl" clam-3) (let ((e-50 (car sc6))) (let ((e-51 (cdr sc6))) (let ((sc7 e-51)) (if (null? sc7) (let ((act-24 (let ((act-24 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-44) clam-3))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (CoreC-45Reflect-u--reify_Reify_FC arg-8 arg-0 arg-7 e-7 clam-3)))))))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-47) clam-3))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) (CoreC-45Reflect-u--reify_Reify_C-40ListC-32C-36aC-41 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (CoreC-45Reflect-u--reify_Reify_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (lambda (eta-7) (lambda (eta-8) (CoreC-45Reflect-u--reify_Reify_Name eta-4 eta-5 eta-6 eta-7 eta-8)))))) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (lambda (eta-7) (CoreC-45Reflect-u--reify_Reify_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (eta-8) (lambda (eta-9) (lambda (eta-10) (lambda (eta-11) (lambda (eta-12) (CoreC-45Reflect-u--reify_Reify_RigCount eta-8 eta-9 eta-10 eta-11 eta-12)))))) (lambda (eta-8) (lambda (eta-9) (lambda (eta-10) (lambda (eta-11) (CoreC-45Reflect-u--reify_Reify_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (eta-12) (lambda (eta-13) (lambda (eta-14) (lambda (eta-15) (lambda (eta-16) (CoreC-45Reflect-u--reify_Reify_C-40PiInfoC-32C-36tC-41 (lambda (u--c) (lambda (u--vars) (lambda (arg-3831) (lambda (arg-3832) (lambda (eta-17) (TTImpC-45Reflect-u--reify_Reify_RawImp u--c u--vars arg-3831 arg-3832 eta-17)))))) eta-12 eta-13 eta-14 eta-15 eta-16)))))) (lambda (u--c) (lambda (u--vars) (lambda (arg-3831) (lambda (arg-3832) (lambda (eta-12) (TTImpC-45Reflect-u--reify_Reify_RawImp u--c u--vars arg-3831 arg-3832 eta-12))))))) eta-8 eta-9 eta-10 eta-11)))))) eta-4 eta-5 eta-6 eta-7)))))) eta-0 eta-1 eta-2 eta-3))))) arg-8 arg-0 arg-7 e-8 clam-3)))))))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) (let ((act-26 (let ((act-26 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-50) clam-3))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) (CoreC-45Reflect-u--reify_Reify_C-40ListC-32C-36aC-41 (lambda (u--c) (lambda (u--vars) (lambda (arg-3831) (lambda (arg-3832) (lambda (eta-0) (TTImpC-45Reflect-u--reify_Reify_ImpDecl u--c u--vars arg-3831 arg-3832 eta-0)))))) arg-8 arg-0 arg-7 e-9 clam-3)))))))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) (vector 1 (vector 3 e-7 e-8 e-9))))))))))))))))) (CoreC-45Reflect-cantReify arg-6 "Decl" clam-3))))))))))))))))) ((equal? sc3 "IRecord") (let ((sc4 e-3)) (if (null? sc4) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "Decl" eta-0)) (let ((e-54 (car sc4))) (let ((e-55 (cdr sc4))) (let ((sc5 e-55)) (if (null? sc5) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "Decl" eta-0)) (let ((e-57 (car sc5))) (let ((e-58 (cdr sc5))) (lambda (clam-4) (let ((sc6 e-58)) (if (null? sc6) (CoreC-45Reflect-cantReify arg-6 "Decl" clam-4) (let ((e-60 (car sc6))) (let ((e-61 (cdr sc6))) (let ((sc7 e-61)) (if (null? sc7) (let ((act-24 (let ((act-24 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-54) clam-4))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (CoreC-45Reflect-u--reify_Reify_FC arg-8 arg-0 arg-7 e-7 clam-4)))))))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-57) clam-4))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) (CoreC-45Reflect-u--reify_Reify_Visibility arg-8 arg-0 arg-7 e-8 clam-4)))))))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) (let ((act-26 (let ((act-26 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-60) clam-4))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) (TTImpC-45Reflect-u--reify_Reify_ImpRecord arg-8 arg-0 arg-7 e-9 clam-4)))))))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) (vector 1 (vector 4 e-7 (vector 0 ) e-8 e-9))))))))))))))))) (CoreC-45Reflect-cantReify arg-6 "Decl" clam-4))))))))))))))))) ((equal? sc3 "INamespace") (let ((sc4 e-3)) (if (null? sc4) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "Decl" eta-0)) (let ((e-64 (car sc4))) (let ((e-65 (cdr sc4))) (let ((sc5 e-65)) (if (null? sc5) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "Decl" eta-0)) (let ((e-67 (car sc5))) (let ((e-68 (cdr sc5))) (lambda (clam-5) (let ((sc6 e-68)) (if (null? sc6) (CoreC-45Reflect-cantReify arg-6 "Decl" clam-5) (let ((e-70 (car sc6))) (let ((e-71 (cdr sc6))) (let ((sc7 e-71)) (if (null? sc7) (let ((act-24 (let ((act-24 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-64) clam-5))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (CoreC-45Reflect-u--reify_Reify_FC arg-8 arg-0 arg-7 e-7 clam-5)))))))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-67) clam-5))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) ((CoreC-45Reflect-u--reify_Reify_Namespace arg-8 arg-0 arg-7 e-8) clam-5)))))))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) (let ((act-26 (let ((act-26 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-70) clam-5))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) (CoreC-45Reflect-u--reify_Reify_C-40ListC-32C-36aC-41 (lambda (u--c) (lambda (u--vars) (lambda (arg-3831) (lambda (arg-3832) (lambda (eta-0) (TTImpC-45Reflect-u--reify_Reify_ImpDecl u--c u--vars arg-3831 arg-3832 eta-0)))))) arg-8 arg-0 arg-7 e-9 clam-5)))))))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) (vector 1 (vector 5 e-7 e-8 e-9))))))))))))))))) (CoreC-45Reflect-cantReify arg-6 "Decl" clam-5))))))))))))))))) ((equal? sc3 "ITransform") (let ((sc4 e-3)) (if (null? sc4) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "Decl" eta-0)) (let ((e-74 (car sc4))) (let ((e-75 (cdr sc4))) (let ((sc5 e-75)) (if (null? sc5) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "Decl" eta-0)) (let ((e-77 (car sc5))) (let ((e-78 (cdr sc5))) (let ((sc6 e-78)) (if (null? sc6) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "Decl" eta-0)) (let ((e-80 (car sc6))) (let ((e-81 (cdr sc6))) (lambda (clam-6) (let ((sc7 e-81)) (if (null? sc7) (CoreC-45Reflect-cantReify arg-6 "Decl" clam-6) (let ((e-83 (car sc7))) (let ((e-84 (cdr sc7))) (let ((sc8 e-84)) (if (null? sc8) (let ((act-24 (let ((act-24 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-74) clam-6))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-7 (vector-ref sc9 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc9 1))) (CoreC-45Reflect-u--reify_Reify_FC arg-8 arg-0 arg-7 e-7 clam-6)))))))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-7 (vector-ref sc9 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc9 1))) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-77) clam-6))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-8 (vector-ref sc10 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc10 1))) (CoreC-45Reflect-u--reify_Reify_Name arg-8 arg-0 arg-7 e-8 clam-6)))))))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-8 (vector-ref sc10 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc10 1))) (let ((act-26 (let ((act-26 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-80) clam-6))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc11 1))) (TTImpC-45Reflect-u--reify_Reify_RawImp arg-8 arg-0 arg-7 e-9 clam-6)))))))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc11 1))) (let ((act-27 (let ((act-27 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-83) clam-6))) (let ((sc12 act-27)) (case (vector-ref sc12 0) ((0) (let ((e-10 (vector-ref sc12 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc12 1))) (TTImpC-45Reflect-u--reify_Reify_RawImp arg-8 arg-0 arg-7 e-10 clam-6)))))))) (let ((sc12 act-27)) (case (vector-ref sc12 0) ((0) (let ((e-10 (vector-ref sc12 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc12 1))) (vector 1 (vector 6 e-7 e-8 e-9 e-10)))))))))))))))))))))) (CoreC-45Reflect-cantReify arg-6 "Decl" clam-6))))))))))))))))))))) ((equal? sc3 "ILog") (lambda (clam-7) (let ((sc4 e-3)) (if (null? sc4) (CoreC-45Reflect-cantReify arg-6 "Decl" clam-7) (let ((e-87 (car sc4))) (let ((e-88 (cdr sc4))) (let ((sc5 e-88)) (if (null? sc5) (let ((act-24 (let ((act-24 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-87) clam-7))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (CoreC-45Reflect-u--reify_Reify_C-40MaybeC-32C-36aC-41 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (CoreC-45Reflect-u--reify_Reify_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (lambda (eta-7) (lambda (eta-8) (CoreC-45Reflect-u--reify_Reify_C-40ListC-32C-36aC-41 (lambda (eta-9) (lambda (eta-10) (lambda (eta-11) (lambda (eta-12) (CoreC-45Reflect-u--reify_Reify_String eta-9 eta-10 eta-11 eta-12))))) eta-4 eta-5 eta-6 eta-7 eta-8)))))) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (lambda (eta-7) (lambda (eta-8) (CoreC-45Reflect-u--reify_Reify_Nat eta-4 eta-5 eta-6 eta-7 eta-8))))))) eta-0 eta-1 eta-2 eta-3))))) arg-8 arg-0 arg-7 e-7 clam-7)))))))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (vector 1 (vector 9 e-7))))))) (CoreC-45Reflect-cantReify arg-6 "Decl" clam-7)))))))))(else (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "Decl" eta-0)))))))(else (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "Decl" eta-0)))))))(else (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "Decl" eta-0))))))))))) -(define TTImpC-45Reflect-case--reify-13145 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (if (null? sc0) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "Clause" eta-0)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 "PatClause") (let ((sc4 e-3)) (if (null? sc4) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "Clause" eta-0)) (let ((e-8 (car sc4))) (let ((e-9 (cdr sc4))) (let ((sc5 e-9)) (if (null? sc5) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "Clause" eta-0)) (let ((e-11 (car sc5))) (let ((e-12 (cdr sc5))) (lambda (clam-0) (let ((sc6 e-12)) (if (null? sc6) (CoreC-45Reflect-cantReify arg-6 "Clause" clam-0) (let ((e-14 (car sc6))) (let ((e-15 (cdr sc6))) (let ((sc7 e-15)) (if (null? sc7) (let ((act-24 (let ((act-24 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-8) clam-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (CoreC-45Reflect-u--reify_Reify_FC arg-8 arg-0 arg-7 e-7 clam-0)))))))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-11) clam-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (TTImpC-45Reflect-u--reify_Reify_RawImp arg-8 arg-0 arg-7 e-10 clam-0)))))))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-26 (let ((act-26 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-14) clam-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-13 (vector-ref sc10 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc10 1))) (TTImpC-45Reflect-u--reify_Reify_RawImp arg-8 arg-0 arg-7 e-13 clam-0)))))))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-13 (vector-ref sc10 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc10 1))) (vector 1 (vector 0 e-7 e-10 e-13))))))))))))))))) (CoreC-45Reflect-cantReify arg-6 "Clause" clam-0))))))))))))))))) ((equal? sc3 "WithClause") (let ((sc4 e-3)) (if (null? sc4) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "Clause" eta-0)) (let ((e-18 (car sc4))) (let ((e-19 (cdr sc4))) (let ((sc5 e-19)) (if (null? sc5) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "Clause" eta-0)) (let ((e-21 (car sc5))) (let ((e-22 (cdr sc5))) (let ((sc6 e-22)) (if (null? sc6) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "Clause" eta-0)) (let ((e-24 (car sc6))) (let ((e-25 (cdr sc6))) (let ((sc7 e-25)) (if (null? sc7) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "Clause" eta-0)) (let ((e-27 (car sc7))) (let ((e-28 (cdr sc7))) (lambda (clam-1) (let ((sc8 e-28)) (if (null? sc8) (CoreC-45Reflect-cantReify arg-6 "Clause" clam-1) (let ((e-30 (car sc8))) (let ((e-31 (cdr sc8))) (let ((sc9 e-31)) (if (null? sc9) (let ((act-24 (let ((act-24 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-18) clam-1))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-7 (vector-ref sc10 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc10 1))) (CoreC-45Reflect-u--reify_Reify_FC arg-8 arg-0 arg-7 e-7 clam-1)))))))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-7 (vector-ref sc10 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc10 1))) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-21) clam-1))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-8 (vector-ref sc11 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc11 1))) (TTImpC-45Reflect-u--reify_Reify_RawImp arg-8 arg-0 arg-7 e-8 clam-1)))))))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-8 (vector-ref sc11 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc11 1))) (let ((act-26 (let ((act-26 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-24) clam-1))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc12 1))) (TTImpC-45Reflect-u--reify_Reify_RawImp arg-8 arg-0 arg-7 e-9 clam-1)))))))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc12 1))) (let ((act-27 (let ((act-27 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-27) clam-1))) (let ((sc13 act-27)) (case (vector-ref sc13 0) ((0) (let ((e-10 (vector-ref sc13 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc13 1))) (CoreC-45Reflect-u--reify_Reify_C-40MaybeC-32C-36aC-41 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (CoreC-45Reflect-u--reify_Reify_Name eta-0 eta-1 eta-2 eta-3 eta-4)))))) arg-8 arg-0 arg-7 e-10 clam-1)))))))) (let ((sc13 act-27)) (case (vector-ref sc13 0) ((0) (let ((e-10 (vector-ref sc13 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc13 1))) (let ((act-28 (let ((act-28 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-30) clam-1))) (let ((sc14 act-28)) (case (vector-ref sc14 0) ((0) (let ((e-11 (vector-ref sc14 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc14 1))) (CoreC-45Reflect-u--reify_Reify_C-40ListC-32C-36aC-41 (lambda (u--c) (lambda (u--vars) (lambda (arg-3831) (lambda (arg-3832) (lambda (eta-0) (TTImpC-45Reflect-u--reify_Reify_ImpClause u--c u--vars arg-3831 arg-3832 eta-0)))))) arg-8 arg-0 arg-7 e-11 clam-1)))))))) (let ((sc14 act-28)) (case (vector-ref sc14 0) ((0) (let ((e-11 (vector-ref sc14 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc14 1))) (vector 1 (vector 1 e-7 e-8 e-9 e-10 '() e-11))))))))))))))))))))))))))) (CoreC-45Reflect-cantReify arg-6 "Clause" clam-1))))))))))))))))))))))))) ((equal? sc3 "ImpossibleClause") (let ((sc4 e-3)) (if (null? sc4) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "Clause" eta-0)) (let ((e-34 (car sc4))) (let ((e-35 (cdr sc4))) (lambda (clam-2) (let ((sc5 e-35)) (if (null? sc5) (CoreC-45Reflect-cantReify arg-6 "Clause" clam-2) (let ((e-37 (car sc5))) (let ((e-38 (cdr sc5))) (let ((sc6 e-38)) (if (null? sc6) (let ((act-24 (let ((act-24 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-34) clam-2))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (CoreC-45Reflect-u--reify_Reify_FC arg-8 arg-0 arg-7 e-7 clam-2)))))))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-37) clam-2))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (TTImpC-45Reflect-u--reify_Reify_RawImp arg-8 arg-0 arg-7 e-8 clam-2)))))))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (vector 2 e-7 e-8)))))))))))) (CoreC-45Reflect-cantReify arg-6 "Clause" clam-2)))))))))))))(else (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "Clause" eta-0)))))))(else (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "Clause" eta-0)))))))(else (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "Clause" eta-0))))))))))) -(define TTImpC-45Reflect-case--reify-12898 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (if (null? sc0) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "Record" eta-0)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 "MkRecord") (let ((sc4 e-3)) (if (null? sc4) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "Record" eta-0)) (let ((e-8 (car sc4))) (let ((e-9 (cdr sc4))) (let ((sc5 e-9)) (if (null? sc5) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "Record" eta-0)) (let ((e-11 (car sc5))) (let ((e-12 (cdr sc5))) (let ((sc6 e-12)) (if (null? sc6) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "Record" eta-0)) (let ((e-14 (car sc6))) (let ((e-15 (cdr sc6))) (let ((sc7 e-15)) (if (null? sc7) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "Record" eta-0)) (let ((e-17 (car sc7))) (let ((e-18 (cdr sc7))) (lambda (clam-0) (let ((sc8 e-18)) (if (null? sc8) (CoreC-45Reflect-cantReify arg-6 "Record" clam-0) (let ((e-20 (car sc8))) (let ((e-21 (cdr sc8))) (let ((sc9 e-21)) (if (null? sc9) (let ((act-24 (let ((act-24 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-8) clam-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-7 (vector-ref sc10 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc10 1))) (CoreC-45Reflect-u--reify_Reify_FC arg-8 arg-0 arg-7 e-7 clam-0)))))))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-7 (vector-ref sc10 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc10 1))) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-11) clam-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-10 (vector-ref sc11 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc11 1))) (CoreC-45Reflect-u--reify_Reify_Name arg-8 arg-0 arg-7 e-10 clam-0)))))))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-10 (vector-ref sc11 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc11 1))) (let ((act-26 (let ((act-26 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-14) clam-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-13 (vector-ref sc12 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc12 1))) (CoreC-45Reflect-u--reify_Reify_C-40ListC-32C-36aC-41 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (CoreC-45Reflect-u--reify_Reify_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (lambda (eta-7) (lambda (eta-8) (CoreC-45Reflect-u--reify_Reify_Name eta-4 eta-5 eta-6 eta-7 eta-8)))))) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (lambda (eta-7) (CoreC-45Reflect-u--reify_Reify_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (eta-8) (lambda (eta-9) (lambda (eta-10) (lambda (eta-11) (lambda (eta-12) (CoreC-45Reflect-u--reify_Reify_RigCount eta-8 eta-9 eta-10 eta-11 eta-12)))))) (lambda (eta-8) (lambda (eta-9) (lambda (eta-10) (lambda (eta-11) (CoreC-45Reflect-u--reify_Reify_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (eta-12) (lambda (eta-13) (lambda (eta-14) (lambda (eta-15) (lambda (eta-16) (CoreC-45Reflect-u--reify_Reify_C-40PiInfoC-32C-36tC-41 (lambda (u--c) (lambda (u--vars) (lambda (arg-3831) (lambda (arg-3832) (lambda (eta-17) (TTImpC-45Reflect-u--reify_Reify_RawImp u--c u--vars arg-3831 arg-3832 eta-17)))))) eta-12 eta-13 eta-14 eta-15 eta-16)))))) (lambda (u--c) (lambda (u--vars) (lambda (arg-3831) (lambda (arg-3832) (lambda (eta-12) (TTImpC-45Reflect-u--reify_Reify_RawImp u--c u--vars arg-3831 arg-3832 eta-12))))))) eta-8 eta-9 eta-10 eta-11)))))) eta-4 eta-5 eta-6 eta-7)))))) eta-0 eta-1 eta-2 eta-3))))) arg-8 arg-0 arg-7 e-13 clam-0)))))))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-13 (vector-ref sc12 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc12 1))) (let ((act-27 (let ((act-27 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-17) clam-0))) (let ((sc13 act-27)) (case (vector-ref sc13 0) ((0) (let ((e-16 (vector-ref sc13 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc13 1))) (CoreC-45Reflect-u--reify_Reify_Name arg-8 arg-0 arg-7 e-16 clam-0)))))))) (let ((sc13 act-27)) (case (vector-ref sc13 0) ((0) (let ((e-16 (vector-ref sc13 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc13 1))) (let ((act-28 (let ((act-28 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-20) clam-0))) (let ((sc14 act-28)) (case (vector-ref sc14 0) ((0) (let ((e-19 (vector-ref sc14 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref sc14 1))) (CoreC-45Reflect-u--reify_Reify_C-40ListC-32C-36aC-41 (lambda (u--c) (lambda (u--vars) (lambda (arg-3831) (lambda (arg-3832) (lambda (eta-0) (TTImpC-45Reflect-u--reify_Reify_IField u--c u--vars arg-3831 arg-3832 eta-0)))))) arg-8 arg-0 arg-7 e-19 clam-0)))))))) (let ((sc14 act-28)) (case (vector-ref sc14 0) ((0) (let ((e-19 (vector-ref sc14 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref sc14 1))) (vector 1 (vector 0 e-7 e-10 e-13 e-16 e-19))))))))))))))))))))))))))) (CoreC-45Reflect-cantReify arg-6 "Record" clam-0)))))))))))))))))))))))))(else (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "Record" eta-0)))))))(else (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "Record" eta-0)))))))(else (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "Record" eta-0))))))))))) -(define TTImpC-45Reflect-case--reify-12676 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (if (null? sc0) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "IField" eta-0)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 "MkIField") (let ((sc4 e-3)) (if (null? sc4) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "IField" eta-0)) (let ((e-8 (car sc4))) (let ((e-9 (cdr sc4))) (let ((sc5 e-9)) (if (null? sc5) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "IField" eta-0)) (let ((e-11 (car sc5))) (let ((e-12 (cdr sc5))) (let ((sc6 e-12)) (if (null? sc6) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "IField" eta-0)) (let ((e-14 (car sc6))) (let ((e-15 (cdr sc6))) (let ((sc7 e-15)) (if (null? sc7) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "IField" eta-0)) (let ((e-17 (car sc7))) (let ((e-18 (cdr sc7))) (lambda (clam-0) (let ((sc8 e-18)) (if (null? sc8) (CoreC-45Reflect-cantReify arg-6 "IField" clam-0) (let ((e-20 (car sc8))) (let ((e-21 (cdr sc8))) (let ((sc9 e-21)) (if (null? sc9) (let ((act-24 (let ((act-24 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-8) clam-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-7 (vector-ref sc10 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc10 1))) (CoreC-45Reflect-u--reify_Reify_FC arg-8 arg-0 arg-7 e-7 clam-0)))))))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-7 (vector-ref sc10 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc10 1))) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-11) clam-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-10 (vector-ref sc11 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc11 1))) (CoreC-45Reflect-u--reify_Reify_RigCount arg-8 arg-0 arg-7 e-10 clam-0)))))))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-10 (vector-ref sc11 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc11 1))) (let ((act-26 (let ((act-26 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-14) clam-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-13 (vector-ref sc12 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc12 1))) (CoreC-45Reflect-u--reify_Reify_C-40PiInfoC-32C-36tC-41 (lambda (u--c) (lambda (u--vars) (lambda (arg-3831) (lambda (arg-3832) (lambda (eta-0) (TTImpC-45Reflect-u--reify_Reify_RawImp u--c u--vars arg-3831 arg-3832 eta-0)))))) arg-8 arg-0 arg-7 e-13 clam-0)))))))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-13 (vector-ref sc12 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc12 1))) (let ((act-27 (let ((act-27 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-17) clam-0))) (let ((sc13 act-27)) (case (vector-ref sc13 0) ((0) (let ((e-16 (vector-ref sc13 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc13 1))) (CoreC-45Reflect-u--reify_Reify_Name arg-8 arg-0 arg-7 e-16 clam-0)))))))) (let ((sc13 act-27)) (case (vector-ref sc13 0) ((0) (let ((e-16 (vector-ref sc13 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc13 1))) (let ((act-28 (let ((act-28 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-20) clam-0))) (let ((sc14 act-28)) (case (vector-ref sc14 0) ((0) (let ((e-19 (vector-ref sc14 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref sc14 1))) (TTImpC-45Reflect-u--reify_Reify_RawImp arg-8 arg-0 arg-7 e-19 clam-0)))))))) (let ((sc14 act-28)) (case (vector-ref sc14 0) ((0) (let ((e-19 (vector-ref sc14 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref sc14 1))) (vector 1 (vector 0 e-7 e-10 e-13 e-16 e-19))))))))))))))))))))))))))) (CoreC-45Reflect-cantReify arg-6 "IField" clam-0)))))))))))))))))))))))))(else (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "IField" eta-0)))))))(else (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "IField" eta-0)))))))(else (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "IField" eta-0))))))))))) -(define TTImpC-45Reflect-case--reify-12361 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (if (null? sc0) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "Data" eta-0)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 "MkData") (let ((sc4 e-3)) (if (null? sc4) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "Data" eta-0)) (let ((e-8 (car sc4))) (let ((e-9 (cdr sc4))) (let ((sc5 e-9)) (if (null? sc5) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "Data" eta-0)) (let ((e-11 (car sc5))) (let ((e-12 (cdr sc5))) (let ((sc6 e-12)) (if (null? sc6) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "Data" eta-0)) (let ((e-14 (car sc6))) (let ((e-15 (cdr sc6))) (let ((sc7 e-15)) (if (null? sc7) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "Data" eta-0)) (let ((e-17 (car sc7))) (let ((e-18 (cdr sc7))) (lambda (clam-0) (let ((sc8 e-18)) (if (null? sc8) (CoreC-45Reflect-cantReify arg-6 "Data" clam-0) (let ((e-20 (car sc8))) (let ((e-21 (cdr sc8))) (let ((sc9 e-21)) (if (null? sc9) (let ((act-24 (let ((act-24 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-8) clam-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-7 (vector-ref sc10 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc10 1))) (CoreC-45Reflect-u--reify_Reify_FC arg-8 arg-0 arg-7 e-7 clam-0)))))))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-7 (vector-ref sc10 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc10 1))) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-11) clam-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-10 (vector-ref sc11 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc11 1))) (CoreC-45Reflect-u--reify_Reify_Name arg-8 arg-0 arg-7 e-10 clam-0)))))))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-10 (vector-ref sc11 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc11 1))) (let ((act-26 (let ((act-26 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-14) clam-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-13 (vector-ref sc12 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc12 1))) (TTImpC-45Reflect-u--reify_Reify_RawImp arg-8 arg-0 arg-7 e-13 clam-0)))))))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-13 (vector-ref sc12 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc12 1))) (let ((act-27 (let ((act-27 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-17) clam-0))) (let ((sc13 act-27)) (case (vector-ref sc13 0) ((0) (let ((e-16 (vector-ref sc13 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc13 1))) (CoreC-45Reflect-u--reify_Reify_C-40ListC-32C-36aC-41 (lambda (u--c) (lambda (u--vars) (lambda (arg-3831) (lambda (arg-3832) (lambda (eta-0) (TTImpC-45Reflect-u--reify_Reify_DataOpt u--c u--vars arg-3831 arg-3832 eta-0)))))) arg-8 arg-0 arg-7 e-16 clam-0)))))))) (let ((sc13 act-27)) (case (vector-ref sc13 0) ((0) (let ((e-16 (vector-ref sc13 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc13 1))) (let ((act-28 (let ((act-28 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-20) clam-0))) (let ((sc14 act-28)) (case (vector-ref sc14 0) ((0) (let ((e-19 (vector-ref sc14 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref sc14 1))) (CoreC-45Reflect-u--reify_Reify_C-40ListC-32C-36aC-41 (lambda (u--c) (lambda (u--vars) (lambda (arg-3831) (lambda (arg-3832) (lambda (eta-0) (TTImpC-45Reflect-u--reify_Reify_ImpTy u--c u--vars arg-3831 arg-3832 eta-0)))))) arg-8 arg-0 arg-7 e-19 clam-0)))))))) (let ((sc14 act-28)) (case (vector-ref sc14 0) ((0) (let ((e-19 (vector-ref sc14 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref sc14 1))) (vector 1 (vector 0 e-7 e-10 e-13 e-16 e-19))))))))))))))))))))))))))) (CoreC-45Reflect-cantReify arg-6 "Data" clam-0))))))))))))))))))))))))) ((equal? sc3 "MkLater") (let ((sc4 e-3)) (if (null? sc4) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "Data" eta-0)) (let ((e-24 (car sc4))) (let ((e-25 (cdr sc4))) (let ((sc5 e-25)) (if (null? sc5) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "Data" eta-0)) (let ((e-27 (car sc5))) (let ((e-28 (cdr sc5))) (lambda (clam-1) (let ((sc6 e-28)) (if (null? sc6) (CoreC-45Reflect-cantReify arg-6 "Data" clam-1) (let ((e-30 (car sc6))) (let ((e-31 (cdr sc6))) (let ((sc7 e-31)) (if (null? sc7) (let ((act-24 (let ((act-24 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-24) clam-1))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (CoreC-45Reflect-u--reify_Reify_FC arg-8 arg-0 arg-7 e-7 clam-1)))))))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-27) clam-1))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) (CoreC-45Reflect-u--reify_Reify_Name arg-8 arg-0 arg-7 e-8 clam-1)))))))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) (let ((act-26 (let ((act-26 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-30) clam-1))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) (TTImpC-45Reflect-u--reify_Reify_RawImp arg-8 arg-0 arg-7 e-9 clam-1)))))))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) (vector 1 (vector 1 e-7 e-8 e-9))))))))))))))))) (CoreC-45Reflect-cantReify arg-6 "Data" clam-1)))))))))))))))))(else (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "Data" eta-0)))))))(else (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "Data" eta-0)))))))(else (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "Data" eta-0))))))))))) -(define TTImpC-45Reflect-case--reify-12069 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (if (null? sc0) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "DataOpt" eta-0)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 "SearchBy") (let ((sc4 e-3)) (if (null? sc4) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "DataOpt" eta-0)) (let ((e-8 (car sc4))) (let ((e-9 (cdr sc4))) (lambda (clam-0) (let ((sc5 e-8)) (if (null? sc5) (CoreC-45Reflect-cantReify arg-6 "DataOpt" clam-0) (let ((e-13 (cdr sc5))) (let ((sc6 e-9)) (if (null? sc6) (let ((act-24 (let ((act-24 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-13) clam-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (CoreC-45Reflect-u--reify_Reify_C-40ListC-32C-36aC-41 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (CoreC-45Reflect-u--reify_Reify_Name eta-0 eta-1 eta-2 eta-3 eta-4)))))) arg-8 arg-0 arg-7 e-7 clam-0)))))))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (vector 1 (vector 0 e-7))))))) (CoreC-45Reflect-cantReify arg-6 "DataOpt" clam-0)))))))))))) ((equal? sc3 "NoHints") (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc3 "UniqueSearch") (lambda (eta-0) (vector 1 (vector 2 )))) ((equal? sc3 "External") (lambda (eta-0) (vector 1 (vector 3 )))) ((equal? sc3 "NoNewtype") (lambda (eta-0) (vector 1 (vector 4 ))))(else (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "DataOpt" eta-0)))))))(else (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "DataOpt" eta-0)))))))(else (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "DataOpt" eta-0))))))))))) -(define TTImpC-45Reflect-case--reify-11877 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (if (null? sc0) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "ITy" eta-0)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 "MkTy") (let ((sc4 e-3)) (if (null? sc4) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "ITy" eta-0)) (let ((e-8 (car sc4))) (let ((e-9 (cdr sc4))) (let ((sc5 e-9)) (if (null? sc5) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "ITy" eta-0)) (let ((e-11 (car sc5))) (let ((e-12 (cdr sc5))) (let ((sc6 e-12)) (if (null? sc6) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "ITy" eta-0)) (let ((e-14 (car sc6))) (let ((e-15 (cdr sc6))) (lambda (clam-0) (let ((sc7 e-15)) (if (null? sc7) (CoreC-45Reflect-cantReify arg-6 "ITy" clam-0) (let ((e-17 (car sc7))) (let ((e-18 (cdr sc7))) (let ((sc8 e-18)) (if (null? sc8) (let ((act-24 (let ((act-24 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-8) clam-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-7 (vector-ref sc9 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc9 1))) (CoreC-45Reflect-u--reify_Reify_FC arg-8 arg-0 arg-7 e-7 clam-0)))))))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-7 (vector-ref sc9 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc9 1))) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-11) clam-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-10 (vector-ref sc10 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc10 1))) (CoreC-45Reflect-u--reify_Reify_FC arg-8 arg-0 arg-7 e-10 clam-0)))))))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-10 (vector-ref sc10 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc10 1))) (let ((act-26 (let ((act-26 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-14) clam-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-13 (vector-ref sc11 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc11 1))) (CoreC-45Reflect-u--reify_Reify_Name arg-8 arg-0 arg-7 e-13 clam-0)))))))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-13 (vector-ref sc11 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc11 1))) (let ((act-27 (let ((act-27 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-17) clam-0))) (let ((sc12 act-27)) (case (vector-ref sc12 0) ((0) (let ((e-16 (vector-ref sc12 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc12 1))) (TTImpC-45Reflect-u--reify_Reify_RawImp arg-8 arg-0 arg-7 e-16 clam-0)))))))) (let ((sc12 act-27)) (case (vector-ref sc12 0) ((0) (let ((e-16 (vector-ref sc12 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc12 1))) (vector 1 (vector 0 e-7 e-10 e-13 e-16)))))))))))))))))))))) (CoreC-45Reflect-cantReify arg-6 "ITy" clam-0)))))))))))))))))))))(else (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "ITy" eta-0)))))))(else (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "ITy" eta-0)))))))(else (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "ITy" eta-0))))))))))) -(define TTImpC-45Reflect-case--reify-11312 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (if (null? sc0) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "FnOpt" eta-0)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 "Inline") (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc3 "TCInline") (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc3 "Hint") (let ((sc4 e-3)) (if (null? sc4) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "FnOpt" eta-0)) (let ((e-8 (car sc4))) (let ((e-9 (cdr sc4))) (lambda (clam-0) (let ((sc5 e-8)) (if (null? sc5) (CoreC-45Reflect-cantReify arg-6 "FnOpt" clam-0) (let ((e-13 (cdr sc5))) (let ((sc6 e-9)) (if (null? sc6) (let ((act-24 (let ((act-24 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-13) clam-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (CoreC-45Reflect-u--reify_Reify_Bool arg-8 arg-0 arg-7 e-7 clam-0)))))))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (vector 1 (vector 2 e-7))))))) (CoreC-45Reflect-cantReify arg-6 "FnOpt" clam-0)))))))))))) ((equal? sc3 "GlobalHint") (let ((sc4 e-3)) (if (null? sc4) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "FnOpt" eta-0)) (let ((e-16 (car sc4))) (let ((e-17 (cdr sc4))) (lambda (clam-1) (let ((sc5 e-16)) (if (null? sc5) (CoreC-45Reflect-cantReify arg-6 "FnOpt" clam-1) (let ((e-21 (cdr sc5))) (let ((sc6 e-17)) (if (null? sc6) (let ((act-24 (let ((act-24 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-21) clam-1))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (CoreC-45Reflect-u--reify_Reify_Bool arg-8 arg-0 arg-7 e-7 clam-1)))))))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (vector 1 (vector 3 e-7))))))) (CoreC-45Reflect-cantReify arg-6 "FnOpt" clam-1)))))))))))) ((equal? sc3 "ExternFn") (lambda (eta-0) (vector 1 (vector 4 )))) ((equal? sc3 "ForeignFn") (let ((sc4 e-3)) (if (null? sc4) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "FnOpt" eta-0)) (let ((e-24 (car sc4))) (let ((e-25 (cdr sc4))) (lambda (clam-2) (let ((sc5 e-24)) (if (null? sc5) (CoreC-45Reflect-cantReify arg-6 "FnOpt" clam-2) (let ((e-29 (cdr sc5))) (let ((sc6 e-25)) (if (null? sc6) (let ((act-24 (let ((act-24 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-29) clam-2))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (CoreC-45Reflect-u--reify_Reify_C-40ListC-32C-36aC-41 (lambda (u--c) (lambda (u--vars) (lambda (arg-3831) (lambda (arg-3832) (lambda (eta-0) (TTImpC-45Reflect-u--reify_Reify_RawImp u--c u--vars arg-3831 arg-3832 eta-0)))))) arg-8 arg-0 arg-7 e-7 clam-2)))))))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (vector 1 (vector 5 e-7))))))) (CoreC-45Reflect-cantReify arg-6 "FnOpt" clam-2)))))))))))) ((equal? sc3 "Invertible") (lambda (eta-0) (vector 1 (vector 6 )))) ((equal? sc3 "Totality") (let ((sc4 e-3)) (if (null? sc4) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "FnOpt" eta-0)) (let ((e-32 (car sc4))) (let ((e-33 (cdr sc4))) (lambda (clam-3) (let ((sc5 e-32)) (if (null? sc5) (CoreC-45Reflect-cantReify arg-6 "FnOpt" clam-3) (let ((e-37 (cdr sc5))) (let ((sc6 e-33)) (if (null? sc6) (let ((act-24 (let ((act-24 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-37) clam-3))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (CoreC-45Reflect-u--reify_Reify_TotalReq arg-8 arg-0 arg-7 e-7 clam-3)))))))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (vector 1 (vector 7 e-7))))))) (CoreC-45Reflect-cantReify arg-6 "FnOpt" clam-3)))))))))))) ((equal? sc3 "Macro") (lambda (eta-0) (vector 1 (vector 8 )))) ((equal? sc3 "SpecArgs") (let ((sc4 e-3)) (if (null? sc4) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "FnOpt" eta-0)) (let ((e-40 (car sc4))) (let ((e-41 (cdr sc4))) (lambda (clam-4) (let ((sc5 e-40)) (if (null? sc5) (CoreC-45Reflect-cantReify arg-6 "FnOpt" clam-4) (let ((e-45 (cdr sc5))) (let ((sc6 e-41)) (if (null? sc6) (let ((act-24 (let ((act-24 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-45) clam-4))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (CoreC-45Reflect-u--reify_Reify_C-40ListC-32C-36aC-41 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (CoreC-45Reflect-u--reify_Reify_Name eta-0 eta-1 eta-2 eta-3 eta-4)))))) arg-8 arg-0 arg-7 e-7 clam-4)))))))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (vector 1 (vector 9 e-7))))))) (CoreC-45Reflect-cantReify arg-6 "FnOpt" clam-4))))))))))))(else (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "FnOpt" eta-0)))))))(else (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "FnOpt" eta-0)))))))(else (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "FnOpt" eta-0))))))))))) -(define TTImpC-45Reflect-case--reify-11101 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (if (null? sc0) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "AltType" eta-0)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 "FirstSuccess") (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc3 "Unique") (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc3 "UniqueDefault") (let ((sc4 e-3)) (if (null? sc4) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "AltType" eta-0)) (let ((e-8 (car sc4))) (let ((e-9 (cdr sc4))) (lambda (clam-0) (let ((sc5 e-8)) (if (null? sc5) (CoreC-45Reflect-cantReify arg-6 "AltType" clam-0) (let ((e-13 (cdr sc5))) (let ((sc6 e-9)) (if (null? sc6) (let ((act-24 (let ((act-24 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-13) clam-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (TTImpC-45Reflect-u--reify_Reify_RawImp arg-8 arg-0 arg-7 e-7 clam-0)))))))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (vector 1 (vector 2 e-7))))))) (CoreC-45Reflect-cantReify arg-6 "AltType" clam-0))))))))))))(else (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "AltType" eta-0)))))))(else (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "AltType" eta-0)))))))(else (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "AltType" eta-0))))))))))) -(define TTImpC-45Reflect-case--reify-10847 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (if (null? sc0) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "IFieldUpdate" eta-0)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 "ISetField") (let ((sc4 e-3)) (if (null? sc4) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "IFieldUpdate" eta-0)) (let ((e-8 (car sc4))) (let ((e-9 (cdr sc4))) (let ((sc5 e-8)) (if (null? sc5) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "IFieldUpdate" eta-0)) (let ((e-13 (cdr sc5))) (let ((sc6 e-9)) (if (null? sc6) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "IFieldUpdate" eta-0)) (let ((e-15 (car sc6))) (let ((e-16 (cdr sc6))) (lambda (clam-0) (let ((sc7 e-15)) (if (null? sc7) (CoreC-45Reflect-cantReify arg-6 "IFieldUpdate" clam-0) (let ((e-20 (cdr sc7))) (let ((sc8 e-16)) (if (null? sc8) (let ((act-24 (let ((act-24 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-13) clam-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-7 (vector-ref sc9 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc9 1))) (CoreC-45Reflect-u--reify_Reify_C-40ListC-32C-36aC-41 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (CoreC-45Reflect-u--reify_Reify_String eta-0 eta-1 eta-2 eta-3))))) arg-8 arg-0 arg-7 e-7 clam-0)))))))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-7 (vector-ref sc9 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc9 1))) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-20) clam-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-10 (vector-ref sc10 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc10 1))) (TTImpC-45Reflect-u--reify_Reify_RawImp arg-8 arg-0 arg-7 e-10 clam-0)))))))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-10 (vector-ref sc10 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc10 1))) (vector 1 (vector 0 e-7 e-10)))))))))))) (CoreC-45Reflect-cantReify arg-6 "IFieldUpdate" clam-0))))))))))))))))))) ((equal? sc3 "ISetFieldApp") (let ((sc4 e-3)) (if (null? sc4) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "IFieldUpdate" eta-0)) (let ((e-23 (car sc4))) (let ((e-24 (cdr sc4))) (let ((sc5 e-23)) (if (null? sc5) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "IFieldUpdate" eta-0)) (let ((e-28 (cdr sc5))) (let ((sc6 e-24)) (if (null? sc6) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "IFieldUpdate" eta-0)) (let ((e-30 (car sc6))) (let ((e-31 (cdr sc6))) (lambda (clam-1) (let ((sc7 e-30)) (if (null? sc7) (CoreC-45Reflect-cantReify arg-6 "IFieldUpdate" clam-1) (let ((e-35 (cdr sc7))) (let ((sc8 e-31)) (if (null? sc8) (let ((act-24 (let ((act-24 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-28) clam-1))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-7 (vector-ref sc9 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc9 1))) (CoreC-45Reflect-u--reify_Reify_C-40ListC-32C-36aC-41 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (CoreC-45Reflect-u--reify_Reify_String eta-0 eta-1 eta-2 eta-3))))) arg-8 arg-0 arg-7 e-7 clam-1)))))))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-7 (vector-ref sc9 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc9 1))) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-35) clam-1))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-8 (vector-ref sc10 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc10 1))) (TTImpC-45Reflect-u--reify_Reify_RawImp arg-8 arg-0 arg-7 e-8 clam-1)))))))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-8 (vector-ref sc10 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc10 1))) (vector 1 (vector 1 e-7 e-8)))))))))))) (CoreC-45Reflect-cantReify arg-6 "IFieldUpdate" clam-1)))))))))))))))))))(else (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "IFieldUpdate" eta-0)))))))(else (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "IFieldUpdate" eta-0)))))))(else (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "IFieldUpdate" eta-0))))))))))) -(define TTImpC-45Reflect-case--reify-8015 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (if (null? sc0) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "TTImp" eta-0)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 "IVar") (let ((sc4 e-3)) (if (null? sc4) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "TTImp" eta-0)) (let ((e-8 (car sc4))) (let ((e-9 (cdr sc4))) (lambda (clam-0) (let ((sc5 e-9)) (if (null? sc5) (CoreC-45Reflect-cantReify arg-6 "TTImp" clam-0) (let ((e-11 (car sc5))) (let ((e-12 (cdr sc5))) (let ((sc6 e-12)) (if (null? sc6) (let ((act-24 (let ((act-24 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-8) clam-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (CoreC-45Reflect-u--reify_Reify_FC arg-8 arg-0 arg-7 e-7 clam-0)))))))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-11) clam-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (CoreC-45Reflect-u--reify_Reify_Name arg-8 arg-0 arg-7 e-10 clam-0)))))))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (vector 1 (vector 0 e-7 e-10)))))))))))) (CoreC-45Reflect-cantReify arg-6 "TTImp" clam-0))))))))))))) ((equal? sc3 "IPi") (let ((sc4 e-3)) (if (null? sc4) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "TTImp" eta-0)) (let ((e-15 (car sc4))) (let ((e-16 (cdr sc4))) (let ((sc5 e-16)) (if (null? sc5) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "TTImp" eta-0)) (let ((e-18 (car sc5))) (let ((e-19 (cdr sc5))) (let ((sc6 e-19)) (if (null? sc6) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "TTImp" eta-0)) (let ((e-21 (car sc6))) (let ((e-22 (cdr sc6))) (let ((sc7 e-22)) (if (null? sc7) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "TTImp" eta-0)) (let ((e-24 (car sc7))) (let ((e-25 (cdr sc7))) (let ((sc8 e-25)) (if (null? sc8) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "TTImp" eta-0)) (let ((e-27 (car sc8))) (let ((e-28 (cdr sc8))) (lambda (clam-1) (let ((sc9 e-28)) (if (null? sc9) (CoreC-45Reflect-cantReify arg-6 "TTImp" clam-1) (let ((e-30 (car sc9))) (let ((e-31 (cdr sc9))) (let ((sc10 e-31)) (if (null? sc10) (let ((act-24 (let ((act-24 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-15) clam-1))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-7 (vector-ref sc11 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc11 1))) (CoreC-45Reflect-u--reify_Reify_FC arg-8 arg-0 arg-7 e-7 clam-1)))))))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-7 (vector-ref sc11 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc11 1))) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-18) clam-1))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-8 (vector-ref sc12 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc12 1))) (CoreC-45Reflect-u--reify_Reify_RigCount arg-8 arg-0 arg-7 e-8 clam-1)))))))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-8 (vector-ref sc12 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc12 1))) (let ((act-26 (let ((act-26 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-21) clam-1))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc13 1))) (CoreC-45Reflect-u--reify_Reify_C-40PiInfoC-32C-36tC-41 (lambda (u--c) (lambda (u--vars) (lambda (arg-3831) (lambda (arg-3832) (lambda (eta-0) (TTImpC-45Reflect-u--reify_Reify_RawImp u--c u--vars arg-3831 arg-3832 eta-0)))))) arg-8 arg-0 arg-7 e-9 clam-1)))))))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc13 1))) (let ((act-27 (let ((act-27 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-24) clam-1))) (let ((sc14 act-27)) (case (vector-ref sc14 0) ((0) (let ((e-10 (vector-ref sc14 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc14 1))) (CoreC-45Reflect-u--reify_Reify_C-40MaybeC-32C-36aC-41 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (CoreC-45Reflect-u--reify_Reify_Name eta-0 eta-1 eta-2 eta-3 eta-4)))))) arg-8 arg-0 arg-7 e-10 clam-1)))))))) (let ((sc14 act-27)) (case (vector-ref sc14 0) ((0) (let ((e-10 (vector-ref sc14 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc14 1))) (let ((act-28 (let ((act-28 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-27) clam-1))) (let ((sc15 act-28)) (case (vector-ref sc15 0) ((0) (let ((e-11 (vector-ref sc15 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc15 1))) (TTImpC-45Reflect-u--reify_Reify_RawImp arg-8 arg-0 arg-7 e-11 clam-1)))))))) (let ((sc15 act-28)) (case (vector-ref sc15 0) ((0) (let ((e-11 (vector-ref sc15 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc15 1))) (let ((act-29 (let ((act-29 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-30) clam-1))) (let ((sc16 act-29)) (case (vector-ref sc16 0) ((0) (let ((e-12 (vector-ref sc16 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc16 1))) (TTImpC-45Reflect-u--reify_Reify_RawImp arg-8 arg-0 arg-7 e-12 clam-1)))))))) (let ((sc16 act-29)) (case (vector-ref sc16 0) ((0) (let ((e-12 (vector-ref sc16 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc16 1))) (vector 1 (vector 1 e-7 e-8 e-9 e-10 e-11 e-12)))))))))))))))))))))))))))))))) (CoreC-45Reflect-cantReify arg-6 "TTImp" clam-1))))))))))))))))))))))))))))) ((equal? sc3 "ILam") (let ((sc4 e-3)) (if (null? sc4) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "TTImp" eta-0)) (let ((e-34 (car sc4))) (let ((e-35 (cdr sc4))) (let ((sc5 e-35)) (if (null? sc5) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "TTImp" eta-0)) (let ((e-37 (car sc5))) (let ((e-38 (cdr sc5))) (let ((sc6 e-38)) (if (null? sc6) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "TTImp" eta-0)) (let ((e-40 (car sc6))) (let ((e-41 (cdr sc6))) (let ((sc7 e-41)) (if (null? sc7) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "TTImp" eta-0)) (let ((e-43 (car sc7))) (let ((e-44 (cdr sc7))) (let ((sc8 e-44)) (if (null? sc8) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "TTImp" eta-0)) (let ((e-46 (car sc8))) (let ((e-47 (cdr sc8))) (lambda (clam-2) (let ((sc9 e-47)) (if (null? sc9) (CoreC-45Reflect-cantReify arg-6 "TTImp" clam-2) (let ((e-49 (car sc9))) (let ((e-50 (cdr sc9))) (let ((sc10 e-50)) (if (null? sc10) (let ((act-24 (let ((act-24 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-34) clam-2))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-7 (vector-ref sc11 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc11 1))) (CoreC-45Reflect-u--reify_Reify_FC arg-8 arg-0 arg-7 e-7 clam-2)))))))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-7 (vector-ref sc11 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc11 1))) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-37) clam-2))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-8 (vector-ref sc12 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc12 1))) (CoreC-45Reflect-u--reify_Reify_RigCount arg-8 arg-0 arg-7 e-8 clam-2)))))))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-8 (vector-ref sc12 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc12 1))) (let ((act-26 (let ((act-26 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-40) clam-2))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc13 1))) (CoreC-45Reflect-u--reify_Reify_C-40PiInfoC-32C-36tC-41 (lambda (u--c) (lambda (u--vars) (lambda (arg-3831) (lambda (arg-3832) (lambda (eta-0) (TTImpC-45Reflect-u--reify_Reify_RawImp u--c u--vars arg-3831 arg-3832 eta-0)))))) arg-8 arg-0 arg-7 e-9 clam-2)))))))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc13 1))) (let ((act-27 (let ((act-27 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-43) clam-2))) (let ((sc14 act-27)) (case (vector-ref sc14 0) ((0) (let ((e-10 (vector-ref sc14 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc14 1))) (CoreC-45Reflect-u--reify_Reify_C-40MaybeC-32C-36aC-41 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (CoreC-45Reflect-u--reify_Reify_Name eta-0 eta-1 eta-2 eta-3 eta-4)))))) arg-8 arg-0 arg-7 e-10 clam-2)))))))) (let ((sc14 act-27)) (case (vector-ref sc14 0) ((0) (let ((e-10 (vector-ref sc14 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc14 1))) (let ((act-28 (let ((act-28 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-46) clam-2))) (let ((sc15 act-28)) (case (vector-ref sc15 0) ((0) (let ((e-11 (vector-ref sc15 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc15 1))) (TTImpC-45Reflect-u--reify_Reify_RawImp arg-8 arg-0 arg-7 e-11 clam-2)))))))) (let ((sc15 act-28)) (case (vector-ref sc15 0) ((0) (let ((e-11 (vector-ref sc15 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc15 1))) (let ((act-29 (let ((act-29 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-49) clam-2))) (let ((sc16 act-29)) (case (vector-ref sc16 0) ((0) (let ((e-12 (vector-ref sc16 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc16 1))) (TTImpC-45Reflect-u--reify_Reify_RawImp arg-8 arg-0 arg-7 e-12 clam-2)))))))) (let ((sc16 act-29)) (case (vector-ref sc16 0) ((0) (let ((e-12 (vector-ref sc16 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc16 1))) (vector 1 (vector 2 e-7 e-8 e-9 e-10 e-11 e-12)))))))))))))))))))))))))))))))) (CoreC-45Reflect-cantReify arg-6 "TTImp" clam-2))))))))))))))))))))))))))))) ((equal? sc3 "ILet") (let ((sc4 e-3)) (if (null? sc4) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "TTImp" eta-0)) (let ((e-53 (car sc4))) (let ((e-54 (cdr sc4))) (let ((sc5 e-54)) (if (null? sc5) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "TTImp" eta-0)) (let ((e-56 (car sc5))) (let ((e-57 (cdr sc5))) (let ((sc6 e-57)) (if (null? sc6) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "TTImp" eta-0)) (let ((e-59 (car sc6))) (let ((e-60 (cdr sc6))) (let ((sc7 e-60)) (if (null? sc7) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "TTImp" eta-0)) (let ((e-62 (car sc7))) (let ((e-63 (cdr sc7))) (let ((sc8 e-63)) (if (null? sc8) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "TTImp" eta-0)) (let ((e-65 (car sc8))) (let ((e-66 (cdr sc8))) (let ((sc9 e-66)) (if (null? sc9) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "TTImp" eta-0)) (let ((e-68 (car sc9))) (let ((e-69 (cdr sc9))) (lambda (clam-3) (let ((sc10 e-69)) (if (null? sc10) (CoreC-45Reflect-cantReify arg-6 "TTImp" clam-3) (let ((e-71 (car sc10))) (let ((e-72 (cdr sc10))) (let ((sc11 e-72)) (if (null? sc11) (let ((act-24 (let ((act-24 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-53) clam-3))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-7 (vector-ref sc12 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc12 1))) (CoreC-45Reflect-u--reify_Reify_FC arg-8 arg-0 arg-7 e-7 clam-3)))))))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-7 (vector-ref sc12 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc12 1))) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-56) clam-3))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-8 (vector-ref sc13 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc13 1))) (CoreC-45Reflect-u--reify_Reify_FC arg-8 arg-0 arg-7 e-8 clam-3)))))))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-8 (vector-ref sc13 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc13 1))) (let ((act-26 (let ((act-26 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-59) clam-3))) (let ((sc14 act-26)) (case (vector-ref sc14 0) ((0) (let ((e-9 (vector-ref sc14 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc14 1))) (CoreC-45Reflect-u--reify_Reify_RigCount arg-8 arg-0 arg-7 e-9 clam-3)))))))) (let ((sc14 act-26)) (case (vector-ref sc14 0) ((0) (let ((e-9 (vector-ref sc14 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc14 1))) (let ((act-27 (let ((act-27 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-62) clam-3))) (let ((sc15 act-27)) (case (vector-ref sc15 0) ((0) (let ((e-10 (vector-ref sc15 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc15 1))) (CoreC-45Reflect-u--reify_Reify_Name arg-8 arg-0 arg-7 e-10 clam-3)))))))) (let ((sc15 act-27)) (case (vector-ref sc15 0) ((0) (let ((e-10 (vector-ref sc15 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc15 1))) (let ((act-28 (let ((act-28 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-65) clam-3))) (let ((sc16 act-28)) (case (vector-ref sc16 0) ((0) (let ((e-11 (vector-ref sc16 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc16 1))) (TTImpC-45Reflect-u--reify_Reify_RawImp arg-8 arg-0 arg-7 e-11 clam-3)))))))) (let ((sc16 act-28)) (case (vector-ref sc16 0) ((0) (let ((e-11 (vector-ref sc16 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc16 1))) (let ((act-29 (let ((act-29 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-68) clam-3))) (let ((sc17 act-29)) (case (vector-ref sc17 0) ((0) (let ((e-12 (vector-ref sc17 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc17 1))) (TTImpC-45Reflect-u--reify_Reify_RawImp arg-8 arg-0 arg-7 e-12 clam-3)))))))) (let ((sc17 act-29)) (case (vector-ref sc17 0) ((0) (let ((e-12 (vector-ref sc17 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc17 1))) (let ((act-30 (let ((act-30 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-71) clam-3))) (let ((sc18 act-30)) (case (vector-ref sc18 0) ((0) (let ((e-13 (vector-ref sc18 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc18 1))) (TTImpC-45Reflect-u--reify_Reify_RawImp arg-8 arg-0 arg-7 e-13 clam-3)))))))) (let ((sc18 act-30)) (case (vector-ref sc18 0) ((0) (let ((e-13 (vector-ref sc18 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc18 1))) (vector 1 (vector 3 e-7 e-8 e-9 e-10 e-11 e-12 e-13))))))))))))))))))))))))))))))))))))) (CoreC-45Reflect-cantReify arg-6 "TTImp" clam-3))))))))))))))))))))))))))))))))) ((equal? sc3 "ICase") (let ((sc4 e-3)) (if (null? sc4) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "TTImp" eta-0)) (let ((e-75 (car sc4))) (let ((e-76 (cdr sc4))) (let ((sc5 e-76)) (if (null? sc5) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "TTImp" eta-0)) (let ((e-78 (car sc5))) (let ((e-79 (cdr sc5))) (let ((sc6 e-79)) (if (null? sc6) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "TTImp" eta-0)) (let ((e-81 (car sc6))) (let ((e-82 (cdr sc6))) (lambda (clam-4) (let ((sc7 e-82)) (if (null? sc7) (CoreC-45Reflect-cantReify arg-6 "TTImp" clam-4) (let ((e-84 (car sc7))) (let ((e-85 (cdr sc7))) (let ((sc8 e-85)) (if (null? sc8) (let ((act-24 (let ((act-24 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-75) clam-4))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-7 (vector-ref sc9 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc9 1))) (CoreC-45Reflect-u--reify_Reify_FC arg-8 arg-0 arg-7 e-7 clam-4)))))))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-7 (vector-ref sc9 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc9 1))) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-78) clam-4))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-8 (vector-ref sc10 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc10 1))) (TTImpC-45Reflect-u--reify_Reify_RawImp arg-8 arg-0 arg-7 e-8 clam-4)))))))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-8 (vector-ref sc10 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc10 1))) (let ((act-26 (let ((act-26 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-81) clam-4))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc11 1))) (TTImpC-45Reflect-u--reify_Reify_RawImp arg-8 arg-0 arg-7 e-9 clam-4)))))))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc11 1))) (let ((act-27 (let ((act-27 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-84) clam-4))) (let ((sc12 act-27)) (case (vector-ref sc12 0) ((0) (let ((e-10 (vector-ref sc12 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc12 1))) (CoreC-45Reflect-u--reify_Reify_C-40ListC-32C-36aC-41 (lambda (u--c) (lambda (u--vars) (lambda (arg-3831) (lambda (arg-3832) (lambda (eta-0) (TTImpC-45Reflect-u--reify_Reify_ImpClause u--c u--vars arg-3831 arg-3832 eta-0)))))) arg-8 arg-0 arg-7 e-10 clam-4)))))))) (let ((sc12 act-27)) (case (vector-ref sc12 0) ((0) (let ((e-10 (vector-ref sc12 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc12 1))) (vector 1 (vector 4 e-7 e-8 e-9 e-10)))))))))))))))))))))) (CoreC-45Reflect-cantReify arg-6 "TTImp" clam-4))))))))))))))))))))) ((equal? sc3 "ILocal") (let ((sc4 e-3)) (if (null? sc4) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "TTImp" eta-0)) (let ((e-88 (car sc4))) (let ((e-89 (cdr sc4))) (let ((sc5 e-89)) (if (null? sc5) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "TTImp" eta-0)) (let ((e-91 (car sc5))) (let ((e-92 (cdr sc5))) (lambda (clam-5) (let ((sc6 e-92)) (if (null? sc6) (CoreC-45Reflect-cantReify arg-6 "TTImp" clam-5) (let ((e-94 (car sc6))) (let ((e-95 (cdr sc6))) (let ((sc7 e-95)) (if (null? sc7) (let ((act-24 (let ((act-24 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-88) clam-5))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (CoreC-45Reflect-u--reify_Reify_FC arg-8 arg-0 arg-7 e-7 clam-5)))))))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-91) clam-5))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) (CoreC-45Reflect-u--reify_Reify_C-40ListC-32C-36aC-41 (lambda (u--c) (lambda (u--vars) (lambda (arg-3831) (lambda (arg-3832) (lambda (eta-0) (TTImpC-45Reflect-u--reify_Reify_ImpDecl u--c u--vars arg-3831 arg-3832 eta-0)))))) arg-8 arg-0 arg-7 e-8 clam-5)))))))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) (let ((act-26 (let ((act-26 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-94) clam-5))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) (TTImpC-45Reflect-u--reify_Reify_RawImp arg-8 arg-0 arg-7 e-9 clam-5)))))))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) (vector 1 (vector 5 e-7 e-8 e-9))))))))))))))))) (CoreC-45Reflect-cantReify arg-6 "TTImp" clam-5))))))))))))))))) ((equal? sc3 "IUpdate") (let ((sc4 e-3)) (if (null? sc4) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "TTImp" eta-0)) (let ((e-98 (car sc4))) (let ((e-99 (cdr sc4))) (let ((sc5 e-99)) (if (null? sc5) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "TTImp" eta-0)) (let ((e-101 (car sc5))) (let ((e-102 (cdr sc5))) (lambda (clam-6) (let ((sc6 e-102)) (if (null? sc6) (CoreC-45Reflect-cantReify arg-6 "TTImp" clam-6) (let ((e-104 (car sc6))) (let ((e-105 (cdr sc6))) (let ((sc7 e-105)) (if (null? sc7) (let ((act-24 (let ((act-24 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-98) clam-6))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (CoreC-45Reflect-u--reify_Reify_FC arg-8 arg-0 arg-7 e-7 clam-6)))))))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-101) clam-6))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) (CoreC-45Reflect-u--reify_Reify_C-40ListC-32C-36aC-41 (lambda (u--c) (lambda (u--vars) (lambda (arg-3831) (lambda (arg-3832) (lambda (eta-0) (TTImpC-45Reflect-u--reify_Reify_IFieldUpdate u--c u--vars arg-3831 arg-3832 eta-0)))))) arg-8 arg-0 arg-7 e-8 clam-6)))))))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) (let ((act-26 (let ((act-26 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-104) clam-6))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) (TTImpC-45Reflect-u--reify_Reify_RawImp arg-8 arg-0 arg-7 e-9 clam-6)))))))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) (vector 1 (vector 7 e-7 e-8 e-9))))))))))))))))) (CoreC-45Reflect-cantReify arg-6 "TTImp" clam-6))))))))))))))))) ((equal? sc3 "IApp") (let ((sc4 e-3)) (if (null? sc4) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "TTImp" eta-0)) (let ((e-108 (car sc4))) (let ((e-109 (cdr sc4))) (let ((sc5 e-109)) (if (null? sc5) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "TTImp" eta-0)) (let ((e-111 (car sc5))) (let ((e-112 (cdr sc5))) (lambda (clam-7) (let ((sc6 e-112)) (if (null? sc6) (CoreC-45Reflect-cantReify arg-6 "TTImp" clam-7) (let ((e-114 (car sc6))) (let ((e-115 (cdr sc6))) (let ((sc7 e-115)) (if (null? sc7) (let ((act-24 (let ((act-24 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-108) clam-7))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (CoreC-45Reflect-u--reify_Reify_FC arg-8 arg-0 arg-7 e-7 clam-7)))))))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-111) clam-7))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) (TTImpC-45Reflect-u--reify_Reify_RawImp arg-8 arg-0 arg-7 e-8 clam-7)))))))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) (let ((act-26 (let ((act-26 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-114) clam-7))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) (TTImpC-45Reflect-u--reify_Reify_RawImp arg-8 arg-0 arg-7 e-9 clam-7)))))))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) (vector 1 (vector 8 e-7 e-8 e-9))))))))))))))))) (CoreC-45Reflect-cantReify arg-6 "TTImp" clam-7))))))))))))))))) ((equal? sc3 "INamedApp") (let ((sc4 e-3)) (if (null? sc4) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "TTImp" eta-0)) (let ((e-118 (car sc4))) (let ((e-119 (cdr sc4))) (let ((sc5 e-119)) (if (null? sc5) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "TTImp" eta-0)) (let ((e-121 (car sc5))) (let ((e-122 (cdr sc5))) (let ((sc6 e-122)) (if (null? sc6) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "TTImp" eta-0)) (let ((e-124 (car sc6))) (let ((e-125 (cdr sc6))) (lambda (clam-8) (let ((sc7 e-125)) (if (null? sc7) (CoreC-45Reflect-cantReify arg-6 "TTImp" clam-8) (let ((e-127 (car sc7))) (let ((e-128 (cdr sc7))) (let ((sc8 e-128)) (if (null? sc8) (let ((act-24 (let ((act-24 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-118) clam-8))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-7 (vector-ref sc9 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc9 1))) (CoreC-45Reflect-u--reify_Reify_FC arg-8 arg-0 arg-7 e-7 clam-8)))))))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-7 (vector-ref sc9 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc9 1))) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-121) clam-8))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-8 (vector-ref sc10 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc10 1))) (TTImpC-45Reflect-u--reify_Reify_RawImp arg-8 arg-0 arg-7 e-8 clam-8)))))))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-8 (vector-ref sc10 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc10 1))) (let ((act-26 (let ((act-26 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-124) clam-8))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc11 1))) (CoreC-45Reflect-u--reify_Reify_Name arg-8 arg-0 arg-7 e-9 clam-8)))))))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc11 1))) (let ((act-27 (let ((act-27 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-127) clam-8))) (let ((sc12 act-27)) (case (vector-ref sc12 0) ((0) (let ((e-10 (vector-ref sc12 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc12 1))) (TTImpC-45Reflect-u--reify_Reify_RawImp arg-8 arg-0 arg-7 e-10 clam-8)))))))) (let ((sc12 act-27)) (case (vector-ref sc12 0) ((0) (let ((e-10 (vector-ref sc12 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc12 1))) (vector 1 (vector 10 e-7 e-8 e-9 e-10)))))))))))))))))))))) (CoreC-45Reflect-cantReify arg-6 "TTImp" clam-8))))))))))))))))))))) ((equal? sc3 "IAutoApp") (let ((sc4 e-3)) (if (null? sc4) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "TTImp" eta-0)) (let ((e-131 (car sc4))) (let ((e-132 (cdr sc4))) (let ((sc5 e-132)) (if (null? sc5) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "TTImp" eta-0)) (let ((e-134 (car sc5))) (let ((e-135 (cdr sc5))) (lambda (clam-9) (let ((sc6 e-135)) (if (null? sc6) (CoreC-45Reflect-cantReify arg-6 "TTImp" clam-9) (let ((e-137 (car sc6))) (let ((e-138 (cdr sc6))) (let ((sc7 e-138)) (if (null? sc7) (let ((act-24 (let ((act-24 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-131) clam-9))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (CoreC-45Reflect-u--reify_Reify_FC arg-8 arg-0 arg-7 e-7 clam-9)))))))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-134) clam-9))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) (TTImpC-45Reflect-u--reify_Reify_RawImp arg-8 arg-0 arg-7 e-8 clam-9)))))))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) (let ((act-26 (let ((act-26 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-137) clam-9))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) (TTImpC-45Reflect-u--reify_Reify_RawImp arg-8 arg-0 arg-7 e-9 clam-9)))))))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) (vector 1 (vector 9 e-7 e-8 e-9))))))))))))))))) (CoreC-45Reflect-cantReify arg-6 "TTImp" clam-9))))))))))))))))) ((equal? sc3 "IWithApp") (let ((sc4 e-3)) (if (null? sc4) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "TTImp" eta-0)) (let ((e-141 (car sc4))) (let ((e-142 (cdr sc4))) (let ((sc5 e-142)) (if (null? sc5) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "TTImp" eta-0)) (let ((e-144 (car sc5))) (let ((e-145 (cdr sc5))) (lambda (clam-10) (let ((sc6 e-145)) (if (null? sc6) (CoreC-45Reflect-cantReify arg-6 "TTImp" clam-10) (let ((e-147 (car sc6))) (let ((e-148 (cdr sc6))) (let ((sc7 e-148)) (if (null? sc7) (let ((act-24 (let ((act-24 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-141) clam-10))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (CoreC-45Reflect-u--reify_Reify_FC arg-8 arg-0 arg-7 e-7 clam-10)))))))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-144) clam-10))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) (TTImpC-45Reflect-u--reify_Reify_RawImp arg-8 arg-0 arg-7 e-8 clam-10)))))))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) (let ((act-26 (let ((act-26 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-147) clam-10))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) (TTImpC-45Reflect-u--reify_Reify_RawImp arg-8 arg-0 arg-7 e-9 clam-10)))))))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) (vector 1 (vector 11 e-7 e-8 e-9))))))))))))))))) (CoreC-45Reflect-cantReify arg-6 "TTImp" clam-10))))))))))))))))) ((equal? sc3 "ISearch") (let ((sc4 e-3)) (if (null? sc4) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "TTImp" eta-0)) (let ((e-151 (car sc4))) (let ((e-152 (cdr sc4))) (lambda (clam-11) (let ((sc5 e-152)) (if (null? sc5) (CoreC-45Reflect-cantReify arg-6 "TTImp" clam-11) (let ((e-154 (car sc5))) (let ((e-155 (cdr sc5))) (let ((sc6 e-155)) (if (null? sc6) (let ((act-24 (let ((act-24 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-151) clam-11))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (CoreC-45Reflect-u--reify_Reify_FC arg-8 arg-0 arg-7 e-7 clam-11)))))))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-154) clam-11))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (CoreC-45Reflect-u--reify_Reify_Nat arg-8 arg-0 arg-7 e-8 clam-11)))))))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (vector 12 e-7 e-8)))))))))))) (CoreC-45Reflect-cantReify arg-6 "TTImp" clam-11))))))))))))) ((equal? sc3 "IAlternative") (let ((sc4 e-3)) (if (null? sc4) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "TTImp" eta-0)) (let ((e-158 (car sc4))) (let ((e-159 (cdr sc4))) (let ((sc5 e-159)) (if (null? sc5) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "TTImp" eta-0)) (let ((e-161 (car sc5))) (let ((e-162 (cdr sc5))) (lambda (clam-12) (let ((sc6 e-162)) (if (null? sc6) (CoreC-45Reflect-cantReify arg-6 "TTImp" clam-12) (let ((e-164 (car sc6))) (let ((e-165 (cdr sc6))) (let ((sc7 e-165)) (if (null? sc7) (let ((act-24 (let ((act-24 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-158) clam-12))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (CoreC-45Reflect-u--reify_Reify_FC arg-8 arg-0 arg-7 e-7 clam-12)))))))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-161) clam-12))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) (TTImpC-45Reflect-u--reify_Reify_AltType arg-8 arg-0 arg-7 e-8 clam-12)))))))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) (let ((act-26 (let ((act-26 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-164) clam-12))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) (CoreC-45Reflect-u--reify_Reify_C-40ListC-32C-36aC-41 (lambda (u--c) (lambda (u--vars) (lambda (arg-3831) (lambda (arg-3832) (lambda (eta-0) (TTImpC-45Reflect-u--reify_Reify_RawImp u--c u--vars arg-3831 arg-3832 eta-0)))))) arg-8 arg-0 arg-7 e-9 clam-12)))))))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) (vector 1 (vector 13 e-7 e-8 e-9))))))))))))))))) (CoreC-45Reflect-cantReify arg-6 "TTImp" clam-12))))))))))))))))) ((equal? sc3 "IRewrite") (let ((sc4 e-3)) (if (null? sc4) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "TTImp" eta-0)) (let ((e-168 (car sc4))) (let ((e-169 (cdr sc4))) (let ((sc5 e-169)) (if (null? sc5) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "TTImp" eta-0)) (let ((e-171 (car sc5))) (let ((e-172 (cdr sc5))) (lambda (clam-13) (let ((sc6 e-172)) (if (null? sc6) (CoreC-45Reflect-cantReify arg-6 "TTImp" clam-13) (let ((e-174 (car sc6))) (let ((e-175 (cdr sc6))) (let ((sc7 e-175)) (if (null? sc7) (let ((act-24 (let ((act-24 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-168) clam-13))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (CoreC-45Reflect-u--reify_Reify_FC arg-8 arg-0 arg-7 e-7 clam-13)))))))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-171) clam-13))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) (TTImpC-45Reflect-u--reify_Reify_RawImp arg-8 arg-0 arg-7 e-8 clam-13)))))))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) (let ((act-26 (let ((act-26 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-174) clam-13))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) (TTImpC-45Reflect-u--reify_Reify_RawImp arg-8 arg-0 arg-7 e-9 clam-13)))))))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) (vector 1 (vector 14 e-7 e-8 e-9))))))))))))))))) (CoreC-45Reflect-cantReify arg-6 "TTImp" clam-13))))))))))))))))) ((equal? sc3 "IBindHere") (let ((sc4 e-3)) (if (null? sc4) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "TTImp" eta-0)) (let ((e-178 (car sc4))) (let ((e-179 (cdr sc4))) (let ((sc5 e-179)) (if (null? sc5) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "TTImp" eta-0)) (let ((e-181 (car sc5))) (let ((e-182 (cdr sc5))) (lambda (clam-14) (let ((sc6 e-182)) (if (null? sc6) (CoreC-45Reflect-cantReify arg-6 "TTImp" clam-14) (let ((e-184 (car sc6))) (let ((e-185 (cdr sc6))) (let ((sc7 e-185)) (if (null? sc7) (let ((act-24 (let ((act-24 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-178) clam-14))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (CoreC-45Reflect-u--reify_Reify_FC arg-8 arg-0 arg-7 e-7 clam-14)))))))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-181) clam-14))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) (TTImpC-45Reflect-u--reify_Reify_BindMode arg-8 arg-0 arg-7 e-8 clam-14)))))))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) (let ((act-26 (let ((act-26 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-184) clam-14))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) (TTImpC-45Reflect-u--reify_Reify_RawImp arg-8 arg-0 arg-7 e-9 clam-14)))))))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) (vector 1 (vector 16 e-7 e-8 e-9))))))))))))))))) (CoreC-45Reflect-cantReify arg-6 "TTImp" clam-14))))))))))))))))) ((equal? sc3 "IBindVar") (let ((sc4 e-3)) (if (null? sc4) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "TTImp" eta-0)) (let ((e-188 (car sc4))) (let ((e-189 (cdr sc4))) (lambda (clam-15) (let ((sc5 e-189)) (if (null? sc5) (CoreC-45Reflect-cantReify arg-6 "TTImp" clam-15) (let ((e-191 (car sc5))) (let ((e-192 (cdr sc5))) (let ((sc6 e-192)) (if (null? sc6) (let ((act-24 (let ((act-24 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-188) clam-15))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (CoreC-45Reflect-u--reify_Reify_FC arg-8 arg-0 arg-7 e-7 clam-15)))))))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-191) clam-15))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) ((CoreC-45Reflect-u--reify_Reify_String arg-8 arg-0 arg-7 e-8) clam-15)))))))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (vector 17 e-7 e-8)))))))))))) (CoreC-45Reflect-cantReify arg-6 "TTImp" clam-15))))))))))))) ((equal? sc3 "IAs") (let ((sc4 e-3)) (if (null? sc4) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "TTImp" eta-0)) (let ((e-195 (car sc4))) (let ((e-196 (cdr sc4))) (let ((sc5 e-196)) (if (null? sc5) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "TTImp" eta-0)) (let ((e-198 (car sc5))) (let ((e-199 (cdr sc5))) (let ((sc6 e-199)) (if (null? sc6) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "TTImp" eta-0)) (let ((e-201 (car sc6))) (let ((e-202 (cdr sc6))) (let ((sc7 e-202)) (if (null? sc7) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "TTImp" eta-0)) (let ((e-204 (car sc7))) (let ((e-205 (cdr sc7))) (lambda (clam-16) (let ((sc8 e-205)) (if (null? sc8) (CoreC-45Reflect-cantReify arg-6 "TTImp" clam-16) (let ((e-207 (car sc8))) (let ((e-208 (cdr sc8))) (let ((sc9 e-208)) (if (null? sc9) (let ((act-24 (let ((act-24 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-195) clam-16))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-7 (vector-ref sc10 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc10 1))) (CoreC-45Reflect-u--reify_Reify_FC arg-8 arg-0 arg-7 e-7 clam-16)))))))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-7 (vector-ref sc10 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc10 1))) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-198) clam-16))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-8 (vector-ref sc11 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc11 1))) (CoreC-45Reflect-u--reify_Reify_FC arg-8 arg-0 arg-7 e-8 clam-16)))))))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-8 (vector-ref sc11 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc11 1))) (let ((act-26 (let ((act-26 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-201) clam-16))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc12 1))) (TTImpC-45Reflect-u--reify_Reify_UseSide arg-8 arg-0 arg-7 e-9 clam-16)))))))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc12 1))) (let ((act-27 (let ((act-27 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-204) clam-16))) (let ((sc13 act-27)) (case (vector-ref sc13 0) ((0) (let ((e-10 (vector-ref sc13 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc13 1))) (CoreC-45Reflect-u--reify_Reify_Name arg-8 arg-0 arg-7 e-10 clam-16)))))))) (let ((sc13 act-27)) (case (vector-ref sc13 0) ((0) (let ((e-10 (vector-ref sc13 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc13 1))) (let ((act-28 (let ((act-28 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-207) clam-16))) (let ((sc14 act-28)) (case (vector-ref sc14 0) ((0) (let ((e-11 (vector-ref sc14 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc14 1))) (TTImpC-45Reflect-u--reify_Reify_RawImp arg-8 arg-0 arg-7 e-11 clam-16)))))))) (let ((sc14 act-28)) (case (vector-ref sc14 0) ((0) (let ((e-11 (vector-ref sc14 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc14 1))) (vector 1 (vector 18 e-7 e-8 e-9 e-10 e-11))))))))))))))))))))))))))) (CoreC-45Reflect-cantReify arg-6 "TTImp" clam-16))))))))))))))))))))))))) ((equal? sc3 "IMustUnify") (let ((sc4 e-3)) (if (null? sc4) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "TTImp" eta-0)) (let ((e-211 (car sc4))) (let ((e-212 (cdr sc4))) (let ((sc5 e-212)) (if (null? sc5) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "TTImp" eta-0)) (let ((e-214 (car sc5))) (let ((e-215 (cdr sc5))) (lambda (clam-17) (let ((sc6 e-215)) (if (null? sc6) (CoreC-45Reflect-cantReify arg-6 "TTImp" clam-17) (let ((e-217 (car sc6))) (let ((e-218 (cdr sc6))) (let ((sc7 e-218)) (if (null? sc7) (let ((act-24 (let ((act-24 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-211) clam-17))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (CoreC-45Reflect-u--reify_Reify_FC arg-8 arg-0 arg-7 e-7 clam-17)))))))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-214) clam-17))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) (TTImpC-45Reflect-u--reify_Reify_DotReason arg-8 arg-0 arg-7 e-8 clam-17)))))))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) (let ((act-26 (let ((act-26 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-217) clam-17))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) (TTImpC-45Reflect-u--reify_Reify_RawImp arg-8 arg-0 arg-7 e-9 clam-17)))))))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) (vector 1 (vector 19 e-7 e-8 e-9))))))))))))))))) (CoreC-45Reflect-cantReify arg-6 "TTImp" clam-17))))))))))))))))) ((equal? sc3 "IDelayed") (let ((sc4 e-3)) (if (null? sc4) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "TTImp" eta-0)) (let ((e-221 (car sc4))) (let ((e-222 (cdr sc4))) (let ((sc5 e-222)) (if (null? sc5) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "TTImp" eta-0)) (let ((e-224 (car sc5))) (let ((e-225 (cdr sc5))) (lambda (clam-18) (let ((sc6 e-225)) (if (null? sc6) (CoreC-45Reflect-cantReify arg-6 "TTImp" clam-18) (let ((e-227 (car sc6))) (let ((e-228 (cdr sc6))) (let ((sc7 e-228)) (if (null? sc7) (let ((act-24 (let ((act-24 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-221) clam-18))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (CoreC-45Reflect-u--reify_Reify_FC arg-8 arg-0 arg-7 e-7 clam-18)))))))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-224) clam-18))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) (CoreC-45Reflect-u--reify_Reify_LazyReason arg-8 arg-0 arg-7 e-8 clam-18)))))))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) (let ((act-26 (let ((act-26 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-227) clam-18))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) (TTImpC-45Reflect-u--reify_Reify_RawImp arg-8 arg-0 arg-7 e-9 clam-18)))))))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) (vector 1 (vector 20 e-7 e-8 e-9))))))))))))))))) (CoreC-45Reflect-cantReify arg-6 "TTImp" clam-18))))))))))))))))) ((equal? sc3 "IDelay") (let ((sc4 e-3)) (if (null? sc4) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "TTImp" eta-0)) (let ((e-231 (car sc4))) (let ((e-232 (cdr sc4))) (lambda (clam-19) (let ((sc5 e-232)) (if (null? sc5) (CoreC-45Reflect-cantReify arg-6 "TTImp" clam-19) (let ((e-234 (car sc5))) (let ((e-235 (cdr sc5))) (let ((sc6 e-235)) (if (null? sc6) (let ((act-24 (let ((act-24 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-231) clam-19))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (CoreC-45Reflect-u--reify_Reify_FC arg-8 arg-0 arg-7 e-7 clam-19)))))))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-234) clam-19))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (TTImpC-45Reflect-u--reify_Reify_RawImp arg-8 arg-0 arg-7 e-8 clam-19)))))))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (vector 21 e-7 e-8)))))))))))) (CoreC-45Reflect-cantReify arg-6 "TTImp" clam-19))))))))))))) ((equal? sc3 "IForce") (let ((sc4 e-3)) (if (null? sc4) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "TTImp" eta-0)) (let ((e-238 (car sc4))) (let ((e-239 (cdr sc4))) (lambda (clam-20) (let ((sc5 e-239)) (if (null? sc5) (CoreC-45Reflect-cantReify arg-6 "TTImp" clam-20) (let ((e-241 (car sc5))) (let ((e-242 (cdr sc5))) (let ((sc6 e-242)) (if (null? sc6) (let ((act-24 (let ((act-24 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-238) clam-20))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (CoreC-45Reflect-u--reify_Reify_FC arg-8 arg-0 arg-7 e-7 clam-20)))))))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-241) clam-20))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (TTImpC-45Reflect-u--reify_Reify_RawImp arg-8 arg-0 arg-7 e-8 clam-20)))))))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (vector 22 e-7 e-8)))))))))))) (CoreC-45Reflect-cantReify arg-6 "TTImp" clam-20))))))))))))) ((equal? sc3 "IQuote") (let ((sc4 e-3)) (if (null? sc4) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "TTImp" eta-0)) (let ((e-245 (car sc4))) (let ((e-246 (cdr sc4))) (lambda (clam-21) (let ((sc5 e-246)) (if (null? sc5) (CoreC-45Reflect-cantReify arg-6 "TTImp" clam-21) (let ((e-248 (car sc5))) (let ((e-249 (cdr sc5))) (let ((sc6 e-249)) (if (null? sc6) (let ((act-24 (let ((act-24 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-245) clam-21))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (CoreC-45Reflect-u--reify_Reify_FC arg-8 arg-0 arg-7 e-7 clam-21)))))))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-248) clam-21))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (TTImpC-45Reflect-u--reify_Reify_RawImp arg-8 arg-0 arg-7 e-8 clam-21)))))))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (vector 23 e-7 e-8)))))))))))) (CoreC-45Reflect-cantReify arg-6 "TTImp" clam-21))))))))))))) ((equal? sc3 "IQuoteName") (let ((sc4 e-3)) (if (null? sc4) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "TTImp" eta-0)) (let ((e-252 (car sc4))) (let ((e-253 (cdr sc4))) (lambda (clam-22) (let ((sc5 e-253)) (if (null? sc5) (CoreC-45Reflect-cantReify arg-6 "TTImp" clam-22) (let ((e-255 (car sc5))) (let ((e-256 (cdr sc5))) (let ((sc6 e-256)) (if (null? sc6) (let ((act-24 (let ((act-24 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-252) clam-22))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (CoreC-45Reflect-u--reify_Reify_FC arg-8 arg-0 arg-7 e-7 clam-22)))))))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-255) clam-22))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (CoreC-45Reflect-u--reify_Reify_Name arg-8 arg-0 arg-7 e-8 clam-22)))))))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (vector 24 e-7 e-8)))))))))))) (CoreC-45Reflect-cantReify arg-6 "TTImp" clam-22))))))))))))) ((equal? sc3 "IQuoteDecl") (let ((sc4 e-3)) (if (null? sc4) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "TTImp" eta-0)) (let ((e-259 (car sc4))) (let ((e-260 (cdr sc4))) (lambda (clam-23) (let ((sc5 e-260)) (if (null? sc5) (CoreC-45Reflect-cantReify arg-6 "TTImp" clam-23) (let ((e-262 (car sc5))) (let ((e-263 (cdr sc5))) (let ((sc6 e-263)) (if (null? sc6) (let ((act-24 (let ((act-24 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-259) clam-23))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (CoreC-45Reflect-u--reify_Reify_FC arg-8 arg-0 arg-7 e-7 clam-23)))))))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-262) clam-23))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (CoreC-45Reflect-u--reify_Reify_C-40ListC-32C-36aC-41 (lambda (u--c) (lambda (u--vars) (lambda (arg-3831) (lambda (arg-3832) (lambda (eta-0) (TTImpC-45Reflect-u--reify_Reify_ImpDecl u--c u--vars arg-3831 arg-3832 eta-0)))))) arg-8 arg-0 arg-7 e-8 clam-23)))))))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (vector 25 e-7 e-8)))))))))))) (CoreC-45Reflect-cantReify arg-6 "TTImp" clam-23))))))))))))) ((equal? sc3 "IUnquote") (let ((sc4 e-3)) (if (null? sc4) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "TTImp" eta-0)) (let ((e-266 (car sc4))) (let ((e-267 (cdr sc4))) (lambda (clam-24) (let ((sc5 e-267)) (if (null? sc5) (CoreC-45Reflect-cantReify arg-6 "TTImp" clam-24) (let ((e-269 (car sc5))) (let ((e-270 (cdr sc5))) (let ((sc6 e-270)) (if (null? sc6) (let ((act-24 (let ((act-24 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-266) clam-24))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (CoreC-45Reflect-u--reify_Reify_FC arg-8 arg-0 arg-7 e-7 clam-24)))))))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-269) clam-24))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (TTImpC-45Reflect-u--reify_Reify_RawImp arg-8 arg-0 arg-7 e-8 clam-24)))))))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (vector 26 e-7 e-8)))))))))))) (CoreC-45Reflect-cantReify arg-6 "TTImp" clam-24))))))))))))) ((equal? sc3 "IPrimVal") (let ((sc4 e-3)) (if (null? sc4) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "TTImp" eta-0)) (let ((e-273 (car sc4))) (let ((e-274 (cdr sc4))) (lambda (clam-25) (let ((sc5 e-274)) (if (null? sc5) (CoreC-45Reflect-cantReify arg-6 "TTImp" clam-25) (let ((e-276 (car sc5))) (let ((e-277 (cdr sc5))) (let ((sc6 e-277)) (if (null? sc6) (let ((act-24 (let ((act-24 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-273) clam-25))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (CoreC-45Reflect-u--reify_Reify_FC arg-8 arg-0 arg-7 e-7 clam-25)))))))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-276) clam-25))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (CoreC-45Reflect-u--reify_Reify_Constant arg-8 arg-0 arg-7 e-8 clam-25)))))))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (vector 28 e-7 e-8)))))))))))) (CoreC-45Reflect-cantReify arg-6 "TTImp" clam-25))))))))))))) ((equal? sc3 "IType") (lambda (clam-26) (let ((sc4 e-3)) (if (null? sc4) (CoreC-45Reflect-cantReify arg-6 "TTImp" clam-26) (let ((e-280 (car sc4))) (let ((e-281 (cdr sc4))) (let ((sc5 e-281)) (if (null? sc5) (let ((act-24 (let ((act-24 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-280) clam-26))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (CoreC-45Reflect-u--reify_Reify_FC arg-8 arg-0 arg-7 e-7 clam-26)))))))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (vector 1 (vector 29 e-7))))))) (CoreC-45Reflect-cantReify arg-6 "TTImp" clam-26))))))))) ((equal? sc3 "IHole") (let ((sc4 e-3)) (if (null? sc4) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "TTImp" eta-0)) (let ((e-284 (car sc4))) (let ((e-285 (cdr sc4))) (lambda (clam-27) (let ((sc5 e-285)) (if (null? sc5) (CoreC-45Reflect-cantReify arg-6 "TTImp" clam-27) (let ((e-287 (car sc5))) (let ((e-288 (cdr sc5))) (let ((sc6 e-288)) (if (null? sc6) (let ((act-24 (let ((act-24 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-284) clam-27))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (CoreC-45Reflect-u--reify_Reify_FC arg-8 arg-0 arg-7 e-7 clam-27)))))))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-287) clam-27))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) ((CoreC-45Reflect-u--reify_Reify_String arg-8 arg-0 arg-7 e-8) clam-27)))))))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (vector 30 e-7 e-8)))))))))))) (CoreC-45Reflect-cantReify arg-6 "TTImp" clam-27))))))))))))) ((equal? sc3 "Implicit") (let ((sc4 e-3)) (if (null? sc4) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "TTImp" eta-0)) (let ((e-291 (car sc4))) (let ((e-292 (cdr sc4))) (lambda (clam-28) (let ((sc5 e-292)) (if (null? sc5) (CoreC-45Reflect-cantReify arg-6 "TTImp" clam-28) (let ((e-294 (car sc5))) (let ((e-295 (cdr sc5))) (let ((sc6 e-295)) (if (null? sc6) (let ((act-24 (let ((act-24 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-291) clam-28))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (CoreC-45Reflect-u--reify_Reify_FC arg-8 arg-0 arg-7 e-7 clam-28)))))))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-294) clam-28))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (CoreC-45Reflect-u--reify_Reify_Bool arg-8 arg-0 arg-7 e-8 clam-28)))))))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (vector 32 e-7 e-8)))))))))))) (CoreC-45Reflect-cantReify arg-6 "TTImp" clam-28))))))))))))) ((equal? sc3 "IWithUnambigNames") (let ((sc4 e-3)) (if (null? sc4) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "TTImp" eta-0)) (let ((e-298 (car sc4))) (let ((e-299 (cdr sc4))) (let ((sc5 e-299)) (if (null? sc5) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "TTImp" eta-0)) (let ((e-301 (car sc5))) (let ((e-302 (cdr sc5))) (lambda (clam-29) (let ((sc6 e-302)) (if (null? sc6) (CoreC-45Reflect-cantReify arg-6 "TTImp" clam-29) (let ((e-304 (car sc6))) (let ((e-305 (cdr sc6))) (let ((sc7 e-305)) (if (null? sc7) (let ((act-24 (let ((act-24 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-298) clam-29))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (CoreC-45Reflect-u--reify_Reify_FC arg-8 arg-0 arg-7 e-7 clam-29)))))))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-301) clam-29))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) (CoreC-45Reflect-u--reify_Reify_C-40ListC-32C-36aC-41 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (CoreC-45Reflect-u--reify_Reify_Name eta-0 eta-1 eta-2 eta-3 eta-4)))))) arg-8 arg-0 arg-7 e-8 clam-29)))))))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) (let ((act-26 (let ((act-26 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-304) clam-29))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) (TTImpC-45Reflect-u--reify_Reify_RawImp arg-8 arg-0 arg-7 e-9 clam-29)))))))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) (vector 1 (vector 33 e-7 e-8 e-9))))))))))))))))) (CoreC-45Reflect-cantReify arg-6 "TTImp" clam-29)))))))))))))))))(else (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "TTImp" eta-0)))))))(else (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "TTImp" eta-0)))))))(else (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "TTImp" eta-0))))))))))) -(define TTImpC-45Reflect-case--reify-7604 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (if (null? sc0) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "DotReason" eta-0)) (let ((e-2 (car sc0))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 2))) (lambda (clam-0) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 "NonLinearVar") (vector 1 (vector 0 ))) ((equal? sc3 "VarApplied") (vector 1 (vector 1 ))) ((equal? sc3 "NotConstructor") (vector 1 (vector 2 ))) ((equal? sc3 "ErasedArg") (vector 1 (vector 3 ))) ((equal? sc3 "UserDotted") (vector 1 (vector 4 ))) ((equal? sc3 "UnknownDot") (vector 1 (vector 5 ))) ((equal? sc3 "UnderAppliedCon") (vector 1 (vector 6 )))(else (CoreC-45Reflect-cantReify arg-6 "DotReason" clam-0))))))(else (CoreC-45Reflect-cantReify arg-6 "DotReason" clam-0)))))))(else (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "DotReason" eta-0)))))))))) -(define TTImpC-45Reflect-case--reify-7407 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (if (null? sc0) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "UseSide" eta-0)) (let ((e-2 (car sc0))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 2))) (lambda (clam-0) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 "UseLeft") (vector 1 (vector 0 ))) ((equal? sc3 "UseRight") (vector 1 (vector 1 )))(else (CoreC-45Reflect-cantReify arg-6 "UseSide" clam-0))))))(else (CoreC-45Reflect-cantReify arg-6 "UseSide" clam-0)))))))(else (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "UseSide" eta-0)))))))))) -(define TTImpC-45Reflect-case--reify-7131 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (if (null? sc0) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "BindMode" eta-0)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 "PI") (let ((sc4 e-3)) (if (null? sc4) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "BindMode" eta-0)) (let ((e-8 (car sc4))) (let ((e-9 (cdr sc4))) (lambda (clam-0) (let ((sc5 e-8)) (if (null? sc5) (CoreC-45Reflect-cantReify arg-6 "BindMode" clam-0) (let ((e-13 (cdr sc5))) (let ((sc6 e-9)) (if (null? sc6) (let ((act-24 (let ((act-24 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-13) clam-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (CoreC-45Reflect-u--reify_Reify_RigCount arg-8 arg-0 arg-7 e-7 clam-0)))))))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (vector 1 (vector 0 e-7))))))) (CoreC-45Reflect-cantReify arg-6 "BindMode" clam-0)))))))))))) ((equal? sc3 "PATTERN") (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc3 "NONE") (lambda (eta-0) (vector 1 (vector 2 ))))(else (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "BindMode" eta-0)))))))(else (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "BindMode" eta-0)))))))(else (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "BindMode" eta-0))))))))))) -(define TTImpC-45Reflect-u--reify_Reify_UseSide (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((act-24 (CoreC-45Context-u--full_HasNames_Name (let ((sc1 arg-2)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((u--val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((TTImpC-45Reflect-case--reify-7407 arg-1 e-1 e-3 e-4 e-5 e-2 u--val arg-2 arg-0 e-6 (cons e-6 e-5)) ext-0)))))))))))))(else (CoreC-45Reflect-cantReify arg-3 "UseSide" ext-0)))))) -(define TTImpC-45Reflect-u--reify_Reify_RawImp (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((act-24 (CoreC-45Context-u--full_HasNames_Name (let ((sc1 arg-2)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((u--val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((TTImpC-45Reflect-case--reify-8015 arg-1 e-1 e-3 e-4 e-5 e-2 u--val arg-2 arg-0 e-6 (cons e-6 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5))) ext-0)))))))))))))(else (CoreC-45Reflect-cantReify arg-3 "TTImp" ext-0)))))) -(define TTImpC-45Reflect-u--reify_Reify_ImpTy (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((act-24 (CoreC-45Context-u--full_HasNames_Name (let ((sc1 arg-2)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((u--val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((TTImpC-45Reflect-case--reify-11877 arg-1 e-1 e-3 e-4 e-5 e-2 u--val arg-2 arg-0 e-6 (cons e-6 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5))) ext-0)))))))))))))(else (CoreC-45Reflect-cantReify arg-3 "ITy" ext-0)))))) -(define TTImpC-45Reflect-u--reify_Reify_ImpRecord (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((act-24 (CoreC-45Context-u--full_HasNames_Name (let ((sc1 arg-2)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((u--val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((TTImpC-45Reflect-case--reify-12898 arg-1 e-1 e-3 e-4 e-5 e-2 u--val arg-2 arg-0 e-6 (cons e-6 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5))) ext-0)))))))))))))(else (CoreC-45Reflect-cantReify arg-3 "Record" ext-0)))))) -(define TTImpC-45Reflect-u--reify_Reify_ImpDecl (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((act-24 (CoreC-45Context-u--full_HasNames_Name (let ((sc1 arg-2)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((u--val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((TTImpC-45Reflect-case--reify-13534 arg-1 e-1 e-3 e-4 e-5 e-2 u--val arg-2 arg-0 e-6 (cons e-6 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5))) ext-0)))))))))))))(else (CoreC-45Reflect-cantReify arg-3 "Decl" ext-0)))))) -(define TTImpC-45Reflect-u--reify_Reify_ImpData (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((act-24 (CoreC-45Context-u--full_HasNames_Name (let ((sc1 arg-2)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((u--val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((TTImpC-45Reflect-case--reify-12361 arg-1 e-1 e-3 e-4 e-5 e-2 u--val arg-2 arg-0 e-6 (cons e-6 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5))) ext-0)))))))))))))(else (CoreC-45Reflect-cantReify arg-3 "Data" ext-0)))))) -(define TTImpC-45Reflect-u--reify_Reify_ImpClause (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((act-24 (CoreC-45Context-u--full_HasNames_Name (let ((sc1 arg-2)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((u--val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((TTImpC-45Reflect-case--reify-13145 arg-1 e-1 e-3 e-4 e-5 e-2 u--val arg-2 arg-0 e-6 (cons e-6 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5))) ext-0)))))))))))))(else (CoreC-45Reflect-cantReify arg-3 "Clause" ext-0)))))) -(define TTImpC-45Reflect-u--reify_Reify_IFieldUpdate (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((act-24 (CoreC-45Context-u--full_HasNames_Name (let ((sc1 arg-2)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((u--val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((TTImpC-45Reflect-case--reify-10847 arg-1 e-1 e-3 e-4 e-5 e-2 u--val arg-2 arg-0 e-6 (cons e-6 e-5)) ext-0)))))))))))))(else (CoreC-45Reflect-cantReify arg-3 "IFieldUpdate" ext-0)))))) -(define TTImpC-45Reflect-u--reify_Reify_IField (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((act-24 (CoreC-45Context-u--full_HasNames_Name (let ((sc1 arg-2)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((u--val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((TTImpC-45Reflect-case--reify-12676 arg-1 e-1 e-3 e-4 e-5 e-2 u--val arg-2 arg-0 e-6 (cons e-6 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5))) ext-0)))))))))))))(else (CoreC-45Reflect-cantReify arg-3 "IField" ext-0)))))) -(define TTImpC-45Reflect-u--reify_Reify_FnOpt (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((act-24 (CoreC-45Context-u--full_HasNames_Name (let ((sc1 arg-2)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((u--val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((TTImpC-45Reflect-case--reify-11312 arg-1 e-1 e-3 e-4 e-5 e-2 u--val arg-2 arg-0 e-6 (cons e-6 e-5)) ext-0)))))))))))))(else (CoreC-45Reflect-cantReify arg-3 "FnOpt" ext-0)))))) -(define TTImpC-45Reflect-u--reify_Reify_DotReason (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((act-24 (CoreC-45Context-u--full_HasNames_Name (let ((sc1 arg-2)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((u--val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((TTImpC-45Reflect-case--reify-7604 arg-1 e-1 e-3 e-4 e-5 e-2 u--val arg-2 arg-0 e-6 (cons e-6 e-5)) ext-0)))))))))))))(else (CoreC-45Reflect-cantReify arg-3 "DotReason" ext-0)))))) -(define TTImpC-45Reflect-u--reify_Reify_DataOpt (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((act-24 (CoreC-45Context-u--full_HasNames_Name (let ((sc1 arg-2)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((u--val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((TTImpC-45Reflect-case--reify-12069 arg-1 e-1 e-3 e-4 e-5 e-2 u--val arg-2 arg-0 e-6 (cons e-6 e-5)) ext-0)))))))))))))(else (CoreC-45Reflect-cantReify arg-3 "DataOpt" ext-0)))))) -(define TTImpC-45Reflect-u--reify_Reify_BindMode (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((act-24 (CoreC-45Context-u--full_HasNames_Name (let ((sc1 arg-2)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((u--val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((TTImpC-45Reflect-case--reify-7131 arg-1 e-1 e-3 e-4 e-5 e-2 u--val arg-2 arg-0 e-6 (cons e-6 e-5)) ext-0)))))))))))))(else (CoreC-45Reflect-cantReify arg-3 "BindMode" ext-0)))))) -(define TTImpC-45Reflect-u--reify_Reify_AltType (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((act-24 (CoreC-45Context-u--full_HasNames_Name (let ((sc1 arg-2)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((u--val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((TTImpC-45Reflect-case--reify-11101 arg-1 e-1 e-3 e-4 e-5 e-2 u--val arg-2 arg-0 e-6 (cons e-6 e-5)) ext-0)))))))))))))(else (CoreC-45Reflect-cantReify arg-3 "AltType" ext-0)))))) -(define TTImpC-45Reflect-u--reflect_Reflect_UseSide (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (CoreC-45Reflect-getCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "UseLeft") ext-0)) (else (CoreC-45Reflect-getCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "UseRight") ext-0)))))) -(define TTImpC-45Reflect-u--reflect_Reflect_RawImp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((CoreC-45Reflect-u--reflect_Reflect_FC arg-0 arg-1 arg-2 arg-3 arg-4 e-7) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Reflect-u--reflect_Reflect_Name arg-0 arg-1 arg-2 arg-3 arg-4 e-8 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "IVar") (cons e-5 (cons e-6 '())) eta-0))))))))))))))) ((1) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (let ((e-12 (vector-ref sc0 4))) (let ((e-13 (vector-ref sc0 5))) (let ((e-14 (vector-ref sc0 6))) (lambda (eta-0) (let ((act-24 ((CoreC-45Reflect-u--reflect_Reflect_FC arg-0 arg-1 arg-2 arg-3 arg-4 e-9) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((CoreC-45Reflect-u--reflect_Reflect_RigCount arg-0 arg-1 arg-2 arg-3 arg-4 e-10) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (CoreC-45Reflect-u--reflect_Reflect_C-40PiInfoC-32C-36tC-41 (lambda (u--vars) (lambda (arg-3854) (lambda (arg-3855) (lambda (u--onLHS) (lambda (arg-3856) (lambda (arg-3858) (TTImpC-45Reflect-u--reflect_Reflect_RawImp u--vars arg-3854 arg-3855 u--onLHS arg-3856 arg-3858))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-11 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (CoreC-45Reflect-u--reflect_Reflect_C-40MaybeC-32C-36aC-41 (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (lambda (eta-7) (CoreC-45Reflect-u--reflect_Reflect_Name eta-1 eta-2 eta-3 eta-4 eta-5 eta-6 eta-7)))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-12 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 ((TTImpC-45Reflect-u--reflect_Reflect_RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-13) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-15 (vector-ref sc5 1))) (let ((act-29 ((TTImpC-45Reflect-u--reflect_Reflect_RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-14) eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-16 (vector-ref sc6 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "IPi") (cons e-5 (cons e-6 (cons e-7 (cons e-8 (cons e-15 (cons e-16 '())))))) eta-0))))))))))))))))))))))))))))))))))))))) ((2) (let ((e-15 (vector-ref sc0 1))) (let ((e-16 (vector-ref sc0 2))) (let ((e-17 (vector-ref sc0 3))) (let ((e-18 (vector-ref sc0 4))) (let ((e-19 (vector-ref sc0 5))) (let ((e-20 (vector-ref sc0 6))) (lambda (eta-0) (let ((act-24 ((CoreC-45Reflect-u--reflect_Reflect_FC arg-0 arg-1 arg-2 arg-3 arg-4 e-15) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((CoreC-45Reflect-u--reflect_Reflect_RigCount arg-0 arg-1 arg-2 arg-3 arg-4 e-16) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (CoreC-45Reflect-u--reflect_Reflect_C-40PiInfoC-32C-36tC-41 (lambda (u--vars) (lambda (arg-3854) (lambda (arg-3855) (lambda (u--onLHS) (lambda (arg-3856) (lambda (arg-3858) (TTImpC-45Reflect-u--reflect_Reflect_RawImp u--vars arg-3854 arg-3855 u--onLHS arg-3856 arg-3858))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-17 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (CoreC-45Reflect-u--reflect_Reflect_C-40MaybeC-32C-36aC-41 (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (lambda (eta-7) (CoreC-45Reflect-u--reflect_Reflect_Name eta-1 eta-2 eta-3 eta-4 eta-5 eta-6 eta-7)))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-18 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 ((TTImpC-45Reflect-u--reflect_Reflect_RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-19) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 ((TTImpC-45Reflect-u--reflect_Reflect_RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-20) eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc6 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "ILam") (cons e-5 (cons e-6 (cons e-7 (cons e-8 (cons e-9 (cons e-10 '())))))) eta-0))))))))))))))))))))))))))))))))))))))) ((3) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (let ((e-24 (vector-ref sc0 4))) (let ((e-25 (vector-ref sc0 5))) (let ((e-26 (vector-ref sc0 6))) (let ((e-27 (vector-ref sc0 7))) (lambda (eta-0) (let ((act-24 ((CoreC-45Reflect-u--reflect_Reflect_FC arg-0 arg-1 arg-2 arg-3 arg-4 e-21) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((CoreC-45Reflect-u--reflect_Reflect_FC arg-0 arg-1 arg-2 arg-3 arg-4 e-22) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((CoreC-45Reflect-u--reflect_Reflect_RigCount arg-0 arg-1 arg-2 arg-3 arg-4 e-23) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (CoreC-45Reflect-u--reflect_Reflect_Name arg-0 arg-1 arg-2 arg-3 arg-4 e-24 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 ((TTImpC-45Reflect-u--reflect_Reflect_RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-25) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 ((TTImpC-45Reflect-u--reflect_Reflect_RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-26) eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-30 ((TTImpC-45Reflect-u--reflect_Reflect_RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-27) eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc7 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "ILet") (cons e-5 (cons e-6 (cons e-7 (cons e-8 (cons e-9 (cons e-10 (cons e-11 '()))))))) eta-0))))))))))))))))))))))))))))))))))))))))))))) ((4) (let ((e-28 (vector-ref sc0 1))) (let ((e-29 (vector-ref sc0 2))) (let ((e-30 (vector-ref sc0 3))) (let ((e-31 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((CoreC-45Reflect-u--reflect_Reflect_FC arg-0 arg-1 arg-2 arg-3 arg-4 e-28) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((TTImpC-45Reflect-u--reflect_Reflect_RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-29) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((TTImpC-45Reflect-u--reflect_Reflect_RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-30) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (CoreC-45Reflect-u--reflect_Reflect_C-40ListC-32C-36aC-41 (lambda (u--vars) (lambda (arg-3854) (lambda (arg-3855) (lambda (u--onLHS) (lambda (arg-3856) (lambda (arg-3858) (lambda (eta-1) (TTImpC-45Reflect-u--reflect_Reflect_ImpClause u--vars arg-3854 arg-3855 u--onLHS arg-3856 arg-3858 eta-1)))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-31 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "ICase") (cons e-5 (cons e-6 (cons e-7 (cons e-8 '())))) eta-0))))))))))))))))))))))))))) ((5) (let ((e-32 (vector-ref sc0 1))) (let ((e-33 (vector-ref sc0 2))) (let ((e-34 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((CoreC-45Reflect-u--reflect_Reflect_FC arg-0 arg-1 arg-2 arg-3 arg-4 e-32) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Reflect-u--reflect_Reflect_C-40ListC-32C-36aC-41 (lambda (u--vars) (lambda (arg-3854) (lambda (arg-3855) (lambda (u--onLHS) (lambda (arg-3856) (lambda (arg-3858) (lambda (eta-1) (TTImpC-45Reflect-u--reflect_Reflect_ImpDecl u--vars arg-3854 arg-3855 u--onLHS arg-3856 arg-3858 eta-1)))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-33 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((TTImpC-45Reflect-u--reflect_Reflect_RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-34) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "ILocal") (cons e-5 (cons e-6 (cons e-7 '()))) eta-0))))))))))))))))))))) ((6) (let ((e-39 (vector-ref sc0 5))) (TTImpC-45Reflect-u--reflect_Reflect_RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-39))) ((7) (let ((e-40 (vector-ref sc0 1))) (let ((e-41 (vector-ref sc0 2))) (let ((e-42 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((CoreC-45Reflect-u--reflect_Reflect_FC arg-0 arg-1 arg-2 arg-3 arg-4 e-40) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Reflect-u--reflect_Reflect_C-40ListC-32C-36aC-41 (lambda (u--vars) (lambda (arg-3854) (lambda (arg-3855) (lambda (u--onLHS) (lambda (arg-3856) (lambda (arg-3858) (lambda (eta-1) (TTImpC-45Reflect-u--reflect_Reflect_IFieldUpdate u--vars arg-3854 arg-3855 u--onLHS arg-3856 arg-3858 eta-1)))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-41 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((TTImpC-45Reflect-u--reflect_Reflect_RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-42) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "IUpdate") (cons e-5 (cons e-6 (cons e-7 '()))) eta-0))))))))))))))))))))) ((8) (let ((e-43 (vector-ref sc0 1))) (let ((e-44 (vector-ref sc0 2))) (let ((e-45 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((CoreC-45Reflect-u--reflect_Reflect_FC arg-0 arg-1 arg-2 arg-3 arg-4 e-43) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((TTImpC-45Reflect-u--reflect_Reflect_RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-44) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((TTImpC-45Reflect-u--reflect_Reflect_RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-45) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "IApp") (cons e-5 (cons e-6 (cons e-7 '()))) eta-0))))))))))))))))))))) ((9) (let ((e-46 (vector-ref sc0 1))) (let ((e-47 (vector-ref sc0 2))) (let ((e-48 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((CoreC-45Reflect-u--reflect_Reflect_FC arg-0 arg-1 arg-2 arg-3 arg-4 e-46) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((TTImpC-45Reflect-u--reflect_Reflect_RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-47) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((TTImpC-45Reflect-u--reflect_Reflect_RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-48) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "IAutoApp") (cons e-5 (cons e-6 (cons e-7 '()))) eta-0))))))))))))))))))))) ((10) (let ((e-49 (vector-ref sc0 1))) (let ((e-50 (vector-ref sc0 2))) (let ((e-51 (vector-ref sc0 3))) (let ((e-52 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((CoreC-45Reflect-u--reflect_Reflect_FC arg-0 arg-1 arg-2 arg-3 arg-4 e-49) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((TTImpC-45Reflect-u--reflect_Reflect_RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-50) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (CoreC-45Reflect-u--reflect_Reflect_Name arg-0 arg-1 arg-2 arg-3 arg-4 e-51 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((TTImpC-45Reflect-u--reflect_Reflect_RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-52) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "INamedApp") (cons e-5 (cons e-6 (cons e-7 (cons e-8 '())))) eta-0))))))))))))))))))))))))))) ((11) (let ((e-53 (vector-ref sc0 1))) (let ((e-54 (vector-ref sc0 2))) (let ((e-55 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((CoreC-45Reflect-u--reflect_Reflect_FC arg-0 arg-1 arg-2 arg-3 arg-4 e-53) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((TTImpC-45Reflect-u--reflect_Reflect_RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-54) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((TTImpC-45Reflect-u--reflect_Reflect_RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-55) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "IWithApp") (cons e-5 (cons e-6 (cons e-7 '()))) eta-0))))))))))))))))))))) ((12) (let ((e-56 (vector-ref sc0 1))) (let ((e-57 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((CoreC-45Reflect-u--reflect_Reflect_FC arg-0 arg-1 arg-2 arg-3 arg-4 e-56) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((CoreC-45Reflect-u--reflect_Reflect_Nat arg-0 arg-1 arg-2 arg-3 arg-4 e-57) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "ISearch") (cons e-5 (cons e-6 '())) eta-0))))))))))))))) ((13) (let ((e-58 (vector-ref sc0 1))) (let ((e-59 (vector-ref sc0 2))) (let ((e-60 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((CoreC-45Reflect-u--reflect_Reflect_FC arg-0 arg-1 arg-2 arg-3 arg-4 e-58) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTImpC-45Reflect-u--reflect_Reflect_AltType arg-0 arg-1 arg-2 arg-3 arg-4 e-59 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (CoreC-45Reflect-u--reflect_Reflect_C-40ListC-32C-36aC-41 (lambda (u--vars) (lambda (arg-3854) (lambda (arg-3855) (lambda (u--onLHS) (lambda (arg-3856) (lambda (arg-3858) (TTImpC-45Reflect-u--reflect_Reflect_RawImp u--vars arg-3854 arg-3855 u--onLHS arg-3856 arg-3858))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-60 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "IAlternative") (cons e-5 (cons e-6 (cons e-7 '()))) eta-0))))))))))))))))))))) ((14) (let ((e-61 (vector-ref sc0 1))) (let ((e-62 (vector-ref sc0 2))) (let ((e-63 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((CoreC-45Reflect-u--reflect_Reflect_FC arg-0 arg-1 arg-2 arg-3 arg-4 e-61) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((TTImpC-45Reflect-u--reflect_Reflect_RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-62) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((TTImpC-45Reflect-u--reflect_Reflect_RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-63) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "IRewrite") (cons e-5 (cons e-6 (cons e-7 '()))) eta-0))))))))))))))))))))) ((15) (let ((e-65 (vector-ref sc0 2))) (TTImpC-45Reflect-u--reflect_Reflect_RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-65))) ((16) (let ((e-66 (vector-ref sc0 1))) (let ((e-67 (vector-ref sc0 2))) (let ((e-68 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((CoreC-45Reflect-u--reflect_Reflect_FC arg-0 arg-1 arg-2 arg-3 arg-4 e-66) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTImpC-45Reflect-u--reflect_Reflect_BindMode arg-0 arg-1 arg-2 arg-3 arg-4 e-67 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((TTImpC-45Reflect-u--reflect_Reflect_RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-68) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "IBindHere") (cons e-5 (cons e-6 (cons e-7 '()))) eta-0))))))))))))))))))))) ((17) (let ((e-69 (vector-ref sc0 1))) (let ((e-70 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((CoreC-45Reflect-u--reflect_Reflect_FC arg-0 arg-1 arg-2 arg-3 arg-4 e-69) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Reflect-u--reflect_Reflect_String arg-0 arg-1 arg-2 arg-3 arg-4 e-70 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "IBindVar") (cons e-5 (cons e-6 '())) eta-0))))))))))))))) ((18) (let ((e-71 (vector-ref sc0 1))) (let ((e-72 (vector-ref sc0 2))) (let ((e-73 (vector-ref sc0 3))) (let ((e-74 (vector-ref sc0 4))) (let ((e-75 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((CoreC-45Reflect-u--reflect_Reflect_FC arg-0 arg-1 arg-2 arg-3 arg-4 e-71) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((CoreC-45Reflect-u--reflect_Reflect_FC arg-0 arg-1 arg-2 arg-3 arg-4 e-72) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImpC-45Reflect-u--reflect_Reflect_UseSide arg-0 arg-1 arg-2 arg-3 arg-4 e-73 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (CoreC-45Reflect-u--reflect_Reflect_Name arg-0 arg-1 arg-2 arg-3 arg-4 e-74 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 ((TTImpC-45Reflect-u--reflect_Reflect_RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-75) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "IAs") (cons e-5 (cons e-6 (cons e-7 (cons e-8 (cons e-9 '()))))) eta-0))))))))))))))))))))))))))))))))) ((19) (let ((e-76 (vector-ref sc0 1))) (let ((e-77 (vector-ref sc0 2))) (let ((e-78 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((CoreC-45Reflect-u--reflect_Reflect_FC arg-0 arg-1 arg-2 arg-3 arg-4 e-76) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTImpC-45Reflect-u--reflect_Reflect_DotReason arg-0 arg-1 arg-2 arg-3 arg-4 e-77 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((TTImpC-45Reflect-u--reflect_Reflect_RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-78) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "IMustUnify") (cons e-5 (cons e-6 (cons e-7 '()))) eta-0))))))))))))))))))))) ((20) (let ((e-79 (vector-ref sc0 1))) (let ((e-80 (vector-ref sc0 2))) (let ((e-81 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((CoreC-45Reflect-u--reflect_Reflect_FC arg-0 arg-1 arg-2 arg-3 arg-4 e-79) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Reflect-u--reflect_Reflect_LazyReason arg-0 arg-1 arg-2 arg-3 arg-4 e-80 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((TTImpC-45Reflect-u--reflect_Reflect_RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-81) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "IDelayed") (cons e-5 (cons e-6 (cons e-7 '()))) eta-0))))))))))))))))))))) ((21) (let ((e-82 (vector-ref sc0 1))) (let ((e-83 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((CoreC-45Reflect-u--reflect_Reflect_FC arg-0 arg-1 arg-2 arg-3 arg-4 e-82) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((TTImpC-45Reflect-u--reflect_Reflect_RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-83) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "IDelay") (cons e-5 (cons e-6 '())) eta-0))))))))))))))) ((22) (let ((e-84 (vector-ref sc0 1))) (let ((e-85 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((CoreC-45Reflect-u--reflect_Reflect_FC arg-0 arg-1 arg-2 arg-3 arg-4 e-84) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((TTImpC-45Reflect-u--reflect_Reflect_RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-85) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "IForce") (cons e-5 (cons e-6 '())) eta-0))))))))))))))) ((23) (let ((e-86 (vector-ref sc0 1))) (let ((e-87 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((CoreC-45Reflect-u--reflect_Reflect_FC arg-0 arg-1 arg-2 arg-3 arg-4 e-86) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((TTImpC-45Reflect-u--reflect_Reflect_RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-87) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "IQuote") (cons e-5 (cons e-6 '())) eta-0))))))))))))))) ((24) (let ((e-88 (vector-ref sc0 1))) (let ((e-89 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((CoreC-45Reflect-u--reflect_Reflect_FC arg-0 arg-1 arg-2 arg-3 arg-4 e-88) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Reflect-u--reflect_Reflect_Name arg-0 arg-1 arg-2 arg-3 arg-4 e-89 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "IQuoteName") (cons e-5 (cons e-6 '())) eta-0))))))))))))))) ((25) (let ((e-90 (vector-ref sc0 1))) (let ((e-91 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((CoreC-45Reflect-u--reflect_Reflect_FC arg-0 arg-1 arg-2 arg-3 arg-4 e-90) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Reflect-u--reflect_Reflect_C-40ListC-32C-36aC-41 (lambda (u--vars) (lambda (arg-3854) (lambda (arg-3855) (lambda (u--onLHS) (lambda (arg-3856) (lambda (arg-3858) (lambda (eta-1) (TTImpC-45Reflect-u--reflect_Reflect_ImpDecl u--vars arg-3854 arg-3855 u--onLHS arg-3856 arg-3858 eta-1)))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-91 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "IQuoteDecl") (cons e-5 (cons e-6 '())) eta-0))))))))))))))) ((26) (let ((e-92 (vector-ref sc0 1))) (let ((e-93 (vector-ref sc0 2))) (lambda (clam-0) (let ((sc1 e-93)) (case (vector-ref sc1 0) ((0) (let ((e-105 (vector-ref sc1 2))) (vector 1 (vector 1 e-92 (vector 0 ) e-105))))(else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 "Can't reflect an unquote: escapes should be lifted out") clam-0)))))))) ((27) (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 "Can't reflect a %runelab") eta-0))) ((28) (let ((e-96 (vector-ref sc0 1))) (let ((e-97 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((CoreC-45Reflect-u--reflect_Reflect_FC arg-0 arg-1 arg-2 arg-3 arg-4 e-96) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Reflect-u--reflect_Reflect_Constant arg-0 arg-1 arg-2 arg-3 arg-4 e-97 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "IPrimVal") (cons e-5 (cons e-6 '())) eta-0))))))))))))))) ((29) (let ((e-98 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((CoreC-45Reflect-u--reflect_Reflect_FC arg-0 arg-1 arg-2 arg-3 arg-4 e-98) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "IType") (cons e-5 '()) eta-0))))))))) ((30) (let ((e-99 (vector-ref sc0 1))) (let ((e-100 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((CoreC-45Reflect-u--reflect_Reflect_FC arg-0 arg-1 arg-2 arg-3 arg-4 e-99) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Reflect-u--reflect_Reflect_String arg-0 arg-1 arg-2 arg-3 arg-4 e-100 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "IHole") (cons e-5 (cons e-6 '())) eta-0))))))))))))))) ((31) (let ((e-103 (vector-ref sc0 3))) (TTImpC-45Reflect-u--reflect_Reflect_RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-103)))(else (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (clam-0) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((32) (vector 1 (vector 10 arg-1 1)))(else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((32) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((act-24 ((CoreC-45Reflect-u--reflect_Reflect_FC arg-0 arg-1 arg-2 arg-3 arg-4 e-0) clam-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (CoreC-45Reflect-u--reflect_Reflect_Bool arg-0 arg-1 arg-2 arg-3 arg-4 e-1 clam-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "Implicit") (cons e-5 (cons e-6 '())) clam-0)))))))))))))) (else (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((e-4 (vector-ref sc1 3))) (let ((act-24 ((CoreC-45Reflect-u--reflect_Reflect_FC arg-0 arg-1 arg-2 arg-3 arg-4 e-2) clam-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (CoreC-45Reflect-u--reflect_Reflect_C-40ListC-32C-36aC-41 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (CoreC-45Reflect-u--reflect_Reflect_Name eta-0 eta-1 eta-2 eta-3 eta-4 eta-5 eta-6)))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-3 clam-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 ((TTImpC-45Reflect-u--reflect_Reflect_RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-4) clam-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "WithUnambigNames") (cons e-5 (cons e-6 (cons e-7 '()))) clam-0)))))))))))))))))))))))))))(else (lambda (clam-2) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((32) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((act-24 ((CoreC-45Reflect-u--reflect_Reflect_FC arg-0 arg-1 arg-2 arg-3 arg-4 e-0) clam-2))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Reflect-u--reflect_Reflect_Bool arg-0 arg-1 arg-2 arg-3 arg-4 e-1 clam-2))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "Implicit") (cons e-5 (cons e-6 '())) clam-2)))))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((act-24 ((CoreC-45Reflect-u--reflect_Reflect_FC arg-0 arg-1 arg-2 arg-3 arg-4 e-2) clam-2))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Reflect-u--reflect_Reflect_C-40ListC-32C-36aC-41 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (CoreC-45Reflect-u--reflect_Reflect_Name eta-0 eta-1 eta-2 eta-3 eta-4 eta-5 eta-6)))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-3 clam-2))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((TTImpC-45Reflect-u--reflect_Reflect_RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-4) clam-2))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc3 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "WithUnambigNames") (cons e-5 (cons e-6 (cons e-7 '()))) clam-2))))))))))))))))))))))))))))))) -(define TTImpC-45Reflect-u--reflect_Reflect_ImpTy (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((sc0 arg-5)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((act-24 ((CoreC-45Reflect-u--reflect_Reflect_FC arg-0 arg-1 arg-2 arg-3 arg-4 e-0) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((CoreC-45Reflect-u--reflect_Reflect_FC arg-0 arg-1 arg-2 arg-3 arg-4 e-1) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (CoreC-45Reflect-u--reflect_Reflect_Name arg-0 arg-1 arg-2 arg-3 arg-4 e-2 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((TTImpC-45Reflect-u--reflect_Reflect_RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-3) ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "MkTy") (cons e-5 (cons e-6 (cons e-7 (cons e-8 '())))) ext-0)))))))))))))))))))))))))))) -(define TTImpC-45Reflect-u--reflect_Reflect_ImpRecord (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((sc0 arg-5)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((act-24 ((CoreC-45Reflect-u--reflect_Reflect_FC arg-0 arg-1 arg-2 arg-3 arg-4 e-0) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Reflect-u--reflect_Reflect_Name arg-0 arg-1 arg-2 arg-3 arg-4 e-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (CoreC-45Reflect-u--reflect_Reflect_C-40ListC-32C-36aC-41 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (CoreC-45Reflect-u--reflect_Reflect_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (eta-7) (lambda (eta-8) (lambda (eta-9) (lambda (eta-10) (lambda (eta-11) (lambda (eta-12) (lambda (eta-13) (CoreC-45Reflect-u--reflect_Reflect_Name eta-7 eta-8 eta-9 eta-10 eta-11 eta-12 eta-13)))))))) (lambda (eta-7) (lambda (eta-8) (lambda (eta-9) (lambda (eta-10) (lambda (eta-11) (lambda (eta-12) (lambda (eta-13) (CoreC-45Reflect-u--reflect_Reflect_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (eta-14) (lambda (eta-15) (lambda (eta-16) (lambda (eta-17) (lambda (eta-18) (lambda (eta-19) (CoreC-45Reflect-u--reflect_Reflect_RigCount eta-14 eta-15 eta-16 eta-17 eta-18 eta-19))))))) (lambda (eta-14) (lambda (eta-15) (lambda (eta-16) (lambda (eta-17) (lambda (eta-18) (lambda (eta-19) (lambda (eta-20) (CoreC-45Reflect-u--reflect_Reflect_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (eta-21) (lambda (eta-22) (lambda (eta-23) (lambda (eta-24) (lambda (eta-25) (lambda (eta-26) (lambda (eta-27) (CoreC-45Reflect-u--reflect_Reflect_C-40PiInfoC-32C-36tC-41 (lambda (u--vars) (lambda (arg-3854) (lambda (arg-3855) (lambda (u--onLHS) (lambda (arg-3856) (lambda (arg-3858) (TTImpC-45Reflect-u--reflect_Reflect_RawImp u--vars arg-3854 arg-3855 u--onLHS arg-3856 arg-3858))))))) eta-21 eta-22 eta-23 eta-24 eta-25 eta-26 eta-27)))))))) (lambda (u--vars) (lambda (arg-3854) (lambda (arg-3855) (lambda (u--onLHS) (lambda (arg-3856) (lambda (arg-3858) (TTImpC-45Reflect-u--reflect_Reflect_RawImp u--vars arg-3854 arg-3855 u--onLHS arg-3856 arg-3858)))))))) eta-14 eta-15 eta-16 eta-17 eta-18 eta-19 eta-20))))))))) eta-7 eta-8 eta-9 eta-10 eta-11 eta-12 eta-13))))))))) eta-0 eta-1 eta-2 eta-3 eta-4 eta-5 eta-6)))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-2 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (CoreC-45Reflect-u--reflect_Reflect_Name arg-0 arg-1 arg-2 arg-3 arg-4 e-3 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (CoreC-45Reflect-u--reflect_Reflect_C-40ListC-32C-36aC-41 (lambda (u--vars) (lambda (arg-3854) (lambda (arg-3855) (lambda (u--onLHS) (lambda (arg-3856) (lambda (arg-3858) (lambda (eta-0) (TTImpC-45Reflect-u--reflect_Reflect_IField u--vars arg-3854 arg-3855 u--onLHS arg-3856 arg-3858 eta-0)))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-4 ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc5 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "MkRecord") (cons e-5 (cons e-6 (cons e-7 (cons e-8 (cons e-9 '()))))) ext-0)))))))))))))))))))))))))))))))))) -(define TTImpC-45Reflect-u--reflect_Reflect_ImpDecl (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((act-24 ((CoreC-45Reflect-u--reflect_Reflect_FC arg-0 arg-1 arg-2 arg-3 arg-4 e-0) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((CoreC-45Reflect-u--reflect_Reflect_RigCount arg-0 arg-1 arg-2 arg-3 arg-4 e-1) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (CoreC-45Reflect-u--reflect_Reflect_Visibility arg-0 arg-1 arg-2 arg-3 arg-4 e-2 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (CoreC-45Reflect-u--reflect_Reflect_C-40ListC-32C-36aC-41 (lambda (u--vars) (lambda (arg-3854) (lambda (arg-3855) (lambda (u--onLHS) (lambda (arg-3856) (lambda (arg-3858) (lambda (eta-0) (TTImpC-45Reflect-u--reflect_Reflect_FnOpt u--vars arg-3854 arg-3855 u--onLHS arg-3856 arg-3858 eta-0)))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-3 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (TTImpC-45Reflect-u--reflect_Reflect_ImpTy arg-0 arg-1 arg-2 arg-3 arg-4 e-4 ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc5 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "IClaim") (cons e-5 (cons e-6 (cons e-7 (cons e-8 (cons e-9 '()))))) ext-0)))))))))))))))))))))))))))))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((act-24 ((CoreC-45Reflect-u--reflect_Reflect_FC arg-0 arg-1 arg-2 arg-3 arg-4 e-5) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Reflect-u--reflect_Reflect_Visibility arg-0 arg-1 arg-2 arg-3 arg-4 e-6 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc2 1))) (let ((act-26 (TTImpC-45Reflect-u--reflect_Reflect_ImpData arg-0 arg-1 arg-2 arg-3 arg-4 e-7 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc3 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "IData") (cons e-8 (cons e-9 (cons e-10 '()))) ext-0)))))))))))))))))))) ((2) (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 3))) (let ((act-24 ((CoreC-45Reflect-u--reflect_Reflect_FC arg-0 arg-1 arg-2 arg-3 arg-4 e-8) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Reflect-u--reflect_Reflect_Name arg-0 arg-1 arg-2 arg-3 arg-4 e-9 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (CoreC-45Reflect-u--reflect_Reflect_C-40ListC-32C-36aC-41 (lambda (u--vars) (lambda (arg-3854) (lambda (arg-3855) (lambda (u--onLHS) (lambda (arg-3856) (lambda (arg-3858) (lambda (eta-0) (TTImpC-45Reflect-u--reflect_Reflect_ImpClause u--vars arg-3854 arg-3855 u--onLHS arg-3856 arg-3858 eta-0)))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-10 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "IDef") (cons e-5 (cons e-6 (cons e-7 '()))) ext-0)))))))))))))))))))) ((3) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (let ((act-24 ((CoreC-45Reflect-u--reflect_Reflect_FC arg-0 arg-1 arg-2 arg-3 arg-4 e-11) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Reflect-u--reflect_Reflect_C-40ListC-32C-36aC-41 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (CoreC-45Reflect-u--reflect_Reflect_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (eta-7) (lambda (eta-8) (lambda (eta-9) (lambda (eta-10) (lambda (eta-11) (lambda (eta-12) (lambda (eta-13) (CoreC-45Reflect-u--reflect_Reflect_Name eta-7 eta-8 eta-9 eta-10 eta-11 eta-12 eta-13)))))))) (lambda (eta-7) (lambda (eta-8) (lambda (eta-9) (lambda (eta-10) (lambda (eta-11) (lambda (eta-12) (lambda (eta-13) (CoreC-45Reflect-u--reflect_Reflect_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (eta-14) (lambda (eta-15) (lambda (eta-16) (lambda (eta-17) (lambda (eta-18) (lambda (eta-19) (CoreC-45Reflect-u--reflect_Reflect_RigCount eta-14 eta-15 eta-16 eta-17 eta-18 eta-19))))))) (lambda (eta-14) (lambda (eta-15) (lambda (eta-16) (lambda (eta-17) (lambda (eta-18) (lambda (eta-19) (lambda (eta-20) (CoreC-45Reflect-u--reflect_Reflect_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (eta-21) (lambda (eta-22) (lambda (eta-23) (lambda (eta-24) (lambda (eta-25) (lambda (eta-26) (lambda (eta-27) (CoreC-45Reflect-u--reflect_Reflect_C-40PiInfoC-32C-36tC-41 (lambda (u--vars) (lambda (arg-3854) (lambda (arg-3855) (lambda (u--onLHS) (lambda (arg-3856) (lambda (arg-3858) (TTImpC-45Reflect-u--reflect_Reflect_RawImp u--vars arg-3854 arg-3855 u--onLHS arg-3856 arg-3858))))))) eta-21 eta-22 eta-23 eta-24 eta-25 eta-26 eta-27)))))))) (lambda (u--vars) (lambda (arg-3854) (lambda (arg-3855) (lambda (u--onLHS) (lambda (arg-3856) (lambda (arg-3858) (TTImpC-45Reflect-u--reflect_Reflect_RawImp u--vars arg-3854 arg-3855 u--onLHS arg-3856 arg-3858)))))))) eta-14 eta-15 eta-16 eta-17 eta-18 eta-19 eta-20))))))))) eta-7 eta-8 eta-9 eta-10 eta-11 eta-12 eta-13))))))))) eta-0 eta-1 eta-2 eta-3 eta-4 eta-5 eta-6)))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-12 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (CoreC-45Reflect-u--reflect_Reflect_C-40ListC-32C-36aC-41 (lambda (u--vars) (lambda (arg-3854) (lambda (arg-3855) (lambda (u--onLHS) (lambda (arg-3856) (lambda (arg-3858) (lambda (eta-0) (TTImpC-45Reflect-u--reflect_Reflect_ImpDecl u--vars arg-3854 arg-3855 u--onLHS arg-3856 arg-3858 eta-0)))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-13 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "IParameters") (cons e-5 (cons e-6 (cons e-7 '()))) ext-0)))))))))))))))))))) ((4) (let ((e-14 (vector-ref sc0 1))) (let ((e-16 (vector-ref sc0 3))) (let ((e-17 (vector-ref sc0 4))) (let ((act-24 ((CoreC-45Reflect-u--reflect_Reflect_FC arg-0 arg-1 arg-2 arg-3 arg-4 e-14) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Reflect-u--reflect_Reflect_Visibility arg-0 arg-1 arg-2 arg-3 arg-4 e-16 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImpC-45Reflect-u--reflect_Reflect_ImpRecord arg-0 arg-1 arg-2 arg-3 arg-4 e-17 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "IRecord") (cons e-5 (cons e-6 (cons e-7 '()))) ext-0)))))))))))))))))))) ((5) (let ((e-18 (vector-ref sc0 1))) (let ((e-19 (vector-ref sc0 2))) (let ((e-20 (vector-ref sc0 3))) (let ((act-24 ((CoreC-45Reflect-u--reflect_Reflect_FC arg-0 arg-1 arg-2 arg-3 arg-4 e-18) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Reflect-u--reflect_Reflect_Namespace arg-0 arg-1 arg-2 arg-3 arg-4 e-19 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (CoreC-45Reflect-u--reflect_Reflect_C-40ListC-32C-36aC-41 (lambda (u--vars) (lambda (arg-3854) (lambda (arg-3855) (lambda (u--onLHS) (lambda (arg-3856) (lambda (arg-3858) (lambda (eta-0) (TTImpC-45Reflect-u--reflect_Reflect_ImpDecl u--vars arg-3854 arg-3855 u--onLHS arg-3856 arg-3858 eta-0)))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-20 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "INamespace") (cons e-5 (cons e-6 (cons e-7 '()))) ext-0)))))))))))))))))))) ((6) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (let ((e-24 (vector-ref sc0 4))) (let ((act-24 ((CoreC-45Reflect-u--reflect_Reflect_FC arg-0 arg-1 arg-2 arg-3 arg-4 e-21) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Reflect-u--reflect_Reflect_Name arg-0 arg-1 arg-2 arg-3 arg-4 e-22 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((TTImpC-45Reflect-u--reflect_Reflect_RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-23) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((TTImpC-45Reflect-u--reflect_Reflect_RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-24) ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "ITransform") (cons e-5 (cons e-6 (cons e-7 (cons e-8 '())))) ext-0)))))))))))))))))))))))))) ((7) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-1 "Can't reflect a %runElab") ext-0)) ((8) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-1 "Can't reflect a pragma") ext-0)) ((9) (let ((e-29 (vector-ref sc0 1))) (let ((act-24 (CoreC-45Reflect-u--reflect_Reflect_C-40MaybeC-32C-36aC-41 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (CoreC-45Reflect-u--reflect_Reflect_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (eta-7) (lambda (eta-8) (lambda (eta-9) (lambda (eta-10) (lambda (eta-11) (lambda (eta-12) (lambda (eta-13) (CoreC-45Reflect-u--reflect_Reflect_C-40ListC-32C-36aC-41 (lambda (eta-14) (lambda (eta-15) (lambda (eta-16) (lambda (eta-17) (lambda (eta-18) (lambda (eta-19) (lambda (eta-20) (CoreC-45Reflect-u--reflect_Reflect_String eta-14 eta-15 eta-16 eta-17 eta-18 eta-19 eta-20)))))))) eta-7 eta-8 eta-9 eta-10 eta-11 eta-12 eta-13)))))))) (lambda (eta-7) (lambda (eta-8) (lambda (eta-9) (lambda (eta-10) (lambda (eta-11) (lambda (eta-12) (CoreC-45Reflect-u--reflect_Reflect_Nat eta-7 eta-8 eta-9 eta-10 eta-11 eta-12)))))))) eta-0 eta-1 eta-2 eta-3 eta-4 eta-5 eta-6)))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-29 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "ILog") (cons e-5 '()) ext-0)))))))) (else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-1 "Can't reflect a %builtin") ext-0)))))) -(define TTImpC-45Reflect-u--reflect_Reflect_ImpData (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((act-24 ((CoreC-45Reflect-u--reflect_Reflect_FC arg-0 arg-1 arg-2 arg-3 arg-4 e-0) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Reflect-u--reflect_Reflect_Name arg-0 arg-1 arg-2 arg-3 arg-4 e-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((TTImpC-45Reflect-u--reflect_Reflect_RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-2) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (CoreC-45Reflect-u--reflect_Reflect_C-40ListC-32C-36aC-41 (lambda (u--vars) (lambda (arg-3854) (lambda (arg-3855) (lambda (u--onLHS) (lambda (arg-3856) (lambda (arg-3858) (lambda (eta-0) (TTImpC-45Reflect-u--reflect_Reflect_DataOpt u--vars arg-3854 arg-3855 u--onLHS arg-3856 arg-3858 eta-0)))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-3 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (CoreC-45Reflect-u--reflect_Reflect_C-40ListC-32C-36aC-41 (lambda (u--vars) (lambda (arg-3854) (lambda (arg-3855) (lambda (u--onLHS) (lambda (arg-3856) (lambda (arg-3858) (lambda (eta-0) (TTImpC-45Reflect-u--reflect_Reflect_ImpTy u--vars arg-3854 arg-3855 u--onLHS arg-3856 arg-3858 eta-0)))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-4 ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc5 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "MkData") (cons e-5 (cons e-6 (cons e-7 (cons e-8 (cons e-9 '()))))) ext-0)))))))))))))))))))))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((act-24 ((CoreC-45Reflect-u--reflect_Reflect_FC arg-0 arg-1 arg-2 arg-3 arg-4 e-5) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Reflect-u--reflect_Reflect_Name arg-0 arg-1 arg-2 arg-3 arg-4 e-6 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc2 1))) (let ((act-26 ((TTImpC-45Reflect-u--reflect_Reflect_RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-7) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc3 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "MkLater") (cons e-8 (cons e-9 (cons e-10 '()))) ext-0)))))))))))))))))))))))) -(define TTImpC-45Reflect-u--reflect_Reflect_ImpClause (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((act-24 ((CoreC-45Reflect-u--reflect_Reflect_FC arg-0 arg-1 arg-2 arg-3 arg-4 e-0) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((TTImpC-45Reflect-u--reflect_Reflect_RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-1) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((TTImpC-45Reflect-u--reflect_Reflect_RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-2) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "PatClause") (cons e-5 (cons e-6 (cons e-7 '()))) ext-0)))))))))))))))))))) ((1) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((e-6 (vector-ref sc0 4))) (let ((e-8 (vector-ref sc0 6))) (let ((act-24 ((CoreC-45Reflect-u--reflect_Reflect_FC arg-0 arg-1 arg-2 arg-3 arg-4 e-3) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc1 1))) (let ((act-25 ((TTImpC-45Reflect-u--reflect_Reflect_RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-4) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc2 1))) (let ((act-26 ((TTImpC-45Reflect-u--reflect_Reflect_RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-5) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc3 1))) (let ((act-27 (CoreC-45Reflect-u--reflect_Reflect_C-40MaybeC-32C-36aC-41 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (CoreC-45Reflect-u--reflect_Reflect_Name eta-0 eta-1 eta-2 eta-3 eta-4 eta-5 eta-6)))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-6 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc4 1))) (let ((act-28 (CoreC-45Reflect-u--reflect_Reflect_C-40ListC-32C-36aC-41 (lambda (u--vars) (lambda (arg-3854) (lambda (arg-3855) (lambda (u--onLHS) (lambda (arg-3856) (lambda (arg-3858) (lambda (eta-0) (TTImpC-45Reflect-u--reflect_Reflect_ImpClause u--vars arg-3854 arg-3855 u--onLHS arg-3856 arg-3858 eta-0)))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-8 ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref sc5 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "WithClause") (cons e-9 (cons e-10 (cons e-11 (cons e-12 (cons e-13 '()))))) ext-0)))))))))))))))))))))))))))))))) (else (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (let ((act-24 ((CoreC-45Reflect-u--reflect_Reflect_FC arg-0 arg-1 arg-2 arg-3 arg-4 e-9) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((TTImpC-45Reflect-u--reflect_Reflect_RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-10) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "ImpossibleClause") (cons e-5 (cons e-6 '())) ext-0)))))))))))))))))) -(define TTImpC-45Reflect-u--reflect_Reflect_IFieldUpdate (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((act-24 (CoreC-45Reflect-u--reflect_Reflect_C-40ListC-32C-36aC-41 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (CoreC-45Reflect-u--reflect_Reflect_String eta-0 eta-1 eta-2 eta-3 eta-4 eta-5 eta-6)))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-0 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((TTImpC-45Reflect-u--reflect_Reflect_RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-1) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "ISetField") (cons e-5 (cons e-6 '())) ext-0)))))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((act-24 (CoreC-45Reflect-u--reflect_Reflect_C-40ListC-32C-36aC-41 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (CoreC-45Reflect-u--reflect_Reflect_String eta-0 eta-1 eta-2 eta-3 eta-4 eta-5 eta-6)))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-2 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((TTImpC-45Reflect-u--reflect_Reflect_RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-3) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "ISetFieldApp") (cons e-5 (cons e-6 '())) ext-0)))))))))))))))))) -(define TTImpC-45Reflect-u--reflect_Reflect_IField (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((sc0 arg-5)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((act-24 ((CoreC-45Reflect-u--reflect_Reflect_FC arg-0 arg-1 arg-2 arg-3 arg-4 e-0) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((CoreC-45Reflect-u--reflect_Reflect_RigCount arg-0 arg-1 arg-2 arg-3 arg-4 e-1) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (CoreC-45Reflect-u--reflect_Reflect_C-40PiInfoC-32C-36tC-41 (lambda (u--vars) (lambda (arg-3854) (lambda (arg-3855) (lambda (u--onLHS) (lambda (arg-3856) (lambda (arg-3858) (TTImpC-45Reflect-u--reflect_Reflect_RawImp u--vars arg-3854 arg-3855 u--onLHS arg-3856 arg-3858))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-2 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (CoreC-45Reflect-u--reflect_Reflect_Name arg-0 arg-1 arg-2 arg-3 arg-4 e-3 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 ((TTImpC-45Reflect-u--reflect_Reflect_RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-4) ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc5 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "MkIField") (cons e-5 (cons e-6 (cons e-7 (cons e-8 (cons e-9 '()))))) ext-0)))))))))))))))))))))))))))))))))) -(define TTImpC-45Reflect-u--reflect_Reflect_FnOpt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (CoreC-45Reflect-getCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "Inline") ext-0)) ((1) (CoreC-45Reflect-getCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "TCInline") ext-0)) ((2) (let ((e-0 (vector-ref sc0 1))) (let ((act-24 (CoreC-45Reflect-u--reflect_Reflect_Bool arg-0 arg-1 arg-2 arg-3 arg-4 e-0 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "Hint") (cons e-5 '()) ext-0)))))))) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((act-24 (CoreC-45Reflect-u--reflect_Reflect_Bool arg-0 arg-1 arg-2 arg-3 arg-4 e-1 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "GlobalHint") (cons e-5 '()) ext-0)))))))) ((4) (CoreC-45Reflect-getCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "ExternFn") ext-0)) ((5) (let ((e-2 (vector-ref sc0 1))) (let ((act-24 (CoreC-45Reflect-u--reflect_Reflect_C-40ListC-32C-36aC-41 (lambda (u--vars) (lambda (arg-3854) (lambda (arg-3855) (lambda (u--onLHS) (lambda (arg-3856) (lambda (arg-3858) (TTImpC-45Reflect-u--reflect_Reflect_RawImp u--vars arg-3854 arg-3855 u--onLHS arg-3856 arg-3858))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-2 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "ForeignFn") (cons e-5 '()) ext-0)))))))) ((6) (CoreC-45Reflect-getCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "Invertible") ext-0)) ((7) (let ((e-3 (vector-ref sc0 1))) (let ((act-24 (CoreC-45Reflect-u--reflect_Reflect_TotalReq arg-0 arg-1 arg-2 arg-3 arg-4 e-3 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "Totality") (cons e-5 '()) ext-0)))))))) ((8) (CoreC-45Reflect-getCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "Macro") ext-0)) (else (let ((e-4 (vector-ref sc0 1))) (let ((act-24 (CoreC-45Reflect-u--reflect_Reflect_C-40ListC-32C-36aC-41 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (CoreC-45Reflect-u--reflect_Reflect_Name eta-0 eta-1 eta-2 eta-3 eta-4 eta-5 eta-6)))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-4 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "SpecArgs") (cons e-5 '()) ext-0)))))))))))) -(define TTImpC-45Reflect-u--reflect_Reflect_DotReason (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (CoreC-45Reflect-getCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "NonLinearVar") ext-0)) ((1) (CoreC-45Reflect-getCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "VarApplied") ext-0)) ((2) (CoreC-45Reflect-getCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "NotConstructor") ext-0)) ((3) (CoreC-45Reflect-getCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "ErasedArg") ext-0)) ((4) (CoreC-45Reflect-getCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "UserDotted") ext-0)) ((5) (CoreC-45Reflect-getCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "UnknownDot") ext-0)) (else (CoreC-45Reflect-getCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "UnderAppliedCon") ext-0)))))) -(define TTImpC-45Reflect-u--reflect_Reflect_DataOpt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((act-24 (CoreC-45Reflect-u--reflect_Reflect_C-40ListC-32C-36aC-41 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (CoreC-45Reflect-u--reflect_Reflect_Name eta-0 eta-1 eta-2 eta-3 eta-4 eta-5 eta-6)))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-0 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "SearchBy") (cons e-5 '()) ext-0)))))))) ((1) (CoreC-45Reflect-getCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "NoHints") ext-0)) ((2) (CoreC-45Reflect-getCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "UniqueSearch") ext-0)) ((3) (CoreC-45Reflect-getCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "External") ext-0)) (else (CoreC-45Reflect-getCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "NoNewtype") ext-0)))))) -(define TTImpC-45Reflect-u--reflect_Reflect_BindMode (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((act-24 ((CoreC-45Reflect-u--reflect_Reflect_RigCount arg-0 arg-1 arg-2 arg-3 arg-4 e-0) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "PI") (cons e-5 '()) ext-0)))))))) ((1) (CoreC-45Reflect-getCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "PATTERN") ext-0)) (else (CoreC-45Reflect-getCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "NONE") ext-0)))))) -(define TTImpC-45Reflect-u--reflect_Reflect_AltType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (CoreC-45Reflect-getCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "FirstSuccess") ext-0)) ((1) (CoreC-45Reflect-getCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "Unique") ext-0)) (else (let ((e-0 (vector-ref sc0 1))) (let ((act-24 ((TTImpC-45Reflect-u--reflect_Reflect_RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-0) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "UniqueDefault") (cons e-5 '()) ext-0)))))))))))) -(define CoreC-45Reflect-case--reify-10404 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (if (null? sc0) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "FC" eta-0)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 "MkFC") (let ((sc4 e-3)) (if (null? sc4) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "FC" eta-0)) (let ((e-8 (car sc4))) (let ((e-9 (cdr sc4))) (let ((sc5 e-8)) (if (null? sc5) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "FC" eta-0)) (let ((e-13 (cdr sc5))) (let ((sc6 e-9)) (if (null? sc6) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "FC" eta-0)) (let ((e-15 (car sc6))) (let ((e-16 (cdr sc6))) (let ((sc7 e-15)) (if (null? sc7) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "FC" eta-0)) (let ((e-20 (cdr sc7))) (let ((sc8 e-16)) (if (null? sc8) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "FC" eta-0)) (let ((e-22 (car sc8))) (let ((e-23 (cdr sc8))) (let ((sc9 e-22)) (if (null? sc9) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "FC" eta-0)) (let ((e-27 (cdr sc9))) (lambda (clam-0) (let ((sc10 e-23)) (if (null? sc10) (let ((act-24 (let ((act-24 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-13) clam-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-7 (vector-ref sc11 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc11 1))) ((CoreC-45Reflect-u--reify_Reify_String arg-8 arg-0 arg-7 e-7) clam-0)))))))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-7 (vector-ref sc11 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc11 1))) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-20) clam-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-10 (vector-ref sc12 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc12 1))) ((CoreC-45Reflect-u--reify_Reify_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (u--c) (lambda (u--vars) (lambda (arg-3831) (lambda (arg-3832) (CoreC-45Reflect-u--reify_Reify_Int u--c u--vars arg-3831 arg-3832))))) (lambda (u--c) (lambda (u--vars) (lambda (arg-3831) (lambda (arg-3832) (CoreC-45Reflect-u--reify_Reify_Int u--c u--vars arg-3831 arg-3832)))))) arg-8 arg-0 arg-7 e-10) clam-0)))))))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-10 (vector-ref sc12 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc12 1))) (let ((act-26 (let ((act-26 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-27) clam-0))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-11 (vector-ref sc13 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc13 1))) ((CoreC-45Reflect-u--reify_Reify_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (u--c) (lambda (u--vars) (lambda (arg-3831) (lambda (arg-3832) (CoreC-45Reflect-u--reify_Reify_Int u--c u--vars arg-3831 arg-3832))))) (lambda (u--c) (lambda (u--vars) (lambda (arg-3831) (lambda (arg-3832) (CoreC-45Reflect-u--reify_Reify_Int u--c u--vars arg-3831 arg-3832)))))) arg-8 arg-0 arg-7 e-11) clam-0)))))))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-11 (vector-ref sc13 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc13 1))) (vector 1 (vector 0 e-7 e-10 e-11))))))))))))))))) (CoreC-45Reflect-cantReify arg-6 "FC" clam-0)))))))))))))))))))))))))) ((equal? sc3 "EmptyFC") (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "FC" eta-0)))))))(else (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "FC" eta-0)))))))(else (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "FC" eta-0))))))))))) -(define CoreC-45Reflect-case--reify-9809 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (if (null? sc0) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-8 "PiInfo" eta-0)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 "ImplicitArg") (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc3 "ExplicitArg") (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc3 "AutoImplicit") (lambda (eta-0) (vector 1 (vector 2 )))) ((equal? sc3 "DefImplicit") (let ((sc4 e-3)) (if (null? sc4) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-8 "PiInfo" eta-0)) (let ((e-9 (cdr sc4))) (let ((sc5 e-9)) (if (null? sc5) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-8 "PiInfo" eta-0)) (let ((e-11 (car sc5))) (let ((e-12 (cdr sc5))) (let ((sc6 e-11)) (if (null? sc6) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-8 "PiInfo" eta-0)) (let ((e-16 (cdr sc6))) (lambda (clam-0) (let ((sc7 e-12)) (if (null? sc7) (let ((act-24 (let ((act-24 ((CoreC-45Normalise-evalClosure arg-10 arg-2 arg-9 e-16) clam-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (((((arg-1 arg-10) arg-2) arg-9) e-7) clam-0)))))))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (vector 1 (vector 3 e-7))))))) (CoreC-45Reflect-cantReify arg-8 "PiInfo" clam-0)))))))))))))))(else (lambda (eta-0) (CoreC-45Reflect-cantReify arg-8 "PiInfo" eta-0)))))))(else (lambda (eta-0) (CoreC-45Reflect-cantReify arg-8 "PiInfo" eta-0)))))))(else (lambda (eta-0) (CoreC-45Reflect-cantReify arg-8 "PiInfo" eta-0))))))))))) -(define CoreC-45Reflect-case--reify-7424 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (if (null? sc0) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "Constant" eta-0)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 "I") (let ((sc4 e-3)) (if (null? sc4) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "Constant" eta-0)) (let ((e-8 (car sc4))) (let ((e-9 (cdr sc4))) (let ((sc5 e-8)) (if (null? sc5) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "Constant" eta-0)) (let ((e-13 (cdr sc5))) (lambda (clam-0) (let ((sc6 e-9)) (if (null? sc6) (let ((act-24 (let ((act-24 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-13) clam-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) ((CoreC-45Reflect-u--reify_Reify_Int arg-8 arg-0 arg-7 e-7) clam-0)))))))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (vector 1 (vector 0 e-7))))))) (CoreC-45Reflect-cantReify arg-6 "Constant" clam-0)))))))))))) ((equal? sc3 "I8") (let ((sc4 e-3)) (if (null? sc4) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "Constant" eta-0)) (let ((e-16 (car sc4))) (let ((e-17 (cdr sc4))) (let ((sc5 e-16)) (if (null? sc5) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "Constant" eta-0)) (let ((e-21 (cdr sc5))) (lambda (clam-1) (let ((sc6 e-17)) (if (null? sc6) (let ((act-24 (let ((act-24 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-21) clam-1))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) ((CoreC-45Reflect-u--reify_Reify_Integer arg-8 arg-0 arg-7 e-7) clam-1)))))))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (vector 1 (vector 1 e-7))))))) (CoreC-45Reflect-cantReify arg-6 "Constant" clam-1)))))))))))) ((equal? sc3 "I16") (let ((sc4 e-3)) (if (null? sc4) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "Constant" eta-0)) (let ((e-24 (car sc4))) (let ((e-25 (cdr sc4))) (let ((sc5 e-24)) (if (null? sc5) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "Constant" eta-0)) (let ((e-29 (cdr sc5))) (lambda (clam-2) (let ((sc6 e-25)) (if (null? sc6) (let ((act-24 (let ((act-24 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-29) clam-2))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) ((CoreC-45Reflect-u--reify_Reify_Integer arg-8 arg-0 arg-7 e-7) clam-2)))))))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (vector 1 (vector 2 e-7))))))) (CoreC-45Reflect-cantReify arg-6 "Constant" clam-2)))))))))))) ((equal? sc3 "I32") (let ((sc4 e-3)) (if (null? sc4) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "Constant" eta-0)) (let ((e-32 (car sc4))) (let ((e-33 (cdr sc4))) (let ((sc5 e-32)) (if (null? sc5) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "Constant" eta-0)) (let ((e-37 (cdr sc5))) (lambda (clam-3) (let ((sc6 e-33)) (if (null? sc6) (let ((act-24 (let ((act-24 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-37) clam-3))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) ((CoreC-45Reflect-u--reify_Reify_Integer arg-8 arg-0 arg-7 e-7) clam-3)))))))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (vector 1 (vector 3 e-7))))))) (CoreC-45Reflect-cantReify arg-6 "Constant" clam-3)))))))))))) ((equal? sc3 "I64") (let ((sc4 e-3)) (if (null? sc4) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "Constant" eta-0)) (let ((e-40 (car sc4))) (let ((e-41 (cdr sc4))) (let ((sc5 e-40)) (if (null? sc5) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "Constant" eta-0)) (let ((e-45 (cdr sc5))) (lambda (clam-4) (let ((sc6 e-41)) (if (null? sc6) (let ((act-24 (let ((act-24 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-45) clam-4))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) ((CoreC-45Reflect-u--reify_Reify_Integer arg-8 arg-0 arg-7 e-7) clam-4)))))))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (vector 1 (vector 4 e-7))))))) (CoreC-45Reflect-cantReify arg-6 "Constant" clam-4)))))))))))) ((equal? sc3 "BI") (let ((sc4 e-3)) (if (null? sc4) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "Constant" eta-0)) (let ((e-48 (car sc4))) (let ((e-49 (cdr sc4))) (let ((sc5 e-48)) (if (null? sc5) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "Constant" eta-0)) (let ((e-53 (cdr sc5))) (lambda (clam-5) (let ((sc6 e-49)) (if (null? sc6) (let ((act-24 (let ((act-24 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-53) clam-5))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) ((CoreC-45Reflect-u--reify_Reify_Integer arg-8 arg-0 arg-7 e-7) clam-5)))))))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (vector 1 (vector 5 e-7))))))) (CoreC-45Reflect-cantReify arg-6 "Constant" clam-5)))))))))))) ((equal? sc3 "B8") (let ((sc4 e-3)) (if (null? sc4) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "Constant" eta-0)) (let ((e-56 (car sc4))) (let ((e-57 (cdr sc4))) (let ((sc5 e-56)) (if (null? sc5) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "Constant" eta-0)) (let ((e-61 (cdr sc5))) (lambda (clam-6) (let ((sc6 e-57)) (if (null? sc6) (let ((act-24 (let ((act-24 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-61) clam-6))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) ((CoreC-45Reflect-u--reify_Reify_Int arg-8 arg-0 arg-7 e-7) clam-6)))))))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (vector 1 (vector 6 e-7))))))) (CoreC-45Reflect-cantReify arg-6 "Constant" clam-6)))))))))))) ((equal? sc3 "B16") (let ((sc4 e-3)) (if (null? sc4) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "Constant" eta-0)) (let ((e-64 (car sc4))) (let ((e-65 (cdr sc4))) (let ((sc5 e-64)) (if (null? sc5) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "Constant" eta-0)) (let ((e-69 (cdr sc5))) (lambda (clam-7) (let ((sc6 e-65)) (if (null? sc6) (let ((act-24 (let ((act-24 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-69) clam-7))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) ((CoreC-45Reflect-u--reify_Reify_Int arg-8 arg-0 arg-7 e-7) clam-7)))))))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (vector 1 (vector 7 e-7))))))) (CoreC-45Reflect-cantReify arg-6 "Constant" clam-7)))))))))))) ((equal? sc3 "B32") (let ((sc4 e-3)) (if (null? sc4) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "Constant" eta-0)) (let ((e-72 (car sc4))) (let ((e-73 (cdr sc4))) (let ((sc5 e-72)) (if (null? sc5) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "Constant" eta-0)) (let ((e-77 (cdr sc5))) (lambda (clam-8) (let ((sc6 e-73)) (if (null? sc6) (let ((act-24 (let ((act-24 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-77) clam-8))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) ((CoreC-45Reflect-u--reify_Reify_Int arg-8 arg-0 arg-7 e-7) clam-8)))))))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (vector 1 (vector 8 e-7))))))) (CoreC-45Reflect-cantReify arg-6 "Constant" clam-8)))))))))))) ((equal? sc3 "B64") (let ((sc4 e-3)) (if (null? sc4) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "Constant" eta-0)) (let ((e-80 (car sc4))) (let ((e-81 (cdr sc4))) (let ((sc5 e-80)) (if (null? sc5) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "Constant" eta-0)) (let ((e-85 (cdr sc5))) (lambda (clam-9) (let ((sc6 e-81)) (if (null? sc6) (let ((act-24 (let ((act-24 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-85) clam-9))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) ((CoreC-45Reflect-u--reify_Reify_Integer arg-8 arg-0 arg-7 e-7) clam-9)))))))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (vector 1 (vector 9 e-7))))))) (CoreC-45Reflect-cantReify arg-6 "Constant" clam-9)))))))))))) ((equal? sc3 "Str") (let ((sc4 e-3)) (if (null? sc4) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "Constant" eta-0)) (let ((e-88 (car sc4))) (let ((e-89 (cdr sc4))) (let ((sc5 e-88)) (if (null? sc5) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "Constant" eta-0)) (let ((e-93 (cdr sc5))) (lambda (clam-10) (let ((sc6 e-89)) (if (null? sc6) (let ((act-24 (let ((act-24 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-93) clam-10))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) ((CoreC-45Reflect-u--reify_Reify_String arg-8 arg-0 arg-7 e-7) clam-10)))))))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (vector 1 (vector 10 e-7))))))) (CoreC-45Reflect-cantReify arg-6 "Constant" clam-10)))))))))))) ((equal? sc3 "Ch") (let ((sc4 e-3)) (if (null? sc4) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "Constant" eta-0)) (let ((e-96 (car sc4))) (let ((e-97 (cdr sc4))) (let ((sc5 e-96)) (if (null? sc5) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "Constant" eta-0)) (let ((e-101 (cdr sc5))) (lambda (clam-11) (let ((sc6 e-97)) (if (null? sc6) (let ((act-24 (let ((act-24 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-101) clam-11))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) ((CoreC-45Reflect-u--reify_Reify_Char arg-8 arg-0 arg-7 e-7) clam-11)))))))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (vector 1 (vector 11 e-7))))))) (CoreC-45Reflect-cantReify arg-6 "Constant" clam-11)))))))))))) ((equal? sc3 "Db") (let ((sc4 e-3)) (if (null? sc4) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "Constant" eta-0)) (let ((e-104 (car sc4))) (let ((e-105 (cdr sc4))) (let ((sc5 e-104)) (if (null? sc5) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "Constant" eta-0)) (let ((e-109 (cdr sc5))) (lambda (clam-12) (let ((sc6 e-105)) (if (null? sc6) (let ((act-24 (let ((act-24 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-109) clam-12))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) ((CoreC-45Reflect-u--reify_Reify_Double arg-8 arg-0 arg-7 e-7) clam-12)))))))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (vector 1 (vector 12 e-7))))))) (CoreC-45Reflect-cantReify arg-6 "Constant" clam-12)))))))))))) ((equal? sc3 "WorldVal") (lambda (clam-13) (let ((sc4 e-3)) (if (null? sc4) (vector 1 (vector 13 )) (CoreC-45Reflect-cantReify arg-6 "Constant" clam-13))))) ((equal? sc3 "IntType") (lambda (clam-14) (let ((sc4 e-3)) (if (null? sc4) (vector 1 (vector 14 )) (CoreC-45Reflect-cantReify arg-6 "Constant" clam-14))))) ((equal? sc3 "Int8Type") (lambda (clam-15) (let ((sc4 e-3)) (if (null? sc4) (vector 1 (vector 15 )) (CoreC-45Reflect-cantReify arg-6 "Constant" clam-15))))) ((equal? sc3 "Int16Type") (lambda (clam-16) (let ((sc4 e-3)) (if (null? sc4) (vector 1 (vector 16 )) (CoreC-45Reflect-cantReify arg-6 "Constant" clam-16))))) ((equal? sc3 "Int32Type") (lambda (clam-17) (let ((sc4 e-3)) (if (null? sc4) (vector 1 (vector 17 )) (CoreC-45Reflect-cantReify arg-6 "Constant" clam-17))))) ((equal? sc3 "Int64Type") (lambda (clam-18) (let ((sc4 e-3)) (if (null? sc4) (vector 1 (vector 18 )) (CoreC-45Reflect-cantReify arg-6 "Constant" clam-18))))) ((equal? sc3 "IntegerType") (lambda (clam-19) (let ((sc4 e-3)) (if (null? sc4) (vector 1 (vector 19 )) (CoreC-45Reflect-cantReify arg-6 "Constant" clam-19))))) ((equal? sc3 "Bits8Type") (lambda (clam-20) (let ((sc4 e-3)) (if (null? sc4) (vector 1 (vector 20 )) (CoreC-45Reflect-cantReify arg-6 "Constant" clam-20))))) ((equal? sc3 "Bits16Type") (lambda (clam-21) (let ((sc4 e-3)) (if (null? sc4) (vector 1 (vector 21 )) (CoreC-45Reflect-cantReify arg-6 "Constant" clam-21))))) ((equal? sc3 "Bits32Type") (lambda (clam-22) (let ((sc4 e-3)) (if (null? sc4) (vector 1 (vector 22 )) (CoreC-45Reflect-cantReify arg-6 "Constant" clam-22))))) ((equal? sc3 "Bits64Type") (lambda (clam-23) (let ((sc4 e-3)) (if (null? sc4) (vector 1 (vector 23 )) (CoreC-45Reflect-cantReify arg-6 "Constant" clam-23))))) ((equal? sc3 "StringType") (lambda (clam-24) (let ((sc4 e-3)) (if (null? sc4) (vector 1 (vector 24 )) (CoreC-45Reflect-cantReify arg-6 "Constant" clam-24))))) ((equal? sc3 "CharType") (lambda (clam-25) (let ((sc4 e-3)) (if (null? sc4) (vector 1 (vector 25 )) (CoreC-45Reflect-cantReify arg-6 "Constant" clam-25))))) ((equal? sc3 "DoubleType") (lambda (clam-26) (let ((sc4 e-3)) (if (null? sc4) (vector 1 (vector 26 )) (CoreC-45Reflect-cantReify arg-6 "Constant" clam-26))))) ((equal? sc3 "WorldType") (lambda (clam-27) (let ((sc4 e-3)) (if (null? sc4) (vector 1 (vector 27 )) (CoreC-45Reflect-cantReify arg-6 "Constant" clam-27)))))(else (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "Constant" eta-0)))))))(else (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "Constant" eta-0)))))))(else (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "Constant" eta-0))))))))))) -(define CoreC-45Reflect-case--reify-6323 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (if (null? sc0) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "Name" eta-0)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 "UN") (let ((sc4 e-3)) (if (null? sc4) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "Name" eta-0)) (let ((e-8 (car sc4))) (let ((e-9 (cdr sc4))) (let ((sc5 e-8)) (if (null? sc5) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "Name" eta-0)) (let ((e-13 (cdr sc5))) (lambda (clam-0) (let ((sc6 e-9)) (if (null? sc6) (let ((act-24 (let ((act-24 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-13) clam-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) ((CoreC-45Reflect-u--reify_Reify_String arg-8 arg-0 arg-7 e-7) clam-0)))))))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (vector 1 (vector 1 e-7))))))) (CoreC-45Reflect-cantReify arg-6 "Name" clam-0)))))))))))) ((equal? sc3 "MN") (let ((sc4 e-3)) (if (null? sc4) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "Name" eta-0)) (let ((e-16 (car sc4))) (let ((e-17 (cdr sc4))) (let ((sc5 e-16)) (if (null? sc5) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "Name" eta-0)) (let ((e-21 (cdr sc5))) (let ((sc6 e-17)) (if (null? sc6) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "Name" eta-0)) (let ((e-23 (car sc6))) (let ((e-24 (cdr sc6))) (let ((sc7 e-23)) (if (null? sc7) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "Name" eta-0)) (let ((e-28 (cdr sc7))) (lambda (clam-1) (let ((sc8 e-24)) (if (null? sc8) (let ((act-24 (let ((act-24 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-21) clam-1))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-7 (vector-ref sc9 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc9 1))) ((CoreC-45Reflect-u--reify_Reify_String arg-8 arg-0 arg-7 e-7) clam-1)))))))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-7 (vector-ref sc9 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc9 1))) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-28) clam-1))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-8 (vector-ref sc10 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc10 1))) ((CoreC-45Reflect-u--reify_Reify_Int arg-8 arg-0 arg-7 e-8) clam-1)))))))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-8 (vector-ref sc10 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc10 1))) (vector 1 (vector 2 e-7 e-8)))))))))))) (CoreC-45Reflect-cantReify arg-6 "Name" clam-1))))))))))))))))))) ((equal? sc3 "NS") (let ((sc4 e-3)) (if (null? sc4) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "Name" eta-0)) (let ((e-31 (car sc4))) (let ((e-32 (cdr sc4))) (let ((sc5 e-31)) (if (null? sc5) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "Name" eta-0)) (let ((e-36 (cdr sc5))) (let ((sc6 e-32)) (if (null? sc6) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "Name" eta-0)) (let ((e-38 (car sc6))) (let ((e-39 (cdr sc6))) (let ((sc7 e-38)) (if (null? sc7) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "Name" eta-0)) (let ((e-43 (cdr sc7))) (lambda (clam-2) (let ((sc8 e-39)) (if (null? sc8) (let ((act-24 (let ((act-24 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-36) clam-2))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-7 (vector-ref sc9 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc9 1))) ((CoreC-45Reflect-u--reify_Reify_Namespace arg-8 arg-0 arg-7 e-7) clam-2)))))))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-7 (vector-ref sc9 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc9 1))) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-43) clam-2))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-8 (vector-ref sc10 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc10 1))) (CoreC-45Reflect-u--reify_Reify_Name arg-8 arg-0 arg-7 e-8 clam-2)))))))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-8 (vector-ref sc10 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc10 1))) (vector 1 (vector 0 e-7 e-8)))))))))))) (CoreC-45Reflect-cantReify arg-6 "Name" clam-2))))))))))))))))))) ((equal? sc3 "DN") (let ((sc4 e-3)) (if (null? sc4) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "Name" eta-0)) (let ((e-46 (car sc4))) (let ((e-47 (cdr sc4))) (let ((sc5 e-46)) (if (null? sc5) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "Name" eta-0)) (let ((e-51 (cdr sc5))) (let ((sc6 e-47)) (if (null? sc6) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "Name" eta-0)) (let ((e-53 (car sc6))) (let ((e-54 (cdr sc6))) (let ((sc7 e-53)) (if (null? sc7) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "Name" eta-0)) (let ((e-58 (cdr sc7))) (lambda (clam-3) (let ((sc8 e-54)) (if (null? sc8) (let ((act-24 (let ((act-24 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-51) clam-3))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-7 (vector-ref sc9 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc9 1))) ((CoreC-45Reflect-u--reify_Reify_String arg-8 arg-0 arg-7 e-7) clam-3)))))))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-7 (vector-ref sc9 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc9 1))) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-58) clam-3))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-8 (vector-ref sc10 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc10 1))) (CoreC-45Reflect-u--reify_Reify_Name arg-8 arg-0 arg-7 e-8 clam-3)))))))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-8 (vector-ref sc10 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc10 1))) (vector 1 (vector 4 e-7 e-8)))))))))))) (CoreC-45Reflect-cantReify arg-6 "Name" clam-3))))))))))))))))))) ((equal? sc3 "RF") (let ((sc4 e-3)) (if (null? sc4) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "Name" eta-0)) (let ((e-61 (car sc4))) (let ((e-62 (cdr sc4))) (let ((sc5 e-61)) (if (null? sc5) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "Name" eta-0)) (let ((e-66 (cdr sc5))) (lambda (clam-4) (let ((sc6 e-62)) (if (null? sc6) (let ((act-24 (let ((act-24 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-66) clam-4))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) ((CoreC-45Reflect-u--reify_Reify_String arg-8 arg-0 arg-7 e-7) clam-4)))))))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (vector 1 (vector 5 e-7))))))) (CoreC-45Reflect-cantReify arg-6 "Name" clam-4))))))))))))(else (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "Name" eta-0)))))))(else (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "Name" eta-0)))))))(else (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "Name" eta-0))))))))))) -(define CoreC-45Reflect-case--reify-5561 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (if (null? sc0) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-8 "Maybe" eta-0)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 "Nothing") (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc3 "Just") (let ((sc4 e-3)) (if (null? sc4) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-8 "Maybe" eta-0)) (let ((e-9 (cdr sc4))) (let ((sc5 e-9)) (if (null? sc5) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-8 "Maybe" eta-0)) (let ((e-11 (car sc5))) (let ((e-12 (cdr sc5))) (let ((sc6 e-11)) (if (null? sc6) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-8 "Maybe" eta-0)) (let ((e-16 (cdr sc6))) (lambda (clam-0) (let ((sc7 e-12)) (if (null? sc7) (let ((act-24 (let ((act-24 ((CoreC-45Normalise-evalClosure arg-10 arg-2 arg-9 e-16) clam-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (((((arg-1 arg-10) arg-2) arg-9) e-7) clam-0)))))))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (vector 1 (vector 1 e-7))))))) (CoreC-45Reflect-cantReify arg-8 "Maybe" clam-0)))))))))))))))(else (lambda (eta-0) (CoreC-45Reflect-cantReify arg-8 "Maybe" eta-0)))))))(else (lambda (eta-0) (CoreC-45Reflect-cantReify arg-8 "Maybe" eta-0)))))))(else (lambda (eta-0) (CoreC-45Reflect-cantReify arg-8 "Maybe" eta-0))))))))))) -(define CoreC-45Reflect-case--reify-4955 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (if (null? sc0) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-8 "List" eta-0)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 "Nil") (lambda (eta-0) (vector 1 '()))) ((equal? sc3 "::") (let ((sc4 e-3)) (if (null? sc4) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-8 "List" eta-0)) (let ((e-9 (cdr sc4))) (let ((sc5 e-9)) (if (null? sc5) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-8 "List" eta-0)) (let ((e-11 (car sc5))) (let ((e-12 (cdr sc5))) (let ((sc6 e-11)) (if (null? sc6) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-8 "List" eta-0)) (let ((e-16 (cdr sc6))) (let ((sc7 e-12)) (if (null? sc7) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-8 "List" eta-0)) (let ((e-18 (car sc7))) (let ((e-19 (cdr sc7))) (let ((sc8 e-18)) (if (null? sc8) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-8 "List" eta-0)) (let ((e-23 (cdr sc8))) (lambda (clam-0) (let ((sc9 e-19)) (if (null? sc9) (let ((act-24 (let ((act-24 ((CoreC-45Normalise-evalClosure arg-10 arg-2 arg-9 e-16) clam-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-7 (vector-ref sc10 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc10 1))) (((((arg-1 arg-10) arg-2) arg-9) e-7) clam-0)))))))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-7 (vector-ref sc10 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc10 1))) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-10 arg-2 arg-9 e-23) clam-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-10 (vector-ref sc11 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc11 1))) (CoreC-45Reflect-u--reify_Reify_C-40ListC-32C-36aC-41 arg-1 arg-10 arg-2 arg-9 e-10 clam-0)))))))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-10 (vector-ref sc11 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc11 1))) (vector 1 (cons e-7 e-10)))))))))))) (CoreC-45Reflect-cantReify arg-8 "List" clam-0))))))))))))))))))))))(else (lambda (eta-0) (CoreC-45Reflect-cantReify arg-8 "List" eta-0)))))))(else (lambda (eta-0) (CoreC-45Reflect-cantReify arg-8 "List" eta-0)))))))(else (lambda (eta-0) (CoreC-45Reflect-cantReify arg-8 "List" eta-0))))))))))) -(define CoreC-45Reflect-case--reify-4708 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (if (null? sc0) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "Nat" eta-0)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 "Z") (lambda (eta-0) (vector 1 0))) ((equal? sc3 "S") (let ((sc4 e-3)) (if (null? sc4) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "Nat" eta-0)) (let ((e-8 (car sc4))) (let ((e-9 (cdr sc4))) (let ((sc5 e-8)) (if (null? sc5) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "Nat" eta-0)) (let ((e-13 (cdr sc5))) (lambda (clam-0) (let ((sc6 e-9)) (if (null? sc6) (let ((act-24 (let ((act-24 ((CoreC-45Normalise-evalClosure arg-8 arg-0 arg-7 e-13) clam-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (CoreC-45Reflect-u--reify_Reify_Nat arg-8 arg-0 arg-7 e-7 clam-0)))))))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (vector 1 (+ 1 e-7))))))) (CoreC-45Reflect-cantReify arg-6 "Nat" clam-0))))))))))))(else (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "Nat" eta-0)))))))(else (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "Nat" eta-0)))))))(else (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "Nat" eta-0))))))))))) -(define CoreC-45Reflect-u--reify_Reify_Visibility (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((act-24 (CoreC-45Context-u--full_HasNames_Name (let ((sc1 arg-2)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((u--val (vector 2 e-1 e-2 e-3 e-4 e-5))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 2))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((1) (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (cond ((equal? sc4 "Private") (vector 1 (vector 0 ))) ((equal? sc4 "Export") (vector 1 (vector 1 ))) ((equal? sc4 "Public") (vector 1 (vector 2 )))(else (CoreC-45Reflect-cantReify u--val "Visibility" ext-0))))))(else (CoreC-45Reflect-cantReify u--val "Visibility" ext-0))))))(else (CoreC-45Reflect-cantReify u--val "Visibility" ext-0))))))))))))))))(else (CoreC-45Reflect-cantReify arg-3 "Visibility" ext-0)))))) -(define CoreC-45Reflect-u--reify_Reify_TotalReq (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((act-24 (CoreC-45Context-u--full_HasNames_Name (let ((sc1 arg-2)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((u--val (vector 2 e-1 e-2 e-3 e-4 e-5))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 2))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((1) (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (cond ((equal? sc4 "Total") (vector 1 (vector 0 ))) ((equal? sc4 "CoveringOnly") (vector 1 (vector 1 ))) ((equal? sc4 "PartialOK") (vector 1 (vector 2 )))(else (CoreC-45Reflect-cantReify u--val "TotalReq" ext-0))))))(else (CoreC-45Reflect-cantReify u--val "TotalReq" ext-0))))))(else (CoreC-45Reflect-cantReify u--val "TotalReq" ext-0))))))))))))))))(else (CoreC-45Reflect-cantReify arg-3 "TotalReq" ext-0)))))) -(define CoreC-45Reflect-u--reify_Reify_String (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((8) (let ((e-2 (vector-ref sc0 2))) (lambda (clam-0) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((10) (let ((e-3 (vector-ref sc1 1))) (vector 1 e-3)))(else (CoreC-45Reflect-cantReify arg-3 "String" clam-0)))))))(else (lambda (eta-0) (CoreC-45Reflect-cantReify arg-3 "String" eta-0))))))) -(define CoreC-45Reflect-u--reify_Reify_RigCount (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((act-24 (CoreC-45Context-u--full_HasNames_Name (let ((sc1 arg-2)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((u--val (vector 2 e-1 e-2 e-3 e-4 e-5))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 2))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((1) (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (cond ((equal? sc4 "M0") (vector 1 (AlgebraC-45Semiring-erased (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))))) ((equal? sc4 "M1") (vector 1 (AlgebraC-45Semiring-linear (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))))) ((equal? sc4 "MW") (vector 1 (AlgebraC-45ZeroOneOmega-u--top_Top_ZeroOneOmega)))(else (CoreC-45Reflect-cantReify u--val "Count" ext-0))))))(else (CoreC-45Reflect-cantReify u--val "Count" ext-0))))))(else (CoreC-45Reflect-cantReify u--val "Count" ext-0))))))))))))))))(else (CoreC-45Reflect-cantReify arg-3 "Count" ext-0)))))) -(define CoreC-45Reflect-u--reify_Reify_Nat (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((act-24 (CoreC-45Context-u--full_HasNames_Name (let ((sc1 arg-2)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((u--val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((CoreC-45Reflect-case--reify-4708 arg-1 e-1 e-3 e-4 e-5 e-2 u--val arg-2 arg-0 e-6 (cons e-6 e-5)) ext-0)))))))))))))(else (CoreC-45Reflect-cantReify arg-3 "Nat" ext-0)))))) -(define CoreC-45Reflect-u--reify_Reify_Namespace (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((sc1 e-5)) (if (null? sc1) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-3 "Namespace" eta-0)) (let ((e-7 (car sc1))) (let ((e-8 (cdr sc1))) (let ((sc2 e-7)) (if (null? sc2) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-3 "Namespace" eta-0)) (let ((e-11 (car sc2))) (let ((e-12 (cdr sc2))) (lambda (clam-0) (let ((sc3 e-8)) (if (null? sc3) (let ((act-24 (CoreC-45Context-u--full_HasNames_Name (let ((sc4 arg-2)) (let ((e-0 (vector-ref sc4 1))) e-0)) e-2 clam-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((u--val (vector 2 e-1 e-2 e-3 e-4 (cons (cons e-11 e-12) '())))) (let ((sc5 e-6)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 2))) (let ((sc6 e-9)) (case (vector-ref sc6 0) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((sc7 e-10)) (cond ((equal? sc7 "MkNS") (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-12) clam-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc8 1))) (CoreC-45Reflect-u--reify_Reify_C-40ListC-32C-36aC-41 (lambda (u--c) (lambda (u--vars) (lambda (arg-3831) (lambda (arg-3832) (CoreC-45Reflect-u--reify_Reify_String u--c u--vars arg-3831 arg-3832))))) arg-0 arg-1 arg-2 e-13 clam-0)))))))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc8 1))) (vector 1 (CoreC-45NameC-45Namespace-unsafeFoldNamespace e-13))))))))(else (CoreC-45Reflect-cantReify u--val "Namespace" clam-0))))))(else (CoreC-45Reflect-cantReify u--val "Namespace" clam-0))))))(else (CoreC-45Reflect-cantReify u--val "Namespace" clam-0)))))))))) (CoreC-45Reflect-cantReify arg-3 "Namespace" clam-0))))))))))))))))))(else (lambda (eta-0) (CoreC-45Reflect-cantReify arg-3 "Namespace" eta-0))))))) -(define CoreC-45Reflect-u--reify_Reify_Name (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((act-24 (CoreC-45Context-u--full_HasNames_Name (let ((sc1 arg-2)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((u--val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((CoreC-45Reflect-case--reify-6323 arg-1 e-1 e-3 e-4 e-5 e-2 u--val arg-2 arg-0 e-6 (cons e-6 e-5)) ext-0)))))))))))))(else (CoreC-45Reflect-cantReify arg-3 "Name" ext-0)))))) -(define CoreC-45Reflect-u--reify_Reify_LazyReason (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((act-24 (CoreC-45Context-u--full_HasNames_Name (let ((sc1 arg-2)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((u--val (vector 2 e-1 e-2 e-3 e-4 e-5))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 2))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((1) (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (cond ((equal? sc4 "LInf") (vector 1 (vector 0 ))) ((equal? sc4 "LLazy") (vector 1 (vector 1 ))) ((equal? sc4 "LUnknown") (vector 1 (vector 2 )))(else (CoreC-45Reflect-cantReify u--val "LazyReason" ext-0))))))(else (CoreC-45Reflect-cantReify u--val "LazyReason" ext-0))))))(else (CoreC-45Reflect-cantReify u--val "LazyReason" ext-0))))))))))))))))(else (CoreC-45Reflect-cantReify arg-3 "LazyReason" ext-0)))))) -(define CoreC-45Reflect-u--reify_Reify_Integer (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((8) (let ((e-2 (vector-ref sc0 2))) (lambda (clam-0) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((5) (let ((e-3 (vector-ref sc1 1))) (vector 1 e-3)))(else (CoreC-45Reflect-cantReify arg-3 "Integer" clam-0)))))))(else (lambda (eta-0) (CoreC-45Reflect-cantReify arg-3 "Integer" eta-0))))))) -(define CoreC-45Reflect-u--reify_Reify_Int (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((8) (let ((e-2 (vector-ref sc0 2))) (lambda (clam-0) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 1 e-3)))(else (CoreC-45Reflect-cantReify arg-3 "Int" clam-0)))))))(else (lambda (eta-0) (CoreC-45Reflect-cantReify arg-3 "Int" eta-0))))))) -(define CoreC-45Reflect-u--reify_Reify_FC (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((act-24 (CoreC-45Context-u--full_HasNames_Name (let ((sc1 arg-2)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((u--val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((CoreC-45Reflect-case--reify-10404 arg-1 e-1 e-3 e-4 e-5 e-2 u--val arg-2 arg-0 e-6 (cons e-6 e-5)) ext-0)))))))))))))(else (CoreC-45Reflect-cantReify arg-3 "FC" ext-0)))))) -(define CoreC-45Reflect-u--reify_Reify_Double (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((8) (let ((e-2 (vector-ref sc0 2))) (lambda (clam-0) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((12) (let ((e-3 (vector-ref sc1 1))) (vector 1 e-3)))(else (CoreC-45Reflect-cantReify arg-3 "Double" clam-0)))))))(else (lambda (eta-0) (CoreC-45Reflect-cantReify arg-3 "Double" eta-0))))))) -(define CoreC-45Reflect-u--reify_Reify_Constant (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((act-24 (CoreC-45Context-u--full_HasNames_Name (let ((sc1 arg-2)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((u--val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((CoreC-45Reflect-case--reify-7424 arg-1 e-1 e-3 e-4 e-5 e-2 u--val arg-2 arg-0 e-6 (cons e-6 e-5)) ext-0)))))))))))))(else (CoreC-45Reflect-cantReify arg-3 "Constant" ext-0)))))) -(define CoreC-45Reflect-u--reify_Reify_Char (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((8) (let ((e-2 (vector-ref sc0 2))) (lambda (clam-0) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((11) (let ((e-3 (vector-ref sc1 1))) (vector 1 e-3)))(else (CoreC-45Reflect-cantReify arg-3 "Char" clam-0)))))))(else (lambda (eta-0) (CoreC-45Reflect-cantReify arg-3 "Char" eta-0))))))) -(define CoreC-45Reflect-u--reify_Reify_Bool (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((act-24 (CoreC-45Context-u--full_HasNames_Name (let ((sc1 arg-2)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((u--val (vector 2 e-1 e-2 e-3 e-4 e-5))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 2))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((1) (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (cond ((equal? sc4 "True") (vector 1 0)) ((equal? sc4 "False") (vector 1 1))(else (CoreC-45Reflect-cantReify u--val "Bool" ext-0))))))(else (CoreC-45Reflect-cantReify u--val "Bool" ext-0))))))(else (CoreC-45Reflect-cantReify u--val "Bool" ext-0))))))))))))))))(else (CoreC-45Reflect-cantReify arg-3 "Bool" ext-0)))))) -(define CoreC-45Reflect-u--reify_Reify_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (lambda (arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((sc1 e-5)) (if (null? sc1) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "Pair" eta-0)) (let ((e-7 (car sc1))) (let ((e-8 (cdr sc1))) (let ((sc2 e-8)) (if (null? sc2) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "Pair" eta-0)) (let ((e-10 (car sc2))) (let ((e-11 (cdr sc2))) (let ((sc3 e-11)) (if (null? sc3) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "Pair" eta-0)) (let ((e-13 (car sc3))) (let ((e-14 (cdr sc3))) (let ((sc4 e-13)) (if (null? sc4) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "Pair" eta-0)) (let ((e-17 (car sc4))) (let ((e-18 (cdr sc4))) (let ((sc5 e-14)) (if (null? sc5) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "Pair" eta-0)) (let ((e-20 (car sc5))) (let ((e-21 (cdr sc5))) (let ((sc6 e-20)) (if (null? sc6) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "Pair" eta-0)) (let ((e-24 (car sc6))) (let ((e-25 (cdr sc6))) (lambda (clam-0) (let ((sc7 e-21)) (if (null? sc7) (let ((act-24 (CoreC-45Context-u--full_HasNames_Name (let ((sc8 arg-5)) (let ((e-0 (vector-ref sc8 1))) e-0)) e-2 clam-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-6 (vector-ref sc8 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc8 1))) (let ((u--val (vector 2 e-1 e-2 e-3 e-4 (cons e-7 (cons e-10 (cons (cons e-17 e-18) (cons (cons e-24 e-25) '()))))))) (let ((sc9 e-6)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (let ((e-12 (vector-ref sc10 1))) (let ((sc11 e-12)) (cond ((equal? sc11 "MkPair") (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-3 arg-4 arg-5 e-18) clam-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-15 (vector-ref sc12 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc12 1))) ((((((Builtin-fst arg-2) arg-3) arg-4) arg-5) e-15) clam-0)))))))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-15 (vector-ref sc12 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc12 1))) (let ((act-26 (let ((act-26 ((CoreC-45Normalise-evalClosure arg-3 arg-4 arg-5 e-25) clam-0))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-16 (vector-ref sc13 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc13 1))) ((((((Builtin-snd arg-2) arg-3) arg-4) arg-5) e-16) clam-0)))))))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-16 (vector-ref sc13 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc13 1))) (vector 1 (cons e-15 e-16)))))))))))))(else (CoreC-45Reflect-cantReify u--val "Pair" clam-0))))))(else (CoreC-45Reflect-cantReify u--val "Pair" clam-0))))))(else (CoreC-45Reflect-cantReify u--val "Pair" clam-0)))))))))) (CoreC-45Reflect-cantReify arg-6 "Pair" clam-0))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "Pair" eta-0))))))) -(define CoreC-45Reflect-u--reify_Reify_C-40PiInfoC-32C-36tC-41 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((act-24 (CoreC-45Context-u--full_HasNames_Name (let ((sc1 arg-4)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((u--val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((CoreC-45Reflect-case--reify-9809 arg-1 arg-3 e-1 e-3 e-4 e-5 e-2 u--val arg-4 arg-2 e-6 (cons e-6 e-5)) ext-0)))))))))))))(else (CoreC-45Reflect-cantReify arg-5 "PiInfo" ext-0)))))) -(define CoreC-45Reflect-u--reify_Reify_C-40MaybeC-32C-36aC-41 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((act-24 (CoreC-45Context-u--full_HasNames_Name (let ((sc1 arg-4)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((u--val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((CoreC-45Reflect-case--reify-5561 arg-1 arg-3 e-1 e-3 e-4 e-5 e-2 u--val arg-4 arg-2 e-6 (cons e-6 e-5)) ext-0)))))))))))))(else (CoreC-45Reflect-cantReify arg-5 "Maybe" ext-0)))))) -(define CoreC-45Reflect-u--reify_Reify_C-40ListC-32C-36aC-41 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((act-24 (CoreC-45Context-u--full_HasNames_Name (let ((sc1 arg-4)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((u--val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((CoreC-45Reflect-case--reify-4955 arg-1 arg-3 e-1 e-3 e-4 e-5 e-2 u--val arg-4 arg-2 e-6 (cons e-6 e-5)) ext-0)))))))))))))(else (CoreC-45Reflect-cantReify arg-5 "List" ext-0)))))) -(define CoreC-45Reflect-u--reflect_Reflect_Visibility (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (CoreC-45Reflect-getCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectiontt "Private") ext-0)) ((1) (CoreC-45Reflect-getCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectiontt "Export") ext-0)) (else (CoreC-45Reflect-getCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectiontt "Public") ext-0)))))) -(define CoreC-45Reflect-u--reflect_Reflect_TotalReq (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (CoreC-45Reflect-getCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectiontt "Total") ext-0)) ((1) (CoreC-45Reflect-getCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectiontt "CoveringOnly") ext-0)) (else (CoreC-45Reflect-getCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectiontt "PartialOK") ext-0)))))) +(define TTImpC-45Elab-addHoleToSave (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-lookupTyExact arg-1 (let ((e-0 (vector-ref e-5 0))) e-0) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (if (null? e-6) (vector 1 0) (let ((e-1 (unbox e-6))) (let ((u--ms (LibrariesC-45DataC-45NameMap-keys (CoreC-45TT-getMetas e-1)))) (let ((act-26 (CoreC-45Context-addToSave arg-0 arg-1 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (CoreC-45Core-traverse_ (lambda (eta-0) (lambda (eta-1) (CoreC-45Context-addToSave arg-0 eta-0 eta-1))) u--ms ext-0))))))))))))))))) +(define TTImpC-45ElabC-45Term-n--10189-15047-u--resolveNames (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 ext-0) (if (null? arg-14) (vector 1 (LibrariesC-45DataC-45StringMap-empty)) (let ((e-2 (car arg-14))) (let ((e-3 (cdr arg-14))) (let ((sc1 (CoreC-45Name-userNameRoot e-2))) (if (null? sc1) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 (PreludeC-45TypesC-45String-C-43C-43 "non-UN in \"with\" LHS: " (CoreC-45Name-u--show_Show_Name e-2))) ext-0) (let ((e-4 (unbox sc1))) (let ((act-24 (let ((act-24 (unbox arg-12))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtName e-2 (let ((e-0 (vector-ref e-5 0))) e-0)) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-6 (vector-ref act-25 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-25 1))) (if (null? e-6) (CoreC-45Context-undefinedName arg-12 arg-13 e-2 ext-0) (let ((e-8 (car e-6))) (let ((e-7 (cdr e-6))) (if (null? e-7) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-9 (vector-ref eta-0 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref eta-0 1))) (vector 1 (LibrariesC-45DataC-45StringMap-insert e-4 e-8 e-9)))))) (lambda (eta-0) (TTImpC-45ElabC-45Term-n--10189-15047-u--resolveNames arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-3 eta-0)) ext-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 17 arg-13 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-fst eta-0)) e-6)) ext-0))))))))))))))))))))) +(define TTImpC-45ElabC-45Term-n--9292-13474-u--bindLamTm (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-8) (case (vector-ref arg-7 0) ((2) (let ((e-16 (vector-ref arg-7 3))) (case (vector-ref e-16 0) ((0) (case (vector-ref arg-8 0) ((3) (let ((e-27 (vector-ref arg-8 3))) (case (vector-ref e-27 0) ((2) (let ((e-32 (vector-ref e-27 3))) (case (vector-ref e-32 0) ((0) (lambda (eta-0) (vector 1 (box arg-7))))(else (case (vector-ref arg-8 0) ((3) (let ((e-1 (vector-ref arg-8 1))) (let ((e-2 (vector-ref arg-8 2))) (let ((e-3 (vector-ref arg-8 3))) (let ((e-4 (vector-ref arg-8 4))) (case (vector-ref e-3 0) ((2) (let ((e-7 (vector-ref e-3 2))) (let ((e-8 (vector-ref e-3 3))) (case (vector-ref e-8 0) ((0) (lambda (eta-0) (let ((act-24 (CoreC-45UnifyState-genVarName arg-5 arg-4 (CoreC-45Name-nameRoot e-2) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((TTImpC-45ElabC-45Term-n--9292-13474-u--bindLamTm arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 e-4) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (if (null? e-10) (vector 1 '()) (let ((e-11 (unbox e-10))) (vector 1 (box (vector 2 e-1 e-7 (vector 0 ) (box e-5) (vector 32 e-1 0) e-11))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 (CoreC-45UnifyState-genVarName arg-5 arg-4 (CoreC-45Name-nameRoot e-2) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((TTImpC-45ElabC-45Term-n--9292-13474-u--bindLamTm arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 e-4) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (if (null? e-10) (vector 1 '()) (let ((e-11 (unbox e-10))) (vector 1 (box (vector 2 e-1 e-7 (vector 2 ) (box e-5) (vector 32 e-1 0) e-11))))))))))))))) ((3) (lambda (eta-0) (let ((act-24 (CoreC-45UnifyState-genVarName arg-5 arg-4 (CoreC-45Name-nameRoot e-2) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((TTImpC-45ElabC-45Term-n--9292-13474-u--bindLamTm arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 e-4) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (if (null? e-10) (vector 1 '()) (let ((e-11 (unbox e-10))) (vector 1 (box (vector 2 e-1 e-7 (vector 3 (vector 32 e-1 0)) (box e-5) (vector 32 e-1 0) e-11)))))))))))))))(else (lambda (clam-0) (let ((sc6 (CoreC-45TT-getFn arg-8))) (case (vector-ref sc6 0) ((1) (let ((e-10 (vector-ref sc6 2))) (case (vector-ref e-10 0) ((1) (vector 1 '()))(else (vector 1 (box arg-7)))))) ((8) (vector 1 '())) ((3) (let ((e-11 (vector-ref sc6 3))) (case (vector-ref e-11 0) ((0) (vector 1 '()))(else (vector 1 (box arg-7))))))(else (vector 1 (box arg-7)))))))))))(else (lambda (clam-1) (let ((sc5 (CoreC-45TT-getFn arg-8))) (case (vector-ref sc5 0) ((1) (let ((e-6 (vector-ref sc5 2))) (case (vector-ref e-6 0) ((1) (vector 1 '()))(else (vector 1 (box arg-7)))))) ((8) (vector 1 '())) ((3) (let ((e-11 (vector-ref sc5 3))) (case (vector-ref e-11 0) ((0) (vector 1 '()))(else (vector 1 (box arg-7))))))(else (vector 1 (box arg-7)))))))))))))(else (lambda (clam-2) (let ((sc4 (CoreC-45TT-getFn arg-8))) (case (vector-ref sc4 0) ((1) (let ((e-2 (vector-ref sc4 2))) (case (vector-ref e-2 0) ((1) (vector 1 '()))(else (vector 1 (box arg-7)))))) ((8) (vector 1 '())) ((3) (let ((e-11 (vector-ref sc4 3))) (case (vector-ref e-11 0) ((0) (vector 1 '()))(else (vector 1 (box arg-7))))))(else (vector 1 (box arg-7))))))))))))(else (case (vector-ref arg-8 0) ((3) (let ((e-1 (vector-ref arg-8 1))) (let ((e-2 (vector-ref arg-8 2))) (let ((e-3 (vector-ref arg-8 3))) (let ((e-4 (vector-ref arg-8 4))) (case (vector-ref e-3 0) ((2) (let ((e-7 (vector-ref e-3 2))) (let ((e-8 (vector-ref e-3 3))) (case (vector-ref e-8 0) ((0) (lambda (eta-0) (let ((act-24 (CoreC-45UnifyState-genVarName arg-5 arg-4 (CoreC-45Name-nameRoot e-2) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((TTImpC-45ElabC-45Term-n--9292-13474-u--bindLamTm arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 e-4) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (if (null? e-10) (vector 1 '()) (let ((e-11 (unbox e-10))) (vector 1 (box (vector 2 e-1 e-7 (vector 0 ) (box e-5) (vector 32 e-1 0) e-11))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 (CoreC-45UnifyState-genVarName arg-5 arg-4 (CoreC-45Name-nameRoot e-2) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((TTImpC-45ElabC-45Term-n--9292-13474-u--bindLamTm arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 e-4) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (if (null? e-10) (vector 1 '()) (let ((e-11 (unbox e-10))) (vector 1 (box (vector 2 e-1 e-7 (vector 2 ) (box e-5) (vector 32 e-1 0) e-11))))))))))))))) ((3) (lambda (eta-0) (let ((act-24 (CoreC-45UnifyState-genVarName arg-5 arg-4 (CoreC-45Name-nameRoot e-2) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((TTImpC-45ElabC-45Term-n--9292-13474-u--bindLamTm arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 e-4) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (if (null? e-10) (vector 1 '()) (let ((e-11 (unbox e-10))) (vector 1 (box (vector 2 e-1 e-7 (vector 3 (vector 32 e-1 0)) (box e-5) (vector 32 e-1 0) e-11)))))))))))))))(else (lambda (clam-3) (let ((sc5 (CoreC-45TT-getFn arg-8))) (case (vector-ref sc5 0) ((1) (let ((e-10 (vector-ref sc5 2))) (case (vector-ref e-10 0) ((1) (vector 1 '()))(else (vector 1 (box arg-7)))))) ((8) (vector 1 '())) ((3) (let ((e-11 (vector-ref sc5 3))) (case (vector-ref e-11 0) ((0) (vector 1 '()))(else (vector 1 (box arg-7))))))(else (vector 1 (box arg-7)))))))))))(else (lambda (clam-4) (let ((sc4 (CoreC-45TT-getFn arg-8))) (case (vector-ref sc4 0) ((1) (let ((e-6 (vector-ref sc4 2))) (case (vector-ref e-6 0) ((1) (vector 1 '()))(else (vector 1 (box arg-7)))))) ((8) (vector 1 '())) ((3) (let ((e-11 (vector-ref sc4 3))) (case (vector-ref e-11 0) ((0) (vector 1 '()))(else (vector 1 (box arg-7))))))(else (vector 1 (box arg-7)))))))))))))(else (lambda (clam-5) (let ((sc3 (CoreC-45TT-getFn arg-8))) (case (vector-ref sc3 0) ((1) (let ((e-2 (vector-ref sc3 2))) (case (vector-ref e-2 0) ((1) (vector 1 '()))(else (vector 1 (box arg-7)))))) ((8) (vector 1 '())) ((3) (let ((e-11 (vector-ref sc3 3))) (case (vector-ref e-11 0) ((0) (vector 1 '()))(else (vector 1 (box arg-7))))))(else (vector 1 (box arg-7))))))))))))(else (case (vector-ref arg-8 0) ((3) (let ((e-1 (vector-ref arg-8 1))) (let ((e-2 (vector-ref arg-8 2))) (let ((e-3 (vector-ref arg-8 3))) (let ((e-4 (vector-ref arg-8 4))) (case (vector-ref e-3 0) ((2) (let ((e-7 (vector-ref e-3 2))) (let ((e-8 (vector-ref e-3 3))) (case (vector-ref e-8 0) ((0) (lambda (eta-0) (let ((act-24 (CoreC-45UnifyState-genVarName arg-5 arg-4 (CoreC-45Name-nameRoot e-2) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((TTImpC-45ElabC-45Term-n--9292-13474-u--bindLamTm arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 e-4) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (if (null? e-10) (vector 1 '()) (let ((e-11 (unbox e-10))) (vector 1 (box (vector 2 e-1 e-7 (vector 0 ) (box e-5) (vector 32 e-1 0) e-11))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 (CoreC-45UnifyState-genVarName arg-5 arg-4 (CoreC-45Name-nameRoot e-2) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((TTImpC-45ElabC-45Term-n--9292-13474-u--bindLamTm arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 e-4) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (if (null? e-10) (vector 1 '()) (let ((e-11 (unbox e-10))) (vector 1 (box (vector 2 e-1 e-7 (vector 2 ) (box e-5) (vector 32 e-1 0) e-11))))))))))))))) ((3) (lambda (eta-0) (let ((act-24 (CoreC-45UnifyState-genVarName arg-5 arg-4 (CoreC-45Name-nameRoot e-2) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((TTImpC-45ElabC-45Term-n--9292-13474-u--bindLamTm arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 e-4) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (if (null? e-10) (vector 1 '()) (let ((e-11 (unbox e-10))) (vector 1 (box (vector 2 e-1 e-7 (vector 3 (vector 32 e-1 0)) (box e-5) (vector 32 e-1 0) e-11)))))))))))))))(else (lambda (clam-6) (let ((sc4 (CoreC-45TT-getFn arg-8))) (case (vector-ref sc4 0) ((1) (let ((e-10 (vector-ref sc4 2))) (case (vector-ref e-10 0) ((1) (vector 1 '()))(else (vector 1 (box arg-7)))))) ((8) (vector 1 '())) ((3) (let ((e-11 (vector-ref sc4 3))) (case (vector-ref e-11 0) ((0) (vector 1 '()))(else (vector 1 (box arg-7))))))(else (vector 1 (box arg-7)))))))))))(else (lambda (clam-7) (let ((sc3 (CoreC-45TT-getFn arg-8))) (case (vector-ref sc3 0) ((1) (let ((e-6 (vector-ref sc3 2))) (case (vector-ref e-6 0) ((1) (vector 1 '()))(else (vector 1 (box arg-7)))))) ((8) (vector 1 '())) ((3) (let ((e-11 (vector-ref sc3 3))) (case (vector-ref e-11 0) ((0) (vector 1 '()))(else (vector 1 (box arg-7))))))(else (vector 1 (box arg-7)))))))))))))(else (lambda (clam-8) (let ((sc2 (CoreC-45TT-getFn arg-8))) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 2))) (case (vector-ref e-2 0) ((1) (vector 1 '()))(else (vector 1 (box arg-7)))))) ((8) (vector 1 '())) ((3) (let ((e-11 (vector-ref sc2 3))) (case (vector-ref e-11 0) ((0) (vector 1 '()))(else (vector 1 (box arg-7))))))(else (vector 1 (box arg-7))))))))))) ((2) (case (vector-ref arg-8 0) ((3) (let ((e-38 (vector-ref arg-8 3))) (case (vector-ref e-38 0) ((2) (let ((e-43 (vector-ref e-38 3))) (case (vector-ref e-43 0) ((2) (lambda (eta-0) (vector 1 (box arg-7))))(else (case (vector-ref arg-8 0) ((3) (let ((e-1 (vector-ref arg-8 1))) (let ((e-2 (vector-ref arg-8 2))) (let ((e-3 (vector-ref arg-8 3))) (let ((e-4 (vector-ref arg-8 4))) (case (vector-ref e-3 0) ((2) (let ((e-7 (vector-ref e-3 2))) (let ((e-8 (vector-ref e-3 3))) (case (vector-ref e-8 0) ((0) (lambda (eta-0) (let ((act-24 (CoreC-45UnifyState-genVarName arg-5 arg-4 (CoreC-45Name-nameRoot e-2) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((TTImpC-45ElabC-45Term-n--9292-13474-u--bindLamTm arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 e-4) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (if (null? e-10) (vector 1 '()) (let ((e-11 (unbox e-10))) (vector 1 (box (vector 2 e-1 e-7 (vector 0 ) (box e-5) (vector 32 e-1 0) e-11))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 (CoreC-45UnifyState-genVarName arg-5 arg-4 (CoreC-45Name-nameRoot e-2) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((TTImpC-45ElabC-45Term-n--9292-13474-u--bindLamTm arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 e-4) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (if (null? e-10) (vector 1 '()) (let ((e-11 (unbox e-10))) (vector 1 (box (vector 2 e-1 e-7 (vector 2 ) (box e-5) (vector 32 e-1 0) e-11))))))))))))))) ((3) (lambda (eta-0) (let ((act-24 (CoreC-45UnifyState-genVarName arg-5 arg-4 (CoreC-45Name-nameRoot e-2) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((TTImpC-45ElabC-45Term-n--9292-13474-u--bindLamTm arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 e-4) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (if (null? e-10) (vector 1 '()) (let ((e-11 (unbox e-10))) (vector 1 (box (vector 2 e-1 e-7 (vector 3 (vector 32 e-1 0)) (box e-5) (vector 32 e-1 0) e-11)))))))))))))))(else (lambda (clam-9) (let ((sc6 (CoreC-45TT-getFn arg-8))) (case (vector-ref sc6 0) ((1) (let ((e-10 (vector-ref sc6 2))) (case (vector-ref e-10 0) ((1) (vector 1 '()))(else (vector 1 (box arg-7)))))) ((8) (vector 1 '())) ((3) (let ((e-11 (vector-ref sc6 3))) (case (vector-ref e-11 0) ((0) (vector 1 '()))(else (vector 1 (box arg-7))))))(else (vector 1 (box arg-7)))))))))))(else (lambda (clam-10) (let ((sc5 (CoreC-45TT-getFn arg-8))) (case (vector-ref sc5 0) ((1) (let ((e-6 (vector-ref sc5 2))) (case (vector-ref e-6 0) ((1) (vector 1 '()))(else (vector 1 (box arg-7)))))) ((8) (vector 1 '())) ((3) (let ((e-11 (vector-ref sc5 3))) (case (vector-ref e-11 0) ((0) (vector 1 '()))(else (vector 1 (box arg-7))))))(else (vector 1 (box arg-7)))))))))))))(else (lambda (clam-11) (let ((sc4 (CoreC-45TT-getFn arg-8))) (case (vector-ref sc4 0) ((1) (let ((e-2 (vector-ref sc4 2))) (case (vector-ref e-2 0) ((1) (vector 1 '()))(else (vector 1 (box arg-7)))))) ((8) (vector 1 '())) ((3) (let ((e-11 (vector-ref sc4 3))) (case (vector-ref e-11 0) ((0) (vector 1 '()))(else (vector 1 (box arg-7))))))(else (vector 1 (box arg-7))))))))))))(else (case (vector-ref arg-8 0) ((3) (let ((e-1 (vector-ref arg-8 1))) (let ((e-2 (vector-ref arg-8 2))) (let ((e-3 (vector-ref arg-8 3))) (let ((e-4 (vector-ref arg-8 4))) (case (vector-ref e-3 0) ((2) (let ((e-7 (vector-ref e-3 2))) (let ((e-8 (vector-ref e-3 3))) (case (vector-ref e-8 0) ((0) (lambda (eta-0) (let ((act-24 (CoreC-45UnifyState-genVarName arg-5 arg-4 (CoreC-45Name-nameRoot e-2) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((TTImpC-45ElabC-45Term-n--9292-13474-u--bindLamTm arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 e-4) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (if (null? e-10) (vector 1 '()) (let ((e-11 (unbox e-10))) (vector 1 (box (vector 2 e-1 e-7 (vector 0 ) (box e-5) (vector 32 e-1 0) e-11))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 (CoreC-45UnifyState-genVarName arg-5 arg-4 (CoreC-45Name-nameRoot e-2) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((TTImpC-45ElabC-45Term-n--9292-13474-u--bindLamTm arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 e-4) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (if (null? e-10) (vector 1 '()) (let ((e-11 (unbox e-10))) (vector 1 (box (vector 2 e-1 e-7 (vector 2 ) (box e-5) (vector 32 e-1 0) e-11))))))))))))))) ((3) (lambda (eta-0) (let ((act-24 (CoreC-45UnifyState-genVarName arg-5 arg-4 (CoreC-45Name-nameRoot e-2) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((TTImpC-45ElabC-45Term-n--9292-13474-u--bindLamTm arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 e-4) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (if (null? e-10) (vector 1 '()) (let ((e-11 (unbox e-10))) (vector 1 (box (vector 2 e-1 e-7 (vector 3 (vector 32 e-1 0)) (box e-5) (vector 32 e-1 0) e-11)))))))))))))))(else (lambda (clam-12) (let ((sc5 (CoreC-45TT-getFn arg-8))) (case (vector-ref sc5 0) ((1) (let ((e-10 (vector-ref sc5 2))) (case (vector-ref e-10 0) ((1) (vector 1 '()))(else (vector 1 (box arg-7)))))) ((8) (vector 1 '())) ((3) (let ((e-11 (vector-ref sc5 3))) (case (vector-ref e-11 0) ((0) (vector 1 '()))(else (vector 1 (box arg-7))))))(else (vector 1 (box arg-7)))))))))))(else (lambda (clam-13) (let ((sc4 (CoreC-45TT-getFn arg-8))) (case (vector-ref sc4 0) ((1) (let ((e-6 (vector-ref sc4 2))) (case (vector-ref e-6 0) ((1) (vector 1 '()))(else (vector 1 (box arg-7)))))) ((8) (vector 1 '())) ((3) (let ((e-11 (vector-ref sc4 3))) (case (vector-ref e-11 0) ((0) (vector 1 '()))(else (vector 1 (box arg-7))))))(else (vector 1 (box arg-7)))))))))))))(else (lambda (clam-14) (let ((sc3 (CoreC-45TT-getFn arg-8))) (case (vector-ref sc3 0) ((1) (let ((e-2 (vector-ref sc3 2))) (case (vector-ref e-2 0) ((1) (vector 1 '()))(else (vector 1 (box arg-7)))))) ((8) (vector 1 '())) ((3) (let ((e-11 (vector-ref sc3 3))) (case (vector-ref e-11 0) ((0) (vector 1 '()))(else (vector 1 (box arg-7))))))(else (vector 1 (box arg-7))))))))))))(else (case (vector-ref arg-8 0) ((3) (let ((e-1 (vector-ref arg-8 1))) (let ((e-2 (vector-ref arg-8 2))) (let ((e-3 (vector-ref arg-8 3))) (let ((e-4 (vector-ref arg-8 4))) (case (vector-ref e-3 0) ((2) (let ((e-7 (vector-ref e-3 2))) (let ((e-8 (vector-ref e-3 3))) (case (vector-ref e-8 0) ((0) (lambda (eta-0) (let ((act-24 (CoreC-45UnifyState-genVarName arg-5 arg-4 (CoreC-45Name-nameRoot e-2) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((TTImpC-45ElabC-45Term-n--9292-13474-u--bindLamTm arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 e-4) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (if (null? e-10) (vector 1 '()) (let ((e-11 (unbox e-10))) (vector 1 (box (vector 2 e-1 e-7 (vector 0 ) (box e-5) (vector 32 e-1 0) e-11))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 (CoreC-45UnifyState-genVarName arg-5 arg-4 (CoreC-45Name-nameRoot e-2) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((TTImpC-45ElabC-45Term-n--9292-13474-u--bindLamTm arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 e-4) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (if (null? e-10) (vector 1 '()) (let ((e-11 (unbox e-10))) (vector 1 (box (vector 2 e-1 e-7 (vector 2 ) (box e-5) (vector 32 e-1 0) e-11))))))))))))))) ((3) (lambda (eta-0) (let ((act-24 (CoreC-45UnifyState-genVarName arg-5 arg-4 (CoreC-45Name-nameRoot e-2) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((TTImpC-45ElabC-45Term-n--9292-13474-u--bindLamTm arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 e-4) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (if (null? e-10) (vector 1 '()) (let ((e-11 (unbox e-10))) (vector 1 (box (vector 2 e-1 e-7 (vector 3 (vector 32 e-1 0)) (box e-5) (vector 32 e-1 0) e-11)))))))))))))))(else (lambda (clam-15) (let ((sc4 (CoreC-45TT-getFn arg-8))) (case (vector-ref sc4 0) ((1) (let ((e-10 (vector-ref sc4 2))) (case (vector-ref e-10 0) ((1) (vector 1 '()))(else (vector 1 (box arg-7)))))) ((8) (vector 1 '())) ((3) (let ((e-11 (vector-ref sc4 3))) (case (vector-ref e-11 0) ((0) (vector 1 '()))(else (vector 1 (box arg-7))))))(else (vector 1 (box arg-7)))))))))))(else (lambda (clam-16) (let ((sc3 (CoreC-45TT-getFn arg-8))) (case (vector-ref sc3 0) ((1) (let ((e-6 (vector-ref sc3 2))) (case (vector-ref e-6 0) ((1) (vector 1 '()))(else (vector 1 (box arg-7)))))) ((8) (vector 1 '())) ((3) (let ((e-11 (vector-ref sc3 3))) (case (vector-ref e-11 0) ((0) (vector 1 '()))(else (vector 1 (box arg-7))))))(else (vector 1 (box arg-7)))))))))))))(else (lambda (clam-17) (let ((sc2 (CoreC-45TT-getFn arg-8))) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 2))) (case (vector-ref e-2 0) ((1) (vector 1 '()))(else (vector 1 (box arg-7)))))) ((8) (vector 1 '())) ((3) (let ((e-11 (vector-ref sc2 3))) (case (vector-ref e-11 0) ((0) (vector 1 '()))(else (vector 1 (box arg-7))))))(else (vector 1 (box arg-7))))))))))) ((3) (case (vector-ref arg-8 0) ((3) (let ((e-49 (vector-ref arg-8 3))) (case (vector-ref e-49 0) ((2) (let ((e-54 (vector-ref e-49 3))) (case (vector-ref e-54 0) ((3) (lambda (eta-0) (vector 1 (box arg-7))))(else (case (vector-ref arg-8 0) ((3) (let ((e-1 (vector-ref arg-8 1))) (let ((e-2 (vector-ref arg-8 2))) (let ((e-3 (vector-ref arg-8 3))) (let ((e-4 (vector-ref arg-8 4))) (case (vector-ref e-3 0) ((2) (let ((e-7 (vector-ref e-3 2))) (let ((e-8 (vector-ref e-3 3))) (case (vector-ref e-8 0) ((0) (lambda (eta-0) (let ((act-24 (CoreC-45UnifyState-genVarName arg-5 arg-4 (CoreC-45Name-nameRoot e-2) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((TTImpC-45ElabC-45Term-n--9292-13474-u--bindLamTm arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 e-4) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (if (null? e-10) (vector 1 '()) (let ((e-11 (unbox e-10))) (vector 1 (box (vector 2 e-1 e-7 (vector 0 ) (box e-5) (vector 32 e-1 0) e-11))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 (CoreC-45UnifyState-genVarName arg-5 arg-4 (CoreC-45Name-nameRoot e-2) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((TTImpC-45ElabC-45Term-n--9292-13474-u--bindLamTm arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 e-4) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (if (null? e-10) (vector 1 '()) (let ((e-11 (unbox e-10))) (vector 1 (box (vector 2 e-1 e-7 (vector 2 ) (box e-5) (vector 32 e-1 0) e-11))))))))))))))) ((3) (lambda (eta-0) (let ((act-24 (CoreC-45UnifyState-genVarName arg-5 arg-4 (CoreC-45Name-nameRoot e-2) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((TTImpC-45ElabC-45Term-n--9292-13474-u--bindLamTm arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 e-4) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (if (null? e-10) (vector 1 '()) (let ((e-11 (unbox e-10))) (vector 1 (box (vector 2 e-1 e-7 (vector 3 (vector 32 e-1 0)) (box e-5) (vector 32 e-1 0) e-11)))))))))))))))(else (lambda (clam-18) (let ((sc6 (CoreC-45TT-getFn arg-8))) (case (vector-ref sc6 0) ((1) (let ((e-10 (vector-ref sc6 2))) (case (vector-ref e-10 0) ((1) (vector 1 '()))(else (vector 1 (box arg-7)))))) ((8) (vector 1 '())) ((3) (let ((e-11 (vector-ref sc6 3))) (case (vector-ref e-11 0) ((0) (vector 1 '()))(else (vector 1 (box arg-7))))))(else (vector 1 (box arg-7)))))))))))(else (lambda (clam-19) (let ((sc5 (CoreC-45TT-getFn arg-8))) (case (vector-ref sc5 0) ((1) (let ((e-6 (vector-ref sc5 2))) (case (vector-ref e-6 0) ((1) (vector 1 '()))(else (vector 1 (box arg-7)))))) ((8) (vector 1 '())) ((3) (let ((e-11 (vector-ref sc5 3))) (case (vector-ref e-11 0) ((0) (vector 1 '()))(else (vector 1 (box arg-7))))))(else (vector 1 (box arg-7)))))))))))))(else (lambda (clam-20) (let ((sc4 (CoreC-45TT-getFn arg-8))) (case (vector-ref sc4 0) ((1) (let ((e-2 (vector-ref sc4 2))) (case (vector-ref e-2 0) ((1) (vector 1 '()))(else (vector 1 (box arg-7)))))) ((8) (vector 1 '())) ((3) (let ((e-11 (vector-ref sc4 3))) (case (vector-ref e-11 0) ((0) (vector 1 '()))(else (vector 1 (box arg-7))))))(else (vector 1 (box arg-7))))))))))))(else (case (vector-ref arg-8 0) ((3) (let ((e-1 (vector-ref arg-8 1))) (let ((e-2 (vector-ref arg-8 2))) (let ((e-3 (vector-ref arg-8 3))) (let ((e-4 (vector-ref arg-8 4))) (case (vector-ref e-3 0) ((2) (let ((e-7 (vector-ref e-3 2))) (let ((e-8 (vector-ref e-3 3))) (case (vector-ref e-8 0) ((0) (lambda (eta-0) (let ((act-24 (CoreC-45UnifyState-genVarName arg-5 arg-4 (CoreC-45Name-nameRoot e-2) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((TTImpC-45ElabC-45Term-n--9292-13474-u--bindLamTm arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 e-4) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (if (null? e-10) (vector 1 '()) (let ((e-11 (unbox e-10))) (vector 1 (box (vector 2 e-1 e-7 (vector 0 ) (box e-5) (vector 32 e-1 0) e-11))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 (CoreC-45UnifyState-genVarName arg-5 arg-4 (CoreC-45Name-nameRoot e-2) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((TTImpC-45ElabC-45Term-n--9292-13474-u--bindLamTm arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 e-4) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (if (null? e-10) (vector 1 '()) (let ((e-11 (unbox e-10))) (vector 1 (box (vector 2 e-1 e-7 (vector 2 ) (box e-5) (vector 32 e-1 0) e-11))))))))))))))) ((3) (lambda (eta-0) (let ((act-24 (CoreC-45UnifyState-genVarName arg-5 arg-4 (CoreC-45Name-nameRoot e-2) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((TTImpC-45ElabC-45Term-n--9292-13474-u--bindLamTm arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 e-4) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (if (null? e-10) (vector 1 '()) (let ((e-11 (unbox e-10))) (vector 1 (box (vector 2 e-1 e-7 (vector 3 (vector 32 e-1 0)) (box e-5) (vector 32 e-1 0) e-11)))))))))))))))(else (lambda (clam-21) (let ((sc5 (CoreC-45TT-getFn arg-8))) (case (vector-ref sc5 0) ((1) (let ((e-10 (vector-ref sc5 2))) (case (vector-ref e-10 0) ((1) (vector 1 '()))(else (vector 1 (box arg-7)))))) ((8) (vector 1 '())) ((3) (let ((e-11 (vector-ref sc5 3))) (case (vector-ref e-11 0) ((0) (vector 1 '()))(else (vector 1 (box arg-7))))))(else (vector 1 (box arg-7)))))))))))(else (lambda (clam-22) (let ((sc4 (CoreC-45TT-getFn arg-8))) (case (vector-ref sc4 0) ((1) (let ((e-6 (vector-ref sc4 2))) (case (vector-ref e-6 0) ((1) (vector 1 '()))(else (vector 1 (box arg-7)))))) ((8) (vector 1 '())) ((3) (let ((e-11 (vector-ref sc4 3))) (case (vector-ref e-11 0) ((0) (vector 1 '()))(else (vector 1 (box arg-7))))))(else (vector 1 (box arg-7)))))))))))))(else (lambda (clam-23) (let ((sc3 (CoreC-45TT-getFn arg-8))) (case (vector-ref sc3 0) ((1) (let ((e-2 (vector-ref sc3 2))) (case (vector-ref e-2 0) ((1) (vector 1 '()))(else (vector 1 (box arg-7)))))) ((8) (vector 1 '())) ((3) (let ((e-11 (vector-ref sc3 3))) (case (vector-ref e-11 0) ((0) (vector 1 '()))(else (vector 1 (box arg-7))))))(else (vector 1 (box arg-7))))))))))))(else (case (vector-ref arg-8 0) ((3) (let ((e-1 (vector-ref arg-8 1))) (let ((e-2 (vector-ref arg-8 2))) (let ((e-3 (vector-ref arg-8 3))) (let ((e-4 (vector-ref arg-8 4))) (case (vector-ref e-3 0) ((2) (let ((e-7 (vector-ref e-3 2))) (let ((e-8 (vector-ref e-3 3))) (case (vector-ref e-8 0) ((0) (lambda (eta-0) (let ((act-24 (CoreC-45UnifyState-genVarName arg-5 arg-4 (CoreC-45Name-nameRoot e-2) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((TTImpC-45ElabC-45Term-n--9292-13474-u--bindLamTm arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 e-4) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (if (null? e-10) (vector 1 '()) (let ((e-11 (unbox e-10))) (vector 1 (box (vector 2 e-1 e-7 (vector 0 ) (box e-5) (vector 32 e-1 0) e-11))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 (CoreC-45UnifyState-genVarName arg-5 arg-4 (CoreC-45Name-nameRoot e-2) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((TTImpC-45ElabC-45Term-n--9292-13474-u--bindLamTm arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 e-4) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (if (null? e-10) (vector 1 '()) (let ((e-11 (unbox e-10))) (vector 1 (box (vector 2 e-1 e-7 (vector 2 ) (box e-5) (vector 32 e-1 0) e-11))))))))))))))) ((3) (lambda (eta-0) (let ((act-24 (CoreC-45UnifyState-genVarName arg-5 arg-4 (CoreC-45Name-nameRoot e-2) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((TTImpC-45ElabC-45Term-n--9292-13474-u--bindLamTm arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 e-4) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (if (null? e-10) (vector 1 '()) (let ((e-11 (unbox e-10))) (vector 1 (box (vector 2 e-1 e-7 (vector 3 (vector 32 e-1 0)) (box e-5) (vector 32 e-1 0) e-11)))))))))))))))(else (lambda (clam-24) (let ((sc4 (CoreC-45TT-getFn arg-8))) (case (vector-ref sc4 0) ((1) (let ((e-10 (vector-ref sc4 2))) (case (vector-ref e-10 0) ((1) (vector 1 '()))(else (vector 1 (box arg-7)))))) ((8) (vector 1 '())) ((3) (let ((e-11 (vector-ref sc4 3))) (case (vector-ref e-11 0) ((0) (vector 1 '()))(else (vector 1 (box arg-7))))))(else (vector 1 (box arg-7)))))))))))(else (lambda (clam-25) (let ((sc3 (CoreC-45TT-getFn arg-8))) (case (vector-ref sc3 0) ((1) (let ((e-6 (vector-ref sc3 2))) (case (vector-ref e-6 0) ((1) (vector 1 '()))(else (vector 1 (box arg-7)))))) ((8) (vector 1 '())) ((3) (let ((e-11 (vector-ref sc3 3))) (case (vector-ref e-11 0) ((0) (vector 1 '()))(else (vector 1 (box arg-7))))))(else (vector 1 (box arg-7)))))))))))))(else (lambda (clam-26) (let ((sc2 (CoreC-45TT-getFn arg-8))) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 2))) (case (vector-ref e-2 0) ((1) (vector 1 '()))(else (vector 1 (box arg-7)))))) ((8) (vector 1 '())) ((3) (let ((e-11 (vector-ref sc2 3))) (case (vector-ref e-11 0) ((0) (vector 1 '()))(else (vector 1 (box arg-7))))))(else (vector 1 (box arg-7)))))))))))(else (case (vector-ref arg-8 0) ((3) (let ((e-1 (vector-ref arg-8 1))) (let ((e-2 (vector-ref arg-8 2))) (let ((e-3 (vector-ref arg-8 3))) (let ((e-4 (vector-ref arg-8 4))) (case (vector-ref e-3 0) ((2) (let ((e-7 (vector-ref e-3 2))) (let ((e-8 (vector-ref e-3 3))) (case (vector-ref e-8 0) ((0) (lambda (eta-0) (let ((act-24 (CoreC-45UnifyState-genVarName arg-5 arg-4 (CoreC-45Name-nameRoot e-2) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((TTImpC-45ElabC-45Term-n--9292-13474-u--bindLamTm arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 e-4) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (if (null? e-10) (vector 1 '()) (let ((e-11 (unbox e-10))) (vector 1 (box (vector 2 e-1 e-7 (vector 0 ) (box e-5) (vector 32 e-1 0) e-11))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 (CoreC-45UnifyState-genVarName arg-5 arg-4 (CoreC-45Name-nameRoot e-2) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((TTImpC-45ElabC-45Term-n--9292-13474-u--bindLamTm arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 e-4) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (if (null? e-10) (vector 1 '()) (let ((e-11 (unbox e-10))) (vector 1 (box (vector 2 e-1 e-7 (vector 2 ) (box e-5) (vector 32 e-1 0) e-11))))))))))))))) ((3) (lambda (eta-0) (let ((act-24 (CoreC-45UnifyState-genVarName arg-5 arg-4 (CoreC-45Name-nameRoot e-2) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((TTImpC-45ElabC-45Term-n--9292-13474-u--bindLamTm arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 e-4) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (if (null? e-10) (vector 1 '()) (let ((e-11 (unbox e-10))) (vector 1 (box (vector 2 e-1 e-7 (vector 3 (vector 32 e-1 0)) (box e-5) (vector 32 e-1 0) e-11)))))))))))))))(else (lambda (clam-27) (let ((sc3 (CoreC-45TT-getFn arg-8))) (case (vector-ref sc3 0) ((1) (let ((e-10 (vector-ref sc3 2))) (case (vector-ref e-10 0) ((1) (vector 1 '()))(else (vector 1 (box arg-7)))))) ((8) (vector 1 '())) ((3) (let ((e-11 (vector-ref sc3 3))) (case (vector-ref e-11 0) ((0) (vector 1 '()))(else (vector 1 (box arg-7))))))(else (vector 1 (box arg-7)))))))))))(else (lambda (clam-28) (let ((sc2 (CoreC-45TT-getFn arg-8))) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 2))) (case (vector-ref e-6 0) ((1) (vector 1 '()))(else (vector 1 (box arg-7)))))) ((8) (vector 1 '())) ((3) (let ((e-11 (vector-ref sc2 3))) (case (vector-ref e-11 0) ((0) (vector 1 '()))(else (vector 1 (box arg-7))))))(else (vector 1 (box arg-7)))))))))))))(else (lambda (clam-29) (let ((sc1 (CoreC-45TT-getFn arg-8))) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 2))) (case (vector-ref e-2 0) ((1) (vector 1 '()))(else (vector 1 (box arg-7)))))) ((8) (vector 1 '())) ((3) (let ((e-11 (vector-ref sc1 3))) (case (vector-ref e-11 0) ((0) (vector 1 '()))(else (vector 1 (box arg-7))))))(else (vector 1 (box arg-7))))))))))))(else (case (vector-ref arg-8 0) ((3) (let ((e-1 (vector-ref arg-8 1))) (let ((e-2 (vector-ref arg-8 2))) (let ((e-3 (vector-ref arg-8 3))) (let ((e-4 (vector-ref arg-8 4))) (case (vector-ref e-3 0) ((2) (let ((e-7 (vector-ref e-3 2))) (let ((e-8 (vector-ref e-3 3))) (case (vector-ref e-8 0) ((0) (lambda (eta-0) (let ((act-24 (CoreC-45UnifyState-genVarName arg-5 arg-4 (CoreC-45Name-nameRoot e-2) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((TTImpC-45ElabC-45Term-n--9292-13474-u--bindLamTm arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 e-4) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (if (null? e-10) (vector 1 '()) (let ((e-11 (unbox e-10))) (vector 1 (box (vector 2 e-1 e-7 (vector 0 ) (box e-5) (vector 32 e-1 0) e-11))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 (CoreC-45UnifyState-genVarName arg-5 arg-4 (CoreC-45Name-nameRoot e-2) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((TTImpC-45ElabC-45Term-n--9292-13474-u--bindLamTm arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 e-4) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (if (null? e-10) (vector 1 '()) (let ((e-11 (unbox e-10))) (vector 1 (box (vector 2 e-1 e-7 (vector 2 ) (box e-5) (vector 32 e-1 0) e-11))))))))))))))) ((3) (lambda (eta-0) (let ((act-24 (CoreC-45UnifyState-genVarName arg-5 arg-4 (CoreC-45Name-nameRoot e-2) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((TTImpC-45ElabC-45Term-n--9292-13474-u--bindLamTm arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 e-4) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (if (null? e-10) (vector 1 '()) (let ((e-11 (unbox e-10))) (vector 1 (box (vector 2 e-1 e-7 (vector 3 (vector 32 e-1 0)) (box e-5) (vector 32 e-1 0) e-11)))))))))))))))(else (lambda (clam-30) (let ((sc2 (CoreC-45TT-getFn arg-8))) (case (vector-ref sc2 0) ((1) (let ((e-10 (vector-ref sc2 2))) (case (vector-ref e-10 0) ((1) (vector 1 '()))(else (vector 1 (box arg-7)))))) ((8) (vector 1 '())) ((3) (let ((e-11 (vector-ref sc2 3))) (case (vector-ref e-11 0) ((0) (vector 1 '()))(else (vector 1 (box arg-7))))))(else (vector 1 (box arg-7)))))))))))(else (lambda (clam-31) (let ((sc1 (CoreC-45TT-getFn arg-8))) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 2))) (case (vector-ref e-6 0) ((1) (vector 1 '()))(else (vector 1 (box arg-7)))))) ((8) (vector 1 '())) ((3) (let ((e-11 (vector-ref sc1 3))) (case (vector-ref e-11 0) ((0) (vector 1 '()))(else (vector 1 (box arg-7))))))(else (vector 1 (box arg-7)))))))))))))(else (lambda (clam-32) (let ((sc0 (CoreC-45TT-getFn arg-8))) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 2))) (case (vector-ref e-2 0) ((1) (vector 1 '()))(else (vector 1 (box arg-7)))))) ((8) (vector 1 '())) ((3) (let ((e-11 (vector-ref sc0 3))) (case (vector-ref e-11 0) ((0) (vector 1 '()))(else (vector 1 (box arg-7))))))(else (vector 1 (box arg-7)))))))))))) +(define TTImpC-45ElabC-45Term-n--9292-13475-u--bindLamNF (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (case (vector-ref arg-6 0) ((2) (let ((e-16 (vector-ref arg-6 3))) (case (vector-ref e-16 0) ((0) (case (vector-ref arg-7 0) ((0) (let ((e-25 (vector-ref arg-7 3))) (case (vector-ref e-25 0) ((2) (let ((e-30 (vector-ref e-25 3))) (case (vector-ref e-30 0) ((0) (lambda (eta-0) (vector 1 arg-6)))(else (case (vector-ref arg-7 0) ((0) (let ((e-1 (vector-ref arg-7 1))) (let ((e-2 (vector-ref arg-7 2))) (let ((e-3 (vector-ref arg-7 3))) (let ((e-4 (vector-ref arg-7 4))) (lambda (clam-0) (case (vector-ref e-3 0) ((2) (let ((e-7 (vector-ref e-3 2))) (let ((e-8 (vector-ref e-3 3))) (case (vector-ref e-8 0) ((0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45UnifyState-genVarName arg-5 arg-4 (CoreC-45Name-nameRoot e-2) clam-0))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (let ((act-26 (((e-4 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-10))) clam-0))) (case (vector-ref act-26 0) ((0) (let ((e-11 (vector-ref act-26 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-26 1))) (let ((act-27 ((TTImpC-45ElabC-45Term-n--9292-13475-u--bindLamNF arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-11) clam-0))) (case (vector-ref act-27 0) ((0) (let ((e-12 (vector-ref act-27 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref act-27 1))) (vector 1 (vector 2 e-1 e-7 (vector 0 ) (box e-10) (vector 32 e-1 0) e-12))))))))))))))))))) ((2) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45UnifyState-genVarName arg-5 arg-4 (CoreC-45Name-nameRoot e-2) clam-0))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (let ((act-26 (((e-4 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-10))) clam-0))) (case (vector-ref act-26 0) ((0) (let ((e-11 (vector-ref act-26 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-26 1))) (let ((act-27 ((TTImpC-45ElabC-45Term-n--9292-13475-u--bindLamNF arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-11) clam-0))) (case (vector-ref act-27 0) ((0) (let ((e-12 (vector-ref act-27 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref act-27 1))) (vector 1 (vector 2 e-1 e-7 (vector 2 ) (box e-10) (vector 32 e-1 0) e-12))))))))))))))))))) ((3) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45UnifyState-genVarName arg-5 arg-4 (CoreC-45Name-nameRoot e-2) clam-0))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (let ((act-26 (((e-4 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-10))) clam-0))) (case (vector-ref act-26 0) ((0) (let ((e-11 (vector-ref act-26 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-26 1))) (let ((act-27 ((TTImpC-45ElabC-45Term-n--9292-13475-u--bindLamNF arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-11) clam-0))) (case (vector-ref act-27 0) ((0) (let ((e-12 (vector-ref act-27 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref act-27 1))) (vector 1 (vector 2 e-1 e-7 (vector 3 (vector 32 e-1 0)) (box e-10) (vector 32 e-1 0) e-12)))))))))))))))))))(else (vector 1 arg-6))))))(else (vector 1 arg-6)))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (case (vector-ref arg-7 0) ((0) (let ((e-1 (vector-ref arg-7 1))) (let ((e-2 (vector-ref arg-7 2))) (let ((e-3 (vector-ref arg-7 3))) (let ((e-4 (vector-ref arg-7 4))) (lambda (clam-1) (case (vector-ref e-3 0) ((2) (let ((e-7 (vector-ref e-3 2))) (let ((e-8 (vector-ref e-3 3))) (case (vector-ref e-8 0) ((0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45UnifyState-genVarName arg-5 arg-4 (CoreC-45Name-nameRoot e-2) clam-1))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (let ((act-26 (((e-4 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-10))) clam-1))) (case (vector-ref act-26 0) ((0) (let ((e-11 (vector-ref act-26 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-26 1))) (let ((act-27 ((TTImpC-45ElabC-45Term-n--9292-13475-u--bindLamNF arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-11) clam-1))) (case (vector-ref act-27 0) ((0) (let ((e-12 (vector-ref act-27 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref act-27 1))) (vector 1 (vector 2 e-1 e-7 (vector 0 ) (box e-10) (vector 32 e-1 0) e-12))))))))))))))))))) ((2) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45UnifyState-genVarName arg-5 arg-4 (CoreC-45Name-nameRoot e-2) clam-1))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (let ((act-26 (((e-4 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-10))) clam-1))) (case (vector-ref act-26 0) ((0) (let ((e-11 (vector-ref act-26 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-26 1))) (let ((act-27 ((TTImpC-45ElabC-45Term-n--9292-13475-u--bindLamNF arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-11) clam-1))) (case (vector-ref act-27 0) ((0) (let ((e-12 (vector-ref act-27 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref act-27 1))) (vector 1 (vector 2 e-1 e-7 (vector 2 ) (box e-10) (vector 32 e-1 0) e-12))))))))))))))))))) ((3) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45UnifyState-genVarName arg-5 arg-4 (CoreC-45Name-nameRoot e-2) clam-1))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (let ((act-26 (((e-4 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-10))) clam-1))) (case (vector-ref act-26 0) ((0) (let ((e-11 (vector-ref act-26 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-26 1))) (let ((act-27 ((TTImpC-45ElabC-45Term-n--9292-13475-u--bindLamNF arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-11) clam-1))) (case (vector-ref act-27 0) ((0) (let ((e-12 (vector-ref act-27 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref act-27 1))) (vector 1 (vector 2 e-1 e-7 (vector 3 (vector 32 e-1 0)) (box e-10) (vector 32 e-1 0) e-12)))))))))))))))))))(else (vector 1 arg-6))))))(else (vector 1 arg-6)))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (case (vector-ref arg-7 0) ((0) (let ((e-1 (vector-ref arg-7 1))) (let ((e-2 (vector-ref arg-7 2))) (let ((e-3 (vector-ref arg-7 3))) (let ((e-4 (vector-ref arg-7 4))) (lambda (clam-2) (case (vector-ref e-3 0) ((2) (let ((e-7 (vector-ref e-3 2))) (let ((e-8 (vector-ref e-3 3))) (case (vector-ref e-8 0) ((0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45UnifyState-genVarName arg-5 arg-4 (CoreC-45Name-nameRoot e-2) clam-2))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (let ((act-26 (((e-4 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-10))) clam-2))) (case (vector-ref act-26 0) ((0) (let ((e-11 (vector-ref act-26 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-26 1))) (let ((act-27 ((TTImpC-45ElabC-45Term-n--9292-13475-u--bindLamNF arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-11) clam-2))) (case (vector-ref act-27 0) ((0) (let ((e-12 (vector-ref act-27 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref act-27 1))) (vector 1 (vector 2 e-1 e-7 (vector 0 ) (box e-10) (vector 32 e-1 0) e-12))))))))))))))))))) ((2) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45UnifyState-genVarName arg-5 arg-4 (CoreC-45Name-nameRoot e-2) clam-2))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (let ((act-26 (((e-4 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-10))) clam-2))) (case (vector-ref act-26 0) ((0) (let ((e-11 (vector-ref act-26 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-26 1))) (let ((act-27 ((TTImpC-45ElabC-45Term-n--9292-13475-u--bindLamNF arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-11) clam-2))) (case (vector-ref act-27 0) ((0) (let ((e-12 (vector-ref act-27 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref act-27 1))) (vector 1 (vector 2 e-1 e-7 (vector 2 ) (box e-10) (vector 32 e-1 0) e-12))))))))))))))))))) ((3) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45UnifyState-genVarName arg-5 arg-4 (CoreC-45Name-nameRoot e-2) clam-2))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (let ((act-26 (((e-4 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-10))) clam-2))) (case (vector-ref act-26 0) ((0) (let ((e-11 (vector-ref act-26 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-26 1))) (let ((act-27 ((TTImpC-45ElabC-45Term-n--9292-13475-u--bindLamNF arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-11) clam-2))) (case (vector-ref act-27 0) ((0) (let ((e-12 (vector-ref act-27 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref act-27 1))) (vector 1 (vector 2 e-1 e-7 (vector 3 (vector 32 e-1 0)) (box e-10) (vector 32 e-1 0) e-12)))))))))))))))))))(else (vector 1 arg-6))))))(else (vector 1 arg-6)))))))))(else (lambda (eta-0) (vector 1 arg-6))))))) ((2) (case (vector-ref arg-7 0) ((0) (let ((e-36 (vector-ref arg-7 3))) (case (vector-ref e-36 0) ((2) (let ((e-41 (vector-ref e-36 3))) (case (vector-ref e-41 0) ((2) (lambda (eta-0) (vector 1 arg-6)))(else (case (vector-ref arg-7 0) ((0) (let ((e-1 (vector-ref arg-7 1))) (let ((e-2 (vector-ref arg-7 2))) (let ((e-3 (vector-ref arg-7 3))) (let ((e-4 (vector-ref arg-7 4))) (lambda (clam-3) (case (vector-ref e-3 0) ((2) (let ((e-7 (vector-ref e-3 2))) (let ((e-8 (vector-ref e-3 3))) (case (vector-ref e-8 0) ((0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45UnifyState-genVarName arg-5 arg-4 (CoreC-45Name-nameRoot e-2) clam-3))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (let ((act-26 (((e-4 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-10))) clam-3))) (case (vector-ref act-26 0) ((0) (let ((e-11 (vector-ref act-26 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-26 1))) (let ((act-27 ((TTImpC-45ElabC-45Term-n--9292-13475-u--bindLamNF arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-11) clam-3))) (case (vector-ref act-27 0) ((0) (let ((e-12 (vector-ref act-27 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref act-27 1))) (vector 1 (vector 2 e-1 e-7 (vector 0 ) (box e-10) (vector 32 e-1 0) e-12))))))))))))))))))) ((2) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45UnifyState-genVarName arg-5 arg-4 (CoreC-45Name-nameRoot e-2) clam-3))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (let ((act-26 (((e-4 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-10))) clam-3))) (case (vector-ref act-26 0) ((0) (let ((e-11 (vector-ref act-26 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-26 1))) (let ((act-27 ((TTImpC-45ElabC-45Term-n--9292-13475-u--bindLamNF arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-11) clam-3))) (case (vector-ref act-27 0) ((0) (let ((e-12 (vector-ref act-27 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref act-27 1))) (vector 1 (vector 2 e-1 e-7 (vector 2 ) (box e-10) (vector 32 e-1 0) e-12))))))))))))))))))) ((3) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45UnifyState-genVarName arg-5 arg-4 (CoreC-45Name-nameRoot e-2) clam-3))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (let ((act-26 (((e-4 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-10))) clam-3))) (case (vector-ref act-26 0) ((0) (let ((e-11 (vector-ref act-26 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-26 1))) (let ((act-27 ((TTImpC-45ElabC-45Term-n--9292-13475-u--bindLamNF arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-11) clam-3))) (case (vector-ref act-27 0) ((0) (let ((e-12 (vector-ref act-27 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref act-27 1))) (vector 1 (vector 2 e-1 e-7 (vector 3 (vector 32 e-1 0)) (box e-10) (vector 32 e-1 0) e-12)))))))))))))))))))(else (vector 1 arg-6))))))(else (vector 1 arg-6)))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (case (vector-ref arg-7 0) ((0) (let ((e-1 (vector-ref arg-7 1))) (let ((e-2 (vector-ref arg-7 2))) (let ((e-3 (vector-ref arg-7 3))) (let ((e-4 (vector-ref arg-7 4))) (lambda (clam-4) (case (vector-ref e-3 0) ((2) (let ((e-7 (vector-ref e-3 2))) (let ((e-8 (vector-ref e-3 3))) (case (vector-ref e-8 0) ((0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45UnifyState-genVarName arg-5 arg-4 (CoreC-45Name-nameRoot e-2) clam-4))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (let ((act-26 (((e-4 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-10))) clam-4))) (case (vector-ref act-26 0) ((0) (let ((e-11 (vector-ref act-26 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-26 1))) (let ((act-27 ((TTImpC-45ElabC-45Term-n--9292-13475-u--bindLamNF arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-11) clam-4))) (case (vector-ref act-27 0) ((0) (let ((e-12 (vector-ref act-27 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref act-27 1))) (vector 1 (vector 2 e-1 e-7 (vector 0 ) (box e-10) (vector 32 e-1 0) e-12))))))))))))))))))) ((2) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45UnifyState-genVarName arg-5 arg-4 (CoreC-45Name-nameRoot e-2) clam-4))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (let ((act-26 (((e-4 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-10))) clam-4))) (case (vector-ref act-26 0) ((0) (let ((e-11 (vector-ref act-26 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-26 1))) (let ((act-27 ((TTImpC-45ElabC-45Term-n--9292-13475-u--bindLamNF arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-11) clam-4))) (case (vector-ref act-27 0) ((0) (let ((e-12 (vector-ref act-27 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref act-27 1))) (vector 1 (vector 2 e-1 e-7 (vector 2 ) (box e-10) (vector 32 e-1 0) e-12))))))))))))))))))) ((3) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45UnifyState-genVarName arg-5 arg-4 (CoreC-45Name-nameRoot e-2) clam-4))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (let ((act-26 (((e-4 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-10))) clam-4))) (case (vector-ref act-26 0) ((0) (let ((e-11 (vector-ref act-26 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-26 1))) (let ((act-27 ((TTImpC-45ElabC-45Term-n--9292-13475-u--bindLamNF arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-11) clam-4))) (case (vector-ref act-27 0) ((0) (let ((e-12 (vector-ref act-27 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref act-27 1))) (vector 1 (vector 2 e-1 e-7 (vector 3 (vector 32 e-1 0)) (box e-10) (vector 32 e-1 0) e-12)))))))))))))))))))(else (vector 1 arg-6))))))(else (vector 1 arg-6)))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (case (vector-ref arg-7 0) ((0) (let ((e-1 (vector-ref arg-7 1))) (let ((e-2 (vector-ref arg-7 2))) (let ((e-3 (vector-ref arg-7 3))) (let ((e-4 (vector-ref arg-7 4))) (lambda (clam-5) (case (vector-ref e-3 0) ((2) (let ((e-7 (vector-ref e-3 2))) (let ((e-8 (vector-ref e-3 3))) (case (vector-ref e-8 0) ((0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45UnifyState-genVarName arg-5 arg-4 (CoreC-45Name-nameRoot e-2) clam-5))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (let ((act-26 (((e-4 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-10))) clam-5))) (case (vector-ref act-26 0) ((0) (let ((e-11 (vector-ref act-26 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-26 1))) (let ((act-27 ((TTImpC-45ElabC-45Term-n--9292-13475-u--bindLamNF arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-11) clam-5))) (case (vector-ref act-27 0) ((0) (let ((e-12 (vector-ref act-27 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref act-27 1))) (vector 1 (vector 2 e-1 e-7 (vector 0 ) (box e-10) (vector 32 e-1 0) e-12))))))))))))))))))) ((2) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45UnifyState-genVarName arg-5 arg-4 (CoreC-45Name-nameRoot e-2) clam-5))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (let ((act-26 (((e-4 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-10))) clam-5))) (case (vector-ref act-26 0) ((0) (let ((e-11 (vector-ref act-26 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-26 1))) (let ((act-27 ((TTImpC-45ElabC-45Term-n--9292-13475-u--bindLamNF arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-11) clam-5))) (case (vector-ref act-27 0) ((0) (let ((e-12 (vector-ref act-27 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref act-27 1))) (vector 1 (vector 2 e-1 e-7 (vector 2 ) (box e-10) (vector 32 e-1 0) e-12))))))))))))))))))) ((3) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45UnifyState-genVarName arg-5 arg-4 (CoreC-45Name-nameRoot e-2) clam-5))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (let ((act-26 (((e-4 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-10))) clam-5))) (case (vector-ref act-26 0) ((0) (let ((e-11 (vector-ref act-26 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-26 1))) (let ((act-27 ((TTImpC-45ElabC-45Term-n--9292-13475-u--bindLamNF arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-11) clam-5))) (case (vector-ref act-27 0) ((0) (let ((e-12 (vector-ref act-27 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref act-27 1))) (vector 1 (vector 2 e-1 e-7 (vector 3 (vector 32 e-1 0)) (box e-10) (vector 32 e-1 0) e-12)))))))))))))))))))(else (vector 1 arg-6))))))(else (vector 1 arg-6)))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))(else (case (vector-ref arg-7 0) ((0) (let ((e-1 (vector-ref arg-7 1))) (let ((e-2 (vector-ref arg-7 2))) (let ((e-3 (vector-ref arg-7 3))) (let ((e-4 (vector-ref arg-7 4))) (lambda (clam-6) (case (vector-ref e-3 0) ((2) (let ((e-7 (vector-ref e-3 2))) (let ((e-8 (vector-ref e-3 3))) (case (vector-ref e-8 0) ((0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45UnifyState-genVarName arg-5 arg-4 (CoreC-45Name-nameRoot e-2) clam-6))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (let ((act-26 (((e-4 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-10))) clam-6))) (case (vector-ref act-26 0) ((0) (let ((e-11 (vector-ref act-26 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-26 1))) (let ((act-27 ((TTImpC-45ElabC-45Term-n--9292-13475-u--bindLamNF arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-11) clam-6))) (case (vector-ref act-27 0) ((0) (let ((e-12 (vector-ref act-27 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref act-27 1))) (vector 1 (vector 2 e-1 e-7 (vector 0 ) (box e-10) (vector 32 e-1 0) e-12))))))))))))))))))) ((2) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45UnifyState-genVarName arg-5 arg-4 (CoreC-45Name-nameRoot e-2) clam-6))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (let ((act-26 (((e-4 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-10))) clam-6))) (case (vector-ref act-26 0) ((0) (let ((e-11 (vector-ref act-26 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-26 1))) (let ((act-27 ((TTImpC-45ElabC-45Term-n--9292-13475-u--bindLamNF arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-11) clam-6))) (case (vector-ref act-27 0) ((0) (let ((e-12 (vector-ref act-27 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref act-27 1))) (vector 1 (vector 2 e-1 e-7 (vector 2 ) (box e-10) (vector 32 e-1 0) e-12))))))))))))))))))) ((3) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45UnifyState-genVarName arg-5 arg-4 (CoreC-45Name-nameRoot e-2) clam-6))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (let ((act-26 (((e-4 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-10))) clam-6))) (case (vector-ref act-26 0) ((0) (let ((e-11 (vector-ref act-26 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-26 1))) (let ((act-27 ((TTImpC-45ElabC-45Term-n--9292-13475-u--bindLamNF arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-11) clam-6))) (case (vector-ref act-27 0) ((0) (let ((e-12 (vector-ref act-27 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref act-27 1))) (vector 1 (vector 2 e-1 e-7 (vector 3 (vector 32 e-1 0)) (box e-10) (vector 32 e-1 0) e-12)))))))))))))))))))(else (vector 1 arg-6))))))(else (vector 1 arg-6)))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (case (vector-ref arg-7 0) ((0) (let ((e-1 (vector-ref arg-7 1))) (let ((e-2 (vector-ref arg-7 2))) (let ((e-3 (vector-ref arg-7 3))) (let ((e-4 (vector-ref arg-7 4))) (lambda (clam-7) (case (vector-ref e-3 0) ((2) (let ((e-7 (vector-ref e-3 2))) (let ((e-8 (vector-ref e-3 3))) (case (vector-ref e-8 0) ((0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45UnifyState-genVarName arg-5 arg-4 (CoreC-45Name-nameRoot e-2) clam-7))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (let ((act-26 (((e-4 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-10))) clam-7))) (case (vector-ref act-26 0) ((0) (let ((e-11 (vector-ref act-26 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-26 1))) (let ((act-27 ((TTImpC-45ElabC-45Term-n--9292-13475-u--bindLamNF arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-11) clam-7))) (case (vector-ref act-27 0) ((0) (let ((e-12 (vector-ref act-27 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref act-27 1))) (vector 1 (vector 2 e-1 e-7 (vector 0 ) (box e-10) (vector 32 e-1 0) e-12))))))))))))))))))) ((2) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45UnifyState-genVarName arg-5 arg-4 (CoreC-45Name-nameRoot e-2) clam-7))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (let ((act-26 (((e-4 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-10))) clam-7))) (case (vector-ref act-26 0) ((0) (let ((e-11 (vector-ref act-26 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-26 1))) (let ((act-27 ((TTImpC-45ElabC-45Term-n--9292-13475-u--bindLamNF arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-11) clam-7))) (case (vector-ref act-27 0) ((0) (let ((e-12 (vector-ref act-27 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref act-27 1))) (vector 1 (vector 2 e-1 e-7 (vector 2 ) (box e-10) (vector 32 e-1 0) e-12))))))))))))))))))) ((3) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45UnifyState-genVarName arg-5 arg-4 (CoreC-45Name-nameRoot e-2) clam-7))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (let ((act-26 (((e-4 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-10))) clam-7))) (case (vector-ref act-26 0) ((0) (let ((e-11 (vector-ref act-26 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-26 1))) (let ((act-27 ((TTImpC-45ElabC-45Term-n--9292-13475-u--bindLamNF arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-11) clam-7))) (case (vector-ref act-27 0) ((0) (let ((e-12 (vector-ref act-27 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref act-27 1))) (vector 1 (vector 2 e-1 e-7 (vector 3 (vector 32 e-1 0)) (box e-10) (vector 32 e-1 0) e-12)))))))))))))))))))(else (vector 1 arg-6))))))(else (vector 1 arg-6)))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))) +(define TTImpC-45ElabC-45Term-n--9292-13476-u--bindLam (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 ((CoreC-45Normalise-getTerm arg-7) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((TTImpC-45ElabC-45Term-n--9292-13474-u--bindLamTm arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (if (null? e-6) (let ((act-26 ((CoreC-45Normalise-getNF arg-5 arg-7) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) ((TTImpC-45ElabC-45Term-n--9292-13475-u--bindLamNF arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-7) ext-0))))) (let ((e-1 (unbox e-6))) (vector 1 e-1))))))))))))) +(define TTImpC-45ElabC-45Term-onLHS (lambda (arg-0) (case (vector-ref arg-0 0) ((1) 1)(else 0)))) +(define TTImpC-45ElabC-45Term-insertImpLam (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (if (null? arg-5) (vector 1 arg-4) (let ((e-1 (unbox arg-5))) (TTImpC-45ElabC-45Term-n--9292-13476-u--bindLam e-1 arg-4 arg-3 arg-2 arg-1 arg-4 e-1 ext-0))))) +(define TTImpC-45ElabC-45Term-checkTerm (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (case (vector-ref arg-9 0) ((0) (let ((e-0 (vector-ref arg-9 1))) (let ((e-1 (vector-ref arg-9 2))) (TTImpC-45ElabC-45App-checkApp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-0 (vector 0 e-0 e-1) '() '() '() arg-10)))) ((1) (let ((e-2 (vector-ref arg-9 1))) (let ((e-3 (vector-ref arg-9 2))) (let ((e-4 (vector-ref arg-9 3))) (let ((e-5 (vector-ref arg-9 4))) (let ((e-6 (vector-ref arg-9 5))) (let ((e-7 (vector-ref arg-9 6))) (if (null? e-5) (lambda (eta-0) (let ((act-24 (case (vector-ref e-4 0) ((1) (CoreC-45UnifyState-genVarName arg-1 arg-3 "arg" eta-0)) ((0) (CoreC-45UnifyState-genVarName arg-1 arg-3 "impArg" eta-0)) ((2) (CoreC-45UnifyState-genVarName arg-1 arg-3 "conArg" eta-0)) (else (CoreC-45UnifyState-genVarName arg-1 arg-3 "defArg" eta-0))))) (case (vector-ref act-24 0) ((0) (let ((e-8 (vector-ref act-24 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref act-24 1))) ((TTImpC-45ElabC-45Binders-checkPi arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2 e-3 e-4 e-8 e-6 e-7 arg-10) eta-0)))))) (let ((e-104 (unbox e-5))) (case (vector-ref e-104 0) ((1) (let ((e-105 (vector-ref e-104 1))) (cond ((equal? e-105 "_") (TTImpC-45ElabC-45Term-checkTerm arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 e-2 e-3 e-4 '() e-6 e-7) arg-10))(else (TTImpC-45ElabC-45Binders-checkPi arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2 e-3 e-4 e-104 e-6 e-7 arg-10)))))(else (TTImpC-45ElabC-45Binders-checkPi arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2 e-3 e-4 e-104 e-6 e-7 arg-10)))))))))))) ((2) (let ((e-8 (vector-ref arg-9 1))) (let ((e-9 (vector-ref arg-9 2))) (let ((e-10 (vector-ref arg-9 3))) (let ((e-11 (vector-ref arg-9 4))) (let ((e-12 (vector-ref arg-9 5))) (let ((e-13 (vector-ref arg-9 6))) (if (null? e-11) (lambda (eta-0) (let ((act-24 (CoreC-45UnifyState-genVarName arg-1 arg-3 "_" eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) ((TTImpC-45ElabC-45Binders-checkLambda arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-8 e-9 e-10 e-5 e-12 e-13 arg-10) eta-0)))))) (let ((e-107 (unbox e-11))) (TTImpC-45ElabC-45Binders-checkLambda arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-8 e-9 e-10 e-107 e-12 e-13 arg-10)))))))))) ((3) (let ((e-14 (vector-ref arg-9 1))) (let ((e-15 (vector-ref arg-9 2))) (let ((e-16 (vector-ref arg-9 3))) (let ((e-17 (vector-ref arg-9 4))) (let ((e-18 (vector-ref arg-9 5))) (let ((e-19 (vector-ref arg-9 6))) (let ((e-20 (vector-ref arg-9 7))) (TTImpC-45ElabC-45Binders-checkLet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-14 e-15 e-16 e-17 e-18 e-19 e-20 arg-10))))))))) ((4) (let ((e-21 (vector-ref arg-9 1))) (let ((e-22 (vector-ref arg-9 2))) (let ((e-23 (vector-ref arg-9 3))) (let ((e-24 (vector-ref arg-9 4))) (lambda (eta-0) (TTImpC-45ElabC-45Case-checkCase arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-21 e-22 e-23 e-24 arg-10 eta-0))))))) ((5) (let ((e-25 (vector-ref arg-9 1))) (let ((e-26 (vector-ref arg-9 2))) (let ((e-27 (vector-ref arg-9 3))) (lambda (eta-0) (TTImpC-45ElabC-45Local-checkLocal arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-25 e-26 e-27 arg-10 eta-0)))))) ((6) (let ((e-28 (vector-ref arg-9 1))) (let ((e-29 (vector-ref arg-9 2))) (let ((e-30 (vector-ref arg-9 3))) (let ((e-31 (vector-ref arg-9 4))) (let ((e-32 (vector-ref arg-9 5))) (lambda (eta-0) (TTImpC-45ElabC-45Local-checkCaseLocal arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-28 e-29 e-30 e-31 e-32 arg-10 eta-0)))))))) ((7) (let ((e-33 (vector-ref arg-9 1))) (let ((e-34 (vector-ref arg-9 2))) (let ((e-35 (vector-ref arg-9 3))) (lambda (eta-0) (TTImpC-45ElabC-45Record-checkUpdate arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-33 e-34 e-35 arg-10 eta-0)))))) ((8) (let ((e-36 (vector-ref arg-9 1))) (let ((e-37 (vector-ref arg-9 2))) (let ((e-38 (vector-ref arg-9 3))) (TTImpC-45ElabC-45App-checkApp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-36 e-37 (cons e-38 '()) '() '() arg-10))))) ((9) (let ((e-39 (vector-ref arg-9 1))) (let ((e-40 (vector-ref arg-9 2))) (let ((e-41 (vector-ref arg-9 3))) (TTImpC-45ElabC-45App-checkApp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-39 e-40 '() (cons e-41 '()) '() arg-10))))) ((11) (let ((e-42 (vector-ref arg-9 1))) (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 e-42 "with application not implemented yet") eta-0)))) ((10) (let ((e-45 (vector-ref arg-9 1))) (let ((e-46 (vector-ref arg-9 2))) (let ((e-47 (vector-ref arg-9 3))) (let ((e-48 (vector-ref arg-9 4))) (TTImpC-45ElabC-45App-checkApp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-45 e-46 '() '() (cons (cons e-47 e-48) '()) arg-10)))))) ((12) (let ((e-49 (vector-ref arg-9 1))) (let ((e-50 (vector-ref arg-9 2))) (lambda (clam-0) (if (null? arg-10) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45UnifyState-genName arg-1 arg-3 "searchTy" clam-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45ElabC-45Check-metaVar arg-0 arg-1 arg-3 e-49 (AlgebraC-45Semiring-erased (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))) arg-8 e-6 (vector 11 e-49) clam-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (CoreC-45UnifyState-genName arg-1 arg-3 "search" clam-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (let ((act-28 (TTImpC-45ElabC-45Check-searchVar arg-0 arg-1 arg-3 e-49 arg-5 e-50 (vector 9 (let ((e-2 (vector-ref e-5 1))) e-2)) arg-8 arg-7 e-8 e-7 clam-0))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-28 1))) (vector 1 (cons e-9 (CoreC-45Normalise-gnf arg-0 arg-8 e-7))))))))))))))))))))))) (let ((e-110 (unbox arg-10))) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45UnifyState-genName arg-1 arg-3 "search" clam-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 ((CoreC-45Normalise-getTerm e-110) clam-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (TTImpC-45ElabC-45Check-searchVar arg-0 arg-1 arg-3 e-49 arg-5 e-50 (vector 9 (let ((e-2 (vector-ref e-5 1))) e-2)) arg-8 arg-7 e-6 e-7 clam-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (vector 1 (cons e-8 e-110)))))))))))))))))))))))) ((13) (let ((e-51 (vector-ref arg-9 1))) (let ((e-52 (vector-ref arg-9 2))) (let ((e-53 (vector-ref arg-9 3))) (lambda (eta-0) (TTImpC-45ElabC-45Ambiguity-checkAlternative arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-51 e-52 e-53 arg-10 eta-0)))))) ((14) (let ((e-54 (vector-ref arg-9 1))) (let ((e-55 (vector-ref arg-9 2))) (let ((e-56 (vector-ref arg-9 3))) (lambda (eta-0) (TTImpC-45ElabC-45Rewrite-checkRewrite arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-54 e-55 e-56 arg-10 eta-0)))))) ((15) (let ((e-58 (vector-ref arg-9 2))) (TTImpC-45ElabC-45Term-checkTerm arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-58 arg-10))) ((16) (let ((e-59 (vector-ref arg-9 1))) (let ((e-60 (vector-ref arg-9 2))) (let ((e-61 (vector-ref arg-9 3))) (lambda (eta-0) (TTImpC-45ElabC-45ImplicitBind-checkBindHere arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-59 e-60 e-61 arg-10 eta-0)))))) ((17) (let ((e-62 (vector-ref arg-9 1))) (let ((e-63 (vector-ref arg-9 2))) (TTImpC-45ElabC-45ImplicitBind-checkBindVar arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-62 e-63 arg-10)))) ((18) (let ((e-64 (vector-ref arg-9 1))) (let ((e-65 (vector-ref arg-9 2))) (let ((e-66 (vector-ref arg-9 3))) (let ((e-67 (vector-ref arg-9 4))) (let ((e-68 (vector-ref arg-9 5))) (TTImpC-45ElabC-45As-checkAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-64 e-65 e-66 e-67 e-68 arg-10))))))) ((19) (let ((e-69 (vector-ref arg-9 1))) (let ((e-70 (vector-ref arg-9 2))) (let ((e-71 (vector-ref arg-9 3))) (TTImpC-45ElabC-45Dot-checkDot arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-69 e-70 e-71 arg-10))))) ((20) (let ((e-72 (vector-ref arg-9 1))) (let ((e-73 (vector-ref arg-9 2))) (let ((e-74 (vector-ref arg-9 3))) (lambda (eta-0) (TTImpC-45ElabC-45Lazy-checkDelayed arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-72 e-73 e-74 arg-10 eta-0)))))) ((21) (let ((e-75 (vector-ref arg-9 1))) (let ((e-76 (vector-ref arg-9 2))) (lambda (eta-0) (TTImpC-45ElabC-45Lazy-checkDelay arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-75 e-76 arg-10 eta-0))))) ((22) (let ((e-77 (vector-ref arg-9 1))) (let ((e-78 (vector-ref arg-9 2))) (lambda (eta-0) (TTImpC-45ElabC-45Lazy-checkForce arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-77 e-78 arg-10 eta-0))))) ((23) (let ((e-79 (vector-ref arg-9 1))) (let ((e-80 (vector-ref arg-9 2))) (lambda (eta-0) (TTImpC-45ElabC-45Quote-checkQuote arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-79 e-80 arg-10 eta-0))))) ((24) (let ((e-81 (vector-ref arg-9 1))) (let ((e-82 (vector-ref arg-9 2))) (lambda (eta-0) (TTImpC-45ElabC-45Quote-checkQuoteName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-81 e-82 arg-10 eta-0))))) ((25) (let ((e-83 (vector-ref arg-9 1))) (let ((e-84 (vector-ref arg-9 2))) (lambda (eta-0) (TTImpC-45ElabC-45Quote-checkQuoteDecl arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-83 e-84 arg-10 eta-0))))) ((26) (let ((e-85 (vector-ref arg-9 1))) (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 e-85 "Can't escape outside a quoted term") eta-0)))) ((27) (let ((e-87 (vector-ref arg-9 1))) (let ((e-88 (vector-ref arg-9 2))) (lambda (eta-0) (TTImpC-45ElabC-45RunElab-checkRunElab arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-87 e-88 arg-10 eta-0))))) ((28) (let ((e-89 (vector-ref arg-9 1))) (let ((e-90 (vector-ref arg-9 2))) (lambda (clam-1) (let ((sc1 (TTImpC-45ElabC-45Prim-checkPrim e-89 e-90))) (let ((e-2 (car sc1))) (let ((e-3 (cdr sc1))) (TTImpC-45ElabC-45Check-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 e-89 e-2 (CoreC-45Normalise-gnf arg-0 arg-8 e-3) arg-10 clam-1)))))))) ((29) (let ((e-91 (vector-ref arg-9 1))) (lambda (eta-0) (TTImpC-45ElabC-45Check-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 e-91 (vector 11 e-91) (CoreC-45Normalise-gType e-91) arg-10 eta-0)))) ((30) (let ((e-92 (vector-ref arg-9 1))) (let ((e-93 (vector-ref arg-9 2))) (lambda (eta-0) (TTImpC-45ElabC-45Hole-checkHole arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-92 e-93 arg-10 eta-0))))) ((31) (let ((e-95 (vector-ref arg-9 2))) (let ((e-96 (vector-ref arg-9 3))) (lambda (eta-0) (CoreC-45Context-withLogLevel arg-1 e-95 (lambda (eta-1) (TTImpC-45ElabC-45Check-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-96 arg-10 eta-1)) eta-0))))) ((32) (let ((e-97 (vector-ref arg-9 1))) (let ((e-98 (vector-ref arg-9 2))) (lambda (clam-2) (if (null? arg-10) (let ((act-24 (CoreC-45UnifyState-genName arg-1 arg-3 "implicit_type" clam-2))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (TTImpC-45ElabC-45Check-metaVar arg-0 arg-1 arg-3 e-97 (AlgebraC-45Semiring-erased (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))) arg-8 e-5 (vector 11 e-97) clam-2))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45UnifyState-genName arg-1 arg-3 "_" clam-2))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (TTImpC-45ElabC-45Check-metaVar arg-0 arg-1 arg-3 e-97 arg-5 arg-8 e-7 e-6 clam-2))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (let ((act-28 (let ((sc6 (cond ((equal? e-98 1) (let ((e-3 (vector-ref arg-6 3))) e-3)) (else 0)))) (cond ((equal? sc6 1) (let ((act-28 (let ((act-28 (unbox arg-4))) (vector 1 act-28)))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-28 1))) (let ((act-29 (set-box! arg-4 (TTImpC-45ElabC-45Check-addBindIfUnsolved arg-0 e-7 arg-5 (vector 1 ) arg-8 e-8 e-6 e-9)))) (vector 1 act-29))))))) (else (vector 1 0)))))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (vector 1 (cons e-8 (CoreC-45Normalise-gnf arg-0 arg-8 e-6)))))))))))))))))))))) (let ((e-113 (unbox arg-10))) (let ((act-24 (CoreC-45UnifyState-genName arg-1 arg-3 "_" clam-2))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Normalise-getTerm e-113) clam-2))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45ElabC-45Check-metaVar arg-0 arg-1 arg-3 e-97 arg-5 arg-8 e-5 e-6 clam-2))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (let ((sc5 (cond ((equal? e-98 1) (let ((e-3 (vector-ref arg-6 3))) e-3)) (else 0)))) (cond ((equal? sc5 1) (let ((act-27 (let ((act-27 (unbox arg-4))) (vector 1 act-27)))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (let ((act-28 ((CoreC-45Normalise-getTerm e-113) clam-2))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-28 1))) (let ((act-29 (set-box! arg-4 (TTImpC-45ElabC-45Check-addBindIfUnsolved arg-0 e-5 arg-5 (vector 1 ) arg-8 e-7 e-9 e-8)))) (vector 1 act-29))))))))))) (else (vector 1 0)))))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (vector 1 (cons e-7 e-113))))))))))))))))))))))) (else (let ((e-99 (vector-ref arg-9 1))) (let ((e-100 (vector-ref arg-9 2))) (let ((e-101 (vector-ref arg-9 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (TTImpC-45ElabC-45Term-n--10189-15047-u--resolveNames arg-0 e-101 e-100 e-99 arg-10 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-99 e-100 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (let ((act-26 (set-box! arg-4 (let ((e-1 (vector-ref e-5 0))) (let ((e-2 (vector-ref e-5 1))) (let ((e-3 (vector-ref e-5 2))) (let ((e-4 (vector-ref e-5 3))) (let ((e-16 (vector-ref e-5 4))) (let ((e-15 (vector-ref e-5 5))) (let ((e-7 (vector-ref e-5 6))) (let ((e-8 (vector-ref e-5 7))) (let ((e-9 (vector-ref e-5 8))) (let ((e-10 (vector-ref e-5 9))) (let ((e-11 (vector-ref e-5 10))) (let ((e-12 (vector-ref e-5 11))) (let ((e-13 (vector-ref e-5 12))) (vector e-1 e-2 e-3 e-4 e-16 e-15 e-7 e-8 e-9 e-10 e-11 e-12 e-13 (LibrariesC-45DataC-45StringMap-mergeLeft e-6 (let ((e-17 (vector-ref e-5 13))) e-17))))))))))))))))))) (vector 1 act-26)))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((act-27 (TTImpC-45ElabC-45Check-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-101 arg-10 eta-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (let ((act-28 (let ((act-28 (unbox arg-4))) (vector 1 act-28)))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-28 1))) (let ((act-29 (let ((act-29 (set-box! arg-4 (let ((e-1 (vector-ref e-9 0))) (let ((e-2 (vector-ref e-9 1))) (let ((e-3 (vector-ref e-9 2))) (let ((e-4 (vector-ref e-9 3))) (let ((e-19 (vector-ref e-9 4))) (let ((e-18 (vector-ref e-9 5))) (let ((e-17 (vector-ref e-9 6))) (let ((e-16 (vector-ref e-9 7))) (let ((e-15 (vector-ref e-9 8))) (let ((e-10 (vector-ref e-9 9))) (let ((e-11 (vector-ref e-9 10))) (let ((e-12 (vector-ref e-9 11))) (let ((e-13 (vector-ref e-9 12))) (vector e-1 e-2 e-3 e-4 e-19 e-18 e-17 e-16 e-15 e-10 e-11 e-12 e-13 (let ((e-20 (vector-ref e-5 13))) e-20)))))))))))))))))) (vector 1 act-29)))) (case (vector-ref act-29 0) ((0) (let ((e-2 (vector-ref act-29 1))) (vector 0 e-2))) (else (vector 1 e-8))))))))))))))))))))))))))))))) +(define TTImpC-45ElabC-45Check-checkImp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 ext-0) (let ((act-24 ((TTImpC-45ElabC-45Term-checkTerm arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (let ((sc1 (let ((sc2 (TTImpC-45ElabC-45Term-onLHS (let ((e-0 (vector-ref arg-6 0))) e-0)))) (cond ((equal? sc2 1) (let ((sc3 (let ((e-2 (vector-ref arg-6 2))) e-2))) (cond ((equal? sc3 1) 0) (else 1)))) (else 0))))) (cond ((equal? sc1 1) (((let ((e-2 (car e-5))) (let ((e-3 (cdr e-5))) (if (null? arg-10) (lambda () (lambda (eta-0) (vector 1 0))) (let ((e-1 (unbox arg-10))) (lambda () (lambda (eta-0) (let ((act-25 ((CoreC-45Normalise-getNF arg-1 e-1) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 ((CoreC-45Normalise-getNF arg-1 e-3) eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-4 (vector-ref act-26 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref act-26 1))) (CoreC-45UnifyState-addPolyConstraint arg-0 arg-3 (TTImpC-45TTImp-getFC arg-9) arg-8 e-2 e-6 e-7 eta-0)))))))))))))))) ext-0)) (else (vector 1 0)))))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (vector 1 e-5)))))))))) +(define TTImpC-45ElabC-45Check-check (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 ext-0) (case (vector-ref arg-9 0) ((15) (let ((e-1 (vector-ref arg-9 2))) (TTImpC-45ElabC-45Check-checkImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-1 arg-10 ext-0))) ((3) (TTImpC-45ElabC-45Check-checkImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 ext-0)) ((5) (TTImpC-45ElabC-45Check-checkImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 ext-0)) ((7) (TTImpC-45ElabC-45Check-checkImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 ext-0))(else (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 (let ((act-25 (unbox arg-4))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 ((TTImpC-45ElabC-45Ambiguity-expandAmbigName arg-0 arg-1 arg-4 (let ((e-0 (vector-ref arg-6 0))) e-0) arg-7 arg-8 arg-9 '() arg-9 arg-10) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((e-0 (vector-ref arg-6 0))) (case (vector-ref e-0 0) ((1) (TTImpC-45ElabC-45Check-checkImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-7 arg-10 ext-0))(else (let ((act-27 (TTImpC-45ElabC-45Term-insertImpLam arg-1 arg-3 arg-8 e-7 arg-10 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-9 (vector-ref act-27 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref act-27 1))) (TTImpC-45ElabC-45Check-checkImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-9 arg-10 ext-0)))))))))))))))))))))) +(define TTImpC-45Reflect-u--reify_Reify_UseSide (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (case (vector-ref arg-3 0) ((2) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-3 (vector-ref arg-3 3))) (let ((e-4 (vector-ref arg-3 4))) (let ((e-5 (vector-ref arg-3 5))) (let ((act-24 (CoreC-45Context-u--full_HasNames_Name (let ((e-0 (vector-ref arg-2 0))) e-0) e-2 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((u--val (vector 2 e-1 e-2 e-3 e-4 e-5))) (case (vector-ref e-6 0) ((0) (let ((e-7 (vector-ref e-6 2))) (case (vector-ref e-7 0) ((1) (let ((e-9 (vector-ref e-7 1))) (cond ((equal? e-9 "UseLeft") (vector 1 0)) ((equal? e-9 "UseRight") (vector 1 1))(else (CoreC-45Reflect-cantReify u--val "UseSide" ext-0)))))(else (CoreC-45Reflect-cantReify u--val "UseSide" ext-0)))))(else (CoreC-45Reflect-cantReify u--val "UseSide" ext-0))))))))))))))(else (CoreC-45Reflect-cantReify arg-3 "UseSide" ext-0))))) +(define TTImpC-45Reflect-u--reify_Reify_RawImp (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (case (vector-ref arg-3 0) ((2) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-3 (vector-ref arg-3 3))) (let ((e-4 (vector-ref arg-3 4))) (let ((e-5 (vector-ref arg-3 5))) (let ((act-24 (CoreC-45Context-u--full_HasNames_Name (let ((e-0 (vector-ref arg-2 0))) e-0) e-2 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((u--val (vector 2 e-1 e-2 e-3 e-4 e-5))) (case (vector-ref e-6 0) ((0) (let ((e-7 (vector-ref e-6 2))) (case (vector-ref e-7 0) ((1) (let ((e-9 (vector-ref e-7 1))) (cond ((equal? e-9 "IVar") (let ((sc5 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5))) (if (null? sc5) (CoreC-45Reflect-cantReify u--val "TTImp" ext-0) (let ((e-11 (car sc5))) (let ((e-10 (cdr sc5))) (if (null? e-10) (CoreC-45Reflect-cantReify u--val "TTImp" ext-0) (let ((e-13 (car e-10))) (let ((e-12 (cdr e-10))) (if (null? e-12) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-11) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-14 (vector-ref act-25 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref act-25 1))) (CoreC-45Reflect-u--reify_Reify_FC arg-0 arg-1 arg-2 e-14 ext-0))))))) (case (vector-ref act-25 0) ((0) (let ((e-14 (vector-ref act-25 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref act-25 1))) (let ((act-26 (let ((act-26 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-13) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-15 (vector-ref act-26 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref act-26 1))) (CoreC-45Reflect-u--reify_Reify_Name arg-0 arg-1 arg-2 e-15 ext-0))))))) (case (vector-ref act-26 0) ((0) (let ((e-15 (vector-ref act-26 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref act-26 1))) (vector 1 (vector 0 e-14 e-15)))))))))) (CoreC-45Reflect-cantReify u--val "TTImp" ext-0)))))))))) ((equal? e-9 "IPi") (let ((sc5 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5))) (if (null? sc5) (CoreC-45Reflect-cantReify u--val "TTImp" ext-0) (let ((e-15 (car sc5))) (let ((e-16 (cdr sc5))) (if (null? e-16) (CoreC-45Reflect-cantReify u--val "TTImp" ext-0) (let ((e-18 (car e-16))) (let ((e-19 (cdr e-16))) (if (null? e-19) (CoreC-45Reflect-cantReify u--val "TTImp" ext-0) (let ((e-21 (car e-19))) (let ((e-22 (cdr e-19))) (if (null? e-22) (CoreC-45Reflect-cantReify u--val "TTImp" ext-0) (let ((e-24 (car e-22))) (let ((e-25 (cdr e-22))) (if (null? e-25) (CoreC-45Reflect-cantReify u--val "TTImp" ext-0) (let ((e-27 (car e-25))) (let ((e-28 (cdr e-25))) (if (null? e-28) (CoreC-45Reflect-cantReify u--val "TTImp" ext-0) (let ((e-30 (car e-28))) (let ((e-31 (cdr e-28))) (if (null? e-31) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-15) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (CoreC-45Reflect-u--reify_Reify_FC arg-0 arg-1 arg-2 e-10 ext-0))))))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (let ((act-26 (let ((act-26 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-18) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-11 (vector-ref act-26 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-26 1))) (CoreC-45Reflect-u--reify_Reify_RigCount arg-0 arg-1 arg-2 e-11 ext-0))))))) (case (vector-ref act-26 0) ((0) (let ((e-11 (vector-ref act-26 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-26 1))) (let ((act-27 (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-21) ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-12 (vector-ref act-27 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref act-27 1))) (CoreC-45Reflect-u--reify_Reify_C-40PiInfoC-32C-36tC-41 (lambda (u--c) (lambda (u--vars) (lambda (arg-6833) (lambda (arg-6834) (lambda (eta-0) (TTImpC-45Reflect-u--reify_Reify_RawImp u--c u--vars arg-6833 arg-6834 eta-0)))))) arg-0 arg-1 arg-2 e-12 ext-0))))))) (case (vector-ref act-27 0) ((0) (let ((e-12 (vector-ref act-27 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref act-27 1))) (let ((act-28 (let ((act-28 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-24) ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-13 (vector-ref act-28 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref act-28 1))) (CoreC-45Reflect-u--reify_Reify_C-40MaybeC-32C-36aC-41 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (CoreC-45Reflect-u--reify_Reify_Name eta-0 eta-1 eta-2 eta-3 eta-4)))))) arg-0 arg-1 arg-2 e-13 ext-0))))))) (case (vector-ref act-28 0) ((0) (let ((e-13 (vector-ref act-28 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref act-28 1))) (let ((act-29 (let ((act-29 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-27) ext-0))) (case (vector-ref act-29 0) ((0) (let ((e-14 (vector-ref act-29 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref act-29 1))) (TTImpC-45Reflect-u--reify_Reify_RawImp arg-0 arg-1 arg-2 e-14 ext-0))))))) (case (vector-ref act-29 0) ((0) (let ((e-14 (vector-ref act-29 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref act-29 1))) (let ((act-30 (let ((act-30 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-30) ext-0))) (case (vector-ref act-30 0) ((0) (let ((e-17 (vector-ref act-30 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref act-30 1))) (TTImpC-45Reflect-u--reify_Reify_RawImp arg-0 arg-1 arg-2 e-17 ext-0))))))) (case (vector-ref act-30 0) ((0) (let ((e-17 (vector-ref act-30 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref act-30 1))) (vector 1 (vector 1 e-10 e-11 e-12 e-13 e-14 e-17)))))))))))))))))))))))))) (CoreC-45Reflect-cantReify u--val "TTImp" ext-0)))))))))))))))))))))) ((equal? e-9 "ILam") (let ((sc5 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5))) (if (null? sc5) (CoreC-45Reflect-cantReify u--val "TTImp" ext-0) (let ((e-34 (car sc5))) (let ((e-35 (cdr sc5))) (if (null? e-35) (CoreC-45Reflect-cantReify u--val "TTImp" ext-0) (let ((e-37 (car e-35))) (let ((e-38 (cdr e-35))) (if (null? e-38) (CoreC-45Reflect-cantReify u--val "TTImp" ext-0) (let ((e-40 (car e-38))) (let ((e-41 (cdr e-38))) (if (null? e-41) (CoreC-45Reflect-cantReify u--val "TTImp" ext-0) (let ((e-43 (car e-41))) (let ((e-44 (cdr e-41))) (if (null? e-44) (CoreC-45Reflect-cantReify u--val "TTImp" ext-0) (let ((e-46 (car e-44))) (let ((e-47 (cdr e-44))) (if (null? e-47) (CoreC-45Reflect-cantReify u--val "TTImp" ext-0) (let ((e-49 (car e-47))) (let ((e-50 (cdr e-47))) (if (null? e-50) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-34) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (CoreC-45Reflect-u--reify_Reify_FC arg-0 arg-1 arg-2 e-10 ext-0))))))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (let ((act-26 (let ((act-26 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-37) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-11 (vector-ref act-26 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-26 1))) (CoreC-45Reflect-u--reify_Reify_RigCount arg-0 arg-1 arg-2 e-11 ext-0))))))) (case (vector-ref act-26 0) ((0) (let ((e-11 (vector-ref act-26 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-26 1))) (let ((act-27 (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-40) ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-12 (vector-ref act-27 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref act-27 1))) (CoreC-45Reflect-u--reify_Reify_C-40PiInfoC-32C-36tC-41 (lambda (u--c) (lambda (u--vars) (lambda (arg-6833) (lambda (arg-6834) (lambda (eta-0) (TTImpC-45Reflect-u--reify_Reify_RawImp u--c u--vars arg-6833 arg-6834 eta-0)))))) arg-0 arg-1 arg-2 e-12 ext-0))))))) (case (vector-ref act-27 0) ((0) (let ((e-12 (vector-ref act-27 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref act-27 1))) (let ((act-28 (let ((act-28 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-43) ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-13 (vector-ref act-28 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref act-28 1))) (CoreC-45Reflect-u--reify_Reify_C-40MaybeC-32C-36aC-41 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (CoreC-45Reflect-u--reify_Reify_Name eta-0 eta-1 eta-2 eta-3 eta-4)))))) arg-0 arg-1 arg-2 e-13 ext-0))))))) (case (vector-ref act-28 0) ((0) (let ((e-13 (vector-ref act-28 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref act-28 1))) (let ((act-29 (let ((act-29 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-46) ext-0))) (case (vector-ref act-29 0) ((0) (let ((e-14 (vector-ref act-29 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref act-29 1))) (TTImpC-45Reflect-u--reify_Reify_RawImp arg-0 arg-1 arg-2 e-14 ext-0))))))) (case (vector-ref act-29 0) ((0) (let ((e-14 (vector-ref act-29 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref act-29 1))) (let ((act-30 (let ((act-30 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-49) ext-0))) (case (vector-ref act-30 0) ((0) (let ((e-15 (vector-ref act-30 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref act-30 1))) (TTImpC-45Reflect-u--reify_Reify_RawImp arg-0 arg-1 arg-2 e-15 ext-0))))))) (case (vector-ref act-30 0) ((0) (let ((e-15 (vector-ref act-30 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref act-30 1))) (vector 1 (vector 2 e-10 e-11 e-12 e-13 e-14 e-15)))))))))))))))))))))))))) (CoreC-45Reflect-cantReify u--val "TTImp" ext-0)))))))))))))))))))))) ((equal? e-9 "ILet") (let ((sc5 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5))) (if (null? sc5) (CoreC-45Reflect-cantReify u--val "TTImp" ext-0) (let ((e-53 (car sc5))) (let ((e-54 (cdr sc5))) (if (null? e-54) (CoreC-45Reflect-cantReify u--val "TTImp" ext-0) (let ((e-56 (car e-54))) (let ((e-57 (cdr e-54))) (if (null? e-57) (CoreC-45Reflect-cantReify u--val "TTImp" ext-0) (let ((e-59 (car e-57))) (let ((e-60 (cdr e-57))) (if (null? e-60) (CoreC-45Reflect-cantReify u--val "TTImp" ext-0) (let ((e-62 (car e-60))) (let ((e-63 (cdr e-60))) (if (null? e-63) (CoreC-45Reflect-cantReify u--val "TTImp" ext-0) (let ((e-65 (car e-63))) (let ((e-66 (cdr e-63))) (if (null? e-66) (CoreC-45Reflect-cantReify u--val "TTImp" ext-0) (let ((e-68 (car e-66))) (let ((e-69 (cdr e-66))) (if (null? e-69) (CoreC-45Reflect-cantReify u--val "TTImp" ext-0) (let ((e-71 (car e-69))) (let ((e-72 (cdr e-69))) (if (null? e-72) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-53) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (CoreC-45Reflect-u--reify_Reify_FC arg-0 arg-1 arg-2 e-10 ext-0))))))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (let ((act-26 (let ((act-26 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-56) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-11 (vector-ref act-26 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-26 1))) (CoreC-45Reflect-u--reify_Reify_FC arg-0 arg-1 arg-2 e-11 ext-0))))))) (case (vector-ref act-26 0) ((0) (let ((e-11 (vector-ref act-26 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-26 1))) (let ((act-27 (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-59) ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-12 (vector-ref act-27 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref act-27 1))) (CoreC-45Reflect-u--reify_Reify_RigCount arg-0 arg-1 arg-2 e-12 ext-0))))))) (case (vector-ref act-27 0) ((0) (let ((e-12 (vector-ref act-27 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref act-27 1))) (let ((act-28 (let ((act-28 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-62) ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-13 (vector-ref act-28 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref act-28 1))) (CoreC-45Reflect-u--reify_Reify_Name arg-0 arg-1 arg-2 e-13 ext-0))))))) (case (vector-ref act-28 0) ((0) (let ((e-13 (vector-ref act-28 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref act-28 1))) (let ((act-29 (let ((act-29 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-65) ext-0))) (case (vector-ref act-29 0) ((0) (let ((e-14 (vector-ref act-29 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref act-29 1))) (TTImpC-45Reflect-u--reify_Reify_RawImp arg-0 arg-1 arg-2 e-14 ext-0))))))) (case (vector-ref act-29 0) ((0) (let ((e-14 (vector-ref act-29 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref act-29 1))) (let ((act-30 (let ((act-30 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-68) ext-0))) (case (vector-ref act-30 0) ((0) (let ((e-15 (vector-ref act-30 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref act-30 1))) (TTImpC-45Reflect-u--reify_Reify_RawImp arg-0 arg-1 arg-2 e-15 ext-0))))))) (case (vector-ref act-30 0) ((0) (let ((e-15 (vector-ref act-30 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref act-30 1))) (let ((act-31 (let ((act-31 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-71) ext-0))) (case (vector-ref act-31 0) ((0) (let ((e-16 (vector-ref act-31 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref act-31 1))) (TTImpC-45Reflect-u--reify_Reify_RawImp arg-0 arg-1 arg-2 e-16 ext-0))))))) (case (vector-ref act-31 0) ((0) (let ((e-16 (vector-ref act-31 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref act-31 1))) (vector 1 (vector 3 e-10 e-11 e-12 e-13 e-14 e-15 e-16)))))))))))))))))))))))))))))) (CoreC-45Reflect-cantReify u--val "TTImp" ext-0))))))))))))))))))))))))) ((equal? e-9 "ICase") (let ((sc5 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5))) (if (null? sc5) (CoreC-45Reflect-cantReify u--val "TTImp" ext-0) (let ((e-75 (car sc5))) (let ((e-76 (cdr sc5))) (if (null? e-76) (CoreC-45Reflect-cantReify u--val "TTImp" ext-0) (let ((e-78 (car e-76))) (let ((e-79 (cdr e-76))) (if (null? e-79) (CoreC-45Reflect-cantReify u--val "TTImp" ext-0) (let ((e-81 (car e-79))) (let ((e-82 (cdr e-79))) (if (null? e-82) (CoreC-45Reflect-cantReify u--val "TTImp" ext-0) (let ((e-84 (car e-82))) (let ((e-85 (cdr e-82))) (if (null? e-85) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-75) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (CoreC-45Reflect-u--reify_Reify_FC arg-0 arg-1 arg-2 e-10 ext-0))))))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (let ((act-26 (let ((act-26 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-78) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-11 (vector-ref act-26 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-26 1))) (TTImpC-45Reflect-u--reify_Reify_RawImp arg-0 arg-1 arg-2 e-11 ext-0))))))) (case (vector-ref act-26 0) ((0) (let ((e-11 (vector-ref act-26 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-26 1))) (let ((act-27 (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-81) ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-12 (vector-ref act-27 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref act-27 1))) (TTImpC-45Reflect-u--reify_Reify_RawImp arg-0 arg-1 arg-2 e-12 ext-0))))))) (case (vector-ref act-27 0) ((0) (let ((e-12 (vector-ref act-27 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref act-27 1))) (let ((act-28 (let ((act-28 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-84) ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-13 (vector-ref act-28 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref act-28 1))) (CoreC-45Reflect-u--reify_Reify_C-40ListC-32C-36aC-41 (lambda (u--c) (lambda (u--vars) (lambda (arg-6833) (lambda (arg-6834) (lambda (eta-0) (TTImpC-45Reflect-u--reify_Reify_ImpClause u--c u--vars arg-6833 arg-6834 eta-0)))))) arg-0 arg-1 arg-2 e-13 ext-0))))))) (case (vector-ref act-28 0) ((0) (let ((e-13 (vector-ref act-28 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref act-28 1))) (vector 1 (vector 4 e-10 e-11 e-12 e-13)))))))))))))))))) (CoreC-45Reflect-cantReify u--val "TTImp" ext-0)))))))))))))))) ((equal? e-9 "ILocal") (let ((sc5 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5))) (if (null? sc5) (CoreC-45Reflect-cantReify u--val "TTImp" ext-0) (let ((e-88 (car sc5))) (let ((e-89 (cdr sc5))) (if (null? e-89) (CoreC-45Reflect-cantReify u--val "TTImp" ext-0) (let ((e-91 (car e-89))) (let ((e-92 (cdr e-89))) (if (null? e-92) (CoreC-45Reflect-cantReify u--val "TTImp" ext-0) (let ((e-94 (car e-92))) (let ((e-95 (cdr e-92))) (if (null? e-95) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-88) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (CoreC-45Reflect-u--reify_Reify_FC arg-0 arg-1 arg-2 e-10 ext-0))))))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (let ((act-26 (let ((act-26 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-91) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-11 (vector-ref act-26 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-26 1))) (CoreC-45Reflect-u--reify_Reify_C-40ListC-32C-36aC-41 (lambda (u--c) (lambda (u--vars) (lambda (arg-6833) (lambda (arg-6834) (lambda (eta-0) (TTImpC-45Reflect-u--reify_Reify_ImpDecl u--c u--vars arg-6833 arg-6834 eta-0)))))) arg-0 arg-1 arg-2 e-11 ext-0))))))) (case (vector-ref act-26 0) ((0) (let ((e-11 (vector-ref act-26 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-26 1))) (let ((act-27 (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-94) ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-12 (vector-ref act-27 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref act-27 1))) (TTImpC-45Reflect-u--reify_Reify_RawImp arg-0 arg-1 arg-2 e-12 ext-0))))))) (case (vector-ref act-27 0) ((0) (let ((e-12 (vector-ref act-27 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref act-27 1))) (vector 1 (vector 5 e-10 e-11 e-12)))))))))))))) (CoreC-45Reflect-cantReify u--val "TTImp" ext-0))))))))))))) ((equal? e-9 "IUpdate") (let ((sc5 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5))) (if (null? sc5) (CoreC-45Reflect-cantReify u--val "TTImp" ext-0) (let ((e-98 (car sc5))) (let ((e-99 (cdr sc5))) (if (null? e-99) (CoreC-45Reflect-cantReify u--val "TTImp" ext-0) (let ((e-101 (car e-99))) (let ((e-102 (cdr e-99))) (if (null? e-102) (CoreC-45Reflect-cantReify u--val "TTImp" ext-0) (let ((e-104 (car e-102))) (let ((e-105 (cdr e-102))) (if (null? e-105) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-98) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (CoreC-45Reflect-u--reify_Reify_FC arg-0 arg-1 arg-2 e-10 ext-0))))))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (let ((act-26 (let ((act-26 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-101) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-11 (vector-ref act-26 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-26 1))) (CoreC-45Reflect-u--reify_Reify_C-40ListC-32C-36aC-41 (lambda (u--c) (lambda (u--vars) (lambda (arg-6833) (lambda (arg-6834) (lambda (eta-0) (TTImpC-45Reflect-u--reify_Reify_IFieldUpdate u--c u--vars arg-6833 arg-6834 eta-0)))))) arg-0 arg-1 arg-2 e-11 ext-0))))))) (case (vector-ref act-26 0) ((0) (let ((e-11 (vector-ref act-26 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-26 1))) (let ((act-27 (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-104) ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-12 (vector-ref act-27 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref act-27 1))) (TTImpC-45Reflect-u--reify_Reify_RawImp arg-0 arg-1 arg-2 e-12 ext-0))))))) (case (vector-ref act-27 0) ((0) (let ((e-12 (vector-ref act-27 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref act-27 1))) (vector 1 (vector 7 e-10 e-11 e-12)))))))))))))) (CoreC-45Reflect-cantReify u--val "TTImp" ext-0))))))))))))) ((equal? e-9 "IApp") (let ((sc5 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5))) (if (null? sc5) (CoreC-45Reflect-cantReify u--val "TTImp" ext-0) (let ((e-108 (car sc5))) (let ((e-109 (cdr sc5))) (if (null? e-109) (CoreC-45Reflect-cantReify u--val "TTImp" ext-0) (let ((e-111 (car e-109))) (let ((e-112 (cdr e-109))) (if (null? e-112) (CoreC-45Reflect-cantReify u--val "TTImp" ext-0) (let ((e-114 (car e-112))) (let ((e-115 (cdr e-112))) (if (null? e-115) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-108) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (CoreC-45Reflect-u--reify_Reify_FC arg-0 arg-1 arg-2 e-10 ext-0))))))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (let ((act-26 (let ((act-26 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-111) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-11 (vector-ref act-26 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-26 1))) (TTImpC-45Reflect-u--reify_Reify_RawImp arg-0 arg-1 arg-2 e-11 ext-0))))))) (case (vector-ref act-26 0) ((0) (let ((e-11 (vector-ref act-26 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-26 1))) (let ((act-27 (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-114) ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-12 (vector-ref act-27 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref act-27 1))) (TTImpC-45Reflect-u--reify_Reify_RawImp arg-0 arg-1 arg-2 e-12 ext-0))))))) (case (vector-ref act-27 0) ((0) (let ((e-12 (vector-ref act-27 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref act-27 1))) (vector 1 (vector 8 e-10 e-11 e-12)))))))))))))) (CoreC-45Reflect-cantReify u--val "TTImp" ext-0))))))))))))) ((equal? e-9 "INamedApp") (let ((sc5 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5))) (if (null? sc5) (CoreC-45Reflect-cantReify u--val "TTImp" ext-0) (let ((e-118 (car sc5))) (let ((e-119 (cdr sc5))) (if (null? e-119) (CoreC-45Reflect-cantReify u--val "TTImp" ext-0) (let ((e-121 (car e-119))) (let ((e-122 (cdr e-119))) (if (null? e-122) (CoreC-45Reflect-cantReify u--val "TTImp" ext-0) (let ((e-124 (car e-122))) (let ((e-125 (cdr e-122))) (if (null? e-125) (CoreC-45Reflect-cantReify u--val "TTImp" ext-0) (let ((e-127 (car e-125))) (let ((e-128 (cdr e-125))) (if (null? e-128) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-118) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (CoreC-45Reflect-u--reify_Reify_FC arg-0 arg-1 arg-2 e-10 ext-0))))))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (let ((act-26 (let ((act-26 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-121) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-11 (vector-ref act-26 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-26 1))) (TTImpC-45Reflect-u--reify_Reify_RawImp arg-0 arg-1 arg-2 e-11 ext-0))))))) (case (vector-ref act-26 0) ((0) (let ((e-11 (vector-ref act-26 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-26 1))) (let ((act-27 (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-124) ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-12 (vector-ref act-27 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref act-27 1))) (CoreC-45Reflect-u--reify_Reify_Name arg-0 arg-1 arg-2 e-12 ext-0))))))) (case (vector-ref act-27 0) ((0) (let ((e-12 (vector-ref act-27 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref act-27 1))) (let ((act-28 (let ((act-28 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-127) ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-13 (vector-ref act-28 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref act-28 1))) (TTImpC-45Reflect-u--reify_Reify_RawImp arg-0 arg-1 arg-2 e-13 ext-0))))))) (case (vector-ref act-28 0) ((0) (let ((e-13 (vector-ref act-28 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref act-28 1))) (vector 1 (vector 10 e-10 e-11 e-12 e-13)))))))))))))))))) (CoreC-45Reflect-cantReify u--val "TTImp" ext-0)))))))))))))))) ((equal? e-9 "IAutoApp") (let ((sc5 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5))) (if (null? sc5) (CoreC-45Reflect-cantReify u--val "TTImp" ext-0) (let ((e-131 (car sc5))) (let ((e-132 (cdr sc5))) (if (null? e-132) (CoreC-45Reflect-cantReify u--val "TTImp" ext-0) (let ((e-134 (car e-132))) (let ((e-135 (cdr e-132))) (if (null? e-135) (CoreC-45Reflect-cantReify u--val "TTImp" ext-0) (let ((e-137 (car e-135))) (let ((e-138 (cdr e-135))) (if (null? e-138) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-131) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (CoreC-45Reflect-u--reify_Reify_FC arg-0 arg-1 arg-2 e-10 ext-0))))))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (let ((act-26 (let ((act-26 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-134) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-11 (vector-ref act-26 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-26 1))) (TTImpC-45Reflect-u--reify_Reify_RawImp arg-0 arg-1 arg-2 e-11 ext-0))))))) (case (vector-ref act-26 0) ((0) (let ((e-11 (vector-ref act-26 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-26 1))) (let ((act-27 (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-137) ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-12 (vector-ref act-27 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref act-27 1))) (TTImpC-45Reflect-u--reify_Reify_RawImp arg-0 arg-1 arg-2 e-12 ext-0))))))) (case (vector-ref act-27 0) ((0) (let ((e-12 (vector-ref act-27 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref act-27 1))) (vector 1 (vector 9 e-10 e-11 e-12)))))))))))))) (CoreC-45Reflect-cantReify u--val "TTImp" ext-0))))))))))))) ((equal? e-9 "IWithApp") (let ((sc5 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5))) (if (null? sc5) (CoreC-45Reflect-cantReify u--val "TTImp" ext-0) (let ((e-141 (car sc5))) (let ((e-142 (cdr sc5))) (if (null? e-142) (CoreC-45Reflect-cantReify u--val "TTImp" ext-0) (let ((e-144 (car e-142))) (let ((e-145 (cdr e-142))) (if (null? e-145) (CoreC-45Reflect-cantReify u--val "TTImp" ext-0) (let ((e-147 (car e-145))) (let ((e-148 (cdr e-145))) (if (null? e-148) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-141) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (CoreC-45Reflect-u--reify_Reify_FC arg-0 arg-1 arg-2 e-10 ext-0))))))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (let ((act-26 (let ((act-26 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-144) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-11 (vector-ref act-26 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-26 1))) (TTImpC-45Reflect-u--reify_Reify_RawImp arg-0 arg-1 arg-2 e-11 ext-0))))))) (case (vector-ref act-26 0) ((0) (let ((e-11 (vector-ref act-26 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-26 1))) (let ((act-27 (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-147) ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-12 (vector-ref act-27 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref act-27 1))) (TTImpC-45Reflect-u--reify_Reify_RawImp arg-0 arg-1 arg-2 e-12 ext-0))))))) (case (vector-ref act-27 0) ((0) (let ((e-12 (vector-ref act-27 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref act-27 1))) (vector 1 (vector 11 e-10 e-11 e-12)))))))))))))) (CoreC-45Reflect-cantReify u--val "TTImp" ext-0))))))))))))) ((equal? e-9 "ISearch") (let ((sc5 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5))) (if (null? sc5) (CoreC-45Reflect-cantReify u--val "TTImp" ext-0) (let ((e-151 (car sc5))) (let ((e-152 (cdr sc5))) (if (null? e-152) (CoreC-45Reflect-cantReify u--val "TTImp" ext-0) (let ((e-154 (car e-152))) (let ((e-155 (cdr e-152))) (if (null? e-155) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-151) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (CoreC-45Reflect-u--reify_Reify_FC arg-0 arg-1 arg-2 e-10 ext-0))))))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (let ((act-26 (let ((act-26 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-154) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-11 (vector-ref act-26 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-26 1))) (CoreC-45Reflect-u--reify_Reify_Nat arg-0 arg-1 arg-2 e-11 ext-0))))))) (case (vector-ref act-26 0) ((0) (let ((e-11 (vector-ref act-26 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-26 1))) (vector 1 (vector 12 e-10 e-11)))))))))) (CoreC-45Reflect-cantReify u--val "TTImp" ext-0)))))))))) ((equal? e-9 "IAlternative") (let ((sc5 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5))) (if (null? sc5) (CoreC-45Reflect-cantReify u--val "TTImp" ext-0) (let ((e-158 (car sc5))) (let ((e-159 (cdr sc5))) (if (null? e-159) (CoreC-45Reflect-cantReify u--val "TTImp" ext-0) (let ((e-161 (car e-159))) (let ((e-162 (cdr e-159))) (if (null? e-162) (CoreC-45Reflect-cantReify u--val "TTImp" ext-0) (let ((e-164 (car e-162))) (let ((e-165 (cdr e-162))) (if (null? e-165) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-158) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (CoreC-45Reflect-u--reify_Reify_FC arg-0 arg-1 arg-2 e-10 ext-0))))))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (let ((act-26 (let ((act-26 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-161) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-11 (vector-ref act-26 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-26 1))) (TTImpC-45Reflect-u--reify_Reify_AltType arg-0 arg-1 arg-2 e-11 ext-0))))))) (case (vector-ref act-26 0) ((0) (let ((e-11 (vector-ref act-26 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-26 1))) (let ((act-27 (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-164) ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-12 (vector-ref act-27 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref act-27 1))) (CoreC-45Reflect-u--reify_Reify_C-40ListC-32C-36aC-41 (lambda (u--c) (lambda (u--vars) (lambda (arg-6833) (lambda (arg-6834) (lambda (eta-0) (TTImpC-45Reflect-u--reify_Reify_RawImp u--c u--vars arg-6833 arg-6834 eta-0)))))) arg-0 arg-1 arg-2 e-12 ext-0))))))) (case (vector-ref act-27 0) ((0) (let ((e-12 (vector-ref act-27 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref act-27 1))) (vector 1 (vector 13 e-10 e-11 e-12)))))))))))))) (CoreC-45Reflect-cantReify u--val "TTImp" ext-0))))))))))))) ((equal? e-9 "IRewrite") (let ((sc5 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5))) (if (null? sc5) (CoreC-45Reflect-cantReify u--val "TTImp" ext-0) (let ((e-168 (car sc5))) (let ((e-169 (cdr sc5))) (if (null? e-169) (CoreC-45Reflect-cantReify u--val "TTImp" ext-0) (let ((e-171 (car e-169))) (let ((e-172 (cdr e-169))) (if (null? e-172) (CoreC-45Reflect-cantReify u--val "TTImp" ext-0) (let ((e-174 (car e-172))) (let ((e-175 (cdr e-172))) (if (null? e-175) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-168) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (CoreC-45Reflect-u--reify_Reify_FC arg-0 arg-1 arg-2 e-10 ext-0))))))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (let ((act-26 (let ((act-26 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-171) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-11 (vector-ref act-26 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-26 1))) (TTImpC-45Reflect-u--reify_Reify_RawImp arg-0 arg-1 arg-2 e-11 ext-0))))))) (case (vector-ref act-26 0) ((0) (let ((e-11 (vector-ref act-26 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-26 1))) (let ((act-27 (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-174) ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-12 (vector-ref act-27 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref act-27 1))) (TTImpC-45Reflect-u--reify_Reify_RawImp arg-0 arg-1 arg-2 e-12 ext-0))))))) (case (vector-ref act-27 0) ((0) (let ((e-12 (vector-ref act-27 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref act-27 1))) (vector 1 (vector 14 e-10 e-11 e-12)))))))))))))) (CoreC-45Reflect-cantReify u--val "TTImp" ext-0))))))))))))) ((equal? e-9 "IBindHere") (let ((sc5 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5))) (if (null? sc5) (CoreC-45Reflect-cantReify u--val "TTImp" ext-0) (let ((e-178 (car sc5))) (let ((e-179 (cdr sc5))) (if (null? e-179) (CoreC-45Reflect-cantReify u--val "TTImp" ext-0) (let ((e-181 (car e-179))) (let ((e-182 (cdr e-179))) (if (null? e-182) (CoreC-45Reflect-cantReify u--val "TTImp" ext-0) (let ((e-184 (car e-182))) (let ((e-185 (cdr e-182))) (if (null? e-185) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-178) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (CoreC-45Reflect-u--reify_Reify_FC arg-0 arg-1 arg-2 e-10 ext-0))))))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (let ((act-26 (let ((act-26 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-181) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-11 (vector-ref act-26 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-26 1))) (TTImpC-45Reflect-u--reify_Reify_BindMode arg-0 arg-1 arg-2 e-11 ext-0))))))) (case (vector-ref act-26 0) ((0) (let ((e-11 (vector-ref act-26 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-26 1))) (let ((act-27 (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-184) ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-12 (vector-ref act-27 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref act-27 1))) (TTImpC-45Reflect-u--reify_Reify_RawImp arg-0 arg-1 arg-2 e-12 ext-0))))))) (case (vector-ref act-27 0) ((0) (let ((e-12 (vector-ref act-27 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref act-27 1))) (vector 1 (vector 16 e-10 e-11 e-12)))))))))))))) (CoreC-45Reflect-cantReify u--val "TTImp" ext-0))))))))))))) ((equal? e-9 "IBindVar") (let ((sc5 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5))) (if (null? sc5) (CoreC-45Reflect-cantReify u--val "TTImp" ext-0) (let ((e-188 (car sc5))) (let ((e-189 (cdr sc5))) (if (null? e-189) (CoreC-45Reflect-cantReify u--val "TTImp" ext-0) (let ((e-191 (car e-189))) (let ((e-192 (cdr e-189))) (if (null? e-192) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-188) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (CoreC-45Reflect-u--reify_Reify_FC arg-0 arg-1 arg-2 e-10 ext-0))))))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (let ((act-26 (let ((act-26 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-191) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-11 (vector-ref act-26 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-26 1))) ((CoreC-45Reflect-u--reify_Reify_String arg-0 arg-1 arg-2 e-11) ext-0))))))) (case (vector-ref act-26 0) ((0) (let ((e-11 (vector-ref act-26 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-26 1))) (vector 1 (vector 17 e-10 e-11)))))))))) (CoreC-45Reflect-cantReify u--val "TTImp" ext-0)))))))))) ((equal? e-9 "IAs") (let ((sc5 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5))) (if (null? sc5) (CoreC-45Reflect-cantReify u--val "TTImp" ext-0) (let ((e-195 (car sc5))) (let ((e-196 (cdr sc5))) (if (null? e-196) (CoreC-45Reflect-cantReify u--val "TTImp" ext-0) (let ((e-198 (car e-196))) (let ((e-199 (cdr e-196))) (if (null? e-199) (CoreC-45Reflect-cantReify u--val "TTImp" ext-0) (let ((e-201 (car e-199))) (let ((e-202 (cdr e-199))) (if (null? e-202) (CoreC-45Reflect-cantReify u--val "TTImp" ext-0) (let ((e-204 (car e-202))) (let ((e-205 (cdr e-202))) (if (null? e-205) (CoreC-45Reflect-cantReify u--val "TTImp" ext-0) (let ((e-207 (car e-205))) (let ((e-208 (cdr e-205))) (if (null? e-208) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-195) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (CoreC-45Reflect-u--reify_Reify_FC arg-0 arg-1 arg-2 e-10 ext-0))))))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (let ((act-26 (let ((act-26 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-198) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-11 (vector-ref act-26 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-26 1))) (CoreC-45Reflect-u--reify_Reify_FC arg-0 arg-1 arg-2 e-11 ext-0))))))) (case (vector-ref act-26 0) ((0) (let ((e-11 (vector-ref act-26 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-26 1))) (let ((act-27 (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-201) ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-12 (vector-ref act-27 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref act-27 1))) (TTImpC-45Reflect-u--reify_Reify_UseSide arg-0 arg-1 arg-2 e-12 ext-0))))))) (case (vector-ref act-27 0) ((0) (let ((e-12 (vector-ref act-27 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref act-27 1))) (let ((act-28 (let ((act-28 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-204) ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-13 (vector-ref act-28 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref act-28 1))) (CoreC-45Reflect-u--reify_Reify_Name arg-0 arg-1 arg-2 e-13 ext-0))))))) (case (vector-ref act-28 0) ((0) (let ((e-13 (vector-ref act-28 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref act-28 1))) (let ((act-29 (let ((act-29 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-207) ext-0))) (case (vector-ref act-29 0) ((0) (let ((e-14 (vector-ref act-29 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref act-29 1))) (TTImpC-45Reflect-u--reify_Reify_RawImp arg-0 arg-1 arg-2 e-14 ext-0))))))) (case (vector-ref act-29 0) ((0) (let ((e-14 (vector-ref act-29 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref act-29 1))) (vector 1 (vector 18 e-10 e-11 e-12 e-13 e-14)))))))))))))))))))))) (CoreC-45Reflect-cantReify u--val "TTImp" ext-0))))))))))))))))))) ((equal? e-9 "IMustUnify") (let ((sc5 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5))) (if (null? sc5) (CoreC-45Reflect-cantReify u--val "TTImp" ext-0) (let ((e-211 (car sc5))) (let ((e-212 (cdr sc5))) (if (null? e-212) (CoreC-45Reflect-cantReify u--val "TTImp" ext-0) (let ((e-214 (car e-212))) (let ((e-215 (cdr e-212))) (if (null? e-215) (CoreC-45Reflect-cantReify u--val "TTImp" ext-0) (let ((e-217 (car e-215))) (let ((e-218 (cdr e-215))) (if (null? e-218) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-211) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (CoreC-45Reflect-u--reify_Reify_FC arg-0 arg-1 arg-2 e-10 ext-0))))))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (let ((act-26 (let ((act-26 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-214) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-11 (vector-ref act-26 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-26 1))) (TTImpC-45Reflect-u--reify_Reify_DotReason arg-0 arg-1 arg-2 e-11 ext-0))))))) (case (vector-ref act-26 0) ((0) (let ((e-11 (vector-ref act-26 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-26 1))) (let ((act-27 (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-217) ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-12 (vector-ref act-27 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref act-27 1))) (TTImpC-45Reflect-u--reify_Reify_RawImp arg-0 arg-1 arg-2 e-12 ext-0))))))) (case (vector-ref act-27 0) ((0) (let ((e-12 (vector-ref act-27 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref act-27 1))) (vector 1 (vector 19 e-10 e-11 e-12)))))))))))))) (CoreC-45Reflect-cantReify u--val "TTImp" ext-0))))))))))))) ((equal? e-9 "IDelayed") (let ((sc5 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5))) (if (null? sc5) (CoreC-45Reflect-cantReify u--val "TTImp" ext-0) (let ((e-221 (car sc5))) (let ((e-222 (cdr sc5))) (if (null? e-222) (CoreC-45Reflect-cantReify u--val "TTImp" ext-0) (let ((e-224 (car e-222))) (let ((e-225 (cdr e-222))) (if (null? e-225) (CoreC-45Reflect-cantReify u--val "TTImp" ext-0) (let ((e-227 (car e-225))) (let ((e-228 (cdr e-225))) (if (null? e-228) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-221) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (CoreC-45Reflect-u--reify_Reify_FC arg-0 arg-1 arg-2 e-10 ext-0))))))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (let ((act-26 (let ((act-26 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-224) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-11 (vector-ref act-26 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-26 1))) (CoreC-45Reflect-u--reify_Reify_LazyReason arg-0 arg-1 arg-2 e-11 ext-0))))))) (case (vector-ref act-26 0) ((0) (let ((e-11 (vector-ref act-26 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-26 1))) (let ((act-27 (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-227) ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-12 (vector-ref act-27 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref act-27 1))) (TTImpC-45Reflect-u--reify_Reify_RawImp arg-0 arg-1 arg-2 e-12 ext-0))))))) (case (vector-ref act-27 0) ((0) (let ((e-12 (vector-ref act-27 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref act-27 1))) (vector 1 (vector 20 e-10 e-11 e-12)))))))))))))) (CoreC-45Reflect-cantReify u--val "TTImp" ext-0))))))))))))) ((equal? e-9 "IDelay") (let ((sc5 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5))) (if (null? sc5) (CoreC-45Reflect-cantReify u--val "TTImp" ext-0) (let ((e-231 (car sc5))) (let ((e-232 (cdr sc5))) (if (null? e-232) (CoreC-45Reflect-cantReify u--val "TTImp" ext-0) (let ((e-234 (car e-232))) (let ((e-235 (cdr e-232))) (if (null? e-235) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-231) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (CoreC-45Reflect-u--reify_Reify_FC arg-0 arg-1 arg-2 e-10 ext-0))))))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (let ((act-26 (let ((act-26 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-234) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-11 (vector-ref act-26 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-26 1))) (TTImpC-45Reflect-u--reify_Reify_RawImp arg-0 arg-1 arg-2 e-11 ext-0))))))) (case (vector-ref act-26 0) ((0) (let ((e-11 (vector-ref act-26 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-26 1))) (vector 1 (vector 21 e-10 e-11)))))))))) (CoreC-45Reflect-cantReify u--val "TTImp" ext-0)))))))))) ((equal? e-9 "IForce") (let ((sc5 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5))) (if (null? sc5) (CoreC-45Reflect-cantReify u--val "TTImp" ext-0) (let ((e-238 (car sc5))) (let ((e-239 (cdr sc5))) (if (null? e-239) (CoreC-45Reflect-cantReify u--val "TTImp" ext-0) (let ((e-241 (car e-239))) (let ((e-242 (cdr e-239))) (if (null? e-242) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-238) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (CoreC-45Reflect-u--reify_Reify_FC arg-0 arg-1 arg-2 e-10 ext-0))))))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (let ((act-26 (let ((act-26 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-241) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-11 (vector-ref act-26 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-26 1))) (TTImpC-45Reflect-u--reify_Reify_RawImp arg-0 arg-1 arg-2 e-11 ext-0))))))) (case (vector-ref act-26 0) ((0) (let ((e-11 (vector-ref act-26 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-26 1))) (vector 1 (vector 22 e-10 e-11)))))))))) (CoreC-45Reflect-cantReify u--val "TTImp" ext-0)))))))))) ((equal? e-9 "IQuote") (let ((sc5 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5))) (if (null? sc5) (CoreC-45Reflect-cantReify u--val "TTImp" ext-0) (let ((e-245 (car sc5))) (let ((e-246 (cdr sc5))) (if (null? e-246) (CoreC-45Reflect-cantReify u--val "TTImp" ext-0) (let ((e-248 (car e-246))) (let ((e-249 (cdr e-246))) (if (null? e-249) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-245) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (CoreC-45Reflect-u--reify_Reify_FC arg-0 arg-1 arg-2 e-10 ext-0))))))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (let ((act-26 (let ((act-26 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-248) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-11 (vector-ref act-26 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-26 1))) (TTImpC-45Reflect-u--reify_Reify_RawImp arg-0 arg-1 arg-2 e-11 ext-0))))))) (case (vector-ref act-26 0) ((0) (let ((e-11 (vector-ref act-26 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-26 1))) (vector 1 (vector 23 e-10 e-11)))))))))) (CoreC-45Reflect-cantReify u--val "TTImp" ext-0)))))))))) ((equal? e-9 "IQuoteName") (let ((sc5 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5))) (if (null? sc5) (CoreC-45Reflect-cantReify u--val "TTImp" ext-0) (let ((e-252 (car sc5))) (let ((e-253 (cdr sc5))) (if (null? e-253) (CoreC-45Reflect-cantReify u--val "TTImp" ext-0) (let ((e-255 (car e-253))) (let ((e-256 (cdr e-253))) (if (null? e-256) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-252) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (CoreC-45Reflect-u--reify_Reify_FC arg-0 arg-1 arg-2 e-10 ext-0))))))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (let ((act-26 (let ((act-26 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-255) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-11 (vector-ref act-26 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-26 1))) (CoreC-45Reflect-u--reify_Reify_Name arg-0 arg-1 arg-2 e-11 ext-0))))))) (case (vector-ref act-26 0) ((0) (let ((e-11 (vector-ref act-26 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-26 1))) (vector 1 (vector 24 e-10 e-11)))))))))) (CoreC-45Reflect-cantReify u--val "TTImp" ext-0)))))))))) ((equal? e-9 "IQuoteDecl") (let ((sc5 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5))) (if (null? sc5) (CoreC-45Reflect-cantReify u--val "TTImp" ext-0) (let ((e-259 (car sc5))) (let ((e-260 (cdr sc5))) (if (null? e-260) (CoreC-45Reflect-cantReify u--val "TTImp" ext-0) (let ((e-262 (car e-260))) (let ((e-263 (cdr e-260))) (if (null? e-263) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-259) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (CoreC-45Reflect-u--reify_Reify_FC arg-0 arg-1 arg-2 e-10 ext-0))))))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (let ((act-26 (let ((act-26 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-262) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-11 (vector-ref act-26 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-26 1))) (CoreC-45Reflect-u--reify_Reify_C-40ListC-32C-36aC-41 (lambda (u--c) (lambda (u--vars) (lambda (arg-6833) (lambda (arg-6834) (lambda (eta-0) (TTImpC-45Reflect-u--reify_Reify_ImpDecl u--c u--vars arg-6833 arg-6834 eta-0)))))) arg-0 arg-1 arg-2 e-11 ext-0))))))) (case (vector-ref act-26 0) ((0) (let ((e-11 (vector-ref act-26 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-26 1))) (vector 1 (vector 25 e-10 e-11)))))))))) (CoreC-45Reflect-cantReify u--val "TTImp" ext-0)))))))))) ((equal? e-9 "IUnquote") (let ((sc5 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5))) (if (null? sc5) (CoreC-45Reflect-cantReify u--val "TTImp" ext-0) (let ((e-266 (car sc5))) (let ((e-267 (cdr sc5))) (if (null? e-267) (CoreC-45Reflect-cantReify u--val "TTImp" ext-0) (let ((e-269 (car e-267))) (let ((e-270 (cdr e-267))) (if (null? e-270) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-266) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (CoreC-45Reflect-u--reify_Reify_FC arg-0 arg-1 arg-2 e-10 ext-0))))))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (let ((act-26 (let ((act-26 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-269) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-11 (vector-ref act-26 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-26 1))) (TTImpC-45Reflect-u--reify_Reify_RawImp arg-0 arg-1 arg-2 e-11 ext-0))))))) (case (vector-ref act-26 0) ((0) (let ((e-11 (vector-ref act-26 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-26 1))) (vector 1 (vector 26 e-10 e-11)))))))))) (CoreC-45Reflect-cantReify u--val "TTImp" ext-0)))))))))) ((equal? e-9 "IPrimVal") (let ((sc5 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5))) (if (null? sc5) (CoreC-45Reflect-cantReify u--val "TTImp" ext-0) (let ((e-273 (car sc5))) (let ((e-274 (cdr sc5))) (if (null? e-274) (CoreC-45Reflect-cantReify u--val "TTImp" ext-0) (let ((e-276 (car e-274))) (let ((e-277 (cdr e-274))) (if (null? e-277) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-273) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (CoreC-45Reflect-u--reify_Reify_FC arg-0 arg-1 arg-2 e-10 ext-0))))))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (let ((act-26 (let ((act-26 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-276) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-11 (vector-ref act-26 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-26 1))) (CoreC-45Reflect-u--reify_Reify_Constant arg-0 arg-1 arg-2 e-11 ext-0))))))) (case (vector-ref act-26 0) ((0) (let ((e-11 (vector-ref act-26 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-26 1))) (vector 1 (vector 28 e-10 e-11)))))))))) (CoreC-45Reflect-cantReify u--val "TTImp" ext-0)))))))))) ((equal? e-9 "IType") (let ((sc5 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5))) (if (null? sc5) (CoreC-45Reflect-cantReify u--val "TTImp" ext-0) (let ((e-280 (car sc5))) (let ((e-281 (cdr sc5))) (if (null? e-281) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-280) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (CoreC-45Reflect-u--reify_Reify_FC arg-0 arg-1 arg-2 e-10 ext-0))))))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (vector 1 (vector 29 e-10)))))) (CoreC-45Reflect-cantReify u--val "TTImp" ext-0))))))) ((equal? e-9 "IHole") (let ((sc5 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5))) (if (null? sc5) (CoreC-45Reflect-cantReify u--val "TTImp" ext-0) (let ((e-284 (car sc5))) (let ((e-285 (cdr sc5))) (if (null? e-285) (CoreC-45Reflect-cantReify u--val "TTImp" ext-0) (let ((e-287 (car e-285))) (let ((e-288 (cdr e-285))) (if (null? e-288) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-284) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (CoreC-45Reflect-u--reify_Reify_FC arg-0 arg-1 arg-2 e-10 ext-0))))))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (let ((act-26 (let ((act-26 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-287) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-11 (vector-ref act-26 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-26 1))) ((CoreC-45Reflect-u--reify_Reify_String arg-0 arg-1 arg-2 e-11) ext-0))))))) (case (vector-ref act-26 0) ((0) (let ((e-11 (vector-ref act-26 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-26 1))) (vector 1 (vector 30 e-10 e-11)))))))))) (CoreC-45Reflect-cantReify u--val "TTImp" ext-0)))))))))) ((equal? e-9 "Implicit") (let ((sc5 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5))) (if (null? sc5) (CoreC-45Reflect-cantReify u--val "TTImp" ext-0) (let ((e-291 (car sc5))) (let ((e-292 (cdr sc5))) (if (null? e-292) (CoreC-45Reflect-cantReify u--val "TTImp" ext-0) (let ((e-294 (car e-292))) (let ((e-295 (cdr e-292))) (if (null? e-295) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-291) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (CoreC-45Reflect-u--reify_Reify_FC arg-0 arg-1 arg-2 e-10 ext-0))))))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (let ((act-26 (let ((act-26 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-294) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-11 (vector-ref act-26 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-26 1))) (CoreC-45Reflect-u--reify_Reify_Bool arg-0 arg-1 arg-2 e-11 ext-0))))))) (case (vector-ref act-26 0) ((0) (let ((e-11 (vector-ref act-26 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-26 1))) (vector 1 (vector 32 e-10 e-11)))))))))) (CoreC-45Reflect-cantReify u--val "TTImp" ext-0)))))))))) ((equal? e-9 "IWithUnambigNames") (let ((sc5 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5))) (if (null? sc5) (CoreC-45Reflect-cantReify u--val "TTImp" ext-0) (let ((e-298 (car sc5))) (let ((e-299 (cdr sc5))) (if (null? e-299) (CoreC-45Reflect-cantReify u--val "TTImp" ext-0) (let ((e-301 (car e-299))) (let ((e-302 (cdr e-299))) (if (null? e-302) (CoreC-45Reflect-cantReify u--val "TTImp" ext-0) (let ((e-304 (car e-302))) (let ((e-305 (cdr e-302))) (if (null? e-305) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-298) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (CoreC-45Reflect-u--reify_Reify_FC arg-0 arg-1 arg-2 e-10 ext-0))))))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (let ((act-26 (let ((act-26 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-301) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-11 (vector-ref act-26 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-26 1))) (CoreC-45Reflect-u--reify_Reify_C-40ListC-32C-36aC-41 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (CoreC-45Reflect-u--reify_Reify_Name eta-0 eta-1 eta-2 eta-3 eta-4)))))) arg-0 arg-1 arg-2 e-11 ext-0))))))) (case (vector-ref act-26 0) ((0) (let ((e-11 (vector-ref act-26 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-26 1))) (let ((act-27 (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-304) ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-12 (vector-ref act-27 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref act-27 1))) (TTImpC-45Reflect-u--reify_Reify_RawImp arg-0 arg-1 arg-2 e-12 ext-0))))))) (case (vector-ref act-27 0) ((0) (let ((e-12 (vector-ref act-27 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref act-27 1))) (vector 1 (vector 33 e-10 e-11 e-12)))))))))))))) (CoreC-45Reflect-cantReify u--val "TTImp" ext-0)))))))))))))(else (CoreC-45Reflect-cantReify u--val "TTImp" ext-0)))))(else (CoreC-45Reflect-cantReify u--val "TTImp" ext-0)))))(else (CoreC-45Reflect-cantReify u--val "TTImp" ext-0))))))))))))))(else (CoreC-45Reflect-cantReify arg-3 "TTImp" ext-0))))) +(define TTImpC-45Reflect-u--reify_Reify_ImpTy (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (case (vector-ref arg-3 0) ((2) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-3 (vector-ref arg-3 3))) (let ((e-4 (vector-ref arg-3 4))) (let ((e-5 (vector-ref arg-3 5))) (let ((act-24 (CoreC-45Context-u--full_HasNames_Name (let ((e-0 (vector-ref arg-2 0))) e-0) e-2 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((u--val (vector 2 e-1 e-2 e-3 e-4 e-5))) (case (vector-ref e-6 0) ((0) (let ((e-7 (vector-ref e-6 2))) (case (vector-ref e-7 0) ((1) (let ((e-9 (vector-ref e-7 1))) (cond ((equal? e-9 "MkTy") (let ((sc5 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5))) (if (null? sc5) (CoreC-45Reflect-cantReify u--val "ITy" ext-0) (let ((e-11 (car sc5))) (let ((e-10 (cdr sc5))) (if (null? e-10) (CoreC-45Reflect-cantReify u--val "ITy" ext-0) (let ((e-13 (car e-10))) (let ((e-12 (cdr e-10))) (if (null? e-12) (CoreC-45Reflect-cantReify u--val "ITy" ext-0) (let ((e-14 (car e-12))) (let ((e-15 (cdr e-12))) (if (null? e-15) (CoreC-45Reflect-cantReify u--val "ITy" ext-0) (let ((e-17 (car e-15))) (let ((e-18 (cdr e-15))) (if (null? e-18) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-11) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-16 (vector-ref act-25 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref act-25 1))) (CoreC-45Reflect-u--reify_Reify_FC arg-0 arg-1 arg-2 e-16 ext-0))))))) (case (vector-ref act-25 0) ((0) (let ((e-16 (vector-ref act-25 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref act-25 1))) (let ((act-26 (let ((act-26 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-13) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-19 (vector-ref act-26 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref act-26 1))) (CoreC-45Reflect-u--reify_Reify_FC arg-0 arg-1 arg-2 e-19 ext-0))))))) (case (vector-ref act-26 0) ((0) (let ((e-19 (vector-ref act-26 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref act-26 1))) (let ((act-27 (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-14) ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-20 (vector-ref act-27 1))) (vector 0 e-20))) (else (let ((e-20 (vector-ref act-27 1))) (CoreC-45Reflect-u--reify_Reify_Name arg-0 arg-1 arg-2 e-20 ext-0))))))) (case (vector-ref act-27 0) ((0) (let ((e-20 (vector-ref act-27 1))) (vector 0 e-20))) (else (let ((e-20 (vector-ref act-27 1))) (let ((act-28 (let ((act-28 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-17) ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-21 (vector-ref act-28 1))) (vector 0 e-21))) (else (let ((e-21 (vector-ref act-28 1))) (TTImpC-45Reflect-u--reify_Reify_RawImp arg-0 arg-1 arg-2 e-21 ext-0))))))) (case (vector-ref act-28 0) ((0) (let ((e-21 (vector-ref act-28 1))) (vector 0 e-21))) (else (let ((e-21 (vector-ref act-28 1))) (vector 1 (vector e-16 e-19 e-20 e-21)))))))))))))))))) (CoreC-45Reflect-cantReify u--val "ITy" ext-0))))))))))))))))(else (CoreC-45Reflect-cantReify u--val "ITy" ext-0)))))(else (CoreC-45Reflect-cantReify u--val "ITy" ext-0)))))(else (CoreC-45Reflect-cantReify u--val "ITy" ext-0))))))))))))))(else (CoreC-45Reflect-cantReify arg-3 "ITy" ext-0))))) +(define TTImpC-45Reflect-u--reify_Reify_ImpRecord (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (case (vector-ref arg-3 0) ((2) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-3 (vector-ref arg-3 3))) (let ((e-4 (vector-ref arg-3 4))) (let ((e-5 (vector-ref arg-3 5))) (let ((act-24 (CoreC-45Context-u--full_HasNames_Name (let ((e-0 (vector-ref arg-2 0))) e-0) e-2 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((u--val (vector 2 e-1 e-2 e-3 e-4 e-5))) (case (vector-ref e-6 0) ((0) (let ((e-7 (vector-ref e-6 2))) (case (vector-ref e-7 0) ((1) (let ((e-9 (vector-ref e-7 1))) (cond ((equal? e-9 "MkRecord") (let ((sc5 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5))) (if (null? sc5) (CoreC-45Reflect-cantReify u--val "Record" ext-0) (let ((e-11 (car sc5))) (let ((e-10 (cdr sc5))) (if (null? e-10) (CoreC-45Reflect-cantReify u--val "Record" ext-0) (let ((e-13 (car e-10))) (let ((e-12 (cdr e-10))) (if (null? e-12) (CoreC-45Reflect-cantReify u--val "Record" ext-0) (let ((e-14 (car e-12))) (let ((e-15 (cdr e-12))) (if (null? e-15) (CoreC-45Reflect-cantReify u--val "Record" ext-0) (let ((e-17 (car e-15))) (let ((e-18 (cdr e-15))) (if (null? e-18) (CoreC-45Reflect-cantReify u--val "Record" ext-0) (let ((e-20 (car e-18))) (let ((e-21 (cdr e-18))) (if (null? e-21) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-11) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-16 (vector-ref act-25 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref act-25 1))) (CoreC-45Reflect-u--reify_Reify_FC arg-0 arg-1 arg-2 e-16 ext-0))))))) (case (vector-ref act-25 0) ((0) (let ((e-16 (vector-ref act-25 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref act-25 1))) (let ((act-26 (let ((act-26 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-13) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-19 (vector-ref act-26 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref act-26 1))) (CoreC-45Reflect-u--reify_Reify_Name arg-0 arg-1 arg-2 e-19 ext-0))))))) (case (vector-ref act-26 0) ((0) (let ((e-19 (vector-ref act-26 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref act-26 1))) (let ((act-27 (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-14) ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-22 (vector-ref act-27 1))) (vector 0 e-22))) (else (let ((e-22 (vector-ref act-27 1))) (CoreC-45Reflect-u--reify_Reify_C-40ListC-32C-36aC-41 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (CoreC-45Reflect-u--reify_Reify_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (lambda (eta-7) (lambda (eta-8) (CoreC-45Reflect-u--reify_Reify_Name eta-4 eta-5 eta-6 eta-7 eta-8)))))) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (lambda (eta-7) (CoreC-45Reflect-u--reify_Reify_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (eta-8) (lambda (eta-9) (lambda (eta-10) (lambda (eta-11) (lambda (eta-12) (CoreC-45Reflect-u--reify_Reify_RigCount eta-8 eta-9 eta-10 eta-11 eta-12)))))) (lambda (eta-8) (lambda (eta-9) (lambda (eta-10) (lambda (eta-11) (CoreC-45Reflect-u--reify_Reify_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (eta-12) (lambda (eta-13) (lambda (eta-14) (lambda (eta-15) (lambda (eta-16) (CoreC-45Reflect-u--reify_Reify_C-40PiInfoC-32C-36tC-41 (lambda (u--c) (lambda (u--vars) (lambda (arg-6833) (lambda (arg-6834) (lambda (eta-17) (TTImpC-45Reflect-u--reify_Reify_RawImp u--c u--vars arg-6833 arg-6834 eta-17)))))) eta-12 eta-13 eta-14 eta-15 eta-16)))))) (lambda (u--c) (lambda (u--vars) (lambda (arg-6833) (lambda (arg-6834) (lambda (eta-12) (TTImpC-45Reflect-u--reify_Reify_RawImp u--c u--vars arg-6833 arg-6834 eta-12))))))) eta-8 eta-9 eta-10 eta-11)))))) eta-4 eta-5 eta-6 eta-7)))))) eta-0 eta-1 eta-2 eta-3))))) arg-0 arg-1 arg-2 e-22 ext-0))))))) (case (vector-ref act-27 0) ((0) (let ((e-22 (vector-ref act-27 1))) (vector 0 e-22))) (else (let ((e-22 (vector-ref act-27 1))) (let ((act-28 (let ((act-28 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-17) ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-23 (vector-ref act-28 1))) (vector 0 e-23))) (else (let ((e-23 (vector-ref act-28 1))) (CoreC-45Reflect-u--reify_Reify_Name arg-0 arg-1 arg-2 e-23 ext-0))))))) (case (vector-ref act-28 0) ((0) (let ((e-23 (vector-ref act-28 1))) (vector 0 e-23))) (else (let ((e-23 (vector-ref act-28 1))) (let ((act-29 (let ((act-29 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-20) ext-0))) (case (vector-ref act-29 0) ((0) (let ((e-24 (vector-ref act-29 1))) (vector 0 e-24))) (else (let ((e-24 (vector-ref act-29 1))) (CoreC-45Reflect-u--reify_Reify_C-40ListC-32C-36aC-41 (lambda (u--c) (lambda (u--vars) (lambda (arg-6833) (lambda (arg-6834) (lambda (eta-0) (TTImpC-45Reflect-u--reify_Reify_IField u--c u--vars arg-6833 arg-6834 eta-0)))))) arg-0 arg-1 arg-2 e-24 ext-0))))))) (case (vector-ref act-29 0) ((0) (let ((e-24 (vector-ref act-29 1))) (vector 0 e-24))) (else (let ((e-24 (vector-ref act-29 1))) (vector 1 (vector e-16 e-19 e-22 e-23 e-24)))))))))))))))))))))) (CoreC-45Reflect-cantReify u--val "Record" ext-0)))))))))))))))))))(else (CoreC-45Reflect-cantReify u--val "Record" ext-0)))))(else (CoreC-45Reflect-cantReify u--val "Record" ext-0)))))(else (CoreC-45Reflect-cantReify u--val "Record" ext-0))))))))))))))(else (CoreC-45Reflect-cantReify arg-3 "Record" ext-0))))) +(define TTImpC-45Reflect-u--reify_Reify_ImpDecl (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (case (vector-ref arg-3 0) ((2) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-3 (vector-ref arg-3 3))) (let ((e-4 (vector-ref arg-3 4))) (let ((e-5 (vector-ref arg-3 5))) (let ((act-24 (CoreC-45Context-u--full_HasNames_Name (let ((e-0 (vector-ref arg-2 0))) e-0) e-2 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((u--val (vector 2 e-1 e-2 e-3 e-4 e-5))) (case (vector-ref e-6 0) ((0) (let ((e-7 (vector-ref e-6 2))) (case (vector-ref e-7 0) ((1) (let ((e-9 (vector-ref e-7 1))) (cond ((equal? e-9 "IClaim") (let ((sc5 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5))) (if (null? sc5) (CoreC-45Reflect-cantReify u--val "Decl" ext-0) (let ((e-11 (car sc5))) (let ((e-10 (cdr sc5))) (if (null? e-10) (CoreC-45Reflect-cantReify u--val "Decl" ext-0) (let ((e-13 (car e-10))) (let ((e-12 (cdr e-10))) (if (null? e-12) (CoreC-45Reflect-cantReify u--val "Decl" ext-0) (let ((e-14 (car e-12))) (let ((e-15 (cdr e-12))) (if (null? e-15) (CoreC-45Reflect-cantReify u--val "Decl" ext-0) (let ((e-17 (car e-15))) (let ((e-18 (cdr e-15))) (if (null? e-18) (CoreC-45Reflect-cantReify u--val "Decl" ext-0) (let ((e-20 (car e-18))) (let ((e-21 (cdr e-18))) (if (null? e-21) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-11) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-16 (vector-ref act-25 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref act-25 1))) (CoreC-45Reflect-u--reify_Reify_FC arg-0 arg-1 arg-2 e-16 ext-0))))))) (case (vector-ref act-25 0) ((0) (let ((e-16 (vector-ref act-25 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref act-25 1))) (let ((act-26 (let ((act-26 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-13) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-19 (vector-ref act-26 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref act-26 1))) (CoreC-45Reflect-u--reify_Reify_RigCount arg-0 arg-1 arg-2 e-19 ext-0))))))) (case (vector-ref act-26 0) ((0) (let ((e-19 (vector-ref act-26 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref act-26 1))) (let ((act-27 (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-14) ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-22 (vector-ref act-27 1))) (vector 0 e-22))) (else (let ((e-22 (vector-ref act-27 1))) (CoreC-45Reflect-u--reify_Reify_Visibility arg-0 arg-1 arg-2 e-22 ext-0))))))) (case (vector-ref act-27 0) ((0) (let ((e-22 (vector-ref act-27 1))) (vector 0 e-22))) (else (let ((e-22 (vector-ref act-27 1))) (let ((act-28 (let ((act-28 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-17) ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-23 (vector-ref act-28 1))) (vector 0 e-23))) (else (let ((e-23 (vector-ref act-28 1))) (CoreC-45Reflect-u--reify_Reify_C-40ListC-32C-36aC-41 (lambda (u--c) (lambda (u--vars) (lambda (arg-6833) (lambda (arg-6834) (lambda (eta-0) (TTImpC-45Reflect-u--reify_Reify_FnOpt u--c u--vars arg-6833 arg-6834 eta-0)))))) arg-0 arg-1 arg-2 e-23 ext-0))))))) (case (vector-ref act-28 0) ((0) (let ((e-23 (vector-ref act-28 1))) (vector 0 e-23))) (else (let ((e-23 (vector-ref act-28 1))) (let ((act-29 (let ((act-29 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-20) ext-0))) (case (vector-ref act-29 0) ((0) (let ((e-24 (vector-ref act-29 1))) (vector 0 e-24))) (else (let ((e-24 (vector-ref act-29 1))) (TTImpC-45Reflect-u--reify_Reify_ImpTy arg-0 arg-1 arg-2 e-24 ext-0))))))) (case (vector-ref act-29 0) ((0) (let ((e-24 (vector-ref act-29 1))) (vector 0 e-24))) (else (let ((e-24 (vector-ref act-29 1))) (vector 1 (vector 0 e-16 e-19 e-22 e-23 e-24)))))))))))))))))))))) (CoreC-45Reflect-cantReify u--val "Decl" ext-0))))))))))))))))))) ((equal? e-9 "IData") (let ((sc5 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5))) (if (null? sc5) (CoreC-45Reflect-cantReify u--val "Decl" ext-0) (let ((e-24 (car sc5))) (let ((e-25 (cdr sc5))) (if (null? e-25) (CoreC-45Reflect-cantReify u--val "Decl" ext-0) (let ((e-27 (car e-25))) (let ((e-28 (cdr e-25))) (if (null? e-28) (CoreC-45Reflect-cantReify u--val "Decl" ext-0) (let ((e-30 (car e-28))) (let ((e-31 (cdr e-28))) (if (null? e-31) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-24) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (CoreC-45Reflect-u--reify_Reify_FC arg-0 arg-1 arg-2 e-10 ext-0))))))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (let ((act-26 (let ((act-26 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-27) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-11 (vector-ref act-26 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-26 1))) (CoreC-45Reflect-u--reify_Reify_Visibility arg-0 arg-1 arg-2 e-11 ext-0))))))) (case (vector-ref act-26 0) ((0) (let ((e-11 (vector-ref act-26 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-26 1))) (let ((act-27 (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-30) ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-12 (vector-ref act-27 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref act-27 1))) (TTImpC-45Reflect-u--reify_Reify_ImpData arg-0 arg-1 arg-2 e-12 ext-0))))))) (case (vector-ref act-27 0) ((0) (let ((e-12 (vector-ref act-27 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref act-27 1))) (vector 1 (vector 1 e-10 e-11 e-12)))))))))))))) (CoreC-45Reflect-cantReify u--val "Decl" ext-0))))))))))))) ((equal? e-9 "IDef") (let ((sc5 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5))) (if (null? sc5) (CoreC-45Reflect-cantReify u--val "Decl" ext-0) (let ((e-34 (car sc5))) (let ((e-35 (cdr sc5))) (if (null? e-35) (CoreC-45Reflect-cantReify u--val "Decl" ext-0) (let ((e-37 (car e-35))) (let ((e-38 (cdr e-35))) (if (null? e-38) (CoreC-45Reflect-cantReify u--val "Decl" ext-0) (let ((e-40 (car e-38))) (let ((e-41 (cdr e-38))) (if (null? e-41) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-34) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (CoreC-45Reflect-u--reify_Reify_FC arg-0 arg-1 arg-2 e-10 ext-0))))))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (let ((act-26 (let ((act-26 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-37) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-11 (vector-ref act-26 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-26 1))) (CoreC-45Reflect-u--reify_Reify_Name arg-0 arg-1 arg-2 e-11 ext-0))))))) (case (vector-ref act-26 0) ((0) (let ((e-11 (vector-ref act-26 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-26 1))) (let ((act-27 (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-40) ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-12 (vector-ref act-27 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref act-27 1))) (CoreC-45Reflect-u--reify_Reify_C-40ListC-32C-36aC-41 (lambda (u--c) (lambda (u--vars) (lambda (arg-6833) (lambda (arg-6834) (lambda (eta-0) (TTImpC-45Reflect-u--reify_Reify_ImpClause u--c u--vars arg-6833 arg-6834 eta-0)))))) arg-0 arg-1 arg-2 e-12 ext-0))))))) (case (vector-ref act-27 0) ((0) (let ((e-12 (vector-ref act-27 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref act-27 1))) (vector 1 (vector 2 e-10 e-11 e-12)))))))))))))) (CoreC-45Reflect-cantReify u--val "Decl" ext-0))))))))))))) ((equal? e-9 "IParameters") (let ((sc5 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5))) (if (null? sc5) (CoreC-45Reflect-cantReify u--val "Decl" ext-0) (let ((e-44 (car sc5))) (let ((e-45 (cdr sc5))) (if (null? e-45) (CoreC-45Reflect-cantReify u--val "Decl" ext-0) (let ((e-47 (car e-45))) (let ((e-48 (cdr e-45))) (if (null? e-48) (CoreC-45Reflect-cantReify u--val "Decl" ext-0) (let ((e-50 (car e-48))) (let ((e-51 (cdr e-48))) (if (null? e-51) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-44) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (CoreC-45Reflect-u--reify_Reify_FC arg-0 arg-1 arg-2 e-10 ext-0))))))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (let ((act-26 (let ((act-26 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-47) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-11 (vector-ref act-26 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-26 1))) (CoreC-45Reflect-u--reify_Reify_C-40ListC-32C-36aC-41 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (CoreC-45Reflect-u--reify_Reify_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (lambda (eta-7) (lambda (eta-8) (CoreC-45Reflect-u--reify_Reify_Name eta-4 eta-5 eta-6 eta-7 eta-8)))))) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (lambda (eta-7) (CoreC-45Reflect-u--reify_Reify_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (eta-8) (lambda (eta-9) (lambda (eta-10) (lambda (eta-11) (lambda (eta-12) (CoreC-45Reflect-u--reify_Reify_RigCount eta-8 eta-9 eta-10 eta-11 eta-12)))))) (lambda (eta-8) (lambda (eta-9) (lambda (eta-10) (lambda (eta-11) (CoreC-45Reflect-u--reify_Reify_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (eta-12) (lambda (eta-13) (lambda (eta-14) (lambda (eta-15) (lambda (eta-16) (CoreC-45Reflect-u--reify_Reify_C-40PiInfoC-32C-36tC-41 (lambda (u--c) (lambda (u--vars) (lambda (arg-6833) (lambda (arg-6834) (lambda (eta-17) (TTImpC-45Reflect-u--reify_Reify_RawImp u--c u--vars arg-6833 arg-6834 eta-17)))))) eta-12 eta-13 eta-14 eta-15 eta-16)))))) (lambda (u--c) (lambda (u--vars) (lambda (arg-6833) (lambda (arg-6834) (lambda (eta-12) (TTImpC-45Reflect-u--reify_Reify_RawImp u--c u--vars arg-6833 arg-6834 eta-12))))))) eta-8 eta-9 eta-10 eta-11)))))) eta-4 eta-5 eta-6 eta-7)))))) eta-0 eta-1 eta-2 eta-3))))) arg-0 arg-1 arg-2 e-11 ext-0))))))) (case (vector-ref act-26 0) ((0) (let ((e-11 (vector-ref act-26 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-26 1))) (let ((act-27 (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-50) ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-12 (vector-ref act-27 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref act-27 1))) (CoreC-45Reflect-u--reify_Reify_C-40ListC-32C-36aC-41 (lambda (u--c) (lambda (u--vars) (lambda (arg-6833) (lambda (arg-6834) (lambda (eta-0) (TTImpC-45Reflect-u--reify_Reify_ImpDecl u--c u--vars arg-6833 arg-6834 eta-0)))))) arg-0 arg-1 arg-2 e-12 ext-0))))))) (case (vector-ref act-27 0) ((0) (let ((e-12 (vector-ref act-27 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref act-27 1))) (vector 1 (vector 3 e-10 e-11 e-12)))))))))))))) (CoreC-45Reflect-cantReify u--val "Decl" ext-0))))))))))))) ((equal? e-9 "IRecord") (let ((sc5 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5))) (if (null? sc5) (CoreC-45Reflect-cantReify u--val "Decl" ext-0) (let ((e-54 (car sc5))) (let ((e-55 (cdr sc5))) (if (null? e-55) (CoreC-45Reflect-cantReify u--val "Decl" ext-0) (let ((e-57 (car e-55))) (let ((e-58 (cdr e-55))) (if (null? e-58) (CoreC-45Reflect-cantReify u--val "Decl" ext-0) (let ((e-60 (car e-58))) (let ((e-61 (cdr e-58))) (if (null? e-61) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-54) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (CoreC-45Reflect-u--reify_Reify_FC arg-0 arg-1 arg-2 e-10 ext-0))))))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (let ((act-26 (let ((act-26 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-57) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-11 (vector-ref act-26 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-26 1))) (CoreC-45Reflect-u--reify_Reify_Visibility arg-0 arg-1 arg-2 e-11 ext-0))))))) (case (vector-ref act-26 0) ((0) (let ((e-11 (vector-ref act-26 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-26 1))) (let ((act-27 (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-60) ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-12 (vector-ref act-27 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref act-27 1))) (TTImpC-45Reflect-u--reify_Reify_ImpRecord arg-0 arg-1 arg-2 e-12 ext-0))))))) (case (vector-ref act-27 0) ((0) (let ((e-12 (vector-ref act-27 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref act-27 1))) (vector 1 (vector 4 e-10 '() e-11 e-12)))))))))))))) (CoreC-45Reflect-cantReify u--val "Decl" ext-0))))))))))))) ((equal? e-9 "INamespace") (let ((sc5 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5))) (if (null? sc5) (CoreC-45Reflect-cantReify u--val "Decl" ext-0) (let ((e-64 (car sc5))) (let ((e-65 (cdr sc5))) (if (null? e-65) (CoreC-45Reflect-cantReify u--val "Decl" ext-0) (let ((e-67 (car e-65))) (let ((e-68 (cdr e-65))) (if (null? e-68) (CoreC-45Reflect-cantReify u--val "Decl" ext-0) (let ((e-70 (car e-68))) (let ((e-71 (cdr e-68))) (if (null? e-71) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-64) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (CoreC-45Reflect-u--reify_Reify_FC arg-0 arg-1 arg-2 e-10 ext-0))))))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (let ((act-26 (let ((act-26 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-67) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-11 (vector-ref act-26 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-26 1))) ((CoreC-45Reflect-u--reify_Reify_Namespace arg-0 arg-1 arg-2 e-11) ext-0))))))) (case (vector-ref act-26 0) ((0) (let ((e-11 (vector-ref act-26 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-26 1))) (let ((act-27 (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-70) ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-12 (vector-ref act-27 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref act-27 1))) (CoreC-45Reflect-u--reify_Reify_C-40ListC-32C-36aC-41 (lambda (u--c) (lambda (u--vars) (lambda (arg-6833) (lambda (arg-6834) (lambda (eta-0) (TTImpC-45Reflect-u--reify_Reify_ImpDecl u--c u--vars arg-6833 arg-6834 eta-0)))))) arg-0 arg-1 arg-2 e-12 ext-0))))))) (case (vector-ref act-27 0) ((0) (let ((e-12 (vector-ref act-27 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref act-27 1))) (vector 1 (vector 5 e-10 e-11 e-12)))))))))))))) (CoreC-45Reflect-cantReify u--val "Decl" ext-0))))))))))))) ((equal? e-9 "ITransform") (let ((sc5 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5))) (if (null? sc5) (CoreC-45Reflect-cantReify u--val "Decl" ext-0) (let ((e-74 (car sc5))) (let ((e-75 (cdr sc5))) (if (null? e-75) (CoreC-45Reflect-cantReify u--val "Decl" ext-0) (let ((e-77 (car e-75))) (let ((e-78 (cdr e-75))) (if (null? e-78) (CoreC-45Reflect-cantReify u--val "Decl" ext-0) (let ((e-80 (car e-78))) (let ((e-81 (cdr e-78))) (if (null? e-81) (CoreC-45Reflect-cantReify u--val "Decl" ext-0) (let ((e-83 (car e-81))) (let ((e-84 (cdr e-81))) (if (null? e-84) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-74) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (CoreC-45Reflect-u--reify_Reify_FC arg-0 arg-1 arg-2 e-10 ext-0))))))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (let ((act-26 (let ((act-26 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-77) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-11 (vector-ref act-26 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-26 1))) (CoreC-45Reflect-u--reify_Reify_Name arg-0 arg-1 arg-2 e-11 ext-0))))))) (case (vector-ref act-26 0) ((0) (let ((e-11 (vector-ref act-26 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-26 1))) (let ((act-27 (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-80) ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-12 (vector-ref act-27 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref act-27 1))) (TTImpC-45Reflect-u--reify_Reify_RawImp arg-0 arg-1 arg-2 e-12 ext-0))))))) (case (vector-ref act-27 0) ((0) (let ((e-12 (vector-ref act-27 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref act-27 1))) (let ((act-28 (let ((act-28 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-83) ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-13 (vector-ref act-28 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref act-28 1))) (TTImpC-45Reflect-u--reify_Reify_RawImp arg-0 arg-1 arg-2 e-13 ext-0))))))) (case (vector-ref act-28 0) ((0) (let ((e-13 (vector-ref act-28 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref act-28 1))) (vector 1 (vector 6 e-10 e-11 e-12 e-13)))))))))))))))))) (CoreC-45Reflect-cantReify u--val "Decl" ext-0)))))))))))))))) ((equal? e-9 "ILog") (let ((sc5 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5))) (if (null? sc5) (CoreC-45Reflect-cantReify u--val "Decl" ext-0) (let ((e-87 (car sc5))) (let ((e-88 (cdr sc5))) (if (null? e-88) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-87) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (CoreC-45Reflect-u--reify_Reify_C-40MaybeC-32C-36aC-41 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (CoreC-45Reflect-u--reify_Reify_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (lambda (eta-7) (lambda (eta-8) (CoreC-45Reflect-u--reify_Reify_C-40ListC-32C-36aC-41 (lambda (eta-9) (lambda (eta-10) (lambda (eta-11) (lambda (eta-12) (CoreC-45Reflect-u--reify_Reify_String eta-9 eta-10 eta-11 eta-12))))) eta-4 eta-5 eta-6 eta-7 eta-8)))))) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (lambda (eta-7) (lambda (eta-8) (CoreC-45Reflect-u--reify_Reify_Nat eta-4 eta-5 eta-6 eta-7 eta-8))))))) eta-0 eta-1 eta-2 eta-3))))) arg-0 arg-1 arg-2 e-10 ext-0))))))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (vector 1 (vector 9 e-10)))))) (CoreC-45Reflect-cantReify u--val "Decl" ext-0)))))))(else (CoreC-45Reflect-cantReify u--val "Decl" ext-0)))))(else (CoreC-45Reflect-cantReify u--val "Decl" ext-0)))))(else (CoreC-45Reflect-cantReify u--val "Decl" ext-0))))))))))))))(else (CoreC-45Reflect-cantReify arg-3 "Decl" ext-0))))) +(define TTImpC-45Reflect-u--reify_Reify_ImpData (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (case (vector-ref arg-3 0) ((2) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-3 (vector-ref arg-3 3))) (let ((e-4 (vector-ref arg-3 4))) (let ((e-5 (vector-ref arg-3 5))) (let ((act-24 (CoreC-45Context-u--full_HasNames_Name (let ((e-0 (vector-ref arg-2 0))) e-0) e-2 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((u--val (vector 2 e-1 e-2 e-3 e-4 e-5))) (case (vector-ref e-6 0) ((0) (let ((e-7 (vector-ref e-6 2))) (case (vector-ref e-7 0) ((1) (let ((e-9 (vector-ref e-7 1))) (cond ((equal? e-9 "MkData") (let ((sc5 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5))) (if (null? sc5) (CoreC-45Reflect-cantReify u--val "Data" ext-0) (let ((e-11 (car sc5))) (let ((e-10 (cdr sc5))) (if (null? e-10) (CoreC-45Reflect-cantReify u--val "Data" ext-0) (let ((e-13 (car e-10))) (let ((e-12 (cdr e-10))) (if (null? e-12) (CoreC-45Reflect-cantReify u--val "Data" ext-0) (let ((e-14 (car e-12))) (let ((e-15 (cdr e-12))) (if (null? e-15) (CoreC-45Reflect-cantReify u--val "Data" ext-0) (let ((e-17 (car e-15))) (let ((e-18 (cdr e-15))) (if (null? e-18) (CoreC-45Reflect-cantReify u--val "Data" ext-0) (let ((e-20 (car e-18))) (let ((e-21 (cdr e-18))) (if (null? e-21) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-11) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-16 (vector-ref act-25 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref act-25 1))) (CoreC-45Reflect-u--reify_Reify_FC arg-0 arg-1 arg-2 e-16 ext-0))))))) (case (vector-ref act-25 0) ((0) (let ((e-16 (vector-ref act-25 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref act-25 1))) (let ((act-26 (let ((act-26 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-13) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-19 (vector-ref act-26 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref act-26 1))) (CoreC-45Reflect-u--reify_Reify_Name arg-0 arg-1 arg-2 e-19 ext-0))))))) (case (vector-ref act-26 0) ((0) (let ((e-19 (vector-ref act-26 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref act-26 1))) (let ((act-27 (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-14) ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-22 (vector-ref act-27 1))) (vector 0 e-22))) (else (let ((e-22 (vector-ref act-27 1))) (TTImpC-45Reflect-u--reify_Reify_RawImp arg-0 arg-1 arg-2 e-22 ext-0))))))) (case (vector-ref act-27 0) ((0) (let ((e-22 (vector-ref act-27 1))) (vector 0 e-22))) (else (let ((e-22 (vector-ref act-27 1))) (let ((act-28 (let ((act-28 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-17) ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-23 (vector-ref act-28 1))) (vector 0 e-23))) (else (let ((e-23 (vector-ref act-28 1))) (CoreC-45Reflect-u--reify_Reify_C-40ListC-32C-36aC-41 (lambda (u--c) (lambda (u--vars) (lambda (arg-6833) (lambda (arg-6834) (lambda (eta-0) (TTImpC-45Reflect-u--reify_Reify_DataOpt u--c u--vars arg-6833 arg-6834 eta-0)))))) arg-0 arg-1 arg-2 e-23 ext-0))))))) (case (vector-ref act-28 0) ((0) (let ((e-23 (vector-ref act-28 1))) (vector 0 e-23))) (else (let ((e-23 (vector-ref act-28 1))) (let ((act-29 (let ((act-29 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-20) ext-0))) (case (vector-ref act-29 0) ((0) (let ((e-24 (vector-ref act-29 1))) (vector 0 e-24))) (else (let ((e-24 (vector-ref act-29 1))) (CoreC-45Reflect-u--reify_Reify_C-40ListC-32C-36aC-41 (lambda (u--c) (lambda (u--vars) (lambda (arg-6833) (lambda (arg-6834) (lambda (eta-0) (TTImpC-45Reflect-u--reify_Reify_ImpTy u--c u--vars arg-6833 arg-6834 eta-0)))))) arg-0 arg-1 arg-2 e-24 ext-0))))))) (case (vector-ref act-29 0) ((0) (let ((e-24 (vector-ref act-29 1))) (vector 0 e-24))) (else (let ((e-24 (vector-ref act-29 1))) (vector 1 (vector 0 e-16 e-19 e-22 e-23 e-24)))))))))))))))))))))) (CoreC-45Reflect-cantReify u--val "Data" ext-0))))))))))))))))))) ((equal? e-9 "MkLater") (let ((sc5 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5))) (if (null? sc5) (CoreC-45Reflect-cantReify u--val "Data" ext-0) (let ((e-24 (car sc5))) (let ((e-25 (cdr sc5))) (if (null? e-25) (CoreC-45Reflect-cantReify u--val "Data" ext-0) (let ((e-27 (car e-25))) (let ((e-28 (cdr e-25))) (if (null? e-28) (CoreC-45Reflect-cantReify u--val "Data" ext-0) (let ((e-30 (car e-28))) (let ((e-31 (cdr e-28))) (if (null? e-31) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-24) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (CoreC-45Reflect-u--reify_Reify_FC arg-0 arg-1 arg-2 e-10 ext-0))))))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (let ((act-26 (let ((act-26 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-27) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-11 (vector-ref act-26 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-26 1))) (CoreC-45Reflect-u--reify_Reify_Name arg-0 arg-1 arg-2 e-11 ext-0))))))) (case (vector-ref act-26 0) ((0) (let ((e-11 (vector-ref act-26 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-26 1))) (let ((act-27 (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-30) ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-12 (vector-ref act-27 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref act-27 1))) (TTImpC-45Reflect-u--reify_Reify_RawImp arg-0 arg-1 arg-2 e-12 ext-0))))))) (case (vector-ref act-27 0) ((0) (let ((e-12 (vector-ref act-27 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref act-27 1))) (vector 1 (vector 1 e-10 e-11 e-12)))))))))))))) (CoreC-45Reflect-cantReify u--val "Data" ext-0)))))))))))))(else (CoreC-45Reflect-cantReify u--val "Data" ext-0)))))(else (CoreC-45Reflect-cantReify u--val "Data" ext-0)))))(else (CoreC-45Reflect-cantReify u--val "Data" ext-0))))))))))))))(else (CoreC-45Reflect-cantReify arg-3 "Data" ext-0))))) +(define TTImpC-45Reflect-u--reify_Reify_ImpClause (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (case (vector-ref arg-3 0) ((2) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-3 (vector-ref arg-3 3))) (let ((e-4 (vector-ref arg-3 4))) (let ((e-5 (vector-ref arg-3 5))) (let ((act-24 (CoreC-45Context-u--full_HasNames_Name (let ((e-0 (vector-ref arg-2 0))) e-0) e-2 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((u--val (vector 2 e-1 e-2 e-3 e-4 e-5))) (case (vector-ref e-6 0) ((0) (let ((e-7 (vector-ref e-6 2))) (case (vector-ref e-7 0) ((1) (let ((e-9 (vector-ref e-7 1))) (cond ((equal? e-9 "PatClause") (let ((sc5 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5))) (if (null? sc5) (CoreC-45Reflect-cantReify u--val "Clause" ext-0) (let ((e-11 (car sc5))) (let ((e-10 (cdr sc5))) (if (null? e-10) (CoreC-45Reflect-cantReify u--val "Clause" ext-0) (let ((e-13 (car e-10))) (let ((e-12 (cdr e-10))) (if (null? e-12) (CoreC-45Reflect-cantReify u--val "Clause" ext-0) (let ((e-14 (car e-12))) (let ((e-15 (cdr e-12))) (if (null? e-15) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-11) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-16 (vector-ref act-25 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref act-25 1))) (CoreC-45Reflect-u--reify_Reify_FC arg-0 arg-1 arg-2 e-16 ext-0))))))) (case (vector-ref act-25 0) ((0) (let ((e-16 (vector-ref act-25 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref act-25 1))) (let ((act-26 (let ((act-26 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-13) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-17 (vector-ref act-26 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref act-26 1))) (TTImpC-45Reflect-u--reify_Reify_RawImp arg-0 arg-1 arg-2 e-17 ext-0))))))) (case (vector-ref act-26 0) ((0) (let ((e-17 (vector-ref act-26 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref act-26 1))) (let ((act-27 (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-14) ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-18 (vector-ref act-27 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref act-27 1))) (TTImpC-45Reflect-u--reify_Reify_RawImp arg-0 arg-1 arg-2 e-18 ext-0))))))) (case (vector-ref act-27 0) ((0) (let ((e-18 (vector-ref act-27 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref act-27 1))) (vector 1 (vector 0 e-16 e-17 e-18)))))))))))))) (CoreC-45Reflect-cantReify u--val "Clause" ext-0))))))))))))) ((equal? e-9 "WithClause") (let ((sc5 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5))) (if (null? sc5) (CoreC-45Reflect-cantReify u--val "Clause" ext-0) (let ((e-18 (car sc5))) (let ((e-19 (cdr sc5))) (if (null? e-19) (CoreC-45Reflect-cantReify u--val "Clause" ext-0) (let ((e-21 (car e-19))) (let ((e-22 (cdr e-19))) (if (null? e-22) (CoreC-45Reflect-cantReify u--val "Clause" ext-0) (let ((e-24 (car e-22))) (let ((e-25 (cdr e-22))) (if (null? e-25) (CoreC-45Reflect-cantReify u--val "Clause" ext-0) (let ((e-27 (car e-25))) (let ((e-28 (cdr e-25))) (if (null? e-28) (CoreC-45Reflect-cantReify u--val "Clause" ext-0) (let ((e-30 (car e-28))) (let ((e-31 (cdr e-28))) (if (null? e-31) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-18) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (CoreC-45Reflect-u--reify_Reify_FC arg-0 arg-1 arg-2 e-10 ext-0))))))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (let ((act-26 (let ((act-26 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-21) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-11 (vector-ref act-26 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-26 1))) (TTImpC-45Reflect-u--reify_Reify_RawImp arg-0 arg-1 arg-2 e-11 ext-0))))))) (case (vector-ref act-26 0) ((0) (let ((e-11 (vector-ref act-26 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-26 1))) (let ((act-27 (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-24) ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-12 (vector-ref act-27 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref act-27 1))) (TTImpC-45Reflect-u--reify_Reify_RawImp arg-0 arg-1 arg-2 e-12 ext-0))))))) (case (vector-ref act-27 0) ((0) (let ((e-12 (vector-ref act-27 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref act-27 1))) (let ((act-28 (let ((act-28 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-27) ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-13 (vector-ref act-28 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref act-28 1))) (CoreC-45Reflect-u--reify_Reify_C-40MaybeC-32C-36aC-41 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (CoreC-45Reflect-u--reify_Reify_Name eta-0 eta-1 eta-2 eta-3 eta-4)))))) arg-0 arg-1 arg-2 e-13 ext-0))))))) (case (vector-ref act-28 0) ((0) (let ((e-13 (vector-ref act-28 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref act-28 1))) (let ((act-29 (let ((act-29 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-30) ext-0))) (case (vector-ref act-29 0) ((0) (let ((e-14 (vector-ref act-29 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref act-29 1))) (CoreC-45Reflect-u--reify_Reify_C-40ListC-32C-36aC-41 (lambda (u--c) (lambda (u--vars) (lambda (arg-6833) (lambda (arg-6834) (lambda (eta-0) (TTImpC-45Reflect-u--reify_Reify_ImpClause u--c u--vars arg-6833 arg-6834 eta-0)))))) arg-0 arg-1 arg-2 e-14 ext-0))))))) (case (vector-ref act-29 0) ((0) (let ((e-14 (vector-ref act-29 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref act-29 1))) (vector 1 (vector 1 e-10 e-11 e-12 e-13 '() e-14)))))))))))))))))))))) (CoreC-45Reflect-cantReify u--val "Clause" ext-0))))))))))))))))))) ((equal? e-9 "ImpossibleClause") (let ((sc5 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5))) (if (null? sc5) (CoreC-45Reflect-cantReify u--val "Clause" ext-0) (let ((e-34 (car sc5))) (let ((e-35 (cdr sc5))) (if (null? e-35) (CoreC-45Reflect-cantReify u--val "Clause" ext-0) (let ((e-37 (car e-35))) (let ((e-38 (cdr e-35))) (if (null? e-38) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-34) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (CoreC-45Reflect-u--reify_Reify_FC arg-0 arg-1 arg-2 e-10 ext-0))))))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (let ((act-26 (let ((act-26 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-37) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-11 (vector-ref act-26 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-26 1))) (TTImpC-45Reflect-u--reify_Reify_RawImp arg-0 arg-1 arg-2 e-11 ext-0))))))) (case (vector-ref act-26 0) ((0) (let ((e-11 (vector-ref act-26 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-26 1))) (vector 1 (vector 2 e-10 e-11)))))))))) (CoreC-45Reflect-cantReify u--val "Clause" ext-0))))))))))(else (CoreC-45Reflect-cantReify u--val "Clause" ext-0)))))(else (CoreC-45Reflect-cantReify u--val "Clause" ext-0)))))(else (CoreC-45Reflect-cantReify u--val "Clause" ext-0))))))))))))))(else (CoreC-45Reflect-cantReify arg-3 "Clause" ext-0))))) +(define TTImpC-45Reflect-u--reify_Reify_IFieldUpdate (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (case (vector-ref arg-3 0) ((2) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-3 (vector-ref arg-3 3))) (let ((e-4 (vector-ref arg-3 4))) (let ((e-5 (vector-ref arg-3 5))) (let ((act-24 (CoreC-45Context-u--full_HasNames_Name (let ((e-0 (vector-ref arg-2 0))) e-0) e-2 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((u--val (vector 2 e-1 e-2 e-3 e-4 e-5))) (case (vector-ref e-6 0) ((0) (let ((e-7 (vector-ref e-6 2))) (case (vector-ref e-7 0) ((1) (let ((e-9 (vector-ref e-7 1))) (cond ((equal? e-9 "ISetField") (if (null? e-5) (CoreC-45Reflect-cantReify u--val "IFieldUpdate" ext-0) (let ((e-11 (car e-5))) (let ((e-10 (cdr e-5))) (if (null? e-11) (CoreC-45Reflect-cantReify u--val "IFieldUpdate" ext-0) (let ((e-13 (cdr e-11))) (if (null? e-10) (CoreC-45Reflect-cantReify u--val "IFieldUpdate" ext-0) (let ((e-15 (car e-10))) (let ((e-16 (cdr e-10))) (if (null? e-15) (CoreC-45Reflect-cantReify u--val "IFieldUpdate" ext-0) (let ((e-20 (cdr e-15))) (if (null? e-16) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-13) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-14 (vector-ref act-25 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref act-25 1))) (CoreC-45Reflect-u--reify_Reify_C-40ListC-32C-36aC-41 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (CoreC-45Reflect-u--reify_Reify_String eta-0 eta-1 eta-2 eta-3))))) arg-0 arg-1 arg-2 e-14 ext-0))))))) (case (vector-ref act-25 0) ((0) (let ((e-14 (vector-ref act-25 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref act-25 1))) (let ((act-26 (let ((act-26 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-20) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-17 (vector-ref act-26 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref act-26 1))) (TTImpC-45Reflect-u--reify_Reify_RawImp arg-0 arg-1 arg-2 e-17 ext-0))))))) (case (vector-ref act-26 0) ((0) (let ((e-17 (vector-ref act-26 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref act-26 1))) (vector 1 (vector 0 e-14 e-17)))))))))) (CoreC-45Reflect-cantReify u--val "IFieldUpdate" ext-0))))))))))))) ((equal? e-9 "ISetFieldApp") (if (null? e-5) (CoreC-45Reflect-cantReify u--val "IFieldUpdate" ext-0) (let ((e-23 (car e-5))) (let ((e-24 (cdr e-5))) (if (null? e-23) (CoreC-45Reflect-cantReify u--val "IFieldUpdate" ext-0) (let ((e-28 (cdr e-23))) (if (null? e-24) (CoreC-45Reflect-cantReify u--val "IFieldUpdate" ext-0) (let ((e-30 (car e-24))) (let ((e-31 (cdr e-24))) (if (null? e-30) (CoreC-45Reflect-cantReify u--val "IFieldUpdate" ext-0) (let ((e-35 (cdr e-30))) (if (null? e-31) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-28) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (CoreC-45Reflect-u--reify_Reify_C-40ListC-32C-36aC-41 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (CoreC-45Reflect-u--reify_Reify_String eta-0 eta-1 eta-2 eta-3))))) arg-0 arg-1 arg-2 e-10 ext-0))))))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (let ((act-26 (let ((act-26 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-35) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-11 (vector-ref act-26 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-26 1))) (TTImpC-45Reflect-u--reify_Reify_RawImp arg-0 arg-1 arg-2 e-11 ext-0))))))) (case (vector-ref act-26 0) ((0) (let ((e-11 (vector-ref act-26 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-26 1))) (vector 1 (vector 1 e-10 e-11)))))))))) (CoreC-45Reflect-cantReify u--val "IFieldUpdate" ext-0)))))))))))))(else (CoreC-45Reflect-cantReify u--val "IFieldUpdate" ext-0)))))(else (CoreC-45Reflect-cantReify u--val "IFieldUpdate" ext-0)))))(else (CoreC-45Reflect-cantReify u--val "IFieldUpdate" ext-0))))))))))))))(else (CoreC-45Reflect-cantReify arg-3 "IFieldUpdate" ext-0))))) +(define TTImpC-45Reflect-u--reify_Reify_IField (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (case (vector-ref arg-3 0) ((2) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-3 (vector-ref arg-3 3))) (let ((e-4 (vector-ref arg-3 4))) (let ((e-5 (vector-ref arg-3 5))) (let ((act-24 (CoreC-45Context-u--full_HasNames_Name (let ((e-0 (vector-ref arg-2 0))) e-0) e-2 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((u--val (vector 2 e-1 e-2 e-3 e-4 e-5))) (case (vector-ref e-6 0) ((0) (let ((e-7 (vector-ref e-6 2))) (case (vector-ref e-7 0) ((1) (let ((e-9 (vector-ref e-7 1))) (cond ((equal? e-9 "MkIField") (let ((sc5 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5))) (if (null? sc5) (CoreC-45Reflect-cantReify u--val "IField" ext-0) (let ((e-11 (car sc5))) (let ((e-10 (cdr sc5))) (if (null? e-10) (CoreC-45Reflect-cantReify u--val "IField" ext-0) (let ((e-13 (car e-10))) (let ((e-12 (cdr e-10))) (if (null? e-12) (CoreC-45Reflect-cantReify u--val "IField" ext-0) (let ((e-14 (car e-12))) (let ((e-15 (cdr e-12))) (if (null? e-15) (CoreC-45Reflect-cantReify u--val "IField" ext-0) (let ((e-17 (car e-15))) (let ((e-18 (cdr e-15))) (if (null? e-18) (CoreC-45Reflect-cantReify u--val "IField" ext-0) (let ((e-20 (car e-18))) (let ((e-21 (cdr e-18))) (if (null? e-21) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-11) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-16 (vector-ref act-25 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref act-25 1))) (CoreC-45Reflect-u--reify_Reify_FC arg-0 arg-1 arg-2 e-16 ext-0))))))) (case (vector-ref act-25 0) ((0) (let ((e-16 (vector-ref act-25 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref act-25 1))) (let ((act-26 (let ((act-26 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-13) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-19 (vector-ref act-26 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref act-26 1))) (CoreC-45Reflect-u--reify_Reify_RigCount arg-0 arg-1 arg-2 e-19 ext-0))))))) (case (vector-ref act-26 0) ((0) (let ((e-19 (vector-ref act-26 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref act-26 1))) (let ((act-27 (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-14) ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-22 (vector-ref act-27 1))) (vector 0 e-22))) (else (let ((e-22 (vector-ref act-27 1))) (CoreC-45Reflect-u--reify_Reify_C-40PiInfoC-32C-36tC-41 (lambda (u--c) (lambda (u--vars) (lambda (arg-6833) (lambda (arg-6834) (lambda (eta-0) (TTImpC-45Reflect-u--reify_Reify_RawImp u--c u--vars arg-6833 arg-6834 eta-0)))))) arg-0 arg-1 arg-2 e-22 ext-0))))))) (case (vector-ref act-27 0) ((0) (let ((e-22 (vector-ref act-27 1))) (vector 0 e-22))) (else (let ((e-22 (vector-ref act-27 1))) (let ((act-28 (let ((act-28 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-17) ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-23 (vector-ref act-28 1))) (vector 0 e-23))) (else (let ((e-23 (vector-ref act-28 1))) (CoreC-45Reflect-u--reify_Reify_Name arg-0 arg-1 arg-2 e-23 ext-0))))))) (case (vector-ref act-28 0) ((0) (let ((e-23 (vector-ref act-28 1))) (vector 0 e-23))) (else (let ((e-23 (vector-ref act-28 1))) (let ((act-29 (let ((act-29 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-20) ext-0))) (case (vector-ref act-29 0) ((0) (let ((e-24 (vector-ref act-29 1))) (vector 0 e-24))) (else (let ((e-24 (vector-ref act-29 1))) (TTImpC-45Reflect-u--reify_Reify_RawImp arg-0 arg-1 arg-2 e-24 ext-0))))))) (case (vector-ref act-29 0) ((0) (let ((e-24 (vector-ref act-29 1))) (vector 0 e-24))) (else (let ((e-24 (vector-ref act-29 1))) (vector 1 (vector e-16 e-19 e-22 e-23 e-24)))))))))))))))))))))) (CoreC-45Reflect-cantReify u--val "IField" ext-0)))))))))))))))))))(else (CoreC-45Reflect-cantReify u--val "IField" ext-0)))))(else (CoreC-45Reflect-cantReify u--val "IField" ext-0)))))(else (CoreC-45Reflect-cantReify u--val "IField" ext-0))))))))))))))(else (CoreC-45Reflect-cantReify arg-3 "IField" ext-0))))) +(define TTImpC-45Reflect-u--reify_Reify_FnOpt (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (case (vector-ref arg-3 0) ((2) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-3 (vector-ref arg-3 3))) (let ((e-4 (vector-ref arg-3 4))) (let ((e-5 (vector-ref arg-3 5))) (let ((act-24 (CoreC-45Context-u--full_HasNames_Name (let ((e-0 (vector-ref arg-2 0))) e-0) e-2 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((u--val (vector 2 e-1 e-2 e-3 e-4 e-5))) (case (vector-ref e-6 0) ((0) (let ((e-7 (vector-ref e-6 2))) (case (vector-ref e-7 0) ((1) (let ((e-9 (vector-ref e-7 1))) (cond ((equal? e-9 "Inline") (vector 1 (vector 0 ))) ((equal? e-9 "TCInline") (vector 1 (vector 1 ))) ((equal? e-9 "Hint") (if (null? e-5) (CoreC-45Reflect-cantReify u--val "FnOpt" ext-0) (let ((e-11 (car e-5))) (let ((e-10 (cdr e-5))) (if (null? e-11) (CoreC-45Reflect-cantReify u--val "FnOpt" ext-0) (let ((e-13 (cdr e-11))) (if (null? e-10) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-13) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-14 (vector-ref act-25 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref act-25 1))) (CoreC-45Reflect-u--reify_Reify_Bool arg-0 arg-1 arg-2 e-14 ext-0))))))) (case (vector-ref act-25 0) ((0) (let ((e-14 (vector-ref act-25 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref act-25 1))) (vector 1 (vector 2 e-14)))))) (CoreC-45Reflect-cantReify u--val "FnOpt" ext-0)))))))) ((equal? e-9 "GlobalHint") (if (null? e-5) (CoreC-45Reflect-cantReify u--val "FnOpt" ext-0) (let ((e-16 (car e-5))) (let ((e-17 (cdr e-5))) (if (null? e-16) (CoreC-45Reflect-cantReify u--val "FnOpt" ext-0) (let ((e-21 (cdr e-16))) (if (null? e-17) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-21) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (CoreC-45Reflect-u--reify_Reify_Bool arg-0 arg-1 arg-2 e-10 ext-0))))))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (vector 1 (vector 3 e-10)))))) (CoreC-45Reflect-cantReify u--val "FnOpt" ext-0)))))))) ((equal? e-9 "ExternFn") (vector 1 (vector 4 ))) ((equal? e-9 "ForeignFn") (if (null? e-5) (CoreC-45Reflect-cantReify u--val "FnOpt" ext-0) (let ((e-24 (car e-5))) (let ((e-25 (cdr e-5))) (if (null? e-24) (CoreC-45Reflect-cantReify u--val "FnOpt" ext-0) (let ((e-29 (cdr e-24))) (if (null? e-25) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-29) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (CoreC-45Reflect-u--reify_Reify_C-40ListC-32C-36aC-41 (lambda (u--c) (lambda (u--vars) (lambda (arg-6833) (lambda (arg-6834) (lambda (eta-0) (TTImpC-45Reflect-u--reify_Reify_RawImp u--c u--vars arg-6833 arg-6834 eta-0)))))) arg-0 arg-1 arg-2 e-10 ext-0))))))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (vector 1 (vector 5 e-10)))))) (CoreC-45Reflect-cantReify u--val "FnOpt" ext-0)))))))) ((equal? e-9 "Invertible") (vector 1 (vector 6 ))) ((equal? e-9 "Totality") (if (null? e-5) (CoreC-45Reflect-cantReify u--val "FnOpt" ext-0) (let ((e-32 (car e-5))) (let ((e-33 (cdr e-5))) (if (null? e-32) (CoreC-45Reflect-cantReify u--val "FnOpt" ext-0) (let ((e-37 (cdr e-32))) (if (null? e-33) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-37) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (CoreC-45Reflect-u--reify_Reify_TotalReq arg-0 arg-1 arg-2 e-10 ext-0))))))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (vector 1 (vector 7 e-10)))))) (CoreC-45Reflect-cantReify u--val "FnOpt" ext-0)))))))) ((equal? e-9 "Macro") (vector 1 (vector 8 ))) ((equal? e-9 "SpecArgs") (if (null? e-5) (CoreC-45Reflect-cantReify u--val "FnOpt" ext-0) (let ((e-40 (car e-5))) (let ((e-41 (cdr e-5))) (if (null? e-40) (CoreC-45Reflect-cantReify u--val "FnOpt" ext-0) (let ((e-45 (cdr e-40))) (if (null? e-41) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-45) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (CoreC-45Reflect-u--reify_Reify_C-40ListC-32C-36aC-41 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (CoreC-45Reflect-u--reify_Reify_Name eta-0 eta-1 eta-2 eta-3 eta-4)))))) arg-0 arg-1 arg-2 e-10 ext-0))))))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (vector 1 (vector 9 e-10)))))) (CoreC-45Reflect-cantReify u--val "FnOpt" ext-0))))))))(else (CoreC-45Reflect-cantReify u--val "FnOpt" ext-0)))))(else (CoreC-45Reflect-cantReify u--val "FnOpt" ext-0)))))(else (CoreC-45Reflect-cantReify u--val "FnOpt" ext-0))))))))))))))(else (CoreC-45Reflect-cantReify arg-3 "FnOpt" ext-0))))) +(define TTImpC-45Reflect-u--reify_Reify_DotReason (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (case (vector-ref arg-3 0) ((2) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-3 (vector-ref arg-3 3))) (let ((e-4 (vector-ref arg-3 4))) (let ((e-5 (vector-ref arg-3 5))) (let ((act-24 (CoreC-45Context-u--full_HasNames_Name (let ((e-0 (vector-ref arg-2 0))) e-0) e-2 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((u--val (vector 2 e-1 e-2 e-3 e-4 e-5))) (case (vector-ref e-6 0) ((0) (let ((e-7 (vector-ref e-6 2))) (case (vector-ref e-7 0) ((1) (let ((e-9 (vector-ref e-7 1))) (cond ((equal? e-9 "NonLinearVar") (vector 1 0)) ((equal? e-9 "VarApplied") (vector 1 1)) ((equal? e-9 "NotConstructor") (vector 1 2)) ((equal? e-9 "ErasedArg") (vector 1 3)) ((equal? e-9 "UserDotted") (vector 1 4)) ((equal? e-9 "UnknownDot") (vector 1 5)) ((equal? e-9 "UnderAppliedCon") (vector 1 6))(else (CoreC-45Reflect-cantReify u--val "DotReason" ext-0)))))(else (CoreC-45Reflect-cantReify u--val "DotReason" ext-0)))))(else (CoreC-45Reflect-cantReify u--val "DotReason" ext-0))))))))))))))(else (CoreC-45Reflect-cantReify arg-3 "DotReason" ext-0))))) +(define TTImpC-45Reflect-u--reify_Reify_DataOpt (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (case (vector-ref arg-3 0) ((2) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-3 (vector-ref arg-3 3))) (let ((e-4 (vector-ref arg-3 4))) (let ((e-5 (vector-ref arg-3 5))) (let ((act-24 (CoreC-45Context-u--full_HasNames_Name (let ((e-0 (vector-ref arg-2 0))) e-0) e-2 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((u--val (vector 2 e-1 e-2 e-3 e-4 e-5))) (case (vector-ref e-6 0) ((0) (let ((e-7 (vector-ref e-6 2))) (case (vector-ref e-7 0) ((1) (let ((e-9 (vector-ref e-7 1))) (cond ((equal? e-9 "SearchBy") (if (null? e-5) (CoreC-45Reflect-cantReify u--val "DataOpt" ext-0) (let ((e-11 (car e-5))) (let ((e-10 (cdr e-5))) (if (null? e-11) (CoreC-45Reflect-cantReify u--val "DataOpt" ext-0) (let ((e-13 (cdr e-11))) (if (null? e-10) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-13) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-14 (vector-ref act-25 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref act-25 1))) (CoreC-45Reflect-u--reify_Reify_C-40ListC-32C-36aC-41 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (CoreC-45Reflect-u--reify_Reify_Name eta-0 eta-1 eta-2 eta-3 eta-4)))))) arg-0 arg-1 arg-2 e-14 ext-0))))))) (case (vector-ref act-25 0) ((0) (let ((e-14 (vector-ref act-25 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref act-25 1))) (vector 1 (vector 0 e-14)))))) (CoreC-45Reflect-cantReify u--val "DataOpt" ext-0)))))))) ((equal? e-9 "NoHints") (vector 1 (vector 1 ))) ((equal? e-9 "UniqueSearch") (vector 1 (vector 2 ))) ((equal? e-9 "External") (vector 1 (vector 3 ))) ((equal? e-9 "NoNewtype") (vector 1 (vector 4 )))(else (CoreC-45Reflect-cantReify u--val "DataOpt" ext-0)))))(else (CoreC-45Reflect-cantReify u--val "DataOpt" ext-0)))))(else (CoreC-45Reflect-cantReify u--val "DataOpt" ext-0))))))))))))))(else (CoreC-45Reflect-cantReify arg-3 "DataOpt" ext-0))))) +(define TTImpC-45Reflect-u--reify_Reify_BindMode (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (case (vector-ref arg-3 0) ((2) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-3 (vector-ref arg-3 3))) (let ((e-4 (vector-ref arg-3 4))) (let ((e-5 (vector-ref arg-3 5))) (let ((act-24 (CoreC-45Context-u--full_HasNames_Name (let ((e-0 (vector-ref arg-2 0))) e-0) e-2 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((u--val (vector 2 e-1 e-2 e-3 e-4 e-5))) (case (vector-ref e-6 0) ((0) (let ((e-7 (vector-ref e-6 2))) (case (vector-ref e-7 0) ((1) (let ((e-9 (vector-ref e-7 1))) (cond ((equal? e-9 "PI") (if (null? e-5) (CoreC-45Reflect-cantReify u--val "BindMode" ext-0) (let ((e-11 (car e-5))) (let ((e-10 (cdr e-5))) (if (null? e-11) (CoreC-45Reflect-cantReify u--val "BindMode" ext-0) (let ((e-13 (cdr e-11))) (if (null? e-10) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-13) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-14 (vector-ref act-25 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref act-25 1))) (CoreC-45Reflect-u--reify_Reify_RigCount arg-0 arg-1 arg-2 e-14 ext-0))))))) (case (vector-ref act-25 0) ((0) (let ((e-14 (vector-ref act-25 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref act-25 1))) (vector 1 (vector 0 e-14)))))) (CoreC-45Reflect-cantReify u--val "BindMode" ext-0)))))))) ((equal? e-9 "PATTERN") (vector 1 (vector 1 ))) ((equal? e-9 "NONE") (vector 1 (vector 2 )))(else (CoreC-45Reflect-cantReify u--val "BindMode" ext-0)))))(else (CoreC-45Reflect-cantReify u--val "BindMode" ext-0)))))(else (CoreC-45Reflect-cantReify u--val "BindMode" ext-0))))))))))))))(else (CoreC-45Reflect-cantReify arg-3 "BindMode" ext-0))))) +(define TTImpC-45Reflect-u--reify_Reify_AltType (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (case (vector-ref arg-3 0) ((2) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-3 (vector-ref arg-3 3))) (let ((e-4 (vector-ref arg-3 4))) (let ((e-5 (vector-ref arg-3 5))) (let ((act-24 (CoreC-45Context-u--full_HasNames_Name (let ((e-0 (vector-ref arg-2 0))) e-0) e-2 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((u--val (vector 2 e-1 e-2 e-3 e-4 e-5))) (case (vector-ref e-6 0) ((0) (let ((e-7 (vector-ref e-6 2))) (case (vector-ref e-7 0) ((1) (let ((e-9 (vector-ref e-7 1))) (cond ((equal? e-9 "FirstSuccess") (vector 1 (vector 0 ))) ((equal? e-9 "Unique") (vector 1 (vector 1 ))) ((equal? e-9 "UniqueDefault") (if (null? e-5) (CoreC-45Reflect-cantReify u--val "AltType" ext-0) (let ((e-11 (car e-5))) (let ((e-10 (cdr e-5))) (if (null? e-11) (CoreC-45Reflect-cantReify u--val "AltType" ext-0) (let ((e-13 (cdr e-11))) (if (null? e-10) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-13) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-14 (vector-ref act-25 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref act-25 1))) (TTImpC-45Reflect-u--reify_Reify_RawImp arg-0 arg-1 arg-2 e-14 ext-0))))))) (case (vector-ref act-25 0) ((0) (let ((e-14 (vector-ref act-25 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref act-25 1))) (vector 1 (vector 2 e-14)))))) (CoreC-45Reflect-cantReify u--val "AltType" ext-0))))))))(else (CoreC-45Reflect-cantReify u--val "AltType" ext-0)))))(else (CoreC-45Reflect-cantReify u--val "AltType" ext-0)))))(else (CoreC-45Reflect-cantReify u--val "AltType" ext-0))))))))))))))(else (CoreC-45Reflect-cantReify arg-3 "AltType" ext-0))))) +(define TTImpC-45Reflect-u--reflect_Reflect_UseSide (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (cond ((equal? arg-5 0) (CoreC-45Reflect-getCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "UseLeft") ext-0)) (else (CoreC-45Reflect-getCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "UseRight") ext-0))))) +(define TTImpC-45Reflect-u--reflect_Reflect_RawImp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (case (vector-ref arg-5 0) ((0) (let ((e-7 (vector-ref arg-5 1))) (let ((e-8 (vector-ref arg-5 2))) (lambda (eta-0) (let ((act-24 ((CoreC-45Reflect-u--reflect_Reflect_FC arg-0 arg-1 arg-2 arg-3 arg-4 e-7) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Reflect-u--reflect_Reflect_Name arg-0 arg-1 arg-2 arg-3 arg-4 e-8 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "IVar") (cons e-5 (cons e-6 '())) eta-0))))))))))))) ((1) (let ((e-9 (vector-ref arg-5 1))) (let ((e-10 (vector-ref arg-5 2))) (let ((e-11 (vector-ref arg-5 3))) (let ((e-12 (vector-ref arg-5 4))) (let ((e-13 (vector-ref arg-5 5))) (let ((e-14 (vector-ref arg-5 6))) (lambda (eta-0) (let ((act-24 ((CoreC-45Reflect-u--reflect_Reflect_FC arg-0 arg-1 arg-2 arg-3 arg-4 e-9) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Reflect-u--reflect_Reflect_RigCount arg-0 arg-1 arg-2 arg-3 arg-4 e-10) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Reflect-u--reflect_Reflect_C-40PiInfoC-32C-36tC-41 (lambda (u--vars) (lambda (arg-6856) (lambda (arg-6857) (lambda (u--onLHS) (lambda (arg-6858) (lambda (arg-6860) (TTImpC-45Reflect-u--reflect_Reflect_RawImp u--vars arg-6856 arg-6857 u--onLHS arg-6858 arg-6860))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-11 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (CoreC-45Reflect-u--reflect_Reflect_C-40MaybeC-32C-36aC-41 (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (lambda (eta-7) (CoreC-45Reflect-u--reflect_Reflect_Name eta-1 eta-2 eta-3 eta-4 eta-5 eta-6 eta-7)))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-12 eta-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (let ((act-28 ((TTImpC-45Reflect-u--reflect_Reflect_RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-13) eta-0))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((e-15 (vector-ref act-28 1))) (let ((act-29 ((TTImpC-45Reflect-u--reflect_Reflect_RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-14) eta-0))) (case (vector-ref act-29 0) ((0) (let ((e-2 (vector-ref act-29 1))) (vector 0 e-2))) (else (let ((e-16 (vector-ref act-29 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "IPi") (cons e-5 (cons e-6 (cons e-7 (cons e-8 (cons e-15 (cons e-16 '())))))) eta-0))))))))))))))))))))))))))))))))) ((2) (let ((e-15 (vector-ref arg-5 1))) (let ((e-16 (vector-ref arg-5 2))) (let ((e-17 (vector-ref arg-5 3))) (let ((e-18 (vector-ref arg-5 4))) (let ((e-19 (vector-ref arg-5 5))) (let ((e-20 (vector-ref arg-5 6))) (lambda (eta-0) (let ((act-24 ((CoreC-45Reflect-u--reflect_Reflect_FC arg-0 arg-1 arg-2 arg-3 arg-4 e-15) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Reflect-u--reflect_Reflect_RigCount arg-0 arg-1 arg-2 arg-3 arg-4 e-16) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Reflect-u--reflect_Reflect_C-40PiInfoC-32C-36tC-41 (lambda (u--vars) (lambda (arg-6856) (lambda (arg-6857) (lambda (u--onLHS) (lambda (arg-6858) (lambda (arg-6860) (TTImpC-45Reflect-u--reflect_Reflect_RawImp u--vars arg-6856 arg-6857 u--onLHS arg-6858 arg-6860))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-17 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (CoreC-45Reflect-u--reflect_Reflect_C-40MaybeC-32C-36aC-41 (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (lambda (eta-7) (CoreC-45Reflect-u--reflect_Reflect_Name eta-1 eta-2 eta-3 eta-4 eta-5 eta-6 eta-7)))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-18 eta-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (let ((act-28 ((TTImpC-45Reflect-u--reflect_Reflect_RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-19) eta-0))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-28 1))) (let ((act-29 ((TTImpC-45Reflect-u--reflect_Reflect_RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-20) eta-0))) (case (vector-ref act-29 0) ((0) (let ((e-2 (vector-ref act-29 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref act-29 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "ILam") (cons e-5 (cons e-6 (cons e-7 (cons e-8 (cons e-9 (cons e-10 '())))))) eta-0))))))))))))))))))))))))))))))))) ((3) (let ((e-21 (vector-ref arg-5 1))) (let ((e-22 (vector-ref arg-5 2))) (let ((e-23 (vector-ref arg-5 3))) (let ((e-24 (vector-ref arg-5 4))) (let ((e-25 (vector-ref arg-5 5))) (let ((e-26 (vector-ref arg-5 6))) (let ((e-27 (vector-ref arg-5 7))) (lambda (eta-0) (let ((act-24 ((CoreC-45Reflect-u--reflect_Reflect_FC arg-0 arg-1 arg-2 arg-3 arg-4 e-21) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Reflect-u--reflect_Reflect_FC arg-0 arg-1 arg-2 arg-3 arg-4 e-22) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 ((CoreC-45Reflect-u--reflect_Reflect_RigCount arg-0 arg-1 arg-2 arg-3 arg-4 e-23) eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (CoreC-45Reflect-u--reflect_Reflect_Name arg-0 arg-1 arg-2 arg-3 arg-4 e-24 eta-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (let ((act-28 ((TTImpC-45Reflect-u--reflect_Reflect_RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-25) eta-0))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-28 1))) (let ((act-29 ((TTImpC-45Reflect-u--reflect_Reflect_RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-26) eta-0))) (case (vector-ref act-29 0) ((0) (let ((e-2 (vector-ref act-29 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref act-29 1))) (let ((act-30 ((TTImpC-45Reflect-u--reflect_Reflect_RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-27) eta-0))) (case (vector-ref act-30 0) ((0) (let ((e-2 (vector-ref act-30 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref act-30 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "ILet") (cons e-5 (cons e-6 (cons e-7 (cons e-8 (cons e-9 (cons e-10 (cons e-11 '()))))))) eta-0)))))))))))))))))))))))))))))))))))))) ((4) (let ((e-28 (vector-ref arg-5 1))) (let ((e-29 (vector-ref arg-5 2))) (let ((e-30 (vector-ref arg-5 3))) (let ((e-31 (vector-ref arg-5 4))) (lambda (eta-0) (let ((act-24 ((CoreC-45Reflect-u--reflect_Reflect_FC arg-0 arg-1 arg-2 arg-3 arg-4 e-28) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((TTImpC-45Reflect-u--reflect_Reflect_RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-29) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 ((TTImpC-45Reflect-u--reflect_Reflect_RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-30) eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (CoreC-45Reflect-u--reflect_Reflect_C-40ListC-32C-36aC-41 (lambda (u--vars) (lambda (arg-6856) (lambda (arg-6857) (lambda (u--onLHS) (lambda (arg-6858) (lambda (arg-6860) (lambda (eta-1) (TTImpC-45Reflect-u--reflect_Reflect_ImpClause u--vars arg-6856 arg-6857 u--onLHS arg-6858 arg-6860 eta-1)))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-31 eta-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "ICase") (cons e-5 (cons e-6 (cons e-7 (cons e-8 '())))) eta-0))))))))))))))))))))))) ((5) (let ((e-32 (vector-ref arg-5 1))) (let ((e-33 (vector-ref arg-5 2))) (let ((e-34 (vector-ref arg-5 3))) (lambda (eta-0) (let ((act-24 ((CoreC-45Reflect-u--reflect_Reflect_FC arg-0 arg-1 arg-2 arg-3 arg-4 e-32) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Reflect-u--reflect_Reflect_C-40ListC-32C-36aC-41 (lambda (u--vars) (lambda (arg-6856) (lambda (arg-6857) (lambda (u--onLHS) (lambda (arg-6858) (lambda (arg-6860) (lambda (eta-1) (TTImpC-45Reflect-u--reflect_Reflect_ImpDecl u--vars arg-6856 arg-6857 u--onLHS arg-6858 arg-6860 eta-1)))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-33 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 ((TTImpC-45Reflect-u--reflect_Reflect_RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-34) eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "ILocal") (cons e-5 (cons e-6 (cons e-7 '()))) eta-0)))))))))))))))))) ((6) (let ((e-39 (vector-ref arg-5 5))) (TTImpC-45Reflect-u--reflect_Reflect_RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-39))) ((7) (let ((e-40 (vector-ref arg-5 1))) (let ((e-41 (vector-ref arg-5 2))) (let ((e-42 (vector-ref arg-5 3))) (lambda (eta-0) (let ((act-24 ((CoreC-45Reflect-u--reflect_Reflect_FC arg-0 arg-1 arg-2 arg-3 arg-4 e-40) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Reflect-u--reflect_Reflect_C-40ListC-32C-36aC-41 (lambda (u--vars) (lambda (arg-6856) (lambda (arg-6857) (lambda (u--onLHS) (lambda (arg-6858) (lambda (arg-6860) (lambda (eta-1) (TTImpC-45Reflect-u--reflect_Reflect_IFieldUpdate u--vars arg-6856 arg-6857 u--onLHS arg-6858 arg-6860 eta-1)))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-41 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 ((TTImpC-45Reflect-u--reflect_Reflect_RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-42) eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "IUpdate") (cons e-5 (cons e-6 (cons e-7 '()))) eta-0)))))))))))))))))) ((8) (let ((e-43 (vector-ref arg-5 1))) (let ((e-44 (vector-ref arg-5 2))) (let ((e-45 (vector-ref arg-5 3))) (lambda (eta-0) (let ((act-24 ((CoreC-45Reflect-u--reflect_Reflect_FC arg-0 arg-1 arg-2 arg-3 arg-4 e-43) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((TTImpC-45Reflect-u--reflect_Reflect_RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-44) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 ((TTImpC-45Reflect-u--reflect_Reflect_RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-45) eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "IApp") (cons e-5 (cons e-6 (cons e-7 '()))) eta-0)))))))))))))))))) ((9) (let ((e-46 (vector-ref arg-5 1))) (let ((e-47 (vector-ref arg-5 2))) (let ((e-48 (vector-ref arg-5 3))) (lambda (eta-0) (let ((act-24 ((CoreC-45Reflect-u--reflect_Reflect_FC arg-0 arg-1 arg-2 arg-3 arg-4 e-46) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((TTImpC-45Reflect-u--reflect_Reflect_RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-47) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 ((TTImpC-45Reflect-u--reflect_Reflect_RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-48) eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "IAutoApp") (cons e-5 (cons e-6 (cons e-7 '()))) eta-0)))))))))))))))))) ((10) (let ((e-49 (vector-ref arg-5 1))) (let ((e-50 (vector-ref arg-5 2))) (let ((e-51 (vector-ref arg-5 3))) (let ((e-52 (vector-ref arg-5 4))) (lambda (eta-0) (let ((act-24 ((CoreC-45Reflect-u--reflect_Reflect_FC arg-0 arg-1 arg-2 arg-3 arg-4 e-49) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((TTImpC-45Reflect-u--reflect_Reflect_RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-50) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Reflect-u--reflect_Reflect_Name arg-0 arg-1 arg-2 arg-3 arg-4 e-51 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 ((TTImpC-45Reflect-u--reflect_Reflect_RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-52) eta-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "INamedApp") (cons e-5 (cons e-6 (cons e-7 (cons e-8 '())))) eta-0))))))))))))))))))))))) ((11) (let ((e-53 (vector-ref arg-5 1))) (let ((e-54 (vector-ref arg-5 2))) (let ((e-55 (vector-ref arg-5 3))) (lambda (eta-0) (let ((act-24 ((CoreC-45Reflect-u--reflect_Reflect_FC arg-0 arg-1 arg-2 arg-3 arg-4 e-53) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((TTImpC-45Reflect-u--reflect_Reflect_RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-54) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 ((TTImpC-45Reflect-u--reflect_Reflect_RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-55) eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "IWithApp") (cons e-5 (cons e-6 (cons e-7 '()))) eta-0)))))))))))))))))) ((12) (let ((e-56 (vector-ref arg-5 1))) (let ((e-57 (vector-ref arg-5 2))) (lambda (eta-0) (let ((act-24 ((CoreC-45Reflect-u--reflect_Reflect_FC arg-0 arg-1 arg-2 arg-3 arg-4 e-56) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Reflect-u--reflect_Reflect_Nat arg-0 arg-1 arg-2 arg-3 arg-4 e-57) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "ISearch") (cons e-5 (cons e-6 '())) eta-0))))))))))))) ((13) (let ((e-58 (vector-ref arg-5 1))) (let ((e-59 (vector-ref arg-5 2))) (let ((e-60 (vector-ref arg-5 3))) (lambda (eta-0) (let ((act-24 ((CoreC-45Reflect-u--reflect_Reflect_FC arg-0 arg-1 arg-2 arg-3 arg-4 e-58) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (TTImpC-45Reflect-u--reflect_Reflect_AltType arg-0 arg-1 arg-2 arg-3 arg-4 e-59 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Reflect-u--reflect_Reflect_C-40ListC-32C-36aC-41 (lambda (u--vars) (lambda (arg-6856) (lambda (arg-6857) (lambda (u--onLHS) (lambda (arg-6858) (lambda (arg-6860) (TTImpC-45Reflect-u--reflect_Reflect_RawImp u--vars arg-6856 arg-6857 u--onLHS arg-6858 arg-6860))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-60 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "IAlternative") (cons e-5 (cons e-6 (cons e-7 '()))) eta-0)))))))))))))))))) ((14) (let ((e-61 (vector-ref arg-5 1))) (let ((e-62 (vector-ref arg-5 2))) (let ((e-63 (vector-ref arg-5 3))) (lambda (eta-0) (let ((act-24 ((CoreC-45Reflect-u--reflect_Reflect_FC arg-0 arg-1 arg-2 arg-3 arg-4 e-61) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((TTImpC-45Reflect-u--reflect_Reflect_RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-62) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 ((TTImpC-45Reflect-u--reflect_Reflect_RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-63) eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "IRewrite") (cons e-5 (cons e-6 (cons e-7 '()))) eta-0)))))))))))))))))) ((15) (let ((e-65 (vector-ref arg-5 2))) (TTImpC-45Reflect-u--reflect_Reflect_RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-65))) ((16) (let ((e-66 (vector-ref arg-5 1))) (let ((e-67 (vector-ref arg-5 2))) (let ((e-68 (vector-ref arg-5 3))) (lambda (eta-0) (let ((act-24 ((CoreC-45Reflect-u--reflect_Reflect_FC arg-0 arg-1 arg-2 arg-3 arg-4 e-66) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (TTImpC-45Reflect-u--reflect_Reflect_BindMode arg-0 arg-1 arg-2 arg-3 arg-4 e-67 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 ((TTImpC-45Reflect-u--reflect_Reflect_RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-68) eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "IBindHere") (cons e-5 (cons e-6 (cons e-7 '()))) eta-0)))))))))))))))))) ((17) (let ((e-69 (vector-ref arg-5 1))) (let ((e-70 (vector-ref arg-5 2))) (lambda (eta-0) (let ((act-24 ((CoreC-45Reflect-u--reflect_Reflect_FC arg-0 arg-1 arg-2 arg-3 arg-4 e-69) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Reflect-u--reflect_Reflect_String arg-0 arg-1 arg-2 arg-3 arg-4 e-70 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "IBindVar") (cons e-5 (cons e-6 '())) eta-0))))))))))))) ((18) (let ((e-71 (vector-ref arg-5 1))) (let ((e-72 (vector-ref arg-5 2))) (let ((e-73 (vector-ref arg-5 3))) (let ((e-74 (vector-ref arg-5 4))) (let ((e-75 (vector-ref arg-5 5))) (lambda (eta-0) (let ((act-24 ((CoreC-45Reflect-u--reflect_Reflect_FC arg-0 arg-1 arg-2 arg-3 arg-4 e-71) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Reflect-u--reflect_Reflect_FC arg-0 arg-1 arg-2 arg-3 arg-4 e-72) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45Reflect-u--reflect_Reflect_UseSide arg-0 arg-1 arg-2 arg-3 arg-4 e-73 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (CoreC-45Reflect-u--reflect_Reflect_Name arg-0 arg-1 arg-2 arg-3 arg-4 e-74 eta-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (let ((act-28 ((TTImpC-45Reflect-u--reflect_Reflect_RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-75) eta-0))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-28 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "IAs") (cons e-5 (cons e-6 (cons e-7 (cons e-8 (cons e-9 '()))))) eta-0)))))))))))))))))))))))))))) ((19) (let ((e-76 (vector-ref arg-5 1))) (let ((e-77 (vector-ref arg-5 2))) (let ((e-78 (vector-ref arg-5 3))) (lambda (eta-0) (let ((act-24 ((CoreC-45Reflect-u--reflect_Reflect_FC arg-0 arg-1 arg-2 arg-3 arg-4 e-76) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (TTImpC-45Reflect-u--reflect_Reflect_DotReason arg-0 arg-1 arg-2 arg-3 arg-4 e-77 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 ((TTImpC-45Reflect-u--reflect_Reflect_RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-78) eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "IMustUnify") (cons e-5 (cons e-6 (cons e-7 '()))) eta-0)))))))))))))))))) ((20) (let ((e-79 (vector-ref arg-5 1))) (let ((e-80 (vector-ref arg-5 2))) (let ((e-81 (vector-ref arg-5 3))) (lambda (eta-0) (let ((act-24 ((CoreC-45Reflect-u--reflect_Reflect_FC arg-0 arg-1 arg-2 arg-3 arg-4 e-79) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Reflect-u--reflect_Reflect_LazyReason arg-0 arg-1 arg-2 arg-3 arg-4 e-80 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 ((TTImpC-45Reflect-u--reflect_Reflect_RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-81) eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "IDelayed") (cons e-5 (cons e-6 (cons e-7 '()))) eta-0)))))))))))))))))) ((21) (let ((e-82 (vector-ref arg-5 1))) (let ((e-83 (vector-ref arg-5 2))) (lambda (eta-0) (let ((act-24 ((CoreC-45Reflect-u--reflect_Reflect_FC arg-0 arg-1 arg-2 arg-3 arg-4 e-82) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((TTImpC-45Reflect-u--reflect_Reflect_RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-83) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "IDelay") (cons e-5 (cons e-6 '())) eta-0))))))))))))) ((22) (let ((e-84 (vector-ref arg-5 1))) (let ((e-85 (vector-ref arg-5 2))) (lambda (eta-0) (let ((act-24 ((CoreC-45Reflect-u--reflect_Reflect_FC arg-0 arg-1 arg-2 arg-3 arg-4 e-84) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((TTImpC-45Reflect-u--reflect_Reflect_RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-85) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "IForce") (cons e-5 (cons e-6 '())) eta-0))))))))))))) ((23) (let ((e-86 (vector-ref arg-5 1))) (let ((e-87 (vector-ref arg-5 2))) (lambda (eta-0) (let ((act-24 ((CoreC-45Reflect-u--reflect_Reflect_FC arg-0 arg-1 arg-2 arg-3 arg-4 e-86) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((TTImpC-45Reflect-u--reflect_Reflect_RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-87) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "IQuote") (cons e-5 (cons e-6 '())) eta-0))))))))))))) ((24) (let ((e-88 (vector-ref arg-5 1))) (let ((e-89 (vector-ref arg-5 2))) (lambda (eta-0) (let ((act-24 ((CoreC-45Reflect-u--reflect_Reflect_FC arg-0 arg-1 arg-2 arg-3 arg-4 e-88) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Reflect-u--reflect_Reflect_Name arg-0 arg-1 arg-2 arg-3 arg-4 e-89 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "IQuoteName") (cons e-5 (cons e-6 '())) eta-0))))))))))))) ((25) (let ((e-90 (vector-ref arg-5 1))) (let ((e-91 (vector-ref arg-5 2))) (lambda (eta-0) (let ((act-24 ((CoreC-45Reflect-u--reflect_Reflect_FC arg-0 arg-1 arg-2 arg-3 arg-4 e-90) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Reflect-u--reflect_Reflect_C-40ListC-32C-36aC-41 (lambda (u--vars) (lambda (arg-6856) (lambda (arg-6857) (lambda (u--onLHS) (lambda (arg-6858) (lambda (arg-6860) (lambda (eta-1) (TTImpC-45Reflect-u--reflect_Reflect_ImpDecl u--vars arg-6856 arg-6857 u--onLHS arg-6858 arg-6860 eta-1)))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-91 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "IQuoteDecl") (cons e-5 (cons e-6 '())) eta-0))))))))))))) ((26) (let ((e-92 (vector-ref arg-5 1))) (let ((e-93 (vector-ref arg-5 2))) (lambda (clam-0) (case (vector-ref e-93 0) ((0) (let ((e-105 (vector-ref e-93 2))) (vector 1 (vector 1 e-92 (vector 0 ) e-105))))(else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 "Can't reflect an unquote: escapes should be lifted out") clam-0))))))) ((27) (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 "Can't reflect a %runelab") eta-0))) ((28) (let ((e-96 (vector-ref arg-5 1))) (let ((e-97 (vector-ref arg-5 2))) (lambda (eta-0) (let ((act-24 ((CoreC-45Reflect-u--reflect_Reflect_FC arg-0 arg-1 arg-2 arg-3 arg-4 e-96) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Reflect-u--reflect_Reflect_Constant arg-0 arg-1 arg-2 arg-3 arg-4 e-97 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "IPrimVal") (cons e-5 (cons e-6 '())) eta-0))))))))))))) ((29) (let ((e-98 (vector-ref arg-5 1))) (lambda (eta-0) (let ((act-24 ((CoreC-45Reflect-u--reflect_Reflect_FC arg-0 arg-1 arg-2 arg-3 arg-4 e-98) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "IType") (cons e-5 '()) eta-0)))))))) ((30) (let ((e-99 (vector-ref arg-5 1))) (let ((e-100 (vector-ref arg-5 2))) (lambda (eta-0) (let ((act-24 ((CoreC-45Reflect-u--reflect_Reflect_FC arg-0 arg-1 arg-2 arg-3 arg-4 e-99) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Reflect-u--reflect_Reflect_String arg-0 arg-1 arg-2 arg-3 arg-4 e-100 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "IHole") (cons e-5 (cons e-6 '())) eta-0))))))))))))) ((31) (let ((e-103 (vector-ref arg-5 3))) (TTImpC-45Reflect-u--reflect_Reflect_RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-103)))(else (cond ((equal? arg-3 1) (lambda (clam-0) (case (vector-ref arg-5 0) ((32) (vector 1 (vector 10 arg-1 0)))(else (case (vector-ref arg-5 0) ((32) (let ((e-0 (vector-ref arg-5 1))) (let ((e-1 (vector-ref arg-5 2))) (let ((act-24 ((CoreC-45Reflect-u--reflect_Reflect_FC arg-0 arg-1 arg-2 arg-3 arg-4 e-0) clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Reflect-u--reflect_Reflect_Bool arg-0 arg-1 arg-2 arg-3 arg-4 e-1 clam-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "Implicit") (cons e-5 (cons e-6 '())) clam-0)))))))))))) (else (let ((e-2 (vector-ref arg-5 1))) (let ((e-3 (vector-ref arg-5 2))) (let ((e-4 (vector-ref arg-5 3))) (let ((act-24 ((CoreC-45Reflect-u--reflect_Reflect_FC arg-0 arg-1 arg-2 arg-3 arg-4 e-2) clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Reflect-u--reflect_Reflect_C-40ListC-32C-36aC-41 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (CoreC-45Reflect-u--reflect_Reflect_Name eta-0 eta-1 eta-2 eta-3 eta-4 eta-5 eta-6)))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-3 clam-0))) (case (vector-ref act-25 0) ((0) (let ((e-6 (vector-ref act-25 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 ((TTImpC-45Reflect-u--reflect_Reflect_RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-4) clam-0))) (case (vector-ref act-26 0) ((0) (let ((e-7 (vector-ref act-26 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-26 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "WithUnambigNames") (cons e-5 (cons e-6 (cons e-7 '()))) clam-0))))))))))))))))))))))(else (lambda (clam-2) (case (vector-ref arg-5 0) ((32) (let ((e-0 (vector-ref arg-5 1))) (let ((e-1 (vector-ref arg-5 2))) (let ((act-24 ((CoreC-45Reflect-u--reflect_Reflect_FC arg-0 arg-1 arg-2 arg-3 arg-4 e-0) clam-2))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Reflect-u--reflect_Reflect_Bool arg-0 arg-1 arg-2 arg-3 arg-4 e-1 clam-2))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "Implicit") (cons e-5 (cons e-6 '())) clam-2)))))))))))) (else (let ((e-2 (vector-ref arg-5 1))) (let ((e-3 (vector-ref arg-5 2))) (let ((e-4 (vector-ref arg-5 3))) (let ((act-24 ((CoreC-45Reflect-u--reflect_Reflect_FC arg-0 arg-1 arg-2 arg-3 arg-4 e-2) clam-2))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Reflect-u--reflect_Reflect_C-40ListC-32C-36aC-41 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (CoreC-45Reflect-u--reflect_Reflect_Name eta-0 eta-1 eta-2 eta-3 eta-4 eta-5 eta-6)))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-3 clam-2))) (case (vector-ref act-25 0) ((0) (let ((e-6 (vector-ref act-25 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 ((TTImpC-45Reflect-u--reflect_Reflect_RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-4) clam-2))) (case (vector-ref act-26 0) ((0) (let ((e-7 (vector-ref act-26 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-26 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "WithUnambigNames") (cons e-5 (cons e-6 (cons e-7 '()))) clam-2))))))))))))))))))))))))) +(define TTImpC-45Reflect-u--reflect_Reflect_ImpTy (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((e-0 (vector-ref arg-5 0))) (let ((e-1 (vector-ref arg-5 1))) (let ((e-2 (vector-ref arg-5 2))) (let ((e-3 (vector-ref arg-5 3))) (let ((act-24 ((CoreC-45Reflect-u--reflect_Reflect_FC arg-0 arg-1 arg-2 arg-3 arg-4 e-0) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Reflect-u--reflect_Reflect_FC arg-0 arg-1 arg-2 arg-3 arg-4 e-1) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Reflect-u--reflect_Reflect_Name arg-0 arg-1 arg-2 arg-3 arg-4 e-2 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-4 (vector-ref act-26 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 ((TTImpC-45Reflect-u--reflect_Reflect_RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-3) ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-4 (vector-ref act-27 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref act-27 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "MkTy") (cons e-5 (cons e-6 (cons e-7 (cons e-8 '())))) ext-0))))))))))))))))))))))) +(define TTImpC-45Reflect-u--reflect_Reflect_ImpRecord (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((e-0 (vector-ref arg-5 0))) (let ((e-1 (vector-ref arg-5 1))) (let ((e-2 (vector-ref arg-5 2))) (let ((e-3 (vector-ref arg-5 3))) (let ((e-4 (vector-ref arg-5 4))) (let ((act-24 ((CoreC-45Reflect-u--reflect_Reflect_FC arg-0 arg-1 arg-2 arg-3 arg-4 e-0) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Reflect-u--reflect_Reflect_Name arg-0 arg-1 arg-2 arg-3 arg-4 e-1 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-6 (vector-ref act-25 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Reflect-u--reflect_Reflect_C-40ListC-32C-36aC-41 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (CoreC-45Reflect-u--reflect_Reflect_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (eta-7) (lambda (eta-8) (lambda (eta-9) (lambda (eta-10) (lambda (eta-11) (lambda (eta-12) (lambda (eta-13) (CoreC-45Reflect-u--reflect_Reflect_Name eta-7 eta-8 eta-9 eta-10 eta-11 eta-12 eta-13)))))))) (lambda (eta-7) (lambda (eta-8) (lambda (eta-9) (lambda (eta-10) (lambda (eta-11) (lambda (eta-12) (lambda (eta-13) (CoreC-45Reflect-u--reflect_Reflect_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (eta-14) (lambda (eta-15) (lambda (eta-16) (lambda (eta-17) (lambda (eta-18) (lambda (eta-19) (CoreC-45Reflect-u--reflect_Reflect_RigCount eta-14 eta-15 eta-16 eta-17 eta-18 eta-19))))))) (lambda (eta-14) (lambda (eta-15) (lambda (eta-16) (lambda (eta-17) (lambda (eta-18) (lambda (eta-19) (lambda (eta-20) (CoreC-45Reflect-u--reflect_Reflect_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (eta-21) (lambda (eta-22) (lambda (eta-23) (lambda (eta-24) (lambda (eta-25) (lambda (eta-26) (lambda (eta-27) (CoreC-45Reflect-u--reflect_Reflect_C-40PiInfoC-32C-36tC-41 (lambda (u--vars) (lambda (arg-6856) (lambda (arg-6857) (lambda (u--onLHS) (lambda (arg-6858) (lambda (arg-6860) (TTImpC-45Reflect-u--reflect_Reflect_RawImp u--vars arg-6856 arg-6857 u--onLHS arg-6858 arg-6860))))))) eta-21 eta-22 eta-23 eta-24 eta-25 eta-26 eta-27)))))))) (lambda (u--vars) (lambda (arg-6856) (lambda (arg-6857) (lambda (u--onLHS) (lambda (arg-6858) (lambda (arg-6860) (TTImpC-45Reflect-u--reflect_Reflect_RawImp u--vars arg-6856 arg-6857 u--onLHS arg-6858 arg-6860)))))))) eta-14 eta-15 eta-16 eta-17 eta-18 eta-19 eta-20))))))))) eta-7 eta-8 eta-9 eta-10 eta-11 eta-12 eta-13))))))))) eta-0 eta-1 eta-2 eta-3 eta-4 eta-5 eta-6)))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-2 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-7 (vector-ref act-26 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (CoreC-45Reflect-u--reflect_Reflect_Name arg-0 arg-1 arg-2 arg-3 arg-4 e-3 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-8 (vector-ref act-27 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref act-27 1))) (let ((act-28 (CoreC-45Reflect-u--reflect_Reflect_C-40ListC-32C-36aC-41 (lambda (u--vars) (lambda (arg-6856) (lambda (arg-6857) (lambda (u--onLHS) (lambda (arg-6858) (lambda (arg-6860) (lambda (eta-0) (TTImpC-45Reflect-u--reflect_Reflect_IField u--vars arg-6856 arg-6857 u--onLHS arg-6858 arg-6860 eta-0)))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-4 ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-9 (vector-ref act-28 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref act-28 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "MkRecord") (cons e-5 (cons e-6 (cons e-7 (cons e-8 (cons e-9 '()))))) ext-0)))))))))))))))))))))))))))) +(define TTImpC-45Reflect-u--reflect_Reflect_ImpDecl (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (case (vector-ref arg-5 0) ((0) (let ((e-0 (vector-ref arg-5 1))) (let ((e-1 (vector-ref arg-5 2))) (let ((e-2 (vector-ref arg-5 3))) (let ((e-3 (vector-ref arg-5 4))) (let ((e-4 (vector-ref arg-5 5))) (let ((act-24 ((CoreC-45Reflect-u--reflect_Reflect_FC arg-0 arg-1 arg-2 arg-3 arg-4 e-0) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Reflect-u--reflect_Reflect_RigCount arg-0 arg-1 arg-2 arg-3 arg-4 e-1) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-6 (vector-ref act-25 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Reflect-u--reflect_Reflect_Visibility arg-0 arg-1 arg-2 arg-3 arg-4 e-2 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-7 (vector-ref act-26 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (CoreC-45Reflect-u--reflect_Reflect_C-40ListC-32C-36aC-41 (lambda (u--vars) (lambda (arg-6856) (lambda (arg-6857) (lambda (u--onLHS) (lambda (arg-6858) (lambda (arg-6860) (lambda (eta-0) (TTImpC-45Reflect-u--reflect_Reflect_FnOpt u--vars arg-6856 arg-6857 u--onLHS arg-6858 arg-6860 eta-0)))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-3 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-8 (vector-ref act-27 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref act-27 1))) (let ((act-28 (TTImpC-45Reflect-u--reflect_Reflect_ImpTy arg-0 arg-1 arg-2 arg-3 arg-4 e-4 ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-9 (vector-ref act-28 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref act-28 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "IClaim") (cons e-5 (cons e-6 (cons e-7 (cons e-8 (cons e-9 '()))))) ext-0))))))))))))))))))))))))))) ((1) (let ((e-5 (vector-ref arg-5 1))) (let ((e-6 (vector-ref arg-5 2))) (let ((e-7 (vector-ref arg-5 3))) (let ((act-24 ((CoreC-45Reflect-u--reflect_Reflect_FC arg-0 arg-1 arg-2 arg-3 arg-4 e-5) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Reflect-u--reflect_Reflect_Visibility arg-0 arg-1 arg-2 arg-3 arg-4 e-6 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45Reflect-u--reflect_Reflect_ImpData arg-0 arg-1 arg-2 arg-3 arg-4 e-7 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref act-26 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "IData") (cons e-8 (cons e-9 (cons e-10 '()))) ext-0))))))))))))))))) ((2) (let ((e-8 (vector-ref arg-5 1))) (let ((e-9 (vector-ref arg-5 2))) (let ((e-10 (vector-ref arg-5 3))) (let ((act-24 ((CoreC-45Reflect-u--reflect_Reflect_FC arg-0 arg-1 arg-2 arg-3 arg-4 e-8) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Reflect-u--reflect_Reflect_Name arg-0 arg-1 arg-2 arg-3 arg-4 e-9 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Reflect-u--reflect_Reflect_C-40ListC-32C-36aC-41 (lambda (u--vars) (lambda (arg-6856) (lambda (arg-6857) (lambda (u--onLHS) (lambda (arg-6858) (lambda (arg-6860) (lambda (eta-0) (TTImpC-45Reflect-u--reflect_Reflect_ImpClause u--vars arg-6856 arg-6857 u--onLHS arg-6858 arg-6860 eta-0)))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-10 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "IDef") (cons e-5 (cons e-6 (cons e-7 '()))) ext-0))))))))))))))))) ((3) (let ((e-11 (vector-ref arg-5 1))) (let ((e-12 (vector-ref arg-5 2))) (let ((e-13 (vector-ref arg-5 3))) (let ((act-24 ((CoreC-45Reflect-u--reflect_Reflect_FC arg-0 arg-1 arg-2 arg-3 arg-4 e-11) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Reflect-u--reflect_Reflect_C-40ListC-32C-36aC-41 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (CoreC-45Reflect-u--reflect_Reflect_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (eta-7) (lambda (eta-8) (lambda (eta-9) (lambda (eta-10) (lambda (eta-11) (lambda (eta-12) (lambda (eta-13) (CoreC-45Reflect-u--reflect_Reflect_Name eta-7 eta-8 eta-9 eta-10 eta-11 eta-12 eta-13)))))))) (lambda (eta-7) (lambda (eta-8) (lambda (eta-9) (lambda (eta-10) (lambda (eta-11) (lambda (eta-12) (lambda (eta-13) (CoreC-45Reflect-u--reflect_Reflect_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (eta-14) (lambda (eta-15) (lambda (eta-16) (lambda (eta-17) (lambda (eta-18) (lambda (eta-19) (CoreC-45Reflect-u--reflect_Reflect_RigCount eta-14 eta-15 eta-16 eta-17 eta-18 eta-19))))))) (lambda (eta-14) (lambda (eta-15) (lambda (eta-16) (lambda (eta-17) (lambda (eta-18) (lambda (eta-19) (lambda (eta-20) (CoreC-45Reflect-u--reflect_Reflect_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (eta-21) (lambda (eta-22) (lambda (eta-23) (lambda (eta-24) (lambda (eta-25) (lambda (eta-26) (lambda (eta-27) (CoreC-45Reflect-u--reflect_Reflect_C-40PiInfoC-32C-36tC-41 (lambda (u--vars) (lambda (arg-6856) (lambda (arg-6857) (lambda (u--onLHS) (lambda (arg-6858) (lambda (arg-6860) (TTImpC-45Reflect-u--reflect_Reflect_RawImp u--vars arg-6856 arg-6857 u--onLHS arg-6858 arg-6860))))))) eta-21 eta-22 eta-23 eta-24 eta-25 eta-26 eta-27)))))))) (lambda (u--vars) (lambda (arg-6856) (lambda (arg-6857) (lambda (u--onLHS) (lambda (arg-6858) (lambda (arg-6860) (TTImpC-45Reflect-u--reflect_Reflect_RawImp u--vars arg-6856 arg-6857 u--onLHS arg-6858 arg-6860)))))))) eta-14 eta-15 eta-16 eta-17 eta-18 eta-19 eta-20))))))))) eta-7 eta-8 eta-9 eta-10 eta-11 eta-12 eta-13))))))))) eta-0 eta-1 eta-2 eta-3 eta-4 eta-5 eta-6)))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-12 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Reflect-u--reflect_Reflect_C-40ListC-32C-36aC-41 (lambda (u--vars) (lambda (arg-6856) (lambda (arg-6857) (lambda (u--onLHS) (lambda (arg-6858) (lambda (arg-6860) (lambda (eta-0) (TTImpC-45Reflect-u--reflect_Reflect_ImpDecl u--vars arg-6856 arg-6857 u--onLHS arg-6858 arg-6860 eta-0)))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-13 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "IParameters") (cons e-5 (cons e-6 (cons e-7 '()))) ext-0))))))))))))))))) ((4) (let ((e-14 (vector-ref arg-5 1))) (let ((e-16 (vector-ref arg-5 3))) (let ((e-17 (vector-ref arg-5 4))) (let ((act-24 ((CoreC-45Reflect-u--reflect_Reflect_FC arg-0 arg-1 arg-2 arg-3 arg-4 e-14) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Reflect-u--reflect_Reflect_Visibility arg-0 arg-1 arg-2 arg-3 arg-4 e-16 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45Reflect-u--reflect_Reflect_ImpRecord arg-0 arg-1 arg-2 arg-3 arg-4 e-17 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "IRecord") (cons e-5 (cons e-6 (cons e-7 '()))) ext-0))))))))))))))))) ((5) (let ((e-18 (vector-ref arg-5 1))) (let ((e-19 (vector-ref arg-5 2))) (let ((e-20 (vector-ref arg-5 3))) (let ((act-24 ((CoreC-45Reflect-u--reflect_Reflect_FC arg-0 arg-1 arg-2 arg-3 arg-4 e-18) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Reflect-u--reflect_Reflect_Namespace arg-0 arg-1 arg-2 arg-3 arg-4 e-19 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Reflect-u--reflect_Reflect_C-40ListC-32C-36aC-41 (lambda (u--vars) (lambda (arg-6856) (lambda (arg-6857) (lambda (u--onLHS) (lambda (arg-6858) (lambda (arg-6860) (lambda (eta-0) (TTImpC-45Reflect-u--reflect_Reflect_ImpDecl u--vars arg-6856 arg-6857 u--onLHS arg-6858 arg-6860 eta-0)))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-20 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "INamespace") (cons e-5 (cons e-6 (cons e-7 '()))) ext-0))))))))))))))))) ((6) (let ((e-21 (vector-ref arg-5 1))) (let ((e-22 (vector-ref arg-5 2))) (let ((e-23 (vector-ref arg-5 3))) (let ((e-24 (vector-ref arg-5 4))) (let ((act-24 ((CoreC-45Reflect-u--reflect_Reflect_FC arg-0 arg-1 arg-2 arg-3 arg-4 e-21) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Reflect-u--reflect_Reflect_Name arg-0 arg-1 arg-2 arg-3 arg-4 e-22 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 ((TTImpC-45Reflect-u--reflect_Reflect_RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-23) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 ((TTImpC-45Reflect-u--reflect_Reflect_RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-24) ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "ITransform") (cons e-5 (cons e-6 (cons e-7 (cons e-8 '())))) ext-0)))))))))))))))))))))) ((7) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-1 "Can't reflect a %runElab") ext-0)) ((8) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-1 "Can't reflect a pragma") ext-0)) ((9) (let ((e-29 (vector-ref arg-5 1))) (let ((act-24 (CoreC-45Reflect-u--reflect_Reflect_C-40MaybeC-32C-36aC-41 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (CoreC-45Reflect-u--reflect_Reflect_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (eta-7) (lambda (eta-8) (lambda (eta-9) (lambda (eta-10) (lambda (eta-11) (lambda (eta-12) (lambda (eta-13) (CoreC-45Reflect-u--reflect_Reflect_C-40ListC-32C-36aC-41 (lambda (eta-14) (lambda (eta-15) (lambda (eta-16) (lambda (eta-17) (lambda (eta-18) (lambda (eta-19) (lambda (eta-20) (CoreC-45Reflect-u--reflect_Reflect_String eta-14 eta-15 eta-16 eta-17 eta-18 eta-19 eta-20)))))))) eta-7 eta-8 eta-9 eta-10 eta-11 eta-12 eta-13)))))))) (lambda (eta-7) (lambda (eta-8) (lambda (eta-9) (lambda (eta-10) (lambda (eta-11) (lambda (eta-12) (CoreC-45Reflect-u--reflect_Reflect_Nat eta-7 eta-8 eta-9 eta-10 eta-11 eta-12)))))))) eta-0 eta-1 eta-2 eta-3 eta-4 eta-5 eta-6)))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-29 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "ILog") (cons e-5 '()) ext-0))))))) (else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-1 "Can't reflect a %builtin") ext-0))))) +(define TTImpC-45Reflect-u--reflect_Reflect_ImpData (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (case (vector-ref arg-5 0) ((0) (let ((e-0 (vector-ref arg-5 1))) (let ((e-1 (vector-ref arg-5 2))) (let ((e-2 (vector-ref arg-5 3))) (let ((e-3 (vector-ref arg-5 4))) (let ((e-4 (vector-ref arg-5 5))) (let ((act-24 ((CoreC-45Reflect-u--reflect_Reflect_FC arg-0 arg-1 arg-2 arg-3 arg-4 e-0) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Reflect-u--reflect_Reflect_Name arg-0 arg-1 arg-2 arg-3 arg-4 e-1 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-6 (vector-ref act-25 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 ((TTImpC-45Reflect-u--reflect_Reflect_RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-2) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-7 (vector-ref act-26 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (CoreC-45Reflect-u--reflect_Reflect_C-40ListC-32C-36aC-41 (lambda (u--vars) (lambda (arg-6856) (lambda (arg-6857) (lambda (u--onLHS) (lambda (arg-6858) (lambda (arg-6860) (lambda (eta-0) (TTImpC-45Reflect-u--reflect_Reflect_DataOpt u--vars arg-6856 arg-6857 u--onLHS arg-6858 arg-6860 eta-0)))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-3 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-8 (vector-ref act-27 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref act-27 1))) (let ((act-28 (CoreC-45Reflect-u--reflect_Reflect_C-40ListC-32C-36aC-41 (lambda (u--vars) (lambda (arg-6856) (lambda (arg-6857) (lambda (u--onLHS) (lambda (arg-6858) (lambda (arg-6860) (lambda (eta-0) (TTImpC-45Reflect-u--reflect_Reflect_ImpTy u--vars arg-6856 arg-6857 u--onLHS arg-6858 arg-6860 eta-0)))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-4 ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-9 (vector-ref act-28 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref act-28 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "MkData") (cons e-5 (cons e-6 (cons e-7 (cons e-8 (cons e-9 '()))))) ext-0))))))))))))))))))))))))))) (else (let ((e-5 (vector-ref arg-5 1))) (let ((e-6 (vector-ref arg-5 2))) (let ((e-7 (vector-ref arg-5 3))) (let ((act-24 ((CoreC-45Reflect-u--reflect_Reflect_FC arg-0 arg-1 arg-2 arg-3 arg-4 e-5) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Reflect-u--reflect_Reflect_Name arg-0 arg-1 arg-2 arg-3 arg-4 e-6 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-25 1))) (let ((act-26 ((TTImpC-45Reflect-u--reflect_Reflect_RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-7) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref act-26 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "MkLater") (cons e-8 (cons e-9 (cons e-10 '()))) ext-0)))))))))))))))))))) +(define TTImpC-45Reflect-u--reflect_Reflect_ImpClause (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (case (vector-ref arg-5 0) ((0) (let ((e-0 (vector-ref arg-5 1))) (let ((e-1 (vector-ref arg-5 2))) (let ((e-2 (vector-ref arg-5 3))) (let ((act-24 ((CoreC-45Reflect-u--reflect_Reflect_FC arg-0 arg-1 arg-2 arg-3 arg-4 e-0) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((TTImpC-45Reflect-u--reflect_Reflect_RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-1) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-3 (vector-ref act-25 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 ((TTImpC-45Reflect-u--reflect_Reflect_RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-2) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-3 (vector-ref act-26 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref act-26 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "PatClause") (cons e-5 (cons e-6 (cons e-7 '()))) ext-0))))))))))))))))) ((1) (let ((e-3 (vector-ref arg-5 1))) (let ((e-4 (vector-ref arg-5 2))) (let ((e-5 (vector-ref arg-5 3))) (let ((e-6 (vector-ref arg-5 4))) (let ((e-8 (vector-ref arg-5 6))) (let ((act-24 ((CoreC-45Reflect-u--reflect_Reflect_FC arg-0 arg-1 arg-2 arg-3 arg-4 e-3) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-24 1))) (let ((act-25 ((TTImpC-45Reflect-u--reflect_Reflect_RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-4) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref act-25 1))) (let ((act-26 ((TTImpC-45Reflect-u--reflect_Reflect_RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-5) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref act-26 1))) (let ((act-27 (CoreC-45Reflect-u--reflect_Reflect_C-40MaybeC-32C-36aC-41 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (CoreC-45Reflect-u--reflect_Reflect_Name eta-0 eta-1 eta-2 eta-3 eta-4 eta-5 eta-6)))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-6 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref act-27 1))) (let ((act-28 (CoreC-45Reflect-u--reflect_Reflect_C-40ListC-32C-36aC-41 (lambda (u--vars) (lambda (arg-6856) (lambda (arg-6857) (lambda (u--onLHS) (lambda (arg-6858) (lambda (arg-6860) (lambda (eta-0) (TTImpC-45Reflect-u--reflect_Reflect_ImpClause u--vars arg-6856 arg-6857 u--onLHS arg-6858 arg-6860 eta-0)))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-8 ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref act-28 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "WithClause") (cons e-9 (cons e-10 (cons e-11 (cons e-12 (cons e-13 '()))))) ext-0))))))))))))))))))))))))))) (else (let ((e-9 (vector-ref arg-5 1))) (let ((e-10 (vector-ref arg-5 2))) (let ((act-24 ((CoreC-45Reflect-u--reflect_Reflect_FC arg-0 arg-1 arg-2 arg-3 arg-4 e-9) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((TTImpC-45Reflect-u--reflect_Reflect_RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-10) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "ImpossibleClause") (cons e-5 (cons e-6 '())) ext-0))))))))))))))) +(define TTImpC-45Reflect-u--reflect_Reflect_IFieldUpdate (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (case (vector-ref arg-5 0) ((0) (let ((e-0 (vector-ref arg-5 1))) (let ((e-1 (vector-ref arg-5 2))) (let ((act-24 (CoreC-45Reflect-u--reflect_Reflect_C-40ListC-32C-36aC-41 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (CoreC-45Reflect-u--reflect_Reflect_String eta-0 eta-1 eta-2 eta-3 eta-4 eta-5 eta-6)))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((TTImpC-45Reflect-u--reflect_Reflect_RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-1) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "ISetField") (cons e-5 (cons e-6 '())) ext-0)))))))))))) (else (let ((e-2 (vector-ref arg-5 1))) (let ((e-3 (vector-ref arg-5 2))) (let ((act-24 (CoreC-45Reflect-u--reflect_Reflect_C-40ListC-32C-36aC-41 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (CoreC-45Reflect-u--reflect_Reflect_String eta-0 eta-1 eta-2 eta-3 eta-4 eta-5 eta-6)))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-2 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((TTImpC-45Reflect-u--reflect_Reflect_RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-3) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref act-25 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "ISetFieldApp") (cons e-5 (cons e-6 '())) ext-0))))))))))))))) +(define TTImpC-45Reflect-u--reflect_Reflect_IField (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((e-0 (vector-ref arg-5 0))) (let ((e-1 (vector-ref arg-5 1))) (let ((e-2 (vector-ref arg-5 2))) (let ((e-3 (vector-ref arg-5 3))) (let ((e-4 (vector-ref arg-5 4))) (let ((act-24 ((CoreC-45Reflect-u--reflect_Reflect_FC arg-0 arg-1 arg-2 arg-3 arg-4 e-0) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Reflect-u--reflect_Reflect_RigCount arg-0 arg-1 arg-2 arg-3 arg-4 e-1) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-6 (vector-ref act-25 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Reflect-u--reflect_Reflect_C-40PiInfoC-32C-36tC-41 (lambda (u--vars) (lambda (arg-6856) (lambda (arg-6857) (lambda (u--onLHS) (lambda (arg-6858) (lambda (arg-6860) (TTImpC-45Reflect-u--reflect_Reflect_RawImp u--vars arg-6856 arg-6857 u--onLHS arg-6858 arg-6860))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-2 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-7 (vector-ref act-26 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (CoreC-45Reflect-u--reflect_Reflect_Name arg-0 arg-1 arg-2 arg-3 arg-4 e-3 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-8 (vector-ref act-27 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref act-27 1))) (let ((act-28 ((TTImpC-45Reflect-u--reflect_Reflect_RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-4) ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-9 (vector-ref act-28 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref act-28 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "MkIField") (cons e-5 (cons e-6 (cons e-7 (cons e-8 (cons e-9 '()))))) ext-0)))))))))))))))))))))))))))) +(define TTImpC-45Reflect-u--reflect_Reflect_FnOpt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (case (vector-ref arg-5 0) ((0) (CoreC-45Reflect-getCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "Inline") ext-0)) ((1) (CoreC-45Reflect-getCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "TCInline") ext-0)) ((2) (let ((e-0 (vector-ref arg-5 1))) (let ((act-24 (CoreC-45Reflect-u--reflect_Reflect_Bool arg-0 arg-1 arg-2 arg-3 arg-4 e-0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "Hint") (cons e-5 '()) ext-0))))))) ((3) (let ((e-1 (vector-ref arg-5 1))) (let ((act-24 (CoreC-45Reflect-u--reflect_Reflect_Bool arg-0 arg-1 arg-2 arg-3 arg-4 e-1 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "GlobalHint") (cons e-5 '()) ext-0))))))) ((4) (CoreC-45Reflect-getCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "ExternFn") ext-0)) ((5) (let ((e-2 (vector-ref arg-5 1))) (let ((act-24 (CoreC-45Reflect-u--reflect_Reflect_C-40ListC-32C-36aC-41 (lambda (u--vars) (lambda (arg-6856) (lambda (arg-6857) (lambda (u--onLHS) (lambda (arg-6858) (lambda (arg-6860) (TTImpC-45Reflect-u--reflect_Reflect_RawImp u--vars arg-6856 arg-6857 u--onLHS arg-6858 arg-6860))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-2 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref act-24 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "ForeignFn") (cons e-5 '()) ext-0))))))) ((6) (CoreC-45Reflect-getCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "Invertible") ext-0)) ((7) (let ((e-3 (vector-ref arg-5 1))) (let ((act-24 (CoreC-45Reflect-u--reflect_Reflect_TotalReq arg-0 arg-1 arg-2 arg-3 arg-4 e-3 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "Totality") (cons e-5 '()) ext-0))))))) ((8) (CoreC-45Reflect-getCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "Macro") ext-0)) (else (let ((e-4 (vector-ref arg-5 1))) (let ((act-24 (CoreC-45Reflect-u--reflect_Reflect_C-40ListC-32C-36aC-41 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (CoreC-45Reflect-u--reflect_Reflect_Name eta-0 eta-1 eta-2 eta-3 eta-4 eta-5 eta-6)))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-4 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "SpecArgs") (cons e-5 '()) ext-0)))))))))) +(define TTImpC-45Reflect-u--reflect_Reflect_DotReason (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (cond ((equal? arg-5 0) (CoreC-45Reflect-getCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "NonLinearVar") ext-0)) ((equal? arg-5 1) (CoreC-45Reflect-getCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "VarApplied") ext-0)) ((equal? arg-5 2) (CoreC-45Reflect-getCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "NotConstructor") ext-0)) ((equal? arg-5 3) (CoreC-45Reflect-getCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "ErasedArg") ext-0)) ((equal? arg-5 4) (CoreC-45Reflect-getCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "UserDotted") ext-0)) ((equal? arg-5 5) (CoreC-45Reflect-getCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "UnknownDot") ext-0)) (else (CoreC-45Reflect-getCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "UnderAppliedCon") ext-0))))) +(define TTImpC-45Reflect-u--reflect_Reflect_DataOpt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (case (vector-ref arg-5 0) ((0) (let ((e-0 (vector-ref arg-5 1))) (let ((act-24 (CoreC-45Reflect-u--reflect_Reflect_C-40ListC-32C-36aC-41 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (CoreC-45Reflect-u--reflect_Reflect_Name eta-0 eta-1 eta-2 eta-3 eta-4 eta-5 eta-6)))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "SearchBy") (cons e-5 '()) ext-0))))))) ((1) (CoreC-45Reflect-getCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "NoHints") ext-0)) ((2) (CoreC-45Reflect-getCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "UniqueSearch") ext-0)) ((3) (CoreC-45Reflect-getCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "External") ext-0)) (else (CoreC-45Reflect-getCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "NoNewtype") ext-0))))) +(define TTImpC-45Reflect-u--reflect_Reflect_BindMode (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (case (vector-ref arg-5 0) ((0) (let ((e-0 (vector-ref arg-5 1))) (let ((act-24 ((CoreC-45Reflect-u--reflect_Reflect_RigCount arg-0 arg-1 arg-2 arg-3 arg-4 e-0) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "PI") (cons e-5 '()) ext-0))))))) ((1) (CoreC-45Reflect-getCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "PATTERN") ext-0)) (else (CoreC-45Reflect-getCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "NONE") ext-0))))) +(define TTImpC-45Reflect-u--reflect_Reflect_AltType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (case (vector-ref arg-5 0) ((0) (CoreC-45Reflect-getCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "FirstSuccess") ext-0)) ((1) (CoreC-45Reflect-getCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "Unique") ext-0)) (else (let ((e-0 (vector-ref arg-5 1))) (let ((act-24 ((TTImpC-45Reflect-u--reflect_Reflect_RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-0) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectionttimp "UniqueDefault") (cons e-5 '()) ext-0)))))))))) +(define CoreC-45Reflect-u--reify_Reify_Visibility (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (case (vector-ref arg-3 0) ((2) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-3 (vector-ref arg-3 3))) (let ((e-4 (vector-ref arg-3 4))) (let ((e-5 (vector-ref arg-3 5))) (let ((act-24 (CoreC-45Context-u--full_HasNames_Name (let ((e-0 (vector-ref arg-2 0))) e-0) e-2 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((u--val (vector 2 e-1 e-2 e-3 e-4 e-5))) (case (vector-ref e-6 0) ((0) (let ((e-7 (vector-ref e-6 2))) (case (vector-ref e-7 0) ((1) (let ((e-8 (vector-ref e-7 1))) (cond ((equal? e-8 "Private") (vector 1 0)) ((equal? e-8 "Export") (vector 1 1)) ((equal? e-8 "Public") (vector 1 2))(else (CoreC-45Reflect-cantReify u--val "Visibility" ext-0)))))(else (CoreC-45Reflect-cantReify u--val "Visibility" ext-0)))))(else (CoreC-45Reflect-cantReify u--val "Visibility" ext-0))))))))))))))(else (CoreC-45Reflect-cantReify arg-3 "Visibility" ext-0))))) +(define CoreC-45Reflect-u--reify_Reify_VirtualIdent (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (case (vector-ref arg-3 0) ((2) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-3 (vector-ref arg-3 3))) (let ((e-4 (vector-ref arg-3 4))) (let ((e-5 (vector-ref arg-3 5))) (let ((act-24 (CoreC-45Context-u--full_HasNames_Name (let ((e-0 (vector-ref arg-2 0))) e-0) e-2 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((u--val (vector 2 e-1 e-2 e-3 e-4 e-5))) (case (vector-ref e-6 0) ((0) (let ((e-7 (vector-ref e-6 2))) (case (vector-ref e-7 0) ((1) (let ((e-9 (vector-ref e-7 1))) (cond ((equal? e-9 "Interactive") (if (null? e-5) (vector 1 0) (CoreC-45Reflect-cantReify u--val "VirtualIdent" ext-0)))(else (CoreC-45Reflect-cantReify u--val "VirtualIdent" ext-0)))))(else (CoreC-45Reflect-cantReify u--val "VirtualIdent" ext-0)))))(else (CoreC-45Reflect-cantReify u--val "VirtualIdent" ext-0))))))))))))))(else (CoreC-45Reflect-cantReify arg-3 "VirtualIdent" ext-0))))) +(define CoreC-45Reflect-u--reify_Reify_TotalReq (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (case (vector-ref arg-3 0) ((2) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-3 (vector-ref arg-3 3))) (let ((e-4 (vector-ref arg-3 4))) (let ((e-5 (vector-ref arg-3 5))) (let ((act-24 (CoreC-45Context-u--full_HasNames_Name (let ((e-0 (vector-ref arg-2 0))) e-0) e-2 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((u--val (vector 2 e-1 e-2 e-3 e-4 e-5))) (case (vector-ref e-6 0) ((0) (let ((e-7 (vector-ref e-6 2))) (case (vector-ref e-7 0) ((1) (let ((e-8 (vector-ref e-7 1))) (cond ((equal? e-8 "Total") (vector 1 0)) ((equal? e-8 "CoveringOnly") (vector 1 1)) ((equal? e-8 "PartialOK") (vector 1 2))(else (CoreC-45Reflect-cantReify u--val "TotalReq" ext-0)))))(else (CoreC-45Reflect-cantReify u--val "TotalReq" ext-0)))))(else (CoreC-45Reflect-cantReify u--val "TotalReq" ext-0))))))))))))))(else (CoreC-45Reflect-cantReify arg-3 "TotalReq" ext-0))))) +(define CoreC-45Reflect-u--reify_Reify_String (lambda (arg-0 arg-1 arg-2 arg-3) (case (vector-ref arg-3 0) ((8) (let ((e-2 (vector-ref arg-3 2))) (lambda (clam-0) (case (vector-ref e-2 0) ((10) (let ((e-3 (vector-ref e-2 1))) (vector 1 e-3)))(else (CoreC-45Reflect-cantReify arg-3 "String" clam-0))))))(else (lambda (eta-0) (CoreC-45Reflect-cantReify arg-3 "String" eta-0)))))) +(define CoreC-45Reflect-u--reify_Reify_RigCount (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (case (vector-ref arg-3 0) ((2) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-3 (vector-ref arg-3 3))) (let ((e-4 (vector-ref arg-3 4))) (let ((e-5 (vector-ref arg-3 5))) (let ((act-24 (CoreC-45Context-u--full_HasNames_Name (let ((e-0 (vector-ref arg-2 0))) e-0) e-2 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((u--val (vector 2 e-1 e-2 e-3 e-4 e-5))) (case (vector-ref e-6 0) ((0) (let ((e-7 (vector-ref e-6 2))) (case (vector-ref e-7 0) ((1) (let ((e-8 (vector-ref e-7 1))) (cond ((equal? e-8 "M0") (vector 1 (AlgebraC-45Semiring-erased (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))))) ((equal? e-8 "M1") (vector 1 (AlgebraC-45Semiring-linear (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))))) ((equal? e-8 "MW") (vector 1 (AlgebraC-45ZeroOneOmega-u--top_Top_ZeroOneOmega)))(else (CoreC-45Reflect-cantReify u--val "Count" ext-0)))))(else (CoreC-45Reflect-cantReify u--val "Count" ext-0)))))(else (CoreC-45Reflect-cantReify u--val "Count" ext-0))))))))))))))(else (CoreC-45Reflect-cantReify arg-3 "Count" ext-0))))) +(define CoreC-45Reflect-u--reify_Reify_OriginDesc (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (case (vector-ref arg-3 0) ((2) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-3 (vector-ref arg-3 3))) (let ((e-4 (vector-ref arg-3 4))) (let ((e-5 (vector-ref arg-3 5))) (let ((act-24 (CoreC-45Context-u--full_HasNames_Name (let ((e-0 (vector-ref arg-2 0))) e-0) e-2 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((u--val (vector 2 e-1 e-2 e-3 e-4 e-5))) (case (vector-ref e-6 0) ((0) (let ((e-7 (vector-ref e-6 2))) (case (vector-ref e-7 0) ((1) (let ((e-9 (vector-ref e-7 1))) (cond ((equal? e-9 "PhysicalIdrSrc") (if (null? e-5) (CoreC-45Reflect-cantReify u--val "OriginDesc" ext-0) (let ((e-11 (car e-5))) (let ((e-10 (cdr e-5))) (if (null? e-11) (CoreC-45Reflect-cantReify u--val "OriginDesc" ext-0) (let ((e-13 (cdr e-11))) (if (null? e-10) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-13) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-14 (vector-ref act-25 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref act-25 1))) ((CoreC-45Reflect-u--reify_Reify_ModuleIdent arg-0 arg-1 arg-2 e-14) ext-0))))))) (case (vector-ref act-25 0) ((0) (let ((e-14 (vector-ref act-25 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref act-25 1))) (vector 1 (vector 0 e-14)))))) (CoreC-45Reflect-cantReify u--val "OriginDesc" ext-0)))))))) ((equal? e-9 "PhysicalPkgSrc") (if (null? e-5) (CoreC-45Reflect-cantReify u--val "OriginDesc" ext-0) (let ((e-16 (car e-5))) (let ((e-17 (cdr e-5))) (if (null? e-16) (CoreC-45Reflect-cantReify u--val "OriginDesc" ext-0) (let ((e-21 (cdr e-16))) (if (null? e-17) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-21) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) ((CoreC-45Reflect-u--reify_Reify_String arg-0 arg-1 arg-2 e-10) ext-0))))))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (vector 1 (vector 1 e-10)))))) (CoreC-45Reflect-cantReify u--val "OriginDesc" ext-0)))))))) ((equal? e-9 "Virtual") (if (null? e-5) (CoreC-45Reflect-cantReify u--val "OriginDesc" ext-0) (let ((e-24 (car e-5))) (let ((e-25 (cdr e-5))) (if (null? e-24) (CoreC-45Reflect-cantReify u--val "OriginDesc" ext-0) (let ((e-29 (cdr e-24))) (if (null? e-25) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-29) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (CoreC-45Reflect-u--reify_Reify_VirtualIdent arg-0 arg-1 arg-2 e-10 ext-0))))))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (vector 1 (vector 2 e-10)))))) (CoreC-45Reflect-cantReify u--val "OriginDesc" ext-0))))))))(else (CoreC-45Reflect-cantReify u--val "OriginDesc" ext-0)))))(else (CoreC-45Reflect-cantReify u--val "OriginDesc" ext-0)))))(else (CoreC-45Reflect-cantReify u--val "OriginDesc" ext-0))))))))))))))(else (CoreC-45Reflect-cantReify arg-3 "OriginDesc" ext-0))))) +(define CoreC-45Reflect-u--reify_Reify_Nat (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (case (vector-ref arg-3 0) ((2) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-3 (vector-ref arg-3 3))) (let ((e-4 (vector-ref arg-3 4))) (let ((e-5 (vector-ref arg-3 5))) (let ((act-24 (CoreC-45Context-u--full_HasNames_Name (let ((e-0 (vector-ref arg-2 0))) e-0) e-2 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((u--val (vector 2 e-1 e-2 e-3 e-4 e-5))) (case (vector-ref e-6 0) ((0) (let ((e-7 (vector-ref e-6 2))) (case (vector-ref e-7 0) ((1) (let ((e-9 (vector-ref e-7 1))) (cond ((equal? e-9 "Z") (vector 1 0)) ((equal? e-9 "S") (if (null? e-5) (CoreC-45Reflect-cantReify u--val "Nat" ext-0) (let ((e-11 (car e-5))) (let ((e-10 (cdr e-5))) (if (null? e-11) (CoreC-45Reflect-cantReify u--val "Nat" ext-0) (let ((e-13 (cdr e-11))) (if (null? e-10) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-13) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-14 (vector-ref act-25 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref act-25 1))) (CoreC-45Reflect-u--reify_Reify_Nat arg-0 arg-1 arg-2 e-14 ext-0))))))) (case (vector-ref act-25 0) ((0) (let ((e-14 (vector-ref act-25 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref act-25 1))) (vector 1 (+ 1 e-14)))))) (CoreC-45Reflect-cantReify u--val "Nat" ext-0))))))))(else (CoreC-45Reflect-cantReify u--val "Nat" ext-0)))))(else (CoreC-45Reflect-cantReify u--val "Nat" ext-0)))))(else (CoreC-45Reflect-cantReify u--val "Nat" ext-0))))))))))))))(else (CoreC-45Reflect-cantReify arg-3 "Nat" ext-0))))) +(define CoreC-45Reflect-u--reify_Reify_Namespace (lambda (arg-0 arg-1 arg-2 arg-3) (case (vector-ref arg-3 0) ((2) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-3 (vector-ref arg-3 3))) (let ((e-4 (vector-ref arg-3 4))) (let ((e-5 (vector-ref arg-3 5))) (if (null? e-5) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-3 "Namespace" eta-0)) (let ((e-7 (car e-5))) (let ((e-8 (cdr e-5))) (if (null? e-7) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-3 "Namespace" eta-0)) (let ((e-11 (car e-7))) (let ((e-12 (cdr e-7))) (lambda (clam-0) (if (null? e-8) (let ((act-24 (CoreC-45Context-u--full_HasNames_Name (let ((e-0 (vector-ref arg-2 0))) e-0) e-2 clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((u--val (vector 2 e-1 e-2 e-3 e-4 (cons (cons e-11 e-12) '())))) (case (vector-ref e-6 0) ((0) (let ((e-9 (vector-ref e-6 2))) (case (vector-ref e-9 0) ((1) (let ((e-10 (vector-ref e-9 1))) (cond ((equal? e-10 "MkNS") (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-12) clam-0))) (case (vector-ref act-25 0) ((0) (let ((e-13 (vector-ref act-25 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref act-25 1))) (CoreC-45Reflect-u--reify_Reify_C-40ListC-32C-36aC-41 (lambda (u--c) (lambda (u--vars) (lambda (arg-6833) (lambda (arg-6834) (CoreC-45Reflect-u--reify_Reify_String u--c u--vars arg-6833 arg-6834))))) arg-0 arg-1 arg-2 e-13 clam-0))))))) (case (vector-ref act-25 0) ((0) (let ((e-13 (vector-ref act-25 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref act-25 1))) (vector 1 (CoreC-45NameC-45Namespace-unsafeFoldNamespace e-13)))))))(else (CoreC-45Reflect-cantReify u--val "Namespace" clam-0)))))(else (CoreC-45Reflect-cantReify u--val "Namespace" clam-0)))))(else (CoreC-45Reflect-cantReify u--val "Namespace" clam-0)))))))) (CoreC-45Reflect-cantReify arg-3 "Namespace" clam-0)))))))))))))))(else (lambda (eta-0) (CoreC-45Reflect-cantReify arg-3 "Namespace" eta-0)))))) +(define CoreC-45Reflect-u--reify_Reify_Name (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (case (vector-ref arg-3 0) ((2) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-3 (vector-ref arg-3 3))) (let ((e-4 (vector-ref arg-3 4))) (let ((e-5 (vector-ref arg-3 5))) (let ((act-24 (CoreC-45Context-u--full_HasNames_Name (let ((e-0 (vector-ref arg-2 0))) e-0) e-2 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((u--val (vector 2 e-1 e-2 e-3 e-4 e-5))) (case (vector-ref e-6 0) ((0) (let ((e-7 (vector-ref e-6 2))) (case (vector-ref e-7 0) ((1) (let ((e-9 (vector-ref e-7 1))) (cond ((equal? e-9 "UN") (if (null? e-5) (CoreC-45Reflect-cantReify u--val "Name" ext-0) (let ((e-11 (car e-5))) (let ((e-10 (cdr e-5))) (if (null? e-11) (CoreC-45Reflect-cantReify u--val "Name" ext-0) (let ((e-13 (cdr e-11))) (if (null? e-10) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-13) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-14 (vector-ref act-25 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref act-25 1))) ((CoreC-45Reflect-u--reify_Reify_String arg-0 arg-1 arg-2 e-14) ext-0))))))) (case (vector-ref act-25 0) ((0) (let ((e-14 (vector-ref act-25 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref act-25 1))) (vector 1 (vector 1 e-14)))))) (CoreC-45Reflect-cantReify u--val "Name" ext-0)))))))) ((equal? e-9 "MN") (if (null? e-5) (CoreC-45Reflect-cantReify u--val "Name" ext-0) (let ((e-16 (car e-5))) (let ((e-17 (cdr e-5))) (if (null? e-16) (CoreC-45Reflect-cantReify u--val "Name" ext-0) (let ((e-21 (cdr e-16))) (if (null? e-17) (CoreC-45Reflect-cantReify u--val "Name" ext-0) (let ((e-23 (car e-17))) (let ((e-24 (cdr e-17))) (if (null? e-23) (CoreC-45Reflect-cantReify u--val "Name" ext-0) (let ((e-28 (cdr e-23))) (if (null? e-24) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-21) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) ((CoreC-45Reflect-u--reify_Reify_String arg-0 arg-1 arg-2 e-10) ext-0))))))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (let ((act-26 (let ((act-26 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-28) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-11 (vector-ref act-26 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-26 1))) ((CoreC-45Reflect-u--reify_Reify_Int arg-0 arg-1 arg-2 e-11) ext-0))))))) (case (vector-ref act-26 0) ((0) (let ((e-11 (vector-ref act-26 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-26 1))) (vector 1 (vector 2 e-10 e-11)))))))))) (CoreC-45Reflect-cantReify u--val "Name" ext-0))))))))))))) ((equal? e-9 "NS") (if (null? e-5) (CoreC-45Reflect-cantReify u--val "Name" ext-0) (let ((e-31 (car e-5))) (let ((e-32 (cdr e-5))) (if (null? e-31) (CoreC-45Reflect-cantReify u--val "Name" ext-0) (let ((e-36 (cdr e-31))) (if (null? e-32) (CoreC-45Reflect-cantReify u--val "Name" ext-0) (let ((e-38 (car e-32))) (let ((e-39 (cdr e-32))) (if (null? e-38) (CoreC-45Reflect-cantReify u--val "Name" ext-0) (let ((e-43 (cdr e-38))) (if (null? e-39) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-36) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) ((CoreC-45Reflect-u--reify_Reify_Namespace arg-0 arg-1 arg-2 e-10) ext-0))))))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (let ((act-26 (let ((act-26 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-43) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-11 (vector-ref act-26 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-26 1))) (CoreC-45Reflect-u--reify_Reify_Name arg-0 arg-1 arg-2 e-11 ext-0))))))) (case (vector-ref act-26 0) ((0) (let ((e-11 (vector-ref act-26 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-26 1))) (vector 1 (vector 0 e-10 e-11)))))))))) (CoreC-45Reflect-cantReify u--val "Name" ext-0))))))))))))) ((equal? e-9 "DN") (if (null? e-5) (CoreC-45Reflect-cantReify u--val "Name" ext-0) (let ((e-46 (car e-5))) (let ((e-47 (cdr e-5))) (if (null? e-46) (CoreC-45Reflect-cantReify u--val "Name" ext-0) (let ((e-51 (cdr e-46))) (if (null? e-47) (CoreC-45Reflect-cantReify u--val "Name" ext-0) (let ((e-53 (car e-47))) (let ((e-54 (cdr e-47))) (if (null? e-53) (CoreC-45Reflect-cantReify u--val "Name" ext-0) (let ((e-58 (cdr e-53))) (if (null? e-54) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-51) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) ((CoreC-45Reflect-u--reify_Reify_String arg-0 arg-1 arg-2 e-10) ext-0))))))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (let ((act-26 (let ((act-26 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-58) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-11 (vector-ref act-26 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-26 1))) (CoreC-45Reflect-u--reify_Reify_Name arg-0 arg-1 arg-2 e-11 ext-0))))))) (case (vector-ref act-26 0) ((0) (let ((e-11 (vector-ref act-26 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-26 1))) (vector 1 (vector 4 e-10 e-11)))))))))) (CoreC-45Reflect-cantReify u--val "Name" ext-0))))))))))))) ((equal? e-9 "RF") (if (null? e-5) (CoreC-45Reflect-cantReify u--val "Name" ext-0) (let ((e-61 (car e-5))) (let ((e-62 (cdr e-5))) (if (null? e-61) (CoreC-45Reflect-cantReify u--val "Name" ext-0) (let ((e-66 (cdr e-61))) (if (null? e-62) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-66) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) ((CoreC-45Reflect-u--reify_Reify_String arg-0 arg-1 arg-2 e-10) ext-0))))))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (vector 1 (vector 5 e-10)))))) (CoreC-45Reflect-cantReify u--val "Name" ext-0))))))))(else (CoreC-45Reflect-cantReify u--val "Name" ext-0)))))(else (CoreC-45Reflect-cantReify u--val "Name" ext-0)))))(else (CoreC-45Reflect-cantReify u--val "Name" ext-0))))))))))))))(else (CoreC-45Reflect-cantReify arg-3 "Name" ext-0))))) +(define CoreC-45Reflect-u--reify_Reify_ModuleIdent (lambda (arg-0 arg-1 arg-2 arg-3) (case (vector-ref arg-3 0) ((2) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-3 (vector-ref arg-3 3))) (let ((e-4 (vector-ref arg-3 4))) (let ((e-5 (vector-ref arg-3 5))) (if (null? e-5) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-3 "ModuleIdent" eta-0)) (let ((e-7 (car e-5))) (let ((e-8 (cdr e-5))) (if (null? e-7) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-3 "ModuleIdent" eta-0)) (let ((e-11 (car e-7))) (let ((e-12 (cdr e-7))) (lambda (clam-0) (if (null? e-8) (let ((act-24 (CoreC-45Context-u--full_HasNames_Name (let ((e-0 (vector-ref arg-2 0))) e-0) e-2 clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((u--val (vector 2 e-1 e-2 e-3 e-4 (cons (cons e-11 e-12) '())))) (case (vector-ref e-6 0) ((0) (let ((e-9 (vector-ref e-6 2))) (case (vector-ref e-9 0) ((1) (let ((e-10 (vector-ref e-9 1))) (cond ((equal? e-10 "MkMI") (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-12) clam-0))) (case (vector-ref act-25 0) ((0) (let ((e-13 (vector-ref act-25 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref act-25 1))) (CoreC-45Reflect-u--reify_Reify_C-40ListC-32C-36aC-41 (lambda (u--c) (lambda (u--vars) (lambda (arg-6833) (lambda (arg-6834) (CoreC-45Reflect-u--reify_Reify_String u--c u--vars arg-6833 arg-6834))))) arg-0 arg-1 arg-2 e-13 clam-0))))))) (case (vector-ref act-25 0) ((0) (let ((e-13 (vector-ref act-25 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref act-25 1))) (vector 1 (CoreC-45NameC-45Namespace-unsafeFoldModuleIdent e-13)))))))(else (CoreC-45Reflect-cantReify u--val "ModuleIdent" clam-0)))))(else (CoreC-45Reflect-cantReify u--val "ModuleIdent" clam-0)))))(else (CoreC-45Reflect-cantReify u--val "ModuleIdent" clam-0)))))))) (CoreC-45Reflect-cantReify arg-3 "ModuleIdent" clam-0)))))))))))))))(else (lambda (eta-0) (CoreC-45Reflect-cantReify arg-3 "ModuleIdent" eta-0)))))) +(define CoreC-45Reflect-u--reify_Reify_LazyReason (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (case (vector-ref arg-3 0) ((2) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-3 (vector-ref arg-3 3))) (let ((e-4 (vector-ref arg-3 4))) (let ((e-5 (vector-ref arg-3 5))) (let ((act-24 (CoreC-45Context-u--full_HasNames_Name (let ((e-0 (vector-ref arg-2 0))) e-0) e-2 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((u--val (vector 2 e-1 e-2 e-3 e-4 e-5))) (case (vector-ref e-6 0) ((0) (let ((e-7 (vector-ref e-6 2))) (case (vector-ref e-7 0) ((1) (let ((e-8 (vector-ref e-7 1))) (cond ((equal? e-8 "LInf") (vector 1 0)) ((equal? e-8 "LLazy") (vector 1 1)) ((equal? e-8 "LUnknown") (vector 1 2))(else (CoreC-45Reflect-cantReify u--val "LazyReason" ext-0)))))(else (CoreC-45Reflect-cantReify u--val "LazyReason" ext-0)))))(else (CoreC-45Reflect-cantReify u--val "LazyReason" ext-0))))))))))))))(else (CoreC-45Reflect-cantReify arg-3 "LazyReason" ext-0))))) +(define CoreC-45Reflect-u--reify_Reify_Integer (lambda (arg-0 arg-1 arg-2 arg-3) (case (vector-ref arg-3 0) ((8) (let ((e-2 (vector-ref arg-3 2))) (lambda (clam-0) (case (vector-ref e-2 0) ((5) (let ((e-3 (vector-ref e-2 1))) (vector 1 e-3)))(else (CoreC-45Reflect-cantReify arg-3 "Integer" clam-0))))))(else (lambda (eta-0) (CoreC-45Reflect-cantReify arg-3 "Integer" eta-0)))))) +(define CoreC-45Reflect-u--reify_Reify_Int (lambda (arg-0 arg-1 arg-2 arg-3) (case (vector-ref arg-3 0) ((8) (let ((e-2 (vector-ref arg-3 2))) (lambda (clam-0) (case (vector-ref e-2 0) ((0) (let ((e-3 (vector-ref e-2 1))) (vector 1 e-3)))(else (CoreC-45Reflect-cantReify arg-3 "Int" clam-0))))))(else (lambda (eta-0) (CoreC-45Reflect-cantReify arg-3 "Int" eta-0)))))) +(define CoreC-45Reflect-u--reify_Reify_FC (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (case (vector-ref arg-3 0) ((2) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-3 (vector-ref arg-3 3))) (let ((e-4 (vector-ref arg-3 4))) (let ((e-5 (vector-ref arg-3 5))) (let ((act-24 (CoreC-45Context-u--full_HasNames_Name (let ((e-0 (vector-ref arg-2 0))) e-0) e-2 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((u--val (vector 2 e-1 e-2 e-3 e-4 e-5))) (case (vector-ref e-6 0) ((0) (let ((e-7 (vector-ref e-6 2))) (case (vector-ref e-7 0) ((1) (let ((e-9 (vector-ref e-7 1))) (cond ((equal? e-9 "MkFC") (if (null? e-5) (CoreC-45Reflect-cantReify u--val "FC" ext-0) (let ((e-11 (car e-5))) (let ((e-10 (cdr e-5))) (if (null? e-11) (CoreC-45Reflect-cantReify u--val "FC" ext-0) (let ((e-13 (cdr e-11))) (if (null? e-10) (CoreC-45Reflect-cantReify u--val "FC" ext-0) (let ((e-15 (car e-10))) (let ((e-16 (cdr e-10))) (if (null? e-15) (CoreC-45Reflect-cantReify u--val "FC" ext-0) (let ((e-20 (cdr e-15))) (if (null? e-16) (CoreC-45Reflect-cantReify u--val "FC" ext-0) (let ((e-22 (car e-16))) (let ((e-23 (cdr e-16))) (if (null? e-22) (CoreC-45Reflect-cantReify u--val "FC" ext-0) (let ((e-27 (cdr e-22))) (if (null? e-23) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-13) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-14 (vector-ref act-25 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref act-25 1))) (CoreC-45Reflect-u--reify_Reify_OriginDesc arg-0 arg-1 arg-2 e-14 ext-0))))))) (case (vector-ref act-25 0) ((0) (let ((e-14 (vector-ref act-25 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref act-25 1))) (let ((act-26 (let ((act-26 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-20) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-17 (vector-ref act-26 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref act-26 1))) ((CoreC-45Reflect-u--reify_Reify_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (u--c) (lambda (u--vars) (lambda (arg-6833) (lambda (arg-6834) (CoreC-45Reflect-u--reify_Reify_Int u--c u--vars arg-6833 arg-6834))))) (lambda (u--c) (lambda (u--vars) (lambda (arg-6833) (lambda (arg-6834) (CoreC-45Reflect-u--reify_Reify_Int u--c u--vars arg-6833 arg-6834)))))) arg-0 arg-1 arg-2 e-17) ext-0))))))) (case (vector-ref act-26 0) ((0) (let ((e-17 (vector-ref act-26 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref act-26 1))) (let ((act-27 (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-27) ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-18 (vector-ref act-27 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref act-27 1))) ((CoreC-45Reflect-u--reify_Reify_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (u--c) (lambda (u--vars) (lambda (arg-6833) (lambda (arg-6834) (CoreC-45Reflect-u--reify_Reify_Int u--c u--vars arg-6833 arg-6834))))) (lambda (u--c) (lambda (u--vars) (lambda (arg-6833) (lambda (arg-6834) (CoreC-45Reflect-u--reify_Reify_Int u--c u--vars arg-6833 arg-6834)))))) arg-0 arg-1 arg-2 e-18) ext-0))))))) (case (vector-ref act-27 0) ((0) (let ((e-18 (vector-ref act-27 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref act-27 1))) (vector 1 (vector 0 e-14 e-17 e-18)))))))))))))) (CoreC-45Reflect-cantReify u--val "FC" ext-0)))))))))))))))))) ((equal? e-9 "EmptyFC") (vector 1 (vector 2 )))(else (CoreC-45Reflect-cantReify u--val "FC" ext-0)))))(else (CoreC-45Reflect-cantReify u--val "FC" ext-0)))))(else (CoreC-45Reflect-cantReify u--val "FC" ext-0))))))))))))))(else (CoreC-45Reflect-cantReify arg-3 "FC" ext-0))))) +(define CoreC-45Reflect-u--reify_Reify_Double (lambda (arg-0 arg-1 arg-2 arg-3) (case (vector-ref arg-3 0) ((8) (let ((e-2 (vector-ref arg-3 2))) (lambda (clam-0) (case (vector-ref e-2 0) ((12) (let ((e-3 (vector-ref e-2 1))) (vector 1 e-3)))(else (CoreC-45Reflect-cantReify arg-3 "Double" clam-0))))))(else (lambda (eta-0) (CoreC-45Reflect-cantReify arg-3 "Double" eta-0)))))) +(define CoreC-45Reflect-u--reify_Reify_Constant (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (case (vector-ref arg-3 0) ((2) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-3 (vector-ref arg-3 3))) (let ((e-4 (vector-ref arg-3 4))) (let ((e-5 (vector-ref arg-3 5))) (let ((act-24 (CoreC-45Context-u--full_HasNames_Name (let ((e-0 (vector-ref arg-2 0))) e-0) e-2 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((u--val (vector 2 e-1 e-2 e-3 e-4 e-5))) (case (vector-ref e-6 0) ((0) (let ((e-7 (vector-ref e-6 2))) (case (vector-ref e-7 0) ((1) (let ((e-9 (vector-ref e-7 1))) (cond ((equal? e-9 "I") (if (null? e-5) (CoreC-45Reflect-cantReify u--val "Constant" ext-0) (let ((e-11 (car e-5))) (let ((e-10 (cdr e-5))) (if (null? e-11) (CoreC-45Reflect-cantReify u--val "Constant" ext-0) (let ((e-13 (cdr e-11))) (if (null? e-10) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-13) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-14 (vector-ref act-25 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref act-25 1))) ((CoreC-45Reflect-u--reify_Reify_Int arg-0 arg-1 arg-2 e-14) ext-0))))))) (case (vector-ref act-25 0) ((0) (let ((e-14 (vector-ref act-25 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref act-25 1))) (vector 1 (vector 0 e-14)))))) (CoreC-45Reflect-cantReify u--val "Constant" ext-0)))))))) ((equal? e-9 "I8") (if (null? e-5) (CoreC-45Reflect-cantReify u--val "Constant" ext-0) (let ((e-16 (car e-5))) (let ((e-17 (cdr e-5))) (if (null? e-16) (CoreC-45Reflect-cantReify u--val "Constant" ext-0) (let ((e-21 (cdr e-16))) (if (null? e-17) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-21) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) ((CoreC-45Reflect-u--reify_Reify_Integer arg-0 arg-1 arg-2 e-10) ext-0))))))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (vector 1 (vector 1 e-10)))))) (CoreC-45Reflect-cantReify u--val "Constant" ext-0)))))))) ((equal? e-9 "I16") (if (null? e-5) (CoreC-45Reflect-cantReify u--val "Constant" ext-0) (let ((e-24 (car e-5))) (let ((e-25 (cdr e-5))) (if (null? e-24) (CoreC-45Reflect-cantReify u--val "Constant" ext-0) (let ((e-29 (cdr e-24))) (if (null? e-25) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-29) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) ((CoreC-45Reflect-u--reify_Reify_Integer arg-0 arg-1 arg-2 e-10) ext-0))))))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (vector 1 (vector 2 e-10)))))) (CoreC-45Reflect-cantReify u--val "Constant" ext-0)))))))) ((equal? e-9 "I32") (if (null? e-5) (CoreC-45Reflect-cantReify u--val "Constant" ext-0) (let ((e-32 (car e-5))) (let ((e-33 (cdr e-5))) (if (null? e-32) (CoreC-45Reflect-cantReify u--val "Constant" ext-0) (let ((e-37 (cdr e-32))) (if (null? e-33) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-37) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) ((CoreC-45Reflect-u--reify_Reify_Integer arg-0 arg-1 arg-2 e-10) ext-0))))))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (vector 1 (vector 3 e-10)))))) (CoreC-45Reflect-cantReify u--val "Constant" ext-0)))))))) ((equal? e-9 "I64") (if (null? e-5) (CoreC-45Reflect-cantReify u--val "Constant" ext-0) (let ((e-40 (car e-5))) (let ((e-41 (cdr e-5))) (if (null? e-40) (CoreC-45Reflect-cantReify u--val "Constant" ext-0) (let ((e-45 (cdr e-40))) (if (null? e-41) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-45) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) ((CoreC-45Reflect-u--reify_Reify_Integer arg-0 arg-1 arg-2 e-10) ext-0))))))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (vector 1 (vector 4 e-10)))))) (CoreC-45Reflect-cantReify u--val "Constant" ext-0)))))))) ((equal? e-9 "BI") (if (null? e-5) (CoreC-45Reflect-cantReify u--val "Constant" ext-0) (let ((e-48 (car e-5))) (let ((e-49 (cdr e-5))) (if (null? e-48) (CoreC-45Reflect-cantReify u--val "Constant" ext-0) (let ((e-53 (cdr e-48))) (if (null? e-49) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-53) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) ((CoreC-45Reflect-u--reify_Reify_Integer arg-0 arg-1 arg-2 e-10) ext-0))))))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (vector 1 (vector 5 e-10)))))) (CoreC-45Reflect-cantReify u--val "Constant" ext-0)))))))) ((equal? e-9 "B8") (if (null? e-5) (CoreC-45Reflect-cantReify u--val "Constant" ext-0) (let ((e-56 (car e-5))) (let ((e-57 (cdr e-5))) (if (null? e-56) (CoreC-45Reflect-cantReify u--val "Constant" ext-0) (let ((e-61 (cdr e-56))) (if (null? e-57) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-61) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) ((CoreC-45Reflect-u--reify_Reify_Int arg-0 arg-1 arg-2 e-10) ext-0))))))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (vector 1 (vector 6 e-10)))))) (CoreC-45Reflect-cantReify u--val "Constant" ext-0)))))))) ((equal? e-9 "B16") (if (null? e-5) (CoreC-45Reflect-cantReify u--val "Constant" ext-0) (let ((e-64 (car e-5))) (let ((e-65 (cdr e-5))) (if (null? e-64) (CoreC-45Reflect-cantReify u--val "Constant" ext-0) (let ((e-69 (cdr e-64))) (if (null? e-65) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-69) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) ((CoreC-45Reflect-u--reify_Reify_Int arg-0 arg-1 arg-2 e-10) ext-0))))))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (vector 1 (vector 7 e-10)))))) (CoreC-45Reflect-cantReify u--val "Constant" ext-0)))))))) ((equal? e-9 "B32") (if (null? e-5) (CoreC-45Reflect-cantReify u--val "Constant" ext-0) (let ((e-72 (car e-5))) (let ((e-73 (cdr e-5))) (if (null? e-72) (CoreC-45Reflect-cantReify u--val "Constant" ext-0) (let ((e-77 (cdr e-72))) (if (null? e-73) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-77) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) ((CoreC-45Reflect-u--reify_Reify_Int arg-0 arg-1 arg-2 e-10) ext-0))))))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (vector 1 (vector 8 e-10)))))) (CoreC-45Reflect-cantReify u--val "Constant" ext-0)))))))) ((equal? e-9 "B64") (if (null? e-5) (CoreC-45Reflect-cantReify u--val "Constant" ext-0) (let ((e-80 (car e-5))) (let ((e-81 (cdr e-5))) (if (null? e-80) (CoreC-45Reflect-cantReify u--val "Constant" ext-0) (let ((e-85 (cdr e-80))) (if (null? e-81) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-85) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) ((CoreC-45Reflect-u--reify_Reify_Integer arg-0 arg-1 arg-2 e-10) ext-0))))))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (vector 1 (vector 9 e-10)))))) (CoreC-45Reflect-cantReify u--val "Constant" ext-0)))))))) ((equal? e-9 "Str") (if (null? e-5) (CoreC-45Reflect-cantReify u--val "Constant" ext-0) (let ((e-88 (car e-5))) (let ((e-89 (cdr e-5))) (if (null? e-88) (CoreC-45Reflect-cantReify u--val "Constant" ext-0) (let ((e-93 (cdr e-88))) (if (null? e-89) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-93) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) ((CoreC-45Reflect-u--reify_Reify_String arg-0 arg-1 arg-2 e-10) ext-0))))))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (vector 1 (vector 10 e-10)))))) (CoreC-45Reflect-cantReify u--val "Constant" ext-0)))))))) ((equal? e-9 "Ch") (if (null? e-5) (CoreC-45Reflect-cantReify u--val "Constant" ext-0) (let ((e-96 (car e-5))) (let ((e-97 (cdr e-5))) (if (null? e-96) (CoreC-45Reflect-cantReify u--val "Constant" ext-0) (let ((e-101 (cdr e-96))) (if (null? e-97) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-101) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) ((CoreC-45Reflect-u--reify_Reify_Char arg-0 arg-1 arg-2 e-10) ext-0))))))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (vector 1 (vector 11 e-10)))))) (CoreC-45Reflect-cantReify u--val "Constant" ext-0)))))))) ((equal? e-9 "Db") (if (null? e-5) (CoreC-45Reflect-cantReify u--val "Constant" ext-0) (let ((e-104 (car e-5))) (let ((e-105 (cdr e-5))) (if (null? e-104) (CoreC-45Reflect-cantReify u--val "Constant" ext-0) (let ((e-109 (cdr e-104))) (if (null? e-105) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-109) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) ((CoreC-45Reflect-u--reify_Reify_Double arg-0 arg-1 arg-2 e-10) ext-0))))))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (vector 1 (vector 12 e-10)))))) (CoreC-45Reflect-cantReify u--val "Constant" ext-0)))))))) ((equal? e-9 "WorldVal") (if (null? e-5) (vector 1 (vector 13 )) (CoreC-45Reflect-cantReify u--val "Constant" ext-0))) ((equal? e-9 "IntType") (if (null? e-5) (vector 1 (vector 14 )) (CoreC-45Reflect-cantReify u--val "Constant" ext-0))) ((equal? e-9 "Int8Type") (if (null? e-5) (vector 1 (vector 15 )) (CoreC-45Reflect-cantReify u--val "Constant" ext-0))) ((equal? e-9 "Int16Type") (if (null? e-5) (vector 1 (vector 16 )) (CoreC-45Reflect-cantReify u--val "Constant" ext-0))) ((equal? e-9 "Int32Type") (if (null? e-5) (vector 1 (vector 17 )) (CoreC-45Reflect-cantReify u--val "Constant" ext-0))) ((equal? e-9 "Int64Type") (if (null? e-5) (vector 1 (vector 18 )) (CoreC-45Reflect-cantReify u--val "Constant" ext-0))) ((equal? e-9 "IntegerType") (if (null? e-5) (vector 1 (vector 19 )) (CoreC-45Reflect-cantReify u--val "Constant" ext-0))) ((equal? e-9 "Bits8Type") (if (null? e-5) (vector 1 (vector 20 )) (CoreC-45Reflect-cantReify u--val "Constant" ext-0))) ((equal? e-9 "Bits16Type") (if (null? e-5) (vector 1 (vector 21 )) (CoreC-45Reflect-cantReify u--val "Constant" ext-0))) ((equal? e-9 "Bits32Type") (if (null? e-5) (vector 1 (vector 22 )) (CoreC-45Reflect-cantReify u--val "Constant" ext-0))) ((equal? e-9 "Bits64Type") (if (null? e-5) (vector 1 (vector 23 )) (CoreC-45Reflect-cantReify u--val "Constant" ext-0))) ((equal? e-9 "StringType") (if (null? e-5) (vector 1 (vector 24 )) (CoreC-45Reflect-cantReify u--val "Constant" ext-0))) ((equal? e-9 "CharType") (if (null? e-5) (vector 1 (vector 25 )) (CoreC-45Reflect-cantReify u--val "Constant" ext-0))) ((equal? e-9 "DoubleType") (if (null? e-5) (vector 1 (vector 26 )) (CoreC-45Reflect-cantReify u--val "Constant" ext-0))) ((equal? e-9 "WorldType") (if (null? e-5) (vector 1 (vector 27 )) (CoreC-45Reflect-cantReify u--val "Constant" ext-0)))(else (CoreC-45Reflect-cantReify u--val "Constant" ext-0)))))(else (CoreC-45Reflect-cantReify u--val "Constant" ext-0)))))(else (CoreC-45Reflect-cantReify u--val "Constant" ext-0))))))))))))))(else (CoreC-45Reflect-cantReify arg-3 "Constant" ext-0))))) +(define CoreC-45Reflect-u--reify_Reify_Char (lambda (arg-0 arg-1 arg-2 arg-3) (case (vector-ref arg-3 0) ((8) (let ((e-2 (vector-ref arg-3 2))) (lambda (clam-0) (case (vector-ref e-2 0) ((11) (let ((e-3 (vector-ref e-2 1))) (vector 1 e-3)))(else (CoreC-45Reflect-cantReify arg-3 "Char" clam-0))))))(else (lambda (eta-0) (CoreC-45Reflect-cantReify arg-3 "Char" eta-0)))))) +(define CoreC-45Reflect-u--reify_Reify_Bool (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (case (vector-ref arg-3 0) ((2) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-3 (vector-ref arg-3 3))) (let ((e-4 (vector-ref arg-3 4))) (let ((e-5 (vector-ref arg-3 5))) (let ((act-24 (CoreC-45Context-u--full_HasNames_Name (let ((e-0 (vector-ref arg-2 0))) e-0) e-2 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((u--val (vector 2 e-1 e-2 e-3 e-4 e-5))) (case (vector-ref e-6 0) ((0) (let ((e-7 (vector-ref e-6 2))) (case (vector-ref e-7 0) ((1) (let ((e-8 (vector-ref e-7 1))) (cond ((equal? e-8 "True") (vector 1 1)) ((equal? e-8 "False") (vector 1 0))(else (CoreC-45Reflect-cantReify u--val "Bool" ext-0)))))(else (CoreC-45Reflect-cantReify u--val "Bool" ext-0)))))(else (CoreC-45Reflect-cantReify u--val "Bool" ext-0))))))))))))))(else (CoreC-45Reflect-cantReify arg-3 "Bool" ext-0))))) +(define CoreC-45Reflect-u--reify_Reify_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (lambda (arg-2 arg-3 arg-4 arg-5 arg-6) (case (vector-ref arg-6 0) ((2) (let ((e-1 (vector-ref arg-6 1))) (let ((e-2 (vector-ref arg-6 2))) (let ((e-3 (vector-ref arg-6 3))) (let ((e-4 (vector-ref arg-6 4))) (let ((e-5 (vector-ref arg-6 5))) (if (null? e-5) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "Pair" eta-0)) (let ((e-7 (car e-5))) (let ((e-8 (cdr e-5))) (if (null? e-8) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "Pair" eta-0)) (let ((e-10 (car e-8))) (let ((e-11 (cdr e-8))) (if (null? e-11) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "Pair" eta-0)) (let ((e-13 (car e-11))) (let ((e-14 (cdr e-11))) (if (null? e-13) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "Pair" eta-0)) (let ((e-17 (car e-13))) (let ((e-18 (cdr e-13))) (if (null? e-14) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "Pair" eta-0)) (let ((e-20 (car e-14))) (let ((e-21 (cdr e-14))) (if (null? e-20) (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "Pair" eta-0)) (let ((e-24 (car e-20))) (let ((e-25 (cdr e-20))) (lambda (clam-0) (if (null? e-21) (let ((act-24 (CoreC-45Context-u--full_HasNames_Name (let ((e-0 (vector-ref arg-5 0))) e-0) e-2 clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((u--val (vector 2 e-1 e-2 e-3 e-4 (cons e-7 (cons e-10 (cons (cons e-17 e-18) (cons (cons e-24 e-25) '()))))))) (case (vector-ref e-6 0) ((0) (let ((e-9 (vector-ref e-6 2))) (case (vector-ref e-9 0) ((1) (let ((e-12 (vector-ref e-9 1))) (cond ((equal? e-12 "MkPair") (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-3 arg-4 arg-5 e-18) clam-0))) (case (vector-ref act-25 0) ((0) (let ((e-15 (vector-ref act-25 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref act-25 1))) ((((((Builtin-fst arg-2) arg-3) arg-4) arg-5) e-15) clam-0))))))) (case (vector-ref act-25 0) ((0) (let ((e-15 (vector-ref act-25 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref act-25 1))) (let ((act-26 (let ((act-26 ((CoreC-45Normalise-evalClosure arg-3 arg-4 arg-5 e-25) clam-0))) (case (vector-ref act-26 0) ((0) (let ((e-16 (vector-ref act-26 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref act-26 1))) ((((((Builtin-snd arg-2) arg-3) arg-4) arg-5) e-16) clam-0))))))) (case (vector-ref act-26 0) ((0) (let ((e-16 (vector-ref act-26 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref act-26 1))) (vector 1 (cons e-15 e-16)))))))))))(else (CoreC-45Reflect-cantReify u--val "Pair" clam-0)))))(else (CoreC-45Reflect-cantReify u--val "Pair" clam-0)))))(else (CoreC-45Reflect-cantReify u--val "Pair" clam-0)))))))) (CoreC-45Reflect-cantReify arg-6 "Pair" clam-0)))))))))))))))))))))))))))(else (lambda (eta-0) (CoreC-45Reflect-cantReify arg-6 "Pair" eta-0)))))) +(define CoreC-45Reflect-u--reify_Reify_C-40PiInfoC-32C-36tC-41 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (case (vector-ref arg-5 0) ((2) (let ((e-1 (vector-ref arg-5 1))) (let ((e-2 (vector-ref arg-5 2))) (let ((e-3 (vector-ref arg-5 3))) (let ((e-4 (vector-ref arg-5 4))) (let ((e-5 (vector-ref arg-5 5))) (let ((act-24 (CoreC-45Context-u--full_HasNames_Name (let ((e-0 (vector-ref arg-4 0))) e-0) e-2 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((u--val (vector 2 e-1 e-2 e-3 e-4 e-5))) (case (vector-ref e-6 0) ((0) (let ((e-7 (vector-ref e-6 2))) (case (vector-ref e-7 0) ((1) (let ((e-9 (vector-ref e-7 1))) (cond ((equal? e-9 "ImplicitArg") (vector 1 (vector 0 ))) ((equal? e-9 "ExplicitArg") (vector 1 (vector 1 ))) ((equal? e-9 "AutoImplicit") (vector 1 (vector 2 ))) ((equal? e-9 "DefImplicit") (if (null? e-5) (CoreC-45Reflect-cantReify u--val "PiInfo" ext-0) (let ((e-10 (cdr e-5))) (if (null? e-10) (CoreC-45Reflect-cantReify u--val "PiInfo" ext-0) (let ((e-13 (car e-10))) (let ((e-12 (cdr e-10))) (if (null? e-13) (CoreC-45Reflect-cantReify u--val "PiInfo" ext-0) (let ((e-16 (cdr e-13))) (if (null? e-12) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-2 arg-3 arg-4 e-16) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-14 (vector-ref act-25 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref act-25 1))) (((((arg-1 arg-2) arg-3) arg-4) e-14) ext-0))))))) (case (vector-ref act-25 0) ((0) (let ((e-14 (vector-ref act-25 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref act-25 1))) (vector 1 (vector 3 e-14)))))) (CoreC-45Reflect-cantReify u--val "PiInfo" ext-0))))))))))(else (CoreC-45Reflect-cantReify u--val "PiInfo" ext-0)))))(else (CoreC-45Reflect-cantReify u--val "PiInfo" ext-0)))))(else (CoreC-45Reflect-cantReify u--val "PiInfo" ext-0))))))))))))))(else (CoreC-45Reflect-cantReify arg-5 "PiInfo" ext-0))))) +(define CoreC-45Reflect-u--reify_Reify_C-40MaybeC-32C-36aC-41 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (case (vector-ref arg-5 0) ((2) (let ((e-1 (vector-ref arg-5 1))) (let ((e-2 (vector-ref arg-5 2))) (let ((e-3 (vector-ref arg-5 3))) (let ((e-4 (vector-ref arg-5 4))) (let ((e-5 (vector-ref arg-5 5))) (let ((act-24 (CoreC-45Context-u--full_HasNames_Name (let ((e-0 (vector-ref arg-4 0))) e-0) e-2 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((u--val (vector 2 e-1 e-2 e-3 e-4 e-5))) (case (vector-ref e-6 0) ((0) (let ((e-7 (vector-ref e-6 2))) (case (vector-ref e-7 0) ((1) (let ((e-9 (vector-ref e-7 1))) (cond ((equal? e-9 "Nothing") (vector 1 '())) ((equal? e-9 "Just") (if (null? e-5) (CoreC-45Reflect-cantReify u--val "Maybe" ext-0) (let ((e-10 (cdr e-5))) (if (null? e-10) (CoreC-45Reflect-cantReify u--val "Maybe" ext-0) (let ((e-13 (car e-10))) (let ((e-12 (cdr e-10))) (if (null? e-13) (CoreC-45Reflect-cantReify u--val "Maybe" ext-0) (let ((e-16 (cdr e-13))) (if (null? e-12) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-2 arg-3 arg-4 e-16) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-14 (vector-ref act-25 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref act-25 1))) (((((arg-1 arg-2) arg-3) arg-4) e-14) ext-0))))))) (case (vector-ref act-25 0) ((0) (let ((e-14 (vector-ref act-25 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref act-25 1))) (vector 1 (box e-14)))))) (CoreC-45Reflect-cantReify u--val "Maybe" ext-0))))))))))(else (CoreC-45Reflect-cantReify u--val "Maybe" ext-0)))))(else (CoreC-45Reflect-cantReify u--val "Maybe" ext-0)))))(else (CoreC-45Reflect-cantReify u--val "Maybe" ext-0))))))))))))))(else (CoreC-45Reflect-cantReify arg-5 "Maybe" ext-0))))) +(define CoreC-45Reflect-u--reify_Reify_C-40ListC-32C-36aC-41 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (case (vector-ref arg-5 0) ((2) (let ((e-1 (vector-ref arg-5 1))) (let ((e-2 (vector-ref arg-5 2))) (let ((e-3 (vector-ref arg-5 3))) (let ((e-4 (vector-ref arg-5 4))) (let ((e-5 (vector-ref arg-5 5))) (let ((act-24 (CoreC-45Context-u--full_HasNames_Name (let ((e-0 (vector-ref arg-4 0))) e-0) e-2 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((u--val (vector 2 e-1 e-2 e-3 e-4 e-5))) (case (vector-ref e-6 0) ((0) (let ((e-7 (vector-ref e-6 2))) (case (vector-ref e-7 0) ((1) (let ((e-9 (vector-ref e-7 1))) (cond ((equal? e-9 "Nil") (vector 1 '())) ((equal? e-9 "::") (if (null? e-5) (CoreC-45Reflect-cantReify u--val "List" ext-0) (let ((e-10 (cdr e-5))) (if (null? e-10) (CoreC-45Reflect-cantReify u--val "List" ext-0) (let ((e-13 (car e-10))) (let ((e-12 (cdr e-10))) (if (null? e-13) (CoreC-45Reflect-cantReify u--val "List" ext-0) (let ((e-16 (cdr e-13))) (if (null? e-12) (CoreC-45Reflect-cantReify u--val "List" ext-0) (let ((e-18 (car e-12))) (let ((e-19 (cdr e-12))) (if (null? e-18) (CoreC-45Reflect-cantReify u--val "List" ext-0) (let ((e-23 (cdr e-18))) (if (null? e-19) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-2 arg-3 arg-4 e-16) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-14 (vector-ref act-25 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref act-25 1))) (((((arg-1 arg-2) arg-3) arg-4) e-14) ext-0))))))) (case (vector-ref act-25 0) ((0) (let ((e-14 (vector-ref act-25 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref act-25 1))) (let ((act-26 (let ((act-26 ((CoreC-45Normalise-evalClosure arg-2 arg-3 arg-4 e-23) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-17 (vector-ref act-26 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref act-26 1))) (CoreC-45Reflect-u--reify_Reify_C-40ListC-32C-36aC-41 arg-1 arg-2 arg-3 arg-4 e-17 ext-0))))))) (case (vector-ref act-26 0) ((0) (let ((e-17 (vector-ref act-26 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref act-26 1))) (vector 1 (cons e-14 e-17)))))))))) (CoreC-45Reflect-cantReify u--val "List" ext-0)))))))))))))))(else (CoreC-45Reflect-cantReify u--val "List" ext-0)))))(else (CoreC-45Reflect-cantReify u--val "List" ext-0)))))(else (CoreC-45Reflect-cantReify u--val "List" ext-0))))))))))))))(else (CoreC-45Reflect-cantReify arg-5 "List" ext-0))))) +(define CoreC-45Reflect-u--reflect_Reflect_Visibility (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (cond ((equal? arg-5 0) (CoreC-45Reflect-getCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectiontt "Private") ext-0)) ((equal? arg-5 1) (CoreC-45Reflect-getCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectiontt "Export") ext-0)) (else (CoreC-45Reflect-getCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectiontt "Public") ext-0))))) +(define CoreC-45Reflect-u--reflect_Reflect_VirtualIdent (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (cond (else (CoreC-45Reflect-getCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectiontt "Interactive") ext-0))))) +(define CoreC-45Reflect-u--reflect_Reflect_TotalReq (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (cond ((equal? arg-5 0) (CoreC-45Reflect-getCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectiontt "Total") ext-0)) ((equal? arg-5 1) (CoreC-45Reflect-getCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectiontt "CoveringOnly") ext-0)) (else (CoreC-45Reflect-getCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectiontt "PartialOK") ext-0))))) (define CoreC-45Reflect-u--reflect_Reflect_String (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (vector 1 (vector 9 arg-1 (vector 10 arg-5))))) -(define CoreC-45Reflect-u--reflect_Reflect_RigCount (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (AlgebraC-45Semiring-elimSemi (cons (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-6) (lambda (arg-7) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-6 arg-7))) (lambda (arg-6) (lambda (arg-7) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-6 arg-7))))) (lambda (eta-0) (CoreC-45Reflect-getCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectiontt "M0") eta-0)) (lambda (eta-0) (CoreC-45Reflect-getCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectiontt "M1") eta-0)) (lambda (eta-0) (lambda (eta-1) (CoreC-45Reflect-getCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectiontt "MW") eta-1))) arg-5))) -(define CoreC-45Reflect-u--reflect_Reflect_Nat (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (lambda (eta-0) (CoreC-45Reflect-getCon arg-0 arg-1 arg-2 (CoreC-45Reflect-preludetypes "Z") eta-0)))(else (let ((e-0 (- arg-5 1))) (lambda (eta-0) (let ((act-24 ((CoreC-45Reflect-u--reflect_Reflect_Nat arg-0 arg-1 arg-2 arg-3 arg-4 e-0) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-preludetypes "S") (cons e-5 '()) eta-0))))))))))))) -(define CoreC-45Reflect-u--reflect_Reflect_Namespace (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (CoreC-45Reflect-u--reflect_Reflect_C-40ListC-32C-36aC-41 (lambda (u--vars) (lambda (arg-3854) (lambda (arg-3855) (lambda (u--onLHS) (lambda (arg-3856) (lambda (arg-3858) (lambda (eta-0) (CoreC-45Reflect-u--reflect_Reflect_String u--vars arg-3854 arg-3855 u--onLHS arg-3856 arg-3858 eta-0)))))))) arg-0 arg-1 arg-2 arg-3 arg-4 (CoreC-45NameC-45Namespace-unsafeUnfoldNamespace arg-5) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectiontt "MkNS") (cons e-5 '()) ext-0)))))))) -(define CoreC-45Reflect-u--reflect_Reflect_Name (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((act-24 (CoreC-45Reflect-u--reflect_Reflect_String arg-0 arg-1 arg-2 arg-3 arg-4 e-0 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectiontt "UN") (cons e-5 '()) ext-0)))))))) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((act-24 (CoreC-45Reflect-u--reflect_Reflect_String arg-0 arg-1 arg-2 arg-3 arg-4 e-1 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Reflect-u--reflect_Reflect_Int arg-0 arg-1 arg-2 arg-3 arg-4 e-2 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectiontt "MN") (cons e-5 (cons e-6 '())) ext-0)))))))))))))) ((0) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((act-24 (CoreC-45Reflect-u--reflect_Reflect_Namespace arg-0 arg-1 arg-2 arg-3 arg-4 e-3 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Reflect-u--reflect_Reflect_Name arg-0 arg-1 arg-2 arg-3 arg-4 e-4 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectiontt "NS") (cons e-5 (cons e-6 '())) ext-0)))))))))))))) ((4) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((act-24 (CoreC-45Reflect-u--reflect_Reflect_String arg-0 arg-1 arg-2 arg-3 arg-4 e-5 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Reflect-u--reflect_Reflect_Name arg-0 arg-1 arg-2 arg-3 arg-4 e-6 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc2 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectiontt "DN") (cons e-7 (cons e-8 '())) ext-0)))))))))))))) ((5) (let ((e-7 (vector-ref sc0 1))) (let ((act-24 (CoreC-45Reflect-u--reflect_Reflect_String arg-0 arg-1 arg-2 arg-3 arg-4 e-7 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectiontt "RF") (cons e-5 '()) ext-0)))))))) ((9) (let ((e-8 (vector-ref sc0 1))) (let ((act-24 (CoreC-45Context-u--full_HasNames_Name (let ((sc1 arg-2)) (let ((e-0 (vector-ref sc1 1))) e-0)) (vector 9 e-8) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((9) (CoreC-45Reflect-cantReflect arg-1 "Name" ext-0))(else (CoreC-45Reflect-u--reflect_Reflect_Name arg-0 arg-1 arg-2 arg-3 arg-4 e-5 ext-0)))))))))))(else (CoreC-45Reflect-cantReflect arg-1 "Name" ext-0)))))) -(define CoreC-45Reflect-u--reflect_Reflect_LazyReason (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (CoreC-45Reflect-getCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectiontt "LInf") ext-0)) ((1) (CoreC-45Reflect-getCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectiontt "LLazy") ext-0)) (else (CoreC-45Reflect-getCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectiontt "LUnknown") ext-0)))))) +(define CoreC-45Reflect-u--reflect_Reflect_RigCount (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (AlgebraC-45Semiring-elimSemi (cons (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-6) (lambda (arg-7) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-6 arg-7))) (lambda (arg-6) (lambda (arg-7) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-6 arg-7))))) (lambda (eta-0) (CoreC-45Reflect-getCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectiontt "M0") eta-0)) (lambda (eta-0) (CoreC-45Reflect-getCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectiontt "M1") eta-0)) (lambda (eta-0) (lambda (eta-1) (CoreC-45Reflect-getCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectiontt "MW") eta-1))) arg-5))) +(define CoreC-45Reflect-u--reflect_Reflect_OriginDesc (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (case (vector-ref arg-5 0) ((0) (let ((e-0 (vector-ref arg-5 1))) (let ((act-24 (CoreC-45Reflect-u--reflect_Reflect_ModuleIdent arg-0 arg-1 arg-2 arg-3 arg-4 e-0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectiontt "PhysicalIdrSrc") (cons e-5 '()) ext-0))))))) ((1) (let ((e-1 (vector-ref arg-5 1))) (let ((act-24 (CoreC-45Reflect-u--reflect_Reflect_String arg-0 arg-1 arg-2 arg-3 arg-4 e-1 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectiontt "PhysicalPkgSrc") (cons e-5 '()) ext-0))))))) (else (let ((e-2 (vector-ref arg-5 1))) (let ((act-24 (CoreC-45Reflect-u--reflect_Reflect_VirtualIdent arg-0 arg-1 arg-2 arg-3 arg-4 e-2 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref act-24 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectiontt "Virtual") (cons e-5 '()) ext-0)))))))))) +(define CoreC-45Reflect-u--reflect_Reflect_Nat (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (cond ((equal? arg-5 0) (lambda (eta-0) (CoreC-45Reflect-getCon arg-0 arg-1 arg-2 (CoreC-45Reflect-preludetypes "Z") eta-0)))(else (let ((e-0 (- arg-5 1))) (lambda (eta-0) (let ((act-24 ((CoreC-45Reflect-u--reflect_Reflect_Nat arg-0 arg-1 arg-2 arg-3 arg-4 e-0) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-preludetypes "S") (cons e-5 '()) eta-0))))))))))) +(define CoreC-45Reflect-u--reflect_Reflect_Namespace (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (CoreC-45Reflect-u--reflect_Reflect_C-40ListC-32C-36aC-41 (lambda (u--vars) (lambda (arg-6856) (lambda (arg-6857) (lambda (u--onLHS) (lambda (arg-6858) (lambda (arg-6860) (lambda (eta-0) (CoreC-45Reflect-u--reflect_Reflect_String u--vars arg-6856 arg-6857 u--onLHS arg-6858 arg-6860 eta-0)))))))) arg-0 arg-1 arg-2 arg-3 arg-4 (CoreC-45NameC-45Namespace-unsafeUnfoldNamespace arg-5) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectiontt "MkNS") (cons e-5 '()) ext-0))))))) +(define CoreC-45Reflect-u--reflect_Reflect_Name (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (case (vector-ref arg-5 0) ((1) (let ((e-0 (vector-ref arg-5 1))) (let ((act-24 (CoreC-45Reflect-u--reflect_Reflect_String arg-0 arg-1 arg-2 arg-3 arg-4 e-0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectiontt "UN") (cons e-5 '()) ext-0))))))) ((2) (let ((e-1 (vector-ref arg-5 1))) (let ((e-2 (vector-ref arg-5 2))) (let ((act-24 (CoreC-45Reflect-u--reflect_Reflect_String arg-0 arg-1 arg-2 arg-3 arg-4 e-1 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Reflect-u--reflect_Reflect_Int arg-0 arg-1 arg-2 arg-3 arg-4 e-2 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-3 (vector-ref act-25 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref act-25 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectiontt "MN") (cons e-5 (cons e-6 '())) ext-0)))))))))))) ((0) (let ((e-3 (vector-ref arg-5 1))) (let ((e-4 (vector-ref arg-5 2))) (let ((act-24 (CoreC-45Reflect-u--reflect_Reflect_Namespace arg-0 arg-1 arg-2 arg-3 arg-4 e-3 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Reflect-u--reflect_Reflect_Name arg-0 arg-1 arg-2 arg-3 arg-4 e-4 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectiontt "NS") (cons e-5 (cons e-6 '())) ext-0)))))))))))) ((4) (let ((e-5 (vector-ref arg-5 1))) (let ((e-6 (vector-ref arg-5 2))) (let ((act-24 (CoreC-45Reflect-u--reflect_Reflect_String arg-0 arg-1 arg-2 arg-3 arg-4 e-5 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Reflect-u--reflect_Reflect_Name arg-0 arg-1 arg-2 arg-3 arg-4 e-6 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-25 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectiontt "DN") (cons e-7 (cons e-8 '())) ext-0)))))))))))) ((5) (let ((e-7 (vector-ref arg-5 1))) (let ((act-24 (CoreC-45Reflect-u--reflect_Reflect_String arg-0 arg-1 arg-2 arg-3 arg-4 e-7 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectiontt "RF") (cons e-5 '()) ext-0))))))) ((9) (let ((e-8 (vector-ref arg-5 1))) (let ((act-24 (CoreC-45Context-u--full_HasNames_Name (let ((e-0 (vector-ref arg-2 0))) e-0) (vector 9 e-8) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (case (vector-ref e-5 0) ((9) (CoreC-45Reflect-cantReflect arg-1 "Name" ext-0))(else (CoreC-45Reflect-u--reflect_Reflect_Name arg-0 arg-1 arg-2 arg-3 arg-4 e-5 ext-0)))))))))(else (CoreC-45Reflect-cantReflect arg-1 "Name" ext-0))))) +(define CoreC-45Reflect-u--reflect_Reflect_ModuleIdent (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (CoreC-45Reflect-u--reflect_Reflect_C-40ListC-32C-36aC-41 (lambda (u--vars) (lambda (arg-6856) (lambda (arg-6857) (lambda (u--onLHS) (lambda (arg-6858) (lambda (arg-6860) (lambda (eta-0) (CoreC-45Reflect-u--reflect_Reflect_String u--vars arg-6856 arg-6857 u--onLHS arg-6858 arg-6860 eta-0)))))))) arg-0 arg-1 arg-2 arg-3 arg-4 (CoreC-45NameC-45Namespace-unsafeUnfoldModuleIdent arg-5) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectiontt "MkMI") (cons e-5 '()) ext-0))))))) +(define CoreC-45Reflect-u--reflect_Reflect_LazyReason (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (cond ((equal? arg-5 0) (CoreC-45Reflect-getCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectiontt "LInf") ext-0)) ((equal? arg-5 1) (CoreC-45Reflect-getCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectiontt "LLazy") ext-0)) (else (CoreC-45Reflect-getCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectiontt "LUnknown") ext-0))))) (define CoreC-45Reflect-u--reflect_Reflect_Integer (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (vector 1 (vector 9 arg-1 (vector 5 arg-5))))) (define CoreC-45Reflect-u--reflect_Reflect_Int (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (vector 1 (vector 9 arg-1 (vector 0 arg-5))))) -(define CoreC-45Reflect-u--reflect_Reflect_FC (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 10 arg-1 1))))(else (lambda (clam-0) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((act-24 (CoreC-45Reflect-u--reflect_Reflect_String arg-0 arg-1 arg-2 arg-3 arg-4 e-0 clam-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Reflect-u--reflect_Reflect_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (u--vars) (lambda (arg-3854) (lambda (arg-3855) (lambda (u--onLHS) (lambda (arg-3856) (lambda (arg-3858) (lambda (eta-0) (CoreC-45Reflect-u--reflect_Reflect_Int u--vars arg-3854 arg-3855 u--onLHS arg-3856 arg-3858 eta-0)))))))) (lambda (u--vars) (lambda (arg-3854) (lambda (arg-3855) (lambda (u--onLHS) (lambda (arg-3856) (lambda (arg-3858) (lambda (eta-0) (CoreC-45Reflect-u--reflect_Reflect_Int u--vars arg-3854 arg-3855 u--onLHS arg-3856 arg-3858 eta-0))))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-1 clam-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (CoreC-45Reflect-u--reflect_Reflect_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (u--vars) (lambda (arg-3854) (lambda (arg-3855) (lambda (u--onLHS) (lambda (arg-3856) (lambda (arg-3858) (lambda (eta-0) (CoreC-45Reflect-u--reflect_Reflect_Int u--vars arg-3854 arg-3855 u--onLHS arg-3856 arg-3858 eta-0)))))))) (lambda (u--vars) (lambda (arg-3854) (lambda (arg-3855) (lambda (u--onLHS) (lambda (arg-3856) (lambda (arg-3858) (lambda (eta-0) (CoreC-45Reflect-u--reflect_Reflect_Int u--vars arg-3854 arg-3855 u--onLHS arg-3856 arg-3858 eta-0))))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-2 clam-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectiontt "MkFC") (cons e-5 (cons e-6 (cons e-7 '()))) clam-0)))))))))))))))))))) (else (CoreC-45Reflect-getCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectiontt "EmptyFC") clam-0)))))))))) +(define CoreC-45Reflect-u--reflect_Reflect_FC (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (cond ((equal? arg-3 1) (lambda (eta-0) (vector 1 (vector 10 arg-1 0))))(else (lambda (clam-0) (case (vector-ref arg-5 0) ((0) (let ((e-0 (vector-ref arg-5 1))) (let ((e-1 (vector-ref arg-5 2))) (let ((e-2 (vector-ref arg-5 3))) (let ((act-24 (CoreC-45Reflect-u--reflect_Reflect_OriginDesc arg-0 arg-1 arg-2 arg-3 arg-4 e-0 clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Reflect-u--reflect_Reflect_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (u--vars) (lambda (arg-6856) (lambda (arg-6857) (lambda (u--onLHS) (lambda (arg-6858) (lambda (arg-6860) (lambda (eta-0) (CoreC-45Reflect-u--reflect_Reflect_Int u--vars arg-6856 arg-6857 u--onLHS arg-6858 arg-6860 eta-0)))))))) (lambda (u--vars) (lambda (arg-6856) (lambda (arg-6857) (lambda (u--onLHS) (lambda (arg-6858) (lambda (arg-6860) (lambda (eta-0) (CoreC-45Reflect-u--reflect_Reflect_Int u--vars arg-6856 arg-6857 u--onLHS arg-6858 arg-6860 eta-0))))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-1 clam-0))) (case (vector-ref act-25 0) ((0) (let ((e-3 (vector-ref act-25 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Reflect-u--reflect_Reflect_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (u--vars) (lambda (arg-6856) (lambda (arg-6857) (lambda (u--onLHS) (lambda (arg-6858) (lambda (arg-6860) (lambda (eta-0) (CoreC-45Reflect-u--reflect_Reflect_Int u--vars arg-6856 arg-6857 u--onLHS arg-6858 arg-6860 eta-0)))))))) (lambda (u--vars) (lambda (arg-6856) (lambda (arg-6857) (lambda (u--onLHS) (lambda (arg-6858) (lambda (arg-6860) (lambda (eta-0) (CoreC-45Reflect-u--reflect_Reflect_Int u--vars arg-6856 arg-6857 u--onLHS arg-6858 arg-6860 eta-0))))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-2 clam-0))) (case (vector-ref act-26 0) ((0) (let ((e-3 (vector-ref act-26 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref act-26 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectiontt "MkFC") (cons e-5 (cons e-6 (cons e-7 '()))) clam-0))))))))))))))))) ((1) (let ((e-3 (vector-ref arg-5 1))) (let ((e-4 (vector-ref arg-5 2))) (let ((e-5 (vector-ref arg-5 3))) (let ((act-24 (CoreC-45Reflect-u--reflect_Reflect_OriginDesc arg-0 arg-1 arg-2 arg-3 arg-4 e-3 clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Reflect-u--reflect_Reflect_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (u--vars) (lambda (arg-6856) (lambda (arg-6857) (lambda (u--onLHS) (lambda (arg-6858) (lambda (arg-6860) (lambda (eta-0) (CoreC-45Reflect-u--reflect_Reflect_Int u--vars arg-6856 arg-6857 u--onLHS arg-6858 arg-6860 eta-0)))))))) (lambda (u--vars) (lambda (arg-6856) (lambda (arg-6857) (lambda (u--onLHS) (lambda (arg-6858) (lambda (arg-6860) (lambda (eta-0) (CoreC-45Reflect-u--reflect_Reflect_Int u--vars arg-6856 arg-6857 u--onLHS arg-6858 arg-6860 eta-0))))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-4 clam-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Reflect-u--reflect_Reflect_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (u--vars) (lambda (arg-6856) (lambda (arg-6857) (lambda (u--onLHS) (lambda (arg-6858) (lambda (arg-6860) (lambda (eta-0) (CoreC-45Reflect-u--reflect_Reflect_Int u--vars arg-6856 arg-6857 u--onLHS arg-6858 arg-6860 eta-0)))))))) (lambda (u--vars) (lambda (arg-6856) (lambda (arg-6857) (lambda (u--onLHS) (lambda (arg-6858) (lambda (arg-6860) (lambda (eta-0) (CoreC-45Reflect-u--reflect_Reflect_Int u--vars arg-6856 arg-6857 u--onLHS arg-6858 arg-6860 eta-0))))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-5 clam-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-26 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectiontt "MkFC") (cons e-6 (cons e-7 (cons e-8 '()))) clam-0))))))))))))))))) (else (CoreC-45Reflect-getCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectiontt "EmptyFC") clam-0)))))))) (define CoreC-45Reflect-u--reflect_Reflect_Double (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (vector 1 (vector 9 arg-1 (vector 12 arg-5))))) -(define CoreC-45Reflect-u--reflect_Reflect_Constant (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((act-24 (CoreC-45Reflect-u--reflect_Reflect_Int arg-0 arg-1 arg-2 arg-3 arg-4 e-0 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectiontt "I") (cons e-5 '()) ext-0)))))))) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((act-24 (CoreC-45Reflect-u--reflect_Reflect_Integer arg-0 arg-1 arg-2 arg-3 arg-4 e-1 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectiontt "I8") (cons e-5 '()) ext-0)))))))) ((2) (let ((e-2 (vector-ref sc0 1))) (let ((act-24 (CoreC-45Reflect-u--reflect_Reflect_Integer arg-0 arg-1 arg-2 arg-3 arg-4 e-2 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectiontt "I16") (cons e-5 '()) ext-0)))))))) ((3) (let ((e-3 (vector-ref sc0 1))) (let ((act-24 (CoreC-45Reflect-u--reflect_Reflect_Integer arg-0 arg-1 arg-2 arg-3 arg-4 e-3 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectiontt "I32") (cons e-5 '()) ext-0)))))))) ((4) (let ((e-4 (vector-ref sc0 1))) (let ((act-24 (CoreC-45Reflect-u--reflect_Reflect_Integer arg-0 arg-1 arg-2 arg-3 arg-4 e-4 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectiontt "I64") (cons e-5 '()) ext-0)))))))) ((5) (let ((e-5 (vector-ref sc0 1))) (let ((act-24 (CoreC-45Reflect-u--reflect_Reflect_Integer arg-0 arg-1 arg-2 arg-3 arg-4 e-5 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectiontt "BI") (cons e-6 '()) ext-0)))))))) ((6) (let ((e-6 (vector-ref sc0 1))) (let ((act-24 (CoreC-45Reflect-u--reflect_Reflect_Int arg-0 arg-1 arg-2 arg-3 arg-4 e-6 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectiontt "B8") (cons e-5 '()) ext-0)))))))) ((7) (let ((e-7 (vector-ref sc0 1))) (let ((act-24 (CoreC-45Reflect-u--reflect_Reflect_Int arg-0 arg-1 arg-2 arg-3 arg-4 e-7 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectiontt "B16") (cons e-5 '()) ext-0)))))))) ((8) (let ((e-8 (vector-ref sc0 1))) (let ((act-24 (CoreC-45Reflect-u--reflect_Reflect_Int arg-0 arg-1 arg-2 arg-3 arg-4 e-8 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectiontt "B32") (cons e-5 '()) ext-0)))))))) ((9) (let ((e-9 (vector-ref sc0 1))) (let ((act-24 (CoreC-45Reflect-u--reflect_Reflect_Integer arg-0 arg-1 arg-2 arg-3 arg-4 e-9 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectiontt "B64") (cons e-5 '()) ext-0)))))))) ((10) (let ((e-10 (vector-ref sc0 1))) (let ((act-24 (CoreC-45Reflect-u--reflect_Reflect_String arg-0 arg-1 arg-2 arg-3 arg-4 e-10 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectiontt "Str") (cons e-5 '()) ext-0)))))))) ((11) (let ((e-11 (vector-ref sc0 1))) (let ((act-24 (CoreC-45Reflect-u--reflect_Reflect_Char arg-0 arg-1 arg-2 arg-3 arg-4 e-11 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectiontt "Ch") (cons e-5 '()) ext-0)))))))) ((12) (let ((e-12 (vector-ref sc0 1))) (let ((act-24 (CoreC-45Reflect-u--reflect_Reflect_Double arg-0 arg-1 arg-2 arg-3 arg-4 e-12 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectiontt "Db") (cons e-5 '()) ext-0)))))))) ((13) (CoreC-45Reflect-getCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectiontt "WorldVal") ext-0)) ((14) (CoreC-45Reflect-getCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectiontt "IntType") ext-0)) ((15) (CoreC-45Reflect-getCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectiontt "Int8Type") ext-0)) ((16) (CoreC-45Reflect-getCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectiontt "Int16Type") ext-0)) ((17) (CoreC-45Reflect-getCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectiontt "Int32Type") ext-0)) ((18) (CoreC-45Reflect-getCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectiontt "Int64Type") ext-0)) ((19) (CoreC-45Reflect-getCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectiontt "IntegerType") ext-0)) ((20) (CoreC-45Reflect-getCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectiontt "Bits8Type") ext-0)) ((21) (CoreC-45Reflect-getCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectiontt "Bits16Type") ext-0)) ((22) (CoreC-45Reflect-getCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectiontt "Bits32Type") ext-0)) ((23) (CoreC-45Reflect-getCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectiontt "Bits64Type") ext-0)) ((24) (CoreC-45Reflect-getCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectiontt "StringType") ext-0)) ((25) (CoreC-45Reflect-getCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectiontt "CharType") ext-0)) ((26) (CoreC-45Reflect-getCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectiontt "DoubleType") ext-0)) (else (CoreC-45Reflect-getCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectiontt "WorldType") ext-0)))))) +(define CoreC-45Reflect-u--reflect_Reflect_Constant (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (case (vector-ref arg-5 0) ((0) (let ((e-0 (vector-ref arg-5 1))) (let ((act-24 (CoreC-45Reflect-u--reflect_Reflect_Int arg-0 arg-1 arg-2 arg-3 arg-4 e-0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectiontt "I") (cons e-5 '()) ext-0))))))) ((1) (let ((e-1 (vector-ref arg-5 1))) (let ((act-24 (CoreC-45Reflect-u--reflect_Reflect_Integer arg-0 arg-1 arg-2 arg-3 arg-4 e-1 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectiontt "I8") (cons e-5 '()) ext-0))))))) ((2) (let ((e-2 (vector-ref arg-5 1))) (let ((act-24 (CoreC-45Reflect-u--reflect_Reflect_Integer arg-0 arg-1 arg-2 arg-3 arg-4 e-2 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref act-24 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectiontt "I16") (cons e-5 '()) ext-0))))))) ((3) (let ((e-3 (vector-ref arg-5 1))) (let ((act-24 (CoreC-45Reflect-u--reflect_Reflect_Integer arg-0 arg-1 arg-2 arg-3 arg-4 e-3 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectiontt "I32") (cons e-5 '()) ext-0))))))) ((4) (let ((e-4 (vector-ref arg-5 1))) (let ((act-24 (CoreC-45Reflect-u--reflect_Reflect_Integer arg-0 arg-1 arg-2 arg-3 arg-4 e-4 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectiontt "I64") (cons e-5 '()) ext-0))))))) ((5) (let ((e-5 (vector-ref arg-5 1))) (let ((act-24 (CoreC-45Reflect-u--reflect_Reflect_Integer arg-0 arg-1 arg-2 arg-3 arg-4 e-5 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-24 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectiontt "BI") (cons e-6 '()) ext-0))))))) ((6) (let ((e-6 (vector-ref arg-5 1))) (let ((act-24 (CoreC-45Reflect-u--reflect_Reflect_Int arg-0 arg-1 arg-2 arg-3 arg-4 e-6 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectiontt "B8") (cons e-5 '()) ext-0))))))) ((7) (let ((e-7 (vector-ref arg-5 1))) (let ((act-24 (CoreC-45Reflect-u--reflect_Reflect_Int arg-0 arg-1 arg-2 arg-3 arg-4 e-7 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectiontt "B16") (cons e-5 '()) ext-0))))))) ((8) (let ((e-8 (vector-ref arg-5 1))) (let ((act-24 (CoreC-45Reflect-u--reflect_Reflect_Int arg-0 arg-1 arg-2 arg-3 arg-4 e-8 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectiontt "B32") (cons e-5 '()) ext-0))))))) ((9) (let ((e-9 (vector-ref arg-5 1))) (let ((act-24 (CoreC-45Reflect-u--reflect_Reflect_Integer arg-0 arg-1 arg-2 arg-3 arg-4 e-9 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectiontt "B64") (cons e-5 '()) ext-0))))))) ((10) (let ((e-10 (vector-ref arg-5 1))) (let ((act-24 (CoreC-45Reflect-u--reflect_Reflect_String arg-0 arg-1 arg-2 arg-3 arg-4 e-10 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectiontt "Str") (cons e-5 '()) ext-0))))))) ((11) (let ((e-11 (vector-ref arg-5 1))) (let ((act-24 (CoreC-45Reflect-u--reflect_Reflect_Char arg-0 arg-1 arg-2 arg-3 arg-4 e-11 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectiontt "Ch") (cons e-5 '()) ext-0))))))) ((12) (let ((e-12 (vector-ref arg-5 1))) (let ((act-24 (CoreC-45Reflect-u--reflect_Reflect_Double arg-0 arg-1 arg-2 arg-3 arg-4 e-12 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (CoreC-45Reflect-appCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectiontt "Db") (cons e-5 '()) ext-0))))))) ((13) (CoreC-45Reflect-getCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectiontt "WorldVal") ext-0)) ((14) (CoreC-45Reflect-getCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectiontt "IntType") ext-0)) ((15) (CoreC-45Reflect-getCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectiontt "Int8Type") ext-0)) ((16) (CoreC-45Reflect-getCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectiontt "Int16Type") ext-0)) ((17) (CoreC-45Reflect-getCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectiontt "Int32Type") ext-0)) ((18) (CoreC-45Reflect-getCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectiontt "Int64Type") ext-0)) ((19) (CoreC-45Reflect-getCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectiontt "IntegerType") ext-0)) ((20) (CoreC-45Reflect-getCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectiontt "Bits8Type") ext-0)) ((21) (CoreC-45Reflect-getCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectiontt "Bits16Type") ext-0)) ((22) (CoreC-45Reflect-getCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectiontt "Bits32Type") ext-0)) ((23) (CoreC-45Reflect-getCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectiontt "Bits64Type") ext-0)) ((24) (CoreC-45Reflect-getCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectiontt "StringType") ext-0)) ((25) (CoreC-45Reflect-getCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectiontt "CharType") ext-0)) ((26) (CoreC-45Reflect-getCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectiontt "DoubleType") ext-0)) (else (CoreC-45Reflect-getCon arg-0 arg-1 arg-2 (CoreC-45Reflect-reflectiontt "WorldType") ext-0))))) (define CoreC-45Reflect-u--reflect_Reflect_Char (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (vector 1 (vector 9 arg-1 (vector 11 arg-5))))) -(define CoreC-45Reflect-u--reflect_Reflect_Bool (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (CoreC-45Reflect-getCon arg-0 arg-1 arg-2 (CoreC-45Reflect-basics "True") ext-0)) (else (CoreC-45Reflect-getCon arg-0 arg-1 arg-2 (CoreC-45Reflect-basics "False") ext-0)))))) +(define CoreC-45Reflect-u--reflect_Reflect_Bool (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (cond ((equal? arg-5 1) (CoreC-45Reflect-getCon arg-0 arg-1 arg-2 (CoreC-45Reflect-basics "True") ext-0)) (else (CoreC-45Reflect-getCon arg-0 arg-1 arg-2 (CoreC-45Reflect-basics "False") ext-0))))) (define CoreC-45Reflect-u--reflect_Reflect_C-40C-124UnitC-44MkUnitC-124C-41 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (CoreC-45Reflect-getCon arg-0 arg-1 arg-2 (CoreC-45Reflect-builtin "MkUnit") ext-0))) -(define CoreC-45Reflect-u--reflect_Reflect_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (lambda (arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 ext-0) (let ((sc0 arg-8)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((act-24 ((((((((Builtin-fst arg-2) arg-3) arg-4) arg-5) arg-6) arg-7) e-2) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((((((((Builtin-snd arg-2) arg-3) arg-4) arg-5) arg-6) arg-7) e-3) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (CoreC-45Reflect-appCon arg-3 arg-4 arg-5 (CoreC-45Reflect-builtin "MkPair") (cons (vector 10 arg-4 1) (cons (vector 10 arg-4 1) (cons e-5 (cons e-6 '())))) ext-0)))))))))))))))) -(define CoreC-45Reflect-u--reflect_Reflect_C-40PiInfoC-32C-36tC-41 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (CoreC-45Reflect-appCon arg-2 arg-3 arg-4 (CoreC-45Reflect-reflectiontt "ImplicitArg") (cons (vector 10 arg-3 1) '()) ext-0)) ((1) (CoreC-45Reflect-appCon arg-2 arg-3 arg-4 (CoreC-45Reflect-reflectiontt "ExplicitArg") (cons (vector 10 arg-3 1) '()) ext-0)) ((2) (CoreC-45Reflect-appCon arg-2 arg-3 arg-4 (CoreC-45Reflect-reflectiontt "AutoImplicit") (cons (vector 10 arg-3 1) '()) ext-0)) (else (let ((e-4 (vector-ref sc0 1))) (let ((act-24 (((((((arg-1 arg-2) arg-3) arg-4) arg-5) arg-6) e-4) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (CoreC-45Reflect-appCon arg-2 arg-3 arg-4 (CoreC-45Reflect-reflectiontt "DefImplicit") (cons (vector 10 arg-3 1) (cons e-5 '())) ext-0)))))))))))) -(define CoreC-45Reflect-u--reflect_Reflect_C-40MaybeC-32C-36aC-41 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (CoreC-45Reflect-appCon arg-2 arg-3 arg-4 (CoreC-45Reflect-preludetypes "Nothing") (cons (vector 10 arg-3 1) '()) ext-0)) (else (let ((e-2 (vector-ref sc0 1))) (let ((act-24 (((((((arg-1 arg-2) arg-3) arg-4) arg-5) arg-6) e-2) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (CoreC-45Reflect-appCon arg-2 arg-3 arg-4 (CoreC-45Reflect-preludetypes "Just") (cons (vector 10 arg-3 1) (cons e-5 '())) ext-0)))))))))))) -(define CoreC-45Reflect-u--reflect_Reflect_C-40ListC-32C-36aC-41 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((sc0 arg-7)) (if (null? sc0) (CoreC-45Reflect-appCon arg-2 arg-3 arg-4 (CoreC-45Reflect-preludetypes "Nil") (cons (vector 10 arg-3 1) '()) ext-0) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((act-24 (((((((arg-1 arg-2) arg-3) arg-4) arg-5) arg-6) e-2) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Reflect-u--reflect_Reflect_C-40ListC-32C-36aC-41 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (CoreC-45Reflect-appCon arg-2 arg-3 arg-4 (CoreC-45Reflect-preludetypes "::") (cons (vector 10 arg-3 1) (cons e-5 (cons e-6 '()))) ext-0))))))))))))))))) +(define CoreC-45Reflect-u--reflect_Reflect_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (lambda (arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 ext-0) (let ((e-2 (car arg-8))) (let ((e-3 (cdr arg-8))) (let ((act-24 ((((((((Builtin-fst arg-2) arg-3) arg-4) arg-5) arg-6) arg-7) e-2) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((((((((Builtin-snd arg-2) arg-3) arg-4) arg-5) arg-6) arg-7) e-3) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref act-25 1))) (CoreC-45Reflect-appCon arg-3 arg-4 arg-5 (CoreC-45Reflect-builtin "MkPair") (cons (vector 10 arg-4 0) (cons (vector 10 arg-4 0) (cons e-5 (cons e-6 '())))) ext-0))))))))))))) +(define CoreC-45Reflect-u--reflect_Reflect_C-40PiInfoC-32C-36tC-41 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (case (vector-ref arg-7 0) ((0) (CoreC-45Reflect-appCon arg-2 arg-3 arg-4 (CoreC-45Reflect-reflectiontt "ImplicitArg") (cons (vector 10 arg-3 0) '()) ext-0)) ((1) (CoreC-45Reflect-appCon arg-2 arg-3 arg-4 (CoreC-45Reflect-reflectiontt "ExplicitArg") (cons (vector 10 arg-3 0) '()) ext-0)) ((2) (CoreC-45Reflect-appCon arg-2 arg-3 arg-4 (CoreC-45Reflect-reflectiontt "AutoImplicit") (cons (vector 10 arg-3 0) '()) ext-0)) (else (let ((e-4 (vector-ref arg-7 1))) (let ((act-24 (((((((arg-1 arg-2) arg-3) arg-4) arg-5) arg-6) e-4) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (CoreC-45Reflect-appCon arg-2 arg-3 arg-4 (CoreC-45Reflect-reflectiontt "DefImplicit") (cons (vector 10 arg-3 0) (cons e-5 '())) ext-0)))))))))) +(define CoreC-45Reflect-u--reflect_Reflect_C-40MaybeC-32C-36aC-41 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (if (null? arg-7) (CoreC-45Reflect-appCon arg-2 arg-3 arg-4 (CoreC-45Reflect-preludetypes "Nothing") (cons (vector 10 arg-3 0) '()) ext-0) (let ((e-2 (unbox arg-7))) (let ((act-24 (((((((arg-1 arg-2) arg-3) arg-4) arg-5) arg-6) e-2) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref act-24 1))) (CoreC-45Reflect-appCon arg-2 arg-3 arg-4 (CoreC-45Reflect-preludetypes "Just") (cons (vector 10 arg-3 0) (cons e-5 '())) ext-0))))))))) +(define CoreC-45Reflect-u--reflect_Reflect_C-40ListC-32C-36aC-41 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (if (null? arg-7) (CoreC-45Reflect-appCon arg-2 arg-3 arg-4 (CoreC-45Reflect-basics "Nil") (cons (vector 10 arg-3 0) '()) ext-0) (let ((e-2 (car arg-7))) (let ((e-3 (cdr arg-7))) (let ((act-24 (((((((arg-1 arg-2) arg-3) arg-4) arg-5) arg-6) e-2) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Reflect-u--reflect_Reflect_C-40ListC-32C-36aC-41 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref act-25 1))) (CoreC-45Reflect-appCon arg-2 arg-3 arg-4 (CoreC-45Reflect-basics "::") (cons (vector 10 arg-3 0) (cons e-5 (cons e-6 '()))) ext-0)))))))))))))) (define CoreC-45Reflect-reflectionttimp (lambda (arg-0) (vector 0 (CoreC-45NameC-45Namespace-reflectionTTImpNS) (vector 1 arg-0)))) (define CoreC-45Reflect-reflectiontt (lambda (arg-0) (vector 0 (CoreC-45NameC-45Namespace-reflectionTTNS) (vector 1 arg-0)))) (define CoreC-45Reflect-preludetypes (lambda (arg-0) (vector 0 (CoreC-45NameC-45Namespace-typesNS) (vector 1 arg-0)))) -(define CoreC-45Reflect-getCon (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (CoreC-45Context-lookupDefExact arg-3 (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) e-0)) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((sc2 e-1)) (case (vector-ref sc2 0) ((5) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) ((CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 (let ((sc3 arg-2)) (let ((e-0 (vector-ref sc3 1))) e-0)) (vector 1 arg-1 (vector 2 e-2 e-3) arg-3)) ext-0)))) ((6) (let ((e-13 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) ((CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 (let ((sc3 arg-2)) (let ((e-0 (vector-ref sc3 1))) e-0)) (vector 1 arg-1 (vector 3 e-13 e-6) arg-3)) ext-0))))(else ((CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 (let ((sc2 arg-2)) (let ((e-0 (vector-ref sc2 1))) e-0)) (vector 1 arg-1 (vector 1 ) arg-3)) ext-0))))))(else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 7 arg-1 arg-3) ext-0))))))))))) +(define CoreC-45Reflect-getCon (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (CoreC-45Context-lookupDefExact arg-3 (let ((e-0 (vector-ref arg-2 0))) e-0) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (if (null? e-5) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 7 arg-1 arg-3) ext-0) (let ((e-1 (unbox e-5))) (case (vector-ref e-1 0) ((5) (let ((e-2 (vector-ref e-1 1))) (let ((e-3 (vector-ref e-1 2))) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 (let ((e-0 (vector-ref arg-2 0))) e-0) (vector 1 arg-1 (vector 2 e-2 e-3) arg-3) ext-0)))) ((6) (let ((e-13 (vector-ref e-1 1))) (let ((e-6 (vector-ref e-1 2))) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 (let ((e-0 (vector-ref arg-2 0))) e-0) (vector 1 arg-1 (vector 3 e-13 e-6) arg-3) ext-0))))(else (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 (let ((e-0 (vector-ref arg-2 0))) e-0) (vector 1 arg-1 (vector 1 ) arg-3) ext-0))))))))))) (define CoreC-45Reflect-cantReify (lambda (arg-2 arg-3 ext-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-2) (PreludeC-45TypesC-45String-C-43C-43 "Can't reify as " arg-3)) ext-0))) (define CoreC-45Reflect-cantReflect (lambda (arg-1 arg-2 ext-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-1 (PreludeC-45TypesC-45String-C-43C-43 "Can't reflect as " arg-2)) ext-0))) (define CoreC-45Reflect-builtin (lambda (arg-0) (vector 0 (CoreC-45NameC-45Namespace-builtinNS) (vector 1 arg-0)))) (define CoreC-45Reflect-basics (lambda (arg-0) (vector 0 (CoreC-45NameC-45Namespace-basicsNS) (vector 1 arg-0)))) -(define CoreC-45Reflect-appCon (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (CoreC-45Reflect-getCon arg-0 arg-1 arg-2 arg-3 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 (let ((sc1 arg-2)) (let ((e-0 (vector-ref sc1 1))) e-0)) (CoreC-45TT-apply arg-1 e-5 arg-4)) ext-0)))))))) -(define TTImpC-45ElabC-45RunElab-case--caseC-32blockC-32inC-32elabScript-2772 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (cond ((equal? sc0 0) (TTImpC-45ElabC-45RunElab-n--13514-1287-u--elabCon arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) arg-1))) (else (lambda (eta-0) (TTImpC-45ElabC-45RunElab-n--13514-1285-u--failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 eta-0))))))) -(define TTImpC-45ElabC-45RunElab-case--elabScriptC-44elabCon-2430 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (if (null? sc1) (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-9 (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name arg-16) " is not a local variable")) eta-0)) (let ((e-4 (car sc1))) (let ((u--binder (CoreC-45Env-getBinder (cons (lambda (u--n) (lambda (u--vars) (lambda (arg-5476) (CoreC-45TT-u--weaken_Weaken_Term arg-5476)))) (lambda (u--vars) (lambda (u--ns) (lambda (arg-5481) (lambda (arg-5483) (CoreC-45TT-u--weakenNs_Weaken_Term arg-5481 arg-5483)))))) arg-0 e-4 arg-7))) (let ((u--bty (CoreC-45TT-binderType u--binder))) (lambda (eta-0) (let ((act-24 (TTImpC-45Unelab-unelabUniqueBinders arg-0 arg-12 arg-7 u--bty eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (TTImpC-45ElabC-45RunElab-n--13514-1286-u--scriptRet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (TTImpC-45Reflect-u--reflect_Reflect_RawImp eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) e-6 eta-0))))))))))))))(else (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-9 (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name arg-16) " is not a local variable")) eta-0))))))) -(define TTImpC-45ElabC-45RunElab-n--13538-2329-u--unelabType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 ext-0) (let ((sc0 arg-15)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-3)) (let ((e-7 (cdr sc1))) (let ((act-24 (TTImpC-45Unelab-unelabUniqueBinders '() arg-12 '() e-7 ext-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (cons e-2 e-5)))))))))))))) -(define TTImpC-45ElabC-45RunElab-n--13514-1286-u--scriptRet (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-14 arg-15 ext-0) (let ((act-24 (let ((act-24 (unbox arg-12))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (((((((arg-14 arg-0) arg-9) e-5) 1) arg-7) arg-15) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) ((CoreC-45Normalise-nfOpts arg-12 arg-0 (CoreC-45Value-withAll) e-5 arg-7 e-6) ext-0))))))))))))) -(define TTImpC-45ElabC-45RunElab-n--13538-1928-u--quotePi (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 ext-0) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((1) (vector 1 (vector 1 ))) ((0) (vector 1 (vector 0 ))) ((2) (vector 1 (vector 2 ))) (else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-9 "Can't add default lambda") ext-0)))))) -(define TTImpC-45ElabC-45RunElab-n--15266-2932-u--mkExpected (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 ext-0) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((act-24 ((CoreC-45Normalise-getTerm e-1) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 e-5)))))))) (else (let ((act-24 (CoreC-45UnifyState-genName arg-11 arg-9 "scriptTy" ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (TTImpC-45ElabC-45Check-metaVar arg-0 arg-11 arg-9 arg-3 (AlgebraC-45Semiring-erased (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))) arg-4 e-5 (vector 11 arg-3) ext-0))))))))))) -(define TTImpC-45ElabC-45RunElab-n--13514-1285-u--failWith (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-14 ext-0) (let ((act-24 (let ((act-24 (unbox arg-12))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (CoreC-45Context-clearDefs e-5 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (CoreC-45Normalise-u--quote_Quote_NF arg-12 arg-0 e-6 arg-7 (vector 2 arg-5 arg-4 arg-3 arg-2 arg-1) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 46 arg-0 arg-9 arg-7 e-7) ext-0)))))))))))))))))) -(define TTImpC-45ElabC-45RunElab-n--13514-1287-u--elabCon (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-14)) (cond ((equal? sc0 "Pure") (let ((sc1 arg-15)) (if (null? sc1) (lambda (eta-0) (TTImpC-45ElabC-45RunElab-n--13514-1285-u--failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 eta-0)) (let ((e-2 (cdr sc1))) (let ((sc2 e-2)) (if (null? sc2) (lambda (eta-0) (TTImpC-45ElabC-45RunElab-n--13514-1285-u--failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 eta-0)) (let ((e-4 (car sc2))) (let ((e-5 (cdr sc2))) (lambda (clam-0) (let ((sc3 e-5)) (if (null? sc3) (let ((act-24 (CoreC-45Context-clearDefs arg-13 clam-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc4 1))) ((CoreC-45Normalise-evalClosure arg-12 arg-0 e-6 e-4) clam-0)))))) (TTImpC-45ElabC-45RunElab-n--13514-1285-u--failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 clam-0)))))))))))) ((equal? sc0 "Bind") (let ((sc1 arg-15)) (if (null? sc1) (lambda (eta-0) (TTImpC-45ElabC-45RunElab-n--13514-1285-u--failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 eta-0)) (let ((e-9 (cdr sc1))) (let ((sc2 e-9)) (if (null? sc2) (lambda (eta-0) (TTImpC-45ElabC-45RunElab-n--13514-1285-u--failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 eta-0)) (let ((e-12 (cdr sc2))) (let ((sc3 e-12)) (if (null? sc3) (lambda (eta-0) (TTImpC-45ElabC-45RunElab-n--13514-1285-u--failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 eta-0)) (let ((e-14 (car sc3))) (let ((e-15 (cdr sc3))) (let ((sc4 e-15)) (if (null? sc4) (lambda (eta-0) (TTImpC-45ElabC-45RunElab-n--13514-1285-u--failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 eta-0)) (let ((e-17 (car sc4))) (let ((e-18 (cdr sc4))) (lambda (clam-1) (let ((sc5 e-18)) (if (null? sc5) (let ((act-24 (let ((act-24 ((CoreC-45Normalise-evalClosure arg-12 arg-0 arg-13 e-14) clam-1))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (TTImpC-45ElabC-45RunElab-elabScript arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 e-5 arg-6 clam-1)))))))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 ((CoreC-45Normalise-evalClosure arg-12 arg-0 arg-13 e-17) clam-1))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc7 1))) (let ((sc8 e-6)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 3))) (let ((e-4 (vector-ref sc8 4))) (let ((sc9 e-3)) (case (vector-ref sc9 0) ((0) (let ((act-26 (CoreC-45Normalise-u--quote_Quote_NF arg-12 arg-0 arg-13 arg-7 e-5 clam-1))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-19 (vector-ref sc10 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref sc10 1))) (let ((act-27 (((e-4 arg-13) (CoreC-45Normalise-toClosure (CoreC-45Value-withAll) arg-7 e-19)) clam-1))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-20 (vector-ref sc11 1))) (vector 0 e-20))) (else (let ((e-20 (vector-ref sc11 1))) (TTImpC-45ElabC-45RunElab-elabScript arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 e-20 arg-6 clam-1))))))))))))(else (TTImpC-45ElabC-45RunElab-n--13514-1285-u--failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 clam-1)))))))(else (TTImpC-45ElabC-45RunElab-n--13514-1285-u--failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 clam-1)))))))))))))) (TTImpC-45ElabC-45RunElab-n--13514-1285-u--failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 clam-1))))))))))))))))))) ((equal? sc0 "Fail") (let ((sc1 arg-15)) (if (null? sc1) (lambda (eta-0) (TTImpC-45ElabC-45RunElab-n--13514-1285-u--failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 eta-0)) (let ((e-22 (cdr sc1))) (let ((sc2 e-22)) (if (null? sc2) (lambda (eta-0) (TTImpC-45ElabC-45RunElab-n--13514-1285-u--failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 eta-0)) (let ((e-24 (car sc2))) (let ((e-25 (cdr sc2))) (lambda (clam-2) (let ((sc3 e-25)) (if (null? sc3) (let ((act-24 ((CoreC-45Normalise-evalClosure arg-12 arg-0 arg-13 e-24) clam-2))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 ((CoreC-45Reflect-u--reify_Reify_String arg-12 arg-0 arg-13 e-5) clam-2))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-9 (PreludeC-45TypesC-45String-C-43C-43 "Error during reflection: " e-6)) clam-2))))))))))) (TTImpC-45ElabC-45RunElab-n--13514-1285-u--failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 clam-2)))))))))))) ((equal? sc0 "LogMsg") (let ((sc1 arg-15)) (if (null? sc1) (lambda (eta-0) (TTImpC-45ElabC-45RunElab-n--13514-1285-u--failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 eta-0)) (let ((e-28 (car sc1))) (let ((e-29 (cdr sc1))) (let ((sc2 e-29)) (if (null? sc2) (lambda (eta-0) (TTImpC-45ElabC-45RunElab-n--13514-1285-u--failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 eta-0)) (let ((e-31 (car sc2))) (let ((e-32 (cdr sc2))) (let ((sc3 e-32)) (if (null? sc3) (lambda (eta-0) (TTImpC-45ElabC-45RunElab-n--13514-1285-u--failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 eta-0)) (let ((e-34 (car sc3))) (let ((e-35 (cdr sc3))) (lambda (clam-3) (let ((sc4 e-35)) (if (null? sc4) (let ((act-24 ((CoreC-45Normalise-evalClosure arg-12 arg-0 arg-13 e-28) clam-3))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 ((CoreC-45Normalise-evalClosure arg-12 arg-0 arg-13 e-31) clam-3))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-26 (let ((act-26 ((CoreC-45Reflect-u--reify_Reify_String arg-12 arg-0 arg-13 e-5) clam-3))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-27 (CoreC-45Reflect-u--reify_Reify_Nat arg-12 arg-0 arg-13 e-6 clam-3))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc8 1))) (CoreC-45ContextC-45Log-logC arg-12 e-7 e-8 (lambda (eta-0) (let ((act-28 ((CoreC-45Normalise-evalClosure arg-12 arg-0 arg-13 e-34) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc9 1))) ((CoreC-45Reflect-u--reify_Reify_String arg-12 arg-0 arg-13 e-9) eta-0))))))) clam-3))))))))))))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (TTImpC-45ElabC-45RunElab-n--13514-1286-u--scriptRet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (CoreC-45Reflect-u--reflect_Reflect_C-40C-124UnitC-44MkUnitC-124C-41 eta-0 eta-1 eta-2 eta-3 eta-4 eta-5 eta-6)))))))) (vector 0 ) clam-3))))))))))))))) (TTImpC-45ElabC-45RunElab-n--13514-1285-u--failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 clam-3))))))))))))))))) ((equal? sc0 "LogTerm") (let ((sc1 arg-15)) (if (null? sc1) (lambda (eta-0) (TTImpC-45ElabC-45RunElab-n--13514-1285-u--failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 eta-0)) (let ((e-38 (car sc1))) (let ((e-39 (cdr sc1))) (let ((sc2 e-39)) (if (null? sc2) (lambda (eta-0) (TTImpC-45ElabC-45RunElab-n--13514-1285-u--failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 eta-0)) (let ((e-41 (car sc2))) (let ((e-42 (cdr sc2))) (let ((sc3 e-42)) (if (null? sc3) (lambda (eta-0) (TTImpC-45ElabC-45RunElab-n--13514-1285-u--failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 eta-0)) (let ((e-44 (car sc3))) (let ((e-45 (cdr sc3))) (let ((sc4 e-45)) (if (null? sc4) (lambda (eta-0) (TTImpC-45ElabC-45RunElab-n--13514-1285-u--failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 eta-0)) (let ((e-47 (car sc4))) (let ((e-48 (cdr sc4))) (lambda (clam-4) (let ((sc5 e-48)) (if (null? sc5) (let ((act-24 ((CoreC-45Normalise-evalClosure arg-12 arg-0 arg-13 e-38) clam-4))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 ((CoreC-45Normalise-evalClosure arg-12 arg-0 arg-13 e-41) clam-4))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc7 1))) (let ((act-26 (let ((act-26 ((CoreC-45Reflect-u--reify_Reify_String arg-12 arg-0 arg-13 e-5) clam-4))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-27 (CoreC-45Reflect-u--reify_Reify_Nat arg-12 arg-0 arg-13 e-6 clam-4))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc9 1))) (CoreC-45ContextC-45Log-logC arg-12 e-7 e-8 (lambda (eta-0) (let ((act-28 ((CoreC-45Normalise-evalClosure arg-12 arg-0 arg-13 e-44) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc10 1))) (let ((act-29 ((CoreC-45Normalise-evalClosure arg-12 arg-0 arg-13 e-47) eta-0))) (let ((sc11 act-29)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc11 1))) (let ((act-30 ((CoreC-45Reflect-u--reify_Reify_String arg-12 arg-0 arg-13 e-9) eta-0))) (let ((sc12 act-30)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc12 1))) (let ((act-31 (TTImpC-45Reflect-u--reify_Reify_RawImp arg-12 arg-0 arg-13 e-10 eta-0))) (let ((sc13 act-31)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc13 1))) (vector 1 (PreludeC-45TypesC-45String-C-43C-43 e-11 (PreludeC-45TypesC-45String-C-43C-43 ": " (TTImpC-45TTImp-u--show_Show_RawImp e-12))))))))))))))))))))))))) clam-4))))))))))))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (TTImpC-45ElabC-45RunElab-n--13514-1286-u--scriptRet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (CoreC-45Reflect-u--reflect_Reflect_C-40C-124UnitC-44MkUnitC-124C-41 eta-0 eta-1 eta-2 eta-3 eta-4 eta-5 eta-6)))))))) (vector 0 ) clam-4))))))))))))))) (TTImpC-45ElabC-45RunElab-n--13514-1285-u--failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 clam-4))))))))))))))))))))) ((equal? sc0 "Check") (let ((sc1 arg-15)) (if (null? sc1) (lambda (eta-0) (TTImpC-45ElabC-45RunElab-n--13514-1285-u--failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 eta-0)) (let ((e-51 (car sc1))) (let ((e-52 (cdr sc1))) (let ((sc2 e-52)) (if (null? sc2) (lambda (eta-0) (TTImpC-45ElabC-45RunElab-n--13514-1285-u--failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 eta-0)) (let ((e-54 (car sc2))) (let ((e-55 (cdr sc2))) (lambda (clam-5) (let ((sc3 e-55)) (if (null? sc3) (let ((act-24 ((CoreC-45Normalise-evalClosure arg-12 arg-0 arg-13 e-51) clam-5))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 ((CoreC-45Normalise-evalClosure arg-12 arg-0 arg-13 e-54) clam-5))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (CoreC-45Context-resolveName arg-12 (vector 1 "[elaborator script]") clam-5))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-27 (CoreC-45Core-newRef (vector "TTImp.Elab.Check.EST" ) (TTImpC-45ElabC-45Check-initEState arg-0 e-7 arg-7) clam-5))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc7 1))) (let ((act-28 (let ((act-28 (TTImpC-45Reflect-u--reify_Reify_RawImp arg-12 arg-0 arg-13 e-6 clam-5))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc8 1))) (TTImpC-45ElabC-45Delayed-runDelays arg-0 arg-12 arg-11 arg-10 e-8 0 (TTImpC-45ElabC-45Check-check arg-0 arg-12 arg-11 arg-10 e-8 (AlgebraC-45ZeroOneOmega-u--top_Top_ZeroOneOmega) (TTImpC-45ElabC-45Check-initElabInfo (vector 2 )) arg-8 arg-7 e-9 (vector 1 (CoreC-45Normalise-glueBack arg-12 arg-0 arg-13 arg-7 e-5))) clam-5)))))))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc8 1))) (let ((sc9 e-9)) (let ((e-2 (car sc9))) (let ((act-29 (CoreC-45Context-clearDefs arg-13 clam-5))) (let ((sc10 act-29)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc10 1))) ((CoreC-45Normalise-nf arg-12 arg-0 e-10 arg-7 e-2) clam-5))))))))))))))))))))))))))))))))) (TTImpC-45ElabC-45RunElab-n--13514-1285-u--failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 clam-5))))))))))))) ((equal? sc0 "Quote") (let ((sc1 arg-15)) (if (null? sc1) (lambda (eta-0) (TTImpC-45ElabC-45RunElab-n--13514-1285-u--failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 eta-0)) (let ((e-59 (cdr sc1))) (let ((sc2 e-59)) (if (null? sc2) (lambda (eta-0) (TTImpC-45ElabC-45RunElab-n--13514-1285-u--failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 eta-0)) (let ((e-61 (car sc2))) (let ((e-62 (cdr sc2))) (lambda (clam-6) (let ((sc3 e-62)) (if (null? sc3) (let ((act-24 ((CoreC-45Normalise-evalClosure arg-12 arg-0 arg-13 e-61) clam-6))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (let ((act-25 (unbox arg-12))) (vector 1 act-25)))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (CoreC-45Context-clearDefs e-6 clam-6))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-27 (CoreC-45Normalise-u--quote_Quote_NF arg-12 arg-0 e-7 arg-7 e-5 clam-6))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc7 1))) (let ((act-28 (TTImpC-45Unelab-unelabUniqueBinders arg-0 arg-12 arg-7 e-8 clam-6))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc8 1))) (TTImpC-45ElabC-45RunElab-n--13514-1286-u--scriptRet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (TTImpC-45Reflect-u--reflect_Reflect_RawImp eta-0 eta-1 eta-2 eta-3 eta-4 eta-5))))))) e-9 clam-6)))))))))))))))))))))))))) (TTImpC-45ElabC-45RunElab-n--13514-1285-u--failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 clam-6)))))))))))) ((equal? sc0 "Lambda") (let ((sc1 arg-15)) (if (null? sc1) (lambda (eta-0) (TTImpC-45ElabC-45RunElab-n--13514-1285-u--failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 eta-0)) (let ((e-65 (car sc1))) (let ((e-66 (cdr sc1))) (let ((sc2 e-66)) (if (null? sc2) (lambda (eta-0) (TTImpC-45ElabC-45RunElab-n--13514-1285-u--failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 eta-0)) (let ((e-68 (car sc2))) (let ((e-69 (cdr sc2))) (let ((sc3 e-69)) (if (null? sc3) (lambda (eta-0) (TTImpC-45ElabC-45RunElab-n--13514-1285-u--failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 eta-0)) (let ((e-71 (car sc3))) (let ((e-72 (cdr sc3))) (lambda (clam-7) (let ((sc4 e-72)) (if (null? sc4) (let ((act-24 (CoreC-45Context-clearDefs arg-13 clam-7))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 ((CoreC-45Normalise-evalClosure arg-12 arg-0 arg-13 e-71) clam-7))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc6 1))) (let ((sc7 e-6)) (case (vector-ref sc7 0) ((0) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((e-3 (vector-ref sc7 3))) (let ((e-4 (vector-ref sc7 4))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (let ((e-7 (vector-ref sc8 2))) (let ((e-8 (vector-ref sc8 3))) (let ((e-9 (vector-ref sc8 4))) (let ((act-26 (CoreC-45UnifyState-genVarName arg-12 arg-10 "x" clam-7))) (let ((sc9 act-26)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (let ((act-27 (((e-4 arg-13) (CoreC-45Normalise-toClosure (CoreC-45Value-withAll) arg-7 (vector 1 e-1 (vector 0 ) e-11))) clam-7))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-12 (vector-ref sc10 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc10 1))) (let ((act-28 (CoreC-45Normalise-u--quote_Quote_NF arg-12 arg-0 e-5 arg-7 e-12 clam-7))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-13 (vector-ref sc11 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc11 1))) (let ((u--lamsc (CoreC-45TT-refToLocal e-11 e-2 e-13))) (let ((act-29 (TTImpC-45ElabC-45RunElab-n--13538-1928-u--quotePi arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-68 e-65 e-71 arg-13 e-8 clam-7))) (let ((sc12 act-29)) (case (vector-ref sc12 0) ((0) (let ((e-14 (vector-ref sc12 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc12 1))) (let ((act-30 (CoreC-45Normalise-u--quote_Quote_NF arg-12 arg-0 e-5 arg-7 e-9 clam-7))) (let ((sc13 act-30)) (case (vector-ref sc13 0) ((0) (let ((e-15 (vector-ref sc13 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc13 1))) (let ((u--envC-39 (cons (vector 0 e-10 e-7 e-14 e-15) arg-7))) (let ((act-31 (let ((act-31 ((CoreC-45Normalise-nf arg-12 (cons e-2 arg-0) arg-13 u--envC-39 u--lamsc) clam-7))) (let ((sc14 act-31)) (case (vector-ref sc14 0) ((0) (let ((e-16 (vector-ref sc14 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc14 1))) (TTImpC-45ElabC-45RunElab-elabScript (cons e-2 arg-0) arg-12 arg-11 arg-10 arg-9 (TTImpC-45TTImp-u--weaken_Weaken_NestedNames arg-8) u--envC-39 e-16 (vector 0 ) clam-7)))))))) (let ((sc14 act-31)) (case (vector-ref sc14 0) ((0) (let ((e-16 (vector-ref sc14 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc14 1))) (let ((act-32 (CoreC-45Normalise-u--quote_Quote_NF arg-12 (cons e-2 arg-0) e-5 u--envC-39 e-16 clam-7))) (let ((sc15 act-32)) (case (vector-ref sc15 0) ((0) (let ((e-17 (vector-ref sc15 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc15 1))) ((CoreC-45Normalise-nf arg-12 arg-0 e-5 arg-7 (vector 3 e-1 e-2 (vector 0 e-10 e-7 e-14 e-15) e-17)) clam-7)))))))))))))))))))))))))))))))))))))))))))(else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-9 "Not a lambda") clam-7)))))))))(else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-9 "Not a lambda") clam-7)))))))))))))) (TTImpC-45ElabC-45RunElab-n--13514-1285-u--failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 clam-7))))))))))))))))) ((equal? sc0 "Goal") (lambda (clam-8) (let ((sc1 arg-15)) (if (null? sc1) (let ((sc2 arg-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((act-24 ((CoreC-45Normalise-getTerm e-1) clam-8))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (TTImpC-45Unelab-unelabUniqueBinders arg-0 arg-12 arg-7 e-5 clam-8))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (TTImpC-45ElabC-45RunElab-n--13514-1286-u--scriptRet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (CoreC-45Reflect-u--reflect_Reflect_C-40MaybeC-32C-36aC-41 (lambda (eta-7) (lambda (eta-8) (lambda (eta-9) (lambda (eta-10) (lambda (eta-11) (lambda (eta-12) (TTImpC-45Reflect-u--reflect_Reflect_RawImp eta-7 eta-8 eta-9 eta-10 eta-11 eta-12))))))) eta-0 eta-1 eta-2 eta-3 eta-4 eta-5 eta-6)))))))) (vector 1 e-6) clam-8))))))))))))) (else (let ((act-24 (CoreC-45Reflect-u--reflect_Reflect_C-40MaybeC-32C-36aC-41 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (TTImpC-45Reflect-u--reflect_Reflect_RawImp eta-0 eta-1 eta-2 eta-3 eta-4 eta-5))))))) arg-0 arg-9 arg-13 1 arg-7 (vector 0 ) clam-8))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) ((CoreC-45Normalise-nfOpts arg-12 arg-0 (CoreC-45Value-withAll) arg-13 arg-7 e-5) clam-8))))))))) (TTImpC-45ElabC-45RunElab-n--13514-1285-u--failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 clam-8))))) ((equal? sc0 "LocalVars") (lambda (clam-9) (let ((sc1 arg-15)) (if (null? sc1) (TTImpC-45ElabC-45RunElab-n--13514-1286-u--scriptRet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (CoreC-45Reflect-u--reflect_Reflect_C-40ListC-32C-36aC-41 (lambda (eta-7) (lambda (eta-8) (lambda (eta-9) (lambda (eta-10) (lambda (eta-11) (lambda (eta-12) (lambda (eta-13) (CoreC-45Reflect-u--reflect_Reflect_Name eta-7 eta-8 eta-9 eta-10 eta-11 eta-12 eta-13)))))))) eta-0 eta-1 eta-2 eta-3 eta-4 eta-5 eta-6)))))))) arg-0 clam-9) (TTImpC-45ElabC-45RunElab-n--13514-1285-u--failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 clam-9))))) ((equal? sc0 "GenSym") (let ((sc1 arg-15)) (if (null? sc1) (lambda (eta-0) (TTImpC-45ElabC-45RunElab-n--13514-1285-u--failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 eta-0)) (let ((e-77 (car sc1))) (let ((e-78 (cdr sc1))) (lambda (clam-10) (let ((sc2 e-78)) (if (null? sc2) (let ((act-24 ((CoreC-45Normalise-evalClosure arg-12 arg-0 arg-13 e-77) clam-10))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (let ((act-25 ((CoreC-45Reflect-u--reify_Reify_String arg-12 arg-0 arg-13 e-5) clam-10))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (CoreC-45UnifyState-genVarName arg-12 arg-10 e-6 clam-10)))))))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (TTImpC-45ElabC-45RunElab-n--13514-1286-u--scriptRet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (CoreC-45Reflect-u--reflect_Reflect_Name eta-0 eta-1 eta-2 eta-3 eta-4 eta-5 eta-6)))))))) e-6 clam-10))))))))))) (TTImpC-45ElabC-45RunElab-n--13514-1285-u--failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 clam-10))))))))) ((equal? sc0 "InCurrentNS") (let ((sc1 arg-15)) (if (null? sc1) (lambda (eta-0) (TTImpC-45ElabC-45RunElab-n--13514-1285-u--failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 eta-0)) (let ((e-81 (car sc1))) (let ((e-82 (cdr sc1))) (lambda (clam-11) (let ((sc2 e-82)) (if (null? sc2) (let ((act-24 ((CoreC-45Normalise-evalClosure arg-12 arg-0 arg-13 e-81) clam-11))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (let ((act-25 (CoreC-45Reflect-u--reify_Reify_Name arg-12 arg-0 arg-13 e-5 clam-11))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (CoreC-45Context-inCurrentNS arg-12 e-6 clam-11)))))))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (TTImpC-45ElabC-45RunElab-n--13514-1286-u--scriptRet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (CoreC-45Reflect-u--reflect_Reflect_Name eta-0 eta-1 eta-2 eta-3 eta-4 eta-5 eta-6)))))))) e-6 clam-11))))))))))) (TTImpC-45ElabC-45RunElab-n--13514-1285-u--failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 clam-11))))))))) ((equal? sc0 "GetType") (let ((sc1 arg-15)) (if (null? sc1) (lambda (eta-0) (TTImpC-45ElabC-45RunElab-n--13514-1285-u--failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 eta-0)) (let ((e-85 (car sc1))) (let ((e-86 (cdr sc1))) (lambda (clam-12) (let ((sc2 e-86)) (if (null? sc2) (let ((act-24 ((CoreC-45Normalise-evalClosure arg-12 arg-0 arg-13 e-85) clam-12))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (let ((act-25 (CoreC-45Reflect-u--reify_Reify_Name arg-12 arg-0 arg-13 e-5 clam-12))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (CoreC-45Context-lookupTyName e-6 (let ((sc5 arg-13)) (let ((e-0 (vector-ref sc5 1))) e-0)) clam-12)))))))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (TTImpC-45ElabC-45RunElab-n--13538-2329-u--unelabType arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-85 arg-13 eta-0 eta-1))) e-6 '() clam-12))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (TTImpC-45ElabC-45RunElab-n--13514-1286-u--scriptRet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (CoreC-45Reflect-u--reflect_Reflect_C-40ListC-32C-36aC-41 (lambda (eta-7) (lambda (eta-8) (lambda (eta-9) (lambda (eta-10) (lambda (eta-11) (lambda (eta-12) (lambda (eta-13) (CoreC-45Reflect-u--reflect_Reflect_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (eta-14) (lambda (eta-15) (lambda (eta-16) (lambda (eta-17) (lambda (eta-18) (lambda (eta-19) (lambda (eta-20) (CoreC-45Reflect-u--reflect_Reflect_Name eta-14 eta-15 eta-16 eta-17 eta-18 eta-19 eta-20)))))))) (lambda (eta-14) (lambda (eta-15) (lambda (eta-16) (lambda (eta-17) (lambda (eta-18) (lambda (eta-19) (TTImpC-45Reflect-u--reflect_Reflect_RawImp eta-14 eta-15 eta-16 eta-17 eta-18 eta-19)))))))) eta-7 eta-8 eta-9 eta-10 eta-11 eta-12 eta-13)))))))) eta-0 eta-1 eta-2 eta-3 eta-4 eta-5 eta-6)))))))) e-7 clam-12)))))))))))))))) (TTImpC-45ElabC-45RunElab-n--13514-1285-u--failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 clam-12))))))))) ((equal? sc0 "GetLocalType") (let ((sc1 arg-15)) (if (null? sc1) (lambda (eta-0) (TTImpC-45ElabC-45RunElab-n--13514-1285-u--failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 eta-0)) (let ((e-89 (car sc1))) (let ((e-90 (cdr sc1))) (lambda (clam-13) (let ((sc2 e-90)) (if (null? sc2) (let ((act-24 ((CoreC-45Normalise-evalClosure arg-12 arg-0 arg-13 e-89) clam-13))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (CoreC-45Reflect-u--reify_Reify_Name arg-12 arg-0 arg-13 e-5 clam-13))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) ((TTImpC-45ElabC-45RunElab-case--elabScriptC-44elabCon-2430 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-89 arg-13 e-5 e-6 (CoreC-45Env-defined arg-0 e-6 arg-7)) clam-13))))))))))) (TTImpC-45ElabC-45RunElab-n--13514-1285-u--failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 clam-13))))))))) ((equal? sc0 "GetCons") (let ((sc1 arg-15)) (if (null? sc1) (lambda (eta-0) (TTImpC-45ElabC-45RunElab-n--13514-1285-u--failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 eta-0)) (let ((e-93 (car sc1))) (let ((e-94 (cdr sc1))) (lambda (clam-14) (let ((sc2 e-94)) (if (null? sc2) (let ((act-24 ((CoreC-45Normalise-evalClosure arg-12 arg-0 arg-13 e-93) clam-14))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (CoreC-45Reflect-u--reify_Reify_Name arg-12 arg-0 arg-13 e-5 clam-14))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (CoreC-45Context-lookupDefExact e-6 (let ((sc5 arg-13)) (let ((e-0 (vector-ref sc5 1))) e-0)) clam-14))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (let ((sc6 e-7)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((sc7 e-1)) (case (vector-ref sc7 0) ((6) (let ((e-8 (vector-ref sc7 7))) (TTImpC-45ElabC-45RunElab-n--13514-1286-u--scriptRet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (CoreC-45Reflect-u--reflect_Reflect_C-40ListC-32C-36aC-41 (lambda (eta-7) (lambda (eta-8) (lambda (eta-9) (lambda (eta-10) (lambda (eta-11) (lambda (eta-12) (lambda (eta-13) (CoreC-45Reflect-u--reflect_Reflect_Name eta-7 eta-8 eta-9 eta-10 eta-11 eta-12 eta-13)))))))) eta-0 eta-1 eta-2 eta-3 eta-4 eta-5 eta-6)))))))) e-8 clam-14)))(else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-9 (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-6) " is not a type")) clam-14))))))(else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-9 (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-6) " is not a type")) clam-14))))))))))))))))))) (TTImpC-45ElabC-45RunElab-n--13514-1285-u--failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 clam-14))))))))) ((equal? sc0 "Declare") (let ((sc1 arg-15)) (if (null? sc1) (lambda (eta-0) (TTImpC-45ElabC-45RunElab-n--13514-1285-u--failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 eta-0)) (let ((e-97 (car sc1))) (let ((e-98 (cdr sc1))) (lambda (clam-15) (let ((sc2 e-98)) (if (null? sc2) (let ((act-24 ((CoreC-45Normalise-evalClosure arg-12 arg-0 arg-13 e-97) clam-15))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (CoreC-45Reflect-u--reify_Reify_C-40ListC-32C-36aC-41 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (TTImpC-45Reflect-u--reify_Reify_ImpDecl eta-0 eta-1 eta-2 eta-3 eta-4)))))) arg-12 arg-0 arg-13 e-5 clam-15))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (CoreC-45Core-traverse_ (lambda (eta-0) (TTImpC-45ElabC-45Check-processDecl '() arg-12 arg-11 arg-10 '() '() '() eta-0)) e-6 clam-15))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (TTImpC-45ElabC-45RunElab-n--13514-1286-u--scriptRet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (CoreC-45Reflect-u--reflect_Reflect_C-40C-124UnitC-44MkUnitC-124C-41 eta-0 eta-1 eta-2 eta-3 eta-4 eta-5 eta-6)))))))) (vector 0 ) clam-15))))))))))))))) (TTImpC-45ElabC-45RunElab-n--13514-1285-u--failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 clam-15)))))))))(else (lambda (eta-0) (TTImpC-45ElabC-45RunElab-n--13514-1285-u--failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 eta-0))))))) -(define TTImpC-45ElabC-45RunElab-elabScript (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 ext-0) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-1 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) e-2 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((0) (let ((e-0 (vector-ref sc3 1))) (let ((e-8 (vector-ref sc3 2))) (let ((sc4 e-8)) (case (vector-ref sc4 0) ((1) (let ((e-9 (vector-ref sc4 1))) (let ((u--fnm (vector 0 e-0 (vector 1 e-9)))) ((TTImpC-45ElabC-45RunElab-case--caseC-32blockC-32inC-32elabScript-2772 arg-0 e-5 e-4 e-3 e-2 e-1 arg-8 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-6 e-9 e-0 u--fnm (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace e-0 (CoreC-45NameC-45Namespace-reflectionNS))) ext-0))))(else (TTImpC-45ElabC-45RunElab-n--13514-1285-u--failWith arg-0 e-5 e-4 e-3 e-2 e-1 arg-8 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-6 ext-0)))))))(else (TTImpC-45ElabC-45RunElab-n--13514-1285-u--failWith arg-0 e-5 e-4 e-3 e-2 e-1 arg-8 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-6 ext-0))))))))))))))))))))(else (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (CoreC-45Context-clearDefs e-5 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (CoreC-45Normalise-u--quote_Quote_NF arg-1 arg-0 e-6 arg-6 arg-7 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 46 arg-0 arg-4 arg-6 e-7) ext-0))))))))))))))))))))) -(define TTImpC-45ElabC-45RunElab-checkRunElab (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 ext-0) (let ((act-24 (TTImpC-45ElabC-45RunElab-n--15266-2932-u--mkExpected arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-11 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (let ((sc2 (CoreC-45Context-isExtension (vector 0 ) e-6))) (cond ((equal? sc2 0) (vector 1 (vector 0 ))) (else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-9 "%language ElabReflection not enabled") ext-0)))))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((u--n (vector 0 (CoreC-45NameC-45Namespace-reflectionNS) (vector 1 "Elab")))) (let ((act-27 (CoreC-45Reflect-appCon arg-0 arg-9 e-6 u--n (cons e-5 '()) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (TTImpC-45ElabC-45Delayed-runDelays arg-0 arg-1 arg-2 arg-3 arg-4 0 (TTImpC-45ElabC-45Check-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 (vector 1 (CoreC-45Normalise-gnf arg-0 arg-8 e-8))) ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((sc5 e-9)) (let ((e-2 (car sc5))) (let ((act-29 (let ((act-29 (unbox arg-1))) (vector 1 act-29)))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-30 (let ((act-30 ((CoreC-45Normalise-nfOpts arg-1 arg-0 (CoreC-45Value-withAll) e-10 arg-8 e-2) ext-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc7 1))) (TTImpC-45ElabC-45RunElab-elabScript arg-0 arg-1 arg-2 arg-3 arg-9 arg-7 arg-8 e-11 (vector 1 (CoreC-45Normalise-gnf arg-0 arg-8 e-5)) ext-0)))))))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-31 (let ((act-31 (unbox arg-1))) (vector 1 act-31)))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-32 (CoreC-45Context-clearDefs e-12 ext-0))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-33 (CoreC-45Normalise-u--quote_Quote_NF arg-1 arg-0 e-13 arg-8 e-11 ext-0))) (let ((sc10 act-33)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-14 (vector-ref sc10 1))) (vector 1 (cons e-14 (CoreC-45Normalise-gnf arg-0 arg-8 e-5))))))))))))))))))))))))))))))))))))))))))))))))))))))))) -(define TTImpC-45ElabC-45Delayed-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32retryDelayedC-39-2626 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (cond ((equal? sc0 0) (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error arg-14 eta-0))) (else (TTImpC-45ElabC-45Delayed-retryDelayedC-39 arg-0 arg-11 arg-10 arg-9 arg-8 arg-15 (cons arg-5 arg-7) arg-6)))))) -(define TTImpC-45ElabC-45Delayed-case--contra-2023 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 ext-0) (let ((sc0 arg-13)) (cond ((equal? sc0 0) (vector 1 0)) (else (CoreC-45Core-anyM (lambda (eta-0) (lambda (eta-1) (TTImpC-45ElabC-45Delayed-mismatch arg-12 arg-0 arg-11 eta-0 eta-1))) (DataC-45List-u--zipWith_Zippable_List (lambda (eta-0) (lambda (eta-1) (PreludeC-45Basics-curry (lambda (eta-2) (PreludeC-45Interfaces-mapHom (vector 0 (lambda (u--d) (lambda (u--b) (lambda (u--c) (lambda (u--a) (lambda (arg-353) (lambda (arg-355) (lambda (arg-357) (let ((sc1 arg-357)) (let ((e-2 (car sc1))) (let ((e-3 (cdr sc1))) (cons (arg-353 e-2) (arg-355 e-3)))))))))))) (lambda (u--b) (lambda (u--c) (lambda (u--a) (lambda (arg-362) (lambda (arg-364) (let ((sc1 arg-364)) (let ((e-2 (car sc1))) (let ((e-3 (cdr sc1))) (cons (arg-362 e-2) e-3))))))))) (lambda (u--a) (lambda (u--d) (lambda (u--b) (lambda (arg-365) (lambda (arg-367) (let ((sc1 arg-367)) (let ((e-2 (car sc1))) (let ((e-3 (cdr sc1))) (cons e-2 (arg-365 e-3))))))))))) (lambda (eta-3) (Builtin-snd eta-3)) eta-2)) eta-0 eta-1))) arg-7 arg-9) ext-0)))))) -(define TTImpC-45ElabC-45Delayed-case--contra-1917 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 ext-0) (let ((sc0 arg-13)) (cond ((equal? sc0 0) (vector 1 0)) (else (CoreC-45Core-anyM (lambda (eta-0) (lambda (eta-1) (TTImpC-45ElabC-45Delayed-mismatch arg-12 arg-0 arg-11 eta-0 eta-1))) (DataC-45List-u--zipWith_Zippable_List (lambda (eta-0) (lambda (eta-1) (PreludeC-45Basics-curry (lambda (eta-2) (PreludeC-45Interfaces-mapHom (vector 0 (lambda (u--d) (lambda (u--b) (lambda (u--c) (lambda (u--a) (lambda (arg-353) (lambda (arg-355) (lambda (arg-357) (let ((sc1 arg-357)) (let ((e-2 (car sc1))) (let ((e-3 (cdr sc1))) (cons (arg-353 e-2) (arg-355 e-3)))))))))))) (lambda (u--b) (lambda (u--c) (lambda (u--a) (lambda (arg-362) (lambda (arg-364) (let ((sc1 arg-364)) (let ((e-2 (car sc1))) (let ((e-3 (cdr sc1))) (cons (arg-362 e-2) e-3))))))))) (lambda (u--a) (lambda (u--d) (lambda (u--b) (lambda (arg-365) (lambda (arg-367) (let ((sc1 arg-367)) (let ((e-2 (car sc1))) (let ((e-3 (cdr sc1))) (cons e-2 (arg-365 e-3))))))))))) (lambda (eta-3) (Builtin-snd eta-3)) eta-2)) eta-0 eta-1))) arg-3 arg-7) ext-0)))))) -(define TTImpC-45ElabC-45Delayed-case--mismatchNF-1715 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 ext-0) (let ((sc0 arg-13)) (cond ((equal? sc0 0) (vector 1 0)) (else (CoreC-45Core-anyM (lambda (eta-0) (lambda (eta-1) (TTImpC-45ElabC-45Delayed-mismatch arg-12 arg-0 arg-11 eta-0 eta-1))) (DataC-45List-u--zipWith_Zippable_List (lambda (eta-0) (lambda (eta-1) (PreludeC-45Basics-curry (lambda (eta-2) (PreludeC-45Interfaces-mapHom (vector 0 (lambda (u--d) (lambda (u--b) (lambda (u--c) (lambda (u--a) (lambda (arg-353) (lambda (arg-355) (lambda (arg-357) (let ((sc1 arg-357)) (let ((e-2 (car sc1))) (let ((e-3 (cdr sc1))) (cons (arg-353 e-2) (arg-355 e-3)))))))))))) (lambda (u--b) (lambda (u--c) (lambda (u--a) (lambda (arg-362) (lambda (arg-364) (let ((sc1 arg-364)) (let ((e-2 (car sc1))) (let ((e-3 (cdr sc1))) (cons (arg-362 e-2) e-3))))))))) (lambda (u--a) (lambda (u--d) (lambda (u--b) (lambda (arg-365) (lambda (arg-367) (let ((sc1 arg-367)) (let ((e-2 (car sc1))) (let ((e-3 (cdr sc1))) (cons e-2 (arg-365 e-3))))))))))) (lambda (eta-3) (Builtin-snd eta-3)) eta-2)) eta-0 eta-1))) arg-7 arg-9) ext-0)))))) -(define TTImpC-45ElabC-45Delayed-case--mismatchNF-1609 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 ext-0) (let ((sc0 arg-13)) (cond ((equal? sc0 0) (vector 1 0)) (else (CoreC-45Core-anyM (lambda (eta-0) (lambda (eta-1) (TTImpC-45ElabC-45Delayed-mismatch arg-12 arg-0 arg-11 eta-0 eta-1))) (DataC-45List-u--zipWith_Zippable_List (lambda (eta-0) (lambda (eta-1) (PreludeC-45Basics-curry (lambda (eta-2) (PreludeC-45Interfaces-mapHom (vector 0 (lambda (u--d) (lambda (u--b) (lambda (u--c) (lambda (u--a) (lambda (arg-353) (lambda (arg-355) (lambda (arg-357) (let ((sc1 arg-357)) (let ((e-2 (car sc1))) (let ((e-3 (cdr sc1))) (cons (arg-353 e-2) (arg-355 e-3)))))))))))) (lambda (u--b) (lambda (u--c) (lambda (u--a) (lambda (arg-362) (lambda (arg-364) (let ((sc1 arg-364)) (let ((e-2 (car sc1))) (let ((e-3 (cdr sc1))) (cons (arg-362 e-2) e-3))))))))) (lambda (u--a) (lambda (u--d) (lambda (u--b) (lambda (arg-365) (lambda (arg-367) (let ((sc1 arg-367)) (let ((e-2 (car sc1))) (let ((e-3 (cdr sc1))) (cons e-2 (arg-365 e-3))))))))))) (lambda (eta-3) (Builtin-snd eta-3)) eta-2)) eta-0 eta-1))) arg-5 arg-8) ext-0)))))) -(define TTImpC-45ElabC-45Delayed-case--delayOnFailure-999 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 ext-0) (let ((sc0 arg-15)) (cond ((equal? sc0 0) (let ((act-24 (CoreC-45UnifyState-genName arg-11 arg-9 "delayed" ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-getTerm arg-4) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((CoreC-45UnifyState-newDelayed arg-0 arg-9 arg-11 arg-7 (AlgebraC-45Semiring-linear (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))) arg-5 e-5 e-6) ext-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (let ((e-2 (car sc3))) (let ((e-3 (cdr sc3))) (let ((act-26 (CoreC-45Normalise-logGlueNF arg-0 arg-11 "elab.delay" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Postponing elaborator " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-5) (PreludeC-45TypesC-45String-C-43C-43 " at " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC arg-7) " for"))))) arg-5 arg-4 ext-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((act-27 (CoreC-45ContextC-45Log-log arg-11 "elab.delay" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Due to error " (CoreC-45Core-u--show_Show_Error arg-13))) ext-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((act-28 (let ((act-28 (unbox arg-9))) (vector 1 act-28)))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-29 (let ((act-29 (unbox arg-11))) (vector 1 act-29)))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-30 (let ((act-30 (set-box! arg-9 (let ((sc8 e-9)) (let ((e-0 (vector-ref sc8 1))) (let ((e-1 (vector-ref sc8 2))) (let ((e-17 (vector-ref sc8 3))) (let ((e-16 (vector-ref sc8 4))) (let ((e-4 (vector-ref sc8 5))) (let ((e-15 (vector-ref sc8 6))) (let ((e-14 (vector-ref sc8 7))) (let ((e-13 (vector-ref sc8 8))) (let ((e-12 (vector-ref sc8 9))) (let ((e-11 (vector-ref sc8 10))) (vector 0 e-0 e-1 e-17 e-16 e-4 e-15 e-14 e-13 (cons (cons arg-2 (cons e-2 (cons (let ((sc9 e-10)) (let ((e-35 (vector-ref sc9 11))) e-35)) (TTImpC-45ElabC-45Delayed-mkClosedElab arg-0 arg-7 arg-5 (lambda (eta-0) (TTImpC-45ElabC-45Delayed-deeper arg-8 (arg-1 0) eta-0)))))) e-12) e-11))))))))))))))) (vector 1 act-30)))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (vector 1 (cons e-3 arg-4)))))))))))))))))))))))))))))))))))))) (else (CoreC-45Core-u--throw_Catchable_Core_Error arg-13 ext-0)))))) -(define TTImpC-45ElabC-45Delayed-n--11813-768-u--newBinder (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) arg-6)(else (vector 0 (CoreC-45TT-binderLoc arg-6) (CoreC-45TT-multiplicity arg-6) (vector 1 ) (CoreC-45TT-binderType arg-6))))))) -(define TTImpC-45ElabC-45Delayed-n--12433-1297-u--mkExpected (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 ext-0) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (vector 1 e-1))) (else (let ((act-24 (CoreC-45UnifyState-genName arg-10 arg-8 "delayTy" ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTImpC-45ElabC-45Check-metaVar arg-0 arg-10 arg-8 arg-6 (AlgebraC-45Semiring-erased (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))) arg-4 e-5 (vector 11 arg-6) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (CoreC-45Normalise-gnf arg-0 arg-4 e-6))))))))))))))))) -(define TTImpC-45ElabC-45Delayed-n--14247-2940-u--hasPri (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-9) (let ((sc0 arg-9)) (let ((e-2 (car sc0))) (PreludeC-45EqOrd-u--C-60C-61_Ord_Integer e-2 arg-3))))) -(define TTImpC-45ElabC-45Delayed-u--show_Show_RetryError (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) "RecoverableErrors") (else "AllErrors"))))) -(define TTImpC-45ElabC-45Delayed-runDelays (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((u--olddelayed (let ((sc1 e-5)) (let ((e-8 (vector-ref sc1 9))) e-8)))) (let ((act-25 (let ((act-25 (set-box! arg-4 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-10 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-9 (vector-ref sc1 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-10 e-6 e-7 '() e-9)))))))))))))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 (arg-7 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (let ((act-27 (unbox arg-4))) (vector 1 act-27)))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (CoreC-45ContextC-45Log-log arg-2 "elab.delay" (+ 1 (+ 1 0)) (lambda () "Rerunning delayed in elaborator") ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-29 (TTImpC-45ElabC-45Check-handle arg-1 arg-2 arg-3 arg-4 arg-5 (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (let ((sc5 eta-1)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))) (TTImpC-45ElabC-45Delayed-retryDelayedC-39 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 1 ) '() (DataC-45List-reverse (DataC-45List-filter (lambda (eta-1) (TTImpC-45ElabC-45Delayed-n--14247-2940-u--hasPri arg-1 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 eta-1)) (let ((sc5 e-8)) (let ((e-11 (vector-ref sc5 9))) e-11))))) eta-0)) (lambda (u--err) (lambda (eta-0) (let ((act-29 (let ((act-29 (set-box! arg-4 (let ((sc5 e-8)) (let ((e-0 (vector-ref sc5 1))) (let ((e-1 (vector-ref sc5 2))) (let ((e-2 (vector-ref sc5 3))) (let ((e-3 (vector-ref sc5 4))) (let ((e-4 (vector-ref sc5 5))) (let ((e-14 (vector-ref sc5 6))) (let ((e-13 (vector-ref sc5 7))) (let ((e-12 (vector-ref sc5 8))) (let ((e-10 (vector-ref sc5 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-14 e-13 e-12 u--olddelayed e-10)))))))))))))) (vector 1 act-29)))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (CoreC-45Core-u--throw_Catchable_Core_Error u--err eta-0))))))) ext-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((act-30 (let ((act-30 (unbox arg-4))) (vector 1 act-30)))) (let ((sc6 act-30)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-31 (let ((act-31 (set-box! arg-4 (let ((sc7 e-11)) (let ((e-0 (vector-ref sc7 1))) (let ((e-1 (vector-ref sc7 2))) (let ((e-2 (vector-ref sc7 3))) (let ((e-3 (vector-ref sc7 4))) (let ((e-4 (vector-ref sc7 5))) (let ((e-16 (vector-ref sc7 6))) (let ((e-15 (vector-ref sc7 7))) (let ((e-14 (vector-ref sc7 8))) (let ((e-13 (vector-ref sc7 9))) (let ((e-12 (vector-ref sc7 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-16 e-15 e-14 (PreludeC-45TypesC-45List-C-43C-43 e-13 u--olddelayed) e-12))))))))))))))) (vector 1 act-31)))) (let ((sc7 act-31)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (vector 1 e-7)))))))))))))))))))))))))))))))))))))))) -(define TTImpC-45ElabC-45Delayed-retryDelayedC-39 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (if (null? sc0) (lambda (eta-0) (vector 1 (DataC-45List-reverse arg-6))) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (lambda (clam-0) (let ((sc2 e-7)) (let ((e-10 (car sc2))) (let ((e-11 (cdr sc2))) (let ((sc3 e-11)) (let ((e-14 (car sc3))) (let ((e-15 (cdr sc3))) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (CoreC-45Context-lookupDefExact (vector 9 e-10) (let ((sc5 e-5)) (let ((e-0 (vector-ref sc5 1))) e-0)) clam-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc5 1))) (let ((u--d (cons e-6 (cons e-10 (cons e-14 e-15))))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((sc7 e-1)) (case (vector-ref sc7 0) ((11) (TTImpC-45ElabC-45Check-handle arg-0 arg-1 arg-2 arg-3 arg-4 (lambda (eta-0) (let ((act-26 (let ((act-26 (unbox arg-4))) (vector 1 act-26)))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 (let ((act-27 (CoreC-45Context-getFullName arg-1 (vector 9 e-10) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc9 1))) (CoreC-45ContextC-45Log-log arg-1 "elab.retry" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Nat (let ((sc10 e-9)) (let ((e-18 (vector-ref sc10 10))) e-18))) (PreludeC-45TypesC-45String-C-43C-43 ": Retrying delayed hole " (CoreC-45Name-u--show_Show_Name e-12)))) eta-0)))))))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((act-28 (let ((act-28 (unbox arg-3))) (vector 1 act-28)))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-13 (vector-ref sc10 1))) (let ((act-29 (let ((act-29 (set-box! arg-3 (let ((sc11 e-13)) (let ((e-0 (vector-ref sc11 1))) (let ((e-23 (vector-ref sc11 2))) (let ((e-22 (vector-ref sc11 3))) (let ((e-21 (vector-ref sc11 4))) (let ((e-4 (vector-ref sc11 5))) (let ((e-20 (vector-ref sc11 6))) (let ((e-19 (vector-ref sc11 7))) (let ((e-18 (vector-ref sc11 8))) (let ((e-16 (vector-ref sc11 10))) (vector 0 e-0 e-23 e-22 e-21 e-4 e-20 e-19 e-18 '() e-16)))))))))))))) (vector 1 act-29)))) (let ((sc11 act-29)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((act-30 (let ((act-30 (unbox arg-1))) (vector 1 act-30)))) (let ((sc12 act-30)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (let ((e-17 (vector-ref sc12 1))) (let ((act-31 (let ((act-31 (set-box! arg-1 (let ((sc13 e-17)) (let ((e-0 (vector-ref sc13 1))) (let ((e-43 (vector-ref sc13 2))) (let ((e-42 (vector-ref sc13 3))) (let ((e-41 (vector-ref sc13 4))) (let ((e-4 (vector-ref sc13 5))) (let ((e-40 (vector-ref sc13 6))) (let ((e-39 (vector-ref sc13 7))) (let ((e-38 (vector-ref sc13 8))) (let ((e-37 (vector-ref sc13 9))) (let ((e-36 (vector-ref sc13 10))) (let ((e-34 (vector-ref sc13 12))) (let ((e-33 (vector-ref sc13 13))) (let ((e-32 (vector-ref sc13 14))) (let ((e-31 (vector-ref sc13 15))) (let ((e-30 (vector-ref sc13 16))) (let ((e-29 (vector-ref sc13 17))) (let ((e-28 (vector-ref sc13 18))) (let ((e-18 (vector-ref sc13 19))) (let ((e-19 (vector-ref sc13 20))) (let ((e-20 (vector-ref sc13 21))) (let ((e-21 (vector-ref sc13 22))) (let ((e-22 (vector-ref sc13 23))) (let ((e-23 (vector-ref sc13 24))) (let ((e-24 (vector-ref sc13 25))) (let ((e-25 (vector-ref sc13 26))) (let ((e-26 (vector-ref sc13 27))) (let ((e-27 (vector-ref sc13 28))) (vector 0 e-0 e-43 e-42 e-41 e-4 e-40 e-39 e-38 e-37 e-36 e-14 e-34 e-33 e-32 e-31 e-30 e-29 e-28 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27)))))))))))))))))))))))))))))))) (vector 1 act-31)))) (let ((sc13 act-31)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (vector 0 e-4))) (else (let ((act-32 (e-15 eta-0))) (let ((sc14 act-32)) (case (vector-ref sc14 0) ((0) (let ((e-4 (vector-ref sc14 1))) (vector 0 e-4))) (else (let ((e-19 (vector-ref sc14 1))) (let ((act-33 (let ((act-33 (unbox arg-3))) (vector 1 act-33)))) (let ((sc15 act-33)) (case (vector-ref sc15 0) ((0) (let ((e-4 (vector-ref sc15 1))) (vector 0 e-4))) (else (let ((e-20 (vector-ref sc15 1))) (let ((u--dsC-39 (PreludeC-45TypesC-45List-C-43C-43 (DataC-45List-reverse (let ((sc16 e-20)) (let ((e-22 (vector-ref sc16 9))) e-22))) e-3))) (let ((act-34 (CoreC-45Context-updateDef arg-1 (vector 9 e-10) (lambda (eta-1) (vector 1 (vector 1 (cons (vector 0 ) 0) '() (vector 1 0 e-19) (vector 1 0 e-19) '()))) eta-0))) (let ((sc16 act-34)) (case (vector-ref sc16 0) ((0) (let ((e-4 (vector-ref sc16 1))) (vector 0 e-4))) (else (let ((act-35 (CoreC-45ContextC-45Log-logTerm '() arg-1 "elab.update" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Resolved delayed hole " (PreludeC-45Show-u--show_Show_Int e-10))) e-19 eta-0))) (let ((sc17 act-35)) (case (vector-ref sc17 0) ((0) (let ((e-4 (vector-ref sc17 1))) (vector 0 e-4))) (else (let ((act-36 (CoreC-45Normalise-logTermNF '() arg-1 "elab.update" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Resolved delayed hole NF " (PreludeC-45Show-u--show_Show_Int e-10))) '() e-19 eta-0))) (let ((sc18 act-36)) (case (vector-ref sc18 0) ((0) (let ((e-4 (vector-ref sc18 1))) (vector 0 e-4))) (else (let ((act-37 (CoreC-45UnifyState-removeHole arg-3 e-10 eta-0))) (let ((sc19 act-37)) (case (vector-ref sc19 0) ((0) (let ((e-4 (vector-ref sc19 1))) (vector 0 e-4))) (else ((TTImpC-45ElabC-45Delayed-retryDelayedC-39 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 u--dsC-39) eta-0)))))))))))))))))))))))))))))))))))))))))))))))))))))))) (lambda (u--err) (lambda (eta-0) (let ((act-26 (let ((act-26 (CoreC-45Context-getFullName arg-1 (vector 9 e-10) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc8 1))) (CoreC-45ContextC-45Log-log arg-1 "elab" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 (TTImpC-45ElabC-45Delayed-u--show_Show_RetryError arg-5) (PreludeC-45TypesC-45String-C-43C-43 ":Error in " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-9) (PreludeC-45TypesC-45String-C-43C-43 "\u000a" (CoreC-45Core-u--show_Show_Error u--err)))))) eta-0)))))))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((_-0 (vector 1 (vector 11 )))) (let ((sc9 arg-5)) (case (vector-ref sc9 0) ((0) (let ((act-27 ((TTImpC-45ElabC-45Delayed-recoverable arg-1 u--err) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc10 1))) (let ((u--errmode (vector 0 ))) ((TTImpC-45ElabC-45Delayed-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32retryDelayedC-39-2626 arg-0 e-6 e-10 e-14 e-15 u--d e-3 arg-6 arg-4 arg-3 arg-2 arg-1 e-5 _-0 u--err u--errmode e-12 (let ((sc11 e-12)) (cond ((equal? sc11 0) 1) (else 0)))) eta-0)))))))) (else (CoreC-45Core-u--throw_Catchable_Core_Error u--err eta-0))))))))))) clam-0))(else ((TTImpC-45ElabC-45Delayed-retryDelayedC-39 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3) clam-0))))))(else ((TTImpC-45ElabC-45Delayed-retryDelayedC-39 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3) clam-0))))))))))))))))))))))))))))))) -(define TTImpC-45ElabC-45Delayed-retryDelayed (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((act-25 ((TTImpC-45ElabC-45Delayed-retryDelayedC-39 arg-0 arg-1 arg-2 arg-3 arg-4 (vector 0 ) '() arg-5) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc2 eta-0)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))) (TTImpC-45ElabC-45Delayed-retryDelayedC-39 arg-0 arg-1 arg-2 arg-3 arg-4 (vector 1 ) '() e-6) ext-0)))))))))))) -(define TTImpC-45ElabC-45Delayed-recoverable (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((CoreC-45Normalise-nf arg-0 e-0 e-5 e-2 e-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((CoreC-45Normalise-nf arg-0 e-0 e-5 e-2 e-4) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((TTImpC-45ElabC-45Delayed-contra arg-0 e-0 e-5 e-6 e-7) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (let ((sc5 e-8)) (cond ((equal? sc5 0) 1) (else 0)))))))))))))))))))))))))))))) ((2) (let ((e-5 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (let ((e-9 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc1 1))) (let ((act-25 ((CoreC-45Normalise-nf arg-0 e-5 e-10 e-7 e-8) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc2 1))) (let ((act-26 ((CoreC-45Normalise-nf arg-0 e-5 e-10 e-7 e-9) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc3 1))) (let ((act-27 ((TTImpC-45ElabC-45Delayed-contra arg-0 e-5 e-10 e-11 e-12) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref sc4 1))) (vector 1 (let ((sc5 e-13)) (cond ((equal? sc5 0) 1) (else 0)))))))))))))))))))))))))))))) ((7) (lambda (eta-0) (vector 1 1))) ((14) (lambda (eta-0) (vector 1 1))) ((61) (let ((e-18 (vector-ref sc0 3))) (TTImpC-45ElabC-45Delayed-recoverable arg-0 e-18))) ((62) (let ((e-21 (vector-ref sc0 3))) (TTImpC-45ElabC-45Delayed-recoverable arg-0 e-21))) ((63) (let ((e-24 (vector-ref sc0 3))) (TTImpC-45ElabC-45Delayed-recoverable arg-0 e-24))) ((64) (let ((e-27 (vector-ref sc0 3))) (TTImpC-45ElabC-45Delayed-recoverable arg-0 e-27))) ((5) (let ((e-33 (vector-ref sc0 6))) (TTImpC-45ElabC-45Delayed-recoverable arg-0 e-33)))(else (lambda (eta-0) (vector 1 0))))))) -(define TTImpC-45ElabC-45Delayed-mkClosedElab (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-0)) (if (null? sc0) (lambda (clam-0) (let ((sc1 arg-2)) (let ((act-24 (arg-3 clam-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (let ((e-2 (car sc3))) (vector 1 e-2)))))))))) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 arg-2)) (let ((e-8 (car sc1))) (let ((e-9 (cdr sc1))) (TTImpC-45ElabC-45Delayed-mkClosedElab e-3 arg-1 e-9 (lambda (eta-0) (let ((act-24 (arg-3 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (let ((e-6 (car sc3))) (let ((u--bC-39 (TTImpC-45ElabC-45Delayed-n--11813-768-u--newBinder e-2 e-3 e-9 e-8 arg-3 arg-1 e-8))) (vector 1 (cons (vector 3 arg-1 e-2 u--bC-39 e-6) (CoreC-45Normalise-gErased arg-1)))))))))))))))))))))) -(define TTImpC-45ElabC-45Delayed-mismatchNF (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((3) (let ((e-25 (vector-ref sc1 1))) (let ((e-26 (vector-ref sc1 2))) (let ((e-27 (vector-ref sc1 3))) (let ((e-28 (vector-ref sc1 4))) (let ((e-29 (vector-ref sc1 5))) (lambda (eta-0) (TTImpC-45ElabC-45Delayed-case--mismatchNF-1609 arg-1 e-25 e-28 e-1 e-4 e-5 e-3 e-2 e-29 e-27 e-26 arg-2 arg-0 (CoreC-45Name-u--C-47C-61_Eq_Name e-2 e-26) eta-0))))))))(else (lambda (eta-0) (vector 1 1))))))))))) ((2) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (let ((e-10 (vector-ref sc0 4))) (let ((e-11 (vector-ref sc0 5))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((2) (let ((e-31 (vector-ref sc1 1))) (let ((e-32 (vector-ref sc1 2))) (let ((e-33 (vector-ref sc1 3))) (let ((e-34 (vector-ref sc1 4))) (let ((e-35 (vector-ref sc1 5))) (lambda (eta-0) (TTImpC-45ElabC-45Delayed-case--mismatchNF-1715 arg-1 e-31 e-32 e-34 e-7 e-8 e-10 e-11 e-9 e-35 e-33 arg-2 arg-0 (PreludeC-45EqOrd-u--C-47C-61_Eq_Int e-9 e-33) eta-0))))))))(else (lambda (eta-0) (vector 1 1))))))))))) ((8) (let ((e-14 (vector-ref sc0 2))) (lambda (clam-0) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((8) (let ((e-38 (vector-ref sc1 2))) (vector 1 (CoreC-45TT-u--C-47C-61_Eq_Constant e-14 e-38))))(else (vector 1 1))))))) ((5) (let ((e-18 (vector-ref sc0 3))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((5) (let ((e-42 (vector-ref sc1 3))) (TTImpC-45ElabC-45Delayed-mismatchNF arg-0 arg-1 arg-2 e-18 e-42)))(else (lambda (eta-0) (vector 1 1))))))) ((6) (let ((e-23 (vector-ref sc0 4))) (lambda (clam-1) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((6) (let ((e-47 (vector-ref sc1 4))) (let ((act-24 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-23) clam-1))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-47) clam-1))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) ((TTImpC-45ElabC-45Delayed-mismatchNF arg-0 arg-1 arg-2 e-5 e-6) clam-1)))))))))))))(else (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1))))))) -(define TTImpC-45ElabC-45Delayed-mismatch (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((sc0 arg-3)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((act-24 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-2) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-3) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) ((TTImpC-45ElabC-45Delayed-mismatchNF arg-0 arg-1 arg-2 e-5 e-6) ext-0)))))))))))))))) -(define TTImpC-45ElabC-45Delayed-delayOnFailure (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 ext-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (TTImpC-45ElabC-45Check-handle arg-0 arg-1 arg-2 arg-3 arg-4 (arg-11 1) (lambda (u--err) (lambda (eta-0) (let ((act-25 (let ((act-25 (unbox arg-4))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (TTImpC-45ElabC-45Delayed-case--delayOnFailure-999 arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 u--err e-6 (arg-9 u--err) eta-0)))))))) ext-0)))))))) -(define TTImpC-45ElabC-45Delayed-delayElab (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 ext-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45UnifyState-genName arg-1 arg-3 "delayed" ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (TTImpC-45ElabC-45Delayed-n--12433-1297-u--mkExpected arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-8 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (let ((act-27 ((CoreC-45Normalise-getTerm e-7) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) ((CoreC-45UnifyState-newDelayed arg-0 arg-3 arg-1 arg-5 (AlgebraC-45Semiring-linear (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))) arg-7 e-6 e-8) ext-0)))))))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (let ((e-2 (car sc4))) (let ((e-3 (cdr sc4))) (let ((act-28 (CoreC-45Normalise-logGlueNF arg-0 arg-1 "elab.delay" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Postponing elaborator " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-6) " for"))) arg-7 e-7 ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((act-29 (let ((act-29 (unbox arg-3))) (vector 1 act-29)))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-30 (let ((act-30 (unbox arg-1))) (vector 1 act-30)))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-31 (let ((act-31 (set-box! arg-3 (let ((sc8 e-10)) (let ((e-0 (vector-ref sc8 1))) (let ((e-1 (vector-ref sc8 2))) (let ((e-18 (vector-ref sc8 3))) (let ((e-17 (vector-ref sc8 4))) (let ((e-4 (vector-ref sc8 5))) (let ((e-16 (vector-ref sc8 6))) (let ((e-15 (vector-ref sc8 7))) (let ((e-14 (vector-ref sc8 8))) (let ((e-13 (vector-ref sc8 9))) (let ((e-12 (vector-ref sc8 10))) (vector 0 e-0 e-1 e-18 e-17 e-4 e-16 e-15 e-14 (cons (cons arg-9 (cons e-2 (cons (let ((sc9 e-11)) (let ((e-36 (vector-ref sc9 11))) e-36)) (TTImpC-45ElabC-45Delayed-mkClosedElab arg-0 arg-5 arg-7 arg-10)))) e-13) e-12))))))))))))))) (vector 1 act-31)))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (vector 1 (cons e-3 e-7)))))))))))))))))))))))))))))))))))))))))))) -(define TTImpC-45ElabC-45Delayed-deeper (lambda (arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((u--d (let ((sc1 e-5)) (let ((e-10 (vector-ref sc1 10))) e-10)))) (let ((act-25 (let ((act-25 (set-box! arg-2 (let ((sc1 e-5)) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((e-3 (vector-ref sc1 3))) (let ((e-4 (vector-ref sc1 4))) (let ((e-14 (vector-ref sc1 5))) (let ((e-6 (vector-ref sc1 6))) (let ((e-7 (vector-ref sc1 7))) (let ((e-8 (vector-ref sc1 8))) (let ((e-9 (vector-ref sc1 9))) (let ((e-11 (vector-ref sc1 11))) (let ((e-12 (vector-ref sc1 12))) (let ((e-13 (vector-ref sc1 13))) (vector 0 e-1 e-2 e-3 e-4 e-14 e-6 e-7 e-8 e-9 (PreludeC-45Types-u--C-43_Num_Nat (PreludeC-45Types-u--fromInteger_Num_Nat 1) u--d) e-11 e-12 e-13))))))))))))))))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 (arg-3 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (let ((act-27 (unbox arg-2))) (vector 1 act-27)))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (let ((act-28 (set-box! arg-2 (let ((sc4 e-8)) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-3 (vector-ref sc4 3))) (let ((e-4 (vector-ref sc4 4))) (let ((e-17 (vector-ref sc4 5))) (let ((e-16 (vector-ref sc4 6))) (let ((e-15 (vector-ref sc4 7))) (let ((e-14 (vector-ref sc4 8))) (let ((e-9 (vector-ref sc4 9))) (let ((e-11 (vector-ref sc4 11))) (let ((e-12 (vector-ref sc4 12))) (let ((e-13 (vector-ref sc4 13))) (vector 0 e-1 e-2 e-3 e-4 e-17 e-16 e-15 e-14 e-9 u--d e-11 e-12 e-13))))))))))))))))) (vector 1 act-28)))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (vector 1 e-7))))))))))))))))))))))))))) -(define TTImpC-45ElabC-45Delayed-contra (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((3) (let ((e-16 (vector-ref sc1 1))) (let ((e-17 (vector-ref sc1 2))) (let ((e-18 (vector-ref sc1 3))) (let ((e-19 (vector-ref sc1 4))) (let ((e-20 (vector-ref sc1 5))) (lambda (eta-0) (TTImpC-45ElabC-45Delayed-case--contra-1917 arg-1 e-16 e-1 e-5 e-4 e-3 e-2 e-20 e-19 e-18 e-17 arg-2 arg-0 (CoreC-45Name-u--C-47C-61_Eq_Name e-2 e-17) eta-0))))))))(else (lambda (eta-0) (vector 1 1))))))))))) ((2) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (let ((e-10 (vector-ref sc0 4))) (let ((e-11 (vector-ref sc0 5))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((2) (let ((e-22 (vector-ref sc1 1))) (let ((e-23 (vector-ref sc1 2))) (let ((e-24 (vector-ref sc1 3))) (let ((e-25 (vector-ref sc1 4))) (let ((e-26 (vector-ref sc1 5))) (lambda (eta-0) (TTImpC-45ElabC-45Delayed-case--contra-2023 arg-1 e-22 e-23 e-25 e-7 e-8 e-10 e-11 e-9 e-26 e-24 arg-2 arg-0 (PreludeC-45EqOrd-u--C-47C-61_Eq_Int e-9 e-24) eta-0)))))))) ((8) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))))))) ((8) (let ((e-14 (vector-ref sc0 2))) (lambda (clam-0) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((8) (let ((e-32 (vector-ref sc1 2))) (vector 1 (CoreC-45TT-u--C-47C-61_Eq_Constant e-14 e-32)))) ((2) (vector 1 0))(else (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1))))))) -(define TTImpC-45ElabC-45Delayed-ambiguous (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((18) 0) ((17) 0) ((20) 0) ((61) (let ((e-11 (vector-ref sc0 3))) (TTImpC-45ElabC-45Delayed-ambiguous e-11))) ((62) (let ((e-14 (vector-ref sc0 3))) (TTImpC-45ElabC-45Delayed-ambiguous e-14))) ((63) (let ((e-17 (vector-ref sc0 3))) (TTImpC-45ElabC-45Delayed-ambiguous e-17))) ((64) (let ((e-20 (vector-ref sc0 3))) (TTImpC-45ElabC-45Delayed-ambiguous e-20))) ((5) (let ((e-26 (vector-ref sc0 6))) (TTImpC-45ElabC-45Delayed-ambiguous e-26)))(else 1))))) -(define TTImpC-45ElabC-45Check-case--caseC-32blockC-32inC-32checkExpP-9661 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 ext-0) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((0) (vector 1 (cons arg-16 arg-2))) ((1) (let ((e-0 (vector-ref sc0 1))) (vector 1 (cons (vector 8 arg-4 e-0 arg-3) arg-1)))) (else (let ((e-1 (vector-ref sc0 1))) (let ((act-24 ((CoreC-45Normalise-getTerm arg-2) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (cons (vector 7 arg-4 e-1 e-5 arg-3) arg-1))))))))))))) -(define TTImpC-45ElabC-45Check-case--caseC-32blockC-32inC-32checkExpP-9437 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 ext-0) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((0) (let ((act-24 (CoreC-45ContextC-45Log-logTerm arg-0 arg-10 "elab" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Solved") arg-3 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (cons arg-3 arg-2))))))) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((act-24 (CoreC-45ContextC-45Log-logTerm arg-0 arg-10 "elab" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Force") arg-3 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45Normalise-logGlue arg-0 arg-10 "elab" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Got") arg-5 arg-2 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45Normalise-logGlue arg-0 arg-10 "elab" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Exp") arg-5 arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (vector 1 (cons (vector 8 arg-4 e-0 arg-3) arg-1)))))))))))))))) (else (let ((e-1 (vector-ref sc0 1))) (let ((act-24 ((CoreC-45Normalise-getTerm arg-2) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45ContextC-45Log-logTerm arg-0 arg-10 "elab" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Delay") arg-3 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (vector 1 (cons (vector 7 arg-4 e-1 e-5 arg-3) arg-1))))))))))))))))) -(define TTImpC-45ElabC-45Check-case--checkExpP-9408 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (if (null? sc0) (lambda (eta-0) (TTImpC-45ElabC-45Check-case--caseC-32blockC-32inC-32checkExpP-9437 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 (let ((sc1 arg-11)) (let ((e-3 (vector-ref sc1 4))) e-3)) eta-0)) (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-logTerm arg-0 arg-10 "elab" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Not solved") arg-3 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (let ((act-25 (unbox arg-10))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (CoreC-45Context-clearDefs e-6 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((CoreC-45Normalise-getTerm arg-1) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 ((CoreC-45UnifyState-newConstant arg-0 arg-9 arg-10 arg-4 arg-7 arg-5 arg-3 e-8 arg-12) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 (CoreC-45UnifyState-dumpConstraints arg-9 arg-10 "elab" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) 1 eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (TTImpC-45ElabC-45Check-case--caseC-32blockC-32inC-32checkExpP-9661 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-6 e-7 e-8 e-9 (let ((sc7 arg-11)) (let ((e-3 (vector-ref sc7 4))) e-3)) eta-0)))))))))))))))))))))))))))))))))) -(define TTImpC-45ElabC-45Check-case--convertWithLazy-9137 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 ext-0) (let ((sc0 arg-13)) (cond ((equal? sc0 0) (let ((act-24 ((CoreC-45Normalise-getTerm arg-2) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((CoreC-45Normalise-getTerm arg-1) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 arg-12)) (cond ((equal? sc3 0) ((((CoreC-45Unify-unifyWithLazy (cons (lambda (u--vars) (lambda (arg-4911) (lambda (arg-4913) (lambda (arg-4915) (lambda (arg-4916) (lambda (arg-4917) (lambda (arg-4919) (lambda (arg-4922) (lambda (eta-0) (CoreC-45Unify-u--unifyD_Unify_Term u--vars arg-4911 arg-4913 arg-4915 arg-4916 arg-4917 arg-4919 arg-4922 eta-0)))))))))) (lambda (u--vars) (lambda (arg-4924) (lambda (arg-4926) (lambda (arg-4928) (lambda (arg-4929) (lambda (arg-4930) (lambda (arg-4932) (lambda (arg-4933) (lambda (eta-0) (CoreC-45Unify-u--unifyWithLazyD_Unify_Term u--vars arg-4924 arg-4926 arg-4928 arg-4929 arg-4930 arg-4932 arg-4933 eta-0))))))))))) arg-0 arg-9 arg-8 arg-10 arg-5 arg-3) e-5) e-6) ext-0)) (else ((((CoreC-45Unify-unify (cons (lambda (u--vars) (lambda (arg-4911) (lambda (arg-4913) (lambda (arg-4915) (lambda (arg-4916) (lambda (arg-4917) (lambda (arg-4919) (lambda (arg-4922) (lambda (eta-0) (CoreC-45Unify-u--unifyD_Unify_Term u--vars arg-4911 arg-4913 arg-4915 arg-4916 arg-4917 arg-4919 arg-4922 eta-0)))))))))) (lambda (u--vars) (lambda (arg-4924) (lambda (arg-4926) (lambda (arg-4928) (lambda (arg-4929) (lambda (arg-4930) (lambda (arg-4932) (lambda (arg-4933) (lambda (eta-0) (CoreC-45Unify-u--unifyWithLazyD_Unify_Term u--vars arg-4924 arg-4926 arg-4928 arg-4929 arg-4930 arg-4932 arg-4933 eta-0))))))))))) arg-0 arg-9 arg-8 arg-10 arg-5 arg-3) e-5) e-6) ext-0))))))))))))))) (else (let ((act-24 ((CoreC-45Normalise-getNF arg-9 arg-2) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((CoreC-45Normalise-getNF arg-9 arg-1) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 arg-12)) (cond ((equal? sc3 0) ((((CoreC-45Unify-unifyWithLazy (cons (lambda (u--vars) (lambda (arg-4911) (lambda (arg-4913) (lambda (arg-4915) (lambda (arg-4916) (lambda (arg-4917) (lambda (arg-4919) (lambda (arg-4922) (CoreC-45Unify-u--unifyD_Unify_NF u--vars arg-4911 arg-4913 arg-4915 arg-4916 arg-4917 arg-4919 arg-4922))))))))) (lambda (u--vars) (lambda (arg-4924) (lambda (arg-4926) (lambda (arg-4928) (lambda (arg-4929) (lambda (arg-4930) (lambda (arg-4932) (lambda (arg-4933) (CoreC-45Unify-u--unifyWithLazyD_Unify_NF u--vars arg-4924 arg-4926 arg-4928 arg-4929 arg-4930 arg-4932 arg-4933)))))))))) arg-0 arg-9 arg-8 arg-10 arg-5 arg-3) e-5) e-6) ext-0)) (else ((((CoreC-45Unify-unify (cons (lambda (u--vars) (lambda (arg-4911) (lambda (arg-4913) (lambda (arg-4915) (lambda (arg-4916) (lambda (arg-4917) (lambda (arg-4919) (lambda (arg-4922) (CoreC-45Unify-u--unifyD_Unify_NF u--vars arg-4911 arg-4913 arg-4915 arg-4916 arg-4917 arg-4919 arg-4922))))))))) (lambda (u--vars) (lambda (arg-4924) (lambda (arg-4926) (lambda (arg-4928) (lambda (arg-4929) (lambda (arg-4930) (lambda (arg-4932) (lambda (arg-4933) (CoreC-45Unify-u--unifyWithLazyD_Unify_NF u--vars arg-4924 arg-4926 arg-4928 arg-4929 arg-4930 arg-4932 arg-4933)))))))))) arg-0 arg-9 arg-8 arg-10 arg-5 arg-3) e-5) e-6) ext-0))))))))))))))))))) -(define TTImpC-45ElabC-45Check-case--convertWithLazy-8981 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((1) (CoreC-45Unify-inLHS))(else (CoreC-45Unify-inTerm)))))) -(define TTImpC-45ElabC-45Check-case--exactlyOneC-39-8773 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-8 (car sc1))) (let ((e-9 (cdr sc1))) (lambda (clam-0) (let ((sc2 e-9)) (let ((e-12 (car sc2))) (let ((e-13 (cdr sc2))) (let ((sc3 e-13)) (let ((e-16 (car sc3))) (let ((e-17 (cdr sc3))) (let ((act-24 (let ((act-24 (set-box! arg-6 e-16))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((act-25 (let ((act-25 (set-box! arg-5 e-17))) (vector 1 act-25)))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((act-26 (let ((act-26 (set-box! arg-8 e-12))) (vector 1 act-26)))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (let ((act-27 (CoreC-45Context-commit arg-8 clam-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (vector 0 e-3))) (else (vector 1 e-8))))))))))))))))))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (TTImpC-45ElabC-45Check-n--15896-8471-u--altError arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (DataC-45Either-lefts arg-9) e-5) eta-0)))))))) -(define TTImpC-45ElabC-45Check-case--exactlyOneC-39C-44altError-8696 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((0) (vector 21 arg-10)) (else (let ((e-2 (vector-ref sc0 1))) e-2)))))) -(define TTImpC-45ElabC-45Check-case--caseC-32blockC-32inC-32exactlyOneC-39C-44getRight-8560 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (if (null? sc0) (vector 0 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) arg-12)) (let ((e-1 (car sc0))) (let ((e-2 (cdr sc0))) (let ((sc1 e-1)) (if (null? sc1) (vector 0 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) arg-12)) (let ((e-6 (cdr sc1))) (let ((sc2 e-2)) (if (null? sc2) (vector 1 e-6) (vector 0 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) arg-12))))))))))))) -(define TTImpC-45ElabC-45Check-case--exactlyOneC-39C-44getRight-8482 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-11 arg-12) (let ((sc0 arg-12)) (if (null? sc0) (TTImpC-45ElabC-45Check-case--caseC-32blockC-32inC-32exactlyOneC-39C-44getRight-8560 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-11 arg-12 (DataC-45List-filter (lambda (u--x) (PreludeC-45Types-u--C-61C-61_Eq_Nat (Builtin-fst u--x) 0)) arg-12)) (let ((e-1 (car sc0))) (let ((e-2 (cdr sc0))) (let ((sc1 e-1)) (if (null? sc1) (TTImpC-45ElabC-45Check-case--caseC-32blockC-32inC-32exactlyOneC-39C-44getRight-8560 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-11 arg-12 (DataC-45List-filter (lambda (u--x) (PreludeC-45Types-u--C-61C-61_Eq_Nat (Builtin-fst u--x) 0)) arg-12)) (let ((e-6 (cdr sc1))) (let ((sc2 e-2)) (if (null? sc2) (vector 1 e-6) (TTImpC-45ElabC-45Check-case--caseC-32blockC-32inC-32exactlyOneC-39C-44getRight-8560 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-11 arg-12 (DataC-45List-filter (lambda (u--x) (PreludeC-45Types-u--C-61C-61_Eq_Nat (Builtin-fst u--x) 0)) arg-12))))))))))))) -(define TTImpC-45ElabC-45Check-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32searchVarC-44envHints-7106 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26) (let ((sc0 arg-26)) (case (vector-ref sc0 0) ((1) (vector 1 )) ((5) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (vector 2 e-5 e-6)))) ((6) (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (vector 3 e-8 e-9))))(else (vector 1 )))))) -(define TTImpC-45ElabC-45Check-case--caseC-32blockC-32inC-32searchVarC-44envHints-6976 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-19)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-5 (car sc1))) (let ((e-6 (cdr sc1))) (let ((sc2 e-6)) (let ((e-9 (car sc2))) (let ((e-10 (cdr sc2))) (let ((u--nC-39 (PreludeC-45Types-maybe (lambda () arg-11) (lambda () (lambda (eta-0) eta-0)) e-5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-10))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact u--nC-39 (let ((sc4 e-7)) (let ((e-0 (vector-ref sc4 1))) e-0))) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((1) (let ((e-2 (vector-ref sc5 1))) (let ((u--nt (let ((_-0 (vector 1 e-2))) (TTImpC-45ElabC-45Check-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32searchVarC-44envHints-7106 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 e-5 e-9 e-10 u--nC-39 e-7 e-2 _-0 (let ((sc6 e-2)) (let ((e-17 (vector-ref sc6 18))) e-17)))))) (let ((u--app ((e-10 arg-8) u--nt))) (let ((u--tyenv (TTImpC-45ElabC-45Check-n--13775-6562-u--useVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-0 (CoreC-45TT-getArgs u--app) (CoreC-45TT-embed (let ((sc6 e-2)) (let ((e-27 (vector-ref sc6 3))) e-27)))))) (let ((u--binder (vector 1 arg-8 (AlgebraC-45ZeroOneOmega-u--top_Top_ZeroOneOmega) (CoreC-45TT-u--weakenNs_Weaken_Term (CoreC-45TTC-45SizeOf-mkSizeOf arg-14) u--app) (CoreC-45TT-u--weakenNs_Weaken_Term (CoreC-45TTC-45SizeOf-mkSizeOf arg-14) u--tyenv)))) (let ((act-26 (CoreC-45Context-toFullNames arg-10 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-1) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-1)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) u--nC-39 eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (let ((e-11 (vector-ref sc6 1))) (vector 1 (cons (cons e-11 arg-14) (cons (lambda (u--t) (arg-15 (vector 3 arg-8 e-11 u--binder u--t))) (cons u--binder arg-16))))))))))))))) (else (vector 1 (cons arg-14 (cons arg-15 arg-16)))))))))))))))))))))))))) (else (lambda (eta-0) (vector 1 (cons arg-14 (cons arg-15 arg-16))))))))) -(define TTImpC-45ElabC-45Check-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32searchVarC-44find-6803 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (cond ((equal? sc0 0) (vector 1 arg-17)) (else (TTImpC-45ElabC-45Check-n--13775-6563-u--find arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-15 arg-14)))))) -(define TTImpC-45ElabC-45Check-case--searchVarC-44find-6648 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (cond ((equal? sc0 0) (vector 1 arg-13)) (else (let ((sc1 arg-13)) (let ((e-2 (car sc1))) (let ((e-3 (cdr sc1))) (let ((sc2 e-2)) (case (vector-ref sc2 0) ((0) (TTImpC-45ElabC-45Check-n--13775-6563-u--find arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-15 arg-14)) (else (let ((e-6 (vector-ref sc2 1))) (let ((u--t (cons (vector 1 e-6) e-3))) (TTImpC-45ElabC-45Check-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32searchVarC-44find-6803 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-12 e-3 arg-14 arg-15 e-6 u--t (CoreC-45Name-u--C-61C-61_Eq_Name arg-15 e-6))))))))))))))) -(define TTImpC-45ElabC-45Check-case--caseC-32blockC-32inC-32metaVarI-6479 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (let ((e-0 (car sc0))) (cons e-0 0))))) -(define TTImpC-45ElabC-45Check-case--clearToBind-6155 (lambda (arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((e-6 (vector-ref sc0 6))) (let ((e-7 (vector-ref sc0 7))) (let ((e-8 (vector-ref sc0 8))) (let ((e-9 (vector-ref sc0 9))) (let ((e-10 (vector-ref sc0 10))) (let ((e-11 (vector-ref sc0 11))) (let ((e-12 (vector-ref sc0 12))) (let ((e-13 (vector-ref sc0 13))) (vector 0 e-1 e-2 e-3 e-4 e-5 (DataC-45List-filter (lambda (u--x) (PreludeC-45Types-elem (cons (lambda (arg-5) (lambda (arg-6) (CoreC-45Name-u--C-61C-61_Eq_Name arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (CoreC-45Name-u--C-47C-61_Eq_Name arg-5 arg-6)))) (Builtin-fst u--x) arg-1)) e-6) e-7 e-8 e-9 e-10 e-11 e-12 e-13))))))))))))))))) -(define TTImpC-45ElabC-45Check-case--strengthenedEStateC-44strTms-5668 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (if (null? sc0) (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 28 (cons arg-1 arg-0) arg-3 arg-2 arg-6 arg-8) eta-0)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-3)) (if (null? sc2) (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 28 (cons arg-1 arg-0) arg-3 arg-2 arg-6 arg-8) eta-0)) (let ((e-8 (car sc2))) (let ((e-9 (cdr sc2))) (let ((sc3 e-8)) (case (vector-ref sc3 0) ((1) (let ((e-11 (vector-ref sc3 1))) (let ((sc4 e-9)) (if (null? sc4) (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 28 (cons arg-1 arg-0) arg-3 arg-2 arg-6 arg-8) eta-0)) (let ((e-14 (car sc4))) (let ((e-15 (cdr sc4))) (lambda (clam-0) (let ((sc5 e-14)) (case (vector-ref sc5 0) ((1) (let ((e-17 (vector-ref sc5 1))) (let ((sc6 e-15)) (case (vector-ref sc6 0) ((1) (let ((e-19 (vector-ref sc6 1))) (vector 1 (cons arg-6 (vector 1 arg-0 arg-11 e-5 e-11 e-17 e-19)))))(else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 28 (cons arg-1 arg-0) arg-3 arg-2 arg-6 arg-8) clam-0))))))(else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 28 (cons arg-1 arg-0) arg-3 arg-2 arg-6 arg-8) clam-0)))))))))))(else (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 28 (cons arg-1 arg-0) arg-3 arg-2 arg-6 arg-8) eta-0)))))))))))(else (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 28 (cons arg-1 arg-0) arg-3 arg-2 arg-6 arg-8) eta-0))))))))))) -(define TTImpC-45ElabC-45Check-case--strengthenedEStateC-44strTms-5516 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (if (null? sc0) (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 28 (cons arg-1 arg-0) arg-3 arg-2 arg-6 arg-7) eta-0)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-3)) (if (null? sc2) (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 28 (cons arg-1 arg-0) arg-3 arg-2 arg-6 arg-7) eta-0)) (let ((e-8 (car sc2))) (let ((e-9 (cdr sc2))) (lambda (clam-0) (let ((sc3 e-8)) (case (vector-ref sc3 0) ((1) (let ((e-11 (vector-ref sc3 1))) (let ((sc4 e-9)) (case (vector-ref sc4 0) ((1) (let ((e-13 (vector-ref sc4 1))) (vector 1 (cons arg-6 (vector 0 arg-0 arg-10 e-5 e-11 e-13)))))(else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 28 (cons arg-1 arg-0) arg-3 arg-2 arg-6 arg-7) clam-0))))))(else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 28 (cons arg-1 arg-0) arg-3 arg-2 arg-6 arg-7) clam-0)))))))))))(else (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 28 (cons arg-1 arg-0) arg-3 arg-2 arg-6 arg-7) eta-0))))))))))) -(define TTImpC-45ElabC-45Check-case--strengthenedEStateC-44removeArg-5419 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-8) (let ((sc0 arg-8)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (TTImpC-45ElabC-45Check-n--12359-5278-u--removeArgVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3) (lambda (u--argsC-39) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45TT-shrinkTerm e-2 (vector 1 (vector 0 ))) (lambda (u--fC-39) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45TT-apply (CoreC-45TT-getLoc e-2) u--fC-39 u--argsC-39))))))))))) -(define TTImpC-45ElabC-45Check-n--12186-5104-u--wknTms (lambda (arg-0 arg-1 arg-2 arg-4) (let ((sc0 arg-4)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((e-6 (vector-ref sc1 3))) (let ((e-7 (vector-ref sc1 4))) (let ((e-8 (vector-ref sc1 5))) (cons e-2 (vector 0 (cons arg-0 e-4) e-5 (CoreC-45TT-u--map_Functor_PiInfo (lambda (eta-0) (CoreC-45TT-u--weaken_Weaken_Term eta-0)) e-6) (CoreC-45TT-u--weaken_Weaken_Term e-7) (CoreC-45TT-u--weaken_Weaken_Term e-8))))))))) (else (let ((e-9 (vector-ref sc1 1))) (let ((e-10 (vector-ref sc1 2))) (let ((e-11 (vector-ref sc1 3))) (let ((e-12 (vector-ref sc1 4))) (let ((e-13 (vector-ref sc1 5))) (let ((e-14 (vector-ref sc1 6))) (cons e-2 (vector 1 (cons arg-0 e-9) e-10 (CoreC-45TT-u--map_Functor_PiInfo (lambda (eta-0) (CoreC-45TT-u--weaken_Weaken_Term eta-0)) e-11) (CoreC-45TT-u--weaken_Weaken_Term e-12) (CoreC-45TT-u--weaken_Weaken_Term e-13) (CoreC-45TT-u--weaken_Weaken_Term e-14))))))))))))))))) -(define TTImpC-45ElabC-45Check-n--13775-6562-u--useVars (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-12)) (if (null? sc0) arg-13 (let ((e-12 (car sc0))) (let ((e-13 (cdr sc0))) (let ((sc1 arg-13)) (case (vector-ref sc1 0) ((3) (let ((e-15 (vector-ref sc1 1))) (let ((e-16 (vector-ref sc1 2))) (let ((e-17 (vector-ref sc1 3))) (let ((e-18 (vector-ref sc1 4))) (let ((sc2 e-17)) (case (vector-ref sc2 0) ((2) (let ((e-20 (vector-ref sc2 1))) (let ((e-21 (vector-ref sc2 2))) (let ((e-23 (vector-ref sc2 4))) (vector 3 e-15 e-16 (vector 1 e-20 e-21 e-12 e-23) (TTImpC-45ElabC-45Check-n--13775-6562-u--useVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (cons e-16 arg-11) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45TT-u--weaken_Weaken_Term eta-0)) e-13) e-18))))))(else (let ((sc2 arg-13)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-3 (vector-ref sc2 3))) (let ((e-4 (vector-ref sc2 4))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((1) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((e-8 (vector-ref sc3 3))) (let ((e-9 (vector-ref sc3 4))) (vector 3 e-1 e-2 (vector 1 e-6 e-7 e-8 e-9) (TTImpC-45ElabC-45Check-n--13775-6562-u--useVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (cons e-2 arg-11) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45TT-u--weaken_Weaken_Term eta-0)) arg-12) e-4)))))))(else arg-13))))))))(else arg-13)))))))))))(else (let ((sc1 arg-13)) (case (vector-ref sc1 0) ((3) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((e-3 (vector-ref sc1 3))) (let ((e-4 (vector-ref sc1 4))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (let ((e-8 (vector-ref sc2 3))) (let ((e-9 (vector-ref sc2 4))) (vector 3 e-1 e-2 (vector 1 e-6 e-7 e-8 e-9) (TTImpC-45ElabC-45Check-n--13775-6562-u--useVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (cons e-2 arg-11) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45TT-u--weaken_Weaken_Term eta-0)) arg-12) e-4)))))))(else arg-13))))))))(else arg-13)))))))))))) -(define TTImpC-45ElabC-45Check-n--12359-5280-u--strTms (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (lambda (clam-0) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((e-6 (vector-ref sc1 3))) (let ((e-7 (vector-ref sc1 4))) (let ((e-8 (vector-ref sc1 5))) (let ((sc2 e-4)) (let ((act-24 (CoreC-45Normalise-normaliseHoles arg-5 (cons arg-1 arg-0) arg-6 arg-2 e-7 clam-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-9 (vector-ref sc3 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc3 1))) (let ((act-25 (CoreC-45Normalise-normaliseHoles arg-5 (cons arg-1 arg-0) arg-6 arg-2 e-8 clam-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc4 1))) ((TTImpC-45ElabC-45Check-case--strengthenedEStateC-44strTms-5516 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2 e-8 e-7 e-6 e-5 arg-6 e-9 e-10 (cons (CoreC-45TT-shrinkPi e-6 (vector 1 (vector 0 ))) (cons (TTImpC-45ElabC-45Check-n--12359-5279-u--removeArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-9) (CoreC-45TT-shrinkTerm e-10 (vector 1 (vector 0 )))))) clam-0)))))))))))))))))) (else (let ((e-9 (vector-ref sc1 1))) (let ((e-10 (vector-ref sc1 2))) (let ((e-11 (vector-ref sc1 3))) (let ((e-12 (vector-ref sc1 4))) (let ((e-13 (vector-ref sc1 5))) (let ((e-14 (vector-ref sc1 6))) (let ((sc2 e-9)) (let ((act-24 (CoreC-45Normalise-normaliseHoles arg-5 (cons arg-1 arg-0) arg-6 arg-2 e-12 clam-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (CoreC-45Normalise-normaliseHoles arg-5 (cons arg-1 arg-0) arg-6 arg-2 e-13 clam-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (CoreC-45Normalise-normaliseHoles arg-5 (cons arg-1 arg-0) arg-6 arg-2 e-14 clam-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc5 1))) ((TTImpC-45ElabC-45Check-case--strengthenedEStateC-44strTms-5668 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2 e-14 e-13 e-12 e-11 e-10 arg-6 e-5 e-6 e-7 (cons (CoreC-45TT-shrinkPi e-11 (vector 1 (vector 0 ))) (cons (CoreC-45TT-shrinkTerm e-5 (vector 1 (vector 0 ))) (cons (CoreC-45TT-shrinkTerm e-6 (vector 1 (vector 0 ))) (CoreC-45TT-shrinkTerm e-7 (vector 1 (vector 0 ))))))) clam-0)))))))))))))))))))))))))))))))) -(define TTImpC-45ElabC-45Check-n--12359-5278-u--removeArgVars (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7) (let ((sc0 arg-7)) (if (null? sc0) (PreludeC-45Types-u--pure_Applicative_Maybe '()) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (let ((sc2 e-8)) (cond ((equal? sc2 0) (TTImpC-45ElabC-45Check-n--12359-5278-u--removeArgVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3))(else (let ((e-10 (- e-8 1))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (TTImpC-45ElabC-45Check-n--12359-5278-u--removeArgVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3) (lambda (u--argsC-39) (PreludeC-45Types-u--pure_Applicative_Maybe (cons (vector 0 e-6 e-7 e-10) u--argsC-39))))))))))))(else (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45TT-shrinkTerm e-2 (vector 1 (vector 0 ))) (lambda (u--aC-39) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (TTImpC-45ElabC-45Check-n--12359-5278-u--removeArgVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3) (lambda (u--argsC-39) (PreludeC-45Types-u--pure_Applicative_Maybe (cons u--aC-39 u--argsC-39))))))))))))))) -(define TTImpC-45ElabC-45Check-n--12359-5279-u--removeArg (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7) (TTImpC-45ElabC-45Check-case--strengthenedEStateC-44removeArg-5419 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 (CoreC-45TT-getFnArgs arg-7)))) -(define TTImpC-45ElabC-45Check-n--11474-4463-u--insertAll (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-6)) (if (null? sc0) arg-7 (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (LibrariesC-45DataC-45NameMap-insert e-6 e-7 (TTImpC-45ElabC-45Check-n--11474-4463-u--insertAll arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3 arg-7))))))))))) -(define TTImpC-45ElabC-45Check-n--15896-8467-u--getRight (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-11) (TTImpC-45ElabC-45Check-case--exactlyOneC-39C-44getRight-8482 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-11 (DataC-45Either-rights arg-11)))) -(define TTImpC-45ElabC-45Check-n--15896-8468-u--getRes (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10) (let ((sc0 arg-10)) (let ((e-2 (car sc0))) (let ((sc1 e-2)) (let ((e-6 (car sc1))) e-6)))))) -(define TTImpC-45ElabC-45Check-n--15896-8469-u--getDepthError (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((20) (vector 1 arg-9))(else (vector 0 )))))) -(define TTImpC-45ElabC-45Check-n--13775-6563-u--find (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-12 arg-13) (let ((sc0 arg-13)) (if (null? sc0) (vector 0 ) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (TTImpC-45ElabC-45Check-case--searchVarC-44find-6648 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-6 e-7 e-3 arg-12 (CoreC-45Name-u--C-61C-61_Eq_Name arg-12 e-6))))))))))) -(define TTImpC-45ElabC-45Check-n--13775-6564-u--envHints (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 ext-0) (let ((sc0 arg-11)) (if (null? sc0) (vector 1 (cons '() (cons (lambda (eta-0) eta-0) arg-12))) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((act-24 (TTImpC-45ElabC-45Check-n--13775-6564-u--envHints arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-3 arg-12 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-6 (car sc2))) (let ((e-4 (cdr sc2))) (let ((sc3 e-4)) (let ((e-8 (car sc3))) (let ((e-7 (cdr sc3))) (let ((act-25 (CoreC-45Context-toFullNames arg-10 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) e-2 ext-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc4 1))) (let ((_-0 (cons e-6 (cons e-8 e-7)))) ((TTImpC-45ElabC-45Check-case--caseC-32blockC-32inC-32searchVarC-44envHints-6976 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-2 e-3 arg-12 e-6 e-8 e-7 _-0 e-9 (TTImpC-45ElabC-45Check-n--13775-6563-u--find arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-9 arg-3)) ext-0)))))))))))))))))))))))) -(define TTImpC-45ElabC-45Check-n--12359-5281-u--dropTop (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (vector 0 ))(else (let ((e-4 (- arg-7 1))) (vector 1 e-4))))))) -(define TTImpC-45ElabC-45Check-n--12359-5276-u--dropSub (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-9 ext-0) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (let ((e-3 (vector-ref sc0 1))) (vector 1 e-3)))(else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 "Badly formed weakened environment") ext-0)))))) -(define TTImpC-45ElabC-45Check-n--15896-8470-u--depthError (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (if (null? sc0) (vector 0 ) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (let ((e-7 (cdr sc1))) (PreludeC-45Types-maybe (lambda () (TTImpC-45ElabC-45Check-n--15896-8470-u--depthError arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-3)) (lambda () (lambda (eta-0) (vector 1 eta-0))) (TTImpC-45ElabC-45Check-n--15896-8469-u--getDepthError arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-7)))))))))) -(define TTImpC-45ElabC-45Check-n--15896-8471-u--altError (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-11) (let ((sc0 arg-11)) (if (null? sc0) (TTImpC-45ElabC-45Check-case--exactlyOneC-39C-44altError-8696 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 (TTImpC-45ElabC-45Check-n--15896-8470-u--depthError arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10)) (vector 18 arg-0 arg-3 arg-2 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (TTImpC-45ElabC-45Check-n--15896-8468-u--getRes arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 eta-0)) arg-11)))))) -(define TTImpC-45ElabC-45Check-u--show_Show_ElabMode (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) "InType") ((1) (let ((e-0 (vector-ref sc0 1))) (PreludeC-45TypesC-45String-C-43C-43 "InLHS " (AlgebraC-45ZeroOneOmega-u--show_Show_ZeroOneOmega e-0)))) ((2) "InExpr") (else "InTransform"))))) -(define TTImpC-45ElabC-45Check-u--show_Show_C-40ImplBindingC-32C-36varsC-41 (lambda (arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (u--x) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 e-0 u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 e-0 u--d u--x)))) (cons (lambda (u--x) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 e-0 u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 e-0 u--d u--x))))) (cons e-3 e-4)))))) (else (let ((e-5 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 4))) (let ((e-9 (vector-ref sc0 5))) (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (u--x) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 e-5 u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 e-5 u--d u--x)))) (cons (lambda (u--x) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 e-5 u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 e-5 u--d u--x))))) (cons e-8 e-9)) (PreludeC-45TypesC-45String-C-43C-43 "@" (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 e-5 e-8))))))))))) +(define CoreC-45Reflect-appCon (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (CoreC-45Reflect-getCon arg-0 arg-1 arg-2 arg-3 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 (let ((e-0 (vector-ref arg-2 0))) e-0) (CoreC-45TT-apply arg-1 e-5 arg-4) ext-0))))))) +(define TTImpC-45ElabC-45RunElab-n--8293-2609-u--unelabType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 ext-0) (let ((e-2 (car arg-16))) (let ((e-3 (cdr arg-16))) (let ((e-7 (cdr e-3))) (let ((act-24 (TTImpC-45Unelab-unelabUniqueBinders '() arg-13 '() e-7 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (cons e-2 e-5))))))))))) +(define TTImpC-45ElabC-45RunElab-n--8265-1600-u--scriptRet (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-15 arg-16 ext-0) (let ((act-24 (let ((act-24 (unbox arg-13))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (((((((arg-15 arg-0) arg-10) e-5) 0) arg-8) arg-16) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) ((CoreC-45Normalise-nfOpts arg-13 arg-0 (CoreC-45Value-withAll) e-5 arg-8 e-6) ext-0))))))))))) +(define TTImpC-45ElabC-45RunElab-n--8293-2215-u--quotePi (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 ext-0) (case (vector-ref arg-18 0) ((1) (vector 1 (vector 1 ))) ((0) (vector 1 (vector 0 ))) ((2) (vector 1 (vector 2 ))) (else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-10 "Can't add default lambda") ext-0))))) +(define TTImpC-45ElabC-45RunElab-n--10083-3244-u--mkExpected (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 ext-0) (if (null? arg-12) (let ((act-24 (CoreC-45UnifyState-genName arg-11 arg-9 "scriptTy" ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (TTImpC-45ElabC-45Check-metaVar arg-0 arg-11 arg-9 arg-3 (AlgebraC-45Semiring-erased (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))) arg-4 e-5 (vector 11 arg-3) ext-0))))) (let ((e-1 (unbox arg-12))) (let ((act-24 ((CoreC-45Normalise-getTerm e-1) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 e-5))))))))) +(define TTImpC-45ElabC-45RunElab-n--8265-1599-u--failWith (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-15 arg-16 ext-0) (let ((act-24 (CoreC-45Context-clearDefs arg-15 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-13 arg-0 e-5 arg-8 arg-6 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 46 arg-0 arg-10 arg-8 e-6 arg-16) ext-0))))))))))) +(define TTImpC-45ElabC-45RunElab-n--8265-1601-u--elabCon (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (cond ((equal? arg-15 "Pure") (if (null? arg-16) (lambda (eta-0) (TTImpC-45ElabC-45RunElab-n--8265-1599-u--failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 (PreludeC-45TypesC-45String-C-43C-43 "unexpected Elab constructor " (PreludeC-45TypesC-45String-C-43C-43 arg-15 (PreludeC-45TypesC-45String-C-43C-43 ", or incorrect count of arguments: " (PreludeC-45Show-u--show_Show_Nat (PreludeC-45TypesC-45List-length arg-16))))) eta-0)) (let ((e-2 (cdr arg-16))) (if (null? e-2) (lambda (eta-0) (TTImpC-45ElabC-45RunElab-n--8265-1599-u--failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 (PreludeC-45TypesC-45String-C-43C-43 "unexpected Elab constructor " (PreludeC-45TypesC-45String-C-43C-43 arg-15 (PreludeC-45TypesC-45String-C-43C-43 ", or incorrect count of arguments: " (PreludeC-45Show-u--show_Show_Nat (PreludeC-45TypesC-45List-length arg-16))))) eta-0)) (let ((e-4 (car e-2))) (let ((e-5 (cdr e-2))) (lambda (clam-0) (if (null? e-5) (let ((act-24 (CoreC-45Context-clearDefs arg-14 clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref act-24 1))) ((CoreC-45Normalise-evalClosure arg-13 arg-0 e-6 e-4) clam-0))))) (TTImpC-45ElabC-45RunElab-n--8265-1599-u--failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 (PreludeC-45TypesC-45String-C-43C-43 "unexpected Elab constructor " (PreludeC-45TypesC-45String-C-43C-43 arg-15 (PreludeC-45TypesC-45String-C-43C-43 ", or incorrect count of arguments: " (PreludeC-45Show-u--show_Show_Nat (PreludeC-45TypesC-45List-length arg-16))))) clam-0))))))))) ((equal? arg-15 "Bind") (if (null? arg-16) (lambda (eta-0) (TTImpC-45ElabC-45RunElab-n--8265-1599-u--failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 (PreludeC-45TypesC-45String-C-43C-43 "unexpected Elab constructor " (PreludeC-45TypesC-45String-C-43C-43 arg-15 (PreludeC-45TypesC-45String-C-43C-43 ", or incorrect count of arguments: " (PreludeC-45Show-u--show_Show_Nat (PreludeC-45TypesC-45List-length arg-16))))) eta-0)) (let ((e-9 (cdr arg-16))) (if (null? e-9) (lambda (eta-0) (TTImpC-45ElabC-45RunElab-n--8265-1599-u--failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 (PreludeC-45TypesC-45String-C-43C-43 "unexpected Elab constructor " (PreludeC-45TypesC-45String-C-43C-43 arg-15 (PreludeC-45TypesC-45String-C-43C-43 ", or incorrect count of arguments: " (PreludeC-45Show-u--show_Show_Nat (PreludeC-45TypesC-45List-length arg-16))))) eta-0)) (let ((e-12 (cdr e-9))) (if (null? e-12) (lambda (eta-0) (TTImpC-45ElabC-45RunElab-n--8265-1599-u--failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 (PreludeC-45TypesC-45String-C-43C-43 "unexpected Elab constructor " (PreludeC-45TypesC-45String-C-43C-43 arg-15 (PreludeC-45TypesC-45String-C-43C-43 ", or incorrect count of arguments: " (PreludeC-45Show-u--show_Show_Nat (PreludeC-45TypesC-45List-length arg-16))))) eta-0)) (let ((e-14 (car e-12))) (let ((e-15 (cdr e-12))) (if (null? e-15) (lambda (eta-0) (TTImpC-45ElabC-45RunElab-n--8265-1599-u--failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 (PreludeC-45TypesC-45String-C-43C-43 "unexpected Elab constructor " (PreludeC-45TypesC-45String-C-43C-43 arg-15 (PreludeC-45TypesC-45String-C-43C-43 ", or incorrect count of arguments: " (PreludeC-45Show-u--show_Show_Nat (PreludeC-45TypesC-45List-length arg-16))))) eta-0)) (let ((e-17 (car e-15))) (let ((e-18 (cdr e-15))) (lambda (clam-1) (if (null? e-18) (let ((act-24 (let ((act-24 ((CoreC-45Normalise-evalClosure arg-13 arg-0 arg-14 e-14) clam-1))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (TTImpC-45ElabC-45RunElab-elabScript arg-0 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 e-5 arg-7 clam-1))))))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Normalise-evalClosure arg-13 arg-0 arg-14 e-17) clam-1))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((u--script (vector 2 arg-5 arg-4 arg-3 arg-2 arg-1))) (case (vector-ref e-6 0) ((0) (let ((e-3 (vector-ref e-6 3))) (let ((e-4 (vector-ref e-6 4))) (case (vector-ref e-3 0) ((0) (let ((act-26 (CoreC-45Normalise-u--quote_Quote_NF arg-13 arg-0 arg-14 arg-8 e-5 clam-1))) (case (vector-ref act-26 0) ((0) (let ((e-19 (vector-ref act-26 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref act-26 1))) (let ((act-27 (((e-4 arg-14) (CoreC-45Normalise-toClosure (CoreC-45Value-withAll) arg-8 e-19)) clam-1))) (case (vector-ref act-27 0) ((0) (let ((e-20 (vector-ref act-27 1))) (vector 0 e-20))) (else (let ((e-20 (vector-ref act-27 1))) (TTImpC-45ElabC-45RunElab-elabScript arg-0 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 e-20 arg-7 clam-1))))))))))(else (TTImpC-45ElabC-45RunElab-n--8265-1599-u--failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 u--script arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 (PreludeC-45TypesC-45String-C-43C-43 "non-function RHS of a Bind: " (CoreC-45Value-u--show_Show_C-40NFC-32C-36freeC-41 arg-0 e-6)) clam-1))))))(else (TTImpC-45ElabC-45RunElab-n--8265-1599-u--failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 u--script arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 (PreludeC-45TypesC-45String-C-43C-43 "non-function RHS of a Bind: " (CoreC-45Value-u--show_Show_C-40NFC-32C-36freeC-41 arg-0 e-6)) clam-1)))))))))))) (TTImpC-45ElabC-45RunElab-n--8265-1599-u--failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 (PreludeC-45TypesC-45String-C-43C-43 "unexpected Elab constructor " (PreludeC-45TypesC-45String-C-43C-43 arg-15 (PreludeC-45TypesC-45String-C-43C-43 ", or incorrect count of arguments: " (PreludeC-45Show-u--show_Show_Nat (PreludeC-45TypesC-45List-length arg-16))))) clam-1)))))))))))))) ((equal? arg-15 "Fail") (if (null? arg-16) (lambda (eta-0) (TTImpC-45ElabC-45RunElab-n--8265-1599-u--failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 (PreludeC-45TypesC-45String-C-43C-43 "unexpected Elab constructor " (PreludeC-45TypesC-45String-C-43C-43 arg-15 (PreludeC-45TypesC-45String-C-43C-43 ", or incorrect count of arguments: " (PreludeC-45Show-u--show_Show_Nat (PreludeC-45TypesC-45List-length arg-16))))) eta-0)) (let ((e-22 (cdr arg-16))) (if (null? e-22) (lambda (eta-0) (TTImpC-45ElabC-45RunElab-n--8265-1599-u--failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 (PreludeC-45TypesC-45String-C-43C-43 "unexpected Elab constructor " (PreludeC-45TypesC-45String-C-43C-43 arg-15 (PreludeC-45TypesC-45String-C-43C-43 ", or incorrect count of arguments: " (PreludeC-45Show-u--show_Show_Nat (PreludeC-45TypesC-45List-length arg-16))))) eta-0)) (let ((e-24 (car e-22))) (let ((e-25 (cdr e-22))) (lambda (clam-2) (if (null? e-25) (let ((act-24 ((CoreC-45Normalise-evalClosure arg-13 arg-0 arg-14 e-24) clam-2))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Reflect-u--reify_Reify_String arg-13 arg-0 arg-14 e-5) clam-2))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-10 (PreludeC-45TypesC-45String-C-43C-43 "Error during reflection: " e-6)) clam-2))))))))) (TTImpC-45ElabC-45RunElab-n--8265-1599-u--failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 (PreludeC-45TypesC-45String-C-43C-43 "unexpected Elab constructor " (PreludeC-45TypesC-45String-C-43C-43 arg-15 (PreludeC-45TypesC-45String-C-43C-43 ", or incorrect count of arguments: " (PreludeC-45Show-u--show_Show_Nat (PreludeC-45TypesC-45List-length arg-16))))) clam-2))))))))) ((equal? arg-15 "LogMsg") (if (null? arg-16) (lambda (eta-0) (TTImpC-45ElabC-45RunElab-n--8265-1599-u--failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 (PreludeC-45TypesC-45String-C-43C-43 "unexpected Elab constructor " (PreludeC-45TypesC-45String-C-43C-43 arg-15 (PreludeC-45TypesC-45String-C-43C-43 ", or incorrect count of arguments: " (PreludeC-45Show-u--show_Show_Nat (PreludeC-45TypesC-45List-length arg-16))))) eta-0)) (let ((e-28 (car arg-16))) (let ((e-29 (cdr arg-16))) (if (null? e-29) (lambda (eta-0) (TTImpC-45ElabC-45RunElab-n--8265-1599-u--failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 (PreludeC-45TypesC-45String-C-43C-43 "unexpected Elab constructor " (PreludeC-45TypesC-45String-C-43C-43 arg-15 (PreludeC-45TypesC-45String-C-43C-43 ", or incorrect count of arguments: " (PreludeC-45Show-u--show_Show_Nat (PreludeC-45TypesC-45List-length arg-16))))) eta-0)) (let ((e-31 (car e-29))) (let ((e-32 (cdr e-29))) (if (null? e-32) (lambda (eta-0) (TTImpC-45ElabC-45RunElab-n--8265-1599-u--failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 (PreludeC-45TypesC-45String-C-43C-43 "unexpected Elab constructor " (PreludeC-45TypesC-45String-C-43C-43 arg-15 (PreludeC-45TypesC-45String-C-43C-43 ", or incorrect count of arguments: " (PreludeC-45Show-u--show_Show_Nat (PreludeC-45TypesC-45List-length arg-16))))) eta-0)) (let ((e-34 (car e-32))) (let ((e-35 (cdr e-32))) (lambda (clam-3) (if (null? e-35) (let ((act-24 ((CoreC-45Normalise-evalClosure arg-13 arg-0 arg-14 e-28) clam-3))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Normalise-evalClosure arg-13 arg-0 arg-14 e-31) clam-3))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (let ((act-26 ((CoreC-45Reflect-u--reify_Reify_String arg-13 arg-0 arg-14 e-5) clam-3))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (CoreC-45Reflect-u--reify_Reify_Nat arg-13 arg-0 arg-14 e-6 clam-3))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (CoreC-45ContextC-45Log-unverifiedLogC arg-13 e-7 e-8 (lambda (eta-0) (let ((act-28 ((CoreC-45Normalise-evalClosure arg-13 arg-0 arg-14 e-34) eta-0))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-28 1))) ((CoreC-45Reflect-u--reify_Reify_String arg-13 arg-0 arg-14 e-9) eta-0)))))) clam-3))))))))))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (TTImpC-45ElabC-45RunElab-n--8265-1600-u--scriptRet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (CoreC-45Reflect-u--reflect_Reflect_C-40C-124UnitC-44MkUnitC-124C-41 eta-0 eta-1 eta-2 eta-3 eta-4 eta-5 eta-6)))))))) 0 clam-3)))))))))))) (TTImpC-45ElabC-45RunElab-n--8265-1599-u--failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 (PreludeC-45TypesC-45String-C-43C-43 "unexpected Elab constructor " (PreludeC-45TypesC-45String-C-43C-43 arg-15 (PreludeC-45TypesC-45String-C-43C-43 ", or incorrect count of arguments: " (PreludeC-45Show-u--show_Show_Nat (PreludeC-45TypesC-45List-length arg-16))))) clam-3))))))))))))) ((equal? arg-15 "LogTerm") (if (null? arg-16) (lambda (eta-0) (TTImpC-45ElabC-45RunElab-n--8265-1599-u--failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 (PreludeC-45TypesC-45String-C-43C-43 "unexpected Elab constructor " (PreludeC-45TypesC-45String-C-43C-43 arg-15 (PreludeC-45TypesC-45String-C-43C-43 ", or incorrect count of arguments: " (PreludeC-45Show-u--show_Show_Nat (PreludeC-45TypesC-45List-length arg-16))))) eta-0)) (let ((e-38 (car arg-16))) (let ((e-39 (cdr arg-16))) (if (null? e-39) (lambda (eta-0) (TTImpC-45ElabC-45RunElab-n--8265-1599-u--failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 (PreludeC-45TypesC-45String-C-43C-43 "unexpected Elab constructor " (PreludeC-45TypesC-45String-C-43C-43 arg-15 (PreludeC-45TypesC-45String-C-43C-43 ", or incorrect count of arguments: " (PreludeC-45Show-u--show_Show_Nat (PreludeC-45TypesC-45List-length arg-16))))) eta-0)) (let ((e-41 (car e-39))) (let ((e-42 (cdr e-39))) (if (null? e-42) (lambda (eta-0) (TTImpC-45ElabC-45RunElab-n--8265-1599-u--failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 (PreludeC-45TypesC-45String-C-43C-43 "unexpected Elab constructor " (PreludeC-45TypesC-45String-C-43C-43 arg-15 (PreludeC-45TypesC-45String-C-43C-43 ", or incorrect count of arguments: " (PreludeC-45Show-u--show_Show_Nat (PreludeC-45TypesC-45List-length arg-16))))) eta-0)) (let ((e-44 (car e-42))) (let ((e-45 (cdr e-42))) (if (null? e-45) (lambda (eta-0) (TTImpC-45ElabC-45RunElab-n--8265-1599-u--failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 (PreludeC-45TypesC-45String-C-43C-43 "unexpected Elab constructor " (PreludeC-45TypesC-45String-C-43C-43 arg-15 (PreludeC-45TypesC-45String-C-43C-43 ", or incorrect count of arguments: " (PreludeC-45Show-u--show_Show_Nat (PreludeC-45TypesC-45List-length arg-16))))) eta-0)) (let ((e-47 (car e-45))) (let ((e-48 (cdr e-45))) (lambda (clam-4) (if (null? e-48) (let ((act-24 ((CoreC-45Normalise-evalClosure arg-13 arg-0 arg-14 e-38) clam-4))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Normalise-evalClosure arg-13 arg-0 arg-14 e-41) clam-4))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (let ((act-26 ((CoreC-45Reflect-u--reify_Reify_String arg-13 arg-0 arg-14 e-5) clam-4))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (CoreC-45Reflect-u--reify_Reify_Nat arg-13 arg-0 arg-14 e-6 clam-4))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (CoreC-45ContextC-45Log-unverifiedLogC arg-13 e-7 e-8 (lambda (eta-0) (let ((act-28 ((CoreC-45Normalise-evalClosure arg-13 arg-0 arg-14 e-44) eta-0))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-28 1))) (let ((act-29 ((CoreC-45Normalise-evalClosure arg-13 arg-0 arg-14 e-47) eta-0))) (case (vector-ref act-29 0) ((0) (let ((e-2 (vector-ref act-29 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref act-29 1))) (let ((act-30 ((CoreC-45Reflect-u--reify_Reify_String arg-13 arg-0 arg-14 e-9) eta-0))) (case (vector-ref act-30 0) ((0) (let ((e-2 (vector-ref act-30 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref act-30 1))) (let ((act-31 (TTImpC-45Reflect-u--reify_Reify_RawImp arg-13 arg-0 arg-14 e-10 eta-0))) (case (vector-ref act-31 0) ((0) (let ((e-2 (vector-ref act-31 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref act-31 1))) (vector 1 (PreludeC-45TypesC-45String-C-43C-43 e-11 (PreludeC-45TypesC-45String-C-43C-43 ": " (TTImpC-45TTImp-u--show_Show_RawImp e-12))))))))))))))))))))) clam-4))))))))))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (TTImpC-45ElabC-45RunElab-n--8265-1600-u--scriptRet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (CoreC-45Reflect-u--reflect_Reflect_C-40C-124UnitC-44MkUnitC-124C-41 eta-0 eta-1 eta-2 eta-3 eta-4 eta-5 eta-6)))))))) 0 clam-4)))))))))))) (TTImpC-45ElabC-45RunElab-n--8265-1599-u--failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 (PreludeC-45TypesC-45String-C-43C-43 "unexpected Elab constructor " (PreludeC-45TypesC-45String-C-43C-43 arg-15 (PreludeC-45TypesC-45String-C-43C-43 ", or incorrect count of arguments: " (PreludeC-45Show-u--show_Show_Nat (PreludeC-45TypesC-45List-length arg-16))))) clam-4)))))))))))))))) ((equal? arg-15 "Check") (if (null? arg-16) (lambda (eta-0) (TTImpC-45ElabC-45RunElab-n--8265-1599-u--failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 (PreludeC-45TypesC-45String-C-43C-43 "unexpected Elab constructor " (PreludeC-45TypesC-45String-C-43C-43 arg-15 (PreludeC-45TypesC-45String-C-43C-43 ", or incorrect count of arguments: " (PreludeC-45Show-u--show_Show_Nat (PreludeC-45TypesC-45List-length arg-16))))) eta-0)) (let ((e-51 (car arg-16))) (let ((e-52 (cdr arg-16))) (if (null? e-52) (lambda (eta-0) (TTImpC-45ElabC-45RunElab-n--8265-1599-u--failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 (PreludeC-45TypesC-45String-C-43C-43 "unexpected Elab constructor " (PreludeC-45TypesC-45String-C-43C-43 arg-15 (PreludeC-45TypesC-45String-C-43C-43 ", or incorrect count of arguments: " (PreludeC-45Show-u--show_Show_Nat (PreludeC-45TypesC-45List-length arg-16))))) eta-0)) (let ((e-54 (car e-52))) (let ((e-55 (cdr e-52))) (lambda (clam-5) (if (null? e-55) (let ((act-24 ((CoreC-45Normalise-evalClosure arg-13 arg-0 arg-14 e-51) clam-5))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Normalise-evalClosure arg-13 arg-0 arg-14 e-54) clam-5))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Context-resolveName arg-13 (vector 1 "[elaborator script]") clam-5))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (CoreC-45Core-newRef (vector "TTImp.Elab.Check.EST" ) (TTImpC-45ElabC-45Check-initEState arg-0 e-7 arg-8) clam-5))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (let ((act-28 (let ((act-28 (TTImpC-45Reflect-u--reify_Reify_RawImp arg-13 arg-0 arg-14 e-6 clam-5))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-28 1))) (TTImpC-45ElabC-45Delayed-runDelays arg-0 arg-13 arg-12 arg-11 e-8 0 (lambda (eta-0) (TTImpC-45ElabC-45Check-check arg-0 arg-13 arg-12 arg-11 e-8 (AlgebraC-45ZeroOneOmega-u--top_Top_ZeroOneOmega) (TTImpC-45ElabC-45Check-initElabInfo (vector 2 )) arg-9 arg-8 e-9 (box (CoreC-45Normalise-glueBack arg-13 arg-0 arg-14 arg-8 e-5)) eta-0)) clam-5))))))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-28 1))) (let ((e-2 (car e-9))) (let ((act-29 (CoreC-45Context-clearDefs arg-14 clam-5))) (case (vector-ref act-29 0) ((0) (let ((e-4 (vector-ref act-29 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref act-29 1))) ((CoreC-45Normalise-nf arg-13 arg-0 e-10 arg-8 e-2) clam-5)))))))))))))))))))))))))) (TTImpC-45ElabC-45RunElab-n--8265-1599-u--failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 (PreludeC-45TypesC-45String-C-43C-43 "unexpected Elab constructor " (PreludeC-45TypesC-45String-C-43C-43 arg-15 (PreludeC-45TypesC-45String-C-43C-43 ", or incorrect count of arguments: " (PreludeC-45Show-u--show_Show_Nat (PreludeC-45TypesC-45List-length arg-16))))) clam-5)))))))))) ((equal? arg-15 "Quote") (if (null? arg-16) (lambda (eta-0) (TTImpC-45ElabC-45RunElab-n--8265-1599-u--failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 (PreludeC-45TypesC-45String-C-43C-43 "unexpected Elab constructor " (PreludeC-45TypesC-45String-C-43C-43 arg-15 (PreludeC-45TypesC-45String-C-43C-43 ", or incorrect count of arguments: " (PreludeC-45Show-u--show_Show_Nat (PreludeC-45TypesC-45List-length arg-16))))) eta-0)) (let ((e-59 (cdr arg-16))) (if (null? e-59) (lambda (eta-0) (TTImpC-45ElabC-45RunElab-n--8265-1599-u--failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 (PreludeC-45TypesC-45String-C-43C-43 "unexpected Elab constructor " (PreludeC-45TypesC-45String-C-43C-43 arg-15 (PreludeC-45TypesC-45String-C-43C-43 ", or incorrect count of arguments: " (PreludeC-45Show-u--show_Show_Nat (PreludeC-45TypesC-45List-length arg-16))))) eta-0)) (let ((e-61 (car e-59))) (let ((e-62 (cdr e-59))) (lambda (clam-6) (if (null? e-62) (let ((act-24 ((CoreC-45Normalise-evalClosure arg-13 arg-0 arg-14 e-61) clam-6))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (let ((act-25 (unbox arg-13))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Context-clearDefs e-6 clam-6))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (CoreC-45Normalise-u--quote_Quote_NF arg-13 arg-0 e-7 arg-8 e-5 clam-6))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (let ((act-28 (TTImpC-45Unelab-unelabUniqueBinders arg-0 arg-13 arg-8 e-8 clam-6))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-28 1))) (TTImpC-45ElabC-45RunElab-n--8265-1600-u--scriptRet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (TTImpC-45Reflect-u--reflect_Reflect_RawImp eta-0 eta-1 eta-2 eta-3 eta-4 eta-5))))))) e-9 clam-6))))))))))))))))))))) (TTImpC-45ElabC-45RunElab-n--8265-1599-u--failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 (PreludeC-45TypesC-45String-C-43C-43 "unexpected Elab constructor " (PreludeC-45TypesC-45String-C-43C-43 arg-15 (PreludeC-45TypesC-45String-C-43C-43 ", or incorrect count of arguments: " (PreludeC-45Show-u--show_Show_Nat (PreludeC-45TypesC-45List-length arg-16))))) clam-6))))))))) ((equal? arg-15 "Lambda") (if (null? arg-16) (lambda (eta-0) (TTImpC-45ElabC-45RunElab-n--8265-1599-u--failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 (PreludeC-45TypesC-45String-C-43C-43 "unexpected Elab constructor " (PreludeC-45TypesC-45String-C-43C-43 arg-15 (PreludeC-45TypesC-45String-C-43C-43 ", or incorrect count of arguments: " (PreludeC-45Show-u--show_Show_Nat (PreludeC-45TypesC-45List-length arg-16))))) eta-0)) (let ((e-65 (car arg-16))) (let ((e-66 (cdr arg-16))) (if (null? e-66) (lambda (eta-0) (TTImpC-45ElabC-45RunElab-n--8265-1599-u--failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 (PreludeC-45TypesC-45String-C-43C-43 "unexpected Elab constructor " (PreludeC-45TypesC-45String-C-43C-43 arg-15 (PreludeC-45TypesC-45String-C-43C-43 ", or incorrect count of arguments: " (PreludeC-45Show-u--show_Show_Nat (PreludeC-45TypesC-45List-length arg-16))))) eta-0)) (let ((e-68 (car e-66))) (let ((e-69 (cdr e-66))) (if (null? e-69) (lambda (eta-0) (TTImpC-45ElabC-45RunElab-n--8265-1599-u--failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 (PreludeC-45TypesC-45String-C-43C-43 "unexpected Elab constructor " (PreludeC-45TypesC-45String-C-43C-43 arg-15 (PreludeC-45TypesC-45String-C-43C-43 ", or incorrect count of arguments: " (PreludeC-45Show-u--show_Show_Nat (PreludeC-45TypesC-45List-length arg-16))))) eta-0)) (let ((e-71 (car e-69))) (let ((e-72 (cdr e-69))) (lambda (clam-7) (if (null? e-72) (let ((act-24 (CoreC-45Context-clearDefs arg-14 clam-7))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Normalise-evalClosure arg-13 arg-0 arg-14 e-71) clam-7))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((u--script (vector 2 arg-5 arg-4 arg-3 arg-2 arg-1))) (case (vector-ref e-6 0) ((0) (let ((e-1 (vector-ref e-6 1))) (let ((e-2 (vector-ref e-6 2))) (let ((e-3 (vector-ref e-6 3))) (let ((e-4 (vector-ref e-6 4))) (case (vector-ref e-3 0) ((0) (let ((e-10 (vector-ref e-3 1))) (let ((e-7 (vector-ref e-3 2))) (let ((e-8 (vector-ref e-3 3))) (let ((e-9 (vector-ref e-3 4))) (let ((act-26 (CoreC-45UnifyState-genVarName arg-13 arg-11 "x" clam-7))) (case (vector-ref act-26 0) ((0) (let ((e-11 (vector-ref act-26 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-26 1))) (let ((act-27 (((e-4 arg-14) (CoreC-45Normalise-toClosure (CoreC-45Value-withAll) arg-8 (vector 1 e-1 (vector 0 ) e-11))) clam-7))) (case (vector-ref act-27 0) ((0) (let ((e-12 (vector-ref act-27 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref act-27 1))) (let ((act-28 (CoreC-45Normalise-u--quote_Quote_NF arg-13 arg-0 e-5 arg-8 e-12 clam-7))) (case (vector-ref act-28 0) ((0) (let ((e-13 (vector-ref act-28 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref act-28 1))) (let ((u--lamsc (CoreC-45TT-refToLocal e-11 e-2 e-13))) (let ((act-29 (TTImpC-45ElabC-45RunElab-n--8293-2215-u--quotePi arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 u--script arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-68 e-65 e-71 arg-14 e-8 clam-7))) (case (vector-ref act-29 0) ((0) (let ((e-14 (vector-ref act-29 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref act-29 1))) (let ((act-30 (CoreC-45Normalise-u--quote_Quote_NF arg-13 arg-0 e-5 arg-8 e-9 clam-7))) (case (vector-ref act-30 0) ((0) (let ((e-15 (vector-ref act-30 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref act-30 1))) (let ((u--envC-39 (cons (vector 0 e-10 e-7 e-14 e-15) arg-8))) (let ((act-31 (let ((act-31 ((CoreC-45Normalise-nf arg-13 (cons e-2 arg-0) arg-14 u--envC-39 u--lamsc) clam-7))) (case (vector-ref act-31 0) ((0) (let ((e-16 (vector-ref act-31 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref act-31 1))) (TTImpC-45ElabC-45RunElab-elabScript (cons e-2 arg-0) arg-13 arg-12 arg-11 arg-10 (TTImpC-45TTImp-u--weaken_Weaken_NestedNames arg-9) u--envC-39 e-16 '() clam-7))))))) (case (vector-ref act-31 0) ((0) (let ((e-16 (vector-ref act-31 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref act-31 1))) (let ((act-32 (CoreC-45Normalise-u--quote_Quote_NF arg-13 (cons e-2 arg-0) e-5 u--envC-39 e-16 clam-7))) (case (vector-ref act-32 0) ((0) (let ((e-17 (vector-ref act-32 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref act-32 1))) ((CoreC-45Normalise-nf arg-13 arg-0 e-5 arg-8 (vector 3 e-1 e-2 (vector 0 e-10 e-7 e-14 e-15) e-17)) clam-7))))))))))))))))))))))))))))))))))))(else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-10 "Not a lambda") clam-7))))))))(else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-10 "Not a lambda") clam-7)))))))))))) (TTImpC-45ElabC-45RunElab-n--8265-1599-u--failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 (PreludeC-45TypesC-45String-C-43C-43 "unexpected Elab constructor " (PreludeC-45TypesC-45String-C-43C-43 arg-15 (PreludeC-45TypesC-45String-C-43C-43 ", or incorrect count of arguments: " (PreludeC-45Show-u--show_Show_Nat (PreludeC-45TypesC-45List-length arg-16))))) clam-7))))))))))))) ((equal? arg-15 "Goal") (if (null? arg-16) (let ((u--script (vector 2 arg-5 arg-4 arg-3 arg-2 arg-1))) (lambda (clam-0) (if (null? arg-7) (let ((act-24 (CoreC-45Reflect-u--reflect_Reflect_C-40MaybeC-32C-36aC-41 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (TTImpC-45Reflect-u--reflect_Reflect_RawImp eta-0 eta-1 eta-2 eta-3 eta-4 eta-5))))))) arg-0 arg-10 arg-14 0 arg-8 '() clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) ((CoreC-45Normalise-nfOpts arg-13 arg-0 (CoreC-45Value-withAll) arg-14 arg-8 e-5) clam-0))))) (let ((e-1 (unbox arg-7))) (let ((act-24 ((CoreC-45Normalise-getTerm e-1) clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (TTImpC-45Unelab-unelabUniqueBinders arg-0 arg-13 arg-8 e-5 clam-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (TTImpC-45ElabC-45RunElab-n--8265-1600-u--scriptRet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 u--script arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (CoreC-45Reflect-u--reflect_Reflect_C-40MaybeC-32C-36aC-41 (lambda (eta-7) (lambda (eta-8) (lambda (eta-9) (lambda (eta-10) (lambda (eta-11) (lambda (eta-12) (TTImpC-45Reflect-u--reflect_Reflect_RawImp eta-7 eta-8 eta-9 eta-10 eta-11 eta-12))))))) eta-0 eta-1 eta-2 eta-3 eta-4 eta-5 eta-6)))))))) (box e-6) clam-0))))))))))))) (lambda (eta-0) (TTImpC-45ElabC-45RunElab-n--8265-1599-u--failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 (PreludeC-45TypesC-45String-C-43C-43 "unexpected Elab constructor " (PreludeC-45TypesC-45String-C-43C-43 arg-15 (PreludeC-45TypesC-45String-C-43C-43 ", or incorrect count of arguments: " (PreludeC-45Show-u--show_Show_Nat (PreludeC-45TypesC-45List-length arg-16))))) eta-0)))) ((equal? arg-15 "LocalVars") (lambda (clam-8) (if (null? arg-16) (TTImpC-45ElabC-45RunElab-n--8265-1600-u--scriptRet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (CoreC-45Reflect-u--reflect_Reflect_C-40ListC-32C-36aC-41 (lambda (eta-7) (lambda (eta-8) (lambda (eta-9) (lambda (eta-10) (lambda (eta-11) (lambda (eta-12) (lambda (eta-13) (CoreC-45Reflect-u--reflect_Reflect_Name eta-7 eta-8 eta-9 eta-10 eta-11 eta-12 eta-13)))))))) eta-0 eta-1 eta-2 eta-3 eta-4 eta-5 eta-6)))))))) arg-0 clam-8) (TTImpC-45ElabC-45RunElab-n--8265-1599-u--failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 (PreludeC-45TypesC-45String-C-43C-43 "unexpected Elab constructor " (PreludeC-45TypesC-45String-C-43C-43 arg-15 (PreludeC-45TypesC-45String-C-43C-43 ", or incorrect count of arguments: " (PreludeC-45Show-u--show_Show_Nat (PreludeC-45TypesC-45List-length arg-16))))) clam-8)))) ((equal? arg-15 "GenSym") (if (null? arg-16) (lambda (eta-0) (TTImpC-45ElabC-45RunElab-n--8265-1599-u--failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 (PreludeC-45TypesC-45String-C-43C-43 "unexpected Elab constructor " (PreludeC-45TypesC-45String-C-43C-43 arg-15 (PreludeC-45TypesC-45String-C-43C-43 ", or incorrect count of arguments: " (PreludeC-45Show-u--show_Show_Nat (PreludeC-45TypesC-45List-length arg-16))))) eta-0)) (let ((e-77 (car arg-16))) (let ((e-78 (cdr arg-16))) (lambda (clam-9) (if (null? e-78) (let ((act-24 ((CoreC-45Normalise-evalClosure arg-13 arg-0 arg-14 e-77) clam-9))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (let ((act-25 ((CoreC-45Reflect-u--reify_Reify_String arg-13 arg-0 arg-14 e-5) clam-9))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (CoreC-45UnifyState-genVarName arg-13 arg-11 e-6 clam-9))))))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (TTImpC-45ElabC-45RunElab-n--8265-1600-u--scriptRet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (CoreC-45Reflect-u--reflect_Reflect_Name eta-0 eta-1 eta-2 eta-3 eta-4 eta-5 eta-6)))))))) e-6 clam-9))))))))) (TTImpC-45ElabC-45RunElab-n--8265-1599-u--failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 (PreludeC-45TypesC-45String-C-43C-43 "unexpected Elab constructor " (PreludeC-45TypesC-45String-C-43C-43 arg-15 (PreludeC-45TypesC-45String-C-43C-43 ", or incorrect count of arguments: " (PreludeC-45Show-u--show_Show_Nat (PreludeC-45TypesC-45List-length arg-16))))) clam-9))))))) ((equal? arg-15 "InCurrentNS") (if (null? arg-16) (lambda (eta-0) (TTImpC-45ElabC-45RunElab-n--8265-1599-u--failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 (PreludeC-45TypesC-45String-C-43C-43 "unexpected Elab constructor " (PreludeC-45TypesC-45String-C-43C-43 arg-15 (PreludeC-45TypesC-45String-C-43C-43 ", or incorrect count of arguments: " (PreludeC-45Show-u--show_Show_Nat (PreludeC-45TypesC-45List-length arg-16))))) eta-0)) (let ((e-81 (car arg-16))) (let ((e-82 (cdr arg-16))) (lambda (clam-10) (if (null? e-82) (let ((act-24 ((CoreC-45Normalise-evalClosure arg-13 arg-0 arg-14 e-81) clam-10))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (let ((act-25 (CoreC-45Reflect-u--reify_Reify_Name arg-13 arg-0 arg-14 e-5 clam-10))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (CoreC-45Context-inCurrentNS arg-13 e-6 clam-10))))))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (TTImpC-45ElabC-45RunElab-n--8265-1600-u--scriptRet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (CoreC-45Reflect-u--reflect_Reflect_Name eta-0 eta-1 eta-2 eta-3 eta-4 eta-5 eta-6)))))))) e-6 clam-10))))))))) (TTImpC-45ElabC-45RunElab-n--8265-1599-u--failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 (PreludeC-45TypesC-45String-C-43C-43 "unexpected Elab constructor " (PreludeC-45TypesC-45String-C-43C-43 arg-15 (PreludeC-45TypesC-45String-C-43C-43 ", or incorrect count of arguments: " (PreludeC-45Show-u--show_Show_Nat (PreludeC-45TypesC-45List-length arg-16))))) clam-10))))))) ((equal? arg-15 "GetType") (if (null? arg-16) (lambda (eta-0) (TTImpC-45ElabC-45RunElab-n--8265-1599-u--failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 (PreludeC-45TypesC-45String-C-43C-43 "unexpected Elab constructor " (PreludeC-45TypesC-45String-C-43C-43 arg-15 (PreludeC-45TypesC-45String-C-43C-43 ", or incorrect count of arguments: " (PreludeC-45Show-u--show_Show_Nat (PreludeC-45TypesC-45List-length arg-16))))) eta-0)) (let ((e-85 (car arg-16))) (let ((e-86 (cdr arg-16))) (lambda (clam-11) (if (null? e-86) (let ((act-24 ((CoreC-45Normalise-evalClosure arg-13 arg-0 arg-14 e-85) clam-11))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (let ((act-25 (CoreC-45Reflect-u--reify_Reify_Name arg-13 arg-0 arg-14 e-5 clam-11))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (CoreC-45Context-lookupTyName e-6 (let ((e-0 (vector-ref arg-14 0))) e-0) clam-11))))))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (let ((u--script (vector 2 arg-5 arg-4 arg-3 arg-2 arg-1))) (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (TTImpC-45ElabC-45RunElab-n--8293-2609-u--unelabType arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 u--script arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-85 arg-14 eta-0 eta-1))) e-6 '() clam-11)))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (TTImpC-45ElabC-45RunElab-n--8265-1600-u--scriptRet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (CoreC-45Reflect-u--reflect_Reflect_C-40ListC-32C-36aC-41 (lambda (eta-7) (lambda (eta-8) (lambda (eta-9) (lambda (eta-10) (lambda (eta-11) (lambda (eta-12) (lambda (eta-13) (CoreC-45Reflect-u--reflect_Reflect_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (eta-14) (lambda (eta-15) (lambda (eta-16) (lambda (eta-17) (lambda (eta-18) (lambda (eta-19) (lambda (eta-20) (CoreC-45Reflect-u--reflect_Reflect_Name eta-14 eta-15 eta-16 eta-17 eta-18 eta-19 eta-20)))))))) (lambda (eta-14) (lambda (eta-15) (lambda (eta-16) (lambda (eta-17) (lambda (eta-18) (lambda (eta-19) (TTImpC-45Reflect-u--reflect_Reflect_RawImp eta-14 eta-15 eta-16 eta-17 eta-18 eta-19)))))))) eta-7 eta-8 eta-9 eta-10 eta-11 eta-12 eta-13)))))))) eta-0 eta-1 eta-2 eta-3 eta-4 eta-5 eta-6)))))))) e-7 clam-11))))))))))))) (TTImpC-45ElabC-45RunElab-n--8265-1599-u--failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 (PreludeC-45TypesC-45String-C-43C-43 "unexpected Elab constructor " (PreludeC-45TypesC-45String-C-43C-43 arg-15 (PreludeC-45TypesC-45String-C-43C-43 ", or incorrect count of arguments: " (PreludeC-45Show-u--show_Show_Nat (PreludeC-45TypesC-45List-length arg-16))))) clam-11))))))) ((equal? arg-15 "GetLocalType") (if (null? arg-16) (lambda (eta-0) (TTImpC-45ElabC-45RunElab-n--8265-1599-u--failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 (PreludeC-45TypesC-45String-C-43C-43 "unexpected Elab constructor " (PreludeC-45TypesC-45String-C-43C-43 arg-15 (PreludeC-45TypesC-45String-C-43C-43 ", or incorrect count of arguments: " (PreludeC-45Show-u--show_Show_Nat (PreludeC-45TypesC-45List-length arg-16))))) eta-0)) (let ((e-89 (car arg-16))) (let ((e-90 (cdr arg-16))) (lambda (clam-12) (if (null? e-90) (let ((act-24 ((CoreC-45Normalise-evalClosure arg-13 arg-0 arg-14 e-89) clam-12))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Reflect-u--reify_Reify_Name arg-13 arg-0 arg-14 e-5 clam-12))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((u--script (vector 2 arg-5 arg-4 arg-3 arg-2 arg-1))) (let ((sc5 (CoreC-45Env-defined arg-0 e-6 arg-8))) (if (null? sc5) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-10 (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-6) " is not a local variable")) clam-12) (let ((e-1 (unbox sc5))) (if (null? e-1) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-10 (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-6) " is not a local variable")) clam-12) (let ((e-4 (car e-1))) (let ((u--binder (CoreC-45Env-getBinder (cons (lambda (u--n) (lambda (u--vars) (lambda (arg-5607) (CoreC-45TT-u--weaken_Weaken_Term arg-5607)))) (lambda (u--vars) (lambda (u--ns) (lambda (arg-5613) (lambda (arg-5615) (CoreC-45TT-u--weakenNs_Weaken_Term arg-5613 arg-5615)))))) arg-0 e-4 arg-8))) (let ((u--bty (CoreC-45TT-binderType u--binder))) (let ((act-26 (TTImpC-45Unelab-unelabUniqueBinders arg-0 arg-13 arg-8 u--bty clam-12))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-26 1))) (TTImpC-45ElabC-45RunElab-n--8265-1600-u--scriptRet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 u--script arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (TTImpC-45Reflect-u--reflect_Reflect_RawImp eta-0 eta-1 eta-2 eta-3 eta-4 eta-5))))))) e-8 clam-12))))))))))))))))))))) (TTImpC-45ElabC-45RunElab-n--8265-1599-u--failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 (PreludeC-45TypesC-45String-C-43C-43 "unexpected Elab constructor " (PreludeC-45TypesC-45String-C-43C-43 arg-15 (PreludeC-45TypesC-45String-C-43C-43 ", or incorrect count of arguments: " (PreludeC-45Show-u--show_Show_Nat (PreludeC-45TypesC-45List-length arg-16))))) clam-12))))))) ((equal? arg-15 "GetCons") (if (null? arg-16) (lambda (eta-0) (TTImpC-45ElabC-45RunElab-n--8265-1599-u--failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 (PreludeC-45TypesC-45String-C-43C-43 "unexpected Elab constructor " (PreludeC-45TypesC-45String-C-43C-43 arg-15 (PreludeC-45TypesC-45String-C-43C-43 ", or incorrect count of arguments: " (PreludeC-45Show-u--show_Show_Nat (PreludeC-45TypesC-45List-length arg-16))))) eta-0)) (let ((e-93 (car arg-16))) (let ((e-94 (cdr arg-16))) (lambda (clam-13) (if (null? e-94) (let ((act-24 ((CoreC-45Normalise-evalClosure arg-13 arg-0 arg-14 e-93) clam-13))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Reflect-u--reify_Reify_Name arg-13 arg-0 arg-14 e-5 clam-13))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Context-lookupDefExact e-6 (let ((e-0 (vector-ref arg-14 0))) e-0) clam-13))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((u--script (vector 2 arg-5 arg-4 arg-3 arg-2 arg-1))) (if (null? e-7) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-10 (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-6) " is not a type")) clam-13) (let ((e-1 (unbox e-7))) (case (vector-ref e-1 0) ((6) (let ((e-8 (vector-ref e-1 7))) (TTImpC-45ElabC-45RunElab-n--8265-1600-u--scriptRet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 u--script arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (CoreC-45Reflect-u--reflect_Reflect_C-40ListC-32C-36aC-41 (lambda (eta-7) (lambda (eta-8) (lambda (eta-9) (lambda (eta-10) (lambda (eta-11) (lambda (eta-12) (lambda (eta-13) (CoreC-45Reflect-u--reflect_Reflect_Name eta-7 eta-8 eta-9 eta-10 eta-11 eta-12 eta-13)))))))) eta-0 eta-1 eta-2 eta-3 eta-4 eta-5 eta-6)))))))) e-8 clam-13)))(else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-10 (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-6) " is not a type")) clam-13)))))))))))))))))) (TTImpC-45ElabC-45RunElab-n--8265-1599-u--failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 (PreludeC-45TypesC-45String-C-43C-43 "unexpected Elab constructor " (PreludeC-45TypesC-45String-C-43C-43 arg-15 (PreludeC-45TypesC-45String-C-43C-43 ", or incorrect count of arguments: " (PreludeC-45Show-u--show_Show_Nat (PreludeC-45TypesC-45List-length arg-16))))) clam-13))))))) ((equal? arg-15 "Declare") (if (null? arg-16) (lambda (eta-0) (TTImpC-45ElabC-45RunElab-n--8265-1599-u--failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 (PreludeC-45TypesC-45String-C-43C-43 "unexpected Elab constructor " (PreludeC-45TypesC-45String-C-43C-43 arg-15 (PreludeC-45TypesC-45String-C-43C-43 ", or incorrect count of arguments: " (PreludeC-45Show-u--show_Show_Nat (PreludeC-45TypesC-45List-length arg-16))))) eta-0)) (let ((e-97 (car arg-16))) (let ((e-98 (cdr arg-16))) (lambda (clam-14) (if (null? e-98) (let ((act-24 ((CoreC-45Normalise-evalClosure arg-13 arg-0 arg-14 e-97) clam-14))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Reflect-u--reify_Reify_C-40ListC-32C-36aC-41 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (TTImpC-45Reflect-u--reify_Reify_ImpDecl eta-0 eta-1 eta-2 eta-3 eta-4)))))) arg-13 arg-0 arg-14 e-5 clam-14))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Core-traverse_ (lambda (eta-0) (TTImpC-45ElabC-45Check-processDecl '() arg-13 arg-12 arg-11 '() '() '() eta-0)) e-6 clam-14))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (TTImpC-45ElabC-45RunElab-n--8265-1600-u--scriptRet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (CoreC-45Reflect-u--reflect_Reflect_C-40C-124UnitC-44MkUnitC-124C-41 eta-0 eta-1 eta-2 eta-3 eta-4 eta-5 eta-6)))))))) 0 clam-14)))))))))))) (TTImpC-45ElabC-45RunElab-n--8265-1599-u--failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 (PreludeC-45TypesC-45String-C-43C-43 "unexpected Elab constructor " (PreludeC-45TypesC-45String-C-43C-43 arg-15 (PreludeC-45TypesC-45String-C-43C-43 ", or incorrect count of arguments: " (PreludeC-45Show-u--show_Show_Nat (PreludeC-45TypesC-45List-length arg-16))))) clam-14)))))))(else (lambda (eta-0) (TTImpC-45ElabC-45RunElab-n--8265-1599-u--failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 (PreludeC-45TypesC-45String-C-43C-43 "unexpected Elab constructor " (PreludeC-45TypesC-45String-C-43C-43 arg-15 (PreludeC-45TypesC-45String-C-43C-43 ", or incorrect count of arguments: " (PreludeC-45Show-u--show_Show_Nat (PreludeC-45TypesC-45List-length arg-16))))) eta-0)))))) +(define TTImpC-45ElabC-45RunElab-elabScript (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 ext-0) (case (vector-ref arg-7 0) ((2) (let ((e-1 (vector-ref arg-7 1))) (let ((e-2 (vector-ref arg-7 2))) (let ((e-3 (vector-ref arg-7 3))) (let ((e-4 (vector-ref arg-7 4))) (let ((e-5 (vector-ref arg-7 5))) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-1 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-0))))) e-2 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-7 (vector-ref act-25 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-25 1))) (let ((u--script (vector 2 e-1 e-2 e-3 e-4 e-5))) (case (vector-ref e-7 0) ((0) (let ((e-0 (vector-ref e-7 1))) (let ((e-8 (vector-ref e-7 2))) (case (vector-ref e-8 0) ((1) (let ((e-9 (vector-ref e-8 1))) (let ((sc5 (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace e-0 (CoreC-45NameC-45Namespace-reflectionNS)))) (cond ((equal? sc5 1) ((TTImpC-45ElabC-45RunElab-n--8265-1601-u--elabCon arg-0 e-5 e-4 e-3 e-2 e-1 u--script arg-8 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-6 e-9 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) ext-0)) (else (TTImpC-45ElabC-45RunElab-n--8265-1599-u--failWith arg-0 e-5 e-4 e-3 e-2 e-1 u--script arg-8 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-6 (PreludeC-45TypesC-45String-C-43C-43 "bad reflection namespace " (CoreC-45NameC-45Namespace-u--show_Show_Namespace e-0)) ext-0))))))(else (TTImpC-45ElabC-45RunElab-n--8265-1599-u--failWith arg-0 e-5 e-4 e-3 e-2 e-1 u--script arg-8 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-6 (PreludeC-45TypesC-45String-C-43C-43 "bad fullnames " (CoreC-45Name-u--show_Show_Name e-7)) ext-0))))))(else (TTImpC-45ElabC-45RunElab-n--8265-1599-u--failWith arg-0 e-5 e-4 e-3 e-2 e-1 u--script arg-8 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-6 (PreludeC-45TypesC-45String-C-43C-43 "bad fullnames " (CoreC-45Name-u--show_Show_Name e-7)) ext-0))))))))))))))))))(else (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-clearDefs e-5 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Normalise-u--quote_Quote_NF arg-1 arg-0 e-6 arg-6 arg-7 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 46 arg-0 arg-4 arg-6 e-7 "script is not a data value") ext-0))))))))))))))))) +(define TTImpC-45ElabC-45RunElab-checkRunElab (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 ext-0) (let ((act-24 (TTImpC-45ElabC-45RunElab-n--10083-3244-u--mkExpected arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-11 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (let ((sc2 (CoreC-45Context-isExtension 0 e-6))) (cond ((equal? sc2 1) (vector 1 0)) (else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-9 "%language ElabReflection not enabled") ext-0)))))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((u--n (vector 0 (CoreC-45NameC-45Namespace-reflectionNS) (vector 1 "Elab")))) (let ((act-27 (CoreC-45Reflect-appCon arg-0 arg-9 e-6 u--n (cons e-5 '()) ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (let ((act-28 (TTImpC-45ElabC-45Delayed-runDelays arg-0 arg-1 arg-2 arg-3 arg-4 0 (lambda (eta-0) (TTImpC-45ElabC-45Check-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 (box (CoreC-45Normalise-gnf arg-0 arg-8 e-8)) eta-0)) ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-28 1))) (let ((e-2 (car e-9))) (let ((act-29 (let ((act-29 (unbox arg-1))) (vector 1 act-29)))) (case (vector-ref act-29 0) ((0) (let ((e-4 (vector-ref act-29 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref act-29 1))) (let ((act-30 (let ((act-30 ((CoreC-45Normalise-nfOpts arg-1 arg-0 (CoreC-45Value-withAll) e-10 arg-8 e-2) ext-0))) (case (vector-ref act-30 0) ((0) (let ((e-4 (vector-ref act-30 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref act-30 1))) (TTImpC-45ElabC-45RunElab-elabScript arg-0 arg-1 arg-2 arg-3 arg-9 arg-7 arg-8 e-11 (box (CoreC-45Normalise-gnf arg-0 arg-8 e-5)) ext-0))))))) (case (vector-ref act-30 0) ((0) (let ((e-4 (vector-ref act-30 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref act-30 1))) (let ((act-31 (let ((act-31 (unbox arg-1))) (vector 1 act-31)))) (case (vector-ref act-31 0) ((0) (let ((e-4 (vector-ref act-31 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref act-31 1))) (let ((act-32 (CoreC-45Context-clearDefs e-12 ext-0))) (case (vector-ref act-32 0) ((0) (let ((e-4 (vector-ref act-32 1))) (vector 0 e-4))) (else (let ((e-13 (vector-ref act-32 1))) (let ((act-33 (CoreC-45Normalise-u--quote_Quote_NF arg-1 arg-0 e-13 arg-8 e-11 ext-0))) (case (vector-ref act-33 0) ((0) (let ((e-4 (vector-ref act-33 1))) (vector 0 e-4))) (else (let ((e-14 (vector-ref act-33 1))) (vector 1 (cons e-14 (CoreC-45Normalise-gnf arg-0 arg-8 e-5)))))))))))))))))))))))))))))))))))))))))))))) +(define TTImpC-45ElabC-45Delayed-n--7887-6018-u--newBinder (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (case (vector-ref arg-6 0) ((1) arg-6)(else (vector 0 (CoreC-45TT-binderLoc arg-6) (CoreC-45TT-multiplicity arg-6) (vector 1 ) (CoreC-45TT-binderType arg-6)))))) +(define TTImpC-45ElabC-45Delayed-n--8862-6820-u--mkExpected (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 ext-0) (if (null? arg-11) (let ((act-24 (CoreC-45UnifyState-genName arg-10 arg-8 "delayTy" ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (TTImpC-45ElabC-45Check-metaVar arg-0 arg-10 arg-8 arg-6 (AlgebraC-45Semiring-erased (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))) arg-4 e-5 (vector 11 arg-6) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (CoreC-45Normalise-gnf arg-0 arg-4 e-6)))))))))) (let ((e-1 (unbox arg-11))) (vector 1 e-1))))) +(define TTImpC-45ElabC-45Delayed-n--11047-8732-u--hasPri (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-9) (let ((e-2 (car arg-9))) (PreludeC-45EqOrd-u--C-60C-61_Ord_Integer e-2 arg-3)))) +(define TTImpC-45ElabC-45Delayed-u--show_Show_RetryError (lambda (arg-0) (cond ((equal? arg-0 0) "RecoverableErrors") (else "AllErrors")))) +(define TTImpC-45ElabC-45Delayed-runDelays (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((u--olddelayed (let ((e-10 (vector-ref e-5 10))) e-10))) (let ((act-25 (let ((act-25 (set-box! arg-4 (let ((e-0 (vector-ref e-5 0))) (let ((e-1 (vector-ref e-5 1))) (let ((e-2 (vector-ref e-5 2))) (let ((e-3 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-12 (vector-ref e-5 5))) (let ((e-6 (vector-ref e-5 6))) (let ((e-7 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (let ((e-11 (vector-ref e-5 11))) (vector e-0 e-1 e-2 e-3 e-4 e-12 e-6 e-7 e-8 e-9 '() e-11))))))))))))))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 (arg-7 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (let ((act-27 (unbox arg-4))) (vector 1 act-27)))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (let ((act-28 (CoreC-45ContextC-45Log-log arg-2 "elab.delay" (+ 1 (+ 1 0)) (lambda () "Rerunning delayed in elaborator") ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((act-29 (TTImpC-45ElabC-45Check-handle arg-1 arg-2 arg-3 arg-4 arg-5 (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (case (vector-ref eta-1 0) ((0) (let ((e-2 (vector-ref eta-1 1))) (vector 0 e-2))) (else (vector 1 0)))) (TTImpC-45ElabC-45Delayed-retryDelayedC-39 arg-1 arg-2 arg-3 arg-4 arg-5 1 '() (DataC-45List-reverse (DataC-45List-filter (lambda (eta-1) (TTImpC-45ElabC-45Delayed-n--11047-8732-u--hasPri arg-1 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 eta-1)) (let ((e-10 (vector-ref e-8 10))) e-10)))) eta-0)) (lambda (u--err) (lambda (eta-0) (let ((act-29 (let ((act-29 (set-box! arg-4 (let ((e-0 (vector-ref e-8 0))) (let ((e-1 (vector-ref e-8 1))) (let ((e-2 (vector-ref e-8 2))) (let ((e-3 (vector-ref e-8 3))) (let ((e-4 (vector-ref e-8 4))) (let ((e-16 (vector-ref e-8 5))) (let ((e-15 (vector-ref e-8 6))) (let ((e-14 (vector-ref e-8 7))) (let ((e-13 (vector-ref e-8 8))) (let ((e-12 (vector-ref e-8 9))) (let ((e-11 (vector-ref e-8 11))) (vector e-0 e-1 e-2 e-3 e-4 e-16 e-15 e-14 e-13 e-12 u--olddelayed e-11))))))))))))))) (vector 1 act-29)))) (case (vector-ref act-29 0) ((0) (let ((e-2 (vector-ref act-29 1))) (vector 0 e-2))) (else (CoreC-45Core-u--throw_Catchable_Core_Error u--err eta-0)))))) ext-0))) (case (vector-ref act-29 0) ((0) (let ((e-2 (vector-ref act-29 1))) (vector 0 e-2))) (else (let ((act-30 (let ((act-30 (unbox arg-4))) (vector 1 act-30)))) (case (vector-ref act-30 0) ((0) (let ((e-2 (vector-ref act-30 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref act-30 1))) (let ((act-31 (let ((act-31 (set-box! arg-4 (let ((e-0 (vector-ref e-11 0))) (let ((e-1 (vector-ref e-11 1))) (let ((e-2 (vector-ref e-11 2))) (let ((e-3 (vector-ref e-11 3))) (let ((e-4 (vector-ref e-11 4))) (let ((e-18 (vector-ref e-11 5))) (let ((e-17 (vector-ref e-11 6))) (let ((e-16 (vector-ref e-11 7))) (let ((e-15 (vector-ref e-11 8))) (let ((e-14 (vector-ref e-11 9))) (let ((e-13 (vector-ref e-11 10))) (let ((e-12 (vector-ref e-11 11))) (vector e-0 e-1 e-2 e-3 e-4 e-18 e-17 e-16 e-15 e-14 (PreludeC-45TypesC-45List-C-43C-43 e-13 u--olddelayed) e-12)))))))))))))))) (vector 1 act-31)))) (case (vector-ref act-31 0) ((0) (let ((e-2 (vector-ref act-31 1))) (vector 0 e-2))) (else (vector 1 e-7)))))))))))))))))))))))))))))))) +(define TTImpC-45ElabC-45Delayed-retryDelayedC-39 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (if (null? arg-7) (lambda (eta-0) (vector 1 (DataC-45List-reverse arg-6))) (let ((e-2 (car arg-7))) (let ((e-3 (cdr arg-7))) (let ((e-6 (car e-2))) (let ((e-7 (cdr e-2))) (lambda (clam-0) (let ((e-10 (car e-7))) (let ((e-11 (cdr e-7))) (let ((e-14 (car e-11))) (let ((e-15 (cdr e-11))) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-lookupDefExact (vector 9 e-10) (let ((e-0 (vector-ref e-5 0))) e-0) clam-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref act-25 1))) (let ((u--d (cons e-6 (cons e-10 (cons e-14 e-15))))) (if (null? e-8) ((TTImpC-45ElabC-45Delayed-retryDelayedC-39 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3) clam-0) (let ((e-1 (unbox e-8))) (case (vector-ref e-1 0) ((11) (TTImpC-45ElabC-45Check-handle arg-0 arg-1 arg-2 arg-3 arg-4 (lambda (eta-0) (let ((act-26 (let ((act-26 (unbox arg-4))) (vector 1 act-26)))) (case (vector-ref act-26 0) ((0) (let ((e-4 (vector-ref act-26 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref act-26 1))) (let ((act-27 (let ((act-27 (CoreC-45Context-getFullName arg-1 (vector 9 e-10) eta-0))) (case (vector-ref act-27 0) ((0) (let ((e-4 (vector-ref act-27 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref act-27 1))) (CoreC-45ContextC-45Log-log arg-1 "elab.retry" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Nat (let ((e-18 (vector-ref e-9 10))) e-18)) (PreludeC-45TypesC-45String-C-43C-43 ": Retrying delayed hole " (CoreC-45Name-u--show_Show_Name e-12)))) eta-0))))))) (case (vector-ref act-27 0) ((0) (let ((e-4 (vector-ref act-27 1))) (vector 0 e-4))) (else (let ((act-28 (let ((act-28 (unbox arg-3))) (vector 1 act-28)))) (case (vector-ref act-28 0) ((0) (let ((e-4 (vector-ref act-28 1))) (vector 0 e-4))) (else (let ((e-13 (vector-ref act-28 1))) (let ((act-29 (let ((act-29 (set-box! arg-3 (let ((e-0 (vector-ref e-13 0))) (let ((e-25 (vector-ref e-13 1))) (let ((e-24 (vector-ref e-13 2))) (let ((e-23 (vector-ref e-13 3))) (let ((e-4 (vector-ref e-13 4))) (let ((e-22 (vector-ref e-13 5))) (let ((e-21 (vector-ref e-13 6))) (let ((e-20 (vector-ref e-13 7))) (let ((e-19 (vector-ref e-13 8))) (let ((e-18 (vector-ref e-13 9))) (let ((e-16 (vector-ref e-13 11))) (vector e-0 e-25 e-24 e-23 e-4 e-22 e-21 e-20 e-19 e-18 '() e-16))))))))))))))) (vector 1 act-29)))) (case (vector-ref act-29 0) ((0) (let ((e-4 (vector-ref act-29 1))) (vector 0 e-4))) (else (let ((act-30 (let ((act-30 (unbox arg-1))) (vector 1 act-30)))) (case (vector-ref act-30 0) ((0) (let ((e-4 (vector-ref act-30 1))) (vector 0 e-4))) (else (let ((e-17 (vector-ref act-30 1))) (let ((act-31 (let ((act-31 (set-box! arg-1 (let ((e-0 (vector-ref e-17 0))) (let ((e-44 (vector-ref e-17 1))) (let ((e-43 (vector-ref e-17 2))) (let ((e-42 (vector-ref e-17 3))) (let ((e-4 (vector-ref e-17 4))) (let ((e-41 (vector-ref e-17 5))) (let ((e-40 (vector-ref e-17 6))) (let ((e-39 (vector-ref e-17 7))) (let ((e-38 (vector-ref e-17 8))) (let ((e-37 (vector-ref e-17 9))) (let ((e-35 (vector-ref e-17 11))) (let ((e-34 (vector-ref e-17 12))) (let ((e-33 (vector-ref e-17 13))) (let ((e-32 (vector-ref e-17 14))) (let ((e-31 (vector-ref e-17 15))) (let ((e-30 (vector-ref e-17 16))) (let ((e-29 (vector-ref e-17 17))) (let ((e-18 (vector-ref e-17 18))) (let ((e-19 (vector-ref e-17 19))) (let ((e-20 (vector-ref e-17 20))) (let ((e-21 (vector-ref e-17 21))) (let ((e-22 (vector-ref e-17 22))) (let ((e-23 (vector-ref e-17 23))) (let ((e-24 (vector-ref e-17 24))) (let ((e-25 (vector-ref e-17 25))) (let ((e-26 (vector-ref e-17 26))) (let ((e-27 (vector-ref e-17 27))) (let ((e-28 (vector-ref e-17 28))) (vector e-0 e-44 e-43 e-42 e-4 e-41 e-40 e-39 e-38 e-37 e-14 e-35 e-34 e-33 e-32 e-31 e-30 e-29 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27 e-28)))))))))))))))))))))))))))))))) (vector 1 act-31)))) (case (vector-ref act-31 0) ((0) (let ((e-4 (vector-ref act-31 1))) (vector 0 e-4))) (else (let ((act-32 (e-15 eta-0))) (case (vector-ref act-32 0) ((0) (let ((e-4 (vector-ref act-32 1))) (vector 0 e-4))) (else (let ((e-19 (vector-ref act-32 1))) (let ((act-33 (let ((act-33 (unbox arg-3))) (vector 1 act-33)))) (case (vector-ref act-33 0) ((0) (let ((e-4 (vector-ref act-33 1))) (vector 0 e-4))) (else (let ((e-20 (vector-ref act-33 1))) (let ((u--dsC-39 (PreludeC-45TypesC-45List-C-43C-43 (DataC-45List-reverse (let ((e-22 (vector-ref e-20 10))) e-22)) e-3))) (let ((act-34 (CoreC-45Context-updateDef arg-1 (vector 9 e-10) (lambda (eta-1) (box (vector 1 (cons '() 1) '() (vector 1 0 e-19) (vector 1 0 e-19) '()))) eta-0))) (case (vector-ref act-34 0) ((0) (let ((e-4 (vector-ref act-34 1))) (vector 0 e-4))) (else (let ((act-35 (CoreC-45ContextC-45Log-logTerm '() arg-1 "elab.update" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Resolved delayed hole " (PreludeC-45Show-u--show_Show_Int e-10))) e-19 eta-0))) (case (vector-ref act-35 0) ((0) (let ((e-4 (vector-ref act-35 1))) (vector 0 e-4))) (else (let ((act-36 (CoreC-45Normalise-logTermNF '() arg-1 "elab.update" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Resolved delayed hole NF " (PreludeC-45Show-u--show_Show_Int e-10))) '() e-19 eta-0))) (case (vector-ref act-36 0) ((0) (let ((e-4 (vector-ref act-36 1))) (vector 0 e-4))) (else (let ((act-37 (CoreC-45UnifyState-removeHole arg-3 e-10 eta-0))) (case (vector-ref act-37 0) ((0) (let ((e-4 (vector-ref act-37 1))) (vector 0 e-4))) (else ((TTImpC-45ElabC-45Delayed-retryDelayedC-39 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 u--dsC-39) eta-0)))))))))))))))))))))))))))))))))))))))))))) (lambda (u--err) (lambda (eta-0) (let ((act-26 (let ((act-26 (CoreC-45Context-getFullName arg-1 (vector 9 e-10) eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-4 (vector-ref act-26 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref act-26 1))) (CoreC-45ContextC-45Log-log arg-1 "elab" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 (TTImpC-45ElabC-45Delayed-u--show_Show_RetryError arg-5) (PreludeC-45TypesC-45String-C-43C-43 ":Error in " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-9) (PreludeC-45TypesC-45String-C-43C-43 "\u000a" (CoreC-45Core-u--show_Show_Error u--err)))))) eta-0))))))) (case (vector-ref act-26 0) ((0) (let ((e-4 (vector-ref act-26 1))) (vector 0 e-4))) (else (cond ((equal? arg-5 0) (let ((act-27 ((TTImpC-45ElabC-45Delayed-recoverable arg-1 u--err) eta-0))) (case (vector-ref act-27 0) ((0) (let ((e-4 (vector-ref act-27 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref act-27 1))) (let ((u--errmode 0)) (cond ((equal? e-12 1) ((TTImpC-45ElabC-45Delayed-retryDelayedC-39 arg-0 arg-1 arg-2 arg-3 arg-4 u--errmode (cons u--d arg-6) e-3) eta-0)) (else (CoreC-45Core-u--throw_Catchable_Core_Error u--err eta-0))))))))) (else (CoreC-45Core-u--throw_Catchable_Core_Error u--err eta-0)))))))) clam-0))(else ((TTImpC-45ElabC-45Delayed-retryDelayedC-39 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3) clam-0)))))))))))))))))))))))))) +(define TTImpC-45ElabC-45Delayed-retryDelayed (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 ((TTImpC-45ElabC-45Delayed-retryDelayedC-39 arg-0 arg-1 arg-2 arg-3 arg-4 0 '() arg-5) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-2 (vector-ref eta-0 1))) (vector 0 e-2))) (else (vector 1 0)))) (TTImpC-45ElabC-45Delayed-retryDelayedC-39 arg-0 arg-1 arg-2 arg-3 arg-4 1 '() e-6) ext-0)))))))))) +(define TTImpC-45ElabC-45Delayed-recoverable (lambda (arg-0 arg-1) (case (vector-ref arg-1 0) ((1) (let ((e-0 (vector-ref arg-1 1))) (let ((e-2 (vector-ref arg-1 3))) (let ((e-3 (vector-ref arg-1 4))) (let ((e-4 (vector-ref arg-1 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Normalise-nf arg-0 e-0 e-5 e-2 e-3) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-6 (vector-ref act-25 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 ((CoreC-45Normalise-nf arg-0 e-0 e-5 e-2 e-4) eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-7 (vector-ref act-26 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 ((TTImpC-45ElabC-45Delayed-contra arg-0 e-0 e-5 e-6 e-7) eta-0))) (case (vector-ref act-27 0) ((0) (let ((e-8 (vector-ref act-27 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref act-27 1))) (vector 1 (cond ((equal? e-8 1) 0) (else 1))))))))))))))))))))))))) ((2) (let ((e-5 (vector-ref arg-1 1))) (let ((e-7 (vector-ref arg-1 3))) (let ((e-8 (vector-ref arg-1 4))) (let ((e-9 (vector-ref arg-1 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Normalise-nf arg-0 e-5 e-10 e-7 e-8) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref act-25 1))) (let ((act-26 ((CoreC-45Normalise-nf arg-0 e-5 e-10 e-7 e-9) eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref act-26 1))) (let ((act-27 ((TTImpC-45ElabC-45Delayed-contra arg-0 e-5 e-10 e-11 e-12) eta-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref act-27 1))) (vector 1 (cond ((equal? e-13 1) 0) (else 1))))))))))))))))))))))))) ((7) (lambda (eta-0) (vector 1 0))) ((14) (lambda (eta-0) (vector 1 0))) ((62) (let ((e-18 (vector-ref arg-1 3))) (TTImpC-45ElabC-45Delayed-recoverable arg-0 e-18))) ((63) (let ((e-21 (vector-ref arg-1 3))) (TTImpC-45ElabC-45Delayed-recoverable arg-0 e-21))) ((64) (let ((e-24 (vector-ref arg-1 3))) (TTImpC-45ElabC-45Delayed-recoverable arg-0 e-24))) ((65) (let ((e-27 (vector-ref arg-1 3))) (TTImpC-45ElabC-45Delayed-recoverable arg-0 e-27))) ((5) (let ((e-33 (vector-ref arg-1 6))) (TTImpC-45ElabC-45Delayed-recoverable arg-0 e-33)))(else (lambda (eta-0) (vector 1 1)))))) +(define TTImpC-45ElabC-45Delayed-mkClosedElab (lambda (arg-0 arg-1 arg-2 arg-3) (if (null? arg-0) (lambda (clam-0) (let ((act-24 (arg-3 clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((e-2 (car e-5))) (vector 1 e-2))))))) (let ((e-2 (car arg-0))) (let ((e-3 (cdr arg-0))) (let ((e-8 (car arg-2))) (let ((e-9 (cdr arg-2))) (TTImpC-45ElabC-45Delayed-mkClosedElab e-3 arg-1 e-9 (lambda (eta-0) (let ((act-24 (arg-3 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((e-6 (car e-5))) (let ((u--bC-39 (TTImpC-45ElabC-45Delayed-n--7887-6018-u--newBinder e-2 e-3 e-9 e-8 arg-3 arg-1 e-8))) (vector 1 (cons (vector 3 arg-1 e-2 u--bC-39 e-6) (CoreC-45Normalise-gErased arg-1)))))))))))))))))) +(define TTImpC-45ElabC-45Delayed-mismatchNF (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (case (vector-ref arg-3 0) ((3) (let ((e-2 (vector-ref arg-3 2))) (let ((e-5 (vector-ref arg-3 5))) (lambda (clam-0) (case (vector-ref arg-4 0) ((3) (let ((e-26 (vector-ref arg-4 2))) (let ((e-29 (vector-ref arg-4 5))) (let ((sc2 (CoreC-45Name-u--C-47C-61_Eq_Name e-2 e-26))) (cond ((equal? sc2 1) (vector 1 1)) (else (CoreC-45Core-anyM (lambda (eta-0) (lambda (eta-1) (TTImpC-45ElabC-45Delayed-mismatch arg-0 arg-1 arg-2 eta-0 eta-1))) (DataC-45List-u--zipWith_Zippable_List (lambda (eta-0) (lambda (eta-1) (PreludeC-45Basics-curry (lambda (eta-2) (PreludeC-45Interfaces-mapHom (vector (lambda (u--d) (lambda (u--b) (lambda (u--c) (lambda (u--a) (lambda (arg-323) (lambda (arg-325) (lambda (arg-327) (let ((e-7 (car arg-327))) (let ((e-6 (cdr arg-327))) (cons (arg-323 e-7) (arg-325 e-6))))))))))) (lambda (u--b) (lambda (u--c) (lambda (u--a) (lambda (arg-332) (lambda (arg-334) (let ((e-7 (car arg-334))) (let ((e-6 (cdr arg-334))) (cons (arg-332 e-7) e-6)))))))) (lambda (u--a) (lambda (u--d) (lambda (u--b) (lambda (arg-335) (lambda (arg-337) (let ((e-7 (car arg-337))) (let ((e-6 (cdr arg-337))) (cons e-7 (arg-335 e-6)))))))))) (lambda (eta-3) (Builtin-snd eta-3)) eta-2)) eta-0 eta-1))) e-5 e-29) clam-0)))))))(else (vector 1 0))))))) ((2) (let ((e-9 (vector-ref arg-3 3))) (let ((e-11 (vector-ref arg-3 5))) (lambda (clam-1) (case (vector-ref arg-4 0) ((2) (let ((e-33 (vector-ref arg-4 3))) (let ((e-35 (vector-ref arg-4 5))) (let ((sc2 (PreludeC-45EqOrd-u--C-47C-61_Eq_Int e-9 e-33))) (cond ((equal? sc2 1) (vector 1 1)) (else (CoreC-45Core-anyM (lambda (eta-0) (lambda (eta-1) (TTImpC-45ElabC-45Delayed-mismatch arg-0 arg-1 arg-2 eta-0 eta-1))) (DataC-45List-u--zipWith_Zippable_List (lambda (eta-0) (lambda (eta-1) (PreludeC-45Basics-curry (lambda (eta-2) (PreludeC-45Interfaces-mapHom (vector (lambda (u--d) (lambda (u--b) (lambda (u--c) (lambda (u--a) (lambda (arg-323) (lambda (arg-325) (lambda (arg-327) (let ((e-2 (car arg-327))) (let ((e-3 (cdr arg-327))) (cons (arg-323 e-2) (arg-325 e-3))))))))))) (lambda (u--b) (lambda (u--c) (lambda (u--a) (lambda (arg-332) (lambda (arg-334) (let ((e-2 (car arg-334))) (let ((e-3 (cdr arg-334))) (cons (arg-332 e-2) e-3)))))))) (lambda (u--a) (lambda (u--d) (lambda (u--b) (lambda (arg-335) (lambda (arg-337) (let ((e-2 (car arg-337))) (let ((e-3 (cdr arg-337))) (cons e-2 (arg-335 e-3)))))))))) (lambda (eta-3) (Builtin-snd eta-3)) eta-2)) eta-0 eta-1))) e-11 e-35) clam-1)))))))(else (vector 1 0))))))) ((8) (let ((e-14 (vector-ref arg-3 2))) (lambda (clam-2) (case (vector-ref arg-4 0) ((8) (let ((e-38 (vector-ref arg-4 2))) (vector 1 (CoreC-45TT-u--C-47C-61_Eq_Constant e-14 e-38))))(else (vector 1 0)))))) ((5) (let ((e-18 (vector-ref arg-3 3))) (case (vector-ref arg-4 0) ((5) (let ((e-42 (vector-ref arg-4 3))) (TTImpC-45ElabC-45Delayed-mismatchNF arg-0 arg-1 arg-2 e-18 e-42)))(else (lambda (eta-0) (vector 1 0)))))) ((6) (let ((e-23 (vector-ref arg-3 4))) (lambda (clam-3) (case (vector-ref arg-4 0) ((6) (let ((e-47 (vector-ref arg-4 4))) (let ((act-24 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-23) clam-3))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-47) clam-3))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) ((TTImpC-45ElabC-45Delayed-mismatchNF arg-0 arg-1 arg-2 e-5 e-6) clam-3)))))))))))(else (vector 1 0))))))(else (lambda (eta-0) (vector 1 0)))))) +(define TTImpC-45ElabC-45Delayed-mismatch (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((e-2 (car arg-3))) (let ((e-3 (cdr arg-3))) (let ((act-24 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-2) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-3) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref act-25 1))) ((TTImpC-45ElabC-45Delayed-mismatchNF arg-0 arg-1 arg-2 e-5 e-6) ext-0))))))))))))) +(define TTImpC-45ElabC-45Delayed-delayOnFailure (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 ext-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 (let ((act-25 (unbox arg-3))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((u--nos (let ((e-13 (vector-ref e-6 5))) e-13))) (TTImpC-45ElabC-45Check-handle arg-0 arg-1 arg-2 arg-3 arg-4 (arg-11 0) (lambda (u--err) (lambda (eta-0) (let ((act-26 (let ((act-26 (unbox arg-4))) (vector 1 act-26)))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((sc3 (arg-9 u--err))) (cond ((equal? sc3 1) (let ((act-27 (CoreC-45UnifyState-genName arg-1 arg-3 "delayed" eta-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (let ((act-28 (let ((act-28 ((CoreC-45Normalise-getTerm arg-8) eta-0))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-28 1))) ((CoreC-45UnifyState-newDelayed arg-0 arg-3 arg-1 arg-5 (AlgebraC-45Semiring-linear (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))) arg-7 e-8 e-9) eta-0))))))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-28 1))) (let ((e-2 (car e-9))) (let ((e-3 (cdr e-9))) (let ((act-29 (CoreC-45Normalise-logGlueNF arg-0 arg-1 "elab.delay" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Postponing elaborator " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-8) (PreludeC-45TypesC-45String-C-43C-43 " at " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC arg-5) " for"))))) arg-7 arg-8 eta-0))) (case (vector-ref act-29 0) ((0) (let ((e-4 (vector-ref act-29 1))) (vector 0 e-4))) (else (let ((act-30 (CoreC-45ContextC-45Log-log arg-1 "elab.delay" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Due to error " (CoreC-45Core-u--show_Show_Error u--err))) eta-0))) (case (vector-ref act-30 0) ((0) (let ((e-4 (vector-ref act-30 1))) (vector 0 e-4))) (else (let ((act-31 (let ((act-31 (unbox arg-3))) (vector 1 act-31)))) (case (vector-ref act-31 0) ((0) (let ((e-4 (vector-ref act-31 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref act-31 1))) (let ((act-32 (let ((act-32 (unbox arg-1))) (vector 1 act-32)))) (case (vector-ref act-32 0) ((0) (let ((e-4 (vector-ref act-32 1))) (vector 0 e-4))) (else (let ((e-13 (vector-ref act-32 1))) (let ((act-33 (let ((act-33 (set-box! arg-3 (let ((e-0 (vector-ref e-12 0))) (let ((e-1 (vector-ref e-12 1))) (let ((e-22 (vector-ref e-12 2))) (let ((e-21 (vector-ref e-12 3))) (let ((e-4 (vector-ref e-12 4))) (let ((e-20 (vector-ref e-12 5))) (let ((e-19 (vector-ref e-12 6))) (let ((e-18 (vector-ref e-12 7))) (let ((e-17 (vector-ref e-12 8))) (let ((e-16 (vector-ref e-12 9))) (let ((e-15 (vector-ref e-12 10))) (let ((e-14 (vector-ref e-12 11))) (vector e-0 e-1 e-22 e-21 e-4 e-20 e-19 e-18 e-17 e-16 (cons (cons arg-10 (cons e-2 (cons (let ((e-41 (vector-ref e-13 10))) e-41) (TTImpC-45ElabC-45Delayed-mkClosedElab arg-0 arg-5 arg-7 (lambda (eta-1) (TTImpC-45ElabC-45Delayed-deeper arg-4 (lambda (eta-2) (let ((act-33 (let ((act-33 (unbox arg-3))) (vector 1 act-33)))) (case (vector-ref act-33 0) ((0) (let ((e-23 (vector-ref act-33 1))) (vector 0 e-23))) (else (let ((e-23 (vector-ref act-33 1))) (let ((u--nosC-39 (let ((e-30 (vector-ref e-23 5))) e-30))) (let ((act-34 (let ((act-34 (set-box! arg-3 (let ((e-35 (vector-ref e-23 0))) (let ((e-34 (vector-ref e-23 1))) (let ((e-33 (vector-ref e-23 2))) (let ((e-32 (vector-ref e-23 3))) (let ((e-31 (vector-ref e-23 4))) (let ((e-29 (vector-ref e-23 6))) (let ((e-28 (vector-ref e-23 7))) (let ((e-27 (vector-ref e-23 8))) (let ((e-26 (vector-ref e-23 9))) (let ((e-25 (vector-ref e-23 10))) (let ((e-24 (vector-ref e-23 11))) (vector e-35 e-34 e-33 e-32 e-31 u--nos e-29 e-28 e-27 e-26 e-25 e-24))))))))))))))) (vector 1 act-34)))) (case (vector-ref act-34 0) ((0) (let ((e-24 (vector-ref act-34 1))) (vector 0 e-24))) (else (let ((act-35 ((arg-11 1) eta-2))) (case (vector-ref act-35 0) ((0) (let ((e-25 (vector-ref act-35 1))) (vector 0 e-25))) (else (let ((e-25 (vector-ref act-35 1))) (let ((act-36 (let ((act-36 (unbox arg-3))) (vector 1 act-36)))) (case (vector-ref act-36 0) ((0) (let ((e-26 (vector-ref act-36 1))) (vector 0 e-26))) (else (let ((e-26 (vector-ref act-36 1))) (let ((act-37 (let ((act-37 (set-box! arg-3 (let ((e-38 (vector-ref e-26 0))) (let ((e-37 (vector-ref e-26 1))) (let ((e-36 (vector-ref e-26 2))) (let ((e-35 (vector-ref e-26 3))) (let ((e-34 (vector-ref e-26 4))) (let ((e-32 (vector-ref e-26 6))) (let ((e-31 (vector-ref e-26 7))) (let ((e-30 (vector-ref e-26 8))) (let ((e-29 (vector-ref e-26 9))) (let ((e-28 (vector-ref e-26 10))) (let ((e-27 (vector-ref e-26 11))) (vector e-38 e-37 e-36 e-35 e-34 u--nosC-39 e-32 e-31 e-30 e-29 e-28 e-27))))))))))))))) (vector 1 act-37)))) (case (vector-ref act-37 0) ((0) (let ((e-27 (vector-ref act-37 1))) (vector 0 e-27))) (else (vector 1 e-25))))))))))))))))))))) eta-1)))))) e-15) e-14)))))))))))))))) (vector 1 act-33)))) (case (vector-ref act-33 0) ((0) (let ((e-4 (vector-ref act-33 1))) (vector 0 e-4))) (else (vector 1 (cons e-3 arg-8)))))))))))))))))))))))))))))) (else (CoreC-45Core-u--throw_Catchable_Core_Error u--err eta-0))))))))) ext-0))))))))))) +(define TTImpC-45ElabC-45Delayed-delayElab (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 ext-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 (let ((act-25 (unbox arg-3))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((u--nos (let ((e-13 (vector-ref e-6 5))) e-13))) (let ((act-26 (CoreC-45UnifyState-genName arg-1 arg-3 "delayed" ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (TTImpC-45ElabC-45Delayed-n--8862-6820-u--mkExpected arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-8 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (let ((act-28 (let ((act-28 ((CoreC-45Normalise-getTerm e-8) ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-28 1))) ((CoreC-45UnifyState-newDelayed arg-0 arg-3 arg-1 arg-5 (AlgebraC-45Semiring-linear (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))) arg-7 e-7 e-9) ext-0))))))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-28 1))) (let ((e-2 (car e-9))) (let ((e-3 (cdr e-9))) (let ((act-29 (CoreC-45Normalise-logGlueNF arg-0 arg-1 "elab.delay" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Postponing elaborator " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-7) " for"))) arg-7 e-8 ext-0))) (case (vector-ref act-29 0) ((0) (let ((e-4 (vector-ref act-29 1))) (vector 0 e-4))) (else (let ((act-30 (let ((act-30 (unbox arg-3))) (vector 1 act-30)))) (case (vector-ref act-30 0) ((0) (let ((e-4 (vector-ref act-30 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref act-30 1))) (let ((act-31 (let ((act-31 (unbox arg-1))) (vector 1 act-31)))) (case (vector-ref act-31 0) ((0) (let ((e-4 (vector-ref act-31 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref act-31 1))) (let ((act-32 (let ((act-32 (set-box! arg-3 (let ((e-0 (vector-ref e-11 0))) (let ((e-1 (vector-ref e-11 1))) (let ((e-21 (vector-ref e-11 2))) (let ((e-20 (vector-ref e-11 3))) (let ((e-4 (vector-ref e-11 4))) (let ((e-19 (vector-ref e-11 5))) (let ((e-18 (vector-ref e-11 6))) (let ((e-17 (vector-ref e-11 7))) (let ((e-16 (vector-ref e-11 8))) (let ((e-15 (vector-ref e-11 9))) (let ((e-14 (vector-ref e-11 10))) (let ((e-13 (vector-ref e-11 11))) (vector e-0 e-1 e-21 e-20 e-4 e-19 e-18 e-17 e-16 e-15 (cons (cons arg-9 (cons e-2 (cons (let ((e-40 (vector-ref e-12 10))) e-40) (TTImpC-45ElabC-45Delayed-mkClosedElab arg-0 arg-5 arg-7 (lambda (eta-0) (let ((act-32 (let ((act-32 (unbox arg-3))) (vector 1 act-32)))) (case (vector-ref act-32 0) ((0) (let ((e-22 (vector-ref act-32 1))) (vector 0 e-22))) (else (let ((e-22 (vector-ref act-32 1))) (let ((u--nosC-39 (let ((e-29 (vector-ref e-22 5))) e-29))) (let ((act-33 (let ((act-33 (set-box! arg-3 (let ((e-34 (vector-ref e-22 0))) (let ((e-33 (vector-ref e-22 1))) (let ((e-32 (vector-ref e-22 2))) (let ((e-31 (vector-ref e-22 3))) (let ((e-30 (vector-ref e-22 4))) (let ((e-28 (vector-ref e-22 6))) (let ((e-27 (vector-ref e-22 7))) (let ((e-26 (vector-ref e-22 8))) (let ((e-25 (vector-ref e-22 9))) (let ((e-24 (vector-ref e-22 10))) (let ((e-23 (vector-ref e-22 11))) (vector e-34 e-33 e-32 e-31 e-30 u--nos e-28 e-27 e-26 e-25 e-24 e-23))))))))))))))) (vector 1 act-33)))) (case (vector-ref act-33 0) ((0) (let ((e-23 (vector-ref act-33 1))) (vector 0 e-23))) (else (let ((act-34 (arg-10 eta-0))) (case (vector-ref act-34 0) ((0) (let ((e-24 (vector-ref act-34 1))) (vector 0 e-24))) (else (let ((e-24 (vector-ref act-34 1))) (let ((act-35 (let ((act-35 (unbox arg-3))) (vector 1 act-35)))) (case (vector-ref act-35 0) ((0) (let ((e-25 (vector-ref act-35 1))) (vector 0 e-25))) (else (let ((e-25 (vector-ref act-35 1))) (let ((act-36 (let ((act-36 (set-box! arg-3 (let ((e-37 (vector-ref e-25 0))) (let ((e-36 (vector-ref e-25 1))) (let ((e-35 (vector-ref e-25 2))) (let ((e-34 (vector-ref e-25 3))) (let ((e-33 (vector-ref e-25 4))) (let ((e-31 (vector-ref e-25 6))) (let ((e-30 (vector-ref e-25 7))) (let ((e-29 (vector-ref e-25 8))) (let ((e-28 (vector-ref e-25 9))) (let ((e-27 (vector-ref e-25 10))) (let ((e-26 (vector-ref e-25 11))) (vector e-37 e-36 e-35 e-34 e-33 u--nosC-39 e-31 e-30 e-29 e-28 e-27 e-26))))))))))))))) (vector 1 act-36)))) (case (vector-ref act-36 0) ((0) (let ((e-26 (vector-ref act-36 1))) (vector 0 e-26))) (else (vector 1 e-24))))))))))))))))))))))))) e-14) e-13)))))))))))))))) (vector 1 act-32)))) (case (vector-ref act-32 0) ((0) (let ((e-4 (vector-ref act-32 1))) (vector 0 e-4))) (else (vector 1 (cons e-3 e-8)))))))))))))))))))))))))))))))))))))))) +(define TTImpC-45ElabC-45Delayed-deeper (lambda (arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((u--d (let ((e-11 (vector-ref e-5 10))) e-11))) (let ((act-25 (let ((act-25 (set-box! arg-2 (let ((e-1 (vector-ref e-5 0))) (let ((e-2 (vector-ref e-5 1))) (let ((e-3 (vector-ref e-5 2))) (let ((e-4 (vector-ref e-5 3))) (let ((e-15 (vector-ref e-5 4))) (let ((e-6 (vector-ref e-5 5))) (let ((e-7 (vector-ref e-5 6))) (let ((e-8 (vector-ref e-5 7))) (let ((e-9 (vector-ref e-5 8))) (let ((e-10 (vector-ref e-5 9))) (let ((e-12 (vector-ref e-5 11))) (let ((e-13 (vector-ref e-5 12))) (let ((e-14 (vector-ref e-5 13))) (vector e-1 e-2 e-3 e-4 e-15 e-6 e-7 e-8 e-9 e-10 (PreludeC-45Types-u--C-43_Num_Nat (PreludeC-45Types-u--fromInteger_Num_Nat 1) u--d) e-12 e-13 e-14))))))))))))))))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 (arg-3 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (let ((act-27 (unbox arg-2))) (vector 1 act-27)))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (let ((act-28 (let ((act-28 (set-box! arg-2 (let ((e-1 (vector-ref e-8 0))) (let ((e-2 (vector-ref e-8 1))) (let ((e-3 (vector-ref e-8 2))) (let ((e-4 (vector-ref e-8 3))) (let ((e-18 (vector-ref e-8 4))) (let ((e-17 (vector-ref e-8 5))) (let ((e-16 (vector-ref e-8 6))) (let ((e-15 (vector-ref e-8 7))) (let ((e-9 (vector-ref e-8 8))) (let ((e-10 (vector-ref e-8 9))) (let ((e-12 (vector-ref e-8 11))) (let ((e-13 (vector-ref e-8 12))) (let ((e-14 (vector-ref e-8 13))) (vector e-1 e-2 e-3 e-4 e-18 e-17 e-16 e-15 e-9 e-10 u--d e-12 e-13 e-14))))))))))))))))) (vector 1 act-28)))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (vector 1 e-7)))))))))))))))))))))) +(define TTImpC-45ElabC-45Delayed-contra (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (case (vector-ref arg-3 0) ((3) (let ((e-2 (vector-ref arg-3 2))) (let ((e-5 (vector-ref arg-3 5))) (lambda (clam-0) (case (vector-ref arg-4 0) ((3) (let ((e-17 (vector-ref arg-4 2))) (let ((e-20 (vector-ref arg-4 5))) (let ((sc2 (CoreC-45Name-u--C-47C-61_Eq_Name e-2 e-17))) (cond ((equal? sc2 1) (vector 1 1)) (else (CoreC-45Core-anyM (lambda (eta-0) (lambda (eta-1) (TTImpC-45ElabC-45Delayed-mismatch arg-0 arg-1 arg-2 eta-0 eta-1))) (DataC-45List-u--zipWith_Zippable_List (lambda (eta-0) (lambda (eta-1) (PreludeC-45Basics-curry (lambda (eta-2) (PreludeC-45Interfaces-mapHom (vector (lambda (u--d) (lambda (u--b) (lambda (u--c) (lambda (u--a) (lambda (arg-323) (lambda (arg-325) (lambda (arg-327) (let ((e-7 (car arg-327))) (let ((e-6 (cdr arg-327))) (cons (arg-323 e-7) (arg-325 e-6))))))))))) (lambda (u--b) (lambda (u--c) (lambda (u--a) (lambda (arg-332) (lambda (arg-334) (let ((e-7 (car arg-334))) (let ((e-6 (cdr arg-334))) (cons (arg-332 e-7) e-6)))))))) (lambda (u--a) (lambda (u--d) (lambda (u--b) (lambda (arg-335) (lambda (arg-337) (let ((e-7 (car arg-337))) (let ((e-6 (cdr arg-337))) (cons e-7 (arg-335 e-6)))))))))) (lambda (eta-3) (Builtin-snd eta-3)) eta-2)) eta-0 eta-1))) e-5 e-20) clam-0)))))))(else (vector 1 0))))))) ((2) (let ((e-9 (vector-ref arg-3 3))) (let ((e-11 (vector-ref arg-3 5))) (lambda (clam-1) (case (vector-ref arg-4 0) ((2) (let ((e-24 (vector-ref arg-4 3))) (let ((e-26 (vector-ref arg-4 5))) (let ((sc2 (PreludeC-45EqOrd-u--C-47C-61_Eq_Int e-9 e-24))) (cond ((equal? sc2 1) (vector 1 1)) (else (CoreC-45Core-anyM (lambda (eta-0) (lambda (eta-1) (TTImpC-45ElabC-45Delayed-mismatch arg-0 arg-1 arg-2 eta-0 eta-1))) (DataC-45List-u--zipWith_Zippable_List (lambda (eta-0) (lambda (eta-1) (PreludeC-45Basics-curry (lambda (eta-2) (PreludeC-45Interfaces-mapHom (vector (lambda (u--d) (lambda (u--b) (lambda (u--c) (lambda (u--a) (lambda (arg-323) (lambda (arg-325) (lambda (arg-327) (let ((e-2 (car arg-327))) (let ((e-3 (cdr arg-327))) (cons (arg-323 e-2) (arg-325 e-3))))))))))) (lambda (u--b) (lambda (u--c) (lambda (u--a) (lambda (arg-332) (lambda (arg-334) (let ((e-2 (car arg-334))) (let ((e-3 (cdr arg-334))) (cons (arg-332 e-2) e-3)))))))) (lambda (u--a) (lambda (u--d) (lambda (u--b) (lambda (arg-335) (lambda (arg-337) (let ((e-2 (car arg-337))) (let ((e-3 (cdr arg-337))) (cons e-2 (arg-335 e-3)))))))))) (lambda (eta-3) (Builtin-snd eta-3)) eta-2)) eta-0 eta-1))) e-11 e-26) clam-1))))))) ((8) (vector 1 1))(else (vector 1 0))))))) ((8) (let ((e-14 (vector-ref arg-3 2))) (lambda (clam-2) (case (vector-ref arg-4 0) ((8) (let ((e-32 (vector-ref arg-4 2))) (vector 1 (CoreC-45TT-u--C-47C-61_Eq_Constant e-14 e-32)))) ((2) (vector 1 1))(else (vector 1 0))))))(else (lambda (eta-0) (vector 1 0)))))) +(define TTImpC-45ElabC-45Delayed-ambiguous (lambda (arg-0) (case (vector-ref arg-0 0) ((18) 1) ((17) 1) ((20) 1) ((62) (let ((e-11 (vector-ref arg-0 3))) (TTImpC-45ElabC-45Delayed-ambiguous e-11))) ((63) (let ((e-14 (vector-ref arg-0 3))) (TTImpC-45ElabC-45Delayed-ambiguous e-14))) ((64) (let ((e-17 (vector-ref arg-0 3))) (TTImpC-45ElabC-45Delayed-ambiguous e-17))) ((65) (let ((e-20 (vector-ref arg-0 3))) (TTImpC-45ElabC-45Delayed-ambiguous e-20))) ((5) (let ((e-26 (vector-ref arg-0 6))) (TTImpC-45ElabC-45Delayed-ambiguous e-26)))(else 0)))) +(define TTImpC-45ElabC-45Check-case--checkExp-10920 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (if (null? arg-12) (lambda (clam-0) (let ((e-3 (vector-ref arg-11 3))) (case (vector-ref e-3 0) ((0) (let ((act-24 (CoreC-45ContextC-45Log-logTerm arg-0 arg-10 "elab" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Solved") arg-3 clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (vector 1 (cons arg-3 arg-2)))))) ((1) (let ((e-4 (vector-ref e-3 1))) (let ((act-24 (CoreC-45ContextC-45Log-logTerm arg-0 arg-10 "elab" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Force") arg-3 clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((act-25 (CoreC-45Normalise-logGlue arg-0 arg-10 "elab" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Got") arg-5 arg-2 clam-0))) (case (vector-ref act-25 0) ((0) (let ((e-6 (vector-ref act-25 1))) (vector 0 e-6))) (else (let ((act-26 (CoreC-45Normalise-logGlue arg-0 arg-10 "elab" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Exp") arg-5 arg-1 clam-0))) (case (vector-ref act-26 0) ((0) (let ((e-7 (vector-ref act-26 1))) (vector 0 e-7))) (else (vector 1 (cons (vector 8 arg-4 e-4 arg-3) arg-1))))))))))))) (else (let ((e-4 (vector-ref e-3 1))) (let ((act-24 ((CoreC-45Normalise-getTerm arg-2) clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45ContextC-45Log-logTerm arg-0 arg-10 "elab" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Delay") arg-3 clam-0))) (case (vector-ref act-25 0) ((0) (let ((e-6 (vector-ref act-25 1))) (vector 0 e-6))) (else (vector 1 (cons (vector 7 arg-4 e-4 e-5 arg-3) arg-1)))))))))))))) (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-logTerm arg-0 arg-10 "elab" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Not solved") arg-3 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 (let ((act-25 (unbox arg-10))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Context-clearDefs e-6 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((act-27 ((CoreC-45Normalise-getTerm arg-1) eta-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (let ((act-28 ((CoreC-45UnifyState-newConstant arg-0 arg-9 arg-10 arg-4 arg-7 arg-5 arg-3 e-8 arg-12) eta-0))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-28 1))) (let ((act-29 (CoreC-45UnifyState-dumpConstraints arg-9 arg-10 "elab" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) 0 eta-0))) (case (vector-ref act-29 0) ((0) (let ((e-2 (vector-ref act-29 1))) (vector 0 e-2))) (else (let ((e-3 (vector-ref arg-11 3))) (case (vector-ref e-3 0) ((0) (vector 1 (cons e-9 arg-2))) ((1) (let ((e-4 (vector-ref e-3 1))) (vector 1 (cons (vector 8 arg-4 e-4 arg-3) arg-1)))) (else (let ((e-4 (vector-ref e-3 1))) (let ((act-30 ((CoreC-45Normalise-getTerm arg-2) eta-0))) (case (vector-ref act-30 0) ((0) (let ((e-11 (vector-ref act-30 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-30 1))) (vector 1 (cons (vector 7 arg-4 e-4 e-11 arg-3) arg-1))))))))))))))))))))))))))))))))))) +(define TTImpC-45ElabC-45Check-case--exactlyOneC-39C-44getRight-9940 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-11 arg-12) (if (null? arg-12) (let ((sc1 (DataC-45List-filter (lambda (u--x) (PreludeC-45Types-u--C-61C-61_Eq_Nat (Builtin-fst u--x) 0)) arg-12))) (if (null? sc1) (vector 0 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) arg-12)) (let ((e-1 (car sc1))) (let ((e-2 (cdr sc1))) (if (null? e-1) (vector 0 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) arg-12)) (let ((e-6 (cdr e-1))) (if (null? e-2) (vector 1 e-6) (vector 0 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) arg-12))))))))) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? e-1) (let ((sc2 (DataC-45List-filter (lambda (u--x) (PreludeC-45Types-u--C-61C-61_Eq_Nat (Builtin-fst u--x) 0)) arg-12))) (if (null? sc2) (vector 0 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) arg-12)) (let ((e-4 (car sc2))) (let ((e-3 (cdr sc2))) (if (null? e-4) (vector 0 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) arg-12)) (let ((e-6 (cdr e-4))) (if (null? e-3) (vector 1 e-6) (vector 0 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) arg-12))))))))) (let ((e-6 (cdr e-1))) (if (null? e-2) (vector 1 e-6) (let ((sc3 (DataC-45List-filter (lambda (u--x) (PreludeC-45Types-u--C-61C-61_Eq_Nat (Builtin-fst u--x) 0)) arg-12))) (if (null? sc3) (vector 0 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) arg-12)) (let ((e-4 (car sc3))) (let ((e-3 (cdr sc3))) (if (null? e-4) (vector 0 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) arg-12)) (let ((e-7 (cdr e-4))) (if (null? e-3) (vector 1 e-7) (vector 0 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) arg-12))))))))))))))))) +(define TTImpC-45ElabC-45Check-case--caseC-32blockC-32inC-32searchVarC-44envHints-8410 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (if (null? arg-19) (lambda (eta-0) (vector 1 (cons arg-14 (cons arg-15 arg-16)))) (let ((e-1 (unbox arg-19))) (let ((e-5 (car e-1))) (let ((e-6 (cdr e-1))) (let ((e-10 (cdr e-6))) (let ((u--nC-39 (PreludeC-45Types-maybe (lambda () arg-11) (lambda () (lambda (eta-0) eta-0)) e-5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-10))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact u--nC-39 (let ((e-0 (vector-ref e-7 0))) e-0)) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-25 1))) (if (null? e-8) (vector 1 (cons arg-14 (cons arg-15 arg-16))) (let ((e-2 (unbox e-8))) (let ((u--nt (let ((e-17 (vector-ref e-2 17))) (case (vector-ref e-17 0) ((1) (vector 1 )) ((5) (let ((e-31 (vector-ref e-17 1))) (let ((e-30 (vector-ref e-17 2))) (vector 2 e-31 e-30)))) ((6) (let ((e-36 (vector-ref e-17 1))) (let ((e-35 (vector-ref e-17 2))) (vector 3 e-36 e-35))))(else (vector 1 )))))) (let ((u--app ((e-10 arg-8) u--nt))) (let ((u--tyenv (TTImpC-45ElabC-45Check-n--10277-7989-u--useVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-0 (CoreC-45TT-getArgs u--app) (CoreC-45TT-embed (let ((e-27 (vector-ref e-2 2))) e-27))))) (let ((u--binder (vector 1 arg-8 (AlgebraC-45ZeroOneOmega-u--top_Top_ZeroOneOmega) (CoreC-45TT-u--weakenNs_Weaken_Term (CoreC-45TTC-45SizeOf-mkSizeOf arg-14) u--app) (CoreC-45TT-u--weakenNs_Weaken_Term (CoreC-45TTC-45SizeOf-mkSizeOf arg-14) u--tyenv)))) (let ((act-26 (CoreC-45Context-toFullNames arg-10 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-1) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-1)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-1) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-1))))) u--nC-39 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-3 (vector-ref act-26 1))) (vector 0 e-3))) (else (let ((e-11 (vector-ref act-26 1))) (vector 1 (cons (cons e-11 arg-14) (cons (lambda (u--t) (arg-15 (vector 3 arg-8 e-11 u--binder u--t))) (cons u--binder arg-16))))))))))))))))))))))))))))))) +(define TTImpC-45ElabC-45Check-case--strengthenedEStateC-44removeArg-6655 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-8) (let ((e-2 (car arg-8))) (let ((e-3 (cdr arg-8))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (TTImpC-45ElabC-45Check-n--8655-6530-u--removeArgVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3) (lambda (u--argsC-39) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45TT-shrinkTerm e-2 (vector 1 (vector 0 ))) (lambda (u--fC-39) (PreludeC-45Types-u--pure_Applicative_Maybe (CoreC-45TT-apply (CoreC-45TT-getLoc e-2) u--fC-39 u--argsC-39)))))))))) +(define TTImpC-45ElabC-45Check-n--8473-6350-u--wknTms (lambda (arg-0 arg-1 arg-2 arg-4) (let ((e-2 (car arg-4))) (let ((e-3 (cdr arg-4))) (case (vector-ref e-3 0) ((0) (let ((e-4 (vector-ref e-3 1))) (let ((e-5 (vector-ref e-3 2))) (let ((e-6 (vector-ref e-3 3))) (let ((e-7 (vector-ref e-3 4))) (let ((e-8 (vector-ref e-3 5))) (cons e-2 (vector 0 (cons arg-0 e-4) e-5 (CoreC-45TT-u--map_Functor_PiInfo (lambda (eta-0) (CoreC-45TT-u--weaken_Weaken_Term eta-0)) e-6) (CoreC-45TT-u--weaken_Weaken_Term e-7) (CoreC-45TT-u--weaken_Weaken_Term e-8))))))))) (else (let ((e-9 (vector-ref e-3 1))) (let ((e-10 (vector-ref e-3 2))) (let ((e-11 (vector-ref e-3 3))) (let ((e-12 (vector-ref e-3 4))) (let ((e-13 (vector-ref e-3 5))) (let ((e-14 (vector-ref e-3 6))) (cons e-2 (vector 1 (cons arg-0 e-9) e-10 (CoreC-45TT-u--map_Functor_PiInfo (lambda (eta-0) (CoreC-45TT-u--weaken_Weaken_Term eta-0)) e-11) (CoreC-45TT-u--weaken_Weaken_Term e-12) (CoreC-45TT-u--weaken_Weaken_Term e-13) (CoreC-45TT-u--weaken_Weaken_Term e-14))))))))))))))) +(define TTImpC-45ElabC-45Check-n--10277-7989-u--useVars (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (if (null? arg-12) arg-13 (let ((e-12 (car arg-12))) (let ((e-13 (cdr arg-12))) (case (vector-ref arg-13 0) ((3) (let ((e-15 (vector-ref arg-13 1))) (let ((e-16 (vector-ref arg-13 2))) (let ((e-17 (vector-ref arg-13 3))) (let ((e-18 (vector-ref arg-13 4))) (case (vector-ref e-17 0) ((2) (let ((e-20 (vector-ref e-17 1))) (let ((e-21 (vector-ref e-17 2))) (let ((e-23 (vector-ref e-17 4))) (vector 3 e-15 e-16 (vector 1 e-20 e-21 e-12 e-23) (TTImpC-45ElabC-45Check-n--10277-7989-u--useVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (cons e-16 arg-11) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45TT-u--weaken_Weaken_Term eta-0)) e-13) e-18))))))(else (case (vector-ref arg-13 0) ((3) (let ((e-1 (vector-ref arg-13 1))) (let ((e-2 (vector-ref arg-13 2))) (let ((e-3 (vector-ref arg-13 3))) (let ((e-4 (vector-ref arg-13 4))) (case (vector-ref e-3 0) ((1) (let ((e-6 (vector-ref e-3 1))) (let ((e-7 (vector-ref e-3 2))) (let ((e-8 (vector-ref e-3 3))) (let ((e-9 (vector-ref e-3 4))) (vector 3 e-1 e-2 (vector 1 e-6 e-7 e-8 e-9) (TTImpC-45ElabC-45Check-n--10277-7989-u--useVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (cons e-2 arg-11) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45TT-u--weaken_Weaken_Term eta-0)) arg-12) e-4)))))))(else arg-13)))))))(else arg-13)))))))))(else (case (vector-ref arg-13 0) ((3) (let ((e-1 (vector-ref arg-13 1))) (let ((e-2 (vector-ref arg-13 2))) (let ((e-3 (vector-ref arg-13 3))) (let ((e-4 (vector-ref arg-13 4))) (case (vector-ref e-3 0) ((1) (let ((e-6 (vector-ref e-3 1))) (let ((e-7 (vector-ref e-3 2))) (let ((e-8 (vector-ref e-3 3))) (let ((e-9 (vector-ref e-3 4))) (vector 3 e-1 e-2 (vector 1 e-6 e-7 e-8 e-9) (TTImpC-45ElabC-45Check-n--10277-7989-u--useVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (cons e-2 arg-11) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45TT-u--weaken_Weaken_Term eta-0)) arg-12) e-4)))))))(else arg-13)))))))(else arg-13))))))))) +(define TTImpC-45ElabC-45Check-n--8655-6532-u--strTms (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((e-2 (car arg-7))) (let ((e-3 (cdr arg-7))) (lambda (clam-0) (case (vector-ref e-3 0) ((0) (let ((e-4 (vector-ref e-3 1))) (let ((e-5 (vector-ref e-3 2))) (let ((e-6 (vector-ref e-3 3))) (let ((e-7 (vector-ref e-3 4))) (let ((e-8 (vector-ref e-3 5))) (let ((act-24 (CoreC-45Normalise-normaliseHoles arg-5 (cons arg-1 arg-0) arg-6 arg-2 e-7 clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-9 (vector-ref act-24 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-normaliseHoles arg-5 (cons arg-1 arg-0) arg-6 arg-2 e-8 clam-0))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (let ((sc5 (CoreC-45TT-shrinkPi e-6 (vector 1 (vector 0 ))))) (if (null? sc5) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 28 (cons arg-1 arg-0) arg-3 arg-2 e-2 e-8) clam-0) (let ((e-11 (unbox sc5))) (let ((sc6 (TTImpC-45ElabC-45Check-n--8655-6531-u--removeArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-9))) (if (null? sc6) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 28 (cons arg-1 arg-0) arg-3 arg-2 e-2 e-8) clam-0) (let ((e-12 (unbox sc6))) (let ((sc7 (CoreC-45TT-shrinkTerm e-10 (vector 1 (vector 0 ))))) (if (null? sc7) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 28 (cons arg-1 arg-0) arg-3 arg-2 e-2 e-8) clam-0) (let ((e-13 (unbox sc7))) (vector 1 (cons e-2 (vector 0 arg-0 e-5 e-11 e-12 e-13)))))))))))))))))))))))))) (else (let ((e-9 (vector-ref e-3 1))) (let ((e-10 (vector-ref e-3 2))) (let ((e-11 (vector-ref e-3 3))) (let ((e-12 (vector-ref e-3 4))) (let ((e-13 (vector-ref e-3 5))) (let ((e-14 (vector-ref e-3 6))) (let ((act-24 (CoreC-45Normalise-normaliseHoles arg-5 (cons arg-1 arg-0) arg-6 arg-2 e-12 clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-normaliseHoles arg-5 (cons arg-1 arg-0) arg-6 arg-2 e-13 clam-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Normalise-normaliseHoles arg-5 (cons arg-1 arg-0) arg-6 arg-2 e-14 clam-0))) (case (vector-ref act-26 0) ((0) (let ((e-4 (vector-ref act-26 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref act-26 1))) (let ((sc6 (CoreC-45TT-shrinkPi e-11 (vector 1 (vector 0 ))))) (if (null? sc6) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 28 (cons arg-1 arg-0) arg-3 arg-2 e-2 e-13) clam-0) (let ((e-8 (unbox sc6))) (let ((sc7 (CoreC-45TT-shrinkTerm e-5 (vector 1 (vector 0 ))))) (if (null? sc7) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 28 (cons arg-1 arg-0) arg-3 arg-2 e-2 e-13) clam-0) (let ((e-15 (unbox sc7))) (let ((sc8 (CoreC-45TT-shrinkTerm e-6 (vector 1 (vector 0 ))))) (if (null? sc8) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 28 (cons arg-1 arg-0) arg-3 arg-2 e-2 e-13) clam-0) (let ((e-17 (unbox sc8))) (let ((sc9 (CoreC-45TT-shrinkTerm e-7 (vector 1 (vector 0 ))))) (if (null? sc9) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 28 (cons arg-1 arg-0) arg-3 arg-2 e-2 e-13) clam-0) (let ((e-21 (unbox sc9))) (vector 1 (cons e-2 (vector 1 arg-0 e-10 e-8 e-15 e-17 e-21)))))))))))))))))))))))))))))))))))))))) +(define TTImpC-45ElabC-45Check-n--8655-6530-u--removeArgVars (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7) (if (null? arg-7) (PreludeC-45Types-u--pure_Applicative_Maybe '()) (let ((e-2 (car arg-7))) (let ((e-3 (cdr arg-7))) (case (vector-ref e-2 0) ((0) (let ((e-6 (vector-ref e-2 1))) (let ((e-7 (vector-ref e-2 2))) (let ((e-8 (vector-ref e-2 3))) (cond ((equal? e-8 0) (TTImpC-45ElabC-45Check-n--8655-6530-u--removeArgVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3))(else (let ((e-10 (- e-8 1))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (TTImpC-45ElabC-45Check-n--8655-6530-u--removeArgVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3) (lambda (u--argsC-39) (PreludeC-45Types-u--pure_Applicative_Maybe (cons (vector 0 e-6 e-7 e-10) u--argsC-39)))))))))))(else (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45TT-shrinkTerm e-2 (vector 1 (vector 0 ))) (lambda (u--aC-39) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (TTImpC-45ElabC-45Check-n--8655-6530-u--removeArgVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3) (lambda (u--argsC-39) (PreludeC-45Types-u--pure_Applicative_Maybe (cons u--aC-39 u--argsC-39))))))))))))) +(define TTImpC-45ElabC-45Check-n--8655-6531-u--removeArg (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7) (TTImpC-45ElabC-45Check-case--strengthenedEStateC-44removeArg-6655 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 (CoreC-45TT-getFnArgs arg-7)))) +(define TTImpC-45ElabC-45Check-n--7673-5619-u--insertAll (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (if (null? arg-6) arg-7 (let ((e-2 (car arg-6))) (let ((e-3 (cdr arg-6))) (let ((e-6 (car e-2))) (let ((e-7 (cdr e-2))) (LibrariesC-45DataC-45NameMap-insert e-6 e-7 (TTImpC-45ElabC-45Check-n--7673-5619-u--insertAll arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3 arg-7))))))))) +(define TTImpC-45ElabC-45Check-n--12451-9924-u--getRight (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-11) (TTImpC-45ElabC-45Check-case--exactlyOneC-39C-44getRight-9940 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-11 (DataC-45Either-rights arg-11)))) +(define TTImpC-45ElabC-45Check-n--12451-9925-u--getRes (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10) (let ((e-2 (car arg-10))) (let ((e-6 (car e-2))) e-6)))) +(define TTImpC-45ElabC-45Check-n--12451-9926-u--getDepthError (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (case (vector-ref arg-9 0) ((20) (box arg-9))(else '())))) +(define TTImpC-45ElabC-45Check-n--10277-7990-u--find (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-12 arg-13) (if (null? arg-13) '() (let ((e-2 (car arg-13))) (let ((e-3 (cdr arg-13))) (let ((e-6 (car e-2))) (let ((e-7 (cdr e-2))) (let ((sc2 (CoreC-45Name-u--C-61C-61_Eq_Name arg-12 e-6))) (cond ((equal? sc2 1) (box e-7)) (else (let ((e-5 (car e-7))) (let ((e-4 (cdr e-7))) (if (null? e-5) (TTImpC-45ElabC-45Check-n--10277-7990-u--find arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-12 e-3) (let ((e-8 (unbox e-5))) (let ((u--t (cons (box e-8) e-4))) (let ((sc5 (CoreC-45Name-u--C-61C-61_Eq_Name arg-12 e-8))) (cond ((equal? sc5 1) (box u--t)) (else (TTImpC-45ElabC-45Check-n--10277-7990-u--find arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-12 e-3))))))))))))))))))) +(define TTImpC-45ElabC-45Check-n--10277-7991-u--envHints (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 ext-0) (if (null? arg-11) (vector 1 (cons '() (cons (lambda (eta-0) eta-0) arg-12))) (let ((e-2 (car arg-11))) (let ((e-3 (cdr arg-11))) (let ((act-24 (TTImpC-45ElabC-45Check-n--10277-7991-u--envHints arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-3 arg-12 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((e-6 (car e-5))) (let ((e-4 (cdr e-5))) (let ((e-8 (car e-4))) (let ((e-7 (cdr e-4))) (let ((act-25 (CoreC-45Context-toFullNames arg-10 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-0))))) e-2 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-9 (vector-ref act-25 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref act-25 1))) (let ((_-0 (cons e-6 (cons e-8 e-7)))) ((TTImpC-45ElabC-45Check-case--caseC-32blockC-32inC-32searchVarC-44envHints-8410 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-2 e-3 arg-12 e-6 e-8 e-7 _-0 e-9 (TTImpC-45ElabC-45Check-n--10277-7990-u--find arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-9 arg-3)) ext-0))))))))))))))))))) +(define TTImpC-45ElabC-45Check-n--8655-6533-u--dropTop (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7) (cond ((equal? arg-7 0) '())(else (let ((e-4 (- arg-7 1))) (box e-4)))))) +(define TTImpC-45ElabC-45Check-n--8655-6529-u--dropSub (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-9 ext-0) (case (vector-ref arg-9 0) ((1) (let ((e-3 (vector-ref arg-9 1))) (vector 1 e-3)))(else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 "Badly formed weakened environment") ext-0))))) +(define TTImpC-45ElabC-45Check-n--12451-9927-u--depthError (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (if (null? arg-9) '() (let ((e-2 (car arg-9))) (let ((e-3 (cdr arg-9))) (let ((e-7 (cdr e-2))) (PreludeC-45Types-maybe (lambda () (TTImpC-45ElabC-45Check-n--12451-9927-u--depthError arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-3)) (lambda () (lambda (eta-0) (box eta-0))) (TTImpC-45ElabC-45Check-n--12451-9926-u--getDepthError arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-7)))))))) +(define TTImpC-45ElabC-45Check-n--12451-9928-u--altError (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-11) (if (null? arg-11) (let ((sc1 (TTImpC-45ElabC-45Check-n--12451-9927-u--depthError arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10))) (if (null? sc1) (vector 21 arg-10) (let ((e-2 (unbox sc1))) e-2))) (vector 18 arg-0 arg-3 arg-2 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (TTImpC-45ElabC-45Check-n--12451-9925-u--getRes arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 eta-0)) arg-11))))) +(define TTImpC-45ElabC-45Check-u--show_Show_ElabMode (lambda (arg-0) (case (vector-ref arg-0 0) ((0) "InType") ((1) (let ((e-0 (vector-ref arg-0 1))) (PreludeC-45TypesC-45String-C-43C-43 "InLHS " (AlgebraC-45ZeroOneOmega-u--show_Show_ZeroOneOmega e-0)))) ((2) "InExpr") (else "InTransform")))) +(define TTImpC-45ElabC-45Check-u--show_Show_C-40ImplBindingC-32C-36varsC-41 (lambda (arg-1) (case (vector-ref arg-1 0) ((0) (let ((e-0 (vector-ref arg-1 1))) (let ((e-3 (vector-ref arg-1 4))) (let ((e-4 (vector-ref arg-1 5))) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (u--x) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 e-0 u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 e-0 u--d u--x)))) (cons (lambda (u--x) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 e-0 u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 e-0 u--d u--x))))) (cons e-3 e-4)))))) (else (let ((e-5 (vector-ref arg-1 1))) (let ((e-8 (vector-ref arg-1 4))) (let ((e-9 (vector-ref arg-1 5))) (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (u--x) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 e-5 u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 e-5 u--d u--x)))) (cons (lambda (u--x) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 e-5 u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 e-5 u--d u--x))))) (cons e-8 e-9)) (PreludeC-45TypesC-45String-C-43C-43 "@" (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 e-5 e-8)))))))))) (define TTImpC-45ElabC-45Check-u--showPrec_Show_C-40ImplBindingC-32C-36varsC-41 (lambda (arg-1 arg-2) (TTImpC-45ElabC-45Check-u--show_Show_C-40ImplBindingC-32C-36varsC-41 arg-2))) -(define TTImpC-45ElabC-45Check-u--C-61C-61_Eq_ElabOpt (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) 0)(else 1)))) ((1) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) 0)(else 1)))) ((2) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((2) 0)(else 1)))) ((3) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((3) 0)(else 1))))(else 1))))) -(define TTImpC-45ElabC-45Check-u--C-47C-61_Eq_ElabOpt (lambda (arg-0 arg-1) (let ((sc0 (TTImpC-45ElabC-45Check-u--C-61C-61_Eq_ElabOpt arg-0 arg-1))) (cond ((equal? sc0 0) 1) (else 0))))) -(define TTImpC-45ElabC-45Check-weakenedEState (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (CoreC-45Core-newRef (vector "TTImp.Elab.Check.EST" ) (let ((sc1 e-5)) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((e-3 (vector-ref sc1 3))) (let ((e-4 (vector-ref sc1 4))) (let ((e-14 (vector-ref sc1 5))) (let ((e-6 (vector-ref sc1 6))) (let ((e-7 (vector-ref sc1 7))) (let ((e-8 (vector-ref sc1 8))) (let ((e-9 (vector-ref sc1 9))) (let ((e-10 (vector-ref sc1 10))) (let ((e-11 (vector-ref sc1 11))) (let ((e-12 (vector-ref sc1 12))) (let ((e-13 (vector-ref sc1 13))) (vector 0 e-1 e-2 e-3 (vector 1 e-4) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (TTImpC-45ElabC-45Check-n--12186-5104-u--wknTms arg-0 arg-1 arg-2 eta-0)) e-14) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (TTImpC-45ElabC-45Check-n--12186-5104-u--wknTms arg-0 arg-1 arg-2 eta-0)) e-6) e-7 e-8 e-9 e-10 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45TT-u--weaken_Weaken_Var eta-0)) e-11) e-12 e-13))))))))))))))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 e-6))))))))))))) -(define TTImpC-45ElabC-45Check-updateEnv (lambda (arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (let ((e-2 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 5))) (let ((e-6 (vector-ref sc0 6))) (let ((e-8 (vector-ref sc0 8))) (let ((e-9 (vector-ref sc0 9))) (let ((e-10 (vector-ref sc0 10))) (let ((e-11 (vector-ref sc0 11))) (let ((e-12 (vector-ref sc0 12))) (let ((e-13 (vector-ref sc0 13))) (vector 0 arg-1 e-2 arg-2 arg-3 e-5 e-6 arg-4 e-8 e-9 e-10 e-11 e-12 e-13))))))))))))) -(define TTImpC-45ElabC-45Check-tryError (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (unbox arg-5))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (let ((act-26 (unbox arg-3))) (vector 1 act-26)))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (CoreC-45Context-branch arg-2 ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (CoreC-45Core-u--catch_Catchable_Core_Error (lambda (eta-0) (let ((act-28 (arg-6 eta-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-29 (CoreC-45Context-commit arg-2 eta-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (vector 1 (vector 1 e-9)))))))))))) (lambda (u--err) (lambda (eta-0) (let ((act-28 (let ((act-28 (set-box! arg-4 e-5))) (vector 1 act-28)))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-29 (let ((act-29 (set-box! arg-5 e-6))) (vector 1 act-29)))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((act-30 (let ((act-30 (set-box! arg-3 e-7))) (vector 1 act-30)))) (let ((sc6 act-30)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((act-31 (let ((act-31 (unbox arg-2))) (vector 1 act-31)))) (let ((sc7 act-31)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc7 1))) (let ((act-32 (let ((act-32 (set-box! arg-2 (let ((sc8 e-8)) (let ((e-0 (vector-ref sc8 1))) (let ((e-1 (vector-ref sc8 2))) (let ((e-2 (vector-ref sc8 3))) (let ((e-3 (vector-ref sc8 4))) (let ((e-4 (vector-ref sc8 5))) (let ((e-35 (vector-ref sc8 6))) (let ((e-34 (vector-ref sc8 7))) (let ((e-33 (vector-ref sc8 8))) (let ((e-32 (vector-ref sc8 9))) (let ((e-31 (vector-ref sc8 10))) (let ((e-30 (vector-ref sc8 11))) (let ((e-29 (vector-ref sc8 12))) (let ((e-28 (vector-ref sc8 13))) (let ((e-13 (vector-ref sc8 14))) (let ((e-14 (vector-ref sc8 15))) (let ((e-15 (vector-ref sc8 16))) (let ((e-16 (vector-ref sc8 17))) (let ((e-17 (vector-ref sc8 18))) (let ((e-18 (vector-ref sc8 19))) (let ((e-19 (vector-ref sc8 20))) (let ((e-20 (vector-ref sc8 21))) (let ((e-21 (vector-ref sc8 22))) (let ((e-22 (vector-ref sc8 23))) (let ((e-23 (vector-ref sc8 24))) (let ((e-24 (vector-ref sc8 25))) (let ((e-25 (vector-ref sc8 26))) (let ((e-27 (vector-ref sc8 28))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-35 e-34 e-33 e-32 e-31 e-30 e-29 e-28 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 (let ((sc9 e-12)) (let ((e-37 (vector-ref sc9 27))) e-37)) e-27)))))))))))))))))))))))))))))))) (vector 1 act-32)))) (let ((sc8 act-32)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (vector 1 (vector 0 u--err))))))))))))))))))))))))) ext-0))))))))))))))))))))))) -(define TTImpC-45ElabC-45Check-try (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 (TTImpC-45ElabC-45Check-tryError arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (vector 1 e-2))) (else (arg-7 ext-0))))))))))) -(define TTImpC-45ElabC-45Check-successful (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((sc0 arg-7)) (if (null? sc0) (vector 1 '()) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((u--ncons (let ((sc3 arg-6)) (cond ((equal? sc3 0) (PreludeC-45Types-u--fromInteger_Num_Nat 0)) (else (PreludeC-45TypesC-45List-length (LibrariesC-45DataC-45IntMap-toList (let ((sc4 e-5)) (let ((e-1 (vector-ref sc4 2))) e-1))))))))) (let ((act-25 (let ((act-25 (unbox arg-5))) (vector 1 act-25)))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-26 (let ((act-26 (unbox arg-3))) (vector 1 act-26)))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-27 (CoreC-45Context-branch arg-2 ext-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc5 1))) (CoreC-45Core-u--catch_Catchable_Core_Error (lambda (eta-0) (let ((act-28 (CoreC-45ContextC-45Log-logC arg-2 "elab" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-1) (let ((act-28 ((PreludeC-45Types-maybe (lambda () (lambda (eta-2) (vector 1 (vector 1 "__")))) (lambda () (lambda (eta-2) (lambda (eta-3) (CoreC-45Context-toFullNames arg-2 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-4) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-4)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) eta-2 eta-3)))) e-6) eta-1))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc6 1))) (vector 1 (PreludeC-45TypesC-45String-C-43C-43 "Running " (CoreC-45Name-u--show_Show_Name e-11))))))))) eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((act-29 (e-7 eta-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc7 1))) (let ((act-30 (let ((act-30 (unbox arg-4))) (vector 1 act-30)))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-13 (vector-ref sc8 1))) (let ((u--nconsC-39 (let ((sc9 arg-6)) (cond ((equal? sc9 0) (PreludeC-45Types-u--fromInteger_Num_Nat 0)) (else (PreludeC-45TypesC-45List-length (LibrariesC-45DataC-45IntMap-toList (let ((sc10 e-13)) (let ((e-1 (vector-ref sc10 2))) e-1))))))))) (let ((act-31 (let ((act-31 (unbox arg-5))) (vector 1 act-31)))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-14 (vector-ref sc9 1))) (let ((act-32 (let ((act-32 (unbox arg-3))) (vector 1 act-32)))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((act-33 (let ((act-33 (unbox arg-2))) (vector 1 act-33)))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((e-16 (vector-ref sc11 1))) (let ((act-34 (let ((act-34 (set-box! arg-4 e-5))) (vector 1 act-34)))) (let ((sc12 act-34)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (let ((act-35 (let ((act-35 (set-box! arg-5 e-8))) (vector 1 act-35)))) (let ((sc13 act-35)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (vector 0 e-4))) (else (let ((act-36 (let ((act-36 (set-box! arg-3 e-9))) (vector 1 act-36)))) (let ((sc14 act-36)) (case (vector-ref sc14 0) ((0) (let ((e-4 (vector-ref sc14 1))) (vector 0 e-4))) (else (let ((act-37 (let ((act-37 (set-box! arg-2 e-10))) (vector 1 act-37)))) (let ((sc15 act-37)) (case (vector-ref sc15 0) ((0) (let ((e-4 (vector-ref sc15 1))) (vector 0 e-4))) (else (let ((act-38 (CoreC-45ContextC-45Log-logC arg-2 "elab" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-1) (let ((act-38 ((PreludeC-45Types-maybe (lambda () (lambda (eta-2) (vector 1 (vector 1 "__")))) (lambda () (lambda (eta-2) (lambda (eta-3) (CoreC-45Context-toFullNames arg-2 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-4) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-4)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) eta-2 eta-3)))) e-6) eta-1))) (let ((sc16 act-38)) (case (vector-ref sc16 0) ((0) (let ((e-4 (vector-ref sc16 1))) (vector 0 e-4))) (else (let ((e-21 (vector-ref sc16 1))) (vector 1 (PreludeC-45TypesC-45String-C-43C-43 "Success " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-21) (PreludeC-45TypesC-45String-C-43C-43 " (" (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Nat u--nconsC-39) (PreludeC-45TypesC-45String-C-43C-43 " - " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Nat u--ncons) ")"))))))))))))) eta-0))) (let ((sc16 act-38)) (case (vector-ref sc16 0) ((0) (let ((e-4 (vector-ref sc16 1))) (vector 0 e-4))) (else (let ((act-39 (TTImpC-45ElabC-45Check-successful arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3 eta-0))) (let ((sc17 act-39)) (case (vector-ref sc17 0) ((0) (let ((e-4 (vector-ref sc17 1))) (vector 0 e-4))) (else (let ((e-22 (vector-ref sc17 1))) (vector 1 (cons (vector 1 (cons (PreludeC-45Types-minus u--nconsC-39 u--ncons) (cons e-12 (cons e-16 (cons e-13 e-14))))) e-22))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (lambda (u--err) (lambda (eta-0) (let ((act-28 (let ((act-28 (set-box! arg-4 e-5))) (vector 1 act-28)))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((act-29 (let ((act-29 (set-box! arg-5 e-8))) (vector 1 act-29)))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((act-30 (let ((act-30 (set-box! arg-3 e-9))) (vector 1 act-30)))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((act-31 (let ((act-31 (set-box! arg-2 e-10))) (vector 1 act-31)))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((act-32 (TTImpC-45ElabC-45Check-successful arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3 eta-0))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-15 (vector-ref sc10 1))) (let ((act-33 (CoreC-45Normalise-normaliseErr arg-2 u--err eta-0))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((e-16 (vector-ref sc11 1))) (vector 1 (cons (vector 0 (cons e-6 e-16)) e-15)))))))))))))))))))))))))))))) ext-0))))))))))))))))))))))))))))))) -(define TTImpC-45ElabC-45Check-strengthenedEState (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (let ((act-24 (unbox arg-3))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (unbox arg-2))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (TTImpC-45ElabC-45Check-n--12359-5276-u--dropSub arg-1 arg-0 arg-5 arg-4 arg-3 arg-2 (let ((sc2 e-5)) (let ((e-4 (vector-ref sc2 4))) e-4)) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (TTImpC-45ElabC-45Check-n--12359-5280-u--strTms arg-1 arg-0 arg-5 arg-4 arg-3 arg-2 e-6 eta-0)) (let ((sc3 e-5)) (let ((e-16 (vector-ref sc3 5))) e-16)) '() ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (TTImpC-45ElabC-45Check-n--12359-5280-u--strTms arg-1 arg-0 arg-5 arg-4 arg-3 arg-2 e-6 eta-0)) (let ((sc4 e-5)) (let ((e-16 (vector-ref sc4 6))) e-16)) '() ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (vector 1 (let ((sc5 e-5)) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((e-3 (vector-ref sc5 3))) (let ((e-16 (vector-ref sc5 7))) (let ((e-15 (vector-ref sc5 8))) (let ((e-14 (vector-ref sc5 9))) (let ((e-10 (vector-ref sc5 10))) (let ((e-11 (vector-ref sc5 11))) (let ((e-12 (vector-ref sc5 12))) (let ((e-13 (vector-ref sc5 13))) (vector 0 e-1 e-2 e-3 e-7 e-8 e-9 e-16 e-15 e-14 e-10 (DataC-45List-mapMaybe (lambda (eta-0) (TTImpC-45ElabC-45Check-n--12359-5281-u--dropTop arg-1 arg-0 arg-5 arg-4 arg-3 arg-2 eta-0)) e-11) e-12 e-13)))))))))))))))))))))))))))))))))))))))) -(define TTImpC-45ElabC-45Check-searchVar (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (TTImpC-45ElabC-45Check-n--13775-6564-u--envHints arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (LibrariesC-45DataC-45NameMap-keys (let ((sc1 e-5)) (let ((e-10 (vector-ref sc1 11))) e-10))) arg-7 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (let ((e-2 (car sc2))) (let ((e-3 (cdr sc2))) (let ((sc3 e-3)) (let ((e-8 (car sc3))) (let ((e-7 (cdr sc3))) (let ((act-26 ((CoreC-45UnifyState-newSearch (PreludeC-45TypesC-45List-C-43C-43 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-7 arg-9 (CoreC-45TT-u--weakenNs_Weaken_Term (CoreC-45TTC-45SizeOf-mkSizeOf e-2) arg-10)) ext-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc4 1))) (let ((sc5 e-9)) (let ((e-4 (cdr sc5))) (vector 1 (e-8 e-4))))))))))))))))))))))))))) -(define TTImpC-45ElabC-45Check-saveHole (lambda (arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-1 (let ((sc1 e-5)) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((e-3 (vector-ref sc1 3))) (let ((e-4 (vector-ref sc1 4))) (let ((e-14 (vector-ref sc1 5))) (let ((e-6 (vector-ref sc1 6))) (let ((e-7 (vector-ref sc1 7))) (let ((e-8 (vector-ref sc1 8))) (let ((e-9 (vector-ref sc1 9))) (let ((e-10 (vector-ref sc1 10))) (let ((e-11 (vector-ref sc1 11))) (let ((e-12 (vector-ref sc1 12))) (let ((e-13 (vector-ref sc1 13))) (vector 0 e-1 e-2 e-3 e-4 e-14 e-6 e-7 e-8 e-9 e-10 e-11 (LibrariesC-45DataC-45NameMap-insert arg-2 (vector 0 ) e-12) e-13)))))))))))))))))) (vector 1 act-25))))))))) -(define TTImpC-45ElabC-45Check-notePatVar (lambda (arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-1 (let ((sc1 e-5)) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((e-3 (vector-ref sc1 3))) (let ((e-4 (vector-ref sc1 4))) (let ((e-14 (vector-ref sc1 5))) (let ((e-6 (vector-ref sc1 6))) (let ((e-7 (vector-ref sc1 7))) (let ((e-8 (vector-ref sc1 8))) (let ((e-9 (vector-ref sc1 9))) (let ((e-10 (vector-ref sc1 10))) (let ((e-11 (vector-ref sc1 11))) (let ((e-12 (vector-ref sc1 12))) (let ((e-13 (vector-ref sc1 13))) (vector 0 e-1 e-2 e-3 e-4 e-14 e-6 e-7 e-8 (cons arg-2 e-9) e-10 e-11 e-12 e-13)))))))))))))))))) (vector 1 act-25))))))))) -(define TTImpC-45ElabC-45Check-noteLHSPatVar (lambda (arg-1 arg-2 arg-3 ext-0) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (set-box! arg-1 (let ((sc2 e-5)) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-3 (vector-ref sc2 3))) (let ((e-4 (vector-ref sc2 4))) (let ((e-14 (vector-ref sc2 5))) (let ((e-6 (vector-ref sc2 6))) (let ((e-7 (vector-ref sc2 7))) (let ((e-8 (vector-ref sc2 8))) (let ((e-9 (vector-ref sc2 9))) (let ((e-10 (vector-ref sc2 10))) (let ((e-11 (vector-ref sc2 11))) (let ((e-12 (vector-ref sc2 12))) (let ((e-13 (vector-ref sc2 13))) (vector 0 e-1 e-2 e-3 e-4 e-14 e-6 e-7 (cons arg-3 e-8) e-9 e-10 e-11 e-12 e-13)))))))))))))))))) (vector 1 act-25))))))))(else (vector 1 (vector 0 ))))))) -(define TTImpC-45ElabC-45Check-metaVarI (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((CoreC-45Normalise-nf arg-1 arg-0 e-5 arg-5 arg-7) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((u--hinf (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-3 (vector-ref sc2 3))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((2) (let ((e-9 (vector-ref sc3 1))) (let ((e-8 (vector-ref sc3 2))) (let ((e-7 (vector-ref sc3 3))) (let ((u--tynf (vector 1 e-1 (vector 2 e-9 e-8 e-7) e-3))) (TTImpC-45ElabC-45Check-case--caseC-32blockC-32inC-32metaVarI-6479 arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-1 e-3 e-9 e-8 e-7 u--tynf (CoreC-45Context-holeInit 1)))))))(else (CoreC-45Context-holeInit 1))))))))(else (CoreC-45Context-holeInit 1)))))) ((CoreC-45UnifyState-newMeta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (vector 7 (CoreC-45Env-length arg-5) u--hinf) 0) ext-0)))))))))))))) -(define TTImpC-45ElabC-45Check-metaVar (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 ((CoreC-45UnifyState-newMeta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (vector 7 (CoreC-45Env-length arg-5) (CoreC-45Context-holeInit 1)) 0) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-3 (cdr sc1))) (vector 1 e-3)))))))))) -(define TTImpC-45ElabC-45Check-isLHS (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (vector 1 e-0)))(else (vector 0 )))))) -(define TTImpC-45ElabC-45Check-initElabInfo (lambda (arg-0) (vector 0 arg-0 (vector 2 ) 1 0 1 '()))) -(define TTImpC-45ElabC-45Check-initEStateSub (lambda (arg-1 arg-2 arg-3 arg-4) (vector 0 arg-1 arg-2 arg-3 arg-4 '() '() '() '() '() 0 '() (LibrariesC-45DataC-45NameMap-empty) (LibrariesC-45DataC-45StringMap-empty)))) +(define TTImpC-45ElabC-45Check-u--C-61C-61_Eq_ElabOpt (lambda (arg-0 arg-1) (cond ((equal? arg-0 0) (cond ((equal? arg-1 0) 1)(else 0))) ((equal? arg-0 1) (cond ((equal? arg-1 1) 1)(else 0))) ((equal? arg-0 2) (cond ((equal? arg-1 2) 1)(else 0))) ((equal? arg-0 3) (cond ((equal? arg-1 3) 1)(else 0)))(else 0)))) +(define TTImpC-45ElabC-45Check-u--C-47C-61_Eq_ElabOpt (lambda (arg-0 arg-1) (let ((sc0 (TTImpC-45ElabC-45Check-u--C-61C-61_Eq_ElabOpt arg-0 arg-1))) (cond ((equal? sc0 1) 0) (else 1))))) +(define TTImpC-45ElabC-45Check-weakenedEState (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Core-newRef (vector "TTImp.Elab.Check.EST" ) (let ((e-1 (vector-ref e-5 0))) (let ((e-2 (vector-ref e-5 1))) (let ((e-3 (vector-ref e-5 2))) (let ((e-4 (vector-ref e-5 3))) (let ((e-15 (vector-ref e-5 4))) (let ((e-6 (vector-ref e-5 5))) (let ((e-7 (vector-ref e-5 6))) (let ((e-8 (vector-ref e-5 7))) (let ((e-9 (vector-ref e-5 8))) (let ((e-11 (vector-ref e-5 10))) (let ((e-12 (vector-ref e-5 11))) (let ((e-13 (vector-ref e-5 12))) (let ((e-14 (vector-ref e-5 13))) (vector e-1 e-2 e-3 (vector 1 e-4) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (TTImpC-45ElabC-45Check-n--8473-6350-u--wknTms arg-0 arg-1 arg-2 eta-0)) e-15) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (TTImpC-45ElabC-45Check-n--8473-6350-u--wknTms arg-0 arg-1 arg-2 eta-0)) e-6) e-7 e-8 e-9 '() e-11 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45TT-u--weaken_Weaken_Var eta-0)) e-12) e-13 e-14)))))))))))))) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 e-6))))))))))) +(define TTImpC-45ElabC-45Check-updateEnv (lambda (arg-1 arg-2 arg-3 arg-4 arg-5) (let ((e-2 (vector-ref arg-5 1))) (let ((e-5 (vector-ref arg-5 4))) (let ((e-6 (vector-ref arg-5 5))) (let ((e-8 (vector-ref arg-5 7))) (let ((e-9 (vector-ref arg-5 8))) (let ((e-10 (vector-ref arg-5 9))) (let ((e-11 (vector-ref arg-5 10))) (let ((e-12 (vector-ref arg-5 11))) (let ((e-13 (vector-ref arg-5 12))) (let ((e-14 (vector-ref arg-5 13))) (vector arg-1 e-2 arg-2 arg-3 e-5 e-6 arg-4 e-8 e-9 e-10 e-11 e-12 e-13 e-14))))))))))))) +(define TTImpC-45ElabC-45Check-tryError (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (let ((act-25 (unbox arg-5))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (let ((act-26 (unbox arg-3))) (vector 1 act-26)))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (CoreC-45Context-branch arg-2 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (CoreC-45Core-u--catch_Catchable_Core_Error (lambda (eta-0) (let ((act-28 (arg-6 eta-0))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-28 1))) (let ((act-29 (CoreC-45Context-commit arg-2 eta-0))) (case (vector-ref act-29 0) ((0) (let ((e-2 (vector-ref act-29 1))) (vector 0 e-2))) (else (vector 1 (vector 1 e-9)))))))))) (lambda (u--err) (lambda (eta-0) (let ((act-28 (let ((act-28 (set-box! arg-4 e-5))) (vector 1 act-28)))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((act-29 (let ((act-29 (set-box! arg-5 e-6))) (vector 1 act-29)))) (case (vector-ref act-29 0) ((0) (let ((e-2 (vector-ref act-29 1))) (vector 0 e-2))) (else (let ((act-30 (let ((act-30 (set-box! arg-3 e-7))) (vector 1 act-30)))) (case (vector-ref act-30 0) ((0) (let ((e-2 (vector-ref act-30 1))) (vector 0 e-2))) (else (let ((act-31 (let ((act-31 (unbox arg-2))) (vector 1 act-31)))) (case (vector-ref act-31 0) ((0) (let ((e-2 (vector-ref act-31 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref act-31 1))) (let ((act-32 (let ((act-32 (set-box! arg-2 (let ((e-0 (vector-ref e-8 0))) (let ((e-1 (vector-ref e-8 1))) (let ((e-2 (vector-ref e-8 2))) (let ((e-3 (vector-ref e-8 3))) (let ((e-4 (vector-ref e-8 4))) (let ((e-36 (vector-ref e-8 5))) (let ((e-35 (vector-ref e-8 6))) (let ((e-34 (vector-ref e-8 7))) (let ((e-33 (vector-ref e-8 8))) (let ((e-32 (vector-ref e-8 9))) (let ((e-31 (vector-ref e-8 10))) (let ((e-30 (vector-ref e-8 11))) (let ((e-29 (vector-ref e-8 12))) (let ((e-13 (vector-ref e-8 13))) (let ((e-14 (vector-ref e-8 14))) (let ((e-15 (vector-ref e-8 15))) (let ((e-16 (vector-ref e-8 16))) (let ((e-17 (vector-ref e-8 17))) (let ((e-18 (vector-ref e-8 18))) (let ((e-19 (vector-ref e-8 19))) (let ((e-20 (vector-ref e-8 20))) (let ((e-21 (vector-ref e-8 21))) (let ((e-22 (vector-ref e-8 22))) (let ((e-23 (vector-ref e-8 23))) (let ((e-24 (vector-ref e-8 24))) (let ((e-25 (vector-ref e-8 25))) (let ((e-27 (vector-ref e-8 27))) (let ((e-28 (vector-ref e-8 28))) (vector e-0 e-1 e-2 e-3 e-4 e-36 e-35 e-34 e-33 e-32 e-31 e-30 e-29 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 (let ((e-39 (vector-ref e-12 26))) e-39) e-27 e-28)))))))))))))))))))))))))))))))) (vector 1 act-32)))) (case (vector-ref act-32 0) ((0) (let ((e-2 (vector-ref act-32 1))) (vector 0 e-2))) (else (vector 1 (vector 0 u--err)))))))))))))))))))) ext-0))))))))))))))))))) +(define TTImpC-45ElabC-45Check-try (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 (TTImpC-45ElabC-45Check-tryError arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (case (vector-ref e-5 0) ((1) (let ((e-2 (vector-ref e-5 1))) (vector 1 e-2))) (else (arg-7 ext-0))))))))) +(define TTImpC-45ElabC-45Check-successful (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (if (null? arg-7) (vector 1 '()) (let ((e-2 (car arg-7))) (let ((e-3 (cdr arg-7))) (let ((e-6 (car e-2))) (let ((e-7 (cdr e-2))) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((u--ncons (cond ((equal? arg-6 1) (PreludeC-45Types-u--fromInteger_Num_Nat 0)) (else (PreludeC-45TypesC-45List-length (LibrariesC-45DataC-45IntMap-toList (let ((e-1 (vector-ref e-5 1))) e-1))))))) (let ((act-25 (let ((act-25 (unbox arg-5))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref act-25 1))) (let ((act-26 (let ((act-26 (unbox arg-3))) (vector 1 act-26)))) (case (vector-ref act-26 0) ((0) (let ((e-4 (vector-ref act-26 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref act-26 1))) (let ((act-27 (CoreC-45Context-branch arg-2 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-4 (vector-ref act-27 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref act-27 1))) (CoreC-45Core-u--catch_Catchable_Core_Error (lambda (eta-0) (let ((act-28 (CoreC-45ContextC-45Log-unverifiedLogC arg-2 "elab" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-1) (let ((act-28 ((PreludeC-45Types-maybe (lambda () (lambda (eta-2) (vector 1 (vector 1 "__")))) (lambda () (lambda (eta-2) (lambda (eta-3) (CoreC-45Context-toFullNames arg-2 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-4) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-4)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-4) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-4))))) eta-2 eta-3)))) e-6) eta-1))) (case (vector-ref act-28 0) ((0) (let ((e-4 (vector-ref act-28 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref act-28 1))) (vector 1 (PreludeC-45TypesC-45String-C-43C-43 "Running " (CoreC-45Name-u--show_Show_Name e-11)))))))) eta-0))) (case (vector-ref act-28 0) ((0) (let ((e-4 (vector-ref act-28 1))) (vector 0 e-4))) (else (let ((act-29 (e-7 eta-0))) (case (vector-ref act-29 0) ((0) (let ((e-4 (vector-ref act-29 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref act-29 1))) (let ((act-30 (let ((act-30 (unbox arg-4))) (vector 1 act-30)))) (case (vector-ref act-30 0) ((0) (let ((e-4 (vector-ref act-30 1))) (vector 0 e-4))) (else (let ((e-13 (vector-ref act-30 1))) (let ((u--nconsC-39 (cond ((equal? arg-6 1) (PreludeC-45Types-u--fromInteger_Num_Nat 0)) (else (PreludeC-45TypesC-45List-length (LibrariesC-45DataC-45IntMap-toList (let ((e-1 (vector-ref e-13 1))) e-1))))))) (let ((act-31 (let ((act-31 (unbox arg-5))) (vector 1 act-31)))) (case (vector-ref act-31 0) ((0) (let ((e-4 (vector-ref act-31 1))) (vector 0 e-4))) (else (let ((e-14 (vector-ref act-31 1))) (let ((act-32 (let ((act-32 (unbox arg-3))) (vector 1 act-32)))) (case (vector-ref act-32 0) ((0) (let ((e-4 (vector-ref act-32 1))) (vector 0 e-4))) (else (let ((e-15 (vector-ref act-32 1))) (let ((act-33 (let ((act-33 (unbox arg-2))) (vector 1 act-33)))) (case (vector-ref act-33 0) ((0) (let ((e-4 (vector-ref act-33 1))) (vector 0 e-4))) (else (let ((e-16 (vector-ref act-33 1))) (let ((act-34 (let ((act-34 (set-box! arg-4 e-5))) (vector 1 act-34)))) (case (vector-ref act-34 0) ((0) (let ((e-4 (vector-ref act-34 1))) (vector 0 e-4))) (else (let ((act-35 (let ((act-35 (set-box! arg-5 e-8))) (vector 1 act-35)))) (case (vector-ref act-35 0) ((0) (let ((e-4 (vector-ref act-35 1))) (vector 0 e-4))) (else (let ((act-36 (let ((act-36 (set-box! arg-3 e-9))) (vector 1 act-36)))) (case (vector-ref act-36 0) ((0) (let ((e-4 (vector-ref act-36 1))) (vector 0 e-4))) (else (let ((act-37 (let ((act-37 (set-box! arg-2 e-10))) (vector 1 act-37)))) (case (vector-ref act-37 0) ((0) (let ((e-4 (vector-ref act-37 1))) (vector 0 e-4))) (else (let ((act-38 (CoreC-45ContextC-45Log-unverifiedLogC arg-2 "elab" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-1) (let ((act-38 ((PreludeC-45Types-maybe (lambda () (lambda (eta-2) (vector 1 (vector 1 "__")))) (lambda () (lambda (eta-2) (lambda (eta-3) (CoreC-45Context-toFullNames arg-2 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-4) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-4)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-4) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-4))))) eta-2 eta-3)))) e-6) eta-1))) (case (vector-ref act-38 0) ((0) (let ((e-4 (vector-ref act-38 1))) (vector 0 e-4))) (else (let ((e-21 (vector-ref act-38 1))) (vector 1 (PreludeC-45TypesC-45String-C-43C-43 "Success " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-21) (PreludeC-45TypesC-45String-C-43C-43 " (" (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Nat u--nconsC-39) (PreludeC-45TypesC-45String-C-43C-43 " - " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Nat u--ncons) ")")))))))))))) eta-0))) (case (vector-ref act-38 0) ((0) (let ((e-4 (vector-ref act-38 1))) (vector 0 e-4))) (else (let ((act-39 (TTImpC-45ElabC-45Check-successful arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3 eta-0))) (case (vector-ref act-39 0) ((0) (let ((e-4 (vector-ref act-39 1))) (vector 0 e-4))) (else (let ((e-22 (vector-ref act-39 1))) (vector 1 (cons (vector 1 (cons (PreludeC-45Types-prim__integerToNat (- u--nconsC-39 u--ncons)) (cons e-12 (cons e-16 (cons e-13 (cons e-14 e-15)))))) e-22)))))))))))))))))))))))))))))))))))))))))))))) (lambda (u--err) (lambda (eta-0) (let ((act-28 (let ((act-28 (set-box! arg-4 e-5))) (vector 1 act-28)))) (case (vector-ref act-28 0) ((0) (let ((e-4 (vector-ref act-28 1))) (vector 0 e-4))) (else (let ((act-29 (let ((act-29 (set-box! arg-5 e-8))) (vector 1 act-29)))) (case (vector-ref act-29 0) ((0) (let ((e-4 (vector-ref act-29 1))) (vector 0 e-4))) (else (let ((act-30 (let ((act-30 (set-box! arg-3 e-9))) (vector 1 act-30)))) (case (vector-ref act-30 0) ((0) (let ((e-4 (vector-ref act-30 1))) (vector 0 e-4))) (else (let ((act-31 (let ((act-31 (set-box! arg-2 e-10))) (vector 1 act-31)))) (case (vector-ref act-31 0) ((0) (let ((e-4 (vector-ref act-31 1))) (vector 0 e-4))) (else (let ((act-32 (TTImpC-45ElabC-45Check-successful arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3 eta-0))) (case (vector-ref act-32 0) ((0) (let ((e-4 (vector-ref act-32 1))) (vector 0 e-4))) (else (let ((e-15 (vector-ref act-32 1))) (let ((act-33 (CoreC-45Normalise-normaliseErr arg-2 u--err eta-0))) (case (vector-ref act-33 0) ((0) (let ((e-4 (vector-ref act-33 1))) (vector 0 e-4))) (else (let ((e-16 (vector-ref act-33 1))) (vector 1 (cons (vector 0 (cons e-6 e-16)) e-15)))))))))))))))))))))))) ext-0))))))))))))))))))))))))) +(define TTImpC-45ElabC-45Check-strengthenedEState (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (let ((act-24 (unbox arg-3))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (let ((act-25 (unbox arg-2))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45ElabC-45Check-n--8655-6529-u--dropSub arg-1 arg-0 arg-5 arg-4 arg-3 arg-2 (let ((e-4 (vector-ref e-5 3))) e-4) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (TTImpC-45ElabC-45Check-n--8655-6532-u--strTms arg-1 arg-0 arg-5 arg-4 arg-3 arg-2 e-6 eta-0)) (let ((e-17 (vector-ref e-5 4))) e-17) '() ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (TTImpC-45ElabC-45Check-n--8655-6532-u--strTms arg-1 arg-0 arg-5 arg-4 arg-3 arg-2 e-6 eta-0)) (let ((e-17 (vector-ref e-5 5))) e-17) '() ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-28 1))) (vector 1 (let ((e-1 (vector-ref e-5 0))) (let ((e-2 (vector-ref e-5 1))) (let ((e-3 (vector-ref e-5 2))) (let ((e-17 (vector-ref e-5 6))) (let ((e-16 (vector-ref e-5 7))) (let ((e-15 (vector-ref e-5 8))) (let ((e-11 (vector-ref e-5 10))) (let ((e-12 (vector-ref e-5 11))) (let ((e-13 (vector-ref e-5 12))) (let ((e-14 (vector-ref e-5 13))) (vector e-1 e-2 e-3 e-7 e-8 e-9 e-17 e-16 e-15 '() e-11 (DataC-45List-mapMaybe (lambda (eta-0) (TTImpC-45ElabC-45Check-n--8655-6533-u--dropTop arg-1 arg-0 arg-5 arg-4 arg-3 arg-2 eta-0)) e-12) e-13 e-14)))))))))))))))))))))))))))))))))) +(define TTImpC-45ElabC-45Check-searchVar (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (TTImpC-45ElabC-45Check-n--10277-7991-u--envHints arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (LibrariesC-45DataC-45NameMap-keys (let ((e-10 (vector-ref e-5 10))) e-10)) arg-7 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((e-2 (car e-6))) (let ((e-3 (cdr e-6))) (let ((e-8 (car e-3))) (let ((e-7 (cdr e-3))) (let ((act-26 ((CoreC-45UnifyState-newSearch (PreludeC-45TypesC-45List-C-43C-43 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-7 arg-9 (CoreC-45TT-u--weakenNs_Weaken_Term (CoreC-45TTC-45SizeOf-mkSizeOf e-2) arg-10)) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-4 (vector-ref act-26 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref act-26 1))) (let ((e-4 (cdr e-9))) (vector 1 (e-8 e-4))))))))))))))))))))) +(define TTImpC-45ElabC-45Check-saveHole (lambda (arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (set-box! arg-1 (let ((e-1 (vector-ref e-5 0))) (let ((e-2 (vector-ref e-5 1))) (let ((e-3 (vector-ref e-5 2))) (let ((e-4 (vector-ref e-5 3))) (let ((e-15 (vector-ref e-5 4))) (let ((e-6 (vector-ref e-5 5))) (let ((e-7 (vector-ref e-5 6))) (let ((e-8 (vector-ref e-5 7))) (let ((e-9 (vector-ref e-5 8))) (let ((e-10 (vector-ref e-5 9))) (let ((e-11 (vector-ref e-5 10))) (let ((e-12 (vector-ref e-5 11))) (let ((e-13 (vector-ref e-5 12))) (let ((e-14 (vector-ref e-5 13))) (vector e-1 e-2 e-3 e-4 e-15 e-6 e-7 e-8 e-9 e-10 e-11 e-12 (LibrariesC-45DataC-45NameMap-insert arg-2 0 e-13) e-14)))))))))))))))))) (vector 1 act-25)))))))) +(define TTImpC-45ElabC-45Check-notePatVar (lambda (arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (set-box! arg-1 (let ((e-1 (vector-ref e-5 0))) (let ((e-2 (vector-ref e-5 1))) (let ((e-3 (vector-ref e-5 2))) (let ((e-4 (vector-ref e-5 3))) (let ((e-15 (vector-ref e-5 4))) (let ((e-6 (vector-ref e-5 5))) (let ((e-7 (vector-ref e-5 6))) (let ((e-8 (vector-ref e-5 7))) (let ((e-9 (vector-ref e-5 8))) (let ((e-10 (vector-ref e-5 9))) (let ((e-11 (vector-ref e-5 10))) (let ((e-12 (vector-ref e-5 11))) (let ((e-13 (vector-ref e-5 12))) (let ((e-14 (vector-ref e-5 13))) (vector e-1 e-2 e-3 e-4 e-15 e-6 e-7 e-8 (cons arg-2 e-9) e-10 e-11 e-12 e-13 e-14)))))))))))))))))) (vector 1 act-25)))))))) +(define TTImpC-45ElabC-45Check-noteLHSPatVar (lambda (arg-1 arg-2 arg-3 ext-0) (case (vector-ref arg-2 0) ((1) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (set-box! arg-1 (let ((e-1 (vector-ref e-5 0))) (let ((e-2 (vector-ref e-5 1))) (let ((e-3 (vector-ref e-5 2))) (let ((e-4 (vector-ref e-5 3))) (let ((e-15 (vector-ref e-5 4))) (let ((e-6 (vector-ref e-5 5))) (let ((e-7 (vector-ref e-5 6))) (let ((e-8 (vector-ref e-5 7))) (let ((e-9 (vector-ref e-5 8))) (let ((e-10 (vector-ref e-5 9))) (let ((e-11 (vector-ref e-5 10))) (let ((e-12 (vector-ref e-5 11))) (let ((e-13 (vector-ref e-5 12))) (let ((e-14 (vector-ref e-5 13))) (vector e-1 e-2 e-3 e-4 e-15 e-6 e-7 (cons arg-3 e-8) e-9 e-10 e-11 e-12 e-13 e-14)))))))))))))))))) (vector 1 act-25)))))))(else (vector 1 0))))) +(define TTImpC-45ElabC-45Check-metaVarI (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Normalise-nf arg-1 arg-0 e-5 arg-5 arg-7) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((u--hinf (case (vector-ref e-6 0) ((1) (let ((e-2 (vector-ref e-6 2))) (case (vector-ref e-2 0) ((2) (let ((sc4 (CoreC-45Context-holeInit 0))) (let ((e-0 (car sc4))) (cons e-0 1))))(else (CoreC-45Context-holeInit 0)))))(else (CoreC-45Context-holeInit 0))))) ((CoreC-45UnifyState-newMeta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (vector 7 (CoreC-45Env-length arg-5) u--hinf) 1) ext-0)))))))))))) +(define TTImpC-45ElabC-45Check-metaVar (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 ((CoreC-45UnifyState-newMeta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (vector 7 (CoreC-45Env-length arg-5) (CoreC-45Context-holeInit 0)) 1) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((e-3 (cdr e-5))) (vector 1 e-3)))))))) +(define TTImpC-45ElabC-45Check-isLHS (lambda (arg-0) (case (vector-ref arg-0 0) ((1) (let ((e-0 (vector-ref arg-0 1))) (box e-0)))(else '())))) +(define TTImpC-45ElabC-45Check-initElabInfo (lambda (arg-0) (vector arg-0 (vector 2 ) 0 1 0 '()))) +(define TTImpC-45ElabC-45Check-initEStateSub (lambda (arg-1 arg-2 arg-3 arg-4) (vector arg-1 arg-2 arg-3 arg-4 '() '() '() '() '() '() 0 '() (LibrariesC-45DataC-45NameMap-empty) (LibrariesC-45DataC-45StringMap-empty)))) (define TTImpC-45ElabC-45Check-initEState (lambda (arg-0 arg-1 arg-2) (TTImpC-45ElabC-45Check-initEStateSub arg-0 arg-1 arg-2 (vector 0 )))) -(define TTImpC-45ElabC-45Check-inScope (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 (TTImpC-45ElabC-45Check-weakenedEState arg-1 arg-2 arg-4 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((arg-7 e-5) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (TTImpC-45ElabC-45Check-strengthenedEState arg-1 arg-2 arg-3 e-5 arg-5 arg-6 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (let ((act-27 (set-box! arg-4 e-7))) (vector 1 act-27)))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (vector 1 e-6)))))))))))))))))))))) -(define TTImpC-45ElabC-45Check-implBindVar (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 ((CoreC-45UnifyState-newMeta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (vector 7 (CoreC-45Env-length arg-5) (CoreC-45Context-holeInit 0)) 0) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-3 (cdr sc1))) (vector 1 e-3)))))))))) -(define TTImpC-45ElabC-45Check-handle (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 (TTImpC-45ElabC-45Check-tryError arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (vector 1 e-2))) (else (let ((e-6 (vector-ref sc1 1))) ((arg-7 e-6) ext-0)))))))))))) -(define TTImpC-45ElabC-45Check-exactlyOneC-39 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (if (null? sc0) (lambda (eta-0) (let ((act-24 (TTImpC-45ElabC-45Check-successful arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-8 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((TTImpC-45ElabC-45Check-case--exactlyOneC-39-8773 arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 (TTImpC-45ElabC-45Check-n--15896-8467-u--getRight arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5)) eta-0))))))) (let ((e-1 (car sc0))) (let ((e-2 (cdr sc0))) (let ((sc1 e-1)) (if (null? sc1) (lambda (eta-0) (let ((act-24 (TTImpC-45ElabC-45Check-successful arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-8 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc2 1))) ((TTImpC-45ElabC-45Check-case--exactlyOneC-39-8773 arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 (TTImpC-45ElabC-45Check-n--15896-8467-u--getRight arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5)) eta-0))))))) (let ((e-6 (cdr sc1))) (let ((sc2 e-2)) (if (null? sc2) e-6 (lambda (eta-0) (let ((act-24 (TTImpC-45ElabC-45Check-successful arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-8 eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) ((TTImpC-45ElabC-45Check-case--exactlyOneC-39-8773 arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-7 (TTImpC-45ElabC-45Check-n--15896-8467-u--getRight arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-7)) eta-0)))))))))))))))))) -(define TTImpC-45ElabC-45Check-convertWithLazy (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((u--umode (TTImpC-45ElabC-45Check-case--convertWithLazy-8981 arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (let ((sc0 arg-6)) (let ((e-0 (vector-ref sc0 1))) e-0))))) (lambda (eta-0) (CoreC-45Core-u--catch_Catchable_Core_Error (lambda (eta-1) (let ((act-24 (CoreC-45Context-isLazyActive arg-1 eta-1))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((u--lazy (PreludeC-45Basics-C-38C-38 e-5 (lambda () arg-4)))) (let ((act-25 (CoreC-45Normalise-logGlueNF arg-0 arg-1 "elab.unify" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Unifying " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Bool arg-4) (PreludeC-45TypesC-45String-C-43C-43 " " (TTImpC-45ElabC-45Check-u--show_Show_ElabMode (let ((sc1 arg-6)) (let ((e-0 (vector-ref sc1 1))) e-0))))))) arg-7 arg-8 eta-1))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45Normalise-logGlueNF arg-0 arg-1 "elab.unify" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "....with") arg-7 arg-9 eta-1))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-27 (TTImpC-45ElabC-45Check-case--convertWithLazy-9137 arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 u--umode e-5 u--lazy (PreludeC-45Basics-C-38C-38 (CoreC-45Normalise-isFromTerm arg-8) (lambda () (CoreC-45Normalise-isFromTerm arg-9))) eta-1))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (let ((sc4 (let ((sc5 e-8)) (let ((e-1 (vector-ref sc5 2))) e-1)))) (cond ((equal? sc4 0) (CoreC-45Unify-solveConstraints arg-1 arg-2 u--umode (vector 0 ) eta-1)) (else (vector 1 (vector 0 ))))))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (vector 1 e-8))))))))))))))))))))))))) (lambda (u--err) (lambda (eta-1) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((act-25 ((CoreC-45Normalise-getTerm arg-8) eta-1))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((CoreC-45Normalise-getTerm arg-9) eta-1))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (CoreC-45Core-u--catch_Catchable_Core_Error (lambda (eta-2) (CoreC-45Unify-solveConstraints arg-1 arg-2 u--umode (vector 0 ) eta-2)) (lambda (err-0) (lambda (eta-2) (vector 1 (vector 0 )))) eta-1))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-28 (let ((act-28 (unbox arg-1))) (vector 1 act-28)))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-29 (CoreC-45Normalise-normaliseErr arg-1 (vector 5 arg-0 arg-5 arg-7 e-6 e-7 u--err) eta-1))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc5 1))) (CoreC-45Core-u--throw_Catchable_Core_Error e-10 eta-1)))))))))))))))))))))))))))))) eta-0))))) -(define TTImpC-45ElabC-45Check-convert (lambda (arg-0 arg-1 arg-2 arg-3 ext-0 ext-1 ext-2 ext-3 ext-4) (TTImpC-45ElabC-45Check-convertWithLazy arg-0 arg-1 arg-2 arg-3 1 ext-0 ext-1 ext-2 ext-3 ext-4))) -(define TTImpC-45ElabC-45Check-clearToBind (lambda (arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-1 (TTImpC-45ElabC-45Check-case--clearToBind-6155 arg-2 arg-1 e-5 (TTImpC-45ElabC-45Check-clearBindIfUnsolved e-5))))) (vector 1 act-25))))))))) -(define TTImpC-45ElabC-45Check-clearBindIfUnsolved (lambda (ext-0) (let ((sc0 ext-0)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((e-6 (vector-ref sc0 6))) (let ((e-8 (vector-ref sc0 8))) (let ((e-9 (vector-ref sc0 9))) (let ((e-10 (vector-ref sc0 10))) (let ((e-11 (vector-ref sc0 11))) (let ((e-12 (vector-ref sc0 12))) (let ((e-13 (vector-ref sc0 13))) (vector 0 e-1 e-2 e-3 e-4 e-5 e-6 '() e-8 e-9 e-10 e-11 e-12 e-13)))))))))))))))) -(define TTImpC-45ElabC-45Check-checkExpP (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 ext-0) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((act-24 ((TTImpC-45ElabC-45Check-convertWithLazy arg-0 arg-1 arg-2 arg-3 0 arg-7 arg-5 arg-6 arg-9 e-1) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((TTImpC-45ElabC-45Check-case--checkExpP-9408 arg-0 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) ext-0)))))))) (else (vector 1 (cons arg-8 arg-9))))))) -(define TTImpC-45ElabC-45Check-checkExp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-5 ext-1 ext-2 ext-3 ext-4 ext-0) (TTImpC-45ElabC-45Check-checkExpP arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-5 ext-1 ext-2 ext-3 ext-4 ext-0))) -(define TTImpC-45ElabC-45Check-bindingType (lambda (arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-4 (vector-ref sc0 5))) e-4)) (else (let ((e-9 (vector-ref sc0 5))) e-9)))))) -(define TTImpC-45ElabC-45Check-bindingTerm (lambda (arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-3 (vector-ref sc0 4))) e-3)) (else (let ((e-8 (vector-ref sc0 4))) e-8)))))) -(define TTImpC-45ElabC-45Check-bindingRig (lambda (arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) e-1)) (else (let ((e-6 (vector-ref sc0 2))) e-6)))))) -(define TTImpC-45ElabC-45Check-bindingMetas (lambda (arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-4 (vector-ref sc0 5))) (CoreC-45TT-getMetas e-4))) (else (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (let ((e-9 (vector-ref sc0 5))) (let ((e-10 (vector-ref sc0 6))) (TTImpC-45ElabC-45Check-n--11474-4463-u--insertAll e-5 e-10 e-9 e-8 e-7 e-6 (LibrariesC-45DataC-45NameMap-toList (CoreC-45TT-getMetas e-9)) (CoreC-45TT-getMetas e-10))))))))))))) -(define TTImpC-45ElabC-45Check-argVar (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (CoreC-45UnifyState-newMetaLets arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (vector 7 (CoreC-45Env-length arg-5) (CoreC-45Context-holeInit 1)) 1 0))) -(define TTImpC-45ElabC-45Check-anyOne (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (if (null? sc0) (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-5 "No elaborators provided") eta-0)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (let ((e-7 (cdr sc1))) (let ((sc2 e-3)) (if (null? sc2) e-7 (lambda (eta-0) (TTImpC-45ElabC-45Check-try arg-0 arg-1 arg-2 arg-3 arg-4 e-7 (TTImpC-45ElabC-45Check-anyOne arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3) eta-0)))))))))))) -(define TTImpC-45ElabC-45Check-addBindIfUnsolved (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((e-6 (vector-ref sc0 6))) (let ((e-7 (vector-ref sc0 7))) (let ((e-8 (vector-ref sc0 8))) (let ((e-9 (vector-ref sc0 9))) (let ((e-10 (vector-ref sc0 10))) (let ((e-11 (vector-ref sc0 11))) (let ((e-12 (vector-ref sc0 12))) (let ((e-13 (vector-ref sc0 13))) (vector 0 e-1 e-2 e-3 e-4 e-5 e-6 (let ((u--st (vector 0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13))) (cons (cons arg-1 (cons arg-2 (cons arg-0 (cons arg-4 (cons arg-3 (cons arg-5 (cons arg-6 (let ((sc1 u--st)) (let ((e-23 (vector-ref sc1 4))) e-23))))))))) e-7)) e-8 e-9 e-10 e-11 e-12 e-13))))))))))))))))) -(define CoreC-45Unify-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32retryGuess-18925 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (if (null? sc0) (let ((u--gdef (let ((sc1 arg-8)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 (vector 1 (cons (vector 0 ) 0) '() (vector 1 0 arg-12) (vector 1 0 arg-12) '()) e-18 e-19 e-20)))))))))))))))))))))))) (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-logTerm '() arg-6 "unify.retry" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Resolved " (CoreC-45Name-u--show_Show_Name arg-2))) arg-12 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (let ((sc2 eta-1)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))) (lambda (eta-1) (CoreC-45Context-addDef arg-6 (vector 9 arg-0) u--gdef eta-1)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45UnifyState-removeGuess arg-5 arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (vector 1 (let ((sc4 arg-15)) (let ((e-1 (vector-ref sc4 2))) e-1))))))))))))))))) (let ((u--gdef (let ((sc1 arg-8)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 (vector 9 arg-12 arg-11 arg-16) e-18 e-19 e-20)))))))))))))))))))))))) (lambda (eta-0) (let ((act-24 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))) (lambda (eta-1) (CoreC-45Context-addDef arg-6 (vector 9 arg-0) u--gdef eta-1)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 1))))))))))) -(define CoreC-45Unify-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32retryGuess-18645 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 ext-0) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((0) (vector 1 arg-12)) ((1) (let ((e-0 (vector-ref sc0 1))) (vector 1 (CoreC-45Unify-forceMeta e-0 arg-11 arg-12)))) (else (let ((e-1 (vector-ref sc0 1))) (let ((act-24 ((CoreC-45GetType-getType '() arg-6 '() arg-12) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45ContextC-45Log-logTerm '() arg-6 "unify.retry" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Retry Delay (constrained)") arg-12 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((CoreC-45Normalise-getTerm e-5) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (CoreC-45Unify-delayMeta '() e-1 arg-11 e-7 arg-12)))))))))))))))))))))) -(define CoreC-45Unify-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32retryGuess-18404 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 ext-0) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((0) (vector 1 arg-12)) ((1) (let ((e-0 (vector-ref sc0 1))) (vector 1 (CoreC-45Unify-forceMeta e-0 arg-11 arg-12)))) (else (let ((e-1 (vector-ref sc0 1))) (let ((act-24 ((CoreC-45GetType-getType '() arg-6 '() arg-12) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45ContextC-45Log-logTerm '() arg-6 "unify.retry" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Retry Delay") arg-12 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((CoreC-45Normalise-getTerm e-5) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (CoreC-45Unify-delayMeta '() e-1 arg-11 e-7 arg-12)))))))))))))))))))))) -(define CoreC-45Unify-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32retryGuess-18336 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 ext-0) (let ((sc0 arg-15)) (if (null? sc0) (let ((act-24 (CoreC-45Unify-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32retryGuess-18404 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 (let ((sc1 arg-14)) (let ((e-3 (vector-ref sc1 4))) e-3)) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((u--gdef (let ((sc2 arg-8)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (let ((e-3 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-21 (vector-ref sc2 6))) (let ((e-6 (vector-ref sc2 7))) (let ((e-7 (vector-ref sc2 8))) (let ((e-8 (vector-ref sc2 9))) (let ((e-9 (vector-ref sc2 10))) (let ((e-10 (vector-ref sc2 11))) (let ((e-11 (vector-ref sc2 12))) (let ((e-12 (vector-ref sc2 13))) (let ((e-13 (vector-ref sc2 14))) (let ((e-14 (vector-ref sc2 15))) (let ((e-15 (vector-ref sc2 16))) (let ((e-16 (vector-ref sc2 17))) (let ((e-18 (vector-ref sc2 19))) (let ((e-19 (vector-ref sc2 20))) (let ((e-20 (vector-ref sc2 21))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-21 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 (vector 1 (cons (vector 0 ) 0) '() (vector 1 0 e-5) (vector 1 0 e-5) '()) e-18 e-19 e-20)))))))))))))))))))))))) (let ((act-25 (CoreC-45ContextC-45Log-logTerm '() arg-6 "unify.retry" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Resolved " (CoreC-45Name-u--show_Show_Name arg-2))) e-5 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc3 eta-0)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))) (lambda (eta-0) (CoreC-45Context-addDef arg-6 (vector 9 arg-0) u--gdef eta-0)) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 (CoreC-45UnifyState-removeGuess arg-5 arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (vector 1 (let ((sc5 arg-14)) (let ((e-1 (vector-ref sc5 2))) e-1))))))))))))))))))))) (let ((act-24 (CoreC-45Unify-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32retryGuess-18645 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 (let ((sc1 arg-14)) (let ((e-3 (vector-ref sc1 4))) e-3)) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((u--gdef (let ((sc2 arg-8)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (let ((e-3 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-21 (vector-ref sc2 6))) (let ((e-6 (vector-ref sc2 7))) (let ((e-7 (vector-ref sc2 8))) (let ((e-8 (vector-ref sc2 9))) (let ((e-9 (vector-ref sc2 10))) (let ((e-10 (vector-ref sc2 11))) (let ((e-11 (vector-ref sc2 12))) (let ((e-12 (vector-ref sc2 13))) (let ((e-13 (vector-ref sc2 14))) (let ((e-14 (vector-ref sc2 15))) (let ((e-15 (vector-ref sc2 16))) (let ((e-16 (vector-ref sc2 17))) (let ((e-18 (vector-ref sc2 19))) (let ((e-19 (vector-ref sc2 20))) (let ((e-20 (vector-ref sc2 21))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-21 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 (vector 9 e-5 arg-11 arg-15) e-18 e-19 e-20)))))))))))))))))))))))) (let ((act-25 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc2 eta-0)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))) (lambda (eta-0) (CoreC-45Context-addDef arg-6 (vector 9 arg-0) u--gdef eta-0)) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (vector 1 1))))))))))))))) -(define CoreC-45Unify-case--caseC-32blockC-32inC-32retryGuess-17923 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((8) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (CoreC-45UnifyState-handleUnify arg-6 arg-5 (lambda (eta-1) (let ((act-24 (CoreC-45Unify-search '() arg-6 arg-5 arg-1 e-0 (CoreC-45Unify-u--C-61C-61_Eq_SolveMode arg-3 (vector 1 )) e-1 e-2 (let ((sc1 arg-8)) (let ((e-21 (vector-ref sc1 3))) e-21)) '() eta-1))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((u--gdef (let ((sc2 arg-8)) (let ((e-24 (vector-ref sc2 1))) (let ((e-23 (vector-ref sc2 2))) (let ((e-22 (vector-ref sc2 3))) (let ((e-3 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-21 (vector-ref sc2 6))) (let ((e-6 (vector-ref sc2 7))) (let ((e-7 (vector-ref sc2 8))) (let ((e-8 (vector-ref sc2 9))) (let ((e-9 (vector-ref sc2 10))) (let ((e-10 (vector-ref sc2 11))) (let ((e-11 (vector-ref sc2 12))) (let ((e-12 (vector-ref sc2 13))) (let ((e-13 (vector-ref sc2 14))) (let ((e-14 (vector-ref sc2 15))) (let ((e-15 (vector-ref sc2 16))) (let ((e-16 (vector-ref sc2 17))) (let ((e-18 (vector-ref sc2 19))) (let ((e-19 (vector-ref sc2 20))) (let ((e-20 (vector-ref sc2 21))) (vector 0 e-24 e-23 e-22 e-3 e-4 e-21 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 (vector 1 (CoreC-45Context-defaultPI) '() (vector 1 0 e-5) (vector 1 0 e-5) '()) e-18 e-19 e-20)))))))))))))))))))))))) (let ((act-25 (CoreC-45Normalise-logTermNF '() arg-6 "unify.retry" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Solved " (CoreC-45Name-u--show_Show_Name arg-2))) '() e-5 eta-1))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((act-26 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-2) (let ((sc3 eta-2)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (vector 1 (vector 0 )))))) (lambda (eta-2) (CoreC-45Context-addDef arg-6 (vector 9 arg-0) u--gdef eta-2)) eta-1))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((act-27 (CoreC-45UnifyState-removeGuess arg-5 arg-0 eta-1))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (vector 1 0)))))))))))))))))))) (lambda (u--err) (lambda (clam-0) (let ((sc1 u--err)) (case (vector-ref sc1 0) ((30) (let ((e-6 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((act-24 (CoreC-45ContextC-45Log-logTerm '() arg-6 "unify.retry" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Failed (det " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name arg-2) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-6) ")"))))) (let ((sc2 arg-8)) (let ((e-27 (vector-ref sc2 3))) e-27)) clam-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-9 (vector-ref sc2 1))) (vector 0 e-9))) (else (let ((act-25 (CoreC-45Unify-setInvertible arg-6 arg-1 (vector 9 e-3) clam-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 1))) (vector 0 e-10))) (else (vector 1 1))))))))))))(else (let ((act-24 (CoreC-45Normalise-logTermNF '() arg-6 "unify.retry" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Search failed at " (PreludeC-45TypesC-45String-C-43C-43 (AlgebraC-45ZeroOneOmega-u--show_Show_ZeroOneOmega e-0) (PreludeC-45TypesC-45String-C-43C-43 " for " (CoreC-45Name-u--show_Show_Name arg-2))))) '() (let ((sc1 arg-8)) (let ((e-21 (vector-ref sc1 3))) e-21)) clam-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((3) (let ((act-25 (CoreC-45Normalise-normaliseErr arg-6 u--err clam-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc3 1))) (CoreC-45Core-u--throw_Catchable_Core_Error e-6 clam-0)))))))(else (vector 1 1))))))))))))) eta-0)))))) ((9) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((sc1 e-5)) (if (null? sc1) (let ((u--umode (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((2) (CoreC-45Unify-inMatch))(else arg-4))))) (lambda (eta-0) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-1) (lambda (eta-2) (CoreC-45Unify-retry arg-6 arg-5 u--umode eta-1 eta-2))) e-5 '() eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((u--csAll (CoreC-45Unify-unionAll e-6))) ((CoreC-45Unify-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32retryGuess-18925 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-5 e-4 e-3 u--umode e-6 u--csAll (let ((sc3 u--csAll)) (let ((e-0 (vector-ref sc3 1))) e-0))) eta-0))))))))) (let ((e-7 (car sc1))) (let ((e-8 (cdr sc1))) (let ((sc2 e-8)) (if (null? sc2) (let ((u--umode (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((2) (CoreC-45Unify-inMatch))(else arg-4))))) (lambda (eta-0) (let ((act-24 (CoreC-45Unify-retry arg-6 arg-5 u--umode e-7 eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (CoreC-45Unify-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32retryGuess-18336 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-7 e-4 e-3 u--umode e-6 (let ((sc4 e-6)) (let ((e-0 (vector-ref sc4 1))) e-0)) eta-0)))))))) (let ((u--umode (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((2) (CoreC-45Unify-inMatch))(else arg-4))))) (lambda (eta-0) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-1) (lambda (eta-2) (CoreC-45Unify-retry arg-6 arg-5 u--umode eta-1 eta-2))) e-5 '() eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((u--csAll (CoreC-45Unify-unionAll e-6))) ((CoreC-45Unify-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32retryGuess-18925 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-5 e-4 e-3 u--umode e-6 u--csAll (let ((sc4 u--csAll)) (let ((e-0 (vector-ref sc4 1))) e-0))) eta-0)))))))))))))))))))(else (lambda (eta-0) (vector 1 1))))))) -(define CoreC-45Unify-case--caseC-32blockC-32inC-32retry-17760 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 ext-0) (let ((sc0 arg-11)) (if (null? sc0) (let ((act-24 (CoreC-45UnifyState-deleteConstraint arg-3 arg-1 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 arg-10))))) (vector 1 arg-10))))) -(define CoreC-45Unify-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32retry-17510 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 ext-0) (let ((sc0 arg-14)) (if (null? sc0) (let ((act-24 (CoreC-45ContextC-45Log-log arg-0 "unify.retry" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Success " (CoreC-45Unify-u--show_Show_AddLazy (let ((sc1 arg-13)) (let ((e-3 (vector-ref sc1 4))) e-3))))) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45UnifyState-deleteConstraint arg-3 arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (vector 1 arg-13))))))))) (let ((act-24 (CoreC-45ContextC-45Log-log arg-0 "unify.retry" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Constraints " (CoreC-45Unify-u--show_Show_AddLazy (let ((sc1 arg-13)) (let ((e-3 (vector-ref sc1 4))) e-3))))) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 arg-13))))))))) -(define CoreC-45Unify-case--caseC-32blockC-32inC-32retry-17408 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 ext-0) (let ((sc0 arg-13)) (cond ((equal? sc0 0) (CoreC-45Core-u--catch_Catchable_Core_Error (lambda (eta-0) (let ((act-24 (CoreC-45Normalise-logTermNF arg-5 arg-0 "unify.retry" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Retrying " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Int arg-1) (PreludeC-45TypesC-45String-C-43C-43 " " (CoreC-45Unify-u--show_Show_UnifyMode (let ((sc1 arg-2)) (let ((e-1 (cdr sc1))) e-1))))))) arg-8 arg-7 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45Normalise-logTermNF arg-5 arg-0 "unify.retry" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "....with") arg-8 arg-6 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45ContextC-45Log-log arg-0 "unify.retry" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (let ((sc3 arg-10)) (cond ((equal? sc3 0) (lambda () "(lazy allowed)")) (else (lambda () "(no lazy)")))) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 ((PreludeC-45Basics-ifThenElse arg-10 (lambda () (((CoreC-45Unify-unifyWithLazy (cons (lambda (u--vars) (lambda (arg-4911) (lambda (arg-4913) (lambda (arg-4915) (lambda (arg-4916) (lambda (arg-4917) (lambda (arg-4919) (lambda (arg-4922) (lambda (eta-1) (CoreC-45Unify-u--unifyD_Unify_Term u--vars arg-4911 arg-4913 arg-4915 arg-4916 arg-4917 arg-4919 arg-4922 eta-1)))))))))) (lambda (u--vars) (lambda (arg-4924) (lambda (arg-4926) (lambda (arg-4928) (lambda (arg-4929) (lambda (arg-4930) (lambda (arg-4932) (lambda (arg-4933) (lambda (eta-1) (CoreC-45Unify-u--unifyWithLazyD_Unify_Term u--vars arg-4924 arg-4926 arg-4928 arg-4929 arg-4930 arg-4932 arg-4933 eta-1))))))))))) arg-5 arg-0 arg-3 arg-2 arg-11 arg-8) arg-7) arg-6)) (lambda () (((CoreC-45Unify-unify (cons (lambda (u--vars) (lambda (arg-4911) (lambda (arg-4913) (lambda (arg-4915) (lambda (arg-4916) (lambda (arg-4917) (lambda (arg-4919) (lambda (arg-4922) (lambda (eta-1) (CoreC-45Unify-u--unifyD_Unify_Term u--vars arg-4911 arg-4913 arg-4915 arg-4916 arg-4917 arg-4919 arg-4922 eta-1)))))))))) (lambda (u--vars) (lambda (arg-4924) (lambda (arg-4926) (lambda (arg-4928) (lambda (arg-4929) (lambda (arg-4930) (lambda (arg-4932) (lambda (arg-4933) (lambda (eta-1) (CoreC-45Unify-u--unifyWithLazyD_Unify_Term u--vars arg-4924 arg-4926 arg-4928 arg-4929 arg-4930 arg-4932 arg-4933 eta-1))))))))))) arg-5 arg-0 arg-3 (CoreC-45Unify-lower arg-2) arg-11 arg-8) arg-7) arg-6))) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (CoreC-45Unify-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32retry-17510 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-8 (let ((sc5 e-8)) (let ((e-0 (vector-ref sc5 1))) e-0)) eta-0))))))))))))))))))) (lambda (u--err) (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 5 arg-5 arg-11 arg-8 arg-7 arg-6 u--err) eta-0))) ext-0)) (else (let ((act-24 (CoreC-45ContextC-45Log-log arg-0 "unify.retry" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Int arg-1) (PreludeC-45TypesC-45String-C-43C-43 " still blocked on " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45Name-u--show_Show_Name u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Name-u--showPrec_Show_Name u--d u--x)))) arg-9)))) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45Normalise-logTermNF arg-5 arg-0 "unify.retry" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "X") arg-8 arg-7 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45Normalise-logTermNF arg-5 arg-0 "unify.retry" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Y") arg-8 arg-6 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (vector 1 (CoreC-45Unify-constrain arg-1))))))))))))))))))) -(define CoreC-45Unify-case--retry-17350 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (vector 1 (CoreC-45Unify-success))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((2) (vector 1 (CoreC-45Unify-success))) ((0) (let ((e-3 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (let ((e-5 (vector-ref sc1 3))) (let ((e-6 (vector-ref sc1 4))) (let ((e-7 (vector-ref sc1 5))) (let ((e-8 (vector-ref sc1 6))) (let ((e-9 (vector-ref sc1 7))) (let ((act-24 (CoreC-45Core-anyM (lambda (eta-0) (lambda (eta-1) (CoreC-45Unify-n--22986-17145-u--definedN arg-0 arg-1 arg-2 arg-3 eta-0 eta-1))) e-6 ext-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc2 1))) (CoreC-45Unify-case--caseC-32blockC-32inC-32retry-17408 arg-0 arg-1 arg-2 arg-3 arg-4 e-3 e-9 e-8 e-7 e-6 e-5 e-4 e-10 (PreludeC-45Basics-C-124C-124 (CoreC-45Unify-u--C-47C-61_Eq_UnifyMode (let ((sc3 arg-2)) (let ((e-1 (cdr sc3))) e-1)) (vector 1 )) (lambda () (PreludeC-45Basics-C-124C-124 e-10 (lambda () (DataC-45List-isNil e-6))))) ext-0)))))))))))))) (else (let ((e-10 (vector-ref sc1 1))) (let ((e-11 (vector-ref sc1 2))) (let ((e-12 (vector-ref sc1 3))) (let ((e-13 (vector-ref sc1 4))) (let ((e-14 (vector-ref sc1 5))) (let ((act-24 ((CoreC-45Unify-unifyArgs (cons (cons (lambda (u--vars) (lambda (arg-4911) (lambda (arg-4913) (lambda (arg-4915) (lambda (arg-4916) (lambda (arg-4917) (lambda (arg-4919) (lambda (arg-4922) (lambda (eta-0) (CoreC-45Unify-u--unifyD_Unify_Term u--vars arg-4911 arg-4913 arg-4915 arg-4916 arg-4917 arg-4919 arg-4922 eta-0)))))))))) (lambda (u--vars) (lambda (arg-4924) (lambda (arg-4926) (lambda (arg-4928) (lambda (arg-4929) (lambda (arg-4930) (lambda (arg-4932) (lambda (arg-4933) (lambda (eta-0) (CoreC-45Unify-u--unifyWithLazyD_Unify_Term u--vars arg-4924 arg-4926 arg-4928 arg-4929 arg-4930 arg-4932 arg-4933 eta-0))))))))))) (cons (lambda (u--c) (lambda (u--vars) (lambda (arg-5365) (lambda (arg-5366) (lambda (arg-5368) (lambda (eta-0) (CoreC-45Normalise-u--quote_Quote_Term u--c u--vars arg-5365 arg-5366 arg-5368 eta-0))))))) (lambda (u--c) (lambda (u--vars) (lambda (arg-5373) (lambda (arg-5375) (lambda (arg-5376) (lambda (arg-5378) (lambda (eta-0) (CoreC-45Normalise-u--quoteGen_Quote_Term u--c u--vars arg-5373 arg-5375 arg-5376 arg-5378 eta-0)))))))))) e-10 arg-0 arg-3 arg-2 e-11 e-12 e-13 e-14) ext-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc2 1))) (CoreC-45Unify-case--caseC-32blockC-32inC-32retry-17760 arg-0 arg-1 arg-2 arg-3 arg-4 e-10 e-14 e-13 e-12 e-11 e-5 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) e-0)) ext-0)))))))))))))))))))) -(define CoreC-45Unify-case--caseC-32blockC-32inC-32retryC-44definedN-17193 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 ext-0) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((7) (vector 1 (let ((sc1 arg-9)) (let ((e-14 (vector-ref sc1 15))) e-14)))) ((8) (vector 1 1)) ((9) (vector 1 1))(else (vector 1 0)))))) -(define CoreC-45Unify-case--unifyWithLazyD-16285 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 ext-0) (let ((sc0 arg-11)) (cond ((equal? sc0 0) (CoreC-45Unify-postpone arg-0 arg-1 arg-2 0 arg-9 arg-10 "Postponing in lazy" arg-8 arg-7 arg-4 ext-0)) (else (let ((act-24 ((((CoreC-45Unify-unify (cons (lambda (u--vars) (lambda (arg-4911) (lambda (arg-4913) (lambda (arg-4915) (lambda (arg-4916) (lambda (arg-4917) (lambda (arg-4919) (lambda (arg-4922) (CoreC-45Unify-u--unifyD_Unify_NF u--vars arg-4911 arg-4913 arg-4915 arg-4916 arg-4917 arg-4919 arg-4922))))))))) (lambda (u--vars) (lambda (arg-4924) (lambda (arg-4926) (lambda (arg-4928) (lambda (arg-4929) (lambda (arg-4930) (lambda (arg-4932) (lambda (arg-4933) (CoreC-45Unify-u--unifyWithLazyD_Unify_NF u--vars arg-4924 arg-4926 arg-4928 arg-4929 arg-4930 arg-4932 arg-4933)))))))))) arg-0 arg-1 arg-2 (CoreC-45Unify-lower arg-10) arg-9 arg-8) arg-5) arg-4) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (vector 0 e-0 e-1 e-2 (vector 1 arg-6))))))))))))))))) -(define CoreC-45Unify-case--unifyD-16006 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (cond ((equal? sc0 0) (CoreC-45Unify-unifyNoEta arg-1 arg-2 arg-0 (CoreC-45Unify-lower arg-14) arg-13 arg-12 arg-11 arg-10)) (else (lambda (eta-0) (let ((act-24 (CoreC-45Context-clearDefs arg-15 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-1 arg-0 e-5 arg-12 arg-10 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (CoreC-45Unify-getEtaType arg-0 arg-1 arg-2 arg-12 e-6 eta-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((act-26 (let ((act-26 (CoreC-45Normalise-u--quote_Quote_NF arg-1 arg-0 e-5 arg-12 arg-11 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) ((CoreC-45Normalise-nf arg-1 arg-0 arg-15 arg-12 (vector 3 arg-9 arg-8 (vector 0 arg-6 arg-5 (vector 1 ) e-1) (vector 4 arg-9 (CoreC-45TT-u--weaken_Weaken_Term e-7) (vector 0 arg-9 (vector 0 ) 0)))) eta-0)))))))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-27 (CoreC-45Normalise-logNF arg-0 arg-1 "unify" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expand") arg-12 e-7 eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else ((((CoreC-45Unify-unify (cons (lambda (u--vars) (lambda (arg-4911) (lambda (arg-4913) (lambda (arg-4915) (lambda (arg-4916) (lambda (arg-4917) (lambda (arg-4919) (lambda (arg-4922) (CoreC-45Unify-u--unifyD_Unify_NF u--vars arg-4911 arg-4913 arg-4915 arg-4916 arg-4917 arg-4919 arg-4922))))))))) (lambda (u--vars) (lambda (arg-4924) (lambda (arg-4926) (lambda (arg-4928) (lambda (arg-4929) (lambda (arg-4930) (lambda (arg-4932) (lambda (arg-4933) (CoreC-45Unify-u--unifyWithLazyD_Unify_NF u--vars arg-4924 arg-4926 arg-4928 arg-4929 arg-4930 arg-4932 arg-4933)))))))))) arg-0 arg-1 arg-2 (CoreC-45Unify-lower arg-14) arg-13 arg-12) e-7) arg-10) eta-0))))))))))))(else ((CoreC-45Unify-unifyNoEta arg-1 arg-2 arg-0 (CoreC-45Unify-lower arg-14) arg-13 arg-12 arg-11 arg-10) eta-0)))))))))))))))))))) -(define CoreC-45Unify-case--unifyD-15735 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (cond ((equal? sc0 0) (CoreC-45Unify-unifyNoEta arg-1 arg-2 arg-0 (CoreC-45Unify-lower arg-14) arg-13 arg-12 arg-11 arg-3)) (else (lambda (eta-0) (let ((act-24 (CoreC-45Context-clearDefs arg-15 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-1 arg-0 e-5 arg-12 arg-11 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (CoreC-45Unify-getEtaType arg-0 arg-1 arg-2 arg-12 e-6 eta-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((act-26 (let ((act-26 (CoreC-45Normalise-u--quote_Quote_NF arg-1 arg-0 e-5 arg-12 arg-3 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) ((CoreC-45Normalise-nf arg-1 arg-0 arg-15 arg-12 (vector 3 arg-10 arg-9 (vector 0 arg-7 arg-6 (vector 1 ) e-1) (vector 4 arg-10 (CoreC-45TT-u--weaken_Weaken_Term e-7) (vector 0 arg-10 (vector 0 ) 0)))) eta-0)))))))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-27 (CoreC-45Normalise-logNF arg-0 arg-1 "unify" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expand") arg-12 e-7 eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else ((((CoreC-45Unify-unify (cons (lambda (u--vars) (lambda (arg-4911) (lambda (arg-4913) (lambda (arg-4915) (lambda (arg-4916) (lambda (arg-4917) (lambda (arg-4919) (lambda (arg-4922) (CoreC-45Unify-u--unifyD_Unify_NF u--vars arg-4911 arg-4913 arg-4915 arg-4916 arg-4917 arg-4919 arg-4922))))))))) (lambda (u--vars) (lambda (arg-4924) (lambda (arg-4926) (lambda (arg-4928) (lambda (arg-4929) (lambda (arg-4930) (lambda (arg-4932) (lambda (arg-4933) (CoreC-45Unify-u--unifyWithLazyD_Unify_NF u--vars arg-4924 arg-4926 arg-4928 arg-4929 arg-4930 arg-4932 arg-4933)))))))))) arg-0 arg-1 arg-2 arg-14 arg-13 arg-12) arg-11) e-7) eta-0))))))))))))(else ((CoreC-45Unify-unifyNoEta arg-1 arg-2 arg-0 arg-14 arg-13 arg-12 arg-11 arg-3) eta-0)))))))))))))))))))) -(define CoreC-45Unify-case--unifyNoEta-15246 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (CoreC-45Unify-unifyApp arg-9 arg-8 arg-0 0 arg-7 arg-6 arg-5 arg-3 arg-2 arg-1 arg-4)) (else (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-log arg-9 "unify.noeta" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Unify if Eq due to something with app") eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (CoreC-45Unify-unifyIfEq arg-9 arg-8 arg-0 0 arg-6 arg-7 arg-5 arg-4 (vector 1 arg-3 arg-2 arg-1) eta-0))))))))))) -(define CoreC-45Unify-case--unifyNoEta-14945 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (cond ((equal? sc0 0) (let ((u--xs (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) arg-1))) (let ((u--ys (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) arg-6))) (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-logC arg-15 "unify" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))))))))))))) (lambda (eta-1) (vector 1 (PreludeC-45TypesC-45String-C-43C-43 "Constructor " (CoreC-45Name-u--show_Show_Name arg-16)))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45ContextC-45Log-logC arg-15 "unify" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))))))))))))) (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-2) (let ((sc2 eta-2)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (vector 1 ""))))) (lambda (eta-2) (CoreC-45Core-traverse_ (lambda (eta-3) (lambda (eta-4) (CoreC-45Unify-dumpArg arg-0 arg-15 arg-11 eta-3 eta-4))) u--xs eta-2)) eta-1)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45ContextC-45Log-logC arg-15 "unify" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))))))))))))) (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-2) (let ((sc3 eta-2)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (vector 1 ""))))) (lambda (eta-2) (CoreC-45Core-traverse_ (lambda (eta-3) (lambda (eta-4) (CoreC-45Unify-dumpArg arg-0 arg-15 arg-11 eta-3 eta-4))) u--ys eta-2)) eta-1)) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((CoreC-45Unify-unifyArgs (cons (cons (lambda (u--vars) (lambda (arg-4911) (lambda (arg-4913) (lambda (arg-4915) (lambda (arg-4916) (lambda (arg-4917) (lambda (arg-4919) (lambda (arg-4922) (lambda (eta-1) (CoreC-45Unify-u--unifyD_Unify_Closure u--vars arg-4911 arg-4913 arg-4915 arg-4916 arg-4917 arg-4919 arg-4922 eta-1)))))))))) (lambda (u--vars) (lambda (arg-4924) (lambda (arg-4926) (lambda (arg-4928) (lambda (arg-4929) (lambda (arg-4930) (lambda (arg-4932) (lambda (arg-4933) (lambda (eta-1) (CoreC-45Unify-u--unifyWithLazyD_Unify_Closure u--vars arg-4924 arg-4926 arg-4928 arg-4929 arg-4930 arg-4932 arg-4933 eta-1))))))))))) (cons (lambda (u--c) (lambda (u--vars) (lambda (arg-5365) (lambda (arg-5366) (lambda (arg-5368) (lambda (eta-1) (CoreC-45Normalise-u--quote_Quote_Closure u--c u--vars arg-5365 arg-5366 arg-5368 eta-1))))))) (lambda (u--c) (lambda (u--vars) (lambda (arg-5373) (lambda (arg-5375) (lambda (arg-5376) (lambda (arg-5378) (lambda (eta-1) (CoreC-45Normalise-u--quoteGen_Quote_Closure u--c u--vars arg-5373 arg-5375 arg-5376 arg-5378 eta-1)))))))))) arg-0 arg-15 arg-14 arg-13 arg-12 arg-11 u--xs u--ys) eta-0))))))))))))))))) (else (lambda (eta-0) (CoreC-45Unify-convertError arg-0 arg-15 arg-12 arg-11 (vector 3 arg-5 arg-16 arg-3 arg-2 arg-1) (vector 3 arg-10 arg-17 arg-8 arg-7 arg-6) eta-0))))))) -(define CoreC-45Unify-case--unifyNoEta-14781 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 ext-0) (let ((sc0 arg-17)) (cond ((equal? sc0 0) (let ((act-24 (let ((act-24 (unbox arg-14))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else ((CoreC-45Unify-unifyArgs (cons (cons (lambda (u--vars) (lambda (arg-4911) (lambda (arg-4913) (lambda (arg-4915) (lambda (arg-4916) (lambda (arg-4917) (lambda (arg-4919) (lambda (arg-4922) (lambda (eta-0) (CoreC-45Unify-u--unifyD_Unify_Closure u--vars arg-4911 arg-4913 arg-4915 arg-4916 arg-4917 arg-4919 arg-4922 eta-0)))))))))) (lambda (u--vars) (lambda (arg-4924) (lambda (arg-4926) (lambda (arg-4928) (lambda (arg-4929) (lambda (arg-4930) (lambda (arg-4932) (lambda (arg-4933) (lambda (eta-0) (CoreC-45Unify-u--unifyWithLazyD_Unify_Closure u--vars arg-4924 arg-4926 arg-4928 arg-4929 arg-4930 arg-4932 arg-4933 eta-0))))))))))) (cons (lambda (u--c) (lambda (u--vars) (lambda (arg-5365) (lambda (arg-5366) (lambda (arg-5368) (lambda (eta-0) (CoreC-45Normalise-u--quote_Quote_Closure u--c u--vars arg-5365 arg-5366 arg-5368 eta-0))))))) (lambda (u--c) (lambda (u--vars) (lambda (arg-5373) (lambda (arg-5375) (lambda (arg-5376) (lambda (arg-5378) (lambda (eta-0) (CoreC-45Normalise-u--quoteGen_Quote_Closure u--c u--vars arg-5373 arg-5375 arg-5376 arg-5378 eta-0)))))))))) arg-0 arg-15 arg-14 arg-13 arg-12 arg-11 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) arg-1) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) arg-6)) ext-0)))))) (else (CoreC-45Unify-convertError arg-0 arg-15 arg-12 arg-11 (vector 2 arg-5 arg-4 arg-3 arg-2 arg-1) (vector 2 arg-10 arg-9 arg-8 arg-7 arg-6) ext-0)))))) -(define CoreC-45Unify-case--unifyBothBinders-14444 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 ext-0) (let ((sc0 arg-21)) (cond ((equal? sc0 0) (CoreC-45Unify-convertError arg-0 arg-19 arg-16 arg-15 (vector 0 arg-14 arg-13 (vector 0 arg-4 arg-3 arg-2 arg-1) arg-12) (vector 0 arg-11 arg-10 (vector 0 arg-8 arg-7 arg-6 arg-5) arg-9) ext-0)) (else (let ((act-24 (CoreC-45Context-clearDefs arg-20 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-19 arg-0 e-5 arg-15 arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((((CoreC-45Unify-unify (cons (lambda (u--vars) (lambda (arg-4911) (lambda (arg-4913) (lambda (arg-4915) (lambda (arg-4916) (lambda (arg-4917) (lambda (arg-4919) (lambda (arg-4922) (CoreC-45Unify-u--unifyD_Unify_NF u--vars arg-4911 arg-4913 arg-4915 arg-4916 arg-4917 arg-4919 arg-4922))))))))) (lambda (u--vars) (lambda (arg-4924) (lambda (arg-4926) (lambda (arg-4928) (lambda (arg-4929) (lambda (arg-4930) (lambda (arg-4932) (lambda (arg-4933) (CoreC-45Unify-u--unifyWithLazyD_Unify_NF u--vars arg-4924 arg-4926 arg-4928 arg-4929 arg-4930 arg-4932 arg-4933)))))))))) arg-0 arg-19 arg-18 (CoreC-45Unify-lower arg-17) arg-16 arg-15) arg-1) arg-5) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (CoreC-45UnifyState-genVarName arg-19 arg-18 "x" ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((u--envC-39 (cons (vector 0 arg-4 arg-3 (vector 1 ) e-6) arg-15))) (let ((act-28 (CoreC-45Normalise-u--quote_Quote_NF arg-19 arg-0 e-5 arg-15 arg-1 ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((act-29 (CoreC-45Normalise-u--quote_Quote_NF arg-19 arg-0 e-5 arg-15 arg-5 ext-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((act-30 (((arg-12 arg-20) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) arg-15 (vector 1 arg-16 (vector 0 ) e-8))) ext-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-31 (((arg-9 arg-20) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) arg-15 (vector 1 arg-16 (vector 0 ) e-8))) ext-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-32 (CoreC-45Normalise-u--quote_Quote_NF arg-19 arg-0 e-5 arg-15 e-11 ext-0))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-33 (CoreC-45Normalise-u--quote_Quote_NF arg-19 arg-0 e-5 arg-15 e-12 ext-0))) (let ((sc10 act-33)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref sc10 1))) (let ((act-34 ((((CoreC-45Unify-unify (cons (lambda (u--vars) (lambda (arg-4911) (lambda (arg-4913) (lambda (arg-4915) (lambda (arg-4916) (lambda (arg-4917) (lambda (arg-4919) (lambda (arg-4922) (lambda (eta-0) (CoreC-45Unify-u--unifyD_Unify_Term u--vars arg-4911 arg-4913 arg-4915 arg-4916 arg-4917 arg-4919 arg-4922 eta-0)))))))))) (lambda (u--vars) (lambda (arg-4924) (lambda (arg-4926) (lambda (arg-4928) (lambda (arg-4929) (lambda (arg-4930) (lambda (arg-4932) (lambda (arg-4933) (lambda (eta-0) (CoreC-45Unify-u--unifyWithLazyD_Unify_Term u--vars arg-4924 arg-4926 arg-4928 arg-4929 arg-4930 arg-4932 arg-4933 eta-0))))))))))) (cons arg-13 arg-0) arg-19 arg-18 (CoreC-45Unify-lower arg-17) arg-16 u--envC-39) (CoreC-45TT-refsToLocals (vector 1 arg-13 e-8 (vector 0 )) e-13)) (CoreC-45TT-refsToLocals (vector 1 arg-13 e-8 (vector 0 )) e-14)) ext-0))) (let ((sc11 act-34)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-15 (vector-ref sc11 1))) (vector 1 (CoreC-45Unify-union e-7 e-15))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) -(define CoreC-45Unify-case--caseC-32blockC-32inC-32unifyBothBinders-14135 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 ext-0) (let ((sc0 arg-26)) (if (null? sc0) (let ((act-24 (((arg-12 arg-20) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) arg-15 (vector 1 arg-16 (vector 0 ) arg-24))) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (((arg-9 arg-20) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) arg-15 (vector 1 arg-16 (vector 0 ) arg-24))) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (CoreC-45Normalise-u--quote_Quote_NF arg-19 arg-0 arg-21 arg-15 e-5 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (CoreC-45Normalise-u--quote_Quote_NF arg-19 arg-0 arg-21 arg-15 e-6 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) ((((CoreC-45Unify-unify (cons (lambda (u--vars) (lambda (arg-4911) (lambda (arg-4913) (lambda (arg-4915) (lambda (arg-4916) (lambda (arg-4917) (lambda (arg-4919) (lambda (arg-4922) (lambda (eta-0) (CoreC-45Unify-u--unifyD_Unify_Term u--vars arg-4911 arg-4913 arg-4915 arg-4916 arg-4917 arg-4919 arg-4922 eta-0)))))))))) (lambda (u--vars) (lambda (arg-4924) (lambda (arg-4926) (lambda (arg-4928) (lambda (arg-4929) (lambda (arg-4930) (lambda (arg-4932) (lambda (arg-4933) (lambda (eta-0) (CoreC-45Unify-u--unifyWithLazyD_Unify_Term u--vars arg-4924 arg-4926 arg-4928 arg-4929 arg-4930 arg-4932 arg-4933 eta-0))))))))))) (cons arg-13 arg-0) arg-19 arg-18 (CoreC-45Unify-lower arg-17) arg-16 arg-25) (CoreC-45TT-refsToLocals (vector 1 arg-13 arg-24 (vector 0 )) e-7)) (CoreC-45TT-refsToLocals (vector 1 arg-13 arg-24 (vector 0 )) e-8)) ext-0))))))))))))))))))))) (let ((act-24 (CoreC-45Normalise-u--quote_Quote_NF arg-19 arg-0 arg-21 arg-15 arg-1 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-19 arg-0 arg-21 arg-15 arg-5 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((CoreC-45UnifyState-newConstant arg-0 arg-18 arg-19 arg-16 (AlgebraC-45Semiring-erased (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))) arg-15 (vector 3 arg-14 arg-13 (vector 0 arg-8 arg-7 (vector 1 ) e-5) (vector 0 arg-14 (vector 0 ) 0)) (vector 3 arg-14 arg-13 (vector 2 arg-8 arg-7 (vector 1 ) e-5) (CoreC-45TT-u--weaken_Weaken_Term e-6)) arg-26) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (((arg-12 arg-20) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) arg-15 (vector 1 arg-16 (vector 0 ) arg-24))) ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (((arg-9 arg-20) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) arg-15 (vector 4 arg-16 e-7 (vector 1 arg-16 (vector 0 ) arg-24)))) ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 (CoreC-45Normalise-u--quote_Quote_NF arg-19 arg-0 arg-21 arg-15 e-8 ext-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-30 (CoreC-45Normalise-u--quote_Quote_NF arg-19 arg-0 arg-21 arg-15 e-9 ext-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-31 ((((CoreC-45Unify-unify (cons (lambda (u--vars) (lambda (arg-4911) (lambda (arg-4913) (lambda (arg-4915) (lambda (arg-4916) (lambda (arg-4917) (lambda (arg-4919) (lambda (arg-4922) (lambda (eta-0) (CoreC-45Unify-u--unifyD_Unify_Term u--vars arg-4911 arg-4913 arg-4915 arg-4916 arg-4917 arg-4919 arg-4922 eta-0)))))))))) (lambda (u--vars) (lambda (arg-4924) (lambda (arg-4926) (lambda (arg-4928) (lambda (arg-4929) (lambda (arg-4930) (lambda (arg-4932) (lambda (arg-4933) (lambda (eta-0) (CoreC-45Unify-u--unifyWithLazyD_Unify_Term u--vars arg-4924 arg-4926 arg-4928 arg-4929 arg-4930 arg-4932 arg-4933 eta-0))))))))))) (cons arg-13 arg-0) arg-19 arg-18 (CoreC-45Unify-lower arg-17) arg-16 arg-25) (CoreC-45TT-refsToLocals (vector 1 arg-13 arg-24 (vector 0 )) e-10)) (CoreC-45TT-refsToLocals (vector 1 arg-13 arg-24 (vector 0 )) e-11)) ext-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc8 1))) (vector 1 (CoreC-45Unify-union arg-23 e-12)))))))))))))))))))))))))))))))))))))))))))))) -(define CoreC-45Unify-case--unifyBothBinders-13952 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 ext-0) (let ((sc0 arg-21)) (cond ((equal? sc0 0) (CoreC-45Unify-convertError arg-0 arg-19 arg-16 arg-15 (vector 0 arg-14 arg-13 (vector 2 arg-4 arg-3 arg-2 arg-1) arg-12) (vector 0 arg-11 arg-10 (vector 2 arg-8 arg-7 arg-6 arg-5) arg-9) ext-0)) (else (let ((act-24 (CoreC-45Context-clearDefs arg-20 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-19 arg-0 e-5 arg-15 arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (CoreC-45ContextC-45Log-logC arg-19 "unify.binder" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda (eta-0) (let ((act-26 (CoreC-45Normalise-u--quote_Quote_NF arg-19 arg-0 e-5 arg-15 arg-5 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (PreludeC-45TypesC-45String-C-43C-43 "Unifying arg types " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 e-6) (PreludeC-45TypesC-45String-C-43C-43 " and " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 e-7))))))))))) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 ((((CoreC-45Unify-unify (cons (lambda (u--vars) (lambda (arg-4911) (lambda (arg-4913) (lambda (arg-4915) (lambda (arg-4916) (lambda (arg-4917) (lambda (arg-4919) (lambda (arg-4922) (CoreC-45Unify-u--unifyD_Unify_NF u--vars arg-4911 arg-4913 arg-4915 arg-4916 arg-4917 arg-4919 arg-4922))))))))) (lambda (u--vars) (lambda (arg-4924) (lambda (arg-4926) (lambda (arg-4928) (lambda (arg-4929) (lambda (arg-4930) (lambda (arg-4932) (lambda (arg-4933) (CoreC-45Unify-u--unifyWithLazyD_Unify_NF u--vars arg-4924 arg-4926 arg-4928 arg-4929 arg-4930 arg-4932 arg-4933)))))))))) arg-0 arg-19 arg-18 (CoreC-45Unify-lower arg-17) arg-16 arg-15) arg-1) arg-5) ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (CoreC-45UnifyState-genVarName arg-19 arg-18 "x" ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((u--envC-39 (cons (vector 2 arg-8 arg-7 (vector 1 ) e-6) arg-15))) (CoreC-45Unify-case--caseC-32blockC-32inC-32unifyBothBinders-14135 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 e-5 e-6 e-8 e-9 u--envC-39 (let ((sc6 e-8)) (let ((e-0 (vector-ref sc6 1))) e-0)) ext-0))))))))))))))))))))))))))))))) -(define CoreC-45Unify-case--unifyBothApps-13735 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-logC arg-16 "unify.application" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-1) (let ((act-24 (let ((act-24 (unbox arg-16))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (clam-0) (lambda (eta-2) (CoreC-45Normalise-u--quote_Quote_Closure arg-16 arg-0 e-5 arg-11 clam-0 eta-2))) (PreludeC-45Types-u--map_Functor_List (lambda (eta-2) (Builtin-snd eta-2)) arg-6) '() eta-1))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (CoreC-45Core-traverseC-39 (lambda (clam-0) (lambda (eta-2) (CoreC-45Normalise-u--quote_Quote_Closure arg-16 arg-0 e-5 arg-11 clam-0 eta-2))) (PreludeC-45Types-u--map_Functor_List (lambda (eta-2) (Builtin-snd eta-2)) arg-1) '() eta-1))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (PreludeC-45TypesC-45String-C-43C-43 "Matching args " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-0 u--d u--x)))) e-6) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-0 u--d u--x)))) e-7))))))))))))))))))))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else ((CoreC-45Unify-unifyArgs (cons (cons (lambda (u--vars) (lambda (arg-4911) (lambda (arg-4913) (lambda (arg-4915) (lambda (arg-4916) (lambda (arg-4917) (lambda (arg-4919) (lambda (arg-4922) (lambda (eta-1) (CoreC-45Unify-u--unifyD_Unify_Closure u--vars arg-4911 arg-4913 arg-4915 arg-4916 arg-4917 arg-4919 arg-4922 eta-1)))))))))) (lambda (u--vars) (lambda (arg-4924) (lambda (arg-4926) (lambda (arg-4928) (lambda (arg-4929) (lambda (arg-4930) (lambda (arg-4932) (lambda (arg-4933) (lambda (eta-1) (CoreC-45Unify-u--unifyWithLazyD_Unify_Closure u--vars arg-4924 arg-4926 arg-4928 arg-4929 arg-4930 arg-4932 arg-4933 eta-1))))))))))) (cons (lambda (u--c) (lambda (u--vars) (lambda (arg-5365) (lambda (arg-5366) (lambda (arg-5368) (lambda (eta-1) (CoreC-45Normalise-u--quote_Quote_Closure u--c u--vars arg-5365 arg-5366 arg-5368 eta-1))))))) (lambda (u--c) (lambda (u--vars) (lambda (arg-5373) (lambda (arg-5375) (lambda (arg-5376) (lambda (arg-5378) (lambda (eta-1) (CoreC-45Normalise-u--quoteGen_Quote_Closure u--c u--vars arg-5373 arg-5375 arg-5376 arg-5378 eta-1)))))))))) arg-0 arg-16 arg-15 arg-14 arg-12 arg-11 (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) arg-6) (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) arg-1)) eta-0))))))) (else (CoreC-45Unify-unifyApp arg-16 arg-15 arg-0 1 arg-14 arg-12 arg-11 arg-10 arg-9 arg-6 (vector 1 arg-5 arg-4 arg-1))))))) -(define CoreC-45Unify-case--unifyBothApps-13618 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (cond ((equal? sc0 0) (CoreC-45Unify-unifyArgs (cons (cons (lambda (u--vars) (lambda (arg-4911) (lambda (arg-4913) (lambda (arg-4915) (lambda (arg-4916) (lambda (arg-4917) (lambda (arg-4919) (lambda (arg-4922) (lambda (eta-0) (CoreC-45Unify-u--unifyD_Unify_Closure u--vars arg-4911 arg-4913 arg-4915 arg-4916 arg-4917 arg-4919 arg-4922 eta-0)))))))))) (lambda (u--vars) (lambda (arg-4924) (lambda (arg-4926) (lambda (arg-4928) (lambda (arg-4929) (lambda (arg-4930) (lambda (arg-4932) (lambda (arg-4933) (lambda (eta-0) (CoreC-45Unify-u--unifyWithLazyD_Unify_Closure u--vars arg-4924 arg-4926 arg-4928 arg-4929 arg-4930 arg-4932 arg-4933 eta-0))))))))))) (cons (lambda (u--c) (lambda (u--vars) (lambda (arg-5365) (lambda (arg-5366) (lambda (arg-5368) (lambda (eta-0) (CoreC-45Normalise-u--quote_Quote_Closure u--c u--vars arg-5365 arg-5366 arg-5368 eta-0))))))) (lambda (u--c) (lambda (u--vars) (lambda (arg-5373) (lambda (arg-5375) (lambda (arg-5376) (lambda (arg-5378) (lambda (eta-0) (CoreC-45Normalise-u--quoteGen_Quote_Closure u--c u--vars arg-5373 arg-5375 arg-5376 arg-5378 eta-0)))))))))) arg-0 arg-16 arg-15 arg-14 arg-12 arg-11 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) arg-6) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) arg-1))) (else (CoreC-45Unify-unifyApp arg-16 arg-15 arg-0 1 arg-14 arg-12 arg-11 arg-10 arg-9 arg-6 (vector 1 arg-5 arg-4 arg-1))))))) -(define CoreC-45Unify-case--unifyBothApps-13538 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (cond ((equal? sc0 0) (CoreC-45Unify-unifyApp arg-13 arg-12 arg-0 0 arg-11 arg-10 arg-9 arg-8 (vector 2 arg-3 arg-2 arg-1) arg-4 (vector 1 arg-8 arg-7 arg-6))) (else (CoreC-45Unify-unifyApp arg-13 arg-12 arg-0 1 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 (vector 1 arg-5 (vector 2 arg-3 arg-2 arg-1) arg-4))))))) -(define CoreC-45Unify-case--caseC-32blockC-32inC-32unifyBothApps-13418 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (cond ((equal? sc0 0) (CoreC-45Unify-unifyApp arg-15 arg-14 arg-0 1 arg-13 arg-12 arg-11 arg-10 (vector 2 arg-3 arg-2 arg-1) arg-9 (vector 1 arg-8 (vector 2 arg-6 arg-5 arg-4) arg-7))) (else (CoreC-45Unify-unifyApp arg-15 arg-14 arg-0 0 arg-13 arg-12 arg-11 arg-8 (vector 2 arg-6 arg-5 arg-4) arg-7 (vector 1 arg-10 (vector 2 arg-3 arg-2 arg-1) arg-9))))))) -(define CoreC-45Unify-case--unifyBothApps-13287 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (cond ((equal? sc0 0) (CoreC-45Unify-unifyArgs (cons (cons (lambda (u--vars) (lambda (arg-4911) (lambda (arg-4913) (lambda (arg-4915) (lambda (arg-4916) (lambda (arg-4917) (lambda (arg-4919) (lambda (arg-4922) (lambda (eta-0) (CoreC-45Unify-u--unifyD_Unify_Closure u--vars arg-4911 arg-4913 arg-4915 arg-4916 arg-4917 arg-4919 arg-4922 eta-0)))))))))) (lambda (u--vars) (lambda (arg-4924) (lambda (arg-4926) (lambda (arg-4928) (lambda (arg-4929) (lambda (arg-4930) (lambda (arg-4932) (lambda (arg-4933) (lambda (eta-0) (CoreC-45Unify-u--unifyWithLazyD_Unify_Closure u--vars arg-4924 arg-4926 arg-4928 arg-4929 arg-4930 arg-4932 arg-4933 eta-0))))))))))) (cons (lambda (u--c) (lambda (u--vars) (lambda (arg-5365) (lambda (arg-5366) (lambda (arg-5368) (lambda (eta-0) (CoreC-45Normalise-u--quote_Quote_Closure u--c u--vars arg-5365 arg-5366 arg-5368 eta-0))))))) (lambda (u--c) (lambda (u--vars) (lambda (arg-5373) (lambda (arg-5375) (lambda (arg-5376) (lambda (arg-5378) (lambda (eta-0) (CoreC-45Normalise-u--quoteGen_Quote_Closure u--c u--vars arg-5373 arg-5375 arg-5376 arg-5378 eta-0)))))))))) arg-0 arg-15 arg-14 arg-13 arg-12 arg-11 (PreludeC-45TypesC-45List-C-43C-43 arg-1 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) arg-9)) (PreludeC-45TypesC-45List-C-43C-43 arg-4 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) arg-7)))) (else (lambda (eta-0) (let ((act-24 (CoreC-45Unify-n--14584-13135-u--localsIn arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Unify-n--14584-13135-u--localsIn arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-4 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((u--xbigger (PreludeC-45Basics-C-124C-124 (PreludeC-45Types-u--C-62_Ord_Nat e-5 e-6) (lambda () (PreludeC-45Basics-C-38C-38 (PreludeC-45Types-u--C-61C-61_Eq_Nat e-5 e-6) (lambda () (PreludeC-45Types-u--C-60C-61_Ord_Nat (PreludeC-45TypesC-45List-length arg-9) (PreludeC-45TypesC-45List-length arg-7)))))))) ((CoreC-45Unify-case--caseC-32blockC-32inC-32unifyBothApps-13418 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 e-5 e-6 u--xbigger (PreludeC-45Basics-C-38C-38 (PreludeC-45Basics-C-124C-124 u--xbigger (lambda () (CoreC-45Unify-u--C-61C-61_Eq_UnifyMode (let ((sc3 arg-13)) (let ((e-1 (cdr sc3))) e-1)) (vector 2 )))) (lambda () (let ((sc3 (CoreC-45Unify-n--14584-13134-u--pv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-3))) (cond ((equal? sc3 0) 1) (else 0)))))) eta-0)))))))))))))))))) -(define CoreC-45Unify-case--unifyBothApps-12979 (lambda (arg-0 arg-3 arg-5 arg-6 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-19)) (cond ((equal? sc0 0) (CoreC-45Unify-unifyArgs (cons (cons (lambda (u--vars) (lambda (arg-4911) (lambda (arg-4913) (lambda (arg-4915) (lambda (arg-4916) (lambda (arg-4917) (lambda (arg-4919) (lambda (arg-4922) (lambda (eta-0) (CoreC-45Unify-u--unifyD_Unify_Closure u--vars arg-4911 arg-4913 arg-4915 arg-4916 arg-4917 arg-4919 arg-4922 eta-0)))))))))) (lambda (u--vars) (lambda (arg-4924) (lambda (arg-4926) (lambda (arg-4928) (lambda (arg-4929) (lambda (arg-4930) (lambda (arg-4932) (lambda (arg-4933) (lambda (eta-0) (CoreC-45Unify-u--unifyWithLazyD_Unify_Closure u--vars arg-4924 arg-4926 arg-4928 arg-4929 arg-4930 arg-4932 arg-4933 eta-0))))))))))) (cons (lambda (u--c) (lambda (u--vars) (lambda (arg-5365) (lambda (arg-5366) (lambda (arg-5368) (lambda (eta-0) (CoreC-45Normalise-u--quote_Quote_Closure u--c u--vars arg-5365 arg-5366 arg-5368 eta-0))))))) (lambda (u--c) (lambda (u--vars) (lambda (arg-5373) (lambda (arg-5375) (lambda (arg-5376) (lambda (arg-5378) (lambda (eta-0) (CoreC-45Normalise-u--quoteGen_Quote_Closure u--c u--vars arg-5373 arg-5375 arg-5376 arg-5378 eta-0)))))))))) arg-0 arg-18 arg-17 arg-16 arg-14 arg-13 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) arg-11) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) arg-9))) (else (lambda (eta-0) (CoreC-45Unify-postpone arg-0 arg-18 arg-17 0 arg-14 arg-16 "Postponing local app" arg-13 (vector 1 arg-12 (vector 0 arg-5 arg-3) arg-11) (vector 1 arg-10 (vector 0 arg-8 arg-6) arg-9) eta-0))))))) -(define CoreC-45Unify-case--unifyBothApps-12880 (lambda (arg-0 arg-3 arg-5 arg-6 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 ext-0) (let ((sc0 arg-16)) (cond ((equal? sc0 0) (vector 1 (CoreC-45Unify-success))) (else (CoreC-45Unify-convertError arg-0 arg-15 arg-12 arg-11 (vector 1 arg-10 (vector 0 arg-5 arg-3) '()) (vector 1 arg-9 (vector 0 arg-8 arg-6) '()) ext-0)))))) -(define CoreC-45Unify-case--unifyApp-12515 (lambda (arg-0 arg-3 arg-5 arg-6 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (CoreC-45Unify-success)))) (else (lambda (eta-0) (CoreC-45Unify-postponeS arg-0 arg-16 arg-15 0 arg-14 arg-12 arg-13 "Postponing var" arg-11 (vector 1 arg-10 (vector 0 arg-5 arg-3) '()) (vector 1 arg-9 (vector 0 arg-8 arg-6) '()) eta-0))))))) -(define CoreC-45Unify-case--unifyApp-12424 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 ext-0) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (CoreC-45Unify-unifyIfEq arg-11 arg-10 arg-0 0 arg-7 arg-8 arg-6 (vector 1 arg-5 (vector 1 arg-2 arg-1) arg-4) arg-3 ext-0)) (else (CoreC-45Unify-unifyIfEq arg-11 arg-10 arg-0 0 arg-7 arg-8 arg-6 arg-3 (vector 1 arg-5 (vector 1 arg-2 arg-1) arg-4) ext-0)))))) -(define CoreC-45Unify-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32unifyHole-12024 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29) (let ((sc0 arg-29)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (CoreC-45Unify-postponeS arg-0 arg-12 arg-11 0 arg-10 arg-8 arg-9 "Can't shrink" arg-7 (vector 1 arg-8 (vector 2 arg-5 arg-4 arg-3) (PreludeC-45Types-u--map_Functor_List (lambda (__infixTupleSection-0) (cons (vector 1 ) __infixTupleSection-0)) arg-2)) arg-1 eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (CoreC-45Unify-solveHole arg-12 arg-11 arg-16 arg-0 arg-6 arg-9 arg-7 arg-5 arg-4 arg-3 arg-2 arg-17 arg-18 arg-26 e-2 arg-1 eta-0)))))))) -(define CoreC-45Unify-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32unifyHole-11887 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 ext-0) (let ((sc0 arg-28)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (CoreC-45Unify-solveHole arg-12 arg-11 arg-16 arg-0 arg-6 arg-9 arg-7 arg-5 arg-4 arg-3 arg-2 arg-17 arg-18 arg-26 e-1 arg-1 ext-0))) (else (let ((act-24 (CoreC-45Normalise-u--quote_Quote_NF arg-12 arg-0 arg-13 arg-7 arg-1 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((CoreC-45Unify-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32unifyHole-12024 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 e-5 (CoreC-45TT-shrinkTerm e-5 arg-18)) ext-0))))))))))) -(define CoreC-45Unify-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32unifyHole-11715 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 ext-0) (let ((sc0 arg-25)) (cond ((equal? sc0 0) (CoreC-45Normalise-u--quote_Quote_NF arg-12 arg-0 arg-13 arg-7 arg-1 ext-0)) (else (vector 1 arg-24)))))) -(define CoreC-45Unify-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32unifyHole-11636 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (case (vector-ref sc0 0) ((7) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (CoreC-45Normalise-u--quote_Quote_NF arg-12 arg-0 arg-14 arg-7 arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Unify-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32unifyHole-11715 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 e-0 e-1 e-5 (CoreC-45Unify-tooBig 1 (let ((sc2 arg-13)) (let ((e-4 (vector-ref sc2 5))) (let ((sc3 e-4)) (let ((e-36 (vector-ref sc3 4))) (let ((sc4 e-36)) (let ((e-41 (vector-ref sc4 6))) e-41)))))) '() e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (CoreC-45Unify-occursCheck arg-0 arg-12 arg-8 arg-7 arg-9 arg-5 e-6 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((1) (let ((e-2 (vector-ref sc4 1))) (let ((_-0 (vector 1 e-2))) (CoreC-45Unify-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32unifyHole-11887 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 e-0 e-1 e-5 e-6 e-2 _-0 (CoreC-45TT-shrinkTerm e-2 arg-18) eta-0))))(else (CoreC-45Unify-postponeS arg-0 arg-12 arg-11 0 arg-10 arg-8 arg-9 "Occurs check failed" arg-7 (vector 1 arg-8 (vector 2 arg-5 arg-4 arg-3) (PreludeC-45Types-u--map_Functor_List (lambda (__infixTupleSection-0) (cons (vector 1 ) __infixTupleSection-0)) arg-2)) arg-1 eta-0)))))))))))))))))))))))(else (lambda (eta-0) (CoreC-45Unify-postponeS arg-0 arg-12 arg-11 0 arg-10 arg-8 arg-9 "Delayed hole" arg-7 (vector 1 arg-8 (vector 2 arg-5 arg-4 arg-3) (PreludeC-45Types-u--map_Functor_List (lambda (__infixTupleSection-0) (cons (vector 1 ) __infixTupleSection-0)) arg-2)) arg-1 eta-0))))))) -(define CoreC-45Unify-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32unifyHole-11365 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21) (let ((sc0 arg-21)) (cond ((equal? sc0 0) (CoreC-45Unify-unifyHoleApp arg-12 arg-11 arg-0 arg-10 arg-9 arg-8 arg-7 arg-5 arg-4 arg-3 arg-2 arg-1)) (else (CoreC-45Unify-postponePatVar arg-12 arg-11 arg-0 arg-10 arg-9 arg-8 arg-7 arg-5 arg-4 arg-3 arg-2 arg-1)))))) -(define CoreC-45Unify-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32unifyHole-11319 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-19)) (case (vector-ref sc0 0) ((7) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (CoreC-45Unify-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32unifyHole-11365 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 e-0 e-1 (let ((sc1 arg-17)) (let ((e-14 (vector-ref sc1 15))) e-14))))))(else (CoreC-45Unify-postponePatVar arg-12 arg-11 arg-0 arg-10 arg-9 arg-8 arg-7 arg-5 arg-4 arg-3 arg-2 arg-1)))))) -(define CoreC-45Unify-case--solveHole-10970 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 ext-0) (let ((sc0 arg-18)) (cond ((equal? sc0 0) (vector 1 (CoreC-45Unify-success))) (else (let ((act-24 ((CoreC-45Context-lookupCtxtExact (vector 9 arg-9) (let ((sc1 arg-16)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((act-25 (CoreC-45Unify-instantiate arg-15 arg-14 arg-1 arg-0 arg-13 arg-12 arg-11 arg-10 arg-9 (PreludeC-45TypesC-45List-length arg-8) e-1 arg-6 arg-4 arg-3 ext-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (vector 1 (CoreC-45Unify-solvedHole arg-9)))))))) (else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 (PreludeC-45TypesC-45String-C-43C-43 "Can't happen: Lost hole " (CoreC-45Name-u--show_Show_Name arg-10))) ext-0)))))))))))))) -(define CoreC-45Unify-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32unifyInvertible-10093 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 ext-0) (let ((sc0 arg-24)) (cond ((equal? sc0 0) (let ((act-24 (CoreC-45ContextC-45Log-log arg-13 "unify.invertible" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Unifying invertible") ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((((CoreC-45Unify-unify (cons (lambda (u--vars) (lambda (arg-4911) (lambda (arg-4913) (lambda (arg-4915) (lambda (arg-4916) (lambda (arg-4917) (lambda (arg-4919) (lambda (arg-4922) (lambda (eta-0) (CoreC-45Unify-u--unifyD_Unify_Closure u--vars arg-4911 arg-4913 arg-4915 arg-4916 arg-4917 arg-4919 arg-4922 eta-0)))))))))) (lambda (u--vars) (lambda (arg-4924) (lambda (arg-4926) (lambda (arg-4928) (lambda (arg-4929) (lambda (arg-4930) (lambda (arg-4932) (lambda (arg-4933) (lambda (eta-0) (CoreC-45Unify-u--unifyWithLazyD_Unify_Closure u--vars arg-4924 arg-4926 arg-4928 arg-4929 arg-4930 arg-4932 arg-4933 eta-0))))))))))) arg-0 arg-13 arg-12 arg-10 arg-9 arg-8) arg-20) (Builtin-snd arg-22)) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (CoreC-45ContextC-45Log-log arg-13 "unify.invertible" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Constraints " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_Int u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_Int u--d u--x)))) (let ((sc3 e-6)) (let ((e-0 (vector-ref sc3 1))) e-0))))) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 ((((CoreC-45Unify-unify (cons (lambda (u--vars) (lambda (arg-4911) (lambda (arg-4913) (lambda (arg-4915) (lambda (arg-4916) (lambda (arg-4917) (lambda (arg-4919) (lambda (arg-4922) (CoreC-45Unify-u--unifyD_Unify_NF u--vars arg-4911 arg-4913 arg-4915 arg-4916 arg-4917 arg-4919 arg-4922))))))))) (lambda (u--vars) (lambda (arg-4924) (lambda (arg-4926) (lambda (arg-4928) (lambda (arg-4929) (lambda (arg-4930) (lambda (arg-4932) (lambda (arg-4933) (CoreC-45Unify-u--unifyWithLazyD_Unify_NF u--vars arg-4924 arg-4926 arg-4928 arg-4929 arg-4930 arg-4932 arg-4933)))))))))) arg-0 arg-13 arg-12 arg-10 arg-9 arg-8) (vector 1 arg-9 (vector 2 arg-7 arg-6 arg-5) (DataC-45List-reverse (PreludeC-45Types-u--map_Functor_List (lambda (__infixTupleSection-0) (cons (vector 1 ) __infixTupleSection-0)) arg-21)))) (arg-2 (DataC-45List-reverse arg-23))) ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (CoreC-45Unify-union e-6 e-8))))))))))))))))))))) (else (let ((act-24 (CoreC-45ContextC-45Log-log arg-13 "unify.invertible" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Unifying invertible") ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((((CoreC-45Unify-unify (cons (lambda (u--vars) (lambda (arg-4911) (lambda (arg-4913) (lambda (arg-4915) (lambda (arg-4916) (lambda (arg-4917) (lambda (arg-4919) (lambda (arg-4922) (lambda (eta-0) (CoreC-45Unify-u--unifyD_Unify_Closure u--vars arg-4911 arg-4913 arg-4915 arg-4916 arg-4917 arg-4919 arg-4922 eta-0)))))))))) (lambda (u--vars) (lambda (arg-4924) (lambda (arg-4926) (lambda (arg-4928) (lambda (arg-4929) (lambda (arg-4930) (lambda (arg-4932) (lambda (arg-4933) (lambda (eta-0) (CoreC-45Unify-u--unifyWithLazyD_Unify_Closure u--vars arg-4924 arg-4926 arg-4928 arg-4929 arg-4930 arg-4932 arg-4933 eta-0))))))))))) arg-0 arg-13 arg-12 arg-10 arg-9 arg-8) (Builtin-snd arg-22)) arg-20) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (CoreC-45ContextC-45Log-log arg-13 "unify.invertible" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Constraints " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_Int u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_Int u--d u--x)))) (let ((sc3 e-6)) (let ((e-0 (vector-ref sc3 1))) e-0))))) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 ((((CoreC-45Unify-unify (cons (lambda (u--vars) (lambda (arg-4911) (lambda (arg-4913) (lambda (arg-4915) (lambda (arg-4916) (lambda (arg-4917) (lambda (arg-4919) (lambda (arg-4922) (CoreC-45Unify-u--unifyD_Unify_NF u--vars arg-4911 arg-4913 arg-4915 arg-4916 arg-4917 arg-4919 arg-4922))))))))) (lambda (u--vars) (lambda (arg-4924) (lambda (arg-4926) (lambda (arg-4928) (lambda (arg-4929) (lambda (arg-4930) (lambda (arg-4932) (lambda (arg-4933) (CoreC-45Unify-u--unifyWithLazyD_Unify_NF u--vars arg-4924 arg-4926 arg-4928 arg-4929 arg-4930 arg-4932 arg-4933)))))))))) arg-0 arg-13 arg-12 arg-10 arg-9 arg-8) (arg-2 (DataC-45List-reverse arg-23))) (vector 1 arg-9 (vector 2 arg-7 arg-6 arg-5) (DataC-45List-reverse (PreludeC-45Types-u--map_Functor_List (lambda (__infixTupleSection-0) (cons (vector 1 ) __infixTupleSection-0)) arg-21)))) ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (CoreC-45Unify-union e-6 e-8))))))))))))))))))))))))) -(define CoreC-45Unify-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32unifyInvertible-10015 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (if (null? sc0) (lambda (eta-0) (CoreC-45Unify-postponeS arg-0 arg-13 arg-12 0 arg-11 arg-9 arg-10 "Postponing hole application [2]" arg-8 (vector 1 arg-9 (vector 2 arg-7 arg-6 arg-5) (PreludeC-45Types-u--map_Functor_List (lambda (__infixTupleSection-0) (cons (vector 1 ) __infixTupleSection-0)) arg-4)) (arg-2 arg-1) eta-0)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (if (null? sc1) (lambda (eta-0) (CoreC-45Unify-postponeS arg-0 arg-13 arg-12 0 arg-11 arg-9 arg-10 "Postponing hole application [2]" arg-8 (vector 1 arg-9 (vector 2 arg-7 arg-6 arg-5) (PreludeC-45Types-u--map_Functor_List (lambda (__infixTupleSection-0) (cons (vector 1 ) __infixTupleSection-0)) arg-4)) (arg-2 arg-1) eta-0)) (let ((e-5 (car sc1))) (let ((e-6 (cdr sc1))) (let ((sc2 e-3)) (if (null? sc2) (lambda (eta-0) (CoreC-45Unify-postponeS arg-0 arg-13 arg-12 0 arg-11 arg-9 arg-10 "Postponing hole application [2]" arg-8 (vector 1 arg-9 (vector 2 arg-7 arg-6 arg-5) (PreludeC-45Types-u--map_Functor_List (lambda (__infixTupleSection-0) (cons (vector 1 ) __infixTupleSection-0)) arg-4)) (arg-2 arg-1) eta-0)) (let ((e-8 (car sc2))) (let ((e-9 (cdr sc2))) (lambda (eta-0) (CoreC-45UnifyState-tryUnify arg-13 arg-12 (lambda (eta-1) (CoreC-45Unify-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32unifyInvertible-10093 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 e-5 e-6 e-8 e-9 (let ((sc3 arg-11)) (cond ((equal? sc3 0) 1) (else 0))) eta-1)) (lambda (eta-1) (CoreC-45Unify-postponeS arg-0 arg-13 arg-12 0 arg-11 arg-9 arg-10 "Postponing hole application [1]" arg-8 (vector 1 arg-9 (vector 2 arg-7 arg-6 arg-5) (PreludeC-45Types-u--map_Functor_List (lambda (__infixTupleSection-0) (cons (vector 1 ) __infixTupleSection-0)) arg-4)) (arg-2 arg-1) eta-1)) eta-0)))))))))))))))) -(define CoreC-45Unify-case--headsConvert-9772 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (if (null? sc0) (lambda (eta-0) (vector 1 1)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (lambda (clam-0) (let ((sc1 e-2)) (if (null? sc1) (vector 1 1) (let ((e-5 (car sc1))) (let ((sc2 e-3)) (if (null? sc2) (vector 1 1) (let ((e-8 (car sc2))) (let ((act-24 (CoreC-45Normalise-logNF arg-0 arg-7 "unify.head" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Unifying head") arg-3 e-5 clam-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((act-25 (CoreC-45Normalise-logNF arg-0 arg-7 "unify.head" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () ".........with") arg-3 e-8 clam-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((act-26 ((((CoreC-45Unify-unify (cons (lambda (u--vars) (lambda (arg-4911) (lambda (arg-4913) (lambda (arg-4915) (lambda (arg-4916) (lambda (arg-4917) (lambda (arg-4919) (lambda (arg-4922) (CoreC-45Unify-u--unifyD_Unify_NF u--vars arg-4911 arg-4913 arg-4915 arg-4916 arg-4917 arg-4919 arg-4922))))))))) (lambda (u--vars) (lambda (arg-4924) (lambda (arg-4926) (lambda (arg-4928) (lambda (arg-4929) (lambda (arg-4930) (lambda (arg-4932) (lambda (arg-4933) (CoreC-45Unify-u--unifyWithLazyD_Unify_NF u--vars arg-4924 arg-4926 arg-4928 arg-4929 arg-4930 arg-4932 arg-4933)))))))))) arg-0 arg-7 arg-6 arg-5 arg-4 arg-3) e-5) e-8) clam-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc5 1))) (vector 1 (DataC-45List-isNil (let ((sc6 e-11)) (let ((e-0 (vector-ref sc6 1))) e-0)))))))))))))))))))))))))))))) -(define CoreC-45Unify-case--tooBig-9354 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (CoreC-45Unify-n--14354-9285-u--tooBigArgs arg-1 arg-2 arg-3 arg-4 0 arg-1 arg-3)) (else (CoreC-45Unify-n--14354-9285-u--tooBigArgs arg-1 arg-2 arg-3 arg-4 arg-4 (+ 1 arg-1) arg-3)))))) -(define CoreC-45Unify-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32solveIfUndefined-8957 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 ext-0) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((0) (vector 1 1)) (else (let ((e-2 (vector-ref sc0 1))) (let ((act-24 ((CoreC-45Context-lookupCtxtExact (vector 9 arg-2) (let ((sc1 arg-9)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((act-25 (CoreC-45Unify-instantiate arg-8 arg-7 arg-0 arg-13 arg-4 (CoreC-45Unify-inTerm) arg-6 arg-3 arg-2 (PreludeC-45TypesC-45List-length arg-1) e-1 arg-14 arg-5 e-2 ext-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (vector 1 0))))))) (else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 "Can't happen: no definition") ext-0))))))))))))))) -(define CoreC-45Unify-case--instantiate-8682 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 ext-0) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((3) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 3 arg-0 arg-11 arg-9 (vector 3 e-0 e-1) arg-3) ext-0))))(else (vector 1 (vector 0 ))))))) -(define CoreC-45Unify-case--instantiateC-44mkDef-8437 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 ext-0) (let ((sc0 arg-19)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (vector 1 e-1))) (else (CoreC-45Unify-ufail arg-11 (PreludeC-45TypesC-45String-C-43C-43 "Can't make solution for " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name arg-8) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (x-1) (CoreC-45TT-u--show_Show_C-40VarC-32C-36nsC-41 x-1)) (lambda (u--d) (lambda (x-1) (CoreC-45TT-u--showPrec_Show_C-40VarC-32C-36nsC-41 u--d x-1)))) x-0)) (lambda (u--d) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (x-1) (CoreC-45TT-u--show_Show_C-40VarC-32C-36nsC-41 x-1)) (lambda (d-0) (lambda (x-1) (CoreC-45TT-u--showPrec_Show_C-40VarC-32C-36nsC-41 d-0 x-1)))) u--d x-0)))) u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_C-40ListC-32C-36aC-41 (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (x-1) (CoreC-45TT-u--show_Show_C-40VarC-32C-36nsC-41 x-1)) (lambda (d-0) (lambda (x-1) (CoreC-45TT-u--showPrec_Show_C-40VarC-32C-36nsC-41 d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (x-1) (CoreC-45TT-u--show_Show_C-40VarC-32C-36nsC-41 x-1)) (lambda (d-1) (lambda (x-1) (CoreC-45TT-u--showPrec_Show_C-40VarC-32C-36nsC-41 d-1 x-1)))) d-0 x-0)))) u--d u--x)))) (cons (lambda (u--x) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-15 u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-15 u--d u--x))))) (cons (CoreC-45Unify-getIVars arg-18) arg-17))))) ext-0)))))) -(define CoreC-45Unify-case--instantiateC-44mkDef-8303 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 ext-0) (let ((sc0 arg-28)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (vector 1 e-1))) (else (vector 1 (vector 3 arg-23 arg-17 arg-22 arg-27))))))) -(define CoreC-45Unify-case--instantiateC-44updateIVar-7504 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-19 arg-21 arg-22 arg-25) (let ((sc0 arg-25)) (cond ((equal? sc0 0) (vector 1 0)) (else (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Unify-n--12105-7250-u--updateIVar arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-22 arg-21) (lambda (_-0) (vector 1 (+ 1 _-0))))))))) -(define CoreC-45Unify-case--caseC-32blockC-32inC-32occursCheck-6975 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 ext-0) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (let ((act-24 ((CoreC-45Unify-n--11507-6689-u--failOnStrongRigid arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 1 (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 4 arg-0 arg-5 arg-4 arg-2 arg-10) eta-0)) arg-10) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 0 ))))))) (else (vector 1 (vector 1 arg-10))))))) -(define CoreC-45Unify-case--occursCheck-6907 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 ext-0) (let ((sc0 arg-8)) (cond ((equal? sc0 1) (vector 1 (vector 1 arg-1)))(else (let ((act-24 (let ((act-24 (unbox arg-6))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (CoreC-45Normalise-normalise arg-6 arg-0 e-5 arg-4 arg-1 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((CoreC-45Unify-getMetaNames arg-6 e-6) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (CoreC-45Unify-case--caseC-32blockC-32inC-32occursCheck-6975 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-5 e-6 e-7 (PreludeC-45Types-elem (cons (lambda (arg-9) (lambda (arg-10) (CoreC-45Name-u--C-61C-61_Eq_Name arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (CoreC-45Name-u--C-47C-61_Eq_Name arg-9 arg-10)))) arg-2 e-7) ext-0))))))))))))))))))))) -(define CoreC-45Unify-case--occursCheckC-44failOnStrongRigid-6768 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-3)) (if (null? sc1) (lambda (eta-0) (vector 1 (vector 0 ))) (lambda (clam-0) (let ((sc2 e-2)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 2))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (vector 1 (vector 0 )))(else (CoreC-45Core-traverse_ (lambda (eta-0) (CoreC-45Unify-n--11507-6689-u--failOnStrongRigid arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 0 arg-8 eta-0)) e-3 clam-0))))))(else (CoreC-45Core-traverse_ (lambda (eta-0) (CoreC-45Unify-n--11507-6689-u--failOnStrongRigid arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-9 arg-8 eta-0)) e-3 clam-0)))))))))))) -(define CoreC-45Unify-case--occursCheckC-44failOnStrongRigid-6707 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (cond ((equal? sc0 0) arg-11) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define CoreC-45Unify-case--caseC-32blockC-32inC-32patternEnvTm-6644 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 ext-0) (let ((sc0 arg-8)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (vector 1 (vector 1 (cons e-2 (cons (CoreC-45Unify-n--11294-6505-u--updateVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-7 e-3) e-3))))))))) -(define CoreC-45Unify-case--patternEnvTm-6603 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (CoreC-45Unify-case--caseC-32blockC-32inC-32patternEnvTm-6644 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-2 (CoreC-45Unify-toSubVars arg-0 e-2) eta-0)))))))) -(define CoreC-45Unify-case--patternEnvTmC-44updateVars-6530 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-7 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((0) (CoreC-45Unify-n--11294-6505-u--updateVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-9 arg-10)) (else (let ((e-2 (vector-ref sc0 1))) (cons e-2 (CoreC-45Unify-n--11294-6505-u--updateVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-9 arg-10)))))))) -(define CoreC-45Unify-case--getVarsTm-6432 (lambda (arg-2 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (cond ((equal? sc0 0) (vector 0 )) (else (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Unify-getVarsTm (cons arg-2 arg-7) arg-6) (lambda (u--xsC-39) (PreludeC-45Types-u--pure_Applicative_Maybe (cons arg-2 u--xsC-39))))))))) -(define CoreC-45Unify-case--caseC-32blockC-32inC-32patternEnv-6373 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 ext-0) (let ((sc0 arg-9)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (vector 1 (vector 1 (cons e-2 (cons (CoreC-45Unify-n--10964-6218-u--updateVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-8 e-3) e-3))))))))) -(define CoreC-45Unify-case--patternEnv-6328 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (CoreC-45Unify-case--caseC-32blockC-32inC-32patternEnv-6373 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-2 (CoreC-45Unify-toSubVars arg-0 e-2) eta-0)))))))) -(define CoreC-45Unify-case--patternEnvC-44updateVars-6243 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-7 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((0) (CoreC-45Unify-n--10964-6218-u--updateVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-9 arg-10)) (else (let ((e-2 (vector-ref sc0 1))) (cons e-2 (CoreC-45Unify-n--10964-6218-u--updateVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-9 arg-10)))))))) -(define CoreC-45Unify-case--caseC-32blockC-32inC-32toSubVars-6171 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (cons (cons arg-0 arg-3) (vector 2 arg-4))) (else (cons arg-3 (vector 1 arg-4))))))) -(define CoreC-45Unify-case--toSubVars-6155 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (CoreC-45Unify-case--caseC-32blockC-32inC-32toSubVars-6171 arg-0 arg-1 arg-2 e-2 e-3 (CoreC-45Unify-n--10850-6121-u--anyFirst arg-0 arg-1 arg-2 arg-2))))))) -(define CoreC-45Unify-case--getVars-6026 (lambda (arg-0 arg-2 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (cond ((equal? sc0 0) (vector 0 )) (else (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Unify-getVars arg-0 (cons arg-2 arg-7) arg-6) (lambda (u--xsC-39) (PreludeC-45Types-u--pure_Applicative_Maybe (cons arg-2 u--xsC-39))))))))) -(define CoreC-45Unify-case--chaseMetas-5252 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (CoreC-45Unify-chaseMetas arg-3 arg-1 arg-2))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-3))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (CoreC-45Context-lookupDefExact arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0)) eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((sc3 e-1)) (case (vector-ref sc3 0) ((1) (let ((e-4 (vector-ref sc3 3))) (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-9 (vector-ref sc4 2))) (let ((u--sns (LibrariesC-45DataC-45NameMap-keys (CoreC-45TT-getMetas e-9)))) ((CoreC-45Unify-chaseMetas arg-3 (PreludeC-45TypesC-45List-C-43C-43 u--sns arg-1) (LibrariesC-45DataC-45NameMap-insert arg-0 (vector 0 ) arg-2)) eta-0))))(else ((CoreC-45Unify-chaseMetas arg-3 arg-1 (LibrariesC-45DataC-45NameMap-insert arg-0 (vector 0 ) arg-2)) eta-0))))))(else ((CoreC-45Unify-chaseMetas arg-3 arg-1 (LibrariesC-45DataC-45NameMap-insert arg-0 (vector 0 ) arg-2)) eta-0))))))(else ((CoreC-45Unify-chaseMetas arg-3 arg-1 (LibrariesC-45DataC-45NameMap-insert arg-0 (vector 0 ) arg-2)) eta-0)))))))))))))))))))) -(define CoreC-45Unify-n--11294-6505-u--updateVars (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-6 arg-7) (let ((sc0 arg-6)) (if (null? sc0) '() (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (CoreC-45Unify-case--patternEnvTmC-44updateVars-6530 arg-0 arg-1 arg-2 arg-3 arg-4 e-2 e-3 arg-7 (CoreC-45TT-subElem e-2 arg-7)))))))) -(define CoreC-45Unify-n--10964-6218-u--updateVars (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-6 arg-7) (let ((sc0 arg-6)) (if (null? sc0) '() (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (CoreC-45Unify-case--patternEnvC-44updateVars-6243 arg-0 arg-1 arg-2 arg-3 arg-4 e-2 e-3 arg-7 (CoreC-45TT-subElem e-2 arg-7)))))))) -(define CoreC-45Unify-n--12129-7828-u--updateIVarsPi (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24) (let ((sc0 arg-24)) (case (vector-ref sc0 0) ((1) (vector 1 (vector 1 ))) ((0) (vector 1 (vector 0 ))) ((2) (vector 1 (vector 2 ))) (else (let ((e-4 (vector-ref sc0 1))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Unify-n--12105-7251-u--updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-21 arg-22 arg-23 e-4) (lambda (u--tC-39) (vector 1 (vector 3 u--tC-39)))))))))) -(define CoreC-45Unify-n--12129-7829-u--updateIVarsB (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24) (let ((sc0 arg-24)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Unify-n--12129-7828-u--updateIVarsPi arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 e-3) (lambda (u--pC-39) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Unify-n--12105-7251-u--updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-21 arg-22 arg-23 e-4) (lambda (bind-0) (vector 1 (vector 0 e-1 e-2 u--pC-39 bind-0))))))))))) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (let ((e-9 (vector-ref sc0 4))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Unify-n--12105-7251-u--updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-21 arg-22 arg-23 e-8) (lambda (bind-0) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Unify-n--12105-7251-u--updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-21 arg-22 arg-23 e-9) (lambda (bind-1) (vector 1 (vector 1 e-6 e-7 bind-0 bind-1))))))))))) ((2) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 4))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Unify-n--12129-7828-u--updateIVarsPi arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 e-13) (lambda (u--pC-39) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Unify-n--12105-7251-u--updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-21 arg-22 arg-23 e-14) (lambda (bind-0) (vector 1 (vector 2 e-11 e-12 u--pC-39 bind-0))))))))))) ((3) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Unify-n--12129-7828-u--updateIVarsPi arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 e-18) (lambda (u--pC-39) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Unify-n--12105-7251-u--updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-21 arg-22 arg-23 e-19) (lambda (bind-0) (vector 1 (vector 3 e-16 e-17 u--pC-39 bind-0))))))))))) ((4) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (let ((e-24 (vector-ref sc0 4))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Unify-n--12105-7251-u--updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-21 arg-22 arg-23 e-23) (lambda (bind-0) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Unify-n--12105-7251-u--updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-21 arg-22 arg-23 e-24) (lambda (bind-1) (vector 1 (vector 4 e-21 e-22 bind-0 bind-1))))))))))) (else (let ((e-26 (vector-ref sc0 1))) (let ((e-27 (vector-ref sc0 2))) (let ((e-28 (vector-ref sc0 3))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Unify-n--12105-7251-u--updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-21 arg-22 arg-23 e-28) (lambda (bind-0) (vector 1 (vector 5 e-26 e-27 bind-0)))))))))))) -(define CoreC-45Unify-n--12105-7251-u--updateIVars (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Unify-n--12105-7250-u--updateIVar arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-4 arg-16) (lambda (_-0) (vector 1 (vector 0 e-2 e-3 _-0)))))))) ((1) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 1 e-7 e-8 e-9)))))) ((2) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 4))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (PreludeC-45Types-u--traverse_Traversable_List (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (PreludeC-45Types-u--map_Functor_Maybe u--func arg-143))))) (lambda (u--a) (lambda (arg-577) (PreludeC-45Types-u--pure_Applicative_Maybe arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (PreludeC-45Types-u--C-60C-42C-62_Applicative_Maybe arg-578 arg-580)))))) (lambda (eta-0) (CoreC-45Unify-n--12105-7251-u--updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 eta-0)) e-14) (lambda (bind-0) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 2 e-11 e-12 e-13 bind-0))))))))) ((3) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Unify-n--12129-7829-u--updateIVarsB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-15 e-17 e-19 e-18 e-16 arg-14 arg-16 arg-14 arg-15 arg-16 e-18) (lambda (u--bC-39) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Unify-n--12105-7251-u--updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (cons e-17 arg-14) (cons e-17 arg-15) (cons (vector 1 0) (CoreC-45Unify-u--weaken_Weaken_C-40IVarsC-32C-36vsC-41 arg-16)) e-19) (lambda (u--scC-39) (vector 1 (vector 3 e-16 e-17 u--bC-39 u--scC-39))))))))))) ((4) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Unify-n--12105-7251-u--updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 e-22) (lambda (bind-0) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Unify-n--12105-7251-u--updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 e-23) (lambda (bind-1) (vector 1 (vector 4 e-21 bind-0 bind-1)))))))))) ((5) (let ((e-25 (vector-ref sc0 1))) (let ((e-26 (vector-ref sc0 2))) (let ((e-27 (vector-ref sc0 3))) (let ((e-28 (vector-ref sc0 4))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Unify-n--12105-7251-u--updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 e-27) (lambda (bind-0) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Unify-n--12105-7251-u--updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 e-28) (lambda (bind-1) (vector 1 (vector 5 e-25 e-26 bind-0 bind-1))))))))))) ((6) (let ((e-30 (vector-ref sc0 1))) (let ((e-31 (vector-ref sc0 2))) (let ((e-32 (vector-ref sc0 3))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Unify-n--12105-7251-u--updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 e-32) (lambda (bind-0) (vector 1 (vector 6 e-30 e-31 bind-0)))))))) ((7) (let ((e-34 (vector-ref sc0 1))) (let ((e-35 (vector-ref sc0 2))) (let ((e-36 (vector-ref sc0 3))) (let ((e-37 (vector-ref sc0 4))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Unify-n--12105-7251-u--updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 e-36) (lambda (bind-0) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Unify-n--12105-7251-u--updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 e-37) (lambda (bind-1) (vector 1 (vector 7 e-34 e-35 bind-0 bind-1))))))))))) ((8) (let ((e-39 (vector-ref sc0 1))) (let ((e-40 (vector-ref sc0 2))) (let ((e-41 (vector-ref sc0 3))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Unify-n--12105-7251-u--updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 e-41) (lambda (bind-0) (vector 1 (vector 8 e-39 e-40 bind-0)))))))) ((9) (let ((e-43 (vector-ref sc0 1))) (let ((e-44 (vector-ref sc0 2))) (vector 1 (vector 9 e-43 e-44))))) ((10) (let ((e-46 (vector-ref sc0 1))) (let ((e-47 (vector-ref sc0 2))) (vector 1 (vector 10 e-46 e-47))))) (else (let ((e-49 (vector-ref sc0 1))) (vector 1 (vector 11 e-49)))))))) -(define CoreC-45Unify-n--12105-7250-u--updateIVar (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-15 arg-18) (let ((sc0 arg-18)) (if (null? sc0) (vector 0 ) (let ((e-3 (car sc0))) (let ((e-4 (cdr sc0))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Unify-n--12105-7250-u--updateIVar arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-15 e-4) (lambda (_-0) (vector 1 (+ 1 _-0))))) ((1) (let ((e-7 (vector-ref sc1 1))) (CoreC-45Unify-case--instantiateC-44updateIVar-7504 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-7 e-4 arg-15 (PreludeC-45Types-u--C-61C-61_Eq_Nat arg-15 e-7))))(else (vector 0 )))))))))) -(define CoreC-45Unify-n--10042-5373-u--undefinedN (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 ext-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (CoreC-45Context-lookupDefExact arg-10 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0)) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((sc3 e-1)) (case (vector-ref sc3 0) ((7) (vector 1 0)) ((8) (vector 1 0)) ((9) (vector 1 0))(else (vector 1 1))))))(else (vector 1 1)))))))))))))))) -(define CoreC-45Unify-n--14354-9285-u--tooBigArgs (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-6)) (cond ((equal? sc0 0) 0)(else (let ((sc0 arg-7)) (if (null? sc0) 1 (let ((sc1 arg-6)) (cond ((equal? sc1 0) (blodwen-error-quit "Nat case not covered"))(else (let ((e-0 (- arg-6 1))) (let ((sc1 arg-7)) (let ((e-2 (car sc1))) (let ((e-3 (cdr sc1))) (PreludeC-45Basics-C-124C-124 (CoreC-45Unify-tooBig arg-5 (let ((sc2 arg-5)) (cond ((equal? sc2 0) e-0) (else (+ 1 e-0)))) '() e-2) (lambda () (CoreC-45Unify-n--14354-9285-u--tooBigArgs arg-1 arg-2 arg-3 arg-4 arg-5 e-0 e-3))))))))))))))))) -(define CoreC-45Unify-n--14571-10936-u--solutionHeadSame (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((2) (let ((e-6 (vector-ref sc1 2))) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int e-6 arg-9)))(else 1)))))(else 1))))) -(define CoreC-45Unify-n--14584-13134-u--pv (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((3) 0)(else 1))))) -(define CoreC-45Unify-n--12105-7252-u--mkDef (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-16)) (if (null? sc0) (let ((sc1 arg-19)) (case (vector-ref sc1 0) ((3) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((e-4 (vector-ref sc1 3))) (let ((e-5 (vector-ref sc1 4))) (let ((sc2 e-4)) (case (vector-ref sc2 0) ((1) (let ((e-7 (vector-ref sc2 1))) (let ((e-8 (vector-ref sc2 2))) (let ((e-9 (vector-ref sc2 3))) (let ((e-10 (vector-ref sc2 4))) (lambda (eta-0) (let ((act-24 ((CoreC-45Unify-n--12105-7252-u--mkDef arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (cons e-3 arg-14) arg-15 arg-16 (cons (vector 0 ) arg-17) arg-18 e-5) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((u--b (vector 1 e-7 e-8 e-9 e-10))) (CoreC-45Unify-case--instantiateC-44mkDef-8303 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-7 e-3 e-5 e-9 e-10 e-8 u--b e-2 arg-18 arg-17 arg-16 e-6 (CoreC-45TT-shrinkTerm e-6 (vector 1 (vector 0 ))) eta-0)))))))))))))(else (let ((sc2 arg-16)) (if (null? sc2) (lambda (eta-0) (CoreC-45Unify-case--instantiateC-44mkDef-8437 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-19 arg-18 arg-17 (CoreC-45Unify-n--12105-7251-u--updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-17 arg-18) eta-0)) (lambda (eta-0) (CoreC-45Unify-ufail arg-11 (PreludeC-45TypesC-45String-C-43C-43 "Can't make solution for " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name arg-8) (PreludeC-45TypesC-45String-C-43C-43 " at " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-14 arg-19)))) eta-0))))))))))))(else (let ((sc1 arg-16)) (if (null? sc1) (lambda (eta-0) (CoreC-45Unify-case--instantiateC-44mkDef-8437 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-19 arg-18 arg-17 (CoreC-45Unify-n--12105-7251-u--updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-17 arg-18) eta-0)) (lambda (eta-0) (CoreC-45Unify-ufail arg-11 (PreludeC-45TypesC-45String-C-43C-43 "Can't make solution for " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name arg-8) (PreludeC-45TypesC-45String-C-43C-43 " at " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-14 arg-19)))) eta-0))))))) (let ((e-12 (car sc0))) (let ((e-13 (cdr sc0))) (let ((sc1 arg-19)) (case (vector-ref sc1 0) ((3) (let ((e-15 (vector-ref sc1 1))) (let ((e-16 (vector-ref sc1 2))) (let ((e-17 (vector-ref sc1 3))) (let ((e-18 (vector-ref sc1 4))) (let ((sc2 e-17)) (case (vector-ref sc2 0) ((2) (let ((e-20 (vector-ref sc2 1))) (let ((e-21 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((CoreC-45Unify-n--12105-7252-u--mkDef arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (cons e-16 arg-14) arg-15 e-13 (cons (vector 1 e-12) arg-17) arg-18 e-18) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (vector 1 (vector 3 e-15 e-16 (vector 0 e-20 e-21 (vector 1 ) (vector 10 e-15 1)) e-5)))))))))))(else (let ((sc2 arg-19)) (case (vector-ref sc2 0) ((3) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((e-4 (vector-ref sc2 3))) (let ((e-5 (vector-ref sc2 4))) (let ((sc3 e-4)) (case (vector-ref sc3 0) ((1) (let ((e-7 (vector-ref sc3 1))) (let ((e-8 (vector-ref sc3 2))) (let ((e-9 (vector-ref sc3 3))) (let ((e-10 (vector-ref sc3 4))) (lambda (eta-0) (let ((act-24 ((CoreC-45Unify-n--12105-7252-u--mkDef arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (cons e-3 arg-14) arg-15 arg-16 (cons (vector 0 ) arg-17) arg-18 e-5) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((u--b (vector 1 e-7 e-8 e-9 e-10))) (CoreC-45Unify-case--instantiateC-44mkDef-8303 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-7 e-3 e-5 e-9 e-10 e-8 u--b e-2 arg-18 arg-17 arg-16 e-6 (CoreC-45TT-shrinkTerm e-6 (vector 1 (vector 0 ))) eta-0)))))))))))))(else (let ((sc3 arg-16)) (if (null? sc3) (lambda (eta-0) (CoreC-45Unify-case--instantiateC-44mkDef-8437 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-19 arg-18 arg-17 (CoreC-45Unify-n--12105-7251-u--updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-17 arg-18) eta-0)) (lambda (eta-0) (CoreC-45Unify-ufail arg-11 (PreludeC-45TypesC-45String-C-43C-43 "Can't make solution for " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name arg-8) (PreludeC-45TypesC-45String-C-43C-43 " at " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-14 arg-19)))) eta-0))))))))))))(else (let ((sc2 arg-16)) (if (null? sc2) (lambda (eta-0) (CoreC-45Unify-case--instantiateC-44mkDef-8437 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-19 arg-18 arg-17 (CoreC-45Unify-n--12105-7251-u--updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-17 arg-18) eta-0)) (lambda (eta-0) (CoreC-45Unify-ufail arg-11 (PreludeC-45TypesC-45String-C-43C-43 "Can't make solution for " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name arg-8) (PreludeC-45TypesC-45String-C-43C-43 " at " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-14 arg-19)))) eta-0)))))))))))))))(else (let ((sc1 arg-19)) (case (vector-ref sc1 0) ((3) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((e-4 (vector-ref sc1 3))) (let ((e-5 (vector-ref sc1 4))) (let ((sc2 e-4)) (case (vector-ref sc2 0) ((1) (let ((e-7 (vector-ref sc2 1))) (let ((e-8 (vector-ref sc2 2))) (let ((e-9 (vector-ref sc2 3))) (let ((e-10 (vector-ref sc2 4))) (lambda (eta-0) (let ((act-24 ((CoreC-45Unify-n--12105-7252-u--mkDef arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (cons e-3 arg-14) arg-15 arg-16 (cons (vector 0 ) arg-17) arg-18 e-5) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((u--b (vector 1 e-7 e-8 e-9 e-10))) (CoreC-45Unify-case--instantiateC-44mkDef-8303 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-7 e-3 e-5 e-9 e-10 e-8 u--b e-2 arg-18 arg-17 arg-16 e-6 (CoreC-45TT-shrinkTerm e-6 (vector 1 (vector 0 ))) eta-0)))))))))))))(else (let ((sc2 arg-16)) (if (null? sc2) (lambda (eta-0) (CoreC-45Unify-case--instantiateC-44mkDef-8437 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-19 arg-18 arg-17 (CoreC-45Unify-n--12105-7251-u--updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-17 arg-18) eta-0)) (lambda (eta-0) (CoreC-45Unify-ufail arg-11 (PreludeC-45TypesC-45String-C-43C-43 "Can't make solution for " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name arg-8) (PreludeC-45TypesC-45String-C-43C-43 " at " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-14 arg-19)))) eta-0))))))))))))(else (let ((sc1 arg-16)) (if (null? sc1) (lambda (eta-0) (CoreC-45Unify-case--instantiateC-44mkDef-8437 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-19 arg-18 arg-17 (CoreC-45Unify-n--12105-7251-u--updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-17 arg-18) eta-0)) (lambda (eta-0) (CoreC-45Unify-ufail arg-11 (PreludeC-45TypesC-45String-C-43C-43 "Can't make solution for " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name arg-8) (PreludeC-45TypesC-45String-C-43C-43 " at " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-14 arg-19)))) eta-0)))))))))))))))) -(define CoreC-45Unify-n--14584-13135-u--localsIn (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 ext-0) (let ((sc0 arg-16)) (if (null? sc0) (vector 1 0) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((act-24 (let ((act-24 (unbox arg-15))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((CoreC-45Normalise-evalClosure arg-15 arg-0 e-5 e-2) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((0) (let ((act-26 (CoreC-45Unify-n--14584-13135-u--localsIn arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-3 ext-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc5 1))) (vector 1 (+ 1 e-10))))))))(else (CoreC-45Unify-n--14584-13135-u--localsIn arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-3 ext-0))))))(else (CoreC-45Unify-n--14584-13135-u--localsIn arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-3 ext-0)))))))))))))))))))) -(define CoreC-45Unify-n--12105-7249-u--isSimple (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-15) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((0) 0) ((1) 0) ((2) 0) ((3) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (let ((sc1 e-18)) (case (vector-ref sc1 0) ((0) (CoreC-45Unify-n--12105-7249-u--isSimple arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-19))(else 1)))))) ((9) 0) ((11) 0)(else 1))))) -(define CoreC-45Unify-n--14563-10590-u--isPatName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((3) 0)(else 1))))) -(define CoreC-45Unify-n--14354-9284-u--isFn (lambda (arg-1 arg-2 arg-3 arg-4 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) 0)(else 1)))))(else 1))))) -(define CoreC-45Unify-n--14595-15333-u--isDelay (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((5) 0)(else 1))))) -(define CoreC-45Unify-n--10719-6012-u--inArgs (lambda (arg-0 arg-2 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (if (null? sc0) 1 (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (PreludeC-45Basics-C-124C-124 (PreludeC-45EqOrd-u--C-61C-61_Eq_Integer arg-8 e-2) (lambda () (CoreC-45Unify-n--10719-6012-u--inArgs arg-0 arg-2 arg-4 arg-5 arg-6 arg-7 arg-8 e-3))))))))) -(define CoreC-45Unify-n--25837-19638-u--getHoleName (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((CoreC-45Normalise-nf arg-0 '() e-5 '() arg-2) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((2) (let ((e-9 (vector-ref sc3 1))) (vector 1 (vector 1 e-9))))(else (vector 1 (vector 0 )))))))(else (vector 1 (vector 0 ))))))))))))))))) -(define CoreC-45Unify-n--11507-6689-u--failOnStrongRigid (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (CoreC-45Unify-case--occursCheckC-44failOnStrongRigid-6707 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-1 e-3 e-4 e-2 arg-8 arg-7 (PreludeC-45Basics-C-38C-38 arg-7 (lambda () (CoreC-45Name-u--C-61C-61_Eq_Name e-2 arg-2)))))))))(else (CoreC-45Unify-case--occursCheckC-44failOnStrongRigid-6768 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-9 arg-8 arg-7 (CoreC-45TT-getFnArgs arg-9))))))) -(define CoreC-45Unify-n--22986-17145-u--definedN (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((2) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact arg-4 (let ((sc3 e-5)) (let ((e-32 (vector-ref sc3 1))) e-32))) ext-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) (let ((u--n (vector 0 e-0 (vector 2 e-2 e-3)))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((1) (let ((e-4 (vector-ref sc4 1))) (let ((_-0 (vector 1 e-4))) (CoreC-45Unify-case--caseC-32blockC-32inC-32retryC-44definedN-17193 arg-0 arg-1 arg-2 arg-3 e-0 e-2 e-3 u--n e-5 e-4 _-0 (let ((sc5 e-4)) (let ((e-17 (vector-ref sc5 18))) e-17)) ext-0))))(else (vector 1 1))))))))))))))))))(else (vector 1 0)))))))(else (vector 1 0)))))) -(define CoreC-45Unify-n--25403-19250-u--constraintToHole (lambda (arg-0 arg-1 arg-2 ext-0) (let ((sc0 arg-2)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-3)) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (CoreC-45Context-lookupDefExact (vector 9 e-2) (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) e-0)) ext-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((sc5 e-1)) (case (vector-ref sc5 0) ((8) (CoreC-45Context-updateDef arg-1 (vector 9 e-2) (lambda (eta-0) (vector 1 (vector 7 0 (CoreC-45Context-holeInit 1)))) ext-0)) ((9) (CoreC-45Context-updateDef arg-1 (vector 9 e-2) (lambda (eta-0) (vector 1 (vector 7 0 (CoreC-45Context-holeInit 1)))) ext-0))(else (vector 1 (vector 0 )))))))(else (vector 1 (vector 0 ))))))))))))))))))))) -(define CoreC-45Unify-n--10042-5372-u--checkDefined (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 ext-0) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 2))) (let ((act-24 ((CoreC-45Context-lookupCtxtExact e-6 (let ((sc2 arg-10)) (let ((e-0 (vector-ref sc2 1))) e-0))) ext-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((1) (vector 1 (vector 0 )))(else (CoreC-45Context-undefinedName arg-9 arg-6 e-6 ext-0)))))))))))(else (vector 1 (vector 0 )))))))(else (vector 1 (vector 0 ))))))) -(define CoreC-45Unify-n--25837-19639-u--checkConstraint (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (if (null? sc0) (lambda (eta-0) (vector 1 (vector 0 ))) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (lambda (clam-0) (let ((sc1 e-3)) (if (null? sc1) (vector 1 (vector 0 )) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (let ((e-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (let ((e-12 (vector-ref sc2 5))) (let ((e-13 (vector-ref sc2 6))) (let ((e-14 (vector-ref sc2 7))) (let ((act-24 (CoreC-45Normalise-logTermNF e-8 arg-0 "unify.constraint" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Dot") e-12 e-14 clam-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((act-25 (CoreC-45Normalise-logTermNF e-8 arg-0 "unify.constraint" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () " =") e-12 e-13 clam-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((act-26 (let ((act-26 (unbox arg-1))) (vector 1 act-26)))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-16 (vector-ref sc5 1))) (CoreC-45UnifyState-handleUnify arg-0 arg-1 (lambda (eta-0) (let ((act-27 (let ((act-27 (unbox arg-0))) (vector 1 act-27)))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-17 (vector-ref sc6 1))) (let ((act-28 ((CoreC-45Context-getPosition e-2 (let ((sc7 e-17)) (let ((e-0 (vector-ref sc7 1))) e-0))) eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-18 (vector-ref sc7 1))) (let ((sc8 e-18)) (let ((e-19 (car sc8))) (let ((act-29 (CoreC-45Unify-n--25837-19638-u--getHoleName arg-0 arg-1 (vector 2 e-9 e-2 e-19 '()) eta-0))) (let ((sc9 act-29)) (case (vector-ref sc9 0) ((0) (let ((e-20 (vector-ref sc9 1))) (vector 0 e-20))) (else (let ((e-20 (vector-ref sc9 1))) (let ((act-30 ((((CoreC-45Unify-unify (cons (lambda (u--vars) (lambda (arg-4911) (lambda (arg-4913) (lambda (arg-4915) (lambda (arg-4916) (lambda (arg-4917) (lambda (arg-4919) (lambda (arg-4922) (lambda (eta-1) (CoreC-45Unify-u--unifyD_Unify_Term u--vars arg-4911 arg-4913 arg-4915 arg-4916 arg-4917 arg-4919 arg-4922 eta-1)))))))))) (lambda (u--vars) (lambda (arg-4924) (lambda (arg-4926) (lambda (arg-4928) (lambda (arg-4929) (lambda (arg-4930) (lambda (arg-4932) (lambda (arg-4933) (lambda (eta-1) (CoreC-45Unify-u--unifyWithLazyD_Unify_Term u--vars arg-4924 arg-4926 arg-4928 arg-4929 arg-4930 arg-4932 arg-4933 eta-1))))))))))) e-8 arg-0 arg-1 (CoreC-45Unify-inMatch) e-9 e-12) e-13) e-14) eta-0))) (let ((sc10 act-30)) (case (vector-ref sc10 0) ((0) (let ((e-21 (vector-ref sc10 1))) (vector 0 e-21))) (else (let ((e-21 (vector-ref sc10 1))) (let ((act-31 (let ((act-31 (unbox arg-0))) (vector 1 act-31)))) (let ((sc11 act-31)) (case (vector-ref sc11 0) ((0) (let ((e-22 (vector-ref sc11 1))) (vector 0 e-22))) (else (let ((e-22 (vector-ref sc11 1))) (let ((act-32 ((PreludeC-45Types-maybe (lambda () (lambda (eta-1) (vector 1 1))) (lambda () (lambda (u--n) (lambda (eta-1) (let ((act-32 (CoreC-45Context-lookupDefExact u--n (let ((sc12 e-22)) (let ((e-0 (vector-ref sc12 1))) e-0)) eta-1))) (let ((sc12 act-32)) (case (vector-ref sc12 0) ((0) (let ((e-23 (vector-ref sc12 1))) (vector 0 e-23))) (else (let ((e-23 (vector-ref sc12 1))) (let ((sc13 e-23)) (case (vector-ref sc13 0) ((1) (let ((e-1 (vector-ref sc13 1))) (let ((sc14 e-1)) (case (vector-ref sc14 0) ((7) (vector 1 1))(else (vector 1 0)))))) (else (CoreC-45Context-undefinedName arg-0 e-9 u--n eta-1)))))))))))) e-20) eta-0))) (let ((sc12 act-32)) (case (vector-ref sc12 0) ((0) (let ((e-23 (vector-ref sc12 1))) (vector 0 e-23))) (else (let ((e-23 (vector-ref sc12 1))) (let ((act-33 (CoreC-45Unify-checkArgsSame arg-1 arg-0 (let ((sc13 e-21)) (let ((e-25 (vector-ref sc13 3))) e-25)) eta-0))) (let ((sc13 act-33)) (case (vector-ref sc13 0) ((0) (let ((e-24 (vector-ref sc13 1))) (vector 0 e-24))) (else (let ((e-24 (vector-ref sc13 1))) (let ((sc14 (PreludeC-45Basics-C-124C-124 (let ((sc15 (DataC-45List-isNil (let ((sc16 e-21)) (let ((e-0 (vector-ref sc16 1))) e-0))))) (cond ((equal? sc15 0) 1) (else 0))) (lambda () (PreludeC-45Basics-C-124C-124 e-23 (lambda () e-24)))))) (cond ((equal? sc14 0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 "Dot pattern match fail") eta-0)) (else (vector 1 (vector 0 ))))))))))))))))))))))))))))))))))))))))))) (lambda (u--err) (lambda (clam-1) (let ((sc6 u--err)) (case (vector-ref sc6 0) ((57) (let ((act-27 (let ((act-27 (unbox arg-0))) (vector 1 act-27)))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-17 (vector-ref sc7 1))) (let ((act-28 (CoreC-45Context-lookupTyExact e-2 (let ((sc8 e-17)) (let ((e-43 (vector-ref sc8 1))) e-43)) clam-1))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-18 (vector-ref sc8 1))) (let ((sc9 e-18)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((act-29 (CoreC-45Normalise-logTermNF '() arg-0 "unify.constraint" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Dot type") '() e-1 clam-1))) (let ((sc10 act-29)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((act-30 (let ((act-30 (set-box! arg-1 (let ((sc11 e-16)) (let ((e-28 (vector-ref sc11 1))) (let ((e-27 (vector-ref sc11 2))) (let ((e-26 (vector-ref sc11 3))) (let ((e-25 (vector-ref sc11 4))) (let ((e-4 (vector-ref sc11 5))) (let ((e-23 (vector-ref sc11 7))) (let ((e-22 (vector-ref sc11 8))) (let ((e-21 (vector-ref sc11 9))) (let ((e-20 (vector-ref sc11 10))) (vector 0 e-28 e-27 e-26 e-25 e-4 '() e-23 e-22 e-21 e-20)))))))))))))) (vector 1 act-30)))) (let ((sc11 act-30)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((act-31 (CoreC-45Normalise-normaliseHoles arg-0 e-8 e-17 e-12 e-13 clam-1))) (let ((sc12 act-31)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (let ((e-21 (vector-ref sc12 1))) (let ((act-32 (CoreC-45Normalise-normaliseHoles arg-0 e-8 e-17 e-12 e-14 clam-1))) (let ((sc13 act-32)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (vector 0 e-4))) (else (let ((e-22 (vector-ref sc13 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 44 e-8 e-9 e-12 e-6 e-21 e-22) clam-1))))))))))))))))))))) (else (CoreC-45Context-undefinedName arg-0 e-9 e-2 clam-1)))))))))))))))(else (let ((act-27 (let ((act-27 (set-box! arg-1 (let ((sc6 e-16)) (let ((e-0 (vector-ref sc6 1))) (let ((e-1 (vector-ref sc6 2))) (let ((e-23 (vector-ref sc6 3))) (let ((e-22 (vector-ref sc6 4))) (let ((e-4 (vector-ref sc6 5))) (let ((e-20 (vector-ref sc6 7))) (let ((e-19 (vector-ref sc6 8))) (let ((e-18 (vector-ref sc6 9))) (let ((e-17 (vector-ref sc6 10))) (vector 0 e-0 e-1 e-23 e-22 e-4 '() e-20 e-19 e-18 e-17)))))))))))))) (vector 1 act-27)))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (CoreC-45Core-u--throw_Catchable_Core_Error u--err clam-1)))))))))) clam-0))))))))))))))))))))(else (vector 1 (vector 0 )))))))))))))))) -(define CoreC-45Unify-n--25531-19381-u--anySame (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((sc0 arg-5)) (if (null? sc0) (vector 1 1) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Context-lookupDefExact (vector 9 e-2) (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((sc4 e-1)) (case (vector-ref sc4 0) ((1) (let ((e-9 (vector-ref sc4 2))) (let ((e-4 (vector-ref sc4 3))) (let ((sc5 e-9)) (if (null? sc5) (let ((sc6 e-4)) (case (vector-ref sc6 0) ((1) (let ((e-12 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (let ((sc7 e-12)) (cond ((equal? sc7 0) (let ((act-26 (CoreC-45Normalise-u--convert_Convert_Term arg-2 '() e-5 '() arg-4 e-11 ext-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc8 1))) (let ((sc9 e-13)) (cond ((equal? sc9 0) (vector 1 0)) (else (CoreC-45Unify-n--25531-19381-u--anySame arg-0 arg-1 arg-2 arg-3 arg-4 e-3 ext-0))))))))))(else (CoreC-45Unify-n--25531-19381-u--anySame arg-0 arg-1 arg-2 arg-3 arg-4 e-3 ext-0)))))))(else (CoreC-45Unify-n--25531-19381-u--anySame arg-0 arg-1 arg-2 arg-3 arg-4 e-3 ext-0)))) (CoreC-45Unify-n--25531-19381-u--anySame arg-0 arg-1 arg-2 arg-3 arg-4 e-3 ext-0))))))(else (CoreC-45Unify-n--25531-19381-u--anySame arg-0 arg-1 arg-2 arg-3 arg-4 e-3 ext-0))))))(else (CoreC-45Unify-n--25531-19381-u--anySame arg-0 arg-1 arg-2 arg-3 arg-4 e-3 ext-0)))))))))))))))))))) -(define CoreC-45Unify-n--10850-6121-u--anyFirst (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (if (null? sc0) 1 (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (cond ((equal? sc1 0) 0)(else (CoreC-45Unify-n--10850-6121-u--anyFirst arg-0 arg-1 arg-2 e-3)))))))))) -(define CoreC-45Unify-n--25355-19207-u--afterStart (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-6) (let ((sc0 arg-6)) (let ((e-2 (car sc0))) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int e-2 arg-2))))) -(define CoreC-45Unify-u--weaken_Weaken_C-40IVarsC-32C-36vsC-41 (lambda (arg-3) (let ((sc0 arg-3)) (if (null? sc0) '() (let ((e-4 (car sc0))) (let ((e-5 (cdr sc0))) (let ((sc1 e-4)) (case (vector-ref sc1 0) ((0) (cons (vector 0 ) (CoreC-45Unify-u--weaken_Weaken_C-40IVarsC-32C-36vsC-41 e-5))) (else (let ((e-8 (vector-ref sc1 1))) (cons (vector 1 (CoreC-45TT-u--weaken_Weaken_Var e-8)) (CoreC-45Unify-u--weaken_Weaken_C-40IVarsC-32C-36vsC-41 e-5)))))))))))) -(define CoreC-45Unify-u--unifyWithLazyD_Unify_Term (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (CoreC-45Context-clearDefs e-5 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (CoreC-45Normalise-u--convert_Convert_Term arg-1 arg-0 e-6 arg-5 arg-6 arg-7 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (cond ((equal? sc3 0) (let ((act-27 (CoreC-45ContextC-45Log-log arg-1 "unify.equal" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Skipped unification (equal already): " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 arg-6) (PreludeC-45TypesC-45String-C-43C-43 " and " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 arg-7))))) ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (vector 1 (CoreC-45Unify-success))))))) (else (let ((act-27 ((CoreC-45Normalise-nf arg-1 arg-0 e-5 arg-5 arg-6) ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 ((CoreC-45Normalise-nf arg-1 arg-0 e-5 arg-5 arg-7) ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) ((((CoreC-45Unify-unifyWithLazy (cons (lambda (u--vars) (lambda (arg-4911) (lambda (arg-4913) (lambda (arg-4915) (lambda (arg-4916) (lambda (arg-4917) (lambda (arg-4919) (lambda (arg-4922) (CoreC-45Unify-u--unifyD_Unify_NF u--vars arg-4911 arg-4913 arg-4915 arg-4916 arg-4917 arg-4919 arg-4922))))))))) (lambda (u--vars) (lambda (arg-4924) (lambda (arg-4926) (lambda (arg-4928) (lambda (arg-4929) (lambda (arg-4930) (lambda (arg-4932) (lambda (arg-4933) (CoreC-45Unify-u--unifyWithLazyD_Unify_NF u--vars arg-4924 arg-4926 arg-4928 arg-4929 arg-4930 arg-4932 arg-4933)))))))))) arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) e-8) e-9) ext-0))))))))))))))))))))))))))))))) -(define CoreC-45Unify-u--unifyWithLazyD_Unify_NF (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((5) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((5) (let ((e-11 (vector-ref sc1 3))) (((CoreC-45Unify-unify (cons (lambda (u--vars) (lambda (arg-4911) (lambda (arg-4913) (lambda (arg-4915) (lambda (arg-4916) (lambda (arg-4917) (lambda (arg-4919) (lambda (arg-4922) (CoreC-45Unify-u--unifyD_Unify_NF u--vars arg-4911 arg-4913 arg-4915 arg-4916 arg-4917 arg-4919 arg-4922))))))))) (lambda (u--vars) (lambda (arg-4924) (lambda (arg-4926) (lambda (arg-4928) (lambda (arg-4929) (lambda (arg-4930) (lambda (arg-4932) (lambda (arg-4933) (CoreC-45Unify-u--unifyWithLazyD_Unify_NF u--vars arg-4924 arg-4926 arg-4928 arg-4929 arg-4930 arg-4932 arg-4933)))))))))) arg-0 arg-1 arg-2 (CoreC-45Unify-lower arg-3) arg-4 arg-5) e-7) e-11)))(else (let ((u--x (vector 5 e-5 e-6 e-7))) (lambda (eta-0) (CoreC-45Unify-case--unifyWithLazyD-16285 arg-0 arg-1 arg-2 e-5 arg-7 e-7 e-6 u--x arg-5 arg-4 arg-3 (PreludeC-45Basics-C-38C-38 (CoreC-45Unify-isHoleApp arg-7) (lambda () (let ((sc1 (CoreC-45Unify-u--C-61C-61_Eq_UnifyMode (let ((sc2 arg-3)) (let ((e-1 (cdr sc2))) e-1)) (vector 2 )))) (cond ((equal? sc1 0) 1) (else 0))))) eta-0))))))))))(else (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((5) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((((CoreC-45Unify-unify (cons (lambda (u--vars) (lambda (arg-4911) (lambda (arg-4913) (lambda (arg-4915) (lambda (arg-4916) (lambda (arg-4917) (lambda (arg-4919) (lambda (arg-4922) (CoreC-45Unify-u--unifyD_Unify_NF u--vars arg-4911 arg-4913 arg-4915 arg-4916 arg-4917 arg-4919 arg-4922))))))))) (lambda (u--vars) (lambda (arg-4924) (lambda (arg-4926) (lambda (arg-4928) (lambda (arg-4929) (lambda (arg-4930) (lambda (arg-4932) (lambda (arg-4933) (CoreC-45Unify-u--unifyWithLazyD_Unify_NF u--vars arg-4924 arg-4926 arg-4928 arg-4929 arg-4930 arg-4932 arg-4933)))))))))) arg-0 arg-1 arg-2 (CoreC-45Unify-lower arg-3) arg-4 arg-5) arg-6) e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (let ((e-6 (vector-ref sc2 3))) (vector 0 e-0 e-7 e-6 (vector 2 e-2))))))))))))))))(else (((CoreC-45Unify-unify (cons (lambda (u--vars) (lambda (arg-4911) (lambda (arg-4913) (lambda (arg-4915) (lambda (arg-4916) (lambda (arg-4917) (lambda (arg-4919) (lambda (arg-4922) (CoreC-45Unify-u--unifyD_Unify_NF u--vars arg-4911 arg-4913 arg-4915 arg-4916 arg-4917 arg-4919 arg-4922))))))))) (lambda (u--vars) (lambda (arg-4924) (lambda (arg-4926) (lambda (arg-4928) (lambda (arg-4929) (lambda (arg-4930) (lambda (arg-4932) (lambda (arg-4933) (CoreC-45Unify-u--unifyWithLazyD_Unify_NF u--vars arg-4924 arg-4926 arg-4928 arg-4929 arg-4930 arg-4932 arg-4933)))))))))) arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) arg-6) arg-7))))))))) +(define TTImpC-45ElabC-45Check-inScope (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 (TTImpC-45ElabC-45Check-weakenedEState arg-1 arg-2 arg-4 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((arg-7 e-5) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45ElabC-45Check-strengthenedEState arg-1 arg-2 arg-3 e-5 arg-5 arg-6 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (let ((act-27 (set-box! arg-4 e-7))) (vector 1 act-27)))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (vector 1 e-6)))))))))))))))))) +(define TTImpC-45ElabC-45Check-implBindVar (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 ((CoreC-45UnifyState-newMeta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (vector 7 (CoreC-45Env-length arg-5) (CoreC-45Context-holeInit 1)) 1) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((e-3 (cdr e-5))) (vector 1 e-3)))))))) +(define TTImpC-45ElabC-45Check-handle (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 (TTImpC-45ElabC-45Check-tryError arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (case (vector-ref e-5 0) ((1) (let ((e-2 (vector-ref e-5 1))) (vector 1 e-2))) (else (let ((e-6 (vector-ref e-5 1))) ((arg-7 e-6) ext-0)))))))))) +(define TTImpC-45ElabC-45Check-exactlyOneC-39 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (if (null? arg-8) (lambda (eta-0) (let ((act-24 (TTImpC-45ElabC-45Check-successful arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-8 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((sc2 (TTImpC-45ElabC-45Check-n--12451-9924-u--getRight arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5))) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (let ((e-8 (car e-2))) (let ((e-9 (cdr e-2))) (let ((e-12 (car e-9))) (let ((e-13 (cdr e-9))) (let ((e-16 (car e-13))) (let ((e-17 (cdr e-13))) (let ((e-20 (car e-17))) (let ((e-21 (cdr e-17))) (let ((act-25 (let ((act-25 (set-box! arg-3 e-16))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-3 (vector-ref act-25 1))) (vector 0 e-3))) (else (let ((act-26 (let ((act-26 (set-box! arg-4 e-20))) (vector 1 act-26)))) (case (vector-ref act-26 0) ((0) (let ((e-3 (vector-ref act-26 1))) (vector 0 e-3))) (else (let ((act-27 (let ((act-27 (set-box! arg-2 e-21))) (vector 1 act-27)))) (case (vector-ref act-27 0) ((0) (let ((e-3 (vector-ref act-27 1))) (vector 0 e-3))) (else (let ((act-28 (let ((act-28 (set-box! arg-1 e-12))) (vector 1 act-28)))) (case (vector-ref act-28 0) ((0) (let ((e-3 (vector-ref act-28 1))) (vector 0 e-3))) (else (let ((act-29 (CoreC-45Context-commit arg-1 eta-0))) (case (vector-ref act-29 0) ((0) (let ((e-3 (vector-ref act-29 1))) (vector 0 e-3))) (else (vector 1 e-8)))))))))))))))))))))))))) (else (let ((e-6 (vector-ref sc2 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (TTImpC-45ElabC-45Check-n--12451-9928-u--altError arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (DataC-45Either-lefts e-5) e-6) eta-0)))))))))) (let ((e-1 (car arg-8))) (let ((e-2 (cdr arg-8))) (if (null? e-1) (lambda (eta-0) (let ((act-24 (TTImpC-45ElabC-45Check-successful arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-8 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref act-24 1))) (let ((sc3 (TTImpC-45ElabC-45Check-n--12451-9924-u--getRight arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5))) (case (vector-ref sc3 0) ((1) (let ((e-3 (vector-ref sc3 1))) (let ((e-8 (car e-3))) (let ((e-9 (cdr e-3))) (let ((e-12 (car e-9))) (let ((e-13 (cdr e-9))) (let ((e-16 (car e-13))) (let ((e-17 (cdr e-13))) (let ((e-20 (car e-17))) (let ((e-21 (cdr e-17))) (let ((act-25 (let ((act-25 (set-box! arg-3 e-16))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((act-26 (let ((act-26 (set-box! arg-4 e-20))) (vector 1 act-26)))) (case (vector-ref act-26 0) ((0) (let ((e-4 (vector-ref act-26 1))) (vector 0 e-4))) (else (let ((act-27 (let ((act-27 (set-box! arg-2 e-21))) (vector 1 act-27)))) (case (vector-ref act-27 0) ((0) (let ((e-4 (vector-ref act-27 1))) (vector 0 e-4))) (else (let ((act-28 (let ((act-28 (set-box! arg-1 e-12))) (vector 1 act-28)))) (case (vector-ref act-28 0) ((0) (let ((e-4 (vector-ref act-28 1))) (vector 0 e-4))) (else (let ((act-29 (CoreC-45Context-commit arg-1 eta-0))) (case (vector-ref act-29 0) ((0) (let ((e-4 (vector-ref act-29 1))) (vector 0 e-4))) (else (vector 1 e-8)))))))))))))))))))))))))) (else (let ((e-6 (vector-ref sc3 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (TTImpC-45ElabC-45Check-n--12451-9928-u--altError arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (DataC-45Either-lefts e-5) e-6) eta-0)))))))))) (let ((e-6 (cdr e-1))) (if (null? e-2) e-6 (lambda (eta-0) (let ((act-24 (TTImpC-45ElabC-45Check-successful arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-8 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref act-24 1))) (let ((sc4 (TTImpC-45ElabC-45Check-n--12451-9924-u--getRight arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-7))) (case (vector-ref sc4 0) ((1) (let ((e-3 (vector-ref sc4 1))) (let ((e-8 (car e-3))) (let ((e-9 (cdr e-3))) (let ((e-12 (car e-9))) (let ((e-13 (cdr e-9))) (let ((e-16 (car e-13))) (let ((e-17 (cdr e-13))) (let ((e-20 (car e-17))) (let ((e-21 (cdr e-17))) (let ((act-25 (let ((act-25 (set-box! arg-3 e-16))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((act-26 (let ((act-26 (set-box! arg-4 e-20))) (vector 1 act-26)))) (case (vector-ref act-26 0) ((0) (let ((e-4 (vector-ref act-26 1))) (vector 0 e-4))) (else (let ((act-27 (let ((act-27 (set-box! arg-2 e-21))) (vector 1 act-27)))) (case (vector-ref act-27 0) ((0) (let ((e-4 (vector-ref act-27 1))) (vector 0 e-4))) (else (let ((act-28 (let ((act-28 (set-box! arg-1 e-12))) (vector 1 act-28)))) (case (vector-ref act-28 0) ((0) (let ((e-4 (vector-ref act-28 1))) (vector 0 e-4))) (else (let ((act-29 (CoreC-45Context-commit arg-1 eta-0))) (case (vector-ref act-29 0) ((0) (let ((e-4 (vector-ref act-29 1))) (vector 0 e-4))) (else (vector 1 e-8)))))))))))))))))))))))))) (else (let ((e-8 (vector-ref sc4 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (TTImpC-45ElabC-45Check-n--12451-9928-u--altError arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (DataC-45Either-lefts e-7) e-8) eta-0)))))))))))))))))) +(define TTImpC-45ElabC-45Check-convertWithLazy (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((u--umode (let ((e-0 (vector-ref arg-6 0))) (case (vector-ref e-0 0) ((1) (CoreC-45Unify-inLHS))(else (CoreC-45Unify-inTerm)))))) (lambda (eta-0) (CoreC-45Core-u--catch_Catchable_Core_Error (lambda (eta-1) (let ((act-24 (CoreC-45Context-isLazyActive arg-1 eta-1))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((u--lazy (cond ((equal? e-5 1) arg-4) (else 0)))) (let ((act-25 (CoreC-45Normalise-logGlueNF arg-0 arg-1 "elab.unify" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Unifying " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Bool arg-4) (PreludeC-45TypesC-45String-C-43C-43 " " (TTImpC-45ElabC-45Check-u--show_Show_ElabMode (let ((e-0 (vector-ref arg-6 0))) e-0)))))) arg-7 arg-8 eta-1))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45Normalise-logGlueNF arg-0 arg-1 "elab.unify" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "....with") arg-7 arg-9 eta-1))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((act-27 (let ((sc3 (let ((sc4 (CoreC-45Normalise-isFromTerm arg-8))) (cond ((equal? sc4 1) (CoreC-45Normalise-isFromTerm arg-9)) (else 0))))) (cond ((equal? sc3 1) (let ((act-27 ((CoreC-45Normalise-getTerm arg-8) eta-1))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (let ((act-28 ((CoreC-45Normalise-getTerm arg-9) eta-1))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-28 1))) (cond ((equal? u--lazy 1) ((((CoreC-45Unify-unifyWithLazy (cons (lambda (u--vars) (lambda (arg-6180) (lambda (arg-6183) (lambda (arg-6186) (lambda (arg-6187) (lambda (arg-6188) (lambda (arg-6190) (lambda (arg-6193) (lambda (eta-2) (CoreC-45Unify-u--unifyD_Unify_Term u--vars arg-6180 arg-6183 arg-6186 arg-6187 arg-6188 arg-6190 arg-6193 eta-2)))))))))) (lambda (u--vars) (lambda (arg-6195) (lambda (arg-6198) (lambda (arg-6201) (lambda (arg-6202) (lambda (arg-6203) (lambda (arg-6205) (lambda (arg-6206) (lambda (eta-2) (CoreC-45Unify-u--unifyWithLazyD_Unify_Term u--vars arg-6195 arg-6198 arg-6201 arg-6202 arg-6203 arg-6205 arg-6206 eta-2))))))))))) arg-0 arg-1 arg-2 u--umode arg-5 arg-7) e-8) e-9) eta-1)) (else ((((CoreC-45Unify-unify (cons (lambda (u--vars) (lambda (arg-6180) (lambda (arg-6183) (lambda (arg-6186) (lambda (arg-6187) (lambda (arg-6188) (lambda (arg-6190) (lambda (arg-6193) (lambda (eta-2) (CoreC-45Unify-u--unifyD_Unify_Term u--vars arg-6180 arg-6183 arg-6186 arg-6187 arg-6188 arg-6190 arg-6193 eta-2)))))))))) (lambda (u--vars) (lambda (arg-6195) (lambda (arg-6198) (lambda (arg-6201) (lambda (arg-6202) (lambda (arg-6203) (lambda (arg-6205) (lambda (arg-6206) (lambda (eta-2) (CoreC-45Unify-u--unifyWithLazyD_Unify_Term u--vars arg-6195 arg-6198 arg-6201 arg-6202 arg-6203 arg-6205 arg-6206 eta-2))))))))))) arg-0 arg-1 arg-2 u--umode arg-5 arg-7) e-8) e-9) eta-1)))))))))))) (else (let ((act-27 ((CoreC-45Normalise-getNF arg-1 arg-8) eta-1))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (let ((act-28 ((CoreC-45Normalise-getNF arg-1 arg-9) eta-1))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-28 1))) (cond ((equal? u--lazy 1) ((((CoreC-45Unify-unifyWithLazy (cons (lambda (u--vars) (lambda (arg-6180) (lambda (arg-6183) (lambda (arg-6186) (lambda (arg-6187) (lambda (arg-6188) (lambda (arg-6190) (lambda (arg-6193) (CoreC-45Unify-u--unifyD_Unify_NF u--vars arg-6180 arg-6183 arg-6186 arg-6187 arg-6188 arg-6190 arg-6193))))))))) (lambda (u--vars) (lambda (arg-6195) (lambda (arg-6198) (lambda (arg-6201) (lambda (arg-6202) (lambda (arg-6203) (lambda (arg-6205) (lambda (arg-6206) (CoreC-45Unify-u--unifyWithLazyD_Unify_NF u--vars arg-6195 arg-6198 arg-6201 arg-6202 arg-6203 arg-6205 arg-6206)))))))))) arg-0 arg-1 arg-2 u--umode arg-5 arg-7) e-8) e-9) eta-1)) (else ((((CoreC-45Unify-unify (cons (lambda (u--vars) (lambda (arg-6180) (lambda (arg-6183) (lambda (arg-6186) (lambda (arg-6187) (lambda (arg-6188) (lambda (arg-6190) (lambda (arg-6193) (CoreC-45Unify-u--unifyD_Unify_NF u--vars arg-6180 arg-6183 arg-6186 arg-6187 arg-6188 arg-6190 arg-6193))))))))) (lambda (u--vars) (lambda (arg-6195) (lambda (arg-6198) (lambda (arg-6201) (lambda (arg-6202) (lambda (arg-6203) (lambda (arg-6205) (lambda (arg-6206) (CoreC-45Unify-u--unifyWithLazyD_Unify_NF u--vars arg-6195 arg-6198 arg-6201 arg-6202 arg-6203 arg-6205 arg-6206)))))))))) arg-0 arg-1 arg-2 u--umode arg-5 arg-7) e-8) e-9) eta-1)))))))))))))))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (let ((act-28 (let ((sc4 (let ((e-1 (vector-ref e-8 1))) e-1))) (cond ((equal? sc4 1) (CoreC-45Unify-solveConstraints arg-1 arg-2 u--umode 0 eta-1)) (else (vector 1 0)))))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (vector 1 e-8)))))))))))))))))))) (lambda (u--err) (lambda (eta-1) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 ((CoreC-45Normalise-getTerm arg-8) eta-1))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 ((CoreC-45Normalise-getTerm arg-9) eta-1))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (CoreC-45Core-u--catch_Catchable_Core_Error (lambda (eta-2) (CoreC-45Unify-solveConstraints arg-1 arg-2 u--umode 0 eta-2)) (lambda (err-0) (lambda (eta-2) (vector 1 0))) eta-1))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((act-28 (let ((act-28 (unbox arg-1))) (vector 1 act-28)))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((act-29 (CoreC-45Normalise-normaliseErr arg-1 (vector 5 arg-0 arg-5 arg-7 e-6 e-7 u--err) eta-1))) (case (vector-ref act-29 0) ((0) (let ((e-2 (vector-ref act-29 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref act-29 1))) (CoreC-45Core-u--throw_Catchable_Core_Error e-10 eta-1)))))))))))))))))))))))) eta-0))))) +(define TTImpC-45ElabC-45Check-convert (lambda (arg-0 arg-1 arg-2 arg-3 ext-0 ext-1 ext-2 ext-3 ext-4) (TTImpC-45ElabC-45Check-convertWithLazy arg-0 arg-1 arg-2 arg-3 0 ext-0 ext-1 ext-2 ext-3 ext-4))) +(define TTImpC-45ElabC-45Check-concrete (lambda (arg-1 arg-2 arg-3 ext-0) (case (vector-ref arg-3 0) ((0) (let ((e-1 (vector-ref arg-3 1))) (let ((e-3 (vector-ref arg-3 3))) (let ((e-4 (vector-ref arg-3 4))) (case (vector-ref e-3 0) ((2) (let ((act-24 (((e-4 arg-1) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) arg-2 (vector 10 e-1 0))) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (TTImpC-45ElabC-45Check-concrete arg-1 arg-2 e-5 ext-0))))))(else (vector 1 0))))))) ((2) (vector 1 1)) ((3) (vector 1 1)) ((8) (vector 1 1)) ((10) (vector 1 1))(else (vector 1 0))))) +(define TTImpC-45ElabC-45Check-clearToBind (lambda (arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (set-box! arg-1 (let ((sc1 (TTImpC-45ElabC-45Check-clearBindIfUnsolved e-5))) (let ((e-1 (vector-ref sc1 0))) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((e-4 (vector-ref sc1 3))) (let ((e-15 (vector-ref sc1 4))) (let ((e-6 (vector-ref sc1 5))) (let ((e-7 (vector-ref sc1 6))) (let ((e-8 (vector-ref sc1 7))) (let ((e-9 (vector-ref sc1 8))) (let ((e-10 (vector-ref sc1 9))) (let ((e-11 (vector-ref sc1 10))) (let ((e-12 (vector-ref sc1 11))) (let ((e-13 (vector-ref sc1 12))) (let ((e-14 (vector-ref sc1 13))) (vector e-1 e-2 e-3 e-4 e-15 (DataC-45List-filter (lambda (u--x) (PreludeC-45Types-elem (cons (lambda (arg-3) (lambda (arg-4) (CoreC-45Name-u--C-61C-61_Eq_Name arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (CoreC-45Name-u--C-47C-61_Eq_Name arg-4 arg-5)))) (Builtin-fst u--x) arg-2)) e-6) e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14))))))))))))))))))) (vector 1 act-25)))))))) +(define TTImpC-45ElabC-45Check-clearBindIfUnsolved (lambda (ext-0) (let ((e-1 (vector-ref ext-0 0))) (let ((e-2 (vector-ref ext-0 1))) (let ((e-3 (vector-ref ext-0 2))) (let ((e-4 (vector-ref ext-0 3))) (let ((e-5 (vector-ref ext-0 4))) (let ((e-6 (vector-ref ext-0 5))) (let ((e-8 (vector-ref ext-0 7))) (let ((e-9 (vector-ref ext-0 8))) (let ((e-10 (vector-ref ext-0 9))) (let ((e-11 (vector-ref ext-0 10))) (let ((e-12 (vector-ref ext-0 11))) (let ((e-13 (vector-ref ext-0 12))) (let ((e-14 (vector-ref ext-0 13))) (vector e-1 e-2 e-3 e-4 e-5 e-6 '() e-8 e-9 e-10 e-11 e-12 e-13 e-14)))))))))))))))) +(define TTImpC-45ElabC-45Check-checkExp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 ext-0) (if (null? arg-10) (vector 1 (cons arg-8 arg-9)) (let ((e-1 (unbox arg-10))) (let ((act-24 ((TTImpC-45ElabC-45Check-convertWithLazy arg-0 arg-1 arg-2 arg-3 1 arg-7 arg-5 arg-6 arg-9 e-1) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) ((TTImpC-45ElabC-45Check-case--checkExp-10920 arg-0 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 (let ((e-0 (vector-ref e-5 0))) e-0)) ext-0))))))))) +(define TTImpC-45ElabC-45Check-bindingType (lambda (arg-1) (case (vector-ref arg-1 0) ((0) (let ((e-4 (vector-ref arg-1 5))) e-4)) (else (let ((e-9 (vector-ref arg-1 5))) e-9))))) +(define TTImpC-45ElabC-45Check-bindingTerm (lambda (arg-1) (case (vector-ref arg-1 0) ((0) (let ((e-3 (vector-ref arg-1 4))) e-3)) (else (let ((e-8 (vector-ref arg-1 4))) e-8))))) +(define TTImpC-45ElabC-45Check-bindingRig (lambda (arg-1) (case (vector-ref arg-1 0) ((0) (let ((e-1 (vector-ref arg-1 2))) e-1)) (else (let ((e-6 (vector-ref arg-1 2))) e-6))))) +(define TTImpC-45ElabC-45Check-bindingMetas (lambda (arg-1) (case (vector-ref arg-1 0) ((0) (let ((e-4 (vector-ref arg-1 5))) (CoreC-45TT-getMetas e-4))) (else (let ((e-5 (vector-ref arg-1 1))) (let ((e-6 (vector-ref arg-1 2))) (let ((e-7 (vector-ref arg-1 3))) (let ((e-8 (vector-ref arg-1 4))) (let ((e-9 (vector-ref arg-1 5))) (let ((e-10 (vector-ref arg-1 6))) (TTImpC-45ElabC-45Check-n--7673-5619-u--insertAll e-5 e-10 e-9 e-8 e-7 e-6 (LibrariesC-45DataC-45NameMap-toList (CoreC-45TT-getMetas e-9)) (CoreC-45TT-getMetas e-10)))))))))))) +(define TTImpC-45ElabC-45Check-argVar (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (CoreC-45UnifyState-newMetaLets arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (vector 7 (CoreC-45Env-length arg-5) (CoreC-45Context-holeInit 0)) 0 1))) +(define TTImpC-45ElabC-45Check-anyOne (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (if (null? arg-6) (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-5 "No elaborators provided") eta-0)) (let ((e-2 (car arg-6))) (let ((e-3 (cdr arg-6))) (let ((e-7 (cdr e-2))) (if (null? e-3) e-7 (lambda (eta-0) (TTImpC-45ElabC-45Check-try arg-0 arg-1 arg-2 arg-3 arg-4 e-7 (TTImpC-45ElabC-45Check-anyOne arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3) eta-0))))))))) +(define TTImpC-45ElabC-45Check-addBindIfUnsolved (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((e-1 (vector-ref arg-7 0))) (let ((e-2 (vector-ref arg-7 1))) (let ((e-3 (vector-ref arg-7 2))) (let ((e-4 (vector-ref arg-7 3))) (let ((e-5 (vector-ref arg-7 4))) (let ((e-6 (vector-ref arg-7 5))) (let ((e-7 (vector-ref arg-7 6))) (let ((e-8 (vector-ref arg-7 7))) (let ((e-9 (vector-ref arg-7 8))) (let ((e-10 (vector-ref arg-7 9))) (let ((e-11 (vector-ref arg-7 10))) (let ((e-12 (vector-ref arg-7 11))) (let ((e-13 (vector-ref arg-7 12))) (let ((e-14 (vector-ref arg-7 13))) (vector e-1 e-2 e-3 e-4 e-5 e-6 (let ((u--st (vector e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14))) (cons (cons arg-1 (cons arg-2 (cons arg-0 (cons arg-4 (cons arg-3 (cons arg-5 (cons arg-6 (let ((e-25 (vector-ref u--st 3))) e-25)))))))) e-7)) e-8 e-9 e-10 e-11 e-12 e-13 e-14))))))))))))))))) +(define CoreC-45Unify-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32retryGuess-20212 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (if (null? arg-16) (let ((u--gdef (let ((e-0 (vector-ref arg-8 0))) (let ((e-1 (vector-ref arg-8 1))) (let ((e-2 (vector-ref arg-8 2))) (let ((e-3 (vector-ref arg-8 3))) (let ((e-4 (vector-ref arg-8 4))) (let ((e-5 (vector-ref arg-8 5))) (let ((e-6 (vector-ref arg-8 6))) (let ((e-7 (vector-ref arg-8 7))) (let ((e-8 (vector-ref arg-8 8))) (let ((e-9 (vector-ref arg-8 9))) (let ((e-10 (vector-ref arg-8 10))) (let ((e-11 (vector-ref arg-8 11))) (let ((e-12 (vector-ref arg-8 12))) (let ((e-13 (vector-ref arg-8 13))) (let ((e-14 (vector-ref arg-8 14))) (let ((e-15 (vector-ref arg-8 15))) (let ((e-16 (vector-ref arg-8 16))) (let ((e-18 (vector-ref arg-8 18))) (let ((e-19 (vector-ref arg-8 19))) (let ((e-20 (vector-ref arg-8 20))) (vector e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 (vector 1 (cons '() 1) '() (vector 1 0 arg-12) (vector 1 0 arg-12) '()) e-18 e-19 e-20))))))))))))))))))))))) (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-logTerm '() arg-6 "unify.retry" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Resolved " (CoreC-45Name-u--show_Show_Name arg-2))) arg-12 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (case (vector-ref eta-1 0) ((0) (let ((e-2 (vector-ref eta-1 1))) (vector 0 e-2))) (else (vector 1 0)))) (lambda (eta-1) (CoreC-45Context-addDef arg-6 (vector 9 arg-0) u--gdef eta-1)) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45UnifyState-removeGuess arg-5 arg-0 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (vector 1 (let ((e-1 (vector-ref arg-15 1))) e-1))))))))))))) (let ((u--gdef (let ((e-0 (vector-ref arg-8 0))) (let ((e-1 (vector-ref arg-8 1))) (let ((e-2 (vector-ref arg-8 2))) (let ((e-3 (vector-ref arg-8 3))) (let ((e-4 (vector-ref arg-8 4))) (let ((e-5 (vector-ref arg-8 5))) (let ((e-6 (vector-ref arg-8 6))) (let ((e-7 (vector-ref arg-8 7))) (let ((e-8 (vector-ref arg-8 8))) (let ((e-9 (vector-ref arg-8 9))) (let ((e-10 (vector-ref arg-8 10))) (let ((e-11 (vector-ref arg-8 11))) (let ((e-12 (vector-ref arg-8 12))) (let ((e-13 (vector-ref arg-8 13))) (let ((e-14 (vector-ref arg-8 14))) (let ((e-15 (vector-ref arg-8 15))) (let ((e-16 (vector-ref arg-8 16))) (let ((e-18 (vector-ref arg-8 18))) (let ((e-19 (vector-ref arg-8 19))) (let ((e-20 (vector-ref arg-8 20))) (vector e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 (vector 9 arg-12 arg-11 arg-16) e-18 e-19 e-20))))))))))))))))))))))) (lambda (eta-0) (let ((act-24 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (case (vector-ref eta-1 0) ((0) (let ((e-2 (vector-ref eta-1 1))) (vector 0 e-2))) (else (vector 1 0)))) (lambda (eta-1) (CoreC-45Context-addDef arg-6 (vector 9 arg-0) u--gdef eta-1)) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (vector 1 0))))))))) +(define CoreC-45Unify-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32retryGuess-19615 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 ext-0) (if (null? arg-15) (let ((act-24 (let ((e-3 (vector-ref arg-14 3))) (case (vector-ref e-3 0) ((0) (vector 1 arg-12)) ((1) (let ((e-4 (vector-ref e-3 1))) (vector 1 (CoreC-45Unify-forceMeta e-4 arg-11 arg-12)))) (else (let ((e-4 (vector-ref e-3 1))) (let ((act-24 ((CoreC-45GetType-getType '() arg-6 '() arg-12) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45ContextC-45Log-logTerm '() arg-6 "unify.retry" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Retry Delay") arg-12 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-6 (vector-ref act-25 1))) (vector 0 e-6))) (else (let ((act-26 ((CoreC-45Normalise-getTerm e-5) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-7 (vector-ref act-26 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (CoreC-45Unify-delayMeta '() e-4 arg-11 e-7 arg-12))))))))))))))))))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((u--gdef (let ((e-0 (vector-ref arg-8 0))) (let ((e-1 (vector-ref arg-8 1))) (let ((e-2 (vector-ref arg-8 2))) (let ((e-3 (vector-ref arg-8 3))) (let ((e-4 (vector-ref arg-8 4))) (let ((e-21 (vector-ref arg-8 5))) (let ((e-6 (vector-ref arg-8 6))) (let ((e-7 (vector-ref arg-8 7))) (let ((e-8 (vector-ref arg-8 8))) (let ((e-9 (vector-ref arg-8 9))) (let ((e-10 (vector-ref arg-8 10))) (let ((e-11 (vector-ref arg-8 11))) (let ((e-12 (vector-ref arg-8 12))) (let ((e-13 (vector-ref arg-8 13))) (let ((e-14 (vector-ref arg-8 14))) (let ((e-15 (vector-ref arg-8 15))) (let ((e-16 (vector-ref arg-8 16))) (let ((e-18 (vector-ref arg-8 18))) (let ((e-19 (vector-ref arg-8 19))) (let ((e-20 (vector-ref arg-8 20))) (vector e-0 e-1 e-2 e-3 e-4 e-21 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 (vector 1 (cons '() 1) '() (vector 1 0 e-5) (vector 1 0 e-5) '()) e-18 e-19 e-20))))))))))))))))))))))) (let ((act-25 (CoreC-45ContextC-45Log-logTerm '() arg-6 "unify.retry" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Resolved " (CoreC-45Name-u--show_Show_Name arg-2))) e-5 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-2 (vector-ref eta-0 1))) (vector 0 e-2))) (else (vector 1 0)))) (lambda (eta-0) (CoreC-45Context-addDef arg-6 (vector 9 arg-0) u--gdef eta-0)) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((act-27 (CoreC-45UnifyState-removeGuess arg-5 arg-0 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (vector 1 (let ((e-1 (vector-ref arg-14 1))) e-1)))))))))))))))) (let ((act-24 (let ((e-3 (vector-ref arg-14 3))) (case (vector-ref e-3 0) ((0) (vector 1 arg-12)) ((1) (let ((e-4 (vector-ref e-3 1))) (vector 1 (CoreC-45Unify-forceMeta e-4 arg-11 arg-12)))) (else (let ((e-4 (vector-ref e-3 1))) (let ((act-24 ((CoreC-45GetType-getType '() arg-6 '() arg-12) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45ContextC-45Log-logTerm '() arg-6 "unify.retry" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Retry Delay (constrained)") arg-12 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-6 (vector-ref act-25 1))) (vector 0 e-6))) (else (let ((act-26 ((CoreC-45Normalise-getTerm e-5) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-7 (vector-ref act-26 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (CoreC-45Unify-delayMeta '() e-4 arg-11 e-7 arg-12))))))))))))))))))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((u--gdef (let ((e-0 (vector-ref arg-8 0))) (let ((e-1 (vector-ref arg-8 1))) (let ((e-2 (vector-ref arg-8 2))) (let ((e-3 (vector-ref arg-8 3))) (let ((e-4 (vector-ref arg-8 4))) (let ((e-21 (vector-ref arg-8 5))) (let ((e-6 (vector-ref arg-8 6))) (let ((e-7 (vector-ref arg-8 7))) (let ((e-8 (vector-ref arg-8 8))) (let ((e-9 (vector-ref arg-8 9))) (let ((e-10 (vector-ref arg-8 10))) (let ((e-11 (vector-ref arg-8 11))) (let ((e-12 (vector-ref arg-8 12))) (let ((e-13 (vector-ref arg-8 13))) (let ((e-14 (vector-ref arg-8 14))) (let ((e-15 (vector-ref arg-8 15))) (let ((e-16 (vector-ref arg-8 16))) (let ((e-18 (vector-ref arg-8 18))) (let ((e-19 (vector-ref arg-8 19))) (let ((e-20 (vector-ref arg-8 20))) (vector e-0 e-1 e-2 e-3 e-4 e-21 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 (vector 9 e-5 arg-11 arg-15) e-18 e-19 e-20))))))))))))))))))))))) (let ((act-25 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-2 (vector-ref eta-0 1))) (vector 0 e-2))) (else (vector 1 0)))) (lambda (eta-0) (CoreC-45Context-addDef arg-6 (vector 9 arg-0) u--gdef eta-0)) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (vector 1 0)))))))))))) +(define CoreC-45Unify-case--caseC-32blockC-32inC-32retryGuess-19188 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (case (vector-ref arg-10 0) ((8) (let ((e-0 (vector-ref arg-10 1))) (let ((e-1 (vector-ref arg-10 2))) (let ((e-2 (vector-ref arg-10 3))) (lambda (eta-0) (CoreC-45UnifyState-handleUnify arg-6 arg-5 (lambda (eta-1) (let ((act-24 (CoreC-45Unify-search '() arg-6 arg-5 arg-1 e-0 (CoreC-45Unify-u--C-61C-61_Eq_SolveMode arg-3 1) e-1 e-2 (let ((e-21 (vector-ref arg-8 2))) e-21) '() eta-1))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref act-24 1))) (let ((u--gdef (let ((e-24 (vector-ref arg-8 0))) (let ((e-23 (vector-ref arg-8 1))) (let ((e-22 (vector-ref arg-8 2))) (let ((e-3 (vector-ref arg-8 3))) (let ((e-4 (vector-ref arg-8 4))) (let ((e-21 (vector-ref arg-8 5))) (let ((e-6 (vector-ref arg-8 6))) (let ((e-7 (vector-ref arg-8 7))) (let ((e-8 (vector-ref arg-8 8))) (let ((e-9 (vector-ref arg-8 9))) (let ((e-10 (vector-ref arg-8 10))) (let ((e-11 (vector-ref arg-8 11))) (let ((e-12 (vector-ref arg-8 12))) (let ((e-13 (vector-ref arg-8 13))) (let ((e-14 (vector-ref arg-8 14))) (let ((e-15 (vector-ref arg-8 15))) (let ((e-16 (vector-ref arg-8 16))) (let ((e-18 (vector-ref arg-8 18))) (let ((e-19 (vector-ref arg-8 19))) (let ((e-20 (vector-ref arg-8 20))) (vector e-24 e-23 e-22 e-3 e-4 e-21 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 (vector 1 (CoreC-45Context-defaultPI) '() (vector 1 0 e-5) (vector 1 0 e-5) '()) e-18 e-19 e-20))))))))))))))))))))))) (let ((act-25 (CoreC-45Normalise-logTermNF '() arg-6 "unify.retry" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Solved " (CoreC-45Name-u--show_Show_Name arg-2))) '() e-5 eta-1))) (case (vector-ref act-25 0) ((0) (let ((e-3 (vector-ref act-25 1))) (vector 0 e-3))) (else (let ((act-26 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-2) (case (vector-ref eta-2 0) ((0) (let ((e-3 (vector-ref eta-2 1))) (vector 0 e-3))) (else (vector 1 0)))) (lambda (eta-2) (CoreC-45Context-addDef arg-6 (vector 9 arg-0) u--gdef eta-2)) eta-1))) (case (vector-ref act-26 0) ((0) (let ((e-3 (vector-ref act-26 1))) (vector 0 e-3))) (else (let ((act-27 (CoreC-45UnifyState-removeGuess arg-5 arg-0 eta-1))) (case (vector-ref act-27 0) ((0) (let ((e-3 (vector-ref act-27 1))) (vector 0 e-3))) (else (vector 1 1)))))))))))))))) (lambda (lcase-0) (lambda (clam-0) (case (vector-ref lcase-0 0) ((30) (let ((e-6 (vector-ref lcase-0 3))) (let ((e-3 (vector-ref lcase-0 4))) (let ((act-24 (CoreC-45ContextC-45Log-logTerm '() arg-6 "unify.retry" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Failed (det " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name arg-2) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-6) ")"))))) (let ((e-27 (vector-ref arg-8 2))) e-27) clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-9 (vector-ref act-24 1))) (vector 0 e-9))) (else (let ((act-25 (CoreC-45Unify-setInvertible arg-6 arg-1 (vector 9 e-3) clam-0))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (vector 1 0))))))))))(else (let ((act-24 (CoreC-45Normalise-logTermNF '() arg-6 "unify.retry" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Search failed at " (PreludeC-45TypesC-45String-C-43C-43 (AlgebraC-45ZeroOneOmega-u--show_Show_ZeroOneOmega e-0) (PreludeC-45TypesC-45String-C-43C-43 " for " (CoreC-45Name-u--show_Show_Name arg-2))))) '() (let ((e-21 (vector-ref arg-8 2))) e-21) clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (cond ((equal? arg-3 3) (let ((act-25 (CoreC-45Normalise-normaliseErr arg-6 lcase-0 clam-0))) (case (vector-ref act-25 0) ((0) (let ((e-3 (vector-ref act-25 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref act-25 1))) (CoreC-45Core-u--throw_Catchable_Core_Error e-6 clam-0))))))(else (vector 1 0)))))))))) eta-0)))))) ((9) (let ((e-3 (vector-ref arg-10 1))) (let ((e-4 (vector-ref arg-10 2))) (let ((e-5 (vector-ref arg-10 3))) (if (null? e-5) (let ((u--umode (cond ((equal? arg-3 2) (CoreC-45Unify-inMatch))(else arg-4)))) (lambda (eta-0) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-1) (lambda (eta-2) (CoreC-45Unify-retry arg-6 arg-5 u--umode eta-1 eta-2))) e-5 '() eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-24 1))) (let ((u--csAll (CoreC-45Unify-unionAll e-6))) ((CoreC-45Unify-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32retryGuess-20212 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-5 e-4 e-3 u--umode e-6 u--csAll (let ((e-0 (vector-ref u--csAll 0))) e-0)) eta-0)))))))) (let ((e-7 (car e-5))) (let ((e-8 (cdr e-5))) (if (null? e-8) (let ((u--umode (cond ((equal? arg-3 2) (CoreC-45Unify-inMatch))(else arg-4)))) (lambda (eta-0) (let ((act-24 (CoreC-45Unify-retry arg-6 arg-5 u--umode e-7 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-24 1))) (CoreC-45Unify-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32retryGuess-19615 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-7 e-4 e-3 u--umode e-6 (let ((e-0 (vector-ref e-6 0))) e-0) eta-0))))))) (let ((u--umode (cond ((equal? arg-3 2) (CoreC-45Unify-inMatch))(else arg-4)))) (lambda (eta-0) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-1) (lambda (eta-2) (CoreC-45Unify-retry arg-6 arg-5 u--umode eta-1 eta-2))) e-5 '() eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-24 1))) (let ((u--csAll (CoreC-45Unify-unionAll e-6))) ((CoreC-45Unify-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32retryGuess-20212 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-5 e-4 e-3 u--umode e-6 u--csAll (let ((e-0 (vector-ref u--csAll 0))) e-0)) eta-0))))))))))))))))(else (lambda (eta-0) (vector 1 0)))))) +(define CoreC-45Unify-case--retry-18601 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (if (null? arg-5) (vector 1 (CoreC-45Unify-success)) (let ((e-2 (unbox arg-5))) (case (vector-ref e-2 0) ((2) (vector 1 (CoreC-45Unify-success))) ((0) (let ((e-3 (vector-ref e-2 1))) (let ((e-4 (vector-ref e-2 2))) (let ((e-5 (vector-ref e-2 3))) (let ((e-6 (vector-ref e-2 4))) (let ((e-7 (vector-ref e-2 5))) (let ((e-8 (vector-ref e-2 6))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-9 (vector-ref act-24 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Normalise-continueNF arg-0 e-3 e-9 e-6 e-7) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (let ((act-26 ((CoreC-45Normalise-continueNF arg-0 e-3 e-9 e-6 e-8) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-11 (vector-ref act-26 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-26 1))) (CoreC-45Core-u--catch_Catchable_Core_Error (lambda (eta-0) (let ((act-27 (CoreC-45Normalise-logNF e-3 arg-0 "unify.retry" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Retrying " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Int arg-1) (PreludeC-45TypesC-45String-C-43C-43 " " (CoreC-45Unify-u--show_Show_UnifyMode (let ((e-1 (cdr arg-2))) e-1)))))) e-6 e-10 eta-0))) (case (vector-ref act-27 0) ((0) (let ((e-12 (vector-ref act-27 1))) (vector 0 e-12))) (else (let ((act-28 (CoreC-45Normalise-logNF e-3 arg-0 "unify.retry" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "....with") e-6 e-11 eta-0))) (case (vector-ref act-28 0) ((0) (let ((e-13 (vector-ref act-28 1))) (vector 0 e-13))) (else (let ((act-29 (CoreC-45ContextC-45Log-log arg-0 "unify.retry" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (cond ((equal? e-5 1) (lambda () "(lazy allowed)")) (else (lambda () "(no lazy)"))) eta-0))) (case (vector-ref act-29 0) ((0) (let ((e-14 (vector-ref act-29 1))) (vector 0 e-14))) (else (let ((act-30 (cond ((equal? e-5 1) ((((CoreC-45Unify-unifyWithLazy (cons (lambda (u--vars) (lambda (arg-6180) (lambda (arg-6183) (lambda (arg-6186) (lambda (arg-6187) (lambda (arg-6188) (lambda (arg-6190) (lambda (arg-6193) (CoreC-45Unify-u--unifyD_Unify_NF u--vars arg-6180 arg-6183 arg-6186 arg-6187 arg-6188 arg-6190 arg-6193))))))))) (lambda (u--vars) (lambda (arg-6195) (lambda (arg-6198) (lambda (arg-6201) (lambda (arg-6202) (lambda (arg-6203) (lambda (arg-6205) (lambda (arg-6206) (CoreC-45Unify-u--unifyWithLazyD_Unify_NF u--vars arg-6195 arg-6198 arg-6201 arg-6202 arg-6203 arg-6205 arg-6206)))))))))) e-3 arg-0 arg-3 arg-2 e-4 e-6) e-10) e-11) eta-0)) (else ((((CoreC-45Unify-unify (cons (lambda (u--vars) (lambda (arg-6180) (lambda (arg-6183) (lambda (arg-6186) (lambda (arg-6187) (lambda (arg-6188) (lambda (arg-6190) (lambda (arg-6193) (CoreC-45Unify-u--unifyD_Unify_NF u--vars arg-6180 arg-6183 arg-6186 arg-6187 arg-6188 arg-6190 arg-6193))))))))) (lambda (u--vars) (lambda (arg-6195) (lambda (arg-6198) (lambda (arg-6201) (lambda (arg-6202) (lambda (arg-6203) (lambda (arg-6205) (lambda (arg-6206) (CoreC-45Unify-u--unifyWithLazyD_Unify_NF u--vars arg-6195 arg-6198 arg-6201 arg-6202 arg-6203 arg-6205 arg-6206)))))))))) e-3 arg-0 arg-3 (CoreC-45Unify-lower arg-2) e-4 e-6) e-10) e-11) eta-0))))) (case (vector-ref act-30 0) ((0) (let ((e-15 (vector-ref act-30 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref act-30 1))) (let ((e-0 (vector-ref e-15 0))) (if (null? e-0) (let ((act-31 (CoreC-45ContextC-45Log-log arg-0 "unify.retry" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Success " (CoreC-45Unify-u--show_Show_AddLazy (let ((e-18 (vector-ref e-15 3))) e-18)))) eta-0))) (case (vector-ref act-31 0) ((0) (let ((e-18 (vector-ref act-31 1))) (vector 0 e-18))) (else (let ((act-32 (CoreC-45UnifyState-deleteConstraint arg-3 arg-1 eta-0))) (case (vector-ref act-32 0) ((0) (let ((e-19 (vector-ref act-32 1))) (vector 0 e-19))) (else (vector 1 e-15))))))) (let ((act-31 (CoreC-45ContextC-45Log-log arg-0 "unify.retry" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Constraints " (CoreC-45Unify-u--show_Show_AddLazy (let ((e-18 (vector-ref e-15 3))) e-18)))) eta-0))) (case (vector-ref act-31 0) ((0) (let ((e-18 (vector-ref act-31 1))) (vector 0 e-18))) (else (vector 1 e-15)))))))))))))))))))) (lambda (u--err) (lambda (eta-0) (let ((act-27 (let ((act-27 (unbox arg-0))) (vector 1 act-27)))) (case (vector-ref act-27 0) ((0) (let ((e-12 (vector-ref act-27 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref act-27 1))) (let ((act-28 (CoreC-45Context-clearDefs e-12 eta-0))) (case (vector-ref act-28 0) ((0) (let ((e-13 (vector-ref act-28 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref act-28 1))) (let ((act-29 (CoreC-45Normalise-u--quote_Quote_NF arg-0 e-3 e-13 e-6 e-10 eta-0))) (case (vector-ref act-29 0) ((0) (let ((e-14 (vector-ref act-29 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref act-29 1))) (let ((act-30 (CoreC-45Normalise-u--quote_Quote_NF arg-0 e-3 e-13 e-6 e-11 eta-0))) (case (vector-ref act-30 0) ((0) (let ((e-15 (vector-ref act-30 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref act-30 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 5 e-3 e-4 e-6 e-14 e-15 u--err) eta-0))))))))))))))))))) ext-0)))))))))))))))))))) (else (let ((e-9 (vector-ref e-2 1))) (let ((e-10 (vector-ref e-2 2))) (let ((e-11 (vector-ref e-2 3))) (let ((e-12 (vector-ref e-2 4))) (let ((e-13 (vector-ref e-2 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-continueNF arg-0 e-9 e-5 e-11 eta-0)) e-12 '() ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-3 (vector-ref act-25 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-continueNF arg-0 e-9 e-5 e-11 eta-0)) e-13 '() ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-3 (vector-ref act-26 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 ((CoreC-45Unify-unifyArgs (cons (cons (lambda (u--vars) (lambda (arg-6180) (lambda (arg-6183) (lambda (arg-6186) (lambda (arg-6187) (lambda (arg-6188) (lambda (arg-6190) (lambda (arg-6193) (CoreC-45Unify-u--unifyD_Unify_NF u--vars arg-6180 arg-6183 arg-6186 arg-6187 arg-6188 arg-6190 arg-6193))))))))) (lambda (u--vars) (lambda (arg-6195) (lambda (arg-6198) (lambda (arg-6201) (lambda (arg-6202) (lambda (arg-6203) (lambda (arg-6205) (lambda (arg-6206) (CoreC-45Unify-u--unifyWithLazyD_Unify_NF u--vars arg-6195 arg-6198 arg-6201 arg-6202 arg-6203 arg-6205 arg-6206)))))))))) (cons (lambda (u--c) (lambda (u--vars) (lambda (arg-5827) (lambda (arg-5828) (lambda (arg-5830) (lambda (eta-0) (CoreC-45Normalise-u--quote_Quote_NF u--c u--vars arg-5827 arg-5828 arg-5830 eta-0))))))) (lambda (u--c) (lambda (u--vars) (lambda (arg-5836) (lambda (arg-5839) (lambda (arg-5840) (lambda (arg-5842) (lambda (eta-0) (CoreC-45Normalise-u--quoteGen_Quote_NF u--c u--vars arg-5836 arg-5839 arg-5840 arg-5842 eta-0)))))))))) e-9 arg-0 arg-3 arg-2 e-10 e-11 e-6 e-7) ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-3 (vector-ref act-27 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref act-27 1))) (let ((e-0 (vector-ref e-8 0))) (if (null? e-0) (let ((act-28 (CoreC-45UnifyState-deleteConstraint arg-3 arg-1 ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-14 (vector-ref act-28 1))) (vector 0 e-14))) (else (vector 1 e-8)))) (vector 1 e-8)))))))))))))))))))))))))))))) +(define CoreC-45Unify-case--caseC-32blockC-32inC-32unifyBothBinders-15580 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 ext-0) (if (null? arg-26) (let ((act-24 (((arg-12 arg-20) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) arg-15 (vector 1 arg-16 (vector 0 ) arg-24))) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (((arg-9 arg-20) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) arg-15 (vector 1 arg-16 (vector 0 ) arg-24))) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Normalise-u--quote_Quote_NF arg-19 arg-0 arg-21 arg-15 e-5 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (CoreC-45Normalise-u--quote_Quote_NF arg-19 arg-0 arg-21 arg-15 e-6 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) ((((CoreC-45Unify-unify (cons (lambda (u--vars) (lambda (arg-6180) (lambda (arg-6183) (lambda (arg-6186) (lambda (arg-6187) (lambda (arg-6188) (lambda (arg-6190) (lambda (arg-6193) (lambda (eta-0) (CoreC-45Unify-u--unifyD_Unify_Term u--vars arg-6180 arg-6183 arg-6186 arg-6187 arg-6188 arg-6190 arg-6193 eta-0)))))))))) (lambda (u--vars) (lambda (arg-6195) (lambda (arg-6198) (lambda (arg-6201) (lambda (arg-6202) (lambda (arg-6203) (lambda (arg-6205) (lambda (arg-6206) (lambda (eta-0) (CoreC-45Unify-u--unifyWithLazyD_Unify_Term u--vars arg-6195 arg-6198 arg-6201 arg-6202 arg-6203 arg-6205 arg-6206 eta-0))))))))))) (cons arg-13 arg-0) arg-19 arg-18 (CoreC-45Unify-lower arg-17) arg-16 arg-25) (CoreC-45TT-refsToLocals (vector 1 arg-13 arg-24 (vector 0 )) e-7)) (CoreC-45TT-refsToLocals (vector 1 arg-13 arg-24 (vector 0 )) e-8)) ext-0))))))))))))))))) (let ((act-24 (CoreC-45Normalise-u--quote_Quote_NF arg-19 arg-0 arg-21 arg-15 arg-1 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-19 arg-0 arg-21 arg-15 arg-5 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 ((CoreC-45UnifyState-newConstant arg-0 arg-18 arg-19 arg-16 (AlgebraC-45Semiring-erased (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))) arg-15 (vector 3 arg-14 arg-13 (vector 0 arg-8 arg-7 (vector 1 ) e-5) (vector 0 arg-14 '() 0)) (vector 3 arg-14 arg-13 (vector 2 arg-8 arg-7 (vector 1 ) e-5) (CoreC-45TT-u--weaken_Weaken_Term e-6)) arg-26) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (((arg-12 arg-20) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) arg-15 (vector 1 arg-16 (vector 0 ) arg-24))) ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (let ((act-28 (((arg-9 arg-20) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) arg-15 (vector 4 arg-16 e-7 (vector 1 arg-16 (vector 0 ) arg-24)))) ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-28 1))) (let ((act-29 (CoreC-45Normalise-u--quote_Quote_NF arg-19 arg-0 arg-21 arg-15 e-8 ext-0))) (case (vector-ref act-29 0) ((0) (let ((e-2 (vector-ref act-29 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref act-29 1))) (let ((act-30 (CoreC-45Normalise-u--quote_Quote_NF arg-19 arg-0 arg-21 arg-15 e-9 ext-0))) (case (vector-ref act-30 0) ((0) (let ((e-2 (vector-ref act-30 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref act-30 1))) (let ((act-31 ((((CoreC-45Unify-unify (cons (lambda (u--vars) (lambda (arg-6180) (lambda (arg-6183) (lambda (arg-6186) (lambda (arg-6187) (lambda (arg-6188) (lambda (arg-6190) (lambda (arg-6193) (lambda (eta-0) (CoreC-45Unify-u--unifyD_Unify_Term u--vars arg-6180 arg-6183 arg-6186 arg-6187 arg-6188 arg-6190 arg-6193 eta-0)))))))))) (lambda (u--vars) (lambda (arg-6195) (lambda (arg-6198) (lambda (arg-6201) (lambda (arg-6202) (lambda (arg-6203) (lambda (arg-6205) (lambda (arg-6206) (lambda (eta-0) (CoreC-45Unify-u--unifyWithLazyD_Unify_Term u--vars arg-6195 arg-6198 arg-6201 arg-6202 arg-6203 arg-6205 arg-6206 eta-0))))))))))) (cons arg-13 arg-0) arg-19 arg-18 (CoreC-45Unify-lower arg-17) arg-16 arg-25) (CoreC-45TT-refsToLocals (vector 1 arg-13 arg-24 (vector 0 )) e-10)) (CoreC-45TT-refsToLocals (vector 1 arg-13 arg-24 (vector 0 )) e-11)) ext-0))) (case (vector-ref act-31 0) ((0) (let ((e-2 (vector-ref act-31 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref act-31 1))) (vector 1 (CoreC-45Unify-union arg-23 e-12))))))))))))))))))))))))))))))))))))) +(define CoreC-45Unify-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32unifyHole-13065 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (case (vector-ref arg-22 0) ((7) (lambda (eta-0) (let ((act-24 (CoreC-45Normalise-u--quote_Quote_NF arg-12 arg-0 arg-14 arg-7 arg-1 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (let ((sc2 (CoreC-45Unify-tooBig 0 (let ((e-4 (vector-ref arg-13 4))) (let ((e-37 (vector-ref e-4 3))) (let ((e-42 (vector-ref e-37 5))) e-42))) '() e-5))) (cond ((equal? sc2 1) (CoreC-45Normalise-u--quote_Quote_NF arg-12 arg-0 arg-13 arg-7 arg-1 eta-0)) (else (vector 1 e-5)))))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Unify-occursCheck arg-0 arg-12 arg-8 arg-7 arg-9 arg-5 e-6 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (if (null? e-7) (CoreC-45Unify-postponeS arg-0 arg-12 arg-11 arg-10 arg-8 arg-9 "Occurs check failed" arg-7 (vector 1 arg-8 (vector 2 arg-5 arg-4 arg-3) (PreludeC-45Types-u--map_Functor_List (lambda (__infixTupleSection-0) (cons (vector 2 ) __infixTupleSection-0)) arg-2)) arg-1 eta-0) (let ((e-2 (unbox e-7))) (let ((sc5 (CoreC-45TT-shrinkTerm e-2 arg-18))) (if (null? sc5) (let ((act-27 (CoreC-45Normalise-u--quote_Quote_NF arg-12 arg-0 arg-13 arg-7 arg-1 eta-0))) (case (vector-ref act-27 0) ((0) (let ((e-3 (vector-ref act-27 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref act-27 1))) (let ((sc7 (CoreC-45TT-shrinkTerm e-8 arg-18))) (if (null? sc7) (CoreC-45Unify-postponeS arg-0 arg-12 arg-11 arg-10 arg-8 arg-9 "Can't shrink" arg-7 (vector 1 arg-8 (vector 2 arg-5 arg-4 arg-3) (PreludeC-45Types-u--map_Functor_List (lambda (__infixTupleSection-0) (cons (vector 2 ) __infixTupleSection-0)) arg-2)) arg-1 eta-0) (let ((e-3 (unbox sc7))) (CoreC-45Unify-solveHole arg-12 arg-11 arg-16 arg-0 arg-6 arg-9 arg-7 arg-5 arg-4 arg-3 arg-2 arg-17 arg-18 e-2 e-3 arg-1 eta-0)))))))) (let ((e-3 (unbox sc5))) (CoreC-45Unify-solveHole arg-12 arg-11 arg-16 arg-0 arg-6 arg-9 arg-7 arg-5 arg-4 arg-3 arg-2 arg-17 arg-18 e-2 e-3 arg-1 eta-0))))))))))))))))))))(else (lambda (eta-0) (CoreC-45Unify-postponeS arg-0 arg-12 arg-11 arg-10 arg-8 arg-9 "Delayed hole" arg-7 (vector 1 arg-8 (vector 2 arg-5 arg-4 arg-3) (PreludeC-45Types-u--map_Functor_List (lambda (__infixTupleSection-0) (cons (vector 2 ) __infixTupleSection-0)) arg-2)) arg-1 eta-0)))))) +(define CoreC-45Unify-case--headsConvert-11025 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (if (null? arg-8) (lambda (eta-0) (vector 1 0)) (let ((e-2 (car arg-8))) (let ((e-3 (cdr arg-8))) (lambda (clam-0) (if (null? e-2) (vector 1 0) (let ((e-5 (car e-2))) (if (null? e-3) (vector 1 0) (let ((e-8 (car e-3))) (let ((act-24 (CoreC-45Normalise-logNF arg-0 arg-7 "unify.head" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Unifying head") arg-3 e-5 clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((act-25 (CoreC-45Normalise-logNF arg-0 arg-7 "unify.head" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () ".........with") arg-3 e-8 clam-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((act-26 ((((CoreC-45Unify-unify (cons (lambda (u--vars) (lambda (arg-6180) (lambda (arg-6183) (lambda (arg-6186) (lambda (arg-6187) (lambda (arg-6188) (lambda (arg-6190) (lambda (arg-6193) (CoreC-45Unify-u--unifyD_Unify_NF u--vars arg-6180 arg-6183 arg-6186 arg-6187 arg-6188 arg-6190 arg-6193))))))))) (lambda (u--vars) (lambda (arg-6195) (lambda (arg-6198) (lambda (arg-6201) (lambda (arg-6202) (lambda (arg-6203) (lambda (arg-6205) (lambda (arg-6206) (CoreC-45Unify-u--unifyWithLazyD_Unify_NF u--vars arg-6195 arg-6198 arg-6201 arg-6202 arg-6203 arg-6205 arg-6206)))))))))) arg-0 arg-7 arg-6 arg-5 arg-4 arg-3) e-5) e-8) clam-0))) (case (vector-ref act-26 0) ((0) (let ((e-4 (vector-ref act-26 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref act-26 1))) (vector 1 (DataC-45List-isNil (let ((e-0 (vector-ref e-11 0))) e-0))))))))))))))))))))))) +(define CoreC-45Unify-case--occursCheck-8044 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 ext-0) (cond ((equal? arg-8 0) (vector 1 (box arg-1)))(else (let ((act-24 (let ((act-24 (unbox arg-6))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-normalise arg-6 arg-0 e-5 arg-4 arg-1 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 ((CoreC-45Unify-getMetaNames arg-6 e-6) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((sc3 (PreludeC-45Types-elem (cons (lambda (arg-9) (lambda (arg-10) (CoreC-45Name-u--C-61C-61_Eq_Name arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (CoreC-45Name-u--C-47C-61_Eq_Name arg-9 arg-10)))) arg-2 e-7))) (cond ((equal? sc3 1) (let ((act-27 ((CoreC-45Unify-n--8513-7825-u--failOnStrongRigid arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 0 (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 4 arg-0 arg-5 arg-4 arg-2 e-6) eta-0)) e-6) ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (vector 1 '()))))) (else (vector 1 (box e-6))))))))))))))))))))) +(define CoreC-45Unify-case--occursCheckC-44failOnStrongRigid-7906 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((e-2 (car arg-10))) (let ((e-3 (cdr arg-10))) (if (null? e-3) (lambda (eta-0) (vector 1 0)) (lambda (clam-0) (case (vector-ref e-2 0) ((1) (let ((e-6 (vector-ref e-2 2))) (case (vector-ref e-6 0) ((1) (vector 1 0))(else (CoreC-45Core-traverse_ (lambda (eta-0) (CoreC-45Unify-n--8513-7825-u--failOnStrongRigid arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 1 arg-8 eta-0)) e-3 clam-0)))))(else (CoreC-45Core-traverse_ (lambda (eta-0) (CoreC-45Unify-n--8513-7825-u--failOnStrongRigid arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-9 arg-8 eta-0)) e-3 clam-0))))))))) +(define CoreC-45Unify-case--caseC-32blockC-32inC-32patternEnvTm-7781 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((e-2 (car arg-8))) (let ((e-3 (cdr arg-8))) (box (cons e-2 (cons (CoreC-45Unify-n--8298-7643-u--updateVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-7 e-3) e-3))))))) +(define CoreC-45Unify-case--patternEnvTm-7742 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (if (null? arg-7) '() (let ((e-2 (unbox arg-7))) (CoreC-45Unify-case--caseC-32blockC-32inC-32patternEnvTm-7781 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-2 (CoreC-45Unify-toSubVars arg-0 e-2)))))) +(define CoreC-45Unify-case--caseC-32blockC-32inC-32patternEnv-7510 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((e-2 (car arg-9))) (let ((e-3 (cdr arg-9))) (box (cons e-2 (cons (CoreC-45Unify-n--7966-7357-u--updateVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-8 e-3) e-3))))))) +(define CoreC-45Unify-case--patternEnv-7467 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (if (null? arg-8) '() (let ((e-2 (unbox arg-8))) (CoreC-45Unify-case--caseC-32blockC-32inC-32patternEnv-7510 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-2 (CoreC-45Unify-toSubVars arg-0 e-2)))))) +(define CoreC-45Unify-case--chaseMetas-6498 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (if (null? arg-4) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-3))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-lookupDefExact arg-0 (let ((e-0 (vector-ref e-5 0))) e-0) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (if (null? e-6) ((CoreC-45Unify-chaseMetas arg-3 arg-1 (LibrariesC-45DataC-45NameMap-insert arg-0 0 arg-2)) eta-0) (let ((e-1 (unbox e-6))) (case (vector-ref e-1 0) ((1) (let ((e-4 (vector-ref e-1 3))) (case (vector-ref e-4 0) ((1) (let ((e-9 (vector-ref e-4 2))) (let ((u--sns (LibrariesC-45DataC-45NameMap-keys (CoreC-45TT-getMetas e-9)))) ((CoreC-45Unify-chaseMetas arg-3 (PreludeC-45TypesC-45List-C-43C-43 u--sns arg-1) (LibrariesC-45DataC-45NameMap-insert arg-0 0 arg-2)) eta-0))))(else ((CoreC-45Unify-chaseMetas arg-3 arg-1 (LibrariesC-45DataC-45NameMap-insert arg-0 0 arg-2)) eta-0)))))(else ((CoreC-45Unify-chaseMetas arg-3 arg-1 (LibrariesC-45DataC-45NameMap-insert arg-0 0 arg-2)) eta-0)))))))))))))) (CoreC-45Unify-chaseMetas arg-3 arg-1 arg-2)))) +(define CoreC-45Unify-n--8298-7643-u--updateVars (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-6 arg-7) (if (null? arg-6) '() (let ((e-2 (car arg-6))) (let ((e-3 (cdr arg-6))) (let ((sc1 (CoreC-45TT-subElem e-2 arg-7))) (if (null? sc1) (CoreC-45Unify-n--8298-7643-u--updateVars arg-0 arg-1 arg-2 arg-3 arg-4 e-3 arg-7) (let ((e-4 (unbox sc1))) (cons e-4 (CoreC-45Unify-n--8298-7643-u--updateVars arg-0 arg-1 arg-2 arg-3 arg-4 e-3 arg-7)))))))))) +(define CoreC-45Unify-n--7966-7357-u--updateVars (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-6 arg-7) (if (null? arg-6) '() (let ((e-2 (car arg-6))) (let ((e-3 (cdr arg-6))) (let ((sc1 (CoreC-45TT-subElem e-2 arg-7))) (if (null? sc1) (CoreC-45Unify-n--7966-7357-u--updateVars arg-0 arg-1 arg-2 arg-3 arg-4 e-3 arg-7) (let ((e-4 (unbox sc1))) (cons e-4 (CoreC-45Unify-n--7966-7357-u--updateVars arg-0 arg-1 arg-2 arg-3 arg-4 e-3 arg-7)))))))))) +(define CoreC-45Unify-n--9146-9053-u--updateIVarsPi (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24) (case (vector-ref arg-24 0) ((1) (box (vector 1 ))) ((0) (box (vector 0 ))) ((2) (box (vector 2 ))) (else (let ((e-4 (vector-ref arg-24 1))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Unify-n--9118-8377-u--updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-21 arg-22 arg-23 e-4) (lambda (u--tC-39) (box (vector 3 u--tC-39))))))))) +(define CoreC-45Unify-n--9146-9054-u--updateIVarsB (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24) (case (vector-ref arg-24 0) ((0) (let ((e-1 (vector-ref arg-24 1))) (let ((e-2 (vector-ref arg-24 2))) (let ((e-3 (vector-ref arg-24 3))) (let ((e-4 (vector-ref arg-24 4))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Unify-n--9146-9053-u--updateIVarsPi arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 e-3) (lambda (u--pC-39) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Unify-n--9118-8377-u--updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-21 arg-22 arg-23 e-4) (lambda (bind-0) (box (vector 0 e-1 e-2 u--pC-39 bind-0))))))))))) ((1) (let ((e-6 (vector-ref arg-24 1))) (let ((e-7 (vector-ref arg-24 2))) (let ((e-8 (vector-ref arg-24 3))) (let ((e-9 (vector-ref arg-24 4))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Unify-n--9118-8377-u--updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-21 arg-22 arg-23 e-8) (lambda (bind-0) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Unify-n--9118-8377-u--updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-21 arg-22 arg-23 e-9) (lambda (bind-1) (box (vector 1 e-6 e-7 bind-0 bind-1))))))))))) ((2) (let ((e-11 (vector-ref arg-24 1))) (let ((e-12 (vector-ref arg-24 2))) (let ((e-13 (vector-ref arg-24 3))) (let ((e-14 (vector-ref arg-24 4))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Unify-n--9146-9053-u--updateIVarsPi arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 e-13) (lambda (u--pC-39) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Unify-n--9118-8377-u--updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-21 arg-22 arg-23 e-14) (lambda (bind-0) (box (vector 2 e-11 e-12 u--pC-39 bind-0))))))))))) ((3) (let ((e-16 (vector-ref arg-24 1))) (let ((e-17 (vector-ref arg-24 2))) (let ((e-18 (vector-ref arg-24 3))) (let ((e-19 (vector-ref arg-24 4))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Unify-n--9146-9053-u--updateIVarsPi arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 e-18) (lambda (u--pC-39) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Unify-n--9118-8377-u--updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-21 arg-22 arg-23 e-19) (lambda (bind-0) (box (vector 3 e-16 e-17 u--pC-39 bind-0))))))))))) ((4) (let ((e-21 (vector-ref arg-24 1))) (let ((e-22 (vector-ref arg-24 2))) (let ((e-23 (vector-ref arg-24 3))) (let ((e-24 (vector-ref arg-24 4))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Unify-n--9118-8377-u--updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-21 arg-22 arg-23 e-23) (lambda (bind-0) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Unify-n--9118-8377-u--updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-21 arg-22 arg-23 e-24) (lambda (bind-1) (box (vector 4 e-21 e-22 bind-0 bind-1))))))))))) (else (let ((e-26 (vector-ref arg-24 1))) (let ((e-27 (vector-ref arg-24 2))) (let ((e-28 (vector-ref arg-24 3))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Unify-n--9118-8377-u--updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-21 arg-22 arg-23 e-28) (lambda (bind-0) (box (vector 5 e-26 e-27 bind-0))))))))))) +(define CoreC-45Unify-n--9118-8377-u--updateIVars (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (case (vector-ref arg-17 0) ((0) (let ((e-2 (vector-ref arg-17 1))) (let ((e-3 (vector-ref arg-17 2))) (let ((e-4 (vector-ref arg-17 3))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Unify-n--9118-8376-u--updateIVar arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-4 arg-16) (lambda (_-0) (box (vector 0 e-2 e-3 _-0)))))))) ((1) (let ((e-7 (vector-ref arg-17 1))) (let ((e-8 (vector-ref arg-17 2))) (let ((e-9 (vector-ref arg-17 3))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 1 e-7 e-8 e-9)))))) ((2) (let ((e-11 (vector-ref arg-17 1))) (let ((e-12 (vector-ref arg-17 2))) (let ((e-13 (vector-ref arg-17 3))) (let ((e-14 (vector-ref arg-17 4))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (PreludeC-45Types-u--traverse_Traversable_List (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (PreludeC-45Types-u--map_Functor_Maybe u--func arg-133))))) (lambda (u--a) (lambda (arg-527) (PreludeC-45Types-u--pure_Applicative_Maybe arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (PreludeC-45Types-u--C-60C-42C-62_Applicative_Maybe arg-528 arg-530)))))) (lambda (eta-0) (CoreC-45Unify-n--9118-8377-u--updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 eta-0)) e-14) (lambda (bind-0) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 2 e-11 e-12 e-13 bind-0))))))))) ((3) (let ((e-16 (vector-ref arg-17 1))) (let ((e-17 (vector-ref arg-17 2))) (let ((e-18 (vector-ref arg-17 3))) (let ((e-19 (vector-ref arg-17 4))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Unify-n--9146-9054-u--updateIVarsB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-15 e-17 e-19 e-18 e-16 arg-14 arg-16 arg-14 arg-15 arg-16 e-18) (lambda (u--bC-39) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Unify-n--9118-8377-u--updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (cons e-17 arg-14) (cons e-17 arg-15) (cons (box 0) (CoreC-45Unify-u--weaken_Weaken_C-40IVarsC-32C-36vsC-41 arg-16)) e-19) (lambda (u--scC-39) (box (vector 3 e-16 e-17 u--bC-39 u--scC-39))))))))))) ((4) (let ((e-21 (vector-ref arg-17 1))) (let ((e-22 (vector-ref arg-17 2))) (let ((e-23 (vector-ref arg-17 3))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Unify-n--9118-8377-u--updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 e-22) (lambda (bind-0) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Unify-n--9118-8377-u--updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 e-23) (lambda (bind-1) (box (vector 4 e-21 bind-0 bind-1)))))))))) ((5) (let ((e-25 (vector-ref arg-17 1))) (let ((e-26 (vector-ref arg-17 2))) (let ((e-27 (vector-ref arg-17 3))) (let ((e-28 (vector-ref arg-17 4))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Unify-n--9118-8377-u--updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 e-27) (lambda (bind-0) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Unify-n--9118-8377-u--updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 e-28) (lambda (bind-1) (box (vector 5 e-25 e-26 bind-0 bind-1))))))))))) ((6) (let ((e-30 (vector-ref arg-17 1))) (let ((e-31 (vector-ref arg-17 2))) (let ((e-32 (vector-ref arg-17 3))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Unify-n--9118-8377-u--updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 e-32) (lambda (bind-0) (box (vector 6 e-30 e-31 bind-0)))))))) ((7) (let ((e-34 (vector-ref arg-17 1))) (let ((e-35 (vector-ref arg-17 2))) (let ((e-36 (vector-ref arg-17 3))) (let ((e-37 (vector-ref arg-17 4))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Unify-n--9118-8377-u--updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 e-36) (lambda (bind-0) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Unify-n--9118-8377-u--updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 e-37) (lambda (bind-1) (box (vector 7 e-34 e-35 bind-0 bind-1))))))))))) ((8) (let ((e-39 (vector-ref arg-17 1))) (let ((e-40 (vector-ref arg-17 2))) (let ((e-41 (vector-ref arg-17 3))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Unify-n--9118-8377-u--updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 e-41) (lambda (bind-0) (box (vector 8 e-39 e-40 bind-0)))))))) ((9) (let ((e-43 (vector-ref arg-17 1))) (let ((e-44 (vector-ref arg-17 2))) (box (vector 9 e-43 e-44))))) ((10) (let ((e-46 (vector-ref arg-17 1))) (let ((e-47 (vector-ref arg-17 2))) (box (vector 10 e-46 e-47))))) (else (let ((e-49 (vector-ref arg-17 1))) (box (vector 11 e-49))))))) +(define CoreC-45Unify-n--9118-8376-u--updateIVar (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-15 arg-18) (if (null? arg-18) '() (let ((e-3 (car arg-18))) (let ((e-4 (cdr arg-18))) (if (null? e-3) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Unify-n--9118-8376-u--updateIVar arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-15 e-4) (lambda (_-0) (box (+ 1 _-0)))) (let ((e-7 (unbox e-3))) (let ((sc2 (PreludeC-45Types-u--C-61C-61_Eq_Nat arg-15 e-7))) (cond ((equal? sc2 1) (box 0)) (else (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Unify-n--9118-8376-u--updateIVar arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-15 e-4) (lambda (_-0) (box (+ 1 _-0)))))))))))))) +(define CoreC-45Unify-n--11511-10508-u--tooBigArgs (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (cond ((equal? arg-6 0) 1)(else (if (null? arg-7) 0 (cond ((equal? arg-6 0) (blodwen-error-quit "Nat case not covered"))(else (let ((e-0 (- arg-6 1))) (let ((e-2 (car arg-7))) (let ((e-3 (cdr arg-7))) (let ((sc2 (CoreC-45Unify-tooBig arg-5 (cond ((equal? arg-5 1) e-0) (else (+ 1 e-0))) '() e-2))) (cond ((equal? sc2 1) 1) (else (CoreC-45Unify-n--11511-10508-u--tooBigArgs arg-1 arg-2 arg-3 arg-4 arg-5 e-0 e-3)))))))))))))) +(define CoreC-45Unify-n--11742-12192-u--solutionHeadSame (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (case (vector-ref arg-16 0) ((1) (let ((e-2 (vector-ref arg-16 2))) (case (vector-ref e-2 0) ((2) (let ((e-6 (vector-ref e-2 2))) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int e-6 arg-9)))(else 0))))(else 0)))) +(define CoreC-45Unify-n--11762-14568-u--pv (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (case (vector-ref arg-16 0) ((3) 1)(else 0)))) +(define CoreC-45Unify-n--9118-8374-u--noMeta (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-15 arg-16) (case (vector-ref arg-15 0) ((4) (let ((e-2 (vector-ref arg-15 2))) (let ((e-3 (vector-ref arg-15 3))) (cond ((equal? arg-16 0) 0)(else (let ((e-47 (- arg-16 1))) (let ((sc1 (CoreC-45Unify-n--9118-8374-u--noMeta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-2 e-47))) (cond ((equal? sc1 1) (CoreC-45Unify-n--9118-8374-u--noMeta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-3 e-47)) (else 0))))))))) ((3) (let ((e-7 (vector-ref arg-15 3))) (let ((e-8 (vector-ref arg-15 4))) (cond ((equal? arg-16 0) 0)(else (let ((e-48 (- arg-16 1))) (let ((sc1 (CoreC-45Unify-n--9118-8374-u--noMeta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (CoreC-45TT-binderType e-7) e-48))) (cond ((equal? sc1 1) (CoreC-45Unify-n--9118-8374-u--noMeta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-8 e-48)) (else 0))))))))) ((2) 0) ((6) (let ((e-17 (vector-ref arg-15 3))) (CoreC-45Unify-n--9118-8374-u--noMeta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-17 arg-16))) ((7) (let ((e-21 (vector-ref arg-15 3))) (let ((e-22 (vector-ref arg-15 4))) (let ((sc1 (CoreC-45Unify-n--9118-8374-u--noMeta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-21 arg-16))) (cond ((equal? sc1 1) (CoreC-45Unify-n--9118-8374-u--noMeta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-22 arg-16)) (else 0)))))) ((8) (let ((e-26 (vector-ref arg-15 3))) (CoreC-45Unify-n--9118-8374-u--noMeta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-26 arg-16))) ((5) (let ((e-30 (vector-ref arg-15 3))) (let ((e-31 (vector-ref arg-15 4))) (let ((sc1 (CoreC-45Unify-n--9118-8374-u--noMeta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-30 arg-16))) (cond ((equal? sc1 1) (CoreC-45Unify-n--9118-8374-u--noMeta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-31 arg-16)) (else 0)))))) ((0) 1) ((1) 1) ((9) 1) ((11) 1)(else 0)))) +(define CoreC-45Unify-n--9118-8378-u--mkDef (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (if (null? arg-16) (case (vector-ref arg-19 0) ((3) (let ((e-2 (vector-ref arg-19 1))) (let ((e-3 (vector-ref arg-19 2))) (let ((e-4 (vector-ref arg-19 3))) (let ((e-5 (vector-ref arg-19 4))) (case (vector-ref e-4 0) ((1) (let ((e-7 (vector-ref e-4 1))) (let ((e-8 (vector-ref e-4 2))) (let ((e-9 (vector-ref e-4 3))) (let ((e-10 (vector-ref e-4 4))) (lambda (eta-0) (let ((act-24 ((CoreC-45Unify-n--9118-8378-u--mkDef arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (cons e-3 arg-14) arg-15 arg-16 (cons '() arg-17) arg-18 e-5) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((u--b (vector 1 e-7 e-8 e-9 e-10))) (let ((sc4 (CoreC-45TT-shrinkTerm e-6 (vector 1 (vector 0 ))))) (if (null? sc4) (vector 1 (vector 3 e-2 e-3 u--b e-6)) (let ((e-1 (unbox sc4))) (vector 1 e-1)))))))))))))))(else (if (null? arg-16) (lambda (clam-4) (let ((sc3 (CoreC-45Unify-n--9118-8377-u--updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-17 arg-18))) (if (null? sc3) (CoreC-45Unify-ufail arg-11 (PreludeC-45TypesC-45String-C-43C-43 "Can't make solution for " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name arg-8) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (x-1) (CoreC-45TT-u--show_Show_C-40VarC-32C-36nsC-41 x-1)) (lambda (u--d) (lambda (x-1) (CoreC-45TT-u--showPrec_Show_C-40VarC-32C-36nsC-41 u--d x-1)))) x-0)) (lambda (u--d) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (x-1) (CoreC-45TT-u--show_Show_C-40VarC-32C-36nsC-41 x-1)) (lambda (d-0) (lambda (x-1) (CoreC-45TT-u--showPrec_Show_C-40VarC-32C-36nsC-41 d-0 x-1)))) u--d x-0)))) u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_C-40ListC-32C-36aC-41 (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (x-1) (CoreC-45TT-u--show_Show_C-40VarC-32C-36nsC-41 x-1)) (lambda (d-0) (lambda (x-1) (CoreC-45TT-u--showPrec_Show_C-40VarC-32C-36nsC-41 d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (x-1) (CoreC-45TT-u--show_Show_C-40VarC-32C-36nsC-41 x-1)) (lambda (d-1) (lambda (x-1) (CoreC-45TT-u--showPrec_Show_C-40VarC-32C-36nsC-41 d-1 x-1)))) d-0 x-0)))) u--d u--x)))) (cons (lambda (u--x) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-15 u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-15 u--d u--x))))) (cons (CoreC-45Unify-getIVars arg-17) arg-18))))) clam-4) (let ((e-1 (unbox sc3))) (vector 1 e-1))))) (lambda (eta-0) (CoreC-45Unify-ufail arg-11 (PreludeC-45TypesC-45String-C-43C-43 "Can't make solution for " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name arg-8) (PreludeC-45TypesC-45String-C-43C-43 " at " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-14 arg-19)))) eta-0))))))))))(else (if (null? arg-16) (lambda (clam-5) (let ((sc2 (CoreC-45Unify-n--9118-8377-u--updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-17 arg-18))) (if (null? sc2) (CoreC-45Unify-ufail arg-11 (PreludeC-45TypesC-45String-C-43C-43 "Can't make solution for " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name arg-8) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (x-1) (CoreC-45TT-u--show_Show_C-40VarC-32C-36nsC-41 x-1)) (lambda (u--d) (lambda (x-1) (CoreC-45TT-u--showPrec_Show_C-40VarC-32C-36nsC-41 u--d x-1)))) x-0)) (lambda (u--d) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (x-1) (CoreC-45TT-u--show_Show_C-40VarC-32C-36nsC-41 x-1)) (lambda (d-0) (lambda (x-1) (CoreC-45TT-u--showPrec_Show_C-40VarC-32C-36nsC-41 d-0 x-1)))) u--d x-0)))) u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_C-40ListC-32C-36aC-41 (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (x-1) (CoreC-45TT-u--show_Show_C-40VarC-32C-36nsC-41 x-1)) (lambda (d-0) (lambda (x-1) (CoreC-45TT-u--showPrec_Show_C-40VarC-32C-36nsC-41 d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (x-1) (CoreC-45TT-u--show_Show_C-40VarC-32C-36nsC-41 x-1)) (lambda (d-1) (lambda (x-1) (CoreC-45TT-u--showPrec_Show_C-40VarC-32C-36nsC-41 d-1 x-1)))) d-0 x-0)))) u--d u--x)))) (cons (lambda (u--x) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-15 u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-15 u--d u--x))))) (cons (CoreC-45Unify-getIVars arg-17) arg-18))))) clam-5) (let ((e-1 (unbox sc2))) (vector 1 e-1))))) (lambda (eta-0) (CoreC-45Unify-ufail arg-11 (PreludeC-45TypesC-45String-C-43C-43 "Can't make solution for " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name arg-8) (PreludeC-45TypesC-45String-C-43C-43 " at " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-14 arg-19)))) eta-0))))) (let ((e-12 (car arg-16))) (let ((e-13 (cdr arg-16))) (case (vector-ref arg-19 0) ((3) (let ((e-15 (vector-ref arg-19 1))) (let ((e-16 (vector-ref arg-19 2))) (let ((e-17 (vector-ref arg-19 3))) (let ((e-18 (vector-ref arg-19 4))) (case (vector-ref e-17 0) ((2) (let ((e-20 (vector-ref e-17 1))) (let ((e-21 (vector-ref e-17 2))) (lambda (eta-0) (let ((act-24 ((CoreC-45Unify-n--9118-8378-u--mkDef arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (cons e-16 arg-14) arg-15 e-13 (cons (box e-12) arg-17) arg-18 e-18) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 3 e-15 e-16 (vector 0 e-20 e-21 (vector 1 ) (vector 10 e-15 0)) e-5))))))))))(else (case (vector-ref arg-19 0) ((3) (let ((e-2 (vector-ref arg-19 1))) (let ((e-3 (vector-ref arg-19 2))) (let ((e-4 (vector-ref arg-19 3))) (let ((e-5 (vector-ref arg-19 4))) (case (vector-ref e-4 0) ((1) (let ((e-7 (vector-ref e-4 1))) (let ((e-8 (vector-ref e-4 2))) (let ((e-9 (vector-ref e-4 3))) (let ((e-10 (vector-ref e-4 4))) (lambda (eta-0) (let ((act-24 ((CoreC-45Unify-n--9118-8378-u--mkDef arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (cons e-3 arg-14) arg-15 arg-16 (cons '() arg-17) arg-18 e-5) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((u--b (vector 1 e-7 e-8 e-9 e-10))) (let ((sc5 (CoreC-45TT-shrinkTerm e-6 (vector 1 (vector 0 ))))) (if (null? sc5) (vector 1 (vector 3 e-2 e-3 u--b e-6)) (let ((e-1 (unbox sc5))) (vector 1 e-1)))))))))))))))(else (if (null? arg-16) (lambda (clam-0) (let ((sc4 (CoreC-45Unify-n--9118-8377-u--updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-17 arg-18))) (if (null? sc4) (CoreC-45Unify-ufail arg-11 (PreludeC-45TypesC-45String-C-43C-43 "Can't make solution for " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name arg-8) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (x-1) (CoreC-45TT-u--show_Show_C-40VarC-32C-36nsC-41 x-1)) (lambda (u--d) (lambda (x-1) (CoreC-45TT-u--showPrec_Show_C-40VarC-32C-36nsC-41 u--d x-1)))) x-0)) (lambda (u--d) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (x-1) (CoreC-45TT-u--show_Show_C-40VarC-32C-36nsC-41 x-1)) (lambda (d-0) (lambda (x-1) (CoreC-45TT-u--showPrec_Show_C-40VarC-32C-36nsC-41 d-0 x-1)))) u--d x-0)))) u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_C-40ListC-32C-36aC-41 (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (x-1) (CoreC-45TT-u--show_Show_C-40VarC-32C-36nsC-41 x-1)) (lambda (d-0) (lambda (x-1) (CoreC-45TT-u--showPrec_Show_C-40VarC-32C-36nsC-41 d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (x-1) (CoreC-45TT-u--show_Show_C-40VarC-32C-36nsC-41 x-1)) (lambda (d-1) (lambda (x-1) (CoreC-45TT-u--showPrec_Show_C-40VarC-32C-36nsC-41 d-1 x-1)))) d-0 x-0)))) u--d u--x)))) (cons (lambda (u--x) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-15 u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-15 u--d u--x))))) (cons (CoreC-45Unify-getIVars arg-17) arg-18))))) clam-0) (let ((e-1 (unbox sc4))) (vector 1 e-1))))) (lambda (eta-0) (CoreC-45Unify-ufail arg-11 (PreludeC-45TypesC-45String-C-43C-43 "Can't make solution for " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name arg-8) (PreludeC-45TypesC-45String-C-43C-43 " at " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-14 arg-19)))) eta-0))))))))))(else (if (null? arg-16) (lambda (clam-1) (let ((sc3 (CoreC-45Unify-n--9118-8377-u--updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-17 arg-18))) (if (null? sc3) (CoreC-45Unify-ufail arg-11 (PreludeC-45TypesC-45String-C-43C-43 "Can't make solution for " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name arg-8) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (x-1) (CoreC-45TT-u--show_Show_C-40VarC-32C-36nsC-41 x-1)) (lambda (u--d) (lambda (x-1) (CoreC-45TT-u--showPrec_Show_C-40VarC-32C-36nsC-41 u--d x-1)))) x-0)) (lambda (u--d) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (x-1) (CoreC-45TT-u--show_Show_C-40VarC-32C-36nsC-41 x-1)) (lambda (d-0) (lambda (x-1) (CoreC-45TT-u--showPrec_Show_C-40VarC-32C-36nsC-41 d-0 x-1)))) u--d x-0)))) u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_C-40ListC-32C-36aC-41 (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (x-1) (CoreC-45TT-u--show_Show_C-40VarC-32C-36nsC-41 x-1)) (lambda (d-0) (lambda (x-1) (CoreC-45TT-u--showPrec_Show_C-40VarC-32C-36nsC-41 d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (x-1) (CoreC-45TT-u--show_Show_C-40VarC-32C-36nsC-41 x-1)) (lambda (d-1) (lambda (x-1) (CoreC-45TT-u--showPrec_Show_C-40VarC-32C-36nsC-41 d-1 x-1)))) d-0 x-0)))) u--d u--x)))) (cons (lambda (u--x) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-15 u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-15 u--d u--x))))) (cons (CoreC-45Unify-getIVars arg-17) arg-18))))) clam-1) (let ((e-1 (unbox sc3))) (vector 1 e-1))))) (lambda (eta-0) (CoreC-45Unify-ufail arg-11 (PreludeC-45TypesC-45String-C-43C-43 "Can't make solution for " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name arg-8) (PreludeC-45TypesC-45String-C-43C-43 " at " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-14 arg-19)))) eta-0))))))))))))(else (case (vector-ref arg-19 0) ((3) (let ((e-2 (vector-ref arg-19 1))) (let ((e-3 (vector-ref arg-19 2))) (let ((e-4 (vector-ref arg-19 3))) (let ((e-5 (vector-ref arg-19 4))) (case (vector-ref e-4 0) ((1) (let ((e-7 (vector-ref e-4 1))) (let ((e-8 (vector-ref e-4 2))) (let ((e-9 (vector-ref e-4 3))) (let ((e-10 (vector-ref e-4 4))) (lambda (eta-0) (let ((act-24 ((CoreC-45Unify-n--9118-8378-u--mkDef arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (cons e-3 arg-14) arg-15 arg-16 (cons '() arg-17) arg-18 e-5) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((u--b (vector 1 e-7 e-8 e-9 e-10))) (let ((sc4 (CoreC-45TT-shrinkTerm e-6 (vector 1 (vector 0 ))))) (if (null? sc4) (vector 1 (vector 3 e-2 e-3 u--b e-6)) (let ((e-1 (unbox sc4))) (vector 1 e-1)))))))))))))))(else (if (null? arg-16) (lambda (clam-2) (let ((sc3 (CoreC-45Unify-n--9118-8377-u--updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-17 arg-18))) (if (null? sc3) (CoreC-45Unify-ufail arg-11 (PreludeC-45TypesC-45String-C-43C-43 "Can't make solution for " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name arg-8) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (x-1) (CoreC-45TT-u--show_Show_C-40VarC-32C-36nsC-41 x-1)) (lambda (u--d) (lambda (x-1) (CoreC-45TT-u--showPrec_Show_C-40VarC-32C-36nsC-41 u--d x-1)))) x-0)) (lambda (u--d) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (x-1) (CoreC-45TT-u--show_Show_C-40VarC-32C-36nsC-41 x-1)) (lambda (d-0) (lambda (x-1) (CoreC-45TT-u--showPrec_Show_C-40VarC-32C-36nsC-41 d-0 x-1)))) u--d x-0)))) u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_C-40ListC-32C-36aC-41 (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (x-1) (CoreC-45TT-u--show_Show_C-40VarC-32C-36nsC-41 x-1)) (lambda (d-0) (lambda (x-1) (CoreC-45TT-u--showPrec_Show_C-40VarC-32C-36nsC-41 d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (x-1) (CoreC-45TT-u--show_Show_C-40VarC-32C-36nsC-41 x-1)) (lambda (d-1) (lambda (x-1) (CoreC-45TT-u--showPrec_Show_C-40VarC-32C-36nsC-41 d-1 x-1)))) d-0 x-0)))) u--d u--x)))) (cons (lambda (u--x) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-15 u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-15 u--d u--x))))) (cons (CoreC-45Unify-getIVars arg-17) arg-18))))) clam-2) (let ((e-1 (unbox sc3))) (vector 1 e-1))))) (lambda (eta-0) (CoreC-45Unify-ufail arg-11 (PreludeC-45TypesC-45String-C-43C-43 "Can't make solution for " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name arg-8) (PreludeC-45TypesC-45String-C-43C-43 " at " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-14 arg-19)))) eta-0))))))))))(else (if (null? arg-16) (lambda (clam-3) (let ((sc2 (CoreC-45Unify-n--9118-8377-u--updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-17 arg-18))) (if (null? sc2) (CoreC-45Unify-ufail arg-11 (PreludeC-45TypesC-45String-C-43C-43 "Can't make solution for " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name arg-8) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (x-1) (CoreC-45TT-u--show_Show_C-40VarC-32C-36nsC-41 x-1)) (lambda (u--d) (lambda (x-1) (CoreC-45TT-u--showPrec_Show_C-40VarC-32C-36nsC-41 u--d x-1)))) x-0)) (lambda (u--d) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (x-1) (CoreC-45TT-u--show_Show_C-40VarC-32C-36nsC-41 x-1)) (lambda (d-0) (lambda (x-1) (CoreC-45TT-u--showPrec_Show_C-40VarC-32C-36nsC-41 d-0 x-1)))) u--d x-0)))) u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_C-40ListC-32C-36aC-41 (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (x-1) (CoreC-45TT-u--show_Show_C-40VarC-32C-36nsC-41 x-1)) (lambda (d-0) (lambda (x-1) (CoreC-45TT-u--showPrec_Show_C-40VarC-32C-36nsC-41 d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (x-1) (CoreC-45TT-u--show_Show_C-40VarC-32C-36nsC-41 x-1)) (lambda (d-1) (lambda (x-1) (CoreC-45TT-u--showPrec_Show_C-40VarC-32C-36nsC-41 d-1 x-1)))) d-0 x-0)))) u--d u--x)))) (cons (lambda (u--x) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-15 u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-15 u--d u--x))))) (cons (CoreC-45Unify-getIVars arg-17) arg-18))))) clam-3) (let ((e-1 (unbox sc2))) (vector 1 e-1))))) (lambda (eta-0) (CoreC-45Unify-ufail arg-11 (PreludeC-45TypesC-45String-C-43C-43 "Can't make solution for " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name arg-8) (PreludeC-45TypesC-45String-C-43C-43 " at " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-14 arg-19)))) eta-0)))))))))))) +(define CoreC-45Unify-n--11762-14569-u--localsIn (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 ext-0) (if (null? arg-16) (vector 1 0) (let ((e-2 (car arg-16))) (let ((e-3 (cdr arg-16))) (let ((act-24 (let ((act-24 (unbox arg-15))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Normalise-evalClosure arg-15 arg-0 e-5 e-2) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref act-25 1))) (case (vector-ref e-6 0) ((1) (let ((e-7 (vector-ref e-6 2))) (case (vector-ref e-7 0) ((0) (let ((act-26 (CoreC-45Unify-n--11762-14569-u--localsIn arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-3 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-10 (vector-ref act-26 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-26 1))) (vector 1 (+ 1 e-10)))))))(else (CoreC-45Unify-n--11762-14569-u--localsIn arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-3 ext-0)))))(else (CoreC-45Unify-n--11762-14569-u--localsIn arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-3 ext-0)))))))))))))))) +(define CoreC-45Unify-n--9118-8375-u--isSimple (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-15) (case (vector-ref arg-15 0) ((2) 1) ((3) (let ((e-8 (vector-ref arg-15 3))) (let ((e-9 (vector-ref arg-15 4))) (case (vector-ref e-8 0) ((0) (CoreC-45Unify-n--9118-8375-u--isSimple arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-9))(else (CoreC-45Unify-n--9118-8374-u--noMeta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-15 0)))))) ((4) (let ((e-12 (vector-ref arg-15 2))) (let ((e-13 (vector-ref arg-15 3))) (let ((sc1 (CoreC-45Unify-n--9118-8374-u--noMeta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))))))) (cond ((equal? sc1 1) (CoreC-45Unify-n--9118-8374-u--noMeta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-13 (+ 1 (+ 1 (+ 1 0))))) (else 0))))))(else (CoreC-45Unify-n--9118-8374-u--noMeta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-15 0))))) +(define CoreC-45Unify-n--11730-11849-u--isPatName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (case (vector-ref arg-17 0) ((3) 1)(else 0)))) +(define CoreC-45Unify-n--11511-10507-u--isFn (lambda (arg-1 arg-2 arg-3 arg-4 arg-6) (case (vector-ref arg-6 0) ((1) (let ((e-2 (vector-ref arg-6 2))) (case (vector-ref e-2 0) ((1) 1)(else 0))))(else 0)))) +(define CoreC-45Unify-n--11781-16910-u--isDelay (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (case (vector-ref arg-8 0) ((5) 1)(else 0)))) +(define CoreC-45Unify-n--11742-12191-u--inNoSolve (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 (LibrariesC-45DataC-45IntMap-lookup arg-16 arg-17))) (if (null? sc0) 0 1)))) +(define CoreC-45Unify-n--7719-7146-u--inArgs (lambda (arg-0 arg-2 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (if (null? arg-9) 0 (let ((e-2 (car arg-9))) (let ((e-3 (cdr arg-9))) (let ((sc1 (PreludeC-45EqOrd-u--C-61C-61_Eq_Integer arg-8 e-2))) (cond ((equal? sc1 1) 1) (else (CoreC-45Unify-n--7719-7146-u--inArgs arg-0 arg-2 arg-4 arg-5 arg-6 arg-7 arg-8 e-3))))))))) +(define CoreC-45Unify-n--23353-20967-u--getHoleName (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Normalise-nf arg-0 '() e-5 '() arg-2) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (case (vector-ref e-6 0) ((1) (let ((e-2 (vector-ref e-6 2))) (case (vector-ref e-2 0) ((2) (let ((e-9 (vector-ref e-2 1))) (vector 1 (box e-9))))(else (vector 1 '())))))(else (vector 1 '()))))))))))))) +(define CoreC-45Unify-n--8513-7825-u--failOnStrongRigid (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (case (vector-ref arg-9 0) ((2) (let ((e-2 (vector-ref arg-9 2))) (let ((sc1 (cond ((equal? arg-7 1) (CoreC-45Name-u--C-61C-61_Eq_Name e-2 arg-2)) (else 0)))) (cond ((equal? sc1 1) arg-8) (else (lambda (eta-0) (vector 1 0)))))))(else (CoreC-45Unify-case--occursCheckC-44failOnStrongRigid-7906 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-9 arg-8 arg-7 (CoreC-45TT-getFnArgs arg-9)))))) +(define CoreC-45Unify-n--22903-20566-u--constraintToHole (lambda (arg-0 arg-1 arg-2 ext-0) (let ((e-2 (car arg-2))) (let ((e-3 (cdr arg-2))) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-lookupDefExact (vector 9 e-2) (let ((e-0 (vector-ref e-5 0))) e-0) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref act-25 1))) (if (null? e-8) (vector 1 0) (let ((e-1 (unbox e-8))) (case (vector-ref e-1 0) ((8) (CoreC-45Context-updateDef arg-1 (vector 9 e-2) (lambda (eta-0) (box (vector 7 0 (CoreC-45Context-holeInit 0)))) ext-0)) ((9) (CoreC-45Context-updateDef arg-1 (vector 9 e-2) (lambda (eta-0) (box (vector 7 0 (CoreC-45Context-holeInit 0)))) ext-0))(else (vector 1 0))))))))))))))))) +(define CoreC-45Unify-n--7161-6620-u--checkDefined (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 ext-0) (case (vector-ref arg-10 0) ((1) (let ((e-2 (vector-ref arg-10 2))) (case (vector-ref e-2 0) ((1) (let ((e-6 (vector-ref e-2 2))) (let ((act-24 ((CoreC-45Context-lookupCtxtExact e-6 (let ((e-0 (vector-ref arg-9 0))) e-0)) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref act-24 1))) (if (null? e-7) (CoreC-45Context-undefinedName arg-8 arg-6 e-6 ext-0) (vector 1 0))))))))(else (vector 1 0)))))(else (vector 1 0))))) +(define CoreC-45Unify-n--23353-20968-u--checkConstraint (lambda (arg-0 arg-1 arg-2) (if (null? arg-2) (lambda (eta-0) (vector 1 0)) (let ((e-2 (car arg-2))) (let ((e-3 (cdr arg-2))) (lambda (clam-0) (if (null? e-3) (vector 1 0) (let ((e-6 (car e-3))) (let ((e-7 (cdr e-3))) (case (vector-ref e-7 0) ((0) (let ((e-8 (vector-ref e-7 1))) (let ((e-9 (vector-ref e-7 2))) (let ((e-11 (vector-ref e-7 4))) (let ((e-12 (vector-ref e-7 5))) (let ((e-13 (vector-ref e-7 6))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Normalise-continueNF arg-0 e-8 e-5 e-11 e-12) clam-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-14 (vector-ref act-25 1))) (let ((act-26 ((CoreC-45Normalise-continueNF arg-0 e-8 e-5 e-11 e-13) clam-0))) (case (vector-ref act-26 0) ((0) (let ((e-4 (vector-ref act-26 1))) (vector 0 e-4))) (else (let ((e-15 (vector-ref act-26 1))) (let ((act-27 (CoreC-45Normalise-logNF e-8 arg-0 "unify.constraint" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Dot") e-11 e-15 clam-0))) (case (vector-ref act-27 0) ((0) (let ((e-4 (vector-ref act-27 1))) (vector 0 e-4))) (else (let ((act-28 (CoreC-45Normalise-logNF e-8 arg-0 "unify.constraint" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () " =") e-11 e-14 clam-0))) (case (vector-ref act-28 0) ((0) (let ((e-4 (vector-ref act-28 1))) (vector 0 e-4))) (else (let ((act-29 (let ((act-29 (unbox arg-1))) (vector 1 act-29)))) (case (vector-ref act-29 0) ((0) (let ((e-4 (vector-ref act-29 1))) (vector 0 e-4))) (else (let ((e-18 (vector-ref act-29 1))) (CoreC-45UnifyState-handleUnify arg-0 arg-1 (lambda (eta-0) (let ((act-30 (let ((act-30 (unbox arg-0))) (vector 1 act-30)))) (case (vector-ref act-30 0) ((0) (let ((e-4 (vector-ref act-30 1))) (vector 0 e-4))) (else (let ((e-19 (vector-ref act-30 1))) (let ((act-31 ((CoreC-45Context-getPosition e-2 (let ((e-0 (vector-ref e-19 0))) e-0)) eta-0))) (case (vector-ref act-31 0) ((0) (let ((e-4 (vector-ref act-31 1))) (vector 0 e-4))) (else (let ((e-20 (vector-ref act-31 1))) (let ((e-21 (car e-20))) (let ((act-32 (CoreC-45Unify-n--23353-20967-u--getHoleName arg-0 arg-1 (vector 2 e-9 e-2 e-21 '()) eta-0))) (case (vector-ref act-32 0) ((0) (let ((e-22 (vector-ref act-32 1))) (vector 0 e-22))) (else (let ((e-22 (vector-ref act-32 1))) (let ((act-33 ((((CoreC-45Unify-unify (cons (lambda (u--vars) (lambda (arg-6180) (lambda (arg-6183) (lambda (arg-6186) (lambda (arg-6187) (lambda (arg-6188) (lambda (arg-6190) (lambda (arg-6193) (CoreC-45Unify-u--unifyD_Unify_NF u--vars arg-6180 arg-6183 arg-6186 arg-6187 arg-6188 arg-6190 arg-6193))))))))) (lambda (u--vars) (lambda (arg-6195) (lambda (arg-6198) (lambda (arg-6201) (lambda (arg-6202) (lambda (arg-6203) (lambda (arg-6205) (lambda (arg-6206) (CoreC-45Unify-u--unifyWithLazyD_Unify_NF u--vars arg-6195 arg-6198 arg-6201 arg-6202 arg-6203 arg-6205 arg-6206)))))))))) e-8 arg-0 arg-1 (CoreC-45Unify-inMatch) e-9 e-11) e-14) e-15) eta-0))) (case (vector-ref act-33 0) ((0) (let ((e-23 (vector-ref act-33 1))) (vector 0 e-23))) (else (let ((e-23 (vector-ref act-33 1))) (let ((act-34 (let ((act-34 (unbox arg-0))) (vector 1 act-34)))) (case (vector-ref act-34 0) ((0) (let ((e-24 (vector-ref act-34 1))) (vector 0 e-24))) (else (let ((e-24 (vector-ref act-34 1))) (let ((act-35 ((PreludeC-45Types-maybe (lambda () (lambda (eta-1) (vector 1 0))) (lambda () (lambda (u--n) (lambda (eta-1) (let ((act-35 (CoreC-45Context-lookupDefExact u--n (let ((e-0 (vector-ref e-24 0))) e-0) eta-1))) (case (vector-ref act-35 0) ((0) (let ((e-25 (vector-ref act-35 1))) (vector 0 e-25))) (else (let ((e-25 (vector-ref act-35 1))) (if (null? e-25) (CoreC-45Context-undefinedName arg-0 e-9 u--n eta-1) (let ((e-1 (unbox e-25))) (vector 1 (case (vector-ref e-1 0) ((7) 0)(else 1)))))))))))) e-22) eta-0))) (case (vector-ref act-35 0) ((0) (let ((e-25 (vector-ref act-35 1))) (vector 0 e-25))) (else (let ((e-25 (vector-ref act-35 1))) (let ((act-36 (CoreC-45Unify-checkArgsSame arg-1 arg-0 (let ((e-27 (vector-ref e-23 2))) e-27) eta-0))) (case (vector-ref act-36 0) ((0) (let ((e-26 (vector-ref act-36 1))) (vector 0 e-26))) (else (let ((e-26 (vector-ref act-36 1))) (let ((sc17 (let ((sc18 (DataC-45List-isNil (let ((e-0 (vector-ref e-23 0))) e-0)))) (cond ((equal? sc18 1) (cond ((equal? e-25 1) 1) (else e-26))) (else 1))))) (cond ((equal? sc17 1) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 "Dot pattern match fail") eta-0)) (else (vector 1 0)))))))))))))))))))))))))))))))))) (lambda (u--err) (lambda (clam-1) (case (vector-ref u--err 0) ((57) (let ((act-30 (let ((act-30 (unbox arg-0))) (vector 1 act-30)))) (case (vector-ref act-30 0) ((0) (let ((e-4 (vector-ref act-30 1))) (vector 0 e-4))) (else (let ((e-19 (vector-ref act-30 1))) (let ((act-31 (CoreC-45Context-lookupTyExact e-2 (let ((e-46 (vector-ref e-19 0))) e-46) clam-1))) (case (vector-ref act-31 0) ((0) (let ((e-4 (vector-ref act-31 1))) (vector 0 e-4))) (else (let ((e-20 (vector-ref act-31 1))) (if (null? e-20) (CoreC-45Context-undefinedName arg-0 e-9 e-2 clam-1) (let ((e-1 (unbox e-20))) (let ((act-32 (CoreC-45Normalise-logTermNF '() arg-0 "unify.constraint" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Dot type") '() e-1 clam-1))) (case (vector-ref act-32 0) ((0) (let ((e-4 (vector-ref act-32 1))) (vector 0 e-4))) (else (let ((act-33 (let ((act-33 (set-box! arg-1 (let ((e-32 (vector-ref e-18 0))) (let ((e-31 (vector-ref e-18 1))) (let ((e-30 (vector-ref e-18 2))) (let ((e-29 (vector-ref e-18 3))) (let ((e-4 (vector-ref e-18 4))) (let ((e-28 (vector-ref e-18 5))) (let ((e-27 (vector-ref e-18 6))) (let ((e-25 (vector-ref e-18 8))) (let ((e-24 (vector-ref e-18 9))) (let ((e-23 (vector-ref e-18 10))) (let ((e-22 (vector-ref e-18 11))) (vector e-32 e-31 e-30 e-29 e-4 e-28 e-27 '() e-25 e-24 e-23 e-22))))))))))))))) (vector 1 act-33)))) (case (vector-ref act-33 0) ((0) (let ((e-4 (vector-ref act-33 1))) (vector 0 e-4))) (else (let ((act-34 (CoreC-45Context-clearDefs e-19 clam-1))) (case (vector-ref act-34 0) ((0) (let ((e-4 (vector-ref act-34 1))) (vector 0 e-4))) (else (let ((e-23 (vector-ref act-34 1))) (let ((act-35 (CoreC-45Normalise-u--quote_Quote_NF arg-0 e-8 e-23 e-11 e-14 clam-1))) (case (vector-ref act-35 0) ((0) (let ((e-4 (vector-ref act-35 1))) (vector 0 e-4))) (else (let ((e-24 (vector-ref act-35 1))) (let ((act-36 (CoreC-45Normalise-u--quote_Quote_NF arg-0 e-8 e-23 e-11 e-15 clam-1))) (case (vector-ref act-36 0) ((0) (let ((e-4 (vector-ref act-36 1))) (vector 0 e-4))) (else (let ((e-25 (vector-ref act-36 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 44 e-8 e-9 e-11 e-6 e-24 e-25) clam-1))))))))))))))))))))))))))))))(else (let ((act-30 (let ((act-30 (set-box! arg-1 (let ((e-0 (vector-ref e-18 0))) (let ((e-1 (vector-ref e-18 1))) (let ((e-27 (vector-ref e-18 2))) (let ((e-26 (vector-ref e-18 3))) (let ((e-4 (vector-ref e-18 4))) (let ((e-25 (vector-ref e-18 5))) (let ((e-24 (vector-ref e-18 6))) (let ((e-22 (vector-ref e-18 8))) (let ((e-21 (vector-ref e-18 9))) (let ((e-20 (vector-ref e-18 10))) (let ((e-19 (vector-ref e-18 11))) (vector e-0 e-1 e-27 e-26 e-4 e-25 e-24 '() e-22 e-21 e-20 e-19))))))))))))))) (vector 1 act-30)))) (case (vector-ref act-30 0) ((0) (let ((e-4 (vector-ref act-30 1))) (vector 0 e-4))) (else (CoreC-45Core-u--throw_Catchable_Core_Error u--err clam-1)))))))) clam-0)))))))))))))))))))))))))))))(else (vector 1 0)))))))))))) +(define CoreC-45Unify-n--23038-20702-u--anySame (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (if (null? arg-5) (vector 1 0) (let ((e-2 (car arg-5))) (let ((e-3 (cdr arg-5))) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-lookupDefExact (vector 9 e-2) (let ((e-0 (vector-ref e-5 0))) e-0) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref act-25 1))) (if (null? e-6) (CoreC-45Unify-n--23038-20702-u--anySame arg-0 arg-1 arg-2 arg-3 arg-4 e-3 ext-0) (let ((e-1 (unbox e-6))) (case (vector-ref e-1 0) ((1) (let ((e-9 (vector-ref e-1 2))) (let ((e-4 (vector-ref e-1 3))) (if (null? e-9) (case (vector-ref e-4 0) ((1) (let ((e-12 (vector-ref e-4 1))) (let ((e-11 (vector-ref e-4 2))) (cond ((equal? e-12 0) (let ((act-26 (CoreC-45Normalise-u--convert_Convert_Term arg-2 '() e-5 '() arg-4 e-11 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-13 (vector-ref act-26 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref act-26 1))) (cond ((equal? e-13 1) (vector 1 1)) (else (CoreC-45Unify-n--23038-20702-u--anySame arg-0 arg-1 arg-2 arg-3 arg-4 e-3 ext-0))))))))(else (CoreC-45Unify-n--23038-20702-u--anySame arg-0 arg-1 arg-2 arg-3 arg-4 e-3 ext-0))))))(else (CoreC-45Unify-n--23038-20702-u--anySame arg-0 arg-1 arg-2 arg-3 arg-4 e-3 ext-0))) (CoreC-45Unify-n--23038-20702-u--anySame arg-0 arg-1 arg-2 arg-3 arg-4 e-3 ext-0)))))(else (CoreC-45Unify-n--23038-20702-u--anySame arg-0 arg-1 arg-2 arg-3 arg-4 e-3 ext-0)))))))))))))))))) +(define CoreC-45Unify-n--7850-7255-u--anyFirst (lambda (arg-0 arg-1 arg-2 arg-3) (if (null? arg-3) 0 (let ((e-2 (car arg-3))) (let ((e-3 (cdr arg-3))) (cond ((equal? e-2 0) 1)(else (CoreC-45Unify-n--7850-7255-u--anyFirst arg-0 arg-1 arg-2 e-3)))))))) +(define CoreC-45Unify-n--22845-20512-u--afterStart (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-6) (let ((e-2 (car arg-6))) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int e-2 arg-2)))) +(define CoreC-45Unify-u--weaken_Weaken_C-40IVarsC-32C-36vsC-41 (lambda (arg-3) (if (null? arg-3) '() (let ((e-4 (car arg-3))) (let ((e-5 (cdr arg-3))) (if (null? e-4) (cons '() (CoreC-45Unify-u--weaken_Weaken_C-40IVarsC-32C-36vsC-41 e-5)) (let ((e-8 (unbox e-4))) (cons (box (CoreC-45TT-u--weaken_Weaken_Var e-8)) (CoreC-45Unify-u--weaken_Weaken_C-40IVarsC-32C-36vsC-41 e-5))))))))) +(define CoreC-45Unify-u--unifyWithLazyD_Unify_Term (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-clearDefs e-5 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((sc2 (CoreC-45TT-u--C-61C-61_Eq_C-40TermC-32C-36varsC-41 arg-6 arg-7))) (cond ((equal? sc2 1) (let ((act-26 (CoreC-45ContextC-45Log-log arg-1 "unify.equal" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Skipped unification (equal already): " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 arg-6) (PreludeC-45TypesC-45String-C-43C-43 " and " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 arg-7))))) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (vector 1 (CoreC-45Unify-success)))))) (else (let ((act-26 ((CoreC-45Normalise-nf arg-1 arg-0 e-5 arg-5 arg-6) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 ((CoreC-45Normalise-nf arg-1 arg-0 e-5 arg-5 arg-7) ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) ((((CoreC-45Unify-unifyWithLazy (cons (lambda (u--vars) (lambda (arg-6180) (lambda (arg-6183) (lambda (arg-6186) (lambda (arg-6187) (lambda (arg-6188) (lambda (arg-6190) (lambda (arg-6193) (CoreC-45Unify-u--unifyD_Unify_NF u--vars arg-6180 arg-6183 arg-6186 arg-6187 arg-6188 arg-6190 arg-6193))))))))) (lambda (u--vars) (lambda (arg-6195) (lambda (arg-6198) (lambda (arg-6201) (lambda (arg-6202) (lambda (arg-6203) (lambda (arg-6205) (lambda (arg-6206) (CoreC-45Unify-u--unifyWithLazyD_Unify_NF u--vars arg-6195 arg-6198 arg-6201 arg-6202 arg-6203 arg-6205 arg-6206)))))))))) arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) e-7) e-8) ext-0))))))))))))))))))))) +(define CoreC-45Unify-u--unifyWithLazyD_Unify_NF (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (case (vector-ref arg-6 0) ((5) (let ((e-5 (vector-ref arg-6 1))) (let ((e-6 (vector-ref arg-6 2))) (let ((e-7 (vector-ref arg-6 3))) (case (vector-ref arg-7 0) ((5) (let ((e-11 (vector-ref arg-7 3))) (((CoreC-45Unify-unify (cons (lambda (u--vars) (lambda (arg-6180) (lambda (arg-6183) (lambda (arg-6186) (lambda (arg-6187) (lambda (arg-6188) (lambda (arg-6190) (lambda (arg-6193) (CoreC-45Unify-u--unifyD_Unify_NF u--vars arg-6180 arg-6183 arg-6186 arg-6187 arg-6188 arg-6190 arg-6193))))))))) (lambda (u--vars) (lambda (arg-6195) (lambda (arg-6198) (lambda (arg-6201) (lambda (arg-6202) (lambda (arg-6203) (lambda (arg-6205) (lambda (arg-6206) (CoreC-45Unify-u--unifyWithLazyD_Unify_NF u--vars arg-6195 arg-6198 arg-6201 arg-6202 arg-6203 arg-6205 arg-6206)))))))))) arg-0 arg-1 arg-2 (CoreC-45Unify-lower arg-3) arg-4 arg-5) e-7) e-11)))(else (let ((u--x (vector 5 e-5 e-6 e-7))) (lambda (clam-0) (let ((sc1 (let ((sc2 (CoreC-45Unify-isHoleApp arg-7))) (cond ((equal? sc2 1) (let ((sc3 (CoreC-45Unify-u--C-61C-61_Eq_UnifyMode (let ((e-1 (cdr arg-3))) e-1) 2))) (cond ((equal? sc3 1) 0) (else 1)))) (else 0))))) (cond ((equal? sc1 1) (CoreC-45Unify-postpone arg-0 arg-1 arg-2 arg-4 arg-3 "Postponing in lazy" arg-5 u--x arg-7 clam-0)) (else (let ((act-24 ((((CoreC-45Unify-unify (cons (lambda (u--vars) (lambda (arg-6180) (lambda (arg-6183) (lambda (arg-6186) (lambda (arg-6187) (lambda (arg-6188) (lambda (arg-6190) (lambda (arg-6193) (CoreC-45Unify-u--unifyD_Unify_NF u--vars arg-6180 arg-6183 arg-6186 arg-6187 arg-6188 arg-6190 arg-6193))))))))) (lambda (u--vars) (lambda (arg-6195) (lambda (arg-6198) (lambda (arg-6201) (lambda (arg-6202) (lambda (arg-6203) (lambda (arg-6205) (lambda (arg-6206) (CoreC-45Unify-u--unifyWithLazyD_Unify_NF u--vars arg-6195 arg-6198 arg-6201 arg-6202 arg-6203 arg-6205 arg-6206)))))))))) arg-0 arg-1 arg-2 (CoreC-45Unify-lower arg-3) arg-4 arg-5) e-7) arg-7) clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-24 1))) (vector 1 (let ((e-0 (vector-ref e-8 0))) (let ((e-1 (vector-ref e-8 1))) (let ((e-2 (vector-ref e-8 2))) (vector e-0 e-1 e-2 (vector 1 e-6)))))))))))))))))))))(else (case (vector-ref arg-7 0) ((5) (let ((e-2 (vector-ref arg-7 2))) (let ((e-3 (vector-ref arg-7 3))) (lambda (eta-0) (let ((act-24 ((((CoreC-45Unify-unify (cons (lambda (u--vars) (lambda (arg-6180) (lambda (arg-6183) (lambda (arg-6186) (lambda (arg-6187) (lambda (arg-6188) (lambda (arg-6190) (lambda (arg-6193) (CoreC-45Unify-u--unifyD_Unify_NF u--vars arg-6180 arg-6183 arg-6186 arg-6187 arg-6188 arg-6190 arg-6193))))))))) (lambda (u--vars) (lambda (arg-6195) (lambda (arg-6198) (lambda (arg-6201) (lambda (arg-6202) (lambda (arg-6203) (lambda (arg-6205) (lambda (arg-6206) (CoreC-45Unify-u--unifyWithLazyD_Unify_NF u--vars arg-6195 arg-6198 arg-6201 arg-6202 arg-6203 arg-6205 arg-6206)))))))))) arg-0 arg-1 arg-2 (CoreC-45Unify-lower arg-3) arg-4 arg-5) arg-6) e-3) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (let ((e-0 (vector-ref e-5 0))) (let ((e-7 (vector-ref e-5 1))) (let ((e-6 (vector-ref e-5 2))) (vector e-0 e-7 e-6 (vector 2 e-2))))))))))))))(else (((CoreC-45Unify-unify (cons (lambda (u--vars) (lambda (arg-6180) (lambda (arg-6183) (lambda (arg-6186) (lambda (arg-6187) (lambda (arg-6188) (lambda (arg-6190) (lambda (arg-6193) (CoreC-45Unify-u--unifyD_Unify_NF u--vars arg-6180 arg-6183 arg-6186 arg-6187 arg-6188 arg-6190 arg-6193))))))))) (lambda (u--vars) (lambda (arg-6195) (lambda (arg-6198) (lambda (arg-6201) (lambda (arg-6202) (lambda (arg-6203) (lambda (arg-6205) (lambda (arg-6206) (CoreC-45Unify-u--unifyWithLazyD_Unify_NF u--vars arg-6195 arg-6198 arg-6201 arg-6202 arg-6203 arg-6205 arg-6206)))))))))) arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) arg-6) arg-7))))))) (define CoreC-45Unify-u--unifyWithLazyD_Unify_Closure (lambda (arg-0 ext-7 ext-1 ext-2 ext-3 ext-4 ext-5 ext-6 ext-0) (CoreC-45Unify-u--unifyD_Unify_Closure arg-0 ext-7 ext-1 ext-2 ext-3 ext-4 ext-5 ext-6 ext-0))) -(define CoreC-45Unify-u--unifyD_Unify_Term (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (CoreC-45Context-clearDefs e-5 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (CoreC-45Normalise-u--convert_Convert_Term arg-1 arg-0 e-6 arg-5 arg-6 arg-7 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (cond ((equal? sc3 0) (let ((act-27 (CoreC-45ContextC-45Log-log arg-1 "unify.equal" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Skipped unification (equal already): " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 arg-6) (PreludeC-45TypesC-45String-C-43C-43 " and " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 arg-7))))) ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (vector 1 (CoreC-45Unify-success))))))) (else (let ((act-27 ((CoreC-45Normalise-nf arg-1 arg-0 e-5 arg-5 arg-6) ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 ((CoreC-45Normalise-nf arg-1 arg-0 e-5 arg-5 arg-7) ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) ((((CoreC-45Unify-unify (cons (lambda (u--vars) (lambda (arg-4911) (lambda (arg-4913) (lambda (arg-4915) (lambda (arg-4916) (lambda (arg-4917) (lambda (arg-4919) (lambda (arg-4922) (CoreC-45Unify-u--unifyD_Unify_NF u--vars arg-4911 arg-4913 arg-4915 arg-4916 arg-4917 arg-4919 arg-4922))))))))) (lambda (u--vars) (lambda (arg-4924) (lambda (arg-4926) (lambda (arg-4928) (lambda (arg-4929) (lambda (arg-4930) (lambda (arg-4932) (lambda (arg-4933) (CoreC-45Unify-u--unifyWithLazyD_Unify_NF u--vars arg-4924 arg-4926 arg-4928 arg-4929 arg-4930 arg-4932 arg-4933)))))))))) arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) e-8) e-9) ext-0))))))))))))))))))))))))))))))) -(define CoreC-45Unify-u--unifyD_Unify_NF (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 4))) (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((0) (let ((e-21 (vector-ref sc1 1))) (let ((e-22 (vector-ref sc1 2))) (let ((e-23 (vector-ref sc1 3))) (let ((e-24 (vector-ref sc1 4))) (CoreC-45Unify-unifyBothBinders arg-1 arg-2 arg-0 arg-3 arg-4 arg-5 e-11 e-12 e-13 e-14 e-21 e-22 e-23 e-24))))))(else (let ((sc1 e-13)) (case (vector-ref sc1 0) ((0) (let ((e-16 (vector-ref sc1 1))) (let ((e-17 (vector-ref sc1 2))) (let ((e-18 (vector-ref sc1 3))) (let ((e-19 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (CoreC-45Normalise-logNF arg-0 arg-1 "unify" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "EtaR") arg-5 arg-6 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45Normalise-logNF arg-0 arg-1 "unify" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "...with") arg-5 arg-7 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((u--tmx (vector 0 e-11 e-12 (vector 0 e-16 e-17 e-18 e-19) e-14))) ((CoreC-45Unify-case--unifyD-15735 arg-0 arg-1 arg-2 arg-7 e-19 e-18 e-17 e-16 e-14 e-12 e-11 u--tmx arg-5 arg-4 arg-3 e-5 (CoreC-45Unify-isHoleApp arg-7)) eta-0)))))))))))))))))))))(else (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((0) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((e-3 (vector-ref sc1 3))) (let ((e-4 (vector-ref sc1 4))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (let ((e-8 (vector-ref sc2 3))) (let ((e-9 (vector-ref sc2 4))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-5 (vector-ref sc3 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (CoreC-45Normalise-logNF arg-0 arg-1 "unify" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "EtaL") arg-5 arg-6 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (vector 0 e-10))) (else (let ((act-26 (CoreC-45Normalise-logNF arg-0 arg-1 "unify" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "...with") arg-5 arg-7 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-15 (vector-ref sc5 1))) (vector 0 e-15))) (else (let ((u--tmy (vector 0 e-1 e-2 (vector 0 e-6 e-7 e-8 e-9) e-4))) ((CoreC-45Unify-case--unifyD-16006 arg-0 arg-1 arg-2 e-9 e-8 e-7 e-6 e-4 e-2 e-1 u--tmy arg-6 arg-5 arg-4 arg-3 e-5 (CoreC-45Unify-isHoleApp arg-6)) eta-0)))))))))))))))))))))(else (CoreC-45Unify-unifyNoEta arg-1 arg-2 arg-0 arg-3 arg-4 arg-5 arg-6 arg-7)))))))))(else (CoreC-45Unify-unifyNoEta arg-1 arg-2 arg-0 arg-3 arg-4 arg-5 arg-6 arg-7)))))))))))))))(else (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (let ((e-9 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (CoreC-45Normalise-logNF arg-0 arg-1 "unify" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "EtaL") arg-5 arg-6 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 1))) (vector 0 e-10))) (else (let ((act-26 (CoreC-45Normalise-logNF arg-0 arg-1 "unify" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "...with") arg-5 arg-7 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-11 (vector-ref sc4 1))) (vector 0 e-11))) (else (let ((u--tmy (vector 0 e-1 e-2 (vector 0 e-6 e-7 e-8 e-9) e-4))) ((CoreC-45Unify-case--unifyD-16006 arg-0 arg-1 arg-2 e-9 e-8 e-7 e-6 e-4 e-2 e-1 u--tmy arg-6 arg-5 arg-4 arg-3 e-5 (CoreC-45Unify-isHoleApp arg-6)) eta-0)))))))))))))))))))))(else (CoreC-45Unify-unifyNoEta arg-1 arg-2 arg-0 arg-3 arg-4 arg-5 arg-6 arg-7)))))))))(else (CoreC-45Unify-unifyNoEta arg-1 arg-2 arg-0 arg-3 arg-4 arg-5 arg-6 arg-7))))))))) -(define CoreC-45Unify-u--unifyD_Unify_Closure (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (CoreC-45Context-clearDefs e-5 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (CoreC-45Normalise-u--convert_Convert_Closure arg-1 arg-0 e-6 arg-5 arg-6 arg-7 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (cond ((equal? sc3 0) (vector 1 (CoreC-45Unify-success))) (else (let ((act-27 ((CoreC-45Normalise-evalClosure arg-1 arg-0 e-5 arg-6) ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 ((CoreC-45Normalise-evalClosure arg-1 arg-0 e-5 arg-7) ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) ((((CoreC-45Unify-unify (cons (lambda (u--vars) (lambda (arg-4911) (lambda (arg-4913) (lambda (arg-4915) (lambda (arg-4916) (lambda (arg-4917) (lambda (arg-4919) (lambda (arg-4922) (CoreC-45Unify-u--unifyD_Unify_NF u--vars arg-4911 arg-4913 arg-4915 arg-4916 arg-4917 arg-4919 arg-4922))))))))) (lambda (u--vars) (lambda (arg-4924) (lambda (arg-4926) (lambda (arg-4928) (lambda (arg-4929) (lambda (arg-4930) (lambda (arg-4932) (lambda (arg-4933) (CoreC-45Unify-u--unifyWithLazyD_Unify_NF u--vars arg-4924 arg-4926 arg-4928 arg-4929 arg-4930 arg-4932 arg-4933)))))))))) arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) e-8) e-9) ext-0))))))))))))))))))))))))))))))) -(define CoreC-45Unify-u--show_Show_UnifyMode (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) "InLHS") ((1) "InTerm") ((2) "InMatch") (else "InSearch"))))) -(define CoreC-45Unify-u--show_Show_AddLazy (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) "NoLazy") ((1) "AddForce") (else "AddDelay"))))) -(define CoreC-45Unify-u--C-61C-61_Eq_UnifyMode (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) 0)(else 1)))) ((1) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) 0)(else 1)))) ((2) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((2) 0)(else 1)))) ((3) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((3) 0)(else 1))))(else 1))))) -(define CoreC-45Unify-u--C-61C-61_Eq_SolveMode (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) 0)(else 1)))) ((1) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) 0)(else 1)))) ((3) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((3) 0)(else 1))))(else 1))))) -(define CoreC-45Unify-u--C-47C-61_Eq_UnifyMode (lambda (arg-0 arg-1) (let ((sc0 (CoreC-45Unify-u--C-61C-61_Eq_UnifyMode arg-0 arg-1))) (cond ((equal? sc0 0) 1) (else 0))))) -(define CoreC-45Unify-unionAll (lambda (arg-0) (let ((sc0 arg-0)) (if (null? sc0) (vector 0 '() 1 '() (vector 0 )) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-3)) (if (null? sc1) e-2 (CoreC-45Unify-union e-2 (CoreC-45Unify-unionAll e-3)))))))))) -(define CoreC-45Unify-union (lambda (arg-0 arg-1) (vector 0 (DataC-45List-union (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0)) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) e-0))) (PreludeC-45Basics-C-124C-124 (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1)) (lambda () (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 2))) e-1)))) (PreludeC-45TypesC-45List-C-43C-43 (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2)) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 3))) e-2))) (vector 0 )))) -(define CoreC-45Unify-unifyWithLazy (lambda (arg-1 arg-2 arg-3 arg-4 ext-2 ext-1 ext-0) (let ((sc0 arg-1)) (let ((e-2 (cdr sc0))) (lambda (arg-5) (lambda (arg-6) ((((((((e-2 arg-2) arg-3) arg-4) ext-2) ext-1) ext-0) arg-5) arg-6))))))) -(define CoreC-45Unify-unifyNoEta (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((2) (let ((e-15 (vector-ref sc0 1))) (let ((e-16 (vector-ref sc0 2))) (let ((e-17 (vector-ref sc0 3))) (let ((e-18 (vector-ref sc0 4))) (let ((e-19 (vector-ref sc0 5))) (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((2) (let ((e-45 (vector-ref sc1 1))) (let ((e-46 (vector-ref sc1 2))) (let ((e-47 (vector-ref sc1 3))) (let ((e-48 (vector-ref sc1 4))) (let ((e-49 (vector-ref sc1 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (CoreC-45Unify-case--unifyNoEta-14781 arg-2 e-19 e-18 e-17 e-16 e-15 e-49 e-48 e-47 e-46 e-45 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (PreludeC-45EqOrd-u--C-61C-61_Eq_Int e-17 e-47) eta-0)))))))))))))(else (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (CoreC-45Unify-case--unifyNoEta-15246 arg-2 e-8 e-7 e-6 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (CoreC-45Unify-u--C-47C-61_Eq_UnifyMode (let ((sc2 arg-3)) (let ((e-1 (cdr sc2))) e-1)) (vector 2 ))))))) ((4) (let ((e-13 (vector-ref sc1 4))) (CoreC-45Unify-unifyNoEta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-13)))(else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((4) (let ((e-4 (vector-ref sc1 4))) (CoreC-45Unify-unifyNoEta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-4 arg-7)))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Context-clearDefs e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45ContextC-45Log-log arg-0 "unify.noeta" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Nothing else worked, unifyIfEq") eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (CoreC-45Unify-unifyIfEq arg-0 arg-1 arg-2 (PreludeC-45Basics-C-124C-124 (CoreC-45Unify-n--14595-15333-u--isDelay arg-2 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 arg-6) (lambda () (CoreC-45Unify-n--14595-15333-u--isDelay arg-2 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 arg-7))) arg-4 arg-3 arg-5 arg-6 arg-7 eta-0)))))))))))))))))))))))))))))) ((3) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (let ((e-24 (vector-ref sc0 4))) (let ((e-25 (vector-ref sc0 5))) (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((3) (let ((e-51 (vector-ref sc1 1))) (let ((e-52 (vector-ref sc1 2))) (let ((e-53 (vector-ref sc1 3))) (let ((e-54 (vector-ref sc1 4))) (let ((e-55 (vector-ref sc1 5))) (lambda (eta-0) (let ((act-24 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-1) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-1)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) e-22 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-1) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-1)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) e-52 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (CoreC-45ContextC-45Log-log arg-0 "unify" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))))))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Comparing type constructors " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-5) (PreludeC-45TypesC-45String-C-43C-43 " and " (CoreC-45Name-u--show_Show_Name e-6))))) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else ((CoreC-45Unify-case--unifyNoEta-14945 arg-2 e-25 e-24 e-23 e-22 e-21 e-55 e-54 e-53 e-52 e-51 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 e-6 (CoreC-45Name-u--C-61C-61_Eq_Name e-5 e-6)) eta-0))))))))))))))))))))))(else (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (CoreC-45Unify-case--unifyNoEta-15246 arg-2 e-8 e-7 e-6 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (CoreC-45Unify-u--C-47C-61_Eq_UnifyMode (let ((sc2 arg-3)) (let ((e-1 (cdr sc2))) e-1)) (vector 2 ))))))) ((4) (let ((e-13 (vector-ref sc1 4))) (CoreC-45Unify-unifyNoEta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-13)))(else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((4) (let ((e-4 (vector-ref sc1 4))) (CoreC-45Unify-unifyNoEta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-4 arg-7)))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Context-clearDefs e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45ContextC-45Log-log arg-0 "unify.noeta" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Nothing else worked, unifyIfEq") eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (CoreC-45Unify-unifyIfEq arg-0 arg-1 arg-2 (PreludeC-45Basics-C-124C-124 (CoreC-45Unify-n--14595-15333-u--isDelay arg-2 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 arg-6) (lambda () (CoreC-45Unify-n--14595-15333-u--isDelay arg-2 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 arg-7))) arg-4 arg-3 arg-5 arg-6 arg-7 eta-0)))))))))))))))))))))))))))))) ((5) (let ((e-29 (vector-ref sc0 3))) (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((5) (let ((e-59 (vector-ref sc1 3))) (((CoreC-45Unify-unify (cons (lambda (u--vars) (lambda (arg-4911) (lambda (arg-4913) (lambda (arg-4915) (lambda (arg-4916) (lambda (arg-4917) (lambda (arg-4919) (lambda (arg-4922) (CoreC-45Unify-u--unifyD_Unify_NF u--vars arg-4911 arg-4913 arg-4915 arg-4916 arg-4917 arg-4919 arg-4922))))))))) (lambda (u--vars) (lambda (arg-4924) (lambda (arg-4926) (lambda (arg-4928) (lambda (arg-4929) (lambda (arg-4930) (lambda (arg-4932) (lambda (arg-4933) (CoreC-45Unify-u--unifyWithLazyD_Unify_NF u--vars arg-4924 arg-4926 arg-4928 arg-4929 arg-4930 arg-4932 arg-4933)))))))))) arg-2 arg-0 arg-1 (CoreC-45Unify-lower arg-3) arg-4 arg-5) e-29) e-59)))(else (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (CoreC-45Unify-case--unifyNoEta-15246 arg-2 e-8 e-7 e-6 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (CoreC-45Unify-u--C-47C-61_Eq_UnifyMode (let ((sc2 arg-3)) (let ((e-1 (cdr sc2))) e-1)) (vector 2 ))))))) ((4) (let ((e-13 (vector-ref sc1 4))) (CoreC-45Unify-unifyNoEta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-13)))(else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((4) (let ((e-4 (vector-ref sc1 4))) (CoreC-45Unify-unifyNoEta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-4 arg-7)))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Context-clearDefs e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45ContextC-45Log-log arg-0 "unify.noeta" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Nothing else worked, unifyIfEq") eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (CoreC-45Unify-unifyIfEq arg-0 arg-1 arg-2 (PreludeC-45Basics-C-124C-124 (CoreC-45Unify-n--14595-15333-u--isDelay arg-2 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 arg-6) (lambda () (CoreC-45Unify-n--14595-15333-u--isDelay arg-2 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 arg-7))) arg-4 arg-3 arg-5 arg-6 arg-7 eta-0)))))))))))))))))))))))))) ((6) (let ((e-33 (vector-ref sc0 3))) (let ((e-34 (vector-ref sc0 4))) (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((6) (let ((e-63 (vector-ref sc1 3))) (let ((e-64 (vector-ref sc1 4))) (CoreC-45Unify-unifyArgs (cons (cons (lambda (u--vars) (lambda (arg-4911) (lambda (arg-4913) (lambda (arg-4915) (lambda (arg-4916) (lambda (arg-4917) (lambda (arg-4919) (lambda (arg-4922) (lambda (eta-0) (CoreC-45Unify-u--unifyD_Unify_Closure u--vars arg-4911 arg-4913 arg-4915 arg-4916 arg-4917 arg-4919 arg-4922 eta-0)))))))))) (lambda (u--vars) (lambda (arg-4924) (lambda (arg-4926) (lambda (arg-4928) (lambda (arg-4929) (lambda (arg-4930) (lambda (arg-4932) (lambda (arg-4933) (lambda (eta-0) (CoreC-45Unify-u--unifyWithLazyD_Unify_Closure u--vars arg-4924 arg-4926 arg-4928 arg-4929 arg-4930 arg-4932 arg-4933 eta-0))))))))))) (cons (lambda (u--c) (lambda (u--vars) (lambda (arg-5365) (lambda (arg-5366) (lambda (arg-5368) (lambda (eta-0) (CoreC-45Normalise-u--quote_Quote_Closure u--c u--vars arg-5365 arg-5366 arg-5368 eta-0))))))) (lambda (u--c) (lambda (u--vars) (lambda (arg-5373) (lambda (arg-5375) (lambda (arg-5376) (lambda (arg-5378) (lambda (eta-0) (CoreC-45Normalise-u--quoteGen_Quote_Closure u--c u--vars arg-5373 arg-5375 arg-5376 arg-5378 eta-0)))))))))) arg-2 arg-0 arg-1 arg-3 arg-4 arg-5 (cons e-33 (cons e-34 '())) (cons e-63 (cons e-64 '()))))))(else (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (CoreC-45Unify-case--unifyNoEta-15246 arg-2 e-8 e-7 e-6 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (CoreC-45Unify-u--C-47C-61_Eq_UnifyMode (let ((sc2 arg-3)) (let ((e-1 (cdr sc2))) e-1)) (vector 2 ))))))) ((4) (let ((e-13 (vector-ref sc1 4))) (CoreC-45Unify-unifyNoEta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-13)))(else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((4) (let ((e-4 (vector-ref sc1 4))) (CoreC-45Unify-unifyNoEta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-4 arg-7)))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Context-clearDefs e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45ContextC-45Log-log arg-0 "unify.noeta" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Nothing else worked, unifyIfEq") eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (CoreC-45Unify-unifyIfEq arg-0 arg-1 arg-2 (PreludeC-45Basics-C-124C-124 (CoreC-45Unify-n--14595-15333-u--isDelay arg-2 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 arg-6) (lambda () (CoreC-45Unify-n--14595-15333-u--isDelay arg-2 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 arg-7))) arg-4 arg-3 arg-5 arg-6 arg-7 eta-0))))))))))))))))))))))))))) ((7) (let ((e-38 (vector-ref sc0 3))) (let ((e-39 (vector-ref sc0 4))) (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((7) (let ((e-68 (vector-ref sc1 3))) (let ((e-69 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 ((((CoreC-45Unify-unify (cons (lambda (u--vars) (lambda (arg-4911) (lambda (arg-4913) (lambda (arg-4915) (lambda (arg-4916) (lambda (arg-4917) (lambda (arg-4919) (lambda (arg-4922) (CoreC-45Unify-u--unifyD_Unify_NF u--vars arg-4911 arg-4913 arg-4915 arg-4916 arg-4917 arg-4919 arg-4922))))))))) (lambda (u--vars) (lambda (arg-4924) (lambda (arg-4926) (lambda (arg-4928) (lambda (arg-4929) (lambda (arg-4930) (lambda (arg-4932) (lambda (arg-4933) (CoreC-45Unify-u--unifyWithLazyD_Unify_NF u--vars arg-4924 arg-4926 arg-4928 arg-4929 arg-4930 arg-4932 arg-4933)))))))))) arg-2 arg-0 arg-1 (CoreC-45Unify-lower arg-3) arg-4 arg-5) e-38) e-68) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((CoreC-45Unify-unifyArgs (cons (cons (lambda (u--vars) (lambda (arg-4911) (lambda (arg-4913) (lambda (arg-4915) (lambda (arg-4916) (lambda (arg-4917) (lambda (arg-4919) (lambda (arg-4922) (lambda (eta-1) (CoreC-45Unify-u--unifyD_Unify_Closure u--vars arg-4911 arg-4913 arg-4915 arg-4916 arg-4917 arg-4919 arg-4922 eta-1)))))))))) (lambda (u--vars) (lambda (arg-4924) (lambda (arg-4926) (lambda (arg-4928) (lambda (arg-4929) (lambda (arg-4930) (lambda (arg-4932) (lambda (arg-4933) (lambda (eta-1) (CoreC-45Unify-u--unifyWithLazyD_Unify_Closure u--vars arg-4924 arg-4926 arg-4928 arg-4929 arg-4930 arg-4932 arg-4933 eta-1))))))))))) (cons (lambda (u--c) (lambda (u--vars) (lambda (arg-5365) (lambda (arg-5366) (lambda (arg-5368) (lambda (eta-1) (CoreC-45Normalise-u--quote_Quote_Closure u--c u--vars arg-5365 arg-5366 arg-5368 eta-1))))))) (lambda (u--c) (lambda (u--vars) (lambda (arg-5373) (lambda (arg-5375) (lambda (arg-5376) (lambda (arg-5378) (lambda (eta-1) (CoreC-45Normalise-u--quoteGen_Quote_Closure u--c u--vars arg-5373 arg-5375 arg-5376 arg-5378 eta-1)))))))))) arg-2 arg-0 arg-1 arg-3 arg-4 arg-5 (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) e-39) (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) e-69)) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 (CoreC-45Unify-union e-5 e-6))))))))))))))))(else (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (CoreC-45Unify-case--unifyNoEta-15246 arg-2 e-8 e-7 e-6 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (CoreC-45Unify-u--C-47C-61_Eq_UnifyMode (let ((sc2 arg-3)) (let ((e-1 (cdr sc2))) e-1)) (vector 2 ))))))) ((4) (let ((e-13 (vector-ref sc1 4))) (CoreC-45Unify-unifyNoEta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-13)))(else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((4) (let ((e-4 (vector-ref sc1 4))) (CoreC-45Unify-unifyNoEta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-4 arg-7)))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Context-clearDefs e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45ContextC-45Log-log arg-0 "unify.noeta" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Nothing else worked, unifyIfEq") eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (CoreC-45Unify-unifyIfEq arg-0 arg-1 arg-2 (PreludeC-45Basics-C-124C-124 (CoreC-45Unify-n--14595-15333-u--isDelay arg-2 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 arg-6) (lambda () (CoreC-45Unify-n--14595-15333-u--isDelay arg-2 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 arg-7))) arg-4 arg-3 arg-5 arg-6 arg-7 eta-0))))))))))))))))))))))))))) ((1) (let ((e-41 (vector-ref sc0 1))) (let ((e-42 (vector-ref sc0 2))) (let ((e-43 (vector-ref sc0 3))) (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((1) (let ((e-71 (vector-ref sc1 1))) (let ((e-72 (vector-ref sc1 2))) (let ((e-73 (vector-ref sc1 3))) (CoreC-45Unify-unifyBothApps arg-0 arg-1 arg-2 (CoreC-45Unify-lower arg-3) arg-4 arg-5 e-41 e-42 e-43 e-71 e-72 e-73)))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 (CoreC-45Unify-lower arg-3) arg-4 arg-5 e-41 e-42 e-43 arg-7))))))))(else (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (CoreC-45Unify-case--unifyNoEta-15246 arg-2 e-8 e-7 e-6 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (CoreC-45Unify-u--C-47C-61_Eq_UnifyMode (let ((sc1 arg-3)) (let ((e-1 (cdr sc1))) e-1)) (vector 2 ))))))) ((4) (let ((e-13 (vector-ref sc0 4))) (CoreC-45Unify-unifyNoEta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-13)))(else (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((4) (let ((e-4 (vector-ref sc0 4))) (CoreC-45Unify-unifyNoEta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-4 arg-7)))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (CoreC-45Context-clearDefs e-5 eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45ContextC-45Log-log arg-0 "unify.noeta" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Nothing else worked, unifyIfEq") eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (CoreC-45Unify-unifyIfEq arg-0 arg-1 arg-2 (PreludeC-45Basics-C-124C-124 (CoreC-45Unify-n--14595-15333-u--isDelay arg-2 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 arg-6) (lambda () (CoreC-45Unify-n--14595-15333-u--isDelay arg-2 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 arg-7))) arg-4 arg-3 arg-5 arg-6 arg-7 eta-0)))))))))))))))))))))))))) -(define CoreC-45Unify-unifyInvertible (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (CoreC-45Context-lookupTyExact (vector 9 arg-8) (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0)) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((act-26 (let ((act-26 ((CoreC-45Normalise-nf arg-0 arg-2 e-5 arg-6 (CoreC-45TT-embed e-1)) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) ((CoreC-45Unify-getArgTypes e-5 e-7 (PreludeC-45TypesC-45List-C-43C-43 arg-9 arg-10)) ext-0)))))))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((PreludeC-45Types-maybe (lambda () (lambda (eta-0) (vector 1 (vector 0 )))) (lambda () (lambda (u--ty) (lambda (eta-0) (let ((act-27 ((CoreC-45Normalise-nf arg-0 arg-2 e-5 arg-6 (CoreC-45TT-embed u--ty)) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) ((CoreC-45Unify-getArgTypes e-5 e-8 (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) arg-13)) eta-0))))))))) arg-11) ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 ((CoreC-45Unify-headsConvert arg-2 arg-0 arg-1 arg-4 arg-5 arg-6 e-7 e-8) ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((_-0 (vector 1 e-1))) (let ((sc6 e-9)) (cond ((equal? sc6 0) (let ((bind-0 0)) ((CoreC-45Unify-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32unifyInvertible-10015 arg-2 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 e-1 _-0 e-7 e-8 bind-0 (cons (DataC-45List-reverse arg-10) (DataC-45List-reverse arg-13))) ext-0))) (else (CoreC-45Unify-postpone arg-2 arg-0 arg-1 0 arg-5 arg-4 "Postponing hole application [3]" arg-6 (vector 1 arg-5 (vector 2 arg-7 arg-8 arg-9) (PreludeC-45Types-u--map_Functor_List (lambda (__infixTupleSection-0) (cons (vector 1 ) __infixTupleSection-0)) arg-10)) (arg-12 arg-13) ext-0)))))))))))))))))))))) (else (CoreC-45Unify-ufail arg-5 (PreludeC-45TypesC-45String-C-43C-43 "No such metavariable " (CoreC-45Name-u--show_Show_Name arg-7)) ext-0)))))))))))))))) -(define CoreC-45Unify-unifyIfEq (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (CoreC-45Normalise-u--convert_Convert_NF arg-0 arg-2 e-5 arg-6 arg-7 arg-8 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (cond ((equal? sc2 0) (vector 1 (CoreC-45Unify-success))) (else (let ((sc3 arg-3)) (cond ((equal? sc3 0) (CoreC-45Unify-postpone arg-2 arg-0 arg-1 0 arg-4 arg-5 (PreludeC-45TypesC-45String-C-43C-43 "Postponing unifyIfEq " (PreludeC-45Show-u--show_Show_Bool (let ((sc4 arg-5)) (let ((e-0 (car sc4))) e-0)))) arg-6 arg-7 arg-8 ext-0)) (else (CoreC-45Unify-convertError arg-2 arg-0 arg-4 arg-6 arg-7 arg-8 ext-0))))))))))))))))))) -(define CoreC-45Unify-unifyHoleApp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Context-lookupTyExact e-2 (let ((sc2 e-6)) (let ((e-0 (vector-ref sc2 1))) e-0)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc2 1))) (CoreC-45Unify-unifyInvertible arg-0 arg-1 arg-2 arg-3 (CoreC-45Unify-lower arg-4) arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-7 (lambda (eta-1) (vector 3 e-1 e-2 e-3 e-4 eta-1)) e-5 eta-0)))))))))))))))))) ((2) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (let ((e-10 (vector-ref sc0 4))) (let ((e-11 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Context-lookupTyExact e-8 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (CoreC-45Unify-unifyInvertible arg-0 arg-1 arg-2 arg-3 (CoreC-45Unify-lower arg-4) arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-6 (lambda (eta-1) (vector 2 e-7 e-8 e-9 e-10 eta-1)) e-11 eta-0)))))))))))))))))) ((1) (let ((e-13 (vector-ref sc0 1))) (let ((e-14 (vector-ref sc0 2))) (let ((e-15 (vector-ref sc0 3))) (let ((sc1 e-14)) (case (vector-ref sc1 0) ((0) (let ((e-18 (vector-ref sc1 1))) (let ((e-19 (vector-ref sc1 2))) (lambda (eta-0) (CoreC-45Unify-unifyInvertible arg-0 arg-1 arg-2 arg-3 (CoreC-45Unify-lower arg-4) arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 0 ) (lambda (eta-1) (vector 1 e-13 (vector 0 e-18 e-19) eta-1)) e-15 eta-0))))) ((2) (let ((e-22 (vector-ref sc1 1))) (let ((e-23 (vector-ref sc1 2))) (let ((e-24 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact (vector 9 e-23) (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) e-0))) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((u--tm (vector 1 e-13 (vector 2 e-22 e-23 e-24) e-15))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((u--inv (PreludeC-45Basics-C-124C-124 (CoreC-45Unify-n--14563-10590-u--isPatName arg-2 e-24 e-23 e-22 e-15 e-13 u--tm arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-22) (lambda () (let ((sc5 e-1)) (let ((e-25 (vector-ref sc5 15))) e-25)))))) (let ((sc5 u--inv)) (cond ((equal? sc5 0) (CoreC-45Unify-unifyInvertible arg-0 arg-1 arg-2 arg-3 (CoreC-45Unify-lower arg-4) arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 0 ) (lambda (eta-1) (vector 1 e-13 (vector 2 e-22 e-23 e-24) eta-1)) e-15 eta-0)) (else (CoreC-45Unify-postponeS arg-2 arg-0 arg-1 0 arg-3 arg-5 arg-4 "Postponing hole application" arg-6 (vector 1 arg-5 (vector 2 arg-7 arg-8 arg-9) (PreludeC-45Types-u--map_Functor_List (lambda (__infixTupleSection-0) (cons (vector 1 ) __infixTupleSection-0)) arg-10)) u--tm eta-0))))))) (else (CoreC-45Context-undefinedName arg-0 e-13 arg-7 eta-0))))))))))))))))))))(else (lambda (eta-0) (CoreC-45Unify-postponeS arg-2 arg-0 arg-1 0 arg-3 arg-5 arg-4 "Postponing hole application" arg-6 (vector 1 arg-5 (vector 2 arg-7 arg-8 arg-9) (PreludeC-45Types-u--map_Functor_List (lambda (__infixTupleSection-0) (cons (vector 1 ) __infixTupleSection-0)) arg-10)) arg-11 eta-0)))))))))(else (lambda (eta-0) (CoreC-45Unify-postponeS arg-2 arg-0 arg-1 0 arg-3 arg-5 arg-4 "Postponing hole application" arg-6 (vector 1 arg-5 (vector 2 arg-7 arg-8 arg-9) (PreludeC-45Types-u--map_Functor_List (lambda (__infixTupleSection-0) (cons (vector 1 ) __infixTupleSection-0)) arg-10)) arg-11 eta-0))))))) -(define CoreC-45Unify-unifyHole (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (CoreC-45Context-clearDefs e-5 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((u--args (PreludeC-45TypesC-45List-C-43C-43 arg-10 arg-11))) (let ((act-26 (CoreC-45ContextC-45Log-logC arg-0 "unify.hole" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda (eta-0) (let ((act-26 (CoreC-45Core-traverseC-39 (lambda (eta-1) (CoreC-45Normalise-evalArg arg-0 arg-2 e-6 eta-1)) u--args '() eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (clam-0) (lambda (eta-1) (CoreC-45Normalise-u--quote_Quote_NF arg-0 arg-2 e-6 arg-6 clam-0 eta-1))) e-7 '() eta-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (CoreC-45Normalise-u--quote_Quote_NF arg-0 arg-2 e-6 arg-6 arg-12 eta-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (vector 1 (PreludeC-45TypesC-45String-C-43C-43 "Unifying: " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name arg-8) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-2 u--d u--x)))) e-8) (PreludeC-45TypesC-45String-C-43C-43 " with " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 e-9))))))))))))))))))))))) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-27 (CoreC-45Unify-patternEnv arg-0 arg-1 arg-2 arg-6 u--args ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (case (vector-ref sc4 0) ((0) (let ((act-28 ((CoreC-45Context-lookupCtxtExact (vector 9 arg-9) (let ((sc5 e-5)) (let ((e-0 (vector-ref sc5 1))) e-0))) ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((bind-0 (vector 0 ))) (let ((sc6 e-9)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((_-0 (vector 1 e-1))) ((CoreC-45Unify-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32unifyHole-11319 arg-2 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 e-6 u--args bind-0 e-1 _-0 (let ((sc7 e-1)) (let ((e-17 (vector-ref sc7 18))) e-17))) ext-0))))(else ((CoreC-45Unify-postponePatVar arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 arg-11 arg-12) ext-0))))))))))) (else (let ((e-2 (vector-ref sc4 1))) (let ((sc5 e-2)) (let ((e-10 (car sc5))) (let ((e-9 (cdr sc5))) (let ((sc6 e-9)) (let ((e-12 (car sc6))) (let ((e-11 (cdr sc6))) (let ((act-28 ((CoreC-45Context-lookupCtxtExact (vector 9 arg-9) (let ((sc7 e-5)) (let ((e-0 (vector-ref sc7 1))) e-0))) ext-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (vector 0 e-3))) (else (let ((e-13 (vector-ref sc7 1))) (let ((bind-0 (vector 1 (cons e-10 (cons e-12 e-11))))) (let ((sc8 e-13)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((_-0 (vector 1 e-1))) ((CoreC-45Unify-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32unifyHole-11636 arg-2 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 e-6 u--args e-10 e-12 e-11 bind-0 e-1 _-0 (let ((sc9 e-1)) (let ((e-17 (vector-ref sc9 18))) e-17))) ext-0))))(else ((CoreC-45Unify-postponePatVar arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 arg-11 arg-12) ext-0)))))))))))))))))))))))))))))))))))))))))) -(define CoreC-45Unify-unifyBothBinders (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (lambda (clam-0) (let ((sc1 arg-12)) (case (vector-ref sc1 0) ((2) (let ((e-11 (vector-ref sc1 1))) (let ((e-12 (vector-ref sc1 2))) (let ((e-13 (vector-ref sc1 3))) (let ((e-14 (vector-ref sc1 4))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (CoreC-45Unify-case--unifyBothBinders-13952 arg-2 e-4 e-3 e-2 e-1 e-14 e-13 e-12 e-11 arg-13 arg-11 arg-10 arg-9 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega e-2 e-12) clam-0)))))))))))(else (CoreC-45Unify-convertError arg-2 arg-0 arg-4 arg-5 (vector 0 arg-6 arg-7 arg-8 arg-9) (vector 0 arg-10 arg-11 arg-12 arg-13) clam-0)))))))))) ((0) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (let ((e-9 (vector-ref sc0 4))) (lambda (clam-1) (let ((sc1 arg-12)) (case (vector-ref sc1 0) ((0) (let ((e-16 (vector-ref sc1 1))) (let ((e-17 (vector-ref sc1 2))) (let ((e-18 (vector-ref sc1 3))) (let ((e-19 (vector-ref sc1 4))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (CoreC-45Unify-case--unifyBothBinders-14444 arg-2 e-9 e-8 e-7 e-6 e-19 e-18 e-17 e-16 arg-13 arg-11 arg-10 arg-9 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega e-7 e-17) clam-1)))))))))))(else (CoreC-45Unify-convertError arg-2 arg-0 arg-4 arg-5 (vector 0 arg-6 arg-7 arg-8 arg-9) (vector 0 arg-10 arg-11 arg-12 arg-13) clam-1))))))))))(else (lambda (eta-0) (CoreC-45Unify-convertError arg-2 arg-0 arg-4 arg-5 (vector 0 arg-6 arg-7 arg-8 arg-9) (vector 0 arg-10 arg-11 arg-12 arg-13) eta-0))))))) -(define CoreC-45Unify-unifyBothApps (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-50 (vector-ref sc0 1))) (let ((e-51 (vector-ref sc0 2))) (let ((sc1 arg-8)) (if (null? sc1) (let ((sc2 arg-10)) (case (vector-ref sc2 0) ((0) (let ((e-56 (vector-ref sc2 1))) (let ((e-57 (vector-ref sc2 2))) (let ((sc3 arg-11)) (if (null? sc3) (lambda (eta-0) (CoreC-45Unify-case--unifyBothApps-12880 arg-2 e-51 e-50 e-57 e-56 arg-9 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (PreludeC-45Types-u--C-61C-61_Eq_Nat e-51 e-57) eta-0)) (let ((sc4 arg-3)) (if (null? sc4) (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-20 (vector-ref sc5 1))) (let ((e-21 (vector-ref sc5 2))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((0) (let ((e-29 (vector-ref sc6 1))) (let ((e-30 (vector-ref sc6 2))) (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-log arg-0 "unify.application" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Both local apps, unifyIfEq") eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (CoreC-45Unify-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-20 e-21) arg-8) (vector 1 arg-9 (vector 0 e-29 e-30) arg-11) eta-0)))))))))(else (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((2) (let ((e-15 (vector-ref sc6 1))) (let ((e-16 (vector-ref sc6 2))) (let ((e-17 (vector-ref sc6 3))) (CoreC-45Unify-case--unifyBothApps-13538 arg-2 e-17 e-16 e-15 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (CoreC-45Unify-u--C-47C-61_Eq_UnifyMode (let ((sc7 arg-3)) (let ((e-1 (cdr sc7))) e-1)) (vector 2 )))))))(else (let ((sc6 arg-3)) (if (null? sc6) (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)) (let ((e-0 (car sc6))) (let ((e-1 (cdr sc6))) (let ((sc7 e-1)) (case (vector-ref sc7 0) ((3) (let ((sc8 arg-7)) (case (vector-ref sc8 0) ((1) (let ((e-3 (vector-ref sc8 1))) (let ((e-4 (vector-ref sc8 2))) (let ((sc9 arg-10)) (case (vector-ref sc9 0) ((1) (let ((e-6 (vector-ref sc9 1))) (let ((e-7 (vector-ref sc9 2))) (let ((u--fy (vector 1 e-6 e-7))) (let ((u--fx (vector 1 e-3 e-4))) (let ((u--mode (cons e-0 (vector 3 )))) (CoreC-45Unify-case--unifyBothApps-13618 arg-2 arg-11 e-7 e-6 u--fy arg-9 arg-8 e-4 e-3 u--fx arg-6 arg-5 arg-4 e-0 u--mode arg-1 arg-0 (CoreC-45Name-u--C-61C-61_Eq_Name e-4 e-7))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))) ((2) (let ((sc8 arg-7)) (case (vector-ref sc8 0) ((1) (let ((e-9 (vector-ref sc8 1))) (let ((e-10 (vector-ref sc8 2))) (let ((sc9 arg-10)) (case (vector-ref sc9 0) ((1) (let ((e-12 (vector-ref sc9 1))) (let ((e-13 (vector-ref sc9 2))) (let ((u--fy (vector 1 e-12 e-13))) (let ((u--fx (vector 1 e-9 e-10))) (let ((u--mode (cons e-0 (vector 2 )))) (CoreC-45Unify-case--unifyBothApps-13735 arg-2 arg-11 e-13 e-12 u--fy arg-9 arg-8 e-10 e-9 u--fx arg-6 arg-5 arg-4 e-0 u--mode arg-1 arg-0 (CoreC-45Name-u--C-61C-61_Eq_Name e-10 e-13))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))))))) ((2) (let ((e-24 (vector-ref sc5 1))) (let ((e-25 (vector-ref sc5 2))) (let ((e-26 (vector-ref sc5 3))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((2) (let ((e-33 (vector-ref sc6 1))) (let ((e-34 (vector-ref sc6 2))) (let ((e-35 (vector-ref sc6 3))) (lambda (eta-0) (let ((act-24 (CoreC-45Unify-isDefInvertible arg-0 arg-4 e-25 eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) ((CoreC-45Unify-case--unifyBothApps-13287 arg-2 e-26 e-25 e-24 e-35 e-34 e-33 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (PreludeC-45Basics-C-38C-38 (PreludeC-45EqOrd-u--C-61C-61_Eq_Int e-25 e-34) (lambda () (PreludeC-45Basics-C-124C-124 e-5 (lambda () (CoreC-45Unify-u--C-61C-61_Eq_UnifyMode (let ((sc8 arg-3)) (let ((e-1 (cdr sc8))) e-1)) (vector 3 ))))))) eta-0)))))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-24 e-25 e-26) arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((2) (let ((e-15 (vector-ref sc5 1))) (let ((e-16 (vector-ref sc5 2))) (let ((e-17 (vector-ref sc5 3))) (CoreC-45Unify-case--unifyBothApps-13538 arg-2 e-17 e-16 e-15 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (CoreC-45Unify-u--C-47C-61_Eq_UnifyMode (let ((sc6 arg-3)) (let ((e-1 (cdr sc6))) e-1)) (vector 2 )))))))(else (let ((sc5 arg-3)) (if (null? sc5) (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)) (let ((e-0 (car sc5))) (let ((e-1 (cdr sc5))) (let ((sc6 e-1)) (case (vector-ref sc6 0) ((3) (let ((sc7 arg-7)) (case (vector-ref sc7 0) ((1) (let ((e-3 (vector-ref sc7 1))) (let ((e-4 (vector-ref sc7 2))) (let ((sc8 arg-10)) (case (vector-ref sc8 0) ((1) (let ((e-6 (vector-ref sc8 1))) (let ((e-7 (vector-ref sc8 2))) (let ((u--fy (vector 1 e-6 e-7))) (let ((u--fx (vector 1 e-3 e-4))) (let ((u--mode (cons e-0 (vector 3 )))) (CoreC-45Unify-case--unifyBothApps-13618 arg-2 arg-11 e-7 e-6 u--fy arg-9 arg-8 e-4 e-3 u--fx arg-6 arg-5 arg-4 e-0 u--mode arg-1 arg-0 (CoreC-45Name-u--C-61C-61_Eq_Name e-4 e-7))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))) ((2) (let ((sc7 arg-7)) (case (vector-ref sc7 0) ((1) (let ((e-9 (vector-ref sc7 1))) (let ((e-10 (vector-ref sc7 2))) (let ((sc8 arg-10)) (case (vector-ref sc8 0) ((1) (let ((e-12 (vector-ref sc8 1))) (let ((e-13 (vector-ref sc8 2))) (let ((u--fy (vector 1 e-12 e-13))) (let ((u--fx (vector 1 e-9 e-10))) (let ((u--mode (cons e-0 (vector 2 )))) (CoreC-45Unify-case--unifyBothApps-13735 arg-2 arg-11 e-13 e-12 u--fy arg-9 arg-8 e-10 e-9 u--fx arg-6 arg-5 arg-4 e-0 u--mode arg-1 arg-0 (CoreC-45Name-u--C-61C-61_Eq_Name e-10 e-13))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))))))))) (let ((e-36 (car sc4))) (let ((e-37 (cdr sc4))) (let ((sc5 e-37)) (case (vector-ref sc5 0) ((1) (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((0) (let ((e-40 (vector-ref sc6 1))) (let ((e-41 (vector-ref sc6 2))) (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((0) (let ((e-45 (vector-ref sc7 1))) (let ((e-46 (vector-ref sc7 2))) (let ((u--mode (cons e-36 (vector 1 )))) (CoreC-45Unify-case--unifyBothApps-12979 arg-2 e-41 e-40 e-46 e-45 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 e-36 u--mode arg-1 arg-0 (PreludeC-45Types-u--C-61C-61_Eq_Nat e-41 e-46))))))(else (let ((sc7 arg-7)) (case (vector-ref sc7 0) ((0) (let ((e-20 (vector-ref sc7 1))) (let ((e-21 (vector-ref sc7 2))) (let ((sc8 arg-10)) (case (vector-ref sc8 0) ((0) (let ((e-29 (vector-ref sc8 1))) (let ((e-30 (vector-ref sc8 2))) (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-log arg-0 "unify.application" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Both local apps, unifyIfEq") eta-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (CoreC-45Unify-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-20 e-21) arg-8) (vector 1 arg-9 (vector 0 e-29 e-30) arg-11) eta-0)))))))))(else (let ((sc8 arg-10)) (case (vector-ref sc8 0) ((2) (let ((e-15 (vector-ref sc8 1))) (let ((e-16 (vector-ref sc8 2))) (let ((e-17 (vector-ref sc8 3))) (CoreC-45Unify-case--unifyBothApps-13538 arg-2 e-17 e-16 e-15 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (CoreC-45Unify-u--C-47C-61_Eq_UnifyMode (let ((sc9 arg-3)) (let ((e-1 (cdr sc9))) e-1)) (vector 2 )))))))(else (let ((sc8 arg-3)) (if (null? sc8) (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)) (let ((e-0 (car sc8))) (let ((e-1 (cdr sc8))) (let ((sc9 e-1)) (case (vector-ref sc9 0) ((3) (let ((sc10 arg-7)) (case (vector-ref sc10 0) ((1) (let ((e-3 (vector-ref sc10 1))) (let ((e-4 (vector-ref sc10 2))) (let ((sc11 arg-10)) (case (vector-ref sc11 0) ((1) (let ((e-6 (vector-ref sc11 1))) (let ((e-7 (vector-ref sc11 2))) (let ((u--fy (vector 1 e-6 e-7))) (let ((u--fx (vector 1 e-3 e-4))) (let ((u--mode (cons e-0 (vector 3 )))) (CoreC-45Unify-case--unifyBothApps-13618 arg-2 arg-11 e-7 e-6 u--fy arg-9 arg-8 e-4 e-3 u--fx arg-6 arg-5 arg-4 e-0 u--mode arg-1 arg-0 (CoreC-45Name-u--C-61C-61_Eq_Name e-4 e-7))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))) ((2) (let ((sc10 arg-7)) (case (vector-ref sc10 0) ((1) (let ((e-9 (vector-ref sc10 1))) (let ((e-10 (vector-ref sc10 2))) (let ((sc11 arg-10)) (case (vector-ref sc11 0) ((1) (let ((e-12 (vector-ref sc11 1))) (let ((e-13 (vector-ref sc11 2))) (let ((u--fy (vector 1 e-12 e-13))) (let ((u--fx (vector 1 e-9 e-10))) (let ((u--mode (cons e-0 (vector 2 )))) (CoreC-45Unify-case--unifyBothApps-13735 arg-2 arg-11 e-13 e-12 u--fy arg-9 arg-8 e-10 e-9 u--fx arg-6 arg-5 arg-4 e-0 u--mode arg-1 arg-0 (CoreC-45Name-u--C-61C-61_Eq_Name e-10 e-13))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))))))) ((2) (let ((e-24 (vector-ref sc7 1))) (let ((e-25 (vector-ref sc7 2))) (let ((e-26 (vector-ref sc7 3))) (let ((sc8 arg-10)) (case (vector-ref sc8 0) ((2) (let ((e-33 (vector-ref sc8 1))) (let ((e-34 (vector-ref sc8 2))) (let ((e-35 (vector-ref sc8 3))) (lambda (eta-0) (let ((act-24 (CoreC-45Unify-isDefInvertible arg-0 arg-4 e-25 eta-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) ((CoreC-45Unify-case--unifyBothApps-13287 arg-2 e-26 e-25 e-24 e-35 e-34 e-33 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (PreludeC-45Basics-C-38C-38 (PreludeC-45EqOrd-u--C-61C-61_Eq_Int e-25 e-34) (lambda () (PreludeC-45Basics-C-124C-124 e-5 (lambda () (CoreC-45Unify-u--C-61C-61_Eq_UnifyMode (let ((sc10 arg-3)) (let ((e-1 (cdr sc10))) e-1)) (vector 3 ))))))) eta-0)))))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-24 e-25 e-26) arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((2) (let ((e-15 (vector-ref sc7 1))) (let ((e-16 (vector-ref sc7 2))) (let ((e-17 (vector-ref sc7 3))) (CoreC-45Unify-case--unifyBothApps-13538 arg-2 e-17 e-16 e-15 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (CoreC-45Unify-u--C-47C-61_Eq_UnifyMode (let ((sc8 arg-3)) (let ((e-1 (cdr sc8))) e-1)) (vector 2 )))))))(else (let ((sc7 arg-3)) (if (null? sc7) (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)) (let ((e-0 (car sc7))) (let ((e-1 (cdr sc7))) (let ((sc8 e-1)) (case (vector-ref sc8 0) ((3) (let ((sc9 arg-7)) (case (vector-ref sc9 0) ((1) (let ((e-3 (vector-ref sc9 1))) (let ((e-4 (vector-ref sc9 2))) (let ((sc10 arg-10)) (case (vector-ref sc10 0) ((1) (let ((e-6 (vector-ref sc10 1))) (let ((e-7 (vector-ref sc10 2))) (let ((u--fy (vector 1 e-6 e-7))) (let ((u--fx (vector 1 e-3 e-4))) (let ((u--mode (cons e-0 (vector 3 )))) (CoreC-45Unify-case--unifyBothApps-13618 arg-2 arg-11 e-7 e-6 u--fy arg-9 arg-8 e-4 e-3 u--fx arg-6 arg-5 arg-4 e-0 u--mode arg-1 arg-0 (CoreC-45Name-u--C-61C-61_Eq_Name e-4 e-7))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))) ((2) (let ((sc9 arg-7)) (case (vector-ref sc9 0) ((1) (let ((e-9 (vector-ref sc9 1))) (let ((e-10 (vector-ref sc9 2))) (let ((sc10 arg-10)) (case (vector-ref sc10 0) ((1) (let ((e-12 (vector-ref sc10 1))) (let ((e-13 (vector-ref sc10 2))) (let ((u--fy (vector 1 e-12 e-13))) (let ((u--fx (vector 1 e-9 e-10))) (let ((u--mode (cons e-0 (vector 2 )))) (CoreC-45Unify-case--unifyBothApps-13735 arg-2 arg-11 e-13 e-12 u--fy arg-9 arg-8 e-10 e-9 u--fx arg-6 arg-5 arg-4 e-0 u--mode arg-1 arg-0 (CoreC-45Name-u--C-61C-61_Eq_Name e-10 e-13))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))))))))))(else (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((0) (let ((e-20 (vector-ref sc6 1))) (let ((e-21 (vector-ref sc6 2))) (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((0) (let ((e-29 (vector-ref sc7 1))) (let ((e-30 (vector-ref sc7 2))) (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-log arg-0 "unify.application" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Both local apps, unifyIfEq") eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (CoreC-45Unify-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-20 e-21) arg-8) (vector 1 arg-9 (vector 0 e-29 e-30) arg-11) eta-0)))))))))(else (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((2) (let ((e-15 (vector-ref sc7 1))) (let ((e-16 (vector-ref sc7 2))) (let ((e-17 (vector-ref sc7 3))) (CoreC-45Unify-case--unifyBothApps-13538 arg-2 e-17 e-16 e-15 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (CoreC-45Unify-u--C-47C-61_Eq_UnifyMode (let ((sc8 arg-3)) (let ((e-1 (cdr sc8))) e-1)) (vector 2 )))))))(else (let ((sc7 arg-3)) (if (null? sc7) (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)) (let ((e-0 (car sc7))) (let ((e-1 (cdr sc7))) (let ((sc8 e-1)) (case (vector-ref sc8 0) ((3) (let ((sc9 arg-7)) (case (vector-ref sc9 0) ((1) (let ((e-3 (vector-ref sc9 1))) (let ((e-4 (vector-ref sc9 2))) (let ((sc10 arg-10)) (case (vector-ref sc10 0) ((1) (let ((e-6 (vector-ref sc10 1))) (let ((e-7 (vector-ref sc10 2))) (let ((u--fy (vector 1 e-6 e-7))) (let ((u--fx (vector 1 e-3 e-4))) (let ((u--mode (cons e-0 (vector 3 )))) (CoreC-45Unify-case--unifyBothApps-13618 arg-2 arg-11 e-7 e-6 u--fy arg-9 arg-8 e-4 e-3 u--fx arg-6 arg-5 arg-4 e-0 u--mode arg-1 arg-0 (CoreC-45Name-u--C-61C-61_Eq_Name e-4 e-7))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))) ((2) (let ((sc9 arg-7)) (case (vector-ref sc9 0) ((1) (let ((e-9 (vector-ref sc9 1))) (let ((e-10 (vector-ref sc9 2))) (let ((sc10 arg-10)) (case (vector-ref sc10 0) ((1) (let ((e-12 (vector-ref sc10 1))) (let ((e-13 (vector-ref sc10 2))) (let ((u--fy (vector 1 e-12 e-13))) (let ((u--fx (vector 1 e-9 e-10))) (let ((u--mode (cons e-0 (vector 2 )))) (CoreC-45Unify-case--unifyBothApps-13735 arg-2 arg-11 e-13 e-12 u--fy arg-9 arg-8 e-10 e-9 u--fx arg-6 arg-5 arg-4 e-0 u--mode arg-1 arg-0 (CoreC-45Name-u--C-61C-61_Eq_Name e-10 e-13))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))))))) ((2) (let ((e-24 (vector-ref sc6 1))) (let ((e-25 (vector-ref sc6 2))) (let ((e-26 (vector-ref sc6 3))) (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((2) (let ((e-33 (vector-ref sc7 1))) (let ((e-34 (vector-ref sc7 2))) (let ((e-35 (vector-ref sc7 3))) (lambda (eta-0) (let ((act-24 (CoreC-45Unify-isDefInvertible arg-0 arg-4 e-25 eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) ((CoreC-45Unify-case--unifyBothApps-13287 arg-2 e-26 e-25 e-24 e-35 e-34 e-33 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (PreludeC-45Basics-C-38C-38 (PreludeC-45EqOrd-u--C-61C-61_Eq_Int e-25 e-34) (lambda () (PreludeC-45Basics-C-124C-124 e-5 (lambda () (CoreC-45Unify-u--C-61C-61_Eq_UnifyMode (let ((sc9 arg-3)) (let ((e-1 (cdr sc9))) e-1)) (vector 3 ))))))) eta-0)))))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-24 e-25 e-26) arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((2) (let ((e-15 (vector-ref sc6 1))) (let ((e-16 (vector-ref sc6 2))) (let ((e-17 (vector-ref sc6 3))) (CoreC-45Unify-case--unifyBothApps-13538 arg-2 e-17 e-16 e-15 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (CoreC-45Unify-u--C-47C-61_Eq_UnifyMode (let ((sc7 arg-3)) (let ((e-1 (cdr sc7))) e-1)) (vector 2 )))))))(else (let ((sc6 arg-3)) (if (null? sc6) (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)) (let ((e-0 (car sc6))) (let ((e-1 (cdr sc6))) (let ((sc7 e-1)) (case (vector-ref sc7 0) ((3) (let ((sc8 arg-7)) (case (vector-ref sc8 0) ((1) (let ((e-3 (vector-ref sc8 1))) (let ((e-4 (vector-ref sc8 2))) (let ((sc9 arg-10)) (case (vector-ref sc9 0) ((1) (let ((e-6 (vector-ref sc9 1))) (let ((e-7 (vector-ref sc9 2))) (let ((u--fy (vector 1 e-6 e-7))) (let ((u--fx (vector 1 e-3 e-4))) (let ((u--mode (cons e-0 (vector 3 )))) (CoreC-45Unify-case--unifyBothApps-13618 arg-2 arg-11 e-7 e-6 u--fy arg-9 arg-8 e-4 e-3 u--fx arg-6 arg-5 arg-4 e-0 u--mode arg-1 arg-0 (CoreC-45Name-u--C-61C-61_Eq_Name e-4 e-7))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))) ((2) (let ((sc8 arg-7)) (case (vector-ref sc8 0) ((1) (let ((e-9 (vector-ref sc8 1))) (let ((e-10 (vector-ref sc8 2))) (let ((sc9 arg-10)) (case (vector-ref sc9 0) ((1) (let ((e-12 (vector-ref sc9 1))) (let ((e-13 (vector-ref sc9 2))) (let ((u--fy (vector 1 e-12 e-13))) (let ((u--fx (vector 1 e-9 e-10))) (let ((u--mode (cons e-0 (vector 2 )))) (CoreC-45Unify-case--unifyBothApps-13735 arg-2 arg-11 e-13 e-12 u--fy arg-9 arg-8 e-10 e-9 u--fx arg-6 arg-5 arg-4 e-0 u--mode arg-1 arg-0 (CoreC-45Name-u--C-61C-61_Eq_Name e-10 e-13))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))))))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-20 (vector-ref sc5 1))) (let ((e-21 (vector-ref sc5 2))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((0) (let ((e-29 (vector-ref sc6 1))) (let ((e-30 (vector-ref sc6 2))) (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-log arg-0 "unify.application" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Both local apps, unifyIfEq") eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (CoreC-45Unify-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-20 e-21) arg-8) (vector 1 arg-9 (vector 0 e-29 e-30) arg-11) eta-0)))))))))(else (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((2) (let ((e-15 (vector-ref sc6 1))) (let ((e-16 (vector-ref sc6 2))) (let ((e-17 (vector-ref sc6 3))) (CoreC-45Unify-case--unifyBothApps-13538 arg-2 e-17 e-16 e-15 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (CoreC-45Unify-u--C-47C-61_Eq_UnifyMode (let ((sc7 arg-3)) (let ((e-1 (cdr sc7))) e-1)) (vector 2 )))))))(else (let ((sc6 arg-3)) (if (null? sc6) (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)) (let ((e-0 (car sc6))) (let ((e-1 (cdr sc6))) (let ((sc7 e-1)) (case (vector-ref sc7 0) ((3) (let ((sc8 arg-7)) (case (vector-ref sc8 0) ((1) (let ((e-3 (vector-ref sc8 1))) (let ((e-4 (vector-ref sc8 2))) (let ((sc9 arg-10)) (case (vector-ref sc9 0) ((1) (let ((e-6 (vector-ref sc9 1))) (let ((e-7 (vector-ref sc9 2))) (let ((u--fy (vector 1 e-6 e-7))) (let ((u--fx (vector 1 e-3 e-4))) (let ((u--mode (cons e-0 (vector 3 )))) (CoreC-45Unify-case--unifyBothApps-13618 arg-2 arg-11 e-7 e-6 u--fy arg-9 arg-8 e-4 e-3 u--fx arg-6 arg-5 arg-4 e-0 u--mode arg-1 arg-0 (CoreC-45Name-u--C-61C-61_Eq_Name e-4 e-7))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))) ((2) (let ((sc8 arg-7)) (case (vector-ref sc8 0) ((1) (let ((e-9 (vector-ref sc8 1))) (let ((e-10 (vector-ref sc8 2))) (let ((sc9 arg-10)) (case (vector-ref sc9 0) ((1) (let ((e-12 (vector-ref sc9 1))) (let ((e-13 (vector-ref sc9 2))) (let ((u--fy (vector 1 e-12 e-13))) (let ((u--fx (vector 1 e-9 e-10))) (let ((u--mode (cons e-0 (vector 2 )))) (CoreC-45Unify-case--unifyBothApps-13735 arg-2 arg-11 e-13 e-12 u--fy arg-9 arg-8 e-10 e-9 u--fx arg-6 arg-5 arg-4 e-0 u--mode arg-1 arg-0 (CoreC-45Name-u--C-61C-61_Eq_Name e-10 e-13))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))))))) ((2) (let ((e-24 (vector-ref sc5 1))) (let ((e-25 (vector-ref sc5 2))) (let ((e-26 (vector-ref sc5 3))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((2) (let ((e-33 (vector-ref sc6 1))) (let ((e-34 (vector-ref sc6 2))) (let ((e-35 (vector-ref sc6 3))) (lambda (eta-0) (let ((act-24 (CoreC-45Unify-isDefInvertible arg-0 arg-4 e-25 eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) ((CoreC-45Unify-case--unifyBothApps-13287 arg-2 e-26 e-25 e-24 e-35 e-34 e-33 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (PreludeC-45Basics-C-38C-38 (PreludeC-45EqOrd-u--C-61C-61_Eq_Int e-25 e-34) (lambda () (PreludeC-45Basics-C-124C-124 e-5 (lambda () (CoreC-45Unify-u--C-61C-61_Eq_UnifyMode (let ((sc8 arg-3)) (let ((e-1 (cdr sc8))) e-1)) (vector 3 ))))))) eta-0)))))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-24 e-25 e-26) arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((2) (let ((e-15 (vector-ref sc5 1))) (let ((e-16 (vector-ref sc5 2))) (let ((e-17 (vector-ref sc5 3))) (CoreC-45Unify-case--unifyBothApps-13538 arg-2 e-17 e-16 e-15 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (CoreC-45Unify-u--C-47C-61_Eq_UnifyMode (let ((sc6 arg-3)) (let ((e-1 (cdr sc6))) e-1)) (vector 2 )))))))(else (let ((sc5 arg-3)) (if (null? sc5) (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)) (let ((e-0 (car sc5))) (let ((e-1 (cdr sc5))) (let ((sc6 e-1)) (case (vector-ref sc6 0) ((3) (let ((sc7 arg-7)) (case (vector-ref sc7 0) ((1) (let ((e-3 (vector-ref sc7 1))) (let ((e-4 (vector-ref sc7 2))) (let ((sc8 arg-10)) (case (vector-ref sc8 0) ((1) (let ((e-6 (vector-ref sc8 1))) (let ((e-7 (vector-ref sc8 2))) (let ((u--fy (vector 1 e-6 e-7))) (let ((u--fx (vector 1 e-3 e-4))) (let ((u--mode (cons e-0 (vector 3 )))) (CoreC-45Unify-case--unifyBothApps-13618 arg-2 arg-11 e-7 e-6 u--fy arg-9 arg-8 e-4 e-3 u--fx arg-6 arg-5 arg-4 e-0 u--mode arg-1 arg-0 (CoreC-45Name-u--C-61C-61_Eq_Name e-4 e-7))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))) ((2) (let ((sc7 arg-7)) (case (vector-ref sc7 0) ((1) (let ((e-9 (vector-ref sc7 1))) (let ((e-10 (vector-ref sc7 2))) (let ((sc8 arg-10)) (case (vector-ref sc8 0) ((1) (let ((e-12 (vector-ref sc8 1))) (let ((e-13 (vector-ref sc8 2))) (let ((u--fy (vector 1 e-12 e-13))) (let ((u--fx (vector 1 e-9 e-10))) (let ((u--mode (cons e-0 (vector 2 )))) (CoreC-45Unify-case--unifyBothApps-13735 arg-2 arg-11 e-13 e-12 u--fy arg-9 arg-8 e-10 e-9 u--fx arg-6 arg-5 arg-4 e-0 u--mode arg-1 arg-0 (CoreC-45Name-u--C-61C-61_Eq_Name e-10 e-13))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))))))))))))))))(else (let ((sc2 arg-3)) (if (null? sc2) (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-20 (vector-ref sc3 1))) (let ((e-21 (vector-ref sc3 2))) (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((0) (let ((e-29 (vector-ref sc4 1))) (let ((e-30 (vector-ref sc4 2))) (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-log arg-0 "unify.application" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Both local apps, unifyIfEq") eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (CoreC-45Unify-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-20 e-21) arg-8) (vector 1 arg-9 (vector 0 e-29 e-30) arg-11) eta-0)))))))))(else (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((2) (let ((e-15 (vector-ref sc4 1))) (let ((e-16 (vector-ref sc4 2))) (let ((e-17 (vector-ref sc4 3))) (CoreC-45Unify-case--unifyBothApps-13538 arg-2 e-17 e-16 e-15 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (CoreC-45Unify-u--C-47C-61_Eq_UnifyMode (let ((sc5 arg-3)) (let ((e-1 (cdr sc5))) e-1)) (vector 2 )))))))(else (let ((sc4 arg-3)) (if (null? sc4) (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)) (let ((e-0 (car sc4))) (let ((e-1 (cdr sc4))) (let ((sc5 e-1)) (case (vector-ref sc5 0) ((3) (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((1) (let ((e-3 (vector-ref sc6 1))) (let ((e-4 (vector-ref sc6 2))) (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((1) (let ((e-6 (vector-ref sc7 1))) (let ((e-7 (vector-ref sc7 2))) (let ((u--fy (vector 1 e-6 e-7))) (let ((u--fx (vector 1 e-3 e-4))) (let ((u--mode (cons e-0 (vector 3 )))) (CoreC-45Unify-case--unifyBothApps-13618 arg-2 arg-11 e-7 e-6 u--fy arg-9 arg-8 e-4 e-3 u--fx arg-6 arg-5 arg-4 e-0 u--mode arg-1 arg-0 (CoreC-45Name-u--C-61C-61_Eq_Name e-4 e-7))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))) ((2) (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((1) (let ((e-9 (vector-ref sc6 1))) (let ((e-10 (vector-ref sc6 2))) (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((1) (let ((e-12 (vector-ref sc7 1))) (let ((e-13 (vector-ref sc7 2))) (let ((u--fy (vector 1 e-12 e-13))) (let ((u--fx (vector 1 e-9 e-10))) (let ((u--mode (cons e-0 (vector 2 )))) (CoreC-45Unify-case--unifyBothApps-13735 arg-2 arg-11 e-13 e-12 u--fy arg-9 arg-8 e-10 e-9 u--fx arg-6 arg-5 arg-4 e-0 u--mode arg-1 arg-0 (CoreC-45Name-u--C-61C-61_Eq_Name e-10 e-13))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))))))) ((2) (let ((e-24 (vector-ref sc3 1))) (let ((e-25 (vector-ref sc3 2))) (let ((e-26 (vector-ref sc3 3))) (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((2) (let ((e-33 (vector-ref sc4 1))) (let ((e-34 (vector-ref sc4 2))) (let ((e-35 (vector-ref sc4 3))) (lambda (eta-0) (let ((act-24 (CoreC-45Unify-isDefInvertible arg-0 arg-4 e-25 eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) ((CoreC-45Unify-case--unifyBothApps-13287 arg-2 e-26 e-25 e-24 e-35 e-34 e-33 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (PreludeC-45Basics-C-38C-38 (PreludeC-45EqOrd-u--C-61C-61_Eq_Int e-25 e-34) (lambda () (PreludeC-45Basics-C-124C-124 e-5 (lambda () (CoreC-45Unify-u--C-61C-61_Eq_UnifyMode (let ((sc6 arg-3)) (let ((e-1 (cdr sc6))) e-1)) (vector 3 ))))))) eta-0)))))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-24 e-25 e-26) arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((2) (let ((e-15 (vector-ref sc3 1))) (let ((e-16 (vector-ref sc3 2))) (let ((e-17 (vector-ref sc3 3))) (CoreC-45Unify-case--unifyBothApps-13538 arg-2 e-17 e-16 e-15 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (CoreC-45Unify-u--C-47C-61_Eq_UnifyMode (let ((sc4 arg-3)) (let ((e-1 (cdr sc4))) e-1)) (vector 2 )))))))(else (let ((sc3 arg-3)) (if (null? sc3) (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)) (let ((e-0 (car sc3))) (let ((e-1 (cdr sc3))) (let ((sc4 e-1)) (case (vector-ref sc4 0) ((3) (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((1) (let ((e-3 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((1) (let ((e-6 (vector-ref sc6 1))) (let ((e-7 (vector-ref sc6 2))) (let ((u--fy (vector 1 e-6 e-7))) (let ((u--fx (vector 1 e-3 e-4))) (let ((u--mode (cons e-0 (vector 3 )))) (CoreC-45Unify-case--unifyBothApps-13618 arg-2 arg-11 e-7 e-6 u--fy arg-9 arg-8 e-4 e-3 u--fx arg-6 arg-5 arg-4 e-0 u--mode arg-1 arg-0 (CoreC-45Name-u--C-61C-61_Eq_Name e-4 e-7))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))) ((2) (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((1) (let ((e-9 (vector-ref sc5 1))) (let ((e-10 (vector-ref sc5 2))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((1) (let ((e-12 (vector-ref sc6 1))) (let ((e-13 (vector-ref sc6 2))) (let ((u--fy (vector 1 e-12 e-13))) (let ((u--fx (vector 1 e-9 e-10))) (let ((u--mode (cons e-0 (vector 2 )))) (CoreC-45Unify-case--unifyBothApps-13735 arg-2 arg-11 e-13 e-12 u--fy arg-9 arg-8 e-10 e-9 u--fx arg-6 arg-5 arg-4 e-0 u--mode arg-1 arg-0 (CoreC-45Name-u--C-61C-61_Eq_Name e-10 e-13))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))))))))) (let ((e-36 (car sc2))) (let ((e-37 (cdr sc2))) (let ((sc3 e-37)) (case (vector-ref sc3 0) ((1) (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-40 (vector-ref sc4 1))) (let ((e-41 (vector-ref sc4 2))) (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((0) (let ((e-45 (vector-ref sc5 1))) (let ((e-46 (vector-ref sc5 2))) (let ((u--mode (cons e-36 (vector 1 )))) (CoreC-45Unify-case--unifyBothApps-12979 arg-2 e-41 e-40 e-46 e-45 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 e-36 u--mode arg-1 arg-0 (PreludeC-45Types-u--C-61C-61_Eq_Nat e-41 e-46))))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-20 (vector-ref sc5 1))) (let ((e-21 (vector-ref sc5 2))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((0) (let ((e-29 (vector-ref sc6 1))) (let ((e-30 (vector-ref sc6 2))) (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-log arg-0 "unify.application" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Both local apps, unifyIfEq") eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (CoreC-45Unify-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-20 e-21) arg-8) (vector 1 arg-9 (vector 0 e-29 e-30) arg-11) eta-0)))))))))(else (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((2) (let ((e-15 (vector-ref sc6 1))) (let ((e-16 (vector-ref sc6 2))) (let ((e-17 (vector-ref sc6 3))) (CoreC-45Unify-case--unifyBothApps-13538 arg-2 e-17 e-16 e-15 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (CoreC-45Unify-u--C-47C-61_Eq_UnifyMode (let ((sc7 arg-3)) (let ((e-1 (cdr sc7))) e-1)) (vector 2 )))))))(else (let ((sc6 arg-3)) (if (null? sc6) (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)) (let ((e-0 (car sc6))) (let ((e-1 (cdr sc6))) (let ((sc7 e-1)) (case (vector-ref sc7 0) ((3) (let ((sc8 arg-7)) (case (vector-ref sc8 0) ((1) (let ((e-3 (vector-ref sc8 1))) (let ((e-4 (vector-ref sc8 2))) (let ((sc9 arg-10)) (case (vector-ref sc9 0) ((1) (let ((e-6 (vector-ref sc9 1))) (let ((e-7 (vector-ref sc9 2))) (let ((u--fy (vector 1 e-6 e-7))) (let ((u--fx (vector 1 e-3 e-4))) (let ((u--mode (cons e-0 (vector 3 )))) (CoreC-45Unify-case--unifyBothApps-13618 arg-2 arg-11 e-7 e-6 u--fy arg-9 arg-8 e-4 e-3 u--fx arg-6 arg-5 arg-4 e-0 u--mode arg-1 arg-0 (CoreC-45Name-u--C-61C-61_Eq_Name e-4 e-7))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))) ((2) (let ((sc8 arg-7)) (case (vector-ref sc8 0) ((1) (let ((e-9 (vector-ref sc8 1))) (let ((e-10 (vector-ref sc8 2))) (let ((sc9 arg-10)) (case (vector-ref sc9 0) ((1) (let ((e-12 (vector-ref sc9 1))) (let ((e-13 (vector-ref sc9 2))) (let ((u--fy (vector 1 e-12 e-13))) (let ((u--fx (vector 1 e-9 e-10))) (let ((u--mode (cons e-0 (vector 2 )))) (CoreC-45Unify-case--unifyBothApps-13735 arg-2 arg-11 e-13 e-12 u--fy arg-9 arg-8 e-10 e-9 u--fx arg-6 arg-5 arg-4 e-0 u--mode arg-1 arg-0 (CoreC-45Name-u--C-61C-61_Eq_Name e-10 e-13))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))))))) ((2) (let ((e-24 (vector-ref sc5 1))) (let ((e-25 (vector-ref sc5 2))) (let ((e-26 (vector-ref sc5 3))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((2) (let ((e-33 (vector-ref sc6 1))) (let ((e-34 (vector-ref sc6 2))) (let ((e-35 (vector-ref sc6 3))) (lambda (eta-0) (let ((act-24 (CoreC-45Unify-isDefInvertible arg-0 arg-4 e-25 eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) ((CoreC-45Unify-case--unifyBothApps-13287 arg-2 e-26 e-25 e-24 e-35 e-34 e-33 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (PreludeC-45Basics-C-38C-38 (PreludeC-45EqOrd-u--C-61C-61_Eq_Int e-25 e-34) (lambda () (PreludeC-45Basics-C-124C-124 e-5 (lambda () (CoreC-45Unify-u--C-61C-61_Eq_UnifyMode (let ((sc8 arg-3)) (let ((e-1 (cdr sc8))) e-1)) (vector 3 ))))))) eta-0)))))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-24 e-25 e-26) arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((2) (let ((e-15 (vector-ref sc5 1))) (let ((e-16 (vector-ref sc5 2))) (let ((e-17 (vector-ref sc5 3))) (CoreC-45Unify-case--unifyBothApps-13538 arg-2 e-17 e-16 e-15 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (CoreC-45Unify-u--C-47C-61_Eq_UnifyMode (let ((sc6 arg-3)) (let ((e-1 (cdr sc6))) e-1)) (vector 2 )))))))(else (let ((sc5 arg-3)) (if (null? sc5) (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)) (let ((e-0 (car sc5))) (let ((e-1 (cdr sc5))) (let ((sc6 e-1)) (case (vector-ref sc6 0) ((3) (let ((sc7 arg-7)) (case (vector-ref sc7 0) ((1) (let ((e-3 (vector-ref sc7 1))) (let ((e-4 (vector-ref sc7 2))) (let ((sc8 arg-10)) (case (vector-ref sc8 0) ((1) (let ((e-6 (vector-ref sc8 1))) (let ((e-7 (vector-ref sc8 2))) (let ((u--fy (vector 1 e-6 e-7))) (let ((u--fx (vector 1 e-3 e-4))) (let ((u--mode (cons e-0 (vector 3 )))) (CoreC-45Unify-case--unifyBothApps-13618 arg-2 arg-11 e-7 e-6 u--fy arg-9 arg-8 e-4 e-3 u--fx arg-6 arg-5 arg-4 e-0 u--mode arg-1 arg-0 (CoreC-45Name-u--C-61C-61_Eq_Name e-4 e-7))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))) ((2) (let ((sc7 arg-7)) (case (vector-ref sc7 0) ((1) (let ((e-9 (vector-ref sc7 1))) (let ((e-10 (vector-ref sc7 2))) (let ((sc8 arg-10)) (case (vector-ref sc8 0) ((1) (let ((e-12 (vector-ref sc8 1))) (let ((e-13 (vector-ref sc8 2))) (let ((u--fy (vector 1 e-12 e-13))) (let ((u--fx (vector 1 e-9 e-10))) (let ((u--mode (cons e-0 (vector 2 )))) (CoreC-45Unify-case--unifyBothApps-13735 arg-2 arg-11 e-13 e-12 u--fy arg-9 arg-8 e-10 e-9 u--fx arg-6 arg-5 arg-4 e-0 u--mode arg-1 arg-0 (CoreC-45Name-u--C-61C-61_Eq_Name e-10 e-13))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-20 (vector-ref sc4 1))) (let ((e-21 (vector-ref sc4 2))) (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((0) (let ((e-29 (vector-ref sc5 1))) (let ((e-30 (vector-ref sc5 2))) (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-log arg-0 "unify.application" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Both local apps, unifyIfEq") eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (CoreC-45Unify-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-20 e-21) arg-8) (vector 1 arg-9 (vector 0 e-29 e-30) arg-11) eta-0)))))))))(else (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((2) (let ((e-15 (vector-ref sc5 1))) (let ((e-16 (vector-ref sc5 2))) (let ((e-17 (vector-ref sc5 3))) (CoreC-45Unify-case--unifyBothApps-13538 arg-2 e-17 e-16 e-15 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (CoreC-45Unify-u--C-47C-61_Eq_UnifyMode (let ((sc6 arg-3)) (let ((e-1 (cdr sc6))) e-1)) (vector 2 )))))))(else (let ((sc5 arg-3)) (if (null? sc5) (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)) (let ((e-0 (car sc5))) (let ((e-1 (cdr sc5))) (let ((sc6 e-1)) (case (vector-ref sc6 0) ((3) (let ((sc7 arg-7)) (case (vector-ref sc7 0) ((1) (let ((e-3 (vector-ref sc7 1))) (let ((e-4 (vector-ref sc7 2))) (let ((sc8 arg-10)) (case (vector-ref sc8 0) ((1) (let ((e-6 (vector-ref sc8 1))) (let ((e-7 (vector-ref sc8 2))) (let ((u--fy (vector 1 e-6 e-7))) (let ((u--fx (vector 1 e-3 e-4))) (let ((u--mode (cons e-0 (vector 3 )))) (CoreC-45Unify-case--unifyBothApps-13618 arg-2 arg-11 e-7 e-6 u--fy arg-9 arg-8 e-4 e-3 u--fx arg-6 arg-5 arg-4 e-0 u--mode arg-1 arg-0 (CoreC-45Name-u--C-61C-61_Eq_Name e-4 e-7))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))) ((2) (let ((sc7 arg-7)) (case (vector-ref sc7 0) ((1) (let ((e-9 (vector-ref sc7 1))) (let ((e-10 (vector-ref sc7 2))) (let ((sc8 arg-10)) (case (vector-ref sc8 0) ((1) (let ((e-12 (vector-ref sc8 1))) (let ((e-13 (vector-ref sc8 2))) (let ((u--fy (vector 1 e-12 e-13))) (let ((u--fx (vector 1 e-9 e-10))) (let ((u--mode (cons e-0 (vector 2 )))) (CoreC-45Unify-case--unifyBothApps-13735 arg-2 arg-11 e-13 e-12 u--fy arg-9 arg-8 e-10 e-9 u--fx arg-6 arg-5 arg-4 e-0 u--mode arg-1 arg-0 (CoreC-45Name-u--C-61C-61_Eq_Name e-10 e-13))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))))))) ((2) (let ((e-24 (vector-ref sc4 1))) (let ((e-25 (vector-ref sc4 2))) (let ((e-26 (vector-ref sc4 3))) (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((2) (let ((e-33 (vector-ref sc5 1))) (let ((e-34 (vector-ref sc5 2))) (let ((e-35 (vector-ref sc5 3))) (lambda (eta-0) (let ((act-24 (CoreC-45Unify-isDefInvertible arg-0 arg-4 e-25 eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) ((CoreC-45Unify-case--unifyBothApps-13287 arg-2 e-26 e-25 e-24 e-35 e-34 e-33 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (PreludeC-45Basics-C-38C-38 (PreludeC-45EqOrd-u--C-61C-61_Eq_Int e-25 e-34) (lambda () (PreludeC-45Basics-C-124C-124 e-5 (lambda () (CoreC-45Unify-u--C-61C-61_Eq_UnifyMode (let ((sc7 arg-3)) (let ((e-1 (cdr sc7))) e-1)) (vector 3 ))))))) eta-0)))))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-24 e-25 e-26) arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((2) (let ((e-15 (vector-ref sc4 1))) (let ((e-16 (vector-ref sc4 2))) (let ((e-17 (vector-ref sc4 3))) (CoreC-45Unify-case--unifyBothApps-13538 arg-2 e-17 e-16 e-15 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (CoreC-45Unify-u--C-47C-61_Eq_UnifyMode (let ((sc5 arg-3)) (let ((e-1 (cdr sc5))) e-1)) (vector 2 )))))))(else (let ((sc4 arg-3)) (if (null? sc4) (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)) (let ((e-0 (car sc4))) (let ((e-1 (cdr sc4))) (let ((sc5 e-1)) (case (vector-ref sc5 0) ((3) (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((1) (let ((e-3 (vector-ref sc6 1))) (let ((e-4 (vector-ref sc6 2))) (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((1) (let ((e-6 (vector-ref sc7 1))) (let ((e-7 (vector-ref sc7 2))) (let ((u--fy (vector 1 e-6 e-7))) (let ((u--fx (vector 1 e-3 e-4))) (let ((u--mode (cons e-0 (vector 3 )))) (CoreC-45Unify-case--unifyBothApps-13618 arg-2 arg-11 e-7 e-6 u--fy arg-9 arg-8 e-4 e-3 u--fx arg-6 arg-5 arg-4 e-0 u--mode arg-1 arg-0 (CoreC-45Name-u--C-61C-61_Eq_Name e-4 e-7))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))) ((2) (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((1) (let ((e-9 (vector-ref sc6 1))) (let ((e-10 (vector-ref sc6 2))) (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((1) (let ((e-12 (vector-ref sc7 1))) (let ((e-13 (vector-ref sc7 2))) (let ((u--fy (vector 1 e-12 e-13))) (let ((u--fx (vector 1 e-9 e-10))) (let ((u--mode (cons e-0 (vector 2 )))) (CoreC-45Unify-case--unifyBothApps-13735 arg-2 arg-11 e-13 e-12 u--fy arg-9 arg-8 e-10 e-9 u--fx arg-6 arg-5 arg-4 e-0 u--mode arg-1 arg-0 (CoreC-45Name-u--C-61C-61_Eq_Name e-10 e-13))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))))))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-20 (vector-ref sc3 1))) (let ((e-21 (vector-ref sc3 2))) (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((0) (let ((e-29 (vector-ref sc4 1))) (let ((e-30 (vector-ref sc4 2))) (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-log arg-0 "unify.application" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Both local apps, unifyIfEq") eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (CoreC-45Unify-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-20 e-21) arg-8) (vector 1 arg-9 (vector 0 e-29 e-30) arg-11) eta-0)))))))))(else (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((2) (let ((e-15 (vector-ref sc4 1))) (let ((e-16 (vector-ref sc4 2))) (let ((e-17 (vector-ref sc4 3))) (CoreC-45Unify-case--unifyBothApps-13538 arg-2 e-17 e-16 e-15 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (CoreC-45Unify-u--C-47C-61_Eq_UnifyMode (let ((sc5 arg-3)) (let ((e-1 (cdr sc5))) e-1)) (vector 2 )))))))(else (let ((sc4 arg-3)) (if (null? sc4) (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)) (let ((e-0 (car sc4))) (let ((e-1 (cdr sc4))) (let ((sc5 e-1)) (case (vector-ref sc5 0) ((3) (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((1) (let ((e-3 (vector-ref sc6 1))) (let ((e-4 (vector-ref sc6 2))) (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((1) (let ((e-6 (vector-ref sc7 1))) (let ((e-7 (vector-ref sc7 2))) (let ((u--fy (vector 1 e-6 e-7))) (let ((u--fx (vector 1 e-3 e-4))) (let ((u--mode (cons e-0 (vector 3 )))) (CoreC-45Unify-case--unifyBothApps-13618 arg-2 arg-11 e-7 e-6 u--fy arg-9 arg-8 e-4 e-3 u--fx arg-6 arg-5 arg-4 e-0 u--mode arg-1 arg-0 (CoreC-45Name-u--C-61C-61_Eq_Name e-4 e-7))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))) ((2) (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((1) (let ((e-9 (vector-ref sc6 1))) (let ((e-10 (vector-ref sc6 2))) (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((1) (let ((e-12 (vector-ref sc7 1))) (let ((e-13 (vector-ref sc7 2))) (let ((u--fy (vector 1 e-12 e-13))) (let ((u--fx (vector 1 e-9 e-10))) (let ((u--mode (cons e-0 (vector 2 )))) (CoreC-45Unify-case--unifyBothApps-13735 arg-2 arg-11 e-13 e-12 u--fy arg-9 arg-8 e-10 e-9 u--fx arg-6 arg-5 arg-4 e-0 u--mode arg-1 arg-0 (CoreC-45Name-u--C-61C-61_Eq_Name e-10 e-13))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))))))) ((2) (let ((e-24 (vector-ref sc3 1))) (let ((e-25 (vector-ref sc3 2))) (let ((e-26 (vector-ref sc3 3))) (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((2) (let ((e-33 (vector-ref sc4 1))) (let ((e-34 (vector-ref sc4 2))) (let ((e-35 (vector-ref sc4 3))) (lambda (eta-0) (let ((act-24 (CoreC-45Unify-isDefInvertible arg-0 arg-4 e-25 eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) ((CoreC-45Unify-case--unifyBothApps-13287 arg-2 e-26 e-25 e-24 e-35 e-34 e-33 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (PreludeC-45Basics-C-38C-38 (PreludeC-45EqOrd-u--C-61C-61_Eq_Int e-25 e-34) (lambda () (PreludeC-45Basics-C-124C-124 e-5 (lambda () (CoreC-45Unify-u--C-61C-61_Eq_UnifyMode (let ((sc6 arg-3)) (let ((e-1 (cdr sc6))) e-1)) (vector 3 ))))))) eta-0)))))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-24 e-25 e-26) arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((2) (let ((e-15 (vector-ref sc3 1))) (let ((e-16 (vector-ref sc3 2))) (let ((e-17 (vector-ref sc3 3))) (CoreC-45Unify-case--unifyBothApps-13538 arg-2 e-17 e-16 e-15 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (CoreC-45Unify-u--C-47C-61_Eq_UnifyMode (let ((sc4 arg-3)) (let ((e-1 (cdr sc4))) e-1)) (vector 2 )))))))(else (let ((sc3 arg-3)) (if (null? sc3) (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)) (let ((e-0 (car sc3))) (let ((e-1 (cdr sc3))) (let ((sc4 e-1)) (case (vector-ref sc4 0) ((3) (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((1) (let ((e-3 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((1) (let ((e-6 (vector-ref sc6 1))) (let ((e-7 (vector-ref sc6 2))) (let ((u--fy (vector 1 e-6 e-7))) (let ((u--fx (vector 1 e-3 e-4))) (let ((u--mode (cons e-0 (vector 3 )))) (CoreC-45Unify-case--unifyBothApps-13618 arg-2 arg-11 e-7 e-6 u--fy arg-9 arg-8 e-4 e-3 u--fx arg-6 arg-5 arg-4 e-0 u--mode arg-1 arg-0 (CoreC-45Name-u--C-61C-61_Eq_Name e-4 e-7))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))) ((2) (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((1) (let ((e-9 (vector-ref sc5 1))) (let ((e-10 (vector-ref sc5 2))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((1) (let ((e-12 (vector-ref sc6 1))) (let ((e-13 (vector-ref sc6 2))) (let ((u--fy (vector 1 e-12 e-13))) (let ((u--fx (vector 1 e-9 e-10))) (let ((u--mode (cons e-0 (vector 2 )))) (CoreC-45Unify-case--unifyBothApps-13735 arg-2 arg-11 e-13 e-12 u--fy arg-9 arg-8 e-10 e-9 u--fx arg-6 arg-5 arg-4 e-0 u--mode arg-1 arg-0 (CoreC-45Name-u--C-61C-61_Eq_Name e-10 e-13))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))))))))))))))))))) (let ((sc2 arg-3)) (if (null? sc2) (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-20 (vector-ref sc3 1))) (let ((e-21 (vector-ref sc3 2))) (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((0) (let ((e-29 (vector-ref sc4 1))) (let ((e-30 (vector-ref sc4 2))) (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-log arg-0 "unify.application" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Both local apps, unifyIfEq") eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (CoreC-45Unify-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-20 e-21) arg-8) (vector 1 arg-9 (vector 0 e-29 e-30) arg-11) eta-0)))))))))(else (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((2) (let ((e-15 (vector-ref sc4 1))) (let ((e-16 (vector-ref sc4 2))) (let ((e-17 (vector-ref sc4 3))) (CoreC-45Unify-case--unifyBothApps-13538 arg-2 e-17 e-16 e-15 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (CoreC-45Unify-u--C-47C-61_Eq_UnifyMode (let ((sc5 arg-3)) (let ((e-1 (cdr sc5))) e-1)) (vector 2 )))))))(else (let ((sc4 arg-3)) (if (null? sc4) (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)) (let ((e-0 (car sc4))) (let ((e-1 (cdr sc4))) (let ((sc5 e-1)) (case (vector-ref sc5 0) ((3) (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((1) (let ((e-3 (vector-ref sc6 1))) (let ((e-4 (vector-ref sc6 2))) (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((1) (let ((e-6 (vector-ref sc7 1))) (let ((e-7 (vector-ref sc7 2))) (let ((u--fy (vector 1 e-6 e-7))) (let ((u--fx (vector 1 e-3 e-4))) (let ((u--mode (cons e-0 (vector 3 )))) (CoreC-45Unify-case--unifyBothApps-13618 arg-2 arg-11 e-7 e-6 u--fy arg-9 arg-8 e-4 e-3 u--fx arg-6 arg-5 arg-4 e-0 u--mode arg-1 arg-0 (CoreC-45Name-u--C-61C-61_Eq_Name e-4 e-7))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))) ((2) (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((1) (let ((e-9 (vector-ref sc6 1))) (let ((e-10 (vector-ref sc6 2))) (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((1) (let ((e-12 (vector-ref sc7 1))) (let ((e-13 (vector-ref sc7 2))) (let ((u--fy (vector 1 e-12 e-13))) (let ((u--fx (vector 1 e-9 e-10))) (let ((u--mode (cons e-0 (vector 2 )))) (CoreC-45Unify-case--unifyBothApps-13735 arg-2 arg-11 e-13 e-12 u--fy arg-9 arg-8 e-10 e-9 u--fx arg-6 arg-5 arg-4 e-0 u--mode arg-1 arg-0 (CoreC-45Name-u--C-61C-61_Eq_Name e-10 e-13))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))))))) ((2) (let ((e-24 (vector-ref sc3 1))) (let ((e-25 (vector-ref sc3 2))) (let ((e-26 (vector-ref sc3 3))) (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((2) (let ((e-33 (vector-ref sc4 1))) (let ((e-34 (vector-ref sc4 2))) (let ((e-35 (vector-ref sc4 3))) (lambda (eta-0) (let ((act-24 (CoreC-45Unify-isDefInvertible arg-0 arg-4 e-25 eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) ((CoreC-45Unify-case--unifyBothApps-13287 arg-2 e-26 e-25 e-24 e-35 e-34 e-33 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (PreludeC-45Basics-C-38C-38 (PreludeC-45EqOrd-u--C-61C-61_Eq_Int e-25 e-34) (lambda () (PreludeC-45Basics-C-124C-124 e-5 (lambda () (CoreC-45Unify-u--C-61C-61_Eq_UnifyMode (let ((sc6 arg-3)) (let ((e-1 (cdr sc6))) e-1)) (vector 3 ))))))) eta-0)))))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-24 e-25 e-26) arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((2) (let ((e-15 (vector-ref sc3 1))) (let ((e-16 (vector-ref sc3 2))) (let ((e-17 (vector-ref sc3 3))) (CoreC-45Unify-case--unifyBothApps-13538 arg-2 e-17 e-16 e-15 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (CoreC-45Unify-u--C-47C-61_Eq_UnifyMode (let ((sc4 arg-3)) (let ((e-1 (cdr sc4))) e-1)) (vector 2 )))))))(else (let ((sc3 arg-3)) (if (null? sc3) (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)) (let ((e-0 (car sc3))) (let ((e-1 (cdr sc3))) (let ((sc4 e-1)) (case (vector-ref sc4 0) ((3) (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((1) (let ((e-3 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((1) (let ((e-6 (vector-ref sc6 1))) (let ((e-7 (vector-ref sc6 2))) (let ((u--fy (vector 1 e-6 e-7))) (let ((u--fx (vector 1 e-3 e-4))) (let ((u--mode (cons e-0 (vector 3 )))) (CoreC-45Unify-case--unifyBothApps-13618 arg-2 arg-11 e-7 e-6 u--fy arg-9 arg-8 e-4 e-3 u--fx arg-6 arg-5 arg-4 e-0 u--mode arg-1 arg-0 (CoreC-45Name-u--C-61C-61_Eq_Name e-4 e-7))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))) ((2) (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((1) (let ((e-9 (vector-ref sc5 1))) (let ((e-10 (vector-ref sc5 2))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((1) (let ((e-12 (vector-ref sc6 1))) (let ((e-13 (vector-ref sc6 2))) (let ((u--fy (vector 1 e-12 e-13))) (let ((u--fx (vector 1 e-9 e-10))) (let ((u--mode (cons e-0 (vector 2 )))) (CoreC-45Unify-case--unifyBothApps-13735 arg-2 arg-11 e-13 e-12 u--fy arg-9 arg-8 e-10 e-9 u--fx arg-6 arg-5 arg-4 e-0 u--mode arg-1 arg-0 (CoreC-45Name-u--C-61C-61_Eq_Name e-10 e-13))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))))))))) (let ((e-36 (car sc2))) (let ((e-37 (cdr sc2))) (let ((sc3 e-37)) (case (vector-ref sc3 0) ((1) (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-40 (vector-ref sc4 1))) (let ((e-41 (vector-ref sc4 2))) (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((0) (let ((e-45 (vector-ref sc5 1))) (let ((e-46 (vector-ref sc5 2))) (let ((u--mode (cons e-36 (vector 1 )))) (CoreC-45Unify-case--unifyBothApps-12979 arg-2 e-41 e-40 e-46 e-45 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 e-36 u--mode arg-1 arg-0 (PreludeC-45Types-u--C-61C-61_Eq_Nat e-41 e-46))))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-20 (vector-ref sc5 1))) (let ((e-21 (vector-ref sc5 2))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((0) (let ((e-29 (vector-ref sc6 1))) (let ((e-30 (vector-ref sc6 2))) (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-log arg-0 "unify.application" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Both local apps, unifyIfEq") eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (CoreC-45Unify-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-20 e-21) arg-8) (vector 1 arg-9 (vector 0 e-29 e-30) arg-11) eta-0)))))))))(else (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((2) (let ((e-15 (vector-ref sc6 1))) (let ((e-16 (vector-ref sc6 2))) (let ((e-17 (vector-ref sc6 3))) (CoreC-45Unify-case--unifyBothApps-13538 arg-2 e-17 e-16 e-15 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (CoreC-45Unify-u--C-47C-61_Eq_UnifyMode (let ((sc7 arg-3)) (let ((e-1 (cdr sc7))) e-1)) (vector 2 )))))))(else (let ((sc6 arg-3)) (if (null? sc6) (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)) (let ((e-0 (car sc6))) (let ((e-1 (cdr sc6))) (let ((sc7 e-1)) (case (vector-ref sc7 0) ((3) (let ((sc8 arg-7)) (case (vector-ref sc8 0) ((1) (let ((e-3 (vector-ref sc8 1))) (let ((e-4 (vector-ref sc8 2))) (let ((sc9 arg-10)) (case (vector-ref sc9 0) ((1) (let ((e-6 (vector-ref sc9 1))) (let ((e-7 (vector-ref sc9 2))) (let ((u--fy (vector 1 e-6 e-7))) (let ((u--fx (vector 1 e-3 e-4))) (let ((u--mode (cons e-0 (vector 3 )))) (CoreC-45Unify-case--unifyBothApps-13618 arg-2 arg-11 e-7 e-6 u--fy arg-9 arg-8 e-4 e-3 u--fx arg-6 arg-5 arg-4 e-0 u--mode arg-1 arg-0 (CoreC-45Name-u--C-61C-61_Eq_Name e-4 e-7))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))) ((2) (let ((sc8 arg-7)) (case (vector-ref sc8 0) ((1) (let ((e-9 (vector-ref sc8 1))) (let ((e-10 (vector-ref sc8 2))) (let ((sc9 arg-10)) (case (vector-ref sc9 0) ((1) (let ((e-12 (vector-ref sc9 1))) (let ((e-13 (vector-ref sc9 2))) (let ((u--fy (vector 1 e-12 e-13))) (let ((u--fx (vector 1 e-9 e-10))) (let ((u--mode (cons e-0 (vector 2 )))) (CoreC-45Unify-case--unifyBothApps-13735 arg-2 arg-11 e-13 e-12 u--fy arg-9 arg-8 e-10 e-9 u--fx arg-6 arg-5 arg-4 e-0 u--mode arg-1 arg-0 (CoreC-45Name-u--C-61C-61_Eq_Name e-10 e-13))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))))))) ((2) (let ((e-24 (vector-ref sc5 1))) (let ((e-25 (vector-ref sc5 2))) (let ((e-26 (vector-ref sc5 3))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((2) (let ((e-33 (vector-ref sc6 1))) (let ((e-34 (vector-ref sc6 2))) (let ((e-35 (vector-ref sc6 3))) (lambda (eta-0) (let ((act-24 (CoreC-45Unify-isDefInvertible arg-0 arg-4 e-25 eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) ((CoreC-45Unify-case--unifyBothApps-13287 arg-2 e-26 e-25 e-24 e-35 e-34 e-33 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (PreludeC-45Basics-C-38C-38 (PreludeC-45EqOrd-u--C-61C-61_Eq_Int e-25 e-34) (lambda () (PreludeC-45Basics-C-124C-124 e-5 (lambda () (CoreC-45Unify-u--C-61C-61_Eq_UnifyMode (let ((sc8 arg-3)) (let ((e-1 (cdr sc8))) e-1)) (vector 3 ))))))) eta-0)))))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-24 e-25 e-26) arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((2) (let ((e-15 (vector-ref sc5 1))) (let ((e-16 (vector-ref sc5 2))) (let ((e-17 (vector-ref sc5 3))) (CoreC-45Unify-case--unifyBothApps-13538 arg-2 e-17 e-16 e-15 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (CoreC-45Unify-u--C-47C-61_Eq_UnifyMode (let ((sc6 arg-3)) (let ((e-1 (cdr sc6))) e-1)) (vector 2 )))))))(else (let ((sc5 arg-3)) (if (null? sc5) (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)) (let ((e-0 (car sc5))) (let ((e-1 (cdr sc5))) (let ((sc6 e-1)) (case (vector-ref sc6 0) ((3) (let ((sc7 arg-7)) (case (vector-ref sc7 0) ((1) (let ((e-3 (vector-ref sc7 1))) (let ((e-4 (vector-ref sc7 2))) (let ((sc8 arg-10)) (case (vector-ref sc8 0) ((1) (let ((e-6 (vector-ref sc8 1))) (let ((e-7 (vector-ref sc8 2))) (let ((u--fy (vector 1 e-6 e-7))) (let ((u--fx (vector 1 e-3 e-4))) (let ((u--mode (cons e-0 (vector 3 )))) (CoreC-45Unify-case--unifyBothApps-13618 arg-2 arg-11 e-7 e-6 u--fy arg-9 arg-8 e-4 e-3 u--fx arg-6 arg-5 arg-4 e-0 u--mode arg-1 arg-0 (CoreC-45Name-u--C-61C-61_Eq_Name e-4 e-7))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))) ((2) (let ((sc7 arg-7)) (case (vector-ref sc7 0) ((1) (let ((e-9 (vector-ref sc7 1))) (let ((e-10 (vector-ref sc7 2))) (let ((sc8 arg-10)) (case (vector-ref sc8 0) ((1) (let ((e-12 (vector-ref sc8 1))) (let ((e-13 (vector-ref sc8 2))) (let ((u--fy (vector 1 e-12 e-13))) (let ((u--fx (vector 1 e-9 e-10))) (let ((u--mode (cons e-0 (vector 2 )))) (CoreC-45Unify-case--unifyBothApps-13735 arg-2 arg-11 e-13 e-12 u--fy arg-9 arg-8 e-10 e-9 u--fx arg-6 arg-5 arg-4 e-0 u--mode arg-1 arg-0 (CoreC-45Name-u--C-61C-61_Eq_Name e-10 e-13))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-20 (vector-ref sc4 1))) (let ((e-21 (vector-ref sc4 2))) (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((0) (let ((e-29 (vector-ref sc5 1))) (let ((e-30 (vector-ref sc5 2))) (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-log arg-0 "unify.application" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Both local apps, unifyIfEq") eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (CoreC-45Unify-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-20 e-21) arg-8) (vector 1 arg-9 (vector 0 e-29 e-30) arg-11) eta-0)))))))))(else (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((2) (let ((e-15 (vector-ref sc5 1))) (let ((e-16 (vector-ref sc5 2))) (let ((e-17 (vector-ref sc5 3))) (CoreC-45Unify-case--unifyBothApps-13538 arg-2 e-17 e-16 e-15 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (CoreC-45Unify-u--C-47C-61_Eq_UnifyMode (let ((sc6 arg-3)) (let ((e-1 (cdr sc6))) e-1)) (vector 2 )))))))(else (let ((sc5 arg-3)) (if (null? sc5) (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)) (let ((e-0 (car sc5))) (let ((e-1 (cdr sc5))) (let ((sc6 e-1)) (case (vector-ref sc6 0) ((3) (let ((sc7 arg-7)) (case (vector-ref sc7 0) ((1) (let ((e-3 (vector-ref sc7 1))) (let ((e-4 (vector-ref sc7 2))) (let ((sc8 arg-10)) (case (vector-ref sc8 0) ((1) (let ((e-6 (vector-ref sc8 1))) (let ((e-7 (vector-ref sc8 2))) (let ((u--fy (vector 1 e-6 e-7))) (let ((u--fx (vector 1 e-3 e-4))) (let ((u--mode (cons e-0 (vector 3 )))) (CoreC-45Unify-case--unifyBothApps-13618 arg-2 arg-11 e-7 e-6 u--fy arg-9 arg-8 e-4 e-3 u--fx arg-6 arg-5 arg-4 e-0 u--mode arg-1 arg-0 (CoreC-45Name-u--C-61C-61_Eq_Name e-4 e-7))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))) ((2) (let ((sc7 arg-7)) (case (vector-ref sc7 0) ((1) (let ((e-9 (vector-ref sc7 1))) (let ((e-10 (vector-ref sc7 2))) (let ((sc8 arg-10)) (case (vector-ref sc8 0) ((1) (let ((e-12 (vector-ref sc8 1))) (let ((e-13 (vector-ref sc8 2))) (let ((u--fy (vector 1 e-12 e-13))) (let ((u--fx (vector 1 e-9 e-10))) (let ((u--mode (cons e-0 (vector 2 )))) (CoreC-45Unify-case--unifyBothApps-13735 arg-2 arg-11 e-13 e-12 u--fy arg-9 arg-8 e-10 e-9 u--fx arg-6 arg-5 arg-4 e-0 u--mode arg-1 arg-0 (CoreC-45Name-u--C-61C-61_Eq_Name e-10 e-13))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))))))) ((2) (let ((e-24 (vector-ref sc4 1))) (let ((e-25 (vector-ref sc4 2))) (let ((e-26 (vector-ref sc4 3))) (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((2) (let ((e-33 (vector-ref sc5 1))) (let ((e-34 (vector-ref sc5 2))) (let ((e-35 (vector-ref sc5 3))) (lambda (eta-0) (let ((act-24 (CoreC-45Unify-isDefInvertible arg-0 arg-4 e-25 eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) ((CoreC-45Unify-case--unifyBothApps-13287 arg-2 e-26 e-25 e-24 e-35 e-34 e-33 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (PreludeC-45Basics-C-38C-38 (PreludeC-45EqOrd-u--C-61C-61_Eq_Int e-25 e-34) (lambda () (PreludeC-45Basics-C-124C-124 e-5 (lambda () (CoreC-45Unify-u--C-61C-61_Eq_UnifyMode (let ((sc7 arg-3)) (let ((e-1 (cdr sc7))) e-1)) (vector 3 ))))))) eta-0)))))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-24 e-25 e-26) arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((2) (let ((e-15 (vector-ref sc4 1))) (let ((e-16 (vector-ref sc4 2))) (let ((e-17 (vector-ref sc4 3))) (CoreC-45Unify-case--unifyBothApps-13538 arg-2 e-17 e-16 e-15 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (CoreC-45Unify-u--C-47C-61_Eq_UnifyMode (let ((sc5 arg-3)) (let ((e-1 (cdr sc5))) e-1)) (vector 2 )))))))(else (let ((sc4 arg-3)) (if (null? sc4) (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)) (let ((e-0 (car sc4))) (let ((e-1 (cdr sc4))) (let ((sc5 e-1)) (case (vector-ref sc5 0) ((3) (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((1) (let ((e-3 (vector-ref sc6 1))) (let ((e-4 (vector-ref sc6 2))) (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((1) (let ((e-6 (vector-ref sc7 1))) (let ((e-7 (vector-ref sc7 2))) (let ((u--fy (vector 1 e-6 e-7))) (let ((u--fx (vector 1 e-3 e-4))) (let ((u--mode (cons e-0 (vector 3 )))) (CoreC-45Unify-case--unifyBothApps-13618 arg-2 arg-11 e-7 e-6 u--fy arg-9 arg-8 e-4 e-3 u--fx arg-6 arg-5 arg-4 e-0 u--mode arg-1 arg-0 (CoreC-45Name-u--C-61C-61_Eq_Name e-4 e-7))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))) ((2) (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((1) (let ((e-9 (vector-ref sc6 1))) (let ((e-10 (vector-ref sc6 2))) (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((1) (let ((e-12 (vector-ref sc7 1))) (let ((e-13 (vector-ref sc7 2))) (let ((u--fy (vector 1 e-12 e-13))) (let ((u--fx (vector 1 e-9 e-10))) (let ((u--mode (cons e-0 (vector 2 )))) (CoreC-45Unify-case--unifyBothApps-13735 arg-2 arg-11 e-13 e-12 u--fy arg-9 arg-8 e-10 e-9 u--fx arg-6 arg-5 arg-4 e-0 u--mode arg-1 arg-0 (CoreC-45Name-u--C-61C-61_Eq_Name e-10 e-13))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))))))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-20 (vector-ref sc3 1))) (let ((e-21 (vector-ref sc3 2))) (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((0) (let ((e-29 (vector-ref sc4 1))) (let ((e-30 (vector-ref sc4 2))) (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-log arg-0 "unify.application" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Both local apps, unifyIfEq") eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (CoreC-45Unify-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-20 e-21) arg-8) (vector 1 arg-9 (vector 0 e-29 e-30) arg-11) eta-0)))))))))(else (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((2) (let ((e-15 (vector-ref sc4 1))) (let ((e-16 (vector-ref sc4 2))) (let ((e-17 (vector-ref sc4 3))) (CoreC-45Unify-case--unifyBothApps-13538 arg-2 e-17 e-16 e-15 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (CoreC-45Unify-u--C-47C-61_Eq_UnifyMode (let ((sc5 arg-3)) (let ((e-1 (cdr sc5))) e-1)) (vector 2 )))))))(else (let ((sc4 arg-3)) (if (null? sc4) (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)) (let ((e-0 (car sc4))) (let ((e-1 (cdr sc4))) (let ((sc5 e-1)) (case (vector-ref sc5 0) ((3) (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((1) (let ((e-3 (vector-ref sc6 1))) (let ((e-4 (vector-ref sc6 2))) (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((1) (let ((e-6 (vector-ref sc7 1))) (let ((e-7 (vector-ref sc7 2))) (let ((u--fy (vector 1 e-6 e-7))) (let ((u--fx (vector 1 e-3 e-4))) (let ((u--mode (cons e-0 (vector 3 )))) (CoreC-45Unify-case--unifyBothApps-13618 arg-2 arg-11 e-7 e-6 u--fy arg-9 arg-8 e-4 e-3 u--fx arg-6 arg-5 arg-4 e-0 u--mode arg-1 arg-0 (CoreC-45Name-u--C-61C-61_Eq_Name e-4 e-7))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))) ((2) (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((1) (let ((e-9 (vector-ref sc6 1))) (let ((e-10 (vector-ref sc6 2))) (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((1) (let ((e-12 (vector-ref sc7 1))) (let ((e-13 (vector-ref sc7 2))) (let ((u--fy (vector 1 e-12 e-13))) (let ((u--fx (vector 1 e-9 e-10))) (let ((u--mode (cons e-0 (vector 2 )))) (CoreC-45Unify-case--unifyBothApps-13735 arg-2 arg-11 e-13 e-12 u--fy arg-9 arg-8 e-10 e-9 u--fx arg-6 arg-5 arg-4 e-0 u--mode arg-1 arg-0 (CoreC-45Name-u--C-61C-61_Eq_Name e-10 e-13))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))))))) ((2) (let ((e-24 (vector-ref sc3 1))) (let ((e-25 (vector-ref sc3 2))) (let ((e-26 (vector-ref sc3 3))) (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((2) (let ((e-33 (vector-ref sc4 1))) (let ((e-34 (vector-ref sc4 2))) (let ((e-35 (vector-ref sc4 3))) (lambda (eta-0) (let ((act-24 (CoreC-45Unify-isDefInvertible arg-0 arg-4 e-25 eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) ((CoreC-45Unify-case--unifyBothApps-13287 arg-2 e-26 e-25 e-24 e-35 e-34 e-33 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (PreludeC-45Basics-C-38C-38 (PreludeC-45EqOrd-u--C-61C-61_Eq_Int e-25 e-34) (lambda () (PreludeC-45Basics-C-124C-124 e-5 (lambda () (CoreC-45Unify-u--C-61C-61_Eq_UnifyMode (let ((sc6 arg-3)) (let ((e-1 (cdr sc6))) e-1)) (vector 3 ))))))) eta-0)))))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-24 e-25 e-26) arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((2) (let ((e-15 (vector-ref sc3 1))) (let ((e-16 (vector-ref sc3 2))) (let ((e-17 (vector-ref sc3 3))) (CoreC-45Unify-case--unifyBothApps-13538 arg-2 e-17 e-16 e-15 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (CoreC-45Unify-u--C-47C-61_Eq_UnifyMode (let ((sc4 arg-3)) (let ((e-1 (cdr sc4))) e-1)) (vector 2 )))))))(else (let ((sc3 arg-3)) (if (null? sc3) (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)) (let ((e-0 (car sc3))) (let ((e-1 (cdr sc3))) (let ((sc4 e-1)) (case (vector-ref sc4 0) ((3) (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((1) (let ((e-3 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((1) (let ((e-6 (vector-ref sc6 1))) (let ((e-7 (vector-ref sc6 2))) (let ((u--fy (vector 1 e-6 e-7))) (let ((u--fx (vector 1 e-3 e-4))) (let ((u--mode (cons e-0 (vector 3 )))) (CoreC-45Unify-case--unifyBothApps-13618 arg-2 arg-11 e-7 e-6 u--fy arg-9 arg-8 e-4 e-3 u--fx arg-6 arg-5 arg-4 e-0 u--mode arg-1 arg-0 (CoreC-45Name-u--C-61C-61_Eq_Name e-4 e-7))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))) ((2) (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((1) (let ((e-9 (vector-ref sc5 1))) (let ((e-10 (vector-ref sc5 2))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((1) (let ((e-12 (vector-ref sc6 1))) (let ((e-13 (vector-ref sc6 2))) (let ((u--fy (vector 1 e-12 e-13))) (let ((u--fx (vector 1 e-9 e-10))) (let ((u--mode (cons e-0 (vector 2 )))) (CoreC-45Unify-case--unifyBothApps-13735 arg-2 arg-11 e-13 e-12 u--fy arg-9 arg-8 e-10 e-9 u--fx arg-6 arg-5 arg-4 e-0 u--mode arg-1 arg-0 (CoreC-45Name-u--C-61C-61_Eq_Name e-10 e-13))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))))))))))))))))(else (let ((sc0 arg-3)) (if (null? sc0) (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((0) (let ((e-20 (vector-ref sc1 1))) (let ((e-21 (vector-ref sc1 2))) (let ((sc2 arg-10)) (case (vector-ref sc2 0) ((0) (let ((e-29 (vector-ref sc2 1))) (let ((e-30 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-log arg-0 "unify.application" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Both local apps, unifyIfEq") eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (CoreC-45Unify-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-20 e-21) arg-8) (vector 1 arg-9 (vector 0 e-29 e-30) arg-11) eta-0)))))))))(else (let ((sc2 arg-10)) (case (vector-ref sc2 0) ((2) (let ((e-15 (vector-ref sc2 1))) (let ((e-16 (vector-ref sc2 2))) (let ((e-17 (vector-ref sc2 3))) (CoreC-45Unify-case--unifyBothApps-13538 arg-2 e-17 e-16 e-15 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (CoreC-45Unify-u--C-47C-61_Eq_UnifyMode (let ((sc3 arg-3)) (let ((e-1 (cdr sc3))) e-1)) (vector 2 )))))))(else (let ((sc2 arg-3)) (if (null? sc2) (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)) (let ((e-0 (car sc2))) (let ((e-1 (cdr sc2))) (let ((sc3 e-1)) (case (vector-ref sc3 0) ((3) (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((1) (let ((e-3 (vector-ref sc4 1))) (let ((e-4 (vector-ref sc4 2))) (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((1) (let ((e-6 (vector-ref sc5 1))) (let ((e-7 (vector-ref sc5 2))) (let ((u--fy (vector 1 e-6 e-7))) (let ((u--fx (vector 1 e-3 e-4))) (let ((u--mode (cons e-0 (vector 3 )))) (CoreC-45Unify-case--unifyBothApps-13618 arg-2 arg-11 e-7 e-6 u--fy arg-9 arg-8 e-4 e-3 u--fx arg-6 arg-5 arg-4 e-0 u--mode arg-1 arg-0 (CoreC-45Name-u--C-61C-61_Eq_Name e-4 e-7))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))) ((2) (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((1) (let ((e-9 (vector-ref sc4 1))) (let ((e-10 (vector-ref sc4 2))) (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((1) (let ((e-12 (vector-ref sc5 1))) (let ((e-13 (vector-ref sc5 2))) (let ((u--fy (vector 1 e-12 e-13))) (let ((u--fx (vector 1 e-9 e-10))) (let ((u--mode (cons e-0 (vector 2 )))) (CoreC-45Unify-case--unifyBothApps-13735 arg-2 arg-11 e-13 e-12 u--fy arg-9 arg-8 e-10 e-9 u--fx arg-6 arg-5 arg-4 e-0 u--mode arg-1 arg-0 (CoreC-45Name-u--C-61C-61_Eq_Name e-10 e-13))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))))))) ((2) (let ((e-24 (vector-ref sc1 1))) (let ((e-25 (vector-ref sc1 2))) (let ((e-26 (vector-ref sc1 3))) (let ((sc2 arg-10)) (case (vector-ref sc2 0) ((2) (let ((e-33 (vector-ref sc2 1))) (let ((e-34 (vector-ref sc2 2))) (let ((e-35 (vector-ref sc2 3))) (lambda (eta-0) (let ((act-24 (CoreC-45Unify-isDefInvertible arg-0 arg-4 e-25 eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) ((CoreC-45Unify-case--unifyBothApps-13287 arg-2 e-26 e-25 e-24 e-35 e-34 e-33 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (PreludeC-45Basics-C-38C-38 (PreludeC-45EqOrd-u--C-61C-61_Eq_Int e-25 e-34) (lambda () (PreludeC-45Basics-C-124C-124 e-5 (lambda () (CoreC-45Unify-u--C-61C-61_Eq_UnifyMode (let ((sc4 arg-3)) (let ((e-1 (cdr sc4))) e-1)) (vector 3 ))))))) eta-0)))))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-24 e-25 e-26) arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((2) (let ((e-15 (vector-ref sc1 1))) (let ((e-16 (vector-ref sc1 2))) (let ((e-17 (vector-ref sc1 3))) (CoreC-45Unify-case--unifyBothApps-13538 arg-2 e-17 e-16 e-15 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (CoreC-45Unify-u--C-47C-61_Eq_UnifyMode (let ((sc2 arg-3)) (let ((e-1 (cdr sc2))) e-1)) (vector 2 )))))))(else (let ((sc1 arg-3)) (if (null? sc1) (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)) (let ((e-0 (car sc1))) (let ((e-1 (cdr sc1))) (let ((sc2 e-1)) (case (vector-ref sc2 0) ((3) (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((1) (let ((e-3 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((1) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((u--fy (vector 1 e-6 e-7))) (let ((u--fx (vector 1 e-3 e-4))) (let ((u--mode (cons e-0 (vector 3 )))) (CoreC-45Unify-case--unifyBothApps-13618 arg-2 arg-11 e-7 e-6 u--fy arg-9 arg-8 e-4 e-3 u--fx arg-6 arg-5 arg-4 e-0 u--mode arg-1 arg-0 (CoreC-45Name-u--C-61C-61_Eq_Name e-4 e-7))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))) ((2) (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((1) (let ((e-9 (vector-ref sc3 1))) (let ((e-10 (vector-ref sc3 2))) (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((1) (let ((e-12 (vector-ref sc4 1))) (let ((e-13 (vector-ref sc4 2))) (let ((u--fy (vector 1 e-12 e-13))) (let ((u--fx (vector 1 e-9 e-10))) (let ((u--mode (cons e-0 (vector 2 )))) (CoreC-45Unify-case--unifyBothApps-13735 arg-2 arg-11 e-13 e-12 u--fy arg-9 arg-8 e-10 e-9 u--fx arg-6 arg-5 arg-4 e-0 u--mode arg-1 arg-0 (CoreC-45Name-u--C-61C-61_Eq_Name e-10 e-13))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))))))))) (let ((e-36 (car sc0))) (let ((e-37 (cdr sc0))) (let ((sc1 e-37)) (case (vector-ref sc1 0) ((1) (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-40 (vector-ref sc2 1))) (let ((e-41 (vector-ref sc2 2))) (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((0) (let ((e-45 (vector-ref sc3 1))) (let ((e-46 (vector-ref sc3 2))) (let ((u--mode (cons e-36 (vector 1 )))) (CoreC-45Unify-case--unifyBothApps-12979 arg-2 e-41 e-40 e-46 e-45 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 e-36 u--mode arg-1 arg-0 (PreludeC-45Types-u--C-61C-61_Eq_Nat e-41 e-46))))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-20 (vector-ref sc3 1))) (let ((e-21 (vector-ref sc3 2))) (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((0) (let ((e-29 (vector-ref sc4 1))) (let ((e-30 (vector-ref sc4 2))) (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-log arg-0 "unify.application" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Both local apps, unifyIfEq") eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (CoreC-45Unify-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-20 e-21) arg-8) (vector 1 arg-9 (vector 0 e-29 e-30) arg-11) eta-0)))))))))(else (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((2) (let ((e-15 (vector-ref sc4 1))) (let ((e-16 (vector-ref sc4 2))) (let ((e-17 (vector-ref sc4 3))) (CoreC-45Unify-case--unifyBothApps-13538 arg-2 e-17 e-16 e-15 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (CoreC-45Unify-u--C-47C-61_Eq_UnifyMode (let ((sc5 arg-3)) (let ((e-1 (cdr sc5))) e-1)) (vector 2 )))))))(else (let ((sc4 arg-3)) (if (null? sc4) (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)) (let ((e-0 (car sc4))) (let ((e-1 (cdr sc4))) (let ((sc5 e-1)) (case (vector-ref sc5 0) ((3) (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((1) (let ((e-3 (vector-ref sc6 1))) (let ((e-4 (vector-ref sc6 2))) (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((1) (let ((e-6 (vector-ref sc7 1))) (let ((e-7 (vector-ref sc7 2))) (let ((u--fy (vector 1 e-6 e-7))) (let ((u--fx (vector 1 e-3 e-4))) (let ((u--mode (cons e-0 (vector 3 )))) (CoreC-45Unify-case--unifyBothApps-13618 arg-2 arg-11 e-7 e-6 u--fy arg-9 arg-8 e-4 e-3 u--fx arg-6 arg-5 arg-4 e-0 u--mode arg-1 arg-0 (CoreC-45Name-u--C-61C-61_Eq_Name e-4 e-7))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))) ((2) (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((1) (let ((e-9 (vector-ref sc6 1))) (let ((e-10 (vector-ref sc6 2))) (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((1) (let ((e-12 (vector-ref sc7 1))) (let ((e-13 (vector-ref sc7 2))) (let ((u--fy (vector 1 e-12 e-13))) (let ((u--fx (vector 1 e-9 e-10))) (let ((u--mode (cons e-0 (vector 2 )))) (CoreC-45Unify-case--unifyBothApps-13735 arg-2 arg-11 e-13 e-12 u--fy arg-9 arg-8 e-10 e-9 u--fx arg-6 arg-5 arg-4 e-0 u--mode arg-1 arg-0 (CoreC-45Name-u--C-61C-61_Eq_Name e-10 e-13))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))))))) ((2) (let ((e-24 (vector-ref sc3 1))) (let ((e-25 (vector-ref sc3 2))) (let ((e-26 (vector-ref sc3 3))) (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((2) (let ((e-33 (vector-ref sc4 1))) (let ((e-34 (vector-ref sc4 2))) (let ((e-35 (vector-ref sc4 3))) (lambda (eta-0) (let ((act-24 (CoreC-45Unify-isDefInvertible arg-0 arg-4 e-25 eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) ((CoreC-45Unify-case--unifyBothApps-13287 arg-2 e-26 e-25 e-24 e-35 e-34 e-33 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (PreludeC-45Basics-C-38C-38 (PreludeC-45EqOrd-u--C-61C-61_Eq_Int e-25 e-34) (lambda () (PreludeC-45Basics-C-124C-124 e-5 (lambda () (CoreC-45Unify-u--C-61C-61_Eq_UnifyMode (let ((sc6 arg-3)) (let ((e-1 (cdr sc6))) e-1)) (vector 3 ))))))) eta-0)))))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-24 e-25 e-26) arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((2) (let ((e-15 (vector-ref sc3 1))) (let ((e-16 (vector-ref sc3 2))) (let ((e-17 (vector-ref sc3 3))) (CoreC-45Unify-case--unifyBothApps-13538 arg-2 e-17 e-16 e-15 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (CoreC-45Unify-u--C-47C-61_Eq_UnifyMode (let ((sc4 arg-3)) (let ((e-1 (cdr sc4))) e-1)) (vector 2 )))))))(else (let ((sc3 arg-3)) (if (null? sc3) (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)) (let ((e-0 (car sc3))) (let ((e-1 (cdr sc3))) (let ((sc4 e-1)) (case (vector-ref sc4 0) ((3) (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((1) (let ((e-3 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((1) (let ((e-6 (vector-ref sc6 1))) (let ((e-7 (vector-ref sc6 2))) (let ((u--fy (vector 1 e-6 e-7))) (let ((u--fx (vector 1 e-3 e-4))) (let ((u--mode (cons e-0 (vector 3 )))) (CoreC-45Unify-case--unifyBothApps-13618 arg-2 arg-11 e-7 e-6 u--fy arg-9 arg-8 e-4 e-3 u--fx arg-6 arg-5 arg-4 e-0 u--mode arg-1 arg-0 (CoreC-45Name-u--C-61C-61_Eq_Name e-4 e-7))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))) ((2) (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((1) (let ((e-9 (vector-ref sc5 1))) (let ((e-10 (vector-ref sc5 2))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((1) (let ((e-12 (vector-ref sc6 1))) (let ((e-13 (vector-ref sc6 2))) (let ((u--fy (vector 1 e-12 e-13))) (let ((u--fx (vector 1 e-9 e-10))) (let ((u--mode (cons e-0 (vector 2 )))) (CoreC-45Unify-case--unifyBothApps-13735 arg-2 arg-11 e-13 e-12 u--fy arg-9 arg-8 e-10 e-9 u--fx arg-6 arg-5 arg-4 e-0 u--mode arg-1 arg-0 (CoreC-45Name-u--C-61C-61_Eq_Name e-10 e-13))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))))))))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-20 (vector-ref sc2 1))) (let ((e-21 (vector-ref sc2 2))) (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((0) (let ((e-29 (vector-ref sc3 1))) (let ((e-30 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-log arg-0 "unify.application" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Both local apps, unifyIfEq") eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (CoreC-45Unify-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-20 e-21) arg-8) (vector 1 arg-9 (vector 0 e-29 e-30) arg-11) eta-0)))))))))(else (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((2) (let ((e-15 (vector-ref sc3 1))) (let ((e-16 (vector-ref sc3 2))) (let ((e-17 (vector-ref sc3 3))) (CoreC-45Unify-case--unifyBothApps-13538 arg-2 e-17 e-16 e-15 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (CoreC-45Unify-u--C-47C-61_Eq_UnifyMode (let ((sc4 arg-3)) (let ((e-1 (cdr sc4))) e-1)) (vector 2 )))))))(else (let ((sc3 arg-3)) (if (null? sc3) (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)) (let ((e-0 (car sc3))) (let ((e-1 (cdr sc3))) (let ((sc4 e-1)) (case (vector-ref sc4 0) ((3) (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((1) (let ((e-3 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((1) (let ((e-6 (vector-ref sc6 1))) (let ((e-7 (vector-ref sc6 2))) (let ((u--fy (vector 1 e-6 e-7))) (let ((u--fx (vector 1 e-3 e-4))) (let ((u--mode (cons e-0 (vector 3 )))) (CoreC-45Unify-case--unifyBothApps-13618 arg-2 arg-11 e-7 e-6 u--fy arg-9 arg-8 e-4 e-3 u--fx arg-6 arg-5 arg-4 e-0 u--mode arg-1 arg-0 (CoreC-45Name-u--C-61C-61_Eq_Name e-4 e-7))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))) ((2) (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((1) (let ((e-9 (vector-ref sc5 1))) (let ((e-10 (vector-ref sc5 2))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((1) (let ((e-12 (vector-ref sc6 1))) (let ((e-13 (vector-ref sc6 2))) (let ((u--fy (vector 1 e-12 e-13))) (let ((u--fx (vector 1 e-9 e-10))) (let ((u--mode (cons e-0 (vector 2 )))) (CoreC-45Unify-case--unifyBothApps-13735 arg-2 arg-11 e-13 e-12 u--fy arg-9 arg-8 e-10 e-9 u--fx arg-6 arg-5 arg-4 e-0 u--mode arg-1 arg-0 (CoreC-45Name-u--C-61C-61_Eq_Name e-10 e-13))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))))))) ((2) (let ((e-24 (vector-ref sc2 1))) (let ((e-25 (vector-ref sc2 2))) (let ((e-26 (vector-ref sc2 3))) (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((2) (let ((e-33 (vector-ref sc3 1))) (let ((e-34 (vector-ref sc3 2))) (let ((e-35 (vector-ref sc3 3))) (lambda (eta-0) (let ((act-24 (CoreC-45Unify-isDefInvertible arg-0 arg-4 e-25 eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) ((CoreC-45Unify-case--unifyBothApps-13287 arg-2 e-26 e-25 e-24 e-35 e-34 e-33 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (PreludeC-45Basics-C-38C-38 (PreludeC-45EqOrd-u--C-61C-61_Eq_Int e-25 e-34) (lambda () (PreludeC-45Basics-C-124C-124 e-5 (lambda () (CoreC-45Unify-u--C-61C-61_Eq_UnifyMode (let ((sc5 arg-3)) (let ((e-1 (cdr sc5))) e-1)) (vector 3 ))))))) eta-0)))))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-24 e-25 e-26) arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (let ((sc2 arg-10)) (case (vector-ref sc2 0) ((2) (let ((e-15 (vector-ref sc2 1))) (let ((e-16 (vector-ref sc2 2))) (let ((e-17 (vector-ref sc2 3))) (CoreC-45Unify-case--unifyBothApps-13538 arg-2 e-17 e-16 e-15 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (CoreC-45Unify-u--C-47C-61_Eq_UnifyMode (let ((sc3 arg-3)) (let ((e-1 (cdr sc3))) e-1)) (vector 2 )))))))(else (let ((sc2 arg-3)) (if (null? sc2) (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)) (let ((e-0 (car sc2))) (let ((e-1 (cdr sc2))) (let ((sc3 e-1)) (case (vector-ref sc3 0) ((3) (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((1) (let ((e-3 (vector-ref sc4 1))) (let ((e-4 (vector-ref sc4 2))) (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((1) (let ((e-6 (vector-ref sc5 1))) (let ((e-7 (vector-ref sc5 2))) (let ((u--fy (vector 1 e-6 e-7))) (let ((u--fx (vector 1 e-3 e-4))) (let ((u--mode (cons e-0 (vector 3 )))) (CoreC-45Unify-case--unifyBothApps-13618 arg-2 arg-11 e-7 e-6 u--fy arg-9 arg-8 e-4 e-3 u--fx arg-6 arg-5 arg-4 e-0 u--mode arg-1 arg-0 (CoreC-45Name-u--C-61C-61_Eq_Name e-4 e-7))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))) ((2) (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((1) (let ((e-9 (vector-ref sc4 1))) (let ((e-10 (vector-ref sc4 2))) (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((1) (let ((e-12 (vector-ref sc5 1))) (let ((e-13 (vector-ref sc5 2))) (let ((u--fy (vector 1 e-12 e-13))) (let ((u--fx (vector 1 e-9 e-10))) (let ((u--mode (cons e-0 (vector 2 )))) (CoreC-45Unify-case--unifyBothApps-13735 arg-2 arg-11 e-13 e-12 u--fy arg-9 arg-8 e-10 e-9 u--fx arg-6 arg-5 arg-4 e-0 u--mode arg-1 arg-0 (CoreC-45Name-u--C-61C-61_Eq_Name e-10 e-13))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))))))))(else (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((0) (let ((e-20 (vector-ref sc1 1))) (let ((e-21 (vector-ref sc1 2))) (let ((sc2 arg-10)) (case (vector-ref sc2 0) ((0) (let ((e-29 (vector-ref sc2 1))) (let ((e-30 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-log arg-0 "unify.application" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Both local apps, unifyIfEq") eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (CoreC-45Unify-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-20 e-21) arg-8) (vector 1 arg-9 (vector 0 e-29 e-30) arg-11) eta-0)))))))))(else (let ((sc2 arg-10)) (case (vector-ref sc2 0) ((2) (let ((e-15 (vector-ref sc2 1))) (let ((e-16 (vector-ref sc2 2))) (let ((e-17 (vector-ref sc2 3))) (CoreC-45Unify-case--unifyBothApps-13538 arg-2 e-17 e-16 e-15 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (CoreC-45Unify-u--C-47C-61_Eq_UnifyMode (let ((sc3 arg-3)) (let ((e-1 (cdr sc3))) e-1)) (vector 2 )))))))(else (let ((sc2 arg-3)) (if (null? sc2) (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)) (let ((e-0 (car sc2))) (let ((e-1 (cdr sc2))) (let ((sc3 e-1)) (case (vector-ref sc3 0) ((3) (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((1) (let ((e-3 (vector-ref sc4 1))) (let ((e-4 (vector-ref sc4 2))) (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((1) (let ((e-6 (vector-ref sc5 1))) (let ((e-7 (vector-ref sc5 2))) (let ((u--fy (vector 1 e-6 e-7))) (let ((u--fx (vector 1 e-3 e-4))) (let ((u--mode (cons e-0 (vector 3 )))) (CoreC-45Unify-case--unifyBothApps-13618 arg-2 arg-11 e-7 e-6 u--fy arg-9 arg-8 e-4 e-3 u--fx arg-6 arg-5 arg-4 e-0 u--mode arg-1 arg-0 (CoreC-45Name-u--C-61C-61_Eq_Name e-4 e-7))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))) ((2) (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((1) (let ((e-9 (vector-ref sc4 1))) (let ((e-10 (vector-ref sc4 2))) (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((1) (let ((e-12 (vector-ref sc5 1))) (let ((e-13 (vector-ref sc5 2))) (let ((u--fy (vector 1 e-12 e-13))) (let ((u--fx (vector 1 e-9 e-10))) (let ((u--mode (cons e-0 (vector 2 )))) (CoreC-45Unify-case--unifyBothApps-13735 arg-2 arg-11 e-13 e-12 u--fy arg-9 arg-8 e-10 e-9 u--fx arg-6 arg-5 arg-4 e-0 u--mode arg-1 arg-0 (CoreC-45Name-u--C-61C-61_Eq_Name e-10 e-13))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))))))) ((2) (let ((e-24 (vector-ref sc1 1))) (let ((e-25 (vector-ref sc1 2))) (let ((e-26 (vector-ref sc1 3))) (let ((sc2 arg-10)) (case (vector-ref sc2 0) ((2) (let ((e-33 (vector-ref sc2 1))) (let ((e-34 (vector-ref sc2 2))) (let ((e-35 (vector-ref sc2 3))) (lambda (eta-0) (let ((act-24 (CoreC-45Unify-isDefInvertible arg-0 arg-4 e-25 eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) ((CoreC-45Unify-case--unifyBothApps-13287 arg-2 e-26 e-25 e-24 e-35 e-34 e-33 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (PreludeC-45Basics-C-38C-38 (PreludeC-45EqOrd-u--C-61C-61_Eq_Int e-25 e-34) (lambda () (PreludeC-45Basics-C-124C-124 e-5 (lambda () (CoreC-45Unify-u--C-61C-61_Eq_UnifyMode (let ((sc4 arg-3)) (let ((e-1 (cdr sc4))) e-1)) (vector 3 ))))))) eta-0)))))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-24 e-25 e-26) arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((2) (let ((e-15 (vector-ref sc1 1))) (let ((e-16 (vector-ref sc1 2))) (let ((e-17 (vector-ref sc1 3))) (CoreC-45Unify-case--unifyBothApps-13538 arg-2 e-17 e-16 e-15 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (CoreC-45Unify-u--C-47C-61_Eq_UnifyMode (let ((sc2 arg-3)) (let ((e-1 (cdr sc2))) e-1)) (vector 2 )))))))(else (let ((sc1 arg-3)) (if (null? sc1) (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)) (let ((e-0 (car sc1))) (let ((e-1 (cdr sc1))) (let ((sc2 e-1)) (case (vector-ref sc2 0) ((3) (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((1) (let ((e-3 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((1) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((u--fy (vector 1 e-6 e-7))) (let ((u--fx (vector 1 e-3 e-4))) (let ((u--mode (cons e-0 (vector 3 )))) (CoreC-45Unify-case--unifyBothApps-13618 arg-2 arg-11 e-7 e-6 u--fy arg-9 arg-8 e-4 e-3 u--fx arg-6 arg-5 arg-4 e-0 u--mode arg-1 arg-0 (CoreC-45Name-u--C-61C-61_Eq_Name e-4 e-7))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))) ((2) (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((1) (let ((e-9 (vector-ref sc3 1))) (let ((e-10 (vector-ref sc3 2))) (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((1) (let ((e-12 (vector-ref sc4 1))) (let ((e-13 (vector-ref sc4 2))) (let ((u--fy (vector 1 e-12 e-13))) (let ((u--fx (vector 1 e-9 e-10))) (let ((u--mode (cons e-0 (vector 2 )))) (CoreC-45Unify-case--unifyBothApps-13735 arg-2 arg-11 e-13 e-12 u--fy arg-9 arg-8 e-10 e-9 u--fx arg-6 arg-5 arg-4 e-0 u--mode arg-1 arg-0 (CoreC-45Name-u--C-61C-61_Eq_Name e-10 e-13))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))))))))))))))))))))) -(define CoreC-45Unify-unifyArgs (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-8)) (if (null? sc0) (lambda (clam-0) (let ((sc1 arg-9)) (if (null? sc1) (vector 1 (CoreC-45Unify-success)) (CoreC-45Unify-ufail arg-6 "" clam-0)))) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (lambda (clam-1) (let ((sc1 arg-9)) (if (null? sc1) (CoreC-45Unify-ufail arg-6 "" clam-1) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (let ((act-24 ((CoreC-45Unify-unifyArgs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-3 e-7) clam-1))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((((CoreC-45Unify-unify (Builtin-fst arg-1) arg-2 arg-3 arg-4 (CoreC-45Unify-lower arg-5) arg-6 arg-7) e-2) e-6) clam-1))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (vector 1 (CoreC-45Unify-union e-8 e-5))))))))))))))))))))))) -(define CoreC-45Unify-unifyApp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((2) (let ((e-50 (vector-ref sc0 1))) (let ((e-51 (vector-ref sc0 2))) (let ((e-52 (vector-ref sc0 3))) (lambda (eta-0) (CoreC-45Unify-unifyHole arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-50 e-51 e-52 (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) arg-9) arg-10 eta-0))))))(else (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((1) (let ((e-42 (vector-ref sc0 1))) (let ((e-43 (vector-ref sc0 2))) (let ((e-44 (vector-ref sc0 3))) (let ((sc1 e-43)) (case (vector-ref sc1 0) ((2) (let ((e-46 (vector-ref sc1 1))) (let ((e-47 (vector-ref sc1 2))) (let ((e-48 (vector-ref sc1 3))) (lambda (eta-0) (CoreC-45Unify-unifyHole arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-42 e-46 e-47 e-48 (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) e-44) (vector 1 arg-7 arg-8 arg-9) eta-0))))))(else (let ((sc1 arg-8)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-log arg-0 "unify.application" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Name against app, unifyIfEq") eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (CoreC-45Unify-case--unifyApp-12424 arg-2 e-2 e-1 arg-10 arg-9 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (let ((sc3 arg-3)) (cond ((equal? sc3 0) 1) (else 0))) eta-0))))))))) ((0) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 arg-9)) (if (null? sc2) (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((1) (let ((e-32 (vector-ref sc3 1))) (let ((e-33 (vector-ref sc3 2))) (let ((e-34 (vector-ref sc3 3))) (let ((sc4 e-33)) (case (vector-ref sc4 0) ((0) (let ((e-37 (vector-ref sc4 1))) (let ((e-38 (vector-ref sc4 2))) (let ((sc5 e-34)) (if (null? sc5) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) ((CoreC-45Unify-case--unifyApp-12515 arg-2 e-6 e-5 e-38 e-37 e-32 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-7 (PreludeC-45Types-u--C-61C-61_Eq_Nat e-6 e-38)) eta-0))))))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (CoreC-45Unify-convertErrorS arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10 eta-0))) ((2) (lambda (eta-0) (CoreC-45Unify-convertErrorS arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10 eta-0))) ((3) (lambda (eta-0) (CoreC-45Unify-convertErrorS arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10 eta-0))) ((8) (lambda (eta-0) (CoreC-45Unify-convertErrorS arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10 eta-0))) ((10) (lambda (eta-0) (CoreC-45Unify-convertErrorS arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10 eta-0)))(else (lambda (clam-0) (let ((sc6 arg-3)) (cond ((equal? sc6 1) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-25 (CoreC-45Normalise-u--convert_Convert_NF arg-0 arg-2 e-7 arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 clam-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc8 1))) (let ((sc9 e-8)) (cond ((equal? sc9 0) (vector 1 (CoreC-45Unify-success))) (else (CoreC-45Unify-postponeS arg-2 arg-0 arg-1 0 1 arg-5 arg-4 "Postponing constraint" arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 clam-0))))))))))))))) (else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-25 (CoreC-45Normalise-u--convert_Convert_NF arg-0 arg-2 e-7 arg-6 arg-10 (vector 1 arg-7 arg-8 arg-9) clam-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc8 1))) (let ((sc9 e-8)) (cond ((equal? sc9 0) (vector 1 (CoreC-45Unify-success))) (else (CoreC-45Unify-postponeS arg-2 arg-0 arg-1 0 0 arg-5 arg-4 "Postponing constraint" arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 clam-0))))))))))))))))))))))))))(else (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (CoreC-45Unify-convertErrorS arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10 eta-0))) ((2) (lambda (eta-0) (CoreC-45Unify-convertErrorS arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10 eta-0))) ((3) (lambda (eta-0) (CoreC-45Unify-convertErrorS arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10 eta-0))) ((8) (lambda (eta-0) (CoreC-45Unify-convertErrorS arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10 eta-0))) ((10) (lambda (eta-0) (CoreC-45Unify-convertErrorS arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10 eta-0)))(else (lambda (clam-1) (let ((sc4 arg-3)) (cond ((equal? sc4 1) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-25 (CoreC-45Normalise-u--convert_Convert_NF arg-0 arg-2 e-7 arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 clam-1))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (cond ((equal? sc7 0) (vector 1 (CoreC-45Unify-success))) (else (CoreC-45Unify-postponeS arg-2 arg-0 arg-1 0 1 arg-5 arg-4 "Postponing constraint" arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 clam-1))))))))))))))) (else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-25 (CoreC-45Normalise-u--convert_Convert_NF arg-0 arg-2 e-7 arg-6 arg-10 (vector 1 arg-7 arg-8 arg-9) clam-1))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (cond ((equal? sc7 0) (vector 1 (CoreC-45Unify-success))) (else (CoreC-45Unify-postponeS arg-2 arg-0 arg-1 0 0 arg-5 arg-4 "Postponing constraint" arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 clam-1))))))))))))))))))))))))))))(else (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (CoreC-45Unify-convertErrorS arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10 eta-0))) ((2) (lambda (eta-0) (CoreC-45Unify-convertErrorS arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10 eta-0))) ((3) (lambda (eta-0) (CoreC-45Unify-convertErrorS arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10 eta-0))) ((8) (lambda (eta-0) (CoreC-45Unify-convertErrorS arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10 eta-0))) ((10) (lambda (eta-0) (CoreC-45Unify-convertErrorS arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10 eta-0)))(else (lambda (clam-2) (let ((sc3 arg-3)) (cond ((equal? sc3 1) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-25 (CoreC-45Normalise-u--convert_Convert_NF arg-0 arg-2 e-7 arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 clam-2))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc5 1))) (let ((sc6 e-8)) (cond ((equal? sc6 0) (vector 1 (CoreC-45Unify-success))) (else (CoreC-45Unify-postponeS arg-2 arg-0 arg-1 0 1 arg-5 arg-4 "Postponing constraint" arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 clam-2))))))))))))))) (else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-25 (CoreC-45Normalise-u--convert_Convert_NF arg-0 arg-2 e-7 arg-6 arg-10 (vector 1 arg-7 arg-8 arg-9) clam-2))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc5 1))) (let ((sc6 e-8)) (cond ((equal? sc6 0) (vector 1 (CoreC-45Unify-success))) (else (CoreC-45Unify-postponeS arg-2 arg-0 arg-1 0 0 arg-5 arg-4 "Postponing constraint" arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 clam-2)))))))))))))))))))))))) (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (CoreC-45Unify-convertErrorS arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10 eta-0))) ((2) (lambda (eta-0) (CoreC-45Unify-convertErrorS arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10 eta-0))) ((3) (lambda (eta-0) (CoreC-45Unify-convertErrorS arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10 eta-0))) ((8) (lambda (eta-0) (CoreC-45Unify-convertErrorS arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10 eta-0))) ((10) (lambda (eta-0) (CoreC-45Unify-convertErrorS arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10 eta-0)))(else (lambda (clam-3) (let ((sc3 arg-3)) (cond ((equal? sc3 1) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-25 (CoreC-45Normalise-u--convert_Convert_NF arg-0 arg-2 e-7 arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 clam-3))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc5 1))) (let ((sc6 e-8)) (cond ((equal? sc6 0) (vector 1 (CoreC-45Unify-success))) (else (CoreC-45Unify-postponeS arg-2 arg-0 arg-1 0 1 arg-5 arg-4 "Postponing constraint" arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 clam-3))))))))))))))) (else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-25 (CoreC-45Normalise-u--convert_Convert_NF arg-0 arg-2 e-7 arg-6 arg-10 (vector 1 arg-7 arg-8 arg-9) clam-3))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc5 1))) (let ((sc6 e-8)) (cond ((equal? sc6 0) (vector 1 (CoreC-45Unify-success))) (else (CoreC-45Unify-postponeS arg-2 arg-0 arg-1 0 0 arg-5 arg-4 "Postponing constraint" arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 clam-3))))))))))))))))))))))))))(else (lambda (clam-4) (let ((sc1 arg-3)) (cond ((equal? sc1 1) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (CoreC-45Normalise-u--convert_Convert_NF arg-0 arg-2 e-5 arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 clam-4))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (cond ((equal? sc4 0) (vector 1 (CoreC-45Unify-success))) (else (CoreC-45Unify-postponeS arg-2 arg-0 arg-1 0 1 arg-5 arg-4 "Postponing constraint" arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 clam-4))))))))))))))) (else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (CoreC-45Normalise-u--convert_Convert_NF arg-0 arg-2 e-5 arg-6 arg-10 (vector 1 arg-7 arg-8 arg-9) clam-4))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (cond ((equal? sc4 0) (vector 1 (CoreC-45Unify-success))) (else (CoreC-45Unify-postponeS arg-2 arg-0 arg-1 0 0 arg-5 arg-4 "Postponing constraint" arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 clam-4))))))))))))))))))))))))))))(else (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-log arg-0 "unify.application" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Name against app, unifyIfEq") eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (CoreC-45Unify-case--unifyApp-12424 arg-2 e-2 e-1 arg-10 arg-9 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (let ((sc2 arg-3)) (cond ((equal? sc2 0) 1) (else 0))) eta-0))))))))) ((0) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((sc1 arg-9)) (if (null? sc1) (let ((sc2 arg-10)) (case (vector-ref sc2 0) ((1) (let ((e-32 (vector-ref sc2 1))) (let ((e-33 (vector-ref sc2 2))) (let ((e-34 (vector-ref sc2 3))) (let ((sc3 e-33)) (case (vector-ref sc3 0) ((0) (let ((e-37 (vector-ref sc3 1))) (let ((e-38 (vector-ref sc3 2))) (let ((sc4 e-34)) (if (null? sc4) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) ((CoreC-45Unify-case--unifyApp-12515 arg-2 e-6 e-5 e-38 e-37 e-32 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-7 (PreludeC-45Types-u--C-61C-61_Eq_Nat e-6 e-38)) eta-0))))))) (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (CoreC-45Unify-convertErrorS arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10 eta-0))) ((2) (lambda (eta-0) (CoreC-45Unify-convertErrorS arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10 eta-0))) ((3) (lambda (eta-0) (CoreC-45Unify-convertErrorS arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10 eta-0))) ((8) (lambda (eta-0) (CoreC-45Unify-convertErrorS arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10 eta-0))) ((10) (lambda (eta-0) (CoreC-45Unify-convertErrorS arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10 eta-0)))(else (lambda (clam-5) (let ((sc5 arg-3)) (cond ((equal? sc5 1) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-25 (CoreC-45Normalise-u--convert_Convert_NF arg-0 arg-2 e-7 arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 clam-5))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (cond ((equal? sc8 0) (vector 1 (CoreC-45Unify-success))) (else (CoreC-45Unify-postponeS arg-2 arg-0 arg-1 0 1 arg-5 arg-4 "Postponing constraint" arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 clam-5))))))))))))))) (else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-25 (CoreC-45Normalise-u--convert_Convert_NF arg-0 arg-2 e-7 arg-6 arg-10 (vector 1 arg-7 arg-8 arg-9) clam-5))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (cond ((equal? sc8 0) (vector 1 (CoreC-45Unify-success))) (else (CoreC-45Unify-postponeS arg-2 arg-0 arg-1 0 0 arg-5 arg-4 "Postponing constraint" arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 clam-5))))))))))))))))))))))))))(else (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (CoreC-45Unify-convertErrorS arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10 eta-0))) ((2) (lambda (eta-0) (CoreC-45Unify-convertErrorS arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10 eta-0))) ((3) (lambda (eta-0) (CoreC-45Unify-convertErrorS arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10 eta-0))) ((8) (lambda (eta-0) (CoreC-45Unify-convertErrorS arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10 eta-0))) ((10) (lambda (eta-0) (CoreC-45Unify-convertErrorS arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10 eta-0)))(else (lambda (clam-6) (let ((sc3 arg-3)) (cond ((equal? sc3 1) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-25 (CoreC-45Normalise-u--convert_Convert_NF arg-0 arg-2 e-7 arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 clam-6))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc5 1))) (let ((sc6 e-8)) (cond ((equal? sc6 0) (vector 1 (CoreC-45Unify-success))) (else (CoreC-45Unify-postponeS arg-2 arg-0 arg-1 0 1 arg-5 arg-4 "Postponing constraint" arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 clam-6))))))))))))))) (else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-25 (CoreC-45Normalise-u--convert_Convert_NF arg-0 arg-2 e-7 arg-6 arg-10 (vector 1 arg-7 arg-8 arg-9) clam-6))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc5 1))) (let ((sc6 e-8)) (cond ((equal? sc6 0) (vector 1 (CoreC-45Unify-success))) (else (CoreC-45Unify-postponeS arg-2 arg-0 arg-1 0 0 arg-5 arg-4 "Postponing constraint" arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 clam-6))))))))))))))))))))))))))))(else (let ((sc2 arg-10)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (CoreC-45Unify-convertErrorS arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10 eta-0))) ((2) (lambda (eta-0) (CoreC-45Unify-convertErrorS arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10 eta-0))) ((3) (lambda (eta-0) (CoreC-45Unify-convertErrorS arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10 eta-0))) ((8) (lambda (eta-0) (CoreC-45Unify-convertErrorS arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10 eta-0))) ((10) (lambda (eta-0) (CoreC-45Unify-convertErrorS arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10 eta-0)))(else (lambda (clam-7) (let ((sc2 arg-3)) (cond ((equal? sc2 1) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-25 (CoreC-45Normalise-u--convert_Convert_NF arg-0 arg-2 e-7 arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 clam-7))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (cond ((equal? sc5 0) (vector 1 (CoreC-45Unify-success))) (else (CoreC-45Unify-postponeS arg-2 arg-0 arg-1 0 1 arg-5 arg-4 "Postponing constraint" arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 clam-7))))))))))))))) (else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-25 (CoreC-45Normalise-u--convert_Convert_NF arg-0 arg-2 e-7 arg-6 arg-10 (vector 1 arg-7 arg-8 arg-9) clam-7))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (cond ((equal? sc5 0) (vector 1 (CoreC-45Unify-success))) (else (CoreC-45Unify-postponeS arg-2 arg-0 arg-1 0 0 arg-5 arg-4 "Postponing constraint" arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 clam-7)))))))))))))))))))))))) (let ((sc2 arg-10)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (CoreC-45Unify-convertErrorS arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10 eta-0))) ((2) (lambda (eta-0) (CoreC-45Unify-convertErrorS arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10 eta-0))) ((3) (lambda (eta-0) (CoreC-45Unify-convertErrorS arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10 eta-0))) ((8) (lambda (eta-0) (CoreC-45Unify-convertErrorS arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10 eta-0))) ((10) (lambda (eta-0) (CoreC-45Unify-convertErrorS arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10 eta-0)))(else (lambda (clam-8) (let ((sc2 arg-3)) (cond ((equal? sc2 1) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-25 (CoreC-45Normalise-u--convert_Convert_NF arg-0 arg-2 e-7 arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 clam-8))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (cond ((equal? sc5 0) (vector 1 (CoreC-45Unify-success))) (else (CoreC-45Unify-postponeS arg-2 arg-0 arg-1 0 1 arg-5 arg-4 "Postponing constraint" arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 clam-8))))))))))))))) (else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-25 (CoreC-45Normalise-u--convert_Convert_NF arg-0 arg-2 e-7 arg-6 arg-10 (vector 1 arg-7 arg-8 arg-9) clam-8))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (cond ((equal? sc5 0) (vector 1 (CoreC-45Unify-success))) (else (CoreC-45Unify-postponeS arg-2 arg-0 arg-1 0 0 arg-5 arg-4 "Postponing constraint" arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 clam-8))))))))))))))))))))))))))(else (lambda (clam-9) (let ((sc0 arg-3)) (cond ((equal? sc0 1) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Normalise-u--convert_Convert_NF arg-0 arg-2 e-5 arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 clam-9))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 0) (vector 1 (CoreC-45Unify-success))) (else (CoreC-45Unify-postponeS arg-2 arg-0 arg-1 0 1 arg-5 arg-4 "Postponing constraint" arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 clam-9))))))))))))))) (else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Normalise-u--convert_Convert_NF arg-0 arg-2 e-5 arg-6 arg-10 (vector 1 arg-7 arg-8 arg-9) clam-9))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 0) (vector 1 (CoreC-45Unify-success))) (else (CoreC-45Unify-postponeS arg-2 arg-0 arg-1 0 0 arg-5 arg-4 "Postponing constraint" arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 clam-9))))))))))))))))))))))))))))) -(define CoreC-45Unify-unify (lambda (arg-1 arg-2 arg-3 arg-4 ext-2 ext-1 ext-0) (let ((sc0 arg-1)) (let ((e-1 (car sc0))) (lambda (arg-5) (lambda (arg-6) ((((((((e-1 arg-2) arg-3) arg-4) ext-2) ext-1) ext-0) arg-5) arg-6))))))) +(define CoreC-45Unify-u--unifyD_Unify_Term (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-clearDefs e-5 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((sc2 (CoreC-45TT-u--C-61C-61_Eq_C-40TermC-32C-36varsC-41 arg-6 arg-7))) (cond ((equal? sc2 1) (let ((act-26 (CoreC-45ContextC-45Log-log arg-1 "unify.equal" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Skipped unification (equal already): " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 arg-6) (PreludeC-45TypesC-45String-C-43C-43 " and " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 arg-7))))) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (vector 1 (CoreC-45Unify-success)))))) (else (let ((act-26 ((CoreC-45Normalise-nf arg-1 arg-0 e-5 arg-5 arg-6) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 ((CoreC-45Normalise-nf arg-1 arg-0 e-5 arg-5 arg-7) ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) ((((CoreC-45Unify-unify (cons (lambda (u--vars) (lambda (arg-6180) (lambda (arg-6183) (lambda (arg-6186) (lambda (arg-6187) (lambda (arg-6188) (lambda (arg-6190) (lambda (arg-6193) (CoreC-45Unify-u--unifyD_Unify_NF u--vars arg-6180 arg-6183 arg-6186 arg-6187 arg-6188 arg-6190 arg-6193))))))))) (lambda (u--vars) (lambda (arg-6195) (lambda (arg-6198) (lambda (arg-6201) (lambda (arg-6202) (lambda (arg-6203) (lambda (arg-6205) (lambda (arg-6206) (CoreC-45Unify-u--unifyWithLazyD_Unify_NF u--vars arg-6195 arg-6198 arg-6201 arg-6202 arg-6203 arg-6205 arg-6206)))))))))) arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) e-7) e-8) ext-0))))))))))))))))))))) +(define CoreC-45Unify-u--unifyD_Unify_NF (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (case (vector-ref arg-6 0) ((0) (let ((e-11 (vector-ref arg-6 1))) (let ((e-12 (vector-ref arg-6 2))) (let ((e-13 (vector-ref arg-6 3))) (let ((e-14 (vector-ref arg-6 4))) (case (vector-ref arg-7 0) ((0) (let ((e-21 (vector-ref arg-7 1))) (let ((e-22 (vector-ref arg-7 2))) (let ((e-23 (vector-ref arg-7 3))) (let ((e-24 (vector-ref arg-7 4))) (CoreC-45Unify-unifyBothBinders arg-1 arg-2 arg-0 arg-3 arg-4 arg-5 e-11 e-12 e-13 e-14 e-21 e-22 e-23 e-24))))))(else (case (vector-ref e-13 0) ((0) (let ((e-16 (vector-ref e-13 1))) (let ((e-17 (vector-ref e-13 2))) (let ((e-18 (vector-ref e-13 3))) (let ((e-19 (vector-ref e-13 4))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-logNF arg-0 arg-1 "unify" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "EtaR") arg-5 arg-6 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45Normalise-logNF arg-0 arg-1 "unify" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "...with") arg-5 arg-7 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((u--tmx (vector 0 e-11 e-12 (vector 0 e-16 e-17 e-18 e-19) e-14))) (let ((sc5 (CoreC-45Unify-isHoleApp arg-7))) (cond ((equal? sc5 1) (let ((act-27 (CoreC-45Normalise-u--convert_Convert_NF arg-1 arg-0 e-5 arg-5 u--tmx arg-7 eta-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (cond ((equal? e-8 1) (vector 1 (CoreC-45Unify-success))) (else ((CoreC-45Unify-unifyNoEta arg-1 arg-2 arg-0 (CoreC-45Unify-lower arg-3) arg-4 arg-5 u--tmx arg-7) eta-0)))))))) (else (let ((act-27 (CoreC-45Context-clearDefs e-5 eta-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (let ((act-28 (CoreC-45Normalise-u--quote_Quote_NF arg-1 arg-0 e-8 arg-5 e-19 eta-0))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-28 1))) (let ((act-29 (let ((act-29 (CoreC-45Normalise-u--quote_Quote_NF arg-1 arg-0 e-8 arg-5 arg-7 eta-0))) (case (vector-ref act-29 0) ((0) (let ((e-2 (vector-ref act-29 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref act-29 1))) ((CoreC-45Normalise-nf arg-1 arg-0 e-5 arg-5 (vector 3 e-11 e-12 (vector 0 e-16 e-17 (vector 1 ) e-9) (vector 4 e-11 (CoreC-45TT-u--weaken_Weaken_Term e-10) (vector 0 e-11 '() 0)))) eta-0))))))) (case (vector-ref act-29 0) ((0) (let ((e-2 (vector-ref act-29 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref act-29 1))) (let ((act-30 (CoreC-45Normalise-logNF arg-0 arg-1 "unify" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expand") arg-5 e-10 eta-0))) (case (vector-ref act-30 0) ((0) (let ((e-2 (vector-ref act-30 1))) (vector 0 e-2))) (else ((((CoreC-45Unify-unify (cons (lambda (u--vars) (lambda (arg-6180) (lambda (arg-6183) (lambda (arg-6186) (lambda (arg-6187) (lambda (arg-6188) (lambda (arg-6190) (lambda (arg-6193) (CoreC-45Unify-u--unifyD_Unify_NF u--vars arg-6180 arg-6183 arg-6186 arg-6187 arg-6188 arg-6190 arg-6193))))))))) (lambda (u--vars) (lambda (arg-6195) (lambda (arg-6198) (lambda (arg-6201) (lambda (arg-6202) (lambda (arg-6203) (lambda (arg-6205) (lambda (arg-6206) (CoreC-45Unify-u--unifyWithLazyD_Unify_NF u--vars arg-6195 arg-6198 arg-6201 arg-6202 arg-6203 arg-6205 arg-6206)))))))))) arg-0 arg-1 arg-2 (CoreC-45Unify-lower arg-3) arg-4 arg-5) u--tmx) e-10) eta-0))))))))))))))))))))))))))))))))))))(else (case (vector-ref arg-7 0) ((0) (let ((e-1 (vector-ref arg-7 1))) (let ((e-2 (vector-ref arg-7 2))) (let ((e-3 (vector-ref arg-7 3))) (let ((e-4 (vector-ref arg-7 4))) (case (vector-ref e-3 0) ((0) (let ((e-6 (vector-ref e-3 1))) (let ((e-7 (vector-ref e-3 2))) (let ((e-8 (vector-ref e-3 3))) (let ((e-9 (vector-ref e-3 4))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-logNF arg-0 arg-1 "unify" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "EtaL") arg-5 arg-6 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((act-26 (CoreC-45Normalise-logNF arg-0 arg-1 "unify" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "...with") arg-5 arg-7 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-15 (vector-ref act-26 1))) (vector 0 e-15))) (else (let ((u--tmy (vector 0 e-1 e-2 (vector 0 e-6 e-7 e-8 e-9) e-4))) (let ((sc6 (CoreC-45Unify-isHoleApp arg-6))) (cond ((equal? sc6 1) (let ((act-27 (CoreC-45Normalise-u--convert_Convert_NF arg-1 arg-0 e-5 arg-5 arg-6 u--tmy eta-0))) (case (vector-ref act-27 0) ((0) (let ((e-16 (vector-ref act-27 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref act-27 1))) (cond ((equal? e-16 1) (vector 1 (CoreC-45Unify-success))) (else ((CoreC-45Unify-unifyNoEta arg-1 arg-2 arg-0 (CoreC-45Unify-lower arg-3) arg-4 arg-5 arg-6 u--tmy) eta-0)))))))) (else (let ((act-27 (CoreC-45Context-clearDefs e-5 eta-0))) (case (vector-ref act-27 0) ((0) (let ((e-16 (vector-ref act-27 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref act-27 1))) (let ((act-28 (CoreC-45Normalise-u--quote_Quote_NF arg-1 arg-0 e-16 arg-5 e-9 eta-0))) (case (vector-ref act-28 0) ((0) (let ((e-17 (vector-ref act-28 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref act-28 1))) (let ((act-29 (let ((act-29 (CoreC-45Normalise-u--quote_Quote_NF arg-1 arg-0 e-16 arg-5 arg-6 eta-0))) (case (vector-ref act-29 0) ((0) (let ((e-18 (vector-ref act-29 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref act-29 1))) ((CoreC-45Normalise-nf arg-1 arg-0 e-5 arg-5 (vector 3 e-1 e-2 (vector 0 e-6 e-7 (vector 1 ) e-17) (vector 4 e-1 (CoreC-45TT-u--weaken_Weaken_Term e-18) (vector 0 e-1 '() 0)))) eta-0))))))) (case (vector-ref act-29 0) ((0) (let ((e-18 (vector-ref act-29 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref act-29 1))) (let ((act-30 (CoreC-45Normalise-logNF arg-0 arg-1 "unify" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expand") arg-5 e-18 eta-0))) (case (vector-ref act-30 0) ((0) (let ((e-19 (vector-ref act-30 1))) (vector 0 e-19))) (else ((((CoreC-45Unify-unify (cons (lambda (u--vars) (lambda (arg-6180) (lambda (arg-6183) (lambda (arg-6186) (lambda (arg-6187) (lambda (arg-6188) (lambda (arg-6190) (lambda (arg-6193) (CoreC-45Unify-u--unifyD_Unify_NF u--vars arg-6180 arg-6183 arg-6186 arg-6187 arg-6188 arg-6190 arg-6193))))))))) (lambda (u--vars) (lambda (arg-6195) (lambda (arg-6198) (lambda (arg-6201) (lambda (arg-6202) (lambda (arg-6203) (lambda (arg-6205) (lambda (arg-6206) (CoreC-45Unify-u--unifyWithLazyD_Unify_NF u--vars arg-6195 arg-6198 arg-6201 arg-6202 arg-6203 arg-6205 arg-6206)))))))))) arg-0 arg-1 arg-2 (CoreC-45Unify-lower arg-3) arg-4 arg-5) e-18) u--tmy) eta-0))))))))))))))))))))))))))))))))))))(else (CoreC-45Unify-unifyNoEta arg-1 arg-2 arg-0 arg-3 arg-4 arg-5 arg-6 arg-7))))))))(else (CoreC-45Unify-unifyNoEta arg-1 arg-2 arg-0 arg-3 arg-4 arg-5 arg-6 arg-7))))))))))))(else (case (vector-ref arg-7 0) ((0) (let ((e-1 (vector-ref arg-7 1))) (let ((e-2 (vector-ref arg-7 2))) (let ((e-3 (vector-ref arg-7 3))) (let ((e-4 (vector-ref arg-7 4))) (case (vector-ref e-3 0) ((0) (let ((e-6 (vector-ref e-3 1))) (let ((e-7 (vector-ref e-3 2))) (let ((e-8 (vector-ref e-3 3))) (let ((e-9 (vector-ref e-3 4))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-logNF arg-0 arg-1 "unify" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "EtaL") arg-5 arg-6 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((act-26 (CoreC-45Normalise-logNF arg-0 arg-1 "unify" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "...with") arg-5 arg-7 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-11 (vector-ref act-26 1))) (vector 0 e-11))) (else (let ((u--tmy (vector 0 e-1 e-2 (vector 0 e-6 e-7 e-8 e-9) e-4))) (let ((sc5 (CoreC-45Unify-isHoleApp arg-6))) (cond ((equal? sc5 1) (let ((act-27 (CoreC-45Normalise-u--convert_Convert_NF arg-1 arg-0 e-5 arg-5 arg-6 u--tmy eta-0))) (case (vector-ref act-27 0) ((0) (let ((e-12 (vector-ref act-27 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref act-27 1))) (cond ((equal? e-12 1) (vector 1 (CoreC-45Unify-success))) (else ((CoreC-45Unify-unifyNoEta arg-1 arg-2 arg-0 (CoreC-45Unify-lower arg-3) arg-4 arg-5 arg-6 u--tmy) eta-0)))))))) (else (let ((act-27 (CoreC-45Context-clearDefs e-5 eta-0))) (case (vector-ref act-27 0) ((0) (let ((e-12 (vector-ref act-27 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref act-27 1))) (let ((act-28 (CoreC-45Normalise-u--quote_Quote_NF arg-1 arg-0 e-12 arg-5 e-9 eta-0))) (case (vector-ref act-28 0) ((0) (let ((e-13 (vector-ref act-28 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref act-28 1))) (let ((act-29 (let ((act-29 (CoreC-45Normalise-u--quote_Quote_NF arg-1 arg-0 e-12 arg-5 arg-6 eta-0))) (case (vector-ref act-29 0) ((0) (let ((e-14 (vector-ref act-29 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref act-29 1))) ((CoreC-45Normalise-nf arg-1 arg-0 e-5 arg-5 (vector 3 e-1 e-2 (vector 0 e-6 e-7 (vector 1 ) e-13) (vector 4 e-1 (CoreC-45TT-u--weaken_Weaken_Term e-14) (vector 0 e-1 '() 0)))) eta-0))))))) (case (vector-ref act-29 0) ((0) (let ((e-14 (vector-ref act-29 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref act-29 1))) (let ((act-30 (CoreC-45Normalise-logNF arg-0 arg-1 "unify" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expand") arg-5 e-14 eta-0))) (case (vector-ref act-30 0) ((0) (let ((e-15 (vector-ref act-30 1))) (vector 0 e-15))) (else ((((CoreC-45Unify-unify (cons (lambda (u--vars) (lambda (arg-6180) (lambda (arg-6183) (lambda (arg-6186) (lambda (arg-6187) (lambda (arg-6188) (lambda (arg-6190) (lambda (arg-6193) (CoreC-45Unify-u--unifyD_Unify_NF u--vars arg-6180 arg-6183 arg-6186 arg-6187 arg-6188 arg-6190 arg-6193))))))))) (lambda (u--vars) (lambda (arg-6195) (lambda (arg-6198) (lambda (arg-6201) (lambda (arg-6202) (lambda (arg-6203) (lambda (arg-6205) (lambda (arg-6206) (CoreC-45Unify-u--unifyWithLazyD_Unify_NF u--vars arg-6195 arg-6198 arg-6201 arg-6202 arg-6203 arg-6205 arg-6206)))))))))) arg-0 arg-1 arg-2 (CoreC-45Unify-lower arg-3) arg-4 arg-5) e-14) u--tmy) eta-0))))))))))))))))))))))))))))))))))))(else (CoreC-45Unify-unifyNoEta arg-1 arg-2 arg-0 arg-3 arg-4 arg-5 arg-6 arg-7))))))))(else (CoreC-45Unify-unifyNoEta arg-1 arg-2 arg-0 arg-3 arg-4 arg-5 arg-6 arg-7))))))) +(define CoreC-45Unify-u--unifyD_Unify_Closure (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-clearDefs e-5 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Normalise-u--convert_Convert_Closure arg-1 arg-0 e-6 arg-5 arg-6 arg-7 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (cond ((equal? e-7 1) (vector 1 (CoreC-45Unify-success))) (else (let ((act-27 ((CoreC-45Normalise-evalClosure arg-1 arg-0 e-5 arg-6) ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (let ((act-28 ((CoreC-45Normalise-evalClosure arg-1 arg-0 e-5 arg-7) ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-28 1))) ((((CoreC-45Unify-unify (cons (lambda (u--vars) (lambda (arg-6180) (lambda (arg-6183) (lambda (arg-6186) (lambda (arg-6187) (lambda (arg-6188) (lambda (arg-6190) (lambda (arg-6193) (CoreC-45Unify-u--unifyD_Unify_NF u--vars arg-6180 arg-6183 arg-6186 arg-6187 arg-6188 arg-6190 arg-6193))))))))) (lambda (u--vars) (lambda (arg-6195) (lambda (arg-6198) (lambda (arg-6201) (lambda (arg-6202) (lambda (arg-6203) (lambda (arg-6205) (lambda (arg-6206) (CoreC-45Unify-u--unifyWithLazyD_Unify_NF u--vars arg-6195 arg-6198 arg-6201 arg-6202 arg-6203 arg-6205 arg-6206)))))))))) arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) e-8) e-9) ext-0))))))))))))))))))))))))) +(define CoreC-45Unify-u--show_Show_UnifyMode (lambda (arg-0) (cond ((equal? arg-0 0) "InLHS") ((equal? arg-0 1) "InTerm") ((equal? arg-0 2) "InMatch") (else "InSearch")))) +(define CoreC-45Unify-u--show_Show_AddLazy (lambda (arg-0) (case (vector-ref arg-0 0) ((0) "NoLazy") ((1) "AddForce") (else "AddDelay")))) +(define CoreC-45Unify-u--C-61C-61_Eq_UnifyMode (lambda (arg-0 arg-1) (cond ((equal? arg-0 0) (cond ((equal? arg-1 0) 1)(else 0))) ((equal? arg-0 1) (cond ((equal? arg-1 1) 1)(else 0))) ((equal? arg-0 2) (cond ((equal? arg-1 2) 1)(else 0))) ((equal? arg-0 3) (cond ((equal? arg-1 3) 1)(else 0)))(else 0)))) +(define CoreC-45Unify-u--C-61C-61_Eq_SolveMode (lambda (arg-0 arg-1) (cond ((equal? arg-0 0) (cond ((equal? arg-1 0) 1)(else 0))) ((equal? arg-0 1) (cond ((equal? arg-1 1) 1)(else 0))) ((equal? arg-0 3) (cond ((equal? arg-1 3) 1)(else 0)))(else 0)))) +(define CoreC-45Unify-u--C-47C-61_Eq_UnifyMode (lambda (arg-0 arg-1) (let ((sc0 (CoreC-45Unify-u--C-61C-61_Eq_UnifyMode arg-0 arg-1))) (cond ((equal? sc0 1) 0) (else 1))))) +(define CoreC-45Unify-unionAll (lambda (arg-0) (if (null? arg-0) (vector '() 0 '() (vector 0 )) (let ((e-2 (car arg-0))) (let ((e-3 (cdr arg-0))) (if (null? e-3) e-2 (CoreC-45Unify-union e-2 (CoreC-45Unify-unionAll e-3)))))))) +(define CoreC-45Unify-union (lambda (arg-0 arg-1) (vector (DataC-45List-union (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (let ((e-0 (vector-ref arg-0 0))) e-0) (let ((e-0 (vector-ref arg-1 0))) e-0)) (let ((sc0 (let ((e-1 (vector-ref arg-0 1))) e-1))) (cond ((equal? sc0 1) 1) (else (let ((e-1 (vector-ref arg-1 1))) e-1)))) (PreludeC-45TypesC-45List-C-43C-43 (let ((e-2 (vector-ref arg-0 2))) e-2) (let ((e-2 (vector-ref arg-1 2))) e-2)) (vector 0 )))) +(define CoreC-45Unify-unifyWithLazy (lambda (arg-1 arg-2 arg-3 arg-4 ext-2 ext-1 ext-0) (let ((e-2 (cdr arg-1))) (lambda (arg-5) (lambda (arg-6) ((((((((e-2 arg-2) arg-3) arg-4) ext-2) ext-1) ext-0) arg-5) arg-6)))))) +(define CoreC-45Unify-unifyNoEta (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (case (vector-ref arg-6 0) ((2) (let ((e-15 (vector-ref arg-6 1))) (let ((e-16 (vector-ref arg-6 2))) (let ((e-17 (vector-ref arg-6 3))) (let ((e-18 (vector-ref arg-6 4))) (let ((e-19 (vector-ref arg-6 5))) (case (vector-ref arg-7 0) ((2) (let ((e-45 (vector-ref arg-7 1))) (let ((e-46 (vector-ref arg-7 2))) (let ((e-47 (vector-ref arg-7 3))) (let ((e-48 (vector-ref arg-7 4))) (let ((e-49 (vector-ref arg-7 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((sc3 (PreludeC-45EqOrd-u--C-61C-61_Eq_Int e-17 e-47))) (cond ((equal? sc3 1) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else ((CoreC-45Unify-unifyArgs (cons (cons (lambda (u--vars) (lambda (arg-6180) (lambda (arg-6183) (lambda (arg-6186) (lambda (arg-6187) (lambda (arg-6188) (lambda (arg-6190) (lambda (arg-6193) (lambda (eta-1) (CoreC-45Unify-u--unifyD_Unify_Closure u--vars arg-6180 arg-6183 arg-6186 arg-6187 arg-6188 arg-6190 arg-6193 eta-1)))))))))) (lambda (u--vars) (lambda (arg-6195) (lambda (arg-6198) (lambda (arg-6201) (lambda (arg-6202) (lambda (arg-6203) (lambda (arg-6205) (lambda (arg-6206) (lambda (eta-1) (CoreC-45Unify-u--unifyWithLazyD_Unify_Closure u--vars arg-6195 arg-6198 arg-6201 arg-6202 arg-6203 arg-6205 arg-6206 eta-1))))))))))) (cons (lambda (u--c) (lambda (u--vars) (lambda (arg-5827) (lambda (arg-5828) (lambda (arg-5830) (lambda (eta-1) (CoreC-45Normalise-u--quote_Quote_Closure u--c u--vars arg-5827 arg-5828 arg-5830 eta-1))))))) (lambda (u--c) (lambda (u--vars) (lambda (arg-5836) (lambda (arg-5839) (lambda (arg-5840) (lambda (arg-5842) (lambda (eta-1) (CoreC-45Normalise-u--quoteGen_Quote_Closure u--c u--vars arg-5836 arg-5839 arg-5840 arg-5842 eta-1)))))))))) arg-2 arg-0 arg-1 arg-3 arg-4 arg-5 (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) e-19) (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) e-49)) eta-0))))) (else (CoreC-45Unify-convertError arg-2 arg-0 arg-4 arg-5 (vector 2 e-15 e-16 e-17 e-18 e-19) (vector 2 e-45 e-46 e-47 e-48 e-49) eta-0))))))))))))))(else (case (vector-ref arg-7 0) ((1) (let ((e-6 (vector-ref arg-7 1))) (let ((e-7 (vector-ref arg-7 2))) (let ((e-8 (vector-ref arg-7 3))) (let ((sc2 (CoreC-45Unify-u--C-47C-61_Eq_UnifyMode (let ((e-1 (cdr arg-3))) e-1) 2))) (cond ((equal? sc2 1) (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 e-6 e-7 e-8 arg-6)) (else (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-log arg-0 "unify.noeta" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Unify if Eq due to something with app") eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (CoreC-45Unify-unifyIfEq arg-0 arg-1 arg-2 1 arg-4 arg-3 arg-5 arg-6 (vector 1 e-6 e-7 e-8) eta-0)))))))))))) ((4) (let ((e-13 (vector-ref arg-7 4))) (CoreC-45Unify-unifyNoEta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-13)))(else (case (vector-ref arg-6 0) ((4) (let ((e-4 (vector-ref arg-6 4))) (CoreC-45Unify-unifyNoEta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-4 arg-7)))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-clearDefs e-5 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45ContextC-45Log-log arg-0 "unify.noeta" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Nothing else worked, unifyIfEq") eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (CoreC-45Unify-unifyIfEq arg-0 arg-1 arg-2 (let ((sc4 (CoreC-45Unify-n--11781-16910-u--isDelay arg-2 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 arg-6))) (cond ((equal? sc4 1) 1) (else (CoreC-45Unify-n--11781-16910-u--isDelay arg-2 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 arg-7)))) arg-4 arg-3 arg-5 arg-6 arg-7 eta-0)))))))))))))))))))))))) ((3) (let ((e-21 (vector-ref arg-6 1))) (let ((e-22 (vector-ref arg-6 2))) (let ((e-23 (vector-ref arg-6 3))) (let ((e-24 (vector-ref arg-6 4))) (let ((e-25 (vector-ref arg-6 5))) (case (vector-ref arg-7 0) ((3) (let ((e-51 (vector-ref arg-7 1))) (let ((e-52 (vector-ref arg-7 2))) (let ((e-53 (vector-ref arg-7 3))) (let ((e-54 (vector-ref arg-7 4))) (let ((e-55 (vector-ref arg-7 5))) (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-unverifiedLogC arg-0 "unify" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))))))))))))) (lambda (eta-1) (let ((act-24 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-2) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-2)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-2) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-2))))) e-22 eta-1))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-2) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-2)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-2) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-2))))) e-52 eta-1))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (PreludeC-45TypesC-45String-C-43C-43 "Comparing type constructors " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-5) (PreludeC-45TypesC-45String-C-43C-43 " and " (CoreC-45Name-u--show_Show_Name e-6)))))))))))))) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((sc3 (CoreC-45Name-u--C-61C-61_Eq_Name e-22 e-52))) (cond ((equal? sc3 1) (let ((u--xs (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) e-25))) (let ((u--ys (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) e-55))) (let ((act-25 (CoreC-45ContextC-45Log-unverifiedLogC arg-0 "unify" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))))))))))))) (lambda (eta-1) (vector 1 (PreludeC-45TypesC-45String-C-43C-43 "Constructor " (CoreC-45Name-u--show_Show_Name e-22)))) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45ContextC-45Log-unverifiedLogC arg-0 "unify" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))))))))))))) (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-2) (case (vector-ref eta-2 0) ((0) (let ((e-2 (vector-ref eta-2 1))) (vector 0 e-2))) (else (vector 1 "")))) (lambda (eta-2) (CoreC-45Core-traverse_ (lambda (eta-3) (lambda (eta-4) (CoreC-45Unify-dumpArg arg-2 arg-0 arg-5 eta-3 eta-4))) u--xs eta-2)) eta-1)) eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((act-27 (CoreC-45ContextC-45Log-unverifiedLogC arg-0 "unify" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))))))))))))) (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-2) (case (vector-ref eta-2 0) ((0) (let ((e-2 (vector-ref eta-2 1))) (vector 0 e-2))) (else (vector 1 "")))) (lambda (eta-2) (CoreC-45Core-traverse_ (lambda (eta-3) (lambda (eta-4) (CoreC-45Unify-dumpArg arg-2 arg-0 arg-5 eta-3 eta-4))) u--ys eta-2)) eta-1)) eta-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else ((CoreC-45Unify-unifyArgs (cons (cons (lambda (u--vars) (lambda (arg-6180) (lambda (arg-6183) (lambda (arg-6186) (lambda (arg-6187) (lambda (arg-6188) (lambda (arg-6190) (lambda (arg-6193) (lambda (eta-1) (CoreC-45Unify-u--unifyD_Unify_Closure u--vars arg-6180 arg-6183 arg-6186 arg-6187 arg-6188 arg-6190 arg-6193 eta-1)))))))))) (lambda (u--vars) (lambda (arg-6195) (lambda (arg-6198) (lambda (arg-6201) (lambda (arg-6202) (lambda (arg-6203) (lambda (arg-6205) (lambda (arg-6206) (lambda (eta-1) (CoreC-45Unify-u--unifyWithLazyD_Unify_Closure u--vars arg-6195 arg-6198 arg-6201 arg-6202 arg-6203 arg-6205 arg-6206 eta-1))))))))))) (cons (lambda (u--c) (lambda (u--vars) (lambda (arg-5827) (lambda (arg-5828) (lambda (arg-5830) (lambda (eta-1) (CoreC-45Normalise-u--quote_Quote_Closure u--c u--vars arg-5827 arg-5828 arg-5830 eta-1))))))) (lambda (u--c) (lambda (u--vars) (lambda (arg-5836) (lambda (arg-5839) (lambda (arg-5840) (lambda (arg-5842) (lambda (eta-1) (CoreC-45Normalise-u--quoteGen_Quote_Closure u--c u--vars arg-5836 arg-5839 arg-5840 arg-5842 eta-1)))))))))) arg-2 arg-0 arg-1 arg-3 arg-4 arg-5 u--xs u--ys) eta-0))))))))))))) (else (CoreC-45Unify-convertError arg-2 arg-0 arg-4 arg-5 (vector 3 e-21 e-22 e-23 e-24 e-25) (vector 3 e-51 e-52 e-53 e-54 e-55) eta-0))))))))))))))(else (case (vector-ref arg-7 0) ((1) (let ((e-6 (vector-ref arg-7 1))) (let ((e-7 (vector-ref arg-7 2))) (let ((e-8 (vector-ref arg-7 3))) (let ((sc2 (CoreC-45Unify-u--C-47C-61_Eq_UnifyMode (let ((e-1 (cdr arg-3))) e-1) 2))) (cond ((equal? sc2 1) (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 e-6 e-7 e-8 arg-6)) (else (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-log arg-0 "unify.noeta" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Unify if Eq due to something with app") eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (CoreC-45Unify-unifyIfEq arg-0 arg-1 arg-2 1 arg-4 arg-3 arg-5 arg-6 (vector 1 e-6 e-7 e-8) eta-0)))))))))))) ((4) (let ((e-13 (vector-ref arg-7 4))) (CoreC-45Unify-unifyNoEta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-13)))(else (case (vector-ref arg-6 0) ((4) (let ((e-4 (vector-ref arg-6 4))) (CoreC-45Unify-unifyNoEta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-4 arg-7)))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-clearDefs e-5 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45ContextC-45Log-log arg-0 "unify.noeta" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Nothing else worked, unifyIfEq") eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (CoreC-45Unify-unifyIfEq arg-0 arg-1 arg-2 (let ((sc4 (CoreC-45Unify-n--11781-16910-u--isDelay arg-2 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 arg-6))) (cond ((equal? sc4 1) 1) (else (CoreC-45Unify-n--11781-16910-u--isDelay arg-2 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 arg-7)))) arg-4 arg-3 arg-5 arg-6 arg-7 eta-0)))))))))))))))))))))))) ((5) (let ((e-29 (vector-ref arg-6 3))) (case (vector-ref arg-7 0) ((5) (let ((e-59 (vector-ref arg-7 3))) (((CoreC-45Unify-unify (cons (lambda (u--vars) (lambda (arg-6180) (lambda (arg-6183) (lambda (arg-6186) (lambda (arg-6187) (lambda (arg-6188) (lambda (arg-6190) (lambda (arg-6193) (CoreC-45Unify-u--unifyD_Unify_NF u--vars arg-6180 arg-6183 arg-6186 arg-6187 arg-6188 arg-6190 arg-6193))))))))) (lambda (u--vars) (lambda (arg-6195) (lambda (arg-6198) (lambda (arg-6201) (lambda (arg-6202) (lambda (arg-6203) (lambda (arg-6205) (lambda (arg-6206) (CoreC-45Unify-u--unifyWithLazyD_Unify_NF u--vars arg-6195 arg-6198 arg-6201 arg-6202 arg-6203 arg-6205 arg-6206)))))))))) arg-2 arg-0 arg-1 (CoreC-45Unify-lower arg-3) arg-4 arg-5) e-29) e-59)))(else (case (vector-ref arg-7 0) ((1) (let ((e-6 (vector-ref arg-7 1))) (let ((e-7 (vector-ref arg-7 2))) (let ((e-8 (vector-ref arg-7 3))) (let ((sc2 (CoreC-45Unify-u--C-47C-61_Eq_UnifyMode (let ((e-1 (cdr arg-3))) e-1) 2))) (cond ((equal? sc2 1) (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 e-6 e-7 e-8 arg-6)) (else (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-log arg-0 "unify.noeta" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Unify if Eq due to something with app") eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (CoreC-45Unify-unifyIfEq arg-0 arg-1 arg-2 1 arg-4 arg-3 arg-5 arg-6 (vector 1 e-6 e-7 e-8) eta-0)))))))))))) ((4) (let ((e-13 (vector-ref arg-7 4))) (CoreC-45Unify-unifyNoEta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-13)))(else (case (vector-ref arg-6 0) ((4) (let ((e-4 (vector-ref arg-6 4))) (CoreC-45Unify-unifyNoEta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-4 arg-7)))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-clearDefs e-5 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45ContextC-45Log-log arg-0 "unify.noeta" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Nothing else worked, unifyIfEq") eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (CoreC-45Unify-unifyIfEq arg-0 arg-1 arg-2 (let ((sc4 (CoreC-45Unify-n--11781-16910-u--isDelay arg-2 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 arg-6))) (cond ((equal? sc4 1) 1) (else (CoreC-45Unify-n--11781-16910-u--isDelay arg-2 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 arg-7)))) arg-4 arg-3 arg-5 arg-6 arg-7 eta-0)))))))))))))))))))) ((6) (let ((e-33 (vector-ref arg-6 3))) (let ((e-34 (vector-ref arg-6 4))) (case (vector-ref arg-7 0) ((6) (let ((e-63 (vector-ref arg-7 3))) (let ((e-64 (vector-ref arg-7 4))) (CoreC-45Unify-unifyArgs (cons (cons (lambda (u--vars) (lambda (arg-6180) (lambda (arg-6183) (lambda (arg-6186) (lambda (arg-6187) (lambda (arg-6188) (lambda (arg-6190) (lambda (arg-6193) (lambda (eta-0) (CoreC-45Unify-u--unifyD_Unify_Closure u--vars arg-6180 arg-6183 arg-6186 arg-6187 arg-6188 arg-6190 arg-6193 eta-0)))))))))) (lambda (u--vars) (lambda (arg-6195) (lambda (arg-6198) (lambda (arg-6201) (lambda (arg-6202) (lambda (arg-6203) (lambda (arg-6205) (lambda (arg-6206) (lambda (eta-0) (CoreC-45Unify-u--unifyWithLazyD_Unify_Closure u--vars arg-6195 arg-6198 arg-6201 arg-6202 arg-6203 arg-6205 arg-6206 eta-0))))))))))) (cons (lambda (u--c) (lambda (u--vars) (lambda (arg-5827) (lambda (arg-5828) (lambda (arg-5830) (lambda (eta-0) (CoreC-45Normalise-u--quote_Quote_Closure u--c u--vars arg-5827 arg-5828 arg-5830 eta-0))))))) (lambda (u--c) (lambda (u--vars) (lambda (arg-5836) (lambda (arg-5839) (lambda (arg-5840) (lambda (arg-5842) (lambda (eta-0) (CoreC-45Normalise-u--quoteGen_Quote_Closure u--c u--vars arg-5836 arg-5839 arg-5840 arg-5842 eta-0)))))))))) arg-2 arg-0 arg-1 arg-3 arg-4 arg-5 (cons e-33 (cons e-34 '())) (cons e-63 (cons e-64 '()))))))(else (case (vector-ref arg-7 0) ((1) (let ((e-6 (vector-ref arg-7 1))) (let ((e-7 (vector-ref arg-7 2))) (let ((e-8 (vector-ref arg-7 3))) (let ((sc2 (CoreC-45Unify-u--C-47C-61_Eq_UnifyMode (let ((e-1 (cdr arg-3))) e-1) 2))) (cond ((equal? sc2 1) (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 e-6 e-7 e-8 arg-6)) (else (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-log arg-0 "unify.noeta" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Unify if Eq due to something with app") eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (CoreC-45Unify-unifyIfEq arg-0 arg-1 arg-2 1 arg-4 arg-3 arg-5 arg-6 (vector 1 e-6 e-7 e-8) eta-0)))))))))))) ((4) (let ((e-13 (vector-ref arg-7 4))) (CoreC-45Unify-unifyNoEta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-13)))(else (case (vector-ref arg-6 0) ((4) (let ((e-4 (vector-ref arg-6 4))) (CoreC-45Unify-unifyNoEta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-4 arg-7)))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-clearDefs e-5 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45ContextC-45Log-log arg-0 "unify.noeta" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Nothing else worked, unifyIfEq") eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (CoreC-45Unify-unifyIfEq arg-0 arg-1 arg-2 (let ((sc4 (CoreC-45Unify-n--11781-16910-u--isDelay arg-2 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 arg-6))) (cond ((equal? sc4 1) 1) (else (CoreC-45Unify-n--11781-16910-u--isDelay arg-2 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 arg-7)))) arg-4 arg-3 arg-5 arg-6 arg-7 eta-0))))))))))))))))))))) ((7) (let ((e-38 (vector-ref arg-6 3))) (let ((e-39 (vector-ref arg-6 4))) (case (vector-ref arg-7 0) ((7) (let ((e-68 (vector-ref arg-7 3))) (let ((e-69 (vector-ref arg-7 4))) (lambda (eta-0) (let ((act-24 ((((CoreC-45Unify-unify (cons (lambda (u--vars) (lambda (arg-6180) (lambda (arg-6183) (lambda (arg-6186) (lambda (arg-6187) (lambda (arg-6188) (lambda (arg-6190) (lambda (arg-6193) (CoreC-45Unify-u--unifyD_Unify_NF u--vars arg-6180 arg-6183 arg-6186 arg-6187 arg-6188 arg-6190 arg-6193))))))))) (lambda (u--vars) (lambda (arg-6195) (lambda (arg-6198) (lambda (arg-6201) (lambda (arg-6202) (lambda (arg-6203) (lambda (arg-6205) (lambda (arg-6206) (CoreC-45Unify-u--unifyWithLazyD_Unify_NF u--vars arg-6195 arg-6198 arg-6201 arg-6202 arg-6203 arg-6205 arg-6206)))))))))) arg-2 arg-0 arg-1 (CoreC-45Unify-lower arg-3) arg-4 arg-5) e-38) e-68) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Unify-unifyArgs (cons (cons (lambda (u--vars) (lambda (arg-6180) (lambda (arg-6183) (lambda (arg-6186) (lambda (arg-6187) (lambda (arg-6188) (lambda (arg-6190) (lambda (arg-6193) (lambda (eta-1) (CoreC-45Unify-u--unifyD_Unify_Closure u--vars arg-6180 arg-6183 arg-6186 arg-6187 arg-6188 arg-6190 arg-6193 eta-1)))))))))) (lambda (u--vars) (lambda (arg-6195) (lambda (arg-6198) (lambda (arg-6201) (lambda (arg-6202) (lambda (arg-6203) (lambda (arg-6205) (lambda (arg-6206) (lambda (eta-1) (CoreC-45Unify-u--unifyWithLazyD_Unify_Closure u--vars arg-6195 arg-6198 arg-6201 arg-6202 arg-6203 arg-6205 arg-6206 eta-1))))))))))) (cons (lambda (u--c) (lambda (u--vars) (lambda (arg-5827) (lambda (arg-5828) (lambda (arg-5830) (lambda (eta-1) (CoreC-45Normalise-u--quote_Quote_Closure u--c u--vars arg-5827 arg-5828 arg-5830 eta-1))))))) (lambda (u--c) (lambda (u--vars) (lambda (arg-5836) (lambda (arg-5839) (lambda (arg-5840) (lambda (arg-5842) (lambda (eta-1) (CoreC-45Normalise-u--quoteGen_Quote_Closure u--c u--vars arg-5836 arg-5839 arg-5840 arg-5842 eta-1)))))))))) arg-2 arg-0 arg-1 arg-3 arg-4 arg-5 (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) e-39) (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) e-69)) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (CoreC-45Unify-union e-5 e-6))))))))))))))(else (case (vector-ref arg-7 0) ((1) (let ((e-6 (vector-ref arg-7 1))) (let ((e-7 (vector-ref arg-7 2))) (let ((e-8 (vector-ref arg-7 3))) (let ((sc2 (CoreC-45Unify-u--C-47C-61_Eq_UnifyMode (let ((e-1 (cdr arg-3))) e-1) 2))) (cond ((equal? sc2 1) (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 e-6 e-7 e-8 arg-6)) (else (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-log arg-0 "unify.noeta" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Unify if Eq due to something with app") eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (CoreC-45Unify-unifyIfEq arg-0 arg-1 arg-2 1 arg-4 arg-3 arg-5 arg-6 (vector 1 e-6 e-7 e-8) eta-0)))))))))))) ((4) (let ((e-13 (vector-ref arg-7 4))) (CoreC-45Unify-unifyNoEta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-13)))(else (case (vector-ref arg-6 0) ((4) (let ((e-4 (vector-ref arg-6 4))) (CoreC-45Unify-unifyNoEta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-4 arg-7)))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-clearDefs e-5 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45ContextC-45Log-log arg-0 "unify.noeta" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Nothing else worked, unifyIfEq") eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (CoreC-45Unify-unifyIfEq arg-0 arg-1 arg-2 (let ((sc4 (CoreC-45Unify-n--11781-16910-u--isDelay arg-2 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 arg-6))) (cond ((equal? sc4 1) 1) (else (CoreC-45Unify-n--11781-16910-u--isDelay arg-2 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 arg-7)))) arg-4 arg-3 arg-5 arg-6 arg-7 eta-0))))))))))))))))))))) ((1) (let ((e-41 (vector-ref arg-6 1))) (let ((e-42 (vector-ref arg-6 2))) (let ((e-43 (vector-ref arg-6 3))) (case (vector-ref e-42 0) ((2) (let ((e-75 (vector-ref e-42 1))) (let ((e-76 (vector-ref e-42 2))) (let ((e-77 (vector-ref e-42 3))) (case (vector-ref arg-7 0) ((1) (let ((e-79 (vector-ref arg-7 1))) (let ((e-80 (vector-ref arg-7 2))) (let ((e-81 (vector-ref arg-7 3))) (case (vector-ref e-80 0) ((2) (let ((e-83 (vector-ref e-80 1))) (let ((e-84 (vector-ref e-80 2))) (let ((e-85 (vector-ref e-80 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-u--convert_Convert_NF arg-0 arg-2 e-5 arg-5 arg-6 arg-7 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((u--fx (vector 2 e-75 e-76 e-77))) (let ((u--fy (vector 2 e-83 e-84 e-85))) (cond ((equal? e-6 1) (vector 1 (CoreC-45Unify-success))) (else ((CoreC-45Unify-unifyBothApps arg-0 arg-1 arg-2 (CoreC-45Unify-lower arg-3) arg-4 arg-5 e-41 u--fx e-43 e-79 u--fy e-81) eta-0))))))))))))))))))(else (case (vector-ref arg-7 0) ((1) (let ((e-71 (vector-ref arg-7 1))) (let ((e-72 (vector-ref arg-7 2))) (let ((e-73 (vector-ref arg-7 3))) (CoreC-45Unify-unifyBothApps arg-0 arg-1 arg-2 (CoreC-45Unify-lower arg-3) arg-4 arg-5 e-41 e-42 e-43 e-71 e-72 e-73)))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 (CoreC-45Unify-lower arg-3) arg-4 arg-5 e-41 e-42 e-43 arg-7)))))))))(else (case (vector-ref arg-7 0) ((1) (let ((e-71 (vector-ref arg-7 1))) (let ((e-72 (vector-ref arg-7 2))) (let ((e-73 (vector-ref arg-7 3))) (CoreC-45Unify-unifyBothApps arg-0 arg-1 arg-2 (CoreC-45Unify-lower arg-3) arg-4 arg-5 e-41 e-42 e-43 e-71 e-72 e-73)))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 (CoreC-45Unify-lower arg-3) arg-4 arg-5 e-41 e-42 e-43 arg-7)))))))))(else (case (vector-ref arg-7 0) ((1) (let ((e-71 (vector-ref arg-7 1))) (let ((e-72 (vector-ref arg-7 2))) (let ((e-73 (vector-ref arg-7 3))) (CoreC-45Unify-unifyBothApps arg-0 arg-1 arg-2 (CoreC-45Unify-lower arg-3) arg-4 arg-5 e-41 e-42 e-43 e-71 e-72 e-73)))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 (CoreC-45Unify-lower arg-3) arg-4 arg-5 e-41 e-42 e-43 arg-7)))))))))(else (case (vector-ref arg-7 0) ((1) (let ((e-6 (vector-ref arg-7 1))) (let ((e-7 (vector-ref arg-7 2))) (let ((e-8 (vector-ref arg-7 3))) (let ((sc1 (CoreC-45Unify-u--C-47C-61_Eq_UnifyMode (let ((e-1 (cdr arg-3))) e-1) 2))) (cond ((equal? sc1 1) (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 e-6 e-7 e-8 arg-6)) (else (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-log arg-0 "unify.noeta" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Unify if Eq due to something with app") eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (CoreC-45Unify-unifyIfEq arg-0 arg-1 arg-2 1 arg-4 arg-3 arg-5 arg-6 (vector 1 e-6 e-7 e-8) eta-0)))))))))))) ((4) (let ((e-13 (vector-ref arg-7 4))) (CoreC-45Unify-unifyNoEta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-13)))(else (case (vector-ref arg-6 0) ((4) (let ((e-4 (vector-ref arg-6 4))) (CoreC-45Unify-unifyNoEta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-4 arg-7)))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-clearDefs e-5 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45ContextC-45Log-log arg-0 "unify.noeta" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Nothing else worked, unifyIfEq") eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (CoreC-45Unify-unifyIfEq arg-0 arg-1 arg-2 (let ((sc3 (CoreC-45Unify-n--11781-16910-u--isDelay arg-2 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 arg-6))) (cond ((equal? sc3 1) 1) (else (CoreC-45Unify-n--11781-16910-u--isDelay arg-2 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 arg-7)))) arg-4 arg-3 arg-5 arg-6 arg-7 eta-0)))))))))))))))))))) +(define CoreC-45Unify-unifyInvertible (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-lookupTyExact (vector 9 arg-8) (let ((e-0 (vector-ref e-5 0))) e-0) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (if (null? e-6) (CoreC-45Unify-ufail arg-5 (PreludeC-45TypesC-45String-C-43C-43 "No such metavariable " (CoreC-45Name-u--show_Show_Name arg-7)) ext-0) (let ((e-1 (unbox e-6))) (let ((act-26 (let ((act-26 ((CoreC-45Normalise-nf arg-0 arg-2 e-5 arg-6 (CoreC-45TT-embed e-1)) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) ((CoreC-45Unify-getArgTypes e-5 e-7 (PreludeC-45TypesC-45List-C-43C-43 arg-9 arg-10)) ext-0))))))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 ((PreludeC-45Types-maybe (lambda () (lambda (eta-0) (vector 1 '()))) (lambda () (lambda (u--ty) (lambda (eta-0) (let ((act-27 ((CoreC-45Normalise-nf arg-0 arg-2 e-5 arg-6 (CoreC-45TT-embed u--ty)) eta-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) ((CoreC-45Unify-getArgTypes e-5 e-8 (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) arg-13)) eta-0)))))))) arg-11) ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (let ((act-28 ((CoreC-45Unify-headsConvert arg-2 arg-0 arg-1 arg-4 arg-5 arg-6 e-7 e-8) ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-28 1))) (cond ((equal? e-9 1) (let ((sc7 (DataC-45List-reverse arg-10))) (if (null? sc7) (CoreC-45Unify-postponeS arg-2 arg-0 arg-1 arg-3 arg-5 arg-4 "Postponing hole application [2]" arg-6 (vector 1 arg-5 (vector 2 arg-7 arg-8 arg-9) (PreludeC-45Types-u--map_Functor_List (lambda (__infixTupleSection-0) (cons (vector 2 ) __infixTupleSection-0)) arg-10)) (arg-12 arg-13) ext-0) (let ((e-11 (car sc7))) (let ((e-10 (cdr sc7))) (let ((sc8 (DataC-45List-reverse arg-13))) (if (null? sc8) (CoreC-45Unify-postponeS arg-2 arg-0 arg-1 arg-3 arg-5 arg-4 "Postponing hole application [2]" arg-6 (vector 1 arg-5 (vector 2 arg-7 arg-8 arg-9) (PreludeC-45Types-u--map_Functor_List (lambda (__infixTupleSection-0) (cons (vector 2 ) __infixTupleSection-0)) arg-10)) (arg-12 arg-13) ext-0) (let ((e-13 (car sc8))) (let ((e-12 (cdr sc8))) (CoreC-45UnifyState-tryUnify arg-0 arg-1 (lambda (clam-0) (cond ((equal? arg-3 1) (let ((act-29 (CoreC-45ContextC-45Log-log arg-0 "unify.invertible" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Unifying invertible") clam-0))) (case (vector-ref act-29 0) ((0) (let ((e-2 (vector-ref act-29 1))) (vector 0 e-2))) (else (let ((act-30 ((((CoreC-45Unify-unify (cons (lambda (u--vars) (lambda (arg-6180) (lambda (arg-6183) (lambda (arg-6186) (lambda (arg-6187) (lambda (arg-6188) (lambda (arg-6190) (lambda (arg-6193) (lambda (eta-0) (CoreC-45Unify-u--unifyD_Unify_Closure u--vars arg-6180 arg-6183 arg-6186 arg-6187 arg-6188 arg-6190 arg-6193 eta-0)))))))))) (lambda (u--vars) (lambda (arg-6195) (lambda (arg-6198) (lambda (arg-6201) (lambda (arg-6202) (lambda (arg-6203) (lambda (arg-6205) (lambda (arg-6206) (lambda (eta-0) (CoreC-45Unify-u--unifyWithLazyD_Unify_Closure u--vars arg-6195 arg-6198 arg-6201 arg-6202 arg-6203 arg-6205 arg-6206 eta-0))))))))))) arg-2 arg-0 arg-1 arg-4 arg-5 arg-6) (Builtin-snd e-13)) e-11) clam-0))) (case (vector-ref act-30 0) ((0) (let ((e-2 (vector-ref act-30 1))) (vector 0 e-2))) (else (let ((e-15 (vector-ref act-30 1))) (let ((act-31 (CoreC-45ContextC-45Log-log arg-0 "unify.invertible" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Constraints " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_Int u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_Int u--d u--x)))) (let ((e-0 (vector-ref e-15 0))) e-0)))) clam-0))) (case (vector-ref act-31 0) ((0) (let ((e-2 (vector-ref act-31 1))) (vector 0 e-2))) (else (let ((act-32 ((((CoreC-45Unify-unify (cons (lambda (u--vars) (lambda (arg-6180) (lambda (arg-6183) (lambda (arg-6186) (lambda (arg-6187) (lambda (arg-6188) (lambda (arg-6190) (lambda (arg-6193) (CoreC-45Unify-u--unifyD_Unify_NF u--vars arg-6180 arg-6183 arg-6186 arg-6187 arg-6188 arg-6190 arg-6193))))))))) (lambda (u--vars) (lambda (arg-6195) (lambda (arg-6198) (lambda (arg-6201) (lambda (arg-6202) (lambda (arg-6203) (lambda (arg-6205) (lambda (arg-6206) (CoreC-45Unify-u--unifyWithLazyD_Unify_NF u--vars arg-6195 arg-6198 arg-6201 arg-6202 arg-6203 arg-6205 arg-6206)))))))))) arg-2 arg-0 arg-1 arg-4 arg-5 arg-6) (arg-12 (DataC-45List-reverse e-12))) (vector 1 arg-5 (vector 2 arg-7 arg-8 arg-9) (DataC-45List-reverse (PreludeC-45Types-u--map_Functor_List (lambda (__infixTupleSection-0) (cons (vector 2 ) __infixTupleSection-0)) e-10)))) clam-0))) (case (vector-ref act-32 0) ((0) (let ((e-2 (vector-ref act-32 1))) (vector 0 e-2))) (else (let ((e-17 (vector-ref act-32 1))) (vector 1 (CoreC-45Unify-union e-15 e-17))))))))))))))))) (else (let ((act-29 (CoreC-45ContextC-45Log-log arg-0 "unify.invertible" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Unifying invertible") clam-0))) (case (vector-ref act-29 0) ((0) (let ((e-2 (vector-ref act-29 1))) (vector 0 e-2))) (else (let ((act-30 ((((CoreC-45Unify-unify (cons (lambda (u--vars) (lambda (arg-6180) (lambda (arg-6183) (lambda (arg-6186) (lambda (arg-6187) (lambda (arg-6188) (lambda (arg-6190) (lambda (arg-6193) (lambda (eta-0) (CoreC-45Unify-u--unifyD_Unify_Closure u--vars arg-6180 arg-6183 arg-6186 arg-6187 arg-6188 arg-6190 arg-6193 eta-0)))))))))) (lambda (u--vars) (lambda (arg-6195) (lambda (arg-6198) (lambda (arg-6201) (lambda (arg-6202) (lambda (arg-6203) (lambda (arg-6205) (lambda (arg-6206) (lambda (eta-0) (CoreC-45Unify-u--unifyWithLazyD_Unify_Closure u--vars arg-6195 arg-6198 arg-6201 arg-6202 arg-6203 arg-6205 arg-6206 eta-0))))))))))) arg-2 arg-0 arg-1 arg-4 arg-5 arg-6) e-11) (Builtin-snd e-13)) clam-0))) (case (vector-ref act-30 0) ((0) (let ((e-2 (vector-ref act-30 1))) (vector 0 e-2))) (else (let ((e-15 (vector-ref act-30 1))) (let ((act-31 (CoreC-45ContextC-45Log-log arg-0 "unify.invertible" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Constraints " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_Int u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_Int u--d u--x)))) (let ((e-0 (vector-ref e-15 0))) e-0)))) clam-0))) (case (vector-ref act-31 0) ((0) (let ((e-2 (vector-ref act-31 1))) (vector 0 e-2))) (else (let ((act-32 ((((CoreC-45Unify-unify (cons (lambda (u--vars) (lambda (arg-6180) (lambda (arg-6183) (lambda (arg-6186) (lambda (arg-6187) (lambda (arg-6188) (lambda (arg-6190) (lambda (arg-6193) (CoreC-45Unify-u--unifyD_Unify_NF u--vars arg-6180 arg-6183 arg-6186 arg-6187 arg-6188 arg-6190 arg-6193))))))))) (lambda (u--vars) (lambda (arg-6195) (lambda (arg-6198) (lambda (arg-6201) (lambda (arg-6202) (lambda (arg-6203) (lambda (arg-6205) (lambda (arg-6206) (CoreC-45Unify-u--unifyWithLazyD_Unify_NF u--vars arg-6195 arg-6198 arg-6201 arg-6202 arg-6203 arg-6205 arg-6206)))))))))) arg-2 arg-0 arg-1 arg-4 arg-5 arg-6) (vector 1 arg-5 (vector 2 arg-7 arg-8 arg-9) (DataC-45List-reverse (PreludeC-45Types-u--map_Functor_List (lambda (__infixTupleSection-0) (cons (vector 2 ) __infixTupleSection-0)) e-10)))) (arg-12 (DataC-45List-reverse e-12))) clam-0))) (case (vector-ref act-32 0) ((0) (let ((e-2 (vector-ref act-32 1))) (vector 0 e-2))) (else (let ((e-17 (vector-ref act-32 1))) (vector 1 (CoreC-45Unify-union e-15 e-17))))))))))))))))))) (lambda (eta-0) (CoreC-45Unify-postponeS arg-2 arg-0 arg-1 arg-3 arg-5 arg-4 "Postponing hole application [1]" arg-6 (vector 1 arg-5 (vector 2 arg-7 arg-8 arg-9) (PreludeC-45Types-u--map_Functor_List (lambda (__infixTupleSection-0) (cons (vector 2 ) __infixTupleSection-0)) arg-10)) (arg-12 arg-13) eta-0)) ext-0)))))))))) (else (CoreC-45Unify-postpone arg-2 arg-0 arg-1 arg-5 arg-4 "Postponing hole application [3]" arg-6 (vector 1 arg-5 (vector 2 arg-7 arg-8 arg-9) (PreludeC-45Types-u--map_Functor_List (lambda (__infixTupleSection-0) (cons (vector 2 ) __infixTupleSection-0)) arg-10)) (arg-12 arg-13) ext-0))))))))))))))))))))))))))) +(define CoreC-45Unify-unifyIfEq (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-u--convert_Convert_NF arg-0 arg-2 e-5 arg-6 arg-7 arg-8 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (cond ((equal? e-6 1) (vector 1 (CoreC-45Unify-success))) (else (cond ((equal? arg-3 1) (CoreC-45Unify-postpone arg-2 arg-0 arg-1 arg-4 arg-5 (PreludeC-45TypesC-45String-C-43C-43 "Postponing unifyIfEq " (PreludeC-45Show-u--show_Show_Bool (let ((e-0 (car arg-5))) e-0))) arg-6 arg-7 arg-8 ext-0)) (else (CoreC-45Unify-convertError arg-2 arg-0 arg-4 arg-6 arg-7 arg-8 ext-0))))))))))))))) +(define CoreC-45Unify-unifyHoleApp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (case (vector-ref arg-11 0) ((3) (let ((e-1 (vector-ref arg-11 1))) (let ((e-2 (vector-ref arg-11 2))) (let ((e-3 (vector-ref arg-11 3))) (let ((e-4 (vector-ref arg-11 4))) (let ((e-5 (vector-ref arg-11 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-lookupTyExact e-2 (let ((e-0 (vector-ref e-6 0))) e-0) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-7 (vector-ref act-25 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-25 1))) (CoreC-45Unify-unifyInvertible arg-0 arg-1 arg-2 arg-3 (CoreC-45Unify-lower arg-4) arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-7 (lambda (eta-1) (vector 3 e-1 e-2 e-3 e-4 eta-1)) e-5 eta-0)))))))))))))))) ((2) (let ((e-7 (vector-ref arg-11 1))) (let ((e-8 (vector-ref arg-11 2))) (let ((e-9 (vector-ref arg-11 3))) (let ((e-10 (vector-ref arg-11 4))) (let ((e-11 (vector-ref arg-11 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-lookupTyExact e-8 (let ((e-0 (vector-ref e-5 0))) e-0) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (CoreC-45Unify-unifyInvertible arg-0 arg-1 arg-2 arg-3 (CoreC-45Unify-lower arg-4) arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-6 (lambda (eta-1) (vector 2 e-7 e-8 e-9 e-10 eta-1)) e-11 eta-0)))))))))))))))) ((1) (let ((e-13 (vector-ref arg-11 1))) (let ((e-14 (vector-ref arg-11 2))) (let ((e-15 (vector-ref arg-11 3))) (case (vector-ref e-14 0) ((0) (let ((e-18 (vector-ref e-14 1))) (let ((e-19 (vector-ref e-14 2))) (lambda (eta-0) (CoreC-45Unify-unifyInvertible arg-0 arg-1 arg-2 arg-3 (CoreC-45Unify-lower arg-4) arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 '() (lambda (eta-1) (vector 1 e-13 (vector 0 e-18 e-19) eta-1)) e-15 eta-0))))) ((2) (let ((e-22 (vector-ref e-14 1))) (let ((e-23 (vector-ref e-14 2))) (let ((e-24 (vector-ref e-14 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact (vector 9 e-23) (let ((e-0 (vector-ref e-5 0))) e-0)) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((u--tm (vector 1 e-13 (vector 2 e-22 e-23 e-24) e-15))) (if (null? e-6) (CoreC-45Context-undefinedName arg-0 e-13 arg-7 eta-0) (let ((e-1 (unbox e-6))) (let ((u--inv (let ((sc5 (CoreC-45Unify-n--11730-11849-u--isPatName arg-2 e-24 e-23 e-22 e-15 e-13 u--tm arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-22))) (cond ((equal? sc5 1) 1) (else (let ((e-25 (vector-ref e-1 14))) e-25)))))) (cond ((equal? u--inv 1) (CoreC-45Unify-unifyInvertible arg-0 arg-1 arg-2 arg-3 (CoreC-45Unify-lower arg-4) arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 '() (lambda (eta-1) (vector 1 e-13 (vector 2 e-22 e-23 e-24) eta-1)) e-15 eta-0)) (else (CoreC-45Unify-postponeS arg-2 arg-0 arg-1 arg-3 arg-5 arg-4 "Postponing hole application" arg-6 (vector 1 arg-5 (vector 2 arg-7 arg-8 arg-9) (PreludeC-45Types-u--map_Functor_List (lambda (__infixTupleSection-0) (cons (vector 2 ) __infixTupleSection-0)) arg-10)) u--tm eta-0))))))))))))))))))))(else (lambda (eta-0) (CoreC-45Unify-postponeS arg-2 arg-0 arg-1 arg-3 arg-5 arg-4 "Postponing hole application" arg-6 (vector 1 arg-5 (vector 2 arg-7 arg-8 arg-9) (PreludeC-45Types-u--map_Functor_List (lambda (__infixTupleSection-0) (cons (vector 2 ) __infixTupleSection-0)) arg-10)) arg-11 eta-0))))))))(else (lambda (eta-0) (CoreC-45Unify-postponeS arg-2 arg-0 arg-1 arg-3 arg-5 arg-4 "Postponing hole application" arg-6 (vector 1 arg-5 (vector 2 arg-7 arg-8 arg-9) (PreludeC-45Types-u--map_Functor_List (lambda (__infixTupleSection-0) (cons (vector 2 ) __infixTupleSection-0)) arg-10)) arg-11 eta-0)))))) +(define CoreC-45Unify-unifyHole (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-clearDefs e-5 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((u--args (let ((sc2 (DataC-45List-isNil arg-11))) (cond ((equal? sc2 1) arg-10) (else (PreludeC-45TypesC-45List-C-43C-43 arg-10 arg-11)))))) (let ((act-26 (CoreC-45ContextC-45Log-unverifiedLogC arg-0 "unify.hole" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda (eta-0) (let ((act-26 (CoreC-45Core-traverseC-39 (lambda (eta-1) (CoreC-45Normalise-evalArg arg-0 arg-2 e-6 eta-1)) u--args '() eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (clam-0) (lambda (eta-1) (CoreC-45Normalise-u--quote_Quote_NF arg-0 arg-2 e-6 arg-6 clam-0 eta-1))) e-7 '() eta-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (let ((act-28 (CoreC-45Normalise-u--quote_Quote_NF arg-0 arg-2 e-6 arg-6 arg-12 eta-0))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-28 1))) (vector 1 (PreludeC-45TypesC-45String-C-43C-43 "Unifying: " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name arg-8) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-2 u--d u--x)))) e-8) (PreludeC-45TypesC-45String-C-43C-43 " with " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 e-9)))))))))))))))))))) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((act-27 (CoreC-45Unify-patternEnv arg-0 arg-1 arg-2 arg-6 u--args ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (if (null? e-8) (let ((act-28 ((CoreC-45Context-lookupCtxtExact (vector 9 arg-9) (let ((e-0 (vector-ref e-5 0))) e-0)) ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-28 1))) (if (null? e-9) ((CoreC-45Unify-postponePatVar arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 arg-11 arg-12) ext-0) (let ((e-1 (unbox e-9))) (let ((e-17 (vector-ref e-1 17))) (case (vector-ref e-17 0) ((7) (let ((sc8 (let ((e-35 (vector-ref e-1 14))) e-35))) (cond ((equal? sc8 1) ((CoreC-45Unify-unifyHoleApp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 arg-11 arg-12) ext-0)) (else ((CoreC-45Unify-postponePatVar arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 arg-11 arg-12) ext-0)))))(else ((CoreC-45Unify-postponePatVar arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 arg-11 arg-12) ext-0)))))))))) (let ((e-2 (unbox e-8))) (let ((e-10 (car e-2))) (let ((e-9 (cdr e-2))) (let ((e-12 (car e-9))) (let ((e-11 (cdr e-9))) (let ((act-28 ((CoreC-45Context-lookupCtxtExact (vector 9 arg-9) (let ((e-0 (vector-ref e-5 0))) e-0)) ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-3 (vector-ref act-28 1))) (vector 0 e-3))) (else (let ((e-13 (vector-ref act-28 1))) (let ((bind-0 (box (cons e-10 (cons e-12 e-11))))) (if (null? e-13) ((CoreC-45Unify-postponePatVar arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 arg-11 arg-12) ext-0) (let ((e-1 (unbox e-13))) (let ((_-0 (box e-1))) ((CoreC-45Unify-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32unifyHole-13065 arg-2 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 e-6 u--args e-10 e-12 e-11 bind-0 e-1 _-0 (let ((e-17 (vector-ref e-1 17))) e-17)) ext-0))))))))))))))))))))))))))))))))) +(define CoreC-45Unify-unifyBothBinders (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (case (vector-ref arg-8 0) ((2) (let ((e-1 (vector-ref arg-8 1))) (let ((e-2 (vector-ref arg-8 2))) (let ((e-3 (vector-ref arg-8 3))) (let ((e-4 (vector-ref arg-8 4))) (lambda (clam-0) (case (vector-ref arg-12 0) ((2) (let ((e-11 (vector-ref arg-12 1))) (let ((e-12 (vector-ref arg-12 2))) (let ((e-13 (vector-ref arg-12 3))) (let ((e-14 (vector-ref arg-12 4))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((sc3 (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega e-2 e-12))) (cond ((equal? sc3 1) (CoreC-45Unify-convertError arg-2 arg-0 arg-4 arg-5 (vector 0 arg-6 arg-7 (vector 2 e-1 e-2 e-3 e-4) arg-9) (vector 0 arg-10 arg-11 (vector 2 e-11 e-12 e-13 e-14) arg-13) clam-0)) (else (let ((act-25 (CoreC-45Context-clearDefs e-5 clam-0))) (case (vector-ref act-25 0) ((0) (let ((e-6 (vector-ref act-25 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Normalise-u--quote_Quote_NF arg-0 arg-2 e-6 arg-5 e-4 clam-0))) (case (vector-ref act-26 0) ((0) (let ((e-7 (vector-ref act-26 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (CoreC-45ContextC-45Log-unverifiedLogC arg-0 "unify.binder" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda (eta-0) (let ((act-27 (CoreC-45Normalise-u--quote_Quote_NF arg-0 arg-2 e-6 arg-5 e-14 eta-0))) (case (vector-ref act-27 0) ((0) (let ((e-8 (vector-ref act-27 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref act-27 1))) (vector 1 (PreludeC-45TypesC-45String-C-43C-43 "Unifying arg types " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 e-7) (PreludeC-45TypesC-45String-C-43C-43 " and " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 e-8)))))))))) clam-0))) (case (vector-ref act-27 0) ((0) (let ((e-8 (vector-ref act-27 1))) (vector 0 e-8))) (else (let ((act-28 ((((CoreC-45Unify-unify (cons (lambda (u--vars) (lambda (arg-6180) (lambda (arg-6183) (lambda (arg-6186) (lambda (arg-6187) (lambda (arg-6188) (lambda (arg-6190) (lambda (arg-6193) (CoreC-45Unify-u--unifyD_Unify_NF u--vars arg-6180 arg-6183 arg-6186 arg-6187 arg-6188 arg-6190 arg-6193))))))))) (lambda (u--vars) (lambda (arg-6195) (lambda (arg-6198) (lambda (arg-6201) (lambda (arg-6202) (lambda (arg-6203) (lambda (arg-6205) (lambda (arg-6206) (CoreC-45Unify-u--unifyWithLazyD_Unify_NF u--vars arg-6195 arg-6198 arg-6201 arg-6202 arg-6203 arg-6205 arg-6206)))))))))) arg-2 arg-0 arg-1 (CoreC-45Unify-lower arg-3) arg-4 arg-5) e-4) e-14) clam-0))) (case (vector-ref act-28 0) ((0) (let ((e-9 (vector-ref act-28 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref act-28 1))) (let ((act-29 (CoreC-45UnifyState-genVarName arg-0 arg-1 "x" clam-0))) (case (vector-ref act-29 0) ((0) (let ((e-10 (vector-ref act-29 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-29 1))) (let ((u--envC-39 (cons (vector 2 e-11 e-12 (vector 1 ) e-7) arg-5))) (CoreC-45Unify-case--caseC-32blockC-32inC-32unifyBothBinders-15580 arg-2 e-4 e-3 e-2 e-1 e-14 e-13 e-12 e-11 arg-13 arg-11 arg-10 arg-9 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 e-6 e-7 e-9 e-10 u--envC-39 (let ((e-0 (vector-ref e-9 0))) e-0) clam-0)))))))))))))))))))))))))))))))))(else (CoreC-45Unify-convertError arg-2 arg-0 arg-4 arg-5 (vector 0 arg-6 arg-7 arg-8 arg-9) (vector 0 arg-10 arg-11 arg-12 arg-13) clam-0))))))))) ((0) (let ((e-6 (vector-ref arg-8 1))) (let ((e-7 (vector-ref arg-8 2))) (let ((e-8 (vector-ref arg-8 3))) (let ((e-9 (vector-ref arg-8 4))) (lambda (clam-1) (case (vector-ref arg-12 0) ((0) (let ((e-16 (vector-ref arg-12 1))) (let ((e-17 (vector-ref arg-12 2))) (let ((e-18 (vector-ref arg-12 3))) (let ((e-19 (vector-ref arg-12 4))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((sc3 (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega e-7 e-17))) (cond ((equal? sc3 1) (CoreC-45Unify-convertError arg-2 arg-0 arg-4 arg-5 (vector 0 arg-6 arg-7 (vector 0 e-6 e-7 e-8 e-9) arg-9) (vector 0 arg-10 arg-11 (vector 0 e-16 e-17 e-18 e-19) arg-13) clam-1)) (else (let ((act-25 (CoreC-45Context-clearDefs e-5 clam-1))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Normalise-u--quote_Quote_NF arg-0 arg-2 e-10 arg-5 e-9 clam-1))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref act-26 1))) (let ((act-27 ((((CoreC-45Unify-unify (cons (lambda (u--vars) (lambda (arg-6180) (lambda (arg-6183) (lambda (arg-6186) (lambda (arg-6187) (lambda (arg-6188) (lambda (arg-6190) (lambda (arg-6193) (CoreC-45Unify-u--unifyD_Unify_NF u--vars arg-6180 arg-6183 arg-6186 arg-6187 arg-6188 arg-6190 arg-6193))))))))) (lambda (u--vars) (lambda (arg-6195) (lambda (arg-6198) (lambda (arg-6201) (lambda (arg-6202) (lambda (arg-6203) (lambda (arg-6205) (lambda (arg-6206) (CoreC-45Unify-u--unifyWithLazyD_Unify_NF u--vars arg-6195 arg-6198 arg-6201 arg-6202 arg-6203 arg-6205 arg-6206)))))))))) arg-2 arg-0 arg-1 (CoreC-45Unify-lower arg-3) arg-4 arg-5) e-9) e-19) clam-1))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref act-27 1))) (let ((act-28 (CoreC-45UnifyState-genVarName arg-0 arg-1 "x" clam-1))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref act-28 1))) (let ((u--envC-39 (cons (vector 0 e-6 e-7 (vector 1 ) e-11) arg-5))) (let ((act-29 (CoreC-45Normalise-u--quote_Quote_NF arg-0 arg-2 e-10 arg-5 e-9 clam-1))) (case (vector-ref act-29 0) ((0) (let ((e-2 (vector-ref act-29 1))) (vector 0 e-2))) (else (let ((act-30 (CoreC-45Normalise-u--quote_Quote_NF arg-0 arg-2 e-10 arg-5 e-19 clam-1))) (case (vector-ref act-30 0) ((0) (let ((e-2 (vector-ref act-30 1))) (vector 0 e-2))) (else (let ((act-31 (((arg-9 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) arg-5 (vector 1 arg-4 (vector 0 ) e-13))) clam-1))) (case (vector-ref act-31 0) ((0) (let ((e-2 (vector-ref act-31 1))) (vector 0 e-2))) (else (let ((e-20 (vector-ref act-31 1))) (let ((act-32 (((arg-13 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) arg-5 (vector 1 arg-4 (vector 0 ) e-13))) clam-1))) (case (vector-ref act-32 0) ((0) (let ((e-2 (vector-ref act-32 1))) (vector 0 e-2))) (else (let ((e-21 (vector-ref act-32 1))) (let ((act-33 (CoreC-45Normalise-u--quote_Quote_NF arg-0 arg-2 e-10 arg-5 e-20 clam-1))) (case (vector-ref act-33 0) ((0) (let ((e-2 (vector-ref act-33 1))) (vector 0 e-2))) (else (let ((e-22 (vector-ref act-33 1))) (let ((act-34 (CoreC-45Normalise-u--quote_Quote_NF arg-0 arg-2 e-10 arg-5 e-21 clam-1))) (case (vector-ref act-34 0) ((0) (let ((e-2 (vector-ref act-34 1))) (vector 0 e-2))) (else (let ((e-23 (vector-ref act-34 1))) (let ((act-35 ((((CoreC-45Unify-unify (cons (lambda (u--vars) (lambda (arg-6180) (lambda (arg-6183) (lambda (arg-6186) (lambda (arg-6187) (lambda (arg-6188) (lambda (arg-6190) (lambda (arg-6193) (lambda (eta-0) (CoreC-45Unify-u--unifyD_Unify_Term u--vars arg-6180 arg-6183 arg-6186 arg-6187 arg-6188 arg-6190 arg-6193 eta-0)))))))))) (lambda (u--vars) (lambda (arg-6195) (lambda (arg-6198) (lambda (arg-6201) (lambda (arg-6202) (lambda (arg-6203) (lambda (arg-6205) (lambda (arg-6206) (lambda (eta-0) (CoreC-45Unify-u--unifyWithLazyD_Unify_Term u--vars arg-6195 arg-6198 arg-6201 arg-6202 arg-6203 arg-6205 arg-6206 eta-0))))))))))) (cons arg-7 arg-2) arg-0 arg-1 (CoreC-45Unify-lower arg-3) arg-4 u--envC-39) (CoreC-45TT-refsToLocals (vector 1 arg-7 e-13 (vector 0 )) e-22)) (CoreC-45TT-refsToLocals (vector 1 arg-7 e-13 (vector 0 )) e-23)) clam-1))) (case (vector-ref act-35 0) ((0) (let ((e-2 (vector-ref act-35 1))) (vector 0 e-2))) (else (let ((e-24 (vector-ref act-35 1))) (vector 1 (CoreC-45Unify-union e-12 e-24)))))))))))))))))))))))))))))))))))))))))))))))))))))))))(else (CoreC-45Unify-convertError arg-2 arg-0 arg-4 arg-5 (vector 0 arg-6 arg-7 arg-8 arg-9) (vector 0 arg-10 arg-11 arg-12 arg-13) clam-1)))))))))(else (lambda (eta-0) (CoreC-45Unify-convertError arg-2 arg-0 arg-4 arg-5 (vector 0 arg-6 arg-7 arg-8 arg-9) (vector 0 arg-10 arg-11 arg-12 arg-13) eta-0)))))) +(define CoreC-45Unify-unifyBothApps (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (case (vector-ref arg-7 0) ((0) (let ((e-50 (vector-ref arg-7 1))) (let ((e-51 (vector-ref arg-7 2))) (if (null? arg-8) (case (vector-ref arg-10 0) ((0) (let ((e-56 (vector-ref arg-10 1))) (let ((e-57 (vector-ref arg-10 2))) (if (null? arg-11) (lambda (clam-0) (let ((sc4 (PreludeC-45Types-u--C-61C-61_Eq_Nat e-51 e-57))) (cond ((equal? sc4 1) (vector 1 (CoreC-45Unify-success))) (else (CoreC-45Unify-convertError arg-2 arg-0 arg-4 arg-5 (vector 1 arg-6 (vector 0 e-50 e-51) '()) (vector 1 arg-9 (vector 0 e-56 e-57) '()) clam-0))))) (if (null? arg-3) (case (vector-ref arg-7 0) ((0) (let ((e-20 (vector-ref arg-7 1))) (let ((e-21 (vector-ref arg-7 2))) (case (vector-ref arg-10 0) ((0) (let ((e-29 (vector-ref arg-10 1))) (let ((e-30 (vector-ref arg-10 2))) (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-log arg-0 "unify.application" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Both local apps, unifyIfEq") eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (CoreC-45Unify-unifyIfEq arg-0 arg-1 arg-2 1 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-20 e-21) arg-8) (vector 1 arg-9 (vector 0 e-29 e-30) arg-11) eta-0))))))))(else (case (vector-ref arg-10 0) ((2) (let ((e-15 (vector-ref arg-10 1))) (let ((e-16 (vector-ref arg-10 2))) (let ((e-17 (vector-ref arg-10 3))) (let ((sc7 (CoreC-45Unify-u--C-47C-61_Eq_UnifyMode (let ((e-1 (cdr arg-3))) e-1) 2))) (cond ((equal? sc7 1) (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-15 e-16 e-17) arg-11 (vector 1 arg-6 arg-7 arg-8))) (else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 (vector 2 e-15 e-16 e-17) arg-11)))))))))(else (if (null? arg-3) (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)) (let ((e-0 (car arg-3))) (let ((e-1 (cdr arg-3))) (cond ((equal? e-1 3) (case (vector-ref arg-7 0) ((1) (let ((e-3 (vector-ref arg-7 1))) (let ((e-4 (vector-ref arg-7 2))) (case (vector-ref arg-10 0) ((1) (let ((e-6 (vector-ref arg-10 1))) (let ((e-7 (vector-ref arg-10 2))) (let ((u--mode (cons e-0 3))) (let ((u--fx (vector 1 e-3 e-4))) (let ((u--fy (vector 1 e-6 e-7))) (let ((sc10 (CoreC-45Name-u--C-61C-61_Eq_Name e-4 e-7))) (cond ((equal? sc10 1) (CoreC-45Unify-unifyArgs (cons (cons (lambda (u--vars) (lambda (arg-6180) (lambda (arg-6183) (lambda (arg-6186) (lambda (arg-6187) (lambda (arg-6188) (lambda (arg-6190) (lambda (arg-6193) (lambda (eta-0) (CoreC-45Unify-u--unifyD_Unify_Closure u--vars arg-6180 arg-6183 arg-6186 arg-6187 arg-6188 arg-6190 arg-6193 eta-0)))))))))) (lambda (u--vars) (lambda (arg-6195) (lambda (arg-6198) (lambda (arg-6201) (lambda (arg-6202) (lambda (arg-6203) (lambda (arg-6205) (lambda (arg-6206) (lambda (eta-0) (CoreC-45Unify-u--unifyWithLazyD_Unify_Closure u--vars arg-6195 arg-6198 arg-6201 arg-6202 arg-6203 arg-6205 arg-6206 eta-0))))))))))) (cons (lambda (u--c) (lambda (u--vars) (lambda (arg-5827) (lambda (arg-5828) (lambda (arg-5830) (lambda (eta-0) (CoreC-45Normalise-u--quote_Quote_Closure u--c u--vars arg-5827 arg-5828 arg-5830 eta-0))))))) (lambda (u--c) (lambda (u--vars) (lambda (arg-5836) (lambda (arg-5839) (lambda (arg-5840) (lambda (arg-5842) (lambda (eta-0) (CoreC-45Normalise-u--quoteGen_Quote_Closure u--c u--vars arg-5836 arg-5839 arg-5840 arg-5842 eta-0)))))))))) arg-2 arg-0 arg-1 u--mode arg-4 arg-5 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) arg-8) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) arg-11))) (else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 u--mode arg-4 arg-5 arg-6 u--fx arg-8 (vector 1 arg-9 u--fy arg-11)))))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))) ((equal? e-1 2) (case (vector-ref arg-7 0) ((1) (let ((e-9 (vector-ref arg-7 1))) (let ((e-10 (vector-ref arg-7 2))) (case (vector-ref arg-10 0) ((1) (let ((e-12 (vector-ref arg-10 1))) (let ((e-13 (vector-ref arg-10 2))) (let ((u--mode (cons e-0 2))) (let ((u--fx (vector 1 e-9 e-10))) (let ((u--fy (vector 1 e-12 e-13))) (let ((sc10 (CoreC-45Name-u--C-61C-61_Eq_Name e-10 e-13))) (cond ((equal? sc10 1) (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-unverifiedLogC arg-0 "unify.application" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-1) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (clam-0) (lambda (eta-2) (CoreC-45Normalise-u--quote_Quote_Closure arg-0 arg-2 e-5 arg-5 clam-0 eta-2))) (PreludeC-45Types-u--map_Functor_List (lambda (eta-2) (Builtin-snd eta-2)) arg-8) '() eta-1))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Core-traverseC-39 (lambda (clam-0) (lambda (eta-2) (CoreC-45Normalise-u--quote_Quote_Closure arg-0 arg-2 e-5 arg-5 clam-0 eta-2))) (PreludeC-45Types-u--map_Functor_List (lambda (eta-2) (Builtin-snd eta-2)) arg-11) '() eta-1))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (PreludeC-45TypesC-45String-C-43C-43 "Matching args " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-2 u--d u--x)))) e-6) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-2 u--d u--x)))) e-7)))))))))))))))))) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else ((CoreC-45Unify-unifyArgs (cons (cons (lambda (u--vars) (lambda (arg-6180) (lambda (arg-6183) (lambda (arg-6186) (lambda (arg-6187) (lambda (arg-6188) (lambda (arg-6190) (lambda (arg-6193) (lambda (eta-1) (CoreC-45Unify-u--unifyD_Unify_Closure u--vars arg-6180 arg-6183 arg-6186 arg-6187 arg-6188 arg-6190 arg-6193 eta-1)))))))))) (lambda (u--vars) (lambda (arg-6195) (lambda (arg-6198) (lambda (arg-6201) (lambda (arg-6202) (lambda (arg-6203) (lambda (arg-6205) (lambda (arg-6206) (lambda (eta-1) (CoreC-45Unify-u--unifyWithLazyD_Unify_Closure u--vars arg-6195 arg-6198 arg-6201 arg-6202 arg-6203 arg-6205 arg-6206 eta-1))))))))))) (cons (lambda (u--c) (lambda (u--vars) (lambda (arg-5827) (lambda (arg-5828) (lambda (arg-5830) (lambda (eta-1) (CoreC-45Normalise-u--quote_Quote_Closure u--c u--vars arg-5827 arg-5828 arg-5830 eta-1))))))) (lambda (u--c) (lambda (u--vars) (lambda (arg-5836) (lambda (arg-5839) (lambda (arg-5840) (lambda (arg-5842) (lambda (eta-1) (CoreC-45Normalise-u--quoteGen_Quote_Closure u--c u--vars arg-5836 arg-5839 arg-5840 arg-5842 eta-1)))))))))) arg-2 arg-0 arg-1 u--mode arg-4 arg-5 (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) arg-8) (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) arg-11)) eta-0)))))) (else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 u--mode arg-4 arg-5 arg-6 u--fx arg-8 (vector 1 arg-9 u--fy arg-11)))))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))) ((2) (let ((e-24 (vector-ref arg-7 1))) (let ((e-25 (vector-ref arg-7 2))) (let ((e-26 (vector-ref arg-7 3))) (case (vector-ref arg-10 0) ((2) (let ((e-33 (vector-ref arg-10 1))) (let ((e-34 (vector-ref arg-10 2))) (let ((e-35 (vector-ref arg-10 3))) (lambda (eta-0) (let ((act-24 (CoreC-45Unify-isDefInvertible arg-0 arg-4 e-25 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((sc8 (let ((sc9 (PreludeC-45EqOrd-u--C-61C-61_Eq_Int e-25 e-34))) (cond ((equal? sc9 1) (cond ((equal? e-5 1) 1) (else (CoreC-45Unify-u--C-61C-61_Eq_UnifyMode (let ((e-1 (cdr arg-3))) e-1) 3)))) (else 0))))) (cond ((equal? sc8 1) ((CoreC-45Unify-unifyArgs (cons (cons (lambda (u--vars) (lambda (arg-6180) (lambda (arg-6183) (lambda (arg-6186) (lambda (arg-6187) (lambda (arg-6188) (lambda (arg-6190) (lambda (arg-6193) (lambda (eta-1) (CoreC-45Unify-u--unifyD_Unify_Closure u--vars arg-6180 arg-6183 arg-6186 arg-6187 arg-6188 arg-6190 arg-6193 eta-1)))))))))) (lambda (u--vars) (lambda (arg-6195) (lambda (arg-6198) (lambda (arg-6201) (lambda (arg-6202) (lambda (arg-6203) (lambda (arg-6205) (lambda (arg-6206) (lambda (eta-1) (CoreC-45Unify-u--unifyWithLazyD_Unify_Closure u--vars arg-6195 arg-6198 arg-6201 arg-6202 arg-6203 arg-6205 arg-6206 eta-1))))))))))) (cons (lambda (u--c) (lambda (u--vars) (lambda (arg-5827) (lambda (arg-5828) (lambda (arg-5830) (lambda (eta-1) (CoreC-45Normalise-u--quote_Quote_Closure u--c u--vars arg-5827 arg-5828 arg-5830 eta-1))))))) (lambda (u--c) (lambda (u--vars) (lambda (arg-5836) (lambda (arg-5839) (lambda (arg-5840) (lambda (arg-5842) (lambda (eta-1) (CoreC-45Normalise-u--quoteGen_Quote_Closure u--c u--vars arg-5836 arg-5839 arg-5840 arg-5842 eta-1)))))))))) arg-2 arg-0 arg-1 arg-3 arg-4 arg-5 (PreludeC-45TypesC-45List-C-43C-43 e-26 (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) arg-8)) (PreludeC-45TypesC-45List-C-43C-43 e-35 (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) arg-11))) eta-0)) (else (let ((act-25 (CoreC-45Unify-n--11762-14569-u--localsIn arg-2 e-26 e-25 e-24 e-35 e-34 e-33 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-26 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Unify-n--11762-14569-u--localsIn arg-2 e-26 e-25 e-24 e-35 e-34 e-33 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-35 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((u--xbigger (let ((sc11 (PreludeC-45Types-u--C-62_Ord_Nat e-6 e-7))) (cond ((equal? sc11 1) 1) (else (let ((sc12 (PreludeC-45Types-u--C-61C-61_Eq_Nat e-6 e-7))) (cond ((equal? sc12 1) (PreludeC-45Types-u--C-60C-61_Ord_Nat (PreludeC-45TypesC-45List-length arg-8) (PreludeC-45TypesC-45List-length arg-11))) (else 0)))))))) (let ((sc11 (let ((sc12 (cond ((equal? u--xbigger 1) 1) (else (CoreC-45Unify-u--C-61C-61_Eq_UnifyMode (let ((e-1 (cdr arg-3))) e-1) 2))))) (cond ((equal? sc12 1) (let ((sc13 (CoreC-45Unify-n--11762-14568-u--pv arg-2 e-26 e-25 e-24 e-35 e-34 e-33 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-24))) (cond ((equal? sc13 1) 0) (else 1)))) (else 0))))) (cond ((equal? sc11 1) ((CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 (vector 2 e-24 e-25 e-26) arg-8 (vector 1 arg-9 (vector 2 e-33 e-34 e-35) arg-11)) eta-0)) (else ((CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-9 (vector 2 e-33 e-34 e-35) arg-11 (vector 1 arg-6 (vector 2 e-24 e-25 e-26) arg-8)) eta-0)))))))))))))))))))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 (vector 2 e-24 e-25 e-26) arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (case (vector-ref arg-10 0) ((2) (let ((e-15 (vector-ref arg-10 1))) (let ((e-16 (vector-ref arg-10 2))) (let ((e-17 (vector-ref arg-10 3))) (let ((sc6 (CoreC-45Unify-u--C-47C-61_Eq_UnifyMode (let ((e-1 (cdr arg-3))) e-1) 2))) (cond ((equal? sc6 1) (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-15 e-16 e-17) arg-11 (vector 1 arg-6 arg-7 arg-8))) (else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 (vector 2 e-15 e-16 e-17) arg-11)))))))))(else (if (null? arg-3) (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)) (let ((e-0 (car arg-3))) (let ((e-1 (cdr arg-3))) (cond ((equal? e-1 3) (case (vector-ref arg-7 0) ((1) (let ((e-3 (vector-ref arg-7 1))) (let ((e-4 (vector-ref arg-7 2))) (case (vector-ref arg-10 0) ((1) (let ((e-6 (vector-ref arg-10 1))) (let ((e-7 (vector-ref arg-10 2))) (let ((u--mode (cons e-0 3))) (let ((u--fx (vector 1 e-3 e-4))) (let ((u--fy (vector 1 e-6 e-7))) (let ((sc9 (CoreC-45Name-u--C-61C-61_Eq_Name e-4 e-7))) (cond ((equal? sc9 1) (CoreC-45Unify-unifyArgs (cons (cons (lambda (u--vars) (lambda (arg-6180) (lambda (arg-6183) (lambda (arg-6186) (lambda (arg-6187) (lambda (arg-6188) (lambda (arg-6190) (lambda (arg-6193) (lambda (eta-0) (CoreC-45Unify-u--unifyD_Unify_Closure u--vars arg-6180 arg-6183 arg-6186 arg-6187 arg-6188 arg-6190 arg-6193 eta-0)))))))))) (lambda (u--vars) (lambda (arg-6195) (lambda (arg-6198) (lambda (arg-6201) (lambda (arg-6202) (lambda (arg-6203) (lambda (arg-6205) (lambda (arg-6206) (lambda (eta-0) (CoreC-45Unify-u--unifyWithLazyD_Unify_Closure u--vars arg-6195 arg-6198 arg-6201 arg-6202 arg-6203 arg-6205 arg-6206 eta-0))))))))))) (cons (lambda (u--c) (lambda (u--vars) (lambda (arg-5827) (lambda (arg-5828) (lambda (arg-5830) (lambda (eta-0) (CoreC-45Normalise-u--quote_Quote_Closure u--c u--vars arg-5827 arg-5828 arg-5830 eta-0))))))) (lambda (u--c) (lambda (u--vars) (lambda (arg-5836) (lambda (arg-5839) (lambda (arg-5840) (lambda (arg-5842) (lambda (eta-0) (CoreC-45Normalise-u--quoteGen_Quote_Closure u--c u--vars arg-5836 arg-5839 arg-5840 arg-5842 eta-0)))))))))) arg-2 arg-0 arg-1 u--mode arg-4 arg-5 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) arg-8) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) arg-11))) (else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 u--mode arg-4 arg-5 arg-6 u--fx arg-8 (vector 1 arg-9 u--fy arg-11)))))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))) ((equal? e-1 2) (case (vector-ref arg-7 0) ((1) (let ((e-9 (vector-ref arg-7 1))) (let ((e-10 (vector-ref arg-7 2))) (case (vector-ref arg-10 0) ((1) (let ((e-12 (vector-ref arg-10 1))) (let ((e-13 (vector-ref arg-10 2))) (let ((u--mode (cons e-0 2))) (let ((u--fx (vector 1 e-9 e-10))) (let ((u--fy (vector 1 e-12 e-13))) (let ((sc9 (CoreC-45Name-u--C-61C-61_Eq_Name e-10 e-13))) (cond ((equal? sc9 1) (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-unverifiedLogC arg-0 "unify.application" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-1) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (clam-0) (lambda (eta-2) (CoreC-45Normalise-u--quote_Quote_Closure arg-0 arg-2 e-5 arg-5 clam-0 eta-2))) (PreludeC-45Types-u--map_Functor_List (lambda (eta-2) (Builtin-snd eta-2)) arg-8) '() eta-1))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Core-traverseC-39 (lambda (clam-0) (lambda (eta-2) (CoreC-45Normalise-u--quote_Quote_Closure arg-0 arg-2 e-5 arg-5 clam-0 eta-2))) (PreludeC-45Types-u--map_Functor_List (lambda (eta-2) (Builtin-snd eta-2)) arg-11) '() eta-1))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (PreludeC-45TypesC-45String-C-43C-43 "Matching args " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-2 u--d u--x)))) e-6) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-2 u--d u--x)))) e-7)))))))))))))))))) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else ((CoreC-45Unify-unifyArgs (cons (cons (lambda (u--vars) (lambda (arg-6180) (lambda (arg-6183) (lambda (arg-6186) (lambda (arg-6187) (lambda (arg-6188) (lambda (arg-6190) (lambda (arg-6193) (lambda (eta-1) (CoreC-45Unify-u--unifyD_Unify_Closure u--vars arg-6180 arg-6183 arg-6186 arg-6187 arg-6188 arg-6190 arg-6193 eta-1)))))))))) (lambda (u--vars) (lambda (arg-6195) (lambda (arg-6198) (lambda (arg-6201) (lambda (arg-6202) (lambda (arg-6203) (lambda (arg-6205) (lambda (arg-6206) (lambda (eta-1) (CoreC-45Unify-u--unifyWithLazyD_Unify_Closure u--vars arg-6195 arg-6198 arg-6201 arg-6202 arg-6203 arg-6205 arg-6206 eta-1))))))))))) (cons (lambda (u--c) (lambda (u--vars) (lambda (arg-5827) (lambda (arg-5828) (lambda (arg-5830) (lambda (eta-1) (CoreC-45Normalise-u--quote_Quote_Closure u--c u--vars arg-5827 arg-5828 arg-5830 eta-1))))))) (lambda (u--c) (lambda (u--vars) (lambda (arg-5836) (lambda (arg-5839) (lambda (arg-5840) (lambda (arg-5842) (lambda (eta-1) (CoreC-45Normalise-u--quoteGen_Quote_Closure u--c u--vars arg-5836 arg-5839 arg-5840 arg-5842 eta-1)))))))))) arg-2 arg-0 arg-1 u--mode arg-4 arg-5 (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) arg-8) (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) arg-11)) eta-0)))))) (else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 u--mode arg-4 arg-5 arg-6 u--fx arg-8 (vector 1 arg-9 u--fy arg-11)))))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))))) (let ((e-36 (car arg-3))) (let ((e-37 (cdr arg-3))) (cond ((equal? e-37 1) (case (vector-ref arg-7 0) ((0) (let ((e-40 (vector-ref arg-7 1))) (let ((e-41 (vector-ref arg-7 2))) (case (vector-ref arg-10 0) ((0) (let ((e-45 (vector-ref arg-10 1))) (let ((e-46 (vector-ref arg-10 2))) (let ((u--mode (cons e-36 1))) (let ((sc8 (PreludeC-45Types-u--C-61C-61_Eq_Nat e-41 e-46))) (cond ((equal? sc8 1) (CoreC-45Unify-unifyArgs (cons (cons (lambda (u--vars) (lambda (arg-6180) (lambda (arg-6183) (lambda (arg-6186) (lambda (arg-6187) (lambda (arg-6188) (lambda (arg-6190) (lambda (arg-6193) (lambda (eta-0) (CoreC-45Unify-u--unifyD_Unify_Closure u--vars arg-6180 arg-6183 arg-6186 arg-6187 arg-6188 arg-6190 arg-6193 eta-0)))))))))) (lambda (u--vars) (lambda (arg-6195) (lambda (arg-6198) (lambda (arg-6201) (lambda (arg-6202) (lambda (arg-6203) (lambda (arg-6205) (lambda (arg-6206) (lambda (eta-0) (CoreC-45Unify-u--unifyWithLazyD_Unify_Closure u--vars arg-6195 arg-6198 arg-6201 arg-6202 arg-6203 arg-6205 arg-6206 eta-0))))))))))) (cons (lambda (u--c) (lambda (u--vars) (lambda (arg-5827) (lambda (arg-5828) (lambda (arg-5830) (lambda (eta-0) (CoreC-45Normalise-u--quote_Quote_Closure u--c u--vars arg-5827 arg-5828 arg-5830 eta-0))))))) (lambda (u--c) (lambda (u--vars) (lambda (arg-5836) (lambda (arg-5839) (lambda (arg-5840) (lambda (arg-5842) (lambda (eta-0) (CoreC-45Normalise-u--quoteGen_Quote_Closure u--c u--vars arg-5836 arg-5839 arg-5840 arg-5842 eta-0)))))))))) arg-2 arg-0 arg-1 u--mode arg-4 arg-5 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) arg-8) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) arg-11))) (else (lambda (eta-0) (CoreC-45Unify-postpone arg-2 arg-0 arg-1 arg-4 u--mode "Postponing local app" arg-5 (vector 1 arg-6 (vector 0 e-40 e-41) arg-8) (vector 1 arg-9 (vector 0 e-45 e-46) arg-11) eta-0)))))))))(else (case (vector-ref arg-7 0) ((0) (let ((e-20 (vector-ref arg-7 1))) (let ((e-21 (vector-ref arg-7 2))) (case (vector-ref arg-10 0) ((0) (let ((e-29 (vector-ref arg-10 1))) (let ((e-30 (vector-ref arg-10 2))) (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-log arg-0 "unify.application" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Both local apps, unifyIfEq") eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (CoreC-45Unify-unifyIfEq arg-0 arg-1 arg-2 1 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-20 e-21) arg-8) (vector 1 arg-9 (vector 0 e-29 e-30) arg-11) eta-0))))))))(else (case (vector-ref arg-10 0) ((2) (let ((e-15 (vector-ref arg-10 1))) (let ((e-16 (vector-ref arg-10 2))) (let ((e-17 (vector-ref arg-10 3))) (let ((sc9 (CoreC-45Unify-u--C-47C-61_Eq_UnifyMode (let ((e-1 (cdr arg-3))) e-1) 2))) (cond ((equal? sc9 1) (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-15 e-16 e-17) arg-11 (vector 1 arg-6 arg-7 arg-8))) (else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 (vector 2 e-15 e-16 e-17) arg-11)))))))))(else (if (null? arg-3) (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)) (let ((e-0 (car arg-3))) (let ((e-1 (cdr arg-3))) (cond ((equal? e-1 3) (case (vector-ref arg-7 0) ((1) (let ((e-3 (vector-ref arg-7 1))) (let ((e-4 (vector-ref arg-7 2))) (case (vector-ref arg-10 0) ((1) (let ((e-6 (vector-ref arg-10 1))) (let ((e-7 (vector-ref arg-10 2))) (let ((u--mode (cons e-0 3))) (let ((u--fx (vector 1 e-3 e-4))) (let ((u--fy (vector 1 e-6 e-7))) (let ((sc12 (CoreC-45Name-u--C-61C-61_Eq_Name e-4 e-7))) (cond ((equal? sc12 1) (CoreC-45Unify-unifyArgs (cons (cons (lambda (u--vars) (lambda (arg-6180) (lambda (arg-6183) (lambda (arg-6186) (lambda (arg-6187) (lambda (arg-6188) (lambda (arg-6190) (lambda (arg-6193) (lambda (eta-0) (CoreC-45Unify-u--unifyD_Unify_Closure u--vars arg-6180 arg-6183 arg-6186 arg-6187 arg-6188 arg-6190 arg-6193 eta-0)))))))))) (lambda (u--vars) (lambda (arg-6195) (lambda (arg-6198) (lambda (arg-6201) (lambda (arg-6202) (lambda (arg-6203) (lambda (arg-6205) (lambda (arg-6206) (lambda (eta-0) (CoreC-45Unify-u--unifyWithLazyD_Unify_Closure u--vars arg-6195 arg-6198 arg-6201 arg-6202 arg-6203 arg-6205 arg-6206 eta-0))))))))))) (cons (lambda (u--c) (lambda (u--vars) (lambda (arg-5827) (lambda (arg-5828) (lambda (arg-5830) (lambda (eta-0) (CoreC-45Normalise-u--quote_Quote_Closure u--c u--vars arg-5827 arg-5828 arg-5830 eta-0))))))) (lambda (u--c) (lambda (u--vars) (lambda (arg-5836) (lambda (arg-5839) (lambda (arg-5840) (lambda (arg-5842) (lambda (eta-0) (CoreC-45Normalise-u--quoteGen_Quote_Closure u--c u--vars arg-5836 arg-5839 arg-5840 arg-5842 eta-0)))))))))) arg-2 arg-0 arg-1 u--mode arg-4 arg-5 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) arg-8) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) arg-11))) (else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 u--mode arg-4 arg-5 arg-6 u--fx arg-8 (vector 1 arg-9 u--fy arg-11)))))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))) ((equal? e-1 2) (case (vector-ref arg-7 0) ((1) (let ((e-9 (vector-ref arg-7 1))) (let ((e-10 (vector-ref arg-7 2))) (case (vector-ref arg-10 0) ((1) (let ((e-12 (vector-ref arg-10 1))) (let ((e-13 (vector-ref arg-10 2))) (let ((u--mode (cons e-0 2))) (let ((u--fx (vector 1 e-9 e-10))) (let ((u--fy (vector 1 e-12 e-13))) (let ((sc12 (CoreC-45Name-u--C-61C-61_Eq_Name e-10 e-13))) (cond ((equal? sc12 1) (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-unverifiedLogC arg-0 "unify.application" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-1) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (clam-0) (lambda (eta-2) (CoreC-45Normalise-u--quote_Quote_Closure arg-0 arg-2 e-5 arg-5 clam-0 eta-2))) (PreludeC-45Types-u--map_Functor_List (lambda (eta-2) (Builtin-snd eta-2)) arg-8) '() eta-1))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Core-traverseC-39 (lambda (clam-0) (lambda (eta-2) (CoreC-45Normalise-u--quote_Quote_Closure arg-0 arg-2 e-5 arg-5 clam-0 eta-2))) (PreludeC-45Types-u--map_Functor_List (lambda (eta-2) (Builtin-snd eta-2)) arg-11) '() eta-1))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (PreludeC-45TypesC-45String-C-43C-43 "Matching args " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-2 u--d u--x)))) e-6) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-2 u--d u--x)))) e-7)))))))))))))))))) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else ((CoreC-45Unify-unifyArgs (cons (cons (lambda (u--vars) (lambda (arg-6180) (lambda (arg-6183) (lambda (arg-6186) (lambda (arg-6187) (lambda (arg-6188) (lambda (arg-6190) (lambda (arg-6193) (lambda (eta-1) (CoreC-45Unify-u--unifyD_Unify_Closure u--vars arg-6180 arg-6183 arg-6186 arg-6187 arg-6188 arg-6190 arg-6193 eta-1)))))))))) (lambda (u--vars) (lambda (arg-6195) (lambda (arg-6198) (lambda (arg-6201) (lambda (arg-6202) (lambda (arg-6203) (lambda (arg-6205) (lambda (arg-6206) (lambda (eta-1) (CoreC-45Unify-u--unifyWithLazyD_Unify_Closure u--vars arg-6195 arg-6198 arg-6201 arg-6202 arg-6203 arg-6205 arg-6206 eta-1))))))))))) (cons (lambda (u--c) (lambda (u--vars) (lambda (arg-5827) (lambda (arg-5828) (lambda (arg-5830) (lambda (eta-1) (CoreC-45Normalise-u--quote_Quote_Closure u--c u--vars arg-5827 arg-5828 arg-5830 eta-1))))))) (lambda (u--c) (lambda (u--vars) (lambda (arg-5836) (lambda (arg-5839) (lambda (arg-5840) (lambda (arg-5842) (lambda (eta-1) (CoreC-45Normalise-u--quoteGen_Quote_Closure u--c u--vars arg-5836 arg-5839 arg-5840 arg-5842 eta-1)))))))))) arg-2 arg-0 arg-1 u--mode arg-4 arg-5 (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) arg-8) (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) arg-11)) eta-0)))))) (else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 u--mode arg-4 arg-5 arg-6 u--fx arg-8 (vector 1 arg-9 u--fy arg-11)))))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))) ((2) (let ((e-24 (vector-ref arg-7 1))) (let ((e-25 (vector-ref arg-7 2))) (let ((e-26 (vector-ref arg-7 3))) (case (vector-ref arg-10 0) ((2) (let ((e-33 (vector-ref arg-10 1))) (let ((e-34 (vector-ref arg-10 2))) (let ((e-35 (vector-ref arg-10 3))) (lambda (eta-0) (let ((act-24 (CoreC-45Unify-isDefInvertible arg-0 arg-4 e-25 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((sc10 (let ((sc11 (PreludeC-45EqOrd-u--C-61C-61_Eq_Int e-25 e-34))) (cond ((equal? sc11 1) (cond ((equal? e-5 1) 1) (else (CoreC-45Unify-u--C-61C-61_Eq_UnifyMode (let ((e-1 (cdr arg-3))) e-1) 3)))) (else 0))))) (cond ((equal? sc10 1) ((CoreC-45Unify-unifyArgs (cons (cons (lambda (u--vars) (lambda (arg-6180) (lambda (arg-6183) (lambda (arg-6186) (lambda (arg-6187) (lambda (arg-6188) (lambda (arg-6190) (lambda (arg-6193) (lambda (eta-1) (CoreC-45Unify-u--unifyD_Unify_Closure u--vars arg-6180 arg-6183 arg-6186 arg-6187 arg-6188 arg-6190 arg-6193 eta-1)))))))))) (lambda (u--vars) (lambda (arg-6195) (lambda (arg-6198) (lambda (arg-6201) (lambda (arg-6202) (lambda (arg-6203) (lambda (arg-6205) (lambda (arg-6206) (lambda (eta-1) (CoreC-45Unify-u--unifyWithLazyD_Unify_Closure u--vars arg-6195 arg-6198 arg-6201 arg-6202 arg-6203 arg-6205 arg-6206 eta-1))))))))))) (cons (lambda (u--c) (lambda (u--vars) (lambda (arg-5827) (lambda (arg-5828) (lambda (arg-5830) (lambda (eta-1) (CoreC-45Normalise-u--quote_Quote_Closure u--c u--vars arg-5827 arg-5828 arg-5830 eta-1))))))) (lambda (u--c) (lambda (u--vars) (lambda (arg-5836) (lambda (arg-5839) (lambda (arg-5840) (lambda (arg-5842) (lambda (eta-1) (CoreC-45Normalise-u--quoteGen_Quote_Closure u--c u--vars arg-5836 arg-5839 arg-5840 arg-5842 eta-1)))))))))) arg-2 arg-0 arg-1 arg-3 arg-4 arg-5 (PreludeC-45TypesC-45List-C-43C-43 e-26 (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) arg-8)) (PreludeC-45TypesC-45List-C-43C-43 e-35 (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) arg-11))) eta-0)) (else (let ((act-25 (CoreC-45Unify-n--11762-14569-u--localsIn arg-2 e-26 e-25 e-24 e-35 e-34 e-33 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-26 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Unify-n--11762-14569-u--localsIn arg-2 e-26 e-25 e-24 e-35 e-34 e-33 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-35 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((u--xbigger (let ((sc13 (PreludeC-45Types-u--C-62_Ord_Nat e-6 e-7))) (cond ((equal? sc13 1) 1) (else (let ((sc14 (PreludeC-45Types-u--C-61C-61_Eq_Nat e-6 e-7))) (cond ((equal? sc14 1) (PreludeC-45Types-u--C-60C-61_Ord_Nat (PreludeC-45TypesC-45List-length arg-8) (PreludeC-45TypesC-45List-length arg-11))) (else 0)))))))) (let ((sc13 (let ((sc14 (cond ((equal? u--xbigger 1) 1) (else (CoreC-45Unify-u--C-61C-61_Eq_UnifyMode (let ((e-1 (cdr arg-3))) e-1) 2))))) (cond ((equal? sc14 1) (let ((sc15 (CoreC-45Unify-n--11762-14568-u--pv arg-2 e-26 e-25 e-24 e-35 e-34 e-33 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-24))) (cond ((equal? sc15 1) 0) (else 1)))) (else 0))))) (cond ((equal? sc13 1) ((CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 (vector 2 e-24 e-25 e-26) arg-8 (vector 1 arg-9 (vector 2 e-33 e-34 e-35) arg-11)) eta-0)) (else ((CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-9 (vector 2 e-33 e-34 e-35) arg-11 (vector 1 arg-6 (vector 2 e-24 e-25 e-26) arg-8)) eta-0)))))))))))))))))))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 (vector 2 e-24 e-25 e-26) arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (case (vector-ref arg-10 0) ((2) (let ((e-15 (vector-ref arg-10 1))) (let ((e-16 (vector-ref arg-10 2))) (let ((e-17 (vector-ref arg-10 3))) (let ((sc8 (CoreC-45Unify-u--C-47C-61_Eq_UnifyMode (let ((e-1 (cdr arg-3))) e-1) 2))) (cond ((equal? sc8 1) (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-15 e-16 e-17) arg-11 (vector 1 arg-6 arg-7 arg-8))) (else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 (vector 2 e-15 e-16 e-17) arg-11)))))))))(else (if (null? arg-3) (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)) (let ((e-0 (car arg-3))) (let ((e-1 (cdr arg-3))) (cond ((equal? e-1 3) (case (vector-ref arg-7 0) ((1) (let ((e-3 (vector-ref arg-7 1))) (let ((e-4 (vector-ref arg-7 2))) (case (vector-ref arg-10 0) ((1) (let ((e-6 (vector-ref arg-10 1))) (let ((e-7 (vector-ref arg-10 2))) (let ((u--mode (cons e-0 3))) (let ((u--fx (vector 1 e-3 e-4))) (let ((u--fy (vector 1 e-6 e-7))) (let ((sc11 (CoreC-45Name-u--C-61C-61_Eq_Name e-4 e-7))) (cond ((equal? sc11 1) (CoreC-45Unify-unifyArgs (cons (cons (lambda (u--vars) (lambda (arg-6180) (lambda (arg-6183) (lambda (arg-6186) (lambda (arg-6187) (lambda (arg-6188) (lambda (arg-6190) (lambda (arg-6193) (lambda (eta-0) (CoreC-45Unify-u--unifyD_Unify_Closure u--vars arg-6180 arg-6183 arg-6186 arg-6187 arg-6188 arg-6190 arg-6193 eta-0)))))))))) (lambda (u--vars) (lambda (arg-6195) (lambda (arg-6198) (lambda (arg-6201) (lambda (arg-6202) (lambda (arg-6203) (lambda (arg-6205) (lambda (arg-6206) (lambda (eta-0) (CoreC-45Unify-u--unifyWithLazyD_Unify_Closure u--vars arg-6195 arg-6198 arg-6201 arg-6202 arg-6203 arg-6205 arg-6206 eta-0))))))))))) (cons (lambda (u--c) (lambda (u--vars) (lambda (arg-5827) (lambda (arg-5828) (lambda (arg-5830) (lambda (eta-0) (CoreC-45Normalise-u--quote_Quote_Closure u--c u--vars arg-5827 arg-5828 arg-5830 eta-0))))))) (lambda (u--c) (lambda (u--vars) (lambda (arg-5836) (lambda (arg-5839) (lambda (arg-5840) (lambda (arg-5842) (lambda (eta-0) (CoreC-45Normalise-u--quoteGen_Quote_Closure u--c u--vars arg-5836 arg-5839 arg-5840 arg-5842 eta-0)))))))))) arg-2 arg-0 arg-1 u--mode arg-4 arg-5 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) arg-8) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) arg-11))) (else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 u--mode arg-4 arg-5 arg-6 u--fx arg-8 (vector 1 arg-9 u--fy arg-11)))))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))) ((equal? e-1 2) (case (vector-ref arg-7 0) ((1) (let ((e-9 (vector-ref arg-7 1))) (let ((e-10 (vector-ref arg-7 2))) (case (vector-ref arg-10 0) ((1) (let ((e-12 (vector-ref arg-10 1))) (let ((e-13 (vector-ref arg-10 2))) (let ((u--mode (cons e-0 2))) (let ((u--fx (vector 1 e-9 e-10))) (let ((u--fy (vector 1 e-12 e-13))) (let ((sc11 (CoreC-45Name-u--C-61C-61_Eq_Name e-10 e-13))) (cond ((equal? sc11 1) (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-unverifiedLogC arg-0 "unify.application" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-1) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (clam-0) (lambda (eta-2) (CoreC-45Normalise-u--quote_Quote_Closure arg-0 arg-2 e-5 arg-5 clam-0 eta-2))) (PreludeC-45Types-u--map_Functor_List (lambda (eta-2) (Builtin-snd eta-2)) arg-8) '() eta-1))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Core-traverseC-39 (lambda (clam-0) (lambda (eta-2) (CoreC-45Normalise-u--quote_Quote_Closure arg-0 arg-2 e-5 arg-5 clam-0 eta-2))) (PreludeC-45Types-u--map_Functor_List (lambda (eta-2) (Builtin-snd eta-2)) arg-11) '() eta-1))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (PreludeC-45TypesC-45String-C-43C-43 "Matching args " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-2 u--d u--x)))) e-6) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-2 u--d u--x)))) e-7)))))))))))))))))) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else ((CoreC-45Unify-unifyArgs (cons (cons (lambda (u--vars) (lambda (arg-6180) (lambda (arg-6183) (lambda (arg-6186) (lambda (arg-6187) (lambda (arg-6188) (lambda (arg-6190) (lambda (arg-6193) (lambda (eta-1) (CoreC-45Unify-u--unifyD_Unify_Closure u--vars arg-6180 arg-6183 arg-6186 arg-6187 arg-6188 arg-6190 arg-6193 eta-1)))))))))) (lambda (u--vars) (lambda (arg-6195) (lambda (arg-6198) (lambda (arg-6201) (lambda (arg-6202) (lambda (arg-6203) (lambda (arg-6205) (lambda (arg-6206) (lambda (eta-1) (CoreC-45Unify-u--unifyWithLazyD_Unify_Closure u--vars arg-6195 arg-6198 arg-6201 arg-6202 arg-6203 arg-6205 arg-6206 eta-1))))))))))) (cons (lambda (u--c) (lambda (u--vars) (lambda (arg-5827) (lambda (arg-5828) (lambda (arg-5830) (lambda (eta-1) (CoreC-45Normalise-u--quote_Quote_Closure u--c u--vars arg-5827 arg-5828 arg-5830 eta-1))))))) (lambda (u--c) (lambda (u--vars) (lambda (arg-5836) (lambda (arg-5839) (lambda (arg-5840) (lambda (arg-5842) (lambda (eta-1) (CoreC-45Normalise-u--quoteGen_Quote_Closure u--c u--vars arg-5836 arg-5839 arg-5840 arg-5842 eta-1)))))))))) arg-2 arg-0 arg-1 u--mode arg-4 arg-5 (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) arg-8) (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) arg-11)) eta-0)))))) (else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 u--mode arg-4 arg-5 arg-6 u--fx arg-8 (vector 1 arg-9 u--fy arg-11)))))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))))))))))(else (case (vector-ref arg-7 0) ((0) (let ((e-20 (vector-ref arg-7 1))) (let ((e-21 (vector-ref arg-7 2))) (case (vector-ref arg-10 0) ((0) (let ((e-29 (vector-ref arg-10 1))) (let ((e-30 (vector-ref arg-10 2))) (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-log arg-0 "unify.application" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Both local apps, unifyIfEq") eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (CoreC-45Unify-unifyIfEq arg-0 arg-1 arg-2 1 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-20 e-21) arg-8) (vector 1 arg-9 (vector 0 e-29 e-30) arg-11) eta-0))))))))(else (case (vector-ref arg-10 0) ((2) (let ((e-15 (vector-ref arg-10 1))) (let ((e-16 (vector-ref arg-10 2))) (let ((e-17 (vector-ref arg-10 3))) (let ((sc8 (CoreC-45Unify-u--C-47C-61_Eq_UnifyMode (let ((e-1 (cdr arg-3))) e-1) 2))) (cond ((equal? sc8 1) (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-15 e-16 e-17) arg-11 (vector 1 arg-6 arg-7 arg-8))) (else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 (vector 2 e-15 e-16 e-17) arg-11)))))))))(else (if (null? arg-3) (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)) (let ((e-0 (car arg-3))) (let ((e-1 (cdr arg-3))) (cond ((equal? e-1 3) (case (vector-ref arg-7 0) ((1) (let ((e-3 (vector-ref arg-7 1))) (let ((e-4 (vector-ref arg-7 2))) (case (vector-ref arg-10 0) ((1) (let ((e-6 (vector-ref arg-10 1))) (let ((e-7 (vector-ref arg-10 2))) (let ((u--mode (cons e-0 3))) (let ((u--fx (vector 1 e-3 e-4))) (let ((u--fy (vector 1 e-6 e-7))) (let ((sc11 (CoreC-45Name-u--C-61C-61_Eq_Name e-4 e-7))) (cond ((equal? sc11 1) (CoreC-45Unify-unifyArgs (cons (cons (lambda (u--vars) (lambda (arg-6180) (lambda (arg-6183) (lambda (arg-6186) (lambda (arg-6187) (lambda (arg-6188) (lambda (arg-6190) (lambda (arg-6193) (lambda (eta-0) (CoreC-45Unify-u--unifyD_Unify_Closure u--vars arg-6180 arg-6183 arg-6186 arg-6187 arg-6188 arg-6190 arg-6193 eta-0)))))))))) (lambda (u--vars) (lambda (arg-6195) (lambda (arg-6198) (lambda (arg-6201) (lambda (arg-6202) (lambda (arg-6203) (lambda (arg-6205) (lambda (arg-6206) (lambda (eta-0) (CoreC-45Unify-u--unifyWithLazyD_Unify_Closure u--vars arg-6195 arg-6198 arg-6201 arg-6202 arg-6203 arg-6205 arg-6206 eta-0))))))))))) (cons (lambda (u--c) (lambda (u--vars) (lambda (arg-5827) (lambda (arg-5828) (lambda (arg-5830) (lambda (eta-0) (CoreC-45Normalise-u--quote_Quote_Closure u--c u--vars arg-5827 arg-5828 arg-5830 eta-0))))))) (lambda (u--c) (lambda (u--vars) (lambda (arg-5836) (lambda (arg-5839) (lambda (arg-5840) (lambda (arg-5842) (lambda (eta-0) (CoreC-45Normalise-u--quoteGen_Quote_Closure u--c u--vars arg-5836 arg-5839 arg-5840 arg-5842 eta-0)))))))))) arg-2 arg-0 arg-1 u--mode arg-4 arg-5 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) arg-8) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) arg-11))) (else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 u--mode arg-4 arg-5 arg-6 u--fx arg-8 (vector 1 arg-9 u--fy arg-11)))))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))) ((equal? e-1 2) (case (vector-ref arg-7 0) ((1) (let ((e-9 (vector-ref arg-7 1))) (let ((e-10 (vector-ref arg-7 2))) (case (vector-ref arg-10 0) ((1) (let ((e-12 (vector-ref arg-10 1))) (let ((e-13 (vector-ref arg-10 2))) (let ((u--mode (cons e-0 2))) (let ((u--fx (vector 1 e-9 e-10))) (let ((u--fy (vector 1 e-12 e-13))) (let ((sc11 (CoreC-45Name-u--C-61C-61_Eq_Name e-10 e-13))) (cond ((equal? sc11 1) (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-unverifiedLogC arg-0 "unify.application" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-1) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (clam-0) (lambda (eta-2) (CoreC-45Normalise-u--quote_Quote_Closure arg-0 arg-2 e-5 arg-5 clam-0 eta-2))) (PreludeC-45Types-u--map_Functor_List (lambda (eta-2) (Builtin-snd eta-2)) arg-8) '() eta-1))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Core-traverseC-39 (lambda (clam-0) (lambda (eta-2) (CoreC-45Normalise-u--quote_Quote_Closure arg-0 arg-2 e-5 arg-5 clam-0 eta-2))) (PreludeC-45Types-u--map_Functor_List (lambda (eta-2) (Builtin-snd eta-2)) arg-11) '() eta-1))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (PreludeC-45TypesC-45String-C-43C-43 "Matching args " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-2 u--d u--x)))) e-6) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-2 u--d u--x)))) e-7)))))))))))))))))) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else ((CoreC-45Unify-unifyArgs (cons (cons (lambda (u--vars) (lambda (arg-6180) (lambda (arg-6183) (lambda (arg-6186) (lambda (arg-6187) (lambda (arg-6188) (lambda (arg-6190) (lambda (arg-6193) (lambda (eta-1) (CoreC-45Unify-u--unifyD_Unify_Closure u--vars arg-6180 arg-6183 arg-6186 arg-6187 arg-6188 arg-6190 arg-6193 eta-1)))))))))) (lambda (u--vars) (lambda (arg-6195) (lambda (arg-6198) (lambda (arg-6201) (lambda (arg-6202) (lambda (arg-6203) (lambda (arg-6205) (lambda (arg-6206) (lambda (eta-1) (CoreC-45Unify-u--unifyWithLazyD_Unify_Closure u--vars arg-6195 arg-6198 arg-6201 arg-6202 arg-6203 arg-6205 arg-6206 eta-1))))))))))) (cons (lambda (u--c) (lambda (u--vars) (lambda (arg-5827) (lambda (arg-5828) (lambda (arg-5830) (lambda (eta-1) (CoreC-45Normalise-u--quote_Quote_Closure u--c u--vars arg-5827 arg-5828 arg-5830 eta-1))))))) (lambda (u--c) (lambda (u--vars) (lambda (arg-5836) (lambda (arg-5839) (lambda (arg-5840) (lambda (arg-5842) (lambda (eta-1) (CoreC-45Normalise-u--quoteGen_Quote_Closure u--c u--vars arg-5836 arg-5839 arg-5840 arg-5842 eta-1)))))))))) arg-2 arg-0 arg-1 u--mode arg-4 arg-5 (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) arg-8) (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) arg-11)) eta-0)))))) (else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 u--mode arg-4 arg-5 arg-6 u--fx arg-8 (vector 1 arg-9 u--fy arg-11)))))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))) ((2) (let ((e-24 (vector-ref arg-7 1))) (let ((e-25 (vector-ref arg-7 2))) (let ((e-26 (vector-ref arg-7 3))) (case (vector-ref arg-10 0) ((2) (let ((e-33 (vector-ref arg-10 1))) (let ((e-34 (vector-ref arg-10 2))) (let ((e-35 (vector-ref arg-10 3))) (lambda (eta-0) (let ((act-24 (CoreC-45Unify-isDefInvertible arg-0 arg-4 e-25 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((sc9 (let ((sc10 (PreludeC-45EqOrd-u--C-61C-61_Eq_Int e-25 e-34))) (cond ((equal? sc10 1) (cond ((equal? e-5 1) 1) (else (CoreC-45Unify-u--C-61C-61_Eq_UnifyMode (let ((e-1 (cdr arg-3))) e-1) 3)))) (else 0))))) (cond ((equal? sc9 1) ((CoreC-45Unify-unifyArgs (cons (cons (lambda (u--vars) (lambda (arg-6180) (lambda (arg-6183) (lambda (arg-6186) (lambda (arg-6187) (lambda (arg-6188) (lambda (arg-6190) (lambda (arg-6193) (lambda (eta-1) (CoreC-45Unify-u--unifyD_Unify_Closure u--vars arg-6180 arg-6183 arg-6186 arg-6187 arg-6188 arg-6190 arg-6193 eta-1)))))))))) (lambda (u--vars) (lambda (arg-6195) (lambda (arg-6198) (lambda (arg-6201) (lambda (arg-6202) (lambda (arg-6203) (lambda (arg-6205) (lambda (arg-6206) (lambda (eta-1) (CoreC-45Unify-u--unifyWithLazyD_Unify_Closure u--vars arg-6195 arg-6198 arg-6201 arg-6202 arg-6203 arg-6205 arg-6206 eta-1))))))))))) (cons (lambda (u--c) (lambda (u--vars) (lambda (arg-5827) (lambda (arg-5828) (lambda (arg-5830) (lambda (eta-1) (CoreC-45Normalise-u--quote_Quote_Closure u--c u--vars arg-5827 arg-5828 arg-5830 eta-1))))))) (lambda (u--c) (lambda (u--vars) (lambda (arg-5836) (lambda (arg-5839) (lambda (arg-5840) (lambda (arg-5842) (lambda (eta-1) (CoreC-45Normalise-u--quoteGen_Quote_Closure u--c u--vars arg-5836 arg-5839 arg-5840 arg-5842 eta-1)))))))))) arg-2 arg-0 arg-1 arg-3 arg-4 arg-5 (PreludeC-45TypesC-45List-C-43C-43 e-26 (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) arg-8)) (PreludeC-45TypesC-45List-C-43C-43 e-35 (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) arg-11))) eta-0)) (else (let ((act-25 (CoreC-45Unify-n--11762-14569-u--localsIn arg-2 e-26 e-25 e-24 e-35 e-34 e-33 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-26 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Unify-n--11762-14569-u--localsIn arg-2 e-26 e-25 e-24 e-35 e-34 e-33 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-35 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((u--xbigger (let ((sc12 (PreludeC-45Types-u--C-62_Ord_Nat e-6 e-7))) (cond ((equal? sc12 1) 1) (else (let ((sc13 (PreludeC-45Types-u--C-61C-61_Eq_Nat e-6 e-7))) (cond ((equal? sc13 1) (PreludeC-45Types-u--C-60C-61_Ord_Nat (PreludeC-45TypesC-45List-length arg-8) (PreludeC-45TypesC-45List-length arg-11))) (else 0)))))))) (let ((sc12 (let ((sc13 (cond ((equal? u--xbigger 1) 1) (else (CoreC-45Unify-u--C-61C-61_Eq_UnifyMode (let ((e-1 (cdr arg-3))) e-1) 2))))) (cond ((equal? sc13 1) (let ((sc14 (CoreC-45Unify-n--11762-14568-u--pv arg-2 e-26 e-25 e-24 e-35 e-34 e-33 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-24))) (cond ((equal? sc14 1) 0) (else 1)))) (else 0))))) (cond ((equal? sc12 1) ((CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 (vector 2 e-24 e-25 e-26) arg-8 (vector 1 arg-9 (vector 2 e-33 e-34 e-35) arg-11)) eta-0)) (else ((CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-9 (vector 2 e-33 e-34 e-35) arg-11 (vector 1 arg-6 (vector 2 e-24 e-25 e-26) arg-8)) eta-0)))))))))))))))))))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 (vector 2 e-24 e-25 e-26) arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (case (vector-ref arg-10 0) ((2) (let ((e-15 (vector-ref arg-10 1))) (let ((e-16 (vector-ref arg-10 2))) (let ((e-17 (vector-ref arg-10 3))) (let ((sc7 (CoreC-45Unify-u--C-47C-61_Eq_UnifyMode (let ((e-1 (cdr arg-3))) e-1) 2))) (cond ((equal? sc7 1) (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-15 e-16 e-17) arg-11 (vector 1 arg-6 arg-7 arg-8))) (else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 (vector 2 e-15 e-16 e-17) arg-11)))))))))(else (if (null? arg-3) (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)) (let ((e-0 (car arg-3))) (let ((e-1 (cdr arg-3))) (cond ((equal? e-1 3) (case (vector-ref arg-7 0) ((1) (let ((e-3 (vector-ref arg-7 1))) (let ((e-4 (vector-ref arg-7 2))) (case (vector-ref arg-10 0) ((1) (let ((e-6 (vector-ref arg-10 1))) (let ((e-7 (vector-ref arg-10 2))) (let ((u--mode (cons e-0 3))) (let ((u--fx (vector 1 e-3 e-4))) (let ((u--fy (vector 1 e-6 e-7))) (let ((sc10 (CoreC-45Name-u--C-61C-61_Eq_Name e-4 e-7))) (cond ((equal? sc10 1) (CoreC-45Unify-unifyArgs (cons (cons (lambda (u--vars) (lambda (arg-6180) (lambda (arg-6183) (lambda (arg-6186) (lambda (arg-6187) (lambda (arg-6188) (lambda (arg-6190) (lambda (arg-6193) (lambda (eta-0) (CoreC-45Unify-u--unifyD_Unify_Closure u--vars arg-6180 arg-6183 arg-6186 arg-6187 arg-6188 arg-6190 arg-6193 eta-0)))))))))) (lambda (u--vars) (lambda (arg-6195) (lambda (arg-6198) (lambda (arg-6201) (lambda (arg-6202) (lambda (arg-6203) (lambda (arg-6205) (lambda (arg-6206) (lambda (eta-0) (CoreC-45Unify-u--unifyWithLazyD_Unify_Closure u--vars arg-6195 arg-6198 arg-6201 arg-6202 arg-6203 arg-6205 arg-6206 eta-0))))))))))) (cons (lambda (u--c) (lambda (u--vars) (lambda (arg-5827) (lambda (arg-5828) (lambda (arg-5830) (lambda (eta-0) (CoreC-45Normalise-u--quote_Quote_Closure u--c u--vars arg-5827 arg-5828 arg-5830 eta-0))))))) (lambda (u--c) (lambda (u--vars) (lambda (arg-5836) (lambda (arg-5839) (lambda (arg-5840) (lambda (arg-5842) (lambda (eta-0) (CoreC-45Normalise-u--quoteGen_Quote_Closure u--c u--vars arg-5836 arg-5839 arg-5840 arg-5842 eta-0)))))))))) arg-2 arg-0 arg-1 u--mode arg-4 arg-5 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) arg-8) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) arg-11))) (else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 u--mode arg-4 arg-5 arg-6 u--fx arg-8 (vector 1 arg-9 u--fy arg-11)))))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))) ((equal? e-1 2) (case (vector-ref arg-7 0) ((1) (let ((e-9 (vector-ref arg-7 1))) (let ((e-10 (vector-ref arg-7 2))) (case (vector-ref arg-10 0) ((1) (let ((e-12 (vector-ref arg-10 1))) (let ((e-13 (vector-ref arg-10 2))) (let ((u--mode (cons e-0 2))) (let ((u--fx (vector 1 e-9 e-10))) (let ((u--fy (vector 1 e-12 e-13))) (let ((sc10 (CoreC-45Name-u--C-61C-61_Eq_Name e-10 e-13))) (cond ((equal? sc10 1) (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-unverifiedLogC arg-0 "unify.application" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-1) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (clam-0) (lambda (eta-2) (CoreC-45Normalise-u--quote_Quote_Closure arg-0 arg-2 e-5 arg-5 clam-0 eta-2))) (PreludeC-45Types-u--map_Functor_List (lambda (eta-2) (Builtin-snd eta-2)) arg-8) '() eta-1))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Core-traverseC-39 (lambda (clam-0) (lambda (eta-2) (CoreC-45Normalise-u--quote_Quote_Closure arg-0 arg-2 e-5 arg-5 clam-0 eta-2))) (PreludeC-45Types-u--map_Functor_List (lambda (eta-2) (Builtin-snd eta-2)) arg-11) '() eta-1))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (PreludeC-45TypesC-45String-C-43C-43 "Matching args " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-2 u--d u--x)))) e-6) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-2 u--d u--x)))) e-7)))))))))))))))))) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else ((CoreC-45Unify-unifyArgs (cons (cons (lambda (u--vars) (lambda (arg-6180) (lambda (arg-6183) (lambda (arg-6186) (lambda (arg-6187) (lambda (arg-6188) (lambda (arg-6190) (lambda (arg-6193) (lambda (eta-1) (CoreC-45Unify-u--unifyD_Unify_Closure u--vars arg-6180 arg-6183 arg-6186 arg-6187 arg-6188 arg-6190 arg-6193 eta-1)))))))))) (lambda (u--vars) (lambda (arg-6195) (lambda (arg-6198) (lambda (arg-6201) (lambda (arg-6202) (lambda (arg-6203) (lambda (arg-6205) (lambda (arg-6206) (lambda (eta-1) (CoreC-45Unify-u--unifyWithLazyD_Unify_Closure u--vars arg-6195 arg-6198 arg-6201 arg-6202 arg-6203 arg-6205 arg-6206 eta-1))))))))))) (cons (lambda (u--c) (lambda (u--vars) (lambda (arg-5827) (lambda (arg-5828) (lambda (arg-5830) (lambda (eta-1) (CoreC-45Normalise-u--quote_Quote_Closure u--c u--vars arg-5827 arg-5828 arg-5830 eta-1))))))) (lambda (u--c) (lambda (u--vars) (lambda (arg-5836) (lambda (arg-5839) (lambda (arg-5840) (lambda (arg-5842) (lambda (eta-1) (CoreC-45Normalise-u--quoteGen_Quote_Closure u--c u--vars arg-5836 arg-5839 arg-5840 arg-5842 eta-1)))))))))) arg-2 arg-0 arg-1 u--mode arg-4 arg-5 (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) arg-8) (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) arg-11)) eta-0)))))) (else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 u--mode arg-4 arg-5 arg-6 u--fx arg-8 (vector 1 arg-9 u--fy arg-11)))))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))))))))(else (case (vector-ref arg-7 0) ((0) (let ((e-20 (vector-ref arg-7 1))) (let ((e-21 (vector-ref arg-7 2))) (case (vector-ref arg-10 0) ((0) (let ((e-29 (vector-ref arg-10 1))) (let ((e-30 (vector-ref arg-10 2))) (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-log arg-0 "unify.application" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Both local apps, unifyIfEq") eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (CoreC-45Unify-unifyIfEq arg-0 arg-1 arg-2 1 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-20 e-21) arg-8) (vector 1 arg-9 (vector 0 e-29 e-30) arg-11) eta-0))))))))(else (case (vector-ref arg-10 0) ((2) (let ((e-15 (vector-ref arg-10 1))) (let ((e-16 (vector-ref arg-10 2))) (let ((e-17 (vector-ref arg-10 3))) (let ((sc7 (CoreC-45Unify-u--C-47C-61_Eq_UnifyMode (let ((e-1 (cdr arg-3))) e-1) 2))) (cond ((equal? sc7 1) (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-15 e-16 e-17) arg-11 (vector 1 arg-6 arg-7 arg-8))) (else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 (vector 2 e-15 e-16 e-17) arg-11)))))))))(else (if (null? arg-3) (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)) (let ((e-0 (car arg-3))) (let ((e-1 (cdr arg-3))) (cond ((equal? e-1 3) (case (vector-ref arg-7 0) ((1) (let ((e-3 (vector-ref arg-7 1))) (let ((e-4 (vector-ref arg-7 2))) (case (vector-ref arg-10 0) ((1) (let ((e-6 (vector-ref arg-10 1))) (let ((e-7 (vector-ref arg-10 2))) (let ((u--mode (cons e-0 3))) (let ((u--fx (vector 1 e-3 e-4))) (let ((u--fy (vector 1 e-6 e-7))) (let ((sc10 (CoreC-45Name-u--C-61C-61_Eq_Name e-4 e-7))) (cond ((equal? sc10 1) (CoreC-45Unify-unifyArgs (cons (cons (lambda (u--vars) (lambda (arg-6180) (lambda (arg-6183) (lambda (arg-6186) (lambda (arg-6187) (lambda (arg-6188) (lambda (arg-6190) (lambda (arg-6193) (lambda (eta-0) (CoreC-45Unify-u--unifyD_Unify_Closure u--vars arg-6180 arg-6183 arg-6186 arg-6187 arg-6188 arg-6190 arg-6193 eta-0)))))))))) (lambda (u--vars) (lambda (arg-6195) (lambda (arg-6198) (lambda (arg-6201) (lambda (arg-6202) (lambda (arg-6203) (lambda (arg-6205) (lambda (arg-6206) (lambda (eta-0) (CoreC-45Unify-u--unifyWithLazyD_Unify_Closure u--vars arg-6195 arg-6198 arg-6201 arg-6202 arg-6203 arg-6205 arg-6206 eta-0))))))))))) (cons (lambda (u--c) (lambda (u--vars) (lambda (arg-5827) (lambda (arg-5828) (lambda (arg-5830) (lambda (eta-0) (CoreC-45Normalise-u--quote_Quote_Closure u--c u--vars arg-5827 arg-5828 arg-5830 eta-0))))))) (lambda (u--c) (lambda (u--vars) (lambda (arg-5836) (lambda (arg-5839) (lambda (arg-5840) (lambda (arg-5842) (lambda (eta-0) (CoreC-45Normalise-u--quoteGen_Quote_Closure u--c u--vars arg-5836 arg-5839 arg-5840 arg-5842 eta-0)))))))))) arg-2 arg-0 arg-1 u--mode arg-4 arg-5 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) arg-8) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) arg-11))) (else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 u--mode arg-4 arg-5 arg-6 u--fx arg-8 (vector 1 arg-9 u--fy arg-11)))))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))) ((equal? e-1 2) (case (vector-ref arg-7 0) ((1) (let ((e-9 (vector-ref arg-7 1))) (let ((e-10 (vector-ref arg-7 2))) (case (vector-ref arg-10 0) ((1) (let ((e-12 (vector-ref arg-10 1))) (let ((e-13 (vector-ref arg-10 2))) (let ((u--mode (cons e-0 2))) (let ((u--fx (vector 1 e-9 e-10))) (let ((u--fy (vector 1 e-12 e-13))) (let ((sc10 (CoreC-45Name-u--C-61C-61_Eq_Name e-10 e-13))) (cond ((equal? sc10 1) (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-unverifiedLogC arg-0 "unify.application" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-1) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (clam-0) (lambda (eta-2) (CoreC-45Normalise-u--quote_Quote_Closure arg-0 arg-2 e-5 arg-5 clam-0 eta-2))) (PreludeC-45Types-u--map_Functor_List (lambda (eta-2) (Builtin-snd eta-2)) arg-8) '() eta-1))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Core-traverseC-39 (lambda (clam-0) (lambda (eta-2) (CoreC-45Normalise-u--quote_Quote_Closure arg-0 arg-2 e-5 arg-5 clam-0 eta-2))) (PreludeC-45Types-u--map_Functor_List (lambda (eta-2) (Builtin-snd eta-2)) arg-11) '() eta-1))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (PreludeC-45TypesC-45String-C-43C-43 "Matching args " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-2 u--d u--x)))) e-6) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-2 u--d u--x)))) e-7)))))))))))))))))) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else ((CoreC-45Unify-unifyArgs (cons (cons (lambda (u--vars) (lambda (arg-6180) (lambda (arg-6183) (lambda (arg-6186) (lambda (arg-6187) (lambda (arg-6188) (lambda (arg-6190) (lambda (arg-6193) (lambda (eta-1) (CoreC-45Unify-u--unifyD_Unify_Closure u--vars arg-6180 arg-6183 arg-6186 arg-6187 arg-6188 arg-6190 arg-6193 eta-1)))))))))) (lambda (u--vars) (lambda (arg-6195) (lambda (arg-6198) (lambda (arg-6201) (lambda (arg-6202) (lambda (arg-6203) (lambda (arg-6205) (lambda (arg-6206) (lambda (eta-1) (CoreC-45Unify-u--unifyWithLazyD_Unify_Closure u--vars arg-6195 arg-6198 arg-6201 arg-6202 arg-6203 arg-6205 arg-6206 eta-1))))))))))) (cons (lambda (u--c) (lambda (u--vars) (lambda (arg-5827) (lambda (arg-5828) (lambda (arg-5830) (lambda (eta-1) (CoreC-45Normalise-u--quote_Quote_Closure u--c u--vars arg-5827 arg-5828 arg-5830 eta-1))))))) (lambda (u--c) (lambda (u--vars) (lambda (arg-5836) (lambda (arg-5839) (lambda (arg-5840) (lambda (arg-5842) (lambda (eta-1) (CoreC-45Normalise-u--quoteGen_Quote_Closure u--c u--vars arg-5836 arg-5839 arg-5840 arg-5842 eta-1)))))))))) arg-2 arg-0 arg-1 u--mode arg-4 arg-5 (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) arg-8) (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) arg-11)) eta-0)))))) (else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 u--mode arg-4 arg-5 arg-6 u--fx arg-8 (vector 1 arg-9 u--fy arg-11)))))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))) ((2) (let ((e-24 (vector-ref arg-7 1))) (let ((e-25 (vector-ref arg-7 2))) (let ((e-26 (vector-ref arg-7 3))) (case (vector-ref arg-10 0) ((2) (let ((e-33 (vector-ref arg-10 1))) (let ((e-34 (vector-ref arg-10 2))) (let ((e-35 (vector-ref arg-10 3))) (lambda (eta-0) (let ((act-24 (CoreC-45Unify-isDefInvertible arg-0 arg-4 e-25 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((sc8 (let ((sc9 (PreludeC-45EqOrd-u--C-61C-61_Eq_Int e-25 e-34))) (cond ((equal? sc9 1) (cond ((equal? e-5 1) 1) (else (CoreC-45Unify-u--C-61C-61_Eq_UnifyMode (let ((e-1 (cdr arg-3))) e-1) 3)))) (else 0))))) (cond ((equal? sc8 1) ((CoreC-45Unify-unifyArgs (cons (cons (lambda (u--vars) (lambda (arg-6180) (lambda (arg-6183) (lambda (arg-6186) (lambda (arg-6187) (lambda (arg-6188) (lambda (arg-6190) (lambda (arg-6193) (lambda (eta-1) (CoreC-45Unify-u--unifyD_Unify_Closure u--vars arg-6180 arg-6183 arg-6186 arg-6187 arg-6188 arg-6190 arg-6193 eta-1)))))))))) (lambda (u--vars) (lambda (arg-6195) (lambda (arg-6198) (lambda (arg-6201) (lambda (arg-6202) (lambda (arg-6203) (lambda (arg-6205) (lambda (arg-6206) (lambda (eta-1) (CoreC-45Unify-u--unifyWithLazyD_Unify_Closure u--vars arg-6195 arg-6198 arg-6201 arg-6202 arg-6203 arg-6205 arg-6206 eta-1))))))))))) (cons (lambda (u--c) (lambda (u--vars) (lambda (arg-5827) (lambda (arg-5828) (lambda (arg-5830) (lambda (eta-1) (CoreC-45Normalise-u--quote_Quote_Closure u--c u--vars arg-5827 arg-5828 arg-5830 eta-1))))))) (lambda (u--c) (lambda (u--vars) (lambda (arg-5836) (lambda (arg-5839) (lambda (arg-5840) (lambda (arg-5842) (lambda (eta-1) (CoreC-45Normalise-u--quoteGen_Quote_Closure u--c u--vars arg-5836 arg-5839 arg-5840 arg-5842 eta-1)))))))))) arg-2 arg-0 arg-1 arg-3 arg-4 arg-5 (PreludeC-45TypesC-45List-C-43C-43 e-26 (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) arg-8)) (PreludeC-45TypesC-45List-C-43C-43 e-35 (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) arg-11))) eta-0)) (else (let ((act-25 (CoreC-45Unify-n--11762-14569-u--localsIn arg-2 e-26 e-25 e-24 e-35 e-34 e-33 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-26 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Unify-n--11762-14569-u--localsIn arg-2 e-26 e-25 e-24 e-35 e-34 e-33 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-35 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((u--xbigger (let ((sc11 (PreludeC-45Types-u--C-62_Ord_Nat e-6 e-7))) (cond ((equal? sc11 1) 1) (else (let ((sc12 (PreludeC-45Types-u--C-61C-61_Eq_Nat e-6 e-7))) (cond ((equal? sc12 1) (PreludeC-45Types-u--C-60C-61_Ord_Nat (PreludeC-45TypesC-45List-length arg-8) (PreludeC-45TypesC-45List-length arg-11))) (else 0)))))))) (let ((sc11 (let ((sc12 (cond ((equal? u--xbigger 1) 1) (else (CoreC-45Unify-u--C-61C-61_Eq_UnifyMode (let ((e-1 (cdr arg-3))) e-1) 2))))) (cond ((equal? sc12 1) (let ((sc13 (CoreC-45Unify-n--11762-14568-u--pv arg-2 e-26 e-25 e-24 e-35 e-34 e-33 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-24))) (cond ((equal? sc13 1) 0) (else 1)))) (else 0))))) (cond ((equal? sc11 1) ((CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 (vector 2 e-24 e-25 e-26) arg-8 (vector 1 arg-9 (vector 2 e-33 e-34 e-35) arg-11)) eta-0)) (else ((CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-9 (vector 2 e-33 e-34 e-35) arg-11 (vector 1 arg-6 (vector 2 e-24 e-25 e-26) arg-8)) eta-0)))))))))))))))))))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 (vector 2 e-24 e-25 e-26) arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (case (vector-ref arg-10 0) ((2) (let ((e-15 (vector-ref arg-10 1))) (let ((e-16 (vector-ref arg-10 2))) (let ((e-17 (vector-ref arg-10 3))) (let ((sc6 (CoreC-45Unify-u--C-47C-61_Eq_UnifyMode (let ((e-1 (cdr arg-3))) e-1) 2))) (cond ((equal? sc6 1) (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-15 e-16 e-17) arg-11 (vector 1 arg-6 arg-7 arg-8))) (else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 (vector 2 e-15 e-16 e-17) arg-11)))))))))(else (if (null? arg-3) (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)) (let ((e-0 (car arg-3))) (let ((e-1 (cdr arg-3))) (cond ((equal? e-1 3) (case (vector-ref arg-7 0) ((1) (let ((e-3 (vector-ref arg-7 1))) (let ((e-4 (vector-ref arg-7 2))) (case (vector-ref arg-10 0) ((1) (let ((e-6 (vector-ref arg-10 1))) (let ((e-7 (vector-ref arg-10 2))) (let ((u--mode (cons e-0 3))) (let ((u--fx (vector 1 e-3 e-4))) (let ((u--fy (vector 1 e-6 e-7))) (let ((sc9 (CoreC-45Name-u--C-61C-61_Eq_Name e-4 e-7))) (cond ((equal? sc9 1) (CoreC-45Unify-unifyArgs (cons (cons (lambda (u--vars) (lambda (arg-6180) (lambda (arg-6183) (lambda (arg-6186) (lambda (arg-6187) (lambda (arg-6188) (lambda (arg-6190) (lambda (arg-6193) (lambda (eta-0) (CoreC-45Unify-u--unifyD_Unify_Closure u--vars arg-6180 arg-6183 arg-6186 arg-6187 arg-6188 arg-6190 arg-6193 eta-0)))))))))) (lambda (u--vars) (lambda (arg-6195) (lambda (arg-6198) (lambda (arg-6201) (lambda (arg-6202) (lambda (arg-6203) (lambda (arg-6205) (lambda (arg-6206) (lambda (eta-0) (CoreC-45Unify-u--unifyWithLazyD_Unify_Closure u--vars arg-6195 arg-6198 arg-6201 arg-6202 arg-6203 arg-6205 arg-6206 eta-0))))))))))) (cons (lambda (u--c) (lambda (u--vars) (lambda (arg-5827) (lambda (arg-5828) (lambda (arg-5830) (lambda (eta-0) (CoreC-45Normalise-u--quote_Quote_Closure u--c u--vars arg-5827 arg-5828 arg-5830 eta-0))))))) (lambda (u--c) (lambda (u--vars) (lambda (arg-5836) (lambda (arg-5839) (lambda (arg-5840) (lambda (arg-5842) (lambda (eta-0) (CoreC-45Normalise-u--quoteGen_Quote_Closure u--c u--vars arg-5836 arg-5839 arg-5840 arg-5842 eta-0)))))))))) arg-2 arg-0 arg-1 u--mode arg-4 arg-5 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) arg-8) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) arg-11))) (else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 u--mode arg-4 arg-5 arg-6 u--fx arg-8 (vector 1 arg-9 u--fy arg-11)))))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))) ((equal? e-1 2) (case (vector-ref arg-7 0) ((1) (let ((e-9 (vector-ref arg-7 1))) (let ((e-10 (vector-ref arg-7 2))) (case (vector-ref arg-10 0) ((1) (let ((e-12 (vector-ref arg-10 1))) (let ((e-13 (vector-ref arg-10 2))) (let ((u--mode (cons e-0 2))) (let ((u--fx (vector 1 e-9 e-10))) (let ((u--fy (vector 1 e-12 e-13))) (let ((sc9 (CoreC-45Name-u--C-61C-61_Eq_Name e-10 e-13))) (cond ((equal? sc9 1) (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-unverifiedLogC arg-0 "unify.application" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-1) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (clam-0) (lambda (eta-2) (CoreC-45Normalise-u--quote_Quote_Closure arg-0 arg-2 e-5 arg-5 clam-0 eta-2))) (PreludeC-45Types-u--map_Functor_List (lambda (eta-2) (Builtin-snd eta-2)) arg-8) '() eta-1))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Core-traverseC-39 (lambda (clam-0) (lambda (eta-2) (CoreC-45Normalise-u--quote_Quote_Closure arg-0 arg-2 e-5 arg-5 clam-0 eta-2))) (PreludeC-45Types-u--map_Functor_List (lambda (eta-2) (Builtin-snd eta-2)) arg-11) '() eta-1))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (PreludeC-45TypesC-45String-C-43C-43 "Matching args " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-2 u--d u--x)))) e-6) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-2 u--d u--x)))) e-7)))))))))))))))))) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else ((CoreC-45Unify-unifyArgs (cons (cons (lambda (u--vars) (lambda (arg-6180) (lambda (arg-6183) (lambda (arg-6186) (lambda (arg-6187) (lambda (arg-6188) (lambda (arg-6190) (lambda (arg-6193) (lambda (eta-1) (CoreC-45Unify-u--unifyD_Unify_Closure u--vars arg-6180 arg-6183 arg-6186 arg-6187 arg-6188 arg-6190 arg-6193 eta-1)))))))))) (lambda (u--vars) (lambda (arg-6195) (lambda (arg-6198) (lambda (arg-6201) (lambda (arg-6202) (lambda (arg-6203) (lambda (arg-6205) (lambda (arg-6206) (lambda (eta-1) (CoreC-45Unify-u--unifyWithLazyD_Unify_Closure u--vars arg-6195 arg-6198 arg-6201 arg-6202 arg-6203 arg-6205 arg-6206 eta-1))))))))))) (cons (lambda (u--c) (lambda (u--vars) (lambda (arg-5827) (lambda (arg-5828) (lambda (arg-5830) (lambda (eta-1) (CoreC-45Normalise-u--quote_Quote_Closure u--c u--vars arg-5827 arg-5828 arg-5830 eta-1))))))) (lambda (u--c) (lambda (u--vars) (lambda (arg-5836) (lambda (arg-5839) (lambda (arg-5840) (lambda (arg-5842) (lambda (eta-1) (CoreC-45Normalise-u--quoteGen_Quote_Closure u--c u--vars arg-5836 arg-5839 arg-5840 arg-5842 eta-1)))))))))) arg-2 arg-0 arg-1 u--mode arg-4 arg-5 (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) arg-8) (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) arg-11)) eta-0)))))) (else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 u--mode arg-4 arg-5 arg-6 u--fx arg-8 (vector 1 arg-9 u--fy arg-11)))))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))))))))))))))(else (if (null? arg-3) (case (vector-ref arg-7 0) ((0) (let ((e-20 (vector-ref arg-7 1))) (let ((e-21 (vector-ref arg-7 2))) (case (vector-ref arg-10 0) ((0) (let ((e-29 (vector-ref arg-10 1))) (let ((e-30 (vector-ref arg-10 2))) (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-log arg-0 "unify.application" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Both local apps, unifyIfEq") eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (CoreC-45Unify-unifyIfEq arg-0 arg-1 arg-2 1 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-20 e-21) arg-8) (vector 1 arg-9 (vector 0 e-29 e-30) arg-11) eta-0))))))))(else (case (vector-ref arg-10 0) ((2) (let ((e-15 (vector-ref arg-10 1))) (let ((e-16 (vector-ref arg-10 2))) (let ((e-17 (vector-ref arg-10 3))) (let ((sc5 (CoreC-45Unify-u--C-47C-61_Eq_UnifyMode (let ((e-1 (cdr arg-3))) e-1) 2))) (cond ((equal? sc5 1) (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-15 e-16 e-17) arg-11 (vector 1 arg-6 arg-7 arg-8))) (else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 (vector 2 e-15 e-16 e-17) arg-11)))))))))(else (if (null? arg-3) (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)) (let ((e-0 (car arg-3))) (let ((e-1 (cdr arg-3))) (cond ((equal? e-1 3) (case (vector-ref arg-7 0) ((1) (let ((e-3 (vector-ref arg-7 1))) (let ((e-4 (vector-ref arg-7 2))) (case (vector-ref arg-10 0) ((1) (let ((e-6 (vector-ref arg-10 1))) (let ((e-7 (vector-ref arg-10 2))) (let ((u--mode (cons e-0 3))) (let ((u--fx (vector 1 e-3 e-4))) (let ((u--fy (vector 1 e-6 e-7))) (let ((sc8 (CoreC-45Name-u--C-61C-61_Eq_Name e-4 e-7))) (cond ((equal? sc8 1) (CoreC-45Unify-unifyArgs (cons (cons (lambda (u--vars) (lambda (arg-6180) (lambda (arg-6183) (lambda (arg-6186) (lambda (arg-6187) (lambda (arg-6188) (lambda (arg-6190) (lambda (arg-6193) (lambda (eta-0) (CoreC-45Unify-u--unifyD_Unify_Closure u--vars arg-6180 arg-6183 arg-6186 arg-6187 arg-6188 arg-6190 arg-6193 eta-0)))))))))) (lambda (u--vars) (lambda (arg-6195) (lambda (arg-6198) (lambda (arg-6201) (lambda (arg-6202) (lambda (arg-6203) (lambda (arg-6205) (lambda (arg-6206) (lambda (eta-0) (CoreC-45Unify-u--unifyWithLazyD_Unify_Closure u--vars arg-6195 arg-6198 arg-6201 arg-6202 arg-6203 arg-6205 arg-6206 eta-0))))))))))) (cons (lambda (u--c) (lambda (u--vars) (lambda (arg-5827) (lambda (arg-5828) (lambda (arg-5830) (lambda (eta-0) (CoreC-45Normalise-u--quote_Quote_Closure u--c u--vars arg-5827 arg-5828 arg-5830 eta-0))))))) (lambda (u--c) (lambda (u--vars) (lambda (arg-5836) (lambda (arg-5839) (lambda (arg-5840) (lambda (arg-5842) (lambda (eta-0) (CoreC-45Normalise-u--quoteGen_Quote_Closure u--c u--vars arg-5836 arg-5839 arg-5840 arg-5842 eta-0)))))))))) arg-2 arg-0 arg-1 u--mode arg-4 arg-5 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) arg-8) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) arg-11))) (else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 u--mode arg-4 arg-5 arg-6 u--fx arg-8 (vector 1 arg-9 u--fy arg-11)))))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))) ((equal? e-1 2) (case (vector-ref arg-7 0) ((1) (let ((e-9 (vector-ref arg-7 1))) (let ((e-10 (vector-ref arg-7 2))) (case (vector-ref arg-10 0) ((1) (let ((e-12 (vector-ref arg-10 1))) (let ((e-13 (vector-ref arg-10 2))) (let ((u--mode (cons e-0 2))) (let ((u--fx (vector 1 e-9 e-10))) (let ((u--fy (vector 1 e-12 e-13))) (let ((sc8 (CoreC-45Name-u--C-61C-61_Eq_Name e-10 e-13))) (cond ((equal? sc8 1) (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-unverifiedLogC arg-0 "unify.application" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-1) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (clam-0) (lambda (eta-2) (CoreC-45Normalise-u--quote_Quote_Closure arg-0 arg-2 e-5 arg-5 clam-0 eta-2))) (PreludeC-45Types-u--map_Functor_List (lambda (eta-2) (Builtin-snd eta-2)) arg-8) '() eta-1))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Core-traverseC-39 (lambda (clam-0) (lambda (eta-2) (CoreC-45Normalise-u--quote_Quote_Closure arg-0 arg-2 e-5 arg-5 clam-0 eta-2))) (PreludeC-45Types-u--map_Functor_List (lambda (eta-2) (Builtin-snd eta-2)) arg-11) '() eta-1))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (PreludeC-45TypesC-45String-C-43C-43 "Matching args " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-2 u--d u--x)))) e-6) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-2 u--d u--x)))) e-7)))))))))))))))))) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else ((CoreC-45Unify-unifyArgs (cons (cons (lambda (u--vars) (lambda (arg-6180) (lambda (arg-6183) (lambda (arg-6186) (lambda (arg-6187) (lambda (arg-6188) (lambda (arg-6190) (lambda (arg-6193) (lambda (eta-1) (CoreC-45Unify-u--unifyD_Unify_Closure u--vars arg-6180 arg-6183 arg-6186 arg-6187 arg-6188 arg-6190 arg-6193 eta-1)))))))))) (lambda (u--vars) (lambda (arg-6195) (lambda (arg-6198) (lambda (arg-6201) (lambda (arg-6202) (lambda (arg-6203) (lambda (arg-6205) (lambda (arg-6206) (lambda (eta-1) (CoreC-45Unify-u--unifyWithLazyD_Unify_Closure u--vars arg-6195 arg-6198 arg-6201 arg-6202 arg-6203 arg-6205 arg-6206 eta-1))))))))))) (cons (lambda (u--c) (lambda (u--vars) (lambda (arg-5827) (lambda (arg-5828) (lambda (arg-5830) (lambda (eta-1) (CoreC-45Normalise-u--quote_Quote_Closure u--c u--vars arg-5827 arg-5828 arg-5830 eta-1))))))) (lambda (u--c) (lambda (u--vars) (lambda (arg-5836) (lambda (arg-5839) (lambda (arg-5840) (lambda (arg-5842) (lambda (eta-1) (CoreC-45Normalise-u--quoteGen_Quote_Closure u--c u--vars arg-5836 arg-5839 arg-5840 arg-5842 eta-1)))))))))) arg-2 arg-0 arg-1 u--mode arg-4 arg-5 (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) arg-8) (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) arg-11)) eta-0)))))) (else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 u--mode arg-4 arg-5 arg-6 u--fx arg-8 (vector 1 arg-9 u--fy arg-11)))))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))) ((2) (let ((e-24 (vector-ref arg-7 1))) (let ((e-25 (vector-ref arg-7 2))) (let ((e-26 (vector-ref arg-7 3))) (case (vector-ref arg-10 0) ((2) (let ((e-33 (vector-ref arg-10 1))) (let ((e-34 (vector-ref arg-10 2))) (let ((e-35 (vector-ref arg-10 3))) (lambda (eta-0) (let ((act-24 (CoreC-45Unify-isDefInvertible arg-0 arg-4 e-25 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((sc6 (let ((sc7 (PreludeC-45EqOrd-u--C-61C-61_Eq_Int e-25 e-34))) (cond ((equal? sc7 1) (cond ((equal? e-5 1) 1) (else (CoreC-45Unify-u--C-61C-61_Eq_UnifyMode (let ((e-1 (cdr arg-3))) e-1) 3)))) (else 0))))) (cond ((equal? sc6 1) ((CoreC-45Unify-unifyArgs (cons (cons (lambda (u--vars) (lambda (arg-6180) (lambda (arg-6183) (lambda (arg-6186) (lambda (arg-6187) (lambda (arg-6188) (lambda (arg-6190) (lambda (arg-6193) (lambda (eta-1) (CoreC-45Unify-u--unifyD_Unify_Closure u--vars arg-6180 arg-6183 arg-6186 arg-6187 arg-6188 arg-6190 arg-6193 eta-1)))))))))) (lambda (u--vars) (lambda (arg-6195) (lambda (arg-6198) (lambda (arg-6201) (lambda (arg-6202) (lambda (arg-6203) (lambda (arg-6205) (lambda (arg-6206) (lambda (eta-1) (CoreC-45Unify-u--unifyWithLazyD_Unify_Closure u--vars arg-6195 arg-6198 arg-6201 arg-6202 arg-6203 arg-6205 arg-6206 eta-1))))))))))) (cons (lambda (u--c) (lambda (u--vars) (lambda (arg-5827) (lambda (arg-5828) (lambda (arg-5830) (lambda (eta-1) (CoreC-45Normalise-u--quote_Quote_Closure u--c u--vars arg-5827 arg-5828 arg-5830 eta-1))))))) (lambda (u--c) (lambda (u--vars) (lambda (arg-5836) (lambda (arg-5839) (lambda (arg-5840) (lambda (arg-5842) (lambda (eta-1) (CoreC-45Normalise-u--quoteGen_Quote_Closure u--c u--vars arg-5836 arg-5839 arg-5840 arg-5842 eta-1)))))))))) arg-2 arg-0 arg-1 arg-3 arg-4 arg-5 (PreludeC-45TypesC-45List-C-43C-43 e-26 (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) arg-8)) (PreludeC-45TypesC-45List-C-43C-43 e-35 (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) arg-11))) eta-0)) (else (let ((act-25 (CoreC-45Unify-n--11762-14569-u--localsIn arg-2 e-26 e-25 e-24 e-35 e-34 e-33 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-26 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Unify-n--11762-14569-u--localsIn arg-2 e-26 e-25 e-24 e-35 e-34 e-33 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-35 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((u--xbigger (let ((sc9 (PreludeC-45Types-u--C-62_Ord_Nat e-6 e-7))) (cond ((equal? sc9 1) 1) (else (let ((sc10 (PreludeC-45Types-u--C-61C-61_Eq_Nat e-6 e-7))) (cond ((equal? sc10 1) (PreludeC-45Types-u--C-60C-61_Ord_Nat (PreludeC-45TypesC-45List-length arg-8) (PreludeC-45TypesC-45List-length arg-11))) (else 0)))))))) (let ((sc9 (let ((sc10 (cond ((equal? u--xbigger 1) 1) (else (CoreC-45Unify-u--C-61C-61_Eq_UnifyMode (let ((e-1 (cdr arg-3))) e-1) 2))))) (cond ((equal? sc10 1) (let ((sc11 (CoreC-45Unify-n--11762-14568-u--pv arg-2 e-26 e-25 e-24 e-35 e-34 e-33 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-24))) (cond ((equal? sc11 1) 0) (else 1)))) (else 0))))) (cond ((equal? sc9 1) ((CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 (vector 2 e-24 e-25 e-26) arg-8 (vector 1 arg-9 (vector 2 e-33 e-34 e-35) arg-11)) eta-0)) (else ((CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-9 (vector 2 e-33 e-34 e-35) arg-11 (vector 1 arg-6 (vector 2 e-24 e-25 e-26) arg-8)) eta-0)))))))))))))))))))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 (vector 2 e-24 e-25 e-26) arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (case (vector-ref arg-10 0) ((2) (let ((e-15 (vector-ref arg-10 1))) (let ((e-16 (vector-ref arg-10 2))) (let ((e-17 (vector-ref arg-10 3))) (let ((sc4 (CoreC-45Unify-u--C-47C-61_Eq_UnifyMode (let ((e-1 (cdr arg-3))) e-1) 2))) (cond ((equal? sc4 1) (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-15 e-16 e-17) arg-11 (vector 1 arg-6 arg-7 arg-8))) (else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 (vector 2 e-15 e-16 e-17) arg-11)))))))))(else (if (null? arg-3) (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)) (let ((e-0 (car arg-3))) (let ((e-1 (cdr arg-3))) (cond ((equal? e-1 3) (case (vector-ref arg-7 0) ((1) (let ((e-3 (vector-ref arg-7 1))) (let ((e-4 (vector-ref arg-7 2))) (case (vector-ref arg-10 0) ((1) (let ((e-6 (vector-ref arg-10 1))) (let ((e-7 (vector-ref arg-10 2))) (let ((u--mode (cons e-0 3))) (let ((u--fx (vector 1 e-3 e-4))) (let ((u--fy (vector 1 e-6 e-7))) (let ((sc7 (CoreC-45Name-u--C-61C-61_Eq_Name e-4 e-7))) (cond ((equal? sc7 1) (CoreC-45Unify-unifyArgs (cons (cons (lambda (u--vars) (lambda (arg-6180) (lambda (arg-6183) (lambda (arg-6186) (lambda (arg-6187) (lambda (arg-6188) (lambda (arg-6190) (lambda (arg-6193) (lambda (eta-0) (CoreC-45Unify-u--unifyD_Unify_Closure u--vars arg-6180 arg-6183 arg-6186 arg-6187 arg-6188 arg-6190 arg-6193 eta-0)))))))))) (lambda (u--vars) (lambda (arg-6195) (lambda (arg-6198) (lambda (arg-6201) (lambda (arg-6202) (lambda (arg-6203) (lambda (arg-6205) (lambda (arg-6206) (lambda (eta-0) (CoreC-45Unify-u--unifyWithLazyD_Unify_Closure u--vars arg-6195 arg-6198 arg-6201 arg-6202 arg-6203 arg-6205 arg-6206 eta-0))))))))))) (cons (lambda (u--c) (lambda (u--vars) (lambda (arg-5827) (lambda (arg-5828) (lambda (arg-5830) (lambda (eta-0) (CoreC-45Normalise-u--quote_Quote_Closure u--c u--vars arg-5827 arg-5828 arg-5830 eta-0))))))) (lambda (u--c) (lambda (u--vars) (lambda (arg-5836) (lambda (arg-5839) (lambda (arg-5840) (lambda (arg-5842) (lambda (eta-0) (CoreC-45Normalise-u--quoteGen_Quote_Closure u--c u--vars arg-5836 arg-5839 arg-5840 arg-5842 eta-0)))))))))) arg-2 arg-0 arg-1 u--mode arg-4 arg-5 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) arg-8) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) arg-11))) (else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 u--mode arg-4 arg-5 arg-6 u--fx arg-8 (vector 1 arg-9 u--fy arg-11)))))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))) ((equal? e-1 2) (case (vector-ref arg-7 0) ((1) (let ((e-9 (vector-ref arg-7 1))) (let ((e-10 (vector-ref arg-7 2))) (case (vector-ref arg-10 0) ((1) (let ((e-12 (vector-ref arg-10 1))) (let ((e-13 (vector-ref arg-10 2))) (let ((u--mode (cons e-0 2))) (let ((u--fx (vector 1 e-9 e-10))) (let ((u--fy (vector 1 e-12 e-13))) (let ((sc7 (CoreC-45Name-u--C-61C-61_Eq_Name e-10 e-13))) (cond ((equal? sc7 1) (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-unverifiedLogC arg-0 "unify.application" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-1) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (clam-0) (lambda (eta-2) (CoreC-45Normalise-u--quote_Quote_Closure arg-0 arg-2 e-5 arg-5 clam-0 eta-2))) (PreludeC-45Types-u--map_Functor_List (lambda (eta-2) (Builtin-snd eta-2)) arg-8) '() eta-1))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Core-traverseC-39 (lambda (clam-0) (lambda (eta-2) (CoreC-45Normalise-u--quote_Quote_Closure arg-0 arg-2 e-5 arg-5 clam-0 eta-2))) (PreludeC-45Types-u--map_Functor_List (lambda (eta-2) (Builtin-snd eta-2)) arg-11) '() eta-1))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (PreludeC-45TypesC-45String-C-43C-43 "Matching args " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-2 u--d u--x)))) e-6) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-2 u--d u--x)))) e-7)))))))))))))))))) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else ((CoreC-45Unify-unifyArgs (cons (cons (lambda (u--vars) (lambda (arg-6180) (lambda (arg-6183) (lambda (arg-6186) (lambda (arg-6187) (lambda (arg-6188) (lambda (arg-6190) (lambda (arg-6193) (lambda (eta-1) (CoreC-45Unify-u--unifyD_Unify_Closure u--vars arg-6180 arg-6183 arg-6186 arg-6187 arg-6188 arg-6190 arg-6193 eta-1)))))))))) (lambda (u--vars) (lambda (arg-6195) (lambda (arg-6198) (lambda (arg-6201) (lambda (arg-6202) (lambda (arg-6203) (lambda (arg-6205) (lambda (arg-6206) (lambda (eta-1) (CoreC-45Unify-u--unifyWithLazyD_Unify_Closure u--vars arg-6195 arg-6198 arg-6201 arg-6202 arg-6203 arg-6205 arg-6206 eta-1))))))))))) (cons (lambda (u--c) (lambda (u--vars) (lambda (arg-5827) (lambda (arg-5828) (lambda (arg-5830) (lambda (eta-1) (CoreC-45Normalise-u--quote_Quote_Closure u--c u--vars arg-5827 arg-5828 arg-5830 eta-1))))))) (lambda (u--c) (lambda (u--vars) (lambda (arg-5836) (lambda (arg-5839) (lambda (arg-5840) (lambda (arg-5842) (lambda (eta-1) (CoreC-45Normalise-u--quoteGen_Quote_Closure u--c u--vars arg-5836 arg-5839 arg-5840 arg-5842 eta-1)))))))))) arg-2 arg-0 arg-1 u--mode arg-4 arg-5 (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) arg-8) (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) arg-11)) eta-0)))))) (else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 u--mode arg-4 arg-5 arg-6 u--fx arg-8 (vector 1 arg-9 u--fy arg-11)))))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))))) (let ((e-36 (car arg-3))) (let ((e-37 (cdr arg-3))) (cond ((equal? e-37 1) (case (vector-ref arg-7 0) ((0) (let ((e-40 (vector-ref arg-7 1))) (let ((e-41 (vector-ref arg-7 2))) (case (vector-ref arg-10 0) ((0) (let ((e-45 (vector-ref arg-10 1))) (let ((e-46 (vector-ref arg-10 2))) (let ((u--mode (cons e-36 1))) (let ((sc6 (PreludeC-45Types-u--C-61C-61_Eq_Nat e-41 e-46))) (cond ((equal? sc6 1) (CoreC-45Unify-unifyArgs (cons (cons (lambda (u--vars) (lambda (arg-6180) (lambda (arg-6183) (lambda (arg-6186) (lambda (arg-6187) (lambda (arg-6188) (lambda (arg-6190) (lambda (arg-6193) (lambda (eta-0) (CoreC-45Unify-u--unifyD_Unify_Closure u--vars arg-6180 arg-6183 arg-6186 arg-6187 arg-6188 arg-6190 arg-6193 eta-0)))))))))) (lambda (u--vars) (lambda (arg-6195) (lambda (arg-6198) (lambda (arg-6201) (lambda (arg-6202) (lambda (arg-6203) (lambda (arg-6205) (lambda (arg-6206) (lambda (eta-0) (CoreC-45Unify-u--unifyWithLazyD_Unify_Closure u--vars arg-6195 arg-6198 arg-6201 arg-6202 arg-6203 arg-6205 arg-6206 eta-0))))))))))) (cons (lambda (u--c) (lambda (u--vars) (lambda (arg-5827) (lambda (arg-5828) (lambda (arg-5830) (lambda (eta-0) (CoreC-45Normalise-u--quote_Quote_Closure u--c u--vars arg-5827 arg-5828 arg-5830 eta-0))))))) (lambda (u--c) (lambda (u--vars) (lambda (arg-5836) (lambda (arg-5839) (lambda (arg-5840) (lambda (arg-5842) (lambda (eta-0) (CoreC-45Normalise-u--quoteGen_Quote_Closure u--c u--vars arg-5836 arg-5839 arg-5840 arg-5842 eta-0)))))))))) arg-2 arg-0 arg-1 u--mode arg-4 arg-5 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) arg-8) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) arg-11))) (else (lambda (eta-0) (CoreC-45Unify-postpone arg-2 arg-0 arg-1 arg-4 u--mode "Postponing local app" arg-5 (vector 1 arg-6 (vector 0 e-40 e-41) arg-8) (vector 1 arg-9 (vector 0 e-45 e-46) arg-11) eta-0)))))))))(else (case (vector-ref arg-7 0) ((0) (let ((e-20 (vector-ref arg-7 1))) (let ((e-21 (vector-ref arg-7 2))) (case (vector-ref arg-10 0) ((0) (let ((e-29 (vector-ref arg-10 1))) (let ((e-30 (vector-ref arg-10 2))) (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-log arg-0 "unify.application" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Both local apps, unifyIfEq") eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (CoreC-45Unify-unifyIfEq arg-0 arg-1 arg-2 1 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-20 e-21) arg-8) (vector 1 arg-9 (vector 0 e-29 e-30) arg-11) eta-0))))))))(else (case (vector-ref arg-10 0) ((2) (let ((e-15 (vector-ref arg-10 1))) (let ((e-16 (vector-ref arg-10 2))) (let ((e-17 (vector-ref arg-10 3))) (let ((sc7 (CoreC-45Unify-u--C-47C-61_Eq_UnifyMode (let ((e-1 (cdr arg-3))) e-1) 2))) (cond ((equal? sc7 1) (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-15 e-16 e-17) arg-11 (vector 1 arg-6 arg-7 arg-8))) (else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 (vector 2 e-15 e-16 e-17) arg-11)))))))))(else (if (null? arg-3) (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)) (let ((e-0 (car arg-3))) (let ((e-1 (cdr arg-3))) (cond ((equal? e-1 3) (case (vector-ref arg-7 0) ((1) (let ((e-3 (vector-ref arg-7 1))) (let ((e-4 (vector-ref arg-7 2))) (case (vector-ref arg-10 0) ((1) (let ((e-6 (vector-ref arg-10 1))) (let ((e-7 (vector-ref arg-10 2))) (let ((u--mode (cons e-0 3))) (let ((u--fx (vector 1 e-3 e-4))) (let ((u--fy (vector 1 e-6 e-7))) (let ((sc10 (CoreC-45Name-u--C-61C-61_Eq_Name e-4 e-7))) (cond ((equal? sc10 1) (CoreC-45Unify-unifyArgs (cons (cons (lambda (u--vars) (lambda (arg-6180) (lambda (arg-6183) (lambda (arg-6186) (lambda (arg-6187) (lambda (arg-6188) (lambda (arg-6190) (lambda (arg-6193) (lambda (eta-0) (CoreC-45Unify-u--unifyD_Unify_Closure u--vars arg-6180 arg-6183 arg-6186 arg-6187 arg-6188 arg-6190 arg-6193 eta-0)))))))))) (lambda (u--vars) (lambda (arg-6195) (lambda (arg-6198) (lambda (arg-6201) (lambda (arg-6202) (lambda (arg-6203) (lambda (arg-6205) (lambda (arg-6206) (lambda (eta-0) (CoreC-45Unify-u--unifyWithLazyD_Unify_Closure u--vars arg-6195 arg-6198 arg-6201 arg-6202 arg-6203 arg-6205 arg-6206 eta-0))))))))))) (cons (lambda (u--c) (lambda (u--vars) (lambda (arg-5827) (lambda (arg-5828) (lambda (arg-5830) (lambda (eta-0) (CoreC-45Normalise-u--quote_Quote_Closure u--c u--vars arg-5827 arg-5828 arg-5830 eta-0))))))) (lambda (u--c) (lambda (u--vars) (lambda (arg-5836) (lambda (arg-5839) (lambda (arg-5840) (lambda (arg-5842) (lambda (eta-0) (CoreC-45Normalise-u--quoteGen_Quote_Closure u--c u--vars arg-5836 arg-5839 arg-5840 arg-5842 eta-0)))))))))) arg-2 arg-0 arg-1 u--mode arg-4 arg-5 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) arg-8) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) arg-11))) (else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 u--mode arg-4 arg-5 arg-6 u--fx arg-8 (vector 1 arg-9 u--fy arg-11)))))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))) ((equal? e-1 2) (case (vector-ref arg-7 0) ((1) (let ((e-9 (vector-ref arg-7 1))) (let ((e-10 (vector-ref arg-7 2))) (case (vector-ref arg-10 0) ((1) (let ((e-12 (vector-ref arg-10 1))) (let ((e-13 (vector-ref arg-10 2))) (let ((u--mode (cons e-0 2))) (let ((u--fx (vector 1 e-9 e-10))) (let ((u--fy (vector 1 e-12 e-13))) (let ((sc10 (CoreC-45Name-u--C-61C-61_Eq_Name e-10 e-13))) (cond ((equal? sc10 1) (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-unverifiedLogC arg-0 "unify.application" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-1) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (clam-0) (lambda (eta-2) (CoreC-45Normalise-u--quote_Quote_Closure arg-0 arg-2 e-5 arg-5 clam-0 eta-2))) (PreludeC-45Types-u--map_Functor_List (lambda (eta-2) (Builtin-snd eta-2)) arg-8) '() eta-1))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Core-traverseC-39 (lambda (clam-0) (lambda (eta-2) (CoreC-45Normalise-u--quote_Quote_Closure arg-0 arg-2 e-5 arg-5 clam-0 eta-2))) (PreludeC-45Types-u--map_Functor_List (lambda (eta-2) (Builtin-snd eta-2)) arg-11) '() eta-1))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (PreludeC-45TypesC-45String-C-43C-43 "Matching args " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-2 u--d u--x)))) e-6) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-2 u--d u--x)))) e-7)))))))))))))))))) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else ((CoreC-45Unify-unifyArgs (cons (cons (lambda (u--vars) (lambda (arg-6180) (lambda (arg-6183) (lambda (arg-6186) (lambda (arg-6187) (lambda (arg-6188) (lambda (arg-6190) (lambda (arg-6193) (lambda (eta-1) (CoreC-45Unify-u--unifyD_Unify_Closure u--vars arg-6180 arg-6183 arg-6186 arg-6187 arg-6188 arg-6190 arg-6193 eta-1)))))))))) (lambda (u--vars) (lambda (arg-6195) (lambda (arg-6198) (lambda (arg-6201) (lambda (arg-6202) (lambda (arg-6203) (lambda (arg-6205) (lambda (arg-6206) (lambda (eta-1) (CoreC-45Unify-u--unifyWithLazyD_Unify_Closure u--vars arg-6195 arg-6198 arg-6201 arg-6202 arg-6203 arg-6205 arg-6206 eta-1))))))))))) (cons (lambda (u--c) (lambda (u--vars) (lambda (arg-5827) (lambda (arg-5828) (lambda (arg-5830) (lambda (eta-1) (CoreC-45Normalise-u--quote_Quote_Closure u--c u--vars arg-5827 arg-5828 arg-5830 eta-1))))))) (lambda (u--c) (lambda (u--vars) (lambda (arg-5836) (lambda (arg-5839) (lambda (arg-5840) (lambda (arg-5842) (lambda (eta-1) (CoreC-45Normalise-u--quoteGen_Quote_Closure u--c u--vars arg-5836 arg-5839 arg-5840 arg-5842 eta-1)))))))))) arg-2 arg-0 arg-1 u--mode arg-4 arg-5 (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) arg-8) (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) arg-11)) eta-0)))))) (else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 u--mode arg-4 arg-5 arg-6 u--fx arg-8 (vector 1 arg-9 u--fy arg-11)))))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))) ((2) (let ((e-24 (vector-ref arg-7 1))) (let ((e-25 (vector-ref arg-7 2))) (let ((e-26 (vector-ref arg-7 3))) (case (vector-ref arg-10 0) ((2) (let ((e-33 (vector-ref arg-10 1))) (let ((e-34 (vector-ref arg-10 2))) (let ((e-35 (vector-ref arg-10 3))) (lambda (eta-0) (let ((act-24 (CoreC-45Unify-isDefInvertible arg-0 arg-4 e-25 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((sc8 (let ((sc9 (PreludeC-45EqOrd-u--C-61C-61_Eq_Int e-25 e-34))) (cond ((equal? sc9 1) (cond ((equal? e-5 1) 1) (else (CoreC-45Unify-u--C-61C-61_Eq_UnifyMode (let ((e-1 (cdr arg-3))) e-1) 3)))) (else 0))))) (cond ((equal? sc8 1) ((CoreC-45Unify-unifyArgs (cons (cons (lambda (u--vars) (lambda (arg-6180) (lambda (arg-6183) (lambda (arg-6186) (lambda (arg-6187) (lambda (arg-6188) (lambda (arg-6190) (lambda (arg-6193) (lambda (eta-1) (CoreC-45Unify-u--unifyD_Unify_Closure u--vars arg-6180 arg-6183 arg-6186 arg-6187 arg-6188 arg-6190 arg-6193 eta-1)))))))))) (lambda (u--vars) (lambda (arg-6195) (lambda (arg-6198) (lambda (arg-6201) (lambda (arg-6202) (lambda (arg-6203) (lambda (arg-6205) (lambda (arg-6206) (lambda (eta-1) (CoreC-45Unify-u--unifyWithLazyD_Unify_Closure u--vars arg-6195 arg-6198 arg-6201 arg-6202 arg-6203 arg-6205 arg-6206 eta-1))))))))))) (cons (lambda (u--c) (lambda (u--vars) (lambda (arg-5827) (lambda (arg-5828) (lambda (arg-5830) (lambda (eta-1) (CoreC-45Normalise-u--quote_Quote_Closure u--c u--vars arg-5827 arg-5828 arg-5830 eta-1))))))) (lambda (u--c) (lambda (u--vars) (lambda (arg-5836) (lambda (arg-5839) (lambda (arg-5840) (lambda (arg-5842) (lambda (eta-1) (CoreC-45Normalise-u--quoteGen_Quote_Closure u--c u--vars arg-5836 arg-5839 arg-5840 arg-5842 eta-1)))))))))) arg-2 arg-0 arg-1 arg-3 arg-4 arg-5 (PreludeC-45TypesC-45List-C-43C-43 e-26 (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) arg-8)) (PreludeC-45TypesC-45List-C-43C-43 e-35 (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) arg-11))) eta-0)) (else (let ((act-25 (CoreC-45Unify-n--11762-14569-u--localsIn arg-2 e-26 e-25 e-24 e-35 e-34 e-33 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-26 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Unify-n--11762-14569-u--localsIn arg-2 e-26 e-25 e-24 e-35 e-34 e-33 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-35 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((u--xbigger (let ((sc11 (PreludeC-45Types-u--C-62_Ord_Nat e-6 e-7))) (cond ((equal? sc11 1) 1) (else (let ((sc12 (PreludeC-45Types-u--C-61C-61_Eq_Nat e-6 e-7))) (cond ((equal? sc12 1) (PreludeC-45Types-u--C-60C-61_Ord_Nat (PreludeC-45TypesC-45List-length arg-8) (PreludeC-45TypesC-45List-length arg-11))) (else 0)))))))) (let ((sc11 (let ((sc12 (cond ((equal? u--xbigger 1) 1) (else (CoreC-45Unify-u--C-61C-61_Eq_UnifyMode (let ((e-1 (cdr arg-3))) e-1) 2))))) (cond ((equal? sc12 1) (let ((sc13 (CoreC-45Unify-n--11762-14568-u--pv arg-2 e-26 e-25 e-24 e-35 e-34 e-33 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-24))) (cond ((equal? sc13 1) 0) (else 1)))) (else 0))))) (cond ((equal? sc11 1) ((CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 (vector 2 e-24 e-25 e-26) arg-8 (vector 1 arg-9 (vector 2 e-33 e-34 e-35) arg-11)) eta-0)) (else ((CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-9 (vector 2 e-33 e-34 e-35) arg-11 (vector 1 arg-6 (vector 2 e-24 e-25 e-26) arg-8)) eta-0)))))))))))))))))))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 (vector 2 e-24 e-25 e-26) arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (case (vector-ref arg-10 0) ((2) (let ((e-15 (vector-ref arg-10 1))) (let ((e-16 (vector-ref arg-10 2))) (let ((e-17 (vector-ref arg-10 3))) (let ((sc6 (CoreC-45Unify-u--C-47C-61_Eq_UnifyMode (let ((e-1 (cdr arg-3))) e-1) 2))) (cond ((equal? sc6 1) (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-15 e-16 e-17) arg-11 (vector 1 arg-6 arg-7 arg-8))) (else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 (vector 2 e-15 e-16 e-17) arg-11)))))))))(else (if (null? arg-3) (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)) (let ((e-0 (car arg-3))) (let ((e-1 (cdr arg-3))) (cond ((equal? e-1 3) (case (vector-ref arg-7 0) ((1) (let ((e-3 (vector-ref arg-7 1))) (let ((e-4 (vector-ref arg-7 2))) (case (vector-ref arg-10 0) ((1) (let ((e-6 (vector-ref arg-10 1))) (let ((e-7 (vector-ref arg-10 2))) (let ((u--mode (cons e-0 3))) (let ((u--fx (vector 1 e-3 e-4))) (let ((u--fy (vector 1 e-6 e-7))) (let ((sc9 (CoreC-45Name-u--C-61C-61_Eq_Name e-4 e-7))) (cond ((equal? sc9 1) (CoreC-45Unify-unifyArgs (cons (cons (lambda (u--vars) (lambda (arg-6180) (lambda (arg-6183) (lambda (arg-6186) (lambda (arg-6187) (lambda (arg-6188) (lambda (arg-6190) (lambda (arg-6193) (lambda (eta-0) (CoreC-45Unify-u--unifyD_Unify_Closure u--vars arg-6180 arg-6183 arg-6186 arg-6187 arg-6188 arg-6190 arg-6193 eta-0)))))))))) (lambda (u--vars) (lambda (arg-6195) (lambda (arg-6198) (lambda (arg-6201) (lambda (arg-6202) (lambda (arg-6203) (lambda (arg-6205) (lambda (arg-6206) (lambda (eta-0) (CoreC-45Unify-u--unifyWithLazyD_Unify_Closure u--vars arg-6195 arg-6198 arg-6201 arg-6202 arg-6203 arg-6205 arg-6206 eta-0))))))))))) (cons (lambda (u--c) (lambda (u--vars) (lambda (arg-5827) (lambda (arg-5828) (lambda (arg-5830) (lambda (eta-0) (CoreC-45Normalise-u--quote_Quote_Closure u--c u--vars arg-5827 arg-5828 arg-5830 eta-0))))))) (lambda (u--c) (lambda (u--vars) (lambda (arg-5836) (lambda (arg-5839) (lambda (arg-5840) (lambda (arg-5842) (lambda (eta-0) (CoreC-45Normalise-u--quoteGen_Quote_Closure u--c u--vars arg-5836 arg-5839 arg-5840 arg-5842 eta-0)))))))))) arg-2 arg-0 arg-1 u--mode arg-4 arg-5 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) arg-8) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) arg-11))) (else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 u--mode arg-4 arg-5 arg-6 u--fx arg-8 (vector 1 arg-9 u--fy arg-11)))))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))) ((equal? e-1 2) (case (vector-ref arg-7 0) ((1) (let ((e-9 (vector-ref arg-7 1))) (let ((e-10 (vector-ref arg-7 2))) (case (vector-ref arg-10 0) ((1) (let ((e-12 (vector-ref arg-10 1))) (let ((e-13 (vector-ref arg-10 2))) (let ((u--mode (cons e-0 2))) (let ((u--fx (vector 1 e-9 e-10))) (let ((u--fy (vector 1 e-12 e-13))) (let ((sc9 (CoreC-45Name-u--C-61C-61_Eq_Name e-10 e-13))) (cond ((equal? sc9 1) (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-unverifiedLogC arg-0 "unify.application" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-1) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (clam-0) (lambda (eta-2) (CoreC-45Normalise-u--quote_Quote_Closure arg-0 arg-2 e-5 arg-5 clam-0 eta-2))) (PreludeC-45Types-u--map_Functor_List (lambda (eta-2) (Builtin-snd eta-2)) arg-8) '() eta-1))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Core-traverseC-39 (lambda (clam-0) (lambda (eta-2) (CoreC-45Normalise-u--quote_Quote_Closure arg-0 arg-2 e-5 arg-5 clam-0 eta-2))) (PreludeC-45Types-u--map_Functor_List (lambda (eta-2) (Builtin-snd eta-2)) arg-11) '() eta-1))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (PreludeC-45TypesC-45String-C-43C-43 "Matching args " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-2 u--d u--x)))) e-6) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-2 u--d u--x)))) e-7)))))))))))))))))) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else ((CoreC-45Unify-unifyArgs (cons (cons (lambda (u--vars) (lambda (arg-6180) (lambda (arg-6183) (lambda (arg-6186) (lambda (arg-6187) (lambda (arg-6188) (lambda (arg-6190) (lambda (arg-6193) (lambda (eta-1) (CoreC-45Unify-u--unifyD_Unify_Closure u--vars arg-6180 arg-6183 arg-6186 arg-6187 arg-6188 arg-6190 arg-6193 eta-1)))))))))) (lambda (u--vars) (lambda (arg-6195) (lambda (arg-6198) (lambda (arg-6201) (lambda (arg-6202) (lambda (arg-6203) (lambda (arg-6205) (lambda (arg-6206) (lambda (eta-1) (CoreC-45Unify-u--unifyWithLazyD_Unify_Closure u--vars arg-6195 arg-6198 arg-6201 arg-6202 arg-6203 arg-6205 arg-6206 eta-1))))))))))) (cons (lambda (u--c) (lambda (u--vars) (lambda (arg-5827) (lambda (arg-5828) (lambda (arg-5830) (lambda (eta-1) (CoreC-45Normalise-u--quote_Quote_Closure u--c u--vars arg-5827 arg-5828 arg-5830 eta-1))))))) (lambda (u--c) (lambda (u--vars) (lambda (arg-5836) (lambda (arg-5839) (lambda (arg-5840) (lambda (arg-5842) (lambda (eta-1) (CoreC-45Normalise-u--quoteGen_Quote_Closure u--c u--vars arg-5836 arg-5839 arg-5840 arg-5842 eta-1)))))))))) arg-2 arg-0 arg-1 u--mode arg-4 arg-5 (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) arg-8) (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) arg-11)) eta-0)))))) (else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 u--mode arg-4 arg-5 arg-6 u--fx arg-8 (vector 1 arg-9 u--fy arg-11)))))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))))))))))(else (case (vector-ref arg-7 0) ((0) (let ((e-20 (vector-ref arg-7 1))) (let ((e-21 (vector-ref arg-7 2))) (case (vector-ref arg-10 0) ((0) (let ((e-29 (vector-ref arg-10 1))) (let ((e-30 (vector-ref arg-10 2))) (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-log arg-0 "unify.application" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Both local apps, unifyIfEq") eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (CoreC-45Unify-unifyIfEq arg-0 arg-1 arg-2 1 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-20 e-21) arg-8) (vector 1 arg-9 (vector 0 e-29 e-30) arg-11) eta-0))))))))(else (case (vector-ref arg-10 0) ((2) (let ((e-15 (vector-ref arg-10 1))) (let ((e-16 (vector-ref arg-10 2))) (let ((e-17 (vector-ref arg-10 3))) (let ((sc6 (CoreC-45Unify-u--C-47C-61_Eq_UnifyMode (let ((e-1 (cdr arg-3))) e-1) 2))) (cond ((equal? sc6 1) (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-15 e-16 e-17) arg-11 (vector 1 arg-6 arg-7 arg-8))) (else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 (vector 2 e-15 e-16 e-17) arg-11)))))))))(else (if (null? arg-3) (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)) (let ((e-0 (car arg-3))) (let ((e-1 (cdr arg-3))) (cond ((equal? e-1 3) (case (vector-ref arg-7 0) ((1) (let ((e-3 (vector-ref arg-7 1))) (let ((e-4 (vector-ref arg-7 2))) (case (vector-ref arg-10 0) ((1) (let ((e-6 (vector-ref arg-10 1))) (let ((e-7 (vector-ref arg-10 2))) (let ((u--mode (cons e-0 3))) (let ((u--fx (vector 1 e-3 e-4))) (let ((u--fy (vector 1 e-6 e-7))) (let ((sc9 (CoreC-45Name-u--C-61C-61_Eq_Name e-4 e-7))) (cond ((equal? sc9 1) (CoreC-45Unify-unifyArgs (cons (cons (lambda (u--vars) (lambda (arg-6180) (lambda (arg-6183) (lambda (arg-6186) (lambda (arg-6187) (lambda (arg-6188) (lambda (arg-6190) (lambda (arg-6193) (lambda (eta-0) (CoreC-45Unify-u--unifyD_Unify_Closure u--vars arg-6180 arg-6183 arg-6186 arg-6187 arg-6188 arg-6190 arg-6193 eta-0)))))))))) (lambda (u--vars) (lambda (arg-6195) (lambda (arg-6198) (lambda (arg-6201) (lambda (arg-6202) (lambda (arg-6203) (lambda (arg-6205) (lambda (arg-6206) (lambda (eta-0) (CoreC-45Unify-u--unifyWithLazyD_Unify_Closure u--vars arg-6195 arg-6198 arg-6201 arg-6202 arg-6203 arg-6205 arg-6206 eta-0))))))))))) (cons (lambda (u--c) (lambda (u--vars) (lambda (arg-5827) (lambda (arg-5828) (lambda (arg-5830) (lambda (eta-0) (CoreC-45Normalise-u--quote_Quote_Closure u--c u--vars arg-5827 arg-5828 arg-5830 eta-0))))))) (lambda (u--c) (lambda (u--vars) (lambda (arg-5836) (lambda (arg-5839) (lambda (arg-5840) (lambda (arg-5842) (lambda (eta-0) (CoreC-45Normalise-u--quoteGen_Quote_Closure u--c u--vars arg-5836 arg-5839 arg-5840 arg-5842 eta-0)))))))))) arg-2 arg-0 arg-1 u--mode arg-4 arg-5 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) arg-8) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) arg-11))) (else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 u--mode arg-4 arg-5 arg-6 u--fx arg-8 (vector 1 arg-9 u--fy arg-11)))))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))) ((equal? e-1 2) (case (vector-ref arg-7 0) ((1) (let ((e-9 (vector-ref arg-7 1))) (let ((e-10 (vector-ref arg-7 2))) (case (vector-ref arg-10 0) ((1) (let ((e-12 (vector-ref arg-10 1))) (let ((e-13 (vector-ref arg-10 2))) (let ((u--mode (cons e-0 2))) (let ((u--fx (vector 1 e-9 e-10))) (let ((u--fy (vector 1 e-12 e-13))) (let ((sc9 (CoreC-45Name-u--C-61C-61_Eq_Name e-10 e-13))) (cond ((equal? sc9 1) (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-unverifiedLogC arg-0 "unify.application" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-1) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (clam-0) (lambda (eta-2) (CoreC-45Normalise-u--quote_Quote_Closure arg-0 arg-2 e-5 arg-5 clam-0 eta-2))) (PreludeC-45Types-u--map_Functor_List (lambda (eta-2) (Builtin-snd eta-2)) arg-8) '() eta-1))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Core-traverseC-39 (lambda (clam-0) (lambda (eta-2) (CoreC-45Normalise-u--quote_Quote_Closure arg-0 arg-2 e-5 arg-5 clam-0 eta-2))) (PreludeC-45Types-u--map_Functor_List (lambda (eta-2) (Builtin-snd eta-2)) arg-11) '() eta-1))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (PreludeC-45TypesC-45String-C-43C-43 "Matching args " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-2 u--d u--x)))) e-6) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-2 u--d u--x)))) e-7)))))))))))))))))) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else ((CoreC-45Unify-unifyArgs (cons (cons (lambda (u--vars) (lambda (arg-6180) (lambda (arg-6183) (lambda (arg-6186) (lambda (arg-6187) (lambda (arg-6188) (lambda (arg-6190) (lambda (arg-6193) (lambda (eta-1) (CoreC-45Unify-u--unifyD_Unify_Closure u--vars arg-6180 arg-6183 arg-6186 arg-6187 arg-6188 arg-6190 arg-6193 eta-1)))))))))) (lambda (u--vars) (lambda (arg-6195) (lambda (arg-6198) (lambda (arg-6201) (lambda (arg-6202) (lambda (arg-6203) (lambda (arg-6205) (lambda (arg-6206) (lambda (eta-1) (CoreC-45Unify-u--unifyWithLazyD_Unify_Closure u--vars arg-6195 arg-6198 arg-6201 arg-6202 arg-6203 arg-6205 arg-6206 eta-1))))))))))) (cons (lambda (u--c) (lambda (u--vars) (lambda (arg-5827) (lambda (arg-5828) (lambda (arg-5830) (lambda (eta-1) (CoreC-45Normalise-u--quote_Quote_Closure u--c u--vars arg-5827 arg-5828 arg-5830 eta-1))))))) (lambda (u--c) (lambda (u--vars) (lambda (arg-5836) (lambda (arg-5839) (lambda (arg-5840) (lambda (arg-5842) (lambda (eta-1) (CoreC-45Normalise-u--quoteGen_Quote_Closure u--c u--vars arg-5836 arg-5839 arg-5840 arg-5842 eta-1)))))))))) arg-2 arg-0 arg-1 u--mode arg-4 arg-5 (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) arg-8) (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) arg-11)) eta-0)))))) (else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 u--mode arg-4 arg-5 arg-6 u--fx arg-8 (vector 1 arg-9 u--fy arg-11)))))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))) ((2) (let ((e-24 (vector-ref arg-7 1))) (let ((e-25 (vector-ref arg-7 2))) (let ((e-26 (vector-ref arg-7 3))) (case (vector-ref arg-10 0) ((2) (let ((e-33 (vector-ref arg-10 1))) (let ((e-34 (vector-ref arg-10 2))) (let ((e-35 (vector-ref arg-10 3))) (lambda (eta-0) (let ((act-24 (CoreC-45Unify-isDefInvertible arg-0 arg-4 e-25 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((sc7 (let ((sc8 (PreludeC-45EqOrd-u--C-61C-61_Eq_Int e-25 e-34))) (cond ((equal? sc8 1) (cond ((equal? e-5 1) 1) (else (CoreC-45Unify-u--C-61C-61_Eq_UnifyMode (let ((e-1 (cdr arg-3))) e-1) 3)))) (else 0))))) (cond ((equal? sc7 1) ((CoreC-45Unify-unifyArgs (cons (cons (lambda (u--vars) (lambda (arg-6180) (lambda (arg-6183) (lambda (arg-6186) (lambda (arg-6187) (lambda (arg-6188) (lambda (arg-6190) (lambda (arg-6193) (lambda (eta-1) (CoreC-45Unify-u--unifyD_Unify_Closure u--vars arg-6180 arg-6183 arg-6186 arg-6187 arg-6188 arg-6190 arg-6193 eta-1)))))))))) (lambda (u--vars) (lambda (arg-6195) (lambda (arg-6198) (lambda (arg-6201) (lambda (arg-6202) (lambda (arg-6203) (lambda (arg-6205) (lambda (arg-6206) (lambda (eta-1) (CoreC-45Unify-u--unifyWithLazyD_Unify_Closure u--vars arg-6195 arg-6198 arg-6201 arg-6202 arg-6203 arg-6205 arg-6206 eta-1))))))))))) (cons (lambda (u--c) (lambda (u--vars) (lambda (arg-5827) (lambda (arg-5828) (lambda (arg-5830) (lambda (eta-1) (CoreC-45Normalise-u--quote_Quote_Closure u--c u--vars arg-5827 arg-5828 arg-5830 eta-1))))))) (lambda (u--c) (lambda (u--vars) (lambda (arg-5836) (lambda (arg-5839) (lambda (arg-5840) (lambda (arg-5842) (lambda (eta-1) (CoreC-45Normalise-u--quoteGen_Quote_Closure u--c u--vars arg-5836 arg-5839 arg-5840 arg-5842 eta-1)))))))))) arg-2 arg-0 arg-1 arg-3 arg-4 arg-5 (PreludeC-45TypesC-45List-C-43C-43 e-26 (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) arg-8)) (PreludeC-45TypesC-45List-C-43C-43 e-35 (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) arg-11))) eta-0)) (else (let ((act-25 (CoreC-45Unify-n--11762-14569-u--localsIn arg-2 e-26 e-25 e-24 e-35 e-34 e-33 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-26 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Unify-n--11762-14569-u--localsIn arg-2 e-26 e-25 e-24 e-35 e-34 e-33 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-35 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((u--xbigger (let ((sc10 (PreludeC-45Types-u--C-62_Ord_Nat e-6 e-7))) (cond ((equal? sc10 1) 1) (else (let ((sc11 (PreludeC-45Types-u--C-61C-61_Eq_Nat e-6 e-7))) (cond ((equal? sc11 1) (PreludeC-45Types-u--C-60C-61_Ord_Nat (PreludeC-45TypesC-45List-length arg-8) (PreludeC-45TypesC-45List-length arg-11))) (else 0)))))))) (let ((sc10 (let ((sc11 (cond ((equal? u--xbigger 1) 1) (else (CoreC-45Unify-u--C-61C-61_Eq_UnifyMode (let ((e-1 (cdr arg-3))) e-1) 2))))) (cond ((equal? sc11 1) (let ((sc12 (CoreC-45Unify-n--11762-14568-u--pv arg-2 e-26 e-25 e-24 e-35 e-34 e-33 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-24))) (cond ((equal? sc12 1) 0) (else 1)))) (else 0))))) (cond ((equal? sc10 1) ((CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 (vector 2 e-24 e-25 e-26) arg-8 (vector 1 arg-9 (vector 2 e-33 e-34 e-35) arg-11)) eta-0)) (else ((CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-9 (vector 2 e-33 e-34 e-35) arg-11 (vector 1 arg-6 (vector 2 e-24 e-25 e-26) arg-8)) eta-0)))))))))))))))))))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 (vector 2 e-24 e-25 e-26) arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (case (vector-ref arg-10 0) ((2) (let ((e-15 (vector-ref arg-10 1))) (let ((e-16 (vector-ref arg-10 2))) (let ((e-17 (vector-ref arg-10 3))) (let ((sc5 (CoreC-45Unify-u--C-47C-61_Eq_UnifyMode (let ((e-1 (cdr arg-3))) e-1) 2))) (cond ((equal? sc5 1) (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-15 e-16 e-17) arg-11 (vector 1 arg-6 arg-7 arg-8))) (else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 (vector 2 e-15 e-16 e-17) arg-11)))))))))(else (if (null? arg-3) (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)) (let ((e-0 (car arg-3))) (let ((e-1 (cdr arg-3))) (cond ((equal? e-1 3) (case (vector-ref arg-7 0) ((1) (let ((e-3 (vector-ref arg-7 1))) (let ((e-4 (vector-ref arg-7 2))) (case (vector-ref arg-10 0) ((1) (let ((e-6 (vector-ref arg-10 1))) (let ((e-7 (vector-ref arg-10 2))) (let ((u--mode (cons e-0 3))) (let ((u--fx (vector 1 e-3 e-4))) (let ((u--fy (vector 1 e-6 e-7))) (let ((sc8 (CoreC-45Name-u--C-61C-61_Eq_Name e-4 e-7))) (cond ((equal? sc8 1) (CoreC-45Unify-unifyArgs (cons (cons (lambda (u--vars) (lambda (arg-6180) (lambda (arg-6183) (lambda (arg-6186) (lambda (arg-6187) (lambda (arg-6188) (lambda (arg-6190) (lambda (arg-6193) (lambda (eta-0) (CoreC-45Unify-u--unifyD_Unify_Closure u--vars arg-6180 arg-6183 arg-6186 arg-6187 arg-6188 arg-6190 arg-6193 eta-0)))))))))) (lambda (u--vars) (lambda (arg-6195) (lambda (arg-6198) (lambda (arg-6201) (lambda (arg-6202) (lambda (arg-6203) (lambda (arg-6205) (lambda (arg-6206) (lambda (eta-0) (CoreC-45Unify-u--unifyWithLazyD_Unify_Closure u--vars arg-6195 arg-6198 arg-6201 arg-6202 arg-6203 arg-6205 arg-6206 eta-0))))))))))) (cons (lambda (u--c) (lambda (u--vars) (lambda (arg-5827) (lambda (arg-5828) (lambda (arg-5830) (lambda (eta-0) (CoreC-45Normalise-u--quote_Quote_Closure u--c u--vars arg-5827 arg-5828 arg-5830 eta-0))))))) (lambda (u--c) (lambda (u--vars) (lambda (arg-5836) (lambda (arg-5839) (lambda (arg-5840) (lambda (arg-5842) (lambda (eta-0) (CoreC-45Normalise-u--quoteGen_Quote_Closure u--c u--vars arg-5836 arg-5839 arg-5840 arg-5842 eta-0)))))))))) arg-2 arg-0 arg-1 u--mode arg-4 arg-5 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) arg-8) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) arg-11))) (else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 u--mode arg-4 arg-5 arg-6 u--fx arg-8 (vector 1 arg-9 u--fy arg-11)))))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))) ((equal? e-1 2) (case (vector-ref arg-7 0) ((1) (let ((e-9 (vector-ref arg-7 1))) (let ((e-10 (vector-ref arg-7 2))) (case (vector-ref arg-10 0) ((1) (let ((e-12 (vector-ref arg-10 1))) (let ((e-13 (vector-ref arg-10 2))) (let ((u--mode (cons e-0 2))) (let ((u--fx (vector 1 e-9 e-10))) (let ((u--fy (vector 1 e-12 e-13))) (let ((sc8 (CoreC-45Name-u--C-61C-61_Eq_Name e-10 e-13))) (cond ((equal? sc8 1) (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-unverifiedLogC arg-0 "unify.application" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-1) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (clam-0) (lambda (eta-2) (CoreC-45Normalise-u--quote_Quote_Closure arg-0 arg-2 e-5 arg-5 clam-0 eta-2))) (PreludeC-45Types-u--map_Functor_List (lambda (eta-2) (Builtin-snd eta-2)) arg-8) '() eta-1))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Core-traverseC-39 (lambda (clam-0) (lambda (eta-2) (CoreC-45Normalise-u--quote_Quote_Closure arg-0 arg-2 e-5 arg-5 clam-0 eta-2))) (PreludeC-45Types-u--map_Functor_List (lambda (eta-2) (Builtin-snd eta-2)) arg-11) '() eta-1))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (PreludeC-45TypesC-45String-C-43C-43 "Matching args " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-2 u--d u--x)))) e-6) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-2 u--d u--x)))) e-7)))))))))))))))))) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else ((CoreC-45Unify-unifyArgs (cons (cons (lambda (u--vars) (lambda (arg-6180) (lambda (arg-6183) (lambda (arg-6186) (lambda (arg-6187) (lambda (arg-6188) (lambda (arg-6190) (lambda (arg-6193) (lambda (eta-1) (CoreC-45Unify-u--unifyD_Unify_Closure u--vars arg-6180 arg-6183 arg-6186 arg-6187 arg-6188 arg-6190 arg-6193 eta-1)))))))))) (lambda (u--vars) (lambda (arg-6195) (lambda (arg-6198) (lambda (arg-6201) (lambda (arg-6202) (lambda (arg-6203) (lambda (arg-6205) (lambda (arg-6206) (lambda (eta-1) (CoreC-45Unify-u--unifyWithLazyD_Unify_Closure u--vars arg-6195 arg-6198 arg-6201 arg-6202 arg-6203 arg-6205 arg-6206 eta-1))))))))))) (cons (lambda (u--c) (lambda (u--vars) (lambda (arg-5827) (lambda (arg-5828) (lambda (arg-5830) (lambda (eta-1) (CoreC-45Normalise-u--quote_Quote_Closure u--c u--vars arg-5827 arg-5828 arg-5830 eta-1))))))) (lambda (u--c) (lambda (u--vars) (lambda (arg-5836) (lambda (arg-5839) (lambda (arg-5840) (lambda (arg-5842) (lambda (eta-1) (CoreC-45Normalise-u--quoteGen_Quote_Closure u--c u--vars arg-5836 arg-5839 arg-5840 arg-5842 eta-1)))))))))) arg-2 arg-0 arg-1 u--mode arg-4 arg-5 (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) arg-8) (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) arg-11)) eta-0)))))) (else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 u--mode arg-4 arg-5 arg-6 u--fx arg-8 (vector 1 arg-9 u--fy arg-11)))))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))))))))(else (case (vector-ref arg-7 0) ((0) (let ((e-20 (vector-ref arg-7 1))) (let ((e-21 (vector-ref arg-7 2))) (case (vector-ref arg-10 0) ((0) (let ((e-29 (vector-ref arg-10 1))) (let ((e-30 (vector-ref arg-10 2))) (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-log arg-0 "unify.application" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Both local apps, unifyIfEq") eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (CoreC-45Unify-unifyIfEq arg-0 arg-1 arg-2 1 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-20 e-21) arg-8) (vector 1 arg-9 (vector 0 e-29 e-30) arg-11) eta-0))))))))(else (case (vector-ref arg-10 0) ((2) (let ((e-15 (vector-ref arg-10 1))) (let ((e-16 (vector-ref arg-10 2))) (let ((e-17 (vector-ref arg-10 3))) (let ((sc5 (CoreC-45Unify-u--C-47C-61_Eq_UnifyMode (let ((e-1 (cdr arg-3))) e-1) 2))) (cond ((equal? sc5 1) (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-15 e-16 e-17) arg-11 (vector 1 arg-6 arg-7 arg-8))) (else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 (vector 2 e-15 e-16 e-17) arg-11)))))))))(else (if (null? arg-3) (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)) (let ((e-0 (car arg-3))) (let ((e-1 (cdr arg-3))) (cond ((equal? e-1 3) (case (vector-ref arg-7 0) ((1) (let ((e-3 (vector-ref arg-7 1))) (let ((e-4 (vector-ref arg-7 2))) (case (vector-ref arg-10 0) ((1) (let ((e-6 (vector-ref arg-10 1))) (let ((e-7 (vector-ref arg-10 2))) (let ((u--mode (cons e-0 3))) (let ((u--fx (vector 1 e-3 e-4))) (let ((u--fy (vector 1 e-6 e-7))) (let ((sc8 (CoreC-45Name-u--C-61C-61_Eq_Name e-4 e-7))) (cond ((equal? sc8 1) (CoreC-45Unify-unifyArgs (cons (cons (lambda (u--vars) (lambda (arg-6180) (lambda (arg-6183) (lambda (arg-6186) (lambda (arg-6187) (lambda (arg-6188) (lambda (arg-6190) (lambda (arg-6193) (lambda (eta-0) (CoreC-45Unify-u--unifyD_Unify_Closure u--vars arg-6180 arg-6183 arg-6186 arg-6187 arg-6188 arg-6190 arg-6193 eta-0)))))))))) (lambda (u--vars) (lambda (arg-6195) (lambda (arg-6198) (lambda (arg-6201) (lambda (arg-6202) (lambda (arg-6203) (lambda (arg-6205) (lambda (arg-6206) (lambda (eta-0) (CoreC-45Unify-u--unifyWithLazyD_Unify_Closure u--vars arg-6195 arg-6198 arg-6201 arg-6202 arg-6203 arg-6205 arg-6206 eta-0))))))))))) (cons (lambda (u--c) (lambda (u--vars) (lambda (arg-5827) (lambda (arg-5828) (lambda (arg-5830) (lambda (eta-0) (CoreC-45Normalise-u--quote_Quote_Closure u--c u--vars arg-5827 arg-5828 arg-5830 eta-0))))))) (lambda (u--c) (lambda (u--vars) (lambda (arg-5836) (lambda (arg-5839) (lambda (arg-5840) (lambda (arg-5842) (lambda (eta-0) (CoreC-45Normalise-u--quoteGen_Quote_Closure u--c u--vars arg-5836 arg-5839 arg-5840 arg-5842 eta-0)))))))))) arg-2 arg-0 arg-1 u--mode arg-4 arg-5 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) arg-8) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) arg-11))) (else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 u--mode arg-4 arg-5 arg-6 u--fx arg-8 (vector 1 arg-9 u--fy arg-11)))))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))) ((equal? e-1 2) (case (vector-ref arg-7 0) ((1) (let ((e-9 (vector-ref arg-7 1))) (let ((e-10 (vector-ref arg-7 2))) (case (vector-ref arg-10 0) ((1) (let ((e-12 (vector-ref arg-10 1))) (let ((e-13 (vector-ref arg-10 2))) (let ((u--mode (cons e-0 2))) (let ((u--fx (vector 1 e-9 e-10))) (let ((u--fy (vector 1 e-12 e-13))) (let ((sc8 (CoreC-45Name-u--C-61C-61_Eq_Name e-10 e-13))) (cond ((equal? sc8 1) (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-unverifiedLogC arg-0 "unify.application" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-1) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (clam-0) (lambda (eta-2) (CoreC-45Normalise-u--quote_Quote_Closure arg-0 arg-2 e-5 arg-5 clam-0 eta-2))) (PreludeC-45Types-u--map_Functor_List (lambda (eta-2) (Builtin-snd eta-2)) arg-8) '() eta-1))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Core-traverseC-39 (lambda (clam-0) (lambda (eta-2) (CoreC-45Normalise-u--quote_Quote_Closure arg-0 arg-2 e-5 arg-5 clam-0 eta-2))) (PreludeC-45Types-u--map_Functor_List (lambda (eta-2) (Builtin-snd eta-2)) arg-11) '() eta-1))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (PreludeC-45TypesC-45String-C-43C-43 "Matching args " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-2 u--d u--x)))) e-6) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-2 u--d u--x)))) e-7)))))))))))))))))) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else ((CoreC-45Unify-unifyArgs (cons (cons (lambda (u--vars) (lambda (arg-6180) (lambda (arg-6183) (lambda (arg-6186) (lambda (arg-6187) (lambda (arg-6188) (lambda (arg-6190) (lambda (arg-6193) (lambda (eta-1) (CoreC-45Unify-u--unifyD_Unify_Closure u--vars arg-6180 arg-6183 arg-6186 arg-6187 arg-6188 arg-6190 arg-6193 eta-1)))))))))) (lambda (u--vars) (lambda (arg-6195) (lambda (arg-6198) (lambda (arg-6201) (lambda (arg-6202) (lambda (arg-6203) (lambda (arg-6205) (lambda (arg-6206) (lambda (eta-1) (CoreC-45Unify-u--unifyWithLazyD_Unify_Closure u--vars arg-6195 arg-6198 arg-6201 arg-6202 arg-6203 arg-6205 arg-6206 eta-1))))))))))) (cons (lambda (u--c) (lambda (u--vars) (lambda (arg-5827) (lambda (arg-5828) (lambda (arg-5830) (lambda (eta-1) (CoreC-45Normalise-u--quote_Quote_Closure u--c u--vars arg-5827 arg-5828 arg-5830 eta-1))))))) (lambda (u--c) (lambda (u--vars) (lambda (arg-5836) (lambda (arg-5839) (lambda (arg-5840) (lambda (arg-5842) (lambda (eta-1) (CoreC-45Normalise-u--quoteGen_Quote_Closure u--c u--vars arg-5836 arg-5839 arg-5840 arg-5842 eta-1)))))))))) arg-2 arg-0 arg-1 u--mode arg-4 arg-5 (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) arg-8) (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) arg-11)) eta-0)))))) (else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 u--mode arg-4 arg-5 arg-6 u--fx arg-8 (vector 1 arg-9 u--fy arg-11)))))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))) ((2) (let ((e-24 (vector-ref arg-7 1))) (let ((e-25 (vector-ref arg-7 2))) (let ((e-26 (vector-ref arg-7 3))) (case (vector-ref arg-10 0) ((2) (let ((e-33 (vector-ref arg-10 1))) (let ((e-34 (vector-ref arg-10 2))) (let ((e-35 (vector-ref arg-10 3))) (lambda (eta-0) (let ((act-24 (CoreC-45Unify-isDefInvertible arg-0 arg-4 e-25 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((sc6 (let ((sc7 (PreludeC-45EqOrd-u--C-61C-61_Eq_Int e-25 e-34))) (cond ((equal? sc7 1) (cond ((equal? e-5 1) 1) (else (CoreC-45Unify-u--C-61C-61_Eq_UnifyMode (let ((e-1 (cdr arg-3))) e-1) 3)))) (else 0))))) (cond ((equal? sc6 1) ((CoreC-45Unify-unifyArgs (cons (cons (lambda (u--vars) (lambda (arg-6180) (lambda (arg-6183) (lambda (arg-6186) (lambda (arg-6187) (lambda (arg-6188) (lambda (arg-6190) (lambda (arg-6193) (lambda (eta-1) (CoreC-45Unify-u--unifyD_Unify_Closure u--vars arg-6180 arg-6183 arg-6186 arg-6187 arg-6188 arg-6190 arg-6193 eta-1)))))))))) (lambda (u--vars) (lambda (arg-6195) (lambda (arg-6198) (lambda (arg-6201) (lambda (arg-6202) (lambda (arg-6203) (lambda (arg-6205) (lambda (arg-6206) (lambda (eta-1) (CoreC-45Unify-u--unifyWithLazyD_Unify_Closure u--vars arg-6195 arg-6198 arg-6201 arg-6202 arg-6203 arg-6205 arg-6206 eta-1))))))))))) (cons (lambda (u--c) (lambda (u--vars) (lambda (arg-5827) (lambda (arg-5828) (lambda (arg-5830) (lambda (eta-1) (CoreC-45Normalise-u--quote_Quote_Closure u--c u--vars arg-5827 arg-5828 arg-5830 eta-1))))))) (lambda (u--c) (lambda (u--vars) (lambda (arg-5836) (lambda (arg-5839) (lambda (arg-5840) (lambda (arg-5842) (lambda (eta-1) (CoreC-45Normalise-u--quoteGen_Quote_Closure u--c u--vars arg-5836 arg-5839 arg-5840 arg-5842 eta-1)))))))))) arg-2 arg-0 arg-1 arg-3 arg-4 arg-5 (PreludeC-45TypesC-45List-C-43C-43 e-26 (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) arg-8)) (PreludeC-45TypesC-45List-C-43C-43 e-35 (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) arg-11))) eta-0)) (else (let ((act-25 (CoreC-45Unify-n--11762-14569-u--localsIn arg-2 e-26 e-25 e-24 e-35 e-34 e-33 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-26 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Unify-n--11762-14569-u--localsIn arg-2 e-26 e-25 e-24 e-35 e-34 e-33 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-35 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((u--xbigger (let ((sc9 (PreludeC-45Types-u--C-62_Ord_Nat e-6 e-7))) (cond ((equal? sc9 1) 1) (else (let ((sc10 (PreludeC-45Types-u--C-61C-61_Eq_Nat e-6 e-7))) (cond ((equal? sc10 1) (PreludeC-45Types-u--C-60C-61_Ord_Nat (PreludeC-45TypesC-45List-length arg-8) (PreludeC-45TypesC-45List-length arg-11))) (else 0)))))))) (let ((sc9 (let ((sc10 (cond ((equal? u--xbigger 1) 1) (else (CoreC-45Unify-u--C-61C-61_Eq_UnifyMode (let ((e-1 (cdr arg-3))) e-1) 2))))) (cond ((equal? sc10 1) (let ((sc11 (CoreC-45Unify-n--11762-14568-u--pv arg-2 e-26 e-25 e-24 e-35 e-34 e-33 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-24))) (cond ((equal? sc11 1) 0) (else 1)))) (else 0))))) (cond ((equal? sc9 1) ((CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 (vector 2 e-24 e-25 e-26) arg-8 (vector 1 arg-9 (vector 2 e-33 e-34 e-35) arg-11)) eta-0)) (else ((CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-9 (vector 2 e-33 e-34 e-35) arg-11 (vector 1 arg-6 (vector 2 e-24 e-25 e-26) arg-8)) eta-0)))))))))))))))))))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 (vector 2 e-24 e-25 e-26) arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (case (vector-ref arg-10 0) ((2) (let ((e-15 (vector-ref arg-10 1))) (let ((e-16 (vector-ref arg-10 2))) (let ((e-17 (vector-ref arg-10 3))) (let ((sc4 (CoreC-45Unify-u--C-47C-61_Eq_UnifyMode (let ((e-1 (cdr arg-3))) e-1) 2))) (cond ((equal? sc4 1) (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-15 e-16 e-17) arg-11 (vector 1 arg-6 arg-7 arg-8))) (else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 (vector 2 e-15 e-16 e-17) arg-11)))))))))(else (if (null? arg-3) (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)) (let ((e-0 (car arg-3))) (let ((e-1 (cdr arg-3))) (cond ((equal? e-1 3) (case (vector-ref arg-7 0) ((1) (let ((e-3 (vector-ref arg-7 1))) (let ((e-4 (vector-ref arg-7 2))) (case (vector-ref arg-10 0) ((1) (let ((e-6 (vector-ref arg-10 1))) (let ((e-7 (vector-ref arg-10 2))) (let ((u--mode (cons e-0 3))) (let ((u--fx (vector 1 e-3 e-4))) (let ((u--fy (vector 1 e-6 e-7))) (let ((sc7 (CoreC-45Name-u--C-61C-61_Eq_Name e-4 e-7))) (cond ((equal? sc7 1) (CoreC-45Unify-unifyArgs (cons (cons (lambda (u--vars) (lambda (arg-6180) (lambda (arg-6183) (lambda (arg-6186) (lambda (arg-6187) (lambda (arg-6188) (lambda (arg-6190) (lambda (arg-6193) (lambda (eta-0) (CoreC-45Unify-u--unifyD_Unify_Closure u--vars arg-6180 arg-6183 arg-6186 arg-6187 arg-6188 arg-6190 arg-6193 eta-0)))))))))) (lambda (u--vars) (lambda (arg-6195) (lambda (arg-6198) (lambda (arg-6201) (lambda (arg-6202) (lambda (arg-6203) (lambda (arg-6205) (lambda (arg-6206) (lambda (eta-0) (CoreC-45Unify-u--unifyWithLazyD_Unify_Closure u--vars arg-6195 arg-6198 arg-6201 arg-6202 arg-6203 arg-6205 arg-6206 eta-0))))))))))) (cons (lambda (u--c) (lambda (u--vars) (lambda (arg-5827) (lambda (arg-5828) (lambda (arg-5830) (lambda (eta-0) (CoreC-45Normalise-u--quote_Quote_Closure u--c u--vars arg-5827 arg-5828 arg-5830 eta-0))))))) (lambda (u--c) (lambda (u--vars) (lambda (arg-5836) (lambda (arg-5839) (lambda (arg-5840) (lambda (arg-5842) (lambda (eta-0) (CoreC-45Normalise-u--quoteGen_Quote_Closure u--c u--vars arg-5836 arg-5839 arg-5840 arg-5842 eta-0)))))))))) arg-2 arg-0 arg-1 u--mode arg-4 arg-5 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) arg-8) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) arg-11))) (else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 u--mode arg-4 arg-5 arg-6 u--fx arg-8 (vector 1 arg-9 u--fy arg-11)))))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))) ((equal? e-1 2) (case (vector-ref arg-7 0) ((1) (let ((e-9 (vector-ref arg-7 1))) (let ((e-10 (vector-ref arg-7 2))) (case (vector-ref arg-10 0) ((1) (let ((e-12 (vector-ref arg-10 1))) (let ((e-13 (vector-ref arg-10 2))) (let ((u--mode (cons e-0 2))) (let ((u--fx (vector 1 e-9 e-10))) (let ((u--fy (vector 1 e-12 e-13))) (let ((sc7 (CoreC-45Name-u--C-61C-61_Eq_Name e-10 e-13))) (cond ((equal? sc7 1) (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-unverifiedLogC arg-0 "unify.application" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-1) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (clam-0) (lambda (eta-2) (CoreC-45Normalise-u--quote_Quote_Closure arg-0 arg-2 e-5 arg-5 clam-0 eta-2))) (PreludeC-45Types-u--map_Functor_List (lambda (eta-2) (Builtin-snd eta-2)) arg-8) '() eta-1))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Core-traverseC-39 (lambda (clam-0) (lambda (eta-2) (CoreC-45Normalise-u--quote_Quote_Closure arg-0 arg-2 e-5 arg-5 clam-0 eta-2))) (PreludeC-45Types-u--map_Functor_List (lambda (eta-2) (Builtin-snd eta-2)) arg-11) '() eta-1))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (PreludeC-45TypesC-45String-C-43C-43 "Matching args " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-2 u--d u--x)))) e-6) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-2 u--d u--x)))) e-7)))))))))))))))))) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else ((CoreC-45Unify-unifyArgs (cons (cons (lambda (u--vars) (lambda (arg-6180) (lambda (arg-6183) (lambda (arg-6186) (lambda (arg-6187) (lambda (arg-6188) (lambda (arg-6190) (lambda (arg-6193) (lambda (eta-1) (CoreC-45Unify-u--unifyD_Unify_Closure u--vars arg-6180 arg-6183 arg-6186 arg-6187 arg-6188 arg-6190 arg-6193 eta-1)))))))))) (lambda (u--vars) (lambda (arg-6195) (lambda (arg-6198) (lambda (arg-6201) (lambda (arg-6202) (lambda (arg-6203) (lambda (arg-6205) (lambda (arg-6206) (lambda (eta-1) (CoreC-45Unify-u--unifyWithLazyD_Unify_Closure u--vars arg-6195 arg-6198 arg-6201 arg-6202 arg-6203 arg-6205 arg-6206 eta-1))))))))))) (cons (lambda (u--c) (lambda (u--vars) (lambda (arg-5827) (lambda (arg-5828) (lambda (arg-5830) (lambda (eta-1) (CoreC-45Normalise-u--quote_Quote_Closure u--c u--vars arg-5827 arg-5828 arg-5830 eta-1))))))) (lambda (u--c) (lambda (u--vars) (lambda (arg-5836) (lambda (arg-5839) (lambda (arg-5840) (lambda (arg-5842) (lambda (eta-1) (CoreC-45Normalise-u--quoteGen_Quote_Closure u--c u--vars arg-5836 arg-5839 arg-5840 arg-5842 eta-1)))))))))) arg-2 arg-0 arg-1 u--mode arg-4 arg-5 (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) arg-8) (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) arg-11)) eta-0)))))) (else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 u--mode arg-4 arg-5 arg-6 u--fx arg-8 (vector 1 arg-9 u--fy arg-11)))))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))))))) (if (null? arg-3) (case (vector-ref arg-7 0) ((0) (let ((e-20 (vector-ref arg-7 1))) (let ((e-21 (vector-ref arg-7 2))) (case (vector-ref arg-10 0) ((0) (let ((e-29 (vector-ref arg-10 1))) (let ((e-30 (vector-ref arg-10 2))) (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-log arg-0 "unify.application" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Both local apps, unifyIfEq") eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (CoreC-45Unify-unifyIfEq arg-0 arg-1 arg-2 1 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-20 e-21) arg-8) (vector 1 arg-9 (vector 0 e-29 e-30) arg-11) eta-0))))))))(else (case (vector-ref arg-10 0) ((2) (let ((e-15 (vector-ref arg-10 1))) (let ((e-16 (vector-ref arg-10 2))) (let ((e-17 (vector-ref arg-10 3))) (let ((sc5 (CoreC-45Unify-u--C-47C-61_Eq_UnifyMode (let ((e-1 (cdr arg-3))) e-1) 2))) (cond ((equal? sc5 1) (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-15 e-16 e-17) arg-11 (vector 1 arg-6 arg-7 arg-8))) (else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 (vector 2 e-15 e-16 e-17) arg-11)))))))))(else (if (null? arg-3) (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)) (let ((e-0 (car arg-3))) (let ((e-1 (cdr arg-3))) (cond ((equal? e-1 3) (case (vector-ref arg-7 0) ((1) (let ((e-3 (vector-ref arg-7 1))) (let ((e-4 (vector-ref arg-7 2))) (case (vector-ref arg-10 0) ((1) (let ((e-6 (vector-ref arg-10 1))) (let ((e-7 (vector-ref arg-10 2))) (let ((u--mode (cons e-0 3))) (let ((u--fx (vector 1 e-3 e-4))) (let ((u--fy (vector 1 e-6 e-7))) (let ((sc8 (CoreC-45Name-u--C-61C-61_Eq_Name e-4 e-7))) (cond ((equal? sc8 1) (CoreC-45Unify-unifyArgs (cons (cons (lambda (u--vars) (lambda (arg-6180) (lambda (arg-6183) (lambda (arg-6186) (lambda (arg-6187) (lambda (arg-6188) (lambda (arg-6190) (lambda (arg-6193) (lambda (eta-0) (CoreC-45Unify-u--unifyD_Unify_Closure u--vars arg-6180 arg-6183 arg-6186 arg-6187 arg-6188 arg-6190 arg-6193 eta-0)))))))))) (lambda (u--vars) (lambda (arg-6195) (lambda (arg-6198) (lambda (arg-6201) (lambda (arg-6202) (lambda (arg-6203) (lambda (arg-6205) (lambda (arg-6206) (lambda (eta-0) (CoreC-45Unify-u--unifyWithLazyD_Unify_Closure u--vars arg-6195 arg-6198 arg-6201 arg-6202 arg-6203 arg-6205 arg-6206 eta-0))))))))))) (cons (lambda (u--c) (lambda (u--vars) (lambda (arg-5827) (lambda (arg-5828) (lambda (arg-5830) (lambda (eta-0) (CoreC-45Normalise-u--quote_Quote_Closure u--c u--vars arg-5827 arg-5828 arg-5830 eta-0))))))) (lambda (u--c) (lambda (u--vars) (lambda (arg-5836) (lambda (arg-5839) (lambda (arg-5840) (lambda (arg-5842) (lambda (eta-0) (CoreC-45Normalise-u--quoteGen_Quote_Closure u--c u--vars arg-5836 arg-5839 arg-5840 arg-5842 eta-0)))))))))) arg-2 arg-0 arg-1 u--mode arg-4 arg-5 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) arg-8) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) arg-11))) (else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 u--mode arg-4 arg-5 arg-6 u--fx arg-8 (vector 1 arg-9 u--fy arg-11)))))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))) ((equal? e-1 2) (case (vector-ref arg-7 0) ((1) (let ((e-9 (vector-ref arg-7 1))) (let ((e-10 (vector-ref arg-7 2))) (case (vector-ref arg-10 0) ((1) (let ((e-12 (vector-ref arg-10 1))) (let ((e-13 (vector-ref arg-10 2))) (let ((u--mode (cons e-0 2))) (let ((u--fx (vector 1 e-9 e-10))) (let ((u--fy (vector 1 e-12 e-13))) (let ((sc8 (CoreC-45Name-u--C-61C-61_Eq_Name e-10 e-13))) (cond ((equal? sc8 1) (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-unverifiedLogC arg-0 "unify.application" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-1) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (clam-0) (lambda (eta-2) (CoreC-45Normalise-u--quote_Quote_Closure arg-0 arg-2 e-5 arg-5 clam-0 eta-2))) (PreludeC-45Types-u--map_Functor_List (lambda (eta-2) (Builtin-snd eta-2)) arg-8) '() eta-1))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Core-traverseC-39 (lambda (clam-0) (lambda (eta-2) (CoreC-45Normalise-u--quote_Quote_Closure arg-0 arg-2 e-5 arg-5 clam-0 eta-2))) (PreludeC-45Types-u--map_Functor_List (lambda (eta-2) (Builtin-snd eta-2)) arg-11) '() eta-1))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (PreludeC-45TypesC-45String-C-43C-43 "Matching args " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-2 u--d u--x)))) e-6) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-2 u--d u--x)))) e-7)))))))))))))))))) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else ((CoreC-45Unify-unifyArgs (cons (cons (lambda (u--vars) (lambda (arg-6180) (lambda (arg-6183) (lambda (arg-6186) (lambda (arg-6187) (lambda (arg-6188) (lambda (arg-6190) (lambda (arg-6193) (lambda (eta-1) (CoreC-45Unify-u--unifyD_Unify_Closure u--vars arg-6180 arg-6183 arg-6186 arg-6187 arg-6188 arg-6190 arg-6193 eta-1)))))))))) (lambda (u--vars) (lambda (arg-6195) (lambda (arg-6198) (lambda (arg-6201) (lambda (arg-6202) (lambda (arg-6203) (lambda (arg-6205) (lambda (arg-6206) (lambda (eta-1) (CoreC-45Unify-u--unifyWithLazyD_Unify_Closure u--vars arg-6195 arg-6198 arg-6201 arg-6202 arg-6203 arg-6205 arg-6206 eta-1))))))))))) (cons (lambda (u--c) (lambda (u--vars) (lambda (arg-5827) (lambda (arg-5828) (lambda (arg-5830) (lambda (eta-1) (CoreC-45Normalise-u--quote_Quote_Closure u--c u--vars arg-5827 arg-5828 arg-5830 eta-1))))))) (lambda (u--c) (lambda (u--vars) (lambda (arg-5836) (lambda (arg-5839) (lambda (arg-5840) (lambda (arg-5842) (lambda (eta-1) (CoreC-45Normalise-u--quoteGen_Quote_Closure u--c u--vars arg-5836 arg-5839 arg-5840 arg-5842 eta-1)))))))))) arg-2 arg-0 arg-1 u--mode arg-4 arg-5 (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) arg-8) (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) arg-11)) eta-0)))))) (else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 u--mode arg-4 arg-5 arg-6 u--fx arg-8 (vector 1 arg-9 u--fy arg-11)))))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))) ((2) (let ((e-24 (vector-ref arg-7 1))) (let ((e-25 (vector-ref arg-7 2))) (let ((e-26 (vector-ref arg-7 3))) (case (vector-ref arg-10 0) ((2) (let ((e-33 (vector-ref arg-10 1))) (let ((e-34 (vector-ref arg-10 2))) (let ((e-35 (vector-ref arg-10 3))) (lambda (eta-0) (let ((act-24 (CoreC-45Unify-isDefInvertible arg-0 arg-4 e-25 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((sc6 (let ((sc7 (PreludeC-45EqOrd-u--C-61C-61_Eq_Int e-25 e-34))) (cond ((equal? sc7 1) (cond ((equal? e-5 1) 1) (else (CoreC-45Unify-u--C-61C-61_Eq_UnifyMode (let ((e-1 (cdr arg-3))) e-1) 3)))) (else 0))))) (cond ((equal? sc6 1) ((CoreC-45Unify-unifyArgs (cons (cons (lambda (u--vars) (lambda (arg-6180) (lambda (arg-6183) (lambda (arg-6186) (lambda (arg-6187) (lambda (arg-6188) (lambda (arg-6190) (lambda (arg-6193) (lambda (eta-1) (CoreC-45Unify-u--unifyD_Unify_Closure u--vars arg-6180 arg-6183 arg-6186 arg-6187 arg-6188 arg-6190 arg-6193 eta-1)))))))))) (lambda (u--vars) (lambda (arg-6195) (lambda (arg-6198) (lambda (arg-6201) (lambda (arg-6202) (lambda (arg-6203) (lambda (arg-6205) (lambda (arg-6206) (lambda (eta-1) (CoreC-45Unify-u--unifyWithLazyD_Unify_Closure u--vars arg-6195 arg-6198 arg-6201 arg-6202 arg-6203 arg-6205 arg-6206 eta-1))))))))))) (cons (lambda (u--c) (lambda (u--vars) (lambda (arg-5827) (lambda (arg-5828) (lambda (arg-5830) (lambda (eta-1) (CoreC-45Normalise-u--quote_Quote_Closure u--c u--vars arg-5827 arg-5828 arg-5830 eta-1))))))) (lambda (u--c) (lambda (u--vars) (lambda (arg-5836) (lambda (arg-5839) (lambda (arg-5840) (lambda (arg-5842) (lambda (eta-1) (CoreC-45Normalise-u--quoteGen_Quote_Closure u--c u--vars arg-5836 arg-5839 arg-5840 arg-5842 eta-1)))))))))) arg-2 arg-0 arg-1 arg-3 arg-4 arg-5 (PreludeC-45TypesC-45List-C-43C-43 e-26 (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) arg-8)) (PreludeC-45TypesC-45List-C-43C-43 e-35 (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) arg-11))) eta-0)) (else (let ((act-25 (CoreC-45Unify-n--11762-14569-u--localsIn arg-2 e-26 e-25 e-24 e-35 e-34 e-33 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-26 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Unify-n--11762-14569-u--localsIn arg-2 e-26 e-25 e-24 e-35 e-34 e-33 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-35 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((u--xbigger (let ((sc9 (PreludeC-45Types-u--C-62_Ord_Nat e-6 e-7))) (cond ((equal? sc9 1) 1) (else (let ((sc10 (PreludeC-45Types-u--C-61C-61_Eq_Nat e-6 e-7))) (cond ((equal? sc10 1) (PreludeC-45Types-u--C-60C-61_Ord_Nat (PreludeC-45TypesC-45List-length arg-8) (PreludeC-45TypesC-45List-length arg-11))) (else 0)))))))) (let ((sc9 (let ((sc10 (cond ((equal? u--xbigger 1) 1) (else (CoreC-45Unify-u--C-61C-61_Eq_UnifyMode (let ((e-1 (cdr arg-3))) e-1) 2))))) (cond ((equal? sc10 1) (let ((sc11 (CoreC-45Unify-n--11762-14568-u--pv arg-2 e-26 e-25 e-24 e-35 e-34 e-33 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-24))) (cond ((equal? sc11 1) 0) (else 1)))) (else 0))))) (cond ((equal? sc9 1) ((CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 (vector 2 e-24 e-25 e-26) arg-8 (vector 1 arg-9 (vector 2 e-33 e-34 e-35) arg-11)) eta-0)) (else ((CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-9 (vector 2 e-33 e-34 e-35) arg-11 (vector 1 arg-6 (vector 2 e-24 e-25 e-26) arg-8)) eta-0)))))))))))))))))))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 (vector 2 e-24 e-25 e-26) arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (case (vector-ref arg-10 0) ((2) (let ((e-15 (vector-ref arg-10 1))) (let ((e-16 (vector-ref arg-10 2))) (let ((e-17 (vector-ref arg-10 3))) (let ((sc4 (CoreC-45Unify-u--C-47C-61_Eq_UnifyMode (let ((e-1 (cdr arg-3))) e-1) 2))) (cond ((equal? sc4 1) (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-15 e-16 e-17) arg-11 (vector 1 arg-6 arg-7 arg-8))) (else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 (vector 2 e-15 e-16 e-17) arg-11)))))))))(else (if (null? arg-3) (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)) (let ((e-0 (car arg-3))) (let ((e-1 (cdr arg-3))) (cond ((equal? e-1 3) (case (vector-ref arg-7 0) ((1) (let ((e-3 (vector-ref arg-7 1))) (let ((e-4 (vector-ref arg-7 2))) (case (vector-ref arg-10 0) ((1) (let ((e-6 (vector-ref arg-10 1))) (let ((e-7 (vector-ref arg-10 2))) (let ((u--mode (cons e-0 3))) (let ((u--fx (vector 1 e-3 e-4))) (let ((u--fy (vector 1 e-6 e-7))) (let ((sc7 (CoreC-45Name-u--C-61C-61_Eq_Name e-4 e-7))) (cond ((equal? sc7 1) (CoreC-45Unify-unifyArgs (cons (cons (lambda (u--vars) (lambda (arg-6180) (lambda (arg-6183) (lambda (arg-6186) (lambda (arg-6187) (lambda (arg-6188) (lambda (arg-6190) (lambda (arg-6193) (lambda (eta-0) (CoreC-45Unify-u--unifyD_Unify_Closure u--vars arg-6180 arg-6183 arg-6186 arg-6187 arg-6188 arg-6190 arg-6193 eta-0)))))))))) (lambda (u--vars) (lambda (arg-6195) (lambda (arg-6198) (lambda (arg-6201) (lambda (arg-6202) (lambda (arg-6203) (lambda (arg-6205) (lambda (arg-6206) (lambda (eta-0) (CoreC-45Unify-u--unifyWithLazyD_Unify_Closure u--vars arg-6195 arg-6198 arg-6201 arg-6202 arg-6203 arg-6205 arg-6206 eta-0))))))))))) (cons (lambda (u--c) (lambda (u--vars) (lambda (arg-5827) (lambda (arg-5828) (lambda (arg-5830) (lambda (eta-0) (CoreC-45Normalise-u--quote_Quote_Closure u--c u--vars arg-5827 arg-5828 arg-5830 eta-0))))))) (lambda (u--c) (lambda (u--vars) (lambda (arg-5836) (lambda (arg-5839) (lambda (arg-5840) (lambda (arg-5842) (lambda (eta-0) (CoreC-45Normalise-u--quoteGen_Quote_Closure u--c u--vars arg-5836 arg-5839 arg-5840 arg-5842 eta-0)))))))))) arg-2 arg-0 arg-1 u--mode arg-4 arg-5 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) arg-8) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) arg-11))) (else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 u--mode arg-4 arg-5 arg-6 u--fx arg-8 (vector 1 arg-9 u--fy arg-11)))))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))) ((equal? e-1 2) (case (vector-ref arg-7 0) ((1) (let ((e-9 (vector-ref arg-7 1))) (let ((e-10 (vector-ref arg-7 2))) (case (vector-ref arg-10 0) ((1) (let ((e-12 (vector-ref arg-10 1))) (let ((e-13 (vector-ref arg-10 2))) (let ((u--mode (cons e-0 2))) (let ((u--fx (vector 1 e-9 e-10))) (let ((u--fy (vector 1 e-12 e-13))) (let ((sc7 (CoreC-45Name-u--C-61C-61_Eq_Name e-10 e-13))) (cond ((equal? sc7 1) (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-unverifiedLogC arg-0 "unify.application" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-1) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (clam-0) (lambda (eta-2) (CoreC-45Normalise-u--quote_Quote_Closure arg-0 arg-2 e-5 arg-5 clam-0 eta-2))) (PreludeC-45Types-u--map_Functor_List (lambda (eta-2) (Builtin-snd eta-2)) arg-8) '() eta-1))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Core-traverseC-39 (lambda (clam-0) (lambda (eta-2) (CoreC-45Normalise-u--quote_Quote_Closure arg-0 arg-2 e-5 arg-5 clam-0 eta-2))) (PreludeC-45Types-u--map_Functor_List (lambda (eta-2) (Builtin-snd eta-2)) arg-11) '() eta-1))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (PreludeC-45TypesC-45String-C-43C-43 "Matching args " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-2 u--d u--x)))) e-6) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-2 u--d u--x)))) e-7)))))))))))))))))) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else ((CoreC-45Unify-unifyArgs (cons (cons (lambda (u--vars) (lambda (arg-6180) (lambda (arg-6183) (lambda (arg-6186) (lambda (arg-6187) (lambda (arg-6188) (lambda (arg-6190) (lambda (arg-6193) (lambda (eta-1) (CoreC-45Unify-u--unifyD_Unify_Closure u--vars arg-6180 arg-6183 arg-6186 arg-6187 arg-6188 arg-6190 arg-6193 eta-1)))))))))) (lambda (u--vars) (lambda (arg-6195) (lambda (arg-6198) (lambda (arg-6201) (lambda (arg-6202) (lambda (arg-6203) (lambda (arg-6205) (lambda (arg-6206) (lambda (eta-1) (CoreC-45Unify-u--unifyWithLazyD_Unify_Closure u--vars arg-6195 arg-6198 arg-6201 arg-6202 arg-6203 arg-6205 arg-6206 eta-1))))))))))) (cons (lambda (u--c) (lambda (u--vars) (lambda (arg-5827) (lambda (arg-5828) (lambda (arg-5830) (lambda (eta-1) (CoreC-45Normalise-u--quote_Quote_Closure u--c u--vars arg-5827 arg-5828 arg-5830 eta-1))))))) (lambda (u--c) (lambda (u--vars) (lambda (arg-5836) (lambda (arg-5839) (lambda (arg-5840) (lambda (arg-5842) (lambda (eta-1) (CoreC-45Normalise-u--quoteGen_Quote_Closure u--c u--vars arg-5836 arg-5839 arg-5840 arg-5842 eta-1)))))))))) arg-2 arg-0 arg-1 u--mode arg-4 arg-5 (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) arg-8) (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) arg-11)) eta-0)))))) (else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 u--mode arg-4 arg-5 arg-6 u--fx arg-8 (vector 1 arg-9 u--fy arg-11)))))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))))) (let ((e-36 (car arg-3))) (let ((e-37 (cdr arg-3))) (cond ((equal? e-37 1) (case (vector-ref arg-7 0) ((0) (let ((e-40 (vector-ref arg-7 1))) (let ((e-41 (vector-ref arg-7 2))) (case (vector-ref arg-10 0) ((0) (let ((e-45 (vector-ref arg-10 1))) (let ((e-46 (vector-ref arg-10 2))) (let ((u--mode (cons e-36 1))) (let ((sc6 (PreludeC-45Types-u--C-61C-61_Eq_Nat e-41 e-46))) (cond ((equal? sc6 1) (CoreC-45Unify-unifyArgs (cons (cons (lambda (u--vars) (lambda (arg-6180) (lambda (arg-6183) (lambda (arg-6186) (lambda (arg-6187) (lambda (arg-6188) (lambda (arg-6190) (lambda (arg-6193) (lambda (eta-0) (CoreC-45Unify-u--unifyD_Unify_Closure u--vars arg-6180 arg-6183 arg-6186 arg-6187 arg-6188 arg-6190 arg-6193 eta-0)))))))))) (lambda (u--vars) (lambda (arg-6195) (lambda (arg-6198) (lambda (arg-6201) (lambda (arg-6202) (lambda (arg-6203) (lambda (arg-6205) (lambda (arg-6206) (lambda (eta-0) (CoreC-45Unify-u--unifyWithLazyD_Unify_Closure u--vars arg-6195 arg-6198 arg-6201 arg-6202 arg-6203 arg-6205 arg-6206 eta-0))))))))))) (cons (lambda (u--c) (lambda (u--vars) (lambda (arg-5827) (lambda (arg-5828) (lambda (arg-5830) (lambda (eta-0) (CoreC-45Normalise-u--quote_Quote_Closure u--c u--vars arg-5827 arg-5828 arg-5830 eta-0))))))) (lambda (u--c) (lambda (u--vars) (lambda (arg-5836) (lambda (arg-5839) (lambda (arg-5840) (lambda (arg-5842) (lambda (eta-0) (CoreC-45Normalise-u--quoteGen_Quote_Closure u--c u--vars arg-5836 arg-5839 arg-5840 arg-5842 eta-0)))))))))) arg-2 arg-0 arg-1 u--mode arg-4 arg-5 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) arg-8) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) arg-11))) (else (lambda (eta-0) (CoreC-45Unify-postpone arg-2 arg-0 arg-1 arg-4 u--mode "Postponing local app" arg-5 (vector 1 arg-6 (vector 0 e-40 e-41) arg-8) (vector 1 arg-9 (vector 0 e-45 e-46) arg-11) eta-0)))))))))(else (case (vector-ref arg-7 0) ((0) (let ((e-20 (vector-ref arg-7 1))) (let ((e-21 (vector-ref arg-7 2))) (case (vector-ref arg-10 0) ((0) (let ((e-29 (vector-ref arg-10 1))) (let ((e-30 (vector-ref arg-10 2))) (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-log arg-0 "unify.application" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Both local apps, unifyIfEq") eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (CoreC-45Unify-unifyIfEq arg-0 arg-1 arg-2 1 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-20 e-21) arg-8) (vector 1 arg-9 (vector 0 e-29 e-30) arg-11) eta-0))))))))(else (case (vector-ref arg-10 0) ((2) (let ((e-15 (vector-ref arg-10 1))) (let ((e-16 (vector-ref arg-10 2))) (let ((e-17 (vector-ref arg-10 3))) (let ((sc7 (CoreC-45Unify-u--C-47C-61_Eq_UnifyMode (let ((e-1 (cdr arg-3))) e-1) 2))) (cond ((equal? sc7 1) (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-15 e-16 e-17) arg-11 (vector 1 arg-6 arg-7 arg-8))) (else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 (vector 2 e-15 e-16 e-17) arg-11)))))))))(else (if (null? arg-3) (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)) (let ((e-0 (car arg-3))) (let ((e-1 (cdr arg-3))) (cond ((equal? e-1 3) (case (vector-ref arg-7 0) ((1) (let ((e-3 (vector-ref arg-7 1))) (let ((e-4 (vector-ref arg-7 2))) (case (vector-ref arg-10 0) ((1) (let ((e-6 (vector-ref arg-10 1))) (let ((e-7 (vector-ref arg-10 2))) (let ((u--mode (cons e-0 3))) (let ((u--fx (vector 1 e-3 e-4))) (let ((u--fy (vector 1 e-6 e-7))) (let ((sc10 (CoreC-45Name-u--C-61C-61_Eq_Name e-4 e-7))) (cond ((equal? sc10 1) (CoreC-45Unify-unifyArgs (cons (cons (lambda (u--vars) (lambda (arg-6180) (lambda (arg-6183) (lambda (arg-6186) (lambda (arg-6187) (lambda (arg-6188) (lambda (arg-6190) (lambda (arg-6193) (lambda (eta-0) (CoreC-45Unify-u--unifyD_Unify_Closure u--vars arg-6180 arg-6183 arg-6186 arg-6187 arg-6188 arg-6190 arg-6193 eta-0)))))))))) (lambda (u--vars) (lambda (arg-6195) (lambda (arg-6198) (lambda (arg-6201) (lambda (arg-6202) (lambda (arg-6203) (lambda (arg-6205) (lambda (arg-6206) (lambda (eta-0) (CoreC-45Unify-u--unifyWithLazyD_Unify_Closure u--vars arg-6195 arg-6198 arg-6201 arg-6202 arg-6203 arg-6205 arg-6206 eta-0))))))))))) (cons (lambda (u--c) (lambda (u--vars) (lambda (arg-5827) (lambda (arg-5828) (lambda (arg-5830) (lambda (eta-0) (CoreC-45Normalise-u--quote_Quote_Closure u--c u--vars arg-5827 arg-5828 arg-5830 eta-0))))))) (lambda (u--c) (lambda (u--vars) (lambda (arg-5836) (lambda (arg-5839) (lambda (arg-5840) (lambda (arg-5842) (lambda (eta-0) (CoreC-45Normalise-u--quoteGen_Quote_Closure u--c u--vars arg-5836 arg-5839 arg-5840 arg-5842 eta-0)))))))))) arg-2 arg-0 arg-1 u--mode arg-4 arg-5 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) arg-8) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) arg-11))) (else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 u--mode arg-4 arg-5 arg-6 u--fx arg-8 (vector 1 arg-9 u--fy arg-11)))))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))) ((equal? e-1 2) (case (vector-ref arg-7 0) ((1) (let ((e-9 (vector-ref arg-7 1))) (let ((e-10 (vector-ref arg-7 2))) (case (vector-ref arg-10 0) ((1) (let ((e-12 (vector-ref arg-10 1))) (let ((e-13 (vector-ref arg-10 2))) (let ((u--mode (cons e-0 2))) (let ((u--fx (vector 1 e-9 e-10))) (let ((u--fy (vector 1 e-12 e-13))) (let ((sc10 (CoreC-45Name-u--C-61C-61_Eq_Name e-10 e-13))) (cond ((equal? sc10 1) (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-unverifiedLogC arg-0 "unify.application" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-1) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (clam-0) (lambda (eta-2) (CoreC-45Normalise-u--quote_Quote_Closure arg-0 arg-2 e-5 arg-5 clam-0 eta-2))) (PreludeC-45Types-u--map_Functor_List (lambda (eta-2) (Builtin-snd eta-2)) arg-8) '() eta-1))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Core-traverseC-39 (lambda (clam-0) (lambda (eta-2) (CoreC-45Normalise-u--quote_Quote_Closure arg-0 arg-2 e-5 arg-5 clam-0 eta-2))) (PreludeC-45Types-u--map_Functor_List (lambda (eta-2) (Builtin-snd eta-2)) arg-11) '() eta-1))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (PreludeC-45TypesC-45String-C-43C-43 "Matching args " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-2 u--d u--x)))) e-6) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-2 u--d u--x)))) e-7)))))))))))))))))) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else ((CoreC-45Unify-unifyArgs (cons (cons (lambda (u--vars) (lambda (arg-6180) (lambda (arg-6183) (lambda (arg-6186) (lambda (arg-6187) (lambda (arg-6188) (lambda (arg-6190) (lambda (arg-6193) (lambda (eta-1) (CoreC-45Unify-u--unifyD_Unify_Closure u--vars arg-6180 arg-6183 arg-6186 arg-6187 arg-6188 arg-6190 arg-6193 eta-1)))))))))) (lambda (u--vars) (lambda (arg-6195) (lambda (arg-6198) (lambda (arg-6201) (lambda (arg-6202) (lambda (arg-6203) (lambda (arg-6205) (lambda (arg-6206) (lambda (eta-1) (CoreC-45Unify-u--unifyWithLazyD_Unify_Closure u--vars arg-6195 arg-6198 arg-6201 arg-6202 arg-6203 arg-6205 arg-6206 eta-1))))))))))) (cons (lambda (u--c) (lambda (u--vars) (lambda (arg-5827) (lambda (arg-5828) (lambda (arg-5830) (lambda (eta-1) (CoreC-45Normalise-u--quote_Quote_Closure u--c u--vars arg-5827 arg-5828 arg-5830 eta-1))))))) (lambda (u--c) (lambda (u--vars) (lambda (arg-5836) (lambda (arg-5839) (lambda (arg-5840) (lambda (arg-5842) (lambda (eta-1) (CoreC-45Normalise-u--quoteGen_Quote_Closure u--c u--vars arg-5836 arg-5839 arg-5840 arg-5842 eta-1)))))))))) arg-2 arg-0 arg-1 u--mode arg-4 arg-5 (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) arg-8) (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) arg-11)) eta-0)))))) (else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 u--mode arg-4 arg-5 arg-6 u--fx arg-8 (vector 1 arg-9 u--fy arg-11)))))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))) ((2) (let ((e-24 (vector-ref arg-7 1))) (let ((e-25 (vector-ref arg-7 2))) (let ((e-26 (vector-ref arg-7 3))) (case (vector-ref arg-10 0) ((2) (let ((e-33 (vector-ref arg-10 1))) (let ((e-34 (vector-ref arg-10 2))) (let ((e-35 (vector-ref arg-10 3))) (lambda (eta-0) (let ((act-24 (CoreC-45Unify-isDefInvertible arg-0 arg-4 e-25 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((sc8 (let ((sc9 (PreludeC-45EqOrd-u--C-61C-61_Eq_Int e-25 e-34))) (cond ((equal? sc9 1) (cond ((equal? e-5 1) 1) (else (CoreC-45Unify-u--C-61C-61_Eq_UnifyMode (let ((e-1 (cdr arg-3))) e-1) 3)))) (else 0))))) (cond ((equal? sc8 1) ((CoreC-45Unify-unifyArgs (cons (cons (lambda (u--vars) (lambda (arg-6180) (lambda (arg-6183) (lambda (arg-6186) (lambda (arg-6187) (lambda (arg-6188) (lambda (arg-6190) (lambda (arg-6193) (lambda (eta-1) (CoreC-45Unify-u--unifyD_Unify_Closure u--vars arg-6180 arg-6183 arg-6186 arg-6187 arg-6188 arg-6190 arg-6193 eta-1)))))))))) (lambda (u--vars) (lambda (arg-6195) (lambda (arg-6198) (lambda (arg-6201) (lambda (arg-6202) (lambda (arg-6203) (lambda (arg-6205) (lambda (arg-6206) (lambda (eta-1) (CoreC-45Unify-u--unifyWithLazyD_Unify_Closure u--vars arg-6195 arg-6198 arg-6201 arg-6202 arg-6203 arg-6205 arg-6206 eta-1))))))))))) (cons (lambda (u--c) (lambda (u--vars) (lambda (arg-5827) (lambda (arg-5828) (lambda (arg-5830) (lambda (eta-1) (CoreC-45Normalise-u--quote_Quote_Closure u--c u--vars arg-5827 arg-5828 arg-5830 eta-1))))))) (lambda (u--c) (lambda (u--vars) (lambda (arg-5836) (lambda (arg-5839) (lambda (arg-5840) (lambda (arg-5842) (lambda (eta-1) (CoreC-45Normalise-u--quoteGen_Quote_Closure u--c u--vars arg-5836 arg-5839 arg-5840 arg-5842 eta-1)))))))))) arg-2 arg-0 arg-1 arg-3 arg-4 arg-5 (PreludeC-45TypesC-45List-C-43C-43 e-26 (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) arg-8)) (PreludeC-45TypesC-45List-C-43C-43 e-35 (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) arg-11))) eta-0)) (else (let ((act-25 (CoreC-45Unify-n--11762-14569-u--localsIn arg-2 e-26 e-25 e-24 e-35 e-34 e-33 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-26 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Unify-n--11762-14569-u--localsIn arg-2 e-26 e-25 e-24 e-35 e-34 e-33 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-35 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((u--xbigger (let ((sc11 (PreludeC-45Types-u--C-62_Ord_Nat e-6 e-7))) (cond ((equal? sc11 1) 1) (else (let ((sc12 (PreludeC-45Types-u--C-61C-61_Eq_Nat e-6 e-7))) (cond ((equal? sc12 1) (PreludeC-45Types-u--C-60C-61_Ord_Nat (PreludeC-45TypesC-45List-length arg-8) (PreludeC-45TypesC-45List-length arg-11))) (else 0)))))))) (let ((sc11 (let ((sc12 (cond ((equal? u--xbigger 1) 1) (else (CoreC-45Unify-u--C-61C-61_Eq_UnifyMode (let ((e-1 (cdr arg-3))) e-1) 2))))) (cond ((equal? sc12 1) (let ((sc13 (CoreC-45Unify-n--11762-14568-u--pv arg-2 e-26 e-25 e-24 e-35 e-34 e-33 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-24))) (cond ((equal? sc13 1) 0) (else 1)))) (else 0))))) (cond ((equal? sc11 1) ((CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 (vector 2 e-24 e-25 e-26) arg-8 (vector 1 arg-9 (vector 2 e-33 e-34 e-35) arg-11)) eta-0)) (else ((CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-9 (vector 2 e-33 e-34 e-35) arg-11 (vector 1 arg-6 (vector 2 e-24 e-25 e-26) arg-8)) eta-0)))))))))))))))))))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 (vector 2 e-24 e-25 e-26) arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (case (vector-ref arg-10 0) ((2) (let ((e-15 (vector-ref arg-10 1))) (let ((e-16 (vector-ref arg-10 2))) (let ((e-17 (vector-ref arg-10 3))) (let ((sc6 (CoreC-45Unify-u--C-47C-61_Eq_UnifyMode (let ((e-1 (cdr arg-3))) e-1) 2))) (cond ((equal? sc6 1) (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-15 e-16 e-17) arg-11 (vector 1 arg-6 arg-7 arg-8))) (else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 (vector 2 e-15 e-16 e-17) arg-11)))))))))(else (if (null? arg-3) (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)) (let ((e-0 (car arg-3))) (let ((e-1 (cdr arg-3))) (cond ((equal? e-1 3) (case (vector-ref arg-7 0) ((1) (let ((e-3 (vector-ref arg-7 1))) (let ((e-4 (vector-ref arg-7 2))) (case (vector-ref arg-10 0) ((1) (let ((e-6 (vector-ref arg-10 1))) (let ((e-7 (vector-ref arg-10 2))) (let ((u--mode (cons e-0 3))) (let ((u--fx (vector 1 e-3 e-4))) (let ((u--fy (vector 1 e-6 e-7))) (let ((sc9 (CoreC-45Name-u--C-61C-61_Eq_Name e-4 e-7))) (cond ((equal? sc9 1) (CoreC-45Unify-unifyArgs (cons (cons (lambda (u--vars) (lambda (arg-6180) (lambda (arg-6183) (lambda (arg-6186) (lambda (arg-6187) (lambda (arg-6188) (lambda (arg-6190) (lambda (arg-6193) (lambda (eta-0) (CoreC-45Unify-u--unifyD_Unify_Closure u--vars arg-6180 arg-6183 arg-6186 arg-6187 arg-6188 arg-6190 arg-6193 eta-0)))))))))) (lambda (u--vars) (lambda (arg-6195) (lambda (arg-6198) (lambda (arg-6201) (lambda (arg-6202) (lambda (arg-6203) (lambda (arg-6205) (lambda (arg-6206) (lambda (eta-0) (CoreC-45Unify-u--unifyWithLazyD_Unify_Closure u--vars arg-6195 arg-6198 arg-6201 arg-6202 arg-6203 arg-6205 arg-6206 eta-0))))))))))) (cons (lambda (u--c) (lambda (u--vars) (lambda (arg-5827) (lambda (arg-5828) (lambda (arg-5830) (lambda (eta-0) (CoreC-45Normalise-u--quote_Quote_Closure u--c u--vars arg-5827 arg-5828 arg-5830 eta-0))))))) (lambda (u--c) (lambda (u--vars) (lambda (arg-5836) (lambda (arg-5839) (lambda (arg-5840) (lambda (arg-5842) (lambda (eta-0) (CoreC-45Normalise-u--quoteGen_Quote_Closure u--c u--vars arg-5836 arg-5839 arg-5840 arg-5842 eta-0)))))))))) arg-2 arg-0 arg-1 u--mode arg-4 arg-5 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) arg-8) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) arg-11))) (else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 u--mode arg-4 arg-5 arg-6 u--fx arg-8 (vector 1 arg-9 u--fy arg-11)))))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))) ((equal? e-1 2) (case (vector-ref arg-7 0) ((1) (let ((e-9 (vector-ref arg-7 1))) (let ((e-10 (vector-ref arg-7 2))) (case (vector-ref arg-10 0) ((1) (let ((e-12 (vector-ref arg-10 1))) (let ((e-13 (vector-ref arg-10 2))) (let ((u--mode (cons e-0 2))) (let ((u--fx (vector 1 e-9 e-10))) (let ((u--fy (vector 1 e-12 e-13))) (let ((sc9 (CoreC-45Name-u--C-61C-61_Eq_Name e-10 e-13))) (cond ((equal? sc9 1) (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-unverifiedLogC arg-0 "unify.application" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-1) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (clam-0) (lambda (eta-2) (CoreC-45Normalise-u--quote_Quote_Closure arg-0 arg-2 e-5 arg-5 clam-0 eta-2))) (PreludeC-45Types-u--map_Functor_List (lambda (eta-2) (Builtin-snd eta-2)) arg-8) '() eta-1))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Core-traverseC-39 (lambda (clam-0) (lambda (eta-2) (CoreC-45Normalise-u--quote_Quote_Closure arg-0 arg-2 e-5 arg-5 clam-0 eta-2))) (PreludeC-45Types-u--map_Functor_List (lambda (eta-2) (Builtin-snd eta-2)) arg-11) '() eta-1))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (PreludeC-45TypesC-45String-C-43C-43 "Matching args " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-2 u--d u--x)))) e-6) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-2 u--d u--x)))) e-7)))))))))))))))))) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else ((CoreC-45Unify-unifyArgs (cons (cons (lambda (u--vars) (lambda (arg-6180) (lambda (arg-6183) (lambda (arg-6186) (lambda (arg-6187) (lambda (arg-6188) (lambda (arg-6190) (lambda (arg-6193) (lambda (eta-1) (CoreC-45Unify-u--unifyD_Unify_Closure u--vars arg-6180 arg-6183 arg-6186 arg-6187 arg-6188 arg-6190 arg-6193 eta-1)))))))))) (lambda (u--vars) (lambda (arg-6195) (lambda (arg-6198) (lambda (arg-6201) (lambda (arg-6202) (lambda (arg-6203) (lambda (arg-6205) (lambda (arg-6206) (lambda (eta-1) (CoreC-45Unify-u--unifyWithLazyD_Unify_Closure u--vars arg-6195 arg-6198 arg-6201 arg-6202 arg-6203 arg-6205 arg-6206 eta-1))))))))))) (cons (lambda (u--c) (lambda (u--vars) (lambda (arg-5827) (lambda (arg-5828) (lambda (arg-5830) (lambda (eta-1) (CoreC-45Normalise-u--quote_Quote_Closure u--c u--vars arg-5827 arg-5828 arg-5830 eta-1))))))) (lambda (u--c) (lambda (u--vars) (lambda (arg-5836) (lambda (arg-5839) (lambda (arg-5840) (lambda (arg-5842) (lambda (eta-1) (CoreC-45Normalise-u--quoteGen_Quote_Closure u--c u--vars arg-5836 arg-5839 arg-5840 arg-5842 eta-1)))))))))) arg-2 arg-0 arg-1 u--mode arg-4 arg-5 (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) arg-8) (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) arg-11)) eta-0)))))) (else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 u--mode arg-4 arg-5 arg-6 u--fx arg-8 (vector 1 arg-9 u--fy arg-11)))))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))))))))))(else (case (vector-ref arg-7 0) ((0) (let ((e-20 (vector-ref arg-7 1))) (let ((e-21 (vector-ref arg-7 2))) (case (vector-ref arg-10 0) ((0) (let ((e-29 (vector-ref arg-10 1))) (let ((e-30 (vector-ref arg-10 2))) (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-log arg-0 "unify.application" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Both local apps, unifyIfEq") eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (CoreC-45Unify-unifyIfEq arg-0 arg-1 arg-2 1 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-20 e-21) arg-8) (vector 1 arg-9 (vector 0 e-29 e-30) arg-11) eta-0))))))))(else (case (vector-ref arg-10 0) ((2) (let ((e-15 (vector-ref arg-10 1))) (let ((e-16 (vector-ref arg-10 2))) (let ((e-17 (vector-ref arg-10 3))) (let ((sc6 (CoreC-45Unify-u--C-47C-61_Eq_UnifyMode (let ((e-1 (cdr arg-3))) e-1) 2))) (cond ((equal? sc6 1) (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-15 e-16 e-17) arg-11 (vector 1 arg-6 arg-7 arg-8))) (else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 (vector 2 e-15 e-16 e-17) arg-11)))))))))(else (if (null? arg-3) (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)) (let ((e-0 (car arg-3))) (let ((e-1 (cdr arg-3))) (cond ((equal? e-1 3) (case (vector-ref arg-7 0) ((1) (let ((e-3 (vector-ref arg-7 1))) (let ((e-4 (vector-ref arg-7 2))) (case (vector-ref arg-10 0) ((1) (let ((e-6 (vector-ref arg-10 1))) (let ((e-7 (vector-ref arg-10 2))) (let ((u--mode (cons e-0 3))) (let ((u--fx (vector 1 e-3 e-4))) (let ((u--fy (vector 1 e-6 e-7))) (let ((sc9 (CoreC-45Name-u--C-61C-61_Eq_Name e-4 e-7))) (cond ((equal? sc9 1) (CoreC-45Unify-unifyArgs (cons (cons (lambda (u--vars) (lambda (arg-6180) (lambda (arg-6183) (lambda (arg-6186) (lambda (arg-6187) (lambda (arg-6188) (lambda (arg-6190) (lambda (arg-6193) (lambda (eta-0) (CoreC-45Unify-u--unifyD_Unify_Closure u--vars arg-6180 arg-6183 arg-6186 arg-6187 arg-6188 arg-6190 arg-6193 eta-0)))))))))) (lambda (u--vars) (lambda (arg-6195) (lambda (arg-6198) (lambda (arg-6201) (lambda (arg-6202) (lambda (arg-6203) (lambda (arg-6205) (lambda (arg-6206) (lambda (eta-0) (CoreC-45Unify-u--unifyWithLazyD_Unify_Closure u--vars arg-6195 arg-6198 arg-6201 arg-6202 arg-6203 arg-6205 arg-6206 eta-0))))))))))) (cons (lambda (u--c) (lambda (u--vars) (lambda (arg-5827) (lambda (arg-5828) (lambda (arg-5830) (lambda (eta-0) (CoreC-45Normalise-u--quote_Quote_Closure u--c u--vars arg-5827 arg-5828 arg-5830 eta-0))))))) (lambda (u--c) (lambda (u--vars) (lambda (arg-5836) (lambda (arg-5839) (lambda (arg-5840) (lambda (arg-5842) (lambda (eta-0) (CoreC-45Normalise-u--quoteGen_Quote_Closure u--c u--vars arg-5836 arg-5839 arg-5840 arg-5842 eta-0)))))))))) arg-2 arg-0 arg-1 u--mode arg-4 arg-5 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) arg-8) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) arg-11))) (else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 u--mode arg-4 arg-5 arg-6 u--fx arg-8 (vector 1 arg-9 u--fy arg-11)))))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))) ((equal? e-1 2) (case (vector-ref arg-7 0) ((1) (let ((e-9 (vector-ref arg-7 1))) (let ((e-10 (vector-ref arg-7 2))) (case (vector-ref arg-10 0) ((1) (let ((e-12 (vector-ref arg-10 1))) (let ((e-13 (vector-ref arg-10 2))) (let ((u--mode (cons e-0 2))) (let ((u--fx (vector 1 e-9 e-10))) (let ((u--fy (vector 1 e-12 e-13))) (let ((sc9 (CoreC-45Name-u--C-61C-61_Eq_Name e-10 e-13))) (cond ((equal? sc9 1) (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-unverifiedLogC arg-0 "unify.application" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-1) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (clam-0) (lambda (eta-2) (CoreC-45Normalise-u--quote_Quote_Closure arg-0 arg-2 e-5 arg-5 clam-0 eta-2))) (PreludeC-45Types-u--map_Functor_List (lambda (eta-2) (Builtin-snd eta-2)) arg-8) '() eta-1))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Core-traverseC-39 (lambda (clam-0) (lambda (eta-2) (CoreC-45Normalise-u--quote_Quote_Closure arg-0 arg-2 e-5 arg-5 clam-0 eta-2))) (PreludeC-45Types-u--map_Functor_List (lambda (eta-2) (Builtin-snd eta-2)) arg-11) '() eta-1))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (PreludeC-45TypesC-45String-C-43C-43 "Matching args " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-2 u--d u--x)))) e-6) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-2 u--d u--x)))) e-7)))))))))))))))))) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else ((CoreC-45Unify-unifyArgs (cons (cons (lambda (u--vars) (lambda (arg-6180) (lambda (arg-6183) (lambda (arg-6186) (lambda (arg-6187) (lambda (arg-6188) (lambda (arg-6190) (lambda (arg-6193) (lambda (eta-1) (CoreC-45Unify-u--unifyD_Unify_Closure u--vars arg-6180 arg-6183 arg-6186 arg-6187 arg-6188 arg-6190 arg-6193 eta-1)))))))))) (lambda (u--vars) (lambda (arg-6195) (lambda (arg-6198) (lambda (arg-6201) (lambda (arg-6202) (lambda (arg-6203) (lambda (arg-6205) (lambda (arg-6206) (lambda (eta-1) (CoreC-45Unify-u--unifyWithLazyD_Unify_Closure u--vars arg-6195 arg-6198 arg-6201 arg-6202 arg-6203 arg-6205 arg-6206 eta-1))))))))))) (cons (lambda (u--c) (lambda (u--vars) (lambda (arg-5827) (lambda (arg-5828) (lambda (arg-5830) (lambda (eta-1) (CoreC-45Normalise-u--quote_Quote_Closure u--c u--vars arg-5827 arg-5828 arg-5830 eta-1))))))) (lambda (u--c) (lambda (u--vars) (lambda (arg-5836) (lambda (arg-5839) (lambda (arg-5840) (lambda (arg-5842) (lambda (eta-1) (CoreC-45Normalise-u--quoteGen_Quote_Closure u--c u--vars arg-5836 arg-5839 arg-5840 arg-5842 eta-1)))))))))) arg-2 arg-0 arg-1 u--mode arg-4 arg-5 (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) arg-8) (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) arg-11)) eta-0)))))) (else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 u--mode arg-4 arg-5 arg-6 u--fx arg-8 (vector 1 arg-9 u--fy arg-11)))))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))) ((2) (let ((e-24 (vector-ref arg-7 1))) (let ((e-25 (vector-ref arg-7 2))) (let ((e-26 (vector-ref arg-7 3))) (case (vector-ref arg-10 0) ((2) (let ((e-33 (vector-ref arg-10 1))) (let ((e-34 (vector-ref arg-10 2))) (let ((e-35 (vector-ref arg-10 3))) (lambda (eta-0) (let ((act-24 (CoreC-45Unify-isDefInvertible arg-0 arg-4 e-25 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((sc7 (let ((sc8 (PreludeC-45EqOrd-u--C-61C-61_Eq_Int e-25 e-34))) (cond ((equal? sc8 1) (cond ((equal? e-5 1) 1) (else (CoreC-45Unify-u--C-61C-61_Eq_UnifyMode (let ((e-1 (cdr arg-3))) e-1) 3)))) (else 0))))) (cond ((equal? sc7 1) ((CoreC-45Unify-unifyArgs (cons (cons (lambda (u--vars) (lambda (arg-6180) (lambda (arg-6183) (lambda (arg-6186) (lambda (arg-6187) (lambda (arg-6188) (lambda (arg-6190) (lambda (arg-6193) (lambda (eta-1) (CoreC-45Unify-u--unifyD_Unify_Closure u--vars arg-6180 arg-6183 arg-6186 arg-6187 arg-6188 arg-6190 arg-6193 eta-1)))))))))) (lambda (u--vars) (lambda (arg-6195) (lambda (arg-6198) (lambda (arg-6201) (lambda (arg-6202) (lambda (arg-6203) (lambda (arg-6205) (lambda (arg-6206) (lambda (eta-1) (CoreC-45Unify-u--unifyWithLazyD_Unify_Closure u--vars arg-6195 arg-6198 arg-6201 arg-6202 arg-6203 arg-6205 arg-6206 eta-1))))))))))) (cons (lambda (u--c) (lambda (u--vars) (lambda (arg-5827) (lambda (arg-5828) (lambda (arg-5830) (lambda (eta-1) (CoreC-45Normalise-u--quote_Quote_Closure u--c u--vars arg-5827 arg-5828 arg-5830 eta-1))))))) (lambda (u--c) (lambda (u--vars) (lambda (arg-5836) (lambda (arg-5839) (lambda (arg-5840) (lambda (arg-5842) (lambda (eta-1) (CoreC-45Normalise-u--quoteGen_Quote_Closure u--c u--vars arg-5836 arg-5839 arg-5840 arg-5842 eta-1)))))))))) arg-2 arg-0 arg-1 arg-3 arg-4 arg-5 (PreludeC-45TypesC-45List-C-43C-43 e-26 (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) arg-8)) (PreludeC-45TypesC-45List-C-43C-43 e-35 (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) arg-11))) eta-0)) (else (let ((act-25 (CoreC-45Unify-n--11762-14569-u--localsIn arg-2 e-26 e-25 e-24 e-35 e-34 e-33 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-26 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Unify-n--11762-14569-u--localsIn arg-2 e-26 e-25 e-24 e-35 e-34 e-33 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-35 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((u--xbigger (let ((sc10 (PreludeC-45Types-u--C-62_Ord_Nat e-6 e-7))) (cond ((equal? sc10 1) 1) (else (let ((sc11 (PreludeC-45Types-u--C-61C-61_Eq_Nat e-6 e-7))) (cond ((equal? sc11 1) (PreludeC-45Types-u--C-60C-61_Ord_Nat (PreludeC-45TypesC-45List-length arg-8) (PreludeC-45TypesC-45List-length arg-11))) (else 0)))))))) (let ((sc10 (let ((sc11 (cond ((equal? u--xbigger 1) 1) (else (CoreC-45Unify-u--C-61C-61_Eq_UnifyMode (let ((e-1 (cdr arg-3))) e-1) 2))))) (cond ((equal? sc11 1) (let ((sc12 (CoreC-45Unify-n--11762-14568-u--pv arg-2 e-26 e-25 e-24 e-35 e-34 e-33 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-24))) (cond ((equal? sc12 1) 0) (else 1)))) (else 0))))) (cond ((equal? sc10 1) ((CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 (vector 2 e-24 e-25 e-26) arg-8 (vector 1 arg-9 (vector 2 e-33 e-34 e-35) arg-11)) eta-0)) (else ((CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-9 (vector 2 e-33 e-34 e-35) arg-11 (vector 1 arg-6 (vector 2 e-24 e-25 e-26) arg-8)) eta-0)))))))))))))))))))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 (vector 2 e-24 e-25 e-26) arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (case (vector-ref arg-10 0) ((2) (let ((e-15 (vector-ref arg-10 1))) (let ((e-16 (vector-ref arg-10 2))) (let ((e-17 (vector-ref arg-10 3))) (let ((sc5 (CoreC-45Unify-u--C-47C-61_Eq_UnifyMode (let ((e-1 (cdr arg-3))) e-1) 2))) (cond ((equal? sc5 1) (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-15 e-16 e-17) arg-11 (vector 1 arg-6 arg-7 arg-8))) (else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 (vector 2 e-15 e-16 e-17) arg-11)))))))))(else (if (null? arg-3) (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)) (let ((e-0 (car arg-3))) (let ((e-1 (cdr arg-3))) (cond ((equal? e-1 3) (case (vector-ref arg-7 0) ((1) (let ((e-3 (vector-ref arg-7 1))) (let ((e-4 (vector-ref arg-7 2))) (case (vector-ref arg-10 0) ((1) (let ((e-6 (vector-ref arg-10 1))) (let ((e-7 (vector-ref arg-10 2))) (let ((u--mode (cons e-0 3))) (let ((u--fx (vector 1 e-3 e-4))) (let ((u--fy (vector 1 e-6 e-7))) (let ((sc8 (CoreC-45Name-u--C-61C-61_Eq_Name e-4 e-7))) (cond ((equal? sc8 1) (CoreC-45Unify-unifyArgs (cons (cons (lambda (u--vars) (lambda (arg-6180) (lambda (arg-6183) (lambda (arg-6186) (lambda (arg-6187) (lambda (arg-6188) (lambda (arg-6190) (lambda (arg-6193) (lambda (eta-0) (CoreC-45Unify-u--unifyD_Unify_Closure u--vars arg-6180 arg-6183 arg-6186 arg-6187 arg-6188 arg-6190 arg-6193 eta-0)))))))))) (lambda (u--vars) (lambda (arg-6195) (lambda (arg-6198) (lambda (arg-6201) (lambda (arg-6202) (lambda (arg-6203) (lambda (arg-6205) (lambda (arg-6206) (lambda (eta-0) (CoreC-45Unify-u--unifyWithLazyD_Unify_Closure u--vars arg-6195 arg-6198 arg-6201 arg-6202 arg-6203 arg-6205 arg-6206 eta-0))))))))))) (cons (lambda (u--c) (lambda (u--vars) (lambda (arg-5827) (lambda (arg-5828) (lambda (arg-5830) (lambda (eta-0) (CoreC-45Normalise-u--quote_Quote_Closure u--c u--vars arg-5827 arg-5828 arg-5830 eta-0))))))) (lambda (u--c) (lambda (u--vars) (lambda (arg-5836) (lambda (arg-5839) (lambda (arg-5840) (lambda (arg-5842) (lambda (eta-0) (CoreC-45Normalise-u--quoteGen_Quote_Closure u--c u--vars arg-5836 arg-5839 arg-5840 arg-5842 eta-0)))))))))) arg-2 arg-0 arg-1 u--mode arg-4 arg-5 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) arg-8) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) arg-11))) (else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 u--mode arg-4 arg-5 arg-6 u--fx arg-8 (vector 1 arg-9 u--fy arg-11)))))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))) ((equal? e-1 2) (case (vector-ref arg-7 0) ((1) (let ((e-9 (vector-ref arg-7 1))) (let ((e-10 (vector-ref arg-7 2))) (case (vector-ref arg-10 0) ((1) (let ((e-12 (vector-ref arg-10 1))) (let ((e-13 (vector-ref arg-10 2))) (let ((u--mode (cons e-0 2))) (let ((u--fx (vector 1 e-9 e-10))) (let ((u--fy (vector 1 e-12 e-13))) (let ((sc8 (CoreC-45Name-u--C-61C-61_Eq_Name e-10 e-13))) (cond ((equal? sc8 1) (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-unverifiedLogC arg-0 "unify.application" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-1) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (clam-0) (lambda (eta-2) (CoreC-45Normalise-u--quote_Quote_Closure arg-0 arg-2 e-5 arg-5 clam-0 eta-2))) (PreludeC-45Types-u--map_Functor_List (lambda (eta-2) (Builtin-snd eta-2)) arg-8) '() eta-1))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Core-traverseC-39 (lambda (clam-0) (lambda (eta-2) (CoreC-45Normalise-u--quote_Quote_Closure arg-0 arg-2 e-5 arg-5 clam-0 eta-2))) (PreludeC-45Types-u--map_Functor_List (lambda (eta-2) (Builtin-snd eta-2)) arg-11) '() eta-1))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (PreludeC-45TypesC-45String-C-43C-43 "Matching args " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-2 u--d u--x)))) e-6) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-2 u--d u--x)))) e-7)))))))))))))))))) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else ((CoreC-45Unify-unifyArgs (cons (cons (lambda (u--vars) (lambda (arg-6180) (lambda (arg-6183) (lambda (arg-6186) (lambda (arg-6187) (lambda (arg-6188) (lambda (arg-6190) (lambda (arg-6193) (lambda (eta-1) (CoreC-45Unify-u--unifyD_Unify_Closure u--vars arg-6180 arg-6183 arg-6186 arg-6187 arg-6188 arg-6190 arg-6193 eta-1)))))))))) (lambda (u--vars) (lambda (arg-6195) (lambda (arg-6198) (lambda (arg-6201) (lambda (arg-6202) (lambda (arg-6203) (lambda (arg-6205) (lambda (arg-6206) (lambda (eta-1) (CoreC-45Unify-u--unifyWithLazyD_Unify_Closure u--vars arg-6195 arg-6198 arg-6201 arg-6202 arg-6203 arg-6205 arg-6206 eta-1))))))))))) (cons (lambda (u--c) (lambda (u--vars) (lambda (arg-5827) (lambda (arg-5828) (lambda (arg-5830) (lambda (eta-1) (CoreC-45Normalise-u--quote_Quote_Closure u--c u--vars arg-5827 arg-5828 arg-5830 eta-1))))))) (lambda (u--c) (lambda (u--vars) (lambda (arg-5836) (lambda (arg-5839) (lambda (arg-5840) (lambda (arg-5842) (lambda (eta-1) (CoreC-45Normalise-u--quoteGen_Quote_Closure u--c u--vars arg-5836 arg-5839 arg-5840 arg-5842 eta-1)))))))))) arg-2 arg-0 arg-1 u--mode arg-4 arg-5 (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) arg-8) (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) arg-11)) eta-0)))))) (else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 u--mode arg-4 arg-5 arg-6 u--fx arg-8 (vector 1 arg-9 u--fy arg-11)))))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))))))))(else (case (vector-ref arg-7 0) ((0) (let ((e-20 (vector-ref arg-7 1))) (let ((e-21 (vector-ref arg-7 2))) (case (vector-ref arg-10 0) ((0) (let ((e-29 (vector-ref arg-10 1))) (let ((e-30 (vector-ref arg-10 2))) (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-log arg-0 "unify.application" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Both local apps, unifyIfEq") eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (CoreC-45Unify-unifyIfEq arg-0 arg-1 arg-2 1 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-20 e-21) arg-8) (vector 1 arg-9 (vector 0 e-29 e-30) arg-11) eta-0))))))))(else (case (vector-ref arg-10 0) ((2) (let ((e-15 (vector-ref arg-10 1))) (let ((e-16 (vector-ref arg-10 2))) (let ((e-17 (vector-ref arg-10 3))) (let ((sc5 (CoreC-45Unify-u--C-47C-61_Eq_UnifyMode (let ((e-1 (cdr arg-3))) e-1) 2))) (cond ((equal? sc5 1) (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-15 e-16 e-17) arg-11 (vector 1 arg-6 arg-7 arg-8))) (else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 (vector 2 e-15 e-16 e-17) arg-11)))))))))(else (if (null? arg-3) (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)) (let ((e-0 (car arg-3))) (let ((e-1 (cdr arg-3))) (cond ((equal? e-1 3) (case (vector-ref arg-7 0) ((1) (let ((e-3 (vector-ref arg-7 1))) (let ((e-4 (vector-ref arg-7 2))) (case (vector-ref arg-10 0) ((1) (let ((e-6 (vector-ref arg-10 1))) (let ((e-7 (vector-ref arg-10 2))) (let ((u--mode (cons e-0 3))) (let ((u--fx (vector 1 e-3 e-4))) (let ((u--fy (vector 1 e-6 e-7))) (let ((sc8 (CoreC-45Name-u--C-61C-61_Eq_Name e-4 e-7))) (cond ((equal? sc8 1) (CoreC-45Unify-unifyArgs (cons (cons (lambda (u--vars) (lambda (arg-6180) (lambda (arg-6183) (lambda (arg-6186) (lambda (arg-6187) (lambda (arg-6188) (lambda (arg-6190) (lambda (arg-6193) (lambda (eta-0) (CoreC-45Unify-u--unifyD_Unify_Closure u--vars arg-6180 arg-6183 arg-6186 arg-6187 arg-6188 arg-6190 arg-6193 eta-0)))))))))) (lambda (u--vars) (lambda (arg-6195) (lambda (arg-6198) (lambda (arg-6201) (lambda (arg-6202) (lambda (arg-6203) (lambda (arg-6205) (lambda (arg-6206) (lambda (eta-0) (CoreC-45Unify-u--unifyWithLazyD_Unify_Closure u--vars arg-6195 arg-6198 arg-6201 arg-6202 arg-6203 arg-6205 arg-6206 eta-0))))))))))) (cons (lambda (u--c) (lambda (u--vars) (lambda (arg-5827) (lambda (arg-5828) (lambda (arg-5830) (lambda (eta-0) (CoreC-45Normalise-u--quote_Quote_Closure u--c u--vars arg-5827 arg-5828 arg-5830 eta-0))))))) (lambda (u--c) (lambda (u--vars) (lambda (arg-5836) (lambda (arg-5839) (lambda (arg-5840) (lambda (arg-5842) (lambda (eta-0) (CoreC-45Normalise-u--quoteGen_Quote_Closure u--c u--vars arg-5836 arg-5839 arg-5840 arg-5842 eta-0)))))))))) arg-2 arg-0 arg-1 u--mode arg-4 arg-5 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) arg-8) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) arg-11))) (else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 u--mode arg-4 arg-5 arg-6 u--fx arg-8 (vector 1 arg-9 u--fy arg-11)))))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))) ((equal? e-1 2) (case (vector-ref arg-7 0) ((1) (let ((e-9 (vector-ref arg-7 1))) (let ((e-10 (vector-ref arg-7 2))) (case (vector-ref arg-10 0) ((1) (let ((e-12 (vector-ref arg-10 1))) (let ((e-13 (vector-ref arg-10 2))) (let ((u--mode (cons e-0 2))) (let ((u--fx (vector 1 e-9 e-10))) (let ((u--fy (vector 1 e-12 e-13))) (let ((sc8 (CoreC-45Name-u--C-61C-61_Eq_Name e-10 e-13))) (cond ((equal? sc8 1) (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-unverifiedLogC arg-0 "unify.application" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-1) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (clam-0) (lambda (eta-2) (CoreC-45Normalise-u--quote_Quote_Closure arg-0 arg-2 e-5 arg-5 clam-0 eta-2))) (PreludeC-45Types-u--map_Functor_List (lambda (eta-2) (Builtin-snd eta-2)) arg-8) '() eta-1))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Core-traverseC-39 (lambda (clam-0) (lambda (eta-2) (CoreC-45Normalise-u--quote_Quote_Closure arg-0 arg-2 e-5 arg-5 clam-0 eta-2))) (PreludeC-45Types-u--map_Functor_List (lambda (eta-2) (Builtin-snd eta-2)) arg-11) '() eta-1))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (PreludeC-45TypesC-45String-C-43C-43 "Matching args " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-2 u--d u--x)))) e-6) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-2 u--d u--x)))) e-7)))))))))))))))))) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else ((CoreC-45Unify-unifyArgs (cons (cons (lambda (u--vars) (lambda (arg-6180) (lambda (arg-6183) (lambda (arg-6186) (lambda (arg-6187) (lambda (arg-6188) (lambda (arg-6190) (lambda (arg-6193) (lambda (eta-1) (CoreC-45Unify-u--unifyD_Unify_Closure u--vars arg-6180 arg-6183 arg-6186 arg-6187 arg-6188 arg-6190 arg-6193 eta-1)))))))))) (lambda (u--vars) (lambda (arg-6195) (lambda (arg-6198) (lambda (arg-6201) (lambda (arg-6202) (lambda (arg-6203) (lambda (arg-6205) (lambda (arg-6206) (lambda (eta-1) (CoreC-45Unify-u--unifyWithLazyD_Unify_Closure u--vars arg-6195 arg-6198 arg-6201 arg-6202 arg-6203 arg-6205 arg-6206 eta-1))))))))))) (cons (lambda (u--c) (lambda (u--vars) (lambda (arg-5827) (lambda (arg-5828) (lambda (arg-5830) (lambda (eta-1) (CoreC-45Normalise-u--quote_Quote_Closure u--c u--vars arg-5827 arg-5828 arg-5830 eta-1))))))) (lambda (u--c) (lambda (u--vars) (lambda (arg-5836) (lambda (arg-5839) (lambda (arg-5840) (lambda (arg-5842) (lambda (eta-1) (CoreC-45Normalise-u--quoteGen_Quote_Closure u--c u--vars arg-5836 arg-5839 arg-5840 arg-5842 eta-1)))))))))) arg-2 arg-0 arg-1 u--mode arg-4 arg-5 (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) arg-8) (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) arg-11)) eta-0)))))) (else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 u--mode arg-4 arg-5 arg-6 u--fx arg-8 (vector 1 arg-9 u--fy arg-11)))))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))) ((2) (let ((e-24 (vector-ref arg-7 1))) (let ((e-25 (vector-ref arg-7 2))) (let ((e-26 (vector-ref arg-7 3))) (case (vector-ref arg-10 0) ((2) (let ((e-33 (vector-ref arg-10 1))) (let ((e-34 (vector-ref arg-10 2))) (let ((e-35 (vector-ref arg-10 3))) (lambda (eta-0) (let ((act-24 (CoreC-45Unify-isDefInvertible arg-0 arg-4 e-25 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((sc6 (let ((sc7 (PreludeC-45EqOrd-u--C-61C-61_Eq_Int e-25 e-34))) (cond ((equal? sc7 1) (cond ((equal? e-5 1) 1) (else (CoreC-45Unify-u--C-61C-61_Eq_UnifyMode (let ((e-1 (cdr arg-3))) e-1) 3)))) (else 0))))) (cond ((equal? sc6 1) ((CoreC-45Unify-unifyArgs (cons (cons (lambda (u--vars) (lambda (arg-6180) (lambda (arg-6183) (lambda (arg-6186) (lambda (arg-6187) (lambda (arg-6188) (lambda (arg-6190) (lambda (arg-6193) (lambda (eta-1) (CoreC-45Unify-u--unifyD_Unify_Closure u--vars arg-6180 arg-6183 arg-6186 arg-6187 arg-6188 arg-6190 arg-6193 eta-1)))))))))) (lambda (u--vars) (lambda (arg-6195) (lambda (arg-6198) (lambda (arg-6201) (lambda (arg-6202) (lambda (arg-6203) (lambda (arg-6205) (lambda (arg-6206) (lambda (eta-1) (CoreC-45Unify-u--unifyWithLazyD_Unify_Closure u--vars arg-6195 arg-6198 arg-6201 arg-6202 arg-6203 arg-6205 arg-6206 eta-1))))))))))) (cons (lambda (u--c) (lambda (u--vars) (lambda (arg-5827) (lambda (arg-5828) (lambda (arg-5830) (lambda (eta-1) (CoreC-45Normalise-u--quote_Quote_Closure u--c u--vars arg-5827 arg-5828 arg-5830 eta-1))))))) (lambda (u--c) (lambda (u--vars) (lambda (arg-5836) (lambda (arg-5839) (lambda (arg-5840) (lambda (arg-5842) (lambda (eta-1) (CoreC-45Normalise-u--quoteGen_Quote_Closure u--c u--vars arg-5836 arg-5839 arg-5840 arg-5842 eta-1)))))))))) arg-2 arg-0 arg-1 arg-3 arg-4 arg-5 (PreludeC-45TypesC-45List-C-43C-43 e-26 (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) arg-8)) (PreludeC-45TypesC-45List-C-43C-43 e-35 (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) arg-11))) eta-0)) (else (let ((act-25 (CoreC-45Unify-n--11762-14569-u--localsIn arg-2 e-26 e-25 e-24 e-35 e-34 e-33 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-26 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Unify-n--11762-14569-u--localsIn arg-2 e-26 e-25 e-24 e-35 e-34 e-33 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-35 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((u--xbigger (let ((sc9 (PreludeC-45Types-u--C-62_Ord_Nat e-6 e-7))) (cond ((equal? sc9 1) 1) (else (let ((sc10 (PreludeC-45Types-u--C-61C-61_Eq_Nat e-6 e-7))) (cond ((equal? sc10 1) (PreludeC-45Types-u--C-60C-61_Ord_Nat (PreludeC-45TypesC-45List-length arg-8) (PreludeC-45TypesC-45List-length arg-11))) (else 0)))))))) (let ((sc9 (let ((sc10 (cond ((equal? u--xbigger 1) 1) (else (CoreC-45Unify-u--C-61C-61_Eq_UnifyMode (let ((e-1 (cdr arg-3))) e-1) 2))))) (cond ((equal? sc10 1) (let ((sc11 (CoreC-45Unify-n--11762-14568-u--pv arg-2 e-26 e-25 e-24 e-35 e-34 e-33 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-24))) (cond ((equal? sc11 1) 0) (else 1)))) (else 0))))) (cond ((equal? sc9 1) ((CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 (vector 2 e-24 e-25 e-26) arg-8 (vector 1 arg-9 (vector 2 e-33 e-34 e-35) arg-11)) eta-0)) (else ((CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-9 (vector 2 e-33 e-34 e-35) arg-11 (vector 1 arg-6 (vector 2 e-24 e-25 e-26) arg-8)) eta-0)))))))))))))))))))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 (vector 2 e-24 e-25 e-26) arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (case (vector-ref arg-10 0) ((2) (let ((e-15 (vector-ref arg-10 1))) (let ((e-16 (vector-ref arg-10 2))) (let ((e-17 (vector-ref arg-10 3))) (let ((sc4 (CoreC-45Unify-u--C-47C-61_Eq_UnifyMode (let ((e-1 (cdr arg-3))) e-1) 2))) (cond ((equal? sc4 1) (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-15 e-16 e-17) arg-11 (vector 1 arg-6 arg-7 arg-8))) (else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 (vector 2 e-15 e-16 e-17) arg-11)))))))))(else (if (null? arg-3) (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)) (let ((e-0 (car arg-3))) (let ((e-1 (cdr arg-3))) (cond ((equal? e-1 3) (case (vector-ref arg-7 0) ((1) (let ((e-3 (vector-ref arg-7 1))) (let ((e-4 (vector-ref arg-7 2))) (case (vector-ref arg-10 0) ((1) (let ((e-6 (vector-ref arg-10 1))) (let ((e-7 (vector-ref arg-10 2))) (let ((u--mode (cons e-0 3))) (let ((u--fx (vector 1 e-3 e-4))) (let ((u--fy (vector 1 e-6 e-7))) (let ((sc7 (CoreC-45Name-u--C-61C-61_Eq_Name e-4 e-7))) (cond ((equal? sc7 1) (CoreC-45Unify-unifyArgs (cons (cons (lambda (u--vars) (lambda (arg-6180) (lambda (arg-6183) (lambda (arg-6186) (lambda (arg-6187) (lambda (arg-6188) (lambda (arg-6190) (lambda (arg-6193) (lambda (eta-0) (CoreC-45Unify-u--unifyD_Unify_Closure u--vars arg-6180 arg-6183 arg-6186 arg-6187 arg-6188 arg-6190 arg-6193 eta-0)))))))))) (lambda (u--vars) (lambda (arg-6195) (lambda (arg-6198) (lambda (arg-6201) (lambda (arg-6202) (lambda (arg-6203) (lambda (arg-6205) (lambda (arg-6206) (lambda (eta-0) (CoreC-45Unify-u--unifyWithLazyD_Unify_Closure u--vars arg-6195 arg-6198 arg-6201 arg-6202 arg-6203 arg-6205 arg-6206 eta-0))))))))))) (cons (lambda (u--c) (lambda (u--vars) (lambda (arg-5827) (lambda (arg-5828) (lambda (arg-5830) (lambda (eta-0) (CoreC-45Normalise-u--quote_Quote_Closure u--c u--vars arg-5827 arg-5828 arg-5830 eta-0))))))) (lambda (u--c) (lambda (u--vars) (lambda (arg-5836) (lambda (arg-5839) (lambda (arg-5840) (lambda (arg-5842) (lambda (eta-0) (CoreC-45Normalise-u--quoteGen_Quote_Closure u--c u--vars arg-5836 arg-5839 arg-5840 arg-5842 eta-0)))))))))) arg-2 arg-0 arg-1 u--mode arg-4 arg-5 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) arg-8) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) arg-11))) (else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 u--mode arg-4 arg-5 arg-6 u--fx arg-8 (vector 1 arg-9 u--fy arg-11)))))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))) ((equal? e-1 2) (case (vector-ref arg-7 0) ((1) (let ((e-9 (vector-ref arg-7 1))) (let ((e-10 (vector-ref arg-7 2))) (case (vector-ref arg-10 0) ((1) (let ((e-12 (vector-ref arg-10 1))) (let ((e-13 (vector-ref arg-10 2))) (let ((u--mode (cons e-0 2))) (let ((u--fx (vector 1 e-9 e-10))) (let ((u--fy (vector 1 e-12 e-13))) (let ((sc7 (CoreC-45Name-u--C-61C-61_Eq_Name e-10 e-13))) (cond ((equal? sc7 1) (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-unverifiedLogC arg-0 "unify.application" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-1) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (clam-0) (lambda (eta-2) (CoreC-45Normalise-u--quote_Quote_Closure arg-0 arg-2 e-5 arg-5 clam-0 eta-2))) (PreludeC-45Types-u--map_Functor_List (lambda (eta-2) (Builtin-snd eta-2)) arg-8) '() eta-1))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Core-traverseC-39 (lambda (clam-0) (lambda (eta-2) (CoreC-45Normalise-u--quote_Quote_Closure arg-0 arg-2 e-5 arg-5 clam-0 eta-2))) (PreludeC-45Types-u--map_Functor_List (lambda (eta-2) (Builtin-snd eta-2)) arg-11) '() eta-1))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (PreludeC-45TypesC-45String-C-43C-43 "Matching args " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-2 u--d u--x)))) e-6) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-2 u--d u--x)))) e-7)))))))))))))))))) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else ((CoreC-45Unify-unifyArgs (cons (cons (lambda (u--vars) (lambda (arg-6180) (lambda (arg-6183) (lambda (arg-6186) (lambda (arg-6187) (lambda (arg-6188) (lambda (arg-6190) (lambda (arg-6193) (lambda (eta-1) (CoreC-45Unify-u--unifyD_Unify_Closure u--vars arg-6180 arg-6183 arg-6186 arg-6187 arg-6188 arg-6190 arg-6193 eta-1)))))))))) (lambda (u--vars) (lambda (arg-6195) (lambda (arg-6198) (lambda (arg-6201) (lambda (arg-6202) (lambda (arg-6203) (lambda (arg-6205) (lambda (arg-6206) (lambda (eta-1) (CoreC-45Unify-u--unifyWithLazyD_Unify_Closure u--vars arg-6195 arg-6198 arg-6201 arg-6202 arg-6203 arg-6205 arg-6206 eta-1))))))))))) (cons (lambda (u--c) (lambda (u--vars) (lambda (arg-5827) (lambda (arg-5828) (lambda (arg-5830) (lambda (eta-1) (CoreC-45Normalise-u--quote_Quote_Closure u--c u--vars arg-5827 arg-5828 arg-5830 eta-1))))))) (lambda (u--c) (lambda (u--vars) (lambda (arg-5836) (lambda (arg-5839) (lambda (arg-5840) (lambda (arg-5842) (lambda (eta-1) (CoreC-45Normalise-u--quoteGen_Quote_Closure u--c u--vars arg-5836 arg-5839 arg-5840 arg-5842 eta-1)))))))))) arg-2 arg-0 arg-1 u--mode arg-4 arg-5 (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) arg-8) (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) arg-11)) eta-0)))))) (else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 u--mode arg-4 arg-5 arg-6 u--fx arg-8 (vector 1 arg-9 u--fy arg-11)))))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))))))))))))))(else (if (null? arg-3) (case (vector-ref arg-7 0) ((0) (let ((e-20 (vector-ref arg-7 1))) (let ((e-21 (vector-ref arg-7 2))) (case (vector-ref arg-10 0) ((0) (let ((e-29 (vector-ref arg-10 1))) (let ((e-30 (vector-ref arg-10 2))) (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-log arg-0 "unify.application" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Both local apps, unifyIfEq") eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (CoreC-45Unify-unifyIfEq arg-0 arg-1 arg-2 1 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-20 e-21) arg-8) (vector 1 arg-9 (vector 0 e-29 e-30) arg-11) eta-0))))))))(else (case (vector-ref arg-10 0) ((2) (let ((e-15 (vector-ref arg-10 1))) (let ((e-16 (vector-ref arg-10 2))) (let ((e-17 (vector-ref arg-10 3))) (let ((sc3 (CoreC-45Unify-u--C-47C-61_Eq_UnifyMode (let ((e-1 (cdr arg-3))) e-1) 2))) (cond ((equal? sc3 1) (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-15 e-16 e-17) arg-11 (vector 1 arg-6 arg-7 arg-8))) (else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 (vector 2 e-15 e-16 e-17) arg-11)))))))))(else (if (null? arg-3) (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)) (let ((e-0 (car arg-3))) (let ((e-1 (cdr arg-3))) (cond ((equal? e-1 3) (case (vector-ref arg-7 0) ((1) (let ((e-3 (vector-ref arg-7 1))) (let ((e-4 (vector-ref arg-7 2))) (case (vector-ref arg-10 0) ((1) (let ((e-6 (vector-ref arg-10 1))) (let ((e-7 (vector-ref arg-10 2))) (let ((u--mode (cons e-0 3))) (let ((u--fx (vector 1 e-3 e-4))) (let ((u--fy (vector 1 e-6 e-7))) (let ((sc6 (CoreC-45Name-u--C-61C-61_Eq_Name e-4 e-7))) (cond ((equal? sc6 1) (CoreC-45Unify-unifyArgs (cons (cons (lambda (u--vars) (lambda (arg-6180) (lambda (arg-6183) (lambda (arg-6186) (lambda (arg-6187) (lambda (arg-6188) (lambda (arg-6190) (lambda (arg-6193) (lambda (eta-0) (CoreC-45Unify-u--unifyD_Unify_Closure u--vars arg-6180 arg-6183 arg-6186 arg-6187 arg-6188 arg-6190 arg-6193 eta-0)))))))))) (lambda (u--vars) (lambda (arg-6195) (lambda (arg-6198) (lambda (arg-6201) (lambda (arg-6202) (lambda (arg-6203) (lambda (arg-6205) (lambda (arg-6206) (lambda (eta-0) (CoreC-45Unify-u--unifyWithLazyD_Unify_Closure u--vars arg-6195 arg-6198 arg-6201 arg-6202 arg-6203 arg-6205 arg-6206 eta-0))))))))))) (cons (lambda (u--c) (lambda (u--vars) (lambda (arg-5827) (lambda (arg-5828) (lambda (arg-5830) (lambda (eta-0) (CoreC-45Normalise-u--quote_Quote_Closure u--c u--vars arg-5827 arg-5828 arg-5830 eta-0))))))) (lambda (u--c) (lambda (u--vars) (lambda (arg-5836) (lambda (arg-5839) (lambda (arg-5840) (lambda (arg-5842) (lambda (eta-0) (CoreC-45Normalise-u--quoteGen_Quote_Closure u--c u--vars arg-5836 arg-5839 arg-5840 arg-5842 eta-0)))))))))) arg-2 arg-0 arg-1 u--mode arg-4 arg-5 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) arg-8) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) arg-11))) (else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 u--mode arg-4 arg-5 arg-6 u--fx arg-8 (vector 1 arg-9 u--fy arg-11)))))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))) ((equal? e-1 2) (case (vector-ref arg-7 0) ((1) (let ((e-9 (vector-ref arg-7 1))) (let ((e-10 (vector-ref arg-7 2))) (case (vector-ref arg-10 0) ((1) (let ((e-12 (vector-ref arg-10 1))) (let ((e-13 (vector-ref arg-10 2))) (let ((u--mode (cons e-0 2))) (let ((u--fx (vector 1 e-9 e-10))) (let ((u--fy (vector 1 e-12 e-13))) (let ((sc6 (CoreC-45Name-u--C-61C-61_Eq_Name e-10 e-13))) (cond ((equal? sc6 1) (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-unverifiedLogC arg-0 "unify.application" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-1) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (clam-0) (lambda (eta-2) (CoreC-45Normalise-u--quote_Quote_Closure arg-0 arg-2 e-5 arg-5 clam-0 eta-2))) (PreludeC-45Types-u--map_Functor_List (lambda (eta-2) (Builtin-snd eta-2)) arg-8) '() eta-1))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Core-traverseC-39 (lambda (clam-0) (lambda (eta-2) (CoreC-45Normalise-u--quote_Quote_Closure arg-0 arg-2 e-5 arg-5 clam-0 eta-2))) (PreludeC-45Types-u--map_Functor_List (lambda (eta-2) (Builtin-snd eta-2)) arg-11) '() eta-1))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (PreludeC-45TypesC-45String-C-43C-43 "Matching args " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-2 u--d u--x)))) e-6) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-2 u--d u--x)))) e-7)))))))))))))))))) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else ((CoreC-45Unify-unifyArgs (cons (cons (lambda (u--vars) (lambda (arg-6180) (lambda (arg-6183) (lambda (arg-6186) (lambda (arg-6187) (lambda (arg-6188) (lambda (arg-6190) (lambda (arg-6193) (lambda (eta-1) (CoreC-45Unify-u--unifyD_Unify_Closure u--vars arg-6180 arg-6183 arg-6186 arg-6187 arg-6188 arg-6190 arg-6193 eta-1)))))))))) (lambda (u--vars) (lambda (arg-6195) (lambda (arg-6198) (lambda (arg-6201) (lambda (arg-6202) (lambda (arg-6203) (lambda (arg-6205) (lambda (arg-6206) (lambda (eta-1) (CoreC-45Unify-u--unifyWithLazyD_Unify_Closure u--vars arg-6195 arg-6198 arg-6201 arg-6202 arg-6203 arg-6205 arg-6206 eta-1))))))))))) (cons (lambda (u--c) (lambda (u--vars) (lambda (arg-5827) (lambda (arg-5828) (lambda (arg-5830) (lambda (eta-1) (CoreC-45Normalise-u--quote_Quote_Closure u--c u--vars arg-5827 arg-5828 arg-5830 eta-1))))))) (lambda (u--c) (lambda (u--vars) (lambda (arg-5836) (lambda (arg-5839) (lambda (arg-5840) (lambda (arg-5842) (lambda (eta-1) (CoreC-45Normalise-u--quoteGen_Quote_Closure u--c u--vars arg-5836 arg-5839 arg-5840 arg-5842 eta-1)))))))))) arg-2 arg-0 arg-1 u--mode arg-4 arg-5 (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) arg-8) (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) arg-11)) eta-0)))))) (else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 u--mode arg-4 arg-5 arg-6 u--fx arg-8 (vector 1 arg-9 u--fy arg-11)))))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))) ((2) (let ((e-24 (vector-ref arg-7 1))) (let ((e-25 (vector-ref arg-7 2))) (let ((e-26 (vector-ref arg-7 3))) (case (vector-ref arg-10 0) ((2) (let ((e-33 (vector-ref arg-10 1))) (let ((e-34 (vector-ref arg-10 2))) (let ((e-35 (vector-ref arg-10 3))) (lambda (eta-0) (let ((act-24 (CoreC-45Unify-isDefInvertible arg-0 arg-4 e-25 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((sc4 (let ((sc5 (PreludeC-45EqOrd-u--C-61C-61_Eq_Int e-25 e-34))) (cond ((equal? sc5 1) (cond ((equal? e-5 1) 1) (else (CoreC-45Unify-u--C-61C-61_Eq_UnifyMode (let ((e-1 (cdr arg-3))) e-1) 3)))) (else 0))))) (cond ((equal? sc4 1) ((CoreC-45Unify-unifyArgs (cons (cons (lambda (u--vars) (lambda (arg-6180) (lambda (arg-6183) (lambda (arg-6186) (lambda (arg-6187) (lambda (arg-6188) (lambda (arg-6190) (lambda (arg-6193) (lambda (eta-1) (CoreC-45Unify-u--unifyD_Unify_Closure u--vars arg-6180 arg-6183 arg-6186 arg-6187 arg-6188 arg-6190 arg-6193 eta-1)))))))))) (lambda (u--vars) (lambda (arg-6195) (lambda (arg-6198) (lambda (arg-6201) (lambda (arg-6202) (lambda (arg-6203) (lambda (arg-6205) (lambda (arg-6206) (lambda (eta-1) (CoreC-45Unify-u--unifyWithLazyD_Unify_Closure u--vars arg-6195 arg-6198 arg-6201 arg-6202 arg-6203 arg-6205 arg-6206 eta-1))))))))))) (cons (lambda (u--c) (lambda (u--vars) (lambda (arg-5827) (lambda (arg-5828) (lambda (arg-5830) (lambda (eta-1) (CoreC-45Normalise-u--quote_Quote_Closure u--c u--vars arg-5827 arg-5828 arg-5830 eta-1))))))) (lambda (u--c) (lambda (u--vars) (lambda (arg-5836) (lambda (arg-5839) (lambda (arg-5840) (lambda (arg-5842) (lambda (eta-1) (CoreC-45Normalise-u--quoteGen_Quote_Closure u--c u--vars arg-5836 arg-5839 arg-5840 arg-5842 eta-1)))))))))) arg-2 arg-0 arg-1 arg-3 arg-4 arg-5 (PreludeC-45TypesC-45List-C-43C-43 e-26 (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) arg-8)) (PreludeC-45TypesC-45List-C-43C-43 e-35 (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) arg-11))) eta-0)) (else (let ((act-25 (CoreC-45Unify-n--11762-14569-u--localsIn arg-2 e-26 e-25 e-24 e-35 e-34 e-33 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-26 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Unify-n--11762-14569-u--localsIn arg-2 e-26 e-25 e-24 e-35 e-34 e-33 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-35 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((u--xbigger (let ((sc7 (PreludeC-45Types-u--C-62_Ord_Nat e-6 e-7))) (cond ((equal? sc7 1) 1) (else (let ((sc8 (PreludeC-45Types-u--C-61C-61_Eq_Nat e-6 e-7))) (cond ((equal? sc8 1) (PreludeC-45Types-u--C-60C-61_Ord_Nat (PreludeC-45TypesC-45List-length arg-8) (PreludeC-45TypesC-45List-length arg-11))) (else 0)))))))) (let ((sc7 (let ((sc8 (cond ((equal? u--xbigger 1) 1) (else (CoreC-45Unify-u--C-61C-61_Eq_UnifyMode (let ((e-1 (cdr arg-3))) e-1) 2))))) (cond ((equal? sc8 1) (let ((sc9 (CoreC-45Unify-n--11762-14568-u--pv arg-2 e-26 e-25 e-24 e-35 e-34 e-33 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-24))) (cond ((equal? sc9 1) 0) (else 1)))) (else 0))))) (cond ((equal? sc7 1) ((CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 (vector 2 e-24 e-25 e-26) arg-8 (vector 1 arg-9 (vector 2 e-33 e-34 e-35) arg-11)) eta-0)) (else ((CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-9 (vector 2 e-33 e-34 e-35) arg-11 (vector 1 arg-6 (vector 2 e-24 e-25 e-26) arg-8)) eta-0)))))))))))))))))))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 (vector 2 e-24 e-25 e-26) arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (case (vector-ref arg-10 0) ((2) (let ((e-15 (vector-ref arg-10 1))) (let ((e-16 (vector-ref arg-10 2))) (let ((e-17 (vector-ref arg-10 3))) (let ((sc2 (CoreC-45Unify-u--C-47C-61_Eq_UnifyMode (let ((e-1 (cdr arg-3))) e-1) 2))) (cond ((equal? sc2 1) (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-15 e-16 e-17) arg-11 (vector 1 arg-6 arg-7 arg-8))) (else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 (vector 2 e-15 e-16 e-17) arg-11)))))))))(else (if (null? arg-3) (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)) (let ((e-0 (car arg-3))) (let ((e-1 (cdr arg-3))) (cond ((equal? e-1 3) (case (vector-ref arg-7 0) ((1) (let ((e-3 (vector-ref arg-7 1))) (let ((e-4 (vector-ref arg-7 2))) (case (vector-ref arg-10 0) ((1) (let ((e-6 (vector-ref arg-10 1))) (let ((e-7 (vector-ref arg-10 2))) (let ((u--mode (cons e-0 3))) (let ((u--fx (vector 1 e-3 e-4))) (let ((u--fy (vector 1 e-6 e-7))) (let ((sc5 (CoreC-45Name-u--C-61C-61_Eq_Name e-4 e-7))) (cond ((equal? sc5 1) (CoreC-45Unify-unifyArgs (cons (cons (lambda (u--vars) (lambda (arg-6180) (lambda (arg-6183) (lambda (arg-6186) (lambda (arg-6187) (lambda (arg-6188) (lambda (arg-6190) (lambda (arg-6193) (lambda (eta-0) (CoreC-45Unify-u--unifyD_Unify_Closure u--vars arg-6180 arg-6183 arg-6186 arg-6187 arg-6188 arg-6190 arg-6193 eta-0)))))))))) (lambda (u--vars) (lambda (arg-6195) (lambda (arg-6198) (lambda (arg-6201) (lambda (arg-6202) (lambda (arg-6203) (lambda (arg-6205) (lambda (arg-6206) (lambda (eta-0) (CoreC-45Unify-u--unifyWithLazyD_Unify_Closure u--vars arg-6195 arg-6198 arg-6201 arg-6202 arg-6203 arg-6205 arg-6206 eta-0))))))))))) (cons (lambda (u--c) (lambda (u--vars) (lambda (arg-5827) (lambda (arg-5828) (lambda (arg-5830) (lambda (eta-0) (CoreC-45Normalise-u--quote_Quote_Closure u--c u--vars arg-5827 arg-5828 arg-5830 eta-0))))))) (lambda (u--c) (lambda (u--vars) (lambda (arg-5836) (lambda (arg-5839) (lambda (arg-5840) (lambda (arg-5842) (lambda (eta-0) (CoreC-45Normalise-u--quoteGen_Quote_Closure u--c u--vars arg-5836 arg-5839 arg-5840 arg-5842 eta-0)))))))))) arg-2 arg-0 arg-1 u--mode arg-4 arg-5 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) arg-8) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) arg-11))) (else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 u--mode arg-4 arg-5 arg-6 u--fx arg-8 (vector 1 arg-9 u--fy arg-11)))))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))) ((equal? e-1 2) (case (vector-ref arg-7 0) ((1) (let ((e-9 (vector-ref arg-7 1))) (let ((e-10 (vector-ref arg-7 2))) (case (vector-ref arg-10 0) ((1) (let ((e-12 (vector-ref arg-10 1))) (let ((e-13 (vector-ref arg-10 2))) (let ((u--mode (cons e-0 2))) (let ((u--fx (vector 1 e-9 e-10))) (let ((u--fy (vector 1 e-12 e-13))) (let ((sc5 (CoreC-45Name-u--C-61C-61_Eq_Name e-10 e-13))) (cond ((equal? sc5 1) (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-unverifiedLogC arg-0 "unify.application" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-1) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (clam-0) (lambda (eta-2) (CoreC-45Normalise-u--quote_Quote_Closure arg-0 arg-2 e-5 arg-5 clam-0 eta-2))) (PreludeC-45Types-u--map_Functor_List (lambda (eta-2) (Builtin-snd eta-2)) arg-8) '() eta-1))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Core-traverseC-39 (lambda (clam-0) (lambda (eta-2) (CoreC-45Normalise-u--quote_Quote_Closure arg-0 arg-2 e-5 arg-5 clam-0 eta-2))) (PreludeC-45Types-u--map_Functor_List (lambda (eta-2) (Builtin-snd eta-2)) arg-11) '() eta-1))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (PreludeC-45TypesC-45String-C-43C-43 "Matching args " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-2 u--d u--x)))) e-6) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-2 u--d u--x)))) e-7)))))))))))))))))) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else ((CoreC-45Unify-unifyArgs (cons (cons (lambda (u--vars) (lambda (arg-6180) (lambda (arg-6183) (lambda (arg-6186) (lambda (arg-6187) (lambda (arg-6188) (lambda (arg-6190) (lambda (arg-6193) (lambda (eta-1) (CoreC-45Unify-u--unifyD_Unify_Closure u--vars arg-6180 arg-6183 arg-6186 arg-6187 arg-6188 arg-6190 arg-6193 eta-1)))))))))) (lambda (u--vars) (lambda (arg-6195) (lambda (arg-6198) (lambda (arg-6201) (lambda (arg-6202) (lambda (arg-6203) (lambda (arg-6205) (lambda (arg-6206) (lambda (eta-1) (CoreC-45Unify-u--unifyWithLazyD_Unify_Closure u--vars arg-6195 arg-6198 arg-6201 arg-6202 arg-6203 arg-6205 arg-6206 eta-1))))))))))) (cons (lambda (u--c) (lambda (u--vars) (lambda (arg-5827) (lambda (arg-5828) (lambda (arg-5830) (lambda (eta-1) (CoreC-45Normalise-u--quote_Quote_Closure u--c u--vars arg-5827 arg-5828 arg-5830 eta-1))))))) (lambda (u--c) (lambda (u--vars) (lambda (arg-5836) (lambda (arg-5839) (lambda (arg-5840) (lambda (arg-5842) (lambda (eta-1) (CoreC-45Normalise-u--quoteGen_Quote_Closure u--c u--vars arg-5836 arg-5839 arg-5840 arg-5842 eta-1)))))))))) arg-2 arg-0 arg-1 u--mode arg-4 arg-5 (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) arg-8) (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) arg-11)) eta-0)))))) (else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 u--mode arg-4 arg-5 arg-6 u--fx arg-8 (vector 1 arg-9 u--fy arg-11)))))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))))) (let ((e-36 (car arg-3))) (let ((e-37 (cdr arg-3))) (cond ((equal? e-37 1) (case (vector-ref arg-7 0) ((0) (let ((e-40 (vector-ref arg-7 1))) (let ((e-41 (vector-ref arg-7 2))) (case (vector-ref arg-10 0) ((0) (let ((e-45 (vector-ref arg-10 1))) (let ((e-46 (vector-ref arg-10 2))) (let ((u--mode (cons e-36 1))) (let ((sc4 (PreludeC-45Types-u--C-61C-61_Eq_Nat e-41 e-46))) (cond ((equal? sc4 1) (CoreC-45Unify-unifyArgs (cons (cons (lambda (u--vars) (lambda (arg-6180) (lambda (arg-6183) (lambda (arg-6186) (lambda (arg-6187) (lambda (arg-6188) (lambda (arg-6190) (lambda (arg-6193) (lambda (eta-0) (CoreC-45Unify-u--unifyD_Unify_Closure u--vars arg-6180 arg-6183 arg-6186 arg-6187 arg-6188 arg-6190 arg-6193 eta-0)))))))))) (lambda (u--vars) (lambda (arg-6195) (lambda (arg-6198) (lambda (arg-6201) (lambda (arg-6202) (lambda (arg-6203) (lambda (arg-6205) (lambda (arg-6206) (lambda (eta-0) (CoreC-45Unify-u--unifyWithLazyD_Unify_Closure u--vars arg-6195 arg-6198 arg-6201 arg-6202 arg-6203 arg-6205 arg-6206 eta-0))))))))))) (cons (lambda (u--c) (lambda (u--vars) (lambda (arg-5827) (lambda (arg-5828) (lambda (arg-5830) (lambda (eta-0) (CoreC-45Normalise-u--quote_Quote_Closure u--c u--vars arg-5827 arg-5828 arg-5830 eta-0))))))) (lambda (u--c) (lambda (u--vars) (lambda (arg-5836) (lambda (arg-5839) (lambda (arg-5840) (lambda (arg-5842) (lambda (eta-0) (CoreC-45Normalise-u--quoteGen_Quote_Closure u--c u--vars arg-5836 arg-5839 arg-5840 arg-5842 eta-0)))))))))) arg-2 arg-0 arg-1 u--mode arg-4 arg-5 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) arg-8) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) arg-11))) (else (lambda (eta-0) (CoreC-45Unify-postpone arg-2 arg-0 arg-1 arg-4 u--mode "Postponing local app" arg-5 (vector 1 arg-6 (vector 0 e-40 e-41) arg-8) (vector 1 arg-9 (vector 0 e-45 e-46) arg-11) eta-0)))))))))(else (case (vector-ref arg-7 0) ((0) (let ((e-20 (vector-ref arg-7 1))) (let ((e-21 (vector-ref arg-7 2))) (case (vector-ref arg-10 0) ((0) (let ((e-29 (vector-ref arg-10 1))) (let ((e-30 (vector-ref arg-10 2))) (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-log arg-0 "unify.application" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Both local apps, unifyIfEq") eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (CoreC-45Unify-unifyIfEq arg-0 arg-1 arg-2 1 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-20 e-21) arg-8) (vector 1 arg-9 (vector 0 e-29 e-30) arg-11) eta-0))))))))(else (case (vector-ref arg-10 0) ((2) (let ((e-15 (vector-ref arg-10 1))) (let ((e-16 (vector-ref arg-10 2))) (let ((e-17 (vector-ref arg-10 3))) (let ((sc5 (CoreC-45Unify-u--C-47C-61_Eq_UnifyMode (let ((e-1 (cdr arg-3))) e-1) 2))) (cond ((equal? sc5 1) (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-15 e-16 e-17) arg-11 (vector 1 arg-6 arg-7 arg-8))) (else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 (vector 2 e-15 e-16 e-17) arg-11)))))))))(else (if (null? arg-3) (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)) (let ((e-0 (car arg-3))) (let ((e-1 (cdr arg-3))) (cond ((equal? e-1 3) (case (vector-ref arg-7 0) ((1) (let ((e-3 (vector-ref arg-7 1))) (let ((e-4 (vector-ref arg-7 2))) (case (vector-ref arg-10 0) ((1) (let ((e-6 (vector-ref arg-10 1))) (let ((e-7 (vector-ref arg-10 2))) (let ((u--mode (cons e-0 3))) (let ((u--fx (vector 1 e-3 e-4))) (let ((u--fy (vector 1 e-6 e-7))) (let ((sc8 (CoreC-45Name-u--C-61C-61_Eq_Name e-4 e-7))) (cond ((equal? sc8 1) (CoreC-45Unify-unifyArgs (cons (cons (lambda (u--vars) (lambda (arg-6180) (lambda (arg-6183) (lambda (arg-6186) (lambda (arg-6187) (lambda (arg-6188) (lambda (arg-6190) (lambda (arg-6193) (lambda (eta-0) (CoreC-45Unify-u--unifyD_Unify_Closure u--vars arg-6180 arg-6183 arg-6186 arg-6187 arg-6188 arg-6190 arg-6193 eta-0)))))))))) (lambda (u--vars) (lambda (arg-6195) (lambda (arg-6198) (lambda (arg-6201) (lambda (arg-6202) (lambda (arg-6203) (lambda (arg-6205) (lambda (arg-6206) (lambda (eta-0) (CoreC-45Unify-u--unifyWithLazyD_Unify_Closure u--vars arg-6195 arg-6198 arg-6201 arg-6202 arg-6203 arg-6205 arg-6206 eta-0))))))))))) (cons (lambda (u--c) (lambda (u--vars) (lambda (arg-5827) (lambda (arg-5828) (lambda (arg-5830) (lambda (eta-0) (CoreC-45Normalise-u--quote_Quote_Closure u--c u--vars arg-5827 arg-5828 arg-5830 eta-0))))))) (lambda (u--c) (lambda (u--vars) (lambda (arg-5836) (lambda (arg-5839) (lambda (arg-5840) (lambda (arg-5842) (lambda (eta-0) (CoreC-45Normalise-u--quoteGen_Quote_Closure u--c u--vars arg-5836 arg-5839 arg-5840 arg-5842 eta-0)))))))))) arg-2 arg-0 arg-1 u--mode arg-4 arg-5 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) arg-8) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) arg-11))) (else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 u--mode arg-4 arg-5 arg-6 u--fx arg-8 (vector 1 arg-9 u--fy arg-11)))))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))) ((equal? e-1 2) (case (vector-ref arg-7 0) ((1) (let ((e-9 (vector-ref arg-7 1))) (let ((e-10 (vector-ref arg-7 2))) (case (vector-ref arg-10 0) ((1) (let ((e-12 (vector-ref arg-10 1))) (let ((e-13 (vector-ref arg-10 2))) (let ((u--mode (cons e-0 2))) (let ((u--fx (vector 1 e-9 e-10))) (let ((u--fy (vector 1 e-12 e-13))) (let ((sc8 (CoreC-45Name-u--C-61C-61_Eq_Name e-10 e-13))) (cond ((equal? sc8 1) (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-unverifiedLogC arg-0 "unify.application" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-1) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (clam-0) (lambda (eta-2) (CoreC-45Normalise-u--quote_Quote_Closure arg-0 arg-2 e-5 arg-5 clam-0 eta-2))) (PreludeC-45Types-u--map_Functor_List (lambda (eta-2) (Builtin-snd eta-2)) arg-8) '() eta-1))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Core-traverseC-39 (lambda (clam-0) (lambda (eta-2) (CoreC-45Normalise-u--quote_Quote_Closure arg-0 arg-2 e-5 arg-5 clam-0 eta-2))) (PreludeC-45Types-u--map_Functor_List (lambda (eta-2) (Builtin-snd eta-2)) arg-11) '() eta-1))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (PreludeC-45TypesC-45String-C-43C-43 "Matching args " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-2 u--d u--x)))) e-6) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-2 u--d u--x)))) e-7)))))))))))))))))) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else ((CoreC-45Unify-unifyArgs (cons (cons (lambda (u--vars) (lambda (arg-6180) (lambda (arg-6183) (lambda (arg-6186) (lambda (arg-6187) (lambda (arg-6188) (lambda (arg-6190) (lambda (arg-6193) (lambda (eta-1) (CoreC-45Unify-u--unifyD_Unify_Closure u--vars arg-6180 arg-6183 arg-6186 arg-6187 arg-6188 arg-6190 arg-6193 eta-1)))))))))) (lambda (u--vars) (lambda (arg-6195) (lambda (arg-6198) (lambda (arg-6201) (lambda (arg-6202) (lambda (arg-6203) (lambda (arg-6205) (lambda (arg-6206) (lambda (eta-1) (CoreC-45Unify-u--unifyWithLazyD_Unify_Closure u--vars arg-6195 arg-6198 arg-6201 arg-6202 arg-6203 arg-6205 arg-6206 eta-1))))))))))) (cons (lambda (u--c) (lambda (u--vars) (lambda (arg-5827) (lambda (arg-5828) (lambda (arg-5830) (lambda (eta-1) (CoreC-45Normalise-u--quote_Quote_Closure u--c u--vars arg-5827 arg-5828 arg-5830 eta-1))))))) (lambda (u--c) (lambda (u--vars) (lambda (arg-5836) (lambda (arg-5839) (lambda (arg-5840) (lambda (arg-5842) (lambda (eta-1) (CoreC-45Normalise-u--quoteGen_Quote_Closure u--c u--vars arg-5836 arg-5839 arg-5840 arg-5842 eta-1)))))))))) arg-2 arg-0 arg-1 u--mode arg-4 arg-5 (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) arg-8) (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) arg-11)) eta-0)))))) (else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 u--mode arg-4 arg-5 arg-6 u--fx arg-8 (vector 1 arg-9 u--fy arg-11)))))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))) ((2) (let ((e-24 (vector-ref arg-7 1))) (let ((e-25 (vector-ref arg-7 2))) (let ((e-26 (vector-ref arg-7 3))) (case (vector-ref arg-10 0) ((2) (let ((e-33 (vector-ref arg-10 1))) (let ((e-34 (vector-ref arg-10 2))) (let ((e-35 (vector-ref arg-10 3))) (lambda (eta-0) (let ((act-24 (CoreC-45Unify-isDefInvertible arg-0 arg-4 e-25 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((sc6 (let ((sc7 (PreludeC-45EqOrd-u--C-61C-61_Eq_Int e-25 e-34))) (cond ((equal? sc7 1) (cond ((equal? e-5 1) 1) (else (CoreC-45Unify-u--C-61C-61_Eq_UnifyMode (let ((e-1 (cdr arg-3))) e-1) 3)))) (else 0))))) (cond ((equal? sc6 1) ((CoreC-45Unify-unifyArgs (cons (cons (lambda (u--vars) (lambda (arg-6180) (lambda (arg-6183) (lambda (arg-6186) (lambda (arg-6187) (lambda (arg-6188) (lambda (arg-6190) (lambda (arg-6193) (lambda (eta-1) (CoreC-45Unify-u--unifyD_Unify_Closure u--vars arg-6180 arg-6183 arg-6186 arg-6187 arg-6188 arg-6190 arg-6193 eta-1)))))))))) (lambda (u--vars) (lambda (arg-6195) (lambda (arg-6198) (lambda (arg-6201) (lambda (arg-6202) (lambda (arg-6203) (lambda (arg-6205) (lambda (arg-6206) (lambda (eta-1) (CoreC-45Unify-u--unifyWithLazyD_Unify_Closure u--vars arg-6195 arg-6198 arg-6201 arg-6202 arg-6203 arg-6205 arg-6206 eta-1))))))))))) (cons (lambda (u--c) (lambda (u--vars) (lambda (arg-5827) (lambda (arg-5828) (lambda (arg-5830) (lambda (eta-1) (CoreC-45Normalise-u--quote_Quote_Closure u--c u--vars arg-5827 arg-5828 arg-5830 eta-1))))))) (lambda (u--c) (lambda (u--vars) (lambda (arg-5836) (lambda (arg-5839) (lambda (arg-5840) (lambda (arg-5842) (lambda (eta-1) (CoreC-45Normalise-u--quoteGen_Quote_Closure u--c u--vars arg-5836 arg-5839 arg-5840 arg-5842 eta-1)))))))))) arg-2 arg-0 arg-1 arg-3 arg-4 arg-5 (PreludeC-45TypesC-45List-C-43C-43 e-26 (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) arg-8)) (PreludeC-45TypesC-45List-C-43C-43 e-35 (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) arg-11))) eta-0)) (else (let ((act-25 (CoreC-45Unify-n--11762-14569-u--localsIn arg-2 e-26 e-25 e-24 e-35 e-34 e-33 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-26 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Unify-n--11762-14569-u--localsIn arg-2 e-26 e-25 e-24 e-35 e-34 e-33 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-35 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((u--xbigger (let ((sc9 (PreludeC-45Types-u--C-62_Ord_Nat e-6 e-7))) (cond ((equal? sc9 1) 1) (else (let ((sc10 (PreludeC-45Types-u--C-61C-61_Eq_Nat e-6 e-7))) (cond ((equal? sc10 1) (PreludeC-45Types-u--C-60C-61_Ord_Nat (PreludeC-45TypesC-45List-length arg-8) (PreludeC-45TypesC-45List-length arg-11))) (else 0)))))))) (let ((sc9 (let ((sc10 (cond ((equal? u--xbigger 1) 1) (else (CoreC-45Unify-u--C-61C-61_Eq_UnifyMode (let ((e-1 (cdr arg-3))) e-1) 2))))) (cond ((equal? sc10 1) (let ((sc11 (CoreC-45Unify-n--11762-14568-u--pv arg-2 e-26 e-25 e-24 e-35 e-34 e-33 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-24))) (cond ((equal? sc11 1) 0) (else 1)))) (else 0))))) (cond ((equal? sc9 1) ((CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 (vector 2 e-24 e-25 e-26) arg-8 (vector 1 arg-9 (vector 2 e-33 e-34 e-35) arg-11)) eta-0)) (else ((CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-9 (vector 2 e-33 e-34 e-35) arg-11 (vector 1 arg-6 (vector 2 e-24 e-25 e-26) arg-8)) eta-0)))))))))))))))))))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 (vector 2 e-24 e-25 e-26) arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (case (vector-ref arg-10 0) ((2) (let ((e-15 (vector-ref arg-10 1))) (let ((e-16 (vector-ref arg-10 2))) (let ((e-17 (vector-ref arg-10 3))) (let ((sc4 (CoreC-45Unify-u--C-47C-61_Eq_UnifyMode (let ((e-1 (cdr arg-3))) e-1) 2))) (cond ((equal? sc4 1) (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-15 e-16 e-17) arg-11 (vector 1 arg-6 arg-7 arg-8))) (else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 (vector 2 e-15 e-16 e-17) arg-11)))))))))(else (if (null? arg-3) (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)) (let ((e-0 (car arg-3))) (let ((e-1 (cdr arg-3))) (cond ((equal? e-1 3) (case (vector-ref arg-7 0) ((1) (let ((e-3 (vector-ref arg-7 1))) (let ((e-4 (vector-ref arg-7 2))) (case (vector-ref arg-10 0) ((1) (let ((e-6 (vector-ref arg-10 1))) (let ((e-7 (vector-ref arg-10 2))) (let ((u--mode (cons e-0 3))) (let ((u--fx (vector 1 e-3 e-4))) (let ((u--fy (vector 1 e-6 e-7))) (let ((sc7 (CoreC-45Name-u--C-61C-61_Eq_Name e-4 e-7))) (cond ((equal? sc7 1) (CoreC-45Unify-unifyArgs (cons (cons (lambda (u--vars) (lambda (arg-6180) (lambda (arg-6183) (lambda (arg-6186) (lambda (arg-6187) (lambda (arg-6188) (lambda (arg-6190) (lambda (arg-6193) (lambda (eta-0) (CoreC-45Unify-u--unifyD_Unify_Closure u--vars arg-6180 arg-6183 arg-6186 arg-6187 arg-6188 arg-6190 arg-6193 eta-0)))))))))) (lambda (u--vars) (lambda (arg-6195) (lambda (arg-6198) (lambda (arg-6201) (lambda (arg-6202) (lambda (arg-6203) (lambda (arg-6205) (lambda (arg-6206) (lambda (eta-0) (CoreC-45Unify-u--unifyWithLazyD_Unify_Closure u--vars arg-6195 arg-6198 arg-6201 arg-6202 arg-6203 arg-6205 arg-6206 eta-0))))))))))) (cons (lambda (u--c) (lambda (u--vars) (lambda (arg-5827) (lambda (arg-5828) (lambda (arg-5830) (lambda (eta-0) (CoreC-45Normalise-u--quote_Quote_Closure u--c u--vars arg-5827 arg-5828 arg-5830 eta-0))))))) (lambda (u--c) (lambda (u--vars) (lambda (arg-5836) (lambda (arg-5839) (lambda (arg-5840) (lambda (arg-5842) (lambda (eta-0) (CoreC-45Normalise-u--quoteGen_Quote_Closure u--c u--vars arg-5836 arg-5839 arg-5840 arg-5842 eta-0)))))))))) arg-2 arg-0 arg-1 u--mode arg-4 arg-5 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) arg-8) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) arg-11))) (else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 u--mode arg-4 arg-5 arg-6 u--fx arg-8 (vector 1 arg-9 u--fy arg-11)))))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))) ((equal? e-1 2) (case (vector-ref arg-7 0) ((1) (let ((e-9 (vector-ref arg-7 1))) (let ((e-10 (vector-ref arg-7 2))) (case (vector-ref arg-10 0) ((1) (let ((e-12 (vector-ref arg-10 1))) (let ((e-13 (vector-ref arg-10 2))) (let ((u--mode (cons e-0 2))) (let ((u--fx (vector 1 e-9 e-10))) (let ((u--fy (vector 1 e-12 e-13))) (let ((sc7 (CoreC-45Name-u--C-61C-61_Eq_Name e-10 e-13))) (cond ((equal? sc7 1) (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-unverifiedLogC arg-0 "unify.application" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-1) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (clam-0) (lambda (eta-2) (CoreC-45Normalise-u--quote_Quote_Closure arg-0 arg-2 e-5 arg-5 clam-0 eta-2))) (PreludeC-45Types-u--map_Functor_List (lambda (eta-2) (Builtin-snd eta-2)) arg-8) '() eta-1))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Core-traverseC-39 (lambda (clam-0) (lambda (eta-2) (CoreC-45Normalise-u--quote_Quote_Closure arg-0 arg-2 e-5 arg-5 clam-0 eta-2))) (PreludeC-45Types-u--map_Functor_List (lambda (eta-2) (Builtin-snd eta-2)) arg-11) '() eta-1))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (PreludeC-45TypesC-45String-C-43C-43 "Matching args " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-2 u--d u--x)))) e-6) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-2 u--d u--x)))) e-7)))))))))))))))))) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else ((CoreC-45Unify-unifyArgs (cons (cons (lambda (u--vars) (lambda (arg-6180) (lambda (arg-6183) (lambda (arg-6186) (lambda (arg-6187) (lambda (arg-6188) (lambda (arg-6190) (lambda (arg-6193) (lambda (eta-1) (CoreC-45Unify-u--unifyD_Unify_Closure u--vars arg-6180 arg-6183 arg-6186 arg-6187 arg-6188 arg-6190 arg-6193 eta-1)))))))))) (lambda (u--vars) (lambda (arg-6195) (lambda (arg-6198) (lambda (arg-6201) (lambda (arg-6202) (lambda (arg-6203) (lambda (arg-6205) (lambda (arg-6206) (lambda (eta-1) (CoreC-45Unify-u--unifyWithLazyD_Unify_Closure u--vars arg-6195 arg-6198 arg-6201 arg-6202 arg-6203 arg-6205 arg-6206 eta-1))))))))))) (cons (lambda (u--c) (lambda (u--vars) (lambda (arg-5827) (lambda (arg-5828) (lambda (arg-5830) (lambda (eta-1) (CoreC-45Normalise-u--quote_Quote_Closure u--c u--vars arg-5827 arg-5828 arg-5830 eta-1))))))) (lambda (u--c) (lambda (u--vars) (lambda (arg-5836) (lambda (arg-5839) (lambda (arg-5840) (lambda (arg-5842) (lambda (eta-1) (CoreC-45Normalise-u--quoteGen_Quote_Closure u--c u--vars arg-5836 arg-5839 arg-5840 arg-5842 eta-1)))))))))) arg-2 arg-0 arg-1 u--mode arg-4 arg-5 (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) arg-8) (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) arg-11)) eta-0)))))) (else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 u--mode arg-4 arg-5 arg-6 u--fx arg-8 (vector 1 arg-9 u--fy arg-11)))))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))))))))))(else (case (vector-ref arg-7 0) ((0) (let ((e-20 (vector-ref arg-7 1))) (let ((e-21 (vector-ref arg-7 2))) (case (vector-ref arg-10 0) ((0) (let ((e-29 (vector-ref arg-10 1))) (let ((e-30 (vector-ref arg-10 2))) (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-log arg-0 "unify.application" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Both local apps, unifyIfEq") eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (CoreC-45Unify-unifyIfEq arg-0 arg-1 arg-2 1 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-20 e-21) arg-8) (vector 1 arg-9 (vector 0 e-29 e-30) arg-11) eta-0))))))))(else (case (vector-ref arg-10 0) ((2) (let ((e-15 (vector-ref arg-10 1))) (let ((e-16 (vector-ref arg-10 2))) (let ((e-17 (vector-ref arg-10 3))) (let ((sc4 (CoreC-45Unify-u--C-47C-61_Eq_UnifyMode (let ((e-1 (cdr arg-3))) e-1) 2))) (cond ((equal? sc4 1) (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-15 e-16 e-17) arg-11 (vector 1 arg-6 arg-7 arg-8))) (else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 (vector 2 e-15 e-16 e-17) arg-11)))))))))(else (if (null? arg-3) (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)) (let ((e-0 (car arg-3))) (let ((e-1 (cdr arg-3))) (cond ((equal? e-1 3) (case (vector-ref arg-7 0) ((1) (let ((e-3 (vector-ref arg-7 1))) (let ((e-4 (vector-ref arg-7 2))) (case (vector-ref arg-10 0) ((1) (let ((e-6 (vector-ref arg-10 1))) (let ((e-7 (vector-ref arg-10 2))) (let ((u--mode (cons e-0 3))) (let ((u--fx (vector 1 e-3 e-4))) (let ((u--fy (vector 1 e-6 e-7))) (let ((sc7 (CoreC-45Name-u--C-61C-61_Eq_Name e-4 e-7))) (cond ((equal? sc7 1) (CoreC-45Unify-unifyArgs (cons (cons (lambda (u--vars) (lambda (arg-6180) (lambda (arg-6183) (lambda (arg-6186) (lambda (arg-6187) (lambda (arg-6188) (lambda (arg-6190) (lambda (arg-6193) (lambda (eta-0) (CoreC-45Unify-u--unifyD_Unify_Closure u--vars arg-6180 arg-6183 arg-6186 arg-6187 arg-6188 arg-6190 arg-6193 eta-0)))))))))) (lambda (u--vars) (lambda (arg-6195) (lambda (arg-6198) (lambda (arg-6201) (lambda (arg-6202) (lambda (arg-6203) (lambda (arg-6205) (lambda (arg-6206) (lambda (eta-0) (CoreC-45Unify-u--unifyWithLazyD_Unify_Closure u--vars arg-6195 arg-6198 arg-6201 arg-6202 arg-6203 arg-6205 arg-6206 eta-0))))))))))) (cons (lambda (u--c) (lambda (u--vars) (lambda (arg-5827) (lambda (arg-5828) (lambda (arg-5830) (lambda (eta-0) (CoreC-45Normalise-u--quote_Quote_Closure u--c u--vars arg-5827 arg-5828 arg-5830 eta-0))))))) (lambda (u--c) (lambda (u--vars) (lambda (arg-5836) (lambda (arg-5839) (lambda (arg-5840) (lambda (arg-5842) (lambda (eta-0) (CoreC-45Normalise-u--quoteGen_Quote_Closure u--c u--vars arg-5836 arg-5839 arg-5840 arg-5842 eta-0)))))))))) arg-2 arg-0 arg-1 u--mode arg-4 arg-5 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) arg-8) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) arg-11))) (else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 u--mode arg-4 arg-5 arg-6 u--fx arg-8 (vector 1 arg-9 u--fy arg-11)))))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))) ((equal? e-1 2) (case (vector-ref arg-7 0) ((1) (let ((e-9 (vector-ref arg-7 1))) (let ((e-10 (vector-ref arg-7 2))) (case (vector-ref arg-10 0) ((1) (let ((e-12 (vector-ref arg-10 1))) (let ((e-13 (vector-ref arg-10 2))) (let ((u--mode (cons e-0 2))) (let ((u--fx (vector 1 e-9 e-10))) (let ((u--fy (vector 1 e-12 e-13))) (let ((sc7 (CoreC-45Name-u--C-61C-61_Eq_Name e-10 e-13))) (cond ((equal? sc7 1) (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-unverifiedLogC arg-0 "unify.application" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-1) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (clam-0) (lambda (eta-2) (CoreC-45Normalise-u--quote_Quote_Closure arg-0 arg-2 e-5 arg-5 clam-0 eta-2))) (PreludeC-45Types-u--map_Functor_List (lambda (eta-2) (Builtin-snd eta-2)) arg-8) '() eta-1))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Core-traverseC-39 (lambda (clam-0) (lambda (eta-2) (CoreC-45Normalise-u--quote_Quote_Closure arg-0 arg-2 e-5 arg-5 clam-0 eta-2))) (PreludeC-45Types-u--map_Functor_List (lambda (eta-2) (Builtin-snd eta-2)) arg-11) '() eta-1))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (PreludeC-45TypesC-45String-C-43C-43 "Matching args " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-2 u--d u--x)))) e-6) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-2 u--d u--x)))) e-7)))))))))))))))))) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else ((CoreC-45Unify-unifyArgs (cons (cons (lambda (u--vars) (lambda (arg-6180) (lambda (arg-6183) (lambda (arg-6186) (lambda (arg-6187) (lambda (arg-6188) (lambda (arg-6190) (lambda (arg-6193) (lambda (eta-1) (CoreC-45Unify-u--unifyD_Unify_Closure u--vars arg-6180 arg-6183 arg-6186 arg-6187 arg-6188 arg-6190 arg-6193 eta-1)))))))))) (lambda (u--vars) (lambda (arg-6195) (lambda (arg-6198) (lambda (arg-6201) (lambda (arg-6202) (lambda (arg-6203) (lambda (arg-6205) (lambda (arg-6206) (lambda (eta-1) (CoreC-45Unify-u--unifyWithLazyD_Unify_Closure u--vars arg-6195 arg-6198 arg-6201 arg-6202 arg-6203 arg-6205 arg-6206 eta-1))))))))))) (cons (lambda (u--c) (lambda (u--vars) (lambda (arg-5827) (lambda (arg-5828) (lambda (arg-5830) (lambda (eta-1) (CoreC-45Normalise-u--quote_Quote_Closure u--c u--vars arg-5827 arg-5828 arg-5830 eta-1))))))) (lambda (u--c) (lambda (u--vars) (lambda (arg-5836) (lambda (arg-5839) (lambda (arg-5840) (lambda (arg-5842) (lambda (eta-1) (CoreC-45Normalise-u--quoteGen_Quote_Closure u--c u--vars arg-5836 arg-5839 arg-5840 arg-5842 eta-1)))))))))) arg-2 arg-0 arg-1 u--mode arg-4 arg-5 (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) arg-8) (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) arg-11)) eta-0)))))) (else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 u--mode arg-4 arg-5 arg-6 u--fx arg-8 (vector 1 arg-9 u--fy arg-11)))))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))) ((2) (let ((e-24 (vector-ref arg-7 1))) (let ((e-25 (vector-ref arg-7 2))) (let ((e-26 (vector-ref arg-7 3))) (case (vector-ref arg-10 0) ((2) (let ((e-33 (vector-ref arg-10 1))) (let ((e-34 (vector-ref arg-10 2))) (let ((e-35 (vector-ref arg-10 3))) (lambda (eta-0) (let ((act-24 (CoreC-45Unify-isDefInvertible arg-0 arg-4 e-25 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((sc5 (let ((sc6 (PreludeC-45EqOrd-u--C-61C-61_Eq_Int e-25 e-34))) (cond ((equal? sc6 1) (cond ((equal? e-5 1) 1) (else (CoreC-45Unify-u--C-61C-61_Eq_UnifyMode (let ((e-1 (cdr arg-3))) e-1) 3)))) (else 0))))) (cond ((equal? sc5 1) ((CoreC-45Unify-unifyArgs (cons (cons (lambda (u--vars) (lambda (arg-6180) (lambda (arg-6183) (lambda (arg-6186) (lambda (arg-6187) (lambda (arg-6188) (lambda (arg-6190) (lambda (arg-6193) (lambda (eta-1) (CoreC-45Unify-u--unifyD_Unify_Closure u--vars arg-6180 arg-6183 arg-6186 arg-6187 arg-6188 arg-6190 arg-6193 eta-1)))))))))) (lambda (u--vars) (lambda (arg-6195) (lambda (arg-6198) (lambda (arg-6201) (lambda (arg-6202) (lambda (arg-6203) (lambda (arg-6205) (lambda (arg-6206) (lambda (eta-1) (CoreC-45Unify-u--unifyWithLazyD_Unify_Closure u--vars arg-6195 arg-6198 arg-6201 arg-6202 arg-6203 arg-6205 arg-6206 eta-1))))))))))) (cons (lambda (u--c) (lambda (u--vars) (lambda (arg-5827) (lambda (arg-5828) (lambda (arg-5830) (lambda (eta-1) (CoreC-45Normalise-u--quote_Quote_Closure u--c u--vars arg-5827 arg-5828 arg-5830 eta-1))))))) (lambda (u--c) (lambda (u--vars) (lambda (arg-5836) (lambda (arg-5839) (lambda (arg-5840) (lambda (arg-5842) (lambda (eta-1) (CoreC-45Normalise-u--quoteGen_Quote_Closure u--c u--vars arg-5836 arg-5839 arg-5840 arg-5842 eta-1)))))))))) arg-2 arg-0 arg-1 arg-3 arg-4 arg-5 (PreludeC-45TypesC-45List-C-43C-43 e-26 (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) arg-8)) (PreludeC-45TypesC-45List-C-43C-43 e-35 (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) arg-11))) eta-0)) (else (let ((act-25 (CoreC-45Unify-n--11762-14569-u--localsIn arg-2 e-26 e-25 e-24 e-35 e-34 e-33 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-26 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Unify-n--11762-14569-u--localsIn arg-2 e-26 e-25 e-24 e-35 e-34 e-33 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-35 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((u--xbigger (let ((sc8 (PreludeC-45Types-u--C-62_Ord_Nat e-6 e-7))) (cond ((equal? sc8 1) 1) (else (let ((sc9 (PreludeC-45Types-u--C-61C-61_Eq_Nat e-6 e-7))) (cond ((equal? sc9 1) (PreludeC-45Types-u--C-60C-61_Ord_Nat (PreludeC-45TypesC-45List-length arg-8) (PreludeC-45TypesC-45List-length arg-11))) (else 0)))))))) (let ((sc8 (let ((sc9 (cond ((equal? u--xbigger 1) 1) (else (CoreC-45Unify-u--C-61C-61_Eq_UnifyMode (let ((e-1 (cdr arg-3))) e-1) 2))))) (cond ((equal? sc9 1) (let ((sc10 (CoreC-45Unify-n--11762-14568-u--pv arg-2 e-26 e-25 e-24 e-35 e-34 e-33 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-24))) (cond ((equal? sc10 1) 0) (else 1)))) (else 0))))) (cond ((equal? sc8 1) ((CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 (vector 2 e-24 e-25 e-26) arg-8 (vector 1 arg-9 (vector 2 e-33 e-34 e-35) arg-11)) eta-0)) (else ((CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-9 (vector 2 e-33 e-34 e-35) arg-11 (vector 1 arg-6 (vector 2 e-24 e-25 e-26) arg-8)) eta-0)))))))))))))))))))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 (vector 2 e-24 e-25 e-26) arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (case (vector-ref arg-10 0) ((2) (let ((e-15 (vector-ref arg-10 1))) (let ((e-16 (vector-ref arg-10 2))) (let ((e-17 (vector-ref arg-10 3))) (let ((sc3 (CoreC-45Unify-u--C-47C-61_Eq_UnifyMode (let ((e-1 (cdr arg-3))) e-1) 2))) (cond ((equal? sc3 1) (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-15 e-16 e-17) arg-11 (vector 1 arg-6 arg-7 arg-8))) (else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 (vector 2 e-15 e-16 e-17) arg-11)))))))))(else (if (null? arg-3) (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)) (let ((e-0 (car arg-3))) (let ((e-1 (cdr arg-3))) (cond ((equal? e-1 3) (case (vector-ref arg-7 0) ((1) (let ((e-3 (vector-ref arg-7 1))) (let ((e-4 (vector-ref arg-7 2))) (case (vector-ref arg-10 0) ((1) (let ((e-6 (vector-ref arg-10 1))) (let ((e-7 (vector-ref arg-10 2))) (let ((u--mode (cons e-0 3))) (let ((u--fx (vector 1 e-3 e-4))) (let ((u--fy (vector 1 e-6 e-7))) (let ((sc6 (CoreC-45Name-u--C-61C-61_Eq_Name e-4 e-7))) (cond ((equal? sc6 1) (CoreC-45Unify-unifyArgs (cons (cons (lambda (u--vars) (lambda (arg-6180) (lambda (arg-6183) (lambda (arg-6186) (lambda (arg-6187) (lambda (arg-6188) (lambda (arg-6190) (lambda (arg-6193) (lambda (eta-0) (CoreC-45Unify-u--unifyD_Unify_Closure u--vars arg-6180 arg-6183 arg-6186 arg-6187 arg-6188 arg-6190 arg-6193 eta-0)))))))))) (lambda (u--vars) (lambda (arg-6195) (lambda (arg-6198) (lambda (arg-6201) (lambda (arg-6202) (lambda (arg-6203) (lambda (arg-6205) (lambda (arg-6206) (lambda (eta-0) (CoreC-45Unify-u--unifyWithLazyD_Unify_Closure u--vars arg-6195 arg-6198 arg-6201 arg-6202 arg-6203 arg-6205 arg-6206 eta-0))))))))))) (cons (lambda (u--c) (lambda (u--vars) (lambda (arg-5827) (lambda (arg-5828) (lambda (arg-5830) (lambda (eta-0) (CoreC-45Normalise-u--quote_Quote_Closure u--c u--vars arg-5827 arg-5828 arg-5830 eta-0))))))) (lambda (u--c) (lambda (u--vars) (lambda (arg-5836) (lambda (arg-5839) (lambda (arg-5840) (lambda (arg-5842) (lambda (eta-0) (CoreC-45Normalise-u--quoteGen_Quote_Closure u--c u--vars arg-5836 arg-5839 arg-5840 arg-5842 eta-0)))))))))) arg-2 arg-0 arg-1 u--mode arg-4 arg-5 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) arg-8) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) arg-11))) (else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 u--mode arg-4 arg-5 arg-6 u--fx arg-8 (vector 1 arg-9 u--fy arg-11)))))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))) ((equal? e-1 2) (case (vector-ref arg-7 0) ((1) (let ((e-9 (vector-ref arg-7 1))) (let ((e-10 (vector-ref arg-7 2))) (case (vector-ref arg-10 0) ((1) (let ((e-12 (vector-ref arg-10 1))) (let ((e-13 (vector-ref arg-10 2))) (let ((u--mode (cons e-0 2))) (let ((u--fx (vector 1 e-9 e-10))) (let ((u--fy (vector 1 e-12 e-13))) (let ((sc6 (CoreC-45Name-u--C-61C-61_Eq_Name e-10 e-13))) (cond ((equal? sc6 1) (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-unverifiedLogC arg-0 "unify.application" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-1) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (clam-0) (lambda (eta-2) (CoreC-45Normalise-u--quote_Quote_Closure arg-0 arg-2 e-5 arg-5 clam-0 eta-2))) (PreludeC-45Types-u--map_Functor_List (lambda (eta-2) (Builtin-snd eta-2)) arg-8) '() eta-1))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Core-traverseC-39 (lambda (clam-0) (lambda (eta-2) (CoreC-45Normalise-u--quote_Quote_Closure arg-0 arg-2 e-5 arg-5 clam-0 eta-2))) (PreludeC-45Types-u--map_Functor_List (lambda (eta-2) (Builtin-snd eta-2)) arg-11) '() eta-1))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (PreludeC-45TypesC-45String-C-43C-43 "Matching args " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-2 u--d u--x)))) e-6) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-2 u--d u--x)))) e-7)))))))))))))))))) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else ((CoreC-45Unify-unifyArgs (cons (cons (lambda (u--vars) (lambda (arg-6180) (lambda (arg-6183) (lambda (arg-6186) (lambda (arg-6187) (lambda (arg-6188) (lambda (arg-6190) (lambda (arg-6193) (lambda (eta-1) (CoreC-45Unify-u--unifyD_Unify_Closure u--vars arg-6180 arg-6183 arg-6186 arg-6187 arg-6188 arg-6190 arg-6193 eta-1)))))))))) (lambda (u--vars) (lambda (arg-6195) (lambda (arg-6198) (lambda (arg-6201) (lambda (arg-6202) (lambda (arg-6203) (lambda (arg-6205) (lambda (arg-6206) (lambda (eta-1) (CoreC-45Unify-u--unifyWithLazyD_Unify_Closure u--vars arg-6195 arg-6198 arg-6201 arg-6202 arg-6203 arg-6205 arg-6206 eta-1))))))))))) (cons (lambda (u--c) (lambda (u--vars) (lambda (arg-5827) (lambda (arg-5828) (lambda (arg-5830) (lambda (eta-1) (CoreC-45Normalise-u--quote_Quote_Closure u--c u--vars arg-5827 arg-5828 arg-5830 eta-1))))))) (lambda (u--c) (lambda (u--vars) (lambda (arg-5836) (lambda (arg-5839) (lambda (arg-5840) (lambda (arg-5842) (lambda (eta-1) (CoreC-45Normalise-u--quoteGen_Quote_Closure u--c u--vars arg-5836 arg-5839 arg-5840 arg-5842 eta-1)))))))))) arg-2 arg-0 arg-1 u--mode arg-4 arg-5 (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) arg-8) (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) arg-11)) eta-0)))))) (else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 u--mode arg-4 arg-5 arg-6 u--fx arg-8 (vector 1 arg-9 u--fy arg-11)))))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))))))))(else (case (vector-ref arg-7 0) ((0) (let ((e-20 (vector-ref arg-7 1))) (let ((e-21 (vector-ref arg-7 2))) (case (vector-ref arg-10 0) ((0) (let ((e-29 (vector-ref arg-10 1))) (let ((e-30 (vector-ref arg-10 2))) (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-log arg-0 "unify.application" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Both local apps, unifyIfEq") eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (CoreC-45Unify-unifyIfEq arg-0 arg-1 arg-2 1 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-20 e-21) arg-8) (vector 1 arg-9 (vector 0 e-29 e-30) arg-11) eta-0))))))))(else (case (vector-ref arg-10 0) ((2) (let ((e-15 (vector-ref arg-10 1))) (let ((e-16 (vector-ref arg-10 2))) (let ((e-17 (vector-ref arg-10 3))) (let ((sc3 (CoreC-45Unify-u--C-47C-61_Eq_UnifyMode (let ((e-1 (cdr arg-3))) e-1) 2))) (cond ((equal? sc3 1) (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-15 e-16 e-17) arg-11 (vector 1 arg-6 arg-7 arg-8))) (else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 (vector 2 e-15 e-16 e-17) arg-11)))))))))(else (if (null? arg-3) (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)) (let ((e-0 (car arg-3))) (let ((e-1 (cdr arg-3))) (cond ((equal? e-1 3) (case (vector-ref arg-7 0) ((1) (let ((e-3 (vector-ref arg-7 1))) (let ((e-4 (vector-ref arg-7 2))) (case (vector-ref arg-10 0) ((1) (let ((e-6 (vector-ref arg-10 1))) (let ((e-7 (vector-ref arg-10 2))) (let ((u--mode (cons e-0 3))) (let ((u--fx (vector 1 e-3 e-4))) (let ((u--fy (vector 1 e-6 e-7))) (let ((sc6 (CoreC-45Name-u--C-61C-61_Eq_Name e-4 e-7))) (cond ((equal? sc6 1) (CoreC-45Unify-unifyArgs (cons (cons (lambda (u--vars) (lambda (arg-6180) (lambda (arg-6183) (lambda (arg-6186) (lambda (arg-6187) (lambda (arg-6188) (lambda (arg-6190) (lambda (arg-6193) (lambda (eta-0) (CoreC-45Unify-u--unifyD_Unify_Closure u--vars arg-6180 arg-6183 arg-6186 arg-6187 arg-6188 arg-6190 arg-6193 eta-0)))))))))) (lambda (u--vars) (lambda (arg-6195) (lambda (arg-6198) (lambda (arg-6201) (lambda (arg-6202) (lambda (arg-6203) (lambda (arg-6205) (lambda (arg-6206) (lambda (eta-0) (CoreC-45Unify-u--unifyWithLazyD_Unify_Closure u--vars arg-6195 arg-6198 arg-6201 arg-6202 arg-6203 arg-6205 arg-6206 eta-0))))))))))) (cons (lambda (u--c) (lambda (u--vars) (lambda (arg-5827) (lambda (arg-5828) (lambda (arg-5830) (lambda (eta-0) (CoreC-45Normalise-u--quote_Quote_Closure u--c u--vars arg-5827 arg-5828 arg-5830 eta-0))))))) (lambda (u--c) (lambda (u--vars) (lambda (arg-5836) (lambda (arg-5839) (lambda (arg-5840) (lambda (arg-5842) (lambda (eta-0) (CoreC-45Normalise-u--quoteGen_Quote_Closure u--c u--vars arg-5836 arg-5839 arg-5840 arg-5842 eta-0)))))))))) arg-2 arg-0 arg-1 u--mode arg-4 arg-5 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) arg-8) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) arg-11))) (else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 u--mode arg-4 arg-5 arg-6 u--fx arg-8 (vector 1 arg-9 u--fy arg-11)))))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))) ((equal? e-1 2) (case (vector-ref arg-7 0) ((1) (let ((e-9 (vector-ref arg-7 1))) (let ((e-10 (vector-ref arg-7 2))) (case (vector-ref arg-10 0) ((1) (let ((e-12 (vector-ref arg-10 1))) (let ((e-13 (vector-ref arg-10 2))) (let ((u--mode (cons e-0 2))) (let ((u--fx (vector 1 e-9 e-10))) (let ((u--fy (vector 1 e-12 e-13))) (let ((sc6 (CoreC-45Name-u--C-61C-61_Eq_Name e-10 e-13))) (cond ((equal? sc6 1) (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-unverifiedLogC arg-0 "unify.application" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-1) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (clam-0) (lambda (eta-2) (CoreC-45Normalise-u--quote_Quote_Closure arg-0 arg-2 e-5 arg-5 clam-0 eta-2))) (PreludeC-45Types-u--map_Functor_List (lambda (eta-2) (Builtin-snd eta-2)) arg-8) '() eta-1))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Core-traverseC-39 (lambda (clam-0) (lambda (eta-2) (CoreC-45Normalise-u--quote_Quote_Closure arg-0 arg-2 e-5 arg-5 clam-0 eta-2))) (PreludeC-45Types-u--map_Functor_List (lambda (eta-2) (Builtin-snd eta-2)) arg-11) '() eta-1))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (PreludeC-45TypesC-45String-C-43C-43 "Matching args " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-2 u--d u--x)))) e-6) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-2 u--d u--x)))) e-7)))))))))))))))))) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else ((CoreC-45Unify-unifyArgs (cons (cons (lambda (u--vars) (lambda (arg-6180) (lambda (arg-6183) (lambda (arg-6186) (lambda (arg-6187) (lambda (arg-6188) (lambda (arg-6190) (lambda (arg-6193) (lambda (eta-1) (CoreC-45Unify-u--unifyD_Unify_Closure u--vars arg-6180 arg-6183 arg-6186 arg-6187 arg-6188 arg-6190 arg-6193 eta-1)))))))))) (lambda (u--vars) (lambda (arg-6195) (lambda (arg-6198) (lambda (arg-6201) (lambda (arg-6202) (lambda (arg-6203) (lambda (arg-6205) (lambda (arg-6206) (lambda (eta-1) (CoreC-45Unify-u--unifyWithLazyD_Unify_Closure u--vars arg-6195 arg-6198 arg-6201 arg-6202 arg-6203 arg-6205 arg-6206 eta-1))))))))))) (cons (lambda (u--c) (lambda (u--vars) (lambda (arg-5827) (lambda (arg-5828) (lambda (arg-5830) (lambda (eta-1) (CoreC-45Normalise-u--quote_Quote_Closure u--c u--vars arg-5827 arg-5828 arg-5830 eta-1))))))) (lambda (u--c) (lambda (u--vars) (lambda (arg-5836) (lambda (arg-5839) (lambda (arg-5840) (lambda (arg-5842) (lambda (eta-1) (CoreC-45Normalise-u--quoteGen_Quote_Closure u--c u--vars arg-5836 arg-5839 arg-5840 arg-5842 eta-1)))))))))) arg-2 arg-0 arg-1 u--mode arg-4 arg-5 (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) arg-8) (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) arg-11)) eta-0)))))) (else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 u--mode arg-4 arg-5 arg-6 u--fx arg-8 (vector 1 arg-9 u--fy arg-11)))))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))) ((2) (let ((e-24 (vector-ref arg-7 1))) (let ((e-25 (vector-ref arg-7 2))) (let ((e-26 (vector-ref arg-7 3))) (case (vector-ref arg-10 0) ((2) (let ((e-33 (vector-ref arg-10 1))) (let ((e-34 (vector-ref arg-10 2))) (let ((e-35 (vector-ref arg-10 3))) (lambda (eta-0) (let ((act-24 (CoreC-45Unify-isDefInvertible arg-0 arg-4 e-25 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((sc4 (let ((sc5 (PreludeC-45EqOrd-u--C-61C-61_Eq_Int e-25 e-34))) (cond ((equal? sc5 1) (cond ((equal? e-5 1) 1) (else (CoreC-45Unify-u--C-61C-61_Eq_UnifyMode (let ((e-1 (cdr arg-3))) e-1) 3)))) (else 0))))) (cond ((equal? sc4 1) ((CoreC-45Unify-unifyArgs (cons (cons (lambda (u--vars) (lambda (arg-6180) (lambda (arg-6183) (lambda (arg-6186) (lambda (arg-6187) (lambda (arg-6188) (lambda (arg-6190) (lambda (arg-6193) (lambda (eta-1) (CoreC-45Unify-u--unifyD_Unify_Closure u--vars arg-6180 arg-6183 arg-6186 arg-6187 arg-6188 arg-6190 arg-6193 eta-1)))))))))) (lambda (u--vars) (lambda (arg-6195) (lambda (arg-6198) (lambda (arg-6201) (lambda (arg-6202) (lambda (arg-6203) (lambda (arg-6205) (lambda (arg-6206) (lambda (eta-1) (CoreC-45Unify-u--unifyWithLazyD_Unify_Closure u--vars arg-6195 arg-6198 arg-6201 arg-6202 arg-6203 arg-6205 arg-6206 eta-1))))))))))) (cons (lambda (u--c) (lambda (u--vars) (lambda (arg-5827) (lambda (arg-5828) (lambda (arg-5830) (lambda (eta-1) (CoreC-45Normalise-u--quote_Quote_Closure u--c u--vars arg-5827 arg-5828 arg-5830 eta-1))))))) (lambda (u--c) (lambda (u--vars) (lambda (arg-5836) (lambda (arg-5839) (lambda (arg-5840) (lambda (arg-5842) (lambda (eta-1) (CoreC-45Normalise-u--quoteGen_Quote_Closure u--c u--vars arg-5836 arg-5839 arg-5840 arg-5842 eta-1)))))))))) arg-2 arg-0 arg-1 arg-3 arg-4 arg-5 (PreludeC-45TypesC-45List-C-43C-43 e-26 (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) arg-8)) (PreludeC-45TypesC-45List-C-43C-43 e-35 (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) arg-11))) eta-0)) (else (let ((act-25 (CoreC-45Unify-n--11762-14569-u--localsIn arg-2 e-26 e-25 e-24 e-35 e-34 e-33 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-26 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Unify-n--11762-14569-u--localsIn arg-2 e-26 e-25 e-24 e-35 e-34 e-33 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-35 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((u--xbigger (let ((sc7 (PreludeC-45Types-u--C-62_Ord_Nat e-6 e-7))) (cond ((equal? sc7 1) 1) (else (let ((sc8 (PreludeC-45Types-u--C-61C-61_Eq_Nat e-6 e-7))) (cond ((equal? sc8 1) (PreludeC-45Types-u--C-60C-61_Ord_Nat (PreludeC-45TypesC-45List-length arg-8) (PreludeC-45TypesC-45List-length arg-11))) (else 0)))))))) (let ((sc7 (let ((sc8 (cond ((equal? u--xbigger 1) 1) (else (CoreC-45Unify-u--C-61C-61_Eq_UnifyMode (let ((e-1 (cdr arg-3))) e-1) 2))))) (cond ((equal? sc8 1) (let ((sc9 (CoreC-45Unify-n--11762-14568-u--pv arg-2 e-26 e-25 e-24 e-35 e-34 e-33 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-24))) (cond ((equal? sc9 1) 0) (else 1)))) (else 0))))) (cond ((equal? sc7 1) ((CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 (vector 2 e-24 e-25 e-26) arg-8 (vector 1 arg-9 (vector 2 e-33 e-34 e-35) arg-11)) eta-0)) (else ((CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-9 (vector 2 e-33 e-34 e-35) arg-11 (vector 1 arg-6 (vector 2 e-24 e-25 e-26) arg-8)) eta-0)))))))))))))))))))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 (vector 2 e-24 e-25 e-26) arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (case (vector-ref arg-10 0) ((2) (let ((e-15 (vector-ref arg-10 1))) (let ((e-16 (vector-ref arg-10 2))) (let ((e-17 (vector-ref arg-10 3))) (let ((sc2 (CoreC-45Unify-u--C-47C-61_Eq_UnifyMode (let ((e-1 (cdr arg-3))) e-1) 2))) (cond ((equal? sc2 1) (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-15 e-16 e-17) arg-11 (vector 1 arg-6 arg-7 arg-8))) (else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 (vector 2 e-15 e-16 e-17) arg-11)))))))))(else (if (null? arg-3) (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)) (let ((e-0 (car arg-3))) (let ((e-1 (cdr arg-3))) (cond ((equal? e-1 3) (case (vector-ref arg-7 0) ((1) (let ((e-3 (vector-ref arg-7 1))) (let ((e-4 (vector-ref arg-7 2))) (case (vector-ref arg-10 0) ((1) (let ((e-6 (vector-ref arg-10 1))) (let ((e-7 (vector-ref arg-10 2))) (let ((u--mode (cons e-0 3))) (let ((u--fx (vector 1 e-3 e-4))) (let ((u--fy (vector 1 e-6 e-7))) (let ((sc5 (CoreC-45Name-u--C-61C-61_Eq_Name e-4 e-7))) (cond ((equal? sc5 1) (CoreC-45Unify-unifyArgs (cons (cons (lambda (u--vars) (lambda (arg-6180) (lambda (arg-6183) (lambda (arg-6186) (lambda (arg-6187) (lambda (arg-6188) (lambda (arg-6190) (lambda (arg-6193) (lambda (eta-0) (CoreC-45Unify-u--unifyD_Unify_Closure u--vars arg-6180 arg-6183 arg-6186 arg-6187 arg-6188 arg-6190 arg-6193 eta-0)))))))))) (lambda (u--vars) (lambda (arg-6195) (lambda (arg-6198) (lambda (arg-6201) (lambda (arg-6202) (lambda (arg-6203) (lambda (arg-6205) (lambda (arg-6206) (lambda (eta-0) (CoreC-45Unify-u--unifyWithLazyD_Unify_Closure u--vars arg-6195 arg-6198 arg-6201 arg-6202 arg-6203 arg-6205 arg-6206 eta-0))))))))))) (cons (lambda (u--c) (lambda (u--vars) (lambda (arg-5827) (lambda (arg-5828) (lambda (arg-5830) (lambda (eta-0) (CoreC-45Normalise-u--quote_Quote_Closure u--c u--vars arg-5827 arg-5828 arg-5830 eta-0))))))) (lambda (u--c) (lambda (u--vars) (lambda (arg-5836) (lambda (arg-5839) (lambda (arg-5840) (lambda (arg-5842) (lambda (eta-0) (CoreC-45Normalise-u--quoteGen_Quote_Closure u--c u--vars arg-5836 arg-5839 arg-5840 arg-5842 eta-0)))))))))) arg-2 arg-0 arg-1 u--mode arg-4 arg-5 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) arg-8) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) arg-11))) (else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 u--mode arg-4 arg-5 arg-6 u--fx arg-8 (vector 1 arg-9 u--fy arg-11)))))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))) ((equal? e-1 2) (case (vector-ref arg-7 0) ((1) (let ((e-9 (vector-ref arg-7 1))) (let ((e-10 (vector-ref arg-7 2))) (case (vector-ref arg-10 0) ((1) (let ((e-12 (vector-ref arg-10 1))) (let ((e-13 (vector-ref arg-10 2))) (let ((u--mode (cons e-0 2))) (let ((u--fx (vector 1 e-9 e-10))) (let ((u--fy (vector 1 e-12 e-13))) (let ((sc5 (CoreC-45Name-u--C-61C-61_Eq_Name e-10 e-13))) (cond ((equal? sc5 1) (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-unverifiedLogC arg-0 "unify.application" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-1) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (clam-0) (lambda (eta-2) (CoreC-45Normalise-u--quote_Quote_Closure arg-0 arg-2 e-5 arg-5 clam-0 eta-2))) (PreludeC-45Types-u--map_Functor_List (lambda (eta-2) (Builtin-snd eta-2)) arg-8) '() eta-1))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Core-traverseC-39 (lambda (clam-0) (lambda (eta-2) (CoreC-45Normalise-u--quote_Quote_Closure arg-0 arg-2 e-5 arg-5 clam-0 eta-2))) (PreludeC-45Types-u--map_Functor_List (lambda (eta-2) (Builtin-snd eta-2)) arg-11) '() eta-1))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (PreludeC-45TypesC-45String-C-43C-43 "Matching args " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-2 u--d u--x)))) e-6) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-2 u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-2 u--d u--x)))) e-7)))))))))))))))))) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else ((CoreC-45Unify-unifyArgs (cons (cons (lambda (u--vars) (lambda (arg-6180) (lambda (arg-6183) (lambda (arg-6186) (lambda (arg-6187) (lambda (arg-6188) (lambda (arg-6190) (lambda (arg-6193) (lambda (eta-1) (CoreC-45Unify-u--unifyD_Unify_Closure u--vars arg-6180 arg-6183 arg-6186 arg-6187 arg-6188 arg-6190 arg-6193 eta-1)))))))))) (lambda (u--vars) (lambda (arg-6195) (lambda (arg-6198) (lambda (arg-6201) (lambda (arg-6202) (lambda (arg-6203) (lambda (arg-6205) (lambda (arg-6206) (lambda (eta-1) (CoreC-45Unify-u--unifyWithLazyD_Unify_Closure u--vars arg-6195 arg-6198 arg-6201 arg-6202 arg-6203 arg-6205 arg-6206 eta-1))))))))))) (cons (lambda (u--c) (lambda (u--vars) (lambda (arg-5827) (lambda (arg-5828) (lambda (arg-5830) (lambda (eta-1) (CoreC-45Normalise-u--quote_Quote_Closure u--c u--vars arg-5827 arg-5828 arg-5830 eta-1))))))) (lambda (u--c) (lambda (u--vars) (lambda (arg-5836) (lambda (arg-5839) (lambda (arg-5840) (lambda (arg-5842) (lambda (eta-1) (CoreC-45Normalise-u--quoteGen_Quote_Closure u--c u--vars arg-5836 arg-5839 arg-5840 arg-5842 eta-1)))))))))) arg-2 arg-0 arg-1 u--mode arg-4 arg-5 (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) arg-8) (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) arg-11)) eta-0)))))) (else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 u--mode arg-4 arg-5 arg-6 u--fx arg-8 (vector 1 arg-9 u--fy arg-11)))))))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))(else (CoreC-45Unify-unifyApp arg-0 arg-1 arg-2 0 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))))))))) +(define CoreC-45Unify-unifyArgs (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (if (null? arg-8) (lambda (clam-0) (if (null? arg-9) (vector 1 (CoreC-45Unify-success)) (CoreC-45Unify-ufail arg-6 "" clam-0))) (let ((e-2 (car arg-8))) (let ((e-3 (cdr arg-8))) (lambda (clam-1) (if (null? arg-9) (CoreC-45Unify-ufail arg-6 "" clam-1) (let ((e-6 (car arg-9))) (let ((e-7 (cdr arg-9))) (let ((act-24 ((CoreC-45Unify-unifyArgs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-3 e-7) clam-1))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((((CoreC-45Unify-unify (Builtin-fst arg-1) arg-2 arg-3 arg-4 (CoreC-45Unify-lower arg-5) arg-6 arg-7) e-2) e-6) clam-1))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref act-25 1))) (vector 1 (CoreC-45Unify-union e-8 e-5))))))))))))))))))) +(define CoreC-45Unify-unifyApp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (case (vector-ref arg-8 0) ((2) (let ((e-50 (vector-ref arg-8 1))) (let ((e-51 (vector-ref arg-8 2))) (let ((e-52 (vector-ref arg-8 3))) (lambda (eta-0) (CoreC-45Unify-unifyHole arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-50 e-51 e-52 (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) arg-9) arg-10 eta-0))))))(else (case (vector-ref arg-10 0) ((1) (let ((e-42 (vector-ref arg-10 1))) (let ((e-43 (vector-ref arg-10 2))) (let ((e-44 (vector-ref arg-10 3))) (case (vector-ref e-43 0) ((2) (let ((e-46 (vector-ref e-43 1))) (let ((e-47 (vector-ref e-43 2))) (let ((e-48 (vector-ref e-43 3))) (lambda (eta-0) (CoreC-45Unify-unifyHole arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-42 e-46 e-47 e-48 (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) e-44) (vector 1 arg-7 arg-8 arg-9) eta-0))))))(else (case (vector-ref arg-8 0) ((1) (let ((e-1 (vector-ref arg-8 1))) (let ((e-2 (vector-ref arg-8 2))) (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-log arg-0 "unify.application" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Name against app, unifyIfEq") eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (cond ((equal? arg-3 1) (CoreC-45Unify-unifyIfEq arg-0 arg-1 arg-2 1 arg-5 arg-4 arg-6 arg-10 (vector 1 arg-7 (vector 1 e-1 e-2) arg-9) eta-0)) (else (CoreC-45Unify-unifyIfEq arg-0 arg-1 arg-2 1 arg-5 arg-4 arg-6 (vector 1 arg-7 (vector 1 e-1 e-2) arg-9) arg-10 eta-0)))))))))) ((0) (let ((e-5 (vector-ref arg-8 1))) (let ((e-6 (vector-ref arg-8 2))) (if (null? arg-9) (case (vector-ref arg-10 0) ((1) (let ((e-32 (vector-ref arg-10 1))) (let ((e-33 (vector-ref arg-10 2))) (let ((e-34 (vector-ref arg-10 3))) (case (vector-ref e-33 0) ((0) (let ((e-37 (vector-ref e-33 1))) (let ((e-38 (vector-ref e-33 2))) (if (null? e-34) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((sc7 (PreludeC-45Types-u--C-61C-61_Eq_Nat e-6 e-38))) (cond ((equal? sc7 1) (vector 1 (CoreC-45Unify-success))) (else (CoreC-45Unify-postponeS arg-2 arg-0 arg-1 arg-3 arg-5 arg-4 "Postponing var" arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) '()) (vector 1 e-32 (vector 0 e-37 e-38) '()) eta-0)))))))) (case (vector-ref arg-10 0) ((0) (lambda (eta-0) (CoreC-45Unify-convertErrorS arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10 eta-0))) ((2) (lambda (eta-0) (CoreC-45Unify-convertErrorS arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10 eta-0))) ((3) (lambda (eta-0) (CoreC-45Unify-convertErrorS arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10 eta-0))) ((8) (lambda (eta-0) (CoreC-45Unify-convertErrorS arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10 eta-0))) ((10) (lambda (eta-0) (CoreC-45Unify-convertErrorS arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10 eta-0)))(else (lambda (clam-0) (cond ((equal? arg-3 0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-u--convert_Convert_NF arg-0 arg-2 e-7 arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 clam-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-25 1))) (cond ((equal? e-8 1) (vector 1 (CoreC-45Unify-success))) (else (CoreC-45Unify-postponeS arg-2 arg-0 arg-1 0 arg-5 arg-4 "Postponing constraint" arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 clam-0)))))))))))) (else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-u--convert_Convert_NF arg-0 arg-2 e-7 arg-6 arg-10 (vector 1 arg-7 arg-8 arg-9) clam-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-25 1))) (cond ((equal? e-8 1) (vector 1 (CoreC-45Unify-success))) (else (CoreC-45Unify-postponeS arg-2 arg-0 arg-1 1 arg-5 arg-4 "Postponing constraint" arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 clam-0))))))))))))))))))))(else (case (vector-ref arg-10 0) ((0) (lambda (eta-0) (CoreC-45Unify-convertErrorS arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10 eta-0))) ((2) (lambda (eta-0) (CoreC-45Unify-convertErrorS arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10 eta-0))) ((3) (lambda (eta-0) (CoreC-45Unify-convertErrorS arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10 eta-0))) ((8) (lambda (eta-0) (CoreC-45Unify-convertErrorS arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10 eta-0))) ((10) (lambda (eta-0) (CoreC-45Unify-convertErrorS arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10 eta-0)))(else (lambda (clam-1) (cond ((equal? arg-3 0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-u--convert_Convert_NF arg-0 arg-2 e-7 arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 clam-1))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-25 1))) (cond ((equal? e-8 1) (vector 1 (CoreC-45Unify-success))) (else (CoreC-45Unify-postponeS arg-2 arg-0 arg-1 0 arg-5 arg-4 "Postponing constraint" arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 clam-1)))))))))))) (else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-u--convert_Convert_NF arg-0 arg-2 e-7 arg-6 arg-10 (vector 1 arg-7 arg-8 arg-9) clam-1))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-25 1))) (cond ((equal? e-8 1) (vector 1 (CoreC-45Unify-success))) (else (CoreC-45Unify-postponeS arg-2 arg-0 arg-1 1 arg-5 arg-4 "Postponing constraint" arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 clam-1))))))))))))))))))))))(else (case (vector-ref arg-10 0) ((0) (lambda (eta-0) (CoreC-45Unify-convertErrorS arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10 eta-0))) ((2) (lambda (eta-0) (CoreC-45Unify-convertErrorS arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10 eta-0))) ((3) (lambda (eta-0) (CoreC-45Unify-convertErrorS arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10 eta-0))) ((8) (lambda (eta-0) (CoreC-45Unify-convertErrorS arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10 eta-0))) ((10) (lambda (eta-0) (CoreC-45Unify-convertErrorS arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10 eta-0)))(else (lambda (clam-2) (cond ((equal? arg-3 0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-u--convert_Convert_NF arg-0 arg-2 e-7 arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 clam-2))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-25 1))) (cond ((equal? e-8 1) (vector 1 (CoreC-45Unify-success))) (else (CoreC-45Unify-postponeS arg-2 arg-0 arg-1 0 arg-5 arg-4 "Postponing constraint" arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 clam-2)))))))))))) (else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-u--convert_Convert_NF arg-0 arg-2 e-7 arg-6 arg-10 (vector 1 arg-7 arg-8 arg-9) clam-2))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-25 1))) (cond ((equal? e-8 1) (vector 1 (CoreC-45Unify-success))) (else (CoreC-45Unify-postponeS arg-2 arg-0 arg-1 1 arg-5 arg-4 "Postponing constraint" arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 clam-2)))))))))))))))))) (case (vector-ref arg-10 0) ((0) (lambda (eta-0) (CoreC-45Unify-convertErrorS arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10 eta-0))) ((2) (lambda (eta-0) (CoreC-45Unify-convertErrorS arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10 eta-0))) ((3) (lambda (eta-0) (CoreC-45Unify-convertErrorS arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10 eta-0))) ((8) (lambda (eta-0) (CoreC-45Unify-convertErrorS arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10 eta-0))) ((10) (lambda (eta-0) (CoreC-45Unify-convertErrorS arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10 eta-0)))(else (lambda (clam-3) (cond ((equal? arg-3 0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-u--convert_Convert_NF arg-0 arg-2 e-7 arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 clam-3))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-25 1))) (cond ((equal? e-8 1) (vector 1 (CoreC-45Unify-success))) (else (CoreC-45Unify-postponeS arg-2 arg-0 arg-1 0 arg-5 arg-4 "Postponing constraint" arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 clam-3)))))))))))) (else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-u--convert_Convert_NF arg-0 arg-2 e-7 arg-6 arg-10 (vector 1 arg-7 arg-8 arg-9) clam-3))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-25 1))) (cond ((equal? e-8 1) (vector 1 (CoreC-45Unify-success))) (else (CoreC-45Unify-postponeS arg-2 arg-0 arg-1 1 arg-5 arg-4 "Postponing constraint" arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 clam-3))))))))))))))))))))(else (lambda (clam-4) (cond ((equal? arg-3 0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-u--convert_Convert_NF arg-0 arg-2 e-5 arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 clam-4))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (cond ((equal? e-6 1) (vector 1 (CoreC-45Unify-success))) (else (CoreC-45Unify-postponeS arg-2 arg-0 arg-1 0 arg-5 arg-4 "Postponing constraint" arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 clam-4)))))))))))) (else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-u--convert_Convert_NF arg-0 arg-2 e-5 arg-6 arg-10 (vector 1 arg-7 arg-8 arg-9) clam-4))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (cond ((equal? e-6 1) (vector 1 (CoreC-45Unify-success))) (else (CoreC-45Unify-postponeS arg-2 arg-0 arg-1 1 arg-5 arg-4 "Postponing constraint" arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 clam-4))))))))))))))))))))))(else (case (vector-ref arg-8 0) ((1) (let ((e-1 (vector-ref arg-8 1))) (let ((e-2 (vector-ref arg-8 2))) (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-log arg-0 "unify.application" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Name against app, unifyIfEq") eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (cond ((equal? arg-3 1) (CoreC-45Unify-unifyIfEq arg-0 arg-1 arg-2 1 arg-5 arg-4 arg-6 arg-10 (vector 1 arg-7 (vector 1 e-1 e-2) arg-9) eta-0)) (else (CoreC-45Unify-unifyIfEq arg-0 arg-1 arg-2 1 arg-5 arg-4 arg-6 (vector 1 arg-7 (vector 1 e-1 e-2) arg-9) arg-10 eta-0)))))))))) ((0) (let ((e-5 (vector-ref arg-8 1))) (let ((e-6 (vector-ref arg-8 2))) (if (null? arg-9) (case (vector-ref arg-10 0) ((1) (let ((e-32 (vector-ref arg-10 1))) (let ((e-33 (vector-ref arg-10 2))) (let ((e-34 (vector-ref arg-10 3))) (case (vector-ref e-33 0) ((0) (let ((e-37 (vector-ref e-33 1))) (let ((e-38 (vector-ref e-33 2))) (if (null? e-34) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((sc6 (PreludeC-45Types-u--C-61C-61_Eq_Nat e-6 e-38))) (cond ((equal? sc6 1) (vector 1 (CoreC-45Unify-success))) (else (CoreC-45Unify-postponeS arg-2 arg-0 arg-1 arg-3 arg-5 arg-4 "Postponing var" arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) '()) (vector 1 e-32 (vector 0 e-37 e-38) '()) eta-0)))))))) (case (vector-ref arg-10 0) ((0) (lambda (eta-0) (CoreC-45Unify-convertErrorS arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10 eta-0))) ((2) (lambda (eta-0) (CoreC-45Unify-convertErrorS arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10 eta-0))) ((3) (lambda (eta-0) (CoreC-45Unify-convertErrorS arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10 eta-0))) ((8) (lambda (eta-0) (CoreC-45Unify-convertErrorS arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10 eta-0))) ((10) (lambda (eta-0) (CoreC-45Unify-convertErrorS arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10 eta-0)))(else (lambda (clam-5) (cond ((equal? arg-3 0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-u--convert_Convert_NF arg-0 arg-2 e-7 arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 clam-5))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-25 1))) (cond ((equal? e-8 1) (vector 1 (CoreC-45Unify-success))) (else (CoreC-45Unify-postponeS arg-2 arg-0 arg-1 0 arg-5 arg-4 "Postponing constraint" arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 clam-5)))))))))))) (else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-u--convert_Convert_NF arg-0 arg-2 e-7 arg-6 arg-10 (vector 1 arg-7 arg-8 arg-9) clam-5))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-25 1))) (cond ((equal? e-8 1) (vector 1 (CoreC-45Unify-success))) (else (CoreC-45Unify-postponeS arg-2 arg-0 arg-1 1 arg-5 arg-4 "Postponing constraint" arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 clam-5))))))))))))))))))))(else (case (vector-ref arg-10 0) ((0) (lambda (eta-0) (CoreC-45Unify-convertErrorS arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10 eta-0))) ((2) (lambda (eta-0) (CoreC-45Unify-convertErrorS arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10 eta-0))) ((3) (lambda (eta-0) (CoreC-45Unify-convertErrorS arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10 eta-0))) ((8) (lambda (eta-0) (CoreC-45Unify-convertErrorS arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10 eta-0))) ((10) (lambda (eta-0) (CoreC-45Unify-convertErrorS arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10 eta-0)))(else (lambda (clam-6) (cond ((equal? arg-3 0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-u--convert_Convert_NF arg-0 arg-2 e-7 arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 clam-6))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-25 1))) (cond ((equal? e-8 1) (vector 1 (CoreC-45Unify-success))) (else (CoreC-45Unify-postponeS arg-2 arg-0 arg-1 0 arg-5 arg-4 "Postponing constraint" arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 clam-6)))))))))))) (else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-u--convert_Convert_NF arg-0 arg-2 e-7 arg-6 arg-10 (vector 1 arg-7 arg-8 arg-9) clam-6))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-25 1))) (cond ((equal? e-8 1) (vector 1 (CoreC-45Unify-success))) (else (CoreC-45Unify-postponeS arg-2 arg-0 arg-1 1 arg-5 arg-4 "Postponing constraint" arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 clam-6))))))))))))))))))))))(else (case (vector-ref arg-10 0) ((0) (lambda (eta-0) (CoreC-45Unify-convertErrorS arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10 eta-0))) ((2) (lambda (eta-0) (CoreC-45Unify-convertErrorS arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10 eta-0))) ((3) (lambda (eta-0) (CoreC-45Unify-convertErrorS arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10 eta-0))) ((8) (lambda (eta-0) (CoreC-45Unify-convertErrorS arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10 eta-0))) ((10) (lambda (eta-0) (CoreC-45Unify-convertErrorS arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10 eta-0)))(else (lambda (clam-7) (cond ((equal? arg-3 0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-u--convert_Convert_NF arg-0 arg-2 e-7 arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 clam-7))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-25 1))) (cond ((equal? e-8 1) (vector 1 (CoreC-45Unify-success))) (else (CoreC-45Unify-postponeS arg-2 arg-0 arg-1 0 arg-5 arg-4 "Postponing constraint" arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 clam-7)))))))))))) (else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-u--convert_Convert_NF arg-0 arg-2 e-7 arg-6 arg-10 (vector 1 arg-7 arg-8 arg-9) clam-7))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-25 1))) (cond ((equal? e-8 1) (vector 1 (CoreC-45Unify-success))) (else (CoreC-45Unify-postponeS arg-2 arg-0 arg-1 1 arg-5 arg-4 "Postponing constraint" arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 clam-7)))))))))))))))))) (case (vector-ref arg-10 0) ((0) (lambda (eta-0) (CoreC-45Unify-convertErrorS arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10 eta-0))) ((2) (lambda (eta-0) (CoreC-45Unify-convertErrorS arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10 eta-0))) ((3) (lambda (eta-0) (CoreC-45Unify-convertErrorS arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10 eta-0))) ((8) (lambda (eta-0) (CoreC-45Unify-convertErrorS arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10 eta-0))) ((10) (lambda (eta-0) (CoreC-45Unify-convertErrorS arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10 eta-0)))(else (lambda (clam-8) (cond ((equal? arg-3 0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-u--convert_Convert_NF arg-0 arg-2 e-7 arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 clam-8))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-25 1))) (cond ((equal? e-8 1) (vector 1 (CoreC-45Unify-success))) (else (CoreC-45Unify-postponeS arg-2 arg-0 arg-1 0 arg-5 arg-4 "Postponing constraint" arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 clam-8)))))))))))) (else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-u--convert_Convert_NF arg-0 arg-2 e-7 arg-6 arg-10 (vector 1 arg-7 arg-8 arg-9) clam-8))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-25 1))) (cond ((equal? e-8 1) (vector 1 (CoreC-45Unify-success))) (else (CoreC-45Unify-postponeS arg-2 arg-0 arg-1 1 arg-5 arg-4 "Postponing constraint" arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 clam-8))))))))))))))))))))(else (lambda (clam-9) (cond ((equal? arg-3 0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-u--convert_Convert_NF arg-0 arg-2 e-5 arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 clam-9))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (cond ((equal? e-6 1) (vector 1 (CoreC-45Unify-success))) (else (CoreC-45Unify-postponeS arg-2 arg-0 arg-1 0 arg-5 arg-4 "Postponing constraint" arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 clam-9)))))))))))) (else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-u--convert_Convert_NF arg-0 arg-2 e-5 arg-6 arg-10 (vector 1 arg-7 arg-8 arg-9) clam-9))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (cond ((equal? e-6 1) (vector 1 (CoreC-45Unify-success))) (else (CoreC-45Unify-postponeS arg-2 arg-0 arg-1 1 arg-5 arg-4 "Postponing constraint" arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 clam-9)))))))))))))))))))))) +(define CoreC-45Unify-unify (lambda (arg-1 arg-2 arg-3 arg-4 ext-2 ext-1 ext-0) (let ((e-1 (car arg-1))) (lambda (arg-5) (lambda (arg-6) ((((((((e-1 arg-2) arg-3) arg-4) ext-2) ext-1) ext-0) arg-5) arg-6)))))) (define CoreC-45Unify-ufail (lambda (arg-1 arg-2 ext-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-1 arg-2) ext-0))) -(define CoreC-45Unify-tooBig (lambda (arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-2)) (cond ((equal? sc0 0) 0)(else (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((4) (let ((e-13 (vector-ref sc0 2))) (let ((e-14 (vector-ref sc0 3))) (CoreC-45Unify-tooBig arg-1 arg-2 (cons e-14 arg-3) e-13))))(else (let ((sc0 arg-2)) (cond ((equal? sc0 0) 1)(else (let ((e-0 (- arg-2 1))) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((3) (let ((e-5 (vector-ref sc0 4))) (PreludeC-45Basics-C-124C-124 (CoreC-45Unify-tooBig arg-1 (+ 1 e-0) '() e-5) (lambda () (PreludeC-45Interfaces-any (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (lambda (eta-0) (CoreC-45Unify-tooBig arg-1 e-0 '() eta-0)) arg-3))))) ((2) (let ((e-10 (vector-ref sc0 4))) (PreludeC-45Basics-C-124C-124 (PreludeC-45Interfaces-any (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (lambda (eta-0) (CoreC-45Unify-tooBig arg-1 e-0 '() eta-0)) e-10) (lambda () (PreludeC-45Interfaces-any (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (lambda (eta-0) (CoreC-45Unify-tooBig arg-1 e-0 '() eta-0)) arg-3)))))(else (CoreC-45Unify-case--tooBig-9354 e-0 arg-4 arg-3 arg-1 (PreludeC-45Basics-C-124C-124 arg-1 (lambda () (CoreC-45Unify-n--14354-9284-u--isFn e-0 arg-4 arg-3 arg-1 arg-4))))))))))))))))))) -(define CoreC-45Unify-toSubVars (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (if (null? sc0) (cons '() (vector 0 )) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (CoreC-45Unify-case--toSubVars-6155 e-2 e-3 arg-1 (CoreC-45Unify-toSubVars e-3 (CoreC-45TT-dropFirst arg-1))))))))) -(define CoreC-45Unify-success (lambda () (vector 0 '() 1 '() (vector 0 )))) -(define CoreC-45Unify-solvedHole (lambda (arg-0) (vector 0 '() 0 (cons arg-0 '()) (vector 0 )))) -(define CoreC-45Unify-solveIfUndefined (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Context-lookupDefExact (vector 9 e-3) (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((7) (let ((e-9 (vector-ref sc4 1))) (let ((e-8 (vector-ref sc4 2))) (let ((act-26 (CoreC-45Unify-patternEnvTm arg-1 arg-2 arg-0 arg-3 e-4 ext-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc5 1))) (let ((_-0 (vector 1 (vector 7 e-9 e-8)))) (let ((sc6 e-10)) (case (vector-ref sc6 0) ((0) (vector 1 1)) (else (let ((e-11 (vector-ref sc6 1))) (let ((sc7 e-11)) (let ((e-13 (car sc7))) (let ((e-12 (cdr sc7))) (let ((sc8 e-12)) (let ((e-15 (car sc8))) (let ((e-14 (cdr sc8))) (let ((bind-0 (vector 1 (cons e-13 (cons e-15 e-14))))) (CoreC-45Unify-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32solveIfUndefined-8957 arg-0 e-4 e-3 e-2 e-1 arg-5 arg-3 arg-2 arg-1 e-5 e-9 e-8 _-0 e-13 e-15 e-14 bind-0 (CoreC-45TT-shrinkTerm arg-5 e-14) ext-0)))))))))))))))))))))(else (vector 1 1))))))(else (vector 1 1)))))))))))))))))))(else (vector 1 1)))))) -(define CoreC-45Unify-solveHole (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (CoreC-45Context-clearDefs e-5 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (CoreC-45Unify-case--solveHole-10970 arg-2 arg-3 arg-15 arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-1 arg-0 e-5 e-6 (CoreC-45Unify-n--14571-10936-u--solutionHeadSame arg-2 arg-3 arg-15 arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-1 arg-0 arg-15) ext-0))))))))))))) -(define CoreC-45Unify-solveConstraintsAfter (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (CoreC-45Unify-retryGuess arg-0 arg-1 arg-3 arg-4 eta-0 eta-1))) (DataC-45List-filter (lambda (eta-0) (CoreC-45Unify-n--25355-19207-u--afterStart arg-4 arg-3 arg-2 arg-1 arg-0 eta-0)) (LibrariesC-45DataC-45IntMap-toList (let ((sc1 e-5)) (let ((e-1 (vector-ref sc1 2))) e-1)))) '() ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 (LibrariesC-45DataC-45BoolC-45Extra-anyTrue e-6))) (cond ((equal? sc2 0) (CoreC-45Unify-solveConstraintsAfter arg-0 arg-1 arg-2 arg-3 (vector 0 ) ext-0)) (else (vector 1 (vector 0 ))))))))))))))))) -(define CoreC-45Unify-solveConstraints (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (CoreC-45Unify-retryGuess arg-0 arg-1 arg-2 arg-3 eta-0 eta-1))) (LibrariesC-45DataC-45IntMap-toList (let ((sc1 e-5)) (let ((e-1 (vector-ref sc1 2))) e-1))) '() ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 (LibrariesC-45DataC-45BoolC-45Extra-anyTrue e-6))) (cond ((equal? sc2 0) (CoreC-45Unify-solveConstraints arg-0 arg-1 arg-2 (vector 0 ) ext-0)) (else (vector 1 (vector 0 ))))))))))))))))) -(define CoreC-45Unify-setInvertible (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact arg-2 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc3 eta-0)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))) (lambda (eta-0) (CoreC-45Context-addDef arg-0 arg-2 (let ((sc3 e-1)) (let ((e-0 (vector-ref sc3 1))) (let ((e-23 (vector-ref sc3 2))) (let ((e-2 (vector-ref sc3 3))) (let ((e-3 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-22 (vector-ref sc3 6))) (let ((e-21 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (let ((e-11 (vector-ref sc3 12))) (let ((e-12 (vector-ref sc3 13))) (let ((e-13 (vector-ref sc3 14))) (let ((e-15 (vector-ref sc3 16))) (let ((e-16 (vector-ref sc3 17))) (let ((e-17 (vector-ref sc3 18))) (let ((e-18 (vector-ref sc3 19))) (let ((e-19 (vector-ref sc3 20))) (let ((e-20 (vector-ref sc3 21))) (vector 0 e-0 e-23 e-2 e-3 e-4 e-22 e-21 e-7 e-8 e-9 e-10 e-11 e-12 e-13 0 e-15 e-16 e-17 e-18 e-19 e-20)))))))))))))))))))))) eta-0)) ext-0))) (else (CoreC-45Context-undefinedName arg-0 arg-1 arg-2 ext-0)))))))))))))))) -(define CoreC-45Unify-search (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45Normalise-logTermNF arg-0 arg-1 "auto" (+ 1 (+ 1 (+ 1 0))) (lambda () "Initial target: ") arg-9 arg-8 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45ContextC-45Log-log arg-1 "auto" (+ 1 (+ 1 (+ 1 0))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Running search with defaults " (PreludeC-45Show-u--show_Show_Bool arg-5))) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-27 (CoreC-45AutoSearch-searchType arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 '() arg-6 arg-7 0 (CoreC-45Env-abstractEnvType arg-0 arg-3 arg-9 arg-8) arg-9 arg-8 ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (CoreC-45Normalise-logTermNF arg-0 arg-1 "auto" (+ 1 (+ 1 (+ 1 0))) (lambda () "Result") arg-9 e-8 ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-29 (let ((act-29 (unbox arg-1))) (vector 1 act-29)))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (vector 1 e-8)))))))))))))))))))))))))))) -(define CoreC-45Unify-retryGuess (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((sc0 arg-4)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-3)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact (vector 9 e-2) (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) e-0))) ext-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (case (vector-ref sc4 0) ((0) (vector 1 1)) (else (let ((e-4 (vector-ref sc4 1))) (let ((bind-0 (vector 1 e-4))) ((CoreC-45Unify-case--caseC-32blockC-32inC-32retryGuess-17923 e-2 e-6 e-7 arg-3 arg-2 arg-1 arg-0 e-5 e-4 bind-0 (let ((sc5 e-4)) (let ((e-17 (vector-ref sc5 18))) e-17))) ext-0)))))))))))))))))))))))) -(define CoreC-45Unify-retry (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (CoreC-45Unify-case--retry-17350 arg-0 arg-3 arg-2 arg-1 e-5 (LibrariesC-45DataC-45IntMap-lookup arg-3 (let ((sc1 e-5)) (let ((e-4 (vector-ref sc1 5))) e-4))) ext-0)))))))) -(define CoreC-45Unify-postponeS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 ext-0) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (CoreC-45Unify-postpone arg-0 arg-1 arg-2 arg-3 arg-5 (CoreC-45Unify-lower arg-6) arg-7 arg-8 arg-10 arg-9 ext-0)) (else (CoreC-45Unify-postpone arg-0 arg-1 arg-2 arg-3 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 ext-0)))))) -(define CoreC-45Unify-postponePatVar (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((u--x (vector 1 arg-5 (vector 2 arg-7 arg-8 arg-9) (PreludeC-45Types-u--map_Functor_List (lambda (__infixTupleSection-0) (cons (vector 1 ) __infixTupleSection-0)) arg-10)))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (CoreC-45Normalise-u--convert_Convert_NF arg-0 arg-2 e-5 arg-6 u--x arg-11 eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (cond ((equal? sc2 0) (vector 1 (CoreC-45Unify-success))) (else (CoreC-45Unify-postponeS arg-2 arg-0 arg-1 1 arg-3 arg-5 arg-4 "Not in pattern fragment" arg-6 u--x arg-11 eta-0)))))))))))))))))) -(define CoreC-45Unify-postpone (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (CoreC-45Context-clearDefs e-5 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (CoreC-45ContextC-45Log-logC arg-1 "unify.postpone" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda (eta-0) (let ((act-26 (CoreC-45Normalise-u--quote_Quote_NF arg-1 arg-0 e-5 arg-7 arg-8 eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (CoreC-45Normalise-u--quote_Quote_NF arg-1 arg-0 e-5 arg-7 arg-9 eta-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (CoreC-45Context-toFullNames arg-1 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-1) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-1)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) e-7 eta-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-29 (CoreC-45Context-toFullNames arg-1 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-1) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-1)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) e-8 eta-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc5 1))) (vector 1 (PreludeC-45TypesC-45String-C-43C-43 arg-6 (PreludeC-45TypesC-45String-C-43C-43 ": " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 e-9) (PreludeC-45TypesC-45String-C-43C-43 " =?= " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 e-10))))))))))))))))))))))))))) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-27 (CoreC-45Unify-n--10042-5372-u--checkDefined arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 arg-8 ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-28 (CoreC-45Unify-n--10042-5372-u--checkDefined arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 arg-9 ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-29 (CoreC-45Normalise-u--quote_Quote_NF arg-1 arg-0 e-6 arg-7 arg-8 ext-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-30 (CoreC-45Normalise-u--quote_Quote_NF arg-1 arg-0 e-6 arg-7 arg-9 ext-0))) (let ((sc6 act-30)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-31 (let ((sc7 arg-3)) (cond ((equal? sc7 0) (let ((u--xmetas (CoreC-45TT-getMetas e-10))) ((CoreC-45Unify-chaseMetas arg-1 (LibrariesC-45DataC-45NameMap-keys (CoreC-45TT-addMetas u--xmetas e-11)) (LibrariesC-45DataC-45NameMap-empty)) ext-0))) (else (vector 1 '())))))) (let ((sc7 act-31)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc7 1))) (let ((act-32 (CoreC-45Core-filterM (lambda (eta-0) (lambda (eta-1) (CoreC-45Unify-n--10042-5373-u--undefinedN arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 eta-0 eta-1))) e-12 ext-0))) (let ((sc8 act-32)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-33 (CoreC-45UnifyState-addConstraint arg-2 arg-1 (vector 0 arg-0 arg-4 (let ((sc9 arg-5)) (let ((e-0 (car sc9))) e-0)) e-13 arg-7 e-10 e-11) ext-0))) (let ((sc9 act-33)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref sc9 1))) (let ((act-34 (CoreC-45ContextC-45Log-log arg-1 "unify.postpone" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Int e-14) (PreludeC-45TypesC-45String-C-43C-43 " NEW CONSTRAINT " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC arg-4) (PreludeC-45TypesC-45String-C-43C-43 " blocked on " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45Name-u--show_Show_Name u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Name-u--showPrec_Show_Name u--d u--x)))) e-12)))))) ext-0))) (let ((sc10 act-34)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((act-35 (CoreC-45ContextC-45Log-logTerm arg-0 arg-1 "unify.postpone" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "X") e-10 ext-0))) (let ((sc11 act-35)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((act-36 (CoreC-45ContextC-45Log-logTerm arg-0 arg-1 "unify.postpone" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Y") e-11 ext-0))) (let ((sc12 act-36)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (vector 1 (CoreC-45Unify-constrain e-14))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) -(define CoreC-45Unify-patternEnvTm (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (CoreC-45Context-clearDefs e-5 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) ((CoreC-45Unify-case--patternEnvTm-6603 arg-2 arg-4 arg-3 arg-1 arg-0 e-5 e-6 (CoreC-45Unify-getVarsTm '() arg-4)) ext-0))))))))))))) -(define CoreC-45Unify-patternEnv (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (CoreC-45Context-clearDefs e-5 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalArg arg-0 arg-2 e-6 eta-0)) arg-4 '() ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) ((CoreC-45Unify-case--patternEnv-6328 arg-2 arg-4 arg-3 arg-1 arg-0 e-5 e-6 e-7 (CoreC-45Unify-getVars arg-2 '() e-7)) ext-0)))))))))))))))))) -(define CoreC-45Unify-occursCheck (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 ((CoreC-45Unify-getMetaNames arg-1 arg-6) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (CoreC-45Unify-case--occursCheck-6907 arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 (PreludeC-45Types-elem (cons (lambda (arg-7) (lambda (arg-8) (CoreC-45Name-u--C-61C-61_Eq_Name arg-7 arg-8))) (lambda (arg-7) (lambda (arg-8) (CoreC-45Name-u--C-47C-61_Eq_Name arg-7 arg-8)))) arg-5 e-5) ext-0)))))))) -(define CoreC-45Unify-lower (lambda (ext-0) (let ((sc0 ext-0)) (let ((e-1 (cdr sc0))) (cons 1 e-1))))) -(define CoreC-45Unify-isHoleApp (lambda (arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((2) 0)(else 1)))))(else 1))))) -(define CoreC-45Unify-isDefInvertible (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact (vector 9 arg-2) (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (vector 1 (let ((sc3 e-1)) (let ((e-14 (vector-ref sc3 15))) e-14))))) (else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 7 arg-1 (vector 9 arg-2)) ext-0)))))))))))))))) -(define CoreC-45Unify-instantiate (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 ext-0) (let ((act-24 (CoreC-45ContextC-45Log-logTerm arg-3 arg-0 "unify.instantiate" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Instantiating in " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45Name-u--show_Show_Name u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Name-u--showPrec_Show_Name u--d u--x)))) arg-3))) arg-13 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45Unify-case--instantiate-8682 arg-2 arg-3 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-1 arg-0 (let ((sc1 arg-10)) (let ((e-1 (vector-ref sc1 2))) e-1)) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((u--ty (let ((sc2 arg-10)) (let ((e-2 (vector-ref sc2 3))) e-2)))) (let ((act-26 (CoreC-45ContextC-45Log-logTerm '() arg-0 "unify.instantiate" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Type: " (CoreC-45Name-u--show_Show_Name arg-7))) u--ty ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-27 (CoreC-45ContextC-45Log-log arg-0 "unify.instantiate" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "With locs: " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45TT-u--show_Show_C-40VarC-32C-36nsC-41 u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45TT-u--showPrec_Show_C-40VarC-32C-36nsC-41 u--d u--x)))) arg-11))) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-28 (CoreC-45ContextC-45Log-log arg-0 "unify.instantiate" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "From vars: " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45Name-u--show_Show_Name u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Name-u--showPrec_Show_Name u--d u--x)))) arg-3))) ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-29 (let ((act-29 (unbox arg-0))) (vector 1 act-29)))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((act-30 ((CoreC-45Unify-n--12105-7252-u--mkDef arg-2 arg-3 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-1 arg-0 '() arg-3 arg-11 '() arg-13 u--ty) ext-0))) (let ((sc6 act-30)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-31 (CoreC-45ContextC-45Log-logTerm '() arg-0 "unify.instantiate" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Definition") e-11 ext-0))) (let ((sc7 act-31)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((u--simpleDef (cons (vector 1 arg-9) (CoreC-45Unify-n--12105-7249-u--isSimple arg-2 arg-3 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-1 arg-0 e-11)))) (let ((u--newdef (let ((sc8 arg-10)) (let ((e-0 (vector-ref sc8 1))) (let ((e-1 (vector-ref sc8 2))) (let ((e-2 (vector-ref sc8 3))) (let ((e-3 (vector-ref sc8 4))) (let ((e-4 (vector-ref sc8 5))) (let ((e-28 (vector-ref sc8 6))) (let ((e-27 (vector-ref sc8 7))) (let ((e-26 (vector-ref sc8 8))) (let ((e-25 (vector-ref sc8 9))) (let ((e-24 (vector-ref sc8 10))) (let ((e-23 (vector-ref sc8 11))) (let ((e-22 (vector-ref sc8 12))) (let ((e-21 (vector-ref sc8 13))) (let ((e-13 (vector-ref sc8 14))) (let ((e-14 (vector-ref sc8 15))) (let ((e-15 (vector-ref sc8 16))) (let ((e-16 (vector-ref sc8 17))) (let ((e-18 (vector-ref sc8 19))) (let ((e-19 (vector-ref sc8 20))) (let ((e-20 (vector-ref sc8 21))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-28 e-27 e-26 e-25 e-24 e-23 e-22 e-21 e-13 e-14 e-15 e-16 (vector 1 u--simpleDef '() (vector 1 0 e-11) (vector 1 0 e-11) '()) e-18 e-19 e-20)))))))))))))))))))))))) (let ((act-32 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc8 eta-0)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))) (lambda (eta-0) (CoreC-45Context-addDef arg-0 (vector 9 arg-8) u--newdef eta-0)) ext-0))) (let ((sc8 act-32)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (CoreC-45UnifyState-removeHole arg-1 arg-8 ext-0))))))))))))))))))))))))))))))))))))))))))) -(define CoreC-45Unify-inTerm (lambda () (cons 0 (vector 1 )))) -(define CoreC-45Unify-inSearch (lambda () (cons 0 (vector 3 )))) -(define CoreC-45Unify-inMatch (lambda () (cons 0 (vector 2 )))) -(define CoreC-45Unify-inLHS (lambda () (cons 0 (vector 0 )))) -(define CoreC-45Unify-headsConvert (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (CoreC-45Unify-case--headsConvert-9772 arg-0 e-1 e-3 arg-5 arg-4 arg-3 arg-2 arg-1 (cons (DataC-45List-reverse e-1) (DataC-45List-reverse e-3)))))(else (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-log arg-1 "unify.head" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Nothing to convert") eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 0)))))))))))(else (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-log arg-1 "unify.head" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Nothing to convert") eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (vector 1 0))))))))))) -(define CoreC-45Unify-giveUpConstraints (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (CoreC-45Core-traverse_ (lambda (eta-0) (lambda (eta-1) (CoreC-45Unify-n--25403-19250-u--constraintToHole arg-1 arg-0 eta-0 eta-1))) (LibrariesC-45DataC-45IntMap-toList (let ((sc1 e-5)) (let ((e-1 (vector-ref sc1 2))) e-1))) ext-0)))))))) -(define CoreC-45Unify-getVarsTm (lambda (arg-1 arg-2) (let ((sc0 arg-2)) (if (null? sc0) (vector 1 '()) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (CoreC-45Unify-case--getVarsTm-6432 e-8 e-7 e-6 e-3 arg-1 (PreludeC-45Types-elem (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45Types-u--C-61C-61_Eq_Nat arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45Types-u--C-47C-61_Eq_Nat arg-4 arg-5)))) e-8 arg-1))))))(else (vector 0 )))))))))) -(define CoreC-45Unify-getVars (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (if (null? sc0) (vector 1 '()) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((e-7 (vector-ref sc1 3))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((0) (let ((e-15 (vector-ref sc2 1))) (let ((e-16 (vector-ref sc2 2))) (let ((sc3 e-7)) (if (null? sc3) (CoreC-45Unify-case--getVars-6026 arg-0 e-16 e-15 e-5 e-3 arg-1 (CoreC-45Unify-n--10719-6012-u--inArgs arg-0 e-16 e-15 e-5 e-3 arg-1 e-16 arg-1)) (vector 0 ))))))(else (vector 0 )))))))) ((4) (let ((e-12 (vector-ref sc1 4))) (CoreC-45Unify-getVars arg-0 arg-1 (cons e-12 e-3))))(else (vector 0 )))))))))) +(define CoreC-45Unify-tooBig (lambda (arg-1 arg-2 arg-3 arg-4) (cond ((equal? arg-2 0) 1)(else (case (vector-ref arg-4 0) ((4) (let ((e-13 (vector-ref arg-4 2))) (let ((e-14 (vector-ref arg-4 3))) (CoreC-45Unify-tooBig arg-1 arg-2 (cons e-14 arg-3) e-13))))(else (cond ((equal? arg-2 0) 0)(else (let ((e-0 (- arg-2 1))) (case (vector-ref arg-4 0) ((3) (let ((e-5 (vector-ref arg-4 4))) (let ((sc1 (CoreC-45Unify-tooBig arg-1 (+ 1 e-0) '() e-5))) (cond ((equal? sc1 1) 1) (else (PreludeC-45Interfaces-any (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (lambda (eta-0) (CoreC-45Unify-tooBig arg-1 e-0 '() eta-0)) arg-3)))))) ((2) (let ((e-10 (vector-ref arg-4 4))) (let ((sc1 (PreludeC-45Interfaces-any (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (lambda (eta-0) (CoreC-45Unify-tooBig arg-1 e-0 '() eta-0)) e-10))) (cond ((equal? sc1 1) 1) (else (PreludeC-45Interfaces-any (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (lambda (eta-0) (CoreC-45Unify-tooBig arg-1 e-0 '() eta-0)) arg-3))))))(else (let ((sc0 (cond ((equal? arg-1 1) 1) (else (CoreC-45Unify-n--11511-10507-u--isFn e-0 arg-4 arg-3 arg-1 arg-4))))) (cond ((equal? sc0 1) (CoreC-45Unify-n--11511-10508-u--tooBigArgs e-0 arg-4 arg-3 arg-1 1 e-0 arg-3)) (else (CoreC-45Unify-n--11511-10508-u--tooBigArgs e-0 arg-4 arg-3 arg-1 arg-1 (+ 1 e-0) arg-3))))))))))))))) +(define CoreC-45Unify-toSubVars (lambda (arg-0 arg-1) (if (null? arg-0) (cons '() (vector 0 )) (let ((e-2 (car arg-0))) (let ((e-3 (cdr arg-0))) (let ((sc1 (CoreC-45Unify-toSubVars e-3 (CoreC-45TT-dropFirst arg-1)))) (let ((e-5 (car sc1))) (let ((e-4 (cdr sc1))) (let ((sc2 (CoreC-45Unify-n--7850-7255-u--anyFirst e-2 e-3 arg-1 arg-1))) (cond ((equal? sc2 1) (cons (cons e-2 e-5) (vector 2 e-4))) (else (cons e-5 (vector 1 e-4))))))))))))) +(define CoreC-45Unify-success (lambda () (vector '() 0 '() (vector 0 )))) +(define CoreC-45Unify-solvedHole (lambda (arg-0) (vector '() 1 (cons arg-0 '()) (vector 0 )))) +(define CoreC-45Unify-solveIfUndefined (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (case (vector-ref arg-4 0) ((2) (let ((e-1 (vector-ref arg-4 1))) (let ((e-2 (vector-ref arg-4 2))) (let ((e-3 (vector-ref arg-4 3))) (let ((e-4 (vector-ref arg-4 4))) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-lookupDefExact (vector 9 e-3) (let ((e-0 (vector-ref e-5 0))) e-0) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-6 (vector-ref act-25 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-25 1))) (if (null? e-6) (vector 1 0) (let ((e-7 (unbox e-6))) (case (vector-ref e-7 0) ((7) (let ((act-26 (CoreC-45Unify-patternEnvTm arg-1 arg-2 arg-0 arg-3 e-4 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-10 (vector-ref act-26 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-26 1))) (if (null? e-10) (vector 1 0) (let ((e-11 (unbox e-10))) (let ((e-13 (car e-11))) (let ((e-12 (cdr e-11))) (let ((e-15 (car e-12))) (let ((e-14 (cdr e-12))) (let ((sc9 (CoreC-45TT-shrinkTerm arg-5 e-14))) (if (null? sc9) (vector 1 0) (let ((e-16 (unbox sc9))) (let ((act-27 ((CoreC-45Context-lookupCtxtExact (vector 9 e-3) (let ((e-0 (vector-ref e-5 0))) e-0)) ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-17 (vector-ref act-27 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref act-27 1))) (if (null? e-17) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 "Can't happen: no definition") ext-0) (let ((e-18 (unbox e-17))) (let ((act-28 (CoreC-45Unify-instantiate arg-1 arg-2 arg-0 e-13 e-1 (CoreC-45Unify-inTerm) arg-3 e-2 e-3 (PreludeC-45TypesC-45List-length e-4) e-18 e-15 arg-5 e-16 ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-19 (vector-ref act-28 1))) (vector 0 e-19))) (else (vector 1 1))))))))))))))))))))))))(else (vector 1 0))))))))))))))))))(else (vector 1 0))))) +(define CoreC-45Unify-solveHole (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Context-clearDefs e-5 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((sc3 (let ((sc4 (CoreC-45Unify-n--11742-12192-u--solutionHeadSame arg-2 arg-3 arg-15 arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-1 arg-0 arg-15))) (cond ((equal? sc4 1) 1) (else (CoreC-45Unify-n--11742-12191-u--inNoSolve arg-2 arg-3 arg-15 arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-1 arg-0 arg-8 (let ((e-14 (vector-ref e-6 5))) e-14))))))) (cond ((equal? sc3 1) (vector 1 (CoreC-45Unify-success))) (else (let ((act-27 ((CoreC-45Context-lookupCtxtExact (vector 9 arg-8) (let ((e-0 (vector-ref e-5 0))) e-0)) ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (if (null? e-8) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 (PreludeC-45TypesC-45String-C-43C-43 "Can't happen: Lost hole " (CoreC-45Name-u--show_Show_Name arg-7))) ext-0) (let ((e-1 (unbox e-8))) (let ((act-28 (CoreC-45Unify-instantiate arg-0 arg-1 arg-3 arg-2 arg-4 arg-5 arg-6 arg-7 arg-8 (PreludeC-45TypesC-45List-length arg-9) e-1 arg-11 arg-13 arg-14 ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (vector 1 (CoreC-45Unify-solvedHole arg-8))))))))))))))))))))))))))) +(define CoreC-45Unify-solveConstraintsAfter (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (CoreC-45Unify-retryGuess arg-0 arg-1 arg-3 arg-4 eta-0 eta-1))) (DataC-45List-filter (lambda (eta-0) (CoreC-45Unify-n--22845-20512-u--afterStart arg-4 arg-3 arg-2 arg-1 arg-0 eta-0)) (LibrariesC-45DataC-45IntMap-toList (let ((e-1 (vector-ref e-5 1))) e-1))) '() ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((sc2 (PreludeC-45Interfaces-any (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (lambda (eta-0) eta-0) e-6))) (cond ((equal? sc2 1) (CoreC-45Unify-solveConstraintsAfter arg-0 arg-1 arg-2 arg-3 0 ext-0)) (else (vector 1 0)))))))))))))) +(define CoreC-45Unify-solveConstraints (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (CoreC-45Unify-retryGuess arg-0 arg-1 arg-2 arg-3 eta-0 eta-1))) (LibrariesC-45DataC-45IntMap-toList (let ((e-1 (vector-ref e-5 1))) e-1)) '() ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((sc2 (PreludeC-45Interfaces-any (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (lambda (eta-0) eta-0) e-6))) (cond ((equal? sc2 1) (CoreC-45Unify-solveConstraints arg-0 arg-1 arg-2 0 ext-0)) (else (vector 1 0)))))))))))))) +(define CoreC-45Unify-setInvertible (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact arg-2 (let ((e-0 (vector-ref e-5 0))) e-0)) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (if (null? e-6) (CoreC-45Context-undefinedName arg-0 arg-1 arg-2 ext-0) (let ((e-1 (unbox e-6))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-2 (vector-ref eta-0 1))) (vector 0 e-2))) (else (vector 1 0)))) (lambda (eta-0) (CoreC-45Context-addDef arg-0 arg-2 (let ((e-0 (vector-ref e-1 0))) (let ((e-23 (vector-ref e-1 1))) (let ((e-2 (vector-ref e-1 2))) (let ((e-3 (vector-ref e-1 3))) (let ((e-4 (vector-ref e-1 4))) (let ((e-22 (vector-ref e-1 5))) (let ((e-21 (vector-ref e-1 6))) (let ((e-7 (vector-ref e-1 7))) (let ((e-8 (vector-ref e-1 8))) (let ((e-9 (vector-ref e-1 9))) (let ((e-10 (vector-ref e-1 10))) (let ((e-11 (vector-ref e-1 11))) (let ((e-12 (vector-ref e-1 12))) (let ((e-13 (vector-ref e-1 13))) (let ((e-15 (vector-ref e-1 15))) (let ((e-16 (vector-ref e-1 16))) (let ((e-17 (vector-ref e-1 17))) (let ((e-18 (vector-ref e-1 18))) (let ((e-19 (vector-ref e-1 19))) (let ((e-20 (vector-ref e-1 20))) (vector e-0 e-23 e-2 e-3 e-4 e-22 e-21 e-7 e-8 e-9 e-10 e-11 e-12 e-13 1 e-15 e-16 e-17 e-18 e-19 e-20))))))))))))))))))))) eta-0)) ext-0))))))))))))) +(define CoreC-45Unify-search (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45Normalise-logTermNF arg-0 arg-1 "auto" (+ 1 (+ 1 (+ 1 0))) (lambda () "Initial target: ") arg-9 arg-8 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45ContextC-45Log-log arg-1 "auto" (+ 1 (+ 1 (+ 1 0))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Running search with defaults " (PreludeC-45Show-u--show_Show_Bool arg-5))) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((act-27 (CoreC-45AutoSearch-searchType arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 '() arg-6 arg-7 1 (CoreC-45Env-abstractEnvType arg-0 arg-3 arg-9 arg-8) arg-9 arg-8 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (let ((act-28 (CoreC-45Normalise-logTermNF arg-0 arg-1 "auto" (+ 1 (+ 1 (+ 1 0))) (lambda () "Result") arg-9 e-8 ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((act-29 (let ((act-29 (unbox arg-1))) (vector 1 act-29)))) (case (vector-ref act-29 0) ((0) (let ((e-2 (vector-ref act-29 1))) (vector 0 e-2))) (else (vector 1 e-8)))))))))))))))))))))) +(define CoreC-45Unify-retryGuess (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((e-2 (car arg-4))) (let ((e-3 (cdr arg-4))) (let ((e-6 (car e-3))) (let ((e-7 (cdr e-3))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact (vector 9 e-2) (let ((e-0 (vector-ref e-5 0))) e-0)) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref act-25 1))) (if (null? e-8) (vector 1 0) (let ((e-4 (unbox e-8))) (let ((bind-0 (box e-4))) ((CoreC-45Unify-case--caseC-32blockC-32inC-32retryGuess-19188 e-2 e-6 e-7 arg-3 arg-2 arg-1 arg-0 e-5 e-4 bind-0 (let ((e-17 (vector-ref e-4 17))) e-17)) ext-0)))))))))))))))))) +(define CoreC-45Unify-retry (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (CoreC-45Unify-case--retry-18601 arg-0 arg-3 arg-2 arg-1 e-5 (LibrariesC-45DataC-45IntMap-lookup arg-3 (let ((e-4 (vector-ref e-5 4))) e-4)) ext-0))))))) +(define CoreC-45Unify-postponeS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 ext-0) (cond ((equal? arg-3 1) (CoreC-45Unify-postpone arg-0 arg-1 arg-2 arg-4 (CoreC-45Unify-lower arg-5) arg-6 arg-7 arg-9 arg-8 ext-0)) (else (CoreC-45Unify-postpone arg-0 arg-1 arg-2 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 ext-0))))) +(define CoreC-45Unify-postponePatVar (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((u--x (vector 1 arg-5 (vector 2 arg-7 arg-8 arg-9) (PreludeC-45Types-u--map_Functor_List (lambda (__infixTupleSection-0) (cons (vector 2 ) __infixTupleSection-0)) arg-10)))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-u--convert_Convert_NF arg-0 arg-2 e-5 arg-6 u--x arg-11 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (cond ((equal? e-6 1) (vector 1 (CoreC-45Unify-success))) (else (CoreC-45Unify-postponeS arg-2 arg-0 arg-1 arg-3 arg-5 arg-4 "Not in pattern fragment" arg-6 u--x arg-11 eta-0))))))))))))))) +(define CoreC-45Unify-postpone (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-clearDefs e-5 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45ContextC-45Log-unverifiedLogC arg-1 "unify.postpone" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda (eta-0) (let ((act-26 (CoreC-45Normalise-u--quote_Quote_NF arg-1 arg-0 e-5 arg-6 arg-7 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (CoreC-45Normalise-u--quote_Quote_NF arg-1 arg-0 e-5 arg-6 arg-8 eta-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (let ((act-28 (CoreC-45Context-toFullNames arg-1 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-1) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-1)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-1) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-1))))) e-7 eta-0))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-28 1))) (let ((act-29 (CoreC-45Context-toFullNames arg-1 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-1) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-1)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-1) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-1))))) e-8 eta-0))) (case (vector-ref act-29 0) ((0) (let ((e-2 (vector-ref act-29 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref act-29 1))) (vector 1 (PreludeC-45TypesC-45String-C-43C-43 arg-5 (PreludeC-45TypesC-45String-C-43C-43 ": " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 e-9) (PreludeC-45TypesC-45String-C-43C-43 " =?= " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 e-10))))))))))))))))))))))) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((act-27 (CoreC-45Unify-n--7161-6620-u--checkDefined arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 arg-7 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((act-28 (CoreC-45Unify-n--7161-6620-u--checkDefined arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 arg-8 ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((act-29 (CoreC-45UnifyState-addConstraint arg-2 arg-1 (vector 0 arg-0 arg-3 (let ((e-0 (car arg-4))) e-0) arg-6 arg-7 arg-8) ext-0))) (case (vector-ref act-29 0) ((0) (let ((e-2 (vector-ref act-29 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref act-29 1))) (let ((act-30 (CoreC-45ContextC-45Log-log arg-1 "unify.postpone" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Int e-10) (PreludeC-45TypesC-45String-C-43C-43 " NEW CONSTRAINT " (CoreC-45FC-u--show_Show_FC arg-3)))) ext-0))) (case (vector-ref act-30 0) ((0) (let ((e-2 (vector-ref act-30 1))) (vector 0 e-2))) (else (let ((act-31 (CoreC-45Normalise-logNF arg-0 arg-1 "unify.postpone" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "X") arg-6 arg-7 ext-0))) (case (vector-ref act-31 0) ((0) (let ((e-2 (vector-ref act-31 1))) (vector 0 e-2))) (else (let ((act-32 (CoreC-45Normalise-logNF arg-0 arg-1 "unify.postpone" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Y") arg-6 arg-8 ext-0))) (case (vector-ref act-32 0) ((0) (let ((e-2 (vector-ref act-32 1))) (vector 0 e-2))) (else (vector 1 (CoreC-45Unify-constrain e-10))))))))))))))))))))))))))))))))) +(define CoreC-45Unify-patternEnvTm (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-clearDefs e-5 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (CoreC-45Unify-case--patternEnvTm-7742 arg-2 arg-4 arg-3 arg-1 arg-0 e-5 e-6 (CoreC-45Unify-getVarsTm '() arg-4))))))))))))) +(define CoreC-45Unify-patternEnv (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-clearDefs e-5 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalArg arg-0 arg-2 e-6 eta-0)) arg-4 '() ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (CoreC-45Unify-case--patternEnv-7467 arg-2 arg-4 arg-3 arg-1 arg-0 e-5 e-6 e-7 (CoreC-45Unify-getVars arg-2 '() e-7))))))))))))))))) +(define CoreC-45Unify-occursCheck (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 ((CoreC-45Unify-getMetaNames arg-1 arg-6) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (CoreC-45Unify-case--occursCheck-8044 arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 (PreludeC-45Types-elem (cons (lambda (arg-7) (lambda (arg-8) (CoreC-45Name-u--C-61C-61_Eq_Name arg-7 arg-8))) (lambda (arg-7) (lambda (arg-8) (CoreC-45Name-u--C-47C-61_Eq_Name arg-7 arg-8)))) arg-5 e-5) ext-0))))))) +(define CoreC-45Unify-lower (lambda (ext-0) (let ((e-1 (cdr ext-0))) (cons 0 e-1)))) +(define CoreC-45Unify-isHoleApp (lambda (arg-1) (case (vector-ref arg-1 0) ((1) (let ((e-2 (vector-ref arg-1 2))) (case (vector-ref e-2 0) ((2) 1)(else 0))))(else 0)))) +(define CoreC-45Unify-isDefInvertible (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact (vector 9 arg-2) (let ((e-0 (vector-ref e-5 0))) e-0)) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (if (null? e-6) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 7 arg-1 (vector 9 arg-2)) ext-0) (let ((e-1 (unbox e-6))) (vector 1 (let ((e-14 (vector-ref e-1 14))) e-14)))))))))))))) +(define CoreC-45Unify-instantiate (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 ext-0) (let ((act-24 (CoreC-45ContextC-45Log-logTerm arg-3 arg-0 "unify.instantiate" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Instantiating in " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45Name-u--show_Show_Name u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Name-u--showPrec_Show_Name u--d u--x)))) arg-3))) arg-13 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 (let ((e-1 (vector-ref arg-10 1))) (case (vector-ref e-1 0) ((3) (let ((e-23 (vector-ref e-1 1))) (let ((e-22 (vector-ref e-1 2))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 3 arg-2 arg-4 arg-6 (vector 3 e-23 e-22) arg-12) ext-0))))(else (vector 1 0)))))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((u--ty (let ((e-2 (vector-ref arg-10 2))) e-2))) (let ((act-26 (CoreC-45ContextC-45Log-logTerm '() arg-0 "unify.instantiate" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Type: " (CoreC-45Name-u--show_Show_Name arg-7))) u--ty ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((act-27 (CoreC-45ContextC-45Log-log arg-0 "unify.instantiate" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "With locs: " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45TT-u--show_Show_C-40VarC-32C-36nsC-41 u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45TT-u--showPrec_Show_C-40VarC-32C-36nsC-41 u--d u--x)))) arg-11))) ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((act-28 (CoreC-45ContextC-45Log-log arg-0 "unify.instantiate" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "From vars: " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45Name-u--show_Show_Name u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Name-u--showPrec_Show_Name u--d u--x)))) arg-3))) ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((act-29 (let ((act-29 (unbox arg-0))) (vector 1 act-29)))) (case (vector-ref act-29 0) ((0) (let ((e-2 (vector-ref act-29 1))) (vector 0 e-2))) (else (let ((act-30 ((CoreC-45Unify-n--9118-8378-u--mkDef arg-2 arg-3 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-1 arg-0 '() arg-3 arg-11 '() arg-13 u--ty) ext-0))) (case (vector-ref act-30 0) ((0) (let ((e-2 (vector-ref act-30 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref act-30 1))) (let ((act-31 (CoreC-45ContextC-45Log-logTerm '() arg-0 "unify.instantiate" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Definition") e-11 ext-0))) (case (vector-ref act-31 0) ((0) (let ((e-2 (vector-ref act-31 1))) (vector 0 e-2))) (else (let ((u--simpleDef (cons (box arg-9) (CoreC-45Unify-n--9118-8375-u--isSimple arg-2 arg-3 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-1 arg-0 e-11)))) (let ((u--newdef (let ((e-0 (vector-ref arg-10 0))) (let ((e-1 (vector-ref arg-10 1))) (let ((e-2 (vector-ref arg-10 2))) (let ((e-3 (vector-ref arg-10 3))) (let ((e-4 (vector-ref arg-10 4))) (let ((e-28 (vector-ref arg-10 5))) (let ((e-27 (vector-ref arg-10 6))) (let ((e-26 (vector-ref arg-10 7))) (let ((e-25 (vector-ref arg-10 8))) (let ((e-24 (vector-ref arg-10 9))) (let ((e-23 (vector-ref arg-10 10))) (let ((e-22 (vector-ref arg-10 11))) (let ((e-21 (vector-ref arg-10 12))) (let ((e-13 (vector-ref arg-10 13))) (let ((e-14 (vector-ref arg-10 14))) (let ((e-15 (vector-ref arg-10 15))) (let ((e-16 (vector-ref arg-10 16))) (let ((e-18 (vector-ref arg-10 18))) (let ((e-19 (vector-ref arg-10 19))) (let ((e-20 (vector-ref arg-10 20))) (vector e-0 e-1 e-2 e-3 e-4 e-28 e-27 e-26 e-25 e-24 e-23 e-22 e-21 e-13 e-14 e-15 e-16 (vector 1 u--simpleDef '() (vector 1 0 e-11) (vector 1 0 e-11) '()) e-18 e-19 e-20))))))))))))))))))))))) (let ((act-32 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-2 (vector-ref eta-0 1))) (vector 0 e-2))) (else (vector 1 0)))) (lambda (eta-0) (CoreC-45Context-addDef arg-0 (vector 9 arg-8) u--newdef eta-0)) ext-0))) (case (vector-ref act-32 0) ((0) (let ((e-2 (vector-ref act-32 1))) (vector 0 e-2))) (else (CoreC-45UnifyState-removeHole arg-1 arg-8 ext-0)))))))))))))))))))))))))))))))))) +(define CoreC-45Unify-inTerm (lambda () (cons 1 1))) +(define CoreC-45Unify-inSearch (lambda () (cons 1 3))) +(define CoreC-45Unify-inMatch (lambda () (cons 1 2))) +(define CoreC-45Unify-inLHS (lambda () (cons 1 0))) +(define CoreC-45Unify-headsConvert (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (if (null? arg-6) (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-log arg-1 "unify.head" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Nothing to convert") eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (vector 1 1))))) (let ((e-1 (unbox arg-6))) (if (null? arg-7) (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-log arg-1 "unify.head" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Nothing to convert") eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (vector 1 1))))) (let ((e-3 (unbox arg-7))) (CoreC-45Unify-case--headsConvert-11025 arg-0 e-1 e-3 arg-5 arg-4 arg-3 arg-2 arg-1 (cons (DataC-45List-reverse e-1) (DataC-45List-reverse e-3))))))))) +(define CoreC-45Unify-giveUpConstraints (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (CoreC-45Core-traverse_ (lambda (eta-0) (lambda (eta-1) (CoreC-45Unify-n--22903-20566-u--constraintToHole arg-1 arg-0 eta-0 eta-1))) (LibrariesC-45DataC-45IntMap-toList (let ((e-1 (vector-ref e-5 1))) e-1)) ext-0))))))) +(define CoreC-45Unify-getVarsTm (lambda (arg-1 arg-2) (if (null? arg-2) (box '()) (let ((e-2 (car arg-2))) (let ((e-3 (cdr arg-2))) (case (vector-ref e-2 0) ((0) (let ((e-8 (vector-ref e-2 3))) (let ((sc2 (PreludeC-45Types-elem (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45Types-u--C-61C-61_Eq_Nat arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45Types-u--C-47C-61_Eq_Nat arg-4 arg-5)))) e-8 arg-1))) (cond ((equal? sc2 1) '()) (else (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Unify-getVarsTm (cons e-8 arg-1) e-3) (lambda (u--xsC-39) (PreludeC-45Types-u--pure_Applicative_Maybe (cons e-8 u--xsC-39)))))))))(else '()))))))) +(define CoreC-45Unify-getVars (lambda (arg-0 arg-1 arg-2) (if (null? arg-2) (box '()) (let ((e-2 (car arg-2))) (let ((e-3 (cdr arg-2))) (case (vector-ref e-2 0) ((1) (let ((e-5 (vector-ref e-2 1))) (let ((e-6 (vector-ref e-2 2))) (let ((e-7 (vector-ref e-2 3))) (case (vector-ref e-6 0) ((0) (let ((e-15 (vector-ref e-6 1))) (let ((e-16 (vector-ref e-6 2))) (if (null? e-7) (let ((sc4 (CoreC-45Unify-n--7719-7146-u--inArgs arg-0 e-16 e-15 e-5 e-3 arg-1 e-16 arg-1))) (cond ((equal? sc4 1) '()) (else (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Unify-getVars arg-0 (cons e-16 arg-1) e-3) (lambda (u--xsC-39) (PreludeC-45Types-u--pure_Applicative_Maybe (cons e-16 u--xsC-39))))))) '()))))(else '())))))) ((4) (let ((e-12 (vector-ref e-2 4))) (CoreC-45Unify-getVars arg-0 arg-1 (cons e-12 e-3))))(else '()))))))) (define CoreC-45Unify-getMetaNames (lambda (arg-1 arg-2) (let ((u--metas (CoreC-45TT-getMetas arg-2))) (CoreC-45Unify-chaseMetas arg-1 (LibrariesC-45DataC-45NameMap-keys u--metas) (LibrariesC-45DataC-45NameMap-empty))))) -(define CoreC-45Unify-getIVars (lambda (arg-2) (let ((sc0 arg-2)) (if (null? sc0) '() (let ((e-4 (car sc0))) (let ((e-5 (cdr sc0))) (cons e-4 (CoreC-45Unify-getIVars e-5)))))))) -(define CoreC-45Unify-getEtaType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((3) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((act-24 (CoreC-45Unify-getEtaType (cons e-2 arg-0) arg-1 arg-2 (cons e-3 arg-3) e-4 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 1))) (vector 1 (CoreC-45TT-shrinkTerm e-6 (vector 1 (vector 0 )))))) (else (vector 1 (vector 0 )))))))))))))) ((4) (let ((e-7 (vector-ref sc0 2))) (let ((act-24 ((CoreC-45GetType-getType arg-0 arg-1 arg-3 e-7) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Normalise-logGlue arg-0 arg-1 "unify.eta" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Function type") arg-3 e-5 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((CoreC-45Normalise-getNF arg-1 e-5) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc3 1))) (let ((sc4 e-10)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 3))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((2) (let ((e-11 (vector-ref sc5 4))) (let ((act-27 (let ((act-27 (unbox arg-1))) (vector 1 act-27)))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-15 (vector-ref sc6 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc6 1))) (let ((act-28 (CoreC-45Context-clearDefs e-15 ext-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-16 (vector-ref sc7 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc7 1))) (let ((act-29 (CoreC-45Normalise-u--quote_Quote_NF arg-1 arg-0 e-16 arg-3 e-11 ext-0))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-17 (vector-ref sc8 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc8 1))) (vector 1 (vector 1 e-17)))))))))))))))))))(else (vector 1 (vector 0 )))))))(else (vector 1 (vector 0 )))))))))))))))))))))(else (vector 1 (vector 0 ))))))) -(define CoreC-45Unify-getArgTypes (lambda (arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (let ((sc1 e-4)) (case (vector-ref sc1 0) ((2) (let ((e-10 (vector-ref sc1 4))) (lambda (clam-0) (let ((sc2 arg-3)) (if (null? sc2) (let ((sc3 arg-3)) (if (null? sc3) (vector 1 (vector 1 '())) (vector 1 (vector 0 )))) (let ((e-12 (car sc2))) (let ((e-13 (cdr sc2))) (let ((act-24 (let ((act-24 (((e-5 arg-1) e-12) clam-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) ((CoreC-45Unify-getArgTypes arg-1 e-6 e-13) clam-0)))))))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (vector 1 (vector 1 (cons e-10 e-1))))) (else (vector 1 (vector 0 )))))))))))))))))(else (lambda (clam-1) (let ((sc1 arg-3)) (if (null? sc1) (vector 1 (vector 1 '())) (vector 1 (vector 0 )))))))))))(else (lambda (clam-2) (let ((sc0 arg-3)) (if (null? sc0) (vector 1 (vector 1 '())) (vector 1 (vector 0 )))))))))) -(define CoreC-45Unify-forceMeta (lambda (arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 8 (CoreC-45TT-getLoc arg-3) arg-1 arg-3))(else (let ((e-0 (- arg-2 1))) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((3) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (vector 3 e-2 e-3 e-4 (CoreC-45Unify-forceMeta arg-1 e-0 e-5)))))))(else (vector 8 (CoreC-45TT-getLoc arg-3) arg-1 arg-3)))))))))) -(define CoreC-45Unify-dumpArg (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Context-clearDefs e-6 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-26 (CoreC-45ContextC-45Log-logTerm (PreludeC-45TypesC-45List-C-43C-43 e-1 arg-0) arg-1 "" 0 (lambda () "Term: ") e-5 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-8 (vector-ref sc3 1))) (vector 0 e-8))) (else (let ((act-27 ((CoreC-45Normalise-evalClosure arg-1 arg-0 e-7 (vector 0 e-1 e-2 e-3 e-4 e-5)) ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc4 1))) (CoreC-45Normalise-logNF arg-0 arg-1 "" 0 (lambda () " ") arg-2 e-9 ext-0))))))))))))))))))))))))))(else (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (CoreC-45Context-clearDefs e-5 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((CoreC-45Normalise-evalClosure arg-1 arg-0 e-6 arg-3) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (CoreC-45Normalise-logNF arg-0 arg-1 "" 0 (lambda () " ") arg-2 e-7 ext-0))))))))))))))))))))) -(define CoreC-45Unify-delayMeta (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 7 (CoreC-45TT-getLoc arg-4) arg-1 arg-3 arg-4))(else (let ((e-0 (- arg-2 1))) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((3) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (vector 3 e-2 e-3 e-4 (CoreC-45Unify-delayMeta (cons e-3 arg-0) arg-1 e-0 (CoreC-45TT-u--weaken_Weaken_Term arg-3) e-5)))))))(else (vector 7 (CoreC-45TT-getLoc arg-4) arg-1 arg-3 arg-4)))))))))) -(define CoreC-45Unify-convertErrorS (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (CoreC-45Unify-convertError arg-1 arg-2 arg-4 arg-5 arg-7 arg-6 ext-0)) (else (CoreC-45Unify-convertError arg-1 arg-2 arg-4 arg-5 arg-6 arg-7 ext-0)))))) -(define CoreC-45Unify-convertError (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (CoreC-45Context-clearDefs e-5 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (CoreC-45Normalise-u--quote_Quote_NF arg-2 arg-1 e-6 arg-4 arg-5 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (CoreC-45Normalise-u--quote_Quote_NF arg-2 arg-1 e-6 arg-4 arg-6 ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 1 arg-1 arg-3 arg-4 e-7 e-8) ext-0))))))))))))))))))))))) -(define CoreC-45Unify-constrain (lambda (arg-0) (vector 0 (cons arg-0 '()) 1 '() (vector 0 )))) -(define CoreC-45Unify-checkDots (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (CoreC-45UnifyState-getCurrentHoles arg-0 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45Core-traverse_ (lambda (eta-0) (CoreC-45Unify-n--25837-19639-u--checkConstraint arg-1 arg-0 eta-0)) (DataC-45List-reverse (let ((sc2 e-5)) (let ((e-11 (vector-ref sc2 6))) e-11))) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-27 (CoreC-45UnifyState-getCurrentHoles arg-0 ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-28 (let ((act-28 (unbox arg-0))) (vector 1 act-28)))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-29 (set-box! arg-0 (let ((sc5 e-9)) (let ((e-0 (vector-ref sc5 1))) (let ((e-1 (vector-ref sc5 2))) (let ((e-2 (vector-ref sc5 3))) (let ((e-3 (vector-ref sc5 4))) (let ((e-4 (vector-ref sc5 5))) (let ((e-13 (vector-ref sc5 7))) (let ((e-12 (vector-ref sc5 8))) (let ((e-11 (vector-ref sc5 9))) (let ((e-10 (vector-ref sc5 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 '() e-13 e-12 e-11 e-10)))))))))))))) (vector 1 act-29)))))))))))))))))))))))))) -(define CoreC-45Unify-checkArgsSame (lambda (arg-0 arg-1 arg-2 ext-0) (let ((sc0 arg-2)) (if (null? sc0) (vector 1 1) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Context-lookupDefExact (vector 9 e-2) (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((sc4 e-1)) (case (vector-ref sc4 0) ((1) (let ((e-9 (vector-ref sc4 2))) (let ((e-4 (vector-ref sc4 3))) (let ((sc5 e-9)) (if (null? sc5) (let ((sc6 e-4)) (case (vector-ref sc6 0) ((1) (let ((e-12 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (let ((sc7 e-12)) (cond ((equal? sc7 0) (let ((act-26 (CoreC-45Unify-n--25531-19381-u--anySame e-2 e-3 arg-1 arg-0 e-11 e-3 ext-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc8 1))) (let ((sc9 e-13)) (cond ((equal? sc9 0) (vector 1 0)) (else (CoreC-45Unify-checkArgsSame arg-0 arg-1 e-3 ext-0))))))))))(else (CoreC-45Unify-checkArgsSame arg-0 arg-1 e-3 ext-0)))))))(else (CoreC-45Unify-checkArgsSame arg-0 arg-1 e-3 ext-0)))) (CoreC-45Unify-checkArgsSame arg-0 arg-1 e-3 ext-0))))))(else (CoreC-45Unify-checkArgsSame arg-0 arg-1 e-3 ext-0))))))(else (CoreC-45Unify-checkArgsSame arg-0 arg-1 e-3 ext-0)))))))))))))))))))) -(define CoreC-45Unify-chaseMetas (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (if (null? sc0) (lambda (eta-0) (vector 1 (LibrariesC-45DataC-45NameMap-keys arg-2))) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (CoreC-45Unify-case--chaseMetas-5252 e-2 e-3 arg-2 arg-0 (LibrariesC-45DataC-45NameMap-lookup e-2 arg-2)))))))) +(define CoreC-45Unify-getIVars (lambda (arg-2) (if (null? arg-2) '() (let ((e-4 (car arg-2))) (let ((e-5 (cdr arg-2))) (cons e-4 (CoreC-45Unify-getIVars e-5))))))) +(define CoreC-45Unify-getArgTypes (lambda (arg-1 arg-2 arg-3) (case (vector-ref arg-2 0) ((0) (let ((e-4 (vector-ref arg-2 3))) (let ((e-5 (vector-ref arg-2 4))) (case (vector-ref e-4 0) ((2) (let ((e-10 (vector-ref e-4 4))) (lambda (clam-0) (if (null? arg-3) (if (null? arg-3) (vector 1 (box '())) (vector 1 '())) (let ((e-12 (car arg-3))) (let ((e-13 (cdr arg-3))) (let ((act-24 (let ((act-24 (((e-5 arg-1) e-12) clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) ((CoreC-45Unify-getArgTypes arg-1 e-6 e-13) clam-0))))))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (if (null? e-6) (vector 1 '()) (let ((e-1 (unbox e-6))) (vector 1 (box (cons e-10 e-1)))))))))))))))(else (lambda (clam-1) (if (null? arg-3) (vector 1 (box '())) (vector 1 '()))))))))(else (lambda (clam-2) (if (null? arg-3) (vector 1 (box '())) (vector 1 '()))))))) +(define CoreC-45Unify-forceMeta (lambda (arg-1 arg-2 arg-3) (cond ((equal? arg-2 0) (vector 8 (CoreC-45TT-getLoc arg-3) arg-1 arg-3))(else (let ((e-0 (- arg-2 1))) (case (vector-ref arg-3 0) ((3) (let ((e-2 (vector-ref arg-3 1))) (let ((e-3 (vector-ref arg-3 2))) (let ((e-4 (vector-ref arg-3 3))) (let ((e-5 (vector-ref arg-3 4))) (vector 3 e-2 e-3 e-4 (CoreC-45Unify-forceMeta arg-1 e-0 e-5)))))))(else (vector 8 (CoreC-45TT-getLoc arg-3) arg-1 arg-3)))))))) +(define CoreC-45Unify-dumpArg (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (case (vector-ref arg-3 0) ((0) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-3 (vector-ref arg-3 3))) (let ((e-4 (vector-ref arg-3 4))) (let ((e-5 (vector-ref arg-3 5))) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-clearDefs e-6 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-7 (vector-ref act-25 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-25 1))) (let ((act-26 (CoreC-45ContextC-45Log-logTerm (PreludeC-45TypesC-45List-C-43C-43 e-1 arg-0) arg-1 "unify" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))))))))))))) (lambda () "Term: ") e-5 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-8 (vector-ref act-26 1))) (vector 0 e-8))) (else (let ((act-27 ((CoreC-45Normalise-evalClosure arg-1 arg-0 e-7 (vector 0 e-1 e-2 e-3 e-4 e-5)) ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-9 (vector-ref act-27 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref act-27 1))) (CoreC-45Normalise-logNF arg-0 arg-1 "unify" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))))))))))))) (lambda () " ") arg-2 e-9 ext-0))))))))))))))))))))))(else (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-clearDefs e-5 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 ((CoreC-45Normalise-evalClosure arg-1 arg-0 e-6 arg-3) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (CoreC-45Normalise-logNF arg-0 arg-1 "unify" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))))))))))))) (lambda () " ") arg-2 e-7 ext-0))))))))))))))))) +(define CoreC-45Unify-delayMeta (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (cond ((equal? arg-2 0) (vector 7 (CoreC-45TT-getLoc arg-4) arg-1 arg-3 arg-4))(else (let ((e-0 (- arg-2 1))) (case (vector-ref arg-4 0) ((3) (let ((e-2 (vector-ref arg-4 1))) (let ((e-3 (vector-ref arg-4 2))) (let ((e-4 (vector-ref arg-4 3))) (let ((e-5 (vector-ref arg-4 4))) (vector 3 e-2 e-3 e-4 (CoreC-45Unify-delayMeta (cons e-3 arg-0) arg-1 e-0 (CoreC-45TT-u--weaken_Weaken_Term arg-3) e-5)))))))(else (vector 7 (CoreC-45TT-getLoc arg-4) arg-1 arg-3 arg-4)))))))) +(define CoreC-45Unify-convertErrorS (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (cond ((equal? arg-3 1) (CoreC-45Unify-convertError arg-1 arg-2 arg-4 arg-5 arg-7 arg-6 ext-0)) (else (CoreC-45Unify-convertError arg-1 arg-2 arg-4 arg-5 arg-6 arg-7 ext-0))))) +(define CoreC-45Unify-convertError (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-clearDefs e-5 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Normalise-u--quote_Quote_NF arg-2 arg-1 e-6 arg-4 arg-5 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (CoreC-45Normalise-u--quote_Quote_NF arg-2 arg-1 e-6 arg-4 arg-6 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 1 arg-1 arg-3 arg-4 e-7 e-8) ext-0))))))))))))))))))) +(define CoreC-45Unify-constrain (lambda (arg-0) (vector (cons arg-0 '()) 0 '() (vector 0 )))) +(define CoreC-45Unify-checkDots (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45UnifyState-getCurrentHoles arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45Core-traverse_ (lambda (eta-0) (CoreC-45Unify-n--23353-20968-u--checkConstraint arg-1 arg-0 eta-0)) (DataC-45List-reverse (let ((e-7 (vector-ref e-5 7))) e-7)) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((act-27 (CoreC-45UnifyState-getCurrentHoles arg-0 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((act-28 (let ((act-28 (unbox arg-0))) (vector 1 act-28)))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-28 1))) (let ((act-29 (set-box! arg-0 (let ((e-0 (vector-ref e-9 0))) (let ((e-1 (vector-ref e-9 1))) (let ((e-2 (vector-ref e-9 2))) (let ((e-3 (vector-ref e-9 3))) (let ((e-4 (vector-ref e-9 4))) (let ((e-16 (vector-ref e-9 5))) (let ((e-15 (vector-ref e-9 6))) (let ((e-13 (vector-ref e-9 8))) (let ((e-12 (vector-ref e-9 9))) (let ((e-10 (vector-ref e-9 10))) (let ((e-11 (vector-ref e-9 11))) (vector e-0 e-1 e-2 e-3 e-4 e-16 e-15 '() e-13 e-12 e-10 e-11))))))))))))))) (vector 1 act-29))))))))))))))))))))) +(define CoreC-45Unify-checkArgsSame (lambda (arg-0 arg-1 arg-2 ext-0) (if (null? arg-2) (vector 1 0) (let ((e-2 (car arg-2))) (let ((e-3 (cdr arg-2))) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-lookupDefExact (vector 9 e-2) (let ((e-0 (vector-ref e-5 0))) e-0) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref act-25 1))) (if (null? e-6) (CoreC-45Unify-checkArgsSame arg-0 arg-1 e-3 ext-0) (let ((e-1 (unbox e-6))) (case (vector-ref e-1 0) ((1) (let ((e-9 (vector-ref e-1 2))) (let ((e-4 (vector-ref e-1 3))) (if (null? e-9) (case (vector-ref e-4 0) ((1) (let ((e-12 (vector-ref e-4 1))) (let ((e-11 (vector-ref e-4 2))) (cond ((equal? e-12 0) (let ((act-26 (CoreC-45Unify-n--23038-20702-u--anySame e-2 e-3 arg-1 arg-0 e-11 e-3 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-13 (vector-ref act-26 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref act-26 1))) (cond ((equal? e-13 1) (vector 1 1)) (else (CoreC-45Unify-checkArgsSame arg-0 arg-1 e-3 ext-0))))))))(else (CoreC-45Unify-checkArgsSame arg-0 arg-1 e-3 ext-0))))))(else (CoreC-45Unify-checkArgsSame arg-0 arg-1 e-3 ext-0))) (CoreC-45Unify-checkArgsSame arg-0 arg-1 e-3 ext-0)))))(else (CoreC-45Unify-checkArgsSame arg-0 arg-1 e-3 ext-0)))))))))))))))))) +(define CoreC-45Unify-chaseMetas (lambda (arg-0 arg-1 arg-2) (if (null? arg-1) (lambda (eta-0) (vector 1 (LibrariesC-45DataC-45NameMap-keys arg-2))) (let ((e-2 (car arg-1))) (let ((e-3 (cdr arg-1))) (CoreC-45Unify-case--chaseMetas-6498 e-2 e-3 arg-2 arg-0 (LibrariesC-45DataC-45NameMap-lookup e-2 arg-2))))))) (define CoreC-45GetType-getType (lambda (arg-0 arg-1 arg-2 arg-3) (CoreC-45GetType-chk arg-0 arg-1 arg-2 arg-3))) -(define CoreC-45GetType-discharge (lambda (arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (vector 3 arg-1 arg-2 (vector 2 e-1 e-2 e-3 e-4) arg-5)))))) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (let ((e-9 (vector-ref sc0 4))) (vector 3 arg-1 arg-2 (vector 1 e-6 e-7 e-8 e-9) arg-5)))))) ((2) arg-4) ((3) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-19 (vector-ref sc0 4))) (vector 3 arg-1 arg-2 (vector 5 e-16 e-17 e-19) arg-5))))) ((4) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (let ((e-24 (vector-ref sc0 4))) (vector 3 arg-1 arg-2 (vector 4 e-21 e-22 e-23 e-24) arg-5)))))) (else arg-4))))) -(define CoreC-45GetType-chkMeta (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (if (null? sc0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (CoreC-45Normalise-glueBack arg-1 arg-0 e-5 arg-3 arg-4)))))))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 3))) (let ((e-4 (vector-ref sc1 4))) (lambda (clam-0) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((2) (let ((sc3 arg-5)) (if (null? sc3) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-5 (vector-ref sc4 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-1 arg-0 e-5 arg-3 arg-4 clam-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc5 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 39 arg-0 arg-2 arg-3 e-10) clam-0))))))))))) (let ((e-11 (car sc3))) (let ((e-12 (cdr sc3))) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-5 (vector-ref sc4 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 ((CoreC-45GetType-chk arg-0 arg-1 arg-3 e-11) clam-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 1))) (vector 0 e-10))) (else (let ((act-26 (((e-4 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) arg-3 e-11)) clam-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-13 (vector-ref sc6 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc6 1))) ((CoreC-45GetType-chkMeta arg-0 arg-1 arg-2 arg-3 e-13 e-12) clam-0))))))))))))))))))))(else (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-1 arg-0 e-5 arg-3 arg-4 clam-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 39 arg-0 arg-2 arg-3 e-6) clam-0))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-1 arg-0 e-5 arg-3 arg-4 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 39 arg-0 arg-2 arg-3 e-6) eta-0))))))))))))))))))) -(define CoreC-45GetType-chkConstant (lambda (arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 9 arg-1 (vector 14 ))) ((1) (vector 9 arg-1 (vector 15 ))) ((2) (vector 9 arg-1 (vector 16 ))) ((3) (vector 9 arg-1 (vector 17 ))) ((4) (vector 9 arg-1 (vector 18 ))) ((5) (vector 9 arg-1 (vector 19 ))) ((6) (vector 9 arg-1 (vector 20 ))) ((7) (vector 9 arg-1 (vector 21 ))) ((8) (vector 9 arg-1 (vector 22 ))) ((9) (vector 9 arg-1 (vector 23 ))) ((10) (vector 9 arg-1 (vector 24 ))) ((11) (vector 9 arg-1 (vector 25 ))) ((12) (vector 9 arg-1 (vector 26 ))) ((13) (vector 9 arg-1 (vector 27 )))(else (vector 11 arg-1)))))) +(define CoreC-45GetType-discharge (lambda (arg-1 arg-2 arg-3 arg-4 arg-5) (case (vector-ref arg-3 0) ((0) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-3 (vector-ref arg-3 3))) (let ((e-4 (vector-ref arg-3 4))) (vector 3 arg-1 arg-2 (vector 2 e-1 e-2 e-3 e-4) arg-5)))))) ((1) (let ((e-6 (vector-ref arg-3 1))) (let ((e-7 (vector-ref arg-3 2))) (let ((e-8 (vector-ref arg-3 3))) (let ((e-9 (vector-ref arg-3 4))) (vector 3 arg-1 arg-2 (vector 1 e-6 e-7 e-8 e-9) arg-5)))))) ((2) arg-4) ((3) (let ((e-16 (vector-ref arg-3 1))) (let ((e-17 (vector-ref arg-3 2))) (let ((e-19 (vector-ref arg-3 4))) (vector 3 arg-1 arg-2 (vector 5 e-16 e-17 e-19) arg-5))))) ((4) (let ((e-21 (vector-ref arg-3 1))) (let ((e-22 (vector-ref arg-3 2))) (let ((e-23 (vector-ref arg-3 3))) (let ((e-24 (vector-ref arg-3 4))) (vector 3 arg-1 arg-2 (vector 4 e-21 e-22 e-23 e-24) arg-5)))))) (else arg-4)))) +(define CoreC-45GetType-chkMeta (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (if (null? arg-5) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (CoreC-45Normalise-glueBack arg-1 arg-0 e-5 arg-3 arg-4))))))) (case (vector-ref arg-4 0) ((0) (let ((e-3 (vector-ref arg-4 3))) (let ((e-4 (vector-ref arg-4 4))) (lambda (clam-0) (case (vector-ref e-3 0) ((2) (if (null? arg-5) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-1 arg-0 e-5 arg-3 arg-4 clam-0))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 39 arg-0 arg-2 arg-3 e-10) clam-0))))))))) (let ((e-11 (car arg-5))) (let ((e-12 (cdr arg-5))) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45GetType-chk arg-0 arg-1 arg-3 e-11) clam-0))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((act-26 (((e-4 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) arg-3 e-11)) clam-0))) (case (vector-ref act-26 0) ((0) (let ((e-13 (vector-ref act-26 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref act-26 1))) ((CoreC-45GetType-chkMeta arg-0 arg-1 arg-2 arg-3 e-13 e-12) clam-0))))))))))))))))(else (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-1 arg-0 e-5 arg-3 arg-4 clam-0))) (case (vector-ref act-25 0) ((0) (let ((e-6 (vector-ref act-25 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-25 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 39 arg-0 arg-2 arg-3 e-6) clam-0)))))))))))))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-1 arg-0 e-5 arg-3 arg-4 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 39 arg-0 arg-2 arg-3 e-6) eta-0))))))))))))))) +(define CoreC-45GetType-chkConstant (lambda (arg-1 arg-2) (case (vector-ref arg-2 0) ((0) (vector 9 arg-1 (vector 14 ))) ((1) (vector 9 arg-1 (vector 15 ))) ((2) (vector 9 arg-1 (vector 16 ))) ((3) (vector 9 arg-1 (vector 17 ))) ((4) (vector 9 arg-1 (vector 18 ))) ((5) (vector 9 arg-1 (vector 19 ))) ((6) (vector 9 arg-1 (vector 20 ))) ((7) (vector 9 arg-1 (vector 21 ))) ((8) (vector 9 arg-1 (vector 22 ))) ((9) (vector 9 arg-1 (vector 23 ))) ((10) (vector 9 arg-1 (vector 24 ))) ((11) (vector 9 arg-1 (vector 25 ))) ((12) (vector 9 arg-1 (vector 26 ))) ((13) (vector 9 arg-1 (vector 27 )))(else (vector 11 arg-1))))) (define CoreC-45GetType-chkBinder (lambda (arg-0 arg-1 arg-2 arg-3) (CoreC-45GetType-chk arg-0 arg-1 arg-2 (CoreC-45TT-binderType arg-3)))) -(define CoreC-45GetType-chk (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-4 (vector-ref sc0 3))) (lambda (eta-0) (vector 1 (CoreC-45Normalise-gnf arg-0 arg-2 (CoreC-45TT-binderType (CoreC-45Env-getBinder (cons (lambda (u--n) (lambda (u--vars) (lambda (arg-5476) (CoreC-45TT-u--weaken_Weaken_Term arg-5476)))) (lambda (u--vars) (lambda (u--ns) (lambda (arg-5481) (lambda (arg-5483) (CoreC-45TT-u--weakenNs_Weaken_Term arg-5481 arg-5483)))))) arg-0 e-4 arg-2))))))) ((1) (let ((e-7 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Context-lookupTyExact e-9 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (vector 1 (CoreC-45Normalise-gnf arg-0 arg-2 (CoreC-45TT-embed e-1))))) (else (CoreC-45Context-undefinedName arg-1 e-7 e-9 eta-0)))))))))))))))))) ((2) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Context-lookupTyExact (vector 9 e-13) (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((act-26 ((CoreC-45Normalise-nf arg-1 arg-0 e-5 arg-2 (CoreC-45TT-embed e-1)) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) ((CoreC-45GetType-chkMeta arg-0 arg-1 e-11 arg-2 e-7 e-14) eta-0)))))))) (else (CoreC-45Context-undefinedName arg-1 e-11 e-12 eta-0)))))))))))))))))))) ((3) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((CoreC-45GetType-chkBinder arg-0 arg-1 arg-2 e-18) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((CoreC-45GetType-chk (cons e-17 arg-0) arg-1 (cons e-18 arg-2) e-19) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((CoreC-45Normalise-getTerm e-5) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((CoreC-45Normalise-getTerm e-6) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (CoreC-45Normalise-gnf arg-0 arg-2 (CoreC-45GetType-discharge e-16 e-17 e-18 e-7 e-8))))))))))))))))))))))))))))) ((4) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((CoreC-45GetType-chk arg-0 arg-1 arg-2 e-22) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((CoreC-45Normalise-getNF arg-1 e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 3))) (let ((e-4 (vector-ref sc3 4))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((2) (let ((act-26 (let ((act-26 (unbox arg-1))) (vector 1 act-26)))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-11 (vector-ref sc5 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc5 1))) (let ((act-27 ((CoreC-45GetType-chk arg-0 arg-1 arg-2 e-23) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-12 (vector-ref sc6 1))) (vector 0 e-12))) (else (let ((act-28 (((e-4 e-11) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) arg-2 e-23)) eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-13 (vector-ref sc7 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc7 1))) (vector 1 (CoreC-45Normalise-glueBack arg-1 arg-0 e-11 arg-2 e-13)))))))))))))))))(else (let ((act-26 ((CoreC-45Normalise-getTerm e-5) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 39 arg-0 e-21 arg-2 e-7) eta-0))))))))))))(else (let ((act-26 ((CoreC-45Normalise-getTerm e-5) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 39 arg-0 e-21 arg-2 e-7) eta-0)))))))))))))))))))))))) ((5) (let ((e-28 (vector-ref sc0 4))) (CoreC-45GetType-chk arg-0 arg-1 arg-2 e-28))) ((6) (let ((e-30 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (CoreC-45Normalise-gType e-30))))) ((7) (let ((e-34 (vector-ref sc0 1))) (let ((e-35 (vector-ref sc0 2))) (let ((e-37 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((CoreC-45GetType-chk arg-0 arg-1 arg-2 e-37) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((CoreC-45Normalise-getNF arg-1 e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (let ((act-26 (unbox arg-1))) (vector 1 act-26)))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (CoreC-45Normalise-glueBack arg-1 arg-0 e-7 arg-2 (vector 5 e-34 e-35 e-6))))))))))))))))))))))) ((8) (let ((e-39 (vector-ref sc0 1))) (let ((e-41 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((CoreC-45GetType-chk arg-0 arg-1 arg-2 e-41) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((CoreC-45Normalise-getNF arg-1 e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((5) (let ((e-3 (vector-ref sc3 3))) (let ((act-26 (let ((act-26 (unbox arg-1))) (vector 1 act-26)))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc4 1))) (vector 1 (CoreC-45Normalise-glueBack arg-1 arg-0 e-7 arg-2 e-3)))))))))(else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 e-39 "Not a delayed type") eta-0)))))))))))))))))) ((9) (let ((e-43 (vector-ref sc0 1))) (let ((e-44 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (CoreC-45Normalise-gnf arg-0 arg-2 (CoreC-45GetType-chkConstant e-43 e-44))))))) ((11) (let ((e-46 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (CoreC-45Normalise-gType e-46))))) (else (let ((e-48 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (CoreC-45Normalise-gErased e-48))))))))) -(define CoreC-45Metadata-n--11031-10877-u--toPat (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-8) (let ((sc0 arg-8)) (if (null? sc0) '() (let ((e-3 (car sc0))) (let ((e-4 (cdr sc0))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((e-9 (vector-ref sc1 3))) (let ((e-10 (vector-ref sc1 4))) (cons (vector 3 e-7 e-8 e-9 e-10) (CoreC-45Metadata-n--11031-10877-u--toPat arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-4)))))))(else (cons e-3 (CoreC-45Metadata-n--11031-10877-u--toPat arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-4))))))))))) -(define CoreC-45Metadata-n--11695-11499-u--nfType (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (lambda (clam-0) (let ((sc1 e-3)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (let ((sc2 e-7)) (let ((e-10 (car sc2))) (let ((e-11 (cdr sc2))) (let ((act-24 (CoreC-45Normalise-normaliseArgHoles arg-0 '() arg-2 '() e-11 clam-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (vector 1 (cons e-2 (cons e-6 (cons e-10 e-5))))))))))))))))))))) -(define CoreC-45Metadata-n--11874-11674-u--fullTy (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (lambda (clam-0) (let ((sc1 e-3)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (let ((sc2 e-7)) (let ((e-10 (car sc2))) (let ((e-11 (cdr sc2))) (let ((act-24 (CoreC-45Context-u--full_HasNames_Name arg-6 e-6 clam-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-6 e-11 clam-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (cons e-2 (cons e-5 (cons e-10 e-8)))))))))))))))))))))))))) -(define CoreC-45Metadata-n--11874-11673-u--fullLHS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((sc0 arg-7)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-3)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (let ((act-24 (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-6 e-7 ext-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (cons e-2 (cons e-6 e-5)))))))))))))))) -(define CoreC-45Metadata-n--11874-11675-u--fullHLHS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((sc0 arg-7)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((act-24 (CoreC-45Context-u--full_HasNames_Name arg-6 e-2 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-6 e-3 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (cons e-5 e-6))))))))))))))))) -(define CoreC-45Metadata-n--11874-11676-u--fullDecls (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((sc0 arg-7)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((act-24 (CoreC-45Context-u--full_HasNames_Name arg-6 e-3 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (cons e-2 e-5)))))))))))) -(define CoreC-45Metadata-u--toBuf_TTC_TTMFile (lambda (arg-0 arg-1 ext-0) (let ((act-24 ((LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-0 "TTM") ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-0 (let ((sc1 arg-1)) (let ((e-0 (car sc1))) e-0)) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (CoreC-45Metadata-u--toBuf_TTC_Metadata arg-0 (let ((sc2 arg-1)) (let ((e-1 (cdr sc2))) e-1)) ext-0))))))))))) -(define CoreC-45Metadata-u--toBuf_TTC_Metadata (lambda (arg-0 arg-1 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10258) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10259) (lambda (arg-10260) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-10259 arg-10260))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-10259 eta-2)))) (cons (lambda (arg-10259) (lambda (arg-10260) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10263) (lambda (arg-10264) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10263 arg-10264 eta-4)))) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10263 eta-4)))) (cons (lambda (arg-10263) (lambda (arg-10264) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10263 arg-10264 eta-4)))) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10263 eta-4))))) arg-10261 arg-10262 eta-3)))) (lambda (arg-10261) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10262) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10262 arg-10263 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4)))) (cons (lambda (arg-10262) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10262 arg-10263 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4))))) arg-10261 eta-3)))) (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10263) (lambda (arg-10264) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10263 arg-10264 eta-4)))) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10263 eta-4)))) (cons (lambda (arg-10263) (lambda (arg-10264) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10263 arg-10264 eta-4)))) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10263 eta-4))))) arg-10261 arg-10262 eta-3)))) (lambda (arg-10261) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10262) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10262 arg-10263 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4)))) (cons (lambda (arg-10262) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10262 arg-10263 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4))))) arg-10261 eta-3))))) arg-10259 arg-10260 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10260) (lambda (arg-10261) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10262) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10262 arg-10263 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4)))) (cons (lambda (arg-10262) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10262 arg-10263 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4))))) arg-10260 arg-10261 eta-3)))) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10260 eta-3)))) (cons (lambda (arg-10260) (lambda (arg-10261) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10262) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10262 arg-10263 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4)))) (cons (lambda (arg-10262) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10262 arg-10263 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4))))) arg-10260 arg-10261 eta-3)))) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10260 eta-3))))) arg-10259 eta-2))))) arg-10256 arg-10258 eta-1)))) (lambda (arg-10258) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10259) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-10256 arg-10259))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-10259 eta-2)))) (cons (lambda (arg-10256) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10260) (lambda (arg-10261) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10262) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10262 arg-10263 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4)))) (cons (lambda (arg-10262) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10262 arg-10263 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4))))) arg-10260 arg-10261 eta-3)))) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10260 eta-3)))) (cons (lambda (arg-10260) (lambda (arg-10261) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10262) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10262 arg-10263 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4)))) (cons (lambda (arg-10262) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10262 arg-10263 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4))))) arg-10260 arg-10261 eta-3)))) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10260 eta-3))))) arg-10256 arg-10259 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10256 arg-10260 eta-3)))) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10261 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10256) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10261 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10260 eta-3)))) (cons (lambda (arg-10256) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10256 arg-10260 eta-3)))) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10261 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10256) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10261 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10260 eta-3))))) arg-10259 eta-2))))) arg-10258 eta-1)))) (cons (lambda (arg-10256) (lambda (arg-10258) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10259) (lambda (arg-10260) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-10259 arg-10260))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-10259 eta-2)))) (cons (lambda (arg-10259) (lambda (arg-10260) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-10259 arg-10260))) (lambda (arg-10259) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-10259 eta-2))))) arg-10256 arg-10258 eta-1)))) (lambda (arg-10258) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10259) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-10256 arg-10259))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-10259 eta-2)))) (cons (lambda (arg-10256) (lambda (arg-10259) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-10256 arg-10259))) (lambda (arg-10259) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-10259 eta-2))))) arg-10258 eta-1))))) arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10259) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-10256 arg-10259))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-10259 eta-2)))) (cons (lambda (arg-10256) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10260) (lambda (arg-10261) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10262) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10262 arg-10263 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4)))) (cons (lambda (arg-10262) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10262 arg-10263 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4))))) arg-10260 arg-10261 eta-3)))) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10260 eta-3)))) (cons (lambda (arg-10260) (lambda (arg-10261) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10262) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10262 arg-10263 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4)))) (cons (lambda (arg-10262) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10262 arg-10263 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4))))) arg-10260 arg-10261 eta-3)))) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10260 eta-3))))) arg-10256 arg-10259 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10256 arg-10260 eta-3)))) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10261 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10256) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10261 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10260 eta-3)))) (cons (lambda (arg-10256) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10256 arg-10260 eta-3)))) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10261 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10256) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10261 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10260 eta-3))))) arg-10259 eta-2))))) arg-10255 arg-10257 eta-1)))) (lambda (arg-10259) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10255) (lambda (arg-10257) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-10255 arg-10257))) (lambda (arg-10260) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-10260 eta-2)))) (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10256 arg-10260 eta-3)))) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10261 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10256) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10261 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10260 eta-3)))) (cons (lambda (arg-10256) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10256 arg-10260 eta-3)))) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10261 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10256) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10261 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10260 eta-3))))) arg-10255 arg-10257 eta-2)))) (lambda (arg-10260) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10261 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10256) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10261 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10255 arg-10257 eta-3)))) (lambda (arg-10261) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10255 arg-10257 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4)))) (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10255 arg-10257 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4))))) arg-10261 eta-3)))) (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10261 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10256) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10261 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10255 arg-10257 eta-3)))) (lambda (arg-10261) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10255 arg-10257 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4)))) (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10255 arg-10257 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4))))) arg-10261 eta-3))))) arg-10260 eta-2))))) arg-10259 eta-1)))) (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10259) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-10256 arg-10259))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-10259 eta-2)))) (cons (lambda (arg-10256) (lambda (arg-10259) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-10256 arg-10259))) (lambda (arg-10259) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-10259 eta-2))))) arg-10255 arg-10257 eta-1)))) (lambda (arg-10259) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10255) (lambda (arg-10257) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-10255 arg-10257))) (lambda (arg-10260) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-10260 eta-2)))) (cons (lambda (arg-10255) (lambda (arg-10257) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-10255 arg-10257))) (lambda (arg-10260) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-10260 eta-2))))) arg-10259 eta-1))))) arg-10258 eta-0)))) arg-0 (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) e-0)) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10258) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10259) (lambda (arg-10260) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-10259 arg-10260))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-10259 eta-2)))) (cons (lambda (arg-10259) (lambda (arg-10260) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10263) (lambda (arg-10264) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10263 arg-10264 eta-4)))) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10263 eta-4)))) (cons (lambda (arg-10263) (lambda (arg-10264) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10263 arg-10264 eta-4)))) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10263 eta-4))))) arg-10261 arg-10262 eta-3)))) (lambda (arg-10261) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10262) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10262 arg-10263 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4)))) (cons (lambda (arg-10262) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10262 arg-10263 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4))))) arg-10261 eta-3)))) (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10263) (lambda (arg-10264) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10263 arg-10264 eta-4)))) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10263 eta-4)))) (cons (lambda (arg-10263) (lambda (arg-10264) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10263 arg-10264 eta-4)))) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10263 eta-4))))) arg-10261 arg-10262 eta-3)))) (lambda (arg-10261) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10262) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10262 arg-10263 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4)))) (cons (lambda (arg-10262) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10262 arg-10263 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4))))) arg-10261 eta-3))))) arg-10259 arg-10260 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10260) (lambda (arg-10261) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10262) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10262 arg-10263 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4)))) (cons (lambda (arg-10262) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10262 arg-10263 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4))))) arg-10260 arg-10261 eta-3)))) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10260 eta-3)))) (cons (lambda (arg-10260) (lambda (arg-10261) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10262) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10262 arg-10263 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4)))) (cons (lambda (arg-10262) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10262 arg-10263 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4))))) arg-10260 arg-10261 eta-3)))) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10260 eta-3))))) arg-10259 eta-2))))) arg-10256 arg-10258 eta-1)))) (lambda (arg-10258) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10259) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-10256 arg-10259))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-10259 eta-2)))) (cons (lambda (arg-10256) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10260) (lambda (arg-10261) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10262) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10262 arg-10263 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4)))) (cons (lambda (arg-10262) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10262 arg-10263 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4))))) arg-10260 arg-10261 eta-3)))) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10260 eta-3)))) (cons (lambda (arg-10260) (lambda (arg-10261) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10262) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10262 arg-10263 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4)))) (cons (lambda (arg-10262) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10262 arg-10263 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4))))) arg-10260 arg-10261 eta-3)))) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10260 eta-3))))) arg-10256 arg-10259 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10256 arg-10260 eta-3)))) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10261 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10256) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10261 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10260 eta-3)))) (cons (lambda (arg-10256) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10256 arg-10260 eta-3)))) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10261 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10256) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10261 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10260 eta-3))))) arg-10259 eta-2))))) arg-10258 eta-1)))) (cons (lambda (arg-10256) (lambda (arg-10258) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10259) (lambda (arg-10260) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_Name arg-10259 arg-10260 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10259 eta-2)))) (cons (lambda (arg-10259) (lambda (arg-10260) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10261) (lambda (arg-10262) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-10261 arg-10262))) (lambda (arg-10261) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-10261 eta-3)))) (cons (lambda (arg-10261) (lambda (arg-10262) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-10261 arg-10262))) (lambda (arg-10261) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-10261 eta-3))))) arg-10259 arg-10260 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10260) (lambda (arg-10261) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-10260 arg-10261))) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-10260 eta-3)))) (cons (lambda (arg-10260) (lambda (arg-10261) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-10260 arg-10261))) (lambda (arg-10260) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-10260 eta-3))))) arg-10259 eta-2))))) arg-10256 arg-10258 eta-1)))) (lambda (arg-10258) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10259) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_Name arg-10256 arg-10259 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10259 eta-2)))) (cons (lambda (arg-10256) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10260) (lambda (arg-10261) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-10260 arg-10261))) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-10260 eta-3)))) (cons (lambda (arg-10260) (lambda (arg-10261) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-10260 arg-10261))) (lambda (arg-10260) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-10260 eta-3))))) arg-10256 arg-10259 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10260) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-10256 arg-10260))) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-10260 eta-3)))) (cons (lambda (arg-10256) (lambda (arg-10260) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-10256 arg-10260))) (lambda (arg-10260) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-10260 eta-3))))) arg-10259 eta-2))))) arg-10258 eta-1))))) arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10259) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-10256 arg-10259))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-10259 eta-2)))) (cons (lambda (arg-10256) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10260) (lambda (arg-10261) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10262) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10262 arg-10263 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4)))) (cons (lambda (arg-10262) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10262 arg-10263 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4))))) arg-10260 arg-10261 eta-3)))) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10260 eta-3)))) (cons (lambda (arg-10260) (lambda (arg-10261) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10262) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10262 arg-10263 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4)))) (cons (lambda (arg-10262) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10262 arg-10263 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4))))) arg-10260 arg-10261 eta-3)))) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10260 eta-3))))) arg-10256 arg-10259 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10256 arg-10260 eta-3)))) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10261 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10256) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10261 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10260 eta-3)))) (cons (lambda (arg-10256) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10256 arg-10260 eta-3)))) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10261 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10256) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10261 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10260 eta-3))))) arg-10259 eta-2))))) arg-10255 arg-10257 eta-1)))) (lambda (arg-10259) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10255) (lambda (arg-10257) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-10255 arg-10257))) (lambda (arg-10260) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-10260 eta-2)))) (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10256 arg-10260 eta-3)))) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10261 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10256) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10261 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10260 eta-3)))) (cons (lambda (arg-10256) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10256 arg-10260 eta-3)))) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10261 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10256) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10261 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10260 eta-3))))) arg-10255 arg-10257 eta-2)))) (lambda (arg-10260) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10261 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10256) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10261 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10255 arg-10257 eta-3)))) (lambda (arg-10261) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10255 arg-10257 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4)))) (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10255 arg-10257 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4))))) arg-10261 eta-3)))) (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10261 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10256) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10261 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10255 arg-10257 eta-3)))) (lambda (arg-10261) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10255 arg-10257 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4)))) (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10255 arg-10257 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4))))) arg-10261 eta-3))))) arg-10260 eta-2))))) arg-10259 eta-1)))) (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10259) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_Name arg-10256 arg-10259 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10259 eta-2)))) (cons (lambda (arg-10256) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10260) (lambda (arg-10261) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-10260 arg-10261))) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-10260 eta-3)))) (cons (lambda (arg-10260) (lambda (arg-10261) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-10260 arg-10261))) (lambda (arg-10260) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-10260 eta-3))))) arg-10256 arg-10259 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10260) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-10256 arg-10260))) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-10260 eta-3)))) (cons (lambda (arg-10256) (lambda (arg-10260) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-10256 arg-10260))) (lambda (arg-10260) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-10260 eta-3))))) arg-10259 eta-2))))) arg-10255 arg-10257 eta-1)))) (lambda (arg-10259) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_Name arg-10255 arg-10257 eta-2)))) (lambda (arg-10260) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10260 eta-2)))) (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10260) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-10256 arg-10260))) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-10260 eta-3)))) (cons (lambda (arg-10256) (lambda (arg-10260) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-10256 arg-10260))) (lambda (arg-10260) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-10260 eta-3))))) arg-10255 arg-10257 eta-2)))) (lambda (arg-10260) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10255) (lambda (arg-10257) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-10255 arg-10257))) (lambda (arg-10261) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-10261 eta-3)))) (cons (lambda (arg-10255) (lambda (arg-10257) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-10255 arg-10257))) (lambda (arg-10261) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-10261 eta-3))))) arg-10260 eta-2))))) arg-10259 eta-1))))) arg-10258 eta-0)))) arg-0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 2))) e-1)) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10258) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10259) (lambda (arg-10260) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-10259 arg-10260))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-10259 eta-2)))) (cons (lambda (arg-10259) (lambda (arg-10260) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10263) (lambda (arg-10264) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10263 arg-10264 eta-4)))) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10263 eta-4)))) (cons (lambda (arg-10263) (lambda (arg-10264) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10263 arg-10264 eta-4)))) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10263 eta-4))))) arg-10261 arg-10262 eta-3)))) (lambda (arg-10261) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10262) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10262 arg-10263 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4)))) (cons (lambda (arg-10262) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10262 arg-10263 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4))))) arg-10261 eta-3)))) (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10263) (lambda (arg-10264) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10263 arg-10264 eta-4)))) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10263 eta-4)))) (cons (lambda (arg-10263) (lambda (arg-10264) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10263 arg-10264 eta-4)))) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10263 eta-4))))) arg-10261 arg-10262 eta-3)))) (lambda (arg-10261) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10262) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10262 arg-10263 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4)))) (cons (lambda (arg-10262) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10262 arg-10263 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4))))) arg-10261 eta-3))))) arg-10259 arg-10260 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10260) (lambda (arg-10261) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10262) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10262 arg-10263 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4)))) (cons (lambda (arg-10262) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10262 arg-10263 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4))))) arg-10260 arg-10261 eta-3)))) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10260 eta-3)))) (cons (lambda (arg-10260) (lambda (arg-10261) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10262) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10262 arg-10263 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4)))) (cons (lambda (arg-10262) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10262 arg-10263 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4))))) arg-10260 arg-10261 eta-3)))) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10260 eta-3))))) arg-10259 eta-2))))) arg-10256 arg-10258 eta-1)))) (lambda (arg-10258) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10259) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-10256 arg-10259))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-10259 eta-2)))) (cons (lambda (arg-10256) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10260) (lambda (arg-10261) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10262) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10262 arg-10263 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4)))) (cons (lambda (arg-10262) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10262 arg-10263 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4))))) arg-10260 arg-10261 eta-3)))) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10260 eta-3)))) (cons (lambda (arg-10260) (lambda (arg-10261) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10262) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10262 arg-10263 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4)))) (cons (lambda (arg-10262) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10262 arg-10263 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4))))) arg-10260 arg-10261 eta-3)))) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10260 eta-3))))) arg-10256 arg-10259 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10256 arg-10260 eta-3)))) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10261 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10256) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10261 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10260 eta-3)))) (cons (lambda (arg-10256) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10256 arg-10260 eta-3)))) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10261 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10256) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10261 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10260 eta-3))))) arg-10259 eta-2))))) arg-10258 eta-1)))) (cons (lambda (arg-10256) (lambda (arg-10258) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10259) (lambda (arg-10260) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_Name arg-10259 arg-10260 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10259 eta-2)))) (cons (lambda (arg-10259) (lambda (arg-10260) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10261) (lambda (arg-10262) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-10261 arg-10262))) (lambda (arg-10261) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-10261 eta-3)))) (cons (lambda (arg-10261) (lambda (arg-10262) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-10261 arg-10262))) (lambda (arg-10261) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-10261 eta-3))))) arg-10259 arg-10260 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10260) (lambda (arg-10261) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-10260 arg-10261))) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-10260 eta-3)))) (cons (lambda (arg-10260) (lambda (arg-10261) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-10260 arg-10261))) (lambda (arg-10260) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-10260 eta-3))))) arg-10259 eta-2))))) arg-10256 arg-10258 eta-1)))) (lambda (arg-10258) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10259) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_Name arg-10256 arg-10259 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10259 eta-2)))) (cons (lambda (arg-10256) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10260) (lambda (arg-10261) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-10260 arg-10261))) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-10260 eta-3)))) (cons (lambda (arg-10260) (lambda (arg-10261) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-10260 arg-10261))) (lambda (arg-10260) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-10260 eta-3))))) arg-10256 arg-10259 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10260) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-10256 arg-10260))) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-10260 eta-3)))) (cons (lambda (arg-10256) (lambda (arg-10260) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-10256 arg-10260))) (lambda (arg-10260) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-10260 eta-3))))) arg-10259 eta-2))))) arg-10258 eta-1))))) arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10259) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-10256 arg-10259))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-10259 eta-2)))) (cons (lambda (arg-10256) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10260) (lambda (arg-10261) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10262) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10262 arg-10263 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4)))) (cons (lambda (arg-10262) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10262 arg-10263 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4))))) arg-10260 arg-10261 eta-3)))) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10260 eta-3)))) (cons (lambda (arg-10260) (lambda (arg-10261) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10262) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10262 arg-10263 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4)))) (cons (lambda (arg-10262) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10262 arg-10263 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4))))) arg-10260 arg-10261 eta-3)))) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10260 eta-3))))) arg-10256 arg-10259 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10256 arg-10260 eta-3)))) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10261 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10256) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10261 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10260 eta-3)))) (cons (lambda (arg-10256) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10256 arg-10260 eta-3)))) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10261 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10256) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10261 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10260 eta-3))))) arg-10259 eta-2))))) arg-10255 arg-10257 eta-1)))) (lambda (arg-10259) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10255) (lambda (arg-10257) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-10255 arg-10257))) (lambda (arg-10260) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-10260 eta-2)))) (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10256 arg-10260 eta-3)))) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10261 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10256) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10261 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10260 eta-3)))) (cons (lambda (arg-10256) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10256 arg-10260 eta-3)))) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10261 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10256) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10261 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10260 eta-3))))) arg-10255 arg-10257 eta-2)))) (lambda (arg-10260) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10261 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10256) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10261 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10255 arg-10257 eta-3)))) (lambda (arg-10261) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10255 arg-10257 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4)))) (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10255 arg-10257 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4))))) arg-10261 eta-3)))) (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10261 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10256) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10261 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10255 arg-10257 eta-3)))) (lambda (arg-10261) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10255 arg-10257 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4)))) (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10255 arg-10257 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4))))) arg-10261 eta-3))))) arg-10260 eta-2))))) arg-10259 eta-1)))) (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10259) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_Name arg-10256 arg-10259 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10259 eta-2)))) (cons (lambda (arg-10256) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10260) (lambda (arg-10261) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-10260 arg-10261))) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-10260 eta-3)))) (cons (lambda (arg-10260) (lambda (arg-10261) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-10260 arg-10261))) (lambda (arg-10260) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-10260 eta-3))))) arg-10256 arg-10259 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10260) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-10256 arg-10260))) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-10260 eta-3)))) (cons (lambda (arg-10256) (lambda (arg-10260) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-10256 arg-10260))) (lambda (arg-10260) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-10260 eta-3))))) arg-10259 eta-2))))) arg-10255 arg-10257 eta-1)))) (lambda (arg-10259) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_Name arg-10255 arg-10257 eta-2)))) (lambda (arg-10260) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10260 eta-2)))) (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10260) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-10256 arg-10260))) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-10260 eta-3)))) (cons (lambda (arg-10256) (lambda (arg-10260) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-10256 arg-10260))) (lambda (arg-10260) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-10260 eta-3))))) arg-10255 arg-10257 eta-2)))) (lambda (arg-10260) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10255) (lambda (arg-10257) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-10255 arg-10257))) (lambda (arg-10261) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-10261 eta-3)))) (cons (lambda (arg-10255) (lambda (arg-10257) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-10255 arg-10257))) (lambda (arg-10261) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-10261 eta-3))))) arg-10260 eta-2))))) arg-10259 eta-1))))) arg-10258 eta-0)))) arg-0 (let ((sc2 arg-1)) (let ((e-2 (vector-ref sc2 3))) e-2)) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-27 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10258) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_Name arg-10256 arg-10258 eta-1)))) (lambda (arg-10258) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10258 eta-1)))) (cons (lambda (arg-10256) (lambda (arg-10258) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-10256 arg-10258))) (lambda (arg-10258) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-10258 eta-1))))) arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_Name arg-10255 arg-10257 eta-1)))) (lambda (arg-10259) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10259 eta-1)))) (cons (lambda (arg-10255) (lambda (arg-10257) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-10255 arg-10257))) (lambda (arg-10259) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-10259 eta-1))))) arg-10258 eta-0)))) arg-0 (let ((sc3 arg-1)) (let ((e-4 (vector-ref sc3 5))) e-4)) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40PosMapC-32C-36aC-41 (cons (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10258) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10259) (lambda (arg-10260) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-10259 arg-10260))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-10259 eta-2)))) (cons (lambda (arg-10259) (lambda (arg-10260) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10263) (lambda (arg-10264) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10263 arg-10264 eta-4)))) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10263 eta-4)))) (cons (lambda (arg-10263) (lambda (arg-10264) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10263 arg-10264 eta-4)))) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10263 eta-4))))) arg-10261 arg-10262 eta-3)))) (lambda (arg-10261) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10262) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10262 arg-10263 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4)))) (cons (lambda (arg-10262) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10262 arg-10263 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4))))) arg-10261 eta-3)))) (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10263) (lambda (arg-10264) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10263 arg-10264 eta-4)))) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10263 eta-4)))) (cons (lambda (arg-10263) (lambda (arg-10264) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10263 arg-10264 eta-4)))) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10263 eta-4))))) arg-10261 arg-10262 eta-3)))) (lambda (arg-10261) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10262) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10262 arg-10263 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4)))) (cons (lambda (arg-10262) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10262 arg-10263 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4))))) arg-10261 eta-3))))) arg-10259 arg-10260 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10260) (lambda (arg-10261) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10262) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10262 arg-10263 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4)))) (cons (lambda (arg-10262) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10262 arg-10263 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4))))) arg-10260 arg-10261 eta-3)))) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10260 eta-3)))) (cons (lambda (arg-10260) (lambda (arg-10261) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10262) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10262 arg-10263 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4)))) (cons (lambda (arg-10262) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10262 arg-10263 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4))))) arg-10260 arg-10261 eta-3)))) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10260 eta-3))))) arg-10259 eta-2))))) arg-10256 arg-10258 eta-1)))) (lambda (arg-10258) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10259) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-10256 arg-10259))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-10259 eta-2)))) (cons (lambda (arg-10256) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10260) (lambda (arg-10261) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10262) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10262 arg-10263 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4)))) (cons (lambda (arg-10262) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10262 arg-10263 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4))))) arg-10260 arg-10261 eta-3)))) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10260 eta-3)))) (cons (lambda (arg-10260) (lambda (arg-10261) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10262) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10262 arg-10263 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4)))) (cons (lambda (arg-10262) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10262 arg-10263 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4))))) arg-10260 arg-10261 eta-3)))) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10260 eta-3))))) arg-10256 arg-10259 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10256 arg-10260 eta-3)))) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10261 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10256) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10261 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10260 eta-3)))) (cons (lambda (arg-10256) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10256 arg-10260 eta-3)))) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10261 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10256) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10261 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10260 eta-3))))) arg-10259 eta-2))))) arg-10258 eta-1)))) (cons (lambda (arg-10256) (lambda (arg-10258) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_Name arg-10256 arg-10258 eta-1)))) (lambda (arg-10258) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10258 eta-1))))) arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10259) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-10256 arg-10259))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-10259 eta-2)))) (cons (lambda (arg-10256) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10260) (lambda (arg-10261) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10262) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10262 arg-10263 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4)))) (cons (lambda (arg-10262) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10262 arg-10263 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4))))) arg-10260 arg-10261 eta-3)))) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10260 eta-3)))) (cons (lambda (arg-10260) (lambda (arg-10261) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10262) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10262 arg-10263 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4)))) (cons (lambda (arg-10262) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10262 arg-10263 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4))))) arg-10260 arg-10261 eta-3)))) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10260 eta-3))))) arg-10256 arg-10259 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10256 arg-10260 eta-3)))) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10261 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10256) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10261 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10260 eta-3)))) (cons (lambda (arg-10256) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10256 arg-10260 eta-3)))) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10261 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10256) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10261 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10260 eta-3))))) arg-10259 eta-2))))) arg-10255 arg-10257 eta-1)))) (lambda (arg-10259) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10255) (lambda (arg-10257) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-10255 arg-10257))) (lambda (arg-10260) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-10260 eta-2)))) (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10256 arg-10260 eta-3)))) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10261 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10256) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10261 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10260 eta-3)))) (cons (lambda (arg-10256) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10256 arg-10260 eta-3)))) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10261 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10256) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10261 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10260 eta-3))))) arg-10255 arg-10257 eta-2)))) (lambda (arg-10260) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10261 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10256) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10261 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10255 arg-10257 eta-3)))) (lambda (arg-10261) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10255 arg-10257 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4)))) (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10255 arg-10257 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4))))) arg-10261 eta-3)))) (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10261 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10256) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10261 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10255 arg-10257 eta-3)))) (lambda (arg-10261) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10255 arg-10257 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4)))) (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10255 arg-10257 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4))))) arg-10261 eta-3))))) arg-10260 eta-2))))) arg-10259 eta-1)))) (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_Name arg-10255 arg-10257 eta-1)))) (lambda (arg-10259) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10259 eta-1))))) arg-10258 eta-0)))) (lambda (eta-0) (LibrariesC-45DataC-45PosMap-u--measure_Measure_C-40C-124C-40C-40BuiltinC-46PairC-32NonEmptyFCC-41C-32C-36aC-41C-44C-40C-40BuiltinC-46MkPairC-32NonEmptyFCC-41C-32C-36aC-41C-124C-41 eta-0))) arg-0 (let ((sc4 arg-1)) (let ((e-9 (vector-ref sc4 6))) e-9)) ext-0))))))))))))))))))) -(define CoreC-45Metadata-u--show_Show_Metadata (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (PreludeC-45TypesC-45String-C-43C-43 "Metadata:\u000a" (PreludeC-45TypesC-45String-C-43C-43 " lhsApps: " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_String x-1)) (lambda (u--d) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_String u--d x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (u--d) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int u--d x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (u--d) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int u--d x-3))))) x-2)) (lambda (u--d) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3))))) u--d x-2)))) (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (u--d) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int u--d x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (u--d) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int u--d x-3))))) x-2)) (lambda (u--d) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3))))) u--d x-2))))) x-1)) (lambda (u--d) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) d-0 x-2)))) (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) d-0 x-2))))) u--d x-1))))) x-0)) (lambda (u--d) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_String x-1)) (lambda (d-0) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_String d-0 x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) d-0 x-2)))) (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3))))) d-1 x-2)))) (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3))))) d-1 x-2))))) d-0 x-1))))) u--d x-0)))) (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_Nat x-1)) (lambda (u--d) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_Nat u--d x-1)))) (cons (lambda (x-1) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() x-1)) (lambda (u--d) (lambda (x-1) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 '() u--d x-1))))) x-0)) (lambda (u--d) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_Nat x-1)) (lambda (d-0) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_Nat d-0 x-1)))) (cons (lambda (x-1) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() x-1)) (lambda (d-0) (lambda (x-1) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 '() d-0 x-1))))) u--d x-0))))) u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_String x-1)) (lambda (d-0) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_String d-0 x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) d-0 x-2)))) (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3))))) d-1 x-2)))) (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3))))) d-1 x-2))))) d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_String x-1)) (lambda (d-1) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_String d-1 x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3))))) d-1 x-2)))) (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3))))) d-1 x-2))))) x-1)) (lambda (d-1) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3))))) x-2)) (lambda (d-2) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-3) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-3 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-3) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-3 x-3))))) d-2 x-2)))) (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3))))) x-2)) (lambda (d-2) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-3) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-3 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-3) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-3 x-3))))) d-2 x-2))))) d-1 x-1))))) d-0 x-0)))) (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_Nat x-1)) (lambda (d-0) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_Nat d-0 x-1)))) (cons (lambda (x-1) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() x-1)) (lambda (d-0) (lambda (x-1) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 '() d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_Nat x-1)) (lambda (d-1) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_Nat d-1 x-1)))) (cons (lambda (x-1) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() x-1)) (lambda (d-1) (lambda (x-1) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 '() d-1 x-1))))) d-0 x-0))))) u--d u--x)))) e-0) (PreludeC-45TypesC-45String-C-43C-43 "\u000a" (PreludeC-45TypesC-45String-C-43C-43 " names: " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_String x-1)) (lambda (u--d) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_String u--d x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (u--d) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int u--d x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (u--d) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int u--d x-3))))) x-2)) (lambda (u--d) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3))))) u--d x-2)))) (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (u--d) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int u--d x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (u--d) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int u--d x-3))))) x-2)) (lambda (u--d) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3))))) u--d x-2))))) x-1)) (lambda (u--d) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) d-0 x-2)))) (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) d-0 x-2))))) u--d x-1))))) x-0)) (lambda (u--d) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_String x-1)) (lambda (d-0) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_String d-0 x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) d-0 x-2)))) (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3))))) d-1 x-2)))) (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3))))) d-1 x-2))))) d-0 x-1))))) u--d x-0)))) (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (CoreC-45Name-u--show_Show_Name x-1)) (lambda (u--d) (lambda (x-1) (CoreC-45Name-u--showPrec_Show_Name u--d x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_Nat x-2)) (lambda (u--d) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_Nat u--d x-2)))) (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() x-2)) (lambda (u--d) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 '() u--d x-2))))) x-1)) (lambda (u--d) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_Nat x-2)) (lambda (d-0) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_Nat d-0 x-2)))) (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() x-2)) (lambda (d-0) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 '() d-0 x-2))))) u--d x-1))))) x-0)) (lambda (u--d) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (CoreC-45Name-u--show_Show_Name x-1)) (lambda (d-0) (lambda (x-1) (CoreC-45Name-u--showPrec_Show_Name d-0 x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_Nat x-2)) (lambda (d-0) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_Nat d-0 x-2)))) (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() x-2)) (lambda (d-0) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 '() d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_Nat x-2)) (lambda (d-1) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_Nat d-1 x-2)))) (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() x-2)) (lambda (d-1) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 '() d-1 x-2))))) d-0 x-1))))) u--d x-0))))) u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_String x-1)) (lambda (d-0) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_String d-0 x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) d-0 x-2)))) (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3))))) d-1 x-2)))) (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3))))) d-1 x-2))))) d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_String x-1)) (lambda (d-1) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_String d-1 x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3))))) d-1 x-2)))) (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3))))) d-1 x-2))))) x-1)) (lambda (d-1) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3))))) x-2)) (lambda (d-2) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-3) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-3 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-3) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-3 x-3))))) d-2 x-2)))) (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3))))) x-2)) (lambda (d-2) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-3) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-3 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-3) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-3 x-3))))) d-2 x-2))))) d-1 x-1))))) d-0 x-0)))) (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (CoreC-45Name-u--show_Show_Name x-1)) (lambda (d-0) (lambda (x-1) (CoreC-45Name-u--showPrec_Show_Name d-0 x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_Nat x-2)) (lambda (d-0) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_Nat d-0 x-2)))) (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() x-2)) (lambda (d-0) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 '() d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_Nat x-2)) (lambda (d-1) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_Nat d-1 x-2)))) (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() x-2)) (lambda (d-1) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 '() d-1 x-2))))) d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (CoreC-45Name-u--show_Show_Name x-1)) (lambda (d-1) (lambda (x-1) (CoreC-45Name-u--showPrec_Show_Name d-1 x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_Nat x-2)) (lambda (d-1) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_Nat d-1 x-2)))) (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() x-2)) (lambda (d-1) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 '() d-1 x-2))))) x-1)) (lambda (d-1) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_Nat x-2)) (lambda (d-2) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_Nat d-2 x-2)))) (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() x-2)) (lambda (d-2) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 '() d-2 x-2))))) d-1 x-1))))) d-0 x-0))))) u--d u--x)))) e-1) (PreludeC-45TypesC-45String-C-43C-43 "\u000a" (PreludeC-45TypesC-45String-C-43C-43 " type declarations: " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_String x-1)) (lambda (u--d) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_String u--d x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (u--d) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int u--d x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (u--d) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int u--d x-3))))) x-2)) (lambda (u--d) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3))))) u--d x-2)))) (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (u--d) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int u--d x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (u--d) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int u--d x-3))))) x-2)) (lambda (u--d) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3))))) u--d x-2))))) x-1)) (lambda (u--d) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) d-0 x-2)))) (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) d-0 x-2))))) u--d x-1))))) x-0)) (lambda (u--d) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_String x-1)) (lambda (d-0) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_String d-0 x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) d-0 x-2)))) (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3))))) d-1 x-2)))) (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3))))) d-1 x-2))))) d-0 x-1))))) u--d x-0)))) (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (CoreC-45Name-u--show_Show_Name x-1)) (lambda (u--d) (lambda (x-1) (CoreC-45Name-u--showPrec_Show_Name u--d x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_Nat x-2)) (lambda (u--d) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_Nat u--d x-2)))) (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() x-2)) (lambda (u--d) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 '() u--d x-2))))) x-1)) (lambda (u--d) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_Nat x-2)) (lambda (d-0) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_Nat d-0 x-2)))) (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() x-2)) (lambda (d-0) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 '() d-0 x-2))))) u--d x-1))))) x-0)) (lambda (u--d) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (CoreC-45Name-u--show_Show_Name x-1)) (lambda (d-0) (lambda (x-1) (CoreC-45Name-u--showPrec_Show_Name d-0 x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_Nat x-2)) (lambda (d-0) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_Nat d-0 x-2)))) (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() x-2)) (lambda (d-0) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 '() d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_Nat x-2)) (lambda (d-1) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_Nat d-1 x-2)))) (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() x-2)) (lambda (d-1) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 '() d-1 x-2))))) d-0 x-1))))) u--d x-0))))) u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_String x-1)) (lambda (d-0) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_String d-0 x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) d-0 x-2)))) (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3))))) d-1 x-2)))) (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3))))) d-1 x-2))))) d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_String x-1)) (lambda (d-1) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_String d-1 x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3))))) d-1 x-2)))) (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3))))) d-1 x-2))))) x-1)) (lambda (d-1) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3))))) x-2)) (lambda (d-2) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-3) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-3 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-3) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-3 x-3))))) d-2 x-2)))) (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3))))) x-2)) (lambda (d-2) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-3) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-3 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-3) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-3 x-3))))) d-2 x-2))))) d-1 x-1))))) d-0 x-0)))) (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (CoreC-45Name-u--show_Show_Name x-1)) (lambda (d-0) (lambda (x-1) (CoreC-45Name-u--showPrec_Show_Name d-0 x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_Nat x-2)) (lambda (d-0) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_Nat d-0 x-2)))) (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() x-2)) (lambda (d-0) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 '() d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_Nat x-2)) (lambda (d-1) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_Nat d-1 x-2)))) (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() x-2)) (lambda (d-1) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 '() d-1 x-2))))) d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (CoreC-45Name-u--show_Show_Name x-1)) (lambda (d-1) (lambda (x-1) (CoreC-45Name-u--showPrec_Show_Name d-1 x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_Nat x-2)) (lambda (d-1) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_Nat d-1 x-2)))) (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() x-2)) (lambda (d-1) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 '() d-1 x-2))))) x-1)) (lambda (d-1) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_Nat x-2)) (lambda (d-2) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_Nat d-2 x-2)))) (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() x-2)) (lambda (d-2) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 '() d-2 x-2))))) d-1 x-1))))) d-0 x-0))))) u--d u--x)))) e-2) (PreludeC-45TypesC-45String-C-43C-43 "\u000a" (PreludeC-45TypesC-45String-C-43C-43 " current LHS: " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 '() u--d u--x)))) e-3) (PreludeC-45TypesC-45String-C-43C-43 "\u000a" (PreludeC-45TypesC-45String-C-43C-43 " holes: " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (CoreC-45Name-u--show_Show_Name x-0)) (lambda (u--d) (lambda (x-0) (CoreC-45Name-u--showPrec_Show_Name u--d x-0)))) (cons (lambda (x-0) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() x-0)) (lambda (u--d) (lambda (x-0) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 '() u--d x-0))))) u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (CoreC-45Name-u--show_Show_Name x-0)) (lambda (d-0) (lambda (x-0) (CoreC-45Name-u--showPrec_Show_Name d-0 x-0)))) (cons (lambda (x-0) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() x-0)) (lambda (d-0) (lambda (x-0) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 '() d-0 x-0))))) u--d u--x)))) e-4) (PreludeC-45TypesC-45String-C-43C-43 "\u000a" (PreludeC-45TypesC-45String-C-43C-43 " nameLocMap: " (LibrariesC-45DataC-45PosMap-u--show_Show_C-40PosMapC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_String x-1)) (lambda (u--d) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_String u--d x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (u--d) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int u--d x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (u--d) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int u--d x-3))))) x-2)) (lambda (u--d) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3))))) u--d x-2)))) (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (u--d) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int u--d x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (u--d) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int u--d x-3))))) x-2)) (lambda (u--d) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3))))) u--d x-2))))) x-1)) (lambda (u--d) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) d-0 x-2)))) (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) d-0 x-2))))) u--d x-1))))) x-0)) (lambda (u--d) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_String x-1)) (lambda (d-0) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_String d-0 x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) d-0 x-2)))) (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3))))) d-1 x-2)))) (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3))))) d-1 x-2))))) d-0 x-1))))) u--d x-0)))) (cons (lambda (x-0) (CoreC-45Name-u--show_Show_Name x-0)) (lambda (u--d) (lambda (x-0) (CoreC-45Name-u--showPrec_Show_Name u--d x-0))))) u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_String x-1)) (lambda (d-0) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_String d-0 x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) d-0 x-2)))) (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-0) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3))))) d-1 x-2)))) (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3))))) d-1 x-2))))) d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_String x-1)) (lambda (d-1) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_String d-1 x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3))))) d-1 x-2)))) (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-1) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3))))) d-1 x-2))))) x-1)) (lambda (d-1) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3))))) x-2)) (lambda (d-2) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-3) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-3 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-3) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-3 x-3))))) d-2 x-2)))) (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-2) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-2 x-3))))) x-2)) (lambda (d-2) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-3) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-3 x-3)))) (cons (lambda (x-3) (PreludeC-45Show-u--show_Show_Int x-3)) (lambda (d-3) (lambda (x-3) (PreludeC-45Show-u--showPrec_Show_Int d-3 x-3))))) d-2 x-2))))) d-1 x-1))))) d-0 x-0)))) (cons (lambda (x-0) (CoreC-45Name-u--show_Show_Name x-0)) (lambda (d-0) (lambda (x-0) (CoreC-45Name-u--showPrec_Show_Name d-0 x-0))))) u--d u--x)))) e-5))))))))))))))))))))))))))) -(define CoreC-45Metadata-u--full_HasNames_Metadata (lambda (arg-0 arg-1 ext-0) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (CoreC-45Metadata-n--11874-11673-u--fullLHS e-5 e-4 e-3 e-2 e-1 e-0 arg-0 eta-0 eta-1))) e-0 '() ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Metadata-n--11874-11674-u--fullTy e-5 e-4 e-3 e-2 e-1 e-0 arg-0 eta-0)) e-1 '() ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-26 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Metadata-n--11874-11674-u--fullTy e-5 e-4 e-3 e-2 e-1 e-0 arg-0 eta-0)) e-2 '() ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-8 (vector-ref sc3 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (CoreC-45Metadata-n--11874-11675-u--fullHLHS e-5 e-4 e-3 e-2 e-1 e-0 arg-0 eta-0 eta-1))) e-4 '() ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (CoreC-45Metadata-n--11874-11676-u--fullDecls e-5 e-4 e-3 e-2 e-1 e-0 arg-0 eta-0 eta-1))) (DataC-45List-toList (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (LibrariesC-45DataC-45PosMap-u--foldr_Foldable_PosMap u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (LibrariesC-45DataC-45PosMap-u--foldl_Foldable_PosMap u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (LibrariesC-45DataC-45PosMap-u--null_Foldable_PosMap arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (LibrariesC-45DataC-45PosMap-u--foldlM_Foldable_PosMap i_con-0 u--funcM u--init u--input))))))))) e-5) '() ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc5 1))) (vector 1 (vector 0 e-6 e-7 e-8 (vector 0 ) e-9 (LibrariesC-45DataC-45PosMap-fromList (lambda (eta-0) (LibrariesC-45DataC-45PosMap-u--measure_Measure_C-40C-124C-40C-40BuiltinC-46PairC-32NonEmptyFCC-41C-32C-36aC-41C-44C-40C-40BuiltinC-46MkPairC-32NonEmptyFCC-41C-32C-36aC-41C-124C-41 eta-0)) e-10))))))))))))))))))))))))))))))))))))) -(define CoreC-45Metadata-u--fromBuf_TTC_TTMFile (lambda (arg-0 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((sc1 (PreludeC-45EqOrd-u--C-47C-61_Eq_String e-5 "TTM"))) (cond ((equal? sc1 0) (LibrariesC-45UtilsC-45Binary-corrupt "TTM header" ext-0)) (else (vector 1 (vector 0 ))))))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-0 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (CoreC-45Binary-checkTTCVersion "" e-7 (CoreC-45Binary-ttcVersion) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-28 (CoreC-45Metadata-u--fromBuf_TTC_Metadata arg-0 ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (vector 1 (cons e-7 e-9))))))))))))))))))))))))))) -(define CoreC-45Metadata-u--fromBuf_TTC_Metadata (lambda (arg-0 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10258) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10259) (lambda (arg-10260) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-10259 arg-10260))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-10259 eta-2)))) (cons (lambda (arg-10259) (lambda (arg-10260) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10263) (lambda (arg-10264) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10263 arg-10264 eta-4)))) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10263 eta-4)))) (cons (lambda (arg-10263) (lambda (arg-10264) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10263 arg-10264 eta-4)))) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10263 eta-4))))) arg-10261 arg-10262 eta-3)))) (lambda (arg-10261) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10262) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10262 arg-10263 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4)))) (cons (lambda (arg-10262) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10262 arg-10263 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4))))) arg-10261 eta-3)))) (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10263) (lambda (arg-10264) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10263 arg-10264 eta-4)))) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10263 eta-4)))) (cons (lambda (arg-10263) (lambda (arg-10264) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10263 arg-10264 eta-4)))) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10263 eta-4))))) arg-10261 arg-10262 eta-3)))) (lambda (arg-10261) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10262) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10262 arg-10263 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4)))) (cons (lambda (arg-10262) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10262 arg-10263 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4))))) arg-10261 eta-3))))) arg-10259 arg-10260 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10260) (lambda (arg-10261) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10262) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10262 arg-10263 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4)))) (cons (lambda (arg-10262) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10262 arg-10263 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4))))) arg-10260 arg-10261 eta-3)))) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10260 eta-3)))) (cons (lambda (arg-10260) (lambda (arg-10261) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10262) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10262 arg-10263 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4)))) (cons (lambda (arg-10262) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10262 arg-10263 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4))))) arg-10260 arg-10261 eta-3)))) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10260 eta-3))))) arg-10259 eta-2))))) arg-10256 arg-10258 eta-1)))) (lambda (arg-10258) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10259) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-10256 arg-10259))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-10259 eta-2)))) (cons (lambda (arg-10256) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10260) (lambda (arg-10261) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10262) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10262 arg-10263 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4)))) (cons (lambda (arg-10262) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10262 arg-10263 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4))))) arg-10260 arg-10261 eta-3)))) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10260 eta-3)))) (cons (lambda (arg-10260) (lambda (arg-10261) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10262) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10262 arg-10263 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4)))) (cons (lambda (arg-10262) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10262 arg-10263 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4))))) arg-10260 arg-10261 eta-3)))) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10260 eta-3))))) arg-10256 arg-10259 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10256 arg-10260 eta-3)))) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10261 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10256) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10261 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10260 eta-3)))) (cons (lambda (arg-10256) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10256 arg-10260 eta-3)))) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10261 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10256) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10261 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10260 eta-3))))) arg-10259 eta-2))))) arg-10258 eta-1)))) (cons (lambda (arg-10256) (lambda (arg-10258) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10259) (lambda (arg-10260) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-10259 arg-10260))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-10259 eta-2)))) (cons (lambda (arg-10259) (lambda (arg-10260) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-10259 arg-10260))) (lambda (arg-10259) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-10259 eta-2))))) arg-10256 arg-10258 eta-1)))) (lambda (arg-10258) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10259) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-10256 arg-10259))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-10259 eta-2)))) (cons (lambda (arg-10256) (lambda (arg-10259) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-10256 arg-10259))) (lambda (arg-10259) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-10259 eta-2))))) arg-10258 eta-1))))) arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10259) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-10256 arg-10259))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-10259 eta-2)))) (cons (lambda (arg-10256) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10260) (lambda (arg-10261) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10262) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10262 arg-10263 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4)))) (cons (lambda (arg-10262) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10262 arg-10263 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4))))) arg-10260 arg-10261 eta-3)))) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10260 eta-3)))) (cons (lambda (arg-10260) (lambda (arg-10261) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10262) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10262 arg-10263 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4)))) (cons (lambda (arg-10262) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10262 arg-10263 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4))))) arg-10260 arg-10261 eta-3)))) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10260 eta-3))))) arg-10256 arg-10259 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10256 arg-10260 eta-3)))) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10261 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10256) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10261 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10260 eta-3)))) (cons (lambda (arg-10256) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10256 arg-10260 eta-3)))) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10261 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10256) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10261 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10260 eta-3))))) arg-10259 eta-2))))) arg-10255 arg-10257 eta-1)))) (lambda (arg-10259) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10255) (lambda (arg-10257) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-10255 arg-10257))) (lambda (arg-10260) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-10260 eta-2)))) (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10256 arg-10260 eta-3)))) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10261 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10256) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10261 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10260 eta-3)))) (cons (lambda (arg-10256) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10256 arg-10260 eta-3)))) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10261 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10256) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10261 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10260 eta-3))))) arg-10255 arg-10257 eta-2)))) (lambda (arg-10260) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10261 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10256) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10261 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10255 arg-10257 eta-3)))) (lambda (arg-10261) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10255 arg-10257 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4)))) (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10255 arg-10257 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4))))) arg-10261 eta-3)))) (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10261 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10256) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10261 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10255 arg-10257 eta-3)))) (lambda (arg-10261) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10255 arg-10257 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4)))) (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10255 arg-10257 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4))))) arg-10261 eta-3))))) arg-10260 eta-2))))) arg-10259 eta-1)))) (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10259) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-10256 arg-10259))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-10259 eta-2)))) (cons (lambda (arg-10256) (lambda (arg-10259) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-10256 arg-10259))) (lambda (arg-10259) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-10259 eta-2))))) arg-10255 arg-10257 eta-1)))) (lambda (arg-10259) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10255) (lambda (arg-10257) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-10255 arg-10257))) (lambda (arg-10260) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-10260 eta-2)))) (cons (lambda (arg-10255) (lambda (arg-10257) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-10255 arg-10257))) (lambda (arg-10260) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-10260 eta-2))))) arg-10259 eta-1))))) arg-10258 eta-0)))) arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10258) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10259) (lambda (arg-10260) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-10259 arg-10260))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-10259 eta-2)))) (cons (lambda (arg-10259) (lambda (arg-10260) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10263) (lambda (arg-10264) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10263 arg-10264 eta-4)))) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10263 eta-4)))) (cons (lambda (arg-10263) (lambda (arg-10264) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10263 arg-10264 eta-4)))) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10263 eta-4))))) arg-10261 arg-10262 eta-3)))) (lambda (arg-10261) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10262) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10262 arg-10263 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4)))) (cons (lambda (arg-10262) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10262 arg-10263 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4))))) arg-10261 eta-3)))) (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10263) (lambda (arg-10264) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10263 arg-10264 eta-4)))) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10263 eta-4)))) (cons (lambda (arg-10263) (lambda (arg-10264) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10263 arg-10264 eta-4)))) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10263 eta-4))))) arg-10261 arg-10262 eta-3)))) (lambda (arg-10261) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10262) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10262 arg-10263 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4)))) (cons (lambda (arg-10262) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10262 arg-10263 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4))))) arg-10261 eta-3))))) arg-10259 arg-10260 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10260) (lambda (arg-10261) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10262) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10262 arg-10263 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4)))) (cons (lambda (arg-10262) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10262 arg-10263 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4))))) arg-10260 arg-10261 eta-3)))) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10260 eta-3)))) (cons (lambda (arg-10260) (lambda (arg-10261) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10262) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10262 arg-10263 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4)))) (cons (lambda (arg-10262) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10262 arg-10263 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4))))) arg-10260 arg-10261 eta-3)))) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10260 eta-3))))) arg-10259 eta-2))))) arg-10256 arg-10258 eta-1)))) (lambda (arg-10258) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10259) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-10256 arg-10259))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-10259 eta-2)))) (cons (lambda (arg-10256) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10260) (lambda (arg-10261) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10262) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10262 arg-10263 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4)))) (cons (lambda (arg-10262) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10262 arg-10263 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4))))) arg-10260 arg-10261 eta-3)))) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10260 eta-3)))) (cons (lambda (arg-10260) (lambda (arg-10261) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10262) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10262 arg-10263 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4)))) (cons (lambda (arg-10262) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10262 arg-10263 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4))))) arg-10260 arg-10261 eta-3)))) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10260 eta-3))))) arg-10256 arg-10259 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10256 arg-10260 eta-3)))) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10261 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10256) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10261 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10260 eta-3)))) (cons (lambda (arg-10256) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10256 arg-10260 eta-3)))) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10261 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10256) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10261 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10260 eta-3))))) arg-10259 eta-2))))) arg-10258 eta-1)))) (cons (lambda (arg-10256) (lambda (arg-10258) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10259) (lambda (arg-10260) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_Name arg-10259 arg-10260 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10259 eta-2)))) (cons (lambda (arg-10259) (lambda (arg-10260) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10261) (lambda (arg-10262) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-10261 arg-10262))) (lambda (arg-10261) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-10261 eta-3)))) (cons (lambda (arg-10261) (lambda (arg-10262) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-10261 arg-10262))) (lambda (arg-10261) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-10261 eta-3))))) arg-10259 arg-10260 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10260) (lambda (arg-10261) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-10260 arg-10261))) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-10260 eta-3)))) (cons (lambda (arg-10260) (lambda (arg-10261) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-10260 arg-10261))) (lambda (arg-10260) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-10260 eta-3))))) arg-10259 eta-2))))) arg-10256 arg-10258 eta-1)))) (lambda (arg-10258) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10259) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_Name arg-10256 arg-10259 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10259 eta-2)))) (cons (lambda (arg-10256) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10260) (lambda (arg-10261) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-10260 arg-10261))) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-10260 eta-3)))) (cons (lambda (arg-10260) (lambda (arg-10261) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-10260 arg-10261))) (lambda (arg-10260) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-10260 eta-3))))) arg-10256 arg-10259 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10260) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-10256 arg-10260))) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-10260 eta-3)))) (cons (lambda (arg-10256) (lambda (arg-10260) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-10256 arg-10260))) (lambda (arg-10260) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-10260 eta-3))))) arg-10259 eta-2))))) arg-10258 eta-1))))) arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10259) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-10256 arg-10259))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-10259 eta-2)))) (cons (lambda (arg-10256) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10260) (lambda (arg-10261) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10262) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10262 arg-10263 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4)))) (cons (lambda (arg-10262) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10262 arg-10263 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4))))) arg-10260 arg-10261 eta-3)))) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10260 eta-3)))) (cons (lambda (arg-10260) (lambda (arg-10261) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10262) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10262 arg-10263 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4)))) (cons (lambda (arg-10262) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10262 arg-10263 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4))))) arg-10260 arg-10261 eta-3)))) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10260 eta-3))))) arg-10256 arg-10259 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10256 arg-10260 eta-3)))) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10261 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10256) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10261 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10260 eta-3)))) (cons (lambda (arg-10256) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10256 arg-10260 eta-3)))) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10261 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10256) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10261 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10260 eta-3))))) arg-10259 eta-2))))) arg-10255 arg-10257 eta-1)))) (lambda (arg-10259) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10255) (lambda (arg-10257) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-10255 arg-10257))) (lambda (arg-10260) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-10260 eta-2)))) (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10256 arg-10260 eta-3)))) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10261 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10256) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10261 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10260 eta-3)))) (cons (lambda (arg-10256) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10256 arg-10260 eta-3)))) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10261 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10256) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10261 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10260 eta-3))))) arg-10255 arg-10257 eta-2)))) (lambda (arg-10260) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10261 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10256) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10261 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10255 arg-10257 eta-3)))) (lambda (arg-10261) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10255 arg-10257 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4)))) (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10255 arg-10257 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4))))) arg-10261 eta-3)))) (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10261 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10256) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10261 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10255 arg-10257 eta-3)))) (lambda (arg-10261) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10255 arg-10257 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4)))) (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10255 arg-10257 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4))))) arg-10261 eta-3))))) arg-10260 eta-2))))) arg-10259 eta-1)))) (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10259) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_Name arg-10256 arg-10259 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10259 eta-2)))) (cons (lambda (arg-10256) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10260) (lambda (arg-10261) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-10260 arg-10261))) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-10260 eta-3)))) (cons (lambda (arg-10260) (lambda (arg-10261) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-10260 arg-10261))) (lambda (arg-10260) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-10260 eta-3))))) arg-10256 arg-10259 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10260) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-10256 arg-10260))) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-10260 eta-3)))) (cons (lambda (arg-10256) (lambda (arg-10260) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-10256 arg-10260))) (lambda (arg-10260) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-10260 eta-3))))) arg-10259 eta-2))))) arg-10255 arg-10257 eta-1)))) (lambda (arg-10259) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_Name arg-10255 arg-10257 eta-2)))) (lambda (arg-10260) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10260 eta-2)))) (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10260) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-10256 arg-10260))) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-10260 eta-3)))) (cons (lambda (arg-10256) (lambda (arg-10260) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-10256 arg-10260))) (lambda (arg-10260) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-10260 eta-3))))) arg-10255 arg-10257 eta-2)))) (lambda (arg-10260) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10255) (lambda (arg-10257) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-10255 arg-10257))) (lambda (arg-10261) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-10261 eta-3)))) (cons (lambda (arg-10255) (lambda (arg-10257) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-10255 arg-10257))) (lambda (arg-10261) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-10261 eta-3))))) arg-10260 eta-2))))) arg-10259 eta-1))))) arg-10258 eta-0)))) arg-0 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10258) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10259) (lambda (arg-10260) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-10259 arg-10260))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-10259 eta-2)))) (cons (lambda (arg-10259) (lambda (arg-10260) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10263) (lambda (arg-10264) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10263 arg-10264 eta-4)))) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10263 eta-4)))) (cons (lambda (arg-10263) (lambda (arg-10264) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10263 arg-10264 eta-4)))) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10263 eta-4))))) arg-10261 arg-10262 eta-3)))) (lambda (arg-10261) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10262) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10262 arg-10263 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4)))) (cons (lambda (arg-10262) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10262 arg-10263 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4))))) arg-10261 eta-3)))) (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10263) (lambda (arg-10264) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10263 arg-10264 eta-4)))) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10263 eta-4)))) (cons (lambda (arg-10263) (lambda (arg-10264) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10263 arg-10264 eta-4)))) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10263 eta-4))))) arg-10261 arg-10262 eta-3)))) (lambda (arg-10261) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10262) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10262 arg-10263 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4)))) (cons (lambda (arg-10262) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10262 arg-10263 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4))))) arg-10261 eta-3))))) arg-10259 arg-10260 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10260) (lambda (arg-10261) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10262) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10262 arg-10263 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4)))) (cons (lambda (arg-10262) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10262 arg-10263 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4))))) arg-10260 arg-10261 eta-3)))) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10260 eta-3)))) (cons (lambda (arg-10260) (lambda (arg-10261) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10262) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10262 arg-10263 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4)))) (cons (lambda (arg-10262) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10262 arg-10263 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4))))) arg-10260 arg-10261 eta-3)))) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10260 eta-3))))) arg-10259 eta-2))))) arg-10256 arg-10258 eta-1)))) (lambda (arg-10258) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10259) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-10256 arg-10259))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-10259 eta-2)))) (cons (lambda (arg-10256) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10260) (lambda (arg-10261) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10262) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10262 arg-10263 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4)))) (cons (lambda (arg-10262) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10262 arg-10263 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4))))) arg-10260 arg-10261 eta-3)))) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10260 eta-3)))) (cons (lambda (arg-10260) (lambda (arg-10261) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10262) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10262 arg-10263 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4)))) (cons (lambda (arg-10262) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10262 arg-10263 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4))))) arg-10260 arg-10261 eta-3)))) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10260 eta-3))))) arg-10256 arg-10259 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10256 arg-10260 eta-3)))) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10261 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10256) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10261 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10260 eta-3)))) (cons (lambda (arg-10256) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10256 arg-10260 eta-3)))) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10261 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10256) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10261 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10260 eta-3))))) arg-10259 eta-2))))) arg-10258 eta-1)))) (cons (lambda (arg-10256) (lambda (arg-10258) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10259) (lambda (arg-10260) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_Name arg-10259 arg-10260 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10259 eta-2)))) (cons (lambda (arg-10259) (lambda (arg-10260) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10261) (lambda (arg-10262) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-10261 arg-10262))) (lambda (arg-10261) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-10261 eta-3)))) (cons (lambda (arg-10261) (lambda (arg-10262) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-10261 arg-10262))) (lambda (arg-10261) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-10261 eta-3))))) arg-10259 arg-10260 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10260) (lambda (arg-10261) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-10260 arg-10261))) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-10260 eta-3)))) (cons (lambda (arg-10260) (lambda (arg-10261) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-10260 arg-10261))) (lambda (arg-10260) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-10260 eta-3))))) arg-10259 eta-2))))) arg-10256 arg-10258 eta-1)))) (lambda (arg-10258) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10259) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_Name arg-10256 arg-10259 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10259 eta-2)))) (cons (lambda (arg-10256) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10260) (lambda (arg-10261) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-10260 arg-10261))) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-10260 eta-3)))) (cons (lambda (arg-10260) (lambda (arg-10261) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-10260 arg-10261))) (lambda (arg-10260) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-10260 eta-3))))) arg-10256 arg-10259 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10260) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-10256 arg-10260))) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-10260 eta-3)))) (cons (lambda (arg-10256) (lambda (arg-10260) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-10256 arg-10260))) (lambda (arg-10260) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-10260 eta-3))))) arg-10259 eta-2))))) arg-10258 eta-1))))) arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10259) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-10256 arg-10259))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-10259 eta-2)))) (cons (lambda (arg-10256) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10260) (lambda (arg-10261) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10262) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10262 arg-10263 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4)))) (cons (lambda (arg-10262) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10262 arg-10263 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4))))) arg-10260 arg-10261 eta-3)))) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10260 eta-3)))) (cons (lambda (arg-10260) (lambda (arg-10261) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10262) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10262 arg-10263 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4)))) (cons (lambda (arg-10262) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10262 arg-10263 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4))))) arg-10260 arg-10261 eta-3)))) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10260 eta-3))))) arg-10256 arg-10259 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10256 arg-10260 eta-3)))) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10261 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10256) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10261 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10260 eta-3)))) (cons (lambda (arg-10256) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10256 arg-10260 eta-3)))) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10261 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10256) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10261 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10260 eta-3))))) arg-10259 eta-2))))) arg-10255 arg-10257 eta-1)))) (lambda (arg-10259) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10255) (lambda (arg-10257) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-10255 arg-10257))) (lambda (arg-10260) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-10260 eta-2)))) (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10256 arg-10260 eta-3)))) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10261 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10256) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10261 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10260 eta-3)))) (cons (lambda (arg-10256) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10256 arg-10260 eta-3)))) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10261 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10256) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10261 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10260 eta-3))))) arg-10255 arg-10257 eta-2)))) (lambda (arg-10260) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10261 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10256) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10261 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10255 arg-10257 eta-3)))) (lambda (arg-10261) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10255 arg-10257 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4)))) (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10255 arg-10257 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4))))) arg-10261 eta-3)))) (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10261 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10256) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10261 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10255 arg-10257 eta-3)))) (lambda (arg-10261) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10255 arg-10257 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4)))) (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10255 arg-10257 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4))))) arg-10261 eta-3))))) arg-10260 eta-2))))) arg-10259 eta-1)))) (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10259) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_Name arg-10256 arg-10259 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10259 eta-2)))) (cons (lambda (arg-10256) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10260) (lambda (arg-10261) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-10260 arg-10261))) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-10260 eta-3)))) (cons (lambda (arg-10260) (lambda (arg-10261) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-10260 arg-10261))) (lambda (arg-10260) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-10260 eta-3))))) arg-10256 arg-10259 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10260) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-10256 arg-10260))) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-10260 eta-3)))) (cons (lambda (arg-10256) (lambda (arg-10260) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-10256 arg-10260))) (lambda (arg-10260) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-10260 eta-3))))) arg-10259 eta-2))))) arg-10255 arg-10257 eta-1)))) (lambda (arg-10259) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_Name arg-10255 arg-10257 eta-2)))) (lambda (arg-10260) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10260 eta-2)))) (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10260) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-10256 arg-10260))) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-10260 eta-3)))) (cons (lambda (arg-10256) (lambda (arg-10260) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-10256 arg-10260))) (lambda (arg-10260) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-10260 eta-3))))) arg-10255 arg-10257 eta-2)))) (lambda (arg-10260) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10255) (lambda (arg-10257) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-10255 arg-10257))) (lambda (arg-10261) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-10261 eta-3)))) (cons (lambda (arg-10255) (lambda (arg-10257) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-10255 arg-10257))) (lambda (arg-10261) (lambda (eta-3) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-10261 eta-3))))) arg-10260 eta-2))))) arg-10259 eta-1))))) arg-10258 eta-0)))) arg-0 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10258) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_Name arg-10256 arg-10258 eta-1)))) (lambda (arg-10258) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10258 eta-1)))) (cons (lambda (arg-10256) (lambda (arg-10258) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-10256 arg-10258))) (lambda (arg-10258) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-10258 eta-1))))) arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_Name arg-10255 arg-10257 eta-1)))) (lambda (arg-10259) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10259 eta-1)))) (cons (lambda (arg-10255) (lambda (arg-10257) (CoreC-45TTC-u--toBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-10255 arg-10257))) (lambda (arg-10259) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_C-40TermC-32C-36varsC-41 '() arg-10259 eta-1))))) arg-10258 eta-0)))) arg-0 ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40PosMapC-32C-36aC-41 (cons (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10258) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10259) (lambda (arg-10260) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-10259 arg-10260))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-10259 eta-2)))) (cons (lambda (arg-10259) (lambda (arg-10260) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10263) (lambda (arg-10264) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10263 arg-10264 eta-4)))) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10263 eta-4)))) (cons (lambda (arg-10263) (lambda (arg-10264) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10263 arg-10264 eta-4)))) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10263 eta-4))))) arg-10261 arg-10262 eta-3)))) (lambda (arg-10261) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10262) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10262 arg-10263 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4)))) (cons (lambda (arg-10262) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10262 arg-10263 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4))))) arg-10261 eta-3)))) (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10263) (lambda (arg-10264) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10263 arg-10264 eta-4)))) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10263 eta-4)))) (cons (lambda (arg-10263) (lambda (arg-10264) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10263 arg-10264 eta-4)))) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10263 eta-4))))) arg-10261 arg-10262 eta-3)))) (lambda (arg-10261) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10262) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10262 arg-10263 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4)))) (cons (lambda (arg-10262) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10262 arg-10263 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4))))) arg-10261 eta-3))))) arg-10259 arg-10260 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10260) (lambda (arg-10261) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10262) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10262 arg-10263 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4)))) (cons (lambda (arg-10262) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10262 arg-10263 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4))))) arg-10260 arg-10261 eta-3)))) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10260 eta-3)))) (cons (lambda (arg-10260) (lambda (arg-10261) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10262) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10262 arg-10263 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4)))) (cons (lambda (arg-10262) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10262 arg-10263 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4))))) arg-10260 arg-10261 eta-3)))) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10260 eta-3))))) arg-10259 eta-2))))) arg-10256 arg-10258 eta-1)))) (lambda (arg-10258) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10259) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-10256 arg-10259))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-10259 eta-2)))) (cons (lambda (arg-10256) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10260) (lambda (arg-10261) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10262) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10262 arg-10263 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4)))) (cons (lambda (arg-10262) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10262 arg-10263 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4))))) arg-10260 arg-10261 eta-3)))) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10260 eta-3)))) (cons (lambda (arg-10260) (lambda (arg-10261) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10262) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10262 arg-10263 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4)))) (cons (lambda (arg-10262) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10262 arg-10263 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4))))) arg-10260 arg-10261 eta-3)))) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10260 eta-3))))) arg-10256 arg-10259 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10256 arg-10260 eta-3)))) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10261 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10256) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10261 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10260 eta-3)))) (cons (lambda (arg-10256) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10256 arg-10260 eta-3)))) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10261 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10256) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10261 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10260 eta-3))))) arg-10259 eta-2))))) arg-10258 eta-1)))) (cons (lambda (arg-10256) (lambda (arg-10258) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_Name arg-10256 arg-10258 eta-1)))) (lambda (arg-10258) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10258 eta-1))))) arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10259) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-10256 arg-10259))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-10259 eta-2)))) (cons (lambda (arg-10256) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10260) (lambda (arg-10261) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10262) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10262 arg-10263 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4)))) (cons (lambda (arg-10262) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10262 arg-10263 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4))))) arg-10260 arg-10261 eta-3)))) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10260 eta-3)))) (cons (lambda (arg-10260) (lambda (arg-10261) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10262) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10262 arg-10263 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4)))) (cons (lambda (arg-10262) (lambda (arg-10263) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10262 arg-10263 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4))))) arg-10260 arg-10261 eta-3)))) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10260 eta-3))))) arg-10256 arg-10259 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10256 arg-10260 eta-3)))) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10261 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10256) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10261 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10260 eta-3)))) (cons (lambda (arg-10256) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10256 arg-10260 eta-3)))) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10261 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10256) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10261 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10260 eta-3))))) arg-10259 eta-2))))) arg-10255 arg-10257 eta-1)))) (lambda (arg-10259) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10255) (lambda (arg-10257) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-10255 arg-10257))) (lambda (arg-10260) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-10260 eta-2)))) (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10256 arg-10260 eta-3)))) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10261 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10256) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10261 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10260 eta-3)))) (cons (lambda (arg-10256) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10261) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10261 arg-10262 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10256 arg-10260 eta-3)))) (lambda (arg-10260) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10261 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10256) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10261 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10260 eta-3))))) arg-10255 arg-10257 eta-2)))) (lambda (arg-10260) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10261 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10256) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10261 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10255 arg-10257 eta-3)))) (lambda (arg-10261) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10255 arg-10257 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4)))) (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10255 arg-10257 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4))))) arg-10261 eta-3)))) (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10261 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4)))) (cons (lambda (arg-10256) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10256 arg-10261 eta-4)))) (lambda (arg-10261) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10261 eta-4))))) arg-10255 arg-10257 eta-3)))) (lambda (arg-10261) (lambda (eta-3) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10255 arg-10257 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4)))) (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Int arg-10255 arg-10257 eta-4)))) (lambda (arg-10262) (lambda (eta-4) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Int arg-10262 eta-4))))) arg-10261 eta-3))))) arg-10260 eta-2))))) arg-10259 eta-1)))) (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_Name arg-10255 arg-10257 eta-1)))) (lambda (arg-10259) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10259 eta-1))))) arg-10258 eta-0)))) (lambda (eta-0) (LibrariesC-45DataC-45PosMap-u--measure_Measure_C-40C-124C-40C-40BuiltinC-46PairC-32NonEmptyFCC-41C-32C-36aC-41C-44C-40C-40BuiltinC-46MkPairC-32NonEmptyFCC-41C-32C-36aC-41C-124C-41 eta-0))) arg-0 ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (vector 1 (vector 0 e-5 e-6 e-7 (vector 0 ) e-8 e-9))))))))))))))))))))))))))))) -(define CoreC-45Metadata-writeToTTM (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (CoreC-45Metadata-normaliseTypes arg-1 arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((act-25 (LibrariesC-45UtilsC-45Binary-initBinary ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (let ((act-26 (unbox arg-1))) (vector 1 act-26)))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (let ((act-27 (unbox arg-0))) (vector 1 act-27)))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (let ((act-28 (CoreC-45Metadata-u--full_HasNames_Metadata (let ((sc4 e-8)) (let ((e-0 (vector-ref sc4 1))) e-0)) e-7 ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (CoreC-45Metadata-u--toBuf_TTC_TTMFile e-6 (cons (CoreC-45Binary-ttcVersion) e-9) ext-0)))))))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-29 (let ((act-29 (let ((act-29 (unbox e-6))) (vector 1 act-29)))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-30 ((LibrariesC-45UtilsC-45Binary-writeToFile arg-2 e-10) ext-0))) (vector 1 act-30))))))))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc5 1))) (let ((sc6 e-10)) (case (vector-ref sc6 0) ((1) (vector 1 (vector 0 ))) (else (let ((e-11 (vector-ref sc6 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 (PreludeC-45TypesC-45String-C-43C-43 arg-2 (PreludeC-45TypesC-45String-C-43C-43 ": " (SystemC-45File-u--show_Show_FileError e-11)))) ext-0))))))))))))))))))))))))))))))))))) -(define CoreC-45Metadata-withCurrentLHS (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (CoreC-45Context-getFullName arg-0 arg-2 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) ((PreludeC-45Types-maybe (lambda () (lambda (eta-0) (vector 1 (vector 0 )))) (lambda () (lambda (u--lhs) (lambda (eta-0) (let ((act-26 (set-box! arg-1 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (let ((e-3 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-7 (vector-ref sc2 6))) (vector 0 e-0 e-1 e-2 e-3 (cons (cons e-6 u--lhs) e-4) e-7))))))))))) (vector 1 act-26))))) (let ((sc2 e-5)) (let ((e-3 (vector-ref sc2 4))) e-3))) ext-0))))))))))))) -(define CoreC-45Metadata-substEnv (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-0)) (if (null? sc0) (let ((sc1 arg-2)) arg-3) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 arg-2)) (let ((e-9 (cdr sc1))) (CoreC-45Metadata-substEnv e-3 arg-1 e-9 (CoreC-45TTC-45SubstEnv-subst (vector 1 arg-1 (vector 0 ) e-2) arg-3)))))))))) -(define CoreC-45Metadata-setHoleLHS (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-4 (vector-ref sc1 5))) (let ((e-6 (vector-ref sc1 6))) (vector 0 e-0 e-1 e-2 (vector 1 arg-1) e-4 e-6)))))))))) (vector 1 act-25))))))))) -(define CoreC-45Metadata-readMetadata (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (LibrariesC-45UtilsC-45Binary-readFromFile arg-0 ext-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Core-newRef (vector "Libraries.Utils.Binary.Bin" ) e-2 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (CoreC-45Metadata-u--fromBuf_TTC_TTMFile e-6 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (let ((e-1 (cdr sc4))) (vector 1 e-1))))))))))))))) (else (let ((e-6 (vector-ref sc1 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 (PreludeC-45TypesC-45String-C-43C-43 arg-0 (PreludeC-45TypesC-45String-C-43C-43 ": " (SystemC-45File-u--show_Show_FileError e-6)))) ext-0)))))))))))) -(define CoreC-45Metadata-readFromTTM (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (LibrariesC-45UtilsC-45Binary-readFromFile arg-1 ext-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Core-newRef (vector "Libraries.Utils.Binary.Bin" ) e-2 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (CoreC-45Metadata-u--fromBuf_TTC_TTMFile e-6 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (set-box! arg-0 (let ((sc4 e-7)) (let ((e-1 (cdr sc4))) e-1))))) (vector 1 act-27)))))))))))))) (else (let ((e-6 (vector-ref sc1 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 (PreludeC-45TypesC-45String-C-43C-43 arg-1 (PreludeC-45TypesC-45String-C-43C-43 ": " (SystemC-45File-u--show_Show_FileError e-6)))) ext-0)))))))))))) -(define CoreC-45Metadata-normaliseTypes (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Metadata-n--11695-11499-u--nfType arg-1 arg-0 e-6 eta-0)) (let ((sc2 e-5)) (let ((e-1 (vector-ref sc2 2))) e-1)) '() ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (set-box! arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 3))) (let ((e-3 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-8 (vector-ref sc3 6))) (vector 0 e-0 e-7 e-2 e-3 e-4 e-8)))))))))) (vector 1 act-27))))))))))))))))))) -(define CoreC-45Metadata-initMetadata (lambda () (vector 0 '() '() '() (vector 0 ) '() (LibrariesC-45DataC-45PosMap-empty)))) -(define CoreC-45Metadata-findTypeAt (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (PreludeC-45Types-u--map_Functor_Maybe (lambda (eta-0) (Builtin-snd eta-0)) (CoreC-45Metadata-findEntryWith arg-1 (let ((sc1 e-5)) (let ((e-1 (vector-ref sc1 2))) e-1)))))))))))) -(define CoreC-45Metadata-findTyDeclAt (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (CoreC-45Metadata-findEntryWith arg-1 (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 3))) e-2))))))))))) -(define CoreC-45Metadata-findLHSAt (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (CoreC-45Metadata-findEntryWith (lambda (u--loc) (lambda (u--tm) ((arg-1 u--loc) (Builtin-snd u--tm)))) (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))))))))))) -(define CoreC-45Metadata-findHoleLHS (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (DataC-45List-lookupBy (lambda (u--x) (lambda (u--y) (CoreC-45Name-u--C-61C-61_Eq_Name (CoreC-45Name-dropNS u--x) (CoreC-45Name-dropNS u--y)))) arg-1 (let ((sc1 e-5)) (let ((e-4 (vector-ref sc1 5))) e-4))))))))))) -(define CoreC-45Metadata-findEntryWith (lambda (ext-0 ext-1) (DataC-45List-find (lambda (eta-1) (PreludeC-45Basics-uncurry ext-0 eta-1)) ext-1))) -(define CoreC-45Metadata-dumpTTM (lambda (arg-0 ext-0) (let ((act-24 (CoreC-45Metadata-readMetadata arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((PreludeC-45IO-putStrLn (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-0)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-0) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (let ((act-17 (arg-578 eta-0))) (let ((act-16 (arg-580 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (let ((act-25 (arg-876 eta-0))) ((arg-877 act-25) eta-0))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-0) (let ((act-51 (arg-879 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) (CoreC-45Metadata-u--show_Show_Metadata e-5)) ext-0))) (vector 1 act-25))))))))) -(define CoreC-45Metadata-clearHoleLHS (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-4 (vector-ref sc1 5))) (let ((e-6 (vector-ref sc1 6))) (vector 0 e-0 e-1 e-2 (vector 0 ) e-4 e-6)))))))))) (vector 1 act-25))))))))) -(define CoreC-45Metadata-addTyDecl (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (CoreC-45Context-getFullName arg-1 arg-4 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 (CoreC-45FC-isNonEmptyFC arg-3))) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((act-26 (set-box! arg-2 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-8 (vector-ref sc3 2))) (let ((e-2 (vector-ref sc3 3))) (let ((e-3 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-7 (vector-ref sc3 6))) (vector 0 e-0 e-8 (cons (cons e-1 (cons e-6 (cons (CoreC-45Env-length arg-5) (CoreC-45Env-bindEnv arg-0 arg-3 arg-5 arg-6)))) e-2) e-3 e-4 e-7))))))))))) (vector 1 act-26)))) (else (vector 1 (vector 0 ))))))))))))))))) -(define CoreC-45Metadata-addNameType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (CoreC-45Context-getFullName arg-1 arg-4 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 (CoreC-45FC-isNonEmptyFC arg-3))) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((act-26 (let ((act-26 (set-box! arg-2 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-8 (vector-ref sc3 2))) (let ((e-2 (vector-ref sc3 3))) (let ((e-3 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-7 (vector-ref sc3 6))) (vector 0 e-0 (cons (cons e-1 (cons e-6 (cons 0 (CoreC-45Metadata-substEnv arg-0 arg-3 arg-5 arg-6)))) e-8) e-2 e-3 e-4 e-7))))))))))) (vector 1 act-26)))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (CoreC-45ContextC-45Log-log arg-1 "metadata.names" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-6) (PreludeC-45TypesC-45String-C-43C-43 " at line " (PreludeC-45Show-u--show_Show_Int (bs+ (blodwen-toSignedInt 1 63) (CoreC-45FC-startLine e-1) 63))))) ext-0))))))) (else (vector 1 (vector 0 ))))))))))))))))) -(define CoreC-45Metadata-addNameLoc (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (CoreC-45Context-getFullName arg-1 arg-3 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 (CoreC-45FC-isNonEmptyFC arg-2))) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((act-26 (set-box! arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-8 (vector-ref sc3 2))) (let ((e-2 (vector-ref sc3 3))) (let ((e-3 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-7 (vector-ref sc3 6))) (vector 0 e-0 e-8 e-2 e-3 e-4 (LibrariesC-45DataC-45PosMap-insert (lambda (eta-0) (LibrariesC-45DataC-45PosMap-u--measure_Measure_C-40C-124C-40C-40BuiltinC-46PairC-32NonEmptyFCC-41C-32C-36aC-41C-44C-40C-40BuiltinC-46MkPairC-32NonEmptyFCC-41C-32C-36aC-41C-124C-41 eta-0)) (cons e-1 e-6) e-7)))))))))))) (vector 1 act-26)))) (else (vector 1 (vector 0 ))))))))))))))))) -(define CoreC-45Metadata-addLHS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-1 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) (CoreC-45Env-bindEnv arg-0 arg-3 (CoreC-45Metadata-n--11031-10877-u--toPat arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-5) arg-6) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 (CoreC-45FC-isNonEmptyFC arg-3))) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((act-26 (set-box! arg-2 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-8 (vector-ref sc3 2))) (let ((e-2 (vector-ref sc3 3))) (let ((e-3 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-7 (vector-ref sc3 6))) (vector 0 (cons (cons e-1 (cons arg-4 e-6)) e-0) e-8 e-2 e-3 e-4 e-7))))))))))) (vector 1 act-26)))) (else (vector 1 (vector 0 ))))))))))))))))) -(define TTImpC-45ElabC-45Rewrite-case--caseC-32blockC-32inC-32getRewriteTerms-824 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (if (null? sc0) (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error arg-6 eta-0)) (let ((e-1 (car sc0))) (let ((e-2 (cdr sc0))) (let ((sc1 e-2)) (if (null? sc1) (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error arg-6 eta-0)) (let ((e-4 (car sc1))) (let ((e-5 (cdr sc1))) (lambda (clam-0) (let ((sc2 e-5)) (if (null? sc2) (CoreC-45Core-u--throw_Catchable_Core_Error arg-6 clam-0) (let ((e-8 (cdr sc2))) (let ((sc3 e-8)) (if (null? sc3) (CoreC-45Core-u--throw_Catchable_Core_Error arg-6 clam-0) (let ((e-10 (car sc3))) (let ((act-24 ((CoreC-45Normalise-evalClosure arg-9 arg-0 arg-7 e-4) clam-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 ((CoreC-45Normalise-evalClosure arg-9 arg-0 arg-7 e-1) clam-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-26 ((CoreC-45Normalise-evalClosure arg-9 arg-0 arg-7 e-10) clam-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (let ((e-12 (vector-ref sc6 1))) (vector 1 (cons e-6 (cons e-9 e-12))))))))))))))))))))))))))))))))))) -(define TTImpC-45ElabC-45Rewrite-rewriteErr (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((41) 0) ((40) 0) ((61) (let ((e-11 (vector-ref sc0 3))) (TTImpC-45ElabC-45Rewrite-rewriteErr e-11))) ((62) (let ((e-14 (vector-ref sc0 3))) (TTImpC-45ElabC-45Rewrite-rewriteErr e-14))) ((63) (let ((e-17 (vector-ref sc0 3))) (TTImpC-45ElabC-45Rewrite-rewriteErr e-17))) ((64) (let ((e-20 (vector-ref sc0 3))) (TTImpC-45ElabC-45Rewrite-rewriteErr e-20))) ((5) (let ((e-26 (vector-ref sc0 6))) (TTImpC-45ElabC-45Rewrite-rewriteErr e-26)))(else 1))))) -(define TTImpC-45ElabC-45Rewrite-getRewriteTerms (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((act-24 (CoreC-45Context-isEqualTy arg-1 e-2 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (cond ((equal? sc2 0) (let ((bind-0 0)) ((TTImpC-45ElabC-45Rewrite-case--caseC-32blockC-32inC-32getRewriteTerms-824 arg-0 e-5 e-4 e-3 e-2 e-1 arg-5 arg-3 arg-2 arg-1 bind-0 (DataC-45List-reverse (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5))) ext-0))) (else (CoreC-45Core-u--throw_Catchable_Core_Error arg-5 ext-0)))))))))))))))(else (CoreC-45Core-u--throw_Catchable_Core_Error arg-5 ext-0)))))) -(define TTImpC-45ElabC-45Rewrite-findRewriteLemma (lambda (arg-1 arg-2 arg-3 ext-0) (let ((act-24 (CoreC-45Context-getRewrite arg-1 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-2 "No rewrite lemma defined") ext-0)) (else (let ((e-2 (vector-ref sc1 1))) (vector 1 e-2)))))))))))) -(define TTImpC-45ElabC-45Rewrite-elabRewrite (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (CoreC-45UnifyState-genVarName arg-1 arg-2 "rwarg" ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((CoreC-45Normalise-nf arg-1 arg-0 e-5 arg-4 arg-6) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (TTImpC-45ElabC-45Rewrite-getRewriteTerms arg-0 arg-1 arg-3 e-5 e-7 (vector 41 arg-0 arg-3 arg-4 arg-6) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (let ((e-2 (car sc4))) (let ((e-3 (cdr sc4))) (let ((sc5 e-3)) (let ((e-9 (cdr sc5))) (let ((act-28 (TTImpC-45ElabC-45Rewrite-findRewriteLemma arg-1 arg-3 arg-6 ext-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-29 ((CoreC-45Normalise-nf arg-1 arg-0 e-5 arg-4 arg-5) ext-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc7 1))) (let ((act-30 (CoreC-45Normalise-logNF arg-0 arg-1 "elab.rewrite" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Rewriting") arg-4 e-2 ext-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((act-31 (CoreC-45Normalise-logNF arg-0 arg-1 "elab.rewrite" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Rewriting in") arg-4 e-12 ext-0))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((act-32 (CoreC-45Normalise-replace arg-1 arg-0 e-5 arg-4 e-2 (vector 1 arg-3 (vector 0 ) e-6) e-12 ext-0))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-15 (vector-ref sc10 1))) (let ((act-33 (CoreC-45ContextC-45Log-logTerm arg-0 arg-1 "elab.rewrite" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Rewritten to") e-15 ext-0))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((act-34 (CoreC-45Context-clearDefs e-5 ext-0))) (let ((sc12 act-34)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (let ((e-17 (vector-ref sc12 1))) (let ((act-35 (CoreC-45Normalise-u--quote_Quote_NF arg-1 arg-0 e-17 arg-4 e-9 ext-0))) (let ((sc13 act-35)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (vector 0 e-4))) (else (let ((e-18 (vector-ref sc13 1))) (let ((u--pred (vector 3 arg-3 e-6 (vector 0 arg-3 (AlgebraC-45ZeroOneOmega-u--top_Top_ZeroOneOmega) (vector 1 ) e-18) (CoreC-45TT-refsToLocals (vector 1 e-6 e-6 (vector 0 )) e-15)))) (let ((act-36 ((CoreC-45GetType-getType arg-0 arg-1 arg-4 u--pred) ext-0))) (let ((sc14 act-36)) (case (vector-ref sc14 0) ((0) (let ((e-4 (vector-ref sc14 1))) (vector 0 e-4))) (else (let ((e-19 (vector-ref sc14 1))) (let ((act-37 ((CoreC-45Normalise-getTerm e-19) ext-0))) (let ((sc15 act-37)) (case (vector-ref sc15 0) ((0) (let ((e-4 (vector-ref sc15 1))) (vector 0 e-4))) (else (let ((e-20 (vector-ref sc15 1))) (let ((act-38 (CoreC-45Normalise-u--quote_Quote_Term arg-1 arg-0 e-5 arg-4 arg-5 ext-0))) (let ((sc16 act-38)) (case (vector-ref sc16 0) ((0) (let ((e-4 (vector-ref sc16 1))) (vector 0 e-4))) (else (let ((e-21 (vector-ref sc16 1))) (let ((act-39 (let ((act-39 (CoreC-45Normalise-u--convert_Convert_Term arg-1 arg-0 e-5 arg-4 e-15 e-21 ext-0))) (let ((sc17 act-39)) (case (vector-ref sc17 0) ((0) (let ((e-4 (vector-ref sc17 1))) (vector 0 e-4))) (else (let ((e-22 (vector-ref sc17 1))) (let ((sc18 e-22)) (cond ((equal? sc18 0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 40 arg-0 arg-3 arg-4 arg-6 e-21) ext-0)) (else (vector 1 (vector 0 )))))))))))) (let ((sc17 act-39)) (case (vector-ref sc17 0) ((0) (let ((e-4 (vector-ref sc17 1))) (vector 0 e-4))) (else (vector 1 (cons e-11 (cons u--pred e-20))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) -(define TTImpC-45ElabC-45Rewrite-checkRewrite (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 ext-0) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-9 "Can't infer a type for rewrite") ext-0)) (else (let ((e-2 (vector-ref sc0 1))) (TTImpC-45ElabC-45Delayed-delayOnFailure arg-0 arg-1 arg-2 arg-3 arg-4 arg-9 arg-5 arg-8 e-2 (lambda (eta-0) (TTImpC-45ElabC-45Rewrite-rewriteErr eta-0)) (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda (u--delayed) (lambda (eta-0) (let ((act-24 ((TTImpC-45ElabC-45Check-check arg-0 arg-1 arg-2 arg-3 arg-4 (AlgebraC-45Semiring-erased (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))) arg-6 arg-7 arg-8 arg-10 (vector 0 )) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-4 (car sc2))) (let ((e-3 (cdr sc2))) (let ((act-25 ((CoreC-45Normalise-getTerm e-3) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 ((CoreC-45Normalise-getTerm e-2) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-27 (let ((sc5 u--delayed)) (cond ((equal? sc5 0) (CoreC-45ContextC-45Log-log arg-1 "elab.rewrite" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Retrying rewrite") eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((act-28 (TTImpC-45ElabC-45Rewrite-elabRewrite arg-0 arg-1 arg-3 arg-9 arg-8 e-7 e-6 eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc6 1))) (let ((sc7 e-9)) (let ((e-11 (car sc7))) (let ((e-10 (cdr sc7))) (let ((sc8 e-10)) (let ((e-13 (car sc8))) (let ((e-12 (cdr sc8))) (let ((act-29 (CoreC-45UnifyState-genVarName arg-1 arg-3 "_" eta-0))) (let ((sc9 act-29)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc9 1))) (let ((act-30 (CoreC-45UnifyState-genVarName arg-1 arg-3 "_" eta-0))) (let ((sc10 act-30)) (case (vector-ref sc10 0) ((0) (let ((e-15 (vector-ref sc10 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc10 1))) (let ((u--pbind (vector 1 arg-9 (AlgebraC-45Semiring-erased (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))) e-13 e-12))) (let ((u--rbind (vector 1 arg-9 (AlgebraC-45Semiring-erased (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))) (CoreC-45TT-u--weaken_Weaken_Term e-4) (CoreC-45TT-u--weaken_Weaken_Term e-6)))) (let ((u--envC-39 (cons u--rbind (cons u--pbind arg-8)))) (let ((act-31 (TTImpC-45ElabC-45Check-inScope e-15 arg-0 arg-1 arg-4 arg-9 (cons u--pbind arg-8) (lambda (u--eC-39) (lambda (eta-1) (TTImpC-45ElabC-45Check-inScope e-14 (cons e-15 arg-0) arg-1 u--eC-39 arg-9 u--envC-39 (lambda (u--eC-39C-39) (TTImpC-45ElabC-45Check-check (cons e-14 (cons e-15 arg-0)) arg-1 arg-2 arg-3 u--eC-39C-39 arg-5 arg-6 (TTImpC-45TTImp-u--weaken_Weaken_NestedNames (TTImpC-45TTImp-u--weaken_Weaken_NestedNames arg-7)) u--envC-39 (TTImpC-45TTImp-apply (vector 0 arg-9 e-11) (cons (vector 0 arg-9 e-15) (cons (vector 0 arg-9 e-14) (cons arg-11 '())))) (vector 1 (CoreC-45Normalise-gnf (cons e-14 (cons e-15 arg-0)) u--envC-39 (CoreC-45TT-u--weakenNs_Weaken_Term (CoreC-45TTC-45SizeOf-mkSizeOf (cons e-14 (cons e-15 '()))) e-7))))) eta-1))) eta-0))) (let ((sc11 act-31)) (case (vector-ref sc11 0) ((0) (let ((e-16 (vector-ref sc11 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc11 1))) (let ((sc12 e-16)) (let ((e-18 (car sc12))) (let ((e-17 (cdr sc12))) (let ((act-32 ((CoreC-45Normalise-getTerm e-17) eta-0))) (let ((sc13 act-32)) (case (vector-ref sc13 0) ((0) (let ((e-19 (vector-ref sc13 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref sc13 1))) (vector 1 (cons (vector 3 arg-9 e-15 u--pbind (vector 3 arg-9 e-14 u--rbind e-18)) (CoreC-45Normalise-gnf arg-0 arg-8 (vector 3 arg-9 e-15 u--pbind (vector 3 arg-9 e-14 u--rbind e-19)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) ext-0))))))) -(define TTImpC-45ElabC-45Record-case--checkUpdate-1788 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((1) (CoreC-45Unify-inLHS))(else (CoreC-45Unify-inTerm)))))) -(define TTImpC-45ElabC-45Record-case--recUpdate-1633 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 ext-0) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((act-24 (TTImpC-45ElabC-45Record-genFieldName arg-10 "__fld" ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTImpC-45ElabC-45Record-getAllSides arg-11 arg-10 arg-6 arg-3 e-1 arg-2 (vector 0 (vector 0 ) e-5 (vector 0 arg-6 (vector 1 e-5))) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 4 arg-6 arg-2 (vector 32 arg-6 1) (cons (TTImpC-45ElabC-45Record-n--12484-1612-u--mkClause arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-6) '()))))))))))))))) (else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 22 arg-0 arg-6 arg-4) ext-0)))))) -(define TTImpC-45ElabC-45Record-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32findPath-1403 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 ext-0) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-6 (cdr sc1))) (let ((act-24 ((TTImpC-45ElabC-45Record-findPath arg-10 arg-9 arg-8 arg-1 arg-7 e-6 arg-5 arg-11) ext-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (vector 1 (vector 1 arg-4 arg-3 (TTImpC-45ElabC-45Record-replace arg-0 e-7 arg-2)))))))))))) (else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 23 arg-8 arg-0 arg-6) ext-0)))))) -(define TTImpC-45ElabC-45Record-case--findPath-1322 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 ext-0) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((act-24 (let ((act-24 (unbox arg-10))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTImpC-45ElabC-45Record-findFields arg-10 e-5 arg-3 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-2 (vector-ref sc3 1))) (let ((_-0 (vector 1 e-2))) (TTImpC-45ElabC-45Record-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32findPath-1403 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-1 e-5 e-2 _-0 (DataC-45List-lookup (cons (lambda (arg-12) (lambda (arg-13) (PreludeC-45EqOrd-u--C-61C-61_Eq_String arg-12 arg-13))) (lambda (arg-12) (lambda (arg-13) (PreludeC-45EqOrd-u--C-47C-61_Eq_String arg-12 arg-13)))) arg-0 e-2) ext-0)))) (else (vector 1 (vector 1 arg-4 arg-3 arg-2))))))))))))))))) (else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 23 arg-8 arg-0 arg-6) ext-0)))))) -(define TTImpC-45ElabC-45Record-case--replace-1022 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (cons (cons arg-4 arg-3) arg-2)) (else (cons (cons arg-0 arg-1) (TTImpC-45ElabC-45Record-replace arg-4 arg-3 arg-2))))))) -(define TTImpC-45ElabC-45Record-n--12484-1612-u--mkClause (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (vector 0 arg-6 (TTImpC-45ElabC-45Record-toLHS arg-6 arg-12) (TTImpC-45ElabC-45Record-toRHS arg-6 arg-12)))) -(define TTImpC-45ElabC-45Record-n--11881-1102-u--mkArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (if (null? sc0) (lambda (eta-0) (vector 1 '())) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (lambda (clam-0) (let ((sc1 e-2)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (let ((sc2 e-7)) (let ((e-10 (car sc2))) (let ((act-24 (TTImpC-45ElabC-45Record-genFieldName arg-9 e-6 clam-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((TTImpC-45ElabC-45Record-n--11881-1102-u--mkArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-3) clam-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((u--arg (PreludeC-45Types-maybe (lambda () (vector 0 (vector 1 ) (vector 1 e-5))) (lambda () (lambda (eta-0) (vector 32 arg-8 1))) e-10))) (vector 1 (cons (cons e-6 (vector 0 e-10 e-5 u--arg)) e-8))))))))))))))))))))))))) -(define TTImpC-45ElabC-45Record-n--11602-804-u--getExpNames (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-8 (vector-ref sc1 3))) (let ((e-9 (vector-ref sc1 4))) (let ((act-24 (let ((act-24 (((e-4 arg-1) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 e-1 1))) ext-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (TTImpC-45ElabC-45Record-n--11602-804-u--getExpNames arg-0 arg-1 arg-2 e-5 ext-0)))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((u--imp (let ((sc3 e-8)) (case (vector-ref sc3 0) ((1) (vector 0 ))(else (vector 1 e-2)))))) (vector 1 (cons (cons (CoreC-45Name-nameRoot e-2) (cons u--imp (TTImpC-45ElabC-45Record-getRecordType '() e-9))) e-5)))))))))))(else (vector 1 '())))))))))(else (vector 1 '())))))) -(define TTImpC-45ElabC-45Record-toRHSC-39 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (cons e-0 e-2)))) (else (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((u--argsC-39 (PreludeC-45Types-u--map_Functor_List (lambda (u--a) (TTImpC-45ElabC-45Record-toRHSC-39 arg-0 (Builtin-snd u--a))) e-5))) (cons e-3 (TTImpC-45ElabC-45Record-applyImp (vector 0 arg-0 e-4) u--argsC-39))))))))))) +(define CoreC-45GetType-chk (lambda (arg-0 arg-1 arg-2 arg-3) (case (vector-ref arg-3 0) ((0) (let ((e-4 (vector-ref arg-3 3))) (lambda (eta-0) (vector 1 (CoreC-45Normalise-gnf arg-0 arg-2 (CoreC-45TT-binderType (CoreC-45Env-getBinder (cons (lambda (u--n) (lambda (u--vars) (lambda (arg-5607) (CoreC-45TT-u--weaken_Weaken_Term arg-5607)))) (lambda (u--vars) (lambda (u--ns) (lambda (arg-5613) (lambda (arg-5615) (CoreC-45TT-u--weakenNs_Weaken_Term arg-5613 arg-5615)))))) arg-0 e-4 arg-2))))))) ((1) (let ((e-7 (vector-ref arg-3 1))) (let ((e-9 (vector-ref arg-3 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-lookupTyExact e-9 (let ((e-0 (vector-ref e-5 0))) e-0) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (if (null? e-6) (CoreC-45Context-undefinedName arg-1 e-7 e-9 eta-0) (let ((e-1 (unbox e-6))) (vector 1 (CoreC-45Normalise-gnf arg-0 arg-2 (CoreC-45TT-embed e-1))))))))))))))))) ((2) (let ((e-11 (vector-ref arg-3 1))) (let ((e-12 (vector-ref arg-3 2))) (let ((e-13 (vector-ref arg-3 3))) (let ((e-14 (vector-ref arg-3 4))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-lookupTyExact (vector 9 e-13) (let ((e-0 (vector-ref e-5 0))) e-0) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (if (null? e-6) (CoreC-45Context-undefinedName arg-1 e-11 e-12 eta-0) (let ((e-1 (unbox e-6))) (let ((act-26 ((CoreC-45Normalise-nf arg-1 arg-0 e-5 arg-2 (CoreC-45TT-embed e-1)) eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) ((CoreC-45GetType-chkMeta arg-0 arg-1 e-11 arg-2 e-7 e-14) eta-0))))))))))))))))))))) ((3) (let ((e-16 (vector-ref arg-3 1))) (let ((e-17 (vector-ref arg-3 2))) (let ((e-18 (vector-ref arg-3 3))) (let ((e-19 (vector-ref arg-3 4))) (lambda (eta-0) (let ((act-24 ((CoreC-45GetType-chkBinder arg-0 arg-1 arg-2 e-18) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45GetType-chk (cons e-17 arg-0) arg-1 (cons e-18 arg-2) e-19) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 ((CoreC-45Normalise-getTerm e-5) eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 ((CoreC-45Normalise-getTerm e-6) eta-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (vector 1 (CoreC-45Normalise-gnf arg-0 arg-2 (CoreC-45GetType-discharge e-16 e-17 e-18 e-7 e-8))))))))))))))))))))))))) ((4) (let ((e-21 (vector-ref arg-3 1))) (let ((e-22 (vector-ref arg-3 2))) (let ((e-23 (vector-ref arg-3 3))) (lambda (eta-0) (let ((act-24 ((CoreC-45GetType-chk arg-0 arg-1 arg-2 e-22) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Normalise-getNF arg-1 e-5) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (case (vector-ref e-6 0) ((0) (let ((e-3 (vector-ref e-6 3))) (let ((e-4 (vector-ref e-6 4))) (case (vector-ref e-3 0) ((2) (let ((act-26 (let ((act-26 (unbox arg-1))) (vector 1 act-26)))) (case (vector-ref act-26 0) ((0) (let ((e-11 (vector-ref act-26 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-26 1))) (let ((act-27 ((CoreC-45GetType-chk arg-0 arg-1 arg-2 e-23) eta-0))) (case (vector-ref act-27 0) ((0) (let ((e-12 (vector-ref act-27 1))) (vector 0 e-12))) (else (let ((act-28 (((e-4 e-11) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) arg-2 e-23)) eta-0))) (case (vector-ref act-28 0) ((0) (let ((e-13 (vector-ref act-28 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref act-28 1))) (vector 1 (CoreC-45Normalise-glueBack arg-1 arg-0 e-11 arg-2 e-13))))))))))))))(else (let ((act-26 ((CoreC-45Normalise-getTerm e-5) eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-7 (vector-ref act-26 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-26 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 39 arg-0 e-21 arg-2 e-7) eta-0))))))))))(else (let ((act-26 ((CoreC-45Normalise-getTerm e-5) eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 39 arg-0 e-21 arg-2 e-7) eta-0)))))))))))))))))))) ((5) (let ((e-28 (vector-ref arg-3 4))) (CoreC-45GetType-chk arg-0 arg-1 arg-2 e-28))) ((6) (let ((e-30 (vector-ref arg-3 1))) (lambda (eta-0) (vector 1 (CoreC-45Normalise-gType e-30))))) ((7) (let ((e-34 (vector-ref arg-3 1))) (let ((e-35 (vector-ref arg-3 2))) (let ((e-37 (vector-ref arg-3 4))) (lambda (eta-0) (let ((act-24 ((CoreC-45GetType-chk arg-0 arg-1 arg-2 e-37) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Normalise-getNF arg-1 e-5) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (let ((act-26 (unbox arg-1))) (vector 1 act-26)))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (CoreC-45Normalise-glueBack arg-1 arg-0 e-7 arg-2 (vector 5 e-34 e-35 e-6)))))))))))))))))))) ((8) (let ((e-39 (vector-ref arg-3 1))) (let ((e-41 (vector-ref arg-3 3))) (lambda (eta-0) (let ((act-24 ((CoreC-45GetType-chk arg-0 arg-1 arg-2 e-41) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Normalise-getNF arg-1 e-5) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (case (vector-ref e-6 0) ((5) (let ((e-3 (vector-ref e-6 3))) (let ((act-26 (let ((act-26 (unbox arg-1))) (vector 1 act-26)))) (case (vector-ref act-26 0) ((0) (let ((e-4 (vector-ref act-26 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (CoreC-45Normalise-glueBack arg-1 arg-0 e-7 arg-2 e-3))))))))(else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 e-39 "Not a delayed type") eta-0))))))))))))))) ((9) (let ((e-43 (vector-ref arg-3 1))) (let ((e-44 (vector-ref arg-3 2))) (lambda (eta-0) (vector 1 (CoreC-45Normalise-gnf arg-0 arg-2 (CoreC-45GetType-chkConstant e-43 e-44))))))) ((11) (let ((e-46 (vector-ref arg-3 1))) (lambda (eta-0) (vector 1 (CoreC-45Normalise-gType e-46))))) (else (let ((e-48 (vector-ref arg-3 1))) (lambda (eta-0) (vector 1 (CoreC-45Normalise-gErased e-48)))))))) +(define TTImpC-45ElabC-45Rewrite-rewriteErr (lambda (arg-0) (case (vector-ref arg-0 0) ((41) 1) ((40) 1) ((62) (let ((e-11 (vector-ref arg-0 3))) (TTImpC-45ElabC-45Rewrite-rewriteErr e-11))) ((63) (let ((e-14 (vector-ref arg-0 3))) (TTImpC-45ElabC-45Rewrite-rewriteErr e-14))) ((64) (let ((e-17 (vector-ref arg-0 3))) (TTImpC-45ElabC-45Rewrite-rewriteErr e-17))) ((65) (let ((e-20 (vector-ref arg-0 3))) (TTImpC-45ElabC-45Rewrite-rewriteErr e-20))) ((5) (let ((e-26 (vector-ref arg-0 6))) (TTImpC-45ElabC-45Rewrite-rewriteErr e-26)))(else 0)))) +(define TTImpC-45ElabC-45Rewrite-getRewriteTerms (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (case (vector-ref arg-4 0) ((3) (let ((e-2 (vector-ref arg-4 2))) (let ((e-5 (vector-ref arg-4 5))) (let ((act-24 (CoreC-45Context-isEqualTy arg-1 e-2 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (cond ((equal? e-6 1) (let ((sc3 (DataC-45List-reverse (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)))) (if (null? sc3) (CoreC-45Core-u--throw_Catchable_Core_Error arg-5 ext-0) (let ((e-8 (car sc3))) (let ((e-7 (cdr sc3))) (if (null? e-7) (CoreC-45Core-u--throw_Catchable_Core_Error arg-5 ext-0) (let ((e-10 (car e-7))) (let ((e-9 (cdr e-7))) (if (null? e-9) (CoreC-45Core-u--throw_Catchable_Core_Error arg-5 ext-0) (let ((e-11 (cdr e-9))) (if (null? e-11) (CoreC-45Core-u--throw_Catchable_Core_Error arg-5 ext-0) (let ((e-14 (car e-11))) (let ((act-25 ((CoreC-45Normalise-evalClosure arg-1 arg-0 arg-3 e-10) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-15 (vector-ref act-25 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref act-25 1))) (let ((act-26 ((CoreC-45Normalise-evalClosure arg-1 arg-0 arg-3 e-8) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-16 (vector-ref act-26 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref act-26 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-1 arg-0 arg-3 e-14) ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-17 (vector-ref act-27 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref act-27 1))) (vector 1 (cons e-15 (cons e-16 e-17))))))))))))))))))))))))))) (else (CoreC-45Core-u--throw_Catchable_Core_Error arg-5 ext-0))))))))))(else (CoreC-45Core-u--throw_Catchable_Core_Error arg-5 ext-0))))) +(define TTImpC-45ElabC-45Rewrite-findRewriteLemma (lambda (arg-1 arg-2 arg-3 ext-0) (let ((act-24 (CoreC-45Context-getRewrite arg-1 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (if (null? e-5) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-2 "No rewrite lemma defined") ext-0) (let ((e-2 (unbox e-5))) (vector 1 e-2))))))))) +(define TTImpC-45ElabC-45Rewrite-elabRewrite (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45UnifyState-genVarName arg-1 arg-2 "rwarg" ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 ((CoreC-45Normalise-nf arg-1 arg-0 e-5 arg-4 arg-6) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (TTImpC-45ElabC-45Rewrite-getRewriteTerms arg-0 arg-1 arg-3 e-5 e-7 (vector 41 arg-0 arg-3 arg-4 arg-6) ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (let ((e-2 (car e-8))) (let ((e-3 (cdr e-8))) (let ((e-9 (cdr e-3))) (let ((act-28 (TTImpC-45ElabC-45Rewrite-findRewriteLemma arg-1 arg-3 arg-6 ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-4 (vector-ref act-28 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref act-28 1))) (let ((act-29 ((CoreC-45Normalise-nf arg-1 arg-0 e-5 arg-4 arg-5) ext-0))) (case (vector-ref act-29 0) ((0) (let ((e-4 (vector-ref act-29 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref act-29 1))) (let ((act-30 (CoreC-45Normalise-logNF arg-0 arg-1 "elab.rewrite" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Rewriting") arg-4 e-2 ext-0))) (case (vector-ref act-30 0) ((0) (let ((e-4 (vector-ref act-30 1))) (vector 0 e-4))) (else (let ((act-31 (CoreC-45Normalise-logNF arg-0 arg-1 "elab.rewrite" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Rewriting in") arg-4 e-12 ext-0))) (case (vector-ref act-31 0) ((0) (let ((e-4 (vector-ref act-31 1))) (vector 0 e-4))) (else (let ((act-32 (CoreC-45Normalise-replace arg-1 arg-0 e-5 arg-4 e-2 (vector 1 arg-3 (vector 0 ) e-6) e-12 ext-0))) (case (vector-ref act-32 0) ((0) (let ((e-4 (vector-ref act-32 1))) (vector 0 e-4))) (else (let ((e-15 (vector-ref act-32 1))) (let ((act-33 (CoreC-45ContextC-45Log-logTerm arg-0 arg-1 "elab.rewrite" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Rewritten to") e-15 ext-0))) (case (vector-ref act-33 0) ((0) (let ((e-4 (vector-ref act-33 1))) (vector 0 e-4))) (else (let ((act-34 (CoreC-45Context-clearDefs e-5 ext-0))) (case (vector-ref act-34 0) ((0) (let ((e-4 (vector-ref act-34 1))) (vector 0 e-4))) (else (let ((e-17 (vector-ref act-34 1))) (let ((act-35 (CoreC-45Normalise-u--quote_Quote_NF arg-1 arg-0 e-17 arg-4 e-9 ext-0))) (case (vector-ref act-35 0) ((0) (let ((e-4 (vector-ref act-35 1))) (vector 0 e-4))) (else (let ((e-18 (vector-ref act-35 1))) (let ((u--pred (vector 3 arg-3 e-6 (vector 0 arg-3 (AlgebraC-45ZeroOneOmega-u--top_Top_ZeroOneOmega) (vector 1 ) e-18) (CoreC-45TT-refsToLocals (vector 1 e-6 e-6 (vector 0 )) e-15)))) (let ((act-36 ((CoreC-45GetType-getType arg-0 arg-1 arg-4 u--pred) ext-0))) (case (vector-ref act-36 0) ((0) (let ((e-4 (vector-ref act-36 1))) (vector 0 e-4))) (else (let ((e-19 (vector-ref act-36 1))) (let ((act-37 ((CoreC-45Normalise-getTerm e-19) ext-0))) (case (vector-ref act-37 0) ((0) (let ((e-4 (vector-ref act-37 1))) (vector 0 e-4))) (else (let ((e-20 (vector-ref act-37 1))) (let ((act-38 (CoreC-45Normalise-u--quote_Quote_Term arg-1 arg-0 e-5 arg-4 arg-5 ext-0))) (case (vector-ref act-38 0) ((0) (let ((e-4 (vector-ref act-38 1))) (vector 0 e-4))) (else (let ((e-21 (vector-ref act-38 1))) (let ((act-39 (let ((act-39 (CoreC-45Normalise-u--convert_Convert_Term arg-1 arg-0 e-5 arg-4 e-15 e-21 ext-0))) (case (vector-ref act-39 0) ((0) (let ((e-4 (vector-ref act-39 1))) (vector 0 e-4))) (else (let ((e-22 (vector-ref act-39 1))) (cond ((equal? e-22 1) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 40 arg-0 arg-3 arg-4 arg-6 e-21) ext-0)) (else (vector 1 0))))))))) (case (vector-ref act-39 0) ((0) (let ((e-4 (vector-ref act-39 1))) (vector 0 e-4))) (else (vector 1 (cons e-11 (cons u--pred e-20))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) +(define TTImpC-45ElabC-45Rewrite-checkRewrite (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 ext-0) (if (null? arg-12) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-9 "Can't infer a type for rewrite") ext-0) (let ((e-2 (unbox arg-12))) (TTImpC-45ElabC-45Delayed-delayOnFailure arg-0 arg-1 arg-2 arg-3 arg-4 arg-9 arg-5 arg-8 e-2 (lambda (eta-0) (TTImpC-45ElabC-45Rewrite-rewriteErr eta-0)) (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda (u--delayed) (let ((u--vfc (CoreC-45FC-virtualiseFC arg-9))) (lambda (eta-0) (let ((act-24 (TTImpC-45ElabC-45Check-check arg-0 arg-1 arg-2 arg-3 arg-4 (AlgebraC-45Semiring-erased (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))) arg-6 arg-7 arg-8 arg-10 '() eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref act-24 1))) (let ((e-4 (car e-5))) (let ((e-3 (cdr e-5))) (let ((act-25 ((CoreC-45Normalise-getTerm e-3) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-6 (vector-ref act-25 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 ((CoreC-45Normalise-getTerm e-2) eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-7 (vector-ref act-26 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (cond ((equal? u--delayed 1) (CoreC-45ContextC-45Log-log arg-1 "elab.rewrite" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Retrying rewrite") eta-0)) (else (vector 1 0))))) (case (vector-ref act-27 0) ((0) (let ((e-8 (vector-ref act-27 1))) (vector 0 e-8))) (else (let ((act-28 (TTImpC-45ElabC-45Rewrite-elabRewrite arg-0 arg-1 arg-3 u--vfc arg-8 e-7 e-6 eta-0))) (case (vector-ref act-28 0) ((0) (let ((e-9 (vector-ref act-28 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref act-28 1))) (let ((e-11 (car e-9))) (let ((e-10 (cdr e-9))) (let ((e-13 (car e-10))) (let ((e-12 (cdr e-10))) (let ((act-29 (CoreC-45UnifyState-genVarName arg-1 arg-3 "_" eta-0))) (case (vector-ref act-29 0) ((0) (let ((e-14 (vector-ref act-29 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref act-29 1))) (let ((act-30 (CoreC-45UnifyState-genVarName arg-1 arg-3 "_" eta-0))) (case (vector-ref act-30 0) ((0) (let ((e-15 (vector-ref act-30 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref act-30 1))) (let ((u--pbind (vector 1 u--vfc (AlgebraC-45Semiring-erased (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))) e-13 e-12))) (let ((u--rbind (vector 1 u--vfc (AlgebraC-45Semiring-erased (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))) (CoreC-45TT-u--weaken_Weaken_Term e-4) (CoreC-45TT-u--weaken_Weaken_Term e-6)))) (let ((u--envC-39 (cons u--rbind (cons u--pbind arg-8)))) (let ((act-31 (TTImpC-45ElabC-45Check-inScope e-15 arg-0 arg-1 arg-4 u--vfc (cons u--pbind arg-8) (lambda (u--eC-39) (lambda (eta-1) (TTImpC-45ElabC-45Check-inScope e-14 (cons e-15 arg-0) arg-1 u--eC-39 u--vfc u--envC-39 (lambda (u--eC-39C-39) (let ((u--offset (CoreC-45TTC-45SizeOf-mkSizeOf (cons e-14 (cons e-15 '()))))) (lambda (eta-2) (TTImpC-45ElabC-45Check-check (cons e-14 (cons e-15 arg-0)) arg-1 arg-2 arg-3 u--eC-39C-39 arg-5 arg-6 (TTImpC-45TTImp-u--weakenNs_Weaken_NestedNames u--offset arg-7) u--envC-39 (TTImpC-45TTImp-apply (vector 0 u--vfc e-11) (cons (vector 0 u--vfc e-15) (cons (vector 0 u--vfc e-14) (cons arg-11 '())))) (box (CoreC-45Normalise-gnf (cons e-14 (cons e-15 arg-0)) u--envC-39 (CoreC-45TT-u--weakenNs_Weaken_Term u--offset e-7))) eta-2)))) eta-1))) eta-0))) (case (vector-ref act-31 0) ((0) (let ((e-16 (vector-ref act-31 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref act-31 1))) (let ((e-18 (car e-16))) (let ((e-17 (cdr e-16))) (let ((act-32 ((CoreC-45Normalise-getTerm e-17) eta-0))) (case (vector-ref act-32 0) ((0) (let ((e-19 (vector-ref act-32 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref act-32 1))) (let ((u--binding (lambda (eta-1) (vector 3 u--vfc e-15 u--pbind (vector 3 u--vfc e-14 u--rbind eta-1))))) (vector 1 (cons (u--binding e-18) (CoreC-45Normalise-gnf arg-0 arg-8 (u--binding e-19)))))))))))))))))))))))))))))))))))))))))))))))))))))) ext-0))))) +(define TTImpC-45ElabC-45Record-n--8793-14544-u--vloc (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (CoreC-45FC-virtualiseFC arg-6))) +(define TTImpC-45ElabC-45Record-n--8793-14545-u--mkClause (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (vector 0 (TTImpC-45ElabC-45Record-n--8793-14544-u--vloc arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (TTImpC-45ElabC-45Record-toLHS (TTImpC-45ElabC-45Record-n--8793-14544-u--vloc arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) arg-12) (TTImpC-45ElabC-45Record-toRHS (TTImpC-45ElabC-45Record-n--8793-14544-u--vloc arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) arg-12)))) +(define TTImpC-45ElabC-45Record-n--8175-14024-u--mkArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (if (null? arg-11) (lambda (eta-0) (vector 1 '())) (let ((e-2 (car arg-11))) (let ((e-3 (cdr arg-11))) (lambda (clam-0) (let ((e-6 (car e-2))) (let ((e-7 (cdr e-2))) (let ((e-10 (car e-7))) (let ((act-24 (TTImpC-45ElabC-45Record-genFieldName arg-9 e-6 clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((TTImpC-45ElabC-45Record-n--8175-14024-u--mkArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-3) clam-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref act-25 1))) (let ((u--arg (PreludeC-45Types-maybe (lambda () (vector 0 (vector 2 ) (vector 1 e-5))) (lambda () (lambda (eta-0) (vector 32 arg-8 0))) e-10))) (vector 1 (cons (cons e-6 (vector 0 e-10 e-5 u--arg)) e-8)))))))))))))))))))) +(define TTImpC-45ElabC-45Record-n--7882-13718-u--getExpNames (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (case (vector-ref arg-3 0) ((0) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-3 (vector-ref arg-3 3))) (let ((e-4 (vector-ref arg-3 4))) (case (vector-ref e-3 0) ((2) (let ((e-8 (vector-ref e-3 3))) (let ((e-9 (vector-ref e-3 4))) (let ((act-24 (let ((act-24 (((e-4 arg-1) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 e-1 0))) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (TTImpC-45ElabC-45Record-n--7882-13718-u--getExpNames arg-0 arg-1 arg-2 e-5 ext-0))))))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((u--imp (case (vector-ref e-8 0) ((1) '())(else (box e-2))))) (vector 1 (cons (cons (CoreC-45Name-nameRoot e-2) (cons u--imp (TTImpC-45ElabC-45Record-getRecordType '() e-9))) e-5))))))))))(else (vector 1 '()))))))))(else (vector 1 '()))))) +(define TTImpC-45ElabC-45Record-toRHSC-39 (lambda (arg-0 arg-1) (case (vector-ref arg-1 0) ((0) (let ((e-0 (vector-ref arg-1 1))) (let ((e-2 (vector-ref arg-1 3))) (cons e-0 e-2)))) (else (let ((e-3 (vector-ref arg-1 1))) (let ((e-4 (vector-ref arg-1 2))) (let ((e-5 (vector-ref arg-1 3))) (let ((u--argsC-39 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (TTImpC-45ElabC-45Record-toRHSC-39 arg-0 (Builtin-snd eta-0))) e-5))) (cons e-3 (TTImpC-45ElabC-45Record-applyImp (vector 0 arg-0 e-4) u--argsC-39)))))))))) (define TTImpC-45ElabC-45Record-toRHS (lambda (arg-0 arg-1) (Builtin-snd (TTImpC-45ElabC-45Record-toRHSC-39 arg-0 arg-1)))) -(define TTImpC-45ElabC-45Record-toLHSC-39 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 e-0)) (case (vector-ref sc1 0) ((1) (cons e-0 (vector 18 arg-0 (vector 1 ) (vector 1 ) (vector 1 e-1) (vector 32 arg-0 0))))(else (cons e-0 (vector 17 (vector 1 ) e-1)))))))) (else (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((u--argsC-39 (PreludeC-45Types-u--map_Functor_List (lambda (u--a) (TTImpC-45ElabC-45Record-toLHSC-39 arg-0 (Builtin-snd u--a))) e-5))) (cons e-3 (TTImpC-45ElabC-45Record-applyImp (vector 0 arg-0 e-4) u--argsC-39))))))))))) +(define TTImpC-45ElabC-45Record-toLHSC-39 (lambda (arg-0 arg-1) (case (vector-ref arg-1 0) ((0) (let ((e-0 (vector-ref arg-1 1))) (let ((e-1 (vector-ref arg-1 2))) (if (null? e-0) (cons e-0 (vector 17 (vector 2 ) e-1)) (cons e-0 (vector 18 arg-0 (vector 2 ) 1 (vector 1 e-1) (vector 32 arg-0 1))))))) (else (let ((e-3 (vector-ref arg-1 1))) (let ((e-4 (vector-ref arg-1 2))) (let ((e-5 (vector-ref arg-1 3))) (let ((u--argsC-39 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (TTImpC-45ElabC-45Record-toLHSC-39 arg-0 (Builtin-snd eta-0))) e-5))) (cons e-3 (TTImpC-45ElabC-45Record-applyImp (vector 0 arg-0 e-4) u--argsC-39)))))))))) (define TTImpC-45ElabC-45Record-toLHS (lambda (arg-0 arg-1) (Builtin-snd (TTImpC-45ElabC-45Record-toLHSC-39 arg-0 arg-1)))) -(define TTImpC-45ElabC-45Record-replace (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (if (null? sc0) '() (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (TTImpC-45ElabC-45Record-case--replace-1022 e-6 e-7 e-3 arg-1 arg-0 (PreludeC-45EqOrd-u--C-61C-61_Eq_String arg-0 e-6))))))))))) -(define TTImpC-45ElabC-45Record-recUpdate (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((CoreC-45Normalise-getNF arg-1 arg-11) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (TTImpC-45ElabC-45Record-case--recUpdate-1633 arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-6 (TTImpC-45ElabC-45Record-getRecordType arg-8 e-6) ext-0))))))))))))) -(define TTImpC-45ElabC-45Record-needType (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((22) 0) ((61) (let ((e-5 (vector-ref sc0 3))) (TTImpC-45ElabC-45Record-needType e-5))) ((62) (let ((e-8 (vector-ref sc0 3))) (TTImpC-45ElabC-45Record-needType e-8))) ((63) (let ((e-11 (vector-ref sc0 3))) (TTImpC-45ElabC-45Record-needType e-11))) ((64) (let ((e-14 (vector-ref sc0 3))) (TTImpC-45ElabC-45Record-needType e-14))) ((5) (let ((e-20 (vector-ref sc0 6))) (TTImpC-45ElabC-45Record-needType e-20)))(else 1))))) -(define TTImpC-45ElabC-45Record-getSides (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (TTImpC-45ElabC-45Record-findPath arg-0 arg-1 arg-2 e-0 e-0 (vector 1 arg-4) (lambda (eta-0) e-1) arg-6)))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (TTImpC-45ElabC-45Record-findPath arg-0 arg-1 arg-2 e-2 e-2 (vector 1 arg-4) (lambda (u--n) (TTImpC-45TTImp-apply e-3 (cons (vector 0 (vector 1 ) (vector 1 u--n)) '()))) arg-6)))))))) -(define TTImpC-45ElabC-45Record-getRecordType (lambda (arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((3) (let ((e-2 (vector-ref sc0 2))) (vector 1 e-2)))(else (vector 0 )))))) -(define TTImpC-45ElabC-45Record-getAllSides (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((sc0 arg-3)) (if (null? sc0) (vector 1 arg-6) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((act-24 ((TTImpC-45ElabC-45Record-getSides arg-0 arg-1 arg-2 e-2 arg-4 arg-5 arg-6) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (TTImpC-45ElabC-45Record-getAllSides arg-0 arg-1 arg-2 e-3 arg-4 arg-5 e-5 ext-0)))))))))))) -(define TTImpC-45ElabC-45Record-genFieldName (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-10 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-10 (bs+ e-6 1 63) e-7 e-8 e-9))))))))))))))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (PreludeC-45TypesC-45String-C-43C-43 arg-1 (PreludeC-45Show-u--show_Show_Int (let ((sc2 e-5)) (let ((e-10 (vector-ref sc2 7))) e-10)))))))))))))))) -(define TTImpC-45ElabC-45Record-findPath (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-3)) (if (null? sc0) (lambda (clam-0) (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (vector 1 (vector 0 e-4 e-5 (arg-6 e-5))))))(else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 25 arg-2 arg-4) clam-0))))) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((0) (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 23 arg-2 e-2 (vector 0 )) eta-0)))(else (let ((sc2 arg-7)) (let ((e-7 (vector-ref sc2 1))) (let ((e-8 (vector-ref sc2 2))) (let ((e-9 (vector-ref sc2 3))) (lambda (eta-0) (TTImpC-45ElabC-45Record-case--findPath-1322 e-2 e-3 e-9 e-8 e-7 arg-6 arg-5 arg-4 arg-2 arg-1 arg-0 (DataC-45List-lookup (cons (lambda (arg-8) (lambda (arg-9) (PreludeC-45EqOrd-u--C-61C-61_Eq_String arg-8 arg-9))) (lambda (arg-8) (lambda (arg-9) (PreludeC-45EqOrd-u--C-47C-61_Eq_String arg-8 arg-9)))) e-2 e-9) eta-0)))))))))) ((1) (let ((e-12 (vector-ref sc1 1))) (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-16 (vector-ref sc2 1))) (let ((e-17 (vector-ref sc2 2))) (let ((e-18 (vector-ref sc2 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (TTImpC-45ElabC-45Record-findConName e-5 e-12 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc4 1))) (let ((sc5 e-6)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((act-26 (TTImpC-45ElabC-45Record-findFields arg-0 e-5 e-1 eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc6 1))) (let ((sc7 e-7)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((act-27 ((TTImpC-45ElabC-45Record-n--11881-1102-u--mkArgs e-2 e-3 e-12 e-18 e-17 e-16 arg-6 arg-4 arg-2 arg-1 arg-0 e-4) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (let ((u--recC-39 (vector 1 e-16 e-1 e-8))) ((TTImpC-45ElabC-45Record-findPath arg-0 arg-1 arg-2 (cons e-2 e-3) arg-4 (vector 1 e-12) arg-6 u--recC-39) eta-0))))))))) (else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 24 arg-2 e-12) eta-0))))))))))) (else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 24 arg-2 e-12) eta-0)))))))))))))))))))(else (let ((sc2 arg-7)) (let ((e-7 (vector-ref sc2 1))) (let ((e-8 (vector-ref sc2 2))) (let ((e-9 (vector-ref sc2 3))) (lambda (eta-0) (TTImpC-45ElabC-45Record-case--findPath-1322 e-2 e-3 e-9 e-8 e-7 arg-6 arg-5 arg-4 arg-2 arg-1 arg-0 (DataC-45List-lookup (cons (lambda (arg-8) (lambda (arg-9) (PreludeC-45EqOrd-u--C-61C-61_Eq_String arg-8 arg-9))) (lambda (arg-8) (lambda (arg-9) (PreludeC-45EqOrd-u--C-47C-61_Eq_String arg-8 arg-9)))) e-2 e-9) eta-0)))))))))))(else (let ((sc1 arg-7)) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((e-9 (vector-ref sc1 3))) (lambda (eta-0) (TTImpC-45ElabC-45Record-case--findPath-1322 e-2 e-3 e-9 e-8 e-7 arg-6 arg-5 arg-4 arg-2 arg-1 arg-0 (DataC-45List-lookup (cons (lambda (arg-8) (lambda (arg-9) (PreludeC-45EqOrd-u--C-61C-61_Eq_String arg-8 arg-9))) (lambda (arg-8) (lambda (arg-9) (PreludeC-45EqOrd-u--C-47C-61_Eq_String arg-8 arg-9)))) e-2 e-9) eta-0))))))))))))))) -(define TTImpC-45ElabC-45Record-findFields (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (CoreC-45Context-lookupTyExact arg-2 (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) e-0)) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((act-25 ((CoreC-45Normalise-nf arg-0 '() arg-1 '() e-1) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImpC-45ElabC-45Record-n--11602-804-u--getExpNames arg-2 arg-1 arg-0 e-6 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 1 e-7))))))))))))))(else (vector 1 (vector 0 )))))))))))) -(define TTImpC-45ElabC-45Record-findConName (lambda (arg-0 arg-1 ext-0) (let ((act-24 (CoreC-45Context-lookupDefExact arg-1 (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0)) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((sc2 e-1)) (case (vector-ref sc2 0) ((6) (let ((e-8 (vector-ref sc2 7))) (let ((sc3 e-8)) (if (null? sc3) (vector 1 (vector 0 )) (let ((e-11 (car sc3))) (let ((e-12 (cdr sc3))) (let ((sc4 e-12)) (if (null? sc4) (vector 1 (vector 1 e-11)) (vector 1 (vector 0 ))))))))))(else (vector 1 (vector 0 )))))))(else (vector 1 (vector 0 )))))))))))) -(define TTImpC-45ElabC-45Record-checkUpdate (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 ext-0) (let ((act-24 (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (vector 1 e-1)))(else (let ((act-24 ((TTImpC-45ElabC-45Check-checkImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-11 (vector 0 )) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-3 (cdr sc1))) (vector 1 e-3))))))))))))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((u--solvemode (TTImpC-45ElabC-45Record-case--checkUpdate-1788 arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 (let ((sc1 arg-6)) (let ((e-0 (vector-ref sc1 1))) e-0))))) (TTImpC-45ElabC-45Delayed-delayOnFailure arg-0 arg-1 arg-2 arg-3 arg-4 arg-9 arg-5 arg-8 e-5 (lambda (eta-0) (TTImpC-45ElabC-45Record-needType eta-0)) (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (u--delayed) (lambda (eta-0) (let ((act-25 (CoreC-45Unify-solveConstraints arg-1 arg-3 u--solvemode (vector 0 ) eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 ((CoreC-45Normalise-getTerm e-5) eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((u--rectyC-39 (let ((sc3 u--delayed)) (cond ((equal? sc3 0) (CoreC-45Normalise-gnf arg-0 arg-8 e-7)) (else e-5))))) (let ((act-27 (CoreC-45Normalise-logGlueNF arg-0 arg-1 "elab.record" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Bool u--delayed) (PreludeC-45TypesC-45String-C-43C-43 " record type " (TTImpC-45TTImp-u--show_Show_RawImp arg-11)))) arg-8 u--rectyC-39 eta-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-28 (TTImpC-45ElabC-45Record-recUpdate arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-9 arg-7 arg-8 arg-10 arg-11 u--rectyC-39 eta-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-29 (CoreC-45ContextC-45Log-log arg-1 "elab.record" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Record update: " (TTImpC-45TTImp-u--show_Show_RawImp e-9))) eta-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else ((TTImpC-45ElabC-45Check-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-9 arg-12) eta-0)))))))))))))))))))))))))) ext-0))))))))) -(define TTImpC-45ElabC-45Record-applyImp (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (if (null? sc0) arg-0 (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((0) (TTImpC-45ElabC-45Record-applyImp (vector 8 (TTImpC-45TTImp-getFC arg-0) arg-0 e-7) e-3)) (else (let ((e-10 (vector-ref sc2 1))) (TTImpC-45ElabC-45Record-applyImp (vector 10 (TTImpC-45TTImp-getFC arg-0) arg-0 e-10 e-7) e-3)))))))))))))) -(define TTImpC-45ElabC-45Quote-n--12595-7701-u--unqTuple (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (lambda (clam-0) (let ((sc1 e-3)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (let ((sc2 e-7)) (let ((e-10 (car sc2))) (let ((e-11 (cdr sc2))) (let ((act-24 (TTImpC-45ElabC-45Quote-getUnquote arg-5 arg-4 arg-3 e-11 clam-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (vector 1 (cons e-2 (cons e-6 (cons e-10 e-5))))))))))))))))))))) -(define TTImpC-45ElabC-45Quote-n--12587-7575-u--unqPair (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (lambda (clam-0) (let ((sc1 e-3)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (let ((sc2 e-7)) (let ((e-10 (car sc2))) (let ((e-11 (cdr sc2))) (let ((act-24 (TTImpC-45ElabC-45Quote-getUnquote arg-7 arg-6 arg-5 e-11 clam-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (vector 1 (cons e-2 (cons e-6 (cons e-10 e-5))))))))))))))))))))) -(define TTImpC-45ElabC-45Quote-onLHS (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) 0)(else 1))))) -(define TTImpC-45ElabC-45Quote-getUnquoteUpdate (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((act-24 (TTImpC-45ElabC-45Quote-getUnquote arg-0 arg-1 arg-2 e-1 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-0 e-5)))))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((act-24 (TTImpC-45ElabC-45Quote-getUnquote arg-0 arg-1 arg-2 e-3 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-2 e-5)))))))))))))) -(define TTImpC-45ElabC-45Quote-getUnquoteTy (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((act-24 (TTImpC-45ElabC-45Quote-getUnquote arg-0 arg-1 arg-2 e-3 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-0 e-1 e-2 e-5)))))))))))))) -(define TTImpC-45ElabC-45Quote-getUnquoteRecord (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (TTImpC-45ElabC-45Quote-n--12587-7575-u--unqPair e-4 e-3 e-2 e-1 e-0 arg-2 arg-1 arg-0 eta-0)) e-2 '() ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (TTImpC-45ElabC-45Quote-getUnquoteField arg-0 arg-1 arg-2 eta-0 eta-1))) e-4 '() ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 0 e-0 e-1 e-5 e-3 e-6)))))))))))))))))))) -(define TTImpC-45ElabC-45Quote-getUnquoteField (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((act-24 (TTImpC-45ElabC-45Quote-getUnquote arg-0 arg-1 arg-2 e-4 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-0 e-1 e-2 e-3 e-5))))))))))))))) -(define TTImpC-45ElabC-45Quote-getUnquoteDecl (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((act-24 (TTImpC-45ElabC-45Quote-getUnquoteTy arg-0 arg-1 arg-2 e-4 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-0 e-1 e-2 e-3 e-5))))))))))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((act-24 (TTImpC-45ElabC-45Quote-getUnquoteData arg-0 arg-1 arg-2 e-7 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc1 1))) (vector 1 (vector 1 e-5 e-6 e-8))))))))))) ((2) (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 3))) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (TTImpC-45ElabC-45Quote-getUnquoteClause arg-0 arg-1 arg-2 eta-0 eta-1))) e-10 '() ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 2 e-8 e-9 e-5))))))))))) ((3) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (TTImpC-45ElabC-45Quote-n--12595-7701-u--unqTuple e-13 e-12 e-11 arg-2 arg-1 arg-0 eta-0)) e-12 '() ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (TTImpC-45ElabC-45Quote-getUnquoteDecl arg-0 arg-1 arg-2 eta-0 eta-1))) e-13 '() ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 3 e-11 e-5 e-6)))))))))))))))) ((4) (let ((e-14 (vector-ref sc0 1))) (let ((e-15 (vector-ref sc0 2))) (let ((e-16 (vector-ref sc0 3))) (let ((e-17 (vector-ref sc0 4))) (let ((act-24 (TTImpC-45ElabC-45Quote-getUnquoteRecord arg-0 arg-1 arg-2 e-17 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 4 e-14 e-15 e-16 e-5)))))))))))) ((5) (let ((e-18 (vector-ref sc0 1))) (let ((e-19 (vector-ref sc0 2))) (let ((e-20 (vector-ref sc0 3))) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (TTImpC-45ElabC-45Quote-getUnquoteDecl arg-0 arg-1 arg-2 eta-0 eta-1))) e-20 '() ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 5 e-18 e-19 e-5))))))))))) ((6) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (let ((e-24 (vector-ref sc0 4))) (let ((act-24 (TTImpC-45ElabC-45Quote-getUnquote arg-0 arg-1 arg-2 e-23 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTImpC-45ElabC-45Quote-getUnquote arg-0 arg-1 arg-2 e-24 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 6 e-21 e-22 e-5 e-6)))))))))))))))))(else (vector 1 arg-3)))))) -(define TTImpC-45ElabC-45Quote-getUnquoteData (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((act-24 (TTImpC-45ElabC-45Quote-getUnquote arg-0 arg-1 arg-2 e-2 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (TTImpC-45ElabC-45Quote-getUnquoteTy arg-0 arg-1 arg-2 eta-0 eta-1))) e-4 '() ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 0 e-0 e-1 e-5 e-3 e-6)))))))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((act-24 (TTImpC-45ElabC-45Quote-getUnquote arg-0 arg-1 arg-2 e-7 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc1 1))) (vector 1 (vector 1 e-5 e-6 e-8))))))))))))))) -(define TTImpC-45ElabC-45Quote-getUnquoteClause (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((act-24 (TTImpC-45ElabC-45Quote-getUnquote arg-0 arg-1 arg-2 e-1 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTImpC-45ElabC-45Quote-getUnquote arg-0 arg-1 arg-2 e-2 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 0 e-0 e-5 e-6)))))))))))))))) ((1) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((e-6 (vector-ref sc0 4))) (let ((e-7 (vector-ref sc0 5))) (let ((e-8 (vector-ref sc0 6))) (let ((act-24 (TTImpC-45ElabC-45Quote-getUnquote arg-0 arg-1 arg-2 e-4 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc1 1))) (let ((act-25 (TTImpC-45ElabC-45Quote-getUnquote arg-0 arg-1 arg-2 e-5 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc2 1))) (let ((act-26 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (TTImpC-45ElabC-45Quote-getUnquoteClause arg-0 arg-1 arg-2 eta-0 eta-1))) e-8 '() ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc3 1))) (vector 1 (vector 1 e-3 e-9 e-10 e-6 e-7 e-11)))))))))))))))))))))))) (else (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (let ((act-24 (TTImpC-45ElabC-45Quote-getUnquote arg-0 arg-1 arg-2 e-10 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 2 e-9 e-5)))))))))))))) -(define TTImpC-45ElabC-45Quote-getUnquote (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((act-24 (TTImpC-45ElabC-45Quote-getUnquote arg-0 arg-1 arg-2 e-4 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-25 (TTImpC-45ElabC-45Quote-getUnquote arg-0 arg-1 arg-2 e-5 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc2 1))) (vector 1 (vector 1 e-0 e-1 e-2 e-3 e-6 e-7))))))))))))))))))) ((2) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (let ((e-9 (vector-ref sc0 4))) (let ((e-10 (vector-ref sc0 5))) (let ((e-11 (vector-ref sc0 6))) (let ((act-24 (TTImpC-45ElabC-45Quote-getUnquote arg-0 arg-1 arg-2 e-10 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTImpC-45ElabC-45Quote-getUnquote arg-0 arg-1 arg-2 e-11 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc2 1))) (vector 1 (vector 2 e-6 e-7 e-8 e-9 e-5 e-12))))))))))))))))))) ((3) (let ((e-12 (vector-ref sc0 1))) (let ((e-13 (vector-ref sc0 2))) (let ((e-14 (vector-ref sc0 3))) (let ((e-15 (vector-ref sc0 4))) (let ((e-16 (vector-ref sc0 5))) (let ((e-17 (vector-ref sc0 6))) (let ((e-18 (vector-ref sc0 7))) (let ((act-24 (TTImpC-45ElabC-45Quote-getUnquote arg-0 arg-1 arg-2 e-16 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTImpC-45ElabC-45Quote-getUnquote arg-0 arg-1 arg-2 e-17 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImpC-45ElabC-45Quote-getUnquote arg-0 arg-1 arg-2 e-18 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 3 e-12 e-13 e-14 e-15 e-5 e-6 e-7))))))))))))))))))))))))) ((4) (let ((e-19 (vector-ref sc0 1))) (let ((e-20 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 3))) (let ((e-22 (vector-ref sc0 4))) (let ((act-24 (TTImpC-45ElabC-45Quote-getUnquote arg-0 arg-1 arg-2 e-20 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTImpC-45ElabC-45Quote-getUnquote arg-0 arg-1 arg-2 e-21 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (TTImpC-45ElabC-45Quote-getUnquoteClause arg-0 arg-1 arg-2 eta-0 eta-1))) e-22 '() ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 4 e-19 e-5 e-6 e-7)))))))))))))))))))))) ((5) (let ((e-23 (vector-ref sc0 1))) (let ((e-24 (vector-ref sc0 2))) (let ((e-25 (vector-ref sc0 3))) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (TTImpC-45ElabC-45Quote-getUnquoteDecl arg-0 arg-1 arg-2 eta-0 eta-1))) e-24 '() ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTImpC-45ElabC-45Quote-getUnquote arg-0 arg-1 arg-2 e-25 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 5 e-23 e-5 e-6)))))))))))))))) ((7) (let ((e-26 (vector-ref sc0 1))) (let ((e-27 (vector-ref sc0 2))) (let ((e-28 (vector-ref sc0 3))) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (TTImpC-45ElabC-45Quote-getUnquoteUpdate arg-0 arg-1 arg-2 eta-0 eta-1))) e-27 '() ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTImpC-45ElabC-45Quote-getUnquote arg-0 arg-1 arg-2 e-28 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 7 e-26 e-5 e-6)))))))))))))))) ((8) (let ((e-29 (vector-ref sc0 1))) (let ((e-30 (vector-ref sc0 2))) (let ((e-31 (vector-ref sc0 3))) (let ((act-24 (TTImpC-45ElabC-45Quote-getUnquote arg-0 arg-1 arg-2 e-30 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTImpC-45ElabC-45Quote-getUnquote arg-0 arg-1 arg-2 e-31 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 8 e-29 e-5 e-6)))))))))))))))) ((9) (let ((e-32 (vector-ref sc0 1))) (let ((e-33 (vector-ref sc0 2))) (let ((e-34 (vector-ref sc0 3))) (let ((act-24 (TTImpC-45ElabC-45Quote-getUnquote arg-0 arg-1 arg-2 e-33 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTImpC-45ElabC-45Quote-getUnquote arg-0 arg-1 arg-2 e-34 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 9 e-32 e-5 e-6)))))))))))))))) ((10) (let ((e-35 (vector-ref sc0 1))) (let ((e-36 (vector-ref sc0 2))) (let ((e-37 (vector-ref sc0 3))) (let ((e-38 (vector-ref sc0 4))) (let ((act-24 (TTImpC-45ElabC-45Quote-getUnquote arg-0 arg-1 arg-2 e-36 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTImpC-45ElabC-45Quote-getUnquote arg-0 arg-1 arg-2 e-38 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 10 e-35 e-5 e-37 e-6))))))))))))))))) ((11) (let ((e-39 (vector-ref sc0 1))) (let ((e-40 (vector-ref sc0 2))) (let ((e-41 (vector-ref sc0 3))) (let ((act-24 (TTImpC-45ElabC-45Quote-getUnquote arg-0 arg-1 arg-2 e-40 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTImpC-45ElabC-45Quote-getUnquote arg-0 arg-1 arg-2 e-41 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 11 e-39 e-5 e-6)))))))))))))))) ((13) (let ((e-42 (vector-ref sc0 1))) (let ((e-43 (vector-ref sc0 2))) (let ((e-44 (vector-ref sc0 3))) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (TTImpC-45ElabC-45Quote-getUnquote arg-0 arg-1 arg-2 eta-0 eta-1))) e-44 '() ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 13 e-42 e-43 e-5))))))))))) ((14) (let ((e-45 (vector-ref sc0 1))) (let ((e-46 (vector-ref sc0 2))) (let ((e-47 (vector-ref sc0 3))) (let ((act-24 (TTImpC-45ElabC-45Quote-getUnquote arg-0 arg-1 arg-2 e-46 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTImpC-45ElabC-45Quote-getUnquote arg-0 arg-1 arg-2 e-47 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 14 e-45 e-5 e-6)))))))))))))))) ((15) (let ((e-48 (vector-ref sc0 1))) (let ((e-49 (vector-ref sc0 2))) (let ((act-24 (TTImpC-45ElabC-45Quote-getUnquote arg-0 arg-1 arg-2 e-49 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 15 e-48 e-5)))))))))) ((16) (let ((e-50 (vector-ref sc0 1))) (let ((e-51 (vector-ref sc0 2))) (let ((e-52 (vector-ref sc0 3))) (let ((act-24 (TTImpC-45ElabC-45Quote-getUnquote arg-0 arg-1 arg-2 e-52 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 16 e-50 e-51 e-5))))))))))) ((18) (let ((e-53 (vector-ref sc0 1))) (let ((e-54 (vector-ref sc0 2))) (let ((e-55 (vector-ref sc0 3))) (let ((e-56 (vector-ref sc0 4))) (let ((e-57 (vector-ref sc0 5))) (let ((act-24 (TTImpC-45ElabC-45Quote-getUnquote arg-0 arg-1 arg-2 e-57 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 18 e-53 e-54 e-55 e-56 e-5))))))))))))) ((19) (let ((e-58 (vector-ref sc0 1))) (let ((e-59 (vector-ref sc0 2))) (let ((e-60 (vector-ref sc0 3))) (let ((act-24 (TTImpC-45ElabC-45Quote-getUnquote arg-0 arg-1 arg-2 e-60 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 19 e-58 e-59 e-5))))))))))) ((20) (let ((e-61 (vector-ref sc0 1))) (let ((e-62 (vector-ref sc0 2))) (let ((e-63 (vector-ref sc0 3))) (let ((act-24 (TTImpC-45ElabC-45Quote-getUnquote arg-0 arg-1 arg-2 e-63 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 20 e-61 e-62 e-5))))))))))) ((21) (let ((e-64 (vector-ref sc0 1))) (let ((e-65 (vector-ref sc0 2))) (let ((act-24 (TTImpC-45ElabC-45Quote-getUnquote arg-0 arg-1 arg-2 e-65 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 21 e-64 e-5)))))))))) ((22) (let ((e-66 (vector-ref sc0 1))) (let ((e-67 (vector-ref sc0 2))) (let ((act-24 (TTImpC-45ElabC-45Quote-getUnquote arg-0 arg-1 arg-2 e-67 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 22 e-66 e-5)))))))))) ((23) (let ((e-68 (vector-ref sc0 1))) (let ((e-69 (vector-ref sc0 2))) (let ((act-24 (TTImpC-45ElabC-45Quote-getUnquote arg-0 arg-1 arg-2 e-69 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 23 e-68 e-5)))))))))) ((26) (let ((e-70 (vector-ref sc0 1))) (let ((e-71 (vector-ref sc0 2))) (let ((act-24 (CoreC-45UnifyState-genVarName arg-0 arg-2 "q" ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (let ((act-26 (set-box! arg-1 (cons (cons e-5 (cons e-70 e-71)) e-6)))) (vector 1 act-26)))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (vector 1 (vector 26 e-70 (vector 0 e-70 e-5))))))))))))))))))))(else (vector 1 arg-3)))))) -(define TTImpC-45ElabC-45Quote-checkQuoteName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (CoreC-45Reflect-u--reflect_Reflect_Name arg-0 arg-9 e-5 (TTImpC-45ElabC-45Quote-onLHS (let ((sc1 arg-6)) (let ((e-0 (vector-ref sc1 1))) e-0))) arg-8 arg-10 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (CoreC-45Reflect-getCon arg-0 arg-9 e-5 (CoreC-45Reflect-reflectiontt "Name") ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (TTImpC-45ElabC-45Check-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 e-6 (CoreC-45Normalise-gnf arg-0 arg-8 e-7) arg-11 ext-0)))))))))))))))))) -(define TTImpC-45ElabC-45Quote-checkQuoteDecl (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (CoreC-45Core-newRef (vector "TTImp.Elab.Quote.Unq" ) '() ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (TTImpC-45ElabC-45Quote-getUnquoteDecl arg-1 e-6 arg-3 eta-0 eta-1))) arg-10 '() ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (CoreC-45Reflect-u--reflect_Reflect_C-40ListC-32C-36aC-41 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (TTImpC-45Reflect-u--reflect_Reflect_ImpDecl eta-0 eta-1 eta-2 eta-3 eta-4 eta-5 eta-6)))))))) arg-0 arg-9 e-5 (TTImpC-45ElabC-45Quote-onLHS (let ((sc3 arg-6)) (let ((e-0 (vector-ref sc3 1))) e-0))) arg-8 e-7 ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (let ((act-28 (unbox e-6))) (vector 1 act-28)))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-29 (CoreC-45Reflect-getCon arg-0 arg-9 e-5 (CoreC-45Reflect-reflectionttimp "Decl") ext-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-30 (CoreC-45Reflect-appCon arg-0 arg-9 e-5 (CoreC-45Reflect-preludetypes "List") (cons e-10 '()) ext-0))) (let ((sc6 act-30)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-31 ((TTImpC-45ElabC-45Quote-bindUnqs arg-0 arg-1 arg-2 arg-3 arg-4 e-9 arg-5 arg-6 arg-7 arg-8 e-8) ext-0))) (let ((sc7 act-31)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc7 1))) (TTImpC-45ElabC-45Check-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 e-12 (CoreC-45Normalise-gnf arg-0 arg-8 e-11) arg-11 ext-0))))))))))))))))))))))))))))))))))))))))))) -(define TTImpC-45ElabC-45Quote-checkQuote (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (CoreC-45Core-newRef (vector "TTImp.Elab.Quote.Unq" ) '() ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (TTImpC-45ElabC-45Quote-getUnquote arg-1 e-6 arg-3 arg-10 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 ((TTImpC-45Reflect-u--reflect_Reflect_RawImp arg-0 arg-9 e-5 (TTImpC-45ElabC-45Quote-onLHS (let ((sc3 arg-6)) (let ((e-0 (vector-ref sc3 1))) e-0))) arg-8 e-7) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (let ((act-28 (unbox e-6))) (vector 1 act-28)))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-29 (CoreC-45Reflect-getCon arg-0 arg-9 e-5 (CoreC-45Reflect-reflectionttimp "TTImp") ext-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-30 ((TTImpC-45ElabC-45Quote-bindUnqs arg-0 arg-1 arg-2 arg-3 arg-4 e-9 arg-5 arg-6 arg-7 arg-8 e-8) ext-0))) (let ((sc6 act-30)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-31 (CoreC-45Normalise-normalise arg-1 arg-0 e-5 arg-8 e-11 ext-0))) (let ((sc7 act-31)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc7 1))) (TTImpC-45ElabC-45Check-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 e-12 (CoreC-45Normalise-gnf arg-0 arg-8 e-10) arg-11 ext-0))))))))))))))))))))))))))))))))))))))))))) -(define TTImpC-45ElabC-45Quote-bindUnqs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-5)) (if (null? sc0) (lambda (eta-0) (vector 1 arg-10)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (lambda (clam-0) (let ((sc1 e-2)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (let ((sc2 e-7)) (let ((e-10 (car sc2))) (let ((e-11 (cdr sc2))) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExactI (CoreC-45Reflect-reflectionttimp "TTImp") (let ((sc4 e-5)) (let ((e-0 (vector-ref sc4 1))) e-0))) clam-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((sc6 e-1)) (if (null? sc6) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 7 e-10 (CoreC-45Reflect-reflectionttimp "TTImp")) clam-0) (let ((e-4 (car sc6))) (let ((act-26 ((TTImpC-45ElabC-45Check-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-6 arg-7 arg-8 arg-9 e-11 (vector 1 (CoreC-45Normalise-gnf arg-0 arg-9 (vector 1 e-10 (vector 3 0 0) (vector 9 e-4))))) clam-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-12 (vector-ref sc7 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc7 1))) (let ((sc8 e-12)) (let ((e-14 (car sc8))) (let ((e-13 (cdr sc8))) (let ((act-27 ((TTImpC-45ElabC-45Quote-bindUnqs arg-0 arg-1 arg-2 arg-3 arg-4 e-3 arg-6 arg-7 arg-8 arg-9 arg-10) clam-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-15 (vector-ref sc9 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc9 1))) (let ((act-28 ((CoreC-45Normalise-getTerm e-13) clam-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-16 (vector-ref sc10 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc10 1))) (vector 1 (vector 3 e-10 e-6 (vector 1 e-10 (AlgebraC-45ZeroOneOmega-rigMult (AlgebraC-45ZeroOneOmega-u--top_Top_ZeroOneOmega) arg-6) e-14 e-16) (CoreC-45TT-refToLocal e-6 e-6 e-15))))))))))))))))))))))))))(else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 7 e-10 (CoreC-45Reflect-reflectionttimp "TTImp")) clam-0))))))))))))))))))))))))))) -(define TTImpC-45ElabC-45Prim-checkPrim (lambda (arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (cons (vector 9 arg-1 (vector 0 e-0)) (vector 9 arg-1 (vector 14 ))))) ((1) (let ((e-1 (vector-ref sc0 1))) (cons (vector 9 arg-1 (vector 1 e-1)) (vector 9 arg-1 (vector 15 ))))) ((2) (let ((e-2 (vector-ref sc0 1))) (cons (vector 9 arg-1 (vector 2 e-2)) (vector 9 arg-1 (vector 16 ))))) ((3) (let ((e-3 (vector-ref sc0 1))) (cons (vector 9 arg-1 (vector 3 e-3)) (vector 9 arg-1 (vector 17 ))))) ((4) (let ((e-4 (vector-ref sc0 1))) (cons (vector 9 arg-1 (vector 4 e-4)) (vector 9 arg-1 (vector 18 ))))) ((5) (let ((e-5 (vector-ref sc0 1))) (cons (vector 9 arg-1 (vector 5 e-5)) (vector 9 arg-1 (vector 19 ))))) ((6) (let ((e-6 (vector-ref sc0 1))) (cons (vector 9 arg-1 (vector 6 e-6)) (vector 9 arg-1 (vector 20 ))))) ((7) (let ((e-7 (vector-ref sc0 1))) (cons (vector 9 arg-1 (vector 7 e-7)) (vector 9 arg-1 (vector 21 ))))) ((8) (let ((e-8 (vector-ref sc0 1))) (cons (vector 9 arg-1 (vector 8 e-8)) (vector 9 arg-1 (vector 22 ))))) ((9) (let ((e-9 (vector-ref sc0 1))) (cons (vector 9 arg-1 (vector 9 e-9)) (vector 9 arg-1 (vector 23 ))))) ((10) (let ((e-10 (vector-ref sc0 1))) (cons (vector 9 arg-1 (vector 10 e-10)) (vector 9 arg-1 (vector 24 ))))) ((11) (let ((e-11 (vector-ref sc0 1))) (cons (vector 9 arg-1 (vector 11 e-11)) (vector 9 arg-1 (vector 25 ))))) ((12) (let ((e-12 (vector-ref sc0 1))) (cons (vector 9 arg-1 (vector 12 e-12)) (vector 9 arg-1 (vector 26 ))))) ((13) (cons (vector 9 arg-1 (vector 13 )) (vector 9 arg-1 (vector 27 )))) ((14) (cons (vector 9 arg-1 (vector 14 )) (vector 11 arg-1))) ((15) (cons (vector 9 arg-1 (vector 15 )) (vector 11 arg-1))) ((16) (cons (vector 9 arg-1 (vector 16 )) (vector 11 arg-1))) ((17) (cons (vector 9 arg-1 (vector 17 )) (vector 11 arg-1))) ((18) (cons (vector 9 arg-1 (vector 18 )) (vector 11 arg-1))) ((19) (cons (vector 9 arg-1 (vector 19 )) (vector 11 arg-1))) ((20) (cons (vector 9 arg-1 (vector 20 )) (vector 11 arg-1))) ((21) (cons (vector 9 arg-1 (vector 21 )) (vector 11 arg-1))) ((22) (cons (vector 9 arg-1 (vector 22 )) (vector 11 arg-1))) ((23) (cons (vector 9 arg-1 (vector 23 )) (vector 11 arg-1))) ((24) (cons (vector 9 arg-1 (vector 24 )) (vector 11 arg-1))) ((25) (cons (vector 9 arg-1 (vector 25 )) (vector 11 arg-1))) ((26) (cons (vector 9 arg-1 (vector 26 )) (vector 11 arg-1))) (else (cons (vector 9 arg-1 (vector 27 )) (vector 11 arg-1))))))) -(define TTImpC-45ElabC-45Local-case--caseC-32blockC-32inC-32checkCaseLocal-1846 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (case (vector-ref sc0 0) ((1) (vector 1 arg-6 (vector 1 ) arg-4)) ((5) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (vector 1 arg-6 (vector 2 e-5 e-6) arg-4)))) ((6) (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (vector 1 arg-6 (vector 3 e-8 e-9) arg-4))))(else (vector 1 arg-6 (vector 1 ) arg-4)))))) -(define TTImpC-45ElabC-45Local-case--getLocalTerm-1680 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-5 (car sc1))) (let ((act-24 ((TTImpC-45ElabC-45Local-getLocalTerm arg-0 arg-6 arg-5 arg-4 (vector 4 arg-5 arg-3 (vector 0 arg-5 (vector 0 ) e-5)) arg-2) ext-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (let ((e-2 (car sc3))) (let ((e-3 (cdr sc3))) (vector 1 (cons e-2 (cons e-5 e-3))))))))))))))) (else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 "Case Local failed") ext-0)))))) -(define TTImpC-45ElabC-45Local-case--localHelper-1174 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (cond ((equal? sc0 0) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (TTImpC-45ElabC-45Local-n--11685-750-u--setPublic arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 eta-0)) arg-3)) (else arg-3))))) -(define TTImpC-45ElabC-45Local-case--localHelperC-44newName-973 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (if (null? sc1) arg-10 (let ((e-4 (car sc1))) (let ((sc2 e-4)) (case (vector-ref sc2 0) ((1) (let ((e-7 (vector-ref sc2 1))) e-7))(else arg-10))))))))(else arg-10))))) -(define TTImpC-45ElabC-45Local-case--localHelperC-44dropLinear-775 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-12 arg-13 arg-15) (let ((sc0 arg-15)) (cond ((equal? sc0 0) (cons (CoreC-45TT-setMultiplicity arg-13 (AlgebraC-45Semiring-erased (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)))) (TTImpC-45ElabC-45Local-n--11685-744-u--dropLinear arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-12))) (else (cons arg-13 (TTImpC-45ElabC-45Local-n--11685-744-u--dropLinear arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-12))))))) -(define TTImpC-45ElabC-45Local-n--11685-747-u--updateTyName (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (vector 0 e-0 e-1 (TTImpC-45ElabC-45Local-n--11685-746-u--newName arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-2) e-3)))))))) -(define TTImpC-45ElabC-45Local-n--11685-749-u--updateName (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (vector 0 e-0 e-1 e-2 e-3 (TTImpC-45ElabC-45Local-n--11685-747-u--updateTyName arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-4)))))))) ((2) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (vector 2 e-5 (TTImpC-45ElabC-45Local-n--11685-746-u--newName arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-6) e-7))))) ((1) (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 3))) (vector 1 e-8 e-9 (TTImpC-45ElabC-45Local-n--11685-748-u--updateDataName arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-10))))))(else arg-11))))) -(define TTImpC-45ElabC-45Local-n--11685-748-u--updateDataName (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (vector 0 e-0 (TTImpC-45ElabC-45Local-n--11685-746-u--newName arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-1) e-2 e-3 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (TTImpC-45ElabC-45Local-n--11685-747-u--updateTyName arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 eta-0)) e-4)))))))) (else (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (vector 1 e-5 (TTImpC-45ElabC-45Local-n--11685-746-u--newName arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-6) e-7))))))))) -(define TTImpC-45ElabC-45Local-n--11685-750-u--setPublic (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (vector 0 e-0 e-1 (vector 2 ) e-3 e-4)))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 3))) (vector 1 e-5 (vector 2 ) e-7)))) ((4) (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 4))) (vector 4 e-8 e-9 (vector 2 ) e-11))))) ((3) (let ((e-12 (vector-ref sc0 1))) (let ((e-13 (vector-ref sc0 2))) (let ((e-14 (vector-ref sc0 3))) (vector 3 e-12 e-13 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (TTImpC-45ElabC-45Local-n--11685-750-u--setPublic arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 eta-0)) e-14)))))) ((5) (let ((e-15 (vector-ref sc0 1))) (let ((e-16 (vector-ref sc0 2))) (let ((e-17 (vector-ref sc0 3))) (vector 5 e-15 e-16 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (TTImpC-45ElabC-45Local-n--11685-750-u--setPublic arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 eta-0)) e-17))))))(else arg-10))))) -(define TTImpC-45ElabC-45Local-n--11685-746-u--newName (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (TTImpC-45ElabC-45Local-case--localHelperC-44newName-973 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-11 arg-10 (DataC-45List-lookup (cons (lambda (arg-12) (lambda (arg-13) (CoreC-45Name-u--C-61C-61_Eq_Name arg-12 arg-13))) (lambda (arg-12) (lambda (arg-13) (CoreC-45Name-u--C-47C-61_Eq_Name arg-12 arg-13)))) arg-11 arg-10)))) -(define TTImpC-45ElabC-45Local-n--11685-744-u--dropLinear (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-11) (let ((sc0 arg-11)) (if (null? sc0) '() (let ((e-4 (car sc0))) (let ((e-5 (cdr sc0))) (TTImpC-45ElabC-45Local-case--localHelperC-44dropLinear-775 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-5 e-4 (AlgebraC-45Semiring-isLinear (cons (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-10) (lambda (arg-12) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-10 arg-12))) (lambda (arg-10) (lambda (arg-12) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-10 arg-12))))) (CoreC-45TT-multiplicity e-4))))))))) -(define TTImpC-45ElabC-45Local-n--11685-745-u--applyEnv (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 ext-0) (let ((act-24 (let ((act-24 (unbox arg-7))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (set-box! arg-7 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-10 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-10 (bs+ e-6 1 63) e-7 e-8 e-9))))))))))))))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((u--nestedName_in (vector 6 (cons arg-10 (let ((sc2 e-5)) (let ((e-10 (vector-ref sc2 7))) e-10))) arg-11))) (let ((act-26 (CoreC-45Context-inCurrentNS arg-9 u--nestedName_in ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (CoreC-45Context-addName arg-9 e-7 ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (vector 1 (cons arg-11 (cons (vector 1 e-7) (cons (DataC-45List-reverse (CoreC-45Env-allVars arg-1 arg-4)) (lambda (u--fc) (lambda (u--nt) (CoreC-45UnifyState-applyToFull arg-1 u--fc (vector 1 u--fc u--nt (vector 9 e-8)) arg-4))))))))))))))))))))))))))))) -(define TTImpC-45ElabC-45Local-localHelper (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 ext-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((u--f (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 2))) e-2)))) (let ((act-25 (let ((act-25 (unbox arg-2))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((CoreC-45Context-lookupCtxtExact (vector 9 (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 2))) e-2))) (let ((sc2 e-6)) (let ((e-0 (vector-ref sc2 1))) e-0))) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((u--vis (let ((sc3 e-7)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((sc4 e-1)) (let ((e-9 (vector-ref sc4 10))) e-9)))) (else (vector 2 )))))) (let ((u--nestdecls (TTImpC-45ElabC-45Local-case--localHelper-1174 arg-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 e-5 u--f e-6 e-7 u--vis (CoreC-45TT-u--C-61C-61_Eq_Visibility u--vis (vector 2 ))))) (let ((u--defNames (TTImpC-45TTImp-definedInBlock (CoreC-45NameC-45Namespace-emptyNS) u--nestdecls))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (TTImpC-45ElabC-45Local-n--11685-745-u--applyEnv arg-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 u--f eta-0 eta-1))) (DataC-45List-nub (cons (lambda (arg-10) (lambda (arg-11) (CoreC-45Name-u--C-61C-61_Eq_Name arg-10 arg-11))) (lambda (arg-10) (lambda (arg-11) (CoreC-45Name-u--C-47C-61_Eq_Name arg-10 arg-11)))) u--defNames) '() ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((u--nestC-39 (PreludeC-45TypesC-45List-C-43C-43 e-8 arg-6))) (let ((u--envC-39 (TTImpC-45ElabC-45Local-n--11685-744-u--dropLinear arg-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-7))) (let ((act-28 (let ((act-28 (unbox arg-4))) (vector 1 act-28)))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((u--olddelayed (let ((sc5 e-9)) (let ((e-11 (vector-ref sc5 9))) e-11)))) (let ((act-29 (let ((act-29 (set-box! arg-4 (let ((sc5 e-9)) (let ((e-0 (vector-ref sc5 1))) (let ((e-1 (vector-ref sc5 2))) (let ((e-2 (vector-ref sc5 3))) (let ((e-3 (vector-ref sc5 4))) (let ((e-4 (vector-ref sc5 5))) (let ((e-14 (vector-ref sc5 6))) (let ((e-13 (vector-ref sc5 7))) (let ((e-12 (vector-ref sc5 8))) (let ((e-10 (vector-ref sc5 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-14 e-13 e-12 '() e-10)))))))))))))) (vector 1 act-29)))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((act-30 (let ((act-30 (unbox arg-2))) (vector 1 act-30)))) (let ((sc6 act-30)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc6 1))) (let ((u--oldhints (let ((sc7 e-11)) (let ((e-29 (vector-ref sc7 11))) e-29)))) (let ((nestdecls-0 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (TTImpC-45ElabC-45Local-n--11685-749-u--updateName arg-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 u--nestC-39 eta-0)) u--nestdecls))) (let ((act-31 (CoreC-45ContextC-45Log-log arg-2 "elab.def.local" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))))))))))))) (lambda () (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (TTImpC-45TTImp-u--show_Show_ImpDecl u--x)) (lambda (u--d) (lambda (u--x) (TTImpC-45TTImp-u--showPrec_Show_ImpDecl u--d u--x)))) nestdecls-0)) ext-0))) (let ((sc7 act-31)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((act-32 (CoreC-45Core-traverse_ (lambda (eta-0) (TTImpC-45ElabC-45Check-processDecl arg-1 arg-2 arg-3 arg-4 '() u--nestC-39 u--envC-39 eta-0)) nestdecls-0 ext-0))) (let ((sc8 act-32)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((act-33 (let ((act-33 (unbox arg-4))) (vector 1 act-33)))) (let ((sc9 act-33)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref sc9 1))) (let ((act-34 (let ((act-34 (set-box! arg-4 (let ((sc10 e-14)) (let ((e-0 (vector-ref sc10 1))) (let ((e-1 (vector-ref sc10 2))) (let ((e-2 (vector-ref sc10 3))) (let ((e-3 (vector-ref sc10 4))) (let ((e-4 (vector-ref sc10 5))) (let ((e-19 (vector-ref sc10 6))) (let ((e-18 (vector-ref sc10 7))) (let ((e-17 (vector-ref sc10 8))) (let ((e-15 (vector-ref sc10 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-19 e-18 e-17 u--olddelayed e-15)))))))))))))) (vector 1 act-34)))) (let ((sc10 act-34)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((act-35 (let ((act-35 (unbox arg-2))) (vector 1 act-35)))) (let ((sc11 act-35)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((act-36 ((arg-9 u--nestC-39) ext-0))) (let ((sc12 act-36)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-17 (vector-ref sc12 1))) (let ((act-37 (let ((act-37 (unbox arg-2))) (vector 1 act-37)))) (let ((sc13 act-37)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-18 (vector-ref sc13 1))) (let ((act-38 (let ((act-38 (set-box! arg-2 (let ((sc14 e-18)) (let ((e-0 (vector-ref sc14 1))) (let ((e-1 (vector-ref sc14 2))) (let ((e-2 (vector-ref sc14 3))) (let ((e-3 (vector-ref sc14 4))) (let ((e-4 (vector-ref sc14 5))) (let ((e-41 (vector-ref sc14 6))) (let ((e-40 (vector-ref sc14 7))) (let ((e-39 (vector-ref sc14 8))) (let ((e-38 (vector-ref sc14 9))) (let ((e-37 (vector-ref sc14 10))) (let ((e-35 (vector-ref sc14 12))) (let ((e-34 (vector-ref sc14 13))) (let ((e-33 (vector-ref sc14 14))) (let ((e-32 (vector-ref sc14 15))) (let ((e-31 (vector-ref sc14 16))) (let ((e-30 (vector-ref sc14 17))) (let ((e-29 (vector-ref sc14 18))) (let ((e-28 (vector-ref sc14 19))) (let ((e-19 (vector-ref sc14 20))) (let ((e-20 (vector-ref sc14 21))) (let ((e-21 (vector-ref sc14 22))) (let ((e-22 (vector-ref sc14 23))) (let ((e-23 (vector-ref sc14 24))) (let ((e-24 (vector-ref sc14 25))) (let ((e-25 (vector-ref sc14 26))) (let ((e-26 (vector-ref sc14 27))) (let ((e-27 (vector-ref sc14 28))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-41 e-40 e-39 e-38 e-37 u--oldhints e-35 e-34 e-33 e-32 e-31 e-30 e-29 e-28 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27)))))))))))))))))))))))))))))))) (vector 1 act-38)))) (let ((sc14 act-38)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (vector 1 e-17))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) -(define TTImpC-45ElabC-45Local-getLocalTerm (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (if (null? sc0) (lambda (eta-0) (vector 1 (cons arg-4 '()))) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (lambda (eta-0) (TTImpC-45ElabC-45Local-case--getLocalTerm-1680 arg-0 e-2 e-3 arg-4 arg-3 arg-2 arg-1 (CoreC-45Env-defined arg-0 e-2 arg-3) eta-0)))))))) -(define TTImpC-45ElabC-45Local-checkLocal (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 ext-0) (TTImpC-45ElabC-45Local-localHelper arg-0 arg-1 arg-2 arg-3 arg-4 arg-7 arg-8 arg-10 (lambda (u--nestC-39) (TTImpC-45ElabC-45Check-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 u--nestC-39 arg-8 arg-11 arg-12)) ext-0))) -(define TTImpC-45ElabC-45Local-checkCaseLocal (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact arg-11 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((u--name (let ((_-0 (vector 1 e-1))) (TTImpC-45ElabC-45Local-case--caseC-32blockC-32inC-32checkCaseLocal-1846 arg-0 arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-1 _-0 (let ((sc3 e-1)) (let ((e-17 (vector-ref sc3 18))) e-17)))))) (let ((act-26 ((TTImpC-45ElabC-45Local-getLocalTerm arg-0 arg-1 arg-9 arg-8 u--name arg-12) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (let ((e-2 (car sc4))) (let ((e-3 (cdr sc4))) (let ((act-27 (CoreC-45ContextC-45Log-log arg-1 "elab.local" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Updating case local " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name arg-10) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45TT-u--show_Show_C-40VarC-32C-36nsC-41 u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45TT-u--showPrec_Show_C-40VarC-32C-36nsC-41 u--d u--x)))) e-3))))) ext-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((act-28 (CoreC-45Normalise-logTermNF arg-0 arg-1 "elab.local" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "To") arg-8 e-2 ext-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((u--nestC-39 (cons (cons arg-10 (cons (vector 1 arg-11) (cons e-3 (lambda (u--fc) (lambda (u--nt) e-2))))) arg-7))) ((TTImpC-45ElabC-45Check-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 u--nestC-39 arg-8 arg-13 arg-14) ext-0))))))))))))))))))))) (else ((TTImpC-45ElabC-45Check-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-13 arg-14) ext-0)))))))))))))))) -(define TTImpC-45ElabC-45Utils-case--bindReqC-44notLets-7880 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (cond ((equal? sc0 0) (TTImpC-45ElabC-45Utils-n--9240-7861-u--notLets arg-0 arg-1 arg-2 arg-3 arg-4 arg-10 arg-7 arg-8)) (else (TTImpC-45ElabC-45Utils-n--9240-7861-u--notLets arg-0 arg-1 arg-2 arg-3 arg-4 (cons arg-6 arg-10) arg-7 arg-8)))))) -(define TTImpC-45ElabC-45Utils-case--bindNotReq-7778 (lambda (arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-12 arg-13) (let ((sc0 arg-13)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (cons e-2 (CoreC-45TT-refToLocal (vector 2 "arg" arg-8) arg-0 e-3))))))) -(define TTImpC-45ElabC-45Utils-case--bindNotReq-7712 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-11) (let ((sc0 arg-11)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (cons e-2 (CoreC-45TT-refToLocal (vector 2 "arg" arg-6) arg-0 e-3))))))) -(define TTImpC-45ElabC-45Utils-case--wrapErrorC-7611 (lambda (arg-1 arg-2 arg-3 ext-0) (let ((sc0 arg-3)) (cond ((equal? sc0 0) ext-0) (else (lambda (eta-0) (CoreC-45Core-wrapError arg-1 ext-0 eta-0))))))) -(define TTImpC-45ElabC-45Utils-case--caseC-32blockC-32inC-32findErasedFrom-7385 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (cond ((equal? sc0 0) (cons (cons arg-8 arg-11) arg-15)) (else (cons arg-11 arg-15)))))) -(define TTImpC-45ElabC-45Utils-n--9240-7861-u--notLets (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-6 arg-7 arg-8) (let ((sc0 arg-7)) (if (null? sc0) arg-6 (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 arg-8)) (let ((e-7 (car sc1))) (let ((e-8 (cdr sc1))) (TTImpC-45ElabC-45Utils-case--bindReqC-44notLets-7880 arg-0 arg-1 arg-2 arg-3 arg-4 e-2 e-3 e-8 e-7 arg-6 (CoreC-45TT-isLet e-7))))))))))) -(define TTImpC-45ElabC-45Utils-n--8387-7103-u--notErased (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-8)) (if (null? sc0) 0 (let ((sc1 arg-9)) (if (null? sc1) 1 (let ((e-2 (car sc1))) (let ((e-3 (cdr sc1))) (let ((sc2 e-2)) (case (vector-ref sc2 0) ((9) (let ((e-6 (vector-ref sc2 2))) (let ((sc3 e-6)) (cond ((equal? sc3 0) (TTImpC-45ElabC-45Utils-n--8387-7103-u--notErased arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (PreludeC-45Types-u--C-43_Num_Nat arg-7 (+ 1 0)) arg-8 e-3))(else (PreludeC-45Basics-C-124C-124 (PreludeC-45Types-elem (cons (lambda (arg-10) (lambda (arg-11) (PreludeC-45Types-u--C-61C-61_Eq_Nat arg-10 arg-11))) (lambda (arg-10) (lambda (arg-11) (PreludeC-45Types-u--C-47C-61_Eq_Nat arg-10 arg-11)))) arg-7 arg-8) (lambda () (TTImpC-45ElabC-45Utils-n--8387-7103-u--notErased arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (PreludeC-45Types-u--C-43_Num_Nat arg-7 (+ 1 0)) arg-8 e-3))))))))(else (PreludeC-45Basics-C-124C-124 (PreludeC-45Types-elem (cons (lambda (arg-10) (lambda (arg-11) (PreludeC-45Types-u--C-61C-61_Eq_Nat arg-10 arg-11))) (lambda (arg-10) (lambda (arg-11) (PreludeC-45Types-u--C-47C-61_Eq_Nat arg-10 arg-11)))) arg-7 arg-8) (lambda () (TTImpC-45ElabC-45Utils-n--8387-7103-u--notErased arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (PreludeC-45Types-u--C-43_Num_Nat arg-7 (+ 1 0)) arg-8 e-3)))))))))))))) -(define TTImpC-45ElabC-45Utils-wrapErrorC (lambda (arg-1 arg-2 ext-0) (TTImpC-45ElabC-45Utils-case--wrapErrorC-7611 arg-2 arg-1 (PreludeC-45Types-elem (cons (lambda (arg-3) (lambda (arg-4) (TTImpC-45ElabC-45Check-u--C-61C-61_Eq_ElabOpt arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (TTImpC-45ElabC-45Check-u--C-47C-61_Eq_ElabOpt arg-4 arg-5)))) (vector 1 ) arg-1) ext-0))) -(define TTImpC-45ElabC-45Utils-updateErasable (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact arg-1 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((act-26 (TTImpC-45ElabC-45Utils-findErased arg-0 (let ((sc3 e-1)) (let ((e-2 (vector-ref sc3 3))) e-2)) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (let ((e-2 (car sc4))) (let ((e-3 (cdr sc4))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc5 eta-0)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (vector 1 (vector 0 )))))) (lambda (eta-0) (CoreC-45Context-addDef arg-0 arg-1 (let ((sc5 e-1)) (let ((e-0 (vector-ref sc5 1))) (let ((e-26 (vector-ref sc5 2))) (let ((e-25 (vector-ref sc5 3))) (let ((e-23 (vector-ref sc5 6))) (let ((e-22 (vector-ref sc5 7))) (let ((e-21 (vector-ref sc5 8))) (let ((e-8 (vector-ref sc5 9))) (let ((e-9 (vector-ref sc5 10))) (let ((e-10 (vector-ref sc5 11))) (let ((e-11 (vector-ref sc5 12))) (let ((e-12 (vector-ref sc5 13))) (let ((e-13 (vector-ref sc5 14))) (let ((e-14 (vector-ref sc5 15))) (let ((e-15 (vector-ref sc5 16))) (let ((e-16 (vector-ref sc5 17))) (let ((e-17 (vector-ref sc5 18))) (let ((e-18 (vector-ref sc5 19))) (let ((e-19 (vector-ref sc5 20))) (let ((e-20 (vector-ref sc5 21))) (vector 0 e-0 e-26 e-25 e-2 e-3 e-23 e-22 e-21 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20))))))))))))))))))))) eta-0)) ext-0))))))))))) (else (vector 1 (vector 0 ))))))))))))))))) -(define TTImpC-45ElabC-45Utils-plicit (lambda (arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((2) (let ((e-3 (vector-ref sc0 3))) (CoreC-45TT-forgetDef e-3))) ((3) (let ((e-8 (vector-ref sc0 3))) (CoreC-45TT-forgetDef e-8)))(else (vector 1 )))))) -(define TTImpC-45ElabC-45Utils-findErasedFrom (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (let ((e-9 (vector-ref sc1 4))) (let ((act-24 (((e-4 arg-1) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 e-1 (AlgebraC-45Semiring-isErased (cons (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-4) (lambda (arg-5) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-4 arg-5))))) e-7)))) ext-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (TTImpC-45ElabC-45Utils-findErasedFrom arg-0 arg-1 (PreludeC-45Types-u--C-43_Num_Nat (PreludeC-45Types-u--fromInteger_Num_Nat 1) arg-2) e-5 ext-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc3 1))) (let ((sc4 e-10)) (let ((e-12 (car sc4))) (let ((e-11 (cdr sc4))) (let ((act-26 (TTImpC-45ElabC-45Utils-detagSafe arg-0 arg-1 e-9 ext-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-13 (vector-ref sc5 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc5 1))) (let ((u--dtC-39 (let ((sc6 e-13)) (cond ((equal? sc6 0) (cons arg-2 e-11)) (else e-11))))) (vector 1 (let ((_-0 (cons e-12 e-11))) (TTImpC-45ElabC-45Utils-case--caseC-32blockC-32inC-32findErasedFrom-7385 arg-0 e-6 e-8 e-9 e-7 e-4 e-2 e-1 arg-2 arg-1 e-5 e-12 e-11 _-0 e-13 u--dtC-39 (AlgebraC-45Semiring-isErased (cons (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-4) (lambda (arg-5) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-4 arg-5))))) e-7))))))))))))))))))))))))))))(else (vector 1 (cons '() '()))))))))))(else (vector 1 (cons '() '()))))))) -(define TTImpC-45ElabC-45Utils-findErased (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((CoreC-45Normalise-nf arg-0 '() e-5 '() arg-1) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (TTImpC-45ElabC-45Utils-findErasedFrom arg-0 e-5 0 e-6 ext-0))))))))))))) -(define TTImpC-45ElabC-45Utils-detagSafe (lambda (arg-0 arg-1 arg-2 ext-0) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((act-24 (CoreC-45Context-lookupDefExact e-2 (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((6) (let ((e-9 (vector-ref sc3 8))) (let ((sc4 e-9)) (case (vector-ref sc4 0) ((1) (let ((e-16 (vector-ref sc4 1))) (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() arg-1 (Builtin-snd eta-0))) e-5 '() ext-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-17 (vector-ref sc5 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc5 1))) (vector 1 (TTImpC-45ElabC-45Utils-n--8387-7103-u--notErased e-1 e-3 e-4 e-5 e-2 arg-1 arg-0 0 e-16 e-17)))))))))(else (vector 1 1))))))(else (vector 1 1))))))(else (vector 1 1)))))))))))))))(else (vector 1 1)))))) -(define TTImpC-45ElabC-45Utils-bindReq (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (PreludeC-45Types-u--pure_Applicative_Maybe (cons arg-5 (cons (TTImpC-45ElabC-45Utils-n--9240-7861-u--notLets arg-1 arg-6 arg-5 arg-3 arg-2 '() arg-1 arg-3) (CoreC-45Env-abstractEnvType arg-1 arg-2 arg-3 arg-6)))))(else (let ((sc0 arg-1)) (let ((e-1 (car sc0))) (let ((e-2 (cdr sc0))) (let ((sc1 arg-3)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((2) (let ((e-11 (vector-ref sc2 1))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45TT-shrinkBinder e-6 e-11) (lambda (u--bC-39) (TTImpC-45ElabC-45Utils-bindReq e-2 arg-2 e-7 e-11 (cons (cons (TTImpC-45ElabC-45Utils-plicit e-6) e-1) arg-5) (vector 3 arg-2 e-1 (vector 2 (CoreC-45TT-binderLoc e-6) (CoreC-45TT-multiplicity e-6) (vector 1 ) (CoreC-45TT-binderType u--bC-39)) arg-6)))))) (else (let ((e-15 (vector-ref sc2 1))) (TTImpC-45ElabC-45Utils-bindReq e-2 arg-2 e-7 e-15 arg-5 arg-6)))))))))))))))) -(define TTImpC-45ElabC-45Utils-bindNotReq (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-1)) (if (null? sc0) (let ((sc1 arg-4)) (let ((sc2 arg-5)) (cons arg-6 (CoreC-45TT-embed arg-7)))) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 arg-4)) (let ((e-9 (car sc1))) (let ((e-10 (cdr sc1))) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((0) (let ((u--tmptm (CoreC-45TTC-45SubstEnv-subst (vector 1 arg-2 (vector 0 ) (vector 2 "arg" arg-3)) arg-7))) (let ((u--vs (cons e-2 e-3))) (TTImpC-45ElabC-45Utils-case--bindNotReq-7712 e-2 e-3 e-10 e-9 arg-7 arg-6 arg-3 arg-2 u--vs u--tmptm (TTImpC-45ElabC-45Utils-bindNotReq e-3 arg-2 (bs+ (blodwen-toSignedInt 1 63) arg-3 63) e-10 (vector 0 ) arg-6 u--tmptm))))) ((2) (let ((e-15 (vector-ref sc2 1))) (let ((u--tmptm (CoreC-45TTC-45SubstEnv-subst (vector 1 arg-2 (vector 0 ) (vector 2 "arg" arg-3)) arg-7))) (let ((u--vs (cons e-2 e-3))) (TTImpC-45ElabC-45Utils-case--bindNotReq-7778 e-2 e-3 e-10 e-9 e-15 arg-7 arg-6 arg-3 arg-2 u--vs u--tmptm (TTImpC-45ElabC-45Utils-bindNotReq e-3 arg-2 (bs+ (blodwen-toSignedInt 1 63) arg-3 63) e-10 e-15 arg-6 u--tmptm)))))) (else (let ((e-19 (vector-ref sc2 1))) (TTImpC-45ElabC-45Utils-bindNotReq e-3 arg-2 arg-3 e-10 e-19 (cons (cons (TTImpC-45ElabC-45Utils-plicit e-9) e-2) arg-6) (vector 3 arg-2 e-2 (vector 2 (CoreC-45TT-binderLoc e-9) (CoreC-45TT-multiplicity e-9) (vector 1 ) (CoreC-45TT-binderType e-9)) arg-7))))))))))))))) -(define TTImpC-45ElabC-45Lazy-case--checkDelay-7197 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((1) (CoreC-45Unify-inLHS))(else (CoreC-45Unify-inTerm)))))) -(define TTImpC-45ElabC-45Lazy-n--10904-7176-u--delayError (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((47) 0)(else 1))))) -(define TTImpC-45ElabC-45Lazy-checkForce (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((PreludeC-45Types-maybe (lambda () (lambda (eta-0) (vector 1 (vector 0 )))) (lambda () (lambda (u--gty) (lambda (eta-0) (let ((act-25 ((CoreC-45Normalise-getNF arg-1 u--gty) eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 (vector 1 (CoreC-45Normalise-glueBack arg-1 arg-0 e-5 arg-8 (vector 5 arg-9 (vector 2 ) e-6)))))))))))) arg-11) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((TTImpC-45ElabC-45Check-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 e-6) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (let ((e-2 (car sc3))) (let ((e-3 (cdr sc3))) (let ((act-27 ((CoreC-45Normalise-getNF arg-1 e-3) ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((5) (let ((e-9 (vector-ref sc5 2))) (let ((e-4 (vector-ref sc5 3))) (vector 1 (cons (vector 8 arg-9 e-9 e-2) (CoreC-45Normalise-glueBack arg-1 arg-0 e-5 arg-8 e-4))))))(else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-9 "Forcing a non-delayed type") ext-0))))))))))))))))))))))))))))) -(define TTImpC-45ElabC-45Lazy-checkDelayed (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 ext-0) (let ((act-24 ((TTImpC-45ElabC-45Check-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-11 (vector 1 (CoreC-45Normalise-gType arg-9))) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-2 (car sc1))) (let ((e-3 (cdr sc1))) (vector 1 (cons (vector 6 arg-9 arg-10 e-2) e-3)))))))))))) -(define TTImpC-45ElabC-45Lazy-checkDelay (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 ext-0) (let ((act-24 ((PreludeC-45Types-maybe (lambda () (lambda (eta-0) (let ((act-24 (CoreC-45UnifyState-genName arg-1 arg-3 "delayTy" eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (TTImpC-45ElabC-45Check-metaVar arg-0 arg-1 arg-3 arg-9 (AlgebraC-45Semiring-erased (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))) arg-8 e-5 (vector 11 arg-9) eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 (CoreC-45Normalise-gnf arg-0 arg-8 e-6)))))))))))))) (lambda () (lambda (eta-0) (lambda (eta-1) (vector 1 eta-0)))) arg-11) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((u--solvemode (TTImpC-45ElabC-45Lazy-case--checkDelay-7197 arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 (let ((sc1 arg-6)) (let ((e-0 (vector-ref sc1 1))) e-0))))) (let ((act-25 (CoreC-45Unify-solveConstraints arg-1 arg-3 u--solvemode (vector 0 ) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (TTImpC-45ElabC-45Delayed-delayOnFailure arg-0 arg-1 arg-2 arg-3 arg-4 arg-9 arg-5 arg-8 e-5 (lambda (eta-0) (TTImpC-45ElabC-45Lazy-n--10904-7176-u--delayError arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 eta-0)) (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (u--delayed) (lambda (eta-0) (let ((act-26 ((CoreC-45Normalise-getNF arg-1 e-5) eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((5) (let ((e-2 (vector-ref sc3 2))) (let ((e-3 (vector-ref sc3 3))) (let ((act-27 (let ((act-27 (unbox arg-1))) (vector 1 act-27)))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 ((TTImpC-45ElabC-45Check-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 (vector 1 (CoreC-45Normalise-glueBack arg-1 arg-0 e-8 arg-8 e-3))) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (let ((sc6 e-9)) (let ((e-10 (car sc6))) (let ((e-4 (cdr sc6))) (let ((act-29 ((CoreC-45Normalise-getNF arg-1 e-4) eta-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-30 ((CoreC-45Normalise-getTerm e-4) eta-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-12 (vector-ref sc8 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc8 1))) (vector 1 (cons (vector 7 arg-9 e-2 e-12 e-10) (CoreC-45Normalise-glueBack arg-1 arg-0 e-8 arg-8 (vector 5 arg-9 e-2 e-11))))))))))))))))))))))))))))))(else (let ((act-27 (CoreC-45Normalise-logNF arg-0 arg-1 "elab.delay" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Expected delay type") arg-8 e-7 eta-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-9 "Can't infer delay type") eta-0))))))))))))))) ext-0))))))))))))) -(define TTImpC-45ElabC-45ImplicitBind-case--caseC-32blockC-32inC-32checkBindHere-9049 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (case (vector-ref sc0 0) ((1) (CoreC-45Unify-inLHS))(else (CoreC-45Unify-inTerm)))))) -(define TTImpC-45ElabC-45ImplicitBind-case--caseC-32blockC-32inC-32checkBindHere-8955 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (case (vector-ref sc0 0) ((1) (CoreC-45Unify-inLHS))(else (CoreC-45Unify-inTerm)))))) -(define TTImpC-45ElabC-45ImplicitBind-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkBindVar-8251 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 ext-0) (let ((sc0 arg-20)) (case (vector-ref sc0 0) ((0) (CoreC-45Unify-setInvertible arg-11 arg-3 arg-14 ext-0))(else (vector 1 (vector 0 ))))))) -(define TTImpC-45ElabC-45ImplicitBind-case--caseC-32blockC-32inC-32checkBindVar-8057 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 ext-0) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((0) (let ((act-24 (TTImpC-45ElabC-45ImplicitBind-mkPatternHole arg-0 arg-8 arg-11 arg-9 arg-3 arg-7 arg-14 arg-4 (let ((sc1 arg-6)) (let ((e-1 (vector-ref sc1 2))) e-1)) arg-1 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (car sc2))) (let ((e-3 (cdr sc2))) (let ((sc3 e-3)) (let ((e-6 (car sc3))) (let ((e-7 (cdr sc3))) (let ((act-25 (let ((_-0 (cons e-2 (cons e-6 e-7)))) (TTImpC-45ElabC-45ImplicitBind-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkBindVar-8251 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-2 e-6 e-7 _-0 (let ((sc4 arg-6)) (let ((e-1 (vector-ref sc4 2))) e-1)) ext-0)))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((act-26 (CoreC-45ContextC-45Log-log arg-11 "elab.implicits" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Added Bound implicit " (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (u--x) (CoreC-45Name-u--show_Show_Name u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Name-u--showPrec_Show_Name u--d u--x)))) (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (AlgebraC-45ZeroOneOmega-u--show_Show_ZeroOneOmega x-0)) (lambda (u--d) (lambda (x-0) (AlgebraC-45ZeroOneOmega-u--showPrec_Show_ZeroOneOmega u--d x-0)))) (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (u--d) (lambda (x-1) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-0 u--d x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (u--d) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-0 u--d x-2)))) (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (u--d) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-0 u--d x-2))))) x-1)) (lambda (u--d) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-0 d-0 x-2)))) (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-0 d-0 x-2))))) u--d x-1))))) x-0)) (lambda (u--d) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d-0) (lambda (x-1) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-0 d-0 x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-0 d-0 x-2)))) (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-0 d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-0 d-1 x-2)))) (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-0 d-1 x-2))))) d-0 x-1))))) u--d x-0))))) u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (AlgebraC-45ZeroOneOmega-u--show_Show_ZeroOneOmega x-0)) (lambda (d-0) (lambda (x-0) (AlgebraC-45ZeroOneOmega-u--showPrec_Show_ZeroOneOmega d-0 x-0)))) (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d-0) (lambda (x-1) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-0 d-0 x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-0 d-0 x-2)))) (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-0 d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-0 d-1 x-2)))) (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-0 d-1 x-2))))) d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d-1) (lambda (x-1) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-0 d-1 x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-0 d-1 x-2)))) (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-0 d-1 x-2))))) x-1)) (lambda (d-1) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-2) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-0 d-2 x-2)))) (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-2) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-0 d-2 x-2))))) d-1 x-1))))) d-0 x-0))))) u--d u--x))))) (cons arg-14 (cons arg-7 (cons e-2 (cons e-6 e-7))))))) ext-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((act-27 (let ((act-27 (unbox arg-8))) (vector 1 act-27)))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-28 (let ((act-28 (set-box! arg-8 (let ((sc7 e-10)) (let ((e-1 (vector-ref sc7 1))) (let ((e-21 (vector-ref sc7 2))) (let ((e-20 (vector-ref sc7 3))) (let ((e-4 (vector-ref sc7 4))) (let ((e-19 (vector-ref sc7 5))) (let ((e-18 (vector-ref sc7 6))) (let ((e-17 (vector-ref sc7 7))) (let ((e-16 (vector-ref sc7 8))) (let ((e-15 (vector-ref sc7 9))) (let ((e-14 (vector-ref sc7 10))) (let ((e-11 (vector-ref sc7 11))) (let ((e-12 (vector-ref sc7 12))) (let ((e-13 (vector-ref sc7 13))) (vector 0 e-1 e-21 e-20 e-4 (cons (cons arg-14 (vector 0 arg-0 arg-7 (vector 1 ) e-2 e-6)) e-19) (cons (cons arg-14 (vector 0 arg-0 arg-7 (vector 1 ) e-2 e-7)) e-18) e-17 e-16 e-15 e-14 e-11 e-12 e-13)))))))))))))))))) (vector 1 act-28)))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((act-29 (CoreC-45ContextC-45Log-log arg-11 "metadata.names" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))))) (lambda () "checkBindVar is adding \u2193") ext-0))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((act-30 (CoreC-45Metadata-addNameType arg-0 arg-11 arg-10 arg-3 (vector 1 arg-2) arg-4 e-6 ext-0))) (let ((sc9 act-30)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((act-31 (CoreC-45Metadata-addNameLoc arg-10 arg-11 arg-3 (vector 1 arg-2) ext-0))) (let ((sc10 act-31)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (TTImpC-45ElabC-45Check-checkExp arg-0 arg-11 arg-9 arg-8 arg-7 arg-6 arg-4 arg-3 e-2 (CoreC-45Normalise-gnf arg-0 arg-4 e-6) arg-1 ext-0)))))))))))))))))))))))))))))))))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((act-24 (TTImpC-45ElabC-45ImplicitBind-n--14977-7700-u--combine arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 (vector 1 arg-2) arg-7 (TTImpC-45ElabC-45Check-bindingRig e-2) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((u--tm (TTImpC-45ElabC-45Check-bindingTerm e-2))) (let ((u--ty (TTImpC-45ElabC-45Check-bindingType e-2))) (let ((act-25 (CoreC-45ContextC-45Log-log arg-11 "metadata.names" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))))) (lambda () "checkBindVar is adding \u2193") ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((act-26 (CoreC-45Metadata-addNameType arg-0 arg-11 arg-10 arg-3 (vector 1 arg-2) arg-4 u--ty ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((act-27 (CoreC-45Metadata-addNameLoc arg-10 arg-11 arg-3 (vector 1 arg-2) ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (TTImpC-45ElabC-45Check-checkExp arg-0 arg-11 arg-9 arg-8 arg-7 arg-6 arg-4 arg-3 u--tm (CoreC-45Normalise-gnf arg-0 arg-4 u--ty) arg-1 ext-0))))))))))))))))))))))))) -(define TTImpC-45ElabC-45ImplicitBind-case--checkBindVar-7993 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (cond ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-8))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((u--n (vector 3 (vector 1 arg-2) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 2))) e-2))))) (let ((act-25 (TTImpC-45ElabC-45Check-noteLHSPatVar arg-8 arg-12 (vector 1 arg-2) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (TTImpC-45ElabC-45Check-notePatVar arg-8 u--n eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 (let ((act-27 (unbox arg-8))) (vector 1 act-27)))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (TTImpC-45ElabC-45ImplicitBind-case--caseC-32blockC-32inC-32checkBindVar-8057 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-5 u--n e-8 (DataC-45List-lookup (cons (lambda (arg-14) (lambda (arg-15) (CoreC-45Name-u--C-61C-61_Eq_Name arg-14 arg-15))) (lambda (arg-14) (lambda (arg-15) (CoreC-45Name-u--C-47C-61_Eq_Name arg-14 arg-15)))) u--n (let ((sc5 e-8)) (let ((e-17 (vector-ref sc5 5))) e-17))) eta-0))))))))))))))))))))))(else (TTImpC-45ElabC-45Check-check arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (vector 0 arg-3 (vector 1 arg-2)) arg-1)))))) -(define TTImpC-45ElabC-45ImplicitBind-case--checkBindVar-7928 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((0) (PreludeC-45Types-maybe (lambda () 1) (lambda () (lambda (eta-0) 0)) (CoreC-45Env-defined arg-0 (vector 1 arg-2) arg-4)))(else 1))))) -(define TTImpC-45ElabC-45ImplicitBind-case--getToBindC-44insert-7381 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (cond ((equal? sc0 0) (cons (cons arg-9 arg-10) (cons (cons arg-11 arg-12) arg-13))) (else (cons (cons arg-11 arg-12) (TTImpC-45ElabC-45ImplicitBind-n--14158-6969-u--insert arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (cons arg-9 arg-10) arg-15 (cons arg-11 arg-14) arg-13))))))) -(define TTImpC-45ElabC-45ImplicitBind-case--caseC-32blockC-32inC-32getToBindC-44normImps-7205 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21) (let ((sc0 arg-21)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((TTImpC-45ElabC-45ImplicitBind-n--14158-6968-u--normImps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-13 (cons arg-18 arg-12) arg-11) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTImpC-45ElabC-45ImplicitBind-n--14158-6967-u--normBindingTy arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-13 arg-10 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (cons (cons arg-18 e-6) e-5)))))))))))))) (else (TTImpC-45ElabC-45ImplicitBind-n--14158-6968-u--normImps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-13 arg-12 arg-11)))))) -(define TTImpC-45ElabC-45ImplicitBind-case--getToBindC-44normImps-7156 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (if (null? sc0) (TTImpC-45ElabC-45ImplicitBind-n--14158-6968-u--normImps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-13 arg-12 arg-11) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((2) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((e-7 (vector-ref sc1 3))) (let ((e-8 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 (CoreC-45UnifyState-isCurrentHole arg-6 e-7 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc2 1))) ((TTImpC-45ElabC-45ImplicitBind-case--caseC-32blockC-32inC-32getToBindC-44normImps-7205 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 e-5 e-8 e-7 e-6 e-3 e-9 (PreludeC-45Basics-C-38C-38 e-9 (lambda () (let ((sc3 (PreludeC-45Types-elem (cons (lambda (arg-16) (lambda (arg-17) (CoreC-45Name-u--C-61C-61_Eq_Name arg-16 arg-17))) (lambda (arg-16) (lambda (arg-17) (CoreC-45Name-u--C-47C-61_Eq_Name arg-16 arg-17)))) e-6 arg-12))) (cond ((equal? sc3 0) 1) (else 0)))))) eta-0))))))))))))(else (TTImpC-45ElabC-45ImplicitBind-n--14158-6968-u--normImps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-13 arg-12 arg-11)))))))))) -(define TTImpC-45ElabC-45ImplicitBind-case--getToBindC-44normImps-7039 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (cond ((equal? sc0 0) (TTImpC-45ElabC-45ImplicitBind-n--14158-6968-u--normImps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-14 arg-13 arg-12)) (else (lambda (eta-0) (let ((act-24 ((TTImpC-45ElabC-45ImplicitBind-n--14158-6968-u--normImps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-14 (cons (vector 3 arg-10 arg-9) arg-13) arg-12) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTImpC-45ElabC-45ImplicitBind-n--14158-6967-u--normBindingTy arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-14 arg-11 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (cons (cons (vector 3 arg-10 arg-9) e-6) e-5)))))))))))))))))) -(define TTImpC-45ElabC-45ImplicitBind-case--bindImplVarsC-44getBinds-6677 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21) (let ((sc0 arg-21)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((u--btyC-39 (CoreC-45TT-refsToLocals arg-20 arg-15))) (let ((u--bpatC-39 (CoreC-45TT-refsToLocals arg-20 arg-14))) (cons (vector 3 arg-7 arg-12 (vector 4 arg-7 arg-16 u--bpatC-39 u--btyC-39) e-2) (vector 3 arg-7 arg-12 (vector 4 arg-7 arg-16 u--bpatC-39 u--btyC-39) e-3))))))))) -(define TTImpC-45ElabC-45ImplicitBind-case--bindImplVarsC-44getBinds-6474 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-19 arg-20) (let ((sc0 arg-20)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((u--btyC-39 (CoreC-45TT-refsToLocals arg-19 arg-12))) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((0) (let ((e-0 (vector-ref sc1 1))) (cons (vector 3 arg-7 arg-10 (vector 2 arg-7 e-0 (vector 0 ) u--btyC-39) e-2) (vector 11 arg-7))))(else (cons (vector 3 arg-7 arg-10 (vector 3 arg-7 arg-14 (CoreC-45TT-u--map_Functor_PiInfo (lambda (eta-0) (CoreC-45TT-u--weakenNs_Weaken_Term (CoreC-45TTC-45Bounds-sizeOf arg-19) eta-0)) arg-13) u--btyC-39) e-2) (vector 3 arg-7 arg-10 (vector 5 arg-7 arg-14 u--btyC-39) e-3))))))))))) -(define TTImpC-45ElabC-45ImplicitBind-case--push-6266 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((0) (vector 3 arg-11 arg-3 arg-10 arg-9)) (else (let ((e-2 (vector-ref sc0 1))) (vector 3 arg-8 (vector 3 arg-2 arg-1) (vector 2 arg-6 arg-5 (vector 0 ) e-2) (TTImpC-45ElabC-45ImplicitBind-push (cons (vector 3 arg-2 arg-1) arg-0) arg-11 arg-3 (CoreC-45TT-u--map_Functor_Binder (lambda (eta-0) (CoreC-45TT-u--weaken_Weaken_Term eta-0)) arg-10) (TTImpC-45ElabC-45ImplicitBind-swapVars '() arg-7))))))))) -(define TTImpC-45ElabC-45ImplicitBind-case--swapVars-6014 (lambda (arg-3 arg-5 arg-7 arg-8 arg-9) (vector 0 arg-8 arg-7 arg-9))) -(define TTImpC-45ElabC-45ImplicitBind-case--swapIsVar-5942 (lambda (arg-4 arg-5 arg-6 arg-8 arg-9) (+ 1 arg-9))) -(define TTImpC-45ElabC-45ImplicitBind-case--bindUnsolvedC-44makeBoundVar-5238 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 ext-0) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((0) (let ((act-24 (CoreC-45Context-toFullNames arg-6 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) arg-9 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-2 (PreludeC-45TypesC-45String-C-43C-43 "Can't bind implicit " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name arg-15) (PreludeC-45TypesC-45String-C-43C-43 " of type " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-8 e-5))))) ext-0))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((act-24 (CoreC-45UnifyState-genVarName arg-6 arg-3 (CoreC-45Name-nameRoot arg-15) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTImpC-45ElabC-45Check-metaVar arg-7 arg-6 arg-3 arg-2 arg-14 arg-12 e-5 e-2 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (let ((act-26 (unbox arg-5))) (vector 1 act-26)))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (let ((u--pC-39 (CoreC-45TT-forgetDef arg-13))) (let ((act-27 (let ((act-27 (set-box! arg-5 (let ((sc4 e-7)) (let ((e-1 (vector-ref sc4 1))) (let ((e-17 (vector-ref sc4 2))) (let ((e-3 (vector-ref sc4 3))) (let ((e-4 (vector-ref sc4 4))) (let ((e-16 (vector-ref sc4 5))) (let ((e-15 (vector-ref sc4 6))) (let ((e-14 (vector-ref sc4 7))) (let ((e-8 (vector-ref sc4 8))) (let ((e-9 (vector-ref sc4 9))) (let ((e-10 (vector-ref sc4 10))) (let ((e-11 (vector-ref sc4 11))) (let ((e-12 (vector-ref sc4 12))) (let ((e-13 (vector-ref sc4 13))) (vector 0 e-1 e-17 e-3 e-4 e-16 (cons (cons e-5 (vector 0 arg-4 arg-14 u--pC-39 (CoreC-45TT-embedSub arg-10 e-6) (CoreC-45TT-embedSub arg-10 e-2))) e-15) e-14 e-8 e-9 e-10 e-11 e-12 e-13)))))))))))))))))) (vector 1 act-27)))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (vector 1 (CoreC-45TT-embedSub arg-11 e-6)))))))))))))))))))))))))))) -(define TTImpC-45ElabC-45ImplicitBind-case--mkPatternHole-5095 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (TTImpC-45ElabC-45ImplicitBind-mkPatternHole arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 (vector 0 ) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (TTImpC-45ElabC-45Check-implBindVar (let ((sc1 arg-10)) (let ((e-1 (vector-ref sc1 1))) e-1)) arg-8 arg-7 arg-6 arg-5 arg-12 arg-4 e-2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (cons (CoreC-45TT-apply arg-6 (CoreC-45TT-embedSub arg-11 e-5) (TTImpC-45ElabC-45ImplicitBind-n--11830-4983-u--mkArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-0 arg-11)) (cons arg-13 (CoreC-45TT-embedSub arg-11 e-2)))))))))))))))) -(define TTImpC-45ElabC-45ImplicitBind-case--mkOuterHole-4748 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (TTImpC-45ElabC-45ImplicitBind-mkOuterHole arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 (vector 0 ) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((u--env (let ((sc1 arg-9)) (let ((e-3 (vector-ref sc1 3))) e-3)))) (lambda (eta-0) (let ((act-24 (TTImpC-45ElabC-45Check-implBindVar (let ((sc1 arg-9)) (let ((e-1 (vector-ref sc1 1))) e-1)) arg-7 arg-6 arg-5 arg-4 u--env arg-3 e-2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (cons (CoreC-45TT-embedSub arg-10 e-5) (CoreC-45TT-embedSub arg-10 e-2)))))))))))))))) -(define TTImpC-45ElabC-45ImplicitBind-n--13514-6424-u--tidyName (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (TTImpC-45ElabC-45ImplicitBind-n--13514-6424-u--tidyName arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-1))) ((3) (let ((e-2 (vector-ref sc0 1))) (TTImpC-45ElabC-45ImplicitBind-n--13514-6424-u--tidyName arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-2))) ((6) (let ((e-5 (vector-ref sc0 2))) (TTImpC-45ElabC-45ImplicitBind-n--13514-6424-u--tidyName arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-5)))(else arg-8))))) -(define TTImpC-45ElabC-45ImplicitBind-n--12794-5819-u--swapP (lambda (arg-4 arg-6 arg-8) (let ((sc0 arg-8)) (cond ((equal? sc0 0) 0)(else (let ((e-0 (- arg-8 1))) (+ 1 (+ 1 e-0)))))))) -(define TTImpC-45ElabC-45ImplicitBind-n--14158-6968-u--normImps (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (if (null? sc0) (lambda (eta-0) (vector 1 '())) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (lambda (clam-0) (let ((sc1 e-2)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((3) (let ((e-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (let ((act-24 (CoreC-45Normalise-logTermNF arg-1 arg-8 "elab.implicits" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Implicit pattern var " (CoreC-45Name-u--show_Show_Name (vector 3 e-8 e-9)))) arg-2 (TTImpC-45ElabC-45Check-bindingType e-7) clam-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else ((TTImpC-45ElabC-45ImplicitBind-case--getToBindC-44normImps-7039 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-9 e-8 e-7 e-3 arg-10 arg-9 (PreludeC-45Types-elem (cons (lambda (arg-12) (lambda (arg-13) (CoreC-45Name-u--C-61C-61_Eq_Name arg-12 arg-13))) (lambda (arg-12) (lambda (arg-13) (CoreC-45Name-u--C-47C-61_Eq_Name arg-12 arg-13)))) (vector 3 e-8 e-9) arg-10)) clam-0))))))))(else (let ((act-24 (CoreC-45Normalise-normaliseHoles arg-8 arg-1 arg-9 arg-2 (TTImpC-45ElabC-45Check-bindingTerm e-7) clam-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (CoreC-45ContextC-45Log-logTerm arg-1 arg-8 "elab.implicits" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Normalising implicit " (CoreC-45Name-u--show_Show_Name e-6))) e-5 clam-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else ((TTImpC-45ElabC-45ImplicitBind-case--getToBindC-44normImps-7156 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-6 e-7 e-3 arg-10 arg-9 e-5 (CoreC-45TT-getFnArgs e-5)) clam-0))))))))))))))))))))))) -(define TTImpC-45ElabC-45ImplicitBind-n--14158-6967-u--normBindingTy (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 ext-0) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((act-24 (CoreC-45Normalise-normaliseHoles arg-8 arg-1 arg-9 arg-2 e-4 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 arg-1 e-1 e-2 e-3 e-5)))))))))))) (else (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (let ((e-9 (vector-ref sc0 5))) (let ((e-10 (vector-ref sc0 6))) (let ((act-24 (CoreC-45Normalise-normaliseHoles arg-8 arg-1 arg-9 arg-2 e-9 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Normalise-normaliseHoles arg-8 arg-1 arg-9 arg-2 e-10 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc2 1))) (vector 1 (vector 1 arg-1 e-6 e-7 e-8 e-11 e-12)))))))))))))))))))))) -(define TTImpC-45ElabC-45ImplicitBind-n--14021-6842-u--nHoles (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 ext-0) (let ((sc0 arg-9)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 2))) (let ((e-6 (vector-ref sc1 3))) (let ((e-7 (vector-ref sc1 4))) (let ((e-8 (vector-ref sc1 5))) (let ((act-24 (TTImpC-45ElabC-45ImplicitBind-normaliseHolesScope arg-8 arg-0 arg-5 arg-4 e-8 ext-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-9 (vector-ref sc2 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc2 1))) (vector 1 (cons e-2 (vector 0 arg-0 e-5 e-6 e-7 e-9))))))))))))) (else (let ((e-10 (vector-ref sc1 2))) (let ((e-11 (vector-ref sc1 3))) (let ((e-12 (vector-ref sc1 4))) (let ((e-13 (vector-ref sc1 5))) (let ((e-14 (vector-ref sc1 6))) (let ((act-24 (TTImpC-45ElabC-45ImplicitBind-normaliseHolesScope arg-8 arg-0 arg-5 arg-4 e-13 ext-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (cons e-2 (vector 1 arg-0 e-10 e-11 e-12 e-5 e-14))))))))))))))))))))) -(define TTImpC-45ElabC-45ImplicitBind-n--12148-5218-u--mkImplicit (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-3)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (let ((sc2 e-7)) (let ((e-10 (car sc2))) (let ((e-11 (cdr sc2))) (let ((sc3 e-11)) (let ((e-14 (car sc3))) (let ((e-15 (cdr sc3))) (let ((sc4 e-15)) (let ((e-18 (car sc4))) (let ((e-19 (cdr sc4))) (lambda (clam-0) (let ((sc5 e-19)) (let ((e-22 (car sc5))) (let ((e-23 (cdr sc5))) (let ((sc6 e-23)) (let ((e-26 (car sc6))) (let ((e-27 (cdr sc6))) (let ((act-24 (CoreC-45Context-lookupDefExact e-2 (let ((sc7 arg-8)) (let ((e-0 (vector-ref sc7 1))) e-0)) clam-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc7 1))) (let ((sc8 e-5)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((sc9 e-1)) (case (vector-ref sc9 0) ((7) (let ((act-25 (let ((act-25 (CoreC-45Normalise-normaliseHoles arg-6 e-10 arg-8 e-14 e-26 clam-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) (TTImpC-45ElabC-45ImplicitBind-n--12148-5217-u--makeBoundVar arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-10 e-2 e-6 e-18 arg-9 e-27 arg-10 e-9 clam-0)))))))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) (let ((act-26 (CoreC-45ContextC-45Log-logTerm e-10 arg-6 "elab.implicits" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Added unbound implicit") e-9 clam-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-12 (vector-ref sc11 1))) (vector 0 e-12))) (else (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc12 eta-0)) (case (vector-ref sc12 0) ((0) (let ((e-13 (vector-ref sc12 1))) (vector 0 e-13))) (else (vector 1 (vector 0 )))))) (((CoreC-45Unify-unify (cons (lambda (u--vars) (lambda (arg-4911) (lambda (arg-4913) (lambda (arg-4915) (lambda (arg-4916) (lambda (arg-4917) (lambda (arg-4919) (lambda (arg-4922) (lambda (eta-0) (CoreC-45Unify-u--unifyD_Unify_Term u--vars arg-4911 arg-4913 arg-4915 arg-4916 arg-4917 arg-4919 arg-4922 eta-0)))))))))) (lambda (u--vars) (lambda (arg-4924) (lambda (arg-4926) (lambda (arg-4928) (lambda (arg-4929) (lambda (arg-4930) (lambda (arg-4932) (lambda (arg-4933) (lambda (eta-0) (CoreC-45Unify-u--unifyWithLazyD_Unify_Term u--vars arg-4924 arg-4926 arg-4928 arg-4929 arg-4930 arg-4932 arg-4933 eta-0))))))))))) e-10 arg-6 arg-3 (let ((sc12 arg-1)) (case (vector-ref sc12 0) ((1) (CoreC-45Unify-inLHS))(else (CoreC-45Unify-inTerm)))) arg-2 e-14) e-22) e-9) clam-0)))))))))))(else (vector 1 (vector 0 )))))))(else (vector 1 (vector 0 )))))))))))))))))))))))))))))))))) -(define TTImpC-45ElabC-45ImplicitBind-n--11830-4983-u--mkArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((0) '())(else (let ((sc0 arg-11)) (if (null? sc0) '() (let ((e-2 (cdr sc0))) (let ((sc1 arg-12)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 1))) (cons (vector 0 arg-6 (vector 0 ) 0) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45TT-u--weaken_Weaken_Term eta-0)) (TTImpC-45ElabC-45ImplicitBind-n--11830-4983-u--mkArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-2 e-6)))))(else '()))))))))))) -(define TTImpC-45ElabC-45ImplicitBind-n--12148-5217-u--makeBoundVar (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 ext-0) (TTImpC-45ElabC-45ImplicitBind-case--bindUnsolvedC-44makeBoundVar-5238 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-15 arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 (CoreC-45TT-shrinkTerm arg-15 arg-13) ext-0))) -(define TTImpC-45ElabC-45ImplicitBind-n--13444-6361-u--liftImpsC-39 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((3) (let ((e-10 (vector-ref sc1 1))) (let ((e-11 (vector-ref sc1 2))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((2) (let ((e-15 (vector-ref sc2 3))) (let ((sc3 e-15)) (case (vector-ref sc3 0) ((0) (vector 3 e-1 (vector 3 e-10 e-11) e-3 (TTImpC-45ElabC-45ImplicitBind-n--13444-6361-u--liftImpsC-39 arg-0 arg-1 arg-2 arg-3 (cons (vector 3 e-10 e-11) arg-4) e-4)))(else (let ((sc3 e-3)) (case (vector-ref sc3 0) ((2) (TTImpC-45ElabC-45ImplicitBind-push arg-4 e-1 e-2 e-3 (TTImpC-45ElabC-45ImplicitBind-n--13444-6361-u--liftImpsC-39 arg-0 arg-1 arg-2 arg-3 (cons e-2 arg-4) e-4)))(else arg-5))))))))(else (let ((sc2 e-3)) (case (vector-ref sc2 0) ((2) (TTImpC-45ElabC-45ImplicitBind-push arg-4 e-1 e-2 e-3 (TTImpC-45ElabC-45ImplicitBind-n--13444-6361-u--liftImpsC-39 arg-0 arg-1 arg-2 arg-3 (cons e-2 arg-4) e-4)))(else arg-5)))))))))(else (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (TTImpC-45ElabC-45ImplicitBind-push arg-4 e-1 e-2 e-3 (TTImpC-45ElabC-45ImplicitBind-n--13444-6361-u--liftImpsC-39 arg-0 arg-1 arg-2 arg-3 (cons e-2 arg-4) e-4)))(else arg-5)))))))))))(else arg-5))))) -(define TTImpC-45ElabC-45ImplicitBind-n--14977-7699-u--isIncompatible (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (PreludeC-45Basics-C-38C-38 (PreludeC-45Basics-C-124C-124 (AlgebraC-45Semiring-isLinear (cons (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-14) (lambda (arg-15) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-14 arg-15))) (lambda (arg-14) (lambda (arg-15) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-14 arg-15))))) arg-12) (lambda () (AlgebraC-45Semiring-isLinear (cons (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-14) (lambda (arg-15) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-14 arg-15))) (lambda (arg-14) (lambda (arg-15) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-14 arg-15))))) arg-13))) (lambda () (AlgebraC-45Preorder-C-60 (cons (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-60C-61_Preorder_ZeroOneOmega arg-355 arg-356))) (lambda (u--x) (AlgebraC-45ZeroOneOmega-u--preorderRefl_Preorder_ZeroOneOmega u--x)) (lambda (u--x) (lambda (u--y) (lambda (u--z) (lambda (arg-358) (lambda (arg-360) (AlgebraC-45ZeroOneOmega-u--preorderTrans_Preorder_ZeroOneOmega u--x u--y u--z arg-358 arg-360))))))) (cons (lambda (arg-14) (lambda (arg-15) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-14 arg-15))) (lambda (arg-14) (lambda (arg-15) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-14 arg-15))))) (AlgebraC-45Semiring-linear (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-12 arg-13)))))) -(define TTImpC-45ElabC-45ImplicitBind-n--14158-6969-u--insert (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (if (null? sc0) (cons arg-9 '()) (let ((sc1 arg-9)) (let ((e-2 (car sc1))) (let ((e-3 (cdr sc1))) (let ((sc2 arg-12)) (let ((e-5 (car sc2))) (let ((e-6 (cdr sc2))) (let ((sc3 e-5)) (let ((e-9 (car sc3))) (let ((e-10 (cdr sc3))) (let ((u--used (DataC-45List-filter (lambda (u--n) (PreludeC-45Types-elem (cons (lambda (arg-13) (lambda (arg-14) (CoreC-45Name-u--C-61C-61_Eq_Name arg-13 arg-14))) (lambda (arg-13) (lambda (arg-14) (CoreC-45Name-u--C-47C-61_Eq_Name arg-13 arg-14)))) u--n arg-10)) (LibrariesC-45DataC-45NameMap-keys (TTImpC-45ElabC-45Check-bindingMetas e-10))))) (TTImpC-45ElabC-45ImplicitBind-case--getToBindC-44insert-7381 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2 e-3 e-9 e-10 e-6 arg-11 arg-10 u--used (PreludeC-45Types-elem (cons (lambda (arg-13) (lambda (arg-14) (CoreC-45Name-u--C-61C-61_Eq_Name arg-13 arg-14))) (lambda (arg-13) (lambda (arg-14) (CoreC-45Name-u--C-47C-61_Eq_Name arg-13 arg-14)))) e-2 u--used)))))))))))))))) -(define TTImpC-45ElabC-45ImplicitBind-n--13514-6425-u--getBinds (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-10)) (if (null? sc0) (cons (CoreC-45TT-refsToLocals arg-11 arg-12) (CoreC-45TT-refsToLocals arg-11 arg-13)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (let ((sc2 e-7)) (let ((e-10 (car sc2))) (let ((e-11 (cdr sc2))) (let ((sc3 e-11)) (case (vector-ref sc3 0) ((0) (let ((e-12 (vector-ref sc3 1))) (let ((e-13 (vector-ref sc3 2))) (let ((e-14 (vector-ref sc3 3))) (let ((e-15 (vector-ref sc3 4))) (let ((e-16 (vector-ref sc3 5))) (TTImpC-45ElabC-45ImplicitBind-case--bindImplVarsC-44getBinds-6474 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-12 e-15 e-6 e-10 e-16 e-14 e-13 e-3 arg-13 arg-12 arg-11 (TTImpC-45ElabC-45ImplicitBind-n--13514-6425-u--getBinds arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-3 (vector 1 e-6 e-10 arg-11) arg-12 arg-13)))))))) (else (let ((e-17 (vector-ref sc3 1))) (let ((e-18 (vector-ref sc3 2))) (let ((e-19 (vector-ref sc3 3))) (let ((e-20 (vector-ref sc3 4))) (let ((e-21 (vector-ref sc3 5))) (let ((e-22 (vector-ref sc3 6))) (TTImpC-45ElabC-45ImplicitBind-case--bindImplVarsC-44getBinds-6677 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-17 e-19 e-20 e-6 e-10 e-22 e-21 e-18 e-3 arg-13 arg-12 arg-11 (TTImpC-45ElabC-45ImplicitBind-n--13514-6425-u--getBinds arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-3 (vector 1 e-6 e-10 arg-11) arg-12 arg-13))))))))))))))))))))))) -(define TTImpC-45ElabC-45ImplicitBind-n--14158-6970-u--depSort (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (if (null? sc0) '() (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (TTImpC-45ElabC-45ImplicitBind-n--14158-6969-u--insert arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2 arg-9 '() (TTImpC-45ElabC-45ImplicitBind-n--14158-6970-u--depSort arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-3)))))))) -(define TTImpC-45ElabC-45ImplicitBind-n--14977-7700-u--combine (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 ext-0) (let ((sc0 (TTImpC-45ElabC-45ImplicitBind-n--14977-7699-u--isIncompatible arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-13 arg-14))) (cond ((equal? sc0 0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 13 arg-3 (+ 1 (+ 1 0)) arg-12) ext-0)) (else (vector 1 (vector 0 ))))))) -(define TTImpC-45ElabC-45ImplicitBind-n--11830-4984-u--bindInner (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((0) (vector 1 arg-13))(else (let ((sc0 arg-11)) (if (null? sc0) (vector 0 ) (let ((e-1 (car sc0))) (let ((e-2 (cdr sc0))) (let ((sc1 arg-12)) (if (null? sc1) (vector 0 ) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (let ((sc2 arg-14)) (case (vector-ref sc2 0) ((1) (let ((e-11 (vector-ref sc2 1))) (TTImpC-45ElabC-45ImplicitBind-n--11830-4984-u--bindInner arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-2 e-7 (vector 3 arg-6 e-1 e-6 arg-13) e-11)))(else (vector 0 ))))))))))))))))) -(define TTImpC-45ElabC-45ImplicitBind-swapVars (lambda (arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (TTImpC-45ElabC-45ImplicitBind-case--swapVars-6014 arg-3 e-4 e-3 e-2 (TTImpC-45ElabC-45ImplicitBind-swapIsVar arg-3 e-4)))))) ((1) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (vector 1 e-7 e-8 e-9))))) ((2) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 4))) (vector 2 e-11 e-12 e-13 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (TTImpC-45ElabC-45ImplicitBind-swapVars arg-3 eta-0)) e-14))))))) ((3) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (vector 3 e-16 e-17 (CoreC-45TT-u--map_Functor_Binder (lambda (eta-0) (TTImpC-45ElabC-45ImplicitBind-swapVars arg-3 eta-0)) e-18) (TTImpC-45ElabC-45ImplicitBind-swapVars (cons e-17 arg-3) e-19))))))) ((4) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (vector 4 e-21 (TTImpC-45ElabC-45ImplicitBind-swapVars arg-3 e-22) (TTImpC-45ElabC-45ImplicitBind-swapVars arg-3 e-23)))))) ((5) (let ((e-25 (vector-ref sc0 1))) (let ((e-26 (vector-ref sc0 2))) (let ((e-27 (vector-ref sc0 3))) (let ((e-28 (vector-ref sc0 4))) (vector 5 e-25 e-26 (TTImpC-45ElabC-45ImplicitBind-swapVars arg-3 e-27) (TTImpC-45ElabC-45ImplicitBind-swapVars arg-3 e-28))))))) ((6) (let ((e-30 (vector-ref sc0 1))) (let ((e-31 (vector-ref sc0 2))) (let ((e-32 (vector-ref sc0 3))) (vector 6 e-30 e-31 (TTImpC-45ElabC-45ImplicitBind-swapVars arg-3 e-32)))))) ((7) (let ((e-34 (vector-ref sc0 1))) (let ((e-35 (vector-ref sc0 2))) (let ((e-36 (vector-ref sc0 3))) (let ((e-37 (vector-ref sc0 4))) (vector 7 e-34 e-35 (TTImpC-45ElabC-45ImplicitBind-swapVars arg-3 e-36) (TTImpC-45ElabC-45ImplicitBind-swapVars arg-3 e-37))))))) ((8) (let ((e-39 (vector-ref sc0 1))) (let ((e-40 (vector-ref sc0 2))) (let ((e-41 (vector-ref sc0 3))) (vector 8 e-39 e-40 (TTImpC-45ElabC-45ImplicitBind-swapVars arg-3 e-41)))))) ((9) (let ((e-43 (vector-ref sc0 1))) (let ((e-44 (vector-ref sc0 2))) (vector 9 e-43 e-44)))) ((10) (let ((e-46 (vector-ref sc0 1))) (let ((e-47 (vector-ref sc0 2))) (vector 10 e-46 e-47)))) (else (let ((e-49 (vector-ref sc0 1))) (vector 11 e-49))))))) -(define TTImpC-45ElabC-45ImplicitBind-swapIsVarH (lambda (arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (+ 1 0))(else (let ((e-0 (- arg-4 1))) (TTImpC-45ElabC-45ImplicitBind-n--12794-5819-u--swapP e-0 arg-4 e-0))))))) -(define TTImpC-45ElabC-45ImplicitBind-swapIsVar (lambda (arg-4 arg-5) (let ((sc0 arg-4)) (if (null? sc0) (TTImpC-45ElabC-45ImplicitBind-swapIsVarH arg-5) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 arg-5)) (cond ((equal? sc1 0) 0)(else (let ((e-4 (- arg-5 1))) (let ((u--idx (+ 1 e-4))) (TTImpC-45ElabC-45ImplicitBind-case--swapIsVar-5942 e-4 e-2 e-3 u--idx (TTImpC-45ElabC-45ImplicitBind-swapIsVar e-3 e-4))))))))))))) -(define TTImpC-45ElabC-45ImplicitBind-push (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((3) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((2) (let ((e-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (let ((e-10 (vector-ref sc2 3))) (let ((e-11 (vector-ref sc2 4))) (let ((sc3 e-10)) (case (vector-ref sc3 0) ((0) (let ((u--tm (vector 3 e-1 (vector 3 e-5 e-6) (vector 2 e-8 e-9 (vector 0 ) e-11) e-4))) (TTImpC-45ElabC-45ImplicitBind-case--push-6266 arg-0 e-6 e-5 arg-2 e-11 e-9 e-8 e-4 e-1 u--tm arg-3 arg-1 (CoreC-45TT-shrinkTerm e-11 (vector 1 (vector 0 ))))))(else (vector 3 arg-1 arg-2 arg-3 arg-4)))))))))(else (vector 3 arg-1 arg-2 arg-3 arg-4)))))))(else (vector 3 arg-1 arg-2 arg-3 arg-4)))))))))(else (vector 3 arg-1 arg-2 arg-3 arg-4)))))) -(define TTImpC-45ElabC-45ImplicitBind-normaliseHolesScope (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((act-24 (TTImpC-45ElabC-45ImplicitBind-normaliseHolesScope arg-0 (cons e-2 arg-1) arg-2 (cons (vector 0 e-1 (CoreC-45TT-multiplicity e-3) (vector 1 ) (CoreC-45TT-binderType e-3)) arg-3) e-4 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 3 e-1 e-2 e-3 e-5))))))))))))(else (CoreC-45Normalise-normaliseHoles arg-0 arg-1 arg-2 arg-3 arg-4 ext-0)))))) -(define TTImpC-45ElabC-45ImplicitBind-mkPatternHole (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 ext-0) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (let ((act-24 (TTImpC-45ElabC-45ImplicitBind-mkOuterHole arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-9 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-4 (car sc2))) (let ((e-3 (cdr sc2))) (vector 1 (cons e-4 (cons e-3 e-3))))))))))))(else (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((u--sub (let ((sc2 e-5)) (let ((e-4 (vector-ref sc2 4))) e-4)))) (let ((u--env (let ((sc2 e-5)) (let ((e-3 (vector-ref sc2 3))) e-3)))) (let ((act-25 ((CoreC-45Normalise-getTerm e-1) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((TTImpC-45ElabC-45ImplicitBind-case--mkPatternHole-5095 arg-0 e-1 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 u--sub u--env e-6 (TTImpC-45ElabC-45ImplicitBind-n--11830-4984-u--bindInner arg-0 e-1 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 arg-7 e-6 u--sub)) ext-0)))))))))))))))(else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-4 (PreludeC-45TypesC-45String-C-43C-43 "Unknown type for pattern variable " (CoreC-45Name-u--show_Show_Name arg-6))) ext-0))))))))) -(define TTImpC-45ElabC-45ImplicitBind-mkOuterHole (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 ext-0) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((u--sub (let ((sc2 e-5)) (let ((e-4 (vector-ref sc2 4))) e-4)))) (let ((act-25 ((CoreC-45Normalise-getTerm e-1) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((TTImpC-45ElabC-45ImplicitBind-case--mkOuterHole-4748 arg-0 e-1 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 u--sub e-6 (CoreC-45TT-shrinkTerm e-6 u--sub)) ext-0)))))))))))))) (else (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((u--sub (let ((sc2 e-5)) (let ((e-4 (vector-ref sc2 4))) e-4)))) (let ((u--env (let ((sc2 e-5)) (let ((e-3 (vector-ref sc2 3))) e-3)))) (let ((act-25 (CoreC-45UnifyState-genName arg-2 arg-3 (PreludeC-45TypesC-45String-C-43C-43 "type_of_" (CoreC-45Name-nameRoot arg-6)) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImpC-45ElabC-45Check-metaVar (let ((sc3 e-5)) (let ((e-1 (vector-ref sc3 1))) e-1)) arg-2 arg-3 arg-4 (AlgebraC-45Semiring-erased (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))) u--env e-6 (vector 11 arg-4) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (CoreC-45ContextC-45Log-log arg-2 "elab.implicits" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Made metavariable for type of " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name arg-6) (PreludeC-45TypesC-45String-C-43C-43 ": " (CoreC-45Name-u--show_Show_Name e-6))))) ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-28 (let ((act-28 (set-box! arg-1 (TTImpC-45ElabC-45Check-addBindIfUnsolved arg-0 e-6 arg-5 (vector 1 ) arg-7 (CoreC-45TT-embedSub u--sub e-7) (vector 11 arg-4) e-5)))) (vector 1 act-28)))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((act-29 (TTImpC-45ElabC-45Check-implBindVar (let ((sc6 e-5)) (let ((e-1 (vector-ref sc6 1))) e-1)) arg-2 arg-3 arg-4 arg-5 u--env arg-6 e-7 ext-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc6 1))) (vector 1 (cons (CoreC-45TT-embedSub u--sub e-10) (CoreC-45TT-embedSub u--sub e-7)))))))))))))))))))))))))))))))))))))) -(define TTImpC-45ElabC-45ImplicitBind-liftImps (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 arg-2)) (if (null? sc1) arg-2 (let ((e-3 (car sc1))) (let ((e-4 (cdr sc1))) (let ((sc2 e-4)) (case (vector-ref sc2 0) ((11) (let ((e-6 (vector-ref sc2 1))) (cons (TTImpC-45ElabC-45ImplicitBind-n--13444-6361-u--liftImpsC-39 arg-0 e-0 e-3 e-6 arg-0 e-3) (vector 11 e-6))))(else arg-2)))))))))(else arg-2))))) -(define TTImpC-45ElabC-45ImplicitBind-implicitBind (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (CoreC-45Context-lookupDefExact arg-2 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0)) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((sc3 e-1)) (case (vector-ref sc3 0) ((7) (let ((act-26 (CoreC-45Context-updateDef arg-0 arg-2 (lambda (eta-0) (vector 1 (vector 10 ))) ext-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (CoreC-45UnifyState-removeHoleName arg-0 arg-1 arg-2 ext-0))))))(else (vector 1 (vector 0 )))))))(else (vector 1 (vector 0 ))))))))))))))))) -(define TTImpC-45ElabC-45ImplicitBind-getToBind (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 ext-0) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((2) (vector 1 '()))(else (let ((act-24 (CoreC-45Unify-solveConstraints arg-1 arg-3 (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (CoreC-45Unify-inLHS))(else (CoreC-45Unify-inTerm)))) (vector 0 ) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((act-25 (TTImpC-45ElabC-45ImplicitBind-bindUnsolved arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45Unify-solveConstraints arg-1 arg-3 (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((1) (CoreC-45Unify-inLHS))(else (CoreC-45Unify-inTerm)))) (vector 0 ) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-27 (let ((act-27 (unbox arg-1))) (vector 1 act-27)))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (let ((act-28 (unbox arg-2))) (vector 1 act-28)))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((u--tob (DataC-45List-reverse (DataC-45List-filter (lambda (u--x) (let ((sc5 (PreludeC-45Types-elem (cons (lambda (arg-9) (lambda (arg-10) (CoreC-45Name-u--C-61C-61_Eq_Name arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (CoreC-45Name-u--C-47C-61_Eq_Name arg-9 arg-10)))) (Builtin-fst u--x) arg-8))) (cond ((equal? sc5 0) 1) (else 0)))) (let ((sc5 e-9)) (let ((e-17 (vector-ref sc5 6))) e-17)))))) (let ((act-29 ((TTImpC-45ElabC-45ImplicitBind-n--14158-6968-u--normImps arg-8 arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-8 '() u--tob) ext-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc5 1))) (let ((u--hnames (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-fst eta-0)) e-10))) (let ((u--resC-39 (TTImpC-45ElabC-45ImplicitBind-n--14158-6970-u--depSort arg-8 arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 u--hnames e-10))) (let ((act-30 (CoreC-45ContextC-45Log-log arg-1 "elab.implicits" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Bound names: " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (CoreC-45Name-u--show_Show_Name x-0)) (lambda (u--d) (lambda (x-0) (CoreC-45Name-u--showPrec_Show_Name u--d x-0)))) (cons (lambda (x-0) (TTImpC-45ElabC-45Check-u--show_Show_C-40ImplBindingC-32C-36varsC-41 x-0)) (lambda (u--d) (lambda (x-0) (TTImpC-45ElabC-45Check-u--showPrec_Show_C-40ImplBindingC-32C-36varsC-41 u--d x-0))))) u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (CoreC-45Name-u--show_Show_Name x-0)) (lambda (d-0) (lambda (x-0) (CoreC-45Name-u--showPrec_Show_Name d-0 x-0)))) (cons (lambda (x-0) (TTImpC-45ElabC-45Check-u--show_Show_C-40ImplBindingC-32C-36varsC-41 x-0)) (lambda (d-0) (lambda (x-0) (TTImpC-45ElabC-45Check-u--showPrec_Show_C-40ImplBindingC-32C-36varsC-41 d-0 x-0))))) u--d u--x)))) e-10))) ext-0))) (let ((sc6 act-30)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((act-31 (CoreC-45ContextC-45Log-log arg-1 "elab.implicits" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Sorted: " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (CoreC-45Name-u--show_Show_Name x-0)) (lambda (u--d) (lambda (x-0) (CoreC-45Name-u--showPrec_Show_Name u--d x-0)))) (cons (lambda (x-0) (TTImpC-45ElabC-45Check-u--show_Show_C-40ImplBindingC-32C-36varsC-41 x-0)) (lambda (u--d) (lambda (x-0) (TTImpC-45ElabC-45Check-u--showPrec_Show_C-40ImplBindingC-32C-36varsC-41 u--d x-0))))) u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (CoreC-45Name-u--show_Show_Name x-0)) (lambda (d-0) (lambda (x-0) (CoreC-45Name-u--showPrec_Show_Name d-0 x-0)))) (cons (lambda (x-0) (TTImpC-45ElabC-45Check-u--show_Show_C-40ImplBindingC-32C-36varsC-41 x-0)) (lambda (d-0) (lambda (x-0) (TTImpC-45ElabC-45Check-u--showPrec_Show_C-40ImplBindingC-32C-36varsC-41 d-0 x-0))))) u--d u--x)))) u--resC-39))) ext-0))) (let ((sc7 act-31)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (vector 1 u--resC-39)))))))))))))))))))))))))))))))))))))))))))) -(define TTImpC-45ElabC-45ImplicitBind-checkBindVar (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((u--elabmode (let ((sc0 arg-6)) (let ((e-0 (vector-ref sc0 1))) e-0)))) (TTImpC-45ElabC-45ImplicitBind-case--checkBindVar-7993 arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 u--elabmode (TTImpC-45ElabC-45ImplicitBind-case--checkBindVar-7928 arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 u--elabmode (let ((sc0 arg-6)) (let ((e-1 (vector-ref sc0 2))) e-1))))))) -(define TTImpC-45ElabC-45ImplicitBind-checkBindHere (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 ext-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((u--oldenv (let ((sc1 e-5)) (let ((e-3 (vector-ref sc1 3))) e-3)))) (let ((u--oldsub (let ((sc1 e-5)) (let ((e-4 (vector-ref sc1 4))) e-4)))) (let ((u--oldbif (let ((sc1 e-5)) (let ((e-7 (vector-ref sc1 7))) e-7)))) (let ((u--dontbind (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-fst eta-0)) (let ((sc1 e-5)) (let ((e-6 (vector-ref sc1 6))) e-6))))) (let ((act-25 (let ((act-25 (set-box! arg-4 (TTImpC-45ElabC-45Check-updateEnv arg-0 arg-8 (vector 0 ) '() e-5)))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45Context-getNextEntry arg-1 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 ((TTImpC-45ElabC-45Check-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (let ((sc3 arg-6)) (let ((e-0 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 3))) (let ((e-4 (vector-ref sc3 5))) (let ((e-8 (vector-ref sc3 6))) (vector 0 e-0 arg-10 e-2 0 e-4 e-8)))))) arg-7 arg-8 arg-11 arg-12) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (let ((e-2 (car sc4))) (let ((e-3 (cdr sc4))) (let ((act-28 (CoreC-45Unify-solveConstraints arg-1 arg-3 (let ((_-0 (cons e-2 e-3))) (TTImpC-45ElabC-45ImplicitBind-case--caseC-32blockC-32inC-32checkBindHere-9049 arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 u--oldenv u--oldsub u--oldbif u--dontbind e-7 e-2 e-3 _-0 (let ((sc5 arg-6)) (let ((e-0 (vector-ref sc5 1))) e-0)))) (vector 0 ) ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((act-29 (CoreC-45Unify-solveConstraintsAfter arg-1 arg-3 e-7 (let ((_-0 (cons e-2 e-3))) (TTImpC-45ElabC-45ImplicitBind-case--caseC-32blockC-32inC-32checkBindHere-8955 arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 u--oldenv u--oldsub u--oldbif u--dontbind e-7 e-2 e-3 _-0 (let ((sc6 arg-6)) (let ((e-0 (vector-ref sc6 1))) e-0)))) (vector 1 ) ext-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((act-30 (let ((act-30 (unbox arg-3))) (vector 1 act-30)))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-31 (CoreC-45Core-u--catch_Catchable_Core_Error (lambda (eta-0) (TTImpC-45ElabC-45Delayed-retryDelayed arg-0 arg-1 arg-2 arg-3 arg-4 (let ((sc8 e-11)) (let ((e-13 (vector-ref sc8 9))) e-13)) eta-0)) (lambda (u--err) (lambda (eta-0) (let ((act-31 (let ((act-31 (unbox arg-3))) (vector 1 act-31)))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-32 (let ((act-32 (set-box! arg-3 (let ((sc9 e-12)) (let ((e-0 (vector-ref sc9 1))) (let ((e-1 (vector-ref sc9 2))) (let ((e-19 (vector-ref sc9 3))) (let ((e-18 (vector-ref sc9 4))) (let ((e-4 (vector-ref sc9 5))) (let ((e-17 (vector-ref sc9 6))) (let ((e-16 (vector-ref sc9 7))) (let ((e-15 (vector-ref sc9 8))) (let ((e-13 (vector-ref sc9 10))) (vector 0 e-0 e-1 e-19 e-18 e-4 e-17 e-16 e-15 '() e-13)))))))))))))) (vector 1 act-32)))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (CoreC-45Core-u--throw_Catchable_Core_Error u--err eta-0)))))))))))) ext-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((act-32 (CoreC-45Unify-checkDots arg-3 arg-1 ext-0))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((act-33 (CoreC-45ContextC-45Log-logTerm arg-0 arg-1 "elab.implicits" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Binding names") e-2 ext-0))) (let ((sc10 act-33)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((act-34 (CoreC-45Normalise-logTermNF arg-0 arg-1 "elab.implicits" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Normalised") arg-8 e-2 ext-0))) (let ((sc11 act-34)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((act-35 (TTImpC-45ElabC-45ImplicitBind-getToBind arg-0 arg-1 arg-4 arg-3 arg-9 (let ((sc12 arg-6)) (let ((e-0 (vector-ref sc12 1))) e-0)) arg-10 arg-8 u--dontbind ext-0))) (let ((sc12 act-35)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (let ((e-16 (vector-ref sc12 1))) (let ((act-36 (TTImpC-45ElabC-45Check-clearToBind arg-4 u--dontbind ext-0))) (let ((sc13 act-36)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (vector 0 e-4))) (else (let ((act-37 (let ((act-37 (unbox arg-4))) (vector 1 act-37)))) (let ((sc14 act-37)) (case (vector-ref sc14 0) ((0) (let ((e-4 (vector-ref sc14 1))) (vector 0 e-4))) (else (let ((e-18 (vector-ref sc14 1))) (let ((act-38 (let ((act-38 (set-box! arg-4 (TTImpC-45ElabC-45Check-updateEnv (let ((sc15 e-5)) (let ((e-1 (vector-ref sc15 1))) e-1)) u--oldenv u--oldsub u--oldbif (let ((sc15 e-18)) (let ((e-1 (vector-ref sc15 1))) (let ((e-29 (vector-ref sc15 2))) (let ((e-28 (vector-ref sc15 3))) (let ((e-4 (vector-ref sc15 4))) (let ((e-26 (vector-ref sc15 6))) (let ((e-25 (vector-ref sc15 7))) (let ((e-24 (vector-ref sc15 8))) (let ((e-23 (vector-ref sc15 9))) (let ((e-22 (vector-ref sc15 10))) (let ((e-21 (vector-ref sc15 11))) (let ((e-20 (vector-ref sc15 12))) (let ((e-19 (vector-ref sc15 13))) (vector 0 e-1 e-29 e-28 e-4 '() e-26 e-25 e-24 e-23 e-22 e-21 e-20 e-19)))))))))))))))))) (vector 1 act-38)))) (let ((sc15 act-38)) (case (vector-ref sc15 0) ((0) (let ((e-4 (vector-ref sc15 1))) (vector 0 e-4))) (else (let ((act-39 ((CoreC-45Normalise-getTerm e-3) ext-0))) (let ((sc16 act-39)) (case (vector-ref sc16 0) ((0) (let ((e-4 (vector-ref sc16 1))) (vector 0 e-4))) (else (let ((e-20 (vector-ref sc16 1))) (let ((act-40 (let ((act-40 (unbox arg-1))) (vector 1 act-40)))) (let ((sc17 act-40)) (case (vector-ref sc17 0) ((0) (let ((e-4 (vector-ref sc17 1))) (vector 0 e-4))) (else (let ((e-21 (vector-ref sc17 1))) (let ((act-41 (let ((act-41 (CoreC-45Normalise-normaliseHoles arg-1 arg-0 e-21 arg-8 e-2 ext-0))) (let ((sc18 act-41)) (case (vector-ref sc18 0) ((0) (let ((e-4 (vector-ref sc18 1))) (vector 0 e-4))) (else (let ((e-22 (vector-ref sc18 1))) (let ((act-42 (CoreC-45Normalise-normaliseHoles arg-1 arg-0 e-21 arg-8 e-20 ext-0))) (let ((sc19 act-42)) (case (vector-ref sc19 0) ((0) (let ((e-4 (vector-ref sc19 1))) (vector 0 e-4))) (else (let ((e-23 (vector-ref sc19 1))) (TTImpC-45ElabC-45ImplicitBind-bindImplicits arg-1 arg-0 arg-9 arg-10 e-21 arg-8 e-16 e-22 e-23 ext-0))))))))))))) (let ((sc18 act-41)) (case (vector-ref sc18 0) ((0) (let ((e-4 (vector-ref sc18 1))) (vector 0 e-4))) (else (let ((e-22 (vector-ref sc18 1))) (let ((sc19 e-22)) (let ((e-23 (car sc19))) (let ((e-4 (cdr sc19))) (let ((act-42 (CoreC-45Core-traverse_ (lambda (eta-0) (lambda (eta-1) (TTImpC-45ElabC-45ImplicitBind-implicitBind arg-1 arg-3 eta-0 eta-1))) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-fst eta-0)) e-16) ext-0))) (let ((sc20 act-42)) (case (vector-ref sc20 0) ((0) (let ((e-24 (vector-ref sc20 1))) (vector 0 e-24))) (else (TTImpC-45ElabC-45Check-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 e-23 (CoreC-45Normalise-gnf arg-0 arg-8 e-4) arg-12 ext-0)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) -(define TTImpC-45ElabC-45ImplicitBind-bindUnsolved (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((2) (vector 1 (vector 0 )))(else (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((u--bifs (let ((sc2 e-5)) (let ((e-7 (vector-ref sc2 7))) e-7)))) (let ((act-26 (CoreC-45ContextC-45Log-log arg-1 "elab.implicits" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Bindable unsolved implicits: " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45Name-u--show_Show_Name u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Name-u--showPrec_Show_Name u--d u--x)))) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-fst eta-0)) u--bifs)))) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (CoreC-45Core-traverse_ (lambda (eta-0) (TTImpC-45ElabC-45ImplicitBind-n--12148-5218-u--mkImplicit arg-6 arg-5 arg-4 arg-3 arg-0 arg-2 arg-1 (let ((sc3 e-5)) (let ((e-1 (vector-ref sc3 1))) e-1)) e-6 (let ((sc3 e-5)) (let ((e-3 (vector-ref sc3 3))) e-3)) (let ((sc3 e-5)) (let ((e-4 (vector-ref sc3 4))) e-4)) eta-0)) (let ((sc3 e-5)) (let ((e-14 (vector-ref sc3 7))) e-14)) ext-0))))))))))))))))))))) -(define TTImpC-45ElabC-45ImplicitBind-bindImplicits (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 ext-0) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((2) (vector 1 (cons arg-7 arg-8)))(else (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (TTImpC-45ElabC-45ImplicitBind-n--14021-6842-u--nHoles arg-1 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-0 eta-0 eta-1))) arg-6 '() ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (TTImpC-45ElabC-45ImplicitBind-liftImps arg-1 arg-3 (TTImpC-45ElabC-45ImplicitBind-bindImplVars arg-2 arg-3 arg-4 arg-5 e-5 arg-7 arg-8))))))))))))) -(define TTImpC-45ElabC-45ImplicitBind-bindImplVars (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((2) (cons arg-6 arg-7))(else (let ((u--imps (PreludeC-45Types-u--map_Functor_List (lambda (lamc-0) (let ((sc0 lamc-0)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (cons (TTImpC-45ElabC-45ImplicitBind-n--13514-6424-u--tidyName arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-2) (cons e-2 e-3)))))) arg-5))) (TTImpC-45ElabC-45ImplicitBind-n--13514-6425-u--getBinds arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 u--imps (vector 0 ) arg-6 arg-7))))))) -(define TTImpC-45ElabC-45Hole-mkPrecise (lambda (arg-1 arg-2 ext-0) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((2) (let ((e-6 (vector-ref sc1 2))) (CoreC-45Context-updateDef arg-1 (vector 9 e-6) (lambda (lcase-0) (let ((sc2 lcase-0)) (case (vector-ref sc2 0) ((7) (let ((e-0 (vector-ref sc2 1))) (let ((e-4 (vector-ref sc2 2))) (vector 1 (vector 7 e-0 (let ((sc3 e-4)) (let ((e-9 (car sc3))) (cons e-9 0))))))))(else (vector 0 ))))) ext-0)))(else (vector 1 (vector 0 )))))))(else (vector 1 (vector 0 ))))))) -(define TTImpC-45ElabC-45Hole-checkHole (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 ext-0) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((act-24 (CoreC-45Context-inCurrentNS arg-1 (vector 1 arg-10) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((CoreC-45Context-lookupCtxtExact e-5 (let ((sc3 e-6)) (let ((e-0 (vector-ref sc3 1))) e-0))) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((0) (let ((act-27 ((CoreC-45Normalise-getTerm e-1) ext-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc5 1))) (let ((u--envC-39 (CoreC-45Env-letToLam arg-8))) (let ((act-28 (TTImpC-45ElabC-45Check-metaVarI arg-0 arg-1 arg-3 arg-9 arg-5 u--envC-39 e-5 e-8 ext-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc6 1))) (let ((sc7 e-9)) (let ((e-2 (car sc7))) (let ((e-3 (cdr sc7))) (let ((act-29 (let ((act-29 ((CoreC-45Normalise-getNF arg-1 e-1) ext-0))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc8 1))) (TTImpC-45ElabC-45Hole-mkPrecise arg-1 e-10 ext-0)))))))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((act-30 (CoreC-45Metadata-withCurrentLHS arg-1 arg-2 (vector 9 e-2) ext-0))) (let ((sc9 act-30)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((act-31 (CoreC-45Metadata-addNameLoc arg-2 arg-1 arg-9 e-5 ext-0))) (let ((sc10 act-31)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((act-32 (CoreC-45Context-addUserHole arg-1 e-5 ext-0))) (let ((sc11 act-32)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((act-33 (TTImpC-45ElabC-45Check-saveHole arg-4 e-5 ext-0))) (let ((sc12 act-33)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (vector 1 (cons e-3 e-1)))))))))))))))))))))))))))))))))))))(else (let ((act-27 (CoreC-45ContextC-45Log-log arg-1 "elab.hole" (+ 1 0) (lambda () (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-5) " already defined")) ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 38 arg-9 e-5) ext-0)))))))))))))))))))))))))(else (let ((act-24 (CoreC-45UnifyState-genName arg-1 arg-3 (PreludeC-45TypesC-45String-C-43C-43 "type_of_" arg-10) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((u--envC-39 (CoreC-45Env-letToLam arg-8))) (let ((act-25 (TTImpC-45ElabC-45Check-metaVar arg-0 arg-1 arg-3 arg-9 (AlgebraC-45Semiring-erased (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))) u--envC-39 e-5 (vector 11 arg-9) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (CoreC-45Context-inCurrentNS arg-1 (vector 1 arg-10) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (let ((act-27 (unbox arg-1))) (vector 1 act-27)))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (let ((act-28 ((CoreC-45Normalise-nf arg-1 arg-0 e-8 u--envC-39 e-6) ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (TTImpC-45ElabC-45Hole-mkPrecise arg-1 e-9 ext-0)))))))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-29 ((CoreC-45Context-lookupCtxtExact e-7 (let ((sc5 e-8)) (let ((e-0 (vector-ref sc5 1))) e-0))) ext-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc5 1))) (let ((sc6 e-10)) (case (vector-ref sc6 0) ((0) (let ((act-30 (TTImpC-45ElabC-45Check-metaVarI arg-0 arg-1 arg-3 arg-9 arg-5 u--envC-39 e-7 e-6 ext-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc7 1))) (let ((sc8 e-11)) (let ((e-2 (car sc8))) (let ((e-3 (cdr sc8))) (let ((act-31 (CoreC-45Metadata-withCurrentLHS arg-1 arg-2 (vector 9 e-2) ext-0))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((act-32 (CoreC-45Metadata-addNameLoc arg-2 arg-1 arg-9 e-7 ext-0))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((act-33 (CoreC-45Context-addUserHole arg-1 e-7 ext-0))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((act-34 (TTImpC-45ElabC-45Check-saveHole arg-4 e-7 ext-0))) (let ((sc12 act-34)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (vector 1 (cons e-3 (CoreC-45Normalise-gnf arg-0 arg-8 e-6))))))))))))))))))))))))))))(else (let ((act-30 (CoreC-45ContextC-45Log-log arg-1 "elab.hole" (+ 1 0) (lambda () (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-7) " already defined")) ext-0))) (let ((sc6 act-30)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 38 arg-9 e-7) ext-0))))))))))))))))))))))))))))))))))))))))))) -(define TTImpC-45ElabC-45Dot-case--checkDot-4795 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 ext-0) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((1) (let ((act-24 ((TTImpC-45ElabC-45Check-check arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 (let ((sc1 arg-7)) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (vector 0 (vector 2 ) e-1 e-2 e-3 e-4 e-5))))))) arg-6 arg-5 arg-2 (vector 1 arg-1)) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (car sc2))) (TTImpC-45ElabC-45Dot-registerDot arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-5 arg-4 arg-3 e-2 arg-1 ext-0)))))))))(else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-4 (PreludeC-45TypesC-45String-C-43C-43 "Dot pattern not valid here (Not LHS) " (TTImpC-45TTImp-u--show_Show_RawImp arg-2))) ext-0)))))) -(define TTImpC-45ElabC-45Dot-registerDot (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 ext-0) (let ((act-24 (CoreC-45UnifyState-genName arg-1 arg-3 "dotTm" ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((CoreC-45Normalise-getTerm arg-10) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (TTImpC-45ElabC-45Check-metaVar arg-0 arg-1 arg-3 arg-7 arg-5 arg-6 e-5 e-6 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (CoreC-45UnifyState-addDot arg-0 arg-3 arg-7 arg-6 e-5 arg-9 arg-8 e-7 ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (vector 1 (cons e-7 arg-10))))))))))))))))))))))) -(define TTImpC-45ElabC-45Dot-checkDot (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-9 (PreludeC-45TypesC-45String-C-43C-43 "Dot pattern not valid here (unknown type) " (TTImpC-45TTImp-u--show_Show_RawImp arg-11))) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (TTImpC-45ElabC-45Dot-case--checkDot-4795 arg-0 e-2 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (let ((sc1 arg-6)) (let ((e-0 (vector-ref sc1 1))) e-0)) eta-0)))))))) -(define TTImpC-45ElabC-45Case-case--caseC-32blockC-32inC-32checkCase-8421 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (cond ((equal? sc0 0) (AlgebraC-45Semiring-erased (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)))) (else (AlgebraC-45ZeroOneOmega-u--top_Top_ZeroOneOmega)))))) -(define TTImpC-45ElabC-45Case-case--checkCaseC-44guessScrType-7945 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-13))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Context-lookupTyName e-1 (let ((sc2 e-5)) (let ((e-30 (vector-ref sc2 1))) e-30)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (if (null? sc3) ((TTImpC-45ElabC-45Case-n--15834-7689-u--guessScrType arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-17) eta-0) (let ((e-3 (car sc3))) (let ((e-2 (cdr sc3))) (let ((sc4 e-3)) (if (null? sc4) ((TTImpC-45ElabC-45Case-n--15834-7689-u--guessScrType arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-17) eta-0) (let ((e-7 (cdr sc4))) (let ((sc5 e-7)) (if (null? sc5) ((TTImpC-45ElabC-45Case-n--15834-7689-u--guessScrType arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-17) eta-0) (let ((e-10 (cdr sc5))) (let ((sc6 e-2)) (if (null? sc6) (let ((act-26 (let ((act-26 ((CoreC-45Normalise-nf arg-13 '() e-5 '() e-10) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc7 1))) (TTImpC-45ElabC-45Case-n--15834-7688-u--getRetTy arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-5 e-11 eta-0)))))))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc7 1))) (let ((sc8 e-11)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((sc9 e-4)) (if (null? sc9) ((TTImpC-45ElabC-45Case-n--15834-7689-u--guessScrType arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-17) eta-0) (let ((e-13 (car sc9))) (let ((e-12 (cdr sc9))) ((TTImpC-45ElabC-45Case-n--15834-7687-u--applyTo arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-5 (vector 0 arg-5 e-13) e-12) eta-0)))))))(else ((TTImpC-45ElabC-45Case-n--15834-7689-u--guessScrType arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-17) eta-0))))))))) ((TTImpC-45ElabC-45Case-n--15834-7689-u--guessScrType arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-17) eta-0))))))))))))))))))))))))))(else (TTImpC-45ElabC-45Case-n--15834-7689-u--guessScrType arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-17)))))) -(define TTImpC-45ElabC-45Case-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseBlock-7289 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33) (let ((sc0 arg-33)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (vector 0 e-0 e-1 e-2 arg-31 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20)))))))))))))))))))))))) -(define TTImpC-45ElabC-45Case-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseBlock-7149 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33) (let ((sc0 arg-33)) (cond ((equal? sc0 0) (AlgebraC-45Semiring-erased (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)))) (else (AlgebraC-45ZeroOneOmega-u--top_Top_ZeroOneOmega)))))) -(define TTImpC-45ElabC-45Case-case--caseC-32blockC-32inC-32caseBlock-6549 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24) (let ((sc0 arg-24)) (cond ((equal? sc0 0) (vector 2 )) (else (vector 0 )))))) -(define TTImpC-45ElabC-45Case-case--caseBlockC-44updateClause-6386 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (let ((e-3 (cdr sc0))) (let ((u--argsC-39 (TTImpC-45ElabC-45Case-n--13298-5607-u--mkSplit arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-20 arg-16 e-3))) (let ((u--lhsC-39 (TTImpC-45TTImp-apply (vector 0 arg-17 arg-21) u--argsC-39))) (vector 2 arg-17 (TTImpC-45ElabC-45Case-n--13298-5610-u--applyNested arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-19 u--lhsC-39)))))))) -(define TTImpC-45ElabC-45Case-case--caseBlockC-44updateClause-6316 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26) (let ((sc0 arg-26)) (let ((e-3 (cdr sc0))) (let ((u--argsC-39 (TTImpC-45ElabC-45Case-n--13298-5607-u--mkSplit arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-24 arg-20 e-3))) (let ((u--lhsC-39 (TTImpC-45TTImp-apply (vector 0 arg-21 arg-25) u--argsC-39))) (vector 1 arg-21 (TTImpC-45ElabC-45Case-n--13298-5610-u--applyNested arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-23 u--lhsC-39) arg-19 arg-18 arg-17 arg-16))))))) -(define TTImpC-45ElabC-45Case-case--caseBlockC-44updateClause-6244 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (let ((sc0 arg-23)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((u--argsC-39 (TTImpC-45ElabC-45Case-n--13298-5607-u--mkSplit arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-21 arg-17 e-3))) (let ((u--lhsC-39 (TTImpC-45TTImp-apply (vector 0 arg-18 arg-22) u--argsC-39))) (vector 0 arg-18 (TTImpC-45ElabC-45Case-n--13298-5610-u--applyNested arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-20 u--lhsC-39) (TTImpC-45ElabC-45Case-bindCaseLocals arg-18 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (TTImpC-45ElabC-45Case-getNestData eta-0)) arg-20) e-2 arg-16))))))))) -(define TTImpC-45ElabC-45Case-case--caseBlockC-44addEnv-5961 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (let ((sc0 arg-23)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((u--nsC-39 (cons arg-22 e-2))) (cons u--nsC-39 (cons (vector 18 arg-9 (vector 1 ) (vector 0 ) (Builtin-snd arg-22) (vector 32 arg-9 0)) e-3)))))))) -(define TTImpC-45ElabC-45Case-case--caseBlockC-44getBindName-5836 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-19)) (cond ((equal? sc0 0) (cons arg-17 (vector 2 "_cn" arg-18))) (else (cons arg-17 arg-17)))))) -(define TTImpC-45ElabC-45Case-case--caseBlockC-44getBindName-5740 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (cond ((equal? sc0 0) (cons arg-18 (vector 2 arg-17 arg-19))) (else (cons arg-18 arg-18)))))) -(define TTImpC-45ElabC-45Case-case--bindCaseLocalsC-44getNameFrom-5528 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-9 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((0) arg-1) (else (let ((e-2 (vector-ref sc0 1))) e-2)))))) -(define TTImpC-45ElabC-45Case-case--findScrutinee-5365 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (vector 1 0)) (else (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (TTImpC-45ElabC-45Case-findScrutinee arg-0 arg-2 (vector 0 arg-5 arg-4)) (lambda (_-0) (vector 1 (+ 1 _-0))))))))) -(define TTImpC-45ElabC-45Case-case--toRig1-4953 (lambda (arg-2 arg-3 arg-4 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (cons (CoreC-45TT-setMultiplicity arg-3 (AlgebraC-45Semiring-linear (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)))) arg-2)) (else (cons arg-3 arg-2)))))) -(define TTImpC-45ElabC-45Case-n--13298-5608-u--usedIn (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((17) (let ((e-1 (vector-ref sc0 2))) (cons (vector 1 e-1) '()))) ((8) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (PreludeC-45TypesC-45List-C-43C-43 (TTImpC-45ElabC-45Case-n--13298-5608-u--usedIn arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-3) (TTImpC-45ElabC-45Case-n--13298-5608-u--usedIn arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-4))))) ((18) (let ((e-8 (vector-ref sc0 4))) (let ((e-9 (vector-ref sc0 5))) (cons e-8 (TTImpC-45ElabC-45Case-n--13298-5608-u--usedIn arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-9))))) ((13) (let ((e-12 (vector-ref sc0 3))) (PreludeC-45Interfaces-concatMap (cons (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (cons (lambda (arg-17) (lambda (arg-18) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-17 arg-18))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) (lambda (eta-0) (TTImpC-45ElabC-45Case-n--13298-5608-u--usedIn arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 eta-0)) e-12)))(else '()))))) -(define TTImpC-45ElabC-45Case-n--13298-5611-u--updateClause (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (TTImpC-45ElabC-45Case-case--caseBlockC-44updateClause-6244 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-2 e-1 e-0 arg-19 arg-18 arg-17 arg-16 (TTImpC-45ElabC-45Case-n--13298-5605-u--addEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-0 0 arg-19 (TTImpC-45ElabC-45Case-n--13298-5608-u--usedIn arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-1))))))) ((1) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((e-6 (vector-ref sc0 4))) (let ((e-7 (vector-ref sc0 5))) (let ((e-8 (vector-ref sc0 6))) (TTImpC-45ElabC-45Case-case--caseBlockC-44updateClause-6316 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-8 e-7 e-6 e-5 e-4 e-3 arg-19 arg-18 arg-17 arg-16 (TTImpC-45ElabC-45Case-n--13298-5605-u--addEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-0 0 arg-19 (TTImpC-45ElabC-45Case-n--13298-5608-u--usedIn arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-4)))))))))) (else (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (TTImpC-45ElabC-45Case-case--caseBlockC-44updateClause-6386 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-10 e-9 arg-19 arg-18 arg-17 arg-16 (TTImpC-45ElabC-45Case-n--13298-5605-u--addEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-0 0 arg-19 (TTImpC-45ElabC-45Case-n--13298-5608-u--usedIn arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-10)))))))))) -(define TTImpC-45ElabC-45Case-n--13298-5606-u--replace (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-16)) (cond ((equal? sc0 0) (let ((sc1 arg-18)) (if (null? sc1) arg-18 (let ((e-2 (car sc1))) (let ((e-3 (cdr sc1))) (let ((u--lhsC-39 (let ((sc2 e-2)) (case (vector-ref sc2 0) ((18) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-6 (vector-ref sc2 3))) (let ((e-5 (vector-ref sc2 4))) (vector 18 e-0 e-1 e-6 e-5 arg-17))))))(else arg-17))))) (cons u--lhsC-39 e-3)))))))(else (let ((e-0 (- arg-16 1))) (let ((sc0 arg-18)) (if (null? sc0) arg-18 (let ((e-5 (car sc0))) (let ((e-6 (cdr sc0))) (cons e-5 (TTImpC-45ElabC-45Case-n--13298-5606-u--replace arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-0 arg-17 e-6)))))))))))) -(define TTImpC-45ElabC-45Case-n--13298-5609-u--nestLHS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-17 arg-18) (let ((sc0 arg-18)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-3)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (let ((sc2 e-7)) (let ((e-10 (car sc2))) (cons e-2 (TTImpC-45TTImp-apply (vector 0 arg-17 (DataC-45Maybe-fromMaybe (lambda () e-2) e-6)) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (vector 32 arg-17 1)) e-10))))))))))))) -(define TTImpC-45ElabC-45Case-n--13298-5607-u--mkSplit (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-17 arg-18 arg-19) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((0) (DataC-45List-reverse (cons arg-18 arg-19))) (else (let ((e-2 (vector-ref sc0 1))) (DataC-45List-reverse (TTImpC-45ElabC-45Case-n--13298-5606-u--replace arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-2 arg-18 arg-19)))))))) -(define TTImpC-45ElabC-45Case-n--15834-7689-u--guessScrType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (if (null? sc0) (lambda (eta-0) (vector 1 (vector 32 arg-5 1))) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((e-6 (vector-ref sc1 3))) (TTImpC-45ElabC-45Case-case--checkCaseC-44guessScrType-7945 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-4 e-6 e-5 e-3 (TTImpC-45TTImp-getFn e-5))))))(else (TTImpC-45ElabC-45Case-n--15834-7689-u--guessScrType arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-3)))))))))) -(define TTImpC-45ElabC-45Case-n--15834-7688-u--getRetTy (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 ext-0) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((act-24 (((e-4 arg-14) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 e-1 1))) ext-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (TTImpC-45ElabC-45Case-n--15834-7688-u--getRetTy arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 e-5 ext-0)))))))(else (vector 1 (vector 0 ))))))))) ((3) (let ((e-7 (vector-ref sc0 2))) (let ((act-24 (CoreC-45Context-lookupTyExact e-7 (let ((sc1 arg-14)) (let ((e-0 (vector-ref sc1 1))) e-0)) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((act-25 ((CoreC-45Normalise-nf arg-13 '() arg-14 '() e-1) ext-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc3 1))) (vector 1 (vector 1 (cons e-7 e-11)))))))))) (else (vector 1 (vector 0 ))))))))))))(else (vector 1 (vector 0 ))))))) -(define TTImpC-45ElabC-45Case-n--13167-5494-u--getNameFrom (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (TTImpC-45ElabC-45Case-case--bindCaseLocalsC-44getNameFrom-5528 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (TTImpC-45ElabC-45Case-n--13167-5493-u--getArg arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-6 arg-8)))) -(define TTImpC-45ElabC-45Case-n--13298-5604-u--getBindName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((u--n (vector 1 e-0))) (TTImpC-45ElabC-45Case-case--caseBlockC-44getBindName-5740 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-18 e-0 u--n arg-16 (PreludeC-45Types-elem (cons (lambda (arg-19) (lambda (arg-20) (CoreC-45Name-u--C-61C-61_Eq_Name arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (CoreC-45Name-u--C-47C-61_Eq_Name arg-19 arg-20)))) u--n arg-18)))))(else (TTImpC-45ElabC-45Case-case--caseBlockC-44getBindName-5836 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-18 arg-17 arg-16 (PreludeC-45Types-elem (cons (lambda (arg-19) (lambda (arg-20) (CoreC-45Name-u--C-61C-61_Eq_Name arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (CoreC-45Name-u--C-47C-61_Eq_Name arg-19 arg-20)))) arg-17 arg-18))))))) -(define TTImpC-45ElabC-45Case-n--13167-5493-u--getArg (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-8)) (if (null? sc0) (vector 0 ) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (if (null? sc1) (let ((sc2 arg-9)) (cond ((equal? sc2 0) (blodwen-error-quit "Nat case not covered"))(else (let ((e-4 (- arg-9 1))) (TTImpC-45ElabC-45Case-n--13167-5493-u--getArg arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-3 e-4))))) (let ((e-8 (cdr sc1))) (let ((sc2 arg-9)) (cond ((equal? sc2 0) (vector 1 e-8))(else (let ((sc2 arg-9)) (cond ((equal? sc2 0) (blodwen-error-quit "Nat case not covered"))(else (let ((e-4 (- arg-9 1))) (TTImpC-45ElabC-45Case-n--13167-5493-u--getArg arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-3 e-4))))))))))))))))) -(define TTImpC-45ElabC-45Case-n--15834-7686-u--checkConcrete (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-15 ext-0) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((2) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (TTImpC-45TTImp-getFC arg-4) "Can't infer type for case scrutinee") ext-0))(else (vector 1 (vector 0 )))))))(else (vector 1 (vector 0 ))))))) -(define TTImpC-45ElabC-45Case-n--15834-7687-u--applyTo (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (lambda (clam-0) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-8 (vector-ref sc1 3))) (let ((sc2 e-8)) (case (vector-ref sc2 0) ((1) (let ((act-24 (((e-4 arg-14) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 e-1 1))) clam-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-5 (vector-ref sc3 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc3 1))) ((TTImpC-45ElabC-45Case-n--15834-7687-u--applyTo arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 (vector 8 e-1 arg-15 (vector 32 e-1 1)) e-5) clam-0)))))))(else (let ((act-24 (((e-4 arg-14) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-5 1))) clam-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) ((TTImpC-45ElabC-45Case-n--15834-7687-u--applyTo arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 (vector 10 arg-5 arg-15 e-2 (vector 32 arg-5 1)) e-5) clam-0)))))))))))(else (vector 1 arg-15))))))))))(else (lambda (eta-0) (vector 1 arg-15))))))) -(define TTImpC-45ElabC-45Case-n--13298-5610-u--applyNested (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((u--fc (TTImpC-45TTImp-getFC arg-17))) (TTImpC-45Utils-substNames '() (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (TTImpC-45ElabC-45Case-n--13298-5609-u--nestLHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 u--fc eta-0)) arg-16) arg-17)))) -(define TTImpC-45ElabC-45Case-n--13298-5605-u--addEnv (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-16)) (if (null? sc0) (let ((sc1 arg-18)) (cons '() '())) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 arg-18)) (let ((e-8 (car sc1))) (let ((e-9 (cdr sc1))) (let ((u--n (TTImpC-45ElabC-45Case-n--13298-5604-u--getBindName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-17 e-2 arg-19))) (TTImpC-45ElabC-45Case-case--caseBlockC-44addEnv-5961 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-2 e-3 e-9 e-8 arg-19 arg-17 u--n (TTImpC-45ElabC-45Case-n--13298-5605-u--addEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-3 (bs+ arg-17 1 63) e-9 (cons (Builtin-snd u--n) arg-19))))))))))))) -(define TTImpC-45ElabC-45Case-updateMults (lambda (arg-1 arg-2) (let ((sc0 arg-1)) (if (null? sc0) arg-2 (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (TTImpC-45ElabC-45Case-updateMults e-3 (TTImpC-45ElabC-45Case-toRig0 e-2 arg-2)))))))) -(define TTImpC-45ElabC-45Case-toRig1 (lambda (arg-2 arg-4) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (let ((sc1 arg-4)) (let ((e-4 (car sc1))) (let ((e-5 (cdr sc1))) (let ((u--idx 0)) (TTImpC-45ElabC-45Case-case--toRig1-4953 e-5 e-4 u--idx (AlgebraC-45Semiring-isErased (cons (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-3) (lambda (arg-5) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-3 arg-5))) (lambda (arg-5) (lambda (arg-6) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-5 arg-6))))) (CoreC-45TT-multiplicity e-4))))))))(else (let ((e-0 (- arg-2 1))) (let ((sc0 arg-4)) (let ((e-9 (car sc0))) (let ((e-10 (cdr sc0))) (cons e-9 (TTImpC-45ElabC-45Case-toRig1 e-0 e-10))))))))))) -(define TTImpC-45ElabC-45Case-toRig0 (lambda (arg-2 arg-4) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (let ((sc1 arg-4)) (let ((e-4 (car sc1))) (let ((e-5 (cdr sc1))) (cons (CoreC-45TT-setMultiplicity e-4 (AlgebraC-45Semiring-erased (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)))) e-5)))))(else (let ((e-0 (- arg-2 1))) (let ((sc0 arg-4)) (let ((e-9 (car sc0))) (let ((e-10 (cdr sc0))) (cons e-9 (TTImpC-45ElabC-45Case-toRig0 e-0 e-10))))))))))) -(define TTImpC-45ElabC-45Case-getNestData (lambda (arg-2) (let ((sc0 arg-2)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-3)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (let ((sc2 e-7)) (let ((e-10 (car sc2))) (cons e-2 (cons e-6 e-10)))))))))))) -(define TTImpC-45ElabC-45Case-findScrutinee (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-0)) (if (null? sc0) (vector 0 ) (let ((e-1 (car sc0))) (let ((e-2 (cdr sc0))) (let ((sc1 arg-1)) (if (null? sc1) (vector 0 ) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((0) (let ((e-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (TTImpC-45ElabC-45Case-case--findScrutinee-5365 e-2 e-1 e-7 e-6 e-9 e-8 (PreludeC-45Basics-C-38C-38 (CoreC-45Name-u--C-61C-61_Eq_Name e-1 e-9) (lambda () (let ((sc3 (CoreC-45TT-isLet e-6))) (cond ((equal? sc3 0) 1) (else 0)))))))))(else (vector 0 )))))))))))))) -(define TTImpC-45ElabC-45Case-findImpsIn (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((3) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-8 (vector-ref sc1 3))) (let ((e-9 (vector-ref sc1 4))) (let ((sc2 e-8)) (case (vector-ref sc2 0) ((0) (TTImpC-45ElabC-45Case-findImpsIn (cons e-2 arg-0) arg-1 (cons e-3 arg-2) (cons (cons e-2 (CoreC-45TT-u--weaken_Weaken_Term e-9)) (PreludeC-45Types-u--map_Functor_List (lambda (u--x) (cons (Builtin-fst u--x) (CoreC-45TT-u--weaken_Weaken_Term (Builtin-snd u--x)))) arg-3)) e-4))(else (TTImpC-45ElabC-45Case-findImpsIn (cons e-2 arg-0) arg-1 (cons e-3 arg-2) (PreludeC-45Types-u--map_Functor_List (lambda (u--x) (cons (Builtin-fst u--x) (CoreC-45TT-u--weaken_Weaken_Term (Builtin-snd u--x)))) arg-3) e-4)))))))(else (TTImpC-45ElabC-45Case-findImpsIn (cons e-2 arg-0) arg-1 (cons e-3 arg-2) (PreludeC-45Types-u--map_Functor_List (lambda (u--x) (cons (Builtin-fst u--x) (CoreC-45TT-u--weaken_Weaken_Term (Builtin-snd u--x)))) arg-3) e-4))))))))(else (lambda (clam-0) (let ((sc0 (DataC-45List-isNil arg-3))) (cond ((equal? sc0 0) (vector 1 (vector 0 ))) (else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 27 arg-0 arg-1 arg-2 (DataC-45List-reverse arg-3)) clam-0)))))))))) -(define TTImpC-45ElabC-45Case-explicitPi (lambda (arg-1) (let ((sc0 arg-1)) (if (null? sc0) '() (let ((e-3 (car sc0))) (let ((e-4 (cdr sc0))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((e-10 (vector-ref sc1 4))) (cons (vector 2 e-7 e-8 (vector 1 ) e-10) (TTImpC-45ElabC-45Case-explicitPi e-4))))))(else (cons e-3 (TTImpC-45ElabC-45Case-explicitPi e-4))))))))))) -(define TTImpC-45ElabC-45Case-checkCase (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 ext-0) (TTImpC-45ElabC-45Delayed-delayElab arg-0 arg-1 arg-2 arg-3 arg-4 arg-9 arg-5 arg-8 arg-13 0 (lambda (eta-0) (let ((act-24 (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((32) ((TTImpC-45ElabC-45Case-n--15834-7689-u--guessScrType arg-0 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-12) eta-0))(else (vector 1 arg-11)))))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((TTImpC-45ElabC-45Check-check arg-0 arg-1 arg-2 arg-3 arg-4 (AlgebraC-45Semiring-erased (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))) arg-6 arg-7 arg-8 e-5 (vector 1 (CoreC-45Normalise-gType arg-9))) eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (let ((e-2 (car sc2))) (let ((e-3 (cdr sc2))) (let ((act-26 (CoreC-45ContextC-45Log-logTerm arg-0 arg-1 "elab.case" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected scrutinee type") e-2 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((u--chrig (let ((_-0 (cons e-2 e-3))) (TTImpC-45ElabC-45Case-case--caseC-32blockC-32inC-32checkCase-8421 arg-0 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-2 e-3 _-0 (AlgebraC-45Semiring-isErased (cons (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-14) (lambda (arg-15) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-14 arg-15))) (lambda (arg-14) (lambda (arg-15) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-14 arg-15))))) arg-5))))) (let ((act-27 (CoreC-45ContextC-45Log-log arg-1 "elab.case" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Checking " (PreludeC-45TypesC-45String-C-43C-43 (TTImpC-45TTImp-u--show_Show_RawImp arg-10) (PreludeC-45TypesC-45String-C-43C-43 " at " (AlgebraC-45ZeroOneOmega-u--show_Show_ZeroOneOmega u--chrig))))) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((act-28 (TTImpC-45ElabC-45Check-handle arg-0 arg-1 arg-2 arg-3 arg-4 (lambda (eta-1) (let ((act-28 (TTImpC-45ElabC-45Delayed-runDelays arg-0 arg-1 arg-2 arg-3 arg-4 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (TTImpC-45ElabC-45Check-check arg-0 arg-1 arg-2 arg-3 arg-4 u--chrig arg-6 arg-7 arg-8 arg-10 (vector 1 (CoreC-45Normalise-gnf arg-0 arg-8 e-2))) eta-1))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (vector 1 (cons (Builtin-fst e-9) (cons (Builtin-snd e-9) u--chrig))))))))) (lambda (u--err) (let ((sc5 u--err)) (case (vector-ref sc5 0) ((14) (let ((e-9 (vector-ref sc5 3))) (AlgebraC-45Semiring-branchOne (cons (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-14) (lambda (arg-15) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-14 arg-15))) (lambda (arg-14) (lambda (arg-15) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-14 arg-15))))) (lambda () (lambda (eta-1) (let ((act-28 (TTImpC-45ElabC-45Delayed-runDelays arg-0 arg-1 arg-2 arg-3 arg-4 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (TTImpC-45ElabC-45Check-check arg-0 arg-1 arg-2 arg-3 arg-4 (AlgebraC-45Semiring-linear (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))) arg-6 arg-7 arg-8 arg-10 (vector 1 (CoreC-45Normalise-gnf arg-0 arg-8 e-2))) eta-1))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (vector 1 (cons (Builtin-fst e-10) (cons (Builtin-snd e-10) (AlgebraC-45Semiring-linear (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))))))))))))) (lambda () (lambda (eta-1) (CoreC-45Core-u--throw_Catchable_Core_Error u--err eta-1))) e-9)))(else (lambda (eta-1) (CoreC-45Core-u--throw_Catchable_Core_Error u--err eta-1)))))) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (let ((sc6 e-9)) (let ((e-10 (car sc6))) (let ((e-4 (cdr sc6))) (let ((sc7 e-4)) (let ((e-12 (car sc7))) (let ((e-11 (cdr sc7))) (let ((act-29 ((CoreC-45Normalise-getTerm e-12) eta-0))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-30 (CoreC-45Normalise-logTermNF arg-0 arg-1 "elab.case" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Scrutinee type") arg-8 e-13 eta-0))) (let ((sc9 act-30)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (vector 0 e-14))) (else (let ((act-31 (let ((act-31 (unbox arg-1))) (vector 1 act-31)))) (let ((sc10 act-31)) (case (vector-ref sc10 0) ((0) (let ((e-15 (vector-ref sc10 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc10 1))) (let ((act-32 (let ((act-32 ((CoreC-45Normalise-nf arg-1 arg-0 e-15 arg-8 e-13) eta-0))) (let ((sc11 act-32)) (case (vector-ref sc11 0) ((0) (let ((e-16 (vector-ref sc11 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc11 1))) (TTImpC-45ElabC-45Case-n--15834-7686-u--checkConcrete arg-0 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-16 eta-0)))))))) (let ((sc11 act-32)) (case (vector-ref sc11 0) ((0) (let ((e-16 (vector-ref sc11 1))) (vector 0 e-16))) (else (TTImpC-45ElabC-45Case-caseBlock arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-9 arg-7 arg-8 arg-10 e-10 e-13 e-11 arg-12 arg-13 eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))) ext-0))) -(define TTImpC-45ElabC-45Case-caseBlock (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 ext-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (TTImpC-45ElabC-45ImplicitBind-getToBind arg-0 arg-1 arg-4 arg-3 arg-7 (let ((sc1 arg-6)) (let ((e-0 (vector-ref sc1 1))) e-0)) (let ((sc1 arg-6)) (let ((e-1 (vector-ref sc1 2))) e-1)) arg-9 '() ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (CoreC-45ContextC-45Log-log arg-1 "elab.case" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Doing a case under unbound implicits " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (CoreC-45Name-u--show_Show_Name x-0)) (lambda (u--d) (lambda (x-0) (CoreC-45Name-u--showPrec_Show_Name u--d x-0)))) (cons (lambda (x-0) (TTImpC-45ElabC-45Check-u--show_Show_C-40ImplBindingC-32C-36varsC-41 x-0)) (lambda (u--d) (lambda (x-0) (TTImpC-45ElabC-45Check-u--showPrec_Show_C-40ImplBindingC-32C-36varsC-41 u--d x-0))))) u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (CoreC-45Name-u--show_Show_Name x-0)) (lambda (d-0) (lambda (x-0) (CoreC-45Name-u--showPrec_Show_Name d-0 x-0)))) (cons (lambda (x-0) (TTImpC-45ElabC-45Check-u--show_Show_C-40ImplBindingC-32C-36varsC-41 x-0)) (lambda (d-0) (lambda (x-0) (TTImpC-45ElabC-45Check-u--showPrec_Show_C-40ImplBindingC-32C-36varsC-41 d-0 x-0))))) u--d u--x)))) e-6))) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-27 (CoreC-45UnifyState-genVarName arg-1 arg-3 "scr" ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (let ((act-28 (CoreC-45Context-toFullNames arg-1 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) (vector 9 (let ((sc4 e-5)) (let ((e-2 (vector-ref sc4 2))) e-2))) ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-29 ((CoreC-45Context-prettyName arg-1 e-9) ext-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc5 1))) (CoreC-45UnifyState-genCaseName arg-1 arg-3 e-10 ext-0))))))))))))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((u--env (TTImpC-45ElabC-45Case-updateMults (let ((sc5 e-5)) (let ((e-11 (vector-ref sc5 11))) e-11)) arg-9))) (let ((act-29 (let ((act-29 (unbox arg-1))) (vector 1 act-29)))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-30 ((CoreC-45Context-lookupCtxtExact (vector 9 (let ((sc6 e-5)) (let ((e-2 (vector-ref sc6 2))) e-2))) (let ((sc6 e-10)) (let ((e-0 (vector-ref sc6 1))) e-0))) ext-0))) (let ((sc6 act-30)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc6 1))) (let ((u--vis (let ((sc7 e-11)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((bind-0 (vector 1 e-1))) (TTImpC-45ElabC-45Case-case--caseC-32blockC-32inC-32caseBlock-6549 arg-0 arg-15 arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-6 e-8 e-9 u--env e-10 e-1 bind-0 (CoreC-45TT-u--C-61C-61_Eq_Visibility (let ((sc8 e-1)) (let ((e-23 (vector-ref sc8 10))) e-23)) (vector 2 )))))) (else (vector 2 )))))) (let ((u--splitOn (TTImpC-45ElabC-45Case-findScrutinee arg-0 u--env arg-10))) (let ((act-31 (let ((sc7 arg-15)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) ((CoreC-45Normalise-getTerm e-1) ext-0)))(else (let ((act-31 (CoreC-45UnifyState-genName arg-1 arg-3 "caseTy" ext-0))) (let ((sc7 act-31)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc7 1))) (TTImpC-45ElabC-45Check-metaVar arg-0 arg-1 arg-3 arg-7 (AlgebraC-45Semiring-erased (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))) u--env e-12 (vector 11 arg-7) ext-0))))))))))) (let ((sc7 act-31)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc7 1))) (let ((act-32 (TTImpC-45ElabC-45ImplicitBind-bindImplicits arg-1 arg-0 arg-7 (let ((sc8 arg-6)) (let ((e-1 (vector-ref sc8 2))) e-1)) e-10 u--env e-6 e-12 (vector 11 arg-7) ext-0))) (let ((sc8 act-32)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref sc8 1))) (let ((sc9 e-13)) (let ((e-2 (car sc9))) (let ((e-3 (cdr sc9))) (let ((u--casefnty (CoreC-45Env-abstractFullEnvType arg-0 arg-7 (TTImpC-45ElabC-45Case-allow u--splitOn (TTImpC-45ElabC-45Case-explicitPi u--env)) (PreludeC-45Types-maybe (lambda () (vector 3 arg-7 e-8 (vector 2 arg-7 arg-13 (vector 1 ) arg-12) (CoreC-45TT-u--weaken_Weaken_Term e-2))) (lambda () (lambda (eta-0) e-2)) u--splitOn)))) (let ((act-33 (TTImpC-45ElabC-45Utils-findErased arg-1 u--casefnty ext-0))) (let ((sc10 act-33)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-14 (vector-ref sc10 1))) (let ((_-0 (cons e-2 e-3))) (let ((sc11 e-14)) (let ((e-15 (car sc11))) (let ((e-4 (cdr sc11))) (let ((act-34 (CoreC-45Normalise-logEnv arg-0 arg-1 "elab.case" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) "Case env" u--env ext-0))) (let ((sc12 act-34)) (case (vector-ref sc12 0) ((0) (let ((e-16 (vector-ref sc12 1))) (vector 0 e-16))) (else (let ((act-35 (CoreC-45Normalise-logTermNF '() arg-1 "elab.case" (+ 1 (+ 1 0)) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Case function type: " (CoreC-45Name-u--show_Show_Name e-9))) '() u--casefnty ext-0))) (let ((sc13 act-35)) (case (vector-ref sc13 0) ((0) (let ((e-17 (vector-ref sc13 1))) (vector 0 e-17))) (else (let ((act-36 (let ((sc14 (DataC-45List-isNil e-6))) (cond ((equal? sc14 0) (vector 1 (vector 0 ))) (else ((TTImpC-45ElabC-45Case-findImpsIn '() arg-7 '() '() u--casefnty) ext-0)))))) (let ((sc14 act-36)) (case (vector-ref sc14 0) ((0) (let ((e-18 (vector-ref sc14 1))) (vector 0 e-18))) (else (let ((act-37 (CoreC-45Context-addDef arg-1 e-9 (let ((_-1 (cons e-15 e-4))) (TTImpC-45ElabC-45Case-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseBlock-7289 arg-0 arg-15 arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-6 e-8 e-9 u--env e-10 e-11 u--splitOn e-12 e-3 e-2 _-0 u--casefnty e-4 u--vis e-15 _-1 (CoreC-45Context-newDef arg-7 e-9 (let ((_-2 (cons e-15 e-4))) (TTImpC-45ElabC-45Case-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseBlock-7149 arg-0 arg-15 arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-6 e-8 e-9 u--env e-10 e-11 u--splitOn e-12 e-3 e-2 _-0 u--casefnty e-4 u--vis e-15 _-2 (AlgebraC-45Semiring-isErased (cons (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-16) (lambda (arg-17) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-16 arg-17))) (lambda (arg-16) (lambda (arg-17) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-16 arg-17))))) arg-5))) '() u--casefnty u--vis (vector 0 )))) ext-0))) (let ((sc15 act-37)) (case (vector-ref sc15 0) ((0) (let ((e-19 (vector-ref sc15 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref sc15 1))) (let ((act-38 (CoreC-45Context-setFlag arg-1 arg-7 (vector 9 e-19) (vector 4 (vector 2 )) ext-0))) (let ((sc16 act-38)) (case (vector-ref sc16 0) ((0) (let ((e-20 (vector-ref sc16 1))) (vector 0 e-20))) (else (let ((u--caseRef (vector 1 arg-7 (vector 1 ) (vector 9 e-19)))) (let ((act-39 ((PreludeC-45Types-maybe (lambda () (lambda (eta-0) (vector 1 (vector 0 )))) (lambda () (lambda (eta-0) (lambda (eta-1) (CoreC-45Context-setFlag arg-1 arg-7 e-9 (vector 0 ) eta-1)))) u--splitOn) ext-0))) (let ((sc17 act-39)) (case (vector-ref sc17 0) ((0) (let ((e-21 (vector-ref sc17 1))) (vector 0 e-21))) (else (let ((u--applyEnv (CoreC-45UnifyState-applyToFull arg-0 arg-7 u--caseRef u--env))) (let ((u--appTm (PreludeC-45Types-maybe (lambda () (vector 4 arg-7 u--applyEnv arg-11)) (lambda () (lambda (eta-0) u--applyEnv)) u--splitOn))) (let ((u--altsC-39 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (TTImpC-45ElabC-45Case-n--13298-5611-u--updateClause arg-0 arg-15 arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-9 u--splitOn arg-8 u--env eta-0)) arg-14))) (let ((act-40 (CoreC-45ContextC-45Log-log arg-1 "elab.case" (+ 1 (+ 1 0)) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Nested: " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (CoreC-45Name-u--show_Show_Name x-0)) (lambda (u--d) (lambda (x-0) (CoreC-45Name-u--showPrec_Show_Name u--d x-0)))) (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (x-2) (CoreC-45Name-u--show_Show_Name x-2)) (lambda (u--d) (lambda (x-2) (CoreC-45Name-u--showPrec_Show_Name u--d x-2)))) x-1)) (lambda (u--d) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (x-2) (CoreC-45Name-u--show_Show_Name x-2)) (lambda (d-0) (lambda (x-2) (CoreC-45Name-u--showPrec_Show_Name d-0 x-2)))) u--d x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40VarC-32C-36nsC-41 x-2)) (lambda (u--d) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40VarC-32C-36nsC-41 u--d x-2)))) x-1)) (lambda (u--d) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40ListC-32C-36aC-41 (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40VarC-32C-36nsC-41 x-2)) (lambda (d-0) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40VarC-32C-36nsC-41 d-0 x-2)))) u--d x-1))))) x-0)) (lambda (u--d) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (x-2) (CoreC-45Name-u--show_Show_Name x-2)) (lambda (d-0) (lambda (x-2) (CoreC-45Name-u--showPrec_Show_Name d-0 x-2)))) x-1)) (lambda (d-0) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (x-2) (CoreC-45Name-u--show_Show_Name x-2)) (lambda (d-1) (lambda (x-2) (CoreC-45Name-u--showPrec_Show_Name d-1 x-2)))) d-0 x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40VarC-32C-36nsC-41 x-2)) (lambda (d-0) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40VarC-32C-36nsC-41 d-0 x-2)))) x-1)) (lambda (d-0) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40ListC-32C-36aC-41 (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40VarC-32C-36nsC-41 x-2)) (lambda (d-1) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40VarC-32C-36nsC-41 d-1 x-2)))) d-0 x-1))))) u--d x-0))))) u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (CoreC-45Name-u--show_Show_Name x-0)) (lambda (d-0) (lambda (x-0) (CoreC-45Name-u--showPrec_Show_Name d-0 x-0)))) (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (x-2) (CoreC-45Name-u--show_Show_Name x-2)) (lambda (d-0) (lambda (x-2) (CoreC-45Name-u--showPrec_Show_Name d-0 x-2)))) x-1)) (lambda (d-0) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (x-2) (CoreC-45Name-u--show_Show_Name x-2)) (lambda (d-1) (lambda (x-2) (CoreC-45Name-u--showPrec_Show_Name d-1 x-2)))) d-0 x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40VarC-32C-36nsC-41 x-2)) (lambda (d-0) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40VarC-32C-36nsC-41 d-0 x-2)))) x-1)) (lambda (d-0) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40ListC-32C-36aC-41 (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40VarC-32C-36nsC-41 x-2)) (lambda (d-1) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40VarC-32C-36nsC-41 d-1 x-2)))) d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (x-2) (CoreC-45Name-u--show_Show_Name x-2)) (lambda (d-1) (lambda (x-2) (CoreC-45Name-u--showPrec_Show_Name d-1 x-2)))) x-1)) (lambda (d-1) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (x-2) (CoreC-45Name-u--show_Show_Name x-2)) (lambda (d-2) (lambda (x-2) (CoreC-45Name-u--showPrec_Show_Name d-2 x-2)))) d-1 x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40VarC-32C-36nsC-41 x-2)) (lambda (d-1) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40VarC-32C-36nsC-41 d-1 x-2)))) x-1)) (lambda (d-1) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40ListC-32C-36aC-41 (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40VarC-32C-36nsC-41 x-2)) (lambda (d-2) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40VarC-32C-36nsC-41 d-2 x-2)))) d-1 x-1))))) d-0 x-0))))) u--d u--x)))) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (TTImpC-45ElabC-45Case-getNestData eta-0)) arg-8)))) ext-0))) (let ((sc18 act-40)) (case (vector-ref sc18 0) ((0) (let ((e-22 (vector-ref sc18 1))) (vector 0 e-22))) (else (let ((act-41 (CoreC-45ContextC-45Log-log arg-1 "elab.case" (+ 1 (+ 1 0)) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Generated alts: " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (TTImpC-45TTImp-u--show_Show_ImpClause u--x)) (lambda (u--d) (lambda (u--x) (TTImpC-45TTImp-u--showPrec_Show_ImpClause u--d u--x)))) u--altsC-39))) ext-0))) (let ((sc19 act-41)) (case (vector-ref sc19 0) ((0) (let ((e-23 (vector-ref sc19 1))) (vector 0 e-23))) (else (let ((act-42 (CoreC-45Normalise-logTermNF arg-0 arg-1 "elab.case" (+ 1 (+ 1 0)) (lambda () "Case application") u--env u--appTm ext-0))) (let ((sc20 act-42)) (case (vector-ref sc20 0) ((0) (let ((e-24 (vector-ref sc20 1))) (vector 0 e-24))) (else (let ((u--nestC-39 '())) (let ((act-43 (let ((act-43 (unbox arg-3))) (vector 1 act-43)))) (let ((sc21 act-43)) (case (vector-ref sc21 0) ((0) (let ((e-25 (vector-ref sc21 1))) (vector 0 e-25))) (else (let ((e-25 (vector-ref sc21 1))) (let ((u--olddelayed (let ((sc22 e-25)) (let ((e-27 (vector-ref sc22 9))) e-27)))) (let ((act-44 (let ((act-44 (set-box! arg-3 (let ((sc22 e-25)) (let ((e-0 (vector-ref sc22 1))) (let ((e-1 (vector-ref sc22 2))) (let ((e-33 (vector-ref sc22 3))) (let ((e-32 (vector-ref sc22 4))) (let ((e-31 (vector-ref sc22 5))) (let ((e-30 (vector-ref sc22 6))) (let ((e-29 (vector-ref sc22 7))) (let ((e-28 (vector-ref sc22 8))) (let ((e-26 (vector-ref sc22 10))) (vector 0 e-0 e-1 e-33 e-32 e-31 e-30 e-29 e-28 '() e-26)))))))))))))) (vector 1 act-44)))) (let ((sc22 act-44)) (case (vector-ref sc22 0) ((0) (let ((e-26 (vector-ref sc22 1))) (vector 0 e-26))) (else (let ((act-45 ((TTImpC-45ElabC-45Check-processDecl '() arg-1 arg-2 arg-3 (cons (vector 1 ) '()) u--nestC-39 '() (vector 2 arg-7 e-9 u--altsC-39)) ext-0))) (let ((sc23 act-45)) (case (vector-ref sc23 0) ((0) (let ((e-27 (vector-ref sc23 1))) (vector 0 e-27))) (else (let ((act-46 (let ((act-46 (unbox arg-3))) (vector 1 act-46)))) (let ((sc24 act-46)) (case (vector-ref sc24 0) ((0) (let ((e-28 (vector-ref sc24 1))) (vector 0 e-28))) (else (let ((e-28 (vector-ref sc24 1))) (let ((act-47 (let ((act-47 (set-box! arg-3 (let ((sc25 e-28)) (let ((e-0 (vector-ref sc25 1))) (let ((e-1 (vector-ref sc25 2))) (let ((e-36 (vector-ref sc25 3))) (let ((e-35 (vector-ref sc25 4))) (let ((e-34 (vector-ref sc25 5))) (let ((e-33 (vector-ref sc25 6))) (let ((e-32 (vector-ref sc25 7))) (let ((e-31 (vector-ref sc25 8))) (let ((e-29 (vector-ref sc25 10))) (vector 0 e-0 e-1 e-36 e-35 e-34 e-33 e-32 e-31 u--olddelayed e-29)))))))))))))) (vector 1 act-47)))) (let ((sc25 act-47)) (case (vector-ref sc25 0) ((0) (let ((e-29 (vector-ref sc25 1))) (vector 0 e-29))) (else (vector 1 (cons u--appTm (CoreC-45Normalise-gnf arg-0 u--env e-2)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) -(define TTImpC-45ElabC-45Case-bindCaseLocals (lambda (arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-2)) (if (null? sc0) arg-4 (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (let ((sc2 e-7)) (let ((e-10 (car sc2))) (let ((e-11 (cdr sc2))) (vector 6 arg-1 e-6 (DataC-45Maybe-fromMaybe (lambda () e-6) e-10) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (TTImpC-45ElabC-45Case-n--13167-5494-u--getNameFrom e-6 e-10 e-11 e-3 arg-4 arg-3 arg-1 eta-0)) e-11) (TTImpC-45ElabC-45Case-bindCaseLocals arg-1 e-3 arg-3 arg-4)))))))))))))) -(define TTImpC-45ElabC-45Case-allow (lambda (arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) arg-2) (else (let ((e-2 (vector-ref sc0 1))) (TTImpC-45ElabC-45Case-toRig1 e-2 arg-2))))))) -(define TTImpC-45ElabC-45Binders-case--caseC-32blockC-32inC-32checkLet-8984 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (AlgebraC-45Semiring-branchOne (cons (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-23) (lambda (arg-24) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-23 arg-24))))) (lambda () (lambda (eta-0) (let ((act-24 (TTImpC-45ElabC-45Delayed-runDelays arg-0 arg-16 arg-15 arg-14 arg-13 0 (TTImpC-45ElabC-45Check-check arg-0 arg-16 arg-15 arg-14 arg-13 (AlgebraC-45Semiring-linear (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))) arg-11 arg-10 arg-9 arg-3 (vector 1 (CoreC-45Normalise-gnf arg-0 arg-9 arg-18))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (cons (Builtin-fst e-5) (cons (Builtin-snd e-5) (AlgebraC-45Semiring-linear (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))))))))))))) (lambda () (lambda (eta-0) (let ((act-24 ((TTImpC-45ElabC-45Check-check arg-0 arg-16 arg-15 arg-14 arg-13 (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-6 arg-17) arg-11 arg-10 arg-9 arg-3 (vector 1 (CoreC-45Normalise-gnf arg-0 arg-9 arg-18))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (cons (Builtin-fst e-5) (cons (Builtin-snd e-5) (AlgebraC-45ZeroOneOmega-rigMult arg-6 arg-17))))))))))) e-1)))(else (lambda (eta-0) (let ((act-24 ((TTImpC-45ElabC-45Check-check arg-0 arg-16 arg-15 arg-14 arg-13 (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-6 arg-17) arg-11 arg-10 arg-9 arg-3 (vector 1 (CoreC-45Normalise-gnf arg-0 arg-9 arg-18))) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (cons (Builtin-fst e-5) (cons (Builtin-snd e-5) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-6 arg-17))))))))))))))) -(define TTImpC-45ElabC-45Binders-case--checkLet-8547 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (cond ((equal? sc0 0) (AlgebraC-45Semiring-erased (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)))) (else (AlgebraC-45Semiring-linear (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)))))))) -(define TTImpC-45ElabC-45Binders-case--checkLambda-7974 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((1) (CoreC-45Unify-inLHS))(else (CoreC-45Unify-inTerm)))))) -(define TTImpC-45ElabC-45Binders-case--checkLambda-7899 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (cond ((equal? sc0 0) (AlgebraC-45Semiring-erased (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)))) (else (AlgebraC-45Semiring-linear (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)))))))) -(define TTImpC-45ElabC-45Binders-case--checkLambda-7810 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (cond ((equal? sc0 0) (AlgebraC-45Semiring-erased (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)))) (else (AlgebraC-45Semiring-linear (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)))))))) -(define TTImpC-45ElabC-45Binders-case--dropNameC-44drop-7118 (lambda (arg-1 arg-2 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (TTImpC-45ElabC-45Binders-n--10868-7095-u--drop arg-1 arg-2 arg-6)) (else (cons (cons arg-4 arg-5) (TTImpC-45ElabC-45Binders-n--10868-7095-u--drop arg-1 arg-2 arg-6))))))) -(define TTImpC-45ElabC-45Binders-n--12533-8502-u--linearErr (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((14) (let ((e-2 (vector-ref sc0 3))) (vector 1 e-2))) ((61) (let ((e-6 (vector-ref sc0 3))) (TTImpC-45ElabC-45Binders-n--12533-8502-u--linearErr arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 e-6))) ((62) (let ((e-9 (vector-ref sc0 3))) (TTImpC-45ElabC-45Binders-n--12533-8502-u--linearErr arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 e-9))) ((63) (let ((e-12 (vector-ref sc0 3))) (TTImpC-45ElabC-45Binders-n--12533-8502-u--linearErr arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 e-12))) ((64) (let ((e-15 (vector-ref sc0 3))) (TTImpC-45ElabC-45Binders-n--12533-8502-u--linearErr arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 e-15)))(else (vector 0 )))))) -(define TTImpC-45ElabC-45Binders-n--11064-7275-u--getRig (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((1) arg-11)(else (AlgebraC-45Semiring-erased (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)))))))) -(define TTImpC-45ElabC-45Binders-n--10868-7095-u--drop (lambda (arg-1 arg-2 arg-4) (let ((sc0 arg-4)) (if (null? sc0) '() (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (TTImpC-45ElabC-45Binders-case--dropNameC-44drop-7118 arg-1 arg-2 e-6 e-7 e-3 (CoreC-45Name-u--C-61C-61_Eq_Name e-6 arg-2))))))))))) -(define TTImpC-45ElabC-45Binders-weakenExp (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 1 (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((act-24 ((CoreC-45Normalise-getTerm e-2) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 (CoreC-45Normalise-gnf (cons arg-0 arg-1) arg-2 (CoreC-45TT-u--weaken_Weaken_Term e-5))))))))))))))) -(define TTImpC-45ElabC-45Binders-inferLambda (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 ext-0) (let ((act-24 (TTImpC-45ElabC-45Binders-findLamRig arg-1 arg-15 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((u--rigb (AlgebraC-45Preorder-glb (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-60C-61_Preorder_ZeroOneOmega arg-355 arg-356))) (lambda (u--x) (AlgebraC-45ZeroOneOmega-u--preorderRefl_Preorder_ZeroOneOmega u--x)) (lambda (u--x) (lambda (u--y) (lambda (u--z) (lambda (arg-358) (lambda (arg-360) (AlgebraC-45ZeroOneOmega-u--preorderTrans_Preorder_ZeroOneOmega u--x u--y u--z arg-358 arg-360))))))) e-5 arg-10))) (let ((act-25 ((TTImpC-45ElabC-45Check-check arg-0 arg-1 arg-2 arg-3 arg-4 (AlgebraC-45Semiring-erased (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))) arg-6 arg-7 arg-8 arg-13 (vector 1 (CoreC-45Normalise-gType arg-9))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (let ((e-2 (car sc2))) (let ((act-26 (TTImpC-45ElabC-45Binders-checkPiInfo arg-0 arg-1 arg-2 arg-3 arg-4 arg-10 arg-6 arg-7 arg-8 arg-11 (vector 1 (CoreC-45Normalise-gnf arg-0 arg-8 e-2)) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((u--envC-39 (cons (vector 0 arg-9 u--rigb e-7 e-2) arg-8))) (let ((u--nestC-39 (TTImpC-45TTImp-u--weaken_Weaken_NestedNames (TTImpC-45ElabC-45Binders-dropName arg-12 arg-7)))) (let ((act-27 (TTImpC-45ElabC-45Check-inScope arg-12 arg-0 arg-1 arg-4 arg-9 u--envC-39 (lambda (u--eC-39) (TTImpC-45ElabC-45Check-check (cons arg-12 arg-0) arg-1 arg-2 arg-3 u--eC-39 arg-5 arg-6 u--nestC-39 u--envC-39 arg-14 (vector 0 ))) ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (let ((e-9 (car sc5))) (let ((e-4 (cdr sc5))) (let ((act-28 ((CoreC-45Normalise-getTerm e-4) ext-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((u--lamty (CoreC-45Normalise-gnf arg-0 arg-8 (vector 3 arg-9 arg-12 (vector 2 arg-9 u--rigb e-7 e-2) e-10)))) (let ((act-29 (CoreC-45Normalise-logGlue arg-0 arg-1 "elab.binder" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Inferred lambda type") arg-8 u--lamty ext-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((act-30 ((PreludeC-45Types-maybe (lambda () (lambda (eta-0) (vector 1 (vector 0 )))) (lambda () (lambda (eta-0) (lambda (eta-1) (CoreC-45Normalise-logGlueNF arg-0 arg-1 "elab.binder" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Expected lambda type") arg-8 eta-0 eta-1)))) arg-15) ext-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-12 (vector-ref sc8 1))) (vector 0 e-12))) (else (TTImpC-45ElabC-45Check-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 (vector 3 arg-9 arg-12 (vector 0 arg-9 u--rigb e-7 e-2) e-9) u--lamty arg-15 ext-0))))))))))))))))))))))))))))))))))))))))))))) -(define TTImpC-45ElabC-45Binders-getTyNF (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((3) (vector 1 arg-3))(else (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((CoreC-45Normalise-nf arg-1 arg-0 e-5 arg-2 arg-3) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (CoreC-45Context-clearDefs e-5 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (CoreC-45Normalise-u--quote_Quote_NF arg-1 arg-0 e-7 arg-2 e-6 ext-0))))))))))))))))))))) -(define TTImpC-45ElabC-45Binders-findLamRig (lambda (arg-1 arg-2 ext-0) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 1 (AlgebraC-45ZeroOneOmega-u--top_Top_ZeroOneOmega))) (else (let ((e-2 (vector-ref sc0 1))) (let ((act-24 ((CoreC-45Normalise-getNF arg-1 e-2) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 3))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((2) (let ((e-7 (vector-ref sc3 2))) (vector 1 e-7)))(else (vector 1 (AlgebraC-45ZeroOneOmega-u--top_Top_ZeroOneOmega)))))))(else (vector 1 (AlgebraC-45ZeroOneOmega-u--top_Top_ZeroOneOmega)))))))))))))))) -(define TTImpC-45ElabC-45Binders-dropName (lambda (arg-1 arg-2) (TTImpC-45ElabC-45Binders-n--10868-7095-u--drop arg-2 arg-1 arg-2))) -(define TTImpC-45ElabC-45Binders-checkPiInfo (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 ext-0) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (vector 1 (vector 1 ))) ((0) (vector 1 (vector 0 ))) ((2) (vector 1 (vector 2 ))) (else (let ((e-4 (vector-ref sc0 1))) (let ((act-24 ((TTImpC-45ElabC-45Check-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-4 arg-10) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (car sc2))) (vector 1 (vector 3 e-2))))))))))))))) -(define TTImpC-45ElabC-45Binders-checkPi (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((u--pirig (TTImpC-45ElabC-45Binders-n--11064-7275-u--getRig arg-0 arg-15 arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (let ((sc0 arg-6)) (let ((e-0 (vector-ref sc0 1))) e-0))))) (lambda (eta-0) (let ((act-24 ((TTImpC-45ElabC-45Check-check arg-0 arg-1 arg-2 arg-3 arg-4 u--pirig arg-6 arg-7 arg-8 arg-13 (vector 1 (CoreC-45Normalise-gType arg-9))) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-2 (car sc1))) (let ((act-25 (TTImpC-45ElabC-45Binders-checkPiInfo arg-0 arg-1 arg-2 arg-3 arg-4 arg-10 arg-6 arg-7 arg-8 arg-11 (vector 1 (CoreC-45Normalise-gnf arg-0 arg-8 e-2)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((u--envC-39 (cons (vector 2 arg-9 arg-10 e-6 e-2) arg-8))) (let ((u--nestC-39 (TTImpC-45TTImp-u--weaken_Weaken_NestedNames (TTImpC-45ElabC-45Binders-dropName arg-12 arg-7)))) (let ((act-26 (TTImpC-45ElabC-45Check-inScope arg-12 arg-0 arg-1 arg-4 arg-9 u--envC-39 (lambda (u--eC-39) (TTImpC-45ElabC-45Check-check (cons arg-12 arg-0) arg-1 arg-2 arg-3 u--eC-39 u--pirig arg-6 u--nestC-39 u--envC-39 arg-14 (vector 1 (CoreC-45Normalise-gType arg-9)))) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (let ((e-8 (car sc4))) (TTImpC-45ElabC-45Check-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 (vector 3 arg-9 arg-12 (vector 2 (TTImpC-45TTImp-getFC arg-13) arg-10 e-6 e-2) e-8) (CoreC-45Normalise-gType arg-9) arg-15 eta-0)))))))))))))))))))))))))) -(define TTImpC-45ElabC-45Binders-checkLet (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((u--rigc (TTImpC-45ElabC-45Binders-case--checkLet-8547 arg-0 arg-16 arg-15 arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (AlgebraC-45Semiring-isErased (cons (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-17) (lambda (arg-18) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-17 arg-18))) (lambda (arg-17) (lambda (arg-18) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-17 arg-18))))) arg-5)))) (lambda (eta-0) (let ((act-24 ((TTImpC-45ElabC-45Check-check arg-0 arg-1 arg-2 arg-3 arg-4 (AlgebraC-45Semiring-erased (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))) arg-6 arg-7 arg-8 arg-13 (vector 1 (CoreC-45Normalise-gType arg-9))) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-2 (car sc1))) (let ((e-3 (cdr sc1))) (let ((act-25 (TTImpC-45ElabC-45Check-handle arg-0 arg-1 arg-2 arg-3 arg-4 (lambda (eta-1) (let ((act-25 (TTImpC-45ElabC-45Delayed-runDelays arg-0 arg-1 arg-2 arg-3 arg-4 0 (TTImpC-45ElabC-45Check-check arg-0 arg-1 arg-2 arg-3 arg-4 (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-11 u--rigc) (let ((sc2 arg-6)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-8 (vector-ref sc2 3))) (let ((e-7 (vector-ref sc2 4))) (let ((e-6 (vector-ref sc2 6))) (vector 0 e-0 e-1 e-8 e-7 0 e-6))))))) arg-7 arg-8 arg-14 (vector 1 (CoreC-45Normalise-gnf arg-0 arg-8 e-2))) eta-1))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (cons (Builtin-fst e-6) (cons (Builtin-snd e-6) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-11 u--rigc)))))))))) (lambda (u--err) (let ((_-0 (cons e-2 e-3))) (TTImpC-45ElabC-45Binders-case--caseC-32blockC-32inC-32checkLet-8984 arg-0 arg-16 arg-15 arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 u--rigc e-2 e-3 _-0 u--err (TTImpC-45ElabC-45Binders-n--12533-8502-u--linearErr arg-0 arg-16 arg-15 arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 u--err)))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (let ((e-7 (car sc3))) (let ((e-4 (cdr sc3))) (let ((sc4 e-4)) (let ((e-8 (cdr sc4))) (let ((u--envC-39 (cons (vector 0 arg-9 e-8 (vector 1 ) e-2) arg-8))) (let ((u--nestC-39 (TTImpC-45TTImp-u--weaken_Weaken_NestedNames (TTImpC-45ElabC-45Binders-dropName arg-12 arg-7)))) (let ((act-26 (TTImpC-45ElabC-45Binders-weakenExp arg-12 arg-0 u--envC-39 arg-16 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-27 (TTImpC-45ElabC-45Check-inScope arg-12 arg-0 arg-1 arg-4 arg-9 u--envC-39 (lambda (u--eC-39) (TTImpC-45ElabC-45Check-check (cons arg-12 arg-0) arg-1 arg-2 arg-3 u--eC-39 u--rigc arg-6 u--nestC-39 u--envC-39 arg-15 e-10)) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-11 (vector-ref sc6 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc6 1))) (let ((sc7 e-11)) (let ((e-13 (car sc7))) (let ((e-12 (cdr sc7))) (let ((act-28 ((CoreC-45Normalise-getTerm e-12) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-14 (vector-ref sc8 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc8 1))) (let ((act-29 (CoreC-45ContextC-45Log-log arg-1 "metadata.names" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))))) (lambda () "checkLet is adding \u2193") eta-0))) (let ((sc9 act-29)) (case (vector-ref sc9 0) ((0) (let ((e-15 (vector-ref sc9 1))) (vector 0 e-15))) (else (let ((act-30 (CoreC-45Metadata-addNameType arg-0 arg-1 arg-2 arg-10 arg-12 arg-8 e-2 eta-0))) (let ((sc10 act-30)) (case (vector-ref sc10 0) ((0) (let ((e-16 (vector-ref sc10 1))) (vector 0 e-16))) (else (vector 1 (cons (vector 3 arg-9 arg-12 (vector 1 arg-9 e-8 e-7 e-2) e-13) (CoreC-45Normalise-gnf arg-0 arg-8 (vector 3 arg-9 arg-12 (vector 1 arg-9 e-8 e-7 e-2) e-14)))))))))))))))))))))))))))))))))))))))))))))))))))))) -(define TTImpC-45ElabC-45Binders-checkLambda (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((0) (let ((u--rig (TTImpC-45ElabC-45Binders-case--checkLambda-7810 arg-0 arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (AlgebraC-45Semiring-isErased (cons (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-16) (lambda (arg-17) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-16 arg-17))) (lambda (arg-16) (lambda (arg-17) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-16 arg-17))))) arg-5)))) (lambda (eta-0) (TTImpC-45ElabC-45Binders-inferLambda arg-0 arg-1 arg-2 arg-3 arg-4 u--rig arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 (vector 0 ) eta-0)))) (else (let ((e-2 (vector-ref sc0 1))) (let ((u--rig (TTImpC-45ElabC-45Binders-case--checkLambda-7899 arg-0 e-2 arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (AlgebraC-45Semiring-isErased (cons (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-16) (lambda (arg-17) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-16 arg-17))) (lambda (arg-16) (lambda (arg-17) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-16 arg-17))))) arg-5)))) (let ((u--solvemode (TTImpC-45ElabC-45Binders-case--checkLambda-7974 arg-0 e-2 arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 u--rig (let ((sc1 arg-6)) (let ((e-0 (vector-ref sc1 1))) e-0))))) (lambda (eta-0) (let ((act-24 (CoreC-45Unify-solveConstraints arg-1 arg-3 u--solvemode (vector 0 ) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((act-25 ((CoreC-45Normalise-getTerm e-2) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImpC-45ElabC-45Binders-getTyNF arg-0 arg-1 arg-8 e-6 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (let ((act-27 (unbox arg-1))) (vector 1 act-27)))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((sc5 e-7)) (case (vector-ref sc5 0) ((3) (let ((e-1 (vector-ref sc5 1))) (let ((e-9 (vector-ref sc5 2))) (let ((e-3 (vector-ref sc5 3))) (let ((e-4 (vector-ref sc5 4))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((2) (let ((e-13 (vector-ref sc6 1))) (let ((e-12 (vector-ref sc6 2))) (let ((e-11 (vector-ref sc6 3))) (let ((e-10 (vector-ref sc6 4))) (let ((act-28 ((TTImpC-45ElabC-45Check-check arg-0 arg-1 arg-2 arg-3 arg-4 (AlgebraC-45Semiring-erased (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))) arg-6 arg-7 arg-8 arg-13 (vector 1 (CoreC-45Normalise-gType arg-9))) eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-14 (vector-ref sc7 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc7 1))) (let ((u--exptynf (vector 3 e-1 e-9 (vector 2 e-13 e-12 e-11 e-10) e-4))) (let ((sc8 e-14)) (let ((e-16 (car sc8))) (let ((act-29 (TTImpC-45ElabC-45Binders-checkPiInfo arg-0 arg-1 arg-2 arg-3 arg-4 arg-10 arg-6 arg-7 arg-8 arg-11 (vector 1 (CoreC-45Normalise-gnf arg-0 arg-8 e-16)) eta-0))) (let ((sc9 act-29)) (case (vector-ref sc9 0) ((0) (let ((e-17 (vector-ref sc9 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc9 1))) (let ((u--rigb (AlgebraC-45Preorder-glb (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-60C-61_Preorder_ZeroOneOmega arg-355 arg-356))) (lambda (u--x) (AlgebraC-45ZeroOneOmega-u--preorderRefl_Preorder_ZeroOneOmega u--x)) (lambda (u--x) (lambda (u--y) (lambda (u--z) (lambda (arg-358) (lambda (arg-360) (AlgebraC-45ZeroOneOmega-u--preorderTrans_Preorder_ZeroOneOmega u--x u--y u--z arg-358 arg-360))))))) arg-10 e-12))) (let ((u--envC-39 (cons (vector 0 arg-9 u--rigb e-17 e-16) arg-8))) (let ((act-30 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (let ((sc10 eta-1)) (case (vector-ref sc10 0) ((0) (let ((e-18 (vector-ref sc10 1))) (vector 0 e-18))) (else (vector 1 (vector 0 )))))) (TTImpC-45ElabC-45Check-convert arg-0 arg-1 arg-3 arg-4 arg-9 arg-6 arg-8 (CoreC-45Normalise-gnf arg-0 arg-8 e-16) (CoreC-45Normalise-gnf arg-0 arg-8 e-10)) eta-0))) (let ((sc10 act-30)) (case (vector-ref sc10 0) ((0) (let ((e-18 (vector-ref sc10 1))) (vector 0 e-18))) (else (let ((u--nestC-39 (TTImpC-45TTImp-u--weaken_Weaken_NestedNames (TTImpC-45ElabC-45Binders-dropName arg-12 arg-7)))) (let ((act-31 (TTImpC-45ElabC-45Check-inScope arg-12 arg-0 arg-1 arg-4 arg-9 u--envC-39 (lambda (u--eC-39) (TTImpC-45ElabC-45Check-check (cons arg-12 arg-0) arg-1 arg-2 arg-3 u--eC-39 u--rig arg-6 u--nestC-39 u--envC-39 arg-14 (vector 1 (CoreC-45Normalise-gnf (cons arg-12 arg-0) u--envC-39 (CoreC-45TT-renameTop arg-12 e-4))))) eta-0))) (let ((sc11 act-31)) (case (vector-ref sc11 0) ((0) (let ((e-19 (vector-ref sc11 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref sc11 1))) (let ((sc12 e-19)) (let ((e-21 (car sc12))) (let ((e-20 (cdr sc12))) (let ((act-32 (CoreC-45Normalise-logTermNF arg-0 arg-1 "elab.binder" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Lambda type") arg-8 u--exptynf eta-0))) (let ((sc13 act-32)) (case (vector-ref sc13 0) ((0) (let ((e-22 (vector-ref sc13 1))) (vector 0 e-22))) (else (let ((act-33 (CoreC-45Normalise-logGlueNF (cons arg-12 arg-0) arg-1 "elab.binder" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Got scope type") u--envC-39 e-20 eta-0))) (let ((sc14 act-33)) (case (vector-ref sc14 0) ((0) (let ((e-23 (vector-ref sc14 1))) (vector 0 e-23))) (else (let ((act-34 (CoreC-45ContextC-45Log-log arg-1 "metadata.names" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))))) (lambda () "checkLambda is adding \u2193") eta-0))) (let ((sc15 act-34)) (case (vector-ref sc15 0) ((0) (let ((e-24 (vector-ref sc15 1))) (vector 0 e-24))) (else (let ((act-35 (CoreC-45Metadata-addNameType arg-0 arg-1 arg-2 arg-9 arg-12 arg-8 e-10 eta-0))) (let ((sc16 act-35)) (case (vector-ref sc16 0) ((0) (let ((e-25 (vector-ref sc16 1))) (vector 0 e-25))) (else (let ((act-36 ((CoreC-45Normalise-getTerm e-20) eta-0))) (let ((sc17 act-36)) (case (vector-ref sc17 0) ((0) (let ((e-26 (vector-ref sc17 1))) (vector 0 e-26))) (else (let ((e-26 (vector-ref sc17 1))) (TTImpC-45ElabC-45Check-checkExp arg-0 arg-1 arg-3 arg-4 u--rig arg-6 arg-8 arg-9 (vector 3 arg-9 arg-12 (vector 0 e-13 u--rigb e-17 e-16) e-21) (CoreC-45Normalise-gnf arg-0 arg-8 (vector 3 arg-9 arg-12 (vector 2 e-13 u--rigb e-17 e-16) e-26)) (vector 1 (CoreC-45Normalise-gnf arg-0 arg-8 (vector 3 arg-9 e-9 (vector 2 e-13 e-12 e-17 e-10) e-4))) eta-0)))))))))))))))))))))))))))))))))))))))))))))))))))))))(else (TTImpC-45ElabC-45Binders-inferLambda arg-0 arg-1 arg-2 arg-3 arg-4 u--rig arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 (vector 1 e-2) eta-0)))))))))(else (TTImpC-45ElabC-45Binders-inferLambda arg-0 arg-1 arg-2 arg-3 arg-4 u--rig arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 (vector 1 e-2) eta-0))))))))))))))))))))))))))))))) -(define TTImpC-45ElabC-45As-case--caseC-32blockC-32inC-32checkAs-5098 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 ext-0) (let ((sc0 arg-19)) (case (vector-ref sc0 0) ((0) (let ((act-24 ((TTImpC-45ElabC-45Check-check arg-0 arg-14 arg-13 arg-12 arg-11 (TTImpC-45ElabC-45As-n--11905-4729-u--rigPat arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) arg-9 arg-8 arg-7 arg-2 arg-1) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (car sc2))) (let ((e-3 (cdr sc2))) (let ((act-25 (TTImpC-45ElabC-45ImplicitBind-mkPatternHole arg-0 arg-11 arg-14 arg-12 arg-5 arg-10 arg-18 arg-7 (let ((sc3 arg-9)) (let ((e-1 (vector-ref sc3 2))) e-1)) arg-1 ext-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (let ((e-7 (car sc4))) (let ((e-4 (cdr sc4))) (let ((sc5 e-4)) (let ((e-9 (car sc5))) (let ((e-8 (cdr sc5))) (let ((act-26 (CoreC-45ContextC-45Log-log arg-14 "elab.as" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Added as pattern name " (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (u--x) (CoreC-45Name-u--show_Show_Name u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Name-u--showPrec_Show_Name u--d u--x)))) (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (AlgebraC-45ZeroOneOmega-u--show_Show_ZeroOneOmega x-0)) (lambda (u--d) (lambda (x-0) (AlgebraC-45ZeroOneOmega-u--showPrec_Show_ZeroOneOmega u--d x-0)))) (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (u--d) (lambda (x-1) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-0 u--d x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (u--d) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-0 u--d x-2)))) (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (u--d) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-0 u--d x-2))))) x-1)) (lambda (u--d) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-0 d-0 x-2)))) (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-0 d-0 x-2))))) u--d x-1))))) x-0)) (lambda (u--d) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d-0) (lambda (x-1) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-0 d-0 x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-0 d-0 x-2)))) (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-0 d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-0 d-1 x-2)))) (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-0 d-1 x-2))))) d-0 x-1))))) u--d x-0))))) u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (AlgebraC-45ZeroOneOmega-u--show_Show_ZeroOneOmega x-0)) (lambda (d-0) (lambda (x-0) (AlgebraC-45ZeroOneOmega-u--showPrec_Show_ZeroOneOmega d-0 x-0)))) (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d-0) (lambda (x-1) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-0 d-0 x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-0 d-0 x-2)))) (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-0 d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-0 d-1 x-2)))) (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-0 d-1 x-2))))) d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d-1) (lambda (x-1) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-0 d-1 x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-0 d-1 x-2)))) (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-0 d-1 x-2))))) x-1)) (lambda (d-1) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-2) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-0 d-2 x-2)))) (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-2) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-0 d-2 x-2))))) d-1 x-1))))) d-0 x-0))))) u--d u--x))))) (cons arg-18 (cons (TTImpC-45ElabC-45As-n--11905-4731-u--rigAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (cons e-7 (cons e-9 e-8))))))) ext-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((act-27 (let ((act-27 (unbox arg-14))) (vector 1 act-27)))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((act-28 (let ((act-28 (unbox arg-11))) (vector 1 act-28)))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-12 (vector-ref sc8 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-29 (let ((act-29 (set-box! arg-11 (let ((sc9 e-12)) (let ((e-1 (vector-ref sc9 1))) (let ((e-24 (vector-ref sc9 2))) (let ((e-23 (vector-ref sc9 3))) (let ((e-22 (vector-ref sc9 4))) (let ((e-21 (vector-ref sc9 5))) (let ((e-20 (vector-ref sc9 6))) (let ((e-19 (vector-ref sc9 7))) (let ((e-18 (vector-ref sc9 8))) (let ((e-17 (vector-ref sc9 9))) (let ((e-16 (vector-ref sc9 10))) (let ((e-15 (vector-ref sc9 11))) (let ((e-14 (vector-ref sc9 12))) (let ((e-13 (vector-ref sc9 13))) (vector 0 e-1 e-24 e-23 e-22 (let ((u--vars arg-0)) (cons (cons arg-18 (vector 1 arg-0 (TTImpC-45ElabC-45As-n--11905-4731-u--rigAs u--vars arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (vector 1 ) e-7 e-9 e-2)) e-21)) (let ((u--vars arg-0)) (cons (cons arg-18 (vector 1 arg-0 (TTImpC-45ElabC-45As-n--11905-4731-u--rigAs u--vars arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (vector 1 ) e-7 e-8 e-2)) e-20)) e-19 e-18 e-17 e-16 e-15 e-14 e-13)))))))))))))))))) (vector 1 act-29)))) (let ((sc9 act-29)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (vector 0 e-13))) (else (let ((act-30 (TTImpC-45ElabC-45Check-checkExp arg-0 arg-14 arg-12 arg-11 arg-10 arg-9 arg-7 arg-5 e-7 (CoreC-45Normalise-gnf arg-0 arg-7 e-9) (vector 1 e-3) ext-0))) (let ((sc10 act-30)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc10 1))) (let ((sc11 e-14)) (let ((e-16 (car sc11))) (let ((e-15 (cdr sc11))) (let ((act-31 (CoreC-45ContextC-45Log-log arg-14 "metadata.names" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))))) (lambda () "checkAs is adding \u2193") ext-0))) (let ((sc12 act-31)) (case (vector-ref sc12 0) ((0) (let ((e-17 (vector-ref sc12 1))) (vector 0 e-17))) (else (let ((act-32 (let ((act-32 ((CoreC-45Normalise-getTerm e-15) ext-0))) (let ((sc13 act-32)) (case (vector-ref sc13 0) ((0) (let ((e-18 (vector-ref sc13 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc13 1))) (CoreC-45Metadata-addNameType arg-0 arg-14 arg-13 arg-5 arg-3 arg-7 e-18 ext-0)))))))) (let ((sc13 act-32)) (case (vector-ref sc13 0) ((0) (let ((e-18 (vector-ref sc13 1))) (vector 0 e-18))) (else (vector 1 (cons (vector 5 arg-6 arg-4 e-16 e-2) e-3))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 35 arg-6 arg-3) ext-0)))))) -(define TTImpC-45ElabC-45As-case--checkAsC-44rigAsC-39-4969 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (cond ((equal? sc0 0) (AlgebraC-45Semiring-linear (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)))) (else arg-10))))) -(define TTImpC-45ElabC-45As-case--checkAsC-44rigAsC-39-4894 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (cond ((equal? sc0 0) (AlgebraC-45Semiring-erased (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)))) (else arg-10))))) -(define TTImpC-45ElabC-45As-case--checkAsC-44rigPatC-39-4818 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (cond ((equal? sc0 0) (AlgebraC-45Semiring-erased (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)))) (else arg-10))))) -(define TTImpC-45ElabC-45As-case--checkAsC-44rigPatC-39-4743 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (cond ((equal? sc0 0) (AlgebraC-45Semiring-linear (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)))) (else arg-10))))) -(define TTImpC-45ElabC-45As-n--11905-4728-u--rigPatC-39 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((0) (TTImpC-45ElabC-45As-case--checkAsC-44rigPatC-39-4743 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 (AlgebraC-45Semiring-isLinear (cons (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-16) (lambda (arg-17) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-16 arg-17))) (lambda (arg-16) (lambda (arg-17) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-16 arg-17))))) arg-10))) (else (TTImpC-45ElabC-45As-case--checkAsC-44rigPatC-39-4818 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 (AlgebraC-45Semiring-isLinear (cons (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-16) (lambda (arg-17) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-16 arg-17))) (lambda (arg-16) (lambda (arg-17) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-16 arg-17))))) arg-10))))))) -(define TTImpC-45ElabC-45As-n--11905-4729-u--rigPat (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (TTImpC-45ElabC-45As-n--11905-4728-u--rigPatC-39 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-4))) -(define TTImpC-45ElabC-45As-n--11905-4730-u--rigAsC-39 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((0) (TTImpC-45ElabC-45As-case--checkAsC-44rigAsC-39-4894 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 (AlgebraC-45Semiring-isLinear (cons (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-16) (lambda (arg-17) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-16 arg-17))) (lambda (arg-16) (lambda (arg-17) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-16 arg-17))))) arg-10))) (else (TTImpC-45ElabC-45As-case--checkAsC-44rigAsC-39-4969 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 (AlgebraC-45Semiring-isLinear (cons (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-16) (lambda (arg-17) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-16 arg-17))) (lambda (arg-16) (lambda (arg-17) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-16 arg-17))))) arg-10))))))) -(define TTImpC-45ElabC-45As-n--11905-4731-u--rigAs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (TTImpC-45ElabC-45As-n--11905-4730-u--rigAsC-39 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-4))) -(define TTImpC-45ElabC-45As-checkAs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((u--elabmode (let ((sc0 arg-6)) (let ((e-0 (vector-ref sc0 1))) e-0)))) (lambda (clam-0) (let ((sc0 u--elabmode)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((u--n (vector 3 arg-12 (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 2))) e-2))))) (let ((act-25 (TTImpC-45ElabC-45Check-noteLHSPatVar arg-4 u--elabmode arg-12 clam-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (TTImpC-45ElabC-45Check-notePatVar arg-4 u--n clam-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((elabmode-0 (vector 1 e-0))) (TTImpC-45ElabC-45As-case--caseC-32blockC-32inC-32checkAs-5098 arg-0 arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-0 elabmode-0 e-5 u--n (DataC-45List-lookup (cons (lambda (arg-15) (lambda (arg-16) (CoreC-45Name-u--C-61C-61_Eq_Name arg-15 arg-16))) (lambda (arg-15) (lambda (arg-16) (CoreC-45Name-u--C-47C-61_Eq_Name arg-15 arg-16)))) u--n (let ((sc4 e-5)) (let ((e-16 (vector-ref sc4 5))) e-16))) clam-0))))))))))))))))))(else (let ((act-24 (CoreC-45ContextC-45Log-log arg-1 "elab.as" (+ 1 (+ 1 0)) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Bad @-pattern " (TTImpC-45TTImp-u--show_Show_RawImp arg-13))) clam-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-9 "@-patterns only allowed in pattern clauses") clam-0)))))))))))) -(define TTImpC-45ElabC-45App-with--checkAppWithC-39-5693 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-5 (car sc1))) (let ((e-6 (cdr sc1))) (let ((sc2 e-5)) (let ((e-10 (cdr sc2))) (let ((u--argRig (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-19 arg-10))) (lambda (eta-0) (TTImpC-45ElabC-45App-checkRestApp arg-3 arg-23 arg-22 arg-21 arg-20 arg-19 u--argRig arg-18 arg-17 arg-16 arg-15 arg-14 arg-1 arg-9 arg-11 arg-8 e-10 '() arg-7 e-6 arg-6 arg-5 eta-0)))))))))) (else (TTImpC-45ElabC-45App-case--withC-32blockC-32inC-32checkAppWithC-39-5730 arg-4 arg-23 arg-22 arg-21 arg-3 arg-20 arg-19 arg-18 arg-17 arg-16 arg-15 arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-1 arg-0 (TTImpC-45ElabC-45App-findBindAllExpPattern arg-0))))))) -(define TTImpC-45ElabC-45App-case--caseC-32blockC-32inC-32checkApp-8773 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (let ((sc0 arg-23)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (if (null? sc1) arg-1 (let ((e-4 (car sc1))) (let ((sc2 e-4)) (case (vector-ref sc2 0) ((1) (let ((e-7 (vector-ref sc2 1))) e-7))(else arg-1))))))))(else arg-1))))) -(define TTImpC-45ElabC-45App-case--checkAppC-44updateElabInfo-8436 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 ext-0) (let ((sc0 arg-23)) (cond ((equal? sc0 0) (vector 1 (let ((sc1 arg-19)) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (vector 0 (vector 2 ) e-1 e-2 e-3 e-4 e-5))))))))) (else (vector 1 arg-19)))))) -(define TTImpC-45ElabC-45App-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkAppWith-8045 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 ext-0) (let ((sc0 arg-26)) (cond ((equal? sc0 0) (vector 1 arg-18)) (else (TTImpC-45ElabC-45Dot-registerDot arg-0 arg-17 arg-16 arg-15 arg-14 arg-13 arg-10 arg-9 (vector 6 ) (Builtin-fst arg-18) (Builtin-snd arg-18) ext-0)))))) -(define TTImpC-45ElabC-45App-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkAppWith-7980 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24) (let ((sc0 arg-24)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (if (null? sc1) (lambda (eta-0) (vector 1 arg-18)) (let ((e-4 (car sc1))) (let ((e-5 (cdr sc1))) (lambda (eta-0) (TTImpC-45ElabC-45App-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkAppWith-8045 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 e-4 e-5 (PreludeC-45Types-u--C-61C-61_Eq_Nat e-5 (PreludeC-45TypesC-45List-length arg-23)) eta-0))))))))(else (lambda (eta-0) (vector 1 arg-18))))))) -(define TTImpC-45ElabC-45App-case--caseC-32blockC-32inC-32checkAppWith-7926 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (if (null? sc0) (lambda (eta-0) (vector 1 arg-18)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((e-7 (vector-ref sc1 3))) (TTImpC-45ElabC-45App-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkAppWith-7980 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 e-5 e-7 e-6 e-3 (CoreC-45TT-isCon e-6))))))(else (lambda (eta-0) (vector 1 arg-18))))))))))) -(define TTImpC-45ElabC-45App-case--checkAppWith-7875 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-19)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (TTImpC-45ElabC-45App-case--caseC-32blockC-32inC-32checkAppWith-7926 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 e-1 (CoreC-45TT-getFnArgs (Builtin-fst arg-18))))) (else (lambda (eta-0) (vector 1 arg-18))))))) -(define TTImpC-45ElabC-45App-case--checkAppWithC-39-7751 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (cond ((equal? sc0 0) (lambda (eta-0) (TTImpC-45ElabC-45Check-checkExp arg-0 arg-16 arg-14 arg-13 arg-12 arg-11 arg-9 arg-8 arg-7 (CoreC-45Normalise-glueBack arg-16 arg-0 arg-17 arg-9 arg-6) arg-1 eta-0))) (else (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 26 arg-0 arg-8 arg-9 (PreludeC-45TypesC-45List-C-43C-43 (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (vector 1 "")) arg-4) (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-fst eta-1)) arg-3)) arg-7) eta-0))))))) -(define TTImpC-45ElabC-45App-case--caseC-32blockC-32inC-32checkAppWithC-39-7541 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 ext-0) (let ((sc0 arg-34)) (if (null? sc0) (vector 1 arg-32) (let ((act-24 ((CoreC-45Normalise-getTerm arg-31) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((CoreC-45UnifyState-newConstant arg-4 arg-17 arg-19 arg-11 arg-15 arg-12 (Builtin-fst arg-32) e-5 arg-34) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (cons e-6 (CoreC-45Normalise-gnf arg-4 arg-12 arg-24))))))))))))))))) -(define TTImpC-45ElabC-45App-case--checkAppWithC-39-7183 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25) (let ((sc0 arg-25)) (case (vector-ref sc0 0) ((0) (TTImpC-45ElabC-45App-makeDefImplicit arg-0 arg-23 arg-22 arg-21 arg-20 arg-19 arg-24 arg-18 arg-17 arg-16 arg-15 arg-14 arg-6 arg-2 arg-3 arg-5 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8)) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-5 (car sc1))) (let ((e-6 (cdr sc1))) (let ((sc2 e-5)) (let ((e-10 (cdr sc2))) (lambda (eta-0) (TTImpC-45ElabC-45App-checkRestApp arg-0 arg-23 arg-22 arg-21 arg-20 arg-19 arg-24 arg-18 arg-17 arg-16 arg-15 arg-14 arg-6 arg-3 arg-5 arg-13 e-10 arg-12 arg-11 e-6 arg-9 arg-8 eta-0))))))))))))) -(define TTImpC-45ElabC-45App-case--checkAppWithC-39-7040 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24) (let ((sc0 arg-24)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (TTImpC-45ElabC-45App-makeImplicit arg-0 arg-22 arg-21 arg-20 arg-19 arg-18 arg-23 arg-17 arg-16 arg-15 arg-14 arg-13 arg-5 arg-2 arg-4 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-5 (car sc1))) (let ((e-6 (cdr sc1))) (let ((sc2 e-5)) (let ((e-10 (cdr sc2))) (lambda (eta-0) (TTImpC-45ElabC-45App-checkRestApp arg-0 arg-22 arg-21 arg-20 arg-19 arg-18 arg-23 arg-17 arg-16 arg-15 arg-14 arg-13 arg-5 arg-2 arg-4 arg-12 e-10 arg-11 arg-10 e-6 arg-8 arg-7 eta-0))))))))))))) -(define TTImpC-45ElabC-45App-case--checkAppWithC-39-6896 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (let ((sc0 arg-23)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-5 (car sc1))) (let ((e-6 (cdr sc1))) (let ((sc2 e-5)) (let ((e-10 (cdr sc2))) (lambda (eta-0) (TTImpC-45ElabC-45App-checkRestApp arg-0 arg-21 arg-20 arg-19 arg-18 arg-17 arg-22 arg-16 arg-15 arg-14 arg-13 arg-12 arg-5 arg-2 arg-4 arg-11 e-10 arg-10 '() e-6 arg-8 arg-7 eta-0))))))))) (else (TTImpC-45ElabC-45App-makeAutoImplicit arg-0 arg-21 arg-20 arg-19 arg-18 arg-17 arg-22 arg-16 arg-15 arg-14 arg-13 arg-12 arg-5 arg-2 arg-4 arg-11 arg-10 '() arg-9 arg-8 arg-7)))))) -(define TTImpC-45ElabC-45App-case--caseC-32blockC-32inC-32checkAppWithC-39-6205 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24) (let ((sc0 arg-24)) (cond ((equal? sc0 0) (lambda (eta-0) (TTImpC-45ElabC-45App-makeImplicit arg-0 arg-20 arg-19 arg-18 arg-17 arg-16 arg-21 arg-15 arg-14 arg-13 arg-12 arg-11 arg-8 arg-5 arg-7 arg-4 '() '() '() arg-3 (vector 1 arg-2) eta-0))) (else (lambda (eta-0) (TTImpC-45ElabC-45Check-handle arg-0 arg-20 arg-19 arg-18 arg-17 (lambda (eta-1) (TTImpC-45ElabC-45Check-checkExp arg-0 arg-20 arg-18 arg-17 arg-16 arg-15 arg-13 arg-12 arg-11 (CoreC-45Normalise-glueBack arg-20 arg-0 arg-23 arg-13 arg-10) (vector 1 arg-2) eta-1)) (lambda (u--err) (lambda (eta-1) (TTImpC-45ElabC-45App-makeImplicit arg-0 arg-20 arg-19 arg-18 arg-17 arg-16 arg-21 arg-15 arg-14 arg-13 arg-12 arg-11 arg-8 arg-5 arg-7 arg-4 '() '() '() arg-3 (vector 1 arg-2) eta-1))) eta-0))))))) -(define TTImpC-45ElabC-45App-case--caseC-32blockC-32inC-32withC-32blockC-32inC-32checkAppWithC-39-5882 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25) (let ((sc0 arg-25)) (cond ((equal? sc0 0) (lambda (eta-0) (TTImpC-45ElabC-45Check-checkExp arg-4 arg-1 arg-3 arg-5 arg-6 arg-7 arg-9 arg-10 arg-11 (CoreC-45Normalise-glueBack arg-1 arg-4 arg-24 arg-9 arg-12) arg-20 eta-0))) (else (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 26 arg-4 arg-10 arg-9 (PreludeC-45TypesC-45List-C-43C-43 (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (vector 1 "")) arg-18) (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-fst eta-1)) arg-22)) arg-11) eta-0))))))) -(define TTImpC-45ElabC-45App-case--withC-32blockC-32inC-32checkAppWithC-39-5730 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (let ((sc0 arg-23)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((u--argRig (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-6 arg-15))) (lambda (eta-0) (TTImpC-45ElabC-45App-checkRestApp arg-4 arg-1 arg-2 arg-3 arg-5 arg-6 u--argRig arg-7 arg-8 arg-9 arg-10 arg-11 arg-21 arg-16 arg-14 arg-17 e-1 '() arg-18 arg-22 arg-19 arg-20 eta-0)))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((TTImpC-45ElabC-45App-case--caseC-32blockC-32inC-32withC-32blockC-32inC-32checkAppWithC-39-5882 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 e-5 (PreludeC-45Interfaces-all (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (lambda (eta-1) (TTImpC-45ElabC-45App-isImplicitAs eta-1)) (PreludeC-45TypesC-45List-C-43C-43 arg-18 (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) (DataC-45List-filter (lambda (eta-1) (let ((sc1 (TTImpC-45ElabC-45App-isBindAllExpPattern (Builtin-fst eta-1)))) (cond ((equal? sc1 0) 1) (else 0)))) arg-22))))) eta-0)))))))))))) -(define TTImpC-45ElabC-45App-case--findNamed-5603 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (if (null? sc0) (vector 0 ) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (if (null? sc1) (vector 0 ) (let ((e-5 (car sc1))) (let ((e-6 (cdr sc1))) (vector 1 (cons e-5 (PreludeC-45TypesC-45List-C-43C-43 e-6 e-3))))))))))))) -(define TTImpC-45ElabC-45App-case--caseC-32blockC-32inC-32checkRestApp-5266 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28) (let ((sc0 arg-28)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 arg-27))) (else (lambda (clam-0) (let ((sc1 arg-27)) (let ((e-2 (car sc1))) (let ((e-3 (cdr sc1))) (TTImpC-45ElabC-45App-checkValidPattern arg-0 arg-22 arg-21 arg-20 arg-19 arg-18 arg-14 arg-13 e-2 e-3 clam-0)))))))))) -(define TTImpC-45ElabC-45App-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkRestApp-4919 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 arg-38 arg-39 arg-40 arg-41 arg-42 arg-43 arg-44 arg-45 arg-46 arg-47 ext-0) (let ((sc0 arg-47)) (case (vector-ref sc0 0) ((1) (let ((act-24 (CoreC-45Context-updateDef arg-22 (vector 9 arg-30) (lambda (eta-0) (vector 1 (vector 7 0 (CoreC-45Context-holeInit 1)))) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc2 eta-0)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))) (lambda (eta-0) (CoreC-45Unify-solveIfUndefined arg-0 arg-22 arg-20 arg-14 arg-31 arg-41 eta-0)) ext-0))))))(else (vector 1 (vector 0 ))))))) -(define TTImpC-45ElabC-45App-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkRestApp-4617 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 arg-38 arg-39 arg-40 arg-41 arg-42 arg-43 arg-44 arg-45 arg-46 arg-47 ext-0) (let ((sc0 arg-47)) (if (null? sc0) (vector 1 arg-35) (let ((act-24 ((CoreC-45Normalise-getTerm arg-36) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((CoreC-45UnifyState-newConstant arg-0 arg-20 arg-22 arg-13 arg-18 arg-14 arg-35 e-5 arg-47) ext-0)))))))))) -(define TTImpC-45ElabC-45App-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkRestApp-4508 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 arg-38 arg-39 arg-40 arg-41 arg-42 arg-43 arg-44 arg-45 arg-46 ext-0) (let ((sc0 arg-46)) (cond ((equal? sc0 0) (let ((act-24 ((TTImpC-45ElabC-45Check-convert arg-0 arg-22 arg-20 arg-19 arg-13 arg-16 arg-14 (CoreC-45Normalise-gnf arg-0 arg-14 arg-31) (CoreC-45Normalise-gnf arg-0 arg-14 arg-41)) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (TTImpC-45ElabC-45App-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkRestApp-4617 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 arg-38 arg-39 arg-40 arg-41 arg-42 arg-43 arg-44 arg-45 e-5 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) ext-0))))))) (else (vector 1 arg-35)))))) -(define TTImpC-45ElabC-45App-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkRestApp-4094 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 arg-38 arg-39 arg-40 arg-41 ext-0) (let ((sc0 arg-41)) (cond ((equal? sc0 0) (vector 1 arg-40)) (else (let ((sc1 arg-40)) (let ((e-2 (car sc1))) (let ((e-3 (cdr sc1))) (let ((act-24 (TTImpC-45ElabC-45App-checkPatTyValid arg-0 arg-22 arg-13 arg-38 arg-14 arg-39 e-2 e-3 ext-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (TTImpC-45ElabC-45App-checkValidPattern arg-0 arg-22 arg-21 arg-20 arg-19 arg-18 arg-14 arg-13 e-2 e-3 ext-0))))))))))))) -(define TTImpC-45ElabC-45App-case--checkRestApp-3741 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 ext-0) (let ((sc0 arg-27)) (cond ((equal? sc0 0) (let ((act-24 (CoreC-45UnifyState-genMVName arg-22 arg-20 arg-11 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Context-clearDefs arg-23 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (CoreC-45Normalise-u--quote_Quote_NF arg-22 arg-0 e-6 arg-14 arg-10 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((TTImpC-45ElabC-45Check-argVar arg-0 arg-22 arg-20 (TTImpC-45TTImp-getFC arg-24) arg-17 arg-14 e-5 e-7) ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (let ((e-2 (car sc5))) (let ((e-3 (cdr sc5))) (let ((u--fntm (vector 4 arg-13 arg-12 e-3))) (let ((act-28 (CoreC-45Normalise-logNF arg-0 arg-22 "elab" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Delaying " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-5) (PreludeC-45TypesC-45String-C-43C-43 " " (TTImpC-45TTImp-u--show_Show_RawImp arg-24))))) arg-14 arg-10 ext-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((act-29 (CoreC-45ContextC-45Log-logTerm arg-0 arg-22 "elab" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "...as") e-3 ext-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((act-30 (((arg-9 arg-23) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) arg-14 e-3)) ext-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc8 1))) (let ((act-31 (TTImpC-45ElabC-45App-checkAppWith arg-0 arg-22 arg-21 arg-20 arg-19 arg-18 arg-16 arg-15 arg-14 arg-13 u--fntm e-11 (cons arg-1 (PreludeC-45Types-u--C-43_Num_Nat (PreludeC-45Types-u--fromInteger_Num_Nat 1) arg-2)) arg-7 arg-6 arg-5 arg-25 arg-3 ext-0))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc9 1))) (let ((_-0 (cons e-2 e-3))) (let ((sc10 e-12)) (let ((e-13 (car sc10))) (let ((e-4 (cdr sc10))) (let ((act-32 (let ((act-32 (unbox arg-22))) (vector 1 act-32)))) (let ((sc11 act-32)) (case (vector-ref sc11 0) ((0) (let ((e-14 (vector-ref sc11 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc11 1))) (let ((act-33 ((CoreC-45Normalise-nf arg-22 arg-0 e-14 arg-14 e-7) ext-0))) (let ((sc12 act-33)) (case (vector-ref sc12 0) ((0) (let ((e-15 (vector-ref sc12 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc12 1))) (let ((act-34 (CoreC-45Normalise-logNF arg-0 arg-22 "elab" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Now trying " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-5) (PreludeC-45TypesC-45String-C-43C-43 " " (TTImpC-45TTImp-u--show_Show_RawImp arg-24))))) arg-14 e-15 ext-0))) (let ((sc13 act-34)) (case (vector-ref sc13 0) ((0) (let ((e-16 (vector-ref sc13 1))) (vector 0 e-16))) (else (let ((act-35 ((TTImpC-45ElabC-45Check-check arg-0 arg-22 arg-21 arg-20 arg-19 arg-17 arg-16 arg-15 arg-14 arg-24 (vector 1 (CoreC-45Normalise-glueBack arg-22 arg-0 e-14 arg-14 e-15))) ext-0))) (let ((sc14 act-35)) (case (vector-ref sc14 0) ((0) (let ((e-17 (vector-ref sc14 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc14 1))) (let ((act-36 (let ((_-1 (cons e-13 e-4))) (TTImpC-45ElabC-45App-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkRestApp-4094 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 e-5 e-6 e-7 e-2 e-3 _-0 u--fntm e-11 e-13 e-4 _-1 e-14 e-15 e-17 (let ((sc15 (TTImpC-45ElabC-45App-onLHS (let ((sc16 arg-16)) (let ((e-0 (vector-ref sc16 1))) e-0))))) (cond ((equal? sc15 0) 1) (else 0))) ext-0)))) (let ((sc15 act-36)) (case (vector-ref sc15 0) ((0) (let ((e-18 (vector-ref sc15 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc15 1))) (let ((_-1 (cons e-13 e-4))) (let ((sc16 e-18)) (let ((e-20 (car sc16))) (let ((e-19 (cdr sc16))) (let ((act-37 (let ((act-37 (unbox arg-22))) (vector 1 act-37)))) (let ((sc17 act-37)) (case (vector-ref sc17 0) ((0) (let ((e-21 (vector-ref sc17 1))) (vector 0 e-21))) (else (let ((e-21 (vector-ref sc17 1))) (let ((act-38 (CoreC-45ContextC-45Log-logTerm arg-0 arg-22 "elab" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Solving " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 e-3) " with"))) e-20 ext-0))) (let ((sc18 act-38)) (case (vector-ref sc18 0) ((0) (let ((e-22 (vector-ref sc18 1))) (vector 0 e-22))) (else (let ((act-39 (CoreC-45Unify-solveIfUndefined arg-0 arg-22 arg-20 arg-14 e-3 e-20 ext-0))) (let ((sc19 act-39)) (case (vector-ref sc19 0) ((0) (let ((e-23 (vector-ref sc19 1))) (vector 0 e-23))) (else (let ((e-23 (vector-ref sc19 1))) (let ((act-40 (let ((_-2 (cons e-20 e-19))) (TTImpC-45ElabC-45App-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkRestApp-4508 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 e-5 e-6 e-7 e-2 e-3 _-0 u--fntm e-11 e-13 e-4 _-1 e-14 e-15 e-17 e-20 e-19 _-2 e-21 e-23 (let ((sc20 e-23)) (cond ((equal? sc20 0) 1) (else 0))) ext-0)))) (let ((sc20 act-40)) (case (vector-ref sc20 0) ((0) (let ((e-24 (vector-ref sc20 1))) (vector 0 e-24))) (else (let ((e-24 (vector-ref sc20 1))) (let ((act-41 (let ((_-2 (cons e-20 e-19))) (TTImpC-45ElabC-45App-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkRestApp-4919 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 e-5 e-6 e-7 e-2 e-3 _-0 u--fntm e-11 e-13 e-4 _-1 e-14 e-15 e-17 e-20 e-19 _-2 e-21 e-23 e-24 (let ((sc21 arg-16)) (let ((e-0 (vector-ref sc21 1))) e-0)) ext-0)))) (let ((sc21 act-41)) (case (vector-ref sc21 0) ((0) (let ((e-25 (vector-ref sc21 1))) (vector 0 e-25))) (else (let ((act-42 (CoreC-45UnifyState-removeHole arg-20 e-2 ext-0))) (let ((sc22 act-42)) (case (vector-ref sc22 0) ((0) (let ((e-26 (vector-ref sc22 1))) (vector 0 e-26))) (else (vector 1 (cons e-24 e-4)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (let ((act-24 (CoreC-45Normalise-logNF arg-0 arg-22 "elab" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Argument type " (CoreC-45Name-u--show_Show_Name arg-11))) arg-14 arg-10 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45Normalise-logNF arg-0 arg-22 "elab" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Full function type") arg-14 (vector 0 arg-13 arg-11 (vector 2 arg-13 arg-17 (vector 1 ) arg-10) arg-9) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45ContextC-45Log-logC arg-22 "elab" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda (eta-0) (let ((act-26 ((PreludeC-45Types-maybe (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (u--t) (lambda (eta-1) (let ((act-26 ((CoreC-45Normalise-getTerm u--t) eta-1))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (CoreC-45Context-toFullNames arg-22 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-2) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-2)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) e-7 eta-1))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 1 e-8))))))))))))))) arg-3) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (PreludeC-45TypesC-45String-C-43C-43 "Overall expected type: " (PreludeC-45Show-u--show_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-0 u--d u--x)))) e-7))))))))) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 ((TTImpC-45ElabC-45Check-check arg-0 arg-22 arg-21 arg-20 arg-19 arg-17 arg-16 arg-15 arg-14 arg-24 (vector 1 (CoreC-45Normalise-glueBack arg-22 arg-0 arg-23 arg-14 arg-10))) ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 ((TTImpC-45ElabC-45App-case--caseC-32blockC-32inC-32checkRestApp-5266 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 e-8 (let ((sc5 (TTImpC-45ElabC-45App-onLHS (let ((sc6 arg-16)) (let ((e-0 (vector-ref sc6 1))) e-0))))) (cond ((equal? sc5 0) 1) (else 0)))) ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((sc6 e-9)) (let ((e-2 (car sc6))) (let ((e-3 (cdr sc6))) (let ((act-29 (CoreC-45Normalise-logGlueNF arg-0 arg-22 "elab" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Got arg type") arg-14 e-3 ext-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((act-30 (let ((act-30 (unbox arg-22))) (vector 1 act-30)))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc8 1))) (let ((u--fntm (vector 4 arg-13 arg-12 e-2))) (let ((act-31 (((arg-9 e-11) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) arg-14 e-2)) ext-0))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc9 1))) (TTImpC-45ElabC-45App-checkAppWith arg-0 arg-22 arg-21 arg-20 arg-19 arg-18 arg-16 arg-15 arg-14 arg-13 u--fntm e-12 (cons arg-1 (PreludeC-45Types-u--C-43_Num_Nat (PreludeC-45Types-u--fromInteger_Num_Nat 1) arg-2)) arg-7 arg-6 arg-5 arg-25 arg-3 ext-0)))))))))))))))))))))))))))))))))))))))))))))) -(define TTImpC-45ElabC-45App-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32dotErased-3477 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 ext-0) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (vector 1 arg-2)) (else (vector 1 (TTImpC-45ElabC-45App-n--12910-2916-u--dotTerm arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-2))))))) -(define TTImpC-45ElabC-45App-case--caseC-32blockC-32inC-32dotErased-3387 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 ext-0) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (vector 1 arg-2)) (else (let ((act-24 (let ((act-24 (unbox arg-7))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((PreludeC-45Types-maybe (lambda () (lambda (eta-0) (vector 1 (vector 0 )))) (lambda () (lambda (u--n) (CoreC-45Context-lookupCtxtExact u--n (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))))) arg-5) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((_-0 (vector 1 e-1))) (TTImpC-45ElabC-45App-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32dotErased-3477 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-5 e-1 _-0 (PreludeC-45Types-elem (cons (lambda (arg-10) (lambda (arg-11) (PreludeC-45Types-u--C-61C-61_Eq_Nat arg-10 arg-11))) (lambda (arg-10) (lambda (arg-11) (PreludeC-45Types-u--C-47C-61_Eq_Nat arg-10 arg-11)))) arg-4 (let ((sc4 e-1)) (let ((e-4 (vector-ref sc4 5))) e-4))) ext-0)))) (else (vector 1 (TTImpC-45ElabC-45App-n--12910-2916-u--dotTerm arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-2)))))))))))))))))))) -(define TTImpC-45ElabC-45App-case--dotErased-3342 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 ext-0) (let ((sc0 arg-8)) (cond ((equal? sc0 0) (let ((act-24 ((TTImpC-45ElabC-45App-n--12910-2915-u--countConstructors arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-6) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (TTImpC-45ElabC-45App-case--caseC-32blockC-32inC-32dotErased-3387 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-5 (PreludeC-45Basics-C-124C-124 (PreludeC-45Types-u--C-61C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-9) (lambda (arg-10) (PreludeC-45Types-u--C-61C-61_Eq_Nat arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (PreludeC-45Types-u--C-47C-61_Eq_Nat arg-9 arg-10)))) e-5 (vector 1 (PreludeC-45Types-u--fromInteger_Num_Nat 1))) (lambda () (PreludeC-45Types-u--C-61C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-9) (lambda (arg-10) (PreludeC-45Types-u--C-61C-61_Eq_Nat arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (PreludeC-45Types-u--C-47C-61_Eq_Nat arg-9 arg-10)))) e-5 (vector 1 (PreludeC-45Types-u--fromInteger_Num_Nat 0))))) ext-0))))))) (else (vector 1 arg-2)))))) -(define TTImpC-45ElabC-45App-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32dotErasedC-44countConstructors-3009 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 ext-0) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((6) (let ((e-6 (vector-ref sc0 7))) (vector 1 (vector 1 (PreludeC-45TypesC-45List-length e-6)))))(else (vector 1 (vector 0 ))))))) -(define TTImpC-45ElabC-45App-case--dotErasedC-44countConstructors-2931 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 ext-0) (let ((sc0 arg-13)) (cond ((equal? sc0 0) (let ((act-24 (let ((act-24 (unbox arg-7))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact arg-12 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((_-0 (vector 1 e-1))) (TTImpC-45ElabC-45App-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32dotErasedC-44countConstructors-3009 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-5 e-1 _-0 (let ((sc4 e-1)) (let ((e-17 (vector-ref sc4 18))) e-17)) ext-0)))) (else (vector 1 (vector 0 )))))))))))))))) (else (vector 1 (vector 0 ))))))) -(define TTImpC-45ElabC-45App-case--makeDefImplicit-2261 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 ext-0) (let ((sc0 arg-23)) (cond ((equal? sc0 0) (let ((act-24 (let ((act-24 (unbox arg-22))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45UnifyState-genMVName arg-22 arg-20 arg-11 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (CoreC-45Context-clearDefs e-5 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (CoreC-45Normalise-u--quote_Quote_NF arg-22 arg-0 e-7 arg-14 arg-9 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (TTImpC-45ElabC-45Check-metaVar arg-0 arg-22 arg-20 arg-13 arg-17 arg-14 e-6 e-8 ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((u--fntm (vector 4 arg-13 arg-12 e-9))) (let ((act-29 (((arg-8 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) arg-14 e-9)) ext-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-30 (let ((act-30 (unbox arg-19))) (vector 1 act-30)))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-31 (let ((act-31 (set-box! arg-19 (TTImpC-45ElabC-45Check-addBindIfUnsolved arg-0 e-6 arg-17 (vector 2 ) arg-14 e-9 e-8 e-11)))) (vector 1 act-31)))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (TTImpC-45ElabC-45App-checkAppWith arg-0 arg-22 arg-21 arg-20 arg-19 arg-18 arg-16 arg-15 arg-14 arg-13 u--fntm e-10 (cons arg-1 (PreludeC-45Types-u--C-43_Num_Nat (PreludeC-45Types-u--fromInteger_Num_Nat 1) arg-2)) arg-7 arg-6 arg-5 arg-4 arg-3 ext-0)))))))))))))))))))))))))))))))))))))))))) (else (let ((act-24 (let ((act-24 (unbox arg-22))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Context-clearDefs e-5 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (CoreC-45Normalise-u--quote_Quote_NF arg-22 arg-0 e-6 arg-14 arg-10 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((u--fntm (vector 4 arg-13 arg-12 e-7))) (let ((act-27 (((arg-8 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) arg-14 e-7)) ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (TTImpC-45ElabC-45App-checkAppWith arg-0 arg-22 arg-21 arg-20 arg-19 arg-18 arg-16 arg-15 arg-14 arg-13 u--fntm e-8 (cons arg-1 (PreludeC-45Types-u--C-43_Num_Nat (PreludeC-45Types-u--fromInteger_Num_Nat 1) arg-2)) arg-7 arg-6 arg-5 arg-4 arg-3 ext-0))))))))))))))))))))))))))) -(define TTImpC-45ElabC-45App-case--makeAutoImplicit-1999 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 ext-0) (let ((sc0 arg-22)) (cond ((equal? sc0 0) (let ((act-24 (let ((act-24 (unbox arg-21))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45UnifyState-genMVName arg-21 arg-19 arg-10 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (CoreC-45Context-clearDefs e-5 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (CoreC-45Normalise-u--quote_Quote_NF arg-21 arg-0 e-7 arg-13 arg-9 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (TTImpC-45ElabC-45Check-metaVar arg-0 arg-21 arg-19 arg-12 arg-16 arg-13 e-6 e-8 ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((u--fntm (vector 4 arg-12 arg-11 e-9))) (let ((act-29 (((arg-8 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) arg-13 e-9)) ext-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-30 (let ((act-30 (unbox arg-18))) (vector 1 act-30)))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-31 (let ((act-31 (set-box! arg-18 (TTImpC-45ElabC-45Check-addBindIfUnsolved arg-0 e-6 arg-16 (vector 2 ) arg-13 e-9 e-8 e-11)))) (vector 1 act-31)))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (TTImpC-45ElabC-45App-checkAppWith arg-0 arg-21 arg-20 arg-19 arg-18 arg-17 arg-15 arg-14 arg-13 arg-12 u--fntm e-10 (cons arg-1 (PreludeC-45Types-u--C-43_Num_Nat (PreludeC-45Types-u--fromInteger_Num_Nat 1) arg-2)) arg-7 arg-6 arg-5 arg-4 arg-3 ext-0)))))))))))))))))))))))))))))))))))))))))) (else (let ((act-24 (let ((act-24 (unbox arg-21))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45UnifyState-genMVName arg-21 arg-19 arg-10 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (CoreC-45Normalise-u--quote_Quote_NF arg-21 arg-0 e-5 arg-13 arg-9 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (let ((act-27 (unbox arg-18))) (vector 1 act-27)))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (CoreC-45Context-getAutoImplicitLimit arg-21 ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 (TTImpC-45ElabC-45Check-searchVar arg-0 arg-21 arg-19 arg-12 arg-16 e-9 (vector 9 (let ((sc6 e-8)) (let ((e-2 (vector-ref sc6 2))) e-2))) arg-13 arg-14 e-6 e-7 ext-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc6 1))) (let ((u--fntm (vector 4 arg-12 arg-11 e-10))) (let ((act-30 (((arg-8 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) arg-13 e-10)) ext-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc7 1))) (TTImpC-45ElabC-45App-checkAppWith arg-0 arg-21 arg-20 arg-19 arg-18 arg-17 arg-15 arg-14 arg-13 arg-12 u--fntm e-11 (cons arg-1 (PreludeC-45Types-u--C-43_Num_Nat (PreludeC-45Types-u--fromInteger_Num_Nat 1) arg-2)) arg-7 arg-6 arg-5 arg-4 arg-3 ext-0)))))))))))))))))))))))))))))))))))))))))) -(define TTImpC-45ElabC-45App-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32getVarType-1420 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((1) (vector 1 )) ((5) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (vector 2 e-5 e-6)))) ((6) (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (vector 3 e-8 e-9))))(else (vector 1 )))))) -(define TTImpC-45ElabC-45App-case--getVarType-1227 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((TTImpC-45ElabC-45App-getNameType arg-0 arg-8 arg-7 arg-6 arg-5 arg-3 arg-2 arg-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (car sc2))) (let ((e-3 (cdr sc2))) (vector 1 (cons e-2 (cons 0 e-3))))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (clam-0) (let ((sc1 e-2)) (let ((e-5 (car sc1))) (let ((e-6 (cdr sc1))) (let ((sc2 e-6)) (let ((e-9 (car sc2))) (let ((e-10 (cdr sc2))) (let ((act-24 (let ((act-24 (unbox arg-8))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (let ((u--arglen (PreludeC-45TypesC-45List-length e-9))) (let ((u--nC-39 (PreludeC-45Types-maybe (lambda () arg-1) (lambda () (lambda (eta-0) eta-0)) e-5))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact u--nC-39 (let ((sc4 e-7)) (let ((e-0 (vector-ref sc4 1))) e-0))) clam-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((0) (CoreC-45Context-undefinedName arg-8 arg-2 u--nC-39 clam-0)) (else (let ((e-3 (vector-ref sc5 1))) (let ((u--nt (let ((bind-0 (vector 1 e-3))) (TTImpC-45ElabC-45App-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32getVarType-1420 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-5 e-9 e-10 e-7 u--arglen u--nC-39 e-3 bind-0 (let ((sc6 e-3)) (let ((e-17 (vector-ref sc6 18))) e-17)))))) (let ((u--tm ((e-10 arg-2) u--nt))) (let ((u--tyenv (TTImpC-45ElabC-45App-n--12201-1156-u--useVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-0 (CoreC-45TT-getArgs u--tm) (CoreC-45TT-embed (let ((sc6 e-3)) (let ((e-28 (vector-ref sc6 3))) e-28)))))) (let ((act-26 (TTImpC-45ElabC-45App-checkVisibleNS arg-8 arg-2 (let ((sc6 e-3)) (let ((e-1 (vector-ref sc6 2))) e-1)) (let ((sc6 e-3)) (let ((e-22 (vector-ref sc6 10))) e-22)) clam-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((act-27 (CoreC-45ContextC-45Log-logTerm arg-0 arg-8 "elab" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Type of " (CoreC-45Name-u--show_Show_Name u--nC-39))) u--tyenv clam-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((act-28 (CoreC-45ContextC-45Log-logTerm arg-0 arg-8 "elab" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Expands to") u--tm clam-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((act-29 (CoreC-45ContextC-45Log-log arg-8 "elab" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Arg length " (PreludeC-45Show-u--show_Show_Nat u--arglen))) clam-0))) (let ((sc9 act-29)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((act-30 (CoreC-45ContextC-45Log-log arg-8 "metadata.names" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))))) (lambda () "getVarType is adding \u2193") clam-0))) (let ((sc10 act-30)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((act-31 (CoreC-45Metadata-addNameType arg-0 arg-8 arg-7 arg-2 arg-1 arg-3 u--tyenv clam-0))) (let ((sc11 act-31)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (vector 1 (cons u--tm (cons u--arglen (CoreC-45Normalise-gnf arg-0 arg-3 u--tyenv)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) -(define TTImpC-45ElabC-45App-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32getNameType-936 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((1) (vector 1 )) ((5) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (vector 2 e-5 e-6)))) ((6) (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (vector 3 e-8 e-9))))(else (vector 1 )))))) -(define TTImpC-45ElabC-45App-case--getNameType-714 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 ext-0) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-5 (car sc1))) (let ((e-6 (cdr sc1))) (let ((act-24 (TTImpC-45ElabC-45App-n--11686-688-u--rigSafe arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-6 arg-4 ext-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((u--binder (CoreC-45Env-getBinder (cons (lambda (u--n) (lambda (u--vars) (lambda (arg-5476) (CoreC-45TT-u--weaken_Weaken_Term arg-5476)))) (lambda (u--vars) (lambda (u--ns) (lambda (arg-5481) (lambda (arg-5483) (CoreC-45TT-u--weakenNs_Weaken_Term arg-5481 arg-5483)))))) arg-0 e-5 arg-3))) (let ((u--bty (CoreC-45TT-binderType u--binder))) (let ((act-25 (CoreC-45ContextC-45Log-log arg-7 "metadata.names" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))))) (lambda () "getNameType is adding \u2193") ext-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45Metadata-addNameType arg-0 arg-7 arg-6 arg-2 arg-1 arg-3 u--bty ext-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-27 (let ((sc5 (AlgebraC-45Semiring-isLinear (cons (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-9) (lambda (arg-10) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-9 arg-10))))) e-6))) (cond ((equal? sc5 0) (let ((act-27 (let ((act-27 (unbox arg-5))) (vector 1 act-27)))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-28 (set-box! arg-5 (let ((sc7 e-10)) (let ((e-20 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((e-3 (vector-ref sc7 3))) (let ((e-4 (vector-ref sc7 4))) (let ((e-19 (vector-ref sc7 5))) (let ((e-18 (vector-ref sc7 6))) (let ((e-17 (vector-ref sc7 7))) (let ((e-16 (vector-ref sc7 8))) (let ((e-15 (vector-ref sc7 9))) (let ((e-14 (vector-ref sc7 10))) (let ((e-11 (vector-ref sc7 11))) (let ((e-12 (vector-ref sc7 12))) (let ((e-13 (vector-ref sc7 13))) (vector 0 e-20 e-2 e-3 e-4 e-19 e-18 e-17 e-16 e-15 e-14 (cons e-5 e-11) e-12 e-13)))))))))))))))))) (vector 1 act-28)))))))) (else (vector 1 (vector 0 ))))))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (vector 1 (cons (vector 0 arg-2 (vector 1 (CoreC-45TT-isLet u--binder)) e-5) (CoreC-45Normalise-gnf arg-0 arg-3 u--bty)))))))))))))))))))))))))) (else (let ((act-24 (let ((act-24 (unbox arg-7))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtName arg-1 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (if (null? sc3) (CoreC-45Context-undefinedName arg-7 arg-2 arg-1 ext-0) (let ((e-1 (car sc3))) (let ((e-2 (cdr sc3))) (let ((sc4 e-1)) (if (null? sc4) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 17 arg-2 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-fst eta-0)) e-6)) ext-0) (let ((e-8 (car sc4))) (let ((e-7 (cdr sc4))) (let ((sc5 e-7)) (if (null? sc5) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 17 arg-2 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-fst eta-0)) e-6)) ext-0) (let ((e-10 (car sc5))) (let ((e-11 (cdr sc5))) (let ((sc6 e-2)) (if (null? sc6) (let ((act-26 (let ((act-26 (CoreC-45Context-getFullName arg-7 e-8 ext-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc7 1))) (TTImpC-45ElabC-45App-checkVisibleNS arg-7 arg-2 e-9 (let ((sc8 e-11)) (let ((e-23 (vector-ref sc8 10))) e-23)) ext-0)))))))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (vector 0 e-3))) (else (let ((act-27 (TTImpC-45ElabC-45App-n--11686-688-u--rigSafe arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (let ((sc8 e-11)) (let ((e-25 (vector-ref sc8 8))) e-25)) arg-4 ext-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (vector 0 e-3))) (else (let ((u--nt (let ((_-0 (cons (cons e-8 (cons e-10 e-11)) '()))) (TTImpC-45ElabC-45App-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32getNameType-936 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-5 e-8 e-10 e-11 _-0 (let ((sc9 e-11)) (let ((e-17 (vector-ref sc9 18))) e-17)))))) (vector 1 (cons (vector 1 arg-2 u--nt (vector 9 e-10)) (CoreC-45Normalise-gnf arg-0 arg-3 (CoreC-45TT-embed (let ((sc9 e-11)) (let ((e-29 (vector-ref sc9 3))) e-29))))))))))))))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 17 arg-2 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-fst eta-0)) e-6)) ext-0)))))))))))))))))))))))))))))) -(define TTImpC-45ElabC-45App-case--caseC-32blockC-32inC-32checkVisibleNS-607 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 ext-0) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (vector 1 (vector 0 ))) (else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 8 arg-3 (vector 0 arg-1 arg-0) (vector 0 )) ext-0)))))) -(define TTImpC-45ElabC-45App-n--12201-1156-u--useVars (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-10)) (if (null? sc0) arg-11 (let ((e-12 (car sc0))) (let ((e-13 (cdr sc0))) (let ((sc1 arg-11)) (case (vector-ref sc1 0) ((3) (let ((e-15 (vector-ref sc1 1))) (let ((e-16 (vector-ref sc1 2))) (let ((e-17 (vector-ref sc1 3))) (let ((e-18 (vector-ref sc1 4))) (let ((sc2 e-17)) (case (vector-ref sc2 0) ((2) (let ((e-20 (vector-ref sc2 1))) (let ((e-21 (vector-ref sc2 2))) (let ((e-23 (vector-ref sc2 4))) (vector 3 e-15 e-16 (vector 1 e-20 e-21 e-12 e-23) (TTImpC-45ElabC-45App-n--12201-1156-u--useVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (cons e-16 arg-9) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45TT-u--weaken_Weaken_Term eta-0)) e-13) e-18))))))(else (let ((sc2 arg-11)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-3 (vector-ref sc2 3))) (let ((e-4 (vector-ref sc2 4))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((1) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((e-8 (vector-ref sc3 3))) (let ((e-9 (vector-ref sc3 4))) (vector 3 e-1 e-2 (vector 1 e-6 e-7 e-8 e-9) (TTImpC-45ElabC-45App-n--12201-1156-u--useVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (cons e-2 arg-9) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45TT-u--weaken_Weaken_Term eta-0)) arg-10) e-4)))))))(else arg-11))))))))(else arg-11)))))))))))(else (let ((sc1 arg-11)) (case (vector-ref sc1 0) ((3) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((e-3 (vector-ref sc1 3))) (let ((e-4 (vector-ref sc1 4))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (let ((e-8 (vector-ref sc2 3))) (let ((e-9 (vector-ref sc2 4))) (vector 3 e-1 e-2 (vector 1 e-6 e-7 e-8 e-9) (TTImpC-45ElabC-45App-n--12201-1156-u--useVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (cons e-2 arg-9) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45TT-u--weaken_Weaken_Term eta-0)) arg-10) e-4)))))))(else arg-11))))))))(else arg-11)))))))))))) -(define TTImpC-45ElabC-45App-n--20430-8356-u--updateElabInfo (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 arg-19)) (if (null? sc1) (lambda (eta-0) (vector 1 arg-20)) (let ((e-2 (car sc1))) (let ((e-3 (cdr sc1))) (lambda (clam-0) (let ((sc2 e-2)) (case (vector-ref sc2 0) ((28) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (let ((sc3 e-3)) (if (null? sc3) (let ((act-24 (CoreC-45Context-getFullName arg-15 arg-18 clam-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (TTImpC-45ElabC-45App-case--checkAppC-44updateElabInfo-8436 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-0 e-5 e-4 arg-20 arg-18 arg-16 e-6 (PreludeC-45Types-elem (cons (lambda (arg-21) (lambda (arg-22) (CoreC-45Name-u--C-61C-61_Eq_Name arg-21 arg-22))) (lambda (arg-21) (lambda (arg-22) (CoreC-45Name-u--C-47C-61_Eq_Name arg-21 arg-22)))) (CoreC-45Name-dropNS e-6) arg-16) clam-0)))))) (vector 1 arg-20))))))(else (vector 1 arg-20)))))))))))(else (lambda (eta-0) (vector 1 arg-20))))))) -(define TTImpC-45ElabC-45App-n--11686-688-u--rigSafe (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 ext-0) (let ((act-24 (CoreC-45Context-getFullName arg-7 arg-1 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 (AlgebraC-45Preorder-C-60 (cons (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-60C-61_Preorder_ZeroOneOmega arg-355 arg-356))) (lambda (u--x) (AlgebraC-45ZeroOneOmega-u--preorderRefl_Preorder_ZeroOneOmega u--x)) (lambda (u--x) (lambda (u--y) (lambda (u--z) (lambda (arg-358) (lambda (arg-360) (AlgebraC-45ZeroOneOmega-u--preorderTrans_Preorder_ZeroOneOmega u--x u--y u--z arg-358 arg-360))))))) (cons (lambda (arg-10) (lambda (arg-11) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-10 arg-11))) (lambda (arg-10) (lambda (arg-11) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-10 arg-11))))) arg-8 arg-9))) (cond ((equal? sc1 0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 14 arg-2 e-5 arg-8 arg-9) ext-0)) (else (vector 1 (vector 0 )))))))))))) -(define TTImpC-45ElabC-45App-n--20430-8355-u--normalisePrims (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 ext-0) (let ((act-24 (CoreC-45Normalise-normalisePrims arg-15 arg-16 (lambda (arg-20) (TTImpC-45ElabC-45App-n--20495-8364-u--boundSafe arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-19 arg-18 arg-17 arg-20 (let ((sc0 arg-10)) (let ((e-0 (vector-ref sc0 1))) e-0)))) (lambda (eta-0) (TTImpC-45TTImp-isIPrimVal eta-0)) arg-17 arg-1 arg-6 (Builtin-fst arg-19) arg-18 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (cons (DataC-45Maybe-fromMaybe (lambda () (Builtin-fst arg-19)) e-5) (Builtin-snd arg-19)))))))))) -(define TTImpC-45ElabC-45App-n--12888-2251-u--metavarImp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (let ((sc0 arg-23)) (case (vector-ref sc0 0) ((1) 0) ((3) 0)(else 1))))) -(define TTImpC-45ElabC-45App-n--12882-1989-u--metavarImp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (case (vector-ref sc0 0) ((1) 0) ((3) 0)(else 1))))) -(define TTImpC-45ElabC-45App-n--12910-2916-u--dotTerm (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((19) arg-8) ((17) arg-8) ((32) arg-8) ((18) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (let ((e-10 (vector-ref sc0 4))) (let ((e-11 (vector-ref sc0 5))) (let ((sc1 e-11)) (case (vector-ref sc1 0) ((17) arg-8) ((32) arg-8)(else (vector 18 e-7 e-8 e-9 e-10 (vector 19 e-7 (vector 3 ) arg-8)))))))))))(else (vector 19 (TTImpC-45TTImp-getFC arg-8) (vector 3 ) arg-8)))))) -(define TTImpC-45ElabC-45App-n--12910-2915-u--countConstructors (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (TTImpC-45ElabC-45App-case--dotErasedC-44countConstructors-2931 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-1 e-3 e-5 e-4 e-2 (PreludeC-45Types-u--C-61C-61_Eq_Nat (PreludeC-45TypesC-45List-length e-5) e-4) eta-0))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define TTImpC-45ElabC-45App-n--20495-8364-u--boundSafe (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21) (let ((sc0 arg-21)) (case (vector-ref sc0 0) ((1) 0)(else (let ((sc0 arg-20)) (case (vector-ref sc0 0) ((5) (let ((e-0 (vector-ref sc0 1))) (PreludeC-45EqOrd-u--C-60_Ord_Integer (PreludeC-45Num-u--abs_Abs_Integer e-0) 100)))(else 0)))))))) -(define TTImpC-45ElabC-45App-onLHS (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) 0)(else 1))))) -(define TTImpC-45ElabC-45App-needsDelayLHS (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 0))) ((8) (let ((e-3 (vector-ref sc0 2))) (TTImpC-45ElabC-45App-needsDelayLHS arg-0 e-3))) ((9) (let ((e-6 (vector-ref sc0 2))) (TTImpC-45ElabC-45App-needsDelayLHS arg-0 e-6))) ((10) (let ((e-9 (vector-ref sc0 2))) (TTImpC-45ElabC-45App-needsDelayLHS arg-0 e-9))) ((13) (lambda (eta-0) (vector 1 0))) ((12) (lambda (eta-0) (vector 1 0))) ((28) (lambda (eta-0) (vector 1 0))) ((29) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))) -(define TTImpC-45ElabC-45App-needsDelayExpr (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (cond ((equal? sc0 1) (lambda (eta-0) (vector 1 1))) (else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((0) (let ((e-1 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtName e-1 (let ((sc3 e-5)) (let ((e-30 (vector-ref sc3 1))) e-30))) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 (let ((sc4 e-6)) (if (null? sc4) 1 (let ((e-2 (cdr sc4))) (let ((sc5 e-2)) (if (null? sc5) 1 0))))))))))))))))))) ((8) (let ((e-3 (vector-ref sc1 2))) (TTImpC-45ElabC-45App-needsDelayExpr arg-0 0 e-3))) ((9) (let ((e-6 (vector-ref sc1 2))) (TTImpC-45ElabC-45App-needsDelayExpr arg-0 0 e-6))) ((10) (let ((e-9 (vector-ref sc1 2))) (TTImpC-45ElabC-45App-needsDelayExpr arg-0 0 e-9))) ((2) (lambda (eta-0) (vector 1 0))) ((4) (lambda (eta-0) (vector 1 0))) ((5) (lambda (eta-0) (vector 1 0))) ((7) (lambda (eta-0) (vector 1 0))) ((13) (lambda (eta-0) (vector 1 0))) ((12) (lambda (eta-0) (vector 1 0))) ((14) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1)))))))))) -(define TTImpC-45ElabC-45App-needsDelay (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (TTImpC-45ElabC-45App-needsDelayLHS arg-0 arg-3))(else (TTImpC-45ElabC-45App-needsDelayExpr arg-0 arg-2 arg-3)))))) -(define TTImpC-45ElabC-45App-makeImplicit (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 ext-0) (let ((sc0 arg-15)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45UnifyState-genMVName arg-1 arg-3 arg-12 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (CoreC-45Context-clearDefs e-5 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (CoreC-45Normalise-u--quote_Quote_NF arg-1 arg-0 e-7 arg-9 arg-13 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (TTImpC-45ElabC-45Check-metaVar arg-0 arg-1 arg-3 arg-10 arg-6 arg-9 e-6 e-8 ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (let ((u--fntm (vector 4 arg-10 arg-11 e-9))) (let ((act-29 (((arg-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) arg-9 e-9)) ext-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-30 (let ((sc7 (let ((sc8 arg-7)) (let ((e-12 (vector-ref sc8 4))) e-12)))) (cond ((equal? sc7 0) (let ((act-30 (let ((act-30 (unbox arg-4))) (vector 1 act-30)))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc8 1))) (let ((act-31 (set-box! arg-4 (TTImpC-45ElabC-45Check-addBindIfUnsolved arg-0 e-6 arg-6 (vector 0 ) arg-9 e-9 e-8 e-11)))) (vector 1 act-31)))))))) (else (vector 1 (vector 0 ))))))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (TTImpC-45ElabC-45App-checkAppWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-8 arg-9 arg-10 u--fntm e-10 (cons e-2 (PreludeC-45Types-u--C-43_Num_Nat (PreludeC-45Types-u--fromInteger_Num_Nat 1) e-3)) arg-16 arg-17 arg-18 arg-19 arg-20 ext-0))))))))))))))))))))))))))))))))))))))))) -(define TTImpC-45ElabC-45App-makeDefImplicit (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21) (let ((sc0 arg-16)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (lambda (eta-0) (TTImpC-45ElabC-45App-case--makeDefImplicit-2261 arg-0 e-2 e-3 arg-21 arg-20 arg-19 arg-18 arg-17 arg-15 arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (TTImpC-45ElabC-45App-n--12888-2251-u--metavarImp arg-0 e-2 e-3 arg-21 arg-20 arg-19 arg-18 arg-17 arg-15 arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (let ((sc1 arg-7)) (let ((e-0 (vector-ref sc1 1))) e-0))) eta-0))))))) -(define TTImpC-45ElabC-45App-makeAutoImplicit (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-15)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (lambda (eta-0) (TTImpC-45ElabC-45App-case--makeAutoImplicit-1999 arg-0 e-2 e-3 arg-20 arg-19 arg-18 arg-17 arg-16 arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (TTImpC-45ElabC-45App-n--12882-1989-u--metavarImp arg-0 e-2 e-3 arg-20 arg-19 arg-18 arg-17 arg-16 arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (let ((sc1 arg-7)) (let ((e-0 (vector-ref sc1 1))) e-0))) eta-0))))))) -(define TTImpC-45ElabC-45App-isImplicitAs (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((18) (let ((e-2 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 5))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((sc2 e-4)) (case (vector-ref sc2 0) ((32) 0)(else 1))))(else 1))))))(else 1))))) -(define TTImpC-45ElabC-45App-isHole (lambda (arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((2) 0)(else 1)))))(else 1))))) -(define TTImpC-45ElabC-45App-isBindAllExpPattern (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 e-0)) (cond ((equal? sc1 "_") 0)(else 1)))))(else 1))))) -(define TTImpC-45ElabC-45App-getVarType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (TTImpC-45ElabC-45App-case--getVarType-1227 arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (DataC-45List-lookup (cons (lambda (arg-9) (lambda (arg-10) (CoreC-45Name-u--C-61C-61_Eq_Name arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (CoreC-45Name-u--C-47C-61_Eq_Name arg-9 arg-10)))) arg-8 arg-5)))) -(define TTImpC-45ElabC-45App-getNameType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (lambda (eta-0) (TTImpC-45ElabC-45App-case--getNameType-714 arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (CoreC-45Env-defined arg-0 arg-7 arg-5) eta-0)))) -(define TTImpC-45ElabC-45App-findNamed (lambda (arg-0 arg-1) (TTImpC-45ElabC-45App-case--findNamed-5603 arg-1 arg-0 (DataC-45List-partition (lambda (eta-0) (CoreC-45Name-u--C-61C-61_Eq_Name (Builtin-fst eta-0) arg-0)) arg-1)))) +(define TTImpC-45ElabC-45Record-replace (lambda (arg-0 arg-1 arg-2) (if (null? arg-2) '() (let ((e-2 (car arg-2))) (let ((e-3 (cdr arg-2))) (let ((e-6 (car e-2))) (let ((e-7 (cdr e-2))) (let ((sc2 (PreludeC-45EqOrd-u--C-61C-61_Eq_String arg-0 e-6))) (cond ((equal? sc2 1) (cons (cons arg-0 arg-1) e-3)) (else (cons (cons e-6 e-7) (TTImpC-45ElabC-45Record-replace arg-0 arg-1 e-3)))))))))))) +(define TTImpC-45ElabC-45Record-recUpdate (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 ((CoreC-45Normalise-getNF arg-1 arg-11) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((sc2 (TTImpC-45ElabC-45Record-getRecordType arg-8 e-6))) (if (null? sc2) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 22 arg-0 arg-6 arg-8) ext-0) (let ((e-1 (unbox sc2))) (let ((act-26 (TTImpC-45ElabC-45Record-genFieldName arg-2 "__fld" ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (TTImpC-45ElabC-45Record-getAllSides arg-1 arg-2 arg-6 arg-9 e-1 arg-10 (vector 0 '() e-7 (vector 0 (TTImpC-45ElabC-45Record-n--8793-14544-u--vloc arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1) (vector 1 e-7))) ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (vector 1 (vector 4 (TTImpC-45ElabC-45Record-n--8793-14544-u--vloc arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1) arg-10 (vector 32 (TTImpC-45ElabC-45Record-n--8793-14544-u--vloc arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1) 0) (cons (TTImpC-45ElabC-45Record-n--8793-14545-u--mkClause arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-8) '()))))))))))))))))))))))) +(define TTImpC-45ElabC-45Record-needType (lambda (arg-0) (case (vector-ref arg-0 0) ((22) 1) ((62) (let ((e-5 (vector-ref arg-0 3))) (TTImpC-45ElabC-45Record-needType e-5))) ((63) (let ((e-8 (vector-ref arg-0 3))) (TTImpC-45ElabC-45Record-needType e-8))) ((64) (let ((e-11 (vector-ref arg-0 3))) (TTImpC-45ElabC-45Record-needType e-11))) ((65) (let ((e-14 (vector-ref arg-0 3))) (TTImpC-45ElabC-45Record-needType e-14))) ((5) (let ((e-20 (vector-ref arg-0 6))) (TTImpC-45ElabC-45Record-needType e-20)))(else 0)))) +(define TTImpC-45ElabC-45Record-getSides (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (case (vector-ref arg-3 0) ((0) (let ((e-0 (vector-ref arg-3 1))) (let ((e-1 (vector-ref arg-3 2))) (TTImpC-45ElabC-45Record-findPath arg-0 arg-1 arg-2 e-0 e-0 (box arg-4) (lambda (eta-0) e-1) arg-6)))) (else (let ((e-2 (vector-ref arg-3 1))) (let ((e-3 (vector-ref arg-3 2))) (TTImpC-45ElabC-45Record-findPath arg-0 arg-1 arg-2 e-2 e-2 (box arg-4) (lambda (u--n) (TTImpC-45TTImp-apply e-3 (cons (vector 0 (vector 2 ) (vector 1 u--n)) '()))) arg-6))))))) +(define TTImpC-45ElabC-45Record-getRecordType (lambda (arg-1 arg-2) (case (vector-ref arg-2 0) ((3) (let ((e-2 (vector-ref arg-2 2))) (box e-2)))(else '())))) +(define TTImpC-45ElabC-45Record-getAllSides (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (if (null? arg-3) (vector 1 arg-6) (let ((e-2 (car arg-3))) (let ((e-3 (cdr arg-3))) (let ((act-24 ((TTImpC-45ElabC-45Record-getSides arg-0 arg-1 arg-2 e-2 arg-4 arg-5 arg-6) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (TTImpC-45ElabC-45Record-getAllSides arg-0 arg-1 arg-2 e-3 arg-4 arg-5 e-5 ext-0)))))))))) +(define TTImpC-45ElabC-45Record-genFieldName (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (let ((act-25 (set-box! arg-0 (let ((e-0 (vector-ref e-5 0))) (let ((e-1 (vector-ref e-5 1))) (let ((e-2 (vector-ref e-5 2))) (let ((e-3 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-12 (vector-ref e-5 5))) (let ((e-6 (vector-ref e-5 6))) (let ((e-7 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (let ((e-10 (vector-ref e-5 10))) (let ((e-11 (vector-ref e-5 11))) (vector e-0 e-1 e-2 e-3 e-4 e-12 e-6 e-7 (bs+ e-8 1 63) e-9 e-10 e-11)))))))))))))))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (vector 1 (PreludeC-45TypesC-45String-C-43C-43 arg-1 (PreludeC-45Show-u--show_Show_Int (let ((e-8 (vector-ref e-5 8))) e-8))))))))))))) +(define TTImpC-45ElabC-45Record-findPath (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (if (null? arg-3) (lambda (clam-0) (case (vector-ref arg-7 0) ((0) (let ((e-4 (vector-ref arg-7 1))) (let ((e-5 (vector-ref arg-7 2))) (vector 1 (vector 0 e-4 e-5 (arg-6 e-5))))))(else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 25 arg-2 arg-4) clam-0)))) (let ((e-2 (car arg-3))) (let ((e-3 (cdr arg-3))) (if (null? arg-5) (case (vector-ref arg-7 0) ((0) (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 23 arg-2 e-2 '()) eta-0)))(else (lambda (clam-0) (let ((e-7 (vector-ref arg-7 1))) (let ((e-8 (vector-ref arg-7 2))) (let ((e-9 (vector-ref arg-7 3))) (let ((sc3 (DataC-45List-lookup (cons (lambda (arg-8) (lambda (arg-9) (PreludeC-45EqOrd-u--C-61C-61_Eq_String arg-8 arg-9))) (lambda (arg-8) (lambda (arg-9) (PreludeC-45EqOrd-u--C-47C-61_Eq_String arg-8 arg-9)))) e-2 e-9))) (if (null? sc3) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 23 arg-2 e-2 arg-5) clam-0) (let ((e-1 (unbox sc3))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (TTImpC-45ElabC-45Record-findFields arg-0 e-5 e-8 clam-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref act-25 1))) (if (null? e-6) (vector 1 (vector 1 e-7 e-8 e-9)) (let ((e-4 (unbox e-6))) (let ((sc7 (DataC-45List-lookup (cons (lambda (arg-8) (lambda (arg-9) (PreludeC-45EqOrd-u--C-61C-61_Eq_String arg-8 arg-9))) (lambda (arg-8) (lambda (arg-9) (PreludeC-45EqOrd-u--C-47C-61_Eq_String arg-8 arg-9)))) e-2 e-4))) (if (null? sc7) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 23 arg-2 e-2 arg-5) clam-0) (let ((e-10 (unbox sc7))) (let ((e-11 (cdr e-10))) (let ((act-26 ((TTImpC-45ElabC-45Record-findPath arg-0 arg-1 arg-2 e-3 arg-4 e-11 arg-6 e-1) clam-0))) (case (vector-ref act-26 0) ((0) (let ((e-13 (vector-ref act-26 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref act-26 1))) (vector 1 (vector 1 e-7 e-8 (TTImpC-45ElabC-45Record-replace e-2 e-13 e-9)))))))))))))))))))))))))))))) (let ((e-12 (unbox arg-5))) (case (vector-ref arg-7 0) ((0) (let ((e-16 (vector-ref arg-7 1))) (let ((e-17 (vector-ref arg-7 2))) (let ((e-18 (vector-ref arg-7 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (TTImpC-45ElabC-45Record-findConName e-5 e-12 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref act-25 1))) (if (null? e-6) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 24 arg-2 e-12) eta-0) (let ((e-1 (unbox e-6))) (let ((act-26 (TTImpC-45ElabC-45Record-findFields arg-0 e-5 e-1 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-4 (vector-ref act-26 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref act-26 1))) (if (null? e-7) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 24 arg-2 e-12) eta-0) (let ((e-4 (unbox e-7))) (let ((act-27 ((TTImpC-45ElabC-45Record-n--8175-14024-u--mkArgs e-2 e-3 e-12 e-18 e-17 e-16 arg-6 arg-4 arg-2 arg-1 arg-0 e-4) eta-0))) (case (vector-ref act-27 0) ((0) (let ((e-8 (vector-ref act-27 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref act-27 1))) (let ((u--recC-39 (vector 1 e-16 e-1 e-8))) ((TTImpC-45ElabC-45Record-findPath arg-0 arg-1 arg-2 (cons e-2 e-3) arg-4 (box e-12) arg-6 u--recC-39) eta-0)))))))))))))))))))))))))))(else (lambda (clam-1) (let ((e-7 (vector-ref arg-7 1))) (let ((e-8 (vector-ref arg-7 2))) (let ((e-9 (vector-ref arg-7 3))) (let ((sc3 (DataC-45List-lookup (cons (lambda (arg-8) (lambda (arg-9) (PreludeC-45EqOrd-u--C-61C-61_Eq_String arg-8 arg-9))) (lambda (arg-8) (lambda (arg-9) (PreludeC-45EqOrd-u--C-47C-61_Eq_String arg-8 arg-9)))) e-2 e-9))) (if (null? sc3) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 23 arg-2 e-2 arg-5) clam-1) (let ((e-1 (unbox sc3))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (TTImpC-45ElabC-45Record-findFields arg-0 e-5 e-8 clam-1))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref act-25 1))) (if (null? e-6) (vector 1 (vector 1 e-7 e-8 e-9)) (let ((e-4 (unbox e-6))) (let ((sc7 (DataC-45List-lookup (cons (lambda (arg-8) (lambda (arg-9) (PreludeC-45EqOrd-u--C-61C-61_Eq_String arg-8 arg-9))) (lambda (arg-8) (lambda (arg-9) (PreludeC-45EqOrd-u--C-47C-61_Eq_String arg-8 arg-9)))) e-2 e-4))) (if (null? sc7) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 23 arg-2 e-2 arg-5) clam-1) (let ((e-10 (unbox sc7))) (let ((e-11 (cdr e-10))) (let ((act-26 ((TTImpC-45ElabC-45Record-findPath arg-0 arg-1 arg-2 e-3 arg-4 e-11 arg-6 e-1) clam-1))) (case (vector-ref act-26 0) ((0) (let ((e-14 (vector-ref act-26 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref act-26 1))) (vector 1 (vector 1 e-7 e-8 (TTImpC-45ElabC-45Record-replace e-2 e-14 e-9))))))))))))))))))))))))))))))))))))) +(define TTImpC-45ElabC-45Record-findFields (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (CoreC-45Context-lookupTyExact arg-2 (let ((e-0 (vector-ref arg-1 0))) e-0) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (if (null? e-5) (vector 1 '()) (let ((e-1 (unbox e-5))) (let ((act-25 ((CoreC-45Normalise-nf arg-0 '() arg-1 '() e-1) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45ElabC-45Record-n--7882-13718-u--getExpNames arg-2 arg-1 arg-0 e-6 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (box e-7)))))))))))))))))) +(define TTImpC-45ElabC-45Record-findConName (lambda (arg-0 arg-1 ext-0) (let ((act-24 (CoreC-45Context-lookupDefExact arg-1 (let ((e-0 (vector-ref arg-0 0))) e-0) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (if (null? e-5) (vector 1 '()) (let ((e-1 (unbox e-5))) (case (vector-ref e-1 0) ((6) (let ((e-8 (vector-ref e-1 7))) (if (null? e-8) (vector 1 '()) (let ((e-11 (car e-8))) (let ((e-12 (cdr e-8))) (if (null? e-12) (vector 1 (box e-11)) (vector 1 '())))))))(else (vector 1 '()))))))))))) +(define TTImpC-45ElabC-45Record-checkUpdate (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 ext-0) (let ((act-24 (if (null? arg-12) (let ((act-24 (TTImpC-45ElabC-45Check-checkImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-11 '() ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((e-3 (cdr e-5))) (vector 1 e-3)))))) (let ((e-1 (unbox arg-12))) (vector 1 e-1))))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((u--solvemode (let ((e-0 (vector-ref arg-6 0))) (case (vector-ref e-0 0) ((1) (CoreC-45Unify-inLHS))(else (CoreC-45Unify-inTerm)))))) (TTImpC-45ElabC-45Delayed-delayOnFailure arg-0 arg-1 arg-2 arg-3 arg-4 arg-9 arg-5 arg-8 e-5 (lambda (eta-0) (TTImpC-45ElabC-45Record-needType eta-0)) (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (u--delayed) (lambda (eta-0) (let ((act-25 (CoreC-45Unify-solveConstraints arg-1 arg-3 u--solvemode 0 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 ((CoreC-45Normalise-getTerm e-5) eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((u--rectyC-39 (cond ((equal? u--delayed 1) (CoreC-45Normalise-gnf arg-0 arg-8 e-7)) (else e-5)))) (let ((act-27 (CoreC-45Normalise-logGlueNF arg-0 arg-1 "elab.record" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Bool u--delayed) (PreludeC-45TypesC-45String-C-43C-43 " record type " (TTImpC-45TTImp-u--show_Show_RawImp arg-11)))) arg-8 u--rectyC-39 eta-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((act-28 (TTImpC-45ElabC-45Record-recUpdate arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-9 arg-7 arg-8 arg-10 arg-11 u--rectyC-39 eta-0))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-28 1))) (let ((act-29 (CoreC-45ContextC-45Log-log arg-1 "elab.record" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Record update: " (TTImpC-45TTImp-u--show_Show_RawImp e-9))) eta-0))) (case (vector-ref act-29 0) ((0) (let ((e-2 (vector-ref act-29 1))) (vector 0 e-2))) (else (TTImpC-45ElabC-45Check-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-9 arg-12 eta-0))))))))))))))))))))) ext-0)))))))) +(define TTImpC-45ElabC-45Record-applyImp (lambda (arg-0 arg-1) (if (null? arg-1) arg-0 (let ((e-2 (car arg-1))) (let ((e-3 (cdr arg-1))) (let ((e-6 (car e-2))) (let ((e-7 (cdr e-2))) (if (null? e-6) (TTImpC-45ElabC-45Record-applyImp (vector 8 (TTImpC-45TTImp-getFC arg-0) arg-0 e-7) e-3) (let ((e-10 (unbox e-6))) (TTImpC-45ElabC-45Record-applyImp (vector 10 (TTImpC-45TTImp-getFC arg-0) arg-0 e-10 e-7) e-3)))))))))) +(define TTImpC-45ElabC-45Quote-n--7754-14118-u--unqTuple (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((e-2 (car arg-6))) (let ((e-3 (cdr arg-6))) (lambda (clam-0) (let ((e-6 (car e-3))) (let ((e-7 (cdr e-3))) (let ((e-10 (car e-7))) (let ((e-11 (cdr e-7))) (let ((act-24 (TTImpC-45ElabC-45Quote-getUnquote arg-5 arg-4 arg-3 e-11 clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (cons e-2 (cons e-6 (cons e-10 e-5))))))))))))))))) +(define TTImpC-45ElabC-45Quote-n--7736-13988-u--unqPair (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((e-2 (car arg-8))) (let ((e-3 (cdr arg-8))) (lambda (clam-0) (let ((e-6 (car e-3))) (let ((e-7 (cdr e-3))) (let ((e-10 (car e-7))) (let ((e-11 (cdr e-7))) (let ((act-24 (TTImpC-45ElabC-45Quote-getUnquote arg-7 arg-6 arg-5 e-11 clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (cons e-2 (cons e-6 (cons e-10 e-5))))))))))))))))) +(define TTImpC-45ElabC-45Quote-onLHS (lambda (arg-0) (case (vector-ref arg-0 0) ((1) 1)(else 0)))) +(define TTImpC-45ElabC-45Quote-getUnquoteUpdate (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (case (vector-ref arg-3 0) ((0) (let ((e-0 (vector-ref arg-3 1))) (let ((e-1 (vector-ref arg-3 2))) (let ((act-24 (TTImpC-45ElabC-45Quote-getUnquote arg-0 arg-1 arg-2 e-1 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 0 e-0 e-5))))))))) (else (let ((e-2 (vector-ref arg-3 1))) (let ((e-3 (vector-ref arg-3 2))) (let ((act-24 (TTImpC-45ElabC-45Quote-getUnquote arg-0 arg-1 arg-2 e-3 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 1 e-2 e-5)))))))))))) +(define TTImpC-45ElabC-45Quote-getUnquoteTy (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((e-0 (vector-ref arg-3 0))) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-3 (vector-ref arg-3 3))) (let ((act-24 (TTImpC-45ElabC-45Quote-getUnquote arg-0 arg-1 arg-2 e-3 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector e-0 e-1 e-2 e-5)))))))))))) +(define TTImpC-45ElabC-45Quote-getUnquoteRecord (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((e-0 (vector-ref arg-3 0))) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-3 (vector-ref arg-3 3))) (let ((e-4 (vector-ref arg-3 4))) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (TTImpC-45ElabC-45Quote-n--7736-13988-u--unqPair e-4 e-3 e-2 e-1 e-0 arg-2 arg-1 arg-0 eta-0)) e-2 '() ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (TTImpC-45ElabC-45Quote-getUnquoteField arg-0 arg-1 arg-2 eta-0 eta-1))) e-4 '() ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-6 (vector-ref act-25 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (vector e-0 e-1 e-5 e-3 e-6))))))))))))))))) +(define TTImpC-45ElabC-45Quote-getUnquoteField (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((e-0 (vector-ref arg-3 0))) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-3 (vector-ref arg-3 3))) (let ((e-4 (vector-ref arg-3 4))) (let ((act-24 (TTImpC-45ElabC-45Quote-getUnquote arg-0 arg-1 arg-2 e-4 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector e-0 e-1 e-2 e-3 e-5))))))))))))) +(define TTImpC-45ElabC-45Quote-getUnquoteDecl (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (case (vector-ref arg-3 0) ((0) (let ((e-0 (vector-ref arg-3 1))) (let ((e-1 (vector-ref arg-3 2))) (let ((e-2 (vector-ref arg-3 3))) (let ((e-3 (vector-ref arg-3 4))) (let ((e-4 (vector-ref arg-3 5))) (let ((act-24 (TTImpC-45ElabC-45Quote-getUnquoteTy arg-0 arg-1 arg-2 e-4 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 0 e-0 e-1 e-2 e-3 e-5)))))))))))) ((1) (let ((e-5 (vector-ref arg-3 1))) (let ((e-6 (vector-ref arg-3 2))) (let ((e-7 (vector-ref arg-3 3))) (let ((act-24 (TTImpC-45ElabC-45Quote-getUnquoteData arg-0 arg-1 arg-2 e-7 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-24 1))) (vector 1 (vector 1 e-5 e-6 e-8)))))))))) ((2) (let ((e-8 (vector-ref arg-3 1))) (let ((e-9 (vector-ref arg-3 2))) (let ((e-10 (vector-ref arg-3 3))) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (TTImpC-45ElabC-45Quote-getUnquoteClause arg-0 arg-1 arg-2 eta-0 eta-1))) e-10 '() ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 2 e-8 e-9 e-5)))))))))) ((3) (let ((e-11 (vector-ref arg-3 1))) (let ((e-12 (vector-ref arg-3 2))) (let ((e-13 (vector-ref arg-3 3))) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (TTImpC-45ElabC-45Quote-n--7754-14118-u--unqTuple e-13 e-12 e-11 arg-2 arg-1 arg-0 eta-0)) e-12 '() ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (TTImpC-45ElabC-45Quote-getUnquoteDecl arg-0 arg-1 arg-2 eta-0 eta-1))) e-13 '() ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (vector 3 e-11 e-5 e-6)))))))))))))) ((4) (let ((e-14 (vector-ref arg-3 1))) (let ((e-15 (vector-ref arg-3 2))) (let ((e-16 (vector-ref arg-3 3))) (let ((e-17 (vector-ref arg-3 4))) (let ((act-24 (TTImpC-45ElabC-45Quote-getUnquoteRecord arg-0 arg-1 arg-2 e-17 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 4 e-14 e-15 e-16 e-5))))))))))) ((5) (let ((e-18 (vector-ref arg-3 1))) (let ((e-19 (vector-ref arg-3 2))) (let ((e-20 (vector-ref arg-3 3))) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (TTImpC-45ElabC-45Quote-getUnquoteDecl arg-0 arg-1 arg-2 eta-0 eta-1))) e-20 '() ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 5 e-18 e-19 e-5)))))))))) ((6) (let ((e-21 (vector-ref arg-3 1))) (let ((e-22 (vector-ref arg-3 2))) (let ((e-23 (vector-ref arg-3 3))) (let ((e-24 (vector-ref arg-3 4))) (let ((act-24 (TTImpC-45ElabC-45Quote-getUnquote arg-0 arg-1 arg-2 e-23 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (TTImpC-45ElabC-45Quote-getUnquote arg-0 arg-1 arg-2 e-24 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (vector 6 e-21 e-22 e-5 e-6)))))))))))))))(else (vector 1 arg-3))))) +(define TTImpC-45ElabC-45Quote-getUnquoteData (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (case (vector-ref arg-3 0) ((0) (let ((e-0 (vector-ref arg-3 1))) (let ((e-1 (vector-ref arg-3 2))) (let ((e-2 (vector-ref arg-3 3))) (let ((e-3 (vector-ref arg-3 4))) (let ((e-4 (vector-ref arg-3 5))) (let ((act-24 (TTImpC-45ElabC-45Quote-getUnquote arg-0 arg-1 arg-2 e-2 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (TTImpC-45ElabC-45Quote-getUnquoteTy arg-0 arg-1 arg-2 eta-0 eta-1))) e-4 '() ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-6 (vector-ref act-25 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (vector 0 e-0 e-1 e-5 e-3 e-6)))))))))))))))) (else (let ((e-5 (vector-ref arg-3 1))) (let ((e-6 (vector-ref arg-3 2))) (let ((e-7 (vector-ref arg-3 3))) (let ((act-24 (TTImpC-45ElabC-45Quote-getUnquote arg-0 arg-1 arg-2 e-7 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-24 1))) (vector 1 (vector 1 e-5 e-6 e-8))))))))))))) +(define TTImpC-45ElabC-45Quote-getUnquoteClause (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (case (vector-ref arg-3 0) ((0) (let ((e-0 (vector-ref arg-3 1))) (let ((e-1 (vector-ref arg-3 2))) (let ((e-2 (vector-ref arg-3 3))) (let ((act-24 (TTImpC-45ElabC-45Quote-getUnquote arg-0 arg-1 arg-2 e-1 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (TTImpC-45ElabC-45Quote-getUnquote arg-0 arg-1 arg-2 e-2 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-3 (vector-ref act-25 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (vector 0 e-0 e-5 e-6)))))))))))))) ((1) (let ((e-3 (vector-ref arg-3 1))) (let ((e-4 (vector-ref arg-3 2))) (let ((e-5 (vector-ref arg-3 3))) (let ((e-6 (vector-ref arg-3 4))) (let ((e-7 (vector-ref arg-3 5))) (let ((e-8 (vector-ref arg-3 6))) (let ((act-24 (TTImpC-45ElabC-45Quote-getUnquote arg-0 arg-1 arg-2 e-4 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-24 1))) (let ((act-25 (TTImpC-45ElabC-45Quote-getUnquote arg-0 arg-1 arg-2 e-5 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (TTImpC-45ElabC-45Quote-getUnquoteClause arg-0 arg-1 arg-2 eta-0 eta-1))) e-8 '() ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref act-26 1))) (vector 1 (vector 1 e-3 e-9 e-10 e-6 e-7 e-11))))))))))))))))))))) (else (let ((e-9 (vector-ref arg-3 1))) (let ((e-10 (vector-ref arg-3 2))) (let ((act-24 (TTImpC-45ElabC-45Quote-getUnquote arg-0 arg-1 arg-2 e-10 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 2 e-9 e-5)))))))))))) +(define TTImpC-45ElabC-45Quote-getUnquote (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (case (vector-ref arg-3 0) ((1) (let ((e-0 (vector-ref arg-3 1))) (let ((e-1 (vector-ref arg-3 2))) (let ((e-2 (vector-ref arg-3 3))) (let ((e-3 (vector-ref arg-3 4))) (let ((e-4 (vector-ref arg-3 5))) (let ((e-5 (vector-ref arg-3 6))) (let ((act-24 (TTImpC-45ElabC-45Quote-getUnquote arg-0 arg-1 arg-2 e-4 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((act-25 (TTImpC-45ElabC-45Quote-getUnquote arg-0 arg-1 arg-2 e-5 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-7 (vector-ref act-25 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-25 1))) (vector 1 (vector 1 e-0 e-1 e-2 e-3 e-6 e-7))))))))))))))))) ((2) (let ((e-6 (vector-ref arg-3 1))) (let ((e-7 (vector-ref arg-3 2))) (let ((e-8 (vector-ref arg-3 3))) (let ((e-9 (vector-ref arg-3 4))) (let ((e-10 (vector-ref arg-3 5))) (let ((e-11 (vector-ref arg-3 6))) (let ((act-24 (TTImpC-45ElabC-45Quote-getUnquote arg-0 arg-1 arg-2 e-10 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (TTImpC-45ElabC-45Quote-getUnquote arg-0 arg-1 arg-2 e-11 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref act-25 1))) (vector 1 (vector 2 e-6 e-7 e-8 e-9 e-5 e-12))))))))))))))))) ((3) (let ((e-12 (vector-ref arg-3 1))) (let ((e-13 (vector-ref arg-3 2))) (let ((e-14 (vector-ref arg-3 3))) (let ((e-15 (vector-ref arg-3 4))) (let ((e-16 (vector-ref arg-3 5))) (let ((e-17 (vector-ref arg-3 6))) (let ((e-18 (vector-ref arg-3 7))) (let ((act-24 (TTImpC-45ElabC-45Quote-getUnquote arg-0 arg-1 arg-2 e-16 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (TTImpC-45ElabC-45Quote-getUnquote arg-0 arg-1 arg-2 e-17 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45ElabC-45Quote-getUnquote arg-0 arg-1 arg-2 e-18 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (vector 3 e-12 e-13 e-14 e-15 e-5 e-6 e-7)))))))))))))))))))))) ((4) (let ((e-19 (vector-ref arg-3 1))) (let ((e-20 (vector-ref arg-3 2))) (let ((e-21 (vector-ref arg-3 3))) (let ((e-22 (vector-ref arg-3 4))) (let ((act-24 (TTImpC-45ElabC-45Quote-getUnquote arg-0 arg-1 arg-2 e-20 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (TTImpC-45ElabC-45Quote-getUnquote arg-0 arg-1 arg-2 e-21 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (TTImpC-45ElabC-45Quote-getUnquoteClause arg-0 arg-1 arg-2 eta-0 eta-1))) e-22 '() ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (vector 4 e-19 e-5 e-6 e-7))))))))))))))))))) ((5) (let ((e-23 (vector-ref arg-3 1))) (let ((e-24 (vector-ref arg-3 2))) (let ((e-25 (vector-ref arg-3 3))) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (TTImpC-45ElabC-45Quote-getUnquoteDecl arg-0 arg-1 arg-2 eta-0 eta-1))) e-24 '() ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (TTImpC-45ElabC-45Quote-getUnquote arg-0 arg-1 arg-2 e-25 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (vector 5 e-23 e-5 e-6)))))))))))))) ((7) (let ((e-26 (vector-ref arg-3 1))) (let ((e-27 (vector-ref arg-3 2))) (let ((e-28 (vector-ref arg-3 3))) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (TTImpC-45ElabC-45Quote-getUnquoteUpdate arg-0 arg-1 arg-2 eta-0 eta-1))) e-27 '() ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (TTImpC-45ElabC-45Quote-getUnquote arg-0 arg-1 arg-2 e-28 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (vector 7 e-26 e-5 e-6)))))))))))))) ((8) (let ((e-29 (vector-ref arg-3 1))) (let ((e-30 (vector-ref arg-3 2))) (let ((e-31 (vector-ref arg-3 3))) (let ((act-24 (TTImpC-45ElabC-45Quote-getUnquote arg-0 arg-1 arg-2 e-30 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (TTImpC-45ElabC-45Quote-getUnquote arg-0 arg-1 arg-2 e-31 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (vector 8 e-29 e-5 e-6)))))))))))))) ((9) (let ((e-32 (vector-ref arg-3 1))) (let ((e-33 (vector-ref arg-3 2))) (let ((e-34 (vector-ref arg-3 3))) (let ((act-24 (TTImpC-45ElabC-45Quote-getUnquote arg-0 arg-1 arg-2 e-33 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (TTImpC-45ElabC-45Quote-getUnquote arg-0 arg-1 arg-2 e-34 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (vector 9 e-32 e-5 e-6)))))))))))))) ((10) (let ((e-35 (vector-ref arg-3 1))) (let ((e-36 (vector-ref arg-3 2))) (let ((e-37 (vector-ref arg-3 3))) (let ((e-38 (vector-ref arg-3 4))) (let ((act-24 (TTImpC-45ElabC-45Quote-getUnquote arg-0 arg-1 arg-2 e-36 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (TTImpC-45ElabC-45Quote-getUnquote arg-0 arg-1 arg-2 e-38 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (vector 10 e-35 e-5 e-37 e-6))))))))))))))) ((11) (let ((e-39 (vector-ref arg-3 1))) (let ((e-40 (vector-ref arg-3 2))) (let ((e-41 (vector-ref arg-3 3))) (let ((act-24 (TTImpC-45ElabC-45Quote-getUnquote arg-0 arg-1 arg-2 e-40 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (TTImpC-45ElabC-45Quote-getUnquote arg-0 arg-1 arg-2 e-41 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (vector 11 e-39 e-5 e-6)))))))))))))) ((13) (let ((e-42 (vector-ref arg-3 1))) (let ((e-43 (vector-ref arg-3 2))) (let ((e-44 (vector-ref arg-3 3))) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (TTImpC-45ElabC-45Quote-getUnquote arg-0 arg-1 arg-2 eta-0 eta-1))) e-44 '() ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 13 e-42 e-43 e-5)))))))))) ((14) (let ((e-45 (vector-ref arg-3 1))) (let ((e-46 (vector-ref arg-3 2))) (let ((e-47 (vector-ref arg-3 3))) (let ((act-24 (TTImpC-45ElabC-45Quote-getUnquote arg-0 arg-1 arg-2 e-46 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (TTImpC-45ElabC-45Quote-getUnquote arg-0 arg-1 arg-2 e-47 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (vector 14 e-45 e-5 e-6)))))))))))))) ((15) (let ((e-48 (vector-ref arg-3 1))) (let ((e-49 (vector-ref arg-3 2))) (let ((act-24 (TTImpC-45ElabC-45Quote-getUnquote arg-0 arg-1 arg-2 e-49 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 15 e-48 e-5))))))))) ((16) (let ((e-50 (vector-ref arg-3 1))) (let ((e-51 (vector-ref arg-3 2))) (let ((e-52 (vector-ref arg-3 3))) (let ((act-24 (TTImpC-45ElabC-45Quote-getUnquote arg-0 arg-1 arg-2 e-52 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 16 e-50 e-51 e-5)))))))))) ((18) (let ((e-53 (vector-ref arg-3 1))) (let ((e-54 (vector-ref arg-3 2))) (let ((e-55 (vector-ref arg-3 3))) (let ((e-56 (vector-ref arg-3 4))) (let ((e-57 (vector-ref arg-3 5))) (let ((act-24 (TTImpC-45ElabC-45Quote-getUnquote arg-0 arg-1 arg-2 e-57 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 18 e-53 e-54 e-55 e-56 e-5)))))))))))) ((19) (let ((e-58 (vector-ref arg-3 1))) (let ((e-59 (vector-ref arg-3 2))) (let ((e-60 (vector-ref arg-3 3))) (let ((act-24 (TTImpC-45ElabC-45Quote-getUnquote arg-0 arg-1 arg-2 e-60 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 19 e-58 e-59 e-5)))))))))) ((20) (let ((e-61 (vector-ref arg-3 1))) (let ((e-62 (vector-ref arg-3 2))) (let ((e-63 (vector-ref arg-3 3))) (let ((act-24 (TTImpC-45ElabC-45Quote-getUnquote arg-0 arg-1 arg-2 e-63 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 20 e-61 e-62 e-5)))))))))) ((21) (let ((e-64 (vector-ref arg-3 1))) (let ((e-65 (vector-ref arg-3 2))) (let ((act-24 (TTImpC-45ElabC-45Quote-getUnquote arg-0 arg-1 arg-2 e-65 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 21 e-64 e-5))))))))) ((22) (let ((e-66 (vector-ref arg-3 1))) (let ((e-67 (vector-ref arg-3 2))) (let ((act-24 (TTImpC-45ElabC-45Quote-getUnquote arg-0 arg-1 arg-2 e-67 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 22 e-66 e-5))))))))) ((23) (let ((e-68 (vector-ref arg-3 1))) (let ((e-69 (vector-ref arg-3 2))) (let ((act-24 (TTImpC-45ElabC-45Quote-getUnquote arg-0 arg-1 arg-2 e-69 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 23 e-68 e-5))))))))) ((26) (let ((e-70 (vector-ref arg-3 1))) (let ((e-71 (vector-ref arg-3 2))) (let ((act-24 (CoreC-45UnifyState-genVarName arg-0 arg-2 "q" ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (let ((act-26 (set-box! arg-1 (cons (cons e-5 (cons e-70 e-71)) e-6)))) (vector 1 act-26)))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (vector 1 (vector 26 e-70 (vector 0 e-70 e-5)))))))))))))))))(else (vector 1 arg-3))))) +(define TTImpC-45ElabC-45Quote-checkQuoteName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Reflect-u--reflect_Reflect_Name arg-0 arg-9 e-5 (TTImpC-45ElabC-45Quote-onLHS (let ((e-0 (vector-ref arg-6 0))) e-0)) arg-8 arg-10 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Reflect-getCon arg-0 arg-9 e-5 (CoreC-45Reflect-reflectiontt "Name") ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (TTImpC-45ElabC-45Check-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 e-6 (CoreC-45Normalise-gnf arg-0 arg-8 e-7) arg-11 ext-0))))))))))))))) +(define TTImpC-45ElabC-45Quote-checkQuoteDecl (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Core-newRef (vector "TTImp.Elab.Quote.Unq" ) '() ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (TTImpC-45ElabC-45Quote-getUnquoteDecl arg-1 e-6 arg-3 eta-0 eta-1))) arg-10 '() ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (CoreC-45Reflect-u--reflect_Reflect_C-40ListC-32C-36aC-41 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (TTImpC-45Reflect-u--reflect_Reflect_ImpDecl eta-0 eta-1 eta-2 eta-3 eta-4 eta-5 eta-6)))))))) arg-0 arg-9 e-5 (TTImpC-45ElabC-45Quote-onLHS (let ((e-0 (vector-ref arg-6 0))) e-0)) arg-8 e-7 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (let ((act-28 (let ((act-28 (unbox e-6))) (vector 1 act-28)))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-28 1))) (let ((act-29 (CoreC-45Reflect-getCon arg-0 arg-9 e-5 (CoreC-45Reflect-reflectionttimp "Decl") ext-0))) (case (vector-ref act-29 0) ((0) (let ((e-2 (vector-ref act-29 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref act-29 1))) (let ((act-30 (CoreC-45Reflect-appCon arg-0 arg-9 e-5 (CoreC-45Reflect-basics "List") (cons e-10 '()) ext-0))) (case (vector-ref act-30 0) ((0) (let ((e-2 (vector-ref act-30 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref act-30 1))) (let ((act-31 ((TTImpC-45ElabC-45Quote-bindUnqs arg-0 arg-1 arg-2 arg-3 arg-4 e-9 arg-5 arg-6 arg-7 arg-8 e-8) ext-0))) (case (vector-ref act-31 0) ((0) (let ((e-2 (vector-ref act-31 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref act-31 1))) (TTImpC-45ElabC-45Check-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 e-12 (CoreC-45Normalise-gnf arg-0 arg-8 e-11) arg-11 ext-0))))))))))))))))))))))))))))))))))) +(define TTImpC-45ElabC-45Quote-checkQuote (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Core-newRef (vector "TTImp.Elab.Quote.Unq" ) '() ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45ElabC-45Quote-getUnquote arg-1 e-6 arg-3 arg-10 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 ((TTImpC-45Reflect-u--reflect_Reflect_RawImp arg-0 arg-9 e-5 (TTImpC-45ElabC-45Quote-onLHS (let ((e-0 (vector-ref arg-6 0))) e-0)) arg-8 e-7) ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (let ((act-28 (let ((act-28 (unbox e-6))) (vector 1 act-28)))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-28 1))) (let ((act-29 (CoreC-45Reflect-getCon arg-0 arg-9 e-5 (CoreC-45Reflect-reflectionttimp "TTImp") ext-0))) (case (vector-ref act-29 0) ((0) (let ((e-2 (vector-ref act-29 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref act-29 1))) (let ((act-30 ((TTImpC-45ElabC-45Quote-bindUnqs arg-0 arg-1 arg-2 arg-3 arg-4 e-9 arg-5 arg-6 arg-7 arg-8 e-8) ext-0))) (case (vector-ref act-30 0) ((0) (let ((e-2 (vector-ref act-30 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref act-30 1))) (let ((act-31 (CoreC-45Normalise-normalise arg-1 arg-0 e-5 arg-8 e-11 ext-0))) (case (vector-ref act-31 0) ((0) (let ((e-2 (vector-ref act-31 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref act-31 1))) (TTImpC-45ElabC-45Check-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 e-12 (CoreC-45Normalise-gnf arg-0 arg-8 e-10) arg-11 ext-0))))))))))))))))))))))))))))))))))) +(define TTImpC-45ElabC-45Quote-bindUnqs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (if (null? arg-5) (lambda (eta-0) (vector 1 arg-10)) (let ((e-2 (car arg-5))) (let ((e-3 (cdr arg-5))) (lambda (clam-0) (let ((e-6 (car e-2))) (let ((e-7 (cdr e-2))) (let ((e-10 (car e-7))) (let ((e-11 (cdr e-7))) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExactI (CoreC-45Reflect-reflectionttimp "TTImp") (let ((e-0 (vector-ref e-5 0))) e-0)) clam-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref act-25 1))) (if (null? e-8) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 7 e-10 (CoreC-45Reflect-reflectionttimp "TTImp")) clam-0) (let ((e-1 (unbox e-8))) (if (null? e-1) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 7 e-10 (CoreC-45Reflect-reflectionttimp "TTImp")) clam-0) (let ((e-4 (car e-1))) (let ((act-26 (TTImpC-45ElabC-45Check-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-6 arg-7 arg-8 arg-9 e-11 (box (CoreC-45Normalise-gnf arg-0 arg-9 (vector 1 e-10 (vector 3 0 0) (vector 9 e-4)))) clam-0))) (case (vector-ref act-26 0) ((0) (let ((e-12 (vector-ref act-26 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref act-26 1))) (let ((e-14 (car e-12))) (let ((e-13 (cdr e-12))) (let ((act-27 ((TTImpC-45ElabC-45Quote-bindUnqs arg-0 arg-1 arg-2 arg-3 arg-4 e-3 arg-6 arg-7 arg-8 arg-9 arg-10) clam-0))) (case (vector-ref act-27 0) ((0) (let ((e-15 (vector-ref act-27 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref act-27 1))) (let ((act-28 ((CoreC-45Normalise-getTerm e-13) clam-0))) (case (vector-ref act-28 0) ((0) (let ((e-16 (vector-ref act-28 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref act-28 1))) (vector 1 (vector 3 e-10 e-6 (vector 1 e-10 (AlgebraC-45ZeroOneOmega-rigMult (AlgebraC-45ZeroOneOmega-u--top_Top_ZeroOneOmega) arg-6) e-14 e-16) (CoreC-45TT-refToLocal e-6 e-6 e-15))))))))))))))))))))))))))))))))))))))) +(define TTImpC-45ElabC-45Prim-checkPrim (lambda (arg-1 arg-2) (case (vector-ref arg-2 0) ((0) (let ((e-0 (vector-ref arg-2 1))) (cons (vector 9 arg-1 (vector 0 e-0)) (vector 9 arg-1 (vector 14 ))))) ((1) (let ((e-1 (vector-ref arg-2 1))) (cons (vector 9 arg-1 (vector 1 e-1)) (vector 9 arg-1 (vector 15 ))))) ((2) (let ((e-2 (vector-ref arg-2 1))) (cons (vector 9 arg-1 (vector 2 e-2)) (vector 9 arg-1 (vector 16 ))))) ((3) (let ((e-3 (vector-ref arg-2 1))) (cons (vector 9 arg-1 (vector 3 e-3)) (vector 9 arg-1 (vector 17 ))))) ((4) (let ((e-4 (vector-ref arg-2 1))) (cons (vector 9 arg-1 (vector 4 e-4)) (vector 9 arg-1 (vector 18 ))))) ((5) (let ((e-5 (vector-ref arg-2 1))) (cons (vector 9 arg-1 (vector 5 e-5)) (vector 9 arg-1 (vector 19 ))))) ((6) (let ((e-6 (vector-ref arg-2 1))) (cons (vector 9 arg-1 (vector 6 e-6)) (vector 9 arg-1 (vector 20 ))))) ((7) (let ((e-7 (vector-ref arg-2 1))) (cons (vector 9 arg-1 (vector 7 e-7)) (vector 9 arg-1 (vector 21 ))))) ((8) (let ((e-8 (vector-ref arg-2 1))) (cons (vector 9 arg-1 (vector 8 e-8)) (vector 9 arg-1 (vector 22 ))))) ((9) (let ((e-9 (vector-ref arg-2 1))) (cons (vector 9 arg-1 (vector 9 e-9)) (vector 9 arg-1 (vector 23 ))))) ((10) (let ((e-10 (vector-ref arg-2 1))) (cons (vector 9 arg-1 (vector 10 e-10)) (vector 9 arg-1 (vector 24 ))))) ((11) (let ((e-11 (vector-ref arg-2 1))) (cons (vector 9 arg-1 (vector 11 e-11)) (vector 9 arg-1 (vector 25 ))))) ((12) (let ((e-12 (vector-ref arg-2 1))) (cons (vector 9 arg-1 (vector 12 e-12)) (vector 9 arg-1 (vector 26 ))))) ((13) (cons (vector 9 arg-1 (vector 13 )) (vector 9 arg-1 (vector 27 )))) ((14) (cons (vector 9 arg-1 (vector 14 )) (vector 11 arg-1))) ((15) (cons (vector 9 arg-1 (vector 15 )) (vector 11 arg-1))) ((16) (cons (vector 9 arg-1 (vector 16 )) (vector 11 arg-1))) ((17) (cons (vector 9 arg-1 (vector 17 )) (vector 11 arg-1))) ((18) (cons (vector 9 arg-1 (vector 18 )) (vector 11 arg-1))) ((19) (cons (vector 9 arg-1 (vector 19 )) (vector 11 arg-1))) ((20) (cons (vector 9 arg-1 (vector 20 )) (vector 11 arg-1))) ((21) (cons (vector 9 arg-1 (vector 21 )) (vector 11 arg-1))) ((22) (cons (vector 9 arg-1 (vector 22 )) (vector 11 arg-1))) ((23) (cons (vector 9 arg-1 (vector 23 )) (vector 11 arg-1))) ((24) (cons (vector 9 arg-1 (vector 24 )) (vector 11 arg-1))) ((25) (cons (vector 9 arg-1 (vector 25 )) (vector 11 arg-1))) ((26) (cons (vector 9 arg-1 (vector 26 )) (vector 11 arg-1))) (else (cons (vector 9 arg-1 (vector 27 )) (vector 11 arg-1)))))) +(define TTImpC-45ElabC-45Local-case--getLocalTerm-7027 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (if (null? arg-7) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 "Case Local failed") ext-0) (let ((e-1 (unbox arg-7))) (let ((e-5 (car e-1))) (let ((act-24 ((TTImpC-45ElabC-45Local-getLocalTerm arg-0 arg-6 arg-5 arg-4 (vector 4 arg-5 arg-3 (vector 0 arg-5 '() e-5)) arg-2) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-24 1))) (let ((e-2 (car e-7))) (let ((e-3 (cdr e-7))) (vector 1 (cons e-2 (cons e-5 e-3)))))))))))))) +(define TTImpC-45ElabC-45Local-n--7866-6000-u--updateTyName (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((e-0 (vector-ref arg-11 0))) (let ((e-1 (vector-ref arg-11 1))) (let ((e-2 (vector-ref arg-11 2))) (let ((e-3 (vector-ref arg-11 3))) (vector e-0 e-1 (TTImpC-45ElabC-45Local-n--7866-5999-u--newName arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-2) e-3))))))) +(define TTImpC-45ElabC-45Local-n--7866-6002-u--updateName (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (case (vector-ref arg-11 0) ((0) (let ((e-0 (vector-ref arg-11 1))) (let ((e-1 (vector-ref arg-11 2))) (let ((e-2 (vector-ref arg-11 3))) (let ((e-3 (vector-ref arg-11 4))) (let ((e-4 (vector-ref arg-11 5))) (vector 0 e-0 e-1 e-2 e-3 (TTImpC-45ElabC-45Local-n--7866-6000-u--updateTyName arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-4)))))))) ((2) (let ((e-5 (vector-ref arg-11 1))) (let ((e-6 (vector-ref arg-11 2))) (let ((e-7 (vector-ref arg-11 3))) (vector 2 e-5 (TTImpC-45ElabC-45Local-n--7866-5999-u--newName arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-6) e-7))))) ((1) (let ((e-8 (vector-ref arg-11 1))) (let ((e-9 (vector-ref arg-11 2))) (let ((e-10 (vector-ref arg-11 3))) (vector 1 e-8 e-9 (TTImpC-45ElabC-45Local-n--7866-6001-u--updateDataName arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-10))))))(else arg-11)))) +(define TTImpC-45ElabC-45Local-n--7866-6001-u--updateDataName (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (case (vector-ref arg-11 0) ((0) (let ((e-0 (vector-ref arg-11 1))) (let ((e-1 (vector-ref arg-11 2))) (let ((e-2 (vector-ref arg-11 3))) (let ((e-3 (vector-ref arg-11 4))) (let ((e-4 (vector-ref arg-11 5))) (vector 0 e-0 (TTImpC-45ElabC-45Local-n--7866-5999-u--newName arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-1) e-2 e-3 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (TTImpC-45ElabC-45Local-n--7866-6000-u--updateTyName arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 eta-0)) e-4)))))))) (else (let ((e-5 (vector-ref arg-11 1))) (let ((e-6 (vector-ref arg-11 2))) (let ((e-7 (vector-ref arg-11 3))) (vector 1 e-5 (TTImpC-45ElabC-45Local-n--7866-5999-u--newName arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-6) e-7)))))))) +(define TTImpC-45ElabC-45Local-n--7866-6003-u--setPublic (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (case (vector-ref arg-10 0) ((0) (let ((e-0 (vector-ref arg-10 1))) (let ((e-1 (vector-ref arg-10 2))) (let ((e-3 (vector-ref arg-10 4))) (let ((e-4 (vector-ref arg-10 5))) (vector 0 e-0 e-1 2 e-3 e-4)))))) ((1) (let ((e-5 (vector-ref arg-10 1))) (let ((e-7 (vector-ref arg-10 3))) (vector 1 e-5 2 e-7)))) ((4) (let ((e-8 (vector-ref arg-10 1))) (let ((e-9 (vector-ref arg-10 2))) (let ((e-11 (vector-ref arg-10 4))) (vector 4 e-8 e-9 2 e-11))))) ((3) (let ((e-12 (vector-ref arg-10 1))) (let ((e-13 (vector-ref arg-10 2))) (let ((e-14 (vector-ref arg-10 3))) (vector 3 e-12 e-13 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (TTImpC-45ElabC-45Local-n--7866-6003-u--setPublic arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 eta-0)) e-14)))))) ((5) (let ((e-15 (vector-ref arg-10 1))) (let ((e-16 (vector-ref arg-10 2))) (let ((e-17 (vector-ref arg-10 3))) (vector 5 e-15 e-16 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (TTImpC-45ElabC-45Local-n--7866-6003-u--setPublic arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 eta-0)) e-17))))))(else arg-10)))) +(define TTImpC-45ElabC-45Local-n--7866-6004-u--setErased (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (case (vector-ref arg-10 0) ((0) (let ((e-0 (vector-ref arg-10 1))) (let ((e-2 (vector-ref arg-10 3))) (let ((e-3 (vector-ref arg-10 4))) (let ((e-4 (vector-ref arg-10 5))) (vector 0 e-0 (AlgebraC-45Semiring-erased (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))) e-2 e-3 e-4)))))) ((3) (let ((e-5 (vector-ref arg-10 1))) (let ((e-6 (vector-ref arg-10 2))) (let ((e-7 (vector-ref arg-10 3))) (vector 3 e-5 e-6 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (TTImpC-45ElabC-45Local-n--7866-6004-u--setErased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 eta-0)) e-7)))))) ((5) (let ((e-8 (vector-ref arg-10 1))) (let ((e-9 (vector-ref arg-10 2))) (let ((e-10 (vector-ref arg-10 3))) (vector 5 e-8 e-9 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (TTImpC-45ElabC-45Local-n--7866-6004-u--setErased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 eta-0)) e-10))))))(else arg-10)))) +(define TTImpC-45ElabC-45Local-n--7866-5999-u--newName (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 (DataC-45List-lookup (cons (lambda (arg-12) (lambda (arg-13) (CoreC-45Name-u--C-61C-61_Eq_Name arg-12 arg-13))) (lambda (arg-12) (lambda (arg-13) (CoreC-45Name-u--C-47C-61_Eq_Name arg-12 arg-13)))) arg-11 arg-10))) (if (null? sc0) arg-11 (let ((e-1 (unbox sc0))) (if (null? e-1) arg-11 (let ((e-4 (car e-1))) (if (null? e-4) arg-11 (let ((e-7 (unbox e-4))) e-7))))))))) +(define TTImpC-45ElabC-45Local-n--7866-5997-u--dropLinear (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-11) (if (null? arg-11) '() (let ((e-4 (car arg-11))) (let ((e-5 (cdr arg-11))) (let ((sc1 (AlgebraC-45Semiring-isLinear (cons (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-10) (lambda (arg-12) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-10 arg-12))) (lambda (arg-10) (lambda (arg-12) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-10 arg-12))))) (CoreC-45TT-multiplicity e-4)))) (cond ((equal? sc1 1) (cons (CoreC-45TT-setMultiplicity e-4 (AlgebraC-45Semiring-erased (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)))) (TTImpC-45ElabC-45Local-n--7866-5997-u--dropLinear arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-5))) (else (cons e-4 (TTImpC-45ElabC-45Local-n--7866-5997-u--dropLinear arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-5)))))))))) +(define TTImpC-45ElabC-45Local-n--7866-5998-u--applyEnv (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 ext-0) (let ((act-24 (let ((act-24 (unbox arg-7))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (let ((act-25 (set-box! arg-7 (let ((e-0 (vector-ref e-5 0))) (let ((e-1 (vector-ref e-5 1))) (let ((e-2 (vector-ref e-5 2))) (let ((e-3 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-12 (vector-ref e-5 5))) (let ((e-6 (vector-ref e-5 6))) (let ((e-7 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (let ((e-10 (vector-ref e-5 10))) (let ((e-11 (vector-ref e-5 11))) (vector e-0 e-1 e-2 e-3 e-4 e-12 e-6 e-7 (bs+ e-8 1 63) e-9 e-10 e-11)))))))))))))))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((u--nestedName_in (vector 6 (cons arg-10 (let ((e-8 (vector-ref e-5 8))) e-8)) arg-11))) (let ((act-26 (CoreC-45Context-inCurrentNS arg-9 u--nestedName_in ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (CoreC-45Context-addName arg-9 e-7 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (vector 1 (cons arg-11 (cons (box e-7) (cons (DataC-45List-reverse (CoreC-45Env-allVars arg-1 arg-4)) (lambda (u--fc) (lambda (u--nt) (CoreC-45UnifyState-applyToFull arg-1 u--fc (vector 1 u--fc u--nt (vector 9 e-8)) arg-4))))))))))))))))))))))))) +(define TTImpC-45ElabC-45Local-localHelper (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 ext-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((u--f (let ((e-2 (vector-ref e-5 1))) e-2))) (let ((act-25 (let ((act-25 (unbox arg-2))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 ((CoreC-45Context-lookupCtxtExact (vector 9 (let ((e-2 (vector-ref e-5 1))) e-2)) (let ((e-0 (vector-ref e-6 0))) e-0)) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((u--vis (PreludeC-45Types-maybe (lambda () 2) (lambda () (lambda (eta-0) (let ((e-9 (vector-ref eta-0 9))) e-9))) e-7))) (let ((u--mult (PreludeC-45Types-maybe (lambda () (AlgebraC-45Semiring-linear (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)))) (lambda () (lambda (eta-0) (let ((e-21 (vector-ref eta-0 7))) e-21))) e-7))) (let ((u--nestdeclsVis (let ((sc3 (CoreC-45TT-u--C-61C-61_Eq_Visibility u--vis 2))) (cond ((equal? sc3 1) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (TTImpC-45ElabC-45Local-n--7866-6003-u--setPublic arg-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 eta-0)) arg-8)) (else arg-8))))) (let ((u--nestdeclsMult (let ((sc3 (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega u--mult (AlgebraC-45Semiring-erased (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)))))) (cond ((equal? sc3 1) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (TTImpC-45ElabC-45Local-n--7866-6004-u--setErased arg-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 eta-0)) u--nestdeclsVis)) (else u--nestdeclsVis))))) (let ((u--defNames (TTImpC-45TTImp-definedInBlock (CoreC-45NameC-45Namespace-emptyNS) u--nestdeclsMult))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (TTImpC-45ElabC-45Local-n--7866-5998-u--applyEnv arg-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 u--f eta-0 eta-1))) (DataC-45List-nub (cons (lambda (arg-10) (lambda (arg-11) (CoreC-45Name-u--C-61C-61_Eq_Name arg-10 arg-11))) (lambda (arg-10) (lambda (arg-11) (CoreC-45Name-u--C-47C-61_Eq_Name arg-10 arg-11)))) u--defNames) '() ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (let ((u--nestC-39 (PreludeC-45TypesC-45List-C-43C-43 e-8 arg-6))) (let ((u--envC-39 (TTImpC-45ElabC-45Local-n--7866-5997-u--dropLinear arg-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-7))) (let ((act-28 (let ((act-28 (unbox arg-4))) (vector 1 act-28)))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-28 1))) (let ((u--olddelayed (let ((e-10 (vector-ref e-9 10))) e-10))) (let ((act-29 (let ((act-29 (set-box! arg-4 (let ((e-0 (vector-ref e-9 0))) (let ((e-1 (vector-ref e-9 1))) (let ((e-2 (vector-ref e-9 2))) (let ((e-3 (vector-ref e-9 3))) (let ((e-4 (vector-ref e-9 4))) (let ((e-16 (vector-ref e-9 5))) (let ((e-15 (vector-ref e-9 6))) (let ((e-14 (vector-ref e-9 7))) (let ((e-13 (vector-ref e-9 8))) (let ((e-12 (vector-ref e-9 9))) (let ((e-11 (vector-ref e-9 11))) (vector e-0 e-1 e-2 e-3 e-4 e-16 e-15 e-14 e-13 e-12 '() e-11))))))))))))))) (vector 1 act-29)))) (case (vector-ref act-29 0) ((0) (let ((e-2 (vector-ref act-29 1))) (vector 0 e-2))) (else (let ((act-30 (let ((act-30 (unbox arg-2))) (vector 1 act-30)))) (case (vector-ref act-30 0) ((0) (let ((e-2 (vector-ref act-30 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref act-30 1))) (let ((u--oldhints (let ((e-30 (vector-ref e-11 10))) e-30))) (let ((u--nestdecls (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (TTImpC-45ElabC-45Local-n--7866-6002-u--updateName arg-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 u--nestC-39 eta-0)) u--nestdeclsMult))) (let ((act-31 (CoreC-45ContextC-45Log-log arg-2 "elab.def.local" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))))))))))))) (lambda () (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (TTImpC-45TTImp-u--show_Show_ImpDecl u--x)) (lambda (u--d) (lambda (u--x) (TTImpC-45TTImp-u--showPrec_Show_ImpDecl u--d u--x)))) u--nestdecls)) ext-0))) (case (vector-ref act-31 0) ((0) (let ((e-2 (vector-ref act-31 1))) (vector 0 e-2))) (else (let ((act-32 (CoreC-45Core-traverse_ (lambda (eta-0) (TTImpC-45ElabC-45Check-processDecl arg-1 arg-2 arg-3 arg-4 '() u--nestC-39 u--envC-39 eta-0)) u--nestdecls ext-0))) (case (vector-ref act-32 0) ((0) (let ((e-2 (vector-ref act-32 1))) (vector 0 e-2))) (else (let ((act-33 (let ((act-33 (unbox arg-4))) (vector 1 act-33)))) (case (vector-ref act-33 0) ((0) (let ((e-2 (vector-ref act-33 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref act-33 1))) (let ((act-34 (let ((act-34 (set-box! arg-4 (let ((e-0 (vector-ref e-14 0))) (let ((e-1 (vector-ref e-14 1))) (let ((e-2 (vector-ref e-14 2))) (let ((e-3 (vector-ref e-14 3))) (let ((e-4 (vector-ref e-14 4))) (let ((e-21 (vector-ref e-14 5))) (let ((e-20 (vector-ref e-14 6))) (let ((e-19 (vector-ref e-14 7))) (let ((e-18 (vector-ref e-14 8))) (let ((e-17 (vector-ref e-14 9))) (let ((e-15 (vector-ref e-14 11))) (vector e-0 e-1 e-2 e-3 e-4 e-21 e-20 e-19 e-18 e-17 u--olddelayed e-15))))))))))))))) (vector 1 act-34)))) (case (vector-ref act-34 0) ((0) (let ((e-2 (vector-ref act-34 1))) (vector 0 e-2))) (else (let ((act-35 (let ((act-35 (unbox arg-2))) (vector 1 act-35)))) (case (vector-ref act-35 0) ((0) (let ((e-2 (vector-ref act-35 1))) (vector 0 e-2))) (else (let ((act-36 ((arg-9 u--nestC-39) ext-0))) (case (vector-ref act-36 0) ((0) (let ((e-2 (vector-ref act-36 1))) (vector 0 e-2))) (else (let ((e-17 (vector-ref act-36 1))) (let ((act-37 (let ((act-37 (unbox arg-2))) (vector 1 act-37)))) (case (vector-ref act-37 0) ((0) (let ((e-2 (vector-ref act-37 1))) (vector 0 e-2))) (else (let ((e-18 (vector-ref act-37 1))) (let ((act-38 (let ((act-38 (set-box! arg-2 (let ((e-0 (vector-ref e-18 0))) (let ((e-1 (vector-ref e-18 1))) (let ((e-2 (vector-ref e-18 2))) (let ((e-3 (vector-ref e-18 3))) (let ((e-4 (vector-ref e-18 4))) (let ((e-42 (vector-ref e-18 5))) (let ((e-41 (vector-ref e-18 6))) (let ((e-40 (vector-ref e-18 7))) (let ((e-39 (vector-ref e-18 8))) (let ((e-38 (vector-ref e-18 9))) (let ((e-36 (vector-ref e-18 11))) (let ((e-35 (vector-ref e-18 12))) (let ((e-34 (vector-ref e-18 13))) (let ((e-33 (vector-ref e-18 14))) (let ((e-32 (vector-ref e-18 15))) (let ((e-31 (vector-ref e-18 16))) (let ((e-30 (vector-ref e-18 17))) (let ((e-29 (vector-ref e-18 18))) (let ((e-19 (vector-ref e-18 19))) (let ((e-20 (vector-ref e-18 20))) (let ((e-21 (vector-ref e-18 21))) (let ((e-22 (vector-ref e-18 22))) (let ((e-23 (vector-ref e-18 23))) (let ((e-24 (vector-ref e-18 24))) (let ((e-25 (vector-ref e-18 25))) (let ((e-26 (vector-ref e-18 26))) (let ((e-27 (vector-ref e-18 27))) (let ((e-28 (vector-ref e-18 28))) (vector e-0 e-1 e-2 e-3 e-4 e-42 e-41 e-40 e-39 e-38 u--oldhints e-36 e-35 e-34 e-33 e-32 e-31 e-30 e-29 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27 e-28)))))))))))))))))))))))))))))))) (vector 1 act-38)))) (case (vector-ref act-38 0) ((0) (let ((e-2 (vector-ref act-38 1))) (vector 0 e-2))) (else (vector 1 e-17)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) +(define TTImpC-45ElabC-45Local-getLocalTerm (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (if (null? arg-5) (lambda (eta-0) (vector 1 (cons arg-4 '()))) (let ((e-2 (car arg-5))) (let ((e-3 (cdr arg-5))) (lambda (eta-0) (TTImpC-45ElabC-45Local-case--getLocalTerm-7027 arg-0 e-2 e-3 arg-4 arg-3 arg-2 arg-1 (CoreC-45Env-defined arg-0 e-2 arg-3) eta-0))))))) +(define TTImpC-45ElabC-45Local-checkLocal (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 ext-0) (TTImpC-45ElabC-45Local-localHelper arg-0 arg-1 arg-2 arg-3 arg-4 arg-7 arg-8 arg-10 (lambda (u--nestC-39) (lambda (eta-0) (TTImpC-45ElabC-45Check-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 u--nestC-39 arg-8 arg-11 arg-12 eta-0))) ext-0))) +(define TTImpC-45ElabC-45Local-checkCaseLocal (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact arg-11 (let ((e-0 (vector-ref e-5 0))) e-0)) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (if (null? e-6) (TTImpC-45ElabC-45Check-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-13 arg-14 ext-0) (let ((e-1 (unbox e-6))) (let ((u--name (let ((e-17 (vector-ref e-1 17))) (case (vector-ref e-17 0) ((1) (vector 1 arg-9 (vector 1 ) arg-11)) ((5) (let ((e-26 (vector-ref e-17 1))) (let ((e-25 (vector-ref e-17 2))) (vector 1 arg-9 (vector 2 e-26 e-25) arg-11)))) ((6) (let ((e-31 (vector-ref e-17 1))) (let ((e-30 (vector-ref e-17 2))) (vector 1 arg-9 (vector 3 e-31 e-30) arg-11))))(else (vector 1 arg-9 (vector 1 ) arg-11)))))) (let ((act-26 ((TTImpC-45ElabC-45Local-getLocalTerm arg-0 arg-1 arg-9 arg-8 u--name arg-12) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((e-2 (car e-7))) (let ((e-3 (cdr e-7))) (let ((act-27 (CoreC-45ContextC-45Log-log arg-1 "elab.local" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Updating case local " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name arg-10) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45TT-u--show_Show_C-40VarC-32C-36nsC-41 u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45TT-u--showPrec_Show_C-40VarC-32C-36nsC-41 u--d u--x)))) e-3))))) ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-4 (vector-ref act-27 1))) (vector 0 e-4))) (else (let ((act-28 (CoreC-45Normalise-logTermNF arg-0 arg-1 "elab.local" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "To") arg-8 e-2 ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-4 (vector-ref act-28 1))) (vector 0 e-4))) (else (let ((u--nestC-39 (cons (cons arg-10 (cons (box arg-11) (cons e-3 (lambda (u--fc) (lambda (u--nt) e-2))))) arg-7))) (TTImpC-45ElabC-45Check-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 u--nestC-39 arg-8 arg-13 arg-14 ext-0))))))))))))))))))))))))))) +(define TTImpC-45ElabC-45Utils-n--7130-14251-u--notLets (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-6 arg-7 arg-8) (if (null? arg-7) arg-6 (let ((e-2 (car arg-7))) (let ((e-3 (cdr arg-7))) (let ((e-7 (car arg-8))) (let ((e-8 (cdr arg-8))) (let ((sc2 (CoreC-45TT-isLet e-7))) (cond ((equal? sc2 1) (TTImpC-45ElabC-45Utils-n--7130-14251-u--notLets arg-0 arg-1 arg-2 arg-3 arg-4 arg-6 e-3 e-8)) (else (TTImpC-45ElabC-45Utils-n--7130-14251-u--notLets arg-0 arg-1 arg-2 arg-3 arg-4 (cons e-2 arg-6) e-3 e-8))))))))))) +(define TTImpC-45ElabC-45Utils-n--6257-13479-u--notErased (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (if (null? arg-8) 1 (if (null? arg-9) 0 (let ((e-2 (car arg-9))) (let ((e-3 (cdr arg-9))) (case (vector-ref e-2 0) ((9) (let ((e-6 (vector-ref e-2 2))) (cond ((equal? e-6 1) (TTImpC-45ElabC-45Utils-n--6257-13479-u--notErased arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (PreludeC-45Types-u--C-43_Num_Nat arg-7 (+ 1 0)) arg-8 e-3))(else (let ((sc3 (PreludeC-45Types-elem (cons (lambda (arg-10) (lambda (arg-11) (PreludeC-45Types-u--C-61C-61_Eq_Nat arg-10 arg-11))) (lambda (arg-10) (lambda (arg-11) (PreludeC-45Types-u--C-47C-61_Eq_Nat arg-10 arg-11)))) arg-7 arg-8))) (cond ((equal? sc3 1) 1) (else (TTImpC-45ElabC-45Utils-n--6257-13479-u--notErased arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (PreludeC-45Types-u--C-43_Num_Nat arg-7 (+ 1 0)) arg-8 e-3))))))))(else (let ((sc2 (PreludeC-45Types-elem (cons (lambda (arg-10) (lambda (arg-11) (PreludeC-45Types-u--C-61C-61_Eq_Nat arg-10 arg-11))) (lambda (arg-10) (lambda (arg-11) (PreludeC-45Types-u--C-47C-61_Eq_Nat arg-10 arg-11)))) arg-7 arg-8))) (cond ((equal? sc2 1) 1) (else (TTImpC-45ElabC-45Utils-n--6257-13479-u--notErased arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (PreludeC-45Types-u--C-43_Num_Nat arg-7 (+ 1 0)) arg-8 e-3)))))))))))) +(define TTImpC-45ElabC-45Utils-n--7577-14767-u--binderInlineSafe (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (case (vector-ref arg-6 0) ((1) (let ((e-3 (vector-ref arg-6 3))) (TTImpC-45ElabC-45Utils-termInlineSafe arg-0 arg-5 e-3)))(else (lambda (eta-0) (vector 1 1)))))) +(define TTImpC-45ElabC-45Utils-n--7885-14915-u--altsSafe (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-6 arg-7 ext-0) (if (null? arg-7) (vector 1 1) (let ((e-2 (car arg-7))) (let ((e-3 (cdr arg-7))) (let ((act-24 (let ((act-24 (unbox arg-6))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((TTImpC-45ElabC-45Utils-caseAltInlineSafe arg-0 arg-6 e-2) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref act-25 1))) (cond ((equal? e-6 1) (let ((act-26 (let ((act-26 (set-box! arg-6 e-5))) (vector 1 act-26)))) (case (vector-ref act-26 0) ((0) (let ((e-4 (vector-ref act-26 1))) (vector 0 e-4))) (else (TTImpC-45ElabC-45Utils-n--7885-14915-u--altsSafe arg-0 arg-1 arg-2 arg-3 arg-4 arg-6 e-3 ext-0))))) (else (vector 1 0)))))))))))))))) +(define TTImpC-45ElabC-45Utils-n--7577-14709-u--allInlineSafe (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (if (null? arg-6) (vector 1 1) (let ((e-2 (car arg-6))) (let ((e-3 (cdr arg-6))) (let ((act-24 ((TTImpC-45ElabC-45Utils-termInlineSafe arg-0 arg-5 e-2) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (cond ((equal? e-5 1) (TTImpC-45ElabC-45Utils-n--7577-14709-u--allInlineSafe arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3 ext-0)) (else (vector 1 0)))))))))))) +(define TTImpC-45ElabC-45Utils-wrapErrorC (lambda (arg-1 arg-2 ext-0) (let ((sc0 (PreludeC-45Types-elem (cons (lambda (arg-3) (lambda (arg-4) (TTImpC-45ElabC-45Check-u--C-61C-61_Eq_ElabOpt arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (TTImpC-45ElabC-45Check-u--C-47C-61_Eq_ElabOpt arg-4 arg-5)))) 1 arg-1))) (cond ((equal? sc0 1) ext-0) (else (CoreC-45Core-wrapError arg-2 ext-0)))))) +(define TTImpC-45ElabC-45Utils-updateErasable (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact arg-1 (let ((e-0 (vector-ref e-5 0))) e-0)) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (if (null? e-6) (vector 1 0) (let ((e-1 (unbox e-6))) (let ((act-26 (TTImpC-45ElabC-45Utils-findErased arg-0 (let ((e-2 (vector-ref e-1 2))) e-2) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((e-2 (car e-7))) (let ((e-3 (cdr e-7))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-4 (vector-ref eta-0 1))) (vector 0 e-4))) (else (vector 1 0)))) (lambda (eta-0) (CoreC-45Context-addDef arg-0 arg-1 (let ((e-0 (vector-ref e-1 0))) (let ((e-26 (vector-ref e-1 1))) (let ((e-25 (vector-ref e-1 2))) (let ((e-23 (vector-ref e-1 5))) (let ((e-22 (vector-ref e-1 6))) (let ((e-21 (vector-ref e-1 7))) (let ((e-8 (vector-ref e-1 8))) (let ((e-9 (vector-ref e-1 9))) (let ((e-10 (vector-ref e-1 10))) (let ((e-11 (vector-ref e-1 11))) (let ((e-12 (vector-ref e-1 12))) (let ((e-13 (vector-ref e-1 13))) (let ((e-14 (vector-ref e-1 14))) (let ((e-15 (vector-ref e-1 15))) (let ((e-16 (vector-ref e-1 16))) (let ((e-17 (vector-ref e-1 17))) (let ((e-18 (vector-ref e-1 18))) (let ((e-19 (vector-ref e-1 19))) (let ((e-20 (vector-ref e-1 20))) (vector e-0 e-26 e-25 e-2 e-3 e-23 e-22 e-21 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20)))))))))))))))))))) eta-0)) ext-0))))))))))))))))))) +(define TTImpC-45ElabC-45Utils-termInlineSafe (lambda (arg-0 arg-1 arg-2) (case (vector-ref arg-2 0) ((0) (let ((e-4 (vector-ref arg-2 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((sc2 (TTImpC-45ElabC-45Utils-isUsed e-4 e-5))) (cond ((equal? sc2 1) (vector 1 0)) (else (let ((act-25 (TTImpC-45ElabC-45Utils-setUsed e-4 arg-1 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-6 (vector-ref act-25 1))) (vector 0 e-6))) (else (vector 1 1)))))))))))))) ((2) (let ((e-7 (vector-ref arg-2 1))) (let ((e-8 (vector-ref arg-2 2))) (let ((e-9 (vector-ref arg-2 3))) (let ((e-10 (vector-ref arg-2 4))) (lambda (eta-0) (TTImpC-45ElabC-45Utils-n--7577-14709-u--allInlineSafe arg-0 e-10 e-9 e-8 e-7 arg-1 e-10 eta-0))))))) ((3) (let ((e-12 (vector-ref arg-2 1))) (let ((e-13 (vector-ref arg-2 2))) (let ((e-14 (vector-ref arg-2 3))) (let ((e-15 (vector-ref arg-2 4))) (lambda (eta-0) (let ((act-24 ((TTImpC-45ElabC-45Utils-n--7577-14767-u--binderInlineSafe arg-0 e-13 e-15 e-14 e-12 arg-1 e-14) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (cond ((equal? e-5 1) (TTImpC-45ElabC-45Utils-inExtended 2 (cons e-13 '()) arg-1 (lambda (u--uC-39) (TTImpC-45ElabC-45Utils-termInlineSafe (cons e-13 arg-0) u--uC-39 e-15)) eta-0)) (else (vector 1 0))))))))))))) ((4) (let ((e-18 (vector-ref arg-2 2))) (let ((e-19 (vector-ref arg-2 3))) (lambda (eta-0) (let ((act-24 ((TTImpC-45ElabC-45Utils-termInlineSafe arg-0 arg-1 e-18) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (cond ((equal? e-5 1) ((TTImpC-45ElabC-45Utils-termInlineSafe arg-0 arg-1 e-19) eta-0)) (else (vector 1 0))))))))))) ((5) (let ((e-24 (vector-ref arg-2 4))) (TTImpC-45ElabC-45Utils-termInlineSafe arg-0 arg-1 e-24))) ((6) (let ((e-28 (vector-ref arg-2 3))) (TTImpC-45ElabC-45Utils-termInlineSafe arg-0 arg-1 e-28))) ((7) (let ((e-33 (vector-ref arg-2 4))) (TTImpC-45ElabC-45Utils-termInlineSafe arg-0 arg-1 e-33))) ((8) (let ((e-37 (vector-ref arg-2 3))) (TTImpC-45ElabC-45Utils-termInlineSafe arg-0 arg-1 e-37)))(else (lambda (eta-0) (vector 1 1)))))) +(define TTImpC-45ElabC-45Utils-setUsedVar (lambda (arg-2 arg-4) (cond ((equal? arg-2 0) (if (null? arg-4) arg-4 (let ((e-3 (car arg-4))) (let ((e-4 (cdr arg-4))) (cond ((equal? e-3 1) (cons 0 e-4))(else arg-4))))))(else (let ((e-0 (- arg-2 1))) (let ((e-7 (car arg-4))) (let ((e-8 (cdr arg-4))) (cons e-7 (TTImpC-45ElabC-45Utils-setUsedVar e-0 e-8))))))))) +(define TTImpC-45ElabC-45Utils-setUsed (lambda (arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-3))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (set-box! arg-3 (TTImpC-45ElabC-45Utils-setUsedVar arg-2 e-5)))) (vector 1 act-25)))))))) +(define TTImpC-45ElabC-45Utils-plicit (lambda (arg-1) (case (vector-ref arg-1 0) ((2) (let ((e-3 (vector-ref arg-1 3))) (CoreC-45TT-forgetDef e-3))) ((3) (let ((e-8 (vector-ref arg-1 3))) (CoreC-45TT-forgetDef e-8)))(else (vector 1 ))))) +(define TTImpC-45ElabC-45Utils-isUsed (lambda (arg-2 arg-4) (cond ((equal? arg-2 0) (let ((e-3 (car arg-4))) (cond ((equal? e-3 0) 1)(else 0))))(else (let ((e-0 (- arg-2 1))) (let ((e-8 (cdr arg-4))) (TTImpC-45ElabC-45Utils-isUsed e-0 e-8))))))) +(define TTImpC-45ElabC-45Utils-initUsedCase (lambda (arg-0) (if (null? arg-0) '() (let ((e-3 (cdr arg-0))) (if (null? e-3) (cons 1 '()) (cons 2 (TTImpC-45ElabC-45Utils-initUsedCase e-3))))))) +(define TTImpC-45ElabC-45Utils-inExtended (lambda (arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Core-newRef (vector "TTImp.Elab.Utils.Used" ) (TTImpC-45ElabC-45Utils-extendUsed arg-2 arg-3 e-5) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 ((arg-5 e-6) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (let ((act-27 (let ((act-27 (unbox e-6))) (vector 1 act-27)))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (let ((act-28 (set-box! arg-4 (TTImpC-45ElabC-45Utils-dropUsed arg-3 e-8)))) (vector 1 act-28)))))))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (vector 1 e-7)))))))))))))))))) +(define TTImpC-45ElabC-45Utils-findErasedFrom (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (case (vector-ref arg-3 0) ((0) (let ((e-1 (vector-ref arg-3 1))) (let ((e-3 (vector-ref arg-3 3))) (let ((e-4 (vector-ref arg-3 4))) (case (vector-ref e-3 0) ((2) (let ((e-7 (vector-ref e-3 2))) (let ((e-9 (vector-ref e-3 4))) (let ((act-24 (((e-4 arg-1) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 e-1 (AlgebraC-45Semiring-isErased (cons (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-4) (lambda (arg-5) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-4 arg-5))))) e-7)))) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (TTImpC-45ElabC-45Utils-findErasedFrom arg-0 arg-1 (PreludeC-45Types-u--C-43_Num_Nat (PreludeC-45Types-u--fromInteger_Num_Nat 1) arg-2) e-5 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (let ((e-12 (car e-10))) (let ((e-11 (cdr e-10))) (let ((act-26 (TTImpC-45ElabC-45Utils-detagSafe arg-0 arg-1 e-9 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-13 (vector-ref act-26 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref act-26 1))) (let ((u--dtC-39 (cond ((equal? e-13 1) (cons arg-2 e-11)) (else e-11)))) (vector 1 (let ((sc6 (AlgebraC-45Semiring-isErased (cons (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-4) (lambda (arg-5) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-4 arg-5))))) e-7))) (cond ((equal? sc6 1) (cons (cons arg-2 e-12) u--dtC-39)) (else (cons e-12 u--dtC-39)))))))))))))))))))))))(else (vector 1 (cons '() '()))))))))(else (vector 1 (cons '() '())))))) +(define TTImpC-45ElabC-45Utils-findErased (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Normalise-nf arg-0 '() e-5 '() arg-1) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (TTImpC-45ElabC-45Utils-findErasedFrom arg-0 e-5 0 e-6 ext-0))))))))))) +(define TTImpC-45ElabC-45Utils-extendUsed (lambda (arg-1 arg-2 arg-3) (if (null? arg-2) arg-3 (let ((e-3 (cdr arg-2))) (cons arg-1 (TTImpC-45ElabC-45Utils-extendUsed arg-1 e-3 arg-3)))))) +(define TTImpC-45ElabC-45Utils-dropUsed (lambda (arg-1 arg-2) (if (null? arg-1) arg-2 (let ((e-3 (cdr arg-1))) (let ((e-7 (cdr arg-2))) (TTImpC-45ElabC-45Utils-dropUsed e-3 e-7)))))) +(define TTImpC-45ElabC-45Utils-detagSafe (lambda (arg-0 arg-1 arg-2 ext-0) (case (vector-ref arg-2 0) ((3) (let ((e-1 (vector-ref arg-2 1))) (let ((e-2 (vector-ref arg-2 2))) (let ((e-3 (vector-ref arg-2 3))) (let ((e-4 (vector-ref arg-2 4))) (let ((e-5 (vector-ref arg-2 5))) (let ((act-24 (CoreC-45Context-lookupDefExact e-2 (let ((e-0 (vector-ref arg-1 0))) e-0) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (if (null? e-6) (vector 1 0) (let ((e-7 (unbox e-6))) (case (vector-ref e-7 0) ((6) (let ((e-9 (vector-ref e-7 8))) (if (null? e-9) (vector 1 0) (let ((e-16 (unbox e-9))) (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() arg-1 (Builtin-snd eta-0))) e-5 '() ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-17 (vector-ref act-25 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref act-25 1))) (vector 1 (TTImpC-45ElabC-45Utils-n--6257-13479-u--notErased e-1 e-3 e-4 e-5 e-2 arg-1 arg-0 0 e-16 e-17))))))))))(else (vector 1 0)))))))))))))))(else (vector 1 0))))) +(define TTImpC-45ElabC-45Utils-caseInlineSafe (lambda (arg-0 arg-1 arg-2) (case (vector-ref arg-2 0) ((0) (let ((e-1 (vector-ref arg-2 1))) (let ((e-2 (vector-ref arg-2 2))) (let ((e-4 (vector-ref arg-2 3))) (let ((e-5 (vector-ref arg-2 4))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref act-24 1))) (let ((sc2 (TTImpC-45ElabC-45Utils-isUsed e-2 e-6))) (cond ((equal? sc2 1) (vector 1 0)) (else (let ((act-25 (TTImpC-45ElabC-45Utils-setUsed e-2 arg-1 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-3 (vector-ref act-25 1))) (vector 0 e-3))) (else (TTImpC-45ElabC-45Utils-n--7885-14915-u--altsSafe arg-0 e-1 e-5 e-4 e-2 arg-1 e-5 eta-0))))))))))))))))) ((1) (let ((e-8 (vector-ref arg-2 2))) (TTImpC-45ElabC-45Utils-termInlineSafe arg-0 arg-1 e-8))) ((2) (lambda (eta-0) (vector 1 1))) (else (lambda (eta-0) (vector 1 1)))))) +(define TTImpC-45ElabC-45Utils-caseAltInlineSafe (lambda (arg-0 arg-1 arg-2) (case (vector-ref arg-2 0) ((0) (let ((e-3 (vector-ref arg-2 3))) (let ((e-4 (vector-ref arg-2 4))) (lambda (eta-0) (TTImpC-45ElabC-45Utils-inExtended 1 e-3 arg-1 (lambda (u--uC-39) (TTImpC-45ElabC-45Utils-caseInlineSafe (PreludeC-45TypesC-45List-C-43C-43 e-3 arg-0) u--uC-39 e-4)) eta-0))))) ((1) (let ((e-6 (vector-ref arg-2 1))) (let ((e-7 (vector-ref arg-2 2))) (let ((e-8 (vector-ref arg-2 3))) (lambda (eta-0) (TTImpC-45ElabC-45Utils-inExtended 1 (cons e-6 (cons e-7 '())) arg-1 (lambda (u--uC-39) (TTImpC-45ElabC-45Utils-caseInlineSafe (cons e-6 (cons e-7 arg-0)) u--uC-39 e-8)) eta-0)))))) ((2) (let ((e-11 (vector-ref arg-2 2))) (TTImpC-45ElabC-45Utils-caseInlineSafe arg-0 arg-1 e-11))) (else (let ((e-13 (vector-ref arg-2 1))) (TTImpC-45ElabC-45Utils-caseInlineSafe arg-0 arg-1 e-13)))))) +(define TTImpC-45ElabC-45Utils-canInlineCaseBlock (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-lookupDefExact arg-1 (let ((e-0 (vector-ref e-5 0))) e-0) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (if (null? e-6) (vector 1 0) (let ((e-1 (unbox e-6))) (case (vector-ref e-1 0) ((1) (let ((e-3 (vector-ref e-1 2))) (let ((e-8 (vector-ref e-1 4))) (let ((act-26 (CoreC-45Core-newRef (vector "TTImp.Elab.Utils.Used" ) (TTImpC-45ElabC-45Utils-initUsedCase e-3) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-9 (vector-ref act-26 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref act-26 1))) ((TTImpC-45ElabC-45Utils-caseInlineSafe e-3 e-9 e-8) ext-0))))))))(else (vector 1 0))))))))))))))) +(define TTImpC-45ElabC-45Utils-bindReq (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (case (vector-ref arg-4 0) ((0) (PreludeC-45Types-u--pure_Applicative_Maybe (cons arg-5 (cons (TTImpC-45ElabC-45Utils-n--7130-14251-u--notLets arg-1 arg-6 arg-5 arg-3 arg-2 '() arg-1 arg-3) (CoreC-45Env-abstractEnvType arg-1 arg-2 arg-3 arg-6)))))(else (let ((e-1 (car arg-1))) (let ((e-2 (cdr arg-1))) (let ((e-6 (car arg-3))) (let ((e-7 (cdr arg-3))) (case (vector-ref arg-4 0) ((2) (let ((e-11 (vector-ref arg-4 1))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45TT-shrinkBinder e-6 e-11) (lambda (u--bC-39) (TTImpC-45ElabC-45Utils-bindReq e-2 arg-2 e-7 e-11 (cons (cons (TTImpC-45ElabC-45Utils-plicit e-6) e-1) arg-5) (vector 3 arg-2 e-1 (vector 2 (CoreC-45TT-binderLoc e-6) (CoreC-45TT-multiplicity e-6) (vector 1 ) (CoreC-45TT-binderType u--bC-39)) arg-6)))))) (else (let ((e-15 (vector-ref arg-4 1))) (TTImpC-45ElabC-45Utils-bindReq e-2 arg-2 e-7 e-15 arg-5 arg-6)))))))))))) +(define TTImpC-45ElabC-45Utils-bindNotReq (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (if (null? arg-1) (cons arg-6 (CoreC-45TT-embed arg-7)) (let ((e-2 (car arg-1))) (let ((e-3 (cdr arg-1))) (let ((e-9 (car arg-4))) (let ((e-10 (cdr arg-4))) (case (vector-ref arg-5 0) ((0) (let ((u--tmptm (CoreC-45TTC-45SubstEnv-subst (vector 1 arg-2 (vector 0 ) (vector 2 "arg" arg-3)) arg-7))) (let ((sc3 (TTImpC-45ElabC-45Utils-bindNotReq e-3 arg-2 (bs+ (blodwen-toSignedInt 1 63) arg-3 63) e-10 (vector 0 ) arg-6 u--tmptm))) (let ((e-5 (car sc3))) (let ((e-4 (cdr sc3))) (cons e-5 (CoreC-45TT-refToLocal (vector 2 "arg" arg-3) e-2 e-4))))))) ((2) (let ((e-15 (vector-ref arg-5 1))) (let ((u--tmptm (CoreC-45TTC-45SubstEnv-subst (vector 1 arg-2 (vector 0 ) (vector 2 "arg" arg-3)) arg-7))) (let ((sc3 (TTImpC-45ElabC-45Utils-bindNotReq e-3 arg-2 (bs+ (blodwen-toSignedInt 1 63) arg-3 63) e-10 e-15 arg-6 u--tmptm))) (let ((e-5 (car sc3))) (let ((e-4 (cdr sc3))) (cons e-5 (CoreC-45TT-refToLocal (vector 2 "arg" arg-3) e-2 e-4)))))))) (else (let ((e-19 (vector-ref arg-5 1))) (TTImpC-45ElabC-45Utils-bindNotReq e-3 arg-2 arg-3 e-10 e-19 (cons (cons (TTImpC-45ElabC-45Utils-plicit e-9) e-2) arg-6) (vector 3 arg-2 e-2 (vector 2 (CoreC-45TT-binderLoc e-9) (CoreC-45TT-multiplicity e-9) (vector 1 ) (CoreC-45TT-binderType e-9)) arg-7)))))))))))) +(define TTImpC-45ElabC-45Lazy-n--7682-13560-u--delayError (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (case (vector-ref arg-12 0) ((47) 1)(else 0)))) +(define TTImpC-45ElabC-45Lazy-checkForce (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((PreludeC-45Types-maybe (lambda () (lambda (eta-0) (vector 1 '()))) (lambda () (lambda (u--gty) (lambda (eta-0) (let ((act-25 ((CoreC-45Normalise-getNF arg-1 u--gty) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (box (CoreC-45Normalise-glueBack arg-1 arg-0 e-5 arg-8 (vector 5 arg-9 2 e-6))))))))))) arg-11) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45ElabC-45Check-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 e-6 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((e-2 (car e-7))) (let ((e-3 (cdr e-7))) (let ((act-27 ((CoreC-45Normalise-getNF arg-1 e-3) ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-4 (vector-ref act-27 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref act-27 1))) (case (vector-ref e-8 0) ((5) (let ((e-9 (vector-ref e-8 2))) (let ((e-4 (vector-ref e-8 3))) (vector 1 (cons (vector 8 arg-9 e-9 e-2) (CoreC-45Normalise-glueBack arg-1 arg-0 e-5 arg-8 e-4))))))(else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-9 "Forcing a non-delayed type") ext-0))))))))))))))))))))))) +(define TTImpC-45ElabC-45Lazy-checkDelayed (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 ext-0) (let ((act-24 (TTImpC-45ElabC-45Check-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-11 (box (CoreC-45Normalise-gType arg-9)) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((e-2 (car e-5))) (let ((e-3 (cdr e-5))) (vector 1 (cons (vector 6 arg-9 arg-10 e-2) e-3)))))))))) +(define TTImpC-45ElabC-45Lazy-checkDelay (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 ext-0) (let ((act-24 ((PreludeC-45Types-maybe (lambda () (lambda (eta-0) (let ((act-24 (CoreC-45UnifyState-genName arg-1 arg-3 "delayTy" eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (TTImpC-45ElabC-45Check-metaVar arg-0 arg-1 arg-3 arg-9 (AlgebraC-45Semiring-erased (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))) arg-8 e-5 (vector 11 arg-9) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (CoreC-45Normalise-gnf arg-0 arg-8 e-6)))))))))))) (lambda () (lambda (eta-0) (lambda (eta-1) (vector 1 eta-0)))) arg-11) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((u--solvemode (let ((e-0 (vector-ref arg-6 0))) (case (vector-ref e-0 0) ((1) (CoreC-45Unify-inLHS))(else (CoreC-45Unify-inTerm)))))) (let ((act-25 (CoreC-45Unify-solveConstraints arg-1 arg-3 u--solvemode 0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (TTImpC-45ElabC-45Delayed-delayOnFailure arg-0 arg-1 arg-2 arg-3 arg-4 arg-9 arg-5 arg-8 e-5 (lambda (eta-0) (TTImpC-45ElabC-45Lazy-n--7682-13560-u--delayError arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 eta-0)) (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (u--delayed) (lambda (eta-0) (let ((act-26 ((CoreC-45Normalise-getNF arg-1 e-5) eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (case (vector-ref e-7 0) ((5) (let ((e-2 (vector-ref e-7 2))) (let ((e-3 (vector-ref e-7 3))) (let ((act-27 (let ((act-27 (unbox arg-1))) (vector 1 act-27)))) (case (vector-ref act-27 0) ((0) (let ((e-4 (vector-ref act-27 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref act-27 1))) (let ((act-28 (TTImpC-45ElabC-45Check-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 (box (CoreC-45Normalise-glueBack arg-1 arg-0 e-8 arg-8 e-3)) eta-0))) (case (vector-ref act-28 0) ((0) (let ((e-4 (vector-ref act-28 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref act-28 1))) (let ((e-10 (car e-9))) (let ((e-4 (cdr e-9))) (let ((act-29 ((CoreC-45Normalise-getNF arg-1 e-4) eta-0))) (case (vector-ref act-29 0) ((0) (let ((e-11 (vector-ref act-29 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-29 1))) (let ((act-30 ((CoreC-45Normalise-getTerm e-4) eta-0))) (case (vector-ref act-30 0) ((0) (let ((e-12 (vector-ref act-30 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref act-30 1))) (vector 1 (cons (vector 7 arg-9 e-2 e-12 e-10) (CoreC-45Normalise-glueBack arg-1 arg-0 e-8 arg-8 (vector 5 arg-9 e-2 e-11)))))))))))))))))))))))))(else (let ((act-27 (CoreC-45Normalise-logNF arg-0 arg-1 "elab.delay" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Expected delay type") arg-8 e-7 eta-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-9 "Can't infer delay type") eta-0)))))))))))) ext-0))))))))))) +(define TTImpC-45ElabC-45ImplicitBind-case--caseC-32blockC-32inC-32checkBindVar-9424 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 ext-0) (if (null? arg-16) (let ((act-24 (TTImpC-45ElabC-45ImplicitBind-mkPatternHole arg-0 arg-8 arg-11 arg-9 arg-3 arg-7 arg-14 arg-4 (let ((e-1 (vector-ref arg-6 1))) e-1) arg-1 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((e-2 (car e-5))) (let ((e-3 (cdr e-5))) (let ((e-6 (car e-3))) (let ((e-7 (cdr e-3))) (let ((act-25 (let ((e-1 (vector-ref arg-6 1))) (case (vector-ref e-1 0) ((0) (CoreC-45Unify-setInvertible arg-11 arg-3 arg-14 ext-0))(else (vector 1 0)))))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((act-26 (CoreC-45ContextC-45Log-log arg-11 "elab.implicits" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Added Bound implicit " (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (u--x) (CoreC-45Name-u--show_Show_Name u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Name-u--showPrec_Show_Name u--d u--x)))) (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (AlgebraC-45ZeroOneOmega-u--show_Show_ZeroOneOmega x-0)) (lambda (u--d) (lambda (x-0) (AlgebraC-45ZeroOneOmega-u--showPrec_Show_ZeroOneOmega u--d x-0)))) (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (u--d) (lambda (x-1) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-0 u--d x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (u--d) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-0 u--d x-2)))) (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (u--d) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-0 u--d x-2))))) x-1)) (lambda (u--d) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-0 d-0 x-2)))) (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-0 d-0 x-2))))) u--d x-1))))) x-0)) (lambda (u--d) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d-0) (lambda (x-1) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-0 d-0 x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-0 d-0 x-2)))) (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-0 d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-0 d-1 x-2)))) (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-0 d-1 x-2))))) d-0 x-1))))) u--d x-0))))) u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (AlgebraC-45ZeroOneOmega-u--show_Show_ZeroOneOmega x-0)) (lambda (d-0) (lambda (x-0) (AlgebraC-45ZeroOneOmega-u--showPrec_Show_ZeroOneOmega d-0 x-0)))) (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d-0) (lambda (x-1) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-0 d-0 x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-0 d-0 x-2)))) (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-0 d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-0 d-1 x-2)))) (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-0 d-1 x-2))))) d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d-1) (lambda (x-1) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-0 d-1 x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-0 d-1 x-2)))) (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-0 d-1 x-2))))) x-1)) (lambda (d-1) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-2) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-0 d-2 x-2)))) (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-2) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-0 d-2 x-2))))) d-1 x-1))))) d-0 x-0))))) u--d u--x))))) (cons arg-14 (cons arg-7 (cons e-2 (cons e-6 e-7))))))) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-4 (vector-ref act-26 1))) (vector 0 e-4))) (else (let ((act-27 (let ((act-27 (unbox arg-8))) (vector 1 act-27)))) (case (vector-ref act-27 0) ((0) (let ((e-4 (vector-ref act-27 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 (let ((act-28 (set-box! arg-8 (let ((e-1 (vector-ref e-10 0))) (let ((e-22 (vector-ref e-10 1))) (let ((e-21 (vector-ref e-10 2))) (let ((e-4 (vector-ref e-10 3))) (let ((e-20 (vector-ref e-10 4))) (let ((e-19 (vector-ref e-10 5))) (let ((e-18 (vector-ref e-10 6))) (let ((e-17 (vector-ref e-10 7))) (let ((e-16 (vector-ref e-10 8))) (let ((e-15 (vector-ref e-10 9))) (let ((e-11 (vector-ref e-10 10))) (let ((e-12 (vector-ref e-10 11))) (let ((e-13 (vector-ref e-10 12))) (let ((e-14 (vector-ref e-10 13))) (vector e-1 e-22 e-21 e-4 (cons (cons arg-14 (vector 0 arg-0 arg-7 (vector 1 ) e-2 e-6)) e-20) (cons (cons arg-14 (vector 0 arg-0 arg-7 (vector 1 ) e-2 e-7)) e-19) e-18 e-17 e-16 e-15 e-11 e-12 e-13 e-14)))))))))))))))))) (vector 1 act-28)))) (case (vector-ref act-28 0) ((0) (let ((e-4 (vector-ref act-28 1))) (vector 0 e-4))) (else (let ((act-29 (CoreC-45ContextC-45Log-log arg-11 "metadata.names" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))))) (lambda () "checkBindVar is adding \u2193") ext-0))) (case (vector-ref act-29 0) ((0) (let ((e-4 (vector-ref act-29 1))) (vector 0 e-4))) (else (let ((act-30 (CoreC-45Metadata-addNameType arg-0 arg-11 arg-10 arg-3 (vector 1 arg-2) arg-4 e-6 ext-0))) (case (vector-ref act-30 0) ((0) (let ((e-4 (vector-ref act-30 1))) (vector 0 e-4))) (else (let ((act-31 (CoreC-45Metadata-addNameLoc arg-10 arg-11 arg-3 (vector 1 arg-2) ext-0))) (case (vector-ref act-31 0) ((0) (let ((e-4 (vector-ref act-31 1))) (vector 0 e-4))) (else (TTImpC-45ElabC-45Check-checkExp arg-0 arg-11 arg-9 arg-8 arg-7 arg-6 arg-4 arg-3 e-2 (CoreC-45Normalise-gnf arg-0 arg-4 e-6) arg-1 ext-0))))))))))))))))))))))))))))))) (let ((e-2 (unbox arg-16))) (let ((act-24 (TTImpC-45ElabC-45ImplicitBind-n--11220-9025-u--combine arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 (vector 1 arg-2) arg-7 (TTImpC-45ElabC-45Check-bindingRig e-2) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (let ((u--tm (TTImpC-45ElabC-45Check-bindingTerm e-2))) (let ((u--ty (TTImpC-45ElabC-45Check-bindingType e-2))) (let ((act-25 (CoreC-45ContextC-45Log-log arg-11 "metadata.names" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))))) (lambda () "checkBindVar is adding \u2193") ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-3 (vector-ref act-25 1))) (vector 0 e-3))) (else (let ((act-26 (CoreC-45Metadata-addNameType arg-0 arg-11 arg-10 arg-3 (vector 1 arg-2) arg-4 u--ty ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-3 (vector-ref act-26 1))) (vector 0 e-3))) (else (let ((act-27 (CoreC-45Metadata-addNameLoc arg-10 arg-11 arg-3 (vector 1 arg-2) ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-3 (vector-ref act-27 1))) (vector 0 e-3))) (else (TTImpC-45ElabC-45Check-checkExp arg-0 arg-11 arg-9 arg-8 arg-7 arg-6 arg-4 arg-3 u--tm (CoreC-45Normalise-gnf arg-0 arg-4 u--ty) arg-1 ext-0))))))))))))))))))) +(define TTImpC-45ElabC-45ImplicitBind-case--getToBindC-44normImps-8469 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (if (null? arg-15) (TTImpC-45ElabC-45ImplicitBind-n--10376-8279-u--normImps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-13 arg-12 arg-11) (let ((e-2 (car arg-15))) (case (vector-ref e-2 0) ((2) (let ((e-6 (vector-ref e-2 2))) (let ((e-7 (vector-ref e-2 3))) (lambda (eta-0) (let ((act-24 (CoreC-45UnifyState-isCurrentHole arg-6 e-7 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref act-24 1))) (let ((sc3 (cond ((equal? e-9 1) (let ((sc5 (PreludeC-45Types-elem (cons (lambda (arg-16) (lambda (arg-17) (CoreC-45Name-u--C-61C-61_Eq_Name arg-16 arg-17))) (lambda (arg-16) (lambda (arg-17) (CoreC-45Name-u--C-47C-61_Eq_Name arg-16 arg-17)))) e-6 arg-12))) (cond ((equal? sc5 1) 0) (else 1)))) (else 0)))) (cond ((equal? sc3 1) (let ((act-25 ((TTImpC-45ElabC-45ImplicitBind-n--10376-8279-u--normImps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-13 (cons e-6 arg-12) arg-11) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45ElabC-45ImplicitBind-n--10376-8278-u--normBindingTy arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-13 arg-10 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-4 (vector-ref act-26 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref act-26 1))) (vector 1 (cons (cons e-6 e-11) e-10))))))))))) (else ((TTImpC-45ElabC-45ImplicitBind-n--10376-8279-u--normImps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-13 arg-12 arg-11) eta-0))))))))))))(else (TTImpC-45ElabC-45ImplicitBind-n--10376-8279-u--normImps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-13 arg-12 arg-11))))))) +(define TTImpC-45ElabC-45ImplicitBind-case--bindUnsolvedC-44makeBoundVar-6512 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 ext-0) (if (null? arg-16) (let ((act-24 (CoreC-45Context-toFullNames arg-6 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-0))))) arg-9 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-2 (PreludeC-45TypesC-45String-C-43C-43 "Can't bind implicit " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name arg-15) (PreludeC-45TypesC-45String-C-43C-43 " of type " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-8 e-5))))) ext-0))))) (let ((e-2 (unbox arg-16))) (let ((act-24 (CoreC-45UnifyState-genVarName arg-6 arg-3 (CoreC-45Name-nameRoot arg-15) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (TTImpC-45ElabC-45Check-metaVar arg-7 arg-6 arg-3 arg-2 arg-14 arg-12 e-5 e-2 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-3 (vector-ref act-25 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (let ((act-26 (unbox arg-5))) (vector 1 act-26)))) (case (vector-ref act-26 0) ((0) (let ((e-3 (vector-ref act-26 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref act-26 1))) (let ((u--pC-39 (CoreC-45TT-forgetDef arg-13))) (let ((act-27 (let ((act-27 (set-box! arg-5 (let ((e-1 (vector-ref e-7 0))) (let ((e-18 (vector-ref e-7 1))) (let ((e-3 (vector-ref e-7 2))) (let ((e-4 (vector-ref e-7 3))) (let ((e-17 (vector-ref e-7 4))) (let ((e-16 (vector-ref e-7 5))) (let ((e-15 (vector-ref e-7 6))) (let ((e-8 (vector-ref e-7 7))) (let ((e-9 (vector-ref e-7 8))) (let ((e-10 (vector-ref e-7 9))) (let ((e-11 (vector-ref e-7 10))) (let ((e-12 (vector-ref e-7 11))) (let ((e-13 (vector-ref e-7 12))) (let ((e-14 (vector-ref e-7 13))) (vector e-1 e-18 e-3 e-4 e-17 (cons (cons e-5 (vector 0 arg-4 arg-14 u--pC-39 (CoreC-45TT-embedSub arg-10 e-6) (CoreC-45TT-embedSub arg-10 e-2))) e-16) e-15 e-8 e-9 e-10 e-11 e-12 e-13 e-14)))))))))))))))))) (vector 1 act-27)))) (case (vector-ref act-27 0) ((0) (let ((e-3 (vector-ref act-27 1))) (vector 0 e-3))) (else (vector 1 (CoreC-45TT-embedSub arg-11 e-6)))))))))))))))))))))) +(define TTImpC-45ElabC-45ImplicitBind-case--mkPatternHole-6366 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (if (null? arg-14) (lambda (eta-0) (TTImpC-45ElabC-45ImplicitBind-mkPatternHole arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 '() eta-0)) (let ((e-2 (unbox arg-14))) (lambda (eta-0) (let ((act-24 (TTImpC-45ElabC-45Check-implBindVar (let ((e-1 (vector-ref arg-10 0))) e-1) arg-8 arg-7 arg-6 arg-5 arg-12 arg-4 e-2 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (cons (CoreC-45TT-apply arg-6 (CoreC-45TT-embedSub arg-11 e-5) (TTImpC-45ElabC-45ImplicitBind-n--7992-6256-u--mkArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-0 arg-11)) (cons arg-13 (CoreC-45TT-embedSub arg-11 e-2))))))))))))) +(define TTImpC-45ElabC-45ImplicitBind-case--mkOuterHole-6018 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (if (null? arg-12) (lambda (eta-0) (TTImpC-45ElabC-45ImplicitBind-mkOuterHole arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 '() eta-0)) (let ((e-2 (unbox arg-12))) (let ((u--env (let ((e-3 (vector-ref arg-9 2))) e-3))) (lambda (eta-0) (let ((act-24 (TTImpC-45ElabC-45Check-implBindVar (let ((e-1 (vector-ref arg-9 0))) e-1) arg-7 arg-6 arg-5 arg-4 u--env arg-3 e-2 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (cons (CoreC-45TT-embedSub arg-10 e-5) (CoreC-45TT-embedSub arg-10 e-2))))))))))))) +(define TTImpC-45ElabC-45ImplicitBind-n--9716-7721-u--tidyName (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (case (vector-ref arg-8 0) ((0) (let ((e-1 (vector-ref arg-8 2))) (TTImpC-45ElabC-45ImplicitBind-n--9716-7721-u--tidyName arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-1))) ((3) (let ((e-2 (vector-ref arg-8 1))) (TTImpC-45ElabC-45ImplicitBind-n--9716-7721-u--tidyName arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-2))) ((6) (let ((e-5 (vector-ref arg-8 2))) (TTImpC-45ElabC-45ImplicitBind-n--9716-7721-u--tidyName arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-5)))(else arg-8)))) +(define TTImpC-45ElabC-45ImplicitBind-n--8983-7105-u--swapP (lambda (arg-4 arg-6 arg-8) (cond ((equal? arg-8 0) 0)(else (let ((e-0 (- arg-8 1))) (+ 1 (+ 1 e-0))))))) +(define TTImpC-45ElabC-45ImplicitBind-n--10376-8279-u--normImps (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (if (null? arg-11) (lambda (eta-0) (vector 1 '())) (let ((e-2 (car arg-11))) (let ((e-3 (cdr arg-11))) (lambda (clam-0) (let ((e-6 (car e-2))) (let ((e-7 (cdr e-2))) (case (vector-ref e-6 0) ((3) (let ((e-8 (vector-ref e-6 1))) (let ((e-9 (vector-ref e-6 2))) (let ((act-24 (CoreC-45Normalise-logTermNF arg-1 arg-8 "elab.implicits" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Implicit pattern var " (CoreC-45Name-u--show_Show_Name (vector 3 e-8 e-9)))) arg-2 (TTImpC-45ElabC-45Check-bindingType e-7) clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((sc4 (PreludeC-45Types-elem (cons (lambda (arg-12) (lambda (arg-13) (CoreC-45Name-u--C-61C-61_Eq_Name arg-12 arg-13))) (lambda (arg-12) (lambda (arg-13) (CoreC-45Name-u--C-47C-61_Eq_Name arg-12 arg-13)))) (vector 3 e-8 e-9) arg-10))) (cond ((equal? sc4 1) ((TTImpC-45ElabC-45ImplicitBind-n--10376-8279-u--normImps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-3) clam-0)) (else (let ((act-25 ((TTImpC-45ElabC-45ImplicitBind-n--10376-8279-u--normImps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (cons (vector 3 e-8 e-9) arg-10) e-3) clam-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45ElabC-45ImplicitBind-n--10376-8278-u--normBindingTy arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-7 clam-0))) (case (vector-ref act-26 0) ((0) (let ((e-4 (vector-ref act-26 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref act-26 1))) (vector 1 (cons (cons (vector 3 e-8 e-9) e-11) e-10)))))))))))))))))))(else (let ((act-24 (CoreC-45Normalise-normaliseHoles arg-8 arg-1 arg-9 arg-2 (TTImpC-45ElabC-45Check-bindingTerm e-7) clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45ContextC-45Log-logTerm arg-1 arg-8 "elab.implicits" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Normalising implicit " (CoreC-45Name-u--show_Show_Name e-6))) e-5 clam-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else ((TTImpC-45ElabC-45ImplicitBind-case--getToBindC-44normImps-8469 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-6 e-7 e-3 arg-10 arg-9 e-5 (CoreC-45TT-getFnArgs e-5)) clam-0)))))))))))))))))) +(define TTImpC-45ElabC-45ImplicitBind-n--10376-8278-u--normBindingTy (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 ext-0) (case (vector-ref arg-10 0) ((0) (let ((e-1 (vector-ref arg-10 2))) (let ((e-2 (vector-ref arg-10 3))) (let ((e-3 (vector-ref arg-10 4))) (let ((e-4 (vector-ref arg-10 5))) (let ((act-24 (CoreC-45Normalise-normaliseHoles arg-8 arg-1 arg-9 arg-2 e-4 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 0 arg-1 e-1 e-2 e-3 e-5))))))))))) (else (let ((e-6 (vector-ref arg-10 2))) (let ((e-7 (vector-ref arg-10 3))) (let ((e-8 (vector-ref arg-10 4))) (let ((e-9 (vector-ref arg-10 5))) (let ((e-10 (vector-ref arg-10 6))) (let ((act-24 (CoreC-45Normalise-normaliseHoles arg-8 arg-1 arg-9 arg-2 e-9 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-normaliseHoles arg-8 arg-1 arg-9 arg-2 e-10 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref act-25 1))) (vector 1 (vector 1 arg-1 e-6 e-7 e-8 e-11 e-12))))))))))))))))))) +(define TTImpC-45ElabC-45ImplicitBind-n--10231-8148-u--nHoles (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 ext-0) (let ((e-2 (car arg-9))) (let ((e-3 (cdr arg-9))) (case (vector-ref e-3 0) ((0) (let ((e-5 (vector-ref e-3 2))) (let ((e-6 (vector-ref e-3 3))) (let ((e-7 (vector-ref e-3 4))) (let ((e-8 (vector-ref e-3 5))) (let ((act-24 (TTImpC-45ElabC-45ImplicitBind-normaliseHolesScope arg-8 arg-0 arg-5 arg-4 e-8 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-9 (vector-ref act-24 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref act-24 1))) (vector 1 (cons e-2 (vector 0 arg-0 e-5 e-6 e-7 e-9)))))))))))) (else (let ((e-10 (vector-ref e-3 2))) (let ((e-11 (vector-ref e-3 3))) (let ((e-12 (vector-ref e-3 4))) (let ((e-13 (vector-ref e-3 5))) (let ((e-14 (vector-ref e-3 6))) (let ((act-24 (TTImpC-45ElabC-45ImplicitBind-normaliseHolesScope arg-8 arg-0 arg-5 arg-4 e-13 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (cons e-2 (vector 1 arg-0 e-10 e-11 e-12 e-5 e-14)))))))))))))))))) +(define TTImpC-45ElabC-45ImplicitBind-n--8316-6492-u--mkImplicit (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((e-2 (car arg-11))) (let ((e-3 (cdr arg-11))) (let ((e-6 (car e-3))) (let ((e-7 (cdr e-3))) (let ((e-10 (car e-7))) (let ((e-11 (cdr e-7))) (let ((e-14 (car e-11))) (let ((e-15 (cdr e-11))) (let ((e-18 (car e-15))) (let ((e-19 (cdr e-15))) (lambda (clam-0) (let ((e-22 (car e-19))) (let ((e-23 (cdr e-19))) (let ((e-26 (car e-23))) (let ((e-27 (cdr e-23))) (let ((act-24 (CoreC-45Context-lookupDefExact e-2 (let ((e-0 (vector-ref arg-8 0))) e-0) clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (if (null? e-5) (vector 1 0) (let ((e-1 (unbox e-5))) (case (vector-ref e-1 0) ((7) (let ((act-25 (let ((act-25 (CoreC-45Normalise-normaliseHoles arg-6 e-10 arg-8 e-14 e-26 clam-0))) (case (vector-ref act-25 0) ((0) (let ((e-9 (vector-ref act-25 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref act-25 1))) (TTImpC-45ElabC-45ImplicitBind-n--8316-6491-u--makeBoundVar arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-10 e-2 e-6 e-18 arg-9 e-27 arg-10 e-9 clam-0))))))) (case (vector-ref act-25 0) ((0) (let ((e-9 (vector-ref act-25 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref act-25 1))) (let ((act-26 (CoreC-45ContextC-45Log-logTerm e-10 arg-6 "elab.implicits" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Added unbound implicit") e-9 clam-0))) (case (vector-ref act-26 0) ((0) (let ((e-12 (vector-ref act-26 1))) (vector 0 e-12))) (else (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-13 (vector-ref eta-0 1))) (vector 0 e-13))) (else (vector 1 0)))) (((CoreC-45Unify-unify (cons (lambda (u--vars) (lambda (arg-6180) (lambda (arg-6183) (lambda (arg-6186) (lambda (arg-6187) (lambda (arg-6188) (lambda (arg-6190) (lambda (arg-6193) (lambda (eta-0) (CoreC-45Unify-u--unifyD_Unify_Term u--vars arg-6180 arg-6183 arg-6186 arg-6187 arg-6188 arg-6190 arg-6193 eta-0)))))))))) (lambda (u--vars) (lambda (arg-6195) (lambda (arg-6198) (lambda (arg-6201) (lambda (arg-6202) (lambda (arg-6203) (lambda (arg-6205) (lambda (arg-6206) (lambda (eta-0) (CoreC-45Unify-u--unifyWithLazyD_Unify_Term u--vars arg-6195 arg-6198 arg-6201 arg-6202 arg-6203 arg-6205 arg-6206 eta-0))))))))))) e-10 arg-6 arg-3 (case (vector-ref arg-1 0) ((1) (CoreC-45Unify-inLHS))(else (CoreC-45Unify-inTerm))) arg-2 e-14) e-22) e-9) clam-0)))))))))(else (vector 1 0)))))))))))))))))))))))))) +(define TTImpC-45ElabC-45ImplicitBind-n--7992-6256-u--mkArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-11 arg-12) (case (vector-ref arg-12 0) ((0) '())(else (if (null? arg-11) '() (let ((e-2 (cdr arg-11))) (case (vector-ref arg-12 0) ((1) (let ((e-6 (vector-ref arg-12 1))) (cons (vector 0 arg-6 '() 0) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45TT-u--weaken_Weaken_Term eta-0)) (TTImpC-45ElabC-45ImplicitBind-n--7992-6256-u--mkArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-2 e-6)))))(else '())))))))) +(define TTImpC-45ElabC-45ImplicitBind-n--8316-6491-u--makeBoundVar (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 ext-0) (TTImpC-45ElabC-45ImplicitBind-case--bindUnsolvedC-44makeBoundVar-6512 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-15 arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 (CoreC-45TT-shrinkTerm arg-15 arg-13) ext-0))) +(define TTImpC-45ElabC-45ImplicitBind-n--9644-7655-u--liftImpsC-39 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (case (vector-ref arg-5 0) ((3) (let ((e-1 (vector-ref arg-5 1))) (let ((e-2 (vector-ref arg-5 2))) (let ((e-3 (vector-ref arg-5 3))) (let ((e-4 (vector-ref arg-5 4))) (case (vector-ref e-2 0) ((3) (let ((e-10 (vector-ref e-2 1))) (let ((e-11 (vector-ref e-2 2))) (case (vector-ref e-3 0) ((2) (let ((e-15 (vector-ref e-3 3))) (case (vector-ref e-15 0) ((0) (vector 3 e-1 (vector 3 e-10 e-11) e-3 (TTImpC-45ElabC-45ImplicitBind-n--9644-7655-u--liftImpsC-39 arg-0 arg-1 arg-2 arg-3 (cons (vector 3 e-10 e-11) arg-4) e-4)))(else (case (vector-ref e-3 0) ((2) (TTImpC-45ElabC-45ImplicitBind-push arg-4 e-1 e-2 e-3 (TTImpC-45ElabC-45ImplicitBind-n--9644-7655-u--liftImpsC-39 arg-0 arg-1 arg-2 arg-3 (cons e-2 arg-4) e-4)))(else arg-5))))))(else (case (vector-ref e-3 0) ((2) (TTImpC-45ElabC-45ImplicitBind-push arg-4 e-1 e-2 e-3 (TTImpC-45ElabC-45ImplicitBind-n--9644-7655-u--liftImpsC-39 arg-0 arg-1 arg-2 arg-3 (cons e-2 arg-4) e-4)))(else arg-5)))))))(else (case (vector-ref e-3 0) ((2) (TTImpC-45ElabC-45ImplicitBind-push arg-4 e-1 e-2 e-3 (TTImpC-45ElabC-45ImplicitBind-n--9644-7655-u--liftImpsC-39 arg-0 arg-1 arg-2 arg-3 (cons e-2 arg-4) e-4)))(else arg-5)))))))))(else arg-5)))) +(define TTImpC-45ElabC-45ImplicitBind-n--11220-9024-u--isIncompatible (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 (let ((sc1 (AlgebraC-45Semiring-isLinear (cons (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-14) (lambda (arg-15) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-14 arg-15))) (lambda (arg-14) (lambda (arg-15) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-14 arg-15))))) arg-12))) (cond ((equal? sc1 1) 1) (else (AlgebraC-45Semiring-isLinear (cons (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-14) (lambda (arg-15) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-14 arg-15))) (lambda (arg-14) (lambda (arg-15) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-14 arg-15))))) arg-13)))))) (cond ((equal? sc0 1) (AlgebraC-45Preorder-C-60 (cons (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-60C-61_Preorder_ZeroOneOmega arg-333 arg-334))) (lambda (u--x) (AlgebraC-45ZeroOneOmega-u--preorderRefl_Preorder_ZeroOneOmega u--x)) (lambda (u--x) (lambda (u--y) (lambda (u--z) (lambda (arg-338) (lambda (arg-342) (AlgebraC-45ZeroOneOmega-u--preorderTrans_Preorder_ZeroOneOmega u--x u--y u--z arg-338 arg-342))))))) (cons (lambda (arg-14) (lambda (arg-15) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-14 arg-15))) (lambda (arg-14) (lambda (arg-15) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-14 arg-15))))) (AlgebraC-45Semiring-linear (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-12 arg-13))) (else 0))))) +(define TTImpC-45ElabC-45ImplicitBind-n--10376-8280-u--insert (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (if (null? arg-12) (cons arg-9 '()) (let ((e-2 (car arg-9))) (let ((e-3 (cdr arg-9))) (let ((e-5 (car arg-12))) (let ((e-6 (cdr arg-12))) (let ((e-9 (car e-5))) (let ((e-10 (cdr e-5))) (let ((u--used (DataC-45List-filter (lambda (u--n) (PreludeC-45Types-elem (cons (lambda (arg-13) (lambda (arg-14) (CoreC-45Name-u--C-61C-61_Eq_Name arg-13 arg-14))) (lambda (arg-13) (lambda (arg-14) (CoreC-45Name-u--C-47C-61_Eq_Name arg-13 arg-14)))) u--n arg-10)) (LibrariesC-45DataC-45NameMap-keys (TTImpC-45ElabC-45Check-bindingMetas e-10))))) (let ((sc4 (PreludeC-45Types-elem (cons (lambda (arg-13) (lambda (arg-14) (CoreC-45Name-u--C-61C-61_Eq_Name arg-13 arg-14))) (lambda (arg-13) (lambda (arg-14) (CoreC-45Name-u--C-47C-61_Eq_Name arg-13 arg-14)))) e-2 u--used))) (cond ((equal? sc4 1) (cons (cons e-2 e-3) (cons (cons e-9 e-10) e-6))) (else (cons (cons e-9 e-10) (TTImpC-45ElabC-45ImplicitBind-n--10376-8280-u--insert arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (cons e-2 e-3) arg-10 (cons e-9 arg-11) e-6))))))))))))))) +(define TTImpC-45ElabC-45ImplicitBind-n--9716-7722-u--getBinds (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-10 arg-11 arg-12 arg-13) (if (null? arg-10) (cons (CoreC-45TT-refsToLocals arg-11 arg-12) (CoreC-45TT-refsToLocals arg-11 arg-13)) (let ((e-2 (car arg-10))) (let ((e-3 (cdr arg-10))) (let ((e-6 (car e-2))) (let ((e-7 (cdr e-2))) (let ((e-10 (car e-7))) (let ((e-11 (cdr e-7))) (case (vector-ref e-11 0) ((0) (let ((e-13 (vector-ref e-11 2))) (let ((e-14 (vector-ref e-11 3))) (let ((e-16 (vector-ref e-11 5))) (let ((sc4 (TTImpC-45ElabC-45ImplicitBind-n--9716-7722-u--getBinds arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-3 (vector 1 e-6 e-10 arg-11) arg-12 arg-13))) (let ((e-5 (car sc4))) (let ((e-4 (cdr sc4))) (let ((u--btyC-39 (CoreC-45TT-refsToLocals arg-11 e-16))) (case (vector-ref arg-6 0) ((0) (let ((e-0 (vector-ref arg-6 1))) (cons (vector 3 arg-7 e-6 (vector 2 arg-7 e-0 (vector 0 ) u--btyC-39) e-5) (vector 11 arg-7))))(else (cons (vector 3 arg-7 e-6 (vector 3 arg-7 e-13 (CoreC-45TT-u--map_Functor_PiInfo (lambda (eta-0) (CoreC-45TT-u--weakenNs_Weaken_Term (CoreC-45TTC-45Bounds-sizeOf arg-11) eta-0)) e-14) u--btyC-39) e-5) (vector 3 arg-7 e-6 (vector 5 arg-7 e-13 u--btyC-39) e-4)))))))))))) (else (let ((e-18 (vector-ref e-11 2))) (let ((e-21 (vector-ref e-11 5))) (let ((e-22 (vector-ref e-11 6))) (let ((sc4 (TTImpC-45ElabC-45ImplicitBind-n--9716-7722-u--getBinds arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-3 (vector 1 e-6 e-10 arg-11) arg-12 arg-13))) (let ((e-5 (car sc4))) (let ((e-4 (cdr sc4))) (let ((u--btyC-39 (CoreC-45TT-refsToLocals arg-11 e-21))) (let ((u--bpatC-39 (CoreC-45TT-refsToLocals arg-11 e-22))) (cons (vector 3 arg-7 e-6 (vector 4 arg-7 e-18 u--bpatC-39 u--btyC-39) e-5) (vector 3 arg-7 e-6 (vector 4 arg-7 e-18 u--bpatC-39 u--btyC-39) e-4))))))))))))))))))))) +(define TTImpC-45ElabC-45ImplicitBind-n--10376-8281-u--depSort (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (if (null? arg-10) '() (let ((e-2 (car arg-10))) (let ((e-3 (cdr arg-10))) (TTImpC-45ElabC-45ImplicitBind-n--10376-8280-u--insert arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2 arg-9 '() (TTImpC-45ElabC-45ImplicitBind-n--10376-8281-u--depSort arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-3))))))) +(define TTImpC-45ElabC-45ImplicitBind-n--11220-9025-u--combine (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 ext-0) (let ((sc0 (TTImpC-45ElabC-45ImplicitBind-n--11220-9024-u--isIncompatible arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-13 arg-14))) (cond ((equal? sc0 1) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 13 arg-3 (+ 1 (+ 1 0)) arg-12) ext-0)) (else (vector 1 0)))))) +(define TTImpC-45ElabC-45ImplicitBind-n--7992-6257-u--bindInner (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-11 arg-12 arg-13 arg-14) (case (vector-ref arg-14 0) ((0) (box arg-13))(else (if (null? arg-11) '() (let ((e-1 (car arg-11))) (let ((e-2 (cdr arg-11))) (if (null? arg-12) '() (let ((e-6 (car arg-12))) (let ((e-7 (cdr arg-12))) (case (vector-ref arg-14 0) ((1) (let ((e-11 (vector-ref arg-14 1))) (TTImpC-45ElabC-45ImplicitBind-n--7992-6257-u--bindInner arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-2 e-7 (vector 3 arg-6 e-1 e-6 arg-13) e-11)))(else '())))))))))))) +(define TTImpC-45ElabC-45ImplicitBind-swapVars (lambda (arg-3 arg-4) (case (vector-ref arg-4 0) ((0) (let ((e-2 (vector-ref arg-4 1))) (let ((e-3 (vector-ref arg-4 2))) (let ((e-4 (vector-ref arg-4 3))) (vector 0 e-2 e-3 (TTImpC-45ElabC-45ImplicitBind-swapIsVar arg-3 e-4)))))) ((1) (let ((e-7 (vector-ref arg-4 1))) (let ((e-8 (vector-ref arg-4 2))) (let ((e-9 (vector-ref arg-4 3))) (vector 1 e-7 e-8 e-9))))) ((2) (let ((e-11 (vector-ref arg-4 1))) (let ((e-12 (vector-ref arg-4 2))) (let ((e-13 (vector-ref arg-4 3))) (let ((e-14 (vector-ref arg-4 4))) (vector 2 e-11 e-12 e-13 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (TTImpC-45ElabC-45ImplicitBind-swapVars arg-3 eta-0)) e-14))))))) ((3) (let ((e-16 (vector-ref arg-4 1))) (let ((e-17 (vector-ref arg-4 2))) (let ((e-18 (vector-ref arg-4 3))) (let ((e-19 (vector-ref arg-4 4))) (vector 3 e-16 e-17 (CoreC-45TT-u--map_Functor_Binder (lambda (eta-0) (TTImpC-45ElabC-45ImplicitBind-swapVars arg-3 eta-0)) e-18) (TTImpC-45ElabC-45ImplicitBind-swapVars (cons e-17 arg-3) e-19))))))) ((4) (let ((e-21 (vector-ref arg-4 1))) (let ((e-22 (vector-ref arg-4 2))) (let ((e-23 (vector-ref arg-4 3))) (vector 4 e-21 (TTImpC-45ElabC-45ImplicitBind-swapVars arg-3 e-22) (TTImpC-45ElabC-45ImplicitBind-swapVars arg-3 e-23)))))) ((5) (let ((e-25 (vector-ref arg-4 1))) (let ((e-26 (vector-ref arg-4 2))) (let ((e-27 (vector-ref arg-4 3))) (let ((e-28 (vector-ref arg-4 4))) (vector 5 e-25 e-26 (TTImpC-45ElabC-45ImplicitBind-swapVars arg-3 e-27) (TTImpC-45ElabC-45ImplicitBind-swapVars arg-3 e-28))))))) ((6) (let ((e-30 (vector-ref arg-4 1))) (let ((e-31 (vector-ref arg-4 2))) (let ((e-32 (vector-ref arg-4 3))) (vector 6 e-30 e-31 (TTImpC-45ElabC-45ImplicitBind-swapVars arg-3 e-32)))))) ((7) (let ((e-34 (vector-ref arg-4 1))) (let ((e-35 (vector-ref arg-4 2))) (let ((e-36 (vector-ref arg-4 3))) (let ((e-37 (vector-ref arg-4 4))) (vector 7 e-34 e-35 (TTImpC-45ElabC-45ImplicitBind-swapVars arg-3 e-36) (TTImpC-45ElabC-45ImplicitBind-swapVars arg-3 e-37))))))) ((8) (let ((e-39 (vector-ref arg-4 1))) (let ((e-40 (vector-ref arg-4 2))) (let ((e-41 (vector-ref arg-4 3))) (vector 8 e-39 e-40 (TTImpC-45ElabC-45ImplicitBind-swapVars arg-3 e-41)))))) ((9) (let ((e-43 (vector-ref arg-4 1))) (let ((e-44 (vector-ref arg-4 2))) (vector 9 e-43 e-44)))) ((10) (let ((e-46 (vector-ref arg-4 1))) (let ((e-47 (vector-ref arg-4 2))) (vector 10 e-46 e-47)))) (else (let ((e-49 (vector-ref arg-4 1))) (vector 11 e-49)))))) +(define TTImpC-45ElabC-45ImplicitBind-swapIsVarH (lambda (arg-4) (cond ((equal? arg-4 0) (+ 1 0))(else (let ((e-0 (- arg-4 1))) (TTImpC-45ElabC-45ImplicitBind-n--8983-7105-u--swapP e-0 arg-4 e-0)))))) +(define TTImpC-45ElabC-45ImplicitBind-swapIsVar (lambda (arg-4 arg-5) (if (null? arg-4) (TTImpC-45ElabC-45ImplicitBind-swapIsVarH arg-5) (let ((e-3 (cdr arg-4))) (cond ((equal? arg-5 0) 0)(else (let ((e-4 (- arg-5 1))) (+ 1 (TTImpC-45ElabC-45ImplicitBind-swapIsVar e-3 e-4))))))))) +(define TTImpC-45ElabC-45ImplicitBind-solvePolyConstraint (lambda (arg-0 arg-1 arg-2 ext-0) (let ((e-0 (vector-ref arg-2 0))) (let ((e-1 (vector-ref arg-2 1))) (let ((e-2 (vector-ref arg-2 2))) (let ((e-4 (vector-ref arg-2 4))) (let ((e-5 (vector-ref arg-2 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Normalise-continueNF arg-0 e-0 e-6 e-2 e-4) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-7 (vector-ref act-25 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-25 1))) (case (vector-ref e-7 0) ((1) (let ((e-9 (vector-ref e-7 2))) (case (vector-ref e-9 0) ((2) (vector 1 0))(else (let ((act-26 (let ((act-26 ((CoreC-45Normalise-continueNF arg-0 e-0 e-6 e-2 e-5) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-11 (vector-ref act-26 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-26 1))) ((((CoreC-45Unify-unify (cons (lambda (u--vars) (lambda (arg-6180) (lambda (arg-6183) (lambda (arg-6186) (lambda (arg-6187) (lambda (arg-6188) (lambda (arg-6190) (lambda (arg-6193) (CoreC-45Unify-u--unifyD_Unify_NF u--vars arg-6180 arg-6183 arg-6186 arg-6187 arg-6188 arg-6190 arg-6193))))))))) (lambda (u--vars) (lambda (arg-6195) (lambda (arg-6198) (lambda (arg-6201) (lambda (arg-6202) (lambda (arg-6203) (lambda (arg-6205) (lambda (arg-6206) (CoreC-45Unify-u--unifyWithLazyD_Unify_NF u--vars arg-6195 arg-6198 arg-6201 arg-6202 arg-6203 arg-6205 arg-6206)))))))))) e-0 arg-0 arg-1 (CoreC-45Unify-inLHS) e-1 e-2) e-7) e-11) ext-0))))))) (case (vector-ref act-26 0) ((0) (let ((e-11 (vector-ref act-26 1))) (vector 0 e-11))) (else (vector 1 0))))))))(else (let ((act-26 (let ((act-26 ((CoreC-45Normalise-continueNF arg-0 e-0 e-6 e-2 e-5) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-8 (vector-ref act-26 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref act-26 1))) ((((CoreC-45Unify-unify (cons (lambda (u--vars) (lambda (arg-6180) (lambda (arg-6183) (lambda (arg-6186) (lambda (arg-6187) (lambda (arg-6188) (lambda (arg-6190) (lambda (arg-6193) (CoreC-45Unify-u--unifyD_Unify_NF u--vars arg-6180 arg-6183 arg-6186 arg-6187 arg-6188 arg-6190 arg-6193))))))))) (lambda (u--vars) (lambda (arg-6195) (lambda (arg-6198) (lambda (arg-6201) (lambda (arg-6202) (lambda (arg-6203) (lambda (arg-6205) (lambda (arg-6206) (CoreC-45Unify-u--unifyWithLazyD_Unify_NF u--vars arg-6195 arg-6198 arg-6201 arg-6202 arg-6203 arg-6205 arg-6206)))))))))) e-0 arg-0 arg-1 (CoreC-45Unify-inLHS) e-1 e-2) e-7) e-8) ext-0))))))) (case (vector-ref act-26 0) ((0) (let ((e-8 (vector-ref act-26 1))) (vector 0 e-8))) (else (vector 1 0))))))))))))))))))))) +(define TTImpC-45ElabC-45ImplicitBind-push (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (case (vector-ref arg-4 0) ((3) (let ((e-1 (vector-ref arg-4 1))) (let ((e-2 (vector-ref arg-4 2))) (let ((e-3 (vector-ref arg-4 3))) (let ((e-4 (vector-ref arg-4 4))) (case (vector-ref e-2 0) ((3) (let ((e-5 (vector-ref e-2 1))) (let ((e-6 (vector-ref e-2 2))) (case (vector-ref e-3 0) ((2) (let ((e-8 (vector-ref e-3 1))) (let ((e-9 (vector-ref e-3 2))) (let ((e-10 (vector-ref e-3 3))) (let ((e-11 (vector-ref e-3 4))) (case (vector-ref e-10 0) ((0) (let ((u--tm (vector 3 e-1 (vector 3 e-5 e-6) (vector 2 e-8 e-9 (vector 0 ) e-11) e-4))) (let ((sc4 (CoreC-45TT-shrinkTerm e-11 (vector 1 (vector 0 ))))) (if (null? sc4) (vector 3 arg-1 arg-2 arg-3 u--tm) (let ((e-7 (unbox sc4))) (vector 3 e-1 (vector 3 e-5 e-6) (vector 2 e-8 e-9 (vector 0 ) e-7) (TTImpC-45ElabC-45ImplicitBind-push (cons (vector 3 e-5 e-6) arg-0) arg-1 arg-2 (CoreC-45TT-u--map_Functor_Binder (lambda (eta-0) (CoreC-45TT-u--weaken_Weaken_Term eta-0)) arg-3) (TTImpC-45ElabC-45ImplicitBind-swapVars '() e-4))))))))(else (vector 3 arg-1 arg-2 arg-3 arg-4))))))))(else (vector 3 arg-1 arg-2 arg-3 arg-4))))))(else (vector 3 arg-1 arg-2 arg-3 arg-4))))))))(else (vector 3 arg-1 arg-2 arg-3 arg-4))))) +(define TTImpC-45ElabC-45ImplicitBind-normaliseHolesScope (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (case (vector-ref arg-4 0) ((3) (let ((e-1 (vector-ref arg-4 1))) (let ((e-2 (vector-ref arg-4 2))) (let ((e-3 (vector-ref arg-4 3))) (let ((e-4 (vector-ref arg-4 4))) (let ((act-24 (TTImpC-45ElabC-45ImplicitBind-normaliseHolesScope arg-0 (cons e-2 arg-1) arg-2 (cons (vector 0 e-1 (CoreC-45TT-multiplicity e-3) (vector 1 ) (CoreC-45TT-binderType e-3)) arg-3) e-4 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 3 e-1 e-2 e-3 e-5)))))))))))(else (CoreC-45Normalise-normaliseHoles arg-0 arg-1 arg-2 arg-3 arg-4 ext-0))))) +(define TTImpC-45ElabC-45ImplicitBind-mkPatternHole (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 ext-0) (case (vector-ref arg-8 0) ((0) (let ((act-24 (TTImpC-45ElabC-45ImplicitBind-mkOuterHole arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-9 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref act-24 1))) (let ((e-4 (car e-5))) (let ((e-3 (cdr e-5))) (vector 1 (cons e-4 (cons e-3 e-3))))))))))(else (if (null? arg-9) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-4 (PreludeC-45TypesC-45String-C-43C-43 "Unknown type for pattern variable " (CoreC-45Name-u--show_Show_Name arg-6))) ext-0) (let ((e-1 (unbox arg-9))) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((u--sub (let ((e-4 (vector-ref e-5 3))) e-4))) (let ((u--env (let ((e-3 (vector-ref e-5 2))) e-3))) (let ((act-25 ((CoreC-45Normalise-getTerm e-1) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) ((TTImpC-45ElabC-45ImplicitBind-case--mkPatternHole-6366 arg-0 e-1 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 u--sub u--env e-6 (TTImpC-45ElabC-45ImplicitBind-n--7992-6257-u--bindInner arg-0 e-1 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 arg-7 e-6 u--sub)) ext-0))))))))))))))))) +(define TTImpC-45ElabC-45ImplicitBind-mkOuterHole (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 ext-0) (if (null? arg-8) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((u--sub (let ((e-4 (vector-ref e-5 3))) e-4))) (let ((u--env (let ((e-3 (vector-ref e-5 2))) e-3))) (let ((act-25 (CoreC-45UnifyState-genName arg-2 arg-3 (PreludeC-45TypesC-45String-C-43C-43 "type_of_" (CoreC-45Name-nameRoot arg-6)) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45ElabC-45Check-metaVar (let ((e-1 (vector-ref e-5 0))) e-1) arg-2 arg-3 arg-4 (AlgebraC-45Semiring-erased (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))) u--env e-6 (vector 11 arg-4) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (CoreC-45ContextC-45Log-log arg-2 "elab.implicits" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Made metavariable for type of " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name arg-6) (PreludeC-45TypesC-45String-C-43C-43 ": " (CoreC-45Name-u--show_Show_Name e-6))))) ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((act-28 (let ((act-28 (set-box! arg-1 (TTImpC-45ElabC-45Check-addBindIfUnsolved arg-0 e-6 arg-5 (vector 1 ) arg-7 (CoreC-45TT-embedSub u--sub e-7) (vector 11 arg-4) e-5)))) (vector 1 act-28)))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((act-29 (TTImpC-45ElabC-45Check-implBindVar (let ((e-1 (vector-ref e-5 0))) e-1) arg-2 arg-3 arg-4 arg-5 u--env arg-6 e-7 ext-0))) (case (vector-ref act-29 0) ((0) (let ((e-2 (vector-ref act-29 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref act-29 1))) (vector 1 (cons (CoreC-45TT-embedSub u--sub e-10) (CoreC-45TT-embedSub u--sub e-7))))))))))))))))))))))))))) (let ((e-1 (unbox arg-8))) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((u--sub (let ((e-4 (vector-ref e-5 3))) e-4))) (let ((act-25 ((CoreC-45Normalise-getTerm e-1) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) ((TTImpC-45ElabC-45ImplicitBind-case--mkOuterHole-6018 arg-0 e-1 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 u--sub e-6 (CoreC-45TT-shrinkTerm e-6 u--sub)) ext-0)))))))))))))) +(define TTImpC-45ElabC-45ImplicitBind-liftImps (lambda (arg-0 arg-1 arg-2) (case (vector-ref arg-1 0) ((0) (let ((e-0 (vector-ref arg-1 1))) (if (null? arg-2) arg-2 (let ((e-3 (car arg-2))) (let ((e-4 (cdr arg-2))) (case (vector-ref e-4 0) ((11) (let ((e-6 (vector-ref e-4 1))) (cons (TTImpC-45ElabC-45ImplicitBind-n--9644-7655-u--liftImpsC-39 arg-0 e-0 e-3 e-6 arg-0 e-3) (vector 11 e-6))))(else arg-2)))))))(else arg-2)))) +(define TTImpC-45ElabC-45ImplicitBind-implicitBind (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-lookupDefExact arg-2 (let ((e-0 (vector-ref e-5 0))) e-0) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (if (null? e-6) (vector 1 0) (let ((e-1 (unbox e-6))) (case (vector-ref e-1 0) ((7) (let ((act-26 (CoreC-45Context-updateDef arg-0 arg-2 (lambda (eta-0) (box (vector 10 ))) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-4 (vector-ref act-26 1))) (vector 0 e-4))) (else (CoreC-45UnifyState-removeHoleName arg-0 arg-1 arg-2 ext-0)))))(else (vector 1 0))))))))))))))) +(define TTImpC-45ElabC-45ImplicitBind-getToBind (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 ext-0) (case (vector-ref arg-6 0) ((2) (vector 1 '()))(else (let ((act-24 (CoreC-45Unify-solveConstraints arg-1 arg-3 (case (vector-ref arg-5 0) ((1) (CoreC-45Unify-inLHS))(else (CoreC-45Unify-inTerm))) 0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 (TTImpC-45ElabC-45ImplicitBind-bindUnsolved arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45Unify-solveConstraints arg-1 arg-3 (case (vector-ref arg-5 0) ((1) (CoreC-45Unify-inLHS))(else (CoreC-45Unify-inTerm))) 0 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((act-27 (let ((act-27 (unbox arg-1))) (vector 1 act-27)))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (let ((act-28 (let ((act-28 (unbox arg-2))) (vector 1 act-28)))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-28 1))) (let ((u--tob (DataC-45List-reverse (DataC-45List-filter (lambda (u--x) (let ((sc5 (PreludeC-45Types-elem (cons (lambda (arg-9) (lambda (arg-10) (CoreC-45Name-u--C-61C-61_Eq_Name arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (CoreC-45Name-u--C-47C-61_Eq_Name arg-9 arg-10)))) (Builtin-fst u--x) arg-8))) (cond ((equal? sc5 1) 0) (else 1)))) (let ((e-18 (vector-ref e-9 5))) e-18))))) (let ((act-29 ((TTImpC-45ElabC-45ImplicitBind-n--10376-8279-u--normImps arg-8 arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-8 '() u--tob) ext-0))) (case (vector-ref act-29 0) ((0) (let ((e-2 (vector-ref act-29 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref act-29 1))) (let ((u--hnames (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-fst eta-0)) e-10))) (let ((u--resC-39 (TTImpC-45ElabC-45ImplicitBind-n--10376-8281-u--depSort arg-8 arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 u--hnames e-10))) (let ((act-30 (CoreC-45ContextC-45Log-log arg-1 "elab.implicits" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Bound names: " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (CoreC-45Name-u--show_Show_Name x-0)) (lambda (u--d) (lambda (x-0) (CoreC-45Name-u--showPrec_Show_Name u--d x-0)))) (cons (lambda (x-0) (TTImpC-45ElabC-45Check-u--show_Show_C-40ImplBindingC-32C-36varsC-41 x-0)) (lambda (u--d) (lambda (x-0) (TTImpC-45ElabC-45Check-u--showPrec_Show_C-40ImplBindingC-32C-36varsC-41 u--d x-0))))) u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (CoreC-45Name-u--show_Show_Name x-0)) (lambda (d-0) (lambda (x-0) (CoreC-45Name-u--showPrec_Show_Name d-0 x-0)))) (cons (lambda (x-0) (TTImpC-45ElabC-45Check-u--show_Show_C-40ImplBindingC-32C-36varsC-41 x-0)) (lambda (d-0) (lambda (x-0) (TTImpC-45ElabC-45Check-u--showPrec_Show_C-40ImplBindingC-32C-36varsC-41 d-0 x-0))))) u--d u--x)))) e-10))) ext-0))) (case (vector-ref act-30 0) ((0) (let ((e-2 (vector-ref act-30 1))) (vector 0 e-2))) (else (let ((act-31 (CoreC-45ContextC-45Log-log arg-1 "elab.implicits" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Sorted: " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (CoreC-45Name-u--show_Show_Name x-0)) (lambda (u--d) (lambda (x-0) (CoreC-45Name-u--showPrec_Show_Name u--d x-0)))) (cons (lambda (x-0) (TTImpC-45ElabC-45Check-u--show_Show_C-40ImplBindingC-32C-36varsC-41 x-0)) (lambda (u--d) (lambda (x-0) (TTImpC-45ElabC-45Check-u--showPrec_Show_C-40ImplBindingC-32C-36varsC-41 u--d x-0))))) u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (CoreC-45Name-u--show_Show_Name x-0)) (lambda (d-0) (lambda (x-0) (CoreC-45Name-u--showPrec_Show_Name d-0 x-0)))) (cons (lambda (x-0) (TTImpC-45ElabC-45Check-u--show_Show_C-40ImplBindingC-32C-36varsC-41 x-0)) (lambda (d-0) (lambda (x-0) (TTImpC-45ElabC-45Check-u--showPrec_Show_C-40ImplBindingC-32C-36varsC-41 d-0 x-0))))) u--d u--x)))) u--resC-39))) ext-0))) (case (vector-ref act-31 0) ((0) (let ((e-2 (vector-ref act-31 1))) (vector 0 e-2))) (else (vector 1 u--resC-39))))))))))))))))))))))))))))))))))) +(define TTImpC-45ElabC-45ImplicitBind-checkPolyConstraint (lambda (arg-0 arg-1 ext-0) (let ((e-0 (vector-ref arg-1 0))) (let ((e-1 (vector-ref arg-1 1))) (let ((e-2 (vector-ref arg-1 2))) (let ((e-3 (vector-ref arg-1 3))) (let ((e-4 (vector-ref arg-1 4))) (let ((e-5 (vector-ref arg-1 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Normalise-continueNF arg-0 e-0 e-6 e-2 e-4) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-7 (vector-ref act-25 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-25 1))) (case (vector-ref e-7 0) ((1) (let ((e-9 (vector-ref e-7 2))) (case (vector-ref e-9 0) ((2) (let ((act-26 ((CoreC-45Normalise-continueNF arg-0 e-0 e-6 e-2 e-5) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-14 (vector-ref act-26 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref act-26 1))) (let ((act-27 (TTImpC-45ElabC-45Check-concrete e-6 e-2 e-14 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-15 (vector-ref act-27 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref act-27 1))) (cond ((equal? e-15 1) (let ((act-28 (CoreC-45Context-clearDefs e-6 ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-16 (vector-ref act-28 1))) (vector 0 e-16))) (else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 43 e-0 e-1 e-2 e-3) ext-0))))) (else (vector 1 0))))))))))))(else (vector 1 0)))))(else (vector 1 0))))))))))))))))))) +(define TTImpC-45ElabC-45ImplicitBind-checkBindVar (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((u--elabmode (let ((e-0 (vector-ref arg-6 0))) e-0))) (let ((sc0 (let ((e-1 (vector-ref arg-6 1))) (case (vector-ref e-1 0) ((0) (PreludeC-45Types-maybe (lambda () 0) (lambda () (lambda (eta-0) 1)) (CoreC-45Env-defined arg-0 (vector 1 arg-10) arg-8)))(else 0))))) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((u--n (vector 3 (vector 1 arg-10) (let ((e-2 (vector-ref e-5 1))) e-2)))) (let ((act-25 (TTImpC-45ElabC-45Check-noteLHSPatVar arg-4 u--elabmode (vector 1 arg-10) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 (TTImpC-45ElabC-45Check-notePatVar arg-4 u--n eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((act-27 (let ((act-27 (unbox arg-4))) (vector 1 act-27)))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (let ((act-28 (let ((sc5 (CoreC-45FC-isConcreteFC arg-9))) (if (null? sc5) (vector 1 0) (let ((e-1 (unbox sc5))) (let ((act-28 (CoreC-45ContextC-45Log-log arg-1 "ide-mode.highlight" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "getNameType is adding Bound: " (CoreC-45Name-u--show_Show_Name u--n))) eta-0))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (CoreC-45Metadata-addSemanticDecorations arg-2 arg-1 (cons (cons e-1 (cons 4 (box u--n))) '()) eta-0))))))))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (TTImpC-45ElabC-45ImplicitBind-case--caseC-32blockC-32inC-32checkBindVar-9424 arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 u--elabmode e-5 u--n e-8 (DataC-45List-lookup (cons (lambda (arg-12) (lambda (arg-13) (CoreC-45Name-u--C-61C-61_Eq_Name arg-12 arg-13))) (lambda (arg-12) (lambda (arg-13) (CoreC-45Name-u--C-47C-61_Eq_Name arg-12 arg-13)))) u--n (let ((e-19 (vector-ref e-8 4))) e-19)) eta-0)))))))))))))))))))))(else (lambda (eta-0) (TTImpC-45ElabC-45Check-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 0 arg-9 (vector 1 arg-10)) arg-11 eta-0)))))))) +(define TTImpC-45ElabC-45ImplicitBind-checkBindHere (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 ext-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((u--oldenv (let ((e-3 (vector-ref e-5 2))) e-3))) (let ((u--oldsub (let ((e-4 (vector-ref e-5 3))) e-4))) (let ((u--oldbif (let ((e-7 (vector-ref e-5 6))) e-7))) (let ((u--dontbind (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-fst eta-0)) (let ((e-6 (vector-ref e-5 5))) e-6)))) (let ((act-25 (let ((act-25 (set-box! arg-4 (TTImpC-45ElabC-45Check-updateEnv arg-0 arg-8 (vector 0 ) '() e-5)))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45Context-getNextEntry arg-1 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (TTImpC-45ElabC-45Check-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (let ((e-0 (vector-ref arg-6 0))) (let ((e-2 (vector-ref arg-6 2))) (let ((e-4 (vector-ref arg-6 4))) (let ((e-8 (vector-ref arg-6 5))) (vector e-0 arg-10 e-2 1 e-4 e-8))))) arg-7 arg-8 arg-11 arg-12 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (let ((e-2 (car e-8))) (let ((e-3 (cdr e-8))) (let ((act-28 (CoreC-45Unify-solveConstraints arg-1 arg-3 (let ((e-0 (vector-ref arg-6 0))) (case (vector-ref e-0 0) ((1) (CoreC-45Unify-inLHS))(else (CoreC-45Unify-inTerm)))) 0 ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-4 (vector-ref act-28 1))) (vector 0 e-4))) (else (let ((act-29 (let ((act-29 (unbox arg-3))) (vector 1 act-29)))) (case (vector-ref act-29 0) ((0) (let ((e-4 (vector-ref act-29 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref act-29 1))) (let ((act-30 (CoreC-45Core-u--catch_Catchable_Core_Error (lambda (eta-0) (TTImpC-45ElabC-45Delayed-retryDelayed arg-0 arg-1 arg-2 arg-3 arg-4 (let ((e-12 (vector-ref e-10 10))) e-12) eta-0)) (lambda (u--err) (lambda (eta-0) (let ((act-30 (let ((act-30 (unbox arg-3))) (vector 1 act-30)))) (case (vector-ref act-30 0) ((0) (let ((e-4 (vector-ref act-30 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref act-30 1))) (let ((act-31 (let ((act-31 (set-box! arg-3 (let ((e-0 (vector-ref e-11 0))) (let ((e-1 (vector-ref e-11 1))) (let ((e-20 (vector-ref e-11 2))) (let ((e-19 (vector-ref e-11 3))) (let ((e-4 (vector-ref e-11 4))) (let ((e-18 (vector-ref e-11 5))) (let ((e-17 (vector-ref e-11 6))) (let ((e-16 (vector-ref e-11 7))) (let ((e-15 (vector-ref e-11 8))) (let ((e-14 (vector-ref e-11 9))) (let ((e-12 (vector-ref e-11 11))) (vector e-0 e-1 e-20 e-19 e-4 e-18 e-17 e-16 e-15 e-14 '() e-12))))))))))))))) (vector 1 act-31)))) (case (vector-ref act-31 0) ((0) (let ((e-4 (vector-ref act-31 1))) (vector 0 e-4))) (else (CoreC-45Core-u--throw_Catchable_Core_Error u--err eta-0)))))))))) ext-0))) (case (vector-ref act-30 0) ((0) (let ((e-4 (vector-ref act-30 1))) (vector 0 e-4))) (else (let ((act-31 (let ((act-31 (unbox arg-3))) (vector 1 act-31)))) (case (vector-ref act-31 0) ((0) (let ((e-4 (vector-ref act-31 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref act-31 1))) (let ((u--cons (let ((e-18 (vector-ref e-12 6))) e-18))) (let ((act-32 (let ((act-32 (set-box! arg-3 (let ((e-0 (vector-ref e-12 0))) (let ((e-1 (vector-ref e-12 1))) (let ((e-21 (vector-ref e-12 2))) (let ((e-20 (vector-ref e-12 3))) (let ((e-4 (vector-ref e-12 4))) (let ((e-19 (vector-ref e-12 5))) (let ((e-17 (vector-ref e-12 7))) (let ((e-16 (vector-ref e-12 8))) (let ((e-15 (vector-ref e-12 9))) (let ((e-14 (vector-ref e-12 10))) (let ((e-13 (vector-ref e-12 11))) (vector e-0 e-1 e-21 e-20 e-4 e-19 '() e-17 e-16 e-15 e-14 e-13))))))))))))))) (vector 1 act-32)))) (case (vector-ref act-32 0) ((0) (let ((e-4 (vector-ref act-32 1))) (vector 0 e-4))) (else (let ((act-33 (CoreC-45Core-traverse_ (lambda (eta-0) (lambda (eta-1) (TTImpC-45ElabC-45ImplicitBind-solvePolyConstraint arg-1 arg-3 eta-0 eta-1))) u--cons ext-0))) (case (vector-ref act-33 0) ((0) (let ((e-4 (vector-ref act-33 1))) (vector 0 e-4))) (else (let ((act-34 (CoreC-45Core-traverse_ (lambda (eta-0) (lambda (eta-1) (TTImpC-45ElabC-45ImplicitBind-checkPolyConstraint arg-1 eta-0 eta-1))) u--cons ext-0))) (case (vector-ref act-34 0) ((0) (let ((e-4 (vector-ref act-34 1))) (vector 0 e-4))) (else (let ((act-35 (CoreC-45Unify-solveConstraintsAfter arg-1 arg-3 e-7 (let ((e-0 (vector-ref arg-6 0))) (case (vector-ref e-0 0) ((1) (CoreC-45Unify-inLHS))(else (CoreC-45Unify-inTerm)))) 1 ext-0))) (case (vector-ref act-35 0) ((0) (let ((e-4 (vector-ref act-35 1))) (vector 0 e-4))) (else (let ((act-36 (CoreC-45Unify-checkDots arg-3 arg-1 ext-0))) (case (vector-ref act-36 0) ((0) (let ((e-4 (vector-ref act-36 1))) (vector 0 e-4))) (else (let ((act-37 (CoreC-45ContextC-45Log-logTerm arg-0 arg-1 "elab.implicits" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Binding names") e-2 ext-0))) (case (vector-ref act-37 0) ((0) (let ((e-4 (vector-ref act-37 1))) (vector 0 e-4))) (else (let ((act-38 (CoreC-45Normalise-logTermNF arg-0 arg-1 "elab.implicits" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Normalised") arg-8 e-2 ext-0))) (case (vector-ref act-38 0) ((0) (let ((e-4 (vector-ref act-38 1))) (vector 0 e-4))) (else (let ((act-39 (TTImpC-45ElabC-45ImplicitBind-getToBind arg-0 arg-1 arg-4 arg-3 arg-9 (let ((e-0 (vector-ref arg-6 0))) e-0) arg-10 arg-8 u--dontbind ext-0))) (case (vector-ref act-39 0) ((0) (let ((e-4 (vector-ref act-39 1))) (vector 0 e-4))) (else (let ((e-20 (vector-ref act-39 1))) (let ((act-40 (TTImpC-45ElabC-45Check-clearToBind arg-4 u--dontbind ext-0))) (case (vector-ref act-40 0) ((0) (let ((e-4 (vector-ref act-40 1))) (vector 0 e-4))) (else (let ((act-41 (let ((act-41 (unbox arg-4))) (vector 1 act-41)))) (case (vector-ref act-41 0) ((0) (let ((e-4 (vector-ref act-41 1))) (vector 0 e-4))) (else (let ((e-22 (vector-ref act-41 1))) (let ((act-42 (let ((act-42 (set-box! arg-4 (TTImpC-45ElabC-45Check-updateEnv (let ((e-1 (vector-ref e-5 0))) e-1) u--oldenv u--oldsub u--oldbif (let ((e-1 (vector-ref e-22 0))) (let ((e-34 (vector-ref e-22 1))) (let ((e-33 (vector-ref e-22 2))) (let ((e-4 (vector-ref e-22 3))) (let ((e-31 (vector-ref e-22 5))) (let ((e-30 (vector-ref e-22 6))) (let ((e-29 (vector-ref e-22 7))) (let ((e-28 (vector-ref e-22 8))) (let ((e-27 (vector-ref e-22 9))) (let ((e-26 (vector-ref e-22 10))) (let ((e-25 (vector-ref e-22 11))) (let ((e-24 (vector-ref e-22 12))) (let ((e-23 (vector-ref e-22 13))) (vector e-1 e-34 e-33 e-4 '() e-31 e-30 e-29 e-28 e-27 e-26 e-25 e-24 e-23)))))))))))))))))) (vector 1 act-42)))) (case (vector-ref act-42 0) ((0) (let ((e-4 (vector-ref act-42 1))) (vector 0 e-4))) (else (let ((act-43 ((CoreC-45Normalise-getTerm e-3) ext-0))) (case (vector-ref act-43 0) ((0) (let ((e-4 (vector-ref act-43 1))) (vector 0 e-4))) (else (let ((e-24 (vector-ref act-43 1))) (let ((act-44 (let ((act-44 (unbox arg-1))) (vector 1 act-44)))) (case (vector-ref act-44 0) ((0) (let ((e-4 (vector-ref act-44 1))) (vector 0 e-4))) (else (let ((e-25 (vector-ref act-44 1))) (let ((act-45 (let ((act-45 (CoreC-45Normalise-normaliseHoles arg-1 arg-0 e-25 arg-8 e-2 ext-0))) (case (vector-ref act-45 0) ((0) (let ((e-4 (vector-ref act-45 1))) (vector 0 e-4))) (else (let ((e-26 (vector-ref act-45 1))) (let ((act-46 (CoreC-45Normalise-normaliseHoles arg-1 arg-0 e-25 arg-8 e-24 ext-0))) (case (vector-ref act-46 0) ((0) (let ((e-4 (vector-ref act-46 1))) (vector 0 e-4))) (else (let ((e-27 (vector-ref act-46 1))) (TTImpC-45ElabC-45ImplicitBind-bindImplicits arg-1 arg-0 arg-9 arg-10 e-25 arg-8 e-20 e-26 e-27 ext-0))))))))))) (case (vector-ref act-45 0) ((0) (let ((e-4 (vector-ref act-45 1))) (vector 0 e-4))) (else (let ((e-26 (vector-ref act-45 1))) (let ((e-27 (car e-26))) (let ((e-4 (cdr e-26))) (let ((act-46 (CoreC-45Core-traverse_ (lambda (eta-0) (lambda (eta-1) (TTImpC-45ElabC-45ImplicitBind-implicitBind arg-1 arg-3 eta-0 eta-1))) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-fst eta-0)) e-20) ext-0))) (case (vector-ref act-46 0) ((0) (let ((e-28 (vector-ref act-46 1))) (vector 0 e-28))) (else (TTImpC-45ElabC-45Check-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 e-27 (CoreC-45Normalise-gnf arg-0 arg-8 e-4) arg-12 ext-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) +(define TTImpC-45ElabC-45ImplicitBind-bindUnsolved (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (case (vector-ref arg-6 0) ((2) (vector 1 0))(else (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((u--bifs (let ((e-7 (vector-ref e-5 6))) e-7))) (let ((act-26 (CoreC-45ContextC-45Log-log arg-1 "elab.implicits" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Bindable unsolved implicits: " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45Name-u--show_Show_Name u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Name-u--showPrec_Show_Name u--d u--x)))) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-fst eta-0)) u--bifs)))) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (CoreC-45Core-traverse_ (lambda (eta-0) (TTImpC-45ElabC-45ImplicitBind-n--8316-6492-u--mkImplicit arg-6 arg-5 arg-4 arg-3 arg-0 arg-2 arg-1 (let ((e-1 (vector-ref e-5 0))) e-1) e-6 (let ((e-3 (vector-ref e-5 2))) e-3) (let ((e-4 (vector-ref e-5 3))) e-4) eta-0)) (let ((e-15 (vector-ref e-5 6))) e-15) ext-0))))))))))))))))) +(define TTImpC-45ElabC-45ImplicitBind-bindImplicits (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 ext-0) (case (vector-ref arg-3 0) ((2) (vector 1 (cons arg-7 arg-8)))(else (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (TTImpC-45ElabC-45ImplicitBind-n--10231-8148-u--nHoles arg-1 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-0 eta-0 eta-1))) arg-6 '() ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (TTImpC-45ElabC-45ImplicitBind-liftImps arg-1 arg-3 (TTImpC-45ElabC-45ImplicitBind-bindImplVars arg-2 arg-3 arg-4 arg-5 e-5 arg-7 arg-8))))))))))) +(define TTImpC-45ElabC-45ImplicitBind-bindImplVars (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (case (vector-ref arg-2 0) ((2) (cons arg-6 arg-7))(else (let ((u--imps (PreludeC-45Types-u--map_Functor_List (lambda (lamc-0) (let ((e-2 (car lamc-0))) (let ((e-3 (cdr lamc-0))) (cons (TTImpC-45ElabC-45ImplicitBind-n--9716-7721-u--tidyName arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-2) (cons e-2 e-3))))) arg-5))) (TTImpC-45ElabC-45ImplicitBind-n--9716-7722-u--getBinds arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 u--imps (vector 0 ) arg-6 arg-7)))))) +(define TTImpC-45ElabC-45Hole-mkPrecise (lambda (arg-1 arg-2 ext-0) (case (vector-ref arg-2 0) ((1) (let ((e-2 (vector-ref arg-2 2))) (case (vector-ref e-2 0) ((2) (let ((e-6 (vector-ref e-2 2))) (CoreC-45Context-updateDef arg-1 (vector 9 e-6) (lambda (lcase-0) (case (vector-ref lcase-0 0) ((7) (let ((e-0 (vector-ref lcase-0 1))) (let ((e-4 (vector-ref lcase-0 2))) (box (vector 7 e-0 (let ((e-9 (car e-4))) (cons e-9 1)))))))(else '()))) ext-0)))(else (vector 1 0)))))(else (vector 1 0))))) +(define TTImpC-45ElabC-45Hole-checkHole (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 ext-0) (if (null? arg-11) (let ((act-24 (CoreC-45UnifyState-genName arg-1 arg-3 (PreludeC-45TypesC-45String-C-43C-43 "type_of_" arg-10) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((u--envC-39 (CoreC-45Env-letToLam arg-8))) (let ((act-25 (TTImpC-45ElabC-45Check-metaVar arg-0 arg-1 arg-3 arg-9 (AlgebraC-45Semiring-erased (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))) u--envC-39 e-5 (vector 11 arg-9) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Context-inCurrentNS arg-1 (vector 1 arg-10) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (let ((act-27 (unbox arg-1))) (vector 1 act-27)))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (let ((act-28 (let ((act-28 ((CoreC-45Normalise-nf arg-1 arg-0 e-8 u--envC-39 e-6) ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-28 1))) (TTImpC-45ElabC-45Hole-mkPrecise arg-1 e-9 ext-0))))))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((act-29 ((CoreC-45Context-lookupCtxtExact e-7 (let ((e-0 (vector-ref e-8 0))) e-0)) ext-0))) (case (vector-ref act-29 0) ((0) (let ((e-2 (vector-ref act-29 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref act-29 1))) (if (null? e-10) (let ((act-30 (TTImpC-45ElabC-45Check-metaVarI arg-0 arg-1 arg-3 arg-9 arg-5 u--envC-39 e-7 e-6 ext-0))) (case (vector-ref act-30 0) ((0) (let ((e-2 (vector-ref act-30 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref act-30 1))) (let ((e-2 (car e-11))) (let ((e-3 (cdr e-11))) (let ((act-31 (CoreC-45Metadata-withCurrentLHS arg-1 arg-2 (vector 9 e-2) ext-0))) (case (vector-ref act-31 0) ((0) (let ((e-4 (vector-ref act-31 1))) (vector 0 e-4))) (else (let ((act-32 (CoreC-45Metadata-addNameLoc arg-2 arg-1 arg-9 e-7 ext-0))) (case (vector-ref act-32 0) ((0) (let ((e-4 (vector-ref act-32 1))) (vector 0 e-4))) (else (let ((act-33 (CoreC-45Context-addUserHole arg-1 e-7 ext-0))) (case (vector-ref act-33 0) ((0) (let ((e-4 (vector-ref act-33 1))) (vector 0 e-4))) (else (let ((act-34 (TTImpC-45ElabC-45Check-saveHole arg-4 e-7 ext-0))) (case (vector-ref act-34 0) ((0) (let ((e-4 (vector-ref act-34 1))) (vector 0 e-4))) (else (vector 1 (cons e-3 (CoreC-45Normalise-gnf arg-0 arg-8 e-6))))))))))))))))))))) (let ((act-30 (CoreC-45ContextC-45Log-log arg-1 "elab.hole" (+ 1 0) (lambda () (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-7) " already defined")) ext-0))) (case (vector-ref act-30 0) ((0) (let ((e-2 (vector-ref act-30 1))) (vector 0 e-2))) (else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 38 arg-9 e-7) ext-0))))))))))))))))))))))))))))) (let ((e-1 (unbox arg-11))) (let ((act-24 (CoreC-45Context-inCurrentNS arg-1 (vector 1 arg-10) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 ((CoreC-45Context-lookupCtxtExact e-5 (let ((e-0 (vector-ref e-6 0))) e-0)) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (if (null? e-7) (let ((act-27 ((CoreC-45Normalise-getTerm e-1) ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (let ((u--envC-39 (CoreC-45Env-letToLam arg-8))) (let ((act-28 (TTImpC-45ElabC-45Check-metaVarI arg-0 arg-1 arg-3 arg-9 arg-5 u--envC-39 e-5 e-8 ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-28 1))) (let ((e-2 (car e-9))) (let ((e-3 (cdr e-9))) (let ((act-29 (let ((act-29 ((CoreC-45Normalise-getNF arg-1 e-1) ext-0))) (case (vector-ref act-29 0) ((0) (let ((e-4 (vector-ref act-29 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref act-29 1))) (TTImpC-45ElabC-45Hole-mkPrecise arg-1 e-10 ext-0))))))) (case (vector-ref act-29 0) ((0) (let ((e-4 (vector-ref act-29 1))) (vector 0 e-4))) (else (let ((act-30 (CoreC-45Metadata-withCurrentLHS arg-1 arg-2 (vector 9 e-2) ext-0))) (case (vector-ref act-30 0) ((0) (let ((e-4 (vector-ref act-30 1))) (vector 0 e-4))) (else (let ((act-31 (CoreC-45Metadata-addNameLoc arg-2 arg-1 arg-9 e-5 ext-0))) (case (vector-ref act-31 0) ((0) (let ((e-4 (vector-ref act-31 1))) (vector 0 e-4))) (else (let ((act-32 (CoreC-45Context-addUserHole arg-1 e-5 ext-0))) (case (vector-ref act-32 0) ((0) (let ((e-4 (vector-ref act-32 1))) (vector 0 e-4))) (else (let ((act-33 (TTImpC-45ElabC-45Check-saveHole arg-4 e-5 ext-0))) (case (vector-ref act-33 0) ((0) (let ((e-4 (vector-ref act-33 1))) (vector 0 e-4))) (else (vector 1 (cons e-3 e-1)))))))))))))))))))))))))))) (let ((act-27 (CoreC-45ContextC-45Log-log arg-1 "elab.hole" (+ 1 0) (lambda () (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-5) " already defined")) ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 38 arg-9 e-5) ext-0))))))))))))))))))))) +(define TTImpC-45ElabC-45Dot-case--checkDot-6071 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 ext-0) (case (vector-ref arg-13 0) ((1) (let ((act-24 (TTImpC-45ElabC-45Check-check arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 (let ((e-1 (vector-ref arg-7 1))) (let ((e-2 (vector-ref arg-7 2))) (let ((e-3 (vector-ref arg-7 3))) (let ((e-4 (vector-ref arg-7 4))) (let ((e-5 (vector-ref arg-7 5))) (vector (vector 2 ) e-1 e-2 e-3 e-4 e-5)))))) arg-6 arg-5 arg-2 (box arg-1) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((e-2 (car e-5))) (TTImpC-45ElabC-45Dot-registerDot arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-5 arg-4 arg-3 e-2 arg-1 ext-0)))))))(else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-4 (PreludeC-45TypesC-45String-C-43C-43 "Dot pattern not valid here (Not LHS) " (TTImpC-45TTImp-u--show_Show_RawImp arg-2))) ext-0))))) +(define TTImpC-45ElabC-45Dot-registerDot (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 ext-0) (let ((act-24 (CoreC-45UnifyState-genName arg-1 arg-3 "dotTm" ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Normalise-getTerm arg-10) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45ElabC-45Check-metaVar arg-0 arg-1 arg-3 arg-7 arg-5 arg-6 e-5 e-6 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (CoreC-45UnifyState-addDot arg-0 arg-1 arg-3 arg-7 arg-6 e-5 arg-9 arg-8 e-7 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (vector 1 (cons e-7 arg-10))))))))))))))))))) +(define TTImpC-45ElabC-45Dot-checkDot (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (if (null? arg-12) (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-9 (PreludeC-45TypesC-45String-C-43C-43 "Dot pattern not valid here (unknown type) " (TTImpC-45TTImp-u--show_Show_RawImp arg-11))) eta-0)) (let ((e-2 (unbox arg-12))) (lambda (eta-0) (TTImpC-45ElabC-45Dot-case--checkDot-6071 arg-0 e-2 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (let ((e-0 (vector-ref arg-6 0))) e-0) eta-0)))))) +(define TTImpC-45ElabC-45Case-case--checkCaseC-44guessScrType-9261 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (case (vector-ref arg-18 0) ((0) (let ((e-1 (vector-ref arg-18 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-13))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-lookupTyName e-1 (let ((e-31 (vector-ref e-5 0))) e-31) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (if (null? e-6) ((TTImpC-45ElabC-45Case-n--11902-9002-u--guessScrType arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-17) eta-0) (let ((e-3 (car e-6))) (let ((e-2 (cdr e-6))) (if (null? e-3) ((TTImpC-45ElabC-45Case-n--11902-9002-u--guessScrType arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-17) eta-0) (let ((e-7 (cdr e-3))) (if (null? e-7) ((TTImpC-45ElabC-45Case-n--11902-9002-u--guessScrType arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-17) eta-0) (let ((e-10 (cdr e-7))) (if (null? e-2) (let ((act-26 (let ((act-26 ((CoreC-45Normalise-nf arg-13 '() e-5 '() e-10) eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-4 (vector-ref act-26 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref act-26 1))) (TTImpC-45ElabC-45Case-n--11902-9001-u--getRetTy arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-5 e-11 eta-0))))))) (case (vector-ref act-26 0) ((0) (let ((e-4 (vector-ref act-26 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref act-26 1))) (if (null? e-11) ((TTImpC-45ElabC-45Case-n--11902-9002-u--guessScrType arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-17) eta-0) (let ((e-4 (unbox e-11))) (if (null? e-4) ((TTImpC-45ElabC-45Case-n--11902-9002-u--guessScrType arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-17) eta-0) (let ((e-13 (car e-4))) (let ((e-12 (cdr e-4))) ((TTImpC-45ElabC-45Case-n--11902-9000-u--applyTo arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-5 (vector 0 arg-5 e-13) e-12) eta-0)))))))))) ((TTImpC-45ElabC-45Case-n--11902-9002-u--guessScrType arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-17) eta-0))))))))))))))))))))(else (TTImpC-45ElabC-45Case-n--11902-9002-u--guessScrType arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-17))))) +(define TTImpC-45ElabC-45Case-n--9328-6895-u--usedIn (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (case (vector-ref arg-16 0) ((17) (let ((e-1 (vector-ref arg-16 2))) (cons (vector 1 e-1) '()))) ((8) (let ((e-3 (vector-ref arg-16 2))) (let ((e-4 (vector-ref arg-16 3))) (PreludeC-45TypesC-45List-C-43C-43 (TTImpC-45ElabC-45Case-n--9328-6895-u--usedIn arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-3) (TTImpC-45ElabC-45Case-n--9328-6895-u--usedIn arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-4))))) ((18) (let ((e-8 (vector-ref arg-16 4))) (let ((e-9 (vector-ref arg-16 5))) (cons e-8 (TTImpC-45ElabC-45Case-n--9328-6895-u--usedIn arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-9))))) ((13) (let ((e-12 (vector-ref arg-16 3))) (PreludeC-45Interfaces-concatMap (cons (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (cons (lambda (arg-17) (lambda (arg-18) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-17 arg-18))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) (lambda (eta-0) (TTImpC-45ElabC-45Case-n--9328-6895-u--usedIn arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 eta-0)) e-12)))(else '())))) +(define TTImpC-45ElabC-45Case-n--9328-6898-u--updateClause (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (case (vector-ref arg-20 0) ((0) (let ((e-0 (vector-ref arg-20 1))) (let ((e-1 (vector-ref arg-20 2))) (let ((e-2 (vector-ref arg-20 3))) (let ((sc1 (TTImpC-45ElabC-45Case-n--9328-6892-u--addEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-0 0 arg-19 (TTImpC-45ElabC-45Case-n--9328-6895-u--usedIn arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-1)))) (let ((e-4 (car sc1))) (let ((e-3 (cdr sc1))) (let ((u--argsC-39 (TTImpC-45ElabC-45Case-n--9328-6894-u--mkSplit arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-17 e-1 e-3))) (let ((u--lhsC-39 (TTImpC-45TTImp-apply (vector 0 e-0 arg-16) u--argsC-39))) (vector 0 e-0 (TTImpC-45ElabC-45Case-n--9328-6897-u--applyNested arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-18 u--lhsC-39) (TTImpC-45ElabC-45Case-bindCaseLocals e-0 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (TTImpC-45ElabC-45Case-getNestData eta-0)) arg-18) e-4 e-2))))))))))) ((1) (let ((e-3 (vector-ref arg-20 1))) (let ((e-4 (vector-ref arg-20 2))) (let ((e-5 (vector-ref arg-20 3))) (let ((e-6 (vector-ref arg-20 4))) (let ((e-7 (vector-ref arg-20 5))) (let ((e-8 (vector-ref arg-20 6))) (let ((sc1 (TTImpC-45ElabC-45Case-n--9328-6892-u--addEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-0 0 arg-19 (TTImpC-45ElabC-45Case-n--9328-6895-u--usedIn arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-4)))) (let ((e-9 (cdr sc1))) (let ((u--argsC-39 (TTImpC-45ElabC-45Case-n--9328-6894-u--mkSplit arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-17 e-4 e-9))) (let ((u--lhsC-39 (TTImpC-45TTImp-apply (vector 0 e-3 arg-16) u--argsC-39))) (vector 1 e-3 (TTImpC-45ElabC-45Case-n--9328-6897-u--applyNested arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-18 u--lhsC-39) e-5 e-6 e-7 e-8)))))))))))) (else (let ((e-9 (vector-ref arg-20 1))) (let ((e-10 (vector-ref arg-20 2))) (let ((sc1 (TTImpC-45ElabC-45Case-n--9328-6892-u--addEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-0 0 arg-19 (TTImpC-45ElabC-45Case-n--9328-6895-u--usedIn arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-10)))) (let ((e-3 (cdr sc1))) (let ((u--argsC-39 (TTImpC-45ElabC-45Case-n--9328-6894-u--mkSplit arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-17 e-10 e-3))) (let ((u--lhsC-39 (TTImpC-45TTImp-apply (vector 0 e-9 arg-16) u--argsC-39))) (vector 2 e-9 (TTImpC-45ElabC-45Case-n--9328-6897-u--applyNested arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-18 u--lhsC-39)))))))))))) +(define TTImpC-45ElabC-45Case-n--9328-6893-u--replace (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (cond ((equal? arg-16 0) (if (null? arg-18) arg-18 (let ((e-2 (car arg-18))) (let ((e-3 (cdr arg-18))) (let ((u--lhsC-39 (case (vector-ref e-2 0) ((18) (let ((e-0 (vector-ref e-2 1))) (let ((e-1 (vector-ref e-2 2))) (let ((e-6 (vector-ref e-2 3))) (let ((e-5 (vector-ref e-2 4))) (vector 18 e-0 e-1 e-6 e-5 arg-17))))))(else arg-17)))) (cons u--lhsC-39 e-3))))))(else (let ((e-0 (- arg-16 1))) (if (null? arg-18) arg-18 (let ((e-5 (car arg-18))) (let ((e-6 (cdr arg-18))) (cons e-5 (TTImpC-45ElabC-45Case-n--9328-6893-u--replace arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-0 arg-17 e-6)))))))))) +(define TTImpC-45ElabC-45Case-n--9328-6896-u--nestLHS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-17 arg-18) (let ((e-2 (car arg-18))) (let ((e-3 (cdr arg-18))) (let ((e-6 (car e-3))) (let ((e-7 (cdr e-3))) (let ((e-10 (car e-7))) (cons e-2 (TTImpC-45TTImp-apply (vector 0 arg-17 (DataC-45Maybe-fromMaybe (lambda () e-2) e-6)) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (vector 32 arg-17 0)) e-10)))))))))) +(define TTImpC-45ElabC-45Case-n--9328-6894-u--mkSplit (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-17 arg-18 arg-19) (if (null? arg-17) (DataC-45List-reverse (cons arg-18 arg-19)) (let ((e-2 (unbox arg-17))) (DataC-45List-reverse (TTImpC-45ElabC-45Case-n--9328-6893-u--replace arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-2 arg-18 arg-19)))))) +(define TTImpC-45ElabC-45Case-n--11902-9002-u--guessScrType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (if (null? arg-14) (lambda (eta-0) (vector 1 (vector 32 arg-5 0))) (let ((e-2 (car arg-14))) (let ((e-3 (cdr arg-14))) (case (vector-ref e-2 0) ((0) (let ((e-4 (vector-ref e-2 1))) (let ((e-5 (vector-ref e-2 2))) (let ((e-6 (vector-ref e-2 3))) (TTImpC-45ElabC-45Case-case--checkCaseC-44guessScrType-9261 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-4 e-6 e-5 e-3 (TTImpC-45TTImp-getFn e-5))))))(else (TTImpC-45ElabC-45Case-n--11902-9002-u--guessScrType arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-3)))))))) +(define TTImpC-45ElabC-45Case-n--11902-9001-u--getRetTy (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 ext-0) (case (vector-ref arg-15 0) ((0) (let ((e-1 (vector-ref arg-15 1))) (let ((e-3 (vector-ref arg-15 3))) (let ((e-4 (vector-ref arg-15 4))) (case (vector-ref e-3 0) ((2) (let ((act-24 (((e-4 arg-14) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 e-1 0))) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (TTImpC-45ElabC-45Case-n--11902-9001-u--getRetTy arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 e-5 ext-0))))))(else (vector 1 '()))))))) ((3) (let ((e-7 (vector-ref arg-15 2))) (let ((act-24 (CoreC-45Context-lookupTyExact e-7 (let ((e-0 (vector-ref arg-14 0))) e-0) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (if (null? e-5) (vector 1 '()) (let ((e-1 (unbox e-5))) (let ((act-25 ((CoreC-45Normalise-nf arg-13 '() arg-14 '() e-1) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref act-25 1))) (vector 1 (box (cons e-7 e-11)))))))))))))))(else (vector 1 '()))))) +(define TTImpC-45ElabC-45Case-n--9193-6775-u--getNameFrom (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 (TTImpC-45ElabC-45Case-n--9193-6774-u--getArg arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-6 arg-8))) (if (null? sc0) arg-1 (let ((e-2 (unbox sc0))) e-2))))) +(define TTImpC-45ElabC-45Case-n--9328-6891-u--getBindName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (case (vector-ref arg-17 0) ((1) (let ((e-0 (vector-ref arg-17 1))) (let ((u--n (vector 1 e-0))) (let ((sc1 (PreludeC-45Types-elem (cons (lambda (arg-19) (lambda (arg-20) (CoreC-45Name-u--C-61C-61_Eq_Name arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (CoreC-45Name-u--C-47C-61_Eq_Name arg-19 arg-20)))) u--n arg-18))) (cond ((equal? sc1 1) (cons u--n (vector 2 e-0 arg-16))) (else (cons u--n u--n)))))))(else (let ((sc0 (PreludeC-45Types-elem (cons (lambda (arg-19) (lambda (arg-20) (CoreC-45Name-u--C-61C-61_Eq_Name arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (CoreC-45Name-u--C-47C-61_Eq_Name arg-19 arg-20)))) arg-17 arg-18))) (cond ((equal? sc0 1) (cons arg-17 (vector 2 "_cn" arg-16))) (else (cons arg-17 arg-17)))))))) +(define TTImpC-45ElabC-45Case-n--9193-6774-u--getArg (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (if (null? arg-8) '() (let ((e-2 (car arg-8))) (let ((e-3 (cdr arg-8))) (if (null? e-2) (cond ((equal? arg-9 0) (blodwen-error-quit "Nat case not covered"))(else (let ((e-4 (- arg-9 1))) (TTImpC-45ElabC-45Case-n--9193-6774-u--getArg arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-3 e-4)))) (let ((e-8 (cdr e-2))) (cond ((equal? arg-9 0) (box e-8))(else (cond ((equal? arg-9 0) (blodwen-error-quit "Nat case not covered"))(else (let ((e-4 (- arg-9 1))) (TTImpC-45ElabC-45Case-n--9193-6774-u--getArg arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-3 e-4))))))))))))) +(define TTImpC-45ElabC-45Case-n--11902-8999-u--checkConcrete (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-15 ext-0) (case (vector-ref arg-15 0) ((1) (let ((e-2 (vector-ref arg-15 2))) (case (vector-ref e-2 0) ((2) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (TTImpC-45TTImp-getFC arg-4) "Can't infer type for case scrutinee") ext-0))(else (vector 1 0)))))(else (vector 1 0))))) +(define TTImpC-45ElabC-45Case-n--11902-9000-u--applyTo (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (case (vector-ref arg-16 0) ((0) (let ((e-1 (vector-ref arg-16 1))) (let ((e-2 (vector-ref arg-16 2))) (let ((e-3 (vector-ref arg-16 3))) (let ((e-4 (vector-ref arg-16 4))) (lambda (clam-0) (case (vector-ref e-3 0) ((2) (let ((e-8 (vector-ref e-3 3))) (case (vector-ref e-8 0) ((1) (let ((act-24 (((e-4 arg-14) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 e-1 0))) clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) ((TTImpC-45ElabC-45Case-n--11902-9000-u--applyTo arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 (vector 8 e-1 arg-15 (vector 32 e-1 0)) e-5) clam-0))))))(else (let ((act-24 (((e-4 arg-14) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-5 0))) clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) ((TTImpC-45ElabC-45Case-n--11902-9000-u--applyTo arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 (vector 10 arg-5 arg-15 e-2 (vector 32 arg-5 0)) e-5) clam-0)))))))))(else (vector 1 arg-15)))))))))(else (lambda (eta-0) (vector 1 arg-15)))))) +(define TTImpC-45ElabC-45Case-n--9328-6897-u--applyNested (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((u--fc (TTImpC-45TTImp-getFC arg-17))) (TTImpC-45Utils-substNames '() (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (TTImpC-45ElabC-45Case-n--9328-6896-u--nestLHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 u--fc eta-0)) arg-16) arg-17)))) +(define TTImpC-45ElabC-45Case-n--9328-6892-u--addEnv (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (if (null? arg-16) (cons '() '()) (let ((e-2 (car arg-16))) (let ((e-3 (cdr arg-16))) (let ((e-9 (cdr arg-18))) (let ((u--n (TTImpC-45ElabC-45Case-n--9328-6891-u--getBindName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-17 e-2 arg-19))) (let ((sc2 (TTImpC-45ElabC-45Case-n--9328-6892-u--addEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-3 (bs+ arg-17 1 63) e-9 (cons (Builtin-snd u--n) arg-19)))) (let ((e-5 (car sc2))) (let ((e-4 (cdr sc2))) (let ((u--nsC-39 (cons u--n e-5))) (cons u--nsC-39 (cons (vector 18 arg-9 (vector 2 ) 0 (Builtin-snd u--n) (vector 32 arg-9 1)) e-4))))))))))))) +(define TTImpC-45ElabC-45Case-updateMults (lambda (arg-1 arg-2) (if (null? arg-1) arg-2 (let ((e-2 (car arg-1))) (let ((e-3 (cdr arg-1))) (TTImpC-45ElabC-45Case-updateMults e-3 (TTImpC-45ElabC-45Case-toRig0 e-2 arg-2))))))) +(define TTImpC-45ElabC-45Case-toRig1 (lambda (arg-2 arg-4) (cond ((equal? arg-2 0) (let ((e-4 (car arg-4))) (let ((e-5 (cdr arg-4))) (let ((sc2 (AlgebraC-45Semiring-isErased (cons (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-3) (lambda (arg-5) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-3 arg-5))) (lambda (arg-5) (lambda (arg-6) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-5 arg-6))))) (CoreC-45TT-multiplicity e-4)))) (cond ((equal? sc2 1) (cons (CoreC-45TT-setMultiplicity e-4 (AlgebraC-45Semiring-linear (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)))) e-5)) (else (cons e-4 e-5)))))))(else (let ((e-0 (- arg-2 1))) (let ((e-9 (car arg-4))) (let ((e-10 (cdr arg-4))) (cons e-9 (TTImpC-45ElabC-45Case-toRig1 e-0 e-10))))))))) +(define TTImpC-45ElabC-45Case-toRig0 (lambda (arg-2 arg-4) (cond ((equal? arg-2 0) (let ((e-4 (car arg-4))) (let ((e-5 (cdr arg-4))) (cons (CoreC-45TT-setMultiplicity e-4 (AlgebraC-45Semiring-erased (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)))) e-5))))(else (let ((e-0 (- arg-2 1))) (let ((e-9 (car arg-4))) (let ((e-10 (cdr arg-4))) (cons e-9 (TTImpC-45ElabC-45Case-toRig0 e-0 e-10))))))))) +(define TTImpC-45ElabC-45Case-getNestData (lambda (arg-2) (let ((e-2 (car arg-2))) (let ((e-3 (cdr arg-2))) (let ((e-6 (car e-3))) (let ((e-7 (cdr e-3))) (let ((e-10 (car e-7))) (cons e-2 (cons e-6 e-10))))))))) +(define TTImpC-45ElabC-45Case-findScrutinee (lambda (arg-0 arg-1 arg-2) (if (null? arg-0) '() (let ((e-1 (car arg-0))) (let ((e-2 (cdr arg-0))) (if (null? arg-1) '() (let ((e-6 (car arg-1))) (let ((e-7 (cdr arg-1))) (case (vector-ref arg-2 0) ((0) (let ((e-8 (vector-ref arg-2 1))) (let ((e-9 (vector-ref arg-2 2))) (let ((sc3 (let ((sc4 (CoreC-45Name-u--C-61C-61_Eq_Name e-1 e-9))) (cond ((equal? sc4 1) (let ((sc5 (CoreC-45TT-isLet e-6))) (cond ((equal? sc5 1) 0) (else 1)))) (else 0))))) (cond ((equal? sc3 1) (box 0)) (else (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (TTImpC-45ElabC-45Case-findScrutinee e-2 e-7 (vector 0 e-8 e-9)) (lambda (_-0) (box (+ 1 _-0))))))))))(else '())))))))))) +(define TTImpC-45ElabC-45Case-findImpsIn (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (case (vector-ref arg-4 0) ((3) (let ((e-2 (vector-ref arg-4 2))) (let ((e-3 (vector-ref arg-4 3))) (let ((e-4 (vector-ref arg-4 4))) (case (vector-ref e-3 0) ((2) (let ((e-8 (vector-ref e-3 3))) (let ((e-9 (vector-ref e-3 4))) (case (vector-ref e-8 0) ((0) (TTImpC-45ElabC-45Case-findImpsIn (cons e-2 arg-0) arg-1 (cons e-3 arg-2) (cons (cons e-2 (CoreC-45TT-u--weaken_Weaken_Term e-9)) (PreludeC-45Types-u--map_Functor_List (lambda (u--x) (cons (Builtin-fst u--x) (CoreC-45TT-u--weaken_Weaken_Term (Builtin-snd u--x)))) arg-3)) e-4))(else (TTImpC-45ElabC-45Case-findImpsIn (cons e-2 arg-0) arg-1 (cons e-3 arg-2) (PreludeC-45Types-u--map_Functor_List (lambda (u--x) (cons (Builtin-fst u--x) (CoreC-45TT-u--weaken_Weaken_Term (Builtin-snd u--x)))) arg-3) e-4))))))(else (TTImpC-45ElabC-45Case-findImpsIn (cons e-2 arg-0) arg-1 (cons e-3 arg-2) (PreludeC-45Types-u--map_Functor_List (lambda (u--x) (cons (Builtin-fst u--x) (CoreC-45TT-u--weaken_Weaken_Term (Builtin-snd u--x)))) arg-3) e-4)))))))(else (lambda (clam-0) (let ((sc0 (DataC-45List-isNil arg-3))) (cond ((equal? sc0 1) (vector 1 0)) (else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 27 arg-0 arg-1 arg-2 (DataC-45List-reverse arg-3)) clam-0))))))))) +(define TTImpC-45ElabC-45Case-explicitPi (lambda (arg-1) (if (null? arg-1) '() (let ((e-3 (car arg-1))) (let ((e-4 (cdr arg-1))) (case (vector-ref e-3 0) ((2) (let ((e-7 (vector-ref e-3 1))) (let ((e-8 (vector-ref e-3 2))) (let ((e-10 (vector-ref e-3 4))) (cons (vector 2 e-7 e-8 (vector 1 ) e-10) (TTImpC-45ElabC-45Case-explicitPi e-4))))))(else (cons e-3 (TTImpC-45ElabC-45Case-explicitPi e-4))))))))) +(define TTImpC-45ElabC-45Case-checkCase (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 ext-0) (TTImpC-45ElabC-45Delayed-delayElab arg-0 arg-1 arg-2 arg-3 arg-4 arg-9 arg-5 arg-8 arg-13 0 (lambda (eta-0) (let ((act-24 (case (vector-ref arg-11 0) ((32) ((TTImpC-45ElabC-45Case-n--11902-9002-u--guessScrType arg-0 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-12) eta-0))(else (vector 1 arg-11))))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (TTImpC-45ElabC-45Check-check arg-0 arg-1 arg-2 arg-3 arg-4 (AlgebraC-45Semiring-erased (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))) arg-6 arg-7 arg-8 e-5 (box (CoreC-45Normalise-gType arg-9)) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((e-2 (car e-6))) (let ((act-26 (CoreC-45ContextC-45Log-logTerm arg-0 arg-1 "elab.case" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected scrutinee type") e-2 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-4 (vector-ref act-26 1))) (vector 0 e-4))) (else (let ((u--chrig (let ((sc4 (AlgebraC-45Semiring-isErased (cons (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-14) (lambda (arg-15) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-14 arg-15))) (lambda (arg-14) (lambda (arg-15) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-14 arg-15))))) arg-5))) (cond ((equal? sc4 1) (AlgebraC-45Semiring-erased (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)))) (else (AlgebraC-45ZeroOneOmega-u--top_Top_ZeroOneOmega)))))) (let ((act-27 (CoreC-45ContextC-45Log-log arg-1 "elab.case" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Checking " (PreludeC-45TypesC-45String-C-43C-43 (TTImpC-45TTImp-u--show_Show_RawImp arg-10) (PreludeC-45TypesC-45String-C-43C-43 " at " (AlgebraC-45ZeroOneOmega-u--show_Show_ZeroOneOmega u--chrig))))) eta-0))) (case (vector-ref act-27 0) ((0) (let ((e-4 (vector-ref act-27 1))) (vector 0 e-4))) (else (let ((act-28 (TTImpC-45ElabC-45Check-handle arg-0 arg-1 arg-2 arg-3 arg-4 (lambda (eta-1) (let ((act-28 (TTImpC-45ElabC-45Delayed-runDelays arg-0 arg-1 arg-2 arg-3 arg-4 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda (eta-2) (TTImpC-45ElabC-45Check-check arg-0 arg-1 arg-2 arg-3 arg-4 u--chrig arg-6 arg-7 arg-8 arg-10 (box (CoreC-45Normalise-gnf arg-0 arg-8 e-2)) eta-2)) eta-1))) (case (vector-ref act-28 0) ((0) (let ((e-4 (vector-ref act-28 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref act-28 1))) (vector 1 (cons (Builtin-fst e-9) (cons (Builtin-snd e-9) u--chrig)))))))) (lambda (lcase-0) (case (vector-ref lcase-0 0) ((14) (let ((e-9 (vector-ref lcase-0 3))) (AlgebraC-45Semiring-branchOne (cons (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-14) (lambda (arg-15) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-14 arg-15))) (lambda (arg-14) (lambda (arg-15) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-14 arg-15))))) (lambda () (lambda (eta-1) (let ((act-28 (TTImpC-45ElabC-45Delayed-runDelays arg-0 arg-1 arg-2 arg-3 arg-4 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda (eta-2) (TTImpC-45ElabC-45Check-check arg-0 arg-1 arg-2 arg-3 arg-4 (AlgebraC-45Semiring-linear (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))) arg-6 arg-7 arg-8 arg-10 (box (CoreC-45Normalise-gnf arg-0 arg-8 e-2)) eta-2)) eta-1))) (case (vector-ref act-28 0) ((0) (let ((e-10 (vector-ref act-28 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-28 1))) (vector 1 (cons (Builtin-fst e-10) (cons (Builtin-snd e-10) (AlgebraC-45Semiring-linear (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)))))))))))) (lambda () (lambda (eta-1) (CoreC-45Core-u--throw_Catchable_Core_Error lcase-0 eta-1))) e-9)))(else (lambda (eta-1) (CoreC-45Core-u--throw_Catchable_Core_Error lcase-0 eta-1))))) eta-0))) (case (vector-ref act-28 0) ((0) (let ((e-4 (vector-ref act-28 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref act-28 1))) (let ((e-10 (car e-9))) (let ((e-4 (cdr e-9))) (let ((e-12 (car e-4))) (let ((e-11 (cdr e-4))) (let ((act-29 ((CoreC-45Normalise-getTerm e-12) eta-0))) (case (vector-ref act-29 0) ((0) (let ((e-13 (vector-ref act-29 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref act-29 1))) (let ((act-30 (CoreC-45Normalise-logTermNF arg-0 arg-1 "elab.case" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Scrutinee type") arg-8 e-13 eta-0))) (case (vector-ref act-30 0) ((0) (let ((e-14 (vector-ref act-30 1))) (vector 0 e-14))) (else (let ((act-31 (let ((act-31 (unbox arg-1))) (vector 1 act-31)))) (case (vector-ref act-31 0) ((0) (let ((e-15 (vector-ref act-31 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref act-31 1))) (let ((act-32 (let ((act-32 ((CoreC-45Normalise-nf arg-1 arg-0 e-15 arg-8 e-13) eta-0))) (case (vector-ref act-32 0) ((0) (let ((e-16 (vector-ref act-32 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref act-32 1))) (TTImpC-45ElabC-45Case-n--11902-8999-u--checkConcrete arg-0 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-16 eta-0))))))) (case (vector-ref act-32 0) ((0) (let ((e-16 (vector-ref act-32 1))) (vector 0 e-16))) (else (TTImpC-45ElabC-45Case-caseBlock arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-9 arg-7 arg-8 arg-10 e-10 e-13 e-11 arg-12 arg-13 eta-0)))))))))))))))))))))))))))))))))))))))) ext-0))) +(define TTImpC-45ElabC-45Case-caseBlock (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 ext-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (TTImpC-45ElabC-45ImplicitBind-getToBind arg-0 arg-1 arg-4 arg-3 arg-7 (let ((e-0 (vector-ref arg-6 0))) e-0) (let ((e-1 (vector-ref arg-6 1))) e-1) arg-9 '() ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45ContextC-45Log-log arg-1 "elab.case" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Doing a case under unbound implicits " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (CoreC-45Name-u--show_Show_Name x-0)) (lambda (u--d) (lambda (x-0) (CoreC-45Name-u--showPrec_Show_Name u--d x-0)))) (cons (lambda (x-0) (TTImpC-45ElabC-45Check-u--show_Show_C-40ImplBindingC-32C-36varsC-41 x-0)) (lambda (u--d) (lambda (x-0) (TTImpC-45ElabC-45Check-u--showPrec_Show_C-40ImplBindingC-32C-36varsC-41 u--d x-0))))) u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (CoreC-45Name-u--show_Show_Name x-0)) (lambda (d-0) (lambda (x-0) (CoreC-45Name-u--showPrec_Show_Name d-0 x-0)))) (cons (lambda (x-0) (TTImpC-45ElabC-45Check-u--show_Show_C-40ImplBindingC-32C-36varsC-41 x-0)) (lambda (d-0) (lambda (x-0) (TTImpC-45ElabC-45Check-u--showPrec_Show_C-40ImplBindingC-32C-36varsC-41 d-0 x-0))))) u--d u--x)))) e-6))) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((act-27 (CoreC-45UnifyState-genVarName arg-1 arg-3 "scr" ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (let ((act-28 (let ((act-28 (CoreC-45Context-toFullNames arg-1 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-0))))) (vector 9 (let ((e-2 (vector-ref e-5 1))) e-2)) ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-28 1))) (let ((act-29 ((CoreC-45Context-prettyName arg-1 e-9) ext-0))) (case (vector-ref act-29 0) ((0) (let ((e-2 (vector-ref act-29 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref act-29 1))) (CoreC-45UnifyState-genCaseName arg-1 arg-3 e-10 ext-0))))))))))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-28 1))) (let ((u--env (TTImpC-45ElabC-45Case-updateMults (let ((e-12 (vector-ref e-5 11))) e-12) arg-9))) (let ((act-29 (let ((act-29 (unbox arg-1))) (vector 1 act-29)))) (case (vector-ref act-29 0) ((0) (let ((e-2 (vector-ref act-29 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref act-29 1))) (let ((act-30 ((CoreC-45Context-lookupCtxtExact (vector 9 (let ((e-2 (vector-ref e-5 1))) e-2)) (let ((e-0 (vector-ref e-10 0))) e-0)) ext-0))) (case (vector-ref act-30 0) ((0) (let ((e-2 (vector-ref act-30 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref act-30 1))) (let ((u--vis (if (null? e-11) 2 (let ((e-1 (unbox e-11))) (let ((sc8 (CoreC-45TT-u--C-61C-61_Eq_Visibility (let ((e-23 (vector-ref e-1 9))) e-23) 2))) (cond ((equal? sc8 1) 2) (else 0))))))) (let ((u--splitOn (TTImpC-45ElabC-45Case-findScrutinee arg-0 u--env arg-10))) (let ((act-31 (if (null? arg-15) (let ((act-31 (CoreC-45UnifyState-genName arg-1 arg-3 "caseTy" ext-0))) (case (vector-ref act-31 0) ((0) (let ((e-2 (vector-ref act-31 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref act-31 1))) (TTImpC-45ElabC-45Check-metaVar arg-0 arg-1 arg-3 arg-7 (AlgebraC-45Semiring-erased (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))) u--env e-12 (vector 11 arg-7) ext-0))))) (let ((e-1 (unbox arg-15))) ((CoreC-45Normalise-getTerm e-1) ext-0))))) (case (vector-ref act-31 0) ((0) (let ((e-2 (vector-ref act-31 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref act-31 1))) (let ((act-32 (TTImpC-45ElabC-45ImplicitBind-bindImplicits arg-1 arg-0 arg-7 (let ((e-1 (vector-ref arg-6 1))) e-1) e-10 u--env e-6 e-12 (vector 11 arg-7) ext-0))) (case (vector-ref act-32 0) ((0) (let ((e-2 (vector-ref act-32 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref act-32 1))) (let ((e-2 (car e-13))) (let ((u--casefnty (CoreC-45Env-abstractFullEnvType arg-0 arg-7 (TTImpC-45ElabC-45Case-allow u--splitOn (TTImpC-45ElabC-45Case-explicitPi u--env)) (PreludeC-45Types-maybe (lambda () (vector 3 arg-7 e-8 (vector 2 arg-7 arg-13 (vector 1 ) arg-12) (CoreC-45TT-u--weaken_Weaken_Term e-2))) (lambda () (lambda (eta-0) e-2)) u--splitOn)))) (let ((act-33 (TTImpC-45ElabC-45Utils-findErased arg-1 u--casefnty ext-0))) (case (vector-ref act-33 0) ((0) (let ((e-4 (vector-ref act-33 1))) (vector 0 e-4))) (else (let ((e-14 (vector-ref act-33 1))) (let ((e-15 (car e-14))) (let ((act-34 (CoreC-45Normalise-logEnv arg-0 arg-1 "elab.case" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) "Case env" u--env ext-0))) (case (vector-ref act-34 0) ((0) (let ((e-16 (vector-ref act-34 1))) (vector 0 e-16))) (else (let ((act-35 (CoreC-45Normalise-logTermNF '() arg-1 "elab.case" (+ 1 (+ 1 0)) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Case function type: " (CoreC-45Name-u--show_Show_Name e-9))) '() u--casefnty ext-0))) (case (vector-ref act-35 0) ((0) (let ((e-17 (vector-ref act-35 1))) (vector 0 e-17))) (else (let ((act-36 (let ((sc14 (DataC-45List-isNil e-6))) (cond ((equal? sc14 1) (vector 1 0)) (else ((TTImpC-45ElabC-45Case-findImpsIn '() arg-7 '() '() u--casefnty) ext-0)))))) (case (vector-ref act-36 0) ((0) (let ((e-18 (vector-ref act-36 1))) (vector 0 e-18))) (else (let ((act-37 (CoreC-45Context-addDef arg-1 e-9 (let ((sc15 (CoreC-45Context-newDef arg-7 e-9 (let ((sc16 (AlgebraC-45Semiring-isErased (cons (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-16) (lambda (arg-17) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-16 arg-17))) (lambda (arg-16) (lambda (arg-17) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-16 arg-17))))) arg-5))) (cond ((equal? sc16 1) (AlgebraC-45Semiring-erased (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)))) (else (AlgebraC-45ZeroOneOmega-u--top_Top_ZeroOneOmega)))) '() u--casefnty u--vis (vector 0 )))) (let ((e-0 (vector-ref sc15 0))) (let ((e-1 (vector-ref sc15 1))) (let ((e-37 (vector-ref sc15 2))) (let ((e-35 (vector-ref sc15 4))) (let ((e-34 (vector-ref sc15 5))) (let ((e-33 (vector-ref sc15 6))) (let ((e-32 (vector-ref sc15 7))) (let ((e-31 (vector-ref sc15 8))) (let ((e-30 (vector-ref sc15 9))) (let ((e-29 (vector-ref sc15 10))) (let ((e-28 (vector-ref sc15 11))) (let ((e-27 (vector-ref sc15 12))) (let ((e-26 (vector-ref sc15 13))) (let ((e-25 (vector-ref sc15 14))) (let ((e-24 (vector-ref sc15 15))) (let ((e-23 (vector-ref sc15 16))) (let ((e-22 (vector-ref sc15 17))) (let ((e-21 (vector-ref sc15 18))) (let ((e-19 (vector-ref sc15 19))) (let ((e-20 (vector-ref sc15 20))) (vector e-0 e-1 e-37 e-15 e-35 e-34 e-33 e-32 e-31 e-30 e-29 e-28 e-27 e-26 e-25 e-24 e-23 e-22 e-21 e-19 e-20)))))))))))))))))))))) ext-0))) (case (vector-ref act-37 0) ((0) (let ((e-19 (vector-ref act-37 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref act-37 1))) (let ((act-38 (CoreC-45Context-setFlag arg-1 arg-7 (vector 9 e-19) (vector 4 2) ext-0))) (case (vector-ref act-38 0) ((0) (let ((e-20 (vector-ref act-38 1))) (vector 0 e-20))) (else (let ((u--caseRef (vector 1 arg-7 (vector 1 ) (vector 9 e-19)))) (let ((u--applyEnv (CoreC-45UnifyState-applyToFull arg-0 arg-7 u--caseRef u--env))) (let ((u--appTm (PreludeC-45Types-maybe (lambda () (vector 4 arg-7 u--applyEnv arg-11)) (lambda () (lambda (eta-0) u--applyEnv)) u--splitOn))) (let ((u--altsC-39 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (TTImpC-45ElabC-45Case-n--9328-6898-u--updateClause arg-0 arg-15 arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-9 u--splitOn arg-8 u--env eta-0)) arg-14))) (let ((act-39 (CoreC-45ContextC-45Log-log arg-1 "elab.case" (+ 1 (+ 1 0)) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Nested: " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (CoreC-45Name-u--show_Show_Name x-0)) (lambda (u--d) (lambda (x-0) (CoreC-45Name-u--showPrec_Show_Name u--d x-0)))) (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (x-2) (CoreC-45Name-u--show_Show_Name x-2)) (lambda (u--d) (lambda (x-2) (CoreC-45Name-u--showPrec_Show_Name u--d x-2)))) x-1)) (lambda (u--d) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (x-2) (CoreC-45Name-u--show_Show_Name x-2)) (lambda (d-0) (lambda (x-2) (CoreC-45Name-u--showPrec_Show_Name d-0 x-2)))) u--d x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40VarC-32C-36nsC-41 x-2)) (lambda (u--d) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40VarC-32C-36nsC-41 u--d x-2)))) x-1)) (lambda (u--d) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40ListC-32C-36aC-41 (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40VarC-32C-36nsC-41 x-2)) (lambda (d-0) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40VarC-32C-36nsC-41 d-0 x-2)))) u--d x-1))))) x-0)) (lambda (u--d) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (x-2) (CoreC-45Name-u--show_Show_Name x-2)) (lambda (d-0) (lambda (x-2) (CoreC-45Name-u--showPrec_Show_Name d-0 x-2)))) x-1)) (lambda (d-0) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (x-2) (CoreC-45Name-u--show_Show_Name x-2)) (lambda (d-1) (lambda (x-2) (CoreC-45Name-u--showPrec_Show_Name d-1 x-2)))) d-0 x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40VarC-32C-36nsC-41 x-2)) (lambda (d-0) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40VarC-32C-36nsC-41 d-0 x-2)))) x-1)) (lambda (d-0) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40ListC-32C-36aC-41 (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40VarC-32C-36nsC-41 x-2)) (lambda (d-1) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40VarC-32C-36nsC-41 d-1 x-2)))) d-0 x-1))))) u--d x-0))))) u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (CoreC-45Name-u--show_Show_Name x-0)) (lambda (d-0) (lambda (x-0) (CoreC-45Name-u--showPrec_Show_Name d-0 x-0)))) (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (x-2) (CoreC-45Name-u--show_Show_Name x-2)) (lambda (d-0) (lambda (x-2) (CoreC-45Name-u--showPrec_Show_Name d-0 x-2)))) x-1)) (lambda (d-0) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (x-2) (CoreC-45Name-u--show_Show_Name x-2)) (lambda (d-1) (lambda (x-2) (CoreC-45Name-u--showPrec_Show_Name d-1 x-2)))) d-0 x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40VarC-32C-36nsC-41 x-2)) (lambda (d-0) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40VarC-32C-36nsC-41 d-0 x-2)))) x-1)) (lambda (d-0) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40ListC-32C-36aC-41 (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40VarC-32C-36nsC-41 x-2)) (lambda (d-1) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40VarC-32C-36nsC-41 d-1 x-2)))) d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (x-2) (CoreC-45Name-u--show_Show_Name x-2)) (lambda (d-1) (lambda (x-2) (CoreC-45Name-u--showPrec_Show_Name d-1 x-2)))) x-1)) (lambda (d-1) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (x-2) (CoreC-45Name-u--show_Show_Name x-2)) (lambda (d-2) (lambda (x-2) (CoreC-45Name-u--showPrec_Show_Name d-2 x-2)))) d-1 x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40VarC-32C-36nsC-41 x-2)) (lambda (d-1) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40VarC-32C-36nsC-41 d-1 x-2)))) x-1)) (lambda (d-1) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40ListC-32C-36aC-41 (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40VarC-32C-36nsC-41 x-2)) (lambda (d-2) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40VarC-32C-36nsC-41 d-2 x-2)))) d-1 x-1))))) d-0 x-0))))) u--d u--x)))) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (TTImpC-45ElabC-45Case-getNestData eta-0)) arg-8)))) ext-0))) (case (vector-ref act-39 0) ((0) (let ((e-21 (vector-ref act-39 1))) (vector 0 e-21))) (else (let ((act-40 (CoreC-45ContextC-45Log-log arg-1 "elab.case" (+ 1 (+ 1 0)) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Generated alts: " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (TTImpC-45TTImp-u--show_Show_ImpClause u--x)) (lambda (u--d) (lambda (u--x) (TTImpC-45TTImp-u--showPrec_Show_ImpClause u--d u--x)))) u--altsC-39))) ext-0))) (case (vector-ref act-40 0) ((0) (let ((e-22 (vector-ref act-40 1))) (vector 0 e-22))) (else (let ((act-41 (CoreC-45Normalise-logTermNF arg-0 arg-1 "elab.case" (+ 1 (+ 1 0)) (lambda () "Case application") u--env u--appTm ext-0))) (case (vector-ref act-41 0) ((0) (let ((e-23 (vector-ref act-41 1))) (vector 0 e-23))) (else (let ((u--nestC-39 '())) (let ((act-42 (let ((act-42 (unbox arg-3))) (vector 1 act-42)))) (case (vector-ref act-42 0) ((0) (let ((e-24 (vector-ref act-42 1))) (vector 0 e-24))) (else (let ((e-24 (vector-ref act-42 1))) (let ((u--olddelayed (let ((e-26 (vector-ref e-24 10))) e-26))) (let ((act-43 (let ((act-43 (set-box! arg-3 (let ((e-0 (vector-ref e-24 0))) (let ((e-1 (vector-ref e-24 1))) (let ((e-34 (vector-ref e-24 2))) (let ((e-33 (vector-ref e-24 3))) (let ((e-32 (vector-ref e-24 4))) (let ((e-31 (vector-ref e-24 5))) (let ((e-30 (vector-ref e-24 6))) (let ((e-29 (vector-ref e-24 7))) (let ((e-28 (vector-ref e-24 8))) (let ((e-27 (vector-ref e-24 9))) (let ((e-25 (vector-ref e-24 11))) (vector e-0 e-1 e-34 e-33 e-32 e-31 e-30 e-29 e-28 e-27 '() e-25))))))))))))))) (vector 1 act-43)))) (case (vector-ref act-43 0) ((0) (let ((e-25 (vector-ref act-43 1))) (vector 0 e-25))) (else (let ((act-44 ((TTImpC-45ElabC-45Check-processDecl '() arg-1 arg-2 arg-3 (cons 1 '()) u--nestC-39 '() (vector 2 arg-7 e-9 u--altsC-39)) ext-0))) (case (vector-ref act-44 0) ((0) (let ((e-26 (vector-ref act-44 1))) (vector 0 e-26))) (else (let ((u--inlineOK (PreludeC-45Types-maybe (lambda () 0) (lambda () (lambda (eta-0) 1)) u--splitOn))) (let ((act-45 (cond ((equal? u--inlineOK 1) (CoreC-45Context-setFlag arg-1 arg-7 e-9 (vector 0 ) ext-0)) (else (vector 1 0))))) (case (vector-ref act-45 0) ((0) (let ((e-27 (vector-ref act-45 1))) (vector 0 e-27))) (else (let ((act-46 (let ((act-46 (unbox arg-3))) (vector 1 act-46)))) (case (vector-ref act-46 0) ((0) (let ((e-28 (vector-ref act-46 1))) (vector 0 e-28))) (else (let ((e-28 (vector-ref act-46 1))) (let ((act-47 (let ((act-47 (set-box! arg-3 (let ((e-0 (vector-ref e-28 0))) (let ((e-1 (vector-ref e-28 1))) (let ((e-38 (vector-ref e-28 2))) (let ((e-37 (vector-ref e-28 3))) (let ((e-36 (vector-ref e-28 4))) (let ((e-35 (vector-ref e-28 5))) (let ((e-34 (vector-ref e-28 6))) (let ((e-33 (vector-ref e-28 7))) (let ((e-32 (vector-ref e-28 8))) (let ((e-31 (vector-ref e-28 9))) (let ((e-29 (vector-ref e-28 11))) (vector e-0 e-1 e-38 e-37 e-36 e-35 e-34 e-33 e-32 e-31 u--olddelayed e-29))))))))))))))) (vector 1 act-47)))) (case (vector-ref act-47 0) ((0) (let ((e-29 (vector-ref act-47 1))) (vector 0 e-29))) (else (vector 1 (cons u--appTm (CoreC-45Normalise-gnf arg-0 u--env e-2)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) +(define TTImpC-45ElabC-45Case-bindCaseLocals (lambda (arg-1 arg-2 arg-3 arg-4) (if (null? arg-2) arg-4 (let ((e-2 (car arg-2))) (let ((e-3 (cdr arg-2))) (let ((e-6 (car e-2))) (let ((e-7 (cdr e-2))) (let ((e-10 (car e-7))) (let ((e-11 (cdr e-7))) (vector 6 arg-1 e-6 (DataC-45Maybe-fromMaybe (lambda () e-6) e-10) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (TTImpC-45ElabC-45Case-n--9193-6775-u--getNameFrom e-6 e-10 e-11 e-3 arg-4 arg-3 arg-1 eta-0)) e-11) (TTImpC-45ElabC-45Case-bindCaseLocals arg-1 e-3 arg-3 arg-4))))))))))) +(define TTImpC-45ElabC-45Case-allow (lambda (arg-1 arg-2) (if (null? arg-1) arg-2 (let ((e-2 (unbox arg-1))) (TTImpC-45ElabC-45Case-toRig1 e-2 arg-2))))) +(define TTImpC-45ElabC-45Binders-n--9353-14928-u--linearErr (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (case (vector-ref arg-17 0) ((14) (let ((e-2 (vector-ref arg-17 3))) (box e-2))) ((62) (let ((e-6 (vector-ref arg-17 3))) (TTImpC-45ElabC-45Binders-n--9353-14928-u--linearErr arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 e-6))) ((63) (let ((e-9 (vector-ref arg-17 3))) (TTImpC-45ElabC-45Binders-n--9353-14928-u--linearErr arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 e-9))) ((64) (let ((e-12 (vector-ref arg-17 3))) (TTImpC-45ElabC-45Binders-n--9353-14928-u--linearErr arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 e-12))) ((65) (let ((e-15 (vector-ref arg-17 3))) (TTImpC-45ElabC-45Binders-n--9353-14928-u--linearErr arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 e-15)))(else '())))) +(define TTImpC-45ElabC-45Binders-n--7819-13658-u--getRig (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (case (vector-ref arg-16 0) ((1) arg-11)(else (AlgebraC-45Semiring-erased (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))))))) +(define TTImpC-45ElabC-45Binders-n--7618-13469-u--drop (lambda (arg-1 arg-2 arg-4) (if (null? arg-4) '() (let ((e-2 (car arg-4))) (let ((e-3 (cdr arg-4))) (let ((e-6 (car e-2))) (let ((e-7 (cdr e-2))) (let ((sc2 (CoreC-45Name-u--C-61C-61_Eq_Name e-6 arg-2))) (cond ((equal? sc2 1) (TTImpC-45ElabC-45Binders-n--7618-13469-u--drop arg-1 arg-2 e-3)) (else (cons (cons e-6 e-7) (TTImpC-45ElabC-45Binders-n--7618-13469-u--drop arg-1 arg-2 e-3)))))))))))) +(define TTImpC-45ElabC-45Binders-weakenExp (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (if (null? arg-3) (vector 1 '()) (let ((e-2 (unbox arg-3))) (let ((act-24 ((CoreC-45Normalise-getTerm e-2) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (box (CoreC-45Normalise-gnf (cons arg-0 arg-1) arg-2 (CoreC-45TT-u--weaken_Weaken_Term e-5)))))))))))) +(define TTImpC-45ElabC-45Binders-inferLambda (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 ext-0) (let ((act-24 (TTImpC-45ElabC-45Binders-findLamRig arg-1 arg-15 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((u--rigb (AlgebraC-45Preorder-glb (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-60C-61_Preorder_ZeroOneOmega arg-333 arg-334))) (lambda (u--x) (AlgebraC-45ZeroOneOmega-u--preorderRefl_Preorder_ZeroOneOmega u--x)) (lambda (u--x) (lambda (u--y) (lambda (u--z) (lambda (arg-338) (lambda (arg-342) (AlgebraC-45ZeroOneOmega-u--preorderTrans_Preorder_ZeroOneOmega u--x u--y u--z arg-338 arg-342))))))) e-5 arg-10))) (let ((act-25 (TTImpC-45ElabC-45Check-check arg-0 arg-1 arg-2 arg-3 arg-4 (AlgebraC-45Semiring-erased (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))) arg-6 arg-7 arg-8 arg-13 (box (CoreC-45Normalise-gType arg-9)) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((e-2 (car e-6))) (let ((act-26 (TTImpC-45ElabC-45Binders-checkPiInfo arg-0 arg-1 arg-2 arg-3 arg-4 arg-10 arg-6 arg-7 arg-8 arg-11 (box (CoreC-45Normalise-gnf arg-0 arg-8 e-2)) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-4 (vector-ref act-26 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref act-26 1))) (let ((u--envC-39 (cons (vector 0 arg-9 u--rigb e-7 e-2) arg-8))) (let ((u--nestC-39 (TTImpC-45TTImp-u--weaken_Weaken_NestedNames (TTImpC-45ElabC-45Binders-dropName arg-12 arg-7)))) (let ((act-27 (TTImpC-45ElabC-45Check-inScope arg-12 arg-0 arg-1 arg-4 arg-9 u--envC-39 (lambda (u--eC-39) (lambda (eta-0) (TTImpC-45ElabC-45Check-check (cons arg-12 arg-0) arg-1 arg-2 arg-3 u--eC-39 arg-5 arg-6 u--nestC-39 u--envC-39 arg-14 '() eta-0))) ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-4 (vector-ref act-27 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref act-27 1))) (let ((e-9 (car e-8))) (let ((e-4 (cdr e-8))) (let ((act-28 ((CoreC-45Normalise-getTerm e-4) ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-10 (vector-ref act-28 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-28 1))) (let ((u--lamty (CoreC-45Normalise-gnf arg-0 arg-8 (vector 3 arg-9 arg-12 (vector 2 arg-9 u--rigb e-7 e-2) e-10)))) (let ((act-29 (CoreC-45Normalise-logGlue arg-0 arg-1 "elab.binder" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Inferred lambda type") arg-8 u--lamty ext-0))) (case (vector-ref act-29 0) ((0) (let ((e-11 (vector-ref act-29 1))) (vector 0 e-11))) (else (let ((act-30 ((PreludeC-45Types-maybe (lambda () (lambda (eta-0) (vector 1 0))) (lambda () (lambda (eta-0) (lambda (eta-1) (CoreC-45Normalise-logGlueNF arg-0 arg-1 "elab.binder" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Expected lambda type") arg-8 eta-0 eta-1)))) arg-15) ext-0))) (case (vector-ref act-30 0) ((0) (let ((e-12 (vector-ref act-30 1))) (vector 0 e-12))) (else (TTImpC-45ElabC-45Check-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 (vector 3 arg-9 arg-12 (vector 0 arg-9 u--rigb e-7 e-2) e-9) u--lamty arg-15 ext-0)))))))))))))))))))))))))))))))))))) +(define TTImpC-45ElabC-45Binders-getTyNF (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (case (vector-ref arg-3 0) ((3) (vector 1 arg-3))(else (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Normalise-nf arg-1 arg-0 e-5 arg-2 arg-3) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Context-clearDefs e-5 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (CoreC-45Normalise-u--quote_Quote_NF arg-1 arg-0 e-7 arg-2 e-6 ext-0))))))))))))))))) +(define TTImpC-45ElabC-45Binders-findLamRig (lambda (arg-1 arg-2 ext-0) (if (null? arg-2) (vector 1 (AlgebraC-45ZeroOneOmega-u--top_Top_ZeroOneOmega)) (let ((e-2 (unbox arg-2))) (let ((act-24 ((CoreC-45Normalise-getNF arg-1 e-2) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref act-24 1))) (case (vector-ref e-5 0) ((0) (let ((e-3 (vector-ref e-5 3))) (case (vector-ref e-3 0) ((2) (let ((e-7 (vector-ref e-3 2))) (vector 1 e-7)))(else (vector 1 (AlgebraC-45ZeroOneOmega-u--top_Top_ZeroOneOmega))))))(else (vector 1 (AlgebraC-45ZeroOneOmega-u--top_Top_ZeroOneOmega)))))))))))) +(define TTImpC-45ElabC-45Binders-dropName (lambda (arg-1 arg-2) (TTImpC-45ElabC-45Binders-n--7618-13469-u--drop arg-2 arg-1 arg-2))) +(define TTImpC-45ElabC-45Binders-checkPiInfo (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 ext-0) (case (vector-ref arg-9 0) ((1) (vector 1 (vector 1 ))) ((0) (vector 1 (vector 0 ))) ((2) (vector 1 (vector 2 ))) (else (let ((e-4 (vector-ref arg-9 1))) (let ((act-24 (TTImpC-45ElabC-45Check-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-4 arg-10 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((e-2 (car e-5))) (vector 1 (vector 3 e-2)))))))))))) +(define TTImpC-45ElabC-45Binders-checkPi (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((u--pirig (TTImpC-45ElabC-45Binders-n--7819-13658-u--getRig arg-0 arg-15 arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (let ((e-0 (vector-ref arg-6 0))) e-0)))) (lambda (eta-0) (let ((act-24 (TTImpC-45ElabC-45Check-check arg-0 arg-1 arg-2 arg-3 arg-4 u--pirig arg-6 arg-7 arg-8 arg-13 (box (CoreC-45Normalise-gType arg-9)) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((e-2 (car e-5))) (let ((act-25 (TTImpC-45ElabC-45Binders-checkPiInfo arg-0 arg-1 arg-2 arg-3 arg-4 arg-10 arg-6 arg-7 arg-8 arg-11 (box (CoreC-45Normalise-gnf arg-0 arg-8 e-2)) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref act-25 1))) (let ((u--envC-39 (cons (vector 2 arg-9 arg-10 e-6 e-2) arg-8))) (let ((u--nestC-39 (TTImpC-45TTImp-u--weaken_Weaken_NestedNames (TTImpC-45ElabC-45Binders-dropName arg-12 arg-7)))) (let ((act-26 (TTImpC-45ElabC-45Check-inScope arg-12 arg-0 arg-1 arg-4 arg-9 u--envC-39 (lambda (u--eC-39) (lambda (eta-1) (TTImpC-45ElabC-45Check-check (cons arg-12 arg-0) arg-1 arg-2 arg-3 u--eC-39 u--pirig arg-6 u--nestC-39 u--envC-39 arg-14 (box (CoreC-45Normalise-gType arg-9)) eta-1))) eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-4 (vector-ref act-26 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref act-26 1))) (let ((e-8 (car e-7))) (TTImpC-45ElabC-45Check-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 (vector 3 arg-9 arg-12 (vector 2 (TTImpC-45TTImp-getFC arg-13) arg-10 e-6 e-2) e-8) (CoreC-45Normalise-gType arg-9) arg-15 eta-0))))))))))))))))))))) +(define TTImpC-45ElabC-45Binders-checkLet (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((u--rigc (let ((sc0 (AlgebraC-45Semiring-isErased (cons (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-17) (lambda (arg-18) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-17 arg-18))) (lambda (arg-17) (lambda (arg-18) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-17 arg-18))))) arg-5))) (cond ((equal? sc0 1) (AlgebraC-45Semiring-erased (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)))) (else (AlgebraC-45Semiring-linear (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)))))))) (lambda (eta-0) (let ((act-24 (TTImpC-45ElabC-45Check-check arg-0 arg-1 arg-2 arg-3 arg-4 (AlgebraC-45Semiring-erased (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))) arg-6 arg-7 arg-8 arg-13 (box (CoreC-45Normalise-gType arg-9)) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((e-2 (car e-5))) (let ((act-25 (TTImpC-45ElabC-45Check-handle arg-0 arg-1 arg-2 arg-3 arg-4 (lambda (eta-1) (let ((act-25 (TTImpC-45ElabC-45Delayed-runDelays arg-0 arg-1 arg-2 arg-3 arg-4 0 (lambda (eta-2) (TTImpC-45ElabC-45Check-check arg-0 arg-1 arg-2 arg-3 arg-4 (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-11 u--rigc) (let ((e-0 (vector-ref arg-6 0))) (let ((e-1 (vector-ref arg-6 1))) (let ((e-8 (vector-ref arg-6 2))) (let ((e-7 (vector-ref arg-6 3))) (let ((e-6 (vector-ref arg-6 5))) (vector e-0 e-1 e-8 e-7 1 e-6)))))) arg-7 arg-8 arg-14 (box (CoreC-45Normalise-gnf arg-0 arg-8 e-2)) eta-2)) eta-1))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (cons (Builtin-fst e-6) (cons (Builtin-snd e-6) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-11 u--rigc))))))))) (lambda (u--err) (let ((sc2 (TTImpC-45ElabC-45Binders-n--9353-14928-u--linearErr arg-0 arg-16 arg-15 arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 u--err))) (if (null? sc2) (lambda (eta-1) (let ((act-25 (TTImpC-45ElabC-45Check-check arg-0 arg-1 arg-2 arg-3 arg-4 (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-11 u--rigc) arg-6 arg-7 arg-8 arg-14 (box (CoreC-45Normalise-gnf arg-0 arg-8 e-2)) eta-1))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (cons (Builtin-fst e-6) (cons (Builtin-snd e-6) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-11 u--rigc))))))))) (let ((e-1 (unbox sc2))) (AlgebraC-45Semiring-branchOne (cons (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-17) (lambda (arg-18) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-17 arg-18))) (lambda (arg-17) (lambda (arg-18) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-17 arg-18))))) (lambda () (lambda (eta-1) (let ((act-25 (TTImpC-45ElabC-45Delayed-runDelays arg-0 arg-1 arg-2 arg-3 arg-4 0 (lambda (eta-2) (TTImpC-45ElabC-45Check-check arg-0 arg-1 arg-2 arg-3 arg-4 (AlgebraC-45Semiring-linear (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))) arg-6 arg-7 arg-8 arg-14 (box (CoreC-45Normalise-gnf arg-0 arg-8 e-2)) eta-2)) eta-1))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (cons (Builtin-fst e-6) (cons (Builtin-snd e-6) (AlgebraC-45Semiring-linear (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)))))))))))) (lambda () (lambda (eta-1) (let ((act-25 (TTImpC-45ElabC-45Check-check arg-0 arg-1 arg-2 arg-3 arg-4 (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-11 u--rigc) arg-6 arg-7 arg-8 arg-14 (box (CoreC-45Normalise-gnf arg-0 arg-8 e-2)) eta-1))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (cons (Builtin-fst e-6) (cons (Builtin-snd e-6) (AlgebraC-45ZeroOneOmega-rigMult arg-11 u--rigc)))))))))) e-1))))) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref act-25 1))) (let ((e-7 (car e-6))) (let ((e-4 (cdr e-6))) (let ((e-8 (cdr e-4))) (let ((u--envC-39 (cons (vector 0 arg-9 e-8 (vector 1 ) e-2) arg-8))) (let ((u--nestC-39 (TTImpC-45TTImp-u--weaken_Weaken_NestedNames (TTImpC-45ElabC-45Binders-dropName arg-12 arg-7)))) (let ((act-26 (TTImpC-45ElabC-45Binders-weakenExp arg-12 arg-0 u--envC-39 arg-16 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-10 (vector-ref act-26 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-26 1))) (let ((act-27 (TTImpC-45ElabC-45Check-inScope arg-12 arg-0 arg-1 arg-4 arg-9 u--envC-39 (lambda (u--eC-39) (lambda (eta-1) (TTImpC-45ElabC-45Check-check (cons arg-12 arg-0) arg-1 arg-2 arg-3 u--eC-39 u--rigc arg-6 u--nestC-39 u--envC-39 arg-15 e-10 eta-1))) eta-0))) (case (vector-ref act-27 0) ((0) (let ((e-11 (vector-ref act-27 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-27 1))) (let ((e-13 (car e-11))) (let ((e-12 (cdr e-11))) (let ((act-28 ((CoreC-45Normalise-getTerm e-12) eta-0))) (case (vector-ref act-28 0) ((0) (let ((e-14 (vector-ref act-28 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref act-28 1))) (let ((act-29 (CoreC-45ContextC-45Log-log arg-1 "metadata.names" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))))) (lambda () "checkLet is adding \u2193") eta-0))) (case (vector-ref act-29 0) ((0) (let ((e-15 (vector-ref act-29 1))) (vector 0 e-15))) (else (let ((act-30 (CoreC-45Metadata-addNameType arg-0 arg-1 arg-2 arg-10 arg-12 arg-8 e-2 eta-0))) (case (vector-ref act-30 0) ((0) (let ((e-16 (vector-ref act-30 1))) (vector 0 e-16))) (else (vector 1 (cons (vector 3 arg-9 arg-12 (vector 1 arg-9 e-8 e-7 e-2) e-13) (CoreC-45Normalise-gnf arg-0 arg-8 (vector 3 arg-9 arg-12 (vector 1 arg-9 e-8 e-7 e-2) e-14)))))))))))))))))))))))))))))))))))))))))) +(define TTImpC-45ElabC-45Binders-checkLambda (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (if (null? arg-15) (let ((u--rig (let ((sc1 (AlgebraC-45Semiring-isErased (cons (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-16) (lambda (arg-17) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-16 arg-17))) (lambda (arg-16) (lambda (arg-17) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-16 arg-17))))) arg-5))) (cond ((equal? sc1 1) (AlgebraC-45Semiring-erased (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)))) (else (AlgebraC-45Semiring-linear (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)))))))) (lambda (eta-0) (TTImpC-45ElabC-45Binders-inferLambda arg-0 arg-1 arg-2 arg-3 arg-4 u--rig arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 '() eta-0))) (let ((e-2 (unbox arg-15))) (let ((u--rig (let ((sc1 (AlgebraC-45Semiring-isErased (cons (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-16) (lambda (arg-17) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-16 arg-17))) (lambda (arg-16) (lambda (arg-17) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-16 arg-17))))) arg-5))) (cond ((equal? sc1 1) (AlgebraC-45Semiring-erased (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)))) (else (AlgebraC-45Semiring-linear (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)))))))) (let ((u--solvemode (let ((e-0 (vector-ref arg-6 0))) (case (vector-ref e-0 0) ((1) (CoreC-45Unify-inLHS))(else (CoreC-45Unify-inTerm)))))) (lambda (eta-0) (let ((act-24 (CoreC-45Unify-solveConstraints arg-1 arg-3 u--solvemode 0 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (let ((act-25 ((CoreC-45Normalise-getTerm e-2) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-3 (vector-ref act-25 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45ElabC-45Binders-getTyNF arg-0 arg-1 arg-8 e-6 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-3 (vector-ref act-26 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (let ((act-27 (unbox arg-1))) (vector 1 act-27)))) (case (vector-ref act-27 0) ((0) (let ((e-3 (vector-ref act-27 1))) (vector 0 e-3))) (else (case (vector-ref e-7 0) ((3) (let ((e-1 (vector-ref e-7 1))) (let ((e-9 (vector-ref e-7 2))) (let ((e-3 (vector-ref e-7 3))) (let ((e-4 (vector-ref e-7 4))) (case (vector-ref e-3 0) ((2) (let ((e-13 (vector-ref e-3 1))) (let ((e-12 (vector-ref e-3 2))) (let ((e-11 (vector-ref e-3 3))) (let ((e-10 (vector-ref e-3 4))) (let ((act-28 (TTImpC-45ElabC-45Check-check arg-0 arg-1 arg-2 arg-3 arg-4 (AlgebraC-45Semiring-erased (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))) arg-6 arg-7 arg-8 arg-13 (box (CoreC-45Normalise-gType arg-9)) eta-0))) (case (vector-ref act-28 0) ((0) (let ((e-14 (vector-ref act-28 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref act-28 1))) (let ((u--exptynf (vector 3 e-1 e-9 (vector 2 e-13 e-12 e-11 e-10) e-4))) (let ((e-16 (car e-14))) (let ((act-29 (TTImpC-45ElabC-45Binders-checkPiInfo arg-0 arg-1 arg-2 arg-3 arg-4 arg-10 arg-6 arg-7 arg-8 arg-11 (box (CoreC-45Normalise-gnf arg-0 arg-8 e-16)) eta-0))) (case (vector-ref act-29 0) ((0) (let ((e-17 (vector-ref act-29 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref act-29 1))) (let ((u--rigb (AlgebraC-45Preorder-glb (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-60C-61_Preorder_ZeroOneOmega arg-333 arg-334))) (lambda (u--x) (AlgebraC-45ZeroOneOmega-u--preorderRefl_Preorder_ZeroOneOmega u--x)) (lambda (u--x) (lambda (u--y) (lambda (u--z) (lambda (arg-338) (lambda (arg-342) (AlgebraC-45ZeroOneOmega-u--preorderTrans_Preorder_ZeroOneOmega u--x u--y u--z arg-338 arg-342))))))) arg-10 e-12))) (let ((u--envC-39 (cons (vector 0 arg-9 u--rigb e-17 e-16) arg-8))) (let ((act-30 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (case (vector-ref eta-1 0) ((0) (let ((e-18 (vector-ref eta-1 1))) (vector 0 e-18))) (else (vector 1 0)))) (TTImpC-45ElabC-45Check-convert arg-0 arg-1 arg-3 arg-4 arg-9 arg-6 arg-8 (CoreC-45Normalise-gnf arg-0 arg-8 e-16) (CoreC-45Normalise-gnf arg-0 arg-8 e-10)) eta-0))) (case (vector-ref act-30 0) ((0) (let ((e-18 (vector-ref act-30 1))) (vector 0 e-18))) (else (let ((u--nestC-39 (TTImpC-45TTImp-u--weaken_Weaken_NestedNames (TTImpC-45ElabC-45Binders-dropName arg-12 arg-7)))) (let ((act-31 (TTImpC-45ElabC-45Check-inScope arg-12 arg-0 arg-1 arg-4 arg-9 u--envC-39 (lambda (u--eC-39) (lambda (eta-1) (TTImpC-45ElabC-45Check-check (cons arg-12 arg-0) arg-1 arg-2 arg-3 u--eC-39 u--rig arg-6 u--nestC-39 u--envC-39 arg-14 (box (CoreC-45Normalise-gnf (cons arg-12 arg-0) u--envC-39 (CoreC-45TT-renameTop arg-12 e-4))) eta-1))) eta-0))) (case (vector-ref act-31 0) ((0) (let ((e-19 (vector-ref act-31 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref act-31 1))) (let ((e-21 (car e-19))) (let ((e-20 (cdr e-19))) (let ((act-32 (CoreC-45Normalise-logTermNF arg-0 arg-1 "elab.binder" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Lambda type") arg-8 u--exptynf eta-0))) (case (vector-ref act-32 0) ((0) (let ((e-22 (vector-ref act-32 1))) (vector 0 e-22))) (else (let ((act-33 (CoreC-45Normalise-logGlueNF (cons arg-12 arg-0) arg-1 "elab.binder" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Got scope type") u--envC-39 e-20 eta-0))) (case (vector-ref act-33 0) ((0) (let ((e-23 (vector-ref act-33 1))) (vector 0 e-23))) (else (let ((act-34 (CoreC-45ContextC-45Log-log arg-1 "metadata.names" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))))) (lambda () "checkLambda is adding \u2193") eta-0))) (case (vector-ref act-34 0) ((0) (let ((e-24 (vector-ref act-34 1))) (vector 0 e-24))) (else (let ((act-35 (CoreC-45Metadata-addNameType arg-0 arg-1 arg-2 arg-9 arg-12 arg-8 e-10 eta-0))) (case (vector-ref act-35 0) ((0) (let ((e-25 (vector-ref act-35 1))) (vector 0 e-25))) (else (let ((act-36 (let ((act-36 ((CoreC-45Normalise-getTerm e-20) eta-0))) (case (vector-ref act-36 0) ((0) (let ((e-26 (vector-ref act-36 1))) (vector 0 e-26))) (else (let ((e-26 (vector-ref act-36 1))) (let ((sc18 (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega u--rigb e-12))) (cond ((equal? sc18 1) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 1 arg-0 arg-9 arg-8 (vector 3 arg-9 arg-12 (vector 2 e-13 u--rigb e-17 e-16) e-26) (vector 3 arg-9 e-9 (vector 2 e-13 e-12 e-17 e-10) e-4)) eta-0)) (else (vector 1 0)))))))))) (case (vector-ref act-36 0) ((0) (let ((e-26 (vector-ref act-36 1))) (vector 0 e-26))) (else (let ((act-37 ((CoreC-45Normalise-getTerm e-20) eta-0))) (case (vector-ref act-37 0) ((0) (let ((e-27 (vector-ref act-37 1))) (vector 0 e-27))) (else (let ((e-27 (vector-ref act-37 1))) (vector 1 (cons (vector 3 arg-9 arg-12 (vector 0 e-13 u--rigb e-17 e-16) e-21) (CoreC-45Normalise-gnf arg-0 arg-8 (vector 3 arg-9 arg-12 (vector 2 e-13 u--rigb e-17 e-16) e-27))))))))))))))))))))))))))))))))))))))))))))))))))(else (TTImpC-45ElabC-45Binders-inferLambda arg-0 arg-1 arg-2 arg-3 arg-4 u--rig arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 (box e-2) eta-0))))))))(else (TTImpC-45ElabC-45Binders-inferLambda arg-0 arg-1 arg-2 arg-3 arg-4 u--rig arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 (box e-2) eta-0)))))))))))))))))))))))) +(define TTImpC-45ElabC-45As-n--7887-6001-u--rigPatC-39 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (cond ((equal? arg-15 0) (let ((sc1 (AlgebraC-45Semiring-isLinear (cons (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-16) (lambda (arg-17) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-16 arg-17))) (lambda (arg-16) (lambda (arg-17) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-16 arg-17))))) arg-10))) (cond ((equal? sc1 1) (AlgebraC-45Semiring-linear (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)))) (else arg-10)))) (else (let ((sc1 (AlgebraC-45Semiring-isLinear (cons (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-16) (lambda (arg-17) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-16 arg-17))) (lambda (arg-16) (lambda (arg-17) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-16 arg-17))))) arg-10))) (cond ((equal? sc1 1) (AlgebraC-45Semiring-erased (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)))) (else arg-10))))))) +(define TTImpC-45ElabC-45As-n--7887-6002-u--rigPat (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (TTImpC-45ElabC-45As-n--7887-6001-u--rigPatC-39 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-4))) +(define TTImpC-45ElabC-45As-n--7887-6003-u--rigAsC-39 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (cond ((equal? arg-15 0) (let ((sc1 (AlgebraC-45Semiring-isLinear (cons (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-16) (lambda (arg-17) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-16 arg-17))) (lambda (arg-16) (lambda (arg-17) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-16 arg-17))))) arg-10))) (cond ((equal? sc1 1) (AlgebraC-45Semiring-erased (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)))) (else arg-10)))) (else (let ((sc1 (AlgebraC-45Semiring-isLinear (cons (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-16) (lambda (arg-17) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-16 arg-17))) (lambda (arg-16) (lambda (arg-17) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-16 arg-17))))) arg-10))) (cond ((equal? sc1 1) (AlgebraC-45Semiring-linear (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)))) (else arg-10))))))) +(define TTImpC-45ElabC-45As-n--7887-6004-u--rigAs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (TTImpC-45ElabC-45As-n--7887-6003-u--rigAsC-39 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-4))) +(define TTImpC-45ElabC-45As-checkAs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((u--elabmode (let ((e-0 (vector-ref arg-6 0))) e-0))) (lambda (clam-0) (case (vector-ref u--elabmode 0) ((1) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((u--n (vector 3 arg-12 (let ((e-2 (vector-ref e-5 1))) e-2)))) (let ((act-25 (TTImpC-45ElabC-45Check-noteLHSPatVar arg-4 u--elabmode arg-12 clam-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 (TTImpC-45ElabC-45Check-notePatVar arg-4 u--n clam-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((sc4 (DataC-45List-lookup (cons (lambda (arg-15) (lambda (arg-16) (CoreC-45Name-u--C-61C-61_Eq_Name arg-15 arg-16))) (lambda (arg-15) (lambda (arg-16) (CoreC-45Name-u--C-47C-61_Eq_Name arg-15 arg-16)))) u--n (let ((e-17 (vector-ref e-5 4))) e-17)))) (if (null? sc4) (let ((act-27 (TTImpC-45ElabC-45Check-check arg-0 arg-1 arg-2 arg-3 arg-4 (TTImpC-45ElabC-45As-n--7887-6002-u--rigPat arg-0 arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1) arg-6 arg-7 arg-8 arg-13 arg-14 clam-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (let ((e-2 (car e-8))) (let ((e-3 (cdr e-8))) (let ((act-28 (TTImpC-45ElabC-45ImplicitBind-mkPatternHole arg-0 arg-4 arg-1 arg-3 arg-10 arg-5 u--n arg-8 (let ((e-1 (vector-ref arg-6 1))) e-1) arg-14 clam-0))) (case (vector-ref act-28 0) ((0) (let ((e-4 (vector-ref act-28 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref act-28 1))) (let ((e-10 (car e-9))) (let ((e-4 (cdr e-9))) (let ((e-12 (car e-4))) (let ((e-11 (cdr e-4))) (let ((act-29 (CoreC-45ContextC-45Log-log arg-1 "elab.as" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Added as pattern name " (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (u--x) (CoreC-45Name-u--show_Show_Name u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Name-u--showPrec_Show_Name u--d u--x)))) (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (AlgebraC-45ZeroOneOmega-u--show_Show_ZeroOneOmega x-0)) (lambda (u--d) (lambda (x-0) (AlgebraC-45ZeroOneOmega-u--showPrec_Show_ZeroOneOmega u--d x-0)))) (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (u--d) (lambda (x-1) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-0 u--d x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (u--d) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-0 u--d x-2)))) (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (u--d) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-0 u--d x-2))))) x-1)) (lambda (u--d) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-0 d-0 x-2)))) (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-0 d-0 x-2))))) u--d x-1))))) x-0)) (lambda (u--d) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d-0) (lambda (x-1) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-0 d-0 x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-0 d-0 x-2)))) (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-0 d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-0 d-1 x-2)))) (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-0 d-1 x-2))))) d-0 x-1))))) u--d x-0))))) u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (AlgebraC-45ZeroOneOmega-u--show_Show_ZeroOneOmega x-0)) (lambda (d-0) (lambda (x-0) (AlgebraC-45ZeroOneOmega-u--showPrec_Show_ZeroOneOmega d-0 x-0)))) (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d-0) (lambda (x-1) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-0 d-0 x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-0 d-0 x-2)))) (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-0 d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-0 d-1 x-2)))) (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-0 d-1 x-2))))) d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d-1) (lambda (x-1) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-0 d-1 x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-0 d-1 x-2)))) (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-0 d-1 x-2))))) x-1)) (lambda (d-1) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-2) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-0 d-2 x-2)))) (cons (lambda (x-2) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-2) (lambda (x-2) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-0 d-2 x-2))))) d-1 x-1))))) d-0 x-0))))) u--d u--x))))) (cons u--n (cons (TTImpC-45ElabC-45As-n--7887-6004-u--rigAs arg-0 arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1) (cons e-10 (cons e-12 e-11))))))) clam-0))) (case (vector-ref act-29 0) ((0) (let ((e-13 (vector-ref act-29 1))) (vector 0 e-13))) (else (let ((act-30 (let ((act-30 (unbox arg-1))) (vector 1 act-30)))) (case (vector-ref act-30 0) ((0) (let ((e-14 (vector-ref act-30 1))) (vector 0 e-14))) (else (let ((act-31 (let ((act-31 (unbox arg-4))) (vector 1 act-31)))) (case (vector-ref act-31 0) ((0) (let ((e-15 (vector-ref act-31 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref act-31 1))) (let ((act-32 (let ((act-32 (set-box! arg-4 (let ((e-1 (vector-ref e-15 0))) (let ((e-28 (vector-ref e-15 1))) (let ((e-27 (vector-ref e-15 2))) (let ((e-26 (vector-ref e-15 3))) (let ((e-25 (vector-ref e-15 4))) (let ((e-24 (vector-ref e-15 5))) (let ((e-23 (vector-ref e-15 6))) (let ((e-22 (vector-ref e-15 7))) (let ((e-21 (vector-ref e-15 8))) (let ((e-20 (vector-ref e-15 9))) (let ((e-19 (vector-ref e-15 10))) (let ((e-18 (vector-ref e-15 11))) (let ((e-17 (vector-ref e-15 12))) (let ((e-16 (vector-ref e-15 13))) (vector e-1 e-28 e-27 e-26 (let ((u--vars arg-0)) (cons (cons u--n (vector 1 arg-0 (TTImpC-45ElabC-45As-n--7887-6004-u--rigAs u--vars arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1) (vector 1 ) e-10 e-12 e-2)) e-25)) (let ((u--vars arg-0)) (cons (cons u--n (vector 1 arg-0 (TTImpC-45ElabC-45As-n--7887-6004-u--rigAs u--vars arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1) (vector 1 ) e-10 e-11 e-2)) e-24)) e-23 e-22 e-21 e-20 e-19 e-18 e-17 e-16)))))))))))))))))) (vector 1 act-32)))) (case (vector-ref act-32 0) ((0) (let ((e-16 (vector-ref act-32 1))) (vector 0 e-16))) (else (let ((act-33 (TTImpC-45ElabC-45Check-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 arg-10 e-10 (CoreC-45Normalise-gnf arg-0 arg-8 e-12) (box e-3) clam-0))) (case (vector-ref act-33 0) ((0) (let ((e-17 (vector-ref act-33 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref act-33 1))) (let ((e-19 (car e-17))) (let ((e-18 (cdr e-17))) (let ((act-34 (CoreC-45ContextC-45Log-log arg-1 "metadata.names" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))))) (lambda () "checkAs is adding \u2193") clam-0))) (case (vector-ref act-34 0) ((0) (let ((e-20 (vector-ref act-34 1))) (vector 0 e-20))) (else (let ((act-35 (let ((act-35 ((CoreC-45Normalise-getTerm e-18) clam-0))) (case (vector-ref act-35 0) ((0) (let ((e-21 (vector-ref act-35 1))) (vector 0 e-21))) (else (let ((e-21 (vector-ref act-35 1))) (CoreC-45Metadata-addNameType arg-0 arg-1 arg-2 arg-10 arg-12 arg-8 e-21 clam-0))))))) (case (vector-ref act-35 0) ((0) (let ((e-21 (vector-ref act-35 1))) (vector 0 e-21))) (else (vector 1 (cons (vector 5 arg-9 arg-11 e-19 e-2) e-3))))))))))))))))))))))))))))))))))))))))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 35 arg-9 arg-12) clam-0)))))))))))))))(else (let ((act-24 (CoreC-45ContextC-45Log-log arg-1 "elab.as" (+ 1 (+ 1 0)) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Bad @-pattern " (TTImpC-45TTImp-u--show_Show_RawImp arg-13))) clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-9 "@-patterns only allowed in pattern clauses") clam-0)))))))))) +(define TTImpC-45ElabC-45App-with--checkAppWithC-39-8361 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (if (null? arg-2) (TTImpC-45ElabC-45App-case--withC-32blockC-32inC-32checkAppWithC-39-8398 arg-4 arg-23 arg-22 arg-21 arg-3 arg-20 arg-19 arg-18 arg-17 arg-16 arg-15 arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-1 arg-0 (TTImpC-45ElabC-45App-findBindAllExpPattern arg-1)) (let ((e-1 (unbox arg-2))) (let ((e-5 (car e-1))) (let ((e-6 (cdr e-1))) (let ((e-10 (cdr e-5))) (let ((u--argRig (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-19 arg-6))) (lambda (eta-0) (TTImpC-45ElabC-45App-checkRestApp arg-3 arg-23 arg-22 arg-21 arg-20 arg-19 u--argRig arg-18 arg-17 arg-16 arg-15 arg-14 arg-0 arg-5 arg-7 arg-13 e-10 '() arg-12 e-6 arg-11 arg-10 eta-0)))))))))) +(define TTImpC-45ElabC-45App-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkAppWith-10656 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24) (if (null? arg-24) (lambda (eta-0) (vector 1 arg-18)) (let ((e-1 (unbox arg-24))) (lambda (clam-0) (if (null? e-1) (vector 1 arg-18) (let ((e-5 (cdr e-1))) (let ((sc2 (PreludeC-45Types-u--C-61C-61_Eq_Nat e-5 (PreludeC-45TypesC-45List-length arg-23)))) (cond ((equal? sc2 1) (vector 1 arg-18)) (else (TTImpC-45ElabC-45Dot-registerDot arg-0 arg-17 arg-16 arg-15 arg-14 arg-13 arg-10 arg-9 6 (Builtin-fst arg-18) (Builtin-snd arg-18) clam-0))))))))))) +(define TTImpC-45ElabC-45App-case--caseC-32blockC-32inC-32checkAppWith-10602 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (if (null? arg-20) (lambda (eta-0) (vector 1 arg-18)) (let ((e-2 (car arg-20))) (let ((e-3 (cdr arg-20))) (case (vector-ref e-2 0) ((1) (let ((e-5 (vector-ref e-2 1))) (let ((e-6 (vector-ref e-2 2))) (let ((e-7 (vector-ref e-2 3))) (TTImpC-45ElabC-45App-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkAppWith-10656 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 e-5 e-7 e-6 e-3 (CoreC-45TT-isCon e-6))))))(else (lambda (eta-0) (vector 1 arg-18))))))))) +(define TTImpC-45ElabC-45App-case--caseC-32blockC-32inC-32checkAppWithC-39-10220 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 ext-0) (if (null? arg-34) (vector 1 arg-32) (let ((act-24 ((CoreC-45Normalise-getTerm arg-31) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45UnifyState-newConstant arg-4 arg-17 arg-19 arg-11 arg-15 arg-12 (Builtin-fst arg-32) e-5 arg-34) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (cons e-6 (CoreC-45Normalise-gnf arg-4 arg-12 arg-24)))))))))))))) +(define TTImpC-45ElabC-45App-case--withC-32blockC-32inC-32checkAppWithC-39-8398 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (if (null? arg-23) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((sc2 (PreludeC-45Interfaces-all (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (lambda (eta-1) (TTImpC-45ElabC-45App-isImplicitAs eta-1)) (PreludeC-45TypesC-45List-C-43C-43 arg-13 (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) (DataC-45List-filter (lambda (eta-1) (let ((sc3 (TTImpC-45ElabC-45App-isBindAllExpPattern (Builtin-fst eta-1)))) (cond ((equal? sc3 1) 0) (else 1)))) arg-21)))))) (cond ((equal? sc2 1) (TTImpC-45ElabC-45Check-checkExp arg-4 arg-1 arg-3 arg-5 arg-6 arg-7 arg-9 arg-10 arg-11 (CoreC-45Normalise-glueBack arg-1 arg-4 e-5 arg-9 arg-16) arg-15 eta-0)) (else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 26 arg-4 arg-10 arg-9 (PreludeC-45TypesC-45List-C-43C-43 (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (vector 1 "")) arg-13) (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-fst eta-1)) arg-21)) arg-11) eta-0))))))))) (let ((e-1 (unbox arg-23))) (let ((u--argRig (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-6 arg-19))) (lambda (eta-0) (TTImpC-45ElabC-45App-checkRestApp arg-4 arg-1 arg-2 arg-3 arg-5 arg-6 u--argRig arg-7 arg-8 arg-9 arg-10 arg-11 arg-22 arg-20 arg-18 arg-12 e-1 '() arg-13 arg-21 arg-14 arg-15 eta-0))))))) +(define TTImpC-45ElabC-45App-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkRestApp-7128 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 arg-38 arg-39 arg-40 arg-41 arg-42 arg-43 arg-44 arg-45 arg-46 arg-47 ext-0) (if (null? arg-47) (vector 1 arg-35) (let ((act-24 ((CoreC-45Normalise-getTerm arg-36) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) ((CoreC-45UnifyState-newConstant arg-0 arg-20 arg-22 arg-13 arg-18 arg-14 arg-35 e-5 arg-47) ext-0)))))))) +(define TTImpC-45ElabC-45App-case--getVarType-3247 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (if (null? arg-9) (lambda (eta-0) (let ((act-24 ((TTImpC-45ElabC-45App-getNameType arg-0 arg-8 arg-7 arg-6 arg-5 arg-3 arg-2 arg-1) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((e-2 (car e-5))) (let ((e-3 (cdr e-5))) (vector 1 (cons e-2 (cons 0 e-3)))))))))) (let ((e-2 (unbox arg-9))) (lambda (clam-0) (let ((e-5 (car e-2))) (let ((e-6 (cdr e-2))) (let ((e-9 (car e-6))) (let ((e-10 (cdr e-6))) (let ((act-24 (let ((act-24 (unbox arg-8))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref act-24 1))) (let ((u--arglen (PreludeC-45TypesC-45List-length e-9))) (let ((u--nC-39 (DataC-45Maybe-fromMaybe (lambda () arg-1) e-5))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact u--nC-39 (let ((e-0 (vector-ref e-7 0))) e-0)) clam-0))) (case (vector-ref act-25 0) ((0) (let ((e-3 (vector-ref act-25 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref act-25 1))) (if (null? e-8) (CoreC-45Context-undefinedName arg-8 arg-2 u--nC-39 clam-0) (let ((e-3 (unbox e-8))) (let ((u--nt (let ((e-17 (vector-ref e-3 17))) (case (vector-ref e-17 0) ((1) (vector 1 )) ((5) (let ((e-31 (vector-ref e-17 1))) (let ((e-30 (vector-ref e-17 2))) (vector 2 e-31 e-30)))) ((6) (let ((e-36 (vector-ref e-17 1))) (let ((e-35 (vector-ref e-17 2))) (vector 3 e-36 e-35))))(else (vector 1 )))))) (let ((u--tm ((e-10 arg-2) u--nt))) (let ((u--tyenv (TTImpC-45ElabC-45App-n--8546-3176-u--useVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-0 (CoreC-45TT-getArgs u--tm) (CoreC-45TT-embed (let ((e-28 (vector-ref e-3 2))) e-28))))) (let ((act-26 (TTImpC-45ElabC-45App-checkVisibleNS arg-8 arg-2 (let ((e-1 (vector-ref e-3 1))) e-1) (let ((e-22 (vector-ref e-3 9))) e-22) clam-0))) (case (vector-ref act-26 0) ((0) (let ((e-4 (vector-ref act-26 1))) (vector 0 e-4))) (else (let ((act-27 (CoreC-45ContextC-45Log-logTerm arg-0 arg-8 "elab" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Type of " (CoreC-45Name-u--show_Show_Name u--nC-39))) u--tyenv clam-0))) (case (vector-ref act-27 0) ((0) (let ((e-4 (vector-ref act-27 1))) (vector 0 e-4))) (else (let ((act-28 (CoreC-45ContextC-45Log-logTerm arg-0 arg-8 "elab" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Expands to") u--tm clam-0))) (case (vector-ref act-28 0) ((0) (let ((e-4 (vector-ref act-28 1))) (vector 0 e-4))) (else (let ((act-29 (CoreC-45ContextC-45Log-log arg-8 "elab" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Arg length " (PreludeC-45Show-u--show_Show_Nat u--arglen))) clam-0))) (case (vector-ref act-29 0) ((0) (let ((e-4 (vector-ref act-29 1))) (vector 0 e-4))) (else (let ((act-30 (CoreC-45ContextC-45Log-log arg-8 "metadata.names" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))))) (lambda () "getVarType is adding \u2193") clam-0))) (case (vector-ref act-30 0) ((0) (let ((e-4 (vector-ref act-30 1))) (vector 0 e-4))) (else (let ((act-31 (CoreC-45Metadata-addNameType arg-0 arg-8 arg-7 arg-2 arg-1 arg-3 u--tyenv clam-0))) (case (vector-ref act-31 0) ((0) (let ((e-4 (vector-ref act-31 1))) (vector 0 e-4))) (else (let ((act-32 (let ((sc12 (CoreC-45Name-isSourceName (let ((e-1 (vector-ref e-3 1))) e-1)))) (cond ((equal? sc12 1) (let ((sc13 (CoreC-45FC-isConcreteFC arg-2))) (if (null? sc13) (vector 1 0) (let ((e-1 (unbox sc13))) (let ((u--decor (CoreC-45Metadata-nameTypeDecoration u--nt))) (let ((act-32 (CoreC-45ContextC-45Log-log arg-8 "ide-mode.highlight" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "getNameType is adding " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Metadata-u--show_Show_Decoration u--decor) (PreludeC-45TypesC-45String-C-43C-43 ": " (CoreC-45Name-u--show_Show_Name (let ((e-35 (vector-ref e-3 1))) e-35)))))) clam-0))) (case (vector-ref act-32 0) ((0) (let ((e-4 (vector-ref act-32 1))) (vector 0 e-4))) (else (CoreC-45Metadata-addSemanticDecorations arg-7 arg-8 (cons (cons e-1 (cons u--decor (box (let ((e-36 (vector-ref e-3 1))) e-36)))) '()) clam-0))))))))) (else (vector 1 0)))))) (case (vector-ref act-32 0) ((0) (let ((e-4 (vector-ref act-32 1))) (vector 0 e-4))) (else (vector 1 (cons u--tm (cons u--arglen (CoreC-45Normalise-gnf arg-0 arg-3 u--tyenv))))))))))))))))))))))))))))))))))))))))))))))))) +(define TTImpC-45ElabC-45App-case--getNameType-2589 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 ext-0) (if (null? arg-8) (let ((act-24 (let ((act-24 (unbox arg-7))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtName arg-1 (let ((e-0 (vector-ref e-5 0))) e-0)) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (if (null? e-6) (CoreC-45Context-undefinedName arg-7 arg-2 arg-1 ext-0) (let ((e-1 (car e-6))) (let ((e-2 (cdr e-6))) (if (null? e-1) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 17 arg-2 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-fst eta-0)) e-6)) ext-0) (let ((e-7 (cdr e-1))) (if (null? e-7) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 17 arg-2 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-fst eta-0)) e-6)) ext-0) (let ((e-10 (car e-7))) (let ((e-11 (cdr e-7))) (if (null? e-2) (let ((act-26 (TTImpC-45ElabC-45App-checkVisibleNS arg-7 arg-2 (let ((e-28 (vector-ref e-11 1))) e-28) (let ((e-9 (vector-ref e-11 9))) e-9) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-3 (vector-ref act-26 1))) (vector 0 e-3))) (else (let ((act-27 (TTImpC-45ElabC-45App-n--7883-2562-u--rigSafe arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (let ((e-25 (vector-ref e-11 7))) e-25) arg-4 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-3 (vector-ref act-27 1))) (vector 0 e-3))) (else (let ((u--nt (let ((e-17 (vector-ref e-11 17))) (case (vector-ref e-17 0) ((1) (vector 1 )) ((5) (let ((e-33 (vector-ref e-17 1))) (let ((e-32 (vector-ref e-17 2))) (vector 2 e-33 e-32)))) ((6) (let ((e-38 (vector-ref e-17 1))) (let ((e-37 (vector-ref e-17 2))) (vector 3 e-38 e-37))))(else (vector 1 )))))) (let ((act-28 (CoreC-45ContextC-45Log-log arg-7 "ide-mode.highlight" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "getNameType is trying to add something for: " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name (let ((e-30 (vector-ref e-11 1))) e-30)) (PreludeC-45TypesC-45String-C-43C-43 " (" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC arg-2) ")"))))) ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-3 (vector-ref act-28 1))) (vector 0 e-3))) (else (let ((act-29 (let ((sc10 (CoreC-45Name-isSourceName (let ((e-31 (vector-ref e-11 1))) e-31)))) (cond ((equal? sc10 1) (let ((sc11 (CoreC-45FC-isConcreteFC arg-2))) (if (null? sc11) (vector 1 0) (let ((e-3 (unbox sc11))) (let ((u--decor (CoreC-45Metadata-nameTypeDecoration u--nt))) (let ((act-29 (CoreC-45ContextC-45Log-log arg-7 "ide-mode.highlight" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "getNameType is adding " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Metadata-u--show_Show_Decoration u--decor) (PreludeC-45TypesC-45String-C-43C-43 ": " (CoreC-45Name-u--show_Show_Name (let ((e-32 (vector-ref e-11 1))) e-32)))))) ext-0))) (case (vector-ref act-29 0) ((0) (let ((e-4 (vector-ref act-29 1))) (vector 0 e-4))) (else (CoreC-45Metadata-addSemanticDecorations arg-6 arg-7 (cons (cons e-3 (cons u--decor (box (let ((e-33 (vector-ref e-11 1))) e-33)))) '()) ext-0))))))))) (else (vector 1 0)))))) (case (vector-ref act-29 0) ((0) (let ((e-3 (vector-ref act-29 1))) (vector 0 e-3))) (else (vector 1 (cons (vector 1 arg-2 u--nt (vector 9 e-10)) (CoreC-45Normalise-gnf arg-0 arg-3 (CoreC-45TT-embed (let ((e-31 (vector-ref e-11 2))) e-31)))))))))))))))))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 17 arg-2 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-fst eta-0)) e-6)) ext-0)))))))))))))))))) (let ((e-1 (unbox arg-8))) (let ((e-5 (car e-1))) (let ((e-6 (cdr e-1))) (let ((act-24 (TTImpC-45ElabC-45App-n--7883-2562-u--rigSafe arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-6 arg-4 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((u--binder (CoreC-45Env-getBinder (cons (lambda (u--n) (lambda (u--vars) (lambda (arg-5607) (CoreC-45TT-u--weaken_Weaken_Term arg-5607)))) (lambda (u--vars) (lambda (u--ns) (lambda (arg-5613) (lambda (arg-5615) (CoreC-45TT-u--weakenNs_Weaken_Term arg-5613 arg-5615)))))) arg-0 e-5 arg-3))) (let ((u--bty (CoreC-45TT-binderType u--binder))) (let ((act-25 (CoreC-45ContextC-45Log-log arg-7 "metadata.names" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))))) (lambda () "getNameType is adding \u2193") ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45Metadata-addNameType arg-0 arg-7 arg-6 arg-2 arg-1 arg-3 u--bty ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((act-27 (let ((sc5 (AlgebraC-45Semiring-isLinear (cons (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-9) (lambda (arg-10) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-9 arg-10))))) e-6))) (cond ((equal? sc5 1) (let ((act-27 (let ((act-27 (unbox arg-5))) (vector 1 act-27)))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 (set-box! arg-5 (let ((e-21 (vector-ref e-10 0))) (let ((e-2 (vector-ref e-10 1))) (let ((e-3 (vector-ref e-10 2))) (let ((e-4 (vector-ref e-10 3))) (let ((e-20 (vector-ref e-10 4))) (let ((e-19 (vector-ref e-10 5))) (let ((e-18 (vector-ref e-10 6))) (let ((e-17 (vector-ref e-10 7))) (let ((e-16 (vector-ref e-10 8))) (let ((e-15 (vector-ref e-10 9))) (let ((e-11 (vector-ref e-10 10))) (let ((e-12 (vector-ref e-10 11))) (let ((e-13 (vector-ref e-10 12))) (let ((e-14 (vector-ref e-10 13))) (vector e-21 e-2 e-3 e-4 e-20 e-19 e-18 e-17 e-16 e-15 e-11 (cons e-5 e-12) e-13 e-14)))))))))))))))))) (vector 1 act-28))))))) (else (vector 1 0)))))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((act-28 (CoreC-45ContextC-45Log-log arg-7 "ide-mode.highlight" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "getNameType is trying to add Bound: " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name arg-1) (PreludeC-45TypesC-45String-C-43C-43 " (" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC arg-2) ")"))))) ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((act-29 (let ((sc7 (CoreC-45Name-isSourceName arg-1))) (cond ((equal? sc7 1) (let ((sc8 (CoreC-45FC-isConcreteFC arg-2))) (if (null? sc8) (vector 1 0) (let ((e-2 (unbox sc8))) (let ((act-29 (CoreC-45ContextC-45Log-log arg-7 "ide-mode.highlight" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "getNameType is adding Bound: " (CoreC-45Name-u--show_Show_Name arg-1))) ext-0))) (case (vector-ref act-29 0) ((0) (let ((e-3 (vector-ref act-29 1))) (vector 0 e-3))) (else (CoreC-45Metadata-addSemanticDecorations arg-6 arg-7 (cons (cons e-2 (cons 4 (box arg-1))) '()) ext-0)))))))) (else (vector 1 0)))))) (case (vector-ref act-29 0) ((0) (let ((e-2 (vector-ref act-29 1))) (vector 0 e-2))) (else (vector 1 (cons (vector 0 arg-2 (box (CoreC-45TT-isLet u--binder)) e-5) (CoreC-45Normalise-gnf arg-0 arg-3 u--bty))))))))))))))))))))))))))))) +(define TTImpC-45ElabC-45App-n--8546-3176-u--useVars (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (if (null? arg-10) arg-11 (let ((e-12 (car arg-10))) (let ((e-13 (cdr arg-10))) (case (vector-ref arg-11 0) ((3) (let ((e-15 (vector-ref arg-11 1))) (let ((e-16 (vector-ref arg-11 2))) (let ((e-17 (vector-ref arg-11 3))) (let ((e-18 (vector-ref arg-11 4))) (case (vector-ref e-17 0) ((2) (let ((e-20 (vector-ref e-17 1))) (let ((e-21 (vector-ref e-17 2))) (let ((e-23 (vector-ref e-17 4))) (vector 3 e-15 e-16 (vector 1 e-20 e-21 e-12 e-23) (TTImpC-45ElabC-45App-n--8546-3176-u--useVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (cons e-16 arg-9) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45TT-u--weaken_Weaken_Term eta-0)) e-13) e-18))))))(else (case (vector-ref arg-11 0) ((3) (let ((e-1 (vector-ref arg-11 1))) (let ((e-2 (vector-ref arg-11 2))) (let ((e-3 (vector-ref arg-11 3))) (let ((e-4 (vector-ref arg-11 4))) (case (vector-ref e-3 0) ((1) (let ((e-6 (vector-ref e-3 1))) (let ((e-7 (vector-ref e-3 2))) (let ((e-8 (vector-ref e-3 3))) (let ((e-9 (vector-ref e-3 4))) (vector 3 e-1 e-2 (vector 1 e-6 e-7 e-8 e-9) (TTImpC-45ElabC-45App-n--8546-3176-u--useVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (cons e-2 arg-9) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45TT-u--weaken_Weaken_Term eta-0)) arg-10) e-4)))))))(else arg-11)))))))(else arg-11)))))))))(else (case (vector-ref arg-11 0) ((3) (let ((e-1 (vector-ref arg-11 1))) (let ((e-2 (vector-ref arg-11 2))) (let ((e-3 (vector-ref arg-11 3))) (let ((e-4 (vector-ref arg-11 4))) (case (vector-ref e-3 0) ((1) (let ((e-6 (vector-ref e-3 1))) (let ((e-7 (vector-ref e-3 2))) (let ((e-8 (vector-ref e-3 3))) (let ((e-9 (vector-ref e-3 4))) (vector 3 e-1 e-2 (vector 1 e-6 e-7 e-8 e-9) (TTImpC-45ElabC-45App-n--8546-3176-u--useVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (cons e-2 arg-9) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45TT-u--weaken_Weaken_Term eta-0)) arg-10) e-4)))))))(else arg-11)))))))(else arg-11))))))))) +(define TTImpC-45ElabC-45App-n--17683-11038-u--updateElabInfo (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (case (vector-ref arg-17 0) ((1) (if (null? arg-19) (lambda (eta-0) (vector 1 arg-20)) (let ((e-2 (car arg-19))) (let ((e-3 (cdr arg-19))) (lambda (clam-0) (case (vector-ref e-2 0) ((28) (if (null? e-3) (let ((act-24 (CoreC-45Context-getFullName arg-15 arg-18 clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((sc5 (PreludeC-45Types-elem (cons (lambda (arg-21) (lambda (arg-22) (CoreC-45Name-u--C-61C-61_Eq_Name arg-21 arg-22))) (lambda (arg-21) (lambda (arg-22) (CoreC-45Name-u--C-47C-61_Eq_Name arg-21 arg-22)))) (CoreC-45Name-dropNS e-6) arg-16))) (cond ((equal? sc5 1) (vector 1 (let ((e-1 (vector-ref arg-20 1))) (let ((e-10 (vector-ref arg-20 2))) (let ((e-9 (vector-ref arg-20 3))) (let ((e-8 (vector-ref arg-20 4))) (let ((e-7 (vector-ref arg-20 5))) (vector (vector 2 ) e-1 e-10 e-9 e-8 e-7)))))))) (else (vector 1 arg-20)))))))) (vector 1 arg-20)))(else (vector 1 arg-20))))))))(else (lambda (eta-0) (vector 1 arg-20)))))) +(define TTImpC-45ElabC-45App-n--7883-2562-u--rigSafe (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 ext-0) (let ((act-24 (CoreC-45Context-getFullName arg-7 arg-1 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((sc1 (AlgebraC-45Preorder-C-60 (cons (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-60C-61_Preorder_ZeroOneOmega arg-333 arg-334))) (lambda (u--x) (AlgebraC-45ZeroOneOmega-u--preorderRefl_Preorder_ZeroOneOmega u--x)) (lambda (u--x) (lambda (u--y) (lambda (u--z) (lambda (arg-338) (lambda (arg-342) (AlgebraC-45ZeroOneOmega-u--preorderTrans_Preorder_ZeroOneOmega u--x u--y u--z arg-338 arg-342))))))) (cons (lambda (arg-10) (lambda (arg-11) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-10 arg-11))) (lambda (arg-10) (lambda (arg-11) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-10 arg-11))))) arg-8 arg-9))) (cond ((equal? sc1 1) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 14 arg-2 e-5 arg-8 arg-9) ext-0)) (else (vector 1 0)))))))))) +(define TTImpC-45ElabC-45App-n--17683-11037-u--normalisePrims (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 ext-0) (let ((act-24 (CoreC-45Normalise-normalisePrims arg-15 arg-16 (lambda (arg-20) (TTImpC-45ElabC-45App-n--17754-11047-u--boundSafe arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-19 arg-18 arg-17 arg-20 (let ((e-0 (vector-ref arg-10 0))) e-0))) (lambda (eta-0) (TTImpC-45TTImp-isIPrimVal eta-0)) (let ((e-0 (vector-ref arg-10 0))) (case (vector-ref e-0 0) ((1) 1)(else 0))) arg-17 arg-1 arg-6 (Builtin-fst arg-19) arg-18 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (cons (DataC-45Maybe-fromMaybe (lambda () (Builtin-fst arg-19)) e-5) (Builtin-snd arg-19))))))))) +(define TTImpC-45ElabC-45App-n--9233-4270-u--metavarImp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (case (vector-ref arg-23 0) ((1) 1) ((3) 1)(else 0)))) +(define TTImpC-45ElabC-45App-n--9221-4022-u--metavarImp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (case (vector-ref arg-22 0) ((1) 1) ((3) 1)(else 0)))) +(define TTImpC-45ElabC-45App-n--9266-4833-u--dotTerm (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (case (vector-ref arg-8 0) ((19) arg-8) ((17) arg-8) ((32) arg-8) ((18) (let ((e-7 (vector-ref arg-8 1))) (let ((e-8 (vector-ref arg-8 2))) (let ((e-9 (vector-ref arg-8 3))) (let ((e-10 (vector-ref arg-8 4))) (let ((e-11 (vector-ref arg-8 5))) (case (vector-ref e-11 0) ((17) arg-8) ((32) arg-8)(else (vector 18 e-7 e-8 e-9 e-10 (vector 19 e-7 3 arg-8))))))))))(else (vector 19 (TTImpC-45TTImp-getFC arg-8) 3 arg-8))))) +(define TTImpC-45ElabC-45App-n--9266-4832-u--countConstructors (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 ext-0) (case (vector-ref arg-8 0) ((3) (let ((e-2 (vector-ref arg-8 2))) (let ((e-4 (vector-ref arg-8 4))) (let ((e-5 (vector-ref arg-8 5))) (let ((sc1 (PreludeC-45Types-u--C-61C-61_Eq_Nat (PreludeC-45TypesC-45List-length e-5) e-4))) (cond ((equal? sc1 1) (let ((act-24 (let ((act-24 (unbox arg-7))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact e-2 (let ((e-0 (vector-ref e-6 0))) e-0)) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-7 (vector-ref act-25 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-25 1))) (if (null? e-7) (vector 1 '()) (let ((e-8 (unbox e-7))) (let ((e-17 (vector-ref e-8 17))) (case (vector-ref e-17 0) ((6) (let ((e-30 (vector-ref e-17 7))) (vector 1 (box (PreludeC-45TypesC-45List-length e-30)))))(else (vector 1 '()))))))))))))))) (else (vector 1 '()))))))))(else (vector 1 '()))))) +(define TTImpC-45ElabC-45App-n--17754-11047-u--boundSafe (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21) (case (vector-ref arg-21 0) ((1) 1)(else (case (vector-ref arg-20 0) ((5) (let ((e-0 (vector-ref arg-20 1))) (PreludeC-45EqOrd-u--C-60_Ord_Integer (PreludeC-45Num-u--abs_Abs_Integer e-0) 100)))(else 1)))))) +(define TTImpC-45ElabC-45App-onLHS (lambda (arg-0) (case (vector-ref arg-0 0) ((1) 1)(else 0)))) +(define TTImpC-45ElabC-45App-needsDelayLHS (lambda (arg-0 arg-1) (case (vector-ref arg-1 0) ((0) (lambda (eta-0) (vector 1 1))) ((8) (let ((e-3 (vector-ref arg-1 2))) (TTImpC-45ElabC-45App-needsDelayLHS arg-0 e-3))) ((9) (let ((e-6 (vector-ref arg-1 2))) (TTImpC-45ElabC-45App-needsDelayLHS arg-0 e-6))) ((10) (let ((e-9 (vector-ref arg-1 2))) (TTImpC-45ElabC-45App-needsDelayLHS arg-0 e-9))) ((13) (lambda (eta-0) (vector 1 1))) ((18) (let ((e-19 (vector-ref arg-1 5))) (TTImpC-45ElabC-45App-needsDelayLHS arg-0 e-19))) ((12) (lambda (eta-0) (vector 1 1))) ((28) (lambda (eta-0) (vector 1 1))) ((29) (lambda (eta-0) (vector 1 1))) ((33) (let ((e-27 (vector-ref arg-1 3))) (TTImpC-45ElabC-45App-needsDelayLHS arg-0 e-27)))(else (lambda (eta-0) (vector 1 0)))))) +(define TTImpC-45ElabC-45App-needsDelayExpr (lambda (arg-0 arg-1 arg-2) (cond ((equal? arg-1 0) (lambda (eta-0) (vector 1 0))) (else (case (vector-ref arg-2 0) ((0) (let ((e-1 (vector-ref arg-2 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtName e-1 (let ((e-31 (vector-ref e-5 0))) e-31)) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (if (null? e-6) 0 (let ((e-2 (cdr e-6))) (if (null? e-2) 0 1))))))))))))))) ((8) (let ((e-3 (vector-ref arg-2 2))) (TTImpC-45ElabC-45App-needsDelayExpr arg-0 1 e-3))) ((9) (let ((e-6 (vector-ref arg-2 2))) (TTImpC-45ElabC-45App-needsDelayExpr arg-0 1 e-6))) ((10) (let ((e-9 (vector-ref arg-2 2))) (TTImpC-45ElabC-45App-needsDelayExpr arg-0 1 e-9))) ((2) (lambda (eta-0) (vector 1 1))) ((4) (lambda (eta-0) (vector 1 1))) ((5) (lambda (eta-0) (vector 1 1))) ((7) (lambda (eta-0) (vector 1 1))) ((13) (lambda (eta-0) (vector 1 1))) ((12) (lambda (eta-0) (vector 1 1))) ((14) (lambda (eta-0) (vector 1 1)))(else (lambda (eta-0) (vector 1 0)))))))) +(define TTImpC-45ElabC-45App-needsDelay (lambda (arg-0 arg-1 arg-2 arg-3) (case (vector-ref arg-1 0) ((1) (TTImpC-45ElabC-45App-needsDelayLHS arg-0 arg-3))(else (TTImpC-45ElabC-45App-needsDelayExpr arg-0 arg-2 arg-3))))) +(define TTImpC-45ElabC-45App-makeImplicit (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 ext-0) (let ((e-2 (car arg-15))) (let ((e-3 (cdr arg-15))) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45UnifyState-genMVName arg-1 arg-3 arg-12 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Context-clearDefs e-5 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-4 (vector-ref act-26 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (CoreC-45Normalise-u--quote_Quote_NF arg-1 arg-0 e-7 arg-9 arg-13 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-4 (vector-ref act-27 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref act-27 1))) (let ((act-28 (TTImpC-45ElabC-45Check-metaVar arg-0 arg-1 arg-3 arg-10 arg-6 arg-9 e-6 e-8 ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-4 (vector-ref act-28 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref act-28 1))) (let ((u--fntm (vector 4 arg-10 arg-11 e-9))) (let ((act-29 (((arg-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) arg-9 e-9)) ext-0))) (case (vector-ref act-29 0) ((0) (let ((e-4 (vector-ref act-29 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref act-29 1))) (let ((act-30 (let ((sc7 (let ((e-12 (vector-ref arg-7 3))) e-12))) (cond ((equal? sc7 1) (let ((act-30 (let ((act-30 (unbox arg-4))) (vector 1 act-30)))) (case (vector-ref act-30 0) ((0) (let ((e-4 (vector-ref act-30 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref act-30 1))) (let ((act-31 (set-box! arg-4 (TTImpC-45ElabC-45Check-addBindIfUnsolved arg-0 e-6 arg-6 (vector 0 ) arg-9 e-9 e-8 e-11)))) (vector 1 act-31))))))) (else (vector 1 0)))))) (case (vector-ref act-30 0) ((0) (let ((e-4 (vector-ref act-30 1))) (vector 0 e-4))) (else (TTImpC-45ElabC-45App-checkAppWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-8 arg-9 arg-10 u--fntm e-10 (cons e-2 (PreludeC-45Types-u--C-43_Num_Nat (PreludeC-45Types-u--fromInteger_Num_Nat 1) e-3)) arg-16 arg-17 arg-18 arg-19 arg-20 ext-0))))))))))))))))))))))))))))))))) +(define TTImpC-45ElabC-45App-makeDefImplicit (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 ext-0) (let ((e-2 (car arg-16))) (let ((e-3 (cdr arg-16))) (let ((sc1 (TTImpC-45ElabC-45App-n--9233-4270-u--metavarImp arg-0 e-2 e-3 arg-21 arg-20 arg-19 arg-18 arg-17 arg-15 arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (let ((e-0 (vector-ref arg-7 0))) e-0)))) (cond ((equal? sc1 1) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45UnifyState-genMVName arg-1 arg-3 arg-12 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Context-clearDefs e-5 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-4 (vector-ref act-26 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (CoreC-45Normalise-u--quote_Quote_NF arg-1 arg-0 e-7 arg-9 arg-14 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-4 (vector-ref act-27 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref act-27 1))) (let ((act-28 (TTImpC-45ElabC-45Check-metaVar arg-0 arg-1 arg-3 arg-10 arg-6 arg-9 e-6 e-8 ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-4 (vector-ref act-28 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref act-28 1))) (let ((u--fntm (vector 4 arg-10 arg-11 e-9))) (let ((act-29 (((arg-15 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) arg-9 e-9)) ext-0))) (case (vector-ref act-29 0) ((0) (let ((e-4 (vector-ref act-29 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref act-29 1))) (let ((act-30 (let ((act-30 (unbox arg-4))) (vector 1 act-30)))) (case (vector-ref act-30 0) ((0) (let ((e-4 (vector-ref act-30 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref act-30 1))) (let ((act-31 (let ((act-31 (set-box! arg-4 (TTImpC-45ElabC-45Check-addBindIfUnsolved arg-0 e-6 arg-6 (vector 2 ) arg-9 e-9 e-8 e-11)))) (vector 1 act-31)))) (case (vector-ref act-31 0) ((0) (let ((e-4 (vector-ref act-31 1))) (vector 0 e-4))) (else (TTImpC-45ElabC-45App-checkAppWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-8 arg-9 arg-10 u--fntm e-10 (cons e-2 (PreludeC-45Types-u--C-43_Num_Nat (PreludeC-45Types-u--fromInteger_Num_Nat 1) e-3)) arg-17 arg-18 arg-19 arg-20 arg-21 ext-0)))))))))))))))))))))))))))))))))) (else (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-clearDefs e-5 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Normalise-u--quote_Quote_NF arg-1 arg-0 e-6 arg-9 arg-13 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-4 (vector-ref act-26 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref act-26 1))) (let ((u--fntm (vector 4 arg-10 arg-11 e-7))) (let ((act-27 (((arg-15 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) arg-9 e-7)) ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-4 (vector-ref act-27 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref act-27 1))) (TTImpC-45ElabC-45App-checkAppWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-8 arg-9 arg-10 u--fntm e-8 (cons e-2 (PreludeC-45Types-u--C-43_Num_Nat (PreludeC-45Types-u--fromInteger_Num_Nat 1) e-3)) arg-17 arg-18 arg-19 arg-20 arg-21 ext-0))))))))))))))))))))))))) +(define TTImpC-45ElabC-45App-makeAutoImplicit (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 ext-0) (let ((e-2 (car arg-15))) (let ((e-3 (cdr arg-15))) (let ((sc1 (TTImpC-45ElabC-45App-n--9221-4022-u--metavarImp arg-0 e-2 e-3 arg-20 arg-19 arg-18 arg-17 arg-16 arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (let ((e-0 (vector-ref arg-7 0))) e-0)))) (cond ((equal? sc1 1) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45UnifyState-genMVName arg-1 arg-3 arg-12 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Context-clearDefs e-5 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-4 (vector-ref act-26 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (CoreC-45Normalise-u--quote_Quote_NF arg-1 arg-0 e-7 arg-9 arg-13 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-4 (vector-ref act-27 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref act-27 1))) (let ((act-28 (TTImpC-45ElabC-45Check-metaVar arg-0 arg-1 arg-3 arg-10 arg-6 arg-9 e-6 e-8 ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-4 (vector-ref act-28 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref act-28 1))) (let ((u--fntm (vector 4 arg-10 arg-11 e-9))) (let ((act-29 (((arg-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) arg-9 e-9)) ext-0))) (case (vector-ref act-29 0) ((0) (let ((e-4 (vector-ref act-29 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref act-29 1))) (let ((act-30 (let ((act-30 (unbox arg-4))) (vector 1 act-30)))) (case (vector-ref act-30 0) ((0) (let ((e-4 (vector-ref act-30 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref act-30 1))) (let ((act-31 (let ((act-31 (set-box! arg-4 (TTImpC-45ElabC-45Check-addBindIfUnsolved arg-0 e-6 arg-6 (vector 2 ) arg-9 e-9 e-8 e-11)))) (vector 1 act-31)))) (case (vector-ref act-31 0) ((0) (let ((e-4 (vector-ref act-31 1))) (vector 0 e-4))) (else (TTImpC-45ElabC-45App-checkAppWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-8 arg-9 arg-10 u--fntm e-10 (cons e-2 (PreludeC-45Types-u--C-43_Num_Nat (PreludeC-45Types-u--fromInteger_Num_Nat 1) e-3)) arg-16 arg-17 arg-18 arg-19 arg-20 ext-0)))))))))))))))))))))))))))))))))) (else (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45UnifyState-genMVName arg-1 arg-3 arg-12 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Normalise-u--quote_Quote_NF arg-1 arg-0 e-5 arg-9 arg-13 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-4 (vector-ref act-26 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (let ((act-27 (unbox arg-4))) (vector 1 act-27)))) (case (vector-ref act-27 0) ((0) (let ((e-4 (vector-ref act-27 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref act-27 1))) (let ((act-28 (CoreC-45Context-getAutoImplicitLimit arg-1 ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-4 (vector-ref act-28 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref act-28 1))) (let ((act-29 (TTImpC-45ElabC-45Check-searchVar arg-0 arg-1 arg-3 arg-10 arg-6 e-9 (vector 9 (let ((e-21 (vector-ref e-8 1))) e-21)) arg-9 arg-8 e-6 e-7 ext-0))) (case (vector-ref act-29 0) ((0) (let ((e-4 (vector-ref act-29 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref act-29 1))) (let ((u--fntm (vector 4 arg-10 arg-11 e-10))) (let ((act-30 (((arg-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) arg-9 e-10)) ext-0))) (case (vector-ref act-30 0) ((0) (let ((e-4 (vector-ref act-30 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref act-30 1))) (TTImpC-45ElabC-45App-checkAppWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-8 arg-9 arg-10 u--fntm e-11 (cons e-2 (PreludeC-45Types-u--C-43_Num_Nat (PreludeC-45Types-u--fromInteger_Num_Nat 1) e-3)) arg-16 arg-17 arg-18 arg-19 arg-20 ext-0))))))))))))))))))))))))))))))))))))) +(define TTImpC-45ElabC-45App-isImplicitAs (lambda (arg-0) (case (vector-ref arg-0 0) ((18) (let ((e-2 (vector-ref arg-0 3))) (let ((e-4 (vector-ref arg-0 5))) (cond ((equal? e-2 0) (case (vector-ref e-4 0) ((32) 1)(else 0)))(else 0)))))(else 0)))) +(define TTImpC-45ElabC-45App-isHole (lambda (arg-1) (case (vector-ref arg-1 0) ((1) (let ((e-2 (vector-ref arg-1 2))) (case (vector-ref e-2 0) ((2) 1)(else 0))))(else 0)))) +(define TTImpC-45ElabC-45App-isBindAllExpPattern (lambda (arg-0) (case (vector-ref arg-0 0) ((1) (let ((e-0 (vector-ref arg-0 1))) (cond ((equal? e-0 "_") 1)(else 0))))(else 0)))) +(define TTImpC-45ElabC-45App-getVarType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (TTImpC-45ElabC-45App-case--getVarType-3247 arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (DataC-45List-lookup (cons (lambda (arg-9) (lambda (arg-10) (CoreC-45Name-u--C-61C-61_Eq_Name arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (CoreC-45Name-u--C-47C-61_Eq_Name arg-9 arg-10)))) arg-8 arg-5)))) +(define TTImpC-45ElabC-45App-getNameType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (lambda (eta-0) (TTImpC-45ElabC-45App-case--getNameType-2589 arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (CoreC-45Env-defined arg-0 arg-7 arg-5) eta-0)))) +(define TTImpC-45ElabC-45App-findNamed (lambda (arg-0 arg-1) (let ((sc0 (DataC-45List-partition (lambda (eta-0) (CoreC-45Name-u--C-61C-61_Eq_Name (Builtin-fst eta-0) arg-0)) arg-1))) (if (null? sc0) '() (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (if (null? e-2) '() (let ((e-5 (car e-2))) (let ((e-6 (cdr e-2))) (box (cons e-5 (PreludeC-45TypesC-45List-C-43C-43 e-6 e-3)))))))))))) (define TTImpC-45ElabC-45App-findBindAllExpPattern (lambda (ext-0) (DataC-45List-lookup (cons (lambda (arg-2) (lambda (arg-3) (CoreC-45Name-u--C-61C-61_Eq_Name arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (CoreC-45Name-u--C-47C-61_Eq_Name arg-4 arg-5)))) (vector 1 "_") ext-0))) -(define TTImpC-45ElabC-45App-dotErased (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (TTImpC-45ElabC-45App-case--dotErased-3342 e-0 arg-7 arg-6 arg-4 arg-3 arg-2 arg-1 (PreludeC-45Basics-C-38C-38 (let ((sc1 (AlgebraC-45Semiring-isErased (cons (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-8) (lambda (arg-9) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-8 arg-9))) (lambda (arg-8) (lambda (arg-9) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-8 arg-9))))) e-0))) (cond ((equal? sc1 0) 1) (else 0))) (lambda () (AlgebraC-45Semiring-isErased (cons (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-8) (lambda (arg-9) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-8 arg-9))) (lambda (arg-8) (lambda (arg-9) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-8 arg-9))))) arg-6))) eta-0))))(else (lambda (eta-0) (vector 1 arg-7))))))) -(define TTImpC-45ElabC-45App-concrete (lambda (arg-1 arg-2 arg-3 ext-0) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((act-24 (((e-4 arg-1) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) arg-2 (vector 10 e-1 1))) ext-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (TTImpC-45ElabC-45App-concrete arg-1 arg-2 e-5 ext-0)))))))(else (vector 1 1)))))))) ((2) (vector 1 0)) ((3) (vector 1 0)) ((8) (vector 1 0))(else (vector 1 1)))))) -(define TTImpC-45ElabC-45App-checkVisibleNS (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((act-24 (CoreC-45Context-isVisible arg-0 e-0 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (cond ((equal? sc2 0) (let ((act-25 (CoreC-45Context-isAllPublic arg-0 ext-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (CoreC-45Context-getNS arg-0 ext-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-27 (CoreC-45Context-getNestedNS arg-0 ext-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc5 1))) (let ((bind-0 0)) (TTImpC-45ElabC-45App-case--caseC-32blockC-32inC-32checkVisibleNS-607 e-1 e-0 arg-3 arg-1 arg-0 bind-0 e-6 e-7 e-8 (PreludeC-45Basics-C-124C-124 e-6 (lambda () (CoreC-45Context-visibleInAny (cons e-7 e-8) (vector 0 e-0 e-1) arg-3))) ext-0)))))))))))))))))) (else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 8 arg-1 (vector 0 e-0 e-1) (vector 1 e-0)) ext-0))))))))))))(else (vector 1 (vector 0 ))))))) -(define TTImpC-45ElabC-45App-checkValidPattern (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 ext-0) (let ((act-24 (CoreC-45ContextC-45Log-log arg-1 "elab.app.lhs" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))))))))))))))))))))))))))))))))))))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Checking that " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 arg-8) " is a valid pattern"))) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((sc1 arg-8)) (case (vector-ref sc1 0) ((3) (let ((e-3 (vector-ref sc1 3))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (TTImpC-45ElabC-45Dot-registerDot arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (vector 2 ) arg-8 arg-9 ext-0))(else (vector 1 (cons arg-8 arg-9)))))))(else (vector 1 (cons arg-8 arg-9))))))))))) -(define TTImpC-45ElabC-45App-checkRestApp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 ext-0) (let ((sc0 arg-15)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((TTImpC-45ElabC-45App-dotErased arg-1 arg-13 e-2 e-3 (let ((sc2 arg-7)) (let ((e-0 (vector-ref sc2 1))) e-0)) arg-6 arg-16) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (let ((sc3 arg-20)) (cond ((equal? sc3 0) (vector 1 0)) (else (let ((act-26 (((arg-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) arg-9 (vector 10 arg-10 1))) ext-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc4 1))) (TTImpC-45ElabC-45App-concrete e-5 arg-9 e-7 ext-0))))))))))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((TTImpC-45ElabC-45App-needsDelay arg-1 (let ((sc4 arg-7)) (let ((e-0 (vector-ref sc4 1))) e-0)) e-7 arg-16) ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (TTImpC-45ElabC-45App-case--checkRestApp-3741 arg-0 e-2 e-3 arg-21 arg-20 arg-19 arg-18 arg-17 arg-16 arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-6 e-7 e-8 (PreludeC-45Basics-C-124C-124 (PreludeC-45Basics-C-38C-38 (TTImpC-45ElabC-45App-isHole arg-13) (lambda () e-7)) (lambda () e-8)) ext-0)))))))))))))))))))))))))) -(define TTImpC-45ElabC-45App-checkPatTyValid (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((2) (let ((e-6 (vector-ref sc1 2))) (let ((act-24 ((CoreC-45Context-lookupCtxtExact (vector 9 e-6) (let ((sc2 arg-3)) (let ((e-0 (vector-ref sc2 1))) e-0))) ext-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc2 1))) (let ((sc3 e-8)) (case (vector-ref sc3 0) ((1) (let ((e-4 (vector-ref sc3 1))) (let ((sc4 (AlgebraC-45Semiring-isErased (cons (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-8) (lambda (arg-9) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-8 arg-9))) (lambda (arg-8) (lambda (arg-9) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-8 arg-9))))) (let ((sc5 e-4)) (let ((e-22 (vector-ref sc5 8))) e-22))))) (cond ((equal? sc4 0) (let ((act-25 ((CoreC-45Normalise-getNF arg-1 arg-7) ext-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-26 (TTImpC-45ElabC-45App-concrete arg-3 arg-4 e-9 ext-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((sc7 e-10)) (cond ((equal? sc7 0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 43 arg-0 arg-2 arg-4 arg-6) ext-0)) (else (vector 1 (vector 0 )))))))))))))))) (else (vector 1 (vector 0 ))))))) (else (vector 1 (vector 0 ))))))))))))(else (vector 1 (vector 0 )))))))(else (vector 1 (vector 0 ))))))) -(define TTImpC-45ElabC-45App-checkAppWithC-39 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((0) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (let ((e-12 (vector-ref sc0 4))) (let ((sc1 e-11)) (case (vector-ref sc1 0) ((2) (let ((e-18 (vector-ref sc1 1))) (let ((e-19 (vector-ref sc1 2))) (let ((e-20 (vector-ref sc1 3))) (let ((e-21 (vector-ref sc1 4))) (let ((sc2 e-20)) (case (vector-ref sc2 0) ((1) (let ((sc3 arg-13)) (if (null? sc3) (TTImpC-45ElabC-45App-with--checkAppWithC-39-5693 arg-15 e-10 (TTImpC-45ElabC-45App-findNamed e-10 arg-15) arg-0 e-18 arg-17 arg-16 arg-14 arg-12 e-21 e-19 e-12 e-9 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1) (let ((e-28 (car sc3))) (let ((e-29 (cdr sc3))) (let ((u--argRig (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-5 e-19))) (lambda (eta-0) (TTImpC-45ElabC-45App-checkRestApp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 u--argRig arg-6 arg-7 arg-8 arg-9 arg-10 e-10 e-21 e-12 arg-12 e-28 e-29 arg-14 arg-15 arg-16 arg-17 eta-0)))))))) ((0) (let ((sc3 arg-13)) (if (null? sc3) (let ((sc4 arg-14)) (if (null? sc4) (let ((sc5 arg-15)) (if (null? sc5) (let ((sc6 arg-17)) (case (vector-ref sc6 0) ((1) (let ((e-35 (vector-ref sc6 1))) (let ((u--argRig (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-5 e-19))) (lambda (eta-0) (let ((act-24 ((CoreC-45Normalise-getNF arg-1 e-35) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc8 1))) (let ((u--ty (vector 0 e-9 e-10 (vector 2 e-18 e-19 (vector 0 ) e-21) e-12))) (let ((sc9 e-5)) (case (vector-ref sc9 0) ((0) (let ((e-3 (vector-ref sc9 3))) (let ((sc10 e-3)) (case (vector-ref sc10 0) ((2) (let ((e-8 (vector-ref sc10 3))) (let ((sc11 e-8)) (case (vector-ref sc11 0) ((0) (TTImpC-45ElabC-45Check-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 (CoreC-45Normalise-glueBack arg-1 arg-0 e-6 arg-8 u--ty) (vector 1 e-35) eta-0))(else ((TTImpC-45ElabC-45App-case--caseC-32blockC-32inC-32checkAppWithC-39-6205 arg-0 e-18 e-35 arg-16 arg-12 e-21 e-19 e-12 e-10 e-9 u--ty arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 u--argRig e-5 e-6 (let ((sc11 (let ((sc12 arg-6)) (let ((e-16 (vector-ref sc12 5))) e-16)))) (cond ((equal? sc11 0) 1) (else 0)))) eta-0))))))(else ((TTImpC-45ElabC-45App-case--caseC-32blockC-32inC-32checkAppWithC-39-6205 arg-0 e-18 e-35 arg-16 arg-12 e-21 e-19 e-12 e-10 e-9 u--ty arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 u--argRig e-5 e-6 (let ((sc10 (let ((sc11 arg-6)) (let ((e-8 (vector-ref sc11 5))) e-8)))) (cond ((equal? sc10 0) 1) (else 0)))) eta-0))))))(else ((TTImpC-45ElabC-45App-case--caseC-32blockC-32inC-32checkAppWithC-39-6205 arg-0 e-18 e-35 arg-16 arg-12 e-21 e-19 e-12 e-10 e-9 u--ty arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 u--argRig e-5 e-6 (let ((sc9 (let ((sc10 arg-6)) (let ((e-4 (vector-ref sc10 5))) e-4)))) (cond ((equal? sc9 0) 1) (else 0)))) eta-0)))))))))))))))))))(else (let ((u--argRig (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-5 e-19))) (TTImpC-45ElabC-45App-case--checkAppWithC-39-7040 arg-0 e-18 e-21 e-19 e-12 e-10 e-9 arg-17 arg-16 arg-15 arg-14 arg-13 arg-12 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 u--argRig (TTImpC-45ElabC-45App-findNamed e-10 arg-15)))))) (let ((u--argRig (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-5 e-19))) (TTImpC-45ElabC-45App-case--checkAppWithC-39-7040 arg-0 e-18 e-21 e-19 e-12 e-10 e-9 arg-17 arg-16 arg-15 arg-14 arg-13 arg-12 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 u--argRig (TTImpC-45ElabC-45App-findNamed e-10 arg-15))))) (let ((u--argRig (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-5 e-19))) (TTImpC-45ElabC-45App-case--checkAppWithC-39-7040 arg-0 e-18 e-21 e-19 e-12 e-10 e-9 arg-17 arg-16 arg-15 arg-14 arg-13 arg-12 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 u--argRig (TTImpC-45ElabC-45App-findNamed e-10 arg-15))))) (let ((u--argRig (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-5 e-19))) (TTImpC-45ElabC-45App-case--checkAppWithC-39-7040 arg-0 e-18 e-21 e-19 e-12 e-10 e-9 arg-17 arg-16 arg-15 arg-14 arg-13 arg-12 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 u--argRig (TTImpC-45ElabC-45App-findNamed e-10 arg-15)))))) ((2) (let ((sc3 arg-13)) (if (null? sc3) (let ((sc4 arg-14)) (if (null? sc4) (let ((sc5 arg-15)) (if (null? sc5) (let ((sc6 arg-17)) (case (vector-ref sc6 0) ((1) (let ((e-44 (vector-ref sc6 1))) (let ((u--argRig (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-5 e-19))) (lambda (eta-0) (let ((act-24 ((CoreC-45Normalise-getNF arg-1 e-44) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc8 1))) (let ((u--ty (vector 0 e-9 e-10 (vector 2 e-18 e-19 (vector 2 ) e-21) e-12))) (let ((sc9 e-5)) (case (vector-ref sc9 0) ((0) (let ((e-3 (vector-ref sc9 3))) (let ((sc10 e-3)) (case (vector-ref sc10 0) ((2) (let ((e-8 (vector-ref sc10 3))) (let ((sc11 e-8)) (case (vector-ref sc11 0) ((2) (TTImpC-45ElabC-45Check-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 (CoreC-45Normalise-glueBack arg-1 arg-0 e-6 arg-8 u--ty) (vector 1 e-44) eta-0))(else ((TTImpC-45ElabC-45App-makeAutoImplicit arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 u--argRig arg-6 arg-7 arg-8 arg-9 arg-10 e-10 e-21 e-12 arg-12 '() '() '() arg-16 (vector 1 e-44)) eta-0))))))(else ((TTImpC-45ElabC-45App-makeAutoImplicit arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 u--argRig arg-6 arg-7 arg-8 arg-9 arg-10 e-10 e-21 e-12 arg-12 '() '() '() arg-16 (vector 1 e-44)) eta-0))))))(else ((TTImpC-45ElabC-45App-makeAutoImplicit arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 u--argRig arg-6 arg-7 arg-8 arg-9 arg-10 e-10 e-21 e-12 arg-12 '() '() '() arg-16 (vector 1 e-44)) eta-0)))))))))))))))))))(else (let ((sc6 arg-14)) (if (null? sc6) (let ((u--argRig (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-5 e-19))) (TTImpC-45ElabC-45App-case--checkAppWithC-39-6896 arg-0 e-18 e-21 e-19 e-12 e-10 e-9 arg-17 arg-16 arg-15 arg-13 arg-12 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 u--argRig (TTImpC-45ElabC-45App-findNamed e-10 arg-15))) (let ((e-37 (car sc6))) (let ((e-38 (cdr sc6))) (lambda (eta-0) (TTImpC-45ElabC-45App-checkRestApp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-5 e-19) arg-6 arg-7 arg-8 arg-9 arg-10 e-10 e-21 e-12 arg-12 e-37 arg-13 e-38 arg-15 arg-16 arg-17 eta-0))))))))) (let ((sc6 arg-14)) (if (null? sc6) (let ((u--argRig (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-5 e-19))) (TTImpC-45ElabC-45App-case--checkAppWithC-39-6896 arg-0 e-18 e-21 e-19 e-12 e-10 e-9 arg-17 arg-16 arg-15 arg-13 arg-12 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 u--argRig (TTImpC-45ElabC-45App-findNamed e-10 arg-15))) (let ((e-37 (car sc6))) (let ((e-38 (cdr sc6))) (lambda (eta-0) (TTImpC-45ElabC-45App-checkRestApp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-5 e-19) arg-6 arg-7 arg-8 arg-9 arg-10 e-10 e-21 e-12 arg-12 e-37 arg-13 e-38 arg-15 arg-16 arg-17 eta-0)))))))) (let ((sc5 arg-14)) (if (null? sc5) (let ((u--argRig (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-5 e-19))) (TTImpC-45ElabC-45App-case--checkAppWithC-39-6896 arg-0 e-18 e-21 e-19 e-12 e-10 e-9 arg-17 arg-16 arg-15 arg-13 arg-12 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 u--argRig (TTImpC-45ElabC-45App-findNamed e-10 arg-15))) (let ((e-37 (car sc5))) (let ((e-38 (cdr sc5))) (lambda (eta-0) (TTImpC-45ElabC-45App-checkRestApp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-5 e-19) arg-6 arg-7 arg-8 arg-9 arg-10 e-10 e-21 e-12 arg-12 e-37 arg-13 e-38 arg-15 arg-16 arg-17 eta-0)))))))) (let ((sc4 arg-14)) (if (null? sc4) (let ((u--argRig (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-5 e-19))) (TTImpC-45ElabC-45App-case--checkAppWithC-39-6896 arg-0 e-18 e-21 e-19 e-12 e-10 e-9 arg-17 arg-16 arg-15 arg-13 arg-12 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 u--argRig (TTImpC-45ElabC-45App-findNamed e-10 arg-15))) (let ((e-37 (car sc4))) (let ((e-38 (cdr sc4))) (lambda (eta-0) (TTImpC-45ElabC-45App-checkRestApp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-5 e-19) arg-6 arg-7 arg-8 arg-9 arg-10 e-10 e-21 e-12 arg-12 e-37 arg-13 e-38 arg-15 arg-16 arg-17 eta-0))))))))) ((3) (let ((e-26 (vector-ref sc2 1))) (let ((sc3 arg-13)) (if (null? sc3) (let ((sc4 arg-14)) (if (null? sc4) (let ((sc5 arg-15)) (if (null? sc5) (let ((sc6 arg-17)) (case (vector-ref sc6 0) ((1) (let ((e-49 (vector-ref sc6 1))) (let ((u--argRig (AlgebraC-45ZeroOneOmega-rigMult arg-5 e-19))) (lambda (eta-0) (let ((act-24 ((CoreC-45Normalise-getNF arg-1 e-49) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc8 1))) (let ((u--ty (vector 0 e-9 e-10 (vector 2 e-18 e-19 (vector 3 e-26) e-21) e-12))) (let ((sc9 e-5)) (case (vector-ref sc9 0) ((0) (let ((e-3 (vector-ref sc9 3))) (let ((sc10 e-3)) (case (vector-ref sc10 0) ((2) (let ((e-8 (vector-ref sc10 3))) (let ((sc11 e-8)) (case (vector-ref sc11 0) ((3) (let ((e-15 (vector-ref sc11 1))) (let ((act-26 (CoreC-45Normalise-u--convert_Convert_NF arg-1 arg-0 e-6 arg-8 e-26 e-15 eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-16 (vector-ref sc12 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc12 1))) (let ((sc13 e-16)) (cond ((equal? sc13 0) (TTImpC-45ElabC-45Check-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 (CoreC-45Normalise-glueBack arg-1 arg-0 e-6 arg-8 u--ty) (vector 1 e-49) eta-0)) (else ((TTImpC-45ElabC-45App-makeDefImplicit arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 u--argRig arg-6 arg-7 arg-8 arg-9 arg-10 e-10 e-26 e-21 e-12 arg-12 '() '() '() arg-16 (vector 1 e-49)) eta-0)))))))))))(else ((TTImpC-45ElabC-45App-makeDefImplicit arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 u--argRig arg-6 arg-7 arg-8 arg-9 arg-10 e-10 e-26 e-21 e-12 arg-12 '() '() '() arg-16 (vector 1 e-49)) eta-0))))))(else ((TTImpC-45ElabC-45App-makeDefImplicit arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 u--argRig arg-6 arg-7 arg-8 arg-9 arg-10 e-10 e-26 e-21 e-12 arg-12 '() '() '() arg-16 (vector 1 e-49)) eta-0))))))(else ((TTImpC-45ElabC-45App-makeDefImplicit arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 u--argRig arg-6 arg-7 arg-8 arg-9 arg-10 e-10 e-26 e-21 e-12 arg-12 '() '() '() arg-16 (vector 1 e-49)) eta-0)))))))))))))))))))(else (let ((u--argRig (AlgebraC-45ZeroOneOmega-rigMult arg-5 e-19))) (TTImpC-45ElabC-45App-case--checkAppWithC-39-7183 arg-0 e-18 e-26 e-21 e-19 e-12 e-10 e-9 arg-17 arg-16 arg-15 arg-14 arg-13 arg-12 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 u--argRig (TTImpC-45ElabC-45App-findNamed e-10 arg-15)))))) (let ((u--argRig (AlgebraC-45ZeroOneOmega-rigMult arg-5 e-19))) (TTImpC-45ElabC-45App-case--checkAppWithC-39-7183 arg-0 e-18 e-26 e-21 e-19 e-12 e-10 e-9 arg-17 arg-16 arg-15 arg-14 arg-13 arg-12 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 u--argRig (TTImpC-45ElabC-45App-findNamed e-10 arg-15))))) (let ((u--argRig (AlgebraC-45ZeroOneOmega-rigMult arg-5 e-19))) (TTImpC-45ElabC-45App-case--checkAppWithC-39-7183 arg-0 e-18 e-26 e-21 e-19 e-12 e-10 e-9 arg-17 arg-16 arg-15 arg-14 arg-13 arg-12 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 u--argRig (TTImpC-45ElabC-45App-findNamed e-10 arg-15))))) (let ((u--argRig (AlgebraC-45ZeroOneOmega-rigMult arg-5 e-19))) (TTImpC-45ElabC-45App-case--checkAppWithC-39-7183 arg-0 e-18 e-26 e-21 e-19 e-12 e-10 e-9 arg-17 arg-16 arg-15 arg-14 arg-13 arg-12 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 u--argRig (TTImpC-45ElabC-45App-findNamed e-10 arg-15)))))))(else (let ((sc2 arg-12)) (if (null? sc2) (lambda (clam-11) (let ((sc3 arg-13)) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) ((TTImpC-45ElabC-45App-case--checkAppWithC-39-7751 arg-0 arg-17 arg-16 arg-15 arg-14 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 (PreludeC-45Interfaces-all (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (lambda (eta-0) (TTImpC-45ElabC-45App-isImplicitAs eta-0)) (PreludeC-45TypesC-45List-C-43C-43 arg-14 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) (DataC-45List-filter (lambda (eta-0) (let ((sc5 (TTImpC-45ElabC-45App-isBindAllExpPattern (Builtin-fst eta-0)))) (cond ((equal? sc5 0) 1) (else 0)))) arg-15))))) clam-11)))))))) (let ((e-3 (car sc2))) (let ((e-4 (cdr sc2))) (lambda (clam-5) (let ((sc3 arg-13)) (if (null? sc3) (let ((sc4 arg-13)) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) ((TTImpC-45ElabC-45App-case--checkAppWithC-39-7751 arg-0 arg-17 arg-16 arg-15 arg-14 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 (PreludeC-45Interfaces-all (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (lambda (eta-0) (TTImpC-45ElabC-45App-isImplicitAs eta-0)) (PreludeC-45TypesC-45List-C-43C-43 arg-14 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) (DataC-45List-filter (lambda (eta-0) (let ((sc6 (TTImpC-45ElabC-45App-isBindAllExpPattern (Builtin-fst eta-0)))) (cond ((equal? sc6 0) 1) (else 0)))) arg-15))))) clam-5))))))) (let ((e-6 (car sc3))) (let ((e-7 (cdr sc3))) (let ((act-24 (CoreC-45Normalise-logNF arg-0 arg-1 "elab.with" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Function type") arg-8 arg-11 clam-5))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45ContextC-45Log-logTerm arg-0 arg-1 "elab.with" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Function ") arg-10 clam-5))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45UnifyState-genName arg-1 arg-3 "argTy" clam-5))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref sc6 1))) (let ((act-27 (CoreC-45UnifyState-genName arg-1 arg-3 "retTy" clam-5))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref sc7 1))) (let ((act-28 (TTImpC-45ElabC-45Check-metaVar arg-0 arg-1 arg-3 arg-9 (AlgebraC-45Semiring-erased (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))) arg-8 e-13 (vector 11 arg-9) clam-5))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-15 (vector-ref sc8 1))) (let ((u--argTyG (CoreC-45Normalise-gnf arg-0 arg-8 e-15))) (let ((act-29 (TTImpC-45ElabC-45Check-metaVar arg-0 arg-1 arg-3 arg-9 (AlgebraC-45Semiring-erased (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))) arg-8 e-14 (vector 11 arg-9) clam-5))) (let ((sc9 act-29)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-16 (vector-ref sc9 1))) (let ((act-30 ((TTImpC-45ElabC-45Check-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-6 (vector 1 u--argTyG)) clam-5))) (let ((sc10 act-30)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-17 (vector-ref sc10 1))) (let ((sc11 e-17)) (let ((e-2 (car sc11))) (let ((e-22 (cdr sc11))) (let ((u--fntm (vector 4 arg-9 arg-10 e-2))) (let ((act-31 (let ((act-31 (unbox arg-1))) (vector 1 act-31)))) (let ((sc12 act-31)) (case (vector-ref sc12 0) ((0) (let ((e-23 (vector-ref sc12 1))) (vector 0 e-23))) (else (let ((e-23 (vector-ref sc12 1))) (let ((act-32 ((CoreC-45Normalise-nf arg-1 arg-0 e-23 arg-8 e-16) clam-5))) (let ((sc13 act-32)) (case (vector-ref sc13 0) ((0) (let ((e-24 (vector-ref sc13 1))) (vector 0 e-24))) (else (let ((e-24 (vector-ref sc13 1))) (let ((u--expfnty (CoreC-45Normalise-gnf arg-0 arg-8 (vector 3 arg-9 e-13 (vector 2 arg-9 (AlgebraC-45ZeroOneOmega-u--top_Top_ZeroOneOmega) (vector 1 ) e-15) (CoreC-45TT-u--weaken_Weaken_Term e-16))))) (let ((act-33 (CoreC-45Normalise-logGlue arg-0 arg-1 "elab.with" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected function type") arg-8 u--expfnty clam-5))) (let ((sc14 act-33)) (case (vector-ref sc14 0) ((0) (let ((e-25 (vector-ref sc14 1))) (vector 0 e-25))) (else (let ((act-34 (let ((sc15 arg-17)) (case (vector-ref sc15 0) ((1) (let ((e-1 (vector-ref sc15 1))) (CoreC-45Normalise-logGlue arg-0 arg-1 "elab.with" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected result type") arg-8 e-1 clam-5))) (else (vector 1 (vector 0 ))))))) (let ((sc15 act-34)) (case (vector-ref sc15 0) ((0) (let ((e-26 (vector-ref sc15 1))) (vector 0 e-26))) (else (let ((act-35 ((TTImpC-45ElabC-45App-checkAppWithC-39 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 u--fntm e-24 (cons e-3 (PreludeC-45Types-u--C-43_Num_Nat (PreludeC-45Types-u--fromInteger_Num_Nat 1) e-4)) e-7 arg-14 arg-15 arg-16 arg-17) clam-5))) (let ((sc16 act-35)) (case (vector-ref sc16 0) ((0) (let ((e-27 (vector-ref sc16 1))) (vector 0 e-27))) (else (let ((e-27 (vector-ref sc16 1))) (let ((act-36 ((TTImpC-45ElabC-45Check-convert arg-0 arg-1 arg-3 arg-4 arg-9 arg-6 arg-8 (CoreC-45Normalise-glueBack arg-1 arg-0 e-23 arg-8 arg-11) u--expfnty) clam-5))) (let ((sc17 act-36)) (case (vector-ref sc17 0) ((0) (let ((e-28 (vector-ref sc17 1))) (vector 0 e-28))) (else (let ((e-28 (vector-ref sc17 1))) (let ((_-0 (cons e-2 e-22))) (TTImpC-45ElabC-45App-case--caseC-32blockC-32inC-32checkAppWithC-39-7541 e-3 e-4 e-6 e-7 arg-0 arg-17 arg-16 arg-15 arg-14 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-13 e-14 e-15 u--argTyG e-16 e-2 e-22 _-0 u--fntm e-23 e-24 u--expfnty e-27 e-28 (let ((sc18 e-28)) (let ((e-0 (vector-ref sc18 1))) e-0)) clam-5))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))(else (let ((sc1 arg-12)) (if (null? sc1) (lambda (clam-13) (let ((sc2 arg-13)) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) ((TTImpC-45ElabC-45App-case--checkAppWithC-39-7751 arg-0 arg-17 arg-16 arg-15 arg-14 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 (PreludeC-45Interfaces-all (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (lambda (eta-0) (TTImpC-45ElabC-45App-isImplicitAs eta-0)) (PreludeC-45TypesC-45List-C-43C-43 arg-14 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) (DataC-45List-filter (lambda (eta-0) (let ((sc4 (TTImpC-45ElabC-45App-isBindAllExpPattern (Builtin-fst eta-0)))) (cond ((equal? sc4 0) 1) (else 0)))) arg-15))))) clam-13)))))))) (let ((e-3 (car sc1))) (let ((e-4 (cdr sc1))) (lambda (clam-6) (let ((sc2 arg-13)) (if (null? sc2) (let ((sc3 arg-13)) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) ((TTImpC-45ElabC-45App-case--checkAppWithC-39-7751 arg-0 arg-17 arg-16 arg-15 arg-14 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 (PreludeC-45Interfaces-all (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (lambda (eta-0) (TTImpC-45ElabC-45App-isImplicitAs eta-0)) (PreludeC-45TypesC-45List-C-43C-43 arg-14 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) (DataC-45List-filter (lambda (eta-0) (let ((sc5 (TTImpC-45ElabC-45App-isBindAllExpPattern (Builtin-fst eta-0)))) (cond ((equal? sc5 0) 1) (else 0)))) arg-15))))) clam-6))))))) (let ((e-6 (car sc2))) (let ((e-7 (cdr sc2))) (let ((act-24 (CoreC-45Normalise-logNF arg-0 arg-1 "elab.with" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Function type") arg-8 arg-11 clam-6))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45ContextC-45Log-logTerm arg-0 arg-1 "elab.with" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Function ") arg-10 clam-6))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45UnifyState-genName arg-1 arg-3 "argTy" clam-6))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref sc5 1))) (let ((act-27 (CoreC-45UnifyState-genName arg-1 arg-3 "retTy" clam-6))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref sc6 1))) (let ((act-28 (TTImpC-45ElabC-45Check-metaVar arg-0 arg-1 arg-3 arg-9 (AlgebraC-45Semiring-erased (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))) arg-8 e-13 (vector 11 arg-9) clam-6))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-15 (vector-ref sc7 1))) (let ((u--argTyG (CoreC-45Normalise-gnf arg-0 arg-8 e-15))) (let ((act-29 (TTImpC-45ElabC-45Check-metaVar arg-0 arg-1 arg-3 arg-9 (AlgebraC-45Semiring-erased (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))) arg-8 e-14 (vector 11 arg-9) clam-6))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-16 (vector-ref sc8 1))) (let ((act-30 ((TTImpC-45ElabC-45Check-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-6 (vector 1 u--argTyG)) clam-6))) (let ((sc9 act-30)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-17 (vector-ref sc9 1))) (let ((sc10 e-17)) (let ((e-2 (car sc10))) (let ((e-18 (cdr sc10))) (let ((u--fntm (vector 4 arg-9 arg-10 e-2))) (let ((act-31 (let ((act-31 (unbox arg-1))) (vector 1 act-31)))) (let ((sc11 act-31)) (case (vector-ref sc11 0) ((0) (let ((e-19 (vector-ref sc11 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref sc11 1))) (let ((act-32 ((CoreC-45Normalise-nf arg-1 arg-0 e-19 arg-8 e-16) clam-6))) (let ((sc12 act-32)) (case (vector-ref sc12 0) ((0) (let ((e-20 (vector-ref sc12 1))) (vector 0 e-20))) (else (let ((e-20 (vector-ref sc12 1))) (let ((u--expfnty (CoreC-45Normalise-gnf arg-0 arg-8 (vector 3 arg-9 e-13 (vector 2 arg-9 (AlgebraC-45ZeroOneOmega-u--top_Top_ZeroOneOmega) (vector 1 ) e-15) (CoreC-45TT-u--weaken_Weaken_Term e-16))))) (let ((act-33 (CoreC-45Normalise-logGlue arg-0 arg-1 "elab.with" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected function type") arg-8 u--expfnty clam-6))) (let ((sc13 act-33)) (case (vector-ref sc13 0) ((0) (let ((e-21 (vector-ref sc13 1))) (vector 0 e-21))) (else (let ((act-34 (let ((sc14 arg-17)) (case (vector-ref sc14 0) ((1) (let ((e-1 (vector-ref sc14 1))) (CoreC-45Normalise-logGlue arg-0 arg-1 "elab.with" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected result type") arg-8 e-1 clam-6))) (else (vector 1 (vector 0 ))))))) (let ((sc14 act-34)) (case (vector-ref sc14 0) ((0) (let ((e-22 (vector-ref sc14 1))) (vector 0 e-22))) (else (let ((act-35 ((TTImpC-45ElabC-45App-checkAppWithC-39 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 u--fntm e-20 (cons e-3 (PreludeC-45Types-u--C-43_Num_Nat (PreludeC-45Types-u--fromInteger_Num_Nat 1) e-4)) e-7 arg-14 arg-15 arg-16 arg-17) clam-6))) (let ((sc15 act-35)) (case (vector-ref sc15 0) ((0) (let ((e-23 (vector-ref sc15 1))) (vector 0 e-23))) (else (let ((e-23 (vector-ref sc15 1))) (let ((act-36 ((TTImpC-45ElabC-45Check-convert arg-0 arg-1 arg-3 arg-4 arg-9 arg-6 arg-8 (CoreC-45Normalise-glueBack arg-1 arg-0 e-19 arg-8 arg-11) u--expfnty) clam-6))) (let ((sc16 act-36)) (case (vector-ref sc16 0) ((0) (let ((e-24 (vector-ref sc16 1))) (vector 0 e-24))) (else (let ((e-24 (vector-ref sc16 1))) (let ((_-0 (cons e-2 e-18))) (TTImpC-45ElabC-45App-case--caseC-32blockC-32inC-32checkAppWithC-39-7541 e-3 e-4 e-6 e-7 arg-0 arg-17 arg-16 arg-15 arg-14 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-13 e-14 e-15 u--argTyG e-16 e-2 e-18 _-0 u--fntm e-19 e-20 u--expfnty e-23 e-24 (let ((sc17 e-24)) (let ((e-0 (vector-ref sc17 1))) e-0)) clam-6)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) ((5) (let ((e-14 (vector-ref sc0 1))) (let ((e-15 (vector-ref sc0 2))) (let ((e-16 (vector-ref sc0 3))) (let ((sc1 e-16)) (case (vector-ref sc1 0) ((0) (let ((e-53 (vector-ref sc1 3))) (let ((sc2 e-53)) (case (vector-ref sc2 0) ((2) (TTImpC-45ElabC-45App-checkAppWithC-39 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (vector 8 e-14 e-15 arg-10) e-16 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17))(else (let ((sc2 arg-12)) (if (null? sc2) (lambda (clam-15) (let ((sc3 arg-13)) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) ((TTImpC-45ElabC-45App-case--checkAppWithC-39-7751 arg-0 arg-17 arg-16 arg-15 arg-14 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 (PreludeC-45Interfaces-all (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (lambda (eta-0) (TTImpC-45ElabC-45App-isImplicitAs eta-0)) (PreludeC-45TypesC-45List-C-43C-43 arg-14 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) (DataC-45List-filter (lambda (eta-0) (let ((sc5 (TTImpC-45ElabC-45App-isBindAllExpPattern (Builtin-fst eta-0)))) (cond ((equal? sc5 0) 1) (else 0)))) arg-15))))) clam-15)))))))) (let ((e-3 (car sc2))) (let ((e-4 (cdr sc2))) (lambda (clam-7) (let ((sc3 arg-13)) (if (null? sc3) (let ((sc4 arg-13)) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) ((TTImpC-45ElabC-45App-case--checkAppWithC-39-7751 arg-0 arg-17 arg-16 arg-15 arg-14 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 (PreludeC-45Interfaces-all (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (lambda (eta-0) (TTImpC-45ElabC-45App-isImplicitAs eta-0)) (PreludeC-45TypesC-45List-C-43C-43 arg-14 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) (DataC-45List-filter (lambda (eta-0) (let ((sc6 (TTImpC-45ElabC-45App-isBindAllExpPattern (Builtin-fst eta-0)))) (cond ((equal? sc6 0) 1) (else 0)))) arg-15))))) clam-7))))))) (let ((e-6 (car sc3))) (let ((e-7 (cdr sc3))) (let ((act-24 (CoreC-45Normalise-logNF arg-0 arg-1 "elab.with" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Function type") arg-8 arg-11 clam-7))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45ContextC-45Log-logTerm arg-0 arg-1 "elab.with" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Function ") arg-10 clam-7))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45UnifyState-genName arg-1 arg-3 "argTy" clam-7))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 (CoreC-45UnifyState-genName arg-1 arg-3 "retTy" clam-7))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 (TTImpC-45ElabC-45Check-metaVar arg-0 arg-1 arg-3 arg-9 (AlgebraC-45Semiring-erased (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))) arg-8 e-9 (vector 11 arg-9) clam-7))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc8 1))) (let ((u--argTyG (CoreC-45Normalise-gnf arg-0 arg-8 e-11))) (let ((act-29 (TTImpC-45ElabC-45Check-metaVar arg-0 arg-1 arg-3 arg-9 (AlgebraC-45Semiring-erased (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))) arg-8 e-10 (vector 11 arg-9) clam-7))) (let ((sc9 act-29)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc9 1))) (let ((act-30 ((TTImpC-45ElabC-45Check-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-6 (vector 1 u--argTyG)) clam-7))) (let ((sc10 act-30)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref sc10 1))) (let ((sc11 e-13)) (let ((e-2 (car sc11))) (let ((e-17 (cdr sc11))) (let ((u--fntm (vector 4 arg-9 arg-10 e-2))) (let ((act-31 (let ((act-31 (unbox arg-1))) (vector 1 act-31)))) (let ((sc12 act-31)) (case (vector-ref sc12 0) ((0) (let ((e-18 (vector-ref sc12 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc12 1))) (let ((act-32 ((CoreC-45Normalise-nf arg-1 arg-0 e-18 arg-8 e-12) clam-7))) (let ((sc13 act-32)) (case (vector-ref sc13 0) ((0) (let ((e-19 (vector-ref sc13 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref sc13 1))) (let ((u--expfnty (CoreC-45Normalise-gnf arg-0 arg-8 (vector 3 arg-9 e-9 (vector 2 arg-9 (AlgebraC-45ZeroOneOmega-u--top_Top_ZeroOneOmega) (vector 1 ) e-11) (CoreC-45TT-u--weaken_Weaken_Term e-12))))) (let ((act-33 (CoreC-45Normalise-logGlue arg-0 arg-1 "elab.with" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected function type") arg-8 u--expfnty clam-7))) (let ((sc14 act-33)) (case (vector-ref sc14 0) ((0) (let ((e-20 (vector-ref sc14 1))) (vector 0 e-20))) (else (let ((act-34 (let ((sc15 arg-17)) (case (vector-ref sc15 0) ((1) (let ((e-1 (vector-ref sc15 1))) (CoreC-45Normalise-logGlue arg-0 arg-1 "elab.with" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected result type") arg-8 e-1 clam-7))) (else (vector 1 (vector 0 ))))))) (let ((sc15 act-34)) (case (vector-ref sc15 0) ((0) (let ((e-21 (vector-ref sc15 1))) (vector 0 e-21))) (else (let ((act-35 ((TTImpC-45ElabC-45App-checkAppWithC-39 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 u--fntm e-19 (cons e-3 (PreludeC-45Types-u--C-43_Num_Nat (PreludeC-45Types-u--fromInteger_Num_Nat 1) e-4)) e-7 arg-14 arg-15 arg-16 arg-17) clam-7))) (let ((sc16 act-35)) (case (vector-ref sc16 0) ((0) (let ((e-22 (vector-ref sc16 1))) (vector 0 e-22))) (else (let ((e-22 (vector-ref sc16 1))) (let ((act-36 ((TTImpC-45ElabC-45Check-convert arg-0 arg-1 arg-3 arg-4 arg-9 arg-6 arg-8 (CoreC-45Normalise-glueBack arg-1 arg-0 e-18 arg-8 arg-11) u--expfnty) clam-7))) (let ((sc17 act-36)) (case (vector-ref sc17 0) ((0) (let ((e-23 (vector-ref sc17 1))) (vector 0 e-23))) (else (let ((e-23 (vector-ref sc17 1))) (let ((_-0 (cons e-2 e-17))) (TTImpC-45ElabC-45App-case--caseC-32blockC-32inC-32checkAppWithC-39-7541 e-3 e-4 e-6 e-7 arg-0 arg-17 arg-16 arg-15 arg-14 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-9 e-10 e-11 u--argTyG e-12 e-2 e-17 _-0 u--fntm e-18 e-19 u--expfnty e-22 e-23 (let ((sc18 e-23)) (let ((e-0 (vector-ref sc18 1))) e-0)) clam-7)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))(else (let ((sc1 arg-12)) (if (null? sc1) (lambda (clam-17) (let ((sc2 arg-13)) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) ((TTImpC-45ElabC-45App-case--checkAppWithC-39-7751 arg-0 arg-17 arg-16 arg-15 arg-14 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 (PreludeC-45Interfaces-all (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (lambda (eta-0) (TTImpC-45ElabC-45App-isImplicitAs eta-0)) (PreludeC-45TypesC-45List-C-43C-43 arg-14 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) (DataC-45List-filter (lambda (eta-0) (let ((sc4 (TTImpC-45ElabC-45App-isBindAllExpPattern (Builtin-fst eta-0)))) (cond ((equal? sc4 0) 1) (else 0)))) arg-15))))) clam-17)))))))) (let ((e-3 (car sc1))) (let ((e-4 (cdr sc1))) (lambda (clam-8) (let ((sc2 arg-13)) (if (null? sc2) (let ((sc3 arg-13)) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) ((TTImpC-45ElabC-45App-case--checkAppWithC-39-7751 arg-0 arg-17 arg-16 arg-15 arg-14 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 (PreludeC-45Interfaces-all (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (lambda (eta-0) (TTImpC-45ElabC-45App-isImplicitAs eta-0)) (PreludeC-45TypesC-45List-C-43C-43 arg-14 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) (DataC-45List-filter (lambda (eta-0) (let ((sc5 (TTImpC-45ElabC-45App-isBindAllExpPattern (Builtin-fst eta-0)))) (cond ((equal? sc5 0) 1) (else 0)))) arg-15))))) clam-8))))))) (let ((e-6 (car sc2))) (let ((e-7 (cdr sc2))) (let ((act-24 (CoreC-45Normalise-logNF arg-0 arg-1 "elab.with" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Function type") arg-8 arg-11 clam-8))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45ContextC-45Log-logTerm arg-0 arg-1 "elab.with" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Function ") arg-10 clam-8))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45UnifyState-genName arg-1 arg-3 "argTy" clam-8))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-27 (CoreC-45UnifyState-genName arg-1 arg-3 "retTy" clam-8))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-28 (TTImpC-45ElabC-45Check-metaVar arg-0 arg-1 arg-3 arg-9 (AlgebraC-45Semiring-erased (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))) arg-8 e-9 (vector 11 arg-9) clam-8))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc7 1))) (let ((u--argTyG (CoreC-45Normalise-gnf arg-0 arg-8 e-11))) (let ((act-29 (TTImpC-45ElabC-45Check-metaVar arg-0 arg-1 arg-3 arg-9 (AlgebraC-45Semiring-erased (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))) arg-8 e-10 (vector 11 arg-9) clam-8))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-30 ((TTImpC-45ElabC-45Check-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-6 (vector 1 u--argTyG)) clam-8))) (let ((sc9 act-30)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref sc9 1))) (let ((sc10 e-13)) (let ((e-2 (car sc10))) (let ((e-17 (cdr sc10))) (let ((u--fntm (vector 4 arg-9 arg-10 e-2))) (let ((act-31 (let ((act-31 (unbox arg-1))) (vector 1 act-31)))) (let ((sc11 act-31)) (case (vector-ref sc11 0) ((0) (let ((e-18 (vector-ref sc11 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc11 1))) (let ((act-32 ((CoreC-45Normalise-nf arg-1 arg-0 e-18 arg-8 e-12) clam-8))) (let ((sc12 act-32)) (case (vector-ref sc12 0) ((0) (let ((e-19 (vector-ref sc12 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref sc12 1))) (let ((u--expfnty (CoreC-45Normalise-gnf arg-0 arg-8 (vector 3 arg-9 e-9 (vector 2 arg-9 (AlgebraC-45ZeroOneOmega-u--top_Top_ZeroOneOmega) (vector 1 ) e-11) (CoreC-45TT-u--weaken_Weaken_Term e-12))))) (let ((act-33 (CoreC-45Normalise-logGlue arg-0 arg-1 "elab.with" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected function type") arg-8 u--expfnty clam-8))) (let ((sc13 act-33)) (case (vector-ref sc13 0) ((0) (let ((e-20 (vector-ref sc13 1))) (vector 0 e-20))) (else (let ((act-34 (let ((sc14 arg-17)) (case (vector-ref sc14 0) ((1) (let ((e-1 (vector-ref sc14 1))) (CoreC-45Normalise-logGlue arg-0 arg-1 "elab.with" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected result type") arg-8 e-1 clam-8))) (else (vector 1 (vector 0 ))))))) (let ((sc14 act-34)) (case (vector-ref sc14 0) ((0) (let ((e-21 (vector-ref sc14 1))) (vector 0 e-21))) (else (let ((act-35 ((TTImpC-45ElabC-45App-checkAppWithC-39 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 u--fntm e-19 (cons e-3 (PreludeC-45Types-u--C-43_Num_Nat (PreludeC-45Types-u--fromInteger_Num_Nat 1) e-4)) e-7 arg-14 arg-15 arg-16 arg-17) clam-8))) (let ((sc15 act-35)) (case (vector-ref sc15 0) ((0) (let ((e-22 (vector-ref sc15 1))) (vector 0 e-22))) (else (let ((e-22 (vector-ref sc15 1))) (let ((act-36 ((TTImpC-45ElabC-45Check-convert arg-0 arg-1 arg-3 arg-4 arg-9 arg-6 arg-8 (CoreC-45Normalise-glueBack arg-1 arg-0 e-18 arg-8 arg-11) u--expfnty) clam-8))) (let ((sc16 act-36)) (case (vector-ref sc16 0) ((0) (let ((e-23 (vector-ref sc16 1))) (vector 0 e-23))) (else (let ((e-23 (vector-ref sc16 1))) (let ((_-0 (cons e-2 e-17))) (TTImpC-45ElabC-45App-case--caseC-32blockC-32inC-32checkAppWithC-39-7541 e-3 e-4 e-6 e-7 arg-0 arg-17 arg-16 arg-15 arg-14 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-9 e-10 e-11 u--argTyG e-12 e-2 e-17 _-0 u--fntm e-18 e-19 u--expfnty e-22 e-23 (let ((sc17 e-23)) (let ((e-0 (vector-ref sc17 1))) e-0)) clam-8)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))(else (let ((sc0 arg-12)) (if (null? sc0) (lambda (clam-19) (let ((sc1 arg-13)) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) ((TTImpC-45ElabC-45App-case--checkAppWithC-39-7751 arg-0 arg-17 arg-16 arg-15 arg-14 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 (PreludeC-45Interfaces-all (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (lambda (eta-0) (TTImpC-45ElabC-45App-isImplicitAs eta-0)) (PreludeC-45TypesC-45List-C-43C-43 arg-14 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) (DataC-45List-filter (lambda (eta-0) (let ((sc3 (TTImpC-45ElabC-45App-isBindAllExpPattern (Builtin-fst eta-0)))) (cond ((equal? sc3 0) 1) (else 0)))) arg-15))))) clam-19)))))))) (let ((e-3 (car sc0))) (let ((e-4 (cdr sc0))) (lambda (clam-9) (let ((sc1 arg-13)) (if (null? sc1) (let ((sc2 arg-13)) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) ((TTImpC-45ElabC-45App-case--checkAppWithC-39-7751 arg-0 arg-17 arg-16 arg-15 arg-14 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 (PreludeC-45Interfaces-all (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (lambda (eta-0) (TTImpC-45ElabC-45App-isImplicitAs eta-0)) (PreludeC-45TypesC-45List-C-43C-43 arg-14 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) (DataC-45List-filter (lambda (eta-0) (let ((sc4 (TTImpC-45ElabC-45App-isBindAllExpPattern (Builtin-fst eta-0)))) (cond ((equal? sc4 0) 1) (else 0)))) arg-15))))) clam-9))))))) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (let ((act-24 (CoreC-45Normalise-logNF arg-0 arg-1 "elab.with" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Function type") arg-8 arg-11 clam-9))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45ContextC-45Log-logTerm arg-0 arg-1 "elab.with" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Function ") arg-10 clam-9))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45UnifyState-genName arg-1 arg-3 "argTy" clam-9))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-27 (CoreC-45UnifyState-genName arg-1 arg-3 "retTy" clam-9))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-28 (TTImpC-45ElabC-45Check-metaVar arg-0 arg-1 arg-3 arg-9 (AlgebraC-45Semiring-erased (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))) arg-8 e-9 (vector 11 arg-9) clam-9))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc6 1))) (let ((u--argTyG (CoreC-45Normalise-gnf arg-0 arg-8 e-11))) (let ((act-29 (TTImpC-45ElabC-45Check-metaVar arg-0 arg-1 arg-3 arg-9 (AlgebraC-45Semiring-erased (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))) arg-8 e-10 (vector 11 arg-9) clam-9))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc7 1))) (let ((act-30 ((TTImpC-45ElabC-45Check-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-6 (vector 1 u--argTyG)) clam-9))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref sc8 1))) (let ((sc9 e-13)) (let ((e-2 (car sc9))) (let ((e-14 (cdr sc9))) (let ((u--fntm (vector 4 arg-9 arg-10 e-2))) (let ((act-31 (let ((act-31 (unbox arg-1))) (vector 1 act-31)))) (let ((sc10 act-31)) (case (vector-ref sc10 0) ((0) (let ((e-15 (vector-ref sc10 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc10 1))) (let ((act-32 ((CoreC-45Normalise-nf arg-1 arg-0 e-15 arg-8 e-12) clam-9))) (let ((sc11 act-32)) (case (vector-ref sc11 0) ((0) (let ((e-16 (vector-ref sc11 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc11 1))) (let ((u--expfnty (CoreC-45Normalise-gnf arg-0 arg-8 (vector 3 arg-9 e-9 (vector 2 arg-9 (AlgebraC-45ZeroOneOmega-u--top_Top_ZeroOneOmega) (vector 1 ) e-11) (CoreC-45TT-u--weaken_Weaken_Term e-12))))) (let ((act-33 (CoreC-45Normalise-logGlue arg-0 arg-1 "elab.with" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected function type") arg-8 u--expfnty clam-9))) (let ((sc12 act-33)) (case (vector-ref sc12 0) ((0) (let ((e-17 (vector-ref sc12 1))) (vector 0 e-17))) (else (let ((act-34 (let ((sc13 arg-17)) (case (vector-ref sc13 0) ((1) (let ((e-1 (vector-ref sc13 1))) (CoreC-45Normalise-logGlue arg-0 arg-1 "elab.with" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected result type") arg-8 e-1 clam-9))) (else (vector 1 (vector 0 ))))))) (let ((sc13 act-34)) (case (vector-ref sc13 0) ((0) (let ((e-18 (vector-ref sc13 1))) (vector 0 e-18))) (else (let ((act-35 ((TTImpC-45ElabC-45App-checkAppWithC-39 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 u--fntm e-16 (cons e-3 (PreludeC-45Types-u--C-43_Num_Nat (PreludeC-45Types-u--fromInteger_Num_Nat 1) e-4)) e-7 arg-14 arg-15 arg-16 arg-17) clam-9))) (let ((sc14 act-35)) (case (vector-ref sc14 0) ((0) (let ((e-19 (vector-ref sc14 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref sc14 1))) (let ((act-36 ((TTImpC-45ElabC-45Check-convert arg-0 arg-1 arg-3 arg-4 arg-9 arg-6 arg-8 (CoreC-45Normalise-glueBack arg-1 arg-0 e-15 arg-8 arg-11) u--expfnty) clam-9))) (let ((sc15 act-36)) (case (vector-ref sc15 0) ((0) (let ((e-20 (vector-ref sc15 1))) (vector 0 e-20))) (else (let ((e-20 (vector-ref sc15 1))) (let ((_-0 (cons e-2 e-14))) (TTImpC-45ElabC-45App-case--caseC-32blockC-32inC-32checkAppWithC-39-7541 e-3 e-4 e-6 e-7 arg-0 arg-17 arg-16 arg-15 arg-14 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-9 e-10 e-11 u--argTyG e-12 e-2 e-14 _-0 u--fntm e-15 e-16 u--expfnty e-19 e-20 (let ((sc16 e-20)) (let ((e-0 (vector-ref sc16 1))) e-0)) clam-9))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) -(define TTImpC-45ElabC-45App-checkAppWith (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 ext-0) (let ((act-24 ((TTImpC-45ElabC-45App-checkAppWithC-39 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((TTImpC-45ElabC-45App-case--checkAppWith-7875 arg-0 arg-17 arg-16 arg-15 arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 (TTImpC-45ElabC-45Check-isLHS (let ((sc1 arg-6)) (let ((e-0 (vector-ref sc1 1))) e-0)))) ext-0)))))))) -(define TTImpC-45ElabC-45App-checkApp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((8) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (TTImpC-45ElabC-45App-checkApp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-0 e-1 (cons e-2 arg-11) arg-12 arg-13 arg-14))))) ((9) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (TTImpC-45ElabC-45App-checkApp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-3 e-4 arg-11 (cons e-5 arg-12) arg-13 arg-14))))) ((10) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (let ((e-9 (vector-ref sc0 4))) (TTImpC-45ElabC-45App-checkApp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-6 e-7 arg-11 arg-12 (cons (cons e-8 e-9) arg-13) arg-14)))))) ((0) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((TTImpC-45ElabC-45App-getVarType arg-0 arg-1 arg-2 arg-4 arg-5 arg-7 arg-8 e-10 e-11) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (car sc2))) (let ((e-3 (cdr sc2))) (let ((sc3 e-3)) (let ((e-6 (car sc3))) (let ((e-7 (cdr sc3))) (let ((act-25 ((CoreC-45Normalise-getNF arg-1 e-7) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-26 (CoreC-45Context-getPrimitiveNames arg-1 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-27 ((TTImpC-45ElabC-45App-n--20430-8356-u--updateElabInfo arg-0 e-11 e-10 arg-14 arg-13 arg-12 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-9 (let ((sc6 arg-6)) (let ((e-0 (vector-ref sc6 1))) e-0)) e-11 arg-11 arg-6) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc6 1))) (let ((act-28 (CoreC-45Metadata-addNameLoc arg-2 arg-1 e-10 e-11 eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((act-29 (CoreC-45ContextC-45Log-logC arg-1 "elab" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda (eta-1) (let ((act-29 (let ((act-29 (unbox arg-1))) (vector 1 act-29)))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-14 (vector-ref sc8 1))) (let ((act-30 (CoreC-45Normalise-u--quote_Quote_NF arg-1 arg-0 e-14 arg-8 e-8 eta-1))) (let ((sc9 act-30)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-15 (vector-ref sc9 1))) (let ((act-31 ((PreludeC-45Types-maybe (lambda () (lambda (eta-2) (vector 1 (vector 0 )))) (lambda () (lambda (u--t) (lambda (eta-2) (let ((act-31 ((CoreC-45Normalise-getTerm u--t) eta-2))) (let ((sc10 act-31)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-16 (vector-ref sc10 1))) (let ((act-32 (CoreC-45Normalise-normaliseHoles arg-1 arg-0 e-14 arg-8 e-16 eta-2))) (let ((sc11 act-32)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((e-17 (vector-ref sc11 1))) (let ((act-33 (CoreC-45Context-toFullNames arg-1 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-3) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-3)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) e-17 eta-2))) (let ((sc12 act-33)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (let ((e-18 (vector-ref sc12 1))) (vector 1 (vector 1 e-18)))))))))))))))))))) arg-14) eta-1))) (let ((sc10 act-31)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-16 (vector-ref sc10 1))) (let ((act-32 (CoreC-45Context-getFullName arg-1 e-11 eta-1))) (let ((sc11 act-32)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((e-17 (vector-ref sc11 1))) (let ((act-33 (CoreC-45Context-toFullNames arg-1 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-2) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-2)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) e-15 eta-1))) (let ((sc12 act-33)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (let ((e-18 (vector-ref sc12 1))) (vector 1 (PreludeC-45TypesC-45String-C-43C-43 "Checking application of " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-17) (PreludeC-45TypesC-45String-C-43C-43 " (" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-11) (PreludeC-45TypesC-45String-C-43C-43 ")" (PreludeC-45TypesC-45String-C-43C-43 " to " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (TTImpC-45TTImp-u--show_Show_RawImp u--x)) (lambda (u--d) (lambda (u--x) (TTImpC-45TTImp-u--showPrec_Show_RawImp u--d u--x)))) arg-11) (PreludeC-45TypesC-45String-C-43C-43 "\u000a\u0009Function type " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 e-18) (PreludeC-45TypesC-45String-C-43C-43 "\u000a\u0009Expected app type " (PreludeC-45Show-u--show_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-0 u--d u--x)))) e-16)))))))))))))))))))))))))))))))))))))) eta-0))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((u--fn (let ((_-0 (cons e-2 (cons e-6 e-7)))) (TTImpC-45ElabC-45App-case--caseC-32blockC-32inC-32checkApp-8773 arg-0 e-11 e-10 arg-14 arg-13 arg-12 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-2 e-6 e-7 _-0 e-8 e-9 e-12 (DataC-45List-lookup (cons (lambda (arg-15) (lambda (arg-16) (CoreC-45Name-u--C-61C-61_Eq_Name arg-15 arg-16))) (lambda (arg-15) (lambda (arg-16) (CoreC-45Name-u--C-47C-61_Eq_Name arg-15 arg-16)))) e-11 arg-7))))) (let ((act-30 (TTImpC-45ElabC-45App-checkAppWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-12 arg-7 arg-8 arg-9 e-2 e-8 (cons (vector 1 u--fn) e-6) arg-11 arg-12 arg-13 1 arg-14 eta-0))) (let ((sc9 act-30)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-15 (vector-ref sc9 1))) (TTImpC-45ElabC-45App-n--20430-8355-u--normalisePrims arg-0 e-11 e-10 arg-14 arg-13 arg-12 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 e-9 arg-8 e-15 eta-0)))))))))))))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((TTImpC-45ElabC-45Check-checkImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 (vector 0 )) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-2 (car sc1))) (let ((e-3 (cdr sc1))) (let ((act-25 ((CoreC-45Normalise-getNF arg-1 e-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (TTImpC-45ElabC-45App-checkAppWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-2 e-6 (cons (vector 0 ) 0) arg-11 arg-12 arg-13 1 arg-14 eta-0)))))))))))))))))))) -(define TTImpC-45ElabC-45Ambiguity-case--caseC-32blockC-32inC-32checkAlternative-7795 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((1) (CoreC-45Unify-inLHS))(else (CoreC-45Unify-inTerm)))))) -(define TTImpC-45ElabC-45Ambiguity-case--checkAlternative-7271 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((1) (CoreC-45Unify-inLHS))(else (CoreC-45Unify-inTerm)))))) -(define TTImpC-45ElabC-45Ambiguity-case--pruneByType-7068 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 ext-0) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (vector 1 arg-1)) (else (vector 1 arg-9)))))) -(define TTImpC-45ElabC-45Ambiguity-case--pruneByType-6973 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 ext-0) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (let ((act-24 (TTImpC-45ElabC-45Ambiguity-filterCore (lambda (eta-0) (TTImpC-45ElabC-45Ambiguity-notOverloadable arg-6 eta-0)) arg-8 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45ContextC-45Log-log arg-5 "elab.prune" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Keep " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_Bool x-0)) (lambda (u--d) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_Bool u--d x-0)))) (cons (lambda (x-0) (TTImpC-45TTImp-u--show_Show_RawImp x-0)) (lambda (u--d) (lambda (x-0) (TTImpC-45TTImp-u--showPrec_Show_RawImp u--d x-0))))) u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_Bool x-0)) (lambda (d-0) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_Bool d-0 x-0)))) (cons (lambda (x-0) (TTImpC-45TTImp-u--show_Show_RawImp x-0)) (lambda (d-0) (lambda (x-0) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-0 x-0))))) u--d u--x)))) e-5))) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (vector 1 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)))))))))))) (else (vector 1 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) arg-8))))))) -(define TTImpC-45ElabC-45Ambiguity-case--mightMatch-6309 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (vector 1 (vector 0 ))) (else (vector 1 (vector 2 ))))))) -(define TTImpC-45ElabC-45Ambiguity-case--mightMatch-6149 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 ext-0) (let ((sc0 arg-13)) (cond ((equal? sc0 0) (let ((act-24 (TTImpC-45ElabC-45Ambiguity-mightMatchArgs arg-12 arg-0 arg-11 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) arg-3) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) arg-7) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (cond ((equal? sc2 0) (vector 1 (vector 0 ))) (else (vector 1 (vector 2 ))))))))))) (else (vector 1 (vector 2 ))))))) -(define TTImpC-45ElabC-45Ambiguity-case--mightMatch-5989 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 ext-0) (let ((sc0 arg-13)) (cond ((equal? sc0 0) (let ((act-24 (TTImpC-45ElabC-45Ambiguity-mightMatchArgs arg-12 arg-0 arg-11 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) arg-3) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) arg-7) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (cond ((equal? sc2 0) (vector 1 (vector 0 ))) (else (vector 1 (vector 2 ))))))))))) (else (vector 1 (vector 2 ))))))) -(define TTImpC-45ElabC-45Ambiguity-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32expandAmbigName-5431 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 ext-0) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((act-24 (CoreC-45ContextC-45Log-log arg-10 "elab.ambiguous" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "unambiguous: " (CoreC-45Name-u--show_Show_Name (Builtin-fst e-1)))) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (TTImpC-45ElabC-45Ambiguity-n--11776-4406-u--mkAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-15 arg-12 e-1)))))))) (else (let ((act-24 ((CoreC-45Context-lookupCtxtName arg-1 (let ((sc1 arg-11)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Core-filterM (lambda (eta-0) (TTImpC-45ElabC-45Ambiguity-n--11776-4400-u--visible arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 eta-0)) e-5 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (if (null? sc3) (let ((act-26 (CoreC-45ContextC-45Log-log arg-10 "elab.ambiguous" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Failed to find " (TTImpC-45TTImp-u--show_Show_RawImp arg-5))) ext-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (vector 1 arg-5))))) (let ((e-2 (car sc3))) (let ((e-3 (cdr sc3))) (let ((sc4 e-3)) (if (null? sc4) (let ((act-26 (CoreC-45ContextC-45Log-log arg-10 "elab.ambiguous" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Only one " (CoreC-45Name-u--show_Show_Name (Builtin-fst e-2)))) ext-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (vector 1 (TTImpC-45ElabC-45Ambiguity-n--11776-4406-u--mkAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-15 arg-12 e-2)))))) (vector 1 (vector 13 arg-2 (TTImpC-45ElabC-45Ambiguity-n--11776-4401-u--uniqType arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-13 arg-1 arg-4) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (TTImpC-45ElabC-45Ambiguity-n--11776-4406-u--mkAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-15 arg-12 eta-0)) e-6)))))))))))))))))))))))) -(define TTImpC-45ElabC-45Ambiguity-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32expandAmbigName-5311 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 ext-0) (let ((sc0 arg-13)) (cond ((equal? sc0 0) (let ((act-24 (CoreC-45ContextC-45Log-log arg-10 "elab.ambiguous" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Defined in env " (CoreC-45Name-u--show_Show_Name arg-1))) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 arg-5)))))) (else (vector 1 (vector 19 arg-2 (vector 1 ) arg-5))))))) -(define TTImpC-45ElabC-45Ambiguity-case--caseC-32blockC-32inC-32expandAmbigName-5278 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (TTImpC-45ElabC-45Ambiguity-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32expandAmbigName-5311 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-1 (PreludeC-45Basics-C-124C-124 (DataC-45List-isNil arg-4) (lambda () (TTImpC-45ElabC-45Ambiguity-n--11776-4407-u--notLHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-8))) eta-0)))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Context-getPrimNames arg-10 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((u--prims (CoreC-45Options-primNamesToList e-6))) (let ((u--primApp (TTImpC-45ElabC-45Ambiguity-n--11776-4403-u--isPrimName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 u--prims arg-1))) (TTImpC-45ElabC-45Ambiguity-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32expandAmbigName-5431 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-5 e-6 u--prims u--primApp (TTImpC-45ElabC-45Ambiguity-n--11776-4399-u--lookupUN arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (CoreC-45Name-userNameRoot arg-1) (let ((sc3 e-5)) (let ((e-13 (vector-ref sc3 13))) e-13))) eta-0))))))))))))))))))) -(define TTImpC-45ElabC-45Ambiguity-case--expandAmbigName-5198 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 ext-0) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((act-24 (CoreC-45ContextC-45Log-log arg-10 "elab.ambiguous" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Nested " (CoreC-45Name-u--show_Show_Name arg-1))) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 arg-5)))))) (else (let ((act-24 (let ((act-24 (unbox arg-10))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((TTImpC-45ElabC-45Ambiguity-case--caseC-32blockC-32inC-32expandAmbigName-5278 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-5 (CoreC-45Env-defined arg-0 arg-1 arg-6)) ext-0))))))))))) -(define TTImpC-45ElabC-45Ambiguity-case--expandAmbigNameC-44mkTerm-5029 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (cond ((equal? sc0 0) (let ((sc1 arg-8)) (case (vector-ref sc1 0) ((1) arg-15)(else (vector 27 arg-2 (vector 15 arg-2 arg-15)))))) (else arg-15))))) -(define TTImpC-45ElabC-45Ambiguity-case--expandAmbigNameC-44wrapDot-4921 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (cond ((equal? sc0 0) arg-14) (else (vector 19 arg-2 (vector 2 ) arg-14)))))) -(define TTImpC-45ElabC-45Ambiguity-case--expandAmbigNameC-44wrapDot-4832 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (cond ((equal? sc0 0) arg-14) (else (vector 19 arg-2 (vector 2 ) arg-14)))))) -(define TTImpC-45ElabC-45Ambiguity-case--expandAmbigNameC-44visible-4435 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 ext-0) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((act-24 (CoreC-45Context-isVisible arg-10 e-0 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (cond ((equal? sc2 0) (let ((act-25 (CoreC-45Context-getNS arg-10 ext-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (CoreC-45Context-getNestedNS arg-10 ext-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (vector 1 (CoreC-45Context-visibleInAny (cons e-6 e-7) (vector 0 e-0 e-1) (let ((sc5 arg-13)) (let ((e-9 (vector-ref sc5 10))) e-9))))))))))))))) (else (vector 1 1))))))))))))(else (vector 1 0)))))) -(define TTImpC-45ElabC-45Ambiguity-case--expandAmbigName-4341 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 ext-0) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (vector 1 (vector 19 arg-3 (vector 0 ) arg-6))) (else (vector 1 arg-6)))))) -(define TTImpC-45ElabC-45Ambiguity-n--11776-4404-u--wrapDot (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((5) arg-17) ((6) arg-17)(else (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 arg-15)) (if (null? sc1) (TTImpC-45ElabC-45Ambiguity-case--expandAmbigNameC-44wrapDot-4921 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-15 arg-16 e-0 arg-17 arg-14 arg-12 arg-11 (CoreC-45Name-u--C-61C-61_Eq_Name arg-14 (vector 9 (let ((sc2 arg-12)) (let ((e-2 (vector-ref sc2 2))) e-2))))) (let ((e-2 (car sc1))) (let ((e-3 (cdr sc1))) (let ((sc2 e-3)) (if (null? sc2) (TTImpC-45ElabC-45Ambiguity-case--expandAmbigNameC-44wrapDot-4832 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-16 e-0 e-2 arg-17 arg-14 arg-12 arg-11 (PreludeC-45Basics-C-124C-124 (CoreC-45Name-u--C-61C-61_Eq_Name arg-14 (vector 9 (let ((sc3 arg-12)) (let ((e-15 (vector-ref sc3 2))) e-15)))) (lambda () arg-11))) (TTImpC-45ElabC-45Ambiguity-case--expandAmbigNameC-44wrapDot-4921 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-15 arg-16 e-0 arg-17 arg-14 arg-12 arg-11 (CoreC-45Name-u--C-61C-61_Eq_Name arg-14 (vector 9 (let ((sc3 arg-12)) (let ((e-15 (vector-ref sc3 2))) e-15)))))))))))))(else arg-17)))))))) -(define TTImpC-45ElabC-45Ambiguity-n--11776-4400-u--visible (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-3)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (lambda (eta-0) (TTImpC-45ElabC-45Ambiguity-case--expandAmbigNameC-44visible-4435 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-2 e-6 e-7 (let ((sc2 e-7)) (let ((e-1 (vector-ref sc2 2))) e-1)) eta-0)))))))))) -(define TTImpC-45ElabC-45Ambiguity-n--11776-4401-u--uniqType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((sc1 e-0)) (case (vector-ref sc1 0) ((1) (let ((sc2 arg-13)) (if (null? sc2) (let ((sc3 e-1)) (case (vector-ref sc3 0) ((1) (let ((sc4 arg-13)) (if (null? sc4) (let ((sc5 e-2)) (case (vector-ref sc5 0) ((1) (let ((sc6 arg-13)) (if (null? sc6) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((1) (let ((sc8 arg-13)) (if (null? sc8) (vector 1 ) (let ((e-7 (car sc8))) (let ((e-8 (cdr sc8))) (let ((sc9 e-7)) (if (null? sc9) (vector 1 ) (let ((e-12 (cdr sc9))) (let ((sc10 e-12)) (if (null? sc10) (vector 1 ) (let ((e-16 (cdr sc10))) (let ((sc11 e-16)) (case (vector-ref sc11 0) ((28) (let ((e-17 (vector-ref sc11 1))) (let ((e-18 (vector-ref sc11 2))) (let ((sc12 e-18)) (case (vector-ref sc12 0) ((12) (let ((e-19 (vector-ref sc12 1))) (let ((sc13 e-8)) (if (null? sc13) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-24 (car sc6))) (let ((e-25 (cdr sc6))) (let ((sc7 e-24)) (if (null? sc7) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((1) (let ((sc9 arg-13)) (if (null? sc9) (vector 1 ) (let ((e-7 (car sc9))) (let ((e-8 (cdr sc9))) (let ((sc10 e-7)) (if (null? sc10) (vector 1 ) (let ((e-12 (cdr sc10))) (let ((sc11 e-12)) (if (null? sc11) (vector 1 ) (let ((e-16 (cdr sc11))) (let ((sc12 e-16)) (case (vector-ref sc12 0) ((28) (let ((e-17 (vector-ref sc12 1))) (let ((e-18 (vector-ref sc12 2))) (let ((sc13 e-18)) (case (vector-ref sc13 0) ((12) (let ((e-19 (vector-ref sc13 1))) (let ((sc14 e-8)) (if (null? sc14) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-29 (cdr sc7))) (let ((sc8 e-29)) (if (null? sc8) (let ((sc9 e-3)) (case (vector-ref sc9 0) ((1) (let ((sc10 arg-13)) (if (null? sc10) (vector 1 ) (let ((e-7 (car sc10))) (let ((e-8 (cdr sc10))) (let ((sc11 e-7)) (if (null? sc11) (vector 1 ) (let ((e-12 (cdr sc11))) (let ((sc12 e-12)) (if (null? sc12) (vector 1 ) (let ((e-16 (cdr sc12))) (let ((sc13 e-16)) (case (vector-ref sc13 0) ((28) (let ((e-17 (vector-ref sc13 1))) (let ((e-18 (vector-ref sc13 2))) (let ((sc14 e-18)) (case (vector-ref sc14 0) ((12) (let ((e-19 (vector-ref sc14 1))) (let ((sc15 e-8)) (if (null? sc15) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-33 (cdr sc8))) (let ((sc9 e-33)) (case (vector-ref sc9 0) ((28) (let ((e-34 (vector-ref sc9 1))) (let ((e-35 (vector-ref sc9 2))) (let ((sc10 e-35)) (case (vector-ref sc10 0) ((11) (let ((e-36 (vector-ref sc10 1))) (let ((sc11 e-25)) (if (null? sc11) (vector 2 (vector 28 e-34 (vector 11 e-36))) (let ((sc12 e-3)) (case (vector-ref sc12 0) ((1) (let ((sc13 arg-13)) (if (null? sc13) (vector 1 ) (let ((e-7 (car sc13))) (let ((e-8 (cdr sc13))) (let ((sc14 e-7)) (if (null? sc14) (vector 1 ) (let ((e-12 (cdr sc14))) (let ((sc15 e-12)) (if (null? sc15) (vector 1 ) (let ((e-16 (cdr sc15))) (let ((sc16 e-16)) (case (vector-ref sc16 0) ((28) (let ((e-17 (vector-ref sc16 1))) (let ((e-18 (vector-ref sc16 2))) (let ((sc17 e-18)) (case (vector-ref sc17 0) ((12) (let ((e-19 (vector-ref sc17 1))) (let ((sc18 e-8)) (if (null? sc18) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))(else (let ((sc10 e-3)) (case (vector-ref sc10 0) ((1) (let ((sc11 arg-13)) (if (null? sc11) (vector 1 ) (let ((e-7 (car sc11))) (let ((e-8 (cdr sc11))) (let ((sc12 e-7)) (if (null? sc12) (vector 1 ) (let ((e-12 (cdr sc12))) (let ((sc13 e-12)) (if (null? sc13) (vector 1 ) (let ((e-16 (cdr sc13))) (let ((sc14 e-16)) (case (vector-ref sc14 0) ((28) (let ((e-17 (vector-ref sc14 1))) (let ((e-18 (vector-ref sc14 2))) (let ((sc15 e-18)) (case (vector-ref sc15 0) ((12) (let ((e-19 (vector-ref sc15 1))) (let ((sc16 e-8)) (if (null? sc16) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))))(else (let ((sc9 e-3)) (case (vector-ref sc9 0) ((1) (let ((sc10 arg-13)) (if (null? sc10) (vector 1 ) (let ((e-7 (car sc10))) (let ((e-8 (cdr sc10))) (let ((sc11 e-7)) (if (null? sc11) (vector 1 ) (let ((e-12 (cdr sc11))) (let ((sc12 e-12)) (if (null? sc12) (vector 1 ) (let ((e-16 (cdr sc12))) (let ((sc13 e-16)) (case (vector-ref sc13 0) ((28) (let ((e-17 (vector-ref sc13 1))) (let ((e-18 (vector-ref sc13 2))) (let ((sc14 e-18)) (case (vector-ref sc14 0) ((12) (let ((e-19 (vector-ref sc14 1))) (let ((sc15 e-8)) (if (null? sc15) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))))))))))))(else (let ((sc5 e-3)) (case (vector-ref sc5 0) ((1) (let ((sc6 arg-13)) (if (null? sc6) (vector 1 ) (let ((e-7 (car sc6))) (let ((e-8 (cdr sc6))) (let ((sc7 e-7)) (if (null? sc7) (vector 1 ) (let ((e-12 (cdr sc7))) (let ((sc8 e-12)) (if (null? sc8) (vector 1 ) (let ((e-16 (cdr sc8))) (let ((sc9 e-16)) (case (vector-ref sc9 0) ((28) (let ((e-17 (vector-ref sc9 1))) (let ((e-18 (vector-ref sc9 2))) (let ((sc10 e-18)) (case (vector-ref sc10 0) ((12) (let ((e-19 (vector-ref sc10 1))) (let ((sc11 e-8)) (if (null? sc11) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))) (let ((e-41 (car sc4))) (let ((e-42 (cdr sc4))) (let ((sc5 e-41)) (if (null? sc5) (let ((sc6 e-2)) (case (vector-ref sc6 0) ((1) (let ((sc7 arg-13)) (if (null? sc7) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((1) (let ((sc9 arg-13)) (if (null? sc9) (vector 1 ) (let ((e-7 (car sc9))) (let ((e-8 (cdr sc9))) (let ((sc10 e-7)) (if (null? sc10) (vector 1 ) (let ((e-12 (cdr sc10))) (let ((sc11 e-12)) (if (null? sc11) (vector 1 ) (let ((e-16 (cdr sc11))) (let ((sc12 e-16)) (case (vector-ref sc12 0) ((28) (let ((e-17 (vector-ref sc12 1))) (let ((e-18 (vector-ref sc12 2))) (let ((sc13 e-18)) (case (vector-ref sc13 0) ((12) (let ((e-19 (vector-ref sc13 1))) (let ((sc14 e-8)) (if (null? sc14) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-24 (car sc7))) (let ((e-25 (cdr sc7))) (let ((sc8 e-24)) (if (null? sc8) (let ((sc9 e-3)) (case (vector-ref sc9 0) ((1) (let ((sc10 arg-13)) (if (null? sc10) (vector 1 ) (let ((e-7 (car sc10))) (let ((e-8 (cdr sc10))) (let ((sc11 e-7)) (if (null? sc11) (vector 1 ) (let ((e-12 (cdr sc11))) (let ((sc12 e-12)) (if (null? sc12) (vector 1 ) (let ((e-16 (cdr sc12))) (let ((sc13 e-16)) (case (vector-ref sc13 0) ((28) (let ((e-17 (vector-ref sc13 1))) (let ((e-18 (vector-ref sc13 2))) (let ((sc14 e-18)) (case (vector-ref sc14 0) ((12) (let ((e-19 (vector-ref sc14 1))) (let ((sc15 e-8)) (if (null? sc15) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-29 (cdr sc8))) (let ((sc9 e-29)) (if (null? sc9) (let ((sc10 e-3)) (case (vector-ref sc10 0) ((1) (let ((sc11 arg-13)) (if (null? sc11) (vector 1 ) (let ((e-7 (car sc11))) (let ((e-8 (cdr sc11))) (let ((sc12 e-7)) (if (null? sc12) (vector 1 ) (let ((e-12 (cdr sc12))) (let ((sc13 e-12)) (if (null? sc13) (vector 1 ) (let ((e-16 (cdr sc13))) (let ((sc14 e-16)) (case (vector-ref sc14 0) ((28) (let ((e-17 (vector-ref sc14 1))) (let ((e-18 (vector-ref sc14 2))) (let ((sc15 e-18)) (case (vector-ref sc15 0) ((12) (let ((e-19 (vector-ref sc15 1))) (let ((sc16 e-8)) (if (null? sc16) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-33 (cdr sc9))) (let ((sc10 e-33)) (case (vector-ref sc10 0) ((28) (let ((e-34 (vector-ref sc10 1))) (let ((e-35 (vector-ref sc10 2))) (let ((sc11 e-35)) (case (vector-ref sc11 0) ((11) (let ((e-36 (vector-ref sc11 1))) (let ((sc12 e-25)) (if (null? sc12) (vector 2 (vector 28 e-34 (vector 11 e-36))) (let ((sc13 e-3)) (case (vector-ref sc13 0) ((1) (let ((sc14 arg-13)) (if (null? sc14) (vector 1 ) (let ((e-7 (car sc14))) (let ((e-8 (cdr sc14))) (let ((sc15 e-7)) (if (null? sc15) (vector 1 ) (let ((e-12 (cdr sc15))) (let ((sc16 e-12)) (if (null? sc16) (vector 1 ) (let ((e-16 (cdr sc16))) (let ((sc17 e-16)) (case (vector-ref sc17 0) ((28) (let ((e-17 (vector-ref sc17 1))) (let ((e-18 (vector-ref sc17 2))) (let ((sc18 e-18)) (case (vector-ref sc18 0) ((12) (let ((e-19 (vector-ref sc18 1))) (let ((sc19 e-8)) (if (null? sc19) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))(else (let ((sc11 e-3)) (case (vector-ref sc11 0) ((1) (let ((sc12 arg-13)) (if (null? sc12) (vector 1 ) (let ((e-7 (car sc12))) (let ((e-8 (cdr sc12))) (let ((sc13 e-7)) (if (null? sc13) (vector 1 ) (let ((e-12 (cdr sc13))) (let ((sc14 e-12)) (if (null? sc14) (vector 1 ) (let ((e-16 (cdr sc14))) (let ((sc15 e-16)) (case (vector-ref sc15 0) ((28) (let ((e-17 (vector-ref sc15 1))) (let ((e-18 (vector-ref sc15 2))) (let ((sc16 e-18)) (case (vector-ref sc16 0) ((12) (let ((e-19 (vector-ref sc16 1))) (let ((sc17 e-8)) (if (null? sc17) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))))(else (let ((sc10 e-3)) (case (vector-ref sc10 0) ((1) (let ((sc11 arg-13)) (if (null? sc11) (vector 1 ) (let ((e-7 (car sc11))) (let ((e-8 (cdr sc11))) (let ((sc12 e-7)) (if (null? sc12) (vector 1 ) (let ((e-12 (cdr sc12))) (let ((sc13 e-12)) (if (null? sc13) (vector 1 ) (let ((e-16 (cdr sc13))) (let ((sc14 e-16)) (case (vector-ref sc14 0) ((28) (let ((e-17 (vector-ref sc14 1))) (let ((e-18 (vector-ref sc14 2))) (let ((sc15 e-18)) (case (vector-ref sc15 0) ((12) (let ((e-19 (vector-ref sc15 1))) (let ((sc16 e-8)) (if (null? sc16) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))))))))))))(else (let ((sc6 e-3)) (case (vector-ref sc6 0) ((1) (let ((sc7 arg-13)) (if (null? sc7) (vector 1 ) (let ((e-7 (car sc7))) (let ((e-8 (cdr sc7))) (let ((sc8 e-7)) (if (null? sc8) (vector 1 ) (let ((e-12 (cdr sc8))) (let ((sc9 e-12)) (if (null? sc9) (vector 1 ) (let ((e-16 (cdr sc9))) (let ((sc10 e-16)) (case (vector-ref sc10 0) ((28) (let ((e-17 (vector-ref sc10 1))) (let ((e-18 (vector-ref sc10 2))) (let ((sc11 e-18)) (case (vector-ref sc11 0) ((12) (let ((e-19 (vector-ref sc11 1))) (let ((sc12 e-8)) (if (null? sc12) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))) (let ((e-46 (cdr sc5))) (let ((sc6 e-46)) (if (null? sc6) (let ((sc7 e-2)) (case (vector-ref sc7 0) ((1) (let ((sc8 arg-13)) (if (null? sc8) (let ((sc9 e-3)) (case (vector-ref sc9 0) ((1) (let ((sc10 arg-13)) (if (null? sc10) (vector 1 ) (let ((e-7 (car sc10))) (let ((e-8 (cdr sc10))) (let ((sc11 e-7)) (if (null? sc11) (vector 1 ) (let ((e-12 (cdr sc11))) (let ((sc12 e-12)) (if (null? sc12) (vector 1 ) (let ((e-16 (cdr sc12))) (let ((sc13 e-16)) (case (vector-ref sc13 0) ((28) (let ((e-17 (vector-ref sc13 1))) (let ((e-18 (vector-ref sc13 2))) (let ((sc14 e-18)) (case (vector-ref sc14 0) ((12) (let ((e-19 (vector-ref sc14 1))) (let ((sc15 e-8)) (if (null? sc15) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-24 (car sc8))) (let ((e-25 (cdr sc8))) (let ((sc9 e-24)) (if (null? sc9) (let ((sc10 e-3)) (case (vector-ref sc10 0) ((1) (let ((sc11 arg-13)) (if (null? sc11) (vector 1 ) (let ((e-7 (car sc11))) (let ((e-8 (cdr sc11))) (let ((sc12 e-7)) (if (null? sc12) (vector 1 ) (let ((e-12 (cdr sc12))) (let ((sc13 e-12)) (if (null? sc13) (vector 1 ) (let ((e-16 (cdr sc13))) (let ((sc14 e-16)) (case (vector-ref sc14 0) ((28) (let ((e-17 (vector-ref sc14 1))) (let ((e-18 (vector-ref sc14 2))) (let ((sc15 e-18)) (case (vector-ref sc15 0) ((12) (let ((e-19 (vector-ref sc15 1))) (let ((sc16 e-8)) (if (null? sc16) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-29 (cdr sc9))) (let ((sc10 e-29)) (if (null? sc10) (let ((sc11 e-3)) (case (vector-ref sc11 0) ((1) (let ((sc12 arg-13)) (if (null? sc12) (vector 1 ) (let ((e-7 (car sc12))) (let ((e-8 (cdr sc12))) (let ((sc13 e-7)) (if (null? sc13) (vector 1 ) (let ((e-12 (cdr sc13))) (let ((sc14 e-12)) (if (null? sc14) (vector 1 ) (let ((e-16 (cdr sc14))) (let ((sc15 e-16)) (case (vector-ref sc15 0) ((28) (let ((e-17 (vector-ref sc15 1))) (let ((e-18 (vector-ref sc15 2))) (let ((sc16 e-18)) (case (vector-ref sc16 0) ((12) (let ((e-19 (vector-ref sc16 1))) (let ((sc17 e-8)) (if (null? sc17) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-33 (cdr sc10))) (let ((sc11 e-33)) (case (vector-ref sc11 0) ((28) (let ((e-34 (vector-ref sc11 1))) (let ((e-35 (vector-ref sc11 2))) (let ((sc12 e-35)) (case (vector-ref sc12 0) ((11) (let ((e-36 (vector-ref sc12 1))) (let ((sc13 e-25)) (if (null? sc13) (vector 2 (vector 28 e-34 (vector 11 e-36))) (let ((sc14 e-3)) (case (vector-ref sc14 0) ((1) (let ((sc15 arg-13)) (if (null? sc15) (vector 1 ) (let ((e-7 (car sc15))) (let ((e-8 (cdr sc15))) (let ((sc16 e-7)) (if (null? sc16) (vector 1 ) (let ((e-12 (cdr sc16))) (let ((sc17 e-12)) (if (null? sc17) (vector 1 ) (let ((e-16 (cdr sc17))) (let ((sc18 e-16)) (case (vector-ref sc18 0) ((28) (let ((e-17 (vector-ref sc18 1))) (let ((e-18 (vector-ref sc18 2))) (let ((sc19 e-18)) (case (vector-ref sc19 0) ((12) (let ((e-19 (vector-ref sc19 1))) (let ((sc20 e-8)) (if (null? sc20) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))(else (let ((sc12 e-3)) (case (vector-ref sc12 0) ((1) (let ((sc13 arg-13)) (if (null? sc13) (vector 1 ) (let ((e-7 (car sc13))) (let ((e-8 (cdr sc13))) (let ((sc14 e-7)) (if (null? sc14) (vector 1 ) (let ((e-12 (cdr sc14))) (let ((sc15 e-12)) (if (null? sc15) (vector 1 ) (let ((e-16 (cdr sc15))) (let ((sc16 e-16)) (case (vector-ref sc16 0) ((28) (let ((e-17 (vector-ref sc16 1))) (let ((e-18 (vector-ref sc16 2))) (let ((sc17 e-18)) (case (vector-ref sc17 0) ((12) (let ((e-19 (vector-ref sc17 1))) (let ((sc18 e-8)) (if (null? sc18) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))))(else (let ((sc11 e-3)) (case (vector-ref sc11 0) ((1) (let ((sc12 arg-13)) (if (null? sc12) (vector 1 ) (let ((e-7 (car sc12))) (let ((e-8 (cdr sc12))) (let ((sc13 e-7)) (if (null? sc13) (vector 1 ) (let ((e-12 (cdr sc13))) (let ((sc14 e-12)) (if (null? sc14) (vector 1 ) (let ((e-16 (cdr sc14))) (let ((sc15 e-16)) (case (vector-ref sc15 0) ((28) (let ((e-17 (vector-ref sc15 1))) (let ((e-18 (vector-ref sc15 2))) (let ((sc16 e-18)) (case (vector-ref sc16 0) ((12) (let ((e-19 (vector-ref sc16 1))) (let ((sc17 e-8)) (if (null? sc17) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))))))))))))(else (let ((sc7 e-3)) (case (vector-ref sc7 0) ((1) (let ((sc8 arg-13)) (if (null? sc8) (vector 1 ) (let ((e-7 (car sc8))) (let ((e-8 (cdr sc8))) (let ((sc9 e-7)) (if (null? sc9) (vector 1 ) (let ((e-12 (cdr sc9))) (let ((sc10 e-12)) (if (null? sc10) (vector 1 ) (let ((e-16 (cdr sc10))) (let ((sc11 e-16)) (case (vector-ref sc11 0) ((28) (let ((e-17 (vector-ref sc11 1))) (let ((e-18 (vector-ref sc11 2))) (let ((sc12 e-18)) (case (vector-ref sc12 0) ((12) (let ((e-19 (vector-ref sc12 1))) (let ((sc13 e-8)) (if (null? sc13) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))) (let ((e-50 (cdr sc6))) (let ((sc7 e-50)) (case (vector-ref sc7 0) ((28) (let ((e-51 (vector-ref sc7 1))) (let ((e-52 (vector-ref sc7 2))) (let ((sc8 e-52)) (case (vector-ref sc8 0) ((10) (let ((e-53 (vector-ref sc8 1))) (let ((sc9 e-42)) (if (null? sc9) (vector 2 (vector 28 e-51 (vector 10 e-53))) (let ((sc10 e-2)) (case (vector-ref sc10 0) ((1) (let ((sc11 arg-13)) (if (null? sc11) (let ((sc12 e-3)) (case (vector-ref sc12 0) ((1) (let ((sc13 arg-13)) (if (null? sc13) (vector 1 ) (let ((e-7 (car sc13))) (let ((e-8 (cdr sc13))) (let ((sc14 e-7)) (if (null? sc14) (vector 1 ) (let ((e-12 (cdr sc14))) (let ((sc15 e-12)) (if (null? sc15) (vector 1 ) (let ((e-16 (cdr sc15))) (let ((sc16 e-16)) (case (vector-ref sc16 0) ((28) (let ((e-17 (vector-ref sc16 1))) (let ((e-18 (vector-ref sc16 2))) (let ((sc17 e-18)) (case (vector-ref sc17 0) ((12) (let ((e-19 (vector-ref sc17 1))) (let ((sc18 e-8)) (if (null? sc18) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-24 (car sc11))) (let ((e-25 (cdr sc11))) (let ((sc12 e-24)) (if (null? sc12) (let ((sc13 e-3)) (case (vector-ref sc13 0) ((1) (let ((sc14 arg-13)) (if (null? sc14) (vector 1 ) (let ((e-7 (car sc14))) (let ((e-8 (cdr sc14))) (let ((sc15 e-7)) (if (null? sc15) (vector 1 ) (let ((e-12 (cdr sc15))) (let ((sc16 e-12)) (if (null? sc16) (vector 1 ) (let ((e-16 (cdr sc16))) (let ((sc17 e-16)) (case (vector-ref sc17 0) ((28) (let ((e-17 (vector-ref sc17 1))) (let ((e-18 (vector-ref sc17 2))) (let ((sc18 e-18)) (case (vector-ref sc18 0) ((12) (let ((e-19 (vector-ref sc18 1))) (let ((sc19 e-8)) (if (null? sc19) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-29 (cdr sc12))) (let ((sc13 e-29)) (if (null? sc13) (let ((sc14 e-3)) (case (vector-ref sc14 0) ((1) (let ((sc15 arg-13)) (if (null? sc15) (vector 1 ) (let ((e-7 (car sc15))) (let ((e-8 (cdr sc15))) (let ((sc16 e-7)) (if (null? sc16) (vector 1 ) (let ((e-12 (cdr sc16))) (let ((sc17 e-12)) (if (null? sc17) (vector 1 ) (let ((e-16 (cdr sc17))) (let ((sc18 e-16)) (case (vector-ref sc18 0) ((28) (let ((e-17 (vector-ref sc18 1))) (let ((e-18 (vector-ref sc18 2))) (let ((sc19 e-18)) (case (vector-ref sc19 0) ((12) (let ((e-19 (vector-ref sc19 1))) (let ((sc20 e-8)) (if (null? sc20) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-33 (cdr sc13))) (let ((sc14 e-33)) (case (vector-ref sc14 0) ((28) (let ((e-34 (vector-ref sc14 1))) (let ((e-35 (vector-ref sc14 2))) (let ((sc15 e-35)) (case (vector-ref sc15 0) ((11) (let ((e-36 (vector-ref sc15 1))) (let ((sc16 e-25)) (if (null? sc16) (vector 2 (vector 28 e-34 (vector 11 e-36))) (let ((sc17 e-3)) (case (vector-ref sc17 0) ((1) (let ((sc18 arg-13)) (if (null? sc18) (vector 1 ) (let ((e-7 (car sc18))) (let ((e-8 (cdr sc18))) (let ((sc19 e-7)) (if (null? sc19) (vector 1 ) (let ((e-12 (cdr sc19))) (let ((sc20 e-12)) (if (null? sc20) (vector 1 ) (let ((e-16 (cdr sc20))) (let ((sc21 e-16)) (case (vector-ref sc21 0) ((28) (let ((e-17 (vector-ref sc21 1))) (let ((e-18 (vector-ref sc21 2))) (let ((sc22 e-18)) (case (vector-ref sc22 0) ((12) (let ((e-19 (vector-ref sc22 1))) (let ((sc23 e-8)) (if (null? sc23) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))(else (let ((sc15 e-3)) (case (vector-ref sc15 0) ((1) (let ((sc16 arg-13)) (if (null? sc16) (vector 1 ) (let ((e-7 (car sc16))) (let ((e-8 (cdr sc16))) (let ((sc17 e-7)) (if (null? sc17) (vector 1 ) (let ((e-12 (cdr sc17))) (let ((sc18 e-12)) (if (null? sc18) (vector 1 ) (let ((e-16 (cdr sc18))) (let ((sc19 e-16)) (case (vector-ref sc19 0) ((28) (let ((e-17 (vector-ref sc19 1))) (let ((e-18 (vector-ref sc19 2))) (let ((sc20 e-18)) (case (vector-ref sc20 0) ((12) (let ((e-19 (vector-ref sc20 1))) (let ((sc21 e-8)) (if (null? sc21) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))))(else (let ((sc14 e-3)) (case (vector-ref sc14 0) ((1) (let ((sc15 arg-13)) (if (null? sc15) (vector 1 ) (let ((e-7 (car sc15))) (let ((e-8 (cdr sc15))) (let ((sc16 e-7)) (if (null? sc16) (vector 1 ) (let ((e-12 (cdr sc16))) (let ((sc17 e-12)) (if (null? sc17) (vector 1 ) (let ((e-16 (cdr sc17))) (let ((sc18 e-16)) (case (vector-ref sc18 0) ((28) (let ((e-17 (vector-ref sc18 1))) (let ((e-18 (vector-ref sc18 2))) (let ((sc19 e-18)) (case (vector-ref sc19 0) ((12) (let ((e-19 (vector-ref sc19 1))) (let ((sc20 e-8)) (if (null? sc20) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))))))))))))(else (let ((sc10 e-3)) (case (vector-ref sc10 0) ((1) (let ((sc11 arg-13)) (if (null? sc11) (vector 1 ) (let ((e-7 (car sc11))) (let ((e-8 (cdr sc11))) (let ((sc12 e-7)) (if (null? sc12) (vector 1 ) (let ((e-12 (cdr sc12))) (let ((sc13 e-12)) (if (null? sc13) (vector 1 ) (let ((e-16 (cdr sc13))) (let ((sc14 e-16)) (case (vector-ref sc14 0) ((28) (let ((e-17 (vector-ref sc14 1))) (let ((e-18 (vector-ref sc14 2))) (let ((sc15 e-18)) (case (vector-ref sc15 0) ((12) (let ((e-19 (vector-ref sc15 1))) (let ((sc16 e-8)) (if (null? sc16) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))))))))))(else (let ((sc8 e-2)) (case (vector-ref sc8 0) ((1) (let ((sc9 arg-13)) (if (null? sc9) (let ((sc10 e-3)) (case (vector-ref sc10 0) ((1) (let ((sc11 arg-13)) (if (null? sc11) (vector 1 ) (let ((e-7 (car sc11))) (let ((e-8 (cdr sc11))) (let ((sc12 e-7)) (if (null? sc12) (vector 1 ) (let ((e-12 (cdr sc12))) (let ((sc13 e-12)) (if (null? sc13) (vector 1 ) (let ((e-16 (cdr sc13))) (let ((sc14 e-16)) (case (vector-ref sc14 0) ((28) (let ((e-17 (vector-ref sc14 1))) (let ((e-18 (vector-ref sc14 2))) (let ((sc15 e-18)) (case (vector-ref sc15 0) ((12) (let ((e-19 (vector-ref sc15 1))) (let ((sc16 e-8)) (if (null? sc16) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-24 (car sc9))) (let ((e-25 (cdr sc9))) (let ((sc10 e-24)) (if (null? sc10) (let ((sc11 e-3)) (case (vector-ref sc11 0) ((1) (let ((sc12 arg-13)) (if (null? sc12) (vector 1 ) (let ((e-7 (car sc12))) (let ((e-8 (cdr sc12))) (let ((sc13 e-7)) (if (null? sc13) (vector 1 ) (let ((e-12 (cdr sc13))) (let ((sc14 e-12)) (if (null? sc14) (vector 1 ) (let ((e-16 (cdr sc14))) (let ((sc15 e-16)) (case (vector-ref sc15 0) ((28) (let ((e-17 (vector-ref sc15 1))) (let ((e-18 (vector-ref sc15 2))) (let ((sc16 e-18)) (case (vector-ref sc16 0) ((12) (let ((e-19 (vector-ref sc16 1))) (let ((sc17 e-8)) (if (null? sc17) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-29 (cdr sc10))) (let ((sc11 e-29)) (if (null? sc11) (let ((sc12 e-3)) (case (vector-ref sc12 0) ((1) (let ((sc13 arg-13)) (if (null? sc13) (vector 1 ) (let ((e-7 (car sc13))) (let ((e-8 (cdr sc13))) (let ((sc14 e-7)) (if (null? sc14) (vector 1 ) (let ((e-12 (cdr sc14))) (let ((sc15 e-12)) (if (null? sc15) (vector 1 ) (let ((e-16 (cdr sc15))) (let ((sc16 e-16)) (case (vector-ref sc16 0) ((28) (let ((e-17 (vector-ref sc16 1))) (let ((e-18 (vector-ref sc16 2))) (let ((sc17 e-18)) (case (vector-ref sc17 0) ((12) (let ((e-19 (vector-ref sc17 1))) (let ((sc18 e-8)) (if (null? sc18) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-33 (cdr sc11))) (let ((sc12 e-33)) (case (vector-ref sc12 0) ((28) (let ((e-34 (vector-ref sc12 1))) (let ((e-35 (vector-ref sc12 2))) (let ((sc13 e-35)) (case (vector-ref sc13 0) ((11) (let ((e-36 (vector-ref sc13 1))) (let ((sc14 e-25)) (if (null? sc14) (vector 2 (vector 28 e-34 (vector 11 e-36))) (let ((sc15 e-3)) (case (vector-ref sc15 0) ((1) (let ((sc16 arg-13)) (if (null? sc16) (vector 1 ) (let ((e-7 (car sc16))) (let ((e-8 (cdr sc16))) (let ((sc17 e-7)) (if (null? sc17) (vector 1 ) (let ((e-12 (cdr sc17))) (let ((sc18 e-12)) (if (null? sc18) (vector 1 ) (let ((e-16 (cdr sc18))) (let ((sc19 e-16)) (case (vector-ref sc19 0) ((28) (let ((e-17 (vector-ref sc19 1))) (let ((e-18 (vector-ref sc19 2))) (let ((sc20 e-18)) (case (vector-ref sc20 0) ((12) (let ((e-19 (vector-ref sc20 1))) (let ((sc21 e-8)) (if (null? sc21) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))(else (let ((sc13 e-3)) (case (vector-ref sc13 0) ((1) (let ((sc14 arg-13)) (if (null? sc14) (vector 1 ) (let ((e-7 (car sc14))) (let ((e-8 (cdr sc14))) (let ((sc15 e-7)) (if (null? sc15) (vector 1 ) (let ((e-12 (cdr sc15))) (let ((sc16 e-12)) (if (null? sc16) (vector 1 ) (let ((e-16 (cdr sc16))) (let ((sc17 e-16)) (case (vector-ref sc17 0) ((28) (let ((e-17 (vector-ref sc17 1))) (let ((e-18 (vector-ref sc17 2))) (let ((sc18 e-18)) (case (vector-ref sc18 0) ((12) (let ((e-19 (vector-ref sc18 1))) (let ((sc19 e-8)) (if (null? sc19) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))))(else (let ((sc12 e-3)) (case (vector-ref sc12 0) ((1) (let ((sc13 arg-13)) (if (null? sc13) (vector 1 ) (let ((e-7 (car sc13))) (let ((e-8 (cdr sc13))) (let ((sc14 e-7)) (if (null? sc14) (vector 1 ) (let ((e-12 (cdr sc14))) (let ((sc15 e-12)) (if (null? sc15) (vector 1 ) (let ((e-16 (cdr sc15))) (let ((sc16 e-16)) (case (vector-ref sc16 0) ((28) (let ((e-17 (vector-ref sc16 1))) (let ((e-18 (vector-ref sc16 2))) (let ((sc17 e-18)) (case (vector-ref sc17 0) ((12) (let ((e-19 (vector-ref sc17 1))) (let ((sc18 e-8)) (if (null? sc18) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))))))))))))(else (let ((sc8 e-3)) (case (vector-ref sc8 0) ((1) (let ((sc9 arg-13)) (if (null? sc9) (vector 1 ) (let ((e-7 (car sc9))) (let ((e-8 (cdr sc9))) (let ((sc10 e-7)) (if (null? sc10) (vector 1 ) (let ((e-12 (cdr sc10))) (let ((sc11 e-12)) (if (null? sc11) (vector 1 ) (let ((e-16 (cdr sc11))) (let ((sc12 e-16)) (case (vector-ref sc12 0) ((28) (let ((e-17 (vector-ref sc12 1))) (let ((e-18 (vector-ref sc12 2))) (let ((sc13 e-18)) (case (vector-ref sc13 0) ((12) (let ((e-19 (vector-ref sc13 1))) (let ((sc14 e-8)) (if (null? sc14) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))))))))))))(else (let ((sc7 e-2)) (case (vector-ref sc7 0) ((1) (let ((sc8 arg-13)) (if (null? sc8) (let ((sc9 e-3)) (case (vector-ref sc9 0) ((1) (let ((sc10 arg-13)) (if (null? sc10) (vector 1 ) (let ((e-7 (car sc10))) (let ((e-8 (cdr sc10))) (let ((sc11 e-7)) (if (null? sc11) (vector 1 ) (let ((e-12 (cdr sc11))) (let ((sc12 e-12)) (if (null? sc12) (vector 1 ) (let ((e-16 (cdr sc12))) (let ((sc13 e-16)) (case (vector-ref sc13 0) ((28) (let ((e-17 (vector-ref sc13 1))) (let ((e-18 (vector-ref sc13 2))) (let ((sc14 e-18)) (case (vector-ref sc14 0) ((12) (let ((e-19 (vector-ref sc14 1))) (let ((sc15 e-8)) (if (null? sc15) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-24 (car sc8))) (let ((e-25 (cdr sc8))) (let ((sc9 e-24)) (if (null? sc9) (let ((sc10 e-3)) (case (vector-ref sc10 0) ((1) (let ((sc11 arg-13)) (if (null? sc11) (vector 1 ) (let ((e-7 (car sc11))) (let ((e-8 (cdr sc11))) (let ((sc12 e-7)) (if (null? sc12) (vector 1 ) (let ((e-12 (cdr sc12))) (let ((sc13 e-12)) (if (null? sc13) (vector 1 ) (let ((e-16 (cdr sc13))) (let ((sc14 e-16)) (case (vector-ref sc14 0) ((28) (let ((e-17 (vector-ref sc14 1))) (let ((e-18 (vector-ref sc14 2))) (let ((sc15 e-18)) (case (vector-ref sc15 0) ((12) (let ((e-19 (vector-ref sc15 1))) (let ((sc16 e-8)) (if (null? sc16) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-29 (cdr sc9))) (let ((sc10 e-29)) (if (null? sc10) (let ((sc11 e-3)) (case (vector-ref sc11 0) ((1) (let ((sc12 arg-13)) (if (null? sc12) (vector 1 ) (let ((e-7 (car sc12))) (let ((e-8 (cdr sc12))) (let ((sc13 e-7)) (if (null? sc13) (vector 1 ) (let ((e-12 (cdr sc13))) (let ((sc14 e-12)) (if (null? sc14) (vector 1 ) (let ((e-16 (cdr sc14))) (let ((sc15 e-16)) (case (vector-ref sc15 0) ((28) (let ((e-17 (vector-ref sc15 1))) (let ((e-18 (vector-ref sc15 2))) (let ((sc16 e-18)) (case (vector-ref sc16 0) ((12) (let ((e-19 (vector-ref sc16 1))) (let ((sc17 e-8)) (if (null? sc17) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-33 (cdr sc10))) (let ((sc11 e-33)) (case (vector-ref sc11 0) ((28) (let ((e-34 (vector-ref sc11 1))) (let ((e-35 (vector-ref sc11 2))) (let ((sc12 e-35)) (case (vector-ref sc12 0) ((11) (let ((e-36 (vector-ref sc12 1))) (let ((sc13 e-25)) (if (null? sc13) (vector 2 (vector 28 e-34 (vector 11 e-36))) (let ((sc14 e-3)) (case (vector-ref sc14 0) ((1) (let ((sc15 arg-13)) (if (null? sc15) (vector 1 ) (let ((e-7 (car sc15))) (let ((e-8 (cdr sc15))) (let ((sc16 e-7)) (if (null? sc16) (vector 1 ) (let ((e-12 (cdr sc16))) (let ((sc17 e-12)) (if (null? sc17) (vector 1 ) (let ((e-16 (cdr sc17))) (let ((sc18 e-16)) (case (vector-ref sc18 0) ((28) (let ((e-17 (vector-ref sc18 1))) (let ((e-18 (vector-ref sc18 2))) (let ((sc19 e-18)) (case (vector-ref sc19 0) ((12) (let ((e-19 (vector-ref sc19 1))) (let ((sc20 e-8)) (if (null? sc20) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))(else (let ((sc12 e-3)) (case (vector-ref sc12 0) ((1) (let ((sc13 arg-13)) (if (null? sc13) (vector 1 ) (let ((e-7 (car sc13))) (let ((e-8 (cdr sc13))) (let ((sc14 e-7)) (if (null? sc14) (vector 1 ) (let ((e-12 (cdr sc14))) (let ((sc15 e-12)) (if (null? sc15) (vector 1 ) (let ((e-16 (cdr sc15))) (let ((sc16 e-16)) (case (vector-ref sc16 0) ((28) (let ((e-17 (vector-ref sc16 1))) (let ((e-18 (vector-ref sc16 2))) (let ((sc17 e-18)) (case (vector-ref sc17 0) ((12) (let ((e-19 (vector-ref sc17 1))) (let ((sc18 e-8)) (if (null? sc18) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))))(else (let ((sc11 e-3)) (case (vector-ref sc11 0) ((1) (let ((sc12 arg-13)) (if (null? sc12) (vector 1 ) (let ((e-7 (car sc12))) (let ((e-8 (cdr sc12))) (let ((sc13 e-7)) (if (null? sc13) (vector 1 ) (let ((e-12 (cdr sc13))) (let ((sc14 e-12)) (if (null? sc14) (vector 1 ) (let ((e-16 (cdr sc14))) (let ((sc15 e-16)) (case (vector-ref sc15 0) ((28) (let ((e-17 (vector-ref sc15 1))) (let ((e-18 (vector-ref sc15 2))) (let ((sc16 e-18)) (case (vector-ref sc16 0) ((12) (let ((e-19 (vector-ref sc16 1))) (let ((sc17 e-8)) (if (null? sc17) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))))))))))))(else (let ((sc7 e-3)) (case (vector-ref sc7 0) ((1) (let ((sc8 arg-13)) (if (null? sc8) (vector 1 ) (let ((e-7 (car sc8))) (let ((e-8 (cdr sc8))) (let ((sc9 e-7)) (if (null? sc9) (vector 1 ) (let ((e-12 (cdr sc9))) (let ((sc10 e-12)) (if (null? sc10) (vector 1 ) (let ((e-16 (cdr sc10))) (let ((sc11 e-16)) (case (vector-ref sc11 0) ((28) (let ((e-17 (vector-ref sc11 1))) (let ((e-18 (vector-ref sc11 2))) (let ((sc12 e-18)) (case (vector-ref sc12 0) ((12) (let ((e-19 (vector-ref sc12 1))) (let ((sc13 e-8)) (if (null? sc13) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))))))))))))))))))))(else (let ((sc3 e-2)) (case (vector-ref sc3 0) ((1) (let ((sc4 arg-13)) (if (null? sc4) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((1) (let ((sc6 arg-13)) (if (null? sc6) (vector 1 ) (let ((e-7 (car sc6))) (let ((e-8 (cdr sc6))) (let ((sc7 e-7)) (if (null? sc7) (vector 1 ) (let ((e-12 (cdr sc7))) (let ((sc8 e-12)) (if (null? sc8) (vector 1 ) (let ((e-16 (cdr sc8))) (let ((sc9 e-16)) (case (vector-ref sc9 0) ((28) (let ((e-17 (vector-ref sc9 1))) (let ((e-18 (vector-ref sc9 2))) (let ((sc10 e-18)) (case (vector-ref sc10 0) ((12) (let ((e-19 (vector-ref sc10 1))) (let ((sc11 e-8)) (if (null? sc11) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-24 (car sc4))) (let ((e-25 (cdr sc4))) (let ((sc5 e-24)) (if (null? sc5) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((1) (let ((sc7 arg-13)) (if (null? sc7) (vector 1 ) (let ((e-7 (car sc7))) (let ((e-8 (cdr sc7))) (let ((sc8 e-7)) (if (null? sc8) (vector 1 ) (let ((e-12 (cdr sc8))) (let ((sc9 e-12)) (if (null? sc9) (vector 1 ) (let ((e-16 (cdr sc9))) (let ((sc10 e-16)) (case (vector-ref sc10 0) ((28) (let ((e-17 (vector-ref sc10 1))) (let ((e-18 (vector-ref sc10 2))) (let ((sc11 e-18)) (case (vector-ref sc11 0) ((12) (let ((e-19 (vector-ref sc11 1))) (let ((sc12 e-8)) (if (null? sc12) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-29 (cdr sc5))) (let ((sc6 e-29)) (if (null? sc6) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((1) (let ((sc8 arg-13)) (if (null? sc8) (vector 1 ) (let ((e-7 (car sc8))) (let ((e-8 (cdr sc8))) (let ((sc9 e-7)) (if (null? sc9) (vector 1 ) (let ((e-12 (cdr sc9))) (let ((sc10 e-12)) (if (null? sc10) (vector 1 ) (let ((e-16 (cdr sc10))) (let ((sc11 e-16)) (case (vector-ref sc11 0) ((28) (let ((e-17 (vector-ref sc11 1))) (let ((e-18 (vector-ref sc11 2))) (let ((sc12 e-18)) (case (vector-ref sc12 0) ((12) (let ((e-19 (vector-ref sc12 1))) (let ((sc13 e-8)) (if (null? sc13) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-33 (cdr sc6))) (let ((sc7 e-33)) (case (vector-ref sc7 0) ((28) (let ((e-34 (vector-ref sc7 1))) (let ((e-35 (vector-ref sc7 2))) (let ((sc8 e-35)) (case (vector-ref sc8 0) ((11) (let ((e-36 (vector-ref sc8 1))) (let ((sc9 e-25)) (if (null? sc9) (vector 2 (vector 28 e-34 (vector 11 e-36))) (let ((sc10 e-3)) (case (vector-ref sc10 0) ((1) (let ((sc11 arg-13)) (if (null? sc11) (vector 1 ) (let ((e-7 (car sc11))) (let ((e-8 (cdr sc11))) (let ((sc12 e-7)) (if (null? sc12) (vector 1 ) (let ((e-12 (cdr sc12))) (let ((sc13 e-12)) (if (null? sc13) (vector 1 ) (let ((e-16 (cdr sc13))) (let ((sc14 e-16)) (case (vector-ref sc14 0) ((28) (let ((e-17 (vector-ref sc14 1))) (let ((e-18 (vector-ref sc14 2))) (let ((sc15 e-18)) (case (vector-ref sc15 0) ((12) (let ((e-19 (vector-ref sc15 1))) (let ((sc16 e-8)) (if (null? sc16) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))(else (let ((sc8 e-3)) (case (vector-ref sc8 0) ((1) (let ((sc9 arg-13)) (if (null? sc9) (vector 1 ) (let ((e-7 (car sc9))) (let ((e-8 (cdr sc9))) (let ((sc10 e-7)) (if (null? sc10) (vector 1 ) (let ((e-12 (cdr sc10))) (let ((sc11 e-12)) (if (null? sc11) (vector 1 ) (let ((e-16 (cdr sc11))) (let ((sc12 e-16)) (case (vector-ref sc12 0) ((28) (let ((e-17 (vector-ref sc12 1))) (let ((e-18 (vector-ref sc12 2))) (let ((sc13 e-18)) (case (vector-ref sc13 0) ((12) (let ((e-19 (vector-ref sc13 1))) (let ((sc14 e-8)) (if (null? sc14) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))))(else (let ((sc7 e-3)) (case (vector-ref sc7 0) ((1) (let ((sc8 arg-13)) (if (null? sc8) (vector 1 ) (let ((e-7 (car sc8))) (let ((e-8 (cdr sc8))) (let ((sc9 e-7)) (if (null? sc9) (vector 1 ) (let ((e-12 (cdr sc9))) (let ((sc10 e-12)) (if (null? sc10) (vector 1 ) (let ((e-16 (cdr sc10))) (let ((sc11 e-16)) (case (vector-ref sc11 0) ((28) (let ((e-17 (vector-ref sc11 1))) (let ((e-18 (vector-ref sc11 2))) (let ((sc12 e-18)) (case (vector-ref sc12 0) ((12) (let ((e-19 (vector-ref sc12 1))) (let ((sc13 e-8)) (if (null? sc13) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))))))))))))(else (let ((sc3 e-3)) (case (vector-ref sc3 0) ((1) (let ((sc4 arg-13)) (if (null? sc4) (vector 1 ) (let ((e-7 (car sc4))) (let ((e-8 (cdr sc4))) (let ((sc5 e-7)) (if (null? sc5) (vector 1 ) (let ((e-12 (cdr sc5))) (let ((sc6 e-12)) (if (null? sc6) (vector 1 ) (let ((e-16 (cdr sc6))) (let ((sc7 e-16)) (case (vector-ref sc7 0) ((28) (let ((e-17 (vector-ref sc7 1))) (let ((e-18 (vector-ref sc7 2))) (let ((sc8 e-18)) (case (vector-ref sc8 0) ((12) (let ((e-19 (vector-ref sc8 1))) (let ((sc9 e-8)) (if (null? sc9) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))))))))) (let ((e-58 (car sc2))) (let ((e-59 (cdr sc2))) (let ((sc3 e-58)) (if (null? sc3) (let ((sc4 e-1)) (case (vector-ref sc4 0) ((1) (let ((sc5 arg-13)) (if (null? sc5) (let ((sc6 e-2)) (case (vector-ref sc6 0) ((1) (let ((sc7 arg-13)) (if (null? sc7) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((1) (let ((sc9 arg-13)) (if (null? sc9) (vector 1 ) (let ((e-7 (car sc9))) (let ((e-8 (cdr sc9))) (let ((sc10 e-7)) (if (null? sc10) (vector 1 ) (let ((e-12 (cdr sc10))) (let ((sc11 e-12)) (if (null? sc11) (vector 1 ) (let ((e-16 (cdr sc11))) (let ((sc12 e-16)) (case (vector-ref sc12 0) ((28) (let ((e-17 (vector-ref sc12 1))) (let ((e-18 (vector-ref sc12 2))) (let ((sc13 e-18)) (case (vector-ref sc13 0) ((12) (let ((e-19 (vector-ref sc13 1))) (let ((sc14 e-8)) (if (null? sc14) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-24 (car sc7))) (let ((e-25 (cdr sc7))) (let ((sc8 e-24)) (if (null? sc8) (let ((sc9 e-3)) (case (vector-ref sc9 0) ((1) (let ((sc10 arg-13)) (if (null? sc10) (vector 1 ) (let ((e-7 (car sc10))) (let ((e-8 (cdr sc10))) (let ((sc11 e-7)) (if (null? sc11) (vector 1 ) (let ((e-12 (cdr sc11))) (let ((sc12 e-12)) (if (null? sc12) (vector 1 ) (let ((e-16 (cdr sc12))) (let ((sc13 e-16)) (case (vector-ref sc13 0) ((28) (let ((e-17 (vector-ref sc13 1))) (let ((e-18 (vector-ref sc13 2))) (let ((sc14 e-18)) (case (vector-ref sc14 0) ((12) (let ((e-19 (vector-ref sc14 1))) (let ((sc15 e-8)) (if (null? sc15) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-29 (cdr sc8))) (let ((sc9 e-29)) (if (null? sc9) (let ((sc10 e-3)) (case (vector-ref sc10 0) ((1) (let ((sc11 arg-13)) (if (null? sc11) (vector 1 ) (let ((e-7 (car sc11))) (let ((e-8 (cdr sc11))) (let ((sc12 e-7)) (if (null? sc12) (vector 1 ) (let ((e-12 (cdr sc12))) (let ((sc13 e-12)) (if (null? sc13) (vector 1 ) (let ((e-16 (cdr sc13))) (let ((sc14 e-16)) (case (vector-ref sc14 0) ((28) (let ((e-17 (vector-ref sc14 1))) (let ((e-18 (vector-ref sc14 2))) (let ((sc15 e-18)) (case (vector-ref sc15 0) ((12) (let ((e-19 (vector-ref sc15 1))) (let ((sc16 e-8)) (if (null? sc16) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-33 (cdr sc9))) (let ((sc10 e-33)) (case (vector-ref sc10 0) ((28) (let ((e-34 (vector-ref sc10 1))) (let ((e-35 (vector-ref sc10 2))) (let ((sc11 e-35)) (case (vector-ref sc11 0) ((11) (let ((e-36 (vector-ref sc11 1))) (let ((sc12 e-25)) (if (null? sc12) (vector 2 (vector 28 e-34 (vector 11 e-36))) (let ((sc13 e-3)) (case (vector-ref sc13 0) ((1) (let ((sc14 arg-13)) (if (null? sc14) (vector 1 ) (let ((e-7 (car sc14))) (let ((e-8 (cdr sc14))) (let ((sc15 e-7)) (if (null? sc15) (vector 1 ) (let ((e-12 (cdr sc15))) (let ((sc16 e-12)) (if (null? sc16) (vector 1 ) (let ((e-16 (cdr sc16))) (let ((sc17 e-16)) (case (vector-ref sc17 0) ((28) (let ((e-17 (vector-ref sc17 1))) (let ((e-18 (vector-ref sc17 2))) (let ((sc18 e-18)) (case (vector-ref sc18 0) ((12) (let ((e-19 (vector-ref sc18 1))) (let ((sc19 e-8)) (if (null? sc19) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))(else (let ((sc11 e-3)) (case (vector-ref sc11 0) ((1) (let ((sc12 arg-13)) (if (null? sc12) (vector 1 ) (let ((e-7 (car sc12))) (let ((e-8 (cdr sc12))) (let ((sc13 e-7)) (if (null? sc13) (vector 1 ) (let ((e-12 (cdr sc13))) (let ((sc14 e-12)) (if (null? sc14) (vector 1 ) (let ((e-16 (cdr sc14))) (let ((sc15 e-16)) (case (vector-ref sc15 0) ((28) (let ((e-17 (vector-ref sc15 1))) (let ((e-18 (vector-ref sc15 2))) (let ((sc16 e-18)) (case (vector-ref sc16 0) ((12) (let ((e-19 (vector-ref sc16 1))) (let ((sc17 e-8)) (if (null? sc17) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))))(else (let ((sc10 e-3)) (case (vector-ref sc10 0) ((1) (let ((sc11 arg-13)) (if (null? sc11) (vector 1 ) (let ((e-7 (car sc11))) (let ((e-8 (cdr sc11))) (let ((sc12 e-7)) (if (null? sc12) (vector 1 ) (let ((e-12 (cdr sc12))) (let ((sc13 e-12)) (if (null? sc13) (vector 1 ) (let ((e-16 (cdr sc13))) (let ((sc14 e-16)) (case (vector-ref sc14 0) ((28) (let ((e-17 (vector-ref sc14 1))) (let ((e-18 (vector-ref sc14 2))) (let ((sc15 e-18)) (case (vector-ref sc15 0) ((12) (let ((e-19 (vector-ref sc15 1))) (let ((sc16 e-8)) (if (null? sc16) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))))))))))))(else (let ((sc6 e-3)) (case (vector-ref sc6 0) ((1) (let ((sc7 arg-13)) (if (null? sc7) (vector 1 ) (let ((e-7 (car sc7))) (let ((e-8 (cdr sc7))) (let ((sc8 e-7)) (if (null? sc8) (vector 1 ) (let ((e-12 (cdr sc8))) (let ((sc9 e-12)) (if (null? sc9) (vector 1 ) (let ((e-16 (cdr sc9))) (let ((sc10 e-16)) (case (vector-ref sc10 0) ((28) (let ((e-17 (vector-ref sc10 1))) (let ((e-18 (vector-ref sc10 2))) (let ((sc11 e-18)) (case (vector-ref sc11 0) ((12) (let ((e-19 (vector-ref sc11 1))) (let ((sc12 e-8)) (if (null? sc12) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))) (let ((e-41 (car sc5))) (let ((e-42 (cdr sc5))) (let ((sc6 e-41)) (if (null? sc6) (let ((sc7 e-2)) (case (vector-ref sc7 0) ((1) (let ((sc8 arg-13)) (if (null? sc8) (let ((sc9 e-3)) (case (vector-ref sc9 0) ((1) (let ((sc10 arg-13)) (if (null? sc10) (vector 1 ) (let ((e-7 (car sc10))) (let ((e-8 (cdr sc10))) (let ((sc11 e-7)) (if (null? sc11) (vector 1 ) (let ((e-12 (cdr sc11))) (let ((sc12 e-12)) (if (null? sc12) (vector 1 ) (let ((e-16 (cdr sc12))) (let ((sc13 e-16)) (case (vector-ref sc13 0) ((28) (let ((e-17 (vector-ref sc13 1))) (let ((e-18 (vector-ref sc13 2))) (let ((sc14 e-18)) (case (vector-ref sc14 0) ((12) (let ((e-19 (vector-ref sc14 1))) (let ((sc15 e-8)) (if (null? sc15) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-24 (car sc8))) (let ((e-25 (cdr sc8))) (let ((sc9 e-24)) (if (null? sc9) (let ((sc10 e-3)) (case (vector-ref sc10 0) ((1) (let ((sc11 arg-13)) (if (null? sc11) (vector 1 ) (let ((e-7 (car sc11))) (let ((e-8 (cdr sc11))) (let ((sc12 e-7)) (if (null? sc12) (vector 1 ) (let ((e-12 (cdr sc12))) (let ((sc13 e-12)) (if (null? sc13) (vector 1 ) (let ((e-16 (cdr sc13))) (let ((sc14 e-16)) (case (vector-ref sc14 0) ((28) (let ((e-17 (vector-ref sc14 1))) (let ((e-18 (vector-ref sc14 2))) (let ((sc15 e-18)) (case (vector-ref sc15 0) ((12) (let ((e-19 (vector-ref sc15 1))) (let ((sc16 e-8)) (if (null? sc16) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-29 (cdr sc9))) (let ((sc10 e-29)) (if (null? sc10) (let ((sc11 e-3)) (case (vector-ref sc11 0) ((1) (let ((sc12 arg-13)) (if (null? sc12) (vector 1 ) (let ((e-7 (car sc12))) (let ((e-8 (cdr sc12))) (let ((sc13 e-7)) (if (null? sc13) (vector 1 ) (let ((e-12 (cdr sc13))) (let ((sc14 e-12)) (if (null? sc14) (vector 1 ) (let ((e-16 (cdr sc14))) (let ((sc15 e-16)) (case (vector-ref sc15 0) ((28) (let ((e-17 (vector-ref sc15 1))) (let ((e-18 (vector-ref sc15 2))) (let ((sc16 e-18)) (case (vector-ref sc16 0) ((12) (let ((e-19 (vector-ref sc16 1))) (let ((sc17 e-8)) (if (null? sc17) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-33 (cdr sc10))) (let ((sc11 e-33)) (case (vector-ref sc11 0) ((28) (let ((e-34 (vector-ref sc11 1))) (let ((e-35 (vector-ref sc11 2))) (let ((sc12 e-35)) (case (vector-ref sc12 0) ((11) (let ((e-36 (vector-ref sc12 1))) (let ((sc13 e-25)) (if (null? sc13) (vector 2 (vector 28 e-34 (vector 11 e-36))) (let ((sc14 e-3)) (case (vector-ref sc14 0) ((1) (let ((sc15 arg-13)) (if (null? sc15) (vector 1 ) (let ((e-7 (car sc15))) (let ((e-8 (cdr sc15))) (let ((sc16 e-7)) (if (null? sc16) (vector 1 ) (let ((e-12 (cdr sc16))) (let ((sc17 e-12)) (if (null? sc17) (vector 1 ) (let ((e-16 (cdr sc17))) (let ((sc18 e-16)) (case (vector-ref sc18 0) ((28) (let ((e-17 (vector-ref sc18 1))) (let ((e-18 (vector-ref sc18 2))) (let ((sc19 e-18)) (case (vector-ref sc19 0) ((12) (let ((e-19 (vector-ref sc19 1))) (let ((sc20 e-8)) (if (null? sc20) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))(else (let ((sc12 e-3)) (case (vector-ref sc12 0) ((1) (let ((sc13 arg-13)) (if (null? sc13) (vector 1 ) (let ((e-7 (car sc13))) (let ((e-8 (cdr sc13))) (let ((sc14 e-7)) (if (null? sc14) (vector 1 ) (let ((e-12 (cdr sc14))) (let ((sc15 e-12)) (if (null? sc15) (vector 1 ) (let ((e-16 (cdr sc15))) (let ((sc16 e-16)) (case (vector-ref sc16 0) ((28) (let ((e-17 (vector-ref sc16 1))) (let ((e-18 (vector-ref sc16 2))) (let ((sc17 e-18)) (case (vector-ref sc17 0) ((12) (let ((e-19 (vector-ref sc17 1))) (let ((sc18 e-8)) (if (null? sc18) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))))(else (let ((sc11 e-3)) (case (vector-ref sc11 0) ((1) (let ((sc12 arg-13)) (if (null? sc12) (vector 1 ) (let ((e-7 (car sc12))) (let ((e-8 (cdr sc12))) (let ((sc13 e-7)) (if (null? sc13) (vector 1 ) (let ((e-12 (cdr sc13))) (let ((sc14 e-12)) (if (null? sc14) (vector 1 ) (let ((e-16 (cdr sc14))) (let ((sc15 e-16)) (case (vector-ref sc15 0) ((28) (let ((e-17 (vector-ref sc15 1))) (let ((e-18 (vector-ref sc15 2))) (let ((sc16 e-18)) (case (vector-ref sc16 0) ((12) (let ((e-19 (vector-ref sc16 1))) (let ((sc17 e-8)) (if (null? sc17) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))))))))))))(else (let ((sc7 e-3)) (case (vector-ref sc7 0) ((1) (let ((sc8 arg-13)) (if (null? sc8) (vector 1 ) (let ((e-7 (car sc8))) (let ((e-8 (cdr sc8))) (let ((sc9 e-7)) (if (null? sc9) (vector 1 ) (let ((e-12 (cdr sc9))) (let ((sc10 e-12)) (if (null? sc10) (vector 1 ) (let ((e-16 (cdr sc10))) (let ((sc11 e-16)) (case (vector-ref sc11 0) ((28) (let ((e-17 (vector-ref sc11 1))) (let ((e-18 (vector-ref sc11 2))) (let ((sc12 e-18)) (case (vector-ref sc12 0) ((12) (let ((e-19 (vector-ref sc12 1))) (let ((sc13 e-8)) (if (null? sc13) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))) (let ((e-46 (cdr sc6))) (let ((sc7 e-46)) (if (null? sc7) (let ((sc8 e-2)) (case (vector-ref sc8 0) ((1) (let ((sc9 arg-13)) (if (null? sc9) (let ((sc10 e-3)) (case (vector-ref sc10 0) ((1) (let ((sc11 arg-13)) (if (null? sc11) (vector 1 ) (let ((e-7 (car sc11))) (let ((e-8 (cdr sc11))) (let ((sc12 e-7)) (if (null? sc12) (vector 1 ) (let ((e-12 (cdr sc12))) (let ((sc13 e-12)) (if (null? sc13) (vector 1 ) (let ((e-16 (cdr sc13))) (let ((sc14 e-16)) (case (vector-ref sc14 0) ((28) (let ((e-17 (vector-ref sc14 1))) (let ((e-18 (vector-ref sc14 2))) (let ((sc15 e-18)) (case (vector-ref sc15 0) ((12) (let ((e-19 (vector-ref sc15 1))) (let ((sc16 e-8)) (if (null? sc16) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-24 (car sc9))) (let ((e-25 (cdr sc9))) (let ((sc10 e-24)) (if (null? sc10) (let ((sc11 e-3)) (case (vector-ref sc11 0) ((1) (let ((sc12 arg-13)) (if (null? sc12) (vector 1 ) (let ((e-7 (car sc12))) (let ((e-8 (cdr sc12))) (let ((sc13 e-7)) (if (null? sc13) (vector 1 ) (let ((e-12 (cdr sc13))) (let ((sc14 e-12)) (if (null? sc14) (vector 1 ) (let ((e-16 (cdr sc14))) (let ((sc15 e-16)) (case (vector-ref sc15 0) ((28) (let ((e-17 (vector-ref sc15 1))) (let ((e-18 (vector-ref sc15 2))) (let ((sc16 e-18)) (case (vector-ref sc16 0) ((12) (let ((e-19 (vector-ref sc16 1))) (let ((sc17 e-8)) (if (null? sc17) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-29 (cdr sc10))) (let ((sc11 e-29)) (if (null? sc11) (let ((sc12 e-3)) (case (vector-ref sc12 0) ((1) (let ((sc13 arg-13)) (if (null? sc13) (vector 1 ) (let ((e-7 (car sc13))) (let ((e-8 (cdr sc13))) (let ((sc14 e-7)) (if (null? sc14) (vector 1 ) (let ((e-12 (cdr sc14))) (let ((sc15 e-12)) (if (null? sc15) (vector 1 ) (let ((e-16 (cdr sc15))) (let ((sc16 e-16)) (case (vector-ref sc16 0) ((28) (let ((e-17 (vector-ref sc16 1))) (let ((e-18 (vector-ref sc16 2))) (let ((sc17 e-18)) (case (vector-ref sc17 0) ((12) (let ((e-19 (vector-ref sc17 1))) (let ((sc18 e-8)) (if (null? sc18) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-33 (cdr sc11))) (let ((sc12 e-33)) (case (vector-ref sc12 0) ((28) (let ((e-34 (vector-ref sc12 1))) (let ((e-35 (vector-ref sc12 2))) (let ((sc13 e-35)) (case (vector-ref sc13 0) ((11) (let ((e-36 (vector-ref sc13 1))) (let ((sc14 e-25)) (if (null? sc14) (vector 2 (vector 28 e-34 (vector 11 e-36))) (let ((sc15 e-3)) (case (vector-ref sc15 0) ((1) (let ((sc16 arg-13)) (if (null? sc16) (vector 1 ) (let ((e-7 (car sc16))) (let ((e-8 (cdr sc16))) (let ((sc17 e-7)) (if (null? sc17) (vector 1 ) (let ((e-12 (cdr sc17))) (let ((sc18 e-12)) (if (null? sc18) (vector 1 ) (let ((e-16 (cdr sc18))) (let ((sc19 e-16)) (case (vector-ref sc19 0) ((28) (let ((e-17 (vector-ref sc19 1))) (let ((e-18 (vector-ref sc19 2))) (let ((sc20 e-18)) (case (vector-ref sc20 0) ((12) (let ((e-19 (vector-ref sc20 1))) (let ((sc21 e-8)) (if (null? sc21) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))(else (let ((sc13 e-3)) (case (vector-ref sc13 0) ((1) (let ((sc14 arg-13)) (if (null? sc14) (vector 1 ) (let ((e-7 (car sc14))) (let ((e-8 (cdr sc14))) (let ((sc15 e-7)) (if (null? sc15) (vector 1 ) (let ((e-12 (cdr sc15))) (let ((sc16 e-12)) (if (null? sc16) (vector 1 ) (let ((e-16 (cdr sc16))) (let ((sc17 e-16)) (case (vector-ref sc17 0) ((28) (let ((e-17 (vector-ref sc17 1))) (let ((e-18 (vector-ref sc17 2))) (let ((sc18 e-18)) (case (vector-ref sc18 0) ((12) (let ((e-19 (vector-ref sc18 1))) (let ((sc19 e-8)) (if (null? sc19) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))))(else (let ((sc12 e-3)) (case (vector-ref sc12 0) ((1) (let ((sc13 arg-13)) (if (null? sc13) (vector 1 ) (let ((e-7 (car sc13))) (let ((e-8 (cdr sc13))) (let ((sc14 e-7)) (if (null? sc14) (vector 1 ) (let ((e-12 (cdr sc14))) (let ((sc15 e-12)) (if (null? sc15) (vector 1 ) (let ((e-16 (cdr sc15))) (let ((sc16 e-16)) (case (vector-ref sc16 0) ((28) (let ((e-17 (vector-ref sc16 1))) (let ((e-18 (vector-ref sc16 2))) (let ((sc17 e-18)) (case (vector-ref sc17 0) ((12) (let ((e-19 (vector-ref sc17 1))) (let ((sc18 e-8)) (if (null? sc18) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))))))))))))(else (let ((sc8 e-3)) (case (vector-ref sc8 0) ((1) (let ((sc9 arg-13)) (if (null? sc9) (vector 1 ) (let ((e-7 (car sc9))) (let ((e-8 (cdr sc9))) (let ((sc10 e-7)) (if (null? sc10) (vector 1 ) (let ((e-12 (cdr sc10))) (let ((sc11 e-12)) (if (null? sc11) (vector 1 ) (let ((e-16 (cdr sc11))) (let ((sc12 e-16)) (case (vector-ref sc12 0) ((28) (let ((e-17 (vector-ref sc12 1))) (let ((e-18 (vector-ref sc12 2))) (let ((sc13 e-18)) (case (vector-ref sc13 0) ((12) (let ((e-19 (vector-ref sc13 1))) (let ((sc14 e-8)) (if (null? sc14) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))) (let ((e-50 (cdr sc7))) (let ((sc8 e-50)) (case (vector-ref sc8 0) ((28) (let ((e-51 (vector-ref sc8 1))) (let ((e-52 (vector-ref sc8 2))) (let ((sc9 e-52)) (case (vector-ref sc9 0) ((10) (let ((e-53 (vector-ref sc9 1))) (let ((sc10 e-42)) (if (null? sc10) (vector 2 (vector 28 e-51 (vector 10 e-53))) (let ((sc11 e-2)) (case (vector-ref sc11 0) ((1) (let ((sc12 arg-13)) (if (null? sc12) (let ((sc13 e-3)) (case (vector-ref sc13 0) ((1) (let ((sc14 arg-13)) (if (null? sc14) (vector 1 ) (let ((e-7 (car sc14))) (let ((e-8 (cdr sc14))) (let ((sc15 e-7)) (if (null? sc15) (vector 1 ) (let ((e-12 (cdr sc15))) (let ((sc16 e-12)) (if (null? sc16) (vector 1 ) (let ((e-16 (cdr sc16))) (let ((sc17 e-16)) (case (vector-ref sc17 0) ((28) (let ((e-17 (vector-ref sc17 1))) (let ((e-18 (vector-ref sc17 2))) (let ((sc18 e-18)) (case (vector-ref sc18 0) ((12) (let ((e-19 (vector-ref sc18 1))) (let ((sc19 e-8)) (if (null? sc19) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-24 (car sc12))) (let ((e-25 (cdr sc12))) (let ((sc13 e-24)) (if (null? sc13) (let ((sc14 e-3)) (case (vector-ref sc14 0) ((1) (let ((sc15 arg-13)) (if (null? sc15) (vector 1 ) (let ((e-7 (car sc15))) (let ((e-8 (cdr sc15))) (let ((sc16 e-7)) (if (null? sc16) (vector 1 ) (let ((e-12 (cdr sc16))) (let ((sc17 e-12)) (if (null? sc17) (vector 1 ) (let ((e-16 (cdr sc17))) (let ((sc18 e-16)) (case (vector-ref sc18 0) ((28) (let ((e-17 (vector-ref sc18 1))) (let ((e-18 (vector-ref sc18 2))) (let ((sc19 e-18)) (case (vector-ref sc19 0) ((12) (let ((e-19 (vector-ref sc19 1))) (let ((sc20 e-8)) (if (null? sc20) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-29 (cdr sc13))) (let ((sc14 e-29)) (if (null? sc14) (let ((sc15 e-3)) (case (vector-ref sc15 0) ((1) (let ((sc16 arg-13)) (if (null? sc16) (vector 1 ) (let ((e-7 (car sc16))) (let ((e-8 (cdr sc16))) (let ((sc17 e-7)) (if (null? sc17) (vector 1 ) (let ((e-12 (cdr sc17))) (let ((sc18 e-12)) (if (null? sc18) (vector 1 ) (let ((e-16 (cdr sc18))) (let ((sc19 e-16)) (case (vector-ref sc19 0) ((28) (let ((e-17 (vector-ref sc19 1))) (let ((e-18 (vector-ref sc19 2))) (let ((sc20 e-18)) (case (vector-ref sc20 0) ((12) (let ((e-19 (vector-ref sc20 1))) (let ((sc21 e-8)) (if (null? sc21) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-33 (cdr sc14))) (let ((sc15 e-33)) (case (vector-ref sc15 0) ((28) (let ((e-34 (vector-ref sc15 1))) (let ((e-35 (vector-ref sc15 2))) (let ((sc16 e-35)) (case (vector-ref sc16 0) ((11) (let ((e-36 (vector-ref sc16 1))) (let ((sc17 e-25)) (if (null? sc17) (vector 2 (vector 28 e-34 (vector 11 e-36))) (let ((sc18 e-3)) (case (vector-ref sc18 0) ((1) (let ((sc19 arg-13)) (if (null? sc19) (vector 1 ) (let ((e-7 (car sc19))) (let ((e-8 (cdr sc19))) (let ((sc20 e-7)) (if (null? sc20) (vector 1 ) (let ((e-12 (cdr sc20))) (let ((sc21 e-12)) (if (null? sc21) (vector 1 ) (let ((e-16 (cdr sc21))) (let ((sc22 e-16)) (case (vector-ref sc22 0) ((28) (let ((e-17 (vector-ref sc22 1))) (let ((e-18 (vector-ref sc22 2))) (let ((sc23 e-18)) (case (vector-ref sc23 0) ((12) (let ((e-19 (vector-ref sc23 1))) (let ((sc24 e-8)) (if (null? sc24) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))(else (let ((sc16 e-3)) (case (vector-ref sc16 0) ((1) (let ((sc17 arg-13)) (if (null? sc17) (vector 1 ) (let ((e-7 (car sc17))) (let ((e-8 (cdr sc17))) (let ((sc18 e-7)) (if (null? sc18) (vector 1 ) (let ((e-12 (cdr sc18))) (let ((sc19 e-12)) (if (null? sc19) (vector 1 ) (let ((e-16 (cdr sc19))) (let ((sc20 e-16)) (case (vector-ref sc20 0) ((28) (let ((e-17 (vector-ref sc20 1))) (let ((e-18 (vector-ref sc20 2))) (let ((sc21 e-18)) (case (vector-ref sc21 0) ((12) (let ((e-19 (vector-ref sc21 1))) (let ((sc22 e-8)) (if (null? sc22) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))))(else (let ((sc15 e-3)) (case (vector-ref sc15 0) ((1) (let ((sc16 arg-13)) (if (null? sc16) (vector 1 ) (let ((e-7 (car sc16))) (let ((e-8 (cdr sc16))) (let ((sc17 e-7)) (if (null? sc17) (vector 1 ) (let ((e-12 (cdr sc17))) (let ((sc18 e-12)) (if (null? sc18) (vector 1 ) (let ((e-16 (cdr sc18))) (let ((sc19 e-16)) (case (vector-ref sc19 0) ((28) (let ((e-17 (vector-ref sc19 1))) (let ((e-18 (vector-ref sc19 2))) (let ((sc20 e-18)) (case (vector-ref sc20 0) ((12) (let ((e-19 (vector-ref sc20 1))) (let ((sc21 e-8)) (if (null? sc21) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))))))))))))(else (let ((sc11 e-3)) (case (vector-ref sc11 0) ((1) (let ((sc12 arg-13)) (if (null? sc12) (vector 1 ) (let ((e-7 (car sc12))) (let ((e-8 (cdr sc12))) (let ((sc13 e-7)) (if (null? sc13) (vector 1 ) (let ((e-12 (cdr sc13))) (let ((sc14 e-12)) (if (null? sc14) (vector 1 ) (let ((e-16 (cdr sc14))) (let ((sc15 e-16)) (case (vector-ref sc15 0) ((28) (let ((e-17 (vector-ref sc15 1))) (let ((e-18 (vector-ref sc15 2))) (let ((sc16 e-18)) (case (vector-ref sc16 0) ((12) (let ((e-19 (vector-ref sc16 1))) (let ((sc17 e-8)) (if (null? sc17) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))))))))))(else (let ((sc9 e-2)) (case (vector-ref sc9 0) ((1) (let ((sc10 arg-13)) (if (null? sc10) (let ((sc11 e-3)) (case (vector-ref sc11 0) ((1) (let ((sc12 arg-13)) (if (null? sc12) (vector 1 ) (let ((e-7 (car sc12))) (let ((e-8 (cdr sc12))) (let ((sc13 e-7)) (if (null? sc13) (vector 1 ) (let ((e-12 (cdr sc13))) (let ((sc14 e-12)) (if (null? sc14) (vector 1 ) (let ((e-16 (cdr sc14))) (let ((sc15 e-16)) (case (vector-ref sc15 0) ((28) (let ((e-17 (vector-ref sc15 1))) (let ((e-18 (vector-ref sc15 2))) (let ((sc16 e-18)) (case (vector-ref sc16 0) ((12) (let ((e-19 (vector-ref sc16 1))) (let ((sc17 e-8)) (if (null? sc17) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-24 (car sc10))) (let ((e-25 (cdr sc10))) (let ((sc11 e-24)) (if (null? sc11) (let ((sc12 e-3)) (case (vector-ref sc12 0) ((1) (let ((sc13 arg-13)) (if (null? sc13) (vector 1 ) (let ((e-7 (car sc13))) (let ((e-8 (cdr sc13))) (let ((sc14 e-7)) (if (null? sc14) (vector 1 ) (let ((e-12 (cdr sc14))) (let ((sc15 e-12)) (if (null? sc15) (vector 1 ) (let ((e-16 (cdr sc15))) (let ((sc16 e-16)) (case (vector-ref sc16 0) ((28) (let ((e-17 (vector-ref sc16 1))) (let ((e-18 (vector-ref sc16 2))) (let ((sc17 e-18)) (case (vector-ref sc17 0) ((12) (let ((e-19 (vector-ref sc17 1))) (let ((sc18 e-8)) (if (null? sc18) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-29 (cdr sc11))) (let ((sc12 e-29)) (if (null? sc12) (let ((sc13 e-3)) (case (vector-ref sc13 0) ((1) (let ((sc14 arg-13)) (if (null? sc14) (vector 1 ) (let ((e-7 (car sc14))) (let ((e-8 (cdr sc14))) (let ((sc15 e-7)) (if (null? sc15) (vector 1 ) (let ((e-12 (cdr sc15))) (let ((sc16 e-12)) (if (null? sc16) (vector 1 ) (let ((e-16 (cdr sc16))) (let ((sc17 e-16)) (case (vector-ref sc17 0) ((28) (let ((e-17 (vector-ref sc17 1))) (let ((e-18 (vector-ref sc17 2))) (let ((sc18 e-18)) (case (vector-ref sc18 0) ((12) (let ((e-19 (vector-ref sc18 1))) (let ((sc19 e-8)) (if (null? sc19) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-33 (cdr sc12))) (let ((sc13 e-33)) (case (vector-ref sc13 0) ((28) (let ((e-34 (vector-ref sc13 1))) (let ((e-35 (vector-ref sc13 2))) (let ((sc14 e-35)) (case (vector-ref sc14 0) ((11) (let ((e-36 (vector-ref sc14 1))) (let ((sc15 e-25)) (if (null? sc15) (vector 2 (vector 28 e-34 (vector 11 e-36))) (let ((sc16 e-3)) (case (vector-ref sc16 0) ((1) (let ((sc17 arg-13)) (if (null? sc17) (vector 1 ) (let ((e-7 (car sc17))) (let ((e-8 (cdr sc17))) (let ((sc18 e-7)) (if (null? sc18) (vector 1 ) (let ((e-12 (cdr sc18))) (let ((sc19 e-12)) (if (null? sc19) (vector 1 ) (let ((e-16 (cdr sc19))) (let ((sc20 e-16)) (case (vector-ref sc20 0) ((28) (let ((e-17 (vector-ref sc20 1))) (let ((e-18 (vector-ref sc20 2))) (let ((sc21 e-18)) (case (vector-ref sc21 0) ((12) (let ((e-19 (vector-ref sc21 1))) (let ((sc22 e-8)) (if (null? sc22) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))(else (let ((sc14 e-3)) (case (vector-ref sc14 0) ((1) (let ((sc15 arg-13)) (if (null? sc15) (vector 1 ) (let ((e-7 (car sc15))) (let ((e-8 (cdr sc15))) (let ((sc16 e-7)) (if (null? sc16) (vector 1 ) (let ((e-12 (cdr sc16))) (let ((sc17 e-12)) (if (null? sc17) (vector 1 ) (let ((e-16 (cdr sc17))) (let ((sc18 e-16)) (case (vector-ref sc18 0) ((28) (let ((e-17 (vector-ref sc18 1))) (let ((e-18 (vector-ref sc18 2))) (let ((sc19 e-18)) (case (vector-ref sc19 0) ((12) (let ((e-19 (vector-ref sc19 1))) (let ((sc20 e-8)) (if (null? sc20) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))))(else (let ((sc13 e-3)) (case (vector-ref sc13 0) ((1) (let ((sc14 arg-13)) (if (null? sc14) (vector 1 ) (let ((e-7 (car sc14))) (let ((e-8 (cdr sc14))) (let ((sc15 e-7)) (if (null? sc15) (vector 1 ) (let ((e-12 (cdr sc15))) (let ((sc16 e-12)) (if (null? sc16) (vector 1 ) (let ((e-16 (cdr sc16))) (let ((sc17 e-16)) (case (vector-ref sc17 0) ((28) (let ((e-17 (vector-ref sc17 1))) (let ((e-18 (vector-ref sc17 2))) (let ((sc18 e-18)) (case (vector-ref sc18 0) ((12) (let ((e-19 (vector-ref sc18 1))) (let ((sc19 e-8)) (if (null? sc19) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))))))))))))(else (let ((sc9 e-3)) (case (vector-ref sc9 0) ((1) (let ((sc10 arg-13)) (if (null? sc10) (vector 1 ) (let ((e-7 (car sc10))) (let ((e-8 (cdr sc10))) (let ((sc11 e-7)) (if (null? sc11) (vector 1 ) (let ((e-12 (cdr sc11))) (let ((sc12 e-12)) (if (null? sc12) (vector 1 ) (let ((e-16 (cdr sc12))) (let ((sc13 e-16)) (case (vector-ref sc13 0) ((28) (let ((e-17 (vector-ref sc13 1))) (let ((e-18 (vector-ref sc13 2))) (let ((sc14 e-18)) (case (vector-ref sc14 0) ((12) (let ((e-19 (vector-ref sc14 1))) (let ((sc15 e-8)) (if (null? sc15) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))))))))))))(else (let ((sc8 e-2)) (case (vector-ref sc8 0) ((1) (let ((sc9 arg-13)) (if (null? sc9) (let ((sc10 e-3)) (case (vector-ref sc10 0) ((1) (let ((sc11 arg-13)) (if (null? sc11) (vector 1 ) (let ((e-7 (car sc11))) (let ((e-8 (cdr sc11))) (let ((sc12 e-7)) (if (null? sc12) (vector 1 ) (let ((e-12 (cdr sc12))) (let ((sc13 e-12)) (if (null? sc13) (vector 1 ) (let ((e-16 (cdr sc13))) (let ((sc14 e-16)) (case (vector-ref sc14 0) ((28) (let ((e-17 (vector-ref sc14 1))) (let ((e-18 (vector-ref sc14 2))) (let ((sc15 e-18)) (case (vector-ref sc15 0) ((12) (let ((e-19 (vector-ref sc15 1))) (let ((sc16 e-8)) (if (null? sc16) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-24 (car sc9))) (let ((e-25 (cdr sc9))) (let ((sc10 e-24)) (if (null? sc10) (let ((sc11 e-3)) (case (vector-ref sc11 0) ((1) (let ((sc12 arg-13)) (if (null? sc12) (vector 1 ) (let ((e-7 (car sc12))) (let ((e-8 (cdr sc12))) (let ((sc13 e-7)) (if (null? sc13) (vector 1 ) (let ((e-12 (cdr sc13))) (let ((sc14 e-12)) (if (null? sc14) (vector 1 ) (let ((e-16 (cdr sc14))) (let ((sc15 e-16)) (case (vector-ref sc15 0) ((28) (let ((e-17 (vector-ref sc15 1))) (let ((e-18 (vector-ref sc15 2))) (let ((sc16 e-18)) (case (vector-ref sc16 0) ((12) (let ((e-19 (vector-ref sc16 1))) (let ((sc17 e-8)) (if (null? sc17) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-29 (cdr sc10))) (let ((sc11 e-29)) (if (null? sc11) (let ((sc12 e-3)) (case (vector-ref sc12 0) ((1) (let ((sc13 arg-13)) (if (null? sc13) (vector 1 ) (let ((e-7 (car sc13))) (let ((e-8 (cdr sc13))) (let ((sc14 e-7)) (if (null? sc14) (vector 1 ) (let ((e-12 (cdr sc14))) (let ((sc15 e-12)) (if (null? sc15) (vector 1 ) (let ((e-16 (cdr sc15))) (let ((sc16 e-16)) (case (vector-ref sc16 0) ((28) (let ((e-17 (vector-ref sc16 1))) (let ((e-18 (vector-ref sc16 2))) (let ((sc17 e-18)) (case (vector-ref sc17 0) ((12) (let ((e-19 (vector-ref sc17 1))) (let ((sc18 e-8)) (if (null? sc18) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-33 (cdr sc11))) (let ((sc12 e-33)) (case (vector-ref sc12 0) ((28) (let ((e-34 (vector-ref sc12 1))) (let ((e-35 (vector-ref sc12 2))) (let ((sc13 e-35)) (case (vector-ref sc13 0) ((11) (let ((e-36 (vector-ref sc13 1))) (let ((sc14 e-25)) (if (null? sc14) (vector 2 (vector 28 e-34 (vector 11 e-36))) (let ((sc15 e-3)) (case (vector-ref sc15 0) ((1) (let ((sc16 arg-13)) (if (null? sc16) (vector 1 ) (let ((e-7 (car sc16))) (let ((e-8 (cdr sc16))) (let ((sc17 e-7)) (if (null? sc17) (vector 1 ) (let ((e-12 (cdr sc17))) (let ((sc18 e-12)) (if (null? sc18) (vector 1 ) (let ((e-16 (cdr sc18))) (let ((sc19 e-16)) (case (vector-ref sc19 0) ((28) (let ((e-17 (vector-ref sc19 1))) (let ((e-18 (vector-ref sc19 2))) (let ((sc20 e-18)) (case (vector-ref sc20 0) ((12) (let ((e-19 (vector-ref sc20 1))) (let ((sc21 e-8)) (if (null? sc21) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))(else (let ((sc13 e-3)) (case (vector-ref sc13 0) ((1) (let ((sc14 arg-13)) (if (null? sc14) (vector 1 ) (let ((e-7 (car sc14))) (let ((e-8 (cdr sc14))) (let ((sc15 e-7)) (if (null? sc15) (vector 1 ) (let ((e-12 (cdr sc15))) (let ((sc16 e-12)) (if (null? sc16) (vector 1 ) (let ((e-16 (cdr sc16))) (let ((sc17 e-16)) (case (vector-ref sc17 0) ((28) (let ((e-17 (vector-ref sc17 1))) (let ((e-18 (vector-ref sc17 2))) (let ((sc18 e-18)) (case (vector-ref sc18 0) ((12) (let ((e-19 (vector-ref sc18 1))) (let ((sc19 e-8)) (if (null? sc19) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))))(else (let ((sc12 e-3)) (case (vector-ref sc12 0) ((1) (let ((sc13 arg-13)) (if (null? sc13) (vector 1 ) (let ((e-7 (car sc13))) (let ((e-8 (cdr sc13))) (let ((sc14 e-7)) (if (null? sc14) (vector 1 ) (let ((e-12 (cdr sc14))) (let ((sc15 e-12)) (if (null? sc15) (vector 1 ) (let ((e-16 (cdr sc15))) (let ((sc16 e-16)) (case (vector-ref sc16 0) ((28) (let ((e-17 (vector-ref sc16 1))) (let ((e-18 (vector-ref sc16 2))) (let ((sc17 e-18)) (case (vector-ref sc17 0) ((12) (let ((e-19 (vector-ref sc17 1))) (let ((sc18 e-8)) (if (null? sc18) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))))))))))))(else (let ((sc8 e-3)) (case (vector-ref sc8 0) ((1) (let ((sc9 arg-13)) (if (null? sc9) (vector 1 ) (let ((e-7 (car sc9))) (let ((e-8 (cdr sc9))) (let ((sc10 e-7)) (if (null? sc10) (vector 1 ) (let ((e-12 (cdr sc10))) (let ((sc11 e-12)) (if (null? sc11) (vector 1 ) (let ((e-16 (cdr sc11))) (let ((sc12 e-16)) (case (vector-ref sc12 0) ((28) (let ((e-17 (vector-ref sc12 1))) (let ((e-18 (vector-ref sc12 2))) (let ((sc13 e-18)) (case (vector-ref sc13 0) ((12) (let ((e-19 (vector-ref sc13 1))) (let ((sc14 e-8)) (if (null? sc14) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))))))))))))))))))))(else (let ((sc4 e-2)) (case (vector-ref sc4 0) ((1) (let ((sc5 arg-13)) (if (null? sc5) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((1) (let ((sc7 arg-13)) (if (null? sc7) (vector 1 ) (let ((e-7 (car sc7))) (let ((e-8 (cdr sc7))) (let ((sc8 e-7)) (if (null? sc8) (vector 1 ) (let ((e-12 (cdr sc8))) (let ((sc9 e-12)) (if (null? sc9) (vector 1 ) (let ((e-16 (cdr sc9))) (let ((sc10 e-16)) (case (vector-ref sc10 0) ((28) (let ((e-17 (vector-ref sc10 1))) (let ((e-18 (vector-ref sc10 2))) (let ((sc11 e-18)) (case (vector-ref sc11 0) ((12) (let ((e-19 (vector-ref sc11 1))) (let ((sc12 e-8)) (if (null? sc12) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-24 (car sc5))) (let ((e-25 (cdr sc5))) (let ((sc6 e-24)) (if (null? sc6) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((1) (let ((sc8 arg-13)) (if (null? sc8) (vector 1 ) (let ((e-7 (car sc8))) (let ((e-8 (cdr sc8))) (let ((sc9 e-7)) (if (null? sc9) (vector 1 ) (let ((e-12 (cdr sc9))) (let ((sc10 e-12)) (if (null? sc10) (vector 1 ) (let ((e-16 (cdr sc10))) (let ((sc11 e-16)) (case (vector-ref sc11 0) ((28) (let ((e-17 (vector-ref sc11 1))) (let ((e-18 (vector-ref sc11 2))) (let ((sc12 e-18)) (case (vector-ref sc12 0) ((12) (let ((e-19 (vector-ref sc12 1))) (let ((sc13 e-8)) (if (null? sc13) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-29 (cdr sc6))) (let ((sc7 e-29)) (if (null? sc7) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((1) (let ((sc9 arg-13)) (if (null? sc9) (vector 1 ) (let ((e-7 (car sc9))) (let ((e-8 (cdr sc9))) (let ((sc10 e-7)) (if (null? sc10) (vector 1 ) (let ((e-12 (cdr sc10))) (let ((sc11 e-12)) (if (null? sc11) (vector 1 ) (let ((e-16 (cdr sc11))) (let ((sc12 e-16)) (case (vector-ref sc12 0) ((28) (let ((e-17 (vector-ref sc12 1))) (let ((e-18 (vector-ref sc12 2))) (let ((sc13 e-18)) (case (vector-ref sc13 0) ((12) (let ((e-19 (vector-ref sc13 1))) (let ((sc14 e-8)) (if (null? sc14) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-33 (cdr sc7))) (let ((sc8 e-33)) (case (vector-ref sc8 0) ((28) (let ((e-34 (vector-ref sc8 1))) (let ((e-35 (vector-ref sc8 2))) (let ((sc9 e-35)) (case (vector-ref sc9 0) ((11) (let ((e-36 (vector-ref sc9 1))) (let ((sc10 e-25)) (if (null? sc10) (vector 2 (vector 28 e-34 (vector 11 e-36))) (let ((sc11 e-3)) (case (vector-ref sc11 0) ((1) (let ((sc12 arg-13)) (if (null? sc12) (vector 1 ) (let ((e-7 (car sc12))) (let ((e-8 (cdr sc12))) (let ((sc13 e-7)) (if (null? sc13) (vector 1 ) (let ((e-12 (cdr sc13))) (let ((sc14 e-12)) (if (null? sc14) (vector 1 ) (let ((e-16 (cdr sc14))) (let ((sc15 e-16)) (case (vector-ref sc15 0) ((28) (let ((e-17 (vector-ref sc15 1))) (let ((e-18 (vector-ref sc15 2))) (let ((sc16 e-18)) (case (vector-ref sc16 0) ((12) (let ((e-19 (vector-ref sc16 1))) (let ((sc17 e-8)) (if (null? sc17) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))(else (let ((sc9 e-3)) (case (vector-ref sc9 0) ((1) (let ((sc10 arg-13)) (if (null? sc10) (vector 1 ) (let ((e-7 (car sc10))) (let ((e-8 (cdr sc10))) (let ((sc11 e-7)) (if (null? sc11) (vector 1 ) (let ((e-12 (cdr sc11))) (let ((sc12 e-12)) (if (null? sc12) (vector 1 ) (let ((e-16 (cdr sc12))) (let ((sc13 e-16)) (case (vector-ref sc13 0) ((28) (let ((e-17 (vector-ref sc13 1))) (let ((e-18 (vector-ref sc13 2))) (let ((sc14 e-18)) (case (vector-ref sc14 0) ((12) (let ((e-19 (vector-ref sc14 1))) (let ((sc15 e-8)) (if (null? sc15) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))))(else (let ((sc8 e-3)) (case (vector-ref sc8 0) ((1) (let ((sc9 arg-13)) (if (null? sc9) (vector 1 ) (let ((e-7 (car sc9))) (let ((e-8 (cdr sc9))) (let ((sc10 e-7)) (if (null? sc10) (vector 1 ) (let ((e-12 (cdr sc10))) (let ((sc11 e-12)) (if (null? sc11) (vector 1 ) (let ((e-16 (cdr sc11))) (let ((sc12 e-16)) (case (vector-ref sc12 0) ((28) (let ((e-17 (vector-ref sc12 1))) (let ((e-18 (vector-ref sc12 2))) (let ((sc13 e-18)) (case (vector-ref sc13 0) ((12) (let ((e-19 (vector-ref sc13 1))) (let ((sc14 e-8)) (if (null? sc14) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))))))))))))(else (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((sc5 arg-13)) (if (null? sc5) (vector 1 ) (let ((e-7 (car sc5))) (let ((e-8 (cdr sc5))) (let ((sc6 e-7)) (if (null? sc6) (vector 1 ) (let ((e-12 (cdr sc6))) (let ((sc7 e-12)) (if (null? sc7) (vector 1 ) (let ((e-16 (cdr sc7))) (let ((sc8 e-16)) (case (vector-ref sc8 0) ((28) (let ((e-17 (vector-ref sc8 1))) (let ((e-18 (vector-ref sc8 2))) (let ((sc9 e-18)) (case (vector-ref sc9 0) ((12) (let ((e-19 (vector-ref sc9 1))) (let ((sc10 e-8)) (if (null? sc10) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))))))))) (let ((e-63 (cdr sc3))) (let ((sc4 e-63)) (if (null? sc4) (let ((sc5 e-1)) (case (vector-ref sc5 0) ((1) (let ((sc6 arg-13)) (if (null? sc6) (let ((sc7 e-2)) (case (vector-ref sc7 0) ((1) (let ((sc8 arg-13)) (if (null? sc8) (let ((sc9 e-3)) (case (vector-ref sc9 0) ((1) (let ((sc10 arg-13)) (if (null? sc10) (vector 1 ) (let ((e-7 (car sc10))) (let ((e-8 (cdr sc10))) (let ((sc11 e-7)) (if (null? sc11) (vector 1 ) (let ((e-12 (cdr sc11))) (let ((sc12 e-12)) (if (null? sc12) (vector 1 ) (let ((e-16 (cdr sc12))) (let ((sc13 e-16)) (case (vector-ref sc13 0) ((28) (let ((e-17 (vector-ref sc13 1))) (let ((e-18 (vector-ref sc13 2))) (let ((sc14 e-18)) (case (vector-ref sc14 0) ((12) (let ((e-19 (vector-ref sc14 1))) (let ((sc15 e-8)) (if (null? sc15) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-24 (car sc8))) (let ((e-25 (cdr sc8))) (let ((sc9 e-24)) (if (null? sc9) (let ((sc10 e-3)) (case (vector-ref sc10 0) ((1) (let ((sc11 arg-13)) (if (null? sc11) (vector 1 ) (let ((e-7 (car sc11))) (let ((e-8 (cdr sc11))) (let ((sc12 e-7)) (if (null? sc12) (vector 1 ) (let ((e-12 (cdr sc12))) (let ((sc13 e-12)) (if (null? sc13) (vector 1 ) (let ((e-16 (cdr sc13))) (let ((sc14 e-16)) (case (vector-ref sc14 0) ((28) (let ((e-17 (vector-ref sc14 1))) (let ((e-18 (vector-ref sc14 2))) (let ((sc15 e-18)) (case (vector-ref sc15 0) ((12) (let ((e-19 (vector-ref sc15 1))) (let ((sc16 e-8)) (if (null? sc16) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-29 (cdr sc9))) (let ((sc10 e-29)) (if (null? sc10) (let ((sc11 e-3)) (case (vector-ref sc11 0) ((1) (let ((sc12 arg-13)) (if (null? sc12) (vector 1 ) (let ((e-7 (car sc12))) (let ((e-8 (cdr sc12))) (let ((sc13 e-7)) (if (null? sc13) (vector 1 ) (let ((e-12 (cdr sc13))) (let ((sc14 e-12)) (if (null? sc14) (vector 1 ) (let ((e-16 (cdr sc14))) (let ((sc15 e-16)) (case (vector-ref sc15 0) ((28) (let ((e-17 (vector-ref sc15 1))) (let ((e-18 (vector-ref sc15 2))) (let ((sc16 e-18)) (case (vector-ref sc16 0) ((12) (let ((e-19 (vector-ref sc16 1))) (let ((sc17 e-8)) (if (null? sc17) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-33 (cdr sc10))) (let ((sc11 e-33)) (case (vector-ref sc11 0) ((28) (let ((e-34 (vector-ref sc11 1))) (let ((e-35 (vector-ref sc11 2))) (let ((sc12 e-35)) (case (vector-ref sc12 0) ((11) (let ((e-36 (vector-ref sc12 1))) (let ((sc13 e-25)) (if (null? sc13) (vector 2 (vector 28 e-34 (vector 11 e-36))) (let ((sc14 e-3)) (case (vector-ref sc14 0) ((1) (let ((sc15 arg-13)) (if (null? sc15) (vector 1 ) (let ((e-7 (car sc15))) (let ((e-8 (cdr sc15))) (let ((sc16 e-7)) (if (null? sc16) (vector 1 ) (let ((e-12 (cdr sc16))) (let ((sc17 e-12)) (if (null? sc17) (vector 1 ) (let ((e-16 (cdr sc17))) (let ((sc18 e-16)) (case (vector-ref sc18 0) ((28) (let ((e-17 (vector-ref sc18 1))) (let ((e-18 (vector-ref sc18 2))) (let ((sc19 e-18)) (case (vector-ref sc19 0) ((12) (let ((e-19 (vector-ref sc19 1))) (let ((sc20 e-8)) (if (null? sc20) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))(else (let ((sc12 e-3)) (case (vector-ref sc12 0) ((1) (let ((sc13 arg-13)) (if (null? sc13) (vector 1 ) (let ((e-7 (car sc13))) (let ((e-8 (cdr sc13))) (let ((sc14 e-7)) (if (null? sc14) (vector 1 ) (let ((e-12 (cdr sc14))) (let ((sc15 e-12)) (if (null? sc15) (vector 1 ) (let ((e-16 (cdr sc15))) (let ((sc16 e-16)) (case (vector-ref sc16 0) ((28) (let ((e-17 (vector-ref sc16 1))) (let ((e-18 (vector-ref sc16 2))) (let ((sc17 e-18)) (case (vector-ref sc17 0) ((12) (let ((e-19 (vector-ref sc17 1))) (let ((sc18 e-8)) (if (null? sc18) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))))(else (let ((sc11 e-3)) (case (vector-ref sc11 0) ((1) (let ((sc12 arg-13)) (if (null? sc12) (vector 1 ) (let ((e-7 (car sc12))) (let ((e-8 (cdr sc12))) (let ((sc13 e-7)) (if (null? sc13) (vector 1 ) (let ((e-12 (cdr sc13))) (let ((sc14 e-12)) (if (null? sc14) (vector 1 ) (let ((e-16 (cdr sc14))) (let ((sc15 e-16)) (case (vector-ref sc15 0) ((28) (let ((e-17 (vector-ref sc15 1))) (let ((e-18 (vector-ref sc15 2))) (let ((sc16 e-18)) (case (vector-ref sc16 0) ((12) (let ((e-19 (vector-ref sc16 1))) (let ((sc17 e-8)) (if (null? sc17) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))))))))))))(else (let ((sc7 e-3)) (case (vector-ref sc7 0) ((1) (let ((sc8 arg-13)) (if (null? sc8) (vector 1 ) (let ((e-7 (car sc8))) (let ((e-8 (cdr sc8))) (let ((sc9 e-7)) (if (null? sc9) (vector 1 ) (let ((e-12 (cdr sc9))) (let ((sc10 e-12)) (if (null? sc10) (vector 1 ) (let ((e-16 (cdr sc10))) (let ((sc11 e-16)) (case (vector-ref sc11 0) ((28) (let ((e-17 (vector-ref sc11 1))) (let ((e-18 (vector-ref sc11 2))) (let ((sc12 e-18)) (case (vector-ref sc12 0) ((12) (let ((e-19 (vector-ref sc12 1))) (let ((sc13 e-8)) (if (null? sc13) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))) (let ((e-41 (car sc6))) (let ((e-42 (cdr sc6))) (let ((sc7 e-41)) (if (null? sc7) (let ((sc8 e-2)) (case (vector-ref sc8 0) ((1) (let ((sc9 arg-13)) (if (null? sc9) (let ((sc10 e-3)) (case (vector-ref sc10 0) ((1) (let ((sc11 arg-13)) (if (null? sc11) (vector 1 ) (let ((e-7 (car sc11))) (let ((e-8 (cdr sc11))) (let ((sc12 e-7)) (if (null? sc12) (vector 1 ) (let ((e-12 (cdr sc12))) (let ((sc13 e-12)) (if (null? sc13) (vector 1 ) (let ((e-16 (cdr sc13))) (let ((sc14 e-16)) (case (vector-ref sc14 0) ((28) (let ((e-17 (vector-ref sc14 1))) (let ((e-18 (vector-ref sc14 2))) (let ((sc15 e-18)) (case (vector-ref sc15 0) ((12) (let ((e-19 (vector-ref sc15 1))) (let ((sc16 e-8)) (if (null? sc16) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-24 (car sc9))) (let ((e-25 (cdr sc9))) (let ((sc10 e-24)) (if (null? sc10) (let ((sc11 e-3)) (case (vector-ref sc11 0) ((1) (let ((sc12 arg-13)) (if (null? sc12) (vector 1 ) (let ((e-7 (car sc12))) (let ((e-8 (cdr sc12))) (let ((sc13 e-7)) (if (null? sc13) (vector 1 ) (let ((e-12 (cdr sc13))) (let ((sc14 e-12)) (if (null? sc14) (vector 1 ) (let ((e-16 (cdr sc14))) (let ((sc15 e-16)) (case (vector-ref sc15 0) ((28) (let ((e-17 (vector-ref sc15 1))) (let ((e-18 (vector-ref sc15 2))) (let ((sc16 e-18)) (case (vector-ref sc16 0) ((12) (let ((e-19 (vector-ref sc16 1))) (let ((sc17 e-8)) (if (null? sc17) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-29 (cdr sc10))) (let ((sc11 e-29)) (if (null? sc11) (let ((sc12 e-3)) (case (vector-ref sc12 0) ((1) (let ((sc13 arg-13)) (if (null? sc13) (vector 1 ) (let ((e-7 (car sc13))) (let ((e-8 (cdr sc13))) (let ((sc14 e-7)) (if (null? sc14) (vector 1 ) (let ((e-12 (cdr sc14))) (let ((sc15 e-12)) (if (null? sc15) (vector 1 ) (let ((e-16 (cdr sc15))) (let ((sc16 e-16)) (case (vector-ref sc16 0) ((28) (let ((e-17 (vector-ref sc16 1))) (let ((e-18 (vector-ref sc16 2))) (let ((sc17 e-18)) (case (vector-ref sc17 0) ((12) (let ((e-19 (vector-ref sc17 1))) (let ((sc18 e-8)) (if (null? sc18) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-33 (cdr sc11))) (let ((sc12 e-33)) (case (vector-ref sc12 0) ((28) (let ((e-34 (vector-ref sc12 1))) (let ((e-35 (vector-ref sc12 2))) (let ((sc13 e-35)) (case (vector-ref sc13 0) ((11) (let ((e-36 (vector-ref sc13 1))) (let ((sc14 e-25)) (if (null? sc14) (vector 2 (vector 28 e-34 (vector 11 e-36))) (let ((sc15 e-3)) (case (vector-ref sc15 0) ((1) (let ((sc16 arg-13)) (if (null? sc16) (vector 1 ) (let ((e-7 (car sc16))) (let ((e-8 (cdr sc16))) (let ((sc17 e-7)) (if (null? sc17) (vector 1 ) (let ((e-12 (cdr sc17))) (let ((sc18 e-12)) (if (null? sc18) (vector 1 ) (let ((e-16 (cdr sc18))) (let ((sc19 e-16)) (case (vector-ref sc19 0) ((28) (let ((e-17 (vector-ref sc19 1))) (let ((e-18 (vector-ref sc19 2))) (let ((sc20 e-18)) (case (vector-ref sc20 0) ((12) (let ((e-19 (vector-ref sc20 1))) (let ((sc21 e-8)) (if (null? sc21) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))(else (let ((sc13 e-3)) (case (vector-ref sc13 0) ((1) (let ((sc14 arg-13)) (if (null? sc14) (vector 1 ) (let ((e-7 (car sc14))) (let ((e-8 (cdr sc14))) (let ((sc15 e-7)) (if (null? sc15) (vector 1 ) (let ((e-12 (cdr sc15))) (let ((sc16 e-12)) (if (null? sc16) (vector 1 ) (let ((e-16 (cdr sc16))) (let ((sc17 e-16)) (case (vector-ref sc17 0) ((28) (let ((e-17 (vector-ref sc17 1))) (let ((e-18 (vector-ref sc17 2))) (let ((sc18 e-18)) (case (vector-ref sc18 0) ((12) (let ((e-19 (vector-ref sc18 1))) (let ((sc19 e-8)) (if (null? sc19) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))))(else (let ((sc12 e-3)) (case (vector-ref sc12 0) ((1) (let ((sc13 arg-13)) (if (null? sc13) (vector 1 ) (let ((e-7 (car sc13))) (let ((e-8 (cdr sc13))) (let ((sc14 e-7)) (if (null? sc14) (vector 1 ) (let ((e-12 (cdr sc14))) (let ((sc15 e-12)) (if (null? sc15) (vector 1 ) (let ((e-16 (cdr sc15))) (let ((sc16 e-16)) (case (vector-ref sc16 0) ((28) (let ((e-17 (vector-ref sc16 1))) (let ((e-18 (vector-ref sc16 2))) (let ((sc17 e-18)) (case (vector-ref sc17 0) ((12) (let ((e-19 (vector-ref sc17 1))) (let ((sc18 e-8)) (if (null? sc18) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))))))))))))(else (let ((sc8 e-3)) (case (vector-ref sc8 0) ((1) (let ((sc9 arg-13)) (if (null? sc9) (vector 1 ) (let ((e-7 (car sc9))) (let ((e-8 (cdr sc9))) (let ((sc10 e-7)) (if (null? sc10) (vector 1 ) (let ((e-12 (cdr sc10))) (let ((sc11 e-12)) (if (null? sc11) (vector 1 ) (let ((e-16 (cdr sc11))) (let ((sc12 e-16)) (case (vector-ref sc12 0) ((28) (let ((e-17 (vector-ref sc12 1))) (let ((e-18 (vector-ref sc12 2))) (let ((sc13 e-18)) (case (vector-ref sc13 0) ((12) (let ((e-19 (vector-ref sc13 1))) (let ((sc14 e-8)) (if (null? sc14) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))) (let ((e-46 (cdr sc7))) (let ((sc8 e-46)) (if (null? sc8) (let ((sc9 e-2)) (case (vector-ref sc9 0) ((1) (let ((sc10 arg-13)) (if (null? sc10) (let ((sc11 e-3)) (case (vector-ref sc11 0) ((1) (let ((sc12 arg-13)) (if (null? sc12) (vector 1 ) (let ((e-7 (car sc12))) (let ((e-8 (cdr sc12))) (let ((sc13 e-7)) (if (null? sc13) (vector 1 ) (let ((e-12 (cdr sc13))) (let ((sc14 e-12)) (if (null? sc14) (vector 1 ) (let ((e-16 (cdr sc14))) (let ((sc15 e-16)) (case (vector-ref sc15 0) ((28) (let ((e-17 (vector-ref sc15 1))) (let ((e-18 (vector-ref sc15 2))) (let ((sc16 e-18)) (case (vector-ref sc16 0) ((12) (let ((e-19 (vector-ref sc16 1))) (let ((sc17 e-8)) (if (null? sc17) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-24 (car sc10))) (let ((e-25 (cdr sc10))) (let ((sc11 e-24)) (if (null? sc11) (let ((sc12 e-3)) (case (vector-ref sc12 0) ((1) (let ((sc13 arg-13)) (if (null? sc13) (vector 1 ) (let ((e-7 (car sc13))) (let ((e-8 (cdr sc13))) (let ((sc14 e-7)) (if (null? sc14) (vector 1 ) (let ((e-12 (cdr sc14))) (let ((sc15 e-12)) (if (null? sc15) (vector 1 ) (let ((e-16 (cdr sc15))) (let ((sc16 e-16)) (case (vector-ref sc16 0) ((28) (let ((e-17 (vector-ref sc16 1))) (let ((e-18 (vector-ref sc16 2))) (let ((sc17 e-18)) (case (vector-ref sc17 0) ((12) (let ((e-19 (vector-ref sc17 1))) (let ((sc18 e-8)) (if (null? sc18) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-29 (cdr sc11))) (let ((sc12 e-29)) (if (null? sc12) (let ((sc13 e-3)) (case (vector-ref sc13 0) ((1) (let ((sc14 arg-13)) (if (null? sc14) (vector 1 ) (let ((e-7 (car sc14))) (let ((e-8 (cdr sc14))) (let ((sc15 e-7)) (if (null? sc15) (vector 1 ) (let ((e-12 (cdr sc15))) (let ((sc16 e-12)) (if (null? sc16) (vector 1 ) (let ((e-16 (cdr sc16))) (let ((sc17 e-16)) (case (vector-ref sc17 0) ((28) (let ((e-17 (vector-ref sc17 1))) (let ((e-18 (vector-ref sc17 2))) (let ((sc18 e-18)) (case (vector-ref sc18 0) ((12) (let ((e-19 (vector-ref sc18 1))) (let ((sc19 e-8)) (if (null? sc19) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-33 (cdr sc12))) (let ((sc13 e-33)) (case (vector-ref sc13 0) ((28) (let ((e-34 (vector-ref sc13 1))) (let ((e-35 (vector-ref sc13 2))) (let ((sc14 e-35)) (case (vector-ref sc14 0) ((11) (let ((e-36 (vector-ref sc14 1))) (let ((sc15 e-25)) (if (null? sc15) (vector 2 (vector 28 e-34 (vector 11 e-36))) (let ((sc16 e-3)) (case (vector-ref sc16 0) ((1) (let ((sc17 arg-13)) (if (null? sc17) (vector 1 ) (let ((e-7 (car sc17))) (let ((e-8 (cdr sc17))) (let ((sc18 e-7)) (if (null? sc18) (vector 1 ) (let ((e-12 (cdr sc18))) (let ((sc19 e-12)) (if (null? sc19) (vector 1 ) (let ((e-16 (cdr sc19))) (let ((sc20 e-16)) (case (vector-ref sc20 0) ((28) (let ((e-17 (vector-ref sc20 1))) (let ((e-18 (vector-ref sc20 2))) (let ((sc21 e-18)) (case (vector-ref sc21 0) ((12) (let ((e-19 (vector-ref sc21 1))) (let ((sc22 e-8)) (if (null? sc22) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))(else (let ((sc14 e-3)) (case (vector-ref sc14 0) ((1) (let ((sc15 arg-13)) (if (null? sc15) (vector 1 ) (let ((e-7 (car sc15))) (let ((e-8 (cdr sc15))) (let ((sc16 e-7)) (if (null? sc16) (vector 1 ) (let ((e-12 (cdr sc16))) (let ((sc17 e-12)) (if (null? sc17) (vector 1 ) (let ((e-16 (cdr sc17))) (let ((sc18 e-16)) (case (vector-ref sc18 0) ((28) (let ((e-17 (vector-ref sc18 1))) (let ((e-18 (vector-ref sc18 2))) (let ((sc19 e-18)) (case (vector-ref sc19 0) ((12) (let ((e-19 (vector-ref sc19 1))) (let ((sc20 e-8)) (if (null? sc20) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))))(else (let ((sc13 e-3)) (case (vector-ref sc13 0) ((1) (let ((sc14 arg-13)) (if (null? sc14) (vector 1 ) (let ((e-7 (car sc14))) (let ((e-8 (cdr sc14))) (let ((sc15 e-7)) (if (null? sc15) (vector 1 ) (let ((e-12 (cdr sc15))) (let ((sc16 e-12)) (if (null? sc16) (vector 1 ) (let ((e-16 (cdr sc16))) (let ((sc17 e-16)) (case (vector-ref sc17 0) ((28) (let ((e-17 (vector-ref sc17 1))) (let ((e-18 (vector-ref sc17 2))) (let ((sc18 e-18)) (case (vector-ref sc18 0) ((12) (let ((e-19 (vector-ref sc18 1))) (let ((sc19 e-8)) (if (null? sc19) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))))))))))))(else (let ((sc9 e-3)) (case (vector-ref sc9 0) ((1) (let ((sc10 arg-13)) (if (null? sc10) (vector 1 ) (let ((e-7 (car sc10))) (let ((e-8 (cdr sc10))) (let ((sc11 e-7)) (if (null? sc11) (vector 1 ) (let ((e-12 (cdr sc11))) (let ((sc12 e-12)) (if (null? sc12) (vector 1 ) (let ((e-16 (cdr sc12))) (let ((sc13 e-16)) (case (vector-ref sc13 0) ((28) (let ((e-17 (vector-ref sc13 1))) (let ((e-18 (vector-ref sc13 2))) (let ((sc14 e-18)) (case (vector-ref sc14 0) ((12) (let ((e-19 (vector-ref sc14 1))) (let ((sc15 e-8)) (if (null? sc15) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))) (let ((e-50 (cdr sc8))) (let ((sc9 e-50)) (case (vector-ref sc9 0) ((28) (let ((e-51 (vector-ref sc9 1))) (let ((e-52 (vector-ref sc9 2))) (let ((sc10 e-52)) (case (vector-ref sc10 0) ((10) (let ((e-53 (vector-ref sc10 1))) (let ((sc11 e-42)) (if (null? sc11) (vector 2 (vector 28 e-51 (vector 10 e-53))) (let ((sc12 e-2)) (case (vector-ref sc12 0) ((1) (let ((sc13 arg-13)) (if (null? sc13) (let ((sc14 e-3)) (case (vector-ref sc14 0) ((1) (let ((sc15 arg-13)) (if (null? sc15) (vector 1 ) (let ((e-7 (car sc15))) (let ((e-8 (cdr sc15))) (let ((sc16 e-7)) (if (null? sc16) (vector 1 ) (let ((e-12 (cdr sc16))) (let ((sc17 e-12)) (if (null? sc17) (vector 1 ) (let ((e-16 (cdr sc17))) (let ((sc18 e-16)) (case (vector-ref sc18 0) ((28) (let ((e-17 (vector-ref sc18 1))) (let ((e-18 (vector-ref sc18 2))) (let ((sc19 e-18)) (case (vector-ref sc19 0) ((12) (let ((e-19 (vector-ref sc19 1))) (let ((sc20 e-8)) (if (null? sc20) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-24 (car sc13))) (let ((e-25 (cdr sc13))) (let ((sc14 e-24)) (if (null? sc14) (let ((sc15 e-3)) (case (vector-ref sc15 0) ((1) (let ((sc16 arg-13)) (if (null? sc16) (vector 1 ) (let ((e-7 (car sc16))) (let ((e-8 (cdr sc16))) (let ((sc17 e-7)) (if (null? sc17) (vector 1 ) (let ((e-12 (cdr sc17))) (let ((sc18 e-12)) (if (null? sc18) (vector 1 ) (let ((e-16 (cdr sc18))) (let ((sc19 e-16)) (case (vector-ref sc19 0) ((28) (let ((e-17 (vector-ref sc19 1))) (let ((e-18 (vector-ref sc19 2))) (let ((sc20 e-18)) (case (vector-ref sc20 0) ((12) (let ((e-19 (vector-ref sc20 1))) (let ((sc21 e-8)) (if (null? sc21) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-29 (cdr sc14))) (let ((sc15 e-29)) (if (null? sc15) (let ((sc16 e-3)) (case (vector-ref sc16 0) ((1) (let ((sc17 arg-13)) (if (null? sc17) (vector 1 ) (let ((e-7 (car sc17))) (let ((e-8 (cdr sc17))) (let ((sc18 e-7)) (if (null? sc18) (vector 1 ) (let ((e-12 (cdr sc18))) (let ((sc19 e-12)) (if (null? sc19) (vector 1 ) (let ((e-16 (cdr sc19))) (let ((sc20 e-16)) (case (vector-ref sc20 0) ((28) (let ((e-17 (vector-ref sc20 1))) (let ((e-18 (vector-ref sc20 2))) (let ((sc21 e-18)) (case (vector-ref sc21 0) ((12) (let ((e-19 (vector-ref sc21 1))) (let ((sc22 e-8)) (if (null? sc22) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-33 (cdr sc15))) (let ((sc16 e-33)) (case (vector-ref sc16 0) ((28) (let ((e-34 (vector-ref sc16 1))) (let ((e-35 (vector-ref sc16 2))) (let ((sc17 e-35)) (case (vector-ref sc17 0) ((11) (let ((e-36 (vector-ref sc17 1))) (let ((sc18 e-25)) (if (null? sc18) (vector 2 (vector 28 e-34 (vector 11 e-36))) (let ((sc19 e-3)) (case (vector-ref sc19 0) ((1) (let ((sc20 arg-13)) (if (null? sc20) (vector 1 ) (let ((e-7 (car sc20))) (let ((e-8 (cdr sc20))) (let ((sc21 e-7)) (if (null? sc21) (vector 1 ) (let ((e-12 (cdr sc21))) (let ((sc22 e-12)) (if (null? sc22) (vector 1 ) (let ((e-16 (cdr sc22))) (let ((sc23 e-16)) (case (vector-ref sc23 0) ((28) (let ((e-17 (vector-ref sc23 1))) (let ((e-18 (vector-ref sc23 2))) (let ((sc24 e-18)) (case (vector-ref sc24 0) ((12) (let ((e-19 (vector-ref sc24 1))) (let ((sc25 e-8)) (if (null? sc25) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))(else (let ((sc17 e-3)) (case (vector-ref sc17 0) ((1) (let ((sc18 arg-13)) (if (null? sc18) (vector 1 ) (let ((e-7 (car sc18))) (let ((e-8 (cdr sc18))) (let ((sc19 e-7)) (if (null? sc19) (vector 1 ) (let ((e-12 (cdr sc19))) (let ((sc20 e-12)) (if (null? sc20) (vector 1 ) (let ((e-16 (cdr sc20))) (let ((sc21 e-16)) (case (vector-ref sc21 0) ((28) (let ((e-17 (vector-ref sc21 1))) (let ((e-18 (vector-ref sc21 2))) (let ((sc22 e-18)) (case (vector-ref sc22 0) ((12) (let ((e-19 (vector-ref sc22 1))) (let ((sc23 e-8)) (if (null? sc23) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))))(else (let ((sc16 e-3)) (case (vector-ref sc16 0) ((1) (let ((sc17 arg-13)) (if (null? sc17) (vector 1 ) (let ((e-7 (car sc17))) (let ((e-8 (cdr sc17))) (let ((sc18 e-7)) (if (null? sc18) (vector 1 ) (let ((e-12 (cdr sc18))) (let ((sc19 e-12)) (if (null? sc19) (vector 1 ) (let ((e-16 (cdr sc19))) (let ((sc20 e-16)) (case (vector-ref sc20 0) ((28) (let ((e-17 (vector-ref sc20 1))) (let ((e-18 (vector-ref sc20 2))) (let ((sc21 e-18)) (case (vector-ref sc21 0) ((12) (let ((e-19 (vector-ref sc21 1))) (let ((sc22 e-8)) (if (null? sc22) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))))))))))))(else (let ((sc12 e-3)) (case (vector-ref sc12 0) ((1) (let ((sc13 arg-13)) (if (null? sc13) (vector 1 ) (let ((e-7 (car sc13))) (let ((e-8 (cdr sc13))) (let ((sc14 e-7)) (if (null? sc14) (vector 1 ) (let ((e-12 (cdr sc14))) (let ((sc15 e-12)) (if (null? sc15) (vector 1 ) (let ((e-16 (cdr sc15))) (let ((sc16 e-16)) (case (vector-ref sc16 0) ((28) (let ((e-17 (vector-ref sc16 1))) (let ((e-18 (vector-ref sc16 2))) (let ((sc17 e-18)) (case (vector-ref sc17 0) ((12) (let ((e-19 (vector-ref sc17 1))) (let ((sc18 e-8)) (if (null? sc18) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))))))))))(else (let ((sc10 e-2)) (case (vector-ref sc10 0) ((1) (let ((sc11 arg-13)) (if (null? sc11) (let ((sc12 e-3)) (case (vector-ref sc12 0) ((1) (let ((sc13 arg-13)) (if (null? sc13) (vector 1 ) (let ((e-7 (car sc13))) (let ((e-8 (cdr sc13))) (let ((sc14 e-7)) (if (null? sc14) (vector 1 ) (let ((e-12 (cdr sc14))) (let ((sc15 e-12)) (if (null? sc15) (vector 1 ) (let ((e-16 (cdr sc15))) (let ((sc16 e-16)) (case (vector-ref sc16 0) ((28) (let ((e-17 (vector-ref sc16 1))) (let ((e-18 (vector-ref sc16 2))) (let ((sc17 e-18)) (case (vector-ref sc17 0) ((12) (let ((e-19 (vector-ref sc17 1))) (let ((sc18 e-8)) (if (null? sc18) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-24 (car sc11))) (let ((e-25 (cdr sc11))) (let ((sc12 e-24)) (if (null? sc12) (let ((sc13 e-3)) (case (vector-ref sc13 0) ((1) (let ((sc14 arg-13)) (if (null? sc14) (vector 1 ) (let ((e-7 (car sc14))) (let ((e-8 (cdr sc14))) (let ((sc15 e-7)) (if (null? sc15) (vector 1 ) (let ((e-12 (cdr sc15))) (let ((sc16 e-12)) (if (null? sc16) (vector 1 ) (let ((e-16 (cdr sc16))) (let ((sc17 e-16)) (case (vector-ref sc17 0) ((28) (let ((e-17 (vector-ref sc17 1))) (let ((e-18 (vector-ref sc17 2))) (let ((sc18 e-18)) (case (vector-ref sc18 0) ((12) (let ((e-19 (vector-ref sc18 1))) (let ((sc19 e-8)) (if (null? sc19) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-29 (cdr sc12))) (let ((sc13 e-29)) (if (null? sc13) (let ((sc14 e-3)) (case (vector-ref sc14 0) ((1) (let ((sc15 arg-13)) (if (null? sc15) (vector 1 ) (let ((e-7 (car sc15))) (let ((e-8 (cdr sc15))) (let ((sc16 e-7)) (if (null? sc16) (vector 1 ) (let ((e-12 (cdr sc16))) (let ((sc17 e-12)) (if (null? sc17) (vector 1 ) (let ((e-16 (cdr sc17))) (let ((sc18 e-16)) (case (vector-ref sc18 0) ((28) (let ((e-17 (vector-ref sc18 1))) (let ((e-18 (vector-ref sc18 2))) (let ((sc19 e-18)) (case (vector-ref sc19 0) ((12) (let ((e-19 (vector-ref sc19 1))) (let ((sc20 e-8)) (if (null? sc20) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-33 (cdr sc13))) (let ((sc14 e-33)) (case (vector-ref sc14 0) ((28) (let ((e-34 (vector-ref sc14 1))) (let ((e-35 (vector-ref sc14 2))) (let ((sc15 e-35)) (case (vector-ref sc15 0) ((11) (let ((e-36 (vector-ref sc15 1))) (let ((sc16 e-25)) (if (null? sc16) (vector 2 (vector 28 e-34 (vector 11 e-36))) (let ((sc17 e-3)) (case (vector-ref sc17 0) ((1) (let ((sc18 arg-13)) (if (null? sc18) (vector 1 ) (let ((e-7 (car sc18))) (let ((e-8 (cdr sc18))) (let ((sc19 e-7)) (if (null? sc19) (vector 1 ) (let ((e-12 (cdr sc19))) (let ((sc20 e-12)) (if (null? sc20) (vector 1 ) (let ((e-16 (cdr sc20))) (let ((sc21 e-16)) (case (vector-ref sc21 0) ((28) (let ((e-17 (vector-ref sc21 1))) (let ((e-18 (vector-ref sc21 2))) (let ((sc22 e-18)) (case (vector-ref sc22 0) ((12) (let ((e-19 (vector-ref sc22 1))) (let ((sc23 e-8)) (if (null? sc23) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))(else (let ((sc15 e-3)) (case (vector-ref sc15 0) ((1) (let ((sc16 arg-13)) (if (null? sc16) (vector 1 ) (let ((e-7 (car sc16))) (let ((e-8 (cdr sc16))) (let ((sc17 e-7)) (if (null? sc17) (vector 1 ) (let ((e-12 (cdr sc17))) (let ((sc18 e-12)) (if (null? sc18) (vector 1 ) (let ((e-16 (cdr sc18))) (let ((sc19 e-16)) (case (vector-ref sc19 0) ((28) (let ((e-17 (vector-ref sc19 1))) (let ((e-18 (vector-ref sc19 2))) (let ((sc20 e-18)) (case (vector-ref sc20 0) ((12) (let ((e-19 (vector-ref sc20 1))) (let ((sc21 e-8)) (if (null? sc21) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))))(else (let ((sc14 e-3)) (case (vector-ref sc14 0) ((1) (let ((sc15 arg-13)) (if (null? sc15) (vector 1 ) (let ((e-7 (car sc15))) (let ((e-8 (cdr sc15))) (let ((sc16 e-7)) (if (null? sc16) (vector 1 ) (let ((e-12 (cdr sc16))) (let ((sc17 e-12)) (if (null? sc17) (vector 1 ) (let ((e-16 (cdr sc17))) (let ((sc18 e-16)) (case (vector-ref sc18 0) ((28) (let ((e-17 (vector-ref sc18 1))) (let ((e-18 (vector-ref sc18 2))) (let ((sc19 e-18)) (case (vector-ref sc19 0) ((12) (let ((e-19 (vector-ref sc19 1))) (let ((sc20 e-8)) (if (null? sc20) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))))))))))))(else (let ((sc10 e-3)) (case (vector-ref sc10 0) ((1) (let ((sc11 arg-13)) (if (null? sc11) (vector 1 ) (let ((e-7 (car sc11))) (let ((e-8 (cdr sc11))) (let ((sc12 e-7)) (if (null? sc12) (vector 1 ) (let ((e-12 (cdr sc12))) (let ((sc13 e-12)) (if (null? sc13) (vector 1 ) (let ((e-16 (cdr sc13))) (let ((sc14 e-16)) (case (vector-ref sc14 0) ((28) (let ((e-17 (vector-ref sc14 1))) (let ((e-18 (vector-ref sc14 2))) (let ((sc15 e-18)) (case (vector-ref sc15 0) ((12) (let ((e-19 (vector-ref sc15 1))) (let ((sc16 e-8)) (if (null? sc16) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))))))))))))(else (let ((sc9 e-2)) (case (vector-ref sc9 0) ((1) (let ((sc10 arg-13)) (if (null? sc10) (let ((sc11 e-3)) (case (vector-ref sc11 0) ((1) (let ((sc12 arg-13)) (if (null? sc12) (vector 1 ) (let ((e-7 (car sc12))) (let ((e-8 (cdr sc12))) (let ((sc13 e-7)) (if (null? sc13) (vector 1 ) (let ((e-12 (cdr sc13))) (let ((sc14 e-12)) (if (null? sc14) (vector 1 ) (let ((e-16 (cdr sc14))) (let ((sc15 e-16)) (case (vector-ref sc15 0) ((28) (let ((e-17 (vector-ref sc15 1))) (let ((e-18 (vector-ref sc15 2))) (let ((sc16 e-18)) (case (vector-ref sc16 0) ((12) (let ((e-19 (vector-ref sc16 1))) (let ((sc17 e-8)) (if (null? sc17) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-24 (car sc10))) (let ((e-25 (cdr sc10))) (let ((sc11 e-24)) (if (null? sc11) (let ((sc12 e-3)) (case (vector-ref sc12 0) ((1) (let ((sc13 arg-13)) (if (null? sc13) (vector 1 ) (let ((e-7 (car sc13))) (let ((e-8 (cdr sc13))) (let ((sc14 e-7)) (if (null? sc14) (vector 1 ) (let ((e-12 (cdr sc14))) (let ((sc15 e-12)) (if (null? sc15) (vector 1 ) (let ((e-16 (cdr sc15))) (let ((sc16 e-16)) (case (vector-ref sc16 0) ((28) (let ((e-17 (vector-ref sc16 1))) (let ((e-18 (vector-ref sc16 2))) (let ((sc17 e-18)) (case (vector-ref sc17 0) ((12) (let ((e-19 (vector-ref sc17 1))) (let ((sc18 e-8)) (if (null? sc18) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-29 (cdr sc11))) (let ((sc12 e-29)) (if (null? sc12) (let ((sc13 e-3)) (case (vector-ref sc13 0) ((1) (let ((sc14 arg-13)) (if (null? sc14) (vector 1 ) (let ((e-7 (car sc14))) (let ((e-8 (cdr sc14))) (let ((sc15 e-7)) (if (null? sc15) (vector 1 ) (let ((e-12 (cdr sc15))) (let ((sc16 e-12)) (if (null? sc16) (vector 1 ) (let ((e-16 (cdr sc16))) (let ((sc17 e-16)) (case (vector-ref sc17 0) ((28) (let ((e-17 (vector-ref sc17 1))) (let ((e-18 (vector-ref sc17 2))) (let ((sc18 e-18)) (case (vector-ref sc18 0) ((12) (let ((e-19 (vector-ref sc18 1))) (let ((sc19 e-8)) (if (null? sc19) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-33 (cdr sc12))) (let ((sc13 e-33)) (case (vector-ref sc13 0) ((28) (let ((e-34 (vector-ref sc13 1))) (let ((e-35 (vector-ref sc13 2))) (let ((sc14 e-35)) (case (vector-ref sc14 0) ((11) (let ((e-36 (vector-ref sc14 1))) (let ((sc15 e-25)) (if (null? sc15) (vector 2 (vector 28 e-34 (vector 11 e-36))) (let ((sc16 e-3)) (case (vector-ref sc16 0) ((1) (let ((sc17 arg-13)) (if (null? sc17) (vector 1 ) (let ((e-7 (car sc17))) (let ((e-8 (cdr sc17))) (let ((sc18 e-7)) (if (null? sc18) (vector 1 ) (let ((e-12 (cdr sc18))) (let ((sc19 e-12)) (if (null? sc19) (vector 1 ) (let ((e-16 (cdr sc19))) (let ((sc20 e-16)) (case (vector-ref sc20 0) ((28) (let ((e-17 (vector-ref sc20 1))) (let ((e-18 (vector-ref sc20 2))) (let ((sc21 e-18)) (case (vector-ref sc21 0) ((12) (let ((e-19 (vector-ref sc21 1))) (let ((sc22 e-8)) (if (null? sc22) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))(else (let ((sc14 e-3)) (case (vector-ref sc14 0) ((1) (let ((sc15 arg-13)) (if (null? sc15) (vector 1 ) (let ((e-7 (car sc15))) (let ((e-8 (cdr sc15))) (let ((sc16 e-7)) (if (null? sc16) (vector 1 ) (let ((e-12 (cdr sc16))) (let ((sc17 e-12)) (if (null? sc17) (vector 1 ) (let ((e-16 (cdr sc17))) (let ((sc18 e-16)) (case (vector-ref sc18 0) ((28) (let ((e-17 (vector-ref sc18 1))) (let ((e-18 (vector-ref sc18 2))) (let ((sc19 e-18)) (case (vector-ref sc19 0) ((12) (let ((e-19 (vector-ref sc19 1))) (let ((sc20 e-8)) (if (null? sc20) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))))(else (let ((sc13 e-3)) (case (vector-ref sc13 0) ((1) (let ((sc14 arg-13)) (if (null? sc14) (vector 1 ) (let ((e-7 (car sc14))) (let ((e-8 (cdr sc14))) (let ((sc15 e-7)) (if (null? sc15) (vector 1 ) (let ((e-12 (cdr sc15))) (let ((sc16 e-12)) (if (null? sc16) (vector 1 ) (let ((e-16 (cdr sc16))) (let ((sc17 e-16)) (case (vector-ref sc17 0) ((28) (let ((e-17 (vector-ref sc17 1))) (let ((e-18 (vector-ref sc17 2))) (let ((sc18 e-18)) (case (vector-ref sc18 0) ((12) (let ((e-19 (vector-ref sc18 1))) (let ((sc19 e-8)) (if (null? sc19) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))))))))))))(else (let ((sc9 e-3)) (case (vector-ref sc9 0) ((1) (let ((sc10 arg-13)) (if (null? sc10) (vector 1 ) (let ((e-7 (car sc10))) (let ((e-8 (cdr sc10))) (let ((sc11 e-7)) (if (null? sc11) (vector 1 ) (let ((e-12 (cdr sc11))) (let ((sc12 e-12)) (if (null? sc12) (vector 1 ) (let ((e-16 (cdr sc12))) (let ((sc13 e-16)) (case (vector-ref sc13 0) ((28) (let ((e-17 (vector-ref sc13 1))) (let ((e-18 (vector-ref sc13 2))) (let ((sc14 e-18)) (case (vector-ref sc14 0) ((12) (let ((e-19 (vector-ref sc14 1))) (let ((sc15 e-8)) (if (null? sc15) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))))))))))))))))))))(else (let ((sc5 e-2)) (case (vector-ref sc5 0) ((1) (let ((sc6 arg-13)) (if (null? sc6) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((1) (let ((sc8 arg-13)) (if (null? sc8) (vector 1 ) (let ((e-7 (car sc8))) (let ((e-8 (cdr sc8))) (let ((sc9 e-7)) (if (null? sc9) (vector 1 ) (let ((e-12 (cdr sc9))) (let ((sc10 e-12)) (if (null? sc10) (vector 1 ) (let ((e-16 (cdr sc10))) (let ((sc11 e-16)) (case (vector-ref sc11 0) ((28) (let ((e-17 (vector-ref sc11 1))) (let ((e-18 (vector-ref sc11 2))) (let ((sc12 e-18)) (case (vector-ref sc12 0) ((12) (let ((e-19 (vector-ref sc12 1))) (let ((sc13 e-8)) (if (null? sc13) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-24 (car sc6))) (let ((e-25 (cdr sc6))) (let ((sc7 e-24)) (if (null? sc7) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((1) (let ((sc9 arg-13)) (if (null? sc9) (vector 1 ) (let ((e-7 (car sc9))) (let ((e-8 (cdr sc9))) (let ((sc10 e-7)) (if (null? sc10) (vector 1 ) (let ((e-12 (cdr sc10))) (let ((sc11 e-12)) (if (null? sc11) (vector 1 ) (let ((e-16 (cdr sc11))) (let ((sc12 e-16)) (case (vector-ref sc12 0) ((28) (let ((e-17 (vector-ref sc12 1))) (let ((e-18 (vector-ref sc12 2))) (let ((sc13 e-18)) (case (vector-ref sc13 0) ((12) (let ((e-19 (vector-ref sc13 1))) (let ((sc14 e-8)) (if (null? sc14) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-29 (cdr sc7))) (let ((sc8 e-29)) (if (null? sc8) (let ((sc9 e-3)) (case (vector-ref sc9 0) ((1) (let ((sc10 arg-13)) (if (null? sc10) (vector 1 ) (let ((e-7 (car sc10))) (let ((e-8 (cdr sc10))) (let ((sc11 e-7)) (if (null? sc11) (vector 1 ) (let ((e-12 (cdr sc11))) (let ((sc12 e-12)) (if (null? sc12) (vector 1 ) (let ((e-16 (cdr sc12))) (let ((sc13 e-16)) (case (vector-ref sc13 0) ((28) (let ((e-17 (vector-ref sc13 1))) (let ((e-18 (vector-ref sc13 2))) (let ((sc14 e-18)) (case (vector-ref sc14 0) ((12) (let ((e-19 (vector-ref sc14 1))) (let ((sc15 e-8)) (if (null? sc15) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-33 (cdr sc8))) (let ((sc9 e-33)) (case (vector-ref sc9 0) ((28) (let ((e-34 (vector-ref sc9 1))) (let ((e-35 (vector-ref sc9 2))) (let ((sc10 e-35)) (case (vector-ref sc10 0) ((11) (let ((e-36 (vector-ref sc10 1))) (let ((sc11 e-25)) (if (null? sc11) (vector 2 (vector 28 e-34 (vector 11 e-36))) (let ((sc12 e-3)) (case (vector-ref sc12 0) ((1) (let ((sc13 arg-13)) (if (null? sc13) (vector 1 ) (let ((e-7 (car sc13))) (let ((e-8 (cdr sc13))) (let ((sc14 e-7)) (if (null? sc14) (vector 1 ) (let ((e-12 (cdr sc14))) (let ((sc15 e-12)) (if (null? sc15) (vector 1 ) (let ((e-16 (cdr sc15))) (let ((sc16 e-16)) (case (vector-ref sc16 0) ((28) (let ((e-17 (vector-ref sc16 1))) (let ((e-18 (vector-ref sc16 2))) (let ((sc17 e-18)) (case (vector-ref sc17 0) ((12) (let ((e-19 (vector-ref sc17 1))) (let ((sc18 e-8)) (if (null? sc18) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))(else (let ((sc10 e-3)) (case (vector-ref sc10 0) ((1) (let ((sc11 arg-13)) (if (null? sc11) (vector 1 ) (let ((e-7 (car sc11))) (let ((e-8 (cdr sc11))) (let ((sc12 e-7)) (if (null? sc12) (vector 1 ) (let ((e-12 (cdr sc12))) (let ((sc13 e-12)) (if (null? sc13) (vector 1 ) (let ((e-16 (cdr sc13))) (let ((sc14 e-16)) (case (vector-ref sc14 0) ((28) (let ((e-17 (vector-ref sc14 1))) (let ((e-18 (vector-ref sc14 2))) (let ((sc15 e-18)) (case (vector-ref sc15 0) ((12) (let ((e-19 (vector-ref sc15 1))) (let ((sc16 e-8)) (if (null? sc16) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))))(else (let ((sc9 e-3)) (case (vector-ref sc9 0) ((1) (let ((sc10 arg-13)) (if (null? sc10) (vector 1 ) (let ((e-7 (car sc10))) (let ((e-8 (cdr sc10))) (let ((sc11 e-7)) (if (null? sc11) (vector 1 ) (let ((e-12 (cdr sc11))) (let ((sc12 e-12)) (if (null? sc12) (vector 1 ) (let ((e-16 (cdr sc12))) (let ((sc13 e-16)) (case (vector-ref sc13 0) ((28) (let ((e-17 (vector-ref sc13 1))) (let ((e-18 (vector-ref sc13 2))) (let ((sc14 e-18)) (case (vector-ref sc14 0) ((12) (let ((e-19 (vector-ref sc14 1))) (let ((sc15 e-8)) (if (null? sc15) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))))))))))))(else (let ((sc5 e-3)) (case (vector-ref sc5 0) ((1) (let ((sc6 arg-13)) (if (null? sc6) (vector 1 ) (let ((e-7 (car sc6))) (let ((e-8 (cdr sc6))) (let ((sc7 e-7)) (if (null? sc7) (vector 1 ) (let ((e-12 (cdr sc7))) (let ((sc8 e-12)) (if (null? sc8) (vector 1 ) (let ((e-16 (cdr sc8))) (let ((sc9 e-16)) (case (vector-ref sc9 0) ((28) (let ((e-17 (vector-ref sc9 1))) (let ((e-18 (vector-ref sc9 2))) (let ((sc10 e-18)) (case (vector-ref sc10 0) ((12) (let ((e-19 (vector-ref sc10 1))) (let ((sc11 e-8)) (if (null? sc11) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))))))))) (let ((e-67 (cdr sc4))) (let ((sc5 e-67)) (case (vector-ref sc5 0) ((28) (let ((e-68 (vector-ref sc5 1))) (let ((e-69 (vector-ref sc5 2))) (let ((sc6 e-69)) (case (vector-ref sc6 0) ((5) (let ((e-70 (vector-ref sc6 1))) (let ((sc7 e-59)) (if (null? sc7) (vector 2 (vector 28 e-68 (vector 5 e-70))) (let ((sc8 e-1)) (case (vector-ref sc8 0) ((1) (let ((sc9 arg-13)) (if (null? sc9) (let ((sc10 e-2)) (case (vector-ref sc10 0) ((1) (let ((sc11 arg-13)) (if (null? sc11) (let ((sc12 e-3)) (case (vector-ref sc12 0) ((1) (let ((sc13 arg-13)) (if (null? sc13) (vector 1 ) (let ((e-7 (car sc13))) (let ((e-8 (cdr sc13))) (let ((sc14 e-7)) (if (null? sc14) (vector 1 ) (let ((e-12 (cdr sc14))) (let ((sc15 e-12)) (if (null? sc15) (vector 1 ) (let ((e-16 (cdr sc15))) (let ((sc16 e-16)) (case (vector-ref sc16 0) ((28) (let ((e-17 (vector-ref sc16 1))) (let ((e-18 (vector-ref sc16 2))) (let ((sc17 e-18)) (case (vector-ref sc17 0) ((12) (let ((e-19 (vector-ref sc17 1))) (let ((sc18 e-8)) (if (null? sc18) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-24 (car sc11))) (let ((e-25 (cdr sc11))) (let ((sc12 e-24)) (if (null? sc12) (let ((sc13 e-3)) (case (vector-ref sc13 0) ((1) (let ((sc14 arg-13)) (if (null? sc14) (vector 1 ) (let ((e-7 (car sc14))) (let ((e-8 (cdr sc14))) (let ((sc15 e-7)) (if (null? sc15) (vector 1 ) (let ((e-12 (cdr sc15))) (let ((sc16 e-12)) (if (null? sc16) (vector 1 ) (let ((e-16 (cdr sc16))) (let ((sc17 e-16)) (case (vector-ref sc17 0) ((28) (let ((e-17 (vector-ref sc17 1))) (let ((e-18 (vector-ref sc17 2))) (let ((sc18 e-18)) (case (vector-ref sc18 0) ((12) (let ((e-19 (vector-ref sc18 1))) (let ((sc19 e-8)) (if (null? sc19) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-29 (cdr sc12))) (let ((sc13 e-29)) (if (null? sc13) (let ((sc14 e-3)) (case (vector-ref sc14 0) ((1) (let ((sc15 arg-13)) (if (null? sc15) (vector 1 ) (let ((e-7 (car sc15))) (let ((e-8 (cdr sc15))) (let ((sc16 e-7)) (if (null? sc16) (vector 1 ) (let ((e-12 (cdr sc16))) (let ((sc17 e-12)) (if (null? sc17) (vector 1 ) (let ((e-16 (cdr sc17))) (let ((sc18 e-16)) (case (vector-ref sc18 0) ((28) (let ((e-17 (vector-ref sc18 1))) (let ((e-18 (vector-ref sc18 2))) (let ((sc19 e-18)) (case (vector-ref sc19 0) ((12) (let ((e-19 (vector-ref sc19 1))) (let ((sc20 e-8)) (if (null? sc20) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-33 (cdr sc13))) (let ((sc14 e-33)) (case (vector-ref sc14 0) ((28) (let ((e-34 (vector-ref sc14 1))) (let ((e-35 (vector-ref sc14 2))) (let ((sc15 e-35)) (case (vector-ref sc15 0) ((11) (let ((e-36 (vector-ref sc15 1))) (let ((sc16 e-25)) (if (null? sc16) (vector 2 (vector 28 e-34 (vector 11 e-36))) (let ((sc17 e-3)) (case (vector-ref sc17 0) ((1) (let ((sc18 arg-13)) (if (null? sc18) (vector 1 ) (let ((e-7 (car sc18))) (let ((e-8 (cdr sc18))) (let ((sc19 e-7)) (if (null? sc19) (vector 1 ) (let ((e-12 (cdr sc19))) (let ((sc20 e-12)) (if (null? sc20) (vector 1 ) (let ((e-16 (cdr sc20))) (let ((sc21 e-16)) (case (vector-ref sc21 0) ((28) (let ((e-17 (vector-ref sc21 1))) (let ((e-18 (vector-ref sc21 2))) (let ((sc22 e-18)) (case (vector-ref sc22 0) ((12) (let ((e-19 (vector-ref sc22 1))) (let ((sc23 e-8)) (if (null? sc23) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))(else (let ((sc15 e-3)) (case (vector-ref sc15 0) ((1) (let ((sc16 arg-13)) (if (null? sc16) (vector 1 ) (let ((e-7 (car sc16))) (let ((e-8 (cdr sc16))) (let ((sc17 e-7)) (if (null? sc17) (vector 1 ) (let ((e-12 (cdr sc17))) (let ((sc18 e-12)) (if (null? sc18) (vector 1 ) (let ((e-16 (cdr sc18))) (let ((sc19 e-16)) (case (vector-ref sc19 0) ((28) (let ((e-17 (vector-ref sc19 1))) (let ((e-18 (vector-ref sc19 2))) (let ((sc20 e-18)) (case (vector-ref sc20 0) ((12) (let ((e-19 (vector-ref sc20 1))) (let ((sc21 e-8)) (if (null? sc21) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))))(else (let ((sc14 e-3)) (case (vector-ref sc14 0) ((1) (let ((sc15 arg-13)) (if (null? sc15) (vector 1 ) (let ((e-7 (car sc15))) (let ((e-8 (cdr sc15))) (let ((sc16 e-7)) (if (null? sc16) (vector 1 ) (let ((e-12 (cdr sc16))) (let ((sc17 e-12)) (if (null? sc17) (vector 1 ) (let ((e-16 (cdr sc17))) (let ((sc18 e-16)) (case (vector-ref sc18 0) ((28) (let ((e-17 (vector-ref sc18 1))) (let ((e-18 (vector-ref sc18 2))) (let ((sc19 e-18)) (case (vector-ref sc19 0) ((12) (let ((e-19 (vector-ref sc19 1))) (let ((sc20 e-8)) (if (null? sc20) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))))))))))))(else (let ((sc10 e-3)) (case (vector-ref sc10 0) ((1) (let ((sc11 arg-13)) (if (null? sc11) (vector 1 ) (let ((e-7 (car sc11))) (let ((e-8 (cdr sc11))) (let ((sc12 e-7)) (if (null? sc12) (vector 1 ) (let ((e-12 (cdr sc12))) (let ((sc13 e-12)) (if (null? sc13) (vector 1 ) (let ((e-16 (cdr sc13))) (let ((sc14 e-16)) (case (vector-ref sc14 0) ((28) (let ((e-17 (vector-ref sc14 1))) (let ((e-18 (vector-ref sc14 2))) (let ((sc15 e-18)) (case (vector-ref sc15 0) ((12) (let ((e-19 (vector-ref sc15 1))) (let ((sc16 e-8)) (if (null? sc16) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))) (let ((e-41 (car sc9))) (let ((e-42 (cdr sc9))) (let ((sc10 e-41)) (if (null? sc10) (let ((sc11 e-2)) (case (vector-ref sc11 0) ((1) (let ((sc12 arg-13)) (if (null? sc12) (let ((sc13 e-3)) (case (vector-ref sc13 0) ((1) (let ((sc14 arg-13)) (if (null? sc14) (vector 1 ) (let ((e-7 (car sc14))) (let ((e-8 (cdr sc14))) (let ((sc15 e-7)) (if (null? sc15) (vector 1 ) (let ((e-12 (cdr sc15))) (let ((sc16 e-12)) (if (null? sc16) (vector 1 ) (let ((e-16 (cdr sc16))) (let ((sc17 e-16)) (case (vector-ref sc17 0) ((28) (let ((e-17 (vector-ref sc17 1))) (let ((e-18 (vector-ref sc17 2))) (let ((sc18 e-18)) (case (vector-ref sc18 0) ((12) (let ((e-19 (vector-ref sc18 1))) (let ((sc19 e-8)) (if (null? sc19) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-24 (car sc12))) (let ((e-25 (cdr sc12))) (let ((sc13 e-24)) (if (null? sc13) (let ((sc14 e-3)) (case (vector-ref sc14 0) ((1) (let ((sc15 arg-13)) (if (null? sc15) (vector 1 ) (let ((e-7 (car sc15))) (let ((e-8 (cdr sc15))) (let ((sc16 e-7)) (if (null? sc16) (vector 1 ) (let ((e-12 (cdr sc16))) (let ((sc17 e-12)) (if (null? sc17) (vector 1 ) (let ((e-16 (cdr sc17))) (let ((sc18 e-16)) (case (vector-ref sc18 0) ((28) (let ((e-17 (vector-ref sc18 1))) (let ((e-18 (vector-ref sc18 2))) (let ((sc19 e-18)) (case (vector-ref sc19 0) ((12) (let ((e-19 (vector-ref sc19 1))) (let ((sc20 e-8)) (if (null? sc20) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-29 (cdr sc13))) (let ((sc14 e-29)) (if (null? sc14) (let ((sc15 e-3)) (case (vector-ref sc15 0) ((1) (let ((sc16 arg-13)) (if (null? sc16) (vector 1 ) (let ((e-7 (car sc16))) (let ((e-8 (cdr sc16))) (let ((sc17 e-7)) (if (null? sc17) (vector 1 ) (let ((e-12 (cdr sc17))) (let ((sc18 e-12)) (if (null? sc18) (vector 1 ) (let ((e-16 (cdr sc18))) (let ((sc19 e-16)) (case (vector-ref sc19 0) ((28) (let ((e-17 (vector-ref sc19 1))) (let ((e-18 (vector-ref sc19 2))) (let ((sc20 e-18)) (case (vector-ref sc20 0) ((12) (let ((e-19 (vector-ref sc20 1))) (let ((sc21 e-8)) (if (null? sc21) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-33 (cdr sc14))) (let ((sc15 e-33)) (case (vector-ref sc15 0) ((28) (let ((e-34 (vector-ref sc15 1))) (let ((e-35 (vector-ref sc15 2))) (let ((sc16 e-35)) (case (vector-ref sc16 0) ((11) (let ((e-36 (vector-ref sc16 1))) (let ((sc17 e-25)) (if (null? sc17) (vector 2 (vector 28 e-34 (vector 11 e-36))) (let ((sc18 e-3)) (case (vector-ref sc18 0) ((1) (let ((sc19 arg-13)) (if (null? sc19) (vector 1 ) (let ((e-7 (car sc19))) (let ((e-8 (cdr sc19))) (let ((sc20 e-7)) (if (null? sc20) (vector 1 ) (let ((e-12 (cdr sc20))) (let ((sc21 e-12)) (if (null? sc21) (vector 1 ) (let ((e-16 (cdr sc21))) (let ((sc22 e-16)) (case (vector-ref sc22 0) ((28) (let ((e-17 (vector-ref sc22 1))) (let ((e-18 (vector-ref sc22 2))) (let ((sc23 e-18)) (case (vector-ref sc23 0) ((12) (let ((e-19 (vector-ref sc23 1))) (let ((sc24 e-8)) (if (null? sc24) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))(else (let ((sc16 e-3)) (case (vector-ref sc16 0) ((1) (let ((sc17 arg-13)) (if (null? sc17) (vector 1 ) (let ((e-7 (car sc17))) (let ((e-8 (cdr sc17))) (let ((sc18 e-7)) (if (null? sc18) (vector 1 ) (let ((e-12 (cdr sc18))) (let ((sc19 e-12)) (if (null? sc19) (vector 1 ) (let ((e-16 (cdr sc19))) (let ((sc20 e-16)) (case (vector-ref sc20 0) ((28) (let ((e-17 (vector-ref sc20 1))) (let ((e-18 (vector-ref sc20 2))) (let ((sc21 e-18)) (case (vector-ref sc21 0) ((12) (let ((e-19 (vector-ref sc21 1))) (let ((sc22 e-8)) (if (null? sc22) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))))(else (let ((sc15 e-3)) (case (vector-ref sc15 0) ((1) (let ((sc16 arg-13)) (if (null? sc16) (vector 1 ) (let ((e-7 (car sc16))) (let ((e-8 (cdr sc16))) (let ((sc17 e-7)) (if (null? sc17) (vector 1 ) (let ((e-12 (cdr sc17))) (let ((sc18 e-12)) (if (null? sc18) (vector 1 ) (let ((e-16 (cdr sc18))) (let ((sc19 e-16)) (case (vector-ref sc19 0) ((28) (let ((e-17 (vector-ref sc19 1))) (let ((e-18 (vector-ref sc19 2))) (let ((sc20 e-18)) (case (vector-ref sc20 0) ((12) (let ((e-19 (vector-ref sc20 1))) (let ((sc21 e-8)) (if (null? sc21) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))))))))))))(else (let ((sc11 e-3)) (case (vector-ref sc11 0) ((1) (let ((sc12 arg-13)) (if (null? sc12) (vector 1 ) (let ((e-7 (car sc12))) (let ((e-8 (cdr sc12))) (let ((sc13 e-7)) (if (null? sc13) (vector 1 ) (let ((e-12 (cdr sc13))) (let ((sc14 e-12)) (if (null? sc14) (vector 1 ) (let ((e-16 (cdr sc14))) (let ((sc15 e-16)) (case (vector-ref sc15 0) ((28) (let ((e-17 (vector-ref sc15 1))) (let ((e-18 (vector-ref sc15 2))) (let ((sc16 e-18)) (case (vector-ref sc16 0) ((12) (let ((e-19 (vector-ref sc16 1))) (let ((sc17 e-8)) (if (null? sc17) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))) (let ((e-46 (cdr sc10))) (let ((sc11 e-46)) (if (null? sc11) (let ((sc12 e-2)) (case (vector-ref sc12 0) ((1) (let ((sc13 arg-13)) (if (null? sc13) (let ((sc14 e-3)) (case (vector-ref sc14 0) ((1) (let ((sc15 arg-13)) (if (null? sc15) (vector 1 ) (let ((e-7 (car sc15))) (let ((e-8 (cdr sc15))) (let ((sc16 e-7)) (if (null? sc16) (vector 1 ) (let ((e-12 (cdr sc16))) (let ((sc17 e-12)) (if (null? sc17) (vector 1 ) (let ((e-16 (cdr sc17))) (let ((sc18 e-16)) (case (vector-ref sc18 0) ((28) (let ((e-17 (vector-ref sc18 1))) (let ((e-18 (vector-ref sc18 2))) (let ((sc19 e-18)) (case (vector-ref sc19 0) ((12) (let ((e-19 (vector-ref sc19 1))) (let ((sc20 e-8)) (if (null? sc20) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-24 (car sc13))) (let ((e-25 (cdr sc13))) (let ((sc14 e-24)) (if (null? sc14) (let ((sc15 e-3)) (case (vector-ref sc15 0) ((1) (let ((sc16 arg-13)) (if (null? sc16) (vector 1 ) (let ((e-7 (car sc16))) (let ((e-8 (cdr sc16))) (let ((sc17 e-7)) (if (null? sc17) (vector 1 ) (let ((e-12 (cdr sc17))) (let ((sc18 e-12)) (if (null? sc18) (vector 1 ) (let ((e-16 (cdr sc18))) (let ((sc19 e-16)) (case (vector-ref sc19 0) ((28) (let ((e-17 (vector-ref sc19 1))) (let ((e-18 (vector-ref sc19 2))) (let ((sc20 e-18)) (case (vector-ref sc20 0) ((12) (let ((e-19 (vector-ref sc20 1))) (let ((sc21 e-8)) (if (null? sc21) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-29 (cdr sc14))) (let ((sc15 e-29)) (if (null? sc15) (let ((sc16 e-3)) (case (vector-ref sc16 0) ((1) (let ((sc17 arg-13)) (if (null? sc17) (vector 1 ) (let ((e-7 (car sc17))) (let ((e-8 (cdr sc17))) (let ((sc18 e-7)) (if (null? sc18) (vector 1 ) (let ((e-12 (cdr sc18))) (let ((sc19 e-12)) (if (null? sc19) (vector 1 ) (let ((e-16 (cdr sc19))) (let ((sc20 e-16)) (case (vector-ref sc20 0) ((28) (let ((e-17 (vector-ref sc20 1))) (let ((e-18 (vector-ref sc20 2))) (let ((sc21 e-18)) (case (vector-ref sc21 0) ((12) (let ((e-19 (vector-ref sc21 1))) (let ((sc22 e-8)) (if (null? sc22) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-33 (cdr sc15))) (let ((sc16 e-33)) (case (vector-ref sc16 0) ((28) (let ((e-34 (vector-ref sc16 1))) (let ((e-35 (vector-ref sc16 2))) (let ((sc17 e-35)) (case (vector-ref sc17 0) ((11) (let ((e-36 (vector-ref sc17 1))) (let ((sc18 e-25)) (if (null? sc18) (vector 2 (vector 28 e-34 (vector 11 e-36))) (let ((sc19 e-3)) (case (vector-ref sc19 0) ((1) (let ((sc20 arg-13)) (if (null? sc20) (vector 1 ) (let ((e-7 (car sc20))) (let ((e-8 (cdr sc20))) (let ((sc21 e-7)) (if (null? sc21) (vector 1 ) (let ((e-12 (cdr sc21))) (let ((sc22 e-12)) (if (null? sc22) (vector 1 ) (let ((e-16 (cdr sc22))) (let ((sc23 e-16)) (case (vector-ref sc23 0) ((28) (let ((e-17 (vector-ref sc23 1))) (let ((e-18 (vector-ref sc23 2))) (let ((sc24 e-18)) (case (vector-ref sc24 0) ((12) (let ((e-19 (vector-ref sc24 1))) (let ((sc25 e-8)) (if (null? sc25) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))(else (let ((sc17 e-3)) (case (vector-ref sc17 0) ((1) (let ((sc18 arg-13)) (if (null? sc18) (vector 1 ) (let ((e-7 (car sc18))) (let ((e-8 (cdr sc18))) (let ((sc19 e-7)) (if (null? sc19) (vector 1 ) (let ((e-12 (cdr sc19))) (let ((sc20 e-12)) (if (null? sc20) (vector 1 ) (let ((e-16 (cdr sc20))) (let ((sc21 e-16)) (case (vector-ref sc21 0) ((28) (let ((e-17 (vector-ref sc21 1))) (let ((e-18 (vector-ref sc21 2))) (let ((sc22 e-18)) (case (vector-ref sc22 0) ((12) (let ((e-19 (vector-ref sc22 1))) (let ((sc23 e-8)) (if (null? sc23) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))))(else (let ((sc16 e-3)) (case (vector-ref sc16 0) ((1) (let ((sc17 arg-13)) (if (null? sc17) (vector 1 ) (let ((e-7 (car sc17))) (let ((e-8 (cdr sc17))) (let ((sc18 e-7)) (if (null? sc18) (vector 1 ) (let ((e-12 (cdr sc18))) (let ((sc19 e-12)) (if (null? sc19) (vector 1 ) (let ((e-16 (cdr sc19))) (let ((sc20 e-16)) (case (vector-ref sc20 0) ((28) (let ((e-17 (vector-ref sc20 1))) (let ((e-18 (vector-ref sc20 2))) (let ((sc21 e-18)) (case (vector-ref sc21 0) ((12) (let ((e-19 (vector-ref sc21 1))) (let ((sc22 e-8)) (if (null? sc22) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))))))))))))(else (let ((sc12 e-3)) (case (vector-ref sc12 0) ((1) (let ((sc13 arg-13)) (if (null? sc13) (vector 1 ) (let ((e-7 (car sc13))) (let ((e-8 (cdr sc13))) (let ((sc14 e-7)) (if (null? sc14) (vector 1 ) (let ((e-12 (cdr sc14))) (let ((sc15 e-12)) (if (null? sc15) (vector 1 ) (let ((e-16 (cdr sc15))) (let ((sc16 e-16)) (case (vector-ref sc16 0) ((28) (let ((e-17 (vector-ref sc16 1))) (let ((e-18 (vector-ref sc16 2))) (let ((sc17 e-18)) (case (vector-ref sc17 0) ((12) (let ((e-19 (vector-ref sc17 1))) (let ((sc18 e-8)) (if (null? sc18) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))) (let ((e-50 (cdr sc11))) (let ((sc12 e-50)) (case (vector-ref sc12 0) ((28) (let ((e-51 (vector-ref sc12 1))) (let ((e-52 (vector-ref sc12 2))) (let ((sc13 e-52)) (case (vector-ref sc13 0) ((10) (let ((e-53 (vector-ref sc13 1))) (let ((sc14 e-42)) (if (null? sc14) (vector 2 (vector 28 e-51 (vector 10 e-53))) (let ((sc15 e-2)) (case (vector-ref sc15 0) ((1) (let ((sc16 arg-13)) (if (null? sc16) (let ((sc17 e-3)) (case (vector-ref sc17 0) ((1) (let ((sc18 arg-13)) (if (null? sc18) (vector 1 ) (let ((e-7 (car sc18))) (let ((e-8 (cdr sc18))) (let ((sc19 e-7)) (if (null? sc19) (vector 1 ) (let ((e-12 (cdr sc19))) (let ((sc20 e-12)) (if (null? sc20) (vector 1 ) (let ((e-16 (cdr sc20))) (let ((sc21 e-16)) (case (vector-ref sc21 0) ((28) (let ((e-17 (vector-ref sc21 1))) (let ((e-18 (vector-ref sc21 2))) (let ((sc22 e-18)) (case (vector-ref sc22 0) ((12) (let ((e-19 (vector-ref sc22 1))) (let ((sc23 e-8)) (if (null? sc23) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-24 (car sc16))) (let ((e-25 (cdr sc16))) (let ((sc17 e-24)) (if (null? sc17) (let ((sc18 e-3)) (case (vector-ref sc18 0) ((1) (let ((sc19 arg-13)) (if (null? sc19) (vector 1 ) (let ((e-7 (car sc19))) (let ((e-8 (cdr sc19))) (let ((sc20 e-7)) (if (null? sc20) (vector 1 ) (let ((e-12 (cdr sc20))) (let ((sc21 e-12)) (if (null? sc21) (vector 1 ) (let ((e-16 (cdr sc21))) (let ((sc22 e-16)) (case (vector-ref sc22 0) ((28) (let ((e-17 (vector-ref sc22 1))) (let ((e-18 (vector-ref sc22 2))) (let ((sc23 e-18)) (case (vector-ref sc23 0) ((12) (let ((e-19 (vector-ref sc23 1))) (let ((sc24 e-8)) (if (null? sc24) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-29 (cdr sc17))) (let ((sc18 e-29)) (if (null? sc18) (let ((sc19 e-3)) (case (vector-ref sc19 0) ((1) (let ((sc20 arg-13)) (if (null? sc20) (vector 1 ) (let ((e-7 (car sc20))) (let ((e-8 (cdr sc20))) (let ((sc21 e-7)) (if (null? sc21) (vector 1 ) (let ((e-12 (cdr sc21))) (let ((sc22 e-12)) (if (null? sc22) (vector 1 ) (let ((e-16 (cdr sc22))) (let ((sc23 e-16)) (case (vector-ref sc23 0) ((28) (let ((e-17 (vector-ref sc23 1))) (let ((e-18 (vector-ref sc23 2))) (let ((sc24 e-18)) (case (vector-ref sc24 0) ((12) (let ((e-19 (vector-ref sc24 1))) (let ((sc25 e-8)) (if (null? sc25) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-33 (cdr sc18))) (let ((sc19 e-33)) (case (vector-ref sc19 0) ((28) (let ((e-34 (vector-ref sc19 1))) (let ((e-35 (vector-ref sc19 2))) (let ((sc20 e-35)) (case (vector-ref sc20 0) ((11) (let ((e-36 (vector-ref sc20 1))) (let ((sc21 e-25)) (if (null? sc21) (vector 2 (vector 28 e-34 (vector 11 e-36))) (let ((sc22 e-3)) (case (vector-ref sc22 0) ((1) (let ((sc23 arg-13)) (if (null? sc23) (vector 1 ) (let ((e-7 (car sc23))) (let ((e-8 (cdr sc23))) (let ((sc24 e-7)) (if (null? sc24) (vector 1 ) (let ((e-12 (cdr sc24))) (let ((sc25 e-12)) (if (null? sc25) (vector 1 ) (let ((e-16 (cdr sc25))) (let ((sc26 e-16)) (case (vector-ref sc26 0) ((28) (let ((e-17 (vector-ref sc26 1))) (let ((e-18 (vector-ref sc26 2))) (let ((sc27 e-18)) (case (vector-ref sc27 0) ((12) (let ((e-19 (vector-ref sc27 1))) (let ((sc28 e-8)) (if (null? sc28) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))(else (let ((sc20 e-3)) (case (vector-ref sc20 0) ((1) (let ((sc21 arg-13)) (if (null? sc21) (vector 1 ) (let ((e-7 (car sc21))) (let ((e-8 (cdr sc21))) (let ((sc22 e-7)) (if (null? sc22) (vector 1 ) (let ((e-12 (cdr sc22))) (let ((sc23 e-12)) (if (null? sc23) (vector 1 ) (let ((e-16 (cdr sc23))) (let ((sc24 e-16)) (case (vector-ref sc24 0) ((28) (let ((e-17 (vector-ref sc24 1))) (let ((e-18 (vector-ref sc24 2))) (let ((sc25 e-18)) (case (vector-ref sc25 0) ((12) (let ((e-19 (vector-ref sc25 1))) (let ((sc26 e-8)) (if (null? sc26) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))))(else (let ((sc19 e-3)) (case (vector-ref sc19 0) ((1) (let ((sc20 arg-13)) (if (null? sc20) (vector 1 ) (let ((e-7 (car sc20))) (let ((e-8 (cdr sc20))) (let ((sc21 e-7)) (if (null? sc21) (vector 1 ) (let ((e-12 (cdr sc21))) (let ((sc22 e-12)) (if (null? sc22) (vector 1 ) (let ((e-16 (cdr sc22))) (let ((sc23 e-16)) (case (vector-ref sc23 0) ((28) (let ((e-17 (vector-ref sc23 1))) (let ((e-18 (vector-ref sc23 2))) (let ((sc24 e-18)) (case (vector-ref sc24 0) ((12) (let ((e-19 (vector-ref sc24 1))) (let ((sc25 e-8)) (if (null? sc25) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))))))))))))(else (let ((sc15 e-3)) (case (vector-ref sc15 0) ((1) (let ((sc16 arg-13)) (if (null? sc16) (vector 1 ) (let ((e-7 (car sc16))) (let ((e-8 (cdr sc16))) (let ((sc17 e-7)) (if (null? sc17) (vector 1 ) (let ((e-12 (cdr sc17))) (let ((sc18 e-12)) (if (null? sc18) (vector 1 ) (let ((e-16 (cdr sc18))) (let ((sc19 e-16)) (case (vector-ref sc19 0) ((28) (let ((e-17 (vector-ref sc19 1))) (let ((e-18 (vector-ref sc19 2))) (let ((sc20 e-18)) (case (vector-ref sc20 0) ((12) (let ((e-19 (vector-ref sc20 1))) (let ((sc21 e-8)) (if (null? sc21) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))))))))))(else (let ((sc13 e-2)) (case (vector-ref sc13 0) ((1) (let ((sc14 arg-13)) (if (null? sc14) (let ((sc15 e-3)) (case (vector-ref sc15 0) ((1) (let ((sc16 arg-13)) (if (null? sc16) (vector 1 ) (let ((e-7 (car sc16))) (let ((e-8 (cdr sc16))) (let ((sc17 e-7)) (if (null? sc17) (vector 1 ) (let ((e-12 (cdr sc17))) (let ((sc18 e-12)) (if (null? sc18) (vector 1 ) (let ((e-16 (cdr sc18))) (let ((sc19 e-16)) (case (vector-ref sc19 0) ((28) (let ((e-17 (vector-ref sc19 1))) (let ((e-18 (vector-ref sc19 2))) (let ((sc20 e-18)) (case (vector-ref sc20 0) ((12) (let ((e-19 (vector-ref sc20 1))) (let ((sc21 e-8)) (if (null? sc21) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-24 (car sc14))) (let ((e-25 (cdr sc14))) (let ((sc15 e-24)) (if (null? sc15) (let ((sc16 e-3)) (case (vector-ref sc16 0) ((1) (let ((sc17 arg-13)) (if (null? sc17) (vector 1 ) (let ((e-7 (car sc17))) (let ((e-8 (cdr sc17))) (let ((sc18 e-7)) (if (null? sc18) (vector 1 ) (let ((e-12 (cdr sc18))) (let ((sc19 e-12)) (if (null? sc19) (vector 1 ) (let ((e-16 (cdr sc19))) (let ((sc20 e-16)) (case (vector-ref sc20 0) ((28) (let ((e-17 (vector-ref sc20 1))) (let ((e-18 (vector-ref sc20 2))) (let ((sc21 e-18)) (case (vector-ref sc21 0) ((12) (let ((e-19 (vector-ref sc21 1))) (let ((sc22 e-8)) (if (null? sc22) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-29 (cdr sc15))) (let ((sc16 e-29)) (if (null? sc16) (let ((sc17 e-3)) (case (vector-ref sc17 0) ((1) (let ((sc18 arg-13)) (if (null? sc18) (vector 1 ) (let ((e-7 (car sc18))) (let ((e-8 (cdr sc18))) (let ((sc19 e-7)) (if (null? sc19) (vector 1 ) (let ((e-12 (cdr sc19))) (let ((sc20 e-12)) (if (null? sc20) (vector 1 ) (let ((e-16 (cdr sc20))) (let ((sc21 e-16)) (case (vector-ref sc21 0) ((28) (let ((e-17 (vector-ref sc21 1))) (let ((e-18 (vector-ref sc21 2))) (let ((sc22 e-18)) (case (vector-ref sc22 0) ((12) (let ((e-19 (vector-ref sc22 1))) (let ((sc23 e-8)) (if (null? sc23) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-33 (cdr sc16))) (let ((sc17 e-33)) (case (vector-ref sc17 0) ((28) (let ((e-34 (vector-ref sc17 1))) (let ((e-35 (vector-ref sc17 2))) (let ((sc18 e-35)) (case (vector-ref sc18 0) ((11) (let ((e-36 (vector-ref sc18 1))) (let ((sc19 e-25)) (if (null? sc19) (vector 2 (vector 28 e-34 (vector 11 e-36))) (let ((sc20 e-3)) (case (vector-ref sc20 0) ((1) (let ((sc21 arg-13)) (if (null? sc21) (vector 1 ) (let ((e-7 (car sc21))) (let ((e-8 (cdr sc21))) (let ((sc22 e-7)) (if (null? sc22) (vector 1 ) (let ((e-12 (cdr sc22))) (let ((sc23 e-12)) (if (null? sc23) (vector 1 ) (let ((e-16 (cdr sc23))) (let ((sc24 e-16)) (case (vector-ref sc24 0) ((28) (let ((e-17 (vector-ref sc24 1))) (let ((e-18 (vector-ref sc24 2))) (let ((sc25 e-18)) (case (vector-ref sc25 0) ((12) (let ((e-19 (vector-ref sc25 1))) (let ((sc26 e-8)) (if (null? sc26) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))(else (let ((sc18 e-3)) (case (vector-ref sc18 0) ((1) (let ((sc19 arg-13)) (if (null? sc19) (vector 1 ) (let ((e-7 (car sc19))) (let ((e-8 (cdr sc19))) (let ((sc20 e-7)) (if (null? sc20) (vector 1 ) (let ((e-12 (cdr sc20))) (let ((sc21 e-12)) (if (null? sc21) (vector 1 ) (let ((e-16 (cdr sc21))) (let ((sc22 e-16)) (case (vector-ref sc22 0) ((28) (let ((e-17 (vector-ref sc22 1))) (let ((e-18 (vector-ref sc22 2))) (let ((sc23 e-18)) (case (vector-ref sc23 0) ((12) (let ((e-19 (vector-ref sc23 1))) (let ((sc24 e-8)) (if (null? sc24) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))))(else (let ((sc17 e-3)) (case (vector-ref sc17 0) ((1) (let ((sc18 arg-13)) (if (null? sc18) (vector 1 ) (let ((e-7 (car sc18))) (let ((e-8 (cdr sc18))) (let ((sc19 e-7)) (if (null? sc19) (vector 1 ) (let ((e-12 (cdr sc19))) (let ((sc20 e-12)) (if (null? sc20) (vector 1 ) (let ((e-16 (cdr sc20))) (let ((sc21 e-16)) (case (vector-ref sc21 0) ((28) (let ((e-17 (vector-ref sc21 1))) (let ((e-18 (vector-ref sc21 2))) (let ((sc22 e-18)) (case (vector-ref sc22 0) ((12) (let ((e-19 (vector-ref sc22 1))) (let ((sc23 e-8)) (if (null? sc23) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))))))))))))(else (let ((sc13 e-3)) (case (vector-ref sc13 0) ((1) (let ((sc14 arg-13)) (if (null? sc14) (vector 1 ) (let ((e-7 (car sc14))) (let ((e-8 (cdr sc14))) (let ((sc15 e-7)) (if (null? sc15) (vector 1 ) (let ((e-12 (cdr sc15))) (let ((sc16 e-12)) (if (null? sc16) (vector 1 ) (let ((e-16 (cdr sc16))) (let ((sc17 e-16)) (case (vector-ref sc17 0) ((28) (let ((e-17 (vector-ref sc17 1))) (let ((e-18 (vector-ref sc17 2))) (let ((sc18 e-18)) (case (vector-ref sc18 0) ((12) (let ((e-19 (vector-ref sc18 1))) (let ((sc19 e-8)) (if (null? sc19) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))))))))))))(else (let ((sc12 e-2)) (case (vector-ref sc12 0) ((1) (let ((sc13 arg-13)) (if (null? sc13) (let ((sc14 e-3)) (case (vector-ref sc14 0) ((1) (let ((sc15 arg-13)) (if (null? sc15) (vector 1 ) (let ((e-7 (car sc15))) (let ((e-8 (cdr sc15))) (let ((sc16 e-7)) (if (null? sc16) (vector 1 ) (let ((e-12 (cdr sc16))) (let ((sc17 e-12)) (if (null? sc17) (vector 1 ) (let ((e-16 (cdr sc17))) (let ((sc18 e-16)) (case (vector-ref sc18 0) ((28) (let ((e-17 (vector-ref sc18 1))) (let ((e-18 (vector-ref sc18 2))) (let ((sc19 e-18)) (case (vector-ref sc19 0) ((12) (let ((e-19 (vector-ref sc19 1))) (let ((sc20 e-8)) (if (null? sc20) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-24 (car sc13))) (let ((e-25 (cdr sc13))) (let ((sc14 e-24)) (if (null? sc14) (let ((sc15 e-3)) (case (vector-ref sc15 0) ((1) (let ((sc16 arg-13)) (if (null? sc16) (vector 1 ) (let ((e-7 (car sc16))) (let ((e-8 (cdr sc16))) (let ((sc17 e-7)) (if (null? sc17) (vector 1 ) (let ((e-12 (cdr sc17))) (let ((sc18 e-12)) (if (null? sc18) (vector 1 ) (let ((e-16 (cdr sc18))) (let ((sc19 e-16)) (case (vector-ref sc19 0) ((28) (let ((e-17 (vector-ref sc19 1))) (let ((e-18 (vector-ref sc19 2))) (let ((sc20 e-18)) (case (vector-ref sc20 0) ((12) (let ((e-19 (vector-ref sc20 1))) (let ((sc21 e-8)) (if (null? sc21) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-29 (cdr sc14))) (let ((sc15 e-29)) (if (null? sc15) (let ((sc16 e-3)) (case (vector-ref sc16 0) ((1) (let ((sc17 arg-13)) (if (null? sc17) (vector 1 ) (let ((e-7 (car sc17))) (let ((e-8 (cdr sc17))) (let ((sc18 e-7)) (if (null? sc18) (vector 1 ) (let ((e-12 (cdr sc18))) (let ((sc19 e-12)) (if (null? sc19) (vector 1 ) (let ((e-16 (cdr sc19))) (let ((sc20 e-16)) (case (vector-ref sc20 0) ((28) (let ((e-17 (vector-ref sc20 1))) (let ((e-18 (vector-ref sc20 2))) (let ((sc21 e-18)) (case (vector-ref sc21 0) ((12) (let ((e-19 (vector-ref sc21 1))) (let ((sc22 e-8)) (if (null? sc22) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-33 (cdr sc15))) (let ((sc16 e-33)) (case (vector-ref sc16 0) ((28) (let ((e-34 (vector-ref sc16 1))) (let ((e-35 (vector-ref sc16 2))) (let ((sc17 e-35)) (case (vector-ref sc17 0) ((11) (let ((e-36 (vector-ref sc17 1))) (let ((sc18 e-25)) (if (null? sc18) (vector 2 (vector 28 e-34 (vector 11 e-36))) (let ((sc19 e-3)) (case (vector-ref sc19 0) ((1) (let ((sc20 arg-13)) (if (null? sc20) (vector 1 ) (let ((e-7 (car sc20))) (let ((e-8 (cdr sc20))) (let ((sc21 e-7)) (if (null? sc21) (vector 1 ) (let ((e-12 (cdr sc21))) (let ((sc22 e-12)) (if (null? sc22) (vector 1 ) (let ((e-16 (cdr sc22))) (let ((sc23 e-16)) (case (vector-ref sc23 0) ((28) (let ((e-17 (vector-ref sc23 1))) (let ((e-18 (vector-ref sc23 2))) (let ((sc24 e-18)) (case (vector-ref sc24 0) ((12) (let ((e-19 (vector-ref sc24 1))) (let ((sc25 e-8)) (if (null? sc25) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))(else (let ((sc17 e-3)) (case (vector-ref sc17 0) ((1) (let ((sc18 arg-13)) (if (null? sc18) (vector 1 ) (let ((e-7 (car sc18))) (let ((e-8 (cdr sc18))) (let ((sc19 e-7)) (if (null? sc19) (vector 1 ) (let ((e-12 (cdr sc19))) (let ((sc20 e-12)) (if (null? sc20) (vector 1 ) (let ((e-16 (cdr sc20))) (let ((sc21 e-16)) (case (vector-ref sc21 0) ((28) (let ((e-17 (vector-ref sc21 1))) (let ((e-18 (vector-ref sc21 2))) (let ((sc22 e-18)) (case (vector-ref sc22 0) ((12) (let ((e-19 (vector-ref sc22 1))) (let ((sc23 e-8)) (if (null? sc23) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))))(else (let ((sc16 e-3)) (case (vector-ref sc16 0) ((1) (let ((sc17 arg-13)) (if (null? sc17) (vector 1 ) (let ((e-7 (car sc17))) (let ((e-8 (cdr sc17))) (let ((sc18 e-7)) (if (null? sc18) (vector 1 ) (let ((e-12 (cdr sc18))) (let ((sc19 e-12)) (if (null? sc19) (vector 1 ) (let ((e-16 (cdr sc19))) (let ((sc20 e-16)) (case (vector-ref sc20 0) ((28) (let ((e-17 (vector-ref sc20 1))) (let ((e-18 (vector-ref sc20 2))) (let ((sc21 e-18)) (case (vector-ref sc21 0) ((12) (let ((e-19 (vector-ref sc21 1))) (let ((sc22 e-8)) (if (null? sc22) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))))))))))))(else (let ((sc12 e-3)) (case (vector-ref sc12 0) ((1) (let ((sc13 arg-13)) (if (null? sc13) (vector 1 ) (let ((e-7 (car sc13))) (let ((e-8 (cdr sc13))) (let ((sc14 e-7)) (if (null? sc14) (vector 1 ) (let ((e-12 (cdr sc14))) (let ((sc15 e-12)) (if (null? sc15) (vector 1 ) (let ((e-16 (cdr sc15))) (let ((sc16 e-16)) (case (vector-ref sc16 0) ((28) (let ((e-17 (vector-ref sc16 1))) (let ((e-18 (vector-ref sc16 2))) (let ((sc17 e-18)) (case (vector-ref sc17 0) ((12) (let ((e-19 (vector-ref sc17 1))) (let ((sc18 e-8)) (if (null? sc18) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))))))))))))))))))))(else (let ((sc8 e-2)) (case (vector-ref sc8 0) ((1) (let ((sc9 arg-13)) (if (null? sc9) (let ((sc10 e-3)) (case (vector-ref sc10 0) ((1) (let ((sc11 arg-13)) (if (null? sc11) (vector 1 ) (let ((e-7 (car sc11))) (let ((e-8 (cdr sc11))) (let ((sc12 e-7)) (if (null? sc12) (vector 1 ) (let ((e-12 (cdr sc12))) (let ((sc13 e-12)) (if (null? sc13) (vector 1 ) (let ((e-16 (cdr sc13))) (let ((sc14 e-16)) (case (vector-ref sc14 0) ((28) (let ((e-17 (vector-ref sc14 1))) (let ((e-18 (vector-ref sc14 2))) (let ((sc15 e-18)) (case (vector-ref sc15 0) ((12) (let ((e-19 (vector-ref sc15 1))) (let ((sc16 e-8)) (if (null? sc16) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-24 (car sc9))) (let ((e-25 (cdr sc9))) (let ((sc10 e-24)) (if (null? sc10) (let ((sc11 e-3)) (case (vector-ref sc11 0) ((1) (let ((sc12 arg-13)) (if (null? sc12) (vector 1 ) (let ((e-7 (car sc12))) (let ((e-8 (cdr sc12))) (let ((sc13 e-7)) (if (null? sc13) (vector 1 ) (let ((e-12 (cdr sc13))) (let ((sc14 e-12)) (if (null? sc14) (vector 1 ) (let ((e-16 (cdr sc14))) (let ((sc15 e-16)) (case (vector-ref sc15 0) ((28) (let ((e-17 (vector-ref sc15 1))) (let ((e-18 (vector-ref sc15 2))) (let ((sc16 e-18)) (case (vector-ref sc16 0) ((12) (let ((e-19 (vector-ref sc16 1))) (let ((sc17 e-8)) (if (null? sc17) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-29 (cdr sc10))) (let ((sc11 e-29)) (if (null? sc11) (let ((sc12 e-3)) (case (vector-ref sc12 0) ((1) (let ((sc13 arg-13)) (if (null? sc13) (vector 1 ) (let ((e-7 (car sc13))) (let ((e-8 (cdr sc13))) (let ((sc14 e-7)) (if (null? sc14) (vector 1 ) (let ((e-12 (cdr sc14))) (let ((sc15 e-12)) (if (null? sc15) (vector 1 ) (let ((e-16 (cdr sc15))) (let ((sc16 e-16)) (case (vector-ref sc16 0) ((28) (let ((e-17 (vector-ref sc16 1))) (let ((e-18 (vector-ref sc16 2))) (let ((sc17 e-18)) (case (vector-ref sc17 0) ((12) (let ((e-19 (vector-ref sc17 1))) (let ((sc18 e-8)) (if (null? sc18) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-33 (cdr sc11))) (let ((sc12 e-33)) (case (vector-ref sc12 0) ((28) (let ((e-34 (vector-ref sc12 1))) (let ((e-35 (vector-ref sc12 2))) (let ((sc13 e-35)) (case (vector-ref sc13 0) ((11) (let ((e-36 (vector-ref sc13 1))) (let ((sc14 e-25)) (if (null? sc14) (vector 2 (vector 28 e-34 (vector 11 e-36))) (let ((sc15 e-3)) (case (vector-ref sc15 0) ((1) (let ((sc16 arg-13)) (if (null? sc16) (vector 1 ) (let ((e-7 (car sc16))) (let ((e-8 (cdr sc16))) (let ((sc17 e-7)) (if (null? sc17) (vector 1 ) (let ((e-12 (cdr sc17))) (let ((sc18 e-12)) (if (null? sc18) (vector 1 ) (let ((e-16 (cdr sc18))) (let ((sc19 e-16)) (case (vector-ref sc19 0) ((28) (let ((e-17 (vector-ref sc19 1))) (let ((e-18 (vector-ref sc19 2))) (let ((sc20 e-18)) (case (vector-ref sc20 0) ((12) (let ((e-19 (vector-ref sc20 1))) (let ((sc21 e-8)) (if (null? sc21) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))(else (let ((sc13 e-3)) (case (vector-ref sc13 0) ((1) (let ((sc14 arg-13)) (if (null? sc14) (vector 1 ) (let ((e-7 (car sc14))) (let ((e-8 (cdr sc14))) (let ((sc15 e-7)) (if (null? sc15) (vector 1 ) (let ((e-12 (cdr sc15))) (let ((sc16 e-12)) (if (null? sc16) (vector 1 ) (let ((e-16 (cdr sc16))) (let ((sc17 e-16)) (case (vector-ref sc17 0) ((28) (let ((e-17 (vector-ref sc17 1))) (let ((e-18 (vector-ref sc17 2))) (let ((sc18 e-18)) (case (vector-ref sc18 0) ((12) (let ((e-19 (vector-ref sc18 1))) (let ((sc19 e-8)) (if (null? sc19) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))))(else (let ((sc12 e-3)) (case (vector-ref sc12 0) ((1) (let ((sc13 arg-13)) (if (null? sc13) (vector 1 ) (let ((e-7 (car sc13))) (let ((e-8 (cdr sc13))) (let ((sc14 e-7)) (if (null? sc14) (vector 1 ) (let ((e-12 (cdr sc14))) (let ((sc15 e-12)) (if (null? sc15) (vector 1 ) (let ((e-16 (cdr sc15))) (let ((sc16 e-16)) (case (vector-ref sc16 0) ((28) (let ((e-17 (vector-ref sc16 1))) (let ((e-18 (vector-ref sc16 2))) (let ((sc17 e-18)) (case (vector-ref sc17 0) ((12) (let ((e-19 (vector-ref sc17 1))) (let ((sc18 e-8)) (if (null? sc18) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))))))))))))(else (let ((sc8 e-3)) (case (vector-ref sc8 0) ((1) (let ((sc9 arg-13)) (if (null? sc9) (vector 1 ) (let ((e-7 (car sc9))) (let ((e-8 (cdr sc9))) (let ((sc10 e-7)) (if (null? sc10) (vector 1 ) (let ((e-12 (cdr sc10))) (let ((sc11 e-12)) (if (null? sc11) (vector 1 ) (let ((e-16 (cdr sc11))) (let ((sc12 e-16)) (case (vector-ref sc12 0) ((28) (let ((e-17 (vector-ref sc12 1))) (let ((e-18 (vector-ref sc12 2))) (let ((sc13 e-18)) (case (vector-ref sc13 0) ((12) (let ((e-19 (vector-ref sc13 1))) (let ((sc14 e-8)) (if (null? sc14) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))))))))(else (let ((sc6 e-1)) (case (vector-ref sc6 0) ((1) (let ((sc7 arg-13)) (if (null? sc7) (let ((sc8 e-2)) (case (vector-ref sc8 0) ((1) (let ((sc9 arg-13)) (if (null? sc9) (let ((sc10 e-3)) (case (vector-ref sc10 0) ((1) (let ((sc11 arg-13)) (if (null? sc11) (vector 1 ) (let ((e-7 (car sc11))) (let ((e-8 (cdr sc11))) (let ((sc12 e-7)) (if (null? sc12) (vector 1 ) (let ((e-12 (cdr sc12))) (let ((sc13 e-12)) (if (null? sc13) (vector 1 ) (let ((e-16 (cdr sc13))) (let ((sc14 e-16)) (case (vector-ref sc14 0) ((28) (let ((e-17 (vector-ref sc14 1))) (let ((e-18 (vector-ref sc14 2))) (let ((sc15 e-18)) (case (vector-ref sc15 0) ((12) (let ((e-19 (vector-ref sc15 1))) (let ((sc16 e-8)) (if (null? sc16) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-24 (car sc9))) (let ((e-25 (cdr sc9))) (let ((sc10 e-24)) (if (null? sc10) (let ((sc11 e-3)) (case (vector-ref sc11 0) ((1) (let ((sc12 arg-13)) (if (null? sc12) (vector 1 ) (let ((e-7 (car sc12))) (let ((e-8 (cdr sc12))) (let ((sc13 e-7)) (if (null? sc13) (vector 1 ) (let ((e-12 (cdr sc13))) (let ((sc14 e-12)) (if (null? sc14) (vector 1 ) (let ((e-16 (cdr sc14))) (let ((sc15 e-16)) (case (vector-ref sc15 0) ((28) (let ((e-17 (vector-ref sc15 1))) (let ((e-18 (vector-ref sc15 2))) (let ((sc16 e-18)) (case (vector-ref sc16 0) ((12) (let ((e-19 (vector-ref sc16 1))) (let ((sc17 e-8)) (if (null? sc17) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-29 (cdr sc10))) (let ((sc11 e-29)) (if (null? sc11) (let ((sc12 e-3)) (case (vector-ref sc12 0) ((1) (let ((sc13 arg-13)) (if (null? sc13) (vector 1 ) (let ((e-7 (car sc13))) (let ((e-8 (cdr sc13))) (let ((sc14 e-7)) (if (null? sc14) (vector 1 ) (let ((e-12 (cdr sc14))) (let ((sc15 e-12)) (if (null? sc15) (vector 1 ) (let ((e-16 (cdr sc15))) (let ((sc16 e-16)) (case (vector-ref sc16 0) ((28) (let ((e-17 (vector-ref sc16 1))) (let ((e-18 (vector-ref sc16 2))) (let ((sc17 e-18)) (case (vector-ref sc17 0) ((12) (let ((e-19 (vector-ref sc17 1))) (let ((sc18 e-8)) (if (null? sc18) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-33 (cdr sc11))) (let ((sc12 e-33)) (case (vector-ref sc12 0) ((28) (let ((e-34 (vector-ref sc12 1))) (let ((e-35 (vector-ref sc12 2))) (let ((sc13 e-35)) (case (vector-ref sc13 0) ((11) (let ((e-36 (vector-ref sc13 1))) (let ((sc14 e-25)) (if (null? sc14) (vector 2 (vector 28 e-34 (vector 11 e-36))) (let ((sc15 e-3)) (case (vector-ref sc15 0) ((1) (let ((sc16 arg-13)) (if (null? sc16) (vector 1 ) (let ((e-7 (car sc16))) (let ((e-8 (cdr sc16))) (let ((sc17 e-7)) (if (null? sc17) (vector 1 ) (let ((e-12 (cdr sc17))) (let ((sc18 e-12)) (if (null? sc18) (vector 1 ) (let ((e-16 (cdr sc18))) (let ((sc19 e-16)) (case (vector-ref sc19 0) ((28) (let ((e-17 (vector-ref sc19 1))) (let ((e-18 (vector-ref sc19 2))) (let ((sc20 e-18)) (case (vector-ref sc20 0) ((12) (let ((e-19 (vector-ref sc20 1))) (let ((sc21 e-8)) (if (null? sc21) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))(else (let ((sc13 e-3)) (case (vector-ref sc13 0) ((1) (let ((sc14 arg-13)) (if (null? sc14) (vector 1 ) (let ((e-7 (car sc14))) (let ((e-8 (cdr sc14))) (let ((sc15 e-7)) (if (null? sc15) (vector 1 ) (let ((e-12 (cdr sc15))) (let ((sc16 e-12)) (if (null? sc16) (vector 1 ) (let ((e-16 (cdr sc16))) (let ((sc17 e-16)) (case (vector-ref sc17 0) ((28) (let ((e-17 (vector-ref sc17 1))) (let ((e-18 (vector-ref sc17 2))) (let ((sc18 e-18)) (case (vector-ref sc18 0) ((12) (let ((e-19 (vector-ref sc18 1))) (let ((sc19 e-8)) (if (null? sc19) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))))(else (let ((sc12 e-3)) (case (vector-ref sc12 0) ((1) (let ((sc13 arg-13)) (if (null? sc13) (vector 1 ) (let ((e-7 (car sc13))) (let ((e-8 (cdr sc13))) (let ((sc14 e-7)) (if (null? sc14) (vector 1 ) (let ((e-12 (cdr sc14))) (let ((sc15 e-12)) (if (null? sc15) (vector 1 ) (let ((e-16 (cdr sc15))) (let ((sc16 e-16)) (case (vector-ref sc16 0) ((28) (let ((e-17 (vector-ref sc16 1))) (let ((e-18 (vector-ref sc16 2))) (let ((sc17 e-18)) (case (vector-ref sc17 0) ((12) (let ((e-19 (vector-ref sc17 1))) (let ((sc18 e-8)) (if (null? sc18) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))))))))))))(else (let ((sc8 e-3)) (case (vector-ref sc8 0) ((1) (let ((sc9 arg-13)) (if (null? sc9) (vector 1 ) (let ((e-7 (car sc9))) (let ((e-8 (cdr sc9))) (let ((sc10 e-7)) (if (null? sc10) (vector 1 ) (let ((e-12 (cdr sc10))) (let ((sc11 e-12)) (if (null? sc11) (vector 1 ) (let ((e-16 (cdr sc11))) (let ((sc12 e-16)) (case (vector-ref sc12 0) ((28) (let ((e-17 (vector-ref sc12 1))) (let ((e-18 (vector-ref sc12 2))) (let ((sc13 e-18)) (case (vector-ref sc13 0) ((12) (let ((e-19 (vector-ref sc13 1))) (let ((sc14 e-8)) (if (null? sc14) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))) (let ((e-41 (car sc7))) (let ((e-42 (cdr sc7))) (let ((sc8 e-41)) (if (null? sc8) (let ((sc9 e-2)) (case (vector-ref sc9 0) ((1) (let ((sc10 arg-13)) (if (null? sc10) (let ((sc11 e-3)) (case (vector-ref sc11 0) ((1) (let ((sc12 arg-13)) (if (null? sc12) (vector 1 ) (let ((e-7 (car sc12))) (let ((e-8 (cdr sc12))) (let ((sc13 e-7)) (if (null? sc13) (vector 1 ) (let ((e-12 (cdr sc13))) (let ((sc14 e-12)) (if (null? sc14) (vector 1 ) (let ((e-16 (cdr sc14))) (let ((sc15 e-16)) (case (vector-ref sc15 0) ((28) (let ((e-17 (vector-ref sc15 1))) (let ((e-18 (vector-ref sc15 2))) (let ((sc16 e-18)) (case (vector-ref sc16 0) ((12) (let ((e-19 (vector-ref sc16 1))) (let ((sc17 e-8)) (if (null? sc17) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-24 (car sc10))) (let ((e-25 (cdr sc10))) (let ((sc11 e-24)) (if (null? sc11) (let ((sc12 e-3)) (case (vector-ref sc12 0) ((1) (let ((sc13 arg-13)) (if (null? sc13) (vector 1 ) (let ((e-7 (car sc13))) (let ((e-8 (cdr sc13))) (let ((sc14 e-7)) (if (null? sc14) (vector 1 ) (let ((e-12 (cdr sc14))) (let ((sc15 e-12)) (if (null? sc15) (vector 1 ) (let ((e-16 (cdr sc15))) (let ((sc16 e-16)) (case (vector-ref sc16 0) ((28) (let ((e-17 (vector-ref sc16 1))) (let ((e-18 (vector-ref sc16 2))) (let ((sc17 e-18)) (case (vector-ref sc17 0) ((12) (let ((e-19 (vector-ref sc17 1))) (let ((sc18 e-8)) (if (null? sc18) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-29 (cdr sc11))) (let ((sc12 e-29)) (if (null? sc12) (let ((sc13 e-3)) (case (vector-ref sc13 0) ((1) (let ((sc14 arg-13)) (if (null? sc14) (vector 1 ) (let ((e-7 (car sc14))) (let ((e-8 (cdr sc14))) (let ((sc15 e-7)) (if (null? sc15) (vector 1 ) (let ((e-12 (cdr sc15))) (let ((sc16 e-12)) (if (null? sc16) (vector 1 ) (let ((e-16 (cdr sc16))) (let ((sc17 e-16)) (case (vector-ref sc17 0) ((28) (let ((e-17 (vector-ref sc17 1))) (let ((e-18 (vector-ref sc17 2))) (let ((sc18 e-18)) (case (vector-ref sc18 0) ((12) (let ((e-19 (vector-ref sc18 1))) (let ((sc19 e-8)) (if (null? sc19) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-33 (cdr sc12))) (let ((sc13 e-33)) (case (vector-ref sc13 0) ((28) (let ((e-34 (vector-ref sc13 1))) (let ((e-35 (vector-ref sc13 2))) (let ((sc14 e-35)) (case (vector-ref sc14 0) ((11) (let ((e-36 (vector-ref sc14 1))) (let ((sc15 e-25)) (if (null? sc15) (vector 2 (vector 28 e-34 (vector 11 e-36))) (let ((sc16 e-3)) (case (vector-ref sc16 0) ((1) (let ((sc17 arg-13)) (if (null? sc17) (vector 1 ) (let ((e-7 (car sc17))) (let ((e-8 (cdr sc17))) (let ((sc18 e-7)) (if (null? sc18) (vector 1 ) (let ((e-12 (cdr sc18))) (let ((sc19 e-12)) (if (null? sc19) (vector 1 ) (let ((e-16 (cdr sc19))) (let ((sc20 e-16)) (case (vector-ref sc20 0) ((28) (let ((e-17 (vector-ref sc20 1))) (let ((e-18 (vector-ref sc20 2))) (let ((sc21 e-18)) (case (vector-ref sc21 0) ((12) (let ((e-19 (vector-ref sc21 1))) (let ((sc22 e-8)) (if (null? sc22) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))(else (let ((sc14 e-3)) (case (vector-ref sc14 0) ((1) (let ((sc15 arg-13)) (if (null? sc15) (vector 1 ) (let ((e-7 (car sc15))) (let ((e-8 (cdr sc15))) (let ((sc16 e-7)) (if (null? sc16) (vector 1 ) (let ((e-12 (cdr sc16))) (let ((sc17 e-12)) (if (null? sc17) (vector 1 ) (let ((e-16 (cdr sc17))) (let ((sc18 e-16)) (case (vector-ref sc18 0) ((28) (let ((e-17 (vector-ref sc18 1))) (let ((e-18 (vector-ref sc18 2))) (let ((sc19 e-18)) (case (vector-ref sc19 0) ((12) (let ((e-19 (vector-ref sc19 1))) (let ((sc20 e-8)) (if (null? sc20) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))))(else (let ((sc13 e-3)) (case (vector-ref sc13 0) ((1) (let ((sc14 arg-13)) (if (null? sc14) (vector 1 ) (let ((e-7 (car sc14))) (let ((e-8 (cdr sc14))) (let ((sc15 e-7)) (if (null? sc15) (vector 1 ) (let ((e-12 (cdr sc15))) (let ((sc16 e-12)) (if (null? sc16) (vector 1 ) (let ((e-16 (cdr sc16))) (let ((sc17 e-16)) (case (vector-ref sc17 0) ((28) (let ((e-17 (vector-ref sc17 1))) (let ((e-18 (vector-ref sc17 2))) (let ((sc18 e-18)) (case (vector-ref sc18 0) ((12) (let ((e-19 (vector-ref sc18 1))) (let ((sc19 e-8)) (if (null? sc19) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))))))))))))(else (let ((sc9 e-3)) (case (vector-ref sc9 0) ((1) (let ((sc10 arg-13)) (if (null? sc10) (vector 1 ) (let ((e-7 (car sc10))) (let ((e-8 (cdr sc10))) (let ((sc11 e-7)) (if (null? sc11) (vector 1 ) (let ((e-12 (cdr sc11))) (let ((sc12 e-12)) (if (null? sc12) (vector 1 ) (let ((e-16 (cdr sc12))) (let ((sc13 e-16)) (case (vector-ref sc13 0) ((28) (let ((e-17 (vector-ref sc13 1))) (let ((e-18 (vector-ref sc13 2))) (let ((sc14 e-18)) (case (vector-ref sc14 0) ((12) (let ((e-19 (vector-ref sc14 1))) (let ((sc15 e-8)) (if (null? sc15) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))) (let ((e-46 (cdr sc8))) (let ((sc9 e-46)) (if (null? sc9) (let ((sc10 e-2)) (case (vector-ref sc10 0) ((1) (let ((sc11 arg-13)) (if (null? sc11) (let ((sc12 e-3)) (case (vector-ref sc12 0) ((1) (let ((sc13 arg-13)) (if (null? sc13) (vector 1 ) (let ((e-7 (car sc13))) (let ((e-8 (cdr sc13))) (let ((sc14 e-7)) (if (null? sc14) (vector 1 ) (let ((e-12 (cdr sc14))) (let ((sc15 e-12)) (if (null? sc15) (vector 1 ) (let ((e-16 (cdr sc15))) (let ((sc16 e-16)) (case (vector-ref sc16 0) ((28) (let ((e-17 (vector-ref sc16 1))) (let ((e-18 (vector-ref sc16 2))) (let ((sc17 e-18)) (case (vector-ref sc17 0) ((12) (let ((e-19 (vector-ref sc17 1))) (let ((sc18 e-8)) (if (null? sc18) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-24 (car sc11))) (let ((e-25 (cdr sc11))) (let ((sc12 e-24)) (if (null? sc12) (let ((sc13 e-3)) (case (vector-ref sc13 0) ((1) (let ((sc14 arg-13)) (if (null? sc14) (vector 1 ) (let ((e-7 (car sc14))) (let ((e-8 (cdr sc14))) (let ((sc15 e-7)) (if (null? sc15) (vector 1 ) (let ((e-12 (cdr sc15))) (let ((sc16 e-12)) (if (null? sc16) (vector 1 ) (let ((e-16 (cdr sc16))) (let ((sc17 e-16)) (case (vector-ref sc17 0) ((28) (let ((e-17 (vector-ref sc17 1))) (let ((e-18 (vector-ref sc17 2))) (let ((sc18 e-18)) (case (vector-ref sc18 0) ((12) (let ((e-19 (vector-ref sc18 1))) (let ((sc19 e-8)) (if (null? sc19) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-29 (cdr sc12))) (let ((sc13 e-29)) (if (null? sc13) (let ((sc14 e-3)) (case (vector-ref sc14 0) ((1) (let ((sc15 arg-13)) (if (null? sc15) (vector 1 ) (let ((e-7 (car sc15))) (let ((e-8 (cdr sc15))) (let ((sc16 e-7)) (if (null? sc16) (vector 1 ) (let ((e-12 (cdr sc16))) (let ((sc17 e-12)) (if (null? sc17) (vector 1 ) (let ((e-16 (cdr sc17))) (let ((sc18 e-16)) (case (vector-ref sc18 0) ((28) (let ((e-17 (vector-ref sc18 1))) (let ((e-18 (vector-ref sc18 2))) (let ((sc19 e-18)) (case (vector-ref sc19 0) ((12) (let ((e-19 (vector-ref sc19 1))) (let ((sc20 e-8)) (if (null? sc20) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-33 (cdr sc13))) (let ((sc14 e-33)) (case (vector-ref sc14 0) ((28) (let ((e-34 (vector-ref sc14 1))) (let ((e-35 (vector-ref sc14 2))) (let ((sc15 e-35)) (case (vector-ref sc15 0) ((11) (let ((e-36 (vector-ref sc15 1))) (let ((sc16 e-25)) (if (null? sc16) (vector 2 (vector 28 e-34 (vector 11 e-36))) (let ((sc17 e-3)) (case (vector-ref sc17 0) ((1) (let ((sc18 arg-13)) (if (null? sc18) (vector 1 ) (let ((e-7 (car sc18))) (let ((e-8 (cdr sc18))) (let ((sc19 e-7)) (if (null? sc19) (vector 1 ) (let ((e-12 (cdr sc19))) (let ((sc20 e-12)) (if (null? sc20) (vector 1 ) (let ((e-16 (cdr sc20))) (let ((sc21 e-16)) (case (vector-ref sc21 0) ((28) (let ((e-17 (vector-ref sc21 1))) (let ((e-18 (vector-ref sc21 2))) (let ((sc22 e-18)) (case (vector-ref sc22 0) ((12) (let ((e-19 (vector-ref sc22 1))) (let ((sc23 e-8)) (if (null? sc23) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))(else (let ((sc15 e-3)) (case (vector-ref sc15 0) ((1) (let ((sc16 arg-13)) (if (null? sc16) (vector 1 ) (let ((e-7 (car sc16))) (let ((e-8 (cdr sc16))) (let ((sc17 e-7)) (if (null? sc17) (vector 1 ) (let ((e-12 (cdr sc17))) (let ((sc18 e-12)) (if (null? sc18) (vector 1 ) (let ((e-16 (cdr sc18))) (let ((sc19 e-16)) (case (vector-ref sc19 0) ((28) (let ((e-17 (vector-ref sc19 1))) (let ((e-18 (vector-ref sc19 2))) (let ((sc20 e-18)) (case (vector-ref sc20 0) ((12) (let ((e-19 (vector-ref sc20 1))) (let ((sc21 e-8)) (if (null? sc21) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))))(else (let ((sc14 e-3)) (case (vector-ref sc14 0) ((1) (let ((sc15 arg-13)) (if (null? sc15) (vector 1 ) (let ((e-7 (car sc15))) (let ((e-8 (cdr sc15))) (let ((sc16 e-7)) (if (null? sc16) (vector 1 ) (let ((e-12 (cdr sc16))) (let ((sc17 e-12)) (if (null? sc17) (vector 1 ) (let ((e-16 (cdr sc17))) (let ((sc18 e-16)) (case (vector-ref sc18 0) ((28) (let ((e-17 (vector-ref sc18 1))) (let ((e-18 (vector-ref sc18 2))) (let ((sc19 e-18)) (case (vector-ref sc19 0) ((12) (let ((e-19 (vector-ref sc19 1))) (let ((sc20 e-8)) (if (null? sc20) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))))))))))))(else (let ((sc10 e-3)) (case (vector-ref sc10 0) ((1) (let ((sc11 arg-13)) (if (null? sc11) (vector 1 ) (let ((e-7 (car sc11))) (let ((e-8 (cdr sc11))) (let ((sc12 e-7)) (if (null? sc12) (vector 1 ) (let ((e-12 (cdr sc12))) (let ((sc13 e-12)) (if (null? sc13) (vector 1 ) (let ((e-16 (cdr sc13))) (let ((sc14 e-16)) (case (vector-ref sc14 0) ((28) (let ((e-17 (vector-ref sc14 1))) (let ((e-18 (vector-ref sc14 2))) (let ((sc15 e-18)) (case (vector-ref sc15 0) ((12) (let ((e-19 (vector-ref sc15 1))) (let ((sc16 e-8)) (if (null? sc16) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))) (let ((e-50 (cdr sc9))) (let ((sc10 e-50)) (case (vector-ref sc10 0) ((28) (let ((e-51 (vector-ref sc10 1))) (let ((e-52 (vector-ref sc10 2))) (let ((sc11 e-52)) (case (vector-ref sc11 0) ((10) (let ((e-53 (vector-ref sc11 1))) (let ((sc12 e-42)) (if (null? sc12) (vector 2 (vector 28 e-51 (vector 10 e-53))) (let ((sc13 e-2)) (case (vector-ref sc13 0) ((1) (let ((sc14 arg-13)) (if (null? sc14) (let ((sc15 e-3)) (case (vector-ref sc15 0) ((1) (let ((sc16 arg-13)) (if (null? sc16) (vector 1 ) (let ((e-7 (car sc16))) (let ((e-8 (cdr sc16))) (let ((sc17 e-7)) (if (null? sc17) (vector 1 ) (let ((e-12 (cdr sc17))) (let ((sc18 e-12)) (if (null? sc18) (vector 1 ) (let ((e-16 (cdr sc18))) (let ((sc19 e-16)) (case (vector-ref sc19 0) ((28) (let ((e-17 (vector-ref sc19 1))) (let ((e-18 (vector-ref sc19 2))) (let ((sc20 e-18)) (case (vector-ref sc20 0) ((12) (let ((e-19 (vector-ref sc20 1))) (let ((sc21 e-8)) (if (null? sc21) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-24 (car sc14))) (let ((e-25 (cdr sc14))) (let ((sc15 e-24)) (if (null? sc15) (let ((sc16 e-3)) (case (vector-ref sc16 0) ((1) (let ((sc17 arg-13)) (if (null? sc17) (vector 1 ) (let ((e-7 (car sc17))) (let ((e-8 (cdr sc17))) (let ((sc18 e-7)) (if (null? sc18) (vector 1 ) (let ((e-12 (cdr sc18))) (let ((sc19 e-12)) (if (null? sc19) (vector 1 ) (let ((e-16 (cdr sc19))) (let ((sc20 e-16)) (case (vector-ref sc20 0) ((28) (let ((e-17 (vector-ref sc20 1))) (let ((e-18 (vector-ref sc20 2))) (let ((sc21 e-18)) (case (vector-ref sc21 0) ((12) (let ((e-19 (vector-ref sc21 1))) (let ((sc22 e-8)) (if (null? sc22) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-29 (cdr sc15))) (let ((sc16 e-29)) (if (null? sc16) (let ((sc17 e-3)) (case (vector-ref sc17 0) ((1) (let ((sc18 arg-13)) (if (null? sc18) (vector 1 ) (let ((e-7 (car sc18))) (let ((e-8 (cdr sc18))) (let ((sc19 e-7)) (if (null? sc19) (vector 1 ) (let ((e-12 (cdr sc19))) (let ((sc20 e-12)) (if (null? sc20) (vector 1 ) (let ((e-16 (cdr sc20))) (let ((sc21 e-16)) (case (vector-ref sc21 0) ((28) (let ((e-17 (vector-ref sc21 1))) (let ((e-18 (vector-ref sc21 2))) (let ((sc22 e-18)) (case (vector-ref sc22 0) ((12) (let ((e-19 (vector-ref sc22 1))) (let ((sc23 e-8)) (if (null? sc23) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-33 (cdr sc16))) (let ((sc17 e-33)) (case (vector-ref sc17 0) ((28) (let ((e-34 (vector-ref sc17 1))) (let ((e-35 (vector-ref sc17 2))) (let ((sc18 e-35)) (case (vector-ref sc18 0) ((11) (let ((e-36 (vector-ref sc18 1))) (let ((sc19 e-25)) (if (null? sc19) (vector 2 (vector 28 e-34 (vector 11 e-36))) (let ((sc20 e-3)) (case (vector-ref sc20 0) ((1) (let ((sc21 arg-13)) (if (null? sc21) (vector 1 ) (let ((e-7 (car sc21))) (let ((e-8 (cdr sc21))) (let ((sc22 e-7)) (if (null? sc22) (vector 1 ) (let ((e-12 (cdr sc22))) (let ((sc23 e-12)) (if (null? sc23) (vector 1 ) (let ((e-16 (cdr sc23))) (let ((sc24 e-16)) (case (vector-ref sc24 0) ((28) (let ((e-17 (vector-ref sc24 1))) (let ((e-18 (vector-ref sc24 2))) (let ((sc25 e-18)) (case (vector-ref sc25 0) ((12) (let ((e-19 (vector-ref sc25 1))) (let ((sc26 e-8)) (if (null? sc26) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))(else (let ((sc18 e-3)) (case (vector-ref sc18 0) ((1) (let ((sc19 arg-13)) (if (null? sc19) (vector 1 ) (let ((e-7 (car sc19))) (let ((e-8 (cdr sc19))) (let ((sc20 e-7)) (if (null? sc20) (vector 1 ) (let ((e-12 (cdr sc20))) (let ((sc21 e-12)) (if (null? sc21) (vector 1 ) (let ((e-16 (cdr sc21))) (let ((sc22 e-16)) (case (vector-ref sc22 0) ((28) (let ((e-17 (vector-ref sc22 1))) (let ((e-18 (vector-ref sc22 2))) (let ((sc23 e-18)) (case (vector-ref sc23 0) ((12) (let ((e-19 (vector-ref sc23 1))) (let ((sc24 e-8)) (if (null? sc24) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))))(else (let ((sc17 e-3)) (case (vector-ref sc17 0) ((1) (let ((sc18 arg-13)) (if (null? sc18) (vector 1 ) (let ((e-7 (car sc18))) (let ((e-8 (cdr sc18))) (let ((sc19 e-7)) (if (null? sc19) (vector 1 ) (let ((e-12 (cdr sc19))) (let ((sc20 e-12)) (if (null? sc20) (vector 1 ) (let ((e-16 (cdr sc20))) (let ((sc21 e-16)) (case (vector-ref sc21 0) ((28) (let ((e-17 (vector-ref sc21 1))) (let ((e-18 (vector-ref sc21 2))) (let ((sc22 e-18)) (case (vector-ref sc22 0) ((12) (let ((e-19 (vector-ref sc22 1))) (let ((sc23 e-8)) (if (null? sc23) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))))))))))))(else (let ((sc13 e-3)) (case (vector-ref sc13 0) ((1) (let ((sc14 arg-13)) (if (null? sc14) (vector 1 ) (let ((e-7 (car sc14))) (let ((e-8 (cdr sc14))) (let ((sc15 e-7)) (if (null? sc15) (vector 1 ) (let ((e-12 (cdr sc15))) (let ((sc16 e-12)) (if (null? sc16) (vector 1 ) (let ((e-16 (cdr sc16))) (let ((sc17 e-16)) (case (vector-ref sc17 0) ((28) (let ((e-17 (vector-ref sc17 1))) (let ((e-18 (vector-ref sc17 2))) (let ((sc18 e-18)) (case (vector-ref sc18 0) ((12) (let ((e-19 (vector-ref sc18 1))) (let ((sc19 e-8)) (if (null? sc19) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))))))))))(else (let ((sc11 e-2)) (case (vector-ref sc11 0) ((1) (let ((sc12 arg-13)) (if (null? sc12) (let ((sc13 e-3)) (case (vector-ref sc13 0) ((1) (let ((sc14 arg-13)) (if (null? sc14) (vector 1 ) (let ((e-7 (car sc14))) (let ((e-8 (cdr sc14))) (let ((sc15 e-7)) (if (null? sc15) (vector 1 ) (let ((e-12 (cdr sc15))) (let ((sc16 e-12)) (if (null? sc16) (vector 1 ) (let ((e-16 (cdr sc16))) (let ((sc17 e-16)) (case (vector-ref sc17 0) ((28) (let ((e-17 (vector-ref sc17 1))) (let ((e-18 (vector-ref sc17 2))) (let ((sc18 e-18)) (case (vector-ref sc18 0) ((12) (let ((e-19 (vector-ref sc18 1))) (let ((sc19 e-8)) (if (null? sc19) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-24 (car sc12))) (let ((e-25 (cdr sc12))) (let ((sc13 e-24)) (if (null? sc13) (let ((sc14 e-3)) (case (vector-ref sc14 0) ((1) (let ((sc15 arg-13)) (if (null? sc15) (vector 1 ) (let ((e-7 (car sc15))) (let ((e-8 (cdr sc15))) (let ((sc16 e-7)) (if (null? sc16) (vector 1 ) (let ((e-12 (cdr sc16))) (let ((sc17 e-12)) (if (null? sc17) (vector 1 ) (let ((e-16 (cdr sc17))) (let ((sc18 e-16)) (case (vector-ref sc18 0) ((28) (let ((e-17 (vector-ref sc18 1))) (let ((e-18 (vector-ref sc18 2))) (let ((sc19 e-18)) (case (vector-ref sc19 0) ((12) (let ((e-19 (vector-ref sc19 1))) (let ((sc20 e-8)) (if (null? sc20) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-29 (cdr sc13))) (let ((sc14 e-29)) (if (null? sc14) (let ((sc15 e-3)) (case (vector-ref sc15 0) ((1) (let ((sc16 arg-13)) (if (null? sc16) (vector 1 ) (let ((e-7 (car sc16))) (let ((e-8 (cdr sc16))) (let ((sc17 e-7)) (if (null? sc17) (vector 1 ) (let ((e-12 (cdr sc17))) (let ((sc18 e-12)) (if (null? sc18) (vector 1 ) (let ((e-16 (cdr sc18))) (let ((sc19 e-16)) (case (vector-ref sc19 0) ((28) (let ((e-17 (vector-ref sc19 1))) (let ((e-18 (vector-ref sc19 2))) (let ((sc20 e-18)) (case (vector-ref sc20 0) ((12) (let ((e-19 (vector-ref sc20 1))) (let ((sc21 e-8)) (if (null? sc21) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-33 (cdr sc14))) (let ((sc15 e-33)) (case (vector-ref sc15 0) ((28) (let ((e-34 (vector-ref sc15 1))) (let ((e-35 (vector-ref sc15 2))) (let ((sc16 e-35)) (case (vector-ref sc16 0) ((11) (let ((e-36 (vector-ref sc16 1))) (let ((sc17 e-25)) (if (null? sc17) (vector 2 (vector 28 e-34 (vector 11 e-36))) (let ((sc18 e-3)) (case (vector-ref sc18 0) ((1) (let ((sc19 arg-13)) (if (null? sc19) (vector 1 ) (let ((e-7 (car sc19))) (let ((e-8 (cdr sc19))) (let ((sc20 e-7)) (if (null? sc20) (vector 1 ) (let ((e-12 (cdr sc20))) (let ((sc21 e-12)) (if (null? sc21) (vector 1 ) (let ((e-16 (cdr sc21))) (let ((sc22 e-16)) (case (vector-ref sc22 0) ((28) (let ((e-17 (vector-ref sc22 1))) (let ((e-18 (vector-ref sc22 2))) (let ((sc23 e-18)) (case (vector-ref sc23 0) ((12) (let ((e-19 (vector-ref sc23 1))) (let ((sc24 e-8)) (if (null? sc24) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))(else (let ((sc16 e-3)) (case (vector-ref sc16 0) ((1) (let ((sc17 arg-13)) (if (null? sc17) (vector 1 ) (let ((e-7 (car sc17))) (let ((e-8 (cdr sc17))) (let ((sc18 e-7)) (if (null? sc18) (vector 1 ) (let ((e-12 (cdr sc18))) (let ((sc19 e-12)) (if (null? sc19) (vector 1 ) (let ((e-16 (cdr sc19))) (let ((sc20 e-16)) (case (vector-ref sc20 0) ((28) (let ((e-17 (vector-ref sc20 1))) (let ((e-18 (vector-ref sc20 2))) (let ((sc21 e-18)) (case (vector-ref sc21 0) ((12) (let ((e-19 (vector-ref sc21 1))) (let ((sc22 e-8)) (if (null? sc22) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))))(else (let ((sc15 e-3)) (case (vector-ref sc15 0) ((1) (let ((sc16 arg-13)) (if (null? sc16) (vector 1 ) (let ((e-7 (car sc16))) (let ((e-8 (cdr sc16))) (let ((sc17 e-7)) (if (null? sc17) (vector 1 ) (let ((e-12 (cdr sc17))) (let ((sc18 e-12)) (if (null? sc18) (vector 1 ) (let ((e-16 (cdr sc18))) (let ((sc19 e-16)) (case (vector-ref sc19 0) ((28) (let ((e-17 (vector-ref sc19 1))) (let ((e-18 (vector-ref sc19 2))) (let ((sc20 e-18)) (case (vector-ref sc20 0) ((12) (let ((e-19 (vector-ref sc20 1))) (let ((sc21 e-8)) (if (null? sc21) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))))))))))))(else (let ((sc11 e-3)) (case (vector-ref sc11 0) ((1) (let ((sc12 arg-13)) (if (null? sc12) (vector 1 ) (let ((e-7 (car sc12))) (let ((e-8 (cdr sc12))) (let ((sc13 e-7)) (if (null? sc13) (vector 1 ) (let ((e-12 (cdr sc13))) (let ((sc14 e-12)) (if (null? sc14) (vector 1 ) (let ((e-16 (cdr sc14))) (let ((sc15 e-16)) (case (vector-ref sc15 0) ((28) (let ((e-17 (vector-ref sc15 1))) (let ((e-18 (vector-ref sc15 2))) (let ((sc16 e-18)) (case (vector-ref sc16 0) ((12) (let ((e-19 (vector-ref sc16 1))) (let ((sc17 e-8)) (if (null? sc17) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))))))))))))(else (let ((sc10 e-2)) (case (vector-ref sc10 0) ((1) (let ((sc11 arg-13)) (if (null? sc11) (let ((sc12 e-3)) (case (vector-ref sc12 0) ((1) (let ((sc13 arg-13)) (if (null? sc13) (vector 1 ) (let ((e-7 (car sc13))) (let ((e-8 (cdr sc13))) (let ((sc14 e-7)) (if (null? sc14) (vector 1 ) (let ((e-12 (cdr sc14))) (let ((sc15 e-12)) (if (null? sc15) (vector 1 ) (let ((e-16 (cdr sc15))) (let ((sc16 e-16)) (case (vector-ref sc16 0) ((28) (let ((e-17 (vector-ref sc16 1))) (let ((e-18 (vector-ref sc16 2))) (let ((sc17 e-18)) (case (vector-ref sc17 0) ((12) (let ((e-19 (vector-ref sc17 1))) (let ((sc18 e-8)) (if (null? sc18) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-24 (car sc11))) (let ((e-25 (cdr sc11))) (let ((sc12 e-24)) (if (null? sc12) (let ((sc13 e-3)) (case (vector-ref sc13 0) ((1) (let ((sc14 arg-13)) (if (null? sc14) (vector 1 ) (let ((e-7 (car sc14))) (let ((e-8 (cdr sc14))) (let ((sc15 e-7)) (if (null? sc15) (vector 1 ) (let ((e-12 (cdr sc15))) (let ((sc16 e-12)) (if (null? sc16) (vector 1 ) (let ((e-16 (cdr sc16))) (let ((sc17 e-16)) (case (vector-ref sc17 0) ((28) (let ((e-17 (vector-ref sc17 1))) (let ((e-18 (vector-ref sc17 2))) (let ((sc18 e-18)) (case (vector-ref sc18 0) ((12) (let ((e-19 (vector-ref sc18 1))) (let ((sc19 e-8)) (if (null? sc19) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-29 (cdr sc12))) (let ((sc13 e-29)) (if (null? sc13) (let ((sc14 e-3)) (case (vector-ref sc14 0) ((1) (let ((sc15 arg-13)) (if (null? sc15) (vector 1 ) (let ((e-7 (car sc15))) (let ((e-8 (cdr sc15))) (let ((sc16 e-7)) (if (null? sc16) (vector 1 ) (let ((e-12 (cdr sc16))) (let ((sc17 e-12)) (if (null? sc17) (vector 1 ) (let ((e-16 (cdr sc17))) (let ((sc18 e-16)) (case (vector-ref sc18 0) ((28) (let ((e-17 (vector-ref sc18 1))) (let ((e-18 (vector-ref sc18 2))) (let ((sc19 e-18)) (case (vector-ref sc19 0) ((12) (let ((e-19 (vector-ref sc19 1))) (let ((sc20 e-8)) (if (null? sc20) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-33 (cdr sc13))) (let ((sc14 e-33)) (case (vector-ref sc14 0) ((28) (let ((e-34 (vector-ref sc14 1))) (let ((e-35 (vector-ref sc14 2))) (let ((sc15 e-35)) (case (vector-ref sc15 0) ((11) (let ((e-36 (vector-ref sc15 1))) (let ((sc16 e-25)) (if (null? sc16) (vector 2 (vector 28 e-34 (vector 11 e-36))) (let ((sc17 e-3)) (case (vector-ref sc17 0) ((1) (let ((sc18 arg-13)) (if (null? sc18) (vector 1 ) (let ((e-7 (car sc18))) (let ((e-8 (cdr sc18))) (let ((sc19 e-7)) (if (null? sc19) (vector 1 ) (let ((e-12 (cdr sc19))) (let ((sc20 e-12)) (if (null? sc20) (vector 1 ) (let ((e-16 (cdr sc20))) (let ((sc21 e-16)) (case (vector-ref sc21 0) ((28) (let ((e-17 (vector-ref sc21 1))) (let ((e-18 (vector-ref sc21 2))) (let ((sc22 e-18)) (case (vector-ref sc22 0) ((12) (let ((e-19 (vector-ref sc22 1))) (let ((sc23 e-8)) (if (null? sc23) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))(else (let ((sc15 e-3)) (case (vector-ref sc15 0) ((1) (let ((sc16 arg-13)) (if (null? sc16) (vector 1 ) (let ((e-7 (car sc16))) (let ((e-8 (cdr sc16))) (let ((sc17 e-7)) (if (null? sc17) (vector 1 ) (let ((e-12 (cdr sc17))) (let ((sc18 e-12)) (if (null? sc18) (vector 1 ) (let ((e-16 (cdr sc18))) (let ((sc19 e-16)) (case (vector-ref sc19 0) ((28) (let ((e-17 (vector-ref sc19 1))) (let ((e-18 (vector-ref sc19 2))) (let ((sc20 e-18)) (case (vector-ref sc20 0) ((12) (let ((e-19 (vector-ref sc20 1))) (let ((sc21 e-8)) (if (null? sc21) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))))(else (let ((sc14 e-3)) (case (vector-ref sc14 0) ((1) (let ((sc15 arg-13)) (if (null? sc15) (vector 1 ) (let ((e-7 (car sc15))) (let ((e-8 (cdr sc15))) (let ((sc16 e-7)) (if (null? sc16) (vector 1 ) (let ((e-12 (cdr sc16))) (let ((sc17 e-12)) (if (null? sc17) (vector 1 ) (let ((e-16 (cdr sc17))) (let ((sc18 e-16)) (case (vector-ref sc18 0) ((28) (let ((e-17 (vector-ref sc18 1))) (let ((e-18 (vector-ref sc18 2))) (let ((sc19 e-18)) (case (vector-ref sc19 0) ((12) (let ((e-19 (vector-ref sc19 1))) (let ((sc20 e-8)) (if (null? sc20) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))))))))))))(else (let ((sc10 e-3)) (case (vector-ref sc10 0) ((1) (let ((sc11 arg-13)) (if (null? sc11) (vector 1 ) (let ((e-7 (car sc11))) (let ((e-8 (cdr sc11))) (let ((sc12 e-7)) (if (null? sc12) (vector 1 ) (let ((e-12 (cdr sc12))) (let ((sc13 e-12)) (if (null? sc13) (vector 1 ) (let ((e-16 (cdr sc13))) (let ((sc14 e-16)) (case (vector-ref sc14 0) ((28) (let ((e-17 (vector-ref sc14 1))) (let ((e-18 (vector-ref sc14 2))) (let ((sc15 e-18)) (case (vector-ref sc15 0) ((12) (let ((e-19 (vector-ref sc15 1))) (let ((sc16 e-8)) (if (null? sc16) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))))))))))))))))))))(else (let ((sc6 e-2)) (case (vector-ref sc6 0) ((1) (let ((sc7 arg-13)) (if (null? sc7) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((1) (let ((sc9 arg-13)) (if (null? sc9) (vector 1 ) (let ((e-7 (car sc9))) (let ((e-8 (cdr sc9))) (let ((sc10 e-7)) (if (null? sc10) (vector 1 ) (let ((e-12 (cdr sc10))) (let ((sc11 e-12)) (if (null? sc11) (vector 1 ) (let ((e-16 (cdr sc11))) (let ((sc12 e-16)) (case (vector-ref sc12 0) ((28) (let ((e-17 (vector-ref sc12 1))) (let ((e-18 (vector-ref sc12 2))) (let ((sc13 e-18)) (case (vector-ref sc13 0) ((12) (let ((e-19 (vector-ref sc13 1))) (let ((sc14 e-8)) (if (null? sc14) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-24 (car sc7))) (let ((e-25 (cdr sc7))) (let ((sc8 e-24)) (if (null? sc8) (let ((sc9 e-3)) (case (vector-ref sc9 0) ((1) (let ((sc10 arg-13)) (if (null? sc10) (vector 1 ) (let ((e-7 (car sc10))) (let ((e-8 (cdr sc10))) (let ((sc11 e-7)) (if (null? sc11) (vector 1 ) (let ((e-12 (cdr sc11))) (let ((sc12 e-12)) (if (null? sc12) (vector 1 ) (let ((e-16 (cdr sc12))) (let ((sc13 e-16)) (case (vector-ref sc13 0) ((28) (let ((e-17 (vector-ref sc13 1))) (let ((e-18 (vector-ref sc13 2))) (let ((sc14 e-18)) (case (vector-ref sc14 0) ((12) (let ((e-19 (vector-ref sc14 1))) (let ((sc15 e-8)) (if (null? sc15) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-29 (cdr sc8))) (let ((sc9 e-29)) (if (null? sc9) (let ((sc10 e-3)) (case (vector-ref sc10 0) ((1) (let ((sc11 arg-13)) (if (null? sc11) (vector 1 ) (let ((e-7 (car sc11))) (let ((e-8 (cdr sc11))) (let ((sc12 e-7)) (if (null? sc12) (vector 1 ) (let ((e-12 (cdr sc12))) (let ((sc13 e-12)) (if (null? sc13) (vector 1 ) (let ((e-16 (cdr sc13))) (let ((sc14 e-16)) (case (vector-ref sc14 0) ((28) (let ((e-17 (vector-ref sc14 1))) (let ((e-18 (vector-ref sc14 2))) (let ((sc15 e-18)) (case (vector-ref sc15 0) ((12) (let ((e-19 (vector-ref sc15 1))) (let ((sc16 e-8)) (if (null? sc16) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-33 (cdr sc9))) (let ((sc10 e-33)) (case (vector-ref sc10 0) ((28) (let ((e-34 (vector-ref sc10 1))) (let ((e-35 (vector-ref sc10 2))) (let ((sc11 e-35)) (case (vector-ref sc11 0) ((11) (let ((e-36 (vector-ref sc11 1))) (let ((sc12 e-25)) (if (null? sc12) (vector 2 (vector 28 e-34 (vector 11 e-36))) (let ((sc13 e-3)) (case (vector-ref sc13 0) ((1) (let ((sc14 arg-13)) (if (null? sc14) (vector 1 ) (let ((e-7 (car sc14))) (let ((e-8 (cdr sc14))) (let ((sc15 e-7)) (if (null? sc15) (vector 1 ) (let ((e-12 (cdr sc15))) (let ((sc16 e-12)) (if (null? sc16) (vector 1 ) (let ((e-16 (cdr sc16))) (let ((sc17 e-16)) (case (vector-ref sc17 0) ((28) (let ((e-17 (vector-ref sc17 1))) (let ((e-18 (vector-ref sc17 2))) (let ((sc18 e-18)) (case (vector-ref sc18 0) ((12) (let ((e-19 (vector-ref sc18 1))) (let ((sc19 e-8)) (if (null? sc19) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))(else (let ((sc11 e-3)) (case (vector-ref sc11 0) ((1) (let ((sc12 arg-13)) (if (null? sc12) (vector 1 ) (let ((e-7 (car sc12))) (let ((e-8 (cdr sc12))) (let ((sc13 e-7)) (if (null? sc13) (vector 1 ) (let ((e-12 (cdr sc13))) (let ((sc14 e-12)) (if (null? sc14) (vector 1 ) (let ((e-16 (cdr sc14))) (let ((sc15 e-16)) (case (vector-ref sc15 0) ((28) (let ((e-17 (vector-ref sc15 1))) (let ((e-18 (vector-ref sc15 2))) (let ((sc16 e-18)) (case (vector-ref sc16 0) ((12) (let ((e-19 (vector-ref sc16 1))) (let ((sc17 e-8)) (if (null? sc17) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))))(else (let ((sc10 e-3)) (case (vector-ref sc10 0) ((1) (let ((sc11 arg-13)) (if (null? sc11) (vector 1 ) (let ((e-7 (car sc11))) (let ((e-8 (cdr sc11))) (let ((sc12 e-7)) (if (null? sc12) (vector 1 ) (let ((e-12 (cdr sc12))) (let ((sc13 e-12)) (if (null? sc13) (vector 1 ) (let ((e-16 (cdr sc13))) (let ((sc14 e-16)) (case (vector-ref sc14 0) ((28) (let ((e-17 (vector-ref sc14 1))) (let ((e-18 (vector-ref sc14 2))) (let ((sc15 e-18)) (case (vector-ref sc15 0) ((12) (let ((e-19 (vector-ref sc15 1))) (let ((sc16 e-8)) (if (null? sc16) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))))))))))))(else (let ((sc6 e-3)) (case (vector-ref sc6 0) ((1) (let ((sc7 arg-13)) (if (null? sc7) (vector 1 ) (let ((e-7 (car sc7))) (let ((e-8 (cdr sc7))) (let ((sc8 e-7)) (if (null? sc8) (vector 1 ) (let ((e-12 (cdr sc8))) (let ((sc9 e-12)) (if (null? sc9) (vector 1 ) (let ((e-16 (cdr sc9))) (let ((sc10 e-16)) (case (vector-ref sc10 0) ((28) (let ((e-17 (vector-ref sc10 1))) (let ((e-18 (vector-ref sc10 2))) (let ((sc11 e-18)) (case (vector-ref sc11 0) ((12) (let ((e-19 (vector-ref sc11 1))) (let ((sc12 e-8)) (if (null? sc12) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))))))))))(else (let ((sc5 e-1)) (case (vector-ref sc5 0) ((1) (let ((sc6 arg-13)) (if (null? sc6) (let ((sc7 e-2)) (case (vector-ref sc7 0) ((1) (let ((sc8 arg-13)) (if (null? sc8) (let ((sc9 e-3)) (case (vector-ref sc9 0) ((1) (let ((sc10 arg-13)) (if (null? sc10) (vector 1 ) (let ((e-7 (car sc10))) (let ((e-8 (cdr sc10))) (let ((sc11 e-7)) (if (null? sc11) (vector 1 ) (let ((e-12 (cdr sc11))) (let ((sc12 e-12)) (if (null? sc12) (vector 1 ) (let ((e-16 (cdr sc12))) (let ((sc13 e-16)) (case (vector-ref sc13 0) ((28) (let ((e-17 (vector-ref sc13 1))) (let ((e-18 (vector-ref sc13 2))) (let ((sc14 e-18)) (case (vector-ref sc14 0) ((12) (let ((e-19 (vector-ref sc14 1))) (let ((sc15 e-8)) (if (null? sc15) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-24 (car sc8))) (let ((e-25 (cdr sc8))) (let ((sc9 e-24)) (if (null? sc9) (let ((sc10 e-3)) (case (vector-ref sc10 0) ((1) (let ((sc11 arg-13)) (if (null? sc11) (vector 1 ) (let ((e-7 (car sc11))) (let ((e-8 (cdr sc11))) (let ((sc12 e-7)) (if (null? sc12) (vector 1 ) (let ((e-12 (cdr sc12))) (let ((sc13 e-12)) (if (null? sc13) (vector 1 ) (let ((e-16 (cdr sc13))) (let ((sc14 e-16)) (case (vector-ref sc14 0) ((28) (let ((e-17 (vector-ref sc14 1))) (let ((e-18 (vector-ref sc14 2))) (let ((sc15 e-18)) (case (vector-ref sc15 0) ((12) (let ((e-19 (vector-ref sc15 1))) (let ((sc16 e-8)) (if (null? sc16) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-29 (cdr sc9))) (let ((sc10 e-29)) (if (null? sc10) (let ((sc11 e-3)) (case (vector-ref sc11 0) ((1) (let ((sc12 arg-13)) (if (null? sc12) (vector 1 ) (let ((e-7 (car sc12))) (let ((e-8 (cdr sc12))) (let ((sc13 e-7)) (if (null? sc13) (vector 1 ) (let ((e-12 (cdr sc13))) (let ((sc14 e-12)) (if (null? sc14) (vector 1 ) (let ((e-16 (cdr sc14))) (let ((sc15 e-16)) (case (vector-ref sc15 0) ((28) (let ((e-17 (vector-ref sc15 1))) (let ((e-18 (vector-ref sc15 2))) (let ((sc16 e-18)) (case (vector-ref sc16 0) ((12) (let ((e-19 (vector-ref sc16 1))) (let ((sc17 e-8)) (if (null? sc17) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-33 (cdr sc10))) (let ((sc11 e-33)) (case (vector-ref sc11 0) ((28) (let ((e-34 (vector-ref sc11 1))) (let ((e-35 (vector-ref sc11 2))) (let ((sc12 e-35)) (case (vector-ref sc12 0) ((11) (let ((e-36 (vector-ref sc12 1))) (let ((sc13 e-25)) (if (null? sc13) (vector 2 (vector 28 e-34 (vector 11 e-36))) (let ((sc14 e-3)) (case (vector-ref sc14 0) ((1) (let ((sc15 arg-13)) (if (null? sc15) (vector 1 ) (let ((e-7 (car sc15))) (let ((e-8 (cdr sc15))) (let ((sc16 e-7)) (if (null? sc16) (vector 1 ) (let ((e-12 (cdr sc16))) (let ((sc17 e-12)) (if (null? sc17) (vector 1 ) (let ((e-16 (cdr sc17))) (let ((sc18 e-16)) (case (vector-ref sc18 0) ((28) (let ((e-17 (vector-ref sc18 1))) (let ((e-18 (vector-ref sc18 2))) (let ((sc19 e-18)) (case (vector-ref sc19 0) ((12) (let ((e-19 (vector-ref sc19 1))) (let ((sc20 e-8)) (if (null? sc20) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))(else (let ((sc12 e-3)) (case (vector-ref sc12 0) ((1) (let ((sc13 arg-13)) (if (null? sc13) (vector 1 ) (let ((e-7 (car sc13))) (let ((e-8 (cdr sc13))) (let ((sc14 e-7)) (if (null? sc14) (vector 1 ) (let ((e-12 (cdr sc14))) (let ((sc15 e-12)) (if (null? sc15) (vector 1 ) (let ((e-16 (cdr sc15))) (let ((sc16 e-16)) (case (vector-ref sc16 0) ((28) (let ((e-17 (vector-ref sc16 1))) (let ((e-18 (vector-ref sc16 2))) (let ((sc17 e-18)) (case (vector-ref sc17 0) ((12) (let ((e-19 (vector-ref sc17 1))) (let ((sc18 e-8)) (if (null? sc18) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))))(else (let ((sc11 e-3)) (case (vector-ref sc11 0) ((1) (let ((sc12 arg-13)) (if (null? sc12) (vector 1 ) (let ((e-7 (car sc12))) (let ((e-8 (cdr sc12))) (let ((sc13 e-7)) (if (null? sc13) (vector 1 ) (let ((e-12 (cdr sc13))) (let ((sc14 e-12)) (if (null? sc14) (vector 1 ) (let ((e-16 (cdr sc14))) (let ((sc15 e-16)) (case (vector-ref sc15 0) ((28) (let ((e-17 (vector-ref sc15 1))) (let ((e-18 (vector-ref sc15 2))) (let ((sc16 e-18)) (case (vector-ref sc16 0) ((12) (let ((e-19 (vector-ref sc16 1))) (let ((sc17 e-8)) (if (null? sc17) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))))))))))))(else (let ((sc7 e-3)) (case (vector-ref sc7 0) ((1) (let ((sc8 arg-13)) (if (null? sc8) (vector 1 ) (let ((e-7 (car sc8))) (let ((e-8 (cdr sc8))) (let ((sc9 e-7)) (if (null? sc9) (vector 1 ) (let ((e-12 (cdr sc9))) (let ((sc10 e-12)) (if (null? sc10) (vector 1 ) (let ((e-16 (cdr sc10))) (let ((sc11 e-16)) (case (vector-ref sc11 0) ((28) (let ((e-17 (vector-ref sc11 1))) (let ((e-18 (vector-ref sc11 2))) (let ((sc12 e-18)) (case (vector-ref sc12 0) ((12) (let ((e-19 (vector-ref sc12 1))) (let ((sc13 e-8)) (if (null? sc13) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))) (let ((e-41 (car sc6))) (let ((e-42 (cdr sc6))) (let ((sc7 e-41)) (if (null? sc7) (let ((sc8 e-2)) (case (vector-ref sc8 0) ((1) (let ((sc9 arg-13)) (if (null? sc9) (let ((sc10 e-3)) (case (vector-ref sc10 0) ((1) (let ((sc11 arg-13)) (if (null? sc11) (vector 1 ) (let ((e-7 (car sc11))) (let ((e-8 (cdr sc11))) (let ((sc12 e-7)) (if (null? sc12) (vector 1 ) (let ((e-12 (cdr sc12))) (let ((sc13 e-12)) (if (null? sc13) (vector 1 ) (let ((e-16 (cdr sc13))) (let ((sc14 e-16)) (case (vector-ref sc14 0) ((28) (let ((e-17 (vector-ref sc14 1))) (let ((e-18 (vector-ref sc14 2))) (let ((sc15 e-18)) (case (vector-ref sc15 0) ((12) (let ((e-19 (vector-ref sc15 1))) (let ((sc16 e-8)) (if (null? sc16) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-24 (car sc9))) (let ((e-25 (cdr sc9))) (let ((sc10 e-24)) (if (null? sc10) (let ((sc11 e-3)) (case (vector-ref sc11 0) ((1) (let ((sc12 arg-13)) (if (null? sc12) (vector 1 ) (let ((e-7 (car sc12))) (let ((e-8 (cdr sc12))) (let ((sc13 e-7)) (if (null? sc13) (vector 1 ) (let ((e-12 (cdr sc13))) (let ((sc14 e-12)) (if (null? sc14) (vector 1 ) (let ((e-16 (cdr sc14))) (let ((sc15 e-16)) (case (vector-ref sc15 0) ((28) (let ((e-17 (vector-ref sc15 1))) (let ((e-18 (vector-ref sc15 2))) (let ((sc16 e-18)) (case (vector-ref sc16 0) ((12) (let ((e-19 (vector-ref sc16 1))) (let ((sc17 e-8)) (if (null? sc17) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-29 (cdr sc10))) (let ((sc11 e-29)) (if (null? sc11) (let ((sc12 e-3)) (case (vector-ref sc12 0) ((1) (let ((sc13 arg-13)) (if (null? sc13) (vector 1 ) (let ((e-7 (car sc13))) (let ((e-8 (cdr sc13))) (let ((sc14 e-7)) (if (null? sc14) (vector 1 ) (let ((e-12 (cdr sc14))) (let ((sc15 e-12)) (if (null? sc15) (vector 1 ) (let ((e-16 (cdr sc15))) (let ((sc16 e-16)) (case (vector-ref sc16 0) ((28) (let ((e-17 (vector-ref sc16 1))) (let ((e-18 (vector-ref sc16 2))) (let ((sc17 e-18)) (case (vector-ref sc17 0) ((12) (let ((e-19 (vector-ref sc17 1))) (let ((sc18 e-8)) (if (null? sc18) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-33 (cdr sc11))) (let ((sc12 e-33)) (case (vector-ref sc12 0) ((28) (let ((e-34 (vector-ref sc12 1))) (let ((e-35 (vector-ref sc12 2))) (let ((sc13 e-35)) (case (vector-ref sc13 0) ((11) (let ((e-36 (vector-ref sc13 1))) (let ((sc14 e-25)) (if (null? sc14) (vector 2 (vector 28 e-34 (vector 11 e-36))) (let ((sc15 e-3)) (case (vector-ref sc15 0) ((1) (let ((sc16 arg-13)) (if (null? sc16) (vector 1 ) (let ((e-7 (car sc16))) (let ((e-8 (cdr sc16))) (let ((sc17 e-7)) (if (null? sc17) (vector 1 ) (let ((e-12 (cdr sc17))) (let ((sc18 e-12)) (if (null? sc18) (vector 1 ) (let ((e-16 (cdr sc18))) (let ((sc19 e-16)) (case (vector-ref sc19 0) ((28) (let ((e-17 (vector-ref sc19 1))) (let ((e-18 (vector-ref sc19 2))) (let ((sc20 e-18)) (case (vector-ref sc20 0) ((12) (let ((e-19 (vector-ref sc20 1))) (let ((sc21 e-8)) (if (null? sc21) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))(else (let ((sc13 e-3)) (case (vector-ref sc13 0) ((1) (let ((sc14 arg-13)) (if (null? sc14) (vector 1 ) (let ((e-7 (car sc14))) (let ((e-8 (cdr sc14))) (let ((sc15 e-7)) (if (null? sc15) (vector 1 ) (let ((e-12 (cdr sc15))) (let ((sc16 e-12)) (if (null? sc16) (vector 1 ) (let ((e-16 (cdr sc16))) (let ((sc17 e-16)) (case (vector-ref sc17 0) ((28) (let ((e-17 (vector-ref sc17 1))) (let ((e-18 (vector-ref sc17 2))) (let ((sc18 e-18)) (case (vector-ref sc18 0) ((12) (let ((e-19 (vector-ref sc18 1))) (let ((sc19 e-8)) (if (null? sc19) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))))(else (let ((sc12 e-3)) (case (vector-ref sc12 0) ((1) (let ((sc13 arg-13)) (if (null? sc13) (vector 1 ) (let ((e-7 (car sc13))) (let ((e-8 (cdr sc13))) (let ((sc14 e-7)) (if (null? sc14) (vector 1 ) (let ((e-12 (cdr sc14))) (let ((sc15 e-12)) (if (null? sc15) (vector 1 ) (let ((e-16 (cdr sc15))) (let ((sc16 e-16)) (case (vector-ref sc16 0) ((28) (let ((e-17 (vector-ref sc16 1))) (let ((e-18 (vector-ref sc16 2))) (let ((sc17 e-18)) (case (vector-ref sc17 0) ((12) (let ((e-19 (vector-ref sc17 1))) (let ((sc18 e-8)) (if (null? sc18) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))))))))))))(else (let ((sc8 e-3)) (case (vector-ref sc8 0) ((1) (let ((sc9 arg-13)) (if (null? sc9) (vector 1 ) (let ((e-7 (car sc9))) (let ((e-8 (cdr sc9))) (let ((sc10 e-7)) (if (null? sc10) (vector 1 ) (let ((e-12 (cdr sc10))) (let ((sc11 e-12)) (if (null? sc11) (vector 1 ) (let ((e-16 (cdr sc11))) (let ((sc12 e-16)) (case (vector-ref sc12 0) ((28) (let ((e-17 (vector-ref sc12 1))) (let ((e-18 (vector-ref sc12 2))) (let ((sc13 e-18)) (case (vector-ref sc13 0) ((12) (let ((e-19 (vector-ref sc13 1))) (let ((sc14 e-8)) (if (null? sc14) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))) (let ((e-46 (cdr sc7))) (let ((sc8 e-46)) (if (null? sc8) (let ((sc9 e-2)) (case (vector-ref sc9 0) ((1) (let ((sc10 arg-13)) (if (null? sc10) (let ((sc11 e-3)) (case (vector-ref sc11 0) ((1) (let ((sc12 arg-13)) (if (null? sc12) (vector 1 ) (let ((e-7 (car sc12))) (let ((e-8 (cdr sc12))) (let ((sc13 e-7)) (if (null? sc13) (vector 1 ) (let ((e-12 (cdr sc13))) (let ((sc14 e-12)) (if (null? sc14) (vector 1 ) (let ((e-16 (cdr sc14))) (let ((sc15 e-16)) (case (vector-ref sc15 0) ((28) (let ((e-17 (vector-ref sc15 1))) (let ((e-18 (vector-ref sc15 2))) (let ((sc16 e-18)) (case (vector-ref sc16 0) ((12) (let ((e-19 (vector-ref sc16 1))) (let ((sc17 e-8)) (if (null? sc17) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-24 (car sc10))) (let ((e-25 (cdr sc10))) (let ((sc11 e-24)) (if (null? sc11) (let ((sc12 e-3)) (case (vector-ref sc12 0) ((1) (let ((sc13 arg-13)) (if (null? sc13) (vector 1 ) (let ((e-7 (car sc13))) (let ((e-8 (cdr sc13))) (let ((sc14 e-7)) (if (null? sc14) (vector 1 ) (let ((e-12 (cdr sc14))) (let ((sc15 e-12)) (if (null? sc15) (vector 1 ) (let ((e-16 (cdr sc15))) (let ((sc16 e-16)) (case (vector-ref sc16 0) ((28) (let ((e-17 (vector-ref sc16 1))) (let ((e-18 (vector-ref sc16 2))) (let ((sc17 e-18)) (case (vector-ref sc17 0) ((12) (let ((e-19 (vector-ref sc17 1))) (let ((sc18 e-8)) (if (null? sc18) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-29 (cdr sc11))) (let ((sc12 e-29)) (if (null? sc12) (let ((sc13 e-3)) (case (vector-ref sc13 0) ((1) (let ((sc14 arg-13)) (if (null? sc14) (vector 1 ) (let ((e-7 (car sc14))) (let ((e-8 (cdr sc14))) (let ((sc15 e-7)) (if (null? sc15) (vector 1 ) (let ((e-12 (cdr sc15))) (let ((sc16 e-12)) (if (null? sc16) (vector 1 ) (let ((e-16 (cdr sc16))) (let ((sc17 e-16)) (case (vector-ref sc17 0) ((28) (let ((e-17 (vector-ref sc17 1))) (let ((e-18 (vector-ref sc17 2))) (let ((sc18 e-18)) (case (vector-ref sc18 0) ((12) (let ((e-19 (vector-ref sc18 1))) (let ((sc19 e-8)) (if (null? sc19) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-33 (cdr sc12))) (let ((sc13 e-33)) (case (vector-ref sc13 0) ((28) (let ((e-34 (vector-ref sc13 1))) (let ((e-35 (vector-ref sc13 2))) (let ((sc14 e-35)) (case (vector-ref sc14 0) ((11) (let ((e-36 (vector-ref sc14 1))) (let ((sc15 e-25)) (if (null? sc15) (vector 2 (vector 28 e-34 (vector 11 e-36))) (let ((sc16 e-3)) (case (vector-ref sc16 0) ((1) (let ((sc17 arg-13)) (if (null? sc17) (vector 1 ) (let ((e-7 (car sc17))) (let ((e-8 (cdr sc17))) (let ((sc18 e-7)) (if (null? sc18) (vector 1 ) (let ((e-12 (cdr sc18))) (let ((sc19 e-12)) (if (null? sc19) (vector 1 ) (let ((e-16 (cdr sc19))) (let ((sc20 e-16)) (case (vector-ref sc20 0) ((28) (let ((e-17 (vector-ref sc20 1))) (let ((e-18 (vector-ref sc20 2))) (let ((sc21 e-18)) (case (vector-ref sc21 0) ((12) (let ((e-19 (vector-ref sc21 1))) (let ((sc22 e-8)) (if (null? sc22) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))(else (let ((sc14 e-3)) (case (vector-ref sc14 0) ((1) (let ((sc15 arg-13)) (if (null? sc15) (vector 1 ) (let ((e-7 (car sc15))) (let ((e-8 (cdr sc15))) (let ((sc16 e-7)) (if (null? sc16) (vector 1 ) (let ((e-12 (cdr sc16))) (let ((sc17 e-12)) (if (null? sc17) (vector 1 ) (let ((e-16 (cdr sc17))) (let ((sc18 e-16)) (case (vector-ref sc18 0) ((28) (let ((e-17 (vector-ref sc18 1))) (let ((e-18 (vector-ref sc18 2))) (let ((sc19 e-18)) (case (vector-ref sc19 0) ((12) (let ((e-19 (vector-ref sc19 1))) (let ((sc20 e-8)) (if (null? sc20) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))))(else (let ((sc13 e-3)) (case (vector-ref sc13 0) ((1) (let ((sc14 arg-13)) (if (null? sc14) (vector 1 ) (let ((e-7 (car sc14))) (let ((e-8 (cdr sc14))) (let ((sc15 e-7)) (if (null? sc15) (vector 1 ) (let ((e-12 (cdr sc15))) (let ((sc16 e-12)) (if (null? sc16) (vector 1 ) (let ((e-16 (cdr sc16))) (let ((sc17 e-16)) (case (vector-ref sc17 0) ((28) (let ((e-17 (vector-ref sc17 1))) (let ((e-18 (vector-ref sc17 2))) (let ((sc18 e-18)) (case (vector-ref sc18 0) ((12) (let ((e-19 (vector-ref sc18 1))) (let ((sc19 e-8)) (if (null? sc19) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))))))))))))(else (let ((sc9 e-3)) (case (vector-ref sc9 0) ((1) (let ((sc10 arg-13)) (if (null? sc10) (vector 1 ) (let ((e-7 (car sc10))) (let ((e-8 (cdr sc10))) (let ((sc11 e-7)) (if (null? sc11) (vector 1 ) (let ((e-12 (cdr sc11))) (let ((sc12 e-12)) (if (null? sc12) (vector 1 ) (let ((e-16 (cdr sc12))) (let ((sc13 e-16)) (case (vector-ref sc13 0) ((28) (let ((e-17 (vector-ref sc13 1))) (let ((e-18 (vector-ref sc13 2))) (let ((sc14 e-18)) (case (vector-ref sc14 0) ((12) (let ((e-19 (vector-ref sc14 1))) (let ((sc15 e-8)) (if (null? sc15) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))) (let ((e-50 (cdr sc8))) (let ((sc9 e-50)) (case (vector-ref sc9 0) ((28) (let ((e-51 (vector-ref sc9 1))) (let ((e-52 (vector-ref sc9 2))) (let ((sc10 e-52)) (case (vector-ref sc10 0) ((10) (let ((e-53 (vector-ref sc10 1))) (let ((sc11 e-42)) (if (null? sc11) (vector 2 (vector 28 e-51 (vector 10 e-53))) (let ((sc12 e-2)) (case (vector-ref sc12 0) ((1) (let ((sc13 arg-13)) (if (null? sc13) (let ((sc14 e-3)) (case (vector-ref sc14 0) ((1) (let ((sc15 arg-13)) (if (null? sc15) (vector 1 ) (let ((e-7 (car sc15))) (let ((e-8 (cdr sc15))) (let ((sc16 e-7)) (if (null? sc16) (vector 1 ) (let ((e-12 (cdr sc16))) (let ((sc17 e-12)) (if (null? sc17) (vector 1 ) (let ((e-16 (cdr sc17))) (let ((sc18 e-16)) (case (vector-ref sc18 0) ((28) (let ((e-17 (vector-ref sc18 1))) (let ((e-18 (vector-ref sc18 2))) (let ((sc19 e-18)) (case (vector-ref sc19 0) ((12) (let ((e-19 (vector-ref sc19 1))) (let ((sc20 e-8)) (if (null? sc20) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-24 (car sc13))) (let ((e-25 (cdr sc13))) (let ((sc14 e-24)) (if (null? sc14) (let ((sc15 e-3)) (case (vector-ref sc15 0) ((1) (let ((sc16 arg-13)) (if (null? sc16) (vector 1 ) (let ((e-7 (car sc16))) (let ((e-8 (cdr sc16))) (let ((sc17 e-7)) (if (null? sc17) (vector 1 ) (let ((e-12 (cdr sc17))) (let ((sc18 e-12)) (if (null? sc18) (vector 1 ) (let ((e-16 (cdr sc18))) (let ((sc19 e-16)) (case (vector-ref sc19 0) ((28) (let ((e-17 (vector-ref sc19 1))) (let ((e-18 (vector-ref sc19 2))) (let ((sc20 e-18)) (case (vector-ref sc20 0) ((12) (let ((e-19 (vector-ref sc20 1))) (let ((sc21 e-8)) (if (null? sc21) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-29 (cdr sc14))) (let ((sc15 e-29)) (if (null? sc15) (let ((sc16 e-3)) (case (vector-ref sc16 0) ((1) (let ((sc17 arg-13)) (if (null? sc17) (vector 1 ) (let ((e-7 (car sc17))) (let ((e-8 (cdr sc17))) (let ((sc18 e-7)) (if (null? sc18) (vector 1 ) (let ((e-12 (cdr sc18))) (let ((sc19 e-12)) (if (null? sc19) (vector 1 ) (let ((e-16 (cdr sc19))) (let ((sc20 e-16)) (case (vector-ref sc20 0) ((28) (let ((e-17 (vector-ref sc20 1))) (let ((e-18 (vector-ref sc20 2))) (let ((sc21 e-18)) (case (vector-ref sc21 0) ((12) (let ((e-19 (vector-ref sc21 1))) (let ((sc22 e-8)) (if (null? sc22) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-33 (cdr sc15))) (let ((sc16 e-33)) (case (vector-ref sc16 0) ((28) (let ((e-34 (vector-ref sc16 1))) (let ((e-35 (vector-ref sc16 2))) (let ((sc17 e-35)) (case (vector-ref sc17 0) ((11) (let ((e-36 (vector-ref sc17 1))) (let ((sc18 e-25)) (if (null? sc18) (vector 2 (vector 28 e-34 (vector 11 e-36))) (let ((sc19 e-3)) (case (vector-ref sc19 0) ((1) (let ((sc20 arg-13)) (if (null? sc20) (vector 1 ) (let ((e-7 (car sc20))) (let ((e-8 (cdr sc20))) (let ((sc21 e-7)) (if (null? sc21) (vector 1 ) (let ((e-12 (cdr sc21))) (let ((sc22 e-12)) (if (null? sc22) (vector 1 ) (let ((e-16 (cdr sc22))) (let ((sc23 e-16)) (case (vector-ref sc23 0) ((28) (let ((e-17 (vector-ref sc23 1))) (let ((e-18 (vector-ref sc23 2))) (let ((sc24 e-18)) (case (vector-ref sc24 0) ((12) (let ((e-19 (vector-ref sc24 1))) (let ((sc25 e-8)) (if (null? sc25) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))(else (let ((sc17 e-3)) (case (vector-ref sc17 0) ((1) (let ((sc18 arg-13)) (if (null? sc18) (vector 1 ) (let ((e-7 (car sc18))) (let ((e-8 (cdr sc18))) (let ((sc19 e-7)) (if (null? sc19) (vector 1 ) (let ((e-12 (cdr sc19))) (let ((sc20 e-12)) (if (null? sc20) (vector 1 ) (let ((e-16 (cdr sc20))) (let ((sc21 e-16)) (case (vector-ref sc21 0) ((28) (let ((e-17 (vector-ref sc21 1))) (let ((e-18 (vector-ref sc21 2))) (let ((sc22 e-18)) (case (vector-ref sc22 0) ((12) (let ((e-19 (vector-ref sc22 1))) (let ((sc23 e-8)) (if (null? sc23) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))))(else (let ((sc16 e-3)) (case (vector-ref sc16 0) ((1) (let ((sc17 arg-13)) (if (null? sc17) (vector 1 ) (let ((e-7 (car sc17))) (let ((e-8 (cdr sc17))) (let ((sc18 e-7)) (if (null? sc18) (vector 1 ) (let ((e-12 (cdr sc18))) (let ((sc19 e-12)) (if (null? sc19) (vector 1 ) (let ((e-16 (cdr sc19))) (let ((sc20 e-16)) (case (vector-ref sc20 0) ((28) (let ((e-17 (vector-ref sc20 1))) (let ((e-18 (vector-ref sc20 2))) (let ((sc21 e-18)) (case (vector-ref sc21 0) ((12) (let ((e-19 (vector-ref sc21 1))) (let ((sc22 e-8)) (if (null? sc22) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))))))))))))(else (let ((sc12 e-3)) (case (vector-ref sc12 0) ((1) (let ((sc13 arg-13)) (if (null? sc13) (vector 1 ) (let ((e-7 (car sc13))) (let ((e-8 (cdr sc13))) (let ((sc14 e-7)) (if (null? sc14) (vector 1 ) (let ((e-12 (cdr sc14))) (let ((sc15 e-12)) (if (null? sc15) (vector 1 ) (let ((e-16 (cdr sc15))) (let ((sc16 e-16)) (case (vector-ref sc16 0) ((28) (let ((e-17 (vector-ref sc16 1))) (let ((e-18 (vector-ref sc16 2))) (let ((sc17 e-18)) (case (vector-ref sc17 0) ((12) (let ((e-19 (vector-ref sc17 1))) (let ((sc18 e-8)) (if (null? sc18) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))))))))))(else (let ((sc10 e-2)) (case (vector-ref sc10 0) ((1) (let ((sc11 arg-13)) (if (null? sc11) (let ((sc12 e-3)) (case (vector-ref sc12 0) ((1) (let ((sc13 arg-13)) (if (null? sc13) (vector 1 ) (let ((e-7 (car sc13))) (let ((e-8 (cdr sc13))) (let ((sc14 e-7)) (if (null? sc14) (vector 1 ) (let ((e-12 (cdr sc14))) (let ((sc15 e-12)) (if (null? sc15) (vector 1 ) (let ((e-16 (cdr sc15))) (let ((sc16 e-16)) (case (vector-ref sc16 0) ((28) (let ((e-17 (vector-ref sc16 1))) (let ((e-18 (vector-ref sc16 2))) (let ((sc17 e-18)) (case (vector-ref sc17 0) ((12) (let ((e-19 (vector-ref sc17 1))) (let ((sc18 e-8)) (if (null? sc18) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-24 (car sc11))) (let ((e-25 (cdr sc11))) (let ((sc12 e-24)) (if (null? sc12) (let ((sc13 e-3)) (case (vector-ref sc13 0) ((1) (let ((sc14 arg-13)) (if (null? sc14) (vector 1 ) (let ((e-7 (car sc14))) (let ((e-8 (cdr sc14))) (let ((sc15 e-7)) (if (null? sc15) (vector 1 ) (let ((e-12 (cdr sc15))) (let ((sc16 e-12)) (if (null? sc16) (vector 1 ) (let ((e-16 (cdr sc16))) (let ((sc17 e-16)) (case (vector-ref sc17 0) ((28) (let ((e-17 (vector-ref sc17 1))) (let ((e-18 (vector-ref sc17 2))) (let ((sc18 e-18)) (case (vector-ref sc18 0) ((12) (let ((e-19 (vector-ref sc18 1))) (let ((sc19 e-8)) (if (null? sc19) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-29 (cdr sc12))) (let ((sc13 e-29)) (if (null? sc13) (let ((sc14 e-3)) (case (vector-ref sc14 0) ((1) (let ((sc15 arg-13)) (if (null? sc15) (vector 1 ) (let ((e-7 (car sc15))) (let ((e-8 (cdr sc15))) (let ((sc16 e-7)) (if (null? sc16) (vector 1 ) (let ((e-12 (cdr sc16))) (let ((sc17 e-12)) (if (null? sc17) (vector 1 ) (let ((e-16 (cdr sc17))) (let ((sc18 e-16)) (case (vector-ref sc18 0) ((28) (let ((e-17 (vector-ref sc18 1))) (let ((e-18 (vector-ref sc18 2))) (let ((sc19 e-18)) (case (vector-ref sc19 0) ((12) (let ((e-19 (vector-ref sc19 1))) (let ((sc20 e-8)) (if (null? sc20) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-33 (cdr sc13))) (let ((sc14 e-33)) (case (vector-ref sc14 0) ((28) (let ((e-34 (vector-ref sc14 1))) (let ((e-35 (vector-ref sc14 2))) (let ((sc15 e-35)) (case (vector-ref sc15 0) ((11) (let ((e-36 (vector-ref sc15 1))) (let ((sc16 e-25)) (if (null? sc16) (vector 2 (vector 28 e-34 (vector 11 e-36))) (let ((sc17 e-3)) (case (vector-ref sc17 0) ((1) (let ((sc18 arg-13)) (if (null? sc18) (vector 1 ) (let ((e-7 (car sc18))) (let ((e-8 (cdr sc18))) (let ((sc19 e-7)) (if (null? sc19) (vector 1 ) (let ((e-12 (cdr sc19))) (let ((sc20 e-12)) (if (null? sc20) (vector 1 ) (let ((e-16 (cdr sc20))) (let ((sc21 e-16)) (case (vector-ref sc21 0) ((28) (let ((e-17 (vector-ref sc21 1))) (let ((e-18 (vector-ref sc21 2))) (let ((sc22 e-18)) (case (vector-ref sc22 0) ((12) (let ((e-19 (vector-ref sc22 1))) (let ((sc23 e-8)) (if (null? sc23) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))(else (let ((sc15 e-3)) (case (vector-ref sc15 0) ((1) (let ((sc16 arg-13)) (if (null? sc16) (vector 1 ) (let ((e-7 (car sc16))) (let ((e-8 (cdr sc16))) (let ((sc17 e-7)) (if (null? sc17) (vector 1 ) (let ((e-12 (cdr sc17))) (let ((sc18 e-12)) (if (null? sc18) (vector 1 ) (let ((e-16 (cdr sc18))) (let ((sc19 e-16)) (case (vector-ref sc19 0) ((28) (let ((e-17 (vector-ref sc19 1))) (let ((e-18 (vector-ref sc19 2))) (let ((sc20 e-18)) (case (vector-ref sc20 0) ((12) (let ((e-19 (vector-ref sc20 1))) (let ((sc21 e-8)) (if (null? sc21) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))))(else (let ((sc14 e-3)) (case (vector-ref sc14 0) ((1) (let ((sc15 arg-13)) (if (null? sc15) (vector 1 ) (let ((e-7 (car sc15))) (let ((e-8 (cdr sc15))) (let ((sc16 e-7)) (if (null? sc16) (vector 1 ) (let ((e-12 (cdr sc16))) (let ((sc17 e-12)) (if (null? sc17) (vector 1 ) (let ((e-16 (cdr sc17))) (let ((sc18 e-16)) (case (vector-ref sc18 0) ((28) (let ((e-17 (vector-ref sc18 1))) (let ((e-18 (vector-ref sc18 2))) (let ((sc19 e-18)) (case (vector-ref sc19 0) ((12) (let ((e-19 (vector-ref sc19 1))) (let ((sc20 e-8)) (if (null? sc20) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))))))))))))(else (let ((sc10 e-3)) (case (vector-ref sc10 0) ((1) (let ((sc11 arg-13)) (if (null? sc11) (vector 1 ) (let ((e-7 (car sc11))) (let ((e-8 (cdr sc11))) (let ((sc12 e-7)) (if (null? sc12) (vector 1 ) (let ((e-12 (cdr sc12))) (let ((sc13 e-12)) (if (null? sc13) (vector 1 ) (let ((e-16 (cdr sc13))) (let ((sc14 e-16)) (case (vector-ref sc14 0) ((28) (let ((e-17 (vector-ref sc14 1))) (let ((e-18 (vector-ref sc14 2))) (let ((sc15 e-18)) (case (vector-ref sc15 0) ((12) (let ((e-19 (vector-ref sc15 1))) (let ((sc16 e-8)) (if (null? sc16) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))))))))))))(else (let ((sc9 e-2)) (case (vector-ref sc9 0) ((1) (let ((sc10 arg-13)) (if (null? sc10) (let ((sc11 e-3)) (case (vector-ref sc11 0) ((1) (let ((sc12 arg-13)) (if (null? sc12) (vector 1 ) (let ((e-7 (car sc12))) (let ((e-8 (cdr sc12))) (let ((sc13 e-7)) (if (null? sc13) (vector 1 ) (let ((e-12 (cdr sc13))) (let ((sc14 e-12)) (if (null? sc14) (vector 1 ) (let ((e-16 (cdr sc14))) (let ((sc15 e-16)) (case (vector-ref sc15 0) ((28) (let ((e-17 (vector-ref sc15 1))) (let ((e-18 (vector-ref sc15 2))) (let ((sc16 e-18)) (case (vector-ref sc16 0) ((12) (let ((e-19 (vector-ref sc16 1))) (let ((sc17 e-8)) (if (null? sc17) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-24 (car sc10))) (let ((e-25 (cdr sc10))) (let ((sc11 e-24)) (if (null? sc11) (let ((sc12 e-3)) (case (vector-ref sc12 0) ((1) (let ((sc13 arg-13)) (if (null? sc13) (vector 1 ) (let ((e-7 (car sc13))) (let ((e-8 (cdr sc13))) (let ((sc14 e-7)) (if (null? sc14) (vector 1 ) (let ((e-12 (cdr sc14))) (let ((sc15 e-12)) (if (null? sc15) (vector 1 ) (let ((e-16 (cdr sc15))) (let ((sc16 e-16)) (case (vector-ref sc16 0) ((28) (let ((e-17 (vector-ref sc16 1))) (let ((e-18 (vector-ref sc16 2))) (let ((sc17 e-18)) (case (vector-ref sc17 0) ((12) (let ((e-19 (vector-ref sc17 1))) (let ((sc18 e-8)) (if (null? sc18) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-29 (cdr sc11))) (let ((sc12 e-29)) (if (null? sc12) (let ((sc13 e-3)) (case (vector-ref sc13 0) ((1) (let ((sc14 arg-13)) (if (null? sc14) (vector 1 ) (let ((e-7 (car sc14))) (let ((e-8 (cdr sc14))) (let ((sc15 e-7)) (if (null? sc15) (vector 1 ) (let ((e-12 (cdr sc15))) (let ((sc16 e-12)) (if (null? sc16) (vector 1 ) (let ((e-16 (cdr sc16))) (let ((sc17 e-16)) (case (vector-ref sc17 0) ((28) (let ((e-17 (vector-ref sc17 1))) (let ((e-18 (vector-ref sc17 2))) (let ((sc18 e-18)) (case (vector-ref sc18 0) ((12) (let ((e-19 (vector-ref sc18 1))) (let ((sc19 e-8)) (if (null? sc19) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-33 (cdr sc12))) (let ((sc13 e-33)) (case (vector-ref sc13 0) ((28) (let ((e-34 (vector-ref sc13 1))) (let ((e-35 (vector-ref sc13 2))) (let ((sc14 e-35)) (case (vector-ref sc14 0) ((11) (let ((e-36 (vector-ref sc14 1))) (let ((sc15 e-25)) (if (null? sc15) (vector 2 (vector 28 e-34 (vector 11 e-36))) (let ((sc16 e-3)) (case (vector-ref sc16 0) ((1) (let ((sc17 arg-13)) (if (null? sc17) (vector 1 ) (let ((e-7 (car sc17))) (let ((e-8 (cdr sc17))) (let ((sc18 e-7)) (if (null? sc18) (vector 1 ) (let ((e-12 (cdr sc18))) (let ((sc19 e-12)) (if (null? sc19) (vector 1 ) (let ((e-16 (cdr sc19))) (let ((sc20 e-16)) (case (vector-ref sc20 0) ((28) (let ((e-17 (vector-ref sc20 1))) (let ((e-18 (vector-ref sc20 2))) (let ((sc21 e-18)) (case (vector-ref sc21 0) ((12) (let ((e-19 (vector-ref sc21 1))) (let ((sc22 e-8)) (if (null? sc22) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))(else (let ((sc14 e-3)) (case (vector-ref sc14 0) ((1) (let ((sc15 arg-13)) (if (null? sc15) (vector 1 ) (let ((e-7 (car sc15))) (let ((e-8 (cdr sc15))) (let ((sc16 e-7)) (if (null? sc16) (vector 1 ) (let ((e-12 (cdr sc16))) (let ((sc17 e-12)) (if (null? sc17) (vector 1 ) (let ((e-16 (cdr sc17))) (let ((sc18 e-16)) (case (vector-ref sc18 0) ((28) (let ((e-17 (vector-ref sc18 1))) (let ((e-18 (vector-ref sc18 2))) (let ((sc19 e-18)) (case (vector-ref sc19 0) ((12) (let ((e-19 (vector-ref sc19 1))) (let ((sc20 e-8)) (if (null? sc20) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))))(else (let ((sc13 e-3)) (case (vector-ref sc13 0) ((1) (let ((sc14 arg-13)) (if (null? sc14) (vector 1 ) (let ((e-7 (car sc14))) (let ((e-8 (cdr sc14))) (let ((sc15 e-7)) (if (null? sc15) (vector 1 ) (let ((e-12 (cdr sc15))) (let ((sc16 e-12)) (if (null? sc16) (vector 1 ) (let ((e-16 (cdr sc16))) (let ((sc17 e-16)) (case (vector-ref sc17 0) ((28) (let ((e-17 (vector-ref sc17 1))) (let ((e-18 (vector-ref sc17 2))) (let ((sc18 e-18)) (case (vector-ref sc18 0) ((12) (let ((e-19 (vector-ref sc18 1))) (let ((sc19 e-8)) (if (null? sc19) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))))))))))))(else (let ((sc9 e-3)) (case (vector-ref sc9 0) ((1) (let ((sc10 arg-13)) (if (null? sc10) (vector 1 ) (let ((e-7 (car sc10))) (let ((e-8 (cdr sc10))) (let ((sc11 e-7)) (if (null? sc11) (vector 1 ) (let ((e-12 (cdr sc11))) (let ((sc12 e-12)) (if (null? sc12) (vector 1 ) (let ((e-16 (cdr sc12))) (let ((sc13 e-16)) (case (vector-ref sc13 0) ((28) (let ((e-17 (vector-ref sc13 1))) (let ((e-18 (vector-ref sc13 2))) (let ((sc14 e-18)) (case (vector-ref sc14 0) ((12) (let ((e-19 (vector-ref sc14 1))) (let ((sc15 e-8)) (if (null? sc15) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))))))))))))))))))))(else (let ((sc5 e-2)) (case (vector-ref sc5 0) ((1) (let ((sc6 arg-13)) (if (null? sc6) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((1) (let ((sc8 arg-13)) (if (null? sc8) (vector 1 ) (let ((e-7 (car sc8))) (let ((e-8 (cdr sc8))) (let ((sc9 e-7)) (if (null? sc9) (vector 1 ) (let ((e-12 (cdr sc9))) (let ((sc10 e-12)) (if (null? sc10) (vector 1 ) (let ((e-16 (cdr sc10))) (let ((sc11 e-16)) (case (vector-ref sc11 0) ((28) (let ((e-17 (vector-ref sc11 1))) (let ((e-18 (vector-ref sc11 2))) (let ((sc12 e-18)) (case (vector-ref sc12 0) ((12) (let ((e-19 (vector-ref sc12 1))) (let ((sc13 e-8)) (if (null? sc13) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-24 (car sc6))) (let ((e-25 (cdr sc6))) (let ((sc7 e-24)) (if (null? sc7) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((1) (let ((sc9 arg-13)) (if (null? sc9) (vector 1 ) (let ((e-7 (car sc9))) (let ((e-8 (cdr sc9))) (let ((sc10 e-7)) (if (null? sc10) (vector 1 ) (let ((e-12 (cdr sc10))) (let ((sc11 e-12)) (if (null? sc11) (vector 1 ) (let ((e-16 (cdr sc11))) (let ((sc12 e-16)) (case (vector-ref sc12 0) ((28) (let ((e-17 (vector-ref sc12 1))) (let ((e-18 (vector-ref sc12 2))) (let ((sc13 e-18)) (case (vector-ref sc13 0) ((12) (let ((e-19 (vector-ref sc13 1))) (let ((sc14 e-8)) (if (null? sc14) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-29 (cdr sc7))) (let ((sc8 e-29)) (if (null? sc8) (let ((sc9 e-3)) (case (vector-ref sc9 0) ((1) (let ((sc10 arg-13)) (if (null? sc10) (vector 1 ) (let ((e-7 (car sc10))) (let ((e-8 (cdr sc10))) (let ((sc11 e-7)) (if (null? sc11) (vector 1 ) (let ((e-12 (cdr sc11))) (let ((sc12 e-12)) (if (null? sc12) (vector 1 ) (let ((e-16 (cdr sc12))) (let ((sc13 e-16)) (case (vector-ref sc13 0) ((28) (let ((e-17 (vector-ref sc13 1))) (let ((e-18 (vector-ref sc13 2))) (let ((sc14 e-18)) (case (vector-ref sc14 0) ((12) (let ((e-19 (vector-ref sc14 1))) (let ((sc15 e-8)) (if (null? sc15) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-33 (cdr sc8))) (let ((sc9 e-33)) (case (vector-ref sc9 0) ((28) (let ((e-34 (vector-ref sc9 1))) (let ((e-35 (vector-ref sc9 2))) (let ((sc10 e-35)) (case (vector-ref sc10 0) ((11) (let ((e-36 (vector-ref sc10 1))) (let ((sc11 e-25)) (if (null? sc11) (vector 2 (vector 28 e-34 (vector 11 e-36))) (let ((sc12 e-3)) (case (vector-ref sc12 0) ((1) (let ((sc13 arg-13)) (if (null? sc13) (vector 1 ) (let ((e-7 (car sc13))) (let ((e-8 (cdr sc13))) (let ((sc14 e-7)) (if (null? sc14) (vector 1 ) (let ((e-12 (cdr sc14))) (let ((sc15 e-12)) (if (null? sc15) (vector 1 ) (let ((e-16 (cdr sc15))) (let ((sc16 e-16)) (case (vector-ref sc16 0) ((28) (let ((e-17 (vector-ref sc16 1))) (let ((e-18 (vector-ref sc16 2))) (let ((sc17 e-18)) (case (vector-ref sc17 0) ((12) (let ((e-19 (vector-ref sc17 1))) (let ((sc18 e-8)) (if (null? sc18) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))(else (let ((sc10 e-3)) (case (vector-ref sc10 0) ((1) (let ((sc11 arg-13)) (if (null? sc11) (vector 1 ) (let ((e-7 (car sc11))) (let ((e-8 (cdr sc11))) (let ((sc12 e-7)) (if (null? sc12) (vector 1 ) (let ((e-12 (cdr sc12))) (let ((sc13 e-12)) (if (null? sc13) (vector 1 ) (let ((e-16 (cdr sc13))) (let ((sc14 e-16)) (case (vector-ref sc14 0) ((28) (let ((e-17 (vector-ref sc14 1))) (let ((e-18 (vector-ref sc14 2))) (let ((sc15 e-18)) (case (vector-ref sc15 0) ((12) (let ((e-19 (vector-ref sc15 1))) (let ((sc16 e-8)) (if (null? sc16) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))))(else (let ((sc9 e-3)) (case (vector-ref sc9 0) ((1) (let ((sc10 arg-13)) (if (null? sc10) (vector 1 ) (let ((e-7 (car sc10))) (let ((e-8 (cdr sc10))) (let ((sc11 e-7)) (if (null? sc11) (vector 1 ) (let ((e-12 (cdr sc11))) (let ((sc12 e-12)) (if (null? sc12) (vector 1 ) (let ((e-16 (cdr sc12))) (let ((sc13 e-16)) (case (vector-ref sc13 0) ((28) (let ((e-17 (vector-ref sc13 1))) (let ((e-18 (vector-ref sc13 2))) (let ((sc14 e-18)) (case (vector-ref sc14 0) ((12) (let ((e-19 (vector-ref sc14 1))) (let ((sc15 e-8)) (if (null? sc15) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))))))))))))(else (let ((sc5 e-3)) (case (vector-ref sc5 0) ((1) (let ((sc6 arg-13)) (if (null? sc6) (vector 1 ) (let ((e-7 (car sc6))) (let ((e-8 (cdr sc6))) (let ((sc7 e-7)) (if (null? sc7) (vector 1 ) (let ((e-12 (cdr sc7))) (let ((sc8 e-12)) (if (null? sc8) (vector 1 ) (let ((e-16 (cdr sc8))) (let ((sc9 e-16)) (case (vector-ref sc9 0) ((28) (let ((e-17 (vector-ref sc9 1))) (let ((e-18 (vector-ref sc9 2))) (let ((sc10 e-18)) (case (vector-ref sc10 0) ((12) (let ((e-19 (vector-ref sc10 1))) (let ((sc11 e-8)) (if (null? sc11) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))))))))))))))))))(else (let ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((sc2 arg-13)) (if (null? sc2) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((1) (let ((sc4 arg-13)) (if (null? sc4) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((1) (let ((sc6 arg-13)) (if (null? sc6) (vector 1 ) (let ((e-7 (car sc6))) (let ((e-8 (cdr sc6))) (let ((sc7 e-7)) (if (null? sc7) (vector 1 ) (let ((e-12 (cdr sc7))) (let ((sc8 e-12)) (if (null? sc8) (vector 1 ) (let ((e-16 (cdr sc8))) (let ((sc9 e-16)) (case (vector-ref sc9 0) ((28) (let ((e-17 (vector-ref sc9 1))) (let ((e-18 (vector-ref sc9 2))) (let ((sc10 e-18)) (case (vector-ref sc10 0) ((12) (let ((e-19 (vector-ref sc10 1))) (let ((sc11 e-8)) (if (null? sc11) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-24 (car sc4))) (let ((e-25 (cdr sc4))) (let ((sc5 e-24)) (if (null? sc5) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((1) (let ((sc7 arg-13)) (if (null? sc7) (vector 1 ) (let ((e-7 (car sc7))) (let ((e-8 (cdr sc7))) (let ((sc8 e-7)) (if (null? sc8) (vector 1 ) (let ((e-12 (cdr sc8))) (let ((sc9 e-12)) (if (null? sc9) (vector 1 ) (let ((e-16 (cdr sc9))) (let ((sc10 e-16)) (case (vector-ref sc10 0) ((28) (let ((e-17 (vector-ref sc10 1))) (let ((e-18 (vector-ref sc10 2))) (let ((sc11 e-18)) (case (vector-ref sc11 0) ((12) (let ((e-19 (vector-ref sc11 1))) (let ((sc12 e-8)) (if (null? sc12) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-29 (cdr sc5))) (let ((sc6 e-29)) (if (null? sc6) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((1) (let ((sc8 arg-13)) (if (null? sc8) (vector 1 ) (let ((e-7 (car sc8))) (let ((e-8 (cdr sc8))) (let ((sc9 e-7)) (if (null? sc9) (vector 1 ) (let ((e-12 (cdr sc9))) (let ((sc10 e-12)) (if (null? sc10) (vector 1 ) (let ((e-16 (cdr sc10))) (let ((sc11 e-16)) (case (vector-ref sc11 0) ((28) (let ((e-17 (vector-ref sc11 1))) (let ((e-18 (vector-ref sc11 2))) (let ((sc12 e-18)) (case (vector-ref sc12 0) ((12) (let ((e-19 (vector-ref sc12 1))) (let ((sc13 e-8)) (if (null? sc13) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-33 (cdr sc6))) (let ((sc7 e-33)) (case (vector-ref sc7 0) ((28) (let ((e-34 (vector-ref sc7 1))) (let ((e-35 (vector-ref sc7 2))) (let ((sc8 e-35)) (case (vector-ref sc8 0) ((11) (let ((e-36 (vector-ref sc8 1))) (let ((sc9 e-25)) (if (null? sc9) (vector 2 (vector 28 e-34 (vector 11 e-36))) (let ((sc10 e-3)) (case (vector-ref sc10 0) ((1) (let ((sc11 arg-13)) (if (null? sc11) (vector 1 ) (let ((e-7 (car sc11))) (let ((e-8 (cdr sc11))) (let ((sc12 e-7)) (if (null? sc12) (vector 1 ) (let ((e-12 (cdr sc12))) (let ((sc13 e-12)) (if (null? sc13) (vector 1 ) (let ((e-16 (cdr sc13))) (let ((sc14 e-16)) (case (vector-ref sc14 0) ((28) (let ((e-17 (vector-ref sc14 1))) (let ((e-18 (vector-ref sc14 2))) (let ((sc15 e-18)) (case (vector-ref sc15 0) ((12) (let ((e-19 (vector-ref sc15 1))) (let ((sc16 e-8)) (if (null? sc16) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))(else (let ((sc8 e-3)) (case (vector-ref sc8 0) ((1) (let ((sc9 arg-13)) (if (null? sc9) (vector 1 ) (let ((e-7 (car sc9))) (let ((e-8 (cdr sc9))) (let ((sc10 e-7)) (if (null? sc10) (vector 1 ) (let ((e-12 (cdr sc10))) (let ((sc11 e-12)) (if (null? sc11) (vector 1 ) (let ((e-16 (cdr sc11))) (let ((sc12 e-16)) (case (vector-ref sc12 0) ((28) (let ((e-17 (vector-ref sc12 1))) (let ((e-18 (vector-ref sc12 2))) (let ((sc13 e-18)) (case (vector-ref sc13 0) ((12) (let ((e-19 (vector-ref sc13 1))) (let ((sc14 e-8)) (if (null? sc14) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))))(else (let ((sc7 e-3)) (case (vector-ref sc7 0) ((1) (let ((sc8 arg-13)) (if (null? sc8) (vector 1 ) (let ((e-7 (car sc8))) (let ((e-8 (cdr sc8))) (let ((sc9 e-7)) (if (null? sc9) (vector 1 ) (let ((e-12 (cdr sc9))) (let ((sc10 e-12)) (if (null? sc10) (vector 1 ) (let ((e-16 (cdr sc10))) (let ((sc11 e-16)) (case (vector-ref sc11 0) ((28) (let ((e-17 (vector-ref sc11 1))) (let ((e-18 (vector-ref sc11 2))) (let ((sc12 e-18)) (case (vector-ref sc12 0) ((12) (let ((e-19 (vector-ref sc12 1))) (let ((sc13 e-8)) (if (null? sc13) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))))))))))))(else (let ((sc3 e-3)) (case (vector-ref sc3 0) ((1) (let ((sc4 arg-13)) (if (null? sc4) (vector 1 ) (let ((e-7 (car sc4))) (let ((e-8 (cdr sc4))) (let ((sc5 e-7)) (if (null? sc5) (vector 1 ) (let ((e-12 (cdr sc5))) (let ((sc6 e-12)) (if (null? sc6) (vector 1 ) (let ((e-16 (cdr sc6))) (let ((sc7 e-16)) (case (vector-ref sc7 0) ((28) (let ((e-17 (vector-ref sc7 1))) (let ((e-18 (vector-ref sc7 2))) (let ((sc8 e-18)) (case (vector-ref sc8 0) ((12) (let ((e-19 (vector-ref sc8 1))) (let ((sc9 e-8)) (if (null? sc9) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))) (let ((e-41 (car sc2))) (let ((e-42 (cdr sc2))) (let ((sc3 e-41)) (if (null? sc3) (let ((sc4 e-2)) (case (vector-ref sc4 0) ((1) (let ((sc5 arg-13)) (if (null? sc5) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((1) (let ((sc7 arg-13)) (if (null? sc7) (vector 1 ) (let ((e-7 (car sc7))) (let ((e-8 (cdr sc7))) (let ((sc8 e-7)) (if (null? sc8) (vector 1 ) (let ((e-12 (cdr sc8))) (let ((sc9 e-12)) (if (null? sc9) (vector 1 ) (let ((e-16 (cdr sc9))) (let ((sc10 e-16)) (case (vector-ref sc10 0) ((28) (let ((e-17 (vector-ref sc10 1))) (let ((e-18 (vector-ref sc10 2))) (let ((sc11 e-18)) (case (vector-ref sc11 0) ((12) (let ((e-19 (vector-ref sc11 1))) (let ((sc12 e-8)) (if (null? sc12) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-24 (car sc5))) (let ((e-25 (cdr sc5))) (let ((sc6 e-24)) (if (null? sc6) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((1) (let ((sc8 arg-13)) (if (null? sc8) (vector 1 ) (let ((e-7 (car sc8))) (let ((e-8 (cdr sc8))) (let ((sc9 e-7)) (if (null? sc9) (vector 1 ) (let ((e-12 (cdr sc9))) (let ((sc10 e-12)) (if (null? sc10) (vector 1 ) (let ((e-16 (cdr sc10))) (let ((sc11 e-16)) (case (vector-ref sc11 0) ((28) (let ((e-17 (vector-ref sc11 1))) (let ((e-18 (vector-ref sc11 2))) (let ((sc12 e-18)) (case (vector-ref sc12 0) ((12) (let ((e-19 (vector-ref sc12 1))) (let ((sc13 e-8)) (if (null? sc13) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-29 (cdr sc6))) (let ((sc7 e-29)) (if (null? sc7) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((1) (let ((sc9 arg-13)) (if (null? sc9) (vector 1 ) (let ((e-7 (car sc9))) (let ((e-8 (cdr sc9))) (let ((sc10 e-7)) (if (null? sc10) (vector 1 ) (let ((e-12 (cdr sc10))) (let ((sc11 e-12)) (if (null? sc11) (vector 1 ) (let ((e-16 (cdr sc11))) (let ((sc12 e-16)) (case (vector-ref sc12 0) ((28) (let ((e-17 (vector-ref sc12 1))) (let ((e-18 (vector-ref sc12 2))) (let ((sc13 e-18)) (case (vector-ref sc13 0) ((12) (let ((e-19 (vector-ref sc13 1))) (let ((sc14 e-8)) (if (null? sc14) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-33 (cdr sc7))) (let ((sc8 e-33)) (case (vector-ref sc8 0) ((28) (let ((e-34 (vector-ref sc8 1))) (let ((e-35 (vector-ref sc8 2))) (let ((sc9 e-35)) (case (vector-ref sc9 0) ((11) (let ((e-36 (vector-ref sc9 1))) (let ((sc10 e-25)) (if (null? sc10) (vector 2 (vector 28 e-34 (vector 11 e-36))) (let ((sc11 e-3)) (case (vector-ref sc11 0) ((1) (let ((sc12 arg-13)) (if (null? sc12) (vector 1 ) (let ((e-7 (car sc12))) (let ((e-8 (cdr sc12))) (let ((sc13 e-7)) (if (null? sc13) (vector 1 ) (let ((e-12 (cdr sc13))) (let ((sc14 e-12)) (if (null? sc14) (vector 1 ) (let ((e-16 (cdr sc14))) (let ((sc15 e-16)) (case (vector-ref sc15 0) ((28) (let ((e-17 (vector-ref sc15 1))) (let ((e-18 (vector-ref sc15 2))) (let ((sc16 e-18)) (case (vector-ref sc16 0) ((12) (let ((e-19 (vector-ref sc16 1))) (let ((sc17 e-8)) (if (null? sc17) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))(else (let ((sc9 e-3)) (case (vector-ref sc9 0) ((1) (let ((sc10 arg-13)) (if (null? sc10) (vector 1 ) (let ((e-7 (car sc10))) (let ((e-8 (cdr sc10))) (let ((sc11 e-7)) (if (null? sc11) (vector 1 ) (let ((e-12 (cdr sc11))) (let ((sc12 e-12)) (if (null? sc12) (vector 1 ) (let ((e-16 (cdr sc12))) (let ((sc13 e-16)) (case (vector-ref sc13 0) ((28) (let ((e-17 (vector-ref sc13 1))) (let ((e-18 (vector-ref sc13 2))) (let ((sc14 e-18)) (case (vector-ref sc14 0) ((12) (let ((e-19 (vector-ref sc14 1))) (let ((sc15 e-8)) (if (null? sc15) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))))(else (let ((sc8 e-3)) (case (vector-ref sc8 0) ((1) (let ((sc9 arg-13)) (if (null? sc9) (vector 1 ) (let ((e-7 (car sc9))) (let ((e-8 (cdr sc9))) (let ((sc10 e-7)) (if (null? sc10) (vector 1 ) (let ((e-12 (cdr sc10))) (let ((sc11 e-12)) (if (null? sc11) (vector 1 ) (let ((e-16 (cdr sc11))) (let ((sc12 e-16)) (case (vector-ref sc12 0) ((28) (let ((e-17 (vector-ref sc12 1))) (let ((e-18 (vector-ref sc12 2))) (let ((sc13 e-18)) (case (vector-ref sc13 0) ((12) (let ((e-19 (vector-ref sc13 1))) (let ((sc14 e-8)) (if (null? sc14) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))))))))))))(else (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((sc5 arg-13)) (if (null? sc5) (vector 1 ) (let ((e-7 (car sc5))) (let ((e-8 (cdr sc5))) (let ((sc6 e-7)) (if (null? sc6) (vector 1 ) (let ((e-12 (cdr sc6))) (let ((sc7 e-12)) (if (null? sc7) (vector 1 ) (let ((e-16 (cdr sc7))) (let ((sc8 e-16)) (case (vector-ref sc8 0) ((28) (let ((e-17 (vector-ref sc8 1))) (let ((e-18 (vector-ref sc8 2))) (let ((sc9 e-18)) (case (vector-ref sc9 0) ((12) (let ((e-19 (vector-ref sc9 1))) (let ((sc10 e-8)) (if (null? sc10) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))) (let ((e-46 (cdr sc3))) (let ((sc4 e-46)) (if (null? sc4) (let ((sc5 e-2)) (case (vector-ref sc5 0) ((1) (let ((sc6 arg-13)) (if (null? sc6) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((1) (let ((sc8 arg-13)) (if (null? sc8) (vector 1 ) (let ((e-7 (car sc8))) (let ((e-8 (cdr sc8))) (let ((sc9 e-7)) (if (null? sc9) (vector 1 ) (let ((e-12 (cdr sc9))) (let ((sc10 e-12)) (if (null? sc10) (vector 1 ) (let ((e-16 (cdr sc10))) (let ((sc11 e-16)) (case (vector-ref sc11 0) ((28) (let ((e-17 (vector-ref sc11 1))) (let ((e-18 (vector-ref sc11 2))) (let ((sc12 e-18)) (case (vector-ref sc12 0) ((12) (let ((e-19 (vector-ref sc12 1))) (let ((sc13 e-8)) (if (null? sc13) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-24 (car sc6))) (let ((e-25 (cdr sc6))) (let ((sc7 e-24)) (if (null? sc7) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((1) (let ((sc9 arg-13)) (if (null? sc9) (vector 1 ) (let ((e-7 (car sc9))) (let ((e-8 (cdr sc9))) (let ((sc10 e-7)) (if (null? sc10) (vector 1 ) (let ((e-12 (cdr sc10))) (let ((sc11 e-12)) (if (null? sc11) (vector 1 ) (let ((e-16 (cdr sc11))) (let ((sc12 e-16)) (case (vector-ref sc12 0) ((28) (let ((e-17 (vector-ref sc12 1))) (let ((e-18 (vector-ref sc12 2))) (let ((sc13 e-18)) (case (vector-ref sc13 0) ((12) (let ((e-19 (vector-ref sc13 1))) (let ((sc14 e-8)) (if (null? sc14) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-29 (cdr sc7))) (let ((sc8 e-29)) (if (null? sc8) (let ((sc9 e-3)) (case (vector-ref sc9 0) ((1) (let ((sc10 arg-13)) (if (null? sc10) (vector 1 ) (let ((e-7 (car sc10))) (let ((e-8 (cdr sc10))) (let ((sc11 e-7)) (if (null? sc11) (vector 1 ) (let ((e-12 (cdr sc11))) (let ((sc12 e-12)) (if (null? sc12) (vector 1 ) (let ((e-16 (cdr sc12))) (let ((sc13 e-16)) (case (vector-ref sc13 0) ((28) (let ((e-17 (vector-ref sc13 1))) (let ((e-18 (vector-ref sc13 2))) (let ((sc14 e-18)) (case (vector-ref sc14 0) ((12) (let ((e-19 (vector-ref sc14 1))) (let ((sc15 e-8)) (if (null? sc15) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-33 (cdr sc8))) (let ((sc9 e-33)) (case (vector-ref sc9 0) ((28) (let ((e-34 (vector-ref sc9 1))) (let ((e-35 (vector-ref sc9 2))) (let ((sc10 e-35)) (case (vector-ref sc10 0) ((11) (let ((e-36 (vector-ref sc10 1))) (let ((sc11 e-25)) (if (null? sc11) (vector 2 (vector 28 e-34 (vector 11 e-36))) (let ((sc12 e-3)) (case (vector-ref sc12 0) ((1) (let ((sc13 arg-13)) (if (null? sc13) (vector 1 ) (let ((e-7 (car sc13))) (let ((e-8 (cdr sc13))) (let ((sc14 e-7)) (if (null? sc14) (vector 1 ) (let ((e-12 (cdr sc14))) (let ((sc15 e-12)) (if (null? sc15) (vector 1 ) (let ((e-16 (cdr sc15))) (let ((sc16 e-16)) (case (vector-ref sc16 0) ((28) (let ((e-17 (vector-ref sc16 1))) (let ((e-18 (vector-ref sc16 2))) (let ((sc17 e-18)) (case (vector-ref sc17 0) ((12) (let ((e-19 (vector-ref sc17 1))) (let ((sc18 e-8)) (if (null? sc18) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))(else (let ((sc10 e-3)) (case (vector-ref sc10 0) ((1) (let ((sc11 arg-13)) (if (null? sc11) (vector 1 ) (let ((e-7 (car sc11))) (let ((e-8 (cdr sc11))) (let ((sc12 e-7)) (if (null? sc12) (vector 1 ) (let ((e-12 (cdr sc12))) (let ((sc13 e-12)) (if (null? sc13) (vector 1 ) (let ((e-16 (cdr sc13))) (let ((sc14 e-16)) (case (vector-ref sc14 0) ((28) (let ((e-17 (vector-ref sc14 1))) (let ((e-18 (vector-ref sc14 2))) (let ((sc15 e-18)) (case (vector-ref sc15 0) ((12) (let ((e-19 (vector-ref sc15 1))) (let ((sc16 e-8)) (if (null? sc16) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))))(else (let ((sc9 e-3)) (case (vector-ref sc9 0) ((1) (let ((sc10 arg-13)) (if (null? sc10) (vector 1 ) (let ((e-7 (car sc10))) (let ((e-8 (cdr sc10))) (let ((sc11 e-7)) (if (null? sc11) (vector 1 ) (let ((e-12 (cdr sc11))) (let ((sc12 e-12)) (if (null? sc12) (vector 1 ) (let ((e-16 (cdr sc12))) (let ((sc13 e-16)) (case (vector-ref sc13 0) ((28) (let ((e-17 (vector-ref sc13 1))) (let ((e-18 (vector-ref sc13 2))) (let ((sc14 e-18)) (case (vector-ref sc14 0) ((12) (let ((e-19 (vector-ref sc14 1))) (let ((sc15 e-8)) (if (null? sc15) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))))))))))))(else (let ((sc5 e-3)) (case (vector-ref sc5 0) ((1) (let ((sc6 arg-13)) (if (null? sc6) (vector 1 ) (let ((e-7 (car sc6))) (let ((e-8 (cdr sc6))) (let ((sc7 e-7)) (if (null? sc7) (vector 1 ) (let ((e-12 (cdr sc7))) (let ((sc8 e-12)) (if (null? sc8) (vector 1 ) (let ((e-16 (cdr sc8))) (let ((sc9 e-16)) (case (vector-ref sc9 0) ((28) (let ((e-17 (vector-ref sc9 1))) (let ((e-18 (vector-ref sc9 2))) (let ((sc10 e-18)) (case (vector-ref sc10 0) ((12) (let ((e-19 (vector-ref sc10 1))) (let ((sc11 e-8)) (if (null? sc11) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))) (let ((e-50 (cdr sc4))) (let ((sc5 e-50)) (case (vector-ref sc5 0) ((28) (let ((e-51 (vector-ref sc5 1))) (let ((e-52 (vector-ref sc5 2))) (let ((sc6 e-52)) (case (vector-ref sc6 0) ((10) (let ((e-53 (vector-ref sc6 1))) (let ((sc7 e-42)) (if (null? sc7) (vector 2 (vector 28 e-51 (vector 10 e-53))) (let ((sc8 e-2)) (case (vector-ref sc8 0) ((1) (let ((sc9 arg-13)) (if (null? sc9) (let ((sc10 e-3)) (case (vector-ref sc10 0) ((1) (let ((sc11 arg-13)) (if (null? sc11) (vector 1 ) (let ((e-7 (car sc11))) (let ((e-8 (cdr sc11))) (let ((sc12 e-7)) (if (null? sc12) (vector 1 ) (let ((e-12 (cdr sc12))) (let ((sc13 e-12)) (if (null? sc13) (vector 1 ) (let ((e-16 (cdr sc13))) (let ((sc14 e-16)) (case (vector-ref sc14 0) ((28) (let ((e-17 (vector-ref sc14 1))) (let ((e-18 (vector-ref sc14 2))) (let ((sc15 e-18)) (case (vector-ref sc15 0) ((12) (let ((e-19 (vector-ref sc15 1))) (let ((sc16 e-8)) (if (null? sc16) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-24 (car sc9))) (let ((e-25 (cdr sc9))) (let ((sc10 e-24)) (if (null? sc10) (let ((sc11 e-3)) (case (vector-ref sc11 0) ((1) (let ((sc12 arg-13)) (if (null? sc12) (vector 1 ) (let ((e-7 (car sc12))) (let ((e-8 (cdr sc12))) (let ((sc13 e-7)) (if (null? sc13) (vector 1 ) (let ((e-12 (cdr sc13))) (let ((sc14 e-12)) (if (null? sc14) (vector 1 ) (let ((e-16 (cdr sc14))) (let ((sc15 e-16)) (case (vector-ref sc15 0) ((28) (let ((e-17 (vector-ref sc15 1))) (let ((e-18 (vector-ref sc15 2))) (let ((sc16 e-18)) (case (vector-ref sc16 0) ((12) (let ((e-19 (vector-ref sc16 1))) (let ((sc17 e-8)) (if (null? sc17) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-29 (cdr sc10))) (let ((sc11 e-29)) (if (null? sc11) (let ((sc12 e-3)) (case (vector-ref sc12 0) ((1) (let ((sc13 arg-13)) (if (null? sc13) (vector 1 ) (let ((e-7 (car sc13))) (let ((e-8 (cdr sc13))) (let ((sc14 e-7)) (if (null? sc14) (vector 1 ) (let ((e-12 (cdr sc14))) (let ((sc15 e-12)) (if (null? sc15) (vector 1 ) (let ((e-16 (cdr sc15))) (let ((sc16 e-16)) (case (vector-ref sc16 0) ((28) (let ((e-17 (vector-ref sc16 1))) (let ((e-18 (vector-ref sc16 2))) (let ((sc17 e-18)) (case (vector-ref sc17 0) ((12) (let ((e-19 (vector-ref sc17 1))) (let ((sc18 e-8)) (if (null? sc18) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-33 (cdr sc11))) (let ((sc12 e-33)) (case (vector-ref sc12 0) ((28) (let ((e-34 (vector-ref sc12 1))) (let ((e-35 (vector-ref sc12 2))) (let ((sc13 e-35)) (case (vector-ref sc13 0) ((11) (let ((e-36 (vector-ref sc13 1))) (let ((sc14 e-25)) (if (null? sc14) (vector 2 (vector 28 e-34 (vector 11 e-36))) (let ((sc15 e-3)) (case (vector-ref sc15 0) ((1) (let ((sc16 arg-13)) (if (null? sc16) (vector 1 ) (let ((e-7 (car sc16))) (let ((e-8 (cdr sc16))) (let ((sc17 e-7)) (if (null? sc17) (vector 1 ) (let ((e-12 (cdr sc17))) (let ((sc18 e-12)) (if (null? sc18) (vector 1 ) (let ((e-16 (cdr sc18))) (let ((sc19 e-16)) (case (vector-ref sc19 0) ((28) (let ((e-17 (vector-ref sc19 1))) (let ((e-18 (vector-ref sc19 2))) (let ((sc20 e-18)) (case (vector-ref sc20 0) ((12) (let ((e-19 (vector-ref sc20 1))) (let ((sc21 e-8)) (if (null? sc21) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))(else (let ((sc13 e-3)) (case (vector-ref sc13 0) ((1) (let ((sc14 arg-13)) (if (null? sc14) (vector 1 ) (let ((e-7 (car sc14))) (let ((e-8 (cdr sc14))) (let ((sc15 e-7)) (if (null? sc15) (vector 1 ) (let ((e-12 (cdr sc15))) (let ((sc16 e-12)) (if (null? sc16) (vector 1 ) (let ((e-16 (cdr sc16))) (let ((sc17 e-16)) (case (vector-ref sc17 0) ((28) (let ((e-17 (vector-ref sc17 1))) (let ((e-18 (vector-ref sc17 2))) (let ((sc18 e-18)) (case (vector-ref sc18 0) ((12) (let ((e-19 (vector-ref sc18 1))) (let ((sc19 e-8)) (if (null? sc19) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))))(else (let ((sc12 e-3)) (case (vector-ref sc12 0) ((1) (let ((sc13 arg-13)) (if (null? sc13) (vector 1 ) (let ((e-7 (car sc13))) (let ((e-8 (cdr sc13))) (let ((sc14 e-7)) (if (null? sc14) (vector 1 ) (let ((e-12 (cdr sc14))) (let ((sc15 e-12)) (if (null? sc15) (vector 1 ) (let ((e-16 (cdr sc15))) (let ((sc16 e-16)) (case (vector-ref sc16 0) ((28) (let ((e-17 (vector-ref sc16 1))) (let ((e-18 (vector-ref sc16 2))) (let ((sc17 e-18)) (case (vector-ref sc17 0) ((12) (let ((e-19 (vector-ref sc17 1))) (let ((sc18 e-8)) (if (null? sc18) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))))))))))))(else (let ((sc8 e-3)) (case (vector-ref sc8 0) ((1) (let ((sc9 arg-13)) (if (null? sc9) (vector 1 ) (let ((e-7 (car sc9))) (let ((e-8 (cdr sc9))) (let ((sc10 e-7)) (if (null? sc10) (vector 1 ) (let ((e-12 (cdr sc10))) (let ((sc11 e-12)) (if (null? sc11) (vector 1 ) (let ((e-16 (cdr sc11))) (let ((sc12 e-16)) (case (vector-ref sc12 0) ((28) (let ((e-17 (vector-ref sc12 1))) (let ((e-18 (vector-ref sc12 2))) (let ((sc13 e-18)) (case (vector-ref sc13 0) ((12) (let ((e-19 (vector-ref sc13 1))) (let ((sc14 e-8)) (if (null? sc14) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))))))))))(else (let ((sc6 e-2)) (case (vector-ref sc6 0) ((1) (let ((sc7 arg-13)) (if (null? sc7) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((1) (let ((sc9 arg-13)) (if (null? sc9) (vector 1 ) (let ((e-7 (car sc9))) (let ((e-8 (cdr sc9))) (let ((sc10 e-7)) (if (null? sc10) (vector 1 ) (let ((e-12 (cdr sc10))) (let ((sc11 e-12)) (if (null? sc11) (vector 1 ) (let ((e-16 (cdr sc11))) (let ((sc12 e-16)) (case (vector-ref sc12 0) ((28) (let ((e-17 (vector-ref sc12 1))) (let ((e-18 (vector-ref sc12 2))) (let ((sc13 e-18)) (case (vector-ref sc13 0) ((12) (let ((e-19 (vector-ref sc13 1))) (let ((sc14 e-8)) (if (null? sc14) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-24 (car sc7))) (let ((e-25 (cdr sc7))) (let ((sc8 e-24)) (if (null? sc8) (let ((sc9 e-3)) (case (vector-ref sc9 0) ((1) (let ((sc10 arg-13)) (if (null? sc10) (vector 1 ) (let ((e-7 (car sc10))) (let ((e-8 (cdr sc10))) (let ((sc11 e-7)) (if (null? sc11) (vector 1 ) (let ((e-12 (cdr sc11))) (let ((sc12 e-12)) (if (null? sc12) (vector 1 ) (let ((e-16 (cdr sc12))) (let ((sc13 e-16)) (case (vector-ref sc13 0) ((28) (let ((e-17 (vector-ref sc13 1))) (let ((e-18 (vector-ref sc13 2))) (let ((sc14 e-18)) (case (vector-ref sc14 0) ((12) (let ((e-19 (vector-ref sc14 1))) (let ((sc15 e-8)) (if (null? sc15) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-29 (cdr sc8))) (let ((sc9 e-29)) (if (null? sc9) (let ((sc10 e-3)) (case (vector-ref sc10 0) ((1) (let ((sc11 arg-13)) (if (null? sc11) (vector 1 ) (let ((e-7 (car sc11))) (let ((e-8 (cdr sc11))) (let ((sc12 e-7)) (if (null? sc12) (vector 1 ) (let ((e-12 (cdr sc12))) (let ((sc13 e-12)) (if (null? sc13) (vector 1 ) (let ((e-16 (cdr sc13))) (let ((sc14 e-16)) (case (vector-ref sc14 0) ((28) (let ((e-17 (vector-ref sc14 1))) (let ((e-18 (vector-ref sc14 2))) (let ((sc15 e-18)) (case (vector-ref sc15 0) ((12) (let ((e-19 (vector-ref sc15 1))) (let ((sc16 e-8)) (if (null? sc16) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-33 (cdr sc9))) (let ((sc10 e-33)) (case (vector-ref sc10 0) ((28) (let ((e-34 (vector-ref sc10 1))) (let ((e-35 (vector-ref sc10 2))) (let ((sc11 e-35)) (case (vector-ref sc11 0) ((11) (let ((e-36 (vector-ref sc11 1))) (let ((sc12 e-25)) (if (null? sc12) (vector 2 (vector 28 e-34 (vector 11 e-36))) (let ((sc13 e-3)) (case (vector-ref sc13 0) ((1) (let ((sc14 arg-13)) (if (null? sc14) (vector 1 ) (let ((e-7 (car sc14))) (let ((e-8 (cdr sc14))) (let ((sc15 e-7)) (if (null? sc15) (vector 1 ) (let ((e-12 (cdr sc15))) (let ((sc16 e-12)) (if (null? sc16) (vector 1 ) (let ((e-16 (cdr sc16))) (let ((sc17 e-16)) (case (vector-ref sc17 0) ((28) (let ((e-17 (vector-ref sc17 1))) (let ((e-18 (vector-ref sc17 2))) (let ((sc18 e-18)) (case (vector-ref sc18 0) ((12) (let ((e-19 (vector-ref sc18 1))) (let ((sc19 e-8)) (if (null? sc19) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))(else (let ((sc11 e-3)) (case (vector-ref sc11 0) ((1) (let ((sc12 arg-13)) (if (null? sc12) (vector 1 ) (let ((e-7 (car sc12))) (let ((e-8 (cdr sc12))) (let ((sc13 e-7)) (if (null? sc13) (vector 1 ) (let ((e-12 (cdr sc13))) (let ((sc14 e-12)) (if (null? sc14) (vector 1 ) (let ((e-16 (cdr sc14))) (let ((sc15 e-16)) (case (vector-ref sc15 0) ((28) (let ((e-17 (vector-ref sc15 1))) (let ((e-18 (vector-ref sc15 2))) (let ((sc16 e-18)) (case (vector-ref sc16 0) ((12) (let ((e-19 (vector-ref sc16 1))) (let ((sc17 e-8)) (if (null? sc17) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))))(else (let ((sc10 e-3)) (case (vector-ref sc10 0) ((1) (let ((sc11 arg-13)) (if (null? sc11) (vector 1 ) (let ((e-7 (car sc11))) (let ((e-8 (cdr sc11))) (let ((sc12 e-7)) (if (null? sc12) (vector 1 ) (let ((e-12 (cdr sc12))) (let ((sc13 e-12)) (if (null? sc13) (vector 1 ) (let ((e-16 (cdr sc13))) (let ((sc14 e-16)) (case (vector-ref sc14 0) ((28) (let ((e-17 (vector-ref sc14 1))) (let ((e-18 (vector-ref sc14 2))) (let ((sc15 e-18)) (case (vector-ref sc15 0) ((12) (let ((e-19 (vector-ref sc15 1))) (let ((sc16 e-8)) (if (null? sc16) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))))))))))))(else (let ((sc6 e-3)) (case (vector-ref sc6 0) ((1) (let ((sc7 arg-13)) (if (null? sc7) (vector 1 ) (let ((e-7 (car sc7))) (let ((e-8 (cdr sc7))) (let ((sc8 e-7)) (if (null? sc8) (vector 1 ) (let ((e-12 (cdr sc8))) (let ((sc9 e-12)) (if (null? sc9) (vector 1 ) (let ((e-16 (cdr sc9))) (let ((sc10 e-16)) (case (vector-ref sc10 0) ((28) (let ((e-17 (vector-ref sc10 1))) (let ((e-18 (vector-ref sc10 2))) (let ((sc11 e-18)) (case (vector-ref sc11 0) ((12) (let ((e-19 (vector-ref sc11 1))) (let ((sc12 e-8)) (if (null? sc12) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))))))))))))(else (let ((sc5 e-2)) (case (vector-ref sc5 0) ((1) (let ((sc6 arg-13)) (if (null? sc6) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((1) (let ((sc8 arg-13)) (if (null? sc8) (vector 1 ) (let ((e-7 (car sc8))) (let ((e-8 (cdr sc8))) (let ((sc9 e-7)) (if (null? sc9) (vector 1 ) (let ((e-12 (cdr sc9))) (let ((sc10 e-12)) (if (null? sc10) (vector 1 ) (let ((e-16 (cdr sc10))) (let ((sc11 e-16)) (case (vector-ref sc11 0) ((28) (let ((e-17 (vector-ref sc11 1))) (let ((e-18 (vector-ref sc11 2))) (let ((sc12 e-18)) (case (vector-ref sc12 0) ((12) (let ((e-19 (vector-ref sc12 1))) (let ((sc13 e-8)) (if (null? sc13) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-24 (car sc6))) (let ((e-25 (cdr sc6))) (let ((sc7 e-24)) (if (null? sc7) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((1) (let ((sc9 arg-13)) (if (null? sc9) (vector 1 ) (let ((e-7 (car sc9))) (let ((e-8 (cdr sc9))) (let ((sc10 e-7)) (if (null? sc10) (vector 1 ) (let ((e-12 (cdr sc10))) (let ((sc11 e-12)) (if (null? sc11) (vector 1 ) (let ((e-16 (cdr sc11))) (let ((sc12 e-16)) (case (vector-ref sc12 0) ((28) (let ((e-17 (vector-ref sc12 1))) (let ((e-18 (vector-ref sc12 2))) (let ((sc13 e-18)) (case (vector-ref sc13 0) ((12) (let ((e-19 (vector-ref sc13 1))) (let ((sc14 e-8)) (if (null? sc14) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-29 (cdr sc7))) (let ((sc8 e-29)) (if (null? sc8) (let ((sc9 e-3)) (case (vector-ref sc9 0) ((1) (let ((sc10 arg-13)) (if (null? sc10) (vector 1 ) (let ((e-7 (car sc10))) (let ((e-8 (cdr sc10))) (let ((sc11 e-7)) (if (null? sc11) (vector 1 ) (let ((e-12 (cdr sc11))) (let ((sc12 e-12)) (if (null? sc12) (vector 1 ) (let ((e-16 (cdr sc12))) (let ((sc13 e-16)) (case (vector-ref sc13 0) ((28) (let ((e-17 (vector-ref sc13 1))) (let ((e-18 (vector-ref sc13 2))) (let ((sc14 e-18)) (case (vector-ref sc14 0) ((12) (let ((e-19 (vector-ref sc14 1))) (let ((sc15 e-8)) (if (null? sc15) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-33 (cdr sc8))) (let ((sc9 e-33)) (case (vector-ref sc9 0) ((28) (let ((e-34 (vector-ref sc9 1))) (let ((e-35 (vector-ref sc9 2))) (let ((sc10 e-35)) (case (vector-ref sc10 0) ((11) (let ((e-36 (vector-ref sc10 1))) (let ((sc11 e-25)) (if (null? sc11) (vector 2 (vector 28 e-34 (vector 11 e-36))) (let ((sc12 e-3)) (case (vector-ref sc12 0) ((1) (let ((sc13 arg-13)) (if (null? sc13) (vector 1 ) (let ((e-7 (car sc13))) (let ((e-8 (cdr sc13))) (let ((sc14 e-7)) (if (null? sc14) (vector 1 ) (let ((e-12 (cdr sc14))) (let ((sc15 e-12)) (if (null? sc15) (vector 1 ) (let ((e-16 (cdr sc15))) (let ((sc16 e-16)) (case (vector-ref sc16 0) ((28) (let ((e-17 (vector-ref sc16 1))) (let ((e-18 (vector-ref sc16 2))) (let ((sc17 e-18)) (case (vector-ref sc17 0) ((12) (let ((e-19 (vector-ref sc17 1))) (let ((sc18 e-8)) (if (null? sc18) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))(else (let ((sc10 e-3)) (case (vector-ref sc10 0) ((1) (let ((sc11 arg-13)) (if (null? sc11) (vector 1 ) (let ((e-7 (car sc11))) (let ((e-8 (cdr sc11))) (let ((sc12 e-7)) (if (null? sc12) (vector 1 ) (let ((e-12 (cdr sc12))) (let ((sc13 e-12)) (if (null? sc13) (vector 1 ) (let ((e-16 (cdr sc13))) (let ((sc14 e-16)) (case (vector-ref sc14 0) ((28) (let ((e-17 (vector-ref sc14 1))) (let ((e-18 (vector-ref sc14 2))) (let ((sc15 e-18)) (case (vector-ref sc15 0) ((12) (let ((e-19 (vector-ref sc15 1))) (let ((sc16 e-8)) (if (null? sc16) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))))(else (let ((sc9 e-3)) (case (vector-ref sc9 0) ((1) (let ((sc10 arg-13)) (if (null? sc10) (vector 1 ) (let ((e-7 (car sc10))) (let ((e-8 (cdr sc10))) (let ((sc11 e-7)) (if (null? sc11) (vector 1 ) (let ((e-12 (cdr sc11))) (let ((sc12 e-12)) (if (null? sc12) (vector 1 ) (let ((e-16 (cdr sc12))) (let ((sc13 e-16)) (case (vector-ref sc13 0) ((28) (let ((e-17 (vector-ref sc13 1))) (let ((e-18 (vector-ref sc13 2))) (let ((sc14 e-18)) (case (vector-ref sc14 0) ((12) (let ((e-19 (vector-ref sc14 1))) (let ((sc15 e-8)) (if (null? sc15) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))))))))))))(else (let ((sc5 e-3)) (case (vector-ref sc5 0) ((1) (let ((sc6 arg-13)) (if (null? sc6) (vector 1 ) (let ((e-7 (car sc6))) (let ((e-8 (cdr sc6))) (let ((sc7 e-7)) (if (null? sc7) (vector 1 ) (let ((e-12 (cdr sc7))) (let ((sc8 e-12)) (if (null? sc8) (vector 1 ) (let ((e-16 (cdr sc8))) (let ((sc9 e-16)) (case (vector-ref sc9 0) ((28) (let ((e-17 (vector-ref sc9 1))) (let ((e-18 (vector-ref sc9 2))) (let ((sc10 e-18)) (case (vector-ref sc10 0) ((12) (let ((e-19 (vector-ref sc10 1))) (let ((sc11 e-8)) (if (null? sc11) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))))))))))))))))))))(else (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((sc2 arg-13)) (if (null? sc2) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((1) (let ((sc4 arg-13)) (if (null? sc4) (vector 1 ) (let ((e-7 (car sc4))) (let ((e-8 (cdr sc4))) (let ((sc5 e-7)) (if (null? sc5) (vector 1 ) (let ((e-12 (cdr sc5))) (let ((sc6 e-12)) (if (null? sc6) (vector 1 ) (let ((e-16 (cdr sc6))) (let ((sc7 e-16)) (case (vector-ref sc7 0) ((28) (let ((e-17 (vector-ref sc7 1))) (let ((e-18 (vector-ref sc7 2))) (let ((sc8 e-18)) (case (vector-ref sc8 0) ((12) (let ((e-19 (vector-ref sc8 1))) (let ((sc9 e-8)) (if (null? sc9) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-24 (car sc2))) (let ((e-25 (cdr sc2))) (let ((sc3 e-24)) (if (null? sc3) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((sc5 arg-13)) (if (null? sc5) (vector 1 ) (let ((e-7 (car sc5))) (let ((e-8 (cdr sc5))) (let ((sc6 e-7)) (if (null? sc6) (vector 1 ) (let ((e-12 (cdr sc6))) (let ((sc7 e-12)) (if (null? sc7) (vector 1 ) (let ((e-16 (cdr sc7))) (let ((sc8 e-16)) (case (vector-ref sc8 0) ((28) (let ((e-17 (vector-ref sc8 1))) (let ((e-18 (vector-ref sc8 2))) (let ((sc9 e-18)) (case (vector-ref sc9 0) ((12) (let ((e-19 (vector-ref sc9 1))) (let ((sc10 e-8)) (if (null? sc10) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-29 (cdr sc3))) (let ((sc4 e-29)) (if (null? sc4) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((1) (let ((sc6 arg-13)) (if (null? sc6) (vector 1 ) (let ((e-7 (car sc6))) (let ((e-8 (cdr sc6))) (let ((sc7 e-7)) (if (null? sc7) (vector 1 ) (let ((e-12 (cdr sc7))) (let ((sc8 e-12)) (if (null? sc8) (vector 1 ) (let ((e-16 (cdr sc8))) (let ((sc9 e-16)) (case (vector-ref sc9 0) ((28) (let ((e-17 (vector-ref sc9 1))) (let ((e-18 (vector-ref sc9 2))) (let ((sc10 e-18)) (case (vector-ref sc10 0) ((12) (let ((e-19 (vector-ref sc10 1))) (let ((sc11 e-8)) (if (null? sc11) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 )))) (let ((e-33 (cdr sc4))) (let ((sc5 e-33)) (case (vector-ref sc5 0) ((28) (let ((e-34 (vector-ref sc5 1))) (let ((e-35 (vector-ref sc5 2))) (let ((sc6 e-35)) (case (vector-ref sc6 0) ((11) (let ((e-36 (vector-ref sc6 1))) (let ((sc7 e-25)) (if (null? sc7) (vector 2 (vector 28 e-34 (vector 11 e-36))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((1) (let ((sc9 arg-13)) (if (null? sc9) (vector 1 ) (let ((e-7 (car sc9))) (let ((e-8 (cdr sc9))) (let ((sc10 e-7)) (if (null? sc10) (vector 1 ) (let ((e-12 (cdr sc10))) (let ((sc11 e-12)) (if (null? sc11) (vector 1 ) (let ((e-16 (cdr sc11))) (let ((sc12 e-16)) (case (vector-ref sc12 0) ((28) (let ((e-17 (vector-ref sc12 1))) (let ((e-18 (vector-ref sc12 2))) (let ((sc13 e-18)) (case (vector-ref sc13 0) ((12) (let ((e-19 (vector-ref sc13 1))) (let ((sc14 e-8)) (if (null? sc14) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))(else (let ((sc6 e-3)) (case (vector-ref sc6 0) ((1) (let ((sc7 arg-13)) (if (null? sc7) (vector 1 ) (let ((e-7 (car sc7))) (let ((e-8 (cdr sc7))) (let ((sc8 e-7)) (if (null? sc8) (vector 1 ) (let ((e-12 (cdr sc8))) (let ((sc9 e-12)) (if (null? sc9) (vector 1 ) (let ((e-16 (cdr sc9))) (let ((sc10 e-16)) (case (vector-ref sc10 0) ((28) (let ((e-17 (vector-ref sc10 1))) (let ((e-18 (vector-ref sc10 2))) (let ((sc11 e-18)) (case (vector-ref sc11 0) ((12) (let ((e-19 (vector-ref sc11 1))) (let ((sc12 e-8)) (if (null? sc12) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))))(else (let ((sc5 e-3)) (case (vector-ref sc5 0) ((1) (let ((sc6 arg-13)) (if (null? sc6) (vector 1 ) (let ((e-7 (car sc6))) (let ((e-8 (cdr sc6))) (let ((sc7 e-7)) (if (null? sc7) (vector 1 ) (let ((e-12 (cdr sc7))) (let ((sc8 e-12)) (if (null? sc8) (vector 1 ) (let ((e-16 (cdr sc8))) (let ((sc9 e-16)) (case (vector-ref sc9 0) ((28) (let ((e-17 (vector-ref sc9 1))) (let ((e-18 (vector-ref sc9 2))) (let ((sc10 e-18)) (case (vector-ref sc10 0) ((12) (let ((e-19 (vector-ref sc10 1))) (let ((sc11 e-8)) (if (null? sc11) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))))))))))))(else (let ((sc1 e-3)) (case (vector-ref sc1 0) ((1) (let ((sc2 arg-13)) (if (null? sc2) (vector 1 ) (let ((e-7 (car sc2))) (let ((e-8 (cdr sc2))) (let ((sc3 e-7)) (if (null? sc3) (vector 1 ) (let ((e-12 (cdr sc3))) (let ((sc4 e-12)) (if (null? sc4) (vector 1 ) (let ((e-16 (cdr sc4))) (let ((sc5 e-16)) (case (vector-ref sc5 0) ((28) (let ((e-17 (vector-ref sc5 1))) (let ((e-18 (vector-ref sc5 2))) (let ((sc6 e-18)) (case (vector-ref sc6 0) ((12) (let ((e-19 (vector-ref sc6 1))) (let ((sc7 e-8)) (if (null? sc7) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 )))))(else (vector 1 )))))))(else (vector 1 )))))))))))))))(else (vector 1 ))))))))))))))))))(else (vector 1 )))))) -(define TTImpC-45ElabC-45Ambiguity-n--14540-6767-u--notOverloadableFn (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (let ((act-24 ((CoreC-45Context-lookupCtxtExact e-1 (let ((sc1 arg-2)) (let ((e-29 (vector-ref sc1 1))) e-29))) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (vector 1 1)) (else (vector 1 0)))))))))))(else (vector 1 0)))))) -(define TTImpC-45ElabC-45Ambiguity-n--11776-4407-u--notLHS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) 1)(else 0))))) -(define TTImpC-45ElabC-45Ambiguity-n--11776-4405-u--mkTerm (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((u--tm (TTImpC-45ElabC-45Ambiguity-n--11776-4404-u--wrapDot arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-8 arg-13 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd (Builtin-snd eta-0))) arg-4) (let ((sc0 arg-14)) (let ((e-17 (vector-ref sc0 18))) e-17)) (TTImpC-45ElabC-45Ambiguity-n--11776-4402-u--buildAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 0 arg-2 arg-13) arg-4)))) (TTImpC-45ElabC-45Ambiguity-case--expandAmbigNameC-44mkTerm-5029 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-14 arg-13 arg-12 arg-11 u--tm (PreludeC-45Types-elem (cons (lambda (arg-15) (lambda (arg-16) (CoreC-45Context-u--C-61C-61_Eq_DefFlag arg-15 arg-16))) (lambda (arg-15) (lambda (arg-16) (CoreC-45Context-u--C-47C-61_Eq_DefFlag arg-15 arg-16)))) (vector 6 ) (let ((sc0 arg-14)) (let ((e-11 (vector-ref sc0 12))) e-11))))))) -(define TTImpC-45ElabC-45Ambiguity-n--11776-4406-u--mkAlt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (let ((e-3 (cdr sc0))) (let ((sc1 e-3)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (TTImpC-45ElabC-45Ambiguity-n--11776-4405-u--mkTerm arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 (vector 9 e-6) e-7)))))))) -(define TTImpC-45ElabC-45Ambiguity-n--11776-4399-u--lookupUN (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-12 arg-13) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (LibrariesC-45DataC-45StringMap-lookup e-2 arg-13))))))) -(define TTImpC-45ElabC-45Ambiguity-n--11776-4403-u--isPrimName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-11)) (if (null? sc0) 1 (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (PreludeC-45Basics-C-124C-124 (CoreC-45Name-u--C-61C-61_Eq_Name (CoreC-45Name-dropNS arg-12) e-2) (lambda () (TTImpC-45ElabC-45Ambiguity-n--11776-4403-u--isPrimName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-3 arg-12))))))))) -(define TTImpC-45ElabC-45Ambiguity-n--11776-4402-u--buildAlt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (if (null? sc0) arg-11 (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (let ((sc2 e-7)) (let ((e-10 (car sc2))) (let ((e-11 (cdr sc2))) (let ((sc3 e-10)) (case (vector-ref sc3 0) ((0) (TTImpC-45ElabC-45Ambiguity-n--11776-4402-u--buildAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 e-6 arg-11 e-11) e-3)) (else (let ((e-14 (vector-ref sc3 1))) (let ((sc4 e-14)) (case (vector-ref sc4 0) ((0) (TTImpC-45ElabC-45Ambiguity-n--11776-4402-u--buildAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 9 e-6 arg-11 e-11) e-3)) (else (let ((e-17 (vector-ref sc4 1))) (TTImpC-45ElabC-45Ambiguity-n--11776-4402-u--buildAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 10 e-6 arg-11 e-17 e-11) e-3))))))))))))))))))))) -(define TTImpC-45ElabC-45Ambiguity-stripDelay (lambda (arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((5) (let ((e-3 (vector-ref sc0 3))) (TTImpC-45ElabC-45Ambiguity-stripDelay e-3)))(else arg-1))))) -(define TTImpC-45ElabC-45Ambiguity-pruneByType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (TTImpC-45ElabC-45Ambiguity-couldBe arg-1 arg-0 e-5 (TTImpC-45ElabC-45Ambiguity-stripDelay arg-4) eta-0 eta-1))) arg-5 '() ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((u--matches (DataC-45List-mapMaybe (lambda (eta-0) eta-0) e-6))) (let ((act-26 (CoreC-45Normalise-logNF arg-0 arg-1 "elab.prune" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Prune by") arg-3 arg-4 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-27 (CoreC-45ContextC-45Log-log arg-1 "elab.prun" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_Bool x-0)) (lambda (u--d) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_Bool u--d x-0)))) (cons (lambda (x-0) (TTImpC-45TTImp-u--show_Show_RawImp x-0)) (lambda (u--d) (lambda (x-0) (TTImpC-45TTImp-u--showPrec_Show_RawImp u--d x-0))))) u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_Bool x-0)) (lambda (d-0) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_Bool d-0 x-0)))) (cons (lambda (x-0) (TTImpC-45TTImp-u--show_Show_RawImp x-0)) (lambda (d-0) (lambda (x-0) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-0 x-0))))) u--d u--x)))) u--matches)) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-28 (TTImpC-45ElabC-45Ambiguity-case--pruneByType-6973 arg-0 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-6 u--matches (LibrariesC-45DataC-45BoolC-45Extra-anyTrue (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-fst eta-0)) u--matches)) ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (TTImpC-45ElabC-45Ambiguity-case--pruneByType-7068 arg-0 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-6 u--matches e-9 (DataC-45List-isNil e-9) ext-0))))))))))))))))))))))))))) -(define TTImpC-45ElabC-45Ambiguity-notOverloadable (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (cond ((equal? sc1 0) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (TTImpC-45ElabC-45Ambiguity-n--14540-6767-u--notOverloadableFn e-2 e-3 arg-0 (TTImpC-45TTImp-getFn e-3) eta-0)))))))))) +(define TTImpC-45ElabC-45App-dotErased (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (case (vector-ref arg-5 0) ((1) (let ((e-0 (vector-ref arg-5 1))) (let ((sc1 (let ((sc2 (AlgebraC-45Semiring-isErased (cons (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-8) (lambda (arg-9) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-8 arg-9))) (lambda (arg-8) (lambda (arg-9) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-8 arg-9))))) e-0))) (cond ((equal? sc2 1) 0) (else (AlgebraC-45Semiring-isErased (cons (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-8) (lambda (arg-9) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-8 arg-9))) (lambda (arg-8) (lambda (arg-9) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-8 arg-9))))) arg-6)))))) (cond ((equal? sc1 1) (let ((act-24 (TTImpC-45ElabC-45App-n--9266-4832-u--countConstructors e-0 arg-7 arg-6 arg-4 arg-3 arg-2 arg-1 arg-2 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((sc3 (let ((sc4 (PreludeC-45Types-u--C-61C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-8) (lambda (arg-9) (PreludeC-45Types-u--C-61C-61_Eq_Nat arg-8 arg-9))) (lambda (arg-8) (lambda (arg-9) (PreludeC-45Types-u--C-47C-61_Eq_Nat arg-8 arg-9)))) e-5 (box (PreludeC-45Types-u--fromInteger_Num_Nat 1))))) (cond ((equal? sc4 1) 1) (else (PreludeC-45Types-u--C-61C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-8) (lambda (arg-9) (PreludeC-45Types-u--C-61C-61_Eq_Nat arg-8 arg-9))) (lambda (arg-8) (lambda (arg-9) (PreludeC-45Types-u--C-47C-61_Eq_Nat arg-8 arg-9)))) e-5 (box (PreludeC-45Types-u--fromInteger_Num_Nat 0)))))))) (cond ((equal? sc3 1) (vector 1 arg-7)) (else (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 ((PreludeC-45Types-maybe (lambda () (lambda (eta-0) (vector 1 '()))) (lambda () (lambda (u--n) (CoreC-45Context-lookupCtxtExact u--n (let ((e-31 (vector-ref e-6 0))) e-31)))) arg-3) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (if (null? e-7) (vector 1 (TTImpC-45ElabC-45App-n--9266-4833-u--dotTerm e-0 arg-7 arg-6 arg-4 arg-3 arg-2 arg-1 arg-7)) (let ((e-1 (unbox e-7))) (let ((sc7 (PreludeC-45Types-elem (cons (lambda (arg-8) (lambda (arg-9) (PreludeC-45Types-u--C-61C-61_Eq_Nat arg-8 arg-9))) (lambda (arg-8) (lambda (arg-9) (PreludeC-45Types-u--C-47C-61_Eq_Nat arg-8 arg-9)))) arg-4 (let ((e-4 (vector-ref e-1 4))) e-4)))) (cond ((equal? sc7 1) (vector 1 arg-7)) (else (vector 1 (TTImpC-45ElabC-45App-n--9266-4833-u--dotTerm e-0 arg-7 arg-6 arg-4 arg-3 arg-2 arg-1 arg-7))))))))))))))))))))))) (else (vector 1 arg-7))))))(else (vector 1 arg-7))))) +(define TTImpC-45ElabC-45App-checkVisibleNS (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (case (vector-ref arg-2 0) ((0) (let ((e-0 (vector-ref arg-2 1))) (let ((e-1 (vector-ref arg-2 2))) (let ((act-24 (CoreC-45Context-isVisible arg-0 e-0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (cond ((equal? e-5 1) (let ((act-25 (CoreC-45Context-isAllPublic arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Context-getNS arg-0 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (CoreC-45Context-getNestedNS arg-0 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (let ((sc6 (cond ((equal? e-6 1) 1) (else (CoreC-45Context-visibleInAny (cons e-7 e-8) (vector 0 e-0 e-1) arg-3))))) (cond ((equal? sc6 1) (vector 1 0)) (else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 8 arg-1 (vector 0 e-0 e-1) '()) ext-0))))))))))))))))) (else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 8 arg-1 (vector 0 e-0 e-1) (box e-0)) ext-0))))))))))(else (vector 1 0))))) +(define TTImpC-45ElabC-45App-checkValidPattern (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 ext-0) (let ((act-24 (CoreC-45ContextC-45Log-log arg-1 "elab.app.lhs" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))))))))))))))))))))))))))))))))))))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Checking that " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 arg-8) " is a valid pattern"))) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (case (vector-ref arg-8 0) ((3) (let ((e-3 (vector-ref arg-8 3))) (case (vector-ref e-3 0) ((0) (TTImpC-45ElabC-45Dot-registerDot arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 2 arg-8 arg-9 ext-0))(else (vector 1 (cons arg-8 arg-9))))))(else (vector 1 (cons arg-8 arg-9))))))))) +(define TTImpC-45ElabC-45App-checkRestApp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 ext-0) (let ((e-2 (car arg-15))) (let ((e-3 (cdr arg-15))) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (TTImpC-45ElabC-45App-dotErased arg-1 arg-13 e-2 e-3 (let ((e-0 (vector-ref arg-7 0))) e-0) arg-6 arg-16 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (cond ((equal? arg-20 1) (vector 1 1)) (else (let ((act-26 (((arg-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) arg-9 (vector 10 arg-10 0))) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-4 (vector-ref act-26 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref act-26 1))) (TTImpC-45ElabC-45Check-concrete e-5 arg-9 e-7 ext-0))))))))) (case (vector-ref act-26 0) ((0) (let ((e-4 (vector-ref act-26 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 ((TTImpC-45ElabC-45App-needsDelay arg-1 (let ((e-0 (vector-ref arg-7 0))) e-0) e-7 arg-16) ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-4 (vector-ref act-27 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref act-27 1))) (let ((sc5 (let ((sc6 (let ((sc7 (TTImpC-45ElabC-45App-isHole arg-13))) (cond ((equal? sc7 1) e-7) (else 0))))) (cond ((equal? sc6 1) 1) (else e-8))))) (cond ((equal? sc5 1) (let ((act-28 (CoreC-45UnifyState-genMVName arg-1 arg-3 arg-12 ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-4 (vector-ref act-28 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref act-28 1))) (let ((act-29 (CoreC-45Context-clearDefs e-5 ext-0))) (case (vector-ref act-29 0) ((0) (let ((e-4 (vector-ref act-29 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref act-29 1))) (let ((act-30 (CoreC-45Normalise-u--quote_Quote_NF arg-1 arg-0 e-10 arg-9 arg-13 ext-0))) (case (vector-ref act-30 0) ((0) (let ((e-4 (vector-ref act-30 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref act-30 1))) (let ((act-31 ((TTImpC-45ElabC-45Check-argVar arg-0 arg-1 arg-3 (TTImpC-45TTImp-getFC e-6) arg-6 arg-9 e-9 e-11) ext-0))) (case (vector-ref act-31 0) ((0) (let ((e-4 (vector-ref act-31 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref act-31 1))) (let ((e-13 (car e-12))) (let ((e-4 (cdr e-12))) (let ((u--fntm (vector 4 arg-10 arg-11 e-4))) (let ((act-32 (CoreC-45Normalise-logNF arg-0 arg-1 "elab" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Delaying " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-9) (PreludeC-45TypesC-45String-C-43C-43 " " (TTImpC-45TTImp-u--show_Show_RawImp e-6))))) arg-9 arg-13 ext-0))) (case (vector-ref act-32 0) ((0) (let ((e-14 (vector-ref act-32 1))) (vector 0 e-14))) (else (let ((act-33 (CoreC-45ContextC-45Log-logTerm arg-0 arg-1 "elab" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "...as") e-4 ext-0))) (case (vector-ref act-33 0) ((0) (let ((e-15 (vector-ref act-33 1))) (vector 0 e-15))) (else (let ((act-34 (((arg-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) arg-9 e-4)) ext-0))) (case (vector-ref act-34 0) ((0) (let ((e-16 (vector-ref act-34 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref act-34 1))) (let ((act-35 (TTImpC-45ElabC-45App-checkAppWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-8 arg-9 arg-10 u--fntm e-16 (cons e-2 (PreludeC-45Types-u--C-43_Num_Nat (PreludeC-45Types-u--fromInteger_Num_Nat 1) e-3)) arg-17 arg-18 arg-19 e-7 arg-21 ext-0))) (case (vector-ref act-35 0) ((0) (let ((e-17 (vector-ref act-35 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref act-35 1))) (let ((_-0 (cons e-13 e-4))) (let ((e-19 (car e-17))) (let ((e-18 (cdr e-17))) (let ((act-36 (let ((act-36 (unbox arg-1))) (vector 1 act-36)))) (case (vector-ref act-36 0) ((0) (let ((e-20 (vector-ref act-36 1))) (vector 0 e-20))) (else (let ((e-20 (vector-ref act-36 1))) (let ((act-37 ((CoreC-45Normalise-nf arg-1 arg-0 e-20 arg-9 e-11) ext-0))) (case (vector-ref act-37 0) ((0) (let ((e-21 (vector-ref act-37 1))) (vector 0 e-21))) (else (let ((e-21 (vector-ref act-37 1))) (let ((act-38 (CoreC-45Normalise-logNF arg-0 arg-1 "elab" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Now trying " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-9) (PreludeC-45TypesC-45String-C-43C-43 " " (TTImpC-45TTImp-u--show_Show_RawImp e-6))))) arg-9 e-21 ext-0))) (case (vector-ref act-38 0) ((0) (let ((e-22 (vector-ref act-38 1))) (vector 0 e-22))) (else (let ((act-39 (let ((sc19 (TTImpC-45ElabC-45App-onLHS (let ((e-0 (vector-ref arg-7 0))) e-0)))) (cond ((equal? sc19 1) (((case (vector-ref e-21 0) ((1) (let ((e-24 (vector-ref e-21 2))) (case (vector-ref e-24 0) ((2) (let ((e-26 (vector-ref e-24 2))) (lambda () (lambda (eta-0) (let ((act-39 ((CoreC-45Context-lookupCtxtExact (vector 9 e-26) (let ((e-0 (vector-ref e-20 0))) e-0)) eta-0))) (case (vector-ref act-39 0) ((0) (let ((e-28 (vector-ref act-39 1))) (vector 0 e-28))) (else (let ((e-28 (vector-ref act-39 1))) (if (null? e-28) (vector 1 0) (let ((e-29 (unbox e-28))) (let ((sc24 (AlgebraC-45Semiring-isErased (cons (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-22) (lambda (arg-23) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-22 arg-23))) (lambda (arg-22) (lambda (arg-23) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-22 arg-23))))) (let ((e-43 (vector-ref e-29 7))) e-43)))) (cond ((equal? sc24 1) (CoreC-45UnifyState-addNoSolve arg-3 e-26 eta-0)) (else (vector 1 0))))))))))))))(else (lambda () (lambda (eta-0) (vector 1 0)))))))(else (lambda () (lambda (eta-0) (vector 1 0)))))) ext-0)) (else (vector 1 0)))))) (case (vector-ref act-39 0) ((0) (let ((e-23 (vector-ref act-39 1))) (vector 0 e-23))) (else (let ((act-40 (TTImpC-45ElabC-45Check-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-6 (let ((e-0 (vector-ref arg-7 0))) (let ((e-1 (vector-ref arg-7 1))) (let ((e-26 (vector-ref arg-7 3))) (let ((e-25 (vector-ref arg-7 4))) (let ((e-24 (vector-ref arg-7 5))) (vector e-0 e-1 0 e-26 e-25 e-24)))))) arg-8 arg-9 e-6 (box (CoreC-45Normalise-glueBack arg-1 arg-0 e-20 arg-9 e-21)) ext-0))) (case (vector-ref act-40 0) ((0) (let ((e-24 (vector-ref act-40 1))) (vector 0 e-24))) (else (let ((e-24 (vector-ref act-40 1))) (let ((act-41 (let ((sc21 (TTImpC-45ElabC-45App-onLHS (let ((e-0 (vector-ref arg-7 0))) e-0)))) (cond ((equal? sc21 1) (((case (vector-ref e-21 0) ((1) (let ((e-26 (vector-ref e-21 2))) (case (vector-ref e-26 0) ((2) (let ((e-28 (vector-ref e-26 2))) (lambda () (lambda (eta-0) (CoreC-45UnifyState-removeNoSolve arg-3 e-28 eta-0)))))(else (lambda () (lambda (eta-0) (vector 1 0)))))))(else (lambda () (lambda (eta-0) (vector 1 0)))))) ext-0)) (else (vector 1 0)))))) (case (vector-ref act-41 0) ((0) (let ((e-25 (vector-ref act-41 1))) (vector 0 e-25))) (else (let ((act-42 (let ((sc22 (TTImpC-45ElabC-45App-onLHS (let ((e-0 (vector-ref arg-7 0))) e-0)))) (cond ((equal? sc22 1) (let ((e-27 (car e-24))) (let ((e-26 (cdr e-24))) (TTImpC-45ElabC-45App-checkValidPattern arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-9 arg-10 e-27 e-26 ext-0)))) (else (vector 1 e-24)))))) (case (vector-ref act-42 0) ((0) (let ((e-26 (vector-ref act-42 1))) (vector 0 e-26))) (else (let ((e-26 (vector-ref act-42 1))) (let ((_-1 (cons e-19 e-18))) (let ((e-28 (car e-26))) (let ((e-27 (cdr e-26))) (let ((act-43 (let ((act-43 (unbox arg-1))) (vector 1 act-43)))) (case (vector-ref act-43 0) ((0) (let ((e-29 (vector-ref act-43 1))) (vector 0 e-29))) (else (let ((e-29 (vector-ref act-43 1))) (let ((act-44 (CoreC-45ContextC-45Log-logTerm arg-0 arg-1 "elab" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Solving " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 e-4) " with"))) e-28 ext-0))) (case (vector-ref act-44 0) ((0) (let ((e-30 (vector-ref act-44 1))) (vector 0 e-30))) (else (let ((act-45 (CoreC-45Unify-solveIfUndefined arg-0 arg-1 arg-3 arg-9 e-4 e-28 ext-0))) (case (vector-ref act-45 0) ((0) (let ((e-31 (vector-ref act-45 1))) (vector 0 e-31))) (else (let ((e-31 (vector-ref act-45 1))) (let ((act-46 (let ((_-2 (cons e-28 e-27))) (cond ((equal? e-31 1) (vector 1 e-19)) (else (let ((act-46 ((TTImpC-45ElabC-45Check-convert arg-0 arg-1 arg-3 arg-4 arg-10 arg-7 arg-9 (CoreC-45Normalise-gnf arg-0 arg-9 e-4) (CoreC-45Normalise-gnf arg-0 arg-9 e-28)) ext-0))) (case (vector-ref act-46 0) ((0) (let ((e-32 (vector-ref act-46 1))) (vector 0 e-32))) (else (let ((e-32 (vector-ref act-46 1))) (TTImpC-45ElabC-45App-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkRestApp-7128 arg-0 e-2 e-3 arg-21 arg-20 arg-19 arg-18 arg-17 arg-16 arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-13 e-4 _-0 u--fntm e-16 e-19 e-18 _-1 e-20 e-21 e-24 e-28 e-27 _-2 e-29 e-31 e-32 (let ((e-0 (vector-ref e-32 0))) e-0) ext-0)))))))))) (case (vector-ref act-46 0) ((0) (let ((e-32 (vector-ref act-46 1))) (vector 0 e-32))) (else (let ((e-32 (vector-ref act-46 1))) (let ((act-47 (let ((e-0 (vector-ref arg-7 0))) (case (vector-ref e-0 0) ((1) (let ((act-47 (CoreC-45Context-updateDef arg-1 (vector 9 e-13) (lambda (eta-0) (box (vector 7 0 (CoreC-45Context-holeInit 0)))) ext-0))) (case (vector-ref act-47 0) ((0) (let ((e-38 (vector-ref act-47 1))) (vector 0 e-38))) (else (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-39 (vector-ref eta-0 1))) (vector 0 e-39))) (else (vector 1 0)))) (lambda (eta-0) (CoreC-45Unify-solveIfUndefined arg-0 arg-1 arg-3 arg-9 e-4 e-28 eta-0)) ext-0)))))(else (vector 1 0)))))) (case (vector-ref act-47 0) ((0) (let ((e-33 (vector-ref act-47 1))) (vector 0 e-33))) (else (let ((act-48 (CoreC-45UnifyState-removeHole arg-3 e-13 ext-0))) (case (vector-ref act-48 0) ((0) (let ((e-34 (vector-ref act-48 1))) (vector 0 e-34))) (else (vector 1 (cons e-32 e-18)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (let ((act-28 (CoreC-45Normalise-logNF arg-0 arg-1 "elab" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Argument type " (CoreC-45Name-u--show_Show_Name arg-12))) arg-9 arg-13 ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-4 (vector-ref act-28 1))) (vector 0 e-4))) (else (let ((act-29 (CoreC-45Normalise-logNF arg-0 arg-1 "elab" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Full function type") arg-9 (vector 0 arg-10 arg-12 (vector 2 arg-10 arg-6 (vector 1 ) arg-13) arg-14) ext-0))) (case (vector-ref act-29 0) ((0) (let ((e-4 (vector-ref act-29 1))) (vector 0 e-4))) (else (let ((act-30 (CoreC-45ContextC-45Log-unverifiedLogC arg-1 "elab" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda (eta-0) (let ((act-30 ((PreludeC-45Types-maybe (lambda () (lambda (eta-1) (vector 1 '()))) (lambda () (lambda (u--t) (lambda (eta-1) (let ((act-30 ((CoreC-45Normalise-getTerm u--t) eta-1))) (case (vector-ref act-30 0) ((0) (let ((e-4 (vector-ref act-30 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref act-30 1))) (let ((act-31 (CoreC-45Context-toFullNames arg-1 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-2) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-2)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-2) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-2))))) e-11 eta-1))) (case (vector-ref act-31 0) ((0) (let ((e-4 (vector-ref act-31 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref act-31 1))) (vector 1 (box e-12))))))))))))) arg-21) eta-0))) (case (vector-ref act-30 0) ((0) (let ((e-4 (vector-ref act-30 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref act-30 1))) (vector 1 (PreludeC-45TypesC-45String-C-43C-43 "Overall expected type: " (PreludeC-45Show-u--show_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-0 u--d u--x)))) e-11)))))))) ext-0))) (case (vector-ref act-30 0) ((0) (let ((e-4 (vector-ref act-30 1))) (vector 0 e-4))) (else (let ((act-31 (TTImpC-45ElabC-45Check-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-6 (let ((e-0 (vector-ref arg-7 0))) (let ((e-1 (vector-ref arg-7 1))) (let ((e-13 (vector-ref arg-7 3))) (let ((e-4 (vector-ref arg-7 4))) (let ((e-12 (vector-ref arg-7 5))) (vector e-0 e-1 0 e-13 e-4 e-12)))))) arg-8 arg-9 e-6 (box (CoreC-45Normalise-glueBack arg-1 arg-0 e-5 arg-9 arg-13)) ext-0))) (case (vector-ref act-31 0) ((0) (let ((e-4 (vector-ref act-31 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref act-31 1))) (let ((act-32 (let ((sc10 (TTImpC-45ElabC-45App-onLHS (let ((e-0 (vector-ref arg-7 0))) e-0)))) (cond ((equal? sc10 1) (let ((e-13 (car e-12))) (let ((e-4 (cdr e-12))) (TTImpC-45ElabC-45App-checkValidPattern arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-9 arg-10 e-13 e-4 ext-0)))) (else (vector 1 e-12)))))) (case (vector-ref act-32 0) ((0) (let ((e-4 (vector-ref act-32 1))) (vector 0 e-4))) (else (let ((e-13 (vector-ref act-32 1))) (let ((e-14 (car e-13))) (let ((e-4 (cdr e-13))) (let ((act-33 (CoreC-45Normalise-logGlueNF arg-0 arg-1 "elab" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Got arg type") arg-9 e-4 ext-0))) (case (vector-ref act-33 0) ((0) (let ((e-15 (vector-ref act-33 1))) (vector 0 e-15))) (else (let ((act-34 (let ((act-34 (unbox arg-1))) (vector 1 act-34)))) (case (vector-ref act-34 0) ((0) (let ((e-16 (vector-ref act-34 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref act-34 1))) (let ((u--fntm (vector 4 arg-10 arg-11 e-14))) (let ((act-35 (((arg-14 e-16) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) arg-9 e-14)) ext-0))) (case (vector-ref act-35 0) ((0) (let ((e-17 (vector-ref act-35 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref act-35 1))) (TTImpC-45ElabC-45App-checkAppWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-8 arg-9 arg-10 u--fntm e-17 (cons e-2 (PreludeC-45Types-u--C-43_Num_Nat (PreludeC-45Types-u--fromInteger_Num_Nat 1) e-3)) arg-17 arg-18 arg-19 e-7 arg-21 ext-0))))))))))))))))))))))))))))))))))))))))))))))))))))))) +(define TTImpC-45ElabC-45App-checkAppWithC-39 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (case (vector-ref arg-11 0) ((0) (let ((e-9 (vector-ref arg-11 1))) (let ((e-10 (vector-ref arg-11 2))) (let ((e-11 (vector-ref arg-11 3))) (let ((e-12 (vector-ref arg-11 4))) (case (vector-ref e-11 0) ((2) (let ((e-18 (vector-ref e-11 1))) (let ((e-19 (vector-ref e-11 2))) (let ((e-20 (vector-ref e-11 3))) (let ((e-21 (vector-ref e-11 4))) (case (vector-ref e-20 0) ((1) (if (null? arg-13) (TTImpC-45ElabC-45App-with--checkAppWithC-39-8361 e-10 arg-15 (TTImpC-45ElabC-45App-findNamed e-10 arg-15) arg-0 e-18 e-21 e-19 e-12 e-9 arg-11 arg-17 arg-16 arg-14 arg-12 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1) (let ((e-28 (car arg-13))) (let ((e-29 (cdr arg-13))) (let ((u--argRig (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-5 e-19))) (lambda (eta-0) (TTImpC-45ElabC-45App-checkRestApp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 u--argRig arg-6 arg-7 arg-8 arg-9 arg-10 e-10 e-21 e-12 arg-12 e-28 e-29 arg-14 arg-15 arg-16 arg-17 eta-0))))))) ((0) (if (null? arg-13) (if (null? arg-14) (if (null? arg-15) (if (null? arg-17) (let ((u--argRig (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-5 e-19))) (let ((sc7 (TTImpC-45ElabC-45App-findNamed e-10 arg-15))) (if (null? sc7) (lambda (eta-0) (TTImpC-45ElabC-45App-makeImplicit arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 u--argRig arg-6 arg-7 arg-8 arg-9 arg-10 e-10 e-21 e-12 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 eta-0)) (let ((e-2 (unbox sc7))) (let ((e-5 (car e-2))) (let ((e-6 (cdr e-2))) (let ((e-13 (cdr e-5))) (lambda (eta-0) (TTImpC-45ElabC-45App-checkRestApp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 u--argRig arg-6 arg-7 arg-8 arg-9 arg-10 e-10 e-21 e-12 arg-12 e-13 arg-13 arg-14 e-6 arg-16 arg-17 eta-0))))))))) (let ((e-35 (unbox arg-17))) (let ((u--argRig (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-5 e-19))) (lambda (eta-0) (let ((act-24 ((CoreC-45Normalise-getNF arg-1 e-35) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((u--ty (vector 0 e-9 e-10 (vector 2 e-18 e-19 (vector 0 ) e-21) e-12))) (case (vector-ref e-5 0) ((0) (let ((e-3 (vector-ref e-5 3))) (case (vector-ref e-3 0) ((2) (let ((e-8 (vector-ref e-3 3))) (case (vector-ref e-8 0) ((0) (TTImpC-45ElabC-45Check-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 (CoreC-45Normalise-glueBack arg-1 arg-0 e-6 arg-8 u--ty) (box e-35) eta-0))(else (let ((sc11 (let ((e-16 (vector-ref arg-6 4))) e-16))) (cond ((equal? sc11 1) (TTImpC-45ElabC-45Check-handle arg-0 arg-1 arg-2 arg-3 arg-4 (lambda (eta-1) (TTImpC-45ElabC-45Check-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 (CoreC-45Normalise-glueBack arg-1 arg-0 e-6 arg-8 u--ty) (box e-35) eta-1)) (lambda (u--err) (lambda (eta-1) (TTImpC-45ElabC-45App-makeImplicit arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 u--argRig arg-6 arg-7 arg-8 arg-9 arg-10 e-10 e-21 e-12 arg-12 '() '() '() arg-16 (box e-35) eta-1))) eta-0)) (else (TTImpC-45ElabC-45App-makeImplicit arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 u--argRig arg-6 arg-7 arg-8 arg-9 arg-10 e-10 e-21 e-12 arg-12 '() '() '() arg-16 (box e-35) eta-0))))))))(else (let ((sc10 (let ((e-8 (vector-ref arg-6 4))) e-8))) (cond ((equal? sc10 1) (TTImpC-45ElabC-45Check-handle arg-0 arg-1 arg-2 arg-3 arg-4 (lambda (eta-1) (TTImpC-45ElabC-45Check-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 (CoreC-45Normalise-glueBack arg-1 arg-0 e-6 arg-8 u--ty) (box e-35) eta-1)) (lambda (u--err) (lambda (eta-1) (TTImpC-45ElabC-45App-makeImplicit arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 u--argRig arg-6 arg-7 arg-8 arg-9 arg-10 e-10 e-21 e-12 arg-12 '() '() '() arg-16 (box e-35) eta-1))) eta-0)) (else (TTImpC-45ElabC-45App-makeImplicit arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 u--argRig arg-6 arg-7 arg-8 arg-9 arg-10 e-10 e-21 e-12 arg-12 '() '() '() arg-16 (box e-35) eta-0))))))))(else (let ((sc9 (let ((e-4 (vector-ref arg-6 4))) e-4))) (cond ((equal? sc9 1) (TTImpC-45ElabC-45Check-handle arg-0 arg-1 arg-2 arg-3 arg-4 (lambda (eta-1) (TTImpC-45ElabC-45Check-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 (CoreC-45Normalise-glueBack arg-1 arg-0 e-6 arg-8 u--ty) (box e-35) eta-1)) (lambda (u--err) (lambda (eta-1) (TTImpC-45ElabC-45App-makeImplicit arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 u--argRig arg-6 arg-7 arg-8 arg-9 arg-10 e-10 e-21 e-12 arg-12 '() '() '() arg-16 (box e-35) eta-1))) eta-0)) (else (TTImpC-45ElabC-45App-makeImplicit arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 u--argRig arg-6 arg-7 arg-8 arg-9 arg-10 e-10 e-21 e-12 arg-12 '() '() '() arg-16 (box e-35) eta-0))))))))))))))))))) (let ((u--argRig (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-5 e-19))) (let ((sc6 (TTImpC-45ElabC-45App-findNamed e-10 arg-15))) (if (null? sc6) (lambda (eta-0) (TTImpC-45ElabC-45App-makeImplicit arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 u--argRig arg-6 arg-7 arg-8 arg-9 arg-10 e-10 e-21 e-12 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 eta-0)) (let ((e-2 (unbox sc6))) (let ((e-5 (car e-2))) (let ((e-6 (cdr e-2))) (let ((e-13 (cdr e-5))) (lambda (eta-0) (TTImpC-45ElabC-45App-checkRestApp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 u--argRig arg-6 arg-7 arg-8 arg-9 arg-10 e-10 e-21 e-12 arg-12 e-13 arg-13 arg-14 e-6 arg-16 arg-17 eta-0)))))))))) (let ((u--argRig (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-5 e-19))) (let ((sc5 (TTImpC-45ElabC-45App-findNamed e-10 arg-15))) (if (null? sc5) (lambda (eta-0) (TTImpC-45ElabC-45App-makeImplicit arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 u--argRig arg-6 arg-7 arg-8 arg-9 arg-10 e-10 e-21 e-12 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 eta-0)) (let ((e-2 (unbox sc5))) (let ((e-5 (car e-2))) (let ((e-6 (cdr e-2))) (let ((e-13 (cdr e-5))) (lambda (eta-0) (TTImpC-45ElabC-45App-checkRestApp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 u--argRig arg-6 arg-7 arg-8 arg-9 arg-10 e-10 e-21 e-12 arg-12 e-13 arg-13 arg-14 e-6 arg-16 arg-17 eta-0)))))))))) (let ((u--argRig (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-5 e-19))) (let ((sc4 (TTImpC-45ElabC-45App-findNamed e-10 arg-15))) (if (null? sc4) (lambda (eta-0) (TTImpC-45ElabC-45App-makeImplicit arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 u--argRig arg-6 arg-7 arg-8 arg-9 arg-10 e-10 e-21 e-12 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 eta-0)) (let ((e-2 (unbox sc4))) (let ((e-5 (car e-2))) (let ((e-6 (cdr e-2))) (let ((e-13 (cdr e-5))) (lambda (eta-0) (TTImpC-45ElabC-45App-checkRestApp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 u--argRig arg-6 arg-7 arg-8 arg-9 arg-10 e-10 e-21 e-12 arg-12 e-13 arg-13 arg-14 e-6 arg-16 arg-17 eta-0))))))))))) ((2) (if (null? arg-13) (if (null? arg-14) (if (null? arg-15) (if (null? arg-17) (if (null? arg-14) (let ((u--argRig (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-5 e-19))) (let ((sc8 (TTImpC-45ElabC-45App-findNamed e-10 arg-15))) (if (null? sc8) (lambda (eta-0) (TTImpC-45ElabC-45App-makeAutoImplicit arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 u--argRig arg-6 arg-7 arg-8 arg-9 arg-10 e-10 e-21 e-12 arg-12 arg-13 '() arg-15 arg-16 arg-17 eta-0)) (let ((e-1 (unbox sc8))) (let ((e-5 (car e-1))) (let ((e-6 (cdr e-1))) (let ((e-13 (cdr e-5))) (lambda (eta-0) (TTImpC-45ElabC-45App-checkRestApp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 u--argRig arg-6 arg-7 arg-8 arg-9 arg-10 e-10 e-21 e-12 arg-12 e-13 arg-13 '() e-6 arg-16 arg-17 eta-0))))))))) (let ((e-37 (car arg-14))) (let ((e-38 (cdr arg-14))) (lambda (eta-0) (TTImpC-45ElabC-45App-checkRestApp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-5 e-19) arg-6 arg-7 arg-8 arg-9 arg-10 e-10 e-21 e-12 arg-12 e-37 arg-13 e-38 arg-15 arg-16 arg-17 eta-0))))) (let ((e-44 (unbox arg-17))) (let ((u--argRig (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-5 e-19))) (lambda (eta-0) (let ((act-24 ((CoreC-45Normalise-getNF arg-1 e-44) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((u--ty (vector 0 e-9 e-10 (vector 2 e-18 e-19 (vector 2 ) e-21) e-12))) (case (vector-ref e-5 0) ((0) (let ((e-3 (vector-ref e-5 3))) (case (vector-ref e-3 0) ((2) (let ((e-8 (vector-ref e-3 3))) (case (vector-ref e-8 0) ((2) (TTImpC-45ElabC-45Check-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 (CoreC-45Normalise-glueBack arg-1 arg-0 e-6 arg-8 u--ty) (box e-44) eta-0))(else (TTImpC-45ElabC-45App-makeAutoImplicit arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 u--argRig arg-6 arg-7 arg-8 arg-9 arg-10 e-10 e-21 e-12 arg-12 '() '() '() arg-16 (box e-44) eta-0)))))(else (TTImpC-45ElabC-45App-makeAutoImplicit arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 u--argRig arg-6 arg-7 arg-8 arg-9 arg-10 e-10 e-21 e-12 arg-12 '() '() '() arg-16 (box e-44) eta-0)))))(else (TTImpC-45ElabC-45App-makeAutoImplicit arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 u--argRig arg-6 arg-7 arg-8 arg-9 arg-10 e-10 e-21 e-12 arg-12 '() '() '() arg-16 (box e-44) eta-0)))))))))))))))) (if (null? arg-14) (let ((u--argRig (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-5 e-19))) (let ((sc7 (TTImpC-45ElabC-45App-findNamed e-10 arg-15))) (if (null? sc7) (lambda (eta-0) (TTImpC-45ElabC-45App-makeAutoImplicit arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 u--argRig arg-6 arg-7 arg-8 arg-9 arg-10 e-10 e-21 e-12 arg-12 arg-13 '() arg-15 arg-16 arg-17 eta-0)) (let ((e-1 (unbox sc7))) (let ((e-5 (car e-1))) (let ((e-6 (cdr e-1))) (let ((e-13 (cdr e-5))) (lambda (eta-0) (TTImpC-45ElabC-45App-checkRestApp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 u--argRig arg-6 arg-7 arg-8 arg-9 arg-10 e-10 e-21 e-12 arg-12 e-13 arg-13 '() e-6 arg-16 arg-17 eta-0))))))))) (let ((e-37 (car arg-14))) (let ((e-38 (cdr arg-14))) (lambda (eta-0) (TTImpC-45ElabC-45App-checkRestApp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-5 e-19) arg-6 arg-7 arg-8 arg-9 arg-10 e-10 e-21 e-12 arg-12 e-37 arg-13 e-38 arg-15 arg-16 arg-17 eta-0)))))) (if (null? arg-14) (let ((u--argRig (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-5 e-19))) (let ((sc6 (TTImpC-45ElabC-45App-findNamed e-10 arg-15))) (if (null? sc6) (lambda (eta-0) (TTImpC-45ElabC-45App-makeAutoImplicit arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 u--argRig arg-6 arg-7 arg-8 arg-9 arg-10 e-10 e-21 e-12 arg-12 arg-13 '() arg-15 arg-16 arg-17 eta-0)) (let ((e-1 (unbox sc6))) (let ((e-5 (car e-1))) (let ((e-6 (cdr e-1))) (let ((e-13 (cdr e-5))) (lambda (eta-0) (TTImpC-45ElabC-45App-checkRestApp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 u--argRig arg-6 arg-7 arg-8 arg-9 arg-10 e-10 e-21 e-12 arg-12 e-13 arg-13 '() e-6 arg-16 arg-17 eta-0))))))))) (let ((e-37 (car arg-14))) (let ((e-38 (cdr arg-14))) (lambda (eta-0) (TTImpC-45ElabC-45App-checkRestApp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-5 e-19) arg-6 arg-7 arg-8 arg-9 arg-10 e-10 e-21 e-12 arg-12 e-37 arg-13 e-38 arg-15 arg-16 arg-17 eta-0)))))) (if (null? arg-14) (let ((u--argRig (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-5 e-19))) (let ((sc5 (TTImpC-45ElabC-45App-findNamed e-10 arg-15))) (if (null? sc5) (lambda (eta-0) (TTImpC-45ElabC-45App-makeAutoImplicit arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 u--argRig arg-6 arg-7 arg-8 arg-9 arg-10 e-10 e-21 e-12 arg-12 arg-13 '() arg-15 arg-16 arg-17 eta-0)) (let ((e-1 (unbox sc5))) (let ((e-5 (car e-1))) (let ((e-6 (cdr e-1))) (let ((e-13 (cdr e-5))) (lambda (eta-0) (TTImpC-45ElabC-45App-checkRestApp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 u--argRig arg-6 arg-7 arg-8 arg-9 arg-10 e-10 e-21 e-12 arg-12 e-13 arg-13 '() e-6 arg-16 arg-17 eta-0))))))))) (let ((e-37 (car arg-14))) (let ((e-38 (cdr arg-14))) (lambda (eta-0) (TTImpC-45ElabC-45App-checkRestApp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-5 e-19) arg-6 arg-7 arg-8 arg-9 arg-10 e-10 e-21 e-12 arg-12 e-37 arg-13 e-38 arg-15 arg-16 arg-17 eta-0))))))) ((3) (let ((e-26 (vector-ref e-20 1))) (if (null? arg-13) (if (null? arg-14) (if (null? arg-15) (if (null? arg-17) (let ((u--argRig (AlgebraC-45ZeroOneOmega-rigMult arg-5 e-19))) (let ((sc7 (TTImpC-45ElabC-45App-findNamed e-10 arg-15))) (if (null? sc7) (lambda (eta-0) (TTImpC-45ElabC-45App-makeDefImplicit arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 u--argRig arg-6 arg-7 arg-8 arg-9 arg-10 e-10 e-26 e-21 e-12 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 eta-0)) (let ((e-2 (unbox sc7))) (let ((e-5 (car e-2))) (let ((e-6 (cdr e-2))) (let ((e-13 (cdr e-5))) (lambda (eta-0) (TTImpC-45ElabC-45App-checkRestApp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 u--argRig arg-6 arg-7 arg-8 arg-9 arg-10 e-10 e-21 e-12 arg-12 e-13 arg-13 arg-14 e-6 arg-16 arg-17 eta-0))))))))) (let ((e-49 (unbox arg-17))) (let ((u--argRig (AlgebraC-45ZeroOneOmega-rigMult arg-5 e-19))) (lambda (eta-0) (let ((act-24 ((CoreC-45Normalise-getNF arg-1 e-49) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((u--ty (vector 0 e-9 e-10 (vector 2 e-18 e-19 (vector 3 e-26) e-21) e-12))) (case (vector-ref e-5 0) ((0) (let ((e-3 (vector-ref e-5 3))) (case (vector-ref e-3 0) ((2) (let ((e-8 (vector-ref e-3 3))) (case (vector-ref e-8 0) ((3) (let ((e-15 (vector-ref e-8 1))) (let ((act-26 (CoreC-45Normalise-u--convert_Convert_NF arg-1 arg-0 e-6 arg-8 e-26 e-15 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-16 (vector-ref act-26 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref act-26 1))) (cond ((equal? e-16 1) (TTImpC-45ElabC-45Check-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 (CoreC-45Normalise-glueBack arg-1 arg-0 e-6 arg-8 u--ty) (box e-49) eta-0)) (else (TTImpC-45ElabC-45App-makeDefImplicit arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 u--argRig arg-6 arg-7 arg-8 arg-9 arg-10 e-10 e-26 e-21 e-12 arg-12 '() '() '() arg-16 (box e-49) eta-0)))))))))(else (TTImpC-45ElabC-45App-makeDefImplicit arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 u--argRig arg-6 arg-7 arg-8 arg-9 arg-10 e-10 e-26 e-21 e-12 arg-12 '() '() '() arg-16 (box e-49) eta-0)))))(else (TTImpC-45ElabC-45App-makeDefImplicit arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 u--argRig arg-6 arg-7 arg-8 arg-9 arg-10 e-10 e-26 e-21 e-12 arg-12 '() '() '() arg-16 (box e-49) eta-0)))))(else (TTImpC-45ElabC-45App-makeDefImplicit arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 u--argRig arg-6 arg-7 arg-8 arg-9 arg-10 e-10 e-26 e-21 e-12 arg-12 '() '() '() arg-16 (box e-49) eta-0)))))))))))))))) (let ((u--argRig (AlgebraC-45ZeroOneOmega-rigMult arg-5 e-19))) (let ((sc6 (TTImpC-45ElabC-45App-findNamed e-10 arg-15))) (if (null? sc6) (lambda (eta-0) (TTImpC-45ElabC-45App-makeDefImplicit arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 u--argRig arg-6 arg-7 arg-8 arg-9 arg-10 e-10 e-26 e-21 e-12 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 eta-0)) (let ((e-2 (unbox sc6))) (let ((e-5 (car e-2))) (let ((e-6 (cdr e-2))) (let ((e-13 (cdr e-5))) (lambda (eta-0) (TTImpC-45ElabC-45App-checkRestApp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 u--argRig arg-6 arg-7 arg-8 arg-9 arg-10 e-10 e-21 e-12 arg-12 e-13 arg-13 arg-14 e-6 arg-16 arg-17 eta-0)))))))))) (let ((u--argRig (AlgebraC-45ZeroOneOmega-rigMult arg-5 e-19))) (let ((sc5 (TTImpC-45ElabC-45App-findNamed e-10 arg-15))) (if (null? sc5) (lambda (eta-0) (TTImpC-45ElabC-45App-makeDefImplicit arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 u--argRig arg-6 arg-7 arg-8 arg-9 arg-10 e-10 e-26 e-21 e-12 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 eta-0)) (let ((e-2 (unbox sc5))) (let ((e-5 (car e-2))) (let ((e-6 (cdr e-2))) (let ((e-13 (cdr e-5))) (lambda (eta-0) (TTImpC-45ElabC-45App-checkRestApp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 u--argRig arg-6 arg-7 arg-8 arg-9 arg-10 e-10 e-21 e-12 arg-12 e-13 arg-13 arg-14 e-6 arg-16 arg-17 eta-0)))))))))) (let ((u--argRig (AlgebraC-45ZeroOneOmega-rigMult arg-5 e-19))) (let ((sc4 (TTImpC-45ElabC-45App-findNamed e-10 arg-15))) (if (null? sc4) (lambda (eta-0) (TTImpC-45ElabC-45App-makeDefImplicit arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 u--argRig arg-6 arg-7 arg-8 arg-9 arg-10 e-10 e-26 e-21 e-12 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 eta-0)) (let ((e-2 (unbox sc4))) (let ((e-5 (car e-2))) (let ((e-6 (cdr e-2))) (let ((e-13 (cdr e-5))) (lambda (eta-0) (TTImpC-45ElabC-45App-checkRestApp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 u--argRig arg-6 arg-7 arg-8 arg-9 arg-10 e-10 e-21 e-12 arg-12 e-13 arg-13 arg-14 e-6 arg-16 arg-17 eta-0))))))))))))(else (if (null? arg-12) (lambda (clam-11) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((sc5 (PreludeC-45Interfaces-all (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (lambda (eta-0) (TTImpC-45ElabC-45App-isImplicitAs eta-0)) (PreludeC-45TypesC-45List-C-43C-43 arg-14 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) (DataC-45List-filter (lambda (eta-0) (let ((sc6 (TTImpC-45ElabC-45App-isBindAllExpPattern (Builtin-fst eta-0)))) (cond ((equal? sc6 1) 0) (else 1)))) arg-15)))))) (cond ((equal? sc5 1) (TTImpC-45ElabC-45Check-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 (CoreC-45Normalise-glueBack arg-1 arg-0 e-5 arg-8 arg-11) arg-17 clam-11)) (else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 26 arg-0 arg-9 arg-8 (PreludeC-45TypesC-45List-C-43C-43 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (vector 1 "")) arg-14) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-fst eta-0)) arg-15)) arg-10) clam-11))))))))) (let ((e-3 (car arg-12))) (let ((e-4 (cdr arg-12))) (lambda (clam-5) (if (null? arg-13) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((sc6 (PreludeC-45Interfaces-all (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (lambda (eta-0) (TTImpC-45ElabC-45App-isImplicitAs eta-0)) (PreludeC-45TypesC-45List-C-43C-43 arg-14 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) (DataC-45List-filter (lambda (eta-0) (let ((sc7 (TTImpC-45ElabC-45App-isBindAllExpPattern (Builtin-fst eta-0)))) (cond ((equal? sc7 1) 0) (else 1)))) arg-15)))))) (cond ((equal? sc6 1) (TTImpC-45ElabC-45Check-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 (CoreC-45Normalise-glueBack arg-1 arg-0 e-5 arg-8 arg-11) arg-17 clam-5)) (else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 26 arg-0 arg-9 arg-8 (PreludeC-45TypesC-45List-C-43C-43 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (vector 1 "")) arg-14) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-fst eta-0)) arg-15)) arg-10) clam-5)))))))) (let ((e-6 (car arg-13))) (let ((e-7 (cdr arg-13))) (let ((act-24 (CoreC-45Normalise-logNF arg-0 arg-1 "elab.with" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Function type") arg-8 arg-11 clam-5))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45ContextC-45Log-logTerm arg-0 arg-1 "elab.with" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Function ") arg-10 clam-5))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45UnifyState-genName arg-1 arg-3 "argTy" clam-5))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref act-26 1))) (let ((act-27 (CoreC-45UnifyState-genName arg-1 arg-3 "retTy" clam-5))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref act-27 1))) (let ((act-28 (TTImpC-45ElabC-45Check-metaVar arg-0 arg-1 arg-3 arg-9 (AlgebraC-45Semiring-erased (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))) arg-8 e-13 (vector 11 arg-9) clam-5))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((e-15 (vector-ref act-28 1))) (let ((u--argTyG (CoreC-45Normalise-gnf arg-0 arg-8 e-15))) (let ((act-29 (TTImpC-45ElabC-45Check-metaVar arg-0 arg-1 arg-3 arg-9 (AlgebraC-45Semiring-erased (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))) arg-8 e-14 (vector 11 arg-9) clam-5))) (case (vector-ref act-29 0) ((0) (let ((e-2 (vector-ref act-29 1))) (vector 0 e-2))) (else (let ((e-16 (vector-ref act-29 1))) (let ((act-30 (TTImpC-45ElabC-45Check-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-6 (box u--argTyG) clam-5))) (case (vector-ref act-30 0) ((0) (let ((e-2 (vector-ref act-30 1))) (vector 0 e-2))) (else (let ((e-17 (vector-ref act-30 1))) (let ((e-2 (car e-17))) (let ((e-22 (cdr e-17))) (let ((u--fntm (vector 4 arg-9 arg-10 e-2))) (let ((act-31 (let ((act-31 (unbox arg-1))) (vector 1 act-31)))) (case (vector-ref act-31 0) ((0) (let ((e-23 (vector-ref act-31 1))) (vector 0 e-23))) (else (let ((e-23 (vector-ref act-31 1))) (let ((act-32 ((CoreC-45Normalise-nf arg-1 arg-0 e-23 arg-8 e-16) clam-5))) (case (vector-ref act-32 0) ((0) (let ((e-24 (vector-ref act-32 1))) (vector 0 e-24))) (else (let ((e-24 (vector-ref act-32 1))) (let ((u--expfnty (CoreC-45Normalise-gnf arg-0 arg-8 (vector 3 arg-9 e-13 (vector 2 arg-9 (AlgebraC-45ZeroOneOmega-u--top_Top_ZeroOneOmega) (vector 1 ) e-15) (CoreC-45TT-u--weaken_Weaken_Term e-16))))) (let ((act-33 (CoreC-45Normalise-logGlue arg-0 arg-1 "elab.with" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected function type") arg-8 u--expfnty clam-5))) (case (vector-ref act-33 0) ((0) (let ((e-25 (vector-ref act-33 1))) (vector 0 e-25))) (else (let ((act-34 (if (null? arg-17) (vector 1 0) (let ((e-1 (unbox arg-17))) (CoreC-45Normalise-logGlue arg-0 arg-1 "elab.with" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected result type") arg-8 e-1 clam-5))))) (case (vector-ref act-34 0) ((0) (let ((e-26 (vector-ref act-34 1))) (vector 0 e-26))) (else (let ((act-35 ((TTImpC-45ElabC-45App-checkAppWithC-39 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 u--fntm e-24 (cons e-3 (PreludeC-45Types-u--C-43_Num_Nat (PreludeC-45Types-u--fromInteger_Num_Nat 1) e-4)) e-7 arg-14 arg-15 arg-16 arg-17) clam-5))) (case (vector-ref act-35 0) ((0) (let ((e-27 (vector-ref act-35 1))) (vector 0 e-27))) (else (let ((e-27 (vector-ref act-35 1))) (let ((act-36 ((TTImpC-45ElabC-45Check-convert arg-0 arg-1 arg-3 arg-4 arg-9 arg-6 arg-8 (CoreC-45Normalise-glueBack arg-1 arg-0 e-23 arg-8 arg-11) u--expfnty) clam-5))) (case (vector-ref act-36 0) ((0) (let ((e-28 (vector-ref act-36 1))) (vector 0 e-28))) (else (let ((e-28 (vector-ref act-36 1))) (let ((_-0 (cons e-2 e-22))) (TTImpC-45ElabC-45App-case--caseC-32blockC-32inC-32checkAppWithC-39-10220 e-3 e-4 e-6 e-7 arg-0 arg-17 arg-16 arg-15 arg-14 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-13 e-14 e-15 u--argTyG e-16 e-2 e-22 _-0 u--fntm e-23 e-24 u--expfnty e-27 e-28 (let ((e-0 (vector-ref e-28 0))) e-0) clam-5)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))(else (if (null? arg-12) (lambda (clam-13) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((sc4 (PreludeC-45Interfaces-all (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (lambda (eta-0) (TTImpC-45ElabC-45App-isImplicitAs eta-0)) (PreludeC-45TypesC-45List-C-43C-43 arg-14 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) (DataC-45List-filter (lambda (eta-0) (let ((sc5 (TTImpC-45ElabC-45App-isBindAllExpPattern (Builtin-fst eta-0)))) (cond ((equal? sc5 1) 0) (else 1)))) arg-15)))))) (cond ((equal? sc4 1) (TTImpC-45ElabC-45Check-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 (CoreC-45Normalise-glueBack arg-1 arg-0 e-5 arg-8 arg-11) arg-17 clam-13)) (else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 26 arg-0 arg-9 arg-8 (PreludeC-45TypesC-45List-C-43C-43 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (vector 1 "")) arg-14) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-fst eta-0)) arg-15)) arg-10) clam-13))))))))) (let ((e-3 (car arg-12))) (let ((e-4 (cdr arg-12))) (lambda (clam-6) (if (null? arg-13) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((sc5 (PreludeC-45Interfaces-all (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (lambda (eta-0) (TTImpC-45ElabC-45App-isImplicitAs eta-0)) (PreludeC-45TypesC-45List-C-43C-43 arg-14 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) (DataC-45List-filter (lambda (eta-0) (let ((sc6 (TTImpC-45ElabC-45App-isBindAllExpPattern (Builtin-fst eta-0)))) (cond ((equal? sc6 1) 0) (else 1)))) arg-15)))))) (cond ((equal? sc5 1) (TTImpC-45ElabC-45Check-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 (CoreC-45Normalise-glueBack arg-1 arg-0 e-5 arg-8 arg-11) arg-17 clam-6)) (else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 26 arg-0 arg-9 arg-8 (PreludeC-45TypesC-45List-C-43C-43 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (vector 1 "")) arg-14) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-fst eta-0)) arg-15)) arg-10) clam-6)))))))) (let ((e-6 (car arg-13))) (let ((e-7 (cdr arg-13))) (let ((act-24 (CoreC-45Normalise-logNF arg-0 arg-1 "elab.with" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Function type") arg-8 arg-11 clam-6))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45ContextC-45Log-logTerm arg-0 arg-1 "elab.with" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Function ") arg-10 clam-6))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45UnifyState-genName arg-1 arg-3 "argTy" clam-6))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref act-26 1))) (let ((act-27 (CoreC-45UnifyState-genName arg-1 arg-3 "retTy" clam-6))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref act-27 1))) (let ((act-28 (TTImpC-45ElabC-45Check-metaVar arg-0 arg-1 arg-3 arg-9 (AlgebraC-45Semiring-erased (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))) arg-8 e-13 (vector 11 arg-9) clam-6))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((e-15 (vector-ref act-28 1))) (let ((u--argTyG (CoreC-45Normalise-gnf arg-0 arg-8 e-15))) (let ((act-29 (TTImpC-45ElabC-45Check-metaVar arg-0 arg-1 arg-3 arg-9 (AlgebraC-45Semiring-erased (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))) arg-8 e-14 (vector 11 arg-9) clam-6))) (case (vector-ref act-29 0) ((0) (let ((e-2 (vector-ref act-29 1))) (vector 0 e-2))) (else (let ((e-16 (vector-ref act-29 1))) (let ((act-30 (TTImpC-45ElabC-45Check-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-6 (box u--argTyG) clam-6))) (case (vector-ref act-30 0) ((0) (let ((e-2 (vector-ref act-30 1))) (vector 0 e-2))) (else (let ((e-17 (vector-ref act-30 1))) (let ((e-2 (car e-17))) (let ((e-18 (cdr e-17))) (let ((u--fntm (vector 4 arg-9 arg-10 e-2))) (let ((act-31 (let ((act-31 (unbox arg-1))) (vector 1 act-31)))) (case (vector-ref act-31 0) ((0) (let ((e-19 (vector-ref act-31 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref act-31 1))) (let ((act-32 ((CoreC-45Normalise-nf arg-1 arg-0 e-19 arg-8 e-16) clam-6))) (case (vector-ref act-32 0) ((0) (let ((e-20 (vector-ref act-32 1))) (vector 0 e-20))) (else (let ((e-20 (vector-ref act-32 1))) (let ((u--expfnty (CoreC-45Normalise-gnf arg-0 arg-8 (vector 3 arg-9 e-13 (vector 2 arg-9 (AlgebraC-45ZeroOneOmega-u--top_Top_ZeroOneOmega) (vector 1 ) e-15) (CoreC-45TT-u--weaken_Weaken_Term e-16))))) (let ((act-33 (CoreC-45Normalise-logGlue arg-0 arg-1 "elab.with" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected function type") arg-8 u--expfnty clam-6))) (case (vector-ref act-33 0) ((0) (let ((e-21 (vector-ref act-33 1))) (vector 0 e-21))) (else (let ((act-34 (if (null? arg-17) (vector 1 0) (let ((e-1 (unbox arg-17))) (CoreC-45Normalise-logGlue arg-0 arg-1 "elab.with" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected result type") arg-8 e-1 clam-6))))) (case (vector-ref act-34 0) ((0) (let ((e-22 (vector-ref act-34 1))) (vector 0 e-22))) (else (let ((act-35 ((TTImpC-45ElabC-45App-checkAppWithC-39 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 u--fntm e-20 (cons e-3 (PreludeC-45Types-u--C-43_Num_Nat (PreludeC-45Types-u--fromInteger_Num_Nat 1) e-4)) e-7 arg-14 arg-15 arg-16 arg-17) clam-6))) (case (vector-ref act-35 0) ((0) (let ((e-23 (vector-ref act-35 1))) (vector 0 e-23))) (else (let ((e-23 (vector-ref act-35 1))) (let ((act-36 ((TTImpC-45ElabC-45Check-convert arg-0 arg-1 arg-3 arg-4 arg-9 arg-6 arg-8 (CoreC-45Normalise-glueBack arg-1 arg-0 e-19 arg-8 arg-11) u--expfnty) clam-6))) (case (vector-ref act-36 0) ((0) (let ((e-24 (vector-ref act-36 1))) (vector 0 e-24))) (else (let ((e-24 (vector-ref act-36 1))) (let ((_-0 (cons e-2 e-18))) (TTImpC-45ElabC-45App-case--caseC-32blockC-32inC-32checkAppWithC-39-10220 e-3 e-4 e-6 e-7 arg-0 arg-17 arg-16 arg-15 arg-14 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-13 e-14 e-15 u--argTyG e-16 e-2 e-18 _-0 u--fntm e-19 e-20 u--expfnty e-23 e-24 (let ((e-0 (vector-ref e-24 0))) e-0) clam-6))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) ((5) (let ((e-14 (vector-ref arg-11 1))) (let ((e-15 (vector-ref arg-11 2))) (let ((e-16 (vector-ref arg-11 3))) (case (vector-ref e-16 0) ((0) (let ((e-53 (vector-ref e-16 3))) (case (vector-ref e-53 0) ((2) (TTImpC-45ElabC-45App-checkAppWithC-39 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (vector 8 e-14 e-15 arg-10) e-16 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17))(else (if (null? arg-12) (lambda (clam-15) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((sc5 (PreludeC-45Interfaces-all (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (lambda (eta-0) (TTImpC-45ElabC-45App-isImplicitAs eta-0)) (PreludeC-45TypesC-45List-C-43C-43 arg-14 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) (DataC-45List-filter (lambda (eta-0) (let ((sc6 (TTImpC-45ElabC-45App-isBindAllExpPattern (Builtin-fst eta-0)))) (cond ((equal? sc6 1) 0) (else 1)))) arg-15)))))) (cond ((equal? sc5 1) (TTImpC-45ElabC-45Check-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 (CoreC-45Normalise-glueBack arg-1 arg-0 e-5 arg-8 arg-11) arg-17 clam-15)) (else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 26 arg-0 arg-9 arg-8 (PreludeC-45TypesC-45List-C-43C-43 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (vector 1 "")) arg-14) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-fst eta-0)) arg-15)) arg-10) clam-15))))))))) (let ((e-3 (car arg-12))) (let ((e-4 (cdr arg-12))) (lambda (clam-7) (if (null? arg-13) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((sc6 (PreludeC-45Interfaces-all (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (lambda (eta-0) (TTImpC-45ElabC-45App-isImplicitAs eta-0)) (PreludeC-45TypesC-45List-C-43C-43 arg-14 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) (DataC-45List-filter (lambda (eta-0) (let ((sc7 (TTImpC-45ElabC-45App-isBindAllExpPattern (Builtin-fst eta-0)))) (cond ((equal? sc7 1) 0) (else 1)))) arg-15)))))) (cond ((equal? sc6 1) (TTImpC-45ElabC-45Check-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 (CoreC-45Normalise-glueBack arg-1 arg-0 e-5 arg-8 arg-11) arg-17 clam-7)) (else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 26 arg-0 arg-9 arg-8 (PreludeC-45TypesC-45List-C-43C-43 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (vector 1 "")) arg-14) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-fst eta-0)) arg-15)) arg-10) clam-7)))))))) (let ((e-6 (car arg-13))) (let ((e-7 (cdr arg-13))) (let ((act-24 (CoreC-45Normalise-logNF arg-0 arg-1 "elab.with" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Function type") arg-8 arg-11 clam-7))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45ContextC-45Log-logTerm arg-0 arg-1 "elab.with" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Function ") arg-10 clam-7))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45UnifyState-genName arg-1 arg-3 "argTy" clam-7))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-26 1))) (let ((act-27 (CoreC-45UnifyState-genName arg-1 arg-3 "retTy" clam-7))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 (TTImpC-45ElabC-45Check-metaVar arg-0 arg-1 arg-3 arg-9 (AlgebraC-45Semiring-erased (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))) arg-8 e-9 (vector 11 arg-9) clam-7))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref act-28 1))) (let ((u--argTyG (CoreC-45Normalise-gnf arg-0 arg-8 e-11))) (let ((act-29 (TTImpC-45ElabC-45Check-metaVar arg-0 arg-1 arg-3 arg-9 (AlgebraC-45Semiring-erased (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))) arg-8 e-10 (vector 11 arg-9) clam-7))) (case (vector-ref act-29 0) ((0) (let ((e-2 (vector-ref act-29 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref act-29 1))) (let ((act-30 (TTImpC-45ElabC-45Check-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-6 (box u--argTyG) clam-7))) (case (vector-ref act-30 0) ((0) (let ((e-2 (vector-ref act-30 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref act-30 1))) (let ((e-2 (car e-13))) (let ((e-17 (cdr e-13))) (let ((u--fntm (vector 4 arg-9 arg-10 e-2))) (let ((act-31 (let ((act-31 (unbox arg-1))) (vector 1 act-31)))) (case (vector-ref act-31 0) ((0) (let ((e-18 (vector-ref act-31 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref act-31 1))) (let ((act-32 ((CoreC-45Normalise-nf arg-1 arg-0 e-18 arg-8 e-12) clam-7))) (case (vector-ref act-32 0) ((0) (let ((e-19 (vector-ref act-32 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref act-32 1))) (let ((u--expfnty (CoreC-45Normalise-gnf arg-0 arg-8 (vector 3 arg-9 e-9 (vector 2 arg-9 (AlgebraC-45ZeroOneOmega-u--top_Top_ZeroOneOmega) (vector 1 ) e-11) (CoreC-45TT-u--weaken_Weaken_Term e-12))))) (let ((act-33 (CoreC-45Normalise-logGlue arg-0 arg-1 "elab.with" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected function type") arg-8 u--expfnty clam-7))) (case (vector-ref act-33 0) ((0) (let ((e-20 (vector-ref act-33 1))) (vector 0 e-20))) (else (let ((act-34 (if (null? arg-17) (vector 1 0) (let ((e-1 (unbox arg-17))) (CoreC-45Normalise-logGlue arg-0 arg-1 "elab.with" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected result type") arg-8 e-1 clam-7))))) (case (vector-ref act-34 0) ((0) (let ((e-21 (vector-ref act-34 1))) (vector 0 e-21))) (else (let ((act-35 ((TTImpC-45ElabC-45App-checkAppWithC-39 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 u--fntm e-19 (cons e-3 (PreludeC-45Types-u--C-43_Num_Nat (PreludeC-45Types-u--fromInteger_Num_Nat 1) e-4)) e-7 arg-14 arg-15 arg-16 arg-17) clam-7))) (case (vector-ref act-35 0) ((0) (let ((e-22 (vector-ref act-35 1))) (vector 0 e-22))) (else (let ((e-22 (vector-ref act-35 1))) (let ((act-36 ((TTImpC-45ElabC-45Check-convert arg-0 arg-1 arg-3 arg-4 arg-9 arg-6 arg-8 (CoreC-45Normalise-glueBack arg-1 arg-0 e-18 arg-8 arg-11) u--expfnty) clam-7))) (case (vector-ref act-36 0) ((0) (let ((e-23 (vector-ref act-36 1))) (vector 0 e-23))) (else (let ((e-23 (vector-ref act-36 1))) (let ((_-0 (cons e-2 e-17))) (TTImpC-45ElabC-45App-case--caseC-32blockC-32inC-32checkAppWithC-39-10220 e-3 e-4 e-6 e-7 arg-0 arg-17 arg-16 arg-15 arg-14 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-9 e-10 e-11 u--argTyG e-12 e-2 e-17 _-0 u--fntm e-18 e-19 u--expfnty e-22 e-23 (let ((e-0 (vector-ref e-23 0))) e-0) clam-7))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))(else (if (null? arg-12) (lambda (clam-17) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((sc4 (PreludeC-45Interfaces-all (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (lambda (eta-0) (TTImpC-45ElabC-45App-isImplicitAs eta-0)) (PreludeC-45TypesC-45List-C-43C-43 arg-14 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) (DataC-45List-filter (lambda (eta-0) (let ((sc5 (TTImpC-45ElabC-45App-isBindAllExpPattern (Builtin-fst eta-0)))) (cond ((equal? sc5 1) 0) (else 1)))) arg-15)))))) (cond ((equal? sc4 1) (TTImpC-45ElabC-45Check-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 (CoreC-45Normalise-glueBack arg-1 arg-0 e-5 arg-8 arg-11) arg-17 clam-17)) (else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 26 arg-0 arg-9 arg-8 (PreludeC-45TypesC-45List-C-43C-43 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (vector 1 "")) arg-14) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-fst eta-0)) arg-15)) arg-10) clam-17))))))))) (let ((e-3 (car arg-12))) (let ((e-4 (cdr arg-12))) (lambda (clam-8) (if (null? arg-13) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((sc5 (PreludeC-45Interfaces-all (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (lambda (eta-0) (TTImpC-45ElabC-45App-isImplicitAs eta-0)) (PreludeC-45TypesC-45List-C-43C-43 arg-14 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) (DataC-45List-filter (lambda (eta-0) (let ((sc6 (TTImpC-45ElabC-45App-isBindAllExpPattern (Builtin-fst eta-0)))) (cond ((equal? sc6 1) 0) (else 1)))) arg-15)))))) (cond ((equal? sc5 1) (TTImpC-45ElabC-45Check-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 (CoreC-45Normalise-glueBack arg-1 arg-0 e-5 arg-8 arg-11) arg-17 clam-8)) (else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 26 arg-0 arg-9 arg-8 (PreludeC-45TypesC-45List-C-43C-43 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (vector 1 "")) arg-14) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-fst eta-0)) arg-15)) arg-10) clam-8)))))))) (let ((e-6 (car arg-13))) (let ((e-7 (cdr arg-13))) (let ((act-24 (CoreC-45Normalise-logNF arg-0 arg-1 "elab.with" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Function type") arg-8 arg-11 clam-8))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45ContextC-45Log-logTerm arg-0 arg-1 "elab.with" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Function ") arg-10 clam-8))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45UnifyState-genName arg-1 arg-3 "argTy" clam-8))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-26 1))) (let ((act-27 (CoreC-45UnifyState-genName arg-1 arg-3 "retTy" clam-8))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 (TTImpC-45ElabC-45Check-metaVar arg-0 arg-1 arg-3 arg-9 (AlgebraC-45Semiring-erased (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))) arg-8 e-9 (vector 11 arg-9) clam-8))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref act-28 1))) (let ((u--argTyG (CoreC-45Normalise-gnf arg-0 arg-8 e-11))) (let ((act-29 (TTImpC-45ElabC-45Check-metaVar arg-0 arg-1 arg-3 arg-9 (AlgebraC-45Semiring-erased (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))) arg-8 e-10 (vector 11 arg-9) clam-8))) (case (vector-ref act-29 0) ((0) (let ((e-2 (vector-ref act-29 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref act-29 1))) (let ((act-30 (TTImpC-45ElabC-45Check-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-6 (box u--argTyG) clam-8))) (case (vector-ref act-30 0) ((0) (let ((e-2 (vector-ref act-30 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref act-30 1))) (let ((e-2 (car e-13))) (let ((e-17 (cdr e-13))) (let ((u--fntm (vector 4 arg-9 arg-10 e-2))) (let ((act-31 (let ((act-31 (unbox arg-1))) (vector 1 act-31)))) (case (vector-ref act-31 0) ((0) (let ((e-18 (vector-ref act-31 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref act-31 1))) (let ((act-32 ((CoreC-45Normalise-nf arg-1 arg-0 e-18 arg-8 e-12) clam-8))) (case (vector-ref act-32 0) ((0) (let ((e-19 (vector-ref act-32 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref act-32 1))) (let ((u--expfnty (CoreC-45Normalise-gnf arg-0 arg-8 (vector 3 arg-9 e-9 (vector 2 arg-9 (AlgebraC-45ZeroOneOmega-u--top_Top_ZeroOneOmega) (vector 1 ) e-11) (CoreC-45TT-u--weaken_Weaken_Term e-12))))) (let ((act-33 (CoreC-45Normalise-logGlue arg-0 arg-1 "elab.with" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected function type") arg-8 u--expfnty clam-8))) (case (vector-ref act-33 0) ((0) (let ((e-20 (vector-ref act-33 1))) (vector 0 e-20))) (else (let ((act-34 (if (null? arg-17) (vector 1 0) (let ((e-1 (unbox arg-17))) (CoreC-45Normalise-logGlue arg-0 arg-1 "elab.with" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected result type") arg-8 e-1 clam-8))))) (case (vector-ref act-34 0) ((0) (let ((e-21 (vector-ref act-34 1))) (vector 0 e-21))) (else (let ((act-35 ((TTImpC-45ElabC-45App-checkAppWithC-39 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 u--fntm e-19 (cons e-3 (PreludeC-45Types-u--C-43_Num_Nat (PreludeC-45Types-u--fromInteger_Num_Nat 1) e-4)) e-7 arg-14 arg-15 arg-16 arg-17) clam-8))) (case (vector-ref act-35 0) ((0) (let ((e-22 (vector-ref act-35 1))) (vector 0 e-22))) (else (let ((e-22 (vector-ref act-35 1))) (let ((act-36 ((TTImpC-45ElabC-45Check-convert arg-0 arg-1 arg-3 arg-4 arg-9 arg-6 arg-8 (CoreC-45Normalise-glueBack arg-1 arg-0 e-18 arg-8 arg-11) u--expfnty) clam-8))) (case (vector-ref act-36 0) ((0) (let ((e-23 (vector-ref act-36 1))) (vector 0 e-23))) (else (let ((e-23 (vector-ref act-36 1))) (let ((_-0 (cons e-2 e-17))) (TTImpC-45ElabC-45App-case--caseC-32blockC-32inC-32checkAppWithC-39-10220 e-3 e-4 e-6 e-7 arg-0 arg-17 arg-16 arg-15 arg-14 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-9 e-10 e-11 u--argTyG e-12 e-2 e-17 _-0 u--fntm e-18 e-19 u--expfnty e-22 e-23 (let ((e-0 (vector-ref e-23 0))) e-0) clam-8))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))(else (if (null? arg-12) (lambda (clam-19) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((sc3 (PreludeC-45Interfaces-all (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (lambda (eta-0) (TTImpC-45ElabC-45App-isImplicitAs eta-0)) (PreludeC-45TypesC-45List-C-43C-43 arg-14 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) (DataC-45List-filter (lambda (eta-0) (let ((sc4 (TTImpC-45ElabC-45App-isBindAllExpPattern (Builtin-fst eta-0)))) (cond ((equal? sc4 1) 0) (else 1)))) arg-15)))))) (cond ((equal? sc3 1) (TTImpC-45ElabC-45Check-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 (CoreC-45Normalise-glueBack arg-1 arg-0 e-5 arg-8 arg-11) arg-17 clam-19)) (else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 26 arg-0 arg-9 arg-8 (PreludeC-45TypesC-45List-C-43C-43 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (vector 1 "")) arg-14) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-fst eta-0)) arg-15)) arg-10) clam-19))))))))) (let ((e-3 (car arg-12))) (let ((e-4 (cdr arg-12))) (lambda (clam-9) (if (null? arg-13) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((sc4 (PreludeC-45Interfaces-all (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (lambda (eta-0) (TTImpC-45ElabC-45App-isImplicitAs eta-0)) (PreludeC-45TypesC-45List-C-43C-43 arg-14 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) (DataC-45List-filter (lambda (eta-0) (let ((sc5 (TTImpC-45ElabC-45App-isBindAllExpPattern (Builtin-fst eta-0)))) (cond ((equal? sc5 1) 0) (else 1)))) arg-15)))))) (cond ((equal? sc4 1) (TTImpC-45ElabC-45Check-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 (CoreC-45Normalise-glueBack arg-1 arg-0 e-5 arg-8 arg-11) arg-17 clam-9)) (else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 26 arg-0 arg-9 arg-8 (PreludeC-45TypesC-45List-C-43C-43 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (vector 1 "")) arg-14) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-fst eta-0)) arg-15)) arg-10) clam-9)))))))) (let ((e-6 (car arg-13))) (let ((e-7 (cdr arg-13))) (let ((act-24 (CoreC-45Normalise-logNF arg-0 arg-1 "elab.with" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Function type") arg-8 arg-11 clam-9))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45ContextC-45Log-logTerm arg-0 arg-1 "elab.with" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Function ") arg-10 clam-9))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45UnifyState-genName arg-1 arg-3 "argTy" clam-9))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-26 1))) (let ((act-27 (CoreC-45UnifyState-genName arg-1 arg-3 "retTy" clam-9))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 (TTImpC-45ElabC-45Check-metaVar arg-0 arg-1 arg-3 arg-9 (AlgebraC-45Semiring-erased (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))) arg-8 e-9 (vector 11 arg-9) clam-9))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref act-28 1))) (let ((u--argTyG (CoreC-45Normalise-gnf arg-0 arg-8 e-11))) (let ((act-29 (TTImpC-45ElabC-45Check-metaVar arg-0 arg-1 arg-3 arg-9 (AlgebraC-45Semiring-erased (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))) arg-8 e-10 (vector 11 arg-9) clam-9))) (case (vector-ref act-29 0) ((0) (let ((e-2 (vector-ref act-29 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref act-29 1))) (let ((act-30 (TTImpC-45ElabC-45Check-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-6 (box u--argTyG) clam-9))) (case (vector-ref act-30 0) ((0) (let ((e-2 (vector-ref act-30 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref act-30 1))) (let ((e-2 (car e-13))) (let ((e-14 (cdr e-13))) (let ((u--fntm (vector 4 arg-9 arg-10 e-2))) (let ((act-31 (let ((act-31 (unbox arg-1))) (vector 1 act-31)))) (case (vector-ref act-31 0) ((0) (let ((e-15 (vector-ref act-31 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref act-31 1))) (let ((act-32 ((CoreC-45Normalise-nf arg-1 arg-0 e-15 arg-8 e-12) clam-9))) (case (vector-ref act-32 0) ((0) (let ((e-16 (vector-ref act-32 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref act-32 1))) (let ((u--expfnty (CoreC-45Normalise-gnf arg-0 arg-8 (vector 3 arg-9 e-9 (vector 2 arg-9 (AlgebraC-45ZeroOneOmega-u--top_Top_ZeroOneOmega) (vector 1 ) e-11) (CoreC-45TT-u--weaken_Weaken_Term e-12))))) (let ((act-33 (CoreC-45Normalise-logGlue arg-0 arg-1 "elab.with" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected function type") arg-8 u--expfnty clam-9))) (case (vector-ref act-33 0) ((0) (let ((e-17 (vector-ref act-33 1))) (vector 0 e-17))) (else (let ((act-34 (if (null? arg-17) (vector 1 0) (let ((e-1 (unbox arg-17))) (CoreC-45Normalise-logGlue arg-0 arg-1 "elab.with" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected result type") arg-8 e-1 clam-9))))) (case (vector-ref act-34 0) ((0) (let ((e-18 (vector-ref act-34 1))) (vector 0 e-18))) (else (let ((act-35 ((TTImpC-45ElabC-45App-checkAppWithC-39 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 u--fntm e-16 (cons e-3 (PreludeC-45Types-u--C-43_Num_Nat (PreludeC-45Types-u--fromInteger_Num_Nat 1) e-4)) e-7 arg-14 arg-15 arg-16 arg-17) clam-9))) (case (vector-ref act-35 0) ((0) (let ((e-19 (vector-ref act-35 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref act-35 1))) (let ((act-36 ((TTImpC-45ElabC-45Check-convert arg-0 arg-1 arg-3 arg-4 arg-9 arg-6 arg-8 (CoreC-45Normalise-glueBack arg-1 arg-0 e-15 arg-8 arg-11) u--expfnty) clam-9))) (case (vector-ref act-36 0) ((0) (let ((e-20 (vector-ref act-36 1))) (vector 0 e-20))) (else (let ((e-20 (vector-ref act-36 1))) (let ((_-0 (cons e-2 e-14))) (TTImpC-45ElabC-45App-case--caseC-32blockC-32inC-32checkAppWithC-39-10220 e-3 e-4 e-6 e-7 arg-0 arg-17 arg-16 arg-15 arg-14 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-9 e-10 e-11 u--argTyG e-12 e-2 e-14 _-0 u--fntm e-15 e-16 u--expfnty e-19 e-20 (let ((e-0 (vector-ref e-20 0))) e-0) clam-9)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) +(define TTImpC-45ElabC-45App-checkAppWith (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 ext-0) (let ((act-24 ((TTImpC-45ElabC-45App-checkAppWithC-39 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((sc1 (TTImpC-45ElabC-45Check-isLHS (let ((e-0 (vector-ref arg-6 0))) e-0)))) (if (null? sc1) (vector 1 e-5) (let ((e-1 (unbox sc1))) ((TTImpC-45ElabC-45App-case--caseC-32blockC-32inC-32checkAppWith-10602 arg-0 arg-17 arg-16 arg-15 arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-1 (CoreC-45TT-getFnArgs (Builtin-fst e-5))) ext-0)))))))))) +(define TTImpC-45ElabC-45App-checkApp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (case (vector-ref arg-10 0) ((8) (let ((e-0 (vector-ref arg-10 1))) (let ((e-1 (vector-ref arg-10 2))) (let ((e-2 (vector-ref arg-10 3))) (TTImpC-45ElabC-45App-checkApp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-0 e-1 (cons e-2 arg-11) arg-12 arg-13 arg-14))))) ((9) (let ((e-3 (vector-ref arg-10 1))) (let ((e-4 (vector-ref arg-10 2))) (let ((e-5 (vector-ref arg-10 3))) (TTImpC-45ElabC-45App-checkApp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-3 e-4 arg-11 (cons e-5 arg-12) arg-13 arg-14))))) ((10) (let ((e-6 (vector-ref arg-10 1))) (let ((e-7 (vector-ref arg-10 2))) (let ((e-8 (vector-ref arg-10 3))) (let ((e-9 (vector-ref arg-10 4))) (TTImpC-45ElabC-45App-checkApp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-6 e-7 arg-11 arg-12 (cons (cons e-8 e-9) arg-13) arg-14)))))) ((0) (let ((e-10 (vector-ref arg-10 1))) (let ((e-11 (vector-ref arg-10 2))) (lambda (eta-0) (let ((act-24 ((TTImpC-45ElabC-45App-getVarType arg-0 arg-1 arg-2 arg-4 arg-5 arg-7 arg-8 e-10 e-11) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((e-2 (car e-5))) (let ((e-3 (cdr e-5))) (let ((e-6 (car e-3))) (let ((e-7 (cdr e-3))) (let ((act-25 ((CoreC-45Normalise-getNF arg-1 e-7) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Context-getPrimitiveNames arg-1 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-4 (vector-ref act-26 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref act-26 1))) (let ((act-27 ((TTImpC-45ElabC-45App-n--17683-11038-u--updateElabInfo arg-0 e-11 e-10 arg-14 arg-13 arg-12 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-9 (let ((e-0 (vector-ref arg-6 0))) e-0) e-11 arg-11 arg-6) eta-0))) (case (vector-ref act-27 0) ((0) (let ((e-4 (vector-ref act-27 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref act-27 1))) (let ((act-28 (CoreC-45Metadata-addNameLoc arg-2 arg-1 e-10 e-11 eta-0))) (case (vector-ref act-28 0) ((0) (let ((e-4 (vector-ref act-28 1))) (vector 0 e-4))) (else (let ((act-29 (CoreC-45ContextC-45Log-unverifiedLogC arg-1 "elab" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda (eta-1) (let ((act-29 (let ((act-29 (unbox arg-1))) (vector 1 act-29)))) (case (vector-ref act-29 0) ((0) (let ((e-4 (vector-ref act-29 1))) (vector 0 e-4))) (else (let ((e-14 (vector-ref act-29 1))) (let ((act-30 (CoreC-45Normalise-u--quote_Quote_NF arg-1 arg-0 e-14 arg-8 e-8 eta-1))) (case (vector-ref act-30 0) ((0) (let ((e-4 (vector-ref act-30 1))) (vector 0 e-4))) (else (let ((e-15 (vector-ref act-30 1))) (let ((act-31 ((PreludeC-45Types-maybe (lambda () (lambda (eta-2) (vector 1 '()))) (lambda () (lambda (u--t) (lambda (eta-2) (let ((act-31 ((CoreC-45Normalise-getTerm u--t) eta-2))) (case (vector-ref act-31 0) ((0) (let ((e-4 (vector-ref act-31 1))) (vector 0 e-4))) (else (let ((e-16 (vector-ref act-31 1))) (let ((act-32 (CoreC-45Normalise-normaliseHoles arg-1 arg-0 e-14 arg-8 e-16 eta-2))) (case (vector-ref act-32 0) ((0) (let ((e-4 (vector-ref act-32 1))) (vector 0 e-4))) (else (let ((e-17 (vector-ref act-32 1))) (let ((act-33 (CoreC-45Context-toFullNames arg-1 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-3) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-3)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-3) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-3))))) e-17 eta-2))) (case (vector-ref act-33 0) ((0) (let ((e-4 (vector-ref act-33 1))) (vector 0 e-4))) (else (let ((e-18 (vector-ref act-33 1))) (vector 1 (box e-18))))))))))))))))) arg-14) eta-1))) (case (vector-ref act-31 0) ((0) (let ((e-4 (vector-ref act-31 1))) (vector 0 e-4))) (else (let ((e-16 (vector-ref act-31 1))) (let ((act-32 (CoreC-45Context-getFullName arg-1 e-11 eta-1))) (case (vector-ref act-32 0) ((0) (let ((e-4 (vector-ref act-32 1))) (vector 0 e-4))) (else (let ((e-17 (vector-ref act-32 1))) (let ((act-33 (CoreC-45Context-toFullNames arg-1 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-2) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-2)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-2) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-2))))) e-15 eta-1))) (case (vector-ref act-33 0) ((0) (let ((e-4 (vector-ref act-33 1))) (vector 0 e-4))) (else (let ((e-18 (vector-ref act-33 1))) (vector 1 (PreludeC-45TypesC-45String-C-43C-43 "Checking application of " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-17) (PreludeC-45TypesC-45String-C-43C-43 " (" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-11) (PreludeC-45TypesC-45String-C-43C-43 ")" (PreludeC-45TypesC-45String-C-43C-43 " to " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (TTImpC-45TTImp-u--show_Show_RawImp u--x)) (lambda (u--d) (lambda (u--x) (TTImpC-45TTImp-u--showPrec_Show_RawImp u--d u--x)))) arg-11) (PreludeC-45TypesC-45String-C-43C-43 "\u000a\u0009Function type " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 e-18) (PreludeC-45TypesC-45String-C-43C-43 "\u000a\u0009Expected app type " (PreludeC-45Show-u--show_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 arg-0 u--d u--x)))) e-16))))))))))))))))))))))))))))))))) eta-0))) (case (vector-ref act-29 0) ((0) (let ((e-4 (vector-ref act-29 1))) (vector 0 e-4))) (else (let ((u--fn (let ((sc9 (DataC-45List-lookup (cons (lambda (arg-15) (lambda (arg-16) (CoreC-45Name-u--C-61C-61_Eq_Name arg-15 arg-16))) (lambda (arg-15) (lambda (arg-16) (CoreC-45Name-u--C-47C-61_Eq_Name arg-15 arg-16)))) e-11 arg-7))) (if (null? sc9) e-11 (let ((e-1 (unbox sc9))) (if (null? e-1) e-11 (let ((e-4 (car e-1))) (if (null? e-4) e-11 (let ((e-16 (unbox e-4))) e-16))))))))) (let ((act-30 (TTImpC-45ElabC-45App-checkAppWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-12 arg-7 arg-8 arg-9 e-2 e-8 (cons (box u--fn) e-6) arg-11 arg-12 arg-13 0 arg-14 eta-0))) (case (vector-ref act-30 0) ((0) (let ((e-4 (vector-ref act-30 1))) (vector 0 e-4))) (else (let ((e-15 (vector-ref act-30 1))) (TTImpC-45ElabC-45App-n--17683-11037-u--normalisePrims arg-0 e-11 e-10 arg-14 arg-13 arg-12 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 e-9 arg-8 e-15 eta-0))))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (TTImpC-45ElabC-45Check-checkImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 '() eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((e-2 (car e-5))) (let ((e-3 (cdr e-5))) (let ((act-25 ((CoreC-45Normalise-getNF arg-1 e-3) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref act-25 1))) (TTImpC-45ElabC-45App-checkAppWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-2 e-6 (cons '() 0) arg-11 arg-12 arg-13 0 arg-14 eta-0)))))))))))))))) +(define TTImpC-45ElabC-45Ambiguity-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32expandAmbigName-6606 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 ext-0) (if (null? arg-16) (let ((act-24 ((CoreC-45Context-lookupCtxtName arg-1 (let ((e-0 (vector-ref arg-11 0))) e-0)) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Core-filterM (lambda (eta-0) (TTImpC-45ElabC-45Ambiguity-n--8017-5562-u--visible arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 eta-0)) e-5 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (if (null? e-6) (let ((act-26 (CoreC-45ContextC-45Log-log arg-10 "elab.ambiguous" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Failed to find " (TTImpC-45TTImp-u--show_Show_RawImp arg-5))) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (vector 1 arg-5)))) (let ((e-2 (car e-6))) (let ((e-3 (cdr e-6))) (if (null? e-3) (let ((act-26 (CoreC-45ContextC-45Log-log arg-10 "elab.ambiguous" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Only one " (CoreC-45Name-u--show_Show_Name (Builtin-fst e-2)))) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-4 (vector-ref act-26 1))) (vector 0 e-4))) (else (vector 1 (TTImpC-45ElabC-45Ambiguity-n--8017-5568-u--mkAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-15 arg-12 e-2))))) (vector 1 (vector 13 arg-2 (TTImpC-45ElabC-45Ambiguity-n--8017-5563-u--uniqType arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-13 arg-1 arg-4) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (TTImpC-45ElabC-45Ambiguity-n--8017-5568-u--mkAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-15 arg-12 eta-0)) e-6))))))))))))))) (let ((e-1 (unbox arg-16))) (let ((act-24 (CoreC-45ContextC-45Log-log arg-10 "elab.ambiguous" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "unambiguous: " (CoreC-45Name-u--show_Show_Name (Builtin-fst e-1)))) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (vector 1 (TTImpC-45ElabC-45Ambiguity-n--8017-5568-u--mkAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-15 arg-12 e-1))))))))) +(define TTImpC-45ElabC-45Ambiguity-case--expandAmbigNameC-44visible-5598 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 ext-0) (case (vector-ref arg-14 0) ((0) (let ((e-0 (vector-ref arg-14 1))) (let ((e-1 (vector-ref arg-14 2))) (let ((act-24 (CoreC-45Context-isVisible arg-10 e-0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (cond ((equal? e-5 1) (let ((act-25 (CoreC-45Context-getNS arg-10 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Context-getNestedNS arg-10 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (CoreC-45Context-visibleInAny (cons e-6 e-7) (vector 0 e-0 e-1) (let ((e-9 (vector-ref arg-13 9))) e-9)))))))))))) (else (vector 1 0))))))))))(else (vector 1 1))))) +(define TTImpC-45ElabC-45Ambiguity-n--8017-5566-u--wrapDot (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (case (vector-ref arg-16 0) ((5) arg-17) ((6) arg-17)(else (case (vector-ref arg-13 0) ((1) (if (null? arg-15) (let ((sc2 (CoreC-45Name-u--C-61C-61_Eq_Name arg-14 (vector 9 (let ((e-2 (vector-ref arg-12 1))) e-2))))) (cond ((equal? sc2 1) arg-17) (else (vector 19 arg-2 2 arg-17)))) (let ((e-3 (cdr arg-15))) (if (null? e-3) (let ((sc3 (let ((sc4 (CoreC-45Name-u--C-61C-61_Eq_Name arg-14 (vector 9 (let ((e-16 (vector-ref arg-12 1))) e-16))))) (cond ((equal? sc4 1) 1) (else arg-11))))) (cond ((equal? sc3 1) arg-17) (else (vector 19 arg-2 2 arg-17)))) (let ((sc3 (CoreC-45Name-u--C-61C-61_Eq_Name arg-14 (vector 9 (let ((e-16 (vector-ref arg-12 1))) e-16))))) (cond ((equal? sc3 1) arg-17) (else (vector 19 arg-2 2 arg-17))))))))(else arg-17)))))) +(define TTImpC-45ElabC-45Ambiguity-n--8017-5562-u--visible (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((e-2 (car arg-11))) (let ((e-3 (cdr arg-11))) (let ((e-6 (car e-3))) (let ((e-7 (cdr e-3))) (lambda (eta-0) (TTImpC-45ElabC-45Ambiguity-case--expandAmbigNameC-44visible-5598 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-2 e-6 e-7 (let ((e-1 (vector-ref e-7 1))) e-1) eta-0)))))))) +(define TTImpC-45ElabC-45Ambiguity-n--8017-5563-u--uniqType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((e-0 (vector-ref arg-11 0))) (let ((e-1 (vector-ref arg-11 1))) (let ((e-2 (vector-ref arg-11 2))) (let ((e-3 (vector-ref arg-11 3))) (if (null? e-0) (if (null? e-1) (if (null? e-2) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (if (null? arg-13) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-24 (car arg-13))) (let ((e-25 (cdr arg-13))) (if (null? e-24) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-29 (cdr e-24))) (if (null? e-29) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-33 (cdr e-29))) (case (vector-ref e-33 0) ((28) (let ((e-34 (vector-ref e-33 1))) (let ((e-35 (vector-ref e-33 2))) (case (vector-ref e-35 0) ((11) (let ((e-36 (vector-ref e-35 1))) (if (null? e-25) (vector 2 (vector 28 e-34 (vector 11 e-36))) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))(else (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))))(else (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))))))))) (if (null? arg-13) (if (null? e-2) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (if (null? arg-13) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-24 (car arg-13))) (let ((e-25 (cdr arg-13))) (if (null? e-24) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-29 (cdr e-24))) (if (null? e-29) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-33 (cdr e-29))) (case (vector-ref e-33 0) ((28) (let ((e-34 (vector-ref e-33 1))) (let ((e-35 (vector-ref e-33 2))) (case (vector-ref e-35 0) ((11) (let ((e-36 (vector-ref e-35 1))) (if (null? e-25) (vector 2 (vector 28 e-34 (vector 11 e-36))) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))(else (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))))(else (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))))))))) (let ((e-41 (car arg-13))) (let ((e-42 (cdr arg-13))) (if (null? e-41) (if (null? e-2) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (if (null? arg-13) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-24 (car arg-13))) (let ((e-25 (cdr arg-13))) (if (null? e-24) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-29 (cdr e-24))) (if (null? e-29) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-33 (cdr e-29))) (case (vector-ref e-33 0) ((28) (let ((e-34 (vector-ref e-33 1))) (let ((e-35 (vector-ref e-33 2))) (case (vector-ref e-35 0) ((11) (let ((e-36 (vector-ref e-35 1))) (if (null? e-25) (vector 2 (vector 28 e-34 (vector 11 e-36))) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))(else (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))))(else (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))))))))) (let ((e-46 (cdr e-41))) (if (null? e-46) (if (null? e-2) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (if (null? arg-13) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-24 (car arg-13))) (let ((e-25 (cdr arg-13))) (if (null? e-24) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-29 (cdr e-24))) (if (null? e-29) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-33 (cdr e-29))) (case (vector-ref e-33 0) ((28) (let ((e-34 (vector-ref e-33 1))) (let ((e-35 (vector-ref e-33 2))) (case (vector-ref e-35 0) ((11) (let ((e-36 (vector-ref e-35 1))) (if (null? e-25) (vector 2 (vector 28 e-34 (vector 11 e-36))) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))(else (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))))(else (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))))))))) (let ((e-50 (cdr e-46))) (case (vector-ref e-50 0) ((28) (let ((e-51 (vector-ref e-50 1))) (let ((e-52 (vector-ref e-50 2))) (case (vector-ref e-52 0) ((10) (let ((e-53 (vector-ref e-52 1))) (if (null? e-42) (vector 2 (vector 28 e-51 (vector 10 e-53))) (if (null? e-2) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (if (null? arg-13) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-24 (car arg-13))) (let ((e-25 (cdr arg-13))) (if (null? e-24) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-29 (cdr e-24))) (if (null? e-29) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-33 (cdr e-29))) (case (vector-ref e-33 0) ((28) (let ((e-34 (vector-ref e-33 1))) (let ((e-35 (vector-ref e-33 2))) (case (vector-ref e-35 0) ((11) (let ((e-36 (vector-ref e-35 1))) (if (null? e-25) (vector 2 (vector 28 e-34 (vector 11 e-36))) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))(else (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))))(else (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))))))))))))(else (if (null? e-2) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (if (null? arg-13) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-24 (car arg-13))) (let ((e-25 (cdr arg-13))) (if (null? e-24) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-29 (cdr e-24))) (if (null? e-29) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-33 (cdr e-29))) (case (vector-ref e-33 0) ((28) (let ((e-34 (vector-ref e-33 1))) (let ((e-35 (vector-ref e-33 2))) (case (vector-ref e-35 0) ((11) (let ((e-36 (vector-ref e-35 1))) (if (null? e-25) (vector 2 (vector 28 e-34 (vector 11 e-36))) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))(else (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))))(else (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))))))))))))))(else (if (null? e-2) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (if (null? arg-13) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-24 (car arg-13))) (let ((e-25 (cdr arg-13))) (if (null? e-24) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-29 (cdr e-24))) (if (null? e-29) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-33 (cdr e-29))) (case (vector-ref e-33 0) ((28) (let ((e-34 (vector-ref e-33 1))) (let ((e-35 (vector-ref e-33 2))) (case (vector-ref e-35 0) ((11) (let ((e-36 (vector-ref e-35 1))) (if (null? e-25) (vector 2 (vector 28 e-34 (vector 11 e-36))) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))(else (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))))(else (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))))))))))))))))))) (if (null? arg-13) (if (null? e-1) (if (null? e-2) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (if (null? arg-13) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-24 (car arg-13))) (let ((e-25 (cdr arg-13))) (if (null? e-24) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-29 (cdr e-24))) (if (null? e-29) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-33 (cdr e-29))) (case (vector-ref e-33 0) ((28) (let ((e-34 (vector-ref e-33 1))) (let ((e-35 (vector-ref e-33 2))) (case (vector-ref e-35 0) ((11) (let ((e-36 (vector-ref e-35 1))) (if (null? e-25) (vector 2 (vector 28 e-34 (vector 11 e-36))) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))(else (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))))(else (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))))))))) (if (null? arg-13) (if (null? e-2) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (if (null? arg-13) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-24 (car arg-13))) (let ((e-25 (cdr arg-13))) (if (null? e-24) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-29 (cdr e-24))) (if (null? e-29) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-33 (cdr e-29))) (case (vector-ref e-33 0) ((28) (let ((e-34 (vector-ref e-33 1))) (let ((e-35 (vector-ref e-33 2))) (case (vector-ref e-35 0) ((11) (let ((e-36 (vector-ref e-35 1))) (if (null? e-25) (vector 2 (vector 28 e-34 (vector 11 e-36))) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))(else (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))))(else (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))))))))) (let ((e-41 (car arg-13))) (let ((e-42 (cdr arg-13))) (if (null? e-41) (if (null? e-2) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (if (null? arg-13) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-24 (car arg-13))) (let ((e-25 (cdr arg-13))) (if (null? e-24) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-29 (cdr e-24))) (if (null? e-29) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-33 (cdr e-29))) (case (vector-ref e-33 0) ((28) (let ((e-34 (vector-ref e-33 1))) (let ((e-35 (vector-ref e-33 2))) (case (vector-ref e-35 0) ((11) (let ((e-36 (vector-ref e-35 1))) (if (null? e-25) (vector 2 (vector 28 e-34 (vector 11 e-36))) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))(else (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))))(else (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))))))))) (let ((e-46 (cdr e-41))) (if (null? e-46) (if (null? e-2) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (if (null? arg-13) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-24 (car arg-13))) (let ((e-25 (cdr arg-13))) (if (null? e-24) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-29 (cdr e-24))) (if (null? e-29) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-33 (cdr e-29))) (case (vector-ref e-33 0) ((28) (let ((e-34 (vector-ref e-33 1))) (let ((e-35 (vector-ref e-33 2))) (case (vector-ref e-35 0) ((11) (let ((e-36 (vector-ref e-35 1))) (if (null? e-25) (vector 2 (vector 28 e-34 (vector 11 e-36))) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))(else (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))))(else (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))))))))) (let ((e-50 (cdr e-46))) (case (vector-ref e-50 0) ((28) (let ((e-51 (vector-ref e-50 1))) (let ((e-52 (vector-ref e-50 2))) (case (vector-ref e-52 0) ((10) (let ((e-53 (vector-ref e-52 1))) (if (null? e-42) (vector 2 (vector 28 e-51 (vector 10 e-53))) (if (null? e-2) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (if (null? arg-13) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-24 (car arg-13))) (let ((e-25 (cdr arg-13))) (if (null? e-24) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-29 (cdr e-24))) (if (null? e-29) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-33 (cdr e-29))) (case (vector-ref e-33 0) ((28) (let ((e-34 (vector-ref e-33 1))) (let ((e-35 (vector-ref e-33 2))) (case (vector-ref e-35 0) ((11) (let ((e-36 (vector-ref e-35 1))) (if (null? e-25) (vector 2 (vector 28 e-34 (vector 11 e-36))) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))(else (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))))(else (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))))))))))))(else (if (null? e-2) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (if (null? arg-13) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-24 (car arg-13))) (let ((e-25 (cdr arg-13))) (if (null? e-24) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-29 (cdr e-24))) (if (null? e-29) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-33 (cdr e-29))) (case (vector-ref e-33 0) ((28) (let ((e-34 (vector-ref e-33 1))) (let ((e-35 (vector-ref e-33 2))) (case (vector-ref e-35 0) ((11) (let ((e-36 (vector-ref e-35 1))) (if (null? e-25) (vector 2 (vector 28 e-34 (vector 11 e-36))) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))(else (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))))(else (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))))))))))))))(else (if (null? e-2) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (if (null? arg-13) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-24 (car arg-13))) (let ((e-25 (cdr arg-13))) (if (null? e-24) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-29 (cdr e-24))) (if (null? e-29) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-33 (cdr e-29))) (case (vector-ref e-33 0) ((28) (let ((e-34 (vector-ref e-33 1))) (let ((e-35 (vector-ref e-33 2))) (case (vector-ref e-35 0) ((11) (let ((e-36 (vector-ref e-35 1))) (if (null? e-25) (vector 2 (vector 28 e-34 (vector 11 e-36))) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))(else (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))))(else (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))))))))))))))))))) (let ((e-58 (car arg-13))) (let ((e-59 (cdr arg-13))) (if (null? e-58) (if (null? e-1) (if (null? e-2) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (if (null? arg-13) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-24 (car arg-13))) (let ((e-25 (cdr arg-13))) (if (null? e-24) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-29 (cdr e-24))) (if (null? e-29) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-33 (cdr e-29))) (case (vector-ref e-33 0) ((28) (let ((e-34 (vector-ref e-33 1))) (let ((e-35 (vector-ref e-33 2))) (case (vector-ref e-35 0) ((11) (let ((e-36 (vector-ref e-35 1))) (if (null? e-25) (vector 2 (vector 28 e-34 (vector 11 e-36))) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))(else (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))))(else (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))))))))) (if (null? arg-13) (if (null? e-2) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (if (null? arg-13) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-24 (car arg-13))) (let ((e-25 (cdr arg-13))) (if (null? e-24) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-29 (cdr e-24))) (if (null? e-29) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-33 (cdr e-29))) (case (vector-ref e-33 0) ((28) (let ((e-34 (vector-ref e-33 1))) (let ((e-35 (vector-ref e-33 2))) (case (vector-ref e-35 0) ((11) (let ((e-36 (vector-ref e-35 1))) (if (null? e-25) (vector 2 (vector 28 e-34 (vector 11 e-36))) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))(else (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))))(else (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))))))))) (let ((e-41 (car arg-13))) (let ((e-42 (cdr arg-13))) (if (null? e-41) (if (null? e-2) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (if (null? arg-13) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-24 (car arg-13))) (let ((e-25 (cdr arg-13))) (if (null? e-24) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-29 (cdr e-24))) (if (null? e-29) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-33 (cdr e-29))) (case (vector-ref e-33 0) ((28) (let ((e-34 (vector-ref e-33 1))) (let ((e-35 (vector-ref e-33 2))) (case (vector-ref e-35 0) ((11) (let ((e-36 (vector-ref e-35 1))) (if (null? e-25) (vector 2 (vector 28 e-34 (vector 11 e-36))) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))(else (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))))(else (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))))))))) (let ((e-46 (cdr e-41))) (if (null? e-46) (if (null? e-2) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (if (null? arg-13) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-24 (car arg-13))) (let ((e-25 (cdr arg-13))) (if (null? e-24) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-29 (cdr e-24))) (if (null? e-29) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-33 (cdr e-29))) (case (vector-ref e-33 0) ((28) (let ((e-34 (vector-ref e-33 1))) (let ((e-35 (vector-ref e-33 2))) (case (vector-ref e-35 0) ((11) (let ((e-36 (vector-ref e-35 1))) (if (null? e-25) (vector 2 (vector 28 e-34 (vector 11 e-36))) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))(else (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))))(else (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))))))))) (let ((e-50 (cdr e-46))) (case (vector-ref e-50 0) ((28) (let ((e-51 (vector-ref e-50 1))) (let ((e-52 (vector-ref e-50 2))) (case (vector-ref e-52 0) ((10) (let ((e-53 (vector-ref e-52 1))) (if (null? e-42) (vector 2 (vector 28 e-51 (vector 10 e-53))) (if (null? e-2) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (if (null? arg-13) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-24 (car arg-13))) (let ((e-25 (cdr arg-13))) (if (null? e-24) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-29 (cdr e-24))) (if (null? e-29) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-33 (cdr e-29))) (case (vector-ref e-33 0) ((28) (let ((e-34 (vector-ref e-33 1))) (let ((e-35 (vector-ref e-33 2))) (case (vector-ref e-35 0) ((11) (let ((e-36 (vector-ref e-35 1))) (if (null? e-25) (vector 2 (vector 28 e-34 (vector 11 e-36))) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))(else (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))))(else (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))))))))))))(else (if (null? e-2) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (if (null? arg-13) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-24 (car arg-13))) (let ((e-25 (cdr arg-13))) (if (null? e-24) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-29 (cdr e-24))) (if (null? e-29) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-33 (cdr e-29))) (case (vector-ref e-33 0) ((28) (let ((e-34 (vector-ref e-33 1))) (let ((e-35 (vector-ref e-33 2))) (case (vector-ref e-35 0) ((11) (let ((e-36 (vector-ref e-35 1))) (if (null? e-25) (vector 2 (vector 28 e-34 (vector 11 e-36))) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))(else (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))))(else (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))))))))))))))(else (if (null? e-2) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (if (null? arg-13) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-24 (car arg-13))) (let ((e-25 (cdr arg-13))) (if (null? e-24) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-29 (cdr e-24))) (if (null? e-29) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-33 (cdr e-29))) (case (vector-ref e-33 0) ((28) (let ((e-34 (vector-ref e-33 1))) (let ((e-35 (vector-ref e-33 2))) (case (vector-ref e-35 0) ((11) (let ((e-36 (vector-ref e-35 1))) (if (null? e-25) (vector 2 (vector 28 e-34 (vector 11 e-36))) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))(else (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))))(else (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))))))))))))))))))) (let ((e-63 (cdr e-58))) (if (null? e-63) (if (null? e-1) (if (null? e-2) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (if (null? arg-13) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-24 (car arg-13))) (let ((e-25 (cdr arg-13))) (if (null? e-24) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-29 (cdr e-24))) (if (null? e-29) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-33 (cdr e-29))) (case (vector-ref e-33 0) ((28) (let ((e-34 (vector-ref e-33 1))) (let ((e-35 (vector-ref e-33 2))) (case (vector-ref e-35 0) ((11) (let ((e-36 (vector-ref e-35 1))) (if (null? e-25) (vector 2 (vector 28 e-34 (vector 11 e-36))) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))(else (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))))(else (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))))))))) (if (null? arg-13) (if (null? e-2) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (if (null? arg-13) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-24 (car arg-13))) (let ((e-25 (cdr arg-13))) (if (null? e-24) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-29 (cdr e-24))) (if (null? e-29) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-33 (cdr e-29))) (case (vector-ref e-33 0) ((28) (let ((e-34 (vector-ref e-33 1))) (let ((e-35 (vector-ref e-33 2))) (case (vector-ref e-35 0) ((11) (let ((e-36 (vector-ref e-35 1))) (if (null? e-25) (vector 2 (vector 28 e-34 (vector 11 e-36))) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))(else (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))))(else (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))))))))) (let ((e-41 (car arg-13))) (let ((e-42 (cdr arg-13))) (if (null? e-41) (if (null? e-2) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (if (null? arg-13) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-24 (car arg-13))) (let ((e-25 (cdr arg-13))) (if (null? e-24) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-29 (cdr e-24))) (if (null? e-29) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-33 (cdr e-29))) (case (vector-ref e-33 0) ((28) (let ((e-34 (vector-ref e-33 1))) (let ((e-35 (vector-ref e-33 2))) (case (vector-ref e-35 0) ((11) (let ((e-36 (vector-ref e-35 1))) (if (null? e-25) (vector 2 (vector 28 e-34 (vector 11 e-36))) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))(else (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))))(else (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))))))))) (let ((e-46 (cdr e-41))) (if (null? e-46) (if (null? e-2) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (if (null? arg-13) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-24 (car arg-13))) (let ((e-25 (cdr arg-13))) (if (null? e-24) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-29 (cdr e-24))) (if (null? e-29) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-33 (cdr e-29))) (case (vector-ref e-33 0) ((28) (let ((e-34 (vector-ref e-33 1))) (let ((e-35 (vector-ref e-33 2))) (case (vector-ref e-35 0) ((11) (let ((e-36 (vector-ref e-35 1))) (if (null? e-25) (vector 2 (vector 28 e-34 (vector 11 e-36))) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))(else (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))))(else (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))))))))) (let ((e-50 (cdr e-46))) (case (vector-ref e-50 0) ((28) (let ((e-51 (vector-ref e-50 1))) (let ((e-52 (vector-ref e-50 2))) (case (vector-ref e-52 0) ((10) (let ((e-53 (vector-ref e-52 1))) (if (null? e-42) (vector 2 (vector 28 e-51 (vector 10 e-53))) (if (null? e-2) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (if (null? arg-13) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-24 (car arg-13))) (let ((e-25 (cdr arg-13))) (if (null? e-24) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-29 (cdr e-24))) (if (null? e-29) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-33 (cdr e-29))) (case (vector-ref e-33 0) ((28) (let ((e-34 (vector-ref e-33 1))) (let ((e-35 (vector-ref e-33 2))) (case (vector-ref e-35 0) ((11) (let ((e-36 (vector-ref e-35 1))) (if (null? e-25) (vector 2 (vector 28 e-34 (vector 11 e-36))) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))(else (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))))(else (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))))))))))))(else (if (null? e-2) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (if (null? arg-13) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-24 (car arg-13))) (let ((e-25 (cdr arg-13))) (if (null? e-24) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-29 (cdr e-24))) (if (null? e-29) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-33 (cdr e-29))) (case (vector-ref e-33 0) ((28) (let ((e-34 (vector-ref e-33 1))) (let ((e-35 (vector-ref e-33 2))) (case (vector-ref e-35 0) ((11) (let ((e-36 (vector-ref e-35 1))) (if (null? e-25) (vector 2 (vector 28 e-34 (vector 11 e-36))) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))(else (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))))(else (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))))))))))))))(else (if (null? e-2) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (if (null? arg-13) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-24 (car arg-13))) (let ((e-25 (cdr arg-13))) (if (null? e-24) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-29 (cdr e-24))) (if (null? e-29) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-33 (cdr e-29))) (case (vector-ref e-33 0) ((28) (let ((e-34 (vector-ref e-33 1))) (let ((e-35 (vector-ref e-33 2))) (case (vector-ref e-35 0) ((11) (let ((e-36 (vector-ref e-35 1))) (if (null? e-25) (vector 2 (vector 28 e-34 (vector 11 e-36))) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))(else (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))))(else (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))))))))))))))))))) (let ((e-67 (cdr e-63))) (case (vector-ref e-67 0) ((28) (let ((e-68 (vector-ref e-67 1))) (let ((e-69 (vector-ref e-67 2))) (case (vector-ref e-69 0) ((5) (let ((e-70 (vector-ref e-69 1))) (if (null? e-59) (vector 2 (vector 28 e-68 (vector 5 e-70))) (if (null? e-1) (if (null? e-2) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (if (null? arg-13) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-24 (car arg-13))) (let ((e-25 (cdr arg-13))) (if (null? e-24) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-29 (cdr e-24))) (if (null? e-29) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-33 (cdr e-29))) (case (vector-ref e-33 0) ((28) (let ((e-34 (vector-ref e-33 1))) (let ((e-35 (vector-ref e-33 2))) (case (vector-ref e-35 0) ((11) (let ((e-36 (vector-ref e-35 1))) (if (null? e-25) (vector 2 (vector 28 e-34 (vector 11 e-36))) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))(else (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))))(else (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))))))))) (if (null? arg-13) (if (null? e-2) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (if (null? arg-13) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-24 (car arg-13))) (let ((e-25 (cdr arg-13))) (if (null? e-24) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-29 (cdr e-24))) (if (null? e-29) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-33 (cdr e-29))) (case (vector-ref e-33 0) ((28) (let ((e-34 (vector-ref e-33 1))) (let ((e-35 (vector-ref e-33 2))) (case (vector-ref e-35 0) ((11) (let ((e-36 (vector-ref e-35 1))) (if (null? e-25) (vector 2 (vector 28 e-34 (vector 11 e-36))) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))(else (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))))(else (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))))))))) (let ((e-41 (car arg-13))) (let ((e-42 (cdr arg-13))) (if (null? e-41) (if (null? e-2) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (if (null? arg-13) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-24 (car arg-13))) (let ((e-25 (cdr arg-13))) (if (null? e-24) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-29 (cdr e-24))) (if (null? e-29) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-33 (cdr e-29))) (case (vector-ref e-33 0) ((28) (let ((e-34 (vector-ref e-33 1))) (let ((e-35 (vector-ref e-33 2))) (case (vector-ref e-35 0) ((11) (let ((e-36 (vector-ref e-35 1))) (if (null? e-25) (vector 2 (vector 28 e-34 (vector 11 e-36))) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))(else (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))))(else (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))))))))) (let ((e-46 (cdr e-41))) (if (null? e-46) (if (null? e-2) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (if (null? arg-13) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-24 (car arg-13))) (let ((e-25 (cdr arg-13))) (if (null? e-24) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-29 (cdr e-24))) (if (null? e-29) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-33 (cdr e-29))) (case (vector-ref e-33 0) ((28) (let ((e-34 (vector-ref e-33 1))) (let ((e-35 (vector-ref e-33 2))) (case (vector-ref e-35 0) ((11) (let ((e-36 (vector-ref e-35 1))) (if (null? e-25) (vector 2 (vector 28 e-34 (vector 11 e-36))) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))(else (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))))(else (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))))))))) (let ((e-50 (cdr e-46))) (case (vector-ref e-50 0) ((28) (let ((e-51 (vector-ref e-50 1))) (let ((e-52 (vector-ref e-50 2))) (case (vector-ref e-52 0) ((10) (let ((e-53 (vector-ref e-52 1))) (if (null? e-42) (vector 2 (vector 28 e-51 (vector 10 e-53))) (if (null? e-2) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (if (null? arg-13) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-24 (car arg-13))) (let ((e-25 (cdr arg-13))) (if (null? e-24) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-29 (cdr e-24))) (if (null? e-29) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-33 (cdr e-29))) (case (vector-ref e-33 0) ((28) (let ((e-34 (vector-ref e-33 1))) (let ((e-35 (vector-ref e-33 2))) (case (vector-ref e-35 0) ((11) (let ((e-36 (vector-ref e-35 1))) (if (null? e-25) (vector 2 (vector 28 e-34 (vector 11 e-36))) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))(else (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))))(else (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))))))))))))(else (if (null? e-2) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (if (null? arg-13) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-24 (car arg-13))) (let ((e-25 (cdr arg-13))) (if (null? e-24) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-29 (cdr e-24))) (if (null? e-29) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-33 (cdr e-29))) (case (vector-ref e-33 0) ((28) (let ((e-34 (vector-ref e-33 1))) (let ((e-35 (vector-ref e-33 2))) (case (vector-ref e-35 0) ((11) (let ((e-36 (vector-ref e-35 1))) (if (null? e-25) (vector 2 (vector 28 e-34 (vector 11 e-36))) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))(else (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))))(else (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))))))))))))))(else (if (null? e-2) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (if (null? arg-13) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-24 (car arg-13))) (let ((e-25 (cdr arg-13))) (if (null? e-24) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-29 (cdr e-24))) (if (null? e-29) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-33 (cdr e-29))) (case (vector-ref e-33 0) ((28) (let ((e-34 (vector-ref e-33 1))) (let ((e-35 (vector-ref e-33 2))) (case (vector-ref e-35 0) ((11) (let ((e-36 (vector-ref e-35 1))) (if (null? e-25) (vector 2 (vector 28 e-34 (vector 11 e-36))) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))(else (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))))(else (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))))))))))))))))))))))(else (if (null? e-1) (if (null? e-2) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (if (null? arg-13) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-24 (car arg-13))) (let ((e-25 (cdr arg-13))) (if (null? e-24) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-29 (cdr e-24))) (if (null? e-29) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-33 (cdr e-29))) (case (vector-ref e-33 0) ((28) (let ((e-34 (vector-ref e-33 1))) (let ((e-35 (vector-ref e-33 2))) (case (vector-ref e-35 0) ((11) (let ((e-36 (vector-ref e-35 1))) (if (null? e-25) (vector 2 (vector 28 e-34 (vector 11 e-36))) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))(else (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))))(else (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))))))))) (if (null? arg-13) (if (null? e-2) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (if (null? arg-13) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-24 (car arg-13))) (let ((e-25 (cdr arg-13))) (if (null? e-24) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-29 (cdr e-24))) (if (null? e-29) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-33 (cdr e-29))) (case (vector-ref e-33 0) ((28) (let ((e-34 (vector-ref e-33 1))) (let ((e-35 (vector-ref e-33 2))) (case (vector-ref e-35 0) ((11) (let ((e-36 (vector-ref e-35 1))) (if (null? e-25) (vector 2 (vector 28 e-34 (vector 11 e-36))) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))(else (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))))(else (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))))))))) (let ((e-41 (car arg-13))) (let ((e-42 (cdr arg-13))) (if (null? e-41) (if (null? e-2) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (if (null? arg-13) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-24 (car arg-13))) (let ((e-25 (cdr arg-13))) (if (null? e-24) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-29 (cdr e-24))) (if (null? e-29) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-33 (cdr e-29))) (case (vector-ref e-33 0) ((28) (let ((e-34 (vector-ref e-33 1))) (let ((e-35 (vector-ref e-33 2))) (case (vector-ref e-35 0) ((11) (let ((e-36 (vector-ref e-35 1))) (if (null? e-25) (vector 2 (vector 28 e-34 (vector 11 e-36))) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))(else (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))))(else (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))))))))) (let ((e-46 (cdr e-41))) (if (null? e-46) (if (null? e-2) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (if (null? arg-13) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-24 (car arg-13))) (let ((e-25 (cdr arg-13))) (if (null? e-24) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-29 (cdr e-24))) (if (null? e-29) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-33 (cdr e-29))) (case (vector-ref e-33 0) ((28) (let ((e-34 (vector-ref e-33 1))) (let ((e-35 (vector-ref e-33 2))) (case (vector-ref e-35 0) ((11) (let ((e-36 (vector-ref e-35 1))) (if (null? e-25) (vector 2 (vector 28 e-34 (vector 11 e-36))) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))(else (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))))(else (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))))))))) (let ((e-50 (cdr e-46))) (case (vector-ref e-50 0) ((28) (let ((e-51 (vector-ref e-50 1))) (let ((e-52 (vector-ref e-50 2))) (case (vector-ref e-52 0) ((10) (let ((e-53 (vector-ref e-52 1))) (if (null? e-42) (vector 2 (vector 28 e-51 (vector 10 e-53))) (if (null? e-2) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (if (null? arg-13) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-24 (car arg-13))) (let ((e-25 (cdr arg-13))) (if (null? e-24) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-29 (cdr e-24))) (if (null? e-29) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-33 (cdr e-29))) (case (vector-ref e-33 0) ((28) (let ((e-34 (vector-ref e-33 1))) (let ((e-35 (vector-ref e-33 2))) (case (vector-ref e-35 0) ((11) (let ((e-36 (vector-ref e-35 1))) (if (null? e-25) (vector 2 (vector 28 e-34 (vector 11 e-36))) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))(else (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))))(else (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))))))))))))(else (if (null? e-2) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (if (null? arg-13) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-24 (car arg-13))) (let ((e-25 (cdr arg-13))) (if (null? e-24) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-29 (cdr e-24))) (if (null? e-29) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-33 (cdr e-29))) (case (vector-ref e-33 0) ((28) (let ((e-34 (vector-ref e-33 1))) (let ((e-35 (vector-ref e-33 2))) (case (vector-ref e-35 0) ((11) (let ((e-36 (vector-ref e-35 1))) (if (null? e-25) (vector 2 (vector 28 e-34 (vector 11 e-36))) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))(else (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))))(else (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))))))))))))))(else (if (null? e-2) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (if (null? arg-13) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-24 (car arg-13))) (let ((e-25 (cdr arg-13))) (if (null? e-24) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-29 (cdr e-24))) (if (null? e-29) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-33 (cdr e-29))) (case (vector-ref e-33 0) ((28) (let ((e-34 (vector-ref e-33 1))) (let ((e-35 (vector-ref e-33 2))) (case (vector-ref e-35 0) ((11) (let ((e-36 (vector-ref e-35 1))) (if (null? e-25) (vector 2 (vector 28 e-34 (vector 11 e-36))) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))(else (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))))(else (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))))))))))))))))))))))))(else (if (null? e-1) (if (null? e-2) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (if (null? arg-13) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-24 (car arg-13))) (let ((e-25 (cdr arg-13))) (if (null? e-24) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-29 (cdr e-24))) (if (null? e-29) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-33 (cdr e-29))) (case (vector-ref e-33 0) ((28) (let ((e-34 (vector-ref e-33 1))) (let ((e-35 (vector-ref e-33 2))) (case (vector-ref e-35 0) ((11) (let ((e-36 (vector-ref e-35 1))) (if (null? e-25) (vector 2 (vector 28 e-34 (vector 11 e-36))) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))(else (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))))(else (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))))))))) (if (null? arg-13) (if (null? e-2) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (if (null? arg-13) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-24 (car arg-13))) (let ((e-25 (cdr arg-13))) (if (null? e-24) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-29 (cdr e-24))) (if (null? e-29) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-33 (cdr e-29))) (case (vector-ref e-33 0) ((28) (let ((e-34 (vector-ref e-33 1))) (let ((e-35 (vector-ref e-33 2))) (case (vector-ref e-35 0) ((11) (let ((e-36 (vector-ref e-35 1))) (if (null? e-25) (vector 2 (vector 28 e-34 (vector 11 e-36))) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))(else (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))))(else (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))))))))) (let ((e-41 (car arg-13))) (let ((e-42 (cdr arg-13))) (if (null? e-41) (if (null? e-2) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (if (null? arg-13) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-24 (car arg-13))) (let ((e-25 (cdr arg-13))) (if (null? e-24) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-29 (cdr e-24))) (if (null? e-29) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-33 (cdr e-29))) (case (vector-ref e-33 0) ((28) (let ((e-34 (vector-ref e-33 1))) (let ((e-35 (vector-ref e-33 2))) (case (vector-ref e-35 0) ((11) (let ((e-36 (vector-ref e-35 1))) (if (null? e-25) (vector 2 (vector 28 e-34 (vector 11 e-36))) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))(else (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))))(else (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))))))))) (let ((e-46 (cdr e-41))) (if (null? e-46) (if (null? e-2) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (if (null? arg-13) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-24 (car arg-13))) (let ((e-25 (cdr arg-13))) (if (null? e-24) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-29 (cdr e-24))) (if (null? e-29) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-33 (cdr e-29))) (case (vector-ref e-33 0) ((28) (let ((e-34 (vector-ref e-33 1))) (let ((e-35 (vector-ref e-33 2))) (case (vector-ref e-35 0) ((11) (let ((e-36 (vector-ref e-35 1))) (if (null? e-25) (vector 2 (vector 28 e-34 (vector 11 e-36))) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))(else (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))))(else (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))))))))) (let ((e-50 (cdr e-46))) (case (vector-ref e-50 0) ((28) (let ((e-51 (vector-ref e-50 1))) (let ((e-52 (vector-ref e-50 2))) (case (vector-ref e-52 0) ((10) (let ((e-53 (vector-ref e-52 1))) (if (null? e-42) (vector 2 (vector 28 e-51 (vector 10 e-53))) (if (null? e-2) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (if (null? arg-13) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-24 (car arg-13))) (let ((e-25 (cdr arg-13))) (if (null? e-24) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-29 (cdr e-24))) (if (null? e-29) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-33 (cdr e-29))) (case (vector-ref e-33 0) ((28) (let ((e-34 (vector-ref e-33 1))) (let ((e-35 (vector-ref e-33 2))) (case (vector-ref e-35 0) ((11) (let ((e-36 (vector-ref e-35 1))) (if (null? e-25) (vector 2 (vector 28 e-34 (vector 11 e-36))) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))(else (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))))(else (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))))))))))))(else (if (null? e-2) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (if (null? arg-13) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-24 (car arg-13))) (let ((e-25 (cdr arg-13))) (if (null? e-24) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-29 (cdr e-24))) (if (null? e-29) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-33 (cdr e-29))) (case (vector-ref e-33 0) ((28) (let ((e-34 (vector-ref e-33 1))) (let ((e-35 (vector-ref e-33 2))) (case (vector-ref e-35 0) ((11) (let ((e-36 (vector-ref e-35 1))) (if (null? e-25) (vector 2 (vector 28 e-34 (vector 11 e-36))) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))(else (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))))(else (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))))))))))))))(else (if (null? e-2) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (if (null? arg-13) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-24 (car arg-13))) (let ((e-25 (cdr arg-13))) (if (null? e-24) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-29 (cdr e-24))) (if (null? e-29) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))) (let ((e-33 (cdr e-29))) (case (vector-ref e-33 0) ((28) (let ((e-34 (vector-ref e-33 1))) (let ((e-35 (vector-ref e-33 2))) (case (vector-ref e-35 0) ((11) (let ((e-36 (vector-ref e-35 1))) (if (null? e-25) (vector 2 (vector 28 e-34 (vector 11 e-36))) (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))(else (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))))(else (if (null? e-3) (vector 1 ) (if (null? arg-13) (vector 1 ) (let ((e-7 (car arg-13))) (let ((e-8 (cdr arg-13))) (if (null? e-7) (vector 1 ) (let ((e-12 (cdr e-7))) (if (null? e-12) (vector 1 ) (let ((e-16 (cdr e-12))) (case (vector-ref e-16 0) ((28) (let ((e-17 (vector-ref e-16 1))) (let ((e-18 (vector-ref e-16 2))) (case (vector-ref e-18 0) ((12) (let ((e-19 (vector-ref e-18 1))) (if (null? e-8) (vector 2 (vector 28 e-17 (vector 12 e-19))) (vector 1 ))))(else (vector 1 ))))))(else (vector 1 ))))))))))))))))))))))))))))))))))))))))))))))) +(define TTImpC-45ElabC-45Ambiguity-n--10871-8006-u--notOverloadableFn (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (case (vector-ref arg-3 0) ((0) (let ((e-1 (vector-ref arg-3 2))) (let ((act-24 ((CoreC-45Context-lookupCtxtExact e-1 (let ((e-30 (vector-ref arg-2 0))) e-30)) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (if (null? e-5) (vector 1 1) (vector 1 0))))))))(else (vector 1 1))))) +(define TTImpC-45ElabC-45Ambiguity-n--8017-5569-u--notLHS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (case (vector-ref arg-11 0) ((1) 0)(else 1)))) +(define TTImpC-45ElabC-45Ambiguity-n--8017-5567-u--mkTerm (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((u--tm (TTImpC-45ElabC-45Ambiguity-n--8017-5566-u--wrapDot arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-8 arg-13 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd (Builtin-snd eta-0))) arg-4) (let ((e-17 (vector-ref arg-14 17))) e-17) (TTImpC-45ElabC-45Ambiguity-n--8017-5564-u--buildAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 0 arg-2 arg-13) arg-4)))) (let ((sc0 (PreludeC-45Types-elem (cons (lambda (arg-15) (lambda (arg-16) (CoreC-45Context-u--C-61C-61_Eq_DefFlag arg-15 arg-16))) (lambda (arg-15) (lambda (arg-16) (CoreC-45Context-u--C-47C-61_Eq_DefFlag arg-15 arg-16)))) (vector 6 ) (let ((e-11 (vector-ref arg-14 11))) e-11)))) (cond ((equal? sc0 1) (case (vector-ref arg-8 0) ((1) u--tm)(else (vector 27 arg-2 (vector 15 arg-2 u--tm))))) (else u--tm)))))) +(define TTImpC-45ElabC-45Ambiguity-n--8017-5568-u--mkAlt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((e-3 (cdr arg-13))) (let ((e-6 (car e-3))) (let ((e-7 (cdr e-3))) (TTImpC-45ElabC-45Ambiguity-n--8017-5567-u--mkTerm arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 (vector 9 e-6) e-7)))))) +(define TTImpC-45ElabC-45Ambiguity-n--8017-5561-u--lookupUN (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-12 arg-13) (if (null? arg-12) '() (let ((e-2 (unbox arg-12))) (LibrariesC-45DataC-45StringMap-lookup e-2 arg-13))))) +(define TTImpC-45ElabC-45Ambiguity-n--8017-5565-u--isPrimName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (if (null? arg-11) 0 (let ((e-2 (car arg-11))) (let ((e-3 (cdr arg-11))) (let ((sc1 (CoreC-45Name-u--C-61C-61_Eq_Name (CoreC-45Name-dropNS arg-12) e-2))) (cond ((equal? sc1 1) 1) (else (TTImpC-45ElabC-45Ambiguity-n--8017-5565-u--isPrimName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-3 arg-12))))))))) +(define TTImpC-45ElabC-45Ambiguity-n--8017-5564-u--buildAlt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (if (null? arg-12) arg-11 (let ((e-2 (car arg-12))) (let ((e-3 (cdr arg-12))) (let ((e-6 (car e-2))) (let ((e-7 (cdr e-2))) (let ((e-10 (car e-7))) (let ((e-11 (cdr e-7))) (if (null? e-10) (TTImpC-45ElabC-45Ambiguity-n--8017-5564-u--buildAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 e-6 arg-11 e-11) e-3) (let ((e-14 (unbox e-10))) (if (null? e-14) (TTImpC-45ElabC-45Ambiguity-n--8017-5564-u--buildAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 9 e-6 arg-11 e-11) e-3) (let ((e-17 (unbox e-14))) (TTImpC-45ElabC-45Ambiguity-n--8017-5564-u--buildAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 10 e-6 arg-11 e-17 e-11) e-3)))))))))))))) +(define TTImpC-45ElabC-45Ambiguity-stripDelay (lambda (arg-1) (case (vector-ref arg-1 0) ((5) (let ((e-3 (vector-ref arg-1 3))) (TTImpC-45ElabC-45Ambiguity-stripDelay e-3)))(else arg-1)))) +(define TTImpC-45ElabC-45Ambiguity-pruneByType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (TTImpC-45ElabC-45Ambiguity-couldBe arg-1 arg-0 e-5 (TTImpC-45ElabC-45Ambiguity-stripDelay arg-4) eta-0 eta-1))) arg-5 '() ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((u--matches (DataC-45List-mapMaybe (lambda (eta-0) eta-0) e-6))) (let ((act-26 (CoreC-45Normalise-logNF arg-0 arg-1 "elab.prune" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Prune by") arg-3 arg-4 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((act-27 (CoreC-45ContextC-45Log-log arg-1 "elab.prune" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_Bool x-0)) (lambda (u--d) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_Bool u--d x-0)))) (cons (lambda (x-0) (TTImpC-45TTImp-u--show_Show_RawImp x-0)) (lambda (u--d) (lambda (x-0) (TTImpC-45TTImp-u--showPrec_Show_RawImp u--d x-0))))) u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_Bool x-0)) (lambda (d-0) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_Bool d-0 x-0)))) (cons (lambda (x-0) (TTImpC-45TTImp-u--show_Show_RawImp x-0)) (lambda (d-0) (lambda (x-0) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-0 x-0))))) u--d u--x)))) u--matches)) ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((act-28 (let ((sc4 (PreludeC-45Interfaces-any (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (lambda (eta-0) (Builtin-fst eta-0)) u--matches))) (cond ((equal? sc4 1) (let ((act-28 (TTImpC-45ElabC-45Ambiguity-filterCore (lambda (eta-0) (TTImpC-45ElabC-45Ambiguity-notOverloadable e-5 eta-0)) u--matches ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-28 1))) (let ((act-29 (CoreC-45ContextC-45Log-log arg-1 "elab.prune" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Keep " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_Bool x-0)) (lambda (u--d) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_Bool u--d x-0)))) (cons (lambda (x-0) (TTImpC-45TTImp-u--show_Show_RawImp x-0)) (lambda (u--d) (lambda (x-0) (TTImpC-45TTImp-u--showPrec_Show_RawImp u--d x-0))))) u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_Bool x-0)) (lambda (d-0) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_Bool d-0 x-0)))) (cons (lambda (x-0) (TTImpC-45TTImp-u--show_Show_RawImp x-0)) (lambda (d-0) (lambda (x-0) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-0 x-0))))) u--d u--x)))) e-9))) ext-0))) (case (vector-ref act-29 0) ((0) (let ((e-2 (vector-ref act-29 1))) (vector 0 e-2))) (else (vector 1 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-9)))))))))) (else (vector 1 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) u--matches))))))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-28 1))) (let ((sc5 (DataC-45List-isNil e-9))) (cond ((equal? sc5 1) (vector 1 arg-5)) (else (vector 1 e-9))))))))))))))))))))))))) +(define TTImpC-45ElabC-45Ambiguity-notOverloadable (lambda (arg-0 arg-1) (let ((e-2 (car arg-1))) (let ((e-3 (cdr arg-1))) (cond ((equal? e-2 1) (lambda (eta-0) (vector 1 1)))(else (lambda (eta-0) (TTImpC-45ElabC-45Ambiguity-n--10871-8006-u--notOverloadableFn e-2 e-3 arg-0 (TTImpC-45TTImp-getFn e-3) eta-0)))))))) (define TTImpC-45ElabC-45Ambiguity-mightMatchD (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (TTImpC-45ElabC-45Ambiguity-mightMatch arg-0 arg-1 arg-2 (TTImpC-45ElabC-45Ambiguity-stripDelay arg-3) (TTImpC-45ElabC-45Ambiguity-stripDelay arg-4)))) -(define TTImpC-45ElabC-45Ambiguity-mightMatchArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((sc0 arg-3)) (if (null? sc0) (let ((sc1 arg-4)) (if (null? sc1) (vector 1 0) (vector 1 1))) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 arg-4)) (if (null? sc1) (vector 1 1) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (let ((act-24 (TTImpC-45ElabC-45Ambiguity-mightMatchArg arg-0 arg-1 arg-2 e-2 e-6 ext-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (cond ((equal? sc3 0) (TTImpC-45ElabC-45Ambiguity-mightMatchArgs arg-0 arg-1 arg-2 e-3 e-7 ext-0)) (else (vector 1 1))))))))))))))))))) -(define TTImpC-45ElabC-45Ambiguity-mightMatchArg (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 arg-3) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((CoreC-45Normalise-evalClosure arg-0 '() arg-2 arg-4) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((TTImpC-45ElabC-45Ambiguity-mightMatchD arg-0 arg-1 arg-2 e-5 e-6) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (vector 1 (let ((sc3 e-7)) (case (vector-ref sc3 0) ((2) 1)(else 0))))))))))))))))))))) -(define TTImpC-45ElabC-45Ambiguity-mightMatch (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-49 (vector-ref sc0 1))) (let ((e-51 (vector-ref sc0 3))) (let ((e-52 (vector-ref sc0 4))) (let ((sc1 e-51)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (let ((act-24 (((e-52 arg-2) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 e-49 1))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) ((TTImpC-45ElabC-45Ambiguity-mightMatchD arg-0 arg-1 arg-2 arg-3 e-5) eta-0))))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((3) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((e-10 (vector-ref sc1 3))) (let ((e-11 (vector-ref sc1 4))) (let ((e-12 (vector-ref sc1 5))) (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((3) (let ((e-32 (vector-ref sc2 1))) (let ((e-33 (vector-ref sc2 2))) (let ((e-34 (vector-ref sc2 3))) (let ((e-35 (vector-ref sc2 4))) (let ((e-36 (vector-ref sc2 5))) (lambda (eta-0) (TTImpC-45ElabC-45Ambiguity-case--mightMatch-5989 arg-1 e-32 e-8 e-12 e-11 e-10 e-9 e-36 e-35 e-34 e-33 arg-2 arg-0 (CoreC-45Name-u--C-61C-61_Eq_Name e-9 e-33) eta-0))))))))(else (lambda (clam-0) (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((1) (vector 1 (vector 1 ))) ((9) (vector 1 (vector 1 )))(else (vector 1 (vector 2 ))))))))))))))) ((2) (let ((e-14 (vector-ref sc1 1))) (let ((e-15 (vector-ref sc1 2))) (let ((e-16 (vector-ref sc1 3))) (let ((e-17 (vector-ref sc1 4))) (let ((e-18 (vector-ref sc1 5))) (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((2) (let ((e-38 (vector-ref sc2 1))) (let ((e-39 (vector-ref sc2 2))) (let ((e-40 (vector-ref sc2 3))) (let ((e-41 (vector-ref sc2 4))) (let ((e-42 (vector-ref sc2 5))) (lambda (eta-0) (TTImpC-45ElabC-45Ambiguity-case--mightMatch-6149 arg-1 e-38 e-14 e-18 e-17 e-16 e-15 e-42 e-41 e-40 e-39 arg-2 arg-0 (PreludeC-45EqOrd-u--C-61C-61_Eq_Int e-16 e-40) eta-0))))))))(else (lambda (clam-1) (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((1) (vector 1 (vector 1 ))) ((9) (vector 1 (vector 1 )))(else (vector 1 (vector 2 ))))))))))))))) ((8) (let ((e-20 (vector-ref sc1 1))) (let ((e-21 (vector-ref sc1 2))) (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((8) (let ((e-44 (vector-ref sc2 1))) (let ((e-45 (vector-ref sc2 2))) (lambda (eta-0) (TTImpC-45ElabC-45Ambiguity-case--mightMatch-6309 arg-1 e-44 e-20 e-21 e-45 arg-2 arg-0 (CoreC-45TT-u--C-61C-61_Eq_Constant e-21 e-45) eta-0)))))(else (lambda (clam-2) (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((1) (vector 1 (vector 1 ))) ((9) (vector 1 (vector 1 )))(else (vector 1 (vector 2 )))))))))))) ((10) (lambda (clam-0) (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (vector 1 (vector 0 )))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((1) (vector 1 (vector 1 ))) ((9) (vector 1 (vector 1 )))(else (vector 1 (vector 2 )))))))))) ((1) (lambda (eta-0) (vector 1 (vector 1 )))) ((9) (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (clam-4) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((1) (vector 1 (vector 1 ))) ((9) (vector 1 (vector 1 )))(else (vector 1 (vector 2 ))))))))))))))))(else (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((3) (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 3))) (let ((e-11 (vector-ref sc0 4))) (let ((e-12 (vector-ref sc0 5))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((3) (let ((e-32 (vector-ref sc1 1))) (let ((e-33 (vector-ref sc1 2))) (let ((e-34 (vector-ref sc1 3))) (let ((e-35 (vector-ref sc1 4))) (let ((e-36 (vector-ref sc1 5))) (lambda (eta-0) (TTImpC-45ElabC-45Ambiguity-case--mightMatch-5989 arg-1 e-32 e-8 e-12 e-11 e-10 e-9 e-36 e-35 e-34 e-33 arg-2 arg-0 (CoreC-45Name-u--C-61C-61_Eq_Name e-9 e-33) eta-0))))))))(else (lambda (clam-5) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((1) (vector 1 (vector 1 ))) ((9) (vector 1 (vector 1 )))(else (vector 1 (vector 2 ))))))))))))))) ((2) (let ((e-14 (vector-ref sc0 1))) (let ((e-15 (vector-ref sc0 2))) (let ((e-16 (vector-ref sc0 3))) (let ((e-17 (vector-ref sc0 4))) (let ((e-18 (vector-ref sc0 5))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((2) (let ((e-38 (vector-ref sc1 1))) (let ((e-39 (vector-ref sc1 2))) (let ((e-40 (vector-ref sc1 3))) (let ((e-41 (vector-ref sc1 4))) (let ((e-42 (vector-ref sc1 5))) (lambda (eta-0) (TTImpC-45ElabC-45Ambiguity-case--mightMatch-6149 arg-1 e-38 e-14 e-18 e-17 e-16 e-15 e-42 e-41 e-40 e-39 arg-2 arg-0 (PreludeC-45EqOrd-u--C-61C-61_Eq_Int e-16 e-40) eta-0))))))))(else (lambda (clam-6) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((1) (vector 1 (vector 1 ))) ((9) (vector 1 (vector 1 )))(else (vector 1 (vector 2 ))))))))))))))) ((8) (let ((e-20 (vector-ref sc0 1))) (let ((e-21 (vector-ref sc0 2))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((8) (let ((e-44 (vector-ref sc1 1))) (let ((e-45 (vector-ref sc1 2))) (lambda (eta-0) (TTImpC-45ElabC-45Ambiguity-case--mightMatch-6309 arg-1 e-44 e-20 e-21 e-45 arg-2 arg-0 (CoreC-45TT-u--C-61C-61_Eq_Constant e-21 e-45) eta-0)))))(else (lambda (clam-7) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((1) (vector 1 (vector 1 ))) ((9) (vector 1 (vector 1 )))(else (vector 1 (vector 2 )))))))))))) ((10) (lambda (clam-1) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((10) (vector 1 (vector 0 )))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((1) (vector 1 (vector 1 ))) ((9) (vector 1 (vector 1 )))(else (vector 1 (vector 2 )))))))))) ((1) (lambda (eta-0) (vector 1 (vector 1 )))) ((9) (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (clam-9) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (vector 1 (vector 1 ))) ((9) (vector 1 (vector 1 )))(else (vector 1 (vector 2 )))))))))))))) -(define TTImpC-45ElabC-45Ambiguity-getName (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (vector 1 e-1))) ((8) (let ((e-3 (vector-ref sc0 2))) (TTImpC-45ElabC-45Ambiguity-getName e-3))) ((10) (let ((e-6 (vector-ref sc0 2))) (TTImpC-45ElabC-45Ambiguity-getName e-6))) ((9) (let ((e-10 (vector-ref sc0 2))) (TTImpC-45ElabC-45Ambiguity-getName e-10)))(else (vector 0 )))))) -(define TTImpC-45ElabC-45Ambiguity-filterCore (lambda (arg-1 arg-2 ext-0) (let ((sc0 arg-2)) (if (null? sc0) (vector 1 '()) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((act-24 ((arg-1 e-2) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTImpC-45ElabC-45Ambiguity-filterCore arg-1 e-3 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-5)) (cond ((equal? sc3 0) (vector 1 (cons e-2 e-6))) (else (vector 1 e-6)))))))))))))))))))) -(define TTImpC-45ElabC-45Ambiguity-expandAmbigName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-12 (vector-ref sc0 1))) (let ((sc1 arg-8)) (case (vector-ref sc1 0) ((17) (let ((e-13 (vector-ref sc1 1))) (let ((e-14 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (TTImpC-45ElabC-45Ambiguity-case--expandAmbigName-4341 arg-0 e-12 e-14 e-13 arg-9 arg-7 arg-6 arg-5 arg-4 arg-2 arg-1 e-5 (PreludeC-45Types-elem (cons (lambda (arg-10) (lambda (arg-11) (CoreC-45Name-u--C-61C-61_Eq_Name arg-10 arg-11))) (lambda (arg-10) (lambda (arg-11) (CoreC-45Name-u--C-47C-61_Eq_Name arg-10 arg-11)))) (vector 1 e-14) (let ((sc3 e-5)) (let ((e-8 (vector-ref sc3 8))) e-8))) eta-0))))))))))(else (let ((sc1 arg-8)) (case (vector-ref sc1 0) ((0) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (lambda (eta-0) (TTImpC-45ElabC-45Ambiguity-case--expandAmbigName-5198 arg-0 e-1 e-0 arg-9 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (DataC-45List-lookup (cons (lambda (arg-10) (lambda (arg-11) (CoreC-45Name-u--C-61C-61_Eq_Name arg-10 arg-11))) (lambda (arg-10) (lambda (arg-11) (CoreC-45Name-u--C-47C-61_Eq_Name arg-10 arg-11)))) e-1 arg-4) eta-0))))) ((8) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((e-4 (vector-ref sc1 3))) (TTImpC-45ElabC-45Ambiguity-expandAmbigName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (cons (cons e-2 (cons (vector 0 ) e-4)) arg-7) e-3 arg-9))))) ((10) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((e-7 (vector-ref sc1 3))) (let ((e-8 (vector-ref sc1 4))) (TTImpC-45ElabC-45Ambiguity-expandAmbigName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (cons (cons e-5 (cons (vector 1 (vector 1 e-7)) e-8)) arg-7) e-6 arg-9)))))) ((9) (let ((e-9 (vector-ref sc1 1))) (let ((e-10 (vector-ref sc1 2))) (let ((e-11 (vector-ref sc1 3))) (TTImpC-45ElabC-45Ambiguity-expandAmbigName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (cons (cons e-9 (cons (vector 1 (vector 0 )) e-11)) arg-7) e-10 arg-9)))))(else (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-log arg-1 "elab.ambiguous" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "No ambiguity " (TTImpC-45TTImp-u--show_Show_RawImp arg-6))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 arg-6))))))))))))))(else (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (TTImpC-45ElabC-45Ambiguity-case--expandAmbigName-5198 arg-0 e-1 e-0 arg-9 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (DataC-45List-lookup (cons (lambda (arg-10) (lambda (arg-11) (CoreC-45Name-u--C-61C-61_Eq_Name arg-10 arg-11))) (lambda (arg-10) (lambda (arg-11) (CoreC-45Name-u--C-47C-61_Eq_Name arg-10 arg-11)))) e-1 arg-4) eta-0))))) ((8) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (TTImpC-45ElabC-45Ambiguity-expandAmbigName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (cons (cons e-2 (cons (vector 0 ) e-4)) arg-7) e-3 arg-9))))) ((10) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (TTImpC-45ElabC-45Ambiguity-expandAmbigName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (cons (cons e-5 (cons (vector 1 (vector 1 e-7)) e-8)) arg-7) e-6 arg-9)))))) ((9) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (TTImpC-45ElabC-45Ambiguity-expandAmbigName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (cons (cons e-9 (cons (vector 1 (vector 0 )) e-11)) arg-7) e-10 arg-9)))))(else (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-log arg-1 "elab.ambiguous" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "No ambiguity " (TTImpC-45TTImp-u--show_Show_RawImp arg-6))) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (vector 1 arg-6)))))))))))))) -(define TTImpC-45ElabC-45Ambiguity-couldBeName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (CoreC-45Context-lookupTyExact arg-4 (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) e-0)) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((0) (vector 1 (vector 1 ))) (else (let ((e-2 (vector-ref sc1 1))) (let ((act-25 ((CoreC-45Normalise-nf arg-0 '() arg-2 '() e-2) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) ((TTImpC-45ElabC-45Ambiguity-mightMatchD arg-0 arg-1 arg-2 arg-3 e-6) ext-0))))))))))))))))) -(define TTImpC-45ElabC-45Ambiguity-couldBeFn (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (TTImpC-45ElabC-45Ambiguity-couldBeName arg-0 arg-1 arg-2 arg-3 e-1 ext-0))) ((13) (vector 1 (vector 0 )))(else (vector 1 (vector 1 ))))))) -(define TTImpC-45ElabC-45Ambiguity-couldBe (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((3) (let ((act-24 (TTImpC-45ElabC-45Ambiguity-couldBeFn arg-0 arg-1 arg-2 arg-3 (TTImpC-45TTImp-getFn arg-4) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((0) (vector 1 (vector 1 (cons 0 arg-4)))) ((1) (vector 1 (vector 1 (cons 1 arg-4)))) (else (vector 1 (vector 0 ))))))))))) ((8) (let ((act-24 (TTImpC-45ElabC-45Ambiguity-couldBeFn arg-0 arg-1 arg-2 arg-3 (TTImpC-45TTImp-getFn arg-4) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (vector 1 (vector 1 (cons 0 arg-4)))) ((1) (vector 1 (vector 1 (cons 1 arg-4)))) (else (vector 1 (vector 0 ))))))))))) ((10) (let ((act-24 (TTImpC-45ElabC-45Ambiguity-couldBeFn arg-0 arg-1 arg-2 arg-3 (TTImpC-45TTImp-getFn arg-4) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (vector 1 (vector 1 (cons 0 arg-4)))) ((1) (vector 1 (vector 1 (cons 1 arg-4)))) (else (vector 1 (vector 0 )))))))))))(else (vector 1 (vector 1 (cons 1 arg-4)))))))) -(define TTImpC-45ElabC-45Ambiguity-checkAmbigDepth (lambda (arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (CoreC-45Context-getAmbigLimit arg-1 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((u--ambs (let ((sc1 arg-4)) (let ((e-6 (vector-ref sc1 6))) e-6)))) (let ((sc1 (PreludeC-45Types-u--C-62_Ord_Nat (PreludeC-45TypesC-45List-length u--ambs) e-5))) (cond ((equal? sc1 0) (let ((act-25 (let ((act-25 (unbox arg-2))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 20 arg-3 (vector 9 (let ((sc3 e-6)) (let ((e-2 (vector-ref sc3 2))) e-2))) u--ambs) ext-0))))))) (else (vector 1 (vector 0 ))))))))))))) -(define TTImpC-45ElabC-45Ambiguity-checkAlternative (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 ext-0) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (let ((act-24 (TTImpC-45ElabC-45Ambiguity-checkAmbigDepth arg-1 arg-4 arg-9 arg-6 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((PreludeC-45Types-maybe (lambda () (lambda (eta-0) (let ((act-25 (CoreC-45UnifyState-genName arg-1 arg-3 "altTy" eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImpC-45ElabC-45Check-metaVar arg-0 arg-1 arg-3 arg-9 (AlgebraC-45Semiring-erased (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))) arg-8 e-6 (vector 11 arg-9) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (CoreC-45Normalise-gnf arg-0 arg-8 e-7)))))))))))))) (lambda () (lambda (eta-0) (lambda (eta-1) (vector 1 eta-0)))) arg-12) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((u--solvemode (TTImpC-45ElabC-45Ambiguity-case--checkAlternative-7271 arg-0 e-0 arg-12 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-6 (let ((sc3 arg-6)) (let ((e-8 (vector-ref sc3 1))) e-8))))) (TTImpC-45ElabC-45Delayed-delayOnFailure arg-0 arg-1 arg-2 arg-3 arg-4 arg-9 arg-5 arg-8 e-6 (lambda (eta-0) (TTImpC-45ElabC-45Delayed-ambiguous eta-0)) (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (u--delayed) (lambda (eta-0) (let ((act-26 (CoreC-45Unify-solveConstraints arg-1 arg-3 u--solvemode (vector 0 ) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 (let ((act-27 (unbox arg-1))) (vector 1 act-27)))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-28 ((CoreC-45Normalise-getTerm e-6) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((u--expC-39 (let ((sc6 u--delayed)) (cond ((equal? sc6 0) (CoreC-45Normalise-gnf arg-0 arg-8 e-9)) (else e-6))))) (let ((act-29 (CoreC-45Normalise-logGlueNF arg-0 arg-1 "elab.ambiguous" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Ambiguous elaboration " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (TTImpC-45TTImp-u--show_Show_RawImp u--x)) (lambda (u--d) (lambda (u--x) (TTImpC-45TTImp-u--showPrec_Show_RawImp u--d u--x)))) arg-11) (PreludeC-45TypesC-45String-C-43C-43 " at " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC arg-9) "\u000aWith default. Target type "))))) arg-8 u--expC-39 eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((act-30 (let ((act-30 ((CoreC-45Normalise-getNF arg-1 u--expC-39) eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc7 1))) (TTImpC-45ElabC-45Ambiguity-pruneByType arg-0 arg-1 arg-3 arg-8 e-11 arg-11 eta-0)))))))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-31 (CoreC-45ContextC-45Log-log arg-1 "elab.prun" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Pruned alts (" (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Nat (PreludeC-45TypesC-45List-length e-11)) (PreludeC-45TypesC-45String-C-43C-43 ") " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (TTImpC-45TTImp-u--show_Show_RawImp u--x)) (lambda (u--d) (lambda (u--x) (TTImpC-45TTImp-u--showPrec_Show_RawImp u--d u--x)))) e-11))))) eta-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((sc9 u--delayed)) (cond ((equal? sc9 0) (TTImpC-45ElabC-45Check-try arg-0 arg-1 arg-2 arg-3 arg-4 (TTImpC-45ElabC-45Check-exactlyOneC-39 arg-0 arg-1 arg-2 arg-3 arg-4 1 arg-9 arg-8 (PreludeC-45Types-u--map_Functor_List (lambda (u--t) (cons (TTImpC-45ElabC-45Ambiguity-getName u--t) (TTImpC-45ElabC-45Check-checkImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ((TTImpC-45ElabC-45Ambiguity-addAmbig e-11 (TTImpC-45ElabC-45Ambiguity-getName u--t)) arg-6) arg-7 arg-8 u--t (vector 1 u--expC-39)))) e-11)) (lambda (eta-1) (let ((act-32 (CoreC-45ContextC-45Log-log arg-1 "elab" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "All failed, running default") eta-1))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else ((TTImpC-45ElabC-45Check-checkImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ((TTImpC-45ElabC-45Ambiguity-addAmbig e-11 (TTImpC-45ElabC-45Ambiguity-getName e-0)) arg-6) arg-7 arg-8 e-0 (vector 1 u--expC-39)) eta-1)))))) eta-0)) (else ((TTImpC-45ElabC-45Check-exactlyOneC-39 arg-0 arg-1 arg-2 arg-3 arg-4 0 arg-9 arg-8 (PreludeC-45Types-u--map_Functor_List (lambda (u--t) (cons (TTImpC-45ElabC-45Ambiguity-getName u--t) (TTImpC-45ElabC-45Check-checkImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ((TTImpC-45ElabC-45Ambiguity-addAmbig e-11 (TTImpC-45ElabC-45Ambiguity-getName u--t)) arg-6) arg-7 arg-8 u--t (vector 1 u--expC-39)))) e-11)) eta-0))))))))))))))))))))))))))))))))) ext-0)))))))))))))(else (let ((act-24 (TTImpC-45ElabC-45Ambiguity-checkAmbigDepth arg-1 arg-4 arg-9 arg-6 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((act-25 ((PreludeC-45Types-maybe (lambda () (lambda (eta-0) (vector 1 '()))) (lambda () (lambda (u--exp) (lambda (eta-0) (let ((act-25 ((CoreC-45Normalise-getNF arg-1 u--exp) eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (TTImpC-45ElabC-45Ambiguity-pruneByType arg-0 arg-1 arg-3 arg-8 e-6 arg-11 eta-0))))))))) arg-12) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (if (null? sc2) (let ((act-26 ((PreludeC-45Types-maybe (lambda () (lambda (eta-0) (let ((act-26 (CoreC-45UnifyState-genName arg-1 arg-3 "altTy" eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTImpC-45ElabC-45Check-metaVar arg-0 arg-1 arg-3 arg-9 (AlgebraC-45Semiring-erased (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))) arg-8 e-7 (vector 11 arg-9) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (CoreC-45Normalise-gnf arg-0 arg-8 e-8)))))))))))))) (lambda () (lambda (eta-0) (lambda (eta-1) (vector 1 eta-0)))) arg-12) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((u--solvemode (TTImpC-45ElabC-45Ambiguity-case--caseC-32blockC-32inC-32checkAlternative-7795 arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-6 e-7 (let ((sc4 arg-6)) (let ((e-0 (vector-ref sc4 1))) e-0))))) (TTImpC-45ElabC-45Delayed-delayOnFailure arg-0 arg-1 arg-2 arg-3 arg-4 arg-9 arg-5 arg-8 e-7 (lambda (eta-0) (TTImpC-45ElabC-45Delayed-ambiguous eta-0)) (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (u--delayed) (lambda (eta-0) (let ((act-27 (let ((act-27 (unbox arg-1))) (vector 1 act-27)))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-28 ((CoreC-45Normalise-getTerm e-7) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((u--expC-39 (let ((sc6 u--delayed)) (cond ((equal? sc6 0) (CoreC-45Normalise-gnf arg-0 arg-8 e-9)) (else e-7))))) (let ((act-29 (let ((act-29 ((CoreC-45Normalise-getNF arg-1 u--expC-39) eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc6 1))) (TTImpC-45ElabC-45Ambiguity-pruneByType arg-0 arg-1 arg-3 arg-8 e-10 arg-11 eta-0)))))))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-30 (CoreC-45Normalise-logGlueNF arg-0 arg-1 "elab.ambiguous" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Ambiguous elaboration " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Bool u--delayed) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (TTImpC-45TTImp-u--show_Show_RawImp u--x)) (lambda (u--d) (lambda (u--x) (TTImpC-45TTImp-u--showPrec_Show_RawImp u--d u--x)))) e-10) (PreludeC-45TypesC-45String-C-43C-43 " at " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC arg-9) "\u000aTarget type "))))))) arg-8 u--expC-39 eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((u--tryall (lambda (clam-1) (let ((sc8 arg-10)) (case (vector-ref sc8 0) ((0) (TTImpC-45ElabC-45Check-anyOne arg-0 arg-1 arg-2 arg-3 arg-4 arg-9 clam-1))(else (TTImpC-45ElabC-45Check-exactlyOneC-39 arg-0 arg-1 arg-2 arg-3 arg-4 (let ((sc8 u--delayed)) (cond ((equal? sc8 0) 1) (else 0))) arg-9 arg-8 clam-1))))))) ((u--tryall (PreludeC-45Types-u--map_Functor_List (lambda (u--t) (cons (TTImpC-45ElabC-45Ambiguity-getName u--t) (lambda (eta-1) (let ((act-31 ((TTImpC-45ElabC-45Check-checkImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ((TTImpC-45ElabC-45Ambiguity-addAmbig e-10 (TTImpC-45ElabC-45Ambiguity-getName u--t)) arg-6) arg-7 arg-8 u--t (vector 1 u--expC-39)) eta-1))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-32 (CoreC-45Unify-solveConstraints arg-1 arg-3 u--solvemode (vector 0 ) eta-1))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((act-33 (CoreC-45Unify-solveConstraints arg-1 arg-3 u--solvemode (vector 0 ) eta-1))) (let ((sc10 act-33)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((act-34 (CoreC-45ContextC-45Log-log arg-1 "elab" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45Name-u--show_Show_Name u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Name-u--showPrec_Show_Name u--d u--x)))) (TTImpC-45ElabC-45Ambiguity-getName u--t)) " success")) eta-1))) (let ((sc11 act-34)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (vector 1 e-12))))))))))))))))))))) e-10)) eta-0))))))))))))))))))))))) ext-0))))))) (let ((e-1 (car sc2))) (let ((e-2 (cdr sc2))) (let ((sc3 e-2)) (if (null? sc3) ((TTImpC-45ElabC-45Check-checkImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-1 arg-12) ext-0) (let ((act-26 ((PreludeC-45Types-maybe (lambda () (lambda (eta-0) (let ((act-26 (CoreC-45UnifyState-genName arg-1 arg-3 "altTy" eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-27 (TTImpC-45ElabC-45Check-metaVar arg-0 arg-1 arg-3 arg-9 (AlgebraC-45Semiring-erased (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))) arg-8 e-7 (vector 11 arg-9) eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc5 1))) (vector 1 (CoreC-45Normalise-gnf arg-0 arg-8 e-8)))))))))))))) (lambda () (lambda (eta-0) (lambda (eta-1) (vector 1 eta-0)))) arg-12) ext-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc4 1))) (let ((u--solvemode (TTImpC-45ElabC-45Ambiguity-case--caseC-32blockC-32inC-32checkAlternative-7795 arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-6 e-7 (let ((sc5 arg-6)) (let ((e-0 (vector-ref sc5 1))) e-0))))) (TTImpC-45ElabC-45Delayed-delayOnFailure arg-0 arg-1 arg-2 arg-3 arg-4 arg-9 arg-5 arg-8 e-7 (lambda (eta-0) (TTImpC-45ElabC-45Delayed-ambiguous eta-0)) (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (u--delayed) (lambda (eta-0) (let ((act-27 (let ((act-27 (unbox arg-1))) (vector 1 act-27)))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((act-28 ((CoreC-45Normalise-getTerm e-7) eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc6 1))) (let ((u--expC-39 (let ((sc7 u--delayed)) (cond ((equal? sc7 0) (CoreC-45Normalise-gnf arg-0 arg-8 e-9)) (else e-7))))) (let ((act-29 (let ((act-29 ((CoreC-45Normalise-getNF arg-1 u--expC-39) eta-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (vector 0 e-3))) (else (let ((e-10 (vector-ref sc7 1))) (TTImpC-45ElabC-45Ambiguity-pruneByType arg-0 arg-1 arg-3 arg-8 e-10 arg-11 eta-0)))))))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (vector 0 e-3))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-30 (CoreC-45Normalise-logGlueNF arg-0 arg-1 "elab.ambiguous" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Ambiguous elaboration " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Bool u--delayed) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (TTImpC-45TTImp-u--show_Show_RawImp u--x)) (lambda (u--d) (lambda (u--x) (TTImpC-45TTImp-u--showPrec_Show_RawImp u--d u--x)))) e-10) (PreludeC-45TypesC-45String-C-43C-43 " at " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC arg-9) "\u000aTarget type "))))))) arg-8 u--expC-39 eta-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (vector 0 e-3))) (else (let ((u--tryall (lambda (clam-0) (let ((sc9 arg-10)) (case (vector-ref sc9 0) ((0) (TTImpC-45ElabC-45Check-anyOne arg-0 arg-1 arg-2 arg-3 arg-4 arg-9 clam-0))(else (TTImpC-45ElabC-45Check-exactlyOneC-39 arg-0 arg-1 arg-2 arg-3 arg-4 (let ((sc9 u--delayed)) (cond ((equal? sc9 0) 1) (else 0))) arg-9 arg-8 clam-0))))))) ((u--tryall (PreludeC-45Types-u--map_Functor_List (lambda (u--t) (cons (TTImpC-45ElabC-45Ambiguity-getName u--t) (lambda (eta-1) (let ((act-31 ((TTImpC-45ElabC-45Check-checkImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ((TTImpC-45ElabC-45Ambiguity-addAmbig e-10 (TTImpC-45ElabC-45Ambiguity-getName u--t)) arg-6) arg-7 arg-8 u--t (vector 1 u--expC-39)) eta-1))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-3 (vector-ref sc9 1))) (vector 0 e-3))) (else (let ((e-12 (vector-ref sc9 1))) (let ((act-32 (CoreC-45Unify-solveConstraints arg-1 arg-3 u--solvemode (vector 0 ) eta-1))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-3 (vector-ref sc10 1))) (vector 0 e-3))) (else (let ((act-33 (CoreC-45Unify-solveConstraints arg-1 arg-3 u--solvemode (vector 0 ) eta-1))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-3 (vector-ref sc11 1))) (vector 0 e-3))) (else (let ((act-34 (CoreC-45ContextC-45Log-log arg-1 "elab" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45Name-u--show_Show_Name u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Name-u--showPrec_Show_Name u--d u--x)))) (TTImpC-45ElabC-45Ambiguity-getName u--t)) " success")) eta-1))) (let ((sc12 act-34)) (case (vector-ref sc12 0) ((0) (let ((e-3 (vector-ref sc12 1))) (vector 0 e-3))) (else (vector 1 e-12))))))))))))))))))))) e-10)) eta-0))))))))))))))))))))))) ext-0))))))))))))))))))))))))))) -(define TTImpC-45ElabC-45Ambiguity-addAmbig (lambda (arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) eta-0))(else (lambda (clam-0) (let ((sc0 arg-1)) (if (null? sc0) clam-0 (let ((e-5 (cdr sc0))) (let ((sc1 e-5)) (if (null? sc1) clam-0 (let ((sc2 arg-2)) (let ((e-1 (vector-ref sc2 1))) (let ((sc3 clam-0)) (let ((e-0 (vector-ref sc3 1))) (let ((e-8 (vector-ref sc3 2))) (let ((e-2 (vector-ref sc3 3))) (let ((e-3 (vector-ref sc3 4))) (let ((e-7 (vector-ref sc3 5))) (let ((e-6 (vector-ref sc3 6))) (vector 0 e-0 e-8 e-2 e-3 e-7 (cons e-1 e-6)))))))))))))))))))))) -(define CoreC-45LinearCheck-case--checkEnvUsage-8269 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (cond ((equal? sc0 0) (CoreC-45LinearCheck-updateHoleUsage (PreludeC-45TypesC-45List-C-43C-43 arg-4 (cons arg-0 arg-1)) arg-10 arg-9 (PreludeC-45Types-u--C-61C-61_Eq_Nat arg-12 (PreludeC-45Types-u--fromInteger_Num_Nat 0)) arg-11 '() arg-5)) (else (lambda (eta-0) (vector 1 1))))))) -(define CoreC-45LinearCheck-case--checkEnvUsage-8180 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (cond ((equal? sc0 0) (PreludeC-45Types-u--fromInteger_Num_Nat 1)) (else arg-12))))) -(define CoreC-45LinearCheck-case--caseC-32blockC-32inC-32lcheckMeta-7822 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26) (let ((sc0 arg-26)) (cond ((equal? sc0 0) (vector 10 arg-13 1)) (else arg-20))))) -(define CoreC-45LinearCheck-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32lcheckDef-7417 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 ext-0) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((e-4 (vector-ref sc0 5))) (let ((act-24 (CoreC-45LinearCheck-getArgUsage arg-6 arg-5 (CoreC-45TT-getLoc (let ((sc1 arg-9)) (let ((e-23 (vector-ref sc1 3))) e-23))) arg-3 (let ((sc1 arg-9)) (let ((e-23 (vector-ref sc1 3))) e-23)) e-4 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45ContextC-45Log-log arg-6 "quantity" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Overall arg usage " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45LinearCheck-u--show_Show_ArgUsage u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45LinearCheck-u--showPrec_Show_ArgUsage u--d u--x)))) e-5))) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((u--tyC-39 (CoreC-45LinearCheck-n--10267-7076-u--updateUsage arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 (let ((sc3 arg-9)) (let ((e-25 (vector-ref sc3 3))) e-25))))) (let ((act-26 (CoreC-45Context-updateTy arg-6 arg-8 u--tyC-39 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((act-27 (CoreC-45Context-setLinearCheck arg-6 arg-8 0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((act-28 (CoreC-45ContextC-45Log-logTerm '() arg-6 "quantity" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "New type of " (CoreC-45Name-u--show_Show_Name (let ((sc5 arg-9)) (let ((e-28 (vector-ref sc5 2))) e-28))))) u--tyC-39 ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (vector 0 e-9))) (else (let ((act-29 (CoreC-45ContextC-45Log-logTerm '() arg-6 "quantity" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Updated from " (CoreC-45Name-u--show_Show_Name (let ((sc6 arg-9)) (let ((e-29 (vector-ref sc6 2))) e-29))))) (let ((sc6 arg-9)) (let ((e-28 (vector-ref sc6 3))) e-28)) ext-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (vector 1 u--tyC-39)))))))))))))))))))))))))))))(else (vector 1 (let ((sc0 arg-9)) (let ((e-2 (vector-ref sc0 3))) e-2)))))))) -(define CoreC-45LinearCheck-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32lcheckDef-7366 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (let ((sc1 arg-9)) (let ((e-2 (vector-ref sc1 3))) e-2))))) (else (lambda (eta-0) (CoreC-45LinearCheck-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32lcheckDef-7417 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (let ((sc1 arg-9)) (let ((e-17 (vector-ref sc1 18))) e-17)) eta-0))))))) -(define CoreC-45LinearCheck-case--lcheckDef-7311 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 ext-0) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((act-24 ((CoreC-45Context-lookupCtxtExact (vector 9 e-1) (let ((sc1 arg-7)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (let ((act-25 (CoreC-45LinearCheck-n--10267-7077-u--rigSafe arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (let ((sc3 e-2)) (let ((e-7 (vector-ref sc3 8))) e-7)) arg-3 ext-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((_-0 (vector 1 e-2))) ((CoreC-45LinearCheck-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32lcheckDef-7366 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-1 e-2 _-0 (let ((sc4 e-2)) (let ((e-16 (vector-ref sc4 17))) e-16))) ext-0)))))))) (else (CoreC-45Context-undefinedName arg-6 arg-4 arg-1 ext-0))))))))))) (else (CoreC-45Context-undefinedName arg-6 arg-4 arg-1 ext-0)))))) -(define CoreC-45LinearCheck-case--getArgUsageC-44checkEnvUsage-6512 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (cond ((equal? sc0 0) (CoreC-45LinearCheck-updateHoleUsage (PreludeC-45TypesC-45List-C-43C-43 arg-10 (cons arg-6 arg-7)) arg-5 arg-4 (PreludeC-45Types-u--C-61C-61_Eq_Nat arg-16 (PreludeC-45Types-u--fromInteger_Num_Nat 0)) arg-15 '() arg-11)) (else (lambda (eta-0) (vector 1 1))))))) -(define CoreC-45LinearCheck-case--getArgUsageC-44checkEnvUsage-6402 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (cond ((equal? sc0 0) (PreludeC-45Types-u--fromInteger_Num_Nat 1)) (else arg-16))))) -(define CoreC-45LinearCheck-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32getArgUsageC-44getCaseUsage-6054 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-24 arg-25 arg-26 arg-27 arg-28) (let ((sc0 arg-28)) (cond ((equal? sc0 0) (vector 1 )) (else (vector 2 )))))) -(define CoreC-45LinearCheck-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32getArgUsageC-44getCaseUsage-5931 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-24 arg-25 arg-26 arg-27 arg-28) (let ((sc0 arg-28)) (cond ((equal? sc0 0) (vector 4 )) (else (CoreC-45LinearCheck-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32getArgUsageC-44getCaseUsage-6054 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-24 arg-25 arg-26 arg-27 (PreludeC-45Types-u--C-61C-61_Eq_Nat arg-26 (PreludeC-45Types-u--fromInteger_Num_Nat 0)))))))) -(define CoreC-45LinearCheck-case--getArgUsageC-44getCaseUsage-5805 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (cond ((equal? sc0 0) (lambda (clam-0) (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((e-4 (vector-ref sc1 3))) (let ((act-24 ((CoreC-45LinearCheck-n--10262-5626-u--getCaseUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-14 arg-19 arg-16 arg-18 arg-17) clam-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((u--used_in (CoreC-45LinearCheck-count e-4 arg-18))) (let ((act-25 ((CoreC-45LinearCheck-updateHoleUsage arg-7 arg-5 arg-4 (PreludeC-45Types-u--C-61C-61_Eq_Nat u--used_in (PreludeC-45Types-u--fromInteger_Num_Nat 0)) e-4 '() arg-17) clam-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((u--ause (let ((u--arg (vector 0 e-2 e-3 e-4))) (CoreC-45LinearCheck-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32getArgUsageC-44getCaseUsage-5931 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 e-2 e-3 arg-16 arg-17 arg-18 arg-19 e-4 u--arg e-5 u--used_in e-6 (PreludeC-45Basics-C-38C-38 e-6 (lambda () (PreludeC-45Types-u--C-61C-61_Eq_Nat u--used_in (PreludeC-45Types-u--fromInteger_Num_Nat 0)))))))) (vector 1 (cons (cons arg-13 u--ause) e-5))))))))))))))))))(else (CoreC-45LinearCheck-n--14310-5678-u--elseCase arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 clam-0)))))) (else (lambda (eta-0) (CoreC-45LinearCheck-n--14310-5678-u--elseCase arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 eta-0))))))) -(define CoreC-45LinearCheck-case--getArgUsageC-44getCaseUsageC-44elseCase-5697 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21) (let ((sc0 arg-21)) (cond ((equal? sc0 0) (cons (cons arg-13 (vector 1 )) arg-20)) (else (cons (cons arg-13 (vector 3 )) arg-20)))))) -(define CoreC-45LinearCheck-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32lcheck-4097 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28) (let ((sc0 arg-28)) (cond ((equal? sc0 0) (vector 10 arg-3 1)) (else arg-23))))) -(define CoreC-45LinearCheck-case--caseC-32blockC-32inC-32lcheck-3720 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (cond ((equal? sc0 0) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (CoreC-45LinearCheck-n--10246-2889-u--eraseLinear arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-5))(else arg-5)))) (else arg-5))))) -(define CoreC-45LinearCheck-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32lcheck-3599 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21) (let ((sc0 arg-21)) (cond ((equal? sc0 0) (CoreC-45LinearCheck-updateHoleUsage (cons arg-1 arg-0) arg-9 arg-8 (PreludeC-45Types-u--C-61C-61_Eq_Nat arg-20 (PreludeC-45Types-u--fromInteger_Num_Nat 0)) 0 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45TT-u--weaken_Weaken_Var eta-0)) (CoreC-45LinearCheck-n--10246-2888-u--getZeroes arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-0 arg-14)) arg-15)) (else (lambda (eta-0) (vector 1 1))))))) -(define CoreC-45LinearCheck-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32lcheck-3474 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (cond ((equal? sc0 0) (PreludeC-45Types-u--fromInteger_Num_Nat 1)) (else arg-20))))) -(define CoreC-45LinearCheck-case--lcheckC-44eraseLinear-3239 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-12 arg-13 arg-15) (let ((sc0 arg-15)) (cond ((equal? sc0 0) (cons (CoreC-45TT-setMultiplicity arg-13 (AlgebraC-45Semiring-erased (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)))) (CoreC-45LinearCheck-n--10246-2889-u--eraseLinear arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-12))) (else (cons arg-13 (CoreC-45LinearCheck-n--10246-2889-u--eraseLinear arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-12))))))) -(define CoreC-45LinearCheck-case--lcheckC-44getZeroes-3124 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (cond ((equal? sc0 0) (cons 0 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45TT-u--weaken_Weaken_Var eta-0)) (CoreC-45LinearCheck-n--10246-2888-u--getZeroes arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-11 arg-12)))) (else (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45TT-u--weaken_Weaken_Var eta-0)) (CoreC-45LinearCheck-n--10246-2888-u--getZeroes arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-11 arg-12))))))) -(define CoreC-45LinearCheck-case--caseC-32blockC-32inC-32lcheckC-44rig-3053 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (AlgebraC-45Semiring-erased (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)))) (else (AlgebraC-45Semiring-linear (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)))))))) -(define CoreC-45LinearCheck-case--caseC-32blockC-32inC-32lcheckC-44rig-2932 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (cond ((equal? sc0 0) (AlgebraC-45Semiring-erased (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)))) (else (AlgebraC-45ZeroOneOmega-u--top_Top_ZeroOneOmega)))))) -(define CoreC-45LinearCheck-case--caseC-32blockC-32inC-32lcheck-2765 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 ext-0) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-7 (vector-ref sc1 2))) (let ((act-24 (CoreC-45Context-toFullNames arg-9 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) e-7 ext-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 e-1 e-5)))))))))(else (vector 1 "")))))))(else (vector 1 "")))))) -(define CoreC-45LinearCheck-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32lcheck-2683 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((7) (CoreC-45LinearCheck-n--10246-2354-u--unusedHoleArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-1 (let ((sc1 arg-11)) (let ((e-2 (vector-ref sc1 3))) e-2))))(else (let ((sc0 arg-11)) (let ((e-2 (vector-ref sc0 3))) e-2))))))) -(define CoreC-45LinearCheck-case--caseC-32blockC-32inC-32lcheck-2518 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((1) (lambda () 0))(else (lambda () 1)))))) -(define CoreC-45LinearCheck-case--caseC-32blockC-32inC-32lcheck-2456 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((10) (lambda () 0))(else (lambda () 1)))))) -(define CoreC-45LinearCheck-case--lcheckC-44used-2241 (lambda (arg-0 arg-2 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (cons arg-0 '())) (else '()))))) -(define CoreC-45LinearCheck-case--updateHoleUsage-1983 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (lambda (eta-0) (CoreC-45LinearCheck-updateHoleUsageArgs arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 e-3 eta-0)))(else (let ((sc1 e-3)) (if (null? sc1) (lambda (eta-0) (vector 1 1)) (lambda (eta-0) (CoreC-45LinearCheck-updateHoleUsageArgs arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 (cons e-2 e-3) eta-0)))))))))))) -(define CoreC-45LinearCheck-case--caseC-32blockC-32inC-32updateHoleUsage-1785 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((7) (let ((u--ty (let ((sc1 arg-11)) (let ((e-2 (vector-ref sc1 3))) e-2)))) (lambda (eta-0) (let ((act-24 ((CoreC-45LinearCheck-updateHoleType arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 u--ty arg-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Context-updateTy arg-9 arg-2 e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45ContextC-45Log-logTerm '() arg-9 "quantity.hole.update" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "New type of " (CoreC-45Name-u--show_Show_Name (let ((sc3 arg-11)) (let ((e-23 (vector-ref sc3 2))) e-23))))) e-5 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 (CoreC-45ContextC-45Log-logTerm '() arg-9 "quantity.hole.update" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Updated from " (CoreC-45Name-u--show_Show_Name (let ((sc4 arg-11)) (let ((e-24 (vector-ref sc4 2))) e-24))))) (let ((sc4 arg-11)) (let ((e-2 (vector-ref sc4 3))) e-2)) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (vector 1 0)))))))))))))))))))))(else (lambda (eta-0) (CoreC-45LinearCheck-updateHoleUsageArgs arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 arg-1 eta-0))))))) -(define CoreC-45LinearCheck-case--caseC-32blockC-32inC-32updateHoleType-1229 (lambda (arg-1 arg-2 arg-4 arg-5 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 ext-0) (let ((sc0 arg-20)) (cond ((equal? sc0 0) (let ((act-24 ((CoreC-45LinearCheck-updateHoleType arg-1 arg-2 arg-19 arg-18 arg-17 arg-16 arg-12 arg-15) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 3 arg-13 arg-11 (vector 2 arg-10 (AlgebraC-45Semiring-erased (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))) arg-8 arg-7) e-5)))))))) (else (let ((act-24 ((CoreC-45LinearCheck-updateHoleType arg-1 arg-2 arg-19 arg-18 arg-17 arg-16 arg-12 arg-15) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 3 arg-13 arg-11 (vector 2 arg-10 arg-9 arg-8 arg-7) e-5)))))))))))) -(define CoreC-45LinearCheck-case--updateHoleType-1034 (lambda (arg-1 arg-2 arg-4 arg-5 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((CoreC-45LinearCheck-updateHoleType arg-1 arg-2 arg-19 1 arg-17 arg-16 arg-12 arg-15) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((u--cC-39 (let ((sc2 arg-18)) (cond ((equal? sc2 0) arg-9) (else (AlgebraC-45Semiring-erased (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)))))))) (vector 1 (vector 3 arg-13 arg-11 (vector 2 arg-10 u--cC-39 arg-8 arg-7) e-5)))))))))) (else (lambda (eta-0) (CoreC-45LinearCheck-case--caseC-32blockC-32inC-32updateHoleType-1229 arg-1 arg-2 arg-4 arg-5 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 (PreludeC-45Types-elem (cons (lambda (arg-3) (lambda (arg-6) (PreludeC-45Types-u--C-61C-61_Eq_Nat arg-3 arg-6))) (lambda (arg-6) (lambda (arg-21) (PreludeC-45Types-u--C-47C-61_Eq_Nat arg-6 arg-21)))) arg-5 (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (CoreC-45TT-varIdx eta-1)) arg-16)) eta-0))))))) -(define CoreC-45LinearCheck-case--localPrf-930 (lambda (arg-0 arg-1 arg-4) (+ 1 arg-4))) -(define CoreC-45LinearCheck-case--count-880 (lambda (arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (PreludeC-45Types-u--C-43_Num_Nat (PreludeC-45Types-u--fromInteger_Num_Nat 1) (CoreC-45LinearCheck-count arg-3 arg-1))) (else (CoreC-45LinearCheck-count arg-3 arg-1)))))) -(define CoreC-45LinearCheck-n--10246-2127-u--used (lambda (arg-0 arg-2 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (CoreC-45LinearCheck-case--lcheckC-44used-2241 arg-0 arg-2 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 (AlgebraC-45Semiring-isLinear (cons (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-3) (lambda (arg-12) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-3 arg-12))) (lambda (arg-12) (lambda (arg-13) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-12 arg-13))))) arg-11)))) -(define CoreC-45LinearCheck-n--10267-7076-u--updateUsage (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9) (let ((sc0 arg-8)) (if (null? sc0) arg-9 (let ((e-1 (car sc0))) (let ((e-2 (cdr sc0))) (let ((sc1 arg-9)) (case (vector-ref sc1 0) ((3) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((e-6 (vector-ref sc1 3))) (let ((e-7 (vector-ref sc1 4))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((2) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (let ((e-11 (vector-ref sc2 3))) (let ((e-12 (vector-ref sc2 4))) (let ((u--scC-39 (CoreC-45LinearCheck-n--10267-7076-u--updateUsage arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-2 e-7))) (let ((u--cC-39 (let ((sc3 e-1)) (case (vector-ref sc3 0) ((1) (AlgebraC-45Semiring-erased (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)))) ((2) (AlgebraC-45Semiring-linear (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)))) ((4) e-10) ((3) e-10) (else e-10))))) (vector 3 e-4 e-5 (vector 2 e-9 u--cC-39 e-11 e-12) u--scC-39))))))))(else arg-9))))))))(else arg-9))))))))) -(define CoreC-45LinearCheck-n--10246-2354-u--unusedHoleArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-12 arg-13) (let ((sc0 arg-12)) (if (null? sc0) (let ((sc1 arg-13)) (case (vector-ref sc1 0) ((3) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((e-3 (vector-ref sc1 3))) (let ((e-4 (vector-ref sc1 4))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (let ((e-8 (vector-ref sc2 3))) (let ((e-9 (vector-ref sc2 4))) (vector 3 e-1 e-2 (vector 1 e-6 e-7 e-8 e-9) (CoreC-45LinearCheck-n--10246-2354-u--unusedHoleArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-12 e-4)))))))(else arg-13))))))))(else arg-13))) (let ((e-12 (cdr sc0))) (let ((sc1 arg-13)) (case (vector-ref sc1 0) ((3) (let ((e-14 (vector-ref sc1 1))) (let ((e-15 (vector-ref sc1 2))) (let ((e-16 (vector-ref sc1 3))) (let ((e-17 (vector-ref sc1 4))) (let ((sc2 e-16)) (case (vector-ref sc2 0) ((2) (let ((e-19 (vector-ref sc2 1))) (let ((e-21 (vector-ref sc2 3))) (let ((e-22 (vector-ref sc2 4))) (vector 3 e-14 e-15 (vector 2 e-19 (AlgebraC-45Semiring-erased (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))) e-21 e-22) (CoreC-45LinearCheck-n--10246-2354-u--unusedHoleArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-12 e-17))))))(else (let ((sc2 arg-13)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-3 (vector-ref sc2 3))) (let ((e-4 (vector-ref sc2 4))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((1) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((e-8 (vector-ref sc3 3))) (let ((e-9 (vector-ref sc3 4))) (vector 3 e-1 e-2 (vector 1 e-6 e-7 e-8 e-9) (CoreC-45LinearCheck-n--10246-2354-u--unusedHoleArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-12 e-4)))))))(else arg-13))))))))(else arg-13)))))))))))(else (let ((sc1 arg-13)) (case (vector-ref sc1 0) ((3) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((e-3 (vector-ref sc1 3))) (let ((e-4 (vector-ref sc1 4))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (let ((e-8 (vector-ref sc2 3))) (let ((e-9 (vector-ref sc2 4))) (vector 3 e-1 e-2 (vector 1 e-6 e-7 e-8 e-9) (CoreC-45LinearCheck-n--10246-2354-u--unusedHoleArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-12 e-4)))))))(else arg-13))))))))(else arg-13))))))))))) -(define CoreC-45LinearCheck-n--10271-7597-u--substMeta (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((3) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (let ((sc1 e-4)) (case (vector-ref sc1 0) ((0) (let ((sc2 arg-17)) (if (null? sc2) (lambda (clam-0) (let ((sc3 arg-17)) (if (null? sc3) (vector 1 (CoreC-45TTC-45SubstEnv-substs arg-18 arg-16)) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 (PreludeC-45TypesC-45String-C-43C-43 "Badly formed metavar solution " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name arg-8) (PreludeC-45TypesC-45String-C-43C-43 " " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() arg-5))))) clam-0)))) (let ((e-17 (car sc2))) (let ((e-18 (cdr sc2))) (CoreC-45LinearCheck-n--10271-7597-u--substMeta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (cons e-3 arg-14) arg-15 e-5 e-18 (cons e-17 arg-18))))))) ((1) (let ((e-14 (vector-ref sc1 3))) (CoreC-45LinearCheck-n--10271-7597-u--substMeta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 (CoreC-45TTC-45SubstEnv-subst e-14 e-5) arg-17 arg-18)))(else (lambda (clam-1) (let ((sc1 arg-17)) (if (null? sc1) (vector 1 (CoreC-45TTC-45SubstEnv-substs arg-18 arg-16)) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 (PreludeC-45TypesC-45String-C-43C-43 "Badly formed metavar solution " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name arg-8) (PreludeC-45TypesC-45String-C-43C-43 " " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() arg-5))))) clam-1)))))))))))(else (lambda (clam-2) (let ((sc0 arg-17)) (if (null? sc0) (vector 1 (CoreC-45TTC-45SubstEnv-substs arg-18 arg-16)) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 (PreludeC-45TypesC-45String-C-43C-43 "Badly formed metavar solution " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name arg-8) (PreludeC-45TypesC-45String-C-43C-43 " " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() arg-5))))) clam-2))))))))) -(define CoreC-45LinearCheck-n--8753-750-u--showAll (lambda (arg-1 arg-3) (let ((sc0 arg-3)) (if (null? sc0) "" (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-3)) (if (null? sc1) (CoreC-45TT-u--show_Show_C-40VarC-32C-36nsC-41 e-2) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40VarC-32C-36nsC-41 e-2) (PreludeC-45TypesC-45String-C-43C-43 ", " (CoreC-45LinearCheck-u--show_Show_C-40UsageC-32C-36varsC-41 e-3))))))))))) -(define CoreC-45LinearCheck-n--10267-7077-u--rigSafe (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 ext-0) (let ((act-24 (CoreC-45Context-getFullName arg-6 arg-1 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 (AlgebraC-45Preorder-C-60 (cons (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-60C-61_Preorder_ZeroOneOmega arg-355 arg-356))) (lambda (u--x) (AlgebraC-45ZeroOneOmega-u--preorderRefl_Preorder_ZeroOneOmega u--x)) (lambda (u--x) (lambda (u--y) (lambda (u--z) (lambda (arg-358) (lambda (arg-360) (AlgebraC-45ZeroOneOmega-u--preorderTrans_Preorder_ZeroOneOmega u--x u--y u--z arg-358 arg-360))))))) (cons (lambda (arg-9) (lambda (arg-10) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-9 arg-10))))) arg-7 arg-8))) (cond ((equal? sc1 0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 14 arg-4 e-5 arg-7 arg-8) ext-0)) (else (vector 1 (vector 0 )))))))))))) -(define CoreC-45LinearCheck-n--10246-2126-u--rigSafe (lambda (arg-0 arg-2 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 ext-0) (let ((sc0 (AlgebraC-45Preorder-C-60 (cons (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-60C-61_Preorder_ZeroOneOmega arg-355 arg-356))) (lambda (u--x) (AlgebraC-45ZeroOneOmega-u--preorderRefl_Preorder_ZeroOneOmega u--x)) (lambda (u--x) (lambda (u--y) (lambda (u--z) (lambda (arg-358) (lambda (arg-360) (AlgebraC-45ZeroOneOmega-u--preorderTrans_Preorder_ZeroOneOmega u--x u--y u--z arg-358 arg-360))))))) (cons (lambda (arg-3) (lambda (arg-13) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-3 arg-13))) (lambda (arg-13) (lambda (arg-14) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-13 arg-14))))) arg-11 arg-12))) (cond ((equal? sc0 0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 14 arg-5 (CoreC-45LinearCheck-n--10246-2125-u--getName arg-0 arg-2 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-0 arg-2) arg-11 arg-12) ext-0)) (else (vector 1 (vector 0 ))))))) -(define CoreC-45LinearCheck-n--10246-2887-u--rig (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((u--b (vector 2 e-1 e-2 e-3 e-4))) (CoreC-45LinearCheck-case--caseC-32blockC-32inC-32lcheckC-44rig-2932 arg-0 arg-1 arg-2 e-1 e-2 e-3 e-4 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 u--b (AlgebraC-45Semiring-isErased (cons (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-10) (lambda (arg-11) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-10 arg-11))) (lambda (arg-10) (lambda (arg-11) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-10 arg-11))))) arg-7)))))))) ((1) arg-7)(else (CoreC-45LinearCheck-case--caseC-32blockC-32inC-32lcheckC-44rig-3053 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (AlgebraC-45Semiring-isErased (cons (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-10) (lambda (arg-11) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-10 arg-11))) (lambda (arg-10) (lambda (arg-11) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-10 arg-11))))) arg-7))))))) -(define CoreC-45LinearCheck-n--10262-5628-u--isLocArg (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-8) (let ((sc0 arg-8)) (if (null? sc0) 1 (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-8 (vector-ref sc1 3))) (PreludeC-45Basics-C-124C-124 (PreludeC-45Types-u--C-61C-61_Eq_Nat e-8 (CoreC-45TT-varIdx arg-7)) (lambda () (CoreC-45LinearCheck-n--10262-5628-u--isLocArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 e-3))))) ((5) (let ((e-13 (vector-ref sc1 3))) (let ((e-14 (vector-ref sc1 4))) (CoreC-45LinearCheck-n--10262-5628-u--isLocArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 (cons e-13 (cons e-14 e-3))))))(else (CoreC-45LinearCheck-n--10262-5628-u--isLocArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 e-3)))))))))) -(define CoreC-45LinearCheck-n--10246-2888-u--getZeroes (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-10)) (if (null? sc0) (let ((sc1 arg-11)) '()) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 arg-11)) (let ((e-8 (car sc1))) (let ((e-9 (cdr sc1))) (let ((u--vs (cons e-2 e-3))) (CoreC-45LinearCheck-case--lcheckC-44getZeroes-3124 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-2 e-3 e-9 e-8 u--vs (AlgebraC-45Semiring-isErased (cons (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-12) (lambda (arg-13) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-12 arg-13))) (lambda (arg-12) (lambda (arg-13) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-12 arg-13))))) (CoreC-45TT-multiplicity e-8))))))))))))) -(define CoreC-45LinearCheck-n--10262-5630-u--getPUsage (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (lambda (clam-0) (let ((sc1 e-3)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (let ((sc2 e-7)) (let ((e-10 (car sc2))) (let ((e-11 (cdr sc2))) (let ((act-24 (CoreC-45Normalise-logEnv e-2 arg-5 "quantity" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) "Env" e-6 clam-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((act-25 (CoreC-45ContextC-45Log-logTerm e-2 arg-5 "quantity" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "LHS") e-10 clam-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((act-26 (CoreC-45ContextC-45Log-logTerm e-2 arg-5 "quantity" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Linear check in case RHS") e-11 clam-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((act-27 ((CoreC-45LinearCheck-lcheck e-2 arg-5 arg-4 arg-2 1 e-6 e-11) clam-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc6 1))) (let ((sc7 e-12)) (let ((e-13 (car sc7))) (let ((e-4 (cdr sc7))) (let ((sc8 e-4)) (let ((e-14 (cdr sc8))) (let ((act-28 (CoreC-45ContextC-45Log-log arg-5 "quantity" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Used: " (CoreC-45LinearCheck-u--show_Show_C-40UsageC-32C-36varsC-41 e-14))) clam-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-16 (vector-ref sc9 1))) (vector 0 e-16))) (else (let ((u--args (CoreC-45TT-getArgs e-10))) (let ((act-29 ((CoreC-45LinearCheck-n--10262-5629-u--checkEnvUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 '() e-2 arg-2 e-6 e-14 u--args e-13) clam-0))) (let ((sc10 act-29)) (case (vector-ref sc10 0) ((0) (let ((e-17 (vector-ref sc10 1))) (vector 0 e-17))) (else (let ((act-30 ((CoreC-45LinearCheck-n--10262-5626-u--getCaseUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2 arg-6 e-6 u--args e-14 e-11) clam-0))) (let ((sc11 act-30)) (case (vector-ref sc11 0) ((0) (let ((e-18 (vector-ref sc11 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc11 1))) (let ((act-31 (CoreC-45ContextC-45Log-log arg-5 "quantity" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Arg usage: " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (CoreC-45Name-u--show_Show_Name x-0)) (lambda (u--d) (lambda (x-0) (CoreC-45Name-u--showPrec_Show_Name u--d x-0)))) (cons (lambda (x-0) (CoreC-45LinearCheck-u--show_Show_ArgUsage x-0)) (lambda (u--d) (lambda (x-0) (CoreC-45LinearCheck-u--showPrec_Show_ArgUsage u--d x-0))))) u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (CoreC-45Name-u--show_Show_Name x-0)) (lambda (d-0) (lambda (x-0) (CoreC-45Name-u--showPrec_Show_Name d-0 x-0)))) (cons (lambda (x-0) (CoreC-45LinearCheck-u--show_Show_ArgUsage x-0)) (lambda (d-0) (lambda (x-0) (CoreC-45LinearCheck-u--showPrec_Show_ArgUsage d-0 x-0))))) u--d u--x)))) e-18))) clam-0))) (let ((sc12 act-31)) (case (vector-ref sc12 0) ((0) (let ((e-19 (vector-ref sc12 1))) (vector 0 e-19))) (else (vector 1 e-18))))))))))))))))))))))))))))))))))))))))))))))))))))) -(define CoreC-45LinearCheck-n--10246-2125-u--getName (lambda (arg-0 arg-2 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-12 arg-13) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (let ((sc1 arg-13)) (let ((e-2 (car sc1))) e-2)))(else (let ((e-0 (- arg-12 1))) (let ((sc0 arg-13)) (let ((e-6 (cdr sc0))) (CoreC-45LinearCheck-n--10246-2125-u--getName arg-0 arg-2 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-0 e-6))))))))) -(define CoreC-45LinearCheck-n--10262-5626-u--getCaseUsage (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-10)) (if (null? sc0) (let ((sc1 arg-8)) (case (vector-ref sc1 0) ((3) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((e-3 (vector-ref sc1 3))) (let ((e-4 (vector-ref sc1 4))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((2) (let ((e-6 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (let ((e-8 (vector-ref sc2 3))) (let ((e-9 (vector-ref sc2 4))) (let ((sc3 arg-10)) (if (null? sc3) (lambda (eta-0) (vector 1 '())) (let ((e-11 (car sc3))) (let ((e-12 (cdr sc3))) (CoreC-45LinearCheck-case--getArgUsageC-44getCaseUsage-5805 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 e-1 e-6 e-8 e-9 e-7 e-2 e-4 e-11 e-12 arg-12 arg-11 arg-9 (AlgebraC-45Semiring-isLinear (cons (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-6) (lambda (arg-13) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-6 arg-13))) (lambda (arg-6) (lambda (arg-13) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-6 arg-13))))) e-7)))))))))))(else (lambda (eta-0) (vector 1 '()))))))))))(else (lambda (eta-0) (vector 1 '()))))) (let ((e-14 (car sc0))) (let ((e-15 (cdr sc0))) (let ((sc1 e-14)) (case (vector-ref sc1 0) ((5) (let ((e-20 (vector-ref sc1 4))) (CoreC-45LinearCheck-n--10262-5626-u--getCaseUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-8 arg-9 (cons e-20 e-15) arg-11 arg-12)))(else (let ((sc1 arg-8)) (case (vector-ref sc1 0) ((3) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((e-3 (vector-ref sc1 3))) (let ((e-4 (vector-ref sc1 4))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((2) (let ((e-6 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (let ((e-8 (vector-ref sc2 3))) (let ((e-9 (vector-ref sc2 4))) (let ((sc3 arg-10)) (if (null? sc3) (lambda (eta-0) (vector 1 '())) (let ((e-11 (car sc3))) (let ((e-12 (cdr sc3))) (CoreC-45LinearCheck-case--getArgUsageC-44getCaseUsage-5805 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 e-1 e-6 e-8 e-9 e-7 e-2 e-4 e-11 e-12 arg-12 arg-11 arg-9 (AlgebraC-45Semiring-isLinear (cons (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-6) (lambda (arg-13) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-6 arg-13))) (lambda (arg-6) (lambda (arg-13) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-6 arg-13))))) e-7)))))))))))(else (lambda (eta-0) (vector 1 '()))))))))))(else (lambda (eta-0) (vector 1 '())))))))))))))) -(define CoreC-45LinearCheck-n--10246-2889-u--eraseLinear (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-11) (let ((sc0 arg-11)) (if (null? sc0) '() (let ((e-4 (car sc0))) (let ((e-5 (cdr sc0))) (CoreC-45LinearCheck-case--lcheckC-44eraseLinear-3239 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-5 e-4 (AlgebraC-45Semiring-isLinear (cons (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-10) (lambda (arg-12) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-10 arg-12))) (lambda (arg-10) (lambda (arg-12) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-10 arg-12))))) (CoreC-45TT-multiplicity e-4))))))))) -(define CoreC-45LinearCheck-n--14310-5678-u--elseCase (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 ext-0) (let ((act-24 ((CoreC-45LinearCheck-n--10262-5626-u--getCaseUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-14 arg-19 arg-16 arg-18 arg-17) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (CoreC-45LinearCheck-case--getArgUsageC-44getCaseUsageC-44elseCase-5697 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 e-5 (AlgebraC-45Semiring-isErased (cons (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-6) (lambda (arg-20) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-6 arg-20))) (lambda (arg-6) (lambda (arg-20) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-6 arg-20))))) arg-12)))))))))) -(define CoreC-45LinearCheck-n--10262-5632-u--combineUsages (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((sc0 arg-6)) (if (null? sc0) (let ((sc1 arg-7)) (if (null? sc1) (vector 1 '()) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 "Argument usage lists inconsistent") ext-0))) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 arg-7)) (if (null? sc1) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 "Argument usage lists inconsistent") ext-0) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (let ((act-24 ((CoreC-45LinearCheck-n--10262-5631-u--combineUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2 e-6) ext-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (CoreC-45LinearCheck-n--10262-5632-u--combineUsages arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3 e-7 ext-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (vector 1 (cons e-5 e-8)))))))))))))))))))))) -(define CoreC-45LinearCheck-n--10262-5631-u--combineUsage (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-6)) (if (null? sc0) (let ((sc1 arg-7)) (if (null? sc1) (let ((sc2 arg-6)) (if (null? sc2) (let ((sc3 arg-7)) (if (null? sc3) (let ((sc4 arg-6)) (if (null? sc4) (lambda (clam-95) (let ((sc5 arg-7)) (if (null? sc5) (vector 1 arg-6) (let ((e-2 (car sc5))) (let ((e-3 (cdr sc5))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (vector 1 (cons e-2 (vector 4 ))))(else (vector 1 arg-6))))))))) (let ((e-6 (car sc4))) (let ((e-7 (cdr sc4))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (cons e-6 (vector 4 )))))(else (lambda (clam-94) (let ((sc5 arg-7)) (if (null? sc5) (vector 1 arg-6) (let ((e-2 (car sc5))) (let ((e-3 (cdr sc5))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (vector 1 (cons e-2 (vector 4 ))))(else (vector 1 arg-6)))))))))))))))) (let ((e-10 (car sc3))) (let ((e-11 (cdr sc3))) (let ((sc4 e-11)) (case (vector-ref sc4 0) ((3) (lambda (eta-0) (vector 1 (cons e-10 (vector 3 )))))(else (let ((sc4 arg-6)) (if (null? sc4) (lambda (clam-93) (let ((sc5 arg-7)) (if (null? sc5) (vector 1 arg-6) (let ((e-2 (car sc5))) (let ((e-3 (cdr sc5))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (vector 1 (cons e-2 (vector 4 ))))(else (vector 1 arg-6))))))))) (let ((e-6 (car sc4))) (let ((e-7 (cdr sc4))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (cons e-6 (vector 4 )))))(else (lambda (clam-92) (let ((sc5 arg-7)) (if (null? sc5) (vector 1 arg-6) (let ((e-2 (car sc5))) (let ((e-3 (cdr sc5))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (vector 1 (cons e-2 (vector 4 ))))(else (vector 1 arg-6))))))))))))))))))))))) (let ((e-14 (car sc2))) (let ((e-15 (cdr sc2))) (let ((sc3 e-15)) (case (vector-ref sc3 0) ((3) (lambda (eta-0) (vector 1 (cons e-14 (vector 3 )))))(else (let ((sc3 arg-7)) (if (null? sc3) (let ((sc4 arg-6)) (if (null? sc4) (lambda (clam-91) (let ((sc5 arg-7)) (if (null? sc5) (vector 1 arg-6) (let ((e-2 (car sc5))) (let ((e-3 (cdr sc5))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (vector 1 (cons e-2 (vector 4 ))))(else (vector 1 arg-6))))))))) (let ((e-6 (car sc4))) (let ((e-7 (cdr sc4))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (cons e-6 (vector 4 )))))(else (lambda (clam-90) (let ((sc5 arg-7)) (if (null? sc5) (vector 1 arg-6) (let ((e-2 (car sc5))) (let ((e-3 (cdr sc5))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (vector 1 (cons e-2 (vector 4 ))))(else (vector 1 arg-6)))))))))))))))) (let ((e-10 (car sc3))) (let ((e-11 (cdr sc3))) (let ((sc4 e-11)) (case (vector-ref sc4 0) ((3) (lambda (eta-0) (vector 1 (cons e-10 (vector 3 )))))(else (let ((sc4 arg-6)) (if (null? sc4) (lambda (clam-89) (let ((sc5 arg-7)) (if (null? sc5) (vector 1 arg-6) (let ((e-2 (car sc5))) (let ((e-3 (cdr sc5))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (vector 1 (cons e-2 (vector 4 ))))(else (vector 1 arg-6))))))))) (let ((e-6 (car sc4))) (let ((e-7 (cdr sc4))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (cons e-6 (vector 4 )))))(else (lambda (clam-88) (let ((sc5 arg-7)) (if (null? sc5) (vector 1 arg-6) (let ((e-2 (car sc5))) (let ((e-3 (cdr sc5))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (vector 1 (cons e-2 (vector 4 ))))(else (vector 1 arg-6)))))))))))))))))))))))))))))) (let ((e-18 (car sc1))) (let ((e-19 (cdr sc1))) (let ((sc2 e-19)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (vector 1 (cons e-18 (vector 0 )))))(else (let ((sc2 arg-6)) (if (null? sc2) (let ((sc3 arg-7)) (if (null? sc3) (let ((sc4 arg-6)) (if (null? sc4) (lambda (clam-87) (let ((sc5 arg-7)) (if (null? sc5) (vector 1 arg-6) (let ((e-2 (car sc5))) (let ((e-3 (cdr sc5))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (vector 1 (cons e-2 (vector 4 ))))(else (vector 1 arg-6))))))))) (let ((e-6 (car sc4))) (let ((e-7 (cdr sc4))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (cons e-6 (vector 4 )))))(else (lambda (clam-86) (let ((sc5 arg-7)) (if (null? sc5) (vector 1 arg-6) (let ((e-2 (car sc5))) (let ((e-3 (cdr sc5))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (vector 1 (cons e-2 (vector 4 ))))(else (vector 1 arg-6)))))))))))))))) (let ((e-10 (car sc3))) (let ((e-11 (cdr sc3))) (let ((sc4 e-11)) (case (vector-ref sc4 0) ((3) (lambda (eta-0) (vector 1 (cons e-10 (vector 3 )))))(else (let ((sc4 arg-6)) (if (null? sc4) (lambda (clam-85) (let ((sc5 arg-7)) (if (null? sc5) (vector 1 arg-6) (let ((e-2 (car sc5))) (let ((e-3 (cdr sc5))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (vector 1 (cons e-2 (vector 4 ))))(else (vector 1 arg-6))))))))) (let ((e-6 (car sc4))) (let ((e-7 (cdr sc4))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (cons e-6 (vector 4 )))))(else (lambda (clam-84) (let ((sc5 arg-7)) (if (null? sc5) (vector 1 arg-6) (let ((e-2 (car sc5))) (let ((e-3 (cdr sc5))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (vector 1 (cons e-2 (vector 4 ))))(else (vector 1 arg-6))))))))))))))))))))))) (let ((e-14 (car sc2))) (let ((e-15 (cdr sc2))) (let ((sc3 e-15)) (case (vector-ref sc3 0) ((3) (lambda (eta-0) (vector 1 (cons e-14 (vector 3 )))))(else (let ((sc3 arg-7)) (if (null? sc3) (let ((sc4 arg-6)) (if (null? sc4) (lambda (clam-83) (let ((sc5 arg-7)) (if (null? sc5) (vector 1 arg-6) (let ((e-2 (car sc5))) (let ((e-3 (cdr sc5))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (vector 1 (cons e-2 (vector 4 ))))(else (vector 1 arg-6))))))))) (let ((e-6 (car sc4))) (let ((e-7 (cdr sc4))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (cons e-6 (vector 4 )))))(else (lambda (clam-82) (let ((sc5 arg-7)) (if (null? sc5) (vector 1 arg-6) (let ((e-2 (car sc5))) (let ((e-3 (cdr sc5))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (vector 1 (cons e-2 (vector 4 ))))(else (vector 1 arg-6)))))))))))))))) (let ((e-10 (car sc3))) (let ((e-11 (cdr sc3))) (let ((sc4 e-11)) (case (vector-ref sc4 0) ((3) (lambda (eta-0) (vector 1 (cons e-10 (vector 3 )))))(else (let ((sc4 arg-6)) (if (null? sc4) (lambda (clam-81) (let ((sc5 arg-7)) (if (null? sc5) (vector 1 arg-6) (let ((e-2 (car sc5))) (let ((e-3 (cdr sc5))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (vector 1 (cons e-2 (vector 4 ))))(else (vector 1 arg-6))))))))) (let ((e-6 (car sc4))) (let ((e-7 (cdr sc4))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (cons e-6 (vector 4 )))))(else (lambda (clam-80) (let ((sc5 arg-7)) (if (null? sc5) (vector 1 arg-6) (let ((e-2 (car sc5))) (let ((e-3 (cdr sc5))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (vector 1 (cons e-2 (vector 4 ))))(else (vector 1 arg-6))))))))))))))))))))))))))))))))))))) (let ((e-22 (car sc0))) (let ((e-23 (cdr sc0))) (let ((sc1 e-23)) (case (vector-ref sc1 0) ((1) (let ((sc2 arg-7)) (if (null? sc2) (let ((sc3 arg-7)) (if (null? sc3) (let ((sc4 arg-6)) (if (null? sc4) (let ((sc5 arg-7)) (if (null? sc5) (let ((sc6 arg-6)) (if (null? sc6) (lambda (clam-31) (let ((sc7 arg-7)) (if (null? sc7) (vector 1 arg-6) (let ((e-2 (car sc7))) (let ((e-3 (cdr sc7))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((4) (vector 1 (cons e-2 (vector 4 ))))(else (vector 1 arg-6))))))))) (let ((e-6 (car sc6))) (let ((e-7 (cdr sc6))) (let ((sc7 e-7)) (case (vector-ref sc7 0) ((4) (lambda (eta-0) (vector 1 (cons e-6 (vector 4 )))))(else (lambda (clam-30) (let ((sc7 arg-7)) (if (null? sc7) (vector 1 arg-6) (let ((e-2 (car sc7))) (let ((e-3 (cdr sc7))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((4) (vector 1 (cons e-2 (vector 4 ))))(else (vector 1 arg-6)))))))))))))))) (let ((e-10 (car sc5))) (let ((e-11 (cdr sc5))) (let ((sc6 e-11)) (case (vector-ref sc6 0) ((3) (lambda (eta-0) (vector 1 (cons e-10 (vector 3 )))))(else (let ((sc6 arg-6)) (if (null? sc6) (lambda (clam-29) (let ((sc7 arg-7)) (if (null? sc7) (vector 1 arg-6) (let ((e-2 (car sc7))) (let ((e-3 (cdr sc7))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((4) (vector 1 (cons e-2 (vector 4 ))))(else (vector 1 arg-6))))))))) (let ((e-6 (car sc6))) (let ((e-7 (cdr sc6))) (let ((sc7 e-7)) (case (vector-ref sc7 0) ((4) (lambda (eta-0) (vector 1 (cons e-6 (vector 4 )))))(else (lambda (clam-28) (let ((sc7 arg-7)) (if (null? sc7) (vector 1 arg-6) (let ((e-2 (car sc7))) (let ((e-3 (cdr sc7))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((4) (vector 1 (cons e-2 (vector 4 ))))(else (vector 1 arg-6))))))))))))))))))))))) (let ((e-14 (car sc4))) (let ((e-15 (cdr sc4))) (let ((sc5 e-15)) (case (vector-ref sc5 0) ((3) (lambda (eta-0) (vector 1 (cons e-14 (vector 3 )))))(else (let ((sc5 arg-7)) (if (null? sc5) (let ((sc6 arg-6)) (if (null? sc6) (lambda (clam-27) (let ((sc7 arg-7)) (if (null? sc7) (vector 1 arg-6) (let ((e-2 (car sc7))) (let ((e-3 (cdr sc7))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((4) (vector 1 (cons e-2 (vector 4 ))))(else (vector 1 arg-6))))))))) (let ((e-6 (car sc6))) (let ((e-7 (cdr sc6))) (let ((sc7 e-7)) (case (vector-ref sc7 0) ((4) (lambda (eta-0) (vector 1 (cons e-6 (vector 4 )))))(else (lambda (clam-26) (let ((sc7 arg-7)) (if (null? sc7) (vector 1 arg-6) (let ((e-2 (car sc7))) (let ((e-3 (cdr sc7))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((4) (vector 1 (cons e-2 (vector 4 ))))(else (vector 1 arg-6)))))))))))))))) (let ((e-10 (car sc5))) (let ((e-11 (cdr sc5))) (let ((sc6 e-11)) (case (vector-ref sc6 0) ((3) (lambda (eta-0) (vector 1 (cons e-10 (vector 3 )))))(else (let ((sc6 arg-6)) (if (null? sc6) (lambda (clam-25) (let ((sc7 arg-7)) (if (null? sc7) (vector 1 arg-6) (let ((e-2 (car sc7))) (let ((e-3 (cdr sc7))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((4) (vector 1 (cons e-2 (vector 4 ))))(else (vector 1 arg-6))))))))) (let ((e-6 (car sc6))) (let ((e-7 (cdr sc6))) (let ((sc7 e-7)) (case (vector-ref sc7 0) ((4) (lambda (eta-0) (vector 1 (cons e-6 (vector 4 )))))(else (lambda (clam-24) (let ((sc7 arg-7)) (if (null? sc7) (vector 1 arg-6) (let ((e-2 (car sc7))) (let ((e-3 (cdr sc7))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((4) (vector 1 (cons e-2 (vector 4 ))))(else (vector 1 arg-6)))))))))))))))))))))))))))))) (let ((e-18 (car sc3))) (let ((e-19 (cdr sc3))) (let ((sc4 e-19)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (vector 1 (cons e-18 (vector 0 )))))(else (let ((sc4 arg-6)) (if (null? sc4) (let ((sc5 arg-7)) (if (null? sc5) (let ((sc6 arg-6)) (if (null? sc6) (lambda (clam-23) (let ((sc7 arg-7)) (if (null? sc7) (vector 1 arg-6) (let ((e-2 (car sc7))) (let ((e-3 (cdr sc7))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((4) (vector 1 (cons e-2 (vector 4 ))))(else (vector 1 arg-6))))))))) (let ((e-6 (car sc6))) (let ((e-7 (cdr sc6))) (let ((sc7 e-7)) (case (vector-ref sc7 0) ((4) (lambda (eta-0) (vector 1 (cons e-6 (vector 4 )))))(else (lambda (clam-22) (let ((sc7 arg-7)) (if (null? sc7) (vector 1 arg-6) (let ((e-2 (car sc7))) (let ((e-3 (cdr sc7))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((4) (vector 1 (cons e-2 (vector 4 ))))(else (vector 1 arg-6)))))))))))))))) (let ((e-10 (car sc5))) (let ((e-11 (cdr sc5))) (let ((sc6 e-11)) (case (vector-ref sc6 0) ((3) (lambda (eta-0) (vector 1 (cons e-10 (vector 3 )))))(else (let ((sc6 arg-6)) (if (null? sc6) (lambda (clam-21) (let ((sc7 arg-7)) (if (null? sc7) (vector 1 arg-6) (let ((e-2 (car sc7))) (let ((e-3 (cdr sc7))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((4) (vector 1 (cons e-2 (vector 4 ))))(else (vector 1 arg-6))))))))) (let ((e-6 (car sc6))) (let ((e-7 (cdr sc6))) (let ((sc7 e-7)) (case (vector-ref sc7 0) ((4) (lambda (eta-0) (vector 1 (cons e-6 (vector 4 )))))(else (lambda (clam-20) (let ((sc7 arg-7)) (if (null? sc7) (vector 1 arg-6) (let ((e-2 (car sc7))) (let ((e-3 (cdr sc7))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((4) (vector 1 (cons e-2 (vector 4 ))))(else (vector 1 arg-6))))))))))))))))))))))) (let ((e-14 (car sc4))) (let ((e-15 (cdr sc4))) (let ((sc5 e-15)) (case (vector-ref sc5 0) ((3) (lambda (eta-0) (vector 1 (cons e-14 (vector 3 )))))(else (let ((sc5 arg-7)) (if (null? sc5) (let ((sc6 arg-6)) (if (null? sc6) (lambda (clam-19) (let ((sc7 arg-7)) (if (null? sc7) (vector 1 arg-6) (let ((e-2 (car sc7))) (let ((e-3 (cdr sc7))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((4) (vector 1 (cons e-2 (vector 4 ))))(else (vector 1 arg-6))))))))) (let ((e-6 (car sc6))) (let ((e-7 (cdr sc6))) (let ((sc7 e-7)) (case (vector-ref sc7 0) ((4) (lambda (eta-0) (vector 1 (cons e-6 (vector 4 )))))(else (lambda (clam-18) (let ((sc7 arg-7)) (if (null? sc7) (vector 1 arg-6) (let ((e-2 (car sc7))) (let ((e-3 (cdr sc7))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((4) (vector 1 (cons e-2 (vector 4 ))))(else (vector 1 arg-6)))))))))))))))) (let ((e-10 (car sc5))) (let ((e-11 (cdr sc5))) (let ((sc6 e-11)) (case (vector-ref sc6 0) ((3) (lambda (eta-0) (vector 1 (cons e-10 (vector 3 )))))(else (let ((sc6 arg-6)) (if (null? sc6) (lambda (clam-17) (let ((sc7 arg-7)) (if (null? sc7) (vector 1 arg-6) (let ((e-2 (car sc7))) (let ((e-3 (cdr sc7))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((4) (vector 1 (cons e-2 (vector 4 ))))(else (vector 1 arg-6))))))))) (let ((e-6 (car sc6))) (let ((e-7 (cdr sc6))) (let ((sc7 e-7)) (case (vector-ref sc7 0) ((4) (lambda (eta-0) (vector 1 (cons e-6 (vector 4 )))))(else (lambda (clam-16) (let ((sc7 arg-7)) (if (null? sc7) (vector 1 arg-6) (let ((e-2 (car sc7))) (let ((e-3 (cdr sc7))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((4) (vector 1 (cons e-2 (vector 4 ))))(else (vector 1 arg-6))))))))))))))))))))))))))))))))))))) (let ((e-27 (cdr sc2))) (let ((sc3 e-27)) (case (vector-ref sc3 0) ((2) (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-3 (PreludeC-45TypesC-45String-C-43C-43 "Inconsistent usage of " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-22) " in case branches"))) eta-0)))(else (let ((sc3 arg-7)) (if (null? sc3) (let ((sc4 arg-6)) (if (null? sc4) (let ((sc5 arg-7)) (if (null? sc5) (let ((sc6 arg-6)) (if (null? sc6) (lambda (clam-15) (let ((sc7 arg-7)) (if (null? sc7) (vector 1 arg-6) (let ((e-2 (car sc7))) (let ((e-3 (cdr sc7))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((4) (vector 1 (cons e-2 (vector 4 ))))(else (vector 1 arg-6))))))))) (let ((e-6 (car sc6))) (let ((e-7 (cdr sc6))) (let ((sc7 e-7)) (case (vector-ref sc7 0) ((4) (lambda (eta-0) (vector 1 (cons e-6 (vector 4 )))))(else (lambda (clam-14) (let ((sc7 arg-7)) (if (null? sc7) (vector 1 arg-6) (let ((e-2 (car sc7))) (let ((e-3 (cdr sc7))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((4) (vector 1 (cons e-2 (vector 4 ))))(else (vector 1 arg-6)))))))))))))))) (let ((e-10 (car sc5))) (let ((e-11 (cdr sc5))) (let ((sc6 e-11)) (case (vector-ref sc6 0) ((3) (lambda (eta-0) (vector 1 (cons e-10 (vector 3 )))))(else (let ((sc6 arg-6)) (if (null? sc6) (lambda (clam-13) (let ((sc7 arg-7)) (if (null? sc7) (vector 1 arg-6) (let ((e-2 (car sc7))) (let ((e-3 (cdr sc7))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((4) (vector 1 (cons e-2 (vector 4 ))))(else (vector 1 arg-6))))))))) (let ((e-6 (car sc6))) (let ((e-7 (cdr sc6))) (let ((sc7 e-7)) (case (vector-ref sc7 0) ((4) (lambda (eta-0) (vector 1 (cons e-6 (vector 4 )))))(else (lambda (clam-12) (let ((sc7 arg-7)) (if (null? sc7) (vector 1 arg-6) (let ((e-2 (car sc7))) (let ((e-3 (cdr sc7))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((4) (vector 1 (cons e-2 (vector 4 ))))(else (vector 1 arg-6))))))))))))))))))))))) (let ((e-14 (car sc4))) (let ((e-15 (cdr sc4))) (let ((sc5 e-15)) (case (vector-ref sc5 0) ((3) (lambda (eta-0) (vector 1 (cons e-14 (vector 3 )))))(else (let ((sc5 arg-7)) (if (null? sc5) (let ((sc6 arg-6)) (if (null? sc6) (lambda (clam-11) (let ((sc7 arg-7)) (if (null? sc7) (vector 1 arg-6) (let ((e-2 (car sc7))) (let ((e-3 (cdr sc7))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((4) (vector 1 (cons e-2 (vector 4 ))))(else (vector 1 arg-6))))))))) (let ((e-6 (car sc6))) (let ((e-7 (cdr sc6))) (let ((sc7 e-7)) (case (vector-ref sc7 0) ((4) (lambda (eta-0) (vector 1 (cons e-6 (vector 4 )))))(else (lambda (clam-10) (let ((sc7 arg-7)) (if (null? sc7) (vector 1 arg-6) (let ((e-2 (car sc7))) (let ((e-3 (cdr sc7))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((4) (vector 1 (cons e-2 (vector 4 ))))(else (vector 1 arg-6)))))))))))))))) (let ((e-10 (car sc5))) (let ((e-11 (cdr sc5))) (let ((sc6 e-11)) (case (vector-ref sc6 0) ((3) (lambda (eta-0) (vector 1 (cons e-10 (vector 3 )))))(else (let ((sc6 arg-6)) (if (null? sc6) (lambda (clam-9) (let ((sc7 arg-7)) (if (null? sc7) (vector 1 arg-6) (let ((e-2 (car sc7))) (let ((e-3 (cdr sc7))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((4) (vector 1 (cons e-2 (vector 4 ))))(else (vector 1 arg-6))))))))) (let ((e-6 (car sc6))) (let ((e-7 (cdr sc6))) (let ((sc7 e-7)) (case (vector-ref sc7 0) ((4) (lambda (eta-0) (vector 1 (cons e-6 (vector 4 )))))(else (lambda (clam-8) (let ((sc7 arg-7)) (if (null? sc7) (vector 1 arg-6) (let ((e-2 (car sc7))) (let ((e-3 (cdr sc7))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((4) (vector 1 (cons e-2 (vector 4 ))))(else (vector 1 arg-6)))))))))))))))))))))))))))))) (let ((e-18 (car sc3))) (let ((e-19 (cdr sc3))) (let ((sc4 e-19)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (vector 1 (cons e-18 (vector 0 )))))(else (let ((sc4 arg-6)) (if (null? sc4) (let ((sc5 arg-7)) (if (null? sc5) (let ((sc6 arg-6)) (if (null? sc6) (lambda (clam-7) (let ((sc7 arg-7)) (if (null? sc7) (vector 1 arg-6) (let ((e-2 (car sc7))) (let ((e-3 (cdr sc7))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((4) (vector 1 (cons e-2 (vector 4 ))))(else (vector 1 arg-6))))))))) (let ((e-6 (car sc6))) (let ((e-7 (cdr sc6))) (let ((sc7 e-7)) (case (vector-ref sc7 0) ((4) (lambda (eta-0) (vector 1 (cons e-6 (vector 4 )))))(else (lambda (clam-6) (let ((sc7 arg-7)) (if (null? sc7) (vector 1 arg-6) (let ((e-2 (car sc7))) (let ((e-3 (cdr sc7))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((4) (vector 1 (cons e-2 (vector 4 ))))(else (vector 1 arg-6)))))))))))))))) (let ((e-10 (car sc5))) (let ((e-11 (cdr sc5))) (let ((sc6 e-11)) (case (vector-ref sc6 0) ((3) (lambda (eta-0) (vector 1 (cons e-10 (vector 3 )))))(else (let ((sc6 arg-6)) (if (null? sc6) (lambda (clam-5) (let ((sc7 arg-7)) (if (null? sc7) (vector 1 arg-6) (let ((e-2 (car sc7))) (let ((e-3 (cdr sc7))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((4) (vector 1 (cons e-2 (vector 4 ))))(else (vector 1 arg-6))))))))) (let ((e-6 (car sc6))) (let ((e-7 (cdr sc6))) (let ((sc7 e-7)) (case (vector-ref sc7 0) ((4) (lambda (eta-0) (vector 1 (cons e-6 (vector 4 )))))(else (lambda (clam-4) (let ((sc7 arg-7)) (if (null? sc7) (vector 1 arg-6) (let ((e-2 (car sc7))) (let ((e-3 (cdr sc7))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((4) (vector 1 (cons e-2 (vector 4 ))))(else (vector 1 arg-6))))))))))))))))))))))) (let ((e-14 (car sc4))) (let ((e-15 (cdr sc4))) (let ((sc5 e-15)) (case (vector-ref sc5 0) ((3) (lambda (eta-0) (vector 1 (cons e-14 (vector 3 )))))(else (let ((sc5 arg-7)) (if (null? sc5) (let ((sc6 arg-6)) (if (null? sc6) (lambda (clam-3) (let ((sc7 arg-7)) (if (null? sc7) (vector 1 arg-6) (let ((e-2 (car sc7))) (let ((e-3 (cdr sc7))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((4) (vector 1 (cons e-2 (vector 4 ))))(else (vector 1 arg-6))))))))) (let ((e-6 (car sc6))) (let ((e-7 (cdr sc6))) (let ((sc7 e-7)) (case (vector-ref sc7 0) ((4) (lambda (eta-0) (vector 1 (cons e-6 (vector 4 )))))(else (lambda (clam-2) (let ((sc7 arg-7)) (if (null? sc7) (vector 1 arg-6) (let ((e-2 (car sc7))) (let ((e-3 (cdr sc7))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((4) (vector 1 (cons e-2 (vector 4 ))))(else (vector 1 arg-6)))))))))))))))) (let ((e-10 (car sc5))) (let ((e-11 (cdr sc5))) (let ((sc6 e-11)) (case (vector-ref sc6 0) ((3) (lambda (eta-0) (vector 1 (cons e-10 (vector 3 )))))(else (let ((sc6 arg-6)) (if (null? sc6) (lambda (clam-1) (let ((sc7 arg-7)) (if (null? sc7) (vector 1 arg-6) (let ((e-2 (car sc7))) (let ((e-3 (cdr sc7))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((4) (vector 1 (cons e-2 (vector 4 ))))(else (vector 1 arg-6))))))))) (let ((e-6 (car sc6))) (let ((e-7 (cdr sc6))) (let ((sc7 e-7)) (case (vector-ref sc7 0) ((4) (lambda (eta-0) (vector 1 (cons e-6 (vector 4 )))))(else (lambda (clam-0) (let ((sc7 arg-7)) (if (null? sc7) (vector 1 arg-6) (let ((e-2 (car sc7))) (let ((e-3 (cdr sc7))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((4) (vector 1 (cons e-2 (vector 4 ))))(else (vector 1 arg-6)))))))))))))))))))))))))))))))))))))))))))) ((2) (let ((sc2 arg-7)) (if (null? sc2) (let ((sc3 arg-7)) (if (null? sc3) (let ((sc4 arg-6)) (if (null? sc4) (let ((sc5 arg-7)) (if (null? sc5) (let ((sc6 arg-6)) (if (null? sc6) (lambda (clam-63) (let ((sc7 arg-7)) (if (null? sc7) (vector 1 arg-6) (let ((e-2 (car sc7))) (let ((e-3 (cdr sc7))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((4) (vector 1 (cons e-2 (vector 4 ))))(else (vector 1 arg-6))))))))) (let ((e-6 (car sc6))) (let ((e-7 (cdr sc6))) (let ((sc7 e-7)) (case (vector-ref sc7 0) ((4) (lambda (eta-0) (vector 1 (cons e-6 (vector 4 )))))(else (lambda (clam-62) (let ((sc7 arg-7)) (if (null? sc7) (vector 1 arg-6) (let ((e-2 (car sc7))) (let ((e-3 (cdr sc7))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((4) (vector 1 (cons e-2 (vector 4 ))))(else (vector 1 arg-6)))))))))))))))) (let ((e-10 (car sc5))) (let ((e-11 (cdr sc5))) (let ((sc6 e-11)) (case (vector-ref sc6 0) ((3) (lambda (eta-0) (vector 1 (cons e-10 (vector 3 )))))(else (let ((sc6 arg-6)) (if (null? sc6) (lambda (clam-61) (let ((sc7 arg-7)) (if (null? sc7) (vector 1 arg-6) (let ((e-2 (car sc7))) (let ((e-3 (cdr sc7))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((4) (vector 1 (cons e-2 (vector 4 ))))(else (vector 1 arg-6))))))))) (let ((e-6 (car sc6))) (let ((e-7 (cdr sc6))) (let ((sc7 e-7)) (case (vector-ref sc7 0) ((4) (lambda (eta-0) (vector 1 (cons e-6 (vector 4 )))))(else (lambda (clam-60) (let ((sc7 arg-7)) (if (null? sc7) (vector 1 arg-6) (let ((e-2 (car sc7))) (let ((e-3 (cdr sc7))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((4) (vector 1 (cons e-2 (vector 4 ))))(else (vector 1 arg-6))))))))))))))))))))))) (let ((e-14 (car sc4))) (let ((e-15 (cdr sc4))) (let ((sc5 e-15)) (case (vector-ref sc5 0) ((3) (lambda (eta-0) (vector 1 (cons e-14 (vector 3 )))))(else (let ((sc5 arg-7)) (if (null? sc5) (let ((sc6 arg-6)) (if (null? sc6) (lambda (clam-59) (let ((sc7 arg-7)) (if (null? sc7) (vector 1 arg-6) (let ((e-2 (car sc7))) (let ((e-3 (cdr sc7))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((4) (vector 1 (cons e-2 (vector 4 ))))(else (vector 1 arg-6))))))))) (let ((e-6 (car sc6))) (let ((e-7 (cdr sc6))) (let ((sc7 e-7)) (case (vector-ref sc7 0) ((4) (lambda (eta-0) (vector 1 (cons e-6 (vector 4 )))))(else (lambda (clam-58) (let ((sc7 arg-7)) (if (null? sc7) (vector 1 arg-6) (let ((e-2 (car sc7))) (let ((e-3 (cdr sc7))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((4) (vector 1 (cons e-2 (vector 4 ))))(else (vector 1 arg-6)))))))))))))))) (let ((e-10 (car sc5))) (let ((e-11 (cdr sc5))) (let ((sc6 e-11)) (case (vector-ref sc6 0) ((3) (lambda (eta-0) (vector 1 (cons e-10 (vector 3 )))))(else (let ((sc6 arg-6)) (if (null? sc6) (lambda (clam-57) (let ((sc7 arg-7)) (if (null? sc7) (vector 1 arg-6) (let ((e-2 (car sc7))) (let ((e-3 (cdr sc7))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((4) (vector 1 (cons e-2 (vector 4 ))))(else (vector 1 arg-6))))))))) (let ((e-6 (car sc6))) (let ((e-7 (cdr sc6))) (let ((sc7 e-7)) (case (vector-ref sc7 0) ((4) (lambda (eta-0) (vector 1 (cons e-6 (vector 4 )))))(else (lambda (clam-56) (let ((sc7 arg-7)) (if (null? sc7) (vector 1 arg-6) (let ((e-2 (car sc7))) (let ((e-3 (cdr sc7))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((4) (vector 1 (cons e-2 (vector 4 ))))(else (vector 1 arg-6)))))))))))))))))))))))))))))) (let ((e-18 (car sc3))) (let ((e-19 (cdr sc3))) (let ((sc4 e-19)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (vector 1 (cons e-18 (vector 0 )))))(else (let ((sc4 arg-6)) (if (null? sc4) (let ((sc5 arg-7)) (if (null? sc5) (let ((sc6 arg-6)) (if (null? sc6) (lambda (clam-55) (let ((sc7 arg-7)) (if (null? sc7) (vector 1 arg-6) (let ((e-2 (car sc7))) (let ((e-3 (cdr sc7))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((4) (vector 1 (cons e-2 (vector 4 ))))(else (vector 1 arg-6))))))))) (let ((e-6 (car sc6))) (let ((e-7 (cdr sc6))) (let ((sc7 e-7)) (case (vector-ref sc7 0) ((4) (lambda (eta-0) (vector 1 (cons e-6 (vector 4 )))))(else (lambda (clam-54) (let ((sc7 arg-7)) (if (null? sc7) (vector 1 arg-6) (let ((e-2 (car sc7))) (let ((e-3 (cdr sc7))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((4) (vector 1 (cons e-2 (vector 4 ))))(else (vector 1 arg-6)))))))))))))))) (let ((e-10 (car sc5))) (let ((e-11 (cdr sc5))) (let ((sc6 e-11)) (case (vector-ref sc6 0) ((3) (lambda (eta-0) (vector 1 (cons e-10 (vector 3 )))))(else (let ((sc6 arg-6)) (if (null? sc6) (lambda (clam-53) (let ((sc7 arg-7)) (if (null? sc7) (vector 1 arg-6) (let ((e-2 (car sc7))) (let ((e-3 (cdr sc7))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((4) (vector 1 (cons e-2 (vector 4 ))))(else (vector 1 arg-6))))))))) (let ((e-6 (car sc6))) (let ((e-7 (cdr sc6))) (let ((sc7 e-7)) (case (vector-ref sc7 0) ((4) (lambda (eta-0) (vector 1 (cons e-6 (vector 4 )))))(else (lambda (clam-52) (let ((sc7 arg-7)) (if (null? sc7) (vector 1 arg-6) (let ((e-2 (car sc7))) (let ((e-3 (cdr sc7))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((4) (vector 1 (cons e-2 (vector 4 ))))(else (vector 1 arg-6))))))))))))))))))))))) (let ((e-14 (car sc4))) (let ((e-15 (cdr sc4))) (let ((sc5 e-15)) (case (vector-ref sc5 0) ((3) (lambda (eta-0) (vector 1 (cons e-14 (vector 3 )))))(else (let ((sc5 arg-7)) (if (null? sc5) (let ((sc6 arg-6)) (if (null? sc6) (lambda (clam-51) (let ((sc7 arg-7)) (if (null? sc7) (vector 1 arg-6) (let ((e-2 (car sc7))) (let ((e-3 (cdr sc7))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((4) (vector 1 (cons e-2 (vector 4 ))))(else (vector 1 arg-6))))))))) (let ((e-6 (car sc6))) (let ((e-7 (cdr sc6))) (let ((sc7 e-7)) (case (vector-ref sc7 0) ((4) (lambda (eta-0) (vector 1 (cons e-6 (vector 4 )))))(else (lambda (clam-50) (let ((sc7 arg-7)) (if (null? sc7) (vector 1 arg-6) (let ((e-2 (car sc7))) (let ((e-3 (cdr sc7))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((4) (vector 1 (cons e-2 (vector 4 ))))(else (vector 1 arg-6)))))))))))))))) (let ((e-10 (car sc5))) (let ((e-11 (cdr sc5))) (let ((sc6 e-11)) (case (vector-ref sc6 0) ((3) (lambda (eta-0) (vector 1 (cons e-10 (vector 3 )))))(else (let ((sc6 arg-6)) (if (null? sc6) (lambda (clam-49) (let ((sc7 arg-7)) (if (null? sc7) (vector 1 arg-6) (let ((e-2 (car sc7))) (let ((e-3 (cdr sc7))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((4) (vector 1 (cons e-2 (vector 4 ))))(else (vector 1 arg-6))))))))) (let ((e-6 (car sc6))) (let ((e-7 (cdr sc6))) (let ((sc7 e-7)) (case (vector-ref sc7 0) ((4) (lambda (eta-0) (vector 1 (cons e-6 (vector 4 )))))(else (lambda (clam-48) (let ((sc7 arg-7)) (if (null? sc7) (vector 1 arg-6) (let ((e-2 (car sc7))) (let ((e-3 (cdr sc7))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((4) (vector 1 (cons e-2 (vector 4 ))))(else (vector 1 arg-6))))))))))))))))))))))))))))))))))))) (let ((e-31 (cdr sc2))) (let ((sc3 e-31)) (case (vector-ref sc3 0) ((1) (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-3 (PreludeC-45TypesC-45String-C-43C-43 "Inconsistent usage of " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-22) " in case branches"))) eta-0)))(else (let ((sc3 arg-7)) (if (null? sc3) (let ((sc4 arg-6)) (if (null? sc4) (let ((sc5 arg-7)) (if (null? sc5) (let ((sc6 arg-6)) (if (null? sc6) (lambda (clam-47) (let ((sc7 arg-7)) (if (null? sc7) (vector 1 arg-6) (let ((e-2 (car sc7))) (let ((e-3 (cdr sc7))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((4) (vector 1 (cons e-2 (vector 4 ))))(else (vector 1 arg-6))))))))) (let ((e-6 (car sc6))) (let ((e-7 (cdr sc6))) (let ((sc7 e-7)) (case (vector-ref sc7 0) ((4) (lambda (eta-0) (vector 1 (cons e-6 (vector 4 )))))(else (lambda (clam-46) (let ((sc7 arg-7)) (if (null? sc7) (vector 1 arg-6) (let ((e-2 (car sc7))) (let ((e-3 (cdr sc7))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((4) (vector 1 (cons e-2 (vector 4 ))))(else (vector 1 arg-6)))))))))))))))) (let ((e-10 (car sc5))) (let ((e-11 (cdr sc5))) (let ((sc6 e-11)) (case (vector-ref sc6 0) ((3) (lambda (eta-0) (vector 1 (cons e-10 (vector 3 )))))(else (let ((sc6 arg-6)) (if (null? sc6) (lambda (clam-45) (let ((sc7 arg-7)) (if (null? sc7) (vector 1 arg-6) (let ((e-2 (car sc7))) (let ((e-3 (cdr sc7))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((4) (vector 1 (cons e-2 (vector 4 ))))(else (vector 1 arg-6))))))))) (let ((e-6 (car sc6))) (let ((e-7 (cdr sc6))) (let ((sc7 e-7)) (case (vector-ref sc7 0) ((4) (lambda (eta-0) (vector 1 (cons e-6 (vector 4 )))))(else (lambda (clam-44) (let ((sc7 arg-7)) (if (null? sc7) (vector 1 arg-6) (let ((e-2 (car sc7))) (let ((e-3 (cdr sc7))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((4) (vector 1 (cons e-2 (vector 4 ))))(else (vector 1 arg-6))))))))))))))))))))))) (let ((e-14 (car sc4))) (let ((e-15 (cdr sc4))) (let ((sc5 e-15)) (case (vector-ref sc5 0) ((3) (lambda (eta-0) (vector 1 (cons e-14 (vector 3 )))))(else (let ((sc5 arg-7)) (if (null? sc5) (let ((sc6 arg-6)) (if (null? sc6) (lambda (clam-43) (let ((sc7 arg-7)) (if (null? sc7) (vector 1 arg-6) (let ((e-2 (car sc7))) (let ((e-3 (cdr sc7))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((4) (vector 1 (cons e-2 (vector 4 ))))(else (vector 1 arg-6))))))))) (let ((e-6 (car sc6))) (let ((e-7 (cdr sc6))) (let ((sc7 e-7)) (case (vector-ref sc7 0) ((4) (lambda (eta-0) (vector 1 (cons e-6 (vector 4 )))))(else (lambda (clam-42) (let ((sc7 arg-7)) (if (null? sc7) (vector 1 arg-6) (let ((e-2 (car sc7))) (let ((e-3 (cdr sc7))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((4) (vector 1 (cons e-2 (vector 4 ))))(else (vector 1 arg-6)))))))))))))))) (let ((e-10 (car sc5))) (let ((e-11 (cdr sc5))) (let ((sc6 e-11)) (case (vector-ref sc6 0) ((3) (lambda (eta-0) (vector 1 (cons e-10 (vector 3 )))))(else (let ((sc6 arg-6)) (if (null? sc6) (lambda (clam-41) (let ((sc7 arg-7)) (if (null? sc7) (vector 1 arg-6) (let ((e-2 (car sc7))) (let ((e-3 (cdr sc7))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((4) (vector 1 (cons e-2 (vector 4 ))))(else (vector 1 arg-6))))))))) (let ((e-6 (car sc6))) (let ((e-7 (cdr sc6))) (let ((sc7 e-7)) (case (vector-ref sc7 0) ((4) (lambda (eta-0) (vector 1 (cons e-6 (vector 4 )))))(else (lambda (clam-40) (let ((sc7 arg-7)) (if (null? sc7) (vector 1 arg-6) (let ((e-2 (car sc7))) (let ((e-3 (cdr sc7))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((4) (vector 1 (cons e-2 (vector 4 ))))(else (vector 1 arg-6)))))))))))))))))))))))))))))) (let ((e-18 (car sc3))) (let ((e-19 (cdr sc3))) (let ((sc4 e-19)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (vector 1 (cons e-18 (vector 0 )))))(else (let ((sc4 arg-6)) (if (null? sc4) (let ((sc5 arg-7)) (if (null? sc5) (let ((sc6 arg-6)) (if (null? sc6) (lambda (clam-39) (let ((sc7 arg-7)) (if (null? sc7) (vector 1 arg-6) (let ((e-2 (car sc7))) (let ((e-3 (cdr sc7))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((4) (vector 1 (cons e-2 (vector 4 ))))(else (vector 1 arg-6))))))))) (let ((e-6 (car sc6))) (let ((e-7 (cdr sc6))) (let ((sc7 e-7)) (case (vector-ref sc7 0) ((4) (lambda (eta-0) (vector 1 (cons e-6 (vector 4 )))))(else (lambda (clam-38) (let ((sc7 arg-7)) (if (null? sc7) (vector 1 arg-6) (let ((e-2 (car sc7))) (let ((e-3 (cdr sc7))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((4) (vector 1 (cons e-2 (vector 4 ))))(else (vector 1 arg-6)))))))))))))))) (let ((e-10 (car sc5))) (let ((e-11 (cdr sc5))) (let ((sc6 e-11)) (case (vector-ref sc6 0) ((3) (lambda (eta-0) (vector 1 (cons e-10 (vector 3 )))))(else (let ((sc6 arg-6)) (if (null? sc6) (lambda (clam-37) (let ((sc7 arg-7)) (if (null? sc7) (vector 1 arg-6) (let ((e-2 (car sc7))) (let ((e-3 (cdr sc7))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((4) (vector 1 (cons e-2 (vector 4 ))))(else (vector 1 arg-6))))))))) (let ((e-6 (car sc6))) (let ((e-7 (cdr sc6))) (let ((sc7 e-7)) (case (vector-ref sc7 0) ((4) (lambda (eta-0) (vector 1 (cons e-6 (vector 4 )))))(else (lambda (clam-36) (let ((sc7 arg-7)) (if (null? sc7) (vector 1 arg-6) (let ((e-2 (car sc7))) (let ((e-3 (cdr sc7))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((4) (vector 1 (cons e-2 (vector 4 ))))(else (vector 1 arg-6))))))))))))))))))))))) (let ((e-14 (car sc4))) (let ((e-15 (cdr sc4))) (let ((sc5 e-15)) (case (vector-ref sc5 0) ((3) (lambda (eta-0) (vector 1 (cons e-14 (vector 3 )))))(else (let ((sc5 arg-7)) (if (null? sc5) (let ((sc6 arg-6)) (if (null? sc6) (lambda (clam-35) (let ((sc7 arg-7)) (if (null? sc7) (vector 1 arg-6) (let ((e-2 (car sc7))) (let ((e-3 (cdr sc7))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((4) (vector 1 (cons e-2 (vector 4 ))))(else (vector 1 arg-6))))))))) (let ((e-6 (car sc6))) (let ((e-7 (cdr sc6))) (let ((sc7 e-7)) (case (vector-ref sc7 0) ((4) (lambda (eta-0) (vector 1 (cons e-6 (vector 4 )))))(else (lambda (clam-34) (let ((sc7 arg-7)) (if (null? sc7) (vector 1 arg-6) (let ((e-2 (car sc7))) (let ((e-3 (cdr sc7))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((4) (vector 1 (cons e-2 (vector 4 ))))(else (vector 1 arg-6)))))))))))))))) (let ((e-10 (car sc5))) (let ((e-11 (cdr sc5))) (let ((sc6 e-11)) (case (vector-ref sc6 0) ((3) (lambda (eta-0) (vector 1 (cons e-10 (vector 3 )))))(else (let ((sc6 arg-6)) (if (null? sc6) (lambda (clam-33) (let ((sc7 arg-7)) (if (null? sc7) (vector 1 arg-6) (let ((e-2 (car sc7))) (let ((e-3 (cdr sc7))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((4) (vector 1 (cons e-2 (vector 4 ))))(else (vector 1 arg-6))))))))) (let ((e-6 (car sc6))) (let ((e-7 (cdr sc6))) (let ((sc7 e-7)) (case (vector-ref sc7 0) ((4) (lambda (eta-0) (vector 1 (cons e-6 (vector 4 )))))(else (lambda (clam-32) (let ((sc7 arg-7)) (if (null? sc7) (vector 1 arg-6) (let ((e-2 (car sc7))) (let ((e-3 (cdr sc7))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((4) (vector 1 (cons e-2 (vector 4 ))))(else (vector 1 arg-6)))))))))))))))))))))))))))))))))))))))))))) ((0) (lambda (eta-0) (vector 1 (cons e-22 (vector 0 )))))(else (let ((sc1 arg-7)) (if (null? sc1) (let ((sc2 arg-6)) (if (null? sc2) (let ((sc3 arg-7)) (if (null? sc3) (let ((sc4 arg-6)) (if (null? sc4) (lambda (clam-79) (let ((sc5 arg-7)) (if (null? sc5) (vector 1 arg-6) (let ((e-2 (car sc5))) (let ((e-3 (cdr sc5))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (vector 1 (cons e-2 (vector 4 ))))(else (vector 1 arg-6))))))))) (let ((e-6 (car sc4))) (let ((e-7 (cdr sc4))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (cons e-6 (vector 4 )))))(else (lambda (clam-78) (let ((sc5 arg-7)) (if (null? sc5) (vector 1 arg-6) (let ((e-2 (car sc5))) (let ((e-3 (cdr sc5))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (vector 1 (cons e-2 (vector 4 ))))(else (vector 1 arg-6)))))))))))))))) (let ((e-10 (car sc3))) (let ((e-11 (cdr sc3))) (let ((sc4 e-11)) (case (vector-ref sc4 0) ((3) (lambda (eta-0) (vector 1 (cons e-10 (vector 3 )))))(else (let ((sc4 arg-6)) (if (null? sc4) (lambda (clam-77) (let ((sc5 arg-7)) (if (null? sc5) (vector 1 arg-6) (let ((e-2 (car sc5))) (let ((e-3 (cdr sc5))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (vector 1 (cons e-2 (vector 4 ))))(else (vector 1 arg-6))))))))) (let ((e-6 (car sc4))) (let ((e-7 (cdr sc4))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (cons e-6 (vector 4 )))))(else (lambda (clam-76) (let ((sc5 arg-7)) (if (null? sc5) (vector 1 arg-6) (let ((e-2 (car sc5))) (let ((e-3 (cdr sc5))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (vector 1 (cons e-2 (vector 4 ))))(else (vector 1 arg-6))))))))))))))))))))))) (let ((e-14 (car sc2))) (let ((e-15 (cdr sc2))) (let ((sc3 e-15)) (case (vector-ref sc3 0) ((3) (lambda (eta-0) (vector 1 (cons e-14 (vector 3 )))))(else (let ((sc3 arg-7)) (if (null? sc3) (let ((sc4 arg-6)) (if (null? sc4) (lambda (clam-75) (let ((sc5 arg-7)) (if (null? sc5) (vector 1 arg-6) (let ((e-2 (car sc5))) (let ((e-3 (cdr sc5))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (vector 1 (cons e-2 (vector 4 ))))(else (vector 1 arg-6))))))))) (let ((e-6 (car sc4))) (let ((e-7 (cdr sc4))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (cons e-6 (vector 4 )))))(else (lambda (clam-74) (let ((sc5 arg-7)) (if (null? sc5) (vector 1 arg-6) (let ((e-2 (car sc5))) (let ((e-3 (cdr sc5))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (vector 1 (cons e-2 (vector 4 ))))(else (vector 1 arg-6)))))))))))))))) (let ((e-10 (car sc3))) (let ((e-11 (cdr sc3))) (let ((sc4 e-11)) (case (vector-ref sc4 0) ((3) (lambda (eta-0) (vector 1 (cons e-10 (vector 3 )))))(else (let ((sc4 arg-6)) (if (null? sc4) (lambda (clam-73) (let ((sc5 arg-7)) (if (null? sc5) (vector 1 arg-6) (let ((e-2 (car sc5))) (let ((e-3 (cdr sc5))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (vector 1 (cons e-2 (vector 4 ))))(else (vector 1 arg-6))))))))) (let ((e-6 (car sc4))) (let ((e-7 (cdr sc4))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (cons e-6 (vector 4 )))))(else (lambda (clam-72) (let ((sc5 arg-7)) (if (null? sc5) (vector 1 arg-6) (let ((e-2 (car sc5))) (let ((e-3 (cdr sc5))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (vector 1 (cons e-2 (vector 4 ))))(else (vector 1 arg-6)))))))))))))))))))))))))))))) (let ((e-18 (car sc1))) (let ((e-19 (cdr sc1))) (let ((sc2 e-19)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (vector 1 (cons e-18 (vector 0 )))))(else (let ((sc2 arg-6)) (if (null? sc2) (let ((sc3 arg-7)) (if (null? sc3) (let ((sc4 arg-6)) (if (null? sc4) (lambda (clam-71) (let ((sc5 arg-7)) (if (null? sc5) (vector 1 arg-6) (let ((e-2 (car sc5))) (let ((e-3 (cdr sc5))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (vector 1 (cons e-2 (vector 4 ))))(else (vector 1 arg-6))))))))) (let ((e-6 (car sc4))) (let ((e-7 (cdr sc4))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (cons e-6 (vector 4 )))))(else (lambda (clam-70) (let ((sc5 arg-7)) (if (null? sc5) (vector 1 arg-6) (let ((e-2 (car sc5))) (let ((e-3 (cdr sc5))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (vector 1 (cons e-2 (vector 4 ))))(else (vector 1 arg-6)))))))))))))))) (let ((e-10 (car sc3))) (let ((e-11 (cdr sc3))) (let ((sc4 e-11)) (case (vector-ref sc4 0) ((3) (lambda (eta-0) (vector 1 (cons e-10 (vector 3 )))))(else (let ((sc4 arg-6)) (if (null? sc4) (lambda (clam-69) (let ((sc5 arg-7)) (if (null? sc5) (vector 1 arg-6) (let ((e-2 (car sc5))) (let ((e-3 (cdr sc5))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (vector 1 (cons e-2 (vector 4 ))))(else (vector 1 arg-6))))))))) (let ((e-6 (car sc4))) (let ((e-7 (cdr sc4))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (cons e-6 (vector 4 )))))(else (lambda (clam-68) (let ((sc5 arg-7)) (if (null? sc5) (vector 1 arg-6) (let ((e-2 (car sc5))) (let ((e-3 (cdr sc5))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (vector 1 (cons e-2 (vector 4 ))))(else (vector 1 arg-6))))))))))))))))))))))) (let ((e-14 (car sc2))) (let ((e-15 (cdr sc2))) (let ((sc3 e-15)) (case (vector-ref sc3 0) ((3) (lambda (eta-0) (vector 1 (cons e-14 (vector 3 )))))(else (let ((sc3 arg-7)) (if (null? sc3) (let ((sc4 arg-6)) (if (null? sc4) (lambda (clam-67) (let ((sc5 arg-7)) (if (null? sc5) (vector 1 arg-6) (let ((e-2 (car sc5))) (let ((e-3 (cdr sc5))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (vector 1 (cons e-2 (vector 4 ))))(else (vector 1 arg-6))))))))) (let ((e-6 (car sc4))) (let ((e-7 (cdr sc4))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (cons e-6 (vector 4 )))))(else (lambda (clam-66) (let ((sc5 arg-7)) (if (null? sc5) (vector 1 arg-6) (let ((e-2 (car sc5))) (let ((e-3 (cdr sc5))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (vector 1 (cons e-2 (vector 4 ))))(else (vector 1 arg-6)))))))))))))))) (let ((e-10 (car sc3))) (let ((e-11 (cdr sc3))) (let ((sc4 e-11)) (case (vector-ref sc4 0) ((3) (lambda (eta-0) (vector 1 (cons e-10 (vector 3 )))))(else (let ((sc4 arg-6)) (if (null? sc4) (lambda (clam-65) (let ((sc5 arg-7)) (if (null? sc5) (vector 1 arg-6) (let ((e-2 (car sc5))) (let ((e-3 (cdr sc5))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (vector 1 (cons e-2 (vector 4 ))))(else (vector 1 arg-6))))))))) (let ((e-6 (car sc4))) (let ((e-7 (cdr sc4))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (cons e-6 (vector 4 )))))(else (lambda (clam-64) (let ((sc5 arg-7)) (if (null? sc5) (vector 1 arg-6) (let ((e-2 (car sc5))) (let ((e-3 (cdr sc5))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (vector 1 (cons e-2 (vector 4 ))))(else (vector 1 arg-6)))))))))))))))))))))))))))))))))))))))))))))) -(define CoreC-45LinearCheck-n--10262-5633-u--combine (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((sc0 arg-6)) (if (null? sc0) (vector 1 '()) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-3)) (if (null? sc1) (vector 1 e-2) (let ((act-24 (CoreC-45LinearCheck-n--10262-5633-u--combine arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3 ext-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (CoreC-45LinearCheck-n--10262-5632-u--combineUsages arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2 e-5 ext-0)))))))))))))) -(define CoreC-45LinearCheck-n--17119-8130-u--checkUsageOK (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 ext-0) (let ((sc0 (PreludeC-45Basics-C-38C-38 (AlgebraC-45Semiring-isLinear (cons (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-13) (lambda (arg-14) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-13 arg-14))) (lambda (arg-13) (lambda (arg-14) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-13 arg-14))))) arg-12) (lambda () (PreludeC-45Types-u--C-47C-61_Eq_Nat arg-11 (PreludeC-45Types-u--fromInteger_Num_Nat 1)))))) (cond ((equal? sc0 0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 13 arg-8 arg-11 arg-0) ext-0)) (else (vector 1 (vector 0 ))))))) -(define CoreC-45LinearCheck-n--10262-5627-u--checkUsageOK (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 ext-0) (let ((sc0 (PreludeC-45Basics-C-38C-38 (AlgebraC-45Semiring-isLinear (cons (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-11) (lambda (arg-12) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-11 arg-12))))) arg-10) (lambda () (PreludeC-45Basics-C-124C-124 (PreludeC-45Basics-C-38C-38 arg-9 (lambda () (PreludeC-45Types-u--C-62_Ord_Nat arg-7 (PreludeC-45Types-u--fromInteger_Num_Nat 1)))) (lambda () (PreludeC-45Basics-C-38C-38 (let ((sc1 arg-9)) (cond ((equal? sc1 0) 1) (else 0))) (lambda () (PreludeC-45Types-u--C-47C-61_Eq_Nat arg-7 (PreludeC-45Types-u--fromInteger_Num_Nat 1)))))))))) (cond ((equal? sc0 0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 13 arg-6 arg-7 arg-8) ext-0)) (else (vector 1 (vector 0 ))))))) -(define CoreC-45LinearCheck-n--10246-2890-u--checkUsageOK (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 ext-0) (let ((sc0 (PreludeC-45Basics-C-38C-38 (AlgebraC-45Semiring-isLinear (cons (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-12) (lambda (arg-13) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-12 arg-13))) (lambda (arg-12) (lambda (arg-13) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-12 arg-13))))) arg-11) (lambda () (PreludeC-45Types-u--C-47C-61_Eq_Nat arg-10 (PreludeC-45Types-u--fromInteger_Num_Nat 1)))))) (cond ((equal? sc0 0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 13 arg-4 arg-10 arg-1) ext-0)) (else (vector 1 (vector 0 ))))))) -(define CoreC-45LinearCheck-n--10262-5629-u--checkEnvUsage (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-7)) (if (null? sc0) (lambda (clam-0) (let ((sc1 arg-9)) (vector 1 (vector 0 )))) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 arg-9)) (let ((e-8 (car sc1))) (let ((e-9 (cdr sc1))) (let ((u--pos (CoreC-45LinearCheck-localPrf arg-6))) (let ((u--used_in (CoreC-45LinearCheck-count (CoreC-45TT-varIdx u--pos) arg-10))) (lambda (eta-0) (let ((act-24 ((CoreC-45LinearCheck-case--getArgUsageC-44checkEnvUsage-6512 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2 e-3 e-9 e-8 arg-6 arg-12 arg-11 arg-10 arg-8 u--pos u--used_in (AlgebraC-45Semiring-isLinear (cons (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-13) (lambda (arg-14) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-13 arg-14))) (lambda (arg-13) (lambda (arg-14) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-13 arg-14))))) (CoreC-45TT-multiplicity e-8))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((u--used (CoreC-45LinearCheck-case--getArgUsageC-44checkEnvUsage-6402 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2 e-3 e-9 e-8 arg-6 arg-12 arg-11 arg-10 arg-8 u--pos u--used_in e-5 (PreludeC-45Basics-C-38C-38 (AlgebraC-45Semiring-isLinear (cons (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-13) (lambda (arg-14) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-13 arg-14))) (lambda (arg-13) (lambda (arg-14) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-13 arg-14))))) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega (CoreC-45TT-multiplicity e-8) arg-8)) (lambda () (PreludeC-45Basics-C-38C-38 e-5 (lambda () (PreludeC-45Types-u--C-61C-61_Eq_Nat u--used_in (PreludeC-45Types-u--fromInteger_Num_Nat 0))))))))) (let ((act-25 (CoreC-45LinearCheck-n--10262-5627-u--checkUsageOK arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (CoreC-45TT-getLoc (CoreC-45TT-binderType e-8)) u--used e-2 (CoreC-45LinearCheck-n--10262-5628-u--isLocArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 u--pos arg-11) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega (CoreC-45TT-multiplicity e-8) arg-8) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else ((CoreC-45LinearCheck-n--10262-5629-u--checkEnvUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (PreludeC-45TypesC-45List-C-43C-43 arg-6 (cons e-2 '())) e-3 arg-8 e-9 arg-10 arg-11 arg-12) eta-0))))))))))))))))))))))) -(define CoreC-45LinearCheck-u--show_Show_ArgUsage (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) "any") ((1) "0") ((2) "1") ((3) "keep") (else "unknown"))))) -(define CoreC-45LinearCheck-u--show_Show_C-40UsageC-32C-36varsC-41 (lambda (arg-1) (PreludeC-45TypesC-45String-C-43C-43 "[" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45LinearCheck-n--8753-750-u--showAll arg-1 arg-1) "]")))) +(define TTImpC-45ElabC-45Ambiguity-mightMatchArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (if (null? arg-3) (if (null? arg-4) (vector 1 1) (vector 1 0)) (let ((e-2 (car arg-3))) (let ((e-3 (cdr arg-3))) (if (null? arg-4) (vector 1 0) (let ((e-6 (car arg-4))) (let ((e-7 (cdr arg-4))) (let ((act-24 (TTImpC-45ElabC-45Ambiguity-mightMatchArg arg-0 arg-1 arg-2 e-2 e-6 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (cond ((equal? e-5 1) (TTImpC-45ElabC-45Ambiguity-mightMatchArgs arg-0 arg-1 arg-2 e-3 e-7 ext-0)) (else (vector 1 0))))))))))))))) +(define TTImpC-45ElabC-45Ambiguity-mightMatchArg (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 arg-3) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Normalise-evalClosure arg-0 '() arg-2 arg-4) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 ((TTImpC-45ElabC-45Ambiguity-mightMatchD arg-0 arg-1 arg-2 e-5 e-6) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (cond ((equal? e-7 2) 0)(else 1))))))))))))))))) +(define TTImpC-45ElabC-45Ambiguity-mightMatch (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (case (vector-ref arg-4 0) ((0) (let ((e-59 (vector-ref arg-4 1))) (let ((e-61 (vector-ref arg-4 3))) (let ((e-62 (vector-ref arg-4 4))) (case (vector-ref e-61 0) ((2) (lambda (eta-0) (let ((act-24 (((e-62 arg-2) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 e-59 0))) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) ((TTImpC-45ElabC-45Ambiguity-mightMatchD arg-0 arg-1 arg-2 arg-3 e-5) eta-0)))))))(else (case (vector-ref arg-3 0) ((0) (lambda (clam-0) (case (vector-ref arg-4 0) ((0) (vector 1 1))(else (case (vector-ref arg-4 0) ((1) (vector 1 1)) ((9) (vector 1 1))(else (vector 1 2))))))) ((3) (let ((e-14 (vector-ref arg-3 2))) (let ((e-17 (vector-ref arg-3 5))) (lambda (clam-1) (case (vector-ref arg-4 0) ((3) (let ((e-43 (vector-ref arg-4 2))) (let ((e-46 (vector-ref arg-4 5))) (let ((sc3 (CoreC-45Name-u--C-61C-61_Eq_Name e-14 e-43))) (cond ((equal? sc3 1) (let ((act-24 (TTImpC-45ElabC-45Ambiguity-mightMatchArgs arg-0 arg-1 arg-2 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-17) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-46) clam-1))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (cond ((equal? e-5 1) (vector 1 0)) (else (vector 1 2)))))))) (else (vector 1 2)))))))(else (case (vector-ref arg-4 0) ((1) (vector 1 1)) ((9) (vector 1 1))(else (vector 1 2))))))))) ((2) (let ((e-21 (vector-ref arg-3 3))) (let ((e-23 (vector-ref arg-3 5))) (lambda (clam-2) (case (vector-ref arg-4 0) ((2) (let ((e-50 (vector-ref arg-4 3))) (let ((e-52 (vector-ref arg-4 5))) (let ((sc3 (PreludeC-45EqOrd-u--C-61C-61_Eq_Int e-21 e-50))) (cond ((equal? sc3 1) (let ((act-24 (TTImpC-45ElabC-45Ambiguity-mightMatchArgs arg-0 arg-1 arg-2 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-23) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-52) clam-2))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (cond ((equal? e-5 1) (vector 1 0)) (else (vector 1 2)))))))) (else (vector 1 2)))))))(else (case (vector-ref arg-4 0) ((1) (vector 1 1)) ((9) (vector 1 1))(else (vector 1 2))))))))) ((8) (let ((e-26 (vector-ref arg-3 2))) (lambda (clam-3) (case (vector-ref arg-4 0) ((8) (let ((e-55 (vector-ref arg-4 2))) (let ((sc3 (CoreC-45TT-u--C-61C-61_Eq_Constant e-26 e-55))) (cond ((equal? sc3 1) (vector 1 0)) (else (vector 1 2))))))(else (case (vector-ref arg-4 0) ((1) (vector 1 1)) ((9) (vector 1 1))(else (vector 1 2)))))))) ((10) (lambda (clam-4) (case (vector-ref arg-4 0) ((10) (vector 1 0))(else (case (vector-ref arg-4 0) ((1) (vector 1 1)) ((9) (vector 1 1))(else (vector 1 2))))))) ((1) (lambda (eta-0) (vector 1 1))) ((9) (lambda (eta-0) (vector 1 1)))(else (lambda (clam-8) (case (vector-ref arg-4 0) ((1) (vector 1 1)) ((9) (vector 1 1))(else (vector 1 2))))))))))))(else (case (vector-ref arg-3 0) ((0) (lambda (clam-5) (case (vector-ref arg-4 0) ((0) (vector 1 1))(else (case (vector-ref arg-4 0) ((1) (vector 1 1)) ((9) (vector 1 1))(else (vector 1 2))))))) ((3) (let ((e-14 (vector-ref arg-3 2))) (let ((e-17 (vector-ref arg-3 5))) (lambda (clam-6) (case (vector-ref arg-4 0) ((3) (let ((e-43 (vector-ref arg-4 2))) (let ((e-46 (vector-ref arg-4 5))) (let ((sc2 (CoreC-45Name-u--C-61C-61_Eq_Name e-14 e-43))) (cond ((equal? sc2 1) (let ((act-24 (TTImpC-45ElabC-45Ambiguity-mightMatchArgs arg-0 arg-1 arg-2 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-17) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-46) clam-6))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (cond ((equal? e-5 1) (vector 1 0)) (else (vector 1 2)))))))) (else (vector 1 2)))))))(else (case (vector-ref arg-4 0) ((1) (vector 1 1)) ((9) (vector 1 1))(else (vector 1 2))))))))) ((2) (let ((e-21 (vector-ref arg-3 3))) (let ((e-23 (vector-ref arg-3 5))) (lambda (clam-7) (case (vector-ref arg-4 0) ((2) (let ((e-50 (vector-ref arg-4 3))) (let ((e-52 (vector-ref arg-4 5))) (let ((sc2 (PreludeC-45EqOrd-u--C-61C-61_Eq_Int e-21 e-50))) (cond ((equal? sc2 1) (let ((act-24 (TTImpC-45ElabC-45Ambiguity-mightMatchArgs arg-0 arg-1 arg-2 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-23) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-52) clam-7))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (cond ((equal? e-5 1) (vector 1 0)) (else (vector 1 2)))))))) (else (vector 1 2)))))))(else (case (vector-ref arg-4 0) ((1) (vector 1 1)) ((9) (vector 1 1))(else (vector 1 2))))))))) ((8) (let ((e-26 (vector-ref arg-3 2))) (lambda (clam-8) (case (vector-ref arg-4 0) ((8) (let ((e-55 (vector-ref arg-4 2))) (let ((sc2 (CoreC-45TT-u--C-61C-61_Eq_Constant e-26 e-55))) (cond ((equal? sc2 1) (vector 1 0)) (else (vector 1 2))))))(else (case (vector-ref arg-4 0) ((1) (vector 1 1)) ((9) (vector 1 1))(else (vector 1 2)))))))) ((10) (lambda (clam-9) (case (vector-ref arg-4 0) ((10) (vector 1 0))(else (case (vector-ref arg-4 0) ((1) (vector 1 1)) ((9) (vector 1 1))(else (vector 1 2))))))) ((1) (lambda (eta-0) (vector 1 1))) ((9) (lambda (eta-0) (vector 1 1)))(else (lambda (clam-17) (case (vector-ref arg-4 0) ((1) (vector 1 1)) ((9) (vector 1 1))(else (vector 1 2)))))))))) +(define TTImpC-45ElabC-45Ambiguity-getName (lambda (arg-0) (case (vector-ref arg-0 0) ((0) (let ((e-1 (vector-ref arg-0 2))) (box e-1))) ((8) (let ((e-3 (vector-ref arg-0 2))) (TTImpC-45ElabC-45Ambiguity-getName e-3))) ((10) (let ((e-6 (vector-ref arg-0 2))) (TTImpC-45ElabC-45Ambiguity-getName e-6))) ((9) (let ((e-10 (vector-ref arg-0 2))) (TTImpC-45ElabC-45Ambiguity-getName e-10)))(else '())))) +(define TTImpC-45ElabC-45Ambiguity-filterCore (lambda (arg-1 arg-2 ext-0) (if (null? arg-2) (vector 1 '()) (let ((e-2 (car arg-2))) (let ((e-3 (cdr arg-2))) (let ((act-24 ((arg-1 e-2) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (TTImpC-45ElabC-45Ambiguity-filterCore arg-1 e-3 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref act-25 1))) (cond ((equal? e-5 1) (vector 1 (cons e-2 e-6))) (else (vector 1 e-6)))))))))))))))) +(define TTImpC-45ElabC-45Ambiguity-expandAmbigName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (case (vector-ref arg-3 0) ((1) (case (vector-ref arg-8 0) ((17) (let ((e-13 (vector-ref arg-8 1))) (let ((e-14 (vector-ref arg-8 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((sc3 (PreludeC-45Types-elem (cons (lambda (arg-10) (lambda (arg-11) (CoreC-45Name-u--C-61C-61_Eq_Name arg-10 arg-11))) (lambda (arg-10) (lambda (arg-11) (CoreC-45Name-u--C-47C-61_Eq_Name arg-10 arg-11)))) (vector 1 e-14) (let ((e-8 (vector-ref e-5 7))) e-8)))) (cond ((equal? sc3 1) (vector 1 (vector 19 e-13 0 arg-6))) (else (vector 1 arg-6))))))))))))(else (case (vector-ref arg-8 0) ((0) (let ((e-0 (vector-ref arg-8 1))) (let ((e-1 (vector-ref arg-8 2))) (lambda (clam-0) (let ((sc2 (DataC-45List-lookup (cons (lambda (arg-10) (lambda (arg-11) (CoreC-45Name-u--C-61C-61_Eq_Name arg-10 arg-11))) (lambda (arg-10) (lambda (arg-11) (CoreC-45Name-u--C-47C-61_Eq_Name arg-10 arg-11)))) e-1 arg-4))) (if (null? sc2) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((sc4 (CoreC-45Env-defined arg-0 e-1 arg-5))) (if (null? sc4) (let ((act-25 (let ((act-25 (unbox arg-2))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Context-getPrimNames arg-1 clam-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((u--prims (CoreC-45Options-primNamesToList e-7))) (let ((u--primApp (TTImpC-45ElabC-45Ambiguity-n--8017-5565-u--isPrimName arg-0 e-1 e-0 arg-9 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 u--prims e-1))) (TTImpC-45ElabC-45Ambiguity-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32expandAmbigName-6606 arg-0 e-1 e-0 arg-9 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-6 e-7 u--prims u--primApp (TTImpC-45ElabC-45Ambiguity-n--8017-5561-u--lookupUN arg-0 e-1 e-0 arg-9 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (CoreC-45Name-userNameRoot e-1) (let ((e-14 (vector-ref e-6 13))) e-14)) clam-0))))))))))) (let ((sc5 (let ((sc6 (DataC-45List-isNil arg-7))) (cond ((equal? sc6 1) 1) (else (TTImpC-45ElabC-45Ambiguity-n--8017-5569-u--notLHS arg-0 e-1 e-0 arg-9 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-3)))))) (cond ((equal? sc5 1) (let ((act-25 (CoreC-45ContextC-45Log-log arg-1 "elab.ambiguous" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Defined in env " (CoreC-45Name-u--show_Show_Name e-1))) clam-0))) (case (vector-ref act-25 0) ((0) (let ((e-3 (vector-ref act-25 1))) (vector 0 e-3))) (else (vector 1 arg-6))))) (else (vector 1 (vector 19 e-0 1 arg-6))))))))))) (let ((act-24 (CoreC-45ContextC-45Log-log arg-1 "elab.ambiguous" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Nested " (CoreC-45Name-u--show_Show_Name e-1))) clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (vector 1 arg-6)))))))))) ((8) (let ((e-2 (vector-ref arg-8 1))) (let ((e-3 (vector-ref arg-8 2))) (let ((e-4 (vector-ref arg-8 3))) (TTImpC-45ElabC-45Ambiguity-expandAmbigName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (cons (cons e-2 (cons '() e-4)) arg-7) e-3 arg-9))))) ((10) (let ((e-5 (vector-ref arg-8 1))) (let ((e-6 (vector-ref arg-8 2))) (let ((e-7 (vector-ref arg-8 3))) (let ((e-8 (vector-ref arg-8 4))) (TTImpC-45ElabC-45Ambiguity-expandAmbigName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (cons (cons e-5 (cons (box (box e-7)) e-8)) arg-7) e-6 arg-9)))))) ((9) (let ((e-9 (vector-ref arg-8 1))) (let ((e-10 (vector-ref arg-8 2))) (let ((e-11 (vector-ref arg-8 3))) (TTImpC-45ElabC-45Ambiguity-expandAmbigName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (cons (cons e-9 (cons (box '()) e-11)) arg-7) e-10 arg-9)))))(else (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-log arg-1 "elab.ambiguous" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "No ambiguity " (TTImpC-45TTImp-u--show_Show_RawImp arg-6))) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (vector 1 arg-6))))))))))(else (case (vector-ref arg-8 0) ((0) (let ((e-0 (vector-ref arg-8 1))) (let ((e-1 (vector-ref arg-8 2))) (lambda (clam-1) (let ((sc1 (DataC-45List-lookup (cons (lambda (arg-10) (lambda (arg-11) (CoreC-45Name-u--C-61C-61_Eq_Name arg-10 arg-11))) (lambda (arg-10) (lambda (arg-11) (CoreC-45Name-u--C-47C-61_Eq_Name arg-10 arg-11)))) e-1 arg-4))) (if (null? sc1) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((sc3 (CoreC-45Env-defined arg-0 e-1 arg-5))) (if (null? sc3) (let ((act-25 (let ((act-25 (unbox arg-2))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Context-getPrimNames arg-1 clam-1))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((u--prims (CoreC-45Options-primNamesToList e-7))) (let ((u--primApp (TTImpC-45ElabC-45Ambiguity-n--8017-5565-u--isPrimName arg-0 e-1 e-0 arg-9 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 u--prims e-1))) (TTImpC-45ElabC-45Ambiguity-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32expandAmbigName-6606 arg-0 e-1 e-0 arg-9 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-6 e-7 u--prims u--primApp (TTImpC-45ElabC-45Ambiguity-n--8017-5561-u--lookupUN arg-0 e-1 e-0 arg-9 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (CoreC-45Name-userNameRoot e-1) (let ((e-14 (vector-ref e-6 13))) e-14)) clam-1))))))))))) (let ((sc4 (let ((sc5 (DataC-45List-isNil arg-7))) (cond ((equal? sc5 1) 1) (else (TTImpC-45ElabC-45Ambiguity-n--8017-5569-u--notLHS arg-0 e-1 e-0 arg-9 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-3)))))) (cond ((equal? sc4 1) (let ((act-25 (CoreC-45ContextC-45Log-log arg-1 "elab.ambiguous" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Defined in env " (CoreC-45Name-u--show_Show_Name e-1))) clam-1))) (case (vector-ref act-25 0) ((0) (let ((e-3 (vector-ref act-25 1))) (vector 0 e-3))) (else (vector 1 arg-6))))) (else (vector 1 (vector 19 e-0 1 arg-6))))))))))) (let ((act-24 (CoreC-45ContextC-45Log-log arg-1 "elab.ambiguous" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Nested " (CoreC-45Name-u--show_Show_Name e-1))) clam-1))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (vector 1 arg-6)))))))))) ((8) (let ((e-2 (vector-ref arg-8 1))) (let ((e-3 (vector-ref arg-8 2))) (let ((e-4 (vector-ref arg-8 3))) (TTImpC-45ElabC-45Ambiguity-expandAmbigName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (cons (cons e-2 (cons '() e-4)) arg-7) e-3 arg-9))))) ((10) (let ((e-5 (vector-ref arg-8 1))) (let ((e-6 (vector-ref arg-8 2))) (let ((e-7 (vector-ref arg-8 3))) (let ((e-8 (vector-ref arg-8 4))) (TTImpC-45ElabC-45Ambiguity-expandAmbigName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (cons (cons e-5 (cons (box (box e-7)) e-8)) arg-7) e-6 arg-9)))))) ((9) (let ((e-9 (vector-ref arg-8 1))) (let ((e-10 (vector-ref arg-8 2))) (let ((e-11 (vector-ref arg-8 3))) (TTImpC-45ElabC-45Ambiguity-expandAmbigName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (cons (cons e-9 (cons (box '()) e-11)) arg-7) e-10 arg-9)))))(else (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-log arg-1 "elab.ambiguous" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "No ambiguity " (TTImpC-45TTImp-u--show_Show_RawImp arg-6))) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (vector 1 arg-6))))))))))) +(define TTImpC-45ElabC-45Ambiguity-couldBeName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (CoreC-45Context-lookupTyExact arg-4 (let ((e-0 (vector-ref arg-2 0))) e-0) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (if (null? e-5) (vector 1 1) (let ((e-2 (unbox e-5))) (let ((act-25 ((CoreC-45Normalise-nf arg-0 '() arg-2 '() e-2) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-3 (vector-ref act-25 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref act-25 1))) ((TTImpC-45ElabC-45Ambiguity-mightMatchD arg-0 arg-1 arg-2 arg-3 e-6) ext-0))))))))))))) +(define TTImpC-45ElabC-45Ambiguity-couldBeFn (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (case (vector-ref arg-4 0) ((0) (let ((e-1 (vector-ref arg-4 2))) (TTImpC-45ElabC-45Ambiguity-couldBeName arg-0 arg-1 arg-2 arg-3 e-1 ext-0))) ((13) (vector 1 0))(else (vector 1 1))))) +(define TTImpC-45ElabC-45Ambiguity-couldBe (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (case (vector-ref arg-3 0) ((3) (let ((act-24 (TTImpC-45ElabC-45Ambiguity-couldBeFn arg-0 arg-1 arg-2 arg-3 (TTImpC-45TTImp-getFn arg-4) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (cond ((equal? e-6 0) (vector 1 (box (cons 1 arg-4)))) ((equal? e-6 1) (vector 1 (box (cons 0 arg-4)))) (else (vector 1 '())))))))) ((8) (let ((act-24 (TTImpC-45ElabC-45Ambiguity-couldBeFn arg-0 arg-1 arg-2 arg-3 (TTImpC-45TTImp-getFn arg-4) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (cond ((equal? e-5 0) (vector 1 (box (cons 1 arg-4)))) ((equal? e-5 1) (vector 1 (box (cons 0 arg-4)))) (else (vector 1 '())))))))) ((10) (let ((act-24 (TTImpC-45ElabC-45Ambiguity-couldBeFn arg-0 arg-1 arg-2 arg-3 (TTImpC-45TTImp-getFn arg-4) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (cond ((equal? e-5 0) (vector 1 (box (cons 1 arg-4)))) ((equal? e-5 1) (vector 1 (box (cons 0 arg-4)))) (else (vector 1 '()))))))))(else (vector 1 (box (cons 0 arg-4))))))) +(define TTImpC-45ElabC-45Ambiguity-checkAmbigDepth (lambda (arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (CoreC-45Context-getAmbigLimit arg-1 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((u--ambs (let ((e-6 (vector-ref arg-4 5))) e-6))) (let ((sc1 (PreludeC-45Types-u--C-62_Ord_Nat (PreludeC-45TypesC-45List-length u--ambs) e-5))) (cond ((equal? sc1 1) (let ((act-25 (let ((act-25 (unbox arg-2))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 20 arg-3 (vector 9 (let ((e-2 (vector-ref e-6 1))) e-2)) u--ambs) ext-0)))))) (else (vector 1 0))))))))))) +(define TTImpC-45ElabC-45Ambiguity-checkAlternative (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 ext-0) (case (vector-ref arg-10 0) ((2) (let ((e-0 (vector-ref arg-10 1))) (let ((act-24 (TTImpC-45ElabC-45Ambiguity-checkAmbigDepth arg-1 arg-4 arg-9 arg-6 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 ((PreludeC-45Types-maybe (lambda () (lambda (eta-0) (let ((act-25 (CoreC-45UnifyState-genName arg-1 arg-3 "altTy" eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45ElabC-45Check-metaVar arg-0 arg-1 arg-3 arg-9 (AlgebraC-45Semiring-erased (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))) arg-8 e-6 (vector 11 arg-9) eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (CoreC-45Normalise-gnf arg-0 arg-8 e-7)))))))))))) (lambda () (lambda (eta-0) (lambda (eta-1) (vector 1 eta-0)))) arg-12) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((u--solvemode (let ((e-8 (vector-ref arg-6 0))) (case (vector-ref e-8 0) ((1) (CoreC-45Unify-inLHS))(else (CoreC-45Unify-inTerm)))))) (TTImpC-45ElabC-45Delayed-delayOnFailure arg-0 arg-1 arg-2 arg-3 arg-4 arg-9 arg-5 arg-8 e-6 (lambda (eta-0) (TTImpC-45ElabC-45Delayed-ambiguous eta-0)) (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (u--delayed) (lambda (eta-0) (let ((act-26 (CoreC-45Unify-solveConstraints arg-1 arg-3 u--solvemode 0 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((act-27 (let ((act-27 (unbox arg-1))) (vector 1 act-27)))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((act-28 ((CoreC-45Normalise-getTerm e-6) eta-0))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-28 1))) (let ((u--expC-39 (cond ((equal? u--delayed 1) (CoreC-45Normalise-gnf arg-0 arg-8 e-9)) (else e-6)))) (let ((act-29 (CoreC-45Normalise-logGlueNF arg-0 arg-1 "elab.ambiguous" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45Types-fastConcat (cons "Ambiguous elaboration at " (cons (CoreC-45FC-u--show_Show_FC arg-9) (cons ":\u000a" (cons (DataC-45String-fastUnlines (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (TTImpC-45TTImp-u--show_Show_RawImp eta-1)) arg-11)) (cons "\u000aWith default. Target type " '()))))))) arg-8 u--expC-39 eta-0))) (case (vector-ref act-29 0) ((0) (let ((e-2 (vector-ref act-29 1))) (vector 0 e-2))) (else (let ((act-30 (let ((act-30 ((CoreC-45Normalise-getNF arg-1 u--expC-39) eta-0))) (case (vector-ref act-30 0) ((0) (let ((e-2 (vector-ref act-30 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref act-30 1))) (TTImpC-45ElabC-45Ambiguity-pruneByType arg-0 arg-1 arg-3 arg-8 e-11 arg-11 eta-0))))))) (case (vector-ref act-30 0) ((0) (let ((e-2 (vector-ref act-30 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref act-30 1))) (let ((act-31 (CoreC-45ContextC-45Log-log arg-1 "elab.prune" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Pruned " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Nat (PreludeC-45Types-prim__integerToNat (- (PreludeC-45TypesC-45List-length arg-11) (PreludeC-45TypesC-45List-length e-11)))) (PreludeC-45TypesC-45String-C-43C-43 " alts." (PreludeC-45TypesC-45String-C-43C-43 " Kept:\u000a" (DataC-45String-fastUnlines (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (TTImpC-45TTImp-u--show_Show_RawImp eta-1)) e-11))))))) eta-0))) (case (vector-ref act-31 0) ((0) (let ((e-2 (vector-ref act-31 1))) (vector 0 e-2))) (else (cond ((equal? u--delayed 1) (TTImpC-45ElabC-45Check-try arg-0 arg-1 arg-2 arg-3 arg-4 (TTImpC-45ElabC-45Check-exactlyOneC-39 arg-0 arg-1 arg-2 arg-3 arg-4 0 arg-9 arg-8 (PreludeC-45Types-u--map_Functor_List (lambda (u--t) (cons (TTImpC-45ElabC-45Ambiguity-getName u--t) (lambda (eta-1) (TTImpC-45ElabC-45Check-checkImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ((TTImpC-45ElabC-45Ambiguity-addAmbig e-11 (TTImpC-45ElabC-45Ambiguity-getName u--t)) arg-6) arg-7 arg-8 u--t (box u--expC-39) eta-1)))) e-11)) (lambda (eta-1) (let ((act-32 (CoreC-45ContextC-45Log-log arg-1 "elab.ambiguous" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "All failed, running default") eta-1))) (case (vector-ref act-32 0) ((0) (let ((e-2 (vector-ref act-32 1))) (vector 0 e-2))) (else (TTImpC-45ElabC-45Check-checkImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ((TTImpC-45ElabC-45Ambiguity-addAmbig e-11 (TTImpC-45ElabC-45Ambiguity-getName e-0)) arg-6) arg-7 arg-8 e-0 (box u--expC-39) eta-1))))) eta-0)) (else ((TTImpC-45ElabC-45Check-exactlyOneC-39 arg-0 arg-1 arg-2 arg-3 arg-4 1 arg-9 arg-8 (PreludeC-45Types-u--map_Functor_List (lambda (u--t) (cons (TTImpC-45ElabC-45Ambiguity-getName u--t) (lambda (eta-1) (TTImpC-45ElabC-45Check-checkImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ((TTImpC-45ElabC-45Ambiguity-addAmbig e-11 (TTImpC-45ElabC-45Ambiguity-getName u--t)) arg-6) arg-7 arg-8 u--t (box u--expC-39) eta-1)))) e-11)) eta-0)))))))))))))))))))))))))) ext-0)))))))))))(else (let ((act-24 (TTImpC-45ElabC-45Ambiguity-checkAmbigDepth arg-1 arg-4 arg-9 arg-6 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 ((PreludeC-45Types-maybe (lambda () (lambda (eta-0) (vector 1 '()))) (lambda () (lambda (u--exp) (lambda (eta-0) (let ((act-25 ((CoreC-45Normalise-getNF arg-1 u--exp) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (TTImpC-45ElabC-45Ambiguity-pruneByType arg-0 arg-1 arg-3 arg-8 e-6 arg-11 eta-0)))))))) arg-12) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (if (null? e-6) (let ((act-26 ((PreludeC-45Types-maybe (lambda () (lambda (eta-0) (let ((act-26 (CoreC-45UnifyState-genName arg-1 arg-3 "altTy" eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (TTImpC-45ElabC-45Check-metaVar arg-0 arg-1 arg-3 arg-9 (AlgebraC-45Semiring-erased (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))) arg-8 e-7 (vector 11 arg-9) eta-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (vector 1 (CoreC-45Normalise-gnf arg-0 arg-8 e-8)))))))))))) (lambda () (lambda (eta-0) (lambda (eta-1) (vector 1 eta-0)))) arg-12) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((u--solvemode (let ((e-0 (vector-ref arg-6 0))) (case (vector-ref e-0 0) ((1) (CoreC-45Unify-inLHS))(else (CoreC-45Unify-inTerm)))))) (TTImpC-45ElabC-45Delayed-delayOnFailure arg-0 arg-1 arg-2 arg-3 arg-4 arg-9 arg-5 arg-8 e-7 (lambda (eta-0) (TTImpC-45ElabC-45Delayed-ambiguous eta-0)) (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (u--delayed) (lambda (eta-0) (let ((act-27 (let ((act-27 (unbox arg-1))) (vector 1 act-27)))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((act-28 ((CoreC-45Normalise-getTerm e-7) eta-0))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-28 1))) (let ((u--expC-39 (cond ((equal? u--delayed 1) (CoreC-45Normalise-gnf arg-0 arg-8 e-9)) (else e-7)))) (let ((act-29 (let ((act-29 ((CoreC-45Normalise-getNF arg-1 u--expC-39) eta-0))) (case (vector-ref act-29 0) ((0) (let ((e-2 (vector-ref act-29 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref act-29 1))) (TTImpC-45ElabC-45Ambiguity-pruneByType arg-0 arg-1 arg-3 arg-8 e-10 arg-11 eta-0))))))) (case (vector-ref act-29 0) ((0) (let ((e-2 (vector-ref act-29 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref act-29 1))) (let ((act-30 (CoreC-45Normalise-logGlueNF arg-0 arg-1 "elab.ambiguous" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45Types-fastConcat (cons "Ambiguous elaboration" (cons " (kept " (cons (PreludeC-45Show-u--show_Show_Nat (PreludeC-45TypesC-45List-length e-10)) (cons " out of " (cons (PreludeC-45Show-u--show_Show_Nat (PreludeC-45TypesC-45List-length arg-11)) (cons " candidates)" (cons " (" (cons (cond ((equal? u--delayed 1) "") (else "not ")) (cons "delayed)" (cons " at " (cons (CoreC-45FC-u--show_Show_FC arg-9) (cons ":\u000a" (cons (DataC-45String-fastUnlines (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (TTImpC-45TTImp-u--show_Show_RawImp eta-1)) e-10)) (cons "\u000aTarget type " '())))))))))))))))) arg-8 u--expC-39 eta-0))) (case (vector-ref act-30 0) ((0) (let ((e-2 (vector-ref act-30 1))) (vector 0 e-2))) (else (let ((u--tryall (lambda (clam-1) (case (vector-ref arg-10 0) ((0) (TTImpC-45ElabC-45Check-anyOne arg-0 arg-1 arg-2 arg-3 arg-4 arg-9 clam-1))(else (TTImpC-45ElabC-45Check-exactlyOneC-39 arg-0 arg-1 arg-2 arg-3 arg-4 (cond ((equal? u--delayed 1) 0) (else 1)) arg-9 arg-8 clam-1)))))) ((u--tryall (PreludeC-45Types-u--map_Functor_List (lambda (u--t) (cons (TTImpC-45ElabC-45Ambiguity-getName u--t) (lambda (eta-1) (let ((act-31 (TTImpC-45ElabC-45Check-checkImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ((TTImpC-45ElabC-45Ambiguity-addAmbig e-10 (TTImpC-45ElabC-45Ambiguity-getName u--t)) arg-6) arg-7 arg-8 u--t (box u--expC-39) eta-1))) (case (vector-ref act-31 0) ((0) (let ((e-2 (vector-ref act-31 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref act-31 1))) (let ((act-32 (CoreC-45Unify-solveConstraints arg-1 arg-3 u--solvemode 0 eta-1))) (case (vector-ref act-32 0) ((0) (let ((e-2 (vector-ref act-32 1))) (vector 0 e-2))) (else (let ((act-33 (CoreC-45Unify-solveConstraints arg-1 arg-3 u--solvemode 0 eta-1))) (case (vector-ref act-33 0) ((0) (let ((e-2 (vector-ref act-33 1))) (vector 0 e-2))) (else (let ((act-34 (CoreC-45ContextC-45Log-log arg-1 "elab.ambiguous" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45Name-u--show_Show_Name u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Name-u--showPrec_Show_Name u--d u--x)))) (TTImpC-45ElabC-45Ambiguity-getName u--t)) " success")) eta-1))) (case (vector-ref act-34 0) ((0) (let ((e-2 (vector-ref act-34 1))) (vector 0 e-2))) (else (vector 1 e-12))))))))))))))))) e-10)) eta-0))))))))))))))))))) ext-0)))))) (let ((e-1 (car e-6))) (let ((e-2 (cdr e-6))) (if (null? e-2) (TTImpC-45ElabC-45Check-checkImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-1 arg-12 ext-0) (let ((act-26 ((PreludeC-45Types-maybe (lambda () (lambda (eta-0) (let ((act-26 (CoreC-45UnifyState-genName arg-1 arg-3 "altTy" eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-3 (vector-ref act-26 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (TTImpC-45ElabC-45Check-metaVar arg-0 arg-1 arg-3 arg-9 (AlgebraC-45Semiring-erased (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))) arg-8 e-7 (vector 11 arg-9) eta-0))) (case (vector-ref act-27 0) ((0) (let ((e-3 (vector-ref act-27 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref act-27 1))) (vector 1 (CoreC-45Normalise-gnf arg-0 arg-8 e-8)))))))))))) (lambda () (lambda (eta-0) (lambda (eta-1) (vector 1 eta-0)))) arg-12) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-3 (vector-ref act-26 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref act-26 1))) (let ((u--solvemode (let ((e-0 (vector-ref arg-6 0))) (case (vector-ref e-0 0) ((1) (CoreC-45Unify-inLHS))(else (CoreC-45Unify-inTerm)))))) (TTImpC-45ElabC-45Delayed-delayOnFailure arg-0 arg-1 arg-2 arg-3 arg-4 arg-9 arg-5 arg-8 e-7 (lambda (eta-0) (TTImpC-45ElabC-45Delayed-ambiguous eta-0)) (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (u--delayed) (lambda (eta-0) (let ((act-27 (let ((act-27 (unbox arg-1))) (vector 1 act-27)))) (case (vector-ref act-27 0) ((0) (let ((e-3 (vector-ref act-27 1))) (vector 0 e-3))) (else (let ((act-28 ((CoreC-45Normalise-getTerm e-7) eta-0))) (case (vector-ref act-28 0) ((0) (let ((e-3 (vector-ref act-28 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref act-28 1))) (let ((u--expC-39 (cond ((equal? u--delayed 1) (CoreC-45Normalise-gnf arg-0 arg-8 e-9)) (else e-7)))) (let ((act-29 (let ((act-29 ((CoreC-45Normalise-getNF arg-1 u--expC-39) eta-0))) (case (vector-ref act-29 0) ((0) (let ((e-3 (vector-ref act-29 1))) (vector 0 e-3))) (else (let ((e-10 (vector-ref act-29 1))) (TTImpC-45ElabC-45Ambiguity-pruneByType arg-0 arg-1 arg-3 arg-8 e-10 arg-11 eta-0))))))) (case (vector-ref act-29 0) ((0) (let ((e-3 (vector-ref act-29 1))) (vector 0 e-3))) (else (let ((e-10 (vector-ref act-29 1))) (let ((act-30 (CoreC-45Normalise-logGlueNF arg-0 arg-1 "elab.ambiguous" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45Types-fastConcat (cons "Ambiguous elaboration" (cons " (kept " (cons (PreludeC-45Show-u--show_Show_Nat (PreludeC-45TypesC-45List-length e-10)) (cons " out of " (cons (PreludeC-45Show-u--show_Show_Nat (PreludeC-45TypesC-45List-length arg-11)) (cons " candidates)" (cons " (" (cons (cond ((equal? u--delayed 1) "") (else "not ")) (cons "delayed)" (cons " at " (cons (CoreC-45FC-u--show_Show_FC arg-9) (cons ":\u000a" (cons (DataC-45String-fastUnlines (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (TTImpC-45TTImp-u--show_Show_RawImp eta-1)) e-10)) (cons "\u000aTarget type " '())))))))))))))))) arg-8 u--expC-39 eta-0))) (case (vector-ref act-30 0) ((0) (let ((e-3 (vector-ref act-30 1))) (vector 0 e-3))) (else (let ((u--tryall (lambda (clam-0) (case (vector-ref arg-10 0) ((0) (TTImpC-45ElabC-45Check-anyOne arg-0 arg-1 arg-2 arg-3 arg-4 arg-9 clam-0))(else (TTImpC-45ElabC-45Check-exactlyOneC-39 arg-0 arg-1 arg-2 arg-3 arg-4 (cond ((equal? u--delayed 1) 0) (else 1)) arg-9 arg-8 clam-0)))))) ((u--tryall (PreludeC-45Types-u--map_Functor_List (lambda (u--t) (cons (TTImpC-45ElabC-45Ambiguity-getName u--t) (lambda (eta-1) (let ((act-31 (TTImpC-45ElabC-45Check-checkImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ((TTImpC-45ElabC-45Ambiguity-addAmbig e-10 (TTImpC-45ElabC-45Ambiguity-getName u--t)) arg-6) arg-7 arg-8 u--t (box u--expC-39) eta-1))) (case (vector-ref act-31 0) ((0) (let ((e-3 (vector-ref act-31 1))) (vector 0 e-3))) (else (let ((e-12 (vector-ref act-31 1))) (let ((act-32 (CoreC-45Unify-solveConstraints arg-1 arg-3 u--solvemode 0 eta-1))) (case (vector-ref act-32 0) ((0) (let ((e-3 (vector-ref act-32 1))) (vector 0 e-3))) (else (let ((act-33 (CoreC-45Unify-solveConstraints arg-1 arg-3 u--solvemode 0 eta-1))) (case (vector-ref act-33 0) ((0) (let ((e-3 (vector-ref act-33 1))) (vector 0 e-3))) (else (let ((act-34 (CoreC-45ContextC-45Log-log arg-1 "elab.ambiguous" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45Name-u--show_Show_Name u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Name-u--showPrec_Show_Name u--d u--x)))) (TTImpC-45ElabC-45Ambiguity-getName u--t)) " success")) eta-1))) (case (vector-ref act-34 0) ((0) (let ((e-3 (vector-ref act-34 1))) (vector 0 e-3))) (else (vector 1 e-12))))))))))))))))) e-10)) eta-0))))))))))))))))))) ext-0))))))))))))))))))))) +(define TTImpC-45ElabC-45Ambiguity-addAmbig (lambda (arg-1 arg-2) (if (null? arg-2) (lambda (eta-0) eta-0) (lambda (clam-0) (if (null? arg-1) clam-0 (let ((e-5 (cdr arg-1))) (if (null? e-5) clam-0 (let ((e-1 (unbox arg-2))) (let ((e-0 (vector-ref clam-0 0))) (let ((e-8 (vector-ref clam-0 1))) (let ((e-2 (vector-ref clam-0 2))) (let ((e-3 (vector-ref clam-0 3))) (let ((e-7 (vector-ref clam-0 4))) (let ((e-6 (vector-ref clam-0 5))) (vector e-0 e-8 e-2 e-3 e-7 (cons e-1 e-6)))))))))))))))) +(define CoreC-45LinearCheck-case--lcheckDef-13478 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 ext-0) (if (null? arg-8) (CoreC-45Context-undefinedName arg-6 arg-4 arg-1 ext-0) (let ((e-1 (unbox arg-8))) (let ((act-24 ((CoreC-45Context-lookupCtxtExact (vector 9 e-1) (let ((e-0 (vector-ref arg-7 0))) e-0)) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (if (null? e-5) (CoreC-45Context-undefinedName arg-6 arg-4 arg-1 ext-0) (let ((e-2 (unbox e-5))) (let ((act-25 (CoreC-45LinearCheck-n--7745-13238-u--rigSafe arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (let ((e-7 (vector-ref e-2 7))) e-7) arg-3 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-3 (vector-ref act-25 1))) (vector 0 e-3))) (else (let ((sc4 (let ((e-16 (vector-ref e-2 16))) e-16))) (cond ((equal? sc4 1) (vector 1 (let ((e-23 (vector-ref e-2 2))) e-23))) (else (let ((e-17 (vector-ref e-2 17))) (case (vector-ref e-17 0) ((1) (let ((e-25 (vector-ref e-17 5))) (let ((act-26 (CoreC-45LinearCheck-getArgUsage arg-6 arg-5 (CoreC-45TT-getLoc (let ((e-48 (vector-ref e-2 2))) e-48)) arg-3 (let ((e-48 (vector-ref e-2 2))) e-48) e-25 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-30 (vector-ref act-26 1))) (vector 0 e-30))) (else (let ((e-30 (vector-ref act-26 1))) (let ((act-27 (CoreC-45ContextC-45Log-log arg-6 "quantity" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Overall arg usage " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45LinearCheck-u--show_Show_ArgUsage u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45LinearCheck-u--showPrec_Show_ArgUsage u--d u--x)))) e-30))) ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-31 (vector-ref act-27 1))) (vector 0 e-31))) (else (let ((u--tyC-39 (CoreC-45LinearCheck-n--7745-13237-u--updateUsage arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-30 (let ((e-50 (vector-ref e-2 2))) e-50)))) (let ((act-28 (CoreC-45Context-updateTy arg-6 e-1 u--tyC-39 ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-32 (vector-ref act-28 1))) (vector 0 e-32))) (else (let ((act-29 (CoreC-45Context-setLinearCheck arg-6 e-1 1 ext-0))) (case (vector-ref act-29 0) ((0) (let ((e-33 (vector-ref act-29 1))) (vector 0 e-33))) (else (let ((act-30 (CoreC-45ContextC-45Log-logTerm '() arg-6 "quantity" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "New type of " (CoreC-45Name-u--show_Show_Name (let ((e-53 (vector-ref e-2 1))) e-53)))) u--tyC-39 ext-0))) (case (vector-ref act-30 0) ((0) (let ((e-34 (vector-ref act-30 1))) (vector 0 e-34))) (else (let ((act-31 (CoreC-45ContextC-45Log-logTerm '() arg-6 "quantity" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Updated from " (CoreC-45Name-u--show_Show_Name (let ((e-54 (vector-ref e-2 1))) e-54)))) (let ((e-53 (vector-ref e-2 2))) e-53) ext-0))) (case (vector-ref act-31 0) ((0) (let ((e-35 (vector-ref act-31 1))) (vector 0 e-35))) (else (vector 1 u--tyC-39)))))))))))))))))))))))(else (vector 1 (let ((e-43 (vector-ref e-2 2))) e-43))))))))))))))))))))) +(define CoreC-45LinearCheck-case--updateHoleUsage-8103 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((e-2 (car arg-7))) (let ((e-3 (cdr arg-7))) (case (vector-ref e-2 0) ((1) (lambda (eta-0) (CoreC-45LinearCheck-updateHoleUsageArgs arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 e-3 eta-0)))(else (if (null? e-3) (lambda (eta-0) (vector 1 0)) (lambda (eta-0) (CoreC-45LinearCheck-updateHoleUsageArgs arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 (cons e-2 e-3) eta-0))))))))) +(define CoreC-45LinearCheck-n--7707-8274-u--used (lambda (arg-0 arg-2 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 (AlgebraC-45Semiring-isLinear (cons (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-3) (lambda (arg-12) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-3 arg-12))) (lambda (arg-12) (lambda (arg-13) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-12 arg-13))))) arg-11))) (cond ((equal? sc0 1) (cons arg-0 '())) (else '()))))) +(define CoreC-45LinearCheck-n--7745-13237-u--updateUsage (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9) (if (null? arg-8) arg-9 (let ((e-1 (car arg-8))) (let ((e-2 (cdr arg-8))) (case (vector-ref arg-9 0) ((3) (let ((e-4 (vector-ref arg-9 1))) (let ((e-5 (vector-ref arg-9 2))) (let ((e-6 (vector-ref arg-9 3))) (let ((e-7 (vector-ref arg-9 4))) (case (vector-ref e-6 0) ((2) (let ((e-9 (vector-ref e-6 1))) (let ((e-10 (vector-ref e-6 2))) (let ((e-11 (vector-ref e-6 3))) (let ((e-12 (vector-ref e-6 4))) (let ((u--scC-39 (CoreC-45LinearCheck-n--7745-13237-u--updateUsage arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-2 e-7))) (let ((u--cC-39 (cond ((equal? e-1 1) (AlgebraC-45Semiring-erased (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)))) ((equal? e-1 2) (AlgebraC-45Semiring-linear (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)))) ((equal? e-1 4) e-10) ((equal? e-1 3) e-10) (else e-10)))) (vector 3 e-4 e-5 (vector 2 e-9 u--cC-39 e-11 e-12) u--scC-39))))))))(else arg-9)))))))(else arg-9))))))) +(define CoreC-45LinearCheck-n--7707-8501-u--unusedHoleArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-12 arg-13) (if (null? arg-12) (case (vector-ref arg-13 0) ((3) (let ((e-1 (vector-ref arg-13 1))) (let ((e-2 (vector-ref arg-13 2))) (let ((e-3 (vector-ref arg-13 3))) (let ((e-4 (vector-ref arg-13 4))) (case (vector-ref e-3 0) ((1) (let ((e-6 (vector-ref e-3 1))) (let ((e-7 (vector-ref e-3 2))) (let ((e-8 (vector-ref e-3 3))) (let ((e-9 (vector-ref e-3 4))) (vector 3 e-1 e-2 (vector 1 e-6 e-7 e-8 e-9) (CoreC-45LinearCheck-n--7707-8501-u--unusedHoleArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-12 e-4)))))))(else arg-13)))))))(else arg-13)) (let ((e-12 (cdr arg-12))) (case (vector-ref arg-13 0) ((3) (let ((e-14 (vector-ref arg-13 1))) (let ((e-15 (vector-ref arg-13 2))) (let ((e-16 (vector-ref arg-13 3))) (let ((e-17 (vector-ref arg-13 4))) (case (vector-ref e-16 0) ((2) (let ((e-19 (vector-ref e-16 1))) (let ((e-21 (vector-ref e-16 3))) (let ((e-22 (vector-ref e-16 4))) (vector 3 e-14 e-15 (vector 2 e-19 (AlgebraC-45Semiring-erased (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))) e-21 e-22) (CoreC-45LinearCheck-n--7707-8501-u--unusedHoleArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-12 e-17))))))(else (case (vector-ref arg-13 0) ((3) (let ((e-1 (vector-ref arg-13 1))) (let ((e-2 (vector-ref arg-13 2))) (let ((e-3 (vector-ref arg-13 3))) (let ((e-4 (vector-ref arg-13 4))) (case (vector-ref e-3 0) ((1) (let ((e-6 (vector-ref e-3 1))) (let ((e-7 (vector-ref e-3 2))) (let ((e-8 (vector-ref e-3 3))) (let ((e-9 (vector-ref e-3 4))) (vector 3 e-1 e-2 (vector 1 e-6 e-7 e-8 e-9) (CoreC-45LinearCheck-n--7707-8501-u--unusedHoleArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-12 e-4)))))))(else arg-13)))))))(else arg-13)))))))))(else (case (vector-ref arg-13 0) ((3) (let ((e-1 (vector-ref arg-13 1))) (let ((e-2 (vector-ref arg-13 2))) (let ((e-3 (vector-ref arg-13 3))) (let ((e-4 (vector-ref arg-13 4))) (case (vector-ref e-3 0) ((1) (let ((e-6 (vector-ref e-3 1))) (let ((e-7 (vector-ref e-3 2))) (let ((e-8 (vector-ref e-3 3))) (let ((e-9 (vector-ref e-3 4))) (vector 3 e-1 e-2 (vector 1 e-6 e-7 e-8 e-9) (CoreC-45LinearCheck-n--7707-8501-u--unusedHoleArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-12 e-4)))))))(else arg-13)))))))(else arg-13)))))))) +(define CoreC-45LinearCheck-n--7751-13773-u--substMeta (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (case (vector-ref arg-16 0) ((3) (let ((e-3 (vector-ref arg-16 2))) (let ((e-4 (vector-ref arg-16 3))) (let ((e-5 (vector-ref arg-16 4))) (case (vector-ref e-4 0) ((0) (if (null? arg-17) (lambda (clam-0) (if (null? arg-17) (vector 1 (CoreC-45TTC-45SubstEnv-substs arg-18 arg-16)) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 (PreludeC-45TypesC-45String-C-43C-43 "Badly formed metavar solution " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name arg-8) (PreludeC-45TypesC-45String-C-43C-43 " " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() arg-5))))) clam-0))) (let ((e-17 (car arg-17))) (let ((e-18 (cdr arg-17))) (CoreC-45LinearCheck-n--7751-13773-u--substMeta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (cons e-3 arg-14) arg-15 e-5 e-18 (cons e-17 arg-18)))))) ((1) (let ((e-14 (vector-ref e-4 3))) (CoreC-45LinearCheck-n--7751-13773-u--substMeta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 (CoreC-45TTC-45SubstEnv-subst e-14 e-5) arg-17 arg-18)))(else (lambda (clam-1) (if (null? arg-17) (vector 1 (CoreC-45TTC-45SubstEnv-substs arg-18 arg-16)) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 (PreludeC-45TypesC-45String-C-43C-43 "Badly formed metavar solution " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name arg-8) (PreludeC-45TypesC-45String-C-43C-43 " " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() arg-5))))) clam-1)))))))))(else (lambda (clam-2) (if (null? arg-17) (vector 1 (CoreC-45TTC-45SubstEnv-substs arg-18 arg-16)) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 (PreludeC-45TypesC-45String-C-43C-43 "Badly formed metavar solution " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name arg-8) (PreludeC-45TypesC-45String-C-43C-43 " " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() arg-5))))) clam-2))))))) +(define CoreC-45LinearCheck-n--6183-6845-u--showAll (lambda (arg-1 arg-3) (if (null? arg-3) "" (let ((e-2 (car arg-3))) (let ((e-3 (cdr arg-3))) (if (null? e-3) (CoreC-45TT-u--show_Show_C-40VarC-32C-36nsC-41 e-2) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40VarC-32C-36nsC-41 e-2) (PreludeC-45TypesC-45String-C-43C-43 ", " (CoreC-45LinearCheck-u--show_Show_C-40UsageC-32C-36varsC-41 e-3))))))))) +(define CoreC-45LinearCheck-n--7745-13238-u--rigSafe (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 ext-0) (let ((act-24 (CoreC-45Context-getFullName arg-6 arg-1 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((sc1 (AlgebraC-45Preorder-C-60 (cons (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-60C-61_Preorder_ZeroOneOmega arg-333 arg-334))) (lambda (u--x) (AlgebraC-45ZeroOneOmega-u--preorderRefl_Preorder_ZeroOneOmega u--x)) (lambda (u--x) (lambda (u--y) (lambda (u--z) (lambda (arg-338) (lambda (arg-342) (AlgebraC-45ZeroOneOmega-u--preorderTrans_Preorder_ZeroOneOmega u--x u--y u--z arg-338 arg-342))))))) (cons (lambda (arg-9) (lambda (arg-10) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-9 arg-10))))) arg-7 arg-8))) (cond ((equal? sc1 1) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 14 arg-4 e-5 arg-7 arg-8) ext-0)) (else (vector 1 0)))))))))) +(define CoreC-45LinearCheck-n--7707-8273-u--rigSafe (lambda (arg-0 arg-2 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 ext-0) (let ((sc0 (AlgebraC-45Preorder-C-60 (cons (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-60C-61_Preorder_ZeroOneOmega arg-333 arg-334))) (lambda (u--x) (AlgebraC-45ZeroOneOmega-u--preorderRefl_Preorder_ZeroOneOmega u--x)) (lambda (u--x) (lambda (u--y) (lambda (u--z) (lambda (arg-338) (lambda (arg-342) (AlgebraC-45ZeroOneOmega-u--preorderTrans_Preorder_ZeroOneOmega u--x u--y u--z arg-338 arg-342))))))) (cons (lambda (arg-3) (lambda (arg-13) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-3 arg-13))) (lambda (arg-13) (lambda (arg-14) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-13 arg-14))))) arg-11 arg-12))) (cond ((equal? sc0 1) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 14 arg-5 (CoreC-45LinearCheck-n--7707-8272-u--getName arg-0 arg-2 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-0 arg-2) arg-11 arg-12) ext-0)) (else (vector 1 0)))))) +(define CoreC-45LinearCheck-n--7707-9036-u--rig (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (case (vector-ref arg-3 0) ((2) (let ((sc1 (AlgebraC-45Semiring-isErased (cons (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-10) (lambda (arg-11) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-10 arg-11))) (lambda (arg-10) (lambda (arg-11) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-10 arg-11))))) arg-7))) (cond ((equal? sc1 1) (AlgebraC-45Semiring-erased (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)))) (else (AlgebraC-45ZeroOneOmega-u--top_Top_ZeroOneOmega))))) ((1) arg-7)(else (let ((sc0 (AlgebraC-45Semiring-isErased (cons (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-10) (lambda (arg-11) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-10 arg-11))) (lambda (arg-10) (lambda (arg-11) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-10 arg-11))))) arg-7))) (cond ((equal? sc0 1) (AlgebraC-45Semiring-erased (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)))) (else (AlgebraC-45Semiring-linear (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)))))))))) +(define CoreC-45LinearCheck-n--7735-11766-u--isLocArg (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-8) (if (null? arg-8) 0 (let ((e-2 (car arg-8))) (let ((e-3 (cdr arg-8))) (case (vector-ref e-2 0) ((0) (let ((e-8 (vector-ref e-2 3))) (let ((sc2 (PreludeC-45Types-u--C-61C-61_Eq_Nat e-8 (CoreC-45TT-varIdx arg-7)))) (cond ((equal? sc2 1) 1) (else (CoreC-45LinearCheck-n--7735-11766-u--isLocArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 e-3)))))) ((5) (let ((e-13 (vector-ref e-2 3))) (let ((e-14 (vector-ref e-2 4))) (CoreC-45LinearCheck-n--7735-11766-u--isLocArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 (cons e-13 (cons e-14 e-3))))))(else (CoreC-45LinearCheck-n--7735-11766-u--isLocArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 e-3)))))))) +(define CoreC-45LinearCheck-n--7707-9037-u--getZeroes (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (if (null? arg-10) '() (let ((e-3 (cdr arg-10))) (let ((e-8 (car arg-11))) (let ((e-9 (cdr arg-11))) (let ((sc2 (AlgebraC-45Semiring-isErased (cons (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-12) (lambda (arg-13) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-12 arg-13))) (lambda (arg-12) (lambda (arg-13) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-12 arg-13))))) (CoreC-45TT-multiplicity e-8)))) (cond ((equal? sc2 1) (cons 0 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45TT-u--weaken_Weaken_Var eta-0)) (CoreC-45LinearCheck-n--7707-9037-u--getZeroes arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-3 e-9)))) (else (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45TT-u--weaken_Weaken_Var eta-0)) (CoreC-45LinearCheck-n--7707-9037-u--getZeroes arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-3 e-9))))))))))) +(define CoreC-45LinearCheck-n--7735-11768-u--getPUsage (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((e-2 (car arg-7))) (let ((e-3 (cdr arg-7))) (lambda (clam-0) (let ((e-6 (car e-3))) (let ((e-7 (cdr e-3))) (let ((e-10 (car e-7))) (let ((e-11 (cdr e-7))) (let ((act-24 (CoreC-45Normalise-logEnv e-2 arg-5 "quantity" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) "Env" e-6 clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((act-25 (CoreC-45ContextC-45Log-logTerm e-2 arg-5 "quantity" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "LHS") e-10 clam-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((act-26 (CoreC-45ContextC-45Log-logTerm e-2 arg-5 "quantity" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Linear check in case RHS") e-11 clam-0))) (case (vector-ref act-26 0) ((0) (let ((e-4 (vector-ref act-26 1))) (vector 0 e-4))) (else (let ((act-27 ((CoreC-45LinearCheck-lcheck e-2 arg-5 arg-4 arg-2 0 e-6 e-11) clam-0))) (case (vector-ref act-27 0) ((0) (let ((e-4 (vector-ref act-27 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref act-27 1))) (let ((e-13 (car e-12))) (let ((e-4 (cdr e-12))) (let ((e-14 (cdr e-4))) (let ((act-28 (CoreC-45ContextC-45Log-log arg-5 "quantity" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Used: " (CoreC-45LinearCheck-u--show_Show_C-40UsageC-32C-36varsC-41 e-14))) clam-0))) (case (vector-ref act-28 0) ((0) (let ((e-16 (vector-ref act-28 1))) (vector 0 e-16))) (else (let ((u--args (CoreC-45TT-getArgs e-10))) (let ((act-29 ((CoreC-45LinearCheck-n--7735-11767-u--checkEnvUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 '() e-2 arg-2 e-6 e-14 u--args e-13) clam-0))) (case (vector-ref act-29 0) ((0) (let ((e-17 (vector-ref act-29 1))) (vector 0 e-17))) (else (let ((act-30 ((CoreC-45LinearCheck-n--7735-11764-u--getCaseUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2 arg-6 e-6 u--args e-14 e-11) clam-0))) (case (vector-ref act-30 0) ((0) (let ((e-18 (vector-ref act-30 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref act-30 1))) (let ((act-31 (CoreC-45ContextC-45Log-log arg-5 "quantity" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Arg usage: " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (CoreC-45Name-u--show_Show_Name x-0)) (lambda (u--d) (lambda (x-0) (CoreC-45Name-u--showPrec_Show_Name u--d x-0)))) (cons (lambda (x-0) (CoreC-45LinearCheck-u--show_Show_ArgUsage x-0)) (lambda (u--d) (lambda (x-0) (CoreC-45LinearCheck-u--showPrec_Show_ArgUsage u--d x-0))))) u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (CoreC-45Name-u--show_Show_Name x-0)) (lambda (d-0) (lambda (x-0) (CoreC-45Name-u--showPrec_Show_Name d-0 x-0)))) (cons (lambda (x-0) (CoreC-45LinearCheck-u--show_Show_ArgUsage x-0)) (lambda (d-0) (lambda (x-0) (CoreC-45LinearCheck-u--showPrec_Show_ArgUsage d-0 x-0))))) u--d u--x)))) e-18))) clam-0))) (case (vector-ref act-31 0) ((0) (let ((e-19 (vector-ref act-31 1))) (vector 0 e-19))) (else (vector 1 e-18)))))))))))))))))))))))))))))))))))))))) +(define CoreC-45LinearCheck-n--7707-8272-u--getName (lambda (arg-0 arg-2 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-12 arg-13) (cond ((equal? arg-12 0) (let ((e-2 (car arg-13))) e-2))(else (let ((e-0 (- arg-12 1))) (let ((e-6 (cdr arg-13))) (CoreC-45LinearCheck-n--7707-8272-u--getName arg-0 arg-2 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-0 e-6))))))) +(define CoreC-45LinearCheck-n--7735-11764-u--getCaseUsage (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (if (null? arg-10) (case (vector-ref arg-8 0) ((3) (let ((e-1 (vector-ref arg-8 1))) (let ((e-2 (vector-ref arg-8 2))) (let ((e-3 (vector-ref arg-8 3))) (let ((e-4 (vector-ref arg-8 4))) (case (vector-ref e-3 0) ((2) (let ((e-6 (vector-ref e-3 1))) (let ((e-7 (vector-ref e-3 2))) (let ((e-8 (vector-ref e-3 3))) (let ((e-9 (vector-ref e-3 4))) (if (null? arg-10) (lambda (eta-0) (vector 1 '())) (let ((e-11 (car arg-10))) (let ((e-12 (cdr arg-10))) (let ((sc4 (AlgebraC-45Semiring-isLinear (cons (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-6) (lambda (arg-13) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-6 arg-13))) (lambda (arg-6) (lambda (arg-13) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-6 arg-13))))) e-7))) (cond ((equal? sc4 1) (lambda (clam-1) (case (vector-ref e-11 0) ((0) (let ((e-5 (vector-ref e-11 3))) (let ((act-24 ((CoreC-45LinearCheck-n--7735-11764-u--getCaseUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 e-4 arg-9 e-12 arg-11 arg-12) clam-1))) (case (vector-ref act-24 0) ((0) (let ((e-14 (vector-ref act-24 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref act-24 1))) (let ((u--used_in (CoreC-45LinearCheck-count e-5 arg-11))) (let ((act-25 ((CoreC-45LinearCheck-updateHoleUsage arg-7 arg-5 arg-4 (PreludeC-45Types-u--C-61C-61_Eq_Nat u--used_in (PreludeC-45Types-u--fromInteger_Num_Nat 0)) e-5 '() arg-12) clam-1))) (case (vector-ref act-25 0) ((0) (let ((e-15 (vector-ref act-25 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref act-25 1))) (let ((u--ause (let ((sc8 (cond ((equal? e-15 1) (PreludeC-45Types-u--C-61C-61_Eq_Nat u--used_in (PreludeC-45Types-u--fromInteger_Num_Nat 0))) (else 0)))) (cond ((equal? sc8 1) 4) (else (let ((sc9 (PreludeC-45Types-u--C-61C-61_Eq_Nat u--used_in (PreludeC-45Types-u--fromInteger_Num_Nat 0)))) (cond ((equal? sc9 1) 1) (else 2)))))))) (vector 1 (cons (cons e-2 u--ause) e-14))))))))))))))(else (CoreC-45LinearCheck-n--11832-11817-u--elseCase arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 e-1 e-6 e-8 e-9 e-7 e-2 e-4 e-11 e-12 arg-12 arg-11 arg-9 clam-1))))) (else (lambda (eta-0) (CoreC-45LinearCheck-n--11832-11817-u--elseCase arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 e-1 e-6 e-8 e-9 e-7 e-2 e-4 e-11 e-12 arg-12 arg-11 arg-9 eta-0)))))))))))))(else (lambda (eta-0) (vector 1 '())))))))))(else (lambda (eta-0) (vector 1 '())))) (let ((e-14 (car arg-10))) (let ((e-15 (cdr arg-10))) (case (vector-ref e-14 0) ((5) (let ((e-20 (vector-ref e-14 4))) (CoreC-45LinearCheck-n--7735-11764-u--getCaseUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-8 arg-9 (cons e-20 e-15) arg-11 arg-12)))(else (case (vector-ref arg-8 0) ((3) (let ((e-1 (vector-ref arg-8 1))) (let ((e-2 (vector-ref arg-8 2))) (let ((e-3 (vector-ref arg-8 3))) (let ((e-4 (vector-ref arg-8 4))) (case (vector-ref e-3 0) ((2) (let ((e-6 (vector-ref e-3 1))) (let ((e-7 (vector-ref e-3 2))) (let ((e-8 (vector-ref e-3 3))) (let ((e-9 (vector-ref e-3 4))) (if (null? arg-10) (lambda (eta-0) (vector 1 '())) (let ((e-11 (car arg-10))) (let ((e-12 (cdr arg-10))) (let ((sc4 (AlgebraC-45Semiring-isLinear (cons (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-6) (lambda (arg-13) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-6 arg-13))) (lambda (arg-6) (lambda (arg-13) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-6 arg-13))))) e-7))) (cond ((equal? sc4 1) (lambda (clam-0) (case (vector-ref e-11 0) ((0) (let ((e-5 (vector-ref e-11 3))) (let ((act-24 ((CoreC-45LinearCheck-n--7735-11764-u--getCaseUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 e-4 arg-9 e-12 arg-11 arg-12) clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-16 (vector-ref act-24 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref act-24 1))) (let ((u--used_in (CoreC-45LinearCheck-count e-5 arg-11))) (let ((act-25 ((CoreC-45LinearCheck-updateHoleUsage arg-7 arg-5 arg-4 (PreludeC-45Types-u--C-61C-61_Eq_Nat u--used_in (PreludeC-45Types-u--fromInteger_Num_Nat 0)) e-5 '() arg-12) clam-0))) (case (vector-ref act-25 0) ((0) (let ((e-17 (vector-ref act-25 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref act-25 1))) (let ((u--ause (let ((sc8 (cond ((equal? e-17 1) (PreludeC-45Types-u--C-61C-61_Eq_Nat u--used_in (PreludeC-45Types-u--fromInteger_Num_Nat 0))) (else 0)))) (cond ((equal? sc8 1) 4) (else (let ((sc9 (PreludeC-45Types-u--C-61C-61_Eq_Nat u--used_in (PreludeC-45Types-u--fromInteger_Num_Nat 0)))) (cond ((equal? sc9 1) 1) (else 2)))))))) (vector 1 (cons (cons e-2 u--ause) e-16))))))))))))))(else (CoreC-45LinearCheck-n--11832-11817-u--elseCase arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 e-1 e-6 e-8 e-9 e-7 e-2 e-4 e-11 e-12 arg-12 arg-11 arg-9 clam-0))))) (else (lambda (eta-0) (CoreC-45LinearCheck-n--11832-11817-u--elseCase arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 e-1 e-6 e-8 e-9 e-7 e-2 e-4 e-11 e-12 arg-12 arg-11 arg-9 eta-0)))))))))))))(else (lambda (eta-0) (vector 1 '())))))))))(else (lambda (eta-0) (vector 1 '()))))))))))) +(define CoreC-45LinearCheck-n--7707-9038-u--eraseLinear (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-11) (if (null? arg-11) '() (let ((e-4 (car arg-11))) (let ((e-5 (cdr arg-11))) (let ((sc1 (AlgebraC-45Semiring-isLinear (cons (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-10) (lambda (arg-12) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-10 arg-12))) (lambda (arg-10) (lambda (arg-12) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-10 arg-12))))) (CoreC-45TT-multiplicity e-4)))) (cond ((equal? sc1 1) (cons (CoreC-45TT-setMultiplicity e-4 (AlgebraC-45Semiring-erased (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)))) (CoreC-45LinearCheck-n--7707-9038-u--eraseLinear arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-5))) (else (cons e-4 (CoreC-45LinearCheck-n--7707-9038-u--eraseLinear arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-5)))))))))) +(define CoreC-45LinearCheck-n--11832-11817-u--elseCase (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 ext-0) (let ((act-24 ((CoreC-45LinearCheck-n--7735-11764-u--getCaseUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-14 arg-19 arg-16 arg-18 arg-17) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (let ((sc1 (AlgebraC-45Semiring-isErased (cons (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-6) (lambda (arg-20) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-6 arg-20))) (lambda (arg-6) (lambda (arg-20) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-6 arg-20))))) arg-12))) (cond ((equal? sc1 1) (cons (cons arg-13 1) e-5)) (else (cons (cons arg-13 3) e-5))))))))))) +(define CoreC-45LinearCheck-n--7735-11770-u--combineUsages (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (if (null? arg-6) (if (null? arg-7) (vector 1 '()) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 "Argument usage lists inconsistent") ext-0)) (let ((e-2 (car arg-6))) (let ((e-3 (cdr arg-6))) (if (null? arg-7) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 "Argument usage lists inconsistent") ext-0) (let ((e-6 (car arg-7))) (let ((e-7 (cdr arg-7))) (let ((act-24 ((CoreC-45LinearCheck-n--7735-11769-u--combineUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2 e-6) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45LinearCheck-n--7735-11770-u--combineUsages arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3 e-7 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref act-25 1))) (vector 1 (cons e-5 e-8)))))))))))))))))) +(define CoreC-45LinearCheck-n--7735-11769-u--combineUsage (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (if (null? arg-6) (if (null? arg-7) (if (null? arg-6) (if (null? arg-7) (if (null? arg-6) (lambda (clam-95) (if (null? arg-7) (vector 1 arg-6) (let ((e-2 (car arg-7))) (let ((e-3 (cdr arg-7))) (cond ((equal? e-3 4) (vector 1 (cons e-2 4)))(else (vector 1 arg-6))))))) (let ((e-6 (car arg-6))) (let ((e-7 (cdr arg-6))) (cond ((equal? e-7 4) (lambda (eta-0) (vector 1 (cons e-6 4))))(else (lambda (clam-94) (if (null? arg-7) (vector 1 arg-6) (let ((e-2 (car arg-7))) (let ((e-3 (cdr arg-7))) (cond ((equal? e-3 4) (vector 1 (cons e-2 4)))(else (vector 1 arg-6)))))))))))) (let ((e-10 (car arg-7))) (let ((e-11 (cdr arg-7))) (cond ((equal? e-11 3) (lambda (eta-0) (vector 1 (cons e-10 3))))(else (if (null? arg-6) (lambda (clam-93) (if (null? arg-7) (vector 1 arg-6) (let ((e-2 (car arg-7))) (let ((e-3 (cdr arg-7))) (cond ((equal? e-3 4) (vector 1 (cons e-2 4)))(else (vector 1 arg-6))))))) (let ((e-6 (car arg-6))) (let ((e-7 (cdr arg-6))) (cond ((equal? e-7 4) (lambda (eta-0) (vector 1 (cons e-6 4))))(else (lambda (clam-92) (if (null? arg-7) (vector 1 arg-6) (let ((e-2 (car arg-7))) (let ((e-3 (cdr arg-7))) (cond ((equal? e-3 4) (vector 1 (cons e-2 4)))(else (vector 1 arg-6))))))))))))))))) (let ((e-14 (car arg-6))) (let ((e-15 (cdr arg-6))) (cond ((equal? e-15 3) (lambda (eta-0) (vector 1 (cons e-14 3))))(else (if (null? arg-7) (if (null? arg-6) (lambda (clam-91) (if (null? arg-7) (vector 1 arg-6) (let ((e-2 (car arg-7))) (let ((e-3 (cdr arg-7))) (cond ((equal? e-3 4) (vector 1 (cons e-2 4)))(else (vector 1 arg-6))))))) (let ((e-6 (car arg-6))) (let ((e-7 (cdr arg-6))) (cond ((equal? e-7 4) (lambda (eta-0) (vector 1 (cons e-6 4))))(else (lambda (clam-90) (if (null? arg-7) (vector 1 arg-6) (let ((e-2 (car arg-7))) (let ((e-3 (cdr arg-7))) (cond ((equal? e-3 4) (vector 1 (cons e-2 4)))(else (vector 1 arg-6)))))))))))) (let ((e-10 (car arg-7))) (let ((e-11 (cdr arg-7))) (cond ((equal? e-11 3) (lambda (eta-0) (vector 1 (cons e-10 3))))(else (if (null? arg-6) (lambda (clam-89) (if (null? arg-7) (vector 1 arg-6) (let ((e-2 (car arg-7))) (let ((e-3 (cdr arg-7))) (cond ((equal? e-3 4) (vector 1 (cons e-2 4)))(else (vector 1 arg-6))))))) (let ((e-6 (car arg-6))) (let ((e-7 (cdr arg-6))) (cond ((equal? e-7 4) (lambda (eta-0) (vector 1 (cons e-6 4))))(else (lambda (clam-88) (if (null? arg-7) (vector 1 arg-6) (let ((e-2 (car arg-7))) (let ((e-3 (cdr arg-7))) (cond ((equal? e-3 4) (vector 1 (cons e-2 4)))(else (vector 1 arg-6)))))))))))))))))))))) (let ((e-18 (car arg-7))) (let ((e-19 (cdr arg-7))) (cond ((equal? e-19 0) (lambda (eta-0) (vector 1 (cons e-18 0))))(else (if (null? arg-6) (if (null? arg-7) (if (null? arg-6) (lambda (clam-87) (if (null? arg-7) (vector 1 arg-6) (let ((e-2 (car arg-7))) (let ((e-3 (cdr arg-7))) (cond ((equal? e-3 4) (vector 1 (cons e-2 4)))(else (vector 1 arg-6))))))) (let ((e-6 (car arg-6))) (let ((e-7 (cdr arg-6))) (cond ((equal? e-7 4) (lambda (eta-0) (vector 1 (cons e-6 4))))(else (lambda (clam-86) (if (null? arg-7) (vector 1 arg-6) (let ((e-2 (car arg-7))) (let ((e-3 (cdr arg-7))) (cond ((equal? e-3 4) (vector 1 (cons e-2 4)))(else (vector 1 arg-6)))))))))))) (let ((e-10 (car arg-7))) (let ((e-11 (cdr arg-7))) (cond ((equal? e-11 3) (lambda (eta-0) (vector 1 (cons e-10 3))))(else (if (null? arg-6) (lambda (clam-85) (if (null? arg-7) (vector 1 arg-6) (let ((e-2 (car arg-7))) (let ((e-3 (cdr arg-7))) (cond ((equal? e-3 4) (vector 1 (cons e-2 4)))(else (vector 1 arg-6))))))) (let ((e-6 (car arg-6))) (let ((e-7 (cdr arg-6))) (cond ((equal? e-7 4) (lambda (eta-0) (vector 1 (cons e-6 4))))(else (lambda (clam-84) (if (null? arg-7) (vector 1 arg-6) (let ((e-2 (car arg-7))) (let ((e-3 (cdr arg-7))) (cond ((equal? e-3 4) (vector 1 (cons e-2 4)))(else (vector 1 arg-6))))))))))))))))) (let ((e-14 (car arg-6))) (let ((e-15 (cdr arg-6))) (cond ((equal? e-15 3) (lambda (eta-0) (vector 1 (cons e-14 3))))(else (if (null? arg-7) (if (null? arg-6) (lambda (clam-83) (if (null? arg-7) (vector 1 arg-6) (let ((e-2 (car arg-7))) (let ((e-3 (cdr arg-7))) (cond ((equal? e-3 4) (vector 1 (cons e-2 4)))(else (vector 1 arg-6))))))) (let ((e-6 (car arg-6))) (let ((e-7 (cdr arg-6))) (cond ((equal? e-7 4) (lambda (eta-0) (vector 1 (cons e-6 4))))(else (lambda (clam-82) (if (null? arg-7) (vector 1 arg-6) (let ((e-2 (car arg-7))) (let ((e-3 (cdr arg-7))) (cond ((equal? e-3 4) (vector 1 (cons e-2 4)))(else (vector 1 arg-6)))))))))))) (let ((e-10 (car arg-7))) (let ((e-11 (cdr arg-7))) (cond ((equal? e-11 3) (lambda (eta-0) (vector 1 (cons e-10 3))))(else (if (null? arg-6) (lambda (clam-81) (if (null? arg-7) (vector 1 arg-6) (let ((e-2 (car arg-7))) (let ((e-3 (cdr arg-7))) (cond ((equal? e-3 4) (vector 1 (cons e-2 4)))(else (vector 1 arg-6))))))) (let ((e-6 (car arg-6))) (let ((e-7 (cdr arg-6))) (cond ((equal? e-7 4) (lambda (eta-0) (vector 1 (cons e-6 4))))(else (lambda (clam-80) (if (null? arg-7) (vector 1 arg-6) (let ((e-2 (car arg-7))) (let ((e-3 (cdr arg-7))) (cond ((equal? e-3 4) (vector 1 (cons e-2 4)))(else (vector 1 arg-6))))))))))))))))))))))))))) (let ((e-22 (car arg-6))) (let ((e-23 (cdr arg-6))) (cond ((equal? e-23 1) (if (null? arg-7) (if (null? arg-7) (if (null? arg-6) (if (null? arg-7) (if (null? arg-6) (lambda (clam-31) (if (null? arg-7) (vector 1 arg-6) (let ((e-2 (car arg-7))) (let ((e-3 (cdr arg-7))) (cond ((equal? e-3 4) (vector 1 (cons e-2 4)))(else (vector 1 arg-6))))))) (let ((e-6 (car arg-6))) (let ((e-7 (cdr arg-6))) (cond ((equal? e-7 4) (lambda (eta-0) (vector 1 (cons e-6 4))))(else (lambda (clam-30) (if (null? arg-7) (vector 1 arg-6) (let ((e-2 (car arg-7))) (let ((e-3 (cdr arg-7))) (cond ((equal? e-3 4) (vector 1 (cons e-2 4)))(else (vector 1 arg-6)))))))))))) (let ((e-10 (car arg-7))) (let ((e-11 (cdr arg-7))) (cond ((equal? e-11 3) (lambda (eta-0) (vector 1 (cons e-10 3))))(else (if (null? arg-6) (lambda (clam-29) (if (null? arg-7) (vector 1 arg-6) (let ((e-2 (car arg-7))) (let ((e-3 (cdr arg-7))) (cond ((equal? e-3 4) (vector 1 (cons e-2 4)))(else (vector 1 arg-6))))))) (let ((e-6 (car arg-6))) (let ((e-7 (cdr arg-6))) (cond ((equal? e-7 4) (lambda (eta-0) (vector 1 (cons e-6 4))))(else (lambda (clam-28) (if (null? arg-7) (vector 1 arg-6) (let ((e-2 (car arg-7))) (let ((e-3 (cdr arg-7))) (cond ((equal? e-3 4) (vector 1 (cons e-2 4)))(else (vector 1 arg-6))))))))))))))))) (let ((e-14 (car arg-6))) (let ((e-15 (cdr arg-6))) (cond ((equal? e-15 3) (lambda (eta-0) (vector 1 (cons e-14 3))))(else (if (null? arg-7) (if (null? arg-6) (lambda (clam-27) (if (null? arg-7) (vector 1 arg-6) (let ((e-2 (car arg-7))) (let ((e-3 (cdr arg-7))) (cond ((equal? e-3 4) (vector 1 (cons e-2 4)))(else (vector 1 arg-6))))))) (let ((e-6 (car arg-6))) (let ((e-7 (cdr arg-6))) (cond ((equal? e-7 4) (lambda (eta-0) (vector 1 (cons e-6 4))))(else (lambda (clam-26) (if (null? arg-7) (vector 1 arg-6) (let ((e-2 (car arg-7))) (let ((e-3 (cdr arg-7))) (cond ((equal? e-3 4) (vector 1 (cons e-2 4)))(else (vector 1 arg-6)))))))))))) (let ((e-10 (car arg-7))) (let ((e-11 (cdr arg-7))) (cond ((equal? e-11 3) (lambda (eta-0) (vector 1 (cons e-10 3))))(else (if (null? arg-6) (lambda (clam-25) (if (null? arg-7) (vector 1 arg-6) (let ((e-2 (car arg-7))) (let ((e-3 (cdr arg-7))) (cond ((equal? e-3 4) (vector 1 (cons e-2 4)))(else (vector 1 arg-6))))))) (let ((e-6 (car arg-6))) (let ((e-7 (cdr arg-6))) (cond ((equal? e-7 4) (lambda (eta-0) (vector 1 (cons e-6 4))))(else (lambda (clam-24) (if (null? arg-7) (vector 1 arg-6) (let ((e-2 (car arg-7))) (let ((e-3 (cdr arg-7))) (cond ((equal? e-3 4) (vector 1 (cons e-2 4)))(else (vector 1 arg-6)))))))))))))))))))))) (let ((e-18 (car arg-7))) (let ((e-19 (cdr arg-7))) (cond ((equal? e-19 0) (lambda (eta-0) (vector 1 (cons e-18 0))))(else (if (null? arg-6) (if (null? arg-7) (if (null? arg-6) (lambda (clam-23) (if (null? arg-7) (vector 1 arg-6) (let ((e-2 (car arg-7))) (let ((e-3 (cdr arg-7))) (cond ((equal? e-3 4) (vector 1 (cons e-2 4)))(else (vector 1 arg-6))))))) (let ((e-6 (car arg-6))) (let ((e-7 (cdr arg-6))) (cond ((equal? e-7 4) (lambda (eta-0) (vector 1 (cons e-6 4))))(else (lambda (clam-22) (if (null? arg-7) (vector 1 arg-6) (let ((e-2 (car arg-7))) (let ((e-3 (cdr arg-7))) (cond ((equal? e-3 4) (vector 1 (cons e-2 4)))(else (vector 1 arg-6)))))))))))) (let ((e-10 (car arg-7))) (let ((e-11 (cdr arg-7))) (cond ((equal? e-11 3) (lambda (eta-0) (vector 1 (cons e-10 3))))(else (if (null? arg-6) (lambda (clam-21) (if (null? arg-7) (vector 1 arg-6) (let ((e-2 (car arg-7))) (let ((e-3 (cdr arg-7))) (cond ((equal? e-3 4) (vector 1 (cons e-2 4)))(else (vector 1 arg-6))))))) (let ((e-6 (car arg-6))) (let ((e-7 (cdr arg-6))) (cond ((equal? e-7 4) (lambda (eta-0) (vector 1 (cons e-6 4))))(else (lambda (clam-20) (if (null? arg-7) (vector 1 arg-6) (let ((e-2 (car arg-7))) (let ((e-3 (cdr arg-7))) (cond ((equal? e-3 4) (vector 1 (cons e-2 4)))(else (vector 1 arg-6))))))))))))))))) (let ((e-14 (car arg-6))) (let ((e-15 (cdr arg-6))) (cond ((equal? e-15 3) (lambda (eta-0) (vector 1 (cons e-14 3))))(else (if (null? arg-7) (if (null? arg-6) (lambda (clam-19) (if (null? arg-7) (vector 1 arg-6) (let ((e-2 (car arg-7))) (let ((e-3 (cdr arg-7))) (cond ((equal? e-3 4) (vector 1 (cons e-2 4)))(else (vector 1 arg-6))))))) (let ((e-6 (car arg-6))) (let ((e-7 (cdr arg-6))) (cond ((equal? e-7 4) (lambda (eta-0) (vector 1 (cons e-6 4))))(else (lambda (clam-18) (if (null? arg-7) (vector 1 arg-6) (let ((e-2 (car arg-7))) (let ((e-3 (cdr arg-7))) (cond ((equal? e-3 4) (vector 1 (cons e-2 4)))(else (vector 1 arg-6)))))))))))) (let ((e-10 (car arg-7))) (let ((e-11 (cdr arg-7))) (cond ((equal? e-11 3) (lambda (eta-0) (vector 1 (cons e-10 3))))(else (if (null? arg-6) (lambda (clam-17) (if (null? arg-7) (vector 1 arg-6) (let ((e-2 (car arg-7))) (let ((e-3 (cdr arg-7))) (cond ((equal? e-3 4) (vector 1 (cons e-2 4)))(else (vector 1 arg-6))))))) (let ((e-6 (car arg-6))) (let ((e-7 (cdr arg-6))) (cond ((equal? e-7 4) (lambda (eta-0) (vector 1 (cons e-6 4))))(else (lambda (clam-16) (if (null? arg-7) (vector 1 arg-6) (let ((e-2 (car arg-7))) (let ((e-3 (cdr arg-7))) (cond ((equal? e-3 4) (vector 1 (cons e-2 4)))(else (vector 1 arg-6))))))))))))))))))))))))))) (let ((e-27 (cdr arg-7))) (cond ((equal? e-27 2) (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-3 (PreludeC-45TypesC-45String-C-43C-43 "Inconsistent usage of " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-22) " in case branches"))) eta-0)))(else (if (null? arg-7) (if (null? arg-6) (if (null? arg-7) (if (null? arg-6) (lambda (clam-15) (if (null? arg-7) (vector 1 arg-6) (let ((e-2 (car arg-7))) (let ((e-3 (cdr arg-7))) (cond ((equal? e-3 4) (vector 1 (cons e-2 4)))(else (vector 1 arg-6))))))) (let ((e-6 (car arg-6))) (let ((e-7 (cdr arg-6))) (cond ((equal? e-7 4) (lambda (eta-0) (vector 1 (cons e-6 4))))(else (lambda (clam-14) (if (null? arg-7) (vector 1 arg-6) (let ((e-2 (car arg-7))) (let ((e-3 (cdr arg-7))) (cond ((equal? e-3 4) (vector 1 (cons e-2 4)))(else (vector 1 arg-6)))))))))))) (let ((e-10 (car arg-7))) (let ((e-11 (cdr arg-7))) (cond ((equal? e-11 3) (lambda (eta-0) (vector 1 (cons e-10 3))))(else (if (null? arg-6) (lambda (clam-13) (if (null? arg-7) (vector 1 arg-6) (let ((e-2 (car arg-7))) (let ((e-3 (cdr arg-7))) (cond ((equal? e-3 4) (vector 1 (cons e-2 4)))(else (vector 1 arg-6))))))) (let ((e-6 (car arg-6))) (let ((e-7 (cdr arg-6))) (cond ((equal? e-7 4) (lambda (eta-0) (vector 1 (cons e-6 4))))(else (lambda (clam-12) (if (null? arg-7) (vector 1 arg-6) (let ((e-2 (car arg-7))) (let ((e-3 (cdr arg-7))) (cond ((equal? e-3 4) (vector 1 (cons e-2 4)))(else (vector 1 arg-6))))))))))))))))) (let ((e-14 (car arg-6))) (let ((e-15 (cdr arg-6))) (cond ((equal? e-15 3) (lambda (eta-0) (vector 1 (cons e-14 3))))(else (if (null? arg-7) (if (null? arg-6) (lambda (clam-11) (if (null? arg-7) (vector 1 arg-6) (let ((e-2 (car arg-7))) (let ((e-3 (cdr arg-7))) (cond ((equal? e-3 4) (vector 1 (cons e-2 4)))(else (vector 1 arg-6))))))) (let ((e-6 (car arg-6))) (let ((e-7 (cdr arg-6))) (cond ((equal? e-7 4) (lambda (eta-0) (vector 1 (cons e-6 4))))(else (lambda (clam-10) (if (null? arg-7) (vector 1 arg-6) (let ((e-2 (car arg-7))) (let ((e-3 (cdr arg-7))) (cond ((equal? e-3 4) (vector 1 (cons e-2 4)))(else (vector 1 arg-6)))))))))))) (let ((e-10 (car arg-7))) (let ((e-11 (cdr arg-7))) (cond ((equal? e-11 3) (lambda (eta-0) (vector 1 (cons e-10 3))))(else (if (null? arg-6) (lambda (clam-9) (if (null? arg-7) (vector 1 arg-6) (let ((e-2 (car arg-7))) (let ((e-3 (cdr arg-7))) (cond ((equal? e-3 4) (vector 1 (cons e-2 4)))(else (vector 1 arg-6))))))) (let ((e-6 (car arg-6))) (let ((e-7 (cdr arg-6))) (cond ((equal? e-7 4) (lambda (eta-0) (vector 1 (cons e-6 4))))(else (lambda (clam-8) (if (null? arg-7) (vector 1 arg-6) (let ((e-2 (car arg-7))) (let ((e-3 (cdr arg-7))) (cond ((equal? e-3 4) (vector 1 (cons e-2 4)))(else (vector 1 arg-6)))))))))))))))))))))) (let ((e-18 (car arg-7))) (let ((e-19 (cdr arg-7))) (cond ((equal? e-19 0) (lambda (eta-0) (vector 1 (cons e-18 0))))(else (if (null? arg-6) (if (null? arg-7) (if (null? arg-6) (lambda (clam-7) (if (null? arg-7) (vector 1 arg-6) (let ((e-2 (car arg-7))) (let ((e-3 (cdr arg-7))) (cond ((equal? e-3 4) (vector 1 (cons e-2 4)))(else (vector 1 arg-6))))))) (let ((e-6 (car arg-6))) (let ((e-7 (cdr arg-6))) (cond ((equal? e-7 4) (lambda (eta-0) (vector 1 (cons e-6 4))))(else (lambda (clam-6) (if (null? arg-7) (vector 1 arg-6) (let ((e-2 (car arg-7))) (let ((e-3 (cdr arg-7))) (cond ((equal? e-3 4) (vector 1 (cons e-2 4)))(else (vector 1 arg-6)))))))))))) (let ((e-10 (car arg-7))) (let ((e-11 (cdr arg-7))) (cond ((equal? e-11 3) (lambda (eta-0) (vector 1 (cons e-10 3))))(else (if (null? arg-6) (lambda (clam-5) (if (null? arg-7) (vector 1 arg-6) (let ((e-2 (car arg-7))) (let ((e-3 (cdr arg-7))) (cond ((equal? e-3 4) (vector 1 (cons e-2 4)))(else (vector 1 arg-6))))))) (let ((e-6 (car arg-6))) (let ((e-7 (cdr arg-6))) (cond ((equal? e-7 4) (lambda (eta-0) (vector 1 (cons e-6 4))))(else (lambda (clam-4) (if (null? arg-7) (vector 1 arg-6) (let ((e-2 (car arg-7))) (let ((e-3 (cdr arg-7))) (cond ((equal? e-3 4) (vector 1 (cons e-2 4)))(else (vector 1 arg-6))))))))))))))))) (let ((e-14 (car arg-6))) (let ((e-15 (cdr arg-6))) (cond ((equal? e-15 3) (lambda (eta-0) (vector 1 (cons e-14 3))))(else (if (null? arg-7) (if (null? arg-6) (lambda (clam-3) (if (null? arg-7) (vector 1 arg-6) (let ((e-2 (car arg-7))) (let ((e-3 (cdr arg-7))) (cond ((equal? e-3 4) (vector 1 (cons e-2 4)))(else (vector 1 arg-6))))))) (let ((e-6 (car arg-6))) (let ((e-7 (cdr arg-6))) (cond ((equal? e-7 4) (lambda (eta-0) (vector 1 (cons e-6 4))))(else (lambda (clam-2) (if (null? arg-7) (vector 1 arg-6) (let ((e-2 (car arg-7))) (let ((e-3 (cdr arg-7))) (cond ((equal? e-3 4) (vector 1 (cons e-2 4)))(else (vector 1 arg-6)))))))))))) (let ((e-10 (car arg-7))) (let ((e-11 (cdr arg-7))) (cond ((equal? e-11 3) (lambda (eta-0) (vector 1 (cons e-10 3))))(else (if (null? arg-6) (lambda (clam-1) (if (null? arg-7) (vector 1 arg-6) (let ((e-2 (car arg-7))) (let ((e-3 (cdr arg-7))) (cond ((equal? e-3 4) (vector 1 (cons e-2 4)))(else (vector 1 arg-6))))))) (let ((e-6 (car arg-6))) (let ((e-7 (cdr arg-6))) (cond ((equal? e-7 4) (lambda (eta-0) (vector 1 (cons e-6 4))))(else (lambda (clam-0) (if (null? arg-7) (vector 1 arg-6) (let ((e-2 (car arg-7))) (let ((e-3 (cdr arg-7))) (cond ((equal? e-3 4) (vector 1 (cons e-2 4)))(else (vector 1 arg-6)))))))))))))))))))))))))))))))) ((equal? e-23 2) (if (null? arg-7) (if (null? arg-7) (if (null? arg-6) (if (null? arg-7) (if (null? arg-6) (lambda (clam-63) (if (null? arg-7) (vector 1 arg-6) (let ((e-2 (car arg-7))) (let ((e-3 (cdr arg-7))) (cond ((equal? e-3 4) (vector 1 (cons e-2 4)))(else (vector 1 arg-6))))))) (let ((e-6 (car arg-6))) (let ((e-7 (cdr arg-6))) (cond ((equal? e-7 4) (lambda (eta-0) (vector 1 (cons e-6 4))))(else (lambda (clam-62) (if (null? arg-7) (vector 1 arg-6) (let ((e-2 (car arg-7))) (let ((e-3 (cdr arg-7))) (cond ((equal? e-3 4) (vector 1 (cons e-2 4)))(else (vector 1 arg-6)))))))))))) (let ((e-10 (car arg-7))) (let ((e-11 (cdr arg-7))) (cond ((equal? e-11 3) (lambda (eta-0) (vector 1 (cons e-10 3))))(else (if (null? arg-6) (lambda (clam-61) (if (null? arg-7) (vector 1 arg-6) (let ((e-2 (car arg-7))) (let ((e-3 (cdr arg-7))) (cond ((equal? e-3 4) (vector 1 (cons e-2 4)))(else (vector 1 arg-6))))))) (let ((e-6 (car arg-6))) (let ((e-7 (cdr arg-6))) (cond ((equal? e-7 4) (lambda (eta-0) (vector 1 (cons e-6 4))))(else (lambda (clam-60) (if (null? arg-7) (vector 1 arg-6) (let ((e-2 (car arg-7))) (let ((e-3 (cdr arg-7))) (cond ((equal? e-3 4) (vector 1 (cons e-2 4)))(else (vector 1 arg-6))))))))))))))))) (let ((e-14 (car arg-6))) (let ((e-15 (cdr arg-6))) (cond ((equal? e-15 3) (lambda (eta-0) (vector 1 (cons e-14 3))))(else (if (null? arg-7) (if (null? arg-6) (lambda (clam-59) (if (null? arg-7) (vector 1 arg-6) (let ((e-2 (car arg-7))) (let ((e-3 (cdr arg-7))) (cond ((equal? e-3 4) (vector 1 (cons e-2 4)))(else (vector 1 arg-6))))))) (let ((e-6 (car arg-6))) (let ((e-7 (cdr arg-6))) (cond ((equal? e-7 4) (lambda (eta-0) (vector 1 (cons e-6 4))))(else (lambda (clam-58) (if (null? arg-7) (vector 1 arg-6) (let ((e-2 (car arg-7))) (let ((e-3 (cdr arg-7))) (cond ((equal? e-3 4) (vector 1 (cons e-2 4)))(else (vector 1 arg-6)))))))))))) (let ((e-10 (car arg-7))) (let ((e-11 (cdr arg-7))) (cond ((equal? e-11 3) (lambda (eta-0) (vector 1 (cons e-10 3))))(else (if (null? arg-6) (lambda (clam-57) (if (null? arg-7) (vector 1 arg-6) (let ((e-2 (car arg-7))) (let ((e-3 (cdr arg-7))) (cond ((equal? e-3 4) (vector 1 (cons e-2 4)))(else (vector 1 arg-6))))))) (let ((e-6 (car arg-6))) (let ((e-7 (cdr arg-6))) (cond ((equal? e-7 4) (lambda (eta-0) (vector 1 (cons e-6 4))))(else (lambda (clam-56) (if (null? arg-7) (vector 1 arg-6) (let ((e-2 (car arg-7))) (let ((e-3 (cdr arg-7))) (cond ((equal? e-3 4) (vector 1 (cons e-2 4)))(else (vector 1 arg-6)))))))))))))))))))))) (let ((e-18 (car arg-7))) (let ((e-19 (cdr arg-7))) (cond ((equal? e-19 0) (lambda (eta-0) (vector 1 (cons e-18 0))))(else (if (null? arg-6) (if (null? arg-7) (if (null? arg-6) (lambda (clam-55) (if (null? arg-7) (vector 1 arg-6) (let ((e-2 (car arg-7))) (let ((e-3 (cdr arg-7))) (cond ((equal? e-3 4) (vector 1 (cons e-2 4)))(else (vector 1 arg-6))))))) (let ((e-6 (car arg-6))) (let ((e-7 (cdr arg-6))) (cond ((equal? e-7 4) (lambda (eta-0) (vector 1 (cons e-6 4))))(else (lambda (clam-54) (if (null? arg-7) (vector 1 arg-6) (let ((e-2 (car arg-7))) (let ((e-3 (cdr arg-7))) (cond ((equal? e-3 4) (vector 1 (cons e-2 4)))(else (vector 1 arg-6)))))))))))) (let ((e-10 (car arg-7))) (let ((e-11 (cdr arg-7))) (cond ((equal? e-11 3) (lambda (eta-0) (vector 1 (cons e-10 3))))(else (if (null? arg-6) (lambda (clam-53) (if (null? arg-7) (vector 1 arg-6) (let ((e-2 (car arg-7))) (let ((e-3 (cdr arg-7))) (cond ((equal? e-3 4) (vector 1 (cons e-2 4)))(else (vector 1 arg-6))))))) (let ((e-6 (car arg-6))) (let ((e-7 (cdr arg-6))) (cond ((equal? e-7 4) (lambda (eta-0) (vector 1 (cons e-6 4))))(else (lambda (clam-52) (if (null? arg-7) (vector 1 arg-6) (let ((e-2 (car arg-7))) (let ((e-3 (cdr arg-7))) (cond ((equal? e-3 4) (vector 1 (cons e-2 4)))(else (vector 1 arg-6))))))))))))))))) (let ((e-14 (car arg-6))) (let ((e-15 (cdr arg-6))) (cond ((equal? e-15 3) (lambda (eta-0) (vector 1 (cons e-14 3))))(else (if (null? arg-7) (if (null? arg-6) (lambda (clam-51) (if (null? arg-7) (vector 1 arg-6) (let ((e-2 (car arg-7))) (let ((e-3 (cdr arg-7))) (cond ((equal? e-3 4) (vector 1 (cons e-2 4)))(else (vector 1 arg-6))))))) (let ((e-6 (car arg-6))) (let ((e-7 (cdr arg-6))) (cond ((equal? e-7 4) (lambda (eta-0) (vector 1 (cons e-6 4))))(else (lambda (clam-50) (if (null? arg-7) (vector 1 arg-6) (let ((e-2 (car arg-7))) (let ((e-3 (cdr arg-7))) (cond ((equal? e-3 4) (vector 1 (cons e-2 4)))(else (vector 1 arg-6)))))))))))) (let ((e-10 (car arg-7))) (let ((e-11 (cdr arg-7))) (cond ((equal? e-11 3) (lambda (eta-0) (vector 1 (cons e-10 3))))(else (if (null? arg-6) (lambda (clam-49) (if (null? arg-7) (vector 1 arg-6) (let ((e-2 (car arg-7))) (let ((e-3 (cdr arg-7))) (cond ((equal? e-3 4) (vector 1 (cons e-2 4)))(else (vector 1 arg-6))))))) (let ((e-6 (car arg-6))) (let ((e-7 (cdr arg-6))) (cond ((equal? e-7 4) (lambda (eta-0) (vector 1 (cons e-6 4))))(else (lambda (clam-48) (if (null? arg-7) (vector 1 arg-6) (let ((e-2 (car arg-7))) (let ((e-3 (cdr arg-7))) (cond ((equal? e-3 4) (vector 1 (cons e-2 4)))(else (vector 1 arg-6))))))))))))))))))))))))))) (let ((e-31 (cdr arg-7))) (cond ((equal? e-31 1) (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-3 (PreludeC-45TypesC-45String-C-43C-43 "Inconsistent usage of " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-22) " in case branches"))) eta-0)))(else (if (null? arg-7) (if (null? arg-6) (if (null? arg-7) (if (null? arg-6) (lambda (clam-47) (if (null? arg-7) (vector 1 arg-6) (let ((e-2 (car arg-7))) (let ((e-3 (cdr arg-7))) (cond ((equal? e-3 4) (vector 1 (cons e-2 4)))(else (vector 1 arg-6))))))) (let ((e-6 (car arg-6))) (let ((e-7 (cdr arg-6))) (cond ((equal? e-7 4) (lambda (eta-0) (vector 1 (cons e-6 4))))(else (lambda (clam-46) (if (null? arg-7) (vector 1 arg-6) (let ((e-2 (car arg-7))) (let ((e-3 (cdr arg-7))) (cond ((equal? e-3 4) (vector 1 (cons e-2 4)))(else (vector 1 arg-6)))))))))))) (let ((e-10 (car arg-7))) (let ((e-11 (cdr arg-7))) (cond ((equal? e-11 3) (lambda (eta-0) (vector 1 (cons e-10 3))))(else (if (null? arg-6) (lambda (clam-45) (if (null? arg-7) (vector 1 arg-6) (let ((e-2 (car arg-7))) (let ((e-3 (cdr arg-7))) (cond ((equal? e-3 4) (vector 1 (cons e-2 4)))(else (vector 1 arg-6))))))) (let ((e-6 (car arg-6))) (let ((e-7 (cdr arg-6))) (cond ((equal? e-7 4) (lambda (eta-0) (vector 1 (cons e-6 4))))(else (lambda (clam-44) (if (null? arg-7) (vector 1 arg-6) (let ((e-2 (car arg-7))) (let ((e-3 (cdr arg-7))) (cond ((equal? e-3 4) (vector 1 (cons e-2 4)))(else (vector 1 arg-6))))))))))))))))) (let ((e-14 (car arg-6))) (let ((e-15 (cdr arg-6))) (cond ((equal? e-15 3) (lambda (eta-0) (vector 1 (cons e-14 3))))(else (if (null? arg-7) (if (null? arg-6) (lambda (clam-43) (if (null? arg-7) (vector 1 arg-6) (let ((e-2 (car arg-7))) (let ((e-3 (cdr arg-7))) (cond ((equal? e-3 4) (vector 1 (cons e-2 4)))(else (vector 1 arg-6))))))) (let ((e-6 (car arg-6))) (let ((e-7 (cdr arg-6))) (cond ((equal? e-7 4) (lambda (eta-0) (vector 1 (cons e-6 4))))(else (lambda (clam-42) (if (null? arg-7) (vector 1 arg-6) (let ((e-2 (car arg-7))) (let ((e-3 (cdr arg-7))) (cond ((equal? e-3 4) (vector 1 (cons e-2 4)))(else (vector 1 arg-6)))))))))))) (let ((e-10 (car arg-7))) (let ((e-11 (cdr arg-7))) (cond ((equal? e-11 3) (lambda (eta-0) (vector 1 (cons e-10 3))))(else (if (null? arg-6) (lambda (clam-41) (if (null? arg-7) (vector 1 arg-6) (let ((e-2 (car arg-7))) (let ((e-3 (cdr arg-7))) (cond ((equal? e-3 4) (vector 1 (cons e-2 4)))(else (vector 1 arg-6))))))) (let ((e-6 (car arg-6))) (let ((e-7 (cdr arg-6))) (cond ((equal? e-7 4) (lambda (eta-0) (vector 1 (cons e-6 4))))(else (lambda (clam-40) (if (null? arg-7) (vector 1 arg-6) (let ((e-2 (car arg-7))) (let ((e-3 (cdr arg-7))) (cond ((equal? e-3 4) (vector 1 (cons e-2 4)))(else (vector 1 arg-6)))))))))))))))))))))) (let ((e-18 (car arg-7))) (let ((e-19 (cdr arg-7))) (cond ((equal? e-19 0) (lambda (eta-0) (vector 1 (cons e-18 0))))(else (if (null? arg-6) (if (null? arg-7) (if (null? arg-6) (lambda (clam-39) (if (null? arg-7) (vector 1 arg-6) (let ((e-2 (car arg-7))) (let ((e-3 (cdr arg-7))) (cond ((equal? e-3 4) (vector 1 (cons e-2 4)))(else (vector 1 arg-6))))))) (let ((e-6 (car arg-6))) (let ((e-7 (cdr arg-6))) (cond ((equal? e-7 4) (lambda (eta-0) (vector 1 (cons e-6 4))))(else (lambda (clam-38) (if (null? arg-7) (vector 1 arg-6) (let ((e-2 (car arg-7))) (let ((e-3 (cdr arg-7))) (cond ((equal? e-3 4) (vector 1 (cons e-2 4)))(else (vector 1 arg-6)))))))))))) (let ((e-10 (car arg-7))) (let ((e-11 (cdr arg-7))) (cond ((equal? e-11 3) (lambda (eta-0) (vector 1 (cons e-10 3))))(else (if (null? arg-6) (lambda (clam-37) (if (null? arg-7) (vector 1 arg-6) (let ((e-2 (car arg-7))) (let ((e-3 (cdr arg-7))) (cond ((equal? e-3 4) (vector 1 (cons e-2 4)))(else (vector 1 arg-6))))))) (let ((e-6 (car arg-6))) (let ((e-7 (cdr arg-6))) (cond ((equal? e-7 4) (lambda (eta-0) (vector 1 (cons e-6 4))))(else (lambda (clam-36) (if (null? arg-7) (vector 1 arg-6) (let ((e-2 (car arg-7))) (let ((e-3 (cdr arg-7))) (cond ((equal? e-3 4) (vector 1 (cons e-2 4)))(else (vector 1 arg-6))))))))))))))))) (let ((e-14 (car arg-6))) (let ((e-15 (cdr arg-6))) (cond ((equal? e-15 3) (lambda (eta-0) (vector 1 (cons e-14 3))))(else (if (null? arg-7) (if (null? arg-6) (lambda (clam-35) (if (null? arg-7) (vector 1 arg-6) (let ((e-2 (car arg-7))) (let ((e-3 (cdr arg-7))) (cond ((equal? e-3 4) (vector 1 (cons e-2 4)))(else (vector 1 arg-6))))))) (let ((e-6 (car arg-6))) (let ((e-7 (cdr arg-6))) (cond ((equal? e-7 4) (lambda (eta-0) (vector 1 (cons e-6 4))))(else (lambda (clam-34) (if (null? arg-7) (vector 1 arg-6) (let ((e-2 (car arg-7))) (let ((e-3 (cdr arg-7))) (cond ((equal? e-3 4) (vector 1 (cons e-2 4)))(else (vector 1 arg-6)))))))))))) (let ((e-10 (car arg-7))) (let ((e-11 (cdr arg-7))) (cond ((equal? e-11 3) (lambda (eta-0) (vector 1 (cons e-10 3))))(else (if (null? arg-6) (lambda (clam-33) (if (null? arg-7) (vector 1 arg-6) (let ((e-2 (car arg-7))) (let ((e-3 (cdr arg-7))) (cond ((equal? e-3 4) (vector 1 (cons e-2 4)))(else (vector 1 arg-6))))))) (let ((e-6 (car arg-6))) (let ((e-7 (cdr arg-6))) (cond ((equal? e-7 4) (lambda (eta-0) (vector 1 (cons e-6 4))))(else (lambda (clam-32) (if (null? arg-7) (vector 1 arg-6) (let ((e-2 (car arg-7))) (let ((e-3 (cdr arg-7))) (cond ((equal? e-3 4) (vector 1 (cons e-2 4)))(else (vector 1 arg-6)))))))))))))))))))))))))))))))) ((equal? e-23 0) (lambda (eta-0) (vector 1 (cons e-22 0))))(else (if (null? arg-7) (if (null? arg-6) (if (null? arg-7) (if (null? arg-6) (lambda (clam-79) (if (null? arg-7) (vector 1 arg-6) (let ((e-2 (car arg-7))) (let ((e-3 (cdr arg-7))) (cond ((equal? e-3 4) (vector 1 (cons e-2 4)))(else (vector 1 arg-6))))))) (let ((e-6 (car arg-6))) (let ((e-7 (cdr arg-6))) (cond ((equal? e-7 4) (lambda (eta-0) (vector 1 (cons e-6 4))))(else (lambda (clam-78) (if (null? arg-7) (vector 1 arg-6) (let ((e-2 (car arg-7))) (let ((e-3 (cdr arg-7))) (cond ((equal? e-3 4) (vector 1 (cons e-2 4)))(else (vector 1 arg-6)))))))))))) (let ((e-10 (car arg-7))) (let ((e-11 (cdr arg-7))) (cond ((equal? e-11 3) (lambda (eta-0) (vector 1 (cons e-10 3))))(else (if (null? arg-6) (lambda (clam-77) (if (null? arg-7) (vector 1 arg-6) (let ((e-2 (car arg-7))) (let ((e-3 (cdr arg-7))) (cond ((equal? e-3 4) (vector 1 (cons e-2 4)))(else (vector 1 arg-6))))))) (let ((e-6 (car arg-6))) (let ((e-7 (cdr arg-6))) (cond ((equal? e-7 4) (lambda (eta-0) (vector 1 (cons e-6 4))))(else (lambda (clam-76) (if (null? arg-7) (vector 1 arg-6) (let ((e-2 (car arg-7))) (let ((e-3 (cdr arg-7))) (cond ((equal? e-3 4) (vector 1 (cons e-2 4)))(else (vector 1 arg-6))))))))))))))))) (let ((e-14 (car arg-6))) (let ((e-15 (cdr arg-6))) (cond ((equal? e-15 3) (lambda (eta-0) (vector 1 (cons e-14 3))))(else (if (null? arg-7) (if (null? arg-6) (lambda (clam-75) (if (null? arg-7) (vector 1 arg-6) (let ((e-2 (car arg-7))) (let ((e-3 (cdr arg-7))) (cond ((equal? e-3 4) (vector 1 (cons e-2 4)))(else (vector 1 arg-6))))))) (let ((e-6 (car arg-6))) (let ((e-7 (cdr arg-6))) (cond ((equal? e-7 4) (lambda (eta-0) (vector 1 (cons e-6 4))))(else (lambda (clam-74) (if (null? arg-7) (vector 1 arg-6) (let ((e-2 (car arg-7))) (let ((e-3 (cdr arg-7))) (cond ((equal? e-3 4) (vector 1 (cons e-2 4)))(else (vector 1 arg-6)))))))))))) (let ((e-10 (car arg-7))) (let ((e-11 (cdr arg-7))) (cond ((equal? e-11 3) (lambda (eta-0) (vector 1 (cons e-10 3))))(else (if (null? arg-6) (lambda (clam-73) (if (null? arg-7) (vector 1 arg-6) (let ((e-2 (car arg-7))) (let ((e-3 (cdr arg-7))) (cond ((equal? e-3 4) (vector 1 (cons e-2 4)))(else (vector 1 arg-6))))))) (let ((e-6 (car arg-6))) (let ((e-7 (cdr arg-6))) (cond ((equal? e-7 4) (lambda (eta-0) (vector 1 (cons e-6 4))))(else (lambda (clam-72) (if (null? arg-7) (vector 1 arg-6) (let ((e-2 (car arg-7))) (let ((e-3 (cdr arg-7))) (cond ((equal? e-3 4) (vector 1 (cons e-2 4)))(else (vector 1 arg-6)))))))))))))))))))))) (let ((e-18 (car arg-7))) (let ((e-19 (cdr arg-7))) (cond ((equal? e-19 0) (lambda (eta-0) (vector 1 (cons e-18 0))))(else (if (null? arg-6) (if (null? arg-7) (if (null? arg-6) (lambda (clam-71) (if (null? arg-7) (vector 1 arg-6) (let ((e-2 (car arg-7))) (let ((e-3 (cdr arg-7))) (cond ((equal? e-3 4) (vector 1 (cons e-2 4)))(else (vector 1 arg-6))))))) (let ((e-6 (car arg-6))) (let ((e-7 (cdr arg-6))) (cond ((equal? e-7 4) (lambda (eta-0) (vector 1 (cons e-6 4))))(else (lambda (clam-70) (if (null? arg-7) (vector 1 arg-6) (let ((e-2 (car arg-7))) (let ((e-3 (cdr arg-7))) (cond ((equal? e-3 4) (vector 1 (cons e-2 4)))(else (vector 1 arg-6)))))))))))) (let ((e-10 (car arg-7))) (let ((e-11 (cdr arg-7))) (cond ((equal? e-11 3) (lambda (eta-0) (vector 1 (cons e-10 3))))(else (if (null? arg-6) (lambda (clam-69) (if (null? arg-7) (vector 1 arg-6) (let ((e-2 (car arg-7))) (let ((e-3 (cdr arg-7))) (cond ((equal? e-3 4) (vector 1 (cons e-2 4)))(else (vector 1 arg-6))))))) (let ((e-6 (car arg-6))) (let ((e-7 (cdr arg-6))) (cond ((equal? e-7 4) (lambda (eta-0) (vector 1 (cons e-6 4))))(else (lambda (clam-68) (if (null? arg-7) (vector 1 arg-6) (let ((e-2 (car arg-7))) (let ((e-3 (cdr arg-7))) (cond ((equal? e-3 4) (vector 1 (cons e-2 4)))(else (vector 1 arg-6))))))))))))))))) (let ((e-14 (car arg-6))) (let ((e-15 (cdr arg-6))) (cond ((equal? e-15 3) (lambda (eta-0) (vector 1 (cons e-14 3))))(else (if (null? arg-7) (if (null? arg-6) (lambda (clam-67) (if (null? arg-7) (vector 1 arg-6) (let ((e-2 (car arg-7))) (let ((e-3 (cdr arg-7))) (cond ((equal? e-3 4) (vector 1 (cons e-2 4)))(else (vector 1 arg-6))))))) (let ((e-6 (car arg-6))) (let ((e-7 (cdr arg-6))) (cond ((equal? e-7 4) (lambda (eta-0) (vector 1 (cons e-6 4))))(else (lambda (clam-66) (if (null? arg-7) (vector 1 arg-6) (let ((e-2 (car arg-7))) (let ((e-3 (cdr arg-7))) (cond ((equal? e-3 4) (vector 1 (cons e-2 4)))(else (vector 1 arg-6)))))))))))) (let ((e-10 (car arg-7))) (let ((e-11 (cdr arg-7))) (cond ((equal? e-11 3) (lambda (eta-0) (vector 1 (cons e-10 3))))(else (if (null? arg-6) (lambda (clam-65) (if (null? arg-7) (vector 1 arg-6) (let ((e-2 (car arg-7))) (let ((e-3 (cdr arg-7))) (cond ((equal? e-3 4) (vector 1 (cons e-2 4)))(else (vector 1 arg-6))))))) (let ((e-6 (car arg-6))) (let ((e-7 (cdr arg-6))) (cond ((equal? e-7 4) (lambda (eta-0) (vector 1 (cons e-6 4))))(else (lambda (clam-64) (if (null? arg-7) (vector 1 arg-6) (let ((e-2 (car arg-7))) (let ((e-3 (cdr arg-7))) (cond ((equal? e-3 4) (vector 1 (cons e-2 4)))(else (vector 1 arg-6)))))))))))))))))))))))))))))))))) +(define CoreC-45LinearCheck-n--7735-11771-u--combine (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (if (null? arg-6) (vector 1 '()) (let ((e-2 (car arg-6))) (let ((e-3 (cdr arg-6))) (if (null? e-3) (vector 1 e-2) (let ((act-24 (CoreC-45LinearCheck-n--7735-11771-u--combine arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (CoreC-45LinearCheck-n--7735-11770-u--combineUsages arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2 e-5 ext-0))))))))))) +(define CoreC-45LinearCheck-n--14696-14305-u--checkUsageOK (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 ext-0) (let ((sc0 (let ((sc1 (AlgebraC-45Semiring-isLinear (cons (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-13) (lambda (arg-14) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-13 arg-14))) (lambda (arg-13) (lambda (arg-14) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-13 arg-14))))) arg-12))) (cond ((equal? sc1 1) (PreludeC-45Types-u--C-47C-61_Eq_Nat arg-11 (PreludeC-45Types-u--fromInteger_Num_Nat 1))) (else 0))))) (cond ((equal? sc0 1) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 13 arg-8 arg-11 arg-0) ext-0)) (else (vector 1 0)))))) +(define CoreC-45LinearCheck-n--7735-11765-u--checkUsageOK (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 ext-0) (let ((sc0 (let ((sc1 (AlgebraC-45Semiring-isLinear (cons (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-11) (lambda (arg-12) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-11 arg-12))))) arg-10))) (cond ((equal? sc1 1) (let ((sc2 (cond ((equal? arg-9 1) (PreludeC-45Types-u--C-62_Ord_Nat arg-7 (PreludeC-45Types-u--fromInteger_Num_Nat 1))) (else 0)))) (cond ((equal? sc2 1) 1) (else (cond ((equal? arg-9 1) 0) (else (PreludeC-45Types-u--C-47C-61_Eq_Nat arg-7 (PreludeC-45Types-u--fromInteger_Num_Nat 1)))))))) (else 0))))) (cond ((equal? sc0 1) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 13 arg-6 arg-7 arg-8) ext-0)) (else (vector 1 0)))))) +(define CoreC-45LinearCheck-n--7707-9039-u--checkUsageOK (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 ext-0) (let ((sc0 (let ((sc1 (AlgebraC-45Semiring-isLinear (cons (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-12) (lambda (arg-13) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-12 arg-13))) (lambda (arg-12) (lambda (arg-13) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-12 arg-13))))) arg-11))) (cond ((equal? sc1 1) (PreludeC-45Types-u--C-47C-61_Eq_Nat arg-10 (PreludeC-45Types-u--fromInteger_Num_Nat 1))) (else 0))))) (cond ((equal? sc0 1) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 13 arg-4 arg-10 arg-1) ext-0)) (else (vector 1 0)))))) +(define CoreC-45LinearCheck-n--7735-11767-u--checkEnvUsage (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (if (null? arg-7) (lambda (clam-0) (vector 1 0)) (let ((e-2 (car arg-7))) (let ((e-3 (cdr arg-7))) (let ((e-8 (car arg-9))) (let ((e-9 (cdr arg-9))) (let ((u--pos (CoreC-45LinearCheck-localPrf arg-6))) (let ((u--used_in (CoreC-45LinearCheck-count (CoreC-45TT-varIdx u--pos) arg-10))) (lambda (eta-0) (let ((act-24 (let ((sc2 (AlgebraC-45Semiring-isLinear (cons (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-13) (lambda (arg-14) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-13 arg-14))) (lambda (arg-13) (lambda (arg-14) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-13 arg-14))))) (CoreC-45TT-multiplicity e-8)))) (cond ((equal? sc2 1) ((CoreC-45LinearCheck-updateHoleUsage (PreludeC-45TypesC-45List-C-43C-43 arg-6 (cons e-2 e-3)) arg-5 arg-4 (PreludeC-45Types-u--C-61C-61_Eq_Nat u--used_in (PreludeC-45Types-u--fromInteger_Num_Nat 0)) u--pos '() arg-12) eta-0)) (else (vector 1 0)))))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((u--used (let ((sc3 (let ((sc4 (AlgebraC-45Semiring-isLinear (cons (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-13) (lambda (arg-14) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-13 arg-14))) (lambda (arg-13) (lambda (arg-14) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-13 arg-14))))) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega (CoreC-45TT-multiplicity e-8) arg-8)))) (cond ((equal? sc4 1) (cond ((equal? e-5 1) (PreludeC-45Types-u--C-61C-61_Eq_Nat u--used_in (PreludeC-45Types-u--fromInteger_Num_Nat 0))) (else 0))) (else 0))))) (cond ((equal? sc3 1) (PreludeC-45Types-u--fromInteger_Num_Nat 1)) (else u--used_in))))) (let ((act-25 (CoreC-45LinearCheck-n--7735-11765-u--checkUsageOK arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (CoreC-45TT-getLoc (CoreC-45TT-binderType e-8)) u--used e-2 (CoreC-45LinearCheck-n--7735-11766-u--isLocArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 u--pos arg-11) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega (CoreC-45TT-multiplicity e-8) arg-8) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else ((CoreC-45LinearCheck-n--7735-11767-u--checkEnvUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (PreludeC-45TypesC-45List-C-43C-43 arg-6 (cons e-2 '())) e-3 arg-8 e-9 arg-10 arg-11 arg-12) eta-0))))))))))))))))))) +(define CoreC-45LinearCheck-u--show_Show_ArgUsage (lambda (arg-0) (cond ((equal? arg-0 0) "any") ((equal? arg-0 1) "0") ((equal? arg-0 2) "1") ((equal? arg-0 3) "keep") (else "unknown")))) +(define CoreC-45LinearCheck-u--show_Show_C-40UsageC-32C-36varsC-41 (lambda (arg-1) (PreludeC-45TypesC-45String-C-43C-43 "[" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45LinearCheck-n--6183-6845-u--showAll arg-1 arg-1) "]")))) (define CoreC-45LinearCheck-u--showPrec_Show_ArgUsage (lambda (arg-0 arg-1) (CoreC-45LinearCheck-u--show_Show_ArgUsage arg-1))) -(define CoreC-45LinearCheck-updateHoleUsageArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((sc0 arg-6)) (if (null? sc0) (vector 1 1) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((act-24 ((CoreC-45LinearCheck-updateHoleUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45LinearCheck-updateHoleUsageArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (PreludeC-45Basics-C-124C-124 e-5 (lambda () e-6))))))))))))))))))) -(define CoreC-45LinearCheck-updateHoleUsage (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((3) (let ((e-29 (vector-ref sc0 2))) (let ((e-30 (vector-ref sc0 3))) (let ((e-31 (vector-ref sc0 4))) (let ((sc1 e-30)) (case (vector-ref sc1 0) ((1) (let ((e-35 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((CoreC-45LinearCheck-updateHoleUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-35) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((CoreC-45LinearCheck-updateHoleUsage (cons e-29 arg-0) arg-1 arg-2 arg-3 (+ 1 arg-4) (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (CoreC-45TT-u--weaken_Weaken_Var eta-1)) arg-5) e-31) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 (PreludeC-45Basics-C-124C-124 e-5 (lambda () e-6))))))))))))))))(else (CoreC-45LinearCheck-updateHoleUsage (cons e-29 arg-0) arg-1 arg-2 arg-3 (+ 1 arg-4) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45TT-u--weaken_Weaken_Var eta-0)) arg-5) e-31))))))))(else (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact (vector 9 e-3) (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-7 (vector-ref sc3 1))) (let ((_-0 (vector 1 e-7))) ((CoreC-45LinearCheck-case--caseC-32blockC-32inC-32updateHoleUsage-1785 arg-0 e-4 e-3 e-2 e-1 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-7 _-0 (let ((sc4 e-7)) (let ((e-17 (vector-ref sc4 18))) e-17))) eta-0)))) (else (CoreC-45LinearCheck-updateHoleUsageArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-4 eta-0)))))))))))))))))))) ((5) (let ((e-8 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((CoreC-45LinearCheck-updateHoleUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-8) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((CoreC-45LinearCheck-updateHoleUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-8) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc2 1))) (vector 1 (PreludeC-45Basics-C-124C-124 e-5 (lambda () e-10)))))))))))))))) ((6) (let ((e-13 (vector-ref sc0 3))) (CoreC-45LinearCheck-updateHoleUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-13))) ((7) (let ((e-18 (vector-ref sc0 4))) (CoreC-45LinearCheck-updateHoleUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-18))) ((8) (let ((e-22 (vector-ref sc0 3))) (CoreC-45LinearCheck-updateHoleUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-22)))(else (CoreC-45LinearCheck-case--updateHoleUsage-1983 arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (CoreC-45TT-getFnArgs arg-6)))))))))) -(define CoreC-45LinearCheck-updateHoleType (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (let ((e-9 (vector-ref sc1 4))) (let ((sc2 arg-8)) (if (null? sc2) (lambda (eta-0) (let ((act-24 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (let ((sc3 eta-1)) (case (vector-ref sc3 0) ((0) (let ((e-5 (vector-ref sc3 1))) (vector 0 e-5))) (else (vector 1 (vector 0 )))))) (lambda (eta-1) (CoreC-45LinearCheck-updateHoleUsageArgs arg-1 arg-2 arg-3 1 arg-5 arg-6 arg-8 eta-1)) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-5 (vector-ref sc3 1))) (vector 0 e-5))) (else (vector 1 arg-7)))))) (let ((e-11 (car sc2))) (let ((e-12 (cdr sc2))) (let ((sc3 e-11)) (case (vector-ref sc3 0) ((0) (let ((e-15 (vector-ref sc3 1))) (let ((e-16 (vector-ref sc3 2))) (let ((e-17 (vector-ref sc3 3))) (CoreC-45LinearCheck-case--updateHoleType-1034 arg-1 arg-2 e-15 e-17 e-9 e-8 e-7 e-6 e-2 e-4 e-1 e-16 e-12 arg-6 arg-5 arg-4 arg-3 (PreludeC-45Types-u--C-61C-61_Eq_Nat (CoreC-45TT-varIdx arg-5) e-17))))))(else (lambda (eta-0) (let ((act-24 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (let ((sc3 eta-1)) (case (vector-ref sc3 0) ((0) (let ((e-5 (vector-ref sc3 1))) (vector 0 e-5))) (else (vector 1 (vector 0 )))))) (CoreC-45LinearCheck-updateHoleUsage arg-1 arg-2 arg-3 1 arg-5 arg-6 e-11) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-5 (vector-ref sc3 1))) (vector 0 e-5))) (else (let ((act-25 ((CoreC-45LinearCheck-updateHoleType arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-4 e-12) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc4 1))) (vector 1 (vector 3 e-1 e-2 (vector 2 e-6 e-7 e-8 e-9) e-10))))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (vector 1 (vector 0 )))))) (lambda (eta-1) (CoreC-45LinearCheck-updateHoleUsageArgs arg-1 arg-2 arg-3 1 arg-5 arg-6 arg-8 eta-1)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (vector 1 arg-7))))))))))))))(else (lambda (eta-0) (let ((act-24 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (let ((sc0 eta-1)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))) (lambda (eta-1) (CoreC-45LinearCheck-updateHoleUsageArgs arg-1 arg-2 arg-3 1 arg-5 arg-6 arg-8 eta-1)) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (vector 1 arg-7))))))))))) -(define CoreC-45LinearCheck-localPrf (lambda (arg-2) (let ((sc0 arg-2)) (if (null? sc0) 0 (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (CoreC-45LinearCheck-case--localPrf-930 e-2 e-3 (CoreC-45LinearCheck-localPrf e-3)))))))) -(define CoreC-45LinearCheck-linearCheck (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 (CoreC-45ContextC-45Log-logTerm arg-0 arg-1 "quantity" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Linearity check on ") arg-7 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45Normalise-logEnv arg-0 arg-1 "quantity" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) "In env" arg-6 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 ((CoreC-45LinearCheck-lcheck arg-0 arg-1 arg-2 arg-4 arg-5 arg-6 arg-7) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (let ((e-2 (car sc3))) (let ((e-3 (cdr sc3))) (let ((sc4 e-3)) (let ((e-8 (cdr sc4))) (let ((act-27 (CoreC-45ContextC-45Log-log arg-1 "quantity" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Used: " (CoreC-45LinearCheck-u--show_Show_C-40UsageC-32C-36varsC-41 e-8))) ext-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((act-28 (let ((sc6 arg-5)) (cond ((equal? sc6 0) (vector 1 (vector 0 ))) (else ((CoreC-45LinearCheck-checkEnvUsage arg-0 '() arg-1 arg-2 arg-3 arg-4 arg-6 e-8 e-2) ext-0)))))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (vector 1 e-2))))))))))))))))))))))))))))) -(define CoreC-45LinearCheck-lcheckMeta (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-9)) (if (null? sc0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (cons (vector 2 arg-6 arg-7 arg-8 (DataC-45List-reverse arg-10)) (cons (CoreC-45Normalise-glueBack arg-1 arg-0 e-5 arg-5 arg-11) '()))))))))) (let ((e-1 (car sc0))) (let ((e-2 (cdr sc0))) (let ((sc1 arg-11)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((e-7 (vector-ref sc1 3))) (let ((e-8 (vector-ref sc1 4))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((2) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((e-12 (vector-ref sc2 3))) (let ((e-13 (vector-ref sc2 4))) (let ((u--checkRig (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega e-11 arg-3))) (lambda (eta-0) (let ((act-24 ((CoreC-45LinearCheck-lcheck arg-0 arg-1 arg-2 u--checkRig arg-4 arg-5 e-1) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc3 1))) (let ((sc4 e-9)) (let ((e-4 (car sc4))) (let ((e-3 (cdr sc4))) (let ((sc5 e-3)) (let ((e-15 (car sc5))) (let ((e-14 (cdr sc5))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-16 (vector-ref sc6 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc6 1))) (let ((act-26 (((e-8 e-16) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) arg-5 e-4)) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-17 (vector-ref sc7 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc7 1))) (let ((u--aerased (let ((_-0 (cons e-4 (cons e-15 e-14)))) (CoreC-45LinearCheck-case--caseC-32blockC-32inC-32lcheckMeta-7822 arg-0 e-5 e-6 e-10 e-12 e-1 e-2 e-13 e-11 e-8 arg-10 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 u--checkRig e-4 e-15 e-14 _-0 e-16 e-17 (PreludeC-45Basics-C-38C-38 arg-4 (lambda () (AlgebraC-45Semiring-isErased (cons (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-12) (lambda (arg-13) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-12 arg-13))) (lambda (arg-12) (lambda (arg-13) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-12 arg-13))))) e-11))))))) (let ((act-27 ((CoreC-45LinearCheck-lcheckMeta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2 (cons u--aerased arg-10) e-17) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-18 (vector-ref sc8 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc8 1))) (let ((sc9 e-18)) (let ((e-20 (car sc9))) (let ((e-19 (cdr sc9))) (let ((sc10 e-19)) (let ((e-22 (car sc10))) (let ((e-21 (cdr sc10))) (vector 1 (cons e-20 (cons e-22 (CoreC-45LinearCheck-C-43C-43 e-14 e-21))))))))))))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc2 1))) (let ((act-25 (CoreC-45Context-clearDefs e-9 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-10 (vector-ref sc3 1))) (let ((act-26 (CoreC-45Normalise-u--quote_Quote_NF arg-1 arg-0 e-10 arg-5 arg-11 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-11 (vector-ref sc4 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-6 (PreludeC-45TypesC-45String-C-43C-43 "Linearity checking failed on metavar " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name arg-7) (PreludeC-45TypesC-45String-C-43C-43 " (" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 e-11) " not a function type)"))))) eta-0)))))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Context-clearDefs e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (CoreC-45Normalise-u--quote_Quote_NF arg-1 arg-0 e-6 arg-5 arg-11 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-6 (PreludeC-45TypesC-45String-C-43C-43 "Linearity checking failed on metavar " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name arg-7) (PreludeC-45TypesC-45String-C-43C-43 " (" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 e-7) " not a function type)"))))) eta-0)))))))))))))))))))))))))) -(define CoreC-45LinearCheck-lcheckDef (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact arg-7 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (vector 1 (let ((sc4 e-1)) (let ((e-2 (vector-ref sc4 3))) e-2))))) (else (CoreC-45Context-undefinedName arg-1 arg-3 arg-7 ext-0))))))))))))))) (else (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (CoreC-45LinearCheck-case--lcheckDef-7311 arg-7 arg-6 arg-4 arg-3 arg-2 arg-1 e-5 (CoreC-45Context-getNameID arg-7 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) ext-0))))))))))) -(define CoreC-45LinearCheck-lcheckBinder (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((act-24 ((CoreC-45LinearCheck-lcheck arg-0 arg-1 arg-2 (AlgebraC-45Semiring-erased (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))) arg-4 arg-5 e-4) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-7 (car sc2))) (let ((e-6 (cdr sc2))) (let ((sc3 e-6)) (let ((e-9 (car sc3))) (vector 1 (cons (vector 0 e-1 e-2 e-3 e-7) (cons e-9 '())))))))))))))))))) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (let ((e-9 (vector-ref sc0 4))) (let ((act-24 ((CoreC-45LinearCheck-lcheck arg-0 arg-1 arg-2 (AlgebraC-45Semiring-erased (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))) arg-4 arg-5 e-9) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (car sc2))) (let ((e-3 (cdr sc2))) (let ((sc3 e-3)) (let ((e-11 (car sc3))) (let ((act-25 ((CoreC-45LinearCheck-lcheck arg-0 arg-1 arg-2 (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-3 e-7) arg-4 arg-5 e-8) ext-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc4 1))) (let ((sc5 e-12)) (let ((e-13 (car sc5))) (let ((e-4 (cdr sc5))) (let ((sc6 e-4)) (let ((e-14 (cdr sc6))) (vector 1 (cons (vector 1 e-6 e-7 e-13 e-2) (cons e-11 e-14)))))))))))))))))))))))))))) ((2) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 4))) (let ((act-24 ((CoreC-45LinearCheck-lcheck arg-0 arg-1 arg-2 (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-3 e-12) arg-4 arg-5 e-14) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (car sc2))) (let ((e-3 (cdr sc2))) (let ((sc3 e-3)) (let ((e-6 (car sc3))) (vector 1 (cons (vector 2 e-11 e-12 e-13 e-2) (cons e-6 '())))))))))))))))))) ((3) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (let ((act-24 ((CoreC-45LinearCheck-lcheck arg-0 arg-1 arg-2 (AlgebraC-45Semiring-erased (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))) arg-4 arg-5 e-19) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (car sc2))) (let ((e-3 (cdr sc2))) (let ((sc3 e-3)) (let ((e-6 (car sc3))) (vector 1 (cons (vector 3 e-16 e-17 e-18 e-2) (cons e-6 '())))))))))))))))))) ((4) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (let ((e-24 (vector-ref sc0 4))) (let ((act-24 ((CoreC-45LinearCheck-lcheck arg-0 arg-1 arg-2 (AlgebraC-45Semiring-erased (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))) arg-4 arg-5 e-24) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (car sc2))) (let ((e-3 (cdr sc2))) (let ((sc3 e-3)) (let ((e-6 (car sc3))) (let ((act-25 ((CoreC-45LinearCheck-lcheck arg-0 arg-1 arg-2 (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-3 e-22) arg-4 arg-5 e-23) ext-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (let ((e-9 (car sc5))) (let ((e-4 (cdr sc5))) (let ((sc6 e-4)) (let ((e-10 (cdr sc6))) (vector 1 (cons (vector 4 e-21 e-22 e-9 e-2) (cons e-6 e-10)))))))))))))))))))))))))))) (else (let ((e-26 (vector-ref sc0 1))) (let ((e-27 (vector-ref sc0 2))) (let ((e-28 (vector-ref sc0 3))) (let ((act-24 ((CoreC-45LinearCheck-lcheck arg-0 arg-1 arg-2 (AlgebraC-45Semiring-erased (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))) arg-4 arg-5 e-28) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (car sc2))) (let ((e-3 (cdr sc2))) (let ((sc3 e-3)) (let ((e-6 (car sc3))) (vector 1 (cons (vector 5 e-26 e-27 e-2) (cons e-6 '()))))))))))))))))))))) -(define CoreC-45LinearCheck-lcheck (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((u--b (CoreC-45Env-getBinder (cons (lambda (u--n) (lambda (u--vars) (lambda (arg-5476) (CoreC-45TT-u--weaken_Weaken_Term arg-5476)))) (lambda (u--vars) (lambda (u--ns) (lambda (arg-5481) (lambda (arg-5483) (CoreC-45TT-u--weakenNs_Weaken_Term arg-5481 arg-5483)))))) arg-0 e-4 arg-5))) (let ((u--rigb (CoreC-45TT-multiplicity u--b))) (let ((u--ty (CoreC-45TT-binderType u--b))) (lambda (eta-0) (let ((act-24 (let ((sc1 arg-4)) (cond ((equal? sc1 0) (vector 1 (vector 0 ))) (else (CoreC-45LinearCheck-n--10246-2126-u--rigSafe e-4 arg-0 e-3 e-2 arg-5 arg-4 arg-3 arg-2 arg-1 u--rigb arg-3 eta-0)))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (vector 1 (cons (vector 0 e-2 e-3 e-4) (cons (CoreC-45Normalise-gnf arg-0 arg-5 u--ty) (CoreC-45LinearCheck-n--10246-2127-u--used e-4 arg-0 e-3 e-2 arg-5 arg-4 arg-3 arg-2 arg-1 arg-3)))))))))))))))) ((1) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (CoreC-45LinearCheck-lcheckDef arg-1 arg-2 e-7 arg-3 arg-4 arg-5 e-9 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (cons (vector 1 e-7 e-8 e-9) (cons (CoreC-45Normalise-gnf arg-0 arg-5 (CoreC-45TT-embed e-5)) '()))))))))))))) ((2) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact (vector 9 e-13) (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((u--expand (AlgebraC-45Semiring-branchZero (cons (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-7) (lambda (arg-8) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-7 arg-8))) (lambda (arg-7) (lambda (arg-8) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-7 arg-8))))) (let ((_-0 (vector 1 e-1))) (CoreC-45LinearCheck-case--caseC-32blockC-32inC-32lcheck-2456 arg-0 e-14 e-13 e-12 e-11 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-1 _-0 (let ((sc4 e-1)) (let ((e-2 (vector-ref sc4 3))) e-2)))) (let ((_-0 (vector 1 e-1))) (CoreC-45LinearCheck-case--caseC-32blockC-32inC-32lcheck-2518 arg-0 e-14 e-13 e-12 e-11 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-1 _-0 (let ((sc4 e-1)) (let ((e-17 (vector-ref sc4 18))) e-17)))) arg-3))) (let ((act-26 (CoreC-45ContextC-45Log-logC arg-1 "quantity" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda (eta-1) (let ((act-26 (let ((_-0 (vector 1 e-1))) (CoreC-45LinearCheck-case--caseC-32blockC-32inC-32lcheck-2765 arg-0 e-14 e-13 e-12 e-11 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-1 _-0 u--expand (let ((sc4 e-1)) (let ((e-17 (vector-ref sc4 18))) e-17)) eta-1)))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (vector 1 (PreludeC-45TypesC-45String-C-43C-43 (AlgebraC-45ZeroOneOmega-u--show_Show_ZeroOneOmega arg-3) (PreludeC-45TypesC-45String-C-43C-43 ": " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-12) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC e-11) (PreludeC-45TypesC-45String-C-43C-43 "\u000a" (PreludeC-45Show-u--show_Show_String e-7)))))))))))))) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((_-0 (vector 1 e-1))) (let ((sc5 u--expand)) (cond ((equal? sc5 0) ((CoreC-45LinearCheck-expandMeta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-12 e-13 (let ((sc6 e-1)) (let ((e-17 (vector-ref sc6 18))) e-17)) e-14) eta-0)) (else (let ((u--ty (let ((expand-0 1)) (CoreC-45LinearCheck-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32lcheck-2683 arg-0 e-14 e-13 e-12 e-11 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-1 _-0 expand-0 (let ((sc6 e-1)) (let ((e-17 (vector-ref sc6 18))) e-17)))))) (let ((act-27 ((CoreC-45Normalise-nf arg-1 arg-0 e-5 arg-5 (CoreC-45TT-embed u--ty)) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc6 1))) ((CoreC-45LinearCheck-lcheckMeta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-11 e-12 e-13 e-14 '() e-8) eta-0))))))))))))))))))(else (CoreC-45Context-undefinedName arg-1 e-11 e-12 eta-0)))))))))))))))))))) ((3) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (CoreC-45UnifyState-handleUnify arg-1 arg-2 (lambda (eta-1) (CoreC-45LinearCheck-lcheckBinder arg-0 arg-1 arg-2 (CoreC-45LinearCheck-n--10246-2887-u--rig arg-0 e-17 e-19 e-18 e-16 arg-5 arg-4 arg-3 arg-2 arg-1) arg-4 arg-5 e-18 eta-1)) (lambda (u--err) (let ((sc1 u--err)) (case (vector-ref sc1 0) ((14) (lambda (eta-1) (CoreC-45LinearCheck-lcheckBinder arg-0 arg-1 arg-2 (CoreC-45LinearCheck-n--10246-2887-u--rig arg-0 e-17 e-19 e-18 e-16 arg-5 arg-4 arg-3 arg-2 arg-1) arg-4 arg-5 (CoreC-45TT-setMultiplicity e-18 (AlgebraC-45Semiring-linear (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)))) eta-1)))(else (lambda (eta-1) (CoreC-45Core-u--throw_Catchable_Core_Error u--err eta-1)))))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (car sc2))) (let ((e-3 (cdr sc2))) (let ((sc3 e-3)) (let ((e-6 (car sc3))) (let ((e-7 (cdr sc3))) (let ((u--envC-39 (let ((_-0 (cons e-2 (cons e-6 e-7)))) (CoreC-45LinearCheck-case--caseC-32blockC-32inC-32lcheck-3720 arg-0 e-17 e-19 e-18 e-16 arg-5 arg-4 arg-3 arg-2 arg-1 e-2 e-6 e-7 _-0 (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-3 (AlgebraC-45ZeroOneOmega-u--top_Top_ZeroOneOmega)))))) (let ((act-25 ((CoreC-45LinearCheck-lcheck (cons e-17 arg-0) arg-1 arg-2 (CoreC-45LinearCheck-n--10246-2887-u--rig arg-0 e-17 e-19 e-18 e-16 arg-5 arg-4 arg-3 arg-2 arg-1) arg-4 (cons e-2 u--envC-39) e-19) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((_-0 (cons e-2 (cons e-6 e-7)))) (let ((sc5 e-8)) (let ((e-9 (car sc5))) (let ((e-4 (cdr sc5))) (let ((sc6 e-4)) (let ((e-11 (car sc6))) (let ((e-10 (cdr sc6))) (let ((act-26 (let ((act-26 (unbox arg-1))) (vector 1 act-26)))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-12 (vector-ref sc7 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc7 1))) (let ((u--used_in (CoreC-45LinearCheck-count 0 e-10))) (let ((act-27 (let ((_-1 (cons e-9 (cons e-11 e-10)))) ((CoreC-45LinearCheck-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32lcheck-3599 arg-0 e-17 e-19 e-18 e-16 arg-5 arg-4 arg-3 arg-2 arg-1 e-2 e-6 e-7 _-0 u--envC-39 e-9 e-11 e-10 _-1 e-12 u--used_in (PreludeC-45Basics-C-38C-38 (let ((sc8 arg-4)) (cond ((equal? sc8 0) 1) (else 0))) (lambda () (AlgebraC-45Semiring-isLinear (cons (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-7) (lambda (arg-8) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-7 arg-8))) (lambda (arg-7) (lambda (arg-8) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-7 arg-8))))) (CoreC-45TT-multiplicity e-18))))) eta-0)))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc8 1))) (let ((u--used (let ((_-1 (cons e-9 (cons e-11 e-10)))) (CoreC-45LinearCheck-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32lcheck-3474 arg-0 e-17 e-19 e-18 e-16 arg-5 arg-4 arg-3 arg-2 arg-1 e-2 e-6 e-7 _-0 u--envC-39 e-9 e-11 e-10 _-1 e-12 u--used_in e-13 (PreludeC-45Basics-C-38C-38 (AlgebraC-45Semiring-isLinear (cons (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-7) (lambda (arg-8) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-7 arg-8))) (lambda (arg-7) (lambda (arg-8) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-7 arg-8))))) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega (CoreC-45TT-multiplicity e-18) (CoreC-45LinearCheck-n--10246-2887-u--rig arg-0 e-17 e-19 e-18 e-16 arg-5 arg-4 arg-3 arg-2 arg-1))) (lambda () (PreludeC-45Basics-C-38C-38 e-13 (lambda () (PreludeC-45Types-u--C-61C-61_Eq_Nat u--used_in (PreludeC-45Types-u--fromInteger_Num_Nat 0)))))))))) (let ((act-28 (let ((sc9 arg-4)) (cond ((equal? sc9 0) (vector 1 (vector 0 ))) (else (CoreC-45LinearCheck-n--10246-2890-u--checkUsageOK arg-0 e-17 e-19 e-18 e-16 arg-5 arg-4 arg-3 arg-2 arg-1 u--used (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega (CoreC-45TT-multiplicity e-18) (CoreC-45LinearCheck-n--10246-2887-u--rig arg-0 e-17 e-19 e-18 e-16 arg-5 arg-4 arg-3 arg-2 arg-1)) eta-0)))))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (vector 0 e-14))) (else (let ((act-29 (let ((act-29 (unbox arg-1))) (vector 1 act-29)))) (let ((sc10 act-29)) (case (vector-ref sc10 0) ((0) (let ((e-15 (vector-ref sc10 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc10 1))) (CoreC-45LinearCheck-discharge arg-0 e-15 arg-5 e-16 e-17 e-2 e-6 e-9 e-11 (CoreC-45LinearCheck-C-43C-43 e-7 (CoreC-45LinearCheck-doneScope e-10)) eta-0)))))))))))))))))))))))))))))))))))))))))))))))))))) ((4) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((CoreC-45LinearCheck-lcheck arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-22) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (car sc2))) (let ((e-3 (cdr sc2))) (let ((sc3 e-3)) (let ((e-6 (car sc3))) (let ((e-7 (cdr sc3))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-26 ((CoreC-45Normalise-getNF arg-1 e-6) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (let ((_-0 (cons e-2 (cons e-6 e-7)))) (let ((sc6 e-9)) (case (vector-ref sc6 0) ((0) (let ((e-1 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (let ((e-10 (vector-ref sc6 3))) (let ((e-4 (vector-ref sc6 4))) (let ((sc7 e-10)) (case (vector-ref sc7 0) ((2) (let ((e-15 (vector-ref sc7 1))) (let ((e-14 (vector-ref sc7 2))) (let ((e-12 (vector-ref sc7 3))) (let ((e-13 (vector-ref sc7 4))) (let ((u--checkRig (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega e-14 arg-3))) (let ((act-27 ((CoreC-45LinearCheck-lcheck arg-0 arg-1 arg-2 u--checkRig arg-4 arg-5 e-23) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-16 (vector-ref sc8 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc8 1))) (let ((u--fty (vector 0 e-1 e-11 (vector 2 e-15 e-14 e-12 e-13) e-4))) (let ((sc9 e-16)) (let ((e-18 (car sc9))) (let ((e-17 (cdr sc9))) (let ((sc10 e-17)) (let ((e-20 (car sc10))) (let ((e-19 (cdr sc10))) (let ((act-28 (((e-4 e-8) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) arg-5 e-18)) eta-0))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-24 (vector-ref sc11 1))) (vector 0 e-24))) (else (let ((e-24 (vector-ref sc11 1))) (let ((u--aerased (let ((_-1 (cons e-18 (cons e-20 e-19)))) (CoreC-45LinearCheck-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32lcheck-4097 arg-0 e-23 e-22 e-21 arg-5 arg-4 arg-3 arg-2 arg-1 e-2 e-6 e-7 _-0 e-8 e-1 e-11 e-15 e-12 e-13 e-14 e-4 u--fty u--checkRig e-18 e-20 e-19 _-1 e-24 (PreludeC-45Basics-C-38C-38 arg-4 (lambda () (AlgebraC-45Semiring-isErased (cons (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-7) (lambda (arg-8) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-7 arg-8))) (lambda (arg-7) (lambda (arg-8) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-7 arg-8))))) e-14))))))) (let ((act-29 (CoreC-45Context-getSession arg-1 eta-0))) (let ((sc12 act-29)) (case (vector-ref sc12 0) ((0) (let ((e-25 (vector-ref sc12 1))) (vector 0 e-25))) (else (let ((e-25 (vector-ref sc12 1))) (let ((act-30 (let ((sc13 (let ((sc14 e-25)) (let ((e-31 (vector-ref sc14 10))) e-31)))) (cond ((equal? sc13 0) (let ((act-30 ((CoreC-45Normalise-getNF arg-1 e-20) eta-0))) (let ((sc14 act-30)) (case (vector-ref sc14 0) ((0) (let ((e-26 (vector-ref sc14 1))) (vector 0 e-26))) (else (let ((e-26 (vector-ref sc14 1))) (let ((act-31 (CoreC-45Normalise-u--convert_Convert_NF arg-1 arg-0 e-8 arg-5 e-26 e-13 eta-0))) (let ((sc15 act-31)) (case (vector-ref sc15 0) ((0) (let ((e-27 (vector-ref sc15 1))) (vector 0 e-27))) (else (let ((e-27 (vector-ref sc15 1))) (let ((sc16 e-27)) (cond ((equal? sc16 0) (vector 1 (vector 0 ))) (else (let ((act-32 (CoreC-45Normalise-u--quote_Quote_NF arg-1 arg-0 e-8 arg-5 e-13 eta-0))) (let ((sc17 act-32)) (case (vector-ref sc17 0) ((0) (let ((e-28 (vector-ref sc17 1))) (vector 0 e-28))) (else (let ((e-28 (vector-ref sc17 1))) (let ((act-33 (CoreC-45Normalise-u--quote_Quote_NF arg-1 arg-0 e-8 arg-5 e-26 eta-0))) (let ((sc18 act-33)) (case (vector-ref sc18 0) ((0) (let ((e-29 (vector-ref sc18 1))) (vector 0 e-29))) (else (let ((e-29 (vector-ref sc18 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 1 arg-0 e-21 arg-5 e-28 e-29) eta-0))))))))))))))))))))))))) (else (vector 1 (vector 0 ))))))) (let ((sc13 act-30)) (case (vector-ref sc13 0) ((0) (let ((e-26 (vector-ref sc13 1))) (vector 0 e-26))) (else (vector 1 (cons (vector 4 e-21 e-2 u--aerased) (cons (CoreC-45Normalise-glueBack arg-1 arg-0 e-8 arg-5 e-24) (CoreC-45LinearCheck-C-43C-43 e-7 e-19)))))))))))))))))))))))))))))))))))))(else (let ((act-27 ((CoreC-45Normalise-getTerm e-6) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-12 (vector-ref sc7 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc7 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 e-21 (PreludeC-45TypesC-45String-C-43C-43 "Linearity checking failed on " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 e-2) (PreludeC-45TypesC-45String-C-43C-43 " (" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 e-12) " not a function type)"))))) eta-0)))))))))))))) ((1) (let ((e-11 (vector-ref sc6 2))) (let ((sc7 e-11)) (case (vector-ref sc7 0) ((1) (let ((e-16 (vector-ref sc7 2))) (let ((act-27 ((CoreC-45Context-lookupCtxtExact e-16 (let ((sc8 e-8)) (let ((e-0 (vector-ref sc8 1))) e-0))) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-13 (vector-ref sc8 1))) (let ((sc9 e-13)) (case (vector-ref sc9 0) ((1) (let ((act-28 ((CoreC-45Normalise-getTerm e-6) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-14 (vector-ref sc10 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 e-21 (PreludeC-45TypesC-45String-C-43C-43 "Linearity checking failed on " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 e-2) (PreludeC-45TypesC-45String-C-43C-43 " (" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 e-14) " not a function type)"))))) eta-0)))))))(else (CoreC-45Context-undefinedName arg-1 e-21 e-16 eta-0)))))))))))(else (let ((act-27 ((CoreC-45Normalise-getTerm e-6) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-13 (vector-ref sc7 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 e-21 (PreludeC-45TypesC-45String-C-43C-43 "Linearity checking failed on " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 e-2) (PreludeC-45TypesC-45String-C-43C-43 " (" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 e-13) " not a function type)"))))) eta-0)))))))))))(else (let ((act-27 ((CoreC-45Normalise-getTerm e-6) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc6 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 e-21 (PreludeC-45TypesC-45String-C-43C-43 "Linearity checking failed on " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 e-2) (PreludeC-45TypesC-45String-C-43C-43 " (" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 e-10) " not a function type)"))))) eta-0)))))))))))))))))))))))))))))))))))) ((5) (let ((e-25 (vector-ref sc0 1))) (let ((e-26 (vector-ref sc0 2))) (let ((e-27 (vector-ref sc0 3))) (let ((e-28 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((CoreC-45LinearCheck-lcheck arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-27) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (car sc2))) (let ((e-3 (cdr sc2))) (let ((sc3 e-3)) (let ((act-25 ((CoreC-45LinearCheck-lcheck arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-28) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (let ((e-9 (car sc5))) (let ((e-4 (cdr sc5))) (let ((sc6 e-4)) (let ((e-11 (car sc6))) (let ((e-10 (cdr sc6))) (vector 1 (cons (vector 5 e-25 e-26 e-2 e-9) (cons e-11 e-10))))))))))))))))))))))))))))) ((6) (let ((e-30 (vector-ref sc0 1))) (let ((e-31 (vector-ref sc0 2))) (let ((e-32 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((CoreC-45LinearCheck-lcheck arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-32) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (car sc2))) (let ((e-3 (cdr sc2))) (let ((sc3 e-3)) (let ((e-7 (cdr sc3))) (vector 1 (cons (vector 6 e-30 e-31 e-2) (cons (CoreC-45Normalise-gType e-30) e-7)))))))))))))))))) ((7) (let ((e-34 (vector-ref sc0 1))) (let ((e-35 (vector-ref sc0 2))) (let ((e-36 (vector-ref sc0 3))) (let ((e-37 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((CoreC-45LinearCheck-lcheck arg-0 arg-1 arg-2 (AlgebraC-45Semiring-erased (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))) arg-4 arg-5 e-36) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (car sc2))) (let ((e-3 (cdr sc2))) (let ((sc3 e-3)) (let ((act-25 ((CoreC-45LinearCheck-lcheck arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-37) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (let ((e-9 (car sc5))) (let ((e-4 (cdr sc5))) (let ((sc6 e-4)) (let ((e-11 (car sc6))) (let ((e-10 (cdr sc6))) (let ((act-26 ((CoreC-45Normalise-getTerm e-11) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-12 (vector-ref sc7 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc7 1))) (vector 1 (cons (vector 7 e-34 e-35 e-2 e-9) (cons (CoreC-45Normalise-gnf arg-0 arg-5 (vector 6 e-34 e-35 e-12)) e-10)))))))))))))))))))))))))))))))))) ((8) (let ((e-39 (vector-ref sc0 1))) (let ((e-41 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((CoreC-45LinearCheck-lcheck arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-41) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (car sc2))) (let ((e-3 (cdr sc2))) (let ((sc3 e-3)) (let ((e-6 (car sc3))) (let ((e-7 (cdr sc3))) (let ((act-25 ((CoreC-45Normalise-getNF arg-1 e-6) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((5) (let ((e-9 (vector-ref sc5 2))) (let ((e-4 (vector-ref sc5 3))) (let ((act-26 (let ((act-26 (unbox arg-1))) (vector 1 act-26)))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (vector 1 (cons (vector 8 e-39 e-9 e-2) (cons (CoreC-45Normalise-glueBack arg-1 arg-0 e-10 arg-5 e-4) e-7)))))))))))(else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 e-39 "Not a delayed type") eta-0)))))))))))))))))))))))) ((9) (let ((e-43 (vector-ref sc0 1))) (let ((e-44 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (cons (vector 9 e-43 e-44) (cons (CoreC-45Normalise-gErased e-43) '()))))))) ((10) (let ((e-46 (vector-ref sc0 1))) (let ((e-47 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (cons (vector 10 e-46 e-47) (cons (CoreC-45Normalise-gErased e-46) '()))))))) (else (let ((e-49 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (cons (vector 11 e-49) (cons (CoreC-45Normalise-gType e-49) '())))))))))) -(define CoreC-45LinearCheck-getArgUsage (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45LinearCheck-n--10262-5630-u--getPUsage arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 arg-4 eta-0)) arg-5 '() ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (CoreC-45LinearCheck-n--10262-5633-u--combine arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-6)))))))))))))) -(define CoreC-45LinearCheck-expandMeta (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (lambda (clam-0) (let ((sc1 e-1)) (if (null? sc1) (let ((sc2 e-2)) (case (vector-ref sc2 0) ((1) (let ((e-7 (vector-ref sc2 1))) (let ((e-8 (vector-ref sc2 2))) (let ((act-24 ((CoreC-45LinearCheck-n--10271-7597-u--substMeta arg-0 e-0 e-3 e-4 e-7 e-8 arg-9 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 '() arg-0 (CoreC-45TT-embed e-8) arg-9 '()) clam-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-5 (vector-ref sc3 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc3 1))) ((CoreC-45LinearCheck-lcheck arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-5) clam-0)))))))))(else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 (PreludeC-45TypesC-45String-C-43C-43 "Badly formed metavar solution " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name arg-6) (PreludeC-45TypesC-45String-C-43C-43 " " (CoreC-45Context-u--show_Show_Def arg-8))))) clam-0)))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 (PreludeC-45TypesC-45String-C-43C-43 "Badly formed metavar solution " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name arg-6) (PreludeC-45TypesC-45String-C-43C-43 " " (CoreC-45Context-u--show_Show_Def arg-8))))) clam-0))))))))))(else (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 (PreludeC-45TypesC-45String-C-43C-43 "Badly formed metavar solution " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name arg-6) (PreludeC-45TypesC-45String-C-43C-43 " " (CoreC-45Context-u--show_Show_Def arg-8))))) eta-0))))))) -(define CoreC-45LinearCheck-doneScope (lambda (arg-2) (let ((sc0 arg-2)) (if (null? sc0) '() (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (cond ((equal? sc1 0) (CoreC-45LinearCheck-doneScope e-3))(else (let ((e-8 (- e-2 1))) (cons e-8 (CoreC-45LinearCheck-doneScope e-3)))))))))))) -(define CoreC-45LinearCheck-discharge (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 ext-0) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((act-24 ((CoreC-45Normalise-getTerm arg-8) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (cons (vector 3 arg-3 arg-4 (vector 0 e-1 e-2 e-3 e-4) arg-7) (cons (CoreC-45Normalise-gnf arg-0 arg-2 (vector 3 arg-3 arg-4 (vector 2 e-1 e-2 e-3 e-4) e-5)) arg-9))))))))))))) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (let ((e-9 (vector-ref sc0 4))) (let ((act-24 ((CoreC-45Normalise-getTerm arg-8) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (cons (vector 3 arg-3 arg-4 (vector 1 e-6 e-7 e-8 e-9) arg-7) (cons (CoreC-45Normalise-gnf arg-0 arg-2 (vector 3 arg-3 arg-4 (vector 1 e-6 e-7 e-8 e-9) e-5)) arg-9))))))))))))) ((2) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 4))) (vector 1 (cons (vector 3 arg-3 arg-4 (vector 2 e-11 e-12 e-13 e-14) arg-7) (cons arg-6 arg-9)))))))) ((3) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (let ((act-24 ((CoreC-45Normalise-getTerm arg-8) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (cons (vector 3 arg-3 arg-4 (vector 3 e-16 e-17 e-18 e-19) arg-7) (cons (CoreC-45Normalise-gnf arg-0 arg-2 (vector 3 arg-3 arg-4 (vector 5 e-16 e-17 e-19) e-5)) arg-9))))))))))))) ((4) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (let ((e-24 (vector-ref sc0 4))) (let ((act-24 ((CoreC-45Normalise-getTerm arg-8) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (cons (vector 3 arg-3 arg-4 (vector 4 e-21 e-22 e-23 e-24) arg-7) (cons (CoreC-45Normalise-gnf arg-0 arg-2 (vector 3 arg-3 arg-4 (vector 4 e-21 e-22 e-23 e-24) e-5)) arg-9))))))))))))) (else (let ((e-26 (vector-ref sc0 1))) (let ((e-27 (vector-ref sc0 2))) (let ((e-28 (vector-ref sc0 3))) (vector 1 (cons (vector 3 arg-3 arg-4 (vector 5 e-26 e-27 e-28) arg-7) (cons arg-6 arg-9))))))))))) -(define CoreC-45LinearCheck-count (lambda (arg-1 arg-2) (let ((sc0 arg-2)) (if (null? sc0) 0 (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (CoreC-45LinearCheck-case--count-880 e-3 e-2 arg-1 (PreludeC-45Types-u--C-61C-61_Eq_Nat arg-1 (CoreC-45TT-varIdx e-2))))))))) -(define CoreC-45LinearCheck-checkEnvUsage (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-0)) (if (null? sc0) (lambda (clam-0) (let ((sc1 arg-6)) (vector 1 (vector 0 )))) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 arg-6)) (let ((e-8 (car sc1))) (let ((e-9 (cdr sc1))) (let ((u--pos (CoreC-45LinearCheck-localPrf arg-1))) (let ((u--used_in (CoreC-45LinearCheck-count (CoreC-45TT-varIdx u--pos) arg-7))) (lambda (eta-0) (let ((act-24 ((CoreC-45LinearCheck-case--checkEnvUsage-8269 e-2 e-3 e-9 e-8 arg-1 arg-8 arg-7 arg-5 arg-4 arg-3 arg-2 u--pos u--used_in (AlgebraC-45Semiring-isLinear (cons (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-9) (lambda (arg-10) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-9 arg-10))))) (CoreC-45TT-multiplicity e-8))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((u--used (CoreC-45LinearCheck-case--checkEnvUsage-8180 e-2 e-3 e-9 e-8 arg-1 arg-8 arg-7 arg-5 arg-4 arg-3 arg-2 u--pos u--used_in e-5 (PreludeC-45Basics-C-38C-38 (AlgebraC-45Semiring-isLinear (cons (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-9) (lambda (arg-10) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-9 arg-10))))) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega (CoreC-45TT-multiplicity e-8) arg-5)) (lambda () (PreludeC-45Basics-C-38C-38 e-5 (lambda () (PreludeC-45Types-u--C-61C-61_Eq_Nat u--used_in (PreludeC-45Types-u--fromInteger_Num_Nat 0))))))))) (let ((act-25 (CoreC-45LinearCheck-n--17119-8130-u--checkUsageOK e-2 e-3 e-9 e-8 arg-1 arg-8 arg-7 arg-5 arg-4 arg-3 arg-2 u--used (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega (CoreC-45TT-multiplicity e-8) arg-5) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else ((CoreC-45LinearCheck-checkEnvUsage e-3 (PreludeC-45TypesC-45List-C-43C-43 arg-1 (cons e-2 '())) arg-2 arg-3 arg-4 arg-5 e-9 arg-7 arg-8) eta-0))))))))))))))))))))))) -(define CoreC-45LinearCheck-C-43C-43 (lambda (arg-1 arg-2) (let ((sc0 arg-1)) (if (null? sc0) arg-2 (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (cons e-2 (CoreC-45LinearCheck-C-43C-43 e-3 arg-2)))))))) -(define TTImpC-45BindImplicits-case--getUsing-1597 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (cons (cons arg-0 (cons (AlgebraC-45ZeroOneOmega-u--top_Top_ZeroOneOmega) (cons (vector 2 ) (cons (vector 0 ) arg-1)))) (TTImpC-45BindImplicits-getUsing arg-3 arg-2))) (else (TTImpC-45BindImplicits-getUsing arg-3 arg-2)))))) -(define TTImpC-45BindImplicits-case--getUsing-1531 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (cons (cons arg-0 (cons (AlgebraC-45Semiring-erased (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))) (cons (vector 0 ) (cons (vector 1 arg-4) arg-2)))) (TTImpC-45BindImplicits-getUsing arg-4 arg-3))) (else (TTImpC-45BindImplicits-getUsing arg-4 arg-3)))))) -(define TTImpC-45BindImplicits-case--renameIBinds-1219 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (let ((u--nC-39 (TTImpC-45Utils-getUnique (PreludeC-45TypesC-45List-C-43C-43 arg-3 arg-2) arg-0))) (lambda (eta-0) (ControlC-45MonadC-45StateC-45State-u--C-62C-62C-61_Monad_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (ControlC-45MonadC-45Identity-u--map_Functor_Identity u--func arg-143))))) (lambda (u--a) (lambda (arg-577) (ControlC-45MonadC-45Identity-u--pure_Applicative_Identity arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (ControlC-45MonadC-45Identity-u--C-60C-42C-62_Applicative_Identity arg-578 arg-580)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (ControlC-45MonadC-45Identity-u--C-62C-62C-61_Monad_Identity arg-876 arg-877))))) (lambda (u--a) (lambda (arg-879) (ControlC-45MonadC-45Identity-u--join_Monad_Identity arg-879)))) (lambda (u--x) (ControlC-45MonadC-45Identity-u--pure_Applicative_Identity (cons u--x u--x))) (lambda (u--upds) (PreludeC-45Interfaces-C-62C-62 (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-1) (ControlC-45MonadC-45StateC-45State-u--map_Functor_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 (lambda (b-0) (lambda (a-0) (lambda (func-0) (lambda (arg-144) (ControlC-45MonadC-45Identity-u--map_Functor_Identity func-0 arg-144))))) u--func arg-143 eta-1)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-1) (ControlC-45MonadC-45StateC-45State-u--pure_Applicative_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 (vector 0 (vector 0 (lambda (u--b) (lambda (a-0) (lambda (u--func) (lambda (arg-143) (ControlC-45MonadC-45Identity-u--map_Functor_Identity u--func arg-143))))) (lambda (a-0) (lambda (arg-578) (ControlC-45MonadC-45Identity-u--pure_Applicative_Identity arg-578))) (lambda (u--b) (lambda (a-0) (lambda (arg-578) (lambda (arg-580) (ControlC-45MonadC-45Identity-u--C-60C-42C-62_Applicative_Identity arg-578 arg-580)))))) (lambda (u--b) (lambda (a-0) (lambda (arg-876) (lambda (arg-877) (ControlC-45MonadC-45Identity-u--C-62C-62C-61_Monad_Identity arg-876 arg-877))))) (lambda (a-0) (lambda (arg-879) (ControlC-45MonadC-45Identity-u--join_Monad_Identity arg-879)))) arg-577 eta-1)))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-1) (ControlC-45MonadC-45StateC-45State-u--C-60C-42C-62_Applicative_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 (vector 0 (vector 0 (lambda (b-0) (lambda (a-0) (lambda (u--func) (lambda (arg-143) (ControlC-45MonadC-45Identity-u--map_Functor_Identity u--func arg-143))))) (lambda (a-0) (lambda (arg-577) (ControlC-45MonadC-45Identity-u--pure_Applicative_Identity arg-577))) (lambda (b-0) (lambda (a-0) (lambda (arg-579) (lambda (arg-581) (ControlC-45MonadC-45Identity-u--C-60C-42C-62_Applicative_Identity arg-579 arg-581)))))) (lambda (b-0) (lambda (a-0) (lambda (arg-876) (lambda (arg-877) (ControlC-45MonadC-45Identity-u--C-62C-62C-61_Monad_Identity arg-876 arg-877))))) (lambda (a-0) (lambda (arg-879) (ControlC-45MonadC-45Identity-u--join_Monad_Identity arg-879)))) arg-578 arg-580 eta-1))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-1) (ControlC-45MonadC-45StateC-45State-u--C-62C-62C-61_Monad_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 (vector 0 (vector 0 (lambda (b-0) (lambda (a-0) (lambda (u--func) (lambda (arg-143) (ControlC-45MonadC-45Identity-u--map_Functor_Identity u--func arg-143))))) (lambda (a-0) (lambda (arg-577) (ControlC-45MonadC-45Identity-u--pure_Applicative_Identity arg-577))) (lambda (b-0) (lambda (a-0) (lambda (arg-578) (lambda (arg-580) (ControlC-45MonadC-45Identity-u--C-60C-42C-62_Applicative_Identity arg-578 arg-580)))))) (lambda (b-0) (lambda (a-0) (lambda (arg-878) (lambda (arg-879) (ControlC-45MonadC-45Identity-u--C-62C-62C-61_Monad_Identity arg-878 arg-879))))) (lambda (a-0) (lambda (arg-879) (ControlC-45MonadC-45Identity-u--join_Monad_Identity arg-879)))) arg-876 arg-877 eta-1)))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-1) (ControlC-45MonadC-45StateC-45State-u--join_Monad_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 (vector 0 (vector 0 (lambda (u--b) (lambda (a-0) (lambda (u--func) (lambda (arg-143) (ControlC-45MonadC-45Identity-u--map_Functor_Identity u--func arg-143))))) (lambda (a-0) (lambda (arg-577) (ControlC-45MonadC-45Identity-u--pure_Applicative_Identity arg-577))) (lambda (u--b) (lambda (a-0) (lambda (arg-578) (lambda (arg-580) (ControlC-45MonadC-45Identity-u--C-60C-42C-62_Applicative_Identity arg-578 arg-580)))))) (lambda (u--b) (lambda (a-0) (lambda (arg-876) (lambda (arg-877) (ControlC-45MonadC-45Identity-u--C-62C-62C-61_Monad_Identity arg-876 arg-877))))) (lambda (a-0) (lambda (arg-880) (ControlC-45MonadC-45Identity-u--join_Monad_Identity arg-880)))) arg-879 eta-1))))) (lambda (u--y) (ControlC-45MonadC-45Identity-u--pure_Applicative_Identity (cons (cons (cons arg-0 u--nC-39) u--upds) (vector 0 )))) (lambda () (lambda (eta-1) (ControlC-45MonadC-45StateC-45State-u--pure_Applicative_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (ControlC-45MonadC-45Identity-u--map_Functor_Identity u--func arg-143))))) (lambda (u--a) (lambda (arg-577) (ControlC-45MonadC-45Identity-u--pure_Applicative_Identity arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (ControlC-45MonadC-45Identity-u--C-60C-42C-62_Applicative_Identity arg-578 arg-580)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (ControlC-45MonadC-45Identity-u--C-62C-62C-61_Monad_Identity arg-876 arg-877))))) (lambda (u--a) (lambda (arg-879) (ControlC-45MonadC-45Identity-u--join_Monad_Identity arg-879)))) (vector 17 arg-1 u--nC-39) eta-1))))) eta-0)))) (else (lambda (eta-0) (ControlC-45MonadC-45StateC-45State-u--pure_Applicative_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (ControlC-45MonadC-45Identity-u--map_Functor_Identity u--func arg-143))))) (lambda (u--a) (lambda (arg-577) (ControlC-45MonadC-45Identity-u--pure_Applicative_Identity arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (ControlC-45MonadC-45Identity-u--C-60C-42C-62_Applicative_Identity arg-578 arg-580)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (ControlC-45MonadC-45Identity-u--C-62C-62C-61_Monad_Identity arg-876 arg-877))))) (lambda (u--a) (lambda (arg-879) (ControlC-45MonadC-45Identity-u--join_Monad_Identity arg-879)))) (vector 17 arg-1 arg-0) eta-0))))))) -(define TTImpC-45BindImplicits-case--renameIBinds-740 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (cond ((equal? sc0 0) (let ((u--nC-39 (TTImpC-45Utils-getUnique (PreludeC-45TypesC-45List-C-43C-43 arg-7 arg-6) arg-0))) (let ((u--scC-39 (TTImpC-45Utils-substNames (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (vector 1 eta-0)) (DataC-45List-filter (lambda (arg-9) (PreludeC-45EqOrd-u--C-47C-61_Eq_String arg-9 arg-0)) arg-6)) (cons (cons (vector 1 arg-0) (vector 0 arg-5 (vector 1 u--nC-39))) '()) arg-1))) (lambda (eta-0) (ControlC-45MonadC-45StateC-45State-u--C-62C-62C-61_Monad_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (ControlC-45MonadC-45Identity-u--map_Functor_Identity u--func arg-143))))) (lambda (u--a) (lambda (arg-577) (ControlC-45MonadC-45Identity-u--pure_Applicative_Identity arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (ControlC-45MonadC-45Identity-u--C-60C-42C-62_Applicative_Identity arg-578 arg-580)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (ControlC-45MonadC-45Identity-u--C-62C-62C-61_Monad_Identity arg-876 arg-877))))) (lambda (u--a) (lambda (arg-879) (ControlC-45MonadC-45Identity-u--join_Monad_Identity arg-879)))) (TTImpC-45BindImplicits-renameIBinds arg-7 (cons u--nC-39 arg-6) u--scC-39) (lambda (u--scr) (lambda (eta-1) (ControlC-45MonadC-45StateC-45State-u--C-62C-62C-61_Monad_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (ControlC-45MonadC-45Identity-u--map_Functor_Identity u--func arg-143))))) (lambda (u--a) (lambda (arg-577) (ControlC-45MonadC-45Identity-u--pure_Applicative_Identity arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (ControlC-45MonadC-45Identity-u--C-60C-42C-62_Applicative_Identity arg-578 arg-580)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (ControlC-45MonadC-45Identity-u--C-62C-62C-61_Monad_Identity arg-876 arg-877))))) (lambda (u--a) (lambda (arg-879) (ControlC-45MonadC-45Identity-u--join_Monad_Identity arg-879)))) (TTImpC-45BindImplicits-renameIBinds arg-7 arg-6 arg-2) (lambda (u--tyC-39) (lambda (eta-2) (ControlC-45MonadC-45StateC-45State-u--C-62C-62C-61_Monad_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (ControlC-45MonadC-45Identity-u--map_Functor_Identity u--func arg-143))))) (lambda (u--a) (lambda (arg-577) (ControlC-45MonadC-45Identity-u--pure_Applicative_Identity arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (ControlC-45MonadC-45Identity-u--C-60C-42C-62_Applicative_Identity arg-578 arg-580)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (ControlC-45MonadC-45Identity-u--C-62C-62C-61_Monad_Identity arg-876 arg-877))))) (lambda (u--a) (lambda (arg-879) (ControlC-45MonadC-45Identity-u--join_Monad_Identity arg-879)))) (lambda (u--x) (ControlC-45MonadC-45Identity-u--pure_Applicative_Identity (cons u--x u--x))) (lambda (u--upds) (PreludeC-45Interfaces-C-62C-62 (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-3) (ControlC-45MonadC-45StateC-45State-u--map_Functor_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 (lambda (b-0) (lambda (a-0) (lambda (func-0) (lambda (arg-144) (ControlC-45MonadC-45Identity-u--map_Functor_Identity func-0 arg-144))))) u--func arg-143 eta-3)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-3) (ControlC-45MonadC-45StateC-45State-u--pure_Applicative_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 (vector 0 (vector 0 (lambda (u--b) (lambda (a-0) (lambda (u--func) (lambda (arg-143) (ControlC-45MonadC-45Identity-u--map_Functor_Identity u--func arg-143))))) (lambda (a-0) (lambda (arg-578) (ControlC-45MonadC-45Identity-u--pure_Applicative_Identity arg-578))) (lambda (u--b) (lambda (a-0) (lambda (arg-578) (lambda (arg-580) (ControlC-45MonadC-45Identity-u--C-60C-42C-62_Applicative_Identity arg-578 arg-580)))))) (lambda (u--b) (lambda (a-0) (lambda (arg-876) (lambda (arg-877) (ControlC-45MonadC-45Identity-u--C-62C-62C-61_Monad_Identity arg-876 arg-877))))) (lambda (a-0) (lambda (arg-879) (ControlC-45MonadC-45Identity-u--join_Monad_Identity arg-879)))) arg-577 eta-3)))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-3) (ControlC-45MonadC-45StateC-45State-u--C-60C-42C-62_Applicative_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 (vector 0 (vector 0 (lambda (b-0) (lambda (a-0) (lambda (u--func) (lambda (arg-143) (ControlC-45MonadC-45Identity-u--map_Functor_Identity u--func arg-143))))) (lambda (a-0) (lambda (arg-577) (ControlC-45MonadC-45Identity-u--pure_Applicative_Identity arg-577))) (lambda (b-0) (lambda (a-0) (lambda (arg-579) (lambda (arg-581) (ControlC-45MonadC-45Identity-u--C-60C-42C-62_Applicative_Identity arg-579 arg-581)))))) (lambda (b-0) (lambda (a-0) (lambda (arg-876) (lambda (arg-877) (ControlC-45MonadC-45Identity-u--C-62C-62C-61_Monad_Identity arg-876 arg-877))))) (lambda (a-0) (lambda (arg-879) (ControlC-45MonadC-45Identity-u--join_Monad_Identity arg-879)))) arg-578 arg-580 eta-3))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-3) (ControlC-45MonadC-45StateC-45State-u--C-62C-62C-61_Monad_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 (vector 0 (vector 0 (lambda (b-0) (lambda (a-0) (lambda (u--func) (lambda (arg-143) (ControlC-45MonadC-45Identity-u--map_Functor_Identity u--func arg-143))))) (lambda (a-0) (lambda (arg-577) (ControlC-45MonadC-45Identity-u--pure_Applicative_Identity arg-577))) (lambda (b-0) (lambda (a-0) (lambda (arg-578) (lambda (arg-580) (ControlC-45MonadC-45Identity-u--C-60C-42C-62_Applicative_Identity arg-578 arg-580)))))) (lambda (b-0) (lambda (a-0) (lambda (arg-878) (lambda (arg-879) (ControlC-45MonadC-45Identity-u--C-62C-62C-61_Monad_Identity arg-878 arg-879))))) (lambda (a-0) (lambda (arg-879) (ControlC-45MonadC-45Identity-u--join_Monad_Identity arg-879)))) arg-876 arg-877 eta-3)))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-3) (ControlC-45MonadC-45StateC-45State-u--join_Monad_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 (vector 0 (vector 0 (lambda (u--b) (lambda (a-0) (lambda (u--func) (lambda (arg-143) (ControlC-45MonadC-45Identity-u--map_Functor_Identity u--func arg-143))))) (lambda (a-0) (lambda (arg-577) (ControlC-45MonadC-45Identity-u--pure_Applicative_Identity arg-577))) (lambda (u--b) (lambda (a-0) (lambda (arg-578) (lambda (arg-580) (ControlC-45MonadC-45Identity-u--C-60C-42C-62_Applicative_Identity arg-578 arg-580)))))) (lambda (u--b) (lambda (a-0) (lambda (arg-876) (lambda (arg-877) (ControlC-45MonadC-45Identity-u--C-62C-62C-61_Monad_Identity arg-876 arg-877))))) (lambda (a-0) (lambda (arg-880) (ControlC-45MonadC-45Identity-u--join_Monad_Identity arg-880)))) arg-879 eta-3))))) (lambda (u--y) (ControlC-45MonadC-45Identity-u--pure_Applicative_Identity (cons (cons (cons arg-0 u--nC-39) u--upds) (vector 0 )))) (lambda () (lambda (eta-3) (ControlC-45MonadC-45StateC-45State-u--pure_Applicative_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (ControlC-45MonadC-45Identity-u--map_Functor_Identity u--func arg-143))))) (lambda (u--a) (lambda (arg-577) (ControlC-45MonadC-45Identity-u--pure_Applicative_Identity arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (ControlC-45MonadC-45Identity-u--C-60C-42C-62_Applicative_Identity arg-578 arg-580)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (ControlC-45MonadC-45Identity-u--C-62C-62C-61_Monad_Identity arg-876 arg-877))))) (lambda (u--a) (lambda (arg-879) (ControlC-45MonadC-45Identity-u--join_Monad_Identity arg-879)))) (vector 1 arg-5 arg-4 arg-3 (vector 1 (vector 1 u--nC-39)) u--tyC-39 u--scr) eta-3))))) eta-2))) eta-1))) eta-0))))) (else (lambda (eta-0) (ControlC-45MonadC-45StateC-45State-u--C-62C-62C-61_Monad_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (ControlC-45MonadC-45Identity-u--map_Functor_Identity u--func arg-143))))) (lambda (u--a) (lambda (arg-577) (ControlC-45MonadC-45Identity-u--pure_Applicative_Identity arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (ControlC-45MonadC-45Identity-u--C-60C-42C-62_Applicative_Identity arg-578 arg-580)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (ControlC-45MonadC-45Identity-u--C-62C-62C-61_Monad_Identity arg-876 arg-877))))) (lambda (u--a) (lambda (arg-879) (ControlC-45MonadC-45Identity-u--join_Monad_Identity arg-879)))) (TTImpC-45BindImplicits-renameIBinds arg-7 arg-6 arg-1) (lambda (u--scr) (lambda (eta-1) (ControlC-45MonadC-45StateC-45State-u--C-62C-62C-61_Monad_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (ControlC-45MonadC-45Identity-u--map_Functor_Identity u--func arg-143))))) (lambda (u--a) (lambda (arg-577) (ControlC-45MonadC-45Identity-u--pure_Applicative_Identity arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (ControlC-45MonadC-45Identity-u--C-60C-42C-62_Applicative_Identity arg-578 arg-580)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (ControlC-45MonadC-45Identity-u--C-62C-62C-61_Monad_Identity arg-876 arg-877))))) (lambda (u--a) (lambda (arg-879) (ControlC-45MonadC-45Identity-u--join_Monad_Identity arg-879)))) (TTImpC-45BindImplicits-renameIBinds arg-7 arg-6 arg-2) (lambda (u--tyC-39) (lambda (eta-2) (ControlC-45MonadC-45StateC-45State-u--pure_Applicative_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (ControlC-45MonadC-45Identity-u--map_Functor_Identity u--func arg-143))))) (lambda (u--a) (lambda (arg-577) (ControlC-45MonadC-45Identity-u--pure_Applicative_Identity arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (ControlC-45MonadC-45Identity-u--C-60C-42C-62_Applicative_Identity arg-578 arg-580)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (ControlC-45MonadC-45Identity-u--C-62C-62C-61_Monad_Identity arg-876 arg-877))))) (lambda (u--a) (lambda (arg-879) (ControlC-45MonadC-45Identity-u--join_Monad_Identity arg-879)))) (vector 1 arg-5 arg-4 arg-3 (vector 1 (vector 1 arg-0)) u--tyC-39 u--scr) eta-2))) eta-1))) eta-0))))))) -(define TTImpC-45BindImplicits-n--8216-1681-u--tag (lambda (arg-0 arg-1 arg-3 arg-4) (DataC-45List-u--zip_Zippable_List (PreludeC-45Types-u--map_Functor_List (lambda (arg-2) (bs+ arg-2 arg-3 63)) (PreludeC-45Types-u--rangeFromTo_Range_C-36a (cons (vector 0 (vector 0 (lambda (arg-2) (lambda (arg-5) (bs+ arg-2 arg-5 63))) (lambda (arg-5) (lambda (arg-6) (bs* arg-5 arg-6 63))) (lambda (arg-6) (blodwen-toSignedInt arg-6 63))) (lambda (arg-184) (lambda (arg-185) (PreludeC-45Num-u--div_Integral_Int arg-184 arg-185))) (lambda (arg-186) (lambda (arg-187) (PreludeC-45Num-u--mod_Integral_Int arg-186 arg-187)))) (cons (vector 0 (cons (lambda (arg-2) (lambda (arg-5) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-5))) (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-5 arg-6)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Int arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Int arg-383 arg-384)))) (vector 0 (vector 0 (lambda (arg-2) (lambda (arg-5) (bs+ arg-2 arg-5 63))) (lambda (arg-5) (lambda (arg-6) (bs* arg-5 arg-6 63))) (lambda (arg-6) (blodwen-toSignedInt arg-6 63))) (lambda (arg-56) (PreludeC-45Num-u--negate_Neg_Int arg-56)) (lambda (arg-57) (lambda (arg-58) (PreludeC-45Num-u--C-45_Neg_Int arg-57 arg-58)))))) 0 (PreludeC-45Cast-u--cast_Cast_Nat_Int (PreludeC-45TypesC-45List-length arg-4)))) arg-4))) -(define TTImpC-45BindImplicits-n--7218-1149-u--renameAlt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (ControlC-45MonadC-45StateC-45State-u--C-62C-62C-61_Monad_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (ControlC-45MonadC-45Identity-u--map_Functor_Identity u--func arg-143))))) (lambda (u--a) (lambda (arg-577) (ControlC-45MonadC-45Identity-u--pure_Applicative_Identity arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (ControlC-45MonadC-45Identity-u--C-60C-42C-62_Applicative_Identity arg-578 arg-580)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (ControlC-45MonadC-45Identity-u--C-62C-62C-61_Monad_Identity arg-876 arg-877))))) (lambda (u--a) (lambda (arg-879) (ControlC-45MonadC-45Identity-u--join_Monad_Identity arg-879)))) (TTImpC-45BindImplicits-renameIBinds arg-4 arg-3 e-0) (lambda (bind-0) (lambda (eta-0) (ControlC-45MonadC-45StateC-45State-u--pure_Applicative_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (ControlC-45MonadC-45Identity-u--map_Functor_Identity u--func arg-143))))) (lambda (u--a) (lambda (arg-577) (ControlC-45MonadC-45Identity-u--pure_Applicative_Identity arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (ControlC-45MonadC-45Identity-u--C-60C-42C-62_Applicative_Identity arg-578 arg-580)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (ControlC-45MonadC-45Identity-u--C-62C-62C-61_Monad_Identity arg-876 arg-877))))) (lambda (u--a) (lambda (arg-879) (ControlC-45MonadC-45Identity-u--join_Monad_Identity arg-879)))) (vector 2 bind-0) eta-0))) ext-0)))(else (ControlC-45MonadC-45StateC-45State-u--pure_Applicative_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (ControlC-45MonadC-45Identity-u--map_Functor_Identity u--func arg-143))))) (lambda (u--a) (lambda (arg-577) (ControlC-45MonadC-45Identity-u--pure_Applicative_Identity arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (ControlC-45MonadC-45Identity-u--C-60C-42C-62_Applicative_Identity arg-578 arg-580)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (ControlC-45MonadC-45Identity-u--C-62C-62C-61_Monad_Identity arg-876 arg-877))))) (lambda (u--a) (lambda (arg-879) (ControlC-45MonadC-45Identity-u--join_Monad_Identity arg-879)))) arg-5 ext-0)))))) -(define TTImpC-45BindImplicits-n--8378-1833-u--piBind (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (if (null? sc0) arg-4 (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (vector 1 arg-2 (AlgebraC-45Semiring-erased (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))) (vector 0 ) (vector 1 (vector 1 e-2)) (vector 32 arg-2 1) (TTImpC-45BindImplicits-n--8378-1833-u--piBind arg-0 arg-1 arg-2 e-3 arg-4)))))))) -(define TTImpC-45BindImplicits-renameIBinds (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((1) (let ((e-46 (vector-ref sc1 1))) (let ((sc2 e-46)) (case (vector-ref sc2 0) ((1) (let ((e-47 (vector-ref sc2 1))) (TTImpC-45BindImplicits-case--renameIBinds-740 e-47 e-5 e-4 e-2 e-1 e-0 arg-1 arg-0 (PreludeC-45Types-elem (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_String arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_String arg-4 arg-5)))) e-47 arg-0))))(else (lambda (eta-0) (ControlC-45MonadC-45StateC-45State-u--C-62C-62C-61_Monad_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (ControlC-45MonadC-45Identity-u--map_Functor_Identity u--func arg-143))))) (lambda (u--a) (lambda (arg-577) (ControlC-45MonadC-45Identity-u--pure_Applicative_Identity arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (ControlC-45MonadC-45Identity-u--C-60C-42C-62_Applicative_Identity arg-578 arg-580)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (ControlC-45MonadC-45Identity-u--C-62C-62C-61_Monad_Identity arg-876 arg-877))))) (lambda (u--a) (lambda (arg-879) (ControlC-45MonadC-45Identity-u--join_Monad_Identity arg-879)))) (TTImpC-45BindImplicits-renameIBinds arg-0 arg-1 e-4) (lambda (bind-0) (lambda (eta-1) (ControlC-45MonadC-45StateC-45State-u--C-62C-62C-61_Monad_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (ControlC-45MonadC-45Identity-u--map_Functor_Identity u--func arg-143))))) (lambda (u--a) (lambda (arg-577) (ControlC-45MonadC-45Identity-u--pure_Applicative_Identity arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (ControlC-45MonadC-45Identity-u--C-60C-42C-62_Applicative_Identity arg-578 arg-580)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (ControlC-45MonadC-45Identity-u--C-62C-62C-61_Monad_Identity arg-876 arg-877))))) (lambda (u--a) (lambda (arg-879) (ControlC-45MonadC-45Identity-u--join_Monad_Identity arg-879)))) (TTImpC-45BindImplicits-renameIBinds arg-0 arg-1 e-5) (lambda (bind-1) (lambda (eta-2) (ControlC-45MonadC-45StateC-45State-u--pure_Applicative_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (ControlC-45MonadC-45Identity-u--map_Functor_Identity u--func arg-143))))) (lambda (u--a) (lambda (arg-577) (ControlC-45MonadC-45Identity-u--pure_Applicative_Identity arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (ControlC-45MonadC-45Identity-u--C-60C-42C-62_Applicative_Identity arg-578 arg-580)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (ControlC-45MonadC-45Identity-u--C-62C-62C-61_Monad_Identity arg-876 arg-877))))) (lambda (u--a) (lambda (arg-879) (ControlC-45MonadC-45Identity-u--join_Monad_Identity arg-879)))) (vector 1 e-0 e-1 e-2 e-3 bind-0 bind-1) eta-2))) eta-1))) eta-0)))))))(else (lambda (eta-0) (ControlC-45MonadC-45StateC-45State-u--C-62C-62C-61_Monad_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (ControlC-45MonadC-45Identity-u--map_Functor_Identity u--func arg-143))))) (lambda (u--a) (lambda (arg-577) (ControlC-45MonadC-45Identity-u--pure_Applicative_Identity arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (ControlC-45MonadC-45Identity-u--C-60C-42C-62_Applicative_Identity arg-578 arg-580)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (ControlC-45MonadC-45Identity-u--C-62C-62C-61_Monad_Identity arg-876 arg-877))))) (lambda (u--a) (lambda (arg-879) (ControlC-45MonadC-45Identity-u--join_Monad_Identity arg-879)))) (TTImpC-45BindImplicits-renameIBinds arg-0 arg-1 e-4) (lambda (bind-0) (lambda (eta-1) (ControlC-45MonadC-45StateC-45State-u--C-62C-62C-61_Monad_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (ControlC-45MonadC-45Identity-u--map_Functor_Identity u--func arg-143))))) (lambda (u--a) (lambda (arg-577) (ControlC-45MonadC-45Identity-u--pure_Applicative_Identity arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (ControlC-45MonadC-45Identity-u--C-60C-42C-62_Applicative_Identity arg-578 arg-580)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (ControlC-45MonadC-45Identity-u--C-62C-62C-61_Monad_Identity arg-876 arg-877))))) (lambda (u--a) (lambda (arg-879) (ControlC-45MonadC-45Identity-u--join_Monad_Identity arg-879)))) (TTImpC-45BindImplicits-renameIBinds arg-0 arg-1 e-5) (lambda (bind-1) (lambda (eta-2) (ControlC-45MonadC-45StateC-45State-u--pure_Applicative_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (ControlC-45MonadC-45Identity-u--map_Functor_Identity u--func arg-143))))) (lambda (u--a) (lambda (arg-577) (ControlC-45MonadC-45Identity-u--pure_Applicative_Identity arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (ControlC-45MonadC-45Identity-u--C-60C-42C-62_Applicative_Identity arg-578 arg-580)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (ControlC-45MonadC-45Identity-u--C-62C-62C-61_Monad_Identity arg-876 arg-877))))) (lambda (u--a) (lambda (arg-879) (ControlC-45MonadC-45Identity-u--join_Monad_Identity arg-879)))) (vector 1 e-0 e-1 e-2 e-3 bind-0 bind-1) eta-2))) eta-1))) eta-0)))))))))))) ((2) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (let ((e-9 (vector-ref sc0 4))) (let ((e-10 (vector-ref sc0 5))) (let ((e-11 (vector-ref sc0 6))) (lambda (eta-0) (ControlC-45MonadC-45StateC-45State-u--C-62C-62C-61_Monad_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (ControlC-45MonadC-45Identity-u--map_Functor_Identity u--func arg-143))))) (lambda (u--a) (lambda (arg-577) (ControlC-45MonadC-45Identity-u--pure_Applicative_Identity arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (ControlC-45MonadC-45Identity-u--C-60C-42C-62_Applicative_Identity arg-578 arg-580)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (ControlC-45MonadC-45Identity-u--C-62C-62C-61_Monad_Identity arg-876 arg-877))))) (lambda (u--a) (lambda (arg-879) (ControlC-45MonadC-45Identity-u--join_Monad_Identity arg-879)))) (TTImpC-45BindImplicits-renameIBinds arg-0 arg-1 e-10) (lambda (bind-0) (lambda (eta-1) (ControlC-45MonadC-45StateC-45State-u--C-62C-62C-61_Monad_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (ControlC-45MonadC-45Identity-u--map_Functor_Identity u--func arg-143))))) (lambda (u--a) (lambda (arg-577) (ControlC-45MonadC-45Identity-u--pure_Applicative_Identity arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (ControlC-45MonadC-45Identity-u--C-60C-42C-62_Applicative_Identity arg-578 arg-580)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (ControlC-45MonadC-45Identity-u--C-62C-62C-61_Monad_Identity arg-876 arg-877))))) (lambda (u--a) (lambda (arg-879) (ControlC-45MonadC-45Identity-u--join_Monad_Identity arg-879)))) (TTImpC-45BindImplicits-renameIBinds arg-0 arg-1 e-11) (lambda (bind-1) (lambda (eta-2) (ControlC-45MonadC-45StateC-45State-u--pure_Applicative_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (ControlC-45MonadC-45Identity-u--map_Functor_Identity u--func arg-143))))) (lambda (u--a) (lambda (arg-577) (ControlC-45MonadC-45Identity-u--pure_Applicative_Identity arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (ControlC-45MonadC-45Identity-u--C-60C-42C-62_Applicative_Identity arg-578 arg-580)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (ControlC-45MonadC-45Identity-u--C-62C-62C-61_Monad_Identity arg-876 arg-877))))) (lambda (u--a) (lambda (arg-879) (ControlC-45MonadC-45Identity-u--join_Monad_Identity arg-879)))) (vector 2 e-6 e-7 e-8 e-9 bind-0 bind-1) eta-2))) eta-1))) eta-0))))))))) ((8) (let ((e-12 (vector-ref sc0 1))) (let ((e-13 (vector-ref sc0 2))) (let ((e-14 (vector-ref sc0 3))) (lambda (eta-0) (ControlC-45MonadC-45StateC-45State-u--C-62C-62C-61_Monad_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (ControlC-45MonadC-45Identity-u--map_Functor_Identity u--func arg-143))))) (lambda (u--a) (lambda (arg-577) (ControlC-45MonadC-45Identity-u--pure_Applicative_Identity arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (ControlC-45MonadC-45Identity-u--C-60C-42C-62_Applicative_Identity arg-578 arg-580)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (ControlC-45MonadC-45Identity-u--C-62C-62C-61_Monad_Identity arg-876 arg-877))))) (lambda (u--a) (lambda (arg-879) (ControlC-45MonadC-45Identity-u--join_Monad_Identity arg-879)))) (TTImpC-45BindImplicits-renameIBinds arg-0 arg-1 e-13) (lambda (bind-0) (lambda (eta-1) (ControlC-45MonadC-45StateC-45State-u--C-62C-62C-61_Monad_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (ControlC-45MonadC-45Identity-u--map_Functor_Identity u--func arg-143))))) (lambda (u--a) (lambda (arg-577) (ControlC-45MonadC-45Identity-u--pure_Applicative_Identity arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (ControlC-45MonadC-45Identity-u--C-60C-42C-62_Applicative_Identity arg-578 arg-580)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (ControlC-45MonadC-45Identity-u--C-62C-62C-61_Monad_Identity arg-876 arg-877))))) (lambda (u--a) (lambda (arg-879) (ControlC-45MonadC-45Identity-u--join_Monad_Identity arg-879)))) (TTImpC-45BindImplicits-renameIBinds arg-0 arg-1 e-14) (lambda (bind-1) (lambda (eta-2) (ControlC-45MonadC-45StateC-45State-u--pure_Applicative_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (ControlC-45MonadC-45Identity-u--map_Functor_Identity u--func arg-143))))) (lambda (u--a) (lambda (arg-577) (ControlC-45MonadC-45Identity-u--pure_Applicative_Identity arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (ControlC-45MonadC-45Identity-u--C-60C-42C-62_Applicative_Identity arg-578 arg-580)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (ControlC-45MonadC-45Identity-u--C-62C-62C-61_Monad_Identity arg-876 arg-877))))) (lambda (u--a) (lambda (arg-879) (ControlC-45MonadC-45Identity-u--join_Monad_Identity arg-879)))) (vector 8 e-12 bind-0 bind-1) eta-2))) eta-1))) eta-0)))))) ((9) (let ((e-15 (vector-ref sc0 1))) (let ((e-16 (vector-ref sc0 2))) (let ((e-17 (vector-ref sc0 3))) (lambda (eta-0) (ControlC-45MonadC-45StateC-45State-u--C-62C-62C-61_Monad_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (ControlC-45MonadC-45Identity-u--map_Functor_Identity u--func arg-143))))) (lambda (u--a) (lambda (arg-577) (ControlC-45MonadC-45Identity-u--pure_Applicative_Identity arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (ControlC-45MonadC-45Identity-u--C-60C-42C-62_Applicative_Identity arg-578 arg-580)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (ControlC-45MonadC-45Identity-u--C-62C-62C-61_Monad_Identity arg-876 arg-877))))) (lambda (u--a) (lambda (arg-879) (ControlC-45MonadC-45Identity-u--join_Monad_Identity arg-879)))) (TTImpC-45BindImplicits-renameIBinds arg-0 arg-1 e-16) (lambda (bind-0) (lambda (eta-1) (ControlC-45MonadC-45StateC-45State-u--C-62C-62C-61_Monad_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (ControlC-45MonadC-45Identity-u--map_Functor_Identity u--func arg-143))))) (lambda (u--a) (lambda (arg-577) (ControlC-45MonadC-45Identity-u--pure_Applicative_Identity arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (ControlC-45MonadC-45Identity-u--C-60C-42C-62_Applicative_Identity arg-578 arg-580)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (ControlC-45MonadC-45Identity-u--C-62C-62C-61_Monad_Identity arg-876 arg-877))))) (lambda (u--a) (lambda (arg-879) (ControlC-45MonadC-45Identity-u--join_Monad_Identity arg-879)))) (TTImpC-45BindImplicits-renameIBinds arg-0 arg-1 e-17) (lambda (bind-1) (lambda (eta-2) (ControlC-45MonadC-45StateC-45State-u--pure_Applicative_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (ControlC-45MonadC-45Identity-u--map_Functor_Identity u--func arg-143))))) (lambda (u--a) (lambda (arg-577) (ControlC-45MonadC-45Identity-u--pure_Applicative_Identity arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (ControlC-45MonadC-45Identity-u--C-60C-42C-62_Applicative_Identity arg-578 arg-580)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (ControlC-45MonadC-45Identity-u--C-62C-62C-61_Monad_Identity arg-876 arg-877))))) (lambda (u--a) (lambda (arg-879) (ControlC-45MonadC-45Identity-u--join_Monad_Identity arg-879)))) (vector 9 e-15 bind-0 bind-1) eta-2))) eta-1))) eta-0)))))) ((10) (let ((e-18 (vector-ref sc0 1))) (let ((e-19 (vector-ref sc0 2))) (let ((e-20 (vector-ref sc0 3))) (let ((e-21 (vector-ref sc0 4))) (lambda (eta-0) (ControlC-45MonadC-45StateC-45State-u--C-62C-62C-61_Monad_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (ControlC-45MonadC-45Identity-u--map_Functor_Identity u--func arg-143))))) (lambda (u--a) (lambda (arg-577) (ControlC-45MonadC-45Identity-u--pure_Applicative_Identity arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (ControlC-45MonadC-45Identity-u--C-60C-42C-62_Applicative_Identity arg-578 arg-580)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (ControlC-45MonadC-45Identity-u--C-62C-62C-61_Monad_Identity arg-876 arg-877))))) (lambda (u--a) (lambda (arg-879) (ControlC-45MonadC-45Identity-u--join_Monad_Identity arg-879)))) (TTImpC-45BindImplicits-renameIBinds arg-0 arg-1 e-19) (lambda (bind-0) (lambda (eta-1) (ControlC-45MonadC-45StateC-45State-u--C-62C-62C-61_Monad_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (ControlC-45MonadC-45Identity-u--map_Functor_Identity u--func arg-143))))) (lambda (u--a) (lambda (arg-577) (ControlC-45MonadC-45Identity-u--pure_Applicative_Identity arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (ControlC-45MonadC-45Identity-u--C-60C-42C-62_Applicative_Identity arg-578 arg-580)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (ControlC-45MonadC-45Identity-u--C-62C-62C-61_Monad_Identity arg-876 arg-877))))) (lambda (u--a) (lambda (arg-879) (ControlC-45MonadC-45Identity-u--join_Monad_Identity arg-879)))) (TTImpC-45BindImplicits-renameIBinds arg-0 arg-1 e-21) (lambda (bind-1) (lambda (eta-2) (ControlC-45MonadC-45StateC-45State-u--pure_Applicative_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (ControlC-45MonadC-45Identity-u--map_Functor_Identity u--func arg-143))))) (lambda (u--a) (lambda (arg-577) (ControlC-45MonadC-45Identity-u--pure_Applicative_Identity arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (ControlC-45MonadC-45Identity-u--C-60C-42C-62_Applicative_Identity arg-578 arg-580)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (ControlC-45MonadC-45Identity-u--C-62C-62C-61_Monad_Identity arg-876 arg-877))))) (lambda (u--a) (lambda (arg-879) (ControlC-45MonadC-45Identity-u--join_Monad_Identity arg-879)))) (vector 10 e-18 bind-0 e-20 bind-1) eta-2))) eta-1))) eta-0))))))) ((11) (let ((e-22 (vector-ref sc0 1))) (let ((e-23 (vector-ref sc0 2))) (let ((e-24 (vector-ref sc0 3))) (lambda (eta-0) (ControlC-45MonadC-45StateC-45State-u--C-62C-62C-61_Monad_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (ControlC-45MonadC-45Identity-u--map_Functor_Identity u--func arg-143))))) (lambda (u--a) (lambda (arg-577) (ControlC-45MonadC-45Identity-u--pure_Applicative_Identity arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (ControlC-45MonadC-45Identity-u--C-60C-42C-62_Applicative_Identity arg-578 arg-580)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (ControlC-45MonadC-45Identity-u--C-62C-62C-61_Monad_Identity arg-876 arg-877))))) (lambda (u--a) (lambda (arg-879) (ControlC-45MonadC-45Identity-u--join_Monad_Identity arg-879)))) (TTImpC-45BindImplicits-renameIBinds arg-0 arg-1 e-23) (lambda (bind-0) (lambda (eta-1) (ControlC-45MonadC-45StateC-45State-u--C-62C-62C-61_Monad_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (ControlC-45MonadC-45Identity-u--map_Functor_Identity u--func arg-143))))) (lambda (u--a) (lambda (arg-577) (ControlC-45MonadC-45Identity-u--pure_Applicative_Identity arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (ControlC-45MonadC-45Identity-u--C-60C-42C-62_Applicative_Identity arg-578 arg-580)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (ControlC-45MonadC-45Identity-u--C-62C-62C-61_Monad_Identity arg-876 arg-877))))) (lambda (u--a) (lambda (arg-879) (ControlC-45MonadC-45Identity-u--join_Monad_Identity arg-879)))) (TTImpC-45BindImplicits-renameIBinds arg-0 arg-1 e-24) (lambda (bind-1) (lambda (eta-2) (ControlC-45MonadC-45StateC-45State-u--pure_Applicative_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (ControlC-45MonadC-45Identity-u--map_Functor_Identity u--func arg-143))))) (lambda (u--a) (lambda (arg-577) (ControlC-45MonadC-45Identity-u--pure_Applicative_Identity arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (ControlC-45MonadC-45Identity-u--C-60C-42C-62_Applicative_Identity arg-578 arg-580)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (ControlC-45MonadC-45Identity-u--C-62C-62C-61_Monad_Identity arg-876 arg-877))))) (lambda (u--a) (lambda (arg-879) (ControlC-45MonadC-45Identity-u--join_Monad_Identity arg-879)))) (vector 11 e-22 bind-0 bind-1) eta-2))) eta-1))) eta-0)))))) ((18) (let ((e-25 (vector-ref sc0 1))) (let ((e-26 (vector-ref sc0 2))) (let ((e-27 (vector-ref sc0 3))) (let ((e-28 (vector-ref sc0 4))) (let ((e-29 (vector-ref sc0 5))) (lambda (eta-0) (ControlC-45MonadC-45StateC-45State-u--C-62C-62C-61_Monad_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (ControlC-45MonadC-45Identity-u--map_Functor_Identity u--func arg-143))))) (lambda (u--a) (lambda (arg-577) (ControlC-45MonadC-45Identity-u--pure_Applicative_Identity arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (ControlC-45MonadC-45Identity-u--C-60C-42C-62_Applicative_Identity arg-578 arg-580)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (ControlC-45MonadC-45Identity-u--C-62C-62C-61_Monad_Identity arg-876 arg-877))))) (lambda (u--a) (lambda (arg-879) (ControlC-45MonadC-45Identity-u--join_Monad_Identity arg-879)))) (TTImpC-45BindImplicits-renameIBinds arg-0 arg-1 e-29) (lambda (bind-0) (lambda (eta-1) (ControlC-45MonadC-45StateC-45State-u--pure_Applicative_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (ControlC-45MonadC-45Identity-u--map_Functor_Identity u--func arg-143))))) (lambda (u--a) (lambda (arg-577) (ControlC-45MonadC-45Identity-u--pure_Applicative_Identity arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (ControlC-45MonadC-45Identity-u--C-60C-42C-62_Applicative_Identity arg-578 arg-580)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (ControlC-45MonadC-45Identity-u--C-62C-62C-61_Monad_Identity arg-876 arg-877))))) (lambda (u--a) (lambda (arg-879) (ControlC-45MonadC-45Identity-u--join_Monad_Identity arg-879)))) (vector 18 e-25 e-26 e-27 e-28 bind-0) eta-1))) eta-0)))))))) ((19) (let ((e-30 (vector-ref sc0 1))) (let ((e-31 (vector-ref sc0 2))) (let ((e-32 (vector-ref sc0 3))) (lambda (eta-0) (ControlC-45MonadC-45StateC-45State-u--C-62C-62C-61_Monad_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (ControlC-45MonadC-45Identity-u--map_Functor_Identity u--func arg-143))))) (lambda (u--a) (lambda (arg-577) (ControlC-45MonadC-45Identity-u--pure_Applicative_Identity arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (ControlC-45MonadC-45Identity-u--C-60C-42C-62_Applicative_Identity arg-578 arg-580)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (ControlC-45MonadC-45Identity-u--C-62C-62C-61_Monad_Identity arg-876 arg-877))))) (lambda (u--a) (lambda (arg-879) (ControlC-45MonadC-45Identity-u--join_Monad_Identity arg-879)))) (TTImpC-45BindImplicits-renameIBinds arg-0 arg-1 e-32) (lambda (bind-0) (lambda (eta-1) (ControlC-45MonadC-45StateC-45State-u--pure_Applicative_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (ControlC-45MonadC-45Identity-u--map_Functor_Identity u--func arg-143))))) (lambda (u--a) (lambda (arg-577) (ControlC-45MonadC-45Identity-u--pure_Applicative_Identity arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (ControlC-45MonadC-45Identity-u--C-60C-42C-62_Applicative_Identity arg-578 arg-580)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (ControlC-45MonadC-45Identity-u--C-62C-62C-61_Monad_Identity arg-876 arg-877))))) (lambda (u--a) (lambda (arg-879) (ControlC-45MonadC-45Identity-u--join_Monad_Identity arg-879)))) (vector 19 e-30 e-31 bind-0) eta-1))) eta-0)))))) ((20) (let ((e-33 (vector-ref sc0 1))) (let ((e-34 (vector-ref sc0 2))) (let ((e-35 (vector-ref sc0 3))) (lambda (eta-0) (ControlC-45MonadC-45StateC-45State-u--C-62C-62C-61_Monad_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (ControlC-45MonadC-45Identity-u--map_Functor_Identity u--func arg-143))))) (lambda (u--a) (lambda (arg-577) (ControlC-45MonadC-45Identity-u--pure_Applicative_Identity arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (ControlC-45MonadC-45Identity-u--C-60C-42C-62_Applicative_Identity arg-578 arg-580)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (ControlC-45MonadC-45Identity-u--C-62C-62C-61_Monad_Identity arg-876 arg-877))))) (lambda (u--a) (lambda (arg-879) (ControlC-45MonadC-45Identity-u--join_Monad_Identity arg-879)))) (TTImpC-45BindImplicits-renameIBinds arg-0 arg-1 e-35) (lambda (bind-0) (lambda (eta-1) (ControlC-45MonadC-45StateC-45State-u--pure_Applicative_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (ControlC-45MonadC-45Identity-u--map_Functor_Identity u--func arg-143))))) (lambda (u--a) (lambda (arg-577) (ControlC-45MonadC-45Identity-u--pure_Applicative_Identity arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (ControlC-45MonadC-45Identity-u--C-60C-42C-62_Applicative_Identity arg-578 arg-580)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (ControlC-45MonadC-45Identity-u--C-62C-62C-61_Monad_Identity arg-876 arg-877))))) (lambda (u--a) (lambda (arg-879) (ControlC-45MonadC-45Identity-u--join_Monad_Identity arg-879)))) (vector 20 e-33 e-34 bind-0) eta-1))) eta-0)))))) ((21) (let ((e-36 (vector-ref sc0 1))) (let ((e-37 (vector-ref sc0 2))) (lambda (eta-0) (ControlC-45MonadC-45StateC-45State-u--C-62C-62C-61_Monad_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (ControlC-45MonadC-45Identity-u--map_Functor_Identity u--func arg-143))))) (lambda (u--a) (lambda (arg-577) (ControlC-45MonadC-45Identity-u--pure_Applicative_Identity arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (ControlC-45MonadC-45Identity-u--C-60C-42C-62_Applicative_Identity arg-578 arg-580)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (ControlC-45MonadC-45Identity-u--C-62C-62C-61_Monad_Identity arg-876 arg-877))))) (lambda (u--a) (lambda (arg-879) (ControlC-45MonadC-45Identity-u--join_Monad_Identity arg-879)))) (TTImpC-45BindImplicits-renameIBinds arg-0 arg-1 e-37) (lambda (bind-0) (lambda (eta-1) (ControlC-45MonadC-45StateC-45State-u--pure_Applicative_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (ControlC-45MonadC-45Identity-u--map_Functor_Identity u--func arg-143))))) (lambda (u--a) (lambda (arg-577) (ControlC-45MonadC-45Identity-u--pure_Applicative_Identity arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (ControlC-45MonadC-45Identity-u--C-60C-42C-62_Applicative_Identity arg-578 arg-580)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (ControlC-45MonadC-45Identity-u--C-62C-62C-61_Monad_Identity arg-876 arg-877))))) (lambda (u--a) (lambda (arg-879) (ControlC-45MonadC-45Identity-u--join_Monad_Identity arg-879)))) (vector 21 e-36 bind-0) eta-1))) eta-0))))) ((22) (let ((e-38 (vector-ref sc0 1))) (let ((e-39 (vector-ref sc0 2))) (lambda (eta-0) (ControlC-45MonadC-45StateC-45State-u--C-62C-62C-61_Monad_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (ControlC-45MonadC-45Identity-u--map_Functor_Identity u--func arg-143))))) (lambda (u--a) (lambda (arg-577) (ControlC-45MonadC-45Identity-u--pure_Applicative_Identity arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (ControlC-45MonadC-45Identity-u--C-60C-42C-62_Applicative_Identity arg-578 arg-580)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (ControlC-45MonadC-45Identity-u--C-62C-62C-61_Monad_Identity arg-876 arg-877))))) (lambda (u--a) (lambda (arg-879) (ControlC-45MonadC-45Identity-u--join_Monad_Identity arg-879)))) (TTImpC-45BindImplicits-renameIBinds arg-0 arg-1 e-39) (lambda (bind-0) (lambda (eta-1) (ControlC-45MonadC-45StateC-45State-u--pure_Applicative_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (ControlC-45MonadC-45Identity-u--map_Functor_Identity u--func arg-143))))) (lambda (u--a) (lambda (arg-577) (ControlC-45MonadC-45Identity-u--pure_Applicative_Identity arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (ControlC-45MonadC-45Identity-u--C-60C-42C-62_Applicative_Identity arg-578 arg-580)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (ControlC-45MonadC-45Identity-u--C-62C-62C-61_Monad_Identity arg-876 arg-877))))) (lambda (u--a) (lambda (arg-879) (ControlC-45MonadC-45Identity-u--join_Monad_Identity arg-879)))) (vector 22 e-38 bind-0) eta-1))) eta-0))))) ((13) (let ((e-40 (vector-ref sc0 1))) (let ((e-41 (vector-ref sc0 2))) (let ((e-42 (vector-ref sc0 3))) (lambda (eta-0) (ControlC-45MonadC-45StateC-45State-u--C-62C-62C-61_Monad_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (ControlC-45MonadC-45Identity-u--map_Functor_Identity u--func arg-143))))) (lambda (u--a) (lambda (arg-577) (ControlC-45MonadC-45Identity-u--pure_Applicative_Identity arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (ControlC-45MonadC-45Identity-u--C-60C-42C-62_Applicative_Identity arg-578 arg-580)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (ControlC-45MonadC-45Identity-u--C-62C-62C-61_Monad_Identity arg-876 arg-877))))) (lambda (u--a) (lambda (arg-879) (ControlC-45MonadC-45Identity-u--join_Monad_Identity arg-879)))) (lambda (eta-1) (TTImpC-45BindImplicits-n--7218-1149-u--renameAlt e-42 e-41 e-40 arg-1 arg-0 e-41 eta-1)) (lambda (bind-0) (lambda (eta-1) (ControlC-45MonadC-45StateC-45State-u--C-62C-62C-61_Monad_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (ControlC-45MonadC-45Identity-u--map_Functor_Identity u--func arg-143))))) (lambda (u--a) (lambda (arg-577) (ControlC-45MonadC-45Identity-u--pure_Applicative_Identity arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (ControlC-45MonadC-45Identity-u--C-60C-42C-62_Applicative_Identity arg-578 arg-580)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (ControlC-45MonadC-45Identity-u--C-62C-62C-61_Monad_Identity arg-876 arg-877))))) (lambda (u--a) (lambda (arg-879) (ControlC-45MonadC-45Identity-u--join_Monad_Identity arg-879)))) (PreludeC-45Types-u--traverse_Traversable_List (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-2) (ControlC-45MonadC-45StateC-45State-u--map_Functor_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 (lambda (b-0) (lambda (a-0) (lambda (func-0) (lambda (arg-144) (ControlC-45MonadC-45Identity-u--map_Functor_Identity func-0 arg-144))))) u--func arg-143 eta-2)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-2) (ControlC-45MonadC-45StateC-45State-u--pure_Applicative_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 (vector 0 (vector 0 (lambda (u--b) (lambda (a-0) (lambda (u--func) (lambda (arg-143) (ControlC-45MonadC-45Identity-u--map_Functor_Identity u--func arg-143))))) (lambda (a-0) (lambda (arg-578) (ControlC-45MonadC-45Identity-u--pure_Applicative_Identity arg-578))) (lambda (u--b) (lambda (a-0) (lambda (arg-578) (lambda (arg-580) (ControlC-45MonadC-45Identity-u--C-60C-42C-62_Applicative_Identity arg-578 arg-580)))))) (lambda (u--b) (lambda (a-0) (lambda (arg-876) (lambda (arg-877) (ControlC-45MonadC-45Identity-u--C-62C-62C-61_Monad_Identity arg-876 arg-877))))) (lambda (a-0) (lambda (arg-879) (ControlC-45MonadC-45Identity-u--join_Monad_Identity arg-879)))) arg-577 eta-2)))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-2) (ControlC-45MonadC-45StateC-45State-u--C-60C-42C-62_Applicative_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 (vector 0 (vector 0 (lambda (b-0) (lambda (a-0) (lambda (u--func) (lambda (arg-143) (ControlC-45MonadC-45Identity-u--map_Functor_Identity u--func arg-143))))) (lambda (a-0) (lambda (arg-577) (ControlC-45MonadC-45Identity-u--pure_Applicative_Identity arg-577))) (lambda (b-0) (lambda (a-0) (lambda (arg-579) (lambda (arg-581) (ControlC-45MonadC-45Identity-u--C-60C-42C-62_Applicative_Identity arg-579 arg-581)))))) (lambda (b-0) (lambda (a-0) (lambda (arg-876) (lambda (arg-877) (ControlC-45MonadC-45Identity-u--C-62C-62C-61_Monad_Identity arg-876 arg-877))))) (lambda (a-0) (lambda (arg-879) (ControlC-45MonadC-45Identity-u--join_Monad_Identity arg-879)))) arg-578 arg-580 eta-2))))))) (lambda (eta-2) (TTImpC-45BindImplicits-renameIBinds arg-0 arg-1 eta-2)) e-42) (lambda (bind-1) (lambda (eta-2) (ControlC-45MonadC-45StateC-45State-u--pure_Applicative_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (ControlC-45MonadC-45Identity-u--map_Functor_Identity u--func arg-143))))) (lambda (u--a) (lambda (arg-577) (ControlC-45MonadC-45Identity-u--pure_Applicative_Identity arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (ControlC-45MonadC-45Identity-u--C-60C-42C-62_Applicative_Identity arg-578 arg-580)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (ControlC-45MonadC-45Identity-u--C-62C-62C-61_Monad_Identity arg-876 arg-877))))) (lambda (u--a) (lambda (arg-879) (ControlC-45MonadC-45Identity-u--join_Monad_Identity arg-879)))) (vector 13 e-40 bind-0 bind-1) eta-2))) eta-1))) eta-0)))))) ((17) (let ((e-43 (vector-ref sc0 1))) (let ((e-44 (vector-ref sc0 2))) (TTImpC-45BindImplicits-case--renameIBinds-1219 e-44 e-43 arg-1 arg-0 (PreludeC-45Types-elem (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_String arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_String arg-4 arg-5)))) e-44 arg-0)))))(else (lambda (eta-0) (ControlC-45MonadC-45StateC-45State-u--pure_Applicative_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (ControlC-45MonadC-45Identity-u--map_Functor_Identity u--func arg-143))))) (lambda (u--a) (lambda (arg-577) (ControlC-45MonadC-45Identity-u--pure_Applicative_Identity arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (ControlC-45MonadC-45Identity-u--C-60C-42C-62_Applicative_Identity arg-578 arg-580)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (ControlC-45MonadC-45Identity-u--C-62C-62C-61_Monad_Identity arg-876 arg-877))))) (lambda (u--a) (lambda (arg-879) (ControlC-45MonadC-45Identity-u--join_Monad_Identity arg-879)))) arg-2 eta-0))))))) -(define TTImpC-45BindImplicits-piBindNames (lambda (arg-0 arg-1 arg-2) (let ((u--ns (DataC-45List-nub (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-61C-61_Eq_String arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-47C-61_Eq_String arg-5 arg-6)))) (cons (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-61C-61_Eq_String arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-47C-61_Eq_String arg-5 arg-6)))) arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (arg-3) (lambda (arg-6) (PreludeC-45EqOrd-u--C-61C-61_Eq_String arg-3 arg-6))) (lambda (arg-6) (lambda (arg-7) (PreludeC-45EqOrd-u--C-47C-61_Eq_String arg-6 arg-7)))) (cons (lambda (arg-3) (lambda (arg-6) (PreludeC-45EqOrd-u--C-61C-61_Eq_String arg-3 arg-6))) (lambda (arg-6) (lambda (arg-7) (PreludeC-45EqOrd-u--C-47C-61_Eq_String arg-6 arg-7)))) arg-4 arg-5)))) (TTImpC-45Utils-findBindableNames 0 arg-1 '() arg-2)))) (TTImpC-45BindImplicits-n--8378-1833-u--piBind arg-2 arg-1 arg-0 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-fst eta-0)) u--ns) arg-2)))) -(define TTImpC-45BindImplicits-getUsings (lambda (arg-0 arg-1) (PreludeC-45Interfaces-concatMap (cons (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-2 arg-3))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) (lambda (eta-0) (PreludeC-45Basics-flip (lambda (eta-1) (lambda (eta-2) (TTImpC-45BindImplicits-getUsing eta-1 eta-2))) arg-1 eta-0)) arg-0))) -(define TTImpC-45BindImplicits-getUsing (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (if (null? sc0) '() (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (let ((sc2 e-7)) (let ((e-10 (car sc2))) (let ((e-11 (cdr sc2))) (let ((sc3 e-10)) (case (vector-ref sc3 0) ((1) (let ((e-13 (vector-ref sc3 1))) (TTImpC-45BindImplicits-case--getUsing-1531 e-6 e-13 e-11 e-3 arg-0 (CoreC-45Name-u--C-61C-61_Eq_Name arg-0 e-13)))) (else (let ((u--ns (DataC-45List-nub (cons (lambda (arg-2) (lambda (arg-3) (CoreC-45Name-u--C-61C-61_Eq_Name arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (CoreC-45Name-u--C-47C-61_Eq_Name arg-4 arg-5)))) (TTImpC-45Utils-findIBindVars e-11)))) (TTImpC-45BindImplicits-case--getUsing-1597 e-6 e-11 e-3 arg-0 u--ns (PreludeC-45Types-elem (cons (lambda (arg-2) (lambda (arg-3) (CoreC-45Name-u--C-61C-61_Eq_Name arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (CoreC-45Name-u--C-47C-61_Eq_Name arg-4 arg-5)))) arg-0 u--ns)))))))))))))))))) -(define TTImpC-45BindImplicits-doBind (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (if (null? sc0) arg-1 (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((sc2 e-1)) (case (vector-ref sc2 0) ((1) (let ((e-49 (vector-ref sc2 1))) (PreludeC-45Types-maybe (lambda () (vector 0 e-0 (vector 1 e-49))) (lambda () (lambda (u--nC-39) (vector 17 e-0 u--nC-39))) (DataC-45List-lookup (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_String arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_String arg-4 arg-5)))) e-49 arg-0))))(else arg-1)))))) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((e-4 (vector-ref sc1 3))) (let ((e-5 (vector-ref sc1 4))) (let ((e-6 (vector-ref sc1 5))) (let ((e-7 (vector-ref sc1 6))) (let ((u--nsC-39 (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((sc3 e-1)) (case (vector-ref sc3 0) ((1) (let ((e-8 (vector-ref sc3 1))) (DataC-45List-filter (lambda (u--x) (PreludeC-45EqOrd-u--C-47C-61_Eq_String (Builtin-fst u--x) e-8)) arg-0)))(else arg-0)))))(else arg-0))))) (vector 1 e-2 e-3 e-4 e-5 (TTImpC-45BindImplicits-doBind u--nsC-39 e-6) (TTImpC-45BindImplicits-doBind u--nsC-39 e-7)))))))))) ((2) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((e-10 (vector-ref sc1 3))) (let ((e-11 (vector-ref sc1 4))) (let ((e-12 (vector-ref sc1 5))) (let ((e-13 (vector-ref sc1 6))) (let ((u--nsC-39 (let ((sc2 e-11)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((sc3 e-1)) (case (vector-ref sc3 0) ((1) (let ((e-2 (vector-ref sc3 1))) (DataC-45List-filter (lambda (u--x) (PreludeC-45EqOrd-u--C-47C-61_Eq_String (Builtin-fst u--x) e-2)) arg-0)))(else arg-0)))))(else arg-0))))) (vector 2 e-8 e-9 e-10 e-11 (TTImpC-45BindImplicits-doBind u--nsC-39 e-12) (TTImpC-45BindImplicits-doBind u--nsC-39 e-13)))))))))) ((8) (let ((e-14 (vector-ref sc1 1))) (let ((e-15 (vector-ref sc1 2))) (let ((e-16 (vector-ref sc1 3))) (vector 8 e-14 (TTImpC-45BindImplicits-doBind arg-0 e-15) (TTImpC-45BindImplicits-doBind arg-0 e-16)))))) ((9) (let ((e-17 (vector-ref sc1 1))) (let ((e-18 (vector-ref sc1 2))) (let ((e-19 (vector-ref sc1 3))) (vector 9 e-17 (TTImpC-45BindImplicits-doBind arg-0 e-18) (TTImpC-45BindImplicits-doBind arg-0 e-19)))))) ((10) (let ((e-20 (vector-ref sc1 1))) (let ((e-21 (vector-ref sc1 2))) (let ((e-22 (vector-ref sc1 3))) (let ((e-23 (vector-ref sc1 4))) (vector 10 e-20 (TTImpC-45BindImplicits-doBind arg-0 e-21) e-22 (TTImpC-45BindImplicits-doBind arg-0 e-23))))))) ((11) (let ((e-24 (vector-ref sc1 1))) (let ((e-25 (vector-ref sc1 2))) (let ((e-26 (vector-ref sc1 3))) (vector 11 e-24 (TTImpC-45BindImplicits-doBind arg-0 e-25) (TTImpC-45BindImplicits-doBind arg-0 e-26)))))) ((18) (let ((e-27 (vector-ref sc1 1))) (let ((e-28 (vector-ref sc1 2))) (let ((e-29 (vector-ref sc1 3))) (let ((e-30 (vector-ref sc1 4))) (let ((e-31 (vector-ref sc1 5))) (vector 18 e-27 e-28 e-29 e-30 (TTImpC-45BindImplicits-doBind arg-0 e-31)))))))) ((19) (let ((e-32 (vector-ref sc1 1))) (let ((e-33 (vector-ref sc1 2))) (let ((e-34 (vector-ref sc1 3))) (vector 19 e-32 e-33 (TTImpC-45BindImplicits-doBind arg-0 e-34)))))) ((20) (let ((e-35 (vector-ref sc1 1))) (let ((e-36 (vector-ref sc1 2))) (let ((e-37 (vector-ref sc1 3))) (vector 20 e-35 e-36 (TTImpC-45BindImplicits-doBind arg-0 e-37)))))) ((21) (let ((e-38 (vector-ref sc1 1))) (let ((e-39 (vector-ref sc1 2))) (vector 21 e-38 (TTImpC-45BindImplicits-doBind arg-0 e-39))))) ((22) (let ((e-40 (vector-ref sc1 1))) (let ((e-41 (vector-ref sc1 2))) (vector 22 e-40 (TTImpC-45BindImplicits-doBind arg-0 e-41))))) ((23) (let ((e-42 (vector-ref sc1 1))) (let ((e-43 (vector-ref sc1 2))) (vector 23 e-42 (TTImpC-45BindImplicits-doBind arg-0 e-43))))) ((26) (let ((e-44 (vector-ref sc1 1))) (let ((e-45 (vector-ref sc1 2))) (vector 26 e-44 (TTImpC-45BindImplicits-doBind arg-0 e-45))))) ((13) (let ((e-46 (vector-ref sc1 1))) (let ((e-47 (vector-ref sc1 2))) (let ((e-48 (vector-ref sc1 3))) (vector 13 e-46 (TTImpC-45TTImp-mapAltType (lambda (eta-0) (TTImpC-45BindImplicits-doBind arg-0 eta-0)) e-47) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (TTImpC-45BindImplicits-doBind arg-0 eta-0)) e-48))))))(else arg-1))))))) -(define TTImpC-45BindImplicits-bindUsings (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (if (null? sc0) arg-1 (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (let ((sc2 e-7)) (let ((e-10 (car sc2))) (let ((e-11 (cdr sc2))) (let ((sc3 e-11)) (let ((e-14 (car sc3))) (let ((e-15 (cdr sc3))) (vector 1 (TTImpC-45TTImp-getFC e-15) e-6 e-10 e-14 e-15 (TTImpC-45BindImplicits-bindUsings e-3 arg-1))))))))))))))))) -(define TTImpC-45BindImplicits-bindTypeNamesUsed (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (CoreC-45Context-isUnboundImplicits arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (let ((u--ns (DataC-45List-nub (cons (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-61C-61_Eq_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (arg-6) (lambda (arg-7) (PreludeC-45EqOrd-u--C-61C-61_Eq_String arg-6 arg-7))) (lambda (arg-6) (lambda (arg-7) (PreludeC-45EqOrd-u--C-47C-61_Eq_String arg-6 arg-7)))) (cons (lambda (arg-6) (lambda (arg-7) (PreludeC-45EqOrd-u--C-61C-61_Eq_String arg-6 arg-7))) (lambda (arg-6) (lambda (arg-7) (PreludeC-45EqOrd-u--C-47C-61_Eq_String arg-6 arg-7)))) arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (arg-6) (lambda (arg-7) (PreludeC-45EqOrd-u--C-61C-61_Eq_String arg-6 arg-7))) (lambda (arg-6) (lambda (arg-7) (PreludeC-45EqOrd-u--C-47C-61_Eq_String arg-6 arg-7)))) (cons (lambda (arg-6) (lambda (arg-7) (PreludeC-45EqOrd-u--C-61C-61_Eq_String arg-6 arg-7))) (lambda (arg-6) (lambda (arg-7) (PreludeC-45EqOrd-u--C-47C-61_Eq_String arg-6 arg-7)))) arg-4 arg-5)))) (TTImpC-45Utils-findBindableNames 0 arg-2 arg-1 arg-3)))) (vector 1 (TTImpC-45BindImplicits-doBind u--ns arg-3)))) (else (vector 1 arg-3))))))))))) -(define TTImpC-45BindImplicits-bindTypeNames (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (CoreC-45Context-isUnboundImplicits arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (let ((u--ns (DataC-45List-nub (cons (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-61C-61_Eq_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (arg-6) (lambda (arg-7) (PreludeC-45EqOrd-u--C-61C-61_Eq_String arg-6 arg-7))) (lambda (arg-6) (lambda (arg-7) (PreludeC-45EqOrd-u--C-47C-61_Eq_String arg-6 arg-7)))) (cons (lambda (arg-6) (lambda (arg-7) (PreludeC-45EqOrd-u--C-61C-61_Eq_String arg-6 arg-7))) (lambda (arg-6) (lambda (arg-7) (PreludeC-45EqOrd-u--C-47C-61_Eq_String arg-6 arg-7)))) arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (arg-6) (lambda (arg-7) (PreludeC-45EqOrd-u--C-61C-61_Eq_String arg-6 arg-7))) (lambda (arg-6) (lambda (arg-7) (PreludeC-45EqOrd-u--C-47C-61_Eq_String arg-6 arg-7)))) (cons (lambda (arg-6) (lambda (arg-7) (PreludeC-45EqOrd-u--C-61C-61_Eq_String arg-6 arg-7))) (lambda (arg-6) (lambda (arg-7) (PreludeC-45EqOrd-u--C-47C-61_Eq_String arg-6 arg-7)))) arg-4 arg-5)))) (TTImpC-45Utils-findBindableNames 0 arg-2 '() arg-3)))) (let ((u--btm (TTImpC-45BindImplicits-doBind u--ns arg-3))) (vector 1 (TTImpC-45BindImplicits-addUsing arg-1 u--btm))))) (else (vector 1 arg-3))))))))))) -(define TTImpC-45BindImplicits-bindNames (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (CoreC-45Context-isUnboundImplicits arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (let ((u--ns (DataC-45List-nub (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-61C-61_Eq_String arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-47C-61_Eq_String arg-5 arg-6)))) (cons (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-61C-61_Eq_String arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-47C-61_Eq_String arg-5 arg-6)))) arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (arg-3) (lambda (arg-6) (PreludeC-45EqOrd-u--C-61C-61_Eq_String arg-3 arg-6))) (lambda (arg-6) (lambda (arg-7) (PreludeC-45EqOrd-u--C-47C-61_Eq_String arg-6 arg-7)))) (cons (lambda (arg-3) (lambda (arg-6) (PreludeC-45EqOrd-u--C-61C-61_Eq_String arg-3 arg-6))) (lambda (arg-6) (lambda (arg-7) (PreludeC-45EqOrd-u--C-47C-61_Eq_String arg-6 arg-7)))) arg-4 arg-5)))) (TTImpC-45Utils-findBindableNames arg-1 '() '() arg-2)))) (let ((act-25 (CoreC-45ContextC-45Log-log arg-0 "elab.bindnames" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Found names :" (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_String x-0)) (lambda (u--d) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_String u--d x-0)))) (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_String x-0)) (lambda (u--d) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_String u--d x-0))))) u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_String x-0)) (lambda (d-0) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_String d-0 x-0)))) (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_String x-0)) (lambda (d-0) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_String d-0 x-0))))) u--d u--x)))) u--ns))) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (vector 1 (cons (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (vector 1 eta-0)) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) u--ns)) (TTImpC-45BindImplicits-doBind u--ns arg-2))))))))) (else (vector 1 (cons '() arg-2)))))))))))) -(define TTImpC-45BindImplicits-addUsing (lambda (arg-0 arg-1) (let ((u--ns (DataC-45List-nub (cons (lambda (arg-2) (lambda (arg-3) (CoreC-45Name-u--C-61C-61_Eq_Name arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (CoreC-45Name-u--C-47C-61_Eq_Name arg-4 arg-5)))) (TTImpC-45Utils-findIBindVars arg-1)))) (let ((u--bs (DataC-45List-nubBy (lambda (u--x) (lambda (u--y) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int (Builtin-fst u--x) (Builtin-fst u--y)))) (TTImpC-45BindImplicits-getUsings u--ns (TTImpC-45BindImplicits-n--8216-1681-u--tag arg-1 arg-0 0 arg-0))))) (TTImpC-45BindImplicits-bindUsings (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) u--bs) arg-1))))) -(define ControlC-45MonadC-45StateC-45State-case--caseC-32blockC-32inC-32C-62C-62C-61-1064 (lambda (arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (arg-11 arg-8))) -(define ControlC-45MonadC-45StateC-45State-u--pure_Applicative_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 (lambda (arg-3 arg-4 ext-0) (let ((sc0 arg-3)) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 2))) ((e-5 'erased) (cons ext-0 arg-4)))))))) -(define ControlC-45MonadC-45StateC-45State-u--map_Functor_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 (lambda (arg-4 arg-5 arg-6 ext-0) ((((arg-4 'erased) 'erased) (lambda (eta-0) (let ((sc0 eta-0)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (cons e-2 (arg-5 e-3))))))) (arg-6 ext-0)))) +(define CoreC-45LinearCheck-updateHoleUsageArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (if (null? arg-6) (vector 1 0) (let ((e-2 (car arg-6))) (let ((e-3 (cdr arg-6))) (let ((act-24 ((CoreC-45LinearCheck-updateHoleUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45LinearCheck-updateHoleUsageArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (cond ((equal? e-5 1) 1) (else e-6)))))))))))))))) +(define CoreC-45LinearCheck-updateHoleUsage (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (case (vector-ref arg-6 0) ((3) (let ((e-29 (vector-ref arg-6 2))) (let ((e-30 (vector-ref arg-6 3))) (let ((e-31 (vector-ref arg-6 4))) (case (vector-ref e-30 0) ((1) (let ((e-35 (vector-ref e-30 3))) (lambda (eta-0) (let ((act-24 ((CoreC-45LinearCheck-updateHoleUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-35) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45LinearCheck-updateHoleUsage (cons e-29 arg-0) arg-1 arg-2 arg-3 (+ 1 arg-4) (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (CoreC-45TT-u--weaken_Weaken_Var eta-1)) arg-5) e-31) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (cond ((equal? e-5 1) 1) (else e-6))))))))))))))(else (CoreC-45LinearCheck-updateHoleUsage (cons e-29 arg-0) arg-1 arg-2 arg-3 (+ 1 arg-4) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45TT-u--weaken_Weaken_Var eta-0)) arg-5) e-31)))))))(else (case (vector-ref arg-6 0) ((2) (let ((e-3 (vector-ref arg-6 3))) (let ((e-4 (vector-ref arg-6 4))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact (vector 9 e-3) (let ((e-0 (vector-ref e-5 0))) e-0)) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-6 (vector-ref act-25 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-25 1))) (if (null? e-6) (CoreC-45LinearCheck-updateHoleUsageArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-4 eta-0) (let ((e-7 (unbox e-6))) (let ((e-17 (vector-ref e-7 17))) (case (vector-ref e-17 0) ((7) (let ((u--ty (let ((e-48 (vector-ref e-7 2))) e-48))) (let ((act-26 ((CoreC-45LinearCheck-updateHoleType arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 u--ty e-4) eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-30 (vector-ref act-26 1))) (vector 0 e-30))) (else (let ((e-30 (vector-ref act-26 1))) (let ((act-27 (CoreC-45Context-updateTy arg-1 e-3 e-30 eta-0))) (case (vector-ref act-27 0) ((0) (let ((e-31 (vector-ref act-27 1))) (vector 0 e-31))) (else (let ((act-28 (CoreC-45ContextC-45Log-logTerm '() arg-1 "quantity.hole.update" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "New type of " (CoreC-45Name-u--show_Show_Name (let ((e-51 (vector-ref e-7 1))) e-51)))) e-30 eta-0))) (case (vector-ref act-28 0) ((0) (let ((e-32 (vector-ref act-28 1))) (vector 0 e-32))) (else (let ((act-29 (CoreC-45ContextC-45Log-logTerm '() arg-1 "quantity.hole.update" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Updated from " (CoreC-45Name-u--show_Show_Name (let ((e-52 (vector-ref e-7 1))) e-52)))) (let ((e-51 (vector-ref e-7 2))) e-51) eta-0))) (case (vector-ref act-29 0) ((0) (let ((e-33 (vector-ref act-29 1))) (vector 0 e-33))) (else (vector 1 1))))))))))))))))(else (CoreC-45LinearCheck-updateHoleUsageArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-4 eta-0)))))))))))))))))) ((5) (let ((e-8 (vector-ref arg-6 3))) (lambda (eta-0) (let ((act-24 ((CoreC-45LinearCheck-updateHoleUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-8) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45LinearCheck-updateHoleUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-8) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref act-25 1))) (vector 1 (cond ((equal? e-5 1) 1) (else e-10)))))))))))))) ((6) (let ((e-13 (vector-ref arg-6 3))) (CoreC-45LinearCheck-updateHoleUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-13))) ((7) (let ((e-18 (vector-ref arg-6 4))) (CoreC-45LinearCheck-updateHoleUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-18))) ((8) (let ((e-22 (vector-ref arg-6 3))) (CoreC-45LinearCheck-updateHoleUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-22)))(else (CoreC-45LinearCheck-case--updateHoleUsage-8103 arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (CoreC-45TT-getFnArgs arg-6)))))))) +(define CoreC-45LinearCheck-updateHoleType (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (case (vector-ref arg-7 0) ((3) (let ((e-1 (vector-ref arg-7 1))) (let ((e-2 (vector-ref arg-7 2))) (let ((e-3 (vector-ref arg-7 3))) (let ((e-4 (vector-ref arg-7 4))) (case (vector-ref e-3 0) ((2) (let ((e-6 (vector-ref e-3 1))) (let ((e-7 (vector-ref e-3 2))) (let ((e-8 (vector-ref e-3 3))) (let ((e-9 (vector-ref e-3 4))) (if (null? arg-8) (lambda (eta-0) (let ((act-24 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (case (vector-ref eta-1 0) ((0) (let ((e-5 (vector-ref eta-1 1))) (vector 0 e-5))) (else (vector 1 0)))) (lambda (eta-1) (CoreC-45LinearCheck-updateHoleUsageArgs arg-1 arg-2 arg-3 0 arg-5 arg-6 arg-8 eta-1)) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (vector 1 arg-7))))) (let ((e-11 (car arg-8))) (let ((e-12 (cdr arg-8))) (case (vector-ref e-11 0) ((0) (let ((e-17 (vector-ref e-11 3))) (lambda (clam-0) (let ((sc4 (PreludeC-45Types-u--C-61C-61_Eq_Nat (CoreC-45TT-varIdx arg-5) e-17))) (cond ((equal? sc4 1) (let ((act-24 ((CoreC-45LinearCheck-updateHoleType arg-1 arg-2 arg-3 0 arg-5 arg-6 e-4 e-12) clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((u--cC-39 (cond ((equal? arg-4 1) e-7) (else (AlgebraC-45Semiring-erased (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))))))) (vector 1 (vector 3 e-1 e-2 (vector 2 e-6 u--cC-39 e-8 e-9) e-5)))))))) (else (let ((sc5 (PreludeC-45Types-elem (cons (lambda (arg-9) (lambda (arg-10) (PreludeC-45Types-u--C-61C-61_Eq_Nat arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (PreludeC-45Types-u--C-47C-61_Eq_Nat arg-9 arg-10)))) e-17 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45TT-varIdx eta-0)) arg-6)))) (cond ((equal? sc5 1) (let ((act-24 ((CoreC-45LinearCheck-updateHoleType arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-4 e-12) clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 3 e-1 e-2 (vector 2 e-6 (AlgebraC-45Semiring-erased (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))) e-8 e-9) e-5))))))) (else (let ((act-24 ((CoreC-45LinearCheck-updateHoleType arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-4 e-12) clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 3 e-1 e-2 (vector 2 e-6 e-7 e-8 e-9) e-5)))))))))))))))(else (lambda (eta-0) (let ((act-24 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (case (vector-ref eta-1 0) ((0) (let ((e-5 (vector-ref eta-1 1))) (vector 0 e-5))) (else (vector 1 0)))) (CoreC-45LinearCheck-updateHoleUsage arg-1 arg-2 arg-3 0 arg-5 arg-6 e-11) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((act-25 ((CoreC-45LinearCheck-updateHoleType arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-4 e-12) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (vector 1 (vector 3 e-1 e-2 (vector 2 e-6 e-7 e-8 e-9) e-10))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (case (vector-ref eta-1 0) ((0) (let ((e-5 (vector-ref eta-1 1))) (vector 0 e-5))) (else (vector 1 0)))) (lambda (eta-1) (CoreC-45LinearCheck-updateHoleUsageArgs arg-1 arg-2 arg-3 0 arg-5 arg-6 arg-8 eta-1)) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (vector 1 arg-7))))))))))))(else (lambda (eta-0) (let ((act-24 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (case (vector-ref eta-1 0) ((0) (let ((e-2 (vector-ref eta-1 1))) (vector 0 e-2))) (else (vector 1 0)))) (lambda (eta-1) (CoreC-45LinearCheck-updateHoleUsageArgs arg-1 arg-2 arg-3 0 arg-5 arg-6 arg-8 eta-1)) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (vector 1 arg-7))))))))) +(define CoreC-45LinearCheck-localPrf (lambda (arg-2) (if (null? arg-2) 0 (let ((e-3 (cdr arg-2))) (+ 1 (CoreC-45LinearCheck-localPrf e-3)))))) +(define CoreC-45LinearCheck-linearCheck (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 (CoreC-45ContextC-45Log-logTerm arg-0 arg-1 "quantity" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Linearity check on ") arg-7 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45Normalise-logEnv arg-0 arg-1 "quantity" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) "In env" arg-6 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 ((CoreC-45LinearCheck-lcheck arg-0 arg-1 arg-2 arg-4 arg-5 arg-6 arg-7) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((e-2 (car e-7))) (let ((e-3 (cdr e-7))) (let ((e-8 (cdr e-3))) (let ((act-27 (CoreC-45ContextC-45Log-log arg-1 "quantity" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Used: " (CoreC-45LinearCheck-u--show_Show_C-40UsageC-32C-36varsC-41 e-8))) ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-4 (vector-ref act-27 1))) (vector 0 e-4))) (else (let ((act-28 (cond ((equal? arg-5 1) (vector 1 0)) (else ((CoreC-45LinearCheck-checkEnvUsage arg-0 '() arg-1 arg-2 arg-3 arg-4 arg-6 e-8 e-2) ext-0))))) (case (vector-ref act-28 0) ((0) (let ((e-4 (vector-ref act-28 1))) (vector 0 e-4))) (else (vector 1 e-2)))))))))))))))))))))) +(define CoreC-45LinearCheck-lcheckMeta (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (if (null? arg-9) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (cons (vector 2 arg-6 arg-7 arg-8 (DataC-45List-reverse arg-10)) (cons (CoreC-45Normalise-glueBack arg-1 arg-0 e-5 arg-5 arg-11) '())))))))) (let ((e-1 (car arg-9))) (let ((e-2 (cdr arg-9))) (case (vector-ref arg-11 0) ((0) (let ((e-7 (vector-ref arg-11 3))) (let ((e-8 (vector-ref arg-11 4))) (case (vector-ref e-7 0) ((2) (let ((e-11 (vector-ref e-7 2))) (let ((u--checkRig (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega e-11 arg-3))) (lambda (eta-0) (let ((act-24 ((CoreC-45LinearCheck-lcheck arg-0 arg-1 arg-2 u--checkRig arg-4 arg-5 e-1) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref act-24 1))) (let ((e-4 (car e-9))) (let ((e-3 (cdr e-9))) (let ((e-14 (cdr e-3))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-16 (vector-ref act-25 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref act-25 1))) (let ((act-26 (((e-8 e-16) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) arg-5 e-4)) eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-17 (vector-ref act-26 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref act-26 1))) (let ((u--aerased (let ((sc8 (cond ((equal? arg-4 1) (AlgebraC-45Semiring-isErased (cons (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-12) (lambda (arg-13) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-12 arg-13))) (lambda (arg-12) (lambda (arg-13) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-12 arg-13))))) e-11)) (else 0)))) (cond ((equal? sc8 1) (vector 10 arg-6 0)) (else e-4))))) (let ((act-27 ((CoreC-45LinearCheck-lcheckMeta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2 (cons u--aerased arg-10) e-17) eta-0))) (case (vector-ref act-27 0) ((0) (let ((e-18 (vector-ref act-27 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref act-27 1))) (let ((e-20 (car e-18))) (let ((e-19 (cdr e-18))) (let ((e-22 (car e-19))) (let ((e-21 (cdr e-19))) (vector 1 (cons e-20 (cons e-22 (CoreC-45LinearCheck-C-43C-43 e-14 e-21))))))))))))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-clearDefs e-9 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-3 (vector-ref act-25 1))) (vector 0 e-3))) (else (let ((e-10 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Normalise-u--quote_Quote_NF arg-1 arg-0 e-10 arg-5 arg-11 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-3 (vector-ref act-26 1))) (vector 0 e-3))) (else (let ((e-11 (vector-ref act-26 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-6 (PreludeC-45TypesC-45String-C-43C-43 "Linearity checking failed on metavar " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name arg-7) (PreludeC-45TypesC-45String-C-43C-43 " (" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 e-11) " not a function type)"))))) eta-0)))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-clearDefs e-5 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-3 (vector-ref act-25 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Normalise-u--quote_Quote_NF arg-1 arg-0 e-6 arg-5 arg-11 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-3 (vector-ref act-26 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref act-26 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-6 (PreludeC-45TypesC-45String-C-43C-43 "Linearity checking failed on metavar " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name arg-7) (PreludeC-45TypesC-45String-C-43C-43 " (" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 e-7) " not a function type)"))))) eta-0))))))))))))))))))))) +(define CoreC-45LinearCheck-lcheckDef (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (cond ((equal? arg-5 1) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact arg-7 (let ((e-0 (vector-ref e-5 0))) e-0)) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (if (null? e-6) (CoreC-45Context-undefinedName arg-1 arg-3 arg-7 ext-0) (let ((e-1 (unbox e-6))) (vector 1 (let ((e-2 (vector-ref e-1 2))) e-2))))))))))))) (else (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (CoreC-45LinearCheck-case--lcheckDef-13478 arg-7 arg-6 arg-4 arg-3 arg-2 arg-1 e-5 (CoreC-45Context-getNameID arg-7 (let ((e-0 (vector-ref e-5 0))) e-0)) ext-0))))))))) +(define CoreC-45LinearCheck-lcheckBinder (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (case (vector-ref arg-6 0) ((0) (let ((e-1 (vector-ref arg-6 1))) (let ((e-2 (vector-ref arg-6 2))) (let ((e-3 (vector-ref arg-6 3))) (let ((e-4 (vector-ref arg-6 4))) (let ((act-24 ((CoreC-45LinearCheck-lcheck arg-0 arg-1 arg-2 (AlgebraC-45Semiring-erased (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))) arg-4 arg-5 e-4) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((e-7 (car e-5))) (let ((e-6 (cdr e-5))) (let ((e-9 (car e-6))) (vector 1 (cons (vector 0 e-1 e-2 e-3 e-7) (cons e-9 '()))))))))))))))) ((1) (let ((e-6 (vector-ref arg-6 1))) (let ((e-7 (vector-ref arg-6 2))) (let ((e-8 (vector-ref arg-6 3))) (let ((e-9 (vector-ref arg-6 4))) (let ((act-24 ((CoreC-45LinearCheck-lcheck arg-0 arg-1 arg-2 (AlgebraC-45Semiring-erased (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))) arg-4 arg-5 e-9) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((e-2 (car e-5))) (let ((e-3 (cdr e-5))) (let ((e-11 (car e-3))) (let ((act-25 ((CoreC-45LinearCheck-lcheck arg-0 arg-1 arg-2 (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-3 e-7) arg-4 arg-5 e-8) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref act-25 1))) (let ((e-13 (car e-12))) (let ((e-4 (cdr e-12))) (let ((e-14 (cdr e-4))) (vector 1 (cons (vector 1 e-6 e-7 e-13 e-2) (cons e-11 e-14)))))))))))))))))))))) ((2) (let ((e-11 (vector-ref arg-6 1))) (let ((e-12 (vector-ref arg-6 2))) (let ((e-13 (vector-ref arg-6 3))) (let ((e-14 (vector-ref arg-6 4))) (let ((act-24 ((CoreC-45LinearCheck-lcheck arg-0 arg-1 arg-2 (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-3 e-12) arg-4 arg-5 e-14) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((e-2 (car e-5))) (let ((e-3 (cdr e-5))) (let ((e-6 (car e-3))) (vector 1 (cons (vector 2 e-11 e-12 e-13 e-2) (cons e-6 '()))))))))))))))) ((3) (let ((e-16 (vector-ref arg-6 1))) (let ((e-17 (vector-ref arg-6 2))) (let ((e-18 (vector-ref arg-6 3))) (let ((e-19 (vector-ref arg-6 4))) (let ((act-24 ((CoreC-45LinearCheck-lcheck arg-0 arg-1 arg-2 (AlgebraC-45Semiring-erased (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))) arg-4 arg-5 e-19) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((e-2 (car e-5))) (let ((e-3 (cdr e-5))) (let ((e-6 (car e-3))) (vector 1 (cons (vector 3 e-16 e-17 e-18 e-2) (cons e-6 '()))))))))))))))) ((4) (let ((e-21 (vector-ref arg-6 1))) (let ((e-22 (vector-ref arg-6 2))) (let ((e-23 (vector-ref arg-6 3))) (let ((e-24 (vector-ref arg-6 4))) (let ((act-24 ((CoreC-45LinearCheck-lcheck arg-0 arg-1 arg-2 (AlgebraC-45Semiring-erased (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))) arg-4 arg-5 e-24) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((e-2 (car e-5))) (let ((e-3 (cdr e-5))) (let ((e-6 (car e-3))) (let ((act-25 ((CoreC-45LinearCheck-lcheck arg-0 arg-1 arg-2 (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-3 e-22) arg-4 arg-5 e-23) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref act-25 1))) (let ((e-9 (car e-8))) (let ((e-4 (cdr e-8))) (let ((e-10 (cdr e-4))) (vector 1 (cons (vector 4 e-21 e-22 e-9 e-2) (cons e-6 e-10)))))))))))))))))))))) (else (let ((e-26 (vector-ref arg-6 1))) (let ((e-27 (vector-ref arg-6 2))) (let ((e-28 (vector-ref arg-6 3))) (let ((act-24 ((CoreC-45LinearCheck-lcheck arg-0 arg-1 arg-2 (AlgebraC-45Semiring-erased (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))) arg-4 arg-5 e-28) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((e-2 (car e-5))) (let ((e-3 (cdr e-5))) (let ((e-6 (car e-3))) (vector 1 (cons (vector 5 e-26 e-27 e-2) (cons e-6 '()))))))))))))))))) +(define CoreC-45LinearCheck-lcheck (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (case (vector-ref arg-6 0) ((0) (let ((e-2 (vector-ref arg-6 1))) (let ((e-3 (vector-ref arg-6 2))) (let ((e-4 (vector-ref arg-6 3))) (let ((u--b (CoreC-45Env-getBinder (cons (lambda (u--n) (lambda (u--vars) (lambda (arg-5607) (CoreC-45TT-u--weaken_Weaken_Term arg-5607)))) (lambda (u--vars) (lambda (u--ns) (lambda (arg-5613) (lambda (arg-5615) (CoreC-45TT-u--weakenNs_Weaken_Term arg-5613 arg-5615)))))) arg-0 e-4 arg-5))) (let ((u--rigb (CoreC-45TT-multiplicity u--b))) (let ((u--ty (CoreC-45TT-binderType u--b))) (lambda (eta-0) (let ((act-24 (cond ((equal? arg-4 1) (vector 1 0)) (else (CoreC-45LinearCheck-n--7707-8273-u--rigSafe e-4 arg-0 e-3 e-2 arg-5 arg-4 arg-3 arg-2 arg-1 u--rigb arg-3 eta-0))))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (vector 1 (cons (vector 0 e-2 e-3 e-4) (cons (CoreC-45Normalise-gnf arg-0 arg-5 u--ty) (CoreC-45LinearCheck-n--7707-8274-u--used e-4 arg-0 e-3 e-2 arg-5 arg-4 arg-3 arg-2 arg-1 arg-3))))))))))))))) ((1) (let ((e-7 (vector-ref arg-6 1))) (let ((e-8 (vector-ref arg-6 2))) (let ((e-9 (vector-ref arg-6 3))) (lambda (eta-0) (let ((act-24 (CoreC-45LinearCheck-lcheckDef arg-1 arg-2 e-7 arg-3 arg-4 arg-5 e-9 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (cons (vector 1 e-7 e-8 e-9) (cons (CoreC-45Normalise-gnf arg-0 arg-5 (CoreC-45TT-embed e-5)) '())))))))))))) ((2) (let ((e-11 (vector-ref arg-6 1))) (let ((e-12 (vector-ref arg-6 2))) (let ((e-13 (vector-ref arg-6 3))) (let ((e-14 (vector-ref arg-6 4))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact (vector 9 e-13) (let ((e-0 (vector-ref e-5 0))) e-0)) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (if (null? e-6) (CoreC-45Context-undefinedName arg-1 e-11 e-12 eta-0) (let ((e-1 (unbox e-6))) (let ((u--expand (AlgebraC-45Semiring-branchZero (cons (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-7) (lambda (arg-8) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-7 arg-8))) (lambda (arg-7) (lambda (arg-8) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-7 arg-8))))) (let ((e-2 (vector-ref e-1 2))) (case (vector-ref e-2 0) ((10) (lambda () 1))(else (lambda () 0)))) (let ((e-17 (vector-ref e-1 17))) (case (vector-ref e-17 0) ((1) (lambda () 1))(else (lambda () 0)))) arg-3))) (let ((act-26 (CoreC-45ContextC-45Log-unverifiedLogC arg-1 "quantity" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda (eta-1) (let ((act-26 (let ((e-17 (vector-ref e-1 17))) (case (vector-ref e-17 0) ((1) (let ((e-31 (vector-ref e-17 2))) (let ((e-30 (vector-ref e-17 3))) (case (vector-ref e-30 0) ((1) (let ((e-33 (vector-ref e-30 2))) (let ((act-26 (CoreC-45Context-toFullNames arg-1 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-2) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-2)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-2) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-2))))) e-33 eta-1))) (case (vector-ref act-26 0) ((0) (let ((e-35 (vector-ref act-26 1))) (vector 0 e-35))) (else (let ((e-35 (vector-ref act-26 1))) (vector 1 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 e-31 e-35))))))))(else (vector 1 ""))))))(else (vector 1 "")))))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (PreludeC-45TypesC-45String-C-43C-43 (AlgebraC-45ZeroOneOmega-u--show_Show_ZeroOneOmega arg-3) (PreludeC-45TypesC-45String-C-43C-43 ": " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-12) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45FC-u--show_Show_FC e-11) (PreludeC-45TypesC-45String-C-43C-43 "\u000a" (PreludeC-45Show-u--show_Show_String e-7))))))))))))) eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (cond ((equal? u--expand 1) ((CoreC-45LinearCheck-expandMeta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-12 e-13 (let ((e-17 (vector-ref e-1 17))) e-17) e-14) eta-0)) (else (let ((u--ty (let ((e-17 (vector-ref e-1 17))) (case (vector-ref e-17 0) ((7) (CoreC-45LinearCheck-n--7707-8501-u--unusedHoleArgs arg-0 e-14 e-13 e-12 e-11 arg-5 arg-4 arg-3 arg-2 arg-1 e-14 (let ((e-49 (vector-ref e-1 2))) e-49)))(else (let ((e-47 (vector-ref e-1 2))) e-47)))))) (let ((act-27 ((CoreC-45Normalise-nf arg-1 arg-0 e-5 arg-5 (CoreC-45TT-embed u--ty)) eta-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) ((CoreC-45LinearCheck-lcheckMeta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-11 e-12 e-13 e-14 '() e-8) eta-0)))))))))))))))))))))))))))) ((3) (let ((e-16 (vector-ref arg-6 1))) (let ((e-17 (vector-ref arg-6 2))) (let ((e-18 (vector-ref arg-6 3))) (let ((e-19 (vector-ref arg-6 4))) (lambda (eta-0) (let ((act-24 (CoreC-45UnifyState-handleUnify arg-1 arg-2 (lambda (eta-1) (CoreC-45LinearCheck-lcheckBinder arg-0 arg-1 arg-2 (CoreC-45LinearCheck-n--7707-9036-u--rig arg-0 e-17 e-19 e-18 e-16 arg-5 arg-4 arg-3 arg-2 arg-1) arg-4 arg-5 e-18 eta-1)) (lambda (u--err) (case (vector-ref u--err 0) ((14) (lambda (eta-1) (CoreC-45LinearCheck-lcheckBinder arg-0 arg-1 arg-2 (CoreC-45LinearCheck-n--7707-9036-u--rig arg-0 e-17 e-19 e-18 e-16 arg-5 arg-4 arg-3 arg-2 arg-1) arg-4 arg-5 (CoreC-45TT-setMultiplicity e-18 (AlgebraC-45Semiring-linear (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)))) eta-1)))(else (lambda (eta-1) (CoreC-45Core-u--throw_Catchable_Core_Error u--err eta-1))))) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((e-2 (car e-5))) (let ((e-3 (cdr e-5))) (let ((e-6 (car e-3))) (let ((e-7 (cdr e-3))) (let ((u--envC-39 (let ((sc4 (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-3 (AlgebraC-45ZeroOneOmega-u--top_Top_ZeroOneOmega)))) (cond ((equal? sc4 1) (case (vector-ref e-18 0) ((0) (CoreC-45LinearCheck-n--7707-9038-u--eraseLinear arg-0 e-17 e-19 e-18 e-16 arg-5 arg-4 arg-3 arg-2 arg-1 arg-5))(else arg-5))) (else arg-5))))) (let ((act-25 ((CoreC-45LinearCheck-lcheck (cons e-17 arg-0) arg-1 arg-2 (CoreC-45LinearCheck-n--7707-9036-u--rig arg-0 e-17 e-19 e-18 e-16 arg-5 arg-4 arg-3 arg-2 arg-1) arg-4 (cons e-2 u--envC-39) e-19) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref act-25 1))) (let ((e-9 (car e-8))) (let ((e-4 (cdr e-8))) (let ((e-11 (car e-4))) (let ((e-10 (cdr e-4))) (let ((act-26 (let ((act-26 (unbox arg-1))) (vector 1 act-26)))) (case (vector-ref act-26 0) ((0) (let ((e-12 (vector-ref act-26 1))) (vector 0 e-12))) (else (let ((u--used_in (CoreC-45LinearCheck-count 0 e-10))) (let ((act-27 (let ((sc8 (cond ((equal? arg-4 1) 0) (else (AlgebraC-45Semiring-isLinear (cons (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-7) (lambda (arg-8) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-7 arg-8))) (lambda (arg-7) (lambda (arg-8) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-7 arg-8))))) (CoreC-45TT-multiplicity e-18)))))) (cond ((equal? sc8 1) ((CoreC-45LinearCheck-updateHoleUsage (cons e-17 arg-0) arg-1 arg-2 (PreludeC-45Types-u--C-61C-61_Eq_Nat u--used_in (PreludeC-45Types-u--fromInteger_Num_Nat 0)) 0 (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (CoreC-45TT-u--weaken_Weaken_Var eta-1)) (CoreC-45LinearCheck-n--7707-9037-u--getZeroes arg-0 e-17 e-19 e-18 e-16 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 u--envC-39)) e-9) eta-0)) (else (vector 1 0)))))) (case (vector-ref act-27 0) ((0) (let ((e-13 (vector-ref act-27 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref act-27 1))) (let ((u--used (let ((sc9 (let ((sc10 (AlgebraC-45Semiring-isLinear (cons (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-7) (lambda (arg-8) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-7 arg-8))) (lambda (arg-7) (lambda (arg-8) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-7 arg-8))))) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega (CoreC-45TT-multiplicity e-18) (CoreC-45LinearCheck-n--7707-9036-u--rig arg-0 e-17 e-19 e-18 e-16 arg-5 arg-4 arg-3 arg-2 arg-1))))) (cond ((equal? sc10 1) (cond ((equal? e-13 1) (PreludeC-45Types-u--C-61C-61_Eq_Nat u--used_in (PreludeC-45Types-u--fromInteger_Num_Nat 0))) (else 0))) (else 0))))) (cond ((equal? sc9 1) (PreludeC-45Types-u--fromInteger_Num_Nat 1)) (else u--used_in))))) (let ((act-28 (cond ((equal? arg-4 1) (vector 1 0)) (else (CoreC-45LinearCheck-n--7707-9039-u--checkUsageOK arg-0 e-17 e-19 e-18 e-16 arg-5 arg-4 arg-3 arg-2 arg-1 u--used (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega (CoreC-45TT-multiplicity e-18) (CoreC-45LinearCheck-n--7707-9036-u--rig arg-0 e-17 e-19 e-18 e-16 arg-5 arg-4 arg-3 arg-2 arg-1)) eta-0))))) (case (vector-ref act-28 0) ((0) (let ((e-14 (vector-ref act-28 1))) (vector 0 e-14))) (else (let ((act-29 (let ((act-29 (unbox arg-1))) (vector 1 act-29)))) (case (vector-ref act-29 0) ((0) (let ((e-15 (vector-ref act-29 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref act-29 1))) (CoreC-45LinearCheck-discharge arg-0 e-15 arg-5 e-16 e-17 e-2 e-6 e-9 e-11 (CoreC-45LinearCheck-C-43C-43 e-7 (CoreC-45LinearCheck-doneScope e-10)) eta-0)))))))))))))))))))))))))))))))))))))))) ((4) (let ((e-21 (vector-ref arg-6 1))) (let ((e-22 (vector-ref arg-6 2))) (let ((e-23 (vector-ref arg-6 3))) (lambda (eta-0) (let ((act-24 ((CoreC-45LinearCheck-lcheck arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-22) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((e-2 (car e-5))) (let ((e-3 (cdr e-5))) (let ((e-6 (car e-3))) (let ((e-7 (cdr e-3))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref act-25 1))) (let ((act-26 ((CoreC-45Normalise-getNF arg-1 e-6) eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-4 (vector-ref act-26 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref act-26 1))) (case (vector-ref e-9 0) ((0) (let ((e-10 (vector-ref e-9 3))) (let ((e-4 (vector-ref e-9 4))) (case (vector-ref e-10 0) ((2) (let ((e-14 (vector-ref e-10 2))) (let ((e-13 (vector-ref e-10 4))) (let ((u--checkRig (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega e-14 arg-3))) (let ((act-27 ((CoreC-45LinearCheck-lcheck arg-0 arg-1 arg-2 u--checkRig arg-4 arg-5 e-23) eta-0))) (case (vector-ref act-27 0) ((0) (let ((e-16 (vector-ref act-27 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref act-27 1))) (let ((e-18 (car e-16))) (let ((e-17 (cdr e-16))) (let ((e-20 (car e-17))) (let ((e-19 (cdr e-17))) (let ((act-28 (((e-4 e-8) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) arg-5 e-18)) eta-0))) (case (vector-ref act-28 0) ((0) (let ((e-24 (vector-ref act-28 1))) (vector 0 e-24))) (else (let ((e-24 (vector-ref act-28 1))) (let ((u--aerased (let ((sc12 (cond ((equal? arg-4 1) (AlgebraC-45Semiring-isErased (cons (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-7) (lambda (arg-8) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-7 arg-8))) (lambda (arg-7) (lambda (arg-8) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-7 arg-8))))) e-14)) (else 0)))) (cond ((equal? sc12 1) (vector 10 e-21 0)) (else e-18))))) (let ((act-29 (CoreC-45Context-getSession arg-1 eta-0))) (case (vector-ref act-29 0) ((0) (let ((e-25 (vector-ref act-29 1))) (vector 0 e-25))) (else (let ((e-25 (vector-ref act-29 1))) (let ((act-30 (let ((sc13 (let ((e-35 (vector-ref e-25 9))) e-35))) (cond ((equal? sc13 1) (let ((act-30 ((CoreC-45Normalise-getNF arg-1 e-20) eta-0))) (case (vector-ref act-30 0) ((0) (let ((e-26 (vector-ref act-30 1))) (vector 0 e-26))) (else (let ((e-26 (vector-ref act-30 1))) (let ((act-31 (CoreC-45Normalise-u--convert_Convert_NF arg-1 arg-0 e-8 arg-5 e-26 e-13 eta-0))) (case (vector-ref act-31 0) ((0) (let ((e-27 (vector-ref act-31 1))) (vector 0 e-27))) (else (let ((e-27 (vector-ref act-31 1))) (cond ((equal? e-27 1) (vector 1 0)) (else (let ((act-32 (CoreC-45Normalise-u--quote_Quote_NF arg-1 arg-0 e-8 arg-5 e-13 eta-0))) (case (vector-ref act-32 0) ((0) (let ((e-28 (vector-ref act-32 1))) (vector 0 e-28))) (else (let ((e-28 (vector-ref act-32 1))) (let ((act-33 (CoreC-45Normalise-u--quote_Quote_NF arg-1 arg-0 e-8 arg-5 e-26 eta-0))) (case (vector-ref act-33 0) ((0) (let ((e-29 (vector-ref act-33 1))) (vector 0 e-29))) (else (let ((e-29 (vector-ref act-33 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 1 arg-0 e-21 arg-5 e-28 e-29) eta-0)))))))))))))))))))) (else (vector 1 0)))))) (case (vector-ref act-30 0) ((0) (let ((e-26 (vector-ref act-30 1))) (vector 0 e-26))) (else (vector 1 (cons (vector 4 e-21 e-2 u--aerased) (cons (CoreC-45Normalise-glueBack arg-1 arg-0 e-8 arg-5 e-24) (CoreC-45LinearCheck-C-43C-43 e-7 e-19))))))))))))))))))))))))))))(else (let ((act-27 ((CoreC-45Normalise-getTerm e-6) eta-0))) (case (vector-ref act-27 0) ((0) (let ((e-12 (vector-ref act-27 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref act-27 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 e-21 (PreludeC-45TypesC-45String-C-43C-43 "Linearity checking failed on " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 e-2) (PreludeC-45TypesC-45String-C-43C-43 " (" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 e-12) " not a function type)"))))) eta-0)))))))))) ((1) (let ((e-11 (vector-ref e-9 2))) (case (vector-ref e-11 0) ((1) (let ((e-16 (vector-ref e-11 2))) (let ((act-27 ((CoreC-45Context-lookupCtxtExact e-16 (let ((e-0 (vector-ref e-8 0))) e-0)) eta-0))) (case (vector-ref act-27 0) ((0) (let ((e-4 (vector-ref act-27 1))) (vector 0 e-4))) (else (let ((e-13 (vector-ref act-27 1))) (if (null? e-13) (CoreC-45Context-undefinedName arg-1 e-21 e-16 eta-0) (let ((act-28 ((CoreC-45Normalise-getTerm e-6) eta-0))) (case (vector-ref act-28 0) ((0) (let ((e-4 (vector-ref act-28 1))) (vector 0 e-4))) (else (let ((e-14 (vector-ref act-28 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 e-21 (PreludeC-45TypesC-45String-C-43C-43 "Linearity checking failed on " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 e-2) (PreludeC-45TypesC-45String-C-43C-43 " (" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 e-14) " not a function type)"))))) eta-0))))))))))))(else (let ((act-27 ((CoreC-45Normalise-getTerm e-6) eta-0))) (case (vector-ref act-27 0) ((0) (let ((e-4 (vector-ref act-27 1))) (vector 0 e-4))) (else (let ((e-13 (vector-ref act-27 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 e-21 (PreludeC-45TypesC-45String-C-43C-43 "Linearity checking failed on " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 e-2) (PreludeC-45TypesC-45String-C-43C-43 " (" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 e-13) " not a function type)"))))) eta-0)))))))))(else (let ((act-27 ((CoreC-45Normalise-getTerm e-6) eta-0))) (case (vector-ref act-27 0) ((0) (let ((e-4 (vector-ref act-27 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref act-27 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 e-21 (PreludeC-45TypesC-45String-C-43C-43 "Linearity checking failed on " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 e-2) (PreludeC-45TypesC-45String-C-43C-43 " (" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 e-10) " not a function type)"))))) eta-0)))))))))))))))))))))))))))) ((5) (let ((e-25 (vector-ref arg-6 1))) (let ((e-26 (vector-ref arg-6 2))) (let ((e-27 (vector-ref arg-6 3))) (let ((e-28 (vector-ref arg-6 4))) (lambda (eta-0) (let ((act-24 ((CoreC-45LinearCheck-lcheck arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-27) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((e-2 (car e-5))) (let ((e-3 (cdr e-5))) (let ((act-25 ((CoreC-45LinearCheck-lcheck arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-28) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref act-25 1))) (let ((e-9 (car e-8))) (let ((e-4 (cdr e-8))) (let ((e-11 (car e-4))) (let ((e-10 (cdr e-4))) (vector 1 (cons (vector 5 e-25 e-26 e-2 e-9) (cons e-11 e-10))))))))))))))))))))))) ((6) (let ((e-30 (vector-ref arg-6 1))) (let ((e-31 (vector-ref arg-6 2))) (let ((e-32 (vector-ref arg-6 3))) (lambda (eta-0) (let ((act-24 ((CoreC-45LinearCheck-lcheck arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-32) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((e-2 (car e-5))) (let ((e-3 (cdr e-5))) (let ((e-7 (cdr e-3))) (vector 1 (cons (vector 6 e-30 e-31 e-2) (cons (CoreC-45Normalise-gType e-30) e-7))))))))))))))) ((7) (let ((e-34 (vector-ref arg-6 1))) (let ((e-35 (vector-ref arg-6 2))) (let ((e-36 (vector-ref arg-6 3))) (let ((e-37 (vector-ref arg-6 4))) (lambda (eta-0) (let ((act-24 ((CoreC-45LinearCheck-lcheck arg-0 arg-1 arg-2 (AlgebraC-45Semiring-erased (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))) arg-4 arg-5 e-36) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((e-2 (car e-5))) (let ((e-3 (cdr e-5))) (let ((act-25 ((CoreC-45LinearCheck-lcheck arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-37) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref act-25 1))) (let ((e-9 (car e-8))) (let ((e-4 (cdr e-8))) (let ((e-11 (car e-4))) (let ((e-10 (cdr e-4))) (let ((act-26 ((CoreC-45Normalise-getTerm e-11) eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-12 (vector-ref act-26 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref act-26 1))) (vector 1 (cons (vector 7 e-34 e-35 e-2 e-9) (cons (CoreC-45Normalise-gnf arg-0 arg-5 (vector 6 e-34 e-35 e-12)) e-10))))))))))))))))))))))))))) ((8) (let ((e-39 (vector-ref arg-6 1))) (let ((e-41 (vector-ref arg-6 3))) (lambda (eta-0) (let ((act-24 ((CoreC-45LinearCheck-lcheck arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-41) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((e-2 (car e-5))) (let ((e-3 (cdr e-5))) (let ((e-6 (car e-3))) (let ((e-7 (cdr e-3))) (let ((act-25 ((CoreC-45Normalise-getNF arg-1 e-6) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref act-25 1))) (case (vector-ref e-8 0) ((5) (let ((e-9 (vector-ref e-8 2))) (let ((e-4 (vector-ref e-8 3))) (let ((act-26 (let ((act-26 (unbox arg-1))) (vector 1 act-26)))) (case (vector-ref act-26 0) ((0) (let ((e-10 (vector-ref act-26 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-26 1))) (vector 1 (cons (vector 8 e-39 e-9 e-2) (cons (CoreC-45Normalise-glueBack arg-1 arg-0 e-10 arg-5 e-4) e-7))))))))))(else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 e-39 "Not a delayed type") eta-0))))))))))))))))))) ((9) (let ((e-43 (vector-ref arg-6 1))) (let ((e-44 (vector-ref arg-6 2))) (lambda (eta-0) (vector 1 (cons (vector 9 e-43 e-44) (cons (CoreC-45Normalise-gErased e-43) '()))))))) ((10) (let ((e-46 (vector-ref arg-6 1))) (let ((e-47 (vector-ref arg-6 2))) (lambda (eta-0) (vector 1 (cons (vector 10 e-46 e-47) (cons (CoreC-45Normalise-gErased e-46) '()))))))) (else (let ((e-49 (vector-ref arg-6 1))) (lambda (eta-0) (vector 1 (cons (vector 11 e-49) (cons (CoreC-45Normalise-gType e-49) '()))))))))) +(define CoreC-45LinearCheck-getArgUsage (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45LinearCheck-n--7735-11768-u--getPUsage arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 arg-4 eta-0)) arg-5 '() ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45LinearCheck-n--7735-11771-u--combine arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-6)))))))))))) +(define CoreC-45LinearCheck-expandMeta (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (case (vector-ref arg-8 0) ((1) (let ((e-0 (vector-ref arg-8 1))) (let ((e-1 (vector-ref arg-8 2))) (let ((e-2 (vector-ref arg-8 3))) (let ((e-3 (vector-ref arg-8 4))) (let ((e-4 (vector-ref arg-8 5))) (lambda (clam-0) (if (null? e-1) (case (vector-ref e-2 0) ((1) (let ((e-7 (vector-ref e-2 1))) (let ((e-8 (vector-ref e-2 2))) (let ((act-24 ((CoreC-45LinearCheck-n--7751-13773-u--substMeta arg-0 e-0 e-3 e-4 e-7 e-8 arg-9 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 '() arg-0 (CoreC-45TT-embed e-8) arg-9 '()) clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) ((CoreC-45LinearCheck-lcheck arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-5) clam-0))))))))(else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 (PreludeC-45TypesC-45String-C-43C-43 "Badly formed metavar solution " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name arg-6) (PreludeC-45TypesC-45String-C-43C-43 " " (CoreC-45Context-u--show_Show_Def arg-8))))) clam-0))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 (PreludeC-45TypesC-45String-C-43C-43 "Badly formed metavar solution " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name arg-6) (PreludeC-45TypesC-45String-C-43C-43 " " (CoreC-45Context-u--show_Show_Def arg-8))))) clam-0)))))))))(else (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 (PreludeC-45TypesC-45String-C-43C-43 "Badly formed metavar solution " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name arg-6) (PreludeC-45TypesC-45String-C-43C-43 " " (CoreC-45Context-u--show_Show_Def arg-8))))) eta-0)))))) +(define CoreC-45LinearCheck-doneScope (lambda (arg-2) (if (null? arg-2) '() (let ((e-2 (car arg-2))) (let ((e-3 (cdr arg-2))) (cond ((equal? e-2 0) (CoreC-45LinearCheck-doneScope e-3))(else (let ((e-8 (- e-2 1))) (cons e-8 (CoreC-45LinearCheck-doneScope e-3)))))))))) +(define CoreC-45LinearCheck-discharge (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 ext-0) (case (vector-ref arg-5 0) ((0) (let ((e-1 (vector-ref arg-5 1))) (let ((e-2 (vector-ref arg-5 2))) (let ((e-3 (vector-ref arg-5 3))) (let ((e-4 (vector-ref arg-5 4))) (let ((act-24 ((CoreC-45Normalise-getTerm arg-8) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (cons (vector 3 arg-3 arg-4 (vector 0 e-1 e-2 e-3 e-4) arg-7) (cons (CoreC-45Normalise-gnf arg-0 arg-2 (vector 3 arg-3 arg-4 (vector 2 e-1 e-2 e-3 e-4) e-5)) arg-9)))))))))))) ((1) (let ((e-6 (vector-ref arg-5 1))) (let ((e-7 (vector-ref arg-5 2))) (let ((e-8 (vector-ref arg-5 3))) (let ((e-9 (vector-ref arg-5 4))) (let ((act-24 ((CoreC-45Normalise-getTerm arg-8) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (cons (vector 3 arg-3 arg-4 (vector 1 e-6 e-7 e-8 e-9) arg-7) (cons (CoreC-45Normalise-gnf arg-0 arg-2 (vector 3 arg-3 arg-4 (vector 1 e-6 e-7 e-8 e-9) e-5)) arg-9)))))))))))) ((2) (let ((e-11 (vector-ref arg-5 1))) (let ((e-12 (vector-ref arg-5 2))) (let ((e-13 (vector-ref arg-5 3))) (let ((e-14 (vector-ref arg-5 4))) (vector 1 (cons (vector 3 arg-3 arg-4 (vector 2 e-11 e-12 e-13 e-14) arg-7) (cons arg-6 arg-9)))))))) ((3) (let ((e-16 (vector-ref arg-5 1))) (let ((e-17 (vector-ref arg-5 2))) (let ((e-18 (vector-ref arg-5 3))) (let ((e-19 (vector-ref arg-5 4))) (let ((act-24 ((CoreC-45Normalise-getTerm arg-8) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (cons (vector 3 arg-3 arg-4 (vector 3 e-16 e-17 e-18 e-19) arg-7) (cons (CoreC-45Normalise-gnf arg-0 arg-2 (vector 3 arg-3 arg-4 (vector 5 e-16 e-17 e-19) e-5)) arg-9)))))))))))) ((4) (let ((e-21 (vector-ref arg-5 1))) (let ((e-22 (vector-ref arg-5 2))) (let ((e-23 (vector-ref arg-5 3))) (let ((e-24 (vector-ref arg-5 4))) (let ((act-24 ((CoreC-45Normalise-getTerm arg-8) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (cons (vector 3 arg-3 arg-4 (vector 4 e-21 e-22 e-23 e-24) arg-7) (cons (CoreC-45Normalise-gnf arg-0 arg-2 (vector 3 arg-3 arg-4 (vector 4 e-21 e-22 e-23 e-24) e-5)) arg-9)))))))))))) (else (let ((e-26 (vector-ref arg-5 1))) (let ((e-27 (vector-ref arg-5 2))) (let ((e-28 (vector-ref arg-5 3))) (vector 1 (cons (vector 3 arg-3 arg-4 (vector 5 e-26 e-27 e-28) arg-7) (cons arg-6 arg-9)))))))))) +(define CoreC-45LinearCheck-count (lambda (arg-1 arg-2) (if (null? arg-2) 0 (let ((e-2 (car arg-2))) (let ((e-3 (cdr arg-2))) (let ((sc1 (PreludeC-45Types-u--C-61C-61_Eq_Nat arg-1 (CoreC-45TT-varIdx e-2)))) (cond ((equal? sc1 1) (PreludeC-45Types-u--C-43_Num_Nat (PreludeC-45Types-u--fromInteger_Num_Nat 1) (CoreC-45LinearCheck-count arg-1 e-3))) (else (CoreC-45LinearCheck-count arg-1 e-3))))))))) +(define CoreC-45LinearCheck-checkEnvUsage (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (if (null? arg-0) (lambda (clam-0) (vector 1 0)) (let ((e-2 (car arg-0))) (let ((e-3 (cdr arg-0))) (let ((e-8 (car arg-6))) (let ((e-9 (cdr arg-6))) (let ((u--pos (CoreC-45LinearCheck-localPrf arg-1))) (let ((u--used_in (CoreC-45LinearCheck-count (CoreC-45TT-varIdx u--pos) arg-7))) (lambda (eta-0) (let ((act-24 (let ((sc2 (AlgebraC-45Semiring-isLinear (cons (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-9) (lambda (arg-10) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-9 arg-10))))) (CoreC-45TT-multiplicity e-8)))) (cond ((equal? sc2 1) ((CoreC-45LinearCheck-updateHoleUsage (PreludeC-45TypesC-45List-C-43C-43 arg-1 (cons e-2 e-3)) arg-2 arg-3 (PreludeC-45Types-u--C-61C-61_Eq_Nat u--used_in (PreludeC-45Types-u--fromInteger_Num_Nat 0)) u--pos '() arg-8) eta-0)) (else (vector 1 0)))))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((u--used (let ((sc3 (let ((sc4 (AlgebraC-45Semiring-isLinear (cons (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-9) (lambda (arg-10) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-9 arg-10))))) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega (CoreC-45TT-multiplicity e-8) arg-5)))) (cond ((equal? sc4 1) (cond ((equal? e-5 1) (PreludeC-45Types-u--C-61C-61_Eq_Nat u--used_in (PreludeC-45Types-u--fromInteger_Num_Nat 0))) (else 0))) (else 0))))) (cond ((equal? sc3 1) (PreludeC-45Types-u--fromInteger_Num_Nat 1)) (else u--used_in))))) (let ((act-25 (CoreC-45LinearCheck-n--14696-14305-u--checkUsageOK e-2 e-3 e-9 e-8 arg-1 arg-8 arg-7 arg-5 arg-4 arg-3 arg-2 u--used (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega (CoreC-45TT-multiplicity e-8) arg-5) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else ((CoreC-45LinearCheck-checkEnvUsage e-3 (PreludeC-45TypesC-45List-C-43C-43 arg-1 (cons e-2 '())) arg-2 arg-3 arg-4 arg-5 e-9 arg-7 arg-8) eta-0))))))))))))))))))) +(define CoreC-45LinearCheck-C-43C-43 (lambda (arg-1 arg-2) (if (null? arg-1) arg-2 (let ((e-2 (car arg-1))) (let ((e-3 (cdr arg-1))) (cons e-2 (CoreC-45LinearCheck-C-43C-43 e-3 arg-2))))))) +(define TTImpC-45BindImplicits-n--6380-4374-u--tag (lambda (arg-0 arg-1 arg-3 arg-4) (DataC-45List-u--zip_Zippable_List (PreludeC-45Types-u--map_Functor_List (lambda (arg-2) (bs+ arg-2 arg-3 63)) (PreludeC-45Types-u--rangeFromTo_Range_C-36a (cons (vector (vector (lambda (arg-2) (lambda (arg-5) (bs+ arg-2 arg-5 63))) (lambda (arg-5) (lambda (arg-6) (bs* arg-5 arg-6 63))) (lambda (arg-6) (blodwen-toSignedInt arg-6 63))) (lambda (arg-157) (lambda (arg-158) (PreludeC-45Num-u--div_Integral_Int arg-157 arg-158))) (lambda (arg-159) (lambda (arg-160) (PreludeC-45Num-u--mod_Integral_Int arg-159 arg-160)))) (cons (vector (cons (lambda (arg-2) (lambda (arg-5) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 arg-5))) (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-5 arg-6)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) (vector (vector (lambda (arg-2) (lambda (arg-5) (bs+ arg-2 arg-5 63))) (lambda (arg-5) (lambda (arg-6) (bs* arg-5 arg-6 63))) (lambda (arg-6) (blodwen-toSignedInt arg-6 63))) (lambda (arg-45) (PreludeC-45Num-u--negate_Neg_Int arg-45)) (lambda (arg-46) (lambda (arg-47) (PreludeC-45Num-u--C-45_Neg_Int arg-46 arg-47)))))) 0 (PreludeC-45Cast-u--cast_Cast_Nat_Int (PreludeC-45TypesC-45List-length arg-4)))) arg-4))) +(define TTImpC-45BindImplicits-n--5354-3819-u--renameAlt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (case (vector-ref arg-5 0) ((2) (let ((e-0 (vector-ref arg-5 1))) (ControlC-45MonadC-45StateC-45State-u--C-62C-62C-61_Monad_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (ControlC-45MonadC-45Identity-u--map_Functor_Identity u--func arg-133))))) (lambda (u--a) (lambda (arg-527) (ControlC-45MonadC-45Identity-u--pure_Applicative_Identity arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (ControlC-45MonadC-45Identity-u--C-60C-42C-62_Applicative_Identity arg-528 arg-530)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (ControlC-45MonadC-45Identity-u--C-62C-62C-61_Monad_Identity arg-811 arg-812))))) (lambda (u--a) (lambda (arg-814) (ControlC-45MonadC-45Identity-u--join_Monad_Identity arg-814)))) (TTImpC-45BindImplicits-renameIBinds arg-4 arg-3 e-0) (lambda (bind-0) (lambda (eta-0) (ControlC-45MonadC-45StateC-45State-u--pure_Applicative_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (ControlC-45MonadC-45Identity-u--map_Functor_Identity u--func arg-133))))) (lambda (u--a) (lambda (arg-527) (ControlC-45MonadC-45Identity-u--pure_Applicative_Identity arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (ControlC-45MonadC-45Identity-u--C-60C-42C-62_Applicative_Identity arg-528 arg-530)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (ControlC-45MonadC-45Identity-u--C-62C-62C-61_Monad_Identity arg-811 arg-812))))) (lambda (u--a) (lambda (arg-814) (ControlC-45MonadC-45Identity-u--join_Monad_Identity arg-814)))) (vector 2 bind-0) eta-0))) ext-0)))(else (ControlC-45MonadC-45StateC-45State-u--pure_Applicative_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (ControlC-45MonadC-45Identity-u--map_Functor_Identity u--func arg-133))))) (lambda (u--a) (lambda (arg-527) (ControlC-45MonadC-45Identity-u--pure_Applicative_Identity arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (ControlC-45MonadC-45Identity-u--C-60C-42C-62_Applicative_Identity arg-528 arg-530)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (ControlC-45MonadC-45Identity-u--C-62C-62C-61_Monad_Identity arg-811 arg-812))))) (lambda (u--a) (lambda (arg-814) (ControlC-45MonadC-45Identity-u--join_Monad_Identity arg-814)))) arg-5 ext-0))))) +(define TTImpC-45BindImplicits-n--6559-4540-u--piBind (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (if (null? arg-4) arg-5 (let ((e-2 (car arg-4))) (let ((e-3 (cdr arg-4))) (vector 1 arg-2 (AlgebraC-45Semiring-erased (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))) (vector 0 ) (box (vector 1 e-2)) (vector 32 arg-2 0) (TTImpC-45BindImplicits-n--6559-4540-u--piBind arg-0 arg-1 arg-2 arg-3 e-3 arg-5))))))) +(define TTImpC-45BindImplicits-renameIBinds (lambda (arg-0 arg-1 arg-2) (case (vector-ref arg-2 0) ((1) (let ((e-0 (vector-ref arg-2 1))) (let ((e-1 (vector-ref arg-2 2))) (let ((e-2 (vector-ref arg-2 3))) (let ((e-3 (vector-ref arg-2 4))) (let ((e-4 (vector-ref arg-2 5))) (let ((e-5 (vector-ref arg-2 6))) (if (null? e-3) (lambda (eta-0) (ControlC-45MonadC-45StateC-45State-u--C-62C-62C-61_Monad_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (ControlC-45MonadC-45Identity-u--map_Functor_Identity u--func arg-133))))) (lambda (u--a) (lambda (arg-527) (ControlC-45MonadC-45Identity-u--pure_Applicative_Identity arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (ControlC-45MonadC-45Identity-u--C-60C-42C-62_Applicative_Identity arg-528 arg-530)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (ControlC-45MonadC-45Identity-u--C-62C-62C-61_Monad_Identity arg-811 arg-812))))) (lambda (u--a) (lambda (arg-814) (ControlC-45MonadC-45Identity-u--join_Monad_Identity arg-814)))) (TTImpC-45BindImplicits-renameIBinds arg-0 arg-1 e-4) (lambda (bind-0) (lambda (eta-1) (ControlC-45MonadC-45StateC-45State-u--C-62C-62C-61_Monad_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (ControlC-45MonadC-45Identity-u--map_Functor_Identity u--func arg-133))))) (lambda (u--a) (lambda (arg-527) (ControlC-45MonadC-45Identity-u--pure_Applicative_Identity arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (ControlC-45MonadC-45Identity-u--C-60C-42C-62_Applicative_Identity arg-528 arg-530)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (ControlC-45MonadC-45Identity-u--C-62C-62C-61_Monad_Identity arg-811 arg-812))))) (lambda (u--a) (lambda (arg-814) (ControlC-45MonadC-45Identity-u--join_Monad_Identity arg-814)))) (TTImpC-45BindImplicits-renameIBinds arg-0 arg-1 e-5) (lambda (bind-1) (lambda (eta-2) (ControlC-45MonadC-45StateC-45State-u--pure_Applicative_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (ControlC-45MonadC-45Identity-u--map_Functor_Identity u--func arg-133))))) (lambda (u--a) (lambda (arg-527) (ControlC-45MonadC-45Identity-u--pure_Applicative_Identity arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (ControlC-45MonadC-45Identity-u--C-60C-42C-62_Applicative_Identity arg-528 arg-530)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (ControlC-45MonadC-45Identity-u--C-62C-62C-61_Monad_Identity arg-811 arg-812))))) (lambda (u--a) (lambda (arg-814) (ControlC-45MonadC-45Identity-u--join_Monad_Identity arg-814)))) (vector 1 e-0 e-1 e-2 e-3 bind-0 bind-1) eta-2))) eta-1))) eta-0)) (let ((e-46 (unbox e-3))) (case (vector-ref e-46 0) ((1) (let ((e-47 (vector-ref e-46 1))) (let ((sc3 (PreludeC-45Types-elem (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_String arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_String arg-4 arg-5)))) e-47 arg-0))) (cond ((equal? sc3 1) (let ((u--nC-39 (TTImpC-45Utils-getUnique (PreludeC-45TypesC-45List-C-43C-43 arg-0 arg-1) e-47))) (let ((u--scC-39 (TTImpC-45Utils-substNames (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (vector 1 eta-0)) (DataC-45List-filter (lambda (arg-3) (PreludeC-45EqOrd-u--C-47C-61_Eq_String arg-3 e-47)) arg-1)) (cons (cons (vector 1 e-47) (vector 0 e-0 (vector 1 u--nC-39))) '()) e-5))) (lambda (eta-0) (ControlC-45MonadC-45StateC-45State-u--C-62C-62C-61_Monad_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (ControlC-45MonadC-45Identity-u--map_Functor_Identity u--func arg-133))))) (lambda (u--a) (lambda (arg-527) (ControlC-45MonadC-45Identity-u--pure_Applicative_Identity arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (ControlC-45MonadC-45Identity-u--C-60C-42C-62_Applicative_Identity arg-528 arg-530)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (ControlC-45MonadC-45Identity-u--C-62C-62C-61_Monad_Identity arg-811 arg-812))))) (lambda (u--a) (lambda (arg-814) (ControlC-45MonadC-45Identity-u--join_Monad_Identity arg-814)))) (TTImpC-45BindImplicits-renameIBinds arg-0 (cons u--nC-39 arg-1) u--scC-39) (lambda (u--scr) (lambda (eta-1) (ControlC-45MonadC-45StateC-45State-u--C-62C-62C-61_Monad_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (ControlC-45MonadC-45Identity-u--map_Functor_Identity u--func arg-133))))) (lambda (u--a) (lambda (arg-527) (ControlC-45MonadC-45Identity-u--pure_Applicative_Identity arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (ControlC-45MonadC-45Identity-u--C-60C-42C-62_Applicative_Identity arg-528 arg-530)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (ControlC-45MonadC-45Identity-u--C-62C-62C-61_Monad_Identity arg-811 arg-812))))) (lambda (u--a) (lambda (arg-814) (ControlC-45MonadC-45Identity-u--join_Monad_Identity arg-814)))) (TTImpC-45BindImplicits-renameIBinds arg-0 arg-1 e-4) (lambda (u--tyC-39) (lambda (eta-2) (ControlC-45MonadC-45StateC-45State-u--C-62C-62C-61_Monad_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (ControlC-45MonadC-45Identity-u--map_Functor_Identity u--func arg-133))))) (lambda (u--a) (lambda (arg-527) (ControlC-45MonadC-45Identity-u--pure_Applicative_Identity arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (ControlC-45MonadC-45Identity-u--C-60C-42C-62_Applicative_Identity arg-528 arg-530)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (ControlC-45MonadC-45Identity-u--C-62C-62C-61_Monad_Identity arg-811 arg-812))))) (lambda (u--a) (lambda (arg-814) (ControlC-45MonadC-45Identity-u--join_Monad_Identity arg-814)))) (lambda (u--x) (ControlC-45MonadC-45Identity-u--pure_Applicative_Identity (cons u--x u--x))) (lambda (u--upds) (PreludeC-45Interfaces-C-62C-62 (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-3) (ControlC-45MonadC-45StateC-45State-u--map_Functor_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 (lambda (b-0) (lambda (a-0) (lambda (func-0) (lambda (arg-134) (ControlC-45MonadC-45Identity-u--map_Functor_Identity func-0 arg-134))))) u--func arg-133 eta-3)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-3) (ControlC-45MonadC-45StateC-45State-u--pure_Applicative_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 (vector (vector (lambda (u--b) (lambda (a-0) (lambda (u--func) (lambda (arg-133) (ControlC-45MonadC-45Identity-u--map_Functor_Identity u--func arg-133))))) (lambda (a-0) (lambda (arg-528) (ControlC-45MonadC-45Identity-u--pure_Applicative_Identity arg-528))) (lambda (u--b) (lambda (a-0) (lambda (arg-528) (lambda (arg-530) (ControlC-45MonadC-45Identity-u--C-60C-42C-62_Applicative_Identity arg-528 arg-530)))))) (lambda (u--b) (lambda (a-0) (lambda (arg-811) (lambda (arg-812) (ControlC-45MonadC-45Identity-u--C-62C-62C-61_Monad_Identity arg-811 arg-812))))) (lambda (a-0) (lambda (arg-814) (ControlC-45MonadC-45Identity-u--join_Monad_Identity arg-814)))) arg-527 eta-3)))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-3) (ControlC-45MonadC-45StateC-45State-u--C-60C-42C-62_Applicative_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 (vector (vector (lambda (b-0) (lambda (a-0) (lambda (u--func) (lambda (arg-133) (ControlC-45MonadC-45Identity-u--map_Functor_Identity u--func arg-133))))) (lambda (a-0) (lambda (arg-527) (ControlC-45MonadC-45Identity-u--pure_Applicative_Identity arg-527))) (lambda (b-0) (lambda (a-0) (lambda (arg-529) (lambda (arg-531) (ControlC-45MonadC-45Identity-u--C-60C-42C-62_Applicative_Identity arg-529 arg-531)))))) (lambda (b-0) (lambda (a-0) (lambda (arg-811) (lambda (arg-812) (ControlC-45MonadC-45Identity-u--C-62C-62C-61_Monad_Identity arg-811 arg-812))))) (lambda (a-0) (lambda (arg-814) (ControlC-45MonadC-45Identity-u--join_Monad_Identity arg-814)))) arg-528 arg-530 eta-3))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-3) (ControlC-45MonadC-45StateC-45State-u--C-62C-62C-61_Monad_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 (vector (vector (lambda (b-0) (lambda (a-0) (lambda (u--func) (lambda (arg-133) (ControlC-45MonadC-45Identity-u--map_Functor_Identity u--func arg-133))))) (lambda (a-0) (lambda (arg-527) (ControlC-45MonadC-45Identity-u--pure_Applicative_Identity arg-527))) (lambda (b-0) (lambda (a-0) (lambda (arg-528) (lambda (arg-530) (ControlC-45MonadC-45Identity-u--C-60C-42C-62_Applicative_Identity arg-528 arg-530)))))) (lambda (b-0) (lambda (a-0) (lambda (arg-813) (lambda (arg-814) (ControlC-45MonadC-45Identity-u--C-62C-62C-61_Monad_Identity arg-813 arg-814))))) (lambda (a-0) (lambda (arg-814) (ControlC-45MonadC-45Identity-u--join_Monad_Identity arg-814)))) arg-811 arg-812 eta-3)))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-3) (ControlC-45MonadC-45StateC-45State-u--join_Monad_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 (vector (vector (lambda (u--b) (lambda (a-0) (lambda (u--func) (lambda (arg-133) (ControlC-45MonadC-45Identity-u--map_Functor_Identity u--func arg-133))))) (lambda (a-0) (lambda (arg-527) (ControlC-45MonadC-45Identity-u--pure_Applicative_Identity arg-527))) (lambda (u--b) (lambda (a-0) (lambda (arg-528) (lambda (arg-530) (ControlC-45MonadC-45Identity-u--C-60C-42C-62_Applicative_Identity arg-528 arg-530)))))) (lambda (u--b) (lambda (a-0) (lambda (arg-811) (lambda (arg-812) (ControlC-45MonadC-45Identity-u--C-62C-62C-61_Monad_Identity arg-811 arg-812))))) (lambda (a-0) (lambda (arg-815) (ControlC-45MonadC-45Identity-u--join_Monad_Identity arg-815)))) arg-814 eta-3))))) (lambda (u--y) (ControlC-45MonadC-45Identity-u--pure_Applicative_Identity (cons (cons (cons e-47 u--nC-39) u--upds) 0))) (lambda () (lambda (eta-3) (ControlC-45MonadC-45StateC-45State-u--pure_Applicative_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (ControlC-45MonadC-45Identity-u--map_Functor_Identity u--func arg-133))))) (lambda (u--a) (lambda (arg-527) (ControlC-45MonadC-45Identity-u--pure_Applicative_Identity arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (ControlC-45MonadC-45Identity-u--C-60C-42C-62_Applicative_Identity arg-528 arg-530)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (ControlC-45MonadC-45Identity-u--C-62C-62C-61_Monad_Identity arg-811 arg-812))))) (lambda (u--a) (lambda (arg-814) (ControlC-45MonadC-45Identity-u--join_Monad_Identity arg-814)))) (vector 1 e-0 e-1 e-2 (box (vector 1 u--nC-39)) u--tyC-39 u--scr) eta-3))))) eta-2))) eta-1))) eta-0))))) (else (lambda (eta-0) (ControlC-45MonadC-45StateC-45State-u--C-62C-62C-61_Monad_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (ControlC-45MonadC-45Identity-u--map_Functor_Identity u--func arg-133))))) (lambda (u--a) (lambda (arg-527) (ControlC-45MonadC-45Identity-u--pure_Applicative_Identity arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (ControlC-45MonadC-45Identity-u--C-60C-42C-62_Applicative_Identity arg-528 arg-530)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (ControlC-45MonadC-45Identity-u--C-62C-62C-61_Monad_Identity arg-811 arg-812))))) (lambda (u--a) (lambda (arg-814) (ControlC-45MonadC-45Identity-u--join_Monad_Identity arg-814)))) (TTImpC-45BindImplicits-renameIBinds arg-0 arg-1 e-5) (lambda (u--scr) (lambda (eta-1) (ControlC-45MonadC-45StateC-45State-u--C-62C-62C-61_Monad_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (ControlC-45MonadC-45Identity-u--map_Functor_Identity u--func arg-133))))) (lambda (u--a) (lambda (arg-527) (ControlC-45MonadC-45Identity-u--pure_Applicative_Identity arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (ControlC-45MonadC-45Identity-u--C-60C-42C-62_Applicative_Identity arg-528 arg-530)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (ControlC-45MonadC-45Identity-u--C-62C-62C-61_Monad_Identity arg-811 arg-812))))) (lambda (u--a) (lambda (arg-814) (ControlC-45MonadC-45Identity-u--join_Monad_Identity arg-814)))) (TTImpC-45BindImplicits-renameIBinds arg-0 arg-1 e-4) (lambda (u--tyC-39) (lambda (eta-2) (ControlC-45MonadC-45StateC-45State-u--pure_Applicative_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (ControlC-45MonadC-45Identity-u--map_Functor_Identity u--func arg-133))))) (lambda (u--a) (lambda (arg-527) (ControlC-45MonadC-45Identity-u--pure_Applicative_Identity arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (ControlC-45MonadC-45Identity-u--C-60C-42C-62_Applicative_Identity arg-528 arg-530)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (ControlC-45MonadC-45Identity-u--C-62C-62C-61_Monad_Identity arg-811 arg-812))))) (lambda (u--a) (lambda (arg-814) (ControlC-45MonadC-45Identity-u--join_Monad_Identity arg-814)))) (vector 1 e-0 e-1 e-2 (box (vector 1 e-47)) u--tyC-39 u--scr) eta-2))) eta-1))) eta-0)))))))(else (lambda (eta-0) (ControlC-45MonadC-45StateC-45State-u--C-62C-62C-61_Monad_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (ControlC-45MonadC-45Identity-u--map_Functor_Identity u--func arg-133))))) (lambda (u--a) (lambda (arg-527) (ControlC-45MonadC-45Identity-u--pure_Applicative_Identity arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (ControlC-45MonadC-45Identity-u--C-60C-42C-62_Applicative_Identity arg-528 arg-530)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (ControlC-45MonadC-45Identity-u--C-62C-62C-61_Monad_Identity arg-811 arg-812))))) (lambda (u--a) (lambda (arg-814) (ControlC-45MonadC-45Identity-u--join_Monad_Identity arg-814)))) (TTImpC-45BindImplicits-renameIBinds arg-0 arg-1 e-4) (lambda (bind-0) (lambda (eta-1) (ControlC-45MonadC-45StateC-45State-u--C-62C-62C-61_Monad_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (ControlC-45MonadC-45Identity-u--map_Functor_Identity u--func arg-133))))) (lambda (u--a) (lambda (arg-527) (ControlC-45MonadC-45Identity-u--pure_Applicative_Identity arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (ControlC-45MonadC-45Identity-u--C-60C-42C-62_Applicative_Identity arg-528 arg-530)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (ControlC-45MonadC-45Identity-u--C-62C-62C-61_Monad_Identity arg-811 arg-812))))) (lambda (u--a) (lambda (arg-814) (ControlC-45MonadC-45Identity-u--join_Monad_Identity arg-814)))) (TTImpC-45BindImplicits-renameIBinds arg-0 arg-1 e-5) (lambda (bind-1) (lambda (eta-2) (ControlC-45MonadC-45StateC-45State-u--pure_Applicative_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (ControlC-45MonadC-45Identity-u--map_Functor_Identity u--func arg-133))))) (lambda (u--a) (lambda (arg-527) (ControlC-45MonadC-45Identity-u--pure_Applicative_Identity arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (ControlC-45MonadC-45Identity-u--C-60C-42C-62_Applicative_Identity arg-528 arg-530)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (ControlC-45MonadC-45Identity-u--C-62C-62C-61_Monad_Identity arg-811 arg-812))))) (lambda (u--a) (lambda (arg-814) (ControlC-45MonadC-45Identity-u--join_Monad_Identity arg-814)))) (vector 1 e-0 e-1 e-2 e-3 bind-0 bind-1) eta-2))) eta-1))) eta-0))))))))))))) ((2) (let ((e-6 (vector-ref arg-2 1))) (let ((e-7 (vector-ref arg-2 2))) (let ((e-8 (vector-ref arg-2 3))) (let ((e-9 (vector-ref arg-2 4))) (let ((e-10 (vector-ref arg-2 5))) (let ((e-11 (vector-ref arg-2 6))) (lambda (eta-0) (ControlC-45MonadC-45StateC-45State-u--C-62C-62C-61_Monad_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (ControlC-45MonadC-45Identity-u--map_Functor_Identity u--func arg-133))))) (lambda (u--a) (lambda (arg-527) (ControlC-45MonadC-45Identity-u--pure_Applicative_Identity arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (ControlC-45MonadC-45Identity-u--C-60C-42C-62_Applicative_Identity arg-528 arg-530)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (ControlC-45MonadC-45Identity-u--C-62C-62C-61_Monad_Identity arg-811 arg-812))))) (lambda (u--a) (lambda (arg-814) (ControlC-45MonadC-45Identity-u--join_Monad_Identity arg-814)))) (TTImpC-45BindImplicits-renameIBinds arg-0 arg-1 e-10) (lambda (bind-0) (lambda (eta-1) (ControlC-45MonadC-45StateC-45State-u--C-62C-62C-61_Monad_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (ControlC-45MonadC-45Identity-u--map_Functor_Identity u--func arg-133))))) (lambda (u--a) (lambda (arg-527) (ControlC-45MonadC-45Identity-u--pure_Applicative_Identity arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (ControlC-45MonadC-45Identity-u--C-60C-42C-62_Applicative_Identity arg-528 arg-530)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (ControlC-45MonadC-45Identity-u--C-62C-62C-61_Monad_Identity arg-811 arg-812))))) (lambda (u--a) (lambda (arg-814) (ControlC-45MonadC-45Identity-u--join_Monad_Identity arg-814)))) (TTImpC-45BindImplicits-renameIBinds arg-0 arg-1 e-11) (lambda (bind-1) (lambda (eta-2) (ControlC-45MonadC-45StateC-45State-u--pure_Applicative_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (ControlC-45MonadC-45Identity-u--map_Functor_Identity u--func arg-133))))) (lambda (u--a) (lambda (arg-527) (ControlC-45MonadC-45Identity-u--pure_Applicative_Identity arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (ControlC-45MonadC-45Identity-u--C-60C-42C-62_Applicative_Identity arg-528 arg-530)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (ControlC-45MonadC-45Identity-u--C-62C-62C-61_Monad_Identity arg-811 arg-812))))) (lambda (u--a) (lambda (arg-814) (ControlC-45MonadC-45Identity-u--join_Monad_Identity arg-814)))) (vector 2 e-6 e-7 e-8 e-9 bind-0 bind-1) eta-2))) eta-1))) eta-0))))))))) ((8) (let ((e-12 (vector-ref arg-2 1))) (let ((e-13 (vector-ref arg-2 2))) (let ((e-14 (vector-ref arg-2 3))) (lambda (eta-0) (ControlC-45MonadC-45StateC-45State-u--C-62C-62C-61_Monad_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (ControlC-45MonadC-45Identity-u--map_Functor_Identity u--func arg-133))))) (lambda (u--a) (lambda (arg-527) (ControlC-45MonadC-45Identity-u--pure_Applicative_Identity arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (ControlC-45MonadC-45Identity-u--C-60C-42C-62_Applicative_Identity arg-528 arg-530)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (ControlC-45MonadC-45Identity-u--C-62C-62C-61_Monad_Identity arg-811 arg-812))))) (lambda (u--a) (lambda (arg-814) (ControlC-45MonadC-45Identity-u--join_Monad_Identity arg-814)))) (TTImpC-45BindImplicits-renameIBinds arg-0 arg-1 e-13) (lambda (bind-0) (lambda (eta-1) (ControlC-45MonadC-45StateC-45State-u--C-62C-62C-61_Monad_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (ControlC-45MonadC-45Identity-u--map_Functor_Identity u--func arg-133))))) (lambda (u--a) (lambda (arg-527) (ControlC-45MonadC-45Identity-u--pure_Applicative_Identity arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (ControlC-45MonadC-45Identity-u--C-60C-42C-62_Applicative_Identity arg-528 arg-530)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (ControlC-45MonadC-45Identity-u--C-62C-62C-61_Monad_Identity arg-811 arg-812))))) (lambda (u--a) (lambda (arg-814) (ControlC-45MonadC-45Identity-u--join_Monad_Identity arg-814)))) (TTImpC-45BindImplicits-renameIBinds arg-0 arg-1 e-14) (lambda (bind-1) (lambda (eta-2) (ControlC-45MonadC-45StateC-45State-u--pure_Applicative_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (ControlC-45MonadC-45Identity-u--map_Functor_Identity u--func arg-133))))) (lambda (u--a) (lambda (arg-527) (ControlC-45MonadC-45Identity-u--pure_Applicative_Identity arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (ControlC-45MonadC-45Identity-u--C-60C-42C-62_Applicative_Identity arg-528 arg-530)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (ControlC-45MonadC-45Identity-u--C-62C-62C-61_Monad_Identity arg-811 arg-812))))) (lambda (u--a) (lambda (arg-814) (ControlC-45MonadC-45Identity-u--join_Monad_Identity arg-814)))) (vector 8 e-12 bind-0 bind-1) eta-2))) eta-1))) eta-0)))))) ((9) (let ((e-15 (vector-ref arg-2 1))) (let ((e-16 (vector-ref arg-2 2))) (let ((e-17 (vector-ref arg-2 3))) (lambda (eta-0) (ControlC-45MonadC-45StateC-45State-u--C-62C-62C-61_Monad_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (ControlC-45MonadC-45Identity-u--map_Functor_Identity u--func arg-133))))) (lambda (u--a) (lambda (arg-527) (ControlC-45MonadC-45Identity-u--pure_Applicative_Identity arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (ControlC-45MonadC-45Identity-u--C-60C-42C-62_Applicative_Identity arg-528 arg-530)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (ControlC-45MonadC-45Identity-u--C-62C-62C-61_Monad_Identity arg-811 arg-812))))) (lambda (u--a) (lambda (arg-814) (ControlC-45MonadC-45Identity-u--join_Monad_Identity arg-814)))) (TTImpC-45BindImplicits-renameIBinds arg-0 arg-1 e-16) (lambda (bind-0) (lambda (eta-1) (ControlC-45MonadC-45StateC-45State-u--C-62C-62C-61_Monad_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (ControlC-45MonadC-45Identity-u--map_Functor_Identity u--func arg-133))))) (lambda (u--a) (lambda (arg-527) (ControlC-45MonadC-45Identity-u--pure_Applicative_Identity arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (ControlC-45MonadC-45Identity-u--C-60C-42C-62_Applicative_Identity arg-528 arg-530)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (ControlC-45MonadC-45Identity-u--C-62C-62C-61_Monad_Identity arg-811 arg-812))))) (lambda (u--a) (lambda (arg-814) (ControlC-45MonadC-45Identity-u--join_Monad_Identity arg-814)))) (TTImpC-45BindImplicits-renameIBinds arg-0 arg-1 e-17) (lambda (bind-1) (lambda (eta-2) (ControlC-45MonadC-45StateC-45State-u--pure_Applicative_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (ControlC-45MonadC-45Identity-u--map_Functor_Identity u--func arg-133))))) (lambda (u--a) (lambda (arg-527) (ControlC-45MonadC-45Identity-u--pure_Applicative_Identity arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (ControlC-45MonadC-45Identity-u--C-60C-42C-62_Applicative_Identity arg-528 arg-530)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (ControlC-45MonadC-45Identity-u--C-62C-62C-61_Monad_Identity arg-811 arg-812))))) (lambda (u--a) (lambda (arg-814) (ControlC-45MonadC-45Identity-u--join_Monad_Identity arg-814)))) (vector 9 e-15 bind-0 bind-1) eta-2))) eta-1))) eta-0)))))) ((10) (let ((e-18 (vector-ref arg-2 1))) (let ((e-19 (vector-ref arg-2 2))) (let ((e-20 (vector-ref arg-2 3))) (let ((e-21 (vector-ref arg-2 4))) (lambda (eta-0) (ControlC-45MonadC-45StateC-45State-u--C-62C-62C-61_Monad_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (ControlC-45MonadC-45Identity-u--map_Functor_Identity u--func arg-133))))) (lambda (u--a) (lambda (arg-527) (ControlC-45MonadC-45Identity-u--pure_Applicative_Identity arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (ControlC-45MonadC-45Identity-u--C-60C-42C-62_Applicative_Identity arg-528 arg-530)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (ControlC-45MonadC-45Identity-u--C-62C-62C-61_Monad_Identity arg-811 arg-812))))) (lambda (u--a) (lambda (arg-814) (ControlC-45MonadC-45Identity-u--join_Monad_Identity arg-814)))) (TTImpC-45BindImplicits-renameIBinds arg-0 arg-1 e-19) (lambda (bind-0) (lambda (eta-1) (ControlC-45MonadC-45StateC-45State-u--C-62C-62C-61_Monad_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (ControlC-45MonadC-45Identity-u--map_Functor_Identity u--func arg-133))))) (lambda (u--a) (lambda (arg-527) (ControlC-45MonadC-45Identity-u--pure_Applicative_Identity arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (ControlC-45MonadC-45Identity-u--C-60C-42C-62_Applicative_Identity arg-528 arg-530)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (ControlC-45MonadC-45Identity-u--C-62C-62C-61_Monad_Identity arg-811 arg-812))))) (lambda (u--a) (lambda (arg-814) (ControlC-45MonadC-45Identity-u--join_Monad_Identity arg-814)))) (TTImpC-45BindImplicits-renameIBinds arg-0 arg-1 e-21) (lambda (bind-1) (lambda (eta-2) (ControlC-45MonadC-45StateC-45State-u--pure_Applicative_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (ControlC-45MonadC-45Identity-u--map_Functor_Identity u--func arg-133))))) (lambda (u--a) (lambda (arg-527) (ControlC-45MonadC-45Identity-u--pure_Applicative_Identity arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (ControlC-45MonadC-45Identity-u--C-60C-42C-62_Applicative_Identity arg-528 arg-530)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (ControlC-45MonadC-45Identity-u--C-62C-62C-61_Monad_Identity arg-811 arg-812))))) (lambda (u--a) (lambda (arg-814) (ControlC-45MonadC-45Identity-u--join_Monad_Identity arg-814)))) (vector 10 e-18 bind-0 e-20 bind-1) eta-2))) eta-1))) eta-0))))))) ((11) (let ((e-22 (vector-ref arg-2 1))) (let ((e-23 (vector-ref arg-2 2))) (let ((e-24 (vector-ref arg-2 3))) (lambda (eta-0) (ControlC-45MonadC-45StateC-45State-u--C-62C-62C-61_Monad_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (ControlC-45MonadC-45Identity-u--map_Functor_Identity u--func arg-133))))) (lambda (u--a) (lambda (arg-527) (ControlC-45MonadC-45Identity-u--pure_Applicative_Identity arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (ControlC-45MonadC-45Identity-u--C-60C-42C-62_Applicative_Identity arg-528 arg-530)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (ControlC-45MonadC-45Identity-u--C-62C-62C-61_Monad_Identity arg-811 arg-812))))) (lambda (u--a) (lambda (arg-814) (ControlC-45MonadC-45Identity-u--join_Monad_Identity arg-814)))) (TTImpC-45BindImplicits-renameIBinds arg-0 arg-1 e-23) (lambda (bind-0) (lambda (eta-1) (ControlC-45MonadC-45StateC-45State-u--C-62C-62C-61_Monad_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (ControlC-45MonadC-45Identity-u--map_Functor_Identity u--func arg-133))))) (lambda (u--a) (lambda (arg-527) (ControlC-45MonadC-45Identity-u--pure_Applicative_Identity arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (ControlC-45MonadC-45Identity-u--C-60C-42C-62_Applicative_Identity arg-528 arg-530)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (ControlC-45MonadC-45Identity-u--C-62C-62C-61_Monad_Identity arg-811 arg-812))))) (lambda (u--a) (lambda (arg-814) (ControlC-45MonadC-45Identity-u--join_Monad_Identity arg-814)))) (TTImpC-45BindImplicits-renameIBinds arg-0 arg-1 e-24) (lambda (bind-1) (lambda (eta-2) (ControlC-45MonadC-45StateC-45State-u--pure_Applicative_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (ControlC-45MonadC-45Identity-u--map_Functor_Identity u--func arg-133))))) (lambda (u--a) (lambda (arg-527) (ControlC-45MonadC-45Identity-u--pure_Applicative_Identity arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (ControlC-45MonadC-45Identity-u--C-60C-42C-62_Applicative_Identity arg-528 arg-530)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (ControlC-45MonadC-45Identity-u--C-62C-62C-61_Monad_Identity arg-811 arg-812))))) (lambda (u--a) (lambda (arg-814) (ControlC-45MonadC-45Identity-u--join_Monad_Identity arg-814)))) (vector 11 e-22 bind-0 bind-1) eta-2))) eta-1))) eta-0)))))) ((18) (let ((e-25 (vector-ref arg-2 1))) (let ((e-26 (vector-ref arg-2 2))) (let ((e-27 (vector-ref arg-2 3))) (let ((e-28 (vector-ref arg-2 4))) (let ((e-29 (vector-ref arg-2 5))) (lambda (eta-0) (ControlC-45MonadC-45StateC-45State-u--C-62C-62C-61_Monad_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (ControlC-45MonadC-45Identity-u--map_Functor_Identity u--func arg-133))))) (lambda (u--a) (lambda (arg-527) (ControlC-45MonadC-45Identity-u--pure_Applicative_Identity arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (ControlC-45MonadC-45Identity-u--C-60C-42C-62_Applicative_Identity arg-528 arg-530)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (ControlC-45MonadC-45Identity-u--C-62C-62C-61_Monad_Identity arg-811 arg-812))))) (lambda (u--a) (lambda (arg-814) (ControlC-45MonadC-45Identity-u--join_Monad_Identity arg-814)))) (TTImpC-45BindImplicits-renameIBinds arg-0 arg-1 e-29) (lambda (bind-0) (lambda (eta-1) (ControlC-45MonadC-45StateC-45State-u--pure_Applicative_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (ControlC-45MonadC-45Identity-u--map_Functor_Identity u--func arg-133))))) (lambda (u--a) (lambda (arg-527) (ControlC-45MonadC-45Identity-u--pure_Applicative_Identity arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (ControlC-45MonadC-45Identity-u--C-60C-42C-62_Applicative_Identity arg-528 arg-530)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (ControlC-45MonadC-45Identity-u--C-62C-62C-61_Monad_Identity arg-811 arg-812))))) (lambda (u--a) (lambda (arg-814) (ControlC-45MonadC-45Identity-u--join_Monad_Identity arg-814)))) (vector 18 e-25 e-26 e-27 e-28 bind-0) eta-1))) eta-0)))))))) ((19) (let ((e-30 (vector-ref arg-2 1))) (let ((e-31 (vector-ref arg-2 2))) (let ((e-32 (vector-ref arg-2 3))) (lambda (eta-0) (ControlC-45MonadC-45StateC-45State-u--C-62C-62C-61_Monad_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (ControlC-45MonadC-45Identity-u--map_Functor_Identity u--func arg-133))))) (lambda (u--a) (lambda (arg-527) (ControlC-45MonadC-45Identity-u--pure_Applicative_Identity arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (ControlC-45MonadC-45Identity-u--C-60C-42C-62_Applicative_Identity arg-528 arg-530)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (ControlC-45MonadC-45Identity-u--C-62C-62C-61_Monad_Identity arg-811 arg-812))))) (lambda (u--a) (lambda (arg-814) (ControlC-45MonadC-45Identity-u--join_Monad_Identity arg-814)))) (TTImpC-45BindImplicits-renameIBinds arg-0 arg-1 e-32) (lambda (bind-0) (lambda (eta-1) (ControlC-45MonadC-45StateC-45State-u--pure_Applicative_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (ControlC-45MonadC-45Identity-u--map_Functor_Identity u--func arg-133))))) (lambda (u--a) (lambda (arg-527) (ControlC-45MonadC-45Identity-u--pure_Applicative_Identity arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (ControlC-45MonadC-45Identity-u--C-60C-42C-62_Applicative_Identity arg-528 arg-530)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (ControlC-45MonadC-45Identity-u--C-62C-62C-61_Monad_Identity arg-811 arg-812))))) (lambda (u--a) (lambda (arg-814) (ControlC-45MonadC-45Identity-u--join_Monad_Identity arg-814)))) (vector 19 e-30 e-31 bind-0) eta-1))) eta-0)))))) ((20) (let ((e-33 (vector-ref arg-2 1))) (let ((e-34 (vector-ref arg-2 2))) (let ((e-35 (vector-ref arg-2 3))) (lambda (eta-0) (ControlC-45MonadC-45StateC-45State-u--C-62C-62C-61_Monad_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (ControlC-45MonadC-45Identity-u--map_Functor_Identity u--func arg-133))))) (lambda (u--a) (lambda (arg-527) (ControlC-45MonadC-45Identity-u--pure_Applicative_Identity arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (ControlC-45MonadC-45Identity-u--C-60C-42C-62_Applicative_Identity arg-528 arg-530)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (ControlC-45MonadC-45Identity-u--C-62C-62C-61_Monad_Identity arg-811 arg-812))))) (lambda (u--a) (lambda (arg-814) (ControlC-45MonadC-45Identity-u--join_Monad_Identity arg-814)))) (TTImpC-45BindImplicits-renameIBinds arg-0 arg-1 e-35) (lambda (bind-0) (lambda (eta-1) (ControlC-45MonadC-45StateC-45State-u--pure_Applicative_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (ControlC-45MonadC-45Identity-u--map_Functor_Identity u--func arg-133))))) (lambda (u--a) (lambda (arg-527) (ControlC-45MonadC-45Identity-u--pure_Applicative_Identity arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (ControlC-45MonadC-45Identity-u--C-60C-42C-62_Applicative_Identity arg-528 arg-530)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (ControlC-45MonadC-45Identity-u--C-62C-62C-61_Monad_Identity arg-811 arg-812))))) (lambda (u--a) (lambda (arg-814) (ControlC-45MonadC-45Identity-u--join_Monad_Identity arg-814)))) (vector 20 e-33 e-34 bind-0) eta-1))) eta-0)))))) ((21) (let ((e-36 (vector-ref arg-2 1))) (let ((e-37 (vector-ref arg-2 2))) (lambda (eta-0) (ControlC-45MonadC-45StateC-45State-u--C-62C-62C-61_Monad_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (ControlC-45MonadC-45Identity-u--map_Functor_Identity u--func arg-133))))) (lambda (u--a) (lambda (arg-527) (ControlC-45MonadC-45Identity-u--pure_Applicative_Identity arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (ControlC-45MonadC-45Identity-u--C-60C-42C-62_Applicative_Identity arg-528 arg-530)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (ControlC-45MonadC-45Identity-u--C-62C-62C-61_Monad_Identity arg-811 arg-812))))) (lambda (u--a) (lambda (arg-814) (ControlC-45MonadC-45Identity-u--join_Monad_Identity arg-814)))) (TTImpC-45BindImplicits-renameIBinds arg-0 arg-1 e-37) (lambda (bind-0) (lambda (eta-1) (ControlC-45MonadC-45StateC-45State-u--pure_Applicative_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (ControlC-45MonadC-45Identity-u--map_Functor_Identity u--func arg-133))))) (lambda (u--a) (lambda (arg-527) (ControlC-45MonadC-45Identity-u--pure_Applicative_Identity arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (ControlC-45MonadC-45Identity-u--C-60C-42C-62_Applicative_Identity arg-528 arg-530)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (ControlC-45MonadC-45Identity-u--C-62C-62C-61_Monad_Identity arg-811 arg-812))))) (lambda (u--a) (lambda (arg-814) (ControlC-45MonadC-45Identity-u--join_Monad_Identity arg-814)))) (vector 21 e-36 bind-0) eta-1))) eta-0))))) ((22) (let ((e-38 (vector-ref arg-2 1))) (let ((e-39 (vector-ref arg-2 2))) (lambda (eta-0) (ControlC-45MonadC-45StateC-45State-u--C-62C-62C-61_Monad_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (ControlC-45MonadC-45Identity-u--map_Functor_Identity u--func arg-133))))) (lambda (u--a) (lambda (arg-527) (ControlC-45MonadC-45Identity-u--pure_Applicative_Identity arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (ControlC-45MonadC-45Identity-u--C-60C-42C-62_Applicative_Identity arg-528 arg-530)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (ControlC-45MonadC-45Identity-u--C-62C-62C-61_Monad_Identity arg-811 arg-812))))) (lambda (u--a) (lambda (arg-814) (ControlC-45MonadC-45Identity-u--join_Monad_Identity arg-814)))) (TTImpC-45BindImplicits-renameIBinds arg-0 arg-1 e-39) (lambda (bind-0) (lambda (eta-1) (ControlC-45MonadC-45StateC-45State-u--pure_Applicative_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (ControlC-45MonadC-45Identity-u--map_Functor_Identity u--func arg-133))))) (lambda (u--a) (lambda (arg-527) (ControlC-45MonadC-45Identity-u--pure_Applicative_Identity arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (ControlC-45MonadC-45Identity-u--C-60C-42C-62_Applicative_Identity arg-528 arg-530)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (ControlC-45MonadC-45Identity-u--C-62C-62C-61_Monad_Identity arg-811 arg-812))))) (lambda (u--a) (lambda (arg-814) (ControlC-45MonadC-45Identity-u--join_Monad_Identity arg-814)))) (vector 22 e-38 bind-0) eta-1))) eta-0))))) ((13) (let ((e-40 (vector-ref arg-2 1))) (let ((e-41 (vector-ref arg-2 2))) (let ((e-42 (vector-ref arg-2 3))) (lambda (eta-0) (ControlC-45MonadC-45StateC-45State-u--C-62C-62C-61_Monad_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (ControlC-45MonadC-45Identity-u--map_Functor_Identity u--func arg-133))))) (lambda (u--a) (lambda (arg-527) (ControlC-45MonadC-45Identity-u--pure_Applicative_Identity arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (ControlC-45MonadC-45Identity-u--C-60C-42C-62_Applicative_Identity arg-528 arg-530)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (ControlC-45MonadC-45Identity-u--C-62C-62C-61_Monad_Identity arg-811 arg-812))))) (lambda (u--a) (lambda (arg-814) (ControlC-45MonadC-45Identity-u--join_Monad_Identity arg-814)))) (lambda (eta-1) (TTImpC-45BindImplicits-n--5354-3819-u--renameAlt e-42 e-41 e-40 arg-1 arg-0 e-41 eta-1)) (lambda (bind-0) (lambda (eta-1) (ControlC-45MonadC-45StateC-45State-u--C-62C-62C-61_Monad_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (ControlC-45MonadC-45Identity-u--map_Functor_Identity u--func arg-133))))) (lambda (u--a) (lambda (arg-527) (ControlC-45MonadC-45Identity-u--pure_Applicative_Identity arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (ControlC-45MonadC-45Identity-u--C-60C-42C-62_Applicative_Identity arg-528 arg-530)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (ControlC-45MonadC-45Identity-u--C-62C-62C-61_Monad_Identity arg-811 arg-812))))) (lambda (u--a) (lambda (arg-814) (ControlC-45MonadC-45Identity-u--join_Monad_Identity arg-814)))) (PreludeC-45Types-u--traverse_Traversable_List (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-2) (ControlC-45MonadC-45StateC-45State-u--map_Functor_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 (lambda (b-0) (lambda (a-0) (lambda (func-0) (lambda (arg-134) (ControlC-45MonadC-45Identity-u--map_Functor_Identity func-0 arg-134))))) u--func arg-133 eta-2)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-2) (ControlC-45MonadC-45StateC-45State-u--pure_Applicative_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 (vector (vector (lambda (u--b) (lambda (a-0) (lambda (u--func) (lambda (arg-133) (ControlC-45MonadC-45Identity-u--map_Functor_Identity u--func arg-133))))) (lambda (a-0) (lambda (arg-528) (ControlC-45MonadC-45Identity-u--pure_Applicative_Identity arg-528))) (lambda (u--b) (lambda (a-0) (lambda (arg-528) (lambda (arg-530) (ControlC-45MonadC-45Identity-u--C-60C-42C-62_Applicative_Identity arg-528 arg-530)))))) (lambda (u--b) (lambda (a-0) (lambda (arg-811) (lambda (arg-812) (ControlC-45MonadC-45Identity-u--C-62C-62C-61_Monad_Identity arg-811 arg-812))))) (lambda (a-0) (lambda (arg-814) (ControlC-45MonadC-45Identity-u--join_Monad_Identity arg-814)))) arg-527 eta-2)))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-2) (ControlC-45MonadC-45StateC-45State-u--C-60C-42C-62_Applicative_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 (vector (vector (lambda (b-0) (lambda (a-0) (lambda (u--func) (lambda (arg-133) (ControlC-45MonadC-45Identity-u--map_Functor_Identity u--func arg-133))))) (lambda (a-0) (lambda (arg-527) (ControlC-45MonadC-45Identity-u--pure_Applicative_Identity arg-527))) (lambda (b-0) (lambda (a-0) (lambda (arg-529) (lambda (arg-531) (ControlC-45MonadC-45Identity-u--C-60C-42C-62_Applicative_Identity arg-529 arg-531)))))) (lambda (b-0) (lambda (a-0) (lambda (arg-811) (lambda (arg-812) (ControlC-45MonadC-45Identity-u--C-62C-62C-61_Monad_Identity arg-811 arg-812))))) (lambda (a-0) (lambda (arg-814) (ControlC-45MonadC-45Identity-u--join_Monad_Identity arg-814)))) arg-528 arg-530 eta-2))))))) (lambda (eta-2) (TTImpC-45BindImplicits-renameIBinds arg-0 arg-1 eta-2)) e-42) (lambda (bind-1) (lambda (eta-2) (ControlC-45MonadC-45StateC-45State-u--pure_Applicative_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (ControlC-45MonadC-45Identity-u--map_Functor_Identity u--func arg-133))))) (lambda (u--a) (lambda (arg-527) (ControlC-45MonadC-45Identity-u--pure_Applicative_Identity arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (ControlC-45MonadC-45Identity-u--C-60C-42C-62_Applicative_Identity arg-528 arg-530)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (ControlC-45MonadC-45Identity-u--C-62C-62C-61_Monad_Identity arg-811 arg-812))))) (lambda (u--a) (lambda (arg-814) (ControlC-45MonadC-45Identity-u--join_Monad_Identity arg-814)))) (vector 13 e-40 bind-0 bind-1) eta-2))) eta-1))) eta-0)))))) ((17) (let ((e-43 (vector-ref arg-2 1))) (let ((e-44 (vector-ref arg-2 2))) (let ((sc1 (PreludeC-45Types-elem (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_String arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_String arg-4 arg-5)))) e-44 arg-0))) (cond ((equal? sc1 1) (let ((u--nC-39 (TTImpC-45Utils-getUnique (PreludeC-45TypesC-45List-C-43C-43 arg-0 arg-1) e-44))) (lambda (eta-0) (ControlC-45MonadC-45StateC-45State-u--C-62C-62C-61_Monad_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (ControlC-45MonadC-45Identity-u--map_Functor_Identity u--func arg-133))))) (lambda (u--a) (lambda (arg-527) (ControlC-45MonadC-45Identity-u--pure_Applicative_Identity arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (ControlC-45MonadC-45Identity-u--C-60C-42C-62_Applicative_Identity arg-528 arg-530)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (ControlC-45MonadC-45Identity-u--C-62C-62C-61_Monad_Identity arg-811 arg-812))))) (lambda (u--a) (lambda (arg-814) (ControlC-45MonadC-45Identity-u--join_Monad_Identity arg-814)))) (lambda (u--x) (ControlC-45MonadC-45Identity-u--pure_Applicative_Identity (cons u--x u--x))) (lambda (u--upds) (PreludeC-45Interfaces-C-62C-62 (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-1) (ControlC-45MonadC-45StateC-45State-u--map_Functor_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 (lambda (b-0) (lambda (a-0) (lambda (func-0) (lambda (arg-134) (ControlC-45MonadC-45Identity-u--map_Functor_Identity func-0 arg-134))))) u--func arg-133 eta-1)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-1) (ControlC-45MonadC-45StateC-45State-u--pure_Applicative_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 (vector (vector (lambda (u--b) (lambda (a-0) (lambda (u--func) (lambda (arg-133) (ControlC-45MonadC-45Identity-u--map_Functor_Identity u--func arg-133))))) (lambda (a-0) (lambda (arg-528) (ControlC-45MonadC-45Identity-u--pure_Applicative_Identity arg-528))) (lambda (u--b) (lambda (a-0) (lambda (arg-528) (lambda (arg-530) (ControlC-45MonadC-45Identity-u--C-60C-42C-62_Applicative_Identity arg-528 arg-530)))))) (lambda (u--b) (lambda (a-0) (lambda (arg-811) (lambda (arg-812) (ControlC-45MonadC-45Identity-u--C-62C-62C-61_Monad_Identity arg-811 arg-812))))) (lambda (a-0) (lambda (arg-814) (ControlC-45MonadC-45Identity-u--join_Monad_Identity arg-814)))) arg-527 eta-1)))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-1) (ControlC-45MonadC-45StateC-45State-u--C-60C-42C-62_Applicative_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 (vector (vector (lambda (b-0) (lambda (a-0) (lambda (u--func) (lambda (arg-133) (ControlC-45MonadC-45Identity-u--map_Functor_Identity u--func arg-133))))) (lambda (a-0) (lambda (arg-527) (ControlC-45MonadC-45Identity-u--pure_Applicative_Identity arg-527))) (lambda (b-0) (lambda (a-0) (lambda (arg-529) (lambda (arg-531) (ControlC-45MonadC-45Identity-u--C-60C-42C-62_Applicative_Identity arg-529 arg-531)))))) (lambda (b-0) (lambda (a-0) (lambda (arg-811) (lambda (arg-812) (ControlC-45MonadC-45Identity-u--C-62C-62C-61_Monad_Identity arg-811 arg-812))))) (lambda (a-0) (lambda (arg-814) (ControlC-45MonadC-45Identity-u--join_Monad_Identity arg-814)))) arg-528 arg-530 eta-1))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-1) (ControlC-45MonadC-45StateC-45State-u--C-62C-62C-61_Monad_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 (vector (vector (lambda (b-0) (lambda (a-0) (lambda (u--func) (lambda (arg-133) (ControlC-45MonadC-45Identity-u--map_Functor_Identity u--func arg-133))))) (lambda (a-0) (lambda (arg-527) (ControlC-45MonadC-45Identity-u--pure_Applicative_Identity arg-527))) (lambda (b-0) (lambda (a-0) (lambda (arg-528) (lambda (arg-530) (ControlC-45MonadC-45Identity-u--C-60C-42C-62_Applicative_Identity arg-528 arg-530)))))) (lambda (b-0) (lambda (a-0) (lambda (arg-813) (lambda (arg-814) (ControlC-45MonadC-45Identity-u--C-62C-62C-61_Monad_Identity arg-813 arg-814))))) (lambda (a-0) (lambda (arg-814) (ControlC-45MonadC-45Identity-u--join_Monad_Identity arg-814)))) arg-811 arg-812 eta-1)))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-1) (ControlC-45MonadC-45StateC-45State-u--join_Monad_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 (vector (vector (lambda (u--b) (lambda (a-0) (lambda (u--func) (lambda (arg-133) (ControlC-45MonadC-45Identity-u--map_Functor_Identity u--func arg-133))))) (lambda (a-0) (lambda (arg-527) (ControlC-45MonadC-45Identity-u--pure_Applicative_Identity arg-527))) (lambda (u--b) (lambda (a-0) (lambda (arg-528) (lambda (arg-530) (ControlC-45MonadC-45Identity-u--C-60C-42C-62_Applicative_Identity arg-528 arg-530)))))) (lambda (u--b) (lambda (a-0) (lambda (arg-811) (lambda (arg-812) (ControlC-45MonadC-45Identity-u--C-62C-62C-61_Monad_Identity arg-811 arg-812))))) (lambda (a-0) (lambda (arg-815) (ControlC-45MonadC-45Identity-u--join_Monad_Identity arg-815)))) arg-814 eta-1))))) (lambda (u--y) (ControlC-45MonadC-45Identity-u--pure_Applicative_Identity (cons (cons (cons e-44 u--nC-39) u--upds) 0))) (lambda () (lambda (eta-1) (ControlC-45MonadC-45StateC-45State-u--pure_Applicative_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (ControlC-45MonadC-45Identity-u--map_Functor_Identity u--func arg-133))))) (lambda (u--a) (lambda (arg-527) (ControlC-45MonadC-45Identity-u--pure_Applicative_Identity arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (ControlC-45MonadC-45Identity-u--C-60C-42C-62_Applicative_Identity arg-528 arg-530)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (ControlC-45MonadC-45Identity-u--C-62C-62C-61_Monad_Identity arg-811 arg-812))))) (lambda (u--a) (lambda (arg-814) (ControlC-45MonadC-45Identity-u--join_Monad_Identity arg-814)))) (vector 17 e-43 u--nC-39) eta-1))))) eta-0)))) (else (lambda (eta-0) (ControlC-45MonadC-45StateC-45State-u--pure_Applicative_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (ControlC-45MonadC-45Identity-u--map_Functor_Identity u--func arg-133))))) (lambda (u--a) (lambda (arg-527) (ControlC-45MonadC-45Identity-u--pure_Applicative_Identity arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (ControlC-45MonadC-45Identity-u--C-60C-42C-62_Applicative_Identity arg-528 arg-530)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (ControlC-45MonadC-45Identity-u--C-62C-62C-61_Monad_Identity arg-811 arg-812))))) (lambda (u--a) (lambda (arg-814) (ControlC-45MonadC-45Identity-u--join_Monad_Identity arg-814)))) (vector 17 e-43 e-44) eta-0))))))))(else (lambda (eta-0) (ControlC-45MonadC-45StateC-45State-u--pure_Applicative_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (ControlC-45MonadC-45Identity-u--map_Functor_Identity u--func arg-133))))) (lambda (u--a) (lambda (arg-527) (ControlC-45MonadC-45Identity-u--pure_Applicative_Identity arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (ControlC-45MonadC-45Identity-u--C-60C-42C-62_Applicative_Identity arg-528 arg-530)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (ControlC-45MonadC-45Identity-u--C-62C-62C-61_Monad_Identity arg-811 arg-812))))) (lambda (u--a) (lambda (arg-814) (ControlC-45MonadC-45Identity-u--join_Monad_Identity arg-814)))) arg-2 eta-0)))))) +(define TTImpC-45BindImplicits-piBindNames (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 ((TTImpC-45Utils-findUniqueBindableNames arg-0 arg-1 1 arg-2 '() arg-3) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (TTImpC-45BindImplicits-n--6559-4540-u--piBind arg-3 arg-2 arg-1 arg-0 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-fst eta-0)) e-5) arg-3)))))))) +(define TTImpC-45BindImplicits-getUsings (lambda (arg-0 arg-1) (PreludeC-45Interfaces-concatMap (cons (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-2 arg-3))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) (lambda (eta-0) (PreludeC-45Basics-flip (lambda (eta-1) (lambda (eta-2) (TTImpC-45BindImplicits-getUsing eta-1 eta-2))) arg-1 eta-0)) arg-0))) +(define TTImpC-45BindImplicits-getUsing (lambda (arg-0 arg-1) (if (null? arg-1) '() (let ((e-2 (car arg-1))) (let ((e-3 (cdr arg-1))) (let ((e-6 (car e-2))) (let ((e-7 (cdr e-2))) (let ((e-10 (car e-7))) (let ((e-11 (cdr e-7))) (if (null? e-10) (let ((u--ns (DataC-45List-nub (cons (lambda (arg-2) (lambda (arg-3) (CoreC-45Name-u--C-61C-61_Eq_Name arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (CoreC-45Name-u--C-47C-61_Eq_Name arg-4 arg-5)))) (TTImpC-45Utils-findIBindVars e-11)))) (let ((sc4 (PreludeC-45Types-elem (cons (lambda (arg-2) (lambda (arg-3) (CoreC-45Name-u--C-61C-61_Eq_Name arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (CoreC-45Name-u--C-47C-61_Eq_Name arg-4 arg-5)))) arg-0 u--ns))) (cond ((equal? sc4 1) (cons (cons e-6 (cons (AlgebraC-45ZeroOneOmega-u--top_Top_ZeroOneOmega) (cons (vector 2 ) (cons '() e-11)))) (TTImpC-45BindImplicits-getUsing arg-0 e-3))) (else (TTImpC-45BindImplicits-getUsing arg-0 e-3))))) (let ((e-13 (unbox e-10))) (let ((sc4 (CoreC-45Name-u--C-61C-61_Eq_Name arg-0 e-13))) (cond ((equal? sc4 1) (cons (cons e-6 (cons (AlgebraC-45Semiring-erased (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))) (cons (vector 0 ) (cons (box arg-0) e-11)))) (TTImpC-45BindImplicits-getUsing arg-0 e-3))) (else (TTImpC-45BindImplicits-getUsing arg-0 e-3))))))))))))))) +(define TTImpC-45BindImplicits-doBind (lambda (arg-0 arg-1) (if (null? arg-0) arg-1 (case (vector-ref arg-1 0) ((0) (let ((e-0 (vector-ref arg-1 1))) (let ((e-1 (vector-ref arg-1 2))) (case (vector-ref e-1 0) ((1) (let ((e-49 (vector-ref e-1 1))) (PreludeC-45Types-maybe (lambda () (vector 0 e-0 (vector 1 e-49))) (lambda () (lambda (u--nC-39) (vector 17 e-0 u--nC-39))) (DataC-45List-lookup (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_String arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_String arg-4 arg-5)))) e-49 arg-0))))(else arg-1))))) ((1) (let ((e-2 (vector-ref arg-1 1))) (let ((e-3 (vector-ref arg-1 2))) (let ((e-4 (vector-ref arg-1 3))) (let ((e-5 (vector-ref arg-1 4))) (let ((e-6 (vector-ref arg-1 5))) (let ((e-7 (vector-ref arg-1 6))) (let ((u--nsC-39 (if (null? e-5) arg-0 (let ((e-1 (unbox e-5))) (case (vector-ref e-1 0) ((1) (let ((e-8 (vector-ref e-1 1))) (DataC-45List-filter (lambda (u--x) (PreludeC-45EqOrd-u--C-47C-61_Eq_String (Builtin-fst u--x) e-8)) arg-0)))(else arg-0)))))) (vector 1 e-2 e-3 e-4 e-5 (TTImpC-45BindImplicits-doBind u--nsC-39 e-6) (TTImpC-45BindImplicits-doBind u--nsC-39 e-7)))))))))) ((2) (let ((e-8 (vector-ref arg-1 1))) (let ((e-9 (vector-ref arg-1 2))) (let ((e-10 (vector-ref arg-1 3))) (let ((e-11 (vector-ref arg-1 4))) (let ((e-12 (vector-ref arg-1 5))) (let ((e-13 (vector-ref arg-1 6))) (let ((u--nsC-39 (if (null? e-11) arg-0 (let ((e-1 (unbox e-11))) (case (vector-ref e-1 0) ((1) (let ((e-2 (vector-ref e-1 1))) (DataC-45List-filter (lambda (u--x) (PreludeC-45EqOrd-u--C-47C-61_Eq_String (Builtin-fst u--x) e-2)) arg-0)))(else arg-0)))))) (vector 2 e-8 e-9 e-10 e-11 (TTImpC-45BindImplicits-doBind u--nsC-39 e-12) (TTImpC-45BindImplicits-doBind u--nsC-39 e-13)))))))))) ((8) (let ((e-14 (vector-ref arg-1 1))) (let ((e-15 (vector-ref arg-1 2))) (let ((e-16 (vector-ref arg-1 3))) (vector 8 e-14 (TTImpC-45BindImplicits-doBind arg-0 e-15) (TTImpC-45BindImplicits-doBind arg-0 e-16)))))) ((9) (let ((e-17 (vector-ref arg-1 1))) (let ((e-18 (vector-ref arg-1 2))) (let ((e-19 (vector-ref arg-1 3))) (vector 9 e-17 (TTImpC-45BindImplicits-doBind arg-0 e-18) (TTImpC-45BindImplicits-doBind arg-0 e-19)))))) ((10) (let ((e-20 (vector-ref arg-1 1))) (let ((e-21 (vector-ref arg-1 2))) (let ((e-22 (vector-ref arg-1 3))) (let ((e-23 (vector-ref arg-1 4))) (vector 10 e-20 (TTImpC-45BindImplicits-doBind arg-0 e-21) e-22 (TTImpC-45BindImplicits-doBind arg-0 e-23))))))) ((11) (let ((e-24 (vector-ref arg-1 1))) (let ((e-25 (vector-ref arg-1 2))) (let ((e-26 (vector-ref arg-1 3))) (vector 11 e-24 (TTImpC-45BindImplicits-doBind arg-0 e-25) (TTImpC-45BindImplicits-doBind arg-0 e-26)))))) ((18) (let ((e-27 (vector-ref arg-1 1))) (let ((e-28 (vector-ref arg-1 2))) (let ((e-29 (vector-ref arg-1 3))) (let ((e-30 (vector-ref arg-1 4))) (let ((e-31 (vector-ref arg-1 5))) (vector 18 e-27 e-28 e-29 e-30 (TTImpC-45BindImplicits-doBind arg-0 e-31)))))))) ((19) (let ((e-32 (vector-ref arg-1 1))) (let ((e-33 (vector-ref arg-1 2))) (let ((e-34 (vector-ref arg-1 3))) (vector 19 e-32 e-33 (TTImpC-45BindImplicits-doBind arg-0 e-34)))))) ((20) (let ((e-35 (vector-ref arg-1 1))) (let ((e-36 (vector-ref arg-1 2))) (let ((e-37 (vector-ref arg-1 3))) (vector 20 e-35 e-36 (TTImpC-45BindImplicits-doBind arg-0 e-37)))))) ((21) (let ((e-38 (vector-ref arg-1 1))) (let ((e-39 (vector-ref arg-1 2))) (vector 21 e-38 (TTImpC-45BindImplicits-doBind arg-0 e-39))))) ((22) (let ((e-40 (vector-ref arg-1 1))) (let ((e-41 (vector-ref arg-1 2))) (vector 22 e-40 (TTImpC-45BindImplicits-doBind arg-0 e-41))))) ((23) (let ((e-42 (vector-ref arg-1 1))) (let ((e-43 (vector-ref arg-1 2))) (vector 23 e-42 (TTImpC-45BindImplicits-doBind arg-0 e-43))))) ((26) (let ((e-44 (vector-ref arg-1 1))) (let ((e-45 (vector-ref arg-1 2))) (vector 26 e-44 (TTImpC-45BindImplicits-doBind arg-0 e-45))))) ((13) (let ((e-46 (vector-ref arg-1 1))) (let ((e-47 (vector-ref arg-1 2))) (let ((e-48 (vector-ref arg-1 3))) (vector 13 e-46 (TTImpC-45TTImp-mapAltType (lambda (eta-0) (TTImpC-45BindImplicits-doBind arg-0 eta-0)) e-47) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (TTImpC-45BindImplicits-doBind arg-0 eta-0)) e-48))))))(else arg-1))))) +(define TTImpC-45BindImplicits-bindUsings (lambda (arg-0 arg-1) (if (null? arg-0) arg-1 (let ((e-2 (car arg-0))) (let ((e-3 (cdr arg-0))) (let ((e-6 (car e-2))) (let ((e-7 (cdr e-2))) (let ((e-10 (car e-7))) (let ((e-11 (cdr e-7))) (let ((e-14 (car e-11))) (let ((e-15 (cdr e-11))) (vector 1 (TTImpC-45TTImp-getFC e-15) e-6 e-10 e-14 e-15 (TTImpC-45BindImplicits-bindUsings e-3 arg-1))))))))))))) +(define TTImpC-45BindImplicits-bindTypeNamesUsed (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (CoreC-45Context-isUnboundImplicits arg-0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (cond ((equal? e-5 1) (let ((act-25 ((TTImpC-45Utils-findUniqueBindableNames arg-0 arg-1 1 arg-3 arg-2 arg-4) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (TTImpC-45BindImplicits-doBind e-6 arg-4))))))) (else (vector 1 arg-4))))))))) +(define TTImpC-45BindImplicits-bindTypeNames (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (CoreC-45Context-isUnboundImplicits arg-0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (cond ((equal? e-5 1) (let ((act-25 ((TTImpC-45Utils-findUniqueBindableNames arg-0 arg-1 1 arg-3 '() arg-4) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((u--btm (TTImpC-45BindImplicits-doBind e-6 arg-4))) (vector 1 (TTImpC-45BindImplicits-addUsing arg-2 u--btm)))))))) (else (vector 1 arg-4))))))))) +(define TTImpC-45BindImplicits-bindNames (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (CoreC-45Context-isUnboundImplicits arg-0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (cond ((equal? e-5 1) (let ((u--ns (DataC-45List-nub (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-61C-61_Eq_String arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-47C-61_Eq_String arg-5 arg-6)))) (cons (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-61C-61_Eq_String arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-47C-61_Eq_String arg-5 arg-6)))) arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (arg-3) (lambda (arg-6) (PreludeC-45EqOrd-u--C-61C-61_Eq_String arg-3 arg-6))) (lambda (arg-6) (lambda (arg-7) (PreludeC-45EqOrd-u--C-47C-61_Eq_String arg-6 arg-7)))) (cons (lambda (arg-3) (lambda (arg-6) (PreludeC-45EqOrd-u--C-61C-61_Eq_String arg-3 arg-6))) (lambda (arg-6) (lambda (arg-7) (PreludeC-45EqOrd-u--C-47C-61_Eq_String arg-6 arg-7)))) arg-4 arg-5)))) (TTImpC-45Utils-findBindableNames arg-1 '() '() arg-2)))) (let ((act-25 (CoreC-45ContextC-45Log-log arg-0 "elab.bindnames" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Found names :" (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_String x-0)) (lambda (u--d) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_String u--d x-0)))) (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_String x-0)) (lambda (u--d) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_String u--d x-0))))) u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_String x-0)) (lambda (d-0) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_String d-0 x-0)))) (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_String x-0)) (lambda (d-0) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_String d-0 x-0))))) u--d u--x)))) u--ns))) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (vector 1 (cons (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (vector 1 eta-0)) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) u--ns)) (TTImpC-45BindImplicits-doBind u--ns arg-2)))))))) (else (vector 1 (cons '() arg-2)))))))))) +(define TTImpC-45BindImplicits-addUsing (lambda (arg-0 arg-1) (let ((u--ns (DataC-45List-nub (cons (lambda (arg-2) (lambda (arg-3) (CoreC-45Name-u--C-61C-61_Eq_Name arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (CoreC-45Name-u--C-47C-61_Eq_Name arg-4 arg-5)))) (TTImpC-45Utils-findIBindVars arg-1)))) (let ((u--bs (DataC-45List-nubBy (lambda (u--x) (lambda (u--y) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int (Builtin-fst u--x) (Builtin-fst u--y)))) (TTImpC-45BindImplicits-getUsings u--ns (TTImpC-45BindImplicits-n--6380-4374-u--tag arg-1 arg-0 0 arg-0))))) (TTImpC-45BindImplicits-bindUsings (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) u--bs) arg-1))))) +(define ControlC-45MonadC-45StateC-45State-u--pure_Applicative_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 (lambda (arg-3 arg-4 ext-0) (let ((e-1 (vector-ref arg-3 0))) (let ((e-5 (vector-ref e-1 1))) ((e-5 'erased) (cons ext-0 arg-4)))))) +(define ControlC-45MonadC-45StateC-45State-u--map_Functor_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 (lambda (arg-4 arg-5 arg-6 ext-0) ((((arg-4 'erased) 'erased) (lambda (eta-0) (let ((e-2 (car eta-0))) (let ((e-3 (cdr eta-0))) (cons e-2 (arg-5 e-3)))))) (arg-6 ext-0)))) (define ControlC-45MonadC-45StateC-45State-u--join_Monad_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 (lambda (arg-3 arg-4 ext-0) (ControlC-45MonadC-45StateC-45State-u--C-62C-62C-61_Monad_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 arg-3 arg-4 (lambda (eta-0) eta-0) ext-0))) -(define ControlC-45MonadC-45StateC-45State-u--C-62C-62C-61_Monad_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 (lambda (arg-4 arg-5 arg-6 ext-0) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (arg-5 ext-0)) (lambda (_-0) (let ((sc1 _-0)) (let ((e-5 (car sc1))) (let ((e-4 (cdr sc1))) (let ((_-1 (cons e-5 e-4))) (ControlC-45MonadC-45StateC-45State-case--caseC-32blockC-32inC-32C-62C-62C-61-1064 arg-4 arg-5 arg-6 ext-0 e-5 e-4 _-1 (arg-6 e-4)))))))))))) -(define ControlC-45MonadC-45StateC-45State-u--C-60C-42C-62_Applicative_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 (lambda (arg-4 arg-5 arg-6 ext-0) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (arg-5 ext-0)) (lambda (_-0) (let ((sc1 _-0)) (let ((e-5 (car sc1))) (let ((e-4 (cdr sc1))) (let ((sc2 arg-4)) (let ((e-7 (vector-ref sc2 2))) ((((e-7 'erased) 'erased) (arg-6 e-5)) (lambda (_-1) (let ((sc3 _-1)) (let ((e-10 (car sc3))) (let ((e-9 (cdr sc3))) (let ((sc4 arg-4)) (let ((e-13 (vector-ref sc4 1))) (let ((sc5 e-13)) (let ((e-15 (vector-ref sc5 2))) ((e-15 'erased) (cons e-10 (e-4 e-9))))))))))))))))))))))) +(define ControlC-45MonadC-45StateC-45State-u--C-62C-62C-61_Monad_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 (lambda (arg-4 arg-5 arg-6 ext-0) (let ((e-2 (vector-ref arg-4 1))) ((((e-2 'erased) 'erased) (arg-5 ext-0)) (lambda (_-0) (let ((e-5 (car _-0))) (let ((e-4 (cdr _-0))) ((arg-6 e-4) e-5)))))))) +(define ControlC-45MonadC-45StateC-45State-u--C-60C-42C-62_Applicative_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 (lambda (arg-4 arg-5 arg-6 ext-0) (let ((e-2 (vector-ref arg-4 1))) ((((e-2 'erased) 'erased) (arg-5 ext-0)) (lambda (_-0) (let ((e-5 (car _-0))) (let ((e-4 (cdr _-0))) (let ((e-7 (vector-ref arg-4 1))) ((((e-7 'erased) 'erased) (arg-6 e-5)) (lambda (_-1) (let ((e-10 (car _-1))) (let ((e-9 (cdr _-1))) (let ((e-13 (vector-ref arg-4 0))) (let ((e-15 (vector-ref e-13 1))) ((e-15 'erased) (cons e-10 (e-4 e-9))))))))))))))))) (define ControlC-45MonadC-45Identity-u--pure_Applicative_Identity (lambda (arg-1) arg-1)) (define ControlC-45MonadC-45Identity-u--map_Functor_Identity (lambda (arg-2 arg-3) (arg-2 arg-3))) (define ControlC-45MonadC-45Identity-u--join_Monad_Identity (lambda (arg-1) (ControlC-45MonadC-45Identity-u--C-62C-62C-61_Monad_Identity arg-1 (lambda (eta-0) eta-0)))) (define ControlC-45MonadC-45Identity-u--C-62C-62C-61_Monad_Identity (lambda (arg-2 arg-3) (arg-3 arg-2))) (define ControlC-45MonadC-45Identity-u--C-60C-42C-62_Applicative_Identity (lambda (arg-2 arg-3) (arg-2 arg-3))) -(define TTImpC-45ProcessTransform-processTransform (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 ext-0) (let ((act-24 (CoreC-45Context-inCurrentNS arg-1 arg-8 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (CoreC-45Context-resolveName arg-1 e-5 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (TTImpC-45ProcessDef-checkLHS arg-0 arg-1 arg-2 arg-3 0 (AlgebraC-45ZeroOneOmega-u--top_Top_ZeroOneOmega) 0 e-6 arg-4 arg-5 arg-6 arg-7 arg-9 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (let ((e-3 (cdr sc3))) (let ((sc4 e-3)) (let ((e-9 (car sc4))) (let ((e-8 (cdr sc4))) (let ((sc5 e-8)) (let ((e-10 (car sc5))) (let ((e-11 (cdr sc5))) (let ((sc6 e-11)) (let ((e-14 (car sc6))) (let ((e-15 (cdr sc6))) (let ((sc7 e-15)) (let ((e-18 (car sc7))) (let ((e-19 (cdr sc7))) (let ((sc8 e-19)) (let ((e-22 (car sc8))) (let ((e-23 (cdr sc8))) (let ((act-27 (CoreC-45ContextC-45Log-logTerm e-9 arg-1 "" (+ 1 (+ 1 (+ 1 0))) (lambda () "Transform LHS") e-22 ext-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((act-28 (CoreC-45Core-wrapError (lambda (eta-0) (vector 64 arg-7 arg-8 eta-0)) (lambda (eta-0) (TTImpC-45Elab-checkTermSub arg-0 e-9 arg-1 arg-2 arg-3 e-6 (vector 2 ) (cons (vector 3 ) arg-4) e-18 e-14 arg-6 e-10 arg-10 (CoreC-45Normalise-gnf e-9 e-14 e-23) eta-0)) ext-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-13 (vector-ref sc10 1))) (let ((act-29 (CoreC-45Metadata-clearHoleLHS arg-2 ext-0))) (let ((sc11 act-29)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((act-30 (CoreC-45ContextC-45Log-logTerm e-9 arg-1 "" (+ 1 (+ 1 (+ 1 0))) (lambda () "Transform RHS") e-13 ext-0))) (let ((sc12 act-30)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (CoreC-45Context-addTransform arg-1 arg-7 (vector 0 e-9 e-5 e-14 e-22 e-13) ext-0)))))))))))))))))))))))))))))))))))))))))))))))))))) -(define TTImpC-45ProcessDef-with--withC-32blockC-32inC-32nameListEq-10118 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (vector 1 (vector 0 ))))) (else (vector 0 )))))) -(define TTImpC-45ProcessDef-with--nameListEq-10111 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (TTImpC-45ProcessDef-with--withC-32blockC-32inC-32nameListEq-10118 arg-4 arg-3 (TTImpC-45ProcessDef-nameListEq arg-3 arg-4) arg-0)))) (else (vector 0 )))))) -(define TTImpC-45ProcessDef-with--extendEnv-4257 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 "Can't happen: names don't match in pattern type") eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (TTImpC-45ProcessDef-extendEnv (cons arg-0 arg-4) (cons (vector 1 arg-14 arg-13 arg-11 arg-12) arg-19) (vector 1 arg-18) (TTImpC-45TTImp-u--weaken_Weaken_NestedNames arg-17) arg-15 arg-16)))))))) -(define TTImpC-45ProcessDef-with--extendEnv-4176 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 "Can't happen: names don't match in pattern type") eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (TTImpC-45ProcessDef-extendEnv (cons arg-0 arg-4) (cons (vector 3 arg-13 arg-12 arg-11 arg-10) arg-18) (vector 1 arg-17) (TTImpC-45TTImp-u--weaken_Weaken_NestedNames arg-16) arg-14 arg-15)))))))) -(define TTImpC-45ProcessDef-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32processDef-12774 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (cond ((equal? sc0 0) (AlgebraC-45Semiring-erased (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)))) (else (AlgebraC-45Semiring-linear (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)))))))) -(define TTImpC-45ProcessDef-case--caseC-32blockC-32inC-32processDef-12728 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((0) (let ((u--ty (let ((sc1 arg-12)) (let ((e-2 (vector-ref sc1 3))) e-2)))) (let ((u--hashit (CoreC-45TT-u--C-61C-61_Eq_Visibility (let ((sc1 arg-12)) (let ((e-9 (vector-ref sc1 10))) e-9)) (vector 2 )))) (let ((u--mult (TTImpC-45ProcessDef-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32processDef-12774 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 u--ty u--hashit (AlgebraC-45Semiring-isErased (cons (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-15) (lambda (arg-16) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-15 arg-16))) (lambda (arg-15) (lambda (arg-16) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-15 arg-16))))) (let ((sc1 arg-12)) (let ((e-7 (vector-ref sc1 8))) e-7)))))) (lambda (eta-0) (let ((act-24 (CoreC-45Context-resolveName arg-9 arg-10 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Context-getDefaultTotalityOption arg-9 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((u--treq (DataC-45Maybe-fromMaybe (lambda () e-6) (CoreC-45Context-findSetTotal (let ((sc3 arg-12)) (let ((e-11 (vector-ref sc3 12))) e-11)))))) (let ((act-26 (TTImpC-45ProcessDef-n--26638-11489-u--withTotality arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 u--treq (lambda () (lambda (eta-1) (CoreC-45Core-traverseC-39 (lambda (eta-2) (lambda (eta-3) (TTImpC-45ProcessDef-checkClause arg-0 arg-9 arg-8 arg-7 u--mult (let ((sc3 arg-12)) (let ((e-9 (vector-ref sc3 10))) e-9)) u--treq u--hashit e-5 arg-6 arg-5 arg-4 eta-2 eta-3))) arg-1 '() eta-1))) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((u--pats (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (TTImpC-45ProcessDef-toPats eta-1)) (DataC-45Either-rights e-7)))) (let ((act-27 (CoreC-45CaseBuilder-getPMDef arg-9 arg-3 (vector 0 u--mult) arg-10 u--ty (DataC-45Either-rights e-7) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (let ((e-2 (car sc5))) (let ((e-3 (cdr sc5))) (let ((sc6 e-3)) (let ((e-10 (car sc6))) (let ((e-9 (cdr sc6))) (let ((act-28 (CoreC-45Core-traverse_ (lambda (eta-1) (lambda (eta-2) (TTImpC-45ProcessDef-warnUnreachable arg-9 eta-1 eta-2))) e-9 eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((act-29 (CoreC-45ContextC-45Log-logC arg-9 "declare.def" (+ 1 (+ 1 0)) (lambda (eta-1) (let ((act-29 (CoreC-45Context-toFullNames arg-9 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-2) (CoreC-45Context-u--full_HasNames_C-40CaseTreeC-32C-36varsC-41 arg-3810 arg-3811 eta-2)))) (lambda (arg-3812) (lambda (arg-3813) (lambda (eta-2) (CoreC-45Context-u--resolved_HasNames_C-40CaseTreeC-32C-36varsC-41 arg-3812 arg-3813 eta-2))))) e-10 eta-1))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc8 1))) (vector 1 (PreludeC-45TypesC-45String-C-43C-43 "Case tree for " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name arg-10) (PreludeC-45TypesC-45String-C-43C-43 ": " (CoreC-45CaseTree-u--show_Show_C-40CaseTreeC-32C-36varsC-41 e-2 e-12))))))))))) eta-0))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((act-30 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (let ((sc9 eta-1)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (vector 1 (vector 0 )))))) (lambda (eta-1) (CoreC-45Context-addDef arg-9 (vector 9 e-5) (let ((sc9 arg-12)) (let ((e-0 (vector-ref sc9 1))) (let ((e-1 (vector-ref sc9 2))) (let ((e-30 (vector-ref sc9 3))) (let ((e-29 (vector-ref sc9 4))) (let ((e-4 (vector-ref sc9 5))) (let ((e-28 (vector-ref sc9 6))) (let ((e-27 (vector-ref sc9 7))) (let ((e-26 (vector-ref sc9 8))) (let ((e-25 (vector-ref sc9 9))) (let ((e-24 (vector-ref sc9 10))) (let ((e-23 (vector-ref sc9 11))) (let ((e-22 (vector-ref sc9 12))) (let ((e-21 (vector-ref sc9 13))) (let ((e-13 (vector-ref sc9 14))) (let ((e-14 (vector-ref sc9 15))) (let ((e-15 (vector-ref sc9 16))) (let ((e-16 (vector-ref sc9 17))) (let ((e-18 (vector-ref sc9 19))) (let ((e-19 (vector-ref sc9 20))) (let ((e-20 (vector-ref sc9 21))) (vector 0 e-0 e-1 e-30 e-29 e-4 e-28 e-27 e-26 e-25 e-24 e-23 e-22 e-21 e-13 e-14 e-15 e-16 (vector 1 (CoreC-45Context-defaultPI) e-2 e-10 e-10 u--pats) e-18 e-19 e-20)))))))))))))))))))))) eta-1)) eta-0))) (let ((sc9 act-30)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((act-31 (let ((sc10 (CoreC-45TT-u--C-61C-61_Eq_Visibility (let ((sc11 arg-12)) (let ((e-25 (vector-ref sc11 10))) e-25)) (vector 2 )))) (cond ((equal? sc10 0) (((let ((u--rmetas (CoreC-45CaseTree-getMetas e-10))) (lambda () (lambda (eta-1) (let ((act-31 (CoreC-45ContextC-45Log-log arg-9 "declare.def" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Saving from " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name arg-10) (PreludeC-45TypesC-45String-C-43C-43 ": " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45Name-u--show_Show_Name u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Name-u--showPrec_Show_Name u--d u--x)))) (LibrariesC-45DataC-45NameMap-keys u--rmetas)))))) eta-1))) (let ((sc11 act-31)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (CoreC-45Core-traverse_ (lambda (eta-2) (lambda (eta-3) (CoreC-45Context-addToSave arg-9 eta-2 eta-3))) (LibrariesC-45DataC-45NameMap-keys u--rmetas) eta-1))))))))) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc10 act-31)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((act-32 (let ((sc11 (PreludeC-45Basics-C-38C-38 (CoreC-45Name-isUserName arg-10) (lambda () (CoreC-45TT-u--C-47C-61_Eq_Visibility (let ((sc12 arg-12)) (let ((e-26 (vector-ref sc12 10))) e-26)) (vector 0 )))))) (cond ((equal? sc11 0) (((let ((u--tymetas (CoreC-45TT-getMetas (let ((sc12 arg-12)) (let ((e-32 (vector-ref sc12 3))) e-32))))) (lambda () (lambda (eta-1) (CoreC-45Core-traverse_ (lambda (eta-2) (lambda (eta-3) (CoreC-45Context-addToSave arg-9 eta-2 eta-3))) (LibrariesC-45DataC-45NameMap-keys u--tymetas) eta-1))))) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc11 act-32)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((act-33 (CoreC-45Context-addToSave arg-9 arg-10 eta-0))) (let ((sc12 act-33)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (let ((act-34 (let ((act-34 (unbox arg-9))) (vector 1 act-34)))) (let ((sc13 act-34)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (vector 0 e-4))) (else (let ((e-17 (vector-ref sc13 1))) (let ((act-35 (let ((act-35 (set-box! arg-9 (let ((sc14 e-17)) (let ((e-0 (vector-ref sc14 1))) (let ((e-1 (vector-ref sc14 2))) (let ((e-42 (vector-ref sc14 3))) (let ((e-41 (vector-ref sc14 4))) (let ((e-4 (vector-ref sc14 5))) (let ((e-40 (vector-ref sc14 6))) (let ((e-39 (vector-ref sc14 7))) (let ((e-38 (vector-ref sc14 8))) (let ((e-37 (vector-ref sc14 9))) (let ((e-36 (vector-ref sc14 10))) (let ((e-35 (vector-ref sc14 11))) (let ((e-34 (vector-ref sc14 12))) (let ((e-33 (vector-ref sc14 13))) (let ((e-32 (vector-ref sc14 14))) (let ((e-31 (vector-ref sc14 15))) (let ((e-30 (vector-ref sc14 16))) (let ((e-29 (vector-ref sc14 17))) (let ((e-28 (vector-ref sc14 18))) (let ((e-18 (vector-ref sc14 19))) (let ((e-19 (vector-ref sc14 20))) (let ((e-20 (vector-ref sc14 21))) (let ((e-21 (vector-ref sc14 22))) (let ((e-22 (vector-ref sc14 23))) (let ((e-23 (vector-ref sc14 24))) (let ((e-24 (vector-ref sc14 25))) (let ((e-25 (vector-ref sc14 26))) (let ((e-26 (vector-ref sc14 27))) (let ((e-27 (vector-ref sc14 28))) (vector 0 e-0 e-1 e-42 e-41 e-4 e-40 e-39 e-38 e-37 e-36 e-35 e-34 e-33 e-32 e-31 e-30 e-29 e-28 e-18 e-19 e-20 e-21 (cons arg-10 e-22) e-23 e-24 e-25 e-26 e-27))))))))))))))))))))))))))))))))) (vector 1 act-35)))) (let ((sc14 act-35)) (case (vector-ref sc14 0) ((0) (let ((e-4 (vector-ref sc14 1))) (vector 0 e-4))) (else (let ((act-36 (CoreC-45Context-toResolvedNames arg-9 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-1) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-1)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) (vector 0 (CoreC-45NameC-45Namespace-builtinNS) (vector 1 "assert_total")) eta-0))) (let ((sc15 act-36)) (case (vector-ref sc15 0) ((0) (let ((e-4 (vector-ref sc15 1))) (vector 0 e-4))) (else (let ((e-19 (vector-ref sc15 1))) (let ((act-37 (let ((sc16 (PreludeC-45Types-elem (cons (lambda (arg-15) (lambda (arg-16) (TTImpC-45ElabC-45Check-u--C-61C-61_Eq_ElabOpt arg-15 arg-16))) (lambda (arg-15) (lambda (arg-16) (TTImpC-45ElabC-45Check-u--C-47C-61_Eq_ElabOpt arg-15 arg-16)))) (vector 1 ) arg-6))) (cond ((equal? sc16 0) (vector 1 (vector 0 ))) (else (let ((act-37 (TTImpC-45ProcessDef-calcRefs arg-9 1 e-19 (vector 9 e-5) eta-0))) (let ((sc17 act-37)) (case (vector-ref sc17 0) ((0) (let ((e-4 (vector-ref sc17 1))) (vector 0 e-4))) (else (let ((act-38 (CoreC-45Termination-calculateSizeChange arg-9 arg-3 arg-10 eta-0))) (let ((sc18 act-38)) (case (vector-ref sc18 0) ((0) (let ((e-4 (vector-ref sc18 1))) (vector 0 e-4))) (else (let ((e-21 (vector-ref sc18 1))) (let ((act-39 (CoreC-45Context-setSizeChange arg-9 arg-3 arg-10 e-21 eta-0))) (let ((sc19 act-39)) (case (vector-ref sc19 0) ((0) (let ((e-4 (vector-ref sc19 1))) (vector 0 e-4))) (else (CoreC-45Termination-checkIfGuarded arg-9 arg-3 arg-10 eta-0))))))))))))))))))) (let ((sc16 act-37)) (case (vector-ref sc16 0) ((0) (let ((e-4 (vector-ref sc16 1))) (vector 0 e-4))) (else (let ((act-38 (let ((act-38 (unbox arg-8))) (vector 1 act-38)))) (let ((sc17 act-38)) (case (vector-ref sc17 0) ((0) (let ((e-4 (vector-ref sc17 1))) (vector 0 e-4))) (else (let ((e-21 (vector-ref sc17 1))) (let ((act-39 (CoreC-45ContextC-45Log-logTime arg-9 (lambda () (PreludeC-45TypesC-45String-C-43C-43 "+++ Checking Coverage " (CoreC-45Name-u--show_Show_Name arg-10))) (lambda (eta-1) (TTImpC-45ProcessDef-n--26638-11494-u--checkCoverage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-5 u--ty u--mult e-7 eta-1)) eta-0))) (let ((sc18 act-39)) (case (vector-ref sc18 0) ((0) (let ((e-4 (vector-ref sc18 1))) (vector 0 e-4))) (else (let ((e-22 (vector-ref sc18 1))) (let ((act-40 (CoreC-45Context-setCovering arg-9 arg-3 arg-10 e-22 eta-0))) (let ((sc19 act-40)) (case (vector-ref sc19 0) ((0) (let ((e-4 (vector-ref sc19 1))) (vector 0 e-4))) (else (let ((act-41 (let ((act-41 (set-box! arg-8 e-21))) (vector 1 act-41)))) (let ((sc20 act-41)) (case (vector-ref sc20 0) ((0) (let ((e-4 (vector-ref sc20 1))) (vector 0 e-4))) (else (let ((sc21 (PreludeC-45Types-elem (cons (lambda (arg-15) (lambda (arg-16) (TTImpC-45ElabC-45Check-u--C-61C-61_Eq_ElabOpt arg-15 arg-16))) (lambda (arg-15) (lambda (arg-16) (TTImpC-45ElabC-45Check-u--C-47C-61_Eq_ElabOpt arg-15 arg-16)))) (vector 1 ) arg-6))) (cond ((equal? sc21 0) (vector 1 (vector 0 ))) (else (TTImpC-45ProcessDef-compileRunTime arg-9 arg-8 arg-7 arg-3 e-19 eta-0)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 38 arg-3 arg-10) eta-0))))))) -(define TTImpC-45ProcessDef-case--caseC-32blockC-32inC-32processDefC-44checkCoverage-12462 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 ext-0) (let ((sc0 arg-24)) (cond ((equal? sc0 0) (let ((act-24 (CoreC-45Coverage-getNonCoveringRefs arg-9 arg-3 (vector 9 arg-13) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (if (null? sc2) (vector 1 (vector 0 )) (CoreC-45Context-toFullNames arg-9 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Covering arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Covering arg-3812 arg-3813 eta-0))))) (vector 2 e-5) ext-0))))))))) (else (vector 1 (vector 1 arg-23))))))) -(define TTImpC-45ProcessDef-case--caseC-32blockC-32inC-32processDefC-44checkCoverage-12357 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 ext-0) (let ((sc0 arg-20)) (cond ((equal? sc0 0) (let ((act-24 (CoreC-45ContextC-45Log-log arg-9 "declare.def" (+ 1 (+ 1 (+ 1 0))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Catch all case in " (PreludeC-45Show-u--show_Show_Int arg-13))) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 '())))))) (else (CoreC-45Coverage-getMissing arg-17 arg-9 arg-3 (vector 9 arg-13) arg-18 ext-0)))))) -(define TTImpC-45ProcessDef-case--processDefC-44checkImpossible-11990 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 ext-0) (let ((sc0 arg-17)) (cond ((equal? sc0 0) (vector 1 (vector 0 ))) (else (vector 1 (vector 1 arg-10))))))) -(define TTImpC-45ProcessDef-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32mkRunTime-11146 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 ext-0) (let ((sc0 arg-22)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc2 eta-0)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))) (lambda (eta-0) (CoreC-45Context-addDef arg-4 arg-0 (let ((sc2 arg-6)) (let ((e-0 (vector-ref sc2 1))) (let ((e-21 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (let ((e-3 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-5 (vector-ref sc2 6))) (let ((e-6 (vector-ref sc2 7))) (let ((e-7 (vector-ref sc2 8))) (let ((e-8 (vector-ref sc2 9))) (let ((e-9 (vector-ref sc2 10))) (let ((e-10 (vector-ref sc2 11))) (let ((e-11 (vector-ref sc2 12))) (let ((e-12 (vector-ref sc2 13))) (let ((e-13 (vector-ref sc2 14))) (let ((e-14 (vector-ref sc2 15))) (let ((e-15 (vector-ref sc2 16))) (let ((e-16 (vector-ref sc2 17))) (let ((e-18 (vector-ref sc2 19))) (let ((e-19 (vector-ref sc2 20))) (let ((e-20 (vector-ref sc2 21))) (vector 0 e-0 e-21 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 (vector 1 arg-13 arg-9 arg-12 arg-20 arg-11) e-18 e-19 e-20)))))))))))))))))))))) eta-0)) ext-0)))) (else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 "WAT") ext-0)))))) -(define TTImpC-45ProcessDef-case--caseC-32blockC-32inC-32mkRunTime-10909 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((u--ty (let ((sc1 arg-6)) (let ((e-23 (vector-ref sc1 3))) e-23)))) (lambda () (lambda (eta-0) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-1) (TTImpC-45ProcessDef-n--25692-10656-u--toErased arg-0 arg-1 arg-2 arg-3 arg-4 (let ((sc1 arg-6)) (let ((e-25 (vector-ref sc1 1))) e-25)) (TTImpC-45ProcessDef-n--25692-10655-u--getSpec arg-0 arg-1 arg-2 arg-3 arg-4 (let ((sc1 arg-6)) (let ((e-11 (vector-ref sc1 12))) e-11))) eta-1)) e-4 '() eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((u--clauses_init (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (TTImpC-45ProcessDef-n--25692-10657-u--toClause arg-0 arg-1 arg-2 arg-3 arg-4 (let ((sc2 arg-6)) (let ((e-26 (vector-ref sc2 1))) e-26)) eta-1)) e-5))) (let ((u--clauses (let ((sc2 arg-8)) (case (vector-ref sc2 0) ((1) (TTImpC-45ProcessDef-n--25692-10654-u--addErrorCase arg-0 arg-1 arg-2 arg-3 arg-4 u--clauses_init))(else u--clauses_init))))) (let ((act-25 (CoreC-45CaseBuilder-getPMDef arg-4 (let ((sc2 arg-6)) (let ((e-26 (vector-ref sc2 1))) e-26)) (vector 1 ) arg-0 u--ty u--clauses eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (let ((e-8 (car sc3))) (let ((e-7 (cdr sc3))) (let ((sc4 e-7)) (let ((e-10 (car sc4))) (let ((e-9 (cdr sc4))) (let ((act-26 (let ((act-26 (CoreC-45Context-toFullNames arg-4 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-1) (CoreC-45Context-u--full_HasNames_C-40CaseTreeC-32C-36varsC-41 arg-3810 arg-3811 eta-1)))) (lambda (arg-3812) (lambda (arg-3813) (lambda (eta-1) (CoreC-45Context-u--resolved_HasNames_C-40CaseTreeC-32C-36varsC-41 arg-3812 arg-3813 eta-1))))) e-10 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-11 (vector-ref sc5 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc5 1))) (CoreC-45ContextC-45Log-logC arg-4 "compile.casetree" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-1) (vector 1 (LibrariesC-45DataC-45StringC-45Extra-unlines (cons (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_Covering arg-8) ":") (cons (PreludeC-45TypesC-45String-C-43C-43 "Runtime tree for " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name (let ((sc6 arg-6)) (let ((e-31 (vector-ref sc6 2))) e-31))) ":")) (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--show_Show_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-indent 2 (CoreC-45CaseTree-u--pretty_Pretty_C-40CaseTreeC-32C-36varsC-41 e-8 e-11))) '())))))) eta-0)))))))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-11 (vector-ref sc5 1))) (vector 0 e-11))) (else (let ((act-27 (CoreC-45ContextC-45Log-log arg-4 "compile.casetree" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (CoreC-45CaseTree-u--show_Show_C-40CaseTreeC-32C-36varsC-41 e-8 e-10)) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-12 (vector-ref sc6 1))) (vector 0 e-12))) (else (let ((_-0 (cons e-8 (cons e-10 e-9)))) (TTImpC-45ProcessDef-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32mkRunTime-11146 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-1 e-3 e-4 e-2 e-0 u--ty e-5 u--clauses_init u--clauses e-9 e-8 e-10 _-0 (TTImpC-45ProcessDef-nameListEq e-1 e-8) eta-0)))))))))))))))))))))))))))))))))))))(else (lambda () (lambda (eta-0) (vector 1 (vector 0 ))))))))) -(define TTImpC-45ProcessDef-case--caseC-32blockC-32inC-32calcRefs-10288 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((u--refs (let ((sc1 arg-2)) (cond ((equal? sc1 0) (let ((sc2 arg-5)) (let ((e-13 (vector-ref sc2 14))) e-13))) (else (let ((sc2 arg-5)) (let ((e-12 (vector-ref sc2 13))) e-12))))))) (let ((sc1 u--refs)) (case (vector-ref sc1 0) ((0) (let ((u--tree (let ((sc2 arg-2)) (cond ((equal? sc2 0) e-3) (else e-2))))) (let ((u--metas (CoreC-45CaseTree-getMetas u--tree))) (lambda (eta-0) (let ((act-24 (CoreC-45Core-traverse_ (lambda (eta-1) (lambda (eta-2) (CoreC-45Context-addToSave arg-3 eta-1 eta-2))) (LibrariesC-45DataC-45NameMap-keys u--metas) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((u--refs_all (CoreC-45CaseTree-addRefs arg-1 u--metas u--tree))) (let ((act-25 ((PreludeC-45Basics-ifThenElse arg-2 (lambda () (lambda (eta-1) (TTImpC-45ProcessDef-n--25086-10141-u--dropErased arg-0 arg-1 arg-2 arg-3 (LibrariesC-45DataC-45NameMap-keys u--refs_all) u--refs_all eta-1))) (lambda () (lambda (eta-1) (vector 1 u--refs_all)))) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (let ((sc4 eta-1)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (vector 1 (vector 0 )))))) (PreludeC-45Basics-ifThenElse arg-2 (lambda () (lambda (eta-1) (CoreC-45Context-addDef arg-3 arg-0 (let ((sc4 arg-5)) (let ((e-27 (vector-ref sc4 1))) (let ((e-26 (vector-ref sc4 2))) (let ((e-25 (vector-ref sc4 3))) (let ((e-24 (vector-ref sc4 4))) (let ((e-23 (vector-ref sc4 5))) (let ((e-22 (vector-ref sc4 6))) (let ((e-21 (vector-ref sc4 7))) (let ((e-7 (vector-ref sc4 8))) (let ((e-8 (vector-ref sc4 9))) (let ((e-9 (vector-ref sc4 10))) (let ((e-10 (vector-ref sc4 11))) (let ((e-11 (vector-ref sc4 12))) (let ((e-12 (vector-ref sc4 13))) (let ((e-14 (vector-ref sc4 15))) (let ((e-15 (vector-ref sc4 16))) (let ((e-16 (vector-ref sc4 17))) (let ((e-17 (vector-ref sc4 18))) (let ((e-18 (vector-ref sc4 19))) (let ((e-19 (vector-ref sc4 20))) (let ((e-20 (vector-ref sc4 21))) (vector 0 e-27 e-26 e-25 e-24 e-23 e-22 e-21 e-7 e-8 e-9 e-10 e-11 e-12 (vector 1 e-6) e-14 e-15 e-16 e-17 e-18 e-19 e-20)))))))))))))))))))))) eta-1))) (lambda () (lambda (eta-1) (CoreC-45Context-addDef arg-3 arg-0 (let ((sc4 arg-5)) (let ((e-27 (vector-ref sc4 1))) (let ((e-26 (vector-ref sc4 2))) (let ((e-25 (vector-ref sc4 3))) (let ((e-24 (vector-ref sc4 4))) (let ((e-23 (vector-ref sc4 5))) (let ((e-22 (vector-ref sc4 6))) (let ((e-21 (vector-ref sc4 7))) (let ((e-7 (vector-ref sc4 8))) (let ((e-8 (vector-ref sc4 9))) (let ((e-9 (vector-ref sc4 10))) (let ((e-10 (vector-ref sc4 11))) (let ((e-11 (vector-ref sc4 12))) (let ((e-13 (vector-ref sc4 14))) (let ((e-14 (vector-ref sc4 15))) (let ((e-15 (vector-ref sc4 16))) (let ((e-16 (vector-ref sc4 17))) (let ((e-17 (vector-ref sc4 18))) (let ((e-18 (vector-ref sc4 19))) (let ((e-19 (vector-ref sc4 20))) (let ((e-20 (vector-ref sc4 21))) (vector 0 e-27 e-26 e-25 e-24 e-23 e-22 e-21 e-7 e-8 e-9 e-10 e-11 (vector 1 e-6) e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20)))))))))))))))))))))) eta-1)))) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (CoreC-45Core-traverse_ (lambda (eta-1) (lambda (eta-2) (TTImpC-45ProcessDef-calcRefs arg-3 arg-2 arg-1 eta-1 eta-2))) (LibrariesC-45DataC-45NameMap-keys e-6) eta-0))))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define TTImpC-45ProcessDef-case--caseC-32blockC-32inC-32calcRefsC-44dropErased-10195 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (lambda (eta-0) (TTImpC-45ProcessDef-n--25086-10141-u--dropErased arg-0 arg-1 arg-2 arg-3 arg-5 arg-6 eta-0))) (else (lambda (eta-0) (TTImpC-45ProcessDef-n--25086-10141-u--dropErased arg-0 arg-1 arg-2 arg-3 arg-5 (LibrariesC-45DataC-45NameMap-delete arg-4 arg-6) eta-0))))))) -(define TTImpC-45ProcessDef-case--caseC-32blockC-32inC-32checkClause-9989 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26) (let ((sc0 arg-26)) (cond ((equal? sc0 0) (vector 0 )) (else (vector 2 )))))) -(define TTImpC-45ProcessDef-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkClause-9102 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 arg-38 arg-39 arg-40 arg-41 arg-42 arg-43 arg-44 arg-45 arg-46 arg-47 arg-48 arg-49 arg-50 arg-51 arg-52 arg-53 arg-54 arg-55) (let ((sc0 arg-55)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 (cons (vector 4 arg-12) e-11) e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20))))))))))))))))))))))))) -(define TTImpC-45ProcessDef-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkClause-8872 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 arg-38 arg-39 arg-40 arg-41 arg-42 arg-43 arg-44 arg-45 arg-46 arg-47 arg-48 arg-49 arg-50 arg-51 arg-52 arg-53 arg-54 arg-55) (let ((sc0 arg-55)) (cond ((equal? sc0 0) (AlgebraC-45Semiring-erased (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)))) (else (AlgebraC-45ZeroOneOmega-u--top_Top_ZeroOneOmega)))))) -(define TTImpC-45ProcessDef-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkClause-8511 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 arg-38 arg-39 arg-40 arg-41 arg-42 arg-43 arg-44 arg-45 arg-46 arg-47 arg-48 arg-49 arg-50) (let ((sc0 arg-50)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-5 (car sc1))) (let ((e-6 (cdr sc1))) (let ((sc2 e-6)) (let ((e-9 (car sc2))) (let ((e-10 (cdr sc2))) (let ((u--wargNames (PreludeC-45TypesC-45List-C-43C-43 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (vector 1 eta-0)) e-5) (cons (vector 0 ) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (vector 1 eta-0)) arg-45))))) (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-logTerm '() arg-17 "declare.def.clause.with" (+ 1 (+ 1 (+ 1 0))) (lambda () "With function type") e-10 eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45ContextC-45Log-log arg-17 "declare.def.clause.with" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Argument names " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (CoreC-45TT-u--show_Show_C-40PiInfoC-32C-36tC-41 (cons (lambda (x-2) (TTImpC-45TTImp-u--show_Show_RawImp x-2)) (lambda (u--d) (lambda (x-2) (TTImpC-45TTImp-u--showPrec_Show_RawImp u--d x-2)))) x-1)) (lambda (u--d) (lambda (x-1) (CoreC-45TT-u--showPrec_Show_C-40PiInfoC-32C-36tC-41 (cons (lambda (x-2) (TTImpC-45TTImp-u--show_Show_RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-0 x-2)))) u--d x-1)))) (cons (lambda (x-1) (CoreC-45Name-u--show_Show_Name x-1)) (lambda (u--d) (lambda (x-1) (CoreC-45Name-u--showPrec_Show_Name u--d x-1))))) x-0)) (lambda (u--d) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (CoreC-45TT-u--show_Show_C-40PiInfoC-32C-36tC-41 (cons (lambda (x-2) (TTImpC-45TTImp-u--show_Show_RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-0 x-2)))) x-1)) (lambda (d-0) (lambda (x-1) (CoreC-45TT-u--showPrec_Show_C-40PiInfoC-32C-36tC-41 (cons (lambda (x-2) (TTImpC-45TTImp-u--show_Show_RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-1 x-2)))) d-0 x-1)))) (cons (lambda (x-1) (CoreC-45Name-u--show_Show_Name x-1)) (lambda (d-0) (lambda (x-1) (CoreC-45Name-u--showPrec_Show_Name d-0 x-1))))) u--d x-0)))) u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (CoreC-45TT-u--show_Show_C-40PiInfoC-32C-36tC-41 (cons (lambda (x-2) (TTImpC-45TTImp-u--show_Show_RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-0 x-2)))) x-1)) (lambda (d-0) (lambda (x-1) (CoreC-45TT-u--showPrec_Show_C-40PiInfoC-32C-36tC-41 (cons (lambda (x-2) (TTImpC-45TTImp-u--show_Show_RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-1 x-2)))) d-0 x-1)))) (cons (lambda (x-1) (CoreC-45Name-u--show_Show_Name x-1)) (lambda (d-0) (lambda (x-1) (CoreC-45Name-u--showPrec_Show_Name d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (CoreC-45TT-u--show_Show_C-40PiInfoC-32C-36tC-41 (cons (lambda (x-2) (TTImpC-45TTImp-u--show_Show_RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-1 x-2)))) x-1)) (lambda (d-1) (lambda (x-1) (CoreC-45TT-u--showPrec_Show_C-40PiInfoC-32C-36tC-41 (cons (lambda (x-2) (TTImpC-45TTImp-u--show_Show_RawImp x-2)) (lambda (d-2) (lambda (x-2) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-2 x-2)))) d-1 x-1)))) (cons (lambda (x-1) (CoreC-45Name-u--show_Show_Name x-1)) (lambda (d-1) (lambda (x-1) (CoreC-45Name-u--showPrec_Show_Name d-1 x-1))))) d-0 x-0)))) u--d u--x)))) u--wargNames))) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-26 (let ((act-26 (CoreC-45Context-toFullNames arg-17 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-1) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-1)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) (vector 9 arg-10) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc5 1))) (let ((act-27 ((CoreC-45Context-prettyName arg-17 e-11) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc6 1))) (CoreC-45UnifyState-genWithName arg-17 arg-15 e-12 eta-0))))))))))))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc5 1))) (let ((act-27 (CoreC-45Context-addDef arg-17 e-11 (TTImpC-45ProcessDef-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkClause-9102 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 arg-38 arg-39 arg-40 arg-41 arg-42 arg-43 arg-44 arg-45 arg-46 arg-47 arg-48 arg-49 e-5 e-9 e-10 u--wargNames e-11 (CoreC-45Context-newDef arg-5 e-11 (TTImpC-45ProcessDef-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkClause-8872 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 arg-38 arg-39 arg-40 arg-41 arg-42 arg-43 arg-44 arg-45 arg-46 arg-47 arg-48 arg-49 e-5 e-9 e-10 u--wargNames e-11 (AlgebraC-45Semiring-isErased (cons (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-51) (lambda (arg-52) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-51 arg-52))) (lambda (arg-51) (lambda (arg-52) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-51 arg-52))))) arg-14)) arg-6 e-10 arg-13 (vector 0 ))) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((u--toWarg (PreludeC-45Basics-flip (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (PreludeC-45Types-maybe eta-1 eta-2 eta-3)))) (lambda () (lambda (u--pn) (cons (cons (vector 0 ) (vector 0 arg-5 (Builtin-snd u--pn))) '()))) (lambda () (cons (cons (vector 0 ) arg-3) (let ((sc7 arg-2)) (case (vector-ref sc7 0) ((0) '()) (else (let ((u--fc (CoreC-45FC-emptyFC))) (let ((u--refl (vector 0 u--fc (vector 0 (CoreC-45NameC-45Namespace-builtinNS) (vector 1 "Refl"))))) (cons (cons arg-2 (vector 10 u--fc u--refl (vector 1 "x") arg-3)) '()))))))))))) (let ((u--rhs_in (TTImpC-45TTImp-gapply (vector 0 arg-5 e-11) (PreludeC-45TypesC-45List-C-43C-43 (PreludeC-45Types-u--map_Functor_List (lambda (u--nm) (cons (vector 0 ) (vector 0 arg-5 u--nm))) e-9) (PreludeC-45Interfaces-concatMap (cons (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (cons (lambda (arg-51) (lambda (arg-52) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-51 arg-52))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) u--toWarg u--wargNames))))) (let ((act-28 (CoreC-45ContextC-45Log-log arg-17 "declare.def.clause" (+ 1 (+ 1 (+ 1 0))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Applying to with argument " (TTImpC-45TTImp-u--show_Show_RawImp u--rhs_in))) eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((act-29 (let ((act-29 (CoreC-45Context-getFullName arg-17 (vector 9 arg-10) eta-0))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref sc8 1))) ((TTImpC-45ElabC-45Utils-wrapErrorC arg-9 (lambda (eta-1) (vector 64 arg-5 e-14 eta-1)) (lambda (eta-1) (TTImpC-45Elab-checkTermSub arg-6 arg-19 arg-17 arg-16 arg-15 arg-10 arg-26 arg-9 arg-22 arg-21 arg-7 arg-20 u--rhs_in (CoreC-45Normalise-gnf arg-19 arg-21 arg-24) eta-1))) eta-0)))))))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref sc8 1))) (let ((act-30 (CoreC-45Core-traverseC-39 (lambda (eta-1) (lambda (eta-2) (TTImpC-45ProcessDef-n--19983-6750-u--mkClauseWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 (+ 1 0) e-11 u--wargNames arg-18 eta-1 eta-2))) arg-0 '() eta-0))) (let ((sc9 act-30)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-15 (vector-ref sc9 1))) (let ((act-31 (CoreC-45ContextC-45Log-log arg-17 "declare.def.clause.with" (+ 1 (+ 1 (+ 1 0))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "With clauses: " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (TTImpC-45TTImp-u--show_Show_ImpClause u--x)) (lambda (u--d) (lambda (u--x) (TTImpC-45TTImp-u--showPrec_Show_ImpClause u--d u--x)))) e-15))) eta-0))) (let ((sc10 act-31)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((act-32 (TTImpC-45ProcessDef-applyEnv arg-6 arg-17 arg-7 e-11 eta-0))) (let ((sc11 act-32)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-17 (vector-ref sc11 1))) (let ((u--nestC-39C-39 (cons e-17 arg-8))) (let ((u--wdef (vector 2 arg-5 e-11 e-15))) (let ((act-33 ((TTImpC-45ElabC-45Check-processDecl arg-6 arg-17 arg-16 arg-15 '() u--nestC-39C-39 arg-7 u--wdef) eta-0))) (let ((sc12 act-33)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (vector 1 (vector 1 (vector 0 arg-19 arg-21 arg-23 e-14))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 "Impossible happened: With abstraction failure #4") eta-0))))))) -(define TTImpC-45ProcessDef-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkClause-8310 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 arg-38 arg-39 arg-40 arg-41 arg-42 arg-43 arg-44 arg-45 arg-46 arg-47 ext-0) (let ((sc0 arg-47)) (cond ((equal? sc0 0) (CoreC-45Context-clearDefs arg-31 ext-0)) (else (vector 1 arg-31)))))) -(define TTImpC-45ProcessDef-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkClause-8055 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 arg-38 ext-0) (let ((sc0 arg-38)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((act-24 ((TTImpC-45ProcessDef-n--19983-6748-u--bindWithArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-37 (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (PreludeC-45Types-u--map_Functor_Maybe eta-2 eta-3))))) (lambda (__leftTupleSection-0) (cons __leftTupleSection-0 arg-36)) arg-2) e-1) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (car sc2))) (let ((e-3 (cdr sc2))) (let ((sc3 e-3)) (let ((e-6 (car sc3))) (let ((e-7 (cdr sc3))) (let ((sc4 e-7)) (let ((e-10 (car sc4))) (let ((e-11 (cdr sc4))) (let ((u--bnr (TTImpC-45ElabC-45Utils-bindNotReq arg-19 arg-5 0 arg-21 arg-35 '() arg-24))) (let ((u--notreqns (Builtin-fst u--bnr))) (let ((u--notreqty (Builtin-snd u--bnr))) (let ((act-25 (let ((_-0 (cons e-2 (cons e-6 (cons e-10 e-11))))) (TTImpC-45ProcessDef-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkClause-8310 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 e-1 e-2 e-6 e-10 e-11 _-0 u--bnr u--notreqns u--notreqty (PreludeC-45Types-elem (cons (lambda (arg-39) (lambda (arg-40) (TTImpC-45TTImp-u--C-61C-61_Eq_WithFlag arg-39 arg-40))) (lambda (arg-39) (lambda (arg-40) (TTImpC-45TTImp-u--C-47C-61_Eq_WithFlag arg-39 arg-40)))) (vector 0 ) arg-1) ext-0)))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-26 (let ((act-26 ((CoreC-45Normalise-nf arg-17 (PreludeC-45TypesC-45List-C-43C-43 e-2 arg-34) e-8 e-6 (CoreC-45TT-u--weakenNs_Weaken_Term (CoreC-45TTC-45SizeOf-mkSizeOf e-2) arg-36)) ext-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((CoreC-45Normalise-nf arg-17 (PreludeC-45TypesC-45List-C-43C-43 e-2 arg-34) e-8 e-6 (CoreC-45TT-u--weakenNs_Weaken_Term (CoreC-45TTC-45SizeOf-mkSizeOf e-2) u--notreqty)) ext-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc7 1))) (CoreC-45Normalise-replace arg-17 (PreludeC-45TypesC-45List-C-43C-43 e-2 arg-34) e-8 e-6 e-9 e-10 e-12 ext-0))))))))))))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc6 1))) (let ((u--bNotReq (e-11 e-9))) (let ((_-0 (cons e-2 (cons e-6 (cons e-10 e-11))))) ((TTImpC-45ProcessDef-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkClause-8511 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 e-1 e-2 e-6 e-10 e-11 _-0 u--bnr u--notreqns u--notreqty e-8 e-9 u--bNotReq (TTImpC-45ElabC-45Utils-bindReq arg-19 arg-5 arg-21 arg-35 '() u--bNotReq)) ext-0)))))))))))))))))))))))))))))))) (else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 "Impossible happened: With abstraction failure #3") ext-0)))))) -(define TTImpC-45ProcessDef-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkClause-7972 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37) (let ((sc0 arg-37)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (TTImpC-45ProcessDef-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkClause-8055 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 e-1 (CoreC-45Env-shrinkEnv arg-21 arg-35) eta-0)))) (else (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 "Impossible happened: With abstraction failure #2") eta-0))))))) -(define TTImpC-45ProcessDef-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkClause-7891 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36) (let ((sc0 arg-36)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (TTImpC-45ProcessDef-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkClause-7972 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 e-1 (CoreC-45TT-shrinkTerm arg-33 arg-35)))) (else (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 "Impossible happened: With abstraction failure #1") eta-0))))))) -(define TTImpC-45ProcessDef-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkClause-7786 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 ext-0) (let ((sc0 arg-34)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((act-24 (CoreC-45ContextC-45Log-logTerm arg-19 arg-17 "declare.def.clause.with" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "With value type") arg-33 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((act-25 (CoreC-45ContextC-45Log-log arg-17 "declare.def.clause.with" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Using vars " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45Name-u--show_Show_Name u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Name-u--showPrec_Show_Name u--d u--x)))) e-2))) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((TTImpC-45ProcessDef-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkClause-7891 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 e-2 e-3 (CoreC-45TT-shrinkTerm arg-32 e-3)) ext-0)))))))))))))) -(define TTImpC-45ProcessDef-case--checkClauseC-44keepOldEnv-7411 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-22 arg-23 arg-24 arg-27) (let ((sc0 arg-27)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (cons (cons arg-18 e-2) (vector 2 e-3))))))) -(define TTImpC-45ProcessDef-case--checkClauseC-44keepOldEnv-7321 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-19 arg-20 arg-22 arg-23 arg-24 arg-26) (let ((sc0 arg-26)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (cons (cons arg-19 e-2) (vector 2 e-3))))))) -(define TTImpC-45ProcessDef-case--checkClauseC-44keepOldEnv-7231 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-19 arg-20 arg-22 arg-23 arg-24 arg-26) (let ((sc0 arg-26)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (cons (cons arg-19 e-2) (vector 2 e-3))))))) -(define TTImpC-45ProcessDef-case--checkClauseC-44keepOldEnv-7143 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25) (let ((sc0 arg-25)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (cons e-2 (vector 1 e-3))))))) -(define TTImpC-45ProcessDef-case--caseC-32blockC-32inC-32checkClause-6652 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (let ((sc0 arg-23)) (cond ((equal? sc0 0) (vector 0 )) (else (vector 2 )))))) -(define TTImpC-45ProcessDef-case--combineLinear-5153 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((sc0 arg-4)) (if (null? sc0) (let ((act-24 ((TTImpC-45ProcessDef-combineLinear arg-3 arg-2) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (cons (cons arg-0 arg-1) e-5))))))) (let ((act-24 (TTImpC-45ProcessDef-n--18974-5000-u--combineAll arg-0 arg-1 arg-2 arg-3 arg-1 arg-4 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((TTImpC-45ProcessDef-combineLinear arg-3 (DataC-45List-filter (lambda (eta-0) (TTImpC-45ProcessDef-n--18974-4997-u--notN arg-0 arg-1 arg-2 arg-3 eta-0)) arg-2)) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (cons (cons arg-0 e-5) e-6)))))))))))))))) -(define TTImpC-45ProcessDef-case--combineLinearC-44combine-5098 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 13 arg-3 (+ 1 (+ 1 0)) arg-0) ext-0)) (else (vector 1 (AlgebraC-45Preorder-lub (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-60C-61_Preorder_ZeroOneOmega arg-355 arg-356))) (lambda (u--x) (AlgebraC-45ZeroOneOmega-u--preorderRefl_Preorder_ZeroOneOmega u--x)) (lambda (u--x) (lambda (u--y) (lambda (u--z) (lambda (arg-358) (lambda (arg-360) (AlgebraC-45ZeroOneOmega-u--preorderTrans_Preorder_ZeroOneOmega u--x u--y u--z arg-358 arg-360))))))) arg-5 arg-4))))))) -(define TTImpC-45ProcessDef-case--combineLinearC-44lookupAll-5031 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (cond ((equal? sc0 0) (cons arg-5 (TTImpC-45ProcessDef-n--18974-4998-u--lookupAll arg-0 arg-1 arg-2 arg-3 arg-7 arg-6))) (else (TTImpC-45ProcessDef-n--18974-4998-u--lookupAll arg-0 arg-1 arg-2 arg-3 arg-7 arg-6)))))) -(define TTImpC-45ProcessDef-case--setLinear-4934 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (vector 3 arg-7 arg-4 (CoreC-45TT-setMultiplicity arg-6 e-1) (TTImpC-45ProcessDef-setLinear arg-8 arg-5))))(else (vector 3 arg-7 arg-4 arg-6 (TTImpC-45ProcessDef-setLinear arg-8 arg-5))))))) -(define TTImpC-45ProcessDef-case--setLinear-4864 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (vector 3 arg-8 arg-5 (CoreC-45TT-setMultiplicity arg-7 e-1) (TTImpC-45ProcessDef-setLinear arg-9 arg-6))))(else (vector 3 arg-8 arg-5 arg-7 (TTImpC-45ProcessDef-setLinear arg-9 arg-6))))))) -(define TTImpC-45ProcessDef-case--findLinear-4699 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (if (null? sc0) (lambda (eta-0) (vector 1 '())) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (lambda (clam-0) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 2))) (let ((e-7 (vector-ref sc1 3))) (let ((sc2 e-3)) (if (null? sc2) (vector 1 '()) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-25 (CoreC-45Context-lookupTyExact e-7 (let ((sc4 e-8)) (let ((e-0 (vector-ref sc4 1))) e-0)) clam-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc4 1))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((act-26 ((CoreC-45Normalise-nf arg-5 '() e-8 '() e-1) clam-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc6 1))) ((TTImpC-45ProcessDef-n--18263-4370-u--findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-0 (TTImpC-45ProcessDef-n--18263-4369-u--accessible arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-6 arg-2) e-10 e-3) clam-0)))))))) (else (vector 1 '())))))))))))))))))))(else (vector 1 '()))))))))))) -(define TTImpC-45ProcessDef-case--findLinearC-44findLinArg-4477 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 ext-0) (let ((sc0 arg-23)) (cond ((equal? sc0 0) (let ((act-24 (((arg-13 arg-21) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 1 arg-18 (vector 0 ) arg-14))) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((TTImpC-45ProcessDef-n--18263-4370-u--findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-20 e-5 arg-19) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (cons (cons arg-22 (AlgebraC-45ZeroOneOmega-rigMult arg-12 arg-20)) e-6))))))))))))) (else (let ((act-24 (((arg-13 arg-21) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 1 arg-18 (vector 0 ) arg-14))) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((TTImpC-45ProcessDef-n--18263-4370-u--findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-20 e-5 arg-19) ext-0))))))))))) -(define TTImpC-45ProcessDef-case--recoverable-3798 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 ext-0) (let ((sc0 arg-13)) (cond ((equal? sc0 0) (vector 1 1)) (else (let ((act-24 (CoreC-45Core-anyM (lambda (eta-0) (lambda (eta-1) (TTImpC-45ProcessDef-mismatch arg-12 arg-0 arg-11 eta-0 eta-1))) (DataC-45List-u--zipWith_Zippable_List (lambda (eta-0) (lambda (eta-1) (PreludeC-45Basics-curry (lambda (eta-2) (PreludeC-45Interfaces-mapHom (vector 0 (lambda (u--d) (lambda (u--b) (lambda (u--c) (lambda (u--a) (lambda (arg-353) (lambda (arg-355) (lambda (arg-357) (let ((sc1 arg-357)) (let ((e-2 (car sc1))) (let ((e-3 (cdr sc1))) (cons (arg-353 e-2) (arg-355 e-3)))))))))))) (lambda (u--b) (lambda (u--c) (lambda (u--a) (lambda (arg-362) (lambda (arg-364) (let ((sc1 arg-364)) (let ((e-2 (car sc1))) (let ((e-3 (cdr sc1))) (cons (arg-362 e-2) e-3))))))))) (lambda (u--a) (lambda (u--d) (lambda (u--b) (lambda (arg-365) (lambda (arg-367) (let ((sc1 arg-367)) (let ((e-2 (car sc1))) (let ((e-3 (cdr sc1))) (cons e-2 (arg-365 e-3))))))))))) (lambda (eta-3) (Builtin-snd eta-3)) eta-2)) eta-0 eta-1))) arg-7 arg-9) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (let ((sc2 e-5)) (cond ((equal? sc2 0) 1) (else 0)))))))))))))) -(define TTImpC-45ProcessDef-case--recoverable-3566 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 ext-0) (let ((sc0 arg-13)) (cond ((equal? sc0 0) (vector 1 1)) (else (let ((act-24 (CoreC-45Core-anyM (lambda (eta-0) (lambda (eta-1) (TTImpC-45ProcessDef-mismatch arg-12 arg-0 arg-11 eta-0 eta-1))) (DataC-45List-u--zipWith_Zippable_List (lambda (eta-0) (lambda (eta-1) (PreludeC-45Basics-curry (lambda (eta-2) (PreludeC-45Interfaces-mapHom (vector 0 (lambda (u--d) (lambda (u--b) (lambda (u--c) (lambda (u--a) (lambda (arg-353) (lambda (arg-355) (lambda (arg-357) (let ((sc1 arg-357)) (let ((e-2 (car sc1))) (let ((e-3 (cdr sc1))) (cons (arg-353 e-2) (arg-355 e-3)))))))))))) (lambda (u--b) (lambda (u--c) (lambda (u--a) (lambda (arg-362) (lambda (arg-364) (let ((sc1 arg-364)) (let ((e-2 (car sc1))) (let ((e-3 (cdr sc1))) (cons (arg-362 e-2) e-3))))))))) (lambda (u--a) (lambda (u--d) (lambda (u--b) (lambda (arg-365) (lambda (arg-367) (let ((sc1 arg-367)) (let ((e-2 (car sc1))) (let ((e-3 (cdr sc1))) (cons e-2 (arg-365 e-3))))))))))) (lambda (eta-3) (Builtin-snd eta-3)) eta-2)) eta-0 eta-1))) arg-3 arg-7) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (let ((sc2 e-5)) (cond ((equal? sc2 0) 1) (else 0)))))))))))))) -(define TTImpC-45ProcessDef-case--impossibleOK-3188 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 ext-0) (let ((sc0 arg-13)) (cond ((equal? sc0 0) (vector 1 0)) (else (CoreC-45Core-anyM (lambda (eta-0) (lambda (eta-1) (TTImpC-45ProcessDef-mismatch arg-12 arg-0 arg-11 eta-0 eta-1))) (DataC-45List-u--zipWith_Zippable_List (lambda (eta-0) (lambda (eta-1) (PreludeC-45Basics-curry (lambda (eta-2) (PreludeC-45Interfaces-mapHom (vector 0 (lambda (u--d) (lambda (u--b) (lambda (u--c) (lambda (u--a) (lambda (arg-353) (lambda (arg-355) (lambda (arg-357) (let ((sc1 arg-357)) (let ((e-2 (car sc1))) (let ((e-3 (cdr sc1))) (cons (arg-353 e-2) (arg-355 e-3)))))))))))) (lambda (u--b) (lambda (u--c) (lambda (u--a) (lambda (arg-362) (lambda (arg-364) (let ((sc1 arg-364)) (let ((e-2 (car sc1))) (let ((e-3 (cdr sc1))) (cons (arg-362 e-2) e-3))))))))) (lambda (u--a) (lambda (u--d) (lambda (u--b) (lambda (arg-365) (lambda (arg-367) (let ((sc1 arg-367)) (let ((e-2 (car sc1))) (let ((e-3 (cdr sc1))) (cons e-2 (arg-365 e-3))))))))))) (lambda (eta-3) (Builtin-snd eta-3)) eta-2)) eta-0 eta-1))) arg-7 arg-9) ext-0)))))) -(define TTImpC-45ProcessDef-case--impossibleOK-3082 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 ext-0) (let ((sc0 arg-13)) (cond ((equal? sc0 0) (CoreC-45Core-anyM (lambda (eta-0) (lambda (eta-1) (TTImpC-45ProcessDef-mismatch arg-12 arg-0 arg-11 eta-0 eta-1))) (DataC-45List-u--zipWith_Zippable_List (lambda (eta-0) (lambda (eta-1) (PreludeC-45Basics-curry (lambda (eta-2) (PreludeC-45Interfaces-mapHom (vector 0 (lambda (u--d) (lambda (u--b) (lambda (u--c) (lambda (u--a) (lambda (arg-353) (lambda (arg-355) (lambda (arg-357) (let ((sc1 arg-357)) (let ((e-2 (car sc1))) (let ((e-3 (cdr sc1))) (cons (arg-353 e-2) (arg-355 e-3)))))))))))) (lambda (u--b) (lambda (u--c) (lambda (u--a) (lambda (arg-362) (lambda (arg-364) (let ((sc1 arg-364)) (let ((e-2 (car sc1))) (let ((e-3 (cdr sc1))) (cons (arg-362 e-2) e-3))))))))) (lambda (u--a) (lambda (u--d) (lambda (u--b) (lambda (arg-365) (lambda (arg-367) (let ((sc1 arg-367)) (let ((e-2 (car sc1))) (let ((e-3 (cdr sc1))) (cons e-2 (arg-365 e-3))))))))))) (lambda (eta-3) (Builtin-snd eta-3)) eta-2)) eta-0 eta-1))) arg-3 arg-7) ext-0)) (else (vector 1 1)))))) -(define TTImpC-45ProcessDef-case--mismatchNF-2880 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 ext-0) (let ((sc0 arg-13)) (cond ((equal? sc0 0) (vector 1 0)) (else (CoreC-45Core-anyM (lambda (eta-0) (lambda (eta-1) (TTImpC-45ProcessDef-mismatch arg-12 arg-0 arg-11 eta-0 eta-1))) (DataC-45List-u--zipWith_Zippable_List (lambda (eta-0) (lambda (eta-1) (PreludeC-45Basics-curry (lambda (eta-2) (PreludeC-45Interfaces-mapHom (vector 0 (lambda (u--d) (lambda (u--b) (lambda (u--c) (lambda (u--a) (lambda (arg-353) (lambda (arg-355) (lambda (arg-357) (let ((sc1 arg-357)) (let ((e-2 (car sc1))) (let ((e-3 (cdr sc1))) (cons (arg-353 e-2) (arg-355 e-3)))))))))))) (lambda (u--b) (lambda (u--c) (lambda (u--a) (lambda (arg-362) (lambda (arg-364) (let ((sc1 arg-364)) (let ((e-2 (car sc1))) (let ((e-3 (cdr sc1))) (cons (arg-362 e-2) e-3))))))))) (lambda (u--a) (lambda (u--d) (lambda (u--b) (lambda (arg-365) (lambda (arg-367) (let ((sc1 arg-367)) (let ((e-2 (car sc1))) (let ((e-3 (cdr sc1))) (cons e-2 (arg-365 e-3))))))))))) (lambda (eta-3) (Builtin-snd eta-3)) eta-2)) eta-0 eta-1))) arg-7 arg-9) ext-0)))))) -(define TTImpC-45ProcessDef-case--mismatchNF-2774 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 ext-0) (let ((sc0 arg-13)) (cond ((equal? sc0 0) (vector 1 0)) (else (CoreC-45Core-anyM (lambda (eta-0) (lambda (eta-1) (TTImpC-45ProcessDef-mismatch arg-12 arg-0 arg-11 eta-0 eta-1))) (DataC-45List-u--zipWith_Zippable_List (lambda (eta-0) (lambda (eta-1) (PreludeC-45Basics-curry (lambda (eta-2) (PreludeC-45Interfaces-mapHom (vector 0 (lambda (u--d) (lambda (u--b) (lambda (u--c) (lambda (u--a) (lambda (arg-353) (lambda (arg-355) (lambda (arg-357) (let ((sc1 arg-357)) (let ((e-2 (car sc1))) (let ((e-3 (cdr sc1))) (cons (arg-353 e-2) (arg-355 e-3)))))))))))) (lambda (u--b) (lambda (u--c) (lambda (u--a) (lambda (arg-362) (lambda (arg-364) (let ((sc1 arg-364)) (let ((e-2 (car sc1))) (let ((e-3 (cdr sc1))) (cons (arg-362 e-2) e-3))))))))) (lambda (u--a) (lambda (u--d) (lambda (u--b) (lambda (arg-365) (lambda (arg-367) (let ((sc1 arg-367)) (let ((e-2 (car sc1))) (let ((e-3 (cdr sc1))) (cons e-2 (arg-365 e-3))))))))))) (lambda (eta-3) (Builtin-snd eta-3)) eta-2)) eta-0 eta-1))) arg-5 arg-8) ext-0)))))) -(define TTImpC-45ProcessDef-n--26638-11489-u--withTotality (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-11 arg-12 ext-0) (let ((act-24 (CoreC-45Context-getDefaultTotalityOption arg-9 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (CoreC-45Context-setDefaultTotalityOption arg-9 arg-11 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45Core-u--catch_Catchable_Core_Error (arg-12) (lambda (u--error) (lambda (eta-0) (let ((act-26 (CoreC-45Context-setDefaultTotalityOption arg-9 e-5 eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (CoreC-45Core-u--throw_Catchable_Core_Error u--error eta-0))))))) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (CoreC-45Context-setDefaultTotalityOption arg-9 e-5 ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (vector 1 e-7))))))))))))))))))))) -(define TTImpC-45ProcessDef-n--21096-6912-u--wargs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34) (cons arg-18 (cons (TTImpC-45ProcessDef-n--21096-6911-u--wargn arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34) '())))) -(define TTImpC-45ProcessDef-n--21006-6761-u--wargs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-19 arg-20) (cons (TTImpC-45ProcessDef-n--21006-6760-u--wargn arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-19 arg-20) '()))) -(define TTImpC-45ProcessDef-n--21096-6911-u--wargn (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34) (vector 2 "warg" 0))) -(define TTImpC-45ProcessDef-n--21006-6760-u--wargn (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-19 arg-20) (vector 2 "warg" 0))) -(define TTImpC-45ProcessDef-n--25692-10656-u--toErased (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (lambda (clam-0) (let ((sc1 e-3)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (let ((sc2 e-7)) (let ((e-10 (car sc2))) (let ((e-11 (cdr sc2))) (let ((act-24 (CoreC-45LinearCheck-linearCheck e-2 arg-4 arg-2 arg-5 (AlgebraC-45Semiring-linear (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))) 0 e-6 e-10 clam-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((CoreC-45Transform-applyTransforms arg-4 e-6 e-11) clam-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-26 ((TTImpC-45PartialEval-applySpecialise e-2 arg-4 arg-3 arg-2 e-6 arg-6 e-8) clam-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-27 (CoreC-45LinearCheck-linearCheck e-2 arg-4 arg-2 arg-5 (AlgebraC-45Semiring-linear (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))) 0 e-6 e-9 clam-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc6 1))) (vector 1 (cons e-2 (cons e-6 (cons e-5 e-12)))))))))))))))))))))))))))))))))))) -(define TTImpC-45ProcessDef-n--25692-10657-u--toClause (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-3)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (let ((sc2 e-7)) (let ((e-10 (car sc2))) (let ((e-11 (cdr sc2))) (vector 0 e-2 e-6 e-10 e-11)))))))))))) -(define TTImpC-45ProcessDef-n--26638-11490-u--simplePat (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((0) 0) ((10) 0) ((5) (let ((e-13 (vector-ref sc0 4))) (TTImpC-45ProcessDef-n--26638-11490-u--simplePat arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-13)))(else 1))))) -(define TTImpC-45ProcessDef-n--18974-4997-u--notN (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (car sc0))) (CoreC-45Name-u--C-47C-61_Eq_Name arg-0 e-2))))) -(define TTImpC-45ProcessDef-n--25692-10651-u--mkCrash (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (CoreC-45TT-apply arg-1 (vector 1 arg-1 (vector 1 ) (vector 0 (CoreC-45NameC-45Namespace-builtinNS) (vector 1 "idris_crash"))) (cons (vector 10 arg-1 1) (cons (vector 9 arg-1 (vector 10 arg-6)) '()))))) -(define TTImpC-45ProcessDef-n--19983-6750-u--mkClauseWith (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 ext-0) (let ((sc0 arg-22)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((act-24 (CoreC-45ContextC-45Log-log arg-17 "declare.def.clause.with" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))))))))))))) (lambda () "PatClause") ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((act-25 (TTImpC-45WithClause-getNewLHS arg-17 e-0 arg-18 arg-8 arg-19 arg-20 arg-21 e-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((TTImpC-45WithClause-withRHS arg-17 e-0 arg-18 arg-19 arg-20 e-2 arg-21) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 0 e-0 e-6 e-7)))))))))))))))))))) ((1) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((e-6 (vector-ref sc0 4))) (let ((e-7 (vector-ref sc0 5))) (let ((e-8 (vector-ref sc0 6))) (let ((act-24 (CoreC-45ContextC-45Log-log arg-17 "declare.def.clause.with" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))))))))))))) (lambda () "WithClause") ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (TTImpC-45WithClause-getNewLHS arg-17 e-3 arg-18 arg-8 arg-19 arg-20 arg-21 e-4 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc2 1))) (let ((act-26 ((TTImpC-45WithClause-withRHS arg-17 e-3 arg-18 arg-19 arg-20 e-5 arg-21) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc3 1))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (TTImpC-45ProcessDef-n--19983-6750-u--mkClauseWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 (+ 1 arg-18) arg-19 arg-20 arg-21 eta-0 eta-1))) e-8 '() ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc4 1))) (vector 1 (vector 1 e-3 e-10 e-11 e-6 e-7 e-12)))))))))))))))))))))))))))) (else (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (let ((act-24 (CoreC-45ContextC-45Log-log arg-17 "declare.def.clause.with" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))))))))))))) (lambda () "ImpossibleClause") ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (TTImpC-45WithClause-getNewLHS arg-17 e-9 arg-18 arg-8 arg-19 arg-20 arg-21 e-10 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 2 e-9 e-6)))))))))))))))))) -(define TTImpC-45ProcessDef-n--25692-10652-u--matchAny (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((4) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (vector 4 e-1 (TTImpC-45ProcessDef-n--25692-10652-u--matchAny arg-0 arg-1 arg-2 arg-3 arg-4 e-2) (vector 10 e-1 1)))))(else arg-6))))) -(define TTImpC-45ProcessDef-n--25692-10653-u--makeErrorClause (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (vector 0 arg-5 arg-6 (TTImpC-45ProcessDef-n--25692-10652-u--matchAny arg-0 arg-1 arg-2 arg-3 arg-4 arg-7) (TTImpC-45ProcessDef-n--25692-10651-u--mkCrash arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (PreludeC-45TypesC-45String-C-43C-43 "Unhandled input for " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name arg-0) (PreludeC-45TypesC-45String-C-43C-43 " at " (CoreC-45FC-u--show_Show_FC arg-1)))))))) -(define TTImpC-45ProcessDef-n--18974-4998-u--lookupAll (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (if (null? sc0) '() (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (TTImpC-45ProcessDef-case--combineLinearC-44lookupAll-5031 arg-0 arg-1 arg-2 arg-3 e-6 e-7 e-3 arg-4 (CoreC-45Name-u--C-61C-61_Eq_Name arg-4 e-6))))))))))) -(define TTImpC-45ProcessDef-n--19983-6749-u--keepOldEnv (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-20 arg-21 arg-22) (let ((sc0 arg-21)) (case (vector-ref sc0 0) ((0) (cons arg-20 (vector 0 )))(else (let ((sc0 arg-22)) (case (vector-ref sc0 0) ((0) (cons arg-20 (vector 0 )))(else (let ((sc0 arg-20)) (let ((e-1 (car sc0))) (let ((e-2 (cdr sc0))) (let ((sc1 arg-21)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 1))) (let ((sc2 arg-22)) (case (vector-ref sc2 0) ((1) (let ((e-14 (vector-ref sc2 1))) (let ((u--vs (cons e-1 e-2))) (TTImpC-45ProcessDef-case--checkClauseC-44keepOldEnv-7143 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 e-1 e-2 e-6 e-14 u--vs (TTImpC-45ProcessDef-n--19983-6749-u--keepOldEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 e-2 e-6 e-14))))) (else (let ((e-18 (vector-ref sc2 1))) (let ((u--vs (cons e-1 e-2))) (TTImpC-45ProcessDef-case--checkClauseC-44keepOldEnv-7231 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 e-1 e-2 e-6 e-18 u--vs (TTImpC-45ProcessDef-n--19983-6749-u--keepOldEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 e-2 e-6 e-18))))))))) (else (let ((e-10 (vector-ref sc1 1))) (let ((sc2 arg-22)) (case (vector-ref sc2 0) ((1) (let ((e-22 (vector-ref sc2 1))) (let ((u--vs (cons e-1 e-2))) (TTImpC-45ProcessDef-case--checkClauseC-44keepOldEnv-7321 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 e-1 e-2 e-10 e-22 u--vs (TTImpC-45ProcessDef-n--19983-6749-u--keepOldEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 e-2 e-10 e-22))))) (else (let ((e-26 (vector-ref sc2 1))) (let ((u--vs (cons e-1 e-2))) (TTImpC-45ProcessDef-case--checkClauseC-44keepOldEnv-7411 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 e-1 e-2 e-10 e-26 u--vs (TTImpC-45ProcessDef-n--19983-6749-u--keepOldEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 e-2 e-10 e-26)))))))))))))))))))))) -(define TTImpC-45ProcessDef-n--25692-10655-u--getSpec (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (if (null? sc0) (vector 0 ) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((7) (let ((e-4 (vector-ref sc1 1))) (vector 1 e-4)))(else (TTImpC-45ProcessDef-n--25692-10655-u--getSpec arg-0 arg-1 arg-2 arg-3 arg-4 e-3)))))))))) -(define TTImpC-45ProcessDef-n--26638-11493-u--getClause (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 ext-0) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (CoreC-45Core-u--catch_Catchable_Core_Error (lambda (eta-0) (let ((act-24 (TTImpC-45Impossible-getImpossibleTerm arg-0 arg-9 arg-4 arg-5 e-2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45ContextC-45Log-log arg-9 "declare.def.impossible" (+ 1 (+ 1 (+ 1 0))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Generated impossible LHS: " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-5))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (vector 1 (vector 1 (vector 0 '() '() e-5 (vector 10 (TTImpC-45TTImp-getFC e-2) 0)))))))))))))) (lambda (u--e) (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-log arg-9 "declare.def" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Error in getClause " (CoreC-45Core-u--show_Show_Error u--e))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (vector 1 (vector 0 )))))))) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (vector 1 e-5)))))))) -(define TTImpC-45ProcessDef-n--18263-4370-u--findLinArg (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (if (null? sc0) (let ((sc1 arg-8)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((e-7 (vector-ref sc1 3))) (let ((e-8 (vector-ref sc1 4))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((2) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((e-12 (vector-ref sc2 3))) (let ((e-13 (vector-ref sc2 4))) (lambda (clam-2) (let ((sc3 arg-9)) (if (null? sc3) (let ((sc4 arg-9)) (if (null? sc4) (vector 1 '()) (let ((e-1 (car sc4))) (let ((e-2 (cdr sc4))) (let ((act-24 ((TTImpC-45ProcessDef-findLinear arg-6 arg-5 1 arg-3 arg-7 e-1) clam-2))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-25 ((TTImpC-45ProcessDef-n--18263-4370-u--findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2) clam-2))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (let ((e-14 (vector-ref sc6 1))) (vector 1 (PreludeC-45TypesC-45List-C-43C-43 e-9 e-14)))))))))))))))) (let ((e-15 (car sc3))) (let ((e-16 (cdr sc3))) (let ((sc4 e-15)) (case (vector-ref sc4 0) ((0) (let ((e-19 (vector-ref sc4 1))) (let ((e-20 (vector-ref sc4 2))) (let ((e-21 (vector-ref sc4 3))) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((u--a (CoreC-45TT-nameAt arg-6 e-21))) (TTImpC-45ProcessDef-case--findLinearC-44findLinArg-4477 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-20 e-5 e-10 e-12 e-13 e-11 e-8 e-6 e-21 e-19 e-16 arg-7 e-9 u--a (PreludeC-45Types-u--C-60_Ord_Nat e-21 arg-3) clam-2)))))))))))(else (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-25 ((TTImpC-45ProcessDef-findLinear arg-6 arg-5 1 arg-3 (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega e-11 arg-7) e-15) clam-2))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref sc5 1))) (let ((act-26 (((e-8 e-9) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 1 e-5 (vector 0 ) e-6))) clam-2))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-17 (vector-ref sc6 1))) (let ((act-27 ((TTImpC-45ProcessDef-n--18263-4370-u--findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-17 e-16) clam-2))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-18 (vector-ref sc7 1))) (vector 1 (PreludeC-45TypesC-45List-C-43C-43 e-14 e-18)))))))))))))))))))))))))))))))))))(else (lambda (clam-10) (let ((sc2 arg-9)) (if (null? sc2) (vector 1 '()) (let ((e-1 (car sc2))) (let ((e-2 (cdr sc2))) (let ((act-24 ((TTImpC-45ProcessDef-findLinear arg-6 arg-5 1 arg-3 arg-7 e-1) clam-10))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc3 1))) (let ((act-25 ((TTImpC-45ProcessDef-n--18263-4370-u--findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2) clam-10))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-10 (vector-ref sc4 1))) (vector 1 (PreludeC-45TypesC-45List-C-43C-43 e-9 e-10)))))))))))))))))))))))))(else (lambda (clam-11) (let ((sc1 arg-9)) (if (null? sc1) (vector 1 '()) (let ((e-1 (car sc1))) (let ((e-2 (cdr sc1))) (let ((act-24 ((TTImpC-45ProcessDef-findLinear arg-6 arg-5 1 arg-3 arg-7 e-1) clam-11))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((TTImpC-45ProcessDef-n--18263-4370-u--findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2) clam-11))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 (PreludeC-45TypesC-45List-C-43C-43 e-5 e-6)))))))))))))))))))) (let ((e-24 (car sc0))) (let ((e-25 (cdr sc0))) (let ((sc1 e-24)) (case (vector-ref sc1 0) ((5) (let ((e-28 (vector-ref sc1 2))) (let ((e-29 (vector-ref sc1 3))) (let ((e-30 (vector-ref sc1 4))) (let ((sc2 e-28)) (case (vector-ref sc2 0) ((0) (TTImpC-45ProcessDef-n--18263-4370-u--findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (cons e-30 e-25))) ((1) (TTImpC-45ProcessDef-n--18263-4370-u--findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (cons e-29 e-25)))(else (let ((sc2 arg-8)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (let ((e-7 (vector-ref sc2 3))) (let ((e-8 (vector-ref sc2 4))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((2) (let ((e-10 (vector-ref sc3 1))) (let ((e-11 (vector-ref sc3 2))) (let ((e-12 (vector-ref sc3 3))) (let ((e-13 (vector-ref sc3 4))) (lambda (clam-0) (let ((sc4 arg-9)) (if (null? sc4) (let ((sc5 arg-9)) (if (null? sc5) (vector 1 '()) (let ((e-1 (car sc5))) (let ((e-2 (cdr sc5))) (let ((act-24 ((TTImpC-45ProcessDef-findLinear arg-6 arg-5 1 arg-3 arg-7 e-1) clam-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-25 ((TTImpC-45ProcessDef-n--18263-4370-u--findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2) clam-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (vector 0 e-3))) (else (let ((e-14 (vector-ref sc7 1))) (vector 1 (PreludeC-45TypesC-45List-C-43C-43 e-9 e-14)))))))))))))))) (let ((e-15 (car sc4))) (let ((e-16 (cdr sc4))) (let ((sc5 e-15)) (case (vector-ref sc5 0) ((0) (let ((e-19 (vector-ref sc5 1))) (let ((e-20 (vector-ref sc5 2))) (let ((e-21 (vector-ref sc5 3))) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc6 1))) (let ((u--a (CoreC-45TT-nameAt arg-6 e-21))) (TTImpC-45ProcessDef-case--findLinearC-44findLinArg-4477 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-20 e-5 e-10 e-12 e-13 e-11 e-8 e-6 e-21 e-19 e-16 arg-7 e-9 u--a (PreludeC-45Types-u--C-60_Ord_Nat e-21 arg-3) clam-0)))))))))))(else (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-25 ((TTImpC-45ProcessDef-findLinear arg-6 arg-5 1 arg-3 (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega e-11 arg-7) e-15) clam-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref sc6 1))) (let ((act-26 (((e-8 e-9) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 1 e-5 (vector 0 ) e-6))) clam-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-17 (vector-ref sc7 1))) (let ((act-27 ((TTImpC-45ProcessDef-n--18263-4370-u--findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-17 e-16) clam-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-18 (vector-ref sc8 1))) (vector 1 (PreludeC-45TypesC-45List-C-43C-43 e-14 e-18)))))))))))))))))))))))))))))))))))(else (lambda (clam-2) (let ((sc3 arg-9)) (if (null? sc3) (vector 1 '()) (let ((e-1 (car sc3))) (let ((e-2 (cdr sc3))) (let ((act-24 ((TTImpC-45ProcessDef-findLinear arg-6 arg-5 1 arg-3 arg-7 e-1) clam-2))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-25 ((TTImpC-45ProcessDef-n--18263-4370-u--findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2) clam-2))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((e-10 (vector-ref sc5 1))) (vector 1 (PreludeC-45TypesC-45List-C-43C-43 e-9 e-10)))))))))))))))))))))))))(else (lambda (clam-3) (let ((sc2 arg-9)) (if (null? sc2) (vector 1 '()) (let ((e-1 (car sc2))) (let ((e-2 (cdr sc2))) (let ((act-24 ((TTImpC-45ProcessDef-findLinear arg-6 arg-5 1 arg-3 arg-7 e-1) clam-3))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((TTImpC-45ProcessDef-n--18263-4370-u--findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2) clam-3))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc4 1))) (vector 1 (PreludeC-45TypesC-45List-C-43C-43 e-5 e-6)))))))))))))))))))))))))))(else (let ((sc1 arg-8)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((e-7 (vector-ref sc1 3))) (let ((e-8 (vector-ref sc1 4))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((2) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((e-12 (vector-ref sc2 3))) (let ((e-13 (vector-ref sc2 4))) (lambda (clam-1) (let ((sc3 arg-9)) (if (null? sc3) (let ((sc4 arg-9)) (if (null? sc4) (vector 1 '()) (let ((e-1 (car sc4))) (let ((e-2 (cdr sc4))) (let ((act-24 ((TTImpC-45ProcessDef-findLinear arg-6 arg-5 1 arg-3 arg-7 e-1) clam-1))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-25 ((TTImpC-45ProcessDef-n--18263-4370-u--findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2) clam-1))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (let ((e-14 (vector-ref sc6 1))) (vector 1 (PreludeC-45TypesC-45List-C-43C-43 e-9 e-14)))))))))))))))) (let ((e-15 (car sc3))) (let ((e-16 (cdr sc3))) (let ((sc4 e-15)) (case (vector-ref sc4 0) ((0) (let ((e-19 (vector-ref sc4 1))) (let ((e-20 (vector-ref sc4 2))) (let ((e-21 (vector-ref sc4 3))) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((u--a (CoreC-45TT-nameAt arg-6 e-21))) (TTImpC-45ProcessDef-case--findLinearC-44findLinArg-4477 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-20 e-5 e-10 e-12 e-13 e-11 e-8 e-6 e-21 e-19 e-16 arg-7 e-9 u--a (PreludeC-45Types-u--C-60_Ord_Nat e-21 arg-3) clam-1)))))))))))(else (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-25 ((TTImpC-45ProcessDef-findLinear arg-6 arg-5 1 arg-3 (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega e-11 arg-7) e-15) clam-1))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref sc5 1))) (let ((act-26 (((e-8 e-9) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 1 e-5 (vector 0 ) e-6))) clam-1))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-17 (vector-ref sc6 1))) (let ((act-27 ((TTImpC-45ProcessDef-n--18263-4370-u--findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-17 e-16) clam-1))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-18 (vector-ref sc7 1))) (vector 1 (PreludeC-45TypesC-45List-C-43C-43 e-14 e-18)))))))))))))))))))))))))))))))))))(else (lambda (clam-6) (let ((sc2 arg-9)) (if (null? sc2) (vector 1 '()) (let ((e-1 (car sc2))) (let ((e-2 (cdr sc2))) (let ((act-24 ((TTImpC-45ProcessDef-findLinear arg-6 arg-5 1 arg-3 arg-7 e-1) clam-6))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc3 1))) (let ((act-25 ((TTImpC-45ProcessDef-n--18263-4370-u--findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2) clam-6))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-10 (vector-ref sc4 1))) (vector 1 (PreludeC-45TypesC-45List-C-43C-43 e-9 e-10)))))))))))))))))))))))))(else (lambda (clam-7) (let ((sc1 arg-9)) (if (null? sc1) (vector 1 '()) (let ((e-1 (car sc1))) (let ((e-2 (cdr sc1))) (let ((act-24 ((TTImpC-45ProcessDef-findLinear arg-6 arg-5 1 arg-3 arg-7 e-1) clam-7))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((TTImpC-45ProcessDef-n--18263-4370-u--findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2) clam-7))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 (PreludeC-45TypesC-45List-C-43C-43 e-5 e-6))))))))))))))))))))))))))))) -(define TTImpC-45ProcessDef-n--25086-10141-u--dropErased (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((sc0 arg-4)) (if (null? sc0) (vector 1 arg-5) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((act-24 (let ((act-24 (unbox arg-3))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact e-2 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((_-0 (vector 1 e-1))) ((TTImpC-45ProcessDef-case--caseC-32blockC-32inC-32calcRefsC-44dropErased-10195 arg-0 arg-1 arg-2 arg-3 e-2 e-3 arg-5 e-5 e-1 _-0 (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega (let ((sc4 e-1)) (let ((e-7 (vector-ref sc4 8))) e-7)) (AlgebraC-45Semiring-erased (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))))) ext-0)))) (else (TTImpC-45ProcessDef-n--25086-10141-u--dropErased arg-0 arg-1 arg-2 arg-3 e-3 arg-5 ext-0)))))))))))))))))))) -(define TTImpC-45ProcessDef-n--18974-5000-u--combineAll (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((sc0 arg-5)) (if (null? sc0) (vector 1 arg-4) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((act-24 (TTImpC-45ProcessDef-n--18974-4999-u--combine arg-0 arg-1 arg-2 arg-3 arg-4 e-2 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (TTImpC-45ProcessDef-n--18974-5000-u--combineAll arg-0 arg-1 arg-2 arg-3 e-5 e-3 ext-0)))))))))))) -(define TTImpC-45ProcessDef-n--18974-4999-u--combine (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (TTImpC-45ProcessDef-case--combineLinearC-44combine-5098 arg-0 arg-1 arg-2 arg-3 arg-5 arg-4 (PreludeC-45Basics-C-38C-38 (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-4 arg-5) (AlgebraC-45ZeroOneOmega-u--top_Top_ZeroOneOmega)) (lambda () (PreludeC-45Basics-C-38C-38 (let ((sc0 (AlgebraC-45Semiring-isErased (cons (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-6) (lambda (arg-7) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-6 arg-7))) (lambda (arg-6) (lambda (arg-7) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-6 arg-7))))) (AlgebraC-45Preorder-glb (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-60C-61_Preorder_ZeroOneOmega arg-355 arg-356))) (lambda (u--x) (AlgebraC-45ZeroOneOmega-u--preorderRefl_Preorder_ZeroOneOmega u--x)) (lambda (u--x) (lambda (u--y) (lambda (u--z) (lambda (arg-358) (lambda (arg-360) (AlgebraC-45ZeroOneOmega-u--preorderTrans_Preorder_ZeroOneOmega u--x u--y u--z arg-358 arg-360))))))) arg-4 arg-5)))) (cond ((equal? sc0 0) 1) (else 0))) (lambda () (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega (AlgebraC-45Preorder-glb (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-60C-61_Preorder_ZeroOneOmega arg-355 arg-356))) (lambda (u--x) (AlgebraC-45ZeroOneOmega-u--preorderRefl_Preorder_ZeroOneOmega u--x)) (lambda (u--x) (lambda (u--y) (lambda (u--z) (lambda (arg-358) (lambda (arg-360) (AlgebraC-45ZeroOneOmega-u--preorderTrans_Preorder_ZeroOneOmega u--x u--y u--z arg-358 arg-360))))))) arg-4 arg-5) (AlgebraC-45ZeroOneOmega-u--top_Top_ZeroOneOmega)))))) ext-0))) -(define TTImpC-45ProcessDef-n--26658-11584-u--closeEnv (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 ext-0) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((3) (let ((act-24 (((e-4 arg-13) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 1 arg-3 (vector 0 ) e-2))) ext-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (TTImpC-45ProcessDef-n--26658-11584-u--closeEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-5 ext-0)))))))(else (CoreC-45Normalise-u--quote_Quote_NF arg-9 '() arg-13 '() arg-14 ext-0))))))))(else (CoreC-45Normalise-u--quote_Quote_NF arg-9 '() arg-13 '() arg-14 ext-0)))))) -(define TTImpC-45ProcessDef-n--26638-11492-u--checkImpossible (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 ext-0) (let ((act-24 (TTImpC-45Unelab-unelabNoPatvars '() arg-9 '() arg-12 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (CoreC-45UnifyState-handleUnify arg-9 arg-7 (lambda (eta-0) (let ((act-25 (let ((act-25 (unbox arg-9))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (CoreC-45ContextC-45Log-log arg-9 "declare.def.impossible" (+ 1 (+ 1 (+ 1 0))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Checking for impossibility: " (TTImpC-45TTImp-u--show_Show_RawImp e-5))) eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-27 (CoreC-45Context-isUnboundImplicits arg-9 eta-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (CoreC-45Context-setUnboundImplicits arg-9 0 eta-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-29 (TTImpC-45BindImplicits-bindNames arg-9 1 e-5 eta-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc5 1))) (let ((sc6 e-10)) (let ((e-3 (cdr sc6))) (let ((act-30 (CoreC-45Context-setUnboundImplicits arg-9 e-8 eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((act-31 ((TTImpC-45Elab-elabTerm '() arg-9 arg-8 arg-7 arg-10 (vector 1 arg-11) '() '() '() (vector 16 arg-3 (vector 1 ) e-3) (vector 0 )) eta-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc8 1))) (let ((sc9 e-12)) (let ((e-13 (car sc9))) (let ((act-32 (let ((act-32 (unbox arg-9))) (vector 1 act-32)))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc10 1))) (let ((act-33 (CoreC-45Normalise-normaliseHoles arg-9 '() e-14 '() e-13 eta-0))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-15 (vector-ref sc11 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc11 1))) (let ((act-34 (TTImpC-45ProcessDef-hasEmptyPat '() arg-9 e-14 '() e-15 eta-0))) (let ((sc12 act-34)) (case (vector-ref sc12 0) ((0) (let ((e-16 (vector-ref sc12 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc12 1))) (let ((sc13 e-16)) (cond ((equal? sc13 0) (let ((act-35 (CoreC-45ContextC-45Log-log arg-9 "declare.def.impossible" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "No empty pat") eta-0))) (let ((sc14 act-35)) (case (vector-ref sc14 0) ((0) (let ((e-17 (vector-ref sc14 1))) (vector 0 e-17))) (else (let ((act-36 (let ((act-36 (set-box! arg-9 e-6))) (vector 1 act-36)))) (let ((sc15 act-36)) (case (vector-ref sc15 0) ((0) (let ((e-18 (vector-ref sc15 1))) (vector 0 e-18))) (else (vector 1 (vector 0 ))))))))))) (else (let ((act-35 (CoreC-45ContextC-45Log-log arg-9 "declare.def.impossible" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Some empty pat") eta-0))) (let ((sc14 act-35)) (case (vector-ref sc14 0) ((0) (let ((e-17 (vector-ref sc14 1))) (vector 0 e-17))) (else (let ((act-36 (CoreC-45Context-clearDefs e-6 eta-0))) (let ((sc15 act-36)) (case (vector-ref sc15 0) ((0) (let ((e-18 (vector-ref sc15 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc15 1))) (let ((act-37 (let ((act-37 ((CoreC-45Normalise-nf arg-9 '() e-18 '() e-15) eta-0))) (let ((sc16 act-37)) (case (vector-ref sc16 0) ((0) (let ((e-19 (vector-ref sc16 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref sc16 1))) (TTImpC-45ProcessDef-n--26658-11584-u--closeEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-12 arg-11 arg-10 e-18 e-19 eta-0)))))))) (let ((sc16 act-37)) (case (vector-ref sc16 0) ((0) (let ((e-19 (vector-ref sc16 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref sc16 1))) (let ((act-38 (let ((act-38 (set-box! arg-9 e-6))) (vector 1 act-38)))) (let ((sc17 act-38)) (case (vector-ref sc17 0) ((0) (let ((e-20 (vector-ref sc17 1))) (vector 0 e-20))) (else (vector 1 (vector 1 e-19))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (lambda (u--err) (lambda (eta-0) (let ((act-25 (let ((act-25 (unbox arg-9))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((TTImpC-45ProcessDef-recoverableErr arg-9 e-6 u--err) eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (TTImpC-45ProcessDef-case--processDefC-44checkImpossible-11990 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-12 arg-11 arg-10 e-5 u--err e-6 e-7 (let ((sc3 e-7)) (cond ((equal? sc3 0) 1) (else 0))) eta-0))))))))))))) ext-0)))))))) -(define TTImpC-45ProcessDef-n--26638-11494-u--checkCoverage (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 ext-0) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (TTImpC-45ProcessDef-n--26638-11493-u--getClause arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 eta-0 eta-1))) arg-13 '() ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (CoreC-45Context-toFullNames arg-9 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-2) (CoreC-45Context-u--full_HasNames_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-3812) (lambda (arg-3813) (lambda (eta-3) (CoreC-45Context-u--full_HasNames_Clause arg-3812 arg-3813 eta-3)))) (lambda (arg-3812) (lambda (arg-3813) (lambda (eta-3) (CoreC-45Context-u--resolved_HasNames_Clause arg-3812 arg-3813 eta-3))))) arg-3810 arg-3811 eta-2)))) (lambda (arg-3812) (lambda (arg-3813) (lambda (eta-2) (CoreC-45Context-u--resolved_HasNames_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-3) (CoreC-45Context-u--full_HasNames_Clause arg-3810 arg-3811 eta-3)))) (lambda (arg-3814) (lambda (arg-3815) (lambda (eta-3) (CoreC-45Context-u--resolved_HasNames_Clause arg-3814 arg-3815 eta-3))))) arg-3812 arg-3813 eta-2))))) eta-0 eta-1))) e-5 '() ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (CoreC-45ContextC-45Log-log arg-9 "declare.def" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Using clauses :" (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (x-0) (CoreC-45Context-u--show_Show_Clause x-0)) (lambda (u--d) (lambda (x-0) (CoreC-45Context-u--showPrec_Show_Clause u--d x-0)))) u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (x-0) (CoreC-45Context-u--show_Show_Clause x-0)) (lambda (d-0) (lambda (x-0) (CoreC-45Context-u--showPrec_Show_Clause d-0 x-0)))) u--d u--x)))) e-6))) ext-0)))))))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((u--covcs (DataC-45List-mapMaybe (lambda (eta-0) eta-0) e-5))) (let ((act-26 (CoreC-45CaseBuilder-getPMDef arg-9 arg-3 (vector 0 arg-12) (vector 9 arg-10) arg-11 u--covcs ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (let ((e-2 (car sc3))) (let ((e-3 (cdr sc3))) (let ((sc4 e-3)) (let ((e-9 (car sc4))) (let ((e-8 (cdr sc4))) (let ((act-27 (let ((act-27 (CoreC-45Context-toFullNames arg-9 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40CaseTreeC-32C-36varsC-41 arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40CaseTreeC-32C-36varsC-41 arg-3812 arg-3813 eta-0))))) e-9 ext-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc5 1))) (CoreC-45ContextC-45Log-log arg-9 "declare.def" (+ 1 (+ 1 (+ 1 0))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Working from " (CoreC-45CaseTree-u--show_Show_C-40CaseTreeC-32C-36varsC-41 e-2 e-10))) ext-0)))))))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((act-28 (let ((_-0 (cons e-2 (cons e-9 e-8)))) (TTImpC-45ProcessDef-case--caseC-32blockC-32inC-32processDefC-44checkCoverage-12357 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-13 arg-12 arg-11 arg-10 e-5 u--covcs e-8 e-2 e-9 _-0 (PreludeC-45Interfaces-any (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (lambda (eta-0) (TTImpC-45ProcessDef-n--26638-11491-u--catchAll arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 eta-0)) u--covcs) ext-0)))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-29 (CoreC-45ContextC-45Log-logC arg-9 "declare.def" (+ 1 (+ 1 (+ 1 0))) (lambda (eta-0) (let ((act-29 (CoreC-45Core-traverseC-39 (lambda (eta-1) (lambda (eta-2) (CoreC-45Context-toFullNames arg-9 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-3) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-3)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) eta-1 eta-2))) e-11 '() eta-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc7 1))) (let ((act-30 (CoreC-45Context-getFullName arg-9 (vector 9 arg-10) eta-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-13 (vector-ref sc8 1))) (vector 1 (PreludeC-45TypesC-45String-C-43C-43 "Initially missing in " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-13) (PreludeC-45TypesC-45String-C-43C-43 ":\u000a" (CoreC-45NameC-45Namespace-showSep "\u000a" (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() eta-1)) e-12))))))))))))))))) ext-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((act-30 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (TTImpC-45ProcessDef-n--26638-11492-u--checkImpossible arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-12 eta-0 eta-1))) e-11 '() ext-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-31 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (CoreC-45Coverage-checkMatched arg-9 u--covcs eta-0 eta-1))) (DataC-45List-mapMaybe (lambda (eta-0) eta-0) e-13) '() ext-0))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-14 (vector-ref sc9 1))) (let ((u--miss (DataC-45List-mapMaybe (lambda (eta-0) eta-0) e-14))) (let ((_-0 (cons e-2 (cons e-9 e-8)))) (TTImpC-45ProcessDef-case--caseC-32blockC-32inC-32processDefC-44checkCoverage-12462 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-13 arg-12 arg-11 arg-10 e-5 u--covcs e-8 e-2 e-9 _-0 e-11 e-13 e-14 u--miss (DataC-45List-isNil u--miss) ext-0))))))))))))))))))))))))))))))))))))))))))))))))) -(define TTImpC-45ProcessDef-n--26638-11491-u--catchAll (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (let ((e-2 (vector-ref sc0 3))) (PreludeC-45Interfaces-all (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (lambda (eta-0) (TTImpC-45ProcessDef-n--26638-11490-u--simplePat arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 eta-0)) (CoreC-45TT-getArgs e-2)))))) -(define TTImpC-45ProcessDef-n--19983-6748-u--bindWithArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-19 arg-20 arg-21) (let ((sc0 arg-20)) (case (vector-ref sc0 0) ((0) (let ((u--scenv (cons (vector 2 arg-5 (AlgebraC-45ZeroOneOmega-u--top_Top_ZeroOneOmega) (vector 1 ) arg-19) arg-21))) (let ((u--var (vector 0 arg-5 (vector 1 1) 0))) (let ((u--binder (lambda (eta-0) (vector 3 arg-5 (TTImpC-45ProcessDef-n--21006-6760-u--wargn arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-21 arg-19) (vector 2 arg-5 (AlgebraC-45ZeroOneOmega-u--top_Top_ZeroOneOmega) (vector 1 ) arg-19) eta-0)))) (lambda (eta-0) (vector 1 (cons (TTImpC-45ProcessDef-n--21006-6761-u--wargs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-21 arg-19) (cons u--scenv (cons u--var u--binder))))))))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (clam-0) (let ((sc1 e-2)) (let ((e-5 (car sc1))) (let ((e-6 (cdr sc1))) (let ((act-24 (let ((act-24 (unbox arg-17))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc2 1))) (let ((u--eqName (vector 0 (CoreC-45NameC-45Namespace-builtinNS) (vector 1 "Equal")))) (let ((act-25 (CoreC-45Context-lookupDefExact u--eqName (let ((sc3 e-7)) (let ((e-0 (vector-ref sc3 1))) e-0)) clam-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((sc5 e-1)) (case (vector-ref sc5 0) ((6) (let ((e-14 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((e-4 (vector-ref sc5 3))) (let ((e-13 (vector-ref sc5 4))) (let ((e-12 (vector-ref sc5 5))) (let ((e-11 (vector-ref sc5 6))) (let ((e-10 (vector-ref sc5 7))) (let ((e-9 (vector-ref sc5 8))) (let ((u--eqTyCon (vector 1 arg-5 (vector 3 e-14 e-3) u--eqName))) (let ((u--wvalTyC-39 (CoreC-45TT-u--weaken_Weaken_Term arg-19))) (let ((u--eqTy (CoreC-45TT-apply arg-5 u--eqTyCon (cons u--wvalTyC-39 (cons u--wvalTyC-39 (cons (CoreC-45TT-u--weaken_Weaken_Term e-6) (cons (vector 0 arg-5 (vector 1 1) 0) '()))))))) (let ((u--scenv (cons (vector 2 arg-5 (AlgebraC-45ZeroOneOmega-u--top_Top_ZeroOneOmega) (vector 0 ) u--eqTy) (cons (vector 2 arg-5 (AlgebraC-45ZeroOneOmega-u--top_Top_ZeroOneOmega) (vector 1 ) arg-19) arg-21)))) (let ((u--var (vector 0 arg-5 (vector 1 1) (+ 1 0)))) (let ((u--binder (lambda (u--t) (vector 3 arg-5 (TTImpC-45ProcessDef-n--21096-6911-u--wargn arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 e-5 e-6 arg-21 arg-19 e-7 u--eqName e-4 e-13 e-12 e-11 e-10 e-9 e-3 e-14 e-8 u--eqTyCon) (vector 2 arg-5 (AlgebraC-45ZeroOneOmega-u--top_Top_ZeroOneOmega) (vector 1 ) arg-19) (vector 3 arg-5 e-5 (vector 2 arg-5 (AlgebraC-45ZeroOneOmega-u--top_Top_ZeroOneOmega) (vector 0 ) u--eqTy) u--t))))) (vector 1 (cons (TTImpC-45ProcessDef-n--21096-6912-u--wargs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 e-5 e-6 arg-21 arg-19 e-7 u--eqName e-4 e-13 e-12 e-11 e-10 e-9 e-3 e-14 e-8 u--eqTyCon) (cons u--scenv (cons u--var u--binder)))))))))))))))))))(else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 "Cannot find builtin Equal") clam-0))))))(else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 "Cannot find builtin Equal") clam-0))))))))))))))))))))))))) -(define TTImpC-45ProcessDef-n--25692-10654-u--addErrorCase (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (if (null? sc0) '() (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((e-6 (vector-ref sc1 3))) (let ((e-7 (vector-ref sc1 4))) (let ((sc2 e-3)) (if (null? sc2) (cons (vector 0 e-4 e-5 e-6 e-7) (cons (TTImpC-45ProcessDef-n--25692-10653-u--makeErrorClause arg-0 arg-1 arg-2 arg-3 arg-4 e-4 e-5 e-6) '())) (cons e-2 (TTImpC-45ProcessDef-n--25692-10654-u--addErrorCase arg-0 arg-1 arg-2 arg-3 arg-4 e-3)))))))))(else (cons e-2 (TTImpC-45ProcessDef-n--25692-10654-u--addErrorCase arg-0 arg-1 arg-2 arg-3 arg-4 e-3))))))))))) -(define TTImpC-45ProcessDef-n--18263-4369-u--accessible (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (let ((sc1 arg-4)) (cond ((equal? sc1 0) arg-7) (else (AlgebraC-45Semiring-erased (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)))))))(else arg-7))))) -(define TTImpC-45ProcessDef-warnUnreachable (lambda (arg-0 arg-1 ext-0) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (CoreC-45Context-recordWarning arg-0 (vector 0 e-0 (CoreC-45TT-getLoc e-2) e-1 e-2) ext-0))))))) -(define TTImpC-45ProcessDef-toPats (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (cons e-0 (cons e-1 (cons e-2 e-3)))))))))) -(define TTImpC-45ProcessDef-setLinear (lambda (arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((3) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (let ((e-9 (vector-ref sc1 4))) (let ((u--b (vector 3 e-6 e-7 e-8 e-9))) (TTImpC-45ProcessDef-case--setLinear-4864 e-6 e-7 e-8 e-9 e-2 e-4 u--b e-1 arg-1 (DataC-45List-lookup (cons (lambda (arg-3) (lambda (arg-4) (CoreC-45Name-u--C-61C-61_Eq_Name arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (CoreC-45Name-u--C-47C-61_Eq_Name arg-4 arg-5)))) e-2 arg-1)))))))) ((5) (let ((e-11 (vector-ref sc1 1))) (let ((e-12 (vector-ref sc1 2))) (let ((e-13 (vector-ref sc1 3))) (let ((u--b (vector 5 e-11 e-12 e-13))) (TTImpC-45ProcessDef-case--setLinear-4934 e-11 e-12 e-13 e-2 e-4 u--b e-1 arg-1 (DataC-45List-lookup (cons (lambda (arg-3) (lambda (arg-4) (CoreC-45Name-u--C-61C-61_Eq_Name arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (CoreC-45Name-u--C-47C-61_Eq_Name arg-4 arg-5)))) e-2 arg-1)))))))(else arg-2))))))))(else arg-2))))) -(define TTImpC-45ProcessDef-recoverableErr (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((CoreC-45Normalise-nf arg-0 e-0 arg-1 e-2 e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((CoreC-45Normalise-nf arg-0 e-0 arg-1 e-2 e-4) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (CoreC-45ContextC-45Log-log arg-0 "coverage.recover" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (LibrariesC-45DataC-45StringC-45Extra-unlines (cons "Recovering from CantConvert?" (cons "Checking:" (cons (PreludeC-45TypesC-45String-C-43C-43 " " (CoreC-45Value-u--show_Show_C-40NFC-32C-36freeC-41 e-0 e-5)) (cons (PreludeC-45TypesC-45String-C-43C-43 " " (CoreC-45Value-u--show_Show_C-40NFC-32C-36freeC-41 e-0 e-6)) '())))))) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else ((TTImpC-45ProcessDef-recoverable arg-0 e-0 arg-1 e-5 e-6) eta-0))))))))))))))))))))) ((2) (let ((e-5 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (let ((e-9 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((CoreC-45Normalise-nf arg-0 e-5 arg-1 e-7 e-8) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc1 1))) (let ((act-25 ((CoreC-45Normalise-nf arg-0 e-5 arg-1 e-7 e-9) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc2 1))) ((TTImpC-45ProcessDef-recoverable arg-0 e-5 arg-1 e-10 e-11) eta-0))))))))))))))))) ((44) (let ((e-13 (vector-ref sc0 4))) (lambda (clam-0) (let ((sc1 e-13)) (case (vector-ref sc1 0) ((3) (vector 1 0))(else (vector 1 1))))))) ((4) (lambda (eta-0) (vector 1 0))) ((21) (let ((e-21 (vector-ref sc0 1))) (lambda (eta-0) (CoreC-45Core-anyM (lambda (eta-1) (TTImpC-45ProcessDef-recoverableErr arg-0 arg-1 eta-1)) (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) e-21) eta-0)))) ((5) (let ((e-27 (vector-ref sc0 6))) (TTImpC-45ProcessDef-recoverableErr arg-0 arg-1 e-27)))(else (lambda (eta-0) (vector 1 1))))))) -(define TTImpC-45ProcessDef-recoverable (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((3) (let ((e-57 (vector-ref sc0 1))) (let ((e-58 (vector-ref sc0 2))) (let ((e-59 (vector-ref sc0 3))) (let ((e-60 (vector-ref sc0 4))) (let ((e-61 (vector-ref sc0 5))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((3) (let ((e-68 (vector-ref sc1 1))) (let ((e-69 (vector-ref sc1 2))) (let ((e-70 (vector-ref sc1 3))) (let ((e-71 (vector-ref sc1 4))) (let ((e-72 (vector-ref sc1 5))) (lambda (eta-0) (TTImpC-45ProcessDef-case--recoverable-3566 arg-1 e-68 e-57 e-61 e-60 e-59 e-58 e-72 e-71 e-70 e-69 arg-2 arg-0 (CoreC-45Name-u--C-47C-61_Eq_Name e-58 e-69) eta-0)))))))) ((8) (lambda (eta-0) (vector 1 1))) ((10) (lambda (eta-0) (vector 1 1)))(else (lambda (eta-0) (vector 1 0))))))))))) ((8) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((3) (lambda (eta-0) (vector 1 1)))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((3) (lambda (eta-0) (vector 1 0)))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((2) (let ((e-27 (vector-ref sc1 1))) (let ((e-28 (vector-ref sc1 2))) (let ((e-29 (vector-ref sc1 3))) (let ((e-30 (vector-ref sc1 4))) (let ((e-31 (vector-ref sc1 5))) (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((2) (let ((e-36 (vector-ref sc2 1))) (let ((e-37 (vector-ref sc2 2))) (let ((e-38 (vector-ref sc2 3))) (let ((e-39 (vector-ref sc2 4))) (let ((e-40 (vector-ref sc2 5))) (lambda (eta-0) (TTImpC-45ProcessDef-case--recoverable-3798 arg-1 e-36 e-37 e-39 e-27 e-28 e-30 e-31 e-29 e-40 e-38 arg-2 arg-0 (PreludeC-45EqOrd-u--C-47C-61_Eq_Int e-29 e-38) eta-0)))))))) ((8) (lambda (eta-0) (vector 1 1)))(else (lambda (eta-0) (vector 1 0))))))))))) ((8) (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((2) (lambda (eta-0) (vector 1 1)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((2) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((1) (lambda (clam-0) (let ((sc4 arg-4)) (case (vector-ref sc4 0) ((1) (let ((e-12 (vector-ref sc4 2))) (let ((sc5 e-12)) (case (vector-ref sc5 0) ((1) (vector 1 0))(else (vector 1 1))))))(else (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))) ((8) (let ((e-6 (vector-ref sc2 2))) (lambda (clam-1) (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((8) (let ((e-19 (vector-ref sc3 2))) (vector 1 (CoreC-45TT-u--C-61C-61_Eq_Constant e-6 e-19))))(else (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1))))))))))))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (vector 1 0)))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 e-2)) (case (vector-ref sc2 0) ((1) (lambda (clam-1) (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((1) (let ((e-12 (vector-ref sc3 2))) (let ((sc4 e-12)) (case (vector-ref sc4 0) ((1) (vector 1 0))(else (vector 1 1))))))(else (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))) ((8) (let ((e-6 (vector-ref sc1 2))) (lambda (clam-3) (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((8) (let ((e-19 (vector-ref sc2 2))) (vector 1 (CoreC-45TT-u--C-61C-61_Eq_Constant e-6 e-19))))(else (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1)))))))))))))))))) ((10) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((3) (lambda (eta-0) (vector 1 1)))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((3) (lambda (eta-0) (vector 1 0)))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((2) (let ((e-27 (vector-ref sc1 1))) (let ((e-28 (vector-ref sc1 2))) (let ((e-29 (vector-ref sc1 3))) (let ((e-30 (vector-ref sc1 4))) (let ((e-31 (vector-ref sc1 5))) (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((2) (let ((e-36 (vector-ref sc2 1))) (let ((e-37 (vector-ref sc2 2))) (let ((e-38 (vector-ref sc2 3))) (let ((e-39 (vector-ref sc2 4))) (let ((e-40 (vector-ref sc2 5))) (lambda (eta-0) (TTImpC-45ProcessDef-case--recoverable-3798 arg-1 e-36 e-37 e-39 e-27 e-28 e-30 e-31 e-29 e-40 e-38 arg-2 arg-0 (PreludeC-45EqOrd-u--C-47C-61_Eq_Int e-29 e-38) eta-0)))))))) ((8) (lambda (eta-0) (vector 1 1)))(else (lambda (eta-0) (vector 1 0))))))))))) ((8) (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((2) (lambda (eta-0) (vector 1 1)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((2) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((1) (lambda (clam-2) (let ((sc4 arg-4)) (case (vector-ref sc4 0) ((1) (let ((e-12 (vector-ref sc4 2))) (let ((sc5 e-12)) (case (vector-ref sc5 0) ((1) (vector 1 0))(else (vector 1 1))))))(else (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))) ((8) (let ((e-6 (vector-ref sc2 2))) (lambda (clam-5) (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((8) (let ((e-19 (vector-ref sc3 2))) (vector 1 (CoreC-45TT-u--C-61C-61_Eq_Constant e-6 e-19))))(else (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1))))))))))))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (vector 1 0)))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 e-2)) (case (vector-ref sc2 0) ((1) (lambda (clam-3) (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((1) (let ((e-12 (vector-ref sc3 2))) (let ((sc4 e-12)) (case (vector-ref sc4 0) ((1) (vector 1 0))(else (vector 1 1))))))(else (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))) ((8) (let ((e-6 (vector-ref sc1 2))) (lambda (clam-7) (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((8) (let ((e-19 (vector-ref sc2 2))) (vector 1 (CoreC-45TT-u--C-61C-61_Eq_Constant e-6 e-19))))(else (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1))))))))))))))))))(else (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((3) (lambda (eta-0) (vector 1 0)))(else (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((2) (let ((e-27 (vector-ref sc0 1))) (let ((e-28 (vector-ref sc0 2))) (let ((e-29 (vector-ref sc0 3))) (let ((e-30 (vector-ref sc0 4))) (let ((e-31 (vector-ref sc0 5))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((2) (let ((e-36 (vector-ref sc1 1))) (let ((e-37 (vector-ref sc1 2))) (let ((e-38 (vector-ref sc1 3))) (let ((e-39 (vector-ref sc1 4))) (let ((e-40 (vector-ref sc1 5))) (lambda (eta-0) (TTImpC-45ProcessDef-case--recoverable-3798 arg-1 e-36 e-37 e-39 e-27 e-28 e-30 e-31 e-29 e-40 e-38 arg-2 arg-0 (PreludeC-45EqOrd-u--C-47C-61_Eq_Int e-29 e-38) eta-0)))))))) ((8) (lambda (eta-0) (vector 1 1)))(else (lambda (eta-0) (vector 1 0))))))))))) ((8) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (vector 1 1)))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (vector 1 0)))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 e-2)) (case (vector-ref sc2 0) ((1) (lambda (clam-4) (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((1) (let ((e-12 (vector-ref sc3 2))) (let ((sc4 e-12)) (case (vector-ref sc4 0) ((1) (vector 1 0))(else (vector 1 1))))))(else (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))) ((8) (let ((e-6 (vector-ref sc1 2))) (lambda (clam-9) (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((8) (let ((e-19 (vector-ref sc2 2))) (vector 1 (CoreC-45TT-u--C-61C-61_Eq_Constant e-6 e-19))))(else (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1))))))))))))(else (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((2) (lambda (eta-0) (vector 1 0)))(else (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (lambda (clam-5) (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((1) (let ((e-12 (vector-ref sc2 2))) (let ((sc3 e-12)) (case (vector-ref sc3 0) ((1) (vector 1 0))(else (vector 1 1))))))(else (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))) ((8) (let ((e-6 (vector-ref sc0 2))) (lambda (clam-11) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((8) (let ((e-19 (vector-ref sc1 2))) (vector 1 (CoreC-45TT-u--C-61C-61_Eq_Constant e-6 e-19))))(else (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1))))))))))))))))))) -(define TTImpC-45ProcessDef-processDef (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 ext-0) (let ((act-24 (CoreC-45Context-inCurrentNS arg-1 arg-8 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((CoreC-45Context-lookupCtxtExact e-5 (let ((sc2 e-6)) (let ((e-0 (vector-ref sc2 1))) e-0))) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((_-0 (vector 1 e-1))) ((TTImpC-45ProcessDef-case--caseC-32blockC-32inC-32processDef-12728 arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-6 e-1 _-0 (let ((sc4 e-1)) (let ((e-17 (vector-ref sc4 18))) e-17))) ext-0)))) (else (CoreC-45Context-noDeclaration arg-1 arg-7 e-5 ext-0))))))))))))))))))))) -(define TTImpC-45ProcessDef-nameListEq (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (if (null? sc0) (let ((sc1 arg-1)) (if (null? sc1) (vector 1 (vector 0 )) (vector 0 ))) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 arg-1)) (if (null? sc1) (vector 0 ) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (TTImpC-45ProcessDef-with--nameListEq-10111 e-2 e-6 (CoreC-45Name-nameEq e-2 e-6) e-3 e-7))))))))))) -(define TTImpC-45ProcessDef-mkRunTime (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (let ((act-24 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) arg-4 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (CoreC-45ContextC-45Log-log arg-0 "compile.casetree" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Making run time definition for " (CoreC-45Name-u--show_Show_Name e-5))) ext-0)))))))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((act-25 (let ((act-25 (unbox arg-0))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((CoreC-45Context-lookupCtxtExact arg-4 (let ((sc2 e-6)) (let ((e-0 (vector-ref sc2 1))) e-0))) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((u--cov (let ((sc4 e-1)) (let ((e-10 (vector-ref sc4 11))) (let ((sc5 e-10)) (let ((e-25 (cdr sc5))) e-25)))))) (let ((sc4 (AlgebraC-45Semiring-isErased (cons (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-5) (lambda (arg-6) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-5 arg-6))))) (let ((sc5 e-1)) (let ((e-21 (vector-ref sc5 8))) e-21))))) (cond ((equal? sc4 0) (vector 1 (vector 0 ))) (else (((let ((_-0 (vector 1 e-1))) (TTImpC-45ProcessDef-case--caseC-32blockC-32inC-32mkRunTime-10909 arg-4 arg-3 arg-2 arg-1 arg-0 e-6 e-1 _-0 u--cov (let ((sc5 e-1)) (let ((e-17 (vector-ref sc5 18))) e-17))))) ext-0)))))))(else (vector 1 (vector 0 ))))))))))))))))))))) -(define TTImpC-45ProcessDef-mismatchNF (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((3) (let ((e-25 (vector-ref sc1 1))) (let ((e-26 (vector-ref sc1 2))) (let ((e-27 (vector-ref sc1 3))) (let ((e-28 (vector-ref sc1 4))) (let ((e-29 (vector-ref sc1 5))) (lambda (eta-0) (TTImpC-45ProcessDef-case--mismatchNF-2774 arg-1 e-25 e-28 e-1 e-4 e-5 e-3 e-2 e-29 e-27 e-26 arg-2 arg-0 (CoreC-45Name-u--C-47C-61_Eq_Name e-2 e-26) eta-0))))))))(else (lambda (eta-0) (vector 1 1))))))))))) ((2) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (let ((e-10 (vector-ref sc0 4))) (let ((e-11 (vector-ref sc0 5))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((2) (let ((e-31 (vector-ref sc1 1))) (let ((e-32 (vector-ref sc1 2))) (let ((e-33 (vector-ref sc1 3))) (let ((e-34 (vector-ref sc1 4))) (let ((e-35 (vector-ref sc1 5))) (lambda (eta-0) (TTImpC-45ProcessDef-case--mismatchNF-2880 arg-1 e-31 e-32 e-34 e-7 e-8 e-10 e-11 e-9 e-35 e-33 arg-2 arg-0 (PreludeC-45EqOrd-u--C-47C-61_Eq_Int e-9 e-33) eta-0))))))))(else (lambda (eta-0) (vector 1 1))))))))))) ((8) (let ((e-14 (vector-ref sc0 2))) (lambda (clam-0) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((8) (let ((e-38 (vector-ref sc1 2))) (vector 1 (CoreC-45TT-u--C-47C-61_Eq_Constant e-14 e-38))))(else (vector 1 1))))))) ((5) (let ((e-18 (vector-ref sc0 3))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((5) (let ((e-42 (vector-ref sc1 3))) (TTImpC-45ProcessDef-mismatchNF arg-0 arg-1 arg-2 e-18 e-42)))(else (lambda (eta-0) (vector 1 1))))))) ((6) (let ((e-23 (vector-ref sc0 4))) (lambda (clam-1) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((6) (let ((e-47 (vector-ref sc1 4))) (let ((act-24 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-23) clam-1))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-47) clam-1))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) ((TTImpC-45ProcessDef-mismatchNF arg-0 arg-1 arg-2 e-5 e-6) clam-1)))))))))))))(else (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1))))))) -(define TTImpC-45ProcessDef-mismatch (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((sc0 arg-3)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((act-24 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-2) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-3) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) ((TTImpC-45ProcessDef-mismatchNF arg-0 arg-1 arg-2 e-5 e-6) ext-0)))))))))))))))) -(define TTImpC-45ProcessDef-impossibleOK (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((3) (let ((e-18 (vector-ref sc1 1))) (let ((e-19 (vector-ref sc1 2))) (let ((e-20 (vector-ref sc1 3))) (let ((e-21 (vector-ref sc1 4))) (let ((e-22 (vector-ref sc1 5))) (lambda (eta-0) (TTImpC-45ProcessDef-case--impossibleOK-3082 arg-1 e-18 e-1 e-5 e-4 e-3 e-2 e-22 e-21 e-20 e-19 arg-2 arg-0 (CoreC-45Name-u--C-61C-61_Eq_Name e-2 e-19) eta-0)))))))) ((8) (lambda (eta-0) (vector 1 0))) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))))))) ((2) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (let ((e-10 (vector-ref sc0 4))) (let ((e-11 (vector-ref sc0 5))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((2) (let ((e-29 (vector-ref sc1 1))) (let ((e-30 (vector-ref sc1 2))) (let ((e-31 (vector-ref sc1 3))) (let ((e-32 (vector-ref sc1 4))) (let ((e-33 (vector-ref sc1 5))) (lambda (eta-0) (TTImpC-45ProcessDef-case--impossibleOK-3188 arg-1 e-29 e-30 e-32 e-7 e-8 e-10 e-11 e-9 e-33 e-31 arg-2 arg-0 (PreludeC-45EqOrd-u--C-47C-61_Eq_Int e-9 e-31) eta-0)))))))) ((8) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))))))) ((8) (let ((e-14 (vector-ref sc0 2))) (lambda (clam-0) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((8) (let ((e-39 (vector-ref sc1 2))) (vector 1 (CoreC-45TT-u--C-47C-61_Eq_Constant e-14 e-39)))) ((2) (vector 1 0)) ((3) (vector 1 0)) ((10) (vector 1 0))(else (vector 1 1))))))) ((10) (lambda (clam-1) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((3) (vector 1 0)) ((8) (vector 1 0))(else (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))) -(define TTImpC-45ProcessDef-impossibleErrOK (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((CoreC-45Normalise-nf arg-0 e-0 arg-1 e-2 e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((CoreC-45Normalise-nf arg-0 e-0 arg-1 e-2 e-4) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) ((TTImpC-45ProcessDef-impossibleOK arg-0 e-0 arg-1 e-5 e-6) eta-0))))))))))))))))) ((2) (let ((e-5 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (let ((e-9 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((CoreC-45Normalise-nf arg-0 e-5 arg-1 e-7 e-8) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc1 1))) (let ((act-25 ((CoreC-45Normalise-nf arg-0 e-5 arg-1 e-7 e-9) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc2 1))) ((TTImpC-45ProcessDef-impossibleOK arg-0 e-5 arg-1 e-10 e-11) eta-0))))))))))))))))) ((44) (let ((e-13 (vector-ref sc0 4))) (lambda (clam-0) (let ((sc1 e-13)) (case (vector-ref sc1 0) ((3) (vector 1 0))(else (vector 1 1))))))) ((4) (lambda (eta-0) (vector 1 0))) ((21) (let ((e-21 (vector-ref sc0 1))) (lambda (eta-0) (CoreC-45Core-anyM (lambda (eta-1) (TTImpC-45ProcessDef-impossibleErrOK arg-0 arg-1 eta-1)) (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) e-21) eta-0)))) ((5) (let ((e-27 (vector-ref sc0 6))) (TTImpC-45ProcessDef-impossibleErrOK arg-0 arg-1 e-27)))(else (lambda (eta-0) (vector 1 1))))))) -(define TTImpC-45ProcessDef-hasEmptyPat (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((3) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((3) (let ((e-9 (vector-ref sc1 4))) (let ((act-24 ((CoreC-45Normalise-nf arg-1 arg-0 arg-2 arg-3 e-9) ext-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (CoreC-45Coverage-isEmpty arg-0 arg-1 arg-2 arg-3 e-5 ext-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc3 1))) (let ((act-26 (TTImpC-45ProcessDef-hasEmptyPat (cons e-2 arg-0) arg-1 arg-2 (cons e-3 arg-3) e-4 ext-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-11 (vector-ref sc4 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc4 1))) (vector 1 (PreludeC-45Basics-C-124C-124 e-10 (lambda () e-11))))))))))))))))))))(else (vector 1 1))))))))(else (vector 1 1)))))) -(define TTImpC-45ProcessDef-findLinear (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((3) (let ((e-2 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 4))) (TTImpC-45ProcessDef-findLinear (cons e-2 arg-0) arg-1 arg-2 (+ 1 arg-3) arg-4 e-4)))) ((5) (let ((e-9 (vector-ref sc0 4))) (TTImpC-45ProcessDef-findLinear arg-0 arg-1 arg-2 arg-3 arg-4 e-9)))(else (TTImpC-45ProcessDef-case--findLinear-4699 arg-0 arg-5 arg-4 arg-3 arg-2 arg-1 (CoreC-45TT-getFnArgs arg-5))))))) -(define TTImpC-45ProcessDef-extendEnv (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((3) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (let ((e-9 (vector-ref sc1 4))) (let ((sc2 arg-6)) (case (vector-ref sc2 0) ((3) (let ((e-16 (vector-ref sc2 1))) (let ((e-17 (vector-ref sc2 2))) (let ((e-18 (vector-ref sc2 3))) (let ((e-19 (vector-ref sc2 4))) (let ((sc3 e-18)) (case (vector-ref sc3 0) ((5) (let ((e-21 (vector-ref sc3 1))) (let ((e-22 (vector-ref sc3 2))) (let ((e-23 (vector-ref sc3 3))) (TTImpC-45ProcessDef-with--extendEnv-4176 e-2 e-17 (CoreC-45Name-nameEq e-2 e-17) 'erased arg-1 e-16 e-21 e-22 e-23 e-1 e-9 e-8 e-7 e-6 e-4 e-19 arg-4 arg-3 arg-2)))))(else (lambda (eta-0) (vector 1 (cons arg-1 (cons arg-3 (cons arg-2 (cons arg-4 (cons arg-5 arg-6)))))))))))))))(else (lambda (eta-0) (vector 1 (cons arg-1 (cons arg-3 (cons arg-2 (cons arg-4 (cons arg-5 arg-6))))))))))))))) ((4) (let ((e-11 (vector-ref sc1 1))) (let ((e-12 (vector-ref sc1 2))) (let ((e-13 (vector-ref sc1 3))) (let ((e-14 (vector-ref sc1 4))) (let ((sc2 arg-6)) (case (vector-ref sc2 0) ((3) (let ((e-25 (vector-ref sc2 1))) (let ((e-26 (vector-ref sc2 2))) (let ((e-27 (vector-ref sc2 3))) (let ((e-28 (vector-ref sc2 4))) (let ((sc3 e-27)) (case (vector-ref sc3 0) ((4) (let ((e-30 (vector-ref sc3 1))) (let ((e-31 (vector-ref sc3 2))) (let ((e-32 (vector-ref sc3 3))) (let ((e-33 (vector-ref sc3 4))) (TTImpC-45ProcessDef-with--extendEnv-4257 e-2 e-26 (CoreC-45Name-nameEq e-2 e-26) 'erased arg-1 e-25 e-30 e-31 e-33 e-32 e-1 e-13 e-14 e-12 e-11 e-4 e-28 arg-4 arg-3 arg-2))))))(else (lambda (eta-0) (vector 1 (cons arg-1 (cons arg-3 (cons arg-2 (cons arg-4 (cons arg-5 arg-6)))))))))))))))(else (lambda (eta-0) (vector 1 (cons arg-1 (cons arg-3 (cons arg-2 (cons arg-4 (cons arg-5 arg-6)))))))))))))))(else (lambda (eta-0) (vector 1 (cons arg-1 (cons arg-3 (cons arg-2 (cons arg-4 (cons arg-5 arg-6)))))))))))))))(else (lambda (eta-0) (vector 1 (cons arg-1 (cons arg-3 (cons arg-2 (cons arg-4 (cons arg-5 arg-6)))))))))))) -(define TTImpC-45ProcessDef-compileRunTime (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (CoreC-45Core-traverse_ (lambda (eta-0) (lambda (eta-1) (TTImpC-45ProcessDef-mkRunTime arg-0 arg-1 arg-2 arg-3 eta-0 eta-1))) (let ((sc1 e-5)) (let ((e-22 (vector-ref sc1 23))) e-22)) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45Core-traverse_ (lambda (eta-0) (lambda (eta-1) (TTImpC-45ProcessDef-calcRefs arg-0 0 arg-4 eta-0 eta-1))) (let ((sc2 e-5)) (let ((e-22 (vector-ref sc2 23))) e-22)) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-27 (let ((act-27 (unbox arg-0))) (vector 1 act-27)))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (set-box! arg-0 (let ((sc4 e-8)) (let ((e-0 (vector-ref sc4 1))) (let ((e-1 (vector-ref sc4 2))) (let ((e-2 (vector-ref sc4 3))) (let ((e-3 (vector-ref sc4 4))) (let ((e-4 (vector-ref sc4 5))) (let ((e-31 (vector-ref sc4 6))) (let ((e-30 (vector-ref sc4 7))) (let ((e-29 (vector-ref sc4 8))) (let ((e-28 (vector-ref sc4 9))) (let ((e-9 (vector-ref sc4 10))) (let ((e-10 (vector-ref sc4 11))) (let ((e-11 (vector-ref sc4 12))) (let ((e-12 (vector-ref sc4 13))) (let ((e-13 (vector-ref sc4 14))) (let ((e-14 (vector-ref sc4 15))) (let ((e-15 (vector-ref sc4 16))) (let ((e-16 (vector-ref sc4 17))) (let ((e-17 (vector-ref sc4 18))) (let ((e-18 (vector-ref sc4 19))) (let ((e-19 (vector-ref sc4 20))) (let ((e-20 (vector-ref sc4 21))) (let ((e-21 (vector-ref sc4 22))) (let ((e-23 (vector-ref sc4 24))) (let ((e-24 (vector-ref sc4 25))) (let ((e-25 (vector-ref sc4 26))) (let ((e-26 (vector-ref sc4 27))) (let ((e-27 (vector-ref sc4 28))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-31 e-30 e-29 e-28 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 '() e-23 e-24 e-25 e-26 e-27)))))))))))))))))))))))))))))))) (vector 1 act-28)))))))))))))))))))))) -(define TTImpC-45ProcessDef-combineLinear (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (if (null? sc0) (lambda (eta-0) (vector 1 '())) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (lambda (eta-0) (TTImpC-45ProcessDef-case--combineLinear-5153 e-6 e-7 e-3 arg-0 (TTImpC-45ProcessDef-n--18974-4998-u--lookupAll e-6 e-7 e-3 arg-0 e-6 e-3) eta-0))))))))))) -(define TTImpC-45ProcessDef-checkLHS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (TTImpC-45TTImp-logRaw arg-1 "declare.def.lhs" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))))))))))))))))))))))) (lambda () "Raw LHS: ") arg-12 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 (let ((sc2 arg-4)) (cond ((equal? sc2 0) (vector 1 arg-12)) (else ((TTImpC-45TTImp-lhsInCurrentNS arg-1 arg-9 arg-12) ext-0)))))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (TTImpC-45TTImp-logRaw arg-1 "declare.def.lhs" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))))))))))))))))))))))) (lambda () "Raw LHS in current NS: ") e-7 ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-28 (CoreC-45Context-isUnboundImplicits arg-1 ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-29 (CoreC-45Context-setUnboundImplicits arg-1 0 ext-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((act-30 (TTImpC-45BindImplicits-bindNames arg-1 1 e-7 ext-0))) (let ((sc6 act-30)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc6 1))) (let ((sc7 e-11)) (let ((e-3 (cdr sc7))) (let ((act-31 (CoreC-45Context-setUnboundImplicits arg-1 e-9 ext-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((act-32 (TTImpC-45TTImp-logRaw arg-1 "declare.def.lhs" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))))))))))))))))))))))) (lambda () "Raw LHS with implicits bound") e-3 ext-0))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((act-33 (let ((sc10 arg-4)) (cond ((equal? sc10 0) (vector 1 e-3)) (else ((TTImpC-45TTImp-implicitsAs arg-1 arg-7 e-5 arg-0 e-3) ext-0)))))) (let ((sc10 act-33)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-14 (vector-ref sc10 1))) (let ((act-34 (CoreC-45ContextC-45Log-logC arg-1 "declare.def.lhs" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-0) (let ((act-34 (CoreC-45Context-getFullName arg-1 (vector 9 arg-7) eta-0))) (let ((sc11 act-34)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((e-15 (vector-ref sc11 1))) (vector 1 (PreludeC-45TypesC-45String-C-43C-43 "Checking LHS of " (CoreC-45Name-u--show_Show_Name e-15))))))))) ext-0))) (let ((sc11 act-34)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((act-35 (CoreC-45ContextC-45Log-log arg-1 "declare.def.lhs" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (TTImpC-45TTImp-u--show_Show_RawImp e-14)) ext-0))) (let ((sc12 act-35)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (let ((act-36 (CoreC-45Normalise-logEnv arg-0 arg-1 "declare.def.lhs" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) "In env" arg-10 ext-0))) (let ((sc13 act-36)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (vector 0 e-4))) (else (let ((u--lhsMode (let ((sc14 arg-4)) (cond ((equal? sc14 0) (vector 3 )) (else (vector 1 arg-5)))))) (let ((act-37 (let ((act-37 (CoreC-45Context-getFullName arg-1 (vector 9 arg-7) ext-0))) (let ((sc14 act-37)) (case (vector-ref sc14 0) ((0) (let ((e-4 (vector-ref sc14 1))) (vector 0 e-4))) (else (let ((e-18 (vector-ref sc14 1))) ((TTImpC-45ElabC-45Utils-wrapErrorC arg-8 (lambda (eta-0) (vector 63 arg-11 e-18 eta-0)) (TTImpC-45Elab-elabTerm arg-0 arg-1 arg-2 arg-3 arg-7 u--lhsMode arg-8 arg-9 arg-10 (vector 16 arg-11 (vector 1 ) e-14) (vector 0 ))) ext-0)))))))) (let ((sc14 act-37)) (case (vector-ref sc14 0) ((0) (let ((e-4 (vector-ref sc14 1))) (vector 0 e-4))) (else (let ((e-18 (vector-ref sc14 1))) (let ((sc15 e-18)) (let ((e-19 (car sc15))) (let ((e-4 (cdr sc15))) (let ((act-38 (CoreC-45ContextC-45Log-logTerm arg-0 arg-1 "declare.def.lhs" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Checked LHS term") e-19 ext-0))) (let ((sc16 act-38)) (case (vector-ref sc16 0) ((0) (let ((e-20 (vector-ref sc16 1))) (vector 0 e-20))) (else (let ((act-39 ((CoreC-45Normalise-getTerm e-4) ext-0))) (let ((sc17 act-39)) (case (vector-ref sc17 0) ((0) (let ((e-21 (vector-ref sc17 1))) (vector 0 e-21))) (else (let ((e-21 (vector-ref sc17 1))) (let ((act-40 (let ((act-40 (unbox arg-1))) (vector 1 act-40)))) (let ((sc18 act-40)) (case (vector-ref sc18 0) ((0) (let ((e-22 (vector-ref sc18 1))) (vector 0 e-22))) (else (let ((e-22 (vector-ref sc18 1))) (let ((u--lhsenv (CoreC-45Env-letToLam arg-10))) (let ((act-41 (CoreC-45Normalise-normaliseHoles arg-1 arg-0 e-22 u--lhsenv e-19 ext-0))) (let ((sc19 act-41)) (case (vector-ref sc19 0) ((0) (let ((e-23 (vector-ref sc19 1))) (vector 0 e-23))) (else (let ((e-23 (vector-ref sc19 1))) (let ((act-42 (CoreC-45Normalise-normaliseHoles arg-1 arg-0 e-22 arg-10 e-21 ext-0))) (let ((sc20 act-42)) (case (vector-ref sc20 0) ((0) (let ((e-24 (vector-ref sc20 1))) (vector 0 e-24))) (else (let ((e-24 (vector-ref sc20 1))) (let ((act-43 ((TTImpC-45ProcessDef-findLinear arg-0 arg-1 0 0 (AlgebraC-45Semiring-linear (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))) e-23) ext-0))) (let ((sc21 act-43)) (case (vector-ref sc21 0) ((0) (let ((e-25 (vector-ref sc21 1))) (vector 0 e-25))) (else (let ((e-25 (vector-ref sc21 1))) (let ((act-44 (CoreC-45ContextC-45Log-logTerm arg-0 arg-1 "declare.def.lhs" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Checked LHS term after normalise") e-23 ext-0))) (let ((sc22 act-44)) (case (vector-ref sc22 0) ((0) (let ((e-26 (vector-ref sc22 1))) (vector 0 e-26))) (else (let ((act-45 (CoreC-45ContextC-45Log-log arg-1 "declare.def.lhs" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Linearity of names in " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Int arg-7) (PreludeC-45TypesC-45String-C-43C-43 ": " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (CoreC-45Name-u--show_Show_Name x-0)) (lambda (u--d) (lambda (x-0) (CoreC-45Name-u--showPrec_Show_Name u--d x-0)))) (cons (lambda (x-0) (AlgebraC-45ZeroOneOmega-u--show_Show_ZeroOneOmega x-0)) (lambda (u--d) (lambda (x-0) (AlgebraC-45ZeroOneOmega-u--showPrec_Show_ZeroOneOmega u--d x-0))))) u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (CoreC-45Name-u--show_Show_Name x-0)) (lambda (d-0) (lambda (x-0) (CoreC-45Name-u--showPrec_Show_Name d-0 x-0)))) (cons (lambda (x-0) (AlgebraC-45ZeroOneOmega-u--show_Show_ZeroOneOmega x-0)) (lambda (d-0) (lambda (x-0) (AlgebraC-45ZeroOneOmega-u--showPrec_Show_ZeroOneOmega d-0 x-0))))) u--d u--x)))) e-25))))) ext-0))) (let ((sc23 act-45)) (case (vector-ref sc23 0) ((0) (let ((e-27 (vector-ref sc23 1))) (vector 0 e-27))) (else (let ((act-46 ((TTImpC-45ProcessDef-combineLinear arg-11 e-25) ext-0))) (let ((sc24 act-46)) (case (vector-ref sc24 0) ((0) (let ((e-28 (vector-ref sc24 1))) (vector 0 e-28))) (else (let ((e-28 (vector-ref sc24 1))) (let ((u--lhstm_lin (TTImpC-45ProcessDef-setLinear e-28 e-23))) (let ((u--lhsty_lin (TTImpC-45ProcessDef-setLinear e-28 e-24))) (let ((act-47 (CoreC-45ContextC-45Log-logTerm arg-0 arg-1 "declare.def.lhs" (+ 1 (+ 1 (+ 1 0))) (lambda () "LHS term") u--lhstm_lin ext-0))) (let ((sc25 act-47)) (case (vector-ref sc25 0) ((0) (let ((e-29 (vector-ref sc25 1))) (vector 0 e-29))) (else (let ((act-48 (CoreC-45ContextC-45Log-logTerm arg-0 arg-1 "declare.def.lhs" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "LHS type") u--lhsty_lin ext-0))) (let ((sc26 act-48)) (case (vector-ref sc26 0) ((0) (let ((e-30 (vector-ref sc26 1))) (vector 0 e-30))) (else (let ((act-49 (CoreC-45Metadata-setHoleLHS arg-2 (CoreC-45Env-bindEnv arg-0 arg-11 arg-10 u--lhstm_lin) ext-0))) (let ((sc27 act-49)) (case (vector-ref sc27 0) ((0) (let ((e-31 (vector-ref sc27 1))) (vector 0 e-31))) (else (let ((act-50 ((TTImpC-45ProcessDef-extendEnv arg-0 arg-10 (vector 0 ) arg-9 u--lhstm_lin u--lhsty_lin) ext-0))) (let ((sc28 act-50)) (case (vector-ref sc28 0) ((0) (let ((e-32 (vector-ref sc28 1))) (vector 0 e-32))) (else (let ((e-32 (vector-ref sc28 1))) (vector 1 (cons e-14 e-32)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) -(define TTImpC-45ProcessDef-checkClause (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 ext-0) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((act-24 ((TTImpC-45TTImp-lhsInCurrentNS arg-1 arg-10 e-1) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (CoreC-45UnifyState-handleUnify arg-1 arg-3 (lambda (eta-0) (let ((act-25 (CoreC-45Context-isUnboundImplicits arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (CoreC-45Context-setUnboundImplicits arg-1 0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 (TTImpC-45BindImplicits-bindNames arg-1 1 e-5 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (let ((e-3 (cdr sc5))) (let ((act-28 (CoreC-45Context-setUnboundImplicits arg-1 e-6 eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((act-29 (CoreC-45ContextC-45Log-log arg-1 "declare.def.clause.impossible" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Checking " (TTImpC-45TTImp-u--show_Show_RawImp e-3))) eta-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((act-30 (CoreC-45Normalise-logEnv arg-0 arg-1 "declare.def.clause.impossible" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) "In env" arg-11 eta-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((act-31 ((TTImpC-45Elab-elabTerm arg-0 arg-1 arg-2 arg-3 arg-8 (vector 1 arg-4) arg-9 arg-10 arg-11 (vector 16 e-0 (vector 1 ) e-3) (vector 0 )) eta-0))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc9 1))) (let ((sc10 e-12)) (let ((e-13 (car sc10))) (let ((act-32 (let ((act-32 (unbox arg-1))) (vector 1 act-32)))) (let ((sc11 act-32)) (case (vector-ref sc11 0) ((0) (let ((e-14 (vector-ref sc11 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc11 1))) (let ((act-33 (CoreC-45Normalise-normaliseHoles arg-1 arg-0 e-14 arg-11 e-13 eta-0))) (let ((sc12 act-33)) (case (vector-ref sc12 0) ((0) (let ((e-15 (vector-ref sc12 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc12 1))) (let ((act-34 (TTImpC-45ProcessDef-hasEmptyPat arg-0 arg-1 e-14 arg-11 e-15 eta-0))) (let ((sc13 act-34)) (case (vector-ref sc13 0) ((0) (let ((e-16 (vector-ref sc13 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc13 1))) (let ((sc14 e-16)) (cond ((equal? sc14 0) (vector 1 (vector 0 e-5))) (else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 6 arg-0 e-0 arg-11 (vector 0 e-15)) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))) (lambda (u--err) (lambda (clam-1) (let ((sc2 u--err)) (case (vector-ref sc2 0) ((6) (CoreC-45Core-u--throw_Catchable_Core_Error u--err clam-1))(else (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((TTImpC-45ProcessDef-impossibleErrOK arg-1 e-6 u--err) clam-1))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (cond ((equal? sc4 0) (vector 1 (vector 0 e-5))) (else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 6 arg-0 e-0 arg-11 (vector 1 u--err)) clam-1))))))))))))))))))) ext-0))))))))) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((act-24 (TTImpC-45ProcessDef-checkLHS arg-0 arg-1 arg-2 arg-3 1 arg-4 arg-7 arg-8 arg-9 arg-10 arg-11 e-2 e-3 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-7 (car sc2))) (let ((e-6 (cdr sc2))) (let ((sc3 e-6)) (let ((e-9 (car sc3))) (let ((e-8 (cdr sc3))) (let ((sc4 e-8)) (let ((e-10 (car sc4))) (let ((e-11 (cdr sc4))) (let ((sc5 e-11)) (let ((e-14 (car sc5))) (let ((e-15 (cdr sc5))) (let ((sc6 e-15)) (let ((e-18 (car sc6))) (let ((e-19 (cdr sc6))) (let ((sc7 e-19)) (let ((e-22 (car sc7))) (let ((e-23 (cdr sc7))) (let ((u--rhsMode (let ((_-0 (cons e-7 (cons e-9 (cons e-10 (cons e-14 (cons e-18 (cons e-22 e-23)))))))) (TTImpC-45ProcessDef-case--caseC-32blockC-32inC-32checkClause-6652 e-4 e-3 e-2 arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-7 e-9 e-10 e-14 e-18 e-22 e-23 _-0 (AlgebraC-45Semiring-isErased (cons (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-13) (lambda (arg-14) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-13 arg-14))) (lambda (arg-13) (lambda (arg-14) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-13 arg-14))))) arg-4))))) (let ((act-25 (CoreC-45ContextC-45Log-log arg-1 "declare.def.clause" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Checking RHS " (TTImpC-45TTImp-u--show_Show_RawImp e-4))) ext-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-12 (vector-ref sc8 1))) (vector 0 e-12))) (else (let ((act-26 (CoreC-45Normalise-logEnv e-9 arg-1 "declare.def.clause" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) "In env" e-14 ext-0))) (let ((sc9 act-26)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (vector 0 e-13))) (else (let ((act-27 (let ((act-27 (CoreC-45Context-getFullName arg-1 (vector 9 arg-8) ext-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-16 (vector-ref sc10 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc10 1))) ((TTImpC-45ElabC-45Utils-wrapErrorC arg-9 (lambda (eta-0) (vector 64 e-2 e-16 eta-0)) (lambda (eta-0) (TTImpC-45Elab-checkTermSub arg-0 e-9 arg-1 arg-2 arg-3 arg-8 u--rhsMode arg-9 e-18 e-14 arg-11 e-10 e-4 (CoreC-45Normalise-gnf e-9 e-14 e-23) eta-0))) ext-0)))))))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-16 (vector-ref sc10 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc10 1))) (let ((act-28 (CoreC-45Metadata-clearHoleLHS arg-2 ext-0))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-17 (vector-ref sc11 1))) (vector 0 e-17))) (else (let ((act-29 (CoreC-45ContextC-45Log-logTerm e-9 arg-1 "declare.def.clause" (+ 1 (+ 1 (+ 1 0))) (lambda () "RHS term") e-16 ext-0))) (let ((sc12 act-29)) (case (vector-ref sc12 0) ((0) (let ((e-20 (vector-ref sc12 1))) (vector 0 e-20))) (else (let ((act-30 (let ((sc13 arg-7)) (cond ((equal? sc13 0) (let ((act-30 (CoreC-45Context-addHashWithNames arg-1 (cons (lambda (arg-1546) (CoreC-45Hash-u--hash_Hashable_C-40TermC-32C-36varsC-41 arg-1546)) (lambda (arg-1547) (lambda (arg-1548) (CoreC-45Hash-u--hashWithSalt_Hashable_C-40TermC-32C-36varsC-41 arg-1547 arg-1548)))) (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) e-22 ext-0))) (let ((sc14 act-30)) (case (vector-ref sc14 0) ((0) (let ((e-21 (vector-ref sc14 1))) (vector 0 e-21))) (else (CoreC-45Context-addHashWithNames arg-1 (cons (lambda (arg-1546) (CoreC-45Hash-u--hash_Hashable_C-40TermC-32C-36varsC-41 arg-1546)) (lambda (arg-1547) (lambda (arg-1548) (CoreC-45Hash-u--hashWithSalt_Hashable_C-40TermC-32C-36varsC-41 arg-1547 arg-1548)))) (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) e-16 ext-0)))))) (else (vector 1 (vector 0 ))))))) (let ((sc13 act-30)) (case (vector-ref sc13 0) ((0) (let ((e-21 (vector-ref sc13 1))) (vector 0 e-21))) (else (let ((act-31 (let ((sc14 e-16)) (case (vector-ref sc14 0) ((2) (CoreC-45Metadata-addLHS e-9 arg-1 arg-2 (TTImpC-45TTImp-getFC e-3) (CoreC-45Env-length arg-11) e-14 e-22 ext-0))(else (vector 1 (vector 0 ))))))) (let ((sc14 act-31)) (case (vector-ref sc14 0) ((0) (let ((e-24 (vector-ref sc14 1))) (vector 0 e-24))) (else (vector 1 (vector 1 (vector 0 e-9 e-14 e-22 e-16)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (let ((e-9 (vector-ref sc0 5))) (let ((e-10 (vector-ref sc0 6))) (let ((act-24 (TTImpC-45ProcessDef-checkLHS arg-0 arg-1 arg-2 arg-3 1 arg-4 arg-7 arg-8 arg-9 arg-10 arg-11 e-5 e-6 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc1 1))) (let ((sc2 e-11)) (let ((e-2 (car sc2))) (let ((e-3 (cdr sc2))) (let ((sc3 e-3)) (let ((e-13 (car sc3))) (let ((e-12 (cdr sc3))) (let ((sc4 e-12)) (let ((e-15 (car sc4))) (let ((e-14 (cdr sc4))) (let ((sc5 e-14)) (let ((e-17 (car sc5))) (let ((e-16 (cdr sc5))) (let ((sc6 e-16)) (let ((e-18 (car sc6))) (let ((e-19 (cdr sc6))) (let ((sc7 e-19)) (let ((e-22 (car sc7))) (let ((e-23 (cdr sc7))) (let ((u--wmode (let ((_-0 (cons e-2 (cons e-13 (cons e-15 (cons e-17 (cons e-18 (cons e-22 e-23)))))))) (TTImpC-45ProcessDef-case--caseC-32blockC-32inC-32checkClause-9989 e-10 e-9 e-8 e-7 e-6 e-5 arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-2 e-13 e-15 e-17 e-18 e-22 e-23 _-0 (AlgebraC-45Semiring-isErased (cons (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-13) (lambda (arg-14) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-13 arg-14))) (lambda (arg-13) (lambda (arg-14) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-13 arg-14))))) arg-4))))) (let ((act-25 (let ((act-25 (CoreC-45Context-getFullName arg-1 (vector 9 arg-8) ext-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-20 (vector-ref sc8 1))) ((TTImpC-45ElabC-45Utils-wrapErrorC arg-9 (lambda (eta-0) (vector 64 e-5 e-20 eta-0)) (TTImpC-45Elab-elabTermSub arg-0 e-13 arg-1 arg-2 arg-3 arg-8 u--wmode arg-9 e-18 e-17 arg-11 e-15 e-7 (vector 0 ))) ext-0)))))))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-20 (vector-ref sc8 1))) (let ((_-0 (cons e-2 (cons e-13 (cons e-15 (cons e-17 (cons e-18 (cons e-22 e-23)))))))) (let ((sc9 e-20)) (let ((e-21 (car sc9))) (let ((e-4 (cdr sc9))) (let ((act-26 (CoreC-45Metadata-clearHoleLHS arg-2 ext-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-24 (vector-ref sc10 1))) (vector 0 e-24))) (else (let ((act-27 (CoreC-45ContextC-45Log-logTerm e-13 arg-1 "declare.def.clause.with" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "With value") e-21 ext-0))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-25 (vector-ref sc11 1))) (vector 0 e-25))) (else (let ((act-28 (CoreC-45ContextC-45Log-logTerm e-13 arg-1 "declare.def.clause.with" (+ 1 (+ 1 (+ 1 0))) (lambda () "Required type") e-23 ext-0))) (let ((sc12 act-28)) (case (vector-ref sc12 0) ((0) (let ((e-26 (vector-ref sc12 1))) (vector 0 e-26))) (else (let ((act-29 ((CoreC-45Normalise-getTerm e-4) ext-0))) (let ((sc13 act-29)) (case (vector-ref sc13 0) ((0) (let ((e-27 (vector-ref sc13 1))) (vector 0 e-27))) (else (let ((e-27 (vector-ref sc13 1))) (let ((act-30 (let ((act-30 (unbox arg-1))) (vector 1 act-30)))) (let ((sc14 act-30)) (case (vector-ref sc14 0) ((0) (let ((e-28 (vector-ref sc14 1))) (vector 0 e-28))) (else (let ((e-28 (vector-ref sc14 1))) (let ((act-31 (CoreC-45Normalise-normaliseHoles arg-1 e-13 e-28 e-17 e-21 ext-0))) (let ((sc15 act-31)) (case (vector-ref sc15 0) ((0) (let ((e-29 (vector-ref sc15 1))) (vector 0 e-29))) (else (let ((e-29 (vector-ref sc15 1))) (let ((act-32 (CoreC-45Normalise-normaliseHoles arg-1 e-13 e-28 e-17 e-27 ext-0))) (let ((sc16 act-32)) (case (vector-ref sc16 0) ((0) (let ((e-30 (vector-ref sc16 1))) (vector 0 e-30))) (else (let ((e-30 (vector-ref sc16 1))) (let ((_-1 (cons e-21 e-4))) (TTImpC-45ProcessDef-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkClause-7786 e-10 e-9 e-8 e-7 e-6 e-5 arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-2 e-13 e-15 e-17 e-18 e-22 e-23 _-0 u--wmode e-21 e-4 _-1 e-27 e-28 e-29 e-30 (TTImpC-45ProcessDef-n--19983-6749-u--keepOldEnv e-10 e-9 e-8 e-7 e-6 e-5 arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-13 e-15 (let ((sc17 (CoreC-45Env-findSubEnv e-13 e-17 e-29))) (let ((e-31 (cdr sc17))) e-31))) ext-0)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) -(define TTImpC-45ProcessDef-calcRefs (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact arg-3 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((_-0 (vector 1 e-1))) ((TTImpC-45ProcessDef-case--caseC-32blockC-32inC-32calcRefs-10288 arg-3 arg-2 arg-1 arg-0 e-5 e-1 _-0 (let ((sc3 e-1)) (let ((e-17 (vector-ref sc3 18))) e-17))) ext-0))))(else (vector 1 (vector 0 ))))))))))))))))) -(define TTImpC-45ProcessDef-applyEnv (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (CoreC-45Context-resolveName arg-1 arg-3 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (cons arg-3 (cons (vector 1 arg-3) (cons (DataC-45List-reverse (CoreC-45Env-allVarsNoLet arg-0 arg-2)) (lambda (u--fc) (lambda (u--nt) (CoreC-45UnifyState-applyTo arg-0 u--fc (vector 1 u--fc u--nt (vector 9 e-5)) arg-2)))))))))))))) -(define TTImpC-45WithClause-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32getNewLHS-1662 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 ext-0) (let ((sc0 arg-19)) (if (null? sc0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-7 "Badly formed 'with' clause") ext-0) (let ((e-1 (car sc0))) (let ((e-2 (cdr sc0))) (let ((act-24 (CoreC-45ContextC-45Log-log arg-8 "declare.def.clause.with" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 (TTImpC-45TTImp-u--show_Show_RawImp arg-14) (PreludeC-45TypesC-45String-C-43C-43 " against " (PreludeC-45TypesC-45String-C-43C-43 (TTImpC-45TTImp-u--show_Show_RawImp arg-17) (PreludeC-45TypesC-45String-C-43C-43 " dropping " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (TTImpC-45TTImp-u--show_Show_RawImp u--x)) (lambda (u--d) (lambda (u--x) (TTImpC-45TTImp-u--showPrec_Show_RawImp u--d u--x)))) (cons e-1 e-2))))))) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((act-25 ((TTImpC-45WithClause-getMatch 0 arg-14 arg-17) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (CoreC-45ContextC-45Log-log arg-8 "declare.def.clause.with" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Matches: " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_String x-0)) (lambda (u--d) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_String u--d x-0)))) (cons (lambda (x-0) (TTImpC-45TTImp-u--show_Show_RawImp x-0)) (lambda (u--d) (lambda (x-0) (TTImpC-45TTImp-u--showPrec_Show_RawImp u--d x-0))))) u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_String x-0)) (lambda (d-0) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_String d-0 x-0)))) (cons (lambda (x-0) (TTImpC-45TTImp-u--show_Show_RawImp x-0)) (lambda (d-0) (lambda (x-0) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-0 x-0))))) u--d u--x)))) e-6))) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((u--params (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (TTImpC-45WithClause-getArgMatch arg-7 (vector 1 (AlgebraC-45ZeroOneOmega-u--top_Top_ZeroOneOmega)) 1 e-1 e-6 eta-0)) arg-3))) (let ((act-27 (CoreC-45ContextC-45Log-log arg-8 "declare.def.clause.with" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Parameters: " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (TTImpC-45TTImp-u--show_Show_RawImp u--x)) (lambda (u--d) (lambda (u--x) (TTImpC-45TTImp-u--showPrec_Show_RawImp u--d u--x)))) u--params))) ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((u--newlhs (TTImpC-45TTImp-apply (vector 0 arg-7 arg-4) (PreludeC-45TypesC-45List-C-43C-43 u--params e-2)))) (let ((act-28 (CoreC-45ContextC-45Log-log arg-8 "declare.def.clause.with" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "New LHS: " (TTImpC-45TTImp-u--show_Show_RawImp u--newlhs))) ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (vector 1 u--newlhs)))))))))))))))))))))))))))))) -(define TTImpC-45WithClause-case--caseC-32blockC-32inC-32getArgMatch-1382 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (cond ((equal? sc0 0) (vector 18 arg-6 arg-6 (vector 0 ) arg-1 arg-7)) (else arg-7))))) -(define TTImpC-45WithClause-case--getArgMatch-1344 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) e-1)) (else (let ((u--arg (vector 32 arg-6 0))) (TTImpC-45WithClause-case--caseC-32blockC-32inC-32getArgMatch-1382 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 u--arg (DataC-45Maybe-isJust (TTImpC-45ElabC-45Check-isLHS arg-5))))))))) -(define TTImpC-45WithClause-case--caseC-32blockC-32inC-32getArgMatch-1295 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (vector 18 arg-4 arg-4 (vector 0 ) arg-0 arg-5)) (else arg-5))))) -(define TTImpC-45WithClause-case--getArgMatch-1263 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) e-1)) (else (let ((u--arg (vector 12 arg-4 (PreludeC-45Types-u--fromInteger_Num_Nat 500)))) (TTImpC-45WithClause-case--caseC-32blockC-32inC-32getArgMatch-1295 arg-0 arg-1 arg-2 arg-3 arg-4 u--arg (DataC-45Maybe-isJust (TTImpC-45ElabC-45Check-isLHS arg-3))))))))) -(define TTImpC-45WithClause-case--mergeMatches-1201 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (vector 1 (cons (cons arg-0 arg-1) arg-4))) (else (let ((e-2 (vector-ref sc0 1))) (let ((act-24 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc1 eta-0)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (vector 1 (vector 0 )))))) (TTImpC-45WithClause-getMatch arg-3 arg-1 e-2) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (TTImpC-45WithClause-mergeMatches arg-3 arg-2 ext-0))))))))))) -(define TTImpC-45WithClause-case--getMatch-1108 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (vector 1 '())) (else (TTImpC-45WithClause-matchFail arg-1 ext-0)))))) -(define TTImpC-45WithClause-case--getMatch-892 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (lambda (eta-0) (TTImpC-45WithClause-matchAll arg-8 (cons (cons arg-3 arg-6) (cons (cons arg-1 arg-4) '())) eta-0))) (else (lambda (eta-0) (TTImpC-45WithClause-matchFail arg-7 eta-0))))))) -(define TTImpC-45WithClause-case--getMatch-770 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (cond ((equal? sc0 0) (lambda (eta-0) (TTImpC-45WithClause-matchAll arg-12 (cons (cons arg-2 arg-7) (cons (cons arg-1 arg-6) '())) eta-0))) (else (lambda (eta-0) (TTImpC-45WithClause-matchFail arg-11 eta-0))))))) -(define TTImpC-45WithClause-case--getMatch-698 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (vector 1 '())) (else (TTImpC-45WithClause-matchFail arg-3 ext-0)))))) -(define TTImpC-45WithClause-case--getMatch-657 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (vector 1 '())) (else (TTImpC-45WithClause-matchFail arg-4 ext-0)))))) -(define TTImpC-45WithClause-case--getMatch-611 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (vector 1 '())) (else (TTImpC-45WithClause-matchFail arg-5 ext-0)))))) -(define TTImpC-45WithClause-n--8995-1858-u--wrhsC (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((act-24 ((TTImpC-45WithClause-n--8995-1857-u--wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-2) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-0 e-1 e-5)))))))))))(else (vector 1 arg-7)))))) -(define TTImpC-45WithClause-n--8995-1857-u--wrhs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (lambda (eta-0) (let ((act-24 ((TTImpC-45WithClause-n--8995-1857-u--wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-25 ((TTImpC-45WithClause-n--8995-1857-u--wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc2 1))) (vector 1 (vector 1 e-0 e-1 e-2 e-3 e-6 e-7)))))))))))))))))))) ((2) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (let ((e-9 (vector-ref sc0 4))) (let ((e-10 (vector-ref sc0 5))) (let ((e-11 (vector-ref sc0 6))) (lambda (eta-0) (let ((act-24 ((TTImpC-45WithClause-n--8995-1857-u--wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((TTImpC-45WithClause-n--8995-1857-u--wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-11) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc2 1))) (vector 1 (vector 2 e-6 e-7 e-8 e-9 e-5 e-12)))))))))))))))))))) ((3) (let ((e-12 (vector-ref sc0 1))) (let ((e-13 (vector-ref sc0 2))) (let ((e-14 (vector-ref sc0 3))) (let ((e-15 (vector-ref sc0 4))) (let ((e-16 (vector-ref sc0 5))) (let ((e-17 (vector-ref sc0 6))) (let ((e-18 (vector-ref sc0 7))) (lambda (eta-0) (let ((act-24 ((TTImpC-45WithClause-n--8995-1857-u--wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-16) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((TTImpC-45WithClause-n--8995-1857-u--wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-17) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((TTImpC-45WithClause-n--8995-1857-u--wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-18) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 3 e-12 e-13 e-14 e-15 e-5 e-6 e-7)))))))))))))))))))))))))) ((4) (let ((e-19 (vector-ref sc0 1))) (let ((e-20 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 3))) (let ((e-22 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((TTImpC-45WithClause-n--8995-1857-u--wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-20) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((TTImpC-45WithClause-n--8995-1857-u--wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-21) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (CoreC-45Core-traverseC-39 (lambda (eta-1) (lambda (eta-2) (TTImpC-45WithClause-n--8995-1858-u--wrhsC arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1 eta-2))) e-22 '() eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 4 e-19 e-5 e-6 e-7))))))))))))))))))))))) ((5) (let ((e-23 (vector-ref sc0 1))) (let ((e-24 (vector-ref sc0 2))) (let ((e-25 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((TTImpC-45WithClause-n--8995-1857-u--wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-25) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 5 e-23 e-24 e-5)))))))))))) ((7) (let ((e-26 (vector-ref sc0 1))) (let ((e-27 (vector-ref sc0 2))) (let ((e-28 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((TTImpC-45WithClause-n--8995-1857-u--wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-28) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 7 e-26 e-27 e-5)))))))))))) ((8) (let ((e-29 (vector-ref sc0 1))) (let ((e-30 (vector-ref sc0 2))) (let ((e-31 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((TTImpC-45WithClause-n--8995-1857-u--wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-30) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((TTImpC-45WithClause-n--8995-1857-u--wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-31) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 8 e-29 e-5 e-6))))))))))))))))) ((9) (let ((e-32 (vector-ref sc0 1))) (let ((e-33 (vector-ref sc0 2))) (let ((e-34 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((TTImpC-45WithClause-n--8995-1857-u--wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-33) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((TTImpC-45WithClause-n--8995-1857-u--wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-34) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 9 e-32 e-5 e-6))))))))))))))))) ((10) (let ((e-35 (vector-ref sc0 1))) (let ((e-36 (vector-ref sc0 2))) (let ((e-37 (vector-ref sc0 3))) (let ((e-38 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((TTImpC-45WithClause-n--8995-1857-u--wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-36) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((TTImpC-45WithClause-n--8995-1857-u--wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-38) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 10 e-35 e-5 e-37 e-6)))))))))))))))))) ((11) (let ((e-39 (vector-ref sc0 1))) (let ((e-40 (vector-ref sc0 2))) (let ((e-41 (vector-ref sc0 3))) (TTImpC-45WithClause-n--8995-1856-u--updateWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-39 e-40 (cons e-41 '())))))) ((14) (let ((e-42 (vector-ref sc0 1))) (let ((e-43 (vector-ref sc0 2))) (let ((e-44 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((TTImpC-45WithClause-n--8995-1857-u--wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-43) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((TTImpC-45WithClause-n--8995-1857-u--wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-44) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 14 e-42 e-5 e-6))))))))))))))))) ((20) (let ((e-45 (vector-ref sc0 1))) (let ((e-46 (vector-ref sc0 2))) (let ((e-47 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((TTImpC-45WithClause-n--8995-1857-u--wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-47) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 20 e-45 e-46 e-5)))))))))))) ((21) (let ((e-48 (vector-ref sc0 1))) (let ((e-49 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((TTImpC-45WithClause-n--8995-1857-u--wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-49) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 21 e-48 e-5))))))))))) ((22) (let ((e-50 (vector-ref sc0 1))) (let ((e-51 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((TTImpC-45WithClause-n--8995-1857-u--wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-51) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 22 e-50 e-5)))))))))))(else (lambda (eta-0) (vector 1 arg-7))))))) -(define TTImpC-45WithClause-n--8995-1855-u--withApply (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (if (null? sc0) arg-8 (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (TTImpC-45WithClause-n--8995-1855-u--withApply arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (vector 11 arg-7 arg-8 e-2) e-3))))))) -(define TTImpC-45WithClause-n--8995-1856-u--updateWith (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((11) (let ((e-5 (vector-ref sc0 2))) (let ((e-6 (vector-ref sc0 3))) (TTImpC-45WithClause-n--8995-1856-u--updateWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-5 (cons e-6 arg-9)))))(else (lambda (clam-0) (let ((sc0 arg-9)) (if (null? sc0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-7 "Badly formed 'with' application") clam-0) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((act-24 (CoreC-45ContextC-45Log-log arg-6 "declare.def.clause.with" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "With-app: Matching " (PreludeC-45TypesC-45String-C-43C-43 (TTImpC-45TTImp-u--show_Show_RawImp arg-0) (PreludeC-45TypesC-45String-C-43C-43 " against " (TTImpC-45TTImp-u--show_Show_RawImp arg-8))))) clam-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((act-25 ((TTImpC-45WithClause-getMatch 1 arg-0 arg-8) clam-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (CoreC-45ContextC-45Log-log arg-6 "declare.def.clause.with" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Result: " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_String x-0)) (lambda (u--d) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_String u--d x-0)))) (cons (lambda (x-0) (TTImpC-45TTImp-u--show_Show_RawImp x-0)) (lambda (u--d) (lambda (x-0) (TTImpC-45TTImp-u--showPrec_Show_RawImp u--d x-0))))) u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_String x-0)) (lambda (d-0) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_String d-0 x-0)))) (cons (lambda (x-0) (TTImpC-45TTImp-u--show_Show_RawImp x-0)) (lambda (d-0) (lambda (x-0) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-0 x-0))))) u--d u--x)))) e-6))) clam-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((u--newrhs (TTImpC-45TTImp-apply (vector 0 arg-7 arg-3) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (TTImpC-45WithClause-getArgMatch arg-7 (vector 2 ) 0 e-2 e-6 eta-0)) arg-2)))) (let ((act-27 (CoreC-45ContextC-45Log-log arg-6 "declare.def.clause.with" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "With args for RHS: " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (CoreC-45TT-u--show_Show_C-40PiInfoC-32C-36tC-41 (cons (lambda (x-2) (TTImpC-45TTImp-u--show_Show_RawImp x-2)) (lambda (u--d) (lambda (x-2) (TTImpC-45TTImp-u--showPrec_Show_RawImp u--d x-2)))) x-1)) (lambda (u--d) (lambda (x-1) (CoreC-45TT-u--showPrec_Show_C-40PiInfoC-32C-36tC-41 (cons (lambda (x-2) (TTImpC-45TTImp-u--show_Show_RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-0 x-2)))) u--d x-1)))) (cons (lambda (x-1) (CoreC-45Name-u--show_Show_Name x-1)) (lambda (u--d) (lambda (x-1) (CoreC-45Name-u--showPrec_Show_Name u--d x-1))))) x-0)) (lambda (u--d) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (CoreC-45TT-u--show_Show_C-40PiInfoC-32C-36tC-41 (cons (lambda (x-2) (TTImpC-45TTImp-u--show_Show_RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-0 x-2)))) x-1)) (lambda (d-0) (lambda (x-1) (CoreC-45TT-u--showPrec_Show_C-40PiInfoC-32C-36tC-41 (cons (lambda (x-2) (TTImpC-45TTImp-u--show_Show_RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-1 x-2)))) d-0 x-1)))) (cons (lambda (x-1) (CoreC-45Name-u--show_Show_Name x-1)) (lambda (d-0) (lambda (x-1) (CoreC-45Name-u--showPrec_Show_Name d-0 x-1))))) u--d x-0)))) u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (CoreC-45TT-u--show_Show_C-40PiInfoC-32C-36tC-41 (cons (lambda (x-2) (TTImpC-45TTImp-u--show_Show_RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-0 x-2)))) x-1)) (lambda (d-0) (lambda (x-1) (CoreC-45TT-u--showPrec_Show_C-40PiInfoC-32C-36tC-41 (cons (lambda (x-2) (TTImpC-45TTImp-u--show_Show_RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-1 x-2)))) d-0 x-1)))) (cons (lambda (x-1) (CoreC-45Name-u--show_Show_Name x-1)) (lambda (d-0) (lambda (x-1) (CoreC-45Name-u--showPrec_Show_Name d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (CoreC-45TT-u--show_Show_C-40PiInfoC-32C-36tC-41 (cons (lambda (x-2) (TTImpC-45TTImp-u--show_Show_RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-1 x-2)))) x-1)) (lambda (d-1) (lambda (x-1) (CoreC-45TT-u--showPrec_Show_C-40PiInfoC-32C-36tC-41 (cons (lambda (x-2) (TTImpC-45TTImp-u--show_Show_RawImp x-2)) (lambda (d-2) (lambda (x-2) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-2 x-2)))) d-1 x-1)))) (cons (lambda (x-1) (CoreC-45Name-u--show_Show_Name x-1)) (lambda (d-1) (lambda (x-1) (CoreC-45Name-u--showPrec_Show_Name d-1 x-1))))) d-0 x-0)))) u--d u--x)))) arg-2))) clam-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((act-28 (CoreC-45ContextC-45Log-log arg-6 "declare.def.clause.with" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "New RHS: " (TTImpC-45TTImp-u--show_Show_RawImp u--newrhs))) clam-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (vector 1 (TTImpC-45WithClause-n--8995-1855-u--withApply arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 u--newrhs e-3)))))))))))))))))))))))))))))))))) -(define TTImpC-45WithClause-n--7539-729-u--samePiInfo (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((1) (let ((sc1 arg-14)) (case (vector-ref sc1 0) ((1) 0)(else 1)))) ((0) (let ((sc1 arg-14)) (case (vector-ref sc1 0) ((0) 0)(else 1)))) ((2) (let ((sc1 arg-14)) (case (vector-ref sc1 0) ((2) 0)(else 1)))) ((3) (let ((sc1 arg-14)) (case (vector-ref sc1 0) ((3) 0)(else 1))))(else 1))))) -(define TTImpC-45WithClause-n--8486-1426-u--dropWithArgs (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (cons arg-10 '()))))(else (let ((e-0 (- arg-9 1))) (lambda (clam-0) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((8) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((act-24 ((TTImpC-45WithClause-n--8486-1426-u--dropWithArgs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-0 e-2) clam-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-6 (car sc2))) (let ((e-4 (cdr sc2))) (vector 1 (cons e-6 (cons e-3 e-4))))))))))))))(else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-7 "Badly formed 'with' clause") clam-0))))))))))) -(define TTImpC-45WithClause-withRHS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (TTImpC-45WithClause-n--8995-1857-u--wrhs arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 arg-5))) -(define TTImpC-45WithClause-mergeMatches (lambda (arg-0 arg-1 ext-0) (let ((sc0 arg-1)) (if (null? sc0) (vector 1 '()) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (let ((act-24 (TTImpC-45WithClause-mergeMatches arg-0 e-3 ext-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (TTImpC-45WithClause-case--mergeMatches-1201 e-6 e-7 e-3 arg-0 e-5 (DataC-45List-lookup (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_String arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_String arg-4 arg-5)))) e-6 e-5) ext-0))))))))))))))) +(define TTImpC-45ProcessTransform-processTransform (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 ext-0) (let ((act-24 (CoreC-45Context-inCurrentNS arg-1 arg-8 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-resolveName arg-1 e-5 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45ProcessDef-checkLHS arg-0 arg-1 arg-2 arg-3 1 (AlgebraC-45ZeroOneOmega-u--top_Top_ZeroOneOmega) 1 e-6 arg-4 arg-5 arg-6 arg-7 arg-9 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((e-3 (cdr e-7))) (let ((e-9 (car e-3))) (let ((e-8 (cdr e-3))) (let ((e-10 (car e-8))) (let ((e-11 (cdr e-8))) (let ((e-14 (car e-11))) (let ((e-15 (cdr e-11))) (let ((e-18 (car e-15))) (let ((e-19 (cdr e-15))) (let ((e-22 (car e-19))) (let ((e-23 (cdr e-19))) (let ((act-27 (CoreC-45ContextC-45Log-logTerm e-9 arg-1 "transform.lhs" (+ 1 (+ 1 (+ 1 0))) (lambda () "Transform LHS") e-22 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-4 (vector-ref act-27 1))) (vector 0 e-4))) (else (let ((act-28 ((CoreC-45Core-wrapError (lambda (eta-0) (vector 65 arg-7 arg-8 eta-0)) (lambda (eta-0) (TTImpC-45Elab-checkTermSub arg-0 e-9 arg-1 arg-2 arg-3 e-6 (vector 2 ) (cons 3 arg-4) e-18 e-14 arg-6 e-10 arg-10 (CoreC-45Normalise-gnf e-9 e-14 e-23) eta-0))) ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-4 (vector-ref act-28 1))) (vector 0 e-4))) (else (let ((e-13 (vector-ref act-28 1))) (let ((act-29 (CoreC-45Metadata-clearHoleLHS arg-2 ext-0))) (case (vector-ref act-29 0) ((0) (let ((e-4 (vector-ref act-29 1))) (vector 0 e-4))) (else (let ((act-30 (CoreC-45ContextC-45Log-logTerm e-9 arg-1 "transform.rhs" (+ 1 (+ 1 (+ 1 0))) (lambda () "Transform RHS") e-13 ext-0))) (case (vector-ref act-30 0) ((0) (let ((e-4 (vector-ref act-30 1))) (vector 0 e-4))) (else (CoreC-45Context-addTransform arg-1 arg-7 (vector e-9 e-5 e-14 e-22 e-13) ext-0))))))))))))))))))))))))))))))))))))))) +(define TTImpC-45ProcessDef-with--withC-32blockC-32inC-32nameListEq-9916 (lambda (arg-0 arg-1 arg-2 arg-3) (if (null? arg-2) '() (let ((e-1 (unbox arg-2))) (cond (else (box 0))))))) +(define TTImpC-45ProcessDef-with--nameListEq-9909 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (if (null? arg-2) '() (let ((e-1 (unbox arg-2))) (cond (else (TTImpC-45ProcessDef-with--withC-32blockC-32inC-32nameListEq-9916 arg-4 arg-3 (TTImpC-45ProcessDef-nameListEq arg-3 arg-4) arg-0))))))) +(define TTImpC-45ProcessDef-with--extendEnv-3944 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (if (null? arg-2) (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 "Can't happen: names don't match in pattern type") eta-0)) (let ((e-2 (unbox arg-2))) (cond (else (TTImpC-45ProcessDef-extendEnv (cons arg-0 arg-4) (cons (vector 1 arg-14 arg-13 arg-11 arg-12) arg-19) (vector 1 arg-18) (TTImpC-45TTImp-u--weaken_Weaken_NestedNames arg-17) arg-15 arg-16))))))) +(define TTImpC-45ProcessDef-with--extendEnv-3863 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (if (null? arg-2) (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 "Can't happen: names don't match in pattern type") eta-0)) (let ((e-2 (unbox arg-2))) (cond (else (TTImpC-45ProcessDef-extendEnv (cons arg-0 arg-4) (cons (vector 3 arg-13 arg-12 arg-11 arg-10) arg-18) (vector 1 arg-17) (TTImpC-45TTImp-u--weaken_Weaken_NestedNames arg-16) arg-14 arg-15))))))) +(define TTImpC-45ProcessDef-case--caseC-32blockC-32inC-32mkRunTime-10752 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (case (vector-ref arg-9 0) ((1) (let ((e-0 (vector-ref arg-9 1))) (let ((e-1 (vector-ref arg-9 2))) (let ((e-2 (vector-ref arg-9 3))) (let ((e-4 (vector-ref arg-9 5))) (let ((u--ty (let ((e-23 (vector-ref arg-6 2))) e-23))) (lambda () (lambda (eta-0) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-1) (TTImpC-45ProcessDef-n--19566-10469-u--toErased arg-0 arg-1 arg-2 arg-3 arg-4 (let ((e-25 (vector-ref arg-6 0))) e-25) (TTImpC-45ProcessDef-n--19566-10468-u--getSpec arg-0 arg-1 arg-2 arg-3 arg-4 (let ((e-11 (vector-ref arg-6 11))) e-11)) eta-1)) e-4 '() eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((u--clauses_init (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (TTImpC-45ProcessDef-n--19566-10470-u--toClause arg-0 arg-1 arg-2 arg-3 arg-4 (let ((e-26 (vector-ref arg-6 0))) e-26) eta-1)) e-5))) (let ((u--clauses (case (vector-ref arg-8 0) ((1) (TTImpC-45ProcessDef-n--19566-10467-u--addErrorCase arg-0 arg-1 arg-2 arg-3 arg-4 u--clauses_init))(else u--clauses_init)))) (let ((act-25 (CoreC-45CaseBuilder-getPMDef arg-4 (let ((e-26 (vector-ref arg-6 0))) e-26) '() arg-0 u--ty u--clauses eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-6 (vector-ref act-25 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-25 1))) (let ((e-8 (car e-6))) (let ((e-7 (cdr e-6))) (let ((e-10 (car e-7))) (let ((act-26 (let ((act-26 (CoreC-45Context-toFullNames arg-4 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-1) (CoreC-45Context-u--full_HasNames_C-40CaseTreeC-32C-36varsC-41 arg-3841 arg-3842 eta-1)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-1) (CoreC-45Context-u--resolved_HasNames_C-40CaseTreeC-32C-36varsC-41 arg-3843 arg-3844 eta-1))))) e-10 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-11 (vector-ref act-26 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-26 1))) (CoreC-45ContextC-45Log-unverifiedLogC arg-4 "compile.casetree" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-1) (vector 1 (LibrariesC-45DataC-45StringC-45Extra-unlines (cons (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_Covering arg-8) ":") (cons (PreludeC-45TypesC-45String-C-43C-43 "Runtime tree for " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name (let ((e-31 (vector-ref arg-6 1))) e-31)) ":")) (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--show_Show_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-indent 2 (CoreC-45CaseTree-u--pretty_Pretty_C-40CaseTreeC-32C-36varsC-41 e-8 e-11))) '())))))) eta-0))))))) (case (vector-ref act-26 0) ((0) (let ((e-11 (vector-ref act-26 1))) (vector 0 e-11))) (else (let ((act-27 (CoreC-45ContextC-45Log-log arg-4 "compile.casetree" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (CoreC-45CaseTree-u--show_Show_C-40CaseTreeC-32C-36varsC-41 e-8 e-10)) eta-0))) (case (vector-ref act-27 0) ((0) (let ((e-12 (vector-ref act-27 1))) (vector 0 e-12))) (else (let ((sc7 (TTImpC-45ProcessDef-nameListEq e-1 e-8))) (if (null? sc7) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 "WAT") eta-0) (let ((e-13 (unbox sc7))) (cond (else (let ((act-28 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (case (vector-ref eta-1 0) ((0) (let ((e-14 (vector-ref eta-1 1))) (vector 0 e-14))) (else (vector 1 0)))) (lambda (eta-1) (CoreC-45Context-addDef arg-4 arg-0 (let ((e-34 (vector-ref arg-6 0))) (let ((e-33 (vector-ref arg-6 1))) (let ((e-32 (vector-ref arg-6 2))) (let ((e-31 (vector-ref arg-6 3))) (let ((e-30 (vector-ref arg-6 4))) (let ((e-29 (vector-ref arg-6 5))) (let ((e-28 (vector-ref arg-6 6))) (let ((e-27 (vector-ref arg-6 7))) (let ((e-26 (vector-ref arg-6 8))) (let ((e-25 (vector-ref arg-6 9))) (let ((e-24 (vector-ref arg-6 10))) (let ((e-23 (vector-ref arg-6 11))) (let ((e-22 (vector-ref arg-6 12))) (let ((e-21 (vector-ref arg-6 13))) (let ((e-14 (vector-ref arg-6 14))) (let ((e-15 (vector-ref arg-6 15))) (let ((e-16 (vector-ref arg-6 16))) (let ((e-18 (vector-ref arg-6 18))) (let ((e-19 (vector-ref arg-6 19))) (let ((e-20 (vector-ref arg-6 20))) (vector e-34 e-33 e-32 e-31 e-30 e-29 e-28 e-27 e-26 e-25 e-24 e-23 e-22 e-21 e-14 e-15 e-16 (vector 1 e-0 e-1 e-2 e-10 e-4) e-18 e-19 e-20))))))))))))))))))))) eta-1)) eta-0))) (case (vector-ref act-28 0) ((0) (let ((e-14 (vector-ref act-28 1))) (vector 0 e-14))) (else (let ((act-29 (CoreC-45Context-toFullNames arg-4 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-1) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-1)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-1) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-1))))) arg-0 eta-0))) (case (vector-ref act-29 0) ((0) (let ((e-15 (vector-ref act-29 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref act-29 1))) (let ((sc11 (let ((sc12 (TTImpC-45ProcessDef-n--19566-10463-u--caseName arg-0 arg-1 arg-2 arg-3 arg-4 e-15))) (cond ((equal? sc12 1) (TTImpC-45ProcessDef-n--19566-10462-u--noInline arg-0 arg-1 arg-2 arg-3 arg-4 (let ((e-25 (vector-ref arg-6 11))) e-25))) (else 0))))) (cond ((equal? sc11 1) (let ((act-30 (TTImpC-45ElabC-45Utils-canInlineCaseBlock arg-4 arg-0 eta-0))) (case (vector-ref act-30 0) ((0) (let ((e-16 (vector-ref act-30 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref act-30 1))) (cond ((equal? e-16 1) (CoreC-45Context-setFlag arg-4 arg-1 arg-0 (vector 0 ) eta-0)) (else (vector 1 0)))))))) (else (vector 1 0)))))))))))))))))))))))))))))))))))))))))))(else (lambda () (lambda (eta-0) (vector 1 0))))))) +(define TTImpC-45ProcessDef-case--caseC-32blockC-32inC-32calcRefs-10088 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (case (vector-ref arg-7 0) ((1) (let ((e-2 (vector-ref arg-7 3))) (let ((e-3 (vector-ref arg-7 4))) (let ((u--refs (cond ((equal? arg-2 1) (let ((e-13 (vector-ref arg-5 13))) e-13)) (else (let ((e-12 (vector-ref arg-5 12))) e-12))))) (if (null? u--refs) (let ((u--tree (cond ((equal? arg-2 1) e-3) (else e-2)))) (let ((u--metas (CoreC-45CaseTree-getMetas u--tree))) (lambda (eta-0) (let ((act-24 (CoreC-45Core-traverse_ (lambda (eta-1) (lambda (eta-2) (CoreC-45Context-addToSave arg-3 eta-1 eta-2))) (LibrariesC-45DataC-45NameMap-keys u--metas) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((u--refs_all (CoreC-45CaseTree-addRefs arg-1 u--metas u--tree))) (let ((act-25 (cond ((equal? arg-2 1) (TTImpC-45ProcessDef-n--18947-9941-u--dropErased arg-0 arg-1 arg-2 arg-3 (LibrariesC-45DataC-45NameMap-keys u--refs_all) u--refs_all eta-0)) (else (vector 1 u--refs_all))))) (case (vector-ref act-25 0) ((0) (let ((e-6 (vector-ref act-25 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (case (vector-ref eta-1 0) ((0) (let ((e-7 (vector-ref eta-1 1))) (vector 0 e-7))) (else (vector 1 0)))) (lambda (clam-0) (cond ((equal? arg-2 1) (CoreC-45Context-addDef arg-3 arg-0 (let ((e-27 (vector-ref arg-5 0))) (let ((e-26 (vector-ref arg-5 1))) (let ((e-25 (vector-ref arg-5 2))) (let ((e-24 (vector-ref arg-5 3))) (let ((e-23 (vector-ref arg-5 4))) (let ((e-22 (vector-ref arg-5 5))) (let ((e-21 (vector-ref arg-5 6))) (let ((e-7 (vector-ref arg-5 7))) (let ((e-8 (vector-ref arg-5 8))) (let ((e-9 (vector-ref arg-5 9))) (let ((e-10 (vector-ref arg-5 10))) (let ((e-11 (vector-ref arg-5 11))) (let ((e-12 (vector-ref arg-5 12))) (let ((e-14 (vector-ref arg-5 14))) (let ((e-15 (vector-ref arg-5 15))) (let ((e-16 (vector-ref arg-5 16))) (let ((e-17 (vector-ref arg-5 17))) (let ((e-18 (vector-ref arg-5 18))) (let ((e-19 (vector-ref arg-5 19))) (let ((e-20 (vector-ref arg-5 20))) (vector e-27 e-26 e-25 e-24 e-23 e-22 e-21 e-7 e-8 e-9 e-10 e-11 e-12 (box e-6) e-14 e-15 e-16 e-17 e-18 e-19 e-20))))))))))))))))))))) clam-0)) (else (CoreC-45Context-addDef arg-3 arg-0 (let ((e-27 (vector-ref arg-5 0))) (let ((e-26 (vector-ref arg-5 1))) (let ((e-25 (vector-ref arg-5 2))) (let ((e-24 (vector-ref arg-5 3))) (let ((e-23 (vector-ref arg-5 4))) (let ((e-22 (vector-ref arg-5 5))) (let ((e-21 (vector-ref arg-5 6))) (let ((e-7 (vector-ref arg-5 7))) (let ((e-8 (vector-ref arg-5 8))) (let ((e-9 (vector-ref arg-5 9))) (let ((e-10 (vector-ref arg-5 10))) (let ((e-11 (vector-ref arg-5 11))) (let ((e-13 (vector-ref arg-5 13))) (let ((e-14 (vector-ref arg-5 14))) (let ((e-15 (vector-ref arg-5 15))) (let ((e-16 (vector-ref arg-5 16))) (let ((e-17 (vector-ref arg-5 17))) (let ((e-18 (vector-ref arg-5 18))) (let ((e-19 (vector-ref arg-5 19))) (let ((e-20 (vector-ref arg-5 20))) (vector e-27 e-26 e-25 e-24 e-23 e-22 e-21 e-7 e-8 e-9 e-10 e-11 (box e-6) e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20))))))))))))))))))))) clam-0)))) eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-7 (vector-ref act-26 1))) (vector 0 e-7))) (else (CoreC-45Core-traverse_ (lambda (eta-1) (lambda (eta-2) (TTImpC-45ProcessDef-calcRefs arg-3 arg-2 arg-1 eta-1 eta-2))) (LibrariesC-45DataC-45NameMap-keys e-6) eta-0))))))))))))))) (lambda (eta-0) (vector 1 0)))))))(else (lambda (eta-0) (vector 1 0)))))) +(define TTImpC-45ProcessDef-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkClause-8297 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 arg-38 arg-39 arg-40 arg-41 arg-42 arg-43 arg-44 arg-45 arg-46 arg-47 arg-48 arg-49 arg-50) (if (null? arg-50) (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 "Impossible happened: With abstraction failure #4") eta-0)) (let ((e-1 (unbox arg-50))) (let ((e-5 (car e-1))) (let ((e-6 (cdr e-1))) (let ((e-9 (car e-6))) (let ((e-10 (cdr e-6))) (let ((u--wargNames (PreludeC-45TypesC-45List-C-43C-43 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (box eta-0)) e-5) (cons '() (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (box eta-0)) arg-45))))) (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-logTerm '() arg-17 "declare.def.clause.with" (+ 1 (+ 1 (+ 1 0))) (lambda () "With function type") e-10 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45ContextC-45Log-log arg-17 "declare.def.clause.with" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Argument names " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (CoreC-45TT-u--show_Show_C-40PiInfoC-32C-36tC-41 (cons (lambda (x-2) (TTImpC-45TTImp-u--show_Show_RawImp x-2)) (lambda (u--d) (lambda (x-2) (TTImpC-45TTImp-u--showPrec_Show_RawImp u--d x-2)))) x-1)) (lambda (u--d) (lambda (x-1) (CoreC-45TT-u--showPrec_Show_C-40PiInfoC-32C-36tC-41 (cons (lambda (x-2) (TTImpC-45TTImp-u--show_Show_RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-0 x-2)))) u--d x-1)))) (cons (lambda (x-1) (CoreC-45Name-u--show_Show_Name x-1)) (lambda (u--d) (lambda (x-1) (CoreC-45Name-u--showPrec_Show_Name u--d x-1))))) x-0)) (lambda (u--d) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (CoreC-45TT-u--show_Show_C-40PiInfoC-32C-36tC-41 (cons (lambda (x-2) (TTImpC-45TTImp-u--show_Show_RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-0 x-2)))) x-1)) (lambda (d-0) (lambda (x-1) (CoreC-45TT-u--showPrec_Show_C-40PiInfoC-32C-36tC-41 (cons (lambda (x-2) (TTImpC-45TTImp-u--show_Show_RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-1 x-2)))) d-0 x-1)))) (cons (lambda (x-1) (CoreC-45Name-u--show_Show_Name x-1)) (lambda (d-0) (lambda (x-1) (CoreC-45Name-u--showPrec_Show_Name d-0 x-1))))) u--d x-0)))) u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (CoreC-45TT-u--show_Show_C-40PiInfoC-32C-36tC-41 (cons (lambda (x-2) (TTImpC-45TTImp-u--show_Show_RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-0 x-2)))) x-1)) (lambda (d-0) (lambda (x-1) (CoreC-45TT-u--showPrec_Show_C-40PiInfoC-32C-36tC-41 (cons (lambda (x-2) (TTImpC-45TTImp-u--show_Show_RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-1 x-2)))) d-0 x-1)))) (cons (lambda (x-1) (CoreC-45Name-u--show_Show_Name x-1)) (lambda (d-0) (lambda (x-1) (CoreC-45Name-u--showPrec_Show_Name d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (CoreC-45TT-u--show_Show_C-40PiInfoC-32C-36tC-41 (cons (lambda (x-2) (TTImpC-45TTImp-u--show_Show_RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-1 x-2)))) x-1)) (lambda (d-1) (lambda (x-1) (CoreC-45TT-u--showPrec_Show_C-40PiInfoC-32C-36tC-41 (cons (lambda (x-2) (TTImpC-45TTImp-u--show_Show_RawImp x-2)) (lambda (d-2) (lambda (x-2) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-2 x-2)))) d-1 x-1)))) (cons (lambda (x-1) (CoreC-45Name-u--show_Show_Name x-1)) (lambda (d-1) (lambda (x-1) (CoreC-45Name-u--showPrec_Show_Name d-1 x-1))))) d-0 x-0)))) u--d u--x)))) u--wargNames))) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 (let ((act-26 (CoreC-45Context-toFullNames arg-17 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-1) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-1)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-1) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-1))))) (vector 9 arg-10) eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref act-26 1))) (let ((act-27 ((CoreC-45Context-prettyName arg-17 e-11) eta-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref act-27 1))) (CoreC-45UnifyState-genWithName arg-17 arg-15 e-12 eta-0))))))))))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref act-26 1))) (let ((act-27 (CoreC-45Context-addDef arg-17 e-11 (let ((sc6 (CoreC-45Context-newDef (TTImpC-45ProcessDef-n--13735-6495-u--vfc arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) e-11 (let ((sc7 (AlgebraC-45Semiring-isErased (cons (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-51) (lambda (arg-52) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-51 arg-52))) (lambda (arg-51) (lambda (arg-52) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-51 arg-52))))) arg-14))) (cond ((equal? sc7 1) (AlgebraC-45Semiring-erased (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)))) (else (AlgebraC-45ZeroOneOmega-u--top_Top_ZeroOneOmega)))) arg-6 e-10 arg-13 (vector 0 )))) (let ((e-0 (vector-ref sc6 0))) (let ((e-28 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((e-3 (vector-ref sc6 3))) (let ((e-4 (vector-ref sc6 4))) (let ((e-27 (vector-ref sc6 5))) (let ((e-26 (vector-ref sc6 6))) (let ((e-25 (vector-ref sc6 7))) (let ((e-24 (vector-ref sc6 8))) (let ((e-23 (vector-ref sc6 9))) (let ((e-22 (vector-ref sc6 10))) (let ((e-21 (vector-ref sc6 11))) (let ((e-12 (vector-ref sc6 12))) (let ((e-13 (vector-ref sc6 13))) (let ((e-14 (vector-ref sc6 14))) (let ((e-15 (vector-ref sc6 15))) (let ((e-16 (vector-ref sc6 16))) (let ((e-17 (vector-ref sc6 17))) (let ((e-18 (vector-ref sc6 18))) (let ((e-19 (vector-ref sc6 19))) (let ((e-20 (vector-ref sc6 20))) (vector e-0 e-28 e-2 e-3 e-4 e-27 e-26 e-25 e-24 e-23 e-22 (cons (vector 4 arg-12) e-21) e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20))))))))))))))))))))))) eta-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((u--toWarg (PreludeC-45Basics-flip (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (PreludeC-45Types-maybe eta-1 eta-2 eta-3)))) (lambda () (lambda (u--pn) (cons (cons '() (vector 0 (TTImpC-45ProcessDef-n--13735-6495-u--vfc arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (Builtin-snd u--pn))) '()))) (lambda () (cons (cons '() arg-3) (if (null? arg-2) '() (let ((u--fc (CoreC-45FC-emptyFC))) (let ((u--refl (vector 0 u--fc (vector 0 (CoreC-45NameC-45Namespace-builtinNS) (vector 1 "Refl"))))) (cons (cons arg-2 (vector 10 u--fc u--refl (vector 1 "x") arg-3)) '()))))))))) (let ((u--rhs_in (TTImpC-45TTImp-gapply (vector 0 (TTImpC-45ProcessDef-n--13735-6495-u--vfc arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) e-11) (PreludeC-45TypesC-45List-C-43C-43 (PreludeC-45Types-u--map_Functor_List (lambda (u--nm) (cons '() (vector 0 (TTImpC-45ProcessDef-n--13735-6495-u--vfc arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) u--nm))) e-9) (PreludeC-45Interfaces-concatMap (cons (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (cons (lambda (arg-51) (lambda (arg-52) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-51 arg-52))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) u--toWarg u--wargNames))))) (let ((act-28 (CoreC-45ContextC-45Log-log arg-17 "declare.def.clause" (+ 1 (+ 1 (+ 1 0))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Applying to with argument " (TTImpC-45TTImp-u--show_Show_RawImp u--rhs_in))) eta-0))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((act-29 (let ((act-29 (CoreC-45Context-getFullName arg-17 (vector 9 arg-10) eta-0))) (case (vector-ref act-29 0) ((0) (let ((e-2 (vector-ref act-29 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref act-29 1))) ((TTImpC-45ElabC-45Utils-wrapErrorC arg-9 (lambda (eta-1) (vector 65 arg-5 e-14 eta-1)) (lambda (eta-1) (TTImpC-45Elab-checkTermSub arg-6 arg-19 arg-17 arg-16 arg-15 arg-10 arg-26 arg-9 arg-22 arg-21 arg-7 arg-20 u--rhs_in (CoreC-45Normalise-gnf arg-19 arg-21 arg-24) eta-1))) eta-0))))))) (case (vector-ref act-29 0) ((0) (let ((e-2 (vector-ref act-29 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref act-29 1))) (let ((act-30 (CoreC-45Core-traverseC-39 (lambda (eta-1) (lambda (eta-2) (TTImpC-45ProcessDef-n--13735-6498-u--mkClauseWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 (+ 1 0) e-11 u--wargNames arg-18 eta-1 eta-2))) arg-0 '() eta-0))) (case (vector-ref act-30 0) ((0) (let ((e-2 (vector-ref act-30 1))) (vector 0 e-2))) (else (let ((e-15 (vector-ref act-30 1))) (let ((act-31 (CoreC-45ContextC-45Log-log arg-17 "declare.def.clause.with" (+ 1 (+ 1 (+ 1 0))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "With clauses: " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (TTImpC-45TTImp-u--show_Show_ImpClause u--x)) (lambda (u--d) (lambda (u--x) (TTImpC-45TTImp-u--showPrec_Show_ImpClause u--d u--x)))) e-15))) eta-0))) (case (vector-ref act-31 0) ((0) (let ((e-2 (vector-ref act-31 1))) (vector 0 e-2))) (else (let ((act-32 (TTImpC-45ProcessDef-applyEnv arg-6 arg-17 arg-7 e-11 eta-0))) (case (vector-ref act-32 0) ((0) (let ((e-2 (vector-ref act-32 1))) (vector 0 e-2))) (else (let ((e-17 (vector-ref act-32 1))) (let ((u--nestC-39C-39 (cons e-17 arg-8))) (let ((u--wdef (vector 2 arg-5 e-11 e-15))) (let ((act-33 ((TTImpC-45ElabC-45Check-processDecl arg-6 arg-17 arg-16 arg-15 '() u--nestC-39C-39 arg-7 u--wdef) eta-0))) (case (vector-ref act-33 0) ((0) (let ((e-2 (vector-ref act-33 1))) (vector 0 e-2))) (else (vector 1 (vector 1 (vector arg-19 arg-21 arg-23 e-14))))))))))))))))))))))))))))))))))))))))))))))))))) +(define TTImpC-45ProcessDef-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkClause-7847 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 arg-38 ext-0) (if (null? arg-38) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 "Impossible happened: With abstraction failure #3") ext-0) (let ((e-1 (unbox arg-38))) (let ((act-24 ((TTImpC-45ProcessDef-n--13735-6496-u--bindWithArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-37 (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (PreludeC-45Types-u--map_Functor_Maybe eta-2 eta-3))))) (lambda (__leftTupleSection-0) (cons __leftTupleSection-0 arg-36)) arg-2) e-1) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((e-2 (car e-5))) (let ((e-3 (cdr e-5))) (let ((e-6 (car e-3))) (let ((e-7 (cdr e-3))) (let ((e-10 (car e-7))) (let ((e-11 (cdr e-7))) (let ((u--bnr (TTImpC-45ElabC-45Utils-bindNotReq arg-19 (TTImpC-45ProcessDef-n--13735-6495-u--vfc arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) 0 arg-21 arg-35 '() arg-24))) (let ((u--notreqns (Builtin-fst u--bnr))) (let ((u--notreqty (Builtin-snd u--bnr))) (let ((act-25 (let ((sc5 (PreludeC-45Types-elem (cons (lambda (arg-39) (lambda (arg-40) (TTImpC-45TTImp-u--C-61C-61_Eq_WithFlag arg-39 arg-40))) (lambda (arg-39) (lambda (arg-40) (TTImpC-45TTImp-u--C-47C-61_Eq_WithFlag arg-39 arg-40)))) 0 arg-1))) (cond ((equal? sc5 1) (CoreC-45Context-clearDefs arg-31 ext-0)) (else (vector 1 arg-31)))))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref act-25 1))) (let ((act-26 (let ((act-26 ((CoreC-45Normalise-nf arg-17 (PreludeC-45TypesC-45List-C-43C-43 e-2 arg-34) e-8 e-6 (CoreC-45TT-u--weakenNs_Weaken_Term (CoreC-45TTC-45SizeOf-mkSizeOf e-2) arg-36)) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-4 (vector-ref act-26 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref act-26 1))) (let ((act-27 ((CoreC-45Normalise-nf arg-17 (PreludeC-45TypesC-45List-C-43C-43 e-2 arg-34) e-8 e-6 (CoreC-45TT-u--weakenNs_Weaken_Term (CoreC-45TTC-45SizeOf-mkSizeOf e-2) u--notreqty)) ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-4 (vector-ref act-27 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref act-27 1))) (CoreC-45Normalise-replace arg-17 (PreludeC-45TypesC-45List-C-43C-43 e-2 arg-34) e-8 e-6 e-9 e-10 e-12 ext-0))))))))))) (case (vector-ref act-26 0) ((0) (let ((e-4 (vector-ref act-26 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref act-26 1))) (let ((u--bNotReq (e-11 e-9))) (let ((_-0 (cons e-2 (cons e-6 (cons e-10 e-11))))) ((TTImpC-45ProcessDef-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkClause-8297 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 e-1 e-2 e-6 e-10 e-11 _-0 u--bnr u--notreqns u--notreqty e-8 e-9 u--bNotReq (TTImpC-45ElabC-45Utils-bindReq arg-19 (TTImpC-45ProcessDef-n--13735-6495-u--vfc arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) arg-21 arg-35 '() u--bNotReq)) ext-0)))))))))))))))))))))))))))) +(define TTImpC-45ProcessDef-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkClause-7572 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 ext-0) (let ((e-2 (car arg-34))) (let ((e-3 (cdr arg-34))) (let ((act-24 (CoreC-45ContextC-45Log-logTerm arg-19 arg-17 "declare.def.clause.with" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "With value type") arg-33 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((act-25 (CoreC-45ContextC-45Log-log arg-17 "declare.def.clause.with" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Using vars " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45Name-u--show_Show_Name u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Name-u--showPrec_Show_Name u--d u--x)))) e-2))) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((sc3 (CoreC-45TT-shrinkTerm arg-32 e-3))) (if (null? sc3) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 "Impossible happened: With abstraction failure #1") ext-0) (let ((e-1 (unbox sc3))) (let ((sc4 (CoreC-45TT-shrinkTerm arg-33 e-3))) (if (null? sc4) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 "Impossible happened: With abstraction failure #2") ext-0) (let ((e-4 (unbox sc4))) (TTImpC-45ProcessDef-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkClause-7847 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 e-2 e-3 e-1 e-4 (CoreC-45Env-shrinkEnv arg-21 e-3) ext-0))))))))))))))))) +(define TTImpC-45ProcessDef-case--combineLinear-4844 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (if (null? arg-4) (let ((act-24 ((TTImpC-45ProcessDef-combineLinear arg-3 arg-2) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (cons (cons arg-0 arg-1) e-5)))))) (let ((act-24 (TTImpC-45ProcessDef-n--12676-4691-u--combineAll arg-0 arg-1 arg-2 arg-3 arg-1 arg-4 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((TTImpC-45ProcessDef-combineLinear arg-3 (DataC-45List-filter (lambda (eta-0) (TTImpC-45ProcessDef-n--12676-4688-u--notN arg-0 arg-1 arg-2 arg-3 eta-0)) arg-2)) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (cons (cons arg-0 e-5) e-6))))))))))))) +(define TTImpC-45ProcessDef-case--findLinear-4386 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (if (null? arg-6) (lambda (eta-0) (vector 1 '())) (let ((e-2 (car arg-6))) (let ((e-3 (cdr arg-6))) (lambda (clam-0) (case (vector-ref e-2 0) ((1) (let ((e-6 (vector-ref e-2 2))) (let ((e-7 (vector-ref e-2 3))) (if (null? e-3) (vector 1 '()) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-lookupTyExact e-7 (let ((e-0 (vector-ref e-8 0))) e-0) clam-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref act-25 1))) (if (null? e-9) (vector 1 '()) (let ((e-1 (unbox e-9))) (let ((act-26 ((CoreC-45Normalise-nf arg-5 '() e-8 '() e-1) clam-0))) (case (vector-ref act-26 0) ((0) (let ((e-4 (vector-ref act-26 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref act-26 1))) ((TTImpC-45ProcessDef-n--11951-4059-u--findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-0 (TTImpC-45ProcessDef-n--11951-4058-u--accessible arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-6 arg-2) e-10 e-3) clam-0)))))))))))))))))))(else (vector 1 '()))))))))) +(define TTImpC-45ProcessDef-n--20592-11371-u--withTotality (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-11 arg-12 ext-0) (let ((act-24 (CoreC-45Context-getDefaultTotalityOption arg-9 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-setDefaultTotalityOption arg-9 arg-11 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45Core-u--catch_Catchable_Core_Error (arg-12) (lambda (u--error) (lambda (eta-0) (let ((act-26 (CoreC-45Context-setDefaultTotalityOption arg-9 e-5 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (CoreC-45Core-u--throw_Catchable_Core_Error u--error eta-0)))))) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (CoreC-45Context-setDefaultTotalityOption arg-9 e-5 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (vector 1 e-7))))))))))))))))) +(define TTImpC-45ProcessDef-n--14895-6676-u--wargs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35) (cons arg-18 (cons (TTImpC-45ProcessDef-n--14895-6675-u--wargn arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35) '())))) +(define TTImpC-45ProcessDef-n--14796-6515-u--wargs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-19 arg-20) (cons (TTImpC-45ProcessDef-n--14796-6514-u--wargn arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-19 arg-20) '()))) +(define TTImpC-45ProcessDef-n--14895-6675-u--wargn (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35) (vector 2 "warg" 0))) +(define TTImpC-45ProcessDef-n--14796-6514-u--wargn (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-19 arg-20) (vector 2 "warg" 0))) +(define TTImpC-45ProcessDef-n--13735-6495-u--vfc (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (CoreC-45FC-virtualiseFC arg-5))) +(define TTImpC-45ProcessDef-n--19566-10469-u--toErased (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((e-2 (car arg-7))) (let ((e-3 (cdr arg-7))) (lambda (clam-0) (let ((e-6 (car e-3))) (let ((e-7 (cdr e-3))) (let ((e-10 (car e-7))) (let ((e-11 (cdr e-7))) (let ((act-24 (CoreC-45LinearCheck-linearCheck e-2 arg-4 arg-2 arg-5 (AlgebraC-45Semiring-linear (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))) 1 e-6 e-10 clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Transform-applyTransforms arg-4 e-6 e-11) clam-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref act-25 1))) (let ((act-26 ((TTImpC-45PartialEval-applySpecialise e-2 arg-4 arg-3 arg-2 e-6 arg-6 e-8) clam-0))) (case (vector-ref act-26 0) ((0) (let ((e-4 (vector-ref act-26 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref act-26 1))) (let ((act-27 (CoreC-45LinearCheck-linearCheck e-2 arg-4 arg-2 arg-5 (AlgebraC-45Semiring-linear (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))) 1 e-6 e-9 clam-0))) (case (vector-ref act-27 0) ((0) (let ((e-4 (vector-ref act-27 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref act-27 1))) (vector 1 (cons e-2 (cons e-6 (cons e-5 e-12))))))))))))))))))))))))))))) +(define TTImpC-45ProcessDef-n--19566-10470-u--toClause (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((e-2 (car arg-6))) (let ((e-3 (cdr arg-6))) (let ((e-6 (car e-3))) (let ((e-7 (cdr e-3))) (let ((e-10 (car e-7))) (let ((e-11 (cdr e-7))) (vector e-2 e-6 e-10 e-11))))))))) +(define TTImpC-45ProcessDef-n--20592-11372-u--simplePat (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-11) (case (vector-ref arg-11 0) ((0) 1) ((10) 1) ((5) (let ((e-13 (vector-ref arg-11 4))) (TTImpC-45ProcessDef-n--20592-11372-u--simplePat arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-13)))(else 0)))) +(define TTImpC-45ProcessDef-n--12676-4688-u--notN (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((e-2 (car arg-4))) (CoreC-45Name-u--C-47C-61_Eq_Name arg-0 e-2)))) +(define TTImpC-45ProcessDef-n--19566-10462-u--noInline (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (if (null? arg-5) 1 (let ((e-1 (car arg-5))) (let ((e-2 (cdr arg-5))) (case (vector-ref e-1 0) ((0) 0)(else (TTImpC-45ProcessDef-n--19566-10462-u--noInline arg-0 arg-1 arg-2 arg-3 arg-4 e-2)))))))) +(define TTImpC-45ProcessDef-n--19566-10464-u--mkCrash (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (CoreC-45TT-apply arg-1 (vector 1 arg-1 (vector 1 ) (vector 0 (CoreC-45NameC-45Namespace-builtinNS) (vector 1 "idris_crash"))) (cons (vector 10 arg-1 0) (cons (vector 9 arg-1 (vector 10 arg-6)) '()))))) +(define TTImpC-45ProcessDef-n--13735-6498-u--mkClauseWith (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 ext-0) (case (vector-ref arg-22 0) ((0) (let ((e-0 (vector-ref arg-22 1))) (let ((e-1 (vector-ref arg-22 2))) (let ((e-2 (vector-ref arg-22 3))) (let ((act-24 (CoreC-45ContextC-45Log-log arg-17 "declare.def.clause.with" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))))))))))))) (lambda () "PatClause") ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (let ((act-25 ((TTImpC-45WithClause-getNewLHS arg-17 arg-16 e-0 arg-18 arg-8 arg-19 arg-20 arg-21 e-1) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-3 (vector-ref act-25 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 ((TTImpC-45WithClause-withRHS arg-17 arg-16 e-0 arg-18 arg-19 arg-20 e-2 arg-21) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-3 (vector-ref act-26 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (vector 0 e-0 e-6 e-7))))))))))))))))) ((1) (let ((e-3 (vector-ref arg-22 1))) (let ((e-4 (vector-ref arg-22 2))) (let ((e-5 (vector-ref arg-22 3))) (let ((e-6 (vector-ref arg-22 4))) (let ((e-7 (vector-ref arg-22 5))) (let ((e-8 (vector-ref arg-22 6))) (let ((act-24 (CoreC-45ContextC-45Log-log arg-17 "declare.def.clause.with" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))))))))))))) (lambda () "WithClause") ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 ((TTImpC-45WithClause-getNewLHS arg-17 arg-16 e-3 arg-18 arg-8 arg-19 arg-20 arg-21 e-4) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref act-25 1))) (let ((act-26 ((TTImpC-45WithClause-withRHS arg-17 arg-16 e-3 arg-18 arg-19 arg-20 e-5 arg-21) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref act-26 1))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (TTImpC-45ProcessDef-n--13735-6498-u--mkClauseWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 (+ 1 arg-18) arg-19 arg-20 arg-21 eta-0 eta-1))) e-8 '() ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref act-27 1))) (vector 1 (vector 1 e-3 e-10 e-11 e-6 e-7 e-12)))))))))))))))))))))))) (else (let ((e-9 (vector-ref arg-22 1))) (let ((e-10 (vector-ref arg-22 2))) (let ((act-24 (CoreC-45ContextC-45Log-log arg-17 "declare.def.clause.with" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))))))))))))) (lambda () "ImpossibleClause") ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 ((TTImpC-45WithClause-getNewLHS arg-17 arg-16 e-9 arg-18 arg-8 arg-19 arg-20 arg-21 e-10) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (vector 2 e-9 e-6))))))))))))))) +(define TTImpC-45ProcessDef-n--19566-10465-u--matchAny (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-6) (case (vector-ref arg-6 0) ((4) (let ((e-1 (vector-ref arg-6 1))) (let ((e-2 (vector-ref arg-6 2))) (vector 4 e-1 (TTImpC-45ProcessDef-n--19566-10465-u--matchAny arg-0 arg-1 arg-2 arg-3 arg-4 e-2) (vector 10 e-1 0)))))(else arg-6)))) +(define TTImpC-45ProcessDef-n--19566-10466-u--makeErrorClause (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (vector arg-5 arg-6 (TTImpC-45ProcessDef-n--19566-10465-u--matchAny arg-0 arg-1 arg-2 arg-3 arg-4 arg-7) (TTImpC-45ProcessDef-n--19566-10464-u--mkCrash arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (PreludeC-45TypesC-45String-C-43C-43 "Unhandled input for " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name arg-0) (PreludeC-45TypesC-45String-C-43C-43 " at " (CoreC-45FC-u--show_Show_FC arg-1)))))))) +(define TTImpC-45ProcessDef-n--12676-4689-u--lookupAll (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (if (null? arg-5) '() (let ((e-2 (car arg-5))) (let ((e-3 (cdr arg-5))) (let ((e-6 (car e-2))) (let ((e-7 (cdr e-2))) (let ((sc2 (CoreC-45Name-u--C-61C-61_Eq_Name arg-4 e-6))) (cond ((equal? sc2 1) (cons e-7 (TTImpC-45ProcessDef-n--12676-4689-u--lookupAll arg-0 arg-1 arg-2 arg-3 arg-4 e-3))) (else (TTImpC-45ProcessDef-n--12676-4689-u--lookupAll arg-0 arg-1 arg-2 arg-3 arg-4 e-3))))))))))) +(define TTImpC-45ProcessDef-n--13735-6497-u--keepOldEnv (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-20 arg-21 arg-22) (case (vector-ref arg-21 0) ((0) (cons arg-20 (vector 0 )))(else (case (vector-ref arg-22 0) ((0) (cons arg-20 (vector 0 )))(else (let ((e-1 (car arg-20))) (let ((e-2 (cdr arg-20))) (case (vector-ref arg-21 0) ((1) (let ((e-6 (vector-ref arg-21 1))) (case (vector-ref arg-22 0) ((1) (let ((e-14 (vector-ref arg-22 1))) (let ((sc3 (TTImpC-45ProcessDef-n--13735-6497-u--keepOldEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 e-2 e-6 e-14))) (let ((e-4 (car sc3))) (let ((e-3 (cdr sc3))) (cons e-4 (vector 1 e-3))))))) (else (let ((e-18 (vector-ref arg-22 1))) (let ((sc3 (TTImpC-45ProcessDef-n--13735-6497-u--keepOldEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 e-2 e-6 e-18))) (let ((e-4 (car sc3))) (let ((e-3 (cdr sc3))) (cons (cons e-1 e-4) (vector 2 e-3)))))))))) (else (let ((e-10 (vector-ref arg-21 1))) (case (vector-ref arg-22 0) ((1) (let ((e-22 (vector-ref arg-22 1))) (let ((sc3 (TTImpC-45ProcessDef-n--13735-6497-u--keepOldEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 e-2 e-10 e-22))) (let ((e-4 (car sc3))) (let ((e-3 (cdr sc3))) (cons (cons e-1 e-4) (vector 2 e-3))))))) (else (let ((e-26 (vector-ref arg-22 1))) (let ((sc3 (TTImpC-45ProcessDef-n--13735-6497-u--keepOldEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 e-2 e-10 e-26))) (let ((e-4 (car sc3))) (let ((e-3 (cdr sc3))) (cons (cons e-1 e-4) (vector 2 e-3))))))))))))))))))) +(define TTImpC-45ProcessDef-n--19566-10468-u--getSpec (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (if (null? arg-5) '() (let ((e-2 (car arg-5))) (let ((e-3 (cdr arg-5))) (case (vector-ref e-2 0) ((7) (let ((e-4 (vector-ref e-2 1))) (box e-4)))(else (TTImpC-45ProcessDef-n--19566-10468-u--getSpec arg-0 arg-1 arg-2 arg-3 arg-4 e-3)))))))) +(define TTImpC-45ProcessDef-n--20592-11375-u--getClause (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 ext-0) (case (vector-ref arg-10 0) ((0) (let ((e-2 (vector-ref arg-10 1))) (CoreC-45Core-u--catch_Catchable_Core_Error (lambda (eta-0) (let ((act-24 (TTImpC-45Impossible-getImpossibleTerm arg-0 arg-9 arg-4 arg-5 e-2 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45ContextC-45Log-log arg-9 "declare.def.impossible" (+ 1 (+ 1 (+ 1 0))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Generated impossible LHS: " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-5))) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-3 (vector-ref act-25 1))) (vector 0 e-3))) (else (vector 1 (box (vector '() '() e-5 (vector 10 (TTImpC-45TTImp-getFC e-2) 1)))))))))))) (lambda (u--e) (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-log arg-9 "declare.def" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Error in getClause " (CoreC-45Core-u--show_Show_Error u--e))) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (vector 1 '())))))) ext-0))) (else (let ((e-5 (vector-ref arg-10 1))) (vector 1 (box e-5))))))) +(define TTImpC-45ProcessDef-n--11951-4059-u--findLinArg (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (if (null? arg-9) (case (vector-ref arg-8 0) ((0) (let ((e-5 (vector-ref arg-8 1))) (let ((e-6 (vector-ref arg-8 2))) (let ((e-7 (vector-ref arg-8 3))) (let ((e-8 (vector-ref arg-8 4))) (case (vector-ref e-7 0) ((2) (let ((e-11 (vector-ref e-7 2))) (lambda (clam-2) (if (null? arg-9) (if (null? arg-9) (vector 1 '()) (let ((e-1 (car arg-9))) (let ((e-2 (cdr arg-9))) (let ((act-24 ((TTImpC-45ProcessDef-findLinear arg-6 arg-5 0 arg-3 arg-7 e-1) clam-2))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref act-24 1))) (let ((act-25 ((TTImpC-45ProcessDef-n--11951-4059-u--findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2) clam-2))) (case (vector-ref act-25 0) ((0) (let ((e-3 (vector-ref act-25 1))) (vector 0 e-3))) (else (let ((e-14 (vector-ref act-25 1))) (vector 1 (PreludeC-45TypesC-45List-C-43C-43 e-9 e-14))))))))))))) (let ((e-15 (car arg-9))) (let ((e-16 (cdr arg-9))) (case (vector-ref e-15 0) ((0) (let ((e-19 (vector-ref e-15 1))) (let ((e-21 (vector-ref e-15 3))) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-24 1))) (let ((u--a (CoreC-45TT-nameAt arg-6 e-21))) (let ((sc6 (PreludeC-45Types-u--C-60_Ord_Nat e-21 arg-3))) (cond ((equal? sc6 1) (let ((act-25 (((e-8 e-9) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 1 e-19 (vector 0 ) e-6))) clam-2))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref act-25 1))) (let ((act-26 ((TTImpC-45ProcessDef-n--11951-4059-u--findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-14 e-16) clam-2))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-17 (vector-ref act-26 1))) (vector 1 (cons (cons u--a (AlgebraC-45ZeroOneOmega-rigMult e-11 arg-7)) e-17))))))))))) (else (let ((act-25 (((e-8 e-9) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 1 e-19 (vector 0 ) e-6))) clam-2))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref act-25 1))) ((TTImpC-45ProcessDef-n--11951-4059-u--findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-14 e-16) clam-2))))))))))))))))(else (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-24 1))) (let ((act-25 ((TTImpC-45ProcessDef-findLinear arg-6 arg-5 0 arg-3 (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega e-11 arg-7) e-15) clam-2))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref act-25 1))) (let ((act-26 (((e-8 e-9) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 1 e-5 (vector 0 ) e-6))) clam-2))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-17 (vector-ref act-26 1))) (let ((act-27 ((TTImpC-45ProcessDef-n--11951-4059-u--findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-17 e-16) clam-2))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-18 (vector-ref act-27 1))) (vector 1 (PreludeC-45TypesC-45List-C-43C-43 e-14 e-18))))))))))))))))))))))))))(else (lambda (clam-10) (if (null? arg-9) (vector 1 '()) (let ((e-1 (car arg-9))) (let ((e-2 (cdr arg-9))) (let ((act-24 ((TTImpC-45ProcessDef-findLinear arg-6 arg-5 0 arg-3 arg-7 e-1) clam-10))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref act-24 1))) (let ((act-25 ((TTImpC-45ProcessDef-n--11951-4059-u--findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2) clam-10))) (case (vector-ref act-25 0) ((0) (let ((e-3 (vector-ref act-25 1))) (vector 0 e-3))) (else (let ((e-10 (vector-ref act-25 1))) (vector 1 (PreludeC-45TypesC-45List-C-43C-43 e-9 e-10)))))))))))))))))))))(else (lambda (clam-11) (if (null? arg-9) (vector 1 '()) (let ((e-1 (car arg-9))) (let ((e-2 (cdr arg-9))) (let ((act-24 ((TTImpC-45ProcessDef-findLinear arg-6 arg-5 0 arg-3 arg-7 e-1) clam-11))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((TTImpC-45ProcessDef-n--11951-4059-u--findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2) clam-11))) (case (vector-ref act-25 0) ((0) (let ((e-3 (vector-ref act-25 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (PreludeC-45TypesC-45List-C-43C-43 e-5 e-6)))))))))))))))) (let ((e-24 (car arg-9))) (let ((e-25 (cdr arg-9))) (case (vector-ref e-24 0) ((5) (let ((e-28 (vector-ref e-24 2))) (let ((e-29 (vector-ref e-24 3))) (let ((e-30 (vector-ref e-24 4))) (cond ((equal? e-28 0) (TTImpC-45ProcessDef-n--11951-4059-u--findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (cons e-30 e-25))) ((equal? e-28 1) (TTImpC-45ProcessDef-n--11951-4059-u--findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (cons e-29 e-25)))(else (case (vector-ref arg-8 0) ((0) (let ((e-5 (vector-ref arg-8 1))) (let ((e-6 (vector-ref arg-8 2))) (let ((e-7 (vector-ref arg-8 3))) (let ((e-8 (vector-ref arg-8 4))) (case (vector-ref e-7 0) ((2) (let ((e-11 (vector-ref e-7 2))) (lambda (clam-0) (if (null? arg-9) (if (null? arg-9) (vector 1 '()) (let ((e-1 (car arg-9))) (let ((e-2 (cdr arg-9))) (let ((act-24 ((TTImpC-45ProcessDef-findLinear arg-6 arg-5 0 arg-3 arg-7 e-1) clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref act-24 1))) (let ((act-25 ((TTImpC-45ProcessDef-n--11951-4059-u--findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2) clam-0))) (case (vector-ref act-25 0) ((0) (let ((e-3 (vector-ref act-25 1))) (vector 0 e-3))) (else (let ((e-14 (vector-ref act-25 1))) (vector 1 (PreludeC-45TypesC-45List-C-43C-43 e-9 e-14))))))))))))) (let ((e-15 (car arg-9))) (let ((e-16 (cdr arg-9))) (case (vector-ref e-15 0) ((0) (let ((e-19 (vector-ref e-15 1))) (let ((e-21 (vector-ref e-15 3))) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-24 1))) (let ((u--a (CoreC-45TT-nameAt arg-6 e-21))) (let ((sc7 (PreludeC-45Types-u--C-60_Ord_Nat e-21 arg-3))) (cond ((equal? sc7 1) (let ((act-25 (((e-8 e-9) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 1 e-19 (vector 0 ) e-6))) clam-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref act-25 1))) (let ((act-26 ((TTImpC-45ProcessDef-n--11951-4059-u--findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-14 e-16) clam-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-17 (vector-ref act-26 1))) (vector 1 (cons (cons u--a (AlgebraC-45ZeroOneOmega-rigMult e-11 arg-7)) e-17))))))))))) (else (let ((act-25 (((e-8 e-9) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 1 e-19 (vector 0 ) e-6))) clam-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref act-25 1))) ((TTImpC-45ProcessDef-n--11951-4059-u--findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-14 e-16) clam-0))))))))))))))))(else (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-24 1))) (let ((act-25 ((TTImpC-45ProcessDef-findLinear arg-6 arg-5 0 arg-3 (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega e-11 arg-7) e-15) clam-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref act-25 1))) (let ((act-26 (((e-8 e-9) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 1 e-5 (vector 0 ) e-6))) clam-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-17 (vector-ref act-26 1))) (let ((act-27 ((TTImpC-45ProcessDef-n--11951-4059-u--findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-17 e-16) clam-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-18 (vector-ref act-27 1))) (vector 1 (PreludeC-45TypesC-45List-C-43C-43 e-14 e-18))))))))))))))))))))))))))(else (lambda (clam-2) (if (null? arg-9) (vector 1 '()) (let ((e-1 (car arg-9))) (let ((e-2 (cdr arg-9))) (let ((act-24 ((TTImpC-45ProcessDef-findLinear arg-6 arg-5 0 arg-3 arg-7 e-1) clam-2))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref act-24 1))) (let ((act-25 ((TTImpC-45ProcessDef-n--11951-4059-u--findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2) clam-2))) (case (vector-ref act-25 0) ((0) (let ((e-3 (vector-ref act-25 1))) (vector 0 e-3))) (else (let ((e-10 (vector-ref act-25 1))) (vector 1 (PreludeC-45TypesC-45List-C-43C-43 e-9 e-10)))))))))))))))))))))(else (lambda (clam-3) (if (null? arg-9) (vector 1 '()) (let ((e-1 (car arg-9))) (let ((e-2 (cdr arg-9))) (let ((act-24 ((TTImpC-45ProcessDef-findLinear arg-6 arg-5 0 arg-3 arg-7 e-1) clam-3))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((TTImpC-45ProcessDef-n--11951-4059-u--findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2) clam-3))) (case (vector-ref act-25 0) ((0) (let ((e-3 (vector-ref act-25 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (PreludeC-45TypesC-45List-C-43C-43 e-5 e-6))))))))))))))))))))))(else (case (vector-ref arg-8 0) ((0) (let ((e-5 (vector-ref arg-8 1))) (let ((e-6 (vector-ref arg-8 2))) (let ((e-7 (vector-ref arg-8 3))) (let ((e-8 (vector-ref arg-8 4))) (case (vector-ref e-7 0) ((2) (let ((e-11 (vector-ref e-7 2))) (lambda (clam-1) (if (null? arg-9) (if (null? arg-9) (vector 1 '()) (let ((e-1 (car arg-9))) (let ((e-2 (cdr arg-9))) (let ((act-24 ((TTImpC-45ProcessDef-findLinear arg-6 arg-5 0 arg-3 arg-7 e-1) clam-1))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref act-24 1))) (let ((act-25 ((TTImpC-45ProcessDef-n--11951-4059-u--findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2) clam-1))) (case (vector-ref act-25 0) ((0) (let ((e-3 (vector-ref act-25 1))) (vector 0 e-3))) (else (let ((e-14 (vector-ref act-25 1))) (vector 1 (PreludeC-45TypesC-45List-C-43C-43 e-9 e-14))))))))))))) (let ((e-15 (car arg-9))) (let ((e-16 (cdr arg-9))) (case (vector-ref e-15 0) ((0) (let ((e-19 (vector-ref e-15 1))) (let ((e-21 (vector-ref e-15 3))) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-24 1))) (let ((u--a (CoreC-45TT-nameAt arg-6 e-21))) (let ((sc6 (PreludeC-45Types-u--C-60_Ord_Nat e-21 arg-3))) (cond ((equal? sc6 1) (let ((act-25 (((e-8 e-9) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 1 e-19 (vector 0 ) e-6))) clam-1))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref act-25 1))) (let ((act-26 ((TTImpC-45ProcessDef-n--11951-4059-u--findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-14 e-16) clam-1))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-17 (vector-ref act-26 1))) (vector 1 (cons (cons u--a (AlgebraC-45ZeroOneOmega-rigMult e-11 arg-7)) e-17))))))))))) (else (let ((act-25 (((e-8 e-9) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 1 e-19 (vector 0 ) e-6))) clam-1))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref act-25 1))) ((TTImpC-45ProcessDef-n--11951-4059-u--findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-14 e-16) clam-1))))))))))))))))(else (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-24 1))) (let ((act-25 ((TTImpC-45ProcessDef-findLinear arg-6 arg-5 0 arg-3 (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega e-11 arg-7) e-15) clam-1))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref act-25 1))) (let ((act-26 (((e-8 e-9) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 1 e-5 (vector 0 ) e-6))) clam-1))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-17 (vector-ref act-26 1))) (let ((act-27 ((TTImpC-45ProcessDef-n--11951-4059-u--findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-17 e-16) clam-1))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-18 (vector-ref act-27 1))) (vector 1 (PreludeC-45TypesC-45List-C-43C-43 e-14 e-18))))))))))))))))))))))))))(else (lambda (clam-6) (if (null? arg-9) (vector 1 '()) (let ((e-1 (car arg-9))) (let ((e-2 (cdr arg-9))) (let ((act-24 ((TTImpC-45ProcessDef-findLinear arg-6 arg-5 0 arg-3 arg-7 e-1) clam-6))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref act-24 1))) (let ((act-25 ((TTImpC-45ProcessDef-n--11951-4059-u--findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2) clam-6))) (case (vector-ref act-25 0) ((0) (let ((e-3 (vector-ref act-25 1))) (vector 0 e-3))) (else (let ((e-10 (vector-ref act-25 1))) (vector 1 (PreludeC-45TypesC-45List-C-43C-43 e-9 e-10)))))))))))))))))))))(else (lambda (clam-7) (if (null? arg-9) (vector 1 '()) (let ((e-1 (car arg-9))) (let ((e-2 (cdr arg-9))) (let ((act-24 ((TTImpC-45ProcessDef-findLinear arg-6 arg-5 0 arg-3 arg-7 e-1) clam-7))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((TTImpC-45ProcessDef-n--11951-4059-u--findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2) clam-7))) (case (vector-ref act-25 0) ((0) (let ((e-3 (vector-ref act-25 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (PreludeC-45TypesC-45List-C-43C-43 e-5 e-6))))))))))))))))))))))) +(define TTImpC-45ProcessDef-n--18947-9941-u--dropErased (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (if (null? arg-4) (vector 1 arg-5) (let ((e-2 (car arg-4))) (let ((e-3 (cdr arg-4))) (let ((act-24 (let ((act-24 (unbox arg-3))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact e-2 (let ((e-0 (vector-ref e-5 0))) e-0)) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref act-25 1))) (if (null? e-6) (TTImpC-45ProcessDef-n--18947-9941-u--dropErased arg-0 arg-1 arg-2 arg-3 e-3 arg-5 ext-0) (let ((e-1 (unbox e-6))) (let ((sc4 (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega (let ((e-7 (vector-ref e-1 7))) e-7) (AlgebraC-45Semiring-erased (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)))))) (cond ((equal? sc4 1) (TTImpC-45ProcessDef-n--18947-9941-u--dropErased arg-0 arg-1 arg-2 arg-3 e-3 arg-5 ext-0)) (else (TTImpC-45ProcessDef-n--18947-9941-u--dropErased arg-0 arg-1 arg-2 arg-3 e-3 (LibrariesC-45DataC-45NameMap-delete e-2 arg-5) ext-0))))))))))))))))))) +(define TTImpC-45ProcessDef-n--12676-4691-u--combineAll (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (if (null? arg-5) (vector 1 arg-4) (let ((e-2 (car arg-5))) (let ((e-3 (cdr arg-5))) (let ((act-24 (TTImpC-45ProcessDef-n--12676-4690-u--combine arg-0 arg-1 arg-2 arg-3 arg-4 e-2 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (TTImpC-45ProcessDef-n--12676-4691-u--combineAll arg-0 arg-1 arg-2 arg-3 e-5 e-3 ext-0)))))))))) +(define TTImpC-45ProcessDef-n--12676-4690-u--combine (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((sc0 (let ((sc1 (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-4 arg-5) (AlgebraC-45ZeroOneOmega-u--top_Top_ZeroOneOmega)))) (cond ((equal? sc1 1) (let ((sc2 (AlgebraC-45Semiring-isErased (cons (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-6) (lambda (arg-7) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-6 arg-7))) (lambda (arg-6) (lambda (arg-7) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-6 arg-7))))) (AlgebraC-45Preorder-glb (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-60C-61_Preorder_ZeroOneOmega arg-333 arg-334))) (lambda (u--x) (AlgebraC-45ZeroOneOmega-u--preorderRefl_Preorder_ZeroOneOmega u--x)) (lambda (u--x) (lambda (u--y) (lambda (u--z) (lambda (arg-338) (lambda (arg-342) (AlgebraC-45ZeroOneOmega-u--preorderTrans_Preorder_ZeroOneOmega u--x u--y u--z arg-338 arg-342))))))) arg-4 arg-5)))) (cond ((equal? sc2 1) 0) (else (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega (AlgebraC-45Preorder-glb (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-60C-61_Preorder_ZeroOneOmega arg-333 arg-334))) (lambda (u--x) (AlgebraC-45ZeroOneOmega-u--preorderRefl_Preorder_ZeroOneOmega u--x)) (lambda (u--x) (lambda (u--y) (lambda (u--z) (lambda (arg-338) (lambda (arg-342) (AlgebraC-45ZeroOneOmega-u--preorderTrans_Preorder_ZeroOneOmega u--x u--y u--z arg-338 arg-342))))))) arg-4 arg-5) (AlgebraC-45ZeroOneOmega-u--top_Top_ZeroOneOmega)))))) (else 0))))) (cond ((equal? sc0 1) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 13 arg-3 (+ 1 (+ 1 0)) arg-0) ext-0)) (else (vector 1 (AlgebraC-45Preorder-lub (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-60C-61_Preorder_ZeroOneOmega arg-333 arg-334))) (lambda (u--x) (AlgebraC-45ZeroOneOmega-u--preorderRefl_Preorder_ZeroOneOmega u--x)) (lambda (u--x) (lambda (u--y) (lambda (u--z) (lambda (arg-338) (lambda (arg-342) (AlgebraC-45ZeroOneOmega-u--preorderTrans_Preorder_ZeroOneOmega u--x u--y u--z arg-338 arg-342))))))) arg-4 arg-5))))))) +(define TTImpC-45ProcessDef-n--20616-11466-u--closeEnv (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 ext-0) (case (vector-ref arg-14 0) ((0) (let ((e-2 (vector-ref arg-14 2))) (let ((e-3 (vector-ref arg-14 3))) (let ((e-4 (vector-ref arg-14 4))) (case (vector-ref e-3 0) ((3) (let ((act-24 (((e-4 arg-13) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 1 arg-3 (vector 0 ) e-2))) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (TTImpC-45ProcessDef-n--20616-11466-u--closeEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-5 ext-0))))))(else (CoreC-45Normalise-u--quote_Quote_NF arg-9 '() arg-13 '() arg-14 ext-0)))))))(else (CoreC-45Normalise-u--quote_Quote_NF arg-9 '() arg-13 '() arg-14 ext-0))))) +(define TTImpC-45ProcessDef-n--20592-11374-u--checkImpossible (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 ext-0) (let ((act-24 (TTImpC-45Unelab-unelabNoPatvars '() arg-9 '() arg-12 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (CoreC-45UnifyState-handleUnify arg-9 arg-7 (lambda (eta-0) (let ((act-25 (let ((act-25 (unbox arg-9))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45ContextC-45Log-log arg-9 "declare.def.impossible" (+ 1 (+ 1 (+ 1 0))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Checking for impossibility: " (TTImpC-45TTImp-u--show_Show_RawImp e-5))) eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((act-27 (CoreC-45Context-isUnboundImplicits arg-9 eta-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (let ((act-28 (CoreC-45Context-setUnboundImplicits arg-9 1 eta-0))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((act-29 (TTImpC-45BindImplicits-bindNames arg-9 0 e-5 eta-0))) (case (vector-ref act-29 0) ((0) (let ((e-2 (vector-ref act-29 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref act-29 1))) (let ((e-3 (cdr e-10))) (let ((act-30 (CoreC-45Context-setUnboundImplicits arg-9 e-8 eta-0))) (case (vector-ref act-30 0) ((0) (let ((e-4 (vector-ref act-30 1))) (vector 0 e-4))) (else (let ((act-31 ((TTImpC-45Elab-elabTerm '() arg-9 arg-8 arg-7 arg-10 (vector 1 arg-11) '() '() '() (vector 16 arg-3 (vector 1 ) e-3) '()) eta-0))) (case (vector-ref act-31 0) ((0) (let ((e-4 (vector-ref act-31 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref act-31 1))) (let ((e-13 (car e-12))) (let ((act-32 (let ((act-32 (unbox arg-9))) (vector 1 act-32)))) (case (vector-ref act-32 0) ((0) (let ((e-14 (vector-ref act-32 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref act-32 1))) (let ((act-33 (CoreC-45Normalise-normaliseHoles arg-9 '() e-14 '() e-13 eta-0))) (case (vector-ref act-33 0) ((0) (let ((e-15 (vector-ref act-33 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref act-33 1))) (let ((act-34 (TTImpC-45ProcessDef-hasEmptyPat '() arg-9 e-14 '() e-15 eta-0))) (case (vector-ref act-34 0) ((0) (let ((e-16 (vector-ref act-34 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref act-34 1))) (cond ((equal? e-16 1) (let ((act-35 (CoreC-45ContextC-45Log-log arg-9 "declare.def.impossible" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "No empty pat") eta-0))) (case (vector-ref act-35 0) ((0) (let ((e-17 (vector-ref act-35 1))) (vector 0 e-17))) (else (let ((act-36 (let ((act-36 (set-box! arg-9 e-6))) (vector 1 act-36)))) (case (vector-ref act-36 0) ((0) (let ((e-18 (vector-ref act-36 1))) (vector 0 e-18))) (else (vector 1 '())))))))) (else (let ((act-35 (CoreC-45ContextC-45Log-log arg-9 "declare.def.impossible" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Some empty pat") eta-0))) (case (vector-ref act-35 0) ((0) (let ((e-17 (vector-ref act-35 1))) (vector 0 e-17))) (else (let ((act-36 (CoreC-45Context-clearDefs e-6 eta-0))) (case (vector-ref act-36 0) ((0) (let ((e-18 (vector-ref act-36 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref act-36 1))) (let ((act-37 (let ((act-37 ((CoreC-45Normalise-nf arg-9 '() e-18 '() e-15) eta-0))) (case (vector-ref act-37 0) ((0) (let ((e-19 (vector-ref act-37 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref act-37 1))) (TTImpC-45ProcessDef-n--20616-11466-u--closeEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-12 arg-11 arg-10 e-18 e-19 eta-0))))))) (case (vector-ref act-37 0) ((0) (let ((e-19 (vector-ref act-37 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref act-37 1))) (let ((act-38 (let ((act-38 (set-box! arg-9 e-6))) (vector 1 act-38)))) (case (vector-ref act-38 0) ((0) (let ((e-20 (vector-ref act-38 1))) (vector 0 e-20))) (else (vector 1 (box e-19)))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (lambda (u--err) (lambda (eta-0) (let ((act-25 (let ((act-25 (unbox arg-9))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 ((TTImpC-45ProcessDef-recoverableErr arg-9 e-6 u--err) eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (cond ((equal? e-7 1) (vector 1 (box arg-12))) (else (vector 1 '()))))))))))))) ext-0))))))) +(define TTImpC-45ProcessDef-n--20592-11376-u--checkCoverage (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 ext-0) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (TTImpC-45ProcessDef-n--20592-11375-u--getClause arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 eta-0 eta-1))) arg-13 '() ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (CoreC-45Context-toFullNames arg-9 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-2) (CoreC-45Context-u--full_HasNames_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-3) (CoreC-45Context-u--full_HasNames_Clause arg-3843 arg-3844 eta-3)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-3) (CoreC-45Context-u--resolved_HasNames_Clause arg-3843 arg-3844 eta-3))))) arg-3841 arg-3842 eta-2)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-2) (CoreC-45Context-u--resolved_HasNames_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-3) (CoreC-45Context-u--full_HasNames_Clause arg-3841 arg-3842 eta-3)))) (lambda (arg-3845) (lambda (arg-3846) (lambda (eta-3) (CoreC-45Context-u--resolved_HasNames_Clause arg-3845 arg-3846 eta-3))))) arg-3843 arg-3844 eta-2))))) eta-0 eta-1))) e-5 '() ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (CoreC-45ContextC-45Log-log arg-9 "declare.def" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (LibrariesC-45DataC-45StringC-45Extra-unlines (cons "Using clauses :" (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45Show-u--show_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45Context-u--show_Show_Clause u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Context-u--showPrec_Show_Clause u--d u--x)))) eta-0))) e-6)))) ext-0))))))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((u--covcs (DataC-45List-mapMaybe (lambda (eta-0) eta-0) e-5))) (let ((act-26 (CoreC-45CaseBuilder-getPMDef arg-9 arg-3 (box arg-12) (vector 9 arg-10) arg-11 u--covcs ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((e-2 (car e-7))) (let ((e-3 (cdr e-7))) (let ((e-9 (car e-3))) (let ((act-27 (let ((act-27 (CoreC-45Context-toFullNames arg-9 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40CaseTreeC-32C-36varsC-41 arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40CaseTreeC-32C-36varsC-41 arg-3843 arg-3844 eta-0))))) e-9 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-4 (vector-ref act-27 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref act-27 1))) (CoreC-45ContextC-45Log-log arg-9 "declare.def" (+ 1 (+ 1 (+ 1 0))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Working from " (CoreC-45CaseTree-u--show_Show_C-40CaseTreeC-32C-36varsC-41 e-2 e-10))) ext-0))))))) (case (vector-ref act-27 0) ((0) (let ((e-4 (vector-ref act-27 1))) (vector 0 e-4))) (else (let ((act-28 (let ((sc6 (PreludeC-45Interfaces-any (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (lambda (eta-0) (TTImpC-45ProcessDef-n--20592-11373-u--catchAll arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 eta-0)) u--covcs))) (cond ((equal? sc6 1) (let ((act-28 (CoreC-45ContextC-45Log-log arg-9 "declare.def" (+ 1 (+ 1 (+ 1 0))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Catch all case in " (PreludeC-45Show-u--show_Show_Int arg-10))) ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-4 (vector-ref act-28 1))) (vector 0 e-4))) (else (vector 1 '()))))) (else (CoreC-45Coverage-getMissing e-2 arg-9 arg-3 (vector 9 arg-10) e-9 ext-0)))))) (case (vector-ref act-28 0) ((0) (let ((e-4 (vector-ref act-28 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref act-28 1))) (let ((act-29 (CoreC-45ContextC-45Log-unverifiedLogC arg-9 "declare.def" (+ 1 (+ 1 (+ 1 0))) (lambda (eta-0) (let ((act-29 (CoreC-45Core-traverseC-39 (lambda (eta-1) (lambda (eta-2) (CoreC-45Context-toFullNames arg-9 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-3) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-3)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-3) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-3))))) eta-1 eta-2))) e-11 '() eta-0))) (case (vector-ref act-29 0) ((0) (let ((e-4 (vector-ref act-29 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref act-29 1))) (let ((act-30 (CoreC-45Context-getFullName arg-9 (vector 9 arg-10) eta-0))) (case (vector-ref act-30 0) ((0) (let ((e-4 (vector-ref act-30 1))) (vector 0 e-4))) (else (let ((e-13 (vector-ref act-30 1))) (vector 1 (PreludeC-45TypesC-45String-C-43C-43 "Initially missing in " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-13) (PreludeC-45TypesC-45String-C-43C-43 ":\u000a" (CoreC-45NameC-45Namespace-showSep "\u000a" (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() eta-1)) e-12))))))))))))))) ext-0))) (case (vector-ref act-29 0) ((0) (let ((e-4 (vector-ref act-29 1))) (vector 0 e-4))) (else (let ((act-30 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (TTImpC-45ProcessDef-n--20592-11374-u--checkImpossible arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-12 eta-0 eta-1))) e-11 '() ext-0))) (case (vector-ref act-30 0) ((0) (let ((e-4 (vector-ref act-30 1))) (vector 0 e-4))) (else (let ((e-13 (vector-ref act-30 1))) (let ((act-31 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (CoreC-45Coverage-checkMatched arg-9 u--covcs eta-0 eta-1))) (DataC-45List-mapMaybe (lambda (eta-0) eta-0) e-13) '() ext-0))) (case (vector-ref act-31 0) ((0) (let ((e-4 (vector-ref act-31 1))) (vector 0 e-4))) (else (let ((e-14 (vector-ref act-31 1))) (let ((u--miss (DataC-45List-mapMaybe (lambda (eta-0) eta-0) e-14))) (let ((sc10 (DataC-45List-isNil u--miss))) (cond ((equal? sc10 1) (let ((act-32 (CoreC-45Coverage-getNonCoveringRefs arg-9 arg-3 (vector 9 arg-10) ext-0))) (case (vector-ref act-32 0) ((0) (let ((e-4 (vector-ref act-32 1))) (vector 0 e-4))) (else (let ((e-15 (vector-ref act-32 1))) (if (null? e-15) (vector 1 (vector 0 )) (CoreC-45Context-toFullNames arg-9 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Covering arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Covering arg-3843 arg-3844 eta-0))))) (vector 2 e-15) ext-0))))))) (else (vector 1 (vector 1 u--miss))))))))))))))))))))))))))))))))))))))))) +(define TTImpC-45ProcessDef-n--20592-11373-u--catchAll (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((e-2 (vector-ref arg-10 2))) (PreludeC-45Interfaces-all (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (lambda (eta-0) (TTImpC-45ProcessDef-n--20592-11372-u--simplePat arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 eta-0)) (CoreC-45TT-getArgs e-2))))) +(define TTImpC-45ProcessDef-n--19566-10463-u--caseName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (case (vector-ref arg-5 0) ((7) 1) ((0) (let ((e-3 (vector-ref arg-5 2))) (TTImpC-45ProcessDef-n--19566-10463-u--caseName arg-0 arg-1 arg-2 arg-3 arg-4 e-3)))(else 0)))) +(define TTImpC-45ProcessDef-n--13735-6496-u--bindWithArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-19 arg-20 arg-21) (if (null? arg-20) (let ((u--scenv (cons (vector 2 (TTImpC-45ProcessDef-n--13735-6495-u--vfc arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (AlgebraC-45ZeroOneOmega-u--top_Top_ZeroOneOmega) (vector 1 ) arg-19) arg-21))) (let ((u--var (vector 0 (TTImpC-45ProcessDef-n--13735-6495-u--vfc arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (box 0) 0))) (let ((u--binder (lambda (eta-0) (vector 3 (TTImpC-45ProcessDef-n--13735-6495-u--vfc arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (TTImpC-45ProcessDef-n--14796-6514-u--wargn arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-21 arg-19) (vector 2 (TTImpC-45ProcessDef-n--13735-6495-u--vfc arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (AlgebraC-45ZeroOneOmega-u--top_Top_ZeroOneOmega) (vector 1 ) arg-19) eta-0)))) (lambda (eta-0) (vector 1 (cons (TTImpC-45ProcessDef-n--14796-6515-u--wargs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-21 arg-19) (cons u--scenv (cons u--var u--binder)))))))) (let ((e-2 (unbox arg-20))) (lambda (clam-0) (let ((e-5 (car e-2))) (let ((e-6 (cdr e-2))) (let ((act-24 (let ((act-24 (unbox arg-17))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref act-24 1))) (let ((u--eqName (vector 0 (CoreC-45NameC-45Namespace-builtinNS) (vector 1 "Equal")))) (let ((act-25 (CoreC-45Context-lookupDefExact u--eqName (let ((e-0 (vector-ref e-7 0))) e-0) clam-0))) (case (vector-ref act-25 0) ((0) (let ((e-3 (vector-ref act-25 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref act-25 1))) (if (null? e-8) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 "Cannot find builtin Equal") clam-0) (let ((e-1 (unbox e-8))) (case (vector-ref e-1 0) ((6) (let ((e-14 (vector-ref e-1 1))) (let ((e-3 (vector-ref e-1 2))) (let ((e-4 (vector-ref e-1 3))) (let ((e-13 (vector-ref e-1 4))) (let ((e-12 (vector-ref e-1 5))) (let ((e-11 (vector-ref e-1 6))) (let ((e-10 (vector-ref e-1 7))) (let ((e-9 (vector-ref e-1 8))) (let ((act-26 (CoreC-45Context-toResolvedNames arg-17 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-0))))) u--eqName clam-0))) (case (vector-ref act-26 0) ((0) (let ((e-15 (vector-ref act-26 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref act-26 1))) (let ((u--eqTyCon (vector 1 (TTImpC-45ProcessDef-n--13735-6495-u--vfc arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (vector 3 e-14 e-3) e-15))) (let ((u--wvalTyC-39 (CoreC-45TT-u--weaken_Weaken_Term arg-19))) (let ((u--eqTy (CoreC-45TT-apply (TTImpC-45ProcessDef-n--13735-6495-u--vfc arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) u--eqTyCon (cons u--wvalTyC-39 (cons u--wvalTyC-39 (cons (CoreC-45TT-u--weaken_Weaken_Term e-6) (cons (vector 0 (TTImpC-45ProcessDef-n--13735-6495-u--vfc arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (box 0) 0) '()))))))) (let ((u--scenv (cons (vector 2 (TTImpC-45ProcessDef-n--13735-6495-u--vfc arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (AlgebraC-45ZeroOneOmega-u--top_Top_ZeroOneOmega) (vector 0 ) u--eqTy) (cons (vector 2 (TTImpC-45ProcessDef-n--13735-6495-u--vfc arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (AlgebraC-45ZeroOneOmega-u--top_Top_ZeroOneOmega) (vector 1 ) arg-19) arg-21)))) (let ((u--var (vector 0 (TTImpC-45ProcessDef-n--13735-6495-u--vfc arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (box 0) (+ 1 0)))) (let ((u--binder (lambda (u--t) (vector 3 (TTImpC-45ProcessDef-n--13735-6495-u--vfc arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (TTImpC-45ProcessDef-n--14895-6675-u--wargn arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 e-5 e-6 arg-21 arg-19 e-7 u--eqName e-4 e-13 e-12 e-11 e-10 e-9 e-3 e-14 e-8 e-15 u--eqTyCon) (vector 2 (TTImpC-45ProcessDef-n--13735-6495-u--vfc arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (AlgebraC-45ZeroOneOmega-u--top_Top_ZeroOneOmega) (vector 1 ) arg-19) (vector 3 (TTImpC-45ProcessDef-n--13735-6495-u--vfc arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) e-5 (vector 2 (TTImpC-45ProcessDef-n--13735-6495-u--vfc arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (AlgebraC-45ZeroOneOmega-u--top_Top_ZeroOneOmega) (vector 0 ) u--eqTy) u--t))))) (vector 1 (cons (TTImpC-45ProcessDef-n--14895-6676-u--wargs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 e-5 e-6 arg-21 arg-19 e-7 u--eqName e-4 e-13 e-12 e-11 e-10 e-9 e-3 e-14 e-8 e-15 u--eqTyCon) (cons u--scenv (cons u--var u--binder)))))))))))))))))))))))(else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 "Cannot find builtin Equal") clam-0))))))))))))))))))))) +(define TTImpC-45ProcessDef-n--19566-10467-u--addErrorCase (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (if (null? arg-5) '() (let ((e-2 (car arg-5))) (let ((e-3 (cdr arg-5))) (let ((e-4 (vector-ref e-2 0))) (let ((e-5 (vector-ref e-2 1))) (let ((e-6 (vector-ref e-2 2))) (let ((e-7 (vector-ref e-2 3))) (if (null? e-3) (cons (vector e-4 e-5 e-6 e-7) (cons (TTImpC-45ProcessDef-n--19566-10466-u--makeErrorClause arg-0 arg-1 arg-2 arg-3 arg-4 e-4 e-5 e-6) '())) (cons e-2 (TTImpC-45ProcessDef-n--19566-10467-u--addErrorCase arg-0 arg-1 arg-2 arg-3 arg-4 e-3)))))))))))) +(define TTImpC-45ProcessDef-n--11951-4058-u--accessible (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (case (vector-ref arg-6 0) ((1) (cond ((equal? arg-4 1) arg-7) (else (AlgebraC-45Semiring-erased (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))))))(else arg-7)))) +(define TTImpC-45ProcessDef-warnUnreachable (lambda (arg-0 arg-1 ext-0) (let ((e-0 (vector-ref arg-1 0))) (let ((e-1 (vector-ref arg-1 1))) (let ((e-2 (vector-ref arg-1 2))) (CoreC-45Context-recordWarning arg-0 (vector 0 e-0 (CoreC-45TT-getLoc e-2) e-1 e-2) ext-0)))))) +(define TTImpC-45ProcessDef-toPats (lambda (arg-0) (let ((e-0 (vector-ref arg-0 0))) (let ((e-1 (vector-ref arg-0 1))) (let ((e-2 (vector-ref arg-0 2))) (let ((e-3 (vector-ref arg-0 3))) (cons e-0 (cons e-1 (cons e-2 e-3))))))))) +(define TTImpC-45ProcessDef-setLinear (lambda (arg-1 arg-2) (case (vector-ref arg-2 0) ((3) (let ((e-1 (vector-ref arg-2 1))) (let ((e-2 (vector-ref arg-2 2))) (let ((e-3 (vector-ref arg-2 3))) (let ((e-4 (vector-ref arg-2 4))) (case (vector-ref e-3 0) ((3) (let ((e-6 (vector-ref e-3 1))) (let ((e-7 (vector-ref e-3 2))) (let ((e-8 (vector-ref e-3 3))) (let ((e-9 (vector-ref e-3 4))) (let ((u--b (vector 3 e-6 e-7 e-8 e-9))) (let ((sc2 (DataC-45List-lookup (cons (lambda (arg-3) (lambda (arg-4) (CoreC-45Name-u--C-61C-61_Eq_Name arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (CoreC-45Name-u--C-47C-61_Eq_Name arg-4 arg-5)))) e-2 arg-1))) (if (null? sc2) (vector 3 e-1 e-2 u--b (TTImpC-45ProcessDef-setLinear arg-1 e-4)) (let ((e-5 (unbox sc2))) (vector 3 e-1 e-2 (CoreC-45TT-setMultiplicity u--b e-5) (TTImpC-45ProcessDef-setLinear arg-1 e-4))))))))))) ((5) (let ((e-11 (vector-ref e-3 1))) (let ((e-12 (vector-ref e-3 2))) (let ((e-13 (vector-ref e-3 3))) (let ((u--b (vector 5 e-11 e-12 e-13))) (let ((sc2 (DataC-45List-lookup (cons (lambda (arg-3) (lambda (arg-4) (CoreC-45Name-u--C-61C-61_Eq_Name arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (CoreC-45Name-u--C-47C-61_Eq_Name arg-4 arg-5)))) e-2 arg-1))) (if (null? sc2) (vector 3 e-1 e-2 u--b (TTImpC-45ProcessDef-setLinear arg-1 e-4)) (let ((e-5 (unbox sc2))) (vector 3 e-1 e-2 (CoreC-45TT-setMultiplicity u--b e-5) (TTImpC-45ProcessDef-setLinear arg-1 e-4))))))))))(else arg-2)))))))(else arg-2)))) +(define TTImpC-45ProcessDef-recoverableErr (lambda (arg-0 arg-1 arg-2) (case (vector-ref arg-2 0) ((1) (let ((e-0 (vector-ref arg-2 1))) (let ((e-2 (vector-ref arg-2 3))) (let ((e-3 (vector-ref arg-2 4))) (let ((e-4 (vector-ref arg-2 5))) (lambda (eta-0) (let ((act-24 ((CoreC-45Normalise-nf arg-0 e-0 arg-1 e-2 e-3) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Normalise-nf arg-0 e-0 arg-1 e-2 e-4) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-6 (vector-ref act-25 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45ContextC-45Log-log arg-0 "coverage.recover" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (LibrariesC-45DataC-45StringC-45Extra-unlines (cons "Recovering from CantConvert?" (cons "Checking:" (cons (PreludeC-45TypesC-45String-C-43C-43 " " (CoreC-45Value-u--show_Show_C-40NFC-32C-36freeC-41 e-0 e-5)) (cons (PreludeC-45TypesC-45String-C-43C-43 " " (CoreC-45Value-u--show_Show_C-40NFC-32C-36freeC-41 e-0 e-6)) '())))))) eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-7 (vector-ref act-26 1))) (vector 0 e-7))) (else ((TTImpC-45ProcessDef-recoverable arg-0 e-0 arg-1 e-5 e-6) eta-0)))))))))))))))))) ((2) (let ((e-5 (vector-ref arg-2 1))) (let ((e-7 (vector-ref arg-2 3))) (let ((e-8 (vector-ref arg-2 4))) (let ((e-9 (vector-ref arg-2 5))) (lambda (eta-0) (let ((act-24 ((CoreC-45Normalise-nf arg-0 e-5 arg-1 e-7 e-8) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Normalise-nf arg-0 e-5 arg-1 e-7 e-9) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref act-25 1))) ((TTImpC-45ProcessDef-recoverable arg-0 e-5 arg-1 e-10 e-11) eta-0))))))))))))))) ((44) (let ((e-13 (vector-ref arg-2 4))) (lambda (clam-0) (cond ((equal? e-13 3) (vector 1 1))(else (vector 1 0)))))) ((4) (lambda (eta-0) (vector 1 1))) ((21) (let ((e-21 (vector-ref arg-2 1))) (lambda (eta-0) (CoreC-45Core-anyM (lambda (eta-1) (TTImpC-45ProcessDef-recoverableErr arg-0 arg-1 eta-1)) (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) e-21) eta-0)))) ((5) (let ((e-27 (vector-ref arg-2 6))) (TTImpC-45ProcessDef-recoverableErr arg-0 arg-1 e-27)))(else (lambda (eta-0) (vector 1 0)))))) +(define TTImpC-45ProcessDef-recoverable (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (case (vector-ref arg-3 0) ((3) (let ((e-58 (vector-ref arg-3 2))) (let ((e-61 (vector-ref arg-3 5))) (lambda (clam-0) (case (vector-ref arg-4 0) ((3) (let ((e-69 (vector-ref arg-4 2))) (let ((e-72 (vector-ref arg-4 5))) (let ((sc2 (CoreC-45Name-u--C-47C-61_Eq_Name e-58 e-69))) (cond ((equal? sc2 1) (vector 1 0)) (else (let ((act-24 (CoreC-45Core-anyM (lambda (eta-0) (lambda (eta-1) (TTImpC-45ProcessDef-mismatch arg-0 arg-1 arg-2 eta-0 eta-1))) (DataC-45List-u--zipWith_Zippable_List (lambda (eta-0) (lambda (eta-1) (PreludeC-45Basics-curry (lambda (eta-2) (PreludeC-45Interfaces-mapHom (vector (lambda (u--d) (lambda (u--b) (lambda (u--c) (lambda (u--a) (lambda (arg-323) (lambda (arg-325) (lambda (arg-327) (let ((e-2 (car arg-327))) (let ((e-3 (cdr arg-327))) (cons (arg-323 e-2) (arg-325 e-3))))))))))) (lambda (u--b) (lambda (u--c) (lambda (u--a) (lambda (arg-332) (lambda (arg-334) (let ((e-2 (car arg-334))) (let ((e-3 (cdr arg-334))) (cons (arg-332 e-2) e-3)))))))) (lambda (u--a) (lambda (u--d) (lambda (u--b) (lambda (arg-335) (lambda (arg-337) (let ((e-2 (car arg-337))) (let ((e-3 (cdr arg-337))) (cons e-2 (arg-335 e-3)))))))))) (lambda (eta-3) (Builtin-snd eta-3)) eta-2)) eta-0 eta-1))) e-61 e-72) clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (cond ((equal? e-5 1) 0) (else 1))))))))))))) ((8) (vector 1 0)) ((10) (vector 1 0))(else (vector 1 1))))))) ((8) (case (vector-ref arg-4 0) ((3) (lambda (eta-0) (vector 1 0)))(else (case (vector-ref arg-4 0) ((3) (lambda (eta-0) (vector 1 1)))(else (case (vector-ref arg-3 0) ((2) (let ((e-29 (vector-ref arg-3 3))) (let ((e-31 (vector-ref arg-3 5))) (lambda (clam-1) (case (vector-ref arg-4 0) ((2) (let ((e-38 (vector-ref arg-4 3))) (let ((e-40 (vector-ref arg-4 5))) (let ((sc3 (PreludeC-45EqOrd-u--C-47C-61_Eq_Int e-29 e-38))) (cond ((equal? sc3 1) (vector 1 0)) (else (let ((act-24 (CoreC-45Core-anyM (lambda (eta-0) (lambda (eta-1) (TTImpC-45ProcessDef-mismatch arg-0 arg-1 arg-2 eta-0 eta-1))) (DataC-45List-u--zipWith_Zippable_List (lambda (eta-0) (lambda (eta-1) (PreludeC-45Basics-curry (lambda (eta-2) (PreludeC-45Interfaces-mapHom (vector (lambda (u--d) (lambda (u--b) (lambda (u--c) (lambda (u--a) (lambda (arg-323) (lambda (arg-325) (lambda (arg-327) (let ((e-2 (car arg-327))) (let ((e-3 (cdr arg-327))) (cons (arg-323 e-2) (arg-325 e-3))))))))))) (lambda (u--b) (lambda (u--c) (lambda (u--a) (lambda (arg-332) (lambda (arg-334) (let ((e-2 (car arg-334))) (let ((e-3 (cdr arg-334))) (cons (arg-332 e-2) e-3)))))))) (lambda (u--a) (lambda (u--d) (lambda (u--b) (lambda (arg-335) (lambda (arg-337) (let ((e-2 (car arg-337))) (let ((e-3 (cdr arg-337))) (cons e-2 (arg-335 e-3)))))))))) (lambda (eta-3) (Builtin-snd eta-3)) eta-2)) eta-0 eta-1))) e-31 e-40) clam-1))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (cond ((equal? e-5 1) 0) (else 1))))))))))))) ((8) (vector 1 0))(else (vector 1 1))))))) ((8) (case (vector-ref arg-4 0) ((2) (lambda (eta-0) (vector 1 0)))(else (case (vector-ref arg-4 0) ((2) (lambda (eta-0) (vector 1 1)))(else (case (vector-ref arg-3 0) ((1) (let ((e-2 (vector-ref arg-3 2))) (case (vector-ref e-2 0) ((1) (lambda (clam-2) (case (vector-ref arg-4 0) ((1) (let ((e-12 (vector-ref arg-4 2))) (case (vector-ref e-12 0) ((1) (vector 1 1))(else (vector 1 0)))))(else (vector 1 0)))))(else (lambda (eta-0) (vector 1 0)))))) ((8) (let ((e-6 (vector-ref arg-3 2))) (lambda (clam-3) (case (vector-ref arg-4 0) ((8) (let ((e-19 (vector-ref arg-4 2))) (vector 1 (CoreC-45TT-u--C-61C-61_Eq_Constant e-6 e-19))))(else (vector 1 0))))))(else (lambda (eta-0) (vector 1 0)))))))))(else (case (vector-ref arg-4 0) ((2) (lambda (eta-0) (vector 1 1)))(else (case (vector-ref arg-3 0) ((1) (let ((e-2 (vector-ref arg-3 2))) (case (vector-ref e-2 0) ((1) (lambda (clam-3) (case (vector-ref arg-4 0) ((1) (let ((e-12 (vector-ref arg-4 2))) (case (vector-ref e-12 0) ((1) (vector 1 1))(else (vector 1 0)))))(else (vector 1 0)))))(else (lambda (eta-0) (vector 1 0)))))) ((8) (let ((e-6 (vector-ref arg-3 2))) (lambda (clam-5) (case (vector-ref arg-4 0) ((8) (let ((e-19 (vector-ref arg-4 2))) (vector 1 (CoreC-45TT-u--C-61C-61_Eq_Constant e-6 e-19))))(else (vector 1 0))))))(else (lambda (eta-0) (vector 1 0))))))))))))) ((10) (case (vector-ref arg-4 0) ((3) (lambda (eta-0) (vector 1 0)))(else (case (vector-ref arg-4 0) ((3) (lambda (eta-0) (vector 1 1)))(else (case (vector-ref arg-3 0) ((2) (let ((e-29 (vector-ref arg-3 3))) (let ((e-31 (vector-ref arg-3 5))) (lambda (clam-4) (case (vector-ref arg-4 0) ((2) (let ((e-38 (vector-ref arg-4 3))) (let ((e-40 (vector-ref arg-4 5))) (let ((sc3 (PreludeC-45EqOrd-u--C-47C-61_Eq_Int e-29 e-38))) (cond ((equal? sc3 1) (vector 1 0)) (else (let ((act-24 (CoreC-45Core-anyM (lambda (eta-0) (lambda (eta-1) (TTImpC-45ProcessDef-mismatch arg-0 arg-1 arg-2 eta-0 eta-1))) (DataC-45List-u--zipWith_Zippable_List (lambda (eta-0) (lambda (eta-1) (PreludeC-45Basics-curry (lambda (eta-2) (PreludeC-45Interfaces-mapHom (vector (lambda (u--d) (lambda (u--b) (lambda (u--c) (lambda (u--a) (lambda (arg-323) (lambda (arg-325) (lambda (arg-327) (let ((e-2 (car arg-327))) (let ((e-3 (cdr arg-327))) (cons (arg-323 e-2) (arg-325 e-3))))))))))) (lambda (u--b) (lambda (u--c) (lambda (u--a) (lambda (arg-332) (lambda (arg-334) (let ((e-2 (car arg-334))) (let ((e-3 (cdr arg-334))) (cons (arg-332 e-2) e-3)))))))) (lambda (u--a) (lambda (u--d) (lambda (u--b) (lambda (arg-335) (lambda (arg-337) (let ((e-2 (car arg-337))) (let ((e-3 (cdr arg-337))) (cons e-2 (arg-335 e-3)))))))))) (lambda (eta-3) (Builtin-snd eta-3)) eta-2)) eta-0 eta-1))) e-31 e-40) clam-4))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (cond ((equal? e-5 1) 0) (else 1))))))))))))) ((8) (vector 1 0))(else (vector 1 1))))))) ((8) (case (vector-ref arg-4 0) ((2) (lambda (eta-0) (vector 1 0)))(else (case (vector-ref arg-4 0) ((2) (lambda (eta-0) (vector 1 1)))(else (case (vector-ref arg-3 0) ((1) (let ((e-2 (vector-ref arg-3 2))) (case (vector-ref e-2 0) ((1) (lambda (clam-5) (case (vector-ref arg-4 0) ((1) (let ((e-12 (vector-ref arg-4 2))) (case (vector-ref e-12 0) ((1) (vector 1 1))(else (vector 1 0)))))(else (vector 1 0)))))(else (lambda (eta-0) (vector 1 0)))))) ((8) (let ((e-6 (vector-ref arg-3 2))) (lambda (clam-8) (case (vector-ref arg-4 0) ((8) (let ((e-19 (vector-ref arg-4 2))) (vector 1 (CoreC-45TT-u--C-61C-61_Eq_Constant e-6 e-19))))(else (vector 1 0))))))(else (lambda (eta-0) (vector 1 0)))))))))(else (case (vector-ref arg-4 0) ((2) (lambda (eta-0) (vector 1 1)))(else (case (vector-ref arg-3 0) ((1) (let ((e-2 (vector-ref arg-3 2))) (case (vector-ref e-2 0) ((1) (lambda (clam-6) (case (vector-ref arg-4 0) ((1) (let ((e-12 (vector-ref arg-4 2))) (case (vector-ref e-12 0) ((1) (vector 1 1))(else (vector 1 0)))))(else (vector 1 0)))))(else (lambda (eta-0) (vector 1 0)))))) ((8) (let ((e-6 (vector-ref arg-3 2))) (lambda (clam-10) (case (vector-ref arg-4 0) ((8) (let ((e-19 (vector-ref arg-4 2))) (vector 1 (CoreC-45TT-u--C-61C-61_Eq_Constant e-6 e-19))))(else (vector 1 0))))))(else (lambda (eta-0) (vector 1 0)))))))))))))(else (case (vector-ref arg-4 0) ((3) (lambda (eta-0) (vector 1 1)))(else (case (vector-ref arg-3 0) ((2) (let ((e-29 (vector-ref arg-3 3))) (let ((e-31 (vector-ref arg-3 5))) (lambda (clam-7) (case (vector-ref arg-4 0) ((2) (let ((e-38 (vector-ref arg-4 3))) (let ((e-40 (vector-ref arg-4 5))) (let ((sc2 (PreludeC-45EqOrd-u--C-47C-61_Eq_Int e-29 e-38))) (cond ((equal? sc2 1) (vector 1 0)) (else (let ((act-24 (CoreC-45Core-anyM (lambda (eta-0) (lambda (eta-1) (TTImpC-45ProcessDef-mismatch arg-0 arg-1 arg-2 eta-0 eta-1))) (DataC-45List-u--zipWith_Zippable_List (lambda (eta-0) (lambda (eta-1) (PreludeC-45Basics-curry (lambda (eta-2) (PreludeC-45Interfaces-mapHom (vector (lambda (u--d) (lambda (u--b) (lambda (u--c) (lambda (u--a) (lambda (arg-323) (lambda (arg-325) (lambda (arg-327) (let ((e-2 (car arg-327))) (let ((e-3 (cdr arg-327))) (cons (arg-323 e-2) (arg-325 e-3))))))))))) (lambda (u--b) (lambda (u--c) (lambda (u--a) (lambda (arg-332) (lambda (arg-334) (let ((e-2 (car arg-334))) (let ((e-3 (cdr arg-334))) (cons (arg-332 e-2) e-3)))))))) (lambda (u--a) (lambda (u--d) (lambda (u--b) (lambda (arg-335) (lambda (arg-337) (let ((e-2 (car arg-337))) (let ((e-3 (cdr arg-337))) (cons e-2 (arg-335 e-3)))))))))) (lambda (eta-3) (Builtin-snd eta-3)) eta-2)) eta-0 eta-1))) e-31 e-40) clam-7))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (cond ((equal? e-5 1) 0) (else 1))))))))))))) ((8) (vector 1 0))(else (vector 1 1))))))) ((8) (case (vector-ref arg-4 0) ((2) (lambda (eta-0) (vector 1 0)))(else (case (vector-ref arg-4 0) ((2) (lambda (eta-0) (vector 1 1)))(else (case (vector-ref arg-3 0) ((1) (let ((e-2 (vector-ref arg-3 2))) (case (vector-ref e-2 0) ((1) (lambda (clam-8) (case (vector-ref arg-4 0) ((1) (let ((e-12 (vector-ref arg-4 2))) (case (vector-ref e-12 0) ((1) (vector 1 1))(else (vector 1 0)))))(else (vector 1 0)))))(else (lambda (eta-0) (vector 1 0)))))) ((8) (let ((e-6 (vector-ref arg-3 2))) (lambda (clam-13) (case (vector-ref arg-4 0) ((8) (let ((e-19 (vector-ref arg-4 2))) (vector 1 (CoreC-45TT-u--C-61C-61_Eq_Constant e-6 e-19))))(else (vector 1 0))))))(else (lambda (eta-0) (vector 1 0)))))))))(else (case (vector-ref arg-4 0) ((2) (lambda (eta-0) (vector 1 1)))(else (case (vector-ref arg-3 0) ((1) (let ((e-2 (vector-ref arg-3 2))) (case (vector-ref e-2 0) ((1) (lambda (clam-9) (case (vector-ref arg-4 0) ((1) (let ((e-12 (vector-ref arg-4 2))) (case (vector-ref e-12 0) ((1) (vector 1 1))(else (vector 1 0)))))(else (vector 1 0)))))(else (lambda (eta-0) (vector 1 0)))))) ((8) (let ((e-6 (vector-ref arg-3 2))) (lambda (clam-15) (case (vector-ref arg-4 0) ((8) (let ((e-19 (vector-ref arg-4 2))) (vector 1 (CoreC-45TT-u--C-61C-61_Eq_Constant e-6 e-19))))(else (vector 1 0))))))(else (lambda (eta-0) (vector 1 0)))))))))))))) +(define TTImpC-45ProcessDef-processDef (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 ext-0) (let ((act-24 (CoreC-45Context-inCurrentNS arg-1 arg-8 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 ((CoreC-45Context-lookupCtxtExact e-5 (let ((e-0 (vector-ref e-6 0))) e-0)) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (if (null? e-7) (CoreC-45Context-noDeclaration arg-1 arg-7 e-5 ext-0) (let ((e-1 (unbox e-7))) (let ((e-17 (vector-ref e-1 17))) (case (vector-ref e-17 0) ((0) (let ((u--ty (let ((e-43 (vector-ref e-1 2))) e-43))) (let ((u--hashit (CoreC-45TT-u--C-61C-61_Eq_Visibility (let ((e-36 (vector-ref e-1 9))) e-36) 2))) (let ((u--mult (let ((sc5 (AlgebraC-45Semiring-isErased (cons (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-10) (lambda (arg-11) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-10 arg-11))) (lambda (arg-10) (lambda (arg-11) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-10 arg-11))))) (let ((e-38 (vector-ref e-1 7))) e-38)))) (cond ((equal? sc5 1) (AlgebraC-45Semiring-erased (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)))) (else (AlgebraC-45Semiring-linear (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)))))))) (let ((act-27 (CoreC-45Context-resolveName arg-1 e-5 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-25 (vector-ref act-27 1))) (vector 0 e-25))) (else (let ((e-25 (vector-ref act-27 1))) (let ((act-28 (CoreC-45ContextC-45Log-log arg-1 "declare.def" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Traversing clauses of " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-5) (PreludeC-45TypesC-45String-C-43C-43 " with mult " (AlgebraC-45ZeroOneOmega-u--show_Show_ZeroOneOmega u--mult))))) ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-26 (vector-ref act-28 1))) (vector 0 e-26))) (else (let ((act-29 (CoreC-45Context-getDefaultTotalityOption arg-1 ext-0))) (case (vector-ref act-29 0) ((0) (let ((e-27 (vector-ref act-29 1))) (vector 0 e-27))) (else (let ((e-27 (vector-ref act-29 1))) (let ((u--treq (DataC-45Maybe-fromMaybe (lambda () e-27) (CoreC-45Context-findSetTotal (let ((e-37 (vector-ref e-1 11))) e-37))))) (let ((act-30 (TTImpC-45ProcessDef-n--20592-11371-u--withTotality arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 u--treq (lambda () (lambda (eta-0) (CoreC-45Core-traverseC-39 (lambda (eta-1) (lambda (eta-2) (TTImpC-45ProcessDef-checkClause arg-0 arg-1 arg-2 arg-3 u--mult (let ((e-39 (vector-ref e-1 9))) e-39) u--treq u--hashit e-25 arg-4 arg-5 arg-6 eta-1 eta-2))) arg-9 '() eta-0))) ext-0))) (case (vector-ref act-30 0) ((0) (let ((e-28 (vector-ref act-30 1))) (vector 0 e-28))) (else (let ((e-28 (vector-ref act-30 1))) (let ((u--pats (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (TTImpC-45ProcessDef-toPats eta-0)) (DataC-45Either-rights e-28)))) (let ((act-31 (CoreC-45CaseBuilder-getPMDef arg-1 arg-7 (box u--mult) e-5 u--ty (DataC-45Either-rights e-28) ext-0))) (case (vector-ref act-31 0) ((0) (let ((e-29 (vector-ref act-31 1))) (vector 0 e-29))) (else (let ((e-29 (vector-ref act-31 1))) (let ((e-31 (car e-29))) (let ((e-30 (cdr e-29))) (let ((e-33 (car e-30))) (let ((e-32 (cdr e-30))) (let ((act-32 (CoreC-45Core-traverse_ (lambda (eta-0) (lambda (eta-1) (TTImpC-45ProcessDef-warnUnreachable arg-1 eta-0 eta-1))) e-32 ext-0))) (case (vector-ref act-32 0) ((0) (let ((e-34 (vector-ref act-32 1))) (vector 0 e-34))) (else (let ((act-33 (CoreC-45ContextC-45Log-unverifiedLogC arg-1 "declare.def" (+ 1 (+ 1 0)) (lambda (eta-0) (let ((act-33 (CoreC-45Context-toFullNames arg-1 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-1) (CoreC-45Context-u--full_HasNames_C-40CaseTreeC-32C-36varsC-41 arg-3841 arg-3842 eta-1)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-1) (CoreC-45Context-u--resolved_HasNames_C-40CaseTreeC-32C-36varsC-41 arg-3843 arg-3844 eta-1))))) e-33 eta-0))) (case (vector-ref act-33 0) ((0) (let ((e-35 (vector-ref act-33 1))) (vector 0 e-35))) (else (let ((e-35 (vector-ref act-33 1))) (vector 1 (PreludeC-45TypesC-45String-C-43C-43 "Case tree for " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-5) (PreludeC-45TypesC-45String-C-43C-43 ": " (CoreC-45CaseTree-u--show_Show_C-40CaseTreeC-32C-36varsC-41 e-31 e-35)))))))))) ext-0))) (case (vector-ref act-33 0) ((0) (let ((e-35 (vector-ref act-33 1))) (vector 0 e-35))) (else (let ((act-34 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-36 (vector-ref eta-0 1))) (vector 0 e-36))) (else (vector 1 0)))) (lambda (eta-0) (CoreC-45Context-addDef arg-1 (vector 9 e-25) (let ((e-56 (vector-ref e-1 0))) (let ((e-55 (vector-ref e-1 1))) (let ((e-54 (vector-ref e-1 2))) (let ((e-53 (vector-ref e-1 3))) (let ((e-52 (vector-ref e-1 4))) (let ((e-51 (vector-ref e-1 5))) (let ((e-50 (vector-ref e-1 6))) (let ((e-49 (vector-ref e-1 7))) (let ((e-48 (vector-ref e-1 8))) (let ((e-47 (vector-ref e-1 9))) (let ((e-46 (vector-ref e-1 10))) (let ((e-45 (vector-ref e-1 11))) (let ((e-44 (vector-ref e-1 12))) (let ((e-43 (vector-ref e-1 13))) (let ((e-42 (vector-ref e-1 14))) (let ((e-41 (vector-ref e-1 15))) (let ((e-40 (vector-ref e-1 16))) (let ((e-38 (vector-ref e-1 18))) (let ((e-37 (vector-ref e-1 19))) (let ((e-36 (vector-ref e-1 20))) (vector e-56 e-55 e-54 e-53 e-52 e-51 e-50 e-49 e-48 e-47 e-46 e-45 e-44 e-43 e-42 e-41 e-40 (vector 1 (CoreC-45Context-defaultPI) e-31 e-33 e-33 u--pats) e-38 e-37 e-36))))))))))))))))))))) eta-0)) ext-0))) (case (vector-ref act-34 0) ((0) (let ((e-36 (vector-ref act-34 1))) (vector 0 e-36))) (else (let ((act-35 (let ((sc15 (CoreC-45TT-u--C-61C-61_Eq_Visibility (let ((e-48 (vector-ref e-1 9))) e-48) 2))) (cond ((equal? sc15 1) (((let ((u--rmetas (CoreC-45CaseTree-getMetas e-33))) (lambda () (lambda (eta-0) (let ((act-35 (CoreC-45ContextC-45Log-log arg-1 "declare.def" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Saving from " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-5) (PreludeC-45TypesC-45String-C-43C-43 ": " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45Name-u--show_Show_Name u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Name-u--showPrec_Show_Name u--d u--x)))) (LibrariesC-45DataC-45NameMap-keys u--rmetas)))))) eta-0))) (case (vector-ref act-35 0) ((0) (let ((e-37 (vector-ref act-35 1))) (vector 0 e-37))) (else (CoreC-45Core-traverse_ (lambda (eta-1) (lambda (eta-2) (CoreC-45Context-addToSave arg-1 eta-1 eta-2))) (LibrariesC-45DataC-45NameMap-keys u--rmetas) eta-0)))))))) ext-0)) (else (vector 1 0)))))) (case (vector-ref act-35 0) ((0) (let ((e-37 (vector-ref act-35 1))) (vector 0 e-37))) (else (let ((act-36 (let ((sc16 (let ((sc17 (CoreC-45Name-isUserName e-5))) (cond ((equal? sc17 1) (CoreC-45TT-u--C-47C-61_Eq_Visibility (let ((e-49 (vector-ref e-1 9))) e-49) 0)) (else 0))))) (cond ((equal? sc16 1) (((let ((u--tymetas (CoreC-45TT-getMetas (let ((e-56 (vector-ref e-1 2))) e-56)))) (lambda () (lambda (eta-0) (CoreC-45Core-traverse_ (lambda (eta-1) (lambda (eta-2) (CoreC-45Context-addToSave arg-1 eta-1 eta-2))) (LibrariesC-45DataC-45NameMap-keys u--tymetas) eta-0))))) ext-0)) (else (vector 1 0)))))) (case (vector-ref act-36 0) ((0) (let ((e-38 (vector-ref act-36 1))) (vector 0 e-38))) (else (let ((act-37 (CoreC-45Context-addToSave arg-1 e-5 ext-0))) (case (vector-ref act-37 0) ((0) (let ((e-39 (vector-ref act-37 1))) (vector 0 e-39))) (else (let ((act-38 (let ((act-38 (unbox arg-1))) (vector 1 act-38)))) (case (vector-ref act-38 0) ((0) (let ((e-40 (vector-ref act-38 1))) (vector 0 e-40))) (else (let ((e-40 (vector-ref act-38 1))) (let ((act-39 (let ((act-39 (set-box! arg-1 (let ((e-69 (vector-ref e-40 0))) (let ((e-68 (vector-ref e-40 1))) (let ((e-67 (vector-ref e-40 2))) (let ((e-66 (vector-ref e-40 3))) (let ((e-65 (vector-ref e-40 4))) (let ((e-64 (vector-ref e-40 5))) (let ((e-63 (vector-ref e-40 6))) (let ((e-62 (vector-ref e-40 7))) (let ((e-61 (vector-ref e-40 8))) (let ((e-60 (vector-ref e-40 9))) (let ((e-59 (vector-ref e-40 10))) (let ((e-58 (vector-ref e-40 11))) (let ((e-57 (vector-ref e-40 12))) (let ((e-56 (vector-ref e-40 13))) (let ((e-55 (vector-ref e-40 14))) (let ((e-54 (vector-ref e-40 15))) (let ((e-53 (vector-ref e-40 16))) (let ((e-52 (vector-ref e-40 17))) (let ((e-51 (vector-ref e-40 18))) (let ((e-50 (vector-ref e-40 19))) (let ((e-49 (vector-ref e-40 20))) (let ((e-48 (vector-ref e-40 21))) (let ((e-47 (vector-ref e-40 22))) (let ((e-46 (vector-ref e-40 23))) (let ((e-45 (vector-ref e-40 24))) (let ((e-44 (vector-ref e-40 25))) (let ((e-43 (vector-ref e-40 26))) (let ((e-42 (vector-ref e-40 27))) (let ((e-41 (vector-ref e-40 28))) (vector e-69 e-68 e-67 e-66 e-65 e-64 e-63 e-62 e-61 e-60 e-59 e-58 e-57 e-56 e-55 e-54 e-53 e-52 e-51 e-50 e-49 e-48 (cons e-5 e-47) e-46 e-45 e-44 e-43 e-42 e-41))))))))))))))))))))))))))))))))) (vector 1 act-39)))) (case (vector-ref act-39 0) ((0) (let ((e-41 (vector-ref act-39 1))) (vector 0 e-41))) (else (let ((act-40 (CoreC-45Context-toResolvedNames arg-1 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-0))))) (vector 0 (CoreC-45NameC-45Namespace-builtinNS) (vector 1 "assert_total")) ext-0))) (case (vector-ref act-40 0) ((0) (let ((e-42 (vector-ref act-40 1))) (vector 0 e-42))) (else (let ((e-42 (vector-ref act-40 1))) (let ((act-41 (let ((sc21 (PreludeC-45Types-elem (cons (lambda (arg-10) (lambda (arg-11) (TTImpC-45ElabC-45Check-u--C-61C-61_Eq_ElabOpt arg-10 arg-11))) (lambda (arg-10) (lambda (arg-11) (TTImpC-45ElabC-45Check-u--C-47C-61_Eq_ElabOpt arg-10 arg-11)))) 1 arg-4))) (cond ((equal? sc21 1) (vector 1 0)) (else (let ((act-41 (TTImpC-45ProcessDef-calcRefs arg-1 0 e-42 (vector 9 e-25) ext-0))) (case (vector-ref act-41 0) ((0) (let ((e-43 (vector-ref act-41 1))) (vector 0 e-43))) (else (let ((act-42 (CoreC-45Termination-calculateSizeChange arg-1 arg-7 e-5 ext-0))) (case (vector-ref act-42 0) ((0) (let ((e-44 (vector-ref act-42 1))) (vector 0 e-44))) (else (let ((e-44 (vector-ref act-42 1))) (let ((act-43 (CoreC-45Context-setSizeChange arg-1 arg-7 e-5 e-44 ext-0))) (case (vector-ref act-43 0) ((0) (let ((e-45 (vector-ref act-43 1))) (vector 0 e-45))) (else (CoreC-45Termination-checkIfGuarded arg-1 arg-7 e-5 ext-0)))))))))))))))) (case (vector-ref act-41 0) ((0) (let ((e-43 (vector-ref act-41 1))) (vector 0 e-43))) (else (let ((act-42 (let ((act-42 (unbox arg-2))) (vector 1 act-42)))) (case (vector-ref act-42 0) ((0) (let ((e-44 (vector-ref act-42 1))) (vector 0 e-44))) (else (let ((e-44 (vector-ref act-42 1))) (let ((act-43 (CoreC-45ContextC-45Log-logTime arg-1 (lambda () (PreludeC-45TypesC-45String-C-43C-43 "+++ Checking Coverage " (CoreC-45Name-u--show_Show_Name e-5))) (lambda (eta-0) (TTImpC-45ProcessDef-n--20592-11376-u--checkCoverage arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-25 u--ty u--mult e-28 eta-0)) ext-0))) (case (vector-ref act-43 0) ((0) (let ((e-45 (vector-ref act-43 1))) (vector 0 e-45))) (else (let ((e-45 (vector-ref act-43 1))) (let ((act-44 (CoreC-45Context-setCovering arg-1 arg-7 e-5 e-45 ext-0))) (case (vector-ref act-44 0) ((0) (let ((e-46 (vector-ref act-44 1))) (vector 0 e-46))) (else (let ((act-45 (let ((act-45 (set-box! arg-2 e-44))) (vector 1 act-45)))) (case (vector-ref act-45 0) ((0) (let ((e-47 (vector-ref act-45 1))) (vector 0 e-47))) (else (let ((sc26 (PreludeC-45Types-elem (cons (lambda (arg-10) (lambda (arg-11) (TTImpC-45ElabC-45Check-u--C-61C-61_Eq_ElabOpt arg-10 arg-11))) (lambda (arg-10) (lambda (arg-11) (TTImpC-45ElabC-45Check-u--C-47C-61_Eq_ElabOpt arg-10 arg-11)))) 1 arg-4))) (cond ((equal? sc26 1) (vector 1 0)) (else (TTImpC-45ProcessDef-compileRunTime arg-1 arg-2 arg-3 arg-7 e-42 ext-0)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))(else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 38 arg-7 e-5) ext-0)))))))))))))))))))) +(define TTImpC-45ProcessDef-nameListEq (lambda (arg-0 arg-1) (if (null? arg-0) (if (null? arg-1) (box 0) '()) (let ((e-2 (car arg-0))) (let ((e-3 (cdr arg-0))) (if (null? arg-1) '() (let ((e-6 (car arg-1))) (let ((e-7 (cdr arg-1))) (TTImpC-45ProcessDef-with--nameListEq-9909 e-2 e-6 (CoreC-45Name-nameEq e-2 e-6) e-3 e-7))))))))) +(define TTImpC-45ProcessDef-mkRunTime (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (let ((act-24 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-0))))) arg-4 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (CoreC-45ContextC-45Log-log arg-0 "compile.casetree" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Making run time definition for " (CoreC-45Name-u--show_Show_Name e-5))) ext-0))))))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 (let ((act-25 (unbox arg-0))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 ((CoreC-45Context-lookupCtxtExact arg-4 (let ((e-0 (vector-ref e-6 0))) e-0)) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (if (null? e-7) (vector 1 0) (let ((e-1 (unbox e-7))) (let ((u--cov (let ((e-10 (vector-ref e-1 10))) (let ((e-25 (cdr e-10))) e-25)))) (let ((sc4 (AlgebraC-45Semiring-isErased (cons (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-5) (lambda (arg-6) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-5 arg-6))))) (let ((e-21 (vector-ref e-1 7))) e-21)))) (cond ((equal? sc4 1) (vector 1 0)) (else (((let ((_-0 (box e-1))) (TTImpC-45ProcessDef-case--caseC-32blockC-32inC-32mkRunTime-10752 arg-4 arg-3 arg-2 arg-1 arg-0 e-6 e-1 _-0 u--cov (let ((e-17 (vector-ref e-1 17))) e-17)))) ext-0)))))))))))))))))))) +(define TTImpC-45ProcessDef-mismatchNF (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (case (vector-ref arg-3 0) ((3) (let ((e-2 (vector-ref arg-3 2))) (let ((e-5 (vector-ref arg-3 5))) (lambda (clam-0) (case (vector-ref arg-4 0) ((3) (let ((e-26 (vector-ref arg-4 2))) (let ((e-29 (vector-ref arg-4 5))) (let ((sc2 (CoreC-45Name-u--C-47C-61_Eq_Name e-2 e-26))) (cond ((equal? sc2 1) (vector 1 1)) (else (CoreC-45Core-anyM (lambda (eta-0) (lambda (eta-1) (TTImpC-45ProcessDef-mismatch arg-0 arg-1 arg-2 eta-0 eta-1))) (DataC-45List-u--zipWith_Zippable_List (lambda (eta-0) (lambda (eta-1) (PreludeC-45Basics-curry (lambda (eta-2) (PreludeC-45Interfaces-mapHom (vector (lambda (u--d) (lambda (u--b) (lambda (u--c) (lambda (u--a) (lambda (arg-323) (lambda (arg-325) (lambda (arg-327) (let ((e-7 (car arg-327))) (let ((e-6 (cdr arg-327))) (cons (arg-323 e-7) (arg-325 e-6))))))))))) (lambda (u--b) (lambda (u--c) (lambda (u--a) (lambda (arg-332) (lambda (arg-334) (let ((e-7 (car arg-334))) (let ((e-6 (cdr arg-334))) (cons (arg-332 e-7) e-6)))))))) (lambda (u--a) (lambda (u--d) (lambda (u--b) (lambda (arg-335) (lambda (arg-337) (let ((e-7 (car arg-337))) (let ((e-6 (cdr arg-337))) (cons e-7 (arg-335 e-6)))))))))) (lambda (eta-3) (Builtin-snd eta-3)) eta-2)) eta-0 eta-1))) e-5 e-29) clam-0)))))))(else (vector 1 0))))))) ((2) (let ((e-9 (vector-ref arg-3 3))) (let ((e-11 (vector-ref arg-3 5))) (lambda (clam-1) (case (vector-ref arg-4 0) ((2) (let ((e-33 (vector-ref arg-4 3))) (let ((e-35 (vector-ref arg-4 5))) (let ((sc2 (PreludeC-45EqOrd-u--C-47C-61_Eq_Int e-9 e-33))) (cond ((equal? sc2 1) (vector 1 1)) (else (CoreC-45Core-anyM (lambda (eta-0) (lambda (eta-1) (TTImpC-45ProcessDef-mismatch arg-0 arg-1 arg-2 eta-0 eta-1))) (DataC-45List-u--zipWith_Zippable_List (lambda (eta-0) (lambda (eta-1) (PreludeC-45Basics-curry (lambda (eta-2) (PreludeC-45Interfaces-mapHom (vector (lambda (u--d) (lambda (u--b) (lambda (u--c) (lambda (u--a) (lambda (arg-323) (lambda (arg-325) (lambda (arg-327) (let ((e-2 (car arg-327))) (let ((e-3 (cdr arg-327))) (cons (arg-323 e-2) (arg-325 e-3))))))))))) (lambda (u--b) (lambda (u--c) (lambda (u--a) (lambda (arg-332) (lambda (arg-334) (let ((e-2 (car arg-334))) (let ((e-3 (cdr arg-334))) (cons (arg-332 e-2) e-3)))))))) (lambda (u--a) (lambda (u--d) (lambda (u--b) (lambda (arg-335) (lambda (arg-337) (let ((e-2 (car arg-337))) (let ((e-3 (cdr arg-337))) (cons e-2 (arg-335 e-3)))))))))) (lambda (eta-3) (Builtin-snd eta-3)) eta-2)) eta-0 eta-1))) e-11 e-35) clam-1)))))))(else (vector 1 0))))))) ((8) (let ((e-14 (vector-ref arg-3 2))) (lambda (clam-2) (case (vector-ref arg-4 0) ((8) (let ((e-38 (vector-ref arg-4 2))) (vector 1 (CoreC-45TT-u--C-47C-61_Eq_Constant e-14 e-38))))(else (vector 1 0)))))) ((5) (let ((e-18 (vector-ref arg-3 3))) (case (vector-ref arg-4 0) ((5) (let ((e-42 (vector-ref arg-4 3))) (TTImpC-45ProcessDef-mismatchNF arg-0 arg-1 arg-2 e-18 e-42)))(else (lambda (eta-0) (vector 1 0)))))) ((6) (let ((e-23 (vector-ref arg-3 4))) (lambda (clam-3) (case (vector-ref arg-4 0) ((6) (let ((e-47 (vector-ref arg-4 4))) (let ((act-24 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-23) clam-3))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-47) clam-3))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) ((TTImpC-45ProcessDef-mismatchNF arg-0 arg-1 arg-2 e-5 e-6) clam-3)))))))))))(else (vector 1 0))))))(else (lambda (eta-0) (vector 1 0)))))) +(define TTImpC-45ProcessDef-mismatch (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((e-2 (car arg-3))) (let ((e-3 (cdr arg-3))) (let ((act-24 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-2) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Normalise-evalClosure arg-0 arg-1 arg-2 e-3) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref act-25 1))) ((TTImpC-45ProcessDef-mismatchNF arg-0 arg-1 arg-2 e-5 e-6) ext-0))))))))))))) +(define TTImpC-45ProcessDef-impossibleOK (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (case (vector-ref arg-3 0) ((3) (let ((e-2 (vector-ref arg-3 2))) (let ((e-5 (vector-ref arg-3 5))) (lambda (clam-0) (case (vector-ref arg-4 0) ((3) (let ((e-19 (vector-ref arg-4 2))) (let ((e-22 (vector-ref arg-4 5))) (let ((sc2 (CoreC-45Name-u--C-61C-61_Eq_Name e-2 e-19))) (cond ((equal? sc2 1) (CoreC-45Core-anyM (lambda (eta-0) (lambda (eta-1) (TTImpC-45ProcessDef-mismatch arg-0 arg-1 arg-2 eta-0 eta-1))) (DataC-45List-u--zipWith_Zippable_List (lambda (eta-0) (lambda (eta-1) (PreludeC-45Basics-curry (lambda (eta-2) (PreludeC-45Interfaces-mapHom (vector (lambda (u--d) (lambda (u--b) (lambda (u--c) (lambda (u--a) (lambda (arg-323) (lambda (arg-325) (lambda (arg-327) (let ((e-7 (car arg-327))) (let ((e-6 (cdr arg-327))) (cons (arg-323 e-7) (arg-325 e-6))))))))))) (lambda (u--b) (lambda (u--c) (lambda (u--a) (lambda (arg-332) (lambda (arg-334) (let ((e-7 (car arg-334))) (let ((e-6 (cdr arg-334))) (cons (arg-332 e-7) e-6)))))))) (lambda (u--a) (lambda (u--d) (lambda (u--b) (lambda (arg-335) (lambda (arg-337) (let ((e-7 (car arg-337))) (let ((e-6 (cdr arg-337))) (cons e-7 (arg-335 e-6)))))))))) (lambda (eta-3) (Builtin-snd eta-3)) eta-2)) eta-0 eta-1))) e-5 e-22) clam-0)) (else (vector 1 0))))))) ((8) (vector 1 1)) ((10) (vector 1 1))(else (vector 1 0))))))) ((2) (let ((e-9 (vector-ref arg-3 3))) (let ((e-11 (vector-ref arg-3 5))) (lambda (clam-1) (case (vector-ref arg-4 0) ((2) (let ((e-31 (vector-ref arg-4 3))) (let ((e-33 (vector-ref arg-4 5))) (let ((sc2 (PreludeC-45EqOrd-u--C-47C-61_Eq_Int e-9 e-31))) (cond ((equal? sc2 1) (vector 1 1)) (else (CoreC-45Core-anyM (lambda (eta-0) (lambda (eta-1) (TTImpC-45ProcessDef-mismatch arg-0 arg-1 arg-2 eta-0 eta-1))) (DataC-45List-u--zipWith_Zippable_List (lambda (eta-0) (lambda (eta-1) (PreludeC-45Basics-curry (lambda (eta-2) (PreludeC-45Interfaces-mapHom (vector (lambda (u--d) (lambda (u--b) (lambda (u--c) (lambda (u--a) (lambda (arg-323) (lambda (arg-325) (lambda (arg-327) (let ((e-2 (car arg-327))) (let ((e-3 (cdr arg-327))) (cons (arg-323 e-2) (arg-325 e-3))))))))))) (lambda (u--b) (lambda (u--c) (lambda (u--a) (lambda (arg-332) (lambda (arg-334) (let ((e-2 (car arg-334))) (let ((e-3 (cdr arg-334))) (cons (arg-332 e-2) e-3)))))))) (lambda (u--a) (lambda (u--d) (lambda (u--b) (lambda (arg-335) (lambda (arg-337) (let ((e-2 (car arg-337))) (let ((e-3 (cdr arg-337))) (cons e-2 (arg-335 e-3)))))))))) (lambda (eta-3) (Builtin-snd eta-3)) eta-2)) eta-0 eta-1))) e-11 e-33) clam-1))))))) ((8) (vector 1 1))(else (vector 1 0))))))) ((8) (let ((e-14 (vector-ref arg-3 2))) (lambda (clam-2) (case (vector-ref arg-4 0) ((8) (let ((e-39 (vector-ref arg-4 2))) (vector 1 (CoreC-45TT-u--C-47C-61_Eq_Constant e-14 e-39)))) ((2) (vector 1 1)) ((3) (vector 1 1)) ((10) (vector 1 1))(else (vector 1 0)))))) ((10) (lambda (clam-3) (case (vector-ref arg-4 0) ((3) (vector 1 1)) ((8) (vector 1 1))(else (vector 1 0)))))(else (lambda (eta-0) (vector 1 0)))))) +(define TTImpC-45ProcessDef-impossibleErrOK (lambda (arg-0 arg-1 arg-2) (case (vector-ref arg-2 0) ((1) (let ((e-0 (vector-ref arg-2 1))) (let ((e-2 (vector-ref arg-2 3))) (let ((e-3 (vector-ref arg-2 4))) (let ((e-4 (vector-ref arg-2 5))) (lambda (eta-0) (let ((act-24 ((CoreC-45Normalise-nf arg-0 e-0 arg-1 e-2 e-3) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Normalise-nf arg-0 e-0 arg-1 e-2 e-4) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-6 (vector-ref act-25 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-25 1))) ((TTImpC-45ProcessDef-impossibleOK arg-0 e-0 arg-1 e-5 e-6) eta-0))))))))))))))) ((2) (let ((e-5 (vector-ref arg-2 1))) (let ((e-7 (vector-ref arg-2 3))) (let ((e-8 (vector-ref arg-2 4))) (let ((e-9 (vector-ref arg-2 5))) (lambda (eta-0) (let ((act-24 ((CoreC-45Normalise-nf arg-0 e-5 arg-1 e-7 e-8) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Normalise-nf arg-0 e-5 arg-1 e-7 e-9) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref act-25 1))) ((TTImpC-45ProcessDef-impossibleOK arg-0 e-5 arg-1 e-10 e-11) eta-0))))))))))))))) ((44) (let ((e-13 (vector-ref arg-2 4))) (lambda (clam-0) (cond ((equal? e-13 3) (vector 1 1))(else (vector 1 0)))))) ((4) (lambda (eta-0) (vector 1 1))) ((21) (let ((e-21 (vector-ref arg-2 1))) (lambda (eta-0) (CoreC-45Core-anyM (lambda (eta-1) (TTImpC-45ProcessDef-impossibleErrOK arg-0 arg-1 eta-1)) (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) e-21) eta-0)))) ((5) (let ((e-27 (vector-ref arg-2 6))) (TTImpC-45ProcessDef-impossibleErrOK arg-0 arg-1 e-27)))(else (lambda (eta-0) (vector 1 0)))))) +(define TTImpC-45ProcessDef-hasEmptyPat (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (case (vector-ref arg-4 0) ((3) (let ((e-2 (vector-ref arg-4 2))) (let ((e-3 (vector-ref arg-4 3))) (let ((e-4 (vector-ref arg-4 4))) (let ((act-24 ((CoreC-45Normalise-nf arg-1 arg-0 arg-2 arg-3 (CoreC-45TT-binderType e-3)) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Coverage-isEmpty arg-0 arg-1 arg-2 arg-3 e-5 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-6 (vector-ref act-25 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45ProcessDef-hasEmptyPat (cons e-2 arg-0) arg-1 arg-2 (cons e-3 arg-3) e-4 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-7 (vector-ref act-26 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (cond ((equal? e-6 1) 1) (else e-7)))))))))))))))))))(else (vector 1 0))))) +(define TTImpC-45ProcessDef-findLinear (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (case (vector-ref arg-5 0) ((3) (let ((e-2 (vector-ref arg-5 2))) (let ((e-4 (vector-ref arg-5 4))) (TTImpC-45ProcessDef-findLinear (cons e-2 arg-0) arg-1 arg-2 (+ 1 arg-3) arg-4 e-4)))) ((5) (let ((e-9 (vector-ref arg-5 4))) (TTImpC-45ProcessDef-findLinear arg-0 arg-1 arg-2 arg-3 arg-4 e-9)))(else (TTImpC-45ProcessDef-case--findLinear-4386 arg-0 arg-5 arg-4 arg-3 arg-2 arg-1 (CoreC-45TT-getFnArgs arg-5)))))) +(define TTImpC-45ProcessDef-extendEnv (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (case (vector-ref arg-5 0) ((3) (let ((e-1 (vector-ref arg-5 1))) (let ((e-2 (vector-ref arg-5 2))) (let ((e-3 (vector-ref arg-5 3))) (let ((e-4 (vector-ref arg-5 4))) (case (vector-ref e-3 0) ((3) (let ((e-6 (vector-ref e-3 1))) (let ((e-7 (vector-ref e-3 2))) (let ((e-8 (vector-ref e-3 3))) (let ((e-9 (vector-ref e-3 4))) (case (vector-ref arg-6 0) ((3) (let ((e-16 (vector-ref arg-6 1))) (let ((e-17 (vector-ref arg-6 2))) (let ((e-18 (vector-ref arg-6 3))) (let ((e-19 (vector-ref arg-6 4))) (case (vector-ref e-18 0) ((5) (let ((e-21 (vector-ref e-18 1))) (let ((e-22 (vector-ref e-18 2))) (let ((e-23 (vector-ref e-18 3))) (TTImpC-45ProcessDef-with--extendEnv-3863 e-2 e-17 (CoreC-45Name-nameEq e-2 e-17) 'erased arg-1 e-16 e-21 e-22 e-23 e-1 e-9 e-8 e-7 e-6 e-4 e-19 arg-4 arg-3 arg-2)))))(else (lambda (eta-0) (vector 1 (cons arg-1 (cons arg-3 (cons arg-2 (cons arg-4 (cons arg-5 arg-6))))))))))))))(else (lambda (eta-0) (vector 1 (cons arg-1 (cons arg-3 (cons arg-2 (cons arg-4 (cons arg-5 arg-6)))))))))))))) ((4) (let ((e-11 (vector-ref e-3 1))) (let ((e-12 (vector-ref e-3 2))) (let ((e-13 (vector-ref e-3 3))) (let ((e-14 (vector-ref e-3 4))) (case (vector-ref arg-6 0) ((3) (let ((e-25 (vector-ref arg-6 1))) (let ((e-26 (vector-ref arg-6 2))) (let ((e-27 (vector-ref arg-6 3))) (let ((e-28 (vector-ref arg-6 4))) (case (vector-ref e-27 0) ((4) (let ((e-30 (vector-ref e-27 1))) (let ((e-31 (vector-ref e-27 2))) (let ((e-32 (vector-ref e-27 3))) (let ((e-33 (vector-ref e-27 4))) (TTImpC-45ProcessDef-with--extendEnv-3944 e-2 e-26 (CoreC-45Name-nameEq e-2 e-26) 'erased arg-1 e-25 e-30 e-31 e-33 e-32 e-1 e-13 e-14 e-12 e-11 e-4 e-28 arg-4 arg-3 arg-2))))))(else (lambda (eta-0) (vector 1 (cons arg-1 (cons arg-3 (cons arg-2 (cons arg-4 (cons arg-5 arg-6))))))))))))))(else (lambda (eta-0) (vector 1 (cons arg-1 (cons arg-3 (cons arg-2 (cons arg-4 (cons arg-5 arg-6))))))))))))))(else (lambda (eta-0) (vector 1 (cons arg-1 (cons arg-3 (cons arg-2 (cons arg-4 (cons arg-5 arg-6))))))))))))))(else (lambda (eta-0) (vector 1 (cons arg-1 (cons arg-3 (cons arg-2 (cons arg-4 (cons arg-5 arg-6))))))))))) +(define TTImpC-45ProcessDef-compileRunTime (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Core-traverse_ (lambda (eta-0) (lambda (eta-1) (TTImpC-45ProcessDef-mkRunTime arg-0 arg-1 arg-2 arg-3 eta-0 eta-1))) (let ((e-22 (vector-ref e-5 22))) e-22) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45Core-traverse_ (lambda (eta-0) (lambda (eta-1) (TTImpC-45ProcessDef-calcRefs arg-0 1 arg-4 eta-0 eta-1))) (let ((e-22 (vector-ref e-5 22))) e-22) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((act-27 (let ((act-27 (unbox arg-0))) (vector 1 act-27)))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (let ((act-28 (set-box! arg-0 (let ((e-0 (vector-ref e-8 0))) (let ((e-1 (vector-ref e-8 1))) (let ((e-2 (vector-ref e-8 2))) (let ((e-3 (vector-ref e-8 3))) (let ((e-4 (vector-ref e-8 4))) (let ((e-32 (vector-ref e-8 5))) (let ((e-31 (vector-ref e-8 6))) (let ((e-30 (vector-ref e-8 7))) (let ((e-29 (vector-ref e-8 8))) (let ((e-9 (vector-ref e-8 9))) (let ((e-10 (vector-ref e-8 10))) (let ((e-11 (vector-ref e-8 11))) (let ((e-12 (vector-ref e-8 12))) (let ((e-13 (vector-ref e-8 13))) (let ((e-14 (vector-ref e-8 14))) (let ((e-15 (vector-ref e-8 15))) (let ((e-16 (vector-ref e-8 16))) (let ((e-17 (vector-ref e-8 17))) (let ((e-18 (vector-ref e-8 18))) (let ((e-19 (vector-ref e-8 19))) (let ((e-20 (vector-ref e-8 20))) (let ((e-21 (vector-ref e-8 21))) (let ((e-23 (vector-ref e-8 23))) (let ((e-24 (vector-ref e-8 24))) (let ((e-25 (vector-ref e-8 25))) (let ((e-26 (vector-ref e-8 26))) (let ((e-27 (vector-ref e-8 27))) (let ((e-28 (vector-ref e-8 28))) (vector e-0 e-1 e-2 e-3 e-4 e-32 e-31 e-30 e-29 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 '() e-23 e-24 e-25 e-26 e-27 e-28)))))))))))))))))))))))))))))))) (vector 1 act-28)))))))))))))))))) +(define TTImpC-45ProcessDef-combineLinear (lambda (arg-0 arg-1) (if (null? arg-1) (lambda (eta-0) (vector 1 '())) (let ((e-2 (car arg-1))) (let ((e-3 (cdr arg-1))) (let ((e-6 (car e-2))) (let ((e-7 (cdr e-2))) (lambda (eta-0) (TTImpC-45ProcessDef-case--combineLinear-4844 e-6 e-7 e-3 arg-0 (TTImpC-45ProcessDef-n--12676-4689-u--lookupAll e-6 e-7 e-3 arg-0 e-6 e-3) eta-0))))))))) +(define TTImpC-45ProcessDef-checkLHS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (TTImpC-45TTImp-logRaw arg-1 "declare.def.lhs" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))))))))))))))))))))))) (lambda () "Raw LHS: ") arg-12 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 (cond ((equal? arg-4 1) (vector 1 arg-12)) (else ((TTImpC-45TTImp-lhsInCurrentNS arg-1 arg-9 arg-12) ext-0))))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (TTImpC-45TTImp-logRaw arg-1 "declare.def.lhs" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))))))))))))))))))))))) (lambda () "Raw LHS in current NS: ") e-7 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((act-28 (CoreC-45Context-isUnboundImplicits arg-1 ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-28 1))) (let ((act-29 (CoreC-45Context-setUnboundImplicits arg-1 1 ext-0))) (case (vector-ref act-29 0) ((0) (let ((e-2 (vector-ref act-29 1))) (vector 0 e-2))) (else (let ((act-30 (TTImpC-45BindImplicits-bindNames arg-1 0 e-7 ext-0))) (case (vector-ref act-30 0) ((0) (let ((e-2 (vector-ref act-30 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref act-30 1))) (let ((e-3 (cdr e-11))) (let ((act-31 (CoreC-45Context-setUnboundImplicits arg-1 e-9 ext-0))) (case (vector-ref act-31 0) ((0) (let ((e-4 (vector-ref act-31 1))) (vector 0 e-4))) (else (let ((act-32 (TTImpC-45TTImp-logRaw arg-1 "declare.def.lhs" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))))))))))))))))))))))) (lambda () "Raw LHS with implicits bound") e-3 ext-0))) (case (vector-ref act-32 0) ((0) (let ((e-4 (vector-ref act-32 1))) (vector 0 e-4))) (else (let ((act-33 (cond ((equal? arg-4 1) (vector 1 e-3)) (else ((TTImpC-45TTImp-implicitsAs arg-1 arg-7 e-5 arg-0 e-3) ext-0))))) (case (vector-ref act-33 0) ((0) (let ((e-4 (vector-ref act-33 1))) (vector 0 e-4))) (else (let ((e-14 (vector-ref act-33 1))) (let ((act-34 (CoreC-45ContextC-45Log-unverifiedLogC arg-1 "declare.def.lhs" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-0) (let ((act-34 (CoreC-45Context-getFullName arg-1 (vector 9 arg-7) eta-0))) (case (vector-ref act-34 0) ((0) (let ((e-4 (vector-ref act-34 1))) (vector 0 e-4))) (else (let ((e-15 (vector-ref act-34 1))) (vector 1 (PreludeC-45TypesC-45String-C-43C-43 "Checking LHS of " (CoreC-45Name-u--show_Show_Name e-15)))))))) ext-0))) (case (vector-ref act-34 0) ((0) (let ((e-4 (vector-ref act-34 1))) (vector 0 e-4))) (else (let ((act-35 (CoreC-45ContextC-45Log-log arg-1 "declare.def.lhs" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (TTImpC-45TTImp-u--show_Show_RawImp e-14)) ext-0))) (case (vector-ref act-35 0) ((0) (let ((e-4 (vector-ref act-35 1))) (vector 0 e-4))) (else (let ((act-36 (CoreC-45Normalise-logEnv arg-0 arg-1 "declare.def.lhs" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) "In env" arg-10 ext-0))) (case (vector-ref act-36 0) ((0) (let ((e-4 (vector-ref act-36 1))) (vector 0 e-4))) (else (let ((u--lhsMode (cond ((equal? arg-4 1) (vector 3 )) (else (vector 1 arg-5))))) (let ((act-37 (let ((act-37 (CoreC-45Context-getFullName arg-1 (vector 9 arg-7) ext-0))) (case (vector-ref act-37 0) ((0) (let ((e-4 (vector-ref act-37 1))) (vector 0 e-4))) (else (let ((e-18 (vector-ref act-37 1))) ((TTImpC-45ElabC-45Utils-wrapErrorC arg-8 (lambda (eta-0) (vector 64 arg-11 e-18 eta-0)) (TTImpC-45Elab-elabTerm arg-0 arg-1 arg-2 arg-3 arg-7 u--lhsMode arg-8 arg-9 arg-10 (vector 16 arg-11 (vector 1 ) e-14) '())) ext-0))))))) (case (vector-ref act-37 0) ((0) (let ((e-4 (vector-ref act-37 1))) (vector 0 e-4))) (else (let ((e-18 (vector-ref act-37 1))) (let ((e-19 (car e-18))) (let ((e-4 (cdr e-18))) (let ((act-38 (CoreC-45ContextC-45Log-logTerm arg-0 arg-1 "declare.def.lhs" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Checked LHS term") e-19 ext-0))) (case (vector-ref act-38 0) ((0) (let ((e-20 (vector-ref act-38 1))) (vector 0 e-20))) (else (let ((act-39 ((CoreC-45Normalise-getTerm e-4) ext-0))) (case (vector-ref act-39 0) ((0) (let ((e-21 (vector-ref act-39 1))) (vector 0 e-21))) (else (let ((e-21 (vector-ref act-39 1))) (let ((act-40 (let ((act-40 (unbox arg-1))) (vector 1 act-40)))) (case (vector-ref act-40 0) ((0) (let ((e-22 (vector-ref act-40 1))) (vector 0 e-22))) (else (let ((e-22 (vector-ref act-40 1))) (let ((u--lhsenv (CoreC-45Env-letToLam arg-10))) (let ((act-41 (CoreC-45Normalise-normaliseHoles arg-1 arg-0 e-22 u--lhsenv e-19 ext-0))) (case (vector-ref act-41 0) ((0) (let ((e-23 (vector-ref act-41 1))) (vector 0 e-23))) (else (let ((e-23 (vector-ref act-41 1))) (let ((act-42 (CoreC-45Normalise-normaliseHoles arg-1 arg-0 e-22 arg-10 e-21 ext-0))) (case (vector-ref act-42 0) ((0) (let ((e-24 (vector-ref act-42 1))) (vector 0 e-24))) (else (let ((e-24 (vector-ref act-42 1))) (let ((act-43 ((TTImpC-45ProcessDef-findLinear arg-0 arg-1 1 0 (AlgebraC-45Semiring-linear (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))) e-23) ext-0))) (case (vector-ref act-43 0) ((0) (let ((e-25 (vector-ref act-43 1))) (vector 0 e-25))) (else (let ((e-25 (vector-ref act-43 1))) (let ((act-44 (CoreC-45ContextC-45Log-logTerm arg-0 arg-1 "declare.def.lhs" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Checked LHS term after normalise") e-23 ext-0))) (case (vector-ref act-44 0) ((0) (let ((e-26 (vector-ref act-44 1))) (vector 0 e-26))) (else (let ((act-45 (CoreC-45ContextC-45Log-log arg-1 "declare.def.lhs" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Linearity of names in " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Int arg-7) (PreludeC-45TypesC-45String-C-43C-43 ": " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (CoreC-45Name-u--show_Show_Name x-0)) (lambda (u--d) (lambda (x-0) (CoreC-45Name-u--showPrec_Show_Name u--d x-0)))) (cons (lambda (x-0) (AlgebraC-45ZeroOneOmega-u--show_Show_ZeroOneOmega x-0)) (lambda (u--d) (lambda (x-0) (AlgebraC-45ZeroOneOmega-u--showPrec_Show_ZeroOneOmega u--d x-0))))) u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (CoreC-45Name-u--show_Show_Name x-0)) (lambda (d-0) (lambda (x-0) (CoreC-45Name-u--showPrec_Show_Name d-0 x-0)))) (cons (lambda (x-0) (AlgebraC-45ZeroOneOmega-u--show_Show_ZeroOneOmega x-0)) (lambda (d-0) (lambda (x-0) (AlgebraC-45ZeroOneOmega-u--showPrec_Show_ZeroOneOmega d-0 x-0))))) u--d u--x)))) e-25))))) ext-0))) (case (vector-ref act-45 0) ((0) (let ((e-27 (vector-ref act-45 1))) (vector 0 e-27))) (else (let ((act-46 ((TTImpC-45ProcessDef-combineLinear arg-11 e-25) ext-0))) (case (vector-ref act-46 0) ((0) (let ((e-28 (vector-ref act-46 1))) (vector 0 e-28))) (else (let ((e-28 (vector-ref act-46 1))) (let ((u--lhstm_lin (TTImpC-45ProcessDef-setLinear e-28 e-23))) (let ((u--lhsty_lin (TTImpC-45ProcessDef-setLinear e-28 e-24))) (let ((act-47 (CoreC-45ContextC-45Log-logTerm arg-0 arg-1 "declare.def.lhs" (+ 1 (+ 1 (+ 1 0))) (lambda () "LHS term") u--lhstm_lin ext-0))) (case (vector-ref act-47 0) ((0) (let ((e-29 (vector-ref act-47 1))) (vector 0 e-29))) (else (let ((act-48 (CoreC-45ContextC-45Log-logTerm arg-0 arg-1 "declare.def.lhs" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "LHS type") u--lhsty_lin ext-0))) (case (vector-ref act-48 0) ((0) (let ((e-30 (vector-ref act-48 1))) (vector 0 e-30))) (else (let ((act-49 (CoreC-45Metadata-setHoleLHS arg-2 (CoreC-45Env-bindEnv arg-0 arg-11 arg-10 u--lhstm_lin) ext-0))) (case (vector-ref act-49 0) ((0) (let ((e-31 (vector-ref act-49 1))) (vector 0 e-31))) (else (let ((act-50 ((TTImpC-45ProcessDef-extendEnv arg-0 arg-10 (vector 0 ) arg-9 u--lhstm_lin u--lhsty_lin) ext-0))) (case (vector-ref act-50 0) ((0) (let ((e-32 (vector-ref act-50 1))) (vector 0 e-32))) (else (let ((e-32 (vector-ref act-50 1))) (vector 1 (cons e-14 e-32))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) +(define TTImpC-45ProcessDef-checkClause (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 ext-0) (case (vector-ref arg-12 0) ((2) (let ((e-0 (vector-ref arg-12 1))) (let ((e-1 (vector-ref arg-12 2))) (let ((act-24 ((TTImpC-45TTImp-lhsInCurrentNS arg-1 arg-10 e-1) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (CoreC-45UnifyState-handleUnify arg-1 arg-3 (lambda (eta-0) (let ((act-25 (CoreC-45Context-isUnboundImplicits arg-1 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Context-setUnboundImplicits arg-1 1 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((act-27 (TTImpC-45BindImplicits-bindNames arg-1 0 e-5 eta-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (let ((e-3 (cdr e-8))) (let ((act-28 (CoreC-45Context-setUnboundImplicits arg-1 e-6 eta-0))) (case (vector-ref act-28 0) ((0) (let ((e-4 (vector-ref act-28 1))) (vector 0 e-4))) (else (let ((act-29 (CoreC-45ContextC-45Log-log arg-1 "declare.def.clause.impossible" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Checking " (TTImpC-45TTImp-u--show_Show_RawImp e-3))) eta-0))) (case (vector-ref act-29 0) ((0) (let ((e-4 (vector-ref act-29 1))) (vector 0 e-4))) (else (let ((act-30 (CoreC-45Normalise-logEnv arg-0 arg-1 "declare.def.clause.impossible" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) "In env" arg-11 eta-0))) (case (vector-ref act-30 0) ((0) (let ((e-4 (vector-ref act-30 1))) (vector 0 e-4))) (else (let ((act-31 ((TTImpC-45Elab-elabTerm arg-0 arg-1 arg-2 arg-3 arg-8 (vector 1 arg-4) arg-9 arg-10 arg-11 (vector 16 e-0 (vector 1 ) e-3) '()) eta-0))) (case (vector-ref act-31 0) ((0) (let ((e-4 (vector-ref act-31 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref act-31 1))) (let ((e-13 (car e-12))) (let ((act-32 (let ((act-32 (unbox arg-1))) (vector 1 act-32)))) (case (vector-ref act-32 0) ((0) (let ((e-14 (vector-ref act-32 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref act-32 1))) (let ((act-33 (CoreC-45Normalise-normaliseHoles arg-1 arg-0 e-14 arg-11 e-13 eta-0))) (case (vector-ref act-33 0) ((0) (let ((e-15 (vector-ref act-33 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref act-33 1))) (let ((act-34 (TTImpC-45ProcessDef-hasEmptyPat arg-0 arg-1 e-14 arg-11 e-15 eta-0))) (case (vector-ref act-34 0) ((0) (let ((e-16 (vector-ref act-34 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref act-34 1))) (cond ((equal? e-16 1) (vector 1 (vector 0 e-5))) (else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 6 arg-0 e-0 arg-11 (vector 0 e-15)) eta-0)))))))))))))))))))))))))))))))))))))))))) (lambda (u--err) (lambda (clam-1) (case (vector-ref u--err 0) ((6) (CoreC-45Core-u--throw_Catchable_Core_Error u--err clam-1))(else (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 ((TTImpC-45ProcessDef-impossibleErrOK arg-1 e-6 u--err) clam-1))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (cond ((equal? e-7 1) (vector 1 (vector 0 e-5))) (else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 6 arg-0 e-0 arg-11 (vector 1 u--err)) clam-1))))))))))))))) ext-0)))))))) ((0) (let ((e-2 (vector-ref arg-12 1))) (let ((e-3 (vector-ref arg-12 2))) (let ((e-4 (vector-ref arg-12 3))) (let ((act-24 (TTImpC-45ProcessDef-checkLHS arg-0 arg-1 arg-2 arg-3 0 arg-4 arg-7 arg-8 arg-9 arg-10 arg-11 e-2 e-3 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((e-6 (cdr e-5))) (let ((e-9 (car e-6))) (let ((e-8 (cdr e-6))) (let ((e-10 (car e-8))) (let ((e-11 (cdr e-8))) (let ((e-14 (car e-11))) (let ((e-15 (cdr e-11))) (let ((e-18 (car e-15))) (let ((e-19 (cdr e-15))) (let ((e-22 (car e-19))) (let ((e-23 (cdr e-19))) (let ((u--rhsMode (let ((sc8 (AlgebraC-45Semiring-isErased (cons (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-13) (lambda (arg-14) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-13 arg-14))) (lambda (arg-13) (lambda (arg-14) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-13 arg-14))))) arg-4))) (cond ((equal? sc8 1) (vector 0 )) (else (vector 2 )))))) (let ((act-25 (CoreC-45ContextC-45Log-log arg-1 "declare.def.clause" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Checking RHS " (TTImpC-45TTImp-u--show_Show_RawImp e-4))) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-12 (vector-ref act-25 1))) (vector 0 e-12))) (else (let ((act-26 (CoreC-45Normalise-logEnv e-9 arg-1 "declare.def.clause" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) "In env" e-14 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-13 (vector-ref act-26 1))) (vector 0 e-13))) (else (let ((act-27 (let ((act-27 (CoreC-45Context-getFullName arg-1 (vector 9 arg-8) ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-16 (vector-ref act-27 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref act-27 1))) (CoreC-45ContextC-45Log-logTime arg-1 (lambda () (PreludeC-45TypesC-45String-C-43C-43 "+++ Check RHS " (CoreC-45FC-u--show_Show_FC e-2))) (TTImpC-45ElabC-45Utils-wrapErrorC arg-9 (lambda (eta-0) (vector 65 e-2 e-16 eta-0)) (lambda (eta-0) (TTImpC-45Elab-checkTermSub arg-0 e-9 arg-1 arg-2 arg-3 arg-8 u--rhsMode arg-9 e-18 e-14 arg-11 e-10 e-4 (CoreC-45Normalise-gnf e-9 e-14 e-23) eta-0))) ext-0))))))) (case (vector-ref act-27 0) ((0) (let ((e-16 (vector-ref act-27 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref act-27 1))) (let ((act-28 (CoreC-45Metadata-clearHoleLHS arg-2 ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-17 (vector-ref act-28 1))) (vector 0 e-17))) (else (let ((act-29 (CoreC-45ContextC-45Log-logTerm e-9 arg-1 "declare.def.clause" (+ 1 (+ 1 (+ 1 0))) (lambda () "RHS term") e-16 ext-0))) (case (vector-ref act-29 0) ((0) (let ((e-20 (vector-ref act-29 1))) (vector 0 e-20))) (else (let ((act-30 (cond ((equal? arg-7 1) (let ((act-30 (CoreC-45Context-addHashWithNames arg-1 (cons (lambda (arg-529) (CoreC-45Hash-u--hash_Hashable_C-40TermC-32C-36varsC-41 arg-529)) (lambda (arg-530) (lambda (arg-531) (CoreC-45Hash-u--hashWithSalt_Hashable_C-40TermC-32C-36varsC-41 arg-530 arg-531)))) (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-0))))) e-22 ext-0))) (case (vector-ref act-30 0) ((0) (let ((e-21 (vector-ref act-30 1))) (vector 0 e-21))) (else (CoreC-45Context-addHashWithNames arg-1 (cons (lambda (arg-529) (CoreC-45Hash-u--hash_Hashable_C-40TermC-32C-36varsC-41 arg-529)) (lambda (arg-530) (lambda (arg-531) (CoreC-45Hash-u--hashWithSalt_Hashable_C-40TermC-32C-36varsC-41 arg-530 arg-531)))) (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-0))))) e-16 ext-0))))) (else (vector 1 0))))) (case (vector-ref act-30 0) ((0) (let ((e-21 (vector-ref act-30 1))) (vector 0 e-21))) (else (let ((act-31 (case (vector-ref e-16 0) ((2) (CoreC-45Metadata-addLHS e-9 arg-1 arg-2 (TTImpC-45TTImp-getFC e-3) (CoreC-45Env-length arg-11) e-14 e-22 ext-0))(else (vector 1 0))))) (case (vector-ref act-31 0) ((0) (let ((e-24 (vector-ref act-31 1))) (vector 0 e-24))) (else (vector 1 (vector 1 (vector e-9 e-14 e-22 e-16))))))))))))))))))))))))))))))))))))))))))))) (else (let ((e-5 (vector-ref arg-12 1))) (let ((e-6 (vector-ref arg-12 2))) (let ((e-7 (vector-ref arg-12 3))) (let ((e-8 (vector-ref arg-12 4))) (let ((e-9 (vector-ref arg-12 5))) (let ((e-10 (vector-ref arg-12 6))) (let ((act-24 (TTImpC-45ProcessDef-checkLHS arg-0 arg-1 arg-2 arg-3 0 arg-4 arg-7 arg-8 arg-9 arg-10 arg-11 e-5 e-6 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref act-24 1))) (let ((e-2 (car e-11))) (let ((e-3 (cdr e-11))) (let ((e-13 (car e-3))) (let ((e-12 (cdr e-3))) (let ((e-15 (car e-12))) (let ((e-14 (cdr e-12))) (let ((e-17 (car e-14))) (let ((e-16 (cdr e-14))) (let ((e-18 (car e-16))) (let ((e-19 (cdr e-16))) (let ((e-22 (car e-19))) (let ((e-23 (cdr e-19))) (let ((u--wmode (let ((sc8 (AlgebraC-45Semiring-isErased (cons (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-13) (lambda (arg-14) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-13 arg-14))) (lambda (arg-13) (lambda (arg-14) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-13 arg-14))))) arg-4))) (cond ((equal? sc8 1) (vector 0 )) (else (vector 2 )))))) (let ((act-25 (let ((act-25 (CoreC-45Context-getFullName arg-1 (vector 9 arg-8) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-20 (vector-ref act-25 1))) ((TTImpC-45ElabC-45Utils-wrapErrorC arg-9 (lambda (eta-0) (vector 65 e-5 e-20 eta-0)) (TTImpC-45Elab-elabTermSub arg-0 e-13 arg-1 arg-2 arg-3 arg-8 u--wmode arg-9 e-18 e-17 arg-11 e-15 e-7 '())) ext-0))))))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-20 (vector-ref act-25 1))) (let ((_-0 (cons e-2 (cons e-13 (cons e-15 (cons e-17 (cons e-18 (cons e-22 e-23)))))))) (let ((e-21 (car e-20))) (let ((e-4 (cdr e-20))) (let ((act-26 (CoreC-45Metadata-clearHoleLHS arg-2 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-24 (vector-ref act-26 1))) (vector 0 e-24))) (else (let ((act-27 (CoreC-45ContextC-45Log-logTerm e-13 arg-1 "declare.def.clause.with" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "With value") e-21 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-25 (vector-ref act-27 1))) (vector 0 e-25))) (else (let ((act-28 (CoreC-45ContextC-45Log-logTerm e-13 arg-1 "declare.def.clause.with" (+ 1 (+ 1 (+ 1 0))) (lambda () "Required type") e-23 ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-26 (vector-ref act-28 1))) (vector 0 e-26))) (else (let ((act-29 ((CoreC-45Normalise-getTerm e-4) ext-0))) (case (vector-ref act-29 0) ((0) (let ((e-27 (vector-ref act-29 1))) (vector 0 e-27))) (else (let ((e-27 (vector-ref act-29 1))) (let ((act-30 (let ((act-30 (unbox arg-1))) (vector 1 act-30)))) (case (vector-ref act-30 0) ((0) (let ((e-28 (vector-ref act-30 1))) (vector 0 e-28))) (else (let ((e-28 (vector-ref act-30 1))) (let ((act-31 (CoreC-45Normalise-normaliseHoles arg-1 e-13 e-28 e-17 e-21 ext-0))) (case (vector-ref act-31 0) ((0) (let ((e-29 (vector-ref act-31 1))) (vector 0 e-29))) (else (let ((e-29 (vector-ref act-31 1))) (let ((act-32 (CoreC-45Normalise-normaliseHoles arg-1 e-13 e-28 e-17 e-27 ext-0))) (case (vector-ref act-32 0) ((0) (let ((e-30 (vector-ref act-32 1))) (vector 0 e-30))) (else (let ((e-30 (vector-ref act-32 1))) (let ((_-1 (cons e-21 e-4))) (TTImpC-45ProcessDef-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkClause-7572 e-10 e-9 e-8 e-7 e-6 e-5 arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-2 e-13 e-15 e-17 e-18 e-22 e-23 _-0 u--wmode e-21 e-4 _-1 e-27 e-28 e-29 e-30 (TTImpC-45ProcessDef-n--13735-6497-u--keepOldEnv e-10 e-9 e-8 e-7 e-6 e-5 arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-13 e-15 (let ((sc17 (CoreC-45Env-findSubEnv e-13 e-17 e-29))) (let ((e-31 (cdr sc17))) e-31))) ext-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) +(define TTImpC-45ProcessDef-calcRefs (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact arg-3 (let ((e-0 (vector-ref e-5 0))) e-0)) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (if (null? e-6) (vector 1 0) (let ((e-1 (unbox e-6))) (let ((_-0 (box e-1))) ((TTImpC-45ProcessDef-case--caseC-32blockC-32inC-32calcRefs-10088 arg-3 arg-2 arg-1 arg-0 e-5 e-1 _-0 (let ((e-17 (vector-ref e-1 17))) e-17)) ext-0)))))))))))))) +(define TTImpC-45ProcessDef-applyEnv (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (CoreC-45Context-resolveName arg-1 arg-3 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (cons arg-3 (cons (box arg-3) (cons (DataC-45List-reverse (CoreC-45Env-allVarsNoLet arg-0 arg-2)) (lambda (u--fc) (lambda (u--nt) (CoreC-45UnifyState-applyTo arg-0 u--fc (vector 1 u--fc u--nt (vector 9 e-5)) arg-2))))))))))))) +(define TTImpC-45WithClause-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32getNewLHS-12712 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 ext-0) (if (null? arg-21) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-7 "Badly formed 'with' clause") ext-0) (let ((e-1 (car arg-21))) (let ((e-2 (cdr arg-21))) (let ((act-24 (CoreC-45ContextC-45Log-log arg-9 "declare.def.clause.with" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 (TTImpC-45TTImp-u--show_Show_RawImp arg-16) (PreludeC-45TypesC-45String-C-43C-43 " against " (PreludeC-45TypesC-45String-C-43C-43 (TTImpC-45TTImp-u--show_Show_RawImp arg-19) (PreludeC-45TypesC-45String-C-43C-43 " dropping " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (TTImpC-45TTImp-u--show_Show_RawImp u--x)) (lambda (u--d) (lambda (u--x) (TTImpC-45TTImp-u--showPrec_Show_RawImp u--d u--x)))) (cons e-1 e-2))))))) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (let ((act-25 ((TTImpC-45WithClause-getMatch arg-8 arg-9 1 arg-16 arg-19) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-3 (vector-ref act-25 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45ContextC-45Log-log arg-9 "declare.def.clause.with" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Matches: " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_String x-0)) (lambda (u--d) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_String u--d x-0)))) (cons (lambda (x-0) (TTImpC-45TTImp-u--show_Show_RawImp x-0)) (lambda (u--d) (lambda (x-0) (TTImpC-45TTImp-u--showPrec_Show_RawImp u--d x-0))))) u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_String x-0)) (lambda (d-0) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_String d-0 x-0)))) (cons (lambda (x-0) (TTImpC-45TTImp-u--show_Show_RawImp x-0)) (lambda (d-0) (lambda (x-0) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-0 x-0))))) u--d u--x)))) e-6))) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-3 (vector-ref act-26 1))) (vector 0 e-3))) (else (let ((u--params (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (TTImpC-45WithClause-getArgMatch arg-10 (vector 1 (AlgebraC-45ZeroOneOmega-u--top_Top_ZeroOneOmega)) 0 e-1 e-6 eta-0)) arg-3))) (let ((act-27 (CoreC-45ContextC-45Log-log arg-9 "declare.def.clause.with" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Parameters: " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (TTImpC-45TTImp-u--show_Show_RawImp u--x)) (lambda (u--d) (lambda (u--x) (TTImpC-45TTImp-u--showPrec_Show_RawImp u--d u--x)))) u--params))) ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-3 (vector-ref act-27 1))) (vector 0 e-3))) (else (let ((act-28 ((TTImpC-45WithClause-getHeadLoc arg-1) ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-3 (vector-ref act-28 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref act-28 1))) (let ((u--newlhs (TTImpC-45TTImp-apply (vector 0 e-9 arg-4) (PreludeC-45TypesC-45List-C-43C-43 u--params e-2)))) (let ((act-29 (CoreC-45ContextC-45Log-log arg-9 "declare.def.clause.with" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "New LHS: " (TTImpC-45TTImp-u--show_Show_RawImp u--newlhs))) ext-0))) (case (vector-ref act-29 0) ((0) (let ((e-3 (vector-ref act-29 1))) (vector 0 e-3))) (else (vector 1 u--newlhs)))))))))))))))))))))))))))) +(define TTImpC-45WithClause-n--7506-12938-u--wrhsC (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 ext-0) (case (vector-ref arg-8 0) ((0) (let ((e-0 (vector-ref arg-8 1))) (let ((e-1 (vector-ref arg-8 2))) (let ((e-2 (vector-ref arg-8 3))) (let ((act-24 ((TTImpC-45WithClause-n--7506-12937-u--wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-2) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 0 e-0 e-1 e-5))))))))))(else (vector 1 arg-8))))) +(define TTImpC-45WithClause-n--7506-12937-u--wrhs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (case (vector-ref arg-8 0) ((1) (let ((e-0 (vector-ref arg-8 1))) (let ((e-1 (vector-ref arg-8 2))) (let ((e-2 (vector-ref arg-8 3))) (let ((e-3 (vector-ref arg-8 4))) (let ((e-4 (vector-ref arg-8 5))) (let ((e-5 (vector-ref arg-8 6))) (lambda (eta-0) (let ((act-24 ((TTImpC-45WithClause-n--7506-12937-u--wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-4) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((act-25 ((TTImpC-45WithClause-n--7506-12937-u--wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-5) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-7 (vector-ref act-25 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-25 1))) (vector 1 (vector 1 e-0 e-1 e-2 e-3 e-6 e-7)))))))))))))))))) ((2) (let ((e-6 (vector-ref arg-8 1))) (let ((e-7 (vector-ref arg-8 2))) (let ((e-8 (vector-ref arg-8 3))) (let ((e-9 (vector-ref arg-8 4))) (let ((e-10 (vector-ref arg-8 5))) (let ((e-11 (vector-ref arg-8 6))) (lambda (eta-0) (let ((act-24 ((TTImpC-45WithClause-n--7506-12937-u--wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-10) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((TTImpC-45WithClause-n--7506-12937-u--wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-11) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref act-25 1))) (vector 1 (vector 2 e-6 e-7 e-8 e-9 e-5 e-12)))))))))))))))))) ((3) (let ((e-12 (vector-ref arg-8 1))) (let ((e-13 (vector-ref arg-8 2))) (let ((e-14 (vector-ref arg-8 3))) (let ((e-15 (vector-ref arg-8 4))) (let ((e-16 (vector-ref arg-8 5))) (let ((e-17 (vector-ref arg-8 6))) (let ((e-18 (vector-ref arg-8 7))) (lambda (eta-0) (let ((act-24 ((TTImpC-45WithClause-n--7506-12937-u--wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-16) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((TTImpC-45WithClause-n--7506-12937-u--wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-17) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 ((TTImpC-45WithClause-n--7506-12937-u--wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-18) eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (vector 3 e-12 e-13 e-14 e-15 e-5 e-6 e-7))))))))))))))))))))))) ((4) (let ((e-19 (vector-ref arg-8 1))) (let ((e-20 (vector-ref arg-8 2))) (let ((e-21 (vector-ref arg-8 3))) (let ((e-22 (vector-ref arg-8 4))) (lambda (eta-0) (let ((act-24 ((TTImpC-45WithClause-n--7506-12937-u--wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-20) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((TTImpC-45WithClause-n--7506-12937-u--wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-21) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Core-traverseC-39 (lambda (eta-1) (lambda (eta-2) (TTImpC-45WithClause-n--7506-12938-u--wrhsC arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 eta-1 eta-2))) e-22 '() eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (vector 4 e-19 e-5 e-6 e-7)))))))))))))))))))) ((5) (let ((e-23 (vector-ref arg-8 1))) (let ((e-24 (vector-ref arg-8 2))) (let ((e-25 (vector-ref arg-8 3))) (lambda (eta-0) (let ((act-24 ((TTImpC-45WithClause-n--7506-12937-u--wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-25) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 5 e-23 e-24 e-5))))))))))) ((7) (let ((e-26 (vector-ref arg-8 1))) (let ((e-27 (vector-ref arg-8 2))) (let ((e-28 (vector-ref arg-8 3))) (lambda (eta-0) (let ((act-24 ((TTImpC-45WithClause-n--7506-12937-u--wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-28) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 7 e-26 e-27 e-5))))))))))) ((8) (let ((e-29 (vector-ref arg-8 1))) (let ((e-30 (vector-ref arg-8 2))) (let ((e-31 (vector-ref arg-8 3))) (lambda (eta-0) (let ((act-24 ((TTImpC-45WithClause-n--7506-12937-u--wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-30) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((TTImpC-45WithClause-n--7506-12937-u--wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-31) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (vector 8 e-29 e-5 e-6))))))))))))))) ((9) (let ((e-32 (vector-ref arg-8 1))) (let ((e-33 (vector-ref arg-8 2))) (let ((e-34 (vector-ref arg-8 3))) (lambda (eta-0) (let ((act-24 ((TTImpC-45WithClause-n--7506-12937-u--wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-33) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((TTImpC-45WithClause-n--7506-12937-u--wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-34) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (vector 9 e-32 e-5 e-6))))))))))))))) ((10) (let ((e-35 (vector-ref arg-8 1))) (let ((e-36 (vector-ref arg-8 2))) (let ((e-37 (vector-ref arg-8 3))) (let ((e-38 (vector-ref arg-8 4))) (lambda (eta-0) (let ((act-24 ((TTImpC-45WithClause-n--7506-12937-u--wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-36) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((TTImpC-45WithClause-n--7506-12937-u--wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-38) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (vector 10 e-35 e-5 e-37 e-6)))))))))))))))) ((11) (let ((e-39 (vector-ref arg-8 1))) (let ((e-40 (vector-ref arg-8 2))) (let ((e-41 (vector-ref arg-8 3))) (TTImpC-45WithClause-n--7506-12936-u--updateWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-39 e-40 (cons e-41 '())))))) ((14) (let ((e-42 (vector-ref arg-8 1))) (let ((e-43 (vector-ref arg-8 2))) (let ((e-44 (vector-ref arg-8 3))) (lambda (eta-0) (let ((act-24 ((TTImpC-45WithClause-n--7506-12937-u--wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-43) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((TTImpC-45WithClause-n--7506-12937-u--wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-44) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (vector 14 e-42 e-5 e-6))))))))))))))) ((20) (let ((e-45 (vector-ref arg-8 1))) (let ((e-46 (vector-ref arg-8 2))) (let ((e-47 (vector-ref arg-8 3))) (lambda (eta-0) (let ((act-24 ((TTImpC-45WithClause-n--7506-12937-u--wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-47) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 20 e-45 e-46 e-5))))))))))) ((21) (let ((e-48 (vector-ref arg-8 1))) (let ((e-49 (vector-ref arg-8 2))) (lambda (eta-0) (let ((act-24 ((TTImpC-45WithClause-n--7506-12937-u--wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-49) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 21 e-48 e-5)))))))))) ((22) (let ((e-50 (vector-ref arg-8 1))) (let ((e-51 (vector-ref arg-8 2))) (lambda (eta-0) (let ((act-24 ((TTImpC-45WithClause-n--7506-12937-u--wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-51) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 22 e-50 e-5))))))))))(else (lambda (eta-0) (vector 1 arg-8)))))) +(define TTImpC-45WithClause-n--7506-12935-u--withApply (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (if (null? arg-10) arg-9 (let ((e-2 (car arg-10))) (let ((e-3 (cdr arg-10))) (TTImpC-45WithClause-n--7506-12935-u--withApply arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 11 arg-8 arg-9 e-2) e-3)))))) +(define TTImpC-45WithClause-n--7506-12936-u--updateWith (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (case (vector-ref arg-9 0) ((11) (let ((e-5 (vector-ref arg-9 2))) (let ((e-6 (vector-ref arg-9 3))) (TTImpC-45WithClause-n--7506-12936-u--updateWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-5 (cons e-6 arg-10)))))(else (lambda (clam-0) (if (null? arg-10) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-8 "Badly formed 'with' application") clam-0) (let ((e-2 (car arg-10))) (let ((e-3 (cdr arg-10))) (let ((act-24 (CoreC-45ContextC-45Log-log arg-7 "declare.def.clause.with" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "With-app: Matching " (PreludeC-45TypesC-45String-C-43C-43 (TTImpC-45TTImp-u--show_Show_RawImp arg-0) (PreludeC-45TypesC-45String-C-43C-43 " against " (TTImpC-45TTImp-u--show_Show_RawImp arg-9))))) clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((act-25 ((TTImpC-45WithClause-getMatch arg-6 arg-7 0 arg-0 arg-9) clam-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 ((TTImpC-45WithClause-getHeadLoc arg-9) clam-0))) (case (vector-ref act-26 0) ((0) (let ((e-4 (vector-ref act-26 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (CoreC-45ContextC-45Log-log arg-7 "declare.def.clause.with" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Result: " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_String x-0)) (lambda (u--d) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_String u--d x-0)))) (cons (lambda (x-0) (TTImpC-45TTImp-u--show_Show_RawImp x-0)) (lambda (u--d) (lambda (x-0) (TTImpC-45TTImp-u--showPrec_Show_RawImp u--d x-0))))) u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_String x-0)) (lambda (d-0) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_String d-0 x-0)))) (cons (lambda (x-0) (TTImpC-45TTImp-u--show_Show_RawImp x-0)) (lambda (d-0) (lambda (x-0) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-0 x-0))))) u--d u--x)))) e-6))) clam-0))) (case (vector-ref act-27 0) ((0) (let ((e-4 (vector-ref act-27 1))) (vector 0 e-4))) (else (let ((u--newrhs (TTImpC-45TTImp-apply (vector 0 e-7 arg-3) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (TTImpC-45WithClause-getArgMatch arg-8 (vector 2 ) 1 e-2 e-6 eta-0)) arg-2)))) (let ((act-28 (CoreC-45ContextC-45Log-log arg-7 "declare.def.clause.with" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "With args for RHS: " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (CoreC-45TT-u--show_Show_C-40PiInfoC-32C-36tC-41 (cons (lambda (x-2) (TTImpC-45TTImp-u--show_Show_RawImp x-2)) (lambda (u--d) (lambda (x-2) (TTImpC-45TTImp-u--showPrec_Show_RawImp u--d x-2)))) x-1)) (lambda (u--d) (lambda (x-1) (CoreC-45TT-u--showPrec_Show_C-40PiInfoC-32C-36tC-41 (cons (lambda (x-2) (TTImpC-45TTImp-u--show_Show_RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-0 x-2)))) u--d x-1)))) (cons (lambda (x-1) (CoreC-45Name-u--show_Show_Name x-1)) (lambda (u--d) (lambda (x-1) (CoreC-45Name-u--showPrec_Show_Name u--d x-1))))) x-0)) (lambda (u--d) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (CoreC-45TT-u--show_Show_C-40PiInfoC-32C-36tC-41 (cons (lambda (x-2) (TTImpC-45TTImp-u--show_Show_RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-0 x-2)))) x-1)) (lambda (d-0) (lambda (x-1) (CoreC-45TT-u--showPrec_Show_C-40PiInfoC-32C-36tC-41 (cons (lambda (x-2) (TTImpC-45TTImp-u--show_Show_RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-1 x-2)))) d-0 x-1)))) (cons (lambda (x-1) (CoreC-45Name-u--show_Show_Name x-1)) (lambda (d-0) (lambda (x-1) (CoreC-45Name-u--showPrec_Show_Name d-0 x-1))))) u--d x-0)))) u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (CoreC-45TT-u--show_Show_C-40PiInfoC-32C-36tC-41 (cons (lambda (x-2) (TTImpC-45TTImp-u--show_Show_RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-0 x-2)))) x-1)) (lambda (d-0) (lambda (x-1) (CoreC-45TT-u--showPrec_Show_C-40PiInfoC-32C-36tC-41 (cons (lambda (x-2) (TTImpC-45TTImp-u--show_Show_RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-1 x-2)))) d-0 x-1)))) (cons (lambda (x-1) (CoreC-45Name-u--show_Show_Name x-1)) (lambda (d-0) (lambda (x-1) (CoreC-45Name-u--showPrec_Show_Name d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (CoreC-45TT-u--show_Show_C-40PiInfoC-32C-36tC-41 (cons (lambda (x-2) (TTImpC-45TTImp-u--show_Show_RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-1 x-2)))) x-1)) (lambda (d-1) (lambda (x-1) (CoreC-45TT-u--showPrec_Show_C-40PiInfoC-32C-36tC-41 (cons (lambda (x-2) (TTImpC-45TTImp-u--show_Show_RawImp x-2)) (lambda (d-2) (lambda (x-2) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-2 x-2)))) d-1 x-1)))) (cons (lambda (x-1) (CoreC-45Name-u--show_Show_Name x-1)) (lambda (d-1) (lambda (x-1) (CoreC-45Name-u--showPrec_Show_Name d-1 x-1))))) d-0 x-0)))) u--d u--x)))) arg-2))) clam-0))) (case (vector-ref act-28 0) ((0) (let ((e-4 (vector-ref act-28 1))) (vector 0 e-4))) (else (let ((act-29 (CoreC-45ContextC-45Log-log arg-7 "declare.def.clause.with" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "New RHS: " (TTImpC-45TTImp-u--show_Show_RawImp u--newrhs))) clam-0))) (case (vector-ref act-29 0) ((0) (let ((e-4 (vector-ref act-29 1))) (vector 0 e-4))) (else (vector 1 (TTImpC-45WithClause-n--7506-12935-u--withApply arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 u--newrhs e-3))))))))))))))))))))))))))))))) +(define TTImpC-45WithClause-n--6930-12454-u--dropWithArgs (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (cond ((equal? arg-10 0) (lambda (eta-0) (vector 1 (cons arg-11 '()))))(else (let ((e-0 (- arg-10 1))) (lambda (clam-0) (case (vector-ref arg-11 0) ((8) (let ((e-2 (vector-ref arg-11 2))) (let ((e-3 (vector-ref arg-11 3))) (let ((act-24 ((TTImpC-45WithClause-n--6930-12454-u--dropWithArgs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-0 e-2) clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((e-6 (car e-5))) (let ((e-4 (cdr e-5))) (vector 1 (cons e-6 (cons e-3 e-4))))))))))))(else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-7 "Badly formed 'with' clause") clam-0))))))))) +(define TTImpC-45WithClause-withRHS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (TTImpC-45WithClause-n--7506-12937-u--wrhs arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 arg-6))) +(define TTImpC-45WithClause-mergeMatches (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (if (null? arg-3) (vector 1 '()) (let ((e-2 (car arg-3))) (let ((e-3 (cdr arg-3))) (let ((e-6 (car e-2))) (let ((e-7 (cdr e-2))) (let ((act-24 (TTImpC-45WithClause-mergeMatches arg-0 arg-1 arg-2 e-3 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((sc3 (DataC-45List-lookup (cons (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-61C-61_Eq_String arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_String arg-4 arg-5)))) e-6 e-5))) (if (null? sc3) (vector 1 (cons (cons e-6 e-7) e-5)) (let ((e-4 (unbox sc3))) (let ((act-25 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-8 (vector-ref eta-0 1))) (vector 0 e-8))) (else (vector 1 0)))) (TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 e-7 e-4) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-8 (vector-ref act-25 1))) (vector 0 e-8))) (else (vector 1 e-5)))))))))))))))))) (define TTImpC-45WithClause-matchFail (lambda (arg-1 ext-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-1 "With clause does not match parent") ext-0))) -(define TTImpC-45WithClause-matchAny (lambda (arg-0 arg-1 arg-2 ext-0) (let ((sc0 arg-2)) (if (null? sc0) (TTImpC-45WithClause-matchFail arg-0 ext-0) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (CoreC-45Core-u--catch_Catchable_Core_Error (TTImpC-45WithClause-getMatch arg-1 e-6 e-7) (lambda (u--err) (lambda (eta-0) (TTImpC-45WithClause-matchAny arg-0 arg-1 e-3 eta-0))) ext-0)))))))))) -(define TTImpC-45WithClause-matchAll (lambda (arg-0 arg-1 ext-0) (let ((sc0 arg-1)) (if (null? sc0) (vector 1 '()) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (let ((act-24 (TTImpC-45WithClause-matchAll arg-0 e-3 ext-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((TTImpC-45WithClause-getMatch arg-0 e-6 e-7) ext-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (TTImpC-45WithClause-mergeMatches arg-0 (PreludeC-45TypesC-45List-C-43C-43 e-8 e-5) ext-0)))))))))))))))))))) -(define TTImpC-45WithClause-getNewLHS (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 ext-0) (let ((act-24 ((TTImpC-45WithClause-n--8486-1426-u--dropWithArgs arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-3 arg-8) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-2 (car sc1))) (let ((e-3 (cdr sc1))) (let ((act-25 (CoreC-45Context-isUnboundImplicits arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (CoreC-45Context-setUnboundImplicits arg-1 0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((act-27 (TTImpC-45BindImplicits-bindNames arg-1 1 arg-7 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((_-0 (cons e-2 e-3))) (let ((sc5 e-8)) (let ((e-9 (car sc5))) (let ((e-4 (cdr sc5))) (let ((act-28 (TTImpC-45BindImplicits-bindNames arg-1 1 e-2 ext-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((_-1 (cons e-9 e-4))) (let ((sc7 e-10)) (let ((e-12 (car sc7))) (let ((e-11 (cdr sc7))) (let ((act-29 (CoreC-45Context-setUnboundImplicits arg-1 e-6 ext-0))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (let ((act-30 (CoreC-45ContextC-45Log-log arg-1 "declare.def.clause.with" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))))))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Parent LHS (with implicits): " (TTImpC-45TTImp-u--show_Show_RawImp e-4))) ext-0))) (let ((sc9 act-30)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (vector 0 e-14))) (else (let ((act-31 (CoreC-45ContextC-45Log-log arg-1 "declare.def.clause.with" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))))))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Modified LHS (with implicits): " (TTImpC-45TTImp-u--show_Show_RawImp e-11))) ext-0))) (let ((sc10 act-31)) (case (vector-ref sc10 0) ((0) (let ((e-15 (vector-ref sc10 1))) (vector 0 e-15))) (else (let ((_-2 (cons e-12 e-11))) (TTImpC-45WithClause-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32getNewLHS-1662 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-2 e-3 _-0 e-6 e-9 e-4 _-1 e-12 e-11 _-2 (DataC-45List-reverse e-3) ext-0))))))))))))))))))))))))))))))))))))))))))))))))))) -(define TTImpC-45WithClause-getMatch (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((17) (let ((e-51 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (cons (cons e-51 arg-2) '()))))) ((32) (lambda (eta-0) (vector 1 '()))) ((0) (let ((e-54 (vector-ref sc0 1))) (let ((e-55 (vector-ref sc0 2))) (let ((sc1 e-55)) (case (vector-ref sc1 0) ((0) (let ((e-77 (vector-ref sc1 1))) (let ((e-78 (vector-ref sc1 2))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((0) (let ((e-79 (vector-ref sc2 1))) (let ((e-80 (vector-ref sc2 2))) (let ((sc3 e-80)) (case (vector-ref sc3 0) ((0) (let ((e-81 (vector-ref sc3 1))) (let ((e-82 (vector-ref sc3 2))) (lambda (eta-0) (TTImpC-45WithClause-case--getMatch-611 e-54 e-78 e-77 e-82 e-81 e-79 arg-0 (PreludeC-45Basics-C-38C-38 (CoreC-45Name-u--C-61C-61_Eq_Name e-78 e-82) (lambda () (CoreC-45NameC-45Namespace-isParentOf e-81 e-77))) eta-0)))))(else (lambda (eta-0) (TTImpC-45WithClause-case--getMatch-657 e-54 e-78 e-77 e-80 e-79 arg-0 (CoreC-45Name-u--C-61C-61_Eq_Name e-78 e-80) eta-0))))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((0) (let ((e-75 (vector-ref sc2 1))) (let ((e-76 (vector-ref sc2 2))) (lambda (eta-0) (TTImpC-45WithClause-case--getMatch-698 e-54 e-55 e-76 e-75 arg-0 (CoreC-45Name-u--C-61C-61_Eq_Name e-55 e-76) eta-0)))))(else (let ((sc2 arg-0)) (cond ((equal? sc2 0) (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((10) (let ((e-37 (vector-ref sc3 2))) (let ((e-39 (vector-ref sc3 4))) (lambda (eta-0) (TTImpC-45WithClause-matchAll 0 (cons (cons e-37 arg-2) (cons (cons e-39 e-39) '())) eta-0))))) ((9) (let ((e-41 (vector-ref sc3 2))) (let ((e-42 (vector-ref sc3 3))) (lambda (eta-0) (TTImpC-45WithClause-matchAll 0 (cons (cons e-41 arg-2) (cons (cons e-42 e-42) '())) eta-0)))))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((10) (let ((e-29 (vector-ref sc3 1))) (lambda (eta-0) (TTImpC-45WithClause-matchFail e-29 eta-0)))) ((9) (let ((e-33 (vector-ref sc3 1))) (lambda (eta-0) (TTImpC-45WithClause-matchFail e-33 eta-0))))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((13) (let ((e-11 (vector-ref sc3 1))) (let ((e-13 (vector-ref sc3 3))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((13) (let ((e-21 (vector-ref sc4 3))) (lambda (eta-0) (TTImpC-45WithClause-matchAny e-11 arg-0 (DataC-45List-u--zip_Zippable_List e-13 e-21) eta-0))))(else (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((18) (let ((e-10 (vector-ref sc4 5))) (TTImpC-45WithClause-getMatch arg-0 arg-1 e-10)))(else (let ((sc4 arg-1)) (case (vector-ref sc4 0) ((29) (lambda (clam-0) (let ((sc5 arg-2)) (case (vector-ref sc5 0) ((29) (vector 1 '()))(else (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) clam-0)))))) ((28) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 arg-2)) (case (vector-ref sc5 0) ((28) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (lambda (eta-0) (TTImpC-45WithClause-case--getMatch-1108 e-2 e-1 e-5 e-4 arg-0 (CoreC-45TT-u--C-61C-61_Eq_Constant e-2 e-5) eta-0)))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) eta-0)))))))))))))) ((18) (let ((e-17 (vector-ref sc3 4))) (let ((e-18 (vector-ref sc3 5))) (let ((sc4 e-17)) (case (vector-ref sc4 0) ((1) (let ((e-22 (vector-ref sc4 1))) (lambda (clam-1) (let ((sc5 arg-2)) (case (vector-ref sc5 0) ((18) (let ((e-23 (vector-ref sc5 1))) (let ((e-26 (vector-ref sc5 4))) (let ((e-27 (vector-ref sc5 5))) (let ((sc6 e-26)) (case (vector-ref sc6 0) ((1) (let ((e-28 (vector-ref sc6 1))) (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 e-18 e-27) clam-1))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (TTImpC-45WithClause-mergeMatches arg-0 (cons (cons e-22 (vector 17 e-23 e-28)) e-5) clam-1))))))))(else (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 e-18 arg-2) clam-1))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (TTImpC-45WithClause-mergeMatches arg-0 (cons (cons e-22 arg-2) e-5) clam-1)))))))))))))(else (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 e-18 arg-2) clam-1))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (TTImpC-45WithClause-mergeMatches arg-0 (cons (cons e-22 arg-2) e-5) clam-1))))))))))))(else (TTImpC-45WithClause-getMatch arg-0 e-18 arg-2)))))))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((18) (let ((e-10 (vector-ref sc3 5))) (TTImpC-45WithClause-getMatch arg-0 arg-1 e-10)))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((29) (lambda (clam-2) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((29) (vector 1 '()))(else (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) clam-2)))))) ((28) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((28) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (lambda (eta-0) (TTImpC-45WithClause-case--getMatch-1108 e-2 e-1 e-5 e-4 arg-0 (CoreC-45TT-u--C-61C-61_Eq_Constant e-2 e-5) eta-0)))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) eta-0)))))))))))))))))) ((equal? sc2 1) (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((10) (let ((e-44 (vector-ref sc3 2))) (TTImpC-45WithClause-getMatch 1 e-44 e-44))) ((9) (let ((e-48 (vector-ref sc3 2))) (TTImpC-45WithClause-getMatch 1 e-48 e-48)))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((10) (let ((e-29 (vector-ref sc3 1))) (lambda (eta-0) (TTImpC-45WithClause-matchFail e-29 eta-0)))) ((9) (let ((e-33 (vector-ref sc3 1))) (lambda (eta-0) (TTImpC-45WithClause-matchFail e-33 eta-0))))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((13) (let ((e-11 (vector-ref sc3 1))) (let ((e-13 (vector-ref sc3 3))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((13) (let ((e-21 (vector-ref sc4 3))) (lambda (eta-0) (TTImpC-45WithClause-matchAny e-11 arg-0 (DataC-45List-u--zip_Zippable_List e-13 e-21) eta-0))))(else (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((18) (let ((e-10 (vector-ref sc4 5))) (TTImpC-45WithClause-getMatch arg-0 arg-1 e-10)))(else (let ((sc4 arg-1)) (case (vector-ref sc4 0) ((29) (lambda (clam-3) (let ((sc5 arg-2)) (case (vector-ref sc5 0) ((29) (vector 1 '()))(else (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) clam-3)))))) ((28) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 arg-2)) (case (vector-ref sc5 0) ((28) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (lambda (eta-0) (TTImpC-45WithClause-case--getMatch-1108 e-2 e-1 e-5 e-4 arg-0 (CoreC-45TT-u--C-61C-61_Eq_Constant e-2 e-5) eta-0)))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) eta-0)))))))))))))) ((18) (let ((e-17 (vector-ref sc3 4))) (let ((e-18 (vector-ref sc3 5))) (let ((sc4 e-17)) (case (vector-ref sc4 0) ((1) (let ((e-22 (vector-ref sc4 1))) (lambda (clam-4) (let ((sc5 arg-2)) (case (vector-ref sc5 0) ((18) (let ((e-23 (vector-ref sc5 1))) (let ((e-26 (vector-ref sc5 4))) (let ((e-27 (vector-ref sc5 5))) (let ((sc6 e-26)) (case (vector-ref sc6 0) ((1) (let ((e-28 (vector-ref sc6 1))) (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 e-18 e-27) clam-4))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (TTImpC-45WithClause-mergeMatches arg-0 (cons (cons e-22 (vector 17 e-23 e-28)) e-5) clam-4))))))))(else (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 e-18 arg-2) clam-4))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (TTImpC-45WithClause-mergeMatches arg-0 (cons (cons e-22 arg-2) e-5) clam-4)))))))))))))(else (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 e-18 arg-2) clam-4))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (TTImpC-45WithClause-mergeMatches arg-0 (cons (cons e-22 arg-2) e-5) clam-4))))))))))))(else (TTImpC-45WithClause-getMatch arg-0 e-18 arg-2)))))))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((18) (let ((e-10 (vector-ref sc3 5))) (TTImpC-45WithClause-getMatch arg-0 arg-1 e-10)))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((29) (lambda (clam-5) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((29) (vector 1 '()))(else (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) clam-5)))))) ((28) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((28) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (lambda (eta-0) (TTImpC-45WithClause-case--getMatch-1108 e-2 e-1 e-5 e-4 arg-0 (CoreC-45TT-u--C-61C-61_Eq_Constant e-2 e-5) eta-0)))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) eta-0))))))))))))))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((10) (let ((e-29 (vector-ref sc2 1))) (lambda (eta-0) (TTImpC-45WithClause-matchFail e-29 eta-0)))) ((9) (let ((e-33 (vector-ref sc2 1))) (lambda (eta-0) (TTImpC-45WithClause-matchFail e-33 eta-0))))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((13) (let ((e-11 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 3))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((13) (let ((e-21 (vector-ref sc3 3))) (lambda (eta-0) (TTImpC-45WithClause-matchAny e-11 arg-0 (DataC-45List-u--zip_Zippable_List e-13 e-21) eta-0))))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((18) (let ((e-10 (vector-ref sc3 5))) (TTImpC-45WithClause-getMatch arg-0 arg-1 e-10)))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((29) (lambda (clam-6) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((29) (vector 1 '()))(else (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) clam-6)))))) ((28) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((28) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (lambda (eta-0) (TTImpC-45WithClause-case--getMatch-1108 e-2 e-1 e-5 e-4 arg-0 (CoreC-45TT-u--C-61C-61_Eq_Constant e-2 e-5) eta-0)))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) eta-0)))))))))))))) ((18) (let ((e-17 (vector-ref sc2 4))) (let ((e-18 (vector-ref sc2 5))) (let ((sc3 e-17)) (case (vector-ref sc3 0) ((1) (let ((e-22 (vector-ref sc3 1))) (lambda (clam-7) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((18) (let ((e-23 (vector-ref sc4 1))) (let ((e-26 (vector-ref sc4 4))) (let ((e-27 (vector-ref sc4 5))) (let ((sc5 e-26)) (case (vector-ref sc5 0) ((1) (let ((e-28 (vector-ref sc5 1))) (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 e-18 e-27) clam-7))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (TTImpC-45WithClause-mergeMatches arg-0 (cons (cons e-22 (vector 17 e-23 e-28)) e-5) clam-7))))))))(else (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 e-18 arg-2) clam-7))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (TTImpC-45WithClause-mergeMatches arg-0 (cons (cons e-22 arg-2) e-5) clam-7)))))))))))))(else (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 e-18 arg-2) clam-7))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (TTImpC-45WithClause-mergeMatches arg-0 (cons (cons e-22 arg-2) e-5) clam-7))))))))))))(else (TTImpC-45WithClause-getMatch arg-0 e-18 arg-2)))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((18) (let ((e-10 (vector-ref sc2 5))) (TTImpC-45WithClause-getMatch arg-0 arg-1 e-10)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((29) (lambda (clam-8) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((29) (vector 1 '()))(else (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) clam-8)))))) ((28) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (lambda (eta-0) (TTImpC-45WithClause-case--getMatch-1108 e-2 e-1 e-5 e-4 arg-0 (CoreC-45TT-u--C-61C-61_Eq_Constant e-2 e-5) eta-0)))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) eta-0))))))))))))))))))))))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((0) (let ((e-75 (vector-ref sc1 1))) (let ((e-76 (vector-ref sc1 2))) (lambda (eta-0) (TTImpC-45WithClause-case--getMatch-698 e-54 e-55 e-76 e-75 arg-0 (CoreC-45Name-u--C-61C-61_Eq_Name e-55 e-76) eta-0)))))(else (let ((sc1 arg-0)) (cond ((equal? sc1 0) (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((10) (let ((e-37 (vector-ref sc2 2))) (let ((e-39 (vector-ref sc2 4))) (lambda (eta-0) (TTImpC-45WithClause-matchAll 0 (cons (cons e-37 arg-2) (cons (cons e-39 e-39) '())) eta-0))))) ((9) (let ((e-41 (vector-ref sc2 2))) (let ((e-42 (vector-ref sc2 3))) (lambda (eta-0) (TTImpC-45WithClause-matchAll 0 (cons (cons e-41 arg-2) (cons (cons e-42 e-42) '())) eta-0)))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((10) (let ((e-29 (vector-ref sc2 1))) (lambda (eta-0) (TTImpC-45WithClause-matchFail e-29 eta-0)))) ((9) (let ((e-33 (vector-ref sc2 1))) (lambda (eta-0) (TTImpC-45WithClause-matchFail e-33 eta-0))))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((13) (let ((e-11 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 3))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((13) (let ((e-21 (vector-ref sc3 3))) (lambda (eta-0) (TTImpC-45WithClause-matchAny e-11 arg-0 (DataC-45List-u--zip_Zippable_List e-13 e-21) eta-0))))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((18) (let ((e-10 (vector-ref sc3 5))) (TTImpC-45WithClause-getMatch arg-0 arg-1 e-10)))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((29) (lambda (clam-9) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((29) (vector 1 '()))(else (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) clam-9)))))) ((28) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((28) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (lambda (eta-0) (TTImpC-45WithClause-case--getMatch-1108 e-2 e-1 e-5 e-4 arg-0 (CoreC-45TT-u--C-61C-61_Eq_Constant e-2 e-5) eta-0)))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) eta-0)))))))))))))) ((18) (let ((e-17 (vector-ref sc2 4))) (let ((e-18 (vector-ref sc2 5))) (let ((sc3 e-17)) (case (vector-ref sc3 0) ((1) (let ((e-22 (vector-ref sc3 1))) (lambda (clam-10) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((18) (let ((e-23 (vector-ref sc4 1))) (let ((e-26 (vector-ref sc4 4))) (let ((e-27 (vector-ref sc4 5))) (let ((sc5 e-26)) (case (vector-ref sc5 0) ((1) (let ((e-28 (vector-ref sc5 1))) (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 e-18 e-27) clam-10))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (TTImpC-45WithClause-mergeMatches arg-0 (cons (cons e-22 (vector 17 e-23 e-28)) e-5) clam-10))))))))(else (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 e-18 arg-2) clam-10))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (TTImpC-45WithClause-mergeMatches arg-0 (cons (cons e-22 arg-2) e-5) clam-10)))))))))))))(else (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 e-18 arg-2) clam-10))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (TTImpC-45WithClause-mergeMatches arg-0 (cons (cons e-22 arg-2) e-5) clam-10))))))))))))(else (TTImpC-45WithClause-getMatch arg-0 e-18 arg-2)))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((18) (let ((e-10 (vector-ref sc2 5))) (TTImpC-45WithClause-getMatch arg-0 arg-1 e-10)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((29) (lambda (clam-11) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((29) (vector 1 '()))(else (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) clam-11)))))) ((28) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (lambda (eta-0) (TTImpC-45WithClause-case--getMatch-1108 e-2 e-1 e-5 e-4 arg-0 (CoreC-45TT-u--C-61C-61_Eq_Constant e-2 e-5) eta-0)))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) eta-0)))))))))))))))))) ((equal? sc1 1) (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((10) (let ((e-44 (vector-ref sc2 2))) (TTImpC-45WithClause-getMatch 1 e-44 e-44))) ((9) (let ((e-48 (vector-ref sc2 2))) (TTImpC-45WithClause-getMatch 1 e-48 e-48)))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((10) (let ((e-29 (vector-ref sc2 1))) (lambda (eta-0) (TTImpC-45WithClause-matchFail e-29 eta-0)))) ((9) (let ((e-33 (vector-ref sc2 1))) (lambda (eta-0) (TTImpC-45WithClause-matchFail e-33 eta-0))))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((13) (let ((e-11 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 3))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((13) (let ((e-21 (vector-ref sc3 3))) (lambda (eta-0) (TTImpC-45WithClause-matchAny e-11 arg-0 (DataC-45List-u--zip_Zippable_List e-13 e-21) eta-0))))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((18) (let ((e-10 (vector-ref sc3 5))) (TTImpC-45WithClause-getMatch arg-0 arg-1 e-10)))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((29) (lambda (clam-12) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((29) (vector 1 '()))(else (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) clam-12)))))) ((28) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((28) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (lambda (eta-0) (TTImpC-45WithClause-case--getMatch-1108 e-2 e-1 e-5 e-4 arg-0 (CoreC-45TT-u--C-61C-61_Eq_Constant e-2 e-5) eta-0)))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) eta-0)))))))))))))) ((18) (let ((e-17 (vector-ref sc2 4))) (let ((e-18 (vector-ref sc2 5))) (let ((sc3 e-17)) (case (vector-ref sc3 0) ((1) (let ((e-22 (vector-ref sc3 1))) (lambda (clam-13) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((18) (let ((e-23 (vector-ref sc4 1))) (let ((e-26 (vector-ref sc4 4))) (let ((e-27 (vector-ref sc4 5))) (let ((sc5 e-26)) (case (vector-ref sc5 0) ((1) (let ((e-28 (vector-ref sc5 1))) (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 e-18 e-27) clam-13))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (TTImpC-45WithClause-mergeMatches arg-0 (cons (cons e-22 (vector 17 e-23 e-28)) e-5) clam-13))))))))(else (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 e-18 arg-2) clam-13))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (TTImpC-45WithClause-mergeMatches arg-0 (cons (cons e-22 arg-2) e-5) clam-13)))))))))))))(else (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 e-18 arg-2) clam-13))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (TTImpC-45WithClause-mergeMatches arg-0 (cons (cons e-22 arg-2) e-5) clam-13))))))))))))(else (TTImpC-45WithClause-getMatch arg-0 e-18 arg-2)))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((18) (let ((e-10 (vector-ref sc2 5))) (TTImpC-45WithClause-getMatch arg-0 arg-1 e-10)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((29) (lambda (clam-14) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((29) (vector 1 '()))(else (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) clam-14)))))) ((28) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (lambda (eta-0) (TTImpC-45WithClause-case--getMatch-1108 e-2 e-1 e-5 e-4 arg-0 (CoreC-45TT-u--C-61C-61_Eq_Constant e-2 e-5) eta-0)))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) eta-0))))))))))))))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((10) (let ((e-29 (vector-ref sc1 1))) (lambda (eta-0) (TTImpC-45WithClause-matchFail e-29 eta-0)))) ((9) (let ((e-33 (vector-ref sc1 1))) (lambda (eta-0) (TTImpC-45WithClause-matchFail e-33 eta-0))))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((13) (let ((e-11 (vector-ref sc1 1))) (let ((e-13 (vector-ref sc1 3))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((13) (let ((e-21 (vector-ref sc2 3))) (lambda (eta-0) (TTImpC-45WithClause-matchAny e-11 arg-0 (DataC-45List-u--zip_Zippable_List e-13 e-21) eta-0))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((18) (let ((e-10 (vector-ref sc2 5))) (TTImpC-45WithClause-getMatch arg-0 arg-1 e-10)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((29) (lambda (clam-15) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((29) (vector 1 '()))(else (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) clam-15)))))) ((28) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (lambda (eta-0) (TTImpC-45WithClause-case--getMatch-1108 e-2 e-1 e-5 e-4 arg-0 (CoreC-45TT-u--C-61C-61_Eq_Constant e-2 e-5) eta-0)))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) eta-0)))))))))))))) ((18) (let ((e-17 (vector-ref sc1 4))) (let ((e-18 (vector-ref sc1 5))) (let ((sc2 e-17)) (case (vector-ref sc2 0) ((1) (let ((e-22 (vector-ref sc2 1))) (lambda (clam-16) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((18) (let ((e-23 (vector-ref sc3 1))) (let ((e-26 (vector-ref sc3 4))) (let ((e-27 (vector-ref sc3 5))) (let ((sc4 e-26)) (case (vector-ref sc4 0) ((1) (let ((e-28 (vector-ref sc4 1))) (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 e-18 e-27) clam-16))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (TTImpC-45WithClause-mergeMatches arg-0 (cons (cons e-22 (vector 17 e-23 e-28)) e-5) clam-16))))))))(else (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 e-18 arg-2) clam-16))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (TTImpC-45WithClause-mergeMatches arg-0 (cons (cons e-22 arg-2) e-5) clam-16)))))))))))))(else (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 e-18 arg-2) clam-16))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (TTImpC-45WithClause-mergeMatches arg-0 (cons (cons e-22 arg-2) e-5) clam-16))))))))))))(else (TTImpC-45WithClause-getMatch arg-0 e-18 arg-2)))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((18) (let ((e-10 (vector-ref sc1 5))) (TTImpC-45WithClause-getMatch arg-0 arg-1 e-10)))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((29) (lambda (clam-17) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((29) (vector 1 '()))(else (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) clam-17)))))) ((28) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((28) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (lambda (eta-0) (TTImpC-45WithClause-case--getMatch-1108 e-2 e-1 e-5 e-4 arg-0 (CoreC-45TT-u--C-61C-61_Eq_Constant e-2 e-5) eta-0)))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) eta-0)))))))))))))))))))))))))) ((1) (let ((e-56 (vector-ref sc0 1))) (let ((e-57 (vector-ref sc0 2))) (let ((e-58 (vector-ref sc0 3))) (let ((e-59 (vector-ref sc0 4))) (let ((e-60 (vector-ref sc0 5))) (let ((e-61 (vector-ref sc0 6))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((1) (let ((e-83 (vector-ref sc1 1))) (let ((e-84 (vector-ref sc1 2))) (let ((e-85 (vector-ref sc1 3))) (let ((e-86 (vector-ref sc1 4))) (let ((e-87 (vector-ref sc1 5))) (let ((e-88 (vector-ref sc1 6))) (TTImpC-45WithClause-case--getMatch-770 e-56 e-61 e-60 e-59 e-58 e-57 e-88 e-87 e-86 e-85 e-84 e-83 arg-0 (PreludeC-45Basics-C-38C-38 (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega e-57 e-84) (lambda () (PreludeC-45Basics-C-38C-38 (TTImpC-45WithClause-n--7539-729-u--samePiInfo e-56 e-61 e-60 e-59 e-58 e-57 e-88 e-87 e-86 e-85 e-84 e-83 arg-0 e-58 e-85) (lambda () (PreludeC-45Types-u--C-61C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-3) (lambda (arg-4) (CoreC-45Name-u--C-61C-61_Eq_Name arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (CoreC-45Name-u--C-47C-61_Eq_Name arg-4 arg-5)))) e-59 e-86)))))))))))))(else (let ((sc1 arg-0)) (cond ((equal? sc1 0) (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((10) (let ((e-37 (vector-ref sc2 2))) (let ((e-39 (vector-ref sc2 4))) (lambda (eta-0) (TTImpC-45WithClause-matchAll 0 (cons (cons e-37 arg-2) (cons (cons e-39 e-39) '())) eta-0))))) ((9) (let ((e-41 (vector-ref sc2 2))) (let ((e-42 (vector-ref sc2 3))) (lambda (eta-0) (TTImpC-45WithClause-matchAll 0 (cons (cons e-41 arg-2) (cons (cons e-42 e-42) '())) eta-0)))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((10) (let ((e-29 (vector-ref sc2 1))) (lambda (eta-0) (TTImpC-45WithClause-matchFail e-29 eta-0)))) ((9) (let ((e-33 (vector-ref sc2 1))) (lambda (eta-0) (TTImpC-45WithClause-matchFail e-33 eta-0))))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((13) (let ((e-11 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 3))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((13) (let ((e-21 (vector-ref sc3 3))) (lambda (eta-0) (TTImpC-45WithClause-matchAny e-11 arg-0 (DataC-45List-u--zip_Zippable_List e-13 e-21) eta-0))))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((18) (let ((e-10 (vector-ref sc3 5))) (TTImpC-45WithClause-getMatch arg-0 arg-1 e-10)))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((29) (lambda (clam-18) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((29) (vector 1 '()))(else (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) clam-18)))))) ((28) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((28) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (lambda (eta-0) (TTImpC-45WithClause-case--getMatch-1108 e-2 e-1 e-5 e-4 arg-0 (CoreC-45TT-u--C-61C-61_Eq_Constant e-2 e-5) eta-0)))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) eta-0)))))))))))))) ((18) (let ((e-17 (vector-ref sc2 4))) (let ((e-18 (vector-ref sc2 5))) (let ((sc3 e-17)) (case (vector-ref sc3 0) ((1) (let ((e-22 (vector-ref sc3 1))) (lambda (clam-19) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((18) (let ((e-23 (vector-ref sc4 1))) (let ((e-26 (vector-ref sc4 4))) (let ((e-27 (vector-ref sc4 5))) (let ((sc5 e-26)) (case (vector-ref sc5 0) ((1) (let ((e-28 (vector-ref sc5 1))) (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 e-18 e-27) clam-19))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (TTImpC-45WithClause-mergeMatches arg-0 (cons (cons e-22 (vector 17 e-23 e-28)) e-5) clam-19))))))))(else (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 e-18 arg-2) clam-19))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (TTImpC-45WithClause-mergeMatches arg-0 (cons (cons e-22 arg-2) e-5) clam-19)))))))))))))(else (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 e-18 arg-2) clam-19))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (TTImpC-45WithClause-mergeMatches arg-0 (cons (cons e-22 arg-2) e-5) clam-19))))))))))))(else (TTImpC-45WithClause-getMatch arg-0 e-18 arg-2)))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((18) (let ((e-10 (vector-ref sc2 5))) (TTImpC-45WithClause-getMatch arg-0 arg-1 e-10)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((29) (lambda (clam-20) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((29) (vector 1 '()))(else (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) clam-20)))))) ((28) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (lambda (eta-0) (TTImpC-45WithClause-case--getMatch-1108 e-2 e-1 e-5 e-4 arg-0 (CoreC-45TT-u--C-61C-61_Eq_Constant e-2 e-5) eta-0)))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) eta-0)))))))))))))))))) ((equal? sc1 1) (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((10) (let ((e-44 (vector-ref sc2 2))) (TTImpC-45WithClause-getMatch 1 e-44 e-44))) ((9) (let ((e-48 (vector-ref sc2 2))) (TTImpC-45WithClause-getMatch 1 e-48 e-48)))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((10) (let ((e-29 (vector-ref sc2 1))) (lambda (eta-0) (TTImpC-45WithClause-matchFail e-29 eta-0)))) ((9) (let ((e-33 (vector-ref sc2 1))) (lambda (eta-0) (TTImpC-45WithClause-matchFail e-33 eta-0))))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((13) (let ((e-11 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 3))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((13) (let ((e-21 (vector-ref sc3 3))) (lambda (eta-0) (TTImpC-45WithClause-matchAny e-11 arg-0 (DataC-45List-u--zip_Zippable_List e-13 e-21) eta-0))))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((18) (let ((e-10 (vector-ref sc3 5))) (TTImpC-45WithClause-getMatch arg-0 arg-1 e-10)))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((29) (lambda (clam-21) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((29) (vector 1 '()))(else (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) clam-21)))))) ((28) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((28) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (lambda (eta-0) (TTImpC-45WithClause-case--getMatch-1108 e-2 e-1 e-5 e-4 arg-0 (CoreC-45TT-u--C-61C-61_Eq_Constant e-2 e-5) eta-0)))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) eta-0)))))))))))))) ((18) (let ((e-17 (vector-ref sc2 4))) (let ((e-18 (vector-ref sc2 5))) (let ((sc3 e-17)) (case (vector-ref sc3 0) ((1) (let ((e-22 (vector-ref sc3 1))) (lambda (clam-22) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((18) (let ((e-23 (vector-ref sc4 1))) (let ((e-26 (vector-ref sc4 4))) (let ((e-27 (vector-ref sc4 5))) (let ((sc5 e-26)) (case (vector-ref sc5 0) ((1) (let ((e-28 (vector-ref sc5 1))) (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 e-18 e-27) clam-22))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (TTImpC-45WithClause-mergeMatches arg-0 (cons (cons e-22 (vector 17 e-23 e-28)) e-5) clam-22))))))))(else (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 e-18 arg-2) clam-22))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (TTImpC-45WithClause-mergeMatches arg-0 (cons (cons e-22 arg-2) e-5) clam-22)))))))))))))(else (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 e-18 arg-2) clam-22))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (TTImpC-45WithClause-mergeMatches arg-0 (cons (cons e-22 arg-2) e-5) clam-22))))))))))))(else (TTImpC-45WithClause-getMatch arg-0 e-18 arg-2)))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((18) (let ((e-10 (vector-ref sc2 5))) (TTImpC-45WithClause-getMatch arg-0 arg-1 e-10)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((29) (lambda (clam-23) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((29) (vector 1 '()))(else (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) clam-23)))))) ((28) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (lambda (eta-0) (TTImpC-45WithClause-case--getMatch-1108 e-2 e-1 e-5 e-4 arg-0 (CoreC-45TT-u--C-61C-61_Eq_Constant e-2 e-5) eta-0)))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) eta-0))))))))))))))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((10) (let ((e-29 (vector-ref sc1 1))) (lambda (eta-0) (TTImpC-45WithClause-matchFail e-29 eta-0)))) ((9) (let ((e-33 (vector-ref sc1 1))) (lambda (eta-0) (TTImpC-45WithClause-matchFail e-33 eta-0))))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((13) (let ((e-11 (vector-ref sc1 1))) (let ((e-13 (vector-ref sc1 3))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((13) (let ((e-21 (vector-ref sc2 3))) (lambda (eta-0) (TTImpC-45WithClause-matchAny e-11 arg-0 (DataC-45List-u--zip_Zippable_List e-13 e-21) eta-0))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((18) (let ((e-10 (vector-ref sc2 5))) (TTImpC-45WithClause-getMatch arg-0 arg-1 e-10)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((29) (lambda (clam-24) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((29) (vector 1 '()))(else (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) clam-24)))))) ((28) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (lambda (eta-0) (TTImpC-45WithClause-case--getMatch-1108 e-2 e-1 e-5 e-4 arg-0 (CoreC-45TT-u--C-61C-61_Eq_Constant e-2 e-5) eta-0)))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) eta-0)))))))))))))) ((18) (let ((e-17 (vector-ref sc1 4))) (let ((e-18 (vector-ref sc1 5))) (let ((sc2 e-17)) (case (vector-ref sc2 0) ((1) (let ((e-22 (vector-ref sc2 1))) (lambda (clam-25) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((18) (let ((e-23 (vector-ref sc3 1))) (let ((e-26 (vector-ref sc3 4))) (let ((e-27 (vector-ref sc3 5))) (let ((sc4 e-26)) (case (vector-ref sc4 0) ((1) (let ((e-28 (vector-ref sc4 1))) (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 e-18 e-27) clam-25))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (TTImpC-45WithClause-mergeMatches arg-0 (cons (cons e-22 (vector 17 e-23 e-28)) e-5) clam-25))))))))(else (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 e-18 arg-2) clam-25))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (TTImpC-45WithClause-mergeMatches arg-0 (cons (cons e-22 arg-2) e-5) clam-25)))))))))))))(else (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 e-18 arg-2) clam-25))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (TTImpC-45WithClause-mergeMatches arg-0 (cons (cons e-22 arg-2) e-5) clam-25))))))))))))(else (TTImpC-45WithClause-getMatch arg-0 e-18 arg-2)))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((18) (let ((e-10 (vector-ref sc1 5))) (TTImpC-45WithClause-getMatch arg-0 arg-1 e-10)))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((29) (lambda (clam-26) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((29) (vector 1 '()))(else (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) clam-26)))))) ((28) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((28) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (lambda (eta-0) (TTImpC-45WithClause-case--getMatch-1108 e-2 e-1 e-5 e-4 arg-0 (CoreC-45TT-u--C-61C-61_Eq_Constant e-2 e-5) eta-0)))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) eta-0))))))))))))))))))))))))))) ((8) (let ((e-63 (vector-ref sc0 2))) (let ((e-64 (vector-ref sc0 3))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((8) (let ((e-90 (vector-ref sc1 2))) (let ((e-91 (vector-ref sc1 3))) (lambda (eta-0) (TTImpC-45WithClause-matchAll arg-0 (cons (cons e-63 e-90) (cons (cons e-64 e-91) '())) eta-0)))))(else (let ((sc1 arg-0)) (cond ((equal? sc1 0) (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((10) (let ((e-37 (vector-ref sc2 2))) (let ((e-39 (vector-ref sc2 4))) (lambda (eta-0) (TTImpC-45WithClause-matchAll 0 (cons (cons e-37 arg-2) (cons (cons e-39 e-39) '())) eta-0))))) ((9) (let ((e-41 (vector-ref sc2 2))) (let ((e-42 (vector-ref sc2 3))) (lambda (eta-0) (TTImpC-45WithClause-matchAll 0 (cons (cons e-41 arg-2) (cons (cons e-42 e-42) '())) eta-0)))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((10) (let ((e-29 (vector-ref sc2 1))) (lambda (eta-0) (TTImpC-45WithClause-matchFail e-29 eta-0)))) ((9) (let ((e-33 (vector-ref sc2 1))) (lambda (eta-0) (TTImpC-45WithClause-matchFail e-33 eta-0))))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((13) (let ((e-11 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 3))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((13) (let ((e-21 (vector-ref sc3 3))) (lambda (eta-0) (TTImpC-45WithClause-matchAny e-11 arg-0 (DataC-45List-u--zip_Zippable_List e-13 e-21) eta-0))))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((18) (let ((e-10 (vector-ref sc3 5))) (TTImpC-45WithClause-getMatch arg-0 arg-1 e-10)))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((29) (lambda (clam-27) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((29) (vector 1 '()))(else (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) clam-27)))))) ((28) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((28) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (lambda (eta-0) (TTImpC-45WithClause-case--getMatch-1108 e-2 e-1 e-5 e-4 arg-0 (CoreC-45TT-u--C-61C-61_Eq_Constant e-2 e-5) eta-0)))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) eta-0)))))))))))))) ((18) (let ((e-17 (vector-ref sc2 4))) (let ((e-18 (vector-ref sc2 5))) (let ((sc3 e-17)) (case (vector-ref sc3 0) ((1) (let ((e-22 (vector-ref sc3 1))) (lambda (clam-28) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((18) (let ((e-23 (vector-ref sc4 1))) (let ((e-26 (vector-ref sc4 4))) (let ((e-27 (vector-ref sc4 5))) (let ((sc5 e-26)) (case (vector-ref sc5 0) ((1) (let ((e-28 (vector-ref sc5 1))) (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 e-18 e-27) clam-28))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (TTImpC-45WithClause-mergeMatches arg-0 (cons (cons e-22 (vector 17 e-23 e-28)) e-5) clam-28))))))))(else (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 e-18 arg-2) clam-28))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (TTImpC-45WithClause-mergeMatches arg-0 (cons (cons e-22 arg-2) e-5) clam-28)))))))))))))(else (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 e-18 arg-2) clam-28))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (TTImpC-45WithClause-mergeMatches arg-0 (cons (cons e-22 arg-2) e-5) clam-28))))))))))))(else (TTImpC-45WithClause-getMatch arg-0 e-18 arg-2)))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((18) (let ((e-10 (vector-ref sc2 5))) (TTImpC-45WithClause-getMatch arg-0 arg-1 e-10)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((29) (lambda (clam-29) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((29) (vector 1 '()))(else (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) clam-29)))))) ((28) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (lambda (eta-0) (TTImpC-45WithClause-case--getMatch-1108 e-2 e-1 e-5 e-4 arg-0 (CoreC-45TT-u--C-61C-61_Eq_Constant e-2 e-5) eta-0)))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) eta-0)))))))))))))))))) ((equal? sc1 1) (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((10) (let ((e-44 (vector-ref sc2 2))) (TTImpC-45WithClause-getMatch 1 e-44 e-44))) ((9) (let ((e-48 (vector-ref sc2 2))) (TTImpC-45WithClause-getMatch 1 e-48 e-48)))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((10) (let ((e-29 (vector-ref sc2 1))) (lambda (eta-0) (TTImpC-45WithClause-matchFail e-29 eta-0)))) ((9) (let ((e-33 (vector-ref sc2 1))) (lambda (eta-0) (TTImpC-45WithClause-matchFail e-33 eta-0))))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((13) (let ((e-11 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 3))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((13) (let ((e-21 (vector-ref sc3 3))) (lambda (eta-0) (TTImpC-45WithClause-matchAny e-11 arg-0 (DataC-45List-u--zip_Zippable_List e-13 e-21) eta-0))))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((18) (let ((e-10 (vector-ref sc3 5))) (TTImpC-45WithClause-getMatch arg-0 arg-1 e-10)))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((29) (lambda (clam-30) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((29) (vector 1 '()))(else (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) clam-30)))))) ((28) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((28) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (lambda (eta-0) (TTImpC-45WithClause-case--getMatch-1108 e-2 e-1 e-5 e-4 arg-0 (CoreC-45TT-u--C-61C-61_Eq_Constant e-2 e-5) eta-0)))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) eta-0)))))))))))))) ((18) (let ((e-17 (vector-ref sc2 4))) (let ((e-18 (vector-ref sc2 5))) (let ((sc3 e-17)) (case (vector-ref sc3 0) ((1) (let ((e-22 (vector-ref sc3 1))) (lambda (clam-31) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((18) (let ((e-23 (vector-ref sc4 1))) (let ((e-26 (vector-ref sc4 4))) (let ((e-27 (vector-ref sc4 5))) (let ((sc5 e-26)) (case (vector-ref sc5 0) ((1) (let ((e-28 (vector-ref sc5 1))) (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 e-18 e-27) clam-31))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (TTImpC-45WithClause-mergeMatches arg-0 (cons (cons e-22 (vector 17 e-23 e-28)) e-5) clam-31))))))))(else (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 e-18 arg-2) clam-31))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (TTImpC-45WithClause-mergeMatches arg-0 (cons (cons e-22 arg-2) e-5) clam-31)))))))))))))(else (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 e-18 arg-2) clam-31))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (TTImpC-45WithClause-mergeMatches arg-0 (cons (cons e-22 arg-2) e-5) clam-31))))))))))))(else (TTImpC-45WithClause-getMatch arg-0 e-18 arg-2)))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((18) (let ((e-10 (vector-ref sc2 5))) (TTImpC-45WithClause-getMatch arg-0 arg-1 e-10)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((29) (lambda (clam-32) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((29) (vector 1 '()))(else (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) clam-32)))))) ((28) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (lambda (eta-0) (TTImpC-45WithClause-case--getMatch-1108 e-2 e-1 e-5 e-4 arg-0 (CoreC-45TT-u--C-61C-61_Eq_Constant e-2 e-5) eta-0)))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) eta-0))))))))))))))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((10) (let ((e-29 (vector-ref sc1 1))) (lambda (eta-0) (TTImpC-45WithClause-matchFail e-29 eta-0)))) ((9) (let ((e-33 (vector-ref sc1 1))) (lambda (eta-0) (TTImpC-45WithClause-matchFail e-33 eta-0))))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((13) (let ((e-11 (vector-ref sc1 1))) (let ((e-13 (vector-ref sc1 3))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((13) (let ((e-21 (vector-ref sc2 3))) (lambda (eta-0) (TTImpC-45WithClause-matchAny e-11 arg-0 (DataC-45List-u--zip_Zippable_List e-13 e-21) eta-0))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((18) (let ((e-10 (vector-ref sc2 5))) (TTImpC-45WithClause-getMatch arg-0 arg-1 e-10)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((29) (lambda (clam-33) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((29) (vector 1 '()))(else (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) clam-33)))))) ((28) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (lambda (eta-0) (TTImpC-45WithClause-case--getMatch-1108 e-2 e-1 e-5 e-4 arg-0 (CoreC-45TT-u--C-61C-61_Eq_Constant e-2 e-5) eta-0)))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) eta-0)))))))))))))) ((18) (let ((e-17 (vector-ref sc1 4))) (let ((e-18 (vector-ref sc1 5))) (let ((sc2 e-17)) (case (vector-ref sc2 0) ((1) (let ((e-22 (vector-ref sc2 1))) (lambda (clam-34) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((18) (let ((e-23 (vector-ref sc3 1))) (let ((e-26 (vector-ref sc3 4))) (let ((e-27 (vector-ref sc3 5))) (let ((sc4 e-26)) (case (vector-ref sc4 0) ((1) (let ((e-28 (vector-ref sc4 1))) (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 e-18 e-27) clam-34))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (TTImpC-45WithClause-mergeMatches arg-0 (cons (cons e-22 (vector 17 e-23 e-28)) e-5) clam-34))))))))(else (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 e-18 arg-2) clam-34))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (TTImpC-45WithClause-mergeMatches arg-0 (cons (cons e-22 arg-2) e-5) clam-34)))))))))))))(else (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 e-18 arg-2) clam-34))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (TTImpC-45WithClause-mergeMatches arg-0 (cons (cons e-22 arg-2) e-5) clam-34))))))))))))(else (TTImpC-45WithClause-getMatch arg-0 e-18 arg-2)))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((18) (let ((e-10 (vector-ref sc1 5))) (TTImpC-45WithClause-getMatch arg-0 arg-1 e-10)))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((29) (lambda (clam-35) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((29) (vector 1 '()))(else (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) clam-35)))))) ((28) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((28) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (lambda (eta-0) (TTImpC-45WithClause-case--getMatch-1108 e-2 e-1 e-5 e-4 arg-0 (CoreC-45TT-u--C-61C-61_Eq_Constant e-2 e-5) eta-0)))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) eta-0))))))))))))))))))))))) ((9) (let ((e-66 (vector-ref sc0 2))) (let ((e-67 (vector-ref sc0 3))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((9) (let ((e-93 (vector-ref sc1 2))) (let ((e-94 (vector-ref sc1 3))) (lambda (eta-0) (TTImpC-45WithClause-matchAll arg-0 (cons (cons e-66 e-93) (cons (cons e-67 e-94) '())) eta-0)))))(else (let ((sc1 arg-0)) (cond ((equal? sc1 0) (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((10) (let ((e-37 (vector-ref sc2 2))) (let ((e-39 (vector-ref sc2 4))) (lambda (eta-0) (TTImpC-45WithClause-matchAll 0 (cons (cons e-37 arg-2) (cons (cons e-39 e-39) '())) eta-0))))) ((9) (let ((e-41 (vector-ref sc2 2))) (let ((e-42 (vector-ref sc2 3))) (lambda (eta-0) (TTImpC-45WithClause-matchAll 0 (cons (cons e-41 arg-2) (cons (cons e-42 e-42) '())) eta-0)))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((10) (let ((e-29 (vector-ref sc2 1))) (lambda (eta-0) (TTImpC-45WithClause-matchFail e-29 eta-0)))) ((9) (let ((e-33 (vector-ref sc2 1))) (lambda (eta-0) (TTImpC-45WithClause-matchFail e-33 eta-0))))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((13) (let ((e-11 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 3))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((13) (let ((e-21 (vector-ref sc3 3))) (lambda (eta-0) (TTImpC-45WithClause-matchAny e-11 arg-0 (DataC-45List-u--zip_Zippable_List e-13 e-21) eta-0))))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((18) (let ((e-10 (vector-ref sc3 5))) (TTImpC-45WithClause-getMatch arg-0 arg-1 e-10)))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((29) (lambda (clam-36) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((29) (vector 1 '()))(else (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) clam-36)))))) ((28) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((28) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (lambda (eta-0) (TTImpC-45WithClause-case--getMatch-1108 e-2 e-1 e-5 e-4 arg-0 (CoreC-45TT-u--C-61C-61_Eq_Constant e-2 e-5) eta-0)))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) eta-0)))))))))))))) ((18) (let ((e-17 (vector-ref sc2 4))) (let ((e-18 (vector-ref sc2 5))) (let ((sc3 e-17)) (case (vector-ref sc3 0) ((1) (let ((e-22 (vector-ref sc3 1))) (lambda (clam-37) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((18) (let ((e-23 (vector-ref sc4 1))) (let ((e-26 (vector-ref sc4 4))) (let ((e-27 (vector-ref sc4 5))) (let ((sc5 e-26)) (case (vector-ref sc5 0) ((1) (let ((e-28 (vector-ref sc5 1))) (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 e-18 e-27) clam-37))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (TTImpC-45WithClause-mergeMatches arg-0 (cons (cons e-22 (vector 17 e-23 e-28)) e-5) clam-37))))))))(else (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 e-18 arg-2) clam-37))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (TTImpC-45WithClause-mergeMatches arg-0 (cons (cons e-22 arg-2) e-5) clam-37)))))))))))))(else (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 e-18 arg-2) clam-37))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (TTImpC-45WithClause-mergeMatches arg-0 (cons (cons e-22 arg-2) e-5) clam-37))))))))))))(else (TTImpC-45WithClause-getMatch arg-0 e-18 arg-2)))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((18) (let ((e-10 (vector-ref sc2 5))) (TTImpC-45WithClause-getMatch arg-0 arg-1 e-10)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((29) (lambda (clam-38) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((29) (vector 1 '()))(else (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) clam-38)))))) ((28) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (lambda (eta-0) (TTImpC-45WithClause-case--getMatch-1108 e-2 e-1 e-5 e-4 arg-0 (CoreC-45TT-u--C-61C-61_Eq_Constant e-2 e-5) eta-0)))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) eta-0)))))))))))))))))) ((equal? sc1 1) (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((10) (let ((e-44 (vector-ref sc2 2))) (TTImpC-45WithClause-getMatch 1 e-44 e-44))) ((9) (let ((e-48 (vector-ref sc2 2))) (TTImpC-45WithClause-getMatch 1 e-48 e-48)))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((10) (let ((e-29 (vector-ref sc2 1))) (lambda (eta-0) (TTImpC-45WithClause-matchFail e-29 eta-0)))) ((9) (let ((e-33 (vector-ref sc2 1))) (lambda (eta-0) (TTImpC-45WithClause-matchFail e-33 eta-0))))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((13) (let ((e-11 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 3))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((13) (let ((e-21 (vector-ref sc3 3))) (lambda (eta-0) (TTImpC-45WithClause-matchAny e-11 arg-0 (DataC-45List-u--zip_Zippable_List e-13 e-21) eta-0))))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((18) (let ((e-10 (vector-ref sc3 5))) (TTImpC-45WithClause-getMatch arg-0 arg-1 e-10)))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((29) (lambda (clam-39) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((29) (vector 1 '()))(else (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) clam-39)))))) ((28) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((28) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (lambda (eta-0) (TTImpC-45WithClause-case--getMatch-1108 e-2 e-1 e-5 e-4 arg-0 (CoreC-45TT-u--C-61C-61_Eq_Constant e-2 e-5) eta-0)))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) eta-0)))))))))))))) ((18) (let ((e-17 (vector-ref sc2 4))) (let ((e-18 (vector-ref sc2 5))) (let ((sc3 e-17)) (case (vector-ref sc3 0) ((1) (let ((e-22 (vector-ref sc3 1))) (lambda (clam-40) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((18) (let ((e-23 (vector-ref sc4 1))) (let ((e-26 (vector-ref sc4 4))) (let ((e-27 (vector-ref sc4 5))) (let ((sc5 e-26)) (case (vector-ref sc5 0) ((1) (let ((e-28 (vector-ref sc5 1))) (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 e-18 e-27) clam-40))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (TTImpC-45WithClause-mergeMatches arg-0 (cons (cons e-22 (vector 17 e-23 e-28)) e-5) clam-40))))))))(else (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 e-18 arg-2) clam-40))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (TTImpC-45WithClause-mergeMatches arg-0 (cons (cons e-22 arg-2) e-5) clam-40)))))))))))))(else (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 e-18 arg-2) clam-40))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (TTImpC-45WithClause-mergeMatches arg-0 (cons (cons e-22 arg-2) e-5) clam-40))))))))))))(else (TTImpC-45WithClause-getMatch arg-0 e-18 arg-2)))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((18) (let ((e-10 (vector-ref sc2 5))) (TTImpC-45WithClause-getMatch arg-0 arg-1 e-10)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((29) (lambda (clam-41) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((29) (vector 1 '()))(else (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) clam-41)))))) ((28) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (lambda (eta-0) (TTImpC-45WithClause-case--getMatch-1108 e-2 e-1 e-5 e-4 arg-0 (CoreC-45TT-u--C-61C-61_Eq_Constant e-2 e-5) eta-0)))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) eta-0))))))))))))))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((10) (let ((e-29 (vector-ref sc1 1))) (lambda (eta-0) (TTImpC-45WithClause-matchFail e-29 eta-0)))) ((9) (let ((e-33 (vector-ref sc1 1))) (lambda (eta-0) (TTImpC-45WithClause-matchFail e-33 eta-0))))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((13) (let ((e-11 (vector-ref sc1 1))) (let ((e-13 (vector-ref sc1 3))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((13) (let ((e-21 (vector-ref sc2 3))) (lambda (eta-0) (TTImpC-45WithClause-matchAny e-11 arg-0 (DataC-45List-u--zip_Zippable_List e-13 e-21) eta-0))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((18) (let ((e-10 (vector-ref sc2 5))) (TTImpC-45WithClause-getMatch arg-0 arg-1 e-10)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((29) (lambda (clam-42) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((29) (vector 1 '()))(else (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) clam-42)))))) ((28) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (lambda (eta-0) (TTImpC-45WithClause-case--getMatch-1108 e-2 e-1 e-5 e-4 arg-0 (CoreC-45TT-u--C-61C-61_Eq_Constant e-2 e-5) eta-0)))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) eta-0)))))))))))))) ((18) (let ((e-17 (vector-ref sc1 4))) (let ((e-18 (vector-ref sc1 5))) (let ((sc2 e-17)) (case (vector-ref sc2 0) ((1) (let ((e-22 (vector-ref sc2 1))) (lambda (clam-43) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((18) (let ((e-23 (vector-ref sc3 1))) (let ((e-26 (vector-ref sc3 4))) (let ((e-27 (vector-ref sc3 5))) (let ((sc4 e-26)) (case (vector-ref sc4 0) ((1) (let ((e-28 (vector-ref sc4 1))) (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 e-18 e-27) clam-43))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (TTImpC-45WithClause-mergeMatches arg-0 (cons (cons e-22 (vector 17 e-23 e-28)) e-5) clam-43))))))))(else (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 e-18 arg-2) clam-43))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (TTImpC-45WithClause-mergeMatches arg-0 (cons (cons e-22 arg-2) e-5) clam-43)))))))))))))(else (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 e-18 arg-2) clam-43))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (TTImpC-45WithClause-mergeMatches arg-0 (cons (cons e-22 arg-2) e-5) clam-43))))))))))))(else (TTImpC-45WithClause-getMatch arg-0 e-18 arg-2)))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((18) (let ((e-10 (vector-ref sc1 5))) (TTImpC-45WithClause-getMatch arg-0 arg-1 e-10)))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((29) (lambda (clam-44) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((29) (vector 1 '()))(else (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) clam-44)))))) ((28) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((28) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (lambda (eta-0) (TTImpC-45WithClause-case--getMatch-1108 e-2 e-1 e-5 e-4 arg-0 (CoreC-45TT-u--C-61C-61_Eq_Constant e-2 e-5) eta-0)))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) eta-0))))))))))))))))))))))) ((10) (let ((e-68 (vector-ref sc0 1))) (let ((e-69 (vector-ref sc0 2))) (let ((e-70 (vector-ref sc0 3))) (let ((e-71 (vector-ref sc0 4))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((10) (let ((e-95 (vector-ref sc1 1))) (let ((e-96 (vector-ref sc1 2))) (let ((e-97 (vector-ref sc1 3))) (let ((e-98 (vector-ref sc1 4))) (TTImpC-45WithClause-case--getMatch-892 e-68 e-71 e-70 e-69 e-98 e-97 e-96 e-95 arg-0 (CoreC-45Name-u--C-61C-61_Eq_Name e-70 e-97)))))))(else (let ((sc1 arg-0)) (cond ((equal? sc1 0) (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((10) (let ((e-37 (vector-ref sc2 2))) (let ((e-39 (vector-ref sc2 4))) (lambda (eta-0) (TTImpC-45WithClause-matchAll 0 (cons (cons e-37 arg-2) (cons (cons e-39 e-39) '())) eta-0))))) ((9) (let ((e-41 (vector-ref sc2 2))) (let ((e-42 (vector-ref sc2 3))) (lambda (eta-0) (TTImpC-45WithClause-matchAll 0 (cons (cons e-41 arg-2) (cons (cons e-42 e-42) '())) eta-0)))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((10) (let ((e-29 (vector-ref sc2 1))) (lambda (eta-0) (TTImpC-45WithClause-matchFail e-29 eta-0)))) ((9) (let ((e-33 (vector-ref sc2 1))) (lambda (eta-0) (TTImpC-45WithClause-matchFail e-33 eta-0))))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((13) (let ((e-11 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 3))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((13) (let ((e-21 (vector-ref sc3 3))) (lambda (eta-0) (TTImpC-45WithClause-matchAny e-11 arg-0 (DataC-45List-u--zip_Zippable_List e-13 e-21) eta-0))))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((18) (let ((e-10 (vector-ref sc3 5))) (TTImpC-45WithClause-getMatch arg-0 arg-1 e-10)))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((29) (lambda (clam-45) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((29) (vector 1 '()))(else (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) clam-45)))))) ((28) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((28) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (lambda (eta-0) (TTImpC-45WithClause-case--getMatch-1108 e-2 e-1 e-5 e-4 arg-0 (CoreC-45TT-u--C-61C-61_Eq_Constant e-2 e-5) eta-0)))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) eta-0)))))))))))))) ((18) (let ((e-17 (vector-ref sc2 4))) (let ((e-18 (vector-ref sc2 5))) (let ((sc3 e-17)) (case (vector-ref sc3 0) ((1) (let ((e-22 (vector-ref sc3 1))) (lambda (clam-46) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((18) (let ((e-23 (vector-ref sc4 1))) (let ((e-26 (vector-ref sc4 4))) (let ((e-27 (vector-ref sc4 5))) (let ((sc5 e-26)) (case (vector-ref sc5 0) ((1) (let ((e-28 (vector-ref sc5 1))) (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 e-18 e-27) clam-46))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (TTImpC-45WithClause-mergeMatches arg-0 (cons (cons e-22 (vector 17 e-23 e-28)) e-5) clam-46))))))))(else (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 e-18 arg-2) clam-46))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (TTImpC-45WithClause-mergeMatches arg-0 (cons (cons e-22 arg-2) e-5) clam-46)))))))))))))(else (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 e-18 arg-2) clam-46))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (TTImpC-45WithClause-mergeMatches arg-0 (cons (cons e-22 arg-2) e-5) clam-46))))))))))))(else (TTImpC-45WithClause-getMatch arg-0 e-18 arg-2)))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((18) (let ((e-10 (vector-ref sc2 5))) (TTImpC-45WithClause-getMatch arg-0 arg-1 e-10)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((29) (lambda (clam-47) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((29) (vector 1 '()))(else (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) clam-47)))))) ((28) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (lambda (eta-0) (TTImpC-45WithClause-case--getMatch-1108 e-2 e-1 e-5 e-4 arg-0 (CoreC-45TT-u--C-61C-61_Eq_Constant e-2 e-5) eta-0)))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) eta-0)))))))))))))))))) ((equal? sc1 1) (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((10) (let ((e-44 (vector-ref sc2 2))) (TTImpC-45WithClause-getMatch 1 e-44 e-44))) ((9) (let ((e-48 (vector-ref sc2 2))) (TTImpC-45WithClause-getMatch 1 e-48 e-48)))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((10) (let ((e-29 (vector-ref sc2 1))) (lambda (eta-0) (TTImpC-45WithClause-matchFail e-29 eta-0)))) ((9) (let ((e-33 (vector-ref sc2 1))) (lambda (eta-0) (TTImpC-45WithClause-matchFail e-33 eta-0))))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((13) (let ((e-11 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 3))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((13) (let ((e-21 (vector-ref sc3 3))) (lambda (eta-0) (TTImpC-45WithClause-matchAny e-11 arg-0 (DataC-45List-u--zip_Zippable_List e-13 e-21) eta-0))))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((18) (let ((e-10 (vector-ref sc3 5))) (TTImpC-45WithClause-getMatch arg-0 arg-1 e-10)))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((29) (lambda (clam-48) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((29) (vector 1 '()))(else (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) clam-48)))))) ((28) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((28) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (lambda (eta-0) (TTImpC-45WithClause-case--getMatch-1108 e-2 e-1 e-5 e-4 arg-0 (CoreC-45TT-u--C-61C-61_Eq_Constant e-2 e-5) eta-0)))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) eta-0)))))))))))))) ((18) (let ((e-17 (vector-ref sc2 4))) (let ((e-18 (vector-ref sc2 5))) (let ((sc3 e-17)) (case (vector-ref sc3 0) ((1) (let ((e-22 (vector-ref sc3 1))) (lambda (clam-49) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((18) (let ((e-23 (vector-ref sc4 1))) (let ((e-26 (vector-ref sc4 4))) (let ((e-27 (vector-ref sc4 5))) (let ((sc5 e-26)) (case (vector-ref sc5 0) ((1) (let ((e-28 (vector-ref sc5 1))) (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 e-18 e-27) clam-49))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (TTImpC-45WithClause-mergeMatches arg-0 (cons (cons e-22 (vector 17 e-23 e-28)) e-5) clam-49))))))))(else (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 e-18 arg-2) clam-49))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (TTImpC-45WithClause-mergeMatches arg-0 (cons (cons e-22 arg-2) e-5) clam-49)))))))))))))(else (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 e-18 arg-2) clam-49))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (TTImpC-45WithClause-mergeMatches arg-0 (cons (cons e-22 arg-2) e-5) clam-49))))))))))))(else (TTImpC-45WithClause-getMatch arg-0 e-18 arg-2)))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((18) (let ((e-10 (vector-ref sc2 5))) (TTImpC-45WithClause-getMatch arg-0 arg-1 e-10)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((29) (lambda (clam-50) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((29) (vector 1 '()))(else (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) clam-50)))))) ((28) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (lambda (eta-0) (TTImpC-45WithClause-case--getMatch-1108 e-2 e-1 e-5 e-4 arg-0 (CoreC-45TT-u--C-61C-61_Eq_Constant e-2 e-5) eta-0)))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) eta-0))))))))))))))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((10) (let ((e-29 (vector-ref sc1 1))) (lambda (eta-0) (TTImpC-45WithClause-matchFail e-29 eta-0)))) ((9) (let ((e-33 (vector-ref sc1 1))) (lambda (eta-0) (TTImpC-45WithClause-matchFail e-33 eta-0))))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((13) (let ((e-11 (vector-ref sc1 1))) (let ((e-13 (vector-ref sc1 3))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((13) (let ((e-21 (vector-ref sc2 3))) (lambda (eta-0) (TTImpC-45WithClause-matchAny e-11 arg-0 (DataC-45List-u--zip_Zippable_List e-13 e-21) eta-0))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((18) (let ((e-10 (vector-ref sc2 5))) (TTImpC-45WithClause-getMatch arg-0 arg-1 e-10)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((29) (lambda (clam-51) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((29) (vector 1 '()))(else (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) clam-51)))))) ((28) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (lambda (eta-0) (TTImpC-45WithClause-case--getMatch-1108 e-2 e-1 e-5 e-4 arg-0 (CoreC-45TT-u--C-61C-61_Eq_Constant e-2 e-5) eta-0)))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) eta-0)))))))))))))) ((18) (let ((e-17 (vector-ref sc1 4))) (let ((e-18 (vector-ref sc1 5))) (let ((sc2 e-17)) (case (vector-ref sc2 0) ((1) (let ((e-22 (vector-ref sc2 1))) (lambda (clam-52) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((18) (let ((e-23 (vector-ref sc3 1))) (let ((e-26 (vector-ref sc3 4))) (let ((e-27 (vector-ref sc3 5))) (let ((sc4 e-26)) (case (vector-ref sc4 0) ((1) (let ((e-28 (vector-ref sc4 1))) (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 e-18 e-27) clam-52))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (TTImpC-45WithClause-mergeMatches arg-0 (cons (cons e-22 (vector 17 e-23 e-28)) e-5) clam-52))))))))(else (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 e-18 arg-2) clam-52))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (TTImpC-45WithClause-mergeMatches arg-0 (cons (cons e-22 arg-2) e-5) clam-52)))))))))))))(else (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 e-18 arg-2) clam-52))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (TTImpC-45WithClause-mergeMatches arg-0 (cons (cons e-22 arg-2) e-5) clam-52))))))))))))(else (TTImpC-45WithClause-getMatch arg-0 e-18 arg-2)))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((18) (let ((e-10 (vector-ref sc1 5))) (TTImpC-45WithClause-getMatch arg-0 arg-1 e-10)))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((29) (lambda (clam-53) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((29) (vector 1 '()))(else (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) clam-53)))))) ((28) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((28) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (lambda (eta-0) (TTImpC-45WithClause-case--getMatch-1108 e-2 e-1 e-5 e-4 arg-0 (CoreC-45TT-u--C-61C-61_Eq_Constant e-2 e-5) eta-0)))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) eta-0))))))))))))))))))))))))) ((11) (let ((e-73 (vector-ref sc0 2))) (let ((e-74 (vector-ref sc0 3))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((11) (let ((e-100 (vector-ref sc1 2))) (let ((e-101 (vector-ref sc1 3))) (lambda (eta-0) (TTImpC-45WithClause-matchAll arg-0 (cons (cons e-73 e-100) (cons (cons e-74 e-101) '())) eta-0)))))(else (let ((sc1 arg-0)) (cond ((equal? sc1 0) (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((10) (let ((e-37 (vector-ref sc2 2))) (let ((e-39 (vector-ref sc2 4))) (lambda (eta-0) (TTImpC-45WithClause-matchAll 0 (cons (cons e-37 arg-2) (cons (cons e-39 e-39) '())) eta-0))))) ((9) (let ((e-41 (vector-ref sc2 2))) (let ((e-42 (vector-ref sc2 3))) (lambda (eta-0) (TTImpC-45WithClause-matchAll 0 (cons (cons e-41 arg-2) (cons (cons e-42 e-42) '())) eta-0)))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((10) (let ((e-29 (vector-ref sc2 1))) (lambda (eta-0) (TTImpC-45WithClause-matchFail e-29 eta-0)))) ((9) (let ((e-33 (vector-ref sc2 1))) (lambda (eta-0) (TTImpC-45WithClause-matchFail e-33 eta-0))))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((13) (let ((e-11 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 3))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((13) (let ((e-21 (vector-ref sc3 3))) (lambda (eta-0) (TTImpC-45WithClause-matchAny e-11 arg-0 (DataC-45List-u--zip_Zippable_List e-13 e-21) eta-0))))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((18) (let ((e-10 (vector-ref sc3 5))) (TTImpC-45WithClause-getMatch arg-0 arg-1 e-10)))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((29) (lambda (clam-54) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((29) (vector 1 '()))(else (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) clam-54)))))) ((28) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((28) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (lambda (eta-0) (TTImpC-45WithClause-case--getMatch-1108 e-2 e-1 e-5 e-4 arg-0 (CoreC-45TT-u--C-61C-61_Eq_Constant e-2 e-5) eta-0)))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) eta-0)))))))))))))) ((18) (let ((e-17 (vector-ref sc2 4))) (let ((e-18 (vector-ref sc2 5))) (let ((sc3 e-17)) (case (vector-ref sc3 0) ((1) (let ((e-22 (vector-ref sc3 1))) (lambda (clam-55) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((18) (let ((e-23 (vector-ref sc4 1))) (let ((e-26 (vector-ref sc4 4))) (let ((e-27 (vector-ref sc4 5))) (let ((sc5 e-26)) (case (vector-ref sc5 0) ((1) (let ((e-28 (vector-ref sc5 1))) (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 e-18 e-27) clam-55))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (TTImpC-45WithClause-mergeMatches arg-0 (cons (cons e-22 (vector 17 e-23 e-28)) e-5) clam-55))))))))(else (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 e-18 arg-2) clam-55))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (TTImpC-45WithClause-mergeMatches arg-0 (cons (cons e-22 arg-2) e-5) clam-55)))))))))))))(else (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 e-18 arg-2) clam-55))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (TTImpC-45WithClause-mergeMatches arg-0 (cons (cons e-22 arg-2) e-5) clam-55))))))))))))(else (TTImpC-45WithClause-getMatch arg-0 e-18 arg-2)))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((18) (let ((e-10 (vector-ref sc2 5))) (TTImpC-45WithClause-getMatch arg-0 arg-1 e-10)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((29) (lambda (clam-56) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((29) (vector 1 '()))(else (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) clam-56)))))) ((28) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (lambda (eta-0) (TTImpC-45WithClause-case--getMatch-1108 e-2 e-1 e-5 e-4 arg-0 (CoreC-45TT-u--C-61C-61_Eq_Constant e-2 e-5) eta-0)))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) eta-0)))))))))))))))))) ((equal? sc1 1) (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((10) (let ((e-44 (vector-ref sc2 2))) (TTImpC-45WithClause-getMatch 1 e-44 e-44))) ((9) (let ((e-48 (vector-ref sc2 2))) (TTImpC-45WithClause-getMatch 1 e-48 e-48)))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((10) (let ((e-29 (vector-ref sc2 1))) (lambda (eta-0) (TTImpC-45WithClause-matchFail e-29 eta-0)))) ((9) (let ((e-33 (vector-ref sc2 1))) (lambda (eta-0) (TTImpC-45WithClause-matchFail e-33 eta-0))))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((13) (let ((e-11 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 3))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((13) (let ((e-21 (vector-ref sc3 3))) (lambda (eta-0) (TTImpC-45WithClause-matchAny e-11 arg-0 (DataC-45List-u--zip_Zippable_List e-13 e-21) eta-0))))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((18) (let ((e-10 (vector-ref sc3 5))) (TTImpC-45WithClause-getMatch arg-0 arg-1 e-10)))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((29) (lambda (clam-57) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((29) (vector 1 '()))(else (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) clam-57)))))) ((28) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((28) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (lambda (eta-0) (TTImpC-45WithClause-case--getMatch-1108 e-2 e-1 e-5 e-4 arg-0 (CoreC-45TT-u--C-61C-61_Eq_Constant e-2 e-5) eta-0)))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) eta-0)))))))))))))) ((18) (let ((e-17 (vector-ref sc2 4))) (let ((e-18 (vector-ref sc2 5))) (let ((sc3 e-17)) (case (vector-ref sc3 0) ((1) (let ((e-22 (vector-ref sc3 1))) (lambda (clam-58) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((18) (let ((e-23 (vector-ref sc4 1))) (let ((e-26 (vector-ref sc4 4))) (let ((e-27 (vector-ref sc4 5))) (let ((sc5 e-26)) (case (vector-ref sc5 0) ((1) (let ((e-28 (vector-ref sc5 1))) (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 e-18 e-27) clam-58))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (TTImpC-45WithClause-mergeMatches arg-0 (cons (cons e-22 (vector 17 e-23 e-28)) e-5) clam-58))))))))(else (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 e-18 arg-2) clam-58))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (TTImpC-45WithClause-mergeMatches arg-0 (cons (cons e-22 arg-2) e-5) clam-58)))))))))))))(else (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 e-18 arg-2) clam-58))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (TTImpC-45WithClause-mergeMatches arg-0 (cons (cons e-22 arg-2) e-5) clam-58))))))))))))(else (TTImpC-45WithClause-getMatch arg-0 e-18 arg-2)))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((18) (let ((e-10 (vector-ref sc2 5))) (TTImpC-45WithClause-getMatch arg-0 arg-1 e-10)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((29) (lambda (clam-59) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((29) (vector 1 '()))(else (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) clam-59)))))) ((28) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (lambda (eta-0) (TTImpC-45WithClause-case--getMatch-1108 e-2 e-1 e-5 e-4 arg-0 (CoreC-45TT-u--C-61C-61_Eq_Constant e-2 e-5) eta-0)))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) eta-0))))))))))))))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((10) (let ((e-29 (vector-ref sc1 1))) (lambda (eta-0) (TTImpC-45WithClause-matchFail e-29 eta-0)))) ((9) (let ((e-33 (vector-ref sc1 1))) (lambda (eta-0) (TTImpC-45WithClause-matchFail e-33 eta-0))))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((13) (let ((e-11 (vector-ref sc1 1))) (let ((e-13 (vector-ref sc1 3))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((13) (let ((e-21 (vector-ref sc2 3))) (lambda (eta-0) (TTImpC-45WithClause-matchAny e-11 arg-0 (DataC-45List-u--zip_Zippable_List e-13 e-21) eta-0))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((18) (let ((e-10 (vector-ref sc2 5))) (TTImpC-45WithClause-getMatch arg-0 arg-1 e-10)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((29) (lambda (clam-60) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((29) (vector 1 '()))(else (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) clam-60)))))) ((28) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (lambda (eta-0) (TTImpC-45WithClause-case--getMatch-1108 e-2 e-1 e-5 e-4 arg-0 (CoreC-45TT-u--C-61C-61_Eq_Constant e-2 e-5) eta-0)))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) eta-0)))))))))))))) ((18) (let ((e-17 (vector-ref sc1 4))) (let ((e-18 (vector-ref sc1 5))) (let ((sc2 e-17)) (case (vector-ref sc2 0) ((1) (let ((e-22 (vector-ref sc2 1))) (lambda (clam-61) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((18) (let ((e-23 (vector-ref sc3 1))) (let ((e-26 (vector-ref sc3 4))) (let ((e-27 (vector-ref sc3 5))) (let ((sc4 e-26)) (case (vector-ref sc4 0) ((1) (let ((e-28 (vector-ref sc4 1))) (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 e-18 e-27) clam-61))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (TTImpC-45WithClause-mergeMatches arg-0 (cons (cons e-22 (vector 17 e-23 e-28)) e-5) clam-61))))))))(else (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 e-18 arg-2) clam-61))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (TTImpC-45WithClause-mergeMatches arg-0 (cons (cons e-22 arg-2) e-5) clam-61)))))))))))))(else (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 e-18 arg-2) clam-61))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (TTImpC-45WithClause-mergeMatches arg-0 (cons (cons e-22 arg-2) e-5) clam-61))))))))))))(else (TTImpC-45WithClause-getMatch arg-0 e-18 arg-2)))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((18) (let ((e-10 (vector-ref sc1 5))) (TTImpC-45WithClause-getMatch arg-0 arg-1 e-10)))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((29) (lambda (clam-62) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((29) (vector 1 '()))(else (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) clam-62)))))) ((28) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((28) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (lambda (eta-0) (TTImpC-45WithClause-case--getMatch-1108 e-2 e-1 e-5 e-4 arg-0 (CoreC-45TT-u--C-61C-61_Eq_Constant e-2 e-5) eta-0)))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) eta-0)))))))))))))))))))))))(else (let ((sc0 arg-0)) (cond ((equal? sc0 0) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((10) (let ((e-37 (vector-ref sc1 2))) (let ((e-39 (vector-ref sc1 4))) (lambda (eta-0) (TTImpC-45WithClause-matchAll 0 (cons (cons e-37 arg-2) (cons (cons e-39 e-39) '())) eta-0))))) ((9) (let ((e-41 (vector-ref sc1 2))) (let ((e-42 (vector-ref sc1 3))) (lambda (eta-0) (TTImpC-45WithClause-matchAll 0 (cons (cons e-41 arg-2) (cons (cons e-42 e-42) '())) eta-0)))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((10) (let ((e-29 (vector-ref sc1 1))) (lambda (eta-0) (TTImpC-45WithClause-matchFail e-29 eta-0)))) ((9) (let ((e-33 (vector-ref sc1 1))) (lambda (eta-0) (TTImpC-45WithClause-matchFail e-33 eta-0))))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((13) (let ((e-11 (vector-ref sc1 1))) (let ((e-13 (vector-ref sc1 3))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((13) (let ((e-21 (vector-ref sc2 3))) (lambda (eta-0) (TTImpC-45WithClause-matchAny e-11 arg-0 (DataC-45List-u--zip_Zippable_List e-13 e-21) eta-0))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((18) (let ((e-10 (vector-ref sc2 5))) (TTImpC-45WithClause-getMatch arg-0 arg-1 e-10)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((29) (lambda (clam-63) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((29) (vector 1 '()))(else (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) clam-63)))))) ((28) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (lambda (eta-0) (TTImpC-45WithClause-case--getMatch-1108 e-2 e-1 e-5 e-4 arg-0 (CoreC-45TT-u--C-61C-61_Eq_Constant e-2 e-5) eta-0)))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) eta-0)))))))))))))) ((18) (let ((e-17 (vector-ref sc1 4))) (let ((e-18 (vector-ref sc1 5))) (let ((sc2 e-17)) (case (vector-ref sc2 0) ((1) (let ((e-22 (vector-ref sc2 1))) (lambda (clam-64) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((18) (let ((e-23 (vector-ref sc3 1))) (let ((e-26 (vector-ref sc3 4))) (let ((e-27 (vector-ref sc3 5))) (let ((sc4 e-26)) (case (vector-ref sc4 0) ((1) (let ((e-28 (vector-ref sc4 1))) (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 e-18 e-27) clam-64))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (TTImpC-45WithClause-mergeMatches arg-0 (cons (cons e-22 (vector 17 e-23 e-28)) e-5) clam-64))))))))(else (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 e-18 arg-2) clam-64))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (TTImpC-45WithClause-mergeMatches arg-0 (cons (cons e-22 arg-2) e-5) clam-64)))))))))))))(else (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 e-18 arg-2) clam-64))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (TTImpC-45WithClause-mergeMatches arg-0 (cons (cons e-22 arg-2) e-5) clam-64))))))))))))(else (TTImpC-45WithClause-getMatch arg-0 e-18 arg-2)))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((18) (let ((e-10 (vector-ref sc1 5))) (TTImpC-45WithClause-getMatch arg-0 arg-1 e-10)))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((29) (lambda (clam-65) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((29) (vector 1 '()))(else (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) clam-65)))))) ((28) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((28) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (lambda (eta-0) (TTImpC-45WithClause-case--getMatch-1108 e-2 e-1 e-5 e-4 arg-0 (CoreC-45TT-u--C-61C-61_Eq_Constant e-2 e-5) eta-0)))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) eta-0)))))))))))))))))) ((equal? sc0 1) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((10) (let ((e-44 (vector-ref sc1 2))) (TTImpC-45WithClause-getMatch 1 e-44 e-44))) ((9) (let ((e-48 (vector-ref sc1 2))) (TTImpC-45WithClause-getMatch 1 e-48 e-48)))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((10) (let ((e-29 (vector-ref sc1 1))) (lambda (eta-0) (TTImpC-45WithClause-matchFail e-29 eta-0)))) ((9) (let ((e-33 (vector-ref sc1 1))) (lambda (eta-0) (TTImpC-45WithClause-matchFail e-33 eta-0))))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((13) (let ((e-11 (vector-ref sc1 1))) (let ((e-13 (vector-ref sc1 3))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((13) (let ((e-21 (vector-ref sc2 3))) (lambda (eta-0) (TTImpC-45WithClause-matchAny e-11 arg-0 (DataC-45List-u--zip_Zippable_List e-13 e-21) eta-0))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((18) (let ((e-10 (vector-ref sc2 5))) (TTImpC-45WithClause-getMatch arg-0 arg-1 e-10)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((29) (lambda (clam-66) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((29) (vector 1 '()))(else (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) clam-66)))))) ((28) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (lambda (eta-0) (TTImpC-45WithClause-case--getMatch-1108 e-2 e-1 e-5 e-4 arg-0 (CoreC-45TT-u--C-61C-61_Eq_Constant e-2 e-5) eta-0)))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) eta-0)))))))))))))) ((18) (let ((e-17 (vector-ref sc1 4))) (let ((e-18 (vector-ref sc1 5))) (let ((sc2 e-17)) (case (vector-ref sc2 0) ((1) (let ((e-22 (vector-ref sc2 1))) (lambda (clam-67) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((18) (let ((e-23 (vector-ref sc3 1))) (let ((e-26 (vector-ref sc3 4))) (let ((e-27 (vector-ref sc3 5))) (let ((sc4 e-26)) (case (vector-ref sc4 0) ((1) (let ((e-28 (vector-ref sc4 1))) (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 e-18 e-27) clam-67))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (TTImpC-45WithClause-mergeMatches arg-0 (cons (cons e-22 (vector 17 e-23 e-28)) e-5) clam-67))))))))(else (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 e-18 arg-2) clam-67))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (TTImpC-45WithClause-mergeMatches arg-0 (cons (cons e-22 arg-2) e-5) clam-67)))))))))))))(else (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 e-18 arg-2) clam-67))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (TTImpC-45WithClause-mergeMatches arg-0 (cons (cons e-22 arg-2) e-5) clam-67))))))))))))(else (TTImpC-45WithClause-getMatch arg-0 e-18 arg-2)))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((18) (let ((e-10 (vector-ref sc1 5))) (TTImpC-45WithClause-getMatch arg-0 arg-1 e-10)))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((29) (lambda (clam-68) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((29) (vector 1 '()))(else (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) clam-68)))))) ((28) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((28) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (lambda (eta-0) (TTImpC-45WithClause-case--getMatch-1108 e-2 e-1 e-5 e-4 arg-0 (CoreC-45TT-u--C-61C-61_Eq_Constant e-2 e-5) eta-0)))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) eta-0))))))))))))))))))(else (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((10) (let ((e-29 (vector-ref sc0 1))) (lambda (eta-0) (TTImpC-45WithClause-matchFail e-29 eta-0)))) ((9) (let ((e-33 (vector-ref sc0 1))) (lambda (eta-0) (TTImpC-45WithClause-matchFail e-33 eta-0))))(else (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((13) (let ((e-11 (vector-ref sc0 1))) (let ((e-13 (vector-ref sc0 3))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((13) (let ((e-21 (vector-ref sc1 3))) (lambda (eta-0) (TTImpC-45WithClause-matchAny e-11 arg-0 (DataC-45List-u--zip_Zippable_List e-13 e-21) eta-0))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((18) (let ((e-10 (vector-ref sc1 5))) (TTImpC-45WithClause-getMatch arg-0 arg-1 e-10)))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((29) (lambda (clam-69) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((29) (vector 1 '()))(else (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) clam-69)))))) ((28) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((28) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (lambda (eta-0) (TTImpC-45WithClause-case--getMatch-1108 e-2 e-1 e-5 e-4 arg-0 (CoreC-45TT-u--C-61C-61_Eq_Constant e-2 e-5) eta-0)))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) eta-0)))))))))))))) ((18) (let ((e-17 (vector-ref sc0 4))) (let ((e-18 (vector-ref sc0 5))) (let ((sc1 e-17)) (case (vector-ref sc1 0) ((1) (let ((e-22 (vector-ref sc1 1))) (lambda (clam-70) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((18) (let ((e-23 (vector-ref sc2 1))) (let ((e-26 (vector-ref sc2 4))) (let ((e-27 (vector-ref sc2 5))) (let ((sc3 e-26)) (case (vector-ref sc3 0) ((1) (let ((e-28 (vector-ref sc3 1))) (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 e-18 e-27) clam-70))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (TTImpC-45WithClause-mergeMatches arg-0 (cons (cons e-22 (vector 17 e-23 e-28)) e-5) clam-70))))))))(else (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 e-18 arg-2) clam-70))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (TTImpC-45WithClause-mergeMatches arg-0 (cons (cons e-22 arg-2) e-5) clam-70)))))))))))))(else (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 e-18 arg-2) clam-70))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (TTImpC-45WithClause-mergeMatches arg-0 (cons (cons e-22 arg-2) e-5) clam-70))))))))))))(else (TTImpC-45WithClause-getMatch arg-0 e-18 arg-2)))))))(else (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((18) (let ((e-10 (vector-ref sc0 5))) (TTImpC-45WithClause-getMatch arg-0 arg-1 e-10)))(else (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((29) (lambda (clam-71) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((29) (vector 1 '()))(else (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) clam-71)))))) ((28) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((28) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (lambda (eta-0) (TTImpC-45WithClause-case--getMatch-1108 e-2 e-1 e-5 e-4 arg-0 (CoreC-45TT-u--C-61C-61_Eq_Constant e-2 e-5) eta-0)))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-1) eta-0)))))))))))))))))))))) -(define TTImpC-45WithClause-getArgMatch (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) arg-3)(else (let ((sc0 arg-2)) (cond ((equal? sc0 0) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((1) (let ((e-7 (vector-ref sc1 1))) (let ((sc2 e-7)) (if (null? sc2) (let ((sc3 arg-5)) (let ((e-1 (vector-ref sc3 1))) (let ((sc4 e-1)) (let ((e-4 (car sc4))) (let ((e-5 (cdr sc4))) (TTImpC-45WithClause-case--getArgMatch-1344 e-4 e-5 arg-4 arg-3 arg-2 arg-1 arg-0 (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Name-isUN e-5) (lambda (u--n) (DataC-45List-lookup (cons (lambda (arg-6) (lambda (arg-7) (PreludeC-45EqOrd-u--C-61C-61_Eq_String arg-6 arg-7))) (lambda (arg-6) (lambda (arg-7) (PreludeC-45EqOrd-u--C-47C-61_Eq_String arg-6 arg-7)))) u--n arg-4))))))))) (let ((e-10 (car sc2))) (let ((e-11 (cdr sc2))) (let ((sc3 e-10)) (case (vector-ref sc3 0) ((2) (TTImpC-45WithClause-case--getArgMatch-1263 e-11 arg-4 arg-3 arg-1 arg-0 (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Name-isUN e-11) (lambda (u--n) (DataC-45List-lookup (cons (lambda (arg-6) (lambda (arg-7) (PreludeC-45EqOrd-u--C-61C-61_Eq_String arg-6 arg-7))) (lambda (arg-6) (lambda (arg-7) (PreludeC-45EqOrd-u--C-47C-61_Eq_String arg-6 arg-7)))) u--n arg-4)))))(else (let ((sc3 arg-5)) (let ((e-1 (vector-ref sc3 1))) (let ((sc4 e-1)) (let ((e-4 (car sc4))) (let ((e-5 (cdr sc4))) (TTImpC-45WithClause-case--getArgMatch-1344 e-4 e-5 arg-4 arg-3 arg-2 arg-1 arg-0 (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Name-isUN e-5) (lambda (u--n) (DataC-45List-lookup (cons (lambda (arg-6) (lambda (arg-7) (PreludeC-45EqOrd-u--C-61C-61_Eq_String arg-6 arg-7))) (lambda (arg-6) (lambda (arg-7) (PreludeC-45EqOrd-u--C-47C-61_Eq_String arg-6 arg-7)))) u--n arg-4))))))))))))))))))(else (let ((sc1 arg-5)) (let ((e-1 (vector-ref sc1 1))) (let ((sc2 e-1)) (let ((e-4 (car sc2))) (let ((e-5 (cdr sc2))) (TTImpC-45WithClause-case--getArgMatch-1344 e-4 e-5 arg-4 arg-3 arg-2 arg-1 arg-0 (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Name-isUN e-5) (lambda (u--n) (DataC-45List-lookup (cons (lambda (arg-6) (lambda (arg-7) (PreludeC-45EqOrd-u--C-61C-61_Eq_String arg-6 arg-7))) (lambda (arg-6) (lambda (arg-7) (PreludeC-45EqOrd-u--C-47C-61_Eq_String arg-6 arg-7)))) u--n arg-4)))))))))))))(else (let ((sc0 arg-5)) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-4 (car sc1))) (let ((e-5 (cdr sc1))) (TTImpC-45WithClause-case--getArgMatch-1344 e-4 e-5 arg-4 arg-3 arg-2 arg-1 arg-0 (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Name-isUN e-5) (lambda (u--n) (DataC-45List-lookup (cons (lambda (arg-6) (lambda (arg-7) (PreludeC-45EqOrd-u--C-61C-61_Eq_String arg-6 arg-7))) (lambda (arg-6) (lambda (arg-7) (PreludeC-45EqOrd-u--C-47C-61_Eq_String arg-6 arg-7)))) u--n arg-4))))))))))))))))) -(define TTImpC-45PartialEval-case--caseC-32blockC-32inC-32quoteGenNF-9082 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 ext-0) (let ((sc0 arg-14)) (if (null? sc0) (let ((act-24 (TTImpC-45PartialEval-quoteArgsWithFC arg-11 arg-10 arg-9 arg-0 arg-1 arg-8 arg-7 arg-6 arg-5 arg-3 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (CoreC-45TT-applyWithFC (vector 1 arg-4 (vector 1 ) arg-2) e-5))))))) (let ((act-24 (CoreC-45Context-clearDefs arg-7 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTImpC-45PartialEval-quoteArgsWithFC arg-11 arg-10 arg-9 arg-0 arg-1 arg-8 arg-7 arg-6 arg-5 arg-3 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImpC-45PartialEval-specialise (PreludeC-45TypesC-45List-C-43C-43 arg-0 arg-1) arg-11 arg-10 arg-9 arg-4 (TTImpC-45PartialEval-n--14673-9016-u--extendEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-6 arg-5) arg-12 arg-2 e-6 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (vector 1 e-1))) (else (let ((act-27 (TTImpC-45PartialEval-quoteArgsWithFC arg-11 arg-10 arg-9 arg-0 arg-1 arg-8 e-5 arg-6 arg-5 arg-3 ext-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc5 1))) (vector 1 (CoreC-45TT-applyWithFC (vector 1 arg-4 (vector 1 ) arg-2) e-8))))))))))))))))))))))))))))) -(define TTImpC-45PartialEval-case--quoteHead-8608 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 ext-0) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (vector 1 (vector 0 arg-6 (vector 0 ) e-1)))) (else (vector 1 (vector 1 arg-6 (vector 0 ) (vector 2 arg-3 arg-2)))))))) -(define TTImpC-45PartialEval-case--quoteHeadC-44findName-8394 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-13 arg-14 arg-15 arg-16 arg-18) (let ((sc0 arg-18)) (cond ((equal? sc0 0) (vector 1 0)) (else (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (TTImpC-45PartialEval-n--14649-8378-u--findName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-15) (lambda (_-0) (vector 1 (+ 1 _-0))))))))) -(define TTImpC-45PartialEval-case--quoteHead-8330 (lambda (arg-0 arg-2 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 ext-0) (vector 1 (vector 0 arg-8 arg-4 arg-14)))) -(define TTImpC-45PartialEval-case--quoteHeadC-44addLater-8270 (lambda (arg-0 arg-2 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-16 arg-17 arg-18 arg-20) (+ 1 arg-20))) -(define TTImpC-45PartialEval-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32specialise-7622 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 ext-0) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((0) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc1 eta-0)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-5))))))) (lambda (eta-0) (TTImpC-45PartialEval-mkSpecDef arg-8 arg-7 arg-6 arg-5 arg-3 arg-14 arg-11 arg-2 arg-1 eta-0)) ext-0)) (else (vector 1 (vector 0 ))))))) -(define TTImpC-45PartialEval-case--specialise-7495 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 ext-0) (let ((sc0 arg-9)) (if (null? sc0) (vector 1 (vector 0 )) (let ((act-24 (CoreC-45Context-toFullNames arg-8 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) arg-2 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTImpC-45PartialEval-n--13623-7172-u--getSpecArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 0 arg-9 arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((u--nhash (CoreC-45Hash-u--hashWithSalt_Hashable_Name (CoreC-45Hash-u--hash_Hashable_C-40ListC-32C-36aC-41 (cons (lambda (arg-1546) (CoreC-45Hash-u--hash_Hashable_C-40TermC-32C-36varsC-41 arg-1546)) (lambda (arg-1547) (lambda (arg-1548) (CoreC-45Hash-u--hashWithSalt_Hashable_C-40TermC-32C-36varsC-41 arg-1547 arg-1548)))) (DataC-45List-mapMaybe (lambda (eta-0) (TTImpC-45PartialEval-getStatic eta-0)) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-1))) arg-2))) (let ((u--pename (vector 0 (CoreC-45NameC-45Namespace-partialEvalNS) (vector 1 (PreludeC-45TypesC-45String-C-43C-43 "PE_" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-nameRoot e-5) (PreludeC-45TypesC-45String-C-43C-43 "_" (LibrariesC-45UtilsC-45Hex-asHex u--nhash)))))))) (let ((act-26 (let ((act-26 (unbox arg-8))) (vector 1 act-26)))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (let ((_-0 (vector 1 e-1))) (TTImpC-45PartialEval-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32specialise-7622 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-5 e-1 _-0 u--nhash u--pename e-7 (LibrariesC-45DataC-45NameMap-lookup u--pename (let ((sc5 e-7)) (let ((e-25 (vector-ref sc5 26))) e-25))) ext-0))))))))))) (else (vector 1 (vector 0 ))))))))))))))))))) -(define TTImpC-45PartialEval-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32specialiseC-44getSpecArgs-7322 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 ext-0) (let ((sc0 arg-19)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (vector 1 (vector 1 (cons (cons arg-13 (vector 0 e-1)) arg-14))))) (else (vector 1 (vector 0 ))))))) -(define TTImpC-45PartialEval-case--caseC-32blockC-32inC-32specialiseC-44getSpecArgs-7261 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 ext-0) (let ((sc0 arg-16)) (cond ((equal? sc0 0) (let ((act-24 (let ((act-24 (unbox arg-8))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Normalise-normaliseHoles arg-8 arg-0 e-5 arg-4 arg-10 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((TTImpC-45PartialEval-eraseInferred arg-8 e-6) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (TTImpC-45PartialEval-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32specialiseC-44getSpecArgs-7322 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-5 e-6 e-7 (TTImpC-45PartialEval-n--13623-7171-u--concrete arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-0 e-7) ext-0))))))))))))))))) (else (vector 1 (vector 1 (cons (cons arg-13 (vector 1 )) arg-14)))))))) -(define TTImpC-45PartialEval-case--eraseInferred-7032 (lambda (arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-3)) (if (null? sc1) (lambda (eta-0) (vector 1 e-2)) (lambda (clam-0) (let ((sc2 e-2)) (case (vector-ref sc2 0) ((1) (let ((e-5 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (let ((e-7 (vector-ref sc2 3))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact e-7 (let ((sc5 e-8)) (let ((e-0 (vector-ref sc5 1))) e-0))) clam-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (let ((sc6 e-9)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((u--argsE (TTImpC-45PartialEval-n--13376-6962-u--dropErased arg-1 arg-2 e-5 0 (let ((sc7 e-1)) (let ((e-24 (vector-ref sc7 7))) e-24)) e-3))) (let ((act-26 (CoreC-45Core-traverseC-39 (lambda (eta-0) (TTImpC-45PartialEval-eraseInferred arg-2 eta-0)) u--argsE '() clam-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc7 1))) (vector 1 (CoreC-45TT-apply e-5 (vector 1 e-5 (vector 1 ) e-7) e-10)))))))))) (else (vector 1 arg-1)))))))))))))))(else (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (TTImpC-45PartialEval-eraseInferred arg-2 eta-0)) e-3 '() clam-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (vector 1 (CoreC-45TT-apply (CoreC-45TT-getLoc e-2) e-2 e-3)))))))))))))(else (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (TTImpC-45PartialEval-eraseInferred arg-2 eta-0)) e-3 '() clam-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (vector 1 (CoreC-45TT-apply (CoreC-45TT-getLoc e-2) e-2 e-3))))))))))))))))) -(define TTImpC-45PartialEval-case--eraseInferredC-44dropErased-6978 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (cond ((equal? sc0 0) (cons (vector 10 arg-7 1) (TTImpC-45PartialEval-n--13376-6962-u--dropErased arg-1 arg-2 arg-7 (PreludeC-45Types-u--C-43_Num_Nat (PreludeC-45Types-u--fromInteger_Num_Nat 1) arg-6) arg-5 arg-4))) (else (cons arg-3 (TTImpC-45PartialEval-n--13376-6962-u--dropErased arg-1 arg-2 arg-7 (PreludeC-45Types-u--C-43_Num_Nat (PreludeC-45Types-u--fromInteger_Num_Nat 1) arg-6) arg-5 arg-4))))))) -(define TTImpC-45PartialEval-case--caseC-32blockC-32inC-32mkSpecDef-6388 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 ext-0) (let ((sc0 arg-20)) (case (vector-ref sc0 0) ((1) (let ((e-4 (vector-ref sc0 5))) (let ((act-24 (CoreC-45ContextC-45Log-logC arg-9 "specialise" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-0) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-1) (TTImpC-45PartialEval-n--12250-5948-u--unelabDef arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 eta-1)) e-4 '() eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (PreludeC-45TypesC-45String-C-43C-43 "Attempting to specialise:\u000a" (CoreC-45NameC-45Namespace-showSep "\u000a" (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (TTImpC-45PartialEval-n--12250-5949-u--showPat arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 eta-1)) e-5)))))))))) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((act-25 (let ((act-25 ((CoreC-45Normalise-nf arg-9 '() arg-18 '() (let ((sc2 arg-5)) (let ((e-24 (vector-ref sc2 3))) e-24))) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) ((TTImpC-45PartialEval-getSpecPats arg-9 arg-6 arg-4 arg-2 arg-1 e-6 arg-3 arg-11 e-4) ext-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-7 (vector-ref sc3 1))) (let ((act-26 (CoreC-45ContextC-45Log-log arg-9 "specialise" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "New patterns for " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name arg-4) (PreludeC-45TypesC-45String-C-43C-43 ":\u000a" (CoreC-45NameC-45Namespace-showSep "\u000a" (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (TTImpC-45PartialEval-n--12250-5949-u--showPat arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 eta-0)) e-7)))))) ext-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((act-27 ((TTImpC-45ElabC-45Check-processDecl '() arg-9 arg-8 arg-7 (cons (vector 2 ) '()) '() '() (vector 2 arg-6 (vector 9 arg-15) e-7)) ext-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (vector 0 e-9))) (else (let ((act-28 (CoreC-45Context-setAllPublic arg-9 1 ext-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (vector 1 arg-12))))))))))))))) (else (vector 1 (CoreC-45TT-applyWithFC (vector 1 arg-6 (vector 1 ) arg-2) arg-1))))))))))))))))(else (vector 1 (CoreC-45TT-applyWithFC (vector 1 arg-6 (vector 1 ) arg-2) arg-1))))))) -(define TTImpC-45PartialEval-case--getReducible-5876 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((CoreC-45Context-lookupCtxtExact arg-0 (let ((sc1 arg-2)) (let ((e-0 (vector-ref sc1 1))) e-0))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) ((TTImpC-45PartialEval-getReducible arg-1 arg-3 arg-2) eta-0)) (else (let ((e-2 (vector-ref sc2 1))) (let ((u--refsC-39 (LibrariesC-45DataC-45NameMap-insert arg-0 (PreludeC-45Types-u--fromInteger_Num_Nat 65536) arg-3))) (let ((u--calls (CoreC-45Context-refersTo e-2))) ((TTImpC-45PartialEval-getReducible (PreludeC-45TypesC-45List-C-43C-43 (LibrariesC-45DataC-45NameMap-keys u--calls) arg-1) u--refsC-39 arg-2) eta-0)))))))))))))) (else (TTImpC-45PartialEval-getReducible arg-1 arg-3 arg-2)))))) -(define TTImpC-45PartialEval-case--getSpecPats-5780 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((0) (let ((u--dynnames (TTImpC-45PartialEval-n--11671-5393-u--mkDynNames arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 0 arg-3))) (let ((u--lhs (TTImpC-45TTImp-apply (vector 0 arg-8 arg-7) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (vector 17 arg-8 eta-0)) u--dynnames)))) (lambda (eta-0) (let ((act-24 ((TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-4 (vector 0 arg-8 arg-6) u--dynnames arg-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 (cons (vector 0 arg-8 u--lhs e-5) '())))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-1) (TTImpC-45PartialEval-n--11671-5398-u--unelabPat arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-7 eta-1)) e-2 '() eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-5)))))))))))))) -(define TTImpC-45PartialEval-case--dropSpec-5333 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (cons arg-1 (TTImpC-45PartialEval-dropSpec (PreludeC-45Types-u--C-43_Num_Nat (PreludeC-45Types-u--fromInteger_Num_Nat 1) arg-4) arg-3 arg-2))) (else (TTImpC-45PartialEval-dropSpec (PreludeC-45Types-u--C-43_Num_Nat (PreludeC-45Types-u--fromInteger_Num_Nat 1) arg-4) arg-3 arg-2)))))) -(define TTImpC-45PartialEval-case--specPatByVar-5223 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (TTImpC-45PartialEval-mkSubsts 0 arg-4 e-3 arg-3) (lambda (u--psubs) (let ((u--lhsC-39 (CoreC-45TT-apply (CoreC-45TT-getLoc e-2) e-2 e-3))) (PreludeC-45Types-u--pure_Applicative_Maybe (cons arg-0 (cons arg-1 (cons (TTImpC-45PartialEval-substLocs arg-0 u--psubs u--lhsC-39) (TTImpC-45PartialEval-substLocs arg-0 u--psubs arg-3))))))))))))) -(define TTImpC-45PartialEval-case--mkSubsts-5008 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (vector 1 arg-6)) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 3))) (vector 1 (cons (cons e-4 (CoreC-45TT-embed e-2)) arg-6)))) ((5) (let ((e-9 (vector-ref sc1 3))) (let ((e-10 (vector-ref sc1 4))) (let ((sc2 e-9)) (case (vector-ref sc2 0) ((0) (let ((e-21 (vector-ref sc2 3))) (let ((sc3 e-10)) (case (vector-ref sc3 0) ((0) (let ((e-27 (vector-ref sc3 3))) (vector 1 (cons (cons e-21 (CoreC-45TT-embed e-2)) (cons (cons e-27 (CoreC-45TT-embed e-2)) arg-6)))))(else (let ((sc3 e-10)) (case (vector-ref sc3 0) ((0) (let ((e-15 (vector-ref sc3 3))) (vector 1 (cons (cons e-15 (CoreC-45TT-embed e-2)) arg-6))))(else (vector 0 )))))))))(else (let ((sc2 e-10)) (case (vector-ref sc2 0) ((0) (let ((e-15 (vector-ref sc2 3))) (vector 1 (cons (cons e-15 (CoreC-45TT-embed e-2)) arg-6))))(else (vector 0 ))))))))))(else (vector 0 )))))))))) -(define TTImpC-45PartialEval-case--substLoc-4845 (lambda (arg-0 arg-2 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (cond ((equal? sc0 0) arg-6) (else (vector 0 arg-5 arg-4 arg-2)))))) -(define TTImpC-45PartialEval-case--specialiseTy-4761 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((0) (vector 3 arg-7 arg-5 (vector 2 arg-4 arg-3 (vector 1 ) arg-1) (TTImpC-45PartialEval-specialiseTy (cons arg-5 arg-0) (PreludeC-45Types-u--C-43_Num_Nat (PreludeC-45Types-u--fromInteger_Num_Nat 1) arg-9) arg-8 arg-6))) (else (let ((e-2 (vector-ref sc0 1))) (TTImpC-45PartialEval-specialiseTy arg-0 (PreludeC-45Types-u--C-43_Num_Nat (PreludeC-45Types-u--fromInteger_Num_Nat 1) arg-9) arg-8 (CoreC-45TTC-45SubstEnv-subst (CoreC-45TT-embed e-2) arg-6)))))))) -(define TTImpC-45PartialEval-n--11671-5398-u--unelabPat (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (lambda (clam-0) (let ((sc1 e-3)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (let ((sc2 e-7)) (let ((e-10 (car sc2))) (let ((e-11 (cdr sc2))) (let ((act-24 (TTImpC-45Unelab-unelabNoSugar e-2 arg-9 e-6 e-10 clam-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (let ((u--lhsC-39 (TTImpC-45PartialEval-n--11671-5397-u--dropArgs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-5))) (let ((act-25 (let ((act-25 (unbox arg-9))) (vector 1 act-25)))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-26 (CoreC-45Normalise-normaliseArgHoles arg-9 e-2 e-8 e-6 e-11 clam-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-27 (TTImpC-45Unelab-unelabNoSugar e-2 arg-9 e-6 e-9 clam-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc6 1))) (vector 1 (vector 0 arg-8 u--lhsC-39 e-12))))))))))))))))))))))))))))))))))) -(define TTImpC-45PartialEval-n--12250-5948-u--unelabDef (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (lambda (clam-0) (let ((sc1 e-3)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (let ((sc2 e-7)) (let ((e-10 (car sc2))) (let ((e-11 (cdr sc2))) (let ((act-24 (TTImpC-45Unelab-unelabNoSugar e-2 arg-9 e-6 e-10 clam-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (let ((act-25 (unbox arg-9))) (vector 1 act-25)))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-26 (CoreC-45Normalise-normaliseArgHoles arg-9 e-2 e-8 e-6 e-11 clam-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-27 (TTImpC-45Unelab-unelabNoSugar e-2 arg-9 e-6 e-9 clam-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc6 1))) (vector 1 (vector 0 arg-6 e-5 e-12)))))))))))))))))))))))))))))))))) -(define TTImpC-45PartialEval-n--12250-5949-u--showPat (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (PreludeC-45TypesC-45String-C-43C-43 (TTImpC-45TTImp-u--show_Show_RawImp e-1) (PreludeC-45TypesC-45String-C-43C-43 " = " (TTImpC-45TTImp-u--show_Show_RawImp e-2))))))(else "Can't happen"))))) -(define TTImpC-45PartialEval-n--11671-5396-u--reapply (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (if (null? sc0) arg-10 (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((0) (TTImpC-45PartialEval-n--11671-5396-u--reapply arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (vector 8 arg-8 arg-10 e-7) e-3)) (else (let ((e-10 (vector-ref sc2 1))) (TTImpC-45PartialEval-n--11671-5396-u--reapply arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (vector 10 arg-8 arg-10 e-10 e-7) e-3)))))))))))))) -(define TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((0) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 4))) (let ((sc1 e-13)) (case (vector-ref sc1 0) ((2) (let ((e-18 (vector-ref sc1 3))) (let ((sc2 e-18)) (case (vector-ref sc2 0) ((1) (let ((sc3 arg-12)) (if (null? sc3) (let ((sc4 arg-12)) (if (null? sc4) (let ((sc5 e-18)) (case (vector-ref sc5 0) ((1) (let ((sc6 arg-13)) (if (null? sc6) (let ((sc7 arg-13)) (if (null? sc7) (let ((sc8 arg-12)) (if (null? sc8) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc8))) (let ((e-2 (cdr sc8))) (let ((sc9 arg-13)) (if (null? sc9) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc9))) (let ((e-5 (cdr sc9))) (let ((sc10 e-4)) (if (null? sc10) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc10))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-21 (car sc7))) (let ((e-22 (cdr sc7))) (let ((sc8 e-21)) (if (null? sc8) (let ((sc9 arg-12)) (if (null? sc9) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc9))) (let ((e-2 (cdr sc9))) (let ((sc10 arg-13)) (if (null? sc10) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc10))) (let ((e-5 (cdr sc10))) (let ((sc11 e-4)) (if (null? sc11) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc11))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-26 (cdr sc8))) (let ((sc9 e-26)) (case (vector-ref sc9 0) ((0) (let ((e-27 (vector-ref sc9 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 1))) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc11 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc12 1))) ((TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0)))))))))))))))))))(else (let ((sc9 arg-12)) (if (null? sc9) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc9))) (let ((e-2 (cdr sc9))) (let ((sc10 arg-13)) (if (null? sc10) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc10))) (let ((e-5 (cdr sc10))) (let ((sc11 e-4)) (if (null? sc11) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc11))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))))))))))) (let ((e-30 (car sc6))) (let ((e-31 (cdr sc6))) (let ((sc7 e-30)) (if (null? sc7) (let ((sc8 arg-13)) (if (null? sc8) (let ((sc9 arg-12)) (if (null? sc9) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc9))) (let ((e-2 (cdr sc9))) (let ((sc10 arg-13)) (if (null? sc10) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc10))) (let ((e-5 (cdr sc10))) (let ((sc11 e-4)) (if (null? sc11) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc11))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-21 (car sc8))) (let ((e-22 (cdr sc8))) (let ((sc9 e-21)) (if (null? sc9) (let ((sc10 arg-12)) (if (null? sc10) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc10))) (let ((e-2 (cdr sc10))) (let ((sc11 arg-13)) (if (null? sc11) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc11))) (let ((e-5 (cdr sc11))) (let ((sc12 e-4)) (if (null? sc12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc12))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-26 (cdr sc9))) (let ((sc10 e-26)) (case (vector-ref sc10 0) ((0) (let ((e-27 (vector-ref sc10 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 1))) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc12 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc13 1))) ((TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0)))))))))))))))))))(else (let ((sc10 arg-12)) (if (null? sc10) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc10))) (let ((e-2 (cdr sc10))) (let ((sc11 arg-13)) (if (null? sc11) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc11))) (let ((e-5 (cdr sc11))) (let ((sc12 e-4)) (if (null? sc12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc12))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))))))))))) (let ((e-35 (cdr sc7))) (let ((sc8 e-35)) (case (vector-ref sc8 0) ((0) (let ((e-36 (vector-ref sc8 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 1))) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc10 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-36 eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc11 1))) ((TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 8 arg-8 arg-11 e-7) arg-12 e-31) eta-0)))))))))))))))))))(else (let ((sc8 arg-13)) (if (null? sc8) (let ((sc9 arg-12)) (if (null? sc9) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc9))) (let ((e-2 (cdr sc9))) (let ((sc10 arg-13)) (if (null? sc10) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc10))) (let ((e-5 (cdr sc10))) (let ((sc11 e-4)) (if (null? sc11) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc11))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-21 (car sc8))) (let ((e-22 (cdr sc8))) (let ((sc9 e-21)) (if (null? sc9) (let ((sc10 arg-12)) (if (null? sc10) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc10))) (let ((e-2 (cdr sc10))) (let ((sc11 arg-13)) (if (null? sc11) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc11))) (let ((e-5 (cdr sc11))) (let ((sc12 e-4)) (if (null? sc12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc12))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-26 (cdr sc9))) (let ((sc10 e-26)) (case (vector-ref sc10 0) ((0) (let ((e-27 (vector-ref sc10 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 1))) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc12 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc13 1))) ((TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0)))))))))))))))))))(else (let ((sc10 arg-12)) (if (null? sc10) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc10))) (let ((e-2 (cdr sc10))) (let ((sc11 arg-13)) (if (null? sc11) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc11))) (let ((e-5 (cdr sc11))) (let ((sc12 e-4)) (if (null? sc12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc12))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))))))))))))))))))))))(else (let ((sc5 arg-13)) (if (null? sc5) (let ((sc6 arg-12)) (if (null? sc6) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc6))) (let ((e-2 (cdr sc6))) (let ((sc7 arg-13)) (if (null? sc7) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc7))) (let ((e-5 (cdr sc7))) (let ((sc8 e-4)) (if (null? sc8) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc8))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-21 (car sc5))) (let ((e-22 (cdr sc5))) (let ((sc6 e-21)) (if (null? sc6) (let ((sc7 arg-12)) (if (null? sc7) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc7))) (let ((e-2 (cdr sc7))) (let ((sc8 arg-13)) (if (null? sc8) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc8))) (let ((e-5 (cdr sc8))) (let ((sc9 e-4)) (if (null? sc9) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc9))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-26 (cdr sc6))) (let ((sc7 e-26)) (case (vector-ref sc7 0) ((0) (let ((e-27 (vector-ref sc7 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 1))) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc9 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc10 1))) ((TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0)))))))))))))))))))(else (let ((sc7 arg-12)) (if (null? sc7) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc7))) (let ((e-2 (cdr sc7))) (let ((sc8 arg-13)) (if (null? sc8) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc8))) (let ((e-5 (cdr sc8))) (let ((sc9 e-4)) (if (null? sc9) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc9))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))))))))))))))))) (let ((e-38 (car sc4))) (let ((e-39 (cdr sc4))) (let ((sc5 arg-13)) (if (null? sc5) (let ((sc6 e-18)) (case (vector-ref sc6 0) ((1) (let ((sc7 arg-13)) (if (null? sc7) (let ((sc8 arg-13)) (if (null? sc8) (let ((sc9 arg-12)) (if (null? sc9) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc9))) (let ((e-2 (cdr sc9))) (let ((sc10 arg-13)) (if (null? sc10) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc10))) (let ((e-5 (cdr sc10))) (let ((sc11 e-4)) (if (null? sc11) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc11))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-21 (car sc8))) (let ((e-22 (cdr sc8))) (let ((sc9 e-21)) (if (null? sc9) (let ((sc10 arg-12)) (if (null? sc10) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc10))) (let ((e-2 (cdr sc10))) (let ((sc11 arg-13)) (if (null? sc11) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc11))) (let ((e-5 (cdr sc11))) (let ((sc12 e-4)) (if (null? sc12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc12))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-26 (cdr sc9))) (let ((sc10 e-26)) (case (vector-ref sc10 0) ((0) (let ((e-27 (vector-ref sc10 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 1))) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc12 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc13 1))) ((TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0)))))))))))))))))))(else (let ((sc10 arg-12)) (if (null? sc10) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc10))) (let ((e-2 (cdr sc10))) (let ((sc11 arg-13)) (if (null? sc11) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc11))) (let ((e-5 (cdr sc11))) (let ((sc12 e-4)) (if (null? sc12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc12))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))))))))))) (let ((e-30 (car sc7))) (let ((e-31 (cdr sc7))) (let ((sc8 e-30)) (if (null? sc8) (let ((sc9 arg-13)) (if (null? sc9) (let ((sc10 arg-12)) (if (null? sc10) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc10))) (let ((e-2 (cdr sc10))) (let ((sc11 arg-13)) (if (null? sc11) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc11))) (let ((e-5 (cdr sc11))) (let ((sc12 e-4)) (if (null? sc12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc12))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-21 (car sc9))) (let ((e-22 (cdr sc9))) (let ((sc10 e-21)) (if (null? sc10) (let ((sc11 arg-12)) (if (null? sc11) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc11))) (let ((e-2 (cdr sc11))) (let ((sc12 arg-13)) (if (null? sc12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc12))) (let ((e-5 (cdr sc12))) (let ((sc13 e-4)) (if (null? sc13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc13))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-26 (cdr sc10))) (let ((sc11 e-26)) (case (vector-ref sc11 0) ((0) (let ((e-27 (vector-ref sc11 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 1))) eta-0))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc13 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (let ((sc14 act-26)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc14 1))) ((TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0)))))))))))))))))))(else (let ((sc11 arg-12)) (if (null? sc11) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc11))) (let ((e-2 (cdr sc11))) (let ((sc12 arg-13)) (if (null? sc12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc12))) (let ((e-5 (cdr sc12))) (let ((sc13 e-4)) (if (null? sc13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc13))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))))))))))) (let ((e-35 (cdr sc8))) (let ((sc9 e-35)) (case (vector-ref sc9 0) ((0) (let ((e-36 (vector-ref sc9 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 1))) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc11 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-36 eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc12 1))) ((TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 8 arg-8 arg-11 e-7) arg-12 e-31) eta-0)))))))))))))))))))(else (let ((sc9 arg-13)) (if (null? sc9) (let ((sc10 arg-12)) (if (null? sc10) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc10))) (let ((e-2 (cdr sc10))) (let ((sc11 arg-13)) (if (null? sc11) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc11))) (let ((e-5 (cdr sc11))) (let ((sc12 e-4)) (if (null? sc12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc12))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-21 (car sc9))) (let ((e-22 (cdr sc9))) (let ((sc10 e-21)) (if (null? sc10) (let ((sc11 arg-12)) (if (null? sc11) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc11))) (let ((e-2 (cdr sc11))) (let ((sc12 arg-13)) (if (null? sc12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc12))) (let ((e-5 (cdr sc12))) (let ((sc13 e-4)) (if (null? sc13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc13))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-26 (cdr sc10))) (let ((sc11 e-26)) (case (vector-ref sc11 0) ((0) (let ((e-27 (vector-ref sc11 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 1))) eta-0))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc13 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (let ((sc14 act-26)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc14 1))) ((TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0)))))))))))))))))))(else (let ((sc11 arg-12)) (if (null? sc11) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc11))) (let ((e-2 (cdr sc11))) (let ((sc12 arg-13)) (if (null? sc12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc12))) (let ((e-5 (cdr sc12))) (let ((sc13 e-4)) (if (null? sc13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc13))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))))))))))))))))))))))(else (let ((sc6 arg-13)) (if (null? sc6) (let ((sc7 arg-12)) (if (null? sc7) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc7))) (let ((e-2 (cdr sc7))) (let ((sc8 arg-13)) (if (null? sc8) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc8))) (let ((e-5 (cdr sc8))) (let ((sc9 e-4)) (if (null? sc9) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc9))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-21 (car sc6))) (let ((e-22 (cdr sc6))) (let ((sc7 e-21)) (if (null? sc7) (let ((sc8 arg-12)) (if (null? sc8) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc8))) (let ((e-2 (cdr sc8))) (let ((sc9 arg-13)) (if (null? sc9) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc9))) (let ((e-5 (cdr sc9))) (let ((sc10 e-4)) (if (null? sc10) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc10))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-26 (cdr sc7))) (let ((sc8 e-26)) (case (vector-ref sc8 0) ((0) (let ((e-27 (vector-ref sc8 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 1))) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc10 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc11 1))) ((TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0)))))))))))))))))))(else (let ((sc8 arg-12)) (if (null? sc8) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc8))) (let ((e-2 (cdr sc8))) (let ((sc9 arg-13)) (if (null? sc9) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc9))) (let ((e-5 (cdr sc9))) (let ((sc10 e-4)) (if (null? sc10) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc10))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))))))))))))))))) (let ((e-41 (car sc5))) (let ((e-42 (cdr sc5))) (let ((sc6 e-41)) (if (null? sc6) (let ((sc7 e-18)) (case (vector-ref sc7 0) ((1) (let ((sc8 arg-13)) (if (null? sc8) (let ((sc9 arg-13)) (if (null? sc9) (let ((sc10 arg-12)) (if (null? sc10) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc10))) (let ((e-2 (cdr sc10))) (let ((sc11 arg-13)) (if (null? sc11) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc11))) (let ((e-5 (cdr sc11))) (let ((sc12 e-4)) (if (null? sc12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc12))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-21 (car sc9))) (let ((e-22 (cdr sc9))) (let ((sc10 e-21)) (if (null? sc10) (let ((sc11 arg-12)) (if (null? sc11) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc11))) (let ((e-2 (cdr sc11))) (let ((sc12 arg-13)) (if (null? sc12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc12))) (let ((e-5 (cdr sc12))) (let ((sc13 e-4)) (if (null? sc13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc13))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-26 (cdr sc10))) (let ((sc11 e-26)) (case (vector-ref sc11 0) ((0) (let ((e-27 (vector-ref sc11 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 1))) eta-0))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc13 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (let ((sc14 act-26)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc14 1))) ((TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0)))))))))))))))))))(else (let ((sc11 arg-12)) (if (null? sc11) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc11))) (let ((e-2 (cdr sc11))) (let ((sc12 arg-13)) (if (null? sc12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc12))) (let ((e-5 (cdr sc12))) (let ((sc13 e-4)) (if (null? sc13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc13))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))))))))))) (let ((e-30 (car sc8))) (let ((e-31 (cdr sc8))) (let ((sc9 e-30)) (if (null? sc9) (let ((sc10 arg-13)) (if (null? sc10) (let ((sc11 arg-12)) (if (null? sc11) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc11))) (let ((e-2 (cdr sc11))) (let ((sc12 arg-13)) (if (null? sc12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc12))) (let ((e-5 (cdr sc12))) (let ((sc13 e-4)) (if (null? sc13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc13))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-21 (car sc10))) (let ((e-22 (cdr sc10))) (let ((sc11 e-21)) (if (null? sc11) (let ((sc12 arg-12)) (if (null? sc12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc12))) (let ((e-2 (cdr sc12))) (let ((sc13 arg-13)) (if (null? sc13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc13))) (let ((e-5 (cdr sc13))) (let ((sc14 e-4)) (if (null? sc14) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc14))) (let ((sc15 e-9)) (case (vector-ref sc15 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-26 (cdr sc11))) (let ((sc12 e-26)) (case (vector-ref sc12 0) ((0) (let ((e-27 (vector-ref sc12 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc13 act-24)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc13 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 1))) eta-0))) (let ((sc14 act-25)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc14 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (let ((sc15 act-26)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc15 1))) ((TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0)))))))))))))))))))(else (let ((sc12 arg-12)) (if (null? sc12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc12))) (let ((e-2 (cdr sc12))) (let ((sc13 arg-13)) (if (null? sc13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc13))) (let ((e-5 (cdr sc13))) (let ((sc14 e-4)) (if (null? sc14) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc14))) (let ((sc15 e-9)) (case (vector-ref sc15 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))))))))))) (let ((e-35 (cdr sc9))) (let ((sc10 e-35)) (case (vector-ref sc10 0) ((0) (let ((e-36 (vector-ref sc10 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 1))) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc12 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-36 eta-0))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc13 1))) ((TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 8 arg-8 arg-11 e-7) arg-12 e-31) eta-0)))))))))))))))))))(else (let ((sc10 arg-13)) (if (null? sc10) (let ((sc11 arg-12)) (if (null? sc11) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc11))) (let ((e-2 (cdr sc11))) (let ((sc12 arg-13)) (if (null? sc12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc12))) (let ((e-5 (cdr sc12))) (let ((sc13 e-4)) (if (null? sc13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc13))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-21 (car sc10))) (let ((e-22 (cdr sc10))) (let ((sc11 e-21)) (if (null? sc11) (let ((sc12 arg-12)) (if (null? sc12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc12))) (let ((e-2 (cdr sc12))) (let ((sc13 arg-13)) (if (null? sc13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc13))) (let ((e-5 (cdr sc13))) (let ((sc14 e-4)) (if (null? sc14) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc14))) (let ((sc15 e-9)) (case (vector-ref sc15 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-26 (cdr sc11))) (let ((sc12 e-26)) (case (vector-ref sc12 0) ((0) (let ((e-27 (vector-ref sc12 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc13 act-24)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc13 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 1))) eta-0))) (let ((sc14 act-25)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc14 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (let ((sc15 act-26)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc15 1))) ((TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0)))))))))))))))))))(else (let ((sc12 arg-12)) (if (null? sc12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc12))) (let ((e-2 (cdr sc12))) (let ((sc13 arg-13)) (if (null? sc13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc13))) (let ((e-5 (cdr sc13))) (let ((sc14 e-4)) (if (null? sc14) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc14))) (let ((sc15 e-9)) (case (vector-ref sc15 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))))))))))))))))))))))(else (let ((sc7 arg-13)) (if (null? sc7) (let ((sc8 arg-12)) (if (null? sc8) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc8))) (let ((e-2 (cdr sc8))) (let ((sc9 arg-13)) (if (null? sc9) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc9))) (let ((e-5 (cdr sc9))) (let ((sc10 e-4)) (if (null? sc10) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc10))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-21 (car sc7))) (let ((e-22 (cdr sc7))) (let ((sc8 e-21)) (if (null? sc8) (let ((sc9 arg-12)) (if (null? sc9) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc9))) (let ((e-2 (cdr sc9))) (let ((sc10 arg-13)) (if (null? sc10) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc10))) (let ((e-5 (cdr sc10))) (let ((sc11 e-4)) (if (null? sc11) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc11))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-26 (cdr sc8))) (let ((sc9 e-26)) (case (vector-ref sc9 0) ((0) (let ((e-27 (vector-ref sc9 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 1))) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc11 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc12 1))) ((TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0)))))))))))))))))))(else (let ((sc9 arg-12)) (if (null? sc9) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc9))) (let ((e-2 (cdr sc9))) (let ((sc10 arg-13)) (if (null? sc10) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc10))) (let ((e-5 (cdr sc10))) (let ((sc11 e-4)) (if (null? sc11) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc11))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))))))))))))))))) (let ((e-46 (cdr sc6))) (let ((sc7 e-46)) (case (vector-ref sc7 0) ((1) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 1))) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc9 1))) ((TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 (vector 0 arg-8 (vector 1 e-38))) e-39 e-42) eta-0)))))))))))))(else (let ((sc7 e-18)) (case (vector-ref sc7 0) ((1) (let ((sc8 arg-13)) (if (null? sc8) (let ((sc9 arg-13)) (if (null? sc9) (let ((sc10 arg-12)) (if (null? sc10) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc10))) (let ((e-2 (cdr sc10))) (let ((sc11 arg-13)) (if (null? sc11) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc11))) (let ((e-5 (cdr sc11))) (let ((sc12 e-4)) (if (null? sc12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc12))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-21 (car sc9))) (let ((e-22 (cdr sc9))) (let ((sc10 e-21)) (if (null? sc10) (let ((sc11 arg-12)) (if (null? sc11) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc11))) (let ((e-2 (cdr sc11))) (let ((sc12 arg-13)) (if (null? sc12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc12))) (let ((e-5 (cdr sc12))) (let ((sc13 e-4)) (if (null? sc13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc13))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-26 (cdr sc10))) (let ((sc11 e-26)) (case (vector-ref sc11 0) ((0) (let ((e-27 (vector-ref sc11 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 1))) eta-0))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc13 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (let ((sc14 act-26)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc14 1))) ((TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0)))))))))))))))))))(else (let ((sc11 arg-12)) (if (null? sc11) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc11))) (let ((e-2 (cdr sc11))) (let ((sc12 arg-13)) (if (null? sc12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc12))) (let ((e-5 (cdr sc12))) (let ((sc13 e-4)) (if (null? sc13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc13))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))))))))))) (let ((e-30 (car sc8))) (let ((e-31 (cdr sc8))) (let ((sc9 e-30)) (if (null? sc9) (let ((sc10 arg-13)) (if (null? sc10) (let ((sc11 arg-12)) (if (null? sc11) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc11))) (let ((e-2 (cdr sc11))) (let ((sc12 arg-13)) (if (null? sc12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc12))) (let ((e-5 (cdr sc12))) (let ((sc13 e-4)) (if (null? sc13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc13))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-21 (car sc10))) (let ((e-22 (cdr sc10))) (let ((sc11 e-21)) (if (null? sc11) (let ((sc12 arg-12)) (if (null? sc12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc12))) (let ((e-2 (cdr sc12))) (let ((sc13 arg-13)) (if (null? sc13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc13))) (let ((e-5 (cdr sc13))) (let ((sc14 e-4)) (if (null? sc14) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc14))) (let ((sc15 e-9)) (case (vector-ref sc15 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-26 (cdr sc11))) (let ((sc12 e-26)) (case (vector-ref sc12 0) ((0) (let ((e-27 (vector-ref sc12 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc13 act-24)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc13 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 1))) eta-0))) (let ((sc14 act-25)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc14 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (let ((sc15 act-26)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc15 1))) ((TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0)))))))))))))))))))(else (let ((sc12 arg-12)) (if (null? sc12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc12))) (let ((e-2 (cdr sc12))) (let ((sc13 arg-13)) (if (null? sc13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc13))) (let ((e-5 (cdr sc13))) (let ((sc14 e-4)) (if (null? sc14) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc14))) (let ((sc15 e-9)) (case (vector-ref sc15 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))))))))))) (let ((e-35 (cdr sc9))) (let ((sc10 e-35)) (case (vector-ref sc10 0) ((0) (let ((e-36 (vector-ref sc10 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 1))) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc12 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-36 eta-0))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc13 1))) ((TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 8 arg-8 arg-11 e-7) arg-12 e-31) eta-0)))))))))))))))))))(else (let ((sc10 arg-13)) (if (null? sc10) (let ((sc11 arg-12)) (if (null? sc11) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc11))) (let ((e-2 (cdr sc11))) (let ((sc12 arg-13)) (if (null? sc12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc12))) (let ((e-5 (cdr sc12))) (let ((sc13 e-4)) (if (null? sc13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc13))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-21 (car sc10))) (let ((e-22 (cdr sc10))) (let ((sc11 e-21)) (if (null? sc11) (let ((sc12 arg-12)) (if (null? sc12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc12))) (let ((e-2 (cdr sc12))) (let ((sc13 arg-13)) (if (null? sc13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc13))) (let ((e-5 (cdr sc13))) (let ((sc14 e-4)) (if (null? sc14) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc14))) (let ((sc15 e-9)) (case (vector-ref sc15 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-26 (cdr sc11))) (let ((sc12 e-26)) (case (vector-ref sc12 0) ((0) (let ((e-27 (vector-ref sc12 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc13 act-24)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc13 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 1))) eta-0))) (let ((sc14 act-25)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc14 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (let ((sc15 act-26)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc15 1))) ((TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0)))))))))))))))))))(else (let ((sc12 arg-12)) (if (null? sc12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc12))) (let ((e-2 (cdr sc12))) (let ((sc13 arg-13)) (if (null? sc13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc13))) (let ((e-5 (cdr sc13))) (let ((sc14 e-4)) (if (null? sc14) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc14))) (let ((sc15 e-9)) (case (vector-ref sc15 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))))))))))))))))))))))(else (let ((sc7 arg-13)) (if (null? sc7) (let ((sc8 arg-12)) (if (null? sc8) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc8))) (let ((e-2 (cdr sc8))) (let ((sc9 arg-13)) (if (null? sc9) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc9))) (let ((e-5 (cdr sc9))) (let ((sc10 e-4)) (if (null? sc10) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc10))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-21 (car sc7))) (let ((e-22 (cdr sc7))) (let ((sc8 e-21)) (if (null? sc8) (let ((sc9 arg-12)) (if (null? sc9) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc9))) (let ((e-2 (cdr sc9))) (let ((sc10 arg-13)) (if (null? sc10) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc10))) (let ((e-5 (cdr sc10))) (let ((sc11 e-4)) (if (null? sc11) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc11))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-26 (cdr sc8))) (let ((sc9 e-26)) (case (vector-ref sc9 0) ((0) (let ((e-27 (vector-ref sc9 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 1))) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc11 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc12 1))) ((TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0)))))))))))))))))))(else (let ((sc9 arg-12)) (if (null? sc9) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc9))) (let ((e-2 (cdr sc9))) (let ((sc10 arg-13)) (if (null? sc10) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc10))) (let ((e-5 (cdr sc10))) (let ((sc11 e-4)) (if (null? sc11) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc11))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))))))))))))))))))))))))))))))) (let ((e-49 (car sc3))) (let ((e-50 (cdr sc3))) (let ((sc4 arg-13)) (if (null? sc4) (let ((sc5 arg-12)) (if (null? sc5) (let ((sc6 e-18)) (case (vector-ref sc6 0) ((1) (let ((sc7 arg-13)) (if (null? sc7) (let ((sc8 arg-13)) (if (null? sc8) (let ((sc9 arg-12)) (if (null? sc9) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc9))) (let ((e-2 (cdr sc9))) (let ((sc10 arg-13)) (if (null? sc10) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc10))) (let ((e-5 (cdr sc10))) (let ((sc11 e-4)) (if (null? sc11) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc11))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-21 (car sc8))) (let ((e-22 (cdr sc8))) (let ((sc9 e-21)) (if (null? sc9) (let ((sc10 arg-12)) (if (null? sc10) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc10))) (let ((e-2 (cdr sc10))) (let ((sc11 arg-13)) (if (null? sc11) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc11))) (let ((e-5 (cdr sc11))) (let ((sc12 e-4)) (if (null? sc12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc12))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-26 (cdr sc9))) (let ((sc10 e-26)) (case (vector-ref sc10 0) ((0) (let ((e-27 (vector-ref sc10 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 1))) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc12 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc13 1))) ((TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0)))))))))))))))))))(else (let ((sc10 arg-12)) (if (null? sc10) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc10))) (let ((e-2 (cdr sc10))) (let ((sc11 arg-13)) (if (null? sc11) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc11))) (let ((e-5 (cdr sc11))) (let ((sc12 e-4)) (if (null? sc12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc12))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))))))))))) (let ((e-30 (car sc7))) (let ((e-31 (cdr sc7))) (let ((sc8 e-30)) (if (null? sc8) (let ((sc9 arg-13)) (if (null? sc9) (let ((sc10 arg-12)) (if (null? sc10) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc10))) (let ((e-2 (cdr sc10))) (let ((sc11 arg-13)) (if (null? sc11) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc11))) (let ((e-5 (cdr sc11))) (let ((sc12 e-4)) (if (null? sc12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc12))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-21 (car sc9))) (let ((e-22 (cdr sc9))) (let ((sc10 e-21)) (if (null? sc10) (let ((sc11 arg-12)) (if (null? sc11) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc11))) (let ((e-2 (cdr sc11))) (let ((sc12 arg-13)) (if (null? sc12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc12))) (let ((e-5 (cdr sc12))) (let ((sc13 e-4)) (if (null? sc13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc13))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-26 (cdr sc10))) (let ((sc11 e-26)) (case (vector-ref sc11 0) ((0) (let ((e-27 (vector-ref sc11 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 1))) eta-0))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc13 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (let ((sc14 act-26)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc14 1))) ((TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0)))))))))))))))))))(else (let ((sc11 arg-12)) (if (null? sc11) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc11))) (let ((e-2 (cdr sc11))) (let ((sc12 arg-13)) (if (null? sc12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc12))) (let ((e-5 (cdr sc12))) (let ((sc13 e-4)) (if (null? sc13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc13))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))))))))))) (let ((e-35 (cdr sc8))) (let ((sc9 e-35)) (case (vector-ref sc9 0) ((0) (let ((e-36 (vector-ref sc9 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 1))) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc11 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-36 eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc12 1))) ((TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 8 arg-8 arg-11 e-7) arg-12 e-31) eta-0)))))))))))))))))))(else (let ((sc9 arg-13)) (if (null? sc9) (let ((sc10 arg-12)) (if (null? sc10) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc10))) (let ((e-2 (cdr sc10))) (let ((sc11 arg-13)) (if (null? sc11) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc11))) (let ((e-5 (cdr sc11))) (let ((sc12 e-4)) (if (null? sc12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc12))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-21 (car sc9))) (let ((e-22 (cdr sc9))) (let ((sc10 e-21)) (if (null? sc10) (let ((sc11 arg-12)) (if (null? sc11) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc11))) (let ((e-2 (cdr sc11))) (let ((sc12 arg-13)) (if (null? sc12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc12))) (let ((e-5 (cdr sc12))) (let ((sc13 e-4)) (if (null? sc13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc13))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-26 (cdr sc10))) (let ((sc11 e-26)) (case (vector-ref sc11 0) ((0) (let ((e-27 (vector-ref sc11 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 1))) eta-0))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc13 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (let ((sc14 act-26)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc14 1))) ((TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0)))))))))))))))))))(else (let ((sc11 arg-12)) (if (null? sc11) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc11))) (let ((e-2 (cdr sc11))) (let ((sc12 arg-13)) (if (null? sc12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc12))) (let ((e-5 (cdr sc12))) (let ((sc13 e-4)) (if (null? sc13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc13))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))))))))))))))))))))))(else (let ((sc6 arg-13)) (if (null? sc6) (let ((sc7 arg-12)) (if (null? sc7) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc7))) (let ((e-2 (cdr sc7))) (let ((sc8 arg-13)) (if (null? sc8) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc8))) (let ((e-5 (cdr sc8))) (let ((sc9 e-4)) (if (null? sc9) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc9))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-21 (car sc6))) (let ((e-22 (cdr sc6))) (let ((sc7 e-21)) (if (null? sc7) (let ((sc8 arg-12)) (if (null? sc8) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc8))) (let ((e-2 (cdr sc8))) (let ((sc9 arg-13)) (if (null? sc9) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc9))) (let ((e-5 (cdr sc9))) (let ((sc10 e-4)) (if (null? sc10) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc10))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-26 (cdr sc7))) (let ((sc8 e-26)) (case (vector-ref sc8 0) ((0) (let ((e-27 (vector-ref sc8 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 1))) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc10 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc11 1))) ((TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0)))))))))))))))))))(else (let ((sc8 arg-12)) (if (null? sc8) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc8))) (let ((e-2 (cdr sc8))) (let ((sc9 arg-13)) (if (null? sc9) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc9))) (let ((e-5 (cdr sc9))) (let ((sc10 e-4)) (if (null? sc10) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc10))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))))))))))))))))) (let ((e-38 (car sc5))) (let ((e-39 (cdr sc5))) (let ((sc6 arg-13)) (if (null? sc6) (let ((sc7 e-18)) (case (vector-ref sc7 0) ((1) (let ((sc8 arg-13)) (if (null? sc8) (let ((sc9 arg-13)) (if (null? sc9) (let ((sc10 arg-12)) (if (null? sc10) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc10))) (let ((e-2 (cdr sc10))) (let ((sc11 arg-13)) (if (null? sc11) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc11))) (let ((e-5 (cdr sc11))) (let ((sc12 e-4)) (if (null? sc12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc12))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-21 (car sc9))) (let ((e-22 (cdr sc9))) (let ((sc10 e-21)) (if (null? sc10) (let ((sc11 arg-12)) (if (null? sc11) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc11))) (let ((e-2 (cdr sc11))) (let ((sc12 arg-13)) (if (null? sc12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc12))) (let ((e-5 (cdr sc12))) (let ((sc13 e-4)) (if (null? sc13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc13))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-26 (cdr sc10))) (let ((sc11 e-26)) (case (vector-ref sc11 0) ((0) (let ((e-27 (vector-ref sc11 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 1))) eta-0))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc13 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (let ((sc14 act-26)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc14 1))) ((TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0)))))))))))))))))))(else (let ((sc11 arg-12)) (if (null? sc11) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc11))) (let ((e-2 (cdr sc11))) (let ((sc12 arg-13)) (if (null? sc12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc12))) (let ((e-5 (cdr sc12))) (let ((sc13 e-4)) (if (null? sc13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc13))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))))))))))) (let ((e-30 (car sc8))) (let ((e-31 (cdr sc8))) (let ((sc9 e-30)) (if (null? sc9) (let ((sc10 arg-13)) (if (null? sc10) (let ((sc11 arg-12)) (if (null? sc11) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc11))) (let ((e-2 (cdr sc11))) (let ((sc12 arg-13)) (if (null? sc12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc12))) (let ((e-5 (cdr sc12))) (let ((sc13 e-4)) (if (null? sc13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc13))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-21 (car sc10))) (let ((e-22 (cdr sc10))) (let ((sc11 e-21)) (if (null? sc11) (let ((sc12 arg-12)) (if (null? sc12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc12))) (let ((e-2 (cdr sc12))) (let ((sc13 arg-13)) (if (null? sc13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc13))) (let ((e-5 (cdr sc13))) (let ((sc14 e-4)) (if (null? sc14) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc14))) (let ((sc15 e-9)) (case (vector-ref sc15 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-26 (cdr sc11))) (let ((sc12 e-26)) (case (vector-ref sc12 0) ((0) (let ((e-27 (vector-ref sc12 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc13 act-24)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc13 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 1))) eta-0))) (let ((sc14 act-25)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc14 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (let ((sc15 act-26)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc15 1))) ((TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0)))))))))))))))))))(else (let ((sc12 arg-12)) (if (null? sc12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc12))) (let ((e-2 (cdr sc12))) (let ((sc13 arg-13)) (if (null? sc13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc13))) (let ((e-5 (cdr sc13))) (let ((sc14 e-4)) (if (null? sc14) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc14))) (let ((sc15 e-9)) (case (vector-ref sc15 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))))))))))) (let ((e-35 (cdr sc9))) (let ((sc10 e-35)) (case (vector-ref sc10 0) ((0) (let ((e-36 (vector-ref sc10 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 1))) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc12 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-36 eta-0))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc13 1))) ((TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 8 arg-8 arg-11 e-7) arg-12 e-31) eta-0)))))))))))))))))))(else (let ((sc10 arg-13)) (if (null? sc10) (let ((sc11 arg-12)) (if (null? sc11) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc11))) (let ((e-2 (cdr sc11))) (let ((sc12 arg-13)) (if (null? sc12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc12))) (let ((e-5 (cdr sc12))) (let ((sc13 e-4)) (if (null? sc13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc13))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-21 (car sc10))) (let ((e-22 (cdr sc10))) (let ((sc11 e-21)) (if (null? sc11) (let ((sc12 arg-12)) (if (null? sc12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc12))) (let ((e-2 (cdr sc12))) (let ((sc13 arg-13)) (if (null? sc13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc13))) (let ((e-5 (cdr sc13))) (let ((sc14 e-4)) (if (null? sc14) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc14))) (let ((sc15 e-9)) (case (vector-ref sc15 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-26 (cdr sc11))) (let ((sc12 e-26)) (case (vector-ref sc12 0) ((0) (let ((e-27 (vector-ref sc12 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc13 act-24)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc13 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 1))) eta-0))) (let ((sc14 act-25)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc14 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (let ((sc15 act-26)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc15 1))) ((TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0)))))))))))))))))))(else (let ((sc12 arg-12)) (if (null? sc12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc12))) (let ((e-2 (cdr sc12))) (let ((sc13 arg-13)) (if (null? sc13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc13))) (let ((e-5 (cdr sc13))) (let ((sc14 e-4)) (if (null? sc14) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc14))) (let ((sc15 e-9)) (case (vector-ref sc15 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))))))))))))))))))))))(else (let ((sc7 arg-13)) (if (null? sc7) (let ((sc8 arg-12)) (if (null? sc8) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc8))) (let ((e-2 (cdr sc8))) (let ((sc9 arg-13)) (if (null? sc9) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc9))) (let ((e-5 (cdr sc9))) (let ((sc10 e-4)) (if (null? sc10) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc10))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-21 (car sc7))) (let ((e-22 (cdr sc7))) (let ((sc8 e-21)) (if (null? sc8) (let ((sc9 arg-12)) (if (null? sc9) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc9))) (let ((e-2 (cdr sc9))) (let ((sc10 arg-13)) (if (null? sc10) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc10))) (let ((e-5 (cdr sc10))) (let ((sc11 e-4)) (if (null? sc11) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc11))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-26 (cdr sc8))) (let ((sc9 e-26)) (case (vector-ref sc9 0) ((0) (let ((e-27 (vector-ref sc9 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 1))) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc11 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc12 1))) ((TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0)))))))))))))))))))(else (let ((sc9 arg-12)) (if (null? sc9) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc9))) (let ((e-2 (cdr sc9))) (let ((sc10 arg-13)) (if (null? sc10) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc10))) (let ((e-5 (cdr sc10))) (let ((sc11 e-4)) (if (null? sc11) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc11))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))))))))))))))))) (let ((e-41 (car sc6))) (let ((e-42 (cdr sc6))) (let ((sc7 e-41)) (if (null? sc7) (let ((sc8 e-18)) (case (vector-ref sc8 0) ((1) (let ((sc9 arg-13)) (if (null? sc9) (let ((sc10 arg-13)) (if (null? sc10) (let ((sc11 arg-12)) (if (null? sc11) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc11))) (let ((e-2 (cdr sc11))) (let ((sc12 arg-13)) (if (null? sc12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc12))) (let ((e-5 (cdr sc12))) (let ((sc13 e-4)) (if (null? sc13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc13))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-21 (car sc10))) (let ((e-22 (cdr sc10))) (let ((sc11 e-21)) (if (null? sc11) (let ((sc12 arg-12)) (if (null? sc12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc12))) (let ((e-2 (cdr sc12))) (let ((sc13 arg-13)) (if (null? sc13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc13))) (let ((e-5 (cdr sc13))) (let ((sc14 e-4)) (if (null? sc14) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc14))) (let ((sc15 e-9)) (case (vector-ref sc15 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-26 (cdr sc11))) (let ((sc12 e-26)) (case (vector-ref sc12 0) ((0) (let ((e-27 (vector-ref sc12 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc13 act-24)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc13 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 1))) eta-0))) (let ((sc14 act-25)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc14 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (let ((sc15 act-26)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc15 1))) ((TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0)))))))))))))))))))(else (let ((sc12 arg-12)) (if (null? sc12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc12))) (let ((e-2 (cdr sc12))) (let ((sc13 arg-13)) (if (null? sc13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc13))) (let ((e-5 (cdr sc13))) (let ((sc14 e-4)) (if (null? sc14) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc14))) (let ((sc15 e-9)) (case (vector-ref sc15 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))))))))))) (let ((e-30 (car sc9))) (let ((e-31 (cdr sc9))) (let ((sc10 e-30)) (if (null? sc10) (let ((sc11 arg-13)) (if (null? sc11) (let ((sc12 arg-12)) (if (null? sc12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc12))) (let ((e-2 (cdr sc12))) (let ((sc13 arg-13)) (if (null? sc13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc13))) (let ((e-5 (cdr sc13))) (let ((sc14 e-4)) (if (null? sc14) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc14))) (let ((sc15 e-9)) (case (vector-ref sc15 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-21 (car sc11))) (let ((e-22 (cdr sc11))) (let ((sc12 e-21)) (if (null? sc12) (let ((sc13 arg-12)) (if (null? sc13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc13))) (let ((e-2 (cdr sc13))) (let ((sc14 arg-13)) (if (null? sc14) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc14))) (let ((e-5 (cdr sc14))) (let ((sc15 e-4)) (if (null? sc15) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc15))) (let ((sc16 e-9)) (case (vector-ref sc16 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-26 (cdr sc12))) (let ((sc13 e-26)) (case (vector-ref sc13 0) ((0) (let ((e-27 (vector-ref sc13 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc14 act-24)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc14 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 1))) eta-0))) (let ((sc15 act-25)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc15 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (let ((sc16 act-26)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc16 1))) ((TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0)))))))))))))))))))(else (let ((sc13 arg-12)) (if (null? sc13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc13))) (let ((e-2 (cdr sc13))) (let ((sc14 arg-13)) (if (null? sc14) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc14))) (let ((e-5 (cdr sc14))) (let ((sc15 e-4)) (if (null? sc15) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc15))) (let ((sc16 e-9)) (case (vector-ref sc16 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))))))))))) (let ((e-35 (cdr sc10))) (let ((sc11 e-35)) (case (vector-ref sc11 0) ((0) (let ((e-36 (vector-ref sc11 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 1))) eta-0))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc13 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-36 eta-0))) (let ((sc14 act-26)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc14 1))) ((TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 8 arg-8 arg-11 e-7) arg-12 e-31) eta-0)))))))))))))))))))(else (let ((sc11 arg-13)) (if (null? sc11) (let ((sc12 arg-12)) (if (null? sc12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc12))) (let ((e-2 (cdr sc12))) (let ((sc13 arg-13)) (if (null? sc13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc13))) (let ((e-5 (cdr sc13))) (let ((sc14 e-4)) (if (null? sc14) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc14))) (let ((sc15 e-9)) (case (vector-ref sc15 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-21 (car sc11))) (let ((e-22 (cdr sc11))) (let ((sc12 e-21)) (if (null? sc12) (let ((sc13 arg-12)) (if (null? sc13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc13))) (let ((e-2 (cdr sc13))) (let ((sc14 arg-13)) (if (null? sc14) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc14))) (let ((e-5 (cdr sc14))) (let ((sc15 e-4)) (if (null? sc15) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc15))) (let ((sc16 e-9)) (case (vector-ref sc16 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-26 (cdr sc12))) (let ((sc13 e-26)) (case (vector-ref sc13 0) ((0) (let ((e-27 (vector-ref sc13 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc14 act-24)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc14 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 1))) eta-0))) (let ((sc15 act-25)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc15 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (let ((sc16 act-26)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc16 1))) ((TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0)))))))))))))))))))(else (let ((sc13 arg-12)) (if (null? sc13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc13))) (let ((e-2 (cdr sc13))) (let ((sc14 arg-13)) (if (null? sc14) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc14))) (let ((e-5 (cdr sc14))) (let ((sc15 e-4)) (if (null? sc15) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc15))) (let ((sc16 e-9)) (case (vector-ref sc16 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))))))))))))))))))))))(else (let ((sc8 arg-13)) (if (null? sc8) (let ((sc9 arg-12)) (if (null? sc9) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc9))) (let ((e-2 (cdr sc9))) (let ((sc10 arg-13)) (if (null? sc10) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc10))) (let ((e-5 (cdr sc10))) (let ((sc11 e-4)) (if (null? sc11) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc11))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-21 (car sc8))) (let ((e-22 (cdr sc8))) (let ((sc9 e-21)) (if (null? sc9) (let ((sc10 arg-12)) (if (null? sc10) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc10))) (let ((e-2 (cdr sc10))) (let ((sc11 arg-13)) (if (null? sc11) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc11))) (let ((e-5 (cdr sc11))) (let ((sc12 e-4)) (if (null? sc12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc12))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-26 (cdr sc9))) (let ((sc10 e-26)) (case (vector-ref sc10 0) ((0) (let ((e-27 (vector-ref sc10 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 1))) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc12 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc13 1))) ((TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0)))))))))))))))))))(else (let ((sc10 arg-12)) (if (null? sc10) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc10))) (let ((e-2 (cdr sc10))) (let ((sc11 arg-13)) (if (null? sc11) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc11))) (let ((e-5 (cdr sc11))) (let ((sc12 e-4)) (if (null? sc12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc12))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))))))))))))))))) (let ((e-46 (cdr sc7))) (let ((sc8 e-46)) (case (vector-ref sc8 0) ((1) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 1))) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc10 1))) ((TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 (vector 0 arg-8 (vector 1 e-38))) e-39 e-42) eta-0)))))))))))))(else (let ((sc8 e-18)) (case (vector-ref sc8 0) ((1) (let ((sc9 arg-13)) (if (null? sc9) (let ((sc10 arg-13)) (if (null? sc10) (let ((sc11 arg-12)) (if (null? sc11) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc11))) (let ((e-2 (cdr sc11))) (let ((sc12 arg-13)) (if (null? sc12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc12))) (let ((e-5 (cdr sc12))) (let ((sc13 e-4)) (if (null? sc13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc13))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-21 (car sc10))) (let ((e-22 (cdr sc10))) (let ((sc11 e-21)) (if (null? sc11) (let ((sc12 arg-12)) (if (null? sc12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc12))) (let ((e-2 (cdr sc12))) (let ((sc13 arg-13)) (if (null? sc13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc13))) (let ((e-5 (cdr sc13))) (let ((sc14 e-4)) (if (null? sc14) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc14))) (let ((sc15 e-9)) (case (vector-ref sc15 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-26 (cdr sc11))) (let ((sc12 e-26)) (case (vector-ref sc12 0) ((0) (let ((e-27 (vector-ref sc12 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc13 act-24)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc13 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 1))) eta-0))) (let ((sc14 act-25)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc14 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (let ((sc15 act-26)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc15 1))) ((TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0)))))))))))))))))))(else (let ((sc12 arg-12)) (if (null? sc12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc12))) (let ((e-2 (cdr sc12))) (let ((sc13 arg-13)) (if (null? sc13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc13))) (let ((e-5 (cdr sc13))) (let ((sc14 e-4)) (if (null? sc14) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc14))) (let ((sc15 e-9)) (case (vector-ref sc15 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))))))))))) (let ((e-30 (car sc9))) (let ((e-31 (cdr sc9))) (let ((sc10 e-30)) (if (null? sc10) (let ((sc11 arg-13)) (if (null? sc11) (let ((sc12 arg-12)) (if (null? sc12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc12))) (let ((e-2 (cdr sc12))) (let ((sc13 arg-13)) (if (null? sc13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc13))) (let ((e-5 (cdr sc13))) (let ((sc14 e-4)) (if (null? sc14) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc14))) (let ((sc15 e-9)) (case (vector-ref sc15 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-21 (car sc11))) (let ((e-22 (cdr sc11))) (let ((sc12 e-21)) (if (null? sc12) (let ((sc13 arg-12)) (if (null? sc13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc13))) (let ((e-2 (cdr sc13))) (let ((sc14 arg-13)) (if (null? sc14) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc14))) (let ((e-5 (cdr sc14))) (let ((sc15 e-4)) (if (null? sc15) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc15))) (let ((sc16 e-9)) (case (vector-ref sc16 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-26 (cdr sc12))) (let ((sc13 e-26)) (case (vector-ref sc13 0) ((0) (let ((e-27 (vector-ref sc13 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc14 act-24)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc14 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 1))) eta-0))) (let ((sc15 act-25)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc15 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (let ((sc16 act-26)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc16 1))) ((TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0)))))))))))))))))))(else (let ((sc13 arg-12)) (if (null? sc13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc13))) (let ((e-2 (cdr sc13))) (let ((sc14 arg-13)) (if (null? sc14) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc14))) (let ((e-5 (cdr sc14))) (let ((sc15 e-4)) (if (null? sc15) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc15))) (let ((sc16 e-9)) (case (vector-ref sc16 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))))))))))) (let ((e-35 (cdr sc10))) (let ((sc11 e-35)) (case (vector-ref sc11 0) ((0) (let ((e-36 (vector-ref sc11 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 1))) eta-0))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc13 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-36 eta-0))) (let ((sc14 act-26)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc14 1))) ((TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 8 arg-8 arg-11 e-7) arg-12 e-31) eta-0)))))))))))))))))))(else (let ((sc11 arg-13)) (if (null? sc11) (let ((sc12 arg-12)) (if (null? sc12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc12))) (let ((e-2 (cdr sc12))) (let ((sc13 arg-13)) (if (null? sc13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc13))) (let ((e-5 (cdr sc13))) (let ((sc14 e-4)) (if (null? sc14) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc14))) (let ((sc15 e-9)) (case (vector-ref sc15 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-21 (car sc11))) (let ((e-22 (cdr sc11))) (let ((sc12 e-21)) (if (null? sc12) (let ((sc13 arg-12)) (if (null? sc13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc13))) (let ((e-2 (cdr sc13))) (let ((sc14 arg-13)) (if (null? sc14) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc14))) (let ((e-5 (cdr sc14))) (let ((sc15 e-4)) (if (null? sc15) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc15))) (let ((sc16 e-9)) (case (vector-ref sc16 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-26 (cdr sc12))) (let ((sc13 e-26)) (case (vector-ref sc13 0) ((0) (let ((e-27 (vector-ref sc13 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc14 act-24)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc14 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 1))) eta-0))) (let ((sc15 act-25)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc15 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (let ((sc16 act-26)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc16 1))) ((TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0)))))))))))))))))))(else (let ((sc13 arg-12)) (if (null? sc13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc13))) (let ((e-2 (cdr sc13))) (let ((sc14 arg-13)) (if (null? sc14) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc14))) (let ((e-5 (cdr sc14))) (let ((sc15 e-4)) (if (null? sc15) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc15))) (let ((sc16 e-9)) (case (vector-ref sc16 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))))))))))))))))))))))(else (let ((sc8 arg-13)) (if (null? sc8) (let ((sc9 arg-12)) (if (null? sc9) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc9))) (let ((e-2 (cdr sc9))) (let ((sc10 arg-13)) (if (null? sc10) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc10))) (let ((e-5 (cdr sc10))) (let ((sc11 e-4)) (if (null? sc11) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc11))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-21 (car sc8))) (let ((e-22 (cdr sc8))) (let ((sc9 e-21)) (if (null? sc9) (let ((sc10 arg-12)) (if (null? sc10) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc10))) (let ((e-2 (cdr sc10))) (let ((sc11 arg-13)) (if (null? sc11) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc11))) (let ((e-5 (cdr sc11))) (let ((sc12 e-4)) (if (null? sc12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc12))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-26 (cdr sc9))) (let ((sc10 e-26)) (case (vector-ref sc10 0) ((0) (let ((e-27 (vector-ref sc10 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 1))) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc12 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc13 1))) ((TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0)))))))))))))))))))(else (let ((sc10 arg-12)) (if (null? sc10) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc10))) (let ((e-2 (cdr sc10))) (let ((sc11 arg-13)) (if (null? sc11) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc11))) (let ((e-5 (cdr sc11))) (let ((sc12 e-4)) (if (null? sc12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc12))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))))))))))))))))))))))))))))))) (let ((e-52 (car sc4))) (let ((e-53 (cdr sc4))) (let ((sc5 e-52)) (if (null? sc5) (let ((sc6 arg-12)) (if (null? sc6) (let ((sc7 e-18)) (case (vector-ref sc7 0) ((1) (let ((sc8 arg-13)) (if (null? sc8) (let ((sc9 arg-13)) (if (null? sc9) (let ((sc10 arg-12)) (if (null? sc10) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc10))) (let ((e-2 (cdr sc10))) (let ((sc11 arg-13)) (if (null? sc11) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc11))) (let ((e-5 (cdr sc11))) (let ((sc12 e-4)) (if (null? sc12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc12))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-21 (car sc9))) (let ((e-22 (cdr sc9))) (let ((sc10 e-21)) (if (null? sc10) (let ((sc11 arg-12)) (if (null? sc11) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc11))) (let ((e-2 (cdr sc11))) (let ((sc12 arg-13)) (if (null? sc12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc12))) (let ((e-5 (cdr sc12))) (let ((sc13 e-4)) (if (null? sc13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc13))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-26 (cdr sc10))) (let ((sc11 e-26)) (case (vector-ref sc11 0) ((0) (let ((e-27 (vector-ref sc11 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 1))) eta-0))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc13 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (let ((sc14 act-26)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc14 1))) ((TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0)))))))))))))))))))(else (let ((sc11 arg-12)) (if (null? sc11) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc11))) (let ((e-2 (cdr sc11))) (let ((sc12 arg-13)) (if (null? sc12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc12))) (let ((e-5 (cdr sc12))) (let ((sc13 e-4)) (if (null? sc13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc13))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))))))))))) (let ((e-30 (car sc8))) (let ((e-31 (cdr sc8))) (let ((sc9 e-30)) (if (null? sc9) (let ((sc10 arg-13)) (if (null? sc10) (let ((sc11 arg-12)) (if (null? sc11) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc11))) (let ((e-2 (cdr sc11))) (let ((sc12 arg-13)) (if (null? sc12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc12))) (let ((e-5 (cdr sc12))) (let ((sc13 e-4)) (if (null? sc13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc13))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-21 (car sc10))) (let ((e-22 (cdr sc10))) (let ((sc11 e-21)) (if (null? sc11) (let ((sc12 arg-12)) (if (null? sc12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc12))) (let ((e-2 (cdr sc12))) (let ((sc13 arg-13)) (if (null? sc13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc13))) (let ((e-5 (cdr sc13))) (let ((sc14 e-4)) (if (null? sc14) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc14))) (let ((sc15 e-9)) (case (vector-ref sc15 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-26 (cdr sc11))) (let ((sc12 e-26)) (case (vector-ref sc12 0) ((0) (let ((e-27 (vector-ref sc12 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc13 act-24)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc13 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 1))) eta-0))) (let ((sc14 act-25)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc14 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (let ((sc15 act-26)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc15 1))) ((TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0)))))))))))))))))))(else (let ((sc12 arg-12)) (if (null? sc12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc12))) (let ((e-2 (cdr sc12))) (let ((sc13 arg-13)) (if (null? sc13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc13))) (let ((e-5 (cdr sc13))) (let ((sc14 e-4)) (if (null? sc14) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc14))) (let ((sc15 e-9)) (case (vector-ref sc15 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))))))))))) (let ((e-35 (cdr sc9))) (let ((sc10 e-35)) (case (vector-ref sc10 0) ((0) (let ((e-36 (vector-ref sc10 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 1))) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc12 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-36 eta-0))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc13 1))) ((TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 8 arg-8 arg-11 e-7) arg-12 e-31) eta-0)))))))))))))))))))(else (let ((sc10 arg-13)) (if (null? sc10) (let ((sc11 arg-12)) (if (null? sc11) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc11))) (let ((e-2 (cdr sc11))) (let ((sc12 arg-13)) (if (null? sc12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc12))) (let ((e-5 (cdr sc12))) (let ((sc13 e-4)) (if (null? sc13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc13))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-21 (car sc10))) (let ((e-22 (cdr sc10))) (let ((sc11 e-21)) (if (null? sc11) (let ((sc12 arg-12)) (if (null? sc12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc12))) (let ((e-2 (cdr sc12))) (let ((sc13 arg-13)) (if (null? sc13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc13))) (let ((e-5 (cdr sc13))) (let ((sc14 e-4)) (if (null? sc14) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc14))) (let ((sc15 e-9)) (case (vector-ref sc15 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-26 (cdr sc11))) (let ((sc12 e-26)) (case (vector-ref sc12 0) ((0) (let ((e-27 (vector-ref sc12 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc13 act-24)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc13 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 1))) eta-0))) (let ((sc14 act-25)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc14 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (let ((sc15 act-26)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc15 1))) ((TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0)))))))))))))))))))(else (let ((sc12 arg-12)) (if (null? sc12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc12))) (let ((e-2 (cdr sc12))) (let ((sc13 arg-13)) (if (null? sc13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc13))) (let ((e-5 (cdr sc13))) (let ((sc14 e-4)) (if (null? sc14) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc14))) (let ((sc15 e-9)) (case (vector-ref sc15 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))))))))))))))))))))))(else (let ((sc7 arg-13)) (if (null? sc7) (let ((sc8 arg-12)) (if (null? sc8) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc8))) (let ((e-2 (cdr sc8))) (let ((sc9 arg-13)) (if (null? sc9) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc9))) (let ((e-5 (cdr sc9))) (let ((sc10 e-4)) (if (null? sc10) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc10))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-21 (car sc7))) (let ((e-22 (cdr sc7))) (let ((sc8 e-21)) (if (null? sc8) (let ((sc9 arg-12)) (if (null? sc9) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc9))) (let ((e-2 (cdr sc9))) (let ((sc10 arg-13)) (if (null? sc10) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc10))) (let ((e-5 (cdr sc10))) (let ((sc11 e-4)) (if (null? sc11) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc11))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-26 (cdr sc8))) (let ((sc9 e-26)) (case (vector-ref sc9 0) ((0) (let ((e-27 (vector-ref sc9 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 1))) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc11 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc12 1))) ((TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0)))))))))))))))))))(else (let ((sc9 arg-12)) (if (null? sc9) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc9))) (let ((e-2 (cdr sc9))) (let ((sc10 arg-13)) (if (null? sc10) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc10))) (let ((e-5 (cdr sc10))) (let ((sc11 e-4)) (if (null? sc11) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc11))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))))))))))))))))) (let ((e-38 (car sc6))) (let ((e-39 (cdr sc6))) (let ((sc7 arg-13)) (if (null? sc7) (let ((sc8 e-18)) (case (vector-ref sc8 0) ((1) (let ((sc9 arg-13)) (if (null? sc9) (let ((sc10 arg-13)) (if (null? sc10) (let ((sc11 arg-12)) (if (null? sc11) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc11))) (let ((e-2 (cdr sc11))) (let ((sc12 arg-13)) (if (null? sc12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc12))) (let ((e-5 (cdr sc12))) (let ((sc13 e-4)) (if (null? sc13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc13))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-21 (car sc10))) (let ((e-22 (cdr sc10))) (let ((sc11 e-21)) (if (null? sc11) (let ((sc12 arg-12)) (if (null? sc12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc12))) (let ((e-2 (cdr sc12))) (let ((sc13 arg-13)) (if (null? sc13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc13))) (let ((e-5 (cdr sc13))) (let ((sc14 e-4)) (if (null? sc14) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc14))) (let ((sc15 e-9)) (case (vector-ref sc15 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-26 (cdr sc11))) (let ((sc12 e-26)) (case (vector-ref sc12 0) ((0) (let ((e-27 (vector-ref sc12 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc13 act-24)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc13 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 1))) eta-0))) (let ((sc14 act-25)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc14 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (let ((sc15 act-26)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc15 1))) ((TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0)))))))))))))))))))(else (let ((sc12 arg-12)) (if (null? sc12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc12))) (let ((e-2 (cdr sc12))) (let ((sc13 arg-13)) (if (null? sc13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc13))) (let ((e-5 (cdr sc13))) (let ((sc14 e-4)) (if (null? sc14) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc14))) (let ((sc15 e-9)) (case (vector-ref sc15 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))))))))))) (let ((e-30 (car sc9))) (let ((e-31 (cdr sc9))) (let ((sc10 e-30)) (if (null? sc10) (let ((sc11 arg-13)) (if (null? sc11) (let ((sc12 arg-12)) (if (null? sc12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc12))) (let ((e-2 (cdr sc12))) (let ((sc13 arg-13)) (if (null? sc13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc13))) (let ((e-5 (cdr sc13))) (let ((sc14 e-4)) (if (null? sc14) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc14))) (let ((sc15 e-9)) (case (vector-ref sc15 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-21 (car sc11))) (let ((e-22 (cdr sc11))) (let ((sc12 e-21)) (if (null? sc12) (let ((sc13 arg-12)) (if (null? sc13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc13))) (let ((e-2 (cdr sc13))) (let ((sc14 arg-13)) (if (null? sc14) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc14))) (let ((e-5 (cdr sc14))) (let ((sc15 e-4)) (if (null? sc15) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc15))) (let ((sc16 e-9)) (case (vector-ref sc16 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-26 (cdr sc12))) (let ((sc13 e-26)) (case (vector-ref sc13 0) ((0) (let ((e-27 (vector-ref sc13 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc14 act-24)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc14 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 1))) eta-0))) (let ((sc15 act-25)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc15 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (let ((sc16 act-26)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc16 1))) ((TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0)))))))))))))))))))(else (let ((sc13 arg-12)) (if (null? sc13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc13))) (let ((e-2 (cdr sc13))) (let ((sc14 arg-13)) (if (null? sc14) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc14))) (let ((e-5 (cdr sc14))) (let ((sc15 e-4)) (if (null? sc15) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc15))) (let ((sc16 e-9)) (case (vector-ref sc16 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))))))))))) (let ((e-35 (cdr sc10))) (let ((sc11 e-35)) (case (vector-ref sc11 0) ((0) (let ((e-36 (vector-ref sc11 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 1))) eta-0))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc13 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-36 eta-0))) (let ((sc14 act-26)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc14 1))) ((TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 8 arg-8 arg-11 e-7) arg-12 e-31) eta-0)))))))))))))))))))(else (let ((sc11 arg-13)) (if (null? sc11) (let ((sc12 arg-12)) (if (null? sc12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc12))) (let ((e-2 (cdr sc12))) (let ((sc13 arg-13)) (if (null? sc13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc13))) (let ((e-5 (cdr sc13))) (let ((sc14 e-4)) (if (null? sc14) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc14))) (let ((sc15 e-9)) (case (vector-ref sc15 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-21 (car sc11))) (let ((e-22 (cdr sc11))) (let ((sc12 e-21)) (if (null? sc12) (let ((sc13 arg-12)) (if (null? sc13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc13))) (let ((e-2 (cdr sc13))) (let ((sc14 arg-13)) (if (null? sc14) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc14))) (let ((e-5 (cdr sc14))) (let ((sc15 e-4)) (if (null? sc15) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc15))) (let ((sc16 e-9)) (case (vector-ref sc16 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-26 (cdr sc12))) (let ((sc13 e-26)) (case (vector-ref sc13 0) ((0) (let ((e-27 (vector-ref sc13 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc14 act-24)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc14 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 1))) eta-0))) (let ((sc15 act-25)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc15 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (let ((sc16 act-26)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc16 1))) ((TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0)))))))))))))))))))(else (let ((sc13 arg-12)) (if (null? sc13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc13))) (let ((e-2 (cdr sc13))) (let ((sc14 arg-13)) (if (null? sc14) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc14))) (let ((e-5 (cdr sc14))) (let ((sc15 e-4)) (if (null? sc15) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc15))) (let ((sc16 e-9)) (case (vector-ref sc16 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))))))))))))))))))))))(else (let ((sc8 arg-13)) (if (null? sc8) (let ((sc9 arg-12)) (if (null? sc9) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc9))) (let ((e-2 (cdr sc9))) (let ((sc10 arg-13)) (if (null? sc10) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc10))) (let ((e-5 (cdr sc10))) (let ((sc11 e-4)) (if (null? sc11) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc11))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-21 (car sc8))) (let ((e-22 (cdr sc8))) (let ((sc9 e-21)) (if (null? sc9) (let ((sc10 arg-12)) (if (null? sc10) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc10))) (let ((e-2 (cdr sc10))) (let ((sc11 arg-13)) (if (null? sc11) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc11))) (let ((e-5 (cdr sc11))) (let ((sc12 e-4)) (if (null? sc12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc12))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-26 (cdr sc9))) (let ((sc10 e-26)) (case (vector-ref sc10 0) ((0) (let ((e-27 (vector-ref sc10 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 1))) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc12 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc13 1))) ((TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0)))))))))))))))))))(else (let ((sc10 arg-12)) (if (null? sc10) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc10))) (let ((e-2 (cdr sc10))) (let ((sc11 arg-13)) (if (null? sc11) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc11))) (let ((e-5 (cdr sc11))) (let ((sc12 e-4)) (if (null? sc12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc12))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))))))))))))))))) (let ((e-41 (car sc7))) (let ((e-42 (cdr sc7))) (let ((sc8 e-41)) (if (null? sc8) (let ((sc9 e-18)) (case (vector-ref sc9 0) ((1) (let ((sc10 arg-13)) (if (null? sc10) (let ((sc11 arg-13)) (if (null? sc11) (let ((sc12 arg-12)) (if (null? sc12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc12))) (let ((e-2 (cdr sc12))) (let ((sc13 arg-13)) (if (null? sc13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc13))) (let ((e-5 (cdr sc13))) (let ((sc14 e-4)) (if (null? sc14) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc14))) (let ((sc15 e-9)) (case (vector-ref sc15 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-21 (car sc11))) (let ((e-22 (cdr sc11))) (let ((sc12 e-21)) (if (null? sc12) (let ((sc13 arg-12)) (if (null? sc13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc13))) (let ((e-2 (cdr sc13))) (let ((sc14 arg-13)) (if (null? sc14) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc14))) (let ((e-5 (cdr sc14))) (let ((sc15 e-4)) (if (null? sc15) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc15))) (let ((sc16 e-9)) (case (vector-ref sc16 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-26 (cdr sc12))) (let ((sc13 e-26)) (case (vector-ref sc13 0) ((0) (let ((e-27 (vector-ref sc13 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc14 act-24)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc14 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 1))) eta-0))) (let ((sc15 act-25)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc15 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (let ((sc16 act-26)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc16 1))) ((TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0)))))))))))))))))))(else (let ((sc13 arg-12)) (if (null? sc13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc13))) (let ((e-2 (cdr sc13))) (let ((sc14 arg-13)) (if (null? sc14) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc14))) (let ((e-5 (cdr sc14))) (let ((sc15 e-4)) (if (null? sc15) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc15))) (let ((sc16 e-9)) (case (vector-ref sc16 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))))))))))) (let ((e-30 (car sc10))) (let ((e-31 (cdr sc10))) (let ((sc11 e-30)) (if (null? sc11) (let ((sc12 arg-13)) (if (null? sc12) (let ((sc13 arg-12)) (if (null? sc13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc13))) (let ((e-2 (cdr sc13))) (let ((sc14 arg-13)) (if (null? sc14) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc14))) (let ((e-5 (cdr sc14))) (let ((sc15 e-4)) (if (null? sc15) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc15))) (let ((sc16 e-9)) (case (vector-ref sc16 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-21 (car sc12))) (let ((e-22 (cdr sc12))) (let ((sc13 e-21)) (if (null? sc13) (let ((sc14 arg-12)) (if (null? sc14) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc14))) (let ((e-2 (cdr sc14))) (let ((sc15 arg-13)) (if (null? sc15) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc15))) (let ((e-5 (cdr sc15))) (let ((sc16 e-4)) (if (null? sc16) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc16))) (let ((sc17 e-9)) (case (vector-ref sc17 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-26 (cdr sc13))) (let ((sc14 e-26)) (case (vector-ref sc14 0) ((0) (let ((e-27 (vector-ref sc14 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc15 act-24)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc15 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 1))) eta-0))) (let ((sc16 act-25)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc16 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (let ((sc17 act-26)) (case (vector-ref sc17 0) ((0) (let ((e-2 (vector-ref sc17 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc17 1))) ((TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0)))))))))))))))))))(else (let ((sc14 arg-12)) (if (null? sc14) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc14))) (let ((e-2 (cdr sc14))) (let ((sc15 arg-13)) (if (null? sc15) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc15))) (let ((e-5 (cdr sc15))) (let ((sc16 e-4)) (if (null? sc16) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc16))) (let ((sc17 e-9)) (case (vector-ref sc17 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))))))))))) (let ((e-35 (cdr sc11))) (let ((sc12 e-35)) (case (vector-ref sc12 0) ((0) (let ((e-36 (vector-ref sc12 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc13 act-24)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc13 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 1))) eta-0))) (let ((sc14 act-25)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc14 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-36 eta-0))) (let ((sc15 act-26)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc15 1))) ((TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 8 arg-8 arg-11 e-7) arg-12 e-31) eta-0)))))))))))))))))))(else (let ((sc12 arg-13)) (if (null? sc12) (let ((sc13 arg-12)) (if (null? sc13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc13))) (let ((e-2 (cdr sc13))) (let ((sc14 arg-13)) (if (null? sc14) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc14))) (let ((e-5 (cdr sc14))) (let ((sc15 e-4)) (if (null? sc15) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc15))) (let ((sc16 e-9)) (case (vector-ref sc16 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-21 (car sc12))) (let ((e-22 (cdr sc12))) (let ((sc13 e-21)) (if (null? sc13) (let ((sc14 arg-12)) (if (null? sc14) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc14))) (let ((e-2 (cdr sc14))) (let ((sc15 arg-13)) (if (null? sc15) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc15))) (let ((e-5 (cdr sc15))) (let ((sc16 e-4)) (if (null? sc16) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc16))) (let ((sc17 e-9)) (case (vector-ref sc17 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-26 (cdr sc13))) (let ((sc14 e-26)) (case (vector-ref sc14 0) ((0) (let ((e-27 (vector-ref sc14 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc15 act-24)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc15 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 1))) eta-0))) (let ((sc16 act-25)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc16 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (let ((sc17 act-26)) (case (vector-ref sc17 0) ((0) (let ((e-2 (vector-ref sc17 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc17 1))) ((TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0)))))))))))))))))))(else (let ((sc14 arg-12)) (if (null? sc14) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc14))) (let ((e-2 (cdr sc14))) (let ((sc15 arg-13)) (if (null? sc15) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc15))) (let ((e-5 (cdr sc15))) (let ((sc16 e-4)) (if (null? sc16) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc16))) (let ((sc17 e-9)) (case (vector-ref sc17 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))))))))))))))))))))))(else (let ((sc9 arg-13)) (if (null? sc9) (let ((sc10 arg-12)) (if (null? sc10) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc10))) (let ((e-2 (cdr sc10))) (let ((sc11 arg-13)) (if (null? sc11) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc11))) (let ((e-5 (cdr sc11))) (let ((sc12 e-4)) (if (null? sc12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc12))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-21 (car sc9))) (let ((e-22 (cdr sc9))) (let ((sc10 e-21)) (if (null? sc10) (let ((sc11 arg-12)) (if (null? sc11) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc11))) (let ((e-2 (cdr sc11))) (let ((sc12 arg-13)) (if (null? sc12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc12))) (let ((e-5 (cdr sc12))) (let ((sc13 e-4)) (if (null? sc13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc13))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-26 (cdr sc10))) (let ((sc11 e-26)) (case (vector-ref sc11 0) ((0) (let ((e-27 (vector-ref sc11 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 1))) eta-0))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc13 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (let ((sc14 act-26)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc14 1))) ((TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0)))))))))))))))))))(else (let ((sc11 arg-12)) (if (null? sc11) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc11))) (let ((e-2 (cdr sc11))) (let ((sc12 arg-13)) (if (null? sc12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc12))) (let ((e-5 (cdr sc12))) (let ((sc13 e-4)) (if (null? sc13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc13))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))))))))))))))))) (let ((e-46 (cdr sc8))) (let ((sc9 e-46)) (case (vector-ref sc9 0) ((1) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 1))) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc11 1))) ((TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 (vector 0 arg-8 (vector 1 e-38))) e-39 e-42) eta-0)))))))))))))(else (let ((sc9 e-18)) (case (vector-ref sc9 0) ((1) (let ((sc10 arg-13)) (if (null? sc10) (let ((sc11 arg-13)) (if (null? sc11) (let ((sc12 arg-12)) (if (null? sc12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc12))) (let ((e-2 (cdr sc12))) (let ((sc13 arg-13)) (if (null? sc13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc13))) (let ((e-5 (cdr sc13))) (let ((sc14 e-4)) (if (null? sc14) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc14))) (let ((sc15 e-9)) (case (vector-ref sc15 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-21 (car sc11))) (let ((e-22 (cdr sc11))) (let ((sc12 e-21)) (if (null? sc12) (let ((sc13 arg-12)) (if (null? sc13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc13))) (let ((e-2 (cdr sc13))) (let ((sc14 arg-13)) (if (null? sc14) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc14))) (let ((e-5 (cdr sc14))) (let ((sc15 e-4)) (if (null? sc15) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc15))) (let ((sc16 e-9)) (case (vector-ref sc16 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-26 (cdr sc12))) (let ((sc13 e-26)) (case (vector-ref sc13 0) ((0) (let ((e-27 (vector-ref sc13 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc14 act-24)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc14 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 1))) eta-0))) (let ((sc15 act-25)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc15 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (let ((sc16 act-26)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc16 1))) ((TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0)))))))))))))))))))(else (let ((sc13 arg-12)) (if (null? sc13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc13))) (let ((e-2 (cdr sc13))) (let ((sc14 arg-13)) (if (null? sc14) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc14))) (let ((e-5 (cdr sc14))) (let ((sc15 e-4)) (if (null? sc15) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc15))) (let ((sc16 e-9)) (case (vector-ref sc16 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))))))))))) (let ((e-30 (car sc10))) (let ((e-31 (cdr sc10))) (let ((sc11 e-30)) (if (null? sc11) (let ((sc12 arg-13)) (if (null? sc12) (let ((sc13 arg-12)) (if (null? sc13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc13))) (let ((e-2 (cdr sc13))) (let ((sc14 arg-13)) (if (null? sc14) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc14))) (let ((e-5 (cdr sc14))) (let ((sc15 e-4)) (if (null? sc15) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc15))) (let ((sc16 e-9)) (case (vector-ref sc16 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-21 (car sc12))) (let ((e-22 (cdr sc12))) (let ((sc13 e-21)) (if (null? sc13) (let ((sc14 arg-12)) (if (null? sc14) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc14))) (let ((e-2 (cdr sc14))) (let ((sc15 arg-13)) (if (null? sc15) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc15))) (let ((e-5 (cdr sc15))) (let ((sc16 e-4)) (if (null? sc16) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc16))) (let ((sc17 e-9)) (case (vector-ref sc17 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-26 (cdr sc13))) (let ((sc14 e-26)) (case (vector-ref sc14 0) ((0) (let ((e-27 (vector-ref sc14 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc15 act-24)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc15 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 1))) eta-0))) (let ((sc16 act-25)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc16 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (let ((sc17 act-26)) (case (vector-ref sc17 0) ((0) (let ((e-2 (vector-ref sc17 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc17 1))) ((TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0)))))))))))))))))))(else (let ((sc14 arg-12)) (if (null? sc14) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc14))) (let ((e-2 (cdr sc14))) (let ((sc15 arg-13)) (if (null? sc15) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc15))) (let ((e-5 (cdr sc15))) (let ((sc16 e-4)) (if (null? sc16) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc16))) (let ((sc17 e-9)) (case (vector-ref sc17 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))))))))))) (let ((e-35 (cdr sc11))) (let ((sc12 e-35)) (case (vector-ref sc12 0) ((0) (let ((e-36 (vector-ref sc12 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc13 act-24)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc13 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 1))) eta-0))) (let ((sc14 act-25)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc14 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-36 eta-0))) (let ((sc15 act-26)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc15 1))) ((TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 8 arg-8 arg-11 e-7) arg-12 e-31) eta-0)))))))))))))))))))(else (let ((sc12 arg-13)) (if (null? sc12) (let ((sc13 arg-12)) (if (null? sc13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc13))) (let ((e-2 (cdr sc13))) (let ((sc14 arg-13)) (if (null? sc14) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc14))) (let ((e-5 (cdr sc14))) (let ((sc15 e-4)) (if (null? sc15) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc15))) (let ((sc16 e-9)) (case (vector-ref sc16 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-21 (car sc12))) (let ((e-22 (cdr sc12))) (let ((sc13 e-21)) (if (null? sc13) (let ((sc14 arg-12)) (if (null? sc14) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc14))) (let ((e-2 (cdr sc14))) (let ((sc15 arg-13)) (if (null? sc15) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc15))) (let ((e-5 (cdr sc15))) (let ((sc16 e-4)) (if (null? sc16) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc16))) (let ((sc17 e-9)) (case (vector-ref sc17 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-26 (cdr sc13))) (let ((sc14 e-26)) (case (vector-ref sc14 0) ((0) (let ((e-27 (vector-ref sc14 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc15 act-24)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc15 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 1))) eta-0))) (let ((sc16 act-25)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc16 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (let ((sc17 act-26)) (case (vector-ref sc17 0) ((0) (let ((e-2 (vector-ref sc17 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc17 1))) ((TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0)))))))))))))))))))(else (let ((sc14 arg-12)) (if (null? sc14) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc14))) (let ((e-2 (cdr sc14))) (let ((sc15 arg-13)) (if (null? sc15) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc15))) (let ((e-5 (cdr sc15))) (let ((sc16 e-4)) (if (null? sc16) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc16))) (let ((sc17 e-9)) (case (vector-ref sc17 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))))))))))))))))))))))(else (let ((sc9 arg-13)) (if (null? sc9) (let ((sc10 arg-12)) (if (null? sc10) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc10))) (let ((e-2 (cdr sc10))) (let ((sc11 arg-13)) (if (null? sc11) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc11))) (let ((e-5 (cdr sc11))) (let ((sc12 e-4)) (if (null? sc12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc12))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-21 (car sc9))) (let ((e-22 (cdr sc9))) (let ((sc10 e-21)) (if (null? sc10) (let ((sc11 arg-12)) (if (null? sc11) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc11))) (let ((e-2 (cdr sc11))) (let ((sc12 arg-13)) (if (null? sc12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc12))) (let ((e-5 (cdr sc12))) (let ((sc13 e-4)) (if (null? sc13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc13))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-26 (cdr sc10))) (let ((sc11 e-26)) (case (vector-ref sc11 0) ((0) (let ((e-27 (vector-ref sc11 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 1))) eta-0))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc13 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (let ((sc14 act-26)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc14 1))) ((TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0)))))))))))))))))))(else (let ((sc11 arg-12)) (if (null? sc11) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc11))) (let ((e-2 (cdr sc11))) (let ((sc12 arg-13)) (if (null? sc12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc12))) (let ((e-5 (cdr sc12))) (let ((sc13 e-4)) (if (null? sc13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc13))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))))))))))))))))))))))))))))))) (let ((e-57 (cdr sc5))) (let ((sc6 e-57)) (case (vector-ref sc6 0) ((1) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 1))) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc8 1))) ((TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-49))) e-50 e-53) eta-0)))))))))))))(else (let ((sc6 arg-12)) (if (null? sc6) (let ((sc7 e-18)) (case (vector-ref sc7 0) ((1) (let ((sc8 arg-13)) (if (null? sc8) (let ((sc9 arg-13)) (if (null? sc9) (let ((sc10 arg-12)) (if (null? sc10) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc10))) (let ((e-2 (cdr sc10))) (let ((sc11 arg-13)) (if (null? sc11) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc11))) (let ((e-5 (cdr sc11))) (let ((sc12 e-4)) (if (null? sc12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc12))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-21 (car sc9))) (let ((e-22 (cdr sc9))) (let ((sc10 e-21)) (if (null? sc10) (let ((sc11 arg-12)) (if (null? sc11) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc11))) (let ((e-2 (cdr sc11))) (let ((sc12 arg-13)) (if (null? sc12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc12))) (let ((e-5 (cdr sc12))) (let ((sc13 e-4)) (if (null? sc13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc13))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-26 (cdr sc10))) (let ((sc11 e-26)) (case (vector-ref sc11 0) ((0) (let ((e-27 (vector-ref sc11 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 1))) eta-0))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc13 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (let ((sc14 act-26)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc14 1))) ((TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0)))))))))))))))))))(else (let ((sc11 arg-12)) (if (null? sc11) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc11))) (let ((e-2 (cdr sc11))) (let ((sc12 arg-13)) (if (null? sc12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc12))) (let ((e-5 (cdr sc12))) (let ((sc13 e-4)) (if (null? sc13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc13))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))))))))))) (let ((e-30 (car sc8))) (let ((e-31 (cdr sc8))) (let ((sc9 e-30)) (if (null? sc9) (let ((sc10 arg-13)) (if (null? sc10) (let ((sc11 arg-12)) (if (null? sc11) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc11))) (let ((e-2 (cdr sc11))) (let ((sc12 arg-13)) (if (null? sc12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc12))) (let ((e-5 (cdr sc12))) (let ((sc13 e-4)) (if (null? sc13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc13))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-21 (car sc10))) (let ((e-22 (cdr sc10))) (let ((sc11 e-21)) (if (null? sc11) (let ((sc12 arg-12)) (if (null? sc12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc12))) (let ((e-2 (cdr sc12))) (let ((sc13 arg-13)) (if (null? sc13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc13))) (let ((e-5 (cdr sc13))) (let ((sc14 e-4)) (if (null? sc14) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc14))) (let ((sc15 e-9)) (case (vector-ref sc15 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-26 (cdr sc11))) (let ((sc12 e-26)) (case (vector-ref sc12 0) ((0) (let ((e-27 (vector-ref sc12 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc13 act-24)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc13 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 1))) eta-0))) (let ((sc14 act-25)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc14 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (let ((sc15 act-26)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc15 1))) ((TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0)))))))))))))))))))(else (let ((sc12 arg-12)) (if (null? sc12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc12))) (let ((e-2 (cdr sc12))) (let ((sc13 arg-13)) (if (null? sc13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc13))) (let ((e-5 (cdr sc13))) (let ((sc14 e-4)) (if (null? sc14) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc14))) (let ((sc15 e-9)) (case (vector-ref sc15 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))))))))))) (let ((e-35 (cdr sc9))) (let ((sc10 e-35)) (case (vector-ref sc10 0) ((0) (let ((e-36 (vector-ref sc10 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 1))) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc12 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-36 eta-0))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc13 1))) ((TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 8 arg-8 arg-11 e-7) arg-12 e-31) eta-0)))))))))))))))))))(else (let ((sc10 arg-13)) (if (null? sc10) (let ((sc11 arg-12)) (if (null? sc11) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc11))) (let ((e-2 (cdr sc11))) (let ((sc12 arg-13)) (if (null? sc12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc12))) (let ((e-5 (cdr sc12))) (let ((sc13 e-4)) (if (null? sc13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc13))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-21 (car sc10))) (let ((e-22 (cdr sc10))) (let ((sc11 e-21)) (if (null? sc11) (let ((sc12 arg-12)) (if (null? sc12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc12))) (let ((e-2 (cdr sc12))) (let ((sc13 arg-13)) (if (null? sc13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc13))) (let ((e-5 (cdr sc13))) (let ((sc14 e-4)) (if (null? sc14) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc14))) (let ((sc15 e-9)) (case (vector-ref sc15 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-26 (cdr sc11))) (let ((sc12 e-26)) (case (vector-ref sc12 0) ((0) (let ((e-27 (vector-ref sc12 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc13 act-24)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc13 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 1))) eta-0))) (let ((sc14 act-25)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc14 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (let ((sc15 act-26)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc15 1))) ((TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0)))))))))))))))))))(else (let ((sc12 arg-12)) (if (null? sc12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc12))) (let ((e-2 (cdr sc12))) (let ((sc13 arg-13)) (if (null? sc13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc13))) (let ((e-5 (cdr sc13))) (let ((sc14 e-4)) (if (null? sc14) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc14))) (let ((sc15 e-9)) (case (vector-ref sc15 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))))))))))))))))))))))(else (let ((sc7 arg-13)) (if (null? sc7) (let ((sc8 arg-12)) (if (null? sc8) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc8))) (let ((e-2 (cdr sc8))) (let ((sc9 arg-13)) (if (null? sc9) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc9))) (let ((e-5 (cdr sc9))) (let ((sc10 e-4)) (if (null? sc10) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc10))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-21 (car sc7))) (let ((e-22 (cdr sc7))) (let ((sc8 e-21)) (if (null? sc8) (let ((sc9 arg-12)) (if (null? sc9) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc9))) (let ((e-2 (cdr sc9))) (let ((sc10 arg-13)) (if (null? sc10) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc10))) (let ((e-5 (cdr sc10))) (let ((sc11 e-4)) (if (null? sc11) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc11))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-26 (cdr sc8))) (let ((sc9 e-26)) (case (vector-ref sc9 0) ((0) (let ((e-27 (vector-ref sc9 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 1))) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc11 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc12 1))) ((TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0)))))))))))))))))))(else (let ((sc9 arg-12)) (if (null? sc9) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc9))) (let ((e-2 (cdr sc9))) (let ((sc10 arg-13)) (if (null? sc10) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc10))) (let ((e-5 (cdr sc10))) (let ((sc11 e-4)) (if (null? sc11) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc11))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))))))))))))))))) (let ((e-38 (car sc6))) (let ((e-39 (cdr sc6))) (let ((sc7 arg-13)) (if (null? sc7) (let ((sc8 e-18)) (case (vector-ref sc8 0) ((1) (let ((sc9 arg-13)) (if (null? sc9) (let ((sc10 arg-13)) (if (null? sc10) (let ((sc11 arg-12)) (if (null? sc11) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc11))) (let ((e-2 (cdr sc11))) (let ((sc12 arg-13)) (if (null? sc12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc12))) (let ((e-5 (cdr sc12))) (let ((sc13 e-4)) (if (null? sc13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc13))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-21 (car sc10))) (let ((e-22 (cdr sc10))) (let ((sc11 e-21)) (if (null? sc11) (let ((sc12 arg-12)) (if (null? sc12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc12))) (let ((e-2 (cdr sc12))) (let ((sc13 arg-13)) (if (null? sc13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc13))) (let ((e-5 (cdr sc13))) (let ((sc14 e-4)) (if (null? sc14) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc14))) (let ((sc15 e-9)) (case (vector-ref sc15 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-26 (cdr sc11))) (let ((sc12 e-26)) (case (vector-ref sc12 0) ((0) (let ((e-27 (vector-ref sc12 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc13 act-24)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc13 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 1))) eta-0))) (let ((sc14 act-25)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc14 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (let ((sc15 act-26)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc15 1))) ((TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0)))))))))))))))))))(else (let ((sc12 arg-12)) (if (null? sc12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc12))) (let ((e-2 (cdr sc12))) (let ((sc13 arg-13)) (if (null? sc13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc13))) (let ((e-5 (cdr sc13))) (let ((sc14 e-4)) (if (null? sc14) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc14))) (let ((sc15 e-9)) (case (vector-ref sc15 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))))))))))) (let ((e-30 (car sc9))) (let ((e-31 (cdr sc9))) (let ((sc10 e-30)) (if (null? sc10) (let ((sc11 arg-13)) (if (null? sc11) (let ((sc12 arg-12)) (if (null? sc12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc12))) (let ((e-2 (cdr sc12))) (let ((sc13 arg-13)) (if (null? sc13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc13))) (let ((e-5 (cdr sc13))) (let ((sc14 e-4)) (if (null? sc14) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc14))) (let ((sc15 e-9)) (case (vector-ref sc15 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-21 (car sc11))) (let ((e-22 (cdr sc11))) (let ((sc12 e-21)) (if (null? sc12) (let ((sc13 arg-12)) (if (null? sc13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc13))) (let ((e-2 (cdr sc13))) (let ((sc14 arg-13)) (if (null? sc14) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc14))) (let ((e-5 (cdr sc14))) (let ((sc15 e-4)) (if (null? sc15) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc15))) (let ((sc16 e-9)) (case (vector-ref sc16 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-26 (cdr sc12))) (let ((sc13 e-26)) (case (vector-ref sc13 0) ((0) (let ((e-27 (vector-ref sc13 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc14 act-24)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc14 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 1))) eta-0))) (let ((sc15 act-25)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc15 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (let ((sc16 act-26)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc16 1))) ((TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0)))))))))))))))))))(else (let ((sc13 arg-12)) (if (null? sc13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc13))) (let ((e-2 (cdr sc13))) (let ((sc14 arg-13)) (if (null? sc14) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc14))) (let ((e-5 (cdr sc14))) (let ((sc15 e-4)) (if (null? sc15) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc15))) (let ((sc16 e-9)) (case (vector-ref sc16 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))))))))))) (let ((e-35 (cdr sc10))) (let ((sc11 e-35)) (case (vector-ref sc11 0) ((0) (let ((e-36 (vector-ref sc11 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 1))) eta-0))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc13 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-36 eta-0))) (let ((sc14 act-26)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc14 1))) ((TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 8 arg-8 arg-11 e-7) arg-12 e-31) eta-0)))))))))))))))))))(else (let ((sc11 arg-13)) (if (null? sc11) (let ((sc12 arg-12)) (if (null? sc12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc12))) (let ((e-2 (cdr sc12))) (let ((sc13 arg-13)) (if (null? sc13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc13))) (let ((e-5 (cdr sc13))) (let ((sc14 e-4)) (if (null? sc14) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc14))) (let ((sc15 e-9)) (case (vector-ref sc15 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-21 (car sc11))) (let ((e-22 (cdr sc11))) (let ((sc12 e-21)) (if (null? sc12) (let ((sc13 arg-12)) (if (null? sc13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc13))) (let ((e-2 (cdr sc13))) (let ((sc14 arg-13)) (if (null? sc14) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc14))) (let ((e-5 (cdr sc14))) (let ((sc15 e-4)) (if (null? sc15) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc15))) (let ((sc16 e-9)) (case (vector-ref sc16 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-26 (cdr sc12))) (let ((sc13 e-26)) (case (vector-ref sc13 0) ((0) (let ((e-27 (vector-ref sc13 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc14 act-24)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc14 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 1))) eta-0))) (let ((sc15 act-25)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc15 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (let ((sc16 act-26)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc16 1))) ((TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0)))))))))))))))))))(else (let ((sc13 arg-12)) (if (null? sc13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc13))) (let ((e-2 (cdr sc13))) (let ((sc14 arg-13)) (if (null? sc14) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc14))) (let ((e-5 (cdr sc14))) (let ((sc15 e-4)) (if (null? sc15) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc15))) (let ((sc16 e-9)) (case (vector-ref sc16 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))))))))))))))))))))))(else (let ((sc8 arg-13)) (if (null? sc8) (let ((sc9 arg-12)) (if (null? sc9) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc9))) (let ((e-2 (cdr sc9))) (let ((sc10 arg-13)) (if (null? sc10) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc10))) (let ((e-5 (cdr sc10))) (let ((sc11 e-4)) (if (null? sc11) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc11))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-21 (car sc8))) (let ((e-22 (cdr sc8))) (let ((sc9 e-21)) (if (null? sc9) (let ((sc10 arg-12)) (if (null? sc10) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc10))) (let ((e-2 (cdr sc10))) (let ((sc11 arg-13)) (if (null? sc11) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc11))) (let ((e-5 (cdr sc11))) (let ((sc12 e-4)) (if (null? sc12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc12))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-26 (cdr sc9))) (let ((sc10 e-26)) (case (vector-ref sc10 0) ((0) (let ((e-27 (vector-ref sc10 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 1))) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc12 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc13 1))) ((TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0)))))))))))))))))))(else (let ((sc10 arg-12)) (if (null? sc10) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc10))) (let ((e-2 (cdr sc10))) (let ((sc11 arg-13)) (if (null? sc11) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc11))) (let ((e-5 (cdr sc11))) (let ((sc12 e-4)) (if (null? sc12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc12))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))))))))))))))))) (let ((e-41 (car sc7))) (let ((e-42 (cdr sc7))) (let ((sc8 e-41)) (if (null? sc8) (let ((sc9 e-18)) (case (vector-ref sc9 0) ((1) (let ((sc10 arg-13)) (if (null? sc10) (let ((sc11 arg-13)) (if (null? sc11) (let ((sc12 arg-12)) (if (null? sc12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc12))) (let ((e-2 (cdr sc12))) (let ((sc13 arg-13)) (if (null? sc13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc13))) (let ((e-5 (cdr sc13))) (let ((sc14 e-4)) (if (null? sc14) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc14))) (let ((sc15 e-9)) (case (vector-ref sc15 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-21 (car sc11))) (let ((e-22 (cdr sc11))) (let ((sc12 e-21)) (if (null? sc12) (let ((sc13 arg-12)) (if (null? sc13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc13))) (let ((e-2 (cdr sc13))) (let ((sc14 arg-13)) (if (null? sc14) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc14))) (let ((e-5 (cdr sc14))) (let ((sc15 e-4)) (if (null? sc15) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc15))) (let ((sc16 e-9)) (case (vector-ref sc16 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-26 (cdr sc12))) (let ((sc13 e-26)) (case (vector-ref sc13 0) ((0) (let ((e-27 (vector-ref sc13 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc14 act-24)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc14 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 1))) eta-0))) (let ((sc15 act-25)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc15 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (let ((sc16 act-26)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc16 1))) ((TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0)))))))))))))))))))(else (let ((sc13 arg-12)) (if (null? sc13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc13))) (let ((e-2 (cdr sc13))) (let ((sc14 arg-13)) (if (null? sc14) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc14))) (let ((e-5 (cdr sc14))) (let ((sc15 e-4)) (if (null? sc15) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc15))) (let ((sc16 e-9)) (case (vector-ref sc16 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))))))))))) (let ((e-30 (car sc10))) (let ((e-31 (cdr sc10))) (let ((sc11 e-30)) (if (null? sc11) (let ((sc12 arg-13)) (if (null? sc12) (let ((sc13 arg-12)) (if (null? sc13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc13))) (let ((e-2 (cdr sc13))) (let ((sc14 arg-13)) (if (null? sc14) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc14))) (let ((e-5 (cdr sc14))) (let ((sc15 e-4)) (if (null? sc15) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc15))) (let ((sc16 e-9)) (case (vector-ref sc16 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-21 (car sc12))) (let ((e-22 (cdr sc12))) (let ((sc13 e-21)) (if (null? sc13) (let ((sc14 arg-12)) (if (null? sc14) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc14))) (let ((e-2 (cdr sc14))) (let ((sc15 arg-13)) (if (null? sc15) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc15))) (let ((e-5 (cdr sc15))) (let ((sc16 e-4)) (if (null? sc16) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc16))) (let ((sc17 e-9)) (case (vector-ref sc17 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-26 (cdr sc13))) (let ((sc14 e-26)) (case (vector-ref sc14 0) ((0) (let ((e-27 (vector-ref sc14 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc15 act-24)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc15 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 1))) eta-0))) (let ((sc16 act-25)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc16 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (let ((sc17 act-26)) (case (vector-ref sc17 0) ((0) (let ((e-2 (vector-ref sc17 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc17 1))) ((TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0)))))))))))))))))))(else (let ((sc14 arg-12)) (if (null? sc14) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc14))) (let ((e-2 (cdr sc14))) (let ((sc15 arg-13)) (if (null? sc15) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc15))) (let ((e-5 (cdr sc15))) (let ((sc16 e-4)) (if (null? sc16) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc16))) (let ((sc17 e-9)) (case (vector-ref sc17 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))))))))))) (let ((e-35 (cdr sc11))) (let ((sc12 e-35)) (case (vector-ref sc12 0) ((0) (let ((e-36 (vector-ref sc12 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc13 act-24)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc13 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 1))) eta-0))) (let ((sc14 act-25)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc14 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-36 eta-0))) (let ((sc15 act-26)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc15 1))) ((TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 8 arg-8 arg-11 e-7) arg-12 e-31) eta-0)))))))))))))))))))(else (let ((sc12 arg-13)) (if (null? sc12) (let ((sc13 arg-12)) (if (null? sc13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc13))) (let ((e-2 (cdr sc13))) (let ((sc14 arg-13)) (if (null? sc14) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc14))) (let ((e-5 (cdr sc14))) (let ((sc15 e-4)) (if (null? sc15) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc15))) (let ((sc16 e-9)) (case (vector-ref sc16 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-21 (car sc12))) (let ((e-22 (cdr sc12))) (let ((sc13 e-21)) (if (null? sc13) (let ((sc14 arg-12)) (if (null? sc14) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc14))) (let ((e-2 (cdr sc14))) (let ((sc15 arg-13)) (if (null? sc15) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc15))) (let ((e-5 (cdr sc15))) (let ((sc16 e-4)) (if (null? sc16) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc16))) (let ((sc17 e-9)) (case (vector-ref sc17 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-26 (cdr sc13))) (let ((sc14 e-26)) (case (vector-ref sc14 0) ((0) (let ((e-27 (vector-ref sc14 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc15 act-24)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc15 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 1))) eta-0))) (let ((sc16 act-25)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc16 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (let ((sc17 act-26)) (case (vector-ref sc17 0) ((0) (let ((e-2 (vector-ref sc17 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc17 1))) ((TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0)))))))))))))))))))(else (let ((sc14 arg-12)) (if (null? sc14) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc14))) (let ((e-2 (cdr sc14))) (let ((sc15 arg-13)) (if (null? sc15) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc15))) (let ((e-5 (cdr sc15))) (let ((sc16 e-4)) (if (null? sc16) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc16))) (let ((sc17 e-9)) (case (vector-ref sc17 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))))))))))))))))))))))(else (let ((sc9 arg-13)) (if (null? sc9) (let ((sc10 arg-12)) (if (null? sc10) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc10))) (let ((e-2 (cdr sc10))) (let ((sc11 arg-13)) (if (null? sc11) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc11))) (let ((e-5 (cdr sc11))) (let ((sc12 e-4)) (if (null? sc12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc12))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-21 (car sc9))) (let ((e-22 (cdr sc9))) (let ((sc10 e-21)) (if (null? sc10) (let ((sc11 arg-12)) (if (null? sc11) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc11))) (let ((e-2 (cdr sc11))) (let ((sc12 arg-13)) (if (null? sc12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc12))) (let ((e-5 (cdr sc12))) (let ((sc13 e-4)) (if (null? sc13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc13))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-26 (cdr sc10))) (let ((sc11 e-26)) (case (vector-ref sc11 0) ((0) (let ((e-27 (vector-ref sc11 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 1))) eta-0))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc13 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (let ((sc14 act-26)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc14 1))) ((TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0)))))))))))))))))))(else (let ((sc11 arg-12)) (if (null? sc11) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc11))) (let ((e-2 (cdr sc11))) (let ((sc12 arg-13)) (if (null? sc12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc12))) (let ((e-5 (cdr sc12))) (let ((sc13 e-4)) (if (null? sc13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc13))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))))))))))))))))) (let ((e-46 (cdr sc8))) (let ((sc9 e-46)) (case (vector-ref sc9 0) ((1) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 1))) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc11 1))) ((TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 (vector 0 arg-8 (vector 1 e-38))) e-39 e-42) eta-0)))))))))))))(else (let ((sc9 e-18)) (case (vector-ref sc9 0) ((1) (let ((sc10 arg-13)) (if (null? sc10) (let ((sc11 arg-13)) (if (null? sc11) (let ((sc12 arg-12)) (if (null? sc12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc12))) (let ((e-2 (cdr sc12))) (let ((sc13 arg-13)) (if (null? sc13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc13))) (let ((e-5 (cdr sc13))) (let ((sc14 e-4)) (if (null? sc14) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc14))) (let ((sc15 e-9)) (case (vector-ref sc15 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-21 (car sc11))) (let ((e-22 (cdr sc11))) (let ((sc12 e-21)) (if (null? sc12) (let ((sc13 arg-12)) (if (null? sc13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc13))) (let ((e-2 (cdr sc13))) (let ((sc14 arg-13)) (if (null? sc14) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc14))) (let ((e-5 (cdr sc14))) (let ((sc15 e-4)) (if (null? sc15) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc15))) (let ((sc16 e-9)) (case (vector-ref sc16 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-26 (cdr sc12))) (let ((sc13 e-26)) (case (vector-ref sc13 0) ((0) (let ((e-27 (vector-ref sc13 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc14 act-24)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc14 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 1))) eta-0))) (let ((sc15 act-25)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc15 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (let ((sc16 act-26)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc16 1))) ((TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0)))))))))))))))))))(else (let ((sc13 arg-12)) (if (null? sc13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc13))) (let ((e-2 (cdr sc13))) (let ((sc14 arg-13)) (if (null? sc14) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc14))) (let ((e-5 (cdr sc14))) (let ((sc15 e-4)) (if (null? sc15) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc15))) (let ((sc16 e-9)) (case (vector-ref sc16 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))))))))))) (let ((e-30 (car sc10))) (let ((e-31 (cdr sc10))) (let ((sc11 e-30)) (if (null? sc11) (let ((sc12 arg-13)) (if (null? sc12) (let ((sc13 arg-12)) (if (null? sc13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc13))) (let ((e-2 (cdr sc13))) (let ((sc14 arg-13)) (if (null? sc14) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc14))) (let ((e-5 (cdr sc14))) (let ((sc15 e-4)) (if (null? sc15) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc15))) (let ((sc16 e-9)) (case (vector-ref sc16 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-21 (car sc12))) (let ((e-22 (cdr sc12))) (let ((sc13 e-21)) (if (null? sc13) (let ((sc14 arg-12)) (if (null? sc14) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc14))) (let ((e-2 (cdr sc14))) (let ((sc15 arg-13)) (if (null? sc15) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc15))) (let ((e-5 (cdr sc15))) (let ((sc16 e-4)) (if (null? sc16) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc16))) (let ((sc17 e-9)) (case (vector-ref sc17 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-26 (cdr sc13))) (let ((sc14 e-26)) (case (vector-ref sc14 0) ((0) (let ((e-27 (vector-ref sc14 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc15 act-24)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc15 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 1))) eta-0))) (let ((sc16 act-25)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc16 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (let ((sc17 act-26)) (case (vector-ref sc17 0) ((0) (let ((e-2 (vector-ref sc17 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc17 1))) ((TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0)))))))))))))))))))(else (let ((sc14 arg-12)) (if (null? sc14) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc14))) (let ((e-2 (cdr sc14))) (let ((sc15 arg-13)) (if (null? sc15) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc15))) (let ((e-5 (cdr sc15))) (let ((sc16 e-4)) (if (null? sc16) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc16))) (let ((sc17 e-9)) (case (vector-ref sc17 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))))))))))) (let ((e-35 (cdr sc11))) (let ((sc12 e-35)) (case (vector-ref sc12 0) ((0) (let ((e-36 (vector-ref sc12 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc13 act-24)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc13 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 1))) eta-0))) (let ((sc14 act-25)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc14 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-36 eta-0))) (let ((sc15 act-26)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc15 1))) ((TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 8 arg-8 arg-11 e-7) arg-12 e-31) eta-0)))))))))))))))))))(else (let ((sc12 arg-13)) (if (null? sc12) (let ((sc13 arg-12)) (if (null? sc13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc13))) (let ((e-2 (cdr sc13))) (let ((sc14 arg-13)) (if (null? sc14) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc14))) (let ((e-5 (cdr sc14))) (let ((sc15 e-4)) (if (null? sc15) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc15))) (let ((sc16 e-9)) (case (vector-ref sc16 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-21 (car sc12))) (let ((e-22 (cdr sc12))) (let ((sc13 e-21)) (if (null? sc13) (let ((sc14 arg-12)) (if (null? sc14) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc14))) (let ((e-2 (cdr sc14))) (let ((sc15 arg-13)) (if (null? sc15) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc15))) (let ((e-5 (cdr sc15))) (let ((sc16 e-4)) (if (null? sc16) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc16))) (let ((sc17 e-9)) (case (vector-ref sc17 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-26 (cdr sc13))) (let ((sc14 e-26)) (case (vector-ref sc14 0) ((0) (let ((e-27 (vector-ref sc14 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc15 act-24)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc15 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 1))) eta-0))) (let ((sc16 act-25)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc16 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (let ((sc17 act-26)) (case (vector-ref sc17 0) ((0) (let ((e-2 (vector-ref sc17 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc17 1))) ((TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0)))))))))))))))))))(else (let ((sc14 arg-12)) (if (null? sc14) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc14))) (let ((e-2 (cdr sc14))) (let ((sc15 arg-13)) (if (null? sc15) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc15))) (let ((e-5 (cdr sc15))) (let ((sc16 e-4)) (if (null? sc16) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc16))) (let ((sc17 e-9)) (case (vector-ref sc17 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))))))))))))))))))))))(else (let ((sc9 arg-13)) (if (null? sc9) (let ((sc10 arg-12)) (if (null? sc10) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc10))) (let ((e-2 (cdr sc10))) (let ((sc11 arg-13)) (if (null? sc11) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc11))) (let ((e-5 (cdr sc11))) (let ((sc12 e-4)) (if (null? sc12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc12))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-21 (car sc9))) (let ((e-22 (cdr sc9))) (let ((sc10 e-21)) (if (null? sc10) (let ((sc11 arg-12)) (if (null? sc11) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc11))) (let ((e-2 (cdr sc11))) (let ((sc12 arg-13)) (if (null? sc12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc12))) (let ((e-5 (cdr sc12))) (let ((sc13 e-4)) (if (null? sc13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc13))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-26 (cdr sc10))) (let ((sc11 e-26)) (case (vector-ref sc11 0) ((0) (let ((e-27 (vector-ref sc11 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 1))) eta-0))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc13 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (let ((sc14 act-26)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc14 1))) ((TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0)))))))))))))))))))(else (let ((sc11 arg-12)) (if (null? sc11) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc11))) (let ((e-2 (cdr sc11))) (let ((sc12 arg-13)) (if (null? sc12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc12))) (let ((e-5 (cdr sc12))) (let ((sc13 e-4)) (if (null? sc13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc13))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))))))))))))))))))))))))))))))))))))))))))))))(else (let ((sc2 arg-12)) (if (null? sc2) (let ((sc3 e-18)) (case (vector-ref sc3 0) ((1) (let ((sc4 arg-13)) (if (null? sc4) (let ((sc5 arg-13)) (if (null? sc5) (let ((sc6 arg-12)) (if (null? sc6) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc6))) (let ((e-2 (cdr sc6))) (let ((sc7 arg-13)) (if (null? sc7) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc7))) (let ((e-5 (cdr sc7))) (let ((sc8 e-4)) (if (null? sc8) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc8))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-21 (car sc5))) (let ((e-22 (cdr sc5))) (let ((sc6 e-21)) (if (null? sc6) (let ((sc7 arg-12)) (if (null? sc7) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc7))) (let ((e-2 (cdr sc7))) (let ((sc8 arg-13)) (if (null? sc8) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc8))) (let ((e-5 (cdr sc8))) (let ((sc9 e-4)) (if (null? sc9) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc9))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-26 (cdr sc6))) (let ((sc7 e-26)) (case (vector-ref sc7 0) ((0) (let ((e-27 (vector-ref sc7 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 1))) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc9 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc10 1))) ((TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0)))))))))))))))))))(else (let ((sc7 arg-12)) (if (null? sc7) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc7))) (let ((e-2 (cdr sc7))) (let ((sc8 arg-13)) (if (null? sc8) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc8))) (let ((e-5 (cdr sc8))) (let ((sc9 e-4)) (if (null? sc9) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc9))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))))))))))) (let ((e-30 (car sc4))) (let ((e-31 (cdr sc4))) (let ((sc5 e-30)) (if (null? sc5) (let ((sc6 arg-13)) (if (null? sc6) (let ((sc7 arg-12)) (if (null? sc7) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc7))) (let ((e-2 (cdr sc7))) (let ((sc8 arg-13)) (if (null? sc8) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc8))) (let ((e-5 (cdr sc8))) (let ((sc9 e-4)) (if (null? sc9) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc9))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-21 (car sc6))) (let ((e-22 (cdr sc6))) (let ((sc7 e-21)) (if (null? sc7) (let ((sc8 arg-12)) (if (null? sc8) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc8))) (let ((e-2 (cdr sc8))) (let ((sc9 arg-13)) (if (null? sc9) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc9))) (let ((e-5 (cdr sc9))) (let ((sc10 e-4)) (if (null? sc10) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc10))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-26 (cdr sc7))) (let ((sc8 e-26)) (case (vector-ref sc8 0) ((0) (let ((e-27 (vector-ref sc8 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 1))) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc10 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc11 1))) ((TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0)))))))))))))))))))(else (let ((sc8 arg-12)) (if (null? sc8) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc8))) (let ((e-2 (cdr sc8))) (let ((sc9 arg-13)) (if (null? sc9) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc9))) (let ((e-5 (cdr sc9))) (let ((sc10 e-4)) (if (null? sc10) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc10))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))))))))))) (let ((e-35 (cdr sc5))) (let ((sc6 e-35)) (case (vector-ref sc6 0) ((0) (let ((e-36 (vector-ref sc6 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 1))) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc8 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-36 eta-0))) (let ((sc9 act-26)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc9 1))) ((TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 8 arg-8 arg-11 e-7) arg-12 e-31) eta-0)))))))))))))))))))(else (let ((sc6 arg-13)) (if (null? sc6) (let ((sc7 arg-12)) (if (null? sc7) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc7))) (let ((e-2 (cdr sc7))) (let ((sc8 arg-13)) (if (null? sc8) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc8))) (let ((e-5 (cdr sc8))) (let ((sc9 e-4)) (if (null? sc9) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc9))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-21 (car sc6))) (let ((e-22 (cdr sc6))) (let ((sc7 e-21)) (if (null? sc7) (let ((sc8 arg-12)) (if (null? sc8) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc8))) (let ((e-2 (cdr sc8))) (let ((sc9 arg-13)) (if (null? sc9) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc9))) (let ((e-5 (cdr sc9))) (let ((sc10 e-4)) (if (null? sc10) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc10))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-26 (cdr sc7))) (let ((sc8 e-26)) (case (vector-ref sc8 0) ((0) (let ((e-27 (vector-ref sc8 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 1))) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc10 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc11 1))) ((TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0)))))))))))))))))))(else (let ((sc8 arg-12)) (if (null? sc8) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc8))) (let ((e-2 (cdr sc8))) (let ((sc9 arg-13)) (if (null? sc9) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc9))) (let ((e-5 (cdr sc9))) (let ((sc10 e-4)) (if (null? sc10) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc10))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))))))))))))))))))))))(else (let ((sc3 arg-13)) (if (null? sc3) (let ((sc4 arg-12)) (if (null? sc4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc4))) (let ((e-2 (cdr sc4))) (let ((sc5 arg-13)) (if (null? sc5) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc5))) (let ((e-5 (cdr sc5))) (let ((sc6 e-4)) (if (null? sc6) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc6))) (let ((sc7 e-9)) (case (vector-ref sc7 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-21 (car sc3))) (let ((e-22 (cdr sc3))) (let ((sc4 e-21)) (if (null? sc4) (let ((sc5 arg-12)) (if (null? sc5) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc5))) (let ((e-2 (cdr sc5))) (let ((sc6 arg-13)) (if (null? sc6) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc6))) (let ((e-5 (cdr sc6))) (let ((sc7 e-4)) (if (null? sc7) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc7))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-26 (cdr sc4))) (let ((sc5 e-26)) (case (vector-ref sc5 0) ((0) (let ((e-27 (vector-ref sc5 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 1))) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc7 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc8 1))) ((TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0)))))))))))))))))))(else (let ((sc5 arg-12)) (if (null? sc5) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc5))) (let ((e-2 (cdr sc5))) (let ((sc6 arg-13)) (if (null? sc6) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc6))) (let ((e-5 (cdr sc6))) (let ((sc7 e-4)) (if (null? sc7) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc7))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))))))))))))))))) (let ((e-38 (car sc2))) (let ((e-39 (cdr sc2))) (let ((sc3 arg-13)) (if (null? sc3) (let ((sc4 e-18)) (case (vector-ref sc4 0) ((1) (let ((sc5 arg-13)) (if (null? sc5) (let ((sc6 arg-13)) (if (null? sc6) (let ((sc7 arg-12)) (if (null? sc7) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc7))) (let ((e-2 (cdr sc7))) (let ((sc8 arg-13)) (if (null? sc8) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc8))) (let ((e-5 (cdr sc8))) (let ((sc9 e-4)) (if (null? sc9) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc9))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-21 (car sc6))) (let ((e-22 (cdr sc6))) (let ((sc7 e-21)) (if (null? sc7) (let ((sc8 arg-12)) (if (null? sc8) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc8))) (let ((e-2 (cdr sc8))) (let ((sc9 arg-13)) (if (null? sc9) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc9))) (let ((e-5 (cdr sc9))) (let ((sc10 e-4)) (if (null? sc10) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc10))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-26 (cdr sc7))) (let ((sc8 e-26)) (case (vector-ref sc8 0) ((0) (let ((e-27 (vector-ref sc8 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 1))) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc10 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc11 1))) ((TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0)))))))))))))))))))(else (let ((sc8 arg-12)) (if (null? sc8) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc8))) (let ((e-2 (cdr sc8))) (let ((sc9 arg-13)) (if (null? sc9) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc9))) (let ((e-5 (cdr sc9))) (let ((sc10 e-4)) (if (null? sc10) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc10))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))))))))))) (let ((e-30 (car sc5))) (let ((e-31 (cdr sc5))) (let ((sc6 e-30)) (if (null? sc6) (let ((sc7 arg-13)) (if (null? sc7) (let ((sc8 arg-12)) (if (null? sc8) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc8))) (let ((e-2 (cdr sc8))) (let ((sc9 arg-13)) (if (null? sc9) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc9))) (let ((e-5 (cdr sc9))) (let ((sc10 e-4)) (if (null? sc10) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc10))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-21 (car sc7))) (let ((e-22 (cdr sc7))) (let ((sc8 e-21)) (if (null? sc8) (let ((sc9 arg-12)) (if (null? sc9) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc9))) (let ((e-2 (cdr sc9))) (let ((sc10 arg-13)) (if (null? sc10) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc10))) (let ((e-5 (cdr sc10))) (let ((sc11 e-4)) (if (null? sc11) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc11))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-26 (cdr sc8))) (let ((sc9 e-26)) (case (vector-ref sc9 0) ((0) (let ((e-27 (vector-ref sc9 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 1))) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc11 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc12 1))) ((TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0)))))))))))))))))))(else (let ((sc9 arg-12)) (if (null? sc9) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc9))) (let ((e-2 (cdr sc9))) (let ((sc10 arg-13)) (if (null? sc10) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc10))) (let ((e-5 (cdr sc10))) (let ((sc11 e-4)) (if (null? sc11) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc11))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))))))))))) (let ((e-35 (cdr sc6))) (let ((sc7 e-35)) (case (vector-ref sc7 0) ((0) (let ((e-36 (vector-ref sc7 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 1))) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc9 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-36 eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc10 1))) ((TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 8 arg-8 arg-11 e-7) arg-12 e-31) eta-0)))))))))))))))))))(else (let ((sc7 arg-13)) (if (null? sc7) (let ((sc8 arg-12)) (if (null? sc8) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc8))) (let ((e-2 (cdr sc8))) (let ((sc9 arg-13)) (if (null? sc9) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc9))) (let ((e-5 (cdr sc9))) (let ((sc10 e-4)) (if (null? sc10) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc10))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-21 (car sc7))) (let ((e-22 (cdr sc7))) (let ((sc8 e-21)) (if (null? sc8) (let ((sc9 arg-12)) (if (null? sc9) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc9))) (let ((e-2 (cdr sc9))) (let ((sc10 arg-13)) (if (null? sc10) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc10))) (let ((e-5 (cdr sc10))) (let ((sc11 e-4)) (if (null? sc11) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc11))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-26 (cdr sc8))) (let ((sc9 e-26)) (case (vector-ref sc9 0) ((0) (let ((e-27 (vector-ref sc9 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 1))) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc11 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc12 1))) ((TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0)))))))))))))))))))(else (let ((sc9 arg-12)) (if (null? sc9) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc9))) (let ((e-2 (cdr sc9))) (let ((sc10 arg-13)) (if (null? sc10) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc10))) (let ((e-5 (cdr sc10))) (let ((sc11 e-4)) (if (null? sc11) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc11))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))))))))))))))))))))))(else (let ((sc4 arg-13)) (if (null? sc4) (let ((sc5 arg-12)) (if (null? sc5) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc5))) (let ((e-2 (cdr sc5))) (let ((sc6 arg-13)) (if (null? sc6) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc6))) (let ((e-5 (cdr sc6))) (let ((sc7 e-4)) (if (null? sc7) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc7))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-21 (car sc4))) (let ((e-22 (cdr sc4))) (let ((sc5 e-21)) (if (null? sc5) (let ((sc6 arg-12)) (if (null? sc6) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc6))) (let ((e-2 (cdr sc6))) (let ((sc7 arg-13)) (if (null? sc7) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc7))) (let ((e-5 (cdr sc7))) (let ((sc8 e-4)) (if (null? sc8) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc8))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-26 (cdr sc5))) (let ((sc6 e-26)) (case (vector-ref sc6 0) ((0) (let ((e-27 (vector-ref sc6 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 1))) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc8 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (let ((sc9 act-26)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc9 1))) ((TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0)))))))))))))))))))(else (let ((sc6 arg-12)) (if (null? sc6) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc6))) (let ((e-2 (cdr sc6))) (let ((sc7 arg-13)) (if (null? sc7) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc7))) (let ((e-5 (cdr sc7))) (let ((sc8 e-4)) (if (null? sc8) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc8))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))))))))))))))))) (let ((e-41 (car sc3))) (let ((e-42 (cdr sc3))) (let ((sc4 e-41)) (if (null? sc4) (let ((sc5 e-18)) (case (vector-ref sc5 0) ((1) (let ((sc6 arg-13)) (if (null? sc6) (let ((sc7 arg-13)) (if (null? sc7) (let ((sc8 arg-12)) (if (null? sc8) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc8))) (let ((e-2 (cdr sc8))) (let ((sc9 arg-13)) (if (null? sc9) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc9))) (let ((e-5 (cdr sc9))) (let ((sc10 e-4)) (if (null? sc10) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc10))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-21 (car sc7))) (let ((e-22 (cdr sc7))) (let ((sc8 e-21)) (if (null? sc8) (let ((sc9 arg-12)) (if (null? sc9) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc9))) (let ((e-2 (cdr sc9))) (let ((sc10 arg-13)) (if (null? sc10) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc10))) (let ((e-5 (cdr sc10))) (let ((sc11 e-4)) (if (null? sc11) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc11))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-26 (cdr sc8))) (let ((sc9 e-26)) (case (vector-ref sc9 0) ((0) (let ((e-27 (vector-ref sc9 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 1))) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc11 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc12 1))) ((TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0)))))))))))))))))))(else (let ((sc9 arg-12)) (if (null? sc9) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc9))) (let ((e-2 (cdr sc9))) (let ((sc10 arg-13)) (if (null? sc10) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc10))) (let ((e-5 (cdr sc10))) (let ((sc11 e-4)) (if (null? sc11) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc11))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))))))))))) (let ((e-30 (car sc6))) (let ((e-31 (cdr sc6))) (let ((sc7 e-30)) (if (null? sc7) (let ((sc8 arg-13)) (if (null? sc8) (let ((sc9 arg-12)) (if (null? sc9) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc9))) (let ((e-2 (cdr sc9))) (let ((sc10 arg-13)) (if (null? sc10) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc10))) (let ((e-5 (cdr sc10))) (let ((sc11 e-4)) (if (null? sc11) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc11))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-21 (car sc8))) (let ((e-22 (cdr sc8))) (let ((sc9 e-21)) (if (null? sc9) (let ((sc10 arg-12)) (if (null? sc10) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc10))) (let ((e-2 (cdr sc10))) (let ((sc11 arg-13)) (if (null? sc11) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc11))) (let ((e-5 (cdr sc11))) (let ((sc12 e-4)) (if (null? sc12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc12))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-26 (cdr sc9))) (let ((sc10 e-26)) (case (vector-ref sc10 0) ((0) (let ((e-27 (vector-ref sc10 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 1))) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc12 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc13 1))) ((TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0)))))))))))))))))))(else (let ((sc10 arg-12)) (if (null? sc10) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc10))) (let ((e-2 (cdr sc10))) (let ((sc11 arg-13)) (if (null? sc11) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc11))) (let ((e-5 (cdr sc11))) (let ((sc12 e-4)) (if (null? sc12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc12))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))))))))))) (let ((e-35 (cdr sc7))) (let ((sc8 e-35)) (case (vector-ref sc8 0) ((0) (let ((e-36 (vector-ref sc8 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 1))) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc10 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-36 eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc11 1))) ((TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 8 arg-8 arg-11 e-7) arg-12 e-31) eta-0)))))))))))))))))))(else (let ((sc8 arg-13)) (if (null? sc8) (let ((sc9 arg-12)) (if (null? sc9) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc9))) (let ((e-2 (cdr sc9))) (let ((sc10 arg-13)) (if (null? sc10) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc10))) (let ((e-5 (cdr sc10))) (let ((sc11 e-4)) (if (null? sc11) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc11))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-21 (car sc8))) (let ((e-22 (cdr sc8))) (let ((sc9 e-21)) (if (null? sc9) (let ((sc10 arg-12)) (if (null? sc10) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc10))) (let ((e-2 (cdr sc10))) (let ((sc11 arg-13)) (if (null? sc11) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc11))) (let ((e-5 (cdr sc11))) (let ((sc12 e-4)) (if (null? sc12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc12))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-26 (cdr sc9))) (let ((sc10 e-26)) (case (vector-ref sc10 0) ((0) (let ((e-27 (vector-ref sc10 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 1))) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc12 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc13 1))) ((TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0)))))))))))))))))))(else (let ((sc10 arg-12)) (if (null? sc10) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc10))) (let ((e-2 (cdr sc10))) (let ((sc11 arg-13)) (if (null? sc11) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc11))) (let ((e-5 (cdr sc11))) (let ((sc12 e-4)) (if (null? sc12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc12))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))))))))))))))))))))))(else (let ((sc5 arg-13)) (if (null? sc5) (let ((sc6 arg-12)) (if (null? sc6) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc6))) (let ((e-2 (cdr sc6))) (let ((sc7 arg-13)) (if (null? sc7) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc7))) (let ((e-5 (cdr sc7))) (let ((sc8 e-4)) (if (null? sc8) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc8))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-21 (car sc5))) (let ((e-22 (cdr sc5))) (let ((sc6 e-21)) (if (null? sc6) (let ((sc7 arg-12)) (if (null? sc7) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc7))) (let ((e-2 (cdr sc7))) (let ((sc8 arg-13)) (if (null? sc8) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc8))) (let ((e-5 (cdr sc8))) (let ((sc9 e-4)) (if (null? sc9) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc9))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-26 (cdr sc6))) (let ((sc7 e-26)) (case (vector-ref sc7 0) ((0) (let ((e-27 (vector-ref sc7 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 1))) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc9 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc10 1))) ((TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0)))))))))))))))))))(else (let ((sc7 arg-12)) (if (null? sc7) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc7))) (let ((e-2 (cdr sc7))) (let ((sc8 arg-13)) (if (null? sc8) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc8))) (let ((e-5 (cdr sc8))) (let ((sc9 e-4)) (if (null? sc9) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc9))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))))))))))))))))) (let ((e-46 (cdr sc4))) (let ((sc5 e-46)) (case (vector-ref sc5 0) ((1) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 1))) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc7 1))) ((TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 (vector 0 arg-8 (vector 1 e-38))) e-39 e-42) eta-0)))))))))))))(else (let ((sc5 e-18)) (case (vector-ref sc5 0) ((1) (let ((sc6 arg-13)) (if (null? sc6) (let ((sc7 arg-13)) (if (null? sc7) (let ((sc8 arg-12)) (if (null? sc8) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc8))) (let ((e-2 (cdr sc8))) (let ((sc9 arg-13)) (if (null? sc9) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc9))) (let ((e-5 (cdr sc9))) (let ((sc10 e-4)) (if (null? sc10) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc10))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-21 (car sc7))) (let ((e-22 (cdr sc7))) (let ((sc8 e-21)) (if (null? sc8) (let ((sc9 arg-12)) (if (null? sc9) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc9))) (let ((e-2 (cdr sc9))) (let ((sc10 arg-13)) (if (null? sc10) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc10))) (let ((e-5 (cdr sc10))) (let ((sc11 e-4)) (if (null? sc11) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc11))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-26 (cdr sc8))) (let ((sc9 e-26)) (case (vector-ref sc9 0) ((0) (let ((e-27 (vector-ref sc9 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 1))) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc11 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc12 1))) ((TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0)))))))))))))))))))(else (let ((sc9 arg-12)) (if (null? sc9) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc9))) (let ((e-2 (cdr sc9))) (let ((sc10 arg-13)) (if (null? sc10) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc10))) (let ((e-5 (cdr sc10))) (let ((sc11 e-4)) (if (null? sc11) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc11))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))))))))))) (let ((e-30 (car sc6))) (let ((e-31 (cdr sc6))) (let ((sc7 e-30)) (if (null? sc7) (let ((sc8 arg-13)) (if (null? sc8) (let ((sc9 arg-12)) (if (null? sc9) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc9))) (let ((e-2 (cdr sc9))) (let ((sc10 arg-13)) (if (null? sc10) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc10))) (let ((e-5 (cdr sc10))) (let ((sc11 e-4)) (if (null? sc11) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc11))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-21 (car sc8))) (let ((e-22 (cdr sc8))) (let ((sc9 e-21)) (if (null? sc9) (let ((sc10 arg-12)) (if (null? sc10) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc10))) (let ((e-2 (cdr sc10))) (let ((sc11 arg-13)) (if (null? sc11) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc11))) (let ((e-5 (cdr sc11))) (let ((sc12 e-4)) (if (null? sc12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc12))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-26 (cdr sc9))) (let ((sc10 e-26)) (case (vector-ref sc10 0) ((0) (let ((e-27 (vector-ref sc10 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 1))) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc12 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc13 1))) ((TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0)))))))))))))))))))(else (let ((sc10 arg-12)) (if (null? sc10) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc10))) (let ((e-2 (cdr sc10))) (let ((sc11 arg-13)) (if (null? sc11) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc11))) (let ((e-5 (cdr sc11))) (let ((sc12 e-4)) (if (null? sc12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc12))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))))))))))) (let ((e-35 (cdr sc7))) (let ((sc8 e-35)) (case (vector-ref sc8 0) ((0) (let ((e-36 (vector-ref sc8 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 1))) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc10 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-36 eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc11 1))) ((TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 8 arg-8 arg-11 e-7) arg-12 e-31) eta-0)))))))))))))))))))(else (let ((sc8 arg-13)) (if (null? sc8) (let ((sc9 arg-12)) (if (null? sc9) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc9))) (let ((e-2 (cdr sc9))) (let ((sc10 arg-13)) (if (null? sc10) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc10))) (let ((e-5 (cdr sc10))) (let ((sc11 e-4)) (if (null? sc11) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc11))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-21 (car sc8))) (let ((e-22 (cdr sc8))) (let ((sc9 e-21)) (if (null? sc9) (let ((sc10 arg-12)) (if (null? sc10) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc10))) (let ((e-2 (cdr sc10))) (let ((sc11 arg-13)) (if (null? sc11) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc11))) (let ((e-5 (cdr sc11))) (let ((sc12 e-4)) (if (null? sc12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc12))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-26 (cdr sc9))) (let ((sc10 e-26)) (case (vector-ref sc10 0) ((0) (let ((e-27 (vector-ref sc10 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 1))) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc12 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc13 1))) ((TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0)))))))))))))))))))(else (let ((sc10 arg-12)) (if (null? sc10) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc10))) (let ((e-2 (cdr sc10))) (let ((sc11 arg-13)) (if (null? sc11) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc11))) (let ((e-5 (cdr sc11))) (let ((sc12 e-4)) (if (null? sc12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc12))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))))))))))))))))))))))(else (let ((sc5 arg-13)) (if (null? sc5) (let ((sc6 arg-12)) (if (null? sc6) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc6))) (let ((e-2 (cdr sc6))) (let ((sc7 arg-13)) (if (null? sc7) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc7))) (let ((e-5 (cdr sc7))) (let ((sc8 e-4)) (if (null? sc8) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc8))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-21 (car sc5))) (let ((e-22 (cdr sc5))) (let ((sc6 e-21)) (if (null? sc6) (let ((sc7 arg-12)) (if (null? sc7) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc7))) (let ((e-2 (cdr sc7))) (let ((sc8 arg-13)) (if (null? sc8) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc8))) (let ((e-5 (cdr sc8))) (let ((sc9 e-4)) (if (null? sc9) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc9))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))) (let ((e-26 (cdr sc6))) (let ((sc7 e-26)) (case (vector-ref sc7 0) ((0) (let ((e-27 (vector-ref sc7 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 1))) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc9 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc10 1))) ((TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0)))))))))))))))))))(else (let ((sc7 arg-12)) (if (null? sc7) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc7))) (let ((e-2 (cdr sc7))) (let ((sc8 arg-13)) (if (null? sc8) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc8))) (let ((e-5 (cdr sc8))) (let ((sc9 e-4)) (if (null? sc9) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc9))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))))))))))))))))))))))))))))))))))))(else (let ((sc1 arg-12)) (if (null? sc1) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc1))) (let ((e-2 (cdr sc1))) (let ((sc2 arg-13)) (if (null? sc2) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc2))) (let ((e-5 (cdr sc2))) (let ((sc3 e-4)) (if (null? sc3) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc3))) (let ((sc4 e-9)) (case (vector-ref sc4 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))))))))(else (let ((sc0 arg-12)) (if (null? sc0) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc0))) (let ((e-2 (cdr sc0))) (let ((sc1 arg-13)) (if (null? sc1) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car sc1))) (let ((e-5 (cdr sc1))) (let ((sc2 e-4)) (if (null? sc2) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr sc2))) (let ((sc3 e-9)) (case (vector-ref sc3 0) ((1) (TTImpC-45PartialEval-n--11671-5394-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))))))))) -(define TTImpC-45PartialEval-n--11671-5393-u--mkDynNames (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (if (null? sc0) '() (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (if (null? sc1) (TTImpC-45PartialEval-n--11671-5393-u--mkDynNames arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-3) (let ((e-7 (cdr sc1))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((1) (cons (PreludeC-45TypesC-45String-C-43C-43 "_pe" (PreludeC-45Show-u--show_Show_Int arg-10)) (TTImpC-45PartialEval-n--11671-5393-u--mkDynNames arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (bs+ (blodwen-toSignedInt 1 63) arg-10 63) e-3)))(else (TTImpC-45PartialEval-n--11671-5393-u--mkDynNames arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-3))))))))))))) -(define TTImpC-45PartialEval-n--13623-7172-u--getSpecArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 ext-0) (let ((sc0 arg-11)) (if (null? sc0) (vector 1 (vector 1 '())) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (let ((act-24 (TTImpC-45PartialEval-n--13623-7172-u--getSpecArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (PreludeC-45Types-u--C-43_Num_Nat (PreludeC-45Types-u--fromInteger_Num_Nat 1) arg-9) arg-10 e-3 ext-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((_-0 (vector 1 e-1))) (TTImpC-45PartialEval-case--caseC-32blockC-32inC-32specialiseC-44getSpecArgs-7261 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-6 e-7 e-3 arg-10 arg-9 e-1 _-0 (PreludeC-45Types-elem (cons (lambda (arg-12) (lambda (arg-13) (PreludeC-45Types-u--C-61C-61_Eq_Nat arg-12 arg-13))) (lambda (arg-12) (lambda (arg-13) (PreludeC-45Types-u--C-47C-61_Eq_Nat arg-12 arg-13)))) arg-9 arg-10) ext-0)))) (else (vector 1 (vector 0 ))))))))))))))))))) -(define TTImpC-45PartialEval-n--11671-5395-u--getRawArgs (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((8) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (TTImpC-45PartialEval-n--11671-5395-u--getRawArgs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (cons (cons (vector 0 ) e-2) arg-10) e-1)))) ((10) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((e-6 (vector-ref sc0 4))) (TTImpC-45PartialEval-n--11671-5395-u--getRawArgs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (cons (cons (vector 1 e-5) e-6) arg-10) e-4)))))(else arg-10))))) -(define TTImpC-45PartialEval-n--12250-5946-u--getAllRefs (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (if (null? sc0) arg-10 (let ((e-1 (car sc0))) (let ((e-2 (cdr sc0))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (TTImpC-45PartialEval-n--12250-5946-u--getAllRefs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-2)) (else (let ((e-4 (vector-ref sc1 1))) (CoreC-45TT-addRefs 1 (vector 1 "_") (TTImpC-45PartialEval-n--12250-5946-u--getAllRefs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-2) e-4))))))))))) -(define TTImpC-45PartialEval-n--14649-8378-u--findName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((2) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (TTImpC-45PartialEval-case--quoteHeadC-44findName-8394 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-5 e-4 e-3 e-1 (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 e-5)))))(else (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (TTImpC-45PartialEval-n--14649-8378-u--findName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-3) (lambda (_-0) (vector 1 (+ 1 _-0))))))))))))))) -(define TTImpC-45PartialEval-n--14673-9016-u--extendEnv (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-14 arg-15) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((0) arg-15) (else (let ((e-3 (vector-ref sc0 3))) (cons (vector 0 arg-4 (AlgebraC-45ZeroOneOmega-u--top_Top_ZeroOneOmega) (vector 1 ) (vector 10 arg-4 1)) (TTImpC-45PartialEval-n--14673-9016-u--extendEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-3 arg-15)))))))) -(define TTImpC-45PartialEval-n--13376-6962-u--dropErased (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (if (null? sc0) '() (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (TTImpC-45PartialEval-case--eraseInferredC-44dropErased-6978 arg-1 arg-2 e-2 e-3 arg-5 arg-4 arg-3 (PreludeC-45Types-elem (cons (lambda (arg-7) (lambda (arg-8) (PreludeC-45Types-u--C-61C-61_Eq_Nat arg-7 arg-8))) (lambda (arg-7) (lambda (arg-8) (PreludeC-45Types-u--C-47C-61_Eq_Nat arg-7 arg-8)))) arg-4 arg-5)))))))) -(define TTImpC-45PartialEval-n--11671-5397-u--dropArgs (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (TTImpC-45PartialEval-n--11671-5396-u--reapply arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (vector 0 arg-8 arg-10) (TTImpC-45PartialEval-dropSpec 0 arg-2 (TTImpC-45PartialEval-n--11671-5395-u--getRawArgs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 '() arg-11))))) -(define TTImpC-45PartialEval-n--13623-7170-u--dropAll (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (if (null? sc0) (vector 0 ) (let ((e-3 (cdr sc0))) (vector 1 (TTImpC-45PartialEval-n--13623-7170-u--dropAll arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-3))))))) -(define TTImpC-45PartialEval-n--13623-7171-u--concrete (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (CoreC-45TT-shrinkTerm arg-10 (TTImpC-45PartialEval-n--13623-7170-u--dropAll arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9)))) -(define TTImpC-45PartialEval-n--14649-8241-u--addLater (lambda (arg-0 arg-2 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-16 arg-17) (let ((sc0 arg-17)) (if (null? sc0) arg-16 (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (TTImpC-45PartialEval-case--quoteHeadC-44addLater-8270 arg-0 arg-2 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-16 e-2 e-3 (TTImpC-45PartialEval-n--14649-8241-u--addLater arg-0 arg-2 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-16 e-3)))))))) -(define TTImpC-45PartialEval-u--show_Show_ArgMode (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (PreludeC-45TypesC-45String-C-43C-43 "Static " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-0)))) (else "Dynamic"))))) +(define TTImpC-45WithClause-matchAny (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (if (null? arg-4) (TTImpC-45WithClause-matchFail arg-2 ext-0) (let ((e-2 (car arg-4))) (let ((e-3 (cdr arg-4))) (let ((e-6 (car e-2))) (let ((e-7 (cdr e-2))) (CoreC-45Core-u--catch_Catchable_Core_Error (TTImpC-45WithClause-getMatch arg-0 arg-1 arg-3 e-6 e-7) (lambda (u--err) (lambda (eta-0) (TTImpC-45WithClause-matchAny arg-0 arg-1 arg-2 arg-3 e-3 eta-0))) ext-0)))))))) +(define TTImpC-45WithClause-matchAll (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (if (null? arg-3) (vector 1 '()) (let ((e-2 (car arg-3))) (let ((e-3 (cdr arg-3))) (let ((e-6 (car e-2))) (let ((e-7 (cdr e-2))) (let ((act-24 (TTImpC-45WithClause-matchAll arg-0 arg-1 arg-2 e-3 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 e-6 e-7) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref act-25 1))) (TTImpC-45WithClause-mergeMatches arg-0 arg-1 arg-2 (PreludeC-45TypesC-45List-C-43C-43 e-8 e-5) ext-0)))))))))))))))) +(define TTImpC-45WithClause-getNewLHS (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((u--vploc (CoreC-45FC-virtualiseFC arg-3))) (lambda (eta-0) (let ((act-24 ((TTImpC-45WithClause-n--6930-12454-u--dropWithArgs arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-4 arg-9) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((e-2 (car e-5))) (let ((e-3 (cdr e-5))) (let ((act-25 (CoreC-45Context-isUnboundImplicits arg-1 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Context-setUnboundImplicits arg-1 1 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-4 (vector-ref act-26 1))) (vector 0 e-4))) (else (let ((act-27 (TTImpC-45BindImplicits-bindNames arg-1 0 arg-8 eta-0))) (case (vector-ref act-27 0) ((0) (let ((e-4 (vector-ref act-27 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref act-27 1))) (let ((_-0 (cons e-2 e-3))) (let ((e-9 (car e-8))) (let ((e-4 (cdr e-8))) (let ((act-28 (TTImpC-45BindImplicits-bindNames arg-1 0 e-2 eta-0))) (case (vector-ref act-28 0) ((0) (let ((e-10 (vector-ref act-28 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-28 1))) (let ((_-1 (cons e-9 e-4))) (let ((e-12 (car e-10))) (let ((e-11 (cdr e-10))) (let ((act-29 (CoreC-45Context-setUnboundImplicits arg-1 e-6 eta-0))) (case (vector-ref act-29 0) ((0) (let ((e-13 (vector-ref act-29 1))) (vector 0 e-13))) (else (let ((act-30 (CoreC-45ContextC-45Log-log arg-1 "declare.def.clause.with" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))))))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Parent LHS (with implicits): " (TTImpC-45TTImp-u--show_Show_RawImp e-4))) eta-0))) (case (vector-ref act-30 0) ((0) (let ((e-14 (vector-ref act-30 1))) (vector 0 e-14))) (else (let ((act-31 (CoreC-45ContextC-45Log-log arg-1 "declare.def.clause.with" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))))))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Modified LHS (with implicits): " (TTImpC-45TTImp-u--show_Show_RawImp e-11))) eta-0))) (case (vector-ref act-31 0) ((0) (let ((e-15 (vector-ref act-31 1))) (vector 0 e-15))) (else (let ((_-2 (cons e-12 e-11))) (TTImpC-45WithClause-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32getNewLHS-12712 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 u--vploc e-2 e-3 _-0 e-6 e-9 e-4 _-1 e-12 e-11 _-2 (DataC-45List-reverse e-3) eta-0)))))))))))))))))))))))))))))))))))))))))) +(define TTImpC-45WithClause-getMatch (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (case (vector-ref arg-3 0) ((17) (let ((e-50 (vector-ref arg-3 1))) (let ((e-51 (vector-ref arg-3 2))) (lambda (clam-0) (case (vector-ref arg-4 0) ((17) (let ((e-75 (vector-ref arg-4 1))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-2 (vector-ref eta-0 1))) (vector 0 e-2))) (else (vector 1 (cons (cons e-51 arg-4) '()))))) (lambda (eta-0) (TTImpC-45WithClause-addAlias arg-0 arg-1 e-75 e-50 eta-0)) clam-0)))(else (vector 1 (cons (cons e-51 arg-4) '())))))))) ((32) (lambda (eta-0) (vector 1 '()))) ((0) (let ((e-54 (vector-ref arg-3 1))) (let ((e-55 (vector-ref arg-3 2))) (case (vector-ref e-55 0) ((0) (let ((e-79 (vector-ref e-55 1))) (let ((e-80 (vector-ref e-55 2))) (case (vector-ref arg-4 0) ((0) (let ((e-81 (vector-ref arg-4 1))) (let ((e-82 (vector-ref arg-4 2))) (case (vector-ref e-82 0) ((0) (let ((e-83 (vector-ref e-82 1))) (let ((e-84 (vector-ref e-82 2))) (lambda (clam-0) (let ((sc4 (let ((sc5 (CoreC-45Name-u--C-61C-61_Eq_Name e-80 e-84))) (cond ((equal? sc5 1) (CoreC-45NameC-45Namespace-isParentOf e-83 e-79)) (else 0))))) (cond ((equal? sc4 1) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-2 (vector-ref eta-0 1))) (vector 0 e-2))) (else (vector 1 '())))) (lambda (eta-0) (TTImpC-45WithClause-addAlias arg-0 arg-1 e-81 e-54 eta-0)) clam-0)) (else (TTImpC-45WithClause-matchFail e-81 clam-0))))))))(else (lambda (clam-1) (let ((sc3 (CoreC-45Name-u--C-61C-61_Eq_Name e-80 e-82))) (cond ((equal? sc3 1) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-2 (vector-ref eta-0 1))) (vector 0 e-2))) (else (vector 1 '())))) (lambda (eta-0) (TTImpC-45WithClause-addAlias arg-0 arg-1 e-81 e-54 eta-0)) clam-1)) (else (TTImpC-45WithClause-matchFail e-81 clam-1))))))))))(else (case (vector-ref arg-4 0) ((0) (let ((e-77 (vector-ref arg-4 1))) (let ((e-78 (vector-ref arg-4 2))) (lambda (clam-2) (let ((sc3 (CoreC-45Name-u--C-61C-61_Eq_Name e-55 e-78))) (cond ((equal? sc3 1) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-2 (vector-ref eta-0 1))) (vector 0 e-2))) (else (vector 1 '())))) (lambda (eta-0) (TTImpC-45WithClause-addAlias arg-0 arg-1 e-77 e-54 eta-0)) clam-2)) (else (TTImpC-45WithClause-matchFail e-77 clam-2))))))))(else (cond ((equal? arg-2 1) (case (vector-ref arg-3 0) ((10) (let ((e-37 (vector-ref arg-3 2))) (let ((e-39 (vector-ref arg-3 4))) (lambda (eta-0) (TTImpC-45WithClause-matchAll arg-0 arg-1 1 (cons (cons e-37 arg-4) (cons (cons e-39 e-39) '())) eta-0))))) ((9) (let ((e-41 (vector-ref arg-3 2))) (let ((e-42 (vector-ref arg-3 3))) (lambda (eta-0) (TTImpC-45WithClause-matchAll arg-0 arg-1 1 (cons (cons e-41 arg-4) (cons (cons e-42 e-42) '())) eta-0)))))(else (case (vector-ref arg-4 0) ((10) (let ((e-29 (vector-ref arg-4 1))) (lambda (eta-0) (TTImpC-45WithClause-matchFail e-29 eta-0)))) ((9) (let ((e-33 (vector-ref arg-4 1))) (lambda (eta-0) (TTImpC-45WithClause-matchFail e-33 eta-0))))(else (case (vector-ref arg-3 0) ((13) (let ((e-11 (vector-ref arg-3 1))) (let ((e-13 (vector-ref arg-3 3))) (case (vector-ref arg-4 0) ((13) (let ((e-21 (vector-ref arg-4 3))) (lambda (eta-0) (TTImpC-45WithClause-matchAny arg-0 arg-1 e-11 arg-2 (DataC-45List-u--zip_Zippable_List e-13 e-21) eta-0))))(else (case (vector-ref arg-4 0) ((18) (let ((e-10 (vector-ref arg-4 5))) (TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 arg-3 e-10)))(else (case (vector-ref arg-3 0) ((29) (lambda (clam-3) (case (vector-ref arg-4 0) ((29) (vector 1 '()))(else (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) clam-3))))) ((28) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (case (vector-ref arg-4 0) ((28) (let ((e-5 (vector-ref arg-4 2))) (lambda (clam-4) (let ((sc6 (CoreC-45TT-u--C-61C-61_Eq_Constant e-2 e-5))) (cond ((equal? sc6 1) (vector 1 '())) (else (TTImpC-45WithClause-matchFail e-1 clam-4)))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) eta-0)))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) eta-0))))))))))) ((18) (let ((e-17 (vector-ref arg-3 4))) (let ((e-18 (vector-ref arg-3 5))) (case (vector-ref e-17 0) ((1) (let ((e-22 (vector-ref e-17 1))) (lambda (clam-5) (case (vector-ref arg-4 0) ((18) (let ((e-24 (vector-ref arg-4 2))) (let ((e-26 (vector-ref arg-4 4))) (let ((e-27 (vector-ref arg-4 5))) (case (vector-ref e-26 0) ((1) (let ((e-28 (vector-ref e-26 1))) (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 e-18 e-27) clam-5))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (TTImpC-45WithClause-mergeMatches arg-0 arg-1 arg-2 (cons (cons e-22 (vector 17 e-24 e-28)) e-5) clam-5)))))))(else (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 e-18 arg-4) clam-5))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (TTImpC-45WithClause-mergeMatches arg-0 arg-1 arg-2 (cons (cons e-22 arg-4) e-5) clam-5)))))))))))(else (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 e-18 arg-4) clam-5))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (TTImpC-45WithClause-mergeMatches arg-0 arg-1 arg-2 (cons (cons e-22 arg-4) e-5) clam-5))))))))))(else (TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 e-18 arg-4))))))(else (case (vector-ref arg-4 0) ((18) (let ((e-10 (vector-ref arg-4 5))) (TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 arg-3 e-10)))(else (case (vector-ref arg-3 0) ((29) (lambda (clam-6) (case (vector-ref arg-4 0) ((29) (vector 1 '()))(else (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) clam-6))))) ((28) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (case (vector-ref arg-4 0) ((28) (let ((e-5 (vector-ref arg-4 2))) (lambda (clam-7) (let ((sc5 (CoreC-45TT-u--C-61C-61_Eq_Constant e-2 e-5))) (cond ((equal? sc5 1) (vector 1 '())) (else (TTImpC-45WithClause-matchFail e-1 clam-7)))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) eta-0)))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) eta-0))))))))))))) ((equal? arg-2 0) (case (vector-ref arg-3 0) ((10) (let ((e-44 (vector-ref arg-3 2))) (TTImpC-45WithClause-getMatch arg-0 arg-1 0 e-44 e-44))) ((9) (let ((e-48 (vector-ref arg-3 2))) (TTImpC-45WithClause-getMatch arg-0 arg-1 0 e-48 e-48)))(else (case (vector-ref arg-4 0) ((10) (let ((e-29 (vector-ref arg-4 1))) (lambda (eta-0) (TTImpC-45WithClause-matchFail e-29 eta-0)))) ((9) (let ((e-33 (vector-ref arg-4 1))) (lambda (eta-0) (TTImpC-45WithClause-matchFail e-33 eta-0))))(else (case (vector-ref arg-3 0) ((13) (let ((e-11 (vector-ref arg-3 1))) (let ((e-13 (vector-ref arg-3 3))) (case (vector-ref arg-4 0) ((13) (let ((e-21 (vector-ref arg-4 3))) (lambda (eta-0) (TTImpC-45WithClause-matchAny arg-0 arg-1 e-11 arg-2 (DataC-45List-u--zip_Zippable_List e-13 e-21) eta-0))))(else (case (vector-ref arg-4 0) ((18) (let ((e-10 (vector-ref arg-4 5))) (TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 arg-3 e-10)))(else (case (vector-ref arg-3 0) ((29) (lambda (clam-8) (case (vector-ref arg-4 0) ((29) (vector 1 '()))(else (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) clam-8))))) ((28) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (case (vector-ref arg-4 0) ((28) (let ((e-5 (vector-ref arg-4 2))) (lambda (clam-9) (let ((sc6 (CoreC-45TT-u--C-61C-61_Eq_Constant e-2 e-5))) (cond ((equal? sc6 1) (vector 1 '())) (else (TTImpC-45WithClause-matchFail e-1 clam-9)))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) eta-0)))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) eta-0))))))))))) ((18) (let ((e-17 (vector-ref arg-3 4))) (let ((e-18 (vector-ref arg-3 5))) (case (vector-ref e-17 0) ((1) (let ((e-22 (vector-ref e-17 1))) (lambda (clam-10) (case (vector-ref arg-4 0) ((18) (let ((e-24 (vector-ref arg-4 2))) (let ((e-26 (vector-ref arg-4 4))) (let ((e-27 (vector-ref arg-4 5))) (case (vector-ref e-26 0) ((1) (let ((e-28 (vector-ref e-26 1))) (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 e-18 e-27) clam-10))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (TTImpC-45WithClause-mergeMatches arg-0 arg-1 arg-2 (cons (cons e-22 (vector 17 e-24 e-28)) e-5) clam-10)))))))(else (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 e-18 arg-4) clam-10))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (TTImpC-45WithClause-mergeMatches arg-0 arg-1 arg-2 (cons (cons e-22 arg-4) e-5) clam-10)))))))))))(else (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 e-18 arg-4) clam-10))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (TTImpC-45WithClause-mergeMatches arg-0 arg-1 arg-2 (cons (cons e-22 arg-4) e-5) clam-10))))))))))(else (TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 e-18 arg-4))))))(else (case (vector-ref arg-4 0) ((18) (let ((e-10 (vector-ref arg-4 5))) (TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 arg-3 e-10)))(else (case (vector-ref arg-3 0) ((29) (lambda (clam-11) (case (vector-ref arg-4 0) ((29) (vector 1 '()))(else (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) clam-11))))) ((28) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (case (vector-ref arg-4 0) ((28) (let ((e-5 (vector-ref arg-4 2))) (lambda (clam-12) (let ((sc5 (CoreC-45TT-u--C-61C-61_Eq_Constant e-2 e-5))) (cond ((equal? sc5 1) (vector 1 '())) (else (TTImpC-45WithClause-matchFail e-1 clam-12)))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) eta-0)))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) eta-0)))))))))))))(else (case (vector-ref arg-4 0) ((10) (let ((e-29 (vector-ref arg-4 1))) (lambda (eta-0) (TTImpC-45WithClause-matchFail e-29 eta-0)))) ((9) (let ((e-33 (vector-ref arg-4 1))) (lambda (eta-0) (TTImpC-45WithClause-matchFail e-33 eta-0))))(else (case (vector-ref arg-3 0) ((13) (let ((e-11 (vector-ref arg-3 1))) (let ((e-13 (vector-ref arg-3 3))) (case (vector-ref arg-4 0) ((13) (let ((e-21 (vector-ref arg-4 3))) (lambda (eta-0) (TTImpC-45WithClause-matchAny arg-0 arg-1 e-11 arg-2 (DataC-45List-u--zip_Zippable_List e-13 e-21) eta-0))))(else (case (vector-ref arg-4 0) ((18) (let ((e-10 (vector-ref arg-4 5))) (TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 arg-3 e-10)))(else (case (vector-ref arg-3 0) ((29) (lambda (clam-13) (case (vector-ref arg-4 0) ((29) (vector 1 '()))(else (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) clam-13))))) ((28) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (case (vector-ref arg-4 0) ((28) (let ((e-5 (vector-ref arg-4 2))) (lambda (clam-14) (let ((sc5 (CoreC-45TT-u--C-61C-61_Eq_Constant e-2 e-5))) (cond ((equal? sc5 1) (vector 1 '())) (else (TTImpC-45WithClause-matchFail e-1 clam-14)))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) eta-0)))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) eta-0))))))))))) ((18) (let ((e-17 (vector-ref arg-3 4))) (let ((e-18 (vector-ref arg-3 5))) (case (vector-ref e-17 0) ((1) (let ((e-22 (vector-ref e-17 1))) (lambda (clam-15) (case (vector-ref arg-4 0) ((18) (let ((e-24 (vector-ref arg-4 2))) (let ((e-26 (vector-ref arg-4 4))) (let ((e-27 (vector-ref arg-4 5))) (case (vector-ref e-26 0) ((1) (let ((e-28 (vector-ref e-26 1))) (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 e-18 e-27) clam-15))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (TTImpC-45WithClause-mergeMatches arg-0 arg-1 arg-2 (cons (cons e-22 (vector 17 e-24 e-28)) e-5) clam-15)))))))(else (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 e-18 arg-4) clam-15))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (TTImpC-45WithClause-mergeMatches arg-0 arg-1 arg-2 (cons (cons e-22 arg-4) e-5) clam-15)))))))))))(else (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 e-18 arg-4) clam-15))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (TTImpC-45WithClause-mergeMatches arg-0 arg-1 arg-2 (cons (cons e-22 arg-4) e-5) clam-15))))))))))(else (TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 e-18 arg-4))))))(else (case (vector-ref arg-4 0) ((18) (let ((e-10 (vector-ref arg-4 5))) (TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 arg-3 e-10)))(else (case (vector-ref arg-3 0) ((29) (lambda (clam-16) (case (vector-ref arg-4 0) ((29) (vector 1 '()))(else (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) clam-16))))) ((28) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (case (vector-ref arg-4 0) ((28) (let ((e-5 (vector-ref arg-4 2))) (lambda (clam-17) (let ((sc4 (CoreC-45TT-u--C-61C-61_Eq_Constant e-2 e-5))) (cond ((equal? sc4 1) (vector 1 '())) (else (TTImpC-45WithClause-matchFail e-1 clam-17)))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) eta-0)))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) eta-0)))))))))))))))))))(else (case (vector-ref arg-4 0) ((0) (let ((e-77 (vector-ref arg-4 1))) (let ((e-78 (vector-ref arg-4 2))) (lambda (clam-18) (let ((sc2 (CoreC-45Name-u--C-61C-61_Eq_Name e-55 e-78))) (cond ((equal? sc2 1) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-2 (vector-ref eta-0 1))) (vector 0 e-2))) (else (vector 1 '())))) (lambda (eta-0) (TTImpC-45WithClause-addAlias arg-0 arg-1 e-77 e-54 eta-0)) clam-18)) (else (TTImpC-45WithClause-matchFail e-77 clam-18))))))))(else (cond ((equal? arg-2 1) (case (vector-ref arg-3 0) ((10) (let ((e-37 (vector-ref arg-3 2))) (let ((e-39 (vector-ref arg-3 4))) (lambda (eta-0) (TTImpC-45WithClause-matchAll arg-0 arg-1 1 (cons (cons e-37 arg-4) (cons (cons e-39 e-39) '())) eta-0))))) ((9) (let ((e-41 (vector-ref arg-3 2))) (let ((e-42 (vector-ref arg-3 3))) (lambda (eta-0) (TTImpC-45WithClause-matchAll arg-0 arg-1 1 (cons (cons e-41 arg-4) (cons (cons e-42 e-42) '())) eta-0)))))(else (case (vector-ref arg-4 0) ((10) (let ((e-29 (vector-ref arg-4 1))) (lambda (eta-0) (TTImpC-45WithClause-matchFail e-29 eta-0)))) ((9) (let ((e-33 (vector-ref arg-4 1))) (lambda (eta-0) (TTImpC-45WithClause-matchFail e-33 eta-0))))(else (case (vector-ref arg-3 0) ((13) (let ((e-11 (vector-ref arg-3 1))) (let ((e-13 (vector-ref arg-3 3))) (case (vector-ref arg-4 0) ((13) (let ((e-21 (vector-ref arg-4 3))) (lambda (eta-0) (TTImpC-45WithClause-matchAny arg-0 arg-1 e-11 arg-2 (DataC-45List-u--zip_Zippable_List e-13 e-21) eta-0))))(else (case (vector-ref arg-4 0) ((18) (let ((e-10 (vector-ref arg-4 5))) (TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 arg-3 e-10)))(else (case (vector-ref arg-3 0) ((29) (lambda (clam-19) (case (vector-ref arg-4 0) ((29) (vector 1 '()))(else (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) clam-19))))) ((28) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (case (vector-ref arg-4 0) ((28) (let ((e-5 (vector-ref arg-4 2))) (lambda (clam-20) (let ((sc5 (CoreC-45TT-u--C-61C-61_Eq_Constant e-2 e-5))) (cond ((equal? sc5 1) (vector 1 '())) (else (TTImpC-45WithClause-matchFail e-1 clam-20)))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) eta-0)))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) eta-0))))))))))) ((18) (let ((e-17 (vector-ref arg-3 4))) (let ((e-18 (vector-ref arg-3 5))) (case (vector-ref e-17 0) ((1) (let ((e-22 (vector-ref e-17 1))) (lambda (clam-21) (case (vector-ref arg-4 0) ((18) (let ((e-24 (vector-ref arg-4 2))) (let ((e-26 (vector-ref arg-4 4))) (let ((e-27 (vector-ref arg-4 5))) (case (vector-ref e-26 0) ((1) (let ((e-28 (vector-ref e-26 1))) (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 e-18 e-27) clam-21))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (TTImpC-45WithClause-mergeMatches arg-0 arg-1 arg-2 (cons (cons e-22 (vector 17 e-24 e-28)) e-5) clam-21)))))))(else (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 e-18 arg-4) clam-21))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (TTImpC-45WithClause-mergeMatches arg-0 arg-1 arg-2 (cons (cons e-22 arg-4) e-5) clam-21)))))))))))(else (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 e-18 arg-4) clam-21))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (TTImpC-45WithClause-mergeMatches arg-0 arg-1 arg-2 (cons (cons e-22 arg-4) e-5) clam-21))))))))))(else (TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 e-18 arg-4))))))(else (case (vector-ref arg-4 0) ((18) (let ((e-10 (vector-ref arg-4 5))) (TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 arg-3 e-10)))(else (case (vector-ref arg-3 0) ((29) (lambda (clam-22) (case (vector-ref arg-4 0) ((29) (vector 1 '()))(else (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) clam-22))))) ((28) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (case (vector-ref arg-4 0) ((28) (let ((e-5 (vector-ref arg-4 2))) (lambda (clam-23) (let ((sc4 (CoreC-45TT-u--C-61C-61_Eq_Constant e-2 e-5))) (cond ((equal? sc4 1) (vector 1 '())) (else (TTImpC-45WithClause-matchFail e-1 clam-23)))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) eta-0)))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) eta-0))))))))))))) ((equal? arg-2 0) (case (vector-ref arg-3 0) ((10) (let ((e-44 (vector-ref arg-3 2))) (TTImpC-45WithClause-getMatch arg-0 arg-1 0 e-44 e-44))) ((9) (let ((e-48 (vector-ref arg-3 2))) (TTImpC-45WithClause-getMatch arg-0 arg-1 0 e-48 e-48)))(else (case (vector-ref arg-4 0) ((10) (let ((e-29 (vector-ref arg-4 1))) (lambda (eta-0) (TTImpC-45WithClause-matchFail e-29 eta-0)))) ((9) (let ((e-33 (vector-ref arg-4 1))) (lambda (eta-0) (TTImpC-45WithClause-matchFail e-33 eta-0))))(else (case (vector-ref arg-3 0) ((13) (let ((e-11 (vector-ref arg-3 1))) (let ((e-13 (vector-ref arg-3 3))) (case (vector-ref arg-4 0) ((13) (let ((e-21 (vector-ref arg-4 3))) (lambda (eta-0) (TTImpC-45WithClause-matchAny arg-0 arg-1 e-11 arg-2 (DataC-45List-u--zip_Zippable_List e-13 e-21) eta-0))))(else (case (vector-ref arg-4 0) ((18) (let ((e-10 (vector-ref arg-4 5))) (TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 arg-3 e-10)))(else (case (vector-ref arg-3 0) ((29) (lambda (clam-24) (case (vector-ref arg-4 0) ((29) (vector 1 '()))(else (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) clam-24))))) ((28) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (case (vector-ref arg-4 0) ((28) (let ((e-5 (vector-ref arg-4 2))) (lambda (clam-25) (let ((sc5 (CoreC-45TT-u--C-61C-61_Eq_Constant e-2 e-5))) (cond ((equal? sc5 1) (vector 1 '())) (else (TTImpC-45WithClause-matchFail e-1 clam-25)))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) eta-0)))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) eta-0))))))))))) ((18) (let ((e-17 (vector-ref arg-3 4))) (let ((e-18 (vector-ref arg-3 5))) (case (vector-ref e-17 0) ((1) (let ((e-22 (vector-ref e-17 1))) (lambda (clam-26) (case (vector-ref arg-4 0) ((18) (let ((e-24 (vector-ref arg-4 2))) (let ((e-26 (vector-ref arg-4 4))) (let ((e-27 (vector-ref arg-4 5))) (case (vector-ref e-26 0) ((1) (let ((e-28 (vector-ref e-26 1))) (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 e-18 e-27) clam-26))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (TTImpC-45WithClause-mergeMatches arg-0 arg-1 arg-2 (cons (cons e-22 (vector 17 e-24 e-28)) e-5) clam-26)))))))(else (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 e-18 arg-4) clam-26))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (TTImpC-45WithClause-mergeMatches arg-0 arg-1 arg-2 (cons (cons e-22 arg-4) e-5) clam-26)))))))))))(else (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 e-18 arg-4) clam-26))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (TTImpC-45WithClause-mergeMatches arg-0 arg-1 arg-2 (cons (cons e-22 arg-4) e-5) clam-26))))))))))(else (TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 e-18 arg-4))))))(else (case (vector-ref arg-4 0) ((18) (let ((e-10 (vector-ref arg-4 5))) (TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 arg-3 e-10)))(else (case (vector-ref arg-3 0) ((29) (lambda (clam-27) (case (vector-ref arg-4 0) ((29) (vector 1 '()))(else (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) clam-27))))) ((28) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (case (vector-ref arg-4 0) ((28) (let ((e-5 (vector-ref arg-4 2))) (lambda (clam-28) (let ((sc4 (CoreC-45TT-u--C-61C-61_Eq_Constant e-2 e-5))) (cond ((equal? sc4 1) (vector 1 '())) (else (TTImpC-45WithClause-matchFail e-1 clam-28)))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) eta-0)))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) eta-0)))))))))))))(else (case (vector-ref arg-4 0) ((10) (let ((e-29 (vector-ref arg-4 1))) (lambda (eta-0) (TTImpC-45WithClause-matchFail e-29 eta-0)))) ((9) (let ((e-33 (vector-ref arg-4 1))) (lambda (eta-0) (TTImpC-45WithClause-matchFail e-33 eta-0))))(else (case (vector-ref arg-3 0) ((13) (let ((e-11 (vector-ref arg-3 1))) (let ((e-13 (vector-ref arg-3 3))) (case (vector-ref arg-4 0) ((13) (let ((e-21 (vector-ref arg-4 3))) (lambda (eta-0) (TTImpC-45WithClause-matchAny arg-0 arg-1 e-11 arg-2 (DataC-45List-u--zip_Zippable_List e-13 e-21) eta-0))))(else (case (vector-ref arg-4 0) ((18) (let ((e-10 (vector-ref arg-4 5))) (TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 arg-3 e-10)))(else (case (vector-ref arg-3 0) ((29) (lambda (clam-29) (case (vector-ref arg-4 0) ((29) (vector 1 '()))(else (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) clam-29))))) ((28) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (case (vector-ref arg-4 0) ((28) (let ((e-5 (vector-ref arg-4 2))) (lambda (clam-30) (let ((sc4 (CoreC-45TT-u--C-61C-61_Eq_Constant e-2 e-5))) (cond ((equal? sc4 1) (vector 1 '())) (else (TTImpC-45WithClause-matchFail e-1 clam-30)))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) eta-0)))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) eta-0))))))))))) ((18) (let ((e-17 (vector-ref arg-3 4))) (let ((e-18 (vector-ref arg-3 5))) (case (vector-ref e-17 0) ((1) (let ((e-22 (vector-ref e-17 1))) (lambda (clam-31) (case (vector-ref arg-4 0) ((18) (let ((e-24 (vector-ref arg-4 2))) (let ((e-26 (vector-ref arg-4 4))) (let ((e-27 (vector-ref arg-4 5))) (case (vector-ref e-26 0) ((1) (let ((e-28 (vector-ref e-26 1))) (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 e-18 e-27) clam-31))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (TTImpC-45WithClause-mergeMatches arg-0 arg-1 arg-2 (cons (cons e-22 (vector 17 e-24 e-28)) e-5) clam-31)))))))(else (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 e-18 arg-4) clam-31))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (TTImpC-45WithClause-mergeMatches arg-0 arg-1 arg-2 (cons (cons e-22 arg-4) e-5) clam-31)))))))))))(else (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 e-18 arg-4) clam-31))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (TTImpC-45WithClause-mergeMatches arg-0 arg-1 arg-2 (cons (cons e-22 arg-4) e-5) clam-31))))))))))(else (TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 e-18 arg-4))))))(else (case (vector-ref arg-4 0) ((18) (let ((e-10 (vector-ref arg-4 5))) (TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 arg-3 e-10)))(else (case (vector-ref arg-3 0) ((29) (lambda (clam-32) (case (vector-ref arg-4 0) ((29) (vector 1 '()))(else (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) clam-32))))) ((28) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (case (vector-ref arg-4 0) ((28) (let ((e-5 (vector-ref arg-4 2))) (lambda (clam-33) (let ((sc3 (CoreC-45TT-u--C-61C-61_Eq_Constant e-2 e-5))) (cond ((equal? sc3 1) (vector 1 '())) (else (TTImpC-45WithClause-matchFail e-1 clam-33)))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) eta-0)))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) eta-0))))))))))))))))))) ((1) (let ((e-57 (vector-ref arg-3 2))) (let ((e-58 (vector-ref arg-3 3))) (let ((e-59 (vector-ref arg-3 4))) (let ((e-60 (vector-ref arg-3 5))) (let ((e-61 (vector-ref arg-3 6))) (case (vector-ref arg-4 0) ((1) (let ((e-85 (vector-ref arg-4 1))) (let ((e-86 (vector-ref arg-4 2))) (let ((e-87 (vector-ref arg-4 3))) (let ((e-88 (vector-ref arg-4 4))) (let ((e-89 (vector-ref arg-4 5))) (let ((e-90 (vector-ref arg-4 6))) (let ((sc2 (let ((sc3 (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega e-57 e-86))) (cond ((equal? sc3 1) (let ((sc4 (CoreC-45TT-eqPiInfoBy (lambda (_-11703) (lambda (_-11705) 1)) e-58 e-87))) (cond ((equal? sc4 1) (PreludeC-45Types-u--C-61C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-5) (lambda (arg-6) (CoreC-45Name-u--C-61C-61_Eq_Name arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (CoreC-45Name-u--C-47C-61_Eq_Name arg-5 arg-6)))) e-59 e-88)) (else 0)))) (else 0))))) (cond ((equal? sc2 1) (lambda (eta-0) (TTImpC-45WithClause-matchAll arg-0 arg-1 arg-2 (cons (cons e-60 e-89) (cons (cons e-61 e-90) '())) eta-0))) (else (lambda (eta-0) (TTImpC-45WithClause-matchFail e-85 eta-0))))))))))))(else (cond ((equal? arg-2 1) (case (vector-ref arg-3 0) ((10) (let ((e-37 (vector-ref arg-3 2))) (let ((e-39 (vector-ref arg-3 4))) (lambda (eta-0) (TTImpC-45WithClause-matchAll arg-0 arg-1 1 (cons (cons e-37 arg-4) (cons (cons e-39 e-39) '())) eta-0))))) ((9) (let ((e-41 (vector-ref arg-3 2))) (let ((e-42 (vector-ref arg-3 3))) (lambda (eta-0) (TTImpC-45WithClause-matchAll arg-0 arg-1 1 (cons (cons e-41 arg-4) (cons (cons e-42 e-42) '())) eta-0)))))(else (case (vector-ref arg-4 0) ((10) (let ((e-29 (vector-ref arg-4 1))) (lambda (eta-0) (TTImpC-45WithClause-matchFail e-29 eta-0)))) ((9) (let ((e-33 (vector-ref arg-4 1))) (lambda (eta-0) (TTImpC-45WithClause-matchFail e-33 eta-0))))(else (case (vector-ref arg-3 0) ((13) (let ((e-11 (vector-ref arg-3 1))) (let ((e-13 (vector-ref arg-3 3))) (case (vector-ref arg-4 0) ((13) (let ((e-21 (vector-ref arg-4 3))) (lambda (eta-0) (TTImpC-45WithClause-matchAny arg-0 arg-1 e-11 arg-2 (DataC-45List-u--zip_Zippable_List e-13 e-21) eta-0))))(else (case (vector-ref arg-4 0) ((18) (let ((e-10 (vector-ref arg-4 5))) (TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 arg-3 e-10)))(else (case (vector-ref arg-3 0) ((29) (lambda (clam-34) (case (vector-ref arg-4 0) ((29) (vector 1 '()))(else (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) clam-34))))) ((28) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (case (vector-ref arg-4 0) ((28) (let ((e-5 (vector-ref arg-4 2))) (lambda (clam-35) (let ((sc5 (CoreC-45TT-u--C-61C-61_Eq_Constant e-2 e-5))) (cond ((equal? sc5 1) (vector 1 '())) (else (TTImpC-45WithClause-matchFail e-1 clam-35)))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) eta-0)))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) eta-0))))))))))) ((18) (let ((e-17 (vector-ref arg-3 4))) (let ((e-18 (vector-ref arg-3 5))) (case (vector-ref e-17 0) ((1) (let ((e-22 (vector-ref e-17 1))) (lambda (clam-36) (case (vector-ref arg-4 0) ((18) (let ((e-24 (vector-ref arg-4 2))) (let ((e-26 (vector-ref arg-4 4))) (let ((e-27 (vector-ref arg-4 5))) (case (vector-ref e-26 0) ((1) (let ((e-28 (vector-ref e-26 1))) (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 e-18 e-27) clam-36))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (TTImpC-45WithClause-mergeMatches arg-0 arg-1 arg-2 (cons (cons e-22 (vector 17 e-24 e-28)) e-5) clam-36)))))))(else (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 e-18 arg-4) clam-36))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (TTImpC-45WithClause-mergeMatches arg-0 arg-1 arg-2 (cons (cons e-22 arg-4) e-5) clam-36)))))))))))(else (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 e-18 arg-4) clam-36))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (TTImpC-45WithClause-mergeMatches arg-0 arg-1 arg-2 (cons (cons e-22 arg-4) e-5) clam-36))))))))))(else (TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 e-18 arg-4))))))(else (case (vector-ref arg-4 0) ((18) (let ((e-10 (vector-ref arg-4 5))) (TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 arg-3 e-10)))(else (case (vector-ref arg-3 0) ((29) (lambda (clam-37) (case (vector-ref arg-4 0) ((29) (vector 1 '()))(else (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) clam-37))))) ((28) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (case (vector-ref arg-4 0) ((28) (let ((e-5 (vector-ref arg-4 2))) (lambda (clam-38) (let ((sc4 (CoreC-45TT-u--C-61C-61_Eq_Constant e-2 e-5))) (cond ((equal? sc4 1) (vector 1 '())) (else (TTImpC-45WithClause-matchFail e-1 clam-38)))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) eta-0)))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) eta-0))))))))))))) ((equal? arg-2 0) (case (vector-ref arg-3 0) ((10) (let ((e-44 (vector-ref arg-3 2))) (TTImpC-45WithClause-getMatch arg-0 arg-1 0 e-44 e-44))) ((9) (let ((e-48 (vector-ref arg-3 2))) (TTImpC-45WithClause-getMatch arg-0 arg-1 0 e-48 e-48)))(else (case (vector-ref arg-4 0) ((10) (let ((e-29 (vector-ref arg-4 1))) (lambda (eta-0) (TTImpC-45WithClause-matchFail e-29 eta-0)))) ((9) (let ((e-33 (vector-ref arg-4 1))) (lambda (eta-0) (TTImpC-45WithClause-matchFail e-33 eta-0))))(else (case (vector-ref arg-3 0) ((13) (let ((e-11 (vector-ref arg-3 1))) (let ((e-13 (vector-ref arg-3 3))) (case (vector-ref arg-4 0) ((13) (let ((e-21 (vector-ref arg-4 3))) (lambda (eta-0) (TTImpC-45WithClause-matchAny arg-0 arg-1 e-11 arg-2 (DataC-45List-u--zip_Zippable_List e-13 e-21) eta-0))))(else (case (vector-ref arg-4 0) ((18) (let ((e-10 (vector-ref arg-4 5))) (TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 arg-3 e-10)))(else (case (vector-ref arg-3 0) ((29) (lambda (clam-39) (case (vector-ref arg-4 0) ((29) (vector 1 '()))(else (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) clam-39))))) ((28) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (case (vector-ref arg-4 0) ((28) (let ((e-5 (vector-ref arg-4 2))) (lambda (clam-40) (let ((sc5 (CoreC-45TT-u--C-61C-61_Eq_Constant e-2 e-5))) (cond ((equal? sc5 1) (vector 1 '())) (else (TTImpC-45WithClause-matchFail e-1 clam-40)))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) eta-0)))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) eta-0))))))))))) ((18) (let ((e-17 (vector-ref arg-3 4))) (let ((e-18 (vector-ref arg-3 5))) (case (vector-ref e-17 0) ((1) (let ((e-22 (vector-ref e-17 1))) (lambda (clam-41) (case (vector-ref arg-4 0) ((18) (let ((e-24 (vector-ref arg-4 2))) (let ((e-26 (vector-ref arg-4 4))) (let ((e-27 (vector-ref arg-4 5))) (case (vector-ref e-26 0) ((1) (let ((e-28 (vector-ref e-26 1))) (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 e-18 e-27) clam-41))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (TTImpC-45WithClause-mergeMatches arg-0 arg-1 arg-2 (cons (cons e-22 (vector 17 e-24 e-28)) e-5) clam-41)))))))(else (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 e-18 arg-4) clam-41))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (TTImpC-45WithClause-mergeMatches arg-0 arg-1 arg-2 (cons (cons e-22 arg-4) e-5) clam-41)))))))))))(else (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 e-18 arg-4) clam-41))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (TTImpC-45WithClause-mergeMatches arg-0 arg-1 arg-2 (cons (cons e-22 arg-4) e-5) clam-41))))))))))(else (TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 e-18 arg-4))))))(else (case (vector-ref arg-4 0) ((18) (let ((e-10 (vector-ref arg-4 5))) (TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 arg-3 e-10)))(else (case (vector-ref arg-3 0) ((29) (lambda (clam-42) (case (vector-ref arg-4 0) ((29) (vector 1 '()))(else (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) clam-42))))) ((28) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (case (vector-ref arg-4 0) ((28) (let ((e-5 (vector-ref arg-4 2))) (lambda (clam-43) (let ((sc4 (CoreC-45TT-u--C-61C-61_Eq_Constant e-2 e-5))) (cond ((equal? sc4 1) (vector 1 '())) (else (TTImpC-45WithClause-matchFail e-1 clam-43)))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) eta-0)))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) eta-0)))))))))))))(else (case (vector-ref arg-4 0) ((10) (let ((e-29 (vector-ref arg-4 1))) (lambda (eta-0) (TTImpC-45WithClause-matchFail e-29 eta-0)))) ((9) (let ((e-33 (vector-ref arg-4 1))) (lambda (eta-0) (TTImpC-45WithClause-matchFail e-33 eta-0))))(else (case (vector-ref arg-3 0) ((13) (let ((e-11 (vector-ref arg-3 1))) (let ((e-13 (vector-ref arg-3 3))) (case (vector-ref arg-4 0) ((13) (let ((e-21 (vector-ref arg-4 3))) (lambda (eta-0) (TTImpC-45WithClause-matchAny arg-0 arg-1 e-11 arg-2 (DataC-45List-u--zip_Zippable_List e-13 e-21) eta-0))))(else (case (vector-ref arg-4 0) ((18) (let ((e-10 (vector-ref arg-4 5))) (TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 arg-3 e-10)))(else (case (vector-ref arg-3 0) ((29) (lambda (clam-44) (case (vector-ref arg-4 0) ((29) (vector 1 '()))(else (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) clam-44))))) ((28) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (case (vector-ref arg-4 0) ((28) (let ((e-5 (vector-ref arg-4 2))) (lambda (clam-45) (let ((sc4 (CoreC-45TT-u--C-61C-61_Eq_Constant e-2 e-5))) (cond ((equal? sc4 1) (vector 1 '())) (else (TTImpC-45WithClause-matchFail e-1 clam-45)))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) eta-0)))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) eta-0))))))))))) ((18) (let ((e-17 (vector-ref arg-3 4))) (let ((e-18 (vector-ref arg-3 5))) (case (vector-ref e-17 0) ((1) (let ((e-22 (vector-ref e-17 1))) (lambda (clam-46) (case (vector-ref arg-4 0) ((18) (let ((e-24 (vector-ref arg-4 2))) (let ((e-26 (vector-ref arg-4 4))) (let ((e-27 (vector-ref arg-4 5))) (case (vector-ref e-26 0) ((1) (let ((e-28 (vector-ref e-26 1))) (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 e-18 e-27) clam-46))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (TTImpC-45WithClause-mergeMatches arg-0 arg-1 arg-2 (cons (cons e-22 (vector 17 e-24 e-28)) e-5) clam-46)))))))(else (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 e-18 arg-4) clam-46))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (TTImpC-45WithClause-mergeMatches arg-0 arg-1 arg-2 (cons (cons e-22 arg-4) e-5) clam-46)))))))))))(else (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 e-18 arg-4) clam-46))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (TTImpC-45WithClause-mergeMatches arg-0 arg-1 arg-2 (cons (cons e-22 arg-4) e-5) clam-46))))))))))(else (TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 e-18 arg-4))))))(else (case (vector-ref arg-4 0) ((18) (let ((e-10 (vector-ref arg-4 5))) (TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 arg-3 e-10)))(else (case (vector-ref arg-3 0) ((29) (lambda (clam-47) (case (vector-ref arg-4 0) ((29) (vector 1 '()))(else (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) clam-47))))) ((28) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (case (vector-ref arg-4 0) ((28) (let ((e-5 (vector-ref arg-4 2))) (lambda (clam-48) (let ((sc3 (CoreC-45TT-u--C-61C-61_Eq_Constant e-2 e-5))) (cond ((equal? sc3 1) (vector 1 '())) (else (TTImpC-45WithClause-matchFail e-1 clam-48)))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) eta-0)))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) eta-0)))))))))))))))))))) ((8) (let ((e-63 (vector-ref arg-3 2))) (let ((e-64 (vector-ref arg-3 3))) (case (vector-ref arg-4 0) ((8) (let ((e-92 (vector-ref arg-4 2))) (let ((e-93 (vector-ref arg-4 3))) (lambda (eta-0) (TTImpC-45WithClause-matchAll arg-0 arg-1 arg-2 (cons (cons e-63 e-92) (cons (cons e-64 e-93) '())) eta-0)))))(else (cond ((equal? arg-2 1) (case (vector-ref arg-3 0) ((10) (let ((e-37 (vector-ref arg-3 2))) (let ((e-39 (vector-ref arg-3 4))) (lambda (eta-0) (TTImpC-45WithClause-matchAll arg-0 arg-1 1 (cons (cons e-37 arg-4) (cons (cons e-39 e-39) '())) eta-0))))) ((9) (let ((e-41 (vector-ref arg-3 2))) (let ((e-42 (vector-ref arg-3 3))) (lambda (eta-0) (TTImpC-45WithClause-matchAll arg-0 arg-1 1 (cons (cons e-41 arg-4) (cons (cons e-42 e-42) '())) eta-0)))))(else (case (vector-ref arg-4 0) ((10) (let ((e-29 (vector-ref arg-4 1))) (lambda (eta-0) (TTImpC-45WithClause-matchFail e-29 eta-0)))) ((9) (let ((e-33 (vector-ref arg-4 1))) (lambda (eta-0) (TTImpC-45WithClause-matchFail e-33 eta-0))))(else (case (vector-ref arg-3 0) ((13) (let ((e-11 (vector-ref arg-3 1))) (let ((e-13 (vector-ref arg-3 3))) (case (vector-ref arg-4 0) ((13) (let ((e-21 (vector-ref arg-4 3))) (lambda (eta-0) (TTImpC-45WithClause-matchAny arg-0 arg-1 e-11 arg-2 (DataC-45List-u--zip_Zippable_List e-13 e-21) eta-0))))(else (case (vector-ref arg-4 0) ((18) (let ((e-10 (vector-ref arg-4 5))) (TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 arg-3 e-10)))(else (case (vector-ref arg-3 0) ((29) (lambda (clam-49) (case (vector-ref arg-4 0) ((29) (vector 1 '()))(else (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) clam-49))))) ((28) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (case (vector-ref arg-4 0) ((28) (let ((e-5 (vector-ref arg-4 2))) (lambda (clam-50) (let ((sc5 (CoreC-45TT-u--C-61C-61_Eq_Constant e-2 e-5))) (cond ((equal? sc5 1) (vector 1 '())) (else (TTImpC-45WithClause-matchFail e-1 clam-50)))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) eta-0)))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) eta-0))))))))))) ((18) (let ((e-17 (vector-ref arg-3 4))) (let ((e-18 (vector-ref arg-3 5))) (case (vector-ref e-17 0) ((1) (let ((e-22 (vector-ref e-17 1))) (lambda (clam-51) (case (vector-ref arg-4 0) ((18) (let ((e-24 (vector-ref arg-4 2))) (let ((e-26 (vector-ref arg-4 4))) (let ((e-27 (vector-ref arg-4 5))) (case (vector-ref e-26 0) ((1) (let ((e-28 (vector-ref e-26 1))) (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 e-18 e-27) clam-51))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (TTImpC-45WithClause-mergeMatches arg-0 arg-1 arg-2 (cons (cons e-22 (vector 17 e-24 e-28)) e-5) clam-51)))))))(else (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 e-18 arg-4) clam-51))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (TTImpC-45WithClause-mergeMatches arg-0 arg-1 arg-2 (cons (cons e-22 arg-4) e-5) clam-51)))))))))))(else (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 e-18 arg-4) clam-51))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (TTImpC-45WithClause-mergeMatches arg-0 arg-1 arg-2 (cons (cons e-22 arg-4) e-5) clam-51))))))))))(else (TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 e-18 arg-4))))))(else (case (vector-ref arg-4 0) ((18) (let ((e-10 (vector-ref arg-4 5))) (TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 arg-3 e-10)))(else (case (vector-ref arg-3 0) ((29) (lambda (clam-52) (case (vector-ref arg-4 0) ((29) (vector 1 '()))(else (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) clam-52))))) ((28) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (case (vector-ref arg-4 0) ((28) (let ((e-5 (vector-ref arg-4 2))) (lambda (clam-53) (let ((sc4 (CoreC-45TT-u--C-61C-61_Eq_Constant e-2 e-5))) (cond ((equal? sc4 1) (vector 1 '())) (else (TTImpC-45WithClause-matchFail e-1 clam-53)))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) eta-0)))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) eta-0))))))))))))) ((equal? arg-2 0) (case (vector-ref arg-3 0) ((10) (let ((e-44 (vector-ref arg-3 2))) (TTImpC-45WithClause-getMatch arg-0 arg-1 0 e-44 e-44))) ((9) (let ((e-48 (vector-ref arg-3 2))) (TTImpC-45WithClause-getMatch arg-0 arg-1 0 e-48 e-48)))(else (case (vector-ref arg-4 0) ((10) (let ((e-29 (vector-ref arg-4 1))) (lambda (eta-0) (TTImpC-45WithClause-matchFail e-29 eta-0)))) ((9) (let ((e-33 (vector-ref arg-4 1))) (lambda (eta-0) (TTImpC-45WithClause-matchFail e-33 eta-0))))(else (case (vector-ref arg-3 0) ((13) (let ((e-11 (vector-ref arg-3 1))) (let ((e-13 (vector-ref arg-3 3))) (case (vector-ref arg-4 0) ((13) (let ((e-21 (vector-ref arg-4 3))) (lambda (eta-0) (TTImpC-45WithClause-matchAny arg-0 arg-1 e-11 arg-2 (DataC-45List-u--zip_Zippable_List e-13 e-21) eta-0))))(else (case (vector-ref arg-4 0) ((18) (let ((e-10 (vector-ref arg-4 5))) (TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 arg-3 e-10)))(else (case (vector-ref arg-3 0) ((29) (lambda (clam-54) (case (vector-ref arg-4 0) ((29) (vector 1 '()))(else (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) clam-54))))) ((28) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (case (vector-ref arg-4 0) ((28) (let ((e-5 (vector-ref arg-4 2))) (lambda (clam-55) (let ((sc5 (CoreC-45TT-u--C-61C-61_Eq_Constant e-2 e-5))) (cond ((equal? sc5 1) (vector 1 '())) (else (TTImpC-45WithClause-matchFail e-1 clam-55)))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) eta-0)))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) eta-0))))))))))) ((18) (let ((e-17 (vector-ref arg-3 4))) (let ((e-18 (vector-ref arg-3 5))) (case (vector-ref e-17 0) ((1) (let ((e-22 (vector-ref e-17 1))) (lambda (clam-56) (case (vector-ref arg-4 0) ((18) (let ((e-24 (vector-ref arg-4 2))) (let ((e-26 (vector-ref arg-4 4))) (let ((e-27 (vector-ref arg-4 5))) (case (vector-ref e-26 0) ((1) (let ((e-28 (vector-ref e-26 1))) (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 e-18 e-27) clam-56))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (TTImpC-45WithClause-mergeMatches arg-0 arg-1 arg-2 (cons (cons e-22 (vector 17 e-24 e-28)) e-5) clam-56)))))))(else (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 e-18 arg-4) clam-56))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (TTImpC-45WithClause-mergeMatches arg-0 arg-1 arg-2 (cons (cons e-22 arg-4) e-5) clam-56)))))))))))(else (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 e-18 arg-4) clam-56))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (TTImpC-45WithClause-mergeMatches arg-0 arg-1 arg-2 (cons (cons e-22 arg-4) e-5) clam-56))))))))))(else (TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 e-18 arg-4))))))(else (case (vector-ref arg-4 0) ((18) (let ((e-10 (vector-ref arg-4 5))) (TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 arg-3 e-10)))(else (case (vector-ref arg-3 0) ((29) (lambda (clam-57) (case (vector-ref arg-4 0) ((29) (vector 1 '()))(else (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) clam-57))))) ((28) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (case (vector-ref arg-4 0) ((28) (let ((e-5 (vector-ref arg-4 2))) (lambda (clam-58) (let ((sc4 (CoreC-45TT-u--C-61C-61_Eq_Constant e-2 e-5))) (cond ((equal? sc4 1) (vector 1 '())) (else (TTImpC-45WithClause-matchFail e-1 clam-58)))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) eta-0)))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) eta-0)))))))))))))(else (case (vector-ref arg-4 0) ((10) (let ((e-29 (vector-ref arg-4 1))) (lambda (eta-0) (TTImpC-45WithClause-matchFail e-29 eta-0)))) ((9) (let ((e-33 (vector-ref arg-4 1))) (lambda (eta-0) (TTImpC-45WithClause-matchFail e-33 eta-0))))(else (case (vector-ref arg-3 0) ((13) (let ((e-11 (vector-ref arg-3 1))) (let ((e-13 (vector-ref arg-3 3))) (case (vector-ref arg-4 0) ((13) (let ((e-21 (vector-ref arg-4 3))) (lambda (eta-0) (TTImpC-45WithClause-matchAny arg-0 arg-1 e-11 arg-2 (DataC-45List-u--zip_Zippable_List e-13 e-21) eta-0))))(else (case (vector-ref arg-4 0) ((18) (let ((e-10 (vector-ref arg-4 5))) (TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 arg-3 e-10)))(else (case (vector-ref arg-3 0) ((29) (lambda (clam-59) (case (vector-ref arg-4 0) ((29) (vector 1 '()))(else (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) clam-59))))) ((28) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (case (vector-ref arg-4 0) ((28) (let ((e-5 (vector-ref arg-4 2))) (lambda (clam-60) (let ((sc4 (CoreC-45TT-u--C-61C-61_Eq_Constant e-2 e-5))) (cond ((equal? sc4 1) (vector 1 '())) (else (TTImpC-45WithClause-matchFail e-1 clam-60)))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) eta-0)))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) eta-0))))))))))) ((18) (let ((e-17 (vector-ref arg-3 4))) (let ((e-18 (vector-ref arg-3 5))) (case (vector-ref e-17 0) ((1) (let ((e-22 (vector-ref e-17 1))) (lambda (clam-61) (case (vector-ref arg-4 0) ((18) (let ((e-24 (vector-ref arg-4 2))) (let ((e-26 (vector-ref arg-4 4))) (let ((e-27 (vector-ref arg-4 5))) (case (vector-ref e-26 0) ((1) (let ((e-28 (vector-ref e-26 1))) (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 e-18 e-27) clam-61))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (TTImpC-45WithClause-mergeMatches arg-0 arg-1 arg-2 (cons (cons e-22 (vector 17 e-24 e-28)) e-5) clam-61)))))))(else (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 e-18 arg-4) clam-61))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (TTImpC-45WithClause-mergeMatches arg-0 arg-1 arg-2 (cons (cons e-22 arg-4) e-5) clam-61)))))))))))(else (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 e-18 arg-4) clam-61))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (TTImpC-45WithClause-mergeMatches arg-0 arg-1 arg-2 (cons (cons e-22 arg-4) e-5) clam-61))))))))))(else (TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 e-18 arg-4))))))(else (case (vector-ref arg-4 0) ((18) (let ((e-10 (vector-ref arg-4 5))) (TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 arg-3 e-10)))(else (case (vector-ref arg-3 0) ((29) (lambda (clam-62) (case (vector-ref arg-4 0) ((29) (vector 1 '()))(else (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) clam-62))))) ((28) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (case (vector-ref arg-4 0) ((28) (let ((e-5 (vector-ref arg-4 2))) (lambda (clam-63) (let ((sc3 (CoreC-45TT-u--C-61C-61_Eq_Constant e-2 e-5))) (cond ((equal? sc3 1) (vector 1 '())) (else (TTImpC-45WithClause-matchFail e-1 clam-63)))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) eta-0)))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) eta-0))))))))))))))))) ((9) (let ((e-66 (vector-ref arg-3 2))) (let ((e-67 (vector-ref arg-3 3))) (case (vector-ref arg-4 0) ((9) (let ((e-95 (vector-ref arg-4 2))) (let ((e-96 (vector-ref arg-4 3))) (lambda (eta-0) (TTImpC-45WithClause-matchAll arg-0 arg-1 arg-2 (cons (cons e-66 e-95) (cons (cons e-67 e-96) '())) eta-0)))))(else (cond ((equal? arg-2 1) (case (vector-ref arg-3 0) ((10) (let ((e-37 (vector-ref arg-3 2))) (let ((e-39 (vector-ref arg-3 4))) (lambda (eta-0) (TTImpC-45WithClause-matchAll arg-0 arg-1 1 (cons (cons e-37 arg-4) (cons (cons e-39 e-39) '())) eta-0))))) ((9) (let ((e-41 (vector-ref arg-3 2))) (let ((e-42 (vector-ref arg-3 3))) (lambda (eta-0) (TTImpC-45WithClause-matchAll arg-0 arg-1 1 (cons (cons e-41 arg-4) (cons (cons e-42 e-42) '())) eta-0)))))(else (case (vector-ref arg-4 0) ((10) (let ((e-29 (vector-ref arg-4 1))) (lambda (eta-0) (TTImpC-45WithClause-matchFail e-29 eta-0)))) ((9) (let ((e-33 (vector-ref arg-4 1))) (lambda (eta-0) (TTImpC-45WithClause-matchFail e-33 eta-0))))(else (case (vector-ref arg-3 0) ((13) (let ((e-11 (vector-ref arg-3 1))) (let ((e-13 (vector-ref arg-3 3))) (case (vector-ref arg-4 0) ((13) (let ((e-21 (vector-ref arg-4 3))) (lambda (eta-0) (TTImpC-45WithClause-matchAny arg-0 arg-1 e-11 arg-2 (DataC-45List-u--zip_Zippable_List e-13 e-21) eta-0))))(else (case (vector-ref arg-4 0) ((18) (let ((e-10 (vector-ref arg-4 5))) (TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 arg-3 e-10)))(else (case (vector-ref arg-3 0) ((29) (lambda (clam-64) (case (vector-ref arg-4 0) ((29) (vector 1 '()))(else (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) clam-64))))) ((28) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (case (vector-ref arg-4 0) ((28) (let ((e-5 (vector-ref arg-4 2))) (lambda (clam-65) (let ((sc5 (CoreC-45TT-u--C-61C-61_Eq_Constant e-2 e-5))) (cond ((equal? sc5 1) (vector 1 '())) (else (TTImpC-45WithClause-matchFail e-1 clam-65)))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) eta-0)))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) eta-0))))))))))) ((18) (let ((e-17 (vector-ref arg-3 4))) (let ((e-18 (vector-ref arg-3 5))) (case (vector-ref e-17 0) ((1) (let ((e-22 (vector-ref e-17 1))) (lambda (clam-66) (case (vector-ref arg-4 0) ((18) (let ((e-24 (vector-ref arg-4 2))) (let ((e-26 (vector-ref arg-4 4))) (let ((e-27 (vector-ref arg-4 5))) (case (vector-ref e-26 0) ((1) (let ((e-28 (vector-ref e-26 1))) (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 e-18 e-27) clam-66))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (TTImpC-45WithClause-mergeMatches arg-0 arg-1 arg-2 (cons (cons e-22 (vector 17 e-24 e-28)) e-5) clam-66)))))))(else (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 e-18 arg-4) clam-66))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (TTImpC-45WithClause-mergeMatches arg-0 arg-1 arg-2 (cons (cons e-22 arg-4) e-5) clam-66)))))))))))(else (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 e-18 arg-4) clam-66))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (TTImpC-45WithClause-mergeMatches arg-0 arg-1 arg-2 (cons (cons e-22 arg-4) e-5) clam-66))))))))))(else (TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 e-18 arg-4))))))(else (case (vector-ref arg-4 0) ((18) (let ((e-10 (vector-ref arg-4 5))) (TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 arg-3 e-10)))(else (case (vector-ref arg-3 0) ((29) (lambda (clam-67) (case (vector-ref arg-4 0) ((29) (vector 1 '()))(else (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) clam-67))))) ((28) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (case (vector-ref arg-4 0) ((28) (let ((e-5 (vector-ref arg-4 2))) (lambda (clam-68) (let ((sc4 (CoreC-45TT-u--C-61C-61_Eq_Constant e-2 e-5))) (cond ((equal? sc4 1) (vector 1 '())) (else (TTImpC-45WithClause-matchFail e-1 clam-68)))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) eta-0)))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) eta-0))))))))))))) ((equal? arg-2 0) (case (vector-ref arg-3 0) ((10) (let ((e-44 (vector-ref arg-3 2))) (TTImpC-45WithClause-getMatch arg-0 arg-1 0 e-44 e-44))) ((9) (let ((e-48 (vector-ref arg-3 2))) (TTImpC-45WithClause-getMatch arg-0 arg-1 0 e-48 e-48)))(else (case (vector-ref arg-4 0) ((10) (let ((e-29 (vector-ref arg-4 1))) (lambda (eta-0) (TTImpC-45WithClause-matchFail e-29 eta-0)))) ((9) (let ((e-33 (vector-ref arg-4 1))) (lambda (eta-0) (TTImpC-45WithClause-matchFail e-33 eta-0))))(else (case (vector-ref arg-3 0) ((13) (let ((e-11 (vector-ref arg-3 1))) (let ((e-13 (vector-ref arg-3 3))) (case (vector-ref arg-4 0) ((13) (let ((e-21 (vector-ref arg-4 3))) (lambda (eta-0) (TTImpC-45WithClause-matchAny arg-0 arg-1 e-11 arg-2 (DataC-45List-u--zip_Zippable_List e-13 e-21) eta-0))))(else (case (vector-ref arg-4 0) ((18) (let ((e-10 (vector-ref arg-4 5))) (TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 arg-3 e-10)))(else (case (vector-ref arg-3 0) ((29) (lambda (clam-69) (case (vector-ref arg-4 0) ((29) (vector 1 '()))(else (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) clam-69))))) ((28) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (case (vector-ref arg-4 0) ((28) (let ((e-5 (vector-ref arg-4 2))) (lambda (clam-70) (let ((sc5 (CoreC-45TT-u--C-61C-61_Eq_Constant e-2 e-5))) (cond ((equal? sc5 1) (vector 1 '())) (else (TTImpC-45WithClause-matchFail e-1 clam-70)))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) eta-0)))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) eta-0))))))))))) ((18) (let ((e-17 (vector-ref arg-3 4))) (let ((e-18 (vector-ref arg-3 5))) (case (vector-ref e-17 0) ((1) (let ((e-22 (vector-ref e-17 1))) (lambda (clam-71) (case (vector-ref arg-4 0) ((18) (let ((e-24 (vector-ref arg-4 2))) (let ((e-26 (vector-ref arg-4 4))) (let ((e-27 (vector-ref arg-4 5))) (case (vector-ref e-26 0) ((1) (let ((e-28 (vector-ref e-26 1))) (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 e-18 e-27) clam-71))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (TTImpC-45WithClause-mergeMatches arg-0 arg-1 arg-2 (cons (cons e-22 (vector 17 e-24 e-28)) e-5) clam-71)))))))(else (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 e-18 arg-4) clam-71))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (TTImpC-45WithClause-mergeMatches arg-0 arg-1 arg-2 (cons (cons e-22 arg-4) e-5) clam-71)))))))))))(else (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 e-18 arg-4) clam-71))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (TTImpC-45WithClause-mergeMatches arg-0 arg-1 arg-2 (cons (cons e-22 arg-4) e-5) clam-71))))))))))(else (TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 e-18 arg-4))))))(else (case (vector-ref arg-4 0) ((18) (let ((e-10 (vector-ref arg-4 5))) (TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 arg-3 e-10)))(else (case (vector-ref arg-3 0) ((29) (lambda (clam-72) (case (vector-ref arg-4 0) ((29) (vector 1 '()))(else (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) clam-72))))) ((28) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (case (vector-ref arg-4 0) ((28) (let ((e-5 (vector-ref arg-4 2))) (lambda (clam-73) (let ((sc4 (CoreC-45TT-u--C-61C-61_Eq_Constant e-2 e-5))) (cond ((equal? sc4 1) (vector 1 '())) (else (TTImpC-45WithClause-matchFail e-1 clam-73)))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) eta-0)))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) eta-0)))))))))))))(else (case (vector-ref arg-4 0) ((10) (let ((e-29 (vector-ref arg-4 1))) (lambda (eta-0) (TTImpC-45WithClause-matchFail e-29 eta-0)))) ((9) (let ((e-33 (vector-ref arg-4 1))) (lambda (eta-0) (TTImpC-45WithClause-matchFail e-33 eta-0))))(else (case (vector-ref arg-3 0) ((13) (let ((e-11 (vector-ref arg-3 1))) (let ((e-13 (vector-ref arg-3 3))) (case (vector-ref arg-4 0) ((13) (let ((e-21 (vector-ref arg-4 3))) (lambda (eta-0) (TTImpC-45WithClause-matchAny arg-0 arg-1 e-11 arg-2 (DataC-45List-u--zip_Zippable_List e-13 e-21) eta-0))))(else (case (vector-ref arg-4 0) ((18) (let ((e-10 (vector-ref arg-4 5))) (TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 arg-3 e-10)))(else (case (vector-ref arg-3 0) ((29) (lambda (clam-74) (case (vector-ref arg-4 0) ((29) (vector 1 '()))(else (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) clam-74))))) ((28) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (case (vector-ref arg-4 0) ((28) (let ((e-5 (vector-ref arg-4 2))) (lambda (clam-75) (let ((sc4 (CoreC-45TT-u--C-61C-61_Eq_Constant e-2 e-5))) (cond ((equal? sc4 1) (vector 1 '())) (else (TTImpC-45WithClause-matchFail e-1 clam-75)))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) eta-0)))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) eta-0))))))))))) ((18) (let ((e-17 (vector-ref arg-3 4))) (let ((e-18 (vector-ref arg-3 5))) (case (vector-ref e-17 0) ((1) (let ((e-22 (vector-ref e-17 1))) (lambda (clam-76) (case (vector-ref arg-4 0) ((18) (let ((e-24 (vector-ref arg-4 2))) (let ((e-26 (vector-ref arg-4 4))) (let ((e-27 (vector-ref arg-4 5))) (case (vector-ref e-26 0) ((1) (let ((e-28 (vector-ref e-26 1))) (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 e-18 e-27) clam-76))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (TTImpC-45WithClause-mergeMatches arg-0 arg-1 arg-2 (cons (cons e-22 (vector 17 e-24 e-28)) e-5) clam-76)))))))(else (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 e-18 arg-4) clam-76))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (TTImpC-45WithClause-mergeMatches arg-0 arg-1 arg-2 (cons (cons e-22 arg-4) e-5) clam-76)))))))))))(else (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 e-18 arg-4) clam-76))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (TTImpC-45WithClause-mergeMatches arg-0 arg-1 arg-2 (cons (cons e-22 arg-4) e-5) clam-76))))))))))(else (TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 e-18 arg-4))))))(else (case (vector-ref arg-4 0) ((18) (let ((e-10 (vector-ref arg-4 5))) (TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 arg-3 e-10)))(else (case (vector-ref arg-3 0) ((29) (lambda (clam-77) (case (vector-ref arg-4 0) ((29) (vector 1 '()))(else (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) clam-77))))) ((28) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (case (vector-ref arg-4 0) ((28) (let ((e-5 (vector-ref arg-4 2))) (lambda (clam-78) (let ((sc3 (CoreC-45TT-u--C-61C-61_Eq_Constant e-2 e-5))) (cond ((equal? sc3 1) (vector 1 '())) (else (TTImpC-45WithClause-matchFail e-1 clam-78)))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) eta-0)))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) eta-0))))))))))))))))) ((10) (let ((e-69 (vector-ref arg-3 2))) (let ((e-70 (vector-ref arg-3 3))) (let ((e-71 (vector-ref arg-3 4))) (case (vector-ref arg-4 0) ((10) (let ((e-97 (vector-ref arg-4 1))) (let ((e-98 (vector-ref arg-4 2))) (let ((e-99 (vector-ref arg-4 3))) (let ((e-100 (vector-ref arg-4 4))) (let ((sc2 (CoreC-45Name-u--C-61C-61_Eq_Name e-70 e-99))) (cond ((equal? sc2 1) (lambda (eta-0) (TTImpC-45WithClause-matchAll arg-0 arg-1 arg-2 (cons (cons e-69 e-98) (cons (cons e-71 e-100) '())) eta-0))) (else (lambda (eta-0) (TTImpC-45WithClause-matchFail e-97 eta-0))))))))))(else (cond ((equal? arg-2 1) (case (vector-ref arg-3 0) ((10) (let ((e-37 (vector-ref arg-3 2))) (let ((e-39 (vector-ref arg-3 4))) (lambda (eta-0) (TTImpC-45WithClause-matchAll arg-0 arg-1 1 (cons (cons e-37 arg-4) (cons (cons e-39 e-39) '())) eta-0))))) ((9) (let ((e-41 (vector-ref arg-3 2))) (let ((e-42 (vector-ref arg-3 3))) (lambda (eta-0) (TTImpC-45WithClause-matchAll arg-0 arg-1 1 (cons (cons e-41 arg-4) (cons (cons e-42 e-42) '())) eta-0)))))(else (case (vector-ref arg-4 0) ((10) (let ((e-29 (vector-ref arg-4 1))) (lambda (eta-0) (TTImpC-45WithClause-matchFail e-29 eta-0)))) ((9) (let ((e-33 (vector-ref arg-4 1))) (lambda (eta-0) (TTImpC-45WithClause-matchFail e-33 eta-0))))(else (case (vector-ref arg-3 0) ((13) (let ((e-11 (vector-ref arg-3 1))) (let ((e-13 (vector-ref arg-3 3))) (case (vector-ref arg-4 0) ((13) (let ((e-21 (vector-ref arg-4 3))) (lambda (eta-0) (TTImpC-45WithClause-matchAny arg-0 arg-1 e-11 arg-2 (DataC-45List-u--zip_Zippable_List e-13 e-21) eta-0))))(else (case (vector-ref arg-4 0) ((18) (let ((e-10 (vector-ref arg-4 5))) (TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 arg-3 e-10)))(else (case (vector-ref arg-3 0) ((29) (lambda (clam-79) (case (vector-ref arg-4 0) ((29) (vector 1 '()))(else (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) clam-79))))) ((28) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (case (vector-ref arg-4 0) ((28) (let ((e-5 (vector-ref arg-4 2))) (lambda (clam-80) (let ((sc5 (CoreC-45TT-u--C-61C-61_Eq_Constant e-2 e-5))) (cond ((equal? sc5 1) (vector 1 '())) (else (TTImpC-45WithClause-matchFail e-1 clam-80)))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) eta-0)))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) eta-0))))))))))) ((18) (let ((e-17 (vector-ref arg-3 4))) (let ((e-18 (vector-ref arg-3 5))) (case (vector-ref e-17 0) ((1) (let ((e-22 (vector-ref e-17 1))) (lambda (clam-81) (case (vector-ref arg-4 0) ((18) (let ((e-24 (vector-ref arg-4 2))) (let ((e-26 (vector-ref arg-4 4))) (let ((e-27 (vector-ref arg-4 5))) (case (vector-ref e-26 0) ((1) (let ((e-28 (vector-ref e-26 1))) (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 e-18 e-27) clam-81))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (TTImpC-45WithClause-mergeMatches arg-0 arg-1 arg-2 (cons (cons e-22 (vector 17 e-24 e-28)) e-5) clam-81)))))))(else (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 e-18 arg-4) clam-81))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (TTImpC-45WithClause-mergeMatches arg-0 arg-1 arg-2 (cons (cons e-22 arg-4) e-5) clam-81)))))))))))(else (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 e-18 arg-4) clam-81))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (TTImpC-45WithClause-mergeMatches arg-0 arg-1 arg-2 (cons (cons e-22 arg-4) e-5) clam-81))))))))))(else (TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 e-18 arg-4))))))(else (case (vector-ref arg-4 0) ((18) (let ((e-10 (vector-ref arg-4 5))) (TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 arg-3 e-10)))(else (case (vector-ref arg-3 0) ((29) (lambda (clam-82) (case (vector-ref arg-4 0) ((29) (vector 1 '()))(else (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) clam-82))))) ((28) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (case (vector-ref arg-4 0) ((28) (let ((e-5 (vector-ref arg-4 2))) (lambda (clam-83) (let ((sc4 (CoreC-45TT-u--C-61C-61_Eq_Constant e-2 e-5))) (cond ((equal? sc4 1) (vector 1 '())) (else (TTImpC-45WithClause-matchFail e-1 clam-83)))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) eta-0)))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) eta-0))))))))))))) ((equal? arg-2 0) (case (vector-ref arg-3 0) ((10) (let ((e-44 (vector-ref arg-3 2))) (TTImpC-45WithClause-getMatch arg-0 arg-1 0 e-44 e-44))) ((9) (let ((e-48 (vector-ref arg-3 2))) (TTImpC-45WithClause-getMatch arg-0 arg-1 0 e-48 e-48)))(else (case (vector-ref arg-4 0) ((10) (let ((e-29 (vector-ref arg-4 1))) (lambda (eta-0) (TTImpC-45WithClause-matchFail e-29 eta-0)))) ((9) (let ((e-33 (vector-ref arg-4 1))) (lambda (eta-0) (TTImpC-45WithClause-matchFail e-33 eta-0))))(else (case (vector-ref arg-3 0) ((13) (let ((e-11 (vector-ref arg-3 1))) (let ((e-13 (vector-ref arg-3 3))) (case (vector-ref arg-4 0) ((13) (let ((e-21 (vector-ref arg-4 3))) (lambda (eta-0) (TTImpC-45WithClause-matchAny arg-0 arg-1 e-11 arg-2 (DataC-45List-u--zip_Zippable_List e-13 e-21) eta-0))))(else (case (vector-ref arg-4 0) ((18) (let ((e-10 (vector-ref arg-4 5))) (TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 arg-3 e-10)))(else (case (vector-ref arg-3 0) ((29) (lambda (clam-84) (case (vector-ref arg-4 0) ((29) (vector 1 '()))(else (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) clam-84))))) ((28) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (case (vector-ref arg-4 0) ((28) (let ((e-5 (vector-ref arg-4 2))) (lambda (clam-85) (let ((sc5 (CoreC-45TT-u--C-61C-61_Eq_Constant e-2 e-5))) (cond ((equal? sc5 1) (vector 1 '())) (else (TTImpC-45WithClause-matchFail e-1 clam-85)))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) eta-0)))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) eta-0))))))))))) ((18) (let ((e-17 (vector-ref arg-3 4))) (let ((e-18 (vector-ref arg-3 5))) (case (vector-ref e-17 0) ((1) (let ((e-22 (vector-ref e-17 1))) (lambda (clam-86) (case (vector-ref arg-4 0) ((18) (let ((e-24 (vector-ref arg-4 2))) (let ((e-26 (vector-ref arg-4 4))) (let ((e-27 (vector-ref arg-4 5))) (case (vector-ref e-26 0) ((1) (let ((e-28 (vector-ref e-26 1))) (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 e-18 e-27) clam-86))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (TTImpC-45WithClause-mergeMatches arg-0 arg-1 arg-2 (cons (cons e-22 (vector 17 e-24 e-28)) e-5) clam-86)))))))(else (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 e-18 arg-4) clam-86))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (TTImpC-45WithClause-mergeMatches arg-0 arg-1 arg-2 (cons (cons e-22 arg-4) e-5) clam-86)))))))))))(else (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 e-18 arg-4) clam-86))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (TTImpC-45WithClause-mergeMatches arg-0 arg-1 arg-2 (cons (cons e-22 arg-4) e-5) clam-86))))))))))(else (TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 e-18 arg-4))))))(else (case (vector-ref arg-4 0) ((18) (let ((e-10 (vector-ref arg-4 5))) (TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 arg-3 e-10)))(else (case (vector-ref arg-3 0) ((29) (lambda (clam-87) (case (vector-ref arg-4 0) ((29) (vector 1 '()))(else (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) clam-87))))) ((28) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (case (vector-ref arg-4 0) ((28) (let ((e-5 (vector-ref arg-4 2))) (lambda (clam-88) (let ((sc4 (CoreC-45TT-u--C-61C-61_Eq_Constant e-2 e-5))) (cond ((equal? sc4 1) (vector 1 '())) (else (TTImpC-45WithClause-matchFail e-1 clam-88)))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) eta-0)))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) eta-0)))))))))))))(else (case (vector-ref arg-4 0) ((10) (let ((e-29 (vector-ref arg-4 1))) (lambda (eta-0) (TTImpC-45WithClause-matchFail e-29 eta-0)))) ((9) (let ((e-33 (vector-ref arg-4 1))) (lambda (eta-0) (TTImpC-45WithClause-matchFail e-33 eta-0))))(else (case (vector-ref arg-3 0) ((13) (let ((e-11 (vector-ref arg-3 1))) (let ((e-13 (vector-ref arg-3 3))) (case (vector-ref arg-4 0) ((13) (let ((e-21 (vector-ref arg-4 3))) (lambda (eta-0) (TTImpC-45WithClause-matchAny arg-0 arg-1 e-11 arg-2 (DataC-45List-u--zip_Zippable_List e-13 e-21) eta-0))))(else (case (vector-ref arg-4 0) ((18) (let ((e-10 (vector-ref arg-4 5))) (TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 arg-3 e-10)))(else (case (vector-ref arg-3 0) ((29) (lambda (clam-89) (case (vector-ref arg-4 0) ((29) (vector 1 '()))(else (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) clam-89))))) ((28) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (case (vector-ref arg-4 0) ((28) (let ((e-5 (vector-ref arg-4 2))) (lambda (clam-90) (let ((sc4 (CoreC-45TT-u--C-61C-61_Eq_Constant e-2 e-5))) (cond ((equal? sc4 1) (vector 1 '())) (else (TTImpC-45WithClause-matchFail e-1 clam-90)))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) eta-0)))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) eta-0))))))))))) ((18) (let ((e-17 (vector-ref arg-3 4))) (let ((e-18 (vector-ref arg-3 5))) (case (vector-ref e-17 0) ((1) (let ((e-22 (vector-ref e-17 1))) (lambda (clam-91) (case (vector-ref arg-4 0) ((18) (let ((e-24 (vector-ref arg-4 2))) (let ((e-26 (vector-ref arg-4 4))) (let ((e-27 (vector-ref arg-4 5))) (case (vector-ref e-26 0) ((1) (let ((e-28 (vector-ref e-26 1))) (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 e-18 e-27) clam-91))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (TTImpC-45WithClause-mergeMatches arg-0 arg-1 arg-2 (cons (cons e-22 (vector 17 e-24 e-28)) e-5) clam-91)))))))(else (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 e-18 arg-4) clam-91))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (TTImpC-45WithClause-mergeMatches arg-0 arg-1 arg-2 (cons (cons e-22 arg-4) e-5) clam-91)))))))))))(else (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 e-18 arg-4) clam-91))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (TTImpC-45WithClause-mergeMatches arg-0 arg-1 arg-2 (cons (cons e-22 arg-4) e-5) clam-91))))))))))(else (TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 e-18 arg-4))))))(else (case (vector-ref arg-4 0) ((18) (let ((e-10 (vector-ref arg-4 5))) (TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 arg-3 e-10)))(else (case (vector-ref arg-3 0) ((29) (lambda (clam-92) (case (vector-ref arg-4 0) ((29) (vector 1 '()))(else (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) clam-92))))) ((28) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (case (vector-ref arg-4 0) ((28) (let ((e-5 (vector-ref arg-4 2))) (lambda (clam-93) (let ((sc3 (CoreC-45TT-u--C-61C-61_Eq_Constant e-2 e-5))) (cond ((equal? sc3 1) (vector 1 '())) (else (TTImpC-45WithClause-matchFail e-1 clam-93)))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) eta-0)))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) eta-0)))))))))))))))))) ((11) (let ((e-73 (vector-ref arg-3 2))) (let ((e-74 (vector-ref arg-3 3))) (case (vector-ref arg-4 0) ((11) (let ((e-102 (vector-ref arg-4 2))) (let ((e-103 (vector-ref arg-4 3))) (lambda (eta-0) (TTImpC-45WithClause-matchAll arg-0 arg-1 arg-2 (cons (cons e-73 e-102) (cons (cons e-74 e-103) '())) eta-0)))))(else (cond ((equal? arg-2 1) (case (vector-ref arg-3 0) ((10) (let ((e-37 (vector-ref arg-3 2))) (let ((e-39 (vector-ref arg-3 4))) (lambda (eta-0) (TTImpC-45WithClause-matchAll arg-0 arg-1 1 (cons (cons e-37 arg-4) (cons (cons e-39 e-39) '())) eta-0))))) ((9) (let ((e-41 (vector-ref arg-3 2))) (let ((e-42 (vector-ref arg-3 3))) (lambda (eta-0) (TTImpC-45WithClause-matchAll arg-0 arg-1 1 (cons (cons e-41 arg-4) (cons (cons e-42 e-42) '())) eta-0)))))(else (case (vector-ref arg-4 0) ((10) (let ((e-29 (vector-ref arg-4 1))) (lambda (eta-0) (TTImpC-45WithClause-matchFail e-29 eta-0)))) ((9) (let ((e-33 (vector-ref arg-4 1))) (lambda (eta-0) (TTImpC-45WithClause-matchFail e-33 eta-0))))(else (case (vector-ref arg-3 0) ((13) (let ((e-11 (vector-ref arg-3 1))) (let ((e-13 (vector-ref arg-3 3))) (case (vector-ref arg-4 0) ((13) (let ((e-21 (vector-ref arg-4 3))) (lambda (eta-0) (TTImpC-45WithClause-matchAny arg-0 arg-1 e-11 arg-2 (DataC-45List-u--zip_Zippable_List e-13 e-21) eta-0))))(else (case (vector-ref arg-4 0) ((18) (let ((e-10 (vector-ref arg-4 5))) (TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 arg-3 e-10)))(else (case (vector-ref arg-3 0) ((29) (lambda (clam-94) (case (vector-ref arg-4 0) ((29) (vector 1 '()))(else (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) clam-94))))) ((28) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (case (vector-ref arg-4 0) ((28) (let ((e-5 (vector-ref arg-4 2))) (lambda (clam-95) (let ((sc5 (CoreC-45TT-u--C-61C-61_Eq_Constant e-2 e-5))) (cond ((equal? sc5 1) (vector 1 '())) (else (TTImpC-45WithClause-matchFail e-1 clam-95)))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) eta-0)))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) eta-0))))))))))) ((18) (let ((e-17 (vector-ref arg-3 4))) (let ((e-18 (vector-ref arg-3 5))) (case (vector-ref e-17 0) ((1) (let ((e-22 (vector-ref e-17 1))) (lambda (clam-96) (case (vector-ref arg-4 0) ((18) (let ((e-24 (vector-ref arg-4 2))) (let ((e-26 (vector-ref arg-4 4))) (let ((e-27 (vector-ref arg-4 5))) (case (vector-ref e-26 0) ((1) (let ((e-28 (vector-ref e-26 1))) (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 e-18 e-27) clam-96))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (TTImpC-45WithClause-mergeMatches arg-0 arg-1 arg-2 (cons (cons e-22 (vector 17 e-24 e-28)) e-5) clam-96)))))))(else (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 e-18 arg-4) clam-96))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (TTImpC-45WithClause-mergeMatches arg-0 arg-1 arg-2 (cons (cons e-22 arg-4) e-5) clam-96)))))))))))(else (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 e-18 arg-4) clam-96))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (TTImpC-45WithClause-mergeMatches arg-0 arg-1 arg-2 (cons (cons e-22 arg-4) e-5) clam-96))))))))))(else (TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 e-18 arg-4))))))(else (case (vector-ref arg-4 0) ((18) (let ((e-10 (vector-ref arg-4 5))) (TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 arg-3 e-10)))(else (case (vector-ref arg-3 0) ((29) (lambda (clam-97) (case (vector-ref arg-4 0) ((29) (vector 1 '()))(else (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) clam-97))))) ((28) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (case (vector-ref arg-4 0) ((28) (let ((e-5 (vector-ref arg-4 2))) (lambda (clam-98) (let ((sc4 (CoreC-45TT-u--C-61C-61_Eq_Constant e-2 e-5))) (cond ((equal? sc4 1) (vector 1 '())) (else (TTImpC-45WithClause-matchFail e-1 clam-98)))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) eta-0)))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) eta-0))))))))))))) ((equal? arg-2 0) (case (vector-ref arg-3 0) ((10) (let ((e-44 (vector-ref arg-3 2))) (TTImpC-45WithClause-getMatch arg-0 arg-1 0 e-44 e-44))) ((9) (let ((e-48 (vector-ref arg-3 2))) (TTImpC-45WithClause-getMatch arg-0 arg-1 0 e-48 e-48)))(else (case (vector-ref arg-4 0) ((10) (let ((e-29 (vector-ref arg-4 1))) (lambda (eta-0) (TTImpC-45WithClause-matchFail e-29 eta-0)))) ((9) (let ((e-33 (vector-ref arg-4 1))) (lambda (eta-0) (TTImpC-45WithClause-matchFail e-33 eta-0))))(else (case (vector-ref arg-3 0) ((13) (let ((e-11 (vector-ref arg-3 1))) (let ((e-13 (vector-ref arg-3 3))) (case (vector-ref arg-4 0) ((13) (let ((e-21 (vector-ref arg-4 3))) (lambda (eta-0) (TTImpC-45WithClause-matchAny arg-0 arg-1 e-11 arg-2 (DataC-45List-u--zip_Zippable_List e-13 e-21) eta-0))))(else (case (vector-ref arg-4 0) ((18) (let ((e-10 (vector-ref arg-4 5))) (TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 arg-3 e-10)))(else (case (vector-ref arg-3 0) ((29) (lambda (clam-99) (case (vector-ref arg-4 0) ((29) (vector 1 '()))(else (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) clam-99))))) ((28) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (case (vector-ref arg-4 0) ((28) (let ((e-5 (vector-ref arg-4 2))) (lambda (clam-100) (let ((sc5 (CoreC-45TT-u--C-61C-61_Eq_Constant e-2 e-5))) (cond ((equal? sc5 1) (vector 1 '())) (else (TTImpC-45WithClause-matchFail e-1 clam-100)))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) eta-0)))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) eta-0))))))))))) ((18) (let ((e-17 (vector-ref arg-3 4))) (let ((e-18 (vector-ref arg-3 5))) (case (vector-ref e-17 0) ((1) (let ((e-22 (vector-ref e-17 1))) (lambda (clam-101) (case (vector-ref arg-4 0) ((18) (let ((e-24 (vector-ref arg-4 2))) (let ((e-26 (vector-ref arg-4 4))) (let ((e-27 (vector-ref arg-4 5))) (case (vector-ref e-26 0) ((1) (let ((e-28 (vector-ref e-26 1))) (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 e-18 e-27) clam-101))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (TTImpC-45WithClause-mergeMatches arg-0 arg-1 arg-2 (cons (cons e-22 (vector 17 e-24 e-28)) e-5) clam-101)))))))(else (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 e-18 arg-4) clam-101))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (TTImpC-45WithClause-mergeMatches arg-0 arg-1 arg-2 (cons (cons e-22 arg-4) e-5) clam-101)))))))))))(else (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 e-18 arg-4) clam-101))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (TTImpC-45WithClause-mergeMatches arg-0 arg-1 arg-2 (cons (cons e-22 arg-4) e-5) clam-101))))))))))(else (TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 e-18 arg-4))))))(else (case (vector-ref arg-4 0) ((18) (let ((e-10 (vector-ref arg-4 5))) (TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 arg-3 e-10)))(else (case (vector-ref arg-3 0) ((29) (lambda (clam-102) (case (vector-ref arg-4 0) ((29) (vector 1 '()))(else (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) clam-102))))) ((28) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (case (vector-ref arg-4 0) ((28) (let ((e-5 (vector-ref arg-4 2))) (lambda (clam-103) (let ((sc4 (CoreC-45TT-u--C-61C-61_Eq_Constant e-2 e-5))) (cond ((equal? sc4 1) (vector 1 '())) (else (TTImpC-45WithClause-matchFail e-1 clam-103)))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) eta-0)))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) eta-0)))))))))))))(else (case (vector-ref arg-4 0) ((10) (let ((e-29 (vector-ref arg-4 1))) (lambda (eta-0) (TTImpC-45WithClause-matchFail e-29 eta-0)))) ((9) (let ((e-33 (vector-ref arg-4 1))) (lambda (eta-0) (TTImpC-45WithClause-matchFail e-33 eta-0))))(else (case (vector-ref arg-3 0) ((13) (let ((e-11 (vector-ref arg-3 1))) (let ((e-13 (vector-ref arg-3 3))) (case (vector-ref arg-4 0) ((13) (let ((e-21 (vector-ref arg-4 3))) (lambda (eta-0) (TTImpC-45WithClause-matchAny arg-0 arg-1 e-11 arg-2 (DataC-45List-u--zip_Zippable_List e-13 e-21) eta-0))))(else (case (vector-ref arg-4 0) ((18) (let ((e-10 (vector-ref arg-4 5))) (TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 arg-3 e-10)))(else (case (vector-ref arg-3 0) ((29) (lambda (clam-104) (case (vector-ref arg-4 0) ((29) (vector 1 '()))(else (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) clam-104))))) ((28) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (case (vector-ref arg-4 0) ((28) (let ((e-5 (vector-ref arg-4 2))) (lambda (clam-105) (let ((sc4 (CoreC-45TT-u--C-61C-61_Eq_Constant e-2 e-5))) (cond ((equal? sc4 1) (vector 1 '())) (else (TTImpC-45WithClause-matchFail e-1 clam-105)))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) eta-0)))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) eta-0))))))))))) ((18) (let ((e-17 (vector-ref arg-3 4))) (let ((e-18 (vector-ref arg-3 5))) (case (vector-ref e-17 0) ((1) (let ((e-22 (vector-ref e-17 1))) (lambda (clam-106) (case (vector-ref arg-4 0) ((18) (let ((e-24 (vector-ref arg-4 2))) (let ((e-26 (vector-ref arg-4 4))) (let ((e-27 (vector-ref arg-4 5))) (case (vector-ref e-26 0) ((1) (let ((e-28 (vector-ref e-26 1))) (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 e-18 e-27) clam-106))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (TTImpC-45WithClause-mergeMatches arg-0 arg-1 arg-2 (cons (cons e-22 (vector 17 e-24 e-28)) e-5) clam-106)))))))(else (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 e-18 arg-4) clam-106))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (TTImpC-45WithClause-mergeMatches arg-0 arg-1 arg-2 (cons (cons e-22 arg-4) e-5) clam-106)))))))))))(else (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 e-18 arg-4) clam-106))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (TTImpC-45WithClause-mergeMatches arg-0 arg-1 arg-2 (cons (cons e-22 arg-4) e-5) clam-106))))))))))(else (TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 e-18 arg-4))))))(else (case (vector-ref arg-4 0) ((18) (let ((e-10 (vector-ref arg-4 5))) (TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 arg-3 e-10)))(else (case (vector-ref arg-3 0) ((29) (lambda (clam-107) (case (vector-ref arg-4 0) ((29) (vector 1 '()))(else (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) clam-107))))) ((28) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (case (vector-ref arg-4 0) ((28) (let ((e-5 (vector-ref arg-4 2))) (lambda (clam-108) (let ((sc3 (CoreC-45TT-u--C-61C-61_Eq_Constant e-2 e-5))) (cond ((equal? sc3 1) (vector 1 '())) (else (TTImpC-45WithClause-matchFail e-1 clam-108)))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) eta-0)))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) eta-0)))))))))))))))))(else (cond ((equal? arg-2 1) (case (vector-ref arg-3 0) ((10) (let ((e-37 (vector-ref arg-3 2))) (let ((e-39 (vector-ref arg-3 4))) (lambda (eta-0) (TTImpC-45WithClause-matchAll arg-0 arg-1 1 (cons (cons e-37 arg-4) (cons (cons e-39 e-39) '())) eta-0))))) ((9) (let ((e-41 (vector-ref arg-3 2))) (let ((e-42 (vector-ref arg-3 3))) (lambda (eta-0) (TTImpC-45WithClause-matchAll arg-0 arg-1 1 (cons (cons e-41 arg-4) (cons (cons e-42 e-42) '())) eta-0)))))(else (case (vector-ref arg-4 0) ((10) (let ((e-29 (vector-ref arg-4 1))) (lambda (eta-0) (TTImpC-45WithClause-matchFail e-29 eta-0)))) ((9) (let ((e-33 (vector-ref arg-4 1))) (lambda (eta-0) (TTImpC-45WithClause-matchFail e-33 eta-0))))(else (case (vector-ref arg-3 0) ((13) (let ((e-11 (vector-ref arg-3 1))) (let ((e-13 (vector-ref arg-3 3))) (case (vector-ref arg-4 0) ((13) (let ((e-21 (vector-ref arg-4 3))) (lambda (eta-0) (TTImpC-45WithClause-matchAny arg-0 arg-1 e-11 arg-2 (DataC-45List-u--zip_Zippable_List e-13 e-21) eta-0))))(else (case (vector-ref arg-4 0) ((18) (let ((e-10 (vector-ref arg-4 5))) (TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 arg-3 e-10)))(else (case (vector-ref arg-3 0) ((29) (lambda (clam-109) (case (vector-ref arg-4 0) ((29) (vector 1 '()))(else (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) clam-109))))) ((28) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (case (vector-ref arg-4 0) ((28) (let ((e-5 (vector-ref arg-4 2))) (lambda (clam-110) (let ((sc4 (CoreC-45TT-u--C-61C-61_Eq_Constant e-2 e-5))) (cond ((equal? sc4 1) (vector 1 '())) (else (TTImpC-45WithClause-matchFail e-1 clam-110)))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) eta-0)))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) eta-0))))))))))) ((18) (let ((e-17 (vector-ref arg-3 4))) (let ((e-18 (vector-ref arg-3 5))) (case (vector-ref e-17 0) ((1) (let ((e-22 (vector-ref e-17 1))) (lambda (clam-111) (case (vector-ref arg-4 0) ((18) (let ((e-24 (vector-ref arg-4 2))) (let ((e-26 (vector-ref arg-4 4))) (let ((e-27 (vector-ref arg-4 5))) (case (vector-ref e-26 0) ((1) (let ((e-28 (vector-ref e-26 1))) (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 e-18 e-27) clam-111))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (TTImpC-45WithClause-mergeMatches arg-0 arg-1 arg-2 (cons (cons e-22 (vector 17 e-24 e-28)) e-5) clam-111)))))))(else (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 e-18 arg-4) clam-111))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (TTImpC-45WithClause-mergeMatches arg-0 arg-1 arg-2 (cons (cons e-22 arg-4) e-5) clam-111)))))))))))(else (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 e-18 arg-4) clam-111))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (TTImpC-45WithClause-mergeMatches arg-0 arg-1 arg-2 (cons (cons e-22 arg-4) e-5) clam-111))))))))))(else (TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 e-18 arg-4))))))(else (case (vector-ref arg-4 0) ((18) (let ((e-10 (vector-ref arg-4 5))) (TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 arg-3 e-10)))(else (case (vector-ref arg-3 0) ((29) (lambda (clam-112) (case (vector-ref arg-4 0) ((29) (vector 1 '()))(else (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) clam-112))))) ((28) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (case (vector-ref arg-4 0) ((28) (let ((e-5 (vector-ref arg-4 2))) (lambda (clam-113) (let ((sc3 (CoreC-45TT-u--C-61C-61_Eq_Constant e-2 e-5))) (cond ((equal? sc3 1) (vector 1 '())) (else (TTImpC-45WithClause-matchFail e-1 clam-113)))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) eta-0)))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) eta-0))))))))))))) ((equal? arg-2 0) (case (vector-ref arg-3 0) ((10) (let ((e-44 (vector-ref arg-3 2))) (TTImpC-45WithClause-getMatch arg-0 arg-1 0 e-44 e-44))) ((9) (let ((e-48 (vector-ref arg-3 2))) (TTImpC-45WithClause-getMatch arg-0 arg-1 0 e-48 e-48)))(else (case (vector-ref arg-4 0) ((10) (let ((e-29 (vector-ref arg-4 1))) (lambda (eta-0) (TTImpC-45WithClause-matchFail e-29 eta-0)))) ((9) (let ((e-33 (vector-ref arg-4 1))) (lambda (eta-0) (TTImpC-45WithClause-matchFail e-33 eta-0))))(else (case (vector-ref arg-3 0) ((13) (let ((e-11 (vector-ref arg-3 1))) (let ((e-13 (vector-ref arg-3 3))) (case (vector-ref arg-4 0) ((13) (let ((e-21 (vector-ref arg-4 3))) (lambda (eta-0) (TTImpC-45WithClause-matchAny arg-0 arg-1 e-11 arg-2 (DataC-45List-u--zip_Zippable_List e-13 e-21) eta-0))))(else (case (vector-ref arg-4 0) ((18) (let ((e-10 (vector-ref arg-4 5))) (TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 arg-3 e-10)))(else (case (vector-ref arg-3 0) ((29) (lambda (clam-114) (case (vector-ref arg-4 0) ((29) (vector 1 '()))(else (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) clam-114))))) ((28) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (case (vector-ref arg-4 0) ((28) (let ((e-5 (vector-ref arg-4 2))) (lambda (clam-115) (let ((sc4 (CoreC-45TT-u--C-61C-61_Eq_Constant e-2 e-5))) (cond ((equal? sc4 1) (vector 1 '())) (else (TTImpC-45WithClause-matchFail e-1 clam-115)))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) eta-0)))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) eta-0))))))))))) ((18) (let ((e-17 (vector-ref arg-3 4))) (let ((e-18 (vector-ref arg-3 5))) (case (vector-ref e-17 0) ((1) (let ((e-22 (vector-ref e-17 1))) (lambda (clam-116) (case (vector-ref arg-4 0) ((18) (let ((e-24 (vector-ref arg-4 2))) (let ((e-26 (vector-ref arg-4 4))) (let ((e-27 (vector-ref arg-4 5))) (case (vector-ref e-26 0) ((1) (let ((e-28 (vector-ref e-26 1))) (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 e-18 e-27) clam-116))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (TTImpC-45WithClause-mergeMatches arg-0 arg-1 arg-2 (cons (cons e-22 (vector 17 e-24 e-28)) e-5) clam-116)))))))(else (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 e-18 arg-4) clam-116))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (TTImpC-45WithClause-mergeMatches arg-0 arg-1 arg-2 (cons (cons e-22 arg-4) e-5) clam-116)))))))))))(else (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 e-18 arg-4) clam-116))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (TTImpC-45WithClause-mergeMatches arg-0 arg-1 arg-2 (cons (cons e-22 arg-4) e-5) clam-116))))))))))(else (TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 e-18 arg-4))))))(else (case (vector-ref arg-4 0) ((18) (let ((e-10 (vector-ref arg-4 5))) (TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 arg-3 e-10)))(else (case (vector-ref arg-3 0) ((29) (lambda (clam-117) (case (vector-ref arg-4 0) ((29) (vector 1 '()))(else (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) clam-117))))) ((28) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (case (vector-ref arg-4 0) ((28) (let ((e-5 (vector-ref arg-4 2))) (lambda (clam-118) (let ((sc3 (CoreC-45TT-u--C-61C-61_Eq_Constant e-2 e-5))) (cond ((equal? sc3 1) (vector 1 '())) (else (TTImpC-45WithClause-matchFail e-1 clam-118)))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) eta-0)))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) eta-0)))))))))))))(else (case (vector-ref arg-4 0) ((10) (let ((e-29 (vector-ref arg-4 1))) (lambda (eta-0) (TTImpC-45WithClause-matchFail e-29 eta-0)))) ((9) (let ((e-33 (vector-ref arg-4 1))) (lambda (eta-0) (TTImpC-45WithClause-matchFail e-33 eta-0))))(else (case (vector-ref arg-3 0) ((13) (let ((e-11 (vector-ref arg-3 1))) (let ((e-13 (vector-ref arg-3 3))) (case (vector-ref arg-4 0) ((13) (let ((e-21 (vector-ref arg-4 3))) (lambda (eta-0) (TTImpC-45WithClause-matchAny arg-0 arg-1 e-11 arg-2 (DataC-45List-u--zip_Zippable_List e-13 e-21) eta-0))))(else (case (vector-ref arg-4 0) ((18) (let ((e-10 (vector-ref arg-4 5))) (TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 arg-3 e-10)))(else (case (vector-ref arg-3 0) ((29) (lambda (clam-119) (case (vector-ref arg-4 0) ((29) (vector 1 '()))(else (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) clam-119))))) ((28) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (case (vector-ref arg-4 0) ((28) (let ((e-5 (vector-ref arg-4 2))) (lambda (clam-120) (let ((sc3 (CoreC-45TT-u--C-61C-61_Eq_Constant e-2 e-5))) (cond ((equal? sc3 1) (vector 1 '())) (else (TTImpC-45WithClause-matchFail e-1 clam-120)))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) eta-0)))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) eta-0))))))))))) ((18) (let ((e-17 (vector-ref arg-3 4))) (let ((e-18 (vector-ref arg-3 5))) (case (vector-ref e-17 0) ((1) (let ((e-22 (vector-ref e-17 1))) (lambda (clam-121) (case (vector-ref arg-4 0) ((18) (let ((e-24 (vector-ref arg-4 2))) (let ((e-26 (vector-ref arg-4 4))) (let ((e-27 (vector-ref arg-4 5))) (case (vector-ref e-26 0) ((1) (let ((e-28 (vector-ref e-26 1))) (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 e-18 e-27) clam-121))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (TTImpC-45WithClause-mergeMatches arg-0 arg-1 arg-2 (cons (cons e-22 (vector 17 e-24 e-28)) e-5) clam-121)))))))(else (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 e-18 arg-4) clam-121))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (TTImpC-45WithClause-mergeMatches arg-0 arg-1 arg-2 (cons (cons e-22 arg-4) e-5) clam-121)))))))))))(else (let ((act-24 ((TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 e-18 arg-4) clam-121))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (TTImpC-45WithClause-mergeMatches arg-0 arg-1 arg-2 (cons (cons e-22 arg-4) e-5) clam-121))))))))))(else (TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 e-18 arg-4))))))(else (case (vector-ref arg-4 0) ((18) (let ((e-10 (vector-ref arg-4 5))) (TTImpC-45WithClause-getMatch arg-0 arg-1 arg-2 arg-3 e-10)))(else (case (vector-ref arg-3 0) ((29) (lambda (clam-122) (case (vector-ref arg-4 0) ((29) (vector 1 '()))(else (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) clam-122))))) ((28) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (case (vector-ref arg-4 0) ((28) (let ((e-5 (vector-ref arg-4 2))) (lambda (clam-123) (let ((sc2 (CoreC-45TT-u--C-61C-61_Eq_Constant e-2 e-5))) (cond ((equal? sc2 1) (vector 1 '())) (else (TTImpC-45WithClause-matchFail e-1 clam-123)))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) eta-0)))))))(else (lambda (eta-0) (TTImpC-45WithClause-matchFail (TTImpC-45TTImp-getFC arg-3) eta-0)))))))))))))))) +(define TTImpC-45WithClause-getHeadLoc (lambda (arg-0) (case (vector-ref arg-0 0) ((0) (let ((e-0 (vector-ref arg-0 1))) (lambda (eta-0) (vector 1 e-0)))) ((8) (let ((e-3 (vector-ref arg-0 2))) (TTImpC-45WithClause-getHeadLoc e-3))) ((9) (let ((e-6 (vector-ref arg-0 2))) (TTImpC-45WithClause-getHeadLoc e-6))) ((10) (let ((e-9 (vector-ref arg-0 2))) (TTImpC-45WithClause-getHeadLoc e-9)))(else (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 (PreludeC-45TypesC-45String-C-43C-43 "Could not find head of LHS: " (TTImpC-45TTImp-u--show_Show_RawImp arg-0))) eta-0)))))) +(define TTImpC-45WithClause-getArgMatch (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (if (null? arg-5) arg-3 (cond ((equal? arg-2 1) (if (null? arg-5) (let ((e-1 (unbox arg-5))) (let ((e-5 (cdr e-1))) (let ((sc5 (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Name-isUN e-5) (lambda (u--n) (DataC-45List-lookup (cons (lambda (arg-6) (lambda (arg-7) (PreludeC-45EqOrd-u--C-61C-61_Eq_String arg-6 arg-7))) (lambda (arg-6) (lambda (arg-7) (PreludeC-45EqOrd-u--C-47C-61_Eq_String arg-6 arg-7)))) u--n arg-4))))) (if (null? sc5) (let ((u--arg (vector 32 arg-0 1))) (let ((sc6 (DataC-45Maybe-isJust (TTImpC-45ElabC-45Check-isLHS arg-1)))) (cond ((equal? sc6 1) (vector 18 arg-0 arg-0 0 e-5 u--arg)) (else u--arg)))) (let ((e-2 (unbox sc5))) e-2))))) (let ((e-7 (unbox arg-5))) (if (null? e-7) (let ((e-1 (unbox arg-5))) (let ((e-5 (cdr e-1))) (let ((sc6 (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Name-isUN e-5) (lambda (u--n) (DataC-45List-lookup (cons (lambda (arg-6) (lambda (arg-7) (PreludeC-45EqOrd-u--C-61C-61_Eq_String arg-6 arg-7))) (lambda (arg-6) (lambda (arg-7) (PreludeC-45EqOrd-u--C-47C-61_Eq_String arg-6 arg-7)))) u--n arg-4))))) (if (null? sc6) (let ((u--arg (vector 32 arg-0 1))) (let ((sc7 (DataC-45Maybe-isJust (TTImpC-45ElabC-45Check-isLHS arg-1)))) (cond ((equal? sc7 1) (vector 18 arg-0 arg-0 0 e-5 u--arg)) (else u--arg)))) (let ((e-2 (unbox sc6))) e-2))))) (let ((e-10 (car e-7))) (let ((e-11 (cdr e-7))) (case (vector-ref e-10 0) ((2) (let ((sc5 (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Name-isUN e-11) (lambda (u--n) (DataC-45List-lookup (cons (lambda (arg-6) (lambda (arg-7) (PreludeC-45EqOrd-u--C-61C-61_Eq_String arg-6 arg-7))) (lambda (arg-6) (lambda (arg-7) (PreludeC-45EqOrd-u--C-47C-61_Eq_String arg-6 arg-7)))) u--n arg-4))))) (if (null? sc5) (let ((u--arg (vector 12 arg-0 (PreludeC-45Types-u--fromInteger_Num_Nat 500)))) (let ((sc6 (DataC-45Maybe-isJust (TTImpC-45ElabC-45Check-isLHS arg-1)))) (cond ((equal? sc6 1) (vector 18 arg-0 arg-0 0 e-11 u--arg)) (else u--arg)))) (let ((e-1 (unbox sc5))) e-1))))(else (let ((e-1 (unbox arg-5))) (let ((e-5 (cdr e-1))) (let ((sc6 (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Name-isUN e-5) (lambda (u--n) (DataC-45List-lookup (cons (lambda (arg-6) (lambda (arg-7) (PreludeC-45EqOrd-u--C-61C-61_Eq_String arg-6 arg-7))) (lambda (arg-6) (lambda (arg-7) (PreludeC-45EqOrd-u--C-47C-61_Eq_String arg-6 arg-7)))) u--n arg-4))))) (if (null? sc6) (let ((u--arg (vector 32 arg-0 1))) (let ((sc7 (DataC-45Maybe-isJust (TTImpC-45ElabC-45Check-isLHS arg-1)))) (cond ((equal? sc7 1) (vector 18 arg-0 arg-0 0 e-5 u--arg)) (else u--arg)))) (let ((e-2 (unbox sc6))) e-2)))))))))))))(else (let ((e-1 (unbox arg-5))) (let ((e-5 (cdr e-1))) (let ((sc3 (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Name-isUN e-5) (lambda (u--n) (DataC-45List-lookup (cons (lambda (arg-6) (lambda (arg-7) (PreludeC-45EqOrd-u--C-61C-61_Eq_String arg-6 arg-7))) (lambda (arg-6) (lambda (arg-7) (PreludeC-45EqOrd-u--C-47C-61_Eq_String arg-6 arg-7)))) u--n arg-4))))) (if (null? sc3) (let ((u--arg (vector 32 arg-0 1))) (let ((sc4 (DataC-45Maybe-isJust (TTImpC-45ElabC-45Check-isLHS arg-1)))) (cond ((equal? sc4 1) (vector 18 arg-0 arg-0 0 e-5 u--arg)) (else u--arg)))) (let ((e-2 (unbox sc3))) e-2)))))))))) +(define TTImpC-45WithClause-addAlias (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((sc0 (CoreC-45FC-isConcreteFC arg-2))) (if (null? sc0) (vector 1 0) (let ((e-1 (unbox sc0))) (let ((sc1 (CoreC-45FC-isConcreteFC arg-3))) (if (null? sc1) (vector 1 0) (let ((e-2 (unbox sc1))) (let ((act-24 (CoreC-45ContextC-45Log-log arg-1 "ide-mode.highlight.alias" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))))))))))))))))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Adding alias: " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (u--x) (CoreC-45FC-u--show_Show_OriginDesc u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45FC-u--showPrec_Show_OriginDesc u--d u--x)))) (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_Int x-1)) (lambda (u--d) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_Int u--d x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_Int x-1)) (lambda (u--d) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_Int u--d x-1))))) x-0)) (lambda (u--d) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_Int x-1)) (lambda (d-0) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_Int x-1)) (lambda (d-0) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-1))))) u--d x-0)))) (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_Int x-1)) (lambda (u--d) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_Int u--d x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_Int x-1)) (lambda (u--d) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_Int u--d x-1))))) x-0)) (lambda (u--d) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_Int x-1)) (lambda (d-0) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_Int x-1)) (lambda (d-0) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-1))))) u--d x-0))))) u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_Int x-1)) (lambda (d-0) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_Int x-1)) (lambda (d-0) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_Int x-1)) (lambda (d-1) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_Int x-1)) (lambda (d-1) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-1))))) d-0 x-0)))) (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_Int x-1)) (lambda (d-0) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_Int x-1)) (lambda (d-0) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_Int x-1)) (lambda (d-1) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_Int x-1)) (lambda (d-1) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-1))))) d-0 x-0))))) u--d u--x))))) e-1) (PreludeC-45TypesC-45String-C-43C-43 " -> " (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (u--x) (CoreC-45FC-u--show_Show_OriginDesc u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45FC-u--showPrec_Show_OriginDesc u--d u--x)))) (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_Int x-1)) (lambda (u--d) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_Int u--d x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_Int x-1)) (lambda (u--d) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_Int u--d x-1))))) x-0)) (lambda (u--d) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_Int x-1)) (lambda (d-0) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_Int x-1)) (lambda (d-0) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-1))))) u--d x-0)))) (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_Int x-1)) (lambda (u--d) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_Int u--d x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_Int x-1)) (lambda (u--d) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_Int u--d x-1))))) x-0)) (lambda (u--d) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_Int x-1)) (lambda (d-0) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_Int x-1)) (lambda (d-0) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-1))))) u--d x-0))))) u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_Int x-1)) (lambda (d-0) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_Int x-1)) (lambda (d-0) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_Int x-1)) (lambda (d-1) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_Int x-1)) (lambda (d-1) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-1))))) d-0 x-0)))) (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_Int x-1)) (lambda (d-0) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_Int x-1)) (lambda (d-0) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_Int x-1)) (lambda (d-1) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_Int x-1)) (lambda (d-1) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-1))))) d-0 x-0))))) u--d u--x))))) e-2))))) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (CoreC-45Metadata-addSemanticAlias arg-0 e-1 e-2 ext-0)))))))))))) +(define TTImpC-45PartialEval-case--caseC-32blockC-32inC-32quoteGenNF-10422 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 ext-0) (if (null? arg-14) (let ((act-24 (TTImpC-45PartialEval-quoteArgsWithFC arg-11 arg-10 arg-9 arg-0 arg-1 arg-8 arg-7 arg-6 arg-5 arg-3 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (CoreC-45TT-applyWithFC (vector 1 arg-4 (vector 1 ) arg-2) e-5)))))) (let ((act-24 (CoreC-45Context-clearDefs arg-7 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (TTImpC-45PartialEval-quoteArgsWithFC arg-11 arg-10 arg-9 arg-0 arg-1 arg-8 arg-7 arg-6 arg-5 arg-3 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45PartialEval-specialise (PreludeC-45TypesC-45List-C-43C-43 arg-0 arg-1) arg-11 arg-10 arg-9 arg-4 (TTImpC-45PartialEval-n--11228-10355-u--extendEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-6 arg-5) arg-12 arg-2 e-6 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (if (null? e-7) (let ((act-27 (TTImpC-45PartialEval-quoteArgsWithFC arg-11 arg-10 arg-9 arg-0 arg-1 arg-8 e-5 arg-6 arg-5 arg-3 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (vector 1 (CoreC-45TT-applyWithFC (vector 1 arg-4 (vector 1 ) arg-2) e-8)))))) (let ((e-1 (unbox e-7))) (vector 1 e-1)))))))))))))))))) +(define TTImpC-45PartialEval-case--specialise-8822 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 ext-0) (if (null? arg-9) (vector 1 '()) (let ((act-24 (CoreC-45Context-toFullNames arg-8 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-0))))) arg-2 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (TTImpC-45PartialEval-n--10130-8497-u--getSpecArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 0 arg-9 arg-1 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (if (null? e-6) (vector 1 '()) (let ((e-1 (unbox e-6))) (let ((u--nhash (CoreC-45Hash-u--hashWithSalt_Hashable_Name (CoreC-45Hash-u--hash_Hashable_C-40ListC-32C-36aC-41 (cons (lambda (arg-529) (CoreC-45Hash-u--hash_Hashable_C-40TermC-32C-36varsC-41 arg-529)) (lambda (arg-530) (lambda (arg-531) (CoreC-45Hash-u--hashWithSalt_Hashable_C-40TermC-32C-36varsC-41 arg-530 arg-531)))) (DataC-45List-mapMaybe (lambda (eta-0) (TTImpC-45PartialEval-getStatic eta-0)) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-1))) arg-2))) (let ((u--pename (vector 0 (CoreC-45NameC-45Namespace-partialEvalNS) (vector 1 (PreludeC-45TypesC-45String-C-43C-43 "PE_" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-nameRoot e-5) (PreludeC-45TypesC-45String-C-43C-43 "_" (LibrariesC-45UtilsC-45Hex-asHex u--nhash)))))))) (let ((act-26 (let ((act-26 (unbox arg-8))) (vector 1 act-26)))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((sc5 (LibrariesC-45DataC-45NameMap-lookup u--pename (let ((e-25 (vector-ref e-7 25))) e-25)))) (if (null? sc5) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-2 (vector-ref eta-0 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref eta-0 1))) (vector 1 (box e-8)))))) (lambda (eta-0) (TTImpC-45PartialEval-mkSpecDef arg-8 arg-7 arg-6 arg-5 arg-3 u--pename e-1 arg-2 arg-1 eta-0)) ext-0) (vector 1 '())))))))))))))))))))))) +(define TTImpC-45PartialEval-case--eraseInferred-8357 (lambda (arg-1 arg-2 arg-3) (let ((e-2 (car arg-3))) (let ((e-3 (cdr arg-3))) (if (null? e-3) (lambda (eta-0) (vector 1 e-2)) (lambda (clam-0) (case (vector-ref e-2 0) ((1) (let ((e-5 (vector-ref e-2 1))) (let ((e-6 (vector-ref e-2 2))) (let ((e-7 (vector-ref e-2 3))) (case (vector-ref e-6 0) ((1) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact e-7 (let ((e-0 (vector-ref e-8 0))) e-0)) clam-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref act-25 1))) (if (null? e-9) (vector 1 arg-1) (let ((e-1 (unbox e-9))) (let ((u--argsE (TTImpC-45PartialEval-n--9882-8287-u--dropErased arg-1 arg-2 e-5 0 (let ((e-24 (vector-ref e-1 6))) e-24) e-3))) (let ((act-26 (CoreC-45Core-traverseC-39 (lambda (eta-0) (TTImpC-45PartialEval-eraseInferred arg-2 eta-0)) u--argsE '() clam-0))) (case (vector-ref act-26 0) ((0) (let ((e-4 (vector-ref act-26 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref act-26 1))) (vector 1 (CoreC-45TT-apply e-5 (vector 1 e-5 (vector 1 ) e-7) e-10))))))))))))))))))(else (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (TTImpC-45PartialEval-eraseInferred arg-2 eta-0)) e-3 '() clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (vector 1 (CoreC-45TT-apply (CoreC-45TT-getLoc e-2) e-2 e-3)))))))))))(else (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (TTImpC-45PartialEval-eraseInferred arg-2 eta-0)) e-3 '() clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (vector 1 (CoreC-45TT-apply (CoreC-45TT-getLoc e-2) e-2 e-3))))))))))))) +(define TTImpC-45PartialEval-case--caseC-32blockC-32inC-32mkSpecDef-7699 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 ext-0) (case (vector-ref arg-20 0) ((1) (let ((e-4 (vector-ref arg-20 5))) (let ((act-24 (CoreC-45ContextC-45Log-unverifiedLogC arg-9 "specialise" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-0) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-1) (TTImpC-45PartialEval-n--8719-7253-u--unelabDef arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 eta-1)) e-4 '() eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (PreludeC-45TypesC-45String-C-43C-43 "Attempting to specialise:\u000a" (CoreC-45NameC-45Namespace-showSep "\u000a" (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (TTImpC-45PartialEval-n--8719-7254-u--showPat arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 eta-1)) e-5))))))))) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((act-25 (let ((act-25 ((CoreC-45Normalise-nf arg-9 '() arg-18 '() (let ((e-24 (vector-ref arg-5 2))) e-24)) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-6 (vector-ref act-25 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-25 1))) ((TTImpC-45PartialEval-getSpecPats arg-9 arg-6 arg-4 arg-2 arg-1 e-6 arg-3 arg-11 e-4) ext-0))))))) (case (vector-ref act-25 0) ((0) (let ((e-6 (vector-ref act-25 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-25 1))) (if (null? e-6) (vector 1 (CoreC-45TT-applyWithFC (vector 1 arg-6 (vector 1 ) arg-2) arg-1)) (let ((e-7 (unbox e-6))) (let ((act-26 (CoreC-45ContextC-45Log-log arg-9 "specialise" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "New patterns for " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name arg-4) (PreludeC-45TypesC-45String-C-43C-43 ":\u000a" (CoreC-45NameC-45Namespace-showSep "\u000a" (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (TTImpC-45PartialEval-n--8719-7254-u--showPat arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 eta-0)) e-7)))))) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-8 (vector-ref act-26 1))) (vector 0 e-8))) (else (let ((act-27 ((TTImpC-45ElabC-45Check-processDecl '() arg-9 arg-8 arg-7 (cons 2 '()) '() '() (vector 2 arg-6 (vector 9 arg-15) e-7)) ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-9 (vector-ref act-27 1))) (vector 0 e-9))) (else (let ((act-28 (CoreC-45Context-setAllPublic arg-9 0 ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-10 (vector-ref act-28 1))) (vector 0 e-10))) (else (vector 1 arg-12)))))))))))))))))))))(else (vector 1 (CoreC-45TT-applyWithFC (vector 1 arg-6 (vector 1 ) arg-2) arg-1)))))) +(define TTImpC-45PartialEval-case--specPatByVar-6507 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((e-2 (car arg-5))) (let ((e-3 (cdr arg-5))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (TTImpC-45PartialEval-mkSubsts 0 arg-4 e-3 arg-3) (lambda (u--psubs) (let ((u--lhsC-39 (CoreC-45TT-apply (CoreC-45TT-getLoc e-2) e-2 e-3))) (PreludeC-45Types-u--pure_Applicative_Maybe (cons arg-0 (cons arg-1 (cons (TTImpC-45PartialEval-substLocs arg-0 u--psubs u--lhsC-39) (TTImpC-45PartialEval-substLocs arg-0 u--psubs arg-3)))))))))))) +(define TTImpC-45PartialEval-n--8119-6694-u--unelabPat (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((e-2 (car arg-11))) (let ((e-3 (cdr arg-11))) (lambda (clam-0) (let ((e-6 (car e-3))) (let ((e-7 (cdr e-3))) (let ((e-10 (car e-7))) (let ((e-11 (cdr e-7))) (let ((act-24 (TTImpC-45Unelab-unelabNoSugar e-2 arg-9 e-6 e-10 clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((u--lhsC-39 (TTImpC-45PartialEval-n--8119-6693-u--dropArgs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-5))) (let ((act-25 (let ((act-25 (unbox arg-9))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Normalise-normaliseArgHoles arg-9 e-2 e-8 e-6 e-11 clam-0))) (case (vector-ref act-26 0) ((0) (let ((e-4 (vector-ref act-26 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref act-26 1))) (let ((act-27 (TTImpC-45Unelab-unelabNoSugar e-2 arg-9 e-6 e-9 clam-0))) (case (vector-ref act-27 0) ((0) (let ((e-4 (vector-ref act-27 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref act-27 1))) (vector 1 (vector 0 arg-8 u--lhsC-39 e-12)))))))))))))))))))))))))))) +(define TTImpC-45PartialEval-n--8719-7253-u--unelabDef (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((e-2 (car arg-10))) (let ((e-3 (cdr arg-10))) (lambda (clam-0) (let ((e-6 (car e-3))) (let ((e-7 (cdr e-3))) (let ((e-10 (car e-7))) (let ((e-11 (cdr e-7))) (let ((act-24 (TTImpC-45Unelab-unelabNoSugar e-2 arg-9 e-6 e-10 clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (let ((act-25 (unbox arg-9))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Normalise-normaliseArgHoles arg-9 e-2 e-8 e-6 e-11 clam-0))) (case (vector-ref act-26 0) ((0) (let ((e-4 (vector-ref act-26 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref act-26 1))) (let ((act-27 (TTImpC-45Unelab-unelabNoSugar e-2 arg-9 e-6 e-9 clam-0))) (case (vector-ref act-27 0) ((0) (let ((e-4 (vector-ref act-27 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref act-27 1))) (vector 1 (vector 0 arg-6 e-5 e-12))))))))))))))))))))))))))) +(define TTImpC-45PartialEval-n--8719-7254-u--showPat (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (case (vector-ref arg-10 0) ((0) (let ((e-1 (vector-ref arg-10 2))) (let ((e-2 (vector-ref arg-10 3))) (PreludeC-45TypesC-45String-C-43C-43 (TTImpC-45TTImp-u--show_Show_RawImp e-1) (PreludeC-45TypesC-45String-C-43C-43 " = " (TTImpC-45TTImp-u--show_Show_RawImp e-2))))))(else "Can't happen")))) +(define TTImpC-45PartialEval-n--8119-6692-u--reapply (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (if (null? arg-11) arg-10 (let ((e-2 (car arg-11))) (let ((e-3 (cdr arg-11))) (let ((e-6 (car e-2))) (let ((e-7 (cdr e-2))) (if (null? e-6) (TTImpC-45PartialEval-n--8119-6692-u--reapply arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (vector 8 arg-8 arg-10 e-7) e-3) (let ((e-10 (unbox e-6))) (TTImpC-45PartialEval-n--8119-6692-u--reapply arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (vector 10 arg-8 arg-10 e-10 e-7) e-3)))))))))) +(define TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (case (vector-ref arg-10 0) ((0) (let ((e-12 (vector-ref arg-10 2))) (let ((e-13 (vector-ref arg-10 3))) (let ((e-14 (vector-ref arg-10 4))) (case (vector-ref e-13 0) ((2) (let ((e-18 (vector-ref e-13 3))) (case (vector-ref e-18 0) ((1) (if (null? arg-12) (if (null? arg-12) (case (vector-ref e-18 0) ((1) (if (null? arg-13) (if (null? arg-13) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-21 (car arg-13))) (let ((e-22 (cdr arg-13))) (if (null? e-21) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-26 (cdr e-21))) (if (null? e-26) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-27 (unbox e-26))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 0))) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) ((TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0))))))))))))))))))))) (let ((e-30 (car arg-13))) (let ((e-31 (cdr arg-13))) (if (null? e-30) (if (null? arg-13) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-21 (car arg-13))) (let ((e-22 (cdr arg-13))) (if (null? e-21) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-26 (cdr e-21))) (if (null? e-26) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-27 (unbox e-26))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 0))) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) ((TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0))))))))))))))))))))) (let ((e-35 (cdr e-30))) (if (null? e-35) (if (null? arg-13) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-21 (car arg-13))) (let ((e-22 (cdr arg-13))) (if (null? e-21) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-26 (cdr e-21))) (if (null? e-26) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-27 (unbox e-26))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 0))) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) ((TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0))))))))))))))))))))) (let ((e-36 (unbox e-35))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 0))) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-36 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) ((TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 8 arg-8 arg-11 e-7) arg-12 e-31) eta-0))))))))))))))))))))))(else (if (null? arg-13) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-21 (car arg-13))) (let ((e-22 (cdr arg-13))) (if (null? e-21) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-26 (cdr e-21))) (if (null? e-26) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-27 (unbox e-26))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 0))) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) ((TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0))))))))))))))))))))))) (let ((e-38 (car arg-12))) (let ((e-39 (cdr arg-12))) (if (null? arg-13) (case (vector-ref e-18 0) ((1) (if (null? arg-13) (if (null? arg-13) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-21 (car arg-13))) (let ((e-22 (cdr arg-13))) (if (null? e-21) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-26 (cdr e-21))) (if (null? e-26) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-27 (unbox e-26))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 0))) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) ((TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0))))))))))))))))))))) (let ((e-30 (car arg-13))) (let ((e-31 (cdr arg-13))) (if (null? e-30) (if (null? arg-13) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-21 (car arg-13))) (let ((e-22 (cdr arg-13))) (if (null? e-21) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-26 (cdr e-21))) (if (null? e-26) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-27 (unbox e-26))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 0))) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) ((TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0))))))))))))))))))))) (let ((e-35 (cdr e-30))) (if (null? e-35) (if (null? arg-13) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-21 (car arg-13))) (let ((e-22 (cdr arg-13))) (if (null? e-21) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-26 (cdr e-21))) (if (null? e-26) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-27 (unbox e-26))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 0))) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) ((TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0))))))))))))))))))))) (let ((e-36 (unbox e-35))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 0))) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-36 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) ((TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 8 arg-8 arg-11 e-7) arg-12 e-31) eta-0))))))))))))))))))))))(else (if (null? arg-13) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-21 (car arg-13))) (let ((e-22 (cdr arg-13))) (if (null? e-21) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-26 (cdr e-21))) (if (null? e-26) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-27 (unbox e-26))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 0))) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) ((TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0))))))))))))))))))))))) (let ((e-41 (car arg-13))) (let ((e-42 (cdr arg-13))) (if (null? e-41) (case (vector-ref e-18 0) ((1) (if (null? arg-13) (if (null? arg-13) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-21 (car arg-13))) (let ((e-22 (cdr arg-13))) (if (null? e-21) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-26 (cdr e-21))) (if (null? e-26) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-27 (unbox e-26))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 0))) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) ((TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0))))))))))))))))))))) (let ((e-30 (car arg-13))) (let ((e-31 (cdr arg-13))) (if (null? e-30) (if (null? arg-13) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-21 (car arg-13))) (let ((e-22 (cdr arg-13))) (if (null? e-21) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-26 (cdr e-21))) (if (null? e-26) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-27 (unbox e-26))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 0))) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) ((TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0))))))))))))))))))))) (let ((e-35 (cdr e-30))) (if (null? e-35) (if (null? arg-13) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-21 (car arg-13))) (let ((e-22 (cdr arg-13))) (if (null? e-21) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-26 (cdr e-21))) (if (null? e-26) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-27 (unbox e-26))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 0))) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) ((TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0))))))))))))))))))))) (let ((e-36 (unbox e-35))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 0))) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-36 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) ((TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 8 arg-8 arg-11 e-7) arg-12 e-31) eta-0))))))))))))))))))))))(else (if (null? arg-13) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-21 (car arg-13))) (let ((e-22 (cdr arg-13))) (if (null? e-21) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-26 (cdr e-21))) (if (null? e-26) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-27 (unbox e-26))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 0))) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) ((TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0))))))))))))))))))))))) (let ((e-46 (cdr e-41))) (if (null? e-46) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 0))) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) ((TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 (vector 0 arg-8 (vector 1 e-38))) e-39 e-42) eta-0)))))))))) (case (vector-ref e-18 0) ((1) (if (null? arg-13) (if (null? arg-13) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-21 (car arg-13))) (let ((e-22 (cdr arg-13))) (if (null? e-21) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-26 (cdr e-21))) (if (null? e-26) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-27 (unbox e-26))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 0))) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) ((TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0))))))))))))))))))))) (let ((e-30 (car arg-13))) (let ((e-31 (cdr arg-13))) (if (null? e-30) (if (null? arg-13) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-21 (car arg-13))) (let ((e-22 (cdr arg-13))) (if (null? e-21) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-26 (cdr e-21))) (if (null? e-26) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-27 (unbox e-26))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 0))) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) ((TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0))))))))))))))))))))) (let ((e-35 (cdr e-30))) (if (null? e-35) (if (null? arg-13) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-21 (car arg-13))) (let ((e-22 (cdr arg-13))) (if (null? e-21) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-26 (cdr e-21))) (if (null? e-26) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-27 (unbox e-26))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 0))) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) ((TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0))))))))))))))))))))) (let ((e-36 (unbox e-35))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 0))) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-36 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) ((TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 8 arg-8 arg-11 e-7) arg-12 e-31) eta-0))))))))))))))))))))))(else (if (null? arg-13) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-21 (car arg-13))) (let ((e-22 (cdr arg-13))) (if (null? e-21) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-26 (cdr e-21))) (if (null? e-26) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-27 (unbox e-26))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 0))) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) ((TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0)))))))))))))))))))))))))))))))) (let ((e-49 (car arg-12))) (let ((e-50 (cdr arg-12))) (if (null? arg-13) (if (null? arg-12) (case (vector-ref e-18 0) ((1) (if (null? arg-13) (if (null? arg-13) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-21 (car arg-13))) (let ((e-22 (cdr arg-13))) (if (null? e-21) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-26 (cdr e-21))) (if (null? e-26) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-27 (unbox e-26))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 0))) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) ((TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0))))))))))))))))))))) (let ((e-30 (car arg-13))) (let ((e-31 (cdr arg-13))) (if (null? e-30) (if (null? arg-13) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-21 (car arg-13))) (let ((e-22 (cdr arg-13))) (if (null? e-21) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-26 (cdr e-21))) (if (null? e-26) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-27 (unbox e-26))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 0))) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) ((TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0))))))))))))))))))))) (let ((e-35 (cdr e-30))) (if (null? e-35) (if (null? arg-13) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-21 (car arg-13))) (let ((e-22 (cdr arg-13))) (if (null? e-21) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-26 (cdr e-21))) (if (null? e-26) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-27 (unbox e-26))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 0))) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) ((TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0))))))))))))))))))))) (let ((e-36 (unbox e-35))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 0))) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-36 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) ((TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 8 arg-8 arg-11 e-7) arg-12 e-31) eta-0))))))))))))))))))))))(else (if (null? arg-13) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-21 (car arg-13))) (let ((e-22 (cdr arg-13))) (if (null? e-21) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-26 (cdr e-21))) (if (null? e-26) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-27 (unbox e-26))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 0))) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) ((TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0))))))))))))))))))))))) (let ((e-38 (car arg-12))) (let ((e-39 (cdr arg-12))) (if (null? arg-13) (case (vector-ref e-18 0) ((1) (if (null? arg-13) (if (null? arg-13) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-21 (car arg-13))) (let ((e-22 (cdr arg-13))) (if (null? e-21) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-26 (cdr e-21))) (if (null? e-26) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-27 (unbox e-26))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 0))) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) ((TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0))))))))))))))))))))) (let ((e-30 (car arg-13))) (let ((e-31 (cdr arg-13))) (if (null? e-30) (if (null? arg-13) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-21 (car arg-13))) (let ((e-22 (cdr arg-13))) (if (null? e-21) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-26 (cdr e-21))) (if (null? e-26) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-27 (unbox e-26))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 0))) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) ((TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0))))))))))))))))))))) (let ((e-35 (cdr e-30))) (if (null? e-35) (if (null? arg-13) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-21 (car arg-13))) (let ((e-22 (cdr arg-13))) (if (null? e-21) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-26 (cdr e-21))) (if (null? e-26) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-27 (unbox e-26))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 0))) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) ((TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0))))))))))))))))))))) (let ((e-36 (unbox e-35))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 0))) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-36 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) ((TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 8 arg-8 arg-11 e-7) arg-12 e-31) eta-0))))))))))))))))))))))(else (if (null? arg-13) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-21 (car arg-13))) (let ((e-22 (cdr arg-13))) (if (null? e-21) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-26 (cdr e-21))) (if (null? e-26) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-27 (unbox e-26))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 0))) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) ((TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0))))))))))))))))))))))) (let ((e-41 (car arg-13))) (let ((e-42 (cdr arg-13))) (if (null? e-41) (case (vector-ref e-18 0) ((1) (if (null? arg-13) (if (null? arg-13) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-21 (car arg-13))) (let ((e-22 (cdr arg-13))) (if (null? e-21) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-26 (cdr e-21))) (if (null? e-26) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-27 (unbox e-26))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 0))) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) ((TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0))))))))))))))))))))) (let ((e-30 (car arg-13))) (let ((e-31 (cdr arg-13))) (if (null? e-30) (if (null? arg-13) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-21 (car arg-13))) (let ((e-22 (cdr arg-13))) (if (null? e-21) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-26 (cdr e-21))) (if (null? e-26) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-27 (unbox e-26))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 0))) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) ((TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0))))))))))))))))))))) (let ((e-35 (cdr e-30))) (if (null? e-35) (if (null? arg-13) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-21 (car arg-13))) (let ((e-22 (cdr arg-13))) (if (null? e-21) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-26 (cdr e-21))) (if (null? e-26) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-27 (unbox e-26))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 0))) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) ((TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0))))))))))))))))))))) (let ((e-36 (unbox e-35))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 0))) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-36 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) ((TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 8 arg-8 arg-11 e-7) arg-12 e-31) eta-0))))))))))))))))))))))(else (if (null? arg-13) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-21 (car arg-13))) (let ((e-22 (cdr arg-13))) (if (null? e-21) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-26 (cdr e-21))) (if (null? e-26) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-27 (unbox e-26))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 0))) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) ((TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0))))))))))))))))))))))) (let ((e-46 (cdr e-41))) (if (null? e-46) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 0))) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) ((TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 (vector 0 arg-8 (vector 1 e-38))) e-39 e-42) eta-0)))))))))) (case (vector-ref e-18 0) ((1) (if (null? arg-13) (if (null? arg-13) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-21 (car arg-13))) (let ((e-22 (cdr arg-13))) (if (null? e-21) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-26 (cdr e-21))) (if (null? e-26) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-27 (unbox e-26))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 0))) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) ((TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0))))))))))))))))))))) (let ((e-30 (car arg-13))) (let ((e-31 (cdr arg-13))) (if (null? e-30) (if (null? arg-13) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-21 (car arg-13))) (let ((e-22 (cdr arg-13))) (if (null? e-21) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-26 (cdr e-21))) (if (null? e-26) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-27 (unbox e-26))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 0))) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) ((TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0))))))))))))))))))))) (let ((e-35 (cdr e-30))) (if (null? e-35) (if (null? arg-13) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-21 (car arg-13))) (let ((e-22 (cdr arg-13))) (if (null? e-21) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-26 (cdr e-21))) (if (null? e-26) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-27 (unbox e-26))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 0))) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) ((TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0))))))))))))))))))))) (let ((e-36 (unbox e-35))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 0))) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-36 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) ((TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 8 arg-8 arg-11 e-7) arg-12 e-31) eta-0))))))))))))))))))))))(else (if (null? arg-13) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-21 (car arg-13))) (let ((e-22 (cdr arg-13))) (if (null? e-21) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-26 (cdr e-21))) (if (null? e-26) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-27 (unbox e-26))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 0))) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) ((TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0)))))))))))))))))))))))))))))))) (let ((e-52 (car arg-13))) (let ((e-53 (cdr arg-13))) (if (null? e-52) (if (null? arg-12) (case (vector-ref e-18 0) ((1) (if (null? arg-13) (if (null? arg-13) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-21 (car arg-13))) (let ((e-22 (cdr arg-13))) (if (null? e-21) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-26 (cdr e-21))) (if (null? e-26) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-27 (unbox e-26))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 0))) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) ((TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0))))))))))))))))))))) (let ((e-30 (car arg-13))) (let ((e-31 (cdr arg-13))) (if (null? e-30) (if (null? arg-13) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-21 (car arg-13))) (let ((e-22 (cdr arg-13))) (if (null? e-21) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-26 (cdr e-21))) (if (null? e-26) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-27 (unbox e-26))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 0))) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) ((TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0))))))))))))))))))))) (let ((e-35 (cdr e-30))) (if (null? e-35) (if (null? arg-13) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-21 (car arg-13))) (let ((e-22 (cdr arg-13))) (if (null? e-21) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-26 (cdr e-21))) (if (null? e-26) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-27 (unbox e-26))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 0))) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) ((TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0))))))))))))))))))))) (let ((e-36 (unbox e-35))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 0))) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-36 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) ((TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 8 arg-8 arg-11 e-7) arg-12 e-31) eta-0))))))))))))))))))))))(else (if (null? arg-13) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-21 (car arg-13))) (let ((e-22 (cdr arg-13))) (if (null? e-21) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-26 (cdr e-21))) (if (null? e-26) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-27 (unbox e-26))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 0))) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) ((TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0))))))))))))))))))))))) (let ((e-38 (car arg-12))) (let ((e-39 (cdr arg-12))) (if (null? arg-13) (case (vector-ref e-18 0) ((1) (if (null? arg-13) (if (null? arg-13) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-21 (car arg-13))) (let ((e-22 (cdr arg-13))) (if (null? e-21) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-26 (cdr e-21))) (if (null? e-26) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-27 (unbox e-26))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 0))) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) ((TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0))))))))))))))))))))) (let ((e-30 (car arg-13))) (let ((e-31 (cdr arg-13))) (if (null? e-30) (if (null? arg-13) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-21 (car arg-13))) (let ((e-22 (cdr arg-13))) (if (null? e-21) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-26 (cdr e-21))) (if (null? e-26) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-27 (unbox e-26))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 0))) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) ((TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0))))))))))))))))))))) (let ((e-35 (cdr e-30))) (if (null? e-35) (if (null? arg-13) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-21 (car arg-13))) (let ((e-22 (cdr arg-13))) (if (null? e-21) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-26 (cdr e-21))) (if (null? e-26) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-27 (unbox e-26))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 0))) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) ((TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0))))))))))))))))))))) (let ((e-36 (unbox e-35))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 0))) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-36 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) ((TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 8 arg-8 arg-11 e-7) arg-12 e-31) eta-0))))))))))))))))))))))(else (if (null? arg-13) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-21 (car arg-13))) (let ((e-22 (cdr arg-13))) (if (null? e-21) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-26 (cdr e-21))) (if (null? e-26) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-27 (unbox e-26))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 0))) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) ((TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0))))))))))))))))))))))) (let ((e-41 (car arg-13))) (let ((e-42 (cdr arg-13))) (if (null? e-41) (case (vector-ref e-18 0) ((1) (if (null? arg-13) (if (null? arg-13) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-21 (car arg-13))) (let ((e-22 (cdr arg-13))) (if (null? e-21) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-26 (cdr e-21))) (if (null? e-26) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-27 (unbox e-26))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 0))) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) ((TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0))))))))))))))))))))) (let ((e-30 (car arg-13))) (let ((e-31 (cdr arg-13))) (if (null? e-30) (if (null? arg-13) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-21 (car arg-13))) (let ((e-22 (cdr arg-13))) (if (null? e-21) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-26 (cdr e-21))) (if (null? e-26) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-27 (unbox e-26))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 0))) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) ((TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0))))))))))))))))))))) (let ((e-35 (cdr e-30))) (if (null? e-35) (if (null? arg-13) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-21 (car arg-13))) (let ((e-22 (cdr arg-13))) (if (null? e-21) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-26 (cdr e-21))) (if (null? e-26) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-27 (unbox e-26))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 0))) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) ((TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0))))))))))))))))))))) (let ((e-36 (unbox e-35))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 0))) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-36 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) ((TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 8 arg-8 arg-11 e-7) arg-12 e-31) eta-0))))))))))))))))))))))(else (if (null? arg-13) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-21 (car arg-13))) (let ((e-22 (cdr arg-13))) (if (null? e-21) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-26 (cdr e-21))) (if (null? e-26) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-27 (unbox e-26))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 0))) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) ((TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0))))))))))))))))))))))) (let ((e-46 (cdr e-41))) (if (null? e-46) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 0))) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) ((TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 (vector 0 arg-8 (vector 1 e-38))) e-39 e-42) eta-0)))))))))) (case (vector-ref e-18 0) ((1) (if (null? arg-13) (if (null? arg-13) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-21 (car arg-13))) (let ((e-22 (cdr arg-13))) (if (null? e-21) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-26 (cdr e-21))) (if (null? e-26) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-27 (unbox e-26))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 0))) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) ((TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0))))))))))))))))))))) (let ((e-30 (car arg-13))) (let ((e-31 (cdr arg-13))) (if (null? e-30) (if (null? arg-13) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-21 (car arg-13))) (let ((e-22 (cdr arg-13))) (if (null? e-21) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-26 (cdr e-21))) (if (null? e-26) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-27 (unbox e-26))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 0))) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) ((TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0))))))))))))))))))))) (let ((e-35 (cdr e-30))) (if (null? e-35) (if (null? arg-13) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-21 (car arg-13))) (let ((e-22 (cdr arg-13))) (if (null? e-21) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-26 (cdr e-21))) (if (null? e-26) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-27 (unbox e-26))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 0))) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) ((TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0))))))))))))))))))))) (let ((e-36 (unbox e-35))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 0))) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-36 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) ((TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 8 arg-8 arg-11 e-7) arg-12 e-31) eta-0))))))))))))))))))))))(else (if (null? arg-13) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-21 (car arg-13))) (let ((e-22 (cdr arg-13))) (if (null? e-21) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-26 (cdr e-21))) (if (null? e-26) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-27 (unbox e-26))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 0))) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) ((TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0)))))))))))))))))))))))))))))))) (let ((e-57 (cdr e-52))) (if (null? e-57) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 0))) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) ((TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-49))) e-50 e-53) eta-0)))))))))) (if (null? arg-12) (case (vector-ref e-18 0) ((1) (if (null? arg-13) (if (null? arg-13) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-21 (car arg-13))) (let ((e-22 (cdr arg-13))) (if (null? e-21) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-26 (cdr e-21))) (if (null? e-26) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-27 (unbox e-26))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 0))) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) ((TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0))))))))))))))))))))) (let ((e-30 (car arg-13))) (let ((e-31 (cdr arg-13))) (if (null? e-30) (if (null? arg-13) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-21 (car arg-13))) (let ((e-22 (cdr arg-13))) (if (null? e-21) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-26 (cdr e-21))) (if (null? e-26) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-27 (unbox e-26))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 0))) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) ((TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0))))))))))))))))))))) (let ((e-35 (cdr e-30))) (if (null? e-35) (if (null? arg-13) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-21 (car arg-13))) (let ((e-22 (cdr arg-13))) (if (null? e-21) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-26 (cdr e-21))) (if (null? e-26) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-27 (unbox e-26))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 0))) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) ((TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0))))))))))))))))))))) (let ((e-36 (unbox e-35))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 0))) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-36 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) ((TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 8 arg-8 arg-11 e-7) arg-12 e-31) eta-0))))))))))))))))))))))(else (if (null? arg-13) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-21 (car arg-13))) (let ((e-22 (cdr arg-13))) (if (null? e-21) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-26 (cdr e-21))) (if (null? e-26) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-27 (unbox e-26))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 0))) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) ((TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0))))))))))))))))))))))) (let ((e-38 (car arg-12))) (let ((e-39 (cdr arg-12))) (if (null? arg-13) (case (vector-ref e-18 0) ((1) (if (null? arg-13) (if (null? arg-13) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-21 (car arg-13))) (let ((e-22 (cdr arg-13))) (if (null? e-21) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-26 (cdr e-21))) (if (null? e-26) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-27 (unbox e-26))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 0))) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) ((TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0))))))))))))))))))))) (let ((e-30 (car arg-13))) (let ((e-31 (cdr arg-13))) (if (null? e-30) (if (null? arg-13) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-21 (car arg-13))) (let ((e-22 (cdr arg-13))) (if (null? e-21) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-26 (cdr e-21))) (if (null? e-26) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-27 (unbox e-26))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 0))) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) ((TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0))))))))))))))))))))) (let ((e-35 (cdr e-30))) (if (null? e-35) (if (null? arg-13) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-21 (car arg-13))) (let ((e-22 (cdr arg-13))) (if (null? e-21) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-26 (cdr e-21))) (if (null? e-26) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-27 (unbox e-26))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 0))) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) ((TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0))))))))))))))))))))) (let ((e-36 (unbox e-35))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 0))) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-36 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) ((TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 8 arg-8 arg-11 e-7) arg-12 e-31) eta-0))))))))))))))))))))))(else (if (null? arg-13) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-21 (car arg-13))) (let ((e-22 (cdr arg-13))) (if (null? e-21) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-26 (cdr e-21))) (if (null? e-26) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-27 (unbox e-26))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 0))) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) ((TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0))))))))))))))))))))))) (let ((e-41 (car arg-13))) (let ((e-42 (cdr arg-13))) (if (null? e-41) (case (vector-ref e-18 0) ((1) (if (null? arg-13) (if (null? arg-13) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-21 (car arg-13))) (let ((e-22 (cdr arg-13))) (if (null? e-21) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-26 (cdr e-21))) (if (null? e-26) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-27 (unbox e-26))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 0))) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) ((TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0))))))))))))))))))))) (let ((e-30 (car arg-13))) (let ((e-31 (cdr arg-13))) (if (null? e-30) (if (null? arg-13) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-21 (car arg-13))) (let ((e-22 (cdr arg-13))) (if (null? e-21) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-26 (cdr e-21))) (if (null? e-26) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-27 (unbox e-26))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 0))) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) ((TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0))))))))))))))))))))) (let ((e-35 (cdr e-30))) (if (null? e-35) (if (null? arg-13) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-21 (car arg-13))) (let ((e-22 (cdr arg-13))) (if (null? e-21) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-26 (cdr e-21))) (if (null? e-26) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-27 (unbox e-26))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 0))) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) ((TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0))))))))))))))))))))) (let ((e-36 (unbox e-35))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 0))) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-36 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) ((TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 8 arg-8 arg-11 e-7) arg-12 e-31) eta-0))))))))))))))))))))))(else (if (null? arg-13) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-21 (car arg-13))) (let ((e-22 (cdr arg-13))) (if (null? e-21) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-26 (cdr e-21))) (if (null? e-26) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-27 (unbox e-26))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 0))) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) ((TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0))))))))))))))))))))))) (let ((e-46 (cdr e-41))) (if (null? e-46) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 0))) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) ((TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 (vector 0 arg-8 (vector 1 e-38))) e-39 e-42) eta-0)))))))))) (case (vector-ref e-18 0) ((1) (if (null? arg-13) (if (null? arg-13) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-21 (car arg-13))) (let ((e-22 (cdr arg-13))) (if (null? e-21) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-26 (cdr e-21))) (if (null? e-26) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-27 (unbox e-26))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 0))) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) ((TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0))))))))))))))))))))) (let ((e-30 (car arg-13))) (let ((e-31 (cdr arg-13))) (if (null? e-30) (if (null? arg-13) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-21 (car arg-13))) (let ((e-22 (cdr arg-13))) (if (null? e-21) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-26 (cdr e-21))) (if (null? e-26) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-27 (unbox e-26))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 0))) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) ((TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0))))))))))))))))))))) (let ((e-35 (cdr e-30))) (if (null? e-35) (if (null? arg-13) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-21 (car arg-13))) (let ((e-22 (cdr arg-13))) (if (null? e-21) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-26 (cdr e-21))) (if (null? e-26) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-27 (unbox e-26))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 0))) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) ((TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0))))))))))))))))))))) (let ((e-36 (unbox e-35))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 0))) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-36 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) ((TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 8 arg-8 arg-11 e-7) arg-12 e-31) eta-0))))))))))))))))))))))(else (if (null? arg-13) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-21 (car arg-13))) (let ((e-22 (cdr arg-13))) (if (null? e-21) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-26 (cdr e-21))) (if (null? e-26) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-27 (unbox e-26))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 0))) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) ((TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0))))))))))))))))))))))))))))))))))))))))))(else (if (null? arg-12) (case (vector-ref e-18 0) ((1) (if (null? arg-13) (if (null? arg-13) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-21 (car arg-13))) (let ((e-22 (cdr arg-13))) (if (null? e-21) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-26 (cdr e-21))) (if (null? e-26) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-27 (unbox e-26))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 0))) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) ((TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0))))))))))))))))))))) (let ((e-30 (car arg-13))) (let ((e-31 (cdr arg-13))) (if (null? e-30) (if (null? arg-13) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-21 (car arg-13))) (let ((e-22 (cdr arg-13))) (if (null? e-21) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-26 (cdr e-21))) (if (null? e-26) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-27 (unbox e-26))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 0))) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) ((TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0))))))))))))))))))))) (let ((e-35 (cdr e-30))) (if (null? e-35) (if (null? arg-13) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-21 (car arg-13))) (let ((e-22 (cdr arg-13))) (if (null? e-21) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-26 (cdr e-21))) (if (null? e-26) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-27 (unbox e-26))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 0))) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) ((TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0))))))))))))))))))))) (let ((e-36 (unbox e-35))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 0))) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-36 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) ((TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 8 arg-8 arg-11 e-7) arg-12 e-31) eta-0))))))))))))))))))))))(else (if (null? arg-13) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-21 (car arg-13))) (let ((e-22 (cdr arg-13))) (if (null? e-21) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-26 (cdr e-21))) (if (null? e-26) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-27 (unbox e-26))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 0))) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) ((TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0))))))))))))))))))))))) (let ((e-38 (car arg-12))) (let ((e-39 (cdr arg-12))) (if (null? arg-13) (case (vector-ref e-18 0) ((1) (if (null? arg-13) (if (null? arg-13) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-21 (car arg-13))) (let ((e-22 (cdr arg-13))) (if (null? e-21) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-26 (cdr e-21))) (if (null? e-26) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-27 (unbox e-26))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 0))) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) ((TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0))))))))))))))))))))) (let ((e-30 (car arg-13))) (let ((e-31 (cdr arg-13))) (if (null? e-30) (if (null? arg-13) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-21 (car arg-13))) (let ((e-22 (cdr arg-13))) (if (null? e-21) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-26 (cdr e-21))) (if (null? e-26) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-27 (unbox e-26))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 0))) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) ((TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0))))))))))))))))))))) (let ((e-35 (cdr e-30))) (if (null? e-35) (if (null? arg-13) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-21 (car arg-13))) (let ((e-22 (cdr arg-13))) (if (null? e-21) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-26 (cdr e-21))) (if (null? e-26) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-27 (unbox e-26))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 0))) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) ((TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0))))))))))))))))))))) (let ((e-36 (unbox e-35))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 0))) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-36 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) ((TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 8 arg-8 arg-11 e-7) arg-12 e-31) eta-0))))))))))))))))))))))(else (if (null? arg-13) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-21 (car arg-13))) (let ((e-22 (cdr arg-13))) (if (null? e-21) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-26 (cdr e-21))) (if (null? e-26) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-27 (unbox e-26))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 0))) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) ((TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0))))))))))))))))))))))) (let ((e-41 (car arg-13))) (let ((e-42 (cdr arg-13))) (if (null? e-41) (case (vector-ref e-18 0) ((1) (if (null? arg-13) (if (null? arg-13) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-21 (car arg-13))) (let ((e-22 (cdr arg-13))) (if (null? e-21) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-26 (cdr e-21))) (if (null? e-26) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-27 (unbox e-26))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 0))) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) ((TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0))))))))))))))))))))) (let ((e-30 (car arg-13))) (let ((e-31 (cdr arg-13))) (if (null? e-30) (if (null? arg-13) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-21 (car arg-13))) (let ((e-22 (cdr arg-13))) (if (null? e-21) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-26 (cdr e-21))) (if (null? e-26) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-27 (unbox e-26))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 0))) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) ((TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0))))))))))))))))))))) (let ((e-35 (cdr e-30))) (if (null? e-35) (if (null? arg-13) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-21 (car arg-13))) (let ((e-22 (cdr arg-13))) (if (null? e-21) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-26 (cdr e-21))) (if (null? e-26) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-27 (unbox e-26))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 0))) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) ((TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0))))))))))))))))))))) (let ((e-36 (unbox e-35))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 0))) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-36 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) ((TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 8 arg-8 arg-11 e-7) arg-12 e-31) eta-0))))))))))))))))))))))(else (if (null? arg-13) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-21 (car arg-13))) (let ((e-22 (cdr arg-13))) (if (null? e-21) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-26 (cdr e-21))) (if (null? e-26) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-27 (unbox e-26))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 0))) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) ((TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0))))))))))))))))))))))) (let ((e-46 (cdr e-41))) (if (null? e-46) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 0))) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) ((TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 (vector 0 arg-8 (vector 1 e-38))) e-39 e-42) eta-0)))))))))) (case (vector-ref e-18 0) ((1) (if (null? arg-13) (if (null? arg-13) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-21 (car arg-13))) (let ((e-22 (cdr arg-13))) (if (null? e-21) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-26 (cdr e-21))) (if (null? e-26) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-27 (unbox e-26))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 0))) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) ((TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0))))))))))))))))))))) (let ((e-30 (car arg-13))) (let ((e-31 (cdr arg-13))) (if (null? e-30) (if (null? arg-13) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-21 (car arg-13))) (let ((e-22 (cdr arg-13))) (if (null? e-21) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-26 (cdr e-21))) (if (null? e-26) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-27 (unbox e-26))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 0))) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) ((TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0))))))))))))))))))))) (let ((e-35 (cdr e-30))) (if (null? e-35) (if (null? arg-13) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-21 (car arg-13))) (let ((e-22 (cdr arg-13))) (if (null? e-21) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-26 (cdr e-21))) (if (null? e-26) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-27 (unbox e-26))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 0))) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) ((TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0))))))))))))))))))))) (let ((e-36 (unbox e-35))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 0))) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-36 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) ((TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 8 arg-8 arg-11 e-7) arg-12 e-31) eta-0))))))))))))))))))))))(else (if (null? arg-13) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-21 (car arg-13))) (let ((e-22 (cdr arg-13))) (if (null? e-21) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-26 (cdr e-21))) (if (null? e-26) (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))) (let ((e-27 (unbox e-26))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (((e-14 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 arg-8 0))) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45Unelab-unelabNoSugar '() arg-9 '() e-27 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) ((TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 10 arg-8 arg-11 e-12 e-7) arg-12 e-22) eta-0))))))))))))))))))))))))))))))))))))(else (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11)))))))))))))))))(else (if (null? arg-12) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car arg-12))) (let ((e-2 (cdr arg-12))) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-11)) (let ((e-4 (car arg-13))) (let ((e-5 (cdr arg-13))) (if (null? e-4) (lambda (eta-0) (vector 1 arg-11)) (let ((e-9 (cdr e-4))) (if (null? e-9) (TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5) (lambda (eta-0) (vector 1 arg-11))))))))))))))) +(define TTImpC-45PartialEval-n--8119-6689-u--mkDynNames (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (if (null? arg-11) '() (let ((e-2 (car arg-11))) (let ((e-3 (cdr arg-11))) (if (null? e-2) (TTImpC-45PartialEval-n--8119-6689-u--mkDynNames arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-3) (let ((e-7 (cdr e-2))) (if (null? e-7) (cons (PreludeC-45TypesC-45String-C-43C-43 "_pe" (PreludeC-45Show-u--show_Show_Int arg-10)) (TTImpC-45PartialEval-n--8119-6689-u--mkDynNames arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (bs+ (blodwen-toSignedInt 1 63) arg-10 63) e-3)) (TTImpC-45PartialEval-n--8119-6689-u--mkDynNames arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-3))))))))) +(define TTImpC-45PartialEval-n--10130-8497-u--getSpecArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 ext-0) (if (null? arg-11) (vector 1 (box '())) (let ((e-2 (car arg-11))) (let ((e-3 (cdr arg-11))) (let ((e-7 (cdr e-2))) (let ((act-24 (TTImpC-45PartialEval-n--10130-8497-u--getSpecArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (PreludeC-45Types-u--C-43_Num_Nat (PreludeC-45Types-u--fromInteger_Num_Nat 1) arg-9) arg-10 e-3 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (if (null? e-5) (vector 1 '()) (let ((e-1 (unbox e-5))) (let ((sc4 (PreludeC-45Types-elem (cons (lambda (arg-12) (lambda (arg-13) (PreludeC-45Types-u--C-61C-61_Eq_Nat arg-12 arg-13))) (lambda (arg-12) (lambda (arg-13) (PreludeC-45Types-u--C-47C-61_Eq_Nat arg-12 arg-13)))) arg-9 arg-10))) (cond ((equal? sc4 1) (let ((act-25 (let ((act-25 (unbox arg-8))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Normalise-normaliseHoles arg-8 arg-0 e-8 arg-4 e-7 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-4 (vector-ref act-26 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref act-26 1))) (let ((act-27 ((TTImpC-45PartialEval-eraseInferred arg-8 e-9) ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-4 (vector-ref act-27 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref act-27 1))) (let ((sc8 (TTImpC-45PartialEval-n--10130-8496-u--concrete arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-0 e-10))) (if (null? sc8) (vector 1 '()) (let ((e-4 (unbox sc8))) (vector 1 (box (cons (cons arg-9 (box e-4)) e-1))))))))))))))))))) (else (vector 1 (box (cons (cons arg-9 '()) e-1)))))))))))))))))) +(define TTImpC-45PartialEval-n--8119-6691-u--getRawArgs (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (case (vector-ref arg-11 0) ((8) (let ((e-1 (vector-ref arg-11 2))) (let ((e-2 (vector-ref arg-11 3))) (TTImpC-45PartialEval-n--8119-6691-u--getRawArgs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (cons (cons '() e-2) arg-10) e-1)))) ((10) (let ((e-4 (vector-ref arg-11 2))) (let ((e-5 (vector-ref arg-11 3))) (let ((e-6 (vector-ref arg-11 4))) (TTImpC-45PartialEval-n--8119-6691-u--getRawArgs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (cons (cons (box e-5) e-6) arg-10) e-4)))))(else arg-10)))) +(define TTImpC-45PartialEval-n--8719-7251-u--getAllRefs (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (if (null? arg-11) arg-10 (let ((e-1 (car arg-11))) (let ((e-2 (cdr arg-11))) (if (null? e-1) (TTImpC-45PartialEval-n--8719-7251-u--getAllRefs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-2) (let ((e-4 (unbox e-1))) (CoreC-45TT-addRefs 0 (vector 1 "_") (TTImpC-45PartialEval-n--8719-7251-u--getAllRefs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-2) e-4)))))))) +(define TTImpC-45PartialEval-n--11189-9732-u--findName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-13) (case (vector-ref arg-13 0) ((0) '()) (else (let ((e-2 (vector-ref arg-13 2))) (let ((e-3 (vector-ref arg-13 3))) (case (vector-ref e-2 0) ((2) (let ((e-5 (vector-ref e-2 2))) (let ((sc2 (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-2 e-5))) (cond ((equal? sc2 1) (box 0)) (else (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (TTImpC-45PartialEval-n--11189-9732-u--findName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-3) (lambda (_-0) (box (+ 1 _-0)))))))))(else (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (TTImpC-45PartialEval-n--11189-9732-u--findName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-3) (lambda (_-0) (box (+ 1 _-0)))))))))))) +(define TTImpC-45PartialEval-n--11228-10355-u--extendEnv (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-14 arg-15) (case (vector-ref arg-14 0) ((0) arg-15) (else (let ((e-3 (vector-ref arg-14 3))) (cons (vector 0 arg-4 (AlgebraC-45ZeroOneOmega-u--top_Top_ZeroOneOmega) (vector 1 ) (vector 10 arg-4 0)) (TTImpC-45PartialEval-n--11228-10355-u--extendEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-3 arg-15))))))) +(define TTImpC-45PartialEval-n--9882-8287-u--dropErased (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (if (null? arg-6) '() (let ((e-2 (car arg-6))) (let ((e-3 (cdr arg-6))) (let ((sc1 (PreludeC-45Types-elem (cons (lambda (arg-7) (lambda (arg-8) (PreludeC-45Types-u--C-61C-61_Eq_Nat arg-7 arg-8))) (lambda (arg-7) (lambda (arg-8) (PreludeC-45Types-u--C-47C-61_Eq_Nat arg-7 arg-8)))) arg-4 arg-5))) (cond ((equal? sc1 1) (cons (vector 10 arg-3 0) (TTImpC-45PartialEval-n--9882-8287-u--dropErased arg-1 arg-2 arg-3 (PreludeC-45Types-u--C-43_Num_Nat (PreludeC-45Types-u--fromInteger_Num_Nat 1) arg-4) arg-5 e-3))) (else (cons e-2 (TTImpC-45PartialEval-n--9882-8287-u--dropErased arg-1 arg-2 arg-3 (PreludeC-45Types-u--C-43_Num_Nat (PreludeC-45Types-u--fromInteger_Num_Nat 1) arg-4) arg-5 e-3)))))))))) +(define TTImpC-45PartialEval-n--8119-6693-u--dropArgs (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (TTImpC-45PartialEval-n--8119-6692-u--reapply arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (vector 0 arg-8 arg-10) (TTImpC-45PartialEval-dropSpec 0 arg-2 (TTImpC-45PartialEval-n--8119-6691-u--getRawArgs arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 '() arg-11))))) +(define TTImpC-45PartialEval-n--10130-8495-u--dropAll (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (if (null? arg-9) (vector 0 ) (let ((e-3 (cdr arg-9))) (vector 1 (TTImpC-45PartialEval-n--10130-8495-u--dropAll arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-3)))))) +(define TTImpC-45PartialEval-n--10130-8496-u--concrete (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (CoreC-45TT-shrinkTerm arg-10 (TTImpC-45PartialEval-n--10130-8495-u--dropAll arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9)))) +(define TTImpC-45PartialEval-n--11189-9594-u--addLater (lambda (arg-0 arg-2 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-16 arg-17) (if (null? arg-17) arg-16 (let ((e-3 (cdr arg-17))) (+ 1 (TTImpC-45PartialEval-n--11189-9594-u--addLater arg-0 arg-2 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-16 e-3)))))) +(define TTImpC-45PartialEval-u--show_Show_ArgMode (lambda (arg-0) (if (null? arg-0) "Dynamic" (let ((e-0 (unbox arg-0))) (PreludeC-45TypesC-45String-C-43C-43 "Static " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-0)))))) (define TTImpC-45PartialEval-u--showPrec_Show_ArgMode (lambda (arg-0 arg-1) (TTImpC-45PartialEval-u--show_Show_ArgMode arg-1))) -(define TTImpC-45PartialEval-substLocs (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (if (null? sc0) arg-2 (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (TTImpC-45PartialEval-substLocs arg-0 e-3 (TTImpC-45PartialEval-substLoc arg-0 e-6 e-7 arg-2))))))))))) -(define TTImpC-45PartialEval-substLoc (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (TTImpC-45PartialEval-case--substLoc-4845 arg-0 e-4 e-3 e-2 arg-2 arg-1 (PreludeC-45Types-u--C-61C-61_Eq_Nat arg-1 e-4)))))) ((3) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (let ((e-10 (vector-ref sc0 4))) (vector 3 e-7 e-8 (CoreC-45TT-u--map_Functor_Binder (lambda (eta-0) (TTImpC-45PartialEval-substLoc arg-0 arg-1 arg-2 eta-0)) e-9) (TTImpC-45PartialEval-substLoc (cons e-8 arg-0) (PreludeC-45Types-u--C-43_Num_Nat (PreludeC-45Types-u--fromInteger_Num_Nat 1) arg-1) (CoreC-45TT-u--weaken_Weaken_Term arg-2) e-10))))))) ((2) (let ((e-12 (vector-ref sc0 1))) (let ((e-13 (vector-ref sc0 2))) (let ((e-14 (vector-ref sc0 3))) (let ((e-15 (vector-ref sc0 4))) (vector 2 e-12 e-13 e-14 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (TTImpC-45PartialEval-substLoc arg-0 arg-1 arg-2 eta-0)) e-15))))))) ((4) (let ((e-17 (vector-ref sc0 1))) (let ((e-18 (vector-ref sc0 2))) (let ((e-19 (vector-ref sc0 3))) (vector 4 e-17 (TTImpC-45PartialEval-substLoc arg-0 arg-1 arg-2 e-18) (TTImpC-45PartialEval-substLoc arg-0 arg-1 arg-2 e-19)))))) ((5) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (let ((e-24 (vector-ref sc0 4))) (vector 5 e-21 e-22 (TTImpC-45PartialEval-substLoc arg-0 arg-1 arg-2 e-23) (TTImpC-45PartialEval-substLoc arg-0 arg-1 arg-2 e-24))))))) ((6) (let ((e-26 (vector-ref sc0 1))) (let ((e-27 (vector-ref sc0 2))) (let ((e-28 (vector-ref sc0 3))) (vector 6 e-26 e-27 (TTImpC-45PartialEval-substLoc arg-0 arg-1 arg-2 e-28)))))) ((7) (let ((e-30 (vector-ref sc0 1))) (let ((e-31 (vector-ref sc0 2))) (let ((e-32 (vector-ref sc0 3))) (let ((e-33 (vector-ref sc0 4))) (vector 7 e-30 e-31 (TTImpC-45PartialEval-substLoc arg-0 arg-1 arg-2 e-32) (TTImpC-45PartialEval-substLoc arg-0 arg-1 arg-2 e-33))))))) ((8) (let ((e-35 (vector-ref sc0 1))) (let ((e-36 (vector-ref sc0 2))) (let ((e-37 (vector-ref sc0 3))) (vector 8 e-35 e-36 (TTImpC-45PartialEval-substLoc arg-0 arg-1 arg-2 e-37))))))(else arg-3))))) -(define TTImpC-45PartialEval-specialiseTy (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (let ((e-9 (vector-ref sc1 4))) (TTImpC-45PartialEval-case--specialiseTy-4761 arg-0 e-9 e-8 e-7 e-6 e-2 e-4 e-1 arg-2 arg-1 (DataC-45List-lookup (cons (lambda (arg-4) (lambda (arg-5) (PreludeC-45Types-u--C-61C-61_Eq_Nat arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45Types-u--C-47C-61_Eq_Nat arg-4 arg-5)))) arg-1 arg-2)))))))(else arg-3))))))))(else arg-3))))) -(define TTImpC-45PartialEval-specialise (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 ext-0) (TTImpC-45PartialEval-case--specialise-7495 arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (let ((sc0 arg-6)) (let ((e-5 (vector-ref sc0 6))) e-5)) ext-0))) -(define TTImpC-45PartialEval-specPatByVar (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-3)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (let ((sc2 e-7)) (let ((e-10 (car sc2))) (let ((e-11 (cdr sc2))) (TTImpC-45PartialEval-case--specPatByVar-5223 e-2 e-6 e-10 e-11 arg-0 (CoreC-45TT-getFnArgs e-10))))))))))))) -(define TTImpC-45PartialEval-specByVar (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (if (null? sc0) (PreludeC-45Types-u--pure_Applicative_Maybe '()) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (TTImpC-45PartialEval-specPatByVar arg-0 e-2) (lambda (u--pC-39) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (TTImpC-45PartialEval-specByVar arg-0 e-3) (lambda (u--psC-39) (PreludeC-45Types-u--pure_Applicative_Maybe (cons u--pC-39 u--psC-39)))))))))))) -(define TTImpC-45PartialEval-quotePi (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 ext-0) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (vector 1 (vector 1 ))) ((0) (vector 1 (vector 0 ))) ((2) (vector 1 (vector 2 ))) (else (let ((e-4 (vector-ref sc0 1))) (let ((act-24 ((TTImpC-45PartialEval-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-4) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 3 e-5))))))))))))) -(define TTImpC-45PartialEval-quoteHead (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (TTImpC-45PartialEval-case--quoteHead-8330 arg-1 e-3 e-2 arg-9 arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 (TTImpC-45PartialEval-n--14649-8241-u--addLater arg-1 e-3 e-2 arg-9 arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 e-3 arg-0) eta-0))))) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((sc1 e-6)) (case (vector-ref sc1 0) ((0) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((2) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (lambda (eta-0) (TTImpC-45PartialEval-case--quoteHead-8608 arg-0 arg-1 e-13 e-12 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 (TTImpC-45PartialEval-n--14649-8378-u--findName arg-0 arg-1 e-13 e-12 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-8) eta-0)))))(else (lambda (eta-0) (vector 1 (vector 1 arg-7 e-6 e-7)))))))(else (lambda (eta-0) (vector 1 (vector 1 arg-7 e-6 e-7))))))))) (else (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (TTImpC-45PartialEval-quoteArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 e-11 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 2 arg-7 e-9 e-10 e-5)))))))))))))))) -(define TTImpC-45PartialEval-quoteGenNF (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (TTImpC-45PartialEval-bName arg-5 "qv" eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (((e-4 arg-6) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) arg-8 (vector 1 e-1 (vector 0 ) e-5))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) ((TTImpC-45PartialEval-quoteGenNF (cons e-2 arg-0) arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (vector 1 e-2 e-5 arg-7) arg-8 e-6) eta-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImpC-45PartialEval-quoteBinder arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-3 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 3 e-1 e-2 e-7 e-6))))))))))))))))))))))) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (lambda (clam-0) (let ((sc1 e-7)) (case (vector-ref sc1 0) ((1) (let ((e-49 (vector-ref sc1 1))) (let ((e-50 (vector-ref sc1 2))) (let ((sc2 e-49)) (case (vector-ref sc2 0) ((1) (let ((act-24 ((CoreC-45Context-lookupCtxtExact e-50 (let ((sc3 arg-6)) (let ((e-0 (vector-ref sc3 1))) e-0))) clam-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((sc4 e-5)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((_-0 (vector 1 e-1))) (TTImpC-45PartialEval-case--caseC-32blockC-32inC-32quoteGenNF-9082 arg-0 arg-1 e-50 e-8 e-6 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 e-1 _-0 (let ((sc5 e-1)) (let ((e-24 (vector-ref sc5 6))) e-24)) clam-0)))) (else (let ((act-25 (TTImpC-45PartialEval-quoteArgsWithFC arg-2 arg-3 arg-4 arg-0 arg-1 arg-5 arg-6 arg-7 arg-8 e-8 clam-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (vector 1 (CoreC-45TT-applyWithFC (vector 1 e-6 (vector 1 ) e-50) e-9))))))))))))))))(else (let ((act-24 ((TTImpC-45PartialEval-quoteHead arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-6 arg-7 arg-8 e-7) clam-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (TTImpC-45PartialEval-quoteArgsWithFC arg-2 arg-3 arg-4 arg-0 arg-1 arg-5 arg-6 arg-7 arg-8 e-8 clam-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc3 1))) (vector 1 (CoreC-45TT-applyWithFC e-5 e-9))))))))))))))))))(else (let ((act-24 ((TTImpC-45PartialEval-quoteHead arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-6 arg-7 arg-8 e-7) clam-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTImpC-45PartialEval-quoteArgsWithFC arg-2 arg-3 arg-4 arg-0 arg-1 arg-5 arg-6 arg-7 arg-8 e-8 clam-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc2 1))) (vector 1 (CoreC-45TT-applyWithFC e-5 e-9)))))))))))))))))))) ((2) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (let ((e-13 (vector-ref sc0 4))) (let ((e-14 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (TTImpC-45PartialEval-quoteArgsWithFC arg-2 arg-3 arg-4 arg-0 arg-1 arg-5 arg-6 arg-7 arg-8 e-14 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (CoreC-45TT-applyWithFC (vector 1 e-10 (vector 2 e-12 e-13) e-11) e-5)))))))))))))) ((3) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (let ((e-20 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (TTImpC-45PartialEval-quoteArgsWithFC arg-2 arg-3 arg-4 arg-0 arg-1 arg-5 arg-6 arg-7 arg-8 e-20 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (CoreC-45TT-applyWithFC (vector 1 e-16 (vector 3 e-18 e-19) e-17) e-5)))))))))))))) ((4) (let ((e-22 (vector-ref sc0 1))) (let ((e-23 (vector-ref sc0 2))) (let ((e-24 (vector-ref sc0 3))) (let ((e-25 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((TTImpC-45PartialEval-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-24) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((TTImpC-45PartialEval-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-25) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 5 e-22 e-23 e-5 e-6)))))))))))))))))) ((5) (let ((e-27 (vector-ref sc0 1))) (let ((e-28 (vector-ref sc0 2))) (let ((e-29 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((TTImpC-45PartialEval-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-29) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 6 e-27 e-28 e-5)))))))))))) ((6) (let ((e-31 (vector-ref sc0 1))) (let ((e-32 (vector-ref sc0 2))) (let ((e-33 (vector-ref sc0 3))) (let ((e-34 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((CoreC-45Normalise-evalClosure arg-2 arg-1 arg-6 e-34) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((TTImpC-45PartialEval-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((CoreC-45Normalise-evalClosure arg-2 arg-1 arg-6 e-33) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((TTImpC-45PartialEval-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-7) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 7 e-31 e-32 e-8 e-6)))))))))))))))))))))))))))) ((7) (let ((e-36 (vector-ref sc0 1))) (let ((e-37 (vector-ref sc0 2))) (let ((e-38 (vector-ref sc0 3))) (let ((e-39 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (TTImpC-45PartialEval-quoteArgsWithFC arg-2 arg-3 arg-4 arg-0 arg-1 arg-5 arg-6 arg-7 arg-8 e-39 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-38)) (case (vector-ref sc2 0) ((6) (let ((e-4 (vector-ref sc2 4))) (let ((act-25 ((CoreC-45Normalise-evalClosure arg-2 arg-1 arg-6 e-4) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 ((TTImpC-45PartialEval-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-6) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (vector 1 (CoreC-45TT-applyWithFC e-7 e-5))))))))))))))(else (let ((act-25 ((TTImpC-45PartialEval-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-38) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (CoreC-45TT-applyWithFC (vector 8 e-36 e-37 e-6) e-5))))))))))))))))))))) ((8) (let ((e-41 (vector-ref sc0 1))) (let ((e-42 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 9 e-41 e-42)))))) ((9) (let ((e-44 (vector-ref sc0 1))) (let ((e-45 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 10 e-44 e-45)))))) (else (let ((e-47 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 11 e-47))))))))) -(define TTImpC-45PartialEval-quoteBinder (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 ext-0) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((act-24 ((TTImpC-45PartialEval-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-4) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTImpC-45PartialEval-quotePi arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-3 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 0 e-1 e-2 e-6 e-5))))))))))))))))) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (let ((e-9 (vector-ref sc0 4))) (let ((act-24 ((TTImpC-45PartialEval-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-8) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((TTImpC-45PartialEval-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-9) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc2 1))) (vector 1 (vector 1 e-6 e-7 e-5 e-10))))))))))))))))) ((2) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 4))) (let ((act-24 ((TTImpC-45PartialEval-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-14) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTImpC-45PartialEval-quotePi arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-13 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 2 e-11 e-12 e-6 e-5))))))))))))))))) ((3) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (let ((act-24 ((TTImpC-45PartialEval-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-19) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTImpC-45PartialEval-quotePi arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-18 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 3 e-16 e-17 e-6 e-5))))))))))))))))) ((4) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (let ((e-24 (vector-ref sc0 4))) (let ((act-24 ((TTImpC-45PartialEval-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-23) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((TTImpC-45PartialEval-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-24) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 4 e-21 e-22 e-5 e-6))))))))))))))))) (else (let ((e-26 (vector-ref sc0 1))) (let ((e-27 (vector-ref sc0 2))) (let ((e-28 (vector-ref sc0 3))) (let ((act-24 ((TTImpC-45PartialEval-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-28) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 5 e-26 e-27 e-5))))))))))))))) -(define TTImpC-45PartialEval-quoteArgsWithFC (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 ext-0) (let ((act-24 (TTImpC-45PartialEval-quoteArgs arg-3 arg-4 arg-0 arg-1 arg-2 arg-5 arg-6 arg-7 arg-8 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) arg-9) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (DataC-45List-u--zip_Zippable_List (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-fst eta-0)) arg-9) e-5))))))))) -(define TTImpC-45PartialEval-quoteArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 ext-0) (let ((sc0 arg-9)) (if (null? sc0) (vector 1 '()) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((act-24 ((CoreC-45Normalise-evalClosure arg-2 arg-1 arg-6 e-2) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((TTImpC-45PartialEval-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-5) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImpC-45PartialEval-quoteArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-3 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (cons e-6 e-7))))))))))))))))))))))) -(define TTImpC-45PartialEval-mkSubsts (lambda (arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (if (null? sc0) (vector 1 '()) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (TTImpC-45PartialEval-mkSubsts (PreludeC-45Types-u--C-43_Num_Nat (PreludeC-45Types-u--fromInteger_Num_Nat 1) arg-1) arg-2 e-3 arg-4) (lambda (u--subs) (TTImpC-45PartialEval-case--mkSubsts-5008 e-2 e-3 arg-4 arg-2 arg-1 u--subs (DataC-45List-lookup (cons (lambda (arg-5) (lambda (arg-6) (PreludeC-45Types-u--C-61C-61_Eq_Nat arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (PreludeC-45Types-u--C-47C-61_Eq_Nat arg-5 arg-6)))) arg-1 arg-2)))))))))) -(define TTImpC-45PartialEval-mkSpecDef (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 ext-0) (CoreC-45UnifyState-handleUnify arg-1 arg-3 (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (CoreC-45Context-setAllPublic arg-1 0 eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((u--staticargs (DataC-45List-mapMaybe (lambda (lamc-0) (let ((sc2 lamc-0)) (let ((e-2 (car sc2))) (let ((e-3 (cdr sc2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((1) (vector 0 )) (else (let ((e-0 (vector-ref sc3 1))) (vector 1 (cons e-2 e-0)))))))))) arg-7))) (let ((u--peapp (CoreC-45TT-applyWithFC (vector 1 arg-4 (vector 1 ) arg-6) (TTImpC-45PartialEval-dropSpec 0 u--staticargs arg-9)))) (let ((act-26 ((CoreC-45Context-lookupCtxtExact arg-6 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((0) (let ((act-27 (CoreC-45ContextC-45Log-logC arg-1 "specialise" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-1) (let ((act-27 (CoreC-45Context-toFullNames arg-1 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-2) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-2)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) arg-8 eta-1))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-0) (let ((sc5 lamc-0)) (let ((e-2 (car sc5))) (let ((e-3 (cdr sc5))) (let ((act-28 (let ((sc6 e-3)) (case (vector-ref sc6 0) ((0) (let ((e-0 (vector-ref sc6 1))) (let ((act-28 (CoreC-45Context-toFullNames arg-1 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-2) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-2)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) e-0 clam-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc7 1))) (vector 1 (vector 0 e-9))))))))) (else (vector 1 (vector 1 ))))))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc6 1))) (vector 1 (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_Nat u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_Nat u--d u--x)))) (cons (lambda (u--x) (TTImpC-45PartialEval-u--show_Show_ArgMode u--x)) (lambda (u--d) (lambda (u--x) (TTImpC-45PartialEval-u--showPrec_Show_ArgMode u--d u--x))))) (cons e-2 e-9))))))))))))) arg-7 '() eta-1))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (vector 1 (PreludeC-45TypesC-45String-C-43C-43 "Specialising " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-8) (PreludeC-45TypesC-45String-C-43C-43 " (" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name arg-8) (PreludeC-45TypesC-45String-C-43C-43 ") by " (CoreC-45NameC-45Namespace-showSep ", " e-9)))))))))))))))))) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((u--sty (TTImpC-45PartialEval-specialiseTy '() 0 u--staticargs (let ((sc5 arg-5)) (let ((e-2 (vector-ref sc5 3))) e-2))))) (let ((act-28 (CoreC-45Normalise-logTermNF '() arg-1 "specialise" (+ 1 (+ 1 (+ 1 0))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Specialised type " (CoreC-45Name-u--show_Show_Name arg-6))) '() u--sty eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((act-29 (CoreC-45Context-addDef arg-1 arg-6 (CoreC-45Context-newDef arg-4 arg-6 (AlgebraC-45ZeroOneOmega-u--top_Top_ZeroOneOmega) '() u--sty (vector 2 ) (vector 0 )) eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-30 (CoreC-45Context-addToSave arg-1 (vector 9 e-10) eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((u--specnames (TTImpC-45PartialEval-n--12250-5946-u--getAllRefs arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (LibrariesC-45DataC-45NameMap-empty) (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) arg-7)))) (let ((act-31 (CoreC-45Core-traverseC-39 (lambda (u--n) (lambda (eta-1) (vector 1 (cons u--n (+ 1 0))))) (LibrariesC-45DataC-45NameMap-keys u--specnames) '() eta-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-32 (let ((act-32 (unbox arg-1))) (vector 1 act-32)))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-33 ((TTImpC-45PartialEval-getReducible (cons arg-8 '()) (LibrariesC-45DataC-45NameMap-empty) e-13) eta-0))) (let ((sc10 act-33)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref sc10 1))) (let ((act-34 (CoreC-45Context-setFlag arg-1 arg-4 (vector 9 e-10) (vector 7 (PreludeC-45TypesC-45List-C-43C-43 e-12 (LibrariesC-45DataC-45NameMap-toList e-14))) eta-0))) (let ((sc11 act-34)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((_-0 (vector 0 ))) (TTImpC-45PartialEval-case--caseC-32blockC-32inC-32mkSpecDef-6388 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 u--staticargs u--peapp _-0 u--sty e-10 u--specnames e-12 e-13 e-14 (let ((sc12 arg-5)) (let ((e-17 (vector-ref sc12 18))) e-17)) eta-0))))))))))))))))))))))))))))))))))))))))) (else (let ((act-27 (CoreC-45ContextC-45Log-log arg-1 "specialise" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Already specialised " (CoreC-45Name-u--show_Show_Name arg-6))) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (vector 1 u--peapp))))))))))))))))))))))))) (lambda (u--err) (lambda (eta-0) (let ((act-24 (let ((act-24 (CoreC-45Context-toFullNames arg-1 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-1) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-1)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) arg-8 eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (CoreC-45ContextC-45Log-log arg-1 "specialise" (+ 1 0) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Partial evaluation of " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-5) (PreludeC-45TypesC-45String-C-43C-43 " failed" (PreludeC-45TypesC-45String-C-43C-43 "\u000a" (CoreC-45Core-u--show_Show_Error u--err)))))) eta-0)))))))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (let ((act-26 (set-box! arg-1 (let ((sc2 e-6)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (let ((e-3 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-29 (vector-ref sc2 6))) (let ((e-28 (vector-ref sc2 7))) (let ((e-7 (vector-ref sc2 8))) (let ((e-8 (vector-ref sc2 9))) (let ((e-9 (vector-ref sc2 10))) (let ((e-10 (vector-ref sc2 11))) (let ((e-11 (vector-ref sc2 12))) (let ((e-12 (vector-ref sc2 13))) (let ((e-13 (vector-ref sc2 14))) (let ((e-14 (vector-ref sc2 15))) (let ((e-15 (vector-ref sc2 16))) (let ((e-16 (vector-ref sc2 17))) (let ((e-17 (vector-ref sc2 18))) (let ((e-18 (vector-ref sc2 19))) (let ((e-19 (vector-ref sc2 20))) (let ((e-20 (vector-ref sc2 21))) (let ((e-21 (vector-ref sc2 22))) (let ((e-22 (vector-ref sc2 23))) (let ((e-23 (vector-ref sc2 24))) (let ((e-24 (vector-ref sc2 25))) (let ((e-25 (vector-ref sc2 26))) (let ((e-26 (vector-ref sc2 27))) (let ((e-27 (vector-ref sc2 28))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-29 e-28 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 (LibrariesC-45DataC-45NameMap-insert arg-6 (vector 0 ) e-25) e-26 e-27))))))))))))))))))))))))))))))))) (vector 1 act-26)))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (vector 1 (CoreC-45TT-applyWithFC (vector 1 arg-4 (vector 1 ) arg-8) arg-9))))))))))))))))) ext-0))) -(define TTImpC-45PartialEval-getStatic (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (vector 0 )) (else (let ((e-0 (vector-ref sc0 1))) (vector 1 e-0))))))) -(define TTImpC-45PartialEval-getSpecPats (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (TTImpC-45PartialEval-case--getSpecPats-5780 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (TTImpC-45PartialEval-specByVar arg-8 arg-9)))) -(define TTImpC-45PartialEval-getReducible (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-0)) (if (null? sc0) (lambda (eta-0) (vector 1 arg-1)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (TTImpC-45PartialEval-case--getReducible-5876 e-2 e-3 arg-2 arg-1 (LibrariesC-45DataC-45NameMap-lookup e-2 arg-1)))))))) -(define TTImpC-45PartialEval-findSpecs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact e-3 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) e-0))) ext-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((1) (let ((e-4 (vector-ref sc4 1))) (let ((act-26 (TTImpC-45PartialEval-specialise arg-0 arg-1 arg-2 arg-3 e-1 arg-4 e-4 e-3 arg-5 ext-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((sc6 e-7)) (case (vector-ref sc6 0) ((1) (let ((e-8 (vector-ref sc6 1))) (vector 1 e-8))) (else (vector 1 (CoreC-45TT-applyWithFC (vector 1 e-1 (vector 1 ) e-3) arg-5)))))))))))) (else (vector 1 (CoreC-45TT-applyWithFC (vector 1 e-1 (vector 1 ) e-3) arg-5))))))))))))))))(else (vector 1 (CoreC-45TT-applyWithFC arg-6 arg-5))))))))) ((2) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (TTImpC-45PartialEval-findSpecs arg-0 arg-1 arg-2 arg-3 arg-4 '() eta-0 eta-1))) e-8 '() ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc1 1))) (vector 1 (CoreC-45TT-applyWithFC (vector 2 e-5 e-6 e-7 e-9) arg-5)))))))))))) ((3) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (let ((e-13 (vector-ref sc0 4))) (let ((act-24 (CoreC-45CoreC-45Binder-traverse (lambda (eta-0) (lambda (eta-1) (TTImpC-45PartialEval-findSpecs arg-0 arg-1 arg-2 arg-3 arg-4 '() eta-0 eta-1))) e-12 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTImpC-45PartialEval-findSpecs (cons e-11 arg-0) arg-1 arg-2 arg-3 (cons e-5 arg-4) '() e-13 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (CoreC-45TT-applyWithFC (vector 3 e-10 e-11 e-5 e-6) arg-5))))))))))))))))) ((4) (let ((e-15 (vector-ref sc0 1))) (let ((e-16 (vector-ref sc0 2))) (let ((e-17 (vector-ref sc0 3))) (let ((act-24 (TTImpC-45PartialEval-findSpecs arg-0 arg-1 arg-2 arg-3 arg-4 '() e-17 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (TTImpC-45PartialEval-findSpecs arg-0 arg-1 arg-2 arg-3 arg-4 (cons (cons e-15 e-5) arg-5) e-16 ext-0)))))))))) ((6) (let ((e-19 (vector-ref sc0 1))) (let ((e-20 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 3))) (let ((act-24 (TTImpC-45PartialEval-findSpecs arg-0 arg-1 arg-2 arg-3 arg-4 '() e-21 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (CoreC-45TT-applyWithFC (vector 6 e-19 e-20 e-5) arg-5))))))))))) ((7) (let ((e-23 (vector-ref sc0 1))) (let ((e-24 (vector-ref sc0 2))) (let ((e-25 (vector-ref sc0 3))) (let ((e-26 (vector-ref sc0 4))) (let ((act-24 (TTImpC-45PartialEval-findSpecs arg-0 arg-1 arg-2 arg-3 arg-4 '() e-25 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTImpC-45PartialEval-findSpecs arg-0 arg-1 arg-2 arg-3 arg-4 '() e-26 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (CoreC-45TT-applyWithFC (vector 7 e-23 e-24 e-5 e-6) arg-5))))))))))))))))) ((8) (let ((e-28 (vector-ref sc0 1))) (let ((e-29 (vector-ref sc0 2))) (let ((e-30 (vector-ref sc0 3))) (let ((act-24 (TTImpC-45PartialEval-findSpecs arg-0 arg-1 arg-2 arg-3 arg-4 '() e-30 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (CoreC-45TT-applyWithFC (vector 8 e-28 e-29 e-5) arg-5)))))))))))(else (vector 1 (CoreC-45TT-applyWithFC arg-6 arg-5))))))) -(define TTImpC-45PartialEval-evalRHS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (CoreC-45Core-newRef (vector "Core.Normalise.QVar" ) (blodwen-toSignedInt 0 63) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) ((TTImpC-45PartialEval-quoteGenNF '() arg-0 arg-1 arg-2 arg-3 e-5 e-6 (vector 0 ) arg-4 arg-5) ext-0))))))))))))) -(define TTImpC-45PartialEval-eraseInferred (lambda (arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (CoreC-45CoreC-45Binder-traverse (lambda (eta-1) (TTImpC-45PartialEval-eraseInferred arg-1 eta-1)) e-3 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((TTImpC-45PartialEval-eraseInferred arg-1 e-4) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 3 e-1 e-2 e-5 e-6))))))))))))))))))(else (TTImpC-45PartialEval-case--eraseInferred-7032 arg-2 arg-1 (CoreC-45TT-getFnArgs arg-2))))))) -(define TTImpC-45PartialEval-dropSpec (lambda (arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (if (null? sc0) '() (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (TTImpC-45PartialEval-case--dropSpec-5333 e-2 e-3 arg-2 arg-1 (DataC-45List-lookup (cons (lambda (arg-4) (lambda (arg-5) (PreludeC-45Types-u--C-61C-61_Eq_Nat arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45Types-u--C-47C-61_Eq_Nat arg-4 arg-5)))) arg-1 arg-2)))))))) -(define TTImpC-45PartialEval-bName (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (set-box! arg-0 (bs+ e-5 1 63)))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 2 arg-1 e-5))))))))))))) -(define TTImpC-45PartialEval-applySpecialise (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (TTImpC-45PartialEval-findSpecs arg-0 arg-1 arg-2 arg-3 arg-4 '() arg-6 eta-0))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Context-toResolvedNames arg-1 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-1) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-1)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) arg-6 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((CoreC-45Normalise-nf arg-1 arg-0 e-5 arg-4 e-6) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTImpC-45PartialEval-evalRHS arg-0 arg-1 arg-2 arg-3 arg-4 e-7 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (CoreC-45Context-toFullNames arg-1 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-1) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-1)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) e-8 eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 (CoreC-45Normalise-logTermNF arg-0 arg-1 "specialise" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "New RHS") arg-4 e-9 eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (vector 1 e-9)))))))))))))))))))))))))))))))))))) -(define TTImpC-45Impossible-case--getImpossibleTermC-44expandNest-4031 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (if (null? sc1) (vector 0 arg-6 arg-5) (let ((e-4 (car sc1))) (let ((e-5 (cdr sc1))) (let ((sc2 e-4)) (case (vector-ref sc2 0) ((1) (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-5)) (if (null? sc3) (vector 0 arg-6 arg-5) (vector 0 arg-6 e-7)))))(else (vector 0 arg-6 arg-5))))))))))(else (vector 0 arg-6 arg-5)))))) -(define TTImpC-45Impossible-case--getImpossibleTermC-44addEnv-3974 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (TTImpC-45Impossible-n--10241-3953-u--addEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-6 arg-9 arg-7)) (else (cons (vector 32 arg-9 1) (TTImpC-45Impossible-n--10241-3953-u--addEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-6 arg-9 arg-7))))))) -(define TTImpC-45Impossible-case--caseC-32blockC-32inC-32buildApp-3714 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((5) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (vector 2 e-0 e-1)))) ((6) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (vector 3 e-3 e-4))))(else (vector 1 )))))) -(define TTImpC-45Impossible-case--caseC-32blockC-32inC-32processArgs-3493 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 (TTImpC-45Impossible-nextVar arg-9 arg-5 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (((arg-3 arg-11) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() e-5)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((TTImpC-45Impossible-processArgs arg-10 arg-9 (vector 4 arg-5 arg-8 e-5) e-6 arg-7 '() arg-6) eta-0))))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (clam-0) (let ((sc1 e-2)) (let ((e-5 (car sc1))) (let ((e-6 (cdr sc1))) (let ((sc2 e-5)) (let ((e-10 (cdr sc2))) (let ((act-24 ((TTImpC-45Impossible-mkTerm arg-10 arg-9 e-10 (vector 1 arg-2) '() '() '()) clam-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-25 (((arg-3 arg-11) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() e-7)) clam-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc4 1))) ((TTImpC-45Impossible-processArgs arg-10 arg-9 (vector 4 arg-5 arg-8 e-7) e-8 arg-7 '() e-6) clam-0))))))))))))))))))))))) -(define TTImpC-45Impossible-case--processArgs-3271 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 (TTImpC-45Impossible-nextVar arg-10 arg-5 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (((arg-3 arg-12) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() e-5)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((TTImpC-45Impossible-processArgs arg-11 arg-10 (vector 4 arg-5 arg-9 e-5) e-6 arg-8 arg-7 arg-6) eta-0))))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (clam-0) (let ((sc1 e-2)) (let ((e-5 (car sc1))) (let ((e-6 (cdr sc1))) (let ((sc2 e-5)) (let ((e-10 (cdr sc2))) (let ((act-24 ((TTImpC-45Impossible-mkTerm arg-11 arg-10 e-10 (vector 1 arg-2) '() '() '()) clam-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-25 (((arg-3 arg-12) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() e-7)) clam-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc4 1))) ((TTImpC-45Impossible-processArgs arg-11 arg-10 (vector 4 arg-5 arg-9 e-7) e-8 arg-8 arg-7 e-6) clam-0))))))))))))))))))))))) -(define TTImpC-45Impossible-case--processArgs-3150 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (clam-0) (let ((sc1 e-1)) (let ((e-5 (car sc1))) (let ((e-6 (cdr sc1))) (let ((sc2 e-5)) (let ((e-10 (cdr sc2))) (let ((act-24 ((TTImpC-45Impossible-mkTerm arg-10 arg-9 e-10 (vector 1 arg-2) '() '() '()) clam-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-25 (((arg-3 arg-11) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() e-7)) clam-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) ((TTImpC-45Impossible-processArgs arg-10 arg-9 (vector 4 arg-5 arg-8 e-7) e-8 '() arg-7 e-6) clam-0))))))))))))))))))) (else (lambda (eta-0) (TTImpC-45Impossible-badClause arg-8 '() arg-7 arg-6 eta-0))))))) -(define TTImpC-45Impossible-n--8955-2758-u--sameRet (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 0))) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 0))) ((9) (lambda (eta-0) (vector 1 0))) ((3) (let ((e-19 (vector-ref sc0 2))) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((3) (let ((e-30 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (CoreC-45Name-u--C-61C-61_Eq_Name e-19 e-30)))))(else (lambda (clam-0) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((0) (let ((e-1 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 3))) (let ((e-4 (vector-ref sc1 4))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((2) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-5 (vector-ref sc3 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (((e-4 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 e-1 1))) clam-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc4 1))) ((TTImpC-45Impossible-n--8955-2758-u--sameRet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-10) clam-0))))))))))))(else (vector 1 1))))))))(else (vector 1 1)))))))))) ((8) (let ((e-25 (vector-ref sc0 2))) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((8) (let ((e-36 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (CoreC-45TT-u--C-61C-61_Eq_Constant e-25 e-36)))))(else (lambda (clam-1) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((0) (let ((e-1 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 3))) (let ((e-4 (vector-ref sc1 4))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((2) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-5 (vector-ref sc3 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (((e-4 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 e-1 1))) clam-1))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc4 1))) ((TTImpC-45Impossible-n--8955-2758-u--sameRet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-10) clam-1))))))))))))(else (vector 1 1))))))))(else (vector 1 1)))))))))) ((10) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (clam-2) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((0) (let ((e-1 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 3))) (let ((e-4 (vector-ref sc1 4))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((2) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-5 (vector-ref sc3 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (((e-4 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 e-1 1))) clam-2))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc4 1))) ((TTImpC-45Impossible-n--8955-2758-u--sameRet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-10) clam-2))))))))))))(else (vector 1 1))))))))(else (vector 1 1)))))))))(else (lambda (clam-3) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (((e-4 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 e-1 1))) clam-3))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc3 1))) ((TTImpC-45Impossible-n--8955-2758-u--sameRet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-10) clam-3))))))))))))(else (vector 1 1))))))))(else (vector 1 1))))))))))))) -(define TTImpC-45Impossible-n--10241-3954-u--expandNest (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (TTImpC-45Impossible-case--getImpossibleTermC-44expandNest-4031 arg-0 arg-1 arg-2 arg-3 arg-4 e-1 e-0 (DataC-45List-lookup (cons (lambda (arg-6) (lambda (arg-7) (CoreC-45Name-u--C-61C-61_Eq_Name arg-6 arg-7))) (lambda (arg-6) (lambda (arg-7) (CoreC-45Name-u--C-47C-61_Eq_Name arg-6 arg-7)))) e-1 arg-2)))))(else arg-5))))) -(define TTImpC-45Impossible-n--10241-3955-u--applyEnv (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((8) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (vector 8 e-0 (TTImpC-45Impossible-n--10241-3955-u--applyEnv arg-0 arg-1 arg-2 arg-3 arg-4 e-1) e-2))))) ((9) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (vector 9 e-3 (TTImpC-45Impossible-n--10241-3955-u--applyEnv arg-0 arg-1 arg-2 arg-3 arg-4 e-4) e-5))))) ((10) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (let ((e-9 (vector-ref sc0 4))) (vector 10 e-6 (TTImpC-45Impossible-n--10241-3955-u--applyEnv arg-0 arg-1 arg-2 arg-3 arg-4 e-7) e-8 e-9))))))(else (TTImpC-45TTImp-apply (TTImpC-45Impossible-n--10241-3954-u--expandNest arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (TTImpC-45Impossible-n--10241-3953-u--addEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-0 (TTImpC-45TTImp-getFC arg-5) arg-3))))))) -(define TTImpC-45Impossible-n--10241-3953-u--addEnv (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-5)) (if (null? sc0) (let ((sc1 arg-7)) '()) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 arg-7)) (let ((e-8 (car sc1))) (let ((e-9 (cdr sc1))) (TTImpC-45Impossible-case--getImpossibleTermC-44addEnv-3974 arg-0 arg-1 arg-2 arg-3 arg-4 e-2 e-3 e-9 e-8 arg-6 (CoreC-45TT-isLet e-8))))))))))) -(define TTImpC-45Impossible-processArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-4 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 2))) (let ((e-6 (vector-ref sc0 3))) (let ((e-7 (vector-ref sc0 4))) (let ((sc1 e-6)) (case (vector-ref sc1 0) ((2) (let ((e-9 (vector-ref sc1 1))) (let ((e-10 (vector-ref sc1 2))) (let ((e-11 (vector-ref sc1 3))) (let ((e-12 (vector-ref sc1 4))) (let ((sc2 e-11)) (case (vector-ref sc2 0) ((1) (let ((sc3 arg-4)) (if (null? sc3) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) ((TTImpC-45Impossible-case--processArgs-3150 e-9 e-10 e-12 e-7 e-5 e-4 arg-6 arg-5 arg-2 arg-1 arg-0 e-8 (TTImpC-45ElabC-45App-findNamed e-5 arg-6)) eta-0))))))) (let ((e-17 (car sc3))) (let ((e-18 (cdr sc3))) (lambda (eta-0) (let ((act-24 ((TTImpC-45Impossible-mkTerm arg-0 arg-1 e-17 (vector 1 e-12) '() '() '()) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-25 (let ((act-25 (unbox arg-0))) (vector 1 act-25)))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref sc5 1))) (let ((act-26 (((e-7 e-13) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() e-8)) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref sc6 1))) ((TTImpC-45Impossible-processArgs arg-0 arg-1 (vector 4 e-4 arg-2 e-8) e-14 e-18 arg-5 arg-6) eta-0)))))))))))))))))))))) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) ((TTImpC-45Impossible-case--processArgs-3271 e-9 e-10 e-12 e-7 e-5 e-4 arg-6 arg-5 arg-4 arg-2 arg-1 arg-0 e-8 (TTImpC-45ElabC-45App-findNamed e-5 arg-6)) eta-0)))))))) ((2) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((sc4 arg-5)) (if (null? sc4) (let ((u--autos '())) ((TTImpC-45Impossible-case--caseC-32blockC-32inC-32processArgs-3493 e-9 e-10 e-12 e-7 e-5 e-4 arg-6 arg-4 arg-2 arg-1 arg-0 e-8 u--autos (TTImpC-45ElabC-45App-findNamed e-5 arg-6)) eta-0)) (let ((e-1 (car sc4))) (let ((e-2 (cdr sc4))) (let ((act-25 ((TTImpC-45Impossible-mkTerm arg-0 arg-1 e-1 (vector 1 e-12) '() '() '()) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((e-13 (vector-ref sc5 1))) (let ((act-26 (((e-7 e-8) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() e-13)) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (let ((e-14 (vector-ref sc6 1))) ((TTImpC-45Impossible-processArgs arg-0 arg-1 (vector 4 e-4 arg-2 e-13) e-14 arg-4 e-2 arg-6) eta-0))))))))))))))))))))))(else (let ((sc2 arg-4)) (if (null? sc2) (let ((sc3 arg-5)) (if (null? sc3) (lambda (clam-1) (let ((sc4 arg-6)) (if (null? sc4) (vector 1 arg-2) (TTImpC-45Impossible-badClause arg-2 arg-4 arg-5 arg-6 clam-1)))) (lambda (eta-0) (TTImpC-45Impossible-badClause arg-2 arg-4 arg-5 arg-6 eta-0)))) (lambda (eta-0) (TTImpC-45Impossible-badClause arg-2 arg-4 arg-5 arg-6 eta-0))))))))))))(else (let ((sc1 arg-4)) (if (null? sc1) (let ((sc2 arg-5)) (if (null? sc2) (lambda (clam-2) (let ((sc3 arg-6)) (if (null? sc3) (vector 1 arg-2) (TTImpC-45Impossible-badClause arg-2 arg-4 arg-5 arg-6 clam-2)))) (lambda (eta-0) (TTImpC-45Impossible-badClause arg-2 arg-4 arg-5 arg-6 eta-0)))) (lambda (eta-0) (TTImpC-45Impossible-badClause arg-2 arg-4 arg-5 arg-6 eta-0))))))))))))(else (let ((sc0 arg-4)) (if (null? sc0) (let ((sc1 arg-5)) (if (null? sc1) (lambda (clam-3) (let ((sc2 arg-6)) (if (null? sc2) (vector 1 arg-2) (TTImpC-45Impossible-badClause arg-2 arg-4 arg-5 arg-6 clam-3)))) (lambda (eta-0) (TTImpC-45Impossible-badClause arg-2 arg-4 arg-5 arg-6 eta-0)))) (lambda (eta-0) (TTImpC-45Impossible-badClause arg-2 arg-4 arg-5 arg-6 eta-0))))))))) -(define TTImpC-45Impossible-nextVar (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (set-box! arg-0 (bs+ e-5 1 63)))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 1 arg-1 (vector 0 ) (vector 2 "imp" e-5)))))))))))))) -(define TTImpC-45Impossible-mkTerm (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (TTImpC-45Impossible-buildApp arg-0 arg-1 e-0 e-1 arg-3 arg-4 arg-5 arg-6 eta-0))))) ((8) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (TTImpC-45Impossible-mkTerm arg-0 arg-1 e-3 arg-3 (cons e-4 arg-4) arg-5 arg-6)))) ((9) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (TTImpC-45Impossible-mkTerm arg-0 arg-1 e-6 arg-3 arg-4 (cons e-7 arg-5) arg-6)))) ((10) (let ((e-9 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 3))) (let ((e-11 (vector-ref sc0 4))) (TTImpC-45Impossible-mkTerm arg-0 arg-1 e-9 arg-3 arg-4 arg-5 (cons (cons e-10 e-11) arg-6)))))) ((28) (let ((e-12 (vector-ref sc0 1))) (let ((e-13 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 9 e-12 e-13))))))(else (lambda (eta-0) (TTImpC-45Impossible-nextVar arg-1 (TTImpC-45TTImp-getFC arg-2) eta-0))))))) -(define TTImpC-45Impossible-match (lambda (arg-0 arg-1 arg-2 ext-0) (let ((sc0 arg-2)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-3)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((CoreC-45Normalise-nf arg-0 '() e-5 '() e-7) ext-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) ((TTImpC-45Impossible-n--8955-2758-u--sameRet e-2 e-6 e-7 arg-1 arg-0 arg-1 e-8) ext-0))))))))))))))))))) -(define TTImpC-45Impossible-getImpossibleTerm (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (CoreC-45Core-newRef (vector "Core.Normalise.QVar" ) 0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((TTImpC-45Impossible-mkTerm arg-1 e-5 (TTImpC-45Impossible-n--10241-3955-u--applyEnv arg-0 arg-4 arg-3 arg-2 arg-1 arg-4) (vector 0 ) '() '() '()) ext-0)))))))) -(define TTImpC-45Impossible-dropNoMatch (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (if (null? sc0) (lambda (clam-1) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) (vector 1 arg-2)) (else (let ((e-2 (vector-ref sc1 1))) (CoreC-45Core-filterM (lambda (eta-0) (lambda (eta-1) (TTImpC-45Impossible-match arg-0 e-2 (let ((sc2 eta-0)) (let ((e-4 (car sc2))) (let ((e-3 (cdr sc2))) (cons e-4 (let ((sc3 e-3)) (let ((e-6 (car sc3))) (let ((e-5 (cdr sc3))) (cons e-6 (let ((sc4 e-5)) (let ((e-25 (vector-ref sc4 3))) e-25)))))))))) eta-1))) arg-2 clam-1)))))) (let ((e-4 (car sc0))) (let ((e-5 (cdr sc0))) (lambda (clam-0) (let ((sc1 e-5)) (if (null? sc1) (vector 1 (cons e-4 '())) (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((0) (vector 1 arg-2)) (else (let ((e-2 (vector-ref sc2 1))) (CoreC-45Core-filterM (lambda (eta-0) (lambda (eta-1) (TTImpC-45Impossible-match arg-0 e-2 (let ((sc3 eta-0)) (let ((e-6 (car sc3))) (let ((e-3 (cdr sc3))) (cons e-6 (let ((sc4 e-3)) (let ((e-8 (car sc4))) (let ((e-7 (cdr sc4))) (cons e-8 (let ((sc5 e-7)) (let ((e-27 (vector-ref sc5 3))) e-27)))))))))) eta-1))) arg-2 clam-0)))))))))))))) -(define TTImpC-45Impossible-buildApp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (CoreC-45Context-getPrimitiveNames arg-0 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (let ((sc2 (PreludeC-45Types-elem (cons (lambda (arg-8) (lambda (arg-9) (CoreC-45Name-u--C-61C-61_Eq_Name arg-8 arg-9))) (lambda (arg-8) (lambda (arg-9) (CoreC-45Name-u--C-47C-61_Eq_Name arg-8 arg-9)))) arg-3 e-6))) (cond ((equal? sc2 0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 "Can't deal with constants here yet") ext-0)) (else (vector 1 (vector 0 ))))))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-27 (CoreC-45Context-lookupNameBy (lambda (eta-0) eta-0) arg-3 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) e-0)) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 ((TTImpC-45Impossible-dropNoMatch arg-0 arg-4 e-8) ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((sc5 e-9)) (if (null? sc5) (CoreC-45Context-undefinedName arg-0 arg-2 arg-3 ext-0) (let ((e-1 (car sc5))) (let ((e-2 (cdr sc5))) (let ((sc6 e-1)) (if (null? sc6) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 17 arg-2 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-fst eta-0)) e-9)) ext-0) (let ((e-11 (car sc6))) (let ((e-10 (cdr sc6))) (let ((sc7 e-10)) (if (null? sc7) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 17 arg-2 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-fst eta-0)) e-9)) ext-0) (let ((e-13 (car sc7))) (let ((e-12 (cdr sc7))) (let ((sc8 e-2)) (if (null? sc8) (let ((act-29 ((CoreC-45Normalise-nf arg-0 '() e-5 '() (let ((sc9 e-12)) (let ((e-30 (vector-ref sc9 3))) e-30))) ext-0))) (let ((sc9 act-29)) (case (vector-ref sc9 0) ((0) (let ((e-3 (vector-ref sc9 1))) (vector 0 e-3))) (else (let ((e-14 (vector-ref sc9 1))) (let ((u--head (let ((_-0 (cons (cons e-11 (cons e-13 e-12)) '()))) (TTImpC-45Impossible-case--caseC-32blockC-32inC-32buildApp-3714 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 e-8 e-13 e-11 e-12 _-0 e-14 (let ((sc10 e-12)) (let ((e-17 (vector-ref sc10 18))) e-17)))))) ((TTImpC-45Impossible-processArgs arg-0 arg-1 (vector 1 arg-2 u--head e-11) e-14 arg-5 arg-6 arg-7) ext-0))))))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 17 arg-2 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-fst eta-0)) e-9)) ext-0))))))))))))))))))))))))))))))))))))))))) +(define TTImpC-45PartialEval-substLocs (lambda (arg-0 arg-1 arg-2) (if (null? arg-1) arg-2 (let ((e-2 (car arg-1))) (let ((e-3 (cdr arg-1))) (let ((e-6 (car e-2))) (let ((e-7 (cdr e-2))) (TTImpC-45PartialEval-substLocs arg-0 e-3 (TTImpC-45PartialEval-substLoc arg-0 e-6 e-7 arg-2))))))))) +(define TTImpC-45PartialEval-substLoc (lambda (arg-0 arg-1 arg-2 arg-3) (case (vector-ref arg-3 0) ((0) (let ((e-2 (vector-ref arg-3 1))) (let ((e-3 (vector-ref arg-3 2))) (let ((e-4 (vector-ref arg-3 3))) (let ((sc1 (PreludeC-45Types-u--C-61C-61_Eq_Nat arg-1 e-4))) (cond ((equal? sc1 1) arg-2) (else (vector 0 e-2 e-3 e-4)))))))) ((3) (let ((e-7 (vector-ref arg-3 1))) (let ((e-8 (vector-ref arg-3 2))) (let ((e-9 (vector-ref arg-3 3))) (let ((e-10 (vector-ref arg-3 4))) (vector 3 e-7 e-8 (CoreC-45TT-u--map_Functor_Binder (lambda (eta-0) (TTImpC-45PartialEval-substLoc arg-0 arg-1 arg-2 eta-0)) e-9) (TTImpC-45PartialEval-substLoc (cons e-8 arg-0) (PreludeC-45Types-u--C-43_Num_Nat (PreludeC-45Types-u--fromInteger_Num_Nat 1) arg-1) (CoreC-45TT-u--weaken_Weaken_Term arg-2) e-10))))))) ((2) (let ((e-12 (vector-ref arg-3 1))) (let ((e-13 (vector-ref arg-3 2))) (let ((e-14 (vector-ref arg-3 3))) (let ((e-15 (vector-ref arg-3 4))) (vector 2 e-12 e-13 e-14 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (TTImpC-45PartialEval-substLoc arg-0 arg-1 arg-2 eta-0)) e-15))))))) ((4) (let ((e-17 (vector-ref arg-3 1))) (let ((e-18 (vector-ref arg-3 2))) (let ((e-19 (vector-ref arg-3 3))) (vector 4 e-17 (TTImpC-45PartialEval-substLoc arg-0 arg-1 arg-2 e-18) (TTImpC-45PartialEval-substLoc arg-0 arg-1 arg-2 e-19)))))) ((5) (let ((e-21 (vector-ref arg-3 1))) (let ((e-22 (vector-ref arg-3 2))) (let ((e-23 (vector-ref arg-3 3))) (let ((e-24 (vector-ref arg-3 4))) (vector 5 e-21 e-22 (TTImpC-45PartialEval-substLoc arg-0 arg-1 arg-2 e-23) (TTImpC-45PartialEval-substLoc arg-0 arg-1 arg-2 e-24))))))) ((6) (let ((e-26 (vector-ref arg-3 1))) (let ((e-27 (vector-ref arg-3 2))) (let ((e-28 (vector-ref arg-3 3))) (vector 6 e-26 e-27 (TTImpC-45PartialEval-substLoc arg-0 arg-1 arg-2 e-28)))))) ((7) (let ((e-30 (vector-ref arg-3 1))) (let ((e-31 (vector-ref arg-3 2))) (let ((e-32 (vector-ref arg-3 3))) (let ((e-33 (vector-ref arg-3 4))) (vector 7 e-30 e-31 (TTImpC-45PartialEval-substLoc arg-0 arg-1 arg-2 e-32) (TTImpC-45PartialEval-substLoc arg-0 arg-1 arg-2 e-33))))))) ((8) (let ((e-35 (vector-ref arg-3 1))) (let ((e-36 (vector-ref arg-3 2))) (let ((e-37 (vector-ref arg-3 3))) (vector 8 e-35 e-36 (TTImpC-45PartialEval-substLoc arg-0 arg-1 arg-2 e-37))))))(else arg-3)))) +(define TTImpC-45PartialEval-specialiseTy (lambda (arg-0 arg-1 arg-2 arg-3) (case (vector-ref arg-3 0) ((3) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-3 (vector-ref arg-3 3))) (let ((e-4 (vector-ref arg-3 4))) (case (vector-ref e-3 0) ((2) (let ((e-6 (vector-ref e-3 1))) (let ((e-7 (vector-ref e-3 2))) (let ((e-9 (vector-ref e-3 4))) (let ((sc2 (DataC-45List-lookup (cons (lambda (arg-4) (lambda (arg-5) (PreludeC-45Types-u--C-61C-61_Eq_Nat arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45Types-u--C-47C-61_Eq_Nat arg-4 arg-5)))) arg-1 arg-2))) (if (null? sc2) (vector 3 e-1 e-2 (vector 2 e-6 e-7 (vector 1 ) e-9) (TTImpC-45PartialEval-specialiseTy (cons e-2 arg-0) (PreludeC-45Types-u--C-43_Num_Nat (PreludeC-45Types-u--fromInteger_Num_Nat 1) arg-1) arg-2 e-4)) (let ((e-5 (unbox sc2))) (TTImpC-45PartialEval-specialiseTy arg-0 (PreludeC-45Types-u--C-43_Num_Nat (PreludeC-45Types-u--fromInteger_Num_Nat 1) arg-1) arg-2 (CoreC-45TTC-45SubstEnv-subst (CoreC-45TT-embed e-5) e-4)))))))))(else arg-3)))))))(else arg-3)))) +(define TTImpC-45PartialEval-specialise (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 ext-0) (TTImpC-45PartialEval-case--specialise-8822 arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (let ((e-5 (vector-ref arg-6 5))) e-5) ext-0))) +(define TTImpC-45PartialEval-specPatByVar (lambda (arg-0 arg-1) (let ((e-2 (car arg-1))) (let ((e-3 (cdr arg-1))) (let ((e-6 (car e-3))) (let ((e-7 (cdr e-3))) (let ((e-10 (car e-7))) (let ((e-11 (cdr e-7))) (TTImpC-45PartialEval-case--specPatByVar-6507 e-2 e-6 e-10 e-11 arg-0 (CoreC-45TT-getFnArgs e-10)))))))))) +(define TTImpC-45PartialEval-specByVar (lambda (arg-0 arg-1) (if (null? arg-1) (PreludeC-45Types-u--pure_Applicative_Maybe '()) (let ((e-2 (car arg-1))) (let ((e-3 (cdr arg-1))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (TTImpC-45PartialEval-specPatByVar arg-0 e-2) (lambda (u--pC-39) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (TTImpC-45PartialEval-specByVar arg-0 e-3) (lambda (u--psC-39) (PreludeC-45Types-u--pure_Applicative_Maybe (cons u--pC-39 u--psC-39))))))))))) +(define TTImpC-45PartialEval-quotePi (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 ext-0) (case (vector-ref arg-9 0) ((1) (vector 1 (vector 1 ))) ((0) (vector 1 (vector 0 ))) ((2) (vector 1 (vector 2 ))) (else (let ((e-4 (vector-ref arg-9 1))) (let ((act-24 ((TTImpC-45PartialEval-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-4) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 3 e-5))))))))))) +(define TTImpC-45PartialEval-quoteHead (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (case (vector-ref arg-10 0) ((0) (let ((e-2 (vector-ref arg-10 1))) (let ((e-3 (vector-ref arg-10 2))) (lambda (eta-0) (vector 1 (vector 0 arg-7 e-2 (TTImpC-45PartialEval-n--11189-9594-u--addLater arg-1 e-3 e-2 arg-9 arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 e-3 arg-0))))))) ((1) (let ((e-6 (vector-ref arg-10 1))) (let ((e-7 (vector-ref arg-10 2))) (case (vector-ref e-6 0) ((0) (lambda (clam-0) (case (vector-ref e-7 0) ((2) (let ((e-12 (vector-ref e-7 1))) (let ((e-13 (vector-ref e-7 2))) (let ((sc3 (TTImpC-45PartialEval-n--11189-9732-u--findName arg-0 arg-1 e-13 e-12 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-8))) (if (null? sc3) (vector 1 (vector 1 arg-7 (vector 0 ) (vector 2 e-12 e-13))) (let ((e-1 (unbox sc3))) (vector 1 (vector 0 arg-7 '() e-1))))))))(else (vector 1 (vector 1 arg-7 e-6 e-7))))))(else (lambda (eta-0) (vector 1 (vector 1 arg-7 e-6 e-7)))))))) (else (let ((e-9 (vector-ref arg-10 1))) (let ((e-10 (vector-ref arg-10 2))) (let ((e-11 (vector-ref arg-10 3))) (lambda (eta-0) (let ((act-24 (TTImpC-45PartialEval-quoteArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 e-11 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 2 arg-7 e-9 e-10 e-5)))))))))))))) +(define TTImpC-45PartialEval-quoteGenNF (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (case (vector-ref arg-9 0) ((0) (let ((e-1 (vector-ref arg-9 1))) (let ((e-2 (vector-ref arg-9 2))) (let ((e-3 (vector-ref arg-9 3))) (let ((e-4 (vector-ref arg-9 4))) (lambda (eta-0) (let ((act-24 (TTImpC-45PartialEval-bName arg-5 "qv" eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (let ((act-25 (((e-4 arg-6) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) arg-8 (vector 1 e-1 (vector 0 ) e-5))) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-6 (vector-ref act-25 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-25 1))) ((TTImpC-45PartialEval-quoteGenNF (cons e-2 arg-0) arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (vector 1 e-2 e-5 arg-7) arg-8 e-6) eta-0))))))) (case (vector-ref act-25 0) ((0) (let ((e-6 (vector-ref act-25 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45PartialEval-quoteBinder arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-3 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-7 (vector-ref act-26 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (vector 3 e-1 e-2 e-7 e-6)))))))))))))))))))) ((1) (let ((e-6 (vector-ref arg-9 1))) (let ((e-7 (vector-ref arg-9 2))) (let ((e-8 (vector-ref arg-9 3))) (lambda (clam-0) (case (vector-ref e-7 0) ((1) (let ((e-49 (vector-ref e-7 1))) (let ((e-50 (vector-ref e-7 2))) (case (vector-ref e-49 0) ((1) (let ((act-24 ((CoreC-45Context-lookupCtxtExact e-50 (let ((e-0 (vector-ref arg-6 0))) e-0)) clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (if (null? e-5) (let ((act-25 (TTImpC-45PartialEval-quoteArgsWithFC arg-2 arg-3 arg-4 arg-0 arg-1 arg-5 arg-6 arg-7 arg-8 e-8 clam-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-25 1))) (vector 1 (CoreC-45TT-applyWithFC (vector 1 e-6 (vector 1 ) e-50) e-9)))))) (let ((e-1 (unbox e-5))) (let ((_-0 (box e-1))) (TTImpC-45PartialEval-case--caseC-32blockC-32inC-32quoteGenNF-10422 arg-0 arg-1 e-50 e-8 e-6 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 e-1 _-0 (let ((e-24 (vector-ref e-1 5))) e-24) clam-0)))))))))(else (let ((act-24 ((TTImpC-45PartialEval-quoteHead arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-6 arg-7 arg-8 e-7) clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (TTImpC-45PartialEval-quoteArgsWithFC arg-2 arg-3 arg-4 arg-0 arg-1 arg-5 arg-6 arg-7 arg-8 e-8 clam-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-25 1))) (vector 1 (CoreC-45TT-applyWithFC e-5 e-9)))))))))))))))(else (let ((act-24 ((TTImpC-45PartialEval-quoteHead arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-6 arg-7 arg-8 e-7) clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (TTImpC-45PartialEval-quoteArgsWithFC arg-2 arg-3 arg-4 arg-0 arg-1 arg-5 arg-6 arg-7 arg-8 e-8 clam-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-25 1))) (vector 1 (CoreC-45TT-applyWithFC e-5 e-9))))))))))))))))) ((2) (let ((e-10 (vector-ref arg-9 1))) (let ((e-11 (vector-ref arg-9 2))) (let ((e-12 (vector-ref arg-9 3))) (let ((e-13 (vector-ref arg-9 4))) (let ((e-14 (vector-ref arg-9 5))) (lambda (eta-0) (let ((act-24 (TTImpC-45PartialEval-quoteArgsWithFC arg-2 arg-3 arg-4 arg-0 arg-1 arg-5 arg-6 arg-7 arg-8 e-14 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (CoreC-45TT-applyWithFC (vector 1 e-10 (vector 2 e-12 e-13) e-11) e-5))))))))))))) ((3) (let ((e-16 (vector-ref arg-9 1))) (let ((e-17 (vector-ref arg-9 2))) (let ((e-18 (vector-ref arg-9 3))) (let ((e-19 (vector-ref arg-9 4))) (let ((e-20 (vector-ref arg-9 5))) (lambda (eta-0) (let ((act-24 (TTImpC-45PartialEval-quoteArgsWithFC arg-2 arg-3 arg-4 arg-0 arg-1 arg-5 arg-6 arg-7 arg-8 e-20 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (CoreC-45TT-applyWithFC (vector 1 e-16 (vector 3 e-18 e-19) e-17) e-5))))))))))))) ((4) (let ((e-22 (vector-ref arg-9 1))) (let ((e-23 (vector-ref arg-9 2))) (let ((e-24 (vector-ref arg-9 3))) (let ((e-25 (vector-ref arg-9 4))) (lambda (eta-0) (let ((act-24 ((TTImpC-45PartialEval-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-24) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((TTImpC-45PartialEval-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-25) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (vector 5 e-22 e-23 e-5 e-6)))))))))))))))) ((5) (let ((e-27 (vector-ref arg-9 1))) (let ((e-28 (vector-ref arg-9 2))) (let ((e-29 (vector-ref arg-9 3))) (lambda (eta-0) (let ((act-24 ((TTImpC-45PartialEval-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-29) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 6 e-27 e-28 e-5))))))))))) ((6) (let ((e-31 (vector-ref arg-9 1))) (let ((e-32 (vector-ref arg-9 2))) (let ((e-33 (vector-ref arg-9 3))) (let ((e-34 (vector-ref arg-9 4))) (lambda (eta-0) (let ((act-24 ((CoreC-45Normalise-evalClosure arg-2 arg-1 arg-6 e-34) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((TTImpC-45PartialEval-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-5) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 ((CoreC-45Normalise-evalClosure arg-2 arg-1 arg-6 e-33) eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 ((TTImpC-45PartialEval-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-7) eta-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (vector 1 (vector 7 e-31 e-32 e-8 e-6)))))))))))))))))))))))) ((7) (let ((e-36 (vector-ref arg-9 1))) (let ((e-37 (vector-ref arg-9 2))) (let ((e-38 (vector-ref arg-9 3))) (let ((e-39 (vector-ref arg-9 4))) (lambda (eta-0) (let ((act-24 (TTImpC-45PartialEval-quoteArgsWithFC arg-2 arg-3 arg-4 arg-0 arg-1 arg-5 arg-6 arg-7 arg-8 e-39 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (case (vector-ref e-38 0) ((6) (let ((e-4 (vector-ref e-38 4))) (let ((act-25 ((CoreC-45Normalise-evalClosure arg-2 arg-1 arg-6 e-4) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-6 (vector-ref act-25 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 ((TTImpC-45PartialEval-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-6) eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-7 (vector-ref act-26 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (CoreC-45TT-applyWithFC e-7 e-5))))))))))))(else (let ((act-25 ((TTImpC-45PartialEval-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-38) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (CoreC-45TT-applyWithFC (vector 8 e-36 e-37 e-6) e-5)))))))))))))))))) ((8) (let ((e-41 (vector-ref arg-9 1))) (let ((e-42 (vector-ref arg-9 2))) (lambda (eta-0) (vector 1 (vector 9 e-41 e-42)))))) ((9) (let ((e-44 (vector-ref arg-9 1))) (let ((e-45 (vector-ref arg-9 2))) (lambda (eta-0) (vector 1 (vector 10 e-44 e-45)))))) (else (let ((e-47 (vector-ref arg-9 1))) (lambda (eta-0) (vector 1 (vector 11 e-47)))))))) +(define TTImpC-45PartialEval-quoteBinder (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 ext-0) (case (vector-ref arg-9 0) ((0) (let ((e-1 (vector-ref arg-9 1))) (let ((e-2 (vector-ref arg-9 2))) (let ((e-3 (vector-ref arg-9 3))) (let ((e-4 (vector-ref arg-9 4))) (let ((act-24 ((TTImpC-45PartialEval-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-4) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (TTImpC-45PartialEval-quotePi arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-3 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-6 (vector-ref act-25 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (vector 0 e-1 e-2 e-6 e-5))))))))))))))) ((1) (let ((e-6 (vector-ref arg-9 1))) (let ((e-7 (vector-ref arg-9 2))) (let ((e-8 (vector-ref arg-9 3))) (let ((e-9 (vector-ref arg-9 4))) (let ((act-24 ((TTImpC-45PartialEval-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-8) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((TTImpC-45PartialEval-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-9) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref act-25 1))) (vector 1 (vector 1 e-6 e-7 e-5 e-10))))))))))))))) ((2) (let ((e-11 (vector-ref arg-9 1))) (let ((e-12 (vector-ref arg-9 2))) (let ((e-13 (vector-ref arg-9 3))) (let ((e-14 (vector-ref arg-9 4))) (let ((act-24 ((TTImpC-45PartialEval-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-14) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (TTImpC-45PartialEval-quotePi arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-13 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (vector 2 e-11 e-12 e-6 e-5))))))))))))))) ((3) (let ((e-16 (vector-ref arg-9 1))) (let ((e-17 (vector-ref arg-9 2))) (let ((e-18 (vector-ref arg-9 3))) (let ((e-19 (vector-ref arg-9 4))) (let ((act-24 ((TTImpC-45PartialEval-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-19) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (TTImpC-45PartialEval-quotePi arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-18 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (vector 3 e-16 e-17 e-6 e-5))))))))))))))) ((4) (let ((e-21 (vector-ref arg-9 1))) (let ((e-22 (vector-ref arg-9 2))) (let ((e-23 (vector-ref arg-9 3))) (let ((e-24 (vector-ref arg-9 4))) (let ((act-24 ((TTImpC-45PartialEval-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-23) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((TTImpC-45PartialEval-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-24) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (vector 4 e-21 e-22 e-5 e-6))))))))))))))) (else (let ((e-26 (vector-ref arg-9 1))) (let ((e-27 (vector-ref arg-9 2))) (let ((e-28 (vector-ref arg-9 3))) (let ((act-24 ((TTImpC-45PartialEval-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-28) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 5 e-26 e-27 e-5))))))))))))) +(define TTImpC-45PartialEval-quoteArgsWithFC (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 ext-0) (let ((act-24 (TTImpC-45PartialEval-quoteArgs arg-3 arg-4 arg-0 arg-1 arg-2 arg-5 arg-6 arg-7 arg-8 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) arg-9) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (DataC-45List-u--zip_Zippable_List (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-fst eta-0)) arg-9) e-5)))))))) +(define TTImpC-45PartialEval-quoteArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 ext-0) (if (null? arg-9) (vector 1 '()) (let ((e-2 (car arg-9))) (let ((e-3 (cdr arg-9))) (let ((act-24 ((CoreC-45Normalise-evalClosure arg-2 arg-1 arg-6 e-2) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((TTImpC-45PartialEval-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-5) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45PartialEval-quoteArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-3 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-4 (vector-ref act-26 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (cons e-6 e-7))))))))))))))))))) +(define TTImpC-45PartialEval-mkSubsts (lambda (arg-1 arg-2 arg-3 arg-4) (if (null? arg-3) (box '()) (let ((e-2 (car arg-3))) (let ((e-3 (cdr arg-3))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (TTImpC-45PartialEval-mkSubsts (PreludeC-45Types-u--C-43_Num_Nat (PreludeC-45Types-u--fromInteger_Num_Nat 1) arg-1) arg-2 e-3 arg-4) (lambda (u--subs) (let ((sc1 (DataC-45List-lookup (cons (lambda (arg-5) (lambda (arg-6) (PreludeC-45Types-u--C-61C-61_Eq_Nat arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (PreludeC-45Types-u--C-47C-61_Eq_Nat arg-5 arg-6)))) arg-1 arg-2))) (if (null? sc1) (box u--subs) (let ((e-4 (unbox sc1))) (case (vector-ref e-2 0) ((0) (let ((e-5 (vector-ref e-2 3))) (box (cons (cons e-5 (CoreC-45TT-embed e-4)) u--subs)))) ((5) (let ((e-9 (vector-ref e-2 3))) (let ((e-10 (vector-ref e-2 4))) (case (vector-ref e-9 0) ((0) (let ((e-21 (vector-ref e-9 3))) (case (vector-ref e-10 0) ((0) (let ((e-27 (vector-ref e-10 3))) (box (cons (cons e-21 (CoreC-45TT-embed e-4)) (cons (cons e-27 (CoreC-45TT-embed e-4)) u--subs)))))(else (case (vector-ref e-10 0) ((0) (let ((e-15 (vector-ref e-10 3))) (box (cons (cons e-15 (CoreC-45TT-embed e-4)) u--subs))))(else '()))))))(else (case (vector-ref e-10 0) ((0) (let ((e-15 (vector-ref e-10 3))) (box (cons (cons e-15 (CoreC-45TT-embed e-4)) u--subs))))(else '())))))))(else '())))))))))))) +(define TTImpC-45PartialEval-mkSpecDef (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 ext-0) (CoreC-45UnifyState-handleUnify arg-1 arg-3 (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-setAllPublic arg-1 1 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((u--staticargs (DataC-45List-mapMaybe (lambda (lamc-0) (let ((e-2 (car lamc-0))) (let ((e-3 (cdr lamc-0))) (if (null? e-3) '() (let ((e-0 (unbox e-3))) (box (cons e-2 e-0))))))) arg-7))) (let ((u--peapp (CoreC-45TT-applyWithFC (vector 1 arg-4 (vector 1 ) arg-6) (TTImpC-45PartialEval-dropSpec 0 u--staticargs arg-9)))) (let ((act-26 ((CoreC-45Context-lookupCtxtExact arg-6 (let ((e-0 (vector-ref e-5 0))) e-0)) eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (if (null? e-7) (let ((act-27 (CoreC-45ContextC-45Log-unverifiedLogC arg-1 "specialise" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-1) (let ((act-27 (CoreC-45Context-toFullNames arg-1 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-2) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-2)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-2) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-2))))) arg-8 eta-1))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-0) (let ((e-2 (car lamc-0))) (let ((e-3 (cdr lamc-0))) (let ((act-28 (if (null? e-3) (vector 1 '()) (let ((e-0 (unbox e-3))) (let ((act-28 (CoreC-45Context-toFullNames arg-1 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-2) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-2)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-2) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-2))))) e-0 clam-0))) (case (vector-ref act-28 0) ((0) (let ((e-4 (vector-ref act-28 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref act-28 1))) (vector 1 (box e-9)))))))))) (case (vector-ref act-28 0) ((0) (let ((e-4 (vector-ref act-28 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref act-28 1))) (vector 1 (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_Nat u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_Nat u--d u--x)))) (cons (lambda (u--x) (TTImpC-45PartialEval-u--show_Show_ArgMode u--x)) (lambda (u--d) (lambda (u--x) (TTImpC-45PartialEval-u--showPrec_Show_ArgMode u--d u--x))))) (cons e-2 e-9))))))))))) arg-7 '() eta-1))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-28 1))) (vector 1 (PreludeC-45TypesC-45String-C-43C-43 "Specialising " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-8) (PreludeC-45TypesC-45String-C-43C-43 " (" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name arg-8) (PreludeC-45TypesC-45String-C-43C-43 ") by " (CoreC-45NameC-45Namespace-showSep ", " e-9)))))))))))))))) eta-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((u--sty (TTImpC-45PartialEval-specialiseTy '() 0 u--staticargs (let ((e-2 (vector-ref arg-5 2))) e-2)))) (let ((act-28 (CoreC-45Normalise-logTermNF '() arg-1 "specialise" (+ 1 (+ 1 (+ 1 0))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Specialised type " (CoreC-45Name-u--show_Show_Name arg-6))) '() u--sty eta-0))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((act-29 (CoreC-45Context-addDef arg-1 arg-6 (CoreC-45Context-newDef arg-4 arg-6 (AlgebraC-45ZeroOneOmega-u--top_Top_ZeroOneOmega) '() u--sty 2 (vector 0 )) eta-0))) (case (vector-ref act-29 0) ((0) (let ((e-2 (vector-ref act-29 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref act-29 1))) (let ((act-30 (CoreC-45Context-addToSave arg-1 (vector 9 e-10) eta-0))) (case (vector-ref act-30 0) ((0) (let ((e-2 (vector-ref act-30 1))) (vector 0 e-2))) (else (let ((u--specnames (TTImpC-45PartialEval-n--8719-7251-u--getAllRefs arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (LibrariesC-45DataC-45NameMap-empty) (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) arg-7)))) (let ((act-31 (CoreC-45Core-traverseC-39 (lambda (u--n) (lambda (eta-1) (vector 1 (cons u--n (+ 1 0))))) (LibrariesC-45DataC-45NameMap-keys u--specnames) '() eta-0))) (case (vector-ref act-31 0) ((0) (let ((e-2 (vector-ref act-31 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref act-31 1))) (let ((act-32 (let ((act-32 (unbox arg-1))) (vector 1 act-32)))) (case (vector-ref act-32 0) ((0) (let ((e-2 (vector-ref act-32 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref act-32 1))) (let ((act-33 ((TTImpC-45PartialEval-getReducible (cons arg-8 '()) (LibrariesC-45DataC-45NameMap-empty) e-13) eta-0))) (case (vector-ref act-33 0) ((0) (let ((e-2 (vector-ref act-33 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref act-33 1))) (let ((act-34 (CoreC-45Context-setFlag arg-1 arg-4 (vector 9 e-10) (vector 7 (PreludeC-45TypesC-45List-C-43C-43 e-12 (LibrariesC-45DataC-45NameMap-toList e-14))) eta-0))) (case (vector-ref act-34 0) ((0) (let ((e-2 (vector-ref act-34 1))) (vector 0 e-2))) (else (let ((_-0 '())) (TTImpC-45PartialEval-case--caseC-32blockC-32inC-32mkSpecDef-7699 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 u--staticargs u--peapp _-0 u--sty e-10 u--specnames e-12 e-13 e-14 (let ((e-17 (vector-ref arg-5 17))) e-17) eta-0)))))))))))))))))))))))))))))))) (let ((act-27 (CoreC-45ContextC-45Log-log arg-1 "specialise" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Already specialised " (CoreC-45Name-u--show_Show_Name arg-6))) eta-0))) (case (vector-ref act-27 0) ((0) (let ((e-3 (vector-ref act-27 1))) (vector 0 e-3))) (else (vector 1 u--peapp))))))))))))))))))) (lambda (u--err) (lambda (eta-0) (let ((act-24 (let ((act-24 (CoreC-45Context-toFullNames arg-1 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-1) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-1)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-1) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-1))))) arg-8 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (CoreC-45ContextC-45Log-log arg-1 "specialise" (+ 1 0) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Partial evaluation of " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-5) (PreludeC-45TypesC-45String-C-43C-43 " failed" (PreludeC-45TypesC-45String-C-43C-43 "\u000a" (CoreC-45Core-u--show_Show_Error u--err)))))) eta-0))))))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (let ((act-26 (set-box! arg-1 (let ((e-0 (vector-ref e-6 0))) (let ((e-1 (vector-ref e-6 1))) (let ((e-2 (vector-ref e-6 2))) (let ((e-3 (vector-ref e-6 3))) (let ((e-4 (vector-ref e-6 4))) (let ((e-30 (vector-ref e-6 5))) (let ((e-29 (vector-ref e-6 6))) (let ((e-7 (vector-ref e-6 7))) (let ((e-8 (vector-ref e-6 8))) (let ((e-9 (vector-ref e-6 9))) (let ((e-10 (vector-ref e-6 10))) (let ((e-11 (vector-ref e-6 11))) (let ((e-12 (vector-ref e-6 12))) (let ((e-13 (vector-ref e-6 13))) (let ((e-14 (vector-ref e-6 14))) (let ((e-15 (vector-ref e-6 15))) (let ((e-16 (vector-ref e-6 16))) (let ((e-17 (vector-ref e-6 17))) (let ((e-18 (vector-ref e-6 18))) (let ((e-19 (vector-ref e-6 19))) (let ((e-20 (vector-ref e-6 20))) (let ((e-21 (vector-ref e-6 21))) (let ((e-22 (vector-ref e-6 22))) (let ((e-23 (vector-ref e-6 23))) (let ((e-24 (vector-ref e-6 24))) (let ((e-25 (vector-ref e-6 25))) (let ((e-26 (vector-ref e-6 26))) (let ((e-27 (vector-ref e-6 27))) (let ((e-28 (vector-ref e-6 28))) (vector e-0 e-1 e-2 e-3 e-4 e-30 e-29 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 (LibrariesC-45DataC-45NameMap-insert arg-6 0 e-25) e-26 e-27 e-28))))))))))))))))))))))))))))))))) (vector 1 act-26)))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (vector 1 (CoreC-45TT-applyWithFC (vector 1 arg-4 (vector 1 ) arg-8) arg-9)))))))))))))) ext-0))) +(define TTImpC-45PartialEval-getStatic (lambda (arg-0) (if (null? arg-0) '() (let ((e-0 (unbox arg-0))) (box e-0))))) +(define TTImpC-45PartialEval-getSpecPats (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 (TTImpC-45PartialEval-specByVar arg-8 arg-9))) (if (null? sc0) (let ((u--dynnames (TTImpC-45PartialEval-n--8119-6689-u--mkDynNames arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 0 arg-7))) (let ((u--lhs (TTImpC-45TTImp-apply (vector 0 arg-2 arg-3) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (vector 17 arg-2 eta-0)) u--dynnames)))) (lambda (eta-0) (let ((act-24 ((TTImpC-45PartialEval-n--8119-6690-u--mkRHSargs arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-6 (vector 0 arg-2 arg-4) u--dynnames arg-7) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (box (cons (vector 0 arg-2 u--lhs e-5) '())))))))))) (let ((e-2 (unbox sc0))) (lambda (eta-0) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-1) (TTImpC-45PartialEval-n--8119-6694-u--unelabPat arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-3 eta-1)) e-2 '() eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (box e-5)))))))))))) +(define TTImpC-45PartialEval-getReducible (lambda (arg-0 arg-1 arg-2) (if (null? arg-0) (lambda (eta-0) (vector 1 arg-1)) (let ((e-2 (car arg-0))) (let ((e-3 (cdr arg-0))) (let ((sc1 (LibrariesC-45DataC-45NameMap-lookup e-2 arg-1))) (if (null? sc1) (lambda (eta-0) (let ((act-24 ((CoreC-45Context-lookupCtxtExact e-2 (let ((e-0 (vector-ref arg-2 0))) e-0)) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (if (null? e-5) ((TTImpC-45PartialEval-getReducible e-3 arg-1 arg-2) eta-0) (let ((e-4 (unbox e-5))) (let ((u--refsC-39 (LibrariesC-45DataC-45NameMap-insert e-2 (PreludeC-45Types-u--fromInteger_Num_Nat 65536) arg-1))) (let ((u--calls (CoreC-45Context-refersTo e-4))) ((TTImpC-45PartialEval-getReducible (PreludeC-45TypesC-45List-C-43C-43 (LibrariesC-45DataC-45NameMap-keys u--calls) e-3) u--refsC-39 arg-2) eta-0)))))))))) (TTImpC-45PartialEval-getReducible e-3 arg-1 arg-2)))))))) +(define TTImpC-45PartialEval-findSpecs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (case (vector-ref arg-6 0) ((1) (let ((e-1 (vector-ref arg-6 1))) (let ((e-2 (vector-ref arg-6 2))) (let ((e-3 (vector-ref arg-6 3))) (case (vector-ref e-2 0) ((1) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact e-3 (let ((e-0 (vector-ref e-5 0))) e-0)) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref act-25 1))) (if (null? e-6) (vector 1 (CoreC-45TT-applyWithFC (vector 1 e-1 (vector 1 ) e-3) arg-5)) (let ((e-4 (unbox e-6))) (let ((act-26 (TTImpC-45PartialEval-specialise arg-0 arg-1 arg-2 arg-3 e-1 arg-4 e-4 e-3 arg-5 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-7 (vector-ref act-26 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-26 1))) (if (null? e-7) (vector 1 (CoreC-45TT-applyWithFC (vector 1 e-1 (vector 1 ) e-3) arg-5)) (let ((e-8 (unbox e-7))) (vector 1 e-8))))))))))))))))))(else (vector 1 (CoreC-45TT-applyWithFC arg-6 arg-5)))))))) ((2) (let ((e-5 (vector-ref arg-6 1))) (let ((e-6 (vector-ref arg-6 2))) (let ((e-7 (vector-ref arg-6 3))) (let ((e-8 (vector-ref arg-6 4))) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (TTImpC-45PartialEval-findSpecs arg-0 arg-1 arg-2 arg-3 arg-4 '() eta-0 eta-1))) e-8 '() ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-24 1))) (vector 1 (CoreC-45TT-applyWithFC (vector 2 e-5 e-6 e-7 e-9) arg-5))))))))))) ((3) (let ((e-10 (vector-ref arg-6 1))) (let ((e-11 (vector-ref arg-6 2))) (let ((e-12 (vector-ref arg-6 3))) (let ((e-13 (vector-ref arg-6 4))) (let ((act-24 (CoreC-45CoreC-45Binder-traverse (lambda (eta-0) (lambda (eta-1) (TTImpC-45PartialEval-findSpecs arg-0 arg-1 arg-2 arg-3 arg-4 '() eta-0 eta-1))) e-12 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (TTImpC-45PartialEval-findSpecs (cons e-11 arg-0) arg-1 arg-2 arg-3 (cons e-5 arg-4) '() e-13 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (CoreC-45TT-applyWithFC (vector 3 e-10 e-11 e-5 e-6) arg-5))))))))))))))) ((4) (let ((e-15 (vector-ref arg-6 1))) (let ((e-16 (vector-ref arg-6 2))) (let ((e-17 (vector-ref arg-6 3))) (let ((act-24 (TTImpC-45PartialEval-findSpecs arg-0 arg-1 arg-2 arg-3 arg-4 '() e-17 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (TTImpC-45PartialEval-findSpecs arg-0 arg-1 arg-2 arg-3 arg-4 (cons (cons e-15 e-5) arg-5) e-16 ext-0))))))))) ((6) (let ((e-19 (vector-ref arg-6 1))) (let ((e-20 (vector-ref arg-6 2))) (let ((e-21 (vector-ref arg-6 3))) (let ((act-24 (TTImpC-45PartialEval-findSpecs arg-0 arg-1 arg-2 arg-3 arg-4 '() e-21 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (CoreC-45TT-applyWithFC (vector 6 e-19 e-20 e-5) arg-5)))))))))) ((7) (let ((e-23 (vector-ref arg-6 1))) (let ((e-24 (vector-ref arg-6 2))) (let ((e-25 (vector-ref arg-6 3))) (let ((e-26 (vector-ref arg-6 4))) (let ((act-24 (TTImpC-45PartialEval-findSpecs arg-0 arg-1 arg-2 arg-3 arg-4 '() e-25 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (TTImpC-45PartialEval-findSpecs arg-0 arg-1 arg-2 arg-3 arg-4 '() e-26 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (CoreC-45TT-applyWithFC (vector 7 e-23 e-24 e-5 e-6) arg-5))))))))))))))) ((8) (let ((e-28 (vector-ref arg-6 1))) (let ((e-29 (vector-ref arg-6 2))) (let ((e-30 (vector-ref arg-6 3))) (let ((act-24 (TTImpC-45PartialEval-findSpecs arg-0 arg-1 arg-2 arg-3 arg-4 '() e-30 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (CoreC-45TT-applyWithFC (vector 8 e-28 e-29 e-5) arg-5))))))))))(else (vector 1 (CoreC-45TT-applyWithFC arg-6 arg-5)))))) +(define TTImpC-45PartialEval-evalRHS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (CoreC-45Core-newRef (vector "Core.Normalise.QVar" ) (blodwen-toSignedInt 0 63) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) ((TTImpC-45PartialEval-quoteGenNF '() arg-0 arg-1 arg-2 arg-3 e-5 e-6 (vector 0 ) arg-4 arg-5) ext-0))))))))))) +(define TTImpC-45PartialEval-eraseInferred (lambda (arg-1 arg-2) (case (vector-ref arg-2 0) ((3) (let ((e-1 (vector-ref arg-2 1))) (let ((e-2 (vector-ref arg-2 2))) (let ((e-3 (vector-ref arg-2 3))) (let ((e-4 (vector-ref arg-2 4))) (lambda (eta-0) (let ((act-24 (CoreC-45CoreC-45Binder-traverse (lambda (eta-1) (TTImpC-45PartialEval-eraseInferred arg-1 eta-1)) e-3 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((TTImpC-45PartialEval-eraseInferred arg-1 e-4) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-6 (vector-ref act-25 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (vector 3 e-1 e-2 e-5 e-6))))))))))))))))(else (TTImpC-45PartialEval-case--eraseInferred-8357 arg-2 arg-1 (CoreC-45TT-getFnArgs arg-2)))))) +(define TTImpC-45PartialEval-dropSpec (lambda (arg-1 arg-2 arg-3) (if (null? arg-3) '() (let ((e-2 (car arg-3))) (let ((e-3 (cdr arg-3))) (let ((sc1 (DataC-45List-lookup (cons (lambda (arg-4) (lambda (arg-5) (PreludeC-45Types-u--C-61C-61_Eq_Nat arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45Types-u--C-47C-61_Eq_Nat arg-4 arg-5)))) arg-1 arg-2))) (if (null? sc1) (cons e-2 (TTImpC-45PartialEval-dropSpec (PreludeC-45Types-u--C-43_Num_Nat (PreludeC-45Types-u--fromInteger_Num_Nat 1) arg-1) arg-2 e-3)) (TTImpC-45PartialEval-dropSpec (PreludeC-45Types-u--C-43_Num_Nat (PreludeC-45Types-u--fromInteger_Num_Nat 1) arg-1) arg-2 e-3)))))))) +(define TTImpC-45PartialEval-bName (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (let ((act-25 (set-box! arg-0 (bs+ e-5 1 63)))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (vector 1 (vector 2 arg-1 e-5))))))))))) +(define TTImpC-45PartialEval-applySpecialise (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (if (null? arg-5) (lambda (eta-0) (TTImpC-45PartialEval-findSpecs arg-0 arg-1 arg-2 arg-3 arg-4 '() arg-6 eta-0)) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-toResolvedNames arg-1 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-1) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-1)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-1) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-1))))) arg-6 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-3 (vector-ref act-25 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 ((CoreC-45Normalise-nf arg-1 arg-0 e-5 arg-4 e-6) eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-3 (vector-ref act-26 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (TTImpC-45PartialEval-evalRHS arg-0 arg-1 arg-2 arg-3 arg-4 e-7 eta-0))) (case (vector-ref act-27 0) ((0) (let ((e-3 (vector-ref act-27 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref act-27 1))) (let ((act-28 (CoreC-45Context-toFullNames arg-1 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-1) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-1)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-1) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-1))))) e-8 eta-0))) (case (vector-ref act-28 0) ((0) (let ((e-3 (vector-ref act-28 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref act-28 1))) (let ((act-29 (CoreC-45Normalise-logTermNF arg-0 arg-1 "specialise" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "New RHS") arg-4 e-9 eta-0))) (case (vector-ref act-29 0) ((0) (let ((e-3 (vector-ref act-29 1))) (vector 0 e-3))) (else (vector 1 e-9)))))))))))))))))))))))))))) +(define TTImpC-45Impossible-n--6052-2446-u--sameRet (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (case (vector-ref arg-6 0) ((1) (lambda (eta-0) (vector 1 1))) ((9) (lambda (eta-0) (vector 1 1)))(else (case (vector-ref arg-5 0) ((1) (lambda (eta-0) (vector 1 1))) ((9) (lambda (eta-0) (vector 1 1))) ((3) (let ((e-19 (vector-ref arg-5 2))) (case (vector-ref arg-6 0) ((3) (let ((e-30 (vector-ref arg-6 2))) (lambda (eta-0) (vector 1 (CoreC-45Name-u--C-61C-61_Eq_Name e-19 e-30)))))(else (lambda (clam-0) (case (vector-ref arg-6 0) ((0) (let ((e-1 (vector-ref arg-6 1))) (let ((e-3 (vector-ref arg-6 3))) (let ((e-4 (vector-ref arg-6 4))) (case (vector-ref e-3 0) ((2) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (((e-4 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 e-1 0))) clam-0))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) ((TTImpC-45Impossible-n--6052-2446-u--sameRet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-10) clam-0))))))))))(else (vector 1 0)))))))(else (vector 1 0)))))))) ((8) (let ((e-25 (vector-ref arg-5 2))) (case (vector-ref arg-6 0) ((8) (let ((e-36 (vector-ref arg-6 2))) (lambda (eta-0) (vector 1 (CoreC-45TT-u--C-61C-61_Eq_Constant e-25 e-36)))))(else (lambda (clam-1) (case (vector-ref arg-6 0) ((0) (let ((e-1 (vector-ref arg-6 1))) (let ((e-3 (vector-ref arg-6 3))) (let ((e-4 (vector-ref arg-6 4))) (case (vector-ref e-3 0) ((2) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (((e-4 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 e-1 0))) clam-1))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) ((TTImpC-45Impossible-n--6052-2446-u--sameRet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-10) clam-1))))))))))(else (vector 1 0)))))))(else (vector 1 0)))))))) ((10) (case (vector-ref arg-6 0) ((10) (lambda (eta-0) (vector 1 1)))(else (lambda (clam-2) (case (vector-ref arg-6 0) ((0) (let ((e-1 (vector-ref arg-6 1))) (let ((e-3 (vector-ref arg-6 3))) (let ((e-4 (vector-ref arg-6 4))) (case (vector-ref e-3 0) ((2) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (((e-4 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 e-1 0))) clam-2))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) ((TTImpC-45Impossible-n--6052-2446-u--sameRet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-10) clam-2))))))))))(else (vector 1 0)))))))(else (vector 1 0)))))))(else (lambda (clam-3) (case (vector-ref arg-6 0) ((0) (let ((e-1 (vector-ref arg-6 1))) (let ((e-3 (vector-ref arg-6 3))) (let ((e-4 (vector-ref arg-6 4))) (case (vector-ref e-3 0) ((2) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (((e-4 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 e-1 0))) clam-3))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) ((TTImpC-45Impossible-n--6052-2446-u--sameRet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-10) clam-3))))))))))(else (vector 1 0)))))))(else (vector 1 0)))))))))) +(define TTImpC-45Impossible-n--7370-3648-u--expandNest (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (case (vector-ref arg-5 0) ((0) (let ((e-0 (vector-ref arg-5 1))) (let ((e-1 (vector-ref arg-5 2))) (let ((sc1 (DataC-45List-lookup (cons (lambda (arg-6) (lambda (arg-7) (CoreC-45Name-u--C-61C-61_Eq_Name arg-6 arg-7))) (lambda (arg-6) (lambda (arg-7) (CoreC-45Name-u--C-47C-61_Eq_Name arg-6 arg-7)))) e-1 arg-2))) (if (null? sc1) (vector 0 e-0 e-1) (let ((e-2 (unbox sc1))) (if (null? e-2) (vector 0 e-0 e-1) (let ((e-4 (car e-2))) (let ((e-5 (cdr e-2))) (if (null? e-4) (vector 0 e-0 e-1) (let ((e-7 (unbox e-4))) (if (null? e-5) (vector 0 e-0 e-1) (vector 0 e-0 e-7)))))))))))))(else arg-5)))) +(define TTImpC-45Impossible-n--7370-3649-u--applyEnv (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (case (vector-ref arg-5 0) ((8) (let ((e-0 (vector-ref arg-5 1))) (let ((e-1 (vector-ref arg-5 2))) (let ((e-2 (vector-ref arg-5 3))) (vector 8 e-0 (TTImpC-45Impossible-n--7370-3649-u--applyEnv arg-0 arg-1 arg-2 arg-3 arg-4 e-1) e-2))))) ((9) (let ((e-3 (vector-ref arg-5 1))) (let ((e-4 (vector-ref arg-5 2))) (let ((e-5 (vector-ref arg-5 3))) (vector 9 e-3 (TTImpC-45Impossible-n--7370-3649-u--applyEnv arg-0 arg-1 arg-2 arg-3 arg-4 e-4) e-5))))) ((10) (let ((e-6 (vector-ref arg-5 1))) (let ((e-7 (vector-ref arg-5 2))) (let ((e-8 (vector-ref arg-5 3))) (let ((e-9 (vector-ref arg-5 4))) (vector 10 e-6 (TTImpC-45Impossible-n--7370-3649-u--applyEnv arg-0 arg-1 arg-2 arg-3 arg-4 e-7) e-8 e-9))))))(else (TTImpC-45TTImp-apply (TTImpC-45Impossible-n--7370-3648-u--expandNest arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (TTImpC-45Impossible-n--7370-3647-u--addEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-0 (TTImpC-45TTImp-getFC arg-5) arg-3)))))) +(define TTImpC-45Impossible-n--7370-3647-u--addEnv (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (if (null? arg-5) '() (let ((e-3 (cdr arg-5))) (let ((e-8 (car arg-7))) (let ((e-9 (cdr arg-7))) (let ((sc2 (CoreC-45TT-isLet e-8))) (cond ((equal? sc2 1) (TTImpC-45Impossible-n--7370-3647-u--addEnv arg-0 arg-1 arg-2 arg-3 arg-4 e-3 arg-6 e-9)) (else (cons (vector 32 arg-6 0) (TTImpC-45Impossible-n--7370-3647-u--addEnv arg-0 arg-1 arg-2 arg-3 arg-4 e-3 arg-6 e-9))))))))))) +(define TTImpC-45Impossible-processArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (case (vector-ref arg-3 0) ((0) (let ((e-4 (vector-ref arg-3 1))) (let ((e-5 (vector-ref arg-3 2))) (let ((e-6 (vector-ref arg-3 3))) (let ((e-7 (vector-ref arg-3 4))) (case (vector-ref e-6 0) ((2) (let ((e-11 (vector-ref e-6 3))) (let ((e-12 (vector-ref e-6 4))) (case (vector-ref e-11 0) ((1) (if (null? arg-4) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-24 1))) (let ((sc5 (TTImpC-45ElabC-45App-findNamed e-5 arg-6))) (if (null? sc5) (TTImpC-45Impossible-badClause arg-2 '() arg-5 arg-6 eta-0) (let ((e-1 (unbox sc5))) (let ((e-14 (car e-1))) (let ((e-13 (cdr e-1))) (let ((e-15 (cdr e-14))) (let ((act-25 ((TTImpC-45Impossible-mkTerm arg-0 arg-1 e-15 (box e-12) '() '() '()) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-17 (vector-ref act-25 1))) (let ((act-26 (((e-7 e-8) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() e-17)) eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-18 (vector-ref act-26 1))) ((TTImpC-45Impossible-processArgs arg-0 arg-1 (vector 4 e-4 arg-2 e-17) e-18 '() arg-5 e-13) eta-0)))))))))))))))))))) (let ((e-17 (car arg-4))) (let ((e-18 (cdr arg-4))) (lambda (eta-0) (let ((act-24 ((TTImpC-45Impossible-mkTerm arg-0 arg-1 e-17 (box e-12) '() '() '()) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-24 1))) (let ((act-25 (let ((act-25 (unbox arg-0))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref act-25 1))) (let ((act-26 (((e-7 e-13) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() e-8)) eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref act-26 1))) ((TTImpC-45Impossible-processArgs arg-0 arg-1 (vector 4 e-4 arg-2 e-8) e-14 e-18 arg-5 arg-6) eta-0)))))))))))))))))) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-24 1))) (let ((sc4 (TTImpC-45ElabC-45App-findNamed e-5 arg-6))) (if (null? sc4) (let ((act-25 (TTImpC-45Impossible-nextVar arg-1 e-4 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref act-25 1))) (let ((act-26 (((e-7 e-8) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() e-13)) eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref act-26 1))) ((TTImpC-45Impossible-processArgs arg-0 arg-1 (vector 4 e-4 arg-2 e-13) e-14 arg-4 arg-5 arg-6) eta-0))))))))) (let ((e-2 (unbox sc4))) (let ((e-14 (car e-2))) (let ((e-13 (cdr e-2))) (let ((e-15 (cdr e-14))) (let ((act-25 ((TTImpC-45Impossible-mkTerm arg-0 arg-1 e-15 (box e-12) '() '() '()) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-3 (vector-ref act-25 1))) (vector 0 e-3))) (else (let ((e-17 (vector-ref act-25 1))) (let ((act-26 (((e-7 e-8) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() e-17)) eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-3 (vector-ref act-26 1))) (vector 0 e-3))) (else (let ((e-18 (vector-ref act-26 1))) ((TTImpC-45Impossible-processArgs arg-0 arg-1 (vector 4 e-4 arg-2 e-17) e-18 arg-4 arg-5 e-13) eta-0))))))))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-24 1))) (if (null? arg-5) (let ((sc5 (TTImpC-45ElabC-45App-findNamed e-5 arg-6))) (if (null? sc5) (let ((act-25 (TTImpC-45Impossible-nextVar arg-1 e-4 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref act-25 1))) (let ((act-26 (((e-7 e-8) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() e-13)) eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref act-26 1))) ((TTImpC-45Impossible-processArgs arg-0 arg-1 (vector 4 e-4 arg-2 e-13) e-14 arg-4 '() arg-6) eta-0))))))))) (let ((e-2 (unbox sc5))) (let ((e-14 (car e-2))) (let ((e-13 (cdr e-2))) (let ((e-15 (cdr e-14))) (let ((act-25 ((TTImpC-45Impossible-mkTerm arg-0 arg-1 e-15 (box e-12) '() '() '()) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-3 (vector-ref act-25 1))) (vector 0 e-3))) (else (let ((e-17 (vector-ref act-25 1))) (let ((act-26 (((e-7 e-8) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() e-17)) eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-3 (vector-ref act-26 1))) (vector 0 e-3))) (else (let ((e-18 (vector-ref act-26 1))) ((TTImpC-45Impossible-processArgs arg-0 arg-1 (vector 4 e-4 arg-2 e-17) e-18 arg-4 '() e-13) eta-0))))))))))))))) (let ((e-1 (car arg-5))) (let ((e-2 (cdr arg-5))) (let ((act-25 ((TTImpC-45Impossible-mkTerm arg-0 arg-1 e-1 (box e-12) '() '() '()) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-3 (vector-ref act-25 1))) (vector 0 e-3))) (else (let ((e-13 (vector-ref act-25 1))) (let ((act-26 (((e-7 e-8) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() e-13)) eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-3 (vector-ref act-26 1))) (vector 0 e-3))) (else (let ((e-14 (vector-ref act-26 1))) ((TTImpC-45Impossible-processArgs arg-0 arg-1 (vector 4 e-4 arg-2 e-13) e-14 arg-4 e-2 arg-6) eta-0))))))))))))))))))(else (if (null? arg-4) (if (null? arg-5) (lambda (clam-1) (if (null? arg-6) (vector 1 arg-2) (TTImpC-45Impossible-badClause arg-2 arg-4 arg-5 arg-6 clam-1))) (lambda (eta-0) (TTImpC-45Impossible-badClause arg-2 arg-4 arg-5 arg-6 eta-0))) (lambda (eta-0) (TTImpC-45Impossible-badClause arg-2 arg-4 arg-5 arg-6 eta-0))))))))(else (if (null? arg-4) (if (null? arg-5) (lambda (clam-2) (if (null? arg-6) (vector 1 arg-2) (TTImpC-45Impossible-badClause arg-2 arg-4 arg-5 arg-6 clam-2))) (lambda (eta-0) (TTImpC-45Impossible-badClause arg-2 arg-4 arg-5 arg-6 eta-0))) (lambda (eta-0) (TTImpC-45Impossible-badClause arg-2 arg-4 arg-5 arg-6 eta-0))))))))))(else (if (null? arg-4) (if (null? arg-5) (lambda (clam-3) (if (null? arg-6) (vector 1 arg-2) (TTImpC-45Impossible-badClause arg-2 arg-4 arg-5 arg-6 clam-3))) (lambda (eta-0) (TTImpC-45Impossible-badClause arg-2 arg-4 arg-5 arg-6 eta-0))) (lambda (eta-0) (TTImpC-45Impossible-badClause arg-2 arg-4 arg-5 arg-6 eta-0))))))) +(define TTImpC-45Impossible-nextVar (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (let ((act-25 (set-box! arg-0 (bs+ e-5 1 63)))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (vector 1 (vector 1 arg-1 (vector 0 ) (vector 2 "imp" e-5)))))))))))) +(define TTImpC-45Impossible-mkTerm (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (case (vector-ref arg-2 0) ((0) (let ((e-0 (vector-ref arg-2 1))) (let ((e-1 (vector-ref arg-2 2))) (lambda (eta-0) (TTImpC-45Impossible-buildApp arg-0 arg-1 e-0 e-1 arg-3 arg-4 arg-5 arg-6 eta-0))))) ((8) (let ((e-3 (vector-ref arg-2 2))) (let ((e-4 (vector-ref arg-2 3))) (TTImpC-45Impossible-mkTerm arg-0 arg-1 e-3 arg-3 (cons e-4 arg-4) arg-5 arg-6)))) ((9) (let ((e-6 (vector-ref arg-2 2))) (let ((e-7 (vector-ref arg-2 3))) (TTImpC-45Impossible-mkTerm arg-0 arg-1 e-6 arg-3 arg-4 (cons e-7 arg-5) arg-6)))) ((10) (let ((e-9 (vector-ref arg-2 2))) (let ((e-10 (vector-ref arg-2 3))) (let ((e-11 (vector-ref arg-2 4))) (TTImpC-45Impossible-mkTerm arg-0 arg-1 e-9 arg-3 arg-4 arg-5 (cons (cons e-10 e-11) arg-6)))))) ((28) (let ((e-12 (vector-ref arg-2 1))) (let ((e-13 (vector-ref arg-2 2))) (lambda (eta-0) (vector 1 (vector 9 e-12 e-13))))))(else (lambda (eta-0) (TTImpC-45Impossible-nextVar arg-1 (TTImpC-45TTImp-getFC arg-2) eta-0)))))) +(define TTImpC-45Impossible-match (lambda (arg-0 arg-1 arg-2 ext-0) (let ((e-2 (car arg-2))) (let ((e-3 (cdr arg-2))) (let ((e-6 (car e-3))) (let ((e-7 (cdr e-3))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Normalise-nf arg-0 '() e-5 '() e-7) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref act-25 1))) ((TTImpC-45Impossible-n--6052-2446-u--sameRet e-2 e-6 e-7 arg-1 arg-0 arg-1 e-8) ext-0))))))))))))))) +(define TTImpC-45Impossible-getImpossibleTerm (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (CoreC-45Core-newRef (vector "Core.Normalise.QVar" ) 0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) ((TTImpC-45Impossible-mkTerm arg-1 e-5 (TTImpC-45Impossible-n--7370-3649-u--applyEnv arg-0 arg-4 arg-3 arg-2 arg-1 arg-4) '() '() '() '()) ext-0))))))) +(define TTImpC-45Impossible-dropNoMatch (lambda (arg-0 arg-1 arg-2) (if (null? arg-2) (lambda (clam-1) (if (null? arg-1) (vector 1 arg-2) (let ((e-2 (unbox arg-1))) (CoreC-45Core-filterM (lambda (eta-0) (lambda (eta-1) (TTImpC-45Impossible-match arg-0 e-2 (let ((e-4 (car eta-0))) (let ((e-3 (cdr eta-0))) (cons e-4 (let ((e-6 (car e-3))) (let ((e-5 (cdr e-3))) (cons e-6 (let ((e-25 (vector-ref e-5 2))) e-25))))))) eta-1))) arg-2 clam-1)))) (let ((e-4 (car arg-2))) (let ((e-5 (cdr arg-2))) (lambda (clam-0) (if (null? e-5) (vector 1 (cons e-4 '())) (if (null? arg-1) (vector 1 arg-2) (let ((e-2 (unbox arg-1))) (CoreC-45Core-filterM (lambda (eta-0) (lambda (eta-1) (TTImpC-45Impossible-match arg-0 e-2 (let ((e-6 (car eta-0))) (let ((e-3 (cdr eta-0))) (cons e-6 (let ((e-8 (car e-3))) (let ((e-7 (cdr e-3))) (cons e-8 (let ((e-27 (vector-ref e-7 2))) e-27))))))) eta-1))) arg-2 clam-0)))))))))) +(define TTImpC-45Impossible-buildApp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-getPrimitiveNames arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (let ((sc2 (PreludeC-45Types-elem (cons (lambda (arg-8) (lambda (arg-9) (CoreC-45Name-u--C-61C-61_Eq_Name arg-8 arg-9))) (lambda (arg-8) (lambda (arg-9) (CoreC-45Name-u--C-47C-61_Eq_Name arg-8 arg-9)))) arg-3 e-6))) (cond ((equal? sc2 1) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 "Can't deal with constants here yet") ext-0)) (else (vector 1 0)))))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((act-27 (CoreC-45Context-lookupNameBy (lambda (eta-0) eta-0) arg-3 (let ((e-0 (vector-ref e-5 0))) e-0) ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (let ((act-28 ((TTImpC-45Impossible-dropNoMatch arg-0 arg-4 e-8) ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-28 1))) (if (null? e-9) (CoreC-45Context-undefinedName arg-0 arg-2 arg-3 ext-0) (let ((e-1 (car e-9))) (let ((e-2 (cdr e-9))) (if (null? e-1) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 17 arg-2 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-fst eta-0)) e-9)) ext-0) (let ((e-10 (cdr e-1))) (if (null? e-10) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 17 arg-2 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-fst eta-0)) e-9)) ext-0) (let ((e-13 (car e-10))) (let ((e-12 (cdr e-10))) (if (null? e-2) (let ((act-29 ((CoreC-45Normalise-nf arg-0 '() e-5 '() (let ((e-30 (vector-ref e-12 2))) e-30)) ext-0))) (case (vector-ref act-29 0) ((0) (let ((e-3 (vector-ref act-29 1))) (vector 0 e-3))) (else (let ((e-14 (vector-ref act-29 1))) (let ((u--head (let ((e-17 (vector-ref e-12 17))) (case (vector-ref e-17 0) ((5) (let ((e-35 (vector-ref e-17 1))) (let ((e-34 (vector-ref e-17 2))) (vector 2 e-35 e-34)))) ((6) (let ((e-40 (vector-ref e-17 1))) (let ((e-39 (vector-ref e-17 2))) (vector 3 e-40 e-39))))(else (vector 1 )))))) ((TTImpC-45Impossible-processArgs arg-0 arg-1 (vector 1 arg-2 u--head (vector 9 e-13)) e-14 arg-5 arg-6 arg-7) ext-0)))))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 17 arg-2 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-fst eta-0)) e-9)) ext-0))))))))))))))))))))))))))))))) (define TTImpC-45Impossible-badClause (lambda (arg-1 arg-2 arg-3 arg-4 ext-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45TT-getLoc arg-1) (PreludeC-45TypesC-45String-C-43C-43 "Badly formed impossible clause " (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (u--x) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 '() u--d u--x)))) (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (x-1) (TTImpC-45TTImp-u--show_Show_RawImp x-1)) (lambda (u--d) (lambda (x-1) (TTImpC-45TTImp-u--showPrec_Show_RawImp u--d x-1)))) x-0)) (lambda (u--d) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40ListC-32C-36aC-41 (cons (lambda (x-1) (TTImpC-45TTImp-u--show_Show_RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-0 x-1)))) u--d x-0)))) (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (x-2) (TTImpC-45TTImp-u--show_Show_RawImp x-2)) (lambda (u--d) (lambda (x-2) (TTImpC-45TTImp-u--showPrec_Show_RawImp u--d x-2)))) x-1)) (lambda (u--d) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40ListC-32C-36aC-41 (cons (lambda (x-2) (TTImpC-45TTImp-u--show_Show_RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-0 x-2)))) u--d x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (CoreC-45Name-u--show_Show_Name x-3)) (lambda (u--d) (lambda (x-3) (CoreC-45Name-u--showPrec_Show_Name u--d x-3)))) (cons (lambda (x-3) (TTImpC-45TTImp-u--show_Show_RawImp x-3)) (lambda (u--d) (lambda (x-3) (TTImpC-45TTImp-u--showPrec_Show_RawImp u--d x-3))))) x-2)) (lambda (u--d) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (CoreC-45Name-u--show_Show_Name x-3)) (lambda (d-0) (lambda (x-3) (CoreC-45Name-u--showPrec_Show_Name d-0 x-3)))) (cons (lambda (x-3) (TTImpC-45TTImp-u--show_Show_RawImp x-3)) (lambda (d-0) (lambda (x-3) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-0 x-3))))) u--d x-2)))) x-1)) (lambda (u--d) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40ListC-32C-36aC-41 (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (CoreC-45Name-u--show_Show_Name x-3)) (lambda (d-0) (lambda (x-3) (CoreC-45Name-u--showPrec_Show_Name d-0 x-3)))) (cons (lambda (x-3) (TTImpC-45TTImp-u--show_Show_RawImp x-3)) (lambda (d-0) (lambda (x-3) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (CoreC-45Name-u--show_Show_Name x-3)) (lambda (d-1) (lambda (x-3) (CoreC-45Name-u--showPrec_Show_Name d-1 x-3)))) (cons (lambda (x-3) (TTImpC-45TTImp-u--show_Show_RawImp x-3)) (lambda (d-1) (lambda (x-3) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-1 x-3))))) d-0 x-2)))) u--d x-1))))) x-0)) (lambda (u--d) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (x-2) (TTImpC-45TTImp-u--show_Show_RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-0 x-2)))) x-1)) (lambda (d-0) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40ListC-32C-36aC-41 (cons (lambda (x-2) (TTImpC-45TTImp-u--show_Show_RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-1 x-2)))) d-0 x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (CoreC-45Name-u--show_Show_Name x-3)) (lambda (d-0) (lambda (x-3) (CoreC-45Name-u--showPrec_Show_Name d-0 x-3)))) (cons (lambda (x-3) (TTImpC-45TTImp-u--show_Show_RawImp x-3)) (lambda (d-0) (lambda (x-3) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (CoreC-45Name-u--show_Show_Name x-3)) (lambda (d-1) (lambda (x-3) (CoreC-45Name-u--showPrec_Show_Name d-1 x-3)))) (cons (lambda (x-3) (TTImpC-45TTImp-u--show_Show_RawImp x-3)) (lambda (d-1) (lambda (x-3) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-1 x-3))))) d-0 x-2)))) x-1)) (lambda (d-0) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40ListC-32C-36aC-41 (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (CoreC-45Name-u--show_Show_Name x-3)) (lambda (d-1) (lambda (x-3) (CoreC-45Name-u--showPrec_Show_Name d-1 x-3)))) (cons (lambda (x-3) (TTImpC-45TTImp-u--show_Show_RawImp x-3)) (lambda (d-1) (lambda (x-3) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (CoreC-45Name-u--show_Show_Name x-3)) (lambda (d-2) (lambda (x-3) (CoreC-45Name-u--showPrec_Show_Name d-2 x-3)))) (cons (lambda (x-3) (TTImpC-45TTImp-u--show_Show_RawImp x-3)) (lambda (d-2) (lambda (x-3) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-2 x-3))))) d-1 x-2)))) d-0 x-1))))) u--d x-0))))) u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (x-1) (TTImpC-45TTImp-u--show_Show_RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40ListC-32C-36aC-41 (cons (lambda (x-1) (TTImpC-45TTImp-u--show_Show_RawImp x-1)) (lambda (d-1) (lambda (x-1) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-1 x-1)))) d-0 x-0)))) (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (x-2) (TTImpC-45TTImp-u--show_Show_RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-0 x-2)))) x-1)) (lambda (d-0) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40ListC-32C-36aC-41 (cons (lambda (x-2) (TTImpC-45TTImp-u--show_Show_RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-1 x-2)))) d-0 x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (CoreC-45Name-u--show_Show_Name x-3)) (lambda (d-0) (lambda (x-3) (CoreC-45Name-u--showPrec_Show_Name d-0 x-3)))) (cons (lambda (x-3) (TTImpC-45TTImp-u--show_Show_RawImp x-3)) (lambda (d-0) (lambda (x-3) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (CoreC-45Name-u--show_Show_Name x-3)) (lambda (d-1) (lambda (x-3) (CoreC-45Name-u--showPrec_Show_Name d-1 x-3)))) (cons (lambda (x-3) (TTImpC-45TTImp-u--show_Show_RawImp x-3)) (lambda (d-1) (lambda (x-3) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-1 x-3))))) d-0 x-2)))) x-1)) (lambda (d-0) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40ListC-32C-36aC-41 (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (CoreC-45Name-u--show_Show_Name x-3)) (lambda (d-1) (lambda (x-3) (CoreC-45Name-u--showPrec_Show_Name d-1 x-3)))) (cons (lambda (x-3) (TTImpC-45TTImp-u--show_Show_RawImp x-3)) (lambda (d-1) (lambda (x-3) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (CoreC-45Name-u--show_Show_Name x-3)) (lambda (d-2) (lambda (x-3) (CoreC-45Name-u--showPrec_Show_Name d-2 x-3)))) (cons (lambda (x-3) (TTImpC-45TTImp-u--show_Show_RawImp x-3)) (lambda (d-2) (lambda (x-3) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-2 x-3))))) d-1 x-2)))) d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (x-2) (TTImpC-45TTImp-u--show_Show_RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-1 x-2)))) x-1)) (lambda (d-1) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40ListC-32C-36aC-41 (cons (lambda (x-2) (TTImpC-45TTImp-u--show_Show_RawImp x-2)) (lambda (d-2) (lambda (x-2) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-2 x-2)))) d-1 x-1)))) (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (CoreC-45Name-u--show_Show_Name x-3)) (lambda (d-1) (lambda (x-3) (CoreC-45Name-u--showPrec_Show_Name d-1 x-3)))) (cons (lambda (x-3) (TTImpC-45TTImp-u--show_Show_RawImp x-3)) (lambda (d-1) (lambda (x-3) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (CoreC-45Name-u--show_Show_Name x-3)) (lambda (d-2) (lambda (x-3) (CoreC-45Name-u--showPrec_Show_Name d-2 x-3)))) (cons (lambda (x-3) (TTImpC-45TTImp-u--show_Show_RawImp x-3)) (lambda (d-2) (lambda (x-3) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-2 x-3))))) d-1 x-2)))) x-1)) (lambda (d-1) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_C-40ListC-32C-36aC-41 (cons (lambda (x-2) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (CoreC-45Name-u--show_Show_Name x-3)) (lambda (d-2) (lambda (x-3) (CoreC-45Name-u--showPrec_Show_Name d-2 x-3)))) (cons (lambda (x-3) (TTImpC-45TTImp-u--show_Show_RawImp x-3)) (lambda (d-2) (lambda (x-3) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-2 x-3))))) x-2)) (lambda (d-2) (lambda (x-2) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-3) (CoreC-45Name-u--show_Show_Name x-3)) (lambda (d-3) (lambda (x-3) (CoreC-45Name-u--showPrec_Show_Name d-3 x-3)))) (cons (lambda (x-3) (TTImpC-45TTImp-u--show_Show_RawImp x-3)) (lambda (d-3) (lambda (x-3) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-3 x-3))))) d-2 x-2)))) d-1 x-1))))) d-0 x-0))))) u--d u--x))))) (cons arg-1 (cons arg-2 (cons arg-3 arg-4)))))) ext-0))) -(define CoreC-45Transform-case--caseC-32blockC-32inC-32trans-5415 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 ext-0) (let ((sc0 arg-10)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (set-box! arg-5 (PreludeC-45Basics-C-124C-124 e-5 (lambda () e-2))))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (vector 1 e-3))))))))))))))) -(define CoreC-45Transform-case--trans-5364 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (CoreC-45Transform-unload arg-3 (vector 1 arg-2 (vector 1 ) arg-1))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((u--fullapp (CoreC-45Transform-unload arg-3 (vector 1 arg-2 (vector 1 ) arg-1)))) (lambda (eta-0) (CoreC-45Transform-case--caseC-32blockC-32inC-32trans-5415 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-2 u--fullapp (CoreC-45Transform-apply e-2 u--fullapp) eta-0))))))))) -(define CoreC-45Transform-case--apply-5314 (lambda (arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (CoreC-45Transform-apply arg-2 arg-3)) (else (let ((e-2 (vector-ref sc0 1))) (cons 0 e-2))))))) -(define CoreC-45Transform-case--tryApply-5208 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (CoreC-45Transform-tryReplace e-1 arg-4))) (else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((4) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((e-3 (vector-ref sc1 3))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Transform-tryApply arg-7 e-2) (lambda (u--fC-39) (vector 1 (vector 4 e-1 u--fC-39 e-3))))))))(else (vector 0 ))))))))) -(define CoreC-45Transform-case--match-4955 (lambda (arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (vector 1 arg-4)) (else (vector 0 )))))) -(define CoreC-45Transform-case--caseC-32blockC-32inC-32addMatch-4868 (lambda (arg-3 arg-4 arg-5 arg-7 arg-8) (let ((sc0 arg-8)) (cond ((equal? sc0 0) (vector 1 arg-3)) (else (vector 0 )))))) -(define CoreC-45Transform-case--addMatch-4825 (lambda (arg-3 arg-4 arg-5 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (vector 1 (vector 1 arg-5 arg-4 arg-3))) (else (let ((e-2 (vector-ref sc0 1))) (CoreC-45Transform-case--caseC-32blockC-32inC-32addMatch-4868 arg-3 arg-4 arg-5 e-2 (CoreC-45TT-eqTerm arg-4 e-2)))))))) -(define CoreC-45Transform-case--lookupMatch-4763 (lambda (arg-4 arg-6 arg-7 arg-8 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (vector 1 arg-7)) (else (CoreC-45Transform-lookupMatch arg-8 arg-6)))))) -(define CoreC-45Transform-unload (lambda (arg-1 arg-2) (let ((sc0 arg-1)) (if (null? sc0) arg-2 (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (CoreC-45Transform-unload e-3 (vector 4 e-6 arg-2 e-7))))))))))) -(define CoreC-45Transform-tryReplace (lambda (arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-4 (vector-ref sc0 3))) (CoreC-45Transform-lookupMatch e-4 arg-2))) ((1) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 1 e-7 e-8 e-9)))))) ((2) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 4))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (PreludeC-45Types-u--traverse_Traversable_List (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (PreludeC-45Types-u--map_Functor_Maybe u--func arg-143))))) (lambda (u--a) (lambda (arg-577) (PreludeC-45Types-u--pure_Applicative_Maybe arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (PreludeC-45Types-u--C-60C-42C-62_Applicative_Maybe arg-578 arg-580)))))) (lambda (eta-0) (CoreC-45Transform-tryReplace arg-2 eta-0)) e-14) (lambda (u--asC-39) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 2 e-11 e-12 e-13 u--asC-39))))))))) ((3) (vector 0 )) ((4) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Transform-tryReplace arg-2 e-22) (lambda (u--fC-39) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Transform-tryReplace arg-2 e-23) (lambda (u--aC-39) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 4 e-21 u--fC-39 u--aC-39)))))))))) ((5) (let ((e-25 (vector-ref sc0 1))) (let ((e-26 (vector-ref sc0 2))) (let ((e-27 (vector-ref sc0 3))) (let ((e-28 (vector-ref sc0 4))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Transform-tryReplace arg-2 e-27) (lambda (u--aC-39) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Transform-tryReplace arg-2 e-28) (lambda (u--pC-39) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 5 e-25 e-26 u--aC-39 u--pC-39))))))))))) ((6) (let ((e-30 (vector-ref sc0 1))) (let ((e-31 (vector-ref sc0 2))) (let ((e-32 (vector-ref sc0 3))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Transform-tryReplace arg-2 e-32) (lambda (u--tmC-39) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 6 e-30 e-31 u--tmC-39)))))))) ((7) (let ((e-34 (vector-ref sc0 1))) (let ((e-35 (vector-ref sc0 2))) (let ((e-36 (vector-ref sc0 3))) (let ((e-37 (vector-ref sc0 4))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Transform-tryReplace arg-2 e-36) (lambda (u--tyC-39) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Transform-tryReplace arg-2 e-37) (lambda (u--tmC-39) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 7 e-34 e-35 u--tyC-39 u--tmC-39))))))))))) ((8) (let ((e-39 (vector-ref sc0 1))) (let ((e-40 (vector-ref sc0 2))) (let ((e-41 (vector-ref sc0 3))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Transform-tryReplace arg-2 e-41) (lambda (u--tmC-39) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 8 e-39 e-40 u--tmC-39)))))))) ((9) (let ((e-43 (vector-ref sc0 1))) (let ((e-44 (vector-ref sc0 2))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 9 e-43 e-44))))) ((10) (let ((e-46 (vector-ref sc0 1))) (let ((e-47 (vector-ref sc0 2))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 10 e-46 e-47))))) (else (let ((e-49 (vector-ref sc0 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 11 e-49)))))))) -(define CoreC-45Transform-tryApply (lambda (arg-1 arg-2) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((u--trans (vector 0 e-0 e-1 e-2 e-3 e-4))) (CoreC-45Transform-case--tryApply-5208 e-0 e-2 arg-2 e-4 e-3 e-1 u--trans (CoreC-45Transform-match (vector 0 ) e-3 arg-2))))))))))) -(define CoreC-45Transform-transLoop (lambda (arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 arg-4)))(else (let ((e-0 (- arg-2 1))) (lambda (eta-0) (let ((act-24 (CoreC-45Core-newRef (vector "Core.Transform.Upd" ) 1 eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (CoreC-45Transform-trans arg-1 e-5 arg-3 '() arg-4 eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (let ((act-26 (unbox e-5))) (vector 1 act-26)))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (cond ((equal? sc3 0) ((CoreC-45Transform-transLoop arg-1 e-0 arg-3 e-6) eta-0)) (else (vector 1 e-6)))))))))))))))))))))))))) -(define CoreC-45Transform-trans (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) ((CoreC-45Transform-case--trans-5364 e-3 e-1 arg-4 arg-3 arg-2 arg-1 e-5 (LibrariesC-45DataC-45NameMap-lookup e-3 (let ((sc3 e-5)) (let ((e-13 (vector-ref sc3 14))) e-13)))) ext-0)))))))(else (vector 1 (CoreC-45Transform-unload arg-4 arg-5))))))))) ((2) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (CoreC-45Transform-trans arg-1 arg-2 arg-3 '() eta-0 eta-1))) e-8 '() ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc1 1))) (vector 1 (CoreC-45Transform-unload arg-4 (vector 2 e-5 e-6 e-7 e-9))))))))))))) ((3) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (let ((e-13 (vector-ref sc0 4))) (let ((act-24 (CoreC-45CoreC-45Binder-traverse (lambda (eta-0) (lambda (eta-1) (CoreC-45Transform-trans arg-1 arg-2 arg-3 '() eta-0 eta-1))) e-12 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Transform-trans arg-1 arg-2 (cons e-5 arg-3) '() e-13 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (CoreC-45Transform-unload arg-4 (vector 3 e-10 e-11 e-5 e-6)))))))))))))))))) ((4) (let ((e-15 (vector-ref sc0 1))) (let ((e-16 (vector-ref sc0 2))) (let ((e-17 (vector-ref sc0 3))) (let ((act-24 (CoreC-45Transform-trans arg-1 arg-2 arg-3 '() e-17 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (CoreC-45Transform-trans arg-1 arg-2 arg-3 (cons (cons e-15 e-5) arg-4) e-16 ext-0)))))))))) ((6) (let ((e-19 (vector-ref sc0 1))) (let ((e-20 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 3))) (let ((act-24 (CoreC-45Transform-trans arg-1 arg-2 arg-3 '() e-21 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (CoreC-45Transform-unload arg-4 (vector 6 e-19 e-20 e-5)))))))))))) ((7) (let ((e-23 (vector-ref sc0 1))) (let ((e-24 (vector-ref sc0 2))) (let ((e-25 (vector-ref sc0 3))) (let ((e-26 (vector-ref sc0 4))) (let ((act-24 (CoreC-45Transform-trans arg-1 arg-2 arg-3 '() e-25 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Transform-trans arg-1 arg-2 arg-3 '() e-26 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (CoreC-45Transform-unload arg-4 (vector 7 e-23 e-24 e-5 e-6)))))))))))))))))) ((8) (let ((e-28 (vector-ref sc0 1))) (let ((e-29 (vector-ref sc0 2))) (let ((e-30 (vector-ref sc0 3))) (let ((act-24 (CoreC-45Transform-trans arg-1 arg-2 arg-3 '() e-30 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (CoreC-45Transform-unload arg-4 (vector 8 e-28 e-29 e-5))))))))))))(else (vector 1 (CoreC-45Transform-unload arg-4 arg-5))))))) -(define CoreC-45Transform-match (lambda (arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-4 (vector-ref sc0 3))) (CoreC-45Transform-addMatch e-4 arg-4 arg-2))) ((4) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((4) (let ((e-12 (vector-ref sc1 2))) (let ((e-13 (vector-ref sc1 3))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Transform-match arg-2 e-8 e-12) (lambda (u--msC-39) (CoreC-45Transform-match u--msC-39 e-9 e-13))))))(else (CoreC-45Transform-case--match-4955 arg-4 arg-3 arg-2 (CoreC-45TT-eqTerm arg-3 arg-4))))))))(else (CoreC-45Transform-case--match-4955 arg-4 arg-3 arg-2 (CoreC-45TT-eqTerm arg-3 arg-4))))))) -(define CoreC-45Transform-lookupMatch (lambda (arg-3 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-5 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (CoreC-45Transform-case--lookupMatch-4763 e-5 e-8 e-7 arg-3 (PreludeC-45Types-u--C-61C-61_Eq_Nat arg-3 e-5)))))))))) +(define CoreC-45Transform-case--trans-6627 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (if (null? arg-8) (lambda (eta-0) (vector 1 (CoreC-45Transform-unload arg-3 (vector 1 arg-2 (vector 1 ) arg-1)))) (let ((e-2 (unbox arg-8))) (let ((u--fullapp (CoreC-45Transform-unload arg-3 (vector 1 arg-2 (vector 1 ) arg-1)))) (lambda (clam-0) (let ((sc1 (CoreC-45Transform-apply e-2 u--fullapp))) (let ((e-4 (car sc1))) (let ((e-3 (cdr sc1))) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (let ((act-25 (set-box! arg-5 (cond ((equal? e-5 1) 1) (else e-4))))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-6 (vector-ref act-25 1))) (vector 0 e-6))) (else (vector 1 e-3))))))))))))))))) +(define CoreC-45Transform-case--addMatch-6094 (lambda (arg-3 arg-4 arg-5 arg-7) (if (null? arg-7) (box (vector 1 arg-5 arg-4 arg-3)) (let ((e-2 (unbox arg-7))) (let ((sc1 (CoreC-45TT-eqTerm arg-4 e-2))) (cond ((equal? sc1 1) (box arg-3)) (else '()))))))) +(define CoreC-45Transform-unload (lambda (arg-1 arg-2) (if (null? arg-1) arg-2 (let ((e-2 (car arg-1))) (let ((e-3 (cdr arg-1))) (let ((e-6 (car e-2))) (let ((e-7 (cdr e-2))) (CoreC-45Transform-unload e-3 (vector 4 e-6 arg-2 e-7))))))))) +(define CoreC-45Transform-tryReplace (lambda (arg-2 arg-3) (case (vector-ref arg-3 0) ((0) (let ((e-4 (vector-ref arg-3 3))) (CoreC-45Transform-lookupMatch e-4 arg-2))) ((1) (let ((e-7 (vector-ref arg-3 1))) (let ((e-8 (vector-ref arg-3 2))) (let ((e-9 (vector-ref arg-3 3))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 1 e-7 e-8 e-9)))))) ((2) (let ((e-11 (vector-ref arg-3 1))) (let ((e-12 (vector-ref arg-3 2))) (let ((e-13 (vector-ref arg-3 3))) (let ((e-14 (vector-ref arg-3 4))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (PreludeC-45Types-u--traverse_Traversable_List (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (PreludeC-45Types-u--map_Functor_Maybe u--func arg-133))))) (lambda (u--a) (lambda (arg-527) (PreludeC-45Types-u--pure_Applicative_Maybe arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (PreludeC-45Types-u--C-60C-42C-62_Applicative_Maybe arg-528 arg-530)))))) (lambda (eta-0) (CoreC-45Transform-tryReplace arg-2 eta-0)) e-14) (lambda (u--asC-39) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 2 e-11 e-12 e-13 u--asC-39))))))))) ((3) '()) ((4) (let ((e-21 (vector-ref arg-3 1))) (let ((e-22 (vector-ref arg-3 2))) (let ((e-23 (vector-ref arg-3 3))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Transform-tryReplace arg-2 e-22) (lambda (u--fC-39) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Transform-tryReplace arg-2 e-23) (lambda (u--aC-39) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 4 e-21 u--fC-39 u--aC-39)))))))))) ((5) (let ((e-25 (vector-ref arg-3 1))) (let ((e-26 (vector-ref arg-3 2))) (let ((e-27 (vector-ref arg-3 3))) (let ((e-28 (vector-ref arg-3 4))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Transform-tryReplace arg-2 e-27) (lambda (u--aC-39) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Transform-tryReplace arg-2 e-28) (lambda (u--pC-39) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 5 e-25 e-26 u--aC-39 u--pC-39))))))))))) ((6) (let ((e-30 (vector-ref arg-3 1))) (let ((e-31 (vector-ref arg-3 2))) (let ((e-32 (vector-ref arg-3 3))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Transform-tryReplace arg-2 e-32) (lambda (u--tmC-39) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 6 e-30 e-31 u--tmC-39)))))))) ((7) (let ((e-34 (vector-ref arg-3 1))) (let ((e-35 (vector-ref arg-3 2))) (let ((e-36 (vector-ref arg-3 3))) (let ((e-37 (vector-ref arg-3 4))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Transform-tryReplace arg-2 e-36) (lambda (u--tyC-39) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Transform-tryReplace arg-2 e-37) (lambda (u--tmC-39) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 7 e-34 e-35 u--tyC-39 u--tmC-39))))))))))) ((8) (let ((e-39 (vector-ref arg-3 1))) (let ((e-40 (vector-ref arg-3 2))) (let ((e-41 (vector-ref arg-3 3))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Transform-tryReplace arg-2 e-41) (lambda (u--tmC-39) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 8 e-39 e-40 u--tmC-39)))))))) ((9) (let ((e-43 (vector-ref arg-3 1))) (let ((e-44 (vector-ref arg-3 2))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 9 e-43 e-44))))) ((10) (let ((e-46 (vector-ref arg-3 1))) (let ((e-47 (vector-ref arg-3 2))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 10 e-46 e-47))))) (else (let ((e-49 (vector-ref arg-3 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 11 e-49))))))) +(define CoreC-45Transform-tryApply (lambda (arg-1 arg-2) (let ((e-0 (vector-ref arg-1 0))) (let ((e-1 (vector-ref arg-1 1))) (let ((e-2 (vector-ref arg-1 2))) (let ((e-3 (vector-ref arg-1 3))) (let ((e-4 (vector-ref arg-1 4))) (let ((u--trans (vector e-0 e-1 e-2 e-3 e-4))) (let ((sc0 (CoreC-45Transform-match (vector 0 ) e-3 arg-2))) (if (null? sc0) (case (vector-ref arg-2 0) ((4) (let ((e-7 (vector-ref arg-2 1))) (let ((e-6 (vector-ref arg-2 2))) (let ((e-5 (vector-ref arg-2 3))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Transform-tryApply u--trans e-6) (lambda (u--fC-39) (box (vector 4 e-7 u--fC-39 e-5))))))))(else '())) (let ((e-5 (unbox sc0))) (CoreC-45Transform-tryReplace e-5 e-4)))))))))))) +(define CoreC-45Transform-transLoop (lambda (arg-1 arg-2 arg-3 arg-4) (cond ((equal? arg-2 0) (lambda (eta-0) (vector 1 arg-4)))(else (let ((e-0 (- arg-2 1))) (lambda (eta-0) (let ((act-24 (CoreC-45Core-newRef (vector "Core.Transform.Upd" ) 0 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Transform-trans arg-1 e-5 arg-3 '() arg-4 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (let ((act-26 (unbox e-5))) (vector 1 act-26)))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (cond ((equal? e-7 1) ((CoreC-45Transform-transLoop arg-1 e-0 arg-3 e-6) eta-0)) (else (vector 1 e-6))))))))))))))))))))) +(define CoreC-45Transform-trans (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (case (vector-ref arg-5 0) ((1) (let ((e-1 (vector-ref arg-5 1))) (let ((e-2 (vector-ref arg-5 2))) (let ((e-3 (vector-ref arg-5 3))) (case (vector-ref e-2 0) ((1) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) ((CoreC-45Transform-case--trans-6627 e-3 e-1 arg-4 arg-3 arg-2 arg-1 e-5 (LibrariesC-45DataC-45NameMap-lookup e-3 (let ((e-13 (vector-ref e-5 13))) e-13))) ext-0))))))(else (vector 1 (CoreC-45Transform-unload arg-4 arg-5)))))))) ((2) (let ((e-5 (vector-ref arg-5 1))) (let ((e-6 (vector-ref arg-5 2))) (let ((e-7 (vector-ref arg-5 3))) (let ((e-8 (vector-ref arg-5 4))) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (CoreC-45Transform-trans arg-1 arg-2 arg-3 '() eta-0 eta-1))) e-8 '() ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-24 1))) (vector 1 (CoreC-45Transform-unload arg-4 (vector 2 e-5 e-6 e-7 e-9)))))))))))) ((3) (let ((e-10 (vector-ref arg-5 1))) (let ((e-11 (vector-ref arg-5 2))) (let ((e-12 (vector-ref arg-5 3))) (let ((e-13 (vector-ref arg-5 4))) (let ((act-24 (CoreC-45CoreC-45Binder-traverse (lambda (eta-0) (lambda (eta-1) (CoreC-45Transform-trans arg-1 arg-2 arg-3 '() eta-0 eta-1))) e-12 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Transform-trans arg-1 arg-2 (cons e-5 arg-3) '() e-13 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (CoreC-45Transform-unload arg-4 (vector 3 e-10 e-11 e-5 e-6)))))))))))))))) ((4) (let ((e-15 (vector-ref arg-5 1))) (let ((e-16 (vector-ref arg-5 2))) (let ((e-17 (vector-ref arg-5 3))) (let ((act-24 (CoreC-45Transform-trans arg-1 arg-2 arg-3 '() e-17 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (CoreC-45Transform-trans arg-1 arg-2 arg-3 (cons (cons e-15 e-5) arg-4) e-16 ext-0))))))))) ((6) (let ((e-19 (vector-ref arg-5 1))) (let ((e-20 (vector-ref arg-5 2))) (let ((e-21 (vector-ref arg-5 3))) (let ((act-24 (CoreC-45Transform-trans arg-1 arg-2 arg-3 '() e-21 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (CoreC-45Transform-unload arg-4 (vector 6 e-19 e-20 e-5))))))))))) ((7) (let ((e-23 (vector-ref arg-5 1))) (let ((e-24 (vector-ref arg-5 2))) (let ((e-25 (vector-ref arg-5 3))) (let ((e-26 (vector-ref arg-5 4))) (let ((act-24 (CoreC-45Transform-trans arg-1 arg-2 arg-3 '() e-25 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Transform-trans arg-1 arg-2 arg-3 '() e-26 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (CoreC-45Transform-unload arg-4 (vector 7 e-23 e-24 e-5 e-6)))))))))))))))) ((8) (let ((e-28 (vector-ref arg-5 1))) (let ((e-29 (vector-ref arg-5 2))) (let ((e-30 (vector-ref arg-5 3))) (let ((act-24 (CoreC-45Transform-trans arg-1 arg-2 arg-3 '() e-30 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (CoreC-45Transform-unload arg-4 (vector 8 e-28 e-29 e-5)))))))))))(else (vector 1 (CoreC-45Transform-unload arg-4 arg-5)))))) +(define CoreC-45Transform-match (lambda (arg-2 arg-3 arg-4) (case (vector-ref arg-3 0) ((0) (let ((e-4 (vector-ref arg-3 3))) (CoreC-45Transform-addMatch e-4 arg-4 arg-2))) ((4) (let ((e-8 (vector-ref arg-3 2))) (let ((e-9 (vector-ref arg-3 3))) (case (vector-ref arg-4 0) ((4) (let ((e-12 (vector-ref arg-4 2))) (let ((e-13 (vector-ref arg-4 3))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Transform-match arg-2 e-8 e-12) (lambda (u--msC-39) (CoreC-45Transform-match u--msC-39 e-9 e-13))))))(else (let ((sc1 (CoreC-45TT-eqTerm arg-3 arg-4))) (cond ((equal? sc1 1) (box arg-2)) (else '()))))))))(else (let ((sc0 (CoreC-45TT-eqTerm arg-3 arg-4))) (cond ((equal? sc0 1) (box arg-2)) (else '()))))))) +(define CoreC-45Transform-lookupMatch (lambda (arg-3 arg-5) (case (vector-ref arg-5 0) ((0) '()) (else (let ((e-5 (vector-ref arg-5 1))) (let ((e-7 (vector-ref arg-5 2))) (let ((e-8 (vector-ref arg-5 3))) (let ((sc1 (PreludeC-45Types-u--C-61C-61_Eq_Nat arg-3 e-5))) (cond ((equal? sc1 1) (box e-7)) (else (CoreC-45Transform-lookupMatch arg-3 e-8))))))))))) (define CoreC-45Transform-applyTransforms (lambda (arg-1 arg-2 arg-3) (CoreC-45Transform-transLoop arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) arg-2 arg-3))) -(define CoreC-45Transform-apply (lambda (arg-1 arg-2) (let ((sc0 arg-1)) (if (null? sc0) (cons 1 arg-2) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (CoreC-45Transform-case--apply-5314 e-2 e-3 arg-2 (CoreC-45Transform-tryApply e-2 arg-2)))))))) -(define CoreC-45Transform-addMatch (lambda (arg-3 arg-5 arg-6) (CoreC-45Transform-case--addMatch-4825 arg-6 arg-5 arg-3 (CoreC-45Transform-lookupMatch arg-3 arg-6)))) -(define CoreC-45Termination-case--caseC-32blockC-32inC-32checkTotal-6170 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 ext-0) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (let ((act-24 (CoreC-45Context-lookupDefExact arg-5 (let ((sc1 arg-7)) (let ((e-0 (vector-ref sc1 1))) e-0)) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((sc3 e-1)) (case (vector-ref sc3 0) ((6) (CoreC-45Termination-checkPositive arg-2 arg-1 arg-5 ext-0))(else (CoreC-45Termination-checkTerminating arg-2 arg-1 arg-5 ext-0))))))(else (CoreC-45Termination-checkTerminating arg-2 arg-1 arg-5 ext-0))))))))))(else (vector 1 arg-8)))))) -(define CoreC-45Termination-case--checkTotal-6119 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((u--n (vector 9 e-1))) (lambda (eta-0) (let ((act-24 (CoreC-45Context-getTotality arg-2 arg-1 u--n eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (CoreC-45Context-toFullNames arg-2 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-1) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-1)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) u--n eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (CoreC-45ContextC-45Log-log arg-2 "totality" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Checking totality: " (CoreC-45Name-u--show_Show_Name e-6))) eta-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (let ((act-26 (unbox arg-2))) (vector 1 act-26)))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (CoreC-45Termination-case--caseC-32blockC-32inC-32checkTotal-6170 arg-0 arg-1 arg-2 arg-3 e-1 u--n e-5 e-7 (let ((sc4 e-5)) (let ((e-0 (car sc4))) e-0)) eta-0))))))))))))))))))) (else (lambda (eta-0) (CoreC-45Context-undefinedName arg-2 arg-1 arg-0 eta-0))))))) -(define CoreC-45Termination-case--checkPositive-6043 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((act-24 (CoreC-45Termination-calcPositive arg-2 arg-1 arg-3 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (car sc2))) (let ((e-3 (cdr sc2))) (let ((act-25 (CoreC-45Context-setTerminating arg-2 arg-1 arg-3 e-2 ext-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((act-26 (CoreC-45Core-traverse_ (lambda (u--c) (lambda (eta-0) (CoreC-45Context-setTerminating arg-2 arg-1 u--c e-2 eta-0))) e-3 ext-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (vector 1 e-2))))))))))))))))))(else (vector 1 arg-5)))))) -(define CoreC-45Termination-case--posArgC-44dropParams-5328 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (CoreC-45Termination-n--13742-5311-u--dropParams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (+ 1 arg-11) arg-10 arg-9)) (else (cons arg-8 (CoreC-45Termination-n--13742-5311-u--dropParams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (+ 1 arg-11) arg-10 arg-9))))))) -(define CoreC-45Termination-case--nameIn-5205 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 ext-0) (let ((sc0 arg-8)) (cond ((equal? sc0 0) (vector 1 0)) (else (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-7 '() arg-6 (Builtin-snd eta-0))) arg-3 '() ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (CoreC-45Core-anyM (lambda (eta-0) (CoreC-45Termination-nameIn arg-7 arg-6 arg-5 eta-0)) e-5 ext-0))))))))))) -(define CoreC-45Termination-case--checkTerminating-5075 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((act-24 (CoreC-45Termination-calcTerminating arg-2 arg-1 arg-0 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Context-setTerminating arg-2 arg-1 arg-0 e-5 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (vector 1 e-5)))))))))))(else (vector 1 arg-4)))))) -(define CoreC-45Termination-case--caseC-32blockC-32inC-32calcTerminatingC-44addCasesC-39-4815 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((CoreC-45Context-lookupCtxtExact arg-3 (let ((sc1 arg-6)) (let ((e-0 (vector-ref sc1 1))) e-0))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) ((CoreC-45Termination-n--13152-4755-u--addCasesC-39 arg-0 arg-1 arg-2 arg-6 (LibrariesC-45DataC-45NameMap-insert arg-3 (vector 0 ) arg-5) (PreludeC-45TypesC-45List-C-43C-43 (LibrariesC-45DataC-45NameMap-keys (CoreC-45Context-refersTo e-1)) arg-4)) eta-0))) (else ((CoreC-45Termination-n--13152-4755-u--addCasesC-39 arg-0 arg-1 arg-2 arg-6 (LibrariesC-45DataC-45NameMap-insert arg-3 (vector 0 ) arg-5) arg-4) eta-0))))))))))) (else (CoreC-45Termination-n--13152-4755-u--addCasesC-39 arg-0 arg-1 arg-2 arg-6 (LibrariesC-45DataC-45NameMap-insert arg-3 (vector 0 ) arg-5) arg-4)))))) -(define CoreC-45Termination-case--calcTerminatingC-44addCasesC-39-4772 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (CoreC-45Termination-n--13152-4755-u--addCasesC-39 arg-0 arg-1 arg-2 arg-6 arg-5 arg-4)) (else (lambda (eta-0) (let ((act-24 (CoreC-45Context-getFullName arg-2 arg-3 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((CoreC-45Termination-case--caseC-32blockC-32inC-32calcTerminatingC-44addCasesC-39-4815 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 (CoreC-45Termination-caseFn e-5)) eta-0)))))))))))) -(define CoreC-45Termination-case--checkSC-4589 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (let ((act-24 (let ((act-24 (CoreC-45Context-toFullNames arg-4 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) arg-2 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (CoreC-45ContextC-45Log-log arg-4 "totality.termination.sizechange.inPath" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Checking arguments: " (CoreC-45Name-u--show_Show_Name e-5))) ext-0)))))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (CoreC-45Context-toFullNames arg-4 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Terminating arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Terminating arg-3812 arg-3813 eta-0))))) (CoreC-45Termination-n--12315-3985-u--checkDesc arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (DataC-45List-mapMaybe (lambda (eta-0) (PreludeC-45Types-u--map_Functor_Maybe (lambda (eta-1) (Builtin-snd eta-1)) eta-0)) arg-1) arg-0) ext-0)))))) (else (let ((act-24 ((CoreC-45Context-lookupCtxtExact arg-2 (let ((sc1 arg-3)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (let ((act-25 (let ((act-25 (CoreC-45Context-toFullNames arg-4 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) arg-2 ext-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (CoreC-45ContextC-45Log-log arg-4 "totality.termination.sizechange.isTerminating" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Size Change Graph is Terminating for: " (CoreC-45Name-u--show_Show_Name e-6))) ext-0)))))))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (vector 1 (vector 1 ))))))) (else (let ((e-2 (vector-ref sc2 1))) (let ((act-25 (let ((act-25 (CoreC-45Context-toFullNames arg-4 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) arg-2 ext-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc3 1))) (CoreC-45ContextC-45Log-log arg-4 "totality.termination.sizechange.needsChecking" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Size Change Graph needs traversing: " (CoreC-45Name-u--show_Show_Name e-6))) ext-0)))))))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (CoreC-45Termination-n--12315-3991-u--continue arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (let ((sc4 e-2)) (let ((e-20 (vector-ref sc4 21))) e-20)) (cons arg-6 arg-0) ext-0))))))))))))))))))) -(define CoreC-45Termination-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkSCC-44checkCall-4258 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (lambda (clam-0) (let ((sc1 arg-11)) (case (vector-ref sc1 0) ((2) (let ((e-0 (vector-ref sc1 1))) (let ((sc2 e-0)) (case (vector-ref sc2 0) ((2) (let ((act-24 (let ((act-24 (CoreC-45Context-toFullNames arg-4 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) (let ((sc3 arg-6)) (let ((e-3 (car sc3))) e-3)) clam-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (CoreC-45ContextC-45Log-log arg-4 "totality.termination.sizechange.checkCall.inPathNot.restart" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "ReChecking Size Change Graph: " (CoreC-45Name-u--show_Show_Name e-5))) clam-0)))))))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-25 ((CoreC-45Termination-initArgs arg-5 (PreludeC-45TypesC-45List-length (let ((sc4 arg-6)) (let ((e-2 (cdr sc4))) e-2)))) clam-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (CoreC-45Termination-checkSC arg-5 arg-4 arg-3 (let ((sc5 arg-6)) (let ((e-3 (car sc5))) e-3)) e-6 arg-7 clam-0)))))))))))(else (let ((act-24 (let ((act-24 (CoreC-45Context-toFullNames arg-4 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) (let ((sc2 arg-6)) (let ((e-2 (car sc2))) e-2)) clam-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (CoreC-45ContextC-45Log-log arg-4 "totality.termination.sizechange.checkCall.inPathNot.return" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Have result: " (CoreC-45Name-u--show_Show_Name e-5))) clam-0)))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (vector 1 arg-11))))))))))(else (let ((act-24 (let ((act-24 (CoreC-45Context-toFullNames arg-4 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) (let ((sc1 arg-6)) (let ((e-0 (car sc1))) e-0)) clam-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (CoreC-45ContextC-45Log-log arg-4 "totality.termination.sizechange.checkCall.inPathNot.return" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Have result: " (CoreC-45Name-u--show_Show_Name e-5))) clam-0)))))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 arg-11)))))))))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (CoreC-45Context-toFullNames arg-4 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-1) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-1)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) (let ((sc1 arg-6)) (let ((e-0 (car sc1))) e-0)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (CoreC-45ContextC-45Log-log arg-4 "totality.termination.sizechange.checkCall.inPath" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Have Result: " (CoreC-45Name-u--show_Show_Name e-5))) eta-0)))))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 arg-11))))))))))) -(define CoreC-45Termination-case--caseC-32blockC-32inC-32checkSCC-44checkCall-4204 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 ext-0) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((0) (let ((act-24 (let ((act-24 (CoreC-45Context-toFullNames arg-4 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) (let ((sc1 arg-6)) (let ((e-0 (car sc1))) e-0)) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (CoreC-45ContextC-45Log-log arg-4 "totality.termination.sizechange.checkCall" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "CheckCall Size Change Graph: " (CoreC-45Name-u--show_Show_Name e-5))) ext-0)))))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45Termination-checkSC arg-5 arg-4 arg-3 (let ((sc2 arg-6)) (let ((e-0 (car sc2))) e-0)) (CoreC-45Termination-n--12315-3988-u--mkArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (let ((sc2 arg-6)) (let ((e-1 (cdr sc2))) e-1))) arg-7 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((CoreC-45Termination-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkSCC-44checkCall-4258 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-6 (let ((sc3 arg-8)) (cond ((equal? sc3 0) 1) (else 0)))) ext-0))))))))))) ((1) (vector 1 (vector 1 )))(else (vector 1 (vector 2 (vector 1 (cons (let ((sc0 arg-6)) (let ((e-0 (car sc0))) e-0)) '()))))))))) -(define CoreC-45Termination-case--checkSCC-44mkArgs-4112 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (cons (vector 0 ) (CoreC-45Termination-n--12315-3988-u--mkArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-8))) (else (let ((e-2 (vector-ref sc0 1))) (cons (CoreC-45Termination-n--12315-3987-u--updateArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 e-2) (CoreC-45Termination-n--12315-3988-u--mkArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-8)))))))) -(define CoreC-45Termination-case--getCasePatsC-44updateRHS-3276 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (CoreC-45Termination-n--11203-2979-u--urhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-6)) (else (let ((e-2 (vector-ref sc0 1))) e-2)))))) -(define CoreC-45Termination-case--getCasePatsC-44updateRHSC-44lookupTm-3216 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (cond ((equal? sc0 0) (vector 1 arg-10)) (else (CoreC-45Termination-n--11203-2980-u--lookupTm arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-12 arg-11)))))) -(define CoreC-45Termination-case--getCasePatsC-44updateRHSC-44lookupTm-3115 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (cond ((equal? sc0 0) (vector 1 arg-13)) (else (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Termination-n--11203-2980-u--lookupTm arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-15 (cons (cons arg-9 arg-13) arg-14)) (lambda (u--tmC-39) (vector 1 (vector 5 arg-12 arg-11 (CoreC-45Termination-n--11203-2979-u--urhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10) u--tmC-39))))))))) -(define CoreC-45Termination-case--caseC-32blockC-32inC-32asserted-2842 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (vector 1 arg-9)) (else (vector 0 )))))) -(define CoreC-45Termination-case--asserted-2802 (lambda (arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (if (null? sc0) (vector 0 ) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((e-7 (vector-ref sc1 3))) (let ((sc2 e-3)) (if (null? sc2) (vector 0 ) (let ((e-9 (car sc2))) (let ((e-10 (cdr sc2))) (let ((sc3 e-10)) (if (null? sc3) (vector 0 ) (let ((e-12 (car sc3))) (let ((e-13 (cdr sc3))) (let ((sc4 e-13)) (if (null? sc4) (vector 0 ) (let ((e-15 (car sc4))) (let ((e-16 (cdr sc4))) (let ((sc5 e-16)) (if (null? sc5) (vector 0 ) (let ((e-18 (car sc5))) (let ((e-19 (cdr sc5))) (let ((sc6 e-19)) (if (null? sc6) (CoreC-45Termination-case--caseC-32blockC-32inC-32asserted-2842 arg-1 arg-2 e-18 e-12 e-9 e-5 e-7 e-6 e-15 (CoreC-45Name-u--C-61C-61_Eq_Name e-7 arg-2)) (vector 0 )))))))))))))))))))))))(else (vector 0 )))))))))) -(define CoreC-45Termination-case--smallerArg-2718 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (if (null? sc0) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((4) (let ((e-2 (vector-ref sc1 2))) (lambda () (CoreC-45Termination-smaller arg-5 arg-4 arg-3 e-2 arg-1))))(else (lambda () 1)))) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((2) (lambda () (PreludeC-45Interfaces-any (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (lambda (eta-0) (CoreC-45Termination-smaller 0 arg-4 arg-3 arg-2 eta-0)) e-3)))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((4) (let ((e-8 (vector-ref sc2 2))) (lambda () (CoreC-45Termination-smaller arg-5 arg-4 arg-3 e-8 arg-1))))(else (lambda () 1)))))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((4) (let ((e-5 (vector-ref sc1 2))) (lambda () (CoreC-45Termination-smaller arg-5 arg-4 arg-3 e-5 arg-1))))(else (lambda () 1))))))))))))) -(define CoreC-45Termination-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32findSC-2198 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((3) (let ((sc2 e-3)) (if (null? sc2) (let ((sc3 e-3)) (let ((e-6 (car sc3))) (let ((e-7 (cdr sc3))) (lambda (clam-1) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((1) (let ((e-9 (vector-ref sc4 1))) (let ((e-10 (vector-ref sc4 2))) (let ((e-11 (vector-ref sc4 3))) (let ((sc5 e-10)) (case (vector-ref sc5 0) ((1) (let ((act-24 (CoreC-45Context-lookupTyExact e-11 (let ((sc6 arg-5)) (let ((e-0 (vector-ref sc6 1))) e-0)) clam-1))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc6 1))) (let ((sc7 e-5)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((act-25 (CoreC-45Normalise-getArity arg-6 '() arg-5 '() e-1 clam-1))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc8 1))) (CoreC-45Termination-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 e-8 e-7 clam-1)))))))) (else (CoreC-45Termination-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 0 e-7 clam-1))))))))))(else (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Termination-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-0)) e-7 '() clam-1))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc5 1))) (vector 1 (PreludeC-45Interfaces-concat (cons (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (cons (lambda (arg-12) (lambda (arg-13) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-12 arg-13))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) e-5))))))))))))))(else (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Termination-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-0)) e-7 '() clam-1))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc4 1))) (vector 1 (PreludeC-45Interfaces-concat (cons (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (cons (lambda (arg-12) (lambda (arg-13) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-12 arg-13))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) e-5)))))))))))))) (let ((e-14 (car sc2))) (let ((e-15 (cdr sc2))) (lambda (clam-0) (let ((sc3 e-14)) (case (vector-ref sc3 0) ((1) (let ((e-18 (vector-ref sc3 2))) (let ((sc4 e-18)) (case (vector-ref sc4 0) ((2) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Termination-findSC arg-0 arg-6 arg-5 arg-4 (vector 3 ) arg-2 eta-0)) e-15 '() clam-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc5 1))) (vector 1 (PreludeC-45Interfaces-concat (cons (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (cons (lambda (arg-12) (lambda (arg-13) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-12 arg-13))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) e-5))))))))(else (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Termination-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-0)) e-15 '() clam-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc4 1))) (vector 1 (PreludeC-45Interfaces-concat (cons (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (cons (lambda (arg-12) (lambda (arg-13) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-12 arg-13))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) e-5))))))))))))(else (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Termination-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-0)) e-15 '() clam-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (vector 1 (PreludeC-45Interfaces-concat (cons (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (cons (lambda (arg-12) (lambda (arg-13) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-12 arg-13))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) e-5)))))))))))))))) ((2) (let ((sc2 e-3)) (if (null? sc2) (let ((sc3 e-3)) (let ((e-6 (car sc3))) (let ((e-7 (cdr sc3))) (lambda (clam-4) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((1) (let ((e-9 (vector-ref sc4 1))) (let ((e-10 (vector-ref sc4 2))) (let ((e-11 (vector-ref sc4 3))) (let ((sc5 e-10)) (case (vector-ref sc5 0) ((1) (let ((act-24 (CoreC-45Context-lookupTyExact e-11 (let ((sc6 arg-5)) (let ((e-0 (vector-ref sc6 1))) e-0)) clam-4))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc6 1))) (let ((sc7 e-5)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((act-25 (CoreC-45Normalise-getArity arg-6 '() arg-5 '() e-1 clam-4))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc8 1))) (CoreC-45Termination-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 e-8 e-7 clam-4)))))))) (else (CoreC-45Termination-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 0 e-7 clam-4))))))))))(else (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Termination-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-0)) e-7 '() clam-4))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc5 1))) (vector 1 (PreludeC-45Interfaces-concat (cons (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (cons (lambda (arg-12) (lambda (arg-13) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-12 arg-13))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) e-5))))))))))))))(else (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Termination-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-0)) e-7 '() clam-4))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc4 1))) (vector 1 (PreludeC-45Interfaces-concat (cons (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (cons (lambda (arg-12) (lambda (arg-13) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-12 arg-13))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) e-5)))))))))))))) (let ((e-24 (car sc2))) (let ((e-25 (cdr sc2))) (let ((sc3 e-24)) (case (vector-ref sc3 0) ((1) (let ((e-28 (vector-ref sc3 2))) (let ((sc4 e-28)) (case (vector-ref sc4 0) ((2) (lambda (eta-0) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-1) (CoreC-45Termination-findSC arg-0 arg-6 arg-5 arg-4 (vector 2 ) arg-2 eta-1)) e-25 '() eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc5 1))) (vector 1 (PreludeC-45Interfaces-concat (cons (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (cons (lambda (arg-12) (lambda (arg-13) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-12 arg-13))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) e-5)))))))))(else (let ((sc4 e-3)) (let ((e-6 (car sc4))) (let ((e-7 (cdr sc4))) (lambda (clam-2) (let ((sc5 e-6)) (case (vector-ref sc5 0) ((1) (let ((e-9 (vector-ref sc5 1))) (let ((e-10 (vector-ref sc5 2))) (let ((e-11 (vector-ref sc5 3))) (let ((sc6 e-10)) (case (vector-ref sc6 0) ((1) (let ((act-24 (CoreC-45Context-lookupTyExact e-11 (let ((sc7 arg-5)) (let ((e-0 (vector-ref sc7 1))) e-0)) clam-2))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc7 1))) (let ((sc8 e-5)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((act-25 (CoreC-45Normalise-getArity arg-6 '() arg-5 '() e-1 clam-2))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc9 1))) (CoreC-45Termination-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 e-8 e-7 clam-2)))))))) (else (CoreC-45Termination-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 0 e-7 clam-2))))))))))(else (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Termination-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-0)) e-7 '() clam-2))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc6 1))) (vector 1 (PreludeC-45Interfaces-concat (cons (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (cons (lambda (arg-12) (lambda (arg-13) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-12 arg-13))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) e-5))))))))))))))(else (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Termination-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-0)) e-7 '() clam-2))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc5 1))) (vector 1 (PreludeC-45Interfaces-concat (cons (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (cons (lambda (arg-12) (lambda (arg-13) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-12 arg-13))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) e-5)))))))))))))))))))(else (let ((sc3 e-3)) (let ((e-6 (car sc3))) (let ((e-7 (cdr sc3))) (lambda (clam-3) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((1) (let ((e-9 (vector-ref sc4 1))) (let ((e-10 (vector-ref sc4 2))) (let ((e-11 (vector-ref sc4 3))) (let ((sc5 e-10)) (case (vector-ref sc5 0) ((1) (let ((act-24 (CoreC-45Context-lookupTyExact e-11 (let ((sc6 arg-5)) (let ((e-0 (vector-ref sc6 1))) e-0)) clam-3))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc6 1))) (let ((sc7 e-5)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((act-25 (CoreC-45Normalise-getArity arg-6 '() arg-5 '() e-1 clam-3))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc8 1))) (CoreC-45Termination-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 e-8 e-7 clam-3)))))))) (else (CoreC-45Termination-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 0 e-7 clam-3))))))))))(else (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Termination-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-0)) e-7 '() clam-3))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc5 1))) (vector 1 (PreludeC-45Interfaces-concat (cons (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (cons (lambda (arg-12) (lambda (arg-13) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-12 arg-13))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) e-5))))))))))))))(else (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Termination-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-0)) e-7 '() clam-3))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc4 1))) (vector 1 (PreludeC-45Interfaces-concat (cons (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (cons (lambda (arg-12) (lambda (arg-13) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-12 arg-13))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) e-5)))))))))))))))))))))) ((0) (let ((sc2 e-3)) (if (null? sc2) (let ((sc3 e-3)) (let ((e-6 (car sc3))) (let ((e-7 (cdr sc3))) (lambda (clam-7) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((1) (let ((e-9 (vector-ref sc4 1))) (let ((e-10 (vector-ref sc4 2))) (let ((e-11 (vector-ref sc4 3))) (let ((sc5 e-10)) (case (vector-ref sc5 0) ((1) (let ((act-24 (CoreC-45Context-lookupTyExact e-11 (let ((sc6 arg-5)) (let ((e-0 (vector-ref sc6 1))) e-0)) clam-7))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc6 1))) (let ((sc7 e-5)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((act-25 (CoreC-45Normalise-getArity arg-6 '() arg-5 '() e-1 clam-7))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc8 1))) (CoreC-45Termination-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 e-8 e-7 clam-7)))))))) (else (CoreC-45Termination-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 0 e-7 clam-7))))))))))(else (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Termination-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-0)) e-7 '() clam-7))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc5 1))) (vector 1 (PreludeC-45Interfaces-concat (cons (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (cons (lambda (arg-12) (lambda (arg-13) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-12 arg-13))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) e-5))))))))))))))(else (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Termination-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-0)) e-7 '() clam-7))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc4 1))) (vector 1 (PreludeC-45Interfaces-concat (cons (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (cons (lambda (arg-12) (lambda (arg-13) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-12 arg-13))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) e-5)))))))))))))) (let ((e-34 (car sc2))) (let ((e-35 (cdr sc2))) (let ((sc3 e-34)) (case (vector-ref sc3 0) ((1) (let ((e-38 (vector-ref sc3 2))) (let ((sc4 e-38)) (case (vector-ref sc4 0) ((2) (lambda (eta-0) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-1) (CoreC-45Termination-findSC arg-0 arg-6 arg-5 arg-4 (vector 2 ) arg-2 eta-1)) e-35 '() eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc5 1))) (vector 1 (PreludeC-45Interfaces-concat (cons (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (cons (lambda (arg-12) (lambda (arg-13) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-12 arg-13))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) e-5)))))))))(else (let ((sc4 e-3)) (let ((e-6 (car sc4))) (let ((e-7 (cdr sc4))) (lambda (clam-5) (let ((sc5 e-6)) (case (vector-ref sc5 0) ((1) (let ((e-9 (vector-ref sc5 1))) (let ((e-10 (vector-ref sc5 2))) (let ((e-11 (vector-ref sc5 3))) (let ((sc6 e-10)) (case (vector-ref sc6 0) ((1) (let ((act-24 (CoreC-45Context-lookupTyExact e-11 (let ((sc7 arg-5)) (let ((e-0 (vector-ref sc7 1))) e-0)) clam-5))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc7 1))) (let ((sc8 e-5)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((act-25 (CoreC-45Normalise-getArity arg-6 '() arg-5 '() e-1 clam-5))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc9 1))) (CoreC-45Termination-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 e-8 e-7 clam-5)))))))) (else (CoreC-45Termination-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 0 e-7 clam-5))))))))))(else (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Termination-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-0)) e-7 '() clam-5))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc6 1))) (vector 1 (PreludeC-45Interfaces-concat (cons (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (cons (lambda (arg-12) (lambda (arg-13) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-12 arg-13))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) e-5))))))))))))))(else (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Termination-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-0)) e-7 '() clam-5))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc5 1))) (vector 1 (PreludeC-45Interfaces-concat (cons (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (cons (lambda (arg-12) (lambda (arg-13) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-12 arg-13))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) e-5)))))))))))))))))))(else (let ((sc3 e-3)) (let ((e-6 (car sc3))) (let ((e-7 (cdr sc3))) (lambda (clam-6) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((1) (let ((e-9 (vector-ref sc4 1))) (let ((e-10 (vector-ref sc4 2))) (let ((e-11 (vector-ref sc4 3))) (let ((sc5 e-10)) (case (vector-ref sc5 0) ((1) (let ((act-24 (CoreC-45Context-lookupTyExact e-11 (let ((sc6 arg-5)) (let ((e-0 (vector-ref sc6 1))) e-0)) clam-6))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc6 1))) (let ((sc7 e-5)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((act-25 (CoreC-45Normalise-getArity arg-6 '() arg-5 '() e-1 clam-6))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc8 1))) (CoreC-45Termination-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 e-8 e-7 clam-6)))))))) (else (CoreC-45Termination-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 0 e-7 clam-6))))))))))(else (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Termination-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-0)) e-7 '() clam-6))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc5 1))) (vector 1 (PreludeC-45Interfaces-concat (cons (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (cons (lambda (arg-12) (lambda (arg-13) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-12 arg-13))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) e-5))))))))))))))(else (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Termination-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-0)) e-7 '() clam-6))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc4 1))) (vector 1 (PreludeC-45Interfaces-concat (cons (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (cons (lambda (arg-12) (lambda (arg-13) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-12 arg-13))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) e-5))))))))))))))))))))))(else (let ((sc1 e-3)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (lambda (clam-8) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (let ((e-11 (vector-ref sc2 3))) (let ((sc3 e-10)) (case (vector-ref sc3 0) ((1) (let ((act-24 (CoreC-45Context-lookupTyExact e-11 (let ((sc4 arg-5)) (let ((e-0 (vector-ref sc4 1))) e-0)) clam-8))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc4 1))) (let ((sc5 e-5)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((act-25 (CoreC-45Normalise-getArity arg-6 '() arg-5 '() e-1 clam-8))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc6 1))) (CoreC-45Termination-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 e-8 e-7 clam-8)))))))) (else (CoreC-45Termination-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 0 e-7 clam-8))))))))))(else (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Termination-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-0)) e-7 '() clam-8))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (vector 1 (PreludeC-45Interfaces-concat (cons (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (cons (lambda (arg-12) (lambda (arg-13) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-12 arg-13))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) e-5))))))))))))))(else (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Termination-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-0)) e-7 '() clam-8))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (PreludeC-45Interfaces-concat (cons (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (cons (lambda (arg-12) (lambda (arg-13) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-12 arg-13))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) e-5)))))))))))))))))))))) -(define CoreC-45Termination-case--findSC-2134 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((sc0 arg-7)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((act-24 (CoreC-45Termination-n--9852-1908-u--handleCase arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-2 e-3 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (let ((act-25 (CoreC-45Termination-n--9852-1909-u--conIfGuarded arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-2 ext-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) (let ((_-0 (vector 0 ))) ((CoreC-45Termination-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32findSC-2198 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-2 e-3 _-0 e-6 (cons arg-3 (cons e-6 e-3))) ext-0)))))))) (else (let ((e-4 (vector-ref sc2 1))) (vector 1 e-4))))))))))))))) -(define CoreC-45Termination-case--caseC-32blockC-32inC-32findSCC-44conIfGuarded-2043 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 ext-0) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (vector 1 (vector 1 arg-8 (vector 2 0 0) arg-7))) (else (vector 1 (vector 1 arg-8 (vector 1 ) arg-7))))))) -(define CoreC-45Termination-case--findSCC-44handleCase-1924 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 ext-0) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc1 eta-0)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-5))))))) (lambda (eta-0) (CoreC-45Termination-findSCcall arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 arg-9 arg-7 (+ 1 (+ 1 (+ 1 (+ 1 0)))) arg-10 eta-0)) ext-0)) (else (vector 1 (vector 0 ))))))) -(define CoreC-45Termination-case--caseC-32blockC-32inC-32checkIfGuardedC-44checkNotFn-1041 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((5) (vector 1 0))(else (vector 1 (PreludeC-45Basics-C-124C-124 (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega (let ((sc0 arg-5)) (let ((e-7 (vector-ref sc0 8))) e-7)) (AlgebraC-45Semiring-erased (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)))) (lambda () (PreludeC-45Types-elem (cons (lambda (arg-8) (lambda (arg-9) (CoreC-45Context-u--C-61C-61_Eq_DefFlag arg-8 arg-9))) (lambda (arg-8) (lambda (arg-9) (CoreC-45Context-u--C-47C-61_Eq_DefFlag arg-8 arg-9)))) (vector 8 ) (let ((sc0 arg-5)) (let ((e-11 (vector-ref sc0 12))) e-11))))))))))) -(define CoreC-45Termination-case--caseC-32blockC-32inC-32totRefs-768 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 arg-4))) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 (CoreC-45Context-toFullNames arg-3 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-1) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-1)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (CoreC-45ContextC-45Log-log arg-3 "totality" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))))))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Totality unchecked for " (CoreC-45Name-u--show_Show_Name e-5))) eta-0)))))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 arg-4)))))))(else (lambda (clam-0) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 e-0)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (CoreC-45Context-toFullNames arg-3 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Terminating arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Terminating arg-3812 arg-3813 eta-0))))) (vector 2 (vector 1 (cons arg-0 e-1))) clam-0)))(else (CoreC-45Context-toFullNames arg-3 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Terminating arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Terminating arg-3812 arg-3813 eta-0))))) (vector 2 (vector 1 (cons arg-0 '()))) clam-0))))))(else (CoreC-45Context-toFullNames arg-3 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Terminating arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Terminating arg-3812 arg-3813 eta-0))))) (vector 2 (vector 1 (cons arg-0 '()))) clam-0)))))))))) -(define CoreC-45Termination-n--11203-2979-u--urhs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 10 e-2 1))) ((1) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (vector 1 e-7 e-8 e-9))))) ((2) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 4))) (vector 2 e-11 e-12 e-13 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45Termination-n--9866-2972-u--updateRHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-8 eta-0)) e-14))))))) ((4) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (vector 4 e-16 (CoreC-45Termination-n--9866-2972-u--updateRHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-8 e-17) (CoreC-45Termination-n--9866-2972-u--updateRHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-8 e-18)))))) ((5) (let ((e-20 (vector-ref sc0 1))) (let ((e-21 (vector-ref sc0 2))) (let ((e-22 (vector-ref sc0 3))) (let ((e-23 (vector-ref sc0 4))) (vector 5 e-20 e-21 (CoreC-45Termination-n--9866-2972-u--updateRHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-8 e-22) (CoreC-45Termination-n--9866-2972-u--updateRHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-8 e-23))))))) ((6) (let ((e-25 (vector-ref sc0 1))) (let ((e-26 (vector-ref sc0 2))) (let ((e-27 (vector-ref sc0 3))) (vector 6 e-25 e-26 (CoreC-45Termination-n--9866-2972-u--updateRHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-8 e-27)))))) ((7) (let ((e-29 (vector-ref sc0 1))) (let ((e-30 (vector-ref sc0 2))) (let ((e-31 (vector-ref sc0 3))) (let ((e-32 (vector-ref sc0 4))) (vector 7 e-29 e-30 (CoreC-45Termination-n--9866-2972-u--updateRHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-8 e-31) (CoreC-45Termination-n--9866-2972-u--updateRHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-8 e-32))))))) ((8) (let ((e-34 (vector-ref sc0 1))) (let ((e-35 (vector-ref sc0 2))) (let ((e-36 (vector-ref sc0 3))) (vector 8 e-34 e-35 (CoreC-45Termination-n--9866-2972-u--updateRHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-8 e-36)))))) ((3) (let ((e-38 (vector-ref sc0 1))) (let ((e-39 (vector-ref sc0 2))) (let ((e-40 (vector-ref sc0 3))) (let ((e-41 (vector-ref sc0 4))) (vector 3 e-38 e-39 (CoreC-45TT-u--map_Functor_Binder (lambda (eta-0) (CoreC-45Termination-n--9866-2972-u--updateRHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-8 eta-0)) e-40) (CoreC-45Termination-n--9866-2972-u--updateRHS arg-0 arg-1 arg-2 arg-3 arg-4 (cons e-39 arg-5) (cons e-39 arg-7) (PreludeC-45Types-u--map_Functor_List (lambda (u--vt) (cons (CoreC-45TT-u--weaken_Weaken_Term (Builtin-fst u--vt)) (CoreC-45TT-u--weaken_Weaken_Term (Builtin-snd u--vt)))) arg-8) e-41))))))) ((9) (let ((e-43 (vector-ref sc0 1))) (let ((e-44 (vector-ref sc0 2))) (vector 9 e-43 e-44)))) ((10) (let ((e-46 (vector-ref sc0 1))) (let ((e-47 (vector-ref sc0 2))) (vector 10 e-46 e-47)))) (else (let ((e-49 (vector-ref sc0 1))) (vector 11 e-49))))))) -(define CoreC-45Termination-n--9866-2972-u--updateRHS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (CoreC-45Termination-case--getCasePatsC-44updateRHS-3276 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-8 arg-6 arg-7 (CoreC-45Termination-n--11203-2980-u--lookupTm arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-8 arg-6 arg-7 arg-8 arg-7)))) -(define CoreC-45Termination-n--9866-2973-u--updatePat (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (cons e-2 (CoreC-45Termination-n--9866-2972-u--updateRHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-3))))))) -(define CoreC-45Termination-n--12315-3987-u--updateArg (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (vector 0 )) ((1) (let ((e-14 (vector-ref sc0 1))) (let ((sc1 e-14)) (if (null? sc1) (let ((sc2 arg-6)) (case (vector-ref sc2 0) ((2) (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((1) (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (if (null? sc4) (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((sc6 e-1)) (if (null? sc6) arg-7 (let ((e-4 (car sc6))) (let ((e-5 (cdr sc6))) (let ((sc7 e-5)) (case (vector-ref sc7 0) ((1) (vector 1 (cons e-4 arg-6)))(else arg-7)))))))))(else arg-7))) (let ((e-10 (car sc4))) (vector 1 (cons e-10 (vector 2 ))))))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((sc4 e-1)) (if (null? sc4) arg-7 (let ((e-4 (car sc4))) (let ((e-5 (cdr sc4))) (let ((sc5 e-5)) (case (vector-ref sc5 0) ((1) (vector 1 (cons e-4 arg-6)))(else arg-7)))))))))(else arg-7)))))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((sc3 e-1)) (if (null? sc3) arg-7 (let ((e-4 (car sc3))) (let ((e-5 (cdr sc3))) (let ((sc4 e-5)) (case (vector-ref sc4 0) ((1) (vector 1 (cons e-4 arg-6)))(else arg-7)))))))))(else arg-7)))))) (let ((e-18 (cdr sc1))) (let ((sc2 e-18)) (case (vector-ref sc2 0) ((2) arg-7)(else (let ((sc2 arg-6)) (case (vector-ref sc2 0) ((2) (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((1) (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (if (null? sc4) (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((sc6 e-1)) (if (null? sc6) arg-7 (let ((e-4 (car sc6))) (let ((e-5 (cdr sc6))) (let ((sc7 e-5)) (case (vector-ref sc7 0) ((1) (vector 1 (cons e-4 arg-6)))(else arg-7)))))))))(else arg-7))) (let ((e-10 (car sc4))) (vector 1 (cons e-10 (vector 2 ))))))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((sc4 e-1)) (if (null? sc4) arg-7 (let ((e-4 (car sc4))) (let ((e-5 (cdr sc4))) (let ((sc5 e-5)) (case (vector-ref sc5 0) ((1) (vector 1 (cons e-4 arg-6)))(else arg-7)))))))))(else arg-7)))))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((sc3 e-1)) (if (null? sc3) arg-7 (let ((e-4 (car sc3))) (let ((e-5 (cdr sc3))) (let ((sc4 e-5)) (case (vector-ref sc4 0) ((1) (vector 1 (cons e-4 arg-6)))(else arg-7)))))))))(else arg-7))))))))))))))(else (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((2) (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((1) (let ((e-7 (vector-ref sc1 1))) (let ((sc2 e-7)) (if (null? sc2) (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((sc4 e-1)) (if (null? sc4) arg-7 (let ((e-4 (car sc4))) (let ((e-5 (cdr sc4))) (let ((sc5 e-5)) (case (vector-ref sc5 0) ((1) (vector 1 (cons e-4 arg-6)))(else arg-7)))))))))(else arg-7))) (let ((e-10 (car sc2))) (vector 1 (cons e-10 (vector 2 ))))))))(else (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((sc2 e-1)) (if (null? sc2) arg-7 (let ((e-4 (car sc2))) (let ((e-5 (cdr sc2))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((1) (vector 1 (cons e-4 arg-6)))(else arg-7)))))))))(else arg-7)))))))(else (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (if (null? sc1) arg-7 (let ((e-4 (car sc1))) (let ((e-5 (cdr sc1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (vector 1 (cons e-4 arg-6)))(else arg-7)))))))))(else arg-7))))))))))) -(define CoreC-45Termination-n--12315-3988-u--mkArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (if (null? sc0) '() (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (cons (vector 0 ) (CoreC-45Termination-n--12315-3988-u--mkArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (let ((e-9 (car sc2))) (let ((e-10 (cdr sc2))) (CoreC-45Termination-case--checkSCC-44mkArgs-4112 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-9 e-10 e-3 (CoreC-45Termination-n--12315-3986-u--getPos arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-1 e-9))))))))))))))) -(define CoreC-45Termination-n--9866-2974-u--matchArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-3)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (let ((sc2 e-7)) (let ((e-10 (car sc2))) (let ((e-11 (cdr sc2))) (let ((u--patMatch (DataC-45List-reverse (DataC-45List-u--zip_Zippable_List arg-1 (CoreC-45TT-getArgs e-10))))) (cons e-2 (cons e-6 (cons (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45Termination-n--9866-2973-u--updatePat arg-0 arg-1 arg-2 arg-3 arg-4 arg-0 e-2 u--patMatch eta-0)) arg-2) e-11))))))))))))))) -(define CoreC-45Termination-n--11203-2980-u--lookupTm (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (if (null? sc0) (vector 0 ) (let ((sc1 arg-9)) (case (vector-ref sc1 0) ((5) (let ((e-13 (vector-ref sc1 1))) (let ((e-14 (vector-ref sc1 2))) (let ((e-16 (vector-ref sc1 4))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Termination-n--11203-2980-u--lookupTm arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-16 arg-10) (lambda (u--tmC-39) (vector 1 (vector 5 e-13 e-14 u--tmC-39 (CoreC-45Termination-n--11203-2979-u--urhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-16)))))))))(else (let ((sc1 arg-10)) (let ((e-1 (car sc1))) (let ((e-2 (cdr sc1))) (let ((sc2 e-1)) (let ((e-5 (car sc2))) (let ((e-6 (cdr sc2))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((5) (let ((e-8 (vector-ref sc3 1))) (let ((e-9 (vector-ref sc3 2))) (let ((e-10 (vector-ref sc3 3))) (let ((e-11 (vector-ref sc3 4))) (CoreC-45Termination-case--getCasePatsC-44updateRHSC-44lookupTm-3115 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-11 e-10 e-9 e-8 e-6 e-2 arg-9 (CoreC-45TT-u--C-61C-61_Eq_C-40TermC-32C-36varsC-41 arg-9 e-10)))))))(else (CoreC-45Termination-case--getCasePatsC-44updateRHSC-44lookupTm-3216 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-5 e-6 e-2 arg-9 (CoreC-45TT-u--C-61C-61_Eq_C-40TermC-32C-36varsC-41 arg-9 e-5)))))))))))))))))) -(define CoreC-45Termination-n--9852-1908-u--handleCase (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 ext-0) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((act-24 (CoreC-45Context-toFullNames arg-6 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) e-3 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (CoreC-45Termination-case--findSCC-44handleCase-1924 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3 e-2 e-1 arg-8 e-5 (CoreC-45Termination-caseFn e-5) ext-0))))))))))(else (vector 1 (vector 0 ))))))) -(define CoreC-45Termination-n--8904-918-u--guardedNF (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((2) (vector 1 0)) ((1) (let ((e-8 (vector-ref sc0 2))) (let ((sc1 e-8)) (case (vector-ref sc1 0) ((1) (let ((e-12 (vector-ref sc1 2))) (let ((act-24 ((CoreC-45Context-lookupCtxtExact e-12 (let ((sc2 arg-4)) (let ((e-0 (vector-ref sc2 1))) e-0))) ext-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (vector 1 (PreludeC-45Types-elem (cons (lambda (arg-7) (lambda (arg-8) (CoreC-45Context-u--C-61C-61_Eq_DefFlag arg-7 arg-8))) (lambda (arg-7) (lambda (arg-8) (CoreC-45Context-u--C-47C-61_Eq_DefFlag arg-7 arg-8)))) (vector 8 ) (let ((sc4 e-1)) (let ((e-22 (vector-ref sc4 12))) e-22)))))) (else (vector 1 1)))))))))))(else (vector 1 1))))))(else (vector 1 1)))))) -(define CoreC-45Termination-n--8904-920-u--guarded (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (CoreC-45Context-clearDefs e-5 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((CoreC-45Normalise-nf arg-2 arg-3 e-6 arg-4 arg-5) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (CoreC-45Termination-n--8904-918-u--guardedNF arg-0 arg-1 arg-2 arg-3 e-5 arg-4 e-7 ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (cond ((equal? sc4 0) (let ((act-28 ((CoreC-45Context-lookupCtxtExact arg-0 (let ((sc5 e-5)) (let ((e-0 (vector-ref sc5 1))) e-0))) ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((sc6 e-9)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (CoreC-45Core-allM (lambda (eta-0) (lambda (eta-1) (CoreC-45Termination-n--8904-919-u--checkNotFn arg-0 arg-1 arg-2 e-5 eta-0 eta-1))) (LibrariesC-45DataC-45NameMap-keys (CoreC-45Context-refersTo e-1)) ext-0))) (else (vector 1 1)))))))))) (else (vector 1 1)))))))))))))))))))))))))) -(define CoreC-45Termination-n--12315-3990-u--getWorst (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (if (null? sc0) arg-6 (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (CoreC-45Termination-n--12315-3990-u--getWorst arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3)) ((0) (CoreC-45Termination-n--12315-3990-u--getWorst arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-3))(else e-2))))))))) -(define CoreC-45Termination-n--12315-3986-u--getPos (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-8) (let ((sc0 arg-7)) (if (null? sc0) (vector 0 ) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 arg-8)) (cond ((equal? sc1 0) (vector 1 e-2))(else (let ((e-4 (- arg-8 1))) (CoreC-45Termination-n--12315-3986-u--getPos arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3 e-4))))))))))) -(define CoreC-45Termination-n--9852-1802-u--findSCbinder (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((1) (let ((e-3 (vector-ref sc0 3))) (CoreC-45Termination-findSC arg-1 arg-9 arg-8 arg-7 arg-6 arg-5 e-3)))(else (lambda (eta-0) (vector 1 '()))))))) -(define CoreC-45Termination-n--13742-5311-u--dropParams (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (if (null? sc0) '() (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (CoreC-45Termination-case--posArgC-44dropParams-5328 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-2 e-3 arg-9 arg-8 (PreludeC-45Types-elem (cons (lambda (arg-11) (lambda (arg-12) (PreludeC-45Types-u--C-61C-61_Eq_Nat arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (PreludeC-45Types-u--C-47C-61_Eq_Nat arg-11 arg-12)))) arg-8 arg-9)))))))) -(define CoreC-45Termination-n--12315-3991-u--continue (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Termination-n--12315-3989-u--checkCall arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 eta-0)) arg-6 '() ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (CoreC-45Termination-n--12315-3990-u--getWorst arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 1 ) e-5))))))))) -(define CoreC-45Termination-n--9852-1909-u--conIfGuarded (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((act-24 (let ((act-24 (unbox arg-6))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact e-3 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) e-0))) ext-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((1) (let ((e-4 (vector-ref sc4 1))) (let ((_-0 (vector 1 e-4))) (CoreC-45Termination-case--caseC-32blockC-32inC-32findSCC-44conIfGuarded-2043 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3 e-1 e-5 e-4 _-0 (PreludeC-45Types-elem (cons (lambda (arg-8) (lambda (arg-9) (CoreC-45Context-u--C-61C-61_Eq_DefFlag arg-8 arg-9))) (lambda (arg-8) (lambda (arg-9) (CoreC-45Context-u--C-47C-61_Eq_DefFlag arg-8 arg-9)))) (vector 8 ) (let ((sc5 e-4)) (let ((e-11 (vector-ref sc5 12))) e-11))) ext-0)))) (else (vector 1 (vector 1 e-1 (vector 1 ) e-3))))))))))))))))(else (vector 1 arg-7))))))))(else (vector 1 arg-7)))))) -(define CoreC-45Termination-n--8904-919-u--checkNotFn (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 ((CoreC-45Context-lookupCtxtExact arg-4 (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) e-0))) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((_-0 (vector 1 e-1))) (CoreC-45Termination-case--caseC-32blockC-32inC-32checkIfGuardedC-44checkNotFn-1041 arg-0 arg-1 arg-2 arg-4 arg-3 e-1 _-0 (let ((sc2 e-1)) (let ((e-17 (vector-ref sc2 18))) e-17)) ext-0)))) (else (vector 1 1))))))))))) -(define CoreC-45Termination-n--12315-3985-u--checkDesc (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-6)) (if (null? sc0) (vector 2 (vector 2 (DataC-45List-reverse (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-fst eta-0)) arg-7)))) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (vector 1 ))(else (CoreC-45Termination-n--12315-3985-u--checkDesc arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3 arg-7)))))))))) -(define CoreC-45Termination-n--12315-3989-u--checkCall (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((u--inpath (PreludeC-45Types-elem (cons (lambda (arg-8) (lambda (arg-9) (CoreC-45Name-u--C-61C-61_Eq_Name arg-8 arg-9))) (lambda (arg-8) (lambda (arg-9) (CoreC-45Name-u--C-47C-61_Eq_Name arg-8 arg-9)))) (let ((sc0 arg-7)) (let ((e-0 (car sc0))) e-0)) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-fst eta-0)) arg-6)))) (lambda (eta-0) (let ((act-24 ((CoreC-45Context-lookupCtxtExact (let ((sc0 arg-7)) (let ((e-0 (car sc0))) e-0)) (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) e-0))) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((_-0 (vector 1 e-1))) (CoreC-45Termination-case--caseC-32blockC-32inC-32checkSCC-44checkCall-4204 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-6 u--inpath e-1 _-0 (let ((sc2 e-1)) (let ((e-10 (vector-ref sc2 11))) (let ((sc3 e-10)) (let ((e-24 (car sc3))) e-24)))) eta-0)))) (else (vector 1 (vector 1 )))))))))))))) -(define CoreC-45Termination-n--8904-921-u--allGuarded (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (if (null? sc0) (lambda (eta-0) (vector 1 0)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (lambda (clam-0) (let ((sc2 e-7)) (let ((e-10 (car sc2))) (let ((e-11 (cdr sc2))) (let ((sc3 e-11)) (let ((e-15 (cdr sc3))) (let ((act-24 (CoreC-45Termination-n--8904-920-u--guarded arg-0 arg-1 arg-2 e-6 e-10 e-15 clam-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc4 1))) (let ((sc5 e-5)) (cond ((equal? sc5 0) ((CoreC-45Termination-n--8904-921-u--allGuarded arg-0 arg-1 arg-2 e-3) clam-0)) (else (vector 1 1)))))))))))))))))))))))) -(define CoreC-45Termination-n--13152-4755-u--addCasesC-39 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (if (null? sc0) (lambda (eta-0) (vector 1 (LibrariesC-45DataC-45NameMap-keys arg-4))) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (CoreC-45Termination-case--calcTerminatingC-44addCasesC-39-4772 arg-0 arg-1 arg-2 e-2 e-3 arg-4 arg-3 (LibrariesC-45DataC-45NameMap-lookup e-2 arg-4)))))))) -(define CoreC-45Termination-n--13152-4756-u--addCases (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (CoreC-45Termination-n--13152-4755-u--addCasesC-39 arg-0 arg-1 arg-2 arg-3 (LibrariesC-45DataC-45NameMap-empty) arg-4))) +(define CoreC-45Transform-apply (lambda (arg-1 arg-2) (if (null? arg-1) (cons 0 arg-2) (let ((e-2 (car arg-1))) (let ((e-3 (cdr arg-1))) (let ((sc1 (CoreC-45Transform-tryApply e-2 arg-2))) (if (null? sc1) (CoreC-45Transform-apply e-3 arg-2) (let ((e-4 (unbox sc1))) (cons 1 e-4))))))))) +(define CoreC-45Transform-addMatch (lambda (arg-3 arg-5 arg-6) (CoreC-45Transform-case--addMatch-6094 arg-6 arg-5 arg-3 (CoreC-45Transform-lookupMatch arg-3 arg-6)))) +(define CoreC-45Termination-case--caseC-32blockC-32inC-32checkTotal-10672 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 ext-0) (case (vector-ref arg-8 0) ((0) (let ((act-24 (CoreC-45Context-lookupDefExact arg-5 (let ((e-0 (vector-ref arg-7 0))) e-0) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (if (null? e-5) (CoreC-45Termination-checkTerminating arg-2 arg-1 arg-5 ext-0) (let ((e-1 (unbox e-5))) (case (vector-ref e-1 0) ((6) (CoreC-45Termination-checkPositive arg-2 arg-1 arg-5 ext-0))(else (CoreC-45Termination-checkTerminating arg-2 arg-1 arg-5 ext-0))))))))))(else (vector 1 arg-8))))) +(define CoreC-45Termination-case--checkTotal-10618 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (if (null? arg-4) (lambda (eta-0) (CoreC-45Context-undefinedName arg-2 arg-1 arg-0 eta-0)) (let ((e-1 (unbox arg-4))) (let ((u--n (vector 9 e-1))) (lambda (eta-0) (let ((act-24 (CoreC-45Context-getTotality arg-2 arg-1 u--n eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (let ((act-25 (CoreC-45Context-toFullNames arg-2 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-1) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-1)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-1) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-1))))) u--n eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (CoreC-45ContextC-45Log-log arg-2 "totality" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Checking totality: " (CoreC-45Name-u--show_Show_Name e-6))) eta-0))))))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 (let ((act-26 (unbox arg-2))) (vector 1 act-26)))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (CoreC-45Termination-case--caseC-32blockC-32inC-32checkTotal-10672 arg-0 arg-1 arg-2 arg-3 e-1 u--n e-5 e-7 (let ((e-0 (car e-5))) e-0) eta-0)))))))))))))))))) +(define CoreC-45Termination-case--checkPositive-10541 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (case (vector-ref arg-5 0) ((0) (let ((act-24 (CoreC-45Termination-calcPositive arg-2 arg-1 arg-3 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((e-2 (car e-5))) (let ((e-3 (cdr e-5))) (let ((act-25 (CoreC-45Context-setTerminating arg-2 arg-1 arg-3 e-2 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((act-26 (CoreC-45Core-traverse_ (lambda (u--c) (lambda (eta-0) (CoreC-45Context-setTerminating arg-2 arg-1 u--c e-2 eta-0))) e-3 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-4 (vector-ref act-26 1))) (vector 0 e-4))) (else (vector 1 e-2))))))))))))))(else (vector 1 arg-5))))) +(define CoreC-45Termination-case--checkTerminating-9546 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (case (vector-ref arg-4 0) ((0) (let ((act-24 (CoreC-45Termination-calcTerminating arg-2 arg-1 arg-0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-setTerminating arg-2 arg-1 arg-0 e-5 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (vector 1 e-5)))))))))(else (vector 1 arg-4))))) +(define CoreC-45Termination-case--asserted-7071 (lambda (arg-1 arg-2 arg-3) (if (null? arg-3) '() (let ((e-2 (car arg-3))) (let ((e-3 (cdr arg-3))) (case (vector-ref e-2 0) ((1) (let ((e-7 (vector-ref e-2 3))) (if (null? e-3) '() (let ((e-10 (cdr e-3))) (if (null? e-10) '() (let ((e-13 (cdr e-10))) (if (null? e-13) '() (let ((e-15 (car e-13))) (let ((e-16 (cdr e-13))) (if (null? e-16) '() (let ((e-19 (cdr e-16))) (if (null? e-19) (let ((sc7 (CoreC-45Name-u--C-61C-61_Eq_Name e-7 arg-2))) (cond ((equal? sc7 1) (box e-15)) (else '()))) '()))))))))))))(else '()))))))) +(define CoreC-45Termination-case--smallerArg-6986 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (if (null? arg-6) (case (vector-ref arg-2 0) ((4) (let ((e-2 (vector-ref arg-2 2))) (lambda () (CoreC-45Termination-smaller arg-5 arg-4 arg-3 e-2 arg-1))))(else (lambda () 0))) (let ((e-2 (car arg-6))) (let ((e-3 (cdr arg-6))) (case (vector-ref e-2 0) ((1) (let ((e-6 (vector-ref e-2 2))) (case (vector-ref e-6 0) ((2) (lambda () (PreludeC-45Interfaces-any (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (lambda (eta-0) (CoreC-45Termination-smaller 1 arg-4 arg-3 arg-2 eta-0)) e-3)))(else (case (vector-ref arg-2 0) ((4) (let ((e-8 (vector-ref arg-2 2))) (lambda () (CoreC-45Termination-smaller arg-5 arg-4 arg-3 e-8 arg-1))))(else (lambda () 0)))))))(else (case (vector-ref arg-2 0) ((4) (let ((e-5 (vector-ref arg-2 2))) (lambda () (CoreC-45Termination-smaller arg-5 arg-4 arg-3 e-5 arg-1))))(else (lambda () 0)))))))))) +(define CoreC-45Termination-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32findSC-6480 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((e-2 (car arg-11))) (let ((e-3 (cdr arg-11))) (cond ((equal? e-2 3) (if (null? e-3) (let ((e-6 (car e-3))) (let ((e-7 (cdr e-3))) (lambda (clam-1) (case (vector-ref e-6 0) ((1) (let ((e-9 (vector-ref e-6 1))) (let ((e-10 (vector-ref e-6 2))) (let ((e-11 (vector-ref e-6 3))) (case (vector-ref e-10 0) ((1) (let ((act-24 (CoreC-45Context-lookupTyExact e-11 (let ((e-0 (vector-ref arg-5 0))) e-0) clam-1))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (if (null? e-5) (CoreC-45Termination-findSCcall arg-0 arg-6 arg-5 arg-4 1 arg-2 e-9 e-11 0 e-7 clam-1) (let ((e-1 (unbox e-5))) (let ((act-25 (CoreC-45Normalise-getArity arg-6 '() arg-5 '() e-1 clam-1))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref act-25 1))) (CoreC-45Termination-findSCcall arg-0 arg-6 arg-5 arg-4 1 arg-2 e-9 e-11 e-8 e-7 clam-1))))))))))))(else (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Termination-findSC arg-0 arg-6 arg-5 arg-4 1 arg-2 eta-0)) e-7 '() clam-1))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (PreludeC-45Interfaces-concat (cons (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (cons (lambda (arg-12) (lambda (arg-13) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-12 arg-13))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) e-5))))))))))))(else (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Termination-findSC arg-0 arg-6 arg-5 arg-4 1 arg-2 eta-0)) e-7 '() clam-1))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (PreludeC-45Interfaces-concat (cons (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (cons (lambda (arg-12) (lambda (arg-13) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-12 arg-13))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) e-5))))))))))) (let ((e-14 (car e-3))) (let ((e-15 (cdr e-3))) (lambda (clam-0) (case (vector-ref e-14 0) ((1) (let ((e-18 (vector-ref e-14 2))) (case (vector-ref e-18 0) ((2) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Termination-findSC arg-0 arg-6 arg-5 arg-4 3 arg-2 eta-0)) e-15 '() clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (PreludeC-45Interfaces-concat (cons (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (cons (lambda (arg-12) (lambda (arg-13) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-12 arg-13))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) e-5)))))))(else (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Termination-findSC arg-0 arg-6 arg-5 arg-4 1 arg-2 eta-0)) e-15 '() clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (PreludeC-45Interfaces-concat (cons (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (cons (lambda (arg-12) (lambda (arg-13) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-12 arg-13))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) e-5))))))))))(else (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Termination-findSC arg-0 arg-6 arg-5 arg-4 1 arg-2 eta-0)) e-15 '() clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (PreludeC-45Interfaces-concat (cons (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (cons (lambda (arg-12) (lambda (arg-13) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-12 arg-13))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) e-5))))))))))))) ((equal? e-2 2) (if (null? e-3) (let ((e-6 (car e-3))) (let ((e-7 (cdr e-3))) (lambda (clam-4) (case (vector-ref e-6 0) ((1) (let ((e-9 (vector-ref e-6 1))) (let ((e-10 (vector-ref e-6 2))) (let ((e-11 (vector-ref e-6 3))) (case (vector-ref e-10 0) ((1) (let ((act-24 (CoreC-45Context-lookupTyExact e-11 (let ((e-0 (vector-ref arg-5 0))) e-0) clam-4))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (if (null? e-5) (CoreC-45Termination-findSCcall arg-0 arg-6 arg-5 arg-4 1 arg-2 e-9 e-11 0 e-7 clam-4) (let ((e-1 (unbox e-5))) (let ((act-25 (CoreC-45Normalise-getArity arg-6 '() arg-5 '() e-1 clam-4))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref act-25 1))) (CoreC-45Termination-findSCcall arg-0 arg-6 arg-5 arg-4 1 arg-2 e-9 e-11 e-8 e-7 clam-4))))))))))))(else (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Termination-findSC arg-0 arg-6 arg-5 arg-4 1 arg-2 eta-0)) e-7 '() clam-4))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (PreludeC-45Interfaces-concat (cons (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (cons (lambda (arg-12) (lambda (arg-13) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-12 arg-13))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) e-5))))))))))))(else (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Termination-findSC arg-0 arg-6 arg-5 arg-4 1 arg-2 eta-0)) e-7 '() clam-4))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (PreludeC-45Interfaces-concat (cons (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (cons (lambda (arg-12) (lambda (arg-13) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-12 arg-13))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) e-5))))))))))) (let ((e-24 (car e-3))) (let ((e-25 (cdr e-3))) (case (vector-ref e-24 0) ((1) (let ((e-28 (vector-ref e-24 2))) (case (vector-ref e-28 0) ((2) (lambda (eta-0) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-1) (CoreC-45Termination-findSC arg-0 arg-6 arg-5 arg-4 2 arg-2 eta-1)) e-25 '() eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (PreludeC-45Interfaces-concat (cons (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (cons (lambda (arg-12) (lambda (arg-13) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-12 arg-13))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) e-5))))))))(else (let ((e-6 (car e-3))) (let ((e-7 (cdr e-3))) (lambda (clam-2) (case (vector-ref e-6 0) ((1) (let ((e-9 (vector-ref e-6 1))) (let ((e-10 (vector-ref e-6 2))) (let ((e-11 (vector-ref e-6 3))) (case (vector-ref e-10 0) ((1) (let ((act-24 (CoreC-45Context-lookupTyExact e-11 (let ((e-0 (vector-ref arg-5 0))) e-0) clam-2))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (if (null? e-5) (CoreC-45Termination-findSCcall arg-0 arg-6 arg-5 arg-4 1 arg-2 e-9 e-11 0 e-7 clam-2) (let ((e-1 (unbox e-5))) (let ((act-25 (CoreC-45Normalise-getArity arg-6 '() arg-5 '() e-1 clam-2))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref act-25 1))) (CoreC-45Termination-findSCcall arg-0 arg-6 arg-5 arg-4 1 arg-2 e-9 e-11 e-8 e-7 clam-2))))))))))))(else (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Termination-findSC arg-0 arg-6 arg-5 arg-4 1 arg-2 eta-0)) e-7 '() clam-2))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (PreludeC-45Interfaces-concat (cons (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (cons (lambda (arg-12) (lambda (arg-13) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-12 arg-13))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) e-5))))))))))))(else (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Termination-findSC arg-0 arg-6 arg-5 arg-4 1 arg-2 eta-0)) e-7 '() clam-2))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (PreludeC-45Interfaces-concat (cons (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (cons (lambda (arg-12) (lambda (arg-13) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-12 arg-13))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) e-5)))))))))))))))(else (let ((e-6 (car e-3))) (let ((e-7 (cdr e-3))) (lambda (clam-3) (case (vector-ref e-6 0) ((1) (let ((e-9 (vector-ref e-6 1))) (let ((e-10 (vector-ref e-6 2))) (let ((e-11 (vector-ref e-6 3))) (case (vector-ref e-10 0) ((1) (let ((act-24 (CoreC-45Context-lookupTyExact e-11 (let ((e-0 (vector-ref arg-5 0))) e-0) clam-3))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (if (null? e-5) (CoreC-45Termination-findSCcall arg-0 arg-6 arg-5 arg-4 1 arg-2 e-9 e-11 0 e-7 clam-3) (let ((e-1 (unbox e-5))) (let ((act-25 (CoreC-45Normalise-getArity arg-6 '() arg-5 '() e-1 clam-3))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref act-25 1))) (CoreC-45Termination-findSCcall arg-0 arg-6 arg-5 arg-4 1 arg-2 e-9 e-11 e-8 e-7 clam-3))))))))))))(else (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Termination-findSC arg-0 arg-6 arg-5 arg-4 1 arg-2 eta-0)) e-7 '() clam-3))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (PreludeC-45Interfaces-concat (cons (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (cons (lambda (arg-12) (lambda (arg-13) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-12 arg-13))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) e-5))))))))))))(else (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Termination-findSC arg-0 arg-6 arg-5 arg-4 1 arg-2 eta-0)) e-7 '() clam-3))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (PreludeC-45Interfaces-concat (cons (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (cons (lambda (arg-12) (lambda (arg-13) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-12 arg-13))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) e-5))))))))))))))))) ((equal? e-2 0) (if (null? e-3) (let ((e-6 (car e-3))) (let ((e-7 (cdr e-3))) (lambda (clam-7) (case (vector-ref e-6 0) ((1) (let ((e-9 (vector-ref e-6 1))) (let ((e-10 (vector-ref e-6 2))) (let ((e-11 (vector-ref e-6 3))) (case (vector-ref e-10 0) ((1) (let ((act-24 (CoreC-45Context-lookupTyExact e-11 (let ((e-0 (vector-ref arg-5 0))) e-0) clam-7))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (if (null? e-5) (CoreC-45Termination-findSCcall arg-0 arg-6 arg-5 arg-4 1 arg-2 e-9 e-11 0 e-7 clam-7) (let ((e-1 (unbox e-5))) (let ((act-25 (CoreC-45Normalise-getArity arg-6 '() arg-5 '() e-1 clam-7))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref act-25 1))) (CoreC-45Termination-findSCcall arg-0 arg-6 arg-5 arg-4 1 arg-2 e-9 e-11 e-8 e-7 clam-7))))))))))))(else (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Termination-findSC arg-0 arg-6 arg-5 arg-4 1 arg-2 eta-0)) e-7 '() clam-7))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (PreludeC-45Interfaces-concat (cons (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (cons (lambda (arg-12) (lambda (arg-13) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-12 arg-13))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) e-5))))))))))))(else (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Termination-findSC arg-0 arg-6 arg-5 arg-4 1 arg-2 eta-0)) e-7 '() clam-7))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (PreludeC-45Interfaces-concat (cons (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (cons (lambda (arg-12) (lambda (arg-13) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-12 arg-13))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) e-5))))))))))) (let ((e-34 (car e-3))) (let ((e-35 (cdr e-3))) (case (vector-ref e-34 0) ((1) (let ((e-38 (vector-ref e-34 2))) (case (vector-ref e-38 0) ((2) (lambda (eta-0) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-1) (CoreC-45Termination-findSC arg-0 arg-6 arg-5 arg-4 2 arg-2 eta-1)) e-35 '() eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (PreludeC-45Interfaces-concat (cons (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (cons (lambda (arg-12) (lambda (arg-13) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-12 arg-13))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) e-5))))))))(else (let ((e-6 (car e-3))) (let ((e-7 (cdr e-3))) (lambda (clam-5) (case (vector-ref e-6 0) ((1) (let ((e-9 (vector-ref e-6 1))) (let ((e-10 (vector-ref e-6 2))) (let ((e-11 (vector-ref e-6 3))) (case (vector-ref e-10 0) ((1) (let ((act-24 (CoreC-45Context-lookupTyExact e-11 (let ((e-0 (vector-ref arg-5 0))) e-0) clam-5))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (if (null? e-5) (CoreC-45Termination-findSCcall arg-0 arg-6 arg-5 arg-4 1 arg-2 e-9 e-11 0 e-7 clam-5) (let ((e-1 (unbox e-5))) (let ((act-25 (CoreC-45Normalise-getArity arg-6 '() arg-5 '() e-1 clam-5))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref act-25 1))) (CoreC-45Termination-findSCcall arg-0 arg-6 arg-5 arg-4 1 arg-2 e-9 e-11 e-8 e-7 clam-5))))))))))))(else (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Termination-findSC arg-0 arg-6 arg-5 arg-4 1 arg-2 eta-0)) e-7 '() clam-5))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (PreludeC-45Interfaces-concat (cons (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (cons (lambda (arg-12) (lambda (arg-13) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-12 arg-13))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) e-5))))))))))))(else (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Termination-findSC arg-0 arg-6 arg-5 arg-4 1 arg-2 eta-0)) e-7 '() clam-5))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (PreludeC-45Interfaces-concat (cons (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (cons (lambda (arg-12) (lambda (arg-13) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-12 arg-13))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) e-5)))))))))))))))(else (let ((e-6 (car e-3))) (let ((e-7 (cdr e-3))) (lambda (clam-6) (case (vector-ref e-6 0) ((1) (let ((e-9 (vector-ref e-6 1))) (let ((e-10 (vector-ref e-6 2))) (let ((e-11 (vector-ref e-6 3))) (case (vector-ref e-10 0) ((1) (let ((act-24 (CoreC-45Context-lookupTyExact e-11 (let ((e-0 (vector-ref arg-5 0))) e-0) clam-6))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (if (null? e-5) (CoreC-45Termination-findSCcall arg-0 arg-6 arg-5 arg-4 1 arg-2 e-9 e-11 0 e-7 clam-6) (let ((e-1 (unbox e-5))) (let ((act-25 (CoreC-45Normalise-getArity arg-6 '() arg-5 '() e-1 clam-6))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref act-25 1))) (CoreC-45Termination-findSCcall arg-0 arg-6 arg-5 arg-4 1 arg-2 e-9 e-11 e-8 e-7 clam-6))))))))))))(else (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Termination-findSC arg-0 arg-6 arg-5 arg-4 1 arg-2 eta-0)) e-7 '() clam-6))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (PreludeC-45Interfaces-concat (cons (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (cons (lambda (arg-12) (lambda (arg-13) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-12 arg-13))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) e-5))))))))))))(else (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Termination-findSC arg-0 arg-6 arg-5 arg-4 1 arg-2 eta-0)) e-7 '() clam-6))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (PreludeC-45Interfaces-concat (cons (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (cons (lambda (arg-12) (lambda (arg-13) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-12 arg-13))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) e-5)))))))))))))))))(else (let ((e-6 (car e-3))) (let ((e-7 (cdr e-3))) (lambda (clam-8) (case (vector-ref e-6 0) ((1) (let ((e-9 (vector-ref e-6 1))) (let ((e-10 (vector-ref e-6 2))) (let ((e-11 (vector-ref e-6 3))) (case (vector-ref e-10 0) ((1) (let ((act-24 (CoreC-45Context-lookupTyExact e-11 (let ((e-0 (vector-ref arg-5 0))) e-0) clam-8))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (if (null? e-5) (CoreC-45Termination-findSCcall arg-0 arg-6 arg-5 arg-4 1 arg-2 e-9 e-11 0 e-7 clam-8) (let ((e-1 (unbox e-5))) (let ((act-25 (CoreC-45Normalise-getArity arg-6 '() arg-5 '() e-1 clam-8))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref act-25 1))) (CoreC-45Termination-findSCcall arg-0 arg-6 arg-5 arg-4 1 arg-2 e-9 e-11 e-8 e-7 clam-8))))))))))))(else (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Termination-findSC arg-0 arg-6 arg-5 arg-4 1 arg-2 eta-0)) e-7 '() clam-8))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (PreludeC-45Interfaces-concat (cons (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (cons (lambda (arg-12) (lambda (arg-13) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-12 arg-13))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) e-5))))))))))))(else (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Termination-findSC arg-0 arg-6 arg-5 arg-4 1 arg-2 eta-0)) e-7 '() clam-8))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (PreludeC-45Interfaces-concat (cons (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (cons (lambda (arg-12) (lambda (arg-13) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-12 arg-13))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) e-5))))))))))))))))) +(define CoreC-45Termination-case--findSC-6417 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((e-2 (car arg-7))) (let ((e-3 (cdr arg-7))) (let ((act-24 (CoreC-45Termination-n--7480-6191-u--handleCase arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-2 e-3 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (if (null? e-5) (let ((act-25 (CoreC-45Termination-n--7480-6192-u--conIfGuarded arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-2 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref act-25 1))) (let ((_-0 '())) ((CoreC-45Termination-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32findSC-6480 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-2 e-3 _-0 e-6 (cons arg-3 (cons e-6 e-3))) ext-0)))))) (let ((e-4 (unbox e-5))) (vector 1 e-4))))))))))) +(define CoreC-45Termination-case--caseC-32blockC-32inC-32totRefs-5010 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (case (vector-ref arg-7 0) ((1) (lambda (eta-0) (vector 1 arg-4))) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 (CoreC-45Context-toFullNames arg-3 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-1) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-1)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-1) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-1))))) arg-0 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (CoreC-45ContextC-45Log-log arg-3 "totality" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))))))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Totality unchecked for " (CoreC-45Name-u--show_Show_Name e-5))) eta-0))))))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (vector 1 arg-4))))))(else (lambda (clam-0) (case (vector-ref arg-4 0) ((2) (let ((e-0 (vector-ref arg-4 1))) (case (vector-ref e-0 0) ((1) (let ((e-1 (vector-ref e-0 1))) (CoreC-45Context-toFullNames arg-3 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Terminating arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Terminating arg-3843 arg-3844 eta-0))))) (vector 2 (vector 1 (cons arg-0 e-1))) clam-0)))(else (CoreC-45Context-toFullNames arg-3 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Terminating arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Terminating arg-3843 arg-3844 eta-0))))) (vector 2 (vector 1 (cons arg-0 '()))) clam-0)))))(else (CoreC-45Context-toFullNames arg-3 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Terminating arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Terminating arg-3843 arg-3844 eta-0))))) (vector 2 (vector 1 (cons arg-0 '()))) clam-0)))))))) +(define CoreC-45Termination-n--8846-7249-u--urhs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (case (vector-ref arg-9 0) ((0) (let ((e-2 (vector-ref arg-9 1))) (vector 10 e-2 0))) ((1) (let ((e-7 (vector-ref arg-9 1))) (let ((e-8 (vector-ref arg-9 2))) (let ((e-9 (vector-ref arg-9 3))) (vector 1 e-7 e-8 e-9))))) ((2) (let ((e-11 (vector-ref arg-9 1))) (let ((e-12 (vector-ref arg-9 2))) (let ((e-13 (vector-ref arg-9 3))) (let ((e-14 (vector-ref arg-9 4))) (vector 2 e-11 e-12 e-13 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45Termination-n--7500-7241-u--updateRHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-8 eta-0)) e-14))))))) ((4) (let ((e-16 (vector-ref arg-9 1))) (let ((e-17 (vector-ref arg-9 2))) (let ((e-18 (vector-ref arg-9 3))) (vector 4 e-16 (CoreC-45Termination-n--7500-7241-u--updateRHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-8 e-17) (CoreC-45Termination-n--7500-7241-u--updateRHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-8 e-18)))))) ((5) (let ((e-20 (vector-ref arg-9 1))) (let ((e-21 (vector-ref arg-9 2))) (let ((e-22 (vector-ref arg-9 3))) (let ((e-23 (vector-ref arg-9 4))) (vector 5 e-20 e-21 (CoreC-45Termination-n--7500-7241-u--updateRHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-8 e-22) (CoreC-45Termination-n--7500-7241-u--updateRHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-8 e-23))))))) ((6) (let ((e-25 (vector-ref arg-9 1))) (let ((e-26 (vector-ref arg-9 2))) (let ((e-27 (vector-ref arg-9 3))) (vector 6 e-25 e-26 (CoreC-45Termination-n--7500-7241-u--updateRHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-8 e-27)))))) ((7) (let ((e-29 (vector-ref arg-9 1))) (let ((e-30 (vector-ref arg-9 2))) (let ((e-31 (vector-ref arg-9 3))) (let ((e-32 (vector-ref arg-9 4))) (vector 7 e-29 e-30 (CoreC-45Termination-n--7500-7241-u--updateRHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-8 e-31) (CoreC-45Termination-n--7500-7241-u--updateRHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-8 e-32))))))) ((8) (let ((e-34 (vector-ref arg-9 1))) (let ((e-35 (vector-ref arg-9 2))) (let ((e-36 (vector-ref arg-9 3))) (vector 8 e-34 e-35 (CoreC-45Termination-n--7500-7241-u--updateRHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-8 e-36)))))) ((3) (let ((e-38 (vector-ref arg-9 1))) (let ((e-39 (vector-ref arg-9 2))) (let ((e-40 (vector-ref arg-9 3))) (let ((e-41 (vector-ref arg-9 4))) (vector 3 e-38 e-39 (CoreC-45TT-u--map_Functor_Binder (lambda (eta-0) (CoreC-45Termination-n--7500-7241-u--updateRHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-8 eta-0)) e-40) (CoreC-45Termination-n--7500-7241-u--updateRHS arg-0 arg-1 arg-2 arg-3 arg-4 (cons e-39 arg-5) (cons e-39 arg-7) (PreludeC-45Types-u--map_Functor_List (lambda (u--vt) (cons (CoreC-45TT-u--weaken_Weaken_Term (Builtin-fst u--vt)) (CoreC-45TT-u--weaken_Weaken_Term (Builtin-snd u--vt)))) arg-8) e-41))))))) ((9) (let ((e-43 (vector-ref arg-9 1))) (let ((e-44 (vector-ref arg-9 2))) (vector 9 e-43 e-44)))) ((10) (let ((e-46 (vector-ref arg-9 1))) (let ((e-47 (vector-ref arg-9 2))) (vector 10 e-46 e-47)))) (else (let ((e-49 (vector-ref arg-9 1))) (vector 11 e-49)))))) +(define CoreC-45Termination-n--7500-7241-u--updateRHS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 (CoreC-45Termination-n--8846-7250-u--lookupTm arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-8 arg-6 arg-7 arg-8 arg-7))) (if (null? sc0) (CoreC-45Termination-n--8846-7249-u--urhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-8 arg-6 arg-7 arg-8) (let ((e-2 (unbox sc0))) e-2))))) +(define CoreC-45Termination-n--7500-7242-u--updatePat (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((e-2 (car arg-8))) (let ((e-3 (cdr arg-8))) (cons e-2 (CoreC-45Termination-n--7500-7241-u--updateRHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-3)))))) +(define CoreC-45Termination-n--9987-8274-u--updateArg (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (if (null? arg-8) '() (let ((e-14 (unbox arg-8))) (if (null? e-14) (cond ((equal? arg-7 2) (if (null? arg-8) (if (null? arg-8) arg-8 (let ((e-1 (unbox arg-8))) (if (null? e-1) arg-8 (let ((e-4 (car e-1))) (let ((e-5 (cdr e-1))) (cond ((equal? e-5 1) (box (cons e-4 arg-7)))(else arg-8))))))) (let ((e-7 (unbox arg-8))) (if (null? e-7) (if (null? arg-8) arg-8 (let ((e-1 (unbox arg-8))) (if (null? e-1) arg-8 (let ((e-4 (car e-1))) (let ((e-5 (cdr e-1))) (cond ((equal? e-5 1) (box (cons e-4 arg-7)))(else arg-8))))))) (let ((e-10 (car e-7))) (box (cons e-10 2)))))))(else (if (null? arg-8) arg-8 (let ((e-1 (unbox arg-8))) (if (null? e-1) arg-8 (let ((e-4 (car e-1))) (let ((e-5 (cdr e-1))) (cond ((equal? e-5 1) (box (cons e-4 arg-7)))(else arg-8))))))))) (let ((e-18 (cdr e-14))) (cond ((equal? e-18 2) arg-8)(else (cond ((equal? arg-7 2) (if (null? arg-8) (if (null? arg-8) arg-8 (let ((e-1 (unbox arg-8))) (if (null? e-1) arg-8 (let ((e-4 (car e-1))) (let ((e-5 (cdr e-1))) (cond ((equal? e-5 1) (box (cons e-4 arg-7)))(else arg-8))))))) (let ((e-7 (unbox arg-8))) (if (null? e-7) (if (null? arg-8) arg-8 (let ((e-1 (unbox arg-8))) (if (null? e-1) arg-8 (let ((e-4 (car e-1))) (let ((e-5 (cdr e-1))) (cond ((equal? e-5 1) (box (cons e-4 arg-7)))(else arg-8))))))) (let ((e-10 (car e-7))) (box (cons e-10 2)))))))(else (if (null? arg-8) arg-8 (let ((e-1 (unbox arg-8))) (if (null? e-1) arg-8 (let ((e-4 (car e-1))) (let ((e-5 (cdr e-1))) (cond ((equal? e-5 1) (box (cons e-4 arg-7)))(else arg-8))))))))))))))))) +(define CoreC-45Termination-n--9987-8275-u--mkArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (if (null? arg-7) '() (let ((e-2 (car arg-7))) (let ((e-3 (cdr arg-7))) (if (null? e-2) (cons '() (CoreC-45Termination-n--9987-8275-u--mkArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3)) (let ((e-6 (unbox e-2))) (let ((e-9 (car e-6))) (let ((e-10 (cdr e-6))) (let ((sc3 (CoreC-45Termination-n--9987-8273-u--getPos arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-1 e-9))) (if (null? sc3) (cons '() (CoreC-45Termination-n--9987-8275-u--mkArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3)) (let ((e-4 (unbox sc3))) (cons (CoreC-45Termination-n--9987-8274-u--updateArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10 e-4) (CoreC-45Termination-n--9987-8275-u--mkArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3)))))))))))))) +(define CoreC-45Termination-n--7500-7243-u--matchArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((e-2 (car arg-5))) (let ((e-3 (cdr arg-5))) (let ((e-6 (car e-3))) (let ((e-7 (cdr e-3))) (let ((e-10 (car e-7))) (let ((e-11 (cdr e-7))) (let ((u--patMatch (DataC-45List-reverse (DataC-45List-u--zip_Zippable_List arg-1 (CoreC-45TT-getArgs e-10))))) (cons e-2 (cons e-6 (cons (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45Termination-n--7500-7242-u--updatePat arg-0 arg-1 arg-2 arg-3 arg-4 arg-0 e-2 u--patMatch eta-0)) arg-2) e-11)))))))))))) +(define CoreC-45Termination-n--8846-7250-u--lookupTm (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (if (null? arg-10) '() (case (vector-ref arg-9 0) ((5) (let ((e-13 (vector-ref arg-9 1))) (let ((e-14 (vector-ref arg-9 2))) (let ((e-16 (vector-ref arg-9 4))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Termination-n--8846-7250-u--lookupTm arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-16 arg-10) (lambda (u--tmC-39) (box (vector 5 e-13 e-14 u--tmC-39 (CoreC-45Termination-n--8846-7249-u--urhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-16)))))))))(else (let ((e-1 (car arg-10))) (let ((e-2 (cdr arg-10))) (let ((e-5 (car e-1))) (let ((e-6 (cdr e-1))) (case (vector-ref e-5 0) ((5) (let ((e-8 (vector-ref e-5 1))) (let ((e-9 (vector-ref e-5 2))) (let ((e-10 (vector-ref e-5 3))) (let ((e-11 (vector-ref e-5 4))) (let ((sc4 (CoreC-45TT-u--C-61C-61_Eq_C-40TermC-32C-36varsC-41 arg-9 e-10))) (cond ((equal? sc4 1) (box e-6)) (else (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Termination-n--8846-7250-u--lookupTm arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (cons (cons e-11 e-6) e-2)) (lambda (u--tmC-39) (box (vector 5 e-8 e-9 (CoreC-45Termination-n--8846-7249-u--urhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-10) u--tmC-39))))))))))))(else (let ((sc3 (CoreC-45TT-u--C-61C-61_Eq_C-40TermC-32C-36varsC-41 arg-9 e-5))) (cond ((equal? sc3 1) (box e-6)) (else (CoreC-45Termination-n--8846-7250-u--lookupTm arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-2))))))))))))))) +(define CoreC-45Termination-n--7480-6191-u--handleCase (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 ext-0) (case (vector-ref arg-7 0) ((1) (let ((e-1 (vector-ref arg-7 1))) (let ((e-3 (vector-ref arg-7 3))) (let ((act-24 (CoreC-45Context-toFullNames arg-6 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-0))))) e-3 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((sc2 (CoreC-45Termination-caseFn e-5))) (cond ((equal? sc2 1) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-4 (vector-ref eta-0 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref eta-0 1))) (vector 1 (box e-6)))))) (lambda (eta-0) (CoreC-45Termination-findSCcall arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 e-1 e-3 (+ 1 (+ 1 (+ 1 (+ 1 0)))) arg-8 eta-0)) ext-0)) (else (vector 1 '())))))))))))(else (vector 1 '()))))) +(define CoreC-45Termination-n--6509-5169-u--guardedNF (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (case (vector-ref arg-6 0) ((2) (vector 1 1)) ((1) (let ((e-8 (vector-ref arg-6 2))) (case (vector-ref e-8 0) ((1) (let ((e-12 (vector-ref e-8 2))) (let ((act-24 ((CoreC-45Context-lookupCtxtExact e-12 (let ((e-0 (vector-ref arg-4 0))) e-0)) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (if (null? e-5) (vector 1 0) (let ((e-1 (unbox e-5))) (vector 1 (PreludeC-45Types-elem (cons (lambda (arg-7) (lambda (arg-8) (CoreC-45Context-u--C-61C-61_Eq_DefFlag arg-7 arg-8))) (lambda (arg-7) (lambda (arg-8) (CoreC-45Context-u--C-47C-61_Eq_DefFlag arg-7 arg-8)))) (vector 8 ) (let ((e-22 (vector-ref e-1 11))) e-22)))))))))))(else (vector 1 0)))))(else (vector 1 0))))) +(define CoreC-45Termination-n--6509-5171-u--guarded (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-clearDefs e-5 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 ((CoreC-45Normalise-nf arg-2 arg-3 e-6 arg-4 arg-5) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (CoreC-45Termination-n--6509-5169-u--guardedNF arg-0 arg-1 arg-2 arg-3 e-5 arg-4 e-7 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (cond ((equal? e-8 1) (let ((act-28 ((CoreC-45Context-lookupCtxtExact arg-0 (let ((e-0 (vector-ref e-5 0))) e-0)) ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-28 1))) (if (null? e-9) (vector 1 0) (let ((e-1 (unbox e-9))) (CoreC-45Core-allM (lambda (eta-0) (lambda (eta-1) (CoreC-45Termination-n--6509-5170-u--checkNotFn arg-0 arg-1 arg-2 e-5 eta-0 eta-1))) (LibrariesC-45DataC-45NameMap-keys (CoreC-45Context-refersTo e-1)) ext-0)))))))) (else (vector 1 0))))))))))))))))))))) +(define CoreC-45Termination-n--9987-8277-u--getWorst (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (if (null? arg-8) arg-7 (let ((e-2 (car arg-8))) (let ((e-3 (cdr arg-8))) (case (vector-ref e-2 0) ((1) (CoreC-45Termination-n--9987-8277-u--getWorst arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-3)) ((0) (CoreC-45Termination-n--9987-8277-u--getWorst arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (vector 0 ) e-3))(else e-2))))))) +(define CoreC-45Termination-n--9987-8273-u--getPos (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9) (if (null? arg-8) '() (let ((e-2 (car arg-8))) (let ((e-3 (cdr arg-8))) (cond ((equal? arg-9 0) (box e-2))(else (let ((e-4 (- arg-9 1))) (CoreC-45Termination-n--9987-8273-u--getPos arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3 e-4))))))))) +(define CoreC-45Termination-n--7480-6086-u--findSCbinder (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (case (vector-ref arg-10 0) ((1) (let ((e-3 (vector-ref arg-10 3))) (CoreC-45Termination-findSC arg-1 arg-9 arg-8 arg-7 arg-6 arg-5 e-3)))(else (lambda (eta-0) (vector 1 '())))))) +(define CoreC-45Termination-n--11633-9787-u--dropParams (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (if (null? arg-10) '() (let ((e-2 (car arg-10))) (let ((e-3 (cdr arg-10))) (let ((sc1 (PreludeC-45Types-elem (cons (lambda (arg-11) (lambda (arg-12) (PreludeC-45Types-u--C-61C-61_Eq_Nat arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (PreludeC-45Types-u--C-47C-61_Eq_Nat arg-11 arg-12)))) arg-8 arg-9))) (cond ((equal? sc1 1) (CoreC-45Termination-n--11633-9787-u--dropParams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (+ 1 arg-8) arg-9 e-3)) (else (cons e-2 (CoreC-45Termination-n--11633-9787-u--dropParams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (+ 1 arg-8) arg-9 e-3)))))))))) +(define CoreC-45Termination-n--9987-8278-u--continue (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 ext-0) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (CoreC-45Termination-n--9987-8276-u--checkCall arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-8 eta-0 eta-1))) arg-7 '() ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (CoreC-45Termination-n--9987-8277-u--getWorst arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (vector 1 ) e-5)))))))) +(define CoreC-45Termination-n--7480-6192-u--conIfGuarded (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (case (vector-ref arg-7 0) ((1) (let ((e-1 (vector-ref arg-7 1))) (let ((e-2 (vector-ref arg-7 2))) (let ((e-3 (vector-ref arg-7 3))) (case (vector-ref e-2 0) ((1) (let ((act-24 (let ((act-24 (unbox arg-6))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact e-3 (let ((e-0 (vector-ref e-5 0))) e-0)) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref act-25 1))) (if (null? e-6) (vector 1 (vector 1 e-1 (vector 1 ) e-3)) (let ((e-4 (unbox e-6))) (let ((sc5 (PreludeC-45Types-elem (cons (lambda (arg-8) (lambda (arg-9) (CoreC-45Context-u--C-61C-61_Eq_DefFlag arg-8 arg-9))) (lambda (arg-8) (lambda (arg-9) (CoreC-45Context-u--C-47C-61_Eq_DefFlag arg-8 arg-9)))) (vector 8 ) (let ((e-11 (vector-ref e-4 11))) e-11)))) (cond ((equal? sc5 1) (vector 1 (vector 1 e-1 (vector 2 0 0) e-3))) (else (vector 1 (vector 1 e-1 (vector 1 ) e-3))))))))))))))))(else (vector 1 arg-7)))))))(else (vector 1 arg-7))))) +(define CoreC-45Termination-n--6509-5170-u--checkNotFn (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 ((CoreC-45Context-lookupCtxtExact arg-4 (let ((e-0 (vector-ref arg-3 0))) e-0)) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (if (null? e-5) (vector 1 0) (let ((e-1 (unbox e-5))) (let ((e-17 (vector-ref e-1 17))) (case (vector-ref e-17 0) ((5) (vector 1 1))(else (vector 1 (let ((sc2 (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega (let ((e-36 (vector-ref e-1 7))) e-36) (AlgebraC-45Semiring-erased (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)))))) (cond ((equal? sc2 1) 1) (else (PreludeC-45Types-elem (cons (lambda (arg-5) (lambda (arg-6) (CoreC-45Context-u--C-61C-61_Eq_DefFlag arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (CoreC-45Context-u--C-47C-61_Eq_DefFlag arg-5 arg-6)))) (vector 8 ) (let ((e-32 (vector-ref e-1 11))) e-32))))))))))))))))) +(define CoreC-45Termination-n--9987-8272-u--checkDesc (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (if (null? arg-7) (vector 2 (vector 2 (DataC-45List-reverse (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-fst eta-0)) arg-8)))) (let ((e-2 (car arg-7))) (let ((e-3 (cdr arg-7))) (cond ((equal? e-2 0) (vector 1 ))(else (CoreC-45Termination-n--9987-8272-u--checkDesc arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3 arg-8)))))))) +(define CoreC-45Termination-n--9987-8276-u--checkCall (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 ext-0) (let ((act-24 ((CoreC-45Context-lookupCtxtExact (let ((e-0 (car arg-8))) e-0) (let ((e-0 (vector-ref arg-3 0))) e-0)) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (if (null? e-5) (vector 1 (vector 1 )) (let ((e-1 (unbox e-5))) (let ((e-10 (vector-ref e-1 10))) (let ((e-24 (car e-10))) (case (vector-ref e-24 0) ((0) (let ((act-25 (let ((act-25 (CoreC-45Context-toFullNames arg-5 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-0))))) (let ((e-26 (car arg-8))) e-26) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-25 (vector-ref act-25 1))) (vector 0 e-25))) (else (let ((e-25 (vector-ref act-25 1))) (CoreC-45ContextC-45Log-log arg-5 "totality.termination.sizechange.checkCall" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "CheckCall Size Change Graph: " (CoreC-45Name-u--show_Show_Name e-25))) ext-0))))))) (case (vector-ref act-25 0) ((0) (let ((e-25 (vector-ref act-25 1))) (vector 0 e-25))) (else (let ((act-26 (CoreC-45Termination-checkSC arg-6 arg-5 arg-4 arg-3 (let ((e-27 (car arg-8))) e-27) (CoreC-45Termination-n--9987-8275-u--mkArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (let ((e-26 (cdr arg-8))) e-26)) arg-7 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-26 (vector-ref act-26 1))) (vector 0 e-26))) (else (let ((e-26 (vector-ref act-26 1))) (let ((u--inpath (PreludeC-45Types-elem (cons (lambda (arg-9) (lambda (arg-10) (CoreC-45Name-u--C-61C-61_Eq_Name arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (CoreC-45Name-u--C-47C-61_Eq_Name arg-9 arg-10)))) (let ((e-28 (car arg-8))) e-28) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-fst eta-0)) arg-7)))) (cond ((equal? u--inpath 1) (let ((act-27 (let ((act-27 (CoreC-45Context-toFullNames arg-5 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-0))))) (let ((e-28 (car arg-8))) e-28) ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-27 (vector-ref act-27 1))) (vector 0 e-27))) (else (let ((e-27 (vector-ref act-27 1))) (CoreC-45ContextC-45Log-log arg-5 "totality.termination.sizechange.checkCall.inPath" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Have Result: " (CoreC-45Name-u--show_Show_Name e-27))) ext-0))))))) (case (vector-ref act-27 0) ((0) (let ((e-27 (vector-ref act-27 1))) (vector 0 e-27))) (else (vector 1 e-26))))) (else (case (vector-ref e-26 0) ((2) (let ((e-27 (vector-ref e-26 1))) (case (vector-ref e-27 0) ((2) (let ((act-27 (let ((act-27 (CoreC-45Context-toFullNames arg-5 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-0))))) (let ((e-30 (car arg-8))) e-30) ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-29 (vector-ref act-27 1))) (vector 0 e-29))) (else (let ((e-29 (vector-ref act-27 1))) (CoreC-45ContextC-45Log-log arg-5 "totality.termination.sizechange.checkCall.inPathNot.restart" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "ReChecking Size Change Graph: " (CoreC-45Name-u--show_Show_Name e-29))) ext-0))))))) (case (vector-ref act-27 0) ((0) (let ((e-29 (vector-ref act-27 1))) (vector 0 e-29))) (else (let ((act-28 ((CoreC-45Termination-initArgs arg-6 (PreludeC-45TypesC-45List-length (let ((e-30 (cdr arg-8))) e-30))) ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-30 (vector-ref act-28 1))) (vector 0 e-30))) (else (let ((e-30 (vector-ref act-28 1))) (let ((act-29 (CoreC-45Termination-checkSC arg-6 arg-5 arg-4 arg-3 (let ((e-32 (car arg-8))) e-32) e-30 arg-7 ext-0))) (case (vector-ref act-29 0) ((0) (let ((e-31 (vector-ref act-29 1))) (vector 0 e-31))) (else (let ((e-31 (vector-ref act-29 1))) (let ((act-30 (CoreC-45Context-setTerminating arg-5 (CoreC-45FC-emptyFC) (let ((e-33 (car arg-8))) e-33) e-31 ext-0))) (case (vector-ref act-30 0) ((0) (let ((e-32 (vector-ref act-30 1))) (vector 0 e-32))) (else (vector 1 e-31))))))))))))))))(else (let ((act-27 (let ((act-27 (CoreC-45Context-toFullNames arg-5 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-0))))) (let ((e-29 (car arg-8))) e-29) ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-28 (vector-ref act-27 1))) (vector 0 e-28))) (else (let ((e-28 (vector-ref act-27 1))) (CoreC-45ContextC-45Log-log arg-5 "totality.termination.sizechange.checkCall.inPathNot.return" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Have result: " (CoreC-45Name-u--show_Show_Name e-28))) ext-0))))))) (case (vector-ref act-27 0) ((0) (let ((e-28 (vector-ref act-27 1))) (vector 0 e-28))) (else (vector 1 e-26))))))))(else (let ((act-27 (let ((act-27 (CoreC-45Context-toFullNames arg-5 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-0))))) (let ((e-28 (car arg-8))) e-28) ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-27 (vector-ref act-27 1))) (vector 0 e-27))) (else (let ((e-27 (vector-ref act-27 1))) (CoreC-45ContextC-45Log-log arg-5 "totality.termination.sizechange.checkCall.inPathNot.return" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Have result: " (CoreC-45Name-u--show_Show_Name e-27))) ext-0))))))) (case (vector-ref act-27 0) ((0) (let ((e-27 (vector-ref act-27 1))) (vector 0 e-27))) (else (vector 1 e-26))))))))))))))))) ((1) (vector 1 (vector 1 )))(else (vector 1 (vector 2 (vector 1 (cons (let ((e-26 (car arg-8))) e-26) '())))))))))))))))) +(define CoreC-45Termination-n--6509-5172-u--allGuarded (lambda (arg-0 arg-1 arg-2 arg-3) (if (null? arg-3) (lambda (eta-0) (vector 1 1)) (let ((e-2 (car arg-3))) (let ((e-3 (cdr arg-3))) (let ((e-6 (car e-2))) (let ((e-7 (cdr e-2))) (lambda (clam-0) (let ((e-10 (car e-7))) (let ((e-11 (cdr e-7))) (let ((e-15 (cdr e-11))) (let ((act-24 (CoreC-45Termination-n--6509-5171-u--guarded arg-0 arg-1 arg-2 e-6 e-10 e-15 clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (cond ((equal? e-5 1) ((CoreC-45Termination-n--6509-5172-u--allGuarded arg-0 arg-1 arg-2 e-3) clam-0)) (else (vector 1 0)))))))))))))))))) +(define CoreC-45Termination-n--10999-9192-u--addCasesC-39 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (if (null? arg-5) (lambda (eta-0) (vector 1 (LibrariesC-45DataC-45NameMap-keys arg-4))) (let ((e-2 (car arg-5))) (let ((e-3 (cdr arg-5))) (let ((sc1 (LibrariesC-45DataC-45NameMap-lookup e-2 arg-4))) (if (null? sc1) (lambda (eta-0) (let ((act-24 (CoreC-45Context-getFullName arg-2 e-2 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((sc3 (CoreC-45Termination-caseFn e-5))) (cond ((equal? sc3 1) (let ((act-25 ((CoreC-45Context-lookupCtxtExact e-2 (let ((e-0 (vector-ref arg-3 0))) e-0)) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref act-25 1))) (if (null? e-6) ((CoreC-45Termination-n--10999-9192-u--addCasesC-39 arg-0 arg-1 arg-2 arg-3 (LibrariesC-45DataC-45NameMap-insert e-2 0 arg-4) e-3) eta-0) (let ((e-1 (unbox e-6))) ((CoreC-45Termination-n--10999-9192-u--addCasesC-39 arg-0 arg-1 arg-2 arg-3 (LibrariesC-45DataC-45NameMap-insert e-2 0 arg-4) (PreludeC-45TypesC-45List-C-43C-43 (LibrariesC-45DataC-45NameMap-keys (CoreC-45Context-refersTo e-1)) e-3)) eta-0)))))))) (else ((CoreC-45Termination-n--10999-9192-u--addCasesC-39 arg-0 arg-1 arg-2 arg-3 (LibrariesC-45DataC-45NameMap-insert e-2 0 arg-4) e-3) eta-0))))))))) (CoreC-45Termination-n--10999-9192-u--addCasesC-39 arg-0 arg-1 arg-2 arg-3 arg-4 e-3)))))))) +(define CoreC-45Termination-n--10999-9193-u--addCases (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (CoreC-45Termination-n--10999-9192-u--addCasesC-39 arg-0 arg-1 arg-2 arg-3 (LibrariesC-45DataC-45NameMap-empty) arg-4))) (define CoreC-45Termination-totRefsIn (lambda (arg-1 arg-2 arg-3 ext-0) (CoreC-45Termination-totRefs arg-1 arg-2 (LibrariesC-45DataC-45NameMap-keys (CoreC-45TT-getRefs (vector 9 -1) arg-3)) ext-0))) -(define CoreC-45Termination-totRefs (lambda (arg-0 arg-1 arg-2 ext-0) (let ((sc0 arg-2)) (if (null? sc0) (vector 1 (vector 1 )) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((act-24 (CoreC-45Termination-totRefs arg-0 arg-1 e-3 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact e-2 (let ((sc2 arg-1)) (let ((e-0 (vector-ref sc2 1))) e-0))) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((_-0 (vector 1 e-1))) ((CoreC-45Termination-case--caseC-32blockC-32inC-32totRefs-768 e-2 e-3 arg-1 arg-0 e-5 e-1 _-0 (let ((sc4 e-1)) (let ((e-10 (vector-ref sc4 11))) (let ((sc5 e-10)) (let ((e-27 (car sc5))) e-27))))) ext-0)))) (else (vector 1 e-5)))))))))))))))))))) -(define CoreC-45Termination-smallerArg (lambda (arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((5) (let ((e-4 (vector-ref sc0 4))) (CoreC-45Termination-smallerArg arg-1 arg-2 arg-3 e-4 arg-5)))(else (PreludeC-45Basics-C-124C-124 (CoreC-45Termination-assertedSmaller arg-3 arg-5) (CoreC-45Termination-case--smallerArg-2718 arg-5 arg-4 arg-3 arg-2 arg-1 (CoreC-45TT-getFnArgs arg-5)))))))) -(define CoreC-45Termination-smaller (lambda (arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((10) 1) ((5) (let ((e-6 (vector-ref sc0 3))) (let ((e-7 (vector-ref sc0 4))) (PreludeC-45Basics-C-124C-124 (CoreC-45Termination-smaller arg-1 arg-2 arg-3 arg-4 e-6) (lambda () (CoreC-45Termination-smaller arg-1 arg-2 arg-3 arg-4 e-7))))))(else (let ((sc0 arg-1)) (cond ((equal? sc0 0) (PreludeC-45Basics-C-124C-124 (CoreC-45TT-u--C-61C-61_Eq_C-40TermC-32C-36varsC-41 arg-4 arg-5) (lambda () (CoreC-45Termination-smallerArg 0 arg-2 arg-3 arg-4 arg-5))))(else (CoreC-45Termination-smallerArg arg-1 arg-2 arg-3 arg-4 arg-5))))))))) -(define CoreC-45Termination-scEq (lambda (arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-79 (vector-ref sc0 3))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((0) (let ((e-94 (vector-ref sc1 3))) (PreludeC-45Types-u--C-61C-61_Eq_Nat e-79 e-94)))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((2) 0)(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((3) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((3) 1)(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((5) (let ((e-46 (vector-ref sc2 4))) (CoreC-45Termination-scEq arg-1 e-46)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((6) (let ((e-3 (vector-ref sc2 3))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((6) (let ((e-24 (vector-ref sc3 3))) (CoreC-45Termination-scEq e-3 e-24)))(else 1))))) ((7) (let ((e-7 (vector-ref sc2 3))) (let ((e-8 (vector-ref sc2 4))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((7) (let ((e-28 (vector-ref sc3 3))) (let ((e-29 (vector-ref sc3 4))) (PreludeC-45Basics-C-38C-38 (CoreC-45Termination-scEq e-7 e-28) (lambda () (CoreC-45Termination-scEq e-8 e-29))))))(else 1)))))) ((8) (let ((e-12 (vector-ref sc2 3))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((8) (let ((e-33 (vector-ref sc3 3))) (CoreC-45Termination-scEq e-12 e-33)))(else 1))))) ((9) (let ((e-15 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((9) (let ((e-36 (vector-ref sc3 2))) (CoreC-45TT-u--C-61C-61_Eq_Constant e-15 e-36)))(else 1))))) ((10) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((10) 0)(else 1)))) ((11) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((11) 0)(else 1))))(else 1)))))))))) ((4) (let ((e-54 (vector-ref sc1 2))) (let ((e-55 (vector-ref sc1 3))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((4) (let ((e-68 (vector-ref sc2 2))) (let ((e-69 (vector-ref sc2 3))) (PreludeC-45Basics-C-38C-38 (CoreC-45Termination-scEq e-54 e-68) (lambda () (CoreC-45Termination-scEq e-55 e-69))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((5) (let ((e-46 (vector-ref sc2 4))) (CoreC-45Termination-scEq arg-1 e-46)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((6) (let ((e-3 (vector-ref sc2 3))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((6) (let ((e-24 (vector-ref sc3 3))) (CoreC-45Termination-scEq e-3 e-24)))(else 1))))) ((7) (let ((e-7 (vector-ref sc2 3))) (let ((e-8 (vector-ref sc2 4))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((7) (let ((e-28 (vector-ref sc3 3))) (let ((e-29 (vector-ref sc3 4))) (PreludeC-45Basics-C-38C-38 (CoreC-45Termination-scEq e-7 e-28) (lambda () (CoreC-45Termination-scEq e-8 e-29))))))(else 1)))))) ((8) (let ((e-12 (vector-ref sc2 3))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((8) (let ((e-33 (vector-ref sc3 3))) (CoreC-45Termination-scEq e-12 e-33)))(else 1))))) ((9) (let ((e-15 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((9) (let ((e-36 (vector-ref sc3 2))) (CoreC-45TT-u--C-61C-61_Eq_Constant e-15 e-36)))(else 1))))) ((10) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((10) 0)(else 1)))) ((11) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((11) 0)(else 1))))(else 1)))))))))))) ((5) (let ((e-60 (vector-ref sc1 4))) (CoreC-45Termination-scEq e-60 arg-2)))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((5) (let ((e-46 (vector-ref sc1 4))) (CoreC-45Termination-scEq arg-1 e-46)))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((6) (let ((e-3 (vector-ref sc1 3))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((6) (let ((e-24 (vector-ref sc2 3))) (CoreC-45Termination-scEq e-3 e-24)))(else 1))))) ((7) (let ((e-7 (vector-ref sc1 3))) (let ((e-8 (vector-ref sc1 4))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((7) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (PreludeC-45Basics-C-38C-38 (CoreC-45Termination-scEq e-7 e-28) (lambda () (CoreC-45Termination-scEq e-8 e-29))))))(else 1)))))) ((8) (let ((e-12 (vector-ref sc1 3))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((8) (let ((e-33 (vector-ref sc2 3))) (CoreC-45Termination-scEq e-12 e-33)))(else 1))))) ((9) (let ((e-15 (vector-ref sc1 2))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((9) (let ((e-36 (vector-ref sc2 2))) (CoreC-45TT-u--C-61C-61_Eq_Constant e-15 e-36)))(else 1))))) ((10) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((10) 0)(else 1)))) ((11) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((11) 0)(else 1))))(else 1))))))))))))))))) ((1) (let ((e-84 (vector-ref sc0 3))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((1) (let ((e-99 (vector-ref sc1 3))) (CoreC-45Name-u--C-61C-61_Eq_Name e-84 e-99)))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((2) 0)(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((3) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((3) 1)(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((5) (let ((e-46 (vector-ref sc2 4))) (CoreC-45Termination-scEq arg-1 e-46)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((6) (let ((e-3 (vector-ref sc2 3))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((6) (let ((e-24 (vector-ref sc3 3))) (CoreC-45Termination-scEq e-3 e-24)))(else 1))))) ((7) (let ((e-7 (vector-ref sc2 3))) (let ((e-8 (vector-ref sc2 4))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((7) (let ((e-28 (vector-ref sc3 3))) (let ((e-29 (vector-ref sc3 4))) (PreludeC-45Basics-C-38C-38 (CoreC-45Termination-scEq e-7 e-28) (lambda () (CoreC-45Termination-scEq e-8 e-29))))))(else 1)))))) ((8) (let ((e-12 (vector-ref sc2 3))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((8) (let ((e-33 (vector-ref sc3 3))) (CoreC-45Termination-scEq e-12 e-33)))(else 1))))) ((9) (let ((e-15 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((9) (let ((e-36 (vector-ref sc3 2))) (CoreC-45TT-u--C-61C-61_Eq_Constant e-15 e-36)))(else 1))))) ((10) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((10) 0)(else 1)))) ((11) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((11) 0)(else 1))))(else 1)))))))))) ((4) (let ((e-54 (vector-ref sc1 2))) (let ((e-55 (vector-ref sc1 3))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((4) (let ((e-68 (vector-ref sc2 2))) (let ((e-69 (vector-ref sc2 3))) (PreludeC-45Basics-C-38C-38 (CoreC-45Termination-scEq e-54 e-68) (lambda () (CoreC-45Termination-scEq e-55 e-69))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((5) (let ((e-46 (vector-ref sc2 4))) (CoreC-45Termination-scEq arg-1 e-46)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((6) (let ((e-3 (vector-ref sc2 3))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((6) (let ((e-24 (vector-ref sc3 3))) (CoreC-45Termination-scEq e-3 e-24)))(else 1))))) ((7) (let ((e-7 (vector-ref sc2 3))) (let ((e-8 (vector-ref sc2 4))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((7) (let ((e-28 (vector-ref sc3 3))) (let ((e-29 (vector-ref sc3 4))) (PreludeC-45Basics-C-38C-38 (CoreC-45Termination-scEq e-7 e-28) (lambda () (CoreC-45Termination-scEq e-8 e-29))))))(else 1)))))) ((8) (let ((e-12 (vector-ref sc2 3))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((8) (let ((e-33 (vector-ref sc3 3))) (CoreC-45Termination-scEq e-12 e-33)))(else 1))))) ((9) (let ((e-15 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((9) (let ((e-36 (vector-ref sc3 2))) (CoreC-45TT-u--C-61C-61_Eq_Constant e-15 e-36)))(else 1))))) ((10) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((10) 0)(else 1)))) ((11) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((11) 0)(else 1))))(else 1)))))))))))) ((5) (let ((e-60 (vector-ref sc1 4))) (CoreC-45Termination-scEq e-60 arg-2)))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((5) (let ((e-46 (vector-ref sc1 4))) (CoreC-45Termination-scEq arg-1 e-46)))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((6) (let ((e-3 (vector-ref sc1 3))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((6) (let ((e-24 (vector-ref sc2 3))) (CoreC-45Termination-scEq e-3 e-24)))(else 1))))) ((7) (let ((e-7 (vector-ref sc1 3))) (let ((e-8 (vector-ref sc1 4))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((7) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (PreludeC-45Basics-C-38C-38 (CoreC-45Termination-scEq e-7 e-28) (lambda () (CoreC-45Termination-scEq e-8 e-29))))))(else 1)))))) ((8) (let ((e-12 (vector-ref sc1 3))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((8) (let ((e-33 (vector-ref sc2 3))) (CoreC-45Termination-scEq e-12 e-33)))(else 1))))) ((9) (let ((e-15 (vector-ref sc1 2))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((9) (let ((e-36 (vector-ref sc2 2))) (CoreC-45TT-u--C-61C-61_Eq_Constant e-15 e-36)))(else 1))))) ((10) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((10) 0)(else 1)))) ((11) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((11) 0)(else 1))))(else 1))))))))))))))))) ((2) 0)(else (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((2) 0)(else (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((3) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((3) 1)(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((5) (let ((e-46 (vector-ref sc1 4))) (CoreC-45Termination-scEq arg-1 e-46)))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((6) (let ((e-3 (vector-ref sc1 3))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((6) (let ((e-24 (vector-ref sc2 3))) (CoreC-45Termination-scEq e-3 e-24)))(else 1))))) ((7) (let ((e-7 (vector-ref sc1 3))) (let ((e-8 (vector-ref sc1 4))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((7) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (PreludeC-45Basics-C-38C-38 (CoreC-45Termination-scEq e-7 e-28) (lambda () (CoreC-45Termination-scEq e-8 e-29))))))(else 1)))))) ((8) (let ((e-12 (vector-ref sc1 3))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((8) (let ((e-33 (vector-ref sc2 3))) (CoreC-45Termination-scEq e-12 e-33)))(else 1))))) ((9) (let ((e-15 (vector-ref sc1 2))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((9) (let ((e-36 (vector-ref sc2 2))) (CoreC-45TT-u--C-61C-61_Eq_Constant e-15 e-36)))(else 1))))) ((10) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((10) 0)(else 1)))) ((11) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((11) 0)(else 1))))(else 1)))))))))) ((4) (let ((e-54 (vector-ref sc0 2))) (let ((e-55 (vector-ref sc0 3))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((4) (let ((e-68 (vector-ref sc1 2))) (let ((e-69 (vector-ref sc1 3))) (PreludeC-45Basics-C-38C-38 (CoreC-45Termination-scEq e-54 e-68) (lambda () (CoreC-45Termination-scEq e-55 e-69))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((5) (let ((e-46 (vector-ref sc1 4))) (CoreC-45Termination-scEq arg-1 e-46)))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((6) (let ((e-3 (vector-ref sc1 3))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((6) (let ((e-24 (vector-ref sc2 3))) (CoreC-45Termination-scEq e-3 e-24)))(else 1))))) ((7) (let ((e-7 (vector-ref sc1 3))) (let ((e-8 (vector-ref sc1 4))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((7) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (PreludeC-45Basics-C-38C-38 (CoreC-45Termination-scEq e-7 e-28) (lambda () (CoreC-45Termination-scEq e-8 e-29))))))(else 1)))))) ((8) (let ((e-12 (vector-ref sc1 3))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((8) (let ((e-33 (vector-ref sc2 3))) (CoreC-45Termination-scEq e-12 e-33)))(else 1))))) ((9) (let ((e-15 (vector-ref sc1 2))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((9) (let ((e-36 (vector-ref sc2 2))) (CoreC-45TT-u--C-61C-61_Eq_Constant e-15 e-36)))(else 1))))) ((10) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((10) 0)(else 1)))) ((11) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((11) 0)(else 1))))(else 1)))))))))))) ((5) (let ((e-60 (vector-ref sc0 4))) (CoreC-45Termination-scEq e-60 arg-2)))(else (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((5) (let ((e-46 (vector-ref sc0 4))) (CoreC-45Termination-scEq arg-1 e-46)))(else (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((6) (let ((e-3 (vector-ref sc0 3))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((6) (let ((e-24 (vector-ref sc1 3))) (CoreC-45Termination-scEq e-3 e-24)))(else 1))))) ((7) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((7) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (PreludeC-45Basics-C-38C-38 (CoreC-45Termination-scEq e-7 e-28) (lambda () (CoreC-45Termination-scEq e-8 e-29))))))(else 1)))))) ((8) (let ((e-12 (vector-ref sc0 3))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((8) (let ((e-33 (vector-ref sc1 3))) (CoreC-45Termination-scEq e-12 e-33)))(else 1))))) ((9) (let ((e-15 (vector-ref sc0 2))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((9) (let ((e-36 (vector-ref sc1 2))) (CoreC-45TT-u--C-61C-61_Eq_Constant e-15 e-36)))(else 1))))) ((10) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((10) 0)(else 1)))) ((11) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((11) 0)(else 1))))(else 1))))))))))))))))) -(define CoreC-45Termination-posArg (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((act-24 (CoreC-45Context-lookupDefExact e-2 (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((u--testargs (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((6) (let ((e-13 (vector-ref sc3 3))) (CoreC-45Termination-n--13742-5311-u--dropParams e-1 e-3 e-4 e-5 e-2 arg-2 arg-1 arg-0 0 e-13 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5))))(else (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5))))))(else (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)))))) (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() arg-1 eta-0)) u--testargs '() ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-26 (CoreC-45Core-anyM (lambda (eta-0) (CoreC-45Termination-nameIn arg-0 arg-1 arg-2 eta-0)) e-7 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-8 (vector-ref sc3 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (cond ((equal? sc4 0) (vector 1 (vector 2 (vector 0 )))) (else (vector 1 (vector 1 ))))))))))))))))))))))))))) ((0) (let ((e-7 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 3))) (let ((e-10 (vector-ref sc0 4))) (let ((sc1 e-9)) (case (vector-ref sc1 0) ((2) (let ((e-15 (vector-ref sc1 4))) (let ((act-24 ((CoreC-45Termination-nameIn arg-0 arg-1 arg-2 e-15) ext-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (cond ((equal? sc3 0) (vector 1 (vector 2 (vector 0 )))) (else (let ((act-25 (((e-10 arg-1) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 e-7 1))) ext-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (CoreC-45Termination-posArg arg-0 arg-1 arg-2 e-6 ext-0))))))))))))))))(else (vector 1 (vector 1 )))))))))(else (vector 1 (vector 1 ))))))) +(define CoreC-45Termination-totRefs (lambda (arg-0 arg-1 arg-2 ext-0) (if (null? arg-2) (vector 1 (vector 1 )) (let ((e-2 (car arg-2))) (let ((e-3 (cdr arg-2))) (let ((act-24 (CoreC-45Termination-totRefs arg-0 arg-1 e-3 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact e-2 (let ((e-0 (vector-ref arg-1 0))) e-0)) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref act-25 1))) (if (null? e-6) (vector 1 e-5) (let ((e-1 (unbox e-6))) (let ((_-0 (box e-1))) ((CoreC-45Termination-case--caseC-32blockC-32inC-32totRefs-5010 e-2 e-3 arg-1 arg-0 e-5 e-1 _-0 (let ((e-10 (vector-ref e-1 10))) (let ((e-27 (car e-10))) e-27))) ext-0))))))))))))))))) +(define CoreC-45Termination-smallerArg (lambda (arg-1 arg-2 arg-3 arg-4 arg-5) (case (vector-ref arg-4 0) ((5) (let ((e-4 (vector-ref arg-4 4))) (CoreC-45Termination-smallerArg arg-1 arg-2 arg-3 e-4 arg-5)))(else (let ((sc0 (CoreC-45Termination-assertedSmaller arg-3 arg-5))) (cond ((equal? sc0 1) 1) (else ((CoreC-45Termination-case--smallerArg-6986 arg-5 arg-4 arg-3 arg-2 arg-1 (CoreC-45TT-getFnArgs arg-5)))))))))) +(define CoreC-45Termination-smaller (lambda (arg-1 arg-2 arg-3 arg-4 arg-5) (case (vector-ref arg-5 0) ((10) 0) ((5) (let ((e-6 (vector-ref arg-5 3))) (let ((e-7 (vector-ref arg-5 4))) (let ((sc1 (CoreC-45Termination-smaller arg-1 arg-2 arg-3 arg-4 e-6))) (cond ((equal? sc1 1) 1) (else (CoreC-45Termination-smaller arg-1 arg-2 arg-3 arg-4 e-7)))))))(else (cond ((equal? arg-1 1) (let ((sc1 (CoreC-45TT-u--C-61C-61_Eq_C-40TermC-32C-36varsC-41 arg-4 arg-5))) (cond ((equal? sc1 1) 1) (else (CoreC-45Termination-smallerArg 1 arg-2 arg-3 arg-4 arg-5)))))(else (CoreC-45Termination-smallerArg arg-1 arg-2 arg-3 arg-4 arg-5))))))) +(define CoreC-45Termination-scEq (lambda (arg-1 arg-2) (case (vector-ref arg-1 0) ((0) (let ((e-79 (vector-ref arg-1 3))) (case (vector-ref arg-2 0) ((0) (let ((e-94 (vector-ref arg-2 3))) (PreludeC-45Types-u--C-61C-61_Eq_Nat e-79 e-94)))(else (case (vector-ref arg-2 0) ((2) 1)(else (case (vector-ref arg-1 0) ((3) (case (vector-ref arg-2 0) ((3) 0)(else (case (vector-ref arg-2 0) ((5) (let ((e-46 (vector-ref arg-2 4))) (CoreC-45Termination-scEq arg-1 e-46)))(else (case (vector-ref arg-1 0) ((6) (let ((e-3 (vector-ref arg-1 3))) (case (vector-ref arg-2 0) ((6) (let ((e-24 (vector-ref arg-2 3))) (CoreC-45Termination-scEq e-3 e-24)))(else 0)))) ((7) (let ((e-7 (vector-ref arg-1 3))) (let ((e-8 (vector-ref arg-1 4))) (case (vector-ref arg-2 0) ((7) (let ((e-28 (vector-ref arg-2 3))) (let ((e-29 (vector-ref arg-2 4))) (let ((sc4 (CoreC-45Termination-scEq e-7 e-28))) (cond ((equal? sc4 1) (CoreC-45Termination-scEq e-8 e-29)) (else 0))))))(else 0))))) ((8) (let ((e-12 (vector-ref arg-1 3))) (case (vector-ref arg-2 0) ((8) (let ((e-33 (vector-ref arg-2 3))) (CoreC-45Termination-scEq e-12 e-33)))(else 0)))) ((9) (let ((e-15 (vector-ref arg-1 2))) (case (vector-ref arg-2 0) ((9) (let ((e-36 (vector-ref arg-2 2))) (CoreC-45TT-u--C-61C-61_Eq_Constant e-15 e-36)))(else 0)))) ((10) (case (vector-ref arg-2 0) ((10) 1)(else 0))) ((11) (case (vector-ref arg-2 0) ((11) 1)(else 0)))(else 0))))))) ((4) (let ((e-54 (vector-ref arg-1 2))) (let ((e-55 (vector-ref arg-1 3))) (case (vector-ref arg-2 0) ((4) (let ((e-68 (vector-ref arg-2 2))) (let ((e-69 (vector-ref arg-2 3))) (let ((sc3 (CoreC-45Termination-scEq e-54 e-68))) (cond ((equal? sc3 1) (CoreC-45Termination-scEq e-55 e-69)) (else 0))))))(else (case (vector-ref arg-2 0) ((5) (let ((e-46 (vector-ref arg-2 4))) (CoreC-45Termination-scEq arg-1 e-46)))(else (case (vector-ref arg-1 0) ((6) (let ((e-3 (vector-ref arg-1 3))) (case (vector-ref arg-2 0) ((6) (let ((e-24 (vector-ref arg-2 3))) (CoreC-45Termination-scEq e-3 e-24)))(else 0)))) ((7) (let ((e-7 (vector-ref arg-1 3))) (let ((e-8 (vector-ref arg-1 4))) (case (vector-ref arg-2 0) ((7) (let ((e-28 (vector-ref arg-2 3))) (let ((e-29 (vector-ref arg-2 4))) (let ((sc4 (CoreC-45Termination-scEq e-7 e-28))) (cond ((equal? sc4 1) (CoreC-45Termination-scEq e-8 e-29)) (else 0))))))(else 0))))) ((8) (let ((e-12 (vector-ref arg-1 3))) (case (vector-ref arg-2 0) ((8) (let ((e-33 (vector-ref arg-2 3))) (CoreC-45Termination-scEq e-12 e-33)))(else 0)))) ((9) (let ((e-15 (vector-ref arg-1 2))) (case (vector-ref arg-2 0) ((9) (let ((e-36 (vector-ref arg-2 2))) (CoreC-45TT-u--C-61C-61_Eq_Constant e-15 e-36)))(else 0)))) ((10) (case (vector-ref arg-2 0) ((10) 1)(else 0))) ((11) (case (vector-ref arg-2 0) ((11) 1)(else 0)))(else 0))))))))) ((5) (let ((e-60 (vector-ref arg-1 4))) (CoreC-45Termination-scEq e-60 arg-2)))(else (case (vector-ref arg-2 0) ((5) (let ((e-46 (vector-ref arg-2 4))) (CoreC-45Termination-scEq arg-1 e-46)))(else (case (vector-ref arg-1 0) ((6) (let ((e-3 (vector-ref arg-1 3))) (case (vector-ref arg-2 0) ((6) (let ((e-24 (vector-ref arg-2 3))) (CoreC-45Termination-scEq e-3 e-24)))(else 0)))) ((7) (let ((e-7 (vector-ref arg-1 3))) (let ((e-8 (vector-ref arg-1 4))) (case (vector-ref arg-2 0) ((7) (let ((e-28 (vector-ref arg-2 3))) (let ((e-29 (vector-ref arg-2 4))) (let ((sc3 (CoreC-45Termination-scEq e-7 e-28))) (cond ((equal? sc3 1) (CoreC-45Termination-scEq e-8 e-29)) (else 0))))))(else 0))))) ((8) (let ((e-12 (vector-ref arg-1 3))) (case (vector-ref arg-2 0) ((8) (let ((e-33 (vector-ref arg-2 3))) (CoreC-45Termination-scEq e-12 e-33)))(else 0)))) ((9) (let ((e-15 (vector-ref arg-1 2))) (case (vector-ref arg-2 0) ((9) (let ((e-36 (vector-ref arg-2 2))) (CoreC-45TT-u--C-61C-61_Eq_Constant e-15 e-36)))(else 0)))) ((10) (case (vector-ref arg-2 0) ((10) 1)(else 0))) ((11) (case (vector-ref arg-2 0) ((11) 1)(else 0)))(else 0)))))))))))) ((1) (let ((e-84 (vector-ref arg-1 3))) (case (vector-ref arg-2 0) ((1) (let ((e-99 (vector-ref arg-2 3))) (CoreC-45Name-u--C-61C-61_Eq_Name e-84 e-99)))(else (case (vector-ref arg-2 0) ((2) 1)(else (case (vector-ref arg-1 0) ((3) (case (vector-ref arg-2 0) ((3) 0)(else (case (vector-ref arg-2 0) ((5) (let ((e-46 (vector-ref arg-2 4))) (CoreC-45Termination-scEq arg-1 e-46)))(else (case (vector-ref arg-1 0) ((6) (let ((e-3 (vector-ref arg-1 3))) (case (vector-ref arg-2 0) ((6) (let ((e-24 (vector-ref arg-2 3))) (CoreC-45Termination-scEq e-3 e-24)))(else 0)))) ((7) (let ((e-7 (vector-ref arg-1 3))) (let ((e-8 (vector-ref arg-1 4))) (case (vector-ref arg-2 0) ((7) (let ((e-28 (vector-ref arg-2 3))) (let ((e-29 (vector-ref arg-2 4))) (let ((sc4 (CoreC-45Termination-scEq e-7 e-28))) (cond ((equal? sc4 1) (CoreC-45Termination-scEq e-8 e-29)) (else 0))))))(else 0))))) ((8) (let ((e-12 (vector-ref arg-1 3))) (case (vector-ref arg-2 0) ((8) (let ((e-33 (vector-ref arg-2 3))) (CoreC-45Termination-scEq e-12 e-33)))(else 0)))) ((9) (let ((e-15 (vector-ref arg-1 2))) (case (vector-ref arg-2 0) ((9) (let ((e-36 (vector-ref arg-2 2))) (CoreC-45TT-u--C-61C-61_Eq_Constant e-15 e-36)))(else 0)))) ((10) (case (vector-ref arg-2 0) ((10) 1)(else 0))) ((11) (case (vector-ref arg-2 0) ((11) 1)(else 0)))(else 0))))))) ((4) (let ((e-54 (vector-ref arg-1 2))) (let ((e-55 (vector-ref arg-1 3))) (case (vector-ref arg-2 0) ((4) (let ((e-68 (vector-ref arg-2 2))) (let ((e-69 (vector-ref arg-2 3))) (let ((sc3 (CoreC-45Termination-scEq e-54 e-68))) (cond ((equal? sc3 1) (CoreC-45Termination-scEq e-55 e-69)) (else 0))))))(else (case (vector-ref arg-2 0) ((5) (let ((e-46 (vector-ref arg-2 4))) (CoreC-45Termination-scEq arg-1 e-46)))(else (case (vector-ref arg-1 0) ((6) (let ((e-3 (vector-ref arg-1 3))) (case (vector-ref arg-2 0) ((6) (let ((e-24 (vector-ref arg-2 3))) (CoreC-45Termination-scEq e-3 e-24)))(else 0)))) ((7) (let ((e-7 (vector-ref arg-1 3))) (let ((e-8 (vector-ref arg-1 4))) (case (vector-ref arg-2 0) ((7) (let ((e-28 (vector-ref arg-2 3))) (let ((e-29 (vector-ref arg-2 4))) (let ((sc4 (CoreC-45Termination-scEq e-7 e-28))) (cond ((equal? sc4 1) (CoreC-45Termination-scEq e-8 e-29)) (else 0))))))(else 0))))) ((8) (let ((e-12 (vector-ref arg-1 3))) (case (vector-ref arg-2 0) ((8) (let ((e-33 (vector-ref arg-2 3))) (CoreC-45Termination-scEq e-12 e-33)))(else 0)))) ((9) (let ((e-15 (vector-ref arg-1 2))) (case (vector-ref arg-2 0) ((9) (let ((e-36 (vector-ref arg-2 2))) (CoreC-45TT-u--C-61C-61_Eq_Constant e-15 e-36)))(else 0)))) ((10) (case (vector-ref arg-2 0) ((10) 1)(else 0))) ((11) (case (vector-ref arg-2 0) ((11) 1)(else 0)))(else 0))))))))) ((5) (let ((e-60 (vector-ref arg-1 4))) (CoreC-45Termination-scEq e-60 arg-2)))(else (case (vector-ref arg-2 0) ((5) (let ((e-46 (vector-ref arg-2 4))) (CoreC-45Termination-scEq arg-1 e-46)))(else (case (vector-ref arg-1 0) ((6) (let ((e-3 (vector-ref arg-1 3))) (case (vector-ref arg-2 0) ((6) (let ((e-24 (vector-ref arg-2 3))) (CoreC-45Termination-scEq e-3 e-24)))(else 0)))) ((7) (let ((e-7 (vector-ref arg-1 3))) (let ((e-8 (vector-ref arg-1 4))) (case (vector-ref arg-2 0) ((7) (let ((e-28 (vector-ref arg-2 3))) (let ((e-29 (vector-ref arg-2 4))) (let ((sc3 (CoreC-45Termination-scEq e-7 e-28))) (cond ((equal? sc3 1) (CoreC-45Termination-scEq e-8 e-29)) (else 0))))))(else 0))))) ((8) (let ((e-12 (vector-ref arg-1 3))) (case (vector-ref arg-2 0) ((8) (let ((e-33 (vector-ref arg-2 3))) (CoreC-45Termination-scEq e-12 e-33)))(else 0)))) ((9) (let ((e-15 (vector-ref arg-1 2))) (case (vector-ref arg-2 0) ((9) (let ((e-36 (vector-ref arg-2 2))) (CoreC-45TT-u--C-61C-61_Eq_Constant e-15 e-36)))(else 0)))) ((10) (case (vector-ref arg-2 0) ((10) 1)(else 0))) ((11) (case (vector-ref arg-2 0) ((11) 1)(else 0)))(else 0)))))))))))) ((2) 1)(else (case (vector-ref arg-2 0) ((2) 1)(else (case (vector-ref arg-1 0) ((3) (case (vector-ref arg-2 0) ((3) 0)(else (case (vector-ref arg-2 0) ((5) (let ((e-46 (vector-ref arg-2 4))) (CoreC-45Termination-scEq arg-1 e-46)))(else (case (vector-ref arg-1 0) ((6) (let ((e-3 (vector-ref arg-1 3))) (case (vector-ref arg-2 0) ((6) (let ((e-24 (vector-ref arg-2 3))) (CoreC-45Termination-scEq e-3 e-24)))(else 0)))) ((7) (let ((e-7 (vector-ref arg-1 3))) (let ((e-8 (vector-ref arg-1 4))) (case (vector-ref arg-2 0) ((7) (let ((e-28 (vector-ref arg-2 3))) (let ((e-29 (vector-ref arg-2 4))) (let ((sc3 (CoreC-45Termination-scEq e-7 e-28))) (cond ((equal? sc3 1) (CoreC-45Termination-scEq e-8 e-29)) (else 0))))))(else 0))))) ((8) (let ((e-12 (vector-ref arg-1 3))) (case (vector-ref arg-2 0) ((8) (let ((e-33 (vector-ref arg-2 3))) (CoreC-45Termination-scEq e-12 e-33)))(else 0)))) ((9) (let ((e-15 (vector-ref arg-1 2))) (case (vector-ref arg-2 0) ((9) (let ((e-36 (vector-ref arg-2 2))) (CoreC-45TT-u--C-61C-61_Eq_Constant e-15 e-36)))(else 0)))) ((10) (case (vector-ref arg-2 0) ((10) 1)(else 0))) ((11) (case (vector-ref arg-2 0) ((11) 1)(else 0)))(else 0))))))) ((4) (let ((e-54 (vector-ref arg-1 2))) (let ((e-55 (vector-ref arg-1 3))) (case (vector-ref arg-2 0) ((4) (let ((e-68 (vector-ref arg-2 2))) (let ((e-69 (vector-ref arg-2 3))) (let ((sc2 (CoreC-45Termination-scEq e-54 e-68))) (cond ((equal? sc2 1) (CoreC-45Termination-scEq e-55 e-69)) (else 0))))))(else (case (vector-ref arg-2 0) ((5) (let ((e-46 (vector-ref arg-2 4))) (CoreC-45Termination-scEq arg-1 e-46)))(else (case (vector-ref arg-1 0) ((6) (let ((e-3 (vector-ref arg-1 3))) (case (vector-ref arg-2 0) ((6) (let ((e-24 (vector-ref arg-2 3))) (CoreC-45Termination-scEq e-3 e-24)))(else 0)))) ((7) (let ((e-7 (vector-ref arg-1 3))) (let ((e-8 (vector-ref arg-1 4))) (case (vector-ref arg-2 0) ((7) (let ((e-28 (vector-ref arg-2 3))) (let ((e-29 (vector-ref arg-2 4))) (let ((sc3 (CoreC-45Termination-scEq e-7 e-28))) (cond ((equal? sc3 1) (CoreC-45Termination-scEq e-8 e-29)) (else 0))))))(else 0))))) ((8) (let ((e-12 (vector-ref arg-1 3))) (case (vector-ref arg-2 0) ((8) (let ((e-33 (vector-ref arg-2 3))) (CoreC-45Termination-scEq e-12 e-33)))(else 0)))) ((9) (let ((e-15 (vector-ref arg-1 2))) (case (vector-ref arg-2 0) ((9) (let ((e-36 (vector-ref arg-2 2))) (CoreC-45TT-u--C-61C-61_Eq_Constant e-15 e-36)))(else 0)))) ((10) (case (vector-ref arg-2 0) ((10) 1)(else 0))) ((11) (case (vector-ref arg-2 0) ((11) 1)(else 0)))(else 0))))))))) ((5) (let ((e-60 (vector-ref arg-1 4))) (CoreC-45Termination-scEq e-60 arg-2)))(else (case (vector-ref arg-2 0) ((5) (let ((e-46 (vector-ref arg-2 4))) (CoreC-45Termination-scEq arg-1 e-46)))(else (case (vector-ref arg-1 0) ((6) (let ((e-3 (vector-ref arg-1 3))) (case (vector-ref arg-2 0) ((6) (let ((e-24 (vector-ref arg-2 3))) (CoreC-45Termination-scEq e-3 e-24)))(else 0)))) ((7) (let ((e-7 (vector-ref arg-1 3))) (let ((e-8 (vector-ref arg-1 4))) (case (vector-ref arg-2 0) ((7) (let ((e-28 (vector-ref arg-2 3))) (let ((e-29 (vector-ref arg-2 4))) (let ((sc2 (CoreC-45Termination-scEq e-7 e-28))) (cond ((equal? sc2 1) (CoreC-45Termination-scEq e-8 e-29)) (else 0))))))(else 0))))) ((8) (let ((e-12 (vector-ref arg-1 3))) (case (vector-ref arg-2 0) ((8) (let ((e-33 (vector-ref arg-2 3))) (CoreC-45Termination-scEq e-12 e-33)))(else 0)))) ((9) (let ((e-15 (vector-ref arg-1 2))) (case (vector-ref arg-2 0) ((9) (let ((e-36 (vector-ref arg-2 2))) (CoreC-45TT-u--C-61C-61_Eq_Constant e-15 e-36)))(else 0)))) ((10) (case (vector-ref arg-2 0) ((10) 1)(else 0))) ((11) (case (vector-ref arg-2 0) ((11) 1)(else 0)))(else 0)))))))))))) +(define CoreC-45Termination-posArg (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (case (vector-ref arg-3 0) ((3) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-3 (vector-ref arg-3 3))) (let ((e-4 (vector-ref arg-3 4))) (let ((e-5 (vector-ref arg-3 5))) (let ((act-24 (CoreC-45Context-lookupDefExact e-2 (let ((e-0 (vector-ref arg-1 0))) e-0) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((u--testargs (if (null? e-6) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5) (let ((e-7 (unbox e-6))) (case (vector-ref e-7 0) ((6) (let ((e-13 (vector-ref e-7 3))) (CoreC-45Termination-n--11633-9787-u--dropParams e-1 e-3 e-4 e-5 e-2 arg-2 arg-1 arg-0 0 e-13 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5))))(else (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5))))))) (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() arg-1 eta-0)) u--testargs '() ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-7 (vector-ref act-25 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Core-anyM (lambda (eta-0) (lambda (eta-1) (CoreC-45Termination-nameIn arg-0 arg-1 arg-2 eta-0 eta-1))) e-7 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-8 (vector-ref act-26 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref act-26 1))) (cond ((equal? e-8 1) (vector 1 (vector 2 (vector 0 )))) (else (vector 1 (vector 1 ))))))))))))))))))))))) ((0) (let ((e-7 (vector-ref arg-3 1))) (let ((e-9 (vector-ref arg-3 3))) (let ((e-10 (vector-ref arg-3 4))) (case (vector-ref e-9 0) ((2) (let ((e-15 (vector-ref e-9 4))) (let ((act-24 (CoreC-45Termination-nameIn arg-0 arg-1 arg-2 e-15 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (cond ((equal? e-5 1) (vector 1 (vector 2 (vector 0 )))) (else (let ((act-25 (((e-10 arg-1) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 e-7 0))) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (CoreC-45Termination-posArg arg-0 arg-1 arg-2 e-6 ext-0)))))))))))))(else (vector 1 (vector 1 ))))))))(else (vector 1 (vector 1 )))))) (define CoreC-45Termination-nextArg (lambda (arg-0) (bs+ arg-0 1 63))) -(define CoreC-45Termination-nameIn (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((CoreC-45Termination-nameIn arg-0 arg-1 arg-2 (CoreC-45TT-binderType e-3)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (cond ((equal? sc2 0) (vector 1 0)) (else (let ((act-25 (((e-4 arg-1) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 e-1 1))) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) ((CoreC-45Termination-nameIn arg-0 arg-1 arg-2 e-6) eta-0))))))))))))))))))) ((1) (let ((e-8 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-1) (CoreC-45Normalise-evalClosure arg-0 '() arg-1 (Builtin-snd eta-1))) e-8 '() eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (CoreC-45Core-anyM (lambda (eta-1) (CoreC-45Termination-nameIn arg-0 arg-1 arg-2 eta-1)) e-5 eta-0))))))))) ((3) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (let ((e-13 (vector-ref sc0 4))) (let ((e-14 (vector-ref sc0 5))) (lambda (eta-0) (CoreC-45Termination-case--nameIn-5205 e-10 e-12 e-13 e-14 e-11 arg-2 arg-1 arg-0 (PreludeC-45Types-elem (cons (lambda (arg-4) (lambda (arg-5) (CoreC-45Name-u--C-61C-61_Eq_Name arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (CoreC-45Name-u--C-47C-61_Eq_Name arg-4 arg-5)))) e-11 arg-2) eta-0)))))))) ((2) (let ((e-20 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-1) (CoreC-45Normalise-evalClosure arg-0 '() arg-1 (Builtin-snd eta-1))) e-20 '() eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (CoreC-45Core-anyM (lambda (eta-1) (CoreC-45Termination-nameIn arg-0 arg-1 arg-2 eta-1)) e-5 eta-0)))))))))(else (lambda (eta-0) (vector 1 1))))))) -(define CoreC-45Termination-mkChange (lambda (arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (if (null? sc0) (vector 0 ) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((5) (let ((e-11 (vector-ref sc2 3))) (let ((e-12 (vector-ref sc2 4))) (CoreC-45Termination-mkChange arg-1 arg-2 (cons (cons e-6 e-11) (cons (cons e-6 e-12) e-3)) arg-4))))(else (CoreC-45Core-cond (cons (cons (lambda () (CoreC-45Termination-scEq arg-4 e-7)) (lambda () (vector 1 (cons e-6 (vector 1 ))))) (cons (cons (lambda () (CoreC-45Termination-smaller 1 arg-1 (CoreC-45Termination-asserted arg-2 arg-4) arg-4 e-7)) (lambda () (vector 1 (cons e-6 (vector 0 ))))) '())) (CoreC-45Termination-mkChange arg-1 arg-2 e-3 arg-4)))))))))))))) -(define CoreC-45Termination-initArgs (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 '())))(else (let ((e-0 (- arg-1 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (set-box! arg-0 (CoreC-45Termination-nextArg e-5)))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 ((CoreC-45Termination-initArgs arg-0 e-0) eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (vector 1 (cons (vector 1 (cons e-5 (vector 1 ))) e-7))))))))))))))))))))))) -(define CoreC-45Termination-getSC (lambda (arg-0 arg-1 arg-2 ext-0) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-4 (vector-ref sc0 5))) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Termination-findCalls arg-0 arg-1 eta-0)) e-4 '() ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (DataC-45List-nub (cons (lambda (arg-3) (lambda (arg-4) (CoreC-45Context-u--C-61C-61_Eq_SCCall arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (CoreC-45Context-u--C-47C-61_Eq_SCCall arg-4 arg-5)))) (PreludeC-45Interfaces-concat (cons (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-3 arg-4))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) e-5))))))))))(else (vector 1 '())))))) -(define CoreC-45Termination-getCasePats (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (CoreC-45Context-lookupDefExact arg-2 (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) e-0)) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((sc2 e-1)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 5))) (vector 1 (vector 1 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45Termination-n--9866-2974-u--matchArgs arg-0 arg-4 arg-3 arg-2 arg-1 eta-0)) e-6)))))(else (vector 1 (vector 0 )))))))(else (vector 1 (vector 0 )))))))))))) +(define CoreC-45Termination-nameIn (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (case (vector-ref arg-3 0) ((0) (let ((e-1 (vector-ref arg-3 1))) (let ((e-3 (vector-ref arg-3 3))) (let ((e-4 (vector-ref arg-3 4))) (let ((act-24 (CoreC-45Termination-nameIn arg-0 arg-1 arg-2 (CoreC-45TT-binderType e-3) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (cond ((equal? e-5 1) (vector 1 1)) (else (let ((act-25 (((e-4 arg-1) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 e-1 0))) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-6 (vector-ref act-25 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-25 1))) (CoreC-45Termination-nameIn arg-0 arg-1 arg-2 e-6 ext-0))))))))))))))) ((1) (let ((e-8 (vector-ref arg-3 3))) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() arg-1 (Builtin-snd eta-0))) e-8 '() ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (CoreC-45Core-anyM (lambda (eta-0) (lambda (eta-1) (CoreC-45Termination-nameIn arg-0 arg-1 arg-2 eta-0 eta-1))) e-5 ext-0))))))) ((3) (let ((e-11 (vector-ref arg-3 2))) (let ((e-14 (vector-ref arg-3 5))) (let ((sc1 (PreludeC-45Types-elem (cons (lambda (arg-4) (lambda (arg-5) (CoreC-45Name-u--C-61C-61_Eq_Name arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (CoreC-45Name-u--C-47C-61_Eq_Name arg-4 arg-5)))) e-11 arg-2))) (cond ((equal? sc1 1) (vector 1 1)) (else (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() arg-1 (Builtin-snd eta-0))) e-14 '() ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (CoreC-45Core-anyM (lambda (eta-0) (lambda (eta-1) (CoreC-45Termination-nameIn arg-0 arg-1 arg-2 eta-0 eta-1))) e-5 ext-0))))))))))) ((2) (let ((e-20 (vector-ref arg-3 5))) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() arg-1 (Builtin-snd eta-0))) e-20 '() ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (CoreC-45Core-anyM (lambda (eta-0) (lambda (eta-1) (CoreC-45Termination-nameIn arg-0 arg-1 arg-2 eta-0 eta-1))) e-5 ext-0)))))))(else (vector 1 0))))) +(define CoreC-45Termination-mkChange (lambda (arg-1 arg-2 arg-3 arg-4) (if (null? arg-3) '() (let ((e-2 (car arg-3))) (let ((e-3 (cdr arg-3))) (let ((e-6 (car e-2))) (let ((e-7 (cdr e-2))) (case (vector-ref e-7 0) ((5) (let ((e-11 (vector-ref e-7 3))) (let ((e-12 (vector-ref e-7 4))) (CoreC-45Termination-mkChange arg-1 arg-2 (cons (cons e-6 e-11) (cons (cons e-6 e-12) e-3)) arg-4))))(else (CoreC-45Core-cond (cons (cons (lambda () (CoreC-45Termination-scEq arg-4 e-7)) (lambda () (box (cons e-6 1)))) (cons (cons (lambda () (CoreC-45Termination-smaller 0 arg-1 (CoreC-45Termination-asserted arg-2 arg-4) arg-4 e-7)) (lambda () (box (cons e-6 0)))) '())) (CoreC-45Termination-mkChange arg-1 arg-2 e-3 arg-4))))))))))) +(define CoreC-45Termination-initArgs (lambda (arg-0 arg-1) (cond ((equal? arg-1 0) (lambda (eta-0) (vector 1 '())))(else (let ((e-0 (- arg-1 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (let ((act-25 (set-box! arg-0 (CoreC-45Termination-nextArg e-5)))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 ((CoreC-45Termination-initArgs arg-0 e-0) eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (cons (box (cons e-5 1)) e-7))))))))))))))))))) +(define CoreC-45Termination-getSC (lambda (arg-0 arg-1 arg-2 ext-0) (case (vector-ref arg-2 0) ((1) (let ((e-4 (vector-ref arg-2 5))) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Termination-findCalls arg-0 arg-1 eta-0)) e-4 '() ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (DataC-45List-nub (cons (lambda (arg-3) (lambda (arg-4) (CoreC-45Context-u--C-61C-61_Eq_SCCall arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (CoreC-45Context-u--C-47C-61_Eq_SCCall arg-4 arg-5)))) (PreludeC-45Interfaces-concat (cons (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-3 arg-4))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) e-5)))))))))(else (vector 1 '()))))) +(define CoreC-45Termination-getCasePats (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (CoreC-45Context-lookupDefExact arg-2 (let ((e-0 (vector-ref arg-1 0))) e-0) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (if (null? e-5) '() (let ((e-1 (unbox e-5))) (case (vector-ref e-1 0) ((1) (let ((e-6 (vector-ref e-1 5))) (box (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45Termination-n--7500-7243-u--matchArgs arg-0 arg-4 arg-3 arg-2 arg-1 eta-0)) e-6))))(else '()))))))))))) (define CoreC-45Termination-firstArg (lambda () 0)) -(define CoreC-45Termination-findSCcall (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 ext-0) (let ((act-24 ((CoreC-45Context-lookupCtxtExact arg-7 (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) e-0))) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((u--fn (let ((sc2 e-1)) (let ((e-22 (vector-ref sc2 2))) e-22)))) (let ((act-25 (let ((act-25 (CoreC-45Context-toFullNames arg-1 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) u--fn ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (CoreC-45ContextC-45Log-log arg-1 "totality.termination.sizechange" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Looking under " (CoreC-45Name-u--show_Show_Name e-6))) ext-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((CoreC-45Context-u--resolved_HasNames_Name (let ((sc3 arg-2)) (let ((e-0 (vector-ref sc3 1))) e-0)) (vector 0 (CoreC-45NameC-45Namespace-builtinNS) (vector 1 "assert_smaller"))) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) ((CoreC-45Core-cond (cons (cons (lambda () (CoreC-45Name-u--C-61C-61_Eq_Name u--fn (vector 0 (CoreC-45NameC-45Namespace-builtinNS) (vector 1 "assert_total")))) (lambda () (lambda (eta-0) (vector 1 '())))) (cons (cons (lambda () (CoreC-45Termination-caseFn u--fn)) (lambda () (lambda (eta-0) (let ((act-27 (CoreC-45Termination-getCasePats arg-0 arg-2 u--fn arg-5 arg-9 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((0) (vector 1 '())) (else (let ((e-2 (vector-ref sc5 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-1) (CoreC-45Termination-findInCase arg-1 arg-2 arg-4 eta-1)) e-2 '() eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc6 1))) (vector 1 (PreludeC-45Interfaces-concat (cons (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (cons (lambda (arg-10) (lambda (arg-11) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-10 arg-11))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) e-9))))))))))))))))))) '())) (lambda (eta-0) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-1) (CoreC-45Termination-findSC arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 eta-1)) arg-9 '() eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (PreludeC-45TypesC-45List-C-43C-43 (cons (cons u--fn (CoreC-45Termination-expandToArity arg-8 (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (CoreC-45Termination-mkChange arg-2 e-7 arg-5 eta-1)) arg-9))) '()) (PreludeC-45Interfaces-concat (cons (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (cons (lambda (arg-10) (lambda (arg-11) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-10 arg-11))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) e-8)))))))))) ext-0))))))))))))) (else (CoreC-45Context-undefinedName arg-1 arg-6 arg-7 ext-0))))))))))) -(define CoreC-45Termination-findSC (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((3) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((CoreC-45Termination-n--9852-1802-u--findSCbinder e-12 arg-0 e-14 e-13 e-11 arg-5 arg-4 arg-3 arg-2 arg-1 e-13) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((CoreC-45Termination-findSC (cons e-12 arg-0) arg-1 arg-2 (cons e-13 arg-3) arg-4 (PreludeC-45Types-u--map_Functor_List (lambda (lamc-0) (let ((sc2 lamc-0)) (let ((e-2 (car sc2))) (let ((e-3 (cdr sc2))) (cons e-2 (CoreC-45TT-u--weaken_Weaken_Term e-3)))))) arg-5) e-14) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (PreludeC-45TypesC-45List-C-43C-43 e-5 e-6))))))))))))))))))(else (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((2) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((7) (let ((e-9 (vector-ref sc1 4))) (CoreC-45Termination-findSC arg-0 arg-1 arg-2 arg-3 (vector 3 ) arg-5 e-9)))(else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((7) (let ((e-4 (vector-ref sc1 4))) (CoreC-45Termination-findSC arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-4)))(else (lambda (eta-0) (CoreC-45Termination-case--findSC-2134 arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (CoreC-45TT-getFnArgs arg-6) eta-0)))))))))(else (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((7) (let ((e-4 (vector-ref sc0 4))) (CoreC-45Termination-findSC arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-4)))(else (lambda (eta-0) (CoreC-45Termination-case--findSC-2134 arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (CoreC-45TT-getFnArgs arg-6) eta-0))))))))))))) -(define CoreC-45Termination-findInCase (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (lambda (clam-0) (let ((sc1 e-3)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (let ((sc2 e-7)) (let ((e-10 (car sc2))) (let ((e-11 (cdr sc2))) (let ((act-24 (CoreC-45ContextC-45Log-logC arg-0 "totality" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda (eta-0) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-1) (lambda (eta-2) (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-3) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-3)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) eta-1 eta-2))) (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) e-10) '() eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (vector 1 (PreludeC-45TypesC-45String-C-43C-43 "Looking in case args " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 e-2 u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 e-2 u--d u--x)))) e-5))))))))) clam-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((act-25 (CoreC-45Normalise-logTermNF e-2 arg-0 "totality" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () " =") e-6 e-11 clam-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((act-26 (CoreC-45Normalise-normaliseOpts arg-0 e-2 (CoreC-45Value-tcOnly) arg-1 e-6 e-11 clam-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) ((CoreC-45Termination-findSC e-2 arg-0 arg-1 e-6 arg-2 e-10 (CoreC-45Termination-delazy arg-1 e-9)) clam-0)))))))))))))))))))))))))) -(define CoreC-45Termination-findCalls (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-3)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (let ((sc2 e-7)) (let ((e-10 (car sc2))) (let ((e-11 (cdr sc2))) (let ((u--pargs (CoreC-45TT-getArgs (CoreC-45Termination-delazy arg-1 e-10)))) (lambda (eta-0) (let ((act-24 (CoreC-45Normalise-normaliseOpts arg-0 e-2 (CoreC-45Value-tcOnly) arg-1 e-6 e-11 eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) ((CoreC-45Termination-findSC e-2 arg-0 arg-1 e-6 (vector 0 ) (DataC-45List-u--zip_Zippable_List (PreludeC-45Types-take (PreludeC-45TypesC-45List-length u--pargs) (PreludeC-45Types-u--rangeFrom_Range_Nat (PreludeC-45Types-u--fromInteger_Num_Nat 0))) u--pargs) (CoreC-45Termination-delazy arg-1 e-5)) eta-0))))))))))))))))))) -(define CoreC-45Termination-expandToArity (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (cond ((equal? sc0 0) arg-1)(else (let ((e-0 (- arg-0 1))) (let ((sc0 arg-1)) (if (null? sc0) (cons (vector 0 ) (CoreC-45Termination-expandToArity e-0 '())) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (cons e-2 (CoreC-45Termination-expandToArity e-0 e-3)))))))))))) -(define CoreC-45Termination-delazy (lambda (arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((6) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((u--tmC-39 (CoreC-45Termination-delazy arg-1 e-3))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (vector 6 e-1 e-2 u--tmC-39))(else u--tmC-39)))))))) ((7) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (let ((u--tyC-39 (CoreC-45Termination-delazy arg-1 e-7))) (let ((u--tmC-39 (CoreC-45Termination-delazy arg-1 e-8))) (let ((sc1 e-6)) (case (vector-ref sc1 0) ((0) (vector 7 e-5 e-6 u--tyC-39 u--tmC-39))(else u--tmC-39)))))))))) ((8) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (let ((sc1 e-11)) (case (vector-ref sc1 0) ((0) (vector 8 e-10 e-11 (CoreC-45Termination-delazy arg-1 e-12)))(else (CoreC-45Termination-delazy arg-1 e-12)))))))) ((2) (let ((e-14 (vector-ref sc0 1))) (let ((e-15 (vector-ref sc0 2))) (let ((e-16 (vector-ref sc0 3))) (let ((e-17 (vector-ref sc0 4))) (vector 2 e-14 e-15 e-16 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45Termination-delazy arg-1 eta-0)) e-17))))))) ((3) (let ((e-19 (vector-ref sc0 1))) (let ((e-20 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 3))) (let ((e-22 (vector-ref sc0 4))) (vector 3 e-19 e-20 (CoreC-45TT-u--map_Functor_Binder (lambda (eta-0) (CoreC-45Termination-delazy arg-1 eta-0)) e-21) (CoreC-45Termination-delazy arg-1 e-22))))))) ((4) (let ((e-24 (vector-ref sc0 1))) (let ((e-25 (vector-ref sc0 2))) (let ((e-26 (vector-ref sc0 3))) (vector 4 e-24 (CoreC-45Termination-delazy arg-1 e-25) (CoreC-45Termination-delazy arg-1 e-26)))))) ((5) (let ((e-28 (vector-ref sc0 1))) (let ((e-29 (vector-ref sc0 2))) (let ((e-30 (vector-ref sc0 3))) (let ((e-31 (vector-ref sc0 4))) (vector 5 e-28 e-29 (CoreC-45Termination-delazy arg-1 e-30) (CoreC-45Termination-delazy arg-1 e-31)))))))(else arg-2))))) -(define CoreC-45Termination-checkTotal (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((CoreC-45Termination-case--checkTotal-6119 arg-2 arg-1 arg-0 e-5 (CoreC-45Context-getNameID arg-2 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0)))) ext-0)))))))) -(define CoreC-45Termination-checkTerminating (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (CoreC-45Context-getTotality arg-0 arg-1 arg-2 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) arg-2 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (CoreC-45ContextC-45Log-log arg-0 "totality.termination" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Checking termination: " (CoreC-45Name-u--show_Show_Name e-6))) ext-0)))))))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (CoreC-45Termination-case--checkTerminating-5075 arg-2 arg-1 arg-0 e-5 (let ((sc2 e-5)) (let ((e-0 (car sc2))) e-0)) ext-0)))))))))))) -(define CoreC-45Termination-checkSC (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (let ((act-24 (CoreC-45Context-toFullNames arg-1 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) arg-3 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (CoreC-45ContextC-45Log-log arg-1 "totality.termination.sizechange" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Checking Size Change Graph: " (CoreC-45Name-u--show_Show_Name e-5))) ext-0)))))))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((u--pos (cons arg-3 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (PreludeC-45Types-u--map_Functor_Maybe (lambda (eta-1) (Builtin-fst eta-1)) eta-0)) arg-4)))) (CoreC-45Termination-case--checkSC-4589 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 u--pos (PreludeC-45Types-elem (cons (lambda (arg-6) (lambda (arg-7) (PreludeC-45EqOrd-u--C-61C-61_Eq_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (arg-8) (lambda (arg-9) (CoreC-45Name-u--C-61C-61_Eq_Name arg-8 arg-9))) (lambda (arg-8) (lambda (arg-9) (CoreC-45Name-u--C-47C-61_Eq_Name arg-8 arg-9)))) (cons (lambda (arg-8) (lambda (arg-9) (PreludeC-45Types-u--C-61C-61_Eq_C-40ListC-32C-36aC-41 (cons (lambda (arg-10) (lambda (arg-11) (PreludeC-45Types-u--C-61C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-12) (lambda (arg-13) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-12 arg-13))) (lambda (arg-12) (lambda (arg-13) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-12 arg-13)))) arg-10 arg-11))) (lambda (arg-10) (lambda (arg-11) (PreludeC-45Types-u--C-47C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-12) (lambda (arg-13) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-12 arg-13))) (lambda (arg-12) (lambda (arg-13) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-12 arg-13)))) arg-10 arg-11)))) arg-8 arg-9))) (lambda (arg-8) (lambda (arg-9) (PreludeC-45Types-u--C-47C-61_Eq_C-40ListC-32C-36aC-41 (cons (lambda (arg-10) (lambda (arg-11) (PreludeC-45Types-u--C-61C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-12) (lambda (arg-13) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-12 arg-13))) (lambda (arg-12) (lambda (arg-13) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-12 arg-13)))) arg-10 arg-11))) (lambda (arg-10) (lambda (arg-11) (PreludeC-45Types-u--C-47C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-12) (lambda (arg-13) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-12 arg-13))) (lambda (arg-12) (lambda (arg-13) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-12 arg-13)))) arg-10 arg-11)))) arg-8 arg-9)))) arg-6 arg-7))) (lambda (arg-6) (lambda (arg-7) (PreludeC-45EqOrd-u--C-47C-61_Eq_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (arg-8) (lambda (arg-9) (CoreC-45Name-u--C-61C-61_Eq_Name arg-8 arg-9))) (lambda (arg-8) (lambda (arg-9) (CoreC-45Name-u--C-47C-61_Eq_Name arg-8 arg-9)))) (cons (lambda (arg-8) (lambda (arg-9) (PreludeC-45Types-u--C-61C-61_Eq_C-40ListC-32C-36aC-41 (cons (lambda (arg-10) (lambda (arg-11) (PreludeC-45Types-u--C-61C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-12) (lambda (arg-13) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-12 arg-13))) (lambda (arg-12) (lambda (arg-13) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-12 arg-13)))) arg-10 arg-11))) (lambda (arg-10) (lambda (arg-11) (PreludeC-45Types-u--C-47C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-12) (lambda (arg-13) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-12 arg-13))) (lambda (arg-12) (lambda (arg-13) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-12 arg-13)))) arg-10 arg-11)))) arg-8 arg-9))) (lambda (arg-8) (lambda (arg-9) (PreludeC-45Types-u--C-47C-61_Eq_C-40ListC-32C-36aC-41 (cons (lambda (arg-10) (lambda (arg-11) (PreludeC-45Types-u--C-61C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-12) (lambda (arg-13) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-12 arg-13))) (lambda (arg-12) (lambda (arg-13) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-12 arg-13)))) arg-10 arg-11))) (lambda (arg-10) (lambda (arg-11) (PreludeC-45Types-u--C-47C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-12) (lambda (arg-13) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-12 arg-13))) (lambda (arg-12) (lambda (arg-13) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-12 arg-13)))) arg-10 arg-11)))) arg-8 arg-9)))) arg-6 arg-7)))) u--pos arg-5) ext-0)))))))) -(define CoreC-45Termination-checkPositive (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (CoreC-45Context-toResolvedNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) arg-2 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (CoreC-45Context-getTotality arg-0 arg-1 e-5 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) e-5 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (CoreC-45ContextC-45Log-log arg-0 "totality.positivity" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Checking positivity: " (CoreC-45Name-u--show_Show_Name e-7))) ext-0)))))))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (CoreC-45Termination-case--checkPositive-6043 arg-2 arg-1 arg-0 e-5 e-6 (let ((sc3 e-6)) (let ((e-0 (car sc3))) e-0)) ext-0))))))))))))))))) -(define CoreC-45Termination-checkPosArgs (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-9 (vector-ref sc1 4))) (let ((act-24 (CoreC-45Termination-posArg arg-0 arg-1 arg-2 e-9 ext-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((1) (let ((act-25 (((e-4 arg-1) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 e-1 1))) ext-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc4 1))) (CoreC-45Termination-checkPosArgs arg-0 arg-1 arg-2 e-10 ext-0)))))))(else (vector 1 e-5)))))))))))(else (vector 1 (vector 1 )))))))))(else (vector 1 (vector 1 ))))))) -(define CoreC-45Termination-checkIfGuarded (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) arg-2 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (CoreC-45ContextC-45Log-log arg-0 "totality.termination.guarded" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Check if Guarded: " (CoreC-45Name-u--show_Show_Name e-5))) ext-0)))))))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((act-25 (let ((act-25 (unbox arg-0))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (CoreC-45Context-lookupDefExact arg-2 (let ((sc2 e-6)) (let ((e-0 (vector-ref sc2 1))) e-0)) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((sc4 e-1)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 5))) (let ((act-27 ((CoreC-45Termination-n--8904-921-u--allGuarded arg-2 arg-1 arg-0 e-8) ext-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc5 1))) (let ((sc6 e-10)) (cond ((equal? sc6 0) (CoreC-45Context-setFlag arg-0 arg-1 arg-2 (vector 8 ) ext-0)) (else (vector 1 (vector 0 ))))))))))))(else (vector 1 (vector 0 )))))))(else (vector 1 (vector 0 ))))))))))))))))))))) -(define CoreC-45Termination-checkData (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((sc0 arg-3)) (if (null? sc0) (vector 1 (vector 1 )) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((act-24 (CoreC-45Termination-checkCon arg-0 arg-1 arg-2 e-2 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (CoreC-45Termination-checkData arg-0 arg-1 arg-2 e-3 ext-0))(else (vector 1 e-5))))))))))))))) -(define CoreC-45Termination-checkCon (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (CoreC-45Context-lookupTyExact arg-3 (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) e-0)) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((0) (vector 1 (vector 0 ))) (else (let ((e-2 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Termination-totRefsIn arg-0 arg-1 e-2 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((act-26 ((CoreC-45Normalise-nf arg-0 '() arg-1 '() e-2) ext-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc4 1))) (CoreC-45Termination-checkPosArgs arg-0 arg-1 arg-2 e-7 ext-0)))))))(else (vector 1 e-6)))))))))))))))))))) -(define CoreC-45Termination-caseFn (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((7) 0) ((4) (let ((e-3 (vector-ref sc0 2))) (CoreC-45Termination-caseFn e-3))) ((0) (let ((e-5 (vector-ref sc0 2))) (CoreC-45Termination-caseFn e-5)))(else 1))))) -(define CoreC-45Termination-calculateSizeChange (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) arg-2 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (CoreC-45ContextC-45Log-log arg-0 "totality.termination.sizechange" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Calculating Size Change: " (CoreC-45Name-u--show_Show_Name e-5))) ext-0)))))))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((act-25 (let ((act-25 (unbox arg-0))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((CoreC-45Context-lookupCtxtExact arg-2 (let ((sc2 e-6)) (let ((e-0 (vector-ref sc2 1))) e-0))) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (CoreC-45Termination-getSC arg-0 e-6 (let ((sc4 e-1)) (let ((e-17 (vector-ref sc4 18))) e-17)) ext-0))) (else (CoreC-45Context-undefinedName arg-0 arg-1 arg-2 ext-0)))))))))))))))))))) -(define CoreC-45Termination-calcTerminating (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) arg-2 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (CoreC-45ContextC-45Log-log arg-0 "totality.termination.calc" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Calculating termination: " (CoreC-45Name-u--show_Show_Name e-6))) ext-0)))))))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 ((CoreC-45Context-lookupCtxtExact arg-2 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((0) (CoreC-45Context-undefinedName arg-0 arg-1 arg-2 ext-0)) (else (let ((e-2 (vector-ref sc3 1))) (let ((act-27 ((CoreC-45Termination-n--13152-4756-u--addCases arg-2 arg-1 arg-0 e-5 (LibrariesC-45DataC-45NameMap-keys (CoreC-45Context-refersTo e-2))) ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (CoreC-45Termination-totRefs arg-0 e-5 (DataC-45List-nub (cons (lambda (arg-3) (lambda (arg-4) (CoreC-45Name-u--C-61C-61_Eq_Name arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (CoreC-45Name-u--C-47C-61_Eq_Name arg-4 arg-5)))) e-8) ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc5 1))) (let ((sc6 e-9)) (case (vector-ref sc6 0) ((1) (let ((u--ty (let ((sc7 e-2)) (let ((e-26 (vector-ref sc7 3))) e-26)))) (let ((act-29 (CoreC-45Core-newRef (vector "Core.Termination.APos" ) (CoreC-45Termination-firstArg) ext-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (vector 0 e-3))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-30 (let ((act-30 (CoreC-45Normalise-getArity arg-0 '() e-5 '() u--ty ext-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (vector 0 e-3))) (else (let ((e-11 (vector-ref sc8 1))) ((CoreC-45Termination-initArgs e-10 e-11) ext-0)))))))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (vector 0 e-3))) (else (let ((e-11 (vector-ref sc8 1))) (CoreC-45Termination-checkSC e-10 arg-0 e-5 arg-2 e-11 '() ext-0)))))))))))))(else (vector 1 e-9)))))))))))))))))))))))))))))))))) -(define CoreC-45Termination-calcPositive (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) arg-2 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (CoreC-45ContextC-45Log-log arg-0 "totality.positivity" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Calculating positivity: " (CoreC-45Name-u--show_Show_Name e-6))) ext-0)))))))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45Context-lookupDefTyExact arg-2 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((sc4 e-1)) (if (null? sc4) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-1 (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name arg-2) " not a data type")) ext-0) (let ((e-9 (car sc4))) (let ((e-8 (cdr sc4))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((6) (let ((e-12 (vector-ref sc5 6))) (let ((e-13 (vector-ref sc5 7))) (let ((act-27 (CoreC-45Termination-totRefsIn arg-0 e-5 e-8 ext-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-18 (vector-ref sc6 1))) (let ((sc7 e-18)) (case (vector-ref sc7 0) ((1) (let ((act-28 (CoreC-45Termination-checkData arg-0 e-5 (cons arg-2 e-12) e-13 ext-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-19 (vector-ref sc8 1))) (vector 1 (cons e-19 e-13))))))))(else (vector 1 (cons e-18 e-13)))))))))))))(else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-1 (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name arg-2) " not a data type")) ext-0)))))))))) (else (CoreC-45Context-undefinedName arg-0 arg-1 arg-2 ext-0)))))))))))))))))))) -(define CoreC-45Termination-assertedSmaller (lambda (arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (CoreC-45Termination-scEq e-1 arg-2)))(else 1))))) -(define CoreC-45Termination-asserted (lambda (arg-1 arg-2) (CoreC-45Termination-case--asserted-2802 arg-2 arg-1 (CoreC-45TT-getFnArgs arg-2)))) -(define CoreC-45Coverage-case--eraseApps-6141 (lambda (arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (lambda (clam-0) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((e-7 (vector-ref sc1 3))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((0) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Coverage-eraseApps arg-2 eta-0)) e-3 '() clam-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (vector 1 (CoreC-45TT-apply e-5 (vector 1 e-5 (vector 0 ) e-7) e-8))))))))(else (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc2 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact e-7 (let ((sc3 e-8)) (let ((e-0 (vector-ref sc3 1))) e-0))) clam-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc3 1))) (let ((u--eargs (PreludeC-45Types-maybe (lambda () '()) (lambda () (lambda (eta-0) (let ((sc4 eta-0)) (let ((e-26 (vector-ref sc4 4))) e-26)))) e-9))) (let ((act-26 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Coverage-eraseApps arg-2 eta-0)) (CoreC-45Coverage-n--12945-6079-u--dropPos arg-1 arg-2 e-5 0 u--eargs e-3) '() clam-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc4 1))) (vector 1 (CoreC-45TT-apply e-5 (vector 1 e-5 e-6 e-7) e-10)))))))))))))))))))))))))(else (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Coverage-eraseApps arg-2 eta-0)) e-3 '() clam-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (CoreC-45TT-apply (CoreC-45TT-getLoc e-2) e-2 e-5)))))))))))))))) -(define CoreC-45Coverage-case--eraseAppsC-44dropPos-6095 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (cond ((equal? sc0 0) (cons (vector 10 arg-7 1) (CoreC-45Coverage-n--12945-6079-u--dropPos arg-1 arg-2 arg-7 (+ 1 arg-6) arg-5 arg-4))) (else (cons arg-3 (CoreC-45Coverage-n--12945-6079-u--dropPos arg-1 arg-2 arg-7 (+ 1 arg-6) arg-5 arg-4))))))) -(define CoreC-45Coverage-case--caseC-32blockC-32inC-32getNonCoveringRefsC-44notCovering-5747 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (vector 1 1))(else (vector 1 0)))))) -(define CoreC-45Coverage-case--addNot-5123 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-8) (let ((sc0 arg-8)) (cond ((equal? sc0 0) (cons (cons arg-3 (cons arg-6 arg-4)) arg-5)) (else (cons (cons arg-3 arg-4) (CoreC-45Coverage-addNot arg-1 arg-2 arg-6 arg-5))))))) -(define CoreC-45Coverage-case--findTag-5032 (lambda (arg-2 arg-3 arg-4 arg-5 arg-6 arg-8) (let ((sc0 arg-8)) (cond ((equal? sc0 0) (vector 1 arg-5)) (else (CoreC-45Coverage-findTag arg-2 arg-3 arg-6)))))) -(define CoreC-45Coverage-case--getMissingAlts-4748 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (let ((act-24 (CoreC-45ContextC-45Log-log arg-5 "coverage.missing" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))))))))))))) (lambda () "Found default") ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 '())))))) (else (vector 1 (cons (vector 3 (vector 2 "Coverage check")) '()))))))) -(define CoreC-45Coverage-case--getMissingAlts-4669 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (let ((act-24 (CoreC-45ContextC-45Log-log arg-0 "coverage.missing" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))))))))))))) (lambda () "Found default") ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 '())))))) (else (vector 1 (cons (vector 3 (vector 2 "Coverage check")) '()))))))) -(define CoreC-45Coverage-case--getMissingAlts-4598 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (vector 1 (cons (vector 3 (vector 2 "Coverage check")) '()))) (else (vector 1 '())))))) -(define CoreC-45Coverage-case--caseC-32blockC-32inC-32getConsC-44addTy-4226 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 ext-0) (let ((sc0 arg-11)) (if (null? sc0) (vector 1 (vector 0 )) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((5) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((act-24 ((CoreC-45Normalise-nf arg-7 '() arg-6 '() e-3) ext-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc2 1))) (vector 1 (vector 1 (cons e-7 (cons arg-8 (cons e-4 e-5)))))))))))))(else (vector 1 (vector 0 ))))))))))) -(define CoreC-45Coverage-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32isEmpty-4014 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 ext-0) (let ((sc0 arg-19)) (cond ((equal? sc0 0) (CoreC-45Core-allM (lambda (eta-0) (lambda (eta-1) (CoreC-45Coverage-conflict arg-0 arg-8 arg-7 arg-6 (vector 3 arg-5 arg-4 arg-3 arg-2 arg-1) eta-0 eta-1))) arg-16 ext-0)) (else (vector 1 1)))))) -(define CoreC-45Coverage-case--caseC-32blockC-32inC-32conflict-3789 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 ext-0) (let ((sc0 arg-8)) (if (null? sc0) (vector 1 1) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((5) (let ((act-24 (let ((act-24 ((CoreC-45Normalise-nf arg-5 '() arg-4 '() e-3) ext-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc2 1))) ((CoreC-45Coverage-n--9802-3202-u--conflictNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 0 arg-2 e-7) ext-0)))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((0) (vector 1 0)) (else (let ((e-8 (vector-ref sc3 1))) (vector 1 (CoreC-45Coverage-conflictMatch arg-0 e-8))))))))))))(else (vector 1 1)))))))))) -(define CoreC-45Coverage-case--conflictC-44conflictNF-3693 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 ext-0) (let ((sc0 arg-11)) (cond ((equal? sc0 0) (vector 1 (vector 1 '()))) (else (vector 1 (vector 0 ))))))) -(define CoreC-45Coverage-case--conflictC-44conflictNF-3583 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (cond ((equal? sc0 0) (lambda (eta-0) (CoreC-45Coverage-n--9802-3201-u--conflictArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-16 (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) arg-8) (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) arg-12) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define CoreC-45Coverage-case--conflictC-44conflictNF-3473 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (cond ((equal? sc0 0) (lambda (eta-0) (CoreC-45Coverage-n--9802-3201-u--conflictArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-16 (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) arg-8) (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) arg-12) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define CoreC-45Coverage-case--caseC-32blockC-32inC-32conflictMatchC-44conflictTm-3146 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (PreludeC-45Basics-C-124C-124 (CoreC-45Coverage-n--9308-2760-u--clash arg-0 arg-1 arg-2 arg-3 arg-6 e-2) (lambda () (LibrariesC-45DataC-45BoolC-45Extra-anyTrue (DataC-45List-u--zipWith_Zippable_List (lambda (eta-0) (lambda (eta-1) (CoreC-45Coverage-n--9308-2762-u--conflictTm arg-0 arg-1 arg-2 arg-3 eta-0 eta-1))) arg-7 e-3))))))))) -(define CoreC-45Coverage-case--conflictMatchC-44conflictTm-3124 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (CoreC-45Coverage-case--caseC-32blockC-32inC-32conflictMatchC-44conflictTm-3146 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2 e-3 (CoreC-45TT-getFnArgs arg-4))))))) -(define CoreC-45Coverage-case--conflictMatchC-44conflictTm-3056 (lambda (arg-0 arg-1 arg-2 arg-3 arg-5 arg-6 arg-7 arg-9 arg-10) (let ((sc0 arg-10)) (if (null? sc0) 1 (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((2) (LibrariesC-45DataC-45BoolC-45Extra-anyTrue (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45Coverage-n--9308-2761-u--findN arg-0 arg-1 arg-2 arg-3 arg-7 eta-0)) e-3)))(else 1)))))(else 1))))))))) -(define CoreC-45Coverage-case--conflictMatchC-44conflictTm-2978 (lambda (arg-0 arg-1 arg-2 arg-3 arg-5 arg-6 arg-7 arg-9 arg-10) (let ((sc0 arg-10)) (if (null? sc0) 1 (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((2) (LibrariesC-45DataC-45BoolC-45Extra-anyTrue (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45Coverage-n--9308-2761-u--findN arg-0 arg-1 arg-2 arg-3 arg-7 eta-0)) e-3)))(else 1)))))(else 1))))))))) -(define CoreC-45Coverage-case--conflictMatchC-44findN-2914 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (if (null? sc0) 1 (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((2) (LibrariesC-45DataC-45BoolC-45Extra-anyTrue (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45Coverage-n--9308-2761-u--findN arg-0 arg-1 arg-2 arg-3 arg-5 eta-0)) e-3)))(else 1)))))(else 1))))))))) -(define CoreC-45Coverage-n--13215-6346-u--tryClauses (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((sc0 arg-3)) (if (null? sc0) (let ((act-24 (CoreC-45Normalise-logTermNF '() arg-2 "coverage" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Nothing matches") '() arg-4 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 1 arg-4)))))) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((e-6 (vector-ref sc1 3))) (let ((act-24 (CoreC-45Coverage-clauseMatches e-4 arg-2 e-5 e-6 arg-4 ext-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-8 (vector-ref sc2 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc2 1))) (let ((sc3 e-8)) (cond ((equal? sc3 0) (let ((act-25 (CoreC-45Normalise-logTermNF e-4 arg-2 "coverage" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Yes") e-5 e-6 ext-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (vector 0 e-9))) (else (vector 1 (vector 0 ))))))) (else (let ((act-25 (CoreC-45Normalise-logTermNF e-4 arg-2 "coverage" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "No match") e-5 e-6 ext-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (vector 0 e-9))) (else (CoreC-45Coverage-n--13215-6346-u--tryClauses arg-0 arg-1 arg-2 e-3 arg-4 ext-0))))))))))))))))))))))) -(define CoreC-45Coverage-n--12105-5280-u--rep (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((act-24 (CoreC-45Coverage-getCons arg-5 arg-0 arg-3 arg-2 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45Coverage-mkAlt arg-0 arg-4 e-1 (Builtin-snd eta-0))) e-5)))))))))(else (vector 1 (cons arg-6 '()))))))) -(define CoreC-45Coverage-n--12538-5696-u--notCovering (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 ((CoreC-45Context-lookupCtxtExact arg-4 (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) e-0))) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((bind-0 (vector 1 e-1))) (CoreC-45Coverage-case--caseC-32blockC-32inC-32getNonCoveringRefsC-44notCovering-5747 arg-0 arg-1 arg-2 arg-4 arg-3 e-1 bind-0 (let ((sc2 e-1)) (let ((e-10 (vector-ref sc2 11))) (let ((sc3 e-10)) (let ((e-23 (cdr sc3))) e-23)))) ext-0))))(else (vector 1 1))))))))))) -(define CoreC-45Coverage-n--11390-4800-u--noneOf (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 (PreludeC-45Interfaces-any (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (lambda (eta-0) (CoreC-45Coverage-altMatch arg-7 eta-0)) arg-6))) (cond ((equal? sc0 0) 1) (else 0))))) -(define CoreC-45Coverage-n--12538-5695-u--noAssert (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-3)) (cond ((equal? sc1 0) (vector 0 )) (else (vector 1 e-2))))))))) -(define CoreC-45Coverage-n--13127-6258-u--mkSubstEnv (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-5)) (if (null? sc0) (let ((sc1 arg-8)) '()) (let ((e-3 (cdr sc0))) (let ((sc1 arg-8)) (let ((e-9 (cdr sc1))) (cons (vector 1 arg-6 (vector 0 ) (vector 2 "cov" arg-7)) (CoreC-45Coverage-n--13127-6258-u--mkSubstEnv arg-0 arg-1 arg-2 arg-3 arg-4 e-3 arg-6 (bs+ arg-7 1 63) e-9))))))))) -(define CoreC-45Coverage-n--12538-5694-u--isCase (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (CoreC-45Coverage-n--12538-5694-u--isCase arg-0 arg-1 arg-2 e-1))) ((7) 0)(else 1))))) -(define CoreC-45Coverage-n--9308-2761-u--findN (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-4 (vector-ref sc0 3))) (PreludeC-45Types-u--C-61C-61_Eq_Nat arg-4 e-4)))(else (CoreC-45Coverage-case--conflictMatchC-44findN-2914 arg-0 arg-1 arg-2 arg-3 arg-5 arg-4 (CoreC-45TT-getFnArgs arg-5))))))) -(define CoreC-45Coverage-n--11209-4427-u--emptyRHSalt (lambda (arg-1 arg-2 arg-3 arg-4 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (vector 0 e-1 e-2 e-3 (CoreC-45Coverage-emptyRHS arg-6 e-4))))))) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (vector 1 e-6 e-7 (CoreC-45Coverage-emptyRHS arg-6 e-8)))))) ((2) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (vector 2 e-10 (CoreC-45Coverage-emptyRHS arg-6 e-11))))) (else (let ((e-13 (vector-ref sc0 1))) (vector 3 (CoreC-45Coverage-emptyRHS arg-6 e-13)))))))) -(define CoreC-45Coverage-n--12105-5281-u--dropRep (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (if (null? sc0) '() (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 2))) (cons e-2 (CoreC-45Coverage-n--12105-5281-u--dropRep arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (DataC-45List-filter (lambda (eta-0) (let ((sc2 (CoreC-45Coverage-tagIs e-6 eta-0))) (cond ((equal? sc2 0) 1) (else 0)))) e-3)))))(else (cons e-2 (CoreC-45Coverage-n--12105-5281-u--dropRep arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3))))))))))) -(define CoreC-45Coverage-n--12945-6079-u--dropPos (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (if (null? sc0) '() (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (CoreC-45Coverage-case--eraseAppsC-44dropPos-6095 arg-1 arg-2 e-2 e-3 arg-5 arg-4 arg-3 (PreludeC-45Types-elem (cons (lambda (arg-7) (lambda (arg-8) (PreludeC-45Types-u--C-61C-61_Eq_Nat arg-7 arg-8))) (lambda (arg-7) (lambda (arg-8) (PreludeC-45Types-u--C-47C-61_Eq_Nat arg-7 arg-8)))) arg-4 arg-5)))))))) -(define CoreC-45Coverage-n--9308-2762-u--conflictTm (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 3))) (CoreC-45Coverage-case--conflictMatchC-44conflictTm-2978 arg-0 arg-1 arg-2 arg-3 e-8 e-9 e-10 arg-5 (CoreC-45TT-getFnArgs arg-5))))))(else (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (CoreC-45Coverage-case--conflictMatchC-44conflictTm-3056 arg-0 arg-1 arg-2 arg-3 e-2 e-3 e-4 arg-4 (CoreC-45TT-getFnArgs arg-4))))))(else (CoreC-45Coverage-case--conflictMatchC-44conflictTm-3124 arg-0 arg-1 arg-2 arg-3 arg-5 arg-4 (CoreC-45TT-getFnArgs arg-4)))))))))) -(define CoreC-45Coverage-n--9802-3202-u--conflictNF (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (let ((e-31 (vector-ref sc0 1))) (let ((e-32 (vector-ref sc0 2))) (let ((e-34 (vector-ref sc0 4))) (let ((u--xC-39 (vector 2 (CoreC-45Name-u--show_Show_Name e-32) arg-6))) (lambda (eta-0) (let ((act-24 (((e-34 arg-4) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 1 e-31 (vector 0 ) u--xC-39))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((CoreC-45Coverage-n--9802-3202-u--conflictNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (bs+ arg-6 1 63) arg-7 e-5) eta-0)))))))))))) ((1) (let ((e-37 (vector-ref sc0 2))) (let ((e-38 (vector-ref sc0 3))) (let ((sc1 e-37)) (case (vector-ref sc1 0) ((1) (let ((e-40 (vector-ref sc1 1))) (let ((e-41 (vector-ref sc1 2))) (let ((sc2 e-40)) (case (vector-ref sc2 0) ((0) (let ((sc3 e-38)) (if (null? sc3) (lambda (eta-0) (let ((act-24 (CoreC-45Context-clearDefs arg-4 eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-5 arg-0 e-5 arg-3 arg-7 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (vector 1 (vector 1 (cons (cons e-41 e-6) '())))))))))))))) (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((2) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-3 (vector-ref sc4 3))) (let ((e-4 (vector-ref sc4 4))) (let ((e-5 (vector-ref sc4 5))) (let ((sc5 arg-8)) (case (vector-ref sc5 0) ((2) (let ((e-16 (vector-ref sc5 1))) (let ((e-17 (vector-ref sc5 2))) (let ((e-18 (vector-ref sc5 3))) (let ((e-19 (vector-ref sc5 4))) (let ((e-20 (vector-ref sc5 5))) (CoreC-45Coverage-case--conflictC-44conflictNF-3473 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-16 e-1 e-5 e-4 e-3 e-2 e-20 e-19 e-18 e-17 arg-6 (PreludeC-45EqOrd-u--C-61C-61_Eq_Int e-3 e-18))))))))(else (lambda (eta-0) (vector 1 (vector 1 '())))))))))))) ((3) (let ((e-7 (vector-ref sc4 1))) (let ((e-8 (vector-ref sc4 2))) (let ((e-9 (vector-ref sc4 3))) (let ((e-10 (vector-ref sc4 4))) (let ((e-11 (vector-ref sc4 5))) (let ((sc5 arg-8)) (case (vector-ref sc5 0) ((3) (let ((e-22 (vector-ref sc5 1))) (let ((e-23 (vector-ref sc5 2))) (let ((e-24 (vector-ref sc5 3))) (let ((e-25 (vector-ref sc5 4))) (let ((e-26 (vector-ref sc5 5))) (CoreC-45Coverage-case--conflictC-44conflictNF-3583 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-22 e-7 e-11 e-10 e-9 e-8 e-26 e-25 e-24 e-23 arg-6 (CoreC-45Name-u--C-61C-61_Eq_Name e-8 e-23))))))))(else (lambda (eta-0) (vector 1 (vector 1 '())))))))))))) ((8) (let ((e-13 (vector-ref sc4 1))) (let ((e-14 (vector-ref sc4 2))) (let ((sc5 arg-8)) (case (vector-ref sc5 0) ((8) (let ((e-28 (vector-ref sc5 1))) (let ((e-29 (vector-ref sc5 2))) (lambda (eta-0) (CoreC-45Coverage-case--conflictC-44conflictNF-3693 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-28 e-13 e-14 e-29 arg-6 (CoreC-45TT-u--C-61C-61_Eq_Constant e-14 e-29) eta-0)))))(else (lambda (eta-0) (vector 1 (vector 1 '())))))))))(else (lambda (eta-0) (vector 1 (vector 1 '())))))))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((2) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-3 (vector-ref sc2 3))) (let ((e-4 (vector-ref sc2 4))) (let ((e-5 (vector-ref sc2 5))) (let ((sc3 arg-8)) (case (vector-ref sc3 0) ((2) (let ((e-16 (vector-ref sc3 1))) (let ((e-17 (vector-ref sc3 2))) (let ((e-18 (vector-ref sc3 3))) (let ((e-19 (vector-ref sc3 4))) (let ((e-20 (vector-ref sc3 5))) (CoreC-45Coverage-case--conflictC-44conflictNF-3473 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-16 e-1 e-5 e-4 e-3 e-2 e-20 e-19 e-18 e-17 arg-6 (PreludeC-45EqOrd-u--C-61C-61_Eq_Int e-3 e-18))))))))(else (lambda (eta-0) (vector 1 (vector 1 '())))))))))))) ((3) (let ((e-7 (vector-ref sc2 1))) (let ((e-8 (vector-ref sc2 2))) (let ((e-9 (vector-ref sc2 3))) (let ((e-10 (vector-ref sc2 4))) (let ((e-11 (vector-ref sc2 5))) (let ((sc3 arg-8)) (case (vector-ref sc3 0) ((3) (let ((e-22 (vector-ref sc3 1))) (let ((e-23 (vector-ref sc3 2))) (let ((e-24 (vector-ref sc3 3))) (let ((e-25 (vector-ref sc3 4))) (let ((e-26 (vector-ref sc3 5))) (CoreC-45Coverage-case--conflictC-44conflictNF-3583 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-22 e-7 e-11 e-10 e-9 e-8 e-26 e-25 e-24 e-23 arg-6 (CoreC-45Name-u--C-61C-61_Eq_Name e-8 e-23))))))))(else (lambda (eta-0) (vector 1 (vector 1 '())))))))))))) ((8) (let ((e-13 (vector-ref sc2 1))) (let ((e-14 (vector-ref sc2 2))) (let ((sc3 arg-8)) (case (vector-ref sc3 0) ((8) (let ((e-28 (vector-ref sc3 1))) (let ((e-29 (vector-ref sc3 2))) (lambda (eta-0) (CoreC-45Coverage-case--conflictC-44conflictNF-3693 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-28 e-13 e-14 e-29 arg-6 (CoreC-45TT-u--C-61C-61_Eq_Constant e-14 e-29) eta-0)))))(else (lambda (eta-0) (vector 1 (vector 1 '())))))))))(else (lambda (eta-0) (vector 1 (vector 1 '()))))))))))))(else (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((2) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((e-3 (vector-ref sc1 3))) (let ((e-4 (vector-ref sc1 4))) (let ((e-5 (vector-ref sc1 5))) (let ((sc2 arg-8)) (case (vector-ref sc2 0) ((2) (let ((e-16 (vector-ref sc2 1))) (let ((e-17 (vector-ref sc2 2))) (let ((e-18 (vector-ref sc2 3))) (let ((e-19 (vector-ref sc2 4))) (let ((e-20 (vector-ref sc2 5))) (CoreC-45Coverage-case--conflictC-44conflictNF-3473 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-16 e-1 e-5 e-4 e-3 e-2 e-20 e-19 e-18 e-17 arg-6 (PreludeC-45EqOrd-u--C-61C-61_Eq_Int e-3 e-18))))))))(else (lambda (eta-0) (vector 1 (vector 1 '())))))))))))) ((3) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((e-9 (vector-ref sc1 3))) (let ((e-10 (vector-ref sc1 4))) (let ((e-11 (vector-ref sc1 5))) (let ((sc2 arg-8)) (case (vector-ref sc2 0) ((3) (let ((e-22 (vector-ref sc2 1))) (let ((e-23 (vector-ref sc2 2))) (let ((e-24 (vector-ref sc2 3))) (let ((e-25 (vector-ref sc2 4))) (let ((e-26 (vector-ref sc2 5))) (CoreC-45Coverage-case--conflictC-44conflictNF-3583 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-22 e-7 e-11 e-10 e-9 e-8 e-26 e-25 e-24 e-23 arg-6 (CoreC-45Name-u--C-61C-61_Eq_Name e-8 e-23))))))))(else (lambda (eta-0) (vector 1 (vector 1 '())))))))))))) ((8) (let ((e-13 (vector-ref sc1 1))) (let ((e-14 (vector-ref sc1 2))) (let ((sc2 arg-8)) (case (vector-ref sc2 0) ((8) (let ((e-28 (vector-ref sc2 1))) (let ((e-29 (vector-ref sc2 2))) (lambda (eta-0) (CoreC-45Coverage-case--conflictC-44conflictNF-3693 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-28 e-13 e-14 e-29 arg-6 (CoreC-45TT-u--C-61C-61_Eq_Constant e-14 e-29) eta-0)))))(else (lambda (eta-0) (vector 1 (vector 1 '())))))))))(else (lambda (eta-0) (vector 1 (vector 1 '()))))))))))))(else (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((sc1 arg-8)) (case (vector-ref sc1 0) ((2) (let ((e-16 (vector-ref sc1 1))) (let ((e-17 (vector-ref sc1 2))) (let ((e-18 (vector-ref sc1 3))) (let ((e-19 (vector-ref sc1 4))) (let ((e-20 (vector-ref sc1 5))) (CoreC-45Coverage-case--conflictC-44conflictNF-3473 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-16 e-1 e-5 e-4 e-3 e-2 e-20 e-19 e-18 e-17 arg-6 (PreludeC-45EqOrd-u--C-61C-61_Eq_Int e-3 e-18))))))))(else (lambda (eta-0) (vector 1 (vector 1 '())))))))))))) ((3) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (let ((e-10 (vector-ref sc0 4))) (let ((e-11 (vector-ref sc0 5))) (let ((sc1 arg-8)) (case (vector-ref sc1 0) ((3) (let ((e-22 (vector-ref sc1 1))) (let ((e-23 (vector-ref sc1 2))) (let ((e-24 (vector-ref sc1 3))) (let ((e-25 (vector-ref sc1 4))) (let ((e-26 (vector-ref sc1 5))) (CoreC-45Coverage-case--conflictC-44conflictNF-3583 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-22 e-7 e-11 e-10 e-9 e-8 e-26 e-25 e-24 e-23 arg-6 (CoreC-45Name-u--C-61C-61_Eq_Name e-8 e-23))))))))(else (lambda (eta-0) (vector 1 (vector 1 '())))))))))))) ((8) (let ((e-13 (vector-ref sc0 1))) (let ((e-14 (vector-ref sc0 2))) (let ((sc1 arg-8)) (case (vector-ref sc1 0) ((8) (let ((e-28 (vector-ref sc1 1))) (let ((e-29 (vector-ref sc1 2))) (lambda (eta-0) (CoreC-45Coverage-case--conflictC-44conflictNF-3693 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-28 e-13 e-14 e-29 arg-6 (CoreC-45TT-u--C-61C-61_Eq_Constant e-14 e-29) eta-0)))))(else (lambda (eta-0) (vector 1 (vector 1 '())))))))))(else (lambda (eta-0) (vector 1 (vector 1 '()))))))))))) -(define CoreC-45Coverage-n--9802-3201-u--conflictArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 ext-0) (let ((sc0 arg-7)) (if (null? sc0) (let ((sc1 arg-8)) (if (null? sc1) (vector 1 (vector 1 '())) (vector 1 (vector 1 '())))) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 arg-8)) (if (null? sc1) (vector 1 (vector 1 '())) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (let ((act-24 ((CoreC-45Normalise-evalClosure arg-5 arg-0 arg-4 e-2) ext-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((CoreC-45Normalise-evalClosure arg-5 '() arg-4 e-6) ext-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-26 ((CoreC-45Coverage-n--9802-3202-u--conflictNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-8) ext-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc4 1))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((act-27 (CoreC-45Coverage-n--9802-3201-u--conflictArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3 e-7 ext-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc6 1))) (let ((sc7 e-10)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (vector 1 (vector 1 (PreludeC-45TypesC-45List-C-43C-43 e-1 e-4))))) (else (vector 1 (vector 0 )))))))))))) (else (vector 1 (vector 0 )))))))))))))))))))))))))))))) -(define CoreC-45Coverage-n--9308-2763-u--conflictArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (if (null? sc0) 1 (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (PreludeC-45Basics-C-124C-124 (PreludeC-45Basics-C-38C-38 (CoreC-45Name-u--C-61C-61_Eq_Name arg-4 e-6) (lambda () (CoreC-45Coverage-n--9308-2762-u--conflictTm arg-0 arg-1 arg-2 arg-3 arg-5 e-7))) (lambda () (CoreC-45Coverage-n--9308-2763-u--conflictArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3)))))))))))) -(define CoreC-45Coverage-n--13127-6259-u--close (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (CoreC-45TTC-45SubstEnv-substs (CoreC-45Coverage-n--13127-6258-u--mkSubstEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 0 arg-7) arg-8))) -(define CoreC-45Coverage-n--9308-2760-u--clash (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((2) (let ((e-14 (vector-ref sc1 1))) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((1) (let ((e-20 (vector-ref sc2 2))) (let ((sc3 e-20)) (case (vector-ref sc3 0) ((2) (let ((e-22 (vector-ref sc3 1))) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int e-14 e-22)))(else (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((9) (DataC-45Maybe-isJust (CoreC-45TT-isCon e-2))) ((11) (DataC-45Maybe-isJust (CoreC-45TT-isCon e-2)))(else 1))))))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (DataC-45Maybe-isJust (CoreC-45TT-isCon e-2))) ((11) (DataC-45Maybe-isJust (CoreC-45TT-isCon e-2)))(else 1)))))))) ((3) (let ((e-16 (vector-ref sc1 1))) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((1) (let ((e-26 (vector-ref sc2 2))) (let ((sc3 e-26)) (case (vector-ref sc3 0) ((3) (let ((e-28 (vector-ref sc3 1))) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int e-16 e-28)))(else (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((9) (DataC-45Maybe-isJust (CoreC-45TT-isCon e-2))) ((11) (DataC-45Maybe-isJust (CoreC-45TT-isCon e-2)))(else 1))))))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (DataC-45Maybe-isJust (CoreC-45TT-isCon e-2))) ((11) (DataC-45Maybe-isJust (CoreC-45TT-isCon e-2)))(else 1))))))))(else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((9) (DataC-45Maybe-isJust (CoreC-45TT-isCon e-2))) ((11) (DataC-45Maybe-isJust (CoreC-45TT-isCon e-2)))(else 1)))))))) ((9) (let ((e-6 (vector-ref sc0 2))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((9) (let ((e-32 (vector-ref sc1 2))) (CoreC-45TT-u--C-47C-61_Eq_Constant e-6 e-32))) ((1) (let ((e-35 (vector-ref sc1 2))) (DataC-45Maybe-isJust (CoreC-45TT-isCon e-35)))) ((11) 0)(else 1))))) ((11) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((1) (let ((e-41 (vector-ref sc1 2))) (DataC-45Maybe-isJust (CoreC-45TT-isCon e-41)))) ((9) 0)(else 1))))(else 1))))) -(define CoreC-45Coverage-n--12212-5373-u--buildArgsAlt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 ext-0) (let ((sc0 arg-14)) (if (null? sc0) (vector 1 '()) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 2))) (let ((act-24 ((CoreC-45Coverage-n--12212-5372-u--buildArgAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-2) ext-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc2 1))) (let ((act-25 (CoreC-45Coverage-n--12212-5373-u--buildArgsAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 (CoreC-45Coverage-addNot arg-3 arg-0 e-6 arg-13) e-3 ext-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc3 1))) (vector 1 (PreludeC-45TypesC-45List-C-43C-43 e-9 e-10))))))))))))))(else (let ((act-24 ((CoreC-45Coverage-n--12212-5372-u--buildArgAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-2) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Coverage-n--12212-5373-u--buildArgsAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-3 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (PreludeC-45TypesC-45List-C-43C-43 e-5 e-6))))))))))))))))))))) -(define CoreC-45Coverage-n--12212-5372-u--buildArgAlt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((u--l (CoreC-45TTC-45SizeOf-mkSizeOf e-3))) (let ((u--con (vector 1 arg-11 (vector 2 e-2 u--l) e-1))) (let ((u--psC-39 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45TT-substName arg-4 (CoreC-45TT-apply arg-11 u--con (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (vector 1 arg-11 (vector 0 ) eta-1)) e-3)) eta-0)) arg-7))) (CoreC-45Coverage-buildArgs arg-12 (PreludeC-45TypesC-45List-C-43C-43 e-3 arg-0) arg-11 arg-10 (CoreC-45Coverage-weakenNs u--l (cons (cons arg-3 e-2) arg-9)) (CoreC-45Coverage-weakenNs u--l arg-13) u--psC-39 e-4))))))))) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (let ((u--l (CoreC-45TTC-45SizeOf-mkSizeOf (cons e-6 (cons e-7 '()))))) (let ((u--psC-39 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45TT-substName arg-4 (vector 7 arg-11 (vector 2 ) (vector 1 arg-11 (vector 0 ) e-6) (vector 1 arg-11 (vector 0 ) e-7)) eta-0)) arg-7))) (CoreC-45Coverage-buildArgs arg-12 (cons e-6 (cons e-7 arg-0)) arg-11 arg-10 (CoreC-45Coverage-weakenNs u--l arg-9) (CoreC-45Coverage-weakenNs u--l arg-13) u--psC-39 e-8))))))) ((2) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((u--psC-39 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45TT-substName arg-4 (vector 9 arg-11 e-10) eta-0)) arg-7))) (CoreC-45Coverage-buildArgs arg-12 arg-0 arg-11 arg-10 arg-9 arg-13 u--psC-39 e-11))))) (else (let ((e-13 (vector-ref sc0 1))) (CoreC-45Coverage-buildArgs arg-12 arg-0 arg-11 arg-10 arg-9 arg-13 arg-7 e-13))))))) -(define CoreC-45Coverage-n--10931-4187-u--addTy (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 ext-0) (let ((act-24 ((CoreC-45Context-lookupCtxtExact arg-8 (let ((sc0 arg-6)) (let ((e-0 (vector-ref sc0 1))) e-0))) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((_-0 (vector 1 e-1))) (CoreC-45Coverage-case--caseC-32blockC-32inC-32getConsC-44addTy-4226 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-1 _-0 (cons (let ((sc2 e-1)) (let ((e-17 (vector-ref sc2 18))) e-17)) (let ((sc2 e-1)) (let ((e-2 (vector-ref sc2 3))) e-2))) ext-0))))(else (vector 1 (vector 0 )))))))))))) -(define CoreC-45Coverage-weakenNs (lambda (arg-3 arg-4) (let ((sc0 arg-4)) (if (null? sc0) '() (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (cons (cons (CoreC-45TT-u--weakenNs_Weaken_Var arg-3 e-6) e-7) (CoreC-45Coverage-weakenNs arg-3 e-3))))))))))) -(define CoreC-45Coverage-tagIsNot (lambda (arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 (PreludeC-45Types-elem (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) e-2 arg-1))) (cond ((equal? sc1 0) 1) (else 0))))) ((2) 0) ((1) 0) (else 1))))) -(define CoreC-45Coverage-tagIs (lambda (arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 2))) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-1 e-2))) ((2) 1) ((1) 1) (else 0))))) -(define CoreC-45Coverage-replaceDefaults (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((8) (vector 1 arg-5)) ((10) (vector 1 arg-5))(else (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (CoreC-45Coverage-n--12105-5280-u--rep arg-1 arg-5 arg-4 arg-3 arg-2 arg-0 eta-0 eta-1))) arg-5 '() ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (CoreC-45Coverage-n--12105-5281-u--dropRep arg-1 arg-5 arg-4 arg-3 arg-2 arg-0 (PreludeC-45Interfaces-concat (cons (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (cons (lambda (arg-6) (lambda (arg-7) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-6 arg-7))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) e-5))))))))))))) -(define CoreC-45Coverage-mkAlt (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-3)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (vector 0 e-2 e-6 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (vector 2 "m" eta-0)) (PreludeC-45Types-take e-7 (PreludeC-45Types-u--rangeFrom_Range_C-36a (cons (vector 0 (vector 0 (lambda (arg-4) (lambda (arg-5) (bs+ arg-4 arg-5 63))) (lambda (arg-4) (lambda (arg-5) (bs* arg-4 arg-5 63))) (lambda (arg-6) (blodwen-toSignedInt arg-6 63))) (lambda (arg-184) (lambda (arg-185) (PreludeC-45Num-u--div_Integral_Int arg-184 arg-185))) (lambda (arg-186) (lambda (arg-187) (PreludeC-45Num-u--mod_Integral_Int arg-186 arg-187)))) (cons (vector 0 (cons (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Int arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Int arg-383 arg-384)))) (vector 0 (vector 0 (lambda (arg-4) (lambda (arg-5) (bs+ arg-4 arg-5 63))) (lambda (arg-4) (lambda (arg-5) (bs* arg-4 arg-5 63))) (lambda (arg-6) (blodwen-toSignedInt arg-6 63))) (lambda (arg-56) (PreludeC-45Num-u--negate_Neg_Int arg-56)) (lambda (arg-57) (lambda (arg-58) (PreludeC-45Num-u--C-45_Neg_Int arg-57 arg-58)))))) (blodwen-toSignedInt 0 63)))) (CoreC-45CaseTree-u--weakenNs_Weaken_CaseTree (CoreC-45TTC-45SizeOf-map (CoreC-45TTC-45SizeOf-take e-7)) (CoreC-45Coverage-emptyRHS arg-1 arg-2))))))))))) -(define CoreC-45Coverage-match (lambda (arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) 0) ((1) (let ((e-15 (vector-ref sc0 2))) (let ((e-16 (vector-ref sc0 3))) (let ((sc1 e-15)) (case (vector-ref sc1 0) ((0) 0)(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((1) (let ((e-48 (vector-ref sc1 3))) (CoreC-45Name-u--C-61C-61_Eq_Name e-16 e-48)))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((10) 0)(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((11) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((11) 0)(else 1))))(else 1))))))))))))))) ((4) (let ((e-19 (vector-ref sc0 2))) (let ((e-20 (vector-ref sc0 3))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((4) (let ((e-51 (vector-ref sc1 2))) (let ((e-52 (vector-ref sc1 3))) (PreludeC-45Basics-C-38C-38 (CoreC-45Coverage-match e-19 e-51) (lambda () (CoreC-45Coverage-match e-20 e-52))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((10) 0)(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((11) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((11) 0)(else 1))))(else 1)))))))))))) ((5) (let ((e-25 (vector-ref sc0 4))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((5) (let ((e-57 (vector-ref sc1 4))) (CoreC-45Coverage-match e-25 e-57)))(else (CoreC-45Coverage-match e-25 arg-2)))))) ((6) (let ((e-29 (vector-ref sc0 3))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((6) (let ((e-61 (vector-ref sc1 3))) (CoreC-45Coverage-match e-29 e-61)))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((10) 0)(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((11) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((11) 0)(else 1))))(else 1))))))))))) ((7) (let ((e-34 (vector-ref sc0 4))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((7) (let ((e-66 (vector-ref sc1 4))) (CoreC-45Coverage-match e-34 e-66)))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((10) 0)(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((11) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((11) 0)(else 1))))(else 1))))))))))) ((8) (let ((e-38 (vector-ref sc0 3))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((8) (let ((e-70 (vector-ref sc1 3))) (CoreC-45Coverage-match e-38 e-70)))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((10) 0)(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((11) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((11) 0)(else 1))))(else 1))))))))))) ((9) (let ((e-41 (vector-ref sc0 2))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((9) (let ((e-73 (vector-ref sc1 2))) (CoreC-45TT-u--C-61C-61_Eq_Constant e-41 e-73)))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((10) 0)(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((11) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((11) 0)(else 1))))(else 1))))))))))) ((10) 0)(else (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((10) 0)(else (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((11) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((11) 0)(else 1))))(else 1))))))))))) -(define CoreC-45Coverage-isEmpty (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((act-24 (CoreC-45Context-lookupDefExact e-2 (let ((sc1 arg-2)) (let ((e-0 (vector-ref sc1 1))) e-0)) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-7 (vector-ref sc2 1))) (let ((act-25 (CoreC-45ContextC-45Log-log arg-1 "coverage.empty" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Checking type: " (CoreC-45Context-u--show_Show_Def e-7))) ext-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-8 (vector-ref sc3 1))) (vector 0 e-8))) (else (let ((_-0 (vector 1 e-7))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((6) (let ((e-0 (vector-ref sc4 1))) (let ((e-15 (vector-ref sc4 2))) (let ((e-14 (vector-ref sc4 3))) (let ((e-13 (vector-ref sc4 4))) (let ((e-12 (vector-ref sc4 5))) (let ((e-11 (vector-ref sc4 6))) (let ((e-10 (vector-ref sc4 7))) (let ((e-9 (vector-ref sc4 8))) (let ((u--nty (vector 6 e-0 e-15 e-14 e-13 e-12 e-11 e-10 e-9))) (CoreC-45Coverage-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32isEmpty-4014 arg-0 e-5 e-4 e-3 e-2 e-1 arg-3 arg-2 arg-1 e-0 e-15 e-14 e-13 e-11 e-9 _-0 e-10 e-12 u--nty (let ((sc5 (let ((sc6 e-12)) (let ((e-16 (cdr sc6))) e-16)))) (cond ((equal? sc5 0) 1) (else 0))) ext-0)))))))))))(else (vector 1 1)))))))))))(else (vector 1 1)))))))))))))))(else (vector 1 1)))))) -(define CoreC-45Coverage-getNonCoveringRefs (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact arg-2 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((u--ds (DataC-45List-mapMaybe (lambda (eta-0) (CoreC-45Coverage-n--12538-5695-u--noAssert arg-2 arg-1 arg-0 eta-0)) (LibrariesC-45DataC-45NameMap-toList (CoreC-45Context-refersTo e-1))))) (let ((act-26 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-2) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-2)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) eta-0 eta-1))) u--ds '() ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((u--cases (DataC-45List-filter (lambda (eta-0) (CoreC-45Coverage-n--12538-5694-u--isCase arg-2 arg-1 arg-0 eta-0)) e-7))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (CoreC-45Coverage-getNonCoveringRefs arg-0 arg-1 eta-0 eta-1))) u--cases '() ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (CoreC-45Core-filterM (lambda (eta-0) (lambda (eta-1) (CoreC-45Coverage-n--12538-5696-u--notCovering arg-2 arg-1 arg-0 e-5 eta-0 eta-1))) u--ds ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (vector 1 (PreludeC-45TypesC-45List-C-43C-43 e-9 (PreludeC-45Interfaces-concat (cons (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-3 arg-4))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) e-8)))))))))))))))))))))) (else (CoreC-45Context-undefinedName arg-0 arg-1 arg-2 ext-0)))))))))))))))) -(define CoreC-45Coverage-getMissingAlts (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((8) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((27) (lambda (eta-0) (CoreC-45Coverage-case--getMissingAlts-4598 arg-1 e-1 arg-5 arg-3 arg-2 arg-0 (DataC-45List-isNil arg-5) eta-0)))(else (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-log arg-0 "coverage.missing" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))))))))))))))))))))))))))))))))))))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Looking for missing alts at type " (CoreC-45TT-u--show_Show_Constant e-2))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (CoreC-45Coverage-case--getMissingAlts-4669 arg-0 arg-1 e-1 e-2 arg-5 arg-3 arg-2 (PreludeC-45Interfaces-any (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (lambda (eta-1) (CoreC-45CaseTree-isDefault eta-1)) arg-5) eta-0)))))))))))) ((10) (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-log arg-0 "coverage.missing" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))))))))))))))))))))))))))))))))))))))))))) (lambda () "Looking for missing alts at type Type") eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (CoreC-45Coverage-case--getMissingAlts-4748 arg-1 e-4 arg-5 arg-3 arg-2 arg-0 (PreludeC-45Interfaces-any (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (lambda (eta-1) (CoreC-45CaseTree-isDefault eta-1)) arg-5) eta-0))))))))(else (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-log arg-0 "coverage.missing" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))))))))))))))))))))))))))))))))))))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Getting constructors for: " (CoreC-45Value-u--show_Show_C-40NFC-32C-36freeC-41 arg-1 arg-4))) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45Normalise-logNF arg-1 arg-0 "coverage.missing" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))))))))))))) (lambda () "Getting constructors for") (CoreC-45Env-mkEnv arg-2 arg-1) arg-4 eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45Coverage-getCons arg-0 arg-1 arg-3 arg-4 eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (vector 1 (DataC-45List-filter (lambda (eta-1) (CoreC-45Coverage-n--11390-4800-u--noneOf arg-1 arg-5 arg-4 arg-3 arg-2 arg-0 arg-5 eta-1)) (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (CoreC-45Coverage-mkAlt arg-1 arg-2 (vector 2 "Coverage check") (Builtin-snd eta-1))) e-7)))))))))))))))))))))) -(define CoreC-45Coverage-getMissing (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((u--psIn (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (vector 1 arg-2 (vector 0 ) eta-0)) arg-0))) (let ((act-25 ((CoreC-45Coverage-buildArgs arg-1 arg-0 arg-2 e-5 '() '() u--psIn arg-4) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((u--pats (PreludeC-45Interfaces-concat (cons (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (cons (lambda (arg-5) (lambda (arg-6) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-5 arg-6))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) e-6))) (let ((act-26 (let ((sc2 ((PreludeC-45Types-u--null_Foldable_List u--pats)))) (cond ((equal? sc2 0) (vector 1 (vector 0 ))) (else (CoreC-45ContextC-45Log-logC arg-1 "coverage.missing" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))))))))))))) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (let ((sc3 eta-1)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (LibrariesC-45DataC-45StringC-45Extra-unlines e-7))))))) (PreludeC-45Basics-flip (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (CoreC-45Core-traverseC-39 eta-1 eta-2 '() eta-3)))) u--pats (lambda (u--pat) (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-2) (let ((sc3 eta-2)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))))))) (lambda (eta-2) (CoreC-45Context-toFullNames arg-1 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-3) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-3)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) u--pat eta-2)) eta-1)))) eta-0)) ext-0)))))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (vector 1 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45TT-apply arg-2 (vector 1 arg-2 (vector 1 ) arg-3) eta-0)) e-6)))))))))))))))))))) -(define CoreC-45Coverage-getCons (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((act-24 (CoreC-45Context-lookupDefExact e-2 (let ((sc1 arg-2)) (let ((e-0 (vector-ref sc1 1))) e-0)) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((6) (let ((e-8 (vector-ref sc3 7))) (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (CoreC-45Coverage-n--10931-4187-u--addTy arg-1 e-1 e-3 e-4 e-5 e-2 arg-2 arg-0 eta-0 eta-1))) e-8 '() ext-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-16 (vector-ref sc4 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc4 1))) (vector 1 (DataC-45List-mapMaybe (lambda (eta-0) eta-0) e-16)))))))))(else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 "Called `getCons` on something that is not a Type constructor") ext-0))))))(else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 "Called `getCons` on something that is not a Type constructor") ext-0)))))))))))))))(else (vector 1 '())))))) -(define CoreC-45Coverage-freeEnv (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (if (null? sc0) '() (let ((e-3 (cdr sc0))) (cons (vector 3 arg-0 (AlgebraC-45ZeroOneOmega-u--top_Top_ZeroOneOmega) (vector 1 ) (vector 10 arg-0 1)) (CoreC-45Coverage-freeEnv arg-0 e-3))))))) -(define CoreC-45Coverage-findTag (lambda (arg-2 arg-3 arg-5) (let ((sc0 arg-5)) (if (null? sc0) (vector 0 ) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (CoreC-45Coverage-case--findTag-5032 arg-2 arg-3 e-6 e-7 e-3 (CoreC-45TT-sameVar arg-2 e-6))))))))))) -(define CoreC-45Coverage-eraseApps (lambda (arg-1 arg-2) (CoreC-45Coverage-case--eraseApps-6141 arg-2 arg-1 (CoreC-45TT-getFnArgs arg-2)))) -(define CoreC-45Coverage-emptyRHS (lambda (arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (vector 0 e-1 e-2 e-4 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45Coverage-n--11209-4427-u--emptyRHSalt e-1 e-5 e-4 e-2 arg-1 eta-0)) e-5))))))) ((1) (let ((e-7 (vector-ref sc0 1))) (vector 1 e-7 (vector 10 arg-1 1))))(else arg-2))))) -(define CoreC-45Coverage-conflictMatch (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (if (null? sc0) 1 (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (PreludeC-45Basics-C-124C-124 (CoreC-45Coverage-n--9308-2763-u--conflictArgs arg-0 e-6 e-7 e-3 e-6 e-7 e-3) (lambda () (CoreC-45Coverage-conflictMatch arg-0 e-3)))))))))))) -(define CoreC-45Coverage-conflict (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 ((CoreC-45Context-lookupCtxtExact arg-5 (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) e-0))) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((_-0 (vector 1 e-1))) (CoreC-45Coverage-case--caseC-32blockC-32inC-32conflict-3789 arg-0 arg-5 arg-4 arg-3 arg-2 arg-1 e-1 _-0 (cons (let ((sc2 e-1)) (let ((e-17 (vector-ref sc2 18))) e-17)) (let ((sc2 e-1)) (let ((e-2 (vector-ref sc2 3))) e-2))) ext-0)))) (else (vector 1 1))))))))))) -(define CoreC-45Coverage-clauseMatches (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 ((CoreC-45Coverage-eraseApps arg-1 (CoreC-45Coverage-n--13127-6259-u--close arg-0 arg-4 arg-3 arg-2 arg-1 arg-0 (CoreC-45TT-getLoc arg-3) arg-2 arg-3)) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((u--lhs e-5)) (let ((act-25 (CoreC-45Context-toResolvedNames arg-1 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) u--lhs ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (CoreC-45Context-toResolvedNames arg-1 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) arg-4 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (vector 1 (CoreC-45Coverage-match e-6 e-7)))))))))))))))))))) -(define CoreC-45Coverage-checkMatched (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (CoreC-45ContextC-45Log-logTerm '() arg-0 "coverage" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Checking coverage for") arg-2 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((act-25 (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) arg-2 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (CoreC-45ContextC-45Log-logC arg-0 "coverage" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda (eta-0) (vector 1 (PreludeC-45TypesC-45String-C-43C-43 "(raw term: " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-6) ")")))) ext-0)))))))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 ((CoreC-45Coverage-eraseApps arg-0 arg-2) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (CoreC-45ContextC-45Log-logTerm '() arg-0 "coverage" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Erased to") e-7 ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-28 (CoreC-45ContextC-45Log-logC arg-0 "coverage" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-0) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-1) (lambda (eta-2) (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-3) (CoreC-45Context-u--full_HasNames_Clause arg-3810 arg-3811 eta-3)))) (lambda (arg-3812) (lambda (arg-3813) (lambda (eta-3) (CoreC-45Context-u--resolved_HasNames_Clause arg-3812 arg-3813 eta-3))))) eta-1 eta-2))) arg-1 '() eta-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (vector 1 (PreludeC-45TypesC-45String-C-43C-43 "Against clauses:\u000a" (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--show_Show_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-indent 2 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vcat (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String (CoreC-45Context-u--show_Show_Clause eta-1))) e-9)))))))))))) ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (CoreC-45Coverage-n--13215-6346-u--tryClauses arg-2 arg-1 arg-0 arg-1 e-7 ext-0)))))))))))))))))))))))) -(define CoreC-45Coverage-buildArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (let ((u--fenv (CoreC-45Coverage-freeEnv arg-2 arg-1))) (lambda (eta-0) (let ((act-24 ((CoreC-45Normalise-nf arg-0 arg-1 arg-3 u--fenv e-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Coverage-replaceDefaults arg-0 arg-1 arg-2 arg-3 e-6 e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-26 ((CoreC-45Coverage-getMissingAlts arg-0 arg-1 arg-2 arg-3 e-6 e-7) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc3 1))) (let ((u--altsC-39 (PreludeC-45TypesC-45List-C-43C-43 e-7 e-8))) (let ((u--altsK (PreludeC-45Types-maybe (lambda () u--altsC-39) (lambda () (lambda (u--t) (DataC-45List-filter (lambda (eta-1) (CoreC-45Coverage-tagIs u--t eta-1)) u--altsC-39))) (CoreC-45Coverage-findTag e-2 arg-1 arg-4)))) (let ((u--altsN (PreludeC-45Types-maybe (lambda () u--altsK) (lambda () (lambda (u--ts) (DataC-45List-filter (lambda (eta-1) (CoreC-45Coverage-tagIsNot u--ts eta-1)) u--altsK))) (CoreC-45Coverage-findTag e-2 arg-1 arg-5)))) (CoreC-45Coverage-n--12212-5373-u--buildArgsAlt arg-1 e-5 e-4 e-2 e-1 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-0 arg-5 u--altsN eta-0)))))))))))))))))))))))))) ((1) (lambda (eta-0) (vector 1 '()))) ((2) (lambda (eta-0) (vector 1 (cons arg-6 '())))) (else (lambda (eta-0) (vector 1 '()))))))) -(define CoreC-45Coverage-altMatch (lambda (arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((3) 0)(else (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((1) 0)(else 1)))) ((0) (let ((e-6 (vector-ref sc0 2))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((0) (let ((e-18 (vector-ref sc1 2))) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int e-6 e-18)))(else 1))))) ((2) (let ((e-10 (vector-ref sc0 1))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((2) (let ((e-22 (vector-ref sc1 1))) (CoreC-45TT-u--C-61C-61_Eq_Constant e-10 e-22)))(else 1)))))(else 1)))))))) -(define CoreC-45Coverage-addNot (lambda (arg-1 arg-2 arg-4 arg-5) (let ((sc0 arg-5)) (if (null? sc0) (cons (cons arg-1 (cons arg-4 '())) '()) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (CoreC-45Coverage-case--addNot-5123 arg-1 arg-2 e-6 e-7 e-3 arg-4 (CoreC-45TT-sameVar arg-1 e-6))))))))))) -(define CoreC-45CaseBuilder-with--groupConsC-44addConstG-8139 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((2) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((sc1 e-8)) (if (null? sc1) (lambda (clam-2) (let ((sc2 arg-13)) (let ((act-24 ((CoreC-45CaseBuilder-n--14185-7290-u--addConstG arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-9 arg-12 arg-17 arg-16 arg-15 arg-14) clam-2))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (vector 1 (cons arg-11 e-5))))))))) (let ((e-10 (car sc1))) (let ((e-11 (cdr sc1))) (let ((sc2 e-10)) (case (vector-ref sc2 0) ((0) (let ((e-14 (vector-ref sc2 1))) (let ((e-15 (vector-ref sc2 2))) (let ((e-16 (vector-ref sc2 3))) (let ((e-17 (vector-ref sc2 4))) (let ((sc3 arg-13)) (case (vector-ref sc3 0) ((2) (let ((u--newclause (vector 0 e-14 arg-17 arg-16 arg-15))) (lambda (eta-0) (vector 1 (cons (vector 2 e-7 (cons (vector 0 e-14 e-15 e-16 e-17) (PreludeC-45TypesC-45List-C-43C-43 e-11 (cons u--newclause '())))) arg-14)))))(else (lambda (clam-0) (let ((sc3 arg-13)) (let ((act-24 ((CoreC-45CaseBuilder-n--14185-7290-u--addConstG arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-9 arg-12 arg-17 arg-16 arg-15 arg-14) clam-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (vector 1 (cons arg-11 e-5)))))))))))))))))(else (lambda (clam-1) (let ((sc2 arg-13)) (let ((act-24 ((CoreC-45CaseBuilder-n--14185-7290-u--addConstG arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-9 arg-12 arg-17 arg-16 arg-15 arg-14) clam-1))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (vector 1 (cons arg-11 e-5)))))))))))))))))))(else (lambda (clam-3) (let ((sc0 arg-13)) (let ((act-24 ((CoreC-45CaseBuilder-n--14185-7290-u--addConstG arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-9 arg-12 arg-17 arg-16 arg-15 arg-14) clam-3))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (cons arg-11 e-5)))))))))))))) -(define CoreC-45CaseBuilder-with--groupConsC-44addDelayG-7966 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (let ((sc1 e-9)) (if (null? sc1) (lambda (clam-2) (let ((sc2 arg-12)) (let ((act-24 ((CoreC-45CaseBuilder-n--14185-7289-u--addDelayG arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-9 arg-18 arg-17 arg-16 arg-15 arg-14 arg-13) clam-2))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (vector 1 (cons arg-11 e-5))))))))) (let ((e-11 (car sc1))) (let ((e-12 (cdr sc1))) (let ((sc2 e-11)) (case (vector-ref sc2 0) ((0) (let ((e-15 (vector-ref sc2 1))) (let ((e-16 (vector-ref sc2 2))) (let ((e-17 (vector-ref sc2 3))) (let ((e-18 (vector-ref sc2 4))) (let ((sc3 arg-12)) (case (vector-ref sc3 0) ((1) (let ((u--l (CoreC-45TTC-45SizeOf-mkSizeOf (cons e-7 (cons e-8 '()))))) (let ((u--newps (CoreC-45CaseBuilder-newPats (cons arg-18 (cons arg-17 '())) (vector 1 (vector 1 (vector 0 ))) e-16))) (let ((u--patsC-39 (CoreC-45CaseBuilder-updatePatNames (CoreC-45CaseBuilder-updateNames (cons (cons e-7 arg-18) (cons (cons e-8 arg-17) '()))) (CoreC-45CaseBuilder-weakenNs u--l arg-16)))) (let ((u--newclause (vector 0 e-15 (CoreC-45CaseBuilder-C-43C-43 u--newps u--patsC-39) arg-15 (CoreC-45TT-u--weakenNs_Weaken_Term u--l arg-14)))) (lambda (eta-0) (vector 1 (cons (vector 1 e-7 e-8 (cons (vector 0 e-15 e-16 e-17 e-18) (PreludeC-45TypesC-45List-C-43C-43 e-12 (cons u--newclause '())))) arg-13))))))))(else (lambda (clam-0) (let ((sc3 arg-12)) (let ((act-24 ((CoreC-45CaseBuilder-n--14185-7289-u--addDelayG arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-9 arg-18 arg-17 arg-16 arg-15 arg-14 arg-13) clam-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (vector 1 (cons arg-11 e-5)))))))))))))))))(else (lambda (clam-1) (let ((sc2 arg-12)) (let ((act-24 ((CoreC-45CaseBuilder-n--14185-7289-u--addDelayG arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-9 arg-18 arg-17 arg-16 arg-15 arg-14 arg-13) clam-1))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (vector 1 (cons arg-11 e-5))))))))))))))))))))(else (lambda (clam-3) (let ((sc0 arg-12)) (let ((act-24 ((CoreC-45CaseBuilder-n--14185-7289-u--addDelayG arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-9 arg-18 arg-17 arg-16 arg-15 arg-14 arg-13) clam-3))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (cons arg-11 e-5)))))))))))))) -(define CoreC-45CaseBuilder-with--groupConsC-44addConG-7635 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((0) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (let ((e-10 (vector-ref sc0 4))) (let ((sc1 e-10)) (if (null? sc1) (lambda (clam-2) (let ((sc2 arg-15)) (let ((act-24 ((CoreC-45CaseBuilder-n--14185-7288-u--addConG arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-9 arg-14 arg-13 arg-12 arg-19 arg-18 arg-17 arg-16) clam-2))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (vector 1 (cons arg-11 e-5))))))))) (let ((e-12 (car sc1))) (let ((e-13 (cdr sc1))) (let ((sc2 e-12)) (case (vector-ref sc2 0) ((0) (let ((e-16 (vector-ref sc2 1))) (let ((e-17 (vector-ref sc2 2))) (let ((e-18 (vector-ref sc2 3))) (let ((e-19 (vector-ref sc2 4))) (let ((sc3 arg-15)) (case (vector-ref sc3 0) ((0) (let ((e-31 (vector-ref sc3 1))) (let ((u--newps (CoreC-45CaseBuilder-newPats arg-12 e-31 e-17))) (let ((u--l (CoreC-45TTC-45SizeOf-mkSizeOf e-7))) (let ((u--patsC-39 (CoreC-45CaseBuilder-updatePatNames (CoreC-45CaseBuilder-updateNames (DataC-45List-u--zip_Zippable_List e-7 arg-12)) (CoreC-45CaseBuilder-weakenNs u--l arg-19)))) (let ((u--newclause (vector 0 e-16 (CoreC-45CaseBuilder-C-43C-43 u--newps u--patsC-39) arg-18 (CoreC-45TT-u--weakenNs_Weaken_Term u--l arg-17)))) (lambda (eta-0) (vector 1 (cons (vector 0 e-7 e-8 e-9 (cons (vector 0 e-16 e-17 e-18 e-19) (PreludeC-45TypesC-45List-C-43C-43 e-13 (cons u--newclause '())))) arg-16)))))))))(else (lambda (clam-0) (let ((sc3 arg-15)) (let ((act-24 ((CoreC-45CaseBuilder-n--14185-7288-u--addConG arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-9 arg-14 arg-13 arg-12 arg-19 arg-18 arg-17 arg-16) clam-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (vector 1 (cons arg-11 e-5)))))))))))))))))(else (lambda (clam-1) (let ((sc2 arg-15)) (let ((act-24 ((CoreC-45CaseBuilder-n--14185-7288-u--addConG arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-9 arg-14 arg-13 arg-12 arg-19 arg-18 arg-17 arg-16) clam-1))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (vector 1 (cons arg-11 e-5)))))))))))))))))))))(else (lambda (clam-3) (let ((sc0 arg-15)) (let ((act-24 ((CoreC-45CaseBuilder-n--14185-7288-u--addConG arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-9 arg-14 arg-13 arg-12 arg-19 arg-18 arg-17 arg-16) clam-3))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (cons arg-11 e-5)))))))))))))) -(define CoreC-45CaseBuilder-with--partition-5701 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-3 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 3))) (let ((e-6 (vector-ref sc0 4))) (let ((e-7 (vector-ref sc0 5))) (let ((sc1 e-3)) (if (null? sc1) (let ((sc2 arg-3)) (let ((sc3 arg-5)) (CoreC-45CaseBuilder-case--withC-32blockC-32inC-32partition-5848 arg-2 arg-1 arg-0 arg-6 arg-4 (CoreC-45CaseBuilder-clauseType arg-4 arg-6)))) (CoreC-45CaseBuilder-case--withC-32blockC-32inC-32partition-5718 arg-2 arg-1 arg-0 e-5 e-7 e-6 arg-6 arg-4 (CoreC-45CaseBuilder-clauseType arg-4 arg-6))))))))) ((1) (let ((e-8 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 3))) (let ((e-11 (vector-ref sc0 4))) (let ((e-12 (vector-ref sc0 5))) (let ((sc1 e-8)) (if (null? sc1) (let ((sc2 arg-3)) (let ((sc3 arg-5)) (CoreC-45CaseBuilder-case--withC-32blockC-32inC-32partition-5848 arg-2 arg-1 arg-0 arg-6 arg-4 (CoreC-45CaseBuilder-clauseType arg-4 arg-6)))) (CoreC-45CaseBuilder-case--withC-32blockC-32inC-32partition-5784 arg-2 arg-1 arg-0 e-10 e-12 e-11 arg-6 arg-4 (CoreC-45CaseBuilder-clauseType arg-4 arg-6)))))))))(else (let ((sc0 arg-3)) (let ((sc1 arg-5)) (CoreC-45CaseBuilder-case--withC-32blockC-32inC-32partition-5848 arg-2 arg-1 arg-0 arg-6 arg-4 (CoreC-45CaseBuilder-clauseType arg-4 arg-6))))))))) -(define CoreC-45CaseBuilder-case--getPMDefC-44getUnreachable-12295 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (CoreC-45CaseBuilder-n--19554-12276-u--getUnreachable arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (bs+ arg-9 1 63) arg-8 arg-7)) (else (cons arg-6 (CoreC-45CaseBuilder-n--19554-12276-u--getUnreachable arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (bs+ arg-9 1 63) arg-8 arg-7))))))) -(define CoreC-45CaseBuilder-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32toPatClause-11809 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 ext-0) (let ((sc0 arg-15)) (cond ((equal? sc0 0) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45CaseBuilder-argToPat arg-4 eta-0)) arg-7 '() ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (cons e-5 arg-1)))))))) (else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-6 (PreludeC-45TypesC-45String-C-43C-43 "Wrong function name in pattern LHS " (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (u--x) (CoreC-45Name-u--show_Show_Name u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Name-u--showPrec_Show_Name u--d u--x)))) (cons (lambda (u--x) (CoreC-45Name-u--show_Show_Name u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Name-u--showPrec_Show_Name u--d u--x))))) (cons arg-2 arg-5)))) ext-0)))))) -(define CoreC-45CaseBuilder-case--toPatClause-11704 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (lambda (clam-0) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((e-7 (vector-ref sc1 3))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-25 ((CoreC-45Context-getPosition arg-2 (let ((sc4 e-8)) (let ((e-0 (vector-ref sc4 1))) e-0))) clam-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc4 1))) (let ((sc5 e-9)) (let ((e-10 (car sc5))) (let ((e-4 (cdr sc5))) (let ((act-26 ((CoreC-45Context-getPosition e-7 (let ((sc6 e-8)) (let ((e-0 (vector-ref sc6 1))) e-0))) clam-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-11 (vector-ref sc6 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc6 1))) (let ((_-0 (cons e-10 e-4))) (let ((sc7 e-11)) (let ((e-13 (car sc7))) (let ((e-12 (cdr sc7))) (let ((_-1 (cons e-13 e-12))) (CoreC-45CaseBuilder-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32toPatClause-11809 arg-0 arg-1 arg-2 arg-3 arg-4 e-7 e-5 e-3 e-8 e-4 e-10 _-0 e-12 e-13 _-1 (PreludeC-45EqOrd-u--C-61C-61_Eq_Int e-10 e-13) clam-0)))))))))))))))))))))))))(else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-3 "Not a function name in pattern LHS") clam-0))))))))(else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-3 "Not a function name in pattern LHS") clam-0)))))))))) -(define CoreC-45CaseBuilder-case--patCompile-11550 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 ext-0) (let ((sc0 arg-8)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((act-24 (CoreC-45CaseBuilder-n--18726-11449-u--mkPatClausesFrom arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 0 e-2 (cons arg-0 arg-1) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45ContextC-45Log-logC arg-7 "compile.casetree" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-0) (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (eta-1) (lambda (eta-2) (CoreC-45Context-toFullNames arg-7 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-3) (CoreC-45CaseBuilder-u--full_HasNames_C-40C-40PatClauseC-32C-36varsC-41C-32C-36todoC-41 arg-3810 arg-3811 eta-3)))) (lambda (arg-3812) (lambda (arg-3813) (lambda (eta-3) (CoreC-45CaseBuilder-u--resolved_HasNames_C-40C-40PatClauseC-32C-36varsC-41C-32C-36todoC-41 arg-3812 arg-3813 eta-3))))) eta-1 eta-2))) e-5 '() eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (PreludeC-45TypesC-45String-C-43C-43 "Pattern clauses:\u000a" (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--show_Show_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-indent 2 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vcat (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (PreludeC-45Types-u--map_Functor_List eta-3 eta-4))))) (lambda (eta-1) (CoreC-45CaseBuilder-u--pretty_Pretty_C-40C-40PatClauseC-32C-36varsC-41C-32C-36todoC-41 e-2 e-2 eta-1)) e-6)))))))))))) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((act-26 (CoreC-45ContextC-45Log-log arg-7 "compile.casetree" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45CaseBuilder-u--show_Show_C-40C-40PatClauseC-32C-36varsC-41C-32C-36todoC-41 e-2 e-2 u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45CaseBuilder-u--showPrec_Show_C-40C-40PatClauseC-32C-36varsC-41C-32C-36todoC-41 e-2 e-2 u--d u--x)))) e-5)) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((act-27 (CoreC-45Core-newRef (vector "Core.CaseBuilder.PName" ) 0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 ((CoreC-45CaseBuilder-match e-2 e-2 e-8 arg-7 arg-6 arg-5 arg-4 e-5 (PreludeC-45Types-u--map_Functor_Maybe (lambda (eta-0) (CoreC-45CaseTree-u--weakenNs_Weaken_CaseTree e-3 eta-0)) arg-2)) ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (vector 1 (cons e-2 e-9)))))))))))))))))))))))))))))) -(define CoreC-45CaseBuilder-case--patCompileC-44getNames-11503 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (cons (cons (vector 2 "arg" arg-10) e-2) (CoreC-45TTC-45SizeOf-suc e-3))))))) -(define CoreC-45CaseBuilder-case--mkPat-10933 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (vector 3 arg-2 arg-1)) (else (vector 2 arg-2 (vector 1 (CoreC-45TT-u--show_Show_Constant arg-1)) 0 '())))))) -(define CoreC-45CaseBuilder-case--pickNext-9603 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 ext-0) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (vector 1 (cons arg-0 0))) (else (let ((act-24 (CoreC-45CaseBuilder-getScore arg-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((0) (vector 1 (cons arg-0 0)))(else (let ((act-25 ((CoreC-45CaseBuilder-pickNext arg-2 arg-1 arg-3 arg-9 arg-8 arg-7 arg-6 arg-5 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45CaseBuilder-tail eta-0)) arg-4)) ext-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (let ((e-4 (car sc4))) (let ((e-3 (cdr sc4))) (vector 1 (cons e-4 (+ 1 e-3))))))))))))))))(else (let ((act-25 ((CoreC-45CaseBuilder-pickNext arg-2 arg-1 arg-3 arg-9 arg-8 arg-7 arg-6 arg-5 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45CaseBuilder-tail eta-0)) arg-4)) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (let ((e-2 (car sc3))) (let ((e-3 (cdr sc3))) (vector 1 (cons e-2 (+ 1 e-3)))))))))))))))))))))))) -(define CoreC-45CaseBuilder-case--pickNext-9474 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 ext-0) (let ((sc0 arg-8)) (cond ((equal? sc0 0) (vector 1 (cons arg-0 0))) (else (let ((act-24 (CoreC-45CaseBuilder-getScore arg-1 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (let ((sc3 e-2)) (vector 1 (cons arg-0 0))))) (else (let ((e-6 (vector-ref sc2 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 42 arg-5 arg-3 e-6) ext-0))))))))))))))) -(define CoreC-45CaseBuilder-case--sameType-8932 (lambda (arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 ext-0) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 2))) (let ((act-24 ((CoreC-45Normalise-nf arg-9 arg-2 arg-11 arg-5 e-2) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (CoreC-45CaseBuilder-n--15719-8645-u--sameTypeAs arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-7 e-5 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45CaseBuilder-getFirstArgType eta-0)) arg-4) ext-0))))))))(else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 42 arg-8 arg-6 (vector 1 )) ext-0)))))) -(define CoreC-45CaseBuilder-case--sameTypeC-44sameTypeAs-8833 (lambda (arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (cond ((equal? sc0 0) (lambda (eta-0) (CoreC-45CaseBuilder-n--15719-8645-u--sameTypeAs arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-15 arg-14 arg-13 eta-0))) (else (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 42 arg-8 arg-6 (vector 1 )) eta-0))))))) -(define CoreC-45CaseBuilder-case--groupConsC-44addGroup-8359 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-22) (let ((sc0 arg-22)) (cond ((equal? sc0 0) (CoreC-45CaseBuilder-n--14185-7288-u--addConG arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-11 arg-15 0 arg-13 arg-20 arg-19 arg-18 arg-17)) (else (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 42 arg-16 arg-5 (vector 3 arg-15)) eta-0))))))) -(define CoreC-45CaseBuilder-case--groupConsC-44addGroup-8242 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-23) (let ((sc0 arg-23)) (cond ((equal? sc0 0) (CoreC-45CaseBuilder-n--14185-7288-u--addConG arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-11 arg-16 arg-15 arg-13 arg-21 arg-20 arg-19 arg-18)) (else (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 42 arg-17 arg-5 (vector 3 arg-16)) eta-0))))))) -(define CoreC-45CaseBuilder-case--groupConsC-44addConG-7418 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 ext-0) (let ((sc0 arg-17)) (cond ((equal? sc0 0) (vector 1 (vector 0 arg-6 (vector 2 "_" 0) (vector 2 arg-6 (AlgebraC-45ZeroOneOmega-u--top_Top_ZeroOneOmega) (vector 1 ) (vector 10 arg-6)) (lambda (u--d) (lambda (u--a) (lambda (eta-0) (vector 1 (vector 0 arg-6 (vector 2 "_" 1) (vector 2 arg-6 (AlgebraC-45ZeroOneOmega-u--top_Top_ZeroOneOmega) (vector 1 ) (vector 9 arg-6 1)) (lambda (d-0) (lambda (a-0) (lambda (eta-1) (vector 1 (vector 10 arg-6))))))))))))) (else (let ((act-24 (let ((act-24 (unbox arg-7))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Context-lookupTyExact arg-16 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) ((CoreC-45Normalise-nf arg-7 arg-9 e-5 (CoreC-45Env-mkEnv arg-6 arg-9) (CoreC-45TT-embed e-1)) ext-0))) (else (vector 1 (vector 9 arg-6 1)))))))))))))))))))) -(define CoreC-45CaseBuilder-case--updatePatNamesC-44update-7187 (lambda (arg-3 arg-4 arg-5 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (vector 6 arg-8 arg-7)) (else (let ((e-2 (vector-ref sc0 1))) (vector 6 arg-8 e-2))))))) -(define CoreC-45CaseBuilder-case--updatePatNamesC-44update-7117 (lambda (arg-3 arg-4 arg-5 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((0) (vector 0 arg-9 arg-8 (CoreC-45CaseBuilder-n--13968-7107-u--update arg-3 arg-4 arg-5 arg-7))) (else (let ((e-2 (vector-ref sc0 1))) (vector 0 arg-9 e-2 (CoreC-45CaseBuilder-n--13968-7107-u--update arg-3 arg-4 arg-5 arg-7)))))))) -(define CoreC-45CaseBuilder-case--caseC-32blockC-32inC-32nextNames-6650 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((2) (vector 2 )) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 e-2 (CoreC-45TT-u--weakenNs_Weaken_Term (CoreC-45TTC-45SizeOf-suc arg-14) e-3))))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (CoreC-45TT-u--weakenNs_Weaken_Term (CoreC-45TTC-45SizeOf-suc arg-14) e-5)))))))) -(define CoreC-45CaseBuilder-case--checkGroupMatch-6409 (lambda (arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (vector 3 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (vector 2 )))))))) -(define CoreC-45CaseBuilder-case--caseC-32blockC-32inC-32checkGroupMatch-6264 (lambda (arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (if (null? sc0) (vector 3 ) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (let ((e-9 (vector-ref sc3 1))) (let ((sc4 e-9)) (case (vector-ref sc4 0) ((0) (vector 0 arg-13))(else (vector 3 ))))))(else (vector 3 )))))(else (vector 3 ))))))(else (vector 3 )))))))))) -(define CoreC-45CaseBuilder-case--checkGroupMatch-6190 (lambda (arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((0) (vector 3 )) (else (let ((e-2 (vector-ref sc0 1))) (CoreC-45CaseBuilder-case--caseC-32blockC-32inC-32checkGroupMatch-6264 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-2 (cons (CoreC-45Name-nameEq arg-3 arg-11) (DecidableC-45Equality-u--decEq_DecEq_Int arg-2 arg-10))))))))) -(define CoreC-45CaseBuilder-case--withC-32blockC-32inC-32partition-5848 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (vector 0 (cons arg-2 arg-1) arg-0 '() (cons arg-3 '()) (vector 2 ))) (else (vector 1 (cons arg-2 arg-1) arg-0 '() (cons arg-3 '()) (vector 2 ))))))) -(define CoreC-45CaseBuilder-case--withC-32blockC-32inC-32partition-5784 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (vector 0 (cons arg-2 arg-1) arg-0 (PreludeC-45TypesC-45List-C-43C-43 arg-5 arg-3) (cons arg-6 '()) (vector 1 (cons arg-2 arg-1) arg-0 arg-3 arg-5 arg-4))) (else (vector 1 (cons arg-2 arg-1) arg-0 arg-3 (cons arg-6 arg-5) arg-4)))))) -(define CoreC-45CaseBuilder-case--withC-32blockC-32inC-32partition-5718 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (vector 0 (cons arg-2 arg-1) arg-0 arg-3 (cons arg-6 arg-5) arg-4)) (else (vector 1 (cons arg-2 arg-1) arg-0 (PreludeC-45TypesC-45List-C-43C-43 arg-5 arg-3) (cons arg-6 '()) (vector 0 (cons arg-2 arg-1) arg-0 arg-3 arg-5 arg-4))))))) -(define CoreC-45CaseBuilder-case--clauseTypeC-44getClauseType-5596 (lambda (arg-3 arg-4 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (cond ((equal? sc0 0) (vector 1 )) (else (CoreC-45CaseBuilder-n--11920-5336-u--clauseTypeC-39 arg-3 arg-4 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-15)))))) -(define CoreC-45CaseBuilder-case--clauseTypeC-44getClauseType-5493 (lambda (arg-3 arg-4 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21) (let ((sc0 arg-21)) (cond ((equal? sc0 0) (vector 1 )) (else (CoreC-45CaseBuilder-n--11920-5335-u--splitCon arg-3 arg-4 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-18 arg-17)))))) -(define CoreC-45CaseBuilder-case--clauseTypeC-44splitCon-5347 (lambda (arg-3 arg-4 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (cond ((equal? sc0 0) (vector 0 )) (else (vector 1 )))))) -(define CoreC-45CaseBuilder-case--weakenNs-4548 (lambda (arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((0) arg-3)(else (let ((sc1 arg-5)) (let ((e-3 (vector-ref sc1 1))) (CoreC-45CaseBuilder-u--weaken_Weaken_C-40PatInfoC-32C-36pC-41 (CoreC-45CaseBuilder-u--weakenNs_Weaken_C-40PatInfoC-32C-36pC-41 e-3 arg-3))))))))(else (let ((sc0 arg-5)) (let ((e-3 (vector-ref sc0 1))) (CoreC-45CaseBuilder-u--weaken_Weaken_C-40PatInfoC-32C-36pC-41 (CoreC-45CaseBuilder-u--weakenNs_Weaken_C-40PatInfoC-32C-36pC-41 e-3 arg-3))))))))) -(define CoreC-45CaseBuilder-case--substInPatInfo-3575 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 ext-0) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (vector 1 (cons (let ((sc1 arg-4)) (let ((e-5 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((e-4 (vector-ref sc1 3))) (vector 0 e-5 e-3 e-4 (vector 0 e-1 (CoreC-45TT-substName arg-6 arg-5 e-2))))))) arg-2))))) ((1) (let ((e-4 (vector-ref sc0 1))) (let ((act-24 (let ((act-24 (unbox arg-8))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Context-clearDefs e-5 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((u--env (CoreC-45Env-mkEnv arg-7 arg-1))) (let ((act-26 ((CoreC-45Normalise-nf arg-8 arg-1 e-5 u--env (CoreC-45TT-substName arg-6 arg-5 e-4)) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((0) (let ((e-1 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 3))) (let ((e-8 (vector-ref sc4 4))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((2) (let ((e-11 (vector-ref sc5 2))) (let ((e-9 (vector-ref sc5 4))) (let ((act-27 (CoreC-45Normalise-u--quote_Quote_NF arg-8 arg-1 e-6 u--env e-9 ext-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-13 (vector-ref sc6 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc6 1))) (let ((act-28 (((e-8 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) u--env (vector 1 e-1 (vector 0 ) arg-3))) ext-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-14 (vector-ref sc7 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc7 1))) (let ((act-29 ((CoreC-45CaseBuilder-updatePats arg-1 arg-0 arg-8 u--env e-14 arg-2) ext-0))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-15 (vector-ref sc8 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc8 1))) (vector 1 (cons (let ((sc9 arg-4)) (let ((e-19 (vector-ref sc9 1))) (let ((e-18 (vector-ref sc9 2))) (let ((e-17 (vector-ref sc9 3))) (vector 0 e-19 e-18 e-17 (vector 0 e-11 e-13)))))) e-15))))))))))))))))))))(else (vector 1 (cons arg-4 arg-2)))))))))(else (vector 1 (cons arg-4 arg-2))))))))))))))))))))))) (else (vector 1 (cons arg-4 arg-2))))))) -(define CoreC-45CaseBuilder-case--updatePats-3437 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 ext-0) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((2) (let ((act-24 (let ((act-24 (unbox arg-7))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Context-clearDefs e-5 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (CoreC-45Normalise-u--quote_Quote_NF arg-7 arg-0 e-6 arg-6 arg-5 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (cons (let ((sc4 arg-4)) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((e-4 (vector-ref sc4 3))) (vector 0 e-2 e-3 e-4 (vector 1 e-7)))))) arg-3))))))))))))))))))(else (vector 1 (cons arg-4 arg-3))))))) -(define CoreC-45CaseBuilder-case--updatePats-3248 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 ext-0) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((2) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Context-clearDefs e-5 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (CoreC-45Normalise-u--quote_Quote_NF arg-1 arg-0 e-6 arg-13 arg-7 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (((arg-9 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) arg-13 (vector 1 arg-10 (vector 0 ) arg-5))) ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 ((CoreC-45CaseBuilder-updatePats arg-0 arg-6 arg-1 arg-13 e-8 arg-11) ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (vector 1 (cons (let ((sc6 arg-12)) (let ((e-2 (vector-ref sc6 1))) (let ((e-3 (vector-ref sc6 2))) (let ((e-4 (vector-ref sc6 3))) (vector 0 e-2 e-3 e-4 (vector 0 arg-8 e-7)))))) e-9))))))))))))))))))))))))))))(else (vector 1 (cons arg-12 arg-11))))))) -(define CoreC-45CaseBuilder-n--17130-10526-u--updateVar (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (let ((sc1 e-3)) (let ((e-9 (car sc1))) (let ((e-10 (cdr sc1))) (lambda (clam-0) (let ((sc2 e-9)) (let ((e-13 (vector-ref sc2 1))) (let ((e-14 (vector-ref sc2 2))) (let ((e-15 (vector-ref sc2 3))) (let ((e-17 (vector-ref sc2 4))) (let ((sc3 e-15)) (case (vector-ref sc3 0) ((6) (let ((e-18 (vector-ref sc3 1))) (let ((e-19 (vector-ref sc3 2))) (let ((act-24 (CoreC-45CaseBuilder-substInPats arg-1 arg-0 arg-8 arg-7 arg-3 (vector 0 e-18 (vector 1 1) e-13) e-10 clam-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (vector 1 (vector 0 (cons e-19 e-2) e-6 e-4 (CoreC-45TT-substName e-19 (vector 0 e-18 (vector 1 1) e-13) e-5))))))))))) ((0) (let ((e-20 (vector-ref sc3 1))) (let ((e-21 (vector-ref sc3 2))) (let ((e-22 (vector-ref sc3 3))) (let ((act-24 (CoreC-45CaseBuilder-substInPats arg-1 arg-0 arg-8 arg-7 arg-3 (CoreC-45CaseTree-mkTerm arg-1 e-22) e-10 clam-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((u--rhsC-39 (CoreC-45TT-substName e-21 (vector 0 e-20 (vector 1 0) e-13) e-5))) ((CoreC-45CaseBuilder-n--17130-10526-u--updateVar arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (vector 0 e-2 (cons (vector 0 e-13 e-14 e-22 e-17) e-6) e-4 u--rhsC-39)) clam-0)))))))))))(else (let ((act-24 (CoreC-45CaseBuilder-substInPats arg-1 arg-0 arg-8 arg-7 arg-3 (CoreC-45CaseTree-mkTerm arg-1 e-15) e-10 clam-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 (vector 0 e-2 e-6 e-4 e-5)))))))))))))))))))))))))) -(define CoreC-45CaseBuilder-n--13968-7107-u--update (lambda (arg-3 arg-4 arg-5 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (CoreC-45CaseBuilder-case--updatePatNamesC-44update-7117 arg-3 arg-4 arg-5 e-2 e-1 e-0 (DataC-45List-lookup (cons (lambda (arg-2) (lambda (arg-6) (CoreC-45Name-u--C-61C-61_Eq_Name arg-2 arg-6))) (lambda (arg-6) (lambda (arg-8) (CoreC-45Name-u--C-47C-61_Eq_Name arg-6 arg-8)))) e-1 arg-5)))))) ((1) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((e-6 (vector-ref sc0 4))) (let ((e-7 (vector-ref sc0 5))) (vector 1 e-3 e-4 e-5 e-6 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45CaseBuilder-n--13968-7107-u--update arg-3 arg-4 arg-5 eta-0)) e-7)))))))) ((2) (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 3))) (let ((e-11 (vector-ref sc0 4))) (vector 2 e-8 e-9 e-10 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45CaseBuilder-n--13968-7107-u--update arg-3 arg-4 arg-5 eta-0)) e-11))))))) ((4) (let ((e-12 (vector-ref sc0 1))) (let ((e-13 (vector-ref sc0 2))) (let ((e-14 (vector-ref sc0 3))) (let ((e-15 (vector-ref sc0 4))) (vector 4 e-12 e-13 (CoreC-45CaseBuilder-n--13968-7107-u--update arg-3 arg-4 arg-5 e-14) (CoreC-45CaseBuilder-n--13968-7107-u--update arg-3 arg-4 arg-5 e-15))))))) ((5) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (vector 5 e-16 e-17 (CoreC-45CaseBuilder-n--13968-7107-u--update arg-3 arg-4 arg-5 e-18) (CoreC-45CaseBuilder-n--13968-7107-u--update arg-3 arg-4 arg-5 e-19))))))) ((6) (let ((e-20 (vector-ref sc0 1))) (let ((e-21 (vector-ref sc0 2))) (CoreC-45CaseBuilder-case--updatePatNamesC-44update-7187 arg-3 arg-4 arg-5 e-21 e-20 (DataC-45List-lookup (cons (lambda (arg-2) (lambda (arg-6) (CoreC-45Name-u--C-61C-61_Eq_Name arg-2 arg-6))) (lambda (arg-6) (lambda (arg-8) (CoreC-45Name-u--C-47C-61_Eq_Name arg-6 arg-8)))) e-21 arg-5)))))(else arg-7))))) -(define CoreC-45CaseBuilder-n--13947-7068-u--update (lambda (arg-0) (let ((sc0 arg-0)) (if (null? sc0) (vector 0 ) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((6) (let ((e-5 (vector-ref sc1 2))) (vector 1 (cons e-5 e-2))))(else (vector 0 )))))))))) -(define CoreC-45CaseBuilder-n--19554-12280-u--toClosed (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-3)) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((e-6 (vector-ref sc1 3))) (let ((e-7 (vector-ref sc1 4))) (cons (CoreC-45CaseBuilder-n--19554-12279-u--close arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-4 e-5 e-2 e-6) (CoreC-45CaseBuilder-n--19554-12279-u--close arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-4 e-5 e-2 e-7)))))))))))) -(define CoreC-45CaseBuilder-n--11920-5335-u--splitCon (lambda (arg-3 arg-4 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (CoreC-45CaseBuilder-case--clauseTypeC-44splitCon-5347 arg-3 arg-4 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-14 arg-13 (PreludeC-45Types-u--C-61C-61_Eq_Nat arg-13 (PreludeC-45TypesC-45List-length arg-14))))) -(define CoreC-45CaseBuilder-n--10703-4206-u--showAll (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (if (null? sc0) (let ((sc1 arg-5)) "") (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-3)) (if (null? sc1) (let ((sc2 arg-5)) (if (null? sc2) (let ((sc3 arg-5)) (let ((e-8 (car sc3))) (let ((e-9 (cdr sc3))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-2) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45CaseTree-u--show_Show_Pat (let ((sc4 e-8)) (let ((e-4 (vector-ref sc4 3))) e-4))) (PreludeC-45TypesC-45String-C-43C-43 " [" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45CaseBuilder-u--show_Show_C-40ArgTypeC-32C-36nsC-41 arg-3 (let ((sc4 e-8)) (let ((e-6 (vector-ref sc4 4))) e-6))) (PreludeC-45TypesC-45String-C-43C-43 "]" (PreludeC-45TypesC-45String-C-43C-43 ", " (CoreC-45CaseBuilder-n--10703-4206-u--showAll arg-0 arg-1 arg-2 arg-3 e-3 e-9))))))))))) (let ((e-14 (car sc2))) (let ((e-15 (cdr sc2))) (let ((sc3 e-15)) (if (null? sc3) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-2) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45CaseTree-u--show_Show_Pat (let ((sc4 e-14)) (let ((e-4 (vector-ref sc4 3))) e-4))) (PreludeC-45TypesC-45String-C-43C-43 " [" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45CaseBuilder-u--show_Show_C-40ArgTypeC-32C-36nsC-41 arg-3 (let ((sc4 e-14)) (let ((e-6 (vector-ref sc4 4))) e-6))) "]"))))) (let ((sc4 arg-5)) (let ((e-8 (car sc4))) (let ((e-9 (cdr sc4))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-2) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45CaseTree-u--show_Show_Pat (let ((sc5 e-8)) (let ((e-4 (vector-ref sc5 3))) e-4))) (PreludeC-45TypesC-45String-C-43C-43 " [" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45CaseBuilder-u--show_Show_C-40ArgTypeC-32C-36nsC-41 arg-3 (let ((sc5 e-8)) (let ((e-6 (vector-ref sc5 4))) e-6))) (PreludeC-45TypesC-45String-C-43C-43 "]" (PreludeC-45TypesC-45String-C-43C-43 ", " (CoreC-45CaseBuilder-n--10703-4206-u--showAll arg-0 arg-1 arg-2 arg-3 e-3 e-9))))))))))))))))) (let ((sc2 arg-5)) (let ((e-8 (car sc2))) (let ((e-9 (cdr sc2))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-2) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45CaseTree-u--show_Show_Pat (let ((sc3 e-8)) (let ((e-4 (vector-ref sc3 3))) e-4))) (PreludeC-45TypesC-45String-C-43C-43 " [" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45CaseBuilder-u--show_Show_C-40ArgTypeC-32C-36nsC-41 arg-3 (let ((sc3 e-8)) (let ((e-6 (vector-ref sc3 4))) e-6))) (PreludeC-45TypesC-45String-C-43C-43 "]" (PreludeC-45TypesC-45String-C-43C-43 ", " (CoreC-45CaseBuilder-n--10703-4206-u--showAll arg-0 arg-1 arg-2 arg-3 e-3 e-9))))))))))))))))))) -(define CoreC-45CaseBuilder-n--15719-8645-u--sameTypeAs (lambda (arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 ext-0) (let ((sc0 arg-13)) (if (null? sc0) (vector 1 (vector 0 )) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-25 ((CoreC-45Normalise-nf arg-9 arg-2 e-7 arg-5 e-6) ext-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) ((CoreC-45CaseBuilder-case--sameTypeC-44sameTypeAs-8833 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-6 e-5 e-3 arg-12 arg-11 e-7 e-8 (CoreC-45CaseBuilder-n--15719-8644-u--headEq arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-12 e-8 arg-7)) ext-0))))))))))))))(else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 42 arg-8 arg-6 (vector 1 )) ext-0)))))))))) -(define CoreC-45CaseBuilder-n--16149-9026-u--samePatAs (lambda (arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (if (null? sc0) 0 (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((2) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((sc2 arg-6)) (if (null? sc2) 1 (let ((e-22 (car sc2))) (let ((e-23 (cdr sc2))) (let ((sc3 e-22)) (case (vector-ref sc3 0) ((2) (let ((e-25 (vector-ref sc3 2))) (PreludeC-45Basics-C-38C-38 (CoreC-45Name-u--C-61C-61_Eq_Name e-1 e-25) (lambda () (CoreC-45CaseBuilder-n--16149-9026-u--samePatAs arg-3 arg-4 (vector 2 e-0 e-1 e-2 e-3) e-23)))))(else 1)))))))))))) ((1) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((e-6 (vector-ref sc1 3))) (let ((e-7 (vector-ref sc1 4))) (let ((e-8 (vector-ref sc1 5))) (let ((sc2 arg-6)) (if (null? sc2) 1 (let ((e-29 (car sc2))) (let ((e-30 (cdr sc2))) (let ((sc3 e-29)) (case (vector-ref sc3 0) ((1) (let ((e-32 (vector-ref sc3 2))) (let ((e-33 (vector-ref sc3 3))) (PreludeC-45Basics-C-38C-38 (CoreC-45Name-u--C-61C-61_Eq_Name e-5 e-32) (lambda () (PreludeC-45Basics-C-38C-38 (PreludeC-45EqOrd-u--C-61C-61_Eq_Int e-6 e-33) (lambda () (CoreC-45CaseBuilder-n--16149-9026-u--samePatAs arg-3 arg-4 (vector 1 e-4 e-5 e-6 e-7 e-8) e-30))))))))(else 1))))))))))))) ((3) (let ((e-9 (vector-ref sc1 1))) (let ((e-10 (vector-ref sc1 2))) (let ((sc2 arg-6)) (if (null? sc2) 1 (let ((e-37 (car sc2))) (let ((e-38 (cdr sc2))) (let ((sc3 e-37)) (case (vector-ref sc3 0) ((3) (let ((e-40 (vector-ref sc3 2))) (PreludeC-45Basics-C-38C-38 (CoreC-45TT-u--C-61C-61_Eq_Constant e-10 e-40) (lambda () (CoreC-45CaseBuilder-n--16149-9026-u--samePatAs arg-3 arg-4 (vector 3 e-9 e-10) e-38)))))(else 1)))))))))) ((4) (let ((e-11 (vector-ref sc1 1))) (let ((e-12 (vector-ref sc1 2))) (let ((e-13 (vector-ref sc1 3))) (let ((e-14 (vector-ref sc1 4))) (let ((sc2 arg-6)) (if (null? sc2) 1 (let ((e-42 (car sc2))) (let ((e-43 (cdr sc2))) (let ((sc3 e-42)) (case (vector-ref sc3 0) ((4) (CoreC-45CaseBuilder-n--16149-9026-u--samePatAs arg-3 arg-4 (vector 4 e-11 e-12 e-13 e-14) e-43))(else 1)))))))))))) ((5) (let ((e-15 (vector-ref sc1 1))) (let ((e-16 (vector-ref sc1 2))) (let ((e-17 (vector-ref sc1 3))) (let ((e-18 (vector-ref sc1 4))) (let ((sc2 arg-6)) (if (null? sc2) 1 (let ((e-49 (car sc2))) (let ((e-50 (cdr sc2))) (let ((sc3 e-49)) (case (vector-ref sc3 0) ((5) (CoreC-45CaseBuilder-n--16149-9026-u--samePatAs arg-3 arg-4 (vector 5 e-15 e-16 e-17 e-18) e-50))(else 1)))))))))))) ((6) (let ((e-19 (vector-ref sc1 1))) (let ((e-20 (vector-ref sc1 2))) (let ((sc2 arg-6)) (if (null? sc2) 1 (let ((e-56 (car sc2))) (let ((e-57 (cdr sc2))) (let ((sc3 e-56)) (case (vector-ref sc3 0) ((6) (CoreC-45CaseBuilder-n--16149-9026-u--samePatAs arg-3 arg-4 (vector 6 e-19 e-20) e-57))(else 1))))))))))(else 1))))))) -(define CoreC-45CaseBuilder-n--10834-4338-u--prettyAll (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-5)) (if (null? sc0) (let ((sc1 arg-6)) '()) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 arg-6)) (let ((e-8 (car sc1))) (let ((e-9 (cdr sc1))) (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-parens (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (CoreC-45Name-u--pretty_Pretty_Name e-2) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "=") (CoreC-45CaseTree-u--pretty_Pretty_Pat (let ((sc2 e-8)) (let ((e-4 (vector-ref sc2 3))) e-4)))))) (CoreC-45CaseBuilder-n--10834-4338-u--prettyAll arg-1 arg-2 arg-3 arg-4 e-3 e-9))))))))))) -(define CoreC-45CaseBuilder-n--19554-12278-u--mkSubstEnv (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (if (null? sc0) '() (let ((e-5 (cdr sc0))) (cons (vector 1 arg-4 (vector 0 ) (vector 2 arg-8 arg-7)) (CoreC-45CaseBuilder-n--19554-12278-u--mkSubstEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (bs+ arg-7 1 63) arg-8 e-5))))))) -(define CoreC-45CaseBuilder-n--18726-11449-u--mkPatClausesFrom (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 ext-0) (let ((sc0 arg-10)) (if (null? sc0) (vector 1 '()) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((act-24 ((CoreC-45CaseBuilder-mkPatClause arg-7 arg-6 arg-5 arg-9 arg-3 arg-8 e-2) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45CaseBuilder-n--18726-11449-u--mkPatClausesFrom arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (bs+ arg-8 1 63) arg-9 e-3 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (cons e-5 e-6)))))))))))))))))) -(define CoreC-45CaseBuilder-n--18362-11011-u--mkNames (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-8)) (if (null? sc0) (lambda (clam-0) (let ((sc1 arg-9)) (let ((sc2 arg-10)) (vector 1 '())))) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (lambda (clam-1) (let ((sc1 arg-9)) (let ((e-8 (car sc1))) (let ((e-9 (cdr sc1))) (let ((sc2 arg-10)) (let ((e-16 (vector-ref sc2 1))) (let ((act-24 (let ((act-24 (unbox arg-7))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (CoreC-45Context-clearDefs e-5 clam-1))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (let ((sc5 arg-11)) (case (vector-ref sc5 0) ((0) (vector 1 (cons (vector 0 ) (vector 2 )))) (else (let ((e-4 (vector-ref sc5 1))) (let ((sc6 e-4)) (case (vector-ref sc6 0) ((0) (let ((e-12 (vector-ref sc6 1))) (let ((e-10 (vector-ref sc6 3))) (let ((e-7 (vector-ref sc6 4))) (let ((sc7 e-10)) (case (vector-ref sc7 0) ((2) (let ((e-15 (vector-ref sc7 2))) (let ((e-13 (vector-ref sc7 4))) (let ((act-26 (((e-7 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 1 e-12 (vector 0 ) e-2))) clam-1))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-18 (vector-ref sc8 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc8 1))) (let ((act-27 (CoreC-45Normalise-u--quote_Quote_NF arg-7 '() e-6 '() e-13 clam-1))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-19 (vector-ref sc9 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref sc9 1))) (vector 1 (cons (vector 1 e-18) (vector 0 e-15 (CoreC-45TT-embed e-19)))))))))))))))))(else (let ((act-26 (CoreC-45Normalise-u--quote_Quote_NF arg-7 '() e-6 '() e-4 clam-1))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-13 (vector-ref sc7 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc7 1))) (vector 1 (cons (vector 0 ) (vector 1 (CoreC-45TT-embed e-13))))))))))))))))(else (let ((act-26 (CoreC-45Normalise-u--quote_Quote_NF arg-7 '() e-6 '() e-4 clam-1))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (vector 1 (cons (vector 0 ) (vector 1 (CoreC-45TT-embed e-7)))))))))))))))))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-27 ((CoreC-45CaseBuilder-n--18362-11011-u--mkNames arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-3 e-9 e-16 (Builtin-fst e-7)) clam-1))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc6 1))) (vector 1 (cons (vector 0 0 e-2 e-8 (Builtin-snd e-7)) (CoreC-45CaseBuilder-weaken e-2 e-3 e-10))))))))))))))))))))))))))))))))))) -(define CoreC-45CaseBuilder-n--19554-12277-u--labelPat (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-8) (let ((sc0 arg-8)) (if (null? sc0) '() (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (cons (cons (PreludeC-45TypesC-45String-C-43C-43 "pat" (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Int arg-7) ":")) e-2) (CoreC-45CaseBuilder-n--19554-12277-u--labelPat arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (bs+ arg-7 1 63) e-3)))))))) -(define CoreC-45CaseBuilder-n--15719-8644-u--headEq (lambda (arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((0) (let ((e-6 (vector-ref sc0 3))) (let ((sc1 e-6)) (case (vector-ref sc1 0) ((2) (let ((sc2 arg-12)) (case (vector-ref sc2 0) ((0) (let ((e-34 (vector-ref sc2 3))) (let ((sc3 e-34)) (case (vector-ref sc3 0) ((2) 0)(else (let ((sc3 arg-12)) (case (vector-ref sc3 0) ((9) (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) 0)(else 1))))(else 1))))))))(else (let ((sc2 arg-12)) (case (vector-ref sc2 0) ((9) (let ((sc3 arg-13)) (case (vector-ref sc3 0) ((1) 0)(else 1))))(else 1)))))))(else (let ((sc1 arg-12)) (case (vector-ref sc1 0) ((9) (let ((sc2 arg-13)) (case (vector-ref sc2 0) ((1) 0)(else 1))))(else 1)))))))) ((3) (let ((e-10 (vector-ref sc0 2))) (let ((sc1 arg-12)) (case (vector-ref sc1 0) ((3) (let ((e-43 (vector-ref sc1 2))) (CoreC-45Name-u--C-61C-61_Eq_Name e-10 e-43)))(else (let ((sc1 arg-12)) (case (vector-ref sc1 0) ((9) (let ((sc2 arg-13)) (case (vector-ref sc2 0) ((1) 0)(else 1))))(else 1)))))))) ((8) (let ((e-16 (vector-ref sc0 2))) (let ((sc1 arg-12)) (case (vector-ref sc1 0) ((8) (let ((e-49 (vector-ref sc1 2))) (CoreC-45TT-u--C-61C-61_Eq_Constant e-16 e-49)))(else (let ((sc1 arg-12)) (case (vector-ref sc1 0) ((9) (let ((sc2 arg-13)) (case (vector-ref sc2 0) ((1) 0)(else 1))))(else 1)))))))) ((10) (let ((sc1 arg-12)) (case (vector-ref sc1 0) ((10) 0)(else (let ((sc1 arg-12)) (case (vector-ref sc1 0) ((9) (let ((sc2 arg-13)) (case (vector-ref sc2 0) ((1) 0)(else 1))))(else 1))))))) ((1) (let ((e-21 (vector-ref sc0 2))) (let ((sc1 e-21)) (case (vector-ref sc1 0) ((1) (let ((e-54 (vector-ref sc1 2))) (let ((sc2 arg-12)) (case (vector-ref sc2 0) ((1) (let ((e-57 (vector-ref sc2 2))) (let ((sc3 e-57)) (case (vector-ref sc3 0) ((1) (let ((e-61 (vector-ref sc3 2))) (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (CoreC-45Name-u--C-61C-61_Eq_Name e-54 e-61))(else (let ((sc4 arg-12)) (case (vector-ref sc4 0) ((9) (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) 0)(else 1))))(else 1))))))))(else (let ((sc3 arg-12)) (case (vector-ref sc3 0) ((9) (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) 0)(else 1))))(else 1))))))))(else (let ((sc2 arg-12)) (case (vector-ref sc2 0) ((9) (let ((sc3 arg-13)) (case (vector-ref sc3 0) ((1) 0)(else 1))))(else 1))))))))(else (let ((sc1 arg-12)) (case (vector-ref sc1 0) ((9) (let ((sc2 arg-13)) (case (vector-ref sc2 0) ((1) 0)(else 1))))(else 1)))))))) ((9) (let ((sc1 arg-13)) (case (vector-ref sc1 0) ((1) 0)(else (let ((sc1 arg-12)) (case (vector-ref sc1 0) ((9) (let ((sc2 arg-13)) (case (vector-ref sc2 0) ((1) 0)(else 1))))(else 1)))))))(else (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((9) (let ((sc1 arg-13)) (case (vector-ref sc1 0) ((1) 0)(else 1))))(else 1)))))))) -(define CoreC-45CaseBuilder-n--19554-12276-u--getUnreachable (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (if (null? sc0) '() (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (CoreC-45CaseBuilder-case--getPMDefC-44getUnreachable-12295 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2 e-3 arg-7 arg-6 (PreludeC-45Types-elem (cons (lambda (arg-9) (lambda (arg-10) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-9 arg-10)))) arg-6 arg-7)))))))) -(define CoreC-45CaseBuilder-n--18726-11450-u--getNames (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (if (null? sc0) (cons '() (CoreC-45TTC-45SizeOf-zero)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (CoreC-45CaseBuilder-case--patCompileC-44getNames-11503 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-2 e-3 arg-8 (CoreC-45CaseBuilder-n--18726-11450-u--getNames arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (bs+ arg-8 1 63) e-3)))))))) -(define CoreC-45CaseBuilder-n--11920-5337-u--getClauseType (lambda (arg-3 arg-4 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((0) (let ((e-6 (vector-ref sc0 1))) (let ((sc1 arg-14)) (case (vector-ref sc1 0) ((1) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((e-9 (vector-ref sc1 3))) (let ((e-10 (vector-ref sc1 4))) (let ((e-11 (vector-ref sc1 5))) (let ((sc2 arg-15)) (case (vector-ref sc2 0) ((0) (let ((e-13 (vector-ref sc2 1))) (let ((e-14 (vector-ref sc2 2))) (CoreC-45CaseBuilder-case--clauseTypeC-44getClauseType-5493 arg-3 arg-4 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-7 e-8 e-9 e-6 e-11 e-10 e-14 e-13 (PreludeC-45Basics-C-38C-38 (AlgebraC-45Semiring-isErased (cons (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-2) (lambda (arg-5) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-2 arg-5))) (lambda (arg-5) (lambda (arg-16) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-5 arg-16))))) e-13) (lambda () (PreludeC-45Basics-C-38C-38 (let ((sc3 (AlgebraC-45Semiring-isErased (cons (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-2) (lambda (arg-5) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-2 arg-5))) (lambda (arg-5) (lambda (arg-16) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-5 arg-16))))) e-6))) (cond ((equal? sc3 0) 1) (else 0))) (lambda () (PreludeC-45Interfaces-all (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (lambda (eta-0) (CoreC-45CaseBuilder-namesIn (PreludeC-45TypesC-45List-C-43C-43 arg-11 (PreludeC-45Interfaces-concatMap (cons (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (cons (lambda (arg-2) (lambda (arg-5) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-2 arg-5))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) (lambda (eta-1) (CoreC-45CaseBuilder-namesFrom eta-1)) (CoreC-45CaseBuilder-getPatInfo arg-8))) eta-0)) e-11)))))))))(else (let ((sc2 arg-14)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 3))) (CoreC-45CaseBuilder-n--11920-5337-u--getClauseType arg-3 arg-4 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-5 arg-15)))(else (let ((sc2 arg-15)) (case (vector-ref sc2 0) ((0) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (CoreC-45CaseBuilder-case--clauseTypeC-44getClauseType-5596 arg-3 arg-4 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-2 e-1 arg-14 arg-13 (AlgebraC-45Semiring-isErased (cons (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-2) (lambda (arg-5) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-2 arg-5))) (lambda (arg-5) (lambda (arg-16) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-5 arg-16))))) e-1)))))(else (CoreC-45CaseBuilder-n--11920-5336-u--clauseTypeC-39 arg-3 arg-4 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-14))))))))))))))))(else (let ((sc1 arg-14)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 3))) (CoreC-45CaseBuilder-n--11920-5337-u--getClauseType arg-3 arg-4 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-5 arg-15)))(else (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((0) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (CoreC-45CaseBuilder-case--clauseTypeC-44getClauseType-5596 arg-3 arg-4 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-2 e-1 arg-14 arg-13 (AlgebraC-45Semiring-isErased (cons (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-2) (lambda (arg-5) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-2 arg-5))) (lambda (arg-5) (lambda (arg-16) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-5 arg-16))))) e-1)))))(else (CoreC-45CaseBuilder-n--11920-5336-u--clauseTypeC-39 arg-3 arg-4 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-14))))))))))))(else (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((0) (let ((e-5 (vector-ref sc0 3))) (CoreC-45CaseBuilder-n--11920-5337-u--getClauseType arg-3 arg-4 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-5 arg-15)))(else (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (CoreC-45CaseBuilder-case--clauseTypeC-44getClauseType-5596 arg-3 arg-4 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-2 e-1 arg-14 arg-13 (AlgebraC-45Semiring-isErased (cons (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-2) (lambda (arg-5) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-2 arg-5))) (lambda (arg-5) (lambda (arg-16) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-5 arg-16))))) e-1)))))(else (CoreC-45CaseBuilder-n--11920-5336-u--clauseTypeC-39 arg-3 arg-4 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-14)))))))))))) -(define CoreC-45CaseBuilder-n--19554-12175-u--getArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (((e-4 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 e-1 1))) ext-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc3 1))) (let ((act-26 (CoreC-45CaseBuilder-n--19554-12175-u--getArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-10 ext-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-11 (vector-ref sc4 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc4 1))) (vector 1 (cons (vector 2 "arg" arg-5) e-11))))))))))))))))))(else (vector 1 '()))))))))(else (vector 1 '())))))) -(define CoreC-45CaseBuilder-n--14185-7292-u--gc (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (if (null? sc0) (lambda (eta-0) (vector 1 arg-12)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (let ((e-9 (vector-ref sc1 4))) (lambda (clam-0) (let ((sc2 e-7)) (let ((e-13 (car sc2))) (let ((e-14 (cdr sc2))) (let ((sc3 e-13)) (let ((e-17 (vector-ref sc3 1))) (let ((e-19 (vector-ref sc3 3))) (let ((act-24 ((CoreC-45CaseBuilder-n--14185-7291-u--addGroup arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-11 e-17 e-19 e-14 e-8 e-9 arg-12) clam-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc4 1))) ((CoreC-45CaseBuilder-n--14185-7292-u--gc arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-5 e-3) clam-0))))))))))))))))))))))) -(define CoreC-45CaseBuilder-n--19477-12104-u--findRAlts (lambda (arg-1 arg-2 arg-4 arg-5 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-4 (vector-ref sc0 4))) (CoreC-45CaseBuilder-findReached e-4))) ((1) (let ((e-8 (vector-ref sc0 3))) (CoreC-45CaseBuilder-findReached e-8))) ((2) (let ((e-11 (vector-ref sc0 2))) (CoreC-45CaseBuilder-findReached e-11))) (else (let ((e-13 (vector-ref sc0 1))) (CoreC-45CaseBuilder-findReached e-13))))))) -(define CoreC-45CaseBuilder-n--16149-9025-u--dropAs (lambda (arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 3))) e-2))(else arg-5))))) -(define CoreC-45CaseBuilder-n--19554-12279-u--close (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (CoreC-45TTC-45SubstEnv-substs (CoreC-45CaseBuilder-n--19554-12278-u--mkSubstEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 0 arg-8 arg-7) arg-9))) -(define CoreC-45CaseBuilder-n--11920-5336-u--clauseTypeC-39 (lambda (arg-3 arg-4 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((1) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (CoreC-45CaseBuilder-n--11920-5335-u--splitCon arg-3 arg-4 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-3 e-4)))) ((2) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (CoreC-45CaseBuilder-n--11920-5335-u--splitCon arg-3 arg-4 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-7 e-8)))) ((3) (vector 0 )) ((4) (vector 0 )) ((5) (vector 0 ))(else (vector 1 )))))) -(define CoreC-45CaseBuilder-n--17115-10209-u--altGroups (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (if (null? sc0) (PreludeC-45Types-maybe (lambda () (lambda (eta-0) (vector 1 '()))) (lambda () (lambda (u--e) (lambda (eta-0) (vector 1 (cons (vector 3 u--e) '()))))) arg-4) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (lambda (clam-0) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (let ((e-9 (vector-ref sc1 4))) (let ((act-24 ((CoreC-45CaseBuilder-match (PreludeC-45TypesC-45List-C-43C-43 e-6 arg-3) (PreludeC-45TypesC-45List-C-43C-43 e-6 arg-1) arg-12 arg-11 arg-10 arg-9 arg-8 e-9 (PreludeC-45Types-u--map_Functor_Maybe (lambda (eta-0) (CoreC-45CaseTree-u--weakenNs_Weaken_CaseTree (CoreC-45TTC-45SizeOf-mkSizeOf e-6) eta-0)) arg-4)) clam-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((CoreC-45CaseBuilder-n--17115-10209-u--altGroups arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 arg-11 arg-12 e-3) clam-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc3 1))) (vector 1 (cons (vector 0 e-7 e-8 e-6 e-5) e-10))))))))))))))))) ((1) (let ((e-12 (vector-ref sc1 1))) (let ((e-13 (vector-ref sc1 2))) (let ((e-14 (vector-ref sc1 3))) (let ((act-24 ((CoreC-45CaseBuilder-match (cons e-12 (cons e-13 arg-3)) (cons e-12 (cons e-13 arg-1)) arg-12 arg-11 arg-10 arg-9 arg-8 e-14 (PreludeC-45Types-u--map_Functor_Maybe (lambda (eta-0) (CoreC-45CaseTree-u--weakenNs_Weaken_CaseTree (CoreC-45TTC-45SizeOf-mkSizeOf (cons e-12 (cons e-13 '()))) eta-0)) arg-4)) clam-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((CoreC-45CaseBuilder-n--17115-10209-u--altGroups arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 arg-11 arg-12 e-3) clam-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 (cons (vector 1 e-12 e-13 e-5) e-6)))))))))))))))) (else (let ((e-17 (vector-ref sc1 1))) (let ((e-18 (vector-ref sc1 2))) (let ((act-24 ((CoreC-45CaseBuilder-match arg-3 arg-1 arg-12 arg-11 arg-10 arg-9 arg-8 e-18 arg-4) clam-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((CoreC-45CaseBuilder-n--17115-10209-u--altGroups arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 arg-11 arg-12 e-3) clam-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 (cons (vector 2 e-17 e-5) e-6)))))))))))))))))))))))) -(define CoreC-45CaseBuilder-n--14185-7291-u--addGroup (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-11 arg-12 arg-13 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (CoreC-45CaseBuilder-n--14185-7291-u--addGroup arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-11 arg-12 e-2 arg-15 arg-16 (CoreC-45TT-substName e-1 (vector 0 e-0 (vector 1 0) arg-12) arg-17) arg-18))))) ((1) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((e-6 (vector-ref sc0 4))) (let ((e-7 (vector-ref sc0 5))) (CoreC-45CaseBuilder-case--groupConsC-44addGroup-8242 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-11 arg-12 e-7 e-6 e-5 e-4 e-3 arg-18 arg-17 arg-16 arg-15 (PreludeC-45Types-u--C-61C-61_Eq_Nat e-6 (PreludeC-45TypesC-45List-length e-7))))))))) ((2) (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 3))) (let ((e-11 (vector-ref sc0 4))) (CoreC-45CaseBuilder-case--groupConsC-44addGroup-8359 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-11 arg-12 e-11 e-10 e-9 e-8 arg-18 arg-17 arg-16 arg-15 (PreludeC-45Types-u--C-61C-61_Eq_Nat e-10 (PreludeC-45TypesC-45List-length e-11)))))))) ((4) (let ((e-14 (vector-ref sc0 3))) (let ((e-15 (vector-ref sc0 4))) (CoreC-45CaseBuilder-n--14185-7288-u--addConG arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-11 (vector 1 "->") 0 (cons e-14 (cons e-15 '())) arg-15 arg-16 arg-17 arg-18)))) ((5) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (CoreC-45CaseBuilder-n--14185-7289-u--addDelayG arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-11 e-18 e-19 arg-15 arg-16 arg-17 arg-18)))) ((3) (let ((e-21 (vector-ref sc0 2))) (CoreC-45CaseBuilder-n--14185-7290-u--addConstG arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-11 e-21 arg-15 arg-16 arg-17 arg-18)))(else (lambda (eta-0) (vector 1 arg-18))))))) -(define CoreC-45CaseBuilder-n--14185-7289-u--addDelayG (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (if (null? sc0) (let ((u--dty (vector 0 arg-6 (vector 2 "a" 0) (vector 2 arg-6 (AlgebraC-45Semiring-erased (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))) (vector 1 ) (vector 10 arg-6)) (lambda (u--d) (lambda (u--a) (lambda (eta-0) (let ((act-24 ((CoreC-45Normalise-evalClosure arg-7 arg-9 u--d u--a) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 arg-6 (vector 2 "x" 0) (vector 2 arg-6 (AlgebraC-45ZeroOneOmega-u--top_Top_ZeroOneOmega) (vector 1 ) e-5) (lambda (u--dv) (lambda (u--av) (lambda (eta-1) (vector 1 (vector 5 arg-6 (vector 2 ) e-5)))))))))))))))))) (lambda (eta-0) (let ((act-24 (CoreC-45CaseBuilder-nextNames arg-9 arg-8 arg-7 arg-6 "e" (cons arg-11 (cons arg-12 '())) (vector 1 u--dty) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (if (null? sc2) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 "Error compiling Delay pattern match") eta-0) (let ((e-2 (car sc2))) (let ((e-3 (cdr sc2))) (let ((sc3 e-2)) (if (null? sc3) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 "Error compiling Delay pattern match") eta-0) (let ((e-7 (car sc3))) (let ((e-6 (cdr sc3))) (let ((sc4 e-6)) (if (null? sc4) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 "Error compiling Delay pattern match") eta-0) (let ((e-8 (car sc4))) (let ((e-9 (cdr sc4))) (let ((sc5 e-9)) (if (null? sc5) (let ((sc6 e-3)) (if (null? sc6) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 "Error compiling Delay pattern match") eta-0) (let ((e-13 (car sc6))) (let ((e-14 (cdr sc6))) (let ((u--patsC-39 (CoreC-45CaseBuilder-updatePatNames (CoreC-45CaseBuilder-updateNames (cons (cons e-7 arg-11) (cons (cons e-8 arg-12) '()))) (CoreC-45CaseBuilder-weakenNs e-13 arg-13)))) (let ((u--clause (vector 0 arg-4 (CoreC-45CaseBuilder-C-43C-43 e-14 u--patsC-39) arg-14 (CoreC-45TT-u--weakenNs_Weaken_Term e-13 arg-15)))) (vector 1 (cons (vector 1 e-7 e-8 (cons u--clause '())) '())))))))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 "Error compiling Delay pattern match") eta-0)))))))))))))))))))))) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (CoreC-45CaseBuilder-with--groupConsC-44addDelayG-7966 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-9 e-2 (CoreC-45CaseBuilder-checkGroupMatch (vector 1 ) '() e-2) e-3 arg-15 arg-14 arg-13 arg-12 arg-11))))))) -(define CoreC-45CaseBuilder-n--14185-7290-u--addConstG (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (if (null? sc0) (lambda (eta-0) (vector 1 (cons (vector 2 arg-11 (cons (vector 0 arg-4 arg-12 arg-13 arg-14) '())) '()))) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (CoreC-45CaseBuilder-with--groupConsC-44addConstG-8139 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-9 e-2 arg-11 (CoreC-45CaseBuilder-checkGroupMatch (vector 2 arg-11) '() e-2) e-3 arg-14 arg-13 arg-12))))))) -(define CoreC-45CaseBuilder-n--14185-7288-u--addConG (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (if (null? sc0) (lambda (eta-0) (let ((act-24 (CoreC-45CaseBuilder-case--groupConsC-44addConG-7418 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-16 arg-15 arg-10 arg-14 arg-13 arg-12 arg-11 (CoreC-45Name-u--C-61C-61_Eq_Name arg-11 (vector 1 "->")) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45CaseBuilder-nextNames arg-9 arg-8 arg-7 arg-6 "e" arg-13 (vector 1 e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (let ((e-2 (car sc3))) (let ((e-3 (cdr sc3))) (let ((sc4 e-3)) (let ((e-8 (car sc4))) (let ((e-7 (cdr sc4))) (let ((u--patsC-39 (CoreC-45CaseBuilder-updatePatNames (CoreC-45CaseBuilder-updateNames (DataC-45List-u--zip_Zippable_List e-2 arg-13)) (CoreC-45CaseBuilder-weakenNs e-8 arg-14)))) (let ((u--clause (vector 0 arg-4 (CoreC-45CaseBuilder-C-43C-43 e-7 u--patsC-39) arg-15 (CoreC-45TT-u--weakenNs_Weaken_Term e-8 arg-16)))) (vector 1 (cons (vector 0 e-2 arg-11 arg-12 (cons u--clause '())) '()))))))))))))))))))))) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (CoreC-45CaseBuilder-with--groupConsC-44addConG-7635 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-9 e-2 arg-13 arg-12 arg-11 (CoreC-45CaseBuilder-checkGroupMatch (vector 0 arg-11 arg-12) arg-13 e-2) e-3 arg-16 arg-15 arg-14))))))) -(define CoreC-45CaseBuilder-u--weaken_Weaken_ArgType (lambda (arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (vector 0 e-1 (CoreC-45TT-u--weaken_Weaken_Term e-2))))) ((1) (let ((e-4 (vector-ref sc0 1))) (vector 1 (CoreC-45TT-u--weaken_Weaken_Term e-4)))) (else (vector 2 )))))) -(define CoreC-45CaseBuilder-u--weaken_Weaken_C-40PatInfoC-32C-36pC-41 (lambda (arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-6 (vector-ref sc0 4))) (vector 0 (+ 1 e-2) e-3 e-4 (CoreC-45CaseBuilder-u--weaken_Weaken_ArgType e-6))))))))) -(define CoreC-45CaseBuilder-u--weakenNs_Weaken_C-40PatInfoC-32C-36pC-41 (lambda (arg-3 arg-4) (CoreC-45CaseBuilder-case--weakenNs-4548 arg-4 arg-3 (CoreC-45TT-sizedView arg-3)))) -(define CoreC-45CaseBuilder-u--show_Show_C-40PartitionsC-32C-36psC-41 (lambda (arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((e-6 (vector-ref sc0 4))) (let ((e-7 (vector-ref sc0 5))) (PreludeC-45TypesC-45String-C-43C-43 "CON " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45CaseBuilder-u--show_Show_C-40C-40PatClauseC-32C-36varsC-41C-32C-36todoC-41 e-4 e-3 u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45CaseBuilder-u--showPrec_Show_C-40C-40PatClauseC-32C-36varsC-41C-32C-36todoC-41 e-4 e-3 u--d u--x)))) e-6) (PreludeC-45TypesC-45String-C-43C-43 ", " (CoreC-45CaseBuilder-u--show_Show_C-40PartitionsC-32C-36psC-41 e-5 e-7)))))))))) ((1) (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 3))) (let ((e-11 (vector-ref sc0 4))) (let ((e-12 (vector-ref sc0 5))) (PreludeC-45TypesC-45String-C-43C-43 "VAR " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45CaseBuilder-u--show_Show_C-40C-40PatClauseC-32C-36varsC-41C-32C-36todoC-41 e-9 e-8 u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45CaseBuilder-u--showPrec_Show_C-40C-40PatClauseC-32C-36varsC-41C-32C-36todoC-41 e-9 e-8 u--d u--x)))) e-11) (PreludeC-45TypesC-45String-C-43C-43 ", " (CoreC-45CaseBuilder-u--show_Show_C-40PartitionsC-32C-36psC-41 e-10 e-12))))))))))(else (let ((sc0 arg-2)) (let ((sc1 arg-3)) "NONE"))))))) -(define CoreC-45CaseBuilder-u--show_Show_C-40ArgTypeC-32C-36nsC-41 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (PreludeC-45TypesC-45String-C-43C-43 "Known " (PreludeC-45TypesC-45String-C-43C-43 (AlgebraC-45ZeroOneOmega-u--show_Show_ZeroOneOmega e-1) (PreludeC-45TypesC-45String-C-43C-43 " " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 e-2))))))) ((1) (let ((e-4 (vector-ref sc0 1))) (PreludeC-45TypesC-45String-C-43C-43 "Stuck " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 e-4)))) (else "Unknown"))))) -(define CoreC-45CaseBuilder-u--show_Show_C-40C-40PatClauseC-32C-36varsC-41C-32C-36todoC-41 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-3 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 4))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45CaseBuilder-u--show_Show_C-40C-40NamedPatsC-32C-36varsC-41C-32C-36todoC-41 arg-0 arg-1 e-3) (PreludeC-45TypesC-45String-C-43C-43 " => " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 e-5)))))))) -(define CoreC-45CaseBuilder-u--show_Show_C-40C-40NamedPatsC-32C-36varsC-41C-32C-36todoC-41 (lambda (arg-0 arg-1 arg-2) (PreludeC-45TypesC-45String-C-43C-43 "[" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45CaseBuilder-n--10703-4206-u--showAll arg-0 arg-1 arg-2 arg-0 arg-1 arg-2) "]")))) +(define CoreC-45Termination-findSCcall (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 ext-0) (let ((act-24 ((CoreC-45Context-lookupCtxtExact arg-7 (let ((e-0 (vector-ref arg-2 0))) e-0)) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (if (null? e-5) (CoreC-45Context-undefinedName arg-1 arg-6 arg-7 ext-0) (let ((e-1 (unbox e-5))) (let ((u--fn (let ((e-22 (vector-ref e-1 1))) e-22))) (let ((act-25 (let ((act-25 (CoreC-45Context-toFullNames arg-1 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-0))))) u--fn ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (CoreC-45ContextC-45Log-log arg-1 "totality.termination.sizechange" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Looking under " (CoreC-45Name-u--show_Show_Name e-6))) ext-0))))))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45Context-u--resolved_HasNames_Name (let ((e-0 (vector-ref arg-2 0))) e-0) (vector 0 (CoreC-45NameC-45Namespace-builtinNS) (vector 1 "assert_smaller")) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) ((CoreC-45Core-cond (cons (cons (lambda () (CoreC-45Name-u--C-61C-61_Eq_Name u--fn (vector 0 (CoreC-45NameC-45Namespace-builtinNS) (vector 1 "assert_total")))) (lambda () (lambda (eta-0) (vector 1 '())))) (cons (cons (lambda () (CoreC-45Termination-caseFn u--fn)) (lambda () (lambda (eta-0) (let ((act-27 (CoreC-45Termination-getCasePats arg-0 arg-2 u--fn arg-5 arg-9 eta-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (if (null? e-8) (vector 1 '()) (let ((e-2 (unbox e-8))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-1) (CoreC-45Termination-findInCase arg-1 arg-2 arg-4 eta-1)) e-2 '() eta-0))) (case (vector-ref act-28 0) ((0) (let ((e-3 (vector-ref act-28 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref act-28 1))) (vector 1 (PreludeC-45Interfaces-concat (cons (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (cons (lambda (arg-10) (lambda (arg-11) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-10 arg-11))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) e-9))))))))))))))) '())) (lambda (eta-0) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-1) (CoreC-45Termination-findSC arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 eta-1)) arg-9 '() eta-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (vector 1 (PreludeC-45TypesC-45List-C-43C-43 (cons (cons u--fn (CoreC-45Termination-expandToArity arg-8 (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (CoreC-45Termination-mkChange arg-2 e-7 arg-5 eta-1)) arg-9))) '()) (PreludeC-45Interfaces-concat (cons (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (cons (lambda (arg-10) (lambda (arg-11) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-10 arg-11))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) e-8))))))))) ext-0))))))))))))))))) +(define CoreC-45Termination-findSC (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (case (vector-ref arg-6 0) ((3) (let ((e-11 (vector-ref arg-6 1))) (let ((e-12 (vector-ref arg-6 2))) (let ((e-13 (vector-ref arg-6 3))) (let ((e-14 (vector-ref arg-6 4))) (lambda (eta-0) (let ((act-24 ((CoreC-45Termination-n--7480-6086-u--findSCbinder e-12 arg-0 e-14 e-13 e-11 arg-5 arg-4 arg-3 arg-2 arg-1 e-13) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Termination-findSC (cons e-12 arg-0) arg-1 arg-2 (cons e-13 arg-3) arg-4 (PreludeC-45Types-u--map_Functor_List (lambda (lamc-0) (let ((e-2 (car lamc-0))) (let ((e-3 (cdr lamc-0))) (cons e-2 (CoreC-45TT-u--weaken_Weaken_Term e-3))))) arg-5) e-14) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (PreludeC-45TypesC-45List-C-43C-43 e-5 e-6))))))))))))))))(else (cond ((equal? arg-4 2) (case (vector-ref arg-6 0) ((7) (let ((e-9 (vector-ref arg-6 4))) (CoreC-45Termination-findSC arg-0 arg-1 arg-2 arg-3 3 arg-5 e-9)))(else (case (vector-ref arg-6 0) ((7) (let ((e-4 (vector-ref arg-6 4))) (CoreC-45Termination-findSC arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-4)))(else (lambda (eta-0) (CoreC-45Termination-case--findSC-6417 arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (CoreC-45TT-getFnArgs arg-6) eta-0)))))))(else (case (vector-ref arg-6 0) ((7) (let ((e-4 (vector-ref arg-6 4))) (CoreC-45Termination-findSC arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-4)))(else (lambda (eta-0) (CoreC-45Termination-case--findSC-6417 arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (CoreC-45TT-getFnArgs arg-6) eta-0)))))))))) +(define CoreC-45Termination-findInCase (lambda (arg-0 arg-1 arg-2 arg-3) (let ((e-2 (car arg-3))) (let ((e-3 (cdr arg-3))) (lambda (clam-0) (let ((e-6 (car e-3))) (let ((e-7 (cdr e-3))) (let ((e-10 (car e-7))) (let ((e-11 (cdr e-7))) (let ((act-24 (CoreC-45ContextC-45Log-unverifiedLogC arg-0 "totality" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda (eta-0) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-1) (lambda (eta-2) (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-3) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-3)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-3) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-3))))) eta-1 eta-2))) (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) e-10) '() eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (PreludeC-45TypesC-45String-C-43C-43 "Looking in case args " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 e-2 u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 e-2 u--d u--x)))) e-5)))))))) clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((act-25 (CoreC-45Normalise-logTermNF e-2 arg-0 "totality" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () " =") e-6 e-11 clam-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((act-26 (CoreC-45Normalise-normaliseOpts arg-0 e-2 (CoreC-45Value-tcOnly) arg-1 e-6 e-11 clam-0))) (case (vector-ref act-26 0) ((0) (let ((e-4 (vector-ref act-26 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref act-26 1))) ((CoreC-45Termination-findSC e-2 arg-0 arg-1 e-6 arg-2 e-10 (CoreC-45Termination-delazy arg-1 e-9)) clam-0)))))))))))))))))))) +(define CoreC-45Termination-findCalls (lambda (arg-0 arg-1 arg-2) (let ((e-2 (car arg-2))) (let ((e-3 (cdr arg-2))) (let ((e-6 (car e-3))) (let ((e-7 (cdr e-3))) (let ((e-10 (car e-7))) (let ((e-11 (cdr e-7))) (let ((u--pargs (CoreC-45TT-getArgs (CoreC-45Termination-delazy arg-1 e-10)))) (lambda (eta-0) (let ((act-24 (CoreC-45Normalise-normaliseOpts arg-0 e-2 (CoreC-45Value-tcOnly) arg-1 e-6 e-11 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) ((CoreC-45Termination-findSC e-2 arg-0 arg-1 e-6 0 (DataC-45List-u--zip_Zippable_List (PreludeC-45Types-take (PreludeC-45TypesC-45List-length u--pargs) (PreludeC-45Types-u--rangeFrom_Range_Nat (PreludeC-45Types-u--fromInteger_Num_Nat 0))) u--pargs) (CoreC-45Termination-delazy arg-1 e-5)) eta-0))))))))))))))) +(define CoreC-45Termination-expandToArity (lambda (arg-0 arg-1) (cond ((equal? arg-0 0) arg-1)(else (let ((e-0 (- arg-0 1))) (if (null? arg-1) (cons '() (CoreC-45Termination-expandToArity e-0 '())) (let ((e-2 (car arg-1))) (let ((e-3 (cdr arg-1))) (cons e-2 (CoreC-45Termination-expandToArity e-0 e-3)))))))))) +(define CoreC-45Termination-delazy (lambda (arg-1 arg-2) (case (vector-ref arg-2 0) ((6) (let ((e-1 (vector-ref arg-2 1))) (let ((e-2 (vector-ref arg-2 2))) (let ((e-3 (vector-ref arg-2 3))) (let ((u--tmC-39 (CoreC-45Termination-delazy arg-1 e-3))) (cond ((equal? e-2 0) (vector 6 e-1 e-2 u--tmC-39))(else u--tmC-39))))))) ((7) (let ((e-5 (vector-ref arg-2 1))) (let ((e-6 (vector-ref arg-2 2))) (let ((e-7 (vector-ref arg-2 3))) (let ((e-8 (vector-ref arg-2 4))) (let ((u--tyC-39 (CoreC-45Termination-delazy arg-1 e-7))) (let ((u--tmC-39 (CoreC-45Termination-delazy arg-1 e-8))) (cond ((equal? e-6 0) (vector 7 e-5 e-6 u--tyC-39 u--tmC-39))(else u--tmC-39))))))))) ((8) (let ((e-10 (vector-ref arg-2 1))) (let ((e-11 (vector-ref arg-2 2))) (let ((e-12 (vector-ref arg-2 3))) (cond ((equal? e-11 0) (vector 8 e-10 e-11 (CoreC-45Termination-delazy arg-1 e-12)))(else (CoreC-45Termination-delazy arg-1 e-12))))))) ((2) (let ((e-14 (vector-ref arg-2 1))) (let ((e-15 (vector-ref arg-2 2))) (let ((e-16 (vector-ref arg-2 3))) (let ((e-17 (vector-ref arg-2 4))) (vector 2 e-14 e-15 e-16 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45Termination-delazy arg-1 eta-0)) e-17))))))) ((3) (let ((e-19 (vector-ref arg-2 1))) (let ((e-20 (vector-ref arg-2 2))) (let ((e-21 (vector-ref arg-2 3))) (let ((e-22 (vector-ref arg-2 4))) (vector 3 e-19 e-20 (CoreC-45TT-u--map_Functor_Binder (lambda (eta-0) (CoreC-45Termination-delazy arg-1 eta-0)) e-21) (CoreC-45Termination-delazy arg-1 e-22))))))) ((4) (let ((e-24 (vector-ref arg-2 1))) (let ((e-25 (vector-ref arg-2 2))) (let ((e-26 (vector-ref arg-2 3))) (vector 4 e-24 (CoreC-45Termination-delazy arg-1 e-25) (CoreC-45Termination-delazy arg-1 e-26)))))) ((5) (let ((e-28 (vector-ref arg-2 1))) (let ((e-29 (vector-ref arg-2 2))) (let ((e-30 (vector-ref arg-2 3))) (let ((e-31 (vector-ref arg-2 4))) (vector 5 e-28 e-29 (CoreC-45Termination-delazy arg-1 e-30) (CoreC-45Termination-delazy arg-1 e-31)))))))(else arg-2)))) +(define CoreC-45Termination-checkTotal (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) ((CoreC-45Termination-case--checkTotal-10618 arg-2 arg-1 arg-0 e-5 (CoreC-45Context-getNameID arg-2 (let ((e-0 (vector-ref e-5 0))) e-0))) ext-0))))))) +(define CoreC-45Termination-checkTerminating (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (CoreC-45Context-getTotality arg-0 arg-1 arg-2 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-0))))) arg-2 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (CoreC-45ContextC-45Log-log arg-0 "totality.termination" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Checking termination: " (CoreC-45Name-u--show_Show_Name e-6))) ext-0))))))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (CoreC-45Termination-case--checkTerminating-9546 arg-2 arg-1 arg-0 e-5 (let ((e-0 (car e-5))) e-0) ext-0)))))))))) +(define CoreC-45Termination-checkSC (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (let ((act-25 (CoreC-45Context-toFullNames arg-1 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-0))))) arg-4 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (CoreC-45ContextC-45Log-log arg-1 "totality.termination.sizechange" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Checking Size Change Graph: " (CoreC-45Name-u--show_Show_Name e-6))) ext-0))))))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((u--pos (cons arg-4 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (PreludeC-45Types-u--map_Functor_Maybe (lambda (eta-1) (Builtin-fst eta-1)) eta-0)) arg-5)))) (let ((sc2 (LibrariesC-45DataC-45SortedMap-lookup u--pos e-5))) (if (null? sc2) (let ((sc3 (PreludeC-45Types-elem (cons (lambda (arg-7) (lambda (arg-8) (PreludeC-45EqOrd-u--C-61C-61_Eq_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (arg-9) (lambda (arg-10) (CoreC-45Name-u--C-61C-61_Eq_Name arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (CoreC-45Name-u--C-47C-61_Eq_Name arg-9 arg-10)))) (cons (lambda (arg-9) (lambda (arg-10) (PreludeC-45Types-u--C-61C-61_Eq_C-40ListC-32C-36aC-41 (cons (lambda (arg-11) (lambda (arg-12) (PreludeC-45Types-u--C-61C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-13) (lambda (arg-14) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-13 arg-14))) (lambda (arg-13) (lambda (arg-14) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-13 arg-14)))) arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (PreludeC-45Types-u--C-47C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-13) (lambda (arg-14) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-13 arg-14))) (lambda (arg-13) (lambda (arg-14) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-13 arg-14)))) arg-11 arg-12)))) arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (PreludeC-45Types-u--C-47C-61_Eq_C-40ListC-32C-36aC-41 (cons (lambda (arg-11) (lambda (arg-12) (PreludeC-45Types-u--C-61C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-13) (lambda (arg-14) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-13 arg-14))) (lambda (arg-13) (lambda (arg-14) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-13 arg-14)))) arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (PreludeC-45Types-u--C-47C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-13) (lambda (arg-14) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-13 arg-14))) (lambda (arg-13) (lambda (arg-14) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-13 arg-14)))) arg-11 arg-12)))) arg-9 arg-10)))) arg-7 arg-8))) (lambda (arg-7) (lambda (arg-8) (PreludeC-45EqOrd-u--C-47C-61_Eq_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (arg-9) (lambda (arg-10) (CoreC-45Name-u--C-61C-61_Eq_Name arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (CoreC-45Name-u--C-47C-61_Eq_Name arg-9 arg-10)))) (cons (lambda (arg-9) (lambda (arg-10) (PreludeC-45Types-u--C-61C-61_Eq_C-40ListC-32C-36aC-41 (cons (lambda (arg-11) (lambda (arg-12) (PreludeC-45Types-u--C-61C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-13) (lambda (arg-14) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-13 arg-14))) (lambda (arg-13) (lambda (arg-14) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-13 arg-14)))) arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (PreludeC-45Types-u--C-47C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-13) (lambda (arg-14) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-13 arg-14))) (lambda (arg-13) (lambda (arg-14) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-13 arg-14)))) arg-11 arg-12)))) arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (PreludeC-45Types-u--C-47C-61_Eq_C-40ListC-32C-36aC-41 (cons (lambda (arg-11) (lambda (arg-12) (PreludeC-45Types-u--C-61C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-13) (lambda (arg-14) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-13 arg-14))) (lambda (arg-13) (lambda (arg-14) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-13 arg-14)))) arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (PreludeC-45Types-u--C-47C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-13) (lambda (arg-14) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-13 arg-14))) (lambda (arg-13) (lambda (arg-14) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-13 arg-14)))) arg-11 arg-12)))) arg-9 arg-10)))) arg-7 arg-8)))) u--pos arg-6))) (cond ((equal? sc3 1) (let ((act-26 (let ((act-26 (CoreC-45Context-toFullNames arg-1 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-0))))) arg-4 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (CoreC-45ContextC-45Log-log arg-1 "totality.termination.sizechange.inPath" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Checking arguments: " (CoreC-45Name-u--show_Show_Name e-7))) ext-0))))))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((act-27 (CoreC-45Context-toFullNames arg-1 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Terminating arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Terminating arg-3843 arg-3844 eta-0))))) (CoreC-45Termination-n--9987-8272-u--checkDesc arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 (DataC-45List-mapMaybe (lambda (eta-0) (PreludeC-45Types-u--map_Functor_Maybe (lambda (eta-1) (Builtin-snd eta-1)) eta-0)) arg-5) arg-6) ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (let ((act-28 (let ((act-28 (set-box! arg-2 (LibrariesC-45DataC-45SortedMap-insert u--pos e-8 e-5)))) (vector 1 act-28)))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (vector 1 e-8)))))))))))) (else (let ((act-26 ((CoreC-45Context-lookupCtxtExact arg-4 (let ((e-0 (vector-ref arg-3 0))) e-0)) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (if (null? e-7) (let ((act-27 (let ((act-27 (CoreC-45Context-toFullNames arg-1 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-0))))) arg-4 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (CoreC-45ContextC-45Log-log arg-1 "totality.termination.sizechange.isTerminating" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Size Change Graph is Terminating for: " (CoreC-45Name-u--show_Show_Name e-8))) ext-0))))))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (vector 1 (vector 1 ))))) (let ((e-2 (unbox e-7))) (let ((act-27 (let ((act-27 (CoreC-45Context-toFullNames arg-1 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-0))))) arg-4 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-3 (vector-ref act-27 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref act-27 1))) (CoreC-45ContextC-45Log-log arg-1 "totality.termination.sizechange.needsChecking" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Size Change Graph needs traversing: " (CoreC-45Name-u--show_Show_Name e-8))) ext-0))))))) (case (vector-ref act-27 0) ((0) (let ((e-3 (vector-ref act-27 1))) (vector 0 e-3))) (else (CoreC-45Termination-n--9987-8278-u--continue arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 (let ((e-20 (vector-ref e-2 20))) e-20) (cons u--pos arg-6) ext-0))))))))))))) (let ((e-1 (unbox sc2))) (vector 1 e-1)))))))))))))) +(define CoreC-45Termination-checkPositive (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (CoreC-45Context-toResolvedNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-0))))) arg-2 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-getTotality arg-0 arg-1 e-5 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-0))))) e-5 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (CoreC-45ContextC-45Log-log arg-0 "totality.positivity" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Checking positivity: " (CoreC-45Name-u--show_Show_Name e-7))) ext-0))))))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (CoreC-45Termination-case--checkPositive-10541 arg-2 arg-1 arg-0 e-5 e-6 (let ((e-0 (car e-6))) e-0) ext-0)))))))))))))) +(define CoreC-45Termination-checkPosArgs (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (case (vector-ref arg-3 0) ((0) (let ((e-1 (vector-ref arg-3 1))) (let ((e-3 (vector-ref arg-3 3))) (let ((e-4 (vector-ref arg-3 4))) (case (vector-ref e-3 0) ((2) (let ((e-9 (vector-ref e-3 4))) (let ((act-24 (CoreC-45Termination-posArg arg-0 arg-1 arg-2 e-9 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (case (vector-ref e-5 0) ((1) (let ((act-25 (((e-4 arg-1) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 e-1 0))) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (CoreC-45Termination-checkPosArgs arg-0 arg-1 arg-2 e-10 ext-0))))))(else (vector 1 e-5)))))))))(else (vector 1 (vector 1 ))))))))(else (vector 1 (vector 1 )))))) +(define CoreC-45Termination-checkIfGuarded (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-0))))) arg-2 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (CoreC-45ContextC-45Log-log arg-0 "totality.termination.guarded" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Check if Guarded: " (CoreC-45Name-u--show_Show_Name e-5))) ext-0))))))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 (let ((act-25 (unbox arg-0))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Context-lookupDefExact arg-2 (let ((e-0 (vector-ref e-6 0))) e-0) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (if (null? e-7) (vector 1 0) (let ((e-1 (unbox e-7))) (case (vector-ref e-1 0) ((1) (let ((e-8 (vector-ref e-1 5))) (let ((act-27 ((CoreC-45Termination-n--6509-5172-u--allGuarded arg-2 arg-1 arg-0 e-8) ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-27 1))) (cond ((equal? e-10 1) (CoreC-45Context-setFlag arg-0 arg-1 arg-2 (vector 8 ) ext-0)) (else (vector 1 0)))))))))(else (vector 1 0)))))))))))))))))) +(define CoreC-45Termination-checkData (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (if (null? arg-3) (vector 1 (vector 1 )) (let ((e-2 (car arg-3))) (let ((e-3 (cdr arg-3))) (let ((act-24 (CoreC-45Termination-checkCon arg-0 arg-1 arg-2 e-2 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (case (vector-ref e-5 0) ((1) (CoreC-45Termination-checkData arg-0 arg-1 arg-2 e-3 ext-0))(else (vector 1 e-5)))))))))))) +(define CoreC-45Termination-checkCon (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (CoreC-45Context-lookupTyExact arg-3 (let ((e-0 (vector-ref arg-1 0))) e-0) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (if (null? e-5) (vector 1 (vector 0 )) (let ((e-2 (unbox e-5))) (let ((act-25 (CoreC-45Termination-totRefsIn arg-0 arg-1 e-2 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-3 (vector-ref act-25 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref act-25 1))) (case (vector-ref e-6 0) ((1) (let ((act-26 ((CoreC-45Normalise-nf arg-0 '() arg-1 '() e-2) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-3 (vector-ref act-26 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref act-26 1))) (CoreC-45Termination-checkPosArgs arg-0 arg-1 arg-2 e-7 ext-0))))))(else (vector 1 e-6))))))))))))))) +(define CoreC-45Termination-caseFn (lambda (arg-0) (case (vector-ref arg-0 0) ((7) 1) ((4) (let ((e-3 (vector-ref arg-0 2))) (CoreC-45Termination-caseFn e-3))) ((0) (let ((e-5 (vector-ref arg-0 2))) (CoreC-45Termination-caseFn e-5)))(else 0)))) +(define CoreC-45Termination-calculateSizeChange (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-0))))) arg-2 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (CoreC-45ContextC-45Log-log arg-0 "totality.termination.sizechange" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Calculating Size Change: " (CoreC-45Name-u--show_Show_Name e-5))) ext-0))))))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 (let ((act-25 (unbox arg-0))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 ((CoreC-45Context-lookupCtxtExact arg-2 (let ((e-0 (vector-ref e-6 0))) e-0)) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (if (null? e-7) (CoreC-45Context-undefinedName arg-0 arg-1 arg-2 ext-0) (let ((e-1 (unbox e-7))) (CoreC-45Termination-getSC arg-0 e-6 (let ((e-17 (vector-ref e-1 17))) e-17) ext-0)))))))))))))))) +(define CoreC-45Termination-calcTerminating (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-0))))) arg-2 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (CoreC-45ContextC-45Log-log arg-0 "totality.termination.calc" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Calculating termination: " (CoreC-45Name-u--show_Show_Name e-6))) ext-0))))))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 ((CoreC-45Context-lookupCtxtExact arg-2 (let ((e-0 (vector-ref e-5 0))) e-0)) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (if (null? e-7) (CoreC-45Context-undefinedName arg-0 arg-1 arg-2 ext-0) (let ((e-2 (unbox e-7))) (let ((act-27 ((CoreC-45Termination-n--10999-9193-u--addCases arg-2 arg-1 arg-0 e-5 (LibrariesC-45DataC-45NameMap-keys (CoreC-45Context-refersTo e-2))) ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-3 (vector-ref act-27 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref act-27 1))) (let ((act-28 (CoreC-45Termination-totRefs arg-0 e-5 (DataC-45List-nub (cons (lambda (arg-3) (lambda (arg-4) (CoreC-45Name-u--C-61C-61_Eq_Name arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (CoreC-45Name-u--C-47C-61_Eq_Name arg-4 arg-5)))) e-8) ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-3 (vector-ref act-28 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref act-28 1))) (case (vector-ref e-9 0) ((1) (let ((u--ty (let ((e-26 (vector-ref e-2 2))) e-26))) (let ((act-29 (CoreC-45Core-newRef (vector "Core.Termination.APos" ) (CoreC-45Termination-firstArg) ext-0))) (case (vector-ref act-29 0) ((0) (let ((e-3 (vector-ref act-29 1))) (vector 0 e-3))) (else (let ((e-10 (vector-ref act-29 1))) (let ((act-30 (let ((act-30 (CoreC-45Normalise-getArity arg-0 '() e-5 '() u--ty ext-0))) (case (vector-ref act-30 0) ((0) (let ((e-3 (vector-ref act-30 1))) (vector 0 e-3))) (else (let ((e-11 (vector-ref act-30 1))) ((CoreC-45Termination-initArgs e-10 e-11) ext-0))))))) (case (vector-ref act-30 0) ((0) (let ((e-3 (vector-ref act-30 1))) (vector 0 e-3))) (else (let ((e-11 (vector-ref act-30 1))) (let ((act-31 (CoreC-45Core-newRef (vector "Core.Termination.Explored" ) (LibrariesC-45DataC-45SortedMap-empty (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (arg-5) (lambda (arg-6) (CoreC-45Name-u--C-61C-61_Eq_Name arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (CoreC-45Name-u--C-47C-61_Eq_Name arg-5 arg-6)))) (cons (lambda (arg-5) (lambda (arg-6) (PreludeC-45Types-u--C-61C-61_Eq_C-40ListC-32C-36aC-41 (cons (lambda (arg-7) (lambda (arg-8) (PreludeC-45Types-u--C-61C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-9) (lambda (arg-10) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-9 arg-10)))) arg-7 arg-8))) (lambda (arg-7) (lambda (arg-8) (PreludeC-45Types-u--C-47C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-9) (lambda (arg-10) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-9 arg-10)))) arg-7 arg-8)))) arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (PreludeC-45Types-u--C-47C-61_Eq_C-40ListC-32C-36aC-41 (cons (lambda (arg-7) (lambda (arg-8) (PreludeC-45Types-u--C-61C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-9) (lambda (arg-10) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-9 arg-10)))) arg-7 arg-8))) (lambda (arg-7) (lambda (arg-8) (PreludeC-45Types-u--C-47C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-9) (lambda (arg-10) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-9 arg-10)))) arg-7 arg-8)))) arg-5 arg-6)))) arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (arg-3) (lambda (arg-6) (CoreC-45Name-u--C-61C-61_Eq_Name arg-3 arg-6))) (lambda (arg-6) (lambda (arg-7) (CoreC-45Name-u--C-47C-61_Eq_Name arg-6 arg-7)))) (cons (lambda (arg-3) (lambda (arg-6) (PreludeC-45Types-u--C-61C-61_Eq_C-40ListC-32C-36aC-41 (cons (lambda (arg-7) (lambda (arg-8) (PreludeC-45Types-u--C-61C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-9) (lambda (arg-10) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-9 arg-10)))) arg-7 arg-8))) (lambda (arg-7) (lambda (arg-8) (PreludeC-45Types-u--C-47C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-9) (lambda (arg-10) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-9 arg-10)))) arg-7 arg-8)))) arg-3 arg-6))) (lambda (arg-6) (lambda (arg-7) (PreludeC-45Types-u--C-47C-61_Eq_C-40ListC-32C-36aC-41 (cons (lambda (arg-3) (lambda (arg-8) (PreludeC-45Types-u--C-61C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-9) (lambda (arg-10) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-9 arg-10)))) arg-3 arg-8))) (lambda (arg-8) (lambda (arg-9) (PreludeC-45Types-u--C-47C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-3) (lambda (arg-10) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-10))) (lambda (arg-10) (lambda (arg-11) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-10 arg-11)))) arg-8 arg-9)))) arg-6 arg-7)))) arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (CoreC-45Name-u--C-61C-61_Eq_Name arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (CoreC-45Name-u--C-47C-61_Eq_Name arg-4 arg-5)))) (lambda (arg-356) (lambda (arg-357) (CoreC-45Name-u--compare_Ord_Name arg-356 arg-357))) (lambda (arg-356) (lambda (arg-357) (CoreC-45Name-u--C-60_Ord_Name arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (CoreC-45Name-u--C-62_Ord_Name arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (CoreC-45Name-u--C-60C-61_Ord_Name arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (CoreC-45Name-u--C-62C-61_Ord_Name arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (CoreC-45Name-u--max_Ord_Name arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (CoreC-45Name-u--min_Ord_Name arg-366 arg-367)))) (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45Types-u--C-61C-61_Eq_C-40ListC-32C-36aC-41 (cons (lambda (arg-5) (lambda (arg-6) (PreludeC-45Types-u--C-61C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-7) (lambda (arg-8) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-7 arg-8))) (lambda (arg-7) (lambda (arg-8) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-7 arg-8)))) arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (PreludeC-45Types-u--C-47C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-7) (lambda (arg-8) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-7 arg-8))) (lambda (arg-7) (lambda (arg-8) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-7 arg-8)))) arg-5 arg-6)))) arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45Types-u--C-47C-61_Eq_C-40ListC-32C-36aC-41 (cons (lambda (arg-3) (lambda (arg-6) (PreludeC-45Types-u--C-61C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-7) (lambda (arg-8) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-7 arg-8))) (lambda (arg-7) (lambda (arg-8) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-7 arg-8)))) arg-3 arg-6))) (lambda (arg-6) (lambda (arg-7) (PreludeC-45Types-u--C-47C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-3) (lambda (arg-8) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-8))) (lambda (arg-8) (lambda (arg-9) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-8 arg-9)))) arg-6 arg-7)))) arg-4 arg-5)))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45Types-u--compare_Ord_C-40ListC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45Types-u--C-61C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-5 arg-6)))) arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45Types-u--C-47C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-3) (lambda (arg-6) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-6))) (lambda (arg-6) (lambda (arg-7) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-6 arg-7)))) arg-4 arg-5)))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45Types-u--compare_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--compare_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45Types-u--C-60_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--compare_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45Types-u--C-62_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--compare_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45Types-u--C-60C-61_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--compare_Ord_Int arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45Types-u--C-62C-61_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--compare_Ord_Int arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45Types-u--max_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--compare_Ord_Int arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--max_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45Types-u--min_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--compare_Ord_Int arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) arg-366 arg-367)))) arg-356 arg-357))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45Types-u--C-60_Ord_C-40ListC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45Types-u--C-61C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-5 arg-6)))) arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45Types-u--C-47C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-3) (lambda (arg-6) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-6))) (lambda (arg-6) (lambda (arg-7) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-6 arg-7)))) arg-4 arg-5)))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45Types-u--compare_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--compare_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45Types-u--C-60_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--compare_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45Types-u--C-62_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--compare_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45Types-u--C-60C-61_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--compare_Ord_Int arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45Types-u--C-62C-61_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--compare_Ord_Int arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45Types-u--max_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--compare_Ord_Int arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--max_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45Types-u--min_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--compare_Ord_Int arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) arg-366 arg-367)))) arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45Types-u--C-62_Ord_C-40ListC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45Types-u--C-61C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-5 arg-6)))) arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45Types-u--C-47C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-3) (lambda (arg-6) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-6))) (lambda (arg-6) (lambda (arg-7) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-6 arg-7)))) arg-4 arg-5)))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45Types-u--compare_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--compare_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-356 arg-357))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45Types-u--C-60_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--compare_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-356 arg-357))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45Types-u--C-62_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--compare_Ord_Int arg-356 arg-357))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45Types-u--C-60C-61_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--compare_Ord_Int arg-356 arg-357))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45Types-u--C-62C-61_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--compare_Ord_Int arg-356 arg-357))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45Types-u--max_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--compare_Ord_Int arg-356 arg-357))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--max_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45Types-u--min_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--compare_Ord_Int arg-356 arg-357))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) arg-366 arg-367)))) arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45Types-u--C-60C-61_Ord_C-40ListC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45Types-u--C-61C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-5 arg-6)))) arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45Types-u--C-47C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-3) (lambda (arg-6) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-6))) (lambda (arg-6) (lambda (arg-7) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-6 arg-7)))) arg-4 arg-5)))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45Types-u--compare_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--compare_Ord_Int arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-356 arg-357))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45Types-u--C-60_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--compare_Ord_Int arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45Types-u--C-62_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--compare_Ord_Int arg-356 arg-357))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-358 arg-359))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45Types-u--C-60C-61_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--compare_Ord_Int arg-356 arg-357))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45Types-u--C-62C-61_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--compare_Ord_Int arg-356 arg-357))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45Types-u--max_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--compare_Ord_Int arg-356 arg-357))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--max_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45Types-u--min_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--compare_Ord_Int arg-356 arg-357))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) arg-366 arg-367)))) arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45Types-u--C-62C-61_Ord_C-40ListC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45Types-u--C-61C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-5 arg-6)))) arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45Types-u--C-47C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-3) (lambda (arg-6) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-6))) (lambda (arg-6) (lambda (arg-7) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-6 arg-7)))) arg-4 arg-5)))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45Types-u--compare_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--compare_Ord_Int arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-356 arg-357))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45Types-u--C-60_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--compare_Ord_Int arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45Types-u--C-62_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--compare_Ord_Int arg-356 arg-357))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45Types-u--C-60C-61_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--compare_Ord_Int arg-356 arg-357))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-360 arg-361))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45Types-u--C-62C-61_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--compare_Ord_Int arg-356 arg-357))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--max_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45Types-u--max_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--compare_Ord_Int arg-356 arg-357))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--max_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45Types-u--min_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--compare_Ord_Int arg-356 arg-357))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) arg-366 arg-367)))) arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45Types-u--max_Ord_C-40ListC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45Types-u--C-61C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-5 arg-6)))) arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45Types-u--C-47C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-3) (lambda (arg-6) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-6))) (lambda (arg-6) (lambda (arg-7) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-6 arg-7)))) arg-4 arg-5)))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45Types-u--compare_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--compare_Ord_Int arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--max_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-356 arg-357))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45Types-u--C-60_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--compare_Ord_Int arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--max_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45Types-u--C-62_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--compare_Ord_Int arg-356 arg-357))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--max_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45Types-u--C-60C-61_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--compare_Ord_Int arg-356 arg-357))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--max_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45Types-u--C-62C-61_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--compare_Ord_Int arg-356 arg-357))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--max_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-362 arg-363))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45Types-u--max_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--compare_Ord_Int arg-356 arg-357))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--max_Ord_Int arg-368 arg-369))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45Types-u--min_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--compare_Ord_Int arg-356 arg-357))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--max_Ord_Int arg-368 arg-369))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) arg-366 arg-367)))) arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45Types-u--min_Ord_C-40ListC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45Types-u--C-61C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-5 arg-6)))) arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45Types-u--C-47C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-3) (lambda (arg-6) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-6))) (lambda (arg-6) (lambda (arg-7) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-6 arg-7)))) arg-4 arg-5)))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45Types-u--compare_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--compare_Ord_Int arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) arg-356 arg-357))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45Types-u--C-60_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--compare_Ord_Int arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45Types-u--C-62_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--compare_Ord_Int arg-356 arg-357))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45Types-u--C-60C-61_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--compare_Ord_Int arg-356 arg-357))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45Types-u--C-62C-61_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--compare_Ord_Int arg-356 arg-357))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45Types-u--max_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--compare_Ord_Int arg-356 arg-357))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--max_Ord_Int arg-368 arg-369))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) arg-364 arg-365))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45Types-u--min_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--compare_Ord_Int arg-356 arg-357))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-370) (lambda (arg-371) (PreludeC-45EqOrd-u--min_Ord_Int arg-370 arg-371)))) arg-368 arg-369)))) arg-366 arg-367)))) arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (CoreC-45Name-u--C-61C-61_Eq_Name arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (CoreC-45Name-u--C-47C-61_Eq_Name arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (CoreC-45Name-u--compare_Ord_Name arg-354 arg-355))) (lambda (arg-358) (lambda (arg-359) (CoreC-45Name-u--C-60_Ord_Name arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (CoreC-45Name-u--C-62_Ord_Name arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (CoreC-45Name-u--C-60C-61_Ord_Name arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (CoreC-45Name-u--C-62C-61_Ord_Name arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (CoreC-45Name-u--max_Ord_Name arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (CoreC-45Name-u--min_Ord_Name arg-366 arg-367)))) (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45Types-u--C-61C-61_Eq_C-40ListC-32C-36aC-41 (cons (lambda (arg-5) (lambda (arg-6) (PreludeC-45Types-u--C-61C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-7) (lambda (arg-8) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-7 arg-8))) (lambda (arg-7) (lambda (arg-8) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-7 arg-8)))) arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (PreludeC-45Types-u--C-47C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-7) (lambda (arg-8) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-7 arg-8))) (lambda (arg-7) (lambda (arg-8) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-7 arg-8)))) arg-5 arg-6)))) arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45Types-u--C-47C-61_Eq_C-40ListC-32C-36aC-41 (cons (lambda (arg-3) (lambda (arg-6) (PreludeC-45Types-u--C-61C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-7) (lambda (arg-8) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-7 arg-8))) (lambda (arg-7) (lambda (arg-8) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-7 arg-8)))) arg-3 arg-6))) (lambda (arg-6) (lambda (arg-7) (PreludeC-45Types-u--C-47C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-3) (lambda (arg-8) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-8))) (lambda (arg-8) (lambda (arg-9) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-8 arg-9)))) arg-6 arg-7)))) arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45Types-u--compare_Ord_C-40ListC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45Types-u--C-61C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-5 arg-6)))) arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45Types-u--C-47C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-3) (lambda (arg-6) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-6))) (lambda (arg-6) (lambda (arg-7) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-6 arg-7)))) arg-4 arg-5)))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45Types-u--compare_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--compare_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45Types-u--C-60_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--compare_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45Types-u--C-62_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--compare_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45Types-u--C-60C-61_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--compare_Ord_Int arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45Types-u--C-62C-61_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--compare_Ord_Int arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45Types-u--max_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--compare_Ord_Int arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--max_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45Types-u--min_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--compare_Ord_Int arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) arg-366 arg-367)))) arg-354 arg-355))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45Types-u--C-60_Ord_C-40ListC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45Types-u--C-61C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-5 arg-6)))) arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45Types-u--C-47C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-3) (lambda (arg-6) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-6))) (lambda (arg-6) (lambda (arg-7) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-6 arg-7)))) arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45Types-u--compare_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--compare_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-354 arg-355))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45Types-u--C-60_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45Types-u--C-62_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45Types-u--C-60C-61_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45Types-u--C-62C-61_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45Types-u--max_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--max_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45Types-u--min_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) arg-366 arg-367)))) arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45Types-u--C-62_Ord_C-40ListC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45Types-u--C-61C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-5 arg-6)))) arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45Types-u--C-47C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-3) (lambda (arg-6) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-6))) (lambda (arg-6) (lambda (arg-7) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-6 arg-7)))) arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45Types-u--compare_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--compare_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-354 arg-355))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45Types-u--C-60_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45Types-u--C-62_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45Types-u--C-60C-61_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45Types-u--C-62C-61_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45Types-u--max_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--max_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45Types-u--min_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) arg-366 arg-367)))) arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45Types-u--C-60C-61_Ord_C-40ListC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45Types-u--C-61C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-5 arg-6)))) arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45Types-u--C-47C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-3) (lambda (arg-6) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-6))) (lambda (arg-6) (lambda (arg-7) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-6 arg-7)))) arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45Types-u--compare_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--compare_Ord_Int arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-354 arg-355))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45Types-u--C-60_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45Types-u--C-62_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-358 arg-359))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45Types-u--C-60C-61_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45Types-u--C-62C-61_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45Types-u--max_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--max_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45Types-u--min_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) arg-366 arg-367)))) arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45Types-u--C-62C-61_Ord_C-40ListC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45Types-u--C-61C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-5 arg-6)))) arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45Types-u--C-47C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-3) (lambda (arg-6) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-6))) (lambda (arg-6) (lambda (arg-7) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-6 arg-7)))) arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45Types-u--compare_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--compare_Ord_Int arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-354 arg-355))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45Types-u--C-60_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45Types-u--C-62_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45Types-u--C-60C-61_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-360 arg-361))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45Types-u--C-62C-61_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--max_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45Types-u--max_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--max_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45Types-u--min_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) arg-366 arg-367)))) arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45Types-u--max_Ord_C-40ListC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45Types-u--C-61C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-5 arg-6)))) arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45Types-u--C-47C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-3) (lambda (arg-6) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-6))) (lambda (arg-6) (lambda (arg-7) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-6 arg-7)))) arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45Types-u--compare_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--compare_Ord_Int arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--max_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-354 arg-355))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45Types-u--C-60_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--max_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45Types-u--C-62_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--max_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45Types-u--C-60C-61_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--max_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45Types-u--C-62C-61_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--max_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-362 arg-363))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45Types-u--max_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--max_Ord_Int arg-368 arg-369))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45Types-u--min_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--max_Ord_Int arg-368 arg-369))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) arg-366 arg-367)))) arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45Types-u--min_Ord_C-40ListC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45Types-u--C-61C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-5 arg-6)))) arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45Types-u--C-47C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-3) (lambda (arg-6) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-6))) (lambda (arg-6) (lambda (arg-7) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-6 arg-7)))) arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45Types-u--compare_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--compare_Ord_Int arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) arg-354 arg-355))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45Types-u--C-60_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45Types-u--C-62_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45Types-u--C-60C-61_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45Types-u--C-62C-61_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45Types-u--max_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--max_Ord_Int arg-368 arg-369))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) arg-364 arg-365))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45Types-u--min_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-370) (lambda (arg-371) (PreludeC-45EqOrd-u--min_Ord_Int arg-370 arg-371)))) arg-368 arg-369)))) arg-366 arg-367)))) arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (CoreC-45Name-u--C-61C-61_Eq_Name arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (CoreC-45Name-u--C-47C-61_Eq_Name arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (CoreC-45Name-u--compare_Ord_Name arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (CoreC-45Name-u--C-60_Ord_Name arg-356 arg-357))) (lambda (arg-360) (lambda (arg-361) (CoreC-45Name-u--C-62_Ord_Name arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (CoreC-45Name-u--C-60C-61_Ord_Name arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (CoreC-45Name-u--C-62C-61_Ord_Name arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (CoreC-45Name-u--max_Ord_Name arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (CoreC-45Name-u--min_Ord_Name arg-366 arg-367)))) (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45Types-u--C-61C-61_Eq_C-40ListC-32C-36aC-41 (cons (lambda (arg-5) (lambda (arg-6) (PreludeC-45Types-u--C-61C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-7) (lambda (arg-8) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-7 arg-8))) (lambda (arg-7) (lambda (arg-8) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-7 arg-8)))) arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (PreludeC-45Types-u--C-47C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-7) (lambda (arg-8) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-7 arg-8))) (lambda (arg-7) (lambda (arg-8) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-7 arg-8)))) arg-5 arg-6)))) arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45Types-u--C-47C-61_Eq_C-40ListC-32C-36aC-41 (cons (lambda (arg-3) (lambda (arg-6) (PreludeC-45Types-u--C-61C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-7) (lambda (arg-8) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-7 arg-8))) (lambda (arg-7) (lambda (arg-8) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-7 arg-8)))) arg-3 arg-6))) (lambda (arg-6) (lambda (arg-7) (PreludeC-45Types-u--C-47C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-3) (lambda (arg-8) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-8))) (lambda (arg-8) (lambda (arg-9) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-8 arg-9)))) arg-6 arg-7)))) arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45Types-u--compare_Ord_C-40ListC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45Types-u--C-61C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-5 arg-6)))) arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45Types-u--C-47C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-3) (lambda (arg-6) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-6))) (lambda (arg-6) (lambda (arg-7) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-6 arg-7)))) arg-4 arg-5)))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45Types-u--compare_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--compare_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-356 arg-357))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45Types-u--C-60_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--compare_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-356 arg-357))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45Types-u--C-62_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--compare_Ord_Int arg-356 arg-357))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45Types-u--C-60C-61_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--compare_Ord_Int arg-356 arg-357))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45Types-u--C-62C-61_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--compare_Ord_Int arg-356 arg-357))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45Types-u--max_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--compare_Ord_Int arg-356 arg-357))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--max_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45Types-u--min_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--compare_Ord_Int arg-356 arg-357))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) arg-366 arg-367)))) arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45Types-u--C-60_Ord_C-40ListC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45Types-u--C-61C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-5 arg-6)))) arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45Types-u--C-47C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-3) (lambda (arg-6) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-6))) (lambda (arg-6) (lambda (arg-7) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-6 arg-7)))) arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45Types-u--compare_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--compare_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-354 arg-355))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45Types-u--C-60_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45Types-u--C-62_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45Types-u--C-60C-61_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45Types-u--C-62C-61_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45Types-u--max_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--max_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45Types-u--min_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) arg-366 arg-367)))) arg-356 arg-357))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45Types-u--C-62_Ord_C-40ListC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45Types-u--C-61C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-5 arg-6)))) arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45Types-u--C-47C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-3) (lambda (arg-6) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-6))) (lambda (arg-6) (lambda (arg-7) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-6 arg-7)))) arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45Types-u--compare_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--compare_Ord_Int arg-356 arg-357))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45Types-u--C-60_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-356 arg-357))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45Types-u--C-62_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45Types-u--C-60C-61_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45Types-u--C-62C-61_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45Types-u--max_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--max_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45Types-u--min_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) arg-366 arg-367)))) arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45Types-u--C-60C-61_Ord_C-40ListC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45Types-u--C-61C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-5 arg-6)))) arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45Types-u--C-47C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-3) (lambda (arg-6) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-6))) (lambda (arg-6) (lambda (arg-7) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-6 arg-7)))) arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45Types-u--compare_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--compare_Ord_Int arg-356 arg-357))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45Types-u--C-60_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-356 arg-357))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45Types-u--C-62_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45Types-u--C-60C-61_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45Types-u--C-62C-61_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45Types-u--max_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--max_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45Types-u--min_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) arg-366 arg-367)))) arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45Types-u--C-62C-61_Ord_C-40ListC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45Types-u--C-61C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-5 arg-6)))) arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45Types-u--C-47C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-3) (lambda (arg-6) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-6))) (lambda (arg-6) (lambda (arg-7) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-6 arg-7)))) arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45Types-u--compare_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--compare_Ord_Int arg-356 arg-357))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45Types-u--C-60_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-356 arg-357))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45Types-u--C-62_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45Types-u--C-60C-61_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-360 arg-361))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45Types-u--C-62C-61_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--max_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45Types-u--max_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--max_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45Types-u--min_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) arg-366 arg-367)))) arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45Types-u--max_Ord_C-40ListC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45Types-u--C-61C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-5 arg-6)))) arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45Types-u--C-47C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-3) (lambda (arg-6) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-6))) (lambda (arg-6) (lambda (arg-7) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-6 arg-7)))) arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45Types-u--compare_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--compare_Ord_Int arg-356 arg-357))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--max_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45Types-u--C-60_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--max_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-356 arg-357))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45Types-u--C-62_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--max_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45Types-u--C-60C-61_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--max_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45Types-u--C-62C-61_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--max_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-362 arg-363))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45Types-u--max_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--max_Ord_Int arg-368 arg-369))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45Types-u--min_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--max_Ord_Int arg-368 arg-369))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) arg-366 arg-367)))) arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45Types-u--min_Ord_C-40ListC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45Types-u--C-61C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-5 arg-6)))) arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45Types-u--C-47C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-3) (lambda (arg-6) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-6))) (lambda (arg-6) (lambda (arg-7) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-6 arg-7)))) arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45Types-u--compare_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--compare_Ord_Int arg-356 arg-357))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45Types-u--C-60_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) arg-356 arg-357))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45Types-u--C-62_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45Types-u--C-60C-61_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45Types-u--C-62C-61_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45Types-u--max_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--max_Ord_Int arg-368 arg-369))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) arg-364 arg-365))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45Types-u--min_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-370) (lambda (arg-371) (PreludeC-45EqOrd-u--min_Ord_Int arg-370 arg-371)))) arg-368 arg-369)))) arg-366 arg-367)))) arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (CoreC-45Name-u--C-61C-61_Eq_Name arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (CoreC-45Name-u--C-47C-61_Eq_Name arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (CoreC-45Name-u--compare_Ord_Name arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (CoreC-45Name-u--C-60_Ord_Name arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (CoreC-45Name-u--C-62_Ord_Name arg-358 arg-359))) (lambda (arg-362) (lambda (arg-363) (CoreC-45Name-u--C-60C-61_Ord_Name arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (CoreC-45Name-u--C-62C-61_Ord_Name arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (CoreC-45Name-u--max_Ord_Name arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (CoreC-45Name-u--min_Ord_Name arg-366 arg-367)))) (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45Types-u--C-61C-61_Eq_C-40ListC-32C-36aC-41 (cons (lambda (arg-5) (lambda (arg-6) (PreludeC-45Types-u--C-61C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-7) (lambda (arg-8) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-7 arg-8))) (lambda (arg-7) (lambda (arg-8) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-7 arg-8)))) arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (PreludeC-45Types-u--C-47C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-7) (lambda (arg-8) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-7 arg-8))) (lambda (arg-7) (lambda (arg-8) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-7 arg-8)))) arg-5 arg-6)))) arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45Types-u--C-47C-61_Eq_C-40ListC-32C-36aC-41 (cons (lambda (arg-3) (lambda (arg-6) (PreludeC-45Types-u--C-61C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-7) (lambda (arg-8) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-7 arg-8))) (lambda (arg-7) (lambda (arg-8) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-7 arg-8)))) arg-3 arg-6))) (lambda (arg-6) (lambda (arg-7) (PreludeC-45Types-u--C-47C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-3) (lambda (arg-8) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-8))) (lambda (arg-8) (lambda (arg-9) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-8 arg-9)))) arg-6 arg-7)))) arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45Types-u--compare_Ord_C-40ListC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45Types-u--C-61C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-5 arg-6)))) arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45Types-u--C-47C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-3) (lambda (arg-6) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-6))) (lambda (arg-6) (lambda (arg-7) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-6 arg-7)))) arg-4 arg-5)))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45Types-u--compare_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--compare_Ord_Int arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-356 arg-357))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45Types-u--C-60_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--compare_Ord_Int arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45Types-u--C-62_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--compare_Ord_Int arg-356 arg-357))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-358 arg-359))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45Types-u--C-60C-61_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--compare_Ord_Int arg-356 arg-357))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45Types-u--C-62C-61_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--compare_Ord_Int arg-356 arg-357))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45Types-u--max_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--compare_Ord_Int arg-356 arg-357))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--max_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45Types-u--min_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--compare_Ord_Int arg-356 arg-357))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) arg-366 arg-367)))) arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45Types-u--C-60_Ord_C-40ListC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45Types-u--C-61C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-5 arg-6)))) arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45Types-u--C-47C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-3) (lambda (arg-6) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-6))) (lambda (arg-6) (lambda (arg-7) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-6 arg-7)))) arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45Types-u--compare_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--compare_Ord_Int arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-354 arg-355))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45Types-u--C-60_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45Types-u--C-62_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-358 arg-359))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45Types-u--C-60C-61_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45Types-u--C-62C-61_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45Types-u--max_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--max_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45Types-u--min_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) arg-366 arg-367)))) arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45Types-u--C-62_Ord_C-40ListC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45Types-u--C-61C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-5 arg-6)))) arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45Types-u--C-47C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-3) (lambda (arg-6) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-6))) (lambda (arg-6) (lambda (arg-7) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-6 arg-7)))) arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45Types-u--compare_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--compare_Ord_Int arg-356 arg-357))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45Types-u--C-60_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-356 arg-357))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45Types-u--C-62_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45Types-u--C-60C-61_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45Types-u--C-62C-61_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45Types-u--max_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--max_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45Types-u--min_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) arg-366 arg-367)))) arg-358 arg-359))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45Types-u--C-60C-61_Ord_C-40ListC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45Types-u--C-61C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-5 arg-6)))) arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45Types-u--C-47C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-3) (lambda (arg-6) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-6))) (lambda (arg-6) (lambda (arg-7) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-6 arg-7)))) arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45Types-u--compare_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--compare_Ord_Int arg-356 arg-357))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45Types-u--C-60_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45Types-u--C-62_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-358 arg-359))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45Types-u--C-60C-61_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--max_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45Types-u--C-62C-61_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--max_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45Types-u--max_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--max_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45Types-u--min_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) arg-366 arg-367)))) arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45Types-u--C-62C-61_Ord_C-40ListC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45Types-u--C-61C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-5 arg-6)))) arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45Types-u--C-47C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-3) (lambda (arg-6) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-6))) (lambda (arg-6) (lambda (arg-7) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-6 arg-7)))) arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45Types-u--compare_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--compare_Ord_Int arg-356 arg-357))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45Types-u--C-60_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45Types-u--C-62_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-358 arg-359))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45Types-u--C-60C-61_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--max_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45Types-u--C-62C-61_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--max_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45Types-u--max_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--max_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45Types-u--min_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) arg-366 arg-367)))) arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45Types-u--max_Ord_C-40ListC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45Types-u--C-61C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-5 arg-6)))) arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45Types-u--C-47C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-3) (lambda (arg-6) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-6))) (lambda (arg-6) (lambda (arg-7) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-6 arg-7)))) arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45Types-u--compare_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--compare_Ord_Int arg-356 arg-357))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--max_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45Types-u--C-60_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--max_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45Types-u--C-62_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--max_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-358 arg-359))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45Types-u--C-60C-61_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--max_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45Types-u--C-62C-61_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--max_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-362 arg-363))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45Types-u--max_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--max_Ord_Int arg-368 arg-369))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45Types-u--min_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--max_Ord_Int arg-368 arg-369))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) arg-366 arg-367)))) arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45Types-u--min_Ord_C-40ListC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45Types-u--C-61C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-5 arg-6)))) arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45Types-u--C-47C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-3) (lambda (arg-6) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-6))) (lambda (arg-6) (lambda (arg-7) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-6 arg-7)))) arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45Types-u--compare_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--compare_Ord_Int arg-356 arg-357))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45Types-u--C-60_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45Types-u--C-62_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) arg-358 arg-359))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45Types-u--C-60C-61_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45Types-u--C-62C-61_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45Types-u--max_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--max_Ord_Int arg-368 arg-369))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) arg-364 arg-365))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45Types-u--min_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-370) (lambda (arg-371) (PreludeC-45EqOrd-u--min_Ord_Int arg-370 arg-371)))) arg-368 arg-369)))) arg-366 arg-367)))) arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (CoreC-45Name-u--C-61C-61_Eq_Name arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (CoreC-45Name-u--C-47C-61_Eq_Name arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (CoreC-45Name-u--compare_Ord_Name arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (CoreC-45Name-u--C-60_Ord_Name arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (CoreC-45Name-u--C-62_Ord_Name arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (CoreC-45Name-u--C-60C-61_Ord_Name arg-360 arg-361))) (lambda (arg-364) (lambda (arg-365) (CoreC-45Name-u--C-62C-61_Ord_Name arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (CoreC-45Name-u--max_Ord_Name arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (CoreC-45Name-u--min_Ord_Name arg-366 arg-367)))) (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45Types-u--C-61C-61_Eq_C-40ListC-32C-36aC-41 (cons (lambda (arg-5) (lambda (arg-6) (PreludeC-45Types-u--C-61C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-7) (lambda (arg-8) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-7 arg-8))) (lambda (arg-7) (lambda (arg-8) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-7 arg-8)))) arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (PreludeC-45Types-u--C-47C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-7) (lambda (arg-8) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-7 arg-8))) (lambda (arg-7) (lambda (arg-8) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-7 arg-8)))) arg-5 arg-6)))) arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45Types-u--C-47C-61_Eq_C-40ListC-32C-36aC-41 (cons (lambda (arg-3) (lambda (arg-6) (PreludeC-45Types-u--C-61C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-7) (lambda (arg-8) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-7 arg-8))) (lambda (arg-7) (lambda (arg-8) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-7 arg-8)))) arg-3 arg-6))) (lambda (arg-6) (lambda (arg-7) (PreludeC-45Types-u--C-47C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-3) (lambda (arg-8) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-8))) (lambda (arg-8) (lambda (arg-9) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-8 arg-9)))) arg-6 arg-7)))) arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45Types-u--compare_Ord_C-40ListC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45Types-u--C-61C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-5 arg-6)))) arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45Types-u--C-47C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-3) (lambda (arg-6) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-6))) (lambda (arg-6) (lambda (arg-7) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-6 arg-7)))) arg-4 arg-5)))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45Types-u--compare_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--compare_Ord_Int arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-356 arg-357))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45Types-u--C-60_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--compare_Ord_Int arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45Types-u--C-62_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--compare_Ord_Int arg-356 arg-357))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45Types-u--C-60C-61_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--compare_Ord_Int arg-356 arg-357))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-360 arg-361))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45Types-u--C-62C-61_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--compare_Ord_Int arg-356 arg-357))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--max_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45Types-u--max_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--compare_Ord_Int arg-356 arg-357))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--max_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45Types-u--min_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--compare_Ord_Int arg-356 arg-357))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) arg-366 arg-367)))) arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45Types-u--C-60_Ord_C-40ListC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45Types-u--C-61C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-5 arg-6)))) arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45Types-u--C-47C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-3) (lambda (arg-6) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-6))) (lambda (arg-6) (lambda (arg-7) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-6 arg-7)))) arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45Types-u--compare_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--compare_Ord_Int arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-354 arg-355))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45Types-u--C-60_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45Types-u--C-62_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45Types-u--C-60C-61_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-360 arg-361))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45Types-u--C-62C-61_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--max_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45Types-u--max_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--max_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45Types-u--min_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) arg-366 arg-367)))) arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45Types-u--C-62_Ord_C-40ListC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45Types-u--C-61C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-5 arg-6)))) arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45Types-u--C-47C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-3) (lambda (arg-6) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-6))) (lambda (arg-6) (lambda (arg-7) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-6 arg-7)))) arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45Types-u--compare_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--compare_Ord_Int arg-356 arg-357))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45Types-u--C-60_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-356 arg-357))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45Types-u--C-62_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45Types-u--C-60C-61_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-360 arg-361))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45Types-u--C-62C-61_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--max_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45Types-u--max_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--max_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45Types-u--min_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) arg-366 arg-367)))) arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45Types-u--C-60C-61_Ord_C-40ListC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45Types-u--C-61C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-5 arg-6)))) arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45Types-u--C-47C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-3) (lambda (arg-6) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-6))) (lambda (arg-6) (lambda (arg-7) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-6 arg-7)))) arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45Types-u--compare_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--compare_Ord_Int arg-356 arg-357))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45Types-u--C-60_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45Types-u--C-62_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-358 arg-359))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45Types-u--C-60C-61_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--max_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45Types-u--C-62C-61_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--max_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45Types-u--max_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--max_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45Types-u--min_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) arg-366 arg-367)))) arg-360 arg-361))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45Types-u--C-62C-61_Ord_C-40ListC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45Types-u--C-61C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-5 arg-6)))) arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45Types-u--C-47C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-3) (lambda (arg-6) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-6))) (lambda (arg-6) (lambda (arg-7) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-6 arg-7)))) arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45Types-u--compare_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--compare_Ord_Int arg-356 arg-357))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--max_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45Types-u--C-60_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--max_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45Types-u--C-62_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--max_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45Types-u--C-60C-61_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--max_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-360 arg-361))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45Types-u--C-62C-61_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-368 arg-369))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--max_Ord_Int arg-368 arg-369))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45Types-u--max_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-368 arg-369))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--max_Ord_Int arg-368 arg-369))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45Types-u--min_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-368 arg-369))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--max_Ord_Int arg-368 arg-369))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) arg-366 arg-367)))) arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45Types-u--max_Ord_C-40ListC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45Types-u--C-61C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-5 arg-6)))) arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45Types-u--C-47C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-3) (lambda (arg-6) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-6))) (lambda (arg-6) (lambda (arg-7) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-6 arg-7)))) arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45Types-u--compare_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--compare_Ord_Int arg-356 arg-357))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--max_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45Types-u--C-60_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--max_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45Types-u--C-62_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--max_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45Types-u--C-60C-61_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--max_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-360 arg-361))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45Types-u--C-62C-61_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-368 arg-369))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--max_Ord_Int arg-368 arg-369))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45Types-u--max_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-368 arg-369))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--max_Ord_Int arg-368 arg-369))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45Types-u--min_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-368 arg-369))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--max_Ord_Int arg-368 arg-369))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) arg-366 arg-367)))) arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45Types-u--min_Ord_C-40ListC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45Types-u--C-61C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-5 arg-6)))) arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45Types-u--C-47C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-3) (lambda (arg-6) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-6))) (lambda (arg-6) (lambda (arg-7) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-6 arg-7)))) arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45Types-u--compare_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--compare_Ord_Int arg-356 arg-357))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45Types-u--C-60_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45Types-u--C-62_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45Types-u--C-60C-61_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) arg-360 arg-361))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45Types-u--C-62C-61_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-368 arg-369))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--max_Ord_Int arg-368 arg-369))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45Types-u--max_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-368 arg-369))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--max_Ord_Int arg-368 arg-369))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) arg-364 arg-365))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45Types-u--min_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-370) (lambda (arg-371) (PreludeC-45EqOrd-u--min_Ord_Int arg-370 arg-371)))) arg-368 arg-369)))) arg-366 arg-367)))) arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (CoreC-45Name-u--C-61C-61_Eq_Name arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (CoreC-45Name-u--C-47C-61_Eq_Name arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (CoreC-45Name-u--compare_Ord_Name arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (CoreC-45Name-u--C-60_Ord_Name arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (CoreC-45Name-u--C-62_Ord_Name arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (CoreC-45Name-u--C-60C-61_Ord_Name arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (CoreC-45Name-u--C-62C-61_Ord_Name arg-362 arg-363))) (lambda (arg-366) (lambda (arg-367) (CoreC-45Name-u--max_Ord_Name arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (CoreC-45Name-u--min_Ord_Name arg-366 arg-367)))) (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45Types-u--C-61C-61_Eq_C-40ListC-32C-36aC-41 (cons (lambda (arg-5) (lambda (arg-6) (PreludeC-45Types-u--C-61C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-7) (lambda (arg-8) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-7 arg-8))) (lambda (arg-7) (lambda (arg-8) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-7 arg-8)))) arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (PreludeC-45Types-u--C-47C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-7) (lambda (arg-8) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-7 arg-8))) (lambda (arg-7) (lambda (arg-8) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-7 arg-8)))) arg-5 arg-6)))) arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45Types-u--C-47C-61_Eq_C-40ListC-32C-36aC-41 (cons (lambda (arg-3) (lambda (arg-6) (PreludeC-45Types-u--C-61C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-7) (lambda (arg-8) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-7 arg-8))) (lambda (arg-7) (lambda (arg-8) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-7 arg-8)))) arg-3 arg-6))) (lambda (arg-6) (lambda (arg-7) (PreludeC-45Types-u--C-47C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-3) (lambda (arg-8) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-8))) (lambda (arg-8) (lambda (arg-9) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-8 arg-9)))) arg-6 arg-7)))) arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45Types-u--compare_Ord_C-40ListC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45Types-u--C-61C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-5 arg-6)))) arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45Types-u--C-47C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-3) (lambda (arg-6) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-6))) (lambda (arg-6) (lambda (arg-7) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-6 arg-7)))) arg-4 arg-5)))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45Types-u--compare_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--compare_Ord_Int arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--max_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-356 arg-357))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45Types-u--C-60_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--compare_Ord_Int arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--max_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45Types-u--C-62_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--compare_Ord_Int arg-356 arg-357))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--max_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45Types-u--C-60C-61_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--compare_Ord_Int arg-356 arg-357))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--max_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45Types-u--C-62C-61_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--compare_Ord_Int arg-356 arg-357))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--max_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-362 arg-363))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45Types-u--max_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--compare_Ord_Int arg-356 arg-357))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--max_Ord_Int arg-368 arg-369))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45Types-u--min_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--compare_Ord_Int arg-356 arg-357))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--max_Ord_Int arg-368 arg-369))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) arg-366 arg-367)))) arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45Types-u--C-60_Ord_C-40ListC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45Types-u--C-61C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-5 arg-6)))) arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45Types-u--C-47C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-3) (lambda (arg-6) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-6))) (lambda (arg-6) (lambda (arg-7) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-6 arg-7)))) arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45Types-u--compare_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--compare_Ord_Int arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--max_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-354 arg-355))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45Types-u--C-60_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--max_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45Types-u--C-62_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--max_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45Types-u--C-60C-61_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--max_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45Types-u--C-62C-61_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--max_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-362 arg-363))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45Types-u--max_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--max_Ord_Int arg-368 arg-369))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45Types-u--min_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--max_Ord_Int arg-368 arg-369))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) arg-366 arg-367)))) arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45Types-u--C-62_Ord_C-40ListC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45Types-u--C-61C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-5 arg-6)))) arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45Types-u--C-47C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-3) (lambda (arg-6) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-6))) (lambda (arg-6) (lambda (arg-7) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-6 arg-7)))) arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45Types-u--compare_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--compare_Ord_Int arg-356 arg-357))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--max_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45Types-u--C-60_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--max_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-356 arg-357))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45Types-u--C-62_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--max_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45Types-u--C-60C-61_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--max_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45Types-u--C-62C-61_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--max_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-362 arg-363))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45Types-u--max_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--max_Ord_Int arg-368 arg-369))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45Types-u--min_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--max_Ord_Int arg-368 arg-369))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) arg-366 arg-367)))) arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45Types-u--C-60C-61_Ord_C-40ListC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45Types-u--C-61C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-5 arg-6)))) arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45Types-u--C-47C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-3) (lambda (arg-6) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-6))) (lambda (arg-6) (lambda (arg-7) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-6 arg-7)))) arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45Types-u--compare_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--compare_Ord_Int arg-356 arg-357))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--max_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45Types-u--C-60_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--max_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45Types-u--C-62_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--max_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-358 arg-359))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45Types-u--C-60C-61_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--max_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45Types-u--C-62C-61_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--max_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-362 arg-363))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45Types-u--max_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--max_Ord_Int arg-368 arg-369))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45Types-u--min_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--max_Ord_Int arg-368 arg-369))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) arg-366 arg-367)))) arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45Types-u--C-62C-61_Ord_C-40ListC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45Types-u--C-61C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-5 arg-6)))) arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45Types-u--C-47C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-3) (lambda (arg-6) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-6))) (lambda (arg-6) (lambda (arg-7) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-6 arg-7)))) arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45Types-u--compare_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--compare_Ord_Int arg-356 arg-357))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--max_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45Types-u--C-60_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--max_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45Types-u--C-62_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--max_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45Types-u--C-60C-61_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--max_Ord_Int arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-360 arg-361))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45Types-u--C-62C-61_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-368 arg-369))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--max_Ord_Int arg-368 arg-369))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45Types-u--max_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-368 arg-369))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--max_Ord_Int arg-368 arg-369))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45Types-u--min_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-368 arg-369))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--max_Ord_Int arg-368 arg-369))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) arg-366 arg-367)))) arg-362 arg-363))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45Types-u--max_Ord_C-40ListC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45Types-u--C-61C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-5 arg-6)))) arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45Types-u--C-47C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-3) (lambda (arg-6) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-6))) (lambda (arg-6) (lambda (arg-7) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-6 arg-7)))) arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45Types-u--compare_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--compare_Ord_Int arg-356 arg-357))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--max_Ord_Int arg-368 arg-369))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45Types-u--C-60_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--max_Ord_Int arg-368 arg-369))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45Types-u--C-62_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--max_Ord_Int arg-368 arg-369))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45Types-u--C-60C-61_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--max_Ord_Int arg-368 arg-369))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45Types-u--C-62C-61_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-368 arg-369))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--max_Ord_Int arg-368 arg-369))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) arg-362 arg-363))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45Types-u--max_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-370) (lambda (arg-371) (PreludeC-45EqOrd-u--max_Ord_Int arg-370 arg-371))) (lambda (arg-370) (lambda (arg-371) (PreludeC-45EqOrd-u--min_Ord_Int arg-370 arg-371)))) arg-368 arg-369))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45Types-u--min_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-370) (lambda (arg-371) (PreludeC-45EqOrd-u--max_Ord_Int arg-370 arg-371))) (lambda (arg-370) (lambda (arg-371) (PreludeC-45EqOrd-u--min_Ord_Int arg-370 arg-371)))) arg-368 arg-369)))) arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45Types-u--min_Ord_C-40ListC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45Types-u--C-61C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-5 arg-6)))) arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45Types-u--C-47C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-3) (lambda (arg-6) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-6))) (lambda (arg-6) (lambda (arg-7) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-6 arg-7)))) arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45Types-u--compare_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--compare_Ord_Int arg-356 arg-357))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--max_Ord_Int arg-368 arg-369))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45Types-u--C-60_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--max_Ord_Int arg-368 arg-369))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45Types-u--C-62_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--max_Ord_Int arg-368 arg-369))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45Types-u--C-60C-61_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--max_Ord_Int arg-368 arg-369))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45Types-u--C-62C-61_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-368 arg-369))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--max_Ord_Int arg-368 arg-369))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) arg-362 arg-363))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45Types-u--max_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-370) (lambda (arg-371) (PreludeC-45EqOrd-u--max_Ord_Int arg-370 arg-371))) (lambda (arg-370) (lambda (arg-371) (PreludeC-45EqOrd-u--min_Ord_Int arg-370 arg-371)))) arg-368 arg-369))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45Types-u--min_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-370) (lambda (arg-371) (PreludeC-45EqOrd-u--max_Ord_Int arg-370 arg-371))) (lambda (arg-370) (lambda (arg-371) (PreludeC-45EqOrd-u--min_Ord_Int arg-370 arg-371)))) arg-368 arg-369)))) arg-366 arg-367)))) arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (CoreC-45Name-u--C-61C-61_Eq_Name arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (CoreC-45Name-u--C-47C-61_Eq_Name arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (CoreC-45Name-u--compare_Ord_Name arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (CoreC-45Name-u--C-60_Ord_Name arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (CoreC-45Name-u--C-62_Ord_Name arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (CoreC-45Name-u--C-60C-61_Ord_Name arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (CoreC-45Name-u--C-62C-61_Ord_Name arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (CoreC-45Name-u--max_Ord_Name arg-364 arg-365))) (lambda (arg-368) (lambda (arg-369) (CoreC-45Name-u--min_Ord_Name arg-368 arg-369)))) (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45Types-u--C-61C-61_Eq_C-40ListC-32C-36aC-41 (cons (lambda (arg-5) (lambda (arg-6) (PreludeC-45Types-u--C-61C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-7) (lambda (arg-8) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-7 arg-8))) (lambda (arg-7) (lambda (arg-8) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-7 arg-8)))) arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (PreludeC-45Types-u--C-47C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-7) (lambda (arg-8) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-7 arg-8))) (lambda (arg-7) (lambda (arg-8) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-7 arg-8)))) arg-5 arg-6)))) arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45Types-u--C-47C-61_Eq_C-40ListC-32C-36aC-41 (cons (lambda (arg-3) (lambda (arg-6) (PreludeC-45Types-u--C-61C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-7) (lambda (arg-8) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-7 arg-8))) (lambda (arg-7) (lambda (arg-8) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-7 arg-8)))) arg-3 arg-6))) (lambda (arg-6) (lambda (arg-7) (PreludeC-45Types-u--C-47C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-3) (lambda (arg-8) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-8))) (lambda (arg-8) (lambda (arg-9) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-8 arg-9)))) arg-6 arg-7)))) arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45Types-u--compare_Ord_C-40ListC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45Types-u--C-61C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-5 arg-6)))) arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45Types-u--C-47C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-3) (lambda (arg-6) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-6))) (lambda (arg-6) (lambda (arg-7) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-6 arg-7)))) arg-4 arg-5)))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45Types-u--compare_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--compare_Ord_Int arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) arg-356 arg-357))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45Types-u--C-60_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--compare_Ord_Int arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45Types-u--C-62_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--compare_Ord_Int arg-356 arg-357))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45Types-u--C-60C-61_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--compare_Ord_Int arg-356 arg-357))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45Types-u--C-62C-61_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--compare_Ord_Int arg-356 arg-357))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45Types-u--max_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--compare_Ord_Int arg-356 arg-357))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--max_Ord_Int arg-368 arg-369))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) arg-364 arg-365))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45Types-u--min_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--compare_Ord_Int arg-356 arg-357))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-370) (lambda (arg-371) (PreludeC-45EqOrd-u--min_Ord_Int arg-370 arg-371)))) arg-368 arg-369)))) arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45Types-u--C-60_Ord_C-40ListC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45Types-u--C-61C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-5 arg-6)))) arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45Types-u--C-47C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-3) (lambda (arg-6) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-6))) (lambda (arg-6) (lambda (arg-7) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-6 arg-7)))) arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45Types-u--compare_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--compare_Ord_Int arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) arg-354 arg-355))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45Types-u--C-60_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45Types-u--C-62_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45Types-u--C-60C-61_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45Types-u--C-62C-61_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45Types-u--max_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--max_Ord_Int arg-368 arg-369))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) arg-364 arg-365))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45Types-u--min_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-370) (lambda (arg-371) (PreludeC-45EqOrd-u--min_Ord_Int arg-370 arg-371)))) arg-368 arg-369)))) arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45Types-u--C-62_Ord_C-40ListC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45Types-u--C-61C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-5 arg-6)))) arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45Types-u--C-47C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-3) (lambda (arg-6) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-6))) (lambda (arg-6) (lambda (arg-7) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-6 arg-7)))) arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45Types-u--compare_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--compare_Ord_Int arg-356 arg-357))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45Types-u--C-60_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) arg-356 arg-357))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45Types-u--C-62_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45Types-u--C-60C-61_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45Types-u--C-62C-61_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45Types-u--max_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--max_Ord_Int arg-368 arg-369))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) arg-364 arg-365))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45Types-u--min_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-370) (lambda (arg-371) (PreludeC-45EqOrd-u--min_Ord_Int arg-370 arg-371)))) arg-368 arg-369)))) arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45Types-u--C-60C-61_Ord_C-40ListC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45Types-u--C-61C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-5 arg-6)))) arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45Types-u--C-47C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-3) (lambda (arg-6) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-6))) (lambda (arg-6) (lambda (arg-7) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-6 arg-7)))) arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45Types-u--compare_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--compare_Ord_Int arg-356 arg-357))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45Types-u--C-60_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45Types-u--C-62_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) arg-358 arg-359))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45Types-u--C-60C-61_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45Types-u--C-62C-61_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45Types-u--max_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--max_Ord_Int arg-368 arg-369))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) arg-364 arg-365))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45Types-u--min_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-370) (lambda (arg-371) (PreludeC-45EqOrd-u--min_Ord_Int arg-370 arg-371)))) arg-368 arg-369)))) arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45Types-u--C-62C-61_Ord_C-40ListC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45Types-u--C-61C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-5 arg-6)))) arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45Types-u--C-47C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-3) (lambda (arg-6) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-6))) (lambda (arg-6) (lambda (arg-7) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-6 arg-7)))) arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45Types-u--compare_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--compare_Ord_Int arg-356 arg-357))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45Types-u--C-60_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45Types-u--C-62_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45Types-u--C-60C-61_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) arg-360 arg-361))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45Types-u--C-62C-61_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-368 arg-369))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--max_Ord_Int arg-368 arg-369))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45Types-u--max_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-368 arg-369))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--max_Ord_Int arg-368 arg-369))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) arg-364 arg-365))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45Types-u--min_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-370) (lambda (arg-371) (PreludeC-45EqOrd-u--min_Ord_Int arg-370 arg-371)))) arg-368 arg-369)))) arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45Types-u--max_Ord_C-40ListC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45Types-u--C-61C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-5 arg-6)))) arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45Types-u--C-47C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-3) (lambda (arg-6) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-6))) (lambda (arg-6) (lambda (arg-7) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-6 arg-7)))) arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45Types-u--compare_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--compare_Ord_Int arg-356 arg-357))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--max_Ord_Int arg-368 arg-369))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45Types-u--C-60_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--max_Ord_Int arg-368 arg-369))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45Types-u--C-62_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--max_Ord_Int arg-368 arg-369))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45Types-u--C-60C-61_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--max_Ord_Int arg-368 arg-369))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45Types-u--C-62C-61_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-368 arg-369))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--max_Ord_Int arg-368 arg-369))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45EqOrd-u--min_Ord_Int arg-368 arg-369)))) arg-362 arg-363))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45Types-u--max_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-370) (lambda (arg-371) (PreludeC-45EqOrd-u--max_Ord_Int arg-370 arg-371))) (lambda (arg-370) (lambda (arg-371) (PreludeC-45EqOrd-u--min_Ord_Int arg-370 arg-371)))) arg-368 arg-369))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45Types-u--min_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-370) (lambda (arg-371) (PreludeC-45EqOrd-u--max_Ord_Int arg-370 arg-371))) (lambda (arg-370) (lambda (arg-371) (PreludeC-45EqOrd-u--min_Ord_Int arg-370 arg-371)))) arg-368 arg-369)))) arg-364 arg-365))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45Types-u--min_Ord_C-40ListC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45Types-u--C-61C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-5 arg-6)))) arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45Types-u--C-47C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-3) (lambda (arg-6) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-6))) (lambda (arg-6) (lambda (arg-7) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-6 arg-7)))) arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45Types-u--compare_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--compare_Ord_Int arg-356 arg-357))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-370) (lambda (arg-371) (PreludeC-45EqOrd-u--min_Ord_Int arg-370 arg-371)))) arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45Types-u--C-60_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-370) (lambda (arg-371) (PreludeC-45EqOrd-u--min_Ord_Int arg-370 arg-371)))) arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45Types-u--C-62_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-370) (lambda (arg-371) (PreludeC-45EqOrd-u--min_Ord_Int arg-370 arg-371)))) arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45Types-u--C-60C-61_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-370) (lambda (arg-371) (PreludeC-45EqOrd-u--min_Ord_Int arg-370 arg-371)))) arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45Types-u--C-62C-61_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-370) (lambda (arg-371) (PreludeC-45EqOrd-u--min_Ord_Int arg-370 arg-371)))) arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45Types-u--max_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-370) (lambda (arg-371) (PreludeC-45EqOrd-u--max_Ord_Int arg-370 arg-371))) (lambda (arg-370) (lambda (arg-371) (PreludeC-45EqOrd-u--min_Ord_Int arg-370 arg-371)))) arg-364 arg-365))) (lambda (arg-370) (lambda (arg-371) (PreludeC-45Types-u--min_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-372) (lambda (arg-373) (PreludeC-45EqOrd-u--min_Ord_Int arg-372 arg-373)))) arg-370 arg-371)))) arg-368 arg-369)))) arg-366 arg-367))))) ext-0))) (case (vector-ref act-31 0) ((0) (let ((e-3 (vector-ref act-31 1))) (vector 0 e-3))) (else (let ((e-12 (vector-ref act-31 1))) (CoreC-45Termination-checkSC e-10 arg-0 e-12 e-5 arg-2 e-11 '() ext-0)))))))))))))))(else (vector 1 e-9)))))))))))))))))))))))))) +(define CoreC-45Termination-calcPositive (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-0))))) arg-2 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (CoreC-45ContextC-45Log-log arg-0 "totality.positivity" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Calculating positivity: " (CoreC-45Name-u--show_Show_Name e-6))) ext-0))))))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45Context-lookupDefTyExact arg-2 (let ((e-0 (vector-ref e-5 0))) e-0) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (if (null? e-7) (CoreC-45Context-undefinedName arg-0 arg-1 arg-2 ext-0) (let ((e-1 (unbox e-7))) (if (null? e-1) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-1 (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name arg-2) " not a data type")) ext-0) (let ((e-9 (car e-1))) (let ((e-8 (cdr e-1))) (case (vector-ref e-9 0) ((6) (let ((e-12 (vector-ref e-9 6))) (let ((e-13 (vector-ref e-9 7))) (let ((act-27 (CoreC-45Termination-totRefsIn arg-0 e-5 e-8 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-18 (vector-ref act-27 1))) (case (vector-ref e-18 0) ((1) (let ((act-28 (CoreC-45Termination-checkData arg-0 e-5 (cons arg-2 e-12) e-13 ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((e-19 (vector-ref act-28 1))) (vector 1 (cons e-19 e-13)))))))(else (vector 1 (cons e-18 e-13)))))))))))(else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-1 (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name arg-2) " not a data type")) ext-0))))))))))))))))))))) +(define CoreC-45Termination-assertedSmaller (lambda (arg-1 arg-2) (if (null? arg-1) 0 (let ((e-1 (unbox arg-1))) (CoreC-45Termination-scEq e-1 arg-2))))) +(define CoreC-45Termination-asserted (lambda (arg-1 arg-2) (CoreC-45Termination-case--asserted-7071 arg-2 arg-1 (CoreC-45TT-getFnArgs arg-2)))) +(define LibrariesC-45DataC-45SortedMap-n--5572-3511-u--treeToListC-39 (lambda (arg-5 arg-6) (case (vector-ref arg-6 0) ((0) (let ((e-3 (vector-ref arg-6 1))) (let ((e-4 (vector-ref arg-6 2))) (arg-5 (cons e-3 e-4))))) ((1) (let ((e-9 (vector-ref arg-6 1))) (let ((e-11 (vector-ref arg-6 3))) (LibrariesC-45DataC-45SortedMap-n--5572-3511-u--treeToListC-39 (lambda (arg-0) (cons arg-0 (LibrariesC-45DataC-45SortedMap-n--5572-3511-u--treeToListC-39 arg-5 e-11))) e-9)))) (else (let ((e-16 (vector-ref arg-6 1))) (let ((e-18 (vector-ref arg-6 3))) (let ((e-20 (vector-ref arg-6 5))) (LibrariesC-45DataC-45SortedMap-n--5572-3511-u--treeToListC-39 (lambda (arg-0) (cons arg-0 (LibrariesC-45DataC-45SortedMap-n--5572-3511-u--treeToListC-39 (lambda (arg-1) (cons arg-1 (LibrariesC-45DataC-45SortedMap-n--5572-3511-u--treeToListC-39 arg-5 e-20))) e-18))) e-16)))))))) +(define LibrariesC-45DataC-45SortedMap-n--6796-4757-u--inserted (lambda (arg-2 arg-3 arg-4) (PreludeC-45Types-u--C-62C-62C-61_Monad_List (LibrariesC-45DataC-45SortedMap-toList arg-2) (lambda (_-0) (let ((e-2 (car _-0))) (let ((e-3 (cdr _-0))) (let ((u--vC-39 ((PreludeC-45Types-maybe (lambda () (lambda (eta-0) eta-0)) (lambda () arg-4) (LibrariesC-45DataC-45SortedMap-lookup e-2 arg-3)) e-3))) (PreludeC-45Types-u--pure_Applicative_List (cons e-2 u--vC-39))))))))) +(define LibrariesC-45DataC-45SortedMap-values (lambda (ext-0) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) (LibrariesC-45DataC-45SortedMap-toList ext-0)))) +(define LibrariesC-45DataC-45SortedMap-treeToList (lambda (ext-0) (LibrariesC-45DataC-45SortedMap-n--5572-3511-u--treeToListC-39 (lambda (arg-0) (cons arg-0 '())) ext-0))) +(define LibrariesC-45DataC-45SortedMap-treeLookup (lambda (arg-4 arg-5 arg-6) (case (vector-ref arg-6 0) ((0) (let ((e-3 (vector-ref arg-6 1))) (let ((e-4 (vector-ref arg-6 2))) (let ((sc1 (let ((e-1 (vector-ref arg-4 0))) (let ((e-12 (car e-1))) ((e-12 arg-5) e-3))))) (cond ((equal? sc1 1) (box e-4)) (else '())))))) ((1) (let ((e-9 (vector-ref arg-6 1))) (let ((e-10 (vector-ref arg-6 2))) (let ((e-11 (vector-ref arg-6 3))) (let ((sc1 (let ((e-5 (vector-ref arg-4 4))) ((e-5 arg-5) e-10)))) (cond ((equal? sc1 1) (LibrariesC-45DataC-45SortedMap-treeLookup arg-4 arg-5 e-9)) (else (LibrariesC-45DataC-45SortedMap-treeLookup arg-4 arg-5 e-11)))))))) (else (let ((e-16 (vector-ref arg-6 1))) (let ((e-17 (vector-ref arg-6 2))) (let ((e-18 (vector-ref arg-6 3))) (let ((e-19 (vector-ref arg-6 4))) (let ((e-20 (vector-ref arg-6 5))) (let ((sc1 (let ((e-5 (vector-ref arg-4 4))) ((e-5 arg-5) e-17)))) (cond ((equal? sc1 1) (LibrariesC-45DataC-45SortedMap-treeLookup arg-4 arg-5 e-16)) (else (let ((sc2 (let ((e-5 (vector-ref arg-4 4))) ((e-5 arg-5) e-19)))) (cond ((equal? sc2 1) (LibrariesC-45DataC-45SortedMap-treeLookup arg-4 arg-5 e-18)) (else (LibrariesC-45DataC-45SortedMap-treeLookup arg-4 arg-5 e-20)))))))))))))))) +(define LibrariesC-45DataC-45SortedMap-treeInsertC-39 (lambda (arg-4 arg-5 arg-6 arg-7) (case (vector-ref arg-7 0) ((0) (let ((e-3 (vector-ref arg-7 1))) (let ((e-4 (vector-ref arg-7 2))) (let ((sc1 (let ((e-2 (vector-ref arg-4 1))) ((e-2 arg-5) e-3)))) (cond ((equal? sc1 0) (vector 1 (cons (vector 0 arg-5 arg-6) (cons arg-5 (vector 0 e-3 e-4))))) ((equal? sc1 1) (vector 0 (vector 0 arg-5 arg-6))) (else (vector 1 (cons (vector 0 e-3 e-4) (cons e-3 (vector 0 arg-5 arg-6)))))))))) ((1) (let ((e-9 (vector-ref arg-7 1))) (let ((e-10 (vector-ref arg-7 2))) (let ((e-11 (vector-ref arg-7 3))) (let ((sc1 (let ((e-5 (vector-ref arg-4 4))) ((e-5 arg-5) e-10)))) (cond ((equal? sc1 1) (let ((sc2 (LibrariesC-45DataC-45SortedMap-treeInsertC-39 arg-4 arg-5 arg-6 e-9))) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 (vector 1 e-2 e-10 e-11)))) (else (let ((e-5 (vector-ref sc2 1))) (let ((e-8 (car e-5))) (let ((e-12 (cdr e-5))) (let ((e-14 (car e-12))) (let ((e-13 (cdr e-12))) (vector 0 (vector 2 e-8 e-14 e-13 e-10 e-11))))))))))) (else (let ((sc2 (LibrariesC-45DataC-45SortedMap-treeInsertC-39 arg-4 arg-5 arg-6 e-11))) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 (vector 1 e-9 e-10 e-2)))) (else (let ((e-5 (vector-ref sc2 1))) (let ((e-8 (car e-5))) (let ((e-12 (cdr e-5))) (let ((e-14 (car e-12))) (let ((e-13 (cdr e-12))) (vector 0 (vector 2 e-9 e-10 e-8 e-14 e-13))))))))))))))))) (else (let ((e-16 (vector-ref arg-7 1))) (let ((e-17 (vector-ref arg-7 2))) (let ((e-18 (vector-ref arg-7 3))) (let ((e-19 (vector-ref arg-7 4))) (let ((e-20 (vector-ref arg-7 5))) (let ((sc1 (let ((e-5 (vector-ref arg-4 4))) ((e-5 arg-5) e-17)))) (cond ((equal? sc1 1) (let ((sc2 (LibrariesC-45DataC-45SortedMap-treeInsertC-39 arg-4 arg-5 arg-6 e-16))) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 (vector 2 e-2 e-17 e-18 e-19 e-20)))) (else (let ((e-5 (vector-ref sc2 1))) (let ((e-8 (car e-5))) (let ((e-9 (cdr e-5))) (let ((e-12 (car e-9))) (let ((e-13 (cdr e-9))) (vector 1 (cons (vector 1 e-8 e-12 e-13) (cons e-17 (vector 1 e-18 e-19 e-20))))))))))))) (else (let ((sc2 (let ((e-5 (vector-ref arg-4 4))) ((e-5 arg-5) e-19)))) (cond ((equal? sc2 1) (let ((sc3 (LibrariesC-45DataC-45SortedMap-treeInsertC-39 arg-4 arg-5 arg-6 e-18))) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 (vector 2 e-16 e-17 e-2 e-19 e-20)))) (else (let ((e-5 (vector-ref sc3 1))) (let ((e-8 (car e-5))) (let ((e-9 (cdr e-5))) (let ((e-12 (car e-9))) (let ((e-13 (cdr e-9))) (vector 1 (cons (vector 1 e-16 e-17 e-8) (cons e-12 (vector 1 e-13 e-19 e-20))))))))))))) (else (let ((sc3 (LibrariesC-45DataC-45SortedMap-treeInsertC-39 arg-4 arg-5 arg-6 e-20))) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 (vector 2 e-16 e-17 e-18 e-19 e-2)))) (else (let ((e-5 (vector-ref sc3 1))) (let ((e-8 (car e-5))) (let ((e-9 (cdr e-5))) (let ((e-12 (car e-9))) (let ((e-13 (cdr e-9))) (vector 1 (cons (vector 1 e-16 e-17 e-18) (cons e-19 (vector 1 e-8 e-12 e-13))))))))))))))))))))))))))) +(define LibrariesC-45DataC-45SortedMap-treeInsert (lambda (arg-4 arg-5 arg-6 arg-7) (let ((sc0 (LibrariesC-45DataC-45SortedMap-treeInsertC-39 arg-4 arg-5 arg-6 arg-7))) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((e-8 (car e-5))) (let ((e-9 (cdr e-5))) (let ((e-12 (car e-9))) (let ((e-13 (cdr e-9))) (vector 1 (vector 1 e-8 e-12 e-13)))))))))))) +(define LibrariesC-45DataC-45SortedMap-treeDelete (lambda (arg-3 arg-4 arg-5 arg-6) (cond ((equal? arg-4 0) (let ((e-4 (vector-ref arg-6 1))) (let ((e-5 (vector-ref arg-6 2))) (let ((sc2 (let ((e-1 (vector-ref arg-3 0))) (let ((e-12 (car e-1))) ((e-12 arg-5) e-4))))) (cond ((equal? sc2 1) (vector 1 0)) (else (vector 0 (vector 0 e-4 e-5))))))))(else (let ((e-0 (- arg-4 1))) (cond ((equal? e-0 0) (case (vector-ref arg-6 0) ((1) (let ((e-11 (vector-ref arg-6 1))) (let ((e-12 (vector-ref arg-6 2))) (let ((e-13 (vector-ref arg-6 3))) (let ((sc2 (let ((e-5 (vector-ref arg-3 4))) ((e-5 arg-5) e-12)))) (cond ((equal? sc2 1) (let ((sc3 (LibrariesC-45DataC-45SortedMap-treeDelete arg-3 0 arg-5 e-11))) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 (vector 1 e-2 e-12 e-13)))) (else (let ((e-5 (vector-ref sc3 1))) (cond (else (vector 1 e-13)))))))) (else (let ((sc3 (LibrariesC-45DataC-45SortedMap-treeDelete arg-3 0 arg-5 e-13))) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 (vector 1 e-11 e-12 e-2)))) (else (let ((e-5 (vector-ref sc3 1))) (cond (else (vector 1 e-11)))))))))))))) (else (let ((e-18 (vector-ref arg-6 1))) (let ((e-19 (vector-ref arg-6 2))) (let ((e-20 (vector-ref arg-6 3))) (let ((e-21 (vector-ref arg-6 4))) (let ((e-22 (vector-ref arg-6 5))) (let ((sc2 (let ((e-5 (vector-ref arg-3 4))) ((e-5 arg-5) e-19)))) (cond ((equal? sc2 1) (let ((sc3 (LibrariesC-45DataC-45SortedMap-treeDelete arg-3 0 arg-5 e-18))) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 (vector 2 e-2 e-19 e-20 e-21 e-22)))) (else (let ((e-5 (vector-ref sc3 1))) (cond (else (vector 0 (vector 1 e-20 e-21 e-22))))))))) (else (let ((sc3 (let ((e-5 (vector-ref arg-3 4))) ((e-5 arg-5) e-21)))) (cond ((equal? sc3 1) (let ((sc4 (LibrariesC-45DataC-45SortedMap-treeDelete arg-3 0 arg-5 e-20))) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 (vector 2 e-18 e-19 e-2 e-21 e-22)))) (else (let ((e-5 (vector-ref sc4 1))) (cond (else (vector 0 (vector 1 e-18 e-19 e-22))))))))) (else (let ((sc4 (LibrariesC-45DataC-45SortedMap-treeDelete arg-3 0 arg-5 e-22))) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 (vector 2 e-18 e-19 e-20 e-21 e-2)))) (else (let ((e-5 (vector-ref sc4 1))) (cond (else (vector 0 (vector 1 e-18 e-19 e-20))))))))))))))))))))))(else (let ((e-6 (- e-0 1))) (case (vector-ref arg-6 0) ((1) (let ((e-27 (vector-ref arg-6 1))) (let ((e-28 (vector-ref arg-6 2))) (let ((e-29 (vector-ref arg-6 3))) (let ((sc1 (let ((e-5 (vector-ref arg-3 4))) ((e-5 arg-5) e-28)))) (cond ((equal? sc1 1) (let ((sc2 (LibrariesC-45DataC-45SortedMap-treeDelete arg-3 (+ 1 e-6) arg-5 e-27))) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 (vector 1 e-2 e-28 e-29)))) (else (let ((e-5 (vector-ref sc2 1))) (case (vector-ref e-29 0) ((1) (let ((e-4 (vector-ref e-29 1))) (let ((e-8 (vector-ref e-29 2))) (let ((e-7 (vector-ref e-29 3))) (vector 1 (vector 2 e-5 e-28 e-4 e-8 e-7)))))) (else (let ((e-11 (vector-ref e-29 1))) (let ((e-12 (vector-ref e-29 2))) (let ((e-13 (vector-ref e-29 3))) (let ((e-14 (vector-ref e-29 4))) (let ((e-15 (vector-ref e-29 5))) (vector 0 (LibrariesC-45DataC-45SortedMap-branch4 e-5 e-28 e-11 e-12 e-13 e-14 e-15)))))))))))))) (else (let ((sc2 (LibrariesC-45DataC-45SortedMap-treeDelete arg-3 (+ 1 e-6) arg-5 e-29))) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 (vector 1 e-27 e-28 e-2)))) (else (let ((e-5 (vector-ref sc2 1))) (case (vector-ref e-27 0) ((1) (let ((e-4 (vector-ref e-27 1))) (let ((e-8 (vector-ref e-27 2))) (let ((e-7 (vector-ref e-27 3))) (vector 1 (vector 2 e-4 e-8 e-7 e-28 e-5)))))) (else (let ((e-11 (vector-ref e-27 1))) (let ((e-12 (vector-ref e-27 2))) (let ((e-13 (vector-ref e-27 3))) (let ((e-14 (vector-ref e-27 4))) (let ((e-15 (vector-ref e-27 5))) (vector 0 (LibrariesC-45DataC-45SortedMap-branch4 e-11 e-12 e-13 e-14 e-15 e-28 e-5)))))))))))))))))))) (else (let ((e-34 (vector-ref arg-6 1))) (let ((e-35 (vector-ref arg-6 2))) (let ((e-36 (vector-ref arg-6 3))) (let ((e-37 (vector-ref arg-6 4))) (let ((e-38 (vector-ref arg-6 5))) (let ((sc1 (let ((e-5 (vector-ref arg-3 4))) ((e-5 arg-5) e-35)))) (cond ((equal? sc1 1) (let ((sc2 (LibrariesC-45DataC-45SortedMap-treeDelete arg-3 (+ 1 e-6) arg-5 e-34))) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 (vector 2 e-2 e-35 e-36 e-37 e-38)))) (else (let ((e-5 (vector-ref sc2 1))) (vector 0 (LibrariesC-45DataC-45SortedMap-merge1 e-5 e-35 e-36 e-37 e-38))))))) (else (let ((sc2 (let ((e-5 (vector-ref arg-3 4))) ((e-5 arg-5) e-37)))) (cond ((equal? sc2 1) (let ((sc3 (LibrariesC-45DataC-45SortedMap-treeDelete arg-3 (+ 1 e-6) arg-5 e-36))) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 (vector 2 e-34 e-35 e-2 e-37 e-38)))) (else (let ((e-5 (vector-ref sc3 1))) (vector 0 (LibrariesC-45DataC-45SortedMap-merge2 e-34 e-35 e-5 e-37 e-38))))))) (else (let ((sc3 (LibrariesC-45DataC-45SortedMap-treeDelete arg-3 (+ 1 e-6) arg-5 e-38))) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 (vector 2 e-34 e-35 e-36 e-37 e-2)))) (else (let ((e-5 (vector-ref sc3 1))) (vector 0 (LibrariesC-45DataC-45SortedMap-merge3 e-34 e-35 e-36 e-37 e-5))))))))))))))))))))))))))) +(define LibrariesC-45DataC-45SortedMap-toList (lambda (arg-2) (case (vector-ref arg-2 0) ((0) '()) (else (let ((e-7 (vector-ref arg-2 3))) (LibrariesC-45DataC-45SortedMap-treeToList e-7)))))) +(define LibrariesC-45DataC-45SortedMap-singleton (lambda (arg-2 arg-3 arg-4) (LibrariesC-45DataC-45SortedMap-insert arg-3 arg-4 (LibrariesC-45DataC-45SortedMap-empty arg-2)))) +(define LibrariesC-45DataC-45SortedMap-mergeWith (lambda (arg-2 arg-3 arg-4) (LibrariesC-45DataC-45SortedMap-insertFrom (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (LibrariesC-45DataC-45SortedMap-n--6796-4757-u--inserted arg-4 arg-3 arg-2) arg-3))) +(define LibrariesC-45DataC-45SortedMap-mergeLeft (lambda (ext-0 ext-1) (LibrariesC-45DataC-45SortedMap-mergeWith (lambda (eta-0) (lambda (eta-1) eta-0)) ext-0 ext-1))) +(define LibrariesC-45DataC-45SortedMap-merge3 (lambda (arg-4 arg-5 arg-6 arg-7 arg-8) (case (vector-ref arg-4 0) ((1) (let ((e-4 (vector-ref arg-4 1))) (let ((e-5 (vector-ref arg-4 2))) (let ((e-6 (vector-ref arg-4 3))) (case (vector-ref arg-6 0) ((1) (let ((e-20 (vector-ref arg-6 1))) (let ((e-21 (vector-ref arg-6 2))) (let ((e-22 (vector-ref arg-6 3))) (LibrariesC-45DataC-45SortedMap-branch5 e-4 e-5 e-6 arg-5 e-20 e-21 e-22 arg-7 arg-8))))) (else (let ((e-27 (vector-ref arg-6 1))) (let ((e-28 (vector-ref arg-6 2))) (let ((e-29 (vector-ref arg-6 3))) (let ((e-30 (vector-ref arg-6 4))) (let ((e-31 (vector-ref arg-6 5))) (LibrariesC-45DataC-45SortedMap-branch6 e-4 e-5 e-6 arg-5 e-27 e-28 e-29 e-30 e-31 arg-7 arg-8)))))))))))) (else (let ((e-11 (vector-ref arg-4 1))) (let ((e-12 (vector-ref arg-4 2))) (let ((e-13 (vector-ref arg-4 3))) (let ((e-14 (vector-ref arg-4 4))) (let ((e-15 (vector-ref arg-4 5))) (case (vector-ref arg-6 0) ((1) (let ((e-36 (vector-ref arg-6 1))) (let ((e-37 (vector-ref arg-6 2))) (let ((e-38 (vector-ref arg-6 3))) (LibrariesC-45DataC-45SortedMap-branch6 e-11 e-12 e-13 e-14 e-15 arg-5 e-36 e-37 e-38 arg-7 arg-8))))) (else (let ((e-43 (vector-ref arg-6 1))) (let ((e-44 (vector-ref arg-6 2))) (let ((e-45 (vector-ref arg-6 3))) (let ((e-46 (vector-ref arg-6 4))) (let ((e-47 (vector-ref arg-6 5))) (LibrariesC-45DataC-45SortedMap-branch7 e-11 e-12 e-13 e-14 e-15 arg-5 e-43 e-44 e-45 e-46 e-47 arg-7 arg-8))))))))))))))))) +(define LibrariesC-45DataC-45SortedMap-merge2 (lambda (arg-4 arg-5 arg-6 arg-7 arg-8) (case (vector-ref arg-4 0) ((1) (let ((e-4 (vector-ref arg-4 1))) (let ((e-5 (vector-ref arg-4 2))) (let ((e-6 (vector-ref arg-4 3))) (case (vector-ref arg-8 0) ((1) (let ((e-20 (vector-ref arg-8 1))) (let ((e-21 (vector-ref arg-8 2))) (let ((e-22 (vector-ref arg-8 3))) (LibrariesC-45DataC-45SortedMap-branch5 e-4 e-5 e-6 arg-5 arg-6 arg-7 e-20 e-21 e-22))))) (else (let ((e-27 (vector-ref arg-8 1))) (let ((e-28 (vector-ref arg-8 2))) (let ((e-29 (vector-ref arg-8 3))) (let ((e-30 (vector-ref arg-8 4))) (let ((e-31 (vector-ref arg-8 5))) (LibrariesC-45DataC-45SortedMap-branch6 e-4 e-5 e-6 arg-5 arg-6 arg-7 e-27 e-28 e-29 e-30 e-31)))))))))))) (else (let ((e-11 (vector-ref arg-4 1))) (let ((e-12 (vector-ref arg-4 2))) (let ((e-13 (vector-ref arg-4 3))) (let ((e-14 (vector-ref arg-4 4))) (let ((e-15 (vector-ref arg-4 5))) (case (vector-ref arg-8 0) ((1) (let ((e-36 (vector-ref arg-8 1))) (let ((e-37 (vector-ref arg-8 2))) (let ((e-38 (vector-ref arg-8 3))) (LibrariesC-45DataC-45SortedMap-branch6 e-11 e-12 e-13 e-14 e-15 arg-5 arg-6 arg-7 e-36 e-37 e-38))))) (else (let ((e-43 (vector-ref arg-8 1))) (let ((e-44 (vector-ref arg-8 2))) (let ((e-45 (vector-ref arg-8 3))) (let ((e-46 (vector-ref arg-8 4))) (let ((e-47 (vector-ref arg-8 5))) (LibrariesC-45DataC-45SortedMap-branch7 e-11 e-12 e-13 e-14 e-15 arg-5 arg-6 arg-7 e-43 e-44 e-45 e-46 e-47))))))))))))))))) +(define LibrariesC-45DataC-45SortedMap-merge1 (lambda (arg-4 arg-5 arg-6 arg-7 arg-8) (case (vector-ref arg-6 0) ((1) (let ((e-4 (vector-ref arg-6 1))) (let ((e-5 (vector-ref arg-6 2))) (let ((e-6 (vector-ref arg-6 3))) (case (vector-ref arg-8 0) ((1) (let ((e-20 (vector-ref arg-8 1))) (let ((e-21 (vector-ref arg-8 2))) (let ((e-22 (vector-ref arg-8 3))) (LibrariesC-45DataC-45SortedMap-branch5 arg-4 arg-5 e-4 e-5 e-6 arg-7 e-20 e-21 e-22))))) (else (let ((e-27 (vector-ref arg-8 1))) (let ((e-28 (vector-ref arg-8 2))) (let ((e-29 (vector-ref arg-8 3))) (let ((e-30 (vector-ref arg-8 4))) (let ((e-31 (vector-ref arg-8 5))) (LibrariesC-45DataC-45SortedMap-branch6 arg-4 arg-5 e-4 e-5 e-6 arg-7 e-27 e-28 e-29 e-30 e-31)))))))))))) (else (let ((e-11 (vector-ref arg-6 1))) (let ((e-12 (vector-ref arg-6 2))) (let ((e-13 (vector-ref arg-6 3))) (let ((e-14 (vector-ref arg-6 4))) (let ((e-15 (vector-ref arg-6 5))) (case (vector-ref arg-8 0) ((1) (let ((e-36 (vector-ref arg-8 1))) (let ((e-37 (vector-ref arg-8 2))) (let ((e-38 (vector-ref arg-8 3))) (LibrariesC-45DataC-45SortedMap-branch6 arg-4 arg-5 e-11 e-12 e-13 e-14 e-15 arg-7 e-36 e-37 e-38))))) (else (let ((e-43 (vector-ref arg-8 1))) (let ((e-44 (vector-ref arg-8 2))) (let ((e-45 (vector-ref arg-8 3))) (let ((e-46 (vector-ref arg-8 4))) (let ((e-47 (vector-ref arg-8 5))) (LibrariesC-45DataC-45SortedMap-branch7 arg-4 arg-5 e-11 e-12 e-13 e-14 e-15 arg-7 e-43 e-44 e-45 e-46 e-47))))))))))))))))) +(define LibrariesC-45DataC-45SortedMap-lookup (lambda (arg-2 arg-3) (case (vector-ref arg-3 0) ((0) '()) (else (let ((e-5 (vector-ref arg-3 1))) (let ((e-7 (vector-ref arg-3 3))) (LibrariesC-45DataC-45SortedMap-treeLookup e-5 arg-2 e-7))))))) +(define LibrariesC-45DataC-45SortedMap-keys (lambda (ext-0) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-fst eta-0)) (LibrariesC-45DataC-45SortedMap-toList ext-0)))) +(define LibrariesC-45DataC-45SortedMap-insertFrom (lambda (arg-3 ext-0 ext-1) (PreludeC-45Basics-flip (lambda (eta-0) (lambda (clam-0) (let ((e-2 (vector-ref arg-3 1))) (((((e-2 'erased) 'erased) (lambda (eta-1) (lambda (eta-2) (PreludeC-45Basics-flip (lambda (eta-3) (PreludeC-45Basics-uncurry (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (LibrariesC-45DataC-45SortedMap-insert eta-4 eta-5 eta-6)))) eta-3)) eta-1 eta-2)))) eta-0) clam-0)))) ext-0 ext-1))) +(define LibrariesC-45DataC-45SortedMap-insert (lambda (arg-2 arg-3 arg-4) (case (vector-ref arg-4 0) ((0) (let ((e-2 (vector-ref arg-4 1))) (vector 1 e-2 0 (vector 0 arg-2 arg-3)))) (else (let ((e-5 (vector-ref arg-4 1))) (let ((e-6 (vector-ref arg-4 2))) (let ((e-7 (vector-ref arg-4 3))) (let ((sc1 (LibrariesC-45DataC-45SortedMap-treeInsert e-5 arg-2 arg-3 e-7))) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 1 e-5 e-6 e-2))) (else (let ((e-8 (vector-ref sc1 1))) (vector 1 e-5 (+ 1 e-6) e-8)))))))))))) +(define LibrariesC-45DataC-45SortedMap-fromList (lambda (arg-2 arg-3) (PreludeC-45Types-u--foldl_Foldable_List (lambda (eta-0) (lambda (eta-1) (PreludeC-45Basics-flip (lambda (eta-2) (PreludeC-45Basics-uncurry (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (LibrariesC-45DataC-45SortedMap-insert eta-3 eta-4 eta-5)))) eta-2)) eta-0 eta-1))) (LibrariesC-45DataC-45SortedMap-empty arg-2) arg-3))) +(define LibrariesC-45DataC-45SortedMap-empty (lambda (arg-2) (vector 0 arg-2))) +(define LibrariesC-45DataC-45SortedMap-delete (lambda (arg-2 arg-3) (case (vector-ref arg-3 0) ((0) (let ((e-2 (vector-ref arg-3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref arg-3 1))) (let ((e-6 (vector-ref arg-3 2))) (let ((e-7 (vector-ref arg-3 3))) (cond ((equal? e-6 0) (let ((sc2 (LibrariesC-45DataC-45SortedMap-treeDelete e-5 0 arg-2 e-7))) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 1 e-5 0 e-2))) (else (let ((e-8 (vector-ref sc2 1))) (cond (else (vector 0 e-5))))))))(else (let ((e-8 (- e-6 1))) (let ((sc1 (LibrariesC-45DataC-45SortedMap-treeDelete e-5 (+ 1 e-8) arg-2 e-7))) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 1 e-5 (+ 1 e-8) e-2))) (else (let ((e-9 (vector-ref sc1 1))) (vector 1 e-5 e-8 e-9))))))))))))))) +(define LibrariesC-45DataC-45SortedMap-branch7 (lambda (arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (vector 2 (vector 2 arg-4 arg-5 arg-6 arg-7 arg-8) arg-9 (vector 1 arg-10 arg-11 arg-12) arg-13 (vector 1 arg-14 arg-15 arg-16)))) +(define LibrariesC-45DataC-45SortedMap-branch6 (lambda (arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (vector 2 (vector 1 arg-4 arg-5 arg-6) arg-7 (vector 1 arg-8 arg-9 arg-10) arg-11 (vector 1 arg-12 arg-13 arg-14)))) +(define LibrariesC-45DataC-45SortedMap-branch5 (lambda (arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (vector 1 (vector 1 arg-4 arg-5 arg-6) arg-7 (vector 2 arg-8 arg-9 arg-10 arg-11 arg-12)))) +(define LibrariesC-45DataC-45SortedMap-branch4 (lambda (arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (vector 1 (vector 1 arg-4 arg-5 arg-6) arg-7 (vector 1 arg-8 arg-9 arg-10)))) +(define LibrariesC-45DataC-45SortedMap-adjust (lambda (arg-2 arg-3 arg-4) (let ((sc0 (LibrariesC-45DataC-45SortedMap-lookup arg-2 arg-4))) (if (null? sc0) arg-4 (let ((e-2 (unbox sc0))) (LibrariesC-45DataC-45SortedMap-insert arg-2 (arg-3 e-2) arg-4)))))) +(define CoreC-45Coverage-case--eraseApps-5845 (lambda (arg-1 arg-2 arg-3) (let ((e-2 (car arg-3))) (let ((e-3 (cdr arg-3))) (lambda (clam-0) (case (vector-ref e-2 0) ((1) (let ((e-5 (vector-ref e-2 1))) (let ((e-6 (vector-ref e-2 2))) (let ((e-7 (vector-ref e-2 3))) (case (vector-ref e-6 0) ((0) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Coverage-eraseApps arg-2 eta-0)) e-3 '() clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref act-24 1))) (vector 1 (CoreC-45TT-apply e-5 (vector 1 e-5 (vector 0 ) e-7) e-8)))))))(else (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact e-7 (let ((e-0 (vector-ref e-8 0))) e-0)) clam-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref act-25 1))) (let ((u--eargs (PreludeC-45Types-maybe (lambda () '()) (lambda () (lambda (eta-0) (let ((e-26 (vector-ref eta-0 3))) e-26))) e-9))) (let ((act-26 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Coverage-eraseApps arg-2 eta-0)) (CoreC-45Coverage-n--10117-5783-u--dropPos arg-1 arg-2 e-5 0 u--eargs e-3) '() clam-0))) (case (vector-ref act-26 0) ((0) (let ((e-4 (vector-ref act-26 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref act-26 1))) (vector 1 (CoreC-45TT-apply e-5 (vector 1 e-5 e-6 e-7) e-10)))))))))))))))))))))(else (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Coverage-eraseApps arg-2 eta-0)) e-3 '() clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (CoreC-45TT-apply (CoreC-45TT-getLoc e-2) e-2 e-5))))))))))))) +(define CoreC-45Coverage-case--caseC-32blockC-32inC-32conflict-3488 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 ext-0) (if (null? arg-8) (vector 1 0) (let ((e-2 (car arg-8))) (let ((e-3 (cdr arg-8))) (case (vector-ref e-2 0) ((5) (let ((act-24 (let ((act-24 ((CoreC-45Normalise-nf arg-5 '() arg-4 '() e-3) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-7 (vector-ref act-24 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-24 1))) ((CoreC-45Coverage-n--6936-2900-u--conflictNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 0 arg-2 e-7) ext-0))))))) (case (vector-ref act-24 0) ((0) (let ((e-7 (vector-ref act-24 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-24 1))) (if (null? e-7) (vector 1 1) (let ((e-8 (unbox e-7))) (vector 1 (CoreC-45Coverage-conflictMatch arg-0 e-8)))))))))(else (vector 1 0)))))))) +(define CoreC-45Coverage-n--10390-6045-u--tryClauses (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (if (null? arg-3) (let ((act-24 (CoreC-45Normalise-logTermNF '() arg-2 "coverage" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Nothing matches") '() arg-4 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (vector 1 (box arg-4))))) (let ((e-2 (car arg-3))) (let ((e-3 (cdr arg-3))) (let ((e-4 (vector-ref e-2 0))) (let ((e-5 (vector-ref e-2 1))) (let ((e-6 (vector-ref e-2 2))) (let ((act-24 (CoreC-45Coverage-clauseMatches e-4 arg-2 e-5 e-6 arg-4 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-8 (vector-ref act-24 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref act-24 1))) (cond ((equal? e-8 1) (let ((act-25 (CoreC-45Normalise-logTermNF e-4 arg-2 "coverage" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Yes") e-5 e-6 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-9 (vector-ref act-25 1))) (vector 0 e-9))) (else (vector 1 '()))))) (else (let ((act-25 (CoreC-45Normalise-logTermNF e-4 arg-2 "coverage" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "No match") e-5 e-6 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-9 (vector-ref act-25 1))) (vector 0 e-9))) (else (CoreC-45Coverage-n--10390-6045-u--tryClauses arg-0 arg-1 arg-2 e-3 arg-4 ext-0)))))))))))))))))) +(define CoreC-45Coverage-n--9270-4994-u--rep (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (case (vector-ref arg-6 0) ((3) (let ((e-1 (vector-ref arg-6 1))) (let ((act-24 (CoreC-45Coverage-getCons arg-5 arg-0 arg-3 arg-2 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45Coverage-mkAlt arg-0 arg-4 e-1 (Builtin-snd eta-0))) e-5))))))))(else (vector 1 (cons arg-6 '())))))) +(define CoreC-45Coverage-n--9710-5406-u--notCovering (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 ((CoreC-45Context-lookupCtxtExact arg-4 (let ((e-0 (vector-ref arg-3 0))) e-0)) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (if (null? e-5) (vector 1 0) (let ((e-1 (unbox e-5))) (let ((e-10 (vector-ref e-1 10))) (let ((e-23 (cdr e-10))) (case (vector-ref e-23 0) ((0) (vector 1 0))(else (vector 1 1))))))))))))) +(define CoreC-45Coverage-n--8538-4510-u--noneOf (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 (PreludeC-45Interfaces-any (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (lambda (eta-0) (CoreC-45Coverage-altMatch arg-7 eta-0)) arg-6))) (cond ((equal? sc0 1) 0) (else 1))))) +(define CoreC-45Coverage-n--9710-5405-u--noAssert (lambda (arg-0 arg-1 arg-2 arg-3) (let ((e-2 (car arg-3))) (let ((e-3 (cdr arg-3))) (cond ((equal? e-3 1) '()) (else (box e-2))))))) +(define CoreC-45Coverage-n--10300-5958-u--mkSubstEnv (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (if (null? arg-5) '() (let ((e-3 (cdr arg-5))) (let ((e-9 (cdr arg-8))) (cons (vector 1 arg-6 (vector 0 ) (vector 2 "cov" arg-7)) (CoreC-45Coverage-n--10300-5958-u--mkSubstEnv arg-0 arg-1 arg-2 arg-3 arg-4 e-3 arg-6 (bs+ arg-7 1 63) e-9))))))) +(define CoreC-45Coverage-n--9710-5404-u--isCase (lambda (arg-0 arg-1 arg-2 arg-3) (case (vector-ref arg-3 0) ((0) (let ((e-1 (vector-ref arg-3 2))) (CoreC-45Coverage-n--9710-5404-u--isCase arg-0 arg-1 arg-2 e-1))) ((7) 1)(else 0)))) +(define CoreC-45Coverage-n--6431-2447-u--findN (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (case (vector-ref arg-5 0) ((0) (let ((e-4 (vector-ref arg-5 3))) (PreludeC-45Types-u--C-61C-61_Eq_Nat arg-4 e-4)))(else (let ((sc0 (CoreC-45TT-getFnArgs arg-5))) (if (null? sc0) 0 (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (case (vector-ref e-2 0) ((1) (let ((e-6 (vector-ref e-2 2))) (case (vector-ref e-6 0) ((2) (PreludeC-45Interfaces-any (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (lambda (eta-0) (CoreC-45Coverage-n--6431-2447-u--findN arg-0 arg-1 arg-2 arg-3 arg-4 eta-0)) e-3))(else 0))))(else 0)))))))))) +(define CoreC-45Coverage-n--8356-4123-u--emptyRHSalt (lambda (arg-1 arg-2 arg-3 arg-4 arg-6 arg-7) (case (vector-ref arg-7 0) ((0) (let ((e-1 (vector-ref arg-7 1))) (let ((e-2 (vector-ref arg-7 2))) (let ((e-3 (vector-ref arg-7 3))) (let ((e-4 (vector-ref arg-7 4))) (vector 0 e-1 e-2 e-3 (CoreC-45Coverage-emptyRHS arg-6 e-4))))))) ((1) (let ((e-6 (vector-ref arg-7 1))) (let ((e-7 (vector-ref arg-7 2))) (let ((e-8 (vector-ref arg-7 3))) (vector 1 e-6 e-7 (CoreC-45Coverage-emptyRHS arg-6 e-8)))))) ((2) (let ((e-10 (vector-ref arg-7 1))) (let ((e-11 (vector-ref arg-7 2))) (vector 2 e-10 (CoreC-45Coverage-emptyRHS arg-6 e-11))))) (else (let ((e-13 (vector-ref arg-7 1))) (vector 3 (CoreC-45Coverage-emptyRHS arg-6 e-13))))))) +(define CoreC-45Coverage-n--9270-4995-u--dropRep (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (if (null? arg-6) '() (let ((e-2 (car arg-6))) (let ((e-3 (cdr arg-6))) (case (vector-ref e-2 0) ((0) (let ((e-6 (vector-ref e-2 2))) (cons e-2 (CoreC-45Coverage-n--9270-4995-u--dropRep arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (DataC-45List-filter (lambda (eta-0) (let ((sc2 (CoreC-45Coverage-tagIs e-6 eta-0))) (cond ((equal? sc2 1) 0) (else 1)))) e-3)))))(else (cons e-2 (CoreC-45Coverage-n--9270-4995-u--dropRep arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3))))))))) +(define CoreC-45Coverage-n--10117-5783-u--dropPos (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (if (null? arg-6) '() (let ((e-2 (car arg-6))) (let ((e-3 (cdr arg-6))) (let ((sc1 (PreludeC-45Types-elem (cons (lambda (arg-7) (lambda (arg-8) (PreludeC-45Types-u--C-61C-61_Eq_Nat arg-7 arg-8))) (lambda (arg-7) (lambda (arg-8) (PreludeC-45Types-u--C-47C-61_Eq_Nat arg-7 arg-8)))) arg-4 arg-5))) (cond ((equal? sc1 1) (cons (vector 10 arg-3 0) (CoreC-45Coverage-n--10117-5783-u--dropPos arg-1 arg-2 arg-3 (+ 1 arg-4) arg-5 e-3))) (else (cons e-2 (CoreC-45Coverage-n--10117-5783-u--dropPos arg-1 arg-2 arg-3 (+ 1 arg-4) arg-5 e-3)))))))))) +(define CoreC-45Coverage-n--6431-2448-u--conflictTm (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (case (vector-ref arg-4 0) ((0) (let ((e-10 (vector-ref arg-4 3))) (let ((sc1 (CoreC-45TT-getFnArgs arg-5))) (if (null? sc1) 0 (let ((e-2 (car sc1))) (let ((e-3 (cdr sc1))) (case (vector-ref e-2 0) ((1) (let ((e-6 (vector-ref e-2 2))) (case (vector-ref e-6 0) ((2) (PreludeC-45Interfaces-any (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (lambda (eta-0) (CoreC-45Coverage-n--6431-2447-u--findN arg-0 arg-1 arg-2 arg-3 e-10 eta-0)) e-3))(else 0))))(else 0))))))))(else (case (vector-ref arg-5 0) ((0) (let ((e-4 (vector-ref arg-5 3))) (let ((sc1 (CoreC-45TT-getFnArgs arg-4))) (if (null? sc1) 0 (let ((e-6 (car sc1))) (let ((e-5 (cdr sc1))) (case (vector-ref e-6 0) ((1) (let ((e-8 (vector-ref e-6 2))) (case (vector-ref e-8 0) ((2) (PreludeC-45Interfaces-any (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (lambda (eta-0) (CoreC-45Coverage-n--6431-2447-u--findN arg-0 arg-1 arg-2 arg-3 e-4 eta-0)) e-5))(else 0))))(else 0))))))))(else (let ((sc0 (CoreC-45TT-getFnArgs arg-4))) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 (CoreC-45TT-getFnArgs arg-5))) (let ((e-5 (car sc1))) (let ((e-4 (cdr sc1))) (let ((sc2 (CoreC-45Coverage-n--6431-2446-u--clash arg-0 arg-1 arg-2 arg-3 e-2 e-5))) (cond ((equal? sc2 1) 1) (else (PreludeC-45Interfaces-any (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (lambda (eta-0) (PreludeC-45Basics-uncurry (lambda (eta-1) (lambda (eta-2) (CoreC-45Coverage-n--6431-2448-u--conflictTm arg-0 arg-1 arg-2 arg-3 eta-1 eta-2))) eta-0)) (DataC-45List-u--zip_Zippable_List e-3 e-4))))))))))))))))) +(define CoreC-45Coverage-n--6936-2900-u--conflictNF (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (case (vector-ref arg-8 0) ((0) (let ((e-31 (vector-ref arg-8 1))) (let ((e-32 (vector-ref arg-8 2))) (let ((e-34 (vector-ref arg-8 4))) (let ((u--xC-39 (vector 2 (CoreC-45Name-u--show_Show_Name e-32) arg-6))) (lambda (eta-0) (let ((act-24 (((e-34 arg-4) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 1 e-31 (vector 0 ) u--xC-39))) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) ((CoreC-45Coverage-n--6936-2900-u--conflictNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (bs+ arg-6 1 63) arg-7 e-5) eta-0))))))))))) ((1) (let ((e-37 (vector-ref arg-8 2))) (let ((e-38 (vector-ref arg-8 3))) (case (vector-ref e-37 0) ((1) (let ((e-40 (vector-ref e-37 1))) (let ((e-41 (vector-ref e-37 2))) (case (vector-ref e-40 0) ((0) (if (null? e-38) (lambda (eta-0) (let ((act-24 (CoreC-45Context-clearDefs arg-4 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-5 arg-0 e-5 arg-3 arg-7 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (box (cons (cons e-41 e-6) '())))))))))))) (case (vector-ref arg-7 0) ((2) (let ((e-3 (vector-ref arg-7 3))) (let ((e-5 (vector-ref arg-7 5))) (case (vector-ref arg-8 0) ((2) (let ((e-18 (vector-ref arg-8 3))) (let ((e-20 (vector-ref arg-8 5))) (let ((sc6 (PreludeC-45EqOrd-u--C-61C-61_Eq_Int e-3 e-18))) (cond ((equal? sc6 1) (lambda (eta-0) (CoreC-45Coverage-n--6936-2899-u--conflictArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) e-5) (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) e-20) eta-0))) (else (lambda (eta-0) (vector 1 '()))))))))(else (lambda (eta-0) (vector 1 (box '())))))))) ((3) (let ((e-8 (vector-ref arg-7 2))) (let ((e-11 (vector-ref arg-7 5))) (case (vector-ref arg-8 0) ((3) (let ((e-23 (vector-ref arg-8 2))) (let ((e-26 (vector-ref arg-8 5))) (let ((sc6 (CoreC-45Name-u--C-61C-61_Eq_Name e-8 e-23))) (cond ((equal? sc6 1) (lambda (eta-0) (CoreC-45Coverage-n--6936-2899-u--conflictArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) e-11) (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) e-26) eta-0))) (else (lambda (eta-0) (vector 1 '()))))))))(else (lambda (eta-0) (vector 1 (box '())))))))) ((8) (let ((e-14 (vector-ref arg-7 2))) (lambda (clam-0) (case (vector-ref arg-8 0) ((8) (let ((e-29 (vector-ref arg-8 2))) (let ((sc6 (CoreC-45TT-u--C-61C-61_Eq_Constant e-14 e-29))) (cond ((equal? sc6 1) (vector 1 (box '()))) (else (vector 1 '()))))))(else (vector 1 (box '())))))))(else (lambda (eta-0) (vector 1 (box '())))))))(else (case (vector-ref arg-7 0) ((2) (let ((e-3 (vector-ref arg-7 3))) (let ((e-5 (vector-ref arg-7 5))) (case (vector-ref arg-8 0) ((2) (let ((e-18 (vector-ref arg-8 3))) (let ((e-20 (vector-ref arg-8 5))) (let ((sc4 (PreludeC-45EqOrd-u--C-61C-61_Eq_Int e-3 e-18))) (cond ((equal? sc4 1) (lambda (eta-0) (CoreC-45Coverage-n--6936-2899-u--conflictArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) e-5) (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) e-20) eta-0))) (else (lambda (eta-0) (vector 1 '()))))))))(else (lambda (eta-0) (vector 1 (box '())))))))) ((3) (let ((e-8 (vector-ref arg-7 2))) (let ((e-11 (vector-ref arg-7 5))) (case (vector-ref arg-8 0) ((3) (let ((e-23 (vector-ref arg-8 2))) (let ((e-26 (vector-ref arg-8 5))) (let ((sc4 (CoreC-45Name-u--C-61C-61_Eq_Name e-8 e-23))) (cond ((equal? sc4 1) (lambda (eta-0) (CoreC-45Coverage-n--6936-2899-u--conflictArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) e-11) (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) e-26) eta-0))) (else (lambda (eta-0) (vector 1 '()))))))))(else (lambda (eta-0) (vector 1 (box '())))))))) ((8) (let ((e-14 (vector-ref arg-7 2))) (lambda (clam-1) (case (vector-ref arg-8 0) ((8) (let ((e-29 (vector-ref arg-8 2))) (let ((sc4 (CoreC-45TT-u--C-61C-61_Eq_Constant e-14 e-29))) (cond ((equal? sc4 1) (vector 1 (box '()))) (else (vector 1 '()))))))(else (vector 1 (box '())))))))(else (lambda (eta-0) (vector 1 (box '()))))))))))(else (case (vector-ref arg-7 0) ((2) (let ((e-3 (vector-ref arg-7 3))) (let ((e-5 (vector-ref arg-7 5))) (case (vector-ref arg-8 0) ((2) (let ((e-18 (vector-ref arg-8 3))) (let ((e-20 (vector-ref arg-8 5))) (let ((sc3 (PreludeC-45EqOrd-u--C-61C-61_Eq_Int e-3 e-18))) (cond ((equal? sc3 1) (lambda (eta-0) (CoreC-45Coverage-n--6936-2899-u--conflictArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) e-5) (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) e-20) eta-0))) (else (lambda (eta-0) (vector 1 '()))))))))(else (lambda (eta-0) (vector 1 (box '())))))))) ((3) (let ((e-8 (vector-ref arg-7 2))) (let ((e-11 (vector-ref arg-7 5))) (case (vector-ref arg-8 0) ((3) (let ((e-23 (vector-ref arg-8 2))) (let ((e-26 (vector-ref arg-8 5))) (let ((sc3 (CoreC-45Name-u--C-61C-61_Eq_Name e-8 e-23))) (cond ((equal? sc3 1) (lambda (eta-0) (CoreC-45Coverage-n--6936-2899-u--conflictArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) e-11) (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) e-26) eta-0))) (else (lambda (eta-0) (vector 1 '()))))))))(else (lambda (eta-0) (vector 1 (box '())))))))) ((8) (let ((e-14 (vector-ref arg-7 2))) (lambda (clam-2) (case (vector-ref arg-8 0) ((8) (let ((e-29 (vector-ref arg-8 2))) (let ((sc3 (CoreC-45TT-u--C-61C-61_Eq_Constant e-14 e-29))) (cond ((equal? sc3 1) (vector 1 (box '()))) (else (vector 1 '()))))))(else (vector 1 (box '())))))))(else (lambda (eta-0) (vector 1 (box '()))))))))))(else (case (vector-ref arg-7 0) ((2) (let ((e-3 (vector-ref arg-7 3))) (let ((e-5 (vector-ref arg-7 5))) (case (vector-ref arg-8 0) ((2) (let ((e-18 (vector-ref arg-8 3))) (let ((e-20 (vector-ref arg-8 5))) (let ((sc2 (PreludeC-45EqOrd-u--C-61C-61_Eq_Int e-3 e-18))) (cond ((equal? sc2 1) (lambda (eta-0) (CoreC-45Coverage-n--6936-2899-u--conflictArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) e-5) (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) e-20) eta-0))) (else (lambda (eta-0) (vector 1 '()))))))))(else (lambda (eta-0) (vector 1 (box '())))))))) ((3) (let ((e-8 (vector-ref arg-7 2))) (let ((e-11 (vector-ref arg-7 5))) (case (vector-ref arg-8 0) ((3) (let ((e-23 (vector-ref arg-8 2))) (let ((e-26 (vector-ref arg-8 5))) (let ((sc2 (CoreC-45Name-u--C-61C-61_Eq_Name e-8 e-23))) (cond ((equal? sc2 1) (lambda (eta-0) (CoreC-45Coverage-n--6936-2899-u--conflictArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) e-11) (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) e-26) eta-0))) (else (lambda (eta-0) (vector 1 '()))))))))(else (lambda (eta-0) (vector 1 (box '())))))))) ((8) (let ((e-14 (vector-ref arg-7 2))) (lambda (clam-3) (case (vector-ref arg-8 0) ((8) (let ((e-29 (vector-ref arg-8 2))) (let ((sc2 (CoreC-45TT-u--C-61C-61_Eq_Constant e-14 e-29))) (cond ((equal? sc2 1) (vector 1 (box '()))) (else (vector 1 '()))))))(else (vector 1 (box '())))))))(else (lambda (eta-0) (vector 1 (box '()))))))))) +(define CoreC-45Coverage-n--6936-2899-u--conflictArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 ext-0) (if (null? arg-7) (if (null? arg-8) (vector 1 (box '())) (vector 1 (box '()))) (let ((e-2 (car arg-7))) (let ((e-3 (cdr arg-7))) (if (null? arg-8) (vector 1 (box '())) (let ((e-6 (car arg-8))) (let ((e-7 (cdr arg-8))) (let ((act-24 ((CoreC-45Normalise-evalClosure arg-5 arg-0 arg-4 e-2) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Normalise-evalClosure arg-5 '() arg-4 e-6) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref act-25 1))) (let ((act-26 ((CoreC-45Coverage-n--6936-2900-u--conflictNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-8) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-4 (vector-ref act-26 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref act-26 1))) (if (null? e-9) (vector 1 '()) (let ((e-1 (unbox e-9))) (let ((act-27 (CoreC-45Coverage-n--6936-2899-u--conflictArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3 e-7 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-4 (vector-ref act-27 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref act-27 1))) (if (null? e-10) (vector 1 '()) (let ((e-4 (unbox e-10))) (vector 1 (box (PreludeC-45TypesC-45List-C-43C-43 e-1 e-4))))))))))))))))))))))))))))))) +(define CoreC-45Coverage-n--6431-2449-u--conflictArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (if (null? arg-6) 0 (let ((e-2 (car arg-6))) (let ((e-3 (cdr arg-6))) (let ((e-6 (car e-2))) (let ((e-7 (cdr e-2))) (let ((sc2 (let ((sc3 (CoreC-45Name-u--C-61C-61_Eq_Name arg-4 e-6))) (cond ((equal? sc3 1) (CoreC-45Coverage-n--6431-2448-u--conflictTm arg-0 arg-1 arg-2 arg-3 arg-5 e-7)) (else 0))))) (cond ((equal? sc2 1) 1) (else (CoreC-45Coverage-n--6431-2449-u--conflictArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3))))))))))) +(define CoreC-45Coverage-n--10300-5959-u--close (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (CoreC-45TTC-45SubstEnv-substs (CoreC-45Coverage-n--10300-5958-u--mkSubstEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 0 arg-7) arg-8))) +(define CoreC-45Coverage-n--6431-2446-u--clash (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (case (vector-ref arg-4 0) ((1) (let ((e-2 (vector-ref arg-4 2))) (case (vector-ref e-2 0) ((2) (let ((e-14 (vector-ref e-2 1))) (case (vector-ref arg-5 0) ((1) (let ((e-20 (vector-ref arg-5 2))) (case (vector-ref e-20 0) ((2) (let ((e-22 (vector-ref e-20 1))) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int e-14 e-22)))(else (case (vector-ref arg-5 0) ((9) (DataC-45Maybe-isJust (CoreC-45TT-isCon e-2))) ((11) (DataC-45Maybe-isJust (CoreC-45TT-isCon e-2)))(else 0))))))(else (case (vector-ref arg-5 0) ((9) (DataC-45Maybe-isJust (CoreC-45TT-isCon e-2))) ((11) (DataC-45Maybe-isJust (CoreC-45TT-isCon e-2)))(else 0)))))) ((3) (let ((e-16 (vector-ref e-2 1))) (case (vector-ref arg-5 0) ((1) (let ((e-26 (vector-ref arg-5 2))) (case (vector-ref e-26 0) ((3) (let ((e-28 (vector-ref e-26 1))) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int e-16 e-28)))(else (case (vector-ref arg-5 0) ((9) (DataC-45Maybe-isJust (CoreC-45TT-isCon e-2))) ((11) (DataC-45Maybe-isJust (CoreC-45TT-isCon e-2)))(else 0))))))(else (case (vector-ref arg-5 0) ((9) (DataC-45Maybe-isJust (CoreC-45TT-isCon e-2))) ((11) (DataC-45Maybe-isJust (CoreC-45TT-isCon e-2)))(else 0))))))(else (case (vector-ref arg-5 0) ((9) (DataC-45Maybe-isJust (CoreC-45TT-isCon e-2))) ((11) (DataC-45Maybe-isJust (CoreC-45TT-isCon e-2)))(else 0)))))) ((9) (let ((e-6 (vector-ref arg-4 2))) (case (vector-ref arg-5 0) ((9) (let ((e-32 (vector-ref arg-5 2))) (CoreC-45TT-u--C-47C-61_Eq_Constant e-6 e-32))) ((1) (let ((e-35 (vector-ref arg-5 2))) (DataC-45Maybe-isJust (CoreC-45TT-isCon e-35)))) ((11) 1)(else 0)))) ((11) (case (vector-ref arg-5 0) ((1) (let ((e-41 (vector-ref arg-5 2))) (DataC-45Maybe-isJust (CoreC-45TT-isCon e-41)))) ((9) 1)(else 0)))(else 0)))) +(define CoreC-45Coverage-n--9376-5085-u--buildArgsAlt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 ext-0) (if (null? arg-14) (vector 1 '()) (let ((e-2 (car arg-14))) (let ((e-3 (cdr arg-14))) (case (vector-ref e-2 0) ((0) (let ((e-6 (vector-ref e-2 2))) (let ((act-24 ((CoreC-45Coverage-n--9376-5084-u--buildArgAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-2) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Coverage-n--9376-5085-u--buildArgsAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 (CoreC-45Coverage-addNot arg-3 arg-0 e-6 arg-13) e-3 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref act-25 1))) (vector 1 (PreludeC-45TypesC-45List-C-43C-43 e-9 e-10))))))))))))(else (let ((act-24 ((CoreC-45Coverage-n--9376-5084-u--buildArgAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-2) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Coverage-n--9376-5085-u--buildArgsAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-3 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (PreludeC-45TypesC-45List-C-43C-43 e-5 e-6))))))))))))))))) +(define CoreC-45Coverage-n--9376-5084-u--buildArgAlt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (case (vector-ref arg-14 0) ((0) (let ((e-1 (vector-ref arg-14 1))) (let ((e-2 (vector-ref arg-14 2))) (let ((e-3 (vector-ref arg-14 3))) (let ((e-4 (vector-ref arg-14 4))) (let ((u--l (CoreC-45TTC-45SizeOf-mkSizeOf e-3))) (let ((u--con (vector 1 arg-11 (vector 2 e-2 u--l) e-1))) (let ((u--psC-39 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45TT-substName arg-4 (CoreC-45TT-apply arg-11 u--con (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (vector 1 arg-11 (vector 0 ) eta-1)) e-3)) eta-0)) arg-7))) (CoreC-45Coverage-buildArgs arg-12 (PreludeC-45TypesC-45List-C-43C-43 e-3 arg-0) arg-11 arg-10 (CoreC-45Coverage-weakenNs u--l (cons (cons arg-3 e-2) arg-9)) (CoreC-45Coverage-weakenNs u--l arg-13) u--psC-39 e-4))))))))) ((1) (let ((e-6 (vector-ref arg-14 1))) (let ((e-7 (vector-ref arg-14 2))) (let ((e-8 (vector-ref arg-14 3))) (let ((u--l (CoreC-45TTC-45SizeOf-mkSizeOf (cons e-6 (cons e-7 '()))))) (let ((u--psC-39 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45TT-substName arg-4 (vector 7 arg-11 2 (vector 1 arg-11 (vector 0 ) e-6) (vector 1 arg-11 (vector 0 ) e-7)) eta-0)) arg-7))) (CoreC-45Coverage-buildArgs arg-12 (cons e-6 (cons e-7 arg-0)) arg-11 arg-10 (CoreC-45Coverage-weakenNs u--l arg-9) (CoreC-45Coverage-weakenNs u--l arg-13) u--psC-39 e-8))))))) ((2) (let ((e-10 (vector-ref arg-14 1))) (let ((e-11 (vector-ref arg-14 2))) (let ((u--psC-39 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45TT-substName arg-4 (vector 9 arg-11 e-10) eta-0)) arg-7))) (CoreC-45Coverage-buildArgs arg-12 arg-0 arg-11 arg-10 arg-9 arg-13 u--psC-39 e-11))))) (else (let ((e-13 (vector-ref arg-14 1))) (CoreC-45Coverage-buildArgs arg-12 arg-0 arg-11 arg-10 arg-9 arg-13 arg-7 e-13)))))) +(define CoreC-45Coverage-n--8067-3881-u--addTy (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 ext-0) (let ((act-24 ((CoreC-45Context-lookupCtxtExact arg-8 (let ((e-0 (vector-ref arg-6 0))) e-0)) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (if (null? e-5) (vector 1 '()) (let ((e-1 (unbox e-5))) (let ((e-17 (vector-ref e-1 17))) (case (vector-ref e-17 0) ((5) (let ((e-25 (vector-ref e-17 1))) (let ((e-24 (vector-ref e-17 2))) (let ((act-25 ((CoreC-45Normalise-nf arg-7 '() arg-6 '() (let ((e-44 (vector-ref e-1 2))) e-44)) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-26 (vector-ref act-25 1))) (vector 0 e-26))) (else (let ((e-26 (vector-ref act-25 1))) (vector 1 (box (cons e-26 (cons arg-8 (cons e-25 e-24))))))))))))(else (vector 1 '())))))))))))) +(define CoreC-45Coverage-weakenNs (lambda (arg-3 arg-4) (if (null? arg-4) '() (let ((e-2 (car arg-4))) (let ((e-3 (cdr arg-4))) (let ((e-6 (car e-2))) (let ((e-7 (cdr e-2))) (cons (cons (CoreC-45TT-u--weakenNs_Weaken_Var arg-3 e-6) e-7) (CoreC-45Coverage-weakenNs arg-3 e-3))))))))) +(define CoreC-45Coverage-tagIsNot (lambda (arg-1 arg-2) (case (vector-ref arg-2 0) ((0) (let ((e-2 (vector-ref arg-2 2))) (let ((sc1 (PreludeC-45Types-elem (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) e-2 arg-1))) (cond ((equal? sc1 1) 0) (else 1))))) ((2) 1) ((1) 1) (else 0)))) +(define CoreC-45Coverage-tagIs (lambda (arg-1 arg-2) (case (vector-ref arg-2 0) ((0) (let ((e-2 (vector-ref arg-2 2))) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-1 e-2))) ((2) 0) ((1) 0) (else 1)))) +(define CoreC-45Coverage-replaceDefaults (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (case (vector-ref arg-4 0) ((8) (vector 1 arg-5)) ((10) (vector 1 arg-5))(else (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (CoreC-45Coverage-n--9270-4994-u--rep arg-1 arg-5 arg-4 arg-3 arg-2 arg-0 eta-0 eta-1))) arg-5 '() ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (CoreC-45Coverage-n--9270-4995-u--dropRep arg-1 arg-5 arg-4 arg-3 arg-2 arg-0 (PreludeC-45Interfaces-concat (cons (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (cons (lambda (arg-6) (lambda (arg-7) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-6 arg-7))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) e-5))))))))))) +(define CoreC-45Coverage-mkAlt (lambda (arg-0 arg-1 arg-2 arg-3) (let ((e-2 (car arg-3))) (let ((e-3 (cdr arg-3))) (let ((e-6 (car e-3))) (let ((e-7 (cdr e-3))) (vector 0 e-2 e-6 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (vector 2 "m" eta-0)) (PreludeC-45Types-take e-7 (PreludeC-45Types-u--rangeFrom_Range_C-36a (cons (vector (vector (lambda (arg-4) (lambda (arg-5) (bs+ arg-4 arg-5 63))) (lambda (arg-4) (lambda (arg-5) (bs* arg-4 arg-5 63))) (lambda (arg-6) (blodwen-toSignedInt arg-6 63))) (lambda (arg-157) (lambda (arg-158) (PreludeC-45Num-u--div_Integral_Int arg-157 arg-158))) (lambda (arg-159) (lambda (arg-160) (PreludeC-45Num-u--mod_Integral_Int arg-159 arg-160)))) (cons (vector (cons (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) (vector (vector (lambda (arg-4) (lambda (arg-5) (bs+ arg-4 arg-5 63))) (lambda (arg-4) (lambda (arg-5) (bs* arg-4 arg-5 63))) (lambda (arg-6) (blodwen-toSignedInt arg-6 63))) (lambda (arg-45) (PreludeC-45Num-u--negate_Neg_Int arg-45)) (lambda (arg-46) (lambda (arg-47) (PreludeC-45Num-u--C-45_Neg_Int arg-46 arg-47)))))) (blodwen-toSignedInt 0 63)))) (CoreC-45CaseTree-u--weakenNs_Weaken_CaseTree (CoreC-45TTC-45SizeOf-map (CoreC-45TTC-45SizeOf-take e-7)) (CoreC-45Coverage-emptyRHS arg-1 arg-2))))))))) +(define CoreC-45Coverage-match (lambda (arg-1 arg-2) (case (vector-ref arg-1 0) ((0) 1) ((1) (let ((e-15 (vector-ref arg-1 2))) (let ((e-16 (vector-ref arg-1 3))) (case (vector-ref e-15 0) ((0) 1)(else (case (vector-ref arg-2 0) ((1) (let ((e-48 (vector-ref arg-2 3))) (CoreC-45Name-u--C-61C-61_Eq_Name e-16 e-48)))(else (case (vector-ref arg-2 0) ((10) 1)(else (case (vector-ref arg-1 0) ((11) (case (vector-ref arg-2 0) ((11) 1)(else 0)))(else 0))))))))))) ((4) (let ((e-19 (vector-ref arg-1 2))) (let ((e-20 (vector-ref arg-1 3))) (case (vector-ref arg-2 0) ((4) (let ((e-51 (vector-ref arg-2 2))) (let ((e-52 (vector-ref arg-2 3))) (let ((sc2 (CoreC-45Coverage-match e-19 e-51))) (cond ((equal? sc2 1) (CoreC-45Coverage-match e-20 e-52)) (else 0))))))(else (case (vector-ref arg-2 0) ((10) 1)(else (case (vector-ref arg-1 0) ((11) (case (vector-ref arg-2 0) ((11) 1)(else 0)))(else 0))))))))) ((5) (let ((e-25 (vector-ref arg-1 4))) (case (vector-ref arg-2 0) ((5) (let ((e-57 (vector-ref arg-2 4))) (CoreC-45Coverage-match e-25 e-57)))(else (CoreC-45Coverage-match e-25 arg-2))))) ((6) (let ((e-29 (vector-ref arg-1 3))) (case (vector-ref arg-2 0) ((6) (let ((e-61 (vector-ref arg-2 3))) (CoreC-45Coverage-match e-29 e-61)))(else (case (vector-ref arg-2 0) ((10) 1)(else (case (vector-ref arg-1 0) ((11) (case (vector-ref arg-2 0) ((11) 1)(else 0)))(else 0)))))))) ((7) (let ((e-34 (vector-ref arg-1 4))) (case (vector-ref arg-2 0) ((7) (let ((e-66 (vector-ref arg-2 4))) (CoreC-45Coverage-match e-34 e-66)))(else (case (vector-ref arg-2 0) ((10) 1)(else (case (vector-ref arg-1 0) ((11) (case (vector-ref arg-2 0) ((11) 1)(else 0)))(else 0)))))))) ((8) (let ((e-38 (vector-ref arg-1 3))) (case (vector-ref arg-2 0) ((8) (let ((e-70 (vector-ref arg-2 3))) (CoreC-45Coverage-match e-38 e-70)))(else (case (vector-ref arg-2 0) ((10) 1)(else (case (vector-ref arg-1 0) ((11) (case (vector-ref arg-2 0) ((11) 1)(else 0)))(else 0)))))))) ((9) (let ((e-41 (vector-ref arg-1 2))) (case (vector-ref arg-2 0) ((9) (let ((e-73 (vector-ref arg-2 2))) (CoreC-45TT-u--C-61C-61_Eq_Constant e-41 e-73)))(else (case (vector-ref arg-2 0) ((10) 1)(else (case (vector-ref arg-1 0) ((11) (case (vector-ref arg-2 0) ((11) 1)(else 0)))(else 0)))))))) ((10) 1)(else (case (vector-ref arg-2 0) ((10) 1)(else (case (vector-ref arg-1 0) ((11) (case (vector-ref arg-2 0) ((11) 1)(else 0)))(else 0)))))))) +(define CoreC-45Coverage-isEmpty (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (case (vector-ref arg-4 0) ((3) (let ((e-1 (vector-ref arg-4 1))) (let ((e-2 (vector-ref arg-4 2))) (let ((e-3 (vector-ref arg-4 3))) (let ((e-4 (vector-ref arg-4 4))) (let ((e-5 (vector-ref arg-4 5))) (let ((act-24 (CoreC-45Context-lookupDefExact e-2 (let ((e-0 (vector-ref arg-2 0))) e-0) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (if (null? e-6) (vector 1 0) (let ((e-7 (unbox e-6))) (case (vector-ref e-7 0) ((6) (let ((e-11 (vector-ref e-7 5))) (let ((e-9 (vector-ref e-7 7))) (let ((sc4 (let ((e-15 (cdr e-11))) e-15))) (cond ((equal? sc4 1) (vector 1 0)) (else (CoreC-45Core-allM (lambda (eta-0) (lambda (eta-1) (CoreC-45Coverage-conflict arg-0 arg-1 arg-2 arg-3 (vector 3 e-1 e-2 e-3 e-4 e-5) eta-0 eta-1))) e-9 ext-0)))))))(else (vector 1 0)))))))))))))))(else (vector 1 0))))) +(define CoreC-45Coverage-getNonCoveringRefs (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact arg-2 (let ((e-0 (vector-ref e-5 0))) e-0)) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (if (null? e-6) (CoreC-45Context-undefinedName arg-0 arg-1 arg-2 ext-0) (let ((e-1 (unbox e-6))) (let ((u--ds (DataC-45List-mapMaybe (lambda (eta-0) (CoreC-45Coverage-n--9710-5405-u--noAssert arg-2 arg-1 arg-0 eta-0)) (LibrariesC-45DataC-45NameMap-toList (CoreC-45Context-refersTo e-1))))) (let ((act-26 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-2) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-2)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-2) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-2))))) eta-0 eta-1))) u--ds '() ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((u--cases (DataC-45List-filter (lambda (eta-0) (CoreC-45Coverage-n--9710-5404-u--isCase arg-2 arg-1 arg-0 eta-0)) e-7))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (CoreC-45Coverage-getNonCoveringRefs arg-0 arg-1 eta-0 eta-1))) u--cases '() ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (let ((act-28 (CoreC-45Core-filterM (lambda (eta-0) (lambda (eta-1) (CoreC-45Coverage-n--9710-5406-u--notCovering arg-2 arg-1 arg-0 e-5 eta-0 eta-1))) u--ds ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-28 1))) (vector 1 (PreludeC-45TypesC-45List-C-43C-43 e-9 (PreludeC-45Interfaces-concat (cons (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-3 arg-4))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) e-8))))))))))))))))))))))))))))) +(define CoreC-45Coverage-getMissingAlts (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (case (vector-ref arg-4 0) ((8) (let ((e-2 (vector-ref arg-4 2))) (lambda (clam-0) (case (vector-ref e-2 0) ((27) (let ((sc2 (DataC-45List-isNil arg-5))) (cond ((equal? sc2 1) (vector 1 (cons (vector 3 (vector 2 "Coverage check")) '()))) (else (vector 1 '())))))(else (let ((act-24 (CoreC-45ContextC-45Log-log arg-0 "coverage.missing" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))))))))))))))))))))))))))))))))))))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Looking for missing alts at type " (CoreC-45TT-u--show_Show_Constant e-2))) clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (let ((sc2 (PreludeC-45Interfaces-any (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (lambda (eta-0) (CoreC-45CaseTree-isDefault eta-0)) arg-5))) (cond ((equal? sc2 1) (let ((act-25 (CoreC-45ContextC-45Log-log arg-0 "coverage.missing" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))))))))))))) (lambda () "Found default") clam-0))) (case (vector-ref act-25 0) ((0) (let ((e-3 (vector-ref act-25 1))) (vector 0 e-3))) (else (vector 1 '()))))) (else (vector 1 (cons (vector 3 (vector 2 "Coverage check")) '()))))))))))))) ((10) (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-log arg-0 "coverage.missing" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))))))))))))))))))))))))))))))))))))))))))) (lambda () "Looking for missing alts at type Type") eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((sc2 (PreludeC-45Interfaces-any (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (lambda (eta-1) (CoreC-45CaseTree-isDefault eta-1)) arg-5))) (cond ((equal? sc2 1) (let ((act-25 (CoreC-45ContextC-45Log-log arg-0 "coverage.missing" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))))))))))))) (lambda () "Found default") eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (vector 1 '()))))) (else (vector 1 (cons (vector 3 (vector 2 "Coverage check")) '()))))))))))(else (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-log arg-0 "coverage.missing" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))))))))))))))))))))))))))))))))))))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Getting constructors for: " (CoreC-45Value-u--show_Show_C-40NFC-32C-36freeC-41 arg-1 arg-4))) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45Normalise-logNF arg-1 arg-0 "coverage.missing" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))))))))))))) (lambda () "Getting constructors for") (CoreC-45Env-mkEnv arg-2 arg-1) arg-4 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45Coverage-getCons arg-0 arg-1 arg-3 arg-4 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (DataC-45List-filter (lambda (eta-1) (CoreC-45Coverage-n--8538-4510-u--noneOf arg-1 arg-5 arg-4 arg-3 arg-2 arg-0 arg-5 eta-1)) (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (CoreC-45Coverage-mkAlt arg-1 arg-2 (vector 2 "Coverage check") (Builtin-snd eta-1))) e-7)))))))))))))))))) +(define CoreC-45Coverage-getMissing (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((u--psIn (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (vector 1 arg-2 (vector 0 ) eta-0)) arg-0))) (let ((act-25 ((CoreC-45Coverage-buildArgs arg-1 arg-0 arg-2 e-5 '() '() u--psIn arg-4) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((u--pats (PreludeC-45Interfaces-concat (cons (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (cons (lambda (arg-5) (lambda (arg-6) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-5 arg-6))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) e-6))) (let ((act-26 (let ((sc2 ((PreludeC-45Types-u--null_Foldable_List u--pats)))) (cond ((equal? sc2 1) (vector 1 0)) (else (CoreC-45ContextC-45Log-unverifiedLogC arg-1 "coverage.missing" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))))))))))))) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (case (vector-ref eta-1 0) ((0) (let ((e-2 (vector-ref eta-1 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref eta-1 1))) (vector 1 (LibrariesC-45DataC-45StringC-45Extra-unlines e-7)))))) (PreludeC-45Basics-flip (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (CoreC-45Core-traverseC-39 eta-1 eta-2 '() eta-3)))) u--pats (lambda (u--pat) (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-2) (case (vector-ref eta-2 0) ((0) (let ((e-2 (vector-ref eta-2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref eta-2 1))) (vector 1 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7)))))) (lambda (eta-2) (CoreC-45Context-toFullNames arg-1 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-3) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-3)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-3) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-3))))) u--pat eta-2)) eta-1)))) eta-0)) ext-0)))))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (vector 1 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45TT-apply arg-2 (vector 1 arg-2 (vector 1 ) arg-3) eta-0)) e-6))))))))))))))))) +(define CoreC-45Coverage-getCons (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (case (vector-ref arg-3 0) ((3) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-3 (vector-ref arg-3 3))) (let ((e-4 (vector-ref arg-3 4))) (let ((e-5 (vector-ref arg-3 5))) (let ((act-24 (CoreC-45Context-lookupDefExact e-2 (let ((e-0 (vector-ref arg-2 0))) e-0) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (if (null? e-6) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 "Called `getCons` on something that is not a Type constructor") ext-0) (let ((e-7 (unbox e-6))) (case (vector-ref e-7 0) ((6) (let ((e-8 (vector-ref e-7 7))) (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (CoreC-45Coverage-n--8067-3881-u--addTy arg-1 e-1 e-3 e-4 e-5 e-2 arg-2 arg-0 eta-0 eta-1))) e-8 '() ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-16 (vector-ref act-25 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref act-25 1))) (vector 1 (DataC-45List-mapMaybe (lambda (eta-0) eta-0) e-16))))))))(else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 "Called `getCons` on something that is not a Type constructor") ext-0)))))))))))))))(else (vector 1 '()))))) +(define CoreC-45Coverage-freeEnv (lambda (arg-0 arg-1) (if (null? arg-1) '() (let ((e-3 (cdr arg-1))) (cons (vector 3 arg-0 (AlgebraC-45ZeroOneOmega-u--top_Top_ZeroOneOmega) (vector 1 ) (vector 10 arg-0 0)) (CoreC-45Coverage-freeEnv arg-0 e-3)))))) +(define CoreC-45Coverage-findTag (lambda (arg-2 arg-3 arg-5) (if (null? arg-5) '() (let ((e-2 (car arg-5))) (let ((e-3 (cdr arg-5))) (let ((e-6 (car e-2))) (let ((e-7 (cdr e-2))) (let ((sc2 (CoreC-45TT-sameVar arg-2 e-6))) (cond ((equal? sc2 1) (box e-7)) (else (CoreC-45Coverage-findTag arg-2 arg-3 e-3))))))))))) +(define CoreC-45Coverage-eraseApps (lambda (arg-1 arg-2) (CoreC-45Coverage-case--eraseApps-5845 arg-2 arg-1 (CoreC-45TT-getFnArgs arg-2)))) +(define CoreC-45Coverage-emptyRHS (lambda (arg-1 arg-2) (case (vector-ref arg-2 0) ((0) (let ((e-1 (vector-ref arg-2 1))) (let ((e-2 (vector-ref arg-2 2))) (let ((e-4 (vector-ref arg-2 3))) (let ((e-5 (vector-ref arg-2 4))) (vector 0 e-1 e-2 e-4 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45Coverage-n--8356-4123-u--emptyRHSalt e-1 e-5 e-4 e-2 arg-1 eta-0)) e-5))))))) ((1) (let ((e-7 (vector-ref arg-2 1))) (vector 1 e-7 (vector 10 arg-1 0))))(else arg-2)))) +(define CoreC-45Coverage-conflictMatch (lambda (arg-0 arg-1) (if (null? arg-1) 0 (let ((e-2 (car arg-1))) (let ((e-3 (cdr arg-1))) (let ((e-6 (car e-2))) (let ((e-7 (cdr e-2))) (let ((sc2 (CoreC-45Coverage-n--6431-2449-u--conflictArgs arg-0 e-6 e-7 e-3 e-6 e-7 e-3))) (cond ((equal? sc2 1) 1) (else (CoreC-45Coverage-conflictMatch arg-0 e-3))))))))))) +(define CoreC-45Coverage-conflict (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 ((CoreC-45Context-lookupCtxtExact arg-5 (let ((e-0 (vector-ref arg-2 0))) e-0)) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (if (null? e-5) (vector 1 0) (let ((e-1 (unbox e-5))) (let ((_-0 (box e-1))) (CoreC-45Coverage-case--caseC-32blockC-32inC-32conflict-3488 arg-0 arg-5 arg-4 arg-3 arg-2 arg-1 e-1 _-0 (cons (let ((e-17 (vector-ref e-1 17))) e-17) (let ((e-2 (vector-ref e-1 2))) e-2)) ext-0)))))))))) +(define CoreC-45Coverage-clauseMatches (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 ((CoreC-45Coverage-eraseApps arg-1 (CoreC-45Coverage-n--10300-5959-u--close arg-0 arg-4 arg-3 arg-2 arg-1 arg-0 (CoreC-45TT-getLoc arg-3) arg-2 arg-3)) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((u--lhs e-5)) (let ((act-25 (CoreC-45Context-toResolvedNames arg-1 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-0))))) u--lhs ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Context-toResolvedNames arg-1 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-0))))) arg-4 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (CoreC-45Coverage-match e-6 e-7))))))))))))))))) +(define CoreC-45Coverage-checkMatched (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (CoreC-45ContextC-45Log-logTerm '() arg-0 "coverage" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Checking coverage for") arg-2 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-0))))) arg-2 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (CoreC-45ContextC-45Log-unverifiedLogC arg-0 "coverage" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda (eta-0) (vector 1 (PreludeC-45TypesC-45String-C-43C-43 "(raw term: " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-6) ")")))) ext-0))))))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 ((CoreC-45Coverage-eraseApps arg-0 arg-2) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (CoreC-45ContextC-45Log-logTerm '() arg-0 "coverage" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Erased to") e-7 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((act-28 (CoreC-45ContextC-45Log-unverifiedLogC arg-0 "coverage" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-0) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-1) (lambda (eta-2) (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-3) (CoreC-45Context-u--full_HasNames_Clause arg-3841 arg-3842 eta-3)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-3) (CoreC-45Context-u--resolved_HasNames_Clause arg-3843 arg-3844 eta-3))))) eta-1 eta-2))) arg-1 '() eta-0))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-28 1))) (vector 1 (PreludeC-45TypesC-45String-C-43C-43 "Against clauses:\u000a" (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--show_Show_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-indent 2 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vcat (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String (CoreC-45Context-u--show_Show_Clause eta-1))) e-9))))))))))) ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (CoreC-45Coverage-n--10390-6045-u--tryClauses arg-2 arg-1 arg-0 arg-1 e-7 ext-0))))))))))))))))))) +(define CoreC-45Coverage-buildArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (case (vector-ref arg-7 0) ((0) (let ((e-1 (vector-ref arg-7 1))) (let ((e-2 (vector-ref arg-7 2))) (let ((e-4 (vector-ref arg-7 3))) (let ((e-5 (vector-ref arg-7 4))) (let ((u--fenv (CoreC-45Coverage-freeEnv arg-2 arg-1))) (lambda (eta-0) (let ((act-24 ((CoreC-45Normalise-nf arg-0 arg-1 arg-3 u--fenv e-4) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Coverage-replaceDefaults arg-0 arg-1 arg-2 arg-3 e-6 e-5 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-3 (vector-ref act-25 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref act-25 1))) (let ((act-26 ((CoreC-45Coverage-getMissingAlts arg-0 arg-1 arg-2 arg-3 e-6 e-7) eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-3 (vector-ref act-26 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref act-26 1))) (let ((u--altsC-39 (PreludeC-45TypesC-45List-C-43C-43 e-7 e-8))) (let ((u--altsK (PreludeC-45Types-maybe (lambda () u--altsC-39) (lambda () (lambda (u--t) (DataC-45List-filter (lambda (eta-1) (CoreC-45Coverage-tagIs u--t eta-1)) u--altsC-39))) (CoreC-45Coverage-findTag e-2 arg-1 arg-4)))) (let ((u--altsN (PreludeC-45Types-maybe (lambda () u--altsK) (lambda () (lambda (u--ts) (DataC-45List-filter (lambda (eta-1) (CoreC-45Coverage-tagIsNot u--ts eta-1)) u--altsK))) (CoreC-45Coverage-findTag e-2 arg-1 arg-5)))) (CoreC-45Coverage-n--9376-5085-u--buildArgsAlt arg-1 e-5 e-4 e-2 e-1 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-0 arg-5 u--altsN eta-0))))))))))))))))))))))) ((1) (lambda (eta-0) (vector 1 '()))) ((2) (lambda (eta-0) (vector 1 (cons arg-6 '())))) (else (lambda (eta-0) (vector 1 '())))))) +(define CoreC-45Coverage-altMatch (lambda (arg-1 arg-2) (case (vector-ref arg-2 0) ((3) 1)(else (case (vector-ref arg-1 0) ((1) (case (vector-ref arg-2 0) ((1) 1)(else 0))) ((0) (let ((e-6 (vector-ref arg-1 2))) (case (vector-ref arg-2 0) ((0) (let ((e-18 (vector-ref arg-2 2))) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int e-6 e-18)))(else 0)))) ((2) (let ((e-10 (vector-ref arg-1 1))) (case (vector-ref arg-2 0) ((2) (let ((e-22 (vector-ref arg-2 1))) (CoreC-45TT-u--C-61C-61_Eq_Constant e-10 e-22)))(else 0))))(else 0)))))) +(define CoreC-45Coverage-addNot (lambda (arg-1 arg-2 arg-4 arg-5) (if (null? arg-5) (cons (cons arg-1 (cons arg-4 '())) '()) (let ((e-2 (car arg-5))) (let ((e-3 (cdr arg-5))) (let ((e-6 (car e-2))) (let ((e-7 (cdr e-2))) (let ((sc2 (CoreC-45TT-sameVar arg-1 e-6))) (cond ((equal? sc2 1) (cons (cons e-6 (cons arg-4 e-7)) e-3)) (else (cons (cons e-6 e-7) (CoreC-45Coverage-addNot arg-1 arg-2 arg-4 e-3)))))))))))) +(define CoreC-45CaseBuilder-with--groupConsC-44addConstG-7764 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (case (vector-ref arg-11 0) ((2) (let ((e-7 (vector-ref arg-11 1))) (let ((e-8 (vector-ref arg-11 2))) (if (null? e-8) (lambda (clam-2) (let ((act-24 ((CoreC-45CaseBuilder-n--11489-6927-u--addConstG arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-9 arg-12 arg-17 arg-16 arg-15 arg-14) clam-2))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (cons arg-11 e-5))))))) (let ((e-10 (car e-8))) (let ((e-11 (cdr e-8))) (let ((e-14 (vector-ref e-10 0))) (let ((e-15 (vector-ref e-10 1))) (let ((e-16 (vector-ref e-10 2))) (let ((e-17 (vector-ref e-10 3))) (case (vector-ref arg-13 0) ((2) (let ((u--newclause (vector e-14 arg-17 arg-16 arg-15))) (lambda (eta-0) (vector 1 (cons (vector 2 e-7 (cons (vector e-14 e-15 e-16 e-17) (PreludeC-45TypesC-45List-C-43C-43 e-11 (cons u--newclause '())))) arg-14)))))(else (lambda (clam-0) (let ((act-24 ((CoreC-45CaseBuilder-n--11489-6927-u--addConstG arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-9 arg-12 arg-17 arg-16 arg-15 arg-14) clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (cons arg-11 e-5)))))))))))))))))))(else (lambda (clam-3) (let ((act-24 ((CoreC-45CaseBuilder-n--11489-6927-u--addConstG arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-9 arg-12 arg-17 arg-16 arg-15 arg-14) clam-3))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (cons arg-11 e-5))))))))))) +(define CoreC-45CaseBuilder-with--groupConsC-44addDelayG-7590 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (case (vector-ref arg-11 0) ((1) (let ((e-7 (vector-ref arg-11 1))) (let ((e-8 (vector-ref arg-11 2))) (let ((e-9 (vector-ref arg-11 3))) (if (null? e-9) (lambda (clam-2) (let ((act-24 ((CoreC-45CaseBuilder-n--11489-6926-u--addDelayG arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-9 arg-18 arg-17 arg-16 arg-15 arg-14 arg-13) clam-2))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (cons arg-11 e-5))))))) (let ((e-11 (car e-9))) (let ((e-12 (cdr e-9))) (let ((e-15 (vector-ref e-11 0))) (let ((e-16 (vector-ref e-11 1))) (let ((e-17 (vector-ref e-11 2))) (let ((e-18 (vector-ref e-11 3))) (case (vector-ref arg-12 0) ((1) (let ((u--l (CoreC-45TTC-45SizeOf-mkSizeOf (cons e-7 (cons e-8 '()))))) (let ((u--newps (CoreC-45CaseBuilder-newPats (cons arg-18 (cons arg-17 '())) (box (box '())) e-16))) (let ((u--patsC-39 (CoreC-45CaseBuilder-updatePatNames (CoreC-45CaseBuilder-updateNames (cons (cons e-7 arg-18) (cons (cons e-8 arg-17) '()))) (CoreC-45CaseBuilder-weakenNs u--l arg-16)))) (let ((u--newclause (vector e-15 (CoreC-45CaseBuilder-C-43C-43 u--newps u--patsC-39) arg-15 (CoreC-45TT-u--weakenNs_Weaken_Term u--l arg-14)))) (lambda (eta-0) (vector 1 (cons (vector 1 e-7 e-8 (cons (vector e-15 e-16 e-17 e-18) (PreludeC-45TypesC-45List-C-43C-43 e-12 (cons u--newclause '())))) arg-13))))))))(else (lambda (clam-0) (let ((act-24 ((CoreC-45CaseBuilder-n--11489-6926-u--addDelayG arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-9 arg-18 arg-17 arg-16 arg-15 arg-14 arg-13) clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (cons arg-11 e-5))))))))))))))))))))(else (lambda (clam-3) (let ((act-24 ((CoreC-45CaseBuilder-n--11489-6926-u--addDelayG arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-9 arg-18 arg-17 arg-16 arg-15 arg-14 arg-13) clam-3))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (cons arg-11 e-5))))))))))) +(define CoreC-45CaseBuilder-with--groupConsC-44addConG-7265 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (case (vector-ref arg-11 0) ((0) (let ((e-7 (vector-ref arg-11 1))) (let ((e-8 (vector-ref arg-11 2))) (let ((e-9 (vector-ref arg-11 3))) (let ((e-10 (vector-ref arg-11 4))) (if (null? e-10) (lambda (clam-2) (let ((act-24 ((CoreC-45CaseBuilder-n--11489-6925-u--addConG arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-9 arg-14 arg-13 arg-12 arg-19 arg-18 arg-17 arg-16) clam-2))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (cons arg-11 e-5))))))) (let ((e-12 (car e-10))) (let ((e-13 (cdr e-10))) (let ((e-16 (vector-ref e-12 0))) (let ((e-17 (vector-ref e-12 1))) (let ((e-18 (vector-ref e-12 2))) (let ((e-19 (vector-ref e-12 3))) (case (vector-ref arg-15 0) ((0) (let ((e-31 (vector-ref arg-15 1))) (let ((u--newps (CoreC-45CaseBuilder-newPats arg-12 e-31 e-17))) (let ((u--l (CoreC-45TTC-45SizeOf-mkSizeOf e-7))) (let ((u--patsC-39 (CoreC-45CaseBuilder-updatePatNames (CoreC-45CaseBuilder-updateNames (DataC-45List-u--zip_Zippable_List e-7 arg-12)) (CoreC-45CaseBuilder-weakenNs u--l arg-19)))) (let ((u--newclause (vector e-16 (CoreC-45CaseBuilder-C-43C-43 u--newps u--patsC-39) arg-18 (CoreC-45TT-u--weakenNs_Weaken_Term u--l arg-17)))) (lambda (eta-0) (vector 1 (cons (vector 0 e-7 e-8 e-9 (cons (vector e-16 e-17 e-18 e-19) (PreludeC-45TypesC-45List-C-43C-43 e-13 (cons u--newclause '())))) arg-16)))))))))(else (lambda (clam-0) (let ((act-24 ((CoreC-45CaseBuilder-n--11489-6925-u--addConG arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-9 arg-14 arg-13 arg-12 arg-19 arg-18 arg-17 arg-16) clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (cons arg-11 e-5)))))))))))))))))))))(else (lambda (clam-3) (let ((act-24 ((CoreC-45CaseBuilder-n--11489-6925-u--addConG arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-9 arg-14 arg-13 arg-12 arg-19 arg-18 arg-17 arg-16) clam-3))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (cons arg-11 e-5))))))))))) +(define CoreC-45CaseBuilder-with--partition-5333 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (case (vector-ref arg-5 0) ((0) (let ((e-3 (vector-ref arg-5 1))) (let ((e-5 (vector-ref arg-5 3))) (let ((e-6 (vector-ref arg-5 4))) (let ((e-7 (vector-ref arg-5 5))) (if (null? e-3) (let ((sc4 (CoreC-45CaseBuilder-clauseType arg-4 arg-6))) (cond ((equal? sc4 0) (vector 0 (cons arg-0 arg-1) arg-2 '() (cons arg-6 '()) (vector 2 ))) (else (vector 1 (cons arg-0 arg-1) arg-2 '() (cons arg-6 '()) (vector 2 ))))) (let ((sc2 (CoreC-45CaseBuilder-clauseType arg-4 arg-6))) (cond ((equal? sc2 0) (vector 0 (cons arg-0 arg-1) arg-2 e-5 (cons arg-6 e-6) e-7)) (else (vector 1 (cons arg-0 arg-1) arg-2 (PreludeC-45TypesC-45List-C-43C-43 e-6 e-5) (cons arg-6 '()) (vector 0 (cons arg-0 arg-1) arg-2 e-5 e-6 e-7))))))))))) ((1) (let ((e-8 (vector-ref arg-5 1))) (let ((e-10 (vector-ref arg-5 3))) (let ((e-11 (vector-ref arg-5 4))) (let ((e-12 (vector-ref arg-5 5))) (if (null? e-8) (let ((sc4 (CoreC-45CaseBuilder-clauseType arg-4 arg-6))) (cond ((equal? sc4 0) (vector 0 (cons arg-0 arg-1) arg-2 '() (cons arg-6 '()) (vector 2 ))) (else (vector 1 (cons arg-0 arg-1) arg-2 '() (cons arg-6 '()) (vector 2 ))))) (let ((sc2 (CoreC-45CaseBuilder-clauseType arg-4 arg-6))) (cond ((equal? sc2 0) (vector 0 (cons arg-0 arg-1) arg-2 (PreludeC-45TypesC-45List-C-43C-43 e-11 e-10) (cons arg-6 '()) (vector 1 (cons arg-0 arg-1) arg-2 e-10 e-11 e-12))) (else (vector 1 (cons arg-0 arg-1) arg-2 e-10 (cons arg-6 e-11) e-12))))))))))(else (let ((sc2 (CoreC-45CaseBuilder-clauseType arg-4 arg-6))) (cond ((equal? sc2 0) (vector 0 (cons arg-0 arg-1) arg-2 '() (cons arg-6 '()) (vector 2 ))) (else (vector 1 (cons arg-0 arg-1) arg-2 '() (cons arg-6 '()) (vector 2 ))))))))) +(define CoreC-45CaseBuilder-case--patCompile-11231 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 ext-0) (let ((e-2 (car arg-8))) (let ((e-3 (cdr arg-8))) (let ((act-24 (CoreC-45CaseBuilder-n--16128-11130-u--mkPatClausesFrom arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 0 e-2 (cons arg-0 arg-1) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45ContextC-45Log-unverifiedLogC arg-7 "compile.casetree" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-0) (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (eta-1) (lambda (eta-2) (CoreC-45Context-toFullNames arg-7 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-3) (CoreC-45CaseBuilder-u--full_HasNames_C-40C-40PatClauseC-32C-36varsC-41C-32C-36todoC-41 arg-3841 arg-3842 eta-3)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-3) (CoreC-45CaseBuilder-u--resolved_HasNames_C-40C-40PatClauseC-32C-36varsC-41C-32C-36todoC-41 arg-3843 arg-3844 eta-3))))) eta-1 eta-2))) e-5 '() eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (PreludeC-45TypesC-45String-C-43C-43 "Pattern clauses:\u000a" (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--show_Show_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-indent 2 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vcat (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (PreludeC-45Types-u--map_Functor_List eta-3 eta-4))))) (lambda (eta-1) (CoreC-45CaseBuilder-u--pretty_Pretty_C-40C-40PatClauseC-32C-36varsC-41C-32C-36todoC-41 e-2 e-2 eta-1)) e-6))))))))))) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((act-26 (CoreC-45ContextC-45Log-log arg-7 "compile.casetree" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45CaseBuilder-u--show_Show_C-40C-40PatClauseC-32C-36varsC-41C-32C-36todoC-41 e-2 e-2 u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45CaseBuilder-u--showPrec_Show_C-40C-40PatClauseC-32C-36varsC-41C-32C-36todoC-41 e-2 e-2 u--d u--x)))) e-5)) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-4 (vector-ref act-26 1))) (vector 0 e-4))) (else (let ((act-27 (CoreC-45Core-newRef (vector "Core.CaseBuilder.PName" ) 0 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-4 (vector-ref act-27 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref act-27 1))) (let ((act-28 ((CoreC-45CaseBuilder-match e-2 e-2 e-8 arg-7 arg-6 arg-5 arg-4 e-5 (PreludeC-45Types-u--map_Functor_Maybe (lambda (eta-0) (CoreC-45CaseTree-u--weakenNs_Weaken_CaseTree e-3 eta-0)) arg-2)) ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-4 (vector-ref act-28 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref act-28 1))) (vector 1 (cons e-2 e-9)))))))))))))))))))))))) +(define CoreC-45CaseBuilder-case--weakenNs-4162 (lambda (arg-3 arg-4 arg-5) (cond ((equal? arg-4 0) (if (null? arg-5) arg-3 (let ((e-3 (unbox arg-5))) (CoreC-45CaseBuilder-u--weaken_Weaken_C-40PatInfoC-32C-36pC-41 (CoreC-45CaseBuilder-u--weakenNs_Weaken_C-40PatInfoC-32C-36pC-41 e-3 arg-3)))))(else (let ((e-3 (unbox arg-5))) (CoreC-45CaseBuilder-u--weaken_Weaken_C-40PatInfoC-32C-36pC-41 (CoreC-45CaseBuilder-u--weakenNs_Weaken_C-40PatInfoC-32C-36pC-41 e-3 arg-3))))))) +(define CoreC-45CaseBuilder-case--substInPatInfo-3237 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 ext-0) (case (vector-ref arg-9 0) ((0) (let ((e-1 (vector-ref arg-9 1))) (let ((e-2 (vector-ref arg-9 2))) (vector 1 (cons (let ((e-5 (vector-ref arg-4 0))) (let ((e-3 (vector-ref arg-4 1))) (let ((e-4 (vector-ref arg-4 2))) (vector e-5 e-3 e-4 (vector 0 e-1 (CoreC-45TT-substName arg-6 arg-5 e-2)))))) arg-2))))) ((1) (let ((e-4 (vector-ref arg-9 1))) (let ((act-24 (let ((act-24 (unbox arg-8))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-clearDefs e-5 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((u--env (CoreC-45Env-mkEnv arg-7 arg-1))) (let ((act-26 ((CoreC-45Normalise-nf arg-8 arg-1 e-5 u--env (CoreC-45TT-substName arg-6 arg-5 e-4)) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (case (vector-ref e-7 0) ((0) (let ((e-1 (vector-ref e-7 1))) (let ((e-3 (vector-ref e-7 3))) (let ((e-8 (vector-ref e-7 4))) (case (vector-ref e-3 0) ((2) (let ((e-11 (vector-ref e-3 2))) (let ((e-9 (vector-ref e-3 4))) (let ((act-27 (CoreC-45Normalise-u--quote_Quote_NF arg-8 arg-1 e-6 u--env e-9 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-13 (vector-ref act-27 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref act-27 1))) (let ((act-28 (((e-8 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) u--env (vector 1 e-1 (vector 0 ) arg-3))) ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-14 (vector-ref act-28 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref act-28 1))) (let ((act-29 ((CoreC-45CaseBuilder-updatePats arg-1 arg-0 arg-8 u--env e-14 arg-2) ext-0))) (case (vector-ref act-29 0) ((0) (let ((e-15 (vector-ref act-29 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref act-29 1))) (vector 1 (cons (let ((e-19 (vector-ref arg-4 0))) (let ((e-18 (vector-ref arg-4 1))) (let ((e-17 (vector-ref arg-4 2))) (vector e-19 e-18 e-17 (vector 0 e-11 e-13))))) e-15)))))))))))))))))(else (vector 1 (cons arg-4 arg-2))))))))(else (vector 1 (cons arg-4 arg-2))))))))))))))))))) (else (vector 1 (cons arg-4 arg-2)))))) +(define CoreC-45CaseBuilder-n--14479-10204-u--updateVar (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((e-2 (vector-ref arg-10 0))) (let ((e-3 (vector-ref arg-10 1))) (let ((e-4 (vector-ref arg-10 2))) (let ((e-5 (vector-ref arg-10 3))) (let ((e-9 (car e-3))) (let ((e-10 (cdr e-3))) (lambda (clam-0) (let ((e-13 (vector-ref e-9 0))) (let ((e-14 (vector-ref e-9 1))) (let ((e-15 (vector-ref e-9 2))) (let ((e-17 (vector-ref e-9 3))) (case (vector-ref e-15 0) ((6) (let ((e-18 (vector-ref e-15 1))) (let ((e-19 (vector-ref e-15 2))) (let ((act-24 (CoreC-45CaseBuilder-substInPats arg-1 arg-0 arg-8 arg-7 arg-3 (vector 0 e-18 (box 0) e-13) e-10 clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (vector 1 (vector (cons e-19 e-2) e-6 e-4 (CoreC-45TT-substName e-19 (vector 0 e-18 (box 0) e-13) e-5)))))))))) ((0) (let ((e-20 (vector-ref e-15 1))) (let ((e-21 (vector-ref e-15 2))) (let ((e-22 (vector-ref e-15 3))) (let ((act-24 (CoreC-45CaseBuilder-substInPats arg-1 arg-0 arg-8 arg-7 arg-3 (CoreC-45CaseTree-mkTerm arg-1 e-22) e-10 clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((u--rhsC-39 (CoreC-45TT-substName e-21 (vector 0 e-20 (box 1) e-13) e-5))) ((CoreC-45CaseBuilder-n--14479-10204-u--updateVar arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (vector e-2 (cons (vector e-13 e-14 e-22 e-17) e-6) e-4 u--rhsC-39)) clam-0))))))))))(else (let ((act-24 (CoreC-45CaseBuilder-substInPats arg-1 arg-0 arg-8 arg-7 arg-3 (CoreC-45CaseTree-mkTerm arg-1 e-15) e-10 clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (vector 1 (vector e-2 e-6 e-4 e-5))))))))))))))))))))) +(define CoreC-45CaseBuilder-n--11270-6740-u--update (lambda (arg-3 arg-4 arg-5 arg-7) (case (vector-ref arg-7 0) ((0) (let ((e-0 (vector-ref arg-7 1))) (let ((e-1 (vector-ref arg-7 2))) (let ((e-2 (vector-ref arg-7 3))) (let ((sc1 (DataC-45List-lookup (cons (lambda (arg-2) (lambda (arg-6) (CoreC-45Name-u--C-61C-61_Eq_Name arg-2 arg-6))) (lambda (arg-6) (lambda (arg-8) (CoreC-45Name-u--C-47C-61_Eq_Name arg-6 arg-8)))) e-1 arg-5))) (if (null? sc1) (vector 0 e-0 e-1 (CoreC-45CaseBuilder-n--11270-6740-u--update arg-3 arg-4 arg-5 e-2)) (let ((e-3 (unbox sc1))) (vector 0 e-0 e-3 (CoreC-45CaseBuilder-n--11270-6740-u--update arg-3 arg-4 arg-5 e-2))))))))) ((1) (let ((e-3 (vector-ref arg-7 1))) (let ((e-4 (vector-ref arg-7 2))) (let ((e-5 (vector-ref arg-7 3))) (let ((e-6 (vector-ref arg-7 4))) (let ((e-7 (vector-ref arg-7 5))) (vector 1 e-3 e-4 e-5 e-6 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45CaseBuilder-n--11270-6740-u--update arg-3 arg-4 arg-5 eta-0)) e-7)))))))) ((2) (let ((e-8 (vector-ref arg-7 1))) (let ((e-9 (vector-ref arg-7 2))) (let ((e-10 (vector-ref arg-7 3))) (let ((e-11 (vector-ref arg-7 4))) (vector 2 e-8 e-9 e-10 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45CaseBuilder-n--11270-6740-u--update arg-3 arg-4 arg-5 eta-0)) e-11))))))) ((4) (let ((e-12 (vector-ref arg-7 1))) (let ((e-13 (vector-ref arg-7 2))) (let ((e-14 (vector-ref arg-7 3))) (let ((e-15 (vector-ref arg-7 4))) (vector 4 e-12 e-13 (CoreC-45CaseBuilder-n--11270-6740-u--update arg-3 arg-4 arg-5 e-14) (CoreC-45CaseBuilder-n--11270-6740-u--update arg-3 arg-4 arg-5 e-15))))))) ((5) (let ((e-16 (vector-ref arg-7 1))) (let ((e-17 (vector-ref arg-7 2))) (let ((e-18 (vector-ref arg-7 3))) (let ((e-19 (vector-ref arg-7 4))) (vector 5 e-16 e-17 (CoreC-45CaseBuilder-n--11270-6740-u--update arg-3 arg-4 arg-5 e-18) (CoreC-45CaseBuilder-n--11270-6740-u--update arg-3 arg-4 arg-5 e-19))))))) ((6) (let ((e-20 (vector-ref arg-7 1))) (let ((e-21 (vector-ref arg-7 2))) (let ((sc1 (DataC-45List-lookup (cons (lambda (arg-2) (lambda (arg-6) (CoreC-45Name-u--C-61C-61_Eq_Name arg-2 arg-6))) (lambda (arg-6) (lambda (arg-8) (CoreC-45Name-u--C-47C-61_Eq_Name arg-6 arg-8)))) e-21 arg-5))) (if (null? sc1) (vector 6 e-20 e-21) (let ((e-2 (unbox sc1))) (vector 6 e-20 e-2)))))))(else arg-7)))) +(define CoreC-45CaseBuilder-n--11246-6699-u--update (lambda (arg-0) (if (null? arg-0) '() (let ((e-2 (car arg-0))) (let ((e-3 (cdr arg-0))) (case (vector-ref e-3 0) ((6) (let ((e-5 (vector-ref e-3 2))) (box (cons e-5 e-2))))(else '()))))))) +(define CoreC-45CaseBuilder-n--16982-11971-u--toClosed (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((e-2 (car arg-7))) (let ((e-3 (cdr arg-7))) (let ((e-4 (vector-ref e-3 0))) (let ((e-5 (vector-ref e-3 1))) (let ((e-6 (vector-ref e-3 2))) (let ((e-7 (vector-ref e-3 3))) (cons (CoreC-45CaseBuilder-n--16982-11970-u--close arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-4 e-5 e-2 e-6) (CoreC-45CaseBuilder-n--16982-11970-u--close arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-4 e-5 e-2 e-7)))))))))) +(define CoreC-45CaseBuilder-n--9210-4966-u--splitCon (lambda (arg-3 arg-4 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 (PreludeC-45Types-u--C-61C-61_Eq_Nat arg-13 (PreludeC-45TypesC-45List-length arg-14)))) (cond ((equal? sc0 1) 0) (else 1))))) +(define CoreC-45CaseBuilder-n--7965-3856-u--showAll (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (if (null? arg-4) "" (let ((e-2 (car arg-4))) (let ((e-3 (cdr arg-4))) (if (null? e-3) (if (null? arg-5) (let ((e-8 (car arg-5))) (let ((e-9 (cdr arg-5))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-2) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45CaseTree-u--show_Show_Pat (let ((e-4 (vector-ref e-8 2))) e-4)) (PreludeC-45TypesC-45String-C-43C-43 " [" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45CaseBuilder-u--show_Show_C-40ArgTypeC-32C-36nsC-41 arg-3 (let ((e-6 (vector-ref e-8 3))) e-6)) (PreludeC-45TypesC-45String-C-43C-43 "]" (PreludeC-45TypesC-45String-C-43C-43 ", " (CoreC-45CaseBuilder-n--7965-3856-u--showAll arg-0 arg-1 arg-2 arg-3 e-3 e-9)))))))))) (let ((e-14 (car arg-5))) (let ((e-15 (cdr arg-5))) (if (null? e-15) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-2) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45CaseTree-u--show_Show_Pat (let ((e-4 (vector-ref e-14 2))) e-4)) (PreludeC-45TypesC-45String-C-43C-43 " [" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45CaseBuilder-u--show_Show_C-40ArgTypeC-32C-36nsC-41 arg-3 (let ((e-6 (vector-ref e-14 3))) e-6)) "]"))))) (let ((e-8 (car arg-5))) (let ((e-9 (cdr arg-5))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-2) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45CaseTree-u--show_Show_Pat (let ((e-4 (vector-ref e-8 2))) e-4)) (PreludeC-45TypesC-45String-C-43C-43 " [" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45CaseBuilder-u--show_Show_C-40ArgTypeC-32C-36nsC-41 arg-3 (let ((e-6 (vector-ref e-8 3))) e-6)) (PreludeC-45TypesC-45String-C-43C-43 "]" (PreludeC-45TypesC-45String-C-43C-43 ", " (CoreC-45CaseBuilder-n--7965-3856-u--showAll arg-0 arg-1 arg-2 arg-3 e-3 e-9)))))))))))))) (let ((e-8 (car arg-5))) (let ((e-9 (cdr arg-5))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-2) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45CaseTree-u--show_Show_Pat (let ((e-4 (vector-ref e-8 2))) e-4)) (PreludeC-45TypesC-45String-C-43C-43 " [" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45CaseBuilder-u--show_Show_C-40ArgTypeC-32C-36nsC-41 arg-3 (let ((e-6 (vector-ref e-8 3))) e-6)) (PreludeC-45TypesC-45String-C-43C-43 "]" (PreludeC-45TypesC-45String-C-43C-43 ", " (CoreC-45CaseBuilder-n--7965-3856-u--showAll arg-0 arg-1 arg-2 arg-3 e-3 e-9)))))))))))))))) +(define CoreC-45CaseBuilder-n--13037-8275-u--sameTypeAs (lambda (arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 ext-0) (if (null? arg-13) (vector 1 0) (let ((e-2 (car arg-13))) (let ((e-3 (cdr arg-13))) (case (vector-ref e-2 0) ((0) (let ((e-6 (vector-ref e-2 2))) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Normalise-nf arg-9 arg-2 e-7 arg-5 e-6) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref act-25 1))) (let ((sc4 (CoreC-45CaseBuilder-n--13037-8274-u--headEq arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-12 e-8 arg-7))) (cond ((equal? sc4 1) (CoreC-45CaseBuilder-n--13037-8275-u--sameTypeAs arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-3 ext-0)) (else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 42 arg-8 arg-6 (vector 1 )) ext-0))))))))))))))(else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 42 arg-8 arg-6 (vector 1 )) ext-0)))))))) +(define CoreC-45CaseBuilder-n--13473-8657-u--samePatAs (lambda (arg-3 arg-4 arg-5 arg-6) (if (null? arg-6) 1 (case (vector-ref arg-5 0) ((2) (let ((e-0 (vector-ref arg-5 1))) (let ((e-1 (vector-ref arg-5 2))) (let ((e-2 (vector-ref arg-5 3))) (let ((e-3 (vector-ref arg-5 4))) (if (null? arg-6) 0 (let ((e-22 (car arg-6))) (let ((e-23 (cdr arg-6))) (case (vector-ref e-22 0) ((2) (let ((e-25 (vector-ref e-22 2))) (let ((sc4 (CoreC-45Name-u--C-61C-61_Eq_Name e-1 e-25))) (cond ((equal? sc4 1) (CoreC-45CaseBuilder-n--13473-8657-u--samePatAs arg-3 arg-4 (vector 2 e-0 e-1 e-2 e-3) e-23)) (else 0)))))(else 0)))))))))) ((1) (let ((e-4 (vector-ref arg-5 1))) (let ((e-5 (vector-ref arg-5 2))) (let ((e-6 (vector-ref arg-5 3))) (let ((e-7 (vector-ref arg-5 4))) (let ((e-8 (vector-ref arg-5 5))) (if (null? arg-6) 0 (let ((e-29 (car arg-6))) (let ((e-30 (cdr arg-6))) (case (vector-ref e-29 0) ((1) (let ((e-32 (vector-ref e-29 2))) (let ((e-33 (vector-ref e-29 3))) (let ((sc4 (CoreC-45Name-u--C-61C-61_Eq_Name e-5 e-32))) (cond ((equal? sc4 1) (let ((sc5 (PreludeC-45EqOrd-u--C-61C-61_Eq_Int e-6 e-33))) (cond ((equal? sc5 1) (CoreC-45CaseBuilder-n--13473-8657-u--samePatAs arg-3 arg-4 (vector 1 e-4 e-5 e-6 e-7 e-8) e-30)) (else 0)))) (else 0))))))(else 0))))))))))) ((3) (let ((e-9 (vector-ref arg-5 1))) (let ((e-10 (vector-ref arg-5 2))) (if (null? arg-6) 0 (let ((e-37 (car arg-6))) (let ((e-38 (cdr arg-6))) (case (vector-ref e-37 0) ((3) (let ((e-40 (vector-ref e-37 2))) (let ((sc4 (CoreC-45TT-u--C-61C-61_Eq_Constant e-10 e-40))) (cond ((equal? sc4 1) (CoreC-45CaseBuilder-n--13473-8657-u--samePatAs arg-3 arg-4 (vector 3 e-9 e-10) e-38)) (else 0)))))(else 0)))))))) ((4) (let ((e-11 (vector-ref arg-5 1))) (let ((e-12 (vector-ref arg-5 2))) (let ((e-13 (vector-ref arg-5 3))) (let ((e-14 (vector-ref arg-5 4))) (if (null? arg-6) 0 (let ((e-42 (car arg-6))) (let ((e-43 (cdr arg-6))) (case (vector-ref e-42 0) ((4) (CoreC-45CaseBuilder-n--13473-8657-u--samePatAs arg-3 arg-4 (vector 4 e-11 e-12 e-13 e-14) e-43))(else 0)))))))))) ((5) (let ((e-15 (vector-ref arg-5 1))) (let ((e-16 (vector-ref arg-5 2))) (let ((e-17 (vector-ref arg-5 3))) (let ((e-18 (vector-ref arg-5 4))) (if (null? arg-6) 0 (let ((e-49 (car arg-6))) (let ((e-50 (cdr arg-6))) (case (vector-ref e-49 0) ((5) (CoreC-45CaseBuilder-n--13473-8657-u--samePatAs arg-3 arg-4 (vector 5 e-15 e-16 e-17 e-18) e-50))(else 0)))))))))) ((6) (let ((e-19 (vector-ref arg-5 1))) (let ((e-20 (vector-ref arg-5 2))) (if (null? arg-6) 0 (let ((e-56 (car arg-6))) (let ((e-57 (cdr arg-6))) (case (vector-ref e-56 0) ((6) (CoreC-45CaseBuilder-n--13473-8657-u--samePatAs arg-3 arg-4 (vector 6 e-19 e-20) e-57))(else 0))))))))(else 0))))) +(define CoreC-45CaseBuilder-n--8096-3982-u--prettyAll (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (if (null? arg-5) '() (let ((e-2 (car arg-5))) (let ((e-3 (cdr arg-5))) (let ((e-8 (car arg-6))) (let ((e-9 (cdr arg-6))) (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-parens (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (CoreC-45Name-u--pretty_Pretty_Name e-2) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "=") (CoreC-45CaseTree-u--pretty_Pretty_Pat (let ((e-4 (vector-ref e-8 2))) e-4))))) (CoreC-45CaseBuilder-n--8096-3982-u--prettyAll arg-1 arg-2 arg-3 arg-4 e-3 e-9))))))))) +(define CoreC-45CaseBuilder-n--16982-11969-u--mkSubstEnv (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-8 arg-9) (if (null? arg-9) '() (let ((e-5 (cdr arg-9))) (cons (vector 1 arg-4 (vector 0 ) (vector 2 arg-8 arg-7)) (CoreC-45CaseBuilder-n--16982-11969-u--mkSubstEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (bs+ arg-7 1 63) arg-8 e-5)))))) +(define CoreC-45CaseBuilder-n--16128-11130-u--mkPatClausesFrom (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 ext-0) (if (null? arg-10) (vector 1 '()) (let ((e-2 (car arg-10))) (let ((e-3 (cdr arg-10))) (let ((act-24 ((CoreC-45CaseBuilder-mkPatClause arg-7 arg-6 arg-5 arg-9 arg-3 arg-8 e-2) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45CaseBuilder-n--16128-11130-u--mkPatClausesFrom arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (bs+ arg-8 1 63) arg-9 e-3 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (cons e-5 e-6))))))))))))))) +(define CoreC-45CaseBuilder-n--15755-10689-u--mkNames (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (if (null? arg-8) (lambda (clam-0) (vector 1 '())) (let ((e-2 (car arg-8))) (let ((e-3 (cdr arg-8))) (lambda (clam-1) (let ((e-8 (car arg-9))) (let ((e-9 (cdr arg-9))) (let ((e-16 (unbox arg-10))) (let ((act-24 (let ((act-24 (unbox arg-7))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-clearDefs e-5 clam-1))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (if (null? arg-11) (vector 1 (cons '() (vector 2 ))) (let ((e-4 (unbox arg-11))) (case (vector-ref e-4 0) ((0) (let ((e-12 (vector-ref e-4 1))) (let ((e-10 (vector-ref e-4 3))) (let ((e-7 (vector-ref e-4 4))) (case (vector-ref e-10 0) ((2) (let ((e-15 (vector-ref e-10 2))) (let ((e-13 (vector-ref e-10 4))) (let ((act-26 (((e-7 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 1 e-12 (vector 0 ) e-2))) clam-1))) (case (vector-ref act-26 0) ((0) (let ((e-18 (vector-ref act-26 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref act-26 1))) (let ((act-27 (CoreC-45Normalise-u--quote_Quote_NF arg-7 '() e-6 '() e-13 clam-1))) (case (vector-ref act-27 0) ((0) (let ((e-19 (vector-ref act-27 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref act-27 1))) (vector 1 (cons (box e-18) (vector 0 e-15 (CoreC-45TT-embed e-19)))))))))))))))(else (let ((act-26 (CoreC-45Normalise-u--quote_Quote_NF arg-7 '() e-6 '() e-4 clam-1))) (case (vector-ref act-26 0) ((0) (let ((e-13 (vector-ref act-26 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref act-26 1))) (vector 1 (cons '() (vector 1 (CoreC-45TT-embed e-13))))))))))))))(else (let ((act-26 (CoreC-45Normalise-u--quote_Quote_NF arg-7 '() e-6 '() e-4 clam-1))) (case (vector-ref act-26 0) ((0) (let ((e-7 (vector-ref act-26 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (cons '() (vector 1 (CoreC-45TT-embed e-7)))))))))))))) (case (vector-ref act-26 0) ((0) (let ((e-4 (vector-ref act-26 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 ((CoreC-45CaseBuilder-n--15755-10689-u--mkNames arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-3 e-9 e-16 (Builtin-fst e-7)) clam-1))) (case (vector-ref act-27 0) ((0) (let ((e-4 (vector-ref act-27 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref act-27 1))) (vector 1 (cons (vector 0 e-2 e-8 (Builtin-snd e-7)) (CoreC-45CaseBuilder-weaken e-2 e-3 e-10)))))))))))))))))))))))))))) +(define CoreC-45CaseBuilder-n--16982-11968-u--labelPat (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-8) (if (null? arg-8) '() (let ((e-2 (car arg-8))) (let ((e-3 (cdr arg-8))) (cons (cons (PreludeC-45TypesC-45String-C-43C-43 "pat" (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Int arg-7) ":")) e-2) (CoreC-45CaseBuilder-n--16982-11968-u--labelPat arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (bs+ arg-7 1 63) e-3))))))) +(define CoreC-45CaseBuilder-n--13037-8274-u--headEq (lambda (arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (case (vector-ref arg-11 0) ((0) (let ((e-6 (vector-ref arg-11 3))) (case (vector-ref e-6 0) ((2) (case (vector-ref arg-12 0) ((0) (let ((e-34 (vector-ref arg-12 3))) (case (vector-ref e-34 0) ((2) 1)(else (case (vector-ref arg-12 0) ((9) (if (null? arg-13) 1 0))(else 0))))))(else (case (vector-ref arg-12 0) ((9) (if (null? arg-13) 1 0))(else 0)))))(else (case (vector-ref arg-12 0) ((9) (if (null? arg-13) 1 0))(else 0)))))) ((3) (let ((e-10 (vector-ref arg-11 2))) (case (vector-ref arg-12 0) ((3) (let ((e-43 (vector-ref arg-12 2))) (CoreC-45Name-u--C-61C-61_Eq_Name e-10 e-43)))(else (case (vector-ref arg-12 0) ((9) (if (null? arg-13) 1 0))(else 0)))))) ((8) (let ((e-16 (vector-ref arg-11 2))) (case (vector-ref arg-12 0) ((8) (let ((e-49 (vector-ref arg-12 2))) (CoreC-45TT-u--C-61C-61_Eq_Constant e-16 e-49)))(else (case (vector-ref arg-12 0) ((9) (if (null? arg-13) 1 0))(else 0)))))) ((10) (case (vector-ref arg-12 0) ((10) 1)(else (case (vector-ref arg-12 0) ((9) (if (null? arg-13) 1 0))(else 0))))) ((1) (let ((e-21 (vector-ref arg-11 2))) (case (vector-ref e-21 0) ((1) (let ((e-54 (vector-ref e-21 2))) (case (vector-ref arg-12 0) ((1) (let ((e-57 (vector-ref arg-12 2))) (case (vector-ref e-57 0) ((1) (let ((e-61 (vector-ref e-57 2))) (if (null? arg-13) (CoreC-45Name-u--C-61C-61_Eq_Name e-54 e-61) (case (vector-ref arg-12 0) ((9) (if (null? arg-13) 1 0))(else 0)))))(else (case (vector-ref arg-12 0) ((9) (if (null? arg-13) 1 0))(else 0))))))(else (case (vector-ref arg-12 0) ((9) (if (null? arg-13) 1 0))(else 0))))))(else (case (vector-ref arg-12 0) ((9) (if (null? arg-13) 1 0))(else 0)))))) ((9) (if (null? arg-13) 1 (case (vector-ref arg-12 0) ((9) (if (null? arg-13) 1 0))(else 0))))(else (case (vector-ref arg-12 0) ((9) (if (null? arg-13) 1 0))(else 0)))))) +(define CoreC-45CaseBuilder-n--16982-11967-u--getUnreachable (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (if (null? arg-8) '() (let ((e-2 (car arg-8))) (let ((e-3 (cdr arg-8))) (let ((sc1 (PreludeC-45Types-elem (cons (lambda (arg-9) (lambda (arg-10) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-9 arg-10)))) arg-6 arg-7))) (cond ((equal? sc1 1) (CoreC-45CaseBuilder-n--16982-11967-u--getUnreachable arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (bs+ arg-6 1 63) arg-7 e-3)) (else (cons e-2 (CoreC-45CaseBuilder-n--16982-11967-u--getUnreachable arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (bs+ arg-6 1 63) arg-7 e-3)))))))))) +(define CoreC-45CaseBuilder-n--16128-11131-u--getNames (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (if (null? arg-9) (cons '() (CoreC-45TTC-45SizeOf-zero)) (let ((e-3 (cdr arg-9))) (let ((sc1 (CoreC-45CaseBuilder-n--16128-11131-u--getNames arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (bs+ arg-8 1 63) e-3))) (let ((e-5 (car sc1))) (let ((e-4 (cdr sc1))) (cons (cons (vector 2 "arg" arg-8) e-5) (CoreC-45TTC-45SizeOf-suc e-4))))))))) +(define CoreC-45CaseBuilder-n--9210-4968-u--getClauseType (lambda (arg-3 arg-4 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (if (null? arg-13) (case (vector-ref arg-14 0) ((0) (let ((e-5 (vector-ref arg-14 3))) (CoreC-45CaseBuilder-n--9210-4968-u--getClauseType arg-3 arg-4 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-5 arg-15)))(else (case (vector-ref arg-15 0) ((0) (let ((e-1 (vector-ref arg-15 1))) (let ((sc2 (AlgebraC-45Semiring-isErased (cons (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-2) (lambda (arg-5) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-2 arg-5))) (lambda (arg-5) (lambda (arg-16) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-5 arg-16))))) e-1))) (cond ((equal? sc2 1) 1) (else (CoreC-45CaseBuilder-n--9210-4967-u--clauseTypeC-39 arg-3 arg-4 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-14))))))(else (CoreC-45CaseBuilder-n--9210-4967-u--clauseTypeC-39 arg-3 arg-4 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-14))))) (let ((e-6 (unbox arg-13))) (case (vector-ref arg-14 0) ((1) (let ((e-10 (vector-ref arg-14 4))) (let ((e-11 (vector-ref arg-14 5))) (case (vector-ref arg-15 0) ((0) (let ((e-13 (vector-ref arg-15 1))) (let ((sc3 (let ((sc4 (AlgebraC-45Semiring-isErased (cons (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-2) (lambda (arg-5) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-2 arg-5))) (lambda (arg-5) (lambda (arg-16) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-5 arg-16))))) e-13))) (cond ((equal? sc4 1) (let ((sc5 (AlgebraC-45Semiring-isErased (cons (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-2) (lambda (arg-5) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-2 arg-5))) (lambda (arg-5) (lambda (arg-16) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-5 arg-16))))) e-6))) (cond ((equal? sc5 1) 0) (else (PreludeC-45Interfaces-all (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (lambda (eta-0) (CoreC-45CaseBuilder-namesIn (PreludeC-45TypesC-45List-C-43C-43 arg-11 (PreludeC-45Interfaces-concatMap (cons (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (cons (lambda (arg-2) (lambda (arg-5) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-2 arg-5))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) (lambda (eta-1) (CoreC-45CaseBuilder-namesFrom eta-1)) (CoreC-45CaseBuilder-getPatInfo arg-8))) eta-0)) e-11))))) (else 0))))) (cond ((equal? sc3 1) 1) (else (CoreC-45CaseBuilder-n--9210-4966-u--splitCon arg-3 arg-4 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-10 e-11))))))(else (case (vector-ref arg-14 0) ((0) (let ((e-5 (vector-ref arg-14 3))) (CoreC-45CaseBuilder-n--9210-4968-u--getClauseType arg-3 arg-4 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-5 arg-15)))(else (case (vector-ref arg-15 0) ((0) (let ((e-1 (vector-ref arg-15 1))) (let ((sc3 (AlgebraC-45Semiring-isErased (cons (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-2) (lambda (arg-5) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-2 arg-5))) (lambda (arg-5) (lambda (arg-16) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-5 arg-16))))) e-1))) (cond ((equal? sc3 1) 1) (else (CoreC-45CaseBuilder-n--9210-4967-u--clauseTypeC-39 arg-3 arg-4 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-14))))))(else (CoreC-45CaseBuilder-n--9210-4967-u--clauseTypeC-39 arg-3 arg-4 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-14))))))))))(else (case (vector-ref arg-14 0) ((0) (let ((e-5 (vector-ref arg-14 3))) (CoreC-45CaseBuilder-n--9210-4968-u--getClauseType arg-3 arg-4 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-5 arg-15)))(else (case (vector-ref arg-15 0) ((0) (let ((e-1 (vector-ref arg-15 1))) (let ((sc2 (AlgebraC-45Semiring-isErased (cons (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-2) (lambda (arg-5) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-2 arg-5))) (lambda (arg-5) (lambda (arg-16) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-5 arg-16))))) e-1))) (cond ((equal? sc2 1) 1) (else (CoreC-45CaseBuilder-n--9210-4967-u--clauseTypeC-39 arg-3 arg-4 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-14))))))(else (CoreC-45CaseBuilder-n--9210-4967-u--clauseTypeC-39 arg-3 arg-4 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-14))))))))))) +(define CoreC-45CaseBuilder-n--16982-11868-u--getArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (case (vector-ref arg-6 0) ((0) (let ((e-1 (vector-ref arg-6 1))) (let ((e-3 (vector-ref arg-6 3))) (let ((e-4 (vector-ref arg-6 4))) (case (vector-ref e-3 0) ((2) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (((e-4 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 e-1 0))) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (let ((act-26 (CoreC-45CaseBuilder-n--16982-11868-u--getArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-10 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-11 (vector-ref act-26 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-26 1))) (vector 1 (cons (vector 2 "arg" arg-5) e-11)))))))))))))))(else (vector 1 '())))))))(else (vector 1 '()))))) +(define CoreC-45CaseBuilder-n--11489-6929-u--gc (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (if (null? arg-13) (lambda (eta-0) (vector 1 arg-12)) (let ((e-2 (car arg-13))) (let ((e-3 (cdr arg-13))) (let ((e-7 (vector-ref e-2 1))) (let ((e-8 (vector-ref e-2 2))) (let ((e-9 (vector-ref e-2 3))) (lambda (clam-0) (let ((e-13 (car e-7))) (let ((e-14 (cdr e-7))) (let ((e-17 (vector-ref e-13 0))) (let ((e-19 (vector-ref e-13 2))) (let ((act-24 ((CoreC-45CaseBuilder-n--11489-6928-u--addGroup arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-11 e-17 e-19 e-14 e-8 e-9 arg-12) clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) ((CoreC-45CaseBuilder-n--11489-6929-u--gc arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-5 e-3) clam-0)))))))))))))))))) +(define CoreC-45CaseBuilder-n--16905-11794-u--findRAlts (lambda (arg-1 arg-2 arg-4 arg-5 arg-7) (case (vector-ref arg-7 0) ((0) (let ((e-4 (vector-ref arg-7 4))) (CoreC-45CaseBuilder-findReached e-4))) ((1) (let ((e-8 (vector-ref arg-7 3))) (CoreC-45CaseBuilder-findReached e-8))) ((2) (let ((e-11 (vector-ref arg-7 2))) (CoreC-45CaseBuilder-findReached e-11))) (else (let ((e-13 (vector-ref arg-7 1))) (CoreC-45CaseBuilder-findReached e-13)))))) +(define CoreC-45CaseBuilder-n--13473-8656-u--dropAs (lambda (arg-3 arg-4 arg-5) (case (vector-ref arg-5 0) ((0) (let ((e-2 (vector-ref arg-5 3))) e-2))(else arg-5)))) +(define CoreC-45CaseBuilder-n--16982-11970-u--close (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (CoreC-45TTC-45SubstEnv-substs (CoreC-45CaseBuilder-n--16982-11969-u--mkSubstEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 0 arg-8 arg-7) arg-9))) +(define CoreC-45CaseBuilder-n--9210-4967-u--clauseTypeC-39 (lambda (arg-3 arg-4 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (case (vector-ref arg-13 0) ((1) (let ((e-3 (vector-ref arg-13 4))) (let ((e-4 (vector-ref arg-13 5))) (CoreC-45CaseBuilder-n--9210-4966-u--splitCon arg-3 arg-4 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-3 e-4)))) ((2) (let ((e-7 (vector-ref arg-13 3))) (let ((e-8 (vector-ref arg-13 4))) (CoreC-45CaseBuilder-n--9210-4966-u--splitCon arg-3 arg-4 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-7 e-8)))) ((3) 0) ((4) 0) ((5) 0)(else 1)))) +(define CoreC-45CaseBuilder-n--14459-9897-u--altGroups (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (if (null? arg-13) (PreludeC-45Types-maybe (lambda () (lambda (eta-0) (vector 1 '()))) (lambda () (lambda (u--e) (lambda (eta-0) (vector 1 (cons (vector 3 u--e) '()))))) arg-4) (let ((e-2 (car arg-13))) (let ((e-3 (cdr arg-13))) (lambda (clam-0) (case (vector-ref e-2 0) ((0) (let ((e-6 (vector-ref e-2 1))) (let ((e-7 (vector-ref e-2 2))) (let ((e-8 (vector-ref e-2 3))) (let ((e-9 (vector-ref e-2 4))) (let ((act-24 ((CoreC-45CaseBuilder-match (PreludeC-45TypesC-45List-C-43C-43 e-6 arg-3) (PreludeC-45TypesC-45List-C-43C-43 e-6 arg-1) arg-12 arg-11 arg-10 arg-9 arg-8 e-9 (PreludeC-45Types-u--map_Functor_Maybe (lambda (eta-0) (CoreC-45CaseTree-u--weakenNs_Weaken_CaseTree (CoreC-45TTC-45SizeOf-mkSizeOf e-6) eta-0)) arg-4)) clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45CaseBuilder-n--14459-9897-u--altGroups arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 arg-11 arg-12 e-3) clam-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref act-25 1))) (vector 1 (cons (vector 0 e-7 e-8 e-6 e-5) e-10))))))))))))))) ((1) (let ((e-12 (vector-ref e-2 1))) (let ((e-13 (vector-ref e-2 2))) (let ((e-14 (vector-ref e-2 3))) (let ((act-24 ((CoreC-45CaseBuilder-match (cons e-12 (cons e-13 arg-3)) (cons e-12 (cons e-13 arg-1)) arg-12 arg-11 arg-10 arg-9 arg-8 e-14 (PreludeC-45Types-u--map_Functor_Maybe (lambda (eta-0) (CoreC-45CaseTree-u--weakenNs_Weaken_CaseTree (CoreC-45TTC-45SizeOf-mkSizeOf (cons e-12 (cons e-13 '()))) eta-0)) arg-4)) clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45CaseBuilder-n--14459-9897-u--altGroups arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 arg-11 arg-12 e-3) clam-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (cons (vector 1 e-12 e-13 e-5) e-6)))))))))))))) (else (let ((e-17 (vector-ref e-2 1))) (let ((e-18 (vector-ref e-2 2))) (let ((act-24 ((CoreC-45CaseBuilder-match arg-3 arg-1 arg-12 arg-11 arg-10 arg-9 arg-8 e-18 arg-4) clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45CaseBuilder-n--14459-9897-u--altGroups arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 arg-11 arg-12 e-3) clam-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (cons (vector 2 e-17 e-5) e-6)))))))))))))))))))) +(define CoreC-45CaseBuilder-n--11489-6928-u--addGroup (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-11 arg-12 arg-13 arg-15 arg-16 arg-17 arg-18) (case (vector-ref arg-13 0) ((0) (let ((e-0 (vector-ref arg-13 1))) (let ((e-1 (vector-ref arg-13 2))) (let ((e-2 (vector-ref arg-13 3))) (CoreC-45CaseBuilder-n--11489-6928-u--addGroup arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-11 arg-12 e-2 arg-15 arg-16 (CoreC-45TT-substName e-1 (vector 0 e-0 (box 1) arg-12) arg-17) arg-18))))) ((1) (let ((e-3 (vector-ref arg-13 1))) (let ((e-4 (vector-ref arg-13 2))) (let ((e-5 (vector-ref arg-13 3))) (let ((e-6 (vector-ref arg-13 4))) (let ((e-7 (vector-ref arg-13 5))) (let ((sc1 (PreludeC-45Types-u--C-61C-61_Eq_Nat e-6 (PreludeC-45TypesC-45List-length e-7)))) (cond ((equal? sc1 1) (CoreC-45CaseBuilder-n--11489-6925-u--addConG arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-11 e-4 e-5 e-7 arg-15 arg-16 arg-17 arg-18)) (else (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 42 e-3 arg-5 (vector 3 e-4)) eta-0))))))))))) ((2) (let ((e-8 (vector-ref arg-13 1))) (let ((e-9 (vector-ref arg-13 2))) (let ((e-10 (vector-ref arg-13 3))) (let ((e-11 (vector-ref arg-13 4))) (let ((sc1 (PreludeC-45Types-u--C-61C-61_Eq_Nat e-10 (PreludeC-45TypesC-45List-length e-11)))) (cond ((equal? sc1 1) (CoreC-45CaseBuilder-n--11489-6925-u--addConG arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-11 e-9 0 e-11 arg-15 arg-16 arg-17 arg-18)) (else (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 42 e-8 arg-5 (vector 3 e-9)) eta-0)))))))))) ((4) (let ((e-14 (vector-ref arg-13 3))) (let ((e-15 (vector-ref arg-13 4))) (CoreC-45CaseBuilder-n--11489-6925-u--addConG arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-11 (vector 1 "->") 0 (cons e-14 (cons e-15 '())) arg-15 arg-16 arg-17 arg-18)))) ((5) (let ((e-18 (vector-ref arg-13 3))) (let ((e-19 (vector-ref arg-13 4))) (CoreC-45CaseBuilder-n--11489-6926-u--addDelayG arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-11 e-18 e-19 arg-15 arg-16 arg-17 arg-18)))) ((3) (let ((e-21 (vector-ref arg-13 2))) (CoreC-45CaseBuilder-n--11489-6927-u--addConstG arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-11 e-21 arg-15 arg-16 arg-17 arg-18)))(else (lambda (eta-0) (vector 1 arg-18)))))) +(define CoreC-45CaseBuilder-n--11489-6926-u--addDelayG (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (if (null? arg-16) (let ((u--dty (vector 0 arg-6 (vector 2 "a" 0) (vector 2 arg-6 (AlgebraC-45Semiring-erased (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))) (vector 1 ) (vector 10 arg-6)) (lambda (u--d) (lambda (u--a) (lambda (eta-0) (let ((act-24 ((CoreC-45Normalise-evalClosure arg-7 arg-9 u--d u--a) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 0 arg-6 (vector 2 "x" 0) (vector 2 arg-6 (AlgebraC-45ZeroOneOmega-u--top_Top_ZeroOneOmega) (vector 1 ) e-5) (lambda (u--dv) (lambda (u--av) (lambda (eta-1) (vector 1 (vector 5 arg-6 2 e-5))))))))))))))))) (lambda (eta-0) (let ((act-24 (CoreC-45CaseBuilder-nextNames arg-9 arg-8 arg-7 arg-6 "e" (cons arg-11 (cons arg-12 '())) (box u--dty) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (if (null? e-5) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 "Error compiling Delay pattern match") eta-0) (let ((e-2 (car e-5))) (let ((e-3 (cdr e-5))) (if (null? e-2) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 "Error compiling Delay pattern match") eta-0) (let ((e-7 (car e-2))) (let ((e-6 (cdr e-2))) (if (null? e-6) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 "Error compiling Delay pattern match") eta-0) (let ((e-8 (car e-6))) (let ((e-9 (cdr e-6))) (if (null? e-9) (if (null? e-3) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 "Error compiling Delay pattern match") eta-0) (let ((e-13 (car e-3))) (let ((e-14 (cdr e-3))) (let ((u--patsC-39 (CoreC-45CaseBuilder-updatePatNames (CoreC-45CaseBuilder-updateNames (cons (cons e-7 arg-11) (cons (cons e-8 arg-12) '()))) (CoreC-45CaseBuilder-weakenNs e-13 arg-13)))) (let ((u--clause (vector arg-4 (CoreC-45CaseBuilder-C-43C-43 e-14 u--patsC-39) arg-14 (CoreC-45TT-u--weakenNs_Weaken_Term e-13 arg-15)))) (vector 1 (cons (vector 1 e-7 e-8 (cons u--clause '())) '()))))))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 "Error compiling Delay pattern match") eta-0))))))))))))))))) (let ((e-2 (car arg-16))) (let ((e-3 (cdr arg-16))) (CoreC-45CaseBuilder-with--groupConsC-44addDelayG-7590 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-9 e-2 (CoreC-45CaseBuilder-checkGroupMatch (vector 1 ) '() e-2) e-3 arg-15 arg-14 arg-13 arg-12 arg-11)))))) +(define CoreC-45CaseBuilder-n--11489-6927-u--addConstG (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (if (null? arg-15) (lambda (eta-0) (vector 1 (cons (vector 2 arg-11 (cons (vector arg-4 arg-12 arg-13 arg-14) '())) '()))) (let ((e-2 (car arg-15))) (let ((e-3 (cdr arg-15))) (CoreC-45CaseBuilder-with--groupConsC-44addConstG-7764 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-9 e-2 arg-11 (CoreC-45CaseBuilder-checkGroupMatch (vector 2 arg-11) '() e-2) e-3 arg-14 arg-13 arg-12)))))) +(define CoreC-45CaseBuilder-n--11489-6925-u--addConG (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (if (null? arg-17) (lambda (eta-0) (let ((act-24 (let ((sc1 (CoreC-45Name-u--C-61C-61_Eq_Name arg-11 (vector 1 "->")))) (cond ((equal? sc1 1) (vector 1 (vector 0 arg-6 (vector 2 "_" 0) (vector 2 arg-6 (AlgebraC-45ZeroOneOmega-u--top_Top_ZeroOneOmega) (vector 1 ) (vector 10 arg-6)) (lambda (u--d) (lambda (u--a) (lambda (eta-1) (vector 1 (vector 0 arg-6 (vector 2 "_" 1) (vector 2 arg-6 (AlgebraC-45ZeroOneOmega-u--top_Top_ZeroOneOmega) (vector 1 ) (vector 9 arg-6 0)) (lambda (d-0) (lambda (a-0) (lambda (eta-2) (vector 1 (vector 10 arg-6))))))))))))) (else (let ((act-24 (let ((act-24 (unbox arg-7))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-lookupTyExact arg-11 (let ((e-0 (vector-ref e-5 0))) e-0) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (if (null? e-6) (vector 1 (vector 9 arg-6 0)) (let ((e-1 (unbox e-6))) ((CoreC-45Normalise-nf arg-7 arg-9 e-5 (CoreC-45Env-mkEnv arg-6 arg-9) (CoreC-45TT-embed e-1)) eta-0)))))))))))))))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45CaseBuilder-nextNames arg-9 arg-8 arg-7 arg-6 "e" arg-13 (box e-5) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((e-2 (car e-6))) (let ((e-3 (cdr e-6))) (let ((e-8 (car e-3))) (let ((e-7 (cdr e-3))) (let ((u--patsC-39 (CoreC-45CaseBuilder-updatePatNames (CoreC-45CaseBuilder-updateNames (DataC-45List-u--zip_Zippable_List e-2 arg-13)) (CoreC-45CaseBuilder-weakenNs e-8 arg-14)))) (let ((u--clause (vector arg-4 (CoreC-45CaseBuilder-C-43C-43 e-7 u--patsC-39) arg-15 (CoreC-45TT-u--weakenNs_Weaken_Term e-8 arg-16)))) (vector 1 (cons (vector 0 e-2 arg-11 arg-12 (cons u--clause '())) '()))))))))))))))))) (let ((e-2 (car arg-17))) (let ((e-3 (cdr arg-17))) (CoreC-45CaseBuilder-with--groupConsC-44addConG-7265 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-9 e-2 arg-13 arg-12 arg-11 (CoreC-45CaseBuilder-checkGroupMatch (vector 0 arg-11 arg-12) arg-13 e-2) e-3 arg-16 arg-15 arg-14)))))) +(define CoreC-45CaseBuilder-u--weaken_Weaken_ArgType (lambda (arg-2) (case (vector-ref arg-2 0) ((0) (let ((e-1 (vector-ref arg-2 1))) (let ((e-2 (vector-ref arg-2 2))) (vector 0 e-1 (CoreC-45TT-u--weaken_Weaken_Term e-2))))) ((1) (let ((e-4 (vector-ref arg-2 1))) (vector 1 (CoreC-45TT-u--weaken_Weaken_Term e-4)))) (else (vector 2 ))))) +(define CoreC-45CaseBuilder-u--weaken_Weaken_C-40PatInfoC-32C-36pC-41 (lambda (arg-3) (let ((e-2 (vector-ref arg-3 0))) (let ((e-3 (vector-ref arg-3 1))) (let ((e-4 (vector-ref arg-3 2))) (let ((e-6 (vector-ref arg-3 3))) (vector (+ 1 e-2) e-3 e-4 (CoreC-45CaseBuilder-u--weaken_Weaken_ArgType e-6)))))))) +(define CoreC-45CaseBuilder-u--weakenNs_Weaken_C-40PatInfoC-32C-36pC-41 (lambda (arg-3 arg-4) (CoreC-45CaseBuilder-case--weakenNs-4162 arg-4 arg-3 (CoreC-45TT-sizedView arg-3)))) +(define CoreC-45CaseBuilder-u--show_Show_C-40PartitionsC-32C-36psC-41 (lambda (arg-2 arg-3) (case (vector-ref arg-3 0) ((0) (let ((e-3 (vector-ref arg-3 1))) (let ((e-4 (vector-ref arg-3 2))) (let ((e-5 (vector-ref arg-3 3))) (let ((e-6 (vector-ref arg-3 4))) (let ((e-7 (vector-ref arg-3 5))) (PreludeC-45TypesC-45String-C-43C-43 (LibrariesC-45DataC-45StringC-45Extra-unlines (cons "CON" (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (PreludeC-45TypesC-45String-C-43C-43 " " (CoreC-45CaseBuilder-u--show_Show_C-40C-40PatClauseC-32C-36varsC-41C-32C-36todoC-41 e-4 e-3 eta-0))) e-6))) (PreludeC-45TypesC-45String-C-43C-43 "\u000a, " (CoreC-45CaseBuilder-u--show_Show_C-40PartitionsC-32C-36psC-41 e-5 e-7))))))))) ((1) (let ((e-8 (vector-ref arg-3 1))) (let ((e-9 (vector-ref arg-3 2))) (let ((e-10 (vector-ref arg-3 3))) (let ((e-11 (vector-ref arg-3 4))) (let ((e-12 (vector-ref arg-3 5))) (PreludeC-45TypesC-45String-C-43C-43 (LibrariesC-45DataC-45StringC-45Extra-unlines (cons "VAR" (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (PreludeC-45TypesC-45String-C-43C-43 " " (CoreC-45CaseBuilder-u--show_Show_C-40C-40PatClauseC-32C-36varsC-41C-32C-36todoC-41 e-9 e-8 eta-0))) e-11))) (PreludeC-45TypesC-45String-C-43C-43 "\u000a, " (CoreC-45CaseBuilder-u--show_Show_C-40PartitionsC-32C-36psC-41 e-10 e-12)))))))))(else "NONE")))) +(define CoreC-45CaseBuilder-u--show_Show_C-40ArgTypeC-32C-36nsC-41 (lambda (arg-0 arg-1) (case (vector-ref arg-1 0) ((0) (let ((e-1 (vector-ref arg-1 1))) (let ((e-2 (vector-ref arg-1 2))) (PreludeC-45TypesC-45String-C-43C-43 "Known " (PreludeC-45TypesC-45String-C-43C-43 (AlgebraC-45ZeroOneOmega-u--show_Show_ZeroOneOmega e-1) (PreludeC-45TypesC-45String-C-43C-43 " " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 e-2))))))) ((1) (let ((e-4 (vector-ref arg-1 1))) (PreludeC-45TypesC-45String-C-43C-43 "Stuck " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 e-4)))) (else "Unknown")))) +(define CoreC-45CaseBuilder-u--show_Show_C-40C-40PatClauseC-32C-36varsC-41C-32C-36todoC-41 (lambda (arg-0 arg-1 arg-2) (let ((e-3 (vector-ref arg-2 1))) (let ((e-5 (vector-ref arg-2 3))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45CaseBuilder-u--show_Show_C-40C-40NamedPatsC-32C-36varsC-41C-32C-36todoC-41 arg-0 arg-1 e-3) (PreludeC-45TypesC-45String-C-43C-43 " => " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 e-5))))))) +(define CoreC-45CaseBuilder-u--show_Show_C-40C-40NamedPatsC-32C-36varsC-41C-32C-36todoC-41 (lambda (arg-0 arg-1 arg-2) (PreludeC-45TypesC-45String-C-43C-43 "[" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45CaseBuilder-n--7965-3856-u--showAll arg-0 arg-1 arg-2 arg-0 arg-1 arg-2) "]")))) (define CoreC-45CaseBuilder-u--showPrec_Show_C-40C-40PatClauseC-32C-36varsC-41C-32C-36todoC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (CoreC-45CaseBuilder-u--show_Show_C-40C-40PatClauseC-32C-36varsC-41C-32C-36todoC-41 arg-0 arg-1 arg-3))) -(define CoreC-45CaseBuilder-u--resolved_HasNames_C-40ArgTypeC-32C-36varsC-41 (lambda (arg-1 arg-2 ext-0) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc1 eta-0)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-1 e-5))))))) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-1 e-2) ext-0)))) ((1) (let ((e-4 (vector-ref sc0 1))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc1 eta-0)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-5))))))) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-1 e-4) ext-0))) (else (vector 1 (vector 2 ))))))) -(define CoreC-45CaseBuilder-u--resolved_HasNames_C-40C-40PatInfoC-32C-36nC-41C-32C-36varsC-41 (lambda (arg-2 arg-3 ext-0) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-6 (vector-ref sc0 4))) (let ((act-24 (CoreC-45Context-u--resolved_HasNames_Pat arg-2 e-4 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45CaseBuilder-u--resolved_HasNames_C-40ArgTypeC-32C-36varsC-41 arg-2 e-6 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc2 1))) (vector 1 (vector 0 e-2 e-3 e-5 e-7))))))))))))))))))) -(define CoreC-45CaseBuilder-u--resolved_HasNames_C-40C-40PatClauseC-32C-36varsC-41C-32C-36todoC-41 (lambda (arg-2 arg-3 ext-0) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (CoreC-45Core-C-60C-42C-62 (lambda (eta-0) (CoreC-45Core-C-60C-42C-62 (lambda (eta-1) (CoreC-45Core-C-60C-42C-62 (lambda (eta-2) (CoreC-45Core-C-60C-42C-62 (lambda (eta-3) (vector 1 (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (lambda (eta-7) (vector 0 eta-4 eta-5 eta-6 eta-7))))))) (lambda (eta-3) (CoreC-45Core-traverseC-39 (lambda (eta-4) (CoreC-45Context-u--resolved_HasNames_Name arg-2 eta-4)) e-2 '() eta-3)) eta-2)) (lambda (eta-2) (CoreC-45CaseBuilder-u--resolved_HasNames_C-40C-40NamedPatsC-32C-36varsC-41C-32C-36todoC-41 arg-2 e-3 eta-2)) eta-1)) (lambda (eta-1) (vector 1 e-4)) eta-0)) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-2 e-5) ext-0)))))))) -(define CoreC-45CaseBuilder-u--resolved_HasNames_C-40C-40NamedPatsC-32C-36varsC-41C-32C-36todoC-41 (lambda (arg-2 arg-3 ext-0) (let ((sc0 arg-3)) (if (null? sc0) (vector 1 '()) (let ((e-4 (car sc0))) (let ((e-5 (cdr sc0))) (CoreC-45Core-C-60C-42C-62 (lambda (eta-0) (CoreC-45Core-C-60C-42C-62 (lambda (eta-1) (vector 1 (lambda (eta-2) (lambda (eta-3) (cons eta-2 eta-3))))) (lambda (eta-1) (CoreC-45CaseBuilder-u--resolved_HasNames_C-40C-40PatInfoC-32C-36nC-41C-32C-36varsC-41 arg-2 e-4 eta-1)) eta-0)) (lambda (eta-0) (CoreC-45CaseBuilder-u--resolved_HasNames_C-40C-40NamedPatsC-32C-36varsC-41C-32C-36todoC-41 arg-2 e-5 eta-0)) ext-0))))))) -(define CoreC-45CaseBuilder-u--pretty_Pretty_C-40C-40PatClauseC-32C-36varsC-41C-32C-36todoC-41 (lambda (arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-3 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 4))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (CoreC-45CaseBuilder-u--pretty_Pretty_C-40C-40NamedPatsC-32C-36varsC-41C-32C-36todoC-41 arg-1 arg-2 e-3) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "=>") (CoreC-45TT-u--pretty_Pretty_C-40TermC-32C-36varsC-41 arg-1 e-5)))))))) -(define CoreC-45CaseBuilder-u--pretty_Pretty_C-40C-40NamedPatsC-32C-36varsC-41C-32C-36todoC-41 (lambda (arg-1 arg-2 arg-3) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-hsep (CoreC-45CaseBuilder-n--10834-4338-u--prettyAll arg-1 arg-2 arg-3 arg-1 arg-2 arg-3)))) -(define CoreC-45CaseBuilder-u--full_HasNames_C-40ArgTypeC-32C-36varsC-41 (lambda (arg-1 arg-2 ext-0) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc1 eta-0)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-1 e-5))))))) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-1 e-2 eta-0)) ext-0)))) ((1) (let ((e-4 (vector-ref sc0 1))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc1 eta-0)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-5))))))) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-1 e-4 eta-0)) ext-0))) (else (vector 1 (vector 2 ))))))) -(define CoreC-45CaseBuilder-u--full_HasNames_C-40C-40PatInfoC-32C-36nC-41C-32C-36varsC-41 (lambda (arg-2 arg-3 ext-0) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-6 (vector-ref sc0 4))) (let ((act-24 (CoreC-45Context-u--full_HasNames_Pat arg-2 e-4 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45CaseBuilder-u--full_HasNames_C-40ArgTypeC-32C-36varsC-41 arg-2 e-6 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc2 1))) (vector 1 (vector 0 e-2 e-3 e-5 e-7))))))))))))))))))) -(define CoreC-45CaseBuilder-u--full_HasNames_C-40C-40PatClauseC-32C-36varsC-41C-32C-36todoC-41 (lambda (arg-2 arg-3 ext-0) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (CoreC-45Core-C-60C-42C-62 (lambda (eta-0) (CoreC-45Core-C-60C-42C-62 (lambda (eta-1) (CoreC-45Core-C-60C-42C-62 (lambda (eta-2) (CoreC-45Core-C-60C-42C-62 (lambda (eta-3) (vector 1 (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (lambda (eta-7) (vector 0 eta-4 eta-5 eta-6 eta-7))))))) (lambda (eta-3) (CoreC-45Core-traverseC-39 (lambda (eta-4) (lambda (eta-5) (CoreC-45Context-u--full_HasNames_Name arg-2 eta-4 eta-5))) e-2 '() eta-3)) eta-2)) (lambda (eta-2) (CoreC-45CaseBuilder-u--full_HasNames_C-40C-40NamedPatsC-32C-36varsC-41C-32C-36todoC-41 arg-2 e-3 eta-2)) eta-1)) (lambda (eta-1) (vector 1 e-4)) eta-0)) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-2 e-5 eta-0)) ext-0)))))))) -(define CoreC-45CaseBuilder-u--full_HasNames_C-40C-40NamedPatsC-32C-36varsC-41C-32C-36todoC-41 (lambda (arg-2 arg-3 ext-0) (let ((sc0 arg-3)) (if (null? sc0) (vector 1 '()) (let ((e-4 (car sc0))) (let ((e-5 (cdr sc0))) (CoreC-45Core-C-60C-42C-62 (lambda (eta-0) (CoreC-45Core-C-60C-42C-62 (lambda (eta-1) (vector 1 (lambda (eta-2) (lambda (eta-3) (cons eta-2 eta-3))))) (lambda (eta-1) (CoreC-45CaseBuilder-u--full_HasNames_C-40C-40PatInfoC-32C-36nC-41C-32C-36varsC-41 arg-2 e-4 eta-1)) eta-0)) (lambda (eta-0) (CoreC-45CaseBuilder-u--full_HasNames_C-40C-40NamedPatsC-32C-36varsC-41C-32C-36todoC-41 arg-2 e-5 eta-0)) ext-0))))))) -(define CoreC-45CaseBuilder-weakenNs (lambda (arg-3 arg-4) (let ((sc0 arg-4)) (if (null? sc0) '() (let ((e-4 (car sc0))) (let ((e-5 (cdr sc0))) (cons (CoreC-45CaseBuilder-u--weakenNs_Weaken_C-40PatInfoC-32C-36pC-41 arg-3 e-4) (CoreC-45CaseBuilder-weakenNs arg-3 e-5)))))))) -(define CoreC-45CaseBuilder-weaken (lambda (arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (if (null? sc0) '() (let ((e-4 (car sc0))) (let ((e-5 (cdr sc0))) (cons (CoreC-45CaseBuilder-u--weaken_Weaken_C-40PatInfoC-32C-36pC-41 e-4) (CoreC-45CaseBuilder-weaken arg-1 arg-2 e-5)))))))) -(define CoreC-45CaseBuilder-varRule (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 ext-0) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45CaseBuilder-n--17130-10526-u--updateVar arg-2 arg-1 arg-9 arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 eta-0)) arg-8 '() ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((CoreC-45CaseBuilder-match arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-5 arg-9) ext-0)))))))) -(define CoreC-45CaseBuilder-updatePats (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-1)) (if (null? sc0) (lambda (clam-0) (let ((sc1 arg-5)) (vector 1 '()))) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) (let ((e-11 (vector-ref sc1 1))) (let ((e-12 (vector-ref sc1 2))) (let ((e-13 (vector-ref sc1 3))) (let ((e-14 (vector-ref sc1 4))) (let ((sc2 e-13)) (case (vector-ref sc2 0) ((2) (let ((e-16 (vector-ref sc2 1))) (let ((e-17 (vector-ref sc2 2))) (let ((e-18 (vector-ref sc2 3))) (let ((e-19 (vector-ref sc2 4))) (let ((sc3 arg-5)) (if (null? sc3) (let ((sc4 arg-5)) (let ((e-8 (car sc4))) (let ((e-9 (cdr sc4))) (let ((u--todo (cons e-2 e-3))) (lambda (eta-0) (CoreC-45CaseBuilder-case--updatePats-3437 arg-0 e-3 e-2 e-9 e-8 arg-4 arg-3 arg-2 u--todo (let ((sc5 e-8)) (let ((e-6 (vector-ref sc5 4))) e-6)) eta-0)))))) (let ((e-23 (car sc3))) (let ((e-24 (cdr sc3))) (lambda (eta-0) (CoreC-45CaseBuilder-case--updatePats-3248 arg-0 arg-2 e-12 e-16 e-18 e-2 e-3 e-19 e-17 e-14 e-11 e-24 e-23 arg-3 (let ((sc4 e-23)) (let ((e-6 (vector-ref sc4 4))) e-6)) eta-0)))))))))))(else (let ((sc2 arg-5)) (let ((e-8 (car sc2))) (let ((e-9 (cdr sc2))) (let ((u--todo (cons e-2 e-3))) (lambda (eta-0) (CoreC-45CaseBuilder-case--updatePats-3437 arg-0 e-3 e-2 e-9 e-8 arg-4 arg-3 arg-2 u--todo (let ((sc3 e-8)) (let ((e-6 (vector-ref sc3 4))) e-6)) eta-0))))))))))))))(else (let ((sc1 arg-5)) (let ((e-8 (car sc1))) (let ((e-9 (cdr sc1))) (let ((u--todo (cons e-2 e-3))) (lambda (eta-0) (CoreC-45CaseBuilder-case--updatePats-3437 arg-0 e-3 e-2 e-9 e-8 arg-4 arg-3 arg-2 u--todo (let ((sc2 e-8)) (let ((e-6 (vector-ref sc2 4))) e-6)) eta-0))))))))))))))) -(define CoreC-45CaseBuilder-updatePatNames (lambda (arg-2 arg-3) (let ((sc0 arg-3)) (if (null? sc0) '() (let ((e-4 (car sc0))) (let ((e-5 (cdr sc0))) (cons (let ((sc1 e-4)) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((e-7 (vector-ref sc1 3))) (let ((e-6 (vector-ref sc1 4))) (vector 0 e-2 e-3 (CoreC-45CaseBuilder-n--13968-7107-u--update e-5 e-4 arg-2 e-7) e-6)))))) (CoreC-45CaseBuilder-updatePatNames arg-2 e-5)))))))) -(define CoreC-45CaseBuilder-updateNames (lambda (ext-0) (DataC-45List-mapMaybe (lambda (eta-0) (CoreC-45CaseBuilder-n--13947-7068-u--update eta-0)) ext-0))) -(define CoreC-45CaseBuilder-toPatClause (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (CoreC-45CaseBuilder-case--toPatClause-11704 e-2 e-3 arg-2 arg-1 arg-0 (CoreC-45TT-getFnArgs e-2))))))) -(define CoreC-45CaseBuilder-tail (lambda (arg-3) (let ((sc0 arg-3)) (let ((e-4 (cdr sc0))) e-4)))) -(define CoreC-45CaseBuilder-substInPats (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((sc0 arg-1)) (if (null? sc0) (let ((sc1 arg-6)) (vector 1 '())) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 arg-6)) (let ((e-8 (car sc1))) (let ((e-9 (cdr sc1))) (let ((act-24 (CoreC-45CaseBuilder-substInPatInfo e-2 arg-0 e-3 arg-2 arg-3 arg-4 arg-5 e-8 e-9 ext-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (let ((e-6 (car sc3))) (let ((e-4 (cdr sc3))) (let ((act-25 (CoreC-45CaseBuilder-substInPats arg-0 e-3 arg-2 arg-3 arg-4 arg-5 e-4 ext-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (vector 1 (cons e-6 e-7)))))))))))))))))))))))) -(define CoreC-45CaseBuilder-substInPatInfo (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 ext-0) (CoreC-45CaseBuilder-case--substInPatInfo-3575 arg-2 arg-1 arg-8 arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 (let ((sc0 arg-7)) (let ((e-6 (vector-ref sc0 4))) e-6)) ext-0))) -(define CoreC-45CaseBuilder-substInClause (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (lambda (clam-0) (let ((sc1 e-3)) (let ((e-9 (car sc1))) (let ((e-10 (cdr sc1))) (let ((sc2 e-9)) (let ((e-13 (vector-ref sc2 1))) (let ((e-14 (vector-ref sc2 2))) (let ((e-15 (vector-ref sc2 3))) (let ((e-17 (vector-ref sc2 4))) (let ((act-24 (CoreC-45CaseBuilder-substInPats arg-1 arg-2 arg-3 arg-4 arg-0 (CoreC-45CaseTree-mkTerm arg-1 e-15) e-10 clam-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 (vector 0 e-2 (cons (vector 0 e-13 e-14 e-15 e-17) e-6) e-4 e-5))))))))))))))))))))))) -(define CoreC-45CaseBuilder-simpleCase (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 (CoreC-45ContextC-45Log-logC arg-0 "compile.casetree" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-0) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-0) (let ((sc0 lamc-0)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (CoreC-45Core-C-60C-42C-62 (lambda (eta-1) (CoreC-45Core-C-60C-42C-62 (lambda (eta-2) (vector 1 (lambda (eta-3) (lambda (eta-4) (cons eta-3 eta-4))))) (lambda (eta-2) (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-3) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-3)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) e-2 eta-2)) eta-1)) (lambda (eta-1) (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-2) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-2)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) e-3 eta-1)) clam-0)))))) arg-6 '() eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (PreludeC-45TypesC-45String-C-43C-43 "simpleCase: Clauses:\u000a" (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--show_Show_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-indent 2 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vcat (PreludeC-45Basics-flip (lambda (eta-1) (lambda (eta-2) (PreludeC-45Types-u--map_Functor_List eta-1 eta-2))) e-5 (lambda (lamc-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (CoreC-45TT-u--pretty_Pretty_C-40TermC-32C-36varsC-41 '() (Builtin-fst lamc-0)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "=") (CoreC-45TT-u--pretty_Pretty_C-40TermC-32C-36varsC-41 '() (Builtin-snd lamc-0))))))))))))))))) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45CaseBuilder-toPatClause arg-0 arg-1 arg-3 eta-0)) arg-6 '() ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (let ((act-26 (unbox arg-0))) (vector 1 act-26)))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((CoreC-45CaseBuilder-patCompile arg-0 arg-1 arg-3 arg-2 arg-4 e-6 arg-5) ext-0)))))))))))))))) -(define CoreC-45CaseBuilder-shuffleVars (lambda (arg-3 arg-5) (let ((sc0 arg-5)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (vector 0 e-2 (CoreC-45CaseBuilder-moveFirst arg-3 e-3) e-4 e-5)))))))) -(define CoreC-45CaseBuilder-sameType (lambda (arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 ext-0) (let ((sc0 arg-9)) (if (null? sc0) (vector 1 (vector 0 )) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (CoreC-45CaseBuilder-case--sameType-8932 arg-2 e-2 e-3 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 e-5 (CoreC-45CaseBuilder-getFirstArgType e-2) ext-0)))))))))))) -(define CoreC-45CaseBuilder-samePat (lambda (arg-3) (let ((sc0 arg-3)) (if (null? sc0) 0 (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (CoreC-45CaseBuilder-n--16149-9026-u--samePatAs e-2 e-3 (CoreC-45CaseBuilder-n--16149-9025-u--dropAs e-2 e-3 (CoreC-45CaseBuilder-getFirstPat e-2)) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45CaseBuilder-n--16149-9025-u--dropAs e-2 e-3 (CoreC-45CaseBuilder-getFirstPat eta-0))) e-3)))))))) -(define CoreC-45CaseBuilder-pickNext (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-2)) (if (null? sc0) (lambda (eta-0) (CoreC-45CaseBuilder-case--pickNext-9474 arg-0 arg-1 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 (CoreC-45CaseBuilder-samePat arg-8) eta-0)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (lambda (eta-0) (CoreC-45CaseBuilder-case--pickNext-9603 arg-0 arg-1 e-2 e-3 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 (CoreC-45CaseBuilder-samePat arg-8) eta-0)))))))) -(define CoreC-45CaseBuilder-patCompile (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-5)) (if (null? sc0) (PreludeC-45Types-maybe (lambda () (lambda (eta-0) (vector 1 (cons '() (vector 2 "No definition"))))) (lambda () (lambda (u--e) (lambda (eta-0) (vector 1 (cons '() u--e))))) arg-6) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (lambda (eta-0) (CoreC-45CaseBuilder-case--patCompile-11550 e-2 e-3 arg-6 arg-4 arg-3 arg-2 arg-1 arg-0 (CoreC-45CaseBuilder-n--18726-11450-u--getNames e-2 e-3 arg-6 arg-4 arg-3 arg-2 arg-1 arg-0 0 (Builtin-fst e-2)) eta-0)))))))) -(define CoreC-45CaseBuilder-partition (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (if (null? sc0) (vector 2 ) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (CoreC-45CaseBuilder-with--partition-5701 arg-0 arg-1 arg-2 e-3 arg-3 (CoreC-45CaseBuilder-partition arg-0 arg-1 arg-2 arg-3 e-3) e-2))))))) -(define CoreC-45CaseBuilder-nextNames (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((sc0 arg-5)) (if (null? sc0) (vector 1 (cons '() (cons (CoreC-45TTC-45SizeOf-zero) '()))) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Context-clearDefs e-5 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (CoreC-45CaseBuilder-nextName arg-1 arg-4 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((u--env (CoreC-45Env-mkEnv arg-3 arg-0))) (let ((act-27 (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (vector 1 (cons (vector 0 ) (vector 2 )))) (else (let ((e-4 (vector-ref sc4 1))) (let ((sc5 e-4)) (case (vector-ref sc5 0) ((0) (let ((e-11 (vector-ref sc5 1))) (let ((e-9 (vector-ref sc5 3))) (let ((e-8 (vector-ref sc5 4))) (let ((sc6 e-9)) (case (vector-ref sc6 0) ((2) (let ((e-14 (vector-ref sc6 2))) (let ((e-12 (vector-ref sc6 4))) (let ((sc7 e-12)) (case (vector-ref sc7 0) ((9) (let ((act-27 (((e-8 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) u--env (vector 1 e-11 (vector 0 ) e-7))) ext-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-18 (vector-ref sc8 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc8 1))) (vector 1 (cons (vector 1 e-18) (vector 2 )))))))))(else (let ((act-27 (((e-8 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) u--env (vector 1 e-11 (vector 0 ) e-7))) ext-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-16 (vector-ref sc7 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc7 1))) (let ((act-28 (CoreC-45Normalise-u--quote_Quote_NF arg-2 arg-0 e-6 u--env e-12 ext-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-17 (vector-ref sc8 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc8 1))) (vector 1 (cons (vector 1 e-16) (vector 0 e-14 e-17)))))))))))))))))))(else (let ((act-27 (CoreC-45Normalise-u--quote_Quote_NF arg-2 arg-0 e-6 u--env e-4 ext-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-12 (vector-ref sc6 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc6 1))) (vector 1 (cons (vector 0 ) (vector 1 e-12)))))))))))))))(else (let ((act-27 (CoreC-45Normalise-u--quote_Quote_NF arg-2 arg-0 e-6 u--env e-4 ext-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc5 1))) (vector 1 (cons (vector 0 ) (vector 1 e-8))))))))))))))))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (CoreC-45CaseBuilder-nextNames arg-0 arg-1 arg-2 arg-3 arg-4 e-3 (Builtin-fst e-8) ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (let ((sc6 e-9)) (let ((e-10 (car sc6))) (let ((e-4 (cdr sc6))) (let ((sc7 e-4)) (let ((e-12 (car sc7))) (let ((e-11 (cdr sc7))) (let ((u--argTy (let ((_-0 (cons e-10 (cons e-12 e-11)))) (CoreC-45CaseBuilder-case--caseC-32blockC-32inC-32nextNames-6650 e-2 e-3 arg-0 arg-6 arg-4 arg-3 arg-2 arg-1 e-5 e-6 e-7 u--env e-8 e-10 e-12 e-11 _-0 (Builtin-snd e-8))))) (vector 1 (cons (cons e-7 e-10) (cons (CoreC-45TTC-45SizeOf-suc e-12) (cons (vector 0 0 e-7 e-2 u--argTy) (CoreC-45CaseBuilder-weaken e-7 (PreludeC-45TypesC-45List-C-43C-43 e-10 arg-0) e-11)))))))))))))))))))))))))))))))))))))))))))) -(define CoreC-45CaseBuilder-nextName (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (set-box! arg-0 (bs+ e-5 1 63)))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 2 arg-1 e-5))))))))))))) -(define CoreC-45CaseBuilder-newPats (lambda (arg-3 arg-4 arg-5) (let ((sc0 arg-3)) (if (null? sc0) (let ((sc1 arg-4)) '()) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 arg-4)) (let ((e-12 (vector-ref sc1 1))) (let ((sc2 arg-5)) (let ((e-16 (car sc2))) (let ((e-17 (cdr sc2))) (cons (let ((sc3 e-16)) (let ((e-7 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (let ((e-6 (vector-ref sc3 4))) (vector 0 e-7 e-5 e-2 e-6))))) (CoreC-45CaseBuilder-newPats e-3 e-12 e-17))))))))))))) -(define CoreC-45CaseBuilder-namesIn (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (PreludeC-45Basics-C-38C-38 (PreludeC-45Types-elem (cons (lambda (arg-2) (lambda (arg-3) (CoreC-45Name-u--C-61C-61_Eq_Name arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (CoreC-45Name-u--C-47C-61_Eq_Name arg-4 arg-5)))) e-1 arg-0) (lambda () (CoreC-45CaseBuilder-namesIn arg-0 e-2)))))) ((1) (let ((e-7 (vector-ref sc0 5))) (PreludeC-45Interfaces-all (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (lambda (eta-0) (CoreC-45CaseBuilder-namesIn arg-0 eta-0)) e-7))) ((2) (let ((e-11 (vector-ref sc0 4))) (PreludeC-45Interfaces-all (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (lambda (eta-0) (CoreC-45CaseBuilder-namesIn arg-0 eta-0)) e-11))) ((4) (let ((e-14 (vector-ref sc0 3))) (let ((e-15 (vector-ref sc0 4))) (PreludeC-45Basics-C-38C-38 (CoreC-45CaseBuilder-namesIn arg-0 e-14) (lambda () (CoreC-45CaseBuilder-namesIn arg-0 e-15)))))) ((5) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (PreludeC-45Basics-C-38C-38 (CoreC-45CaseBuilder-namesIn arg-0 e-18) (lambda () (CoreC-45CaseBuilder-namesIn arg-0 e-19)))))) ((6) (let ((e-21 (vector-ref sc0 2))) (PreludeC-45Types-elem (cons (lambda (arg-2) (lambda (arg-3) (CoreC-45Name-u--C-61C-61_Eq_Name arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (CoreC-45Name-u--C-47C-61_Eq_Name arg-4 arg-5)))) e-21 arg-0)))(else 0))))) -(define CoreC-45CaseBuilder-namesFrom (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (cons e-1 (CoreC-45CaseBuilder-namesFrom e-2))))) ((1) (let ((e-7 (vector-ref sc0 5))) (PreludeC-45Interfaces-concatMap (cons (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-2 arg-3))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) (lambda (eta-0) (CoreC-45CaseBuilder-namesFrom eta-0)) e-7))) ((2) (let ((e-11 (vector-ref sc0 4))) (PreludeC-45Interfaces-concatMap (cons (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-2 arg-3))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) (lambda (eta-0) (CoreC-45CaseBuilder-namesFrom eta-0)) e-11))) ((4) (let ((e-14 (vector-ref sc0 3))) (let ((e-15 (vector-ref sc0 4))) (PreludeC-45TypesC-45List-C-43C-43 (CoreC-45CaseBuilder-namesFrom e-14) (CoreC-45CaseBuilder-namesFrom e-15))))) ((5) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (PreludeC-45TypesC-45List-C-43C-43 (CoreC-45CaseBuilder-namesFrom e-18) (CoreC-45CaseBuilder-namesFrom e-19))))) ((6) (let ((e-21 (vector-ref sc0 2))) (cons e-21 '())))(else '()))))) +(define CoreC-45CaseBuilder-u--resolved_HasNames_C-40ArgTypeC-32C-36varsC-41 (lambda (arg-1 arg-2 ext-0) (case (vector-ref arg-2 0) ((0) (let ((e-1 (vector-ref arg-2 1))) (let ((e-2 (vector-ref arg-2 2))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-3 (vector-ref eta-0 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref eta-0 1))) (vector 1 (vector 0 e-1 e-5)))))) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-1 e-2 eta-0)) ext-0)))) ((1) (let ((e-4 (vector-ref arg-2 1))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-2 (vector-ref eta-0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-0 1))) (vector 1 (vector 1 e-5)))))) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-1 e-4 eta-0)) ext-0))) (else (vector 1 (vector 2 )))))) +(define CoreC-45CaseBuilder-u--resolved_HasNames_C-40C-40PatInfoC-32C-36nC-41C-32C-36varsC-41 (lambda (arg-2 arg-3 ext-0) (let ((e-2 (vector-ref arg-3 0))) (let ((e-3 (vector-ref arg-3 1))) (let ((e-4 (vector-ref arg-3 2))) (let ((e-6 (vector-ref arg-3 3))) (let ((act-24 (CoreC-45Context-u--resolved_HasNames_Pat arg-2 e-4 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45CaseBuilder-u--resolved_HasNames_C-40ArgTypeC-32C-36varsC-41 arg-2 e-6 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-7 (vector-ref act-25 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-25 1))) (vector 1 (vector e-2 e-3 e-5 e-7)))))))))))))))) +(define CoreC-45CaseBuilder-u--resolved_HasNames_C-40C-40PatClauseC-32C-36varsC-41C-32C-36todoC-41 (lambda (arg-2 arg-3 ext-0) (let ((e-2 (vector-ref arg-3 0))) (let ((e-3 (vector-ref arg-3 1))) (let ((e-4 (vector-ref arg-3 2))) (let ((e-5 (vector-ref arg-3 3))) (CoreC-45Core-C-60C-42C-62 (lambda (eta-0) (CoreC-45Core-C-60C-42C-62 (lambda (eta-1) (CoreC-45Core-C-60C-42C-62 (lambda (eta-2) (CoreC-45Core-C-60C-42C-62 (lambda (eta-3) (vector 1 (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (lambda (eta-7) (vector eta-4 eta-5 eta-6 eta-7))))))) (lambda (eta-3) (CoreC-45Core-traverseC-39 (lambda (eta-4) (lambda (eta-5) (CoreC-45Context-u--resolved_HasNames_Name arg-2 eta-4 eta-5))) e-2 '() eta-3)) eta-2)) (lambda (eta-2) (CoreC-45CaseBuilder-u--resolved_HasNames_C-40C-40NamedPatsC-32C-36varsC-41C-32C-36todoC-41 arg-2 e-3 eta-2)) eta-1)) (lambda (eta-1) (vector 1 e-4)) eta-0)) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-2 e-5 eta-0)) ext-0))))))) +(define CoreC-45CaseBuilder-u--resolved_HasNames_C-40C-40NamedPatsC-32C-36varsC-41C-32C-36todoC-41 (lambda (arg-2 arg-3 ext-0) (if (null? arg-3) (vector 1 '()) (let ((e-4 (car arg-3))) (let ((e-5 (cdr arg-3))) (CoreC-45Core-C-60C-42C-62 (lambda (eta-0) (CoreC-45Core-C-60C-42C-62 (lambda (eta-1) (vector 1 (lambda (eta-2) (lambda (eta-3) (cons eta-2 eta-3))))) (lambda (eta-1) (CoreC-45CaseBuilder-u--resolved_HasNames_C-40C-40PatInfoC-32C-36nC-41C-32C-36varsC-41 arg-2 e-4 eta-1)) eta-0)) (lambda (eta-0) (CoreC-45CaseBuilder-u--resolved_HasNames_C-40C-40NamedPatsC-32C-36varsC-41C-32C-36todoC-41 arg-2 e-5 eta-0)) ext-0)))))) +(define CoreC-45CaseBuilder-u--pretty_Pretty_C-40C-40PatClauseC-32C-36varsC-41C-32C-36todoC-41 (lambda (arg-1 arg-2 arg-3) (let ((e-3 (vector-ref arg-3 1))) (let ((e-5 (vector-ref arg-3 3))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (CoreC-45CaseBuilder-u--pretty_Pretty_C-40C-40NamedPatsC-32C-36varsC-41C-32C-36todoC-41 arg-1 arg-2 e-3) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "=>") (CoreC-45TT-u--pretty_Pretty_C-40TermC-32C-36varsC-41 arg-1 e-5))))))) +(define CoreC-45CaseBuilder-u--pretty_Pretty_C-40C-40NamedPatsC-32C-36varsC-41C-32C-36todoC-41 (lambda (arg-1 arg-2 arg-3) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-hsep (CoreC-45CaseBuilder-n--8096-3982-u--prettyAll arg-1 arg-2 arg-3 arg-1 arg-2 arg-3)))) +(define CoreC-45CaseBuilder-u--full_HasNames_C-40ArgTypeC-32C-36varsC-41 (lambda (arg-1 arg-2 ext-0) (case (vector-ref arg-2 0) ((0) (let ((e-1 (vector-ref arg-2 1))) (let ((e-2 (vector-ref arg-2 2))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-3 (vector-ref eta-0 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref eta-0 1))) (vector 1 (vector 0 e-1 e-5)))))) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-1 e-2 eta-0)) ext-0)))) ((1) (let ((e-4 (vector-ref arg-2 1))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-2 (vector-ref eta-0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-0 1))) (vector 1 (vector 1 e-5)))))) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-1 e-4 eta-0)) ext-0))) (else (vector 1 (vector 2 )))))) +(define CoreC-45CaseBuilder-u--full_HasNames_C-40C-40PatInfoC-32C-36nC-41C-32C-36varsC-41 (lambda (arg-2 arg-3 ext-0) (let ((e-2 (vector-ref arg-3 0))) (let ((e-3 (vector-ref arg-3 1))) (let ((e-4 (vector-ref arg-3 2))) (let ((e-6 (vector-ref arg-3 3))) (let ((act-24 (CoreC-45Context-u--full_HasNames_Pat arg-2 e-4 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45CaseBuilder-u--full_HasNames_C-40ArgTypeC-32C-36varsC-41 arg-2 e-6 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-7 (vector-ref act-25 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-25 1))) (vector 1 (vector e-2 e-3 e-5 e-7)))))))))))))))) +(define CoreC-45CaseBuilder-u--full_HasNames_C-40C-40PatClauseC-32C-36varsC-41C-32C-36todoC-41 (lambda (arg-2 arg-3 ext-0) (let ((e-2 (vector-ref arg-3 0))) (let ((e-3 (vector-ref arg-3 1))) (let ((e-4 (vector-ref arg-3 2))) (let ((e-5 (vector-ref arg-3 3))) (CoreC-45Core-C-60C-42C-62 (lambda (eta-0) (CoreC-45Core-C-60C-42C-62 (lambda (eta-1) (CoreC-45Core-C-60C-42C-62 (lambda (eta-2) (CoreC-45Core-C-60C-42C-62 (lambda (eta-3) (vector 1 (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (lambda (eta-7) (vector eta-4 eta-5 eta-6 eta-7))))))) (lambda (eta-3) (CoreC-45Core-traverseC-39 (lambda (eta-4) (lambda (eta-5) (CoreC-45Context-u--full_HasNames_Name arg-2 eta-4 eta-5))) e-2 '() eta-3)) eta-2)) (lambda (eta-2) (CoreC-45CaseBuilder-u--full_HasNames_C-40C-40NamedPatsC-32C-36varsC-41C-32C-36todoC-41 arg-2 e-3 eta-2)) eta-1)) (lambda (eta-1) (vector 1 e-4)) eta-0)) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-2 e-5 eta-0)) ext-0))))))) +(define CoreC-45CaseBuilder-u--full_HasNames_C-40C-40NamedPatsC-32C-36varsC-41C-32C-36todoC-41 (lambda (arg-2 arg-3 ext-0) (if (null? arg-3) (vector 1 '()) (let ((e-4 (car arg-3))) (let ((e-5 (cdr arg-3))) (CoreC-45Core-C-60C-42C-62 (lambda (eta-0) (CoreC-45Core-C-60C-42C-62 (lambda (eta-1) (vector 1 (lambda (eta-2) (lambda (eta-3) (cons eta-2 eta-3))))) (lambda (eta-1) (CoreC-45CaseBuilder-u--full_HasNames_C-40C-40PatInfoC-32C-36nC-41C-32C-36varsC-41 arg-2 e-4 eta-1)) eta-0)) (lambda (eta-0) (CoreC-45CaseBuilder-u--full_HasNames_C-40C-40NamedPatsC-32C-36varsC-41C-32C-36todoC-41 arg-2 e-5 eta-0)) ext-0)))))) +(define CoreC-45CaseBuilder-weakenNs (lambda (arg-3 arg-4) (if (null? arg-4) '() (let ((e-4 (car arg-4))) (let ((e-5 (cdr arg-4))) (cons (CoreC-45CaseBuilder-u--weakenNs_Weaken_C-40PatInfoC-32C-36pC-41 arg-3 e-4) (CoreC-45CaseBuilder-weakenNs arg-3 e-5))))))) +(define CoreC-45CaseBuilder-weaken (lambda (arg-1 arg-2 arg-3) (if (null? arg-3) '() (let ((e-4 (car arg-3))) (let ((e-5 (cdr arg-3))) (cons (CoreC-45CaseBuilder-u--weaken_Weaken_C-40PatInfoC-32C-36pC-41 e-4) (CoreC-45CaseBuilder-weaken arg-1 arg-2 e-5))))))) +(define CoreC-45CaseBuilder-varRule (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 ext-0) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45CaseBuilder-n--14479-10204-u--updateVar arg-2 arg-1 arg-9 arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 eta-0)) arg-8 '() ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) ((CoreC-45CaseBuilder-match arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-5 arg-9) ext-0))))))) +(define CoreC-45CaseBuilder-updatePats (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (if (null? arg-1) (lambda (clam-0) (vector 1 '())) (let ((e-2 (car arg-1))) (let ((e-3 (cdr arg-1))) (case (vector-ref arg-4 0) ((0) (let ((e-11 (vector-ref arg-4 1))) (let ((e-13 (vector-ref arg-4 3))) (let ((e-14 (vector-ref arg-4 4))) (case (vector-ref e-13 0) ((2) (let ((e-17 (vector-ref e-13 2))) (let ((e-19 (vector-ref e-13 4))) (if (null? arg-5) (let ((e-8 (car arg-5))) (let ((e-9 (cdr arg-5))) (lambda (clam-1) (let ((e-6 (vector-ref e-8 3))) (case (vector-ref e-6 0) ((2) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-10 (vector-ref act-24 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-clearDefs e-10 clam-1))) (case (vector-ref act-25 0) ((0) (let ((e-15 (vector-ref act-25 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Normalise-u--quote_Quote_NF arg-2 arg-0 e-15 arg-3 arg-4 clam-1))) (case (vector-ref act-26 0) ((0) (let ((e-20 (vector-ref act-26 1))) (vector 0 e-20))) (else (let ((e-20 (vector-ref act-26 1))) (vector 1 (cons (let ((e-24 (vector-ref e-8 0))) (let ((e-23 (vector-ref e-8 1))) (let ((e-22 (vector-ref e-8 2))) (vector e-24 e-23 e-22 (vector 1 e-20))))) e-9)))))))))))))))(else (vector 1 (cons e-8 e-9)))))))) (let ((e-23 (car arg-5))) (let ((e-24 (cdr arg-5))) (lambda (clam-0) (let ((e-6 (vector-ref e-23 3))) (case (vector-ref e-6 0) ((2) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-8 (vector-ref act-24 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-clearDefs e-8 clam-0))) (case (vector-ref act-25 0) ((0) (let ((e-9 (vector-ref act-25 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Normalise-u--quote_Quote_NF arg-2 arg-0 e-9 arg-3 e-19 clam-0))) (case (vector-ref act-26 0) ((0) (let ((e-10 (vector-ref act-26 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-26 1))) (let ((act-27 (((e-14 e-8) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) arg-3 (vector 1 e-11 (vector 0 ) e-2))) clam-0))) (case (vector-ref act-27 0) ((0) (let ((e-15 (vector-ref act-27 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref act-27 1))) (let ((act-28 ((CoreC-45CaseBuilder-updatePats arg-0 e-3 arg-2 arg-3 e-15 e-24) clam-0))) (case (vector-ref act-28 0) ((0) (let ((e-20 (vector-ref act-28 1))) (vector 0 e-20))) (else (let ((e-20 (vector-ref act-28 1))) (vector 1 (cons (let ((e-26 (vector-ref e-23 0))) (let ((e-25 (vector-ref e-23 1))) (let ((e-22 (vector-ref e-23 2))) (vector e-26 e-25 e-22 (vector 0 e-17 e-10))))) e-20)))))))))))))))))))))))(else (vector 1 (cons e-23 e-24))))))))))))(else (let ((e-8 (car arg-5))) (let ((e-9 (cdr arg-5))) (lambda (clam-2) (let ((e-6 (vector-ref e-8 3))) (case (vector-ref e-6 0) ((2) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-10 (vector-ref act-24 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-clearDefs e-10 clam-2))) (case (vector-ref act-25 0) ((0) (let ((e-15 (vector-ref act-25 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Normalise-u--quote_Quote_NF arg-2 arg-0 e-15 arg-3 arg-4 clam-2))) (case (vector-ref act-26 0) ((0) (let ((e-16 (vector-ref act-26 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref act-26 1))) (vector 1 (cons (let ((e-20 (vector-ref e-8 0))) (let ((e-19 (vector-ref e-8 1))) (let ((e-18 (vector-ref e-8 2))) (vector e-20 e-19 e-18 (vector 1 e-16))))) e-9)))))))))))))))(else (vector 1 (cons e-8 e-9))))))))))))))(else (let ((e-8 (car arg-5))) (let ((e-9 (cdr arg-5))) (lambda (clam-3) (let ((e-6 (vector-ref e-8 3))) (case (vector-ref e-6 0) ((2) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-10 (vector-ref act-24 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-clearDefs e-10 clam-3))) (case (vector-ref act-25 0) ((0) (let ((e-11 (vector-ref act-25 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Normalise-u--quote_Quote_NF arg-2 arg-0 e-11 arg-3 arg-4 clam-3))) (case (vector-ref act-26 0) ((0) (let ((e-12 (vector-ref act-26 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref act-26 1))) (vector 1 (cons (let ((e-16 (vector-ref e-8 0))) (let ((e-15 (vector-ref e-8 1))) (let ((e-14 (vector-ref e-8 2))) (vector e-16 e-15 e-14 (vector 1 e-12))))) e-9)))))))))))))))(else (vector 1 (cons e-8 e-9))))))))))))))) +(define CoreC-45CaseBuilder-updatePatNames (lambda (arg-2 arg-3) (if (null? arg-3) '() (let ((e-4 (car arg-3))) (let ((e-5 (cdr arg-3))) (cons (let ((e-2 (vector-ref e-4 0))) (let ((e-3 (vector-ref e-4 1))) (let ((e-7 (vector-ref e-4 2))) (let ((e-6 (vector-ref e-4 3))) (vector e-2 e-3 (CoreC-45CaseBuilder-n--11270-6740-u--update e-5 e-4 arg-2 e-7) e-6))))) (CoreC-45CaseBuilder-updatePatNames arg-2 e-5))))))) +(define CoreC-45CaseBuilder-updateNames (lambda (ext-0) (DataC-45List-mapMaybe (lambda (eta-0) (CoreC-45CaseBuilder-n--11246-6699-u--update eta-0)) ext-0))) +(define CoreC-45CaseBuilder-toPatClause (lambda (arg-0 arg-1 arg-2 arg-3) (let ((e-2 (car arg-3))) (let ((e-3 (cdr arg-3))) (let ((sc1 (CoreC-45TT-getFnArgs e-2))) (let ((e-5 (car sc1))) (let ((e-4 (cdr sc1))) (lambda (clam-0) (case (vector-ref e-5 0) ((1) (let ((e-8 (vector-ref e-5 1))) (let ((e-6 (vector-ref e-5 2))) (let ((e-7 (vector-ref e-5 3))) (case (vector-ref e-6 0) ((1) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-9 (vector-ref act-24 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Context-getPosition arg-2 (let ((e-0 (vector-ref e-9 0))) e-0)) clam-0))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (let ((e-12 (car e-10))) (let ((act-26 ((CoreC-45Context-getPosition e-7 (let ((e-0 (vector-ref e-9 0))) e-0)) clam-0))) (case (vector-ref act-26 0) ((0) (let ((e-13 (vector-ref act-26 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref act-26 1))) (let ((e-15 (car e-13))) (let ((sc9 (PreludeC-45EqOrd-u--C-61C-61_Eq_Int e-12 e-15))) (cond ((equal? sc9 1) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45CaseBuilder-argToPat arg-0 eta-0)) e-4 '() clam-0))) (case (vector-ref act-27 0) ((0) (let ((e-16 (vector-ref act-27 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref act-27 1))) (vector 1 (cons e-16 e-3))))))) (else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 e-8 (PreludeC-45TypesC-45String-C-43C-43 "Wrong function name in pattern LHS " (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (u--x) (CoreC-45Name-u--show_Show_Name u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Name-u--showPrec_Show_Name u--d u--x)))) (cons (lambda (u--x) (CoreC-45Name-u--show_Show_Name u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Name-u--showPrec_Show_Name u--d u--x))))) (cons arg-2 e-7)))) clam-0)))))))))))))))))))(else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-1 "Not a function name in pattern LHS") clam-0)))))))(else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-1 "Not a function name in pattern LHS") clam-0))))))))))) +(define CoreC-45CaseBuilder-tail (lambda (arg-3) (let ((e-4 (cdr arg-3))) e-4))) +(define CoreC-45CaseBuilder-substInPats (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (if (null? arg-1) (vector 1 '()) (let ((e-2 (car arg-1))) (let ((e-3 (cdr arg-1))) (let ((e-8 (car arg-6))) (let ((e-9 (cdr arg-6))) (let ((act-24 (CoreC-45CaseBuilder-substInPatInfo e-2 arg-0 e-3 arg-2 arg-3 arg-4 arg-5 e-8 e-9 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((e-6 (car e-5))) (let ((e-4 (cdr e-5))) (let ((act-25 (CoreC-45CaseBuilder-substInPats arg-0 e-3 arg-2 arg-3 arg-4 arg-5 e-4 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-7 (vector-ref act-25 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-25 1))) (vector 1 (cons e-6 e-7))))))))))))))))))) +(define CoreC-45CaseBuilder-substInPatInfo (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 ext-0) (CoreC-45CaseBuilder-case--substInPatInfo-3237 arg-2 arg-1 arg-8 arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 (let ((e-6 (vector-ref arg-7 3))) e-6) ext-0))) +(define CoreC-45CaseBuilder-substInClause (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((e-2 (vector-ref arg-5 0))) (let ((e-3 (vector-ref arg-5 1))) (let ((e-4 (vector-ref arg-5 2))) (let ((e-5 (vector-ref arg-5 3))) (lambda (clam-0) (let ((e-9 (car e-3))) (let ((e-10 (cdr e-3))) (let ((e-13 (vector-ref e-9 0))) (let ((e-14 (vector-ref e-9 1))) (let ((e-15 (vector-ref e-9 2))) (let ((e-17 (vector-ref e-9 3))) (let ((act-24 (CoreC-45CaseBuilder-substInPats arg-1 arg-2 arg-3 arg-4 arg-0 (CoreC-45CaseTree-mkTerm arg-1 e-15) e-10 clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (vector 1 (vector e-2 (cons (vector e-13 e-14 e-15 e-17) e-6) e-4 e-5))))))))))))))))))) +(define CoreC-45CaseBuilder-simpleCase (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 (CoreC-45ContextC-45Log-unverifiedLogC arg-0 "compile.casetree" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-0) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-0) (let ((e-2 (car lamc-0))) (let ((e-3 (cdr lamc-0))) (CoreC-45Core-C-60C-42C-62 (lambda (eta-1) (CoreC-45Core-C-60C-42C-62 (lambda (eta-2) (vector 1 (lambda (eta-3) (lambda (eta-4) (cons eta-3 eta-4))))) (lambda (eta-2) (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-3) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-3)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-3) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-3))))) e-2 eta-2)) eta-1)) (lambda (eta-1) (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-2) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-2)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-2) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-2))))) e-3 eta-1)) clam-0))))) arg-6 '() eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (PreludeC-45TypesC-45String-C-43C-43 "simpleCase: Clauses:\u000a" (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--show_Show_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-indent 2 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vcat (PreludeC-45Basics-flip (lambda (eta-1) (lambda (eta-2) (PreludeC-45Types-u--map_Functor_List eta-1 eta-2))) e-5 (lambda (lamc-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (CoreC-45TT-u--pretty_Pretty_C-40TermC-32C-36varsC-41 '() (Builtin-fst lamc-0)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "=") (CoreC-45TT-u--pretty_Pretty_C-40TermC-32C-36varsC-41 '() (Builtin-snd lamc-0)))))))))))))))) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45CaseBuilder-toPatClause arg-0 arg-1 arg-3 eta-0)) arg-6 '() ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (let ((act-26 (unbox arg-0))) (vector 1 act-26)))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else ((CoreC-45CaseBuilder-patCompile arg-0 arg-1 arg-3 arg-2 arg-4 e-6 arg-5) ext-0))))))))))))) +(define CoreC-45CaseBuilder-shuffleVars (lambda (arg-3 arg-5) (let ((e-2 (vector-ref arg-5 0))) (let ((e-3 (vector-ref arg-5 1))) (let ((e-4 (vector-ref arg-5 2))) (let ((e-5 (vector-ref arg-5 3))) (vector e-2 (CoreC-45CaseBuilder-moveFirst arg-3 e-3) e-4 e-5))))))) +(define CoreC-45CaseBuilder-sameType (lambda (arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 ext-0) (if (null? arg-9) (vector 1 0) (let ((e-2 (car arg-9))) (let ((e-3 (cdr arg-9))) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((sc2 (CoreC-45CaseBuilder-getFirstArgType e-2))) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 2))) (let ((act-25 ((CoreC-45Normalise-nf arg-4 arg-2 e-5 arg-8 e-4) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-6 (vector-ref act-25 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-25 1))) (CoreC-45CaseBuilder-n--13037-8275-u--sameTypeAs arg-2 e-2 e-3 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-6 e-6 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45CaseBuilder-getFirstArgType eta-0)) e-3) ext-0)))))))(else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 42 arg-5 arg-7 (vector 1 )) ext-0))))))))))))) +(define CoreC-45CaseBuilder-samePat (lambda (arg-3) (if (null? arg-3) 1 (let ((e-2 (car arg-3))) (let ((e-3 (cdr arg-3))) (CoreC-45CaseBuilder-n--13473-8657-u--samePatAs e-2 e-3 (CoreC-45CaseBuilder-n--13473-8656-u--dropAs e-2 e-3 (CoreC-45CaseBuilder-getFirstPat e-2)) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45CaseBuilder-n--13473-8656-u--dropAs e-2 e-3 (CoreC-45CaseBuilder-getFirstPat eta-0))) e-3))))))) +(define CoreC-45CaseBuilder-pickNext (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 ext-0) (if (null? arg-2) (let ((sc1 (CoreC-45CaseBuilder-samePat arg-8))) (cond ((equal? sc1 1) (vector 1 (cons arg-0 0))) (else (let ((act-24 (CoreC-45CaseBuilder-getScore arg-1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (case (vector-ref e-5 0) ((1) (let ((e-2 (vector-ref e-5 1))) (cond (else (vector 1 (cons arg-0 0)))))) (else (let ((e-6 (vector-ref e-5 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 42 arg-5 arg-7 e-6) ext-0))))))))))) (let ((e-2 (car arg-2))) (let ((e-3 (cdr arg-2))) (let ((sc1 (CoreC-45CaseBuilder-samePat arg-8))) (cond ((equal? sc1 1) (vector 1 (cons arg-0 0))) (else (let ((act-24 (CoreC-45CaseBuilder-getScore arg-1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (case (vector-ref e-5 0) ((1) (let ((e-4 (vector-ref e-5 1))) (cond ((equal? e-4 0) (vector 1 (cons arg-0 0)))(else (let ((act-25 (CoreC-45CaseBuilder-pickNext e-2 arg-1 e-3 arg-3 arg-4 arg-5 arg-6 arg-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45CaseBuilder-tail eta-0)) arg-8) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-6 (vector-ref act-25 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-25 1))) (let ((e-8 (car e-6))) (let ((e-7 (cdr e-6))) (vector 1 (cons e-8 (+ 1 e-7)))))))))))))(else (let ((act-25 (CoreC-45CaseBuilder-pickNext e-2 arg-1 e-3 arg-3 arg-4 arg-5 arg-6 arg-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45CaseBuilder-tail eta-0)) arg-8) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref act-25 1))) (let ((e-7 (car e-6))) (let ((e-4 (cdr e-6))) (vector 1 (cons e-7 (+ 1 e-4))))))))))))))))))))))) +(define CoreC-45CaseBuilder-patCompile (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (if (null? arg-5) (PreludeC-45Types-maybe (lambda () (lambda (eta-0) (vector 1 (cons '() (vector 2 "No definition"))))) (lambda () (lambda (u--e) (lambda (eta-0) (vector 1 (cons '() u--e))))) arg-6) (let ((e-2 (car arg-5))) (let ((e-3 (cdr arg-5))) (lambda (eta-0) (CoreC-45CaseBuilder-case--patCompile-11231 e-2 e-3 arg-6 arg-4 arg-3 arg-2 arg-1 arg-0 (CoreC-45CaseBuilder-n--16128-11131-u--getNames e-2 e-3 arg-6 arg-4 arg-3 arg-2 arg-1 arg-0 0 (Builtin-fst e-2)) eta-0))))))) +(define CoreC-45CaseBuilder-partition (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (if (null? arg-4) (vector 2 ) (let ((e-2 (car arg-4))) (let ((e-3 (cdr arg-4))) (CoreC-45CaseBuilder-with--partition-5333 arg-0 arg-1 arg-2 e-3 arg-3 (CoreC-45CaseBuilder-partition arg-0 arg-1 arg-2 arg-3 e-3) e-2)))))) +(define CoreC-45CaseBuilder-nextNames (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (if (null? arg-5) (vector 1 (cons '() (cons (CoreC-45TTC-45SizeOf-zero) '()))) (let ((e-2 (car arg-5))) (let ((e-3 (cdr arg-5))) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-clearDefs e-5 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45CaseBuilder-nextName arg-1 arg-4 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-4 (vector-ref act-26 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref act-26 1))) (let ((u--env (CoreC-45Env-mkEnv arg-3 arg-0))) (let ((act-27 (if (null? arg-6) (vector 1 (cons '() (vector 2 ))) (let ((e-4 (unbox arg-6))) (case (vector-ref e-4 0) ((0) (let ((e-11 (vector-ref e-4 1))) (let ((e-9 (vector-ref e-4 3))) (let ((e-8 (vector-ref e-4 4))) (case (vector-ref e-9 0) ((2) (let ((e-14 (vector-ref e-9 2))) (let ((e-12 (vector-ref e-9 4))) (case (vector-ref e-12 0) ((9) (let ((act-27 (((e-8 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) u--env (vector 1 e-11 (vector 0 ) e-7))) ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-18 (vector-ref act-27 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref act-27 1))) (vector 1 (cons (box e-18) (vector 2 ))))))))(else (let ((act-27 (((e-8 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) u--env (vector 1 e-11 (vector 0 ) e-7))) ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-16 (vector-ref act-27 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref act-27 1))) (let ((act-28 (CoreC-45Normalise-u--quote_Quote_NF arg-2 arg-0 e-6 u--env e-12 ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-17 (vector-ref act-28 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref act-28 1))) (vector 1 (cons (box e-16) (vector 0 e-14 e-17))))))))))))))))(else (let ((act-27 (CoreC-45Normalise-u--quote_Quote_NF arg-2 arg-0 e-6 u--env e-4 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-12 (vector-ref act-27 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref act-27 1))) (vector 1 (cons '() (vector 1 e-12)))))))))))))(else (let ((act-27 (CoreC-45Normalise-u--quote_Quote_NF arg-2 arg-0 e-6 u--env e-4 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-8 (vector-ref act-27 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref act-27 1))) (vector 1 (cons '() (vector 1 e-8))))))))))))) (case (vector-ref act-27 0) ((0) (let ((e-4 (vector-ref act-27 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref act-27 1))) (let ((act-28 (CoreC-45CaseBuilder-nextNames arg-0 arg-1 arg-2 arg-3 arg-4 e-3 (Builtin-fst e-8) ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-4 (vector-ref act-28 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref act-28 1))) (let ((e-10 (car e-9))) (let ((e-4 (cdr e-9))) (let ((e-12 (car e-4))) (let ((e-11 (cdr e-4))) (let ((u--argTy (let ((sc8 (Builtin-snd e-8))) (case (vector-ref sc8 0) ((2) (vector 2 )) ((0) (let ((e-14 (vector-ref sc8 1))) (let ((e-13 (vector-ref sc8 2))) (vector 0 e-14 (CoreC-45TT-u--weakenNs_Weaken_Term (CoreC-45TTC-45SizeOf-suc e-12) e-13))))) (else (let ((e-13 (vector-ref sc8 1))) (vector 1 (CoreC-45TT-u--weakenNs_Weaken_Term (CoreC-45TTC-45SizeOf-suc e-12) e-13)))))))) (vector 1 (cons (cons e-7 e-10) (cons (CoreC-45TTC-45SizeOf-suc e-12) (cons (vector 0 e-7 e-2 u--argTy) (CoreC-45CaseBuilder-weaken e-7 (PreludeC-45TypesC-45List-C-43C-43 e-10 arg-0) e-11)))))))))))))))))))))))))))))))))))) +(define CoreC-45CaseBuilder-nextName (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (let ((act-25 (set-box! arg-0 (bs+ e-5 1 63)))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (vector 1 (vector 2 arg-1 e-5))))))))))) +(define CoreC-45CaseBuilder-newPats (lambda (arg-3 arg-4 arg-5) (if (null? arg-3) '() (let ((e-2 (car arg-3))) (let ((e-3 (cdr arg-3))) (let ((e-12 (unbox arg-4))) (let ((e-16 (car arg-5))) (let ((e-17 (cdr arg-5))) (cons (let ((e-7 (vector-ref e-16 0))) (let ((e-5 (vector-ref e-16 1))) (let ((e-6 (vector-ref e-16 3))) (vector e-7 e-5 e-2 e-6)))) (CoreC-45CaseBuilder-newPats e-3 e-12 e-17)))))))))) +(define CoreC-45CaseBuilder-namesIn (lambda (arg-0 arg-1) (case (vector-ref arg-1 0) ((0) (let ((e-1 (vector-ref arg-1 2))) (let ((e-2 (vector-ref arg-1 3))) (let ((sc1 (PreludeC-45Types-elem (cons (lambda (arg-2) (lambda (arg-3) (CoreC-45Name-u--C-61C-61_Eq_Name arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (CoreC-45Name-u--C-47C-61_Eq_Name arg-4 arg-5)))) e-1 arg-0))) (cond ((equal? sc1 1) (CoreC-45CaseBuilder-namesIn arg-0 e-2)) (else 0)))))) ((1) (let ((e-7 (vector-ref arg-1 5))) (PreludeC-45Interfaces-all (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (lambda (eta-0) (CoreC-45CaseBuilder-namesIn arg-0 eta-0)) e-7))) ((2) (let ((e-11 (vector-ref arg-1 4))) (PreludeC-45Interfaces-all (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (lambda (eta-0) (CoreC-45CaseBuilder-namesIn arg-0 eta-0)) e-11))) ((4) (let ((e-14 (vector-ref arg-1 3))) (let ((e-15 (vector-ref arg-1 4))) (let ((sc1 (CoreC-45CaseBuilder-namesIn arg-0 e-14))) (cond ((equal? sc1 1) (CoreC-45CaseBuilder-namesIn arg-0 e-15)) (else 0)))))) ((5) (let ((e-18 (vector-ref arg-1 3))) (let ((e-19 (vector-ref arg-1 4))) (let ((sc1 (CoreC-45CaseBuilder-namesIn arg-0 e-18))) (cond ((equal? sc1 1) (CoreC-45CaseBuilder-namesIn arg-0 e-19)) (else 0)))))) ((6) (let ((e-21 (vector-ref arg-1 2))) (PreludeC-45Types-elem (cons (lambda (arg-2) (lambda (arg-3) (CoreC-45Name-u--C-61C-61_Eq_Name arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (CoreC-45Name-u--C-47C-61_Eq_Name arg-4 arg-5)))) e-21 arg-0)))(else 1)))) +(define CoreC-45CaseBuilder-namesFrom (lambda (arg-0) (case (vector-ref arg-0 0) ((0) (let ((e-1 (vector-ref arg-0 2))) (let ((e-2 (vector-ref arg-0 3))) (cons e-1 (CoreC-45CaseBuilder-namesFrom e-2))))) ((1) (let ((e-7 (vector-ref arg-0 5))) (PreludeC-45Interfaces-concatMap (cons (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-2 arg-3))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) (lambda (eta-0) (CoreC-45CaseBuilder-namesFrom eta-0)) e-7))) ((2) (let ((e-11 (vector-ref arg-0 4))) (PreludeC-45Interfaces-concatMap (cons (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-2 arg-3))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) (lambda (eta-0) (CoreC-45CaseBuilder-namesFrom eta-0)) e-11))) ((4) (let ((e-14 (vector-ref arg-0 3))) (let ((e-15 (vector-ref arg-0 4))) (PreludeC-45TypesC-45List-C-43C-43 (CoreC-45CaseBuilder-namesFrom e-14) (CoreC-45CaseBuilder-namesFrom e-15))))) ((5) (let ((e-18 (vector-ref arg-0 3))) (let ((e-19 (vector-ref arg-0 4))) (PreludeC-45TypesC-45List-C-43C-43 (CoreC-45CaseBuilder-namesFrom e-18) (CoreC-45CaseBuilder-namesFrom e-19))))) ((6) (let ((e-21 (vector-ref arg-0 2))) (cons e-21 '())))(else '())))) (define CoreC-45CaseBuilder-moveFirst (lambda (arg-3 arg-5) (cons (CoreC-45CaseBuilder-getPat arg-3 arg-5) (CoreC-45CaseBuilder-dropPat arg-3 arg-5)))) -(define CoreC-45CaseBuilder-mkPatClause (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (PreludeC-45Types-maybe (lambda () (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 42 arg-1 arg-2 (vector 0 )) eta-0))) (lambda () (lambda (u--eq) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((CoreC-45Normalise-nf arg-0 '() e-5 '() arg-4) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((CoreC-45CaseBuilder-n--18362-11011-u--mkNames e-2 e-3 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 arg-3 e-2 u--eq (vector 1 e-6)) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (CoreC-45ContextC-45Log-log arg-0 "compile.casetree" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))))))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Make pat clause for names " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45CaseBuilder-u--show_Show_C-40C-40NamedPatsC-32C-36varsC-41C-32C-36todoC-41 arg-3 arg-3 e-7) (PreludeC-45TypesC-45String-C-43C-43 " in LHS " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45CaseTree-u--show_Show_Pat u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45CaseTree-u--showPrec_Show_Pat u--d u--x)))) e-2))))) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (vector 1 (vector 0 '() e-7 arg-5 (CoreC-45TT-u--weakenNs_Weaken_Term (CoreC-45TTC-45SizeOf-mkSizeOf arg-3) e-3))))))))))))))))))))))))) (LibrariesC-45DataC-45LengthMatch-checkLengthMatch arg-3 e-2))))))) -(define CoreC-45CaseBuilder-mkPat (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (lambda (clam-0) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (vector 1 (vector 6 e-1 e-3))) ((2) (let ((e-28 (vector-ref sc1 1))) (let ((e-29 (vector-ref sc1 2))) (vector 1 (vector 1 e-1 e-3 e-28 e-29 arg-1))))) ((3) (let ((e-31 (vector-ref sc1 2))) (vector 1 (vector 2 e-1 e-3 e-31 arg-1)))) ((1) (let ((act-24 (CoreC-45Context-getPrimitiveNames arg-0 clam-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (CoreC-45Normalise-normalisePrims arg-0 '() (lambda (eta-0) 0) (lambda (eta-0) (CoreC-45CaseTree-isPConst eta-0)) e-5 e-3 arg-1 arg-2 '() clam-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((1) (let ((e-4 (vector-ref sc4 1))) ((CoreC-45CaseBuilder-mkPat arg-0 '() e-4 e-4) clam-0))) (else (let ((act-26 (CoreC-45ContextC-45Log-log arg-0 "compile.casetree" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Unmatchable function: " (CoreC-45Name-u--show_Show_Name e-3))) clam-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (vector 1 (vector 7 (CoreC-45TT-getLoc arg-2) arg-2))))))))))))))))))))(else (let ((act-24 (CoreC-45ContextC-45Log-log arg-0 "compile.casetree" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Catchall: marking " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() arg-3) " as unmatchable"))) clam-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (vector 1 (vector 7 (CoreC-45TT-getLoc arg-2) arg-2)))))))))))))) ((3) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (let ((sc1 e-7)) (case (vector-ref sc1 0) ((2) (let ((e-36 (vector-ref sc1 4))) (let ((u--tC-39 (CoreC-45TTC-45SubstEnv-subst (vector 10 e-5 1) e-8))) (lambda (eta-0) (let ((act-24 ((CoreC-45CaseBuilder-mkPat arg-0 '() e-36 e-36) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc2 1))) (let ((act-25 ((CoreC-45CaseBuilder-mkPat arg-0 '() u--tC-39 u--tC-39) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc3 1))) (vector 1 (vector 4 e-5 e-6 e-9 e-10))))))))))))))))(else (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-log arg-0 "compile.casetree" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Catchall: marking " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() arg-3) " as unmatchable"))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 7 (CoreC-45TT-getLoc arg-2) arg-2))))))))))))))) ((4) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((CoreC-45CaseBuilder-mkPat arg-0 '() e-12 e-12) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((CoreC-45CaseBuilder-mkPat arg-0 (cons e-5 arg-1) arg-2 e-11) eta-0)))))))))) ((5) (let ((e-14 (vector-ref sc0 1))) (let ((e-16 (vector-ref sc0 3))) (let ((e-17 (vector-ref sc0 4))) (let ((sc1 e-16)) (case (vector-ref sc1 0) ((1) (let ((e-39 (vector-ref sc1 2))) (let ((e-40 (vector-ref sc1 3))) (let ((sc2 e-39)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (let ((act-24 ((CoreC-45CaseBuilder-mkPat arg-0 '() e-17 e-17) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (vector 1 (vector 0 e-14 e-40 e-5)))))))))(else (CoreC-45CaseBuilder-mkPat arg-0 '() arg-2 e-17)))))))(else (CoreC-45CaseBuilder-mkPat arg-0 '() arg-2 e-17)))))))) ((7) (let ((e-19 (vector-ref sc0 1))) (let ((e-20 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 3))) (let ((e-22 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((CoreC-45CaseBuilder-mkPat arg-0 '() arg-2 e-21) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((CoreC-45CaseBuilder-mkPat arg-0 '() arg-2 e-22) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 5 e-19 e-20 e-5 e-6)))))))))))))))))) ((9) (let ((e-24 (vector-ref sc0 1))) (let ((e-25 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (CoreC-45CaseBuilder-case--mkPat-10933 arg-0 e-25 e-24 arg-2 arg-1 (PreludeC-45EqOrd-u--C-61C-61_Eq_Int (CoreC-45TT-constTag e-25) (blodwen-toSignedInt 0 63)))))))) ((11) (let ((e-27 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 2 e-27 (vector 1 "Type") 0 '())))))(else (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-log arg-0 "compile.casetree" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Catchall: marking " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() arg-3) " as unmatchable"))) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (vector 1 (vector 7 (CoreC-45TT-getLoc arg-2) arg-2)))))))))))) -(define CoreC-45CaseBuilder-mixture (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (let ((e-3 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 3))) (let ((e-6 (vector-ref sc0 4))) (let ((e-7 (vector-ref sc0 5))) (let ((sc1 e-3)) (if (null? sc1) (lambda (clam-0) (let ((sc2 arg-5)) (let ((sc3 arg-9)) (vector 1 arg-10)))) (lambda (eta-0) (let ((act-24 ((CoreC-45CaseBuilder-mixture arg-0 arg-1 arg-2 arg-3 arg-4 e-5 arg-6 arg-7 arg-8 e-7 arg-10) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc2 1))) (let ((act-25 ((CoreC-45CaseBuilder-conRule arg-0 arg-1 arg-2 arg-3 arg-4 arg-6 arg-7 arg-8 e-6 e-8) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc3 1))) (vector 1 (vector 1 e-9)))))))))))))))))))) ((1) (let ((e-8 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 3))) (let ((e-11 (vector-ref sc0 4))) (let ((e-12 (vector-ref sc0 5))) (let ((sc1 e-8)) (if (null? sc1) (lambda (clam-1) (let ((sc2 arg-5)) (let ((sc3 arg-9)) (vector 1 arg-10)))) (lambda (eta-0) (let ((act-24 ((CoreC-45CaseBuilder-mixture arg-0 arg-1 arg-2 arg-3 arg-4 e-10 arg-6 arg-7 arg-8 e-12 arg-10) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (CoreC-45CaseBuilder-varRule arg-0 arg-1 arg-2 arg-3 arg-4 arg-6 arg-7 arg-8 e-11 e-5 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 (vector 1 e-6))))))))))))))))))))(else (lambda (clam-2) (let ((sc0 arg-5)) (let ((sc1 arg-9)) (vector 1 arg-10))))))))) -(define CoreC-45CaseBuilder-match (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-1)) (if (null? sc0) (let ((sc1 arg-7)) (if (null? sc1) (PreludeC-45Types-maybe (lambda () (lambda (eta-0) (vector 1 (vector 2 "No patterns")))) (lambda () (lambda (eta-0) (lambda (eta-1) (vector 1 eta-0)))) arg-8) (let ((e-6 (car sc1))) (let ((sc2 e-6)) (let ((e-11 (vector-ref sc2 2))) (let ((e-12 (vector-ref sc2 3))) (let ((e-13 (vector-ref sc2 4))) (let ((sc3 e-11)) (lambda (clam-0) (let ((sc4 e-13)) (case (vector-ref sc4 0) ((10) (let ((e-17 (vector-ref sc4 2))) (let ((sc5 e-17)) (cond ((equal? sc5 0) (vector 1 (vector 3 )))(else (vector 1 (vector 1 e-12 e-13)))))))(else (vector 1 (vector 1 e-12 e-13)))))))))))))) (let ((e-1 (car sc0))) (let ((e-2 (cdr sc0))) (lambda (eta-0) (let ((act-24 ((CoreC-45CaseBuilder-pickNext e-1 arg-0 e-2 arg-2 arg-3 arg-4 arg-6 arg-5 (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (CoreC-45CaseBuilder-getNPs eta-1)) arg-7)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-4 (car sc2))) (let ((e-3 (cdr sc2))) (let ((act-25 (CoreC-45ContextC-45Log-log arg-3 "compile.casetree" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))))))))))))))))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Picked " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-4) " as the next split"))) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((u--clausesC-39 (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (CoreC-45CaseBuilder-shuffleVars e-3 eta-1)) arg-7))) (let ((act-26 (CoreC-45ContextC-45Log-log arg-3 "compile.casetree" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))))))))))))))))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Using clauses " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45CaseBuilder-u--show_Show_C-40C-40PatClauseC-32C-36varsC-41C-32C-36todoC-41 arg-0 (cons e-4 (CoreC-45TT-dropVar (cons e-1 e-2) e-3)) u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45CaseBuilder-u--showPrec_Show_C-40C-40PatClauseC-32C-36varsC-41C-32C-36todoC-41 arg-0 (cons e-4 (CoreC-45TT-dropVar (cons e-1 e-2) e-3)) u--d u--x)))) u--clausesC-39))) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((u--ps (CoreC-45CaseBuilder-partition e-4 (CoreC-45TT-dropVar (cons e-1 e-2) e-3) arg-0 arg-6 u--clausesC-39))) (let ((act-27 (CoreC-45ContextC-45Log-log arg-3 "compile.casetree" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))))))))))))))))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Got Partition " (CoreC-45CaseBuilder-u--show_Show_C-40PartitionsC-32C-36psC-41 u--clausesC-39 u--ps))) eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((act-28 ((CoreC-45CaseBuilder-mixture e-4 arg-0 (CoreC-45TT-dropVar (cons e-1 e-2) e-3) arg-2 arg-3 u--clausesC-39 arg-4 arg-5 arg-6 u--ps arg-8) eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc6 1))) (let ((sc7 e-9)) (case (vector-ref sc7 0) ((0) (let ((act-29 (CoreC-45ContextC-45Log-log arg-3 "compile.casetree" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))))))))))))))))))))))) (lambda () "match: No clauses") eta-0))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (vector 1 (vector 2 "No clauses"))))))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-29 (CoreC-45ContextC-45Log-log arg-3 "compile.casetree" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))))))))))))))))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "match: new case tree " (CoreC-45CaseTree-u--show_Show_C-40CaseTreeC-32C-36varsC-41 arg-0 e-10))) eta-0))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (vector 1 e-10))))))))))))))))))))))))))))))))))))))))))) -(define CoreC-45CaseBuilder-groupCons (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (CoreC-45CaseBuilder-n--14185-7292-u--gc arg-0 arg-1 arg-2 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-0 arg-1 arg-2 '() arg-8))) -(define CoreC-45CaseBuilder-getScore (lambda (arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 ext-0) (CoreC-45Core-u--catch_Catchable_Core_Error (lambda (eta-0) (let ((act-24 (CoreC-45CaseBuilder-sameType arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (CoreC-45Env-mkEnv arg-5 arg-2) arg-8 eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (vector 1 (vector 1 (vector 0 )))))))) (lambda (u--err) (lambda (clam-0) (let ((sc0 u--err)) (case (vector-ref sc0 0) ((42) (let ((e-2 (vector-ref sc0 3))) (vector 1 (vector 0 e-2))))(else (CoreC-45Core-u--throw_Catchable_Core_Error u--err clam-0)))))) ext-0))) -(define CoreC-45CaseBuilder-getPatInfo (lambda (arg-2) (let ((sc0 arg-2)) (if (null? sc0) '() (let ((e-4 (car sc0))) (let ((e-5 (cdr sc0))) (cons (let ((sc1 e-4)) (let ((e-7 (vector-ref sc1 3))) e-7)) (CoreC-45CaseBuilder-getPatInfo e-5)))))))) -(define CoreC-45CaseBuilder-getPat (lambda (arg-3 arg-5) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (let ((sc1 arg-5)) (let ((e-4 (car sc1))) e-4)))(else (let ((e-0 (- arg-3 1))) (let ((sc0 arg-5)) (let ((e-10 (cdr sc0))) (CoreC-45CaseBuilder-getPat e-0 e-10))))))))) -(define CoreC-45CaseBuilder-getPMDef (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((sc0 arg-5)) (if (null? sc0) (let ((act-24 (CoreC-45ContextC-45Log-log arg-0 "compile.casetree" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))))))))))))) (lambda () "getPMDef: No clauses!") ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (let ((act-25 (unbox arg-0))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((CoreC-45Normalise-nf arg-0 '() e-6 '() arg-4) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (CoreC-45CaseBuilder-n--19554-12175-u--getArgs arg-4 arg-3 arg-2 arg-1 arg-0 0 e-7 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (cons e-8 (cons (vector 2 "No clauses") '())))))))))))))))))))))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((u--cs (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45CaseBuilder-n--19554-12280-u--toClosed arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 eta-0)) (CoreC-45CaseBuilder-n--19554-12277-u--labelPat arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 0 arg-5)))) (let ((act-25 (CoreC-45CaseBuilder-simpleCase arg-0 arg-1 arg-2 arg-3 arg-4 (vector 0 ) u--cs ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (let ((e-2 (car sc3))) (let ((e-3 (cdr sc3))) (let ((act-26 (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40CaseTreeC-32C-36varsC-41 arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40CaseTreeC-32C-36varsC-41 arg-3812 arg-3813 eta-0))))) e-3 ext-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc4 1))) (CoreC-45ContextC-45Log-logC arg-0 "compile.casetree" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))))))))))))) (lambda (eta-0) (vector 1 (PreludeC-45TypesC-45String-C-43C-43 "Compiled to: " (CoreC-45CaseTree-u--show_Show_C-40CaseTreeC-32C-36varsC-41 e-2 e-7)))) ext-0)))))))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((u--reached (CoreC-45CaseBuilder-findReached e-3))) (vector 1 (cons e-2 (cons e-3 (CoreC-45CaseBuilder-n--19554-12276-u--getUnreachable arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 0 u--reached arg-5))))))))))))))))))))))))))) -(define CoreC-45CaseBuilder-getNPs (lambda (arg-2) (let ((sc0 arg-2)) (let ((e-3 (vector-ref sc0 2))) e-3)))) -(define CoreC-45CaseBuilder-getFirstPat (lambda (arg-3) (let ((sc0 arg-3)) (let ((e-3 (car sc0))) (let ((sc1 e-3)) (let ((e-5 (vector-ref sc1 3))) e-5)))))) -(define CoreC-45CaseBuilder-getFirstArgType (lambda (arg-3) (let ((sc0 arg-3)) (let ((e-3 (car sc0))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 4))) e-6)))))) -(define CoreC-45CaseBuilder-findReached (lambda (arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (PreludeC-45Interfaces-concatMap (cons (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-2 arg-3))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) (lambda (eta-0) (CoreC-45CaseBuilder-n--19477-12104-u--findRAlts e-1 e-2 e-4 e-5 eta-0)) e-5)))))) ((1) (let ((e-7 (vector-ref sc0 1))) (cons e-7 '())))(else '()))))) -(define CoreC-45CaseBuilder-dropPat (lambda (arg-3 arg-5) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (let ((sc1 arg-5)) (let ((e-5 (cdr sc1))) e-5)))(else (let ((e-0 (- arg-3 1))) (let ((sc0 arg-5)) (let ((e-9 (car sc0))) (let ((e-10 (cdr sc0))) (cons e-9 (CoreC-45CaseBuilder-dropPat e-0 e-10))))))))))) -(define CoreC-45CaseBuilder-conRule (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-8)) (if (null? sc0) (PreludeC-45Types-maybe (lambda () (lambda (eta-0) (vector 1 (vector 2 "No constructor clauses")))) (lambda () (lambda (eta-0) (lambda (eta-1) (vector 1 eta-0)))) arg-9) (let ((e-2 (car sc0))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (clam-0) (let ((sc2 e-7)) (let ((e-13 (car sc2))) (let ((sc3 e-13)) (let ((e-17 (vector-ref sc3 1))) (let ((e-18 (vector-ref sc3 2))) (let ((e-21 (vector-ref sc3 4))) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45CaseBuilder-substInClause arg-0 arg-1 arg-2 arg-4 arg-5 eta-0)) arg-8 '() clam-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 ((CoreC-45CaseBuilder-groupCons arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-6 e-5) clam-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-26 (let ((sc6 e-21)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 2))) (vector 1 e-4)))(else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 42 arg-5 arg-6 (vector 4 )) clam-0)))))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc6 1))) (CoreC-45CaseBuilder-caseGroups e-18 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-17 e-11 e-10 arg-9 clam-0))))))))))))))))))))))))))))))) -(define CoreC-45CaseBuilder-clauseType (lambda (arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (let ((sc1 e-3)) (let ((e-9 (car sc1))) (let ((e-10 (cdr sc1))) (let ((sc2 e-9)) (let ((e-13 (vector-ref sc2 1))) (let ((e-14 (vector-ref sc2 2))) (let ((e-15 (vector-ref sc2 3))) (let ((e-17 (vector-ref sc2 4))) (CoreC-45CaseBuilder-n--11920-5337-u--getClauseType e-13 e-14 e-17 e-15 e-10 e-5 e-4 e-2 arg-3 arg-3 e-15 e-17)))))))))))))))) -(define CoreC-45CaseBuilder-checkGroupMatch (lambda (arg-2 arg-3 arg-4) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((e-7 (vector-ref sc1 3))) (let ((e-8 (vector-ref sc1 4))) (let ((sc2 e-8)) (if (null? sc2) (vector 3 ) (let ((e-10 (car sc2))) (let ((e-11 (cdr sc2))) (let ((sc3 e-10)) (case (vector-ref sc3 0) ((0) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (let ((e-16 (vector-ref sc3 3))) (let ((e-17 (vector-ref sc3 4))) (CoreC-45CaseBuilder-case--checkGroupMatch-6190 e-1 e-0 e-5 e-17 e-16 e-15 e-14 e-11 e-7 e-6 arg-3 (LibrariesC-45DataC-45LengthMatch-checkLengthMatch arg-3 e-5)))))))(else (vector 3 )))))))))))))(else (vector 3 ))))))) ((1) (let ((sc1 arg-3)) (if (null? sc1) (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((1) (let ((e-23 (vector-ref sc2 3))) (let ((sc3 e-23)) (if (null? sc3) (vector 3 ) (let ((e-25 (car sc3))) (let ((sc4 e-25)) (case (vector-ref sc4 0) ((0) (vector 1 ))(else (vector 3 )))))))))(else (vector 3 )))) (vector 3 )))) ((2) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 arg-3)) (if (null? sc1) (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((2) (let ((e-36 (vector-ref sc2 1))) (let ((e-37 (vector-ref sc2 2))) (let ((sc3 e-37)) (if (null? sc3) (vector 3 ) (let ((e-39 (car sc3))) (let ((e-40 (cdr sc3))) (let ((sc4 e-39)) (case (vector-ref sc4 0) ((0) (let ((e-43 (vector-ref sc4 1))) (let ((e-44 (vector-ref sc4 2))) (let ((e-45 (vector-ref sc4 3))) (let ((e-46 (vector-ref sc4 4))) (CoreC-45CaseBuilder-case--checkGroupMatch-6409 e-2 e-46 e-45 e-44 e-43 e-40 e-36 (CoreC-45TT-constantEq e-2 e-36)))))))(else (vector 3 )))))))))))(else (vector 3 )))) (vector 3 )))))(else (vector 3 )))))) -(define CoreC-45CaseBuilder-caseGroups (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-11 arg-12 ext-0) (let ((act-24 ((CoreC-45CaseBuilder-n--17115-10209-u--altGroups arg-0 arg-2 arg-8 arg-1 arg-12 arg-11 arg-10 arg-7 arg-6 arg-5 arg-4 arg-3 arg-11) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (vector 0 arg-0 arg-8 (CoreC-45TT-resolveNames arg-1 arg-10) e-5))))))))) +(define CoreC-45CaseBuilder-mkPatClause (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((e-2 (car arg-6))) (let ((e-3 (cdr arg-6))) (PreludeC-45Types-maybe (lambda () (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 42 arg-1 arg-2 (vector 0 )) eta-0))) (lambda () (lambda (u--eq) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Normalise-nf arg-0 '() e-5 '() arg-4) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 ((CoreC-45CaseBuilder-n--15755-10689-u--mkNames e-2 e-3 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 arg-3 e-2 u--eq (box e-6)) eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-4 (vector-ref act-26 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (CoreC-45ContextC-45Log-log arg-0 "compile.casetree" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))))))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Make pat clause for names " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45CaseBuilder-u--show_Show_C-40C-40NamedPatsC-32C-36varsC-41C-32C-36todoC-41 arg-3 arg-3 e-7) (PreludeC-45TypesC-45String-C-43C-43 " in LHS " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45CaseTree-u--show_Show_Pat u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45CaseTree-u--showPrec_Show_Pat u--d u--x)))) e-2))))) eta-0))) (case (vector-ref act-27 0) ((0) (let ((e-4 (vector-ref act-27 1))) (vector 0 e-4))) (else (vector 1 (vector '() e-7 arg-5 (CoreC-45TT-u--weakenNs_Weaken_Term (CoreC-45TTC-45SizeOf-mkSizeOf arg-3) e-3))))))))))))))))))))) (LibrariesC-45DataC-45LengthMatch-checkLengthMatch arg-3 e-2)))))) +(define CoreC-45CaseBuilder-mkPat (lambda (arg-0 arg-1 arg-2 arg-3) (case (vector-ref arg-3 0) ((1) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-3 (vector-ref arg-3 3))) (lambda (clam-0) (case (vector-ref e-2 0) ((0) (vector 1 (vector 6 e-1 e-3))) ((2) (let ((e-28 (vector-ref e-2 1))) (let ((e-29 (vector-ref e-2 2))) (vector 1 (vector 1 e-1 e-3 e-28 e-29 arg-1))))) ((3) (let ((e-31 (vector-ref e-2 2))) (vector 1 (vector 2 e-1 e-3 e-31 arg-1)))) ((1) (let ((act-24 (CoreC-45Context-getPrimitiveNames arg-0 clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-normalisePrims arg-0 '() (lambda (eta-0) 1) (lambda (eta-0) (CoreC-45CaseTree-isPConst eta-0)) 1 e-5 e-3 arg-1 arg-2 '() clam-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref act-25 1))) (if (null? e-6) (let ((act-26 (CoreC-45ContextC-45Log-log arg-0 "compile.casetree" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Unmatchable function: " (CoreC-45Name-u--show_Show_Name e-3))) clam-0))) (case (vector-ref act-26 0) ((0) (let ((e-4 (vector-ref act-26 1))) (vector 0 e-4))) (else (vector 1 (vector 7 (CoreC-45TT-getLoc arg-2) arg-2))))) (let ((e-4 (unbox e-6))) ((CoreC-45CaseBuilder-mkPat arg-0 '() e-4 e-4) clam-0))))))))))))(else (let ((act-24 (CoreC-45ContextC-45Log-log arg-0 "compile.casetree" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Catchall: marking " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() arg-3) " as unmatchable"))) clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (vector 1 (vector 7 (CoreC-45TT-getLoc arg-2) arg-2)))))))))))) ((3) (let ((e-5 (vector-ref arg-3 1))) (let ((e-6 (vector-ref arg-3 2))) (let ((e-7 (vector-ref arg-3 3))) (let ((e-8 (vector-ref arg-3 4))) (case (vector-ref e-7 0) ((2) (let ((e-36 (vector-ref e-7 4))) (let ((u--tC-39 (CoreC-45TTC-45SubstEnv-subst (vector 10 e-5 0) e-8))) (lambda (eta-0) (let ((act-24 ((CoreC-45CaseBuilder-mkPat arg-0 '() e-36 e-36) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45CaseBuilder-mkPat arg-0 '() u--tC-39 u--tC-39) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref act-25 1))) (vector 1 (vector 4 e-5 e-6 e-9 e-10))))))))))))))(else (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-log arg-0 "compile.casetree" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Catchall: marking " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() arg-3) " as unmatchable"))) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (vector 1 (vector 7 (CoreC-45TT-getLoc arg-2) arg-2))))))))))))) ((4) (let ((e-11 (vector-ref arg-3 2))) (let ((e-12 (vector-ref arg-3 3))) (lambda (eta-0) (let ((act-24 ((CoreC-45CaseBuilder-mkPat arg-0 '() e-12 e-12) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) ((CoreC-45CaseBuilder-mkPat arg-0 (cons e-5 arg-1) arg-2 e-11) eta-0))))))))) ((5) (let ((e-14 (vector-ref arg-3 1))) (let ((e-16 (vector-ref arg-3 3))) (let ((e-17 (vector-ref arg-3 4))) (case (vector-ref e-16 0) ((1) (let ((e-39 (vector-ref e-16 2))) (let ((e-40 (vector-ref e-16 3))) (case (vector-ref e-39 0) ((0) (lambda (eta-0) (let ((act-24 ((CoreC-45CaseBuilder-mkPat arg-0 '() e-17 e-17) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 0 e-14 e-40 e-5))))))))(else (CoreC-45CaseBuilder-mkPat arg-0 '() arg-2 e-17))))))(else (CoreC-45CaseBuilder-mkPat arg-0 '() arg-2 e-17))))))) ((7) (let ((e-19 (vector-ref arg-3 1))) (let ((e-20 (vector-ref arg-3 2))) (let ((e-21 (vector-ref arg-3 3))) (let ((e-22 (vector-ref arg-3 4))) (lambda (eta-0) (let ((act-24 ((CoreC-45CaseBuilder-mkPat arg-0 '() arg-2 e-21) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45CaseBuilder-mkPat arg-0 '() arg-2 e-22) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (vector 5 e-19 e-20 e-5 e-6)))))))))))))))) ((9) (let ((e-24 (vector-ref arg-3 1))) (let ((e-25 (vector-ref arg-3 2))) (lambda (eta-0) (vector 1 (let ((sc1 (PreludeC-45EqOrd-u--C-61C-61_Eq_Int (CoreC-45TT-constTag e-25) (blodwen-toSignedInt 0 63)))) (cond ((equal? sc1 1) (vector 3 e-24 e-25)) (else (vector 2 e-24 (vector 1 (CoreC-45TT-u--show_Show_Constant e-25)) 0 '()))))))))) ((11) (let ((e-27 (vector-ref arg-3 1))) (lambda (eta-0) (vector 1 (vector 2 e-27 (vector 1 "Type") 0 '())))))(else (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-log arg-0 "compile.casetree" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Catchall: marking " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() arg-3) " as unmatchable"))) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (vector 1 (vector 7 (CoreC-45TT-getLoc arg-2) arg-2)))))))))) +(define CoreC-45CaseBuilder-mixture (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (case (vector-ref arg-9 0) ((0) (let ((e-3 (vector-ref arg-9 1))) (let ((e-5 (vector-ref arg-9 3))) (let ((e-6 (vector-ref arg-9 4))) (let ((e-7 (vector-ref arg-9 5))) (if (null? e-3) (lambda (clam-0) (vector 1 arg-10)) (lambda (eta-0) (let ((act-24 ((CoreC-45CaseBuilder-mixture arg-0 arg-1 arg-2 arg-3 arg-4 e-5 arg-6 arg-7 arg-8 e-7 arg-10) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45CaseBuilder-conRule arg-0 arg-1 arg-2 arg-3 arg-4 arg-6 arg-7 arg-8 e-6 e-8) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-25 1))) (vector 1 (box e-9))))))))))))))))) ((1) (let ((e-8 (vector-ref arg-9 1))) (let ((e-10 (vector-ref arg-9 3))) (let ((e-11 (vector-ref arg-9 4))) (let ((e-12 (vector-ref arg-9 5))) (if (null? e-8) (lambda (clam-1) (vector 1 arg-10)) (lambda (eta-0) (let ((act-24 ((CoreC-45CaseBuilder-mixture arg-0 arg-1 arg-2 arg-3 arg-4 e-10 arg-6 arg-7 arg-8 e-12 arg-10) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45CaseBuilder-varRule arg-0 arg-1 arg-2 arg-3 arg-4 arg-6 arg-7 arg-8 e-11 e-5 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (box e-6)))))))))))))))))(else (lambda (clam-2) (vector 1 arg-10)))))) +(define CoreC-45CaseBuilder-match (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (if (null? arg-1) (if (null? arg-7) (PreludeC-45Types-maybe (lambda () (lambda (eta-0) (vector 1 (vector 2 "No patterns")))) (lambda () (lambda (eta-0) (lambda (eta-1) (vector 1 eta-0)))) arg-8) (let ((e-6 (car arg-7))) (let ((e-11 (vector-ref e-6 1))) (let ((e-12 (vector-ref e-6 2))) (let ((e-13 (vector-ref e-6 3))) (lambda (clam-0) (case (vector-ref e-13 0) ((10) (let ((e-17 (vector-ref e-13 2))) (cond ((equal? e-17 1) (vector 1 (vector 3 )))(else (vector 1 (vector 1 e-12 e-13))))))(else (vector 1 (vector 1 e-12 e-13)))))))))) (let ((e-1 (car arg-1))) (let ((e-2 (cdr arg-1))) (lambda (eta-0) (let ((act-24 (CoreC-45CaseBuilder-pickNext e-1 arg-0 e-2 arg-2 arg-3 arg-4 arg-6 arg-5 (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (CoreC-45CaseBuilder-getNPs eta-1)) arg-7) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref act-24 1))) (let ((e-4 (car e-5))) (let ((e-3 (cdr e-5))) (let ((act-25 (CoreC-45ContextC-45Log-log arg-3 "compile.casetree.pick" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))))))))))))))))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Picked " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-4) " as the next split"))) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-6 (vector-ref act-25 1))) (vector 0 e-6))) (else (let ((u--clausesC-39 (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (CoreC-45CaseBuilder-shuffleVars e-3 eta-1)) arg-7))) (let ((act-26 (CoreC-45ContextC-45Log-log arg-3 "compile.casetree.clauses" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))))))))))))))))))))))) (lambda () (LibrariesC-45DataC-45StringC-45Extra-unlines (cons "Using clauses:" (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (PreludeC-45TypesC-45String-C-43C-43 " " (CoreC-45CaseBuilder-u--show_Show_C-40C-40PatClauseC-32C-36varsC-41C-32C-36todoC-41 arg-0 (cons e-4 (CoreC-45TT-dropVar (cons e-1 e-2) e-3)) eta-1))) u--clausesC-39)))) eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-7 (vector-ref act-26 1))) (vector 0 e-7))) (else (let ((u--ps (CoreC-45CaseBuilder-partition e-4 (CoreC-45TT-dropVar (cons e-1 e-2) e-3) arg-0 arg-6 u--clausesC-39))) (let ((act-27 (CoreC-45ContextC-45Log-log arg-3 "compile.casetree.partition" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))))))))))))))))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Got Partition:\u000a" (CoreC-45CaseBuilder-u--show_Show_C-40PartitionsC-32C-36psC-41 u--clausesC-39 u--ps))) eta-0))) (case (vector-ref act-27 0) ((0) (let ((e-8 (vector-ref act-27 1))) (vector 0 e-8))) (else (let ((act-28 ((CoreC-45CaseBuilder-mixture e-4 arg-0 (CoreC-45TT-dropVar (cons e-1 e-2) e-3) arg-2 arg-3 u--clausesC-39 arg-4 arg-5 arg-6 u--ps arg-8) eta-0))) (case (vector-ref act-28 0) ((0) (let ((e-9 (vector-ref act-28 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref act-28 1))) (if (null? e-9) (let ((act-29 (CoreC-45ContextC-45Log-log arg-3 "compile.casetree.intermediate" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))))))))))))))))))))))) (lambda () "match: No clauses") eta-0))) (case (vector-ref act-29 0) ((0) (let ((e-10 (vector-ref act-29 1))) (vector 0 e-10))) (else (vector 1 (vector 2 "No clauses"))))) (let ((e-10 (unbox e-9))) (let ((act-29 (CoreC-45ContextC-45Log-log arg-3 "compile.casetree.intermediate" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))))))))))))))))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "match: new case tree " (CoreC-45CaseTree-u--show_Show_C-40CaseTreeC-32C-36varsC-41 arg-0 e-10))) eta-0))) (case (vector-ref act-29 0) ((0) (let ((e-11 (vector-ref act-29 1))) (vector 0 e-11))) (else (vector 1 e-10))))))))))))))))))))))))))))))))) +(define CoreC-45CaseBuilder-groupCons (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (CoreC-45CaseBuilder-n--11489-6929-u--gc arg-0 arg-1 arg-2 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-0 arg-1 arg-2 '() arg-8))) +(define CoreC-45CaseBuilder-getScore (lambda (arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 ext-0) (CoreC-45Core-u--catch_Catchable_Core_Error (lambda (eta-0) (let ((act-24 (CoreC-45CaseBuilder-sameType arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (CoreC-45Env-mkEnv arg-5 arg-2) arg-8 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (vector 1 (vector 1 0)))))) (lambda (lcase-0) (lambda (clam-0) (case (vector-ref lcase-0 0) ((42) (let ((e-2 (vector-ref lcase-0 3))) (vector 1 (vector 0 e-2))))(else (CoreC-45Core-u--throw_Catchable_Core_Error lcase-0 clam-0))))) ext-0))) +(define CoreC-45CaseBuilder-getPatInfo (lambda (arg-2) (if (null? arg-2) '() (let ((e-4 (car arg-2))) (let ((e-5 (cdr arg-2))) (cons (let ((e-7 (vector-ref e-4 2))) e-7) (CoreC-45CaseBuilder-getPatInfo e-5))))))) +(define CoreC-45CaseBuilder-getPat (lambda (arg-3 arg-5) (cond ((equal? arg-3 0) (let ((e-4 (car arg-5))) e-4))(else (let ((e-0 (- arg-3 1))) (let ((e-10 (cdr arg-5))) (CoreC-45CaseBuilder-getPat e-0 e-10))))))) +(define CoreC-45CaseBuilder-getPMDef (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (if (null? arg-5) (let ((act-24 (CoreC-45ContextC-45Log-log arg-0 "compile.casetree.getpmdef" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))))))))))))) (lambda () "getPMDef: No clauses!") ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 (let ((act-25 (unbox arg-0))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 ((CoreC-45Normalise-nf arg-0 '() e-6 '() arg-4) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (CoreC-45CaseBuilder-n--16982-11868-u--getArgs arg-4 arg-3 arg-2 arg-1 arg-0 0 e-7 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (vector 1 (cons e-8 (cons (vector 2 "No clauses") '())))))))))))))))))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((u--cs (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45CaseBuilder-n--16982-11971-u--toClosed arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 eta-0)) (CoreC-45CaseBuilder-n--16982-11968-u--labelPat arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 0 arg-5)))) (let ((act-25 (CoreC-45CaseBuilder-simpleCase arg-0 arg-1 arg-2 arg-3 arg-4 '() u--cs ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((e-2 (car e-6))) (let ((e-3 (cdr e-6))) (let ((act-26 (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40CaseTreeC-32C-36varsC-41 arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40CaseTreeC-32C-36varsC-41 arg-3843 arg-3844 eta-0))))) e-3 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-4 (vector-ref act-26 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref act-26 1))) (CoreC-45ContextC-45Log-unverifiedLogC arg-0 "compile.casetree.getpmdef" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))))))))))))) (lambda (eta-0) (vector 1 (PreludeC-45TypesC-45String-C-43C-43 "Compiled to: " (CoreC-45CaseTree-u--show_Show_C-40CaseTreeC-32C-36varsC-41 e-2 e-7)))) ext-0))))))) (case (vector-ref act-26 0) ((0) (let ((e-4 (vector-ref act-26 1))) (vector 0 e-4))) (else (let ((u--reached (CoreC-45CaseBuilder-findReached e-3))) (vector 1 (cons e-2 (cons e-3 (CoreC-45CaseBuilder-n--16982-11967-u--getUnreachable arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 0 u--reached arg-5)))))))))))))))))))))) +(define CoreC-45CaseBuilder-getNPs (lambda (arg-2) (let ((e-3 (vector-ref arg-2 1))) e-3))) +(define CoreC-45CaseBuilder-getFirstPat (lambda (arg-3) (let ((e-3 (car arg-3))) (let ((e-5 (vector-ref e-3 2))) e-5)))) +(define CoreC-45CaseBuilder-getFirstArgType (lambda (arg-3) (let ((e-3 (car arg-3))) (let ((e-6 (vector-ref e-3 3))) e-6)))) +(define CoreC-45CaseBuilder-findReached (lambda (arg-1) (case (vector-ref arg-1 0) ((0) (let ((e-1 (vector-ref arg-1 1))) (let ((e-2 (vector-ref arg-1 2))) (let ((e-4 (vector-ref arg-1 3))) (let ((e-5 (vector-ref arg-1 4))) (PreludeC-45Interfaces-concatMap (cons (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-2 arg-3))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) (lambda (eta-0) (CoreC-45CaseBuilder-n--16905-11794-u--findRAlts e-1 e-2 e-4 e-5 eta-0)) e-5)))))) ((1) (let ((e-7 (vector-ref arg-1 1))) (cons e-7 '())))(else '())))) +(define CoreC-45CaseBuilder-dropPat (lambda (arg-3 arg-5) (cond ((equal? arg-3 0) (let ((e-5 (cdr arg-5))) e-5))(else (let ((e-0 (- arg-3 1))) (let ((e-9 (car arg-5))) (let ((e-10 (cdr arg-5))) (cons e-9 (CoreC-45CaseBuilder-dropPat e-0 e-10))))))))) +(define CoreC-45CaseBuilder-conRule (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (if (null? arg-8) (PreludeC-45Types-maybe (lambda () (lambda (eta-0) (vector 1 (vector 2 "No constructor clauses")))) (lambda () (lambda (eta-0) (lambda (eta-1) (vector 1 eta-0)))) arg-9) (let ((e-2 (car arg-8))) (let ((e-6 (vector-ref e-2 0))) (let ((e-7 (vector-ref e-2 1))) (lambda (clam-0) (let ((e-13 (car e-7))) (let ((e-17 (vector-ref e-13 0))) (let ((e-18 (vector-ref e-13 1))) (let ((e-21 (vector-ref e-13 3))) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45CaseBuilder-substInClause arg-0 arg-1 arg-2 arg-4 arg-5 eta-0)) arg-8 '() clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45CaseBuilder-groupCons arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-6 e-5) clam-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref act-25 1))) (let ((act-26 (case (vector-ref e-21 0) ((0) (let ((e-4 (vector-ref e-21 2))) (vector 1 e-4)))(else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 42 arg-5 arg-6 (vector 4 )) clam-0))))) (case (vector-ref act-26 0) ((0) (let ((e-4 (vector-ref act-26 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref act-26 1))) (CoreC-45CaseBuilder-caseGroups e-18 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-17 e-11 e-10 arg-9 clam-0)))))))))))))))))))))))) +(define CoreC-45CaseBuilder-clauseType (lambda (arg-3 arg-4) (let ((e-2 (vector-ref arg-4 0))) (let ((e-3 (vector-ref arg-4 1))) (let ((e-4 (vector-ref arg-4 2))) (let ((e-5 (vector-ref arg-4 3))) (let ((e-9 (car e-3))) (let ((e-10 (cdr e-3))) (let ((e-13 (vector-ref e-9 0))) (let ((e-14 (vector-ref e-9 1))) (let ((e-15 (vector-ref e-9 2))) (let ((e-17 (vector-ref e-9 3))) (CoreC-45CaseBuilder-n--9210-4968-u--getClauseType e-13 e-14 e-17 e-15 e-10 e-5 e-4 e-2 arg-3 arg-3 e-15 e-17))))))))))))) +(define CoreC-45CaseBuilder-checkGroupMatch (lambda (arg-2 arg-3 arg-4) (case (vector-ref arg-2 0) ((0) (let ((e-0 (vector-ref arg-2 1))) (let ((e-1 (vector-ref arg-2 2))) (case (vector-ref arg-4 0) ((0) (let ((e-5 (vector-ref arg-4 1))) (let ((e-6 (vector-ref arg-4 2))) (let ((e-7 (vector-ref arg-4 3))) (let ((e-8 (vector-ref arg-4 4))) (if (null? e-8) (vector 3 ) (let ((e-10 (car e-8))) (let ((sc3 (LibrariesC-45DataC-45LengthMatch-checkLengthMatch arg-3 e-5))) (if (null? sc3) (vector 3 ) (let ((e-2 (unbox sc3))) (let ((sc4 (CoreC-45Name-nameEq e-0 e-6))) (if (null? sc4) (vector 3 ) (let ((e-9 (unbox sc4))) (cond ((equal? e-9 0) (let ((sc6 (DecidableC-45Equality-u--decEq_DecEq_Int e-1 e-7))) (case (vector-ref sc6 0) ((0) (let ((e-12 (vector-ref sc6 1))) (cond ((equal? e-12 0) (vector 0 e-2))(else (vector 3 )))))(else (vector 3 )))))(else (vector 3 ))))))))))))))))(else (vector 3 )))))) ((1) (if (null? arg-3) (case (vector-ref arg-4 0) ((1) (let ((e-23 (vector-ref arg-4 3))) (if (null? e-23) (vector 3 ) (let ((e-25 (car e-23))) (vector 1 )))))(else (vector 3 ))) (vector 3 ))) ((2) (let ((e-2 (vector-ref arg-2 1))) (if (null? arg-3) (case (vector-ref arg-4 0) ((2) (let ((e-36 (vector-ref arg-4 1))) (let ((e-37 (vector-ref arg-4 2))) (if (null? e-37) (vector 3 ) (let ((e-39 (car e-37))) (let ((sc4 (CoreC-45TT-constantEq e-2 e-36))) (if (null? sc4) (vector 3 ) (let ((e-3 (unbox sc4))) (cond (else (vector 2 )))))))))))(else (vector 3 ))) (vector 3 ))))(else (vector 3 ))))) +(define CoreC-45CaseBuilder-caseGroups (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-11 arg-12 ext-0) (let ((act-24 ((CoreC-45CaseBuilder-n--14459-9897-u--altGroups arg-0 arg-2 arg-8 arg-1 arg-12 arg-11 arg-10 arg-7 arg-6 arg-5 arg-4 arg-3 arg-11) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 0 arg-0 arg-8 (CoreC-45TT-resolveNames arg-1 arg-10) e-5)))))))) (define CoreC-45CaseBuilder-argToPat (lambda (arg-0 arg-1) (CoreC-45CaseBuilder-mkPat arg-0 '() arg-1 arg-1))) -(define CoreC-45CaseBuilder-C-43C-43 (lambda (arg-3 arg-4) (let ((sc0 arg-3)) (if (null? sc0) arg-4 (let ((e-4 (car sc0))) (let ((e-5 (cdr sc0))) (cons e-4 (CoreC-45CaseBuilder-C-43C-43 e-5 arg-4)))))))) -(define LibrariesC-45DataC-45LengthMatch-checkLengthMatch (lambda (arg-2 arg-3) (let ((sc0 arg-2)) (if (null? sc0) (let ((sc1 arg-3)) (if (null? sc1) (vector 1 (vector 0 )) (vector 0 ))) (let ((e-3 (cdr sc0))) (let ((sc1 arg-3)) (if (null? sc1) (vector 0 ) (let ((e-11 (cdr sc1))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (LibrariesC-45DataC-45LengthMatch-checkLengthMatch e-3 e-11) (lambda (bind-0) (vector 1 (vector 1 bind-0)))))))))))) -(define TTImpC-45ProcessRunElab-processRunElab (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((sc1 (CoreC-45Context-isExtension (vector 0 ) e-5))) (cond ((equal? sc1 0) (vector 1 (vector 0 ))) (else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-7 "%language ElabReflection not enabled") ext-0)))))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45Context-resolveName arg-1 (vector 1 "[elaborator script]") ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((u--n (vector 0 (CoreC-45NameC-45Namespace-reflectionNS) (vector 1 "Elab")))) (let ((act-27 (CoreC-45Reflect-getCon arg-0 arg-7 e-5 (CoreC-45Reflect-builtin "Unit") ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (CoreC-45Reflect-appCon arg-0 arg-7 e-5 u--n (cons e-8 '()) ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-29 (TTImpC-45Elab-checkTerm arg-0 arg-1 arg-2 arg-3 e-7 (vector 2 ) arg-4 arg-5 arg-6 arg-8 (CoreC-45Normalise-gnf arg-0 arg-6 e-9) ext-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-30 ((CoreC-45Normalise-nfOpts arg-1 arg-0 (CoreC-45Value-withAll) e-5 arg-6 e-10) ext-0))) (let ((sc6 act-30)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc6 1))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc7 eta-0)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))) (lambda (eta-0) (TTImpC-45ElabC-45RunElab-elabScript arg-0 arg-1 arg-2 arg-3 arg-7 arg-5 arg-6 e-11 (vector 0 ) eta-0)) ext-0)))))))))))))))))))))))))))))))))))))) -(define TTImpC-45ProcessRecord-case--caseC-32blockC-32inC-32elabRecordC-44elabGetters-2254 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34) (let ((sc0 arg-34)) (cond ((equal? sc0 0) (AlgebraC-45Semiring-erased (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)))) (else (AlgebraC-45ZeroOneOmega-u--top_Top_ZeroOneOmega)))))) -(define TTImpC-45ProcessRecord-case--caseC-32blockC-32inC-32elabRecordC-44elabGetters-2102 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34) (let ((sc0 arg-34)) (cond ((equal? sc0 0) (cons (vector 17 (vector 1 ) arg-27) '())) (else '()))))) -(define TTImpC-45ProcessRecord-case--caseC-32blockC-32inC-32elabRecordC-44elabGetters-1950 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35) (let ((sc0 arg-35)) (cond ((equal? sc0 0) arg-34) (else (vector 10 arg-22 arg-34 (vector 1 arg-27) (vector 17 arg-22 arg-27))))))) -(define TTImpC-45ProcessRecord-case--caseC-32blockC-32inC-32elabRecordC-44elabGetters-1786 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 arg-38) (let ((sc0 arg-38)) (cond ((equal? sc0 0) (+ 1 arg-25)) (else arg-25))))) -(define TTImpC-45ProcessRecord-case--caseC-32blockC-32inC-32elabRecordC-44elabGetters-1618 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 arg-38) (let ((sc0 arg-38)) (cond ((equal? sc0 0) (AlgebraC-45Semiring-erased (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)))) (else (AlgebraC-45ZeroOneOmega-u--top_Top_ZeroOneOmega)))))) -(define TTImpC-45ProcessRecord-case--caseC-32blockC-32inC-32elabRecordC-44elabGetters-1202 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27) (let ((sc0 arg-27)) (cond ((equal? sc0 0) (+ 1 arg-25)) (else arg-25))))) -(define TTImpC-45ProcessRecord-case--elabRecordC-44elabGetters-1126 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27) (let ((sc0 arg-27)) (cond ((equal? sc0 0) (TTImpC-45ProcessRecord-n--10761-775-u--elabGetters arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (cons arg-16 arg-14) arg-26 (TTImpC-45ProcessRecord-case--caseC-32blockC-32inC-32elabRecordC-44elabGetters-1202 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 (PreludeC-45Basics-C-38C-38 (CoreC-45TT-u--C-61C-61_Eq_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-28) (lambda (arg-29) (CoreC-45TT-u--C-61C-61_Eq_C-40TermC-32C-36varsC-41 arg-28 arg-29))) (lambda (arg-28) (lambda (arg-29) (CoreC-45TT-u--C-47C-61_Eq_C-40TermC-32C-36varsC-41 arg-28 arg-29)))) arg-19 (vector 1 )) (lambda () (let ((sc1 (PreludeC-45Types-elem (cons (lambda (arg-28) (lambda (arg-29) (CoreC-45Name-u--C-61C-61_Eq_Name arg-28 arg-29))) (lambda (arg-28) (lambda (arg-29) (CoreC-45Name-u--C-47C-61_Eq_Name arg-28 arg-29)))) arg-16 arg-6))) (cond ((equal? sc1 0) 1) (else 0)))))) arg-24 (cons arg-21 arg-23) arg-17)) (else (let ((u--fldNameStr (CoreC-45Name-nameRoot arg-16))) (lambda (eta-0) (let ((act-24 (CoreC-45Context-inCurrentNS arg-13 (vector 5 u--fldNameStr) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Context-inCurrentNS arg-13 (vector 1 u--fldNameStr) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((TTImpC-45Unelab-unelab arg-14 arg-13 arg-23 arg-18) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((u--tyC-39 (TTImpC-45Utils-substNames arg-6 arg-24 e-7))) (let ((act-27 (CoreC-45ContextC-45Log-log arg-13 "declare.record.field" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Field type: " (TTImpC-45TTImp-u--show_Show_RawImp u--tyC-39))) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((u--rname (vector 2 "rec" 0))) (let ((act-28 (TTImpC-45BindImplicits-bindTypeNames arg-13 '() (PreludeC-45TypesC-45List-C-43C-43 (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-fst eta-1)) arg-2) (PreludeC-45TypesC-45List-C-43C-43 (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (TTImpC-45ProcessRecord-n--10761-769-u--fname arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 eta-1)) arg-0) arg-6)) (TTImpC-45ProcessRecord-n--10761-771-u--mkTy arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (TTImpC-45ProcessRecord-n--10761-768-u--paramTelescope arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (vector 1 arg-22 (AlgebraC-45ZeroOneOmega-u--top_Top_ZeroOneOmega) (vector 1 ) (vector 1 u--rname) (TTImpC-45ProcessRecord-n--10761-772-u--recTy arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) u--tyC-39)) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 (CoreC-45ContextC-45Log-log arg-13 "declare.record.projection" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Projection " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-5) (PreludeC-45TypesC-45String-C-43C-43 " : " (TTImpC-45TTImp-u--show_Show_RawImp e-9))))) eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((act-30 ((TTImpC-45ElabC-45Check-processDecl arg-6 arg-13 arg-12 arg-11 '() arg-7 arg-8 (vector 0 arg-22 (TTImpC-45ProcessRecord-case--caseC-32blockC-32inC-32elabRecordC-44elabGetters-2254 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 u--fldNameStr e-5 e-6 e-7 u--tyC-39 u--rname e-9 (AlgebraC-45Semiring-isErased (cons (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-28) (lambda (arg-29) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-28 arg-29))) (lambda (arg-28) (lambda (arg-29) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-28 arg-29))))) arg-20)) (TTImpC-45ProcessRecord-projVis arg-4) (cons (vector 0 ) '()) (vector 0 (vector 1 ) (vector 1 ) e-5 e-9))) eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((u--lhs_exp (TTImpC-45TTImp-apply (vector 0 arg-22 arg-26) (PreludeC-45TypesC-45List-C-43C-43 (DataC-45List-replicate arg-25 (vector 32 arg-22 0)) (PreludeC-45TypesC-45List-C-43C-43 (TTImpC-45ProcessRecord-case--caseC-32blockC-32inC-32elabRecordC-44elabGetters-2102 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 u--fldNameStr e-5 e-6 e-7 u--tyC-39 u--rname e-9 (CoreC-45TT-u--C-61C-61_Eq_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-28) (lambda (arg-29) (CoreC-45TT-u--C-61C-61_Eq_C-40TermC-32C-36varsC-41 arg-28 arg-29))) (lambda (arg-28) (lambda (arg-29) (CoreC-45TT-u--C-47C-61_Eq_C-40TermC-32C-36varsC-41 arg-28 arg-29)))) arg-19 (vector 1 ))) (DataC-45List-replicate (TTImpC-45ProcessRecord-n--10761-774-u--countExp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-17) (vector 32 arg-22 0))))))) (let ((u--lhs (vector 8 arg-22 (vector 0 arg-22 e-5) (TTImpC-45ProcessRecord-case--caseC-32blockC-32inC-32elabRecordC-44elabGetters-1950 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 u--fldNameStr e-5 e-6 e-7 u--tyC-39 u--rname e-9 u--lhs_exp (CoreC-45TT-u--C-61C-61_Eq_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-28) (lambda (arg-29) (CoreC-45TT-u--C-61C-61_Eq_C-40TermC-32C-36varsC-41 arg-28 arg-29))) (lambda (arg-28) (lambda (arg-29) (CoreC-45TT-u--C-47C-61_Eq_C-40TermC-32C-36varsC-41 arg-28 arg-29)))) arg-19 (vector 1 )))))) (let ((u--rhs (vector 0 (vector 1 ) (vector 1 u--fldNameStr)))) (let ((act-31 (CoreC-45ContextC-45Log-log arg-13 "declare.record.projection" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Projection " (PreludeC-45TypesC-45String-C-43C-43 (TTImpC-45TTImp-u--show_Show_RawImp u--lhs) (PreludeC-45TypesC-45String-C-43C-43 " = " (TTImpC-45TTImp-u--show_Show_RawImp u--rhs))))) eta-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((act-32 ((TTImpC-45ElabC-45Check-processDecl arg-6 arg-13 arg-12 arg-11 '() arg-7 arg-8 (vector 2 arg-22 e-5 (cons (vector 0 arg-22 u--lhs u--rhs) '()))) eta-0))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((act-33 (let ((act-33 (CoreC-45Context-isPrefixRecordProjections arg-13 eta-0))) (let ((sc10 act-33)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref sc10 1))) (let ((sc11 e-14)) (cond ((equal? sc11 0) (let ((act-34 (CoreC-45ContextC-45Log-log arg-13 "declare.record.projection.prefix" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Prefix projection " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-6) (PreludeC-45TypesC-45String-C-43C-43 " : " (TTImpC-45TTImp-u--show_Show_RawImp e-9))))) eta-0))) (let ((sc12 act-34)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((act-35 ((TTImpC-45ElabC-45Check-processDecl arg-6 arg-13 arg-12 arg-11 '() arg-7 arg-8 (vector 0 arg-22 (TTImpC-45ProcessRecord-case--caseC-32blockC-32inC-32elabRecordC-44elabGetters-1618 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 u--fldNameStr e-5 e-6 e-7 u--tyC-39 u--rname e-9 u--lhs_exp u--lhs u--rhs e-14 (AlgebraC-45Semiring-isErased (cons (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-28) (lambda (arg-29) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-28 arg-29))) (lambda (arg-28) (lambda (arg-29) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-28 arg-29))))) arg-20)) (TTImpC-45ProcessRecord-projVis arg-4) (cons (vector 0 ) '()) (vector 0 (vector 1 ) (vector 1 ) e-6 e-9))) eta-0))) (let ((sc13 act-35)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((lhs-0 (vector 0 arg-22 e-6))) (let ((rhs-0 (vector 0 arg-22 e-5))) (let ((act-36 (CoreC-45ContextC-45Log-log arg-13 "declare.record.projection.prefix" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Prefix projection " (PreludeC-45TypesC-45String-C-43C-43 (TTImpC-45TTImp-u--show_Show_RawImp lhs-0) (PreludeC-45TypesC-45String-C-43C-43 " = " (TTImpC-45TTImp-u--show_Show_RawImp rhs-0))))) eta-0))) (let ((sc14 act-36)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else ((TTImpC-45ElabC-45Check-processDecl arg-6 arg-13 arg-12 arg-11 '() arg-7 arg-8 (vector 2 arg-22 e-6 (cons (vector 0 arg-22 lhs-0 rhs-0) '()))) eta-0)))))))))))))))) (else (vector 1 (vector 0 )))))))))))) (let ((sc10 act-33)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((u--updsC-39 (cons (cons arg-16 (vector 8 arg-22 (vector 0 arg-22 e-6) (vector 0 arg-22 u--rname))) arg-24))) ((TTImpC-45ProcessRecord-n--10761-775-u--elabGetters arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (cons arg-16 arg-14) arg-26 (TTImpC-45ProcessRecord-case--caseC-32blockC-32inC-32elabRecordC-44elabGetters-1786 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 u--fldNameStr e-5 e-6 e-7 u--tyC-39 u--rname e-9 u--lhs_exp u--lhs u--rhs u--updsC-39 (CoreC-45TT-u--C-61C-61_Eq_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-28) (lambda (arg-29) (CoreC-45TT-u--C-61C-61_Eq_C-40TermC-32C-36varsC-41 arg-28 arg-29))) (lambda (arg-28) (lambda (arg-29) (CoreC-45TT-u--C-47C-61_Eq_C-40TermC-32C-36varsC-41 arg-28 arg-29)))) arg-19 (vector 1 ))) u--updsC-39 (cons arg-21 arg-23) arg-17) eta-0)))))))))))))))))))))))))))))))))))))))))))))))))))))))))) -(define TTImpC-45ProcessRecord-n--10761-772-u--recTy (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (TTImpC-45ProcessRecord-n--10784-866-u--apply arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (vector 0 arg-9 arg-3) (PreludeC-45Types-u--map_Functor_List (lambda (lamc-0) (let ((sc0 lamc-0)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-3)) (let ((e-7 (cdr sc1))) (let ((sc2 e-7)) (let ((e-10 (car sc2))) (cons e-2 (cons (vector 0 (vector 1 ) e-2) e-10)))))))))) arg-2)))) -(define TTImpC-45ProcessRecord-n--10761-768-u--paramTelescope (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (TTImpC-45ProcessRecord-n--10780-776-u--jname arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 eta-0)) arg-2))) -(define TTImpC-45ProcessRecord-n--10761-771-u--mkTy (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-14)) (if (null? sc0) arg-15 (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (let ((sc2 e-7)) (let ((e-10 (car sc2))) (let ((e-11 (cdr sc2))) (let ((sc3 e-11)) (let ((e-14 (car sc3))) (let ((e-15 (cdr sc3))) (let ((sc4 e-15)) (let ((e-18 (car sc4))) (let ((e-19 (cdr sc4))) (vector 1 e-6 e-14 e-18 e-10 e-19 (TTImpC-45ProcessRecord-n--10761-771-u--mkTy arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-3 arg-15)))))))))))))))))))) -(define TTImpC-45ProcessRecord-n--10780-776-u--jname (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-3)) (let ((e-7 (cdr sc1))) (let ((sc2 e-7)) (let ((e-11 (cdr sc2))) (cons (vector 1 ) (cons (vector 1 e-2) (cons (AlgebraC-45Semiring-erased (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))) (cons (vector 0 ) e-11))))))))))))) -(define TTImpC-45ProcessRecord-n--10761-769-u--fname (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (let ((e-3 (vector-ref sc0 4))) e-3)))) -(define TTImpC-45ProcessRecord-n--10761-770-u--farg (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (cons e-0 (cons (vector 1 e-3) (cons e-1 (cons e-2 e-4)))))))))))) -(define TTImpC-45ProcessRecord-n--10761-775-u--elabGetters (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-19)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (let ((e-9 (vector-ref sc1 4))) (let ((u--b (vector 2 e-6 e-7 e-8 e-9))) (TTImpC-45ProcessRecord-case--elabRecordC-44elabGetters-1126 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 e-6 e-2 e-4 e-9 e-8 e-7 u--b e-1 arg-18 arg-17 arg-16 arg-15 (PreludeC-45Basics-C-124C-124 (PreludeC-45Types-elem (cons (lambda (arg-20) (lambda (arg-21) (CoreC-45Name-u--C-61C-61_Eq_Name arg-20 arg-21))) (lambda (arg-20) (lambda (arg-21) (CoreC-45Name-u--C-47C-61_Eq_Name arg-20 arg-21)))) e-2 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-fst eta-0)) arg-2)) (lambda () (PreludeC-45Types-elem (cons (lambda (arg-20) (lambda (arg-21) (CoreC-45Name-u--C-61C-61_Eq_Name arg-20 arg-21))) (lambda (arg-20) (lambda (arg-21) (CoreC-45Name-u--C-47C-61_Eq_Name arg-20 arg-21)))) e-2 arg-6))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define TTImpC-45ProcessRecord-n--10761-773-u--elabAsData (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((u--conty (TTImpC-45ProcessRecord-n--10761-771-u--mkTy arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (TTImpC-45ProcessRecord-n--10761-768-u--paramTelescope arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (TTImpC-45ProcessRecord-n--10761-771-u--mkTy arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (TTImpC-45ProcessRecord-n--10761-770-u--farg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 eta-0)) arg-0) (TTImpC-45ProcessRecord-n--10761-772-u--recTy arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13))))) (lambda (eta-0) (let ((act-24 (TTImpC-45BindImplicits-bindTypeNames arg-13 '() (PreludeC-45TypesC-45List-C-43C-43 (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-fst eta-1)) arg-2) (PreludeC-45TypesC-45List-C-43C-43 (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (TTImpC-45ProcessRecord-n--10761-769-u--fname arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 eta-1)) arg-0) arg-6)) u--conty eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((u--con (vector 0 (vector 1 ) (vector 1 ) arg-14 e-5))) (let ((act-25 (TTImpC-45BindImplicits-bindTypeNames arg-13 '() (PreludeC-45TypesC-45List-C-43C-43 (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-fst eta-1)) arg-2) (PreludeC-45TypesC-45List-C-43C-43 (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (TTImpC-45ProcessRecord-n--10761-769-u--fname arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 eta-1)) arg-0) arg-6)) (TTImpC-45ProcessRecord-mkDataTy arg-9 arg-2) eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((u--dt (vector 0 arg-9 arg-3 e-6 '() (cons u--con '())))) (let ((act-26 (CoreC-45ContextC-45Log-log arg-13 "declare.record" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Record data type " (TTImpC-45TTImp-u--show_Show_ImpData u--dt))) eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTImpC-45ElabC-45Check-processDecl arg-6 arg-13 arg-12 arg-11 '() arg-7 arg-8 (vector 1 arg-9 arg-4 u--dt)) eta-0))))))))))))))))))))) -(define TTImpC-45ProcessRecord-n--10761-774-u--countExp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-15) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((3) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-8 (vector-ref sc1 3))) (let ((sc2 e-8)) (case (vector-ref sc2 0) ((1) (+ 1 (TTImpC-45ProcessRecord-n--10761-774-u--countExp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-4)))(else (TTImpC-45ProcessRecord-n--10761-774-u--countExp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-4))))))(else 0))))))(else 0))))) -(define TTImpC-45ProcessRecord-n--10784-866-u--apply (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (if (null? sc0) arg-14 (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (let ((sc2 e-7)) (let ((e-10 (car sc2))) (let ((e-11 (cdr sc2))) (let ((sc3 e-11)) (case (vector-ref sc3 0) ((1) (TTImpC-45ProcessRecord-n--10784-866-u--apply arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (vector 8 (TTImpC-45TTImp-getFC arg-14) arg-14 e-10) e-3))(else (TTImpC-45ProcessRecord-n--10784-866-u--apply arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (vector 10 (TTImpC-45TTImp-getFC arg-14) arg-14 e-6 e-10) e-3)))))))))))))))) -(define TTImpC-45ProcessRecord-projVis (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((2) (vector 2 ))(else (vector 0 )))))) -(define TTImpC-45ProcessRecord-processRecord (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 ext-0) (let ((sc0 arg-9)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (TTImpC-45ProcessRecord-elabRecord arg-0 arg-1 arg-2 arg-3 arg-4 e-0 arg-6 arg-5 arg-7 arg-8 e-1 e-2 e-3 e-4 ext-0))))))))) -(define TTImpC-45ProcessRecord-mkDataTy (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (if (null? sc0) (vector 29 arg-0) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (let ((sc2 e-7)) (let ((e-10 (car sc2))) (let ((e-11 (cdr sc2))) (let ((sc3 e-11)) (let ((e-14 (car sc3))) (let ((e-15 (cdr sc3))) (vector 1 arg-0 e-10 e-14 (vector 1 e-6) e-15 (TTImpC-45ProcessRecord-mkDataTy arg-0 e-3))))))))))))))))) -(define TTImpC-45ProcessRecord-elabRecord (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 ext-0) (let ((act-24 (CoreC-45Context-inCurrentNS arg-1 arg-12 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((TTImpC-45ProcessRecord-n--10761-773-u--elabAsData arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 (let ((act-26 (unbox arg-1))) (vector 1 act-26)))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (CoreC-45Context-lookupTyExact e-5 (let ((sc3 e-7)) (let ((e-0 (vector-ref sc3 1))) e-0)) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((sc5 arg-8)) (case (vector-ref sc5 0) ((0) ((TTImpC-45ProcessRecord-n--10761-775-u--elabGetters arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 '() e-5 0 '() '() e-1) ext-0)) (else (let ((e-2 (vector-ref sc5 1))) (let ((u--cns (let ((sc6 e-7)) (let ((e-32 (vector-ref sc6 3))) e-32)))) (let ((u--nns (let ((sc6 e-7)) (let ((e-3 (vector-ref sc6 4))) e-3)))) (let ((act-28 (CoreC-45Context-extendNS arg-1 (CoreC-45NameC-45Namespace-mkNamespace e-2) ext-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (let ((act-29 (CoreC-45Context-getNS arg-1 ext-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (vector 0 e-3))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-30 ((TTImpC-45ProcessRecord-n--10761-775-u--elabGetters arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 '() e-5 0 '() '() e-1) ext-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (vector 0 e-3))) (else (let ((act-31 (let ((act-31 (unbox arg-1))) (vector 1 act-31)))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-3 (vector-ref sc9 1))) (vector 0 e-3))) (else (let ((e-12 (vector-ref sc9 1))) (let ((act-32 (set-box! arg-1 (let ((sc10 e-12)) (let ((e-0 (vector-ref sc10 1))) (let ((e-37 (vector-ref sc10 2))) (let ((e-4 (vector-ref sc10 5))) (let ((e-35 (vector-ref sc10 6))) (let ((e-34 (vector-ref sc10 7))) (let ((e-33 (vector-ref sc10 8))) (let ((e-32 (vector-ref sc10 9))) (let ((e-31 (vector-ref sc10 10))) (let ((e-30 (vector-ref sc10 11))) (let ((e-29 (vector-ref sc10 12))) (let ((e-28 (vector-ref sc10 13))) (let ((e-13 (vector-ref sc10 14))) (let ((e-14 (vector-ref sc10 15))) (let ((e-15 (vector-ref sc10 16))) (let ((e-16 (vector-ref sc10 17))) (let ((e-17 (vector-ref sc10 18))) (let ((e-18 (vector-ref sc10 19))) (let ((e-19 (vector-ref sc10 20))) (let ((e-20 (vector-ref sc10 21))) (let ((e-21 (vector-ref sc10 22))) (let ((e-22 (vector-ref sc10 23))) (let ((e-23 (vector-ref sc10 24))) (let ((e-24 (vector-ref sc10 25))) (let ((e-25 (vector-ref sc10 26))) (let ((e-26 (vector-ref sc10 27))) (let ((e-27 (vector-ref sc10 28))) (vector 0 e-0 e-37 u--cns (cons e-10 u--nns) e-4 e-35 e-34 e-33 e-32 e-31 e-30 e-29 e-28 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27))))))))))))))))))))))))))))))) (vector 1 act-32)))))))))))))))))))))))))))) (else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 (PreludeC-45TypesC-45String-C-43C-43 "Adding " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name arg-10) "failed"))) ext-0))))))))))))))))))))))))) -(define TTImpC-45ProcessParams-case--processParams-900 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (lambda (clam-0) (let ((sc1 e-3)) (let ((e-7 (cdr sc1))) (let ((sc2 e-7)) (let ((e-10 (car sc2))) (let ((e-11 (cdr sc2))) (let ((act-24 (CoreC-45Normalise-logEnv e-2 arg-8 "declare.param" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) "Param env" e-10 clam-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((act-25 (let ((act-25 (unbox arg-8))) (vector 1 act-25)))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((u--defNames (TTImpC-45TTImp-definedInBlock (let ((sc5 e-8)) (let ((e-35 (vector-ref sc5 3))) e-35)) arg-0))) (let ((act-26 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (TTImpC-45ProcessParams-n--11425-799-u--applyEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2 e-10 eta-0 eta-1))) u--defNames '() clam-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (let ((u--nestBlock (PreludeC-45TypesC-45List-C-43C-43 e-9 e-11))) (CoreC-45Core-traverse_ (lambda (eta-0) (TTImpC-45ElabC-45Check-processDecl e-2 arg-8 arg-7 arg-6 '() u--nestBlock e-10 eta-0)) arg-0 clam-0)))))))))))))))))))))))))))) -(define TTImpC-45ProcessParams-n--11425-798-u--mkParamTy (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (if (null? sc0) (vector 29 arg-2) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (let ((sc2 e-7)) (let ((e-10 (car sc2))) (let ((e-11 (cdr sc2))) (let ((sc3 e-11)) (let ((e-14 (car sc3))) (let ((e-15 (cdr sc3))) (vector 1 arg-2 e-10 e-14 (vector 1 e-6) e-15 (TTImpC-45ProcessParams-n--11425-798-u--mkParamTy arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-3))))))))))))))))) -(define TTImpC-45ProcessParams-n--11425-799-u--applyEnv (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 ext-0) (let ((act-24 (CoreC-45Context-resolveName arg-8 arg-11 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (cons (vector 9 e-5) (cons (vector 0 ) (cons (DataC-45List-reverse (CoreC-45Env-allVars arg-9 arg-10)) (lambda (u--fc) (lambda (u--nt) (CoreC-45UnifyState-applyToFull arg-9 u--fc (vector 1 u--fc u--nt (vector 9 e-5)) arg-10)))))))))))))) -(define TTImpC-45ProcessParams-processParams (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((u--pty_raw (TTImpC-45ProcessParams-n--11425-798-u--mkParamTy arg-8 arg-7 arg-6 arg-0 arg-5 arg-4 arg-3 arg-2 arg-1 arg-7))) (lambda (eta-0) (let ((act-24 (TTImpC-45BindImplicits-bindTypeNames arg-1 '() arg-0 (vector 16 arg-6 (vector 0 (AlgebraC-45Semiring-erased (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)))) u--pty_raw) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (CoreC-45ContextC-45Log-log arg-1 "declare.param" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Checking " (TTImpC-45TTImp-u--show_Show_RawImp e-5))) eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 (TTImpC-45Elab-checkTerm arg-0 arg-1 arg-2 arg-3 -1 (vector 0 ) '() arg-4 arg-5 e-5 (CoreC-45Normalise-gType arg-6) eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) ((TTImpC-45ProcessParams-case--processParams-900 arg-8 arg-7 arg-6 arg-0 arg-5 arg-4 arg-3 arg-2 arg-1 u--pty_raw e-5 e-7 (TTImpC-45ProcessParams-extend arg-0 arg-5 (vector 0 ) arg-4 e-7)) eta-0))))))))))))))))))) -(define TTImpC-45ProcessParams-extend (lambda (arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((3) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (TTImpC-45ProcessParams-extend (cons e-2 arg-1) (cons e-3 arg-2) (vector 1 arg-3) (TTImpC-45TTImp-u--weaken_Weaken_NestedNames arg-4) e-4))(else (cons arg-1 (cons arg-3 (cons arg-2 arg-4))))))))))(else (cons arg-1 (cons arg-3 (cons arg-2 arg-4)))))))) -(define TTImpC-45ProcessData-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32processData-7670 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 ext-0) (let ((sc0 arg-23)) (case (vector-ref sc0 0) ((6) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((sc1 e-6)) (if (null? sc1) (let ((act-24 (CoreC-45Normalise-u--convert_Convert_Term arg-13 '() arg-16 '() arg-20 (let ((sc2 arg-21)) (let ((e-26 (vector-ref sc2 3))) e-26)) ext-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-8 (vector-ref sc2 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc2 1))) (let ((sc3 e-8)) (cond ((equal? sc3 0) (vector 1 e-5)) (else (let ((act-25 (CoreC-45Normalise-logTermNF '() arg-13 "declare.data" (+ 1 0) (lambda () "Previous") '() (let ((sc4 arg-21)) (let ((e-27 (vector-ref sc4 3))) e-27)) ext-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (vector 0 e-9))) (else (let ((act-26 (CoreC-45Normalise-logTermNF '() arg-13 "declare.data" (+ 1 0) (lambda () "Now") '() arg-20 ext-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 1))) (vector 0 e-10))) (else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 38 arg-6 arg-14) ext-0))))))))))))))))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 38 arg-6 arg-14) ext-0))))))(else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 38 arg-6 arg-14) ext-0)))))) -(define TTImpC-45ProcessData-case--caseC-32blockC-32inC-32processData-7298 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25) (let ((sc0 arg-25)) (cond ((equal? sc0 0) (vector 0 )) (else arg-5))))) -(define TTImpC-45ProcessData-case--shaped-6526 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 1 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 2))) e-1)))))) (else (lambda (eta-0) (TTImpC-45ProcessData-shaped arg-0 (lambda (vs-6560) (arg-3 'erased)) arg-2 eta-0))))))) -(define TTImpC-45ProcessData-case--asCons-6445 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (cond ((equal? sc0 0) (TTImpC-45ProcessData-asCons 0 arg-7)) (else 1))))) -(define TTImpC-45ProcessData-case--asCons-6371 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (TTImpC-45ProcessData-asCons (+ 1 arg-6) arg-8)) (else (TTImpC-45ProcessData-asCons arg-6 arg-8)))))) -(define TTImpC-45ProcessData-case--asNil-6302 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (cond ((equal? sc0 0) (TTImpC-45ProcessData-asNil arg-7)) (else 1))))) -(define TTImpC-45ProcessData-case--getDetagsC-44disjoint-5695 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 ext-0) (let ((sc0 arg-13)) (cond ((equal? sc0 0) (vector 1 0)) (else (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-2 '() e-5 (Builtin-snd eta-0))) arg-9 '() ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-2 '() e-5 (Builtin-snd eta-0))) arg-11 '() ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) ((TTImpC-45ProcessData-n--12478-5480-u--disjointArgs arg-0 arg-1 arg-2 e-6 e-7) ext-0))))))))))))))))))))) -(define TTImpC-45ProcessData-case--getDetagsC-44disjoint-5570 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 ext-0) (let ((sc0 arg-13)) (cond ((equal? sc0 0) (vector 1 0)) (else (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-2 '() e-5 (Builtin-snd eta-0))) arg-9 '() ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-2 '() e-5 (Builtin-snd eta-0))) arg-11 '() ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) ((TTImpC-45ProcessData-n--12478-5480-u--disjointArgs arg-0 arg-1 arg-2 e-6 e-7) ext-0))))))))))))))))))))) -(define TTImpC-45ProcessData-case--updateNSC-44updateNSApp-4983 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (vector 0 arg-4 arg-1)) (else (vector 0 arg-4 arg-3)))))) -(define TTImpC-45ProcessData-case--caseC-32blockC-32inC-32checkFamily-4889 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 ext-0) (let ((sc0 arg-13)) (cond ((equal? sc0 0) (vector 1 (vector 0 ))) (else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 10 arg-5 arg-4 arg-3) ext-0)))))) -(define TTImpC-45ProcessData-n--11935-4974-u--updateNSApp (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (TTImpC-45ProcessData-case--updateNSC-44updateNSApp-4983 arg-0 arg-1 arg-2 e-1 e-0 (CoreC-45Name-u--C-61C-61_Eq_Name e-1 arg-2))))) ((8) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (vector 8 e-2 (TTImpC-45ProcessData-n--11935-4974-u--updateNSApp arg-0 arg-1 arg-2 e-3) e-4))))) ((9) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (vector 9 e-5 (TTImpC-45ProcessData-n--11935-4974-u--updateNSApp arg-0 arg-1 arg-2 e-6) e-7))))) ((10) (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 3))) (let ((e-11 (vector-ref sc0 4))) (vector 10 e-8 (TTImpC-45ProcessData-n--11935-4974-u--updateNSApp arg-0 arg-1 arg-2 e-9) e-10 e-11))))))(else arg-3))))) -(define TTImpC-45ProcessData-n--12391-5373-u--getRetType (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((act-24 (((e-4 arg-2) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 e-1 1))) ext-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (TTImpC-45ProcessData-n--12391-5373-u--getRetType arg-0 arg-1 arg-2 e-5 ext-0)))))))(else (vector 1 arg-3))))))))(else (vector 1 arg-3)))))) -(define TTImpC-45ProcessData-n--12391-5374-u--getPats (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((3) (let ((e-5 (vector-ref sc0 5))) (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-1 '() arg-2 (Builtin-snd eta-0))) e-5 '() ext-0)))(else (vector 1 '())))))) -(define TTImpC-45ProcessData-n--12478-5484-u--getDisjointPos (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((sc0 arg-4)) (if (null? sc0) (vector 1 '()) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((act-24 (TTImpC-45ProcessData-n--12478-5484-u--getDisjointPos arg-0 arg-1 arg-2 (PreludeC-45Types-u--C-43_Num_Nat (PreludeC-45Types-u--fromInteger_Num_Nat 1) arg-3) e-3 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTImpC-45ProcessData-n--12478-5483-u--allDisjoint arg-0 arg-1 arg-2 e-2 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 0) (vector 1 (cons arg-3 e-5))) (else (vector 1 e-5)))))))))))))))))))) -(define TTImpC-45ProcessData-n--12478-5480-u--disjointArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (if (null? sc0) (lambda (eta-0) (vector 1 1)) (let ((sc1 arg-4)) (if (null? sc1) (lambda (eta-0) (vector 1 1)) (lambda (clam-0) (let ((sc2 arg-3)) (let ((e-1 (car sc2))) (let ((e-2 (cdr sc2))) (let ((sc3 arg-4)) (let ((e-4 (car sc3))) (let ((e-5 (cdr sc3))) (let ((act-24 ((TTImpC-45ProcessData-n--12478-5481-u--disjoint arg-0 arg-1 arg-2 e-1 e-4) clam-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc4 1))) (let ((sc5 e-6)) (cond ((equal? sc5 0) (vector 1 0)) (else ((TTImpC-45ProcessData-n--12478-5480-u--disjointArgs arg-0 arg-1 arg-2 e-2 e-5) clam-0)))))))))))))))))))))) -(define TTImpC-45ProcessData-n--12478-5481-u--disjoint (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((2) (let ((e-16 (vector-ref sc1 1))) (let ((e-17 (vector-ref sc1 2))) (let ((e-18 (vector-ref sc1 3))) (let ((e-19 (vector-ref sc1 4))) (let ((e-20 (vector-ref sc1 5))) (lambda (eta-0) (TTImpC-45ProcessData-case--getDetagsC-44disjoint-5570 arg-0 arg-1 arg-2 e-16 e-17 e-19 e-1 e-2 e-4 e-5 e-3 e-20 e-18 (PreludeC-45EqOrd-u--C-47C-61_Eq_Int e-3 e-18) eta-0))))))))(else (lambda (eta-0) (vector 1 1))))))))))) ((3) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (let ((e-10 (vector-ref sc0 4))) (let ((e-11 (vector-ref sc0 5))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((2) (let ((e-22 (vector-ref sc1 1))) (let ((e-23 (vector-ref sc1 2))) (let ((e-24 (vector-ref sc1 3))) (let ((e-25 (vector-ref sc1 4))) (let ((e-26 (vector-ref sc1 5))) (lambda (eta-0) (TTImpC-45ProcessData-case--getDetagsC-44disjoint-5695 arg-0 arg-1 arg-2 e-22 e-24 e-25 e-7 e-9 e-10 e-11 e-8 e-26 e-23 (CoreC-45Name-u--C-47C-61_Eq_Name e-8 e-23) eta-0))))))))(else (lambda (eta-0) (vector 1 1))))))))))) ((8) (let ((e-14 (vector-ref sc0 2))) (lambda (clam-0) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((8) (let ((e-29 (vector-ref sc1 2))) (vector 1 (CoreC-45TT-u--C-47C-61_Eq_Constant e-14 e-29))))(else (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1))))))) -(define TTImpC-45ProcessData-n--12478-5482-u--allDisjointWith (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (if (null? sc0) (lambda (eta-0) (vector 1 0)) (lambda (clam-0) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((9) (vector 1 1))(else (let ((sc1 arg-4)) (let ((e-1 (car sc1))) (let ((e-2 (cdr sc1))) (let ((act-24 ((TTImpC-45ProcessData-n--12478-5481-u--disjoint arg-0 arg-1 arg-2 arg-3 e-1) clam-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (cond ((equal? sc3 0) ((TTImpC-45ProcessData-n--12478-5482-u--allDisjointWith arg-0 arg-1 arg-2 arg-3 e-2) clam-0)) (else (vector 1 1)))))))))))))))))))) -(define TTImpC-45ProcessData-n--12478-5483-u--allDisjoint (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((sc0 arg-3)) (if (null? sc0) (vector 1 0) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((9) (vector 1 1))(else (let ((act-24 (TTImpC-45ProcessData-n--12478-5483-u--allDisjoint arg-0 arg-1 arg-2 e-3 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (cond ((equal? sc2 0) ((TTImpC-45ProcessData-n--12478-5482-u--allDisjointWith arg-0 arg-1 arg-2 e-2 e-3) ext-0)) (else (vector 1 1)))))))))))))))))) -(define TTImpC-45ProcessData-updateNS (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (vector 1 e-0 e-1 e-2 e-3 e-4 (TTImpC-45ProcessData-updateNS arg-0 arg-1 e-5)))))))))(else (TTImpC-45ProcessData-n--11935-4974-u--updateNSApp arg-2 arg-1 arg-0 arg-2)))))) -(define TTImpC-45ProcessData-shaped (lambda (arg-0 arg-1 arg-2 ext-0) (let ((sc0 arg-2)) (if (null? sc0) (vector 1 (vector 0 )) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Normalise-normalise arg-0 '() e-5 '() (let ((sc2 e-2)) (let ((e-4 (vector-ref sc2 4))) e-4)) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) ((TTImpC-45ProcessData-case--shaped-6526 arg-0 e-2 e-3 arg-1 e-5 e-6 ((arg-1 'erased) e-6)) ext-0))))))))))))))))) -(define TTImpC-45ProcessData-processDataOpt (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (vector 1 (vector 0 ))) ((0) (let ((e-0 (vector-ref sc0 1))) (CoreC-45Context-setDetermining arg-0 arg-1 arg-2 e-0 ext-0))) ((2) (CoreC-45Context-setUniqueSearch arg-0 arg-1 arg-2 0 ext-0)) ((3) (CoreC-45Context-setExternal arg-0 arg-1 arg-2 0 ext-0)) (else (vector 1 (vector 0 ))))))) -(define TTImpC-45ProcessData-processData (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 ext-0) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((act-24 (CoreC-45Context-inCurrentNS arg-1 e-1 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTImpC-45BindImplicits-bindTypeNames arg-1 '() arg-0 e-2 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (let ((act-26 (unbox arg-1))) (vector 1 act-26)))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((CoreC-45Context-lookupCtxtExact e-5 (let ((sc4 e-7)) (let ((e-33 (vector-ref sc4 1))) e-33))) ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((0) (let ((act-28 (let ((act-28 (CoreC-45Context-resolveName arg-1 e-5 ext-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc6 1))) ((TTImpC-45ElabC-45Utils-wrapErrorC arg-4 (lambda (eta-0) (vector 62 arg-7 e-5 eta-0)) (TTImpC-45Elab-elabTerm arg-0 arg-1 arg-2 arg-3 e-9 (vector 0 ) arg-4 arg-5 arg-6 (vector 16 arg-7 (vector 0 (AlgebraC-45Semiring-erased (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)))) e-6) (vector 1 (CoreC-45Normalise-gType e-0)))) ext-0)))))))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc6 1))) (let ((sc7 e-9)) (let ((e-4 (car sc7))) (let ((u--fullty (CoreC-45Env-abstractEnvType arg-0 e-0 arg-6 e-4))) (let ((act-29 (CoreC-45Normalise-logTermNF '() arg-1 "declare.data" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "data " (CoreC-45Name-u--show_Show_Name e-5))) '() u--fullty ext-0))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((act-30 (let ((act-30 ((CoreC-45Normalise-nf arg-1 arg-0 e-7 arg-6 e-4) ext-0))) (let ((sc9 act-30)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) ((TTImpC-45ProcessData-checkIsType arg-1 arg-7 e-5 arg-6 e-11) ext-0)))))))) (let ((sc9 act-30)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((act-31 (CoreC-45Normalise-getArity arg-1 '() e-7 '() u--fullty ext-0))) (let ((sc10 act-31)) (case (vector-ref sc10 0) ((0) (let ((e-12 (vector-ref sc10 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc10 1))) (let ((act-32 (CoreC-45Context-addDef arg-1 e-5 (CoreC-45Context-newDef arg-7 e-5 (AlgebraC-45Semiring-linear (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))) arg-0 u--fullty arg-8 (vector 6 0 e-12 '() '() (CoreC-45Context-defaultFlags) '() '() (vector 0 ))) ext-0))) (let ((sc11 act-32)) (case (vector-ref sc11 0) ((0) (let ((e-13 (vector-ref sc11 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc11 1))) (let ((act-33 (CoreC-45Context-addMutData arg-1 (vector 9 e-13) ext-0))) (let ((sc12 act-33)) (case (vector-ref sc12 0) ((0) (let ((e-14 (vector-ref sc12 1))) (vector 0 e-14))) (else (let ((act-34 (let ((act-34 (unbox arg-1))) (vector 1 act-34)))) (let ((sc13 act-34)) (case (vector-ref sc13 0) ((0) (let ((e-15 (vector-ref sc13 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc13 1))) (let ((act-35 (CoreC-45Core-traverse_ (lambda (u--n) (lambda (eta-0) (CoreC-45Context-setMutWith arg-1 arg-7 u--n (let ((sc14 e-15)) (let ((e-42 (vector-ref sc14 2))) e-42)) eta-0))) (let ((sc14 e-15)) (let ((e-42 (vector-ref sc14 2))) e-42)) ext-0))) (let ((sc14 act-35)) (case (vector-ref sc14 0) ((0) (let ((e-16 (vector-ref sc14 1))) (vector 0 e-16))) (else (let ((act-36 (CoreC-45Core-traverse_ (lambda (eta-0) (lambda (eta-1) (CoreC-45Context-addToSave arg-1 eta-0 eta-1))) (LibrariesC-45DataC-45NameMap-keys (CoreC-45TT-getMetas e-4)) ext-0))) (let ((sc15 act-36)) (case (vector-ref sc15 0) ((0) (let ((e-17 (vector-ref sc15 1))) (vector 0 e-17))) (else (let ((act-37 (CoreC-45Context-addToSave arg-1 e-5 ext-0))) (let ((sc16 act-37)) (case (vector-ref sc16 0) ((0) (let ((e-18 (vector-ref sc16 1))) (vector 0 e-18))) (else (let ((act-38 (CoreC-45ContextC-45Log-log arg-1 "declare.data" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Saving from " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-5) (PreludeC-45TypesC-45String-C-43C-43 ": " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45Name-u--show_Show_Name u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Name-u--showPrec_Show_Name u--d u--x)))) (LibrariesC-45DataC-45NameMap-keys (CoreC-45TT-getMetas e-4))))))) ext-0))) (let ((sc17 act-38)) (case (vector-ref sc17 0) ((0) (let ((e-19 (vector-ref sc17 1))) (vector 0 e-19))) (else (let ((sc18 arg-8)) (case (vector-ref sc18 0) ((0) (vector 1 (vector 0 )))(else (let ((act-39 (CoreC-45Context-addHashWithNames arg-1 (cons (lambda (arg-1546) (CoreC-45Hash-u--hash_Hashable_Name arg-1546)) (lambda (arg-1547) (lambda (arg-1548) (CoreC-45Hash-u--hashWithSalt_Hashable_Name arg-1547 arg-1548)))) (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) e-5 ext-0))) (let ((sc18 act-39)) (case (vector-ref sc18 0) ((0) (let ((e-20 (vector-ref sc18 1))) (vector 0 e-20))) (else (CoreC-45Context-addHashWithNames arg-1 (cons (lambda (arg-1546) (CoreC-45Hash-u--hash_Hashable_C-40TermC-32C-36varsC-41 arg-1546)) (lambda (arg-1547) (lambda (arg-1548) (CoreC-45Hash-u--hashWithSalt_Hashable_C-40TermC-32C-36varsC-41 arg-1547 arg-1548)))) (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) u--fullty ext-0)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 38 arg-7 e-5) ext-0)))))))))))))))))))))))))))) (else (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((e-6 (vector-ref sc0 4))) (let ((e-7 (vector-ref sc0 5))) (let ((act-24 (CoreC-45Context-inCurrentNS arg-1 e-4 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc1 1))) (let ((act-25 (TTImpC-45BindImplicits-bindTypeNames arg-1 '() arg-0 e-5 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc2 1))) (let ((act-26 (CoreC-45ContextC-45Log-log arg-1 "declare.data" (+ 1 0) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Processing " (CoreC-45Name-u--show_Show_Name e-8))) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 (let ((act-27 (unbox arg-1))) (vector 1 act-27)))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc4 1))) (let ((act-28 (let ((act-28 (CoreC-45Context-resolveName arg-1 e-8 ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc5 1))) ((TTImpC-45ElabC-45Utils-wrapErrorC arg-4 (lambda (eta-0) (vector 62 arg-7 e-8 eta-0)) (TTImpC-45Elab-elabTerm arg-0 arg-1 arg-2 arg-3 e-12 (vector 0 ) arg-4 arg-5 arg-6 (vector 16 arg-7 (vector 0 (AlgebraC-45Semiring-erased (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)))) e-9) (vector 1 (CoreC-45Normalise-gType e-3)))) ext-0)))))))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc5 1))) (let ((sc6 e-12)) (let ((e-2 (car sc6))) (let ((e-13 (cdr sc6))) (let ((u--fullty (CoreC-45Env-abstractEnvType arg-0 e-3 arg-6 e-2))) (let ((act-29 ((CoreC-45Context-lookupCtxtExact e-8 (let ((sc7 e-11)) (let ((e-0 (vector-ref sc7 1))) e-0))) ext-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-14 (vector-ref sc7 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc7 1))) (let ((act-30 (let ((_-0 (cons e-2 e-13))) (let ((sc8 e-14)) (case (vector-ref sc8 0) ((0) (vector 1 '())) (else (let ((e-15 (vector-ref sc8 1))) (let ((u--ndefm (vector 1 e-15))) (TTImpC-45ProcessData-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32processData-7670 e-7 e-6 e-5 e-4 e-3 arg-8 arg-7 arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-8 e-9 e-11 e-13 e-2 _-0 u--fullty e-15 u--ndefm (let ((sc9 e-15)) (let ((e-17 (vector-ref sc9 18))) e-17)) ext-0))))))))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-15 (vector-ref sc8 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc8 1))) (let ((act-31 (CoreC-45Normalise-logTermNF '() arg-1 "declare.data" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "data " (CoreC-45Name-u--show_Show_Name e-8))) '() u--fullty ext-0))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-16 (vector-ref sc9 1))) (vector 0 e-16))) (else (let ((act-32 (let ((act-32 ((CoreC-45Normalise-nf arg-1 arg-0 e-11 arg-6 e-2) ext-0))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-17 (vector-ref sc10 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc10 1))) ((TTImpC-45ProcessData-checkIsType arg-1 arg-7 e-8 arg-6 e-17) ext-0)))))))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-17 (vector-ref sc10 1))) (vector 0 e-17))) (else (let ((act-33 (CoreC-45Normalise-getArity arg-1 '() e-11 '() u--fullty ext-0))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-18 (vector-ref sc11 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc11 1))) (let ((act-34 (CoreC-45Context-addDef arg-1 e-8 (CoreC-45Context-newDef arg-7 e-8 (AlgebraC-45Semiring-linear (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))) arg-0 u--fullty arg-8 (vector 6 0 e-18 '() '() (CoreC-45Context-defaultFlags) '() '() (vector 0 ))) ext-0))) (let ((sc12 act-34)) (case (vector-ref sc12 0) ((0) (let ((e-19 (vector-ref sc12 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref sc12 1))) (let ((act-35 (let ((sc13 arg-8)) (case (vector-ref sc13 0) ((0) (vector 1 (vector 0 )))(else (let ((act-35 (CoreC-45Context-addHashWithNames arg-1 (cons (lambda (arg-1546) (CoreC-45Hash-u--hash_Hashable_Name arg-1546)) (lambda (arg-1547) (lambda (arg-1548) (CoreC-45Hash-u--hashWithSalt_Hashable_Name arg-1547 arg-1548)))) (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) e-8 ext-0))) (let ((sc13 act-35)) (case (vector-ref sc13 0) ((0) (let ((e-20 (vector-ref sc13 1))) (vector 0 e-20))) (else (CoreC-45Context-addHashWithNames arg-1 (cons (lambda (arg-1546) (CoreC-45Hash-u--hash_Hashable_C-40TermC-32C-36varsC-41 arg-1546)) (lambda (arg-1547) (lambda (arg-1548) (CoreC-45Hash-u--hashWithSalt_Hashable_C-40TermC-32C-36varsC-41 arg-1547 arg-1548)))) (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) u--fullty ext-0)))))))))) (let ((sc13 act-35)) (case (vector-ref sc13 0) ((0) (let ((e-20 (vector-ref sc13 1))) (vector 0 e-20))) (else (let ((u--cvis (let ((_-0 (cons e-2 e-13))) (TTImpC-45ProcessData-case--caseC-32blockC-32inC-32processData-7298 e-7 e-6 e-5 e-4 e-3 arg-8 arg-7 arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-8 e-9 e-11 e-13 e-2 _-0 u--fullty e-14 e-15 e-18 e-19 (CoreC-45TT-u--C-61C-61_Eq_Visibility arg-8 (vector 1 )))))) (let ((act-36 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (TTImpC-45ProcessData-checkCon arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 u--cvis e-4 (vector 9 e-19) eta-0 eta-1))) e-7 '() ext-0))) (let ((sc14 act-36)) (case (vector-ref sc14 0) ((0) (let ((e-21 (vector-ref sc14 1))) (vector 0 e-21))) (else (let ((e-21 (vector-ref sc14 1))) (let ((u--ddef (cons (vector 0 e-3 e-8 e-18 u--fullty) e-21))) (let ((act-37 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc15 eta-0)) (case (vector-ref sc15 0) ((0) (let ((e-22 (vector-ref sc15 1))) (vector 0 e-22))) (else (vector 1 (vector 0 )))))) (lambda (eta-0) (CoreC-45ContextC-45Data-addData arg-1 arg-0 arg-8 e-19 u--ddef eta-0)) ext-0))) (let ((sc15 act-37)) (case (vector-ref sc15 0) ((0) (let ((e-22 (vector-ref sc15 1))) (vector 0 e-22))) (else (let ((act-38 (let ((sc16 (PreludeC-45Types-elem (cons (lambda (arg-10) (lambda (arg-11) (TTImpC-45TTImp-u--C-61C-61_Eq_DataOpt arg-10 arg-11))) (lambda (arg-10) (lambda (arg-11) (TTImpC-45TTImp-u--C-47C-61_Eq_DataOpt arg-10 arg-11)))) (vector 4 ) e-6))) (cond ((equal? sc16 0) (vector 1 (vector 0 ))) (else (TTImpC-45ProcessData-findNewtype arg-1 e-21 ext-0)))))) (let ((sc16 act-38)) (case (vector-ref sc16 0) ((0) (let ((e-23 (vector-ref sc16 1))) (vector 0 e-23))) (else (let ((act-39 (let ((act-39 (unbox arg-1))) (vector 1 act-39)))) (let ((sc17 act-39)) (case (vector-ref sc17 0) ((0) (let ((e-24 (vector-ref sc17 1))) (vector 0 e-24))) (else (let ((act-40 (CoreC-45ContextC-45Log-log arg-1 "declare.data" (+ 1 (+ 1 (+ 1 0))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-8) (PreludeC-45TypesC-45String-C-43C-43 " defined in a mutual block with " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45Name-u--show_Show_Name u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Name-u--showPrec_Show_Name u--d u--x)))) e-15)))) ext-0))) (let ((sc18 act-40)) (case (vector-ref sc18 0) ((0) (let ((e-25 (vector-ref sc18 1))) (vector 0 e-25))) (else (let ((act-41 (CoreC-45Context-setMutWith arg-1 arg-7 (vector 9 e-19) e-15 ext-0))) (let ((sc19 act-41)) (case (vector-ref sc19 0) ((0) (let ((e-26 (vector-ref sc19 1))) (vector 0 e-26))) (else (let ((act-42 (CoreC-45Core-traverse_ (lambda (eta-0) (lambda (eta-1) (TTImpC-45ProcessData-processDataOpt arg-1 arg-7 (vector 9 e-19) eta-0 eta-1))) e-6 ext-0))) (let ((sc20 act-42)) (case (vector-ref sc20 0) ((0) (let ((e-27 (vector-ref sc20 1))) (vector 0 e-27))) (else (let ((act-43 (CoreC-45Context-dropMutData arg-1 (vector 9 e-19) ext-0))) (let ((sc21 act-43)) (case (vector-ref sc21 0) ((0) (let ((e-28 (vector-ref sc21 1))) (vector 0 e-28))) (else (let ((act-44 (TTImpC-45ProcessData-getDetags arg-1 arg-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (let ((sc22 eta-0)) (let ((e-29 (vector-ref sc22 4))) e-29))) e-21) ext-0))) (let ((sc22 act-44)) (case (vector-ref sc22 0) ((0) (let ((e-29 (vector-ref sc22 1))) (vector 0 e-29))) (else (let ((e-29 (vector-ref sc22 1))) (let ((act-45 (CoreC-45Context-setDetags arg-1 arg-7 (vector 9 e-19) e-29 ext-0))) (let ((sc23 act-45)) (case (vector-ref sc23 0) ((0) (let ((e-30 (vector-ref sc23 1))) (vector 0 e-30))) (else (let ((act-46 (CoreC-45Core-traverse_ (lambda (eta-0) (lambda (eta-1) (CoreC-45Context-addToSave arg-1 eta-0 eta-1))) (LibrariesC-45DataC-45NameMap-keys (CoreC-45TT-getMetas e-2)) ext-0))) (let ((sc24 act-46)) (case (vector-ref sc24 0) ((0) (let ((e-31 (vector-ref sc24 1))) (vector 0 e-31))) (else (let ((act-47 (CoreC-45Context-addToSave arg-1 e-8 ext-0))) (let ((sc25 act-47)) (case (vector-ref sc25 0) ((0) (let ((e-32 (vector-ref sc25 1))) (vector 0 e-32))) (else (let ((act-48 (CoreC-45ContextC-45Log-log arg-1 "declare.data" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Saving from " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-8) (PreludeC-45TypesC-45String-C-43C-43 ": " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45Name-u--show_Show_Name u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Name-u--showPrec_Show_Name u--d u--x)))) (LibrariesC-45DataC-45NameMap-keys (CoreC-45TT-getMetas e-2))))))) ext-0))) (let ((sc26 act-48)) (case (vector-ref sc26 0) ((0) (let ((e-33 (vector-ref sc26 1))) (vector 0 e-33))) (else (let ((u--connames (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (TTImpC-45ProcessData-conName eta-0)) e-21))) (let ((act-49 (let ((sc27 (PreludeC-45Types-elem (cons (lambda (arg-10) (lambda (arg-11) (TTImpC-45TTImp-u--C-61C-61_Eq_DataOpt arg-10 arg-11))) (lambda (arg-10) (lambda (arg-11) (TTImpC-45TTImp-u--C-47C-61_Eq_DataOpt arg-10 arg-11)))) (vector 1 ) e-6))) (cond ((equal? sc27 0) (vector 1 (vector 0 ))) (else (CoreC-45Core-traverse_ (lambda (u--x) (lambda (eta-0) (CoreC-45Context-addHintFor arg-1 arg-7 (vector 9 e-19) u--x 0 1 eta-0))) u--connames ext-0)))))) (let ((sc27 act-49)) (case (vector-ref sc27 0) ((0) (let ((e-34 (vector-ref sc27 1))) (vector 0 e-34))) (else (let ((act-50 (TTImpC-45ProcessData-calcConInfo arg-1 arg-7 e-21 ext-0))) (let ((sc28 act-50)) (case (vector-ref sc28 0) ((0) (let ((e-35 (vector-ref sc28 1))) (vector 0 e-35))) (else (CoreC-45Core-traverse_ (lambda (eta-0) (lambda (eta-1) (TTImpC-45ElabC-45Utils-updateErasable arg-1 eta-0 eta-1))) (cons (vector 9 e-19) u--connames) ext-0)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) -(define TTImpC-45ProcessData-getRelevantArg (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-7 (vector-ref sc1 2))) (let ((e-9 (vector-ref sc1 4))) (let ((act-24 (((e-4 arg-0) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 e-1 1))) ext-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) ((AlgebraC-45Semiring-branchZero (cons (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-5) (lambda (arg-6) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-5 arg-6))))) (lambda () (lambda (eta-0) (TTImpC-45ProcessData-getRelevantArg arg-0 (PreludeC-45Types-u--C-43_Num_Nat (PreludeC-45Types-u--fromInteger_Num_Nat 1) arg-1) arg-2 arg-3 e-5 eta-0))) (let ((sc3 e-9)) (case (vector-ref sc3 0) ((8) (let ((e-10 (vector-ref sc3 2))) (let ((sc4 e-10)) (case (vector-ref sc4 0) ((27) (lambda () (lambda (eta-0) (let ((act-25 (((e-4 arg-0) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 e-1 1))) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-12 (vector-ref sc5 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc5 1))) (TTImpC-45ProcessData-getRelevantArg arg-0 (PreludeC-45Types-u--C-43_Num_Nat (PreludeC-45Types-u--fromInteger_Num_Nat 1) arg-1) arg-2 1 e-12 eta-0)))))))))(else (lambda () (PreludeC-45Types-maybe (lambda () (lambda (eta-0) (let ((act-25 (((e-4 arg-0) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 e-1 1))) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-12 (vector-ref sc4 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc4 1))) (TTImpC-45ProcessData-getRelevantArg arg-0 (PreludeC-45Types-u--C-43_Num_Nat (PreludeC-45Types-u--fromInteger_Num_Nat 1) arg-1) (vector 1 arg-1) 1 e-12 eta-0)))))))) (lambda () (lambda (eta-0) (lambda (eta-1) (vector 1 (vector 0 ))))) arg-2)))))))(else (lambda () (PreludeC-45Types-maybe (lambda () (lambda (eta-0) (let ((act-25 (((e-4 arg-0) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 e-1 1))) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc3 1))) (TTImpC-45ProcessData-getRelevantArg arg-0 (PreludeC-45Types-u--C-43_Num_Nat (PreludeC-45Types-u--fromInteger_Num_Nat 1) arg-1) (vector 1 arg-1) 1 e-10 eta-0)))))))) (lambda () (lambda (eta-0) (lambda (eta-1) (vector 1 (vector 0 ))))) arg-2))))) e-7) ext-0)))))))))(else (vector 1 (PreludeC-45Types-maybe (lambda () (vector 0 )) (lambda () (lambda (u--r) (vector 1 (cons arg-3 u--r)))) arg-2)))))))))(else (vector 1 (PreludeC-45Types-maybe (lambda () (vector 0 )) (lambda () (lambda (u--r) (vector 1 (cons arg-3 u--r)))) arg-2))))))) -(define TTImpC-45ProcessData-getIndexPats (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((CoreC-45Normalise-nf arg-0 '() e-5 '() arg-1) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (TTImpC-45ProcessData-n--12391-5373-u--getRetType arg-1 arg-0 e-5 e-6 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (TTImpC-45ProcessData-n--12391-5374-u--getPats arg-1 arg-0 e-5 e-7 ext-0)))))))))))))))))) -(define TTImpC-45ProcessData-getDetags (lambda (arg-0 arg-1 arg-2 ext-0) (let ((sc0 arg-2)) (if (null? sc0) (vector 1 (vector 1 '())) (let ((e-3 (cdr sc0))) (let ((sc1 e-3)) (if (null? sc1) (vector 1 (vector 1 '())) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (TTImpC-45ProcessData-getIndexPats arg-0 eta-0 eta-1))) arg-2 '() ext-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (TTImpC-45ProcessData-n--12478-5484-u--getDisjointPos arg-2 arg-1 arg-0 0 (DataC-45List-transpose e-5) ext-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (if (null? sc4) (vector 1 (vector 0 )) (vector 1 (vector 1 e-6))))))))))))))))))))) -(define TTImpC-45ProcessData-findNewtype (lambda (arg-0 arg-1 ext-0) (let ((sc0 arg-1)) (if (null? sc0) (vector 1 (vector 0 )) (let ((e-1 (car sc0))) (let ((e-2 (cdr sc0))) (let ((sc1 e-2)) (if (null? sc1) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-nf arg-0 '() e-5 '() (let ((sc3 e-1)) (let ((e-3 (vector-ref sc3 4))) e-3))) ext-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc3 1))) (TTImpC-45ProcessData-getRelevantArg e-5 0 (vector 0 ) 0 e-6 ext-0)))))))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((1) (let ((e-3 (vector-ref sc4 1))) (CoreC-45Context-updateDef arg-0 (let ((sc5 e-1)) (let ((e-8 (vector-ref sc5 2))) e-8)) (lambda (u--d) (let ((sc5 u--d)) (case (vector-ref sc5 0) ((5) (let ((e-0 (vector-ref sc5 1))) (let ((e-7 (vector-ref sc5 2))) (vector 1 (vector 5 e-0 e-7 (vector 1 e-3))))))(else (vector 0 ))))) ext-0))) (else (vector 1 (vector 0 ))))))))))))))) (vector 1 (vector 0 )))))))))) -(define TTImpC-45ProcessData-conName (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1)))) -(define TTImpC-45ProcessData-checkRetType (lambda (arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (((e-4 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) arg-2 (vector 10 e-1 1))) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc3 1))) ((TTImpC-45ProcessData-checkRetType arg-1 arg-2 e-10 arg-4) eta-0)))))))))))))(else (arg-4 arg-3))))))))(else (arg-4 arg-3)))))) -(define TTImpC-45ProcessData-checkIsType (lambda (arg-1 arg-2 arg-3 arg-4 arg-5) (TTImpC-45ProcessData-checkRetType arg-1 arg-4 arg-5 (lambda (u--nf) (lambda (clam-0) (let ((sc0 u--nf)) (case (vector-ref sc0 0) ((10) (vector 1 (vector 0 )))(else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 9 arg-2 arg-3) clam-0))))))))) -(define TTImpC-45ProcessData-checkFamily (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (TTImpC-45ProcessData-checkRetType arg-1 arg-5 arg-6 (lambda (u--nf) (let ((sc0 u--nf)) (case (vector-ref sc0 0) ((10) (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 10 arg-2 arg-3 arg-4) eta-0))) ((3) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((e-6 (vector-ref sc0 4))) (let ((e-7 (vector-ref sc0 5))) (let ((nf-0 (vector 3 e-3 e-4 e-5 e-6 e-7))) (lambda (eta-0) (TTImpC-45ProcessData-case--caseC-32blockC-32inC-32checkFamily-4889 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-3 e-5 e-6 e-7 e-4 nf-0 (CoreC-45Name-u--C-61C-61_Eq_Name arg-4 e-4) eta-0)))))))))(else (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 10 arg-2 arg-3 arg-4) eta-0))))))))) -(define TTImpC-45ProcessData-checkCon (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 ext-0) (let ((sc0 arg-10)) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((act-24 (CoreC-45Context-inCurrentNS arg-1 e-2 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((u--ty_raw (TTImpC-45ProcessData-updateNS arg-8 arg-9 e-3))) (let ((act-25 (CoreC-45ContextC-45Log-log arg-1 "declare.data.constructor" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Checking constructor type " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-5) (PreludeC-45TypesC-45String-C-43C-43 " : " (TTImpC-45TTImp-u--show_Show_RawImp u--ty_raw))))) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((act-26 (CoreC-45ContextC-45Log-log arg-1 "declare.data.constructor" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Updated " (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (u--x) (CoreC-45Name-u--show_Show_Name u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Name-u--showPrec_Show_Name u--d u--x)))) (cons (lambda (u--x) (CoreC-45Name-u--show_Show_Name u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Name-u--showPrec_Show_Name u--d u--x))))) (cons arg-8 arg-9)))) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((act-27 (let ((act-27 (unbox arg-1))) (vector 1 act-27)))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 ((CoreC-45Context-lookupCtxtExact e-5 (let ((sc5 e-8)) (let ((e-35 (vector-ref sc5 1))) e-35))) ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (let ((sc6 e-9)) (case (vector-ref sc6 0) ((0) (let ((act-29 (let ((act-29 (CoreC-45Context-resolveName arg-1 e-5 ext-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc7 1))) ((TTImpC-45ElabC-45Utils-wrapErrorC arg-4 (lambda (eta-0) (vector 62 e-0 e-5 eta-0)) (lambda (eta-0) (TTImpC-45Elab-checkTerm arg-0 arg-1 arg-2 arg-3 e-10 (vector 0 ) arg-4 arg-5 arg-6 (vector 16 e-0 (vector 0 (AlgebraC-45Semiring-erased (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)))) u--ty_raw) (CoreC-45Normalise-gType e-0) eta-0))) ext-0)))))))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-30 (let ((act-30 ((CoreC-45Normalise-nf arg-1 arg-0 e-8 arg-6 e-10) ext-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc8 1))) ((TTImpC-45ProcessData-checkFamily arg-1 e-0 e-5 arg-9 arg-6 e-11) ext-0)))))))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((u--fullty (CoreC-45Env-abstractEnvType arg-0 e-0 arg-6 e-10))) (let ((act-31 (CoreC-45Normalise-logTermNF '() arg-1 "declare.data.constructor" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Constructor " (CoreC-45Name-u--show_Show_Name e-5))) '() u--fullty ext-0))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((act-32 (CoreC-45Core-traverse_ (lambda (eta-0) (lambda (eta-1) (CoreC-45Context-addToSave arg-1 eta-0 eta-1))) (LibrariesC-45DataC-45NameMap-keys (CoreC-45TT-getMetas e-10)) ext-0))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((act-33 (CoreC-45Context-addToSave arg-1 e-5 ext-0))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((act-34 (CoreC-45ContextC-45Log-log arg-1 "declare.data.constructor" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Saving from " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-5) (PreludeC-45TypesC-45String-C-43C-43 ": " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45Name-u--show_Show_Name u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Name-u--showPrec_Show_Name u--d u--x)))) (LibrariesC-45DataC-45NameMap-keys (CoreC-45TT-getMetas e-10))))))) ext-0))) (let ((sc12 act-34)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (let ((act-35 (let ((sc13 arg-7)) (case (vector-ref sc13 0) ((2) (let ((act-35 (CoreC-45Context-addHashWithNames arg-1 (cons (lambda (arg-1546) (CoreC-45Hash-u--hash_Hashable_Name arg-1546)) (lambda (arg-1547) (lambda (arg-1548) (CoreC-45Hash-u--hashWithSalt_Hashable_Name arg-1547 arg-1548)))) (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) e-5 ext-0))) (let ((sc14 act-35)) (case (vector-ref sc14 0) ((0) (let ((e-4 (vector-ref sc14 1))) (vector 0 e-4))) (else (CoreC-45Context-addHashWithNames arg-1 (cons (lambda (arg-1546) (CoreC-45Hash-u--hash_Hashable_C-40TermC-32C-36varsC-41 arg-1546)) (lambda (arg-1547) (lambda (arg-1548) (CoreC-45Hash-u--hashWithSalt_Hashable_C-40TermC-32C-36varsC-41 arg-1547 arg-1548)))) (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) u--fullty ext-0))))))(else (vector 1 (vector 0 ))))))) (let ((sc13 act-35)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (vector 0 e-4))) (else (let ((act-36 (CoreC-45Normalise-getArity arg-1 '() e-8 '() u--fullty ext-0))) (let ((sc14 act-36)) (case (vector-ref sc14 0) ((0) (let ((e-4 (vector-ref sc14 1))) (vector 0 e-4))) (else (let ((e-17 (vector-ref sc14 1))) (vector 1 (vector 0 e-0 e-5 e-17 u--fullty)))))))))))))))))))))))))))))))))))))) (else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 38 e-0 e-5) ext-0)))))))))))))))))))))))))))))))))) -(define TTImpC-45ProcessData-calcListy (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (if (null? sc0) (lambda (eta-0) (vector 1 1)) (let ((e-1 (car sc0))) (let ((e-2 (cdr sc0))) (lambda (clam-0) (let ((sc1 e-2)) (if (null? sc1) (let ((act-24 (TTImpC-45ProcessData-shaped arg-0 (lambda (vs-6577) (lambda (eta-0) (TTImpC-45ProcessData-asCons (+ 1 (+ 1 0)) eta-0))) arg-2 clam-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((1) (let ((e-3 (vector-ref sc3 1))) (let ((act-25 (CoreC-45Context-setFlag arg-0 arg-1 e-3 (vector 9 (vector 3 )) clam-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (vector 1 0))))))) (else (vector 1 1))))))))) (let ((e-5 (car sc1))) (let ((e-6 (cdr sc1))) (let ((sc2 e-6)) (if (null? sc2) (let ((act-24 (TTImpC-45ProcessData-shaped arg-0 (lambda (vs-6631) (lambda (eta-0) (TTImpC-45ProcessData-asNil eta-0))) arg-2 clam-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (let ((u--cs (cons e-1 (cons e-5 '())))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((1) (let ((e-3 (vector-ref sc4 1))) (let ((act-25 (TTImpC-45ProcessData-shaped arg-0 (lambda (vs-6658) (lambda (eta-0) (TTImpC-45ProcessData-asCons (+ 1 (+ 1 0)) eta-0))) u--cs clam-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc5 1))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((act-26 (CoreC-45Context-setFlag arg-0 arg-1 e-3 (vector 9 (vector 2 )) clam-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 1))) (vector 0 e-9))) (else (let ((act-27 (CoreC-45Context-setFlag arg-0 arg-1 e-4 (vector 9 (vector 3 )) clam-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (vector 1 0))))))))))) (else (vector 1 1))))))))))) (else (vector 1 1)))))))))) (vector 1 1)))))))))))))) -(define TTImpC-45ProcessData-calcConInfo (lambda (arg-0 arg-1 arg-2 ext-0) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc0 eta-0)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))) (TTImpC-45ProcessData-calcListy arg-0 arg-1 arg-2) ext-0))) -(define TTImpC-45ProcessData-asNil (lambda (arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (let ((e-9 (vector-ref sc1 4))) (TTImpC-45ProcessData-case--asNil-6302 e-1 e-2 e-6 e-8 e-9 e-7 e-4 (AlgebraC-45Semiring-isErased (cons (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-2) (lambda (arg-3) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-4 arg-5))))) e-7)))))))(else 0))))))))(else 0))))) -(define TTImpC-45ProcessData-asCons (lambda (arg-1 arg-2) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((3) (let ((e-12 (vector-ref sc1 1))) (let ((e-13 (vector-ref sc1 2))) (let ((e-14 (vector-ref sc1 3))) (let ((e-15 (vector-ref sc1 4))) (let ((sc2 e-14)) (case (vector-ref sc2 0) ((2) (let ((e-17 (vector-ref sc2 1))) (let ((e-18 (vector-ref sc2 2))) (let ((e-19 (vector-ref sc2 3))) (let ((e-20 (vector-ref sc2 4))) (TTImpC-45ProcessData-case--asCons-6445 e-12 e-13 e-17 e-19 e-20 e-18 e-15 (AlgebraC-45Semiring-isErased (cons (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-3) (lambda (arg-4) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-4 arg-5))))) e-18)))))))(else 0))))))))(else 0))))(else (let ((e-0 (- arg-1 1))) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((3) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (let ((sc1 e-4)) (case (vector-ref sc1 0) ((2) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((e-9 (vector-ref sc1 3))) (let ((e-10 (vector-ref sc1 4))) (TTImpC-45ProcessData-case--asCons-6371 e-2 e-3 e-7 e-9 e-10 e-0 e-8 e-5 (AlgebraC-45Semiring-isErased (cons (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-3) (lambda (arg-4) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-4 arg-5))))) e-8)))))))(else 1))))))))(else 1))))))))) -(define CoreC-45ContextC-45Data-case--caseC-32blockC-32inC-32getPs-967 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 ext-0) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc1 eta-0)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-5))))))) (lambda (eta-0) (CoreC-45ContextC-45Data-updateParams arg-0 arg-1 arg-4 arg-8 eta-0)) ext-0)) (else (vector 1 arg-4)))))) -(define CoreC-45ContextC-45Data-case--getPs-940 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (if (null? sc0) (lambda (eta-0) (vector 1 arg-4)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((e-7 (vector-ref sc1 3))) (lambda (eta-0) (CoreC-45ContextC-45Data-case--caseC-32blockC-32inC-32getPs-967 arg-0 arg-1 arg-2 arg-3 arg-4 e-5 e-6 e-7 e-3 (CoreC-45Name-u--C-61C-61_Eq_Name e-7 arg-3) eta-0))))))(else (lambda (eta-0) (vector 1 arg-4))))))))))) -(define CoreC-45ContextC-45Data-case--updateParamsC-44mergeArg-766 (lambda (arg-0 arg-1 arg-2 arg-3 arg-5 arg-6 arg-7 arg-10 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (cond ((equal? sc0 0) (vector 1 (vector 0 arg-13 arg-12 arg-10))) (else (vector 0 )))))) -(define CoreC-45ContextC-45Data-case--dropRepsC-44toNothing-596 (lambda (arg-1 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 arg-12 arg-13) (let ((sc0 arg-13)) (cond ((equal? sc0 0) (vector 0 )) (else arg-12))))) -(define CoreC-45ContextC-45Data-n--7443-577-u--toNothing (lambda (arg-1 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((e-6 (vector-ref sc1 3))) (let ((u--tm (vector 1 (vector 0 e-4 e-5 e-6)))) (CoreC-45ContextC-45Data-case--dropRepsC-44toNothing-596 arg-1 arg-4 arg-5 arg-6 e-4 e-5 e-6 u--tm (PreludeC-45Types-u--C-61C-61_Eq_Nat arg-1 e-6)))))))(else arg-7)))))(else arg-7))))) -(define CoreC-45ContextC-45Data-n--7763-868-u--shrink (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (CoreC-45TT-shrinkTerm e-2 (vector 1 (vector 0 ))))))))) -(define CoreC-45ContextC-45Data-n--7572-741-u--mergeArg (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((e-6 (vector-ref sc1 3))) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((e-12 (vector-ref sc2 3))) (CoreC-45ContextC-45Data-case--updateParamsC-44mergeArg-766 arg-0 arg-1 arg-2 arg-3 e-10 e-11 e-12 e-6 e-5 e-4 (PreludeC-45Types-u--C-61C-61_Eq_Nat e-6 e-12))))))(else (vector 0 ))))))))(else (vector 0 ))))))(else (vector 0 )))))) -(define CoreC-45ContextC-45Data-n--7957-1039-u--justPos (lambda (arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (if (null? sc0) '() (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (cons arg-2 (CoreC-45ContextC-45Data-n--7957-1039-u--justPos arg-1 (PreludeC-45Types-u--C-43_Num_Nat (PreludeC-45Types-u--fromInteger_Num_Nat 1) arg-2) e-3))) (else (CoreC-45ContextC-45Data-n--7957-1039-u--justPos arg-1 (PreludeC-45Types-u--C-43_Num_Nat (PreludeC-45Types-u--fromInteger_Num_Nat 1) arg-2) e-3)))))))))) -(define CoreC-45ContextC-45Data-n--7572-685-u--couldBeParam (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (CoreC-45Normalise-etaContract arg-0 arg-1 arg-3 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (let ((sc1 e-5)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((e-4 (vector-ref sc1 3))) (vector 1 (vector 0 e-2 e-3 e-4))))))(else (vector 0 )))))))))))) -(define CoreC-45ContextC-45Data-n--8118-1195-u--conVisibility (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (vector 0 ))(else arg-9))))) -(define CoreC-45ContextC-45Data-n--8118-1194-u--allDet (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (cond ((equal? sc0 0) '())(else (let ((e-0 (- arg-9 1))) (PreludeC-45Types-u--rangeFromTo_Range_Nat 0 e-0))))))) -(define CoreC-45ContextC-45Data-n--8118-1196-u--addDataConstructors (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-10)) (if (null? sc0) (lambda (eta-0) (vector 1 arg-11)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((e-6 (vector-ref sc1 3))) (let ((e-7 (vector-ref sc1 4))) (let ((u--condef (CoreC-45Context-newDef e-4 e-5 (AlgebraC-45ZeroOneOmega-u--top_Top_ZeroOneOmega) arg-7 e-7 (CoreC-45ContextC-45Data-n--8118-1195-u--conVisibility arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-6) (vector 5 arg-9 e-6 (vector 0 ))))) (lambda (eta-0) (let ((act-24 (CoreC-45Context-addCtxt e-5 u--condef arg-11 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-8 (vector-ref sc2 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc2 1))) (let ((sc3 e-8)) (let ((e-9 (cdr sc3))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact e-5 arg-11) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-11 (vector-ref sc4 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc4 1))) (let ((sc5 e-11)) (case (vector-ref sc5 0) ((0) ((CoreC-45ContextC-45Data-n--8118-1196-u--addDataConstructors arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (bs+ arg-9 1 63) e-3 e-9) eta-0)) (else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 38 e-4 e-5) eta-0))))))))))))))))))))))))))))) -(define CoreC-45ContextC-45Data-updateParams (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc1 eta-0)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (CoreC-45ContextC-45Data-dropReps e-5))))))) (lambda (eta-0) (CoreC-45Core-traverseC-39 (lambda (eta-1) (lambda (eta-2) (CoreC-45ContextC-45Data-n--7572-685-u--couldBeParam arg-0 arg-1 arg-3 eta-1 eta-2))) arg-3 '() eta-0)) ext-0)) (else (let ((e-2 (vector-ref sc0 1))) (vector 1 (CoreC-45ContextC-45Data-dropReps (DataC-45List-u--zipWith_Zippable_List (lambda (eta-0) (lambda (eta-1) (CoreC-45ContextC-45Data-n--7572-741-u--mergeArg arg-0 arg-1 e-2 arg-3 eta-0 eta-1))) e-2 arg-3))))))))) -(define CoreC-45ContextC-45Data-toPos (lambda (arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) '()) (else (let ((e-2 (vector-ref sc0 1))) (CoreC-45ContextC-45Data-n--7957-1039-u--justPos e-2 0 e-2))))))) -(define CoreC-45ContextC-45Data-paramPos (lambda (arg-0 arg-1 arg-2 ext-0) (let ((sc0 arg-2)) (if (null? sc0) (vector 1 (vector 0 )) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45ContextC-45Data-getConPs arg-0 '() (vector 0 ) arg-1 eta-0)) arg-2 '() ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 (DataC-45List-intersectAll (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45Types-u--C-61C-61_Eq_Nat arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45Types-u--C-47C-61_Eq_Nat arg-4 arg-5)))) e-5)))))))))))) -(define CoreC-45ContextC-45Data-getPs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (let ((e-9 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 ((CoreC-45ContextC-45Data-getPs arg-0 (cons e-2 arg-1) (PreludeC-45Types-u--map_Functor_Maybe (lambda (eta-1) (PreludeC-45Types-u--map_Functor_List (lambda (eta-2) (PreludeC-45Types-u--map_Functor_Maybe (lambda (eta-3) (CoreC-45TT-u--weaken_Weaken_Term eta-3)) eta-2)) eta-1)) arg-2) arg-3 e-4) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (PreludeC-45Types-u--map_Functor_Maybe (lambda (eta-1) (PreludeC-45Types-u--map_Functor_List (lambda (eta-2) (CoreC-45ContextC-45Data-n--7763-868-u--shrink arg-0 arg-1 e-1 e-6 e-7 e-8 e-9 e-2 e-4 arg-3 arg-2 eta-2)) eta-1)) e-5)))))))))))))(else (CoreC-45ContextC-45Data-case--getPs-940 arg-0 arg-1 arg-4 arg-3 arg-2 (CoreC-45TT-getFnArgs arg-4))))))))))(else (CoreC-45ContextC-45Data-case--getPs-940 arg-0 arg-1 arg-4 arg-3 arg-2 (CoreC-45TT-getFnArgs arg-4))))))) -(define CoreC-45ContextC-45Data-getConPs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((3) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-9 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 ((CoreC-45ContextC-45Data-getPs arg-0 arg-1 arg-2 arg-3 e-9) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) ((CoreC-45ContextC-45Data-getConPs arg-0 (cons e-2 arg-1) (PreludeC-45Types-u--map_Functor_Maybe (lambda (eta-1) (PreludeC-45Types-u--map_Functor_List (lambda (eta-2) (PreludeC-45Types-u--map_Functor_Maybe (lambda (eta-3) (CoreC-45TT-u--weaken_Weaken_Term eta-3)) eta-2)) eta-1)) e-5) arg-3 e-4) eta-0))))))))) ((1) (let ((e-13 (vector-ref sc1 3))) (CoreC-45ContextC-45Data-getConPs arg-0 arg-1 arg-2 arg-3 (CoreC-45TTC-45SubstEnv-subst e-13 e-4))))(else (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (CoreC-45ContextC-45Data-toPos e-5))))))) (CoreC-45ContextC-45Data-getPs arg-0 arg-1 arg-2 arg-3 arg-4) eta-0)))))))))(else (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (let ((sc0 eta-1)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (CoreC-45ContextC-45Data-toPos e-5))))))) (CoreC-45ContextC-45Data-getPs arg-0 arg-1 arg-2 arg-3 arg-4) eta-0))))))) -(define CoreC-45ContextC-45Data-dropReps (lambda (arg-1) (let ((sc0 arg-1)) (if (null? sc0) '() (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (let ((e-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (let ((e-10 (vector-ref sc2 3))) (cons (vector 1 (vector 0 e-8 e-9 e-10)) (CoreC-45ContextC-45Data-dropReps (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45ContextC-45Data-n--7443-577-u--toNothing e-10 e-9 e-8 e-3 eta-0)) e-3)))))))(else (cons e-2 (CoreC-45ContextC-45Data-dropReps e-3)))))))(else (cons e-2 (CoreC-45ContextC-45Data-dropReps e-3))))))))))) -(define CoreC-45ContextC-45Data-addData (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((sc0 arg-4)) (let ((e-0 (car sc0))) (let ((e-1 (cdr sc0))) (let ((sc1 e-0)) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((e-4 (vector-ref sc1 3))) (let ((e-5 (vector-ref sc1 4))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-25 (CoreC-45Context-getNextTypeTag arg-0 ext-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc3 1))) (let ((u--allPos (CoreC-45ContextC-45Data-n--8118-1194-u--allDet e-5 e-4 e-3 e-2 e-1 arg-3 arg-2 arg-1 arg-0 e-4))) (let ((act-26 (CoreC-45ContextC-45Data-paramPos arg-0 (vector 9 arg-3) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (let ((sc4 eta-0)) (let ((e-8 (vector-ref sc4 4))) e-8))) e-1) ext-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc4 1))) (let ((u--paramPositions (DataC-45Maybe-fromMaybe (lambda () u--allPos) e-8))) (let ((act-27 (CoreC-45ContextC-45Log-log arg-0 "declare.data.parameters" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))))))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Positions of parameters for datatype" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-3) (PreludeC-45TypesC-45String-C-43C-43 ": [" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-showSep ", " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (PreludeC-45Show-u--show_Show_Nat eta-0)) u--paramPositions)) "]"))))) ext-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (vector 0 e-9))) (else (let ((u--tydef (CoreC-45Context-newDef e-2 e-3 (AlgebraC-45ZeroOneOmega-u--top_Top_ZeroOneOmega) arg-1 e-5 arg-2 (vector 6 e-7 e-4 u--paramPositions u--allPos (CoreC-45Context-defaultFlags) '() (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (let ((sc6 eta-0)) (let ((e-12 (vector-ref sc6 2))) e-12))) e-1) (vector 0 ))))) (let ((act-28 (CoreC-45Context-addCtxt e-3 u--tydef (let ((sc6 e-6)) (let ((e-37 (vector-ref sc6 1))) e-37)) ext-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((sc7 e-10)) (let ((e-12 (car sc7))) (let ((e-11 (cdr sc7))) (let ((act-29 ((CoreC-45ContextC-45Data-n--8118-1196-u--addDataConstructors e-5 e-4 e-3 e-2 e-1 arg-3 arg-2 arg-1 arg-0 0 e-1 e-11) ext-0))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-30 (let ((act-30 (set-box! arg-0 (let ((sc9 e-6)) (let ((e-40 (vector-ref sc9 2))) (let ((e-39 (vector-ref sc9 3))) (let ((e-38 (vector-ref sc9 4))) (let ((e-37 (vector-ref sc9 5))) (let ((e-36 (vector-ref sc9 6))) (let ((e-35 (vector-ref sc9 7))) (let ((e-34 (vector-ref sc9 8))) (let ((e-33 (vector-ref sc9 9))) (let ((e-32 (vector-ref sc9 10))) (let ((e-31 (vector-ref sc9 11))) (let ((e-30 (vector-ref sc9 12))) (let ((e-29 (vector-ref sc9 13))) (let ((e-28 (vector-ref sc9 14))) (let ((e-14 (vector-ref sc9 15))) (let ((e-15 (vector-ref sc9 16))) (let ((e-16 (vector-ref sc9 17))) (let ((e-17 (vector-ref sc9 18))) (let ((e-18 (vector-ref sc9 19))) (let ((e-19 (vector-ref sc9 20))) (let ((e-20 (vector-ref sc9 21))) (let ((e-21 (vector-ref sc9 22))) (let ((e-22 (vector-ref sc9 23))) (let ((e-23 (vector-ref sc9 24))) (let ((e-24 (vector-ref sc9 25))) (let ((e-25 (vector-ref sc9 26))) (let ((e-26 (vector-ref sc9 27))) (let ((e-27 (vector-ref sc9 28))) (vector 0 e-13 e-40 e-39 e-38 e-37 e-36 e-35 e-34 e-33 e-32 e-31 e-30 e-29 e-28 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27)))))))))))))))))))))))))))))))) (vector 1 act-30)))) (let ((sc9 act-30)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (vector 0 e-14))) (else (vector 1 e-12)))))))))))))))))))))))))))))))))))))))))))))))))) -(define TTImpC-45ProcessBuiltin-case--caseC-32blockC-32inC-32processBuiltinNatural-8599 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 ext-0) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((6) (let ((e-6 (vector-ref sc0 7))) (let ((act-24 (TTImpC-45ProcessBuiltin-getConsGDef (let ((sc1 arg-2)) (let ((e-35 (vector-ref sc1 1))) e-35)) arg-1 e-6 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-8 (vector-ref sc1 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc1 1))) (let ((act-25 (TTImpC-45ProcessBuiltin-checkCons (let ((sc2 arg-2)) (let ((e-36 (vector-ref sc2 1))) e-36)) e-8 arg-7 arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-9 (vector-ref sc2 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc2 1))) (let ((act-26 (CoreC-45Context-getFullName arg-5 (let ((sc3 e-9)) (let ((e-11 (car sc3))) e-11)) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc3 1))) (let ((act-27 (CoreC-45Context-getFullName arg-5 (let ((sc4 e-9)) (let ((e-11 (cdr sc4))) e-11)) ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-11 (vector-ref sc4 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc4 1))) (let ((act-28 (CoreC-45Context-getFullName arg-5 arg-0 ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-12 (vector-ref sc5 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc5 1))) (TTImpC-45ProcessBuiltin-addBuiltinNat arg-5 e-12 (cons e-10 e-11) ext-0))))))))))))))))))))))))))))(else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-1 (PreludeC-45TypesC-45String-C-43C-43 "Expected a type constructor, found:\u000a" (CoreC-45Context-u--show_Show_Def arg-10))) ext-0)))))) -(define TTImpC-45ProcessBuiltin-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkConsC-44checkCon-8083 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (cond ((equal? sc0 0) (lambda (clam-0) (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((1) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-0 (PreludeC-45TypesC-45String-C-43C-43 "Multiple 'Z'-like constructors for " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name arg-1) "."))) clam-0)) (else (vector 1 (cons (vector 1 arg-4) arg-8)))))))(else (let ((e-0 (- arg-13 1))) (lambda (clam-0) (let ((sc0 e-0)) (cond ((equal? sc0 0) (let ((sc1 arg-8)) (case (vector-ref sc1 0) ((1) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-0 (PreludeC-45TypesC-45String-C-43C-43 "Multiple 'S'-like constructors for " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name arg-1) "."))) clam-0)) (else (let ((act-24 ((TTImpC-45ProcessBuiltin-n--9128-7786-u--checkTyS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) clam-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (vector 1 (cons arg-7 (vector 1 arg-4)))))))))))(else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-0 (PreludeC-45TypesC-45String-C-43C-43 "Constructor " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name arg-4) " doesn't match any pattern for Natural."))) clam-0))))))))))) -(define TTImpC-45ProcessBuiltin-case--caseC-32blockC-32inC-32checkConsC-44checkCon-8052 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((5) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (TTImpC-45ProcessBuiltin-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkConsC-44checkCon-8083 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-0 e-2 e-1 (PreludeC-45Types-minus e-1 (PreludeC-45TypesC-45List-length (let ((sc1 arg-5)) (let ((e-3 (vector-ref sc1 4))) e-3)))))))))(else (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-0 (PreludeC-45TypesC-45String-C-43C-43 "Expected data constructor, found:\u000a" (CoreC-45Context-u--show_Show_Def arg-10))) eta-0))))))) -(define TTImpC-45ProcessBuiltin-case--caseC-32blockC-32inC-32checkConsC-44checkTyS-7901 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 ext-0) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-6 (cdr sc1))) (let ((act-24 (let ((sc2 (TTImpC-45ProcessBuiltin-termConMatch arg-9 e-6))) (cond ((equal? sc2 0) (vector 1 (vector 0 ))) (else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-0 (PreludeC-45TypesC-45String-C-43C-43 "Incorrect type for 'S'-like constructor for " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name arg-1) "."))) ext-0)))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-25 (let ((sc3 (TTImpC-45ProcessBuiltin-isStrict arg-9))) (cond ((equal? sc3 0) (vector 1 (vector 0 ))) (else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-0 "Natural builtin does not support lazy types, as they can be potentially infinite.") ext-0)))))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))))))))))) (else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 (PreludeC-45TypesC-45String-C-43C-43 "Unexpected type " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() arg-6))) ext-0)))))) -(define TTImpC-45ProcessBuiltin-case--checkConsC-44checkTyS-7870 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-5 (car sc1))) (let ((e-6 (cdr sc1))) (lambda (eta-0) (TTImpC-45ProcessBuiltin-case--caseC-32blockC-32inC-32checkConsC-44checkTyS-7901 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-5 e-6 (TTImpC-45ProcessBuiltin-getRetTy '() arg-6) eta-0))))))) (else (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 "Expected a non-erased argument, found none.") eta-0))))))) -(define TTImpC-45ProcessBuiltin-case--caseC-32blockC-32inC-32getFirstNETy-7244 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (TTImpC-45ProcessBuiltin-getFirstNETy (cons arg-2 arg-0) arg-3)) (else (vector 1 (cons arg-0 arg-6))))))) -(define TTImpC-45ProcessBuiltin-n--9128-7786-u--checkTyS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((u--type (let ((sc0 arg-5)) (let ((e-2 (vector-ref sc0 3))) e-2)))) (let ((u--erase (let ((sc0 arg-5)) (let ((e-3 (vector-ref sc0 4))) e-3)))) (TTImpC-45ProcessBuiltin-case--checkConsC-44checkTyS-7870 arg-0 arg-1 arg-2 arg-3 arg-5 arg-4 u--type u--erase (TTImpC-45ProcessBuiltin-getFirstNETy '() u--type)))))) -(define TTImpC-45ProcessBuiltin-n--9128-7787-u--checkCon (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((sc0 arg-4)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((act-24 (arg-5 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-6 (car sc2))) (let ((e-4 (cdr sc2))) (let ((_-0 (cons e-6 e-4))) ((TTImpC-45ProcessBuiltin-case--caseC-32blockC-32inC-32checkConsC-44checkCon-8052 arg-0 arg-1 arg-2 arg-3 e-2 e-3 arg-5 e-6 e-4 _-0 (let ((sc3 e-3)) (let ((e-17 (vector-ref sc3 18))) e-17))) ext-0))))))))))))))) -(define TTImpC-45ProcessBuiltin-termConMatch (lambda (arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-42 (vector-ref sc0 3))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (let ((e-75 (vector-ref sc1 3))) (PreludeC-45Types-u--C-61C-61_Eq_Nat e-42 e-75)))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((6) (let ((e-37 (vector-ref sc1 3))) (TTImpC-45ProcessBuiltin-termConMatch arg-2 e-37)))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((7) (let ((e-23 (vector-ref sc1 3))) (let ((e-24 (vector-ref sc1 4))) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((7) (let ((e-32 (vector-ref sc2 3))) (let ((e-33 (vector-ref sc2 4))) (PreludeC-45Basics-C-38C-38 (TTImpC-45ProcessBuiltin-termConMatch e-23 e-32) (lambda () (TTImpC-45ProcessBuiltin-termConMatch e-24 e-33))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((8) (let ((e-19 (vector-ref sc2 3))) (TTImpC-45ProcessBuiltin-termConMatch arg-2 e-19)))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((9) (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((9) 0)(else 1)))) ((10) (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((10) 0)(else 1)))) ((11) (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((11) 0)(else 1))))(else 1)))))))))))) ((8) (let ((e-28 (vector-ref sc1 3))) (TTImpC-45ProcessBuiltin-termConMatch e-28 arg-3)))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((8) (let ((e-19 (vector-ref sc1 3))) (TTImpC-45ProcessBuiltin-termConMatch arg-2 e-19)))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((9) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((9) 0)(else 1)))) ((10) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((10) 0)(else 1)))) ((11) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((11) 0)(else 1))))(else 1))))))))))))))))) ((1) (let ((e-47 (vector-ref sc0 3))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((1) (let ((e-80 (vector-ref sc1 3))) (CoreC-45Name-u--C-61C-61_Eq_Name e-47 e-80)))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((6) (let ((e-37 (vector-ref sc1 3))) (TTImpC-45ProcessBuiltin-termConMatch arg-2 e-37)))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((7) (let ((e-23 (vector-ref sc1 3))) (let ((e-24 (vector-ref sc1 4))) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((7) (let ((e-32 (vector-ref sc2 3))) (let ((e-33 (vector-ref sc2 4))) (PreludeC-45Basics-C-38C-38 (TTImpC-45ProcessBuiltin-termConMatch e-23 e-32) (lambda () (TTImpC-45ProcessBuiltin-termConMatch e-24 e-33))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((8) (let ((e-19 (vector-ref sc2 3))) (TTImpC-45ProcessBuiltin-termConMatch arg-2 e-19)))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((9) (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((9) 0)(else 1)))) ((10) (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((10) 0)(else 1)))) ((11) (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((11) 0)(else 1))))(else 1)))))))))))) ((8) (let ((e-28 (vector-ref sc1 3))) (TTImpC-45ProcessBuiltin-termConMatch e-28 arg-3)))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((8) (let ((e-19 (vector-ref sc1 3))) (TTImpC-45ProcessBuiltin-termConMatch arg-2 e-19)))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((9) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((9) 0)(else 1)))) ((10) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((10) 0)(else 1)))) ((11) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((11) 0)(else 1))))(else 1))))))))))))))))) ((2) (let ((e-51 (vector-ref sc0 3))) (let ((e-52 (vector-ref sc0 4))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((2) (let ((e-84 (vector-ref sc1 3))) (let ((e-85 (vector-ref sc1 4))) (PreludeC-45Basics-C-38C-38 (PreludeC-45EqOrd-u--C-61C-61_Eq_Int e-51 e-84) (lambda () (LibrariesC-45DataC-45BoolC-45Extra-allTrue (DataC-45List-u--zipWith_Zippable_List (lambda (eta-0) (lambda (eta-1) (TTImpC-45ProcessBuiltin-termConMatch eta-0 eta-1))) e-52 e-85)))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((6) (let ((e-37 (vector-ref sc1 3))) (TTImpC-45ProcessBuiltin-termConMatch arg-2 e-37)))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((7) (let ((e-23 (vector-ref sc1 3))) (let ((e-24 (vector-ref sc1 4))) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((7) (let ((e-32 (vector-ref sc2 3))) (let ((e-33 (vector-ref sc2 4))) (PreludeC-45Basics-C-38C-38 (TTImpC-45ProcessBuiltin-termConMatch e-23 e-32) (lambda () (TTImpC-45ProcessBuiltin-termConMatch e-24 e-33))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((8) (let ((e-19 (vector-ref sc2 3))) (TTImpC-45ProcessBuiltin-termConMatch arg-2 e-19)))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((9) (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((9) 0)(else 1)))) ((10) (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((10) 0)(else 1)))) ((11) (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((11) 0)(else 1))))(else 1)))))))))))) ((8) (let ((e-28 (vector-ref sc1 3))) (TTImpC-45ProcessBuiltin-termConMatch e-28 arg-3)))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((8) (let ((e-19 (vector-ref sc1 3))) (TTImpC-45ProcessBuiltin-termConMatch arg-2 e-19)))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((9) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((9) 0)(else 1)))) ((10) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((10) 0)(else 1)))) ((11) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((11) 0)(else 1))))(else 1)))))))))))))))))) ((3) (let ((e-56 (vector-ref sc0 3))) (let ((e-57 (vector-ref sc0 4))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((3) (let ((e-89 (vector-ref sc1 3))) (let ((e-90 (vector-ref sc1 4))) (PreludeC-45Basics-C-38C-38 (CoreC-45TT-eqBinderBy (lambda (eta-0) (lambda (eta-1) (TTImpC-45ProcessBuiltin-termConMatch eta-0 eta-1))) e-56 e-89) (lambda () (TTImpC-45ProcessBuiltin-termConMatch e-57 e-90))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((6) (let ((e-37 (vector-ref sc1 3))) (TTImpC-45ProcessBuiltin-termConMatch arg-2 e-37)))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((7) (let ((e-23 (vector-ref sc1 3))) (let ((e-24 (vector-ref sc1 4))) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((7) (let ((e-32 (vector-ref sc2 3))) (let ((e-33 (vector-ref sc2 4))) (PreludeC-45Basics-C-38C-38 (TTImpC-45ProcessBuiltin-termConMatch e-23 e-32) (lambda () (TTImpC-45ProcessBuiltin-termConMatch e-24 e-33))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((8) (let ((e-19 (vector-ref sc2 3))) (TTImpC-45ProcessBuiltin-termConMatch arg-2 e-19)))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((9) (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((9) 0)(else 1)))) ((10) (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((10) 0)(else 1)))) ((11) (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((11) 0)(else 1))))(else 1)))))))))))) ((8) (let ((e-28 (vector-ref sc1 3))) (TTImpC-45ProcessBuiltin-termConMatch e-28 arg-3)))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((8) (let ((e-19 (vector-ref sc1 3))) (TTImpC-45ProcessBuiltin-termConMatch arg-2 e-19)))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((9) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((9) 0)(else 1)))) ((10) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((10) 0)(else 1)))) ((11) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((11) 0)(else 1))))(else 1)))))))))))))))))) ((4) (let ((e-60 (vector-ref sc0 2))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((4) (let ((e-93 (vector-ref sc1 2))) (TTImpC-45ProcessBuiltin-termConMatch e-60 e-93)))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((6) (let ((e-37 (vector-ref sc1 3))) (TTImpC-45ProcessBuiltin-termConMatch arg-2 e-37)))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((7) (let ((e-23 (vector-ref sc1 3))) (let ((e-24 (vector-ref sc1 4))) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((7) (let ((e-32 (vector-ref sc2 3))) (let ((e-33 (vector-ref sc2 4))) (PreludeC-45Basics-C-38C-38 (TTImpC-45ProcessBuiltin-termConMatch e-23 e-32) (lambda () (TTImpC-45ProcessBuiltin-termConMatch e-24 e-33))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((8) (let ((e-19 (vector-ref sc2 3))) (TTImpC-45ProcessBuiltin-termConMatch arg-2 e-19)))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((9) (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((9) 0)(else 1)))) ((10) (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((10) 0)(else 1)))) ((11) (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((11) 0)(else 1))))(else 1)))))))))))) ((8) (let ((e-28 (vector-ref sc1 3))) (TTImpC-45ProcessBuiltin-termConMatch e-28 arg-3)))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((8) (let ((e-19 (vector-ref sc1 3))) (TTImpC-45ProcessBuiltin-termConMatch arg-2 e-19)))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((9) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((9) 0)(else 1)))) ((10) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((10) 0)(else 1)))) ((11) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((11) 0)(else 1))))(else 1))))))))))))))))) ((5) (let ((e-65 (vector-ref sc0 3))) (let ((e-66 (vector-ref sc0 4))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((5) (let ((e-98 (vector-ref sc1 3))) (let ((e-99 (vector-ref sc1 4))) (PreludeC-45Basics-C-38C-38 (TTImpC-45ProcessBuiltin-termConMatch e-65 e-98) (lambda () (TTImpC-45ProcessBuiltin-termConMatch e-66 e-99))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((6) (let ((e-37 (vector-ref sc1 3))) (TTImpC-45ProcessBuiltin-termConMatch arg-2 e-37)))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((7) (let ((e-23 (vector-ref sc1 3))) (let ((e-24 (vector-ref sc1 4))) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((7) (let ((e-32 (vector-ref sc2 3))) (let ((e-33 (vector-ref sc2 4))) (PreludeC-45Basics-C-38C-38 (TTImpC-45ProcessBuiltin-termConMatch e-23 e-32) (lambda () (TTImpC-45ProcessBuiltin-termConMatch e-24 e-33))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((8) (let ((e-19 (vector-ref sc2 3))) (TTImpC-45ProcessBuiltin-termConMatch arg-2 e-19)))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((9) (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((9) 0)(else 1)))) ((10) (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((10) 0)(else 1)))) ((11) (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((11) 0)(else 1))))(else 1)))))))))))) ((8) (let ((e-28 (vector-ref sc1 3))) (TTImpC-45ProcessBuiltin-termConMatch e-28 arg-3)))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((8) (let ((e-19 (vector-ref sc1 3))) (TTImpC-45ProcessBuiltin-termConMatch arg-2 e-19)))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((9) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((9) 0)(else 1)))) ((10) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((10) 0)(else 1)))) ((11) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((11) 0)(else 1))))(else 1)))))))))))))))))) ((6) (let ((e-70 (vector-ref sc0 3))) (TTImpC-45ProcessBuiltin-termConMatch e-70 arg-3)))(else (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((6) (let ((e-37 (vector-ref sc0 3))) (TTImpC-45ProcessBuiltin-termConMatch arg-2 e-37)))(else (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((7) (let ((e-23 (vector-ref sc0 3))) (let ((e-24 (vector-ref sc0 4))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((7) (let ((e-32 (vector-ref sc1 3))) (let ((e-33 (vector-ref sc1 4))) (PreludeC-45Basics-C-38C-38 (TTImpC-45ProcessBuiltin-termConMatch e-23 e-32) (lambda () (TTImpC-45ProcessBuiltin-termConMatch e-24 e-33))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((8) (let ((e-19 (vector-ref sc1 3))) (TTImpC-45ProcessBuiltin-termConMatch arg-2 e-19)))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((9) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((9) 0)(else 1)))) ((10) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((10) 0)(else 1)))) ((11) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((11) 0)(else 1))))(else 1)))))))))))) ((8) (let ((e-28 (vector-ref sc0 3))) (TTImpC-45ProcessBuiltin-termConMatch e-28 arg-3)))(else (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((8) (let ((e-19 (vector-ref sc0 3))) (TTImpC-45ProcessBuiltin-termConMatch arg-2 e-19)))(else (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((9) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((9) 0)(else 1)))) ((10) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((10) 0)(else 1)))) ((11) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((11) 0)(else 1))))(else 1))))))))))))))))) -(define TTImpC-45ProcessBuiltin-processBuiltinNatural (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (CoreC-45ContextC-45Log-log arg-0 "builtin.Natural" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Processing Builtin Natural pragma for " (CoreC-45Name-u--show_Show_Name arg-5))) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((act-25 ((CoreC-45Context-lookupCtxtName arg-5 (let ((sc1 arg-3)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (if (null? sc2) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 7 arg-4 arg-5) ext-0) (let ((e-1 (car sc2))) (let ((e-2 (cdr sc2))) (let ((sc3 e-1)) (if (null? sc3) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 17 arg-4 (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (PreludeC-45Types-u--map_Functor_List eta-2 eta-3))))) (lambda (lamc-0) (let ((sc4 lamc-0)) (let ((e-4 (car sc4))) (let ((e-3 (cdr sc4))) (let ((sc5 e-3)) e-4))))) e-6)) ext-0) (let ((e-8 (car sc3))) (let ((e-7 (cdr sc3))) (let ((sc4 e-7)) (if (null? sc4) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 17 arg-4 (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (PreludeC-45Types-u--map_Functor_List eta-2 eta-3))))) (lambda (lamc-0) (let ((sc5 lamc-0)) (let ((e-4 (car sc5))) (let ((e-3 (cdr sc5))) (let ((sc6 e-3)) e-4))))) e-6)) ext-0) (let ((e-10 (car sc4))) (let ((e-11 (cdr sc4))) (let ((sc5 e-2)) (if (null? sc5) (let ((_-0 (cons (cons e-8 (cons e-10 e-11)) '()))) (TTImpC-45ProcessBuiltin-case--caseC-32blockC-32inC-32processBuiltinNatural-8599 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 e-10 e-8 e-11 _-0 (let ((sc6 e-11)) (let ((e-17 (vector-ref sc6 18))) e-17)) ext-0)) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 17 arg-4 (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (PreludeC-45Types-u--map_Functor_List eta-2 eta-3))))) (lambda (lamc-0) (let ((sc6 lamc-0)) (let ((e-4 (car sc6))) (let ((e-3 (cdr sc6))) (let ((sc7 e-3)) e-4))))) e-6)) ext-0)))))))))))))))))))))))))) -(define TTImpC-45ProcessBuiltin-processBuiltin (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((0) (TTImpC-45ProcessBuiltin-processBuiltinNatural arg-1 arg-2 arg-3 e-5 arg-6 arg-8 ext-0))(else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 (PreludeC-45TypesC-45String-C-43C-43 "%builtin " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Context-u--show_Show_BuiltinType arg-7) " not yet implemented."))) ext-0))))))))))) -(define TTImpC-45ProcessBuiltin-isStrict (lambda (arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) 0) ((1) 0) ((2) (let ((e-14 (vector-ref sc0 4))) (PreludeC-45Interfaces-all (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (lambda (eta-0) (TTImpC-45ProcessBuiltin-isStrict eta-0)) e-14))) ((3) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (PreludeC-45Basics-C-38C-38 (TTImpC-45ProcessBuiltin-isStrict (CoreC-45TT-binderType e-18)) (lambda () (TTImpC-45ProcessBuiltin-isStrict e-19)))))) ((4) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (PreludeC-45Basics-C-38C-38 (TTImpC-45ProcessBuiltin-isStrict e-22) (lambda () (TTImpC-45ProcessBuiltin-isStrict e-23)))))) ((5) (let ((e-27 (vector-ref sc0 3))) (let ((e-28 (vector-ref sc0 4))) (PreludeC-45Basics-C-38C-38 (TTImpC-45ProcessBuiltin-isStrict e-27) (lambda () (TTImpC-45ProcessBuiltin-isStrict e-28)))))) ((6) 1) ((7) (let ((e-36 (vector-ref sc0 3))) (let ((e-37 (vector-ref sc0 4))) (PreludeC-45Basics-C-38C-38 (TTImpC-45ProcessBuiltin-isStrict e-36) (lambda () (TTImpC-45ProcessBuiltin-isStrict e-37)))))) ((8) (let ((e-41 (vector-ref sc0 3))) (TTImpC-45ProcessBuiltin-isStrict e-41))) ((9) 0) ((10) 0) (else 0))))) -(define TTImpC-45ProcessBuiltin-getRetTy (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((3) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (vector 0 )) ((1) (let ((e-8 (vector-ref sc1 3))) (TTImpC-45ProcessBuiltin-getRetTy arg-0 (CoreC-45TTC-45SubstEnv-subst e-8 e-4)))) ((2) (TTImpC-45ProcessBuiltin-getRetTy (cons e-2 arg-0) e-4))(else (vector 0 ))))))))(else (vector 1 (cons arg-0 arg-1))))))) -(define TTImpC-45ProcessBuiltin-getFirstNETy (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 3))) (TTImpC-45ProcessBuiltin-getFirstNETy arg-0 (CoreC-45TTC-45SubstEnv-subst e-6 e-4)))) ((2) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (let ((e-9 (vector-ref sc1 4))) (let ((u--b (vector 2 e-6 e-7 e-8 e-9))) (TTImpC-45ProcessBuiltin-case--caseC-32blockC-32inC-32getFirstNETy-7244 arg-0 e-1 e-2 e-4 e-6 e-8 e-9 e-7 u--b (AlgebraC-45Semiring-isErased (cons (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-2) (lambda (arg-3) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-4 arg-5))))) e-7))))))))(else (vector 0 )))))))))(else (vector 0 )))))) -(define TTImpC-45ProcessBuiltin-getConsGDef (lambda (arg-0 arg-1 ext-1 ext-0) (CoreC-45Core-traverseC-39 (lambda (u--n) (lambda (eta-0) (let ((act-24 ((CoreC-45Context-lookupCtxtName u--n arg-0) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (if (null? sc1) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 7 arg-1 u--n) eta-0) (let ((e-1 (car sc1))) (let ((e-2 (cdr sc1))) (let ((sc2 e-1)) (if (null? sc2) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 17 arg-1 (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (PreludeC-45Types-u--map_Functor_List eta-3 eta-4))))) (lambda (lamc-0) (let ((sc3 lamc-0)) (let ((e-4 (car sc3))) (let ((e-3 (cdr sc3))) (let ((sc4 e-3)) e-4))))) e-5)) eta-0) (let ((e-6 (car sc2))) (let ((e-7 (cdr sc2))) (let ((sc3 e-7)) (if (null? sc3) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 17 arg-1 (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (PreludeC-45Types-u--map_Functor_List eta-3 eta-4))))) (lambda (lamc-0) (let ((sc4 lamc-0)) (let ((e-4 (car sc4))) (let ((e-3 (cdr sc4))) (let ((sc5 e-3)) e-4))))) e-5)) eta-0) (let ((e-11 (cdr sc3))) (let ((sc4 e-2)) (if (null? sc4) (vector 1 (cons e-6 e-11)) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 17 arg-1 (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (PreludeC-45Types-u--map_Functor_List eta-3 eta-4))))) (lambda (lamc-0) (let ((sc5 lamc-0)) (let ((e-4 (car sc5))) (let ((e-3 (cdr sc5))) (let ((sc6 e-3)) e-4))))) e-5)) eta-0))))))))))))))))))))) ext-1 '() ext-0))) -(define TTImpC-45ProcessBuiltin-checkCons (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 ((PreludeC-45Types-u--foldr_Foldable_List (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (TTImpC-45ProcessBuiltin-n--9128-7787-u--checkCon arg-3 arg-2 arg-1 arg-0 eta-0 eta-1 eta-2)))) (lambda (eta-0) (vector 1 (cons (vector 0 ) (vector 0 )))) arg-1) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-2 (car sc1))) (let ((e-3 (cdr sc1))) (let ((sc2 e-2)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((1) (let ((e-9 (vector-ref sc3 1))) (vector 1 (cons e-6 e-9))))(else (let ((sc3 e-3)) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-3 (PreludeC-45TypesC-45String-C-43C-43 "No 'S'-like constructors for " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name arg-2) "."))) ext-0))))))) ((0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-3 (PreludeC-45TypesC-45String-C-43C-43 "No 'Z'-like constructors for " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name arg-2) "."))) ext-0))(else (let ((sc2 e-3)) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-3 (PreludeC-45TypesC-45String-C-43C-43 "No 'S'-like constructors for " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name arg-2) "."))) ext-0))))))))))))))) -(define TTImpC-45ProcessBuiltin-addBuiltinNat (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (CoreC-45ContextC-45Log-log arg-0 "builtin.Natural.addTransform" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Add Builtin Natural transform for " (CoreC-45Name-u--show_Show_Name arg-1))) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((act-25 (let ((act-25 (unbox arg-0))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (set-box! arg-0 (let ((sc2 e-6)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (let ((e-3 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-29 (vector-ref sc2 6))) (let ((e-28 (vector-ref sc2 7))) (let ((e-7 (vector-ref sc2 8))) (let ((e-8 (vector-ref sc2 9))) (let ((e-9 (vector-ref sc2 10))) (let ((e-10 (vector-ref sc2 11))) (let ((e-11 (vector-ref sc2 12))) (let ((e-12 (vector-ref sc2 13))) (let ((e-13 (vector-ref sc2 14))) (let ((e-14 (vector-ref sc2 15))) (let ((e-15 (vector-ref sc2 16))) (let ((e-16 (vector-ref sc2 17))) (let ((e-17 (vector-ref sc2 18))) (let ((e-18 (vector-ref sc2 19))) (let ((e-19 (vector-ref sc2 20))) (let ((e-20 (vector-ref sc2 21))) (let ((e-21 (vector-ref sc2 22))) (let ((e-22 (vector-ref sc2 23))) (let ((e-23 (vector-ref sc2 24))) (let ((e-24 (vector-ref sc2 25))) (let ((e-25 (vector-ref sc2 26))) (let ((e-26 (vector-ref sc2 27))) (let ((e-27 (vector-ref sc2 28))) (let ((sc3 e-15)) (let ((e-32 (vector-ref sc3 1))) (let ((e-31 (vector-ref sc3 2))) (let ((e-30 (vector-ref sc3 3))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-29 e-28 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 (vector 0 (LibrariesC-45DataC-45NameMap-insert arg-1 arg-2 e-32) (LibrariesC-45DataC-45NameMap-insert (let ((sc4 arg-2)) (let ((e-34 (car sc4))) e-34)) (vector 0 ) e-31) (LibrariesC-45DataC-45NameMap-insert (let ((sc4 arg-2)) (let ((e-33 (cdr sc4))) e-33)) (vector 0 ) e-30)) e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27))))))))))))))))))))))))))))))))))))) (vector 1 act-26))))))))))))) -(define TTImpC-45Parser-case--collectDefs-8690 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (cons (vector 2 arg-2 arg-1 (PreludeC-45TypesC-45List-C-43C-43 arg-0 e-2)) (TTImpC-45Parser-collectDefs e-3))))))) -(define TTImpC-45Parser-case--collectDefsC-44isClause-8643 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (cond ((equal? sc0 0) (vector 1 arg-5)) (else (vector 0 )))))) -(define TTImpC-45Parser-case--caseC-32blockC-32inC-32collectDefsC-44spanMap-8596 (lambda (arg-0 arg-1 arg-2 arg-3 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (cons (PreludeC-45TypesC-45List-C-43C-43 arg-9 e-2) e-3)))))) -(define TTImpC-45Parser-case--collectDefsC-44spanMap-8531 (lambda (arg-0 arg-1 arg-2 arg-3 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (cons '() (cons arg-6 arg-7))) (else (let ((e-2 (vector-ref sc0 1))) (TTImpC-45Parser-case--caseC-32blockC-32inC-32collectDefsC-44spanMap-8596 arg-0 arg-1 arg-2 arg-3 arg-7 arg-8 arg-6 e-2 (TTImpC-45Parser-n--9218-8497-u--spanMap arg-0 arg-1 arg-2 arg-3 arg-8 arg-7)))))))) -(define TTImpC-45Parser-n--9218-8497-u--spanMap (lambda (arg-0 arg-1 arg-2 arg-3 arg-6 arg-7) (let ((sc0 arg-7)) (if (null? sc0) (cons '() '()) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (TTImpC-45Parser-case--collectDefsC-44spanMap-8531 arg-0 arg-1 arg-2 arg-3 e-2 e-3 arg-6 (arg-6 e-2)))))))) -(define TTImpC-45Parser-n--12017-7153-u--parseWithArg (lambda (arg-0 arg-1 arg-2) (vector 10 0 (ParserC-45RuleC-45Source-symbol "|") (lambda () (vector 9 1 0 (ParserC-45RuleC-45Common-location (vector "Parser.Lexer.Source.Token" )) (lambda (u--start) (vector 8 1 (TTImpC-45Parser-expr arg-1 arg-0) (lambda () (lambda (u--tm) (vector 9 1 1 (ParserC-45RuleC-45Common-location (vector "Parser.Lexer.Source.Token" )) (lambda (u--end) (vector 0 (cons (vector 0 arg-1 u--start u--end) u--tm))))))))))))) -(define TTImpC-45Parser-n--9940-6717-u--mkPi (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (if (null? sc0) arg-4 (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (vector 1 (vector 0 arg-1 arg-2 arg-3) (AlgebraC-45ZeroOneOmega-u--top_Top_ZeroOneOmega) e-6 (vector 0 ) arg-4 (TTImpC-45Parser-n--9940-6717-u--mkPi arg-0 arg-1 arg-2 arg-3 e-7 e-3))))))))))) -(define TTImpC-45Parser-n--9218-8498-u--isClause (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (TTImpC-45Parser-case--collectDefsC-44isClause-8643 arg-0 arg-1 arg-2 arg-3 e-0 e-2 e-1 arg-4 (CoreC-45Name-u--C-61C-61_Eq_Name arg-4 e-1))))))(else (vector 0 )))))) -(define TTImpC-45Parser-n--12016-6898-u--getFn (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (vector 0 e-1))) ((8) (let ((e-3 (vector-ref sc0 2))) (TTImpC-45Parser-n--12016-6898-u--getFn arg-0 arg-1 arg-2 arg-3 arg-4 e-3))) ((9) (let ((e-6 (vector-ref sc0 2))) (TTImpC-45Parser-n--12016-6898-u--getFn arg-0 arg-1 arg-2 arg-3 arg-4 e-6))) ((10) (let ((e-9 (vector-ref sc0 2))) (TTImpC-45Parser-n--12016-6898-u--getFn arg-0 arg-1 arg-2 arg-3 arg-4 e-9)))(else (vector 4 (vector 0 ) 1 "Not a function application")))))) -(define TTImpC-45Parser-n--12901-7793-u--fieldBody (lambda (arg-0 arg-1 arg-2) (vector 9 1 0 (ParserC-45RuleC-45Common-location (vector "Parser.Lexer.Source.Token" )) (lambda (u--start) (vector 8 0 (LibrariesC-45TextC-45Parser-sepBy1 0 (ParserC-45RuleC-45Source-symbol ",") (ParserC-45RuleC-45Source-unqualifiedName)) (lambda () (lambda (u--ns) (vector 10 0 (ParserC-45RuleC-45Source-symbol ":") (lambda () (vector 8 1 (TTImpC-45Parser-expr arg-1 arg-0) (lambda () (lambda (u--ty) (vector 9 1 1 (ParserC-45RuleC-45Common-location (vector "Parser.Lexer.Source.Token" )) (lambda (u--end) (vector 0 (PreludeC-45Types-u--map_Functor_List (lambda (u--n) (vector 0 (vector 0 arg-1 u--start u--end) (AlgebraC-45Semiring-linear (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))) arg-2 (vector 1 u--n) u--ty)) (DataC-45List1-forget u--ns))))))))))))))))) -(define TTImpC-45Parser-n--9930-5882-u--bindAll (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (if (null? sc0) arg-4 (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (let ((sc2 e-7)) (let ((e-10 (car sc2))) (let ((e-11 (cdr sc2))) (vector 2 arg-2 e-6 (vector 1 ) (vector 1 e-10) e-11 (TTImpC-45Parser-n--9930-5882-u--bindAll arg-0 arg-1 arg-2 e-3 arg-4)))))))))))))) -(define TTImpC-45Parser-n--9915-4776-u--applyExpImp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (if (null? sc0) arg-4 (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (TTImpC-45Parser-n--9915-4776-u--applyExpImp arg-0 arg-1 arg-2 arg-3 (vector 8 (vector 0 arg-1 arg-2 arg-3) arg-4 e-6) e-3))) (else (let ((e-9 (vector-ref sc1 1))) (let ((sc2 e-9)) (let ((e-12 (car sc2))) (let ((e-13 (cdr sc2))) (let ((sc3 e-12)) (case (vector-ref sc3 0) ((1) (let ((e-15 (vector-ref sc3 1))) (TTImpC-45Parser-n--9915-4776-u--applyExpImp arg-0 arg-1 arg-2 arg-3 (vector 10 (vector 0 arg-1 arg-2 arg-3) arg-4 e-15 e-13) e-3))) (else (TTImpC-45Parser-n--9915-4776-u--applyExpImp arg-0 arg-1 arg-2 arg-3 (vector 9 (vector 0 arg-1 arg-2 arg-3) arg-4 e-13) e-3))))))))))))))))) -(define TTImpC-45Parser-n--12017-7152-u--applyArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (if (null? sc0) arg-3 (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (TTImpC-45Parser-n--12017-7152-u--applyArgs arg-0 arg-1 arg-2 (vector 8 e-6 arg-3 e-7) e-3)))))))))) -(define TTImpC-45Parser-visibility (lambda () (vector 12 0 1 (TTImpC-45Parser-visOption) (lambda () (vector 0 (vector 0 )))))) -(define TTImpC-45Parser-visOption (lambda () (vector 12 0 (PreludeC-45Basics-C-38C-38 0 (lambda () 0)) (vector 10 0 (ParserC-45RuleC-45Source-keyword "public") (lambda () (vector 10 1 (ParserC-45RuleC-45Source-keyword "export") (lambda () (vector 0 (vector 2 )))))) (lambda () (vector 12 0 0 (vector 10 1 (ParserC-45RuleC-45Source-keyword "export") (lambda () (vector 0 (vector 1 )))) (lambda () (vector 10 1 (ParserC-45RuleC-45Source-keyword "private") (lambda () (vector 0 (vector 0 )))))))))) -(define TTImpC-45Parser-visOpt (lambda () (vector 12 0 0 (vector 8 1 (TTImpC-45Parser-visOption) (lambda () (lambda (u--vis) (vector 0 (vector 0 u--vis))))) (lambda () (vector 12 0 0 (vector 8 1 (TTImpC-45Parser-fnOpt) (lambda () (lambda (u--tot) (vector 0 (vector 1 u--tot))))) (lambda () (vector 8 1 (TTImpC-45Parser-fnDirectOpt) (lambda () (lambda (u--opt) (vector 0 (vector 1 u--opt))))))))))) -(define TTImpC-45Parser-typeExpr (lambda (arg-0 arg-1) (vector 9 1 0 (ParserC-45RuleC-45Common-location (vector "Parser.Lexer.Source.Token" )) (lambda (u--start) (vector 8 1 (TTImpC-45Parser-appExpr arg-0 arg-1) (lambda () (lambda (u--arg) (vector 12 0 1 (vector 11 1 (PreludeC-45Basics-C-124C-124 0 (lambda () 1)) (ParserC-45RuleC-45Source-continue arg-1) (vector 8 1 (LibrariesC-45TextC-45Parser-some (vector 8 0 (TTImpC-45Parser-bindSymbol) (lambda () (lambda (u--exp) (vector 8 1 (TTImpC-45Parser-appExpr arg-0 arg-1) (lambda () (lambda (u--op) (vector 0 (cons u--exp u--op))))))))) (lambda () (lambda (u--rest) (vector 9 1 1 (ParserC-45RuleC-45Common-location (vector "Parser.Lexer.Source.Token" )) (lambda (u--end) (vector 0 (TTImpC-45Parser-n--9940-6717-u--mkPi arg-1 arg-0 u--start u--end u--arg (DataC-45List1-forget u--rest))))))))) (lambda () (vector 0 u--arg)))))))))) -(define TTImpC-45Parser-tyDecl (lambda (arg-0 arg-1) (vector 9 1 0 (ParserC-45RuleC-45Common-location (vector "Parser.Lexer.Source.Token" )) (lambda (u--start) (vector 8 0 (ParserC-45RuleC-45Source-name) (lambda () (lambda (u--n) (vector 9 1 0 (ParserC-45RuleC-45Common-location (vector "Parser.Lexer.Source.Token" )) (lambda (u--nameEnd) (vector 10 0 (ParserC-45RuleC-45Source-symbol ":") (lambda () (vector 8 1 (TTImpC-45Parser-expr arg-0 arg-1) (lambda () (lambda (u--ty) (vector 9 1 1 (ParserC-45RuleC-45Common-location (vector "Parser.Lexer.Source.Token" )) (lambda (u--end) (vector 11 1 1 (ParserC-45RuleC-45Source-atEnd arg-1) (vector 0 (vector 0 (vector 0 arg-0 u--start u--end) (vector 0 arg-0 u--start u--nameEnd) u--n u--ty))))))))))))))))))) -(define TTImpC-45Parser-totalityOpt (lambda () (vector 12 0 (PreludeC-45Basics-C-38C-38 0 (lambda () 0)) (vector 10 1 (ParserC-45RuleC-45Source-keyword "partial") (lambda () (vector 0 (vector 2 )))) (lambda () (vector 12 0 0 (vector 10 1 (ParserC-45RuleC-45Source-keyword "total") (lambda () (vector 0 (vector 0 )))) (lambda () (vector 10 1 (ParserC-45RuleC-45Source-keyword "covering") (lambda () (vector 0 (vector 1 )))))))))) -(define TTImpC-45Parser-topDecl (lambda (arg-0 arg-1) (vector 12 (PreludeC-45Basics-C-124C-124 1 (lambda () 0)) 0 (vector 9 1 0 (ParserC-45RuleC-45Common-location (vector "Parser.Lexer.Source.Token" )) (lambda (u--start) (vector 9 1 0 (TTImpC-45Parser-visibility) (lambda (u--vis) (vector 8 1 (TTImpC-45Parser-dataDecl arg-0 arg-1) (lambda () (lambda (u--dat) (vector 9 1 1 (ParserC-45RuleC-45Common-location (vector "Parser.Lexer.Source.Token" )) (lambda (u--end) (vector 0 (vector 1 (vector 0 arg-0 u--start u--end) u--vis u--dat))))))))))) (lambda () (vector 12 (PreludeC-45Basics-C-124C-124 1 (lambda () 0)) 0 (vector 9 1 0 (ParserC-45RuleC-45Common-location (vector "Parser.Lexer.Source.Token" )) (lambda (u--start) (vector 8 0 (TTImpC-45Parser-namespaceDecl) (lambda () (lambda (u--ns) (vector 8 1 (ParserC-45RuleC-45Source-nonEmptyBlock (lambda (eta-0) (TTImpC-45Parser-topDecl arg-0 eta-0))) (lambda () (lambda (u--ds) (vector 9 1 1 (ParserC-45RuleC-45Common-location (vector "Parser.Lexer.Source.Token" )) (lambda (u--end) (vector 0 (vector 5 (vector 0 arg-0 u--start u--end) u--ns (DataC-45List1-forget u--ds))))))))))))) (lambda () (vector 12 (PreludeC-45Basics-C-124C-124 1 (lambda () 0)) 0 (vector 9 1 0 (ParserC-45RuleC-45Common-location (vector "Parser.Lexer.Source.Token" )) (lambda (u--start) (vector 9 1 0 (LibrariesC-45TextC-45Parser-many (TTImpC-45Parser-visOpt)) (lambda (u--visOpts) (vector 9 1 0 (TTImpC-45Parser-getVisibility (vector 0 ) u--visOpts) (lambda (u--vis) (let ((u--opts (DataC-45List-mapMaybe (lambda (eta-0) (TTImpC-45Parser-getRight eta-0)) u--visOpts))) (vector 9 1 0 (TTImpC-45Parser-multiplicity) (lambda (u--m) (vector 9 1 0 (TTImpC-45Parser-getMult u--m) (lambda (u--rig) (vector 8 1 (TTImpC-45Parser-tyDecl arg-0 arg-1) (lambda () (lambda (u--claim) (vector 9 1 1 (ParserC-45RuleC-45Common-location (vector "Parser.Lexer.Source.Token" )) (lambda (u--end) (vector 0 (vector 0 (vector 0 arg-0 u--start u--end) u--rig u--vis u--opts u--claim)))))))))))))))))) (lambda () (vector 12 0 0 (TTImpC-45Parser-recordDecl arg-0 arg-1) (lambda () (vector 12 0 0 (TTImpC-45Parser-directive arg-0 arg-1) (lambda () (TTImpC-45Parser-definition arg-0 arg-1))))))))))))) -(define TTImpC-45Parser-simpleExpr (lambda (arg-0 arg-1) (vector 12 0 0 (TTImpC-45Parser-as arg-0 arg-1) (lambda () (vector 12 0 0 (TTImpC-45Parser-atom arg-0) (lambda () (vector 12 0 0 (TTImpC-45Parser-binder arg-0 arg-1) (lambda () (vector 12 0 0 (TTImpC-45Parser-rewrite_ arg-0 arg-1) (lambda () (vector 12 0 0 (TTImpC-45Parser-record_ arg-0 arg-1) (lambda () (vector 10 0 (ParserC-45RuleC-45Source-symbol "(") (lambda () (vector 8 0 (TTImpC-45Parser-expr arg-0 arg-1) (lambda () (lambda (u--e) (vector 10 1 (ParserC-45RuleC-45Source-symbol ")") (lambda () (vector 0 u--e)))))))))))))))))))) -(define TTImpC-45Parser-rewrite_ (lambda (arg-0 arg-1) (vector 9 1 0 (ParserC-45RuleC-45Common-location (vector "Parser.Lexer.Source.Token" )) (lambda (u--start) (vector 10 0 (ParserC-45RuleC-45Source-keyword "rewrite") (lambda () (vector 8 0 (TTImpC-45Parser-expr arg-0 arg-1) (lambda () (lambda (u--rule) (vector 10 0 (ParserC-45RuleC-45Source-keyword "in") (lambda () (vector 8 1 (TTImpC-45Parser-expr arg-0 arg-1) (lambda () (lambda (u--tm) (vector 9 1 1 (ParserC-45RuleC-45Common-location (vector "Parser.Lexer.Source.Token" )) (lambda (u--end) (vector 0 (vector 14 (vector 0 arg-0 u--start u--end) u--rule u--tm)))))))))))))))))) -(define TTImpC-45Parser-record_ (lambda (arg-0 arg-1) (vector 9 1 0 (ParserC-45RuleC-45Common-location (vector "Parser.Lexer.Source.Token" )) (lambda (u--start) (vector 10 (PreludeC-45Basics-C-124C-124 0 (lambda () 0)) (ParserC-45RuleC-45Source-keyword "record") (lambda () (vector 10 0 (ParserC-45RuleC-45Source-symbol "{") (lambda () (vector 11 1 0 (vector 6 ) (vector 8 0 (LibrariesC-45TextC-45Parser-sepBy1 0 (ParserC-45RuleC-45Source-symbol ",") (TTImpC-45Parser-field arg-0 arg-1)) (lambda () (lambda (u--fs) (vector 10 0 (ParserC-45RuleC-45Source-symbol "}") (lambda () (vector 8 1 (TTImpC-45Parser-expr arg-0 arg-1) (lambda () (lambda (u--sc) (vector 9 1 1 (ParserC-45RuleC-45Common-location (vector "Parser.Lexer.Source.Token" )) (lambda (u--end) (vector 0 (vector 7 (vector 0 arg-0 u--start u--end) (DataC-45List1-forget u--fs) u--sc))))))))))))))))))))) -(define TTImpC-45Parser-recordParam (lambda (arg-0 arg-1) (vector 12 (PreludeC-45Basics-C-124C-124 0 (lambda () 0)) (PreludeC-45Basics-C-38C-38 (PreludeC-45Basics-C-124C-124 0 (lambda () 0)) (lambda () (PreludeC-45Basics-C-124C-124 1 (lambda () 0)))) (vector 10 0 (ParserC-45RuleC-45Source-symbol "(") (lambda () (vector 9 1 0 (ParserC-45RuleC-45Common-location (vector "Parser.Lexer.Source.Token" )) (lambda (u--start) (vector 8 0 (TTImpC-45Parser-pibindListName arg-0 u--start arg-1) (lambda () (lambda (u--params) (vector 10 1 (ParserC-45RuleC-45Source-symbol ")") (lambda () (vector 0 (PreludeC-45Types-u--map_Functor_List (lambda (lamc-0) (let ((sc0 lamc-0)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-3)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (cons e-6 (cons e-2 (cons (vector 1 ) e-7)))))))))) u--params))))))))))) (lambda () (vector 12 (PreludeC-45Basics-C-124C-124 0 (lambda () 0)) (PreludeC-45Basics-C-124C-124 1 (lambda () 0)) (vector 10 0 (ParserC-45RuleC-45Source-symbol "{") (lambda () (vector 11 1 0 (vector 6 ) (vector 9 1 0 (ParserC-45RuleC-45Common-location (vector "Parser.Lexer.Source.Token" )) (lambda (u--start) (vector 9 1 0 (vector 12 0 (PreludeC-45Basics-C-38C-38 0 (lambda () 1)) (vector 9 1 0 (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 1 (lambda (eta-0) (lambda (eta-1) eta-0)) (vector 0 (vector 2 ))) (lambda (u--f) (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 0 u--f (ParserC-45RuleC-45Source-keyword "auto")))) (lambda () (vector 12 0 1 (vector 10 0 (ParserC-45RuleC-45Source-keyword "default") (lambda () (vector 8 1 (TTImpC-45Parser-simpleExpr arg-0 arg-1) (lambda () (lambda (u--t) (vector 0 (vector 3 u--t))))))) (lambda () (vector 0 (vector 0 )))))) (lambda (u--info) (vector 8 0 (TTImpC-45Parser-pibindListName arg-0 u--start arg-1) (lambda () (lambda (u--params) (vector 10 1 (ParserC-45RuleC-45Source-symbol "}") (lambda () (vector 0 (PreludeC-45Types-u--map_Functor_List (lambda (lamc-0) (let ((sc0 lamc-0)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-3)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (cons e-6 (cons e-2 (cons u--info e-7)))))))))) u--params)))))))))))))) (lambda () (vector 9 1 0 (ParserC-45RuleC-45Common-location (vector "Parser.Lexer.Source.Token" )) (lambda (u--start) (vector 8 1 (ParserC-45RuleC-45Source-name) (lambda () (lambda (u--n) (vector 9 1 1 (ParserC-45RuleC-45Common-location (vector "Parser.Lexer.Source.Token" )) (lambda (u--end) (vector 0 (cons (cons u--n (cons (AlgebraC-45ZeroOneOmega-u--top_Top_ZeroOneOmega) (cons (vector 1 ) (vector 32 (vector 0 arg-0 u--start u--end) 1)))) '()))))))))))))))) -(define TTImpC-45Parser-recordDecl (lambda (arg-0 arg-1) (vector 9 1 0 (ParserC-45RuleC-45Common-location (vector "Parser.Lexer.Source.Token" )) (lambda (u--start) (vector 9 1 0 (TTImpC-45Parser-visibility) (lambda (u--vis) (vector 9 1 0 (ParserC-45RuleC-45Common-column (vector "Parser.Lexer.Source.Token" )) (lambda (u--col) (vector 10 (PreludeC-45Basics-C-124C-124 1 (lambda () 0)) (ParserC-45RuleC-45Source-keyword "record") (lambda () (vector 11 1 0 (vector 6 ) (vector 8 0 (ParserC-45RuleC-45Source-name) (lambda () (lambda (u--n) (vector 9 1 0 (LibrariesC-45TextC-45Parser-many (TTImpC-45Parser-recordParam arg-0 arg-1)) (lambda (u--paramss) (let ((u--params (PreludeC-45Interfaces-concat (cons (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-2 arg-3))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) u--paramss))) (vector 10 0 (ParserC-45RuleC-45Source-keyword "where") (lambda () (vector 10 (PreludeC-45Basics-C-124C-124 0 (lambda () 1)) (ParserC-45RuleC-45Source-exactIdent "constructor") (lambda () (vector 8 1 (ParserC-45RuleC-45Source-name) (lambda () (lambda (u--dc) (vector 9 1 1 (ParserC-45RuleC-45Source-blockAfter u--col (lambda (eta-0) (TTImpC-45Parser-fieldDecl arg-0 eta-0))) (lambda (u--flds) (vector 9 1 1 (ParserC-45RuleC-45Common-location (vector "Parser.Lexer.Source.Token" )) (lambda (u--end) (vector 0 (let ((u--fc (vector 0 arg-0 u--start u--end))) (vector 4 u--fc (vector 0 ) u--vis (vector 0 u--fc u--n u--params u--dc (PreludeC-45Interfaces-concat (cons (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-2 arg-3))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) u--flds))))))))))))))))))))))))))))))))) -(define TTImpC-45Parser-prog (lambda (arg-0) (vector 8 1 (ParserC-45RuleC-45Source-nonEmptyBlock (lambda (eta-0) (TTImpC-45Parser-topDecl arg-0 eta-0))) (lambda () (lambda (u--ds) (vector 0 (TTImpC-45Parser-collectDefs (DataC-45List1-forget u--ds)))))))) -(define TTImpC-45Parser-pibindListName (lambda (arg-0 arg-1 arg-2) (vector 12 (PreludeC-45Basics-C-124C-124 1 (lambda () 0)) 0 (vector 9 1 0 (TTImpC-45Parser-multiplicity) (lambda (u--rigc) (vector 8 0 (LibrariesC-45TextC-45Parser-sepBy1 0 (ParserC-45RuleC-45Source-symbol ",") (ParserC-45RuleC-45Source-unqualifiedName)) (lambda () (lambda (u--ns) (vector 10 0 (ParserC-45RuleC-45Source-symbol ":") (lambda () (vector 8 1 (TTImpC-45Parser-expr arg-0 arg-2) (lambda () (lambda (u--ty) (vector 11 1 1 (ParserC-45RuleC-45Source-atEnd arg-2) (vector 9 1 1 (TTImpC-45Parser-getMult u--rigc) (lambda (u--rig) (vector 0 (PreludeC-45Types-u--map_Functor_List (lambda (u--n) (cons u--rig (cons (vector 1 u--n) u--ty))) (DataC-45List1-forget u--ns)))))))))))))))) (lambda () (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 0 eta-2 eta-3))))) (lambda (eta-0) (DataC-45List1-forget eta-0)) (LibrariesC-45TextC-45Parser-sepBy1 (PreludeC-45Basics-C-124C-124 1 (lambda () 0)) (ParserC-45RuleC-45Source-symbol ",") (vector 9 1 0 (TTImpC-45Parser-multiplicity) (lambda (u--rigc) (vector 8 0 (ParserC-45RuleC-45Source-name) (lambda () (lambda (u--n) (vector 10 0 (ParserC-45RuleC-45Source-symbol ":") (lambda () (vector 8 1 (TTImpC-45Parser-expr arg-0 arg-2) (lambda () (lambda (u--ty) (vector 9 1 1 (TTImpC-45Parser-getMult u--rigc) (lambda (u--rig) (vector 0 (cons u--rig (cons u--n u--ty))))))))))))))))))))) -(define TTImpC-45Parser-pibindList (lambda (arg-0 arg-1 arg-2) (vector 8 1 (TTImpC-45Parser-pibindListName arg-0 arg-1 arg-2) (lambda () (lambda (u--params) (vector 0 (PreludeC-45Types-u--map_Functor_List (lambda (lamc-0) (let ((sc0 lamc-0)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-3)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (cons e-2 (cons (vector 1 e-6) e-7))))))))) u--params))))))) -(define TTImpC-45Parser-pibindAll (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (if (null? sc0) arg-3 (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (let ((sc2 e-7)) (let ((e-10 (car sc2))) (let ((e-11 (cdr sc2))) (vector 1 arg-0 e-6 arg-1 e-10 e-11 (TTImpC-45Parser-pibindAll arg-0 arg-1 e-3 arg-3)))))))))))))) -(define TTImpC-45Parser-parseRHS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (vector 12 (PreludeC-45Basics-C-124C-124 0 (lambda () 0)) (PreludeC-45Basics-C-38C-38 0 (lambda () 0)) (vector 10 0 (ParserC-45RuleC-45Source-symbol "=") (lambda () (vector 11 1 0 (vector 6 ) (vector 8 1 (TTImpC-45Parser-expr arg-1 arg-2) (lambda () (lambda (u--rhs) (vector 11 1 (PreludeC-45Basics-C-124C-124 1 (lambda () 1)) (ParserC-45RuleC-45Source-atEnd arg-2) (vector 9 1 1 (ParserC-45RuleC-45Common-location (vector "Parser.Lexer.Source.Token" )) (lambda (u--end) (let ((u--fc (vector 0 arg-1 arg-3 u--end))) (vector 9 1 1 (TTImpC-45Parser-n--12016-6898-u--getFn arg-4 arg-3 arg-2 arg-1 arg-0 arg-4) (lambda (bind-0) (vector 0 (cons bind-0 (vector 0 u--fc arg-4 u--rhs))))))))))))))) (lambda () (vector 12 0 0 (vector 10 (PreludeC-45Basics-C-124C-124 1 (lambda () 0)) (ParserC-45RuleC-45Source-keyword "with") (lambda () (vector 9 1 0 (ParserC-45RuleC-45Common-location (vector "Parser.Lexer.Source.Token" )) (lambda (u--wstart) (vector 10 0 (ParserC-45RuleC-45Source-symbol "(") (lambda () (vector 8 0 (TTImpC-45Parser-expr arg-1 arg-2) (lambda () (lambda (u--wval) (vector 10 0 (ParserC-45RuleC-45Source-symbol ")") (lambda () (vector 9 1 0 (LibrariesC-45TextC-45Parser-optional 0 (vector 9 0 0 (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 0 (lambda (eta-0) (lambda (eta-1) eta-1)) (ParserC-45RuleC-45Source-keyword "proof")) (lambda (u--f) (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 0 u--f (ParserC-45RuleC-45Source-name))))) (lambda (u--prf) (vector 8 1 (ParserC-45RuleC-45Source-nonEmptyBlock (lambda (eta-0) (TTImpC-45Parser-clause (+ 1 arg-0) arg-1 eta-0))) (lambda () (lambda (u--ws) (vector 9 1 1 (ParserC-45RuleC-45Common-location (vector "Parser.Lexer.Source.Token" )) (lambda (u--end) (let ((u--fc (vector 0 arg-1 arg-3 u--end))) (vector 9 1 1 (TTImpC-45Parser-n--12016-6898-u--getFn arg-4 arg-3 arg-2 arg-1 arg-0 arg-4) (lambda (bind-0) (vector 0 (cons bind-0 (vector 1 u--fc arg-4 u--wval u--prf '() (DataC-45List1-forget (DataC-45List1-u--map_Functor_List1 (lambda (eta-0) (Builtin-snd eta-0)) u--ws)))))))))))))))))))))))))) (lambda () (vector 10 1 (ParserC-45RuleC-45Source-keyword "impossible") (lambda () (vector 11 1 (PreludeC-45Basics-C-124C-124 1 (lambda () 1)) (ParserC-45RuleC-45Source-atEnd arg-2) (vector 9 1 1 (ParserC-45RuleC-45Common-location (vector "Parser.Lexer.Source.Token" )) (lambda (u--end) (let ((u--fc (vector 0 arg-1 arg-3 u--end))) (vector 9 1 1 (TTImpC-45Parser-n--12016-6898-u--getFn arg-4 arg-3 arg-2 arg-1 arg-0 arg-4) (lambda (bind-0) (vector 0 (cons bind-0 (vector 2 u--fc arg-4))))))))))))))))) -(define TTImpC-45Parser-namespaceDecl (lambda () (vector 10 (PreludeC-45Basics-C-124C-124 1 (lambda () 0)) (ParserC-45RuleC-45Source-keyword "namespace") (lambda () (vector 11 1 0 (vector 6 ) (ParserC-45RuleC-45Source-namespaceId)))))) -(define TTImpC-45Parser-multiplicity (lambda () (vector 12 (PreludeC-45Basics-C-124C-124 0 (lambda () 1)) 1 (vector 8 1 (ParserC-45RuleC-45Source-intLit) (lambda () (lambda (u--c) (vector 0 (vector 1 u--c))))) (lambda () (vector 0 (vector 0 )))))) -(define TTImpC-45Parser-logLevel (lambda () (vector 12 0 0 (PreludeC-45Interfaces-C-60C-36 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 0 eta-2 eta-3))))) (vector 0 ) (ParserC-45RuleC-45Source-exactIdent "off")) (lambda () (vector 9 1 0 (LibrariesC-45TextC-45Parser-option (PreludeC-45Basics-C-124C-124 0 (lambda () 1)) '() (vector 9 0 1 (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 0 eta-2 eta-3))))) (lambda (eta-0) (lambda (eta-1) (cons eta-0 eta-1))) (ParserC-45RuleC-45Source-unqualifiedName)) (lambda (u--f) (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 1 u--f (LibrariesC-45TextC-45Parser-many (ParserC-45RuleC-45Source-aDotIdent)))))) (lambda (u--topic) (vector 8 1 (ParserC-45RuleC-45Source-intLit) (lambda () (lambda (u--lvl) (vector 0 (vector 1 (cons u--topic (PreludeC-45Types-u--fromInteger_Num_Nat u--lvl))))))))))))) -(define TTImpC-45Parser-let_ (lambda (arg-0 arg-1) (vector 12 (PreludeC-45Basics-C-124C-124 1 (lambda () 0)) (PreludeC-45Basics-C-124C-124 1 (lambda () 0)) (vector 9 1 0 (ParserC-45RuleC-45Common-location (vector "Parser.Lexer.Source.Token" )) (lambda (u--start) (vector 10 (PreludeC-45Basics-C-124C-124 1 (lambda () 0)) (ParserC-45RuleC-45Source-keyword "let") (lambda () (vector 9 1 0 (TTImpC-45Parser-multiplicity) (lambda (u--rigc) (vector 9 1 0 (TTImpC-45Parser-getMult u--rigc) (lambda (u--rig) (vector 8 0 (vector 13 (ParserC-45RuleC-45Source-name)) (lambda () (lambda (u--n) (vector 10 0 (ParserC-45RuleC-45Source-symbol "=") (lambda () (vector 11 1 0 (vector 6 ) (vector 8 0 (TTImpC-45Parser-expr arg-0 arg-1) (lambda () (lambda (u--val) (vector 11 1 0 (ParserC-45RuleC-45Source-continue arg-1) (vector 10 0 (ParserC-45RuleC-45Source-keyword "in") (lambda () (vector 8 1 (TTImpC-45Parser-typeExpr arg-0 arg-1) (lambda () (lambda (u--scope) (vector 9 1 1 (ParserC-45RuleC-45Common-location (vector "Parser.Lexer.Source.Token" )) (lambda (u--end) (vector 0 (let ((u--fc (vector 0 arg-0 u--start u--end))) (vector 3 u--fc (CoreC-45FC-boundToFC arg-0 u--n) u--rig (let ((sc0 u--n)) (let ((e-1 (vector-ref sc0 1))) e-1)) (vector 32 u--fc 1) u--val u--scope)))))))))))))))))))))))))))) (lambda () (vector 9 1 0 (ParserC-45RuleC-45Common-location (vector "Parser.Lexer.Source.Token" )) (lambda (u--start) (vector 10 (PreludeC-45Basics-C-124C-124 1 (lambda () 0)) (ParserC-45RuleC-45Source-keyword "let") (lambda () (vector 9 1 0 (ParserC-45RuleC-45Source-block (lambda (eta-0) (TTImpC-45Parser-topDecl arg-0 eta-0))) (lambda (u--ds) (vector 11 1 0 (ParserC-45RuleC-45Source-continue arg-1) (vector 10 0 (ParserC-45RuleC-45Source-keyword "in") (lambda () (vector 8 1 (TTImpC-45Parser-typeExpr arg-0 arg-1) (lambda () (lambda (u--scope) (vector 9 1 1 (ParserC-45RuleC-45Common-location (vector "Parser.Lexer.Source.Token" )) (lambda (u--end) (vector 0 (vector 5 (vector 0 arg-0 u--start u--end) (TTImpC-45Parser-collectDefs u--ds) u--scope)))))))))))))))))))) -(define TTImpC-45Parser-lazy (lambda (arg-0 arg-1) (vector 12 (PreludeC-45Basics-C-124C-124 1 (lambda () 0)) 0 (vector 9 1 0 (ParserC-45RuleC-45Common-location (vector "Parser.Lexer.Source.Token" )) (lambda (u--start) (vector 10 0 (ParserC-45RuleC-45Source-exactIdent "Lazy") (lambda () (vector 8 1 (TTImpC-45Parser-simpleExpr arg-0 arg-1) (lambda () (lambda (u--tm) (vector 9 1 1 (ParserC-45RuleC-45Common-location (vector "Parser.Lexer.Source.Token" )) (lambda (u--end) (vector 0 (vector 20 (vector 0 arg-0 u--start u--end) (vector 1 ) u--tm))))))))))) (lambda () (vector 12 (PreludeC-45Basics-C-124C-124 1 (lambda () 0)) 0 (vector 9 1 0 (ParserC-45RuleC-45Common-location (vector "Parser.Lexer.Source.Token" )) (lambda (u--start) (vector 10 0 (ParserC-45RuleC-45Source-exactIdent "Inf") (lambda () (vector 8 1 (TTImpC-45Parser-simpleExpr arg-0 arg-1) (lambda () (lambda (u--tm) (vector 9 1 1 (ParserC-45RuleC-45Common-location (vector "Parser.Lexer.Source.Token" )) (lambda (u--end) (vector 0 (vector 20 (vector 0 arg-0 u--start u--end) (vector 0 ) u--tm))))))))))) (lambda () (vector 12 (PreludeC-45Basics-C-124C-124 1 (lambda () 0)) (PreludeC-45Basics-C-124C-124 1 (lambda () 0)) (vector 9 1 0 (ParserC-45RuleC-45Common-location (vector "Parser.Lexer.Source.Token" )) (lambda (u--start) (vector 10 0 (ParserC-45RuleC-45Source-exactIdent "Delay") (lambda () (vector 8 1 (TTImpC-45Parser-simpleExpr arg-0 arg-1) (lambda () (lambda (u--tm) (vector 9 1 1 (ParserC-45RuleC-45Common-location (vector "Parser.Lexer.Source.Token" )) (lambda (u--end) (vector 0 (vector 21 (vector 0 arg-0 u--start u--end) u--tm))))))))))) (lambda () (vector 9 1 0 (ParserC-45RuleC-45Common-location (vector "Parser.Lexer.Source.Token" )) (lambda (u--start) (vector 10 0 (ParserC-45RuleC-45Source-exactIdent "Force") (lambda () (vector 8 1 (TTImpC-45Parser-simpleExpr arg-0 arg-1) (lambda () (lambda (u--tm) (vector 9 1 1 (ParserC-45RuleC-45Common-location (vector "Parser.Lexer.Source.Token" )) (lambda (u--end) (vector 0 (vector 22 (vector 0 arg-0 u--start u--end) u--tm))))))))))))))))))) -(define TTImpC-45Parser-lam (lambda (arg-0 arg-1) (vector 9 1 0 (ParserC-45RuleC-45Common-location (vector "Parser.Lexer.Source.Token" )) (lambda (u--start) (vector 10 0 (ParserC-45RuleC-45Source-symbol "\\") (lambda () (vector 8 0 (TTImpC-45Parser-bindList arg-0 u--start arg-1) (lambda () (lambda (u--binders) (vector 10 0 (ParserC-45RuleC-45Source-symbol "=>") (lambda () (vector 11 1 0 (ParserC-45RuleC-45Source-mustContinue arg-1 (vector 0 )) (vector 8 1 (TTImpC-45Parser-expr arg-0 arg-1) (lambda () (lambda (u--scope) (vector 9 1 1 (ParserC-45RuleC-45Common-location (vector "Parser.Lexer.Source.Token" )) (lambda (u--end) (vector 0 (TTImpC-45Parser-n--9930-5882-u--bindAll arg-1 arg-0 (vector 0 arg-0 u--start u--end) u--binders u--scope))))))))))))))))))) -(define TTImpC-45Parser-implicitPi (lambda (arg-0 arg-1) (vector 9 1 0 (ParserC-45RuleC-45Common-location (vector "Parser.Lexer.Source.Token" )) (lambda (u--start) (vector 10 0 (ParserC-45RuleC-45Source-symbol "{") (lambda () (vector 8 0 (TTImpC-45Parser-pibindList arg-0 u--start arg-1) (lambda () (lambda (u--binders) (vector 10 0 (ParserC-45RuleC-45Source-symbol "}") (lambda () (vector 10 0 (ParserC-45RuleC-45Source-symbol "->") (lambda () (vector 8 1 (TTImpC-45Parser-typeExpr arg-0 arg-1) (lambda () (lambda (u--scope) (vector 9 1 1 (ParserC-45RuleC-45Common-location (vector "Parser.Lexer.Source.Token" )) (lambda (u--end) (vector 0 (TTImpC-45Parser-pibindAll (vector 0 arg-0 u--start u--end) (vector 0 ) u--binders u--scope)))))))))))))))))))) -(define TTImpC-45Parser-implicitArg (lambda (arg-0 arg-1) (vector 12 (PreludeC-45Basics-C-124C-124 1 (lambda () 0)) 0 (vector 9 1 0 (ParserC-45RuleC-45Common-location (vector "Parser.Lexer.Source.Token" )) (lambda (u--start) (vector 10 0 (ParserC-45RuleC-45Source-symbol "{") (lambda () (vector 8 0 (ParserC-45RuleC-45Source-unqualifiedName) (lambda () (lambda (u--x) (vector 12 (PreludeC-45Basics-C-124C-124 0 (lambda () 0)) (PreludeC-45Basics-C-124C-124 0 (lambda () 1)) (vector 10 0 (ParserC-45RuleC-45Source-symbol "=") (lambda () (vector 11 1 0 (vector 6 ) (vector 8 0 (TTImpC-45Parser-expr arg-0 arg-1) (lambda () (lambda (u--tm) (vector 10 1 (ParserC-45RuleC-45Source-symbol "}") (lambda () (vector 0 (cons (vector 1 (vector 1 u--x)) u--tm)))))))))) (lambda () (vector 10 1 (ParserC-45RuleC-45Source-symbol "}") (lambda () (vector 9 1 1 (ParserC-45RuleC-45Common-location (vector "Parser.Lexer.Source.Token" )) (lambda (u--end) (vector 0 (cons (vector 1 (vector 1 u--x)) (vector 0 (vector 0 arg-0 u--start u--end) (vector 1 u--x))))))))))))))))) (lambda () (vector 10 0 (ParserC-45RuleC-45Source-symbol "@{") (lambda () (vector 11 1 0 (vector 6 ) (vector 8 0 (TTImpC-45Parser-expr arg-0 arg-1) (lambda () (lambda (u--tm) (vector 10 1 (ParserC-45RuleC-45Source-symbol "}") (lambda () (vector 0 (cons (vector 0 ) u--tm)))))))))))))) -(define TTImpC-45Parser-getVisibility (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-1)) (if (null? sc1) (vector 0 (vector 0 )) (let ((e-8 (car sc1))) (let ((e-9 (cdr sc1))) (let ((sc2 e-8)) (case (vector-ref sc2 0) ((0) (let ((e-12 (vector-ref sc2 1))) (TTImpC-45Parser-getVisibility (vector 1 e-12) e-9)))(else (let ((sc2 arg-1)) (let ((e-2 (cdr sc2))) (TTImpC-45Parser-getVisibility arg-0 e-2))))))))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((sc1 arg-1)) (if (null? sc1) (vector 0 e-5) (let ((e-15 (car sc1))) (let ((sc2 e-15)) (case (vector-ref sc2 0) ((0) (vector 4 (vector 0 ) 0 "Multiple visibility modifiers"))(else (let ((sc2 arg-1)) (let ((e-2 (cdr sc2))) (TTImpC-45Parser-getVisibility arg-0 e-2)))))))))))(else (let ((sc0 arg-1)) (let ((e-2 (cdr sc0))) (TTImpC-45Parser-getVisibility arg-0 e-2)))))))) -(define TTImpC-45Parser-getRight (lambda (arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 e-5))))))) -(define TTImpC-45Parser-getMult (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (cond ((equal? sc1 0) (vector 0 (AlgebraC-45Semiring-erased (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))))) ((equal? sc1 1) (vector 0 (AlgebraC-45Semiring-linear (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)))))(else (vector 4 (vector 0 ) 0 "Invalid multiplicity (must be 0 or 1)")))))) ((0) (vector 0 (AlgebraC-45ZeroOneOmega-u--top_Top_ZeroOneOmega)))(else (vector 4 (vector 0 ) 0 "Invalid multiplicity (must be 0 or 1)")))))) -(define TTImpC-45Parser-forall_ (lambda (arg-0 arg-1) (vector 9 1 0 (ParserC-45RuleC-45Common-location (vector "Parser.Lexer.Source.Token" )) (lambda (u--start) (vector 10 (PreludeC-45Basics-C-124C-124 1 (lambda () 0)) (ParserC-45RuleC-45Source-keyword "forall") (lambda () (vector 11 1 0 (vector 6 ) (vector 9 1 0 (ParserC-45RuleC-45Common-location (vector "Parser.Lexer.Source.Token" )) (lambda (u--nstart) (vector 8 0 (LibrariesC-45TextC-45Parser-sepBy1 0 (ParserC-45RuleC-45Source-symbol ",") (ParserC-45RuleC-45Source-unqualifiedName)) (lambda () (lambda (u--ns) (vector 9 1 0 (ParserC-45RuleC-45Common-location (vector "Parser.Lexer.Source.Token" )) (lambda (u--nend) (let ((u--nfc (vector 0 arg-0 u--nstart u--nend))) (let ((u--binders (PreludeC-45Types-u--map_Functor_List (lambda (u--n) (cons (AlgebraC-45Semiring-erased (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))) (cons (vector 1 (vector 1 u--n)) (vector 32 u--nfc 1)))) (DataC-45List1-forget u--ns)))) (vector 10 0 (ParserC-45RuleC-45Source-symbol ".") (lambda () (vector 8 1 (TTImpC-45Parser-typeExpr arg-0 arg-1) (lambda () (lambda (u--scope) (vector 9 1 1 (ParserC-45RuleC-45Common-location (vector "Parser.Lexer.Source.Token" )) (lambda (u--end) (vector 0 (TTImpC-45Parser-pibindAll (vector 0 arg-0 u--start u--end) (vector 0 ) u--binders u--scope))))))))))))))))))))))))) -(define TTImpC-45Parser-fnOpt (lambda () (vector 8 1 (TTImpC-45Parser-totalityOpt) (lambda () (lambda (u--x) (vector 0 (vector 7 u--x))))))) -(define TTImpC-45Parser-fnDirectOpt (lambda () (vector 12 (PreludeC-45Basics-C-124C-124 0 (lambda () 1)) (PreludeC-45Basics-C-38C-38 (PreludeC-45Basics-C-124C-124 0 (lambda () 1)) (lambda () (PreludeC-45Basics-C-38C-38 (PreludeC-45Basics-C-124C-124 0 (lambda () 1)) (lambda () (PreludeC-45Basics-C-38C-38 (PreludeC-45Basics-C-124C-124 0 (lambda () 1)) (lambda () (PreludeC-45Basics-C-38C-38 (PreludeC-45Basics-C-124C-124 0 (lambda () 1)) (lambda () (PreludeC-45Basics-C-124C-124 0 (lambda () 1)))))))))) (vector 10 1 (ParserC-45RuleC-45Source-pragma "hint") (lambda () (vector 0 (vector 2 0)))) (lambda () (vector 12 (PreludeC-45Basics-C-124C-124 0 (lambda () 1)) (PreludeC-45Basics-C-38C-38 (PreludeC-45Basics-C-124C-124 0 (lambda () 1)) (lambda () (PreludeC-45Basics-C-38C-38 (PreludeC-45Basics-C-124C-124 0 (lambda () 1)) (lambda () (PreludeC-45Basics-C-38C-38 (PreludeC-45Basics-C-124C-124 0 (lambda () 1)) (lambda () (PreludeC-45Basics-C-124C-124 0 (lambda () 1)))))))) (vector 10 1 (ParserC-45RuleC-45Source-pragma "chaser") (lambda () (vector 0 (vector 2 1)))) (lambda () (vector 12 (PreludeC-45Basics-C-124C-124 0 (lambda () 1)) (PreludeC-45Basics-C-38C-38 (PreludeC-45Basics-C-124C-124 0 (lambda () 1)) (lambda () (PreludeC-45Basics-C-38C-38 (PreludeC-45Basics-C-124C-124 0 (lambda () 1)) (lambda () (PreludeC-45Basics-C-124C-124 0 (lambda () 1)))))) (vector 10 1 (ParserC-45RuleC-45Source-pragma "globalhint") (lambda () (vector 0 (vector 3 0)))) (lambda () (vector 12 (PreludeC-45Basics-C-124C-124 0 (lambda () 1)) (PreludeC-45Basics-C-38C-38 (PreludeC-45Basics-C-124C-124 0 (lambda () 1)) (lambda () (PreludeC-45Basics-C-124C-124 0 (lambda () 1)))) (vector 10 1 (ParserC-45RuleC-45Source-pragma "defaulthint") (lambda () (vector 0 (vector 3 1)))) (lambda () (vector 12 (PreludeC-45Basics-C-124C-124 0 (lambda () 1)) (PreludeC-45Basics-C-124C-124 0 (lambda () 1)) (vector 10 1 (ParserC-45RuleC-45Source-pragma "inline") (lambda () (vector 0 (vector 0 )))) (lambda () (vector 10 1 (ParserC-45RuleC-45Source-pragma "extern") (lambda () (vector 0 (vector 4 )))))))))))))))) -(define TTImpC-45Parser-fieldDecl (lambda (arg-0 arg-1) (vector 12 (PreludeC-45Basics-C-124C-124 0 (lambda () 0)) 0 (vector 10 0 (ParserC-45RuleC-45Source-symbol "{") (lambda () (vector 11 1 0 (vector 6 ) (vector 8 0 (TTImpC-45Parser-n--12901-7793-u--fieldBody arg-1 arg-0 (vector 0 )) (lambda () (lambda (u--fs) (vector 10 1 (ParserC-45RuleC-45Source-symbol "}") (lambda () (vector 11 1 1 (ParserC-45RuleC-45Source-atEnd arg-1) (vector 0 u--fs)))))))))) (lambda () (vector 8 1 (TTImpC-45Parser-n--12901-7793-u--fieldBody arg-1 arg-0 (vector 1 )) (lambda () (lambda (u--fs) (vector 11 1 1 (ParserC-45RuleC-45Source-atEnd arg-1) (vector 0 u--fs))))))))) -(define TTImpC-45Parser-field (lambda (arg-0 arg-1) (vector 8 0 (LibrariesC-45TextC-45Parser-sepBy1 0 (ParserC-45RuleC-45Source-symbol "->") (ParserC-45RuleC-45Source-unqualifiedName)) (lambda () (lambda (u--path) (let ((sc0 (PreludeC-45Basics-C-38C-38 (PreludeC-45Basics-C-124C-124 0 (lambda () 1)) (lambda () (PreludeC-45Basics-C-124C-124 0 (lambda () 1)))))) (cond ((equal? sc0 1) (vector 9 1 0 (vector 12 (PreludeC-45Basics-C-124C-124 0 (lambda () 1)) (PreludeC-45Basics-C-124C-124 0 (lambda () 1)) (vector 10 1 (ParserC-45RuleC-45Source-symbol "=") (lambda () (vector 0 (lambda (eta-0) (lambda (eta-1) (vector 0 eta-0 eta-1)))))) (lambda () (vector 10 1 (ParserC-45RuleC-45Source-symbol "$=") (lambda () (vector 0 (lambda (eta-0) (lambda (eta-1) (vector 1 eta-0 eta-1)))))))) (lambda () (lambda (u--upd) (vector 8 1 (TTImpC-45Parser-appExpr arg-0 arg-1) (lambda () (lambda (u--val) (vector 0 ((u--upd (DataC-45List1-forget u--path)) u--val))))))))) (else (vector 8 0 (vector 12 (PreludeC-45Basics-C-124C-124 0 (lambda () 1)) (PreludeC-45Basics-C-124C-124 0 (lambda () 1)) (vector 10 1 (ParserC-45RuleC-45Source-symbol "=") (lambda () (vector 0 (lambda (eta-0) (lambda (eta-1) (vector 0 eta-0 eta-1)))))) (lambda () (vector 10 1 (ParserC-45RuleC-45Source-symbol "$=") (lambda () (vector 0 (lambda (eta-0) (lambda (eta-1) (vector 1 eta-0 eta-1)))))))) (lambda () (lambda (u--upd) (vector 8 1 (TTImpC-45Parser-appExpr arg-0 arg-1) (lambda () (lambda (u--val) (vector 0 ((u--upd (DataC-45List1-forget u--path)) u--val)))))))))))))))) +(define CoreC-45CaseBuilder-C-43C-43 (lambda (arg-3 arg-4) (if (null? arg-3) arg-4 (let ((e-4 (car arg-3))) (let ((e-5 (cdr arg-3))) (cons e-4 (CoreC-45CaseBuilder-C-43C-43 e-5 arg-4))))))) +(define TTImpC-45ProcessRunElab-processRunElab (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (let ((sc1 (CoreC-45Context-isExtension 0 e-5))) (cond ((equal? sc1 1) (vector 1 0)) (else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-7 "%language ElabReflection not enabled") ext-0)))))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45Context-resolveName arg-1 (vector 1 "[elaborator script]") ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((u--n (vector 0 (CoreC-45NameC-45Namespace-reflectionNS) (vector 1 "Elab")))) (let ((act-27 (CoreC-45Reflect-getCon arg-0 arg-7 e-5 (CoreC-45Reflect-builtin "Unit") ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (let ((act-28 (CoreC-45Reflect-appCon arg-0 arg-7 e-5 u--n (cons e-8 '()) ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-28 1))) (let ((act-29 (TTImpC-45Elab-checkTerm arg-0 arg-1 arg-2 arg-3 e-7 (vector 2 ) arg-4 arg-5 arg-6 arg-8 (CoreC-45Normalise-gnf arg-0 arg-6 e-9) ext-0))) (case (vector-ref act-29 0) ((0) (let ((e-2 (vector-ref act-29 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref act-29 1))) (let ((act-30 ((CoreC-45Normalise-nfOpts arg-1 arg-0 (CoreC-45Value-withAll) e-5 arg-6 e-10) ext-0))) (case (vector-ref act-30 0) ((0) (let ((e-2 (vector-ref act-30 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref act-30 1))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-2 (vector-ref eta-0 1))) (vector 0 e-2))) (else (vector 1 0)))) (lambda (eta-0) (TTImpC-45ElabC-45RunElab-elabScript arg-0 arg-1 arg-2 arg-3 arg-7 arg-5 arg-6 e-11 '() eta-0)) ext-0))))))))))))))))))))))))))))))) +(define TTImpC-45ProcessRecord-n--7142-1634-u--recTy (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (TTImpC-45ProcessRecord-n--7172-1744-u--apply arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (vector 0 (CoreC-45FC-virtualiseFC arg-9) arg-3) (PreludeC-45Types-u--map_Functor_List (lambda (lamc-0) (let ((e-2 (car lamc-0))) (let ((e-3 (cdr lamc-0))) (let ((e-7 (cdr e-3))) (let ((e-10 (car e-7))) (cons e-2 (cons (vector 0 (vector 2 ) e-2) e-10))))))) arg-2)))) +(define TTImpC-45ProcessRecord-n--7142-1630-u--paramTelescope (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (TTImpC-45ProcessRecord-n--7168-1642-u--jname arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 eta-0)) arg-2))) +(define TTImpC-45ProcessRecord-n--7142-1633-u--mkTy (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (if (null? arg-14) arg-15 (let ((e-2 (car arg-14))) (let ((e-3 (cdr arg-14))) (let ((e-6 (car e-2))) (let ((e-7 (cdr e-2))) (let ((e-10 (car e-7))) (let ((e-11 (cdr e-7))) (let ((e-14 (car e-11))) (let ((e-15 (cdr e-11))) (let ((e-18 (car e-15))) (let ((e-19 (cdr e-15))) (vector 1 e-6 e-14 e-18 e-10 e-19 (TTImpC-45ProcessRecord-n--7142-1633-u--mkTy arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-3 arg-15))))))))))))))) +(define TTImpC-45ProcessRecord-n--7168-1642-u--jname (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((e-2 (car arg-14))) (let ((e-3 (cdr arg-14))) (let ((e-7 (cdr e-3))) (let ((e-11 (cdr e-7))) (cons (vector 2 ) (cons (box e-2) (cons (AlgebraC-45Semiring-erased (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))) (cons (vector 0 ) e-11)))))))))) +(define TTImpC-45ProcessRecord-n--7142-1631-u--fname (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((e-3 (vector-ref arg-14 3))) e-3))) +(define TTImpC-45ProcessRecord-n--7142-1632-u--farg (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((e-0 (vector-ref arg-14 0))) (let ((e-1 (vector-ref arg-14 1))) (let ((e-2 (vector-ref arg-14 2))) (let ((e-3 (vector-ref arg-14 3))) (let ((e-4 (vector-ref arg-14 4))) (cons (CoreC-45FC-virtualiseFC e-0) (cons (box e-3) (cons e-1 (cons e-2 e-4))))))))))) +(define TTImpC-45ProcessRecord-n--7142-1637-u--elabGetters (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (case (vector-ref arg-19 0) ((3) (let ((e-1 (vector-ref arg-19 1))) (let ((e-2 (vector-ref arg-19 2))) (let ((e-3 (vector-ref arg-19 3))) (let ((e-4 (vector-ref arg-19 4))) (case (vector-ref e-3 0) ((2) (let ((e-6 (vector-ref e-3 1))) (let ((e-7 (vector-ref e-3 2))) (let ((e-8 (vector-ref e-3 3))) (let ((e-9 (vector-ref e-3 4))) (let ((u--rig (let ((sc2 (AlgebraC-45Semiring-isErased (cons (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-20) (lambda (arg-21) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-20 arg-21))) (lambda (arg-20) (lambda (arg-21) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-20 arg-21))))) e-7))) (cond ((equal? sc2 1) (AlgebraC-45Semiring-erased (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)))) (else (AlgebraC-45ZeroOneOmega-u--top_Top_ZeroOneOmega)))))) (let ((u--isVis (TTImpC-45ProcessRecord-projVis arg-4))) (let ((u--b (vector 2 e-6 e-7 e-8 e-9))) (let ((sc2 (let ((sc3 (PreludeC-45Types-elem (cons (lambda (arg-20) (lambda (arg-21) (CoreC-45Name-u--C-61C-61_Eq_Name arg-20 arg-21))) (lambda (arg-20) (lambda (arg-21) (CoreC-45Name-u--C-47C-61_Eq_Name arg-20 arg-21)))) e-2 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-fst eta-0)) arg-2)))) (cond ((equal? sc3 1) 1) (else (PreludeC-45Types-elem (cons (lambda (arg-20) (lambda (arg-21) (CoreC-45Name-u--C-61C-61_Eq_Name arg-20 arg-21))) (lambda (arg-20) (lambda (arg-21) (CoreC-45Name-u--C-47C-61_Eq_Name arg-20 arg-21)))) e-2 arg-6)))))) (cond ((equal? sc2 1) (TTImpC-45ProcessRecord-n--7142-1637-u--elabGetters arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (cons e-2 arg-14) arg-15 (let ((sc3 (let ((sc4 (CoreC-45TT-u--C-61C-61_Eq_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-20) (lambda (arg-21) (CoreC-45TT-u--C-61C-61_Eq_C-40TermC-32C-36varsC-41 arg-20 arg-21))) (lambda (arg-20) (lambda (arg-21) (CoreC-45TT-u--C-47C-61_Eq_C-40TermC-32C-36varsC-41 arg-20 arg-21)))) e-8 (vector 1 )))) (cond ((equal? sc4 1) (let ((sc5 (PreludeC-45Types-elem (cons (lambda (arg-20) (lambda (arg-21) (CoreC-45Name-u--C-61C-61_Eq_Name arg-20 arg-21))) (lambda (arg-20) (lambda (arg-21) (CoreC-45Name-u--C-47C-61_Eq_Name arg-20 arg-21)))) e-2 arg-6))) (cond ((equal? sc5 1) 0) (else 1)))) (else 0))))) (cond ((equal? sc3 1) (+ 1 arg-16)) (else arg-16))) arg-17 (cons u--b arg-18) e-4)) (else (let ((u--fldNameStr (CoreC-45Name-nameRoot e-2))) (lambda (eta-0) (let ((act-24 (CoreC-45Context-inCurrentNS arg-13 (vector 5 u--fldNameStr) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-inCurrentNS arg-13 (vector 1 u--fldNameStr) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (let ((act-26 ((TTImpC-45Unelab-unelab arg-14 arg-13 arg-18 e-9) eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-11 (vector-ref act-26 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-26 1))) (let ((u--tyC-39 (TTImpC-45Utils-substNames arg-6 arg-17 e-11))) (let ((act-27 (CoreC-45ContextC-45Log-log arg-13 "declare.record.field" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Field type: " (TTImpC-45TTImp-u--show_Show_RawImp u--tyC-39))) eta-0))) (case (vector-ref act-27 0) ((0) (let ((e-12 (vector-ref act-27 1))) (vector 0 e-12))) (else (let ((u--rname (vector 2 "rec" 0))) (let ((act-28 (TTImpC-45BindImplicits-bindTypeNames arg-13 arg-9 '() (PreludeC-45TypesC-45List-C-43C-43 (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-fst eta-1)) arg-2) (PreludeC-45TypesC-45List-C-43C-43 (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (TTImpC-45ProcessRecord-n--7142-1631-u--fname arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 eta-1)) arg-0) arg-6)) (TTImpC-45ProcessRecord-n--7142-1633-u--mkTy arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (TTImpC-45ProcessRecord-n--7142-1630-u--paramTelescope arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (vector 1 e-1 (AlgebraC-45ZeroOneOmega-u--top_Top_ZeroOneOmega) (vector 1 ) (box u--rname) (TTImpC-45ProcessRecord-n--7142-1634-u--recTy arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) u--tyC-39)) eta-0))) (case (vector-ref act-28 0) ((0) (let ((e-13 (vector-ref act-28 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref act-28 1))) (let ((u--mkProjClaim (lambda (u--nm) (let ((u--ty (vector (vector 2 ) (vector 2 ) u--nm e-13))) (vector 0 e-1 u--rig u--isVis (cons (vector 0 ) '()) u--ty))))) (let ((act-29 (CoreC-45ContextC-45Log-log arg-13 "declare.record.projection" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Projection " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-5) (PreludeC-45TypesC-45String-C-43C-43 " : " (TTImpC-45TTImp-u--show_Show_RawImp e-13))))) eta-0))) (case (vector-ref act-29 0) ((0) (let ((e-14 (vector-ref act-29 1))) (vector 0 e-14))) (else (let ((act-30 ((TTImpC-45ElabC-45Check-processDecl arg-6 arg-13 arg-12 arg-11 '() arg-7 arg-8 (u--mkProjClaim e-5)) eta-0))) (case (vector-ref act-30 0) ((0) (let ((e-15 (vector-ref act-30 1))) (vector 0 e-15))) (else (let ((u--lhs_exp (TTImpC-45TTImp-apply (vector 0 e-1 arg-15) (PreludeC-45TypesC-45List-C-43C-43 (DataC-45List-replicate arg-16 (vector 32 e-1 1)) (PreludeC-45TypesC-45List-C-43C-43 (let ((sc10 (CoreC-45TT-u--C-61C-61_Eq_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-20) (lambda (arg-21) (CoreC-45TT-u--C-61C-61_Eq_C-40TermC-32C-36varsC-41 arg-20 arg-21))) (lambda (arg-20) (lambda (arg-21) (CoreC-45TT-u--C-47C-61_Eq_C-40TermC-32C-36varsC-41 arg-20 arg-21)))) e-8 (vector 1 )))) (cond ((equal? sc10 1) (cons (vector 17 (vector 2 ) u--fldNameStr) '())) (else '()))) (DataC-45List-replicate (TTImpC-45ProcessRecord-n--7142-1636-u--countExp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-4) (vector 32 e-1 1))))))) (let ((u--lhs (vector 8 e-1 (vector 0 e-1 e-5) (let ((sc10 (CoreC-45TT-u--C-61C-61_Eq_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-20) (lambda (arg-21) (CoreC-45TT-u--C-61C-61_Eq_C-40TermC-32C-36varsC-41 arg-20 arg-21))) (lambda (arg-20) (lambda (arg-21) (CoreC-45TT-u--C-47C-61_Eq_C-40TermC-32C-36varsC-41 arg-20 arg-21)))) e-8 (vector 1 )))) (cond ((equal? sc10 1) u--lhs_exp) (else (vector 10 e-1 u--lhs_exp (vector 1 u--fldNameStr) (vector 17 e-1 u--fldNameStr)))))))) (let ((u--rhs (vector 0 (vector 2 ) (vector 1 u--fldNameStr)))) (let ((act-31 (CoreC-45ContextC-45Log-log arg-13 "declare.record.projection" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Projection " (PreludeC-45TypesC-45String-C-43C-43 (TTImpC-45TTImp-u--show_Show_RawImp u--lhs) (PreludeC-45TypesC-45String-C-43C-43 " = " (TTImpC-45TTImp-u--show_Show_RawImp u--rhs))))) eta-0))) (case (vector-ref act-31 0) ((0) (let ((e-16 (vector-ref act-31 1))) (vector 0 e-16))) (else (let ((act-32 ((TTImpC-45ElabC-45Check-processDecl arg-6 arg-13 arg-12 arg-11 '() arg-7 arg-8 (vector 2 e-1 e-5 (cons (vector 0 e-1 u--lhs u--rhs) '()))) eta-0))) (case (vector-ref act-32 0) ((0) (let ((e-17 (vector-ref act-32 1))) (vector 0 e-17))) (else (let ((act-33 (let ((act-33 (CoreC-45Context-isPrefixRecordProjections arg-13 eta-0))) (case (vector-ref act-33 0) ((0) (let ((e-18 (vector-ref act-33 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref act-33 1))) (cond ((equal? e-18 1) (let ((act-34 (CoreC-45ContextC-45Log-log arg-13 "declare.record.projection.prefix" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Prefix projection " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-10) (PreludeC-45TypesC-45String-C-43C-43 " : " (TTImpC-45TTImp-u--show_Show_RawImp e-13))))) eta-0))) (case (vector-ref act-34 0) ((0) (let ((e-19 (vector-ref act-34 1))) (vector 0 e-19))) (else (let ((act-35 ((TTImpC-45ElabC-45Check-processDecl arg-6 arg-13 arg-12 arg-11 '() arg-7 arg-8 (u--mkProjClaim e-10)) eta-0))) (case (vector-ref act-35 0) ((0) (let ((e-20 (vector-ref act-35 1))) (vector 0 e-20))) (else (let ((lhs-0 (vector 0 e-1 e-10))) (let ((rhs-0 (vector 0 e-1 e-5))) (let ((act-36 (CoreC-45ContextC-45Log-log arg-13 "declare.record.projection.prefix" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Prefix projection " (PreludeC-45TypesC-45String-C-43C-43 (TTImpC-45TTImp-u--show_Show_RawImp lhs-0) (PreludeC-45TypesC-45String-C-43C-43 " = " (TTImpC-45TTImp-u--show_Show_RawImp rhs-0))))) eta-0))) (case (vector-ref act-36 0) ((0) (let ((e-21 (vector-ref act-36 1))) (vector 0 e-21))) (else ((TTImpC-45ElabC-45Check-processDecl arg-6 arg-13 arg-12 arg-11 '() arg-7 arg-8 (vector 2 e-1 e-10 (cons (vector 0 e-1 lhs-0 rhs-0) '()))) eta-0))))))))))))) (else (vector 1 0))))))))) (case (vector-ref act-33 0) ((0) (let ((e-18 (vector-ref act-33 1))) (vector 0 e-18))) (else (let ((u--updsC-39 (cons (cons e-2 (vector 8 e-1 (vector 0 e-1 e-10) (vector 0 e-1 u--rname))) arg-17))) ((TTImpC-45ProcessRecord-n--7142-1637-u--elabGetters arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (cons e-2 arg-14) arg-15 (let ((sc13 (CoreC-45TT-u--C-61C-61_Eq_C-40PiInfoC-32C-36tC-41 (cons (lambda (arg-20) (lambda (arg-21) (CoreC-45TT-u--C-61C-61_Eq_C-40TermC-32C-36varsC-41 arg-20 arg-21))) (lambda (arg-20) (lambda (arg-21) (CoreC-45TT-u--C-47C-61_Eq_C-40TermC-32C-36varsC-41 arg-20 arg-21)))) e-8 (vector 1 )))) (cond ((equal? sc13 1) (+ 1 arg-16)) (else arg-16))) u--updsC-39 (cons u--b arg-18) e-4) eta-0)))))))))))))))))))))))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 0)))))))))(else (lambda (eta-0) (vector 1 0)))))) +(define TTImpC-45ProcessRecord-n--7142-1635-u--elabAsData (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((u--fc (CoreC-45FC-virtualiseFC arg-9))) (let ((u--conty (TTImpC-45ProcessRecord-n--7142-1633-u--mkTy arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (TTImpC-45ProcessRecord-n--7142-1630-u--paramTelescope arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (TTImpC-45ProcessRecord-n--7142-1633-u--mkTy arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (TTImpC-45ProcessRecord-n--7142-1632-u--farg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 eta-0)) arg-0) (TTImpC-45ProcessRecord-n--7142-1634-u--recTy arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13))))) (lambda (eta-0) (let ((act-24 (TTImpC-45BindImplicits-bindTypeNames arg-13 u--fc '() (PreludeC-45TypesC-45List-C-43C-43 (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-fst eta-1)) arg-2) (PreludeC-45TypesC-45List-C-43C-43 (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (TTImpC-45ProcessRecord-n--7142-1631-u--fname arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 eta-1)) arg-0) arg-6)) u--conty eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((u--con (vector (vector 2 ) (vector 2 ) arg-14 e-5))) (let ((act-25 (TTImpC-45BindImplicits-bindTypeNames arg-13 u--fc '() (PreludeC-45TypesC-45List-C-43C-43 (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-fst eta-1)) arg-2) (PreludeC-45TypesC-45List-C-43C-43 (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (TTImpC-45ProcessRecord-n--7142-1631-u--fname arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 eta-1)) arg-0) arg-6)) (TTImpC-45ProcessRecord-mkDataTy u--fc arg-2) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((u--dt (vector 0 u--fc arg-3 e-6 '() (cons u--con '())))) (let ((act-26 (CoreC-45ContextC-45Log-log arg-13 "declare.record" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Record data type " (TTImpC-45TTImp-u--show_Show_ImpData u--dt))) eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else ((TTImpC-45ElabC-45Check-processDecl arg-6 arg-13 arg-12 arg-11 '() arg-7 arg-8 (vector 1 u--fc arg-4 u--dt)) eta-0))))))))))))))))))) +(define TTImpC-45ProcessRecord-n--7142-1636-u--countExp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-15) (case (vector-ref arg-15 0) ((3) (let ((e-3 (vector-ref arg-15 3))) (let ((e-4 (vector-ref arg-15 4))) (case (vector-ref e-3 0) ((2) (let ((e-8 (vector-ref e-3 3))) (case (vector-ref e-8 0) ((1) (+ 1 (TTImpC-45ProcessRecord-n--7142-1636-u--countExp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-4)))(else (TTImpC-45ProcessRecord-n--7142-1636-u--countExp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-4)))))(else 0)))))(else 0)))) +(define TTImpC-45ProcessRecord-n--7172-1744-u--apply (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (if (null? arg-15) arg-14 (let ((e-2 (car arg-15))) (let ((e-3 (cdr arg-15))) (let ((e-6 (car e-2))) (let ((e-7 (cdr e-2))) (let ((e-10 (car e-7))) (let ((e-11 (cdr e-7))) (case (vector-ref e-11 0) ((1) (TTImpC-45ProcessRecord-n--7172-1744-u--apply arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (vector 8 (TTImpC-45TTImp-getFC arg-14) arg-14 e-10) e-3))(else (TTImpC-45ProcessRecord-n--7172-1744-u--apply arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (vector 10 (TTImpC-45TTImp-getFC arg-14) arg-14 e-6 e-10) e-3)))))))))))) +(define TTImpC-45ProcessRecord-projVis (lambda (arg-0) (cond ((equal? arg-0 2) 2)(else 0)))) +(define TTImpC-45ProcessRecord-processRecord (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 ext-0) (let ((e-0 (vector-ref arg-9 0))) (let ((e-1 (vector-ref arg-9 1))) (let ((e-2 (vector-ref arg-9 2))) (let ((e-3 (vector-ref arg-9 3))) (let ((e-4 (vector-ref arg-9 4))) (TTImpC-45ProcessRecord-elabRecord arg-0 arg-1 arg-2 arg-3 arg-4 e-0 arg-6 arg-5 arg-7 arg-8 e-1 e-2 e-3 e-4 ext-0)))))))) +(define TTImpC-45ProcessRecord-mkDataTy (lambda (arg-0 arg-1) (if (null? arg-1) (vector 29 arg-0) (let ((e-2 (car arg-1))) (let ((e-3 (cdr arg-1))) (let ((e-6 (car e-2))) (let ((e-7 (cdr e-2))) (let ((e-10 (car e-7))) (let ((e-11 (cdr e-7))) (let ((e-14 (car e-11))) (let ((e-15 (cdr e-11))) (vector 1 arg-0 e-10 e-14 (box e-6) e-15 (TTImpC-45ProcessRecord-mkDataTy arg-0 e-3))))))))))))) +(define TTImpC-45ProcessRecord-elabRecord (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 ext-0) (let ((act-24 (CoreC-45Context-inCurrentNS arg-1 arg-12 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((TTImpC-45ProcessRecord-n--7142-1635-u--elabAsData arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 (let ((act-26 (unbox arg-1))) (vector 1 act-26)))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (CoreC-45Context-lookupTyExact e-5 (let ((e-0 (vector-ref e-7 0))) e-0) ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (if (null? e-8) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 (PreludeC-45TypesC-45String-C-43C-43 "Adding " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name arg-10) "failed"))) ext-0) (let ((e-1 (unbox e-8))) (if (null? arg-8) ((TTImpC-45ProcessRecord-n--7142-1637-u--elabGetters arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 '() e-5 0 '() '() e-1) ext-0) (let ((e-2 (unbox arg-8))) (let ((u--cns (let ((e-33 (vector-ref e-7 2))) e-33))) (let ((u--nns (let ((e-3 (vector-ref e-7 3))) e-3))) (let ((act-28 (CoreC-45Context-extendNS arg-1 (CoreC-45NameC-45Namespace-mkNamespace e-2) ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-3 (vector-ref act-28 1))) (vector 0 e-3))) (else (let ((act-29 (CoreC-45Context-getNS arg-1 ext-0))) (case (vector-ref act-29 0) ((0) (let ((e-3 (vector-ref act-29 1))) (vector 0 e-3))) (else (let ((e-10 (vector-ref act-29 1))) (let ((act-30 ((TTImpC-45ProcessRecord-n--7142-1637-u--elabGetters arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 '() e-5 0 '() '() e-1) ext-0))) (case (vector-ref act-30 0) ((0) (let ((e-3 (vector-ref act-30 1))) (vector 0 e-3))) (else (let ((act-31 (let ((act-31 (unbox arg-1))) (vector 1 act-31)))) (case (vector-ref act-31 0) ((0) (let ((e-3 (vector-ref act-31 1))) (vector 0 e-3))) (else (let ((e-12 (vector-ref act-31 1))) (let ((act-32 (set-box! arg-1 (let ((e-0 (vector-ref e-12 0))) (let ((e-38 (vector-ref e-12 1))) (let ((e-4 (vector-ref e-12 4))) (let ((e-36 (vector-ref e-12 5))) (let ((e-35 (vector-ref e-12 6))) (let ((e-34 (vector-ref e-12 7))) (let ((e-33 (vector-ref e-12 8))) (let ((e-32 (vector-ref e-12 9))) (let ((e-31 (vector-ref e-12 10))) (let ((e-30 (vector-ref e-12 11))) (let ((e-29 (vector-ref e-12 12))) (let ((e-13 (vector-ref e-12 13))) (let ((e-14 (vector-ref e-12 14))) (let ((e-15 (vector-ref e-12 15))) (let ((e-16 (vector-ref e-12 16))) (let ((e-17 (vector-ref e-12 17))) (let ((e-18 (vector-ref e-12 18))) (let ((e-19 (vector-ref e-12 19))) (let ((e-20 (vector-ref e-12 20))) (let ((e-21 (vector-ref e-12 21))) (let ((e-22 (vector-ref e-12 22))) (let ((e-23 (vector-ref e-12 23))) (let ((e-24 (vector-ref e-12 24))) (let ((e-25 (vector-ref e-12 25))) (let ((e-26 (vector-ref e-12 26))) (let ((e-27 (vector-ref e-12 27))) (let ((e-28 (vector-ref e-12 28))) (vector e-0 e-38 u--cns (cons e-10 u--nns) e-4 e-36 e-35 e-34 e-33 e-32 e-31 e-30 e-29 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27 e-28))))))))))))))))))))))))))))))) (vector 1 act-32))))))))))))))))))))))))))))))))))))))) +(define TTImpC-45ProcessParams-case--processParams-13652 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((e-2 (car arg-12))) (let ((e-3 (cdr arg-12))) (lambda (clam-0) (let ((e-7 (cdr e-3))) (let ((e-10 (car e-7))) (let ((e-11 (cdr e-7))) (let ((act-24 (CoreC-45Normalise-logEnv e-2 arg-8 "declare.param" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) "Param env" e-10 clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((act-25 (let ((act-25 (unbox arg-8))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref act-25 1))) (let ((u--defNames (TTImpC-45TTImp-definedInBlock (let ((e-36 (vector-ref e-8 2))) e-36) arg-0))) (let ((act-26 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (TTImpC-45ProcessParams-n--7599-13544-u--applyEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2 e-10 eta-0 eta-1))) u--defNames '() clam-0))) (case (vector-ref act-26 0) ((0) (let ((e-4 (vector-ref act-26 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref act-26 1))) (let ((u--nestBlock (PreludeC-45TypesC-45List-C-43C-43 e-9 e-11))) (CoreC-45Core-traverse_ (lambda (eta-0) (TTImpC-45ElabC-45Check-processDecl e-2 arg-8 arg-7 arg-6 '() u--nestBlock e-10 eta-0)) arg-0 clam-0)))))))))))))))))))))) +(define TTImpC-45ProcessParams-n--7599-13543-u--mkParamTy (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (if (null? arg-9) (vector 29 arg-2) (let ((e-2 (car arg-9))) (let ((e-3 (cdr arg-9))) (let ((e-6 (car e-2))) (let ((e-7 (cdr e-2))) (let ((e-10 (car e-7))) (let ((e-11 (cdr e-7))) (let ((e-14 (car e-11))) (let ((e-15 (cdr e-11))) (vector 1 arg-2 e-10 e-14 (box e-6) e-15 (TTImpC-45ProcessParams-n--7599-13543-u--mkParamTy arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-3))))))))))))) +(define TTImpC-45ProcessParams-n--7599-13544-u--applyEnv (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 ext-0) (let ((act-24 (CoreC-45Context-resolveName arg-8 arg-11 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (cons (vector 9 e-5) (cons '() (cons (DataC-45List-reverse (CoreC-45Env-allVars arg-9 arg-10)) (lambda (u--fc) (lambda (u--nt) (CoreC-45UnifyState-applyToFull arg-9 u--fc (vector 1 u--fc u--nt (vector 9 e-5)) arg-10))))))))))))) +(define TTImpC-45ProcessParams-processParams (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((u--pty_raw (TTImpC-45ProcessParams-n--7599-13543-u--mkParamTy arg-8 arg-7 arg-6 arg-0 arg-5 arg-4 arg-3 arg-2 arg-1 arg-7))) (lambda (eta-0) (let ((act-24 (TTImpC-45BindImplicits-bindTypeNames arg-1 arg-6 '() arg-0 (vector 16 arg-6 (vector 0 (AlgebraC-45Semiring-erased (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)))) u--pty_raw) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45ContextC-45Log-log arg-1 "declare.param" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Checking " (TTImpC-45TTImp-u--show_Show_RawImp e-5))) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 (TTImpC-45Elab-checkTerm arg-0 arg-1 arg-2 arg-3 -1 (vector 0 ) '() arg-4 arg-5 e-5 (CoreC-45Normalise-gType arg-6) eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) ((TTImpC-45ProcessParams-case--processParams-13652 arg-8 arg-7 arg-6 arg-0 arg-5 arg-4 arg-3 arg-2 arg-1 u--pty_raw e-5 e-7 (TTImpC-45ProcessParams-extend arg-0 arg-5 (vector 0 ) arg-4 e-7)) eta-0)))))))))))))))) +(define TTImpC-45ProcessParams-extend (lambda (arg-1 arg-2 arg-3 arg-4 arg-5) (case (vector-ref arg-5 0) ((3) (let ((e-2 (vector-ref arg-5 2))) (let ((e-3 (vector-ref arg-5 3))) (let ((e-4 (vector-ref arg-5 4))) (case (vector-ref e-3 0) ((2) (TTImpC-45ProcessParams-extend (cons e-2 arg-1) (cons e-3 arg-2) (vector 1 arg-3) (TTImpC-45TTImp-u--weaken_Weaken_NestedNames arg-4) e-4))(else (cons arg-1 (cons arg-3 (cons arg-2 arg-4)))))))))(else (cons arg-1 (cons arg-3 (cons arg-2 arg-4))))))) +(define TTImpC-45ProcessData-n--8130-6251-u--updateNSApp (lambda (arg-0 arg-1 arg-2 arg-3) (case (vector-ref arg-3 0) ((0) (let ((e-0 (vector-ref arg-3 1))) (let ((e-1 (vector-ref arg-3 2))) (let ((sc1 (CoreC-45Name-u--C-61C-61_Eq_Name e-1 arg-2))) (cond ((equal? sc1 1) (vector 0 e-0 arg-1)) (else (vector 0 e-0 e-1))))))) ((8) (let ((e-2 (vector-ref arg-3 1))) (let ((e-3 (vector-ref arg-3 2))) (let ((e-4 (vector-ref arg-3 3))) (vector 8 e-2 (TTImpC-45ProcessData-n--8130-6251-u--updateNSApp arg-0 arg-1 arg-2 e-3) e-4))))) ((9) (let ((e-5 (vector-ref arg-3 1))) (let ((e-6 (vector-ref arg-3 2))) (let ((e-7 (vector-ref arg-3 3))) (vector 9 e-5 (TTImpC-45ProcessData-n--8130-6251-u--updateNSApp arg-0 arg-1 arg-2 e-6) e-7))))) ((10) (let ((e-8 (vector-ref arg-3 1))) (let ((e-9 (vector-ref arg-3 2))) (let ((e-10 (vector-ref arg-3 3))) (let ((e-11 (vector-ref arg-3 4))) (vector 10 e-8 (TTImpC-45ProcessData-n--8130-6251-u--updateNSApp arg-0 arg-1 arg-2 e-9) e-10 e-11))))))(else arg-3)))) +(define TTImpC-45ProcessData-n--10170-8107-u--isNullary (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-normalise arg-2 '() e-5 '() (let ((e-3 (vector-ref arg-3 3))) e-3) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (TTImpC-45ProcessData-hasArgs 0 e-6)))))))))))) +(define TTImpC-45ProcessData-n--8604-6667-u--getRetType (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (case (vector-ref arg-3 0) ((0) (let ((e-1 (vector-ref arg-3 1))) (let ((e-3 (vector-ref arg-3 3))) (let ((e-4 (vector-ref arg-3 4))) (case (vector-ref e-3 0) ((2) (let ((act-24 (((e-4 arg-2) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 e-1 0))) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (TTImpC-45ProcessData-n--8604-6667-u--getRetType arg-0 arg-1 arg-2 e-5 ext-0))))))(else (vector 1 arg-3)))))))(else (vector 1 arg-3))))) +(define TTImpC-45ProcessData-n--8604-6668-u--getPats (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (case (vector-ref arg-3 0) ((3) (let ((e-5 (vector-ref arg-3 5))) (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-1 '() arg-2 (Builtin-snd eta-0))) e-5 '() ext-0)))(else (vector 1 '()))))) +(define TTImpC-45ProcessData-n--8697-6779-u--getDisjointPos (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (if (null? arg-4) (vector 1 '()) (let ((e-2 (car arg-4))) (let ((e-3 (cdr arg-4))) (let ((act-24 (TTImpC-45ProcessData-n--8697-6779-u--getDisjointPos arg-0 arg-1 arg-2 (PreludeC-45Types-u--C-43_Num_Nat (PreludeC-45Types-u--fromInteger_Num_Nat 1) arg-3) e-3 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (TTImpC-45ProcessData-n--8697-6778-u--allDisjoint arg-0 arg-1 arg-2 e-2 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref act-25 1))) (cond ((equal? e-6 1) (vector 1 (cons arg-3 e-5))) (else (vector 1 e-5)))))))))))))))) +(define TTImpC-45ProcessData-n--8697-6775-u--disjointArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (if (null? arg-3) (lambda (eta-0) (vector 1 0)) (if (null? arg-4) (lambda (eta-0) (vector 1 0)) (lambda (clam-0) (let ((e-1 (car arg-3))) (let ((e-2 (cdr arg-3))) (let ((e-4 (car arg-4))) (let ((e-5 (cdr arg-4))) (let ((act-24 ((TTImpC-45ProcessData-n--8697-6776-u--disjoint arg-0 arg-1 arg-2 e-1 e-4) clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref act-24 1))) (cond ((equal? e-6 1) (vector 1 1)) (else ((TTImpC-45ProcessData-n--8697-6775-u--disjointArgs arg-0 arg-1 arg-2 e-2 e-5) clam-0)))))))))))))))) +(define TTImpC-45ProcessData-n--8697-6776-u--disjoint (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (case (vector-ref arg-3 0) ((2) (let ((e-3 (vector-ref arg-3 3))) (let ((e-5 (vector-ref arg-3 5))) (lambda (clam-0) (case (vector-ref arg-4 0) ((2) (let ((e-18 (vector-ref arg-4 3))) (let ((e-20 (vector-ref arg-4 5))) (let ((sc2 (PreludeC-45EqOrd-u--C-47C-61_Eq_Int e-3 e-18))) (cond ((equal? sc2 1) (vector 1 1)) (else (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-2 '() e-6 (Builtin-snd eta-0))) e-5 '() clam-0))) (case (vector-ref act-25 0) ((0) (let ((e-7 (vector-ref act-25 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-2 '() e-6 (Builtin-snd eta-0))) e-20 '() clam-0))) (case (vector-ref act-26 0) ((0) (let ((e-8 (vector-ref act-26 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref act-26 1))) ((TTImpC-45ProcessData-n--8697-6775-u--disjointArgs arg-0 arg-1 arg-2 e-7 e-8) clam-0)))))))))))))))))))(else (vector 1 0))))))) ((3) (let ((e-8 (vector-ref arg-3 2))) (let ((e-11 (vector-ref arg-3 5))) (lambda (clam-1) (case (vector-ref arg-4 0) ((2) (let ((e-23 (vector-ref arg-4 2))) (let ((e-26 (vector-ref arg-4 5))) (let ((sc2 (CoreC-45Name-u--C-47C-61_Eq_Name e-8 e-23))) (cond ((equal? sc2 1) (vector 1 1)) (else (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-2 '() e-5 (Builtin-snd eta-0))) e-11 '() clam-1))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-2 '() e-5 (Builtin-snd eta-0))) e-26 '() clam-1))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref act-26 1))) ((TTImpC-45ProcessData-n--8697-6775-u--disjointArgs arg-0 arg-1 arg-2 e-6 e-12) clam-1)))))))))))))))))))(else (vector 1 0))))))) ((8) (let ((e-14 (vector-ref arg-3 2))) (lambda (clam-2) (case (vector-ref arg-4 0) ((8) (let ((e-29 (vector-ref arg-4 2))) (vector 1 (CoreC-45TT-u--C-47C-61_Eq_Constant e-14 e-29))))(else (vector 1 0))))))(else (lambda (eta-0) (vector 1 0)))))) +(define TTImpC-45ProcessData-n--8697-6777-u--allDisjointWith (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (if (null? arg-4) (lambda (eta-0) (vector 1 1)) (lambda (clam-0) (case (vector-ref arg-3 0) ((9) (vector 1 0))(else (let ((e-1 (car arg-4))) (let ((e-2 (cdr arg-4))) (let ((act-24 ((TTImpC-45ProcessData-n--8697-6776-u--disjoint arg-0 arg-1 arg-2 arg-3 e-1) clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref act-24 1))) (cond ((equal? e-5 1) ((TTImpC-45ProcessData-n--8697-6777-u--allDisjointWith arg-0 arg-1 arg-2 arg-3 e-2) clam-0)) (else (vector 1 0))))))))))))))) +(define TTImpC-45ProcessData-n--8697-6778-u--allDisjoint (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (if (null? arg-3) (vector 1 1) (let ((e-2 (car arg-3))) (let ((e-3 (cdr arg-3))) (case (vector-ref e-2 0) ((9) (vector 1 0))(else (let ((act-24 (TTImpC-45ProcessData-n--8697-6778-u--allDisjoint arg-0 arg-1 arg-2 e-3 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (cond ((equal? e-5 1) ((TTImpC-45ProcessData-n--8697-6777-u--allDisjointWith arg-0 arg-1 arg-2 e-2 e-3) ext-0)) (else (vector 1 0)))))))))))))) +(define TTImpC-45ProcessData-updateNS (lambda (arg-0 arg-1 arg-2) (case (vector-ref arg-2 0) ((1) (let ((e-0 (vector-ref arg-2 1))) (let ((e-1 (vector-ref arg-2 2))) (let ((e-2 (vector-ref arg-2 3))) (let ((e-3 (vector-ref arg-2 4))) (let ((e-4 (vector-ref arg-2 5))) (let ((e-5 (vector-ref arg-2 6))) (vector 1 e-0 e-1 e-2 e-3 e-4 (TTImpC-45ProcessData-updateNS arg-0 arg-1 e-5)))))))))(else (TTImpC-45ProcessData-n--8130-6251-u--updateNSApp arg-2 arg-1 arg-0 arg-2))))) +(define TTImpC-45ProcessData-shaped (lambda (arg-0 arg-1 arg-2 ext-0) (if (null? arg-2) (vector 1 '()) (let ((e-2 (car arg-2))) (let ((e-3 (cdr arg-2))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-normalise arg-0 '() e-5 '() (let ((e-4 (vector-ref e-2 3))) e-4) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref act-25 1))) (let ((sc3 ((arg-1 'erased) e-6))) (cond ((equal? sc3 1) (vector 1 (box (let ((e-1 (vector-ref e-2 1))) e-1)))) (else (TTImpC-45ProcessData-shaped arg-0 (lambda (vs-7805) (arg-1 'erased)) e-3 ext-0))))))))))))))))) +(define TTImpC-45ProcessData-processDataOpt (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (case (vector-ref arg-3 0) ((1) (vector 1 0)) ((0) (let ((e-0 (vector-ref arg-3 1))) (CoreC-45Context-setDetermining arg-0 arg-1 arg-2 e-0 ext-0))) ((2) (CoreC-45Context-setUniqueSearch arg-0 arg-1 arg-2 1 ext-0)) ((3) (CoreC-45Context-setExternal arg-0 arg-1 arg-2 1 ext-0)) (else (vector 1 0))))) +(define TTImpC-45ProcessData-processData (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 ext-0) (case (vector-ref arg-9 0) ((1) (let ((e-0 (vector-ref arg-9 1))) (let ((e-1 (vector-ref arg-9 2))) (let ((e-2 (vector-ref arg-9 3))) (let ((act-24 (CoreC-45Context-inCurrentNS arg-1 e-1 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (TTImpC-45BindImplicits-bindTypeNames arg-1 arg-7 '() arg-0 e-2 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-3 (vector-ref act-25 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (let ((act-26 (unbox arg-1))) (vector 1 act-26)))) (case (vector-ref act-26 0) ((0) (let ((e-3 (vector-ref act-26 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 ((CoreC-45Context-lookupCtxtExact e-5 (let ((e-34 (vector-ref e-7 0))) e-34)) ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-3 (vector-ref act-27 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref act-27 1))) (if (null? e-8) (let ((act-28 (let ((act-28 (CoreC-45Context-resolveName arg-1 e-5 ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-3 (vector-ref act-28 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref act-28 1))) ((TTImpC-45ElabC-45Utils-wrapErrorC arg-4 (lambda (eta-0) (vector 63 arg-7 e-5 eta-0)) (TTImpC-45Elab-elabTerm arg-0 arg-1 arg-2 arg-3 e-9 (vector 0 ) arg-4 arg-5 arg-6 (vector 16 arg-7 (vector 0 (AlgebraC-45Semiring-erased (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)))) e-6) (box (CoreC-45Normalise-gType e-0)))) ext-0))))))) (case (vector-ref act-28 0) ((0) (let ((e-3 (vector-ref act-28 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref act-28 1))) (let ((e-4 (car e-9))) (let ((u--fullty (CoreC-45Env-abstractEnvType arg-0 e-0 arg-6 e-4))) (let ((act-29 (CoreC-45Normalise-logTermNF '() arg-1 "declare.data" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "data " (CoreC-45Name-u--show_Show_Name e-5))) '() u--fullty ext-0))) (case (vector-ref act-29 0) ((0) (let ((e-10 (vector-ref act-29 1))) (vector 0 e-10))) (else (let ((act-30 (let ((act-30 ((CoreC-45Normalise-nf arg-1 arg-0 e-7 arg-6 e-4) ext-0))) (case (vector-ref act-30 0) ((0) (let ((e-11 (vector-ref act-30 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-30 1))) ((TTImpC-45ProcessData-checkIsType arg-1 arg-7 e-5 arg-6 e-11) ext-0))))))) (case (vector-ref act-30 0) ((0) (let ((e-11 (vector-ref act-30 1))) (vector 0 e-11))) (else (let ((act-31 (CoreC-45Normalise-getArity arg-1 '() e-7 '() u--fullty ext-0))) (case (vector-ref act-31 0) ((0) (let ((e-12 (vector-ref act-31 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref act-31 1))) (let ((act-32 (CoreC-45Context-addDef arg-1 e-5 (CoreC-45Context-newDef arg-7 e-5 (AlgebraC-45Semiring-linear (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))) arg-0 u--fullty arg-8 (vector 6 0 e-12 '() '() (CoreC-45Context-defaultFlags) '() '() '())) ext-0))) (case (vector-ref act-32 0) ((0) (let ((e-13 (vector-ref act-32 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref act-32 1))) (let ((act-33 (CoreC-45Context-addMutData arg-1 (vector 9 e-13) ext-0))) (case (vector-ref act-33 0) ((0) (let ((e-14 (vector-ref act-33 1))) (vector 0 e-14))) (else (let ((act-34 (let ((act-34 (unbox arg-1))) (vector 1 act-34)))) (case (vector-ref act-34 0) ((0) (let ((e-15 (vector-ref act-34 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref act-34 1))) (let ((act-35 (CoreC-45Core-traverse_ (lambda (u--n) (lambda (eta-0) (CoreC-45Context-setMutWith arg-1 arg-7 u--n (let ((e-43 (vector-ref e-15 1))) e-43) eta-0))) (let ((e-43 (vector-ref e-15 1))) e-43) ext-0))) (case (vector-ref act-35 0) ((0) (let ((e-16 (vector-ref act-35 1))) (vector 0 e-16))) (else (let ((act-36 (CoreC-45Core-traverse_ (lambda (eta-0) (lambda (eta-1) (CoreC-45Context-addToSave arg-1 eta-0 eta-1))) (LibrariesC-45DataC-45NameMap-keys (CoreC-45TT-getMetas e-4)) ext-0))) (case (vector-ref act-36 0) ((0) (let ((e-17 (vector-ref act-36 1))) (vector 0 e-17))) (else (let ((act-37 (CoreC-45Context-addToSave arg-1 e-5 ext-0))) (case (vector-ref act-37 0) ((0) (let ((e-18 (vector-ref act-37 1))) (vector 0 e-18))) (else (let ((act-38 (CoreC-45ContextC-45Log-log arg-1 "declare.data" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Saving from " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-5) (PreludeC-45TypesC-45String-C-43C-43 ": " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45Name-u--show_Show_Name u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Name-u--showPrec_Show_Name u--d u--x)))) (LibrariesC-45DataC-45NameMap-keys (CoreC-45TT-getMetas e-4))))))) ext-0))) (case (vector-ref act-38 0) ((0) (let ((e-19 (vector-ref act-38 1))) (vector 0 e-19))) (else (cond ((equal? arg-8 0) (vector 1 0))(else (let ((act-39 (CoreC-45Context-addHashWithNames arg-1 (cons (lambda (arg-529) (CoreC-45Hash-u--hash_Hashable_Name arg-529)) (lambda (arg-530) (lambda (arg-531) (CoreC-45Hash-u--hashWithSalt_Hashable_Name arg-530 arg-531)))) (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-0))))) e-5 ext-0))) (case (vector-ref act-39 0) ((0) (let ((e-20 (vector-ref act-39 1))) (vector 0 e-20))) (else (CoreC-45Context-addHashWithNames arg-1 (cons (lambda (arg-529) (CoreC-45Hash-u--hash_Hashable_C-40TermC-32C-36varsC-41 arg-529)) (lambda (arg-530) (lambda (arg-531) (CoreC-45Hash-u--hashWithSalt_Hashable_C-40TermC-32C-36varsC-41 arg-530 arg-531)))) (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-0))))) u--fullty ext-0))))))))))))))))))))))))))))))))))))))))))))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 38 arg-7 e-5) ext-0)))))))))))))))))))))) (else (let ((e-3 (vector-ref arg-9 1))) (let ((e-4 (vector-ref arg-9 2))) (let ((e-5 (vector-ref arg-9 3))) (let ((e-6 (vector-ref arg-9 4))) (let ((e-7 (vector-ref arg-9 5))) (let ((act-24 (CoreC-45Context-inCurrentNS arg-1 e-4 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-24 1))) (let ((act-25 (TTImpC-45BindImplicits-bindTypeNames arg-1 arg-7 '() arg-0 e-5 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-25 1))) (let ((act-26 (CoreC-45ContextC-45Log-log arg-1 "declare.data" (+ 1 0) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Processing " (CoreC-45Name-u--show_Show_Name e-8))) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((act-27 (let ((act-27 (unbox arg-1))) (vector 1 act-27)))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref act-27 1))) (let ((act-28 (let ((act-28 (CoreC-45Context-resolveName arg-1 e-8 ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref act-28 1))) ((TTImpC-45ElabC-45Utils-wrapErrorC arg-4 (lambda (eta-0) (vector 63 arg-7 e-8 eta-0)) (TTImpC-45Elab-elabTerm arg-0 arg-1 arg-2 arg-3 e-12 (vector 0 ) arg-4 arg-5 arg-6 (vector 16 arg-7 (vector 0 (AlgebraC-45Semiring-erased (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)))) e-9) (box (CoreC-45Normalise-gType e-3)))) ext-0))))))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref act-28 1))) (let ((e-2 (car e-12))) (let ((u--fullty (CoreC-45Env-abstractEnvType arg-0 e-3 arg-6 e-2))) (let ((act-29 ((CoreC-45Context-lookupCtxtExact e-8 (let ((e-0 (vector-ref e-11 0))) e-0)) ext-0))) (case (vector-ref act-29 0) ((0) (let ((e-14 (vector-ref act-29 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref act-29 1))) (let ((act-30 (if (null? e-14) (vector 1 '()) (let ((e-15 (unbox e-14))) (let ((e-17 (vector-ref e-15 17))) (case (vector-ref e-17 0) ((6) (let ((e-37 (vector-ref e-17 6))) (let ((e-36 (vector-ref e-17 7))) (if (null? e-36) (let ((act-30 (CoreC-45Normalise-u--convert_Convert_Term arg-1 '() e-11 '() u--fullty (let ((e-61 (vector-ref e-15 2))) e-61) ext-0))) (case (vector-ref act-30 0) ((0) (let ((e-43 (vector-ref act-30 1))) (vector 0 e-43))) (else (let ((e-43 (vector-ref act-30 1))) (cond ((equal? e-43 1) (vector 1 e-37)) (else (let ((act-31 (CoreC-45Normalise-logTermNF '() arg-1 "declare.data" (+ 1 0) (lambda () "Previous") '() (let ((e-62 (vector-ref e-15 2))) e-62) ext-0))) (case (vector-ref act-31 0) ((0) (let ((e-44 (vector-ref act-31 1))) (vector 0 e-44))) (else (let ((act-32 (CoreC-45Normalise-logTermNF '() arg-1 "declare.data" (+ 1 0) (lambda () "Now") '() u--fullty ext-0))) (case (vector-ref act-32 0) ((0) (let ((e-45 (vector-ref act-32 1))) (vector 0 e-45))) (else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 38 arg-7 e-8) ext-0))))))))))))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 38 arg-7 e-8) ext-0)))))(else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 38 arg-7 e-8) ext-0)))))))) (case (vector-ref act-30 0) ((0) (let ((e-15 (vector-ref act-30 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref act-30 1))) (let ((act-31 (CoreC-45Normalise-logTermNF '() arg-1 "declare.data" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "data " (CoreC-45Name-u--show_Show_Name e-8))) '() u--fullty ext-0))) (case (vector-ref act-31 0) ((0) (let ((e-16 (vector-ref act-31 1))) (vector 0 e-16))) (else (let ((act-32 (let ((act-32 ((CoreC-45Normalise-nf arg-1 arg-0 e-11 arg-6 e-2) ext-0))) (case (vector-ref act-32 0) ((0) (let ((e-17 (vector-ref act-32 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref act-32 1))) ((TTImpC-45ProcessData-checkIsType arg-1 arg-7 e-8 arg-6 e-17) ext-0))))))) (case (vector-ref act-32 0) ((0) (let ((e-17 (vector-ref act-32 1))) (vector 0 e-17))) (else (let ((act-33 (CoreC-45Normalise-getArity arg-1 '() e-11 '() u--fullty ext-0))) (case (vector-ref act-33 0) ((0) (let ((e-18 (vector-ref act-33 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref act-33 1))) (let ((act-34 (CoreC-45Context-addDef arg-1 e-8 (CoreC-45Context-newDef arg-7 e-8 (AlgebraC-45Semiring-linear (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))) arg-0 u--fullty arg-8 (vector 6 0 e-18 '() '() (CoreC-45Context-defaultFlags) '() '() '())) ext-0))) (case (vector-ref act-34 0) ((0) (let ((e-19 (vector-ref act-34 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref act-34 1))) (let ((act-35 (cond ((equal? arg-8 0) (vector 1 0))(else (let ((act-35 (CoreC-45Context-addHashWithNames arg-1 (cons (lambda (arg-529) (CoreC-45Hash-u--hash_Hashable_Name arg-529)) (lambda (arg-530) (lambda (arg-531) (CoreC-45Hash-u--hashWithSalt_Hashable_Name arg-530 arg-531)))) (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-0))))) e-8 ext-0))) (case (vector-ref act-35 0) ((0) (let ((e-20 (vector-ref act-35 1))) (vector 0 e-20))) (else (CoreC-45Context-addHashWithNames arg-1 (cons (lambda (arg-529) (CoreC-45Hash-u--hash_Hashable_C-40TermC-32C-36varsC-41 arg-529)) (lambda (arg-530) (lambda (arg-531) (CoreC-45Hash-u--hashWithSalt_Hashable_C-40TermC-32C-36varsC-41 arg-530 arg-531)))) (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-0))))) u--fullty ext-0)))))))) (case (vector-ref act-35 0) ((0) (let ((e-20 (vector-ref act-35 1))) (vector 0 e-20))) (else (let ((u--cvis (let ((sc14 (CoreC-45TT-u--C-61C-61_Eq_Visibility arg-8 1))) (cond ((equal? sc14 1) 0) (else arg-8))))) (let ((act-36 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (TTImpC-45ProcessData-checkCon arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 u--cvis e-4 (vector 9 e-19) eta-0 eta-1))) e-7 '() ext-0))) (case (vector-ref act-36 0) ((0) (let ((e-21 (vector-ref act-36 1))) (vector 0 e-21))) (else (let ((e-21 (vector-ref act-36 1))) (let ((u--ddef (cons (vector e-3 e-8 e-18 u--fullty) e-21))) (let ((act-37 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-22 (vector-ref eta-0 1))) (vector 0 e-22))) (else (vector 1 0)))) (lambda (eta-0) (CoreC-45ContextC-45Data-addData arg-1 arg-0 arg-8 e-19 u--ddef eta-0)) ext-0))) (case (vector-ref act-37 0) ((0) (let ((e-22 (vector-ref act-37 1))) (vector 0 e-22))) (else (let ((act-38 (let ((sc16 (PreludeC-45Types-elem (cons (lambda (arg-10) (lambda (arg-11) (TTImpC-45TTImp-u--C-61C-61_Eq_DataOpt arg-10 arg-11))) (lambda (arg-10) (lambda (arg-11) (TTImpC-45TTImp-u--C-47C-61_Eq_DataOpt arg-10 arg-11)))) (vector 4 ) e-6))) (cond ((equal? sc16 1) (vector 1 0)) (else (TTImpC-45ProcessData-findNewtype arg-1 e-21 ext-0)))))) (case (vector-ref act-38 0) ((0) (let ((e-23 (vector-ref act-38 1))) (vector 0 e-23))) (else (let ((act-39 (let ((act-39 (unbox arg-1))) (vector 1 act-39)))) (case (vector-ref act-39 0) ((0) (let ((e-24 (vector-ref act-39 1))) (vector 0 e-24))) (else (let ((act-40 (CoreC-45ContextC-45Log-log arg-1 "declare.data" (+ 1 (+ 1 (+ 1 0))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-8) (PreludeC-45TypesC-45String-C-43C-43 " defined in a mutual block with " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45Name-u--show_Show_Name u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Name-u--showPrec_Show_Name u--d u--x)))) e-15)))) ext-0))) (case (vector-ref act-40 0) ((0) (let ((e-25 (vector-ref act-40 1))) (vector 0 e-25))) (else (let ((act-41 (CoreC-45Context-setMutWith arg-1 arg-7 (vector 9 e-19) e-15 ext-0))) (case (vector-ref act-41 0) ((0) (let ((e-26 (vector-ref act-41 1))) (vector 0 e-26))) (else (let ((act-42 (CoreC-45Core-traverse_ (lambda (eta-0) (lambda (eta-1) (TTImpC-45ProcessData-processDataOpt arg-1 arg-7 (vector 9 e-19) eta-0 eta-1))) e-6 ext-0))) (case (vector-ref act-42 0) ((0) (let ((e-27 (vector-ref act-42 1))) (vector 0 e-27))) (else (let ((act-43 (CoreC-45Context-dropMutData arg-1 (vector 9 e-19) ext-0))) (case (vector-ref act-43 0) ((0) (let ((e-28 (vector-ref act-43 1))) (vector 0 e-28))) (else (let ((act-44 (TTImpC-45ProcessData-getDetags arg-1 arg-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (let ((e-29 (vector-ref eta-0 3))) e-29)) e-21) ext-0))) (case (vector-ref act-44 0) ((0) (let ((e-29 (vector-ref act-44 1))) (vector 0 e-29))) (else (let ((e-29 (vector-ref act-44 1))) (let ((act-45 (CoreC-45Context-setDetags arg-1 arg-7 (vector 9 e-19) e-29 ext-0))) (case (vector-ref act-45 0) ((0) (let ((e-30 (vector-ref act-45 1))) (vector 0 e-30))) (else (let ((act-46 (CoreC-45Core-traverse_ (lambda (eta-0) (lambda (eta-1) (CoreC-45Context-addToSave arg-1 eta-0 eta-1))) (LibrariesC-45DataC-45NameMap-keys (CoreC-45TT-getMetas e-2)) ext-0))) (case (vector-ref act-46 0) ((0) (let ((e-31 (vector-ref act-46 1))) (vector 0 e-31))) (else (let ((act-47 (CoreC-45Context-addToSave arg-1 e-8 ext-0))) (case (vector-ref act-47 0) ((0) (let ((e-32 (vector-ref act-47 1))) (vector 0 e-32))) (else (let ((act-48 (CoreC-45ContextC-45Log-log arg-1 "declare.data" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Saving from " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-8) (PreludeC-45TypesC-45String-C-43C-43 ": " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45Name-u--show_Show_Name u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Name-u--showPrec_Show_Name u--d u--x)))) (LibrariesC-45DataC-45NameMap-keys (CoreC-45TT-getMetas e-2))))))) ext-0))) (case (vector-ref act-48 0) ((0) (let ((e-33 (vector-ref act-48 1))) (vector 0 e-33))) (else (let ((u--connames (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (TTImpC-45ProcessData-conName eta-0)) e-21))) (let ((act-49 (let ((sc27 (PreludeC-45Types-elem (cons (lambda (arg-10) (lambda (arg-11) (TTImpC-45TTImp-u--C-61C-61_Eq_DataOpt arg-10 arg-11))) (lambda (arg-10) (lambda (arg-11) (TTImpC-45TTImp-u--C-47C-61_Eq_DataOpt arg-10 arg-11)))) (vector 1 ) e-6))) (cond ((equal? sc27 1) (vector 1 0)) (else (CoreC-45Core-traverse_ (lambda (u--x) (lambda (eta-0) (CoreC-45Context-addHintFor arg-1 arg-7 (vector 9 e-19) u--x 1 0 eta-0))) u--connames ext-0)))))) (case (vector-ref act-49 0) ((0) (let ((e-34 (vector-ref act-49 1))) (vector 0 e-34))) (else (let ((act-50 (TTImpC-45ProcessData-calcConInfo arg-1 arg-7 e-21 ext-0))) (case (vector-ref act-50 0) ((0) (let ((e-35 (vector-ref act-50 1))) (vector 0 e-35))) (else (CoreC-45Core-traverse_ (lambda (eta-0) (lambda (eta-1) (TTImpC-45ElabC-45Utils-updateErasable arg-1 eta-0 eta-1))) (cons (vector 9 e-19) u--connames) ext-0)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) +(define TTImpC-45ProcessData-hasArgs (lambda (arg-1 arg-2) (cond ((equal? arg-1 0) (case (vector-ref arg-2 0) ((3) (let ((e-14 (vector-ref arg-2 3))) (let ((e-15 (vector-ref arg-2 4))) (case (vector-ref e-14 0) ((2) (let ((e-18 (vector-ref e-14 2))) (let ((sc3 (AlgebraC-45Semiring-isErased (cons (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-3) (lambda (arg-4) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-4 arg-5))))) e-18))) (cond ((equal? sc3 1) (TTImpC-45ProcessData-hasArgs 0 e-15)) (else 0)))))(else 1)))))(else 1)))(else (let ((e-0 (- arg-1 1))) (case (vector-ref arg-2 0) ((3) (let ((e-4 (vector-ref arg-2 3))) (let ((e-5 (vector-ref arg-2 4))) (case (vector-ref e-4 0) ((2) (let ((e-8 (vector-ref e-4 2))) (let ((sc2 (AlgebraC-45Semiring-isErased (cons (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-3) (lambda (arg-4) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-4 arg-5))))) e-8))) (cond ((equal? sc2 1) (TTImpC-45ProcessData-hasArgs (+ 1 e-0) e-5)) (else (TTImpC-45ProcessData-hasArgs e-0 e-5))))))(else 0)))))(else 0))))))) +(define TTImpC-45ProcessData-getRelevantArg (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (case (vector-ref arg-4 0) ((0) (let ((e-1 (vector-ref arg-4 1))) (let ((e-3 (vector-ref arg-4 3))) (let ((e-4 (vector-ref arg-4 4))) (case (vector-ref e-3 0) ((2) (let ((e-7 (vector-ref e-3 2))) (let ((e-9 (vector-ref e-3 4))) (let ((act-24 (((e-4 arg-0) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 e-1 0))) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) ((AlgebraC-45Semiring-branchZero (cons (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-5) (lambda (arg-6) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-5 arg-6))))) (lambda () (lambda (eta-0) (TTImpC-45ProcessData-getRelevantArg arg-0 (PreludeC-45Types-u--C-43_Num_Nat (PreludeC-45Types-u--fromInteger_Num_Nat 1) arg-1) arg-2 arg-3 e-5 eta-0))) (case (vector-ref e-9 0) ((8) (let ((e-10 (vector-ref e-9 2))) (case (vector-ref e-10 0) ((27) (lambda () (lambda (eta-0) (let ((act-25 (((e-4 arg-0) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 e-1 0))) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-12 (vector-ref act-25 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref act-25 1))) (TTImpC-45ProcessData-getRelevantArg arg-0 (PreludeC-45Types-u--C-43_Num_Nat (PreludeC-45Types-u--fromInteger_Num_Nat 1) arg-1) arg-2 0 e-12 eta-0))))))))(else (lambda () (PreludeC-45Types-maybe (lambda () (lambda (eta-0) (let ((act-25 (((e-4 arg-0) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 e-1 0))) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-12 (vector-ref act-25 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref act-25 1))) (TTImpC-45ProcessData-getRelevantArg arg-0 (PreludeC-45Types-u--C-43_Num_Nat (PreludeC-45Types-u--fromInteger_Num_Nat 1) arg-1) (box arg-1) 0 e-12 eta-0))))))) (lambda () (lambda (eta-0) (lambda (eta-1) (vector 1 '())))) arg-2))))))(else (lambda () (PreludeC-45Types-maybe (lambda () (lambda (eta-0) (let ((act-25 (((e-4 arg-0) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 e-1 0))) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (TTImpC-45ProcessData-getRelevantArg arg-0 (PreludeC-45Types-u--C-43_Num_Nat (PreludeC-45Types-u--fromInteger_Num_Nat 1) arg-1) (box arg-1) 0 e-10 eta-0))))))) (lambda () (lambda (eta-0) (lambda (eta-1) (vector 1 '())))) arg-2)))) e-7) ext-0))))))))(else (vector 1 (PreludeC-45Types-maybe (lambda () '()) (lambda () (lambda (u--r) (box (cons arg-3 u--r)))) arg-2))))))))(else (vector 1 (PreludeC-45Types-maybe (lambda () '()) (lambda () (lambda (u--r) (box (cons arg-3 u--r)))) arg-2)))))) +(define TTImpC-45ProcessData-getIndexPats (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Normalise-nf arg-0 '() e-5 '() arg-1) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45ProcessData-n--8604-6667-u--getRetType arg-1 arg-0 e-5 e-6 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (TTImpC-45ProcessData-n--8604-6668-u--getPats arg-1 arg-0 e-5 e-7 ext-0))))))))))))))) +(define TTImpC-45ProcessData-getDetags (lambda (arg-0 arg-1 arg-2 ext-0) (if (null? arg-2) (vector 1 (box '())) (let ((e-3 (cdr arg-2))) (if (null? e-3) (vector 1 (box '())) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (TTImpC-45ProcessData-getIndexPats arg-0 eta-0 eta-1))) arg-2 '() ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (TTImpC-45ProcessData-n--8697-6779-u--getDisjointPos arg-2 arg-1 arg-0 0 (DataC-45List-transpose e-5) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref act-25 1))) (if (null? e-6) (vector 1 '()) (vector 1 (box e-6)))))))))))))))) +(define TTImpC-45ProcessData-findNewtype (lambda (arg-0 arg-1 ext-0) (if (null? arg-1) (vector 1 0) (let ((e-1 (car arg-1))) (let ((e-2 (cdr arg-1))) (if (null? e-2) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-nf arg-0 '() e-5 '() (let ((e-3 (vector-ref e-1 3))) e-3)) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-3 (vector-ref act-25 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref act-25 1))) (TTImpC-45ProcessData-getRelevantArg e-5 0 '() 1 e-6 ext-0))))))) (case (vector-ref act-25 0) ((0) (let ((e-3 (vector-ref act-25 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref act-25 1))) (if (null? e-6) (vector 1 0) (let ((e-3 (unbox e-6))) (CoreC-45Context-updateDef arg-0 (let ((e-8 (vector-ref e-1 1))) e-8) (lambda (lcase-0) (case (vector-ref lcase-0 0) ((5) (let ((e-0 (vector-ref lcase-0 1))) (let ((e-7 (vector-ref lcase-0 2))) (box (vector 5 e-0 e-7 (box e-3))))))(else '()))) ext-0))))))))))) (vector 1 0))))))) +(define TTImpC-45ProcessData-conName (lambda (arg-0) (let ((e-1 (vector-ref arg-0 1))) e-1))) +(define TTImpC-45ProcessData-checkRetType (lambda (arg-1 arg-2 arg-3 arg-4) (case (vector-ref arg-3 0) ((0) (let ((e-1 (vector-ref arg-3 1))) (let ((e-3 (vector-ref arg-3 3))) (let ((e-4 (vector-ref arg-3 4))) (case (vector-ref e-3 0) ((2) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (((e-4 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) arg-2 (vector 10 e-1 0))) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) ((TTImpC-45ProcessData-checkRetType arg-1 arg-2 e-10 arg-4) eta-0)))))))))))(else (arg-4 arg-3)))))))(else (arg-4 arg-3))))) +(define TTImpC-45ProcessData-checkIsType (lambda (arg-1 arg-2 arg-3 arg-4 arg-5) (TTImpC-45ProcessData-checkRetType arg-1 arg-4 arg-5 (lambda (lcase-0) (lambda (clam-0) (case (vector-ref lcase-0 0) ((10) (vector 1 0))(else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 9 arg-2 arg-3) clam-0)))))))) +(define TTImpC-45ProcessData-checkFamily (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (TTImpC-45ProcessData-checkRetType arg-1 arg-5 arg-6 (lambda (lcase-0) (lambda (clam-0) (case (vector-ref lcase-0 0) ((10) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 10 arg-2 arg-3 arg-4) clam-0)) ((3) (let ((e-4 (vector-ref lcase-0 2))) (let ((sc1 (CoreC-45Name-u--C-61C-61_Eq_Name arg-4 e-4))) (cond ((equal? sc1 1) (vector 1 0)) (else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 10 arg-2 arg-3 arg-4) clam-0))))))(else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 10 arg-2 arg-3 arg-4) clam-0)))))))) +(define TTImpC-45ProcessData-checkCon (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 ext-0) (let ((e-0 (vector-ref arg-10 0))) (let ((e-2 (vector-ref arg-10 2))) (let ((e-3 (vector-ref arg-10 3))) (let ((act-24 (CoreC-45Context-inCurrentNS arg-1 e-2 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((u--ty_raw (TTImpC-45ProcessData-updateNS arg-8 arg-9 e-3))) (let ((act-25 (CoreC-45ContextC-45Log-log arg-1 "declare.data.constructor" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Checking constructor type " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-5) (PreludeC-45TypesC-45String-C-43C-43 " : " (TTImpC-45TTImp-u--show_Show_RawImp u--ty_raw))))) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((act-26 (CoreC-45ContextC-45Log-log arg-1 "declare.data.constructor" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Updated " (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (u--x) (CoreC-45Name-u--show_Show_Name u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Name-u--showPrec_Show_Name u--d u--x)))) (cons (lambda (u--x) (CoreC-45Name-u--show_Show_Name u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Name-u--showPrec_Show_Name u--d u--x))))) (cons arg-8 arg-9)))) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-4 (vector-ref act-26 1))) (vector 0 e-4))) (else (let ((act-27 (let ((act-27 (unbox arg-1))) (vector 1 act-27)))) (case (vector-ref act-27 0) ((0) (let ((e-4 (vector-ref act-27 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref act-27 1))) (let ((act-28 ((CoreC-45Context-lookupCtxtExact e-5 (let ((e-36 (vector-ref e-8 0))) e-36)) ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-4 (vector-ref act-28 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref act-28 1))) (if (null? e-9) (let ((act-29 (let ((act-29 (CoreC-45Context-resolveName arg-1 e-5 ext-0))) (case (vector-ref act-29 0) ((0) (let ((e-4 (vector-ref act-29 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref act-29 1))) ((TTImpC-45ElabC-45Utils-wrapErrorC arg-4 (lambda (eta-0) (vector 63 e-0 e-5 eta-0)) (lambda (eta-0) (TTImpC-45Elab-checkTerm arg-0 arg-1 arg-2 arg-3 e-10 (vector 0 ) arg-4 arg-5 arg-6 (vector 16 e-0 (vector 0 (AlgebraC-45Semiring-erased (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)))) u--ty_raw) (CoreC-45Normalise-gType e-0) eta-0))) ext-0))))))) (case (vector-ref act-29 0) ((0) (let ((e-4 (vector-ref act-29 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref act-29 1))) (let ((act-30 (let ((act-30 ((CoreC-45Normalise-nf arg-1 arg-0 e-8 arg-6 e-10) ext-0))) (case (vector-ref act-30 0) ((0) (let ((e-4 (vector-ref act-30 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref act-30 1))) ((TTImpC-45ProcessData-checkFamily arg-1 e-0 e-5 arg-9 arg-6 e-11) ext-0))))))) (case (vector-ref act-30 0) ((0) (let ((e-4 (vector-ref act-30 1))) (vector 0 e-4))) (else (let ((u--fullty (CoreC-45Env-abstractEnvType arg-0 e-0 arg-6 e-10))) (let ((act-31 (CoreC-45Normalise-logTermNF '() arg-1 "declare.data.constructor" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Constructor " (CoreC-45Name-u--show_Show_Name e-5))) '() u--fullty ext-0))) (case (vector-ref act-31 0) ((0) (let ((e-4 (vector-ref act-31 1))) (vector 0 e-4))) (else (let ((act-32 (CoreC-45Core-traverse_ (lambda (eta-0) (lambda (eta-1) (CoreC-45Context-addToSave arg-1 eta-0 eta-1))) (LibrariesC-45DataC-45NameMap-keys (CoreC-45TT-getMetas e-10)) ext-0))) (case (vector-ref act-32 0) ((0) (let ((e-4 (vector-ref act-32 1))) (vector 0 e-4))) (else (let ((act-33 (CoreC-45Context-addToSave arg-1 e-5 ext-0))) (case (vector-ref act-33 0) ((0) (let ((e-4 (vector-ref act-33 1))) (vector 0 e-4))) (else (let ((act-34 (CoreC-45ContextC-45Log-log arg-1 "declare.data.constructor" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Saving from " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-5) (PreludeC-45TypesC-45String-C-43C-43 ": " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45Name-u--show_Show_Name u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Name-u--showPrec_Show_Name u--d u--x)))) (LibrariesC-45DataC-45NameMap-keys (CoreC-45TT-getMetas e-10))))))) ext-0))) (case (vector-ref act-34 0) ((0) (let ((e-4 (vector-ref act-34 1))) (vector 0 e-4))) (else (let ((act-35 (cond ((equal? arg-7 2) (let ((act-35 (CoreC-45Context-addHashWithNames arg-1 (cons (lambda (arg-529) (CoreC-45Hash-u--hash_Hashable_Name arg-529)) (lambda (arg-530) (lambda (arg-531) (CoreC-45Hash-u--hashWithSalt_Hashable_Name arg-530 arg-531)))) (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-0))))) e-5 ext-0))) (case (vector-ref act-35 0) ((0) (let ((e-4 (vector-ref act-35 1))) (vector 0 e-4))) (else (CoreC-45Context-addHashWithNames arg-1 (cons (lambda (arg-529) (CoreC-45Hash-u--hash_Hashable_C-40TermC-32C-36varsC-41 arg-529)) (lambda (arg-530) (lambda (arg-531) (CoreC-45Hash-u--hashWithSalt_Hashable_C-40TermC-32C-36varsC-41 arg-530 arg-531)))) (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-0))))) u--fullty ext-0)))))(else (vector 1 0))))) (case (vector-ref act-35 0) ((0) (let ((e-4 (vector-ref act-35 1))) (vector 0 e-4))) (else (let ((act-36 (CoreC-45Normalise-getArity arg-1 '() e-8 '() u--fullty ext-0))) (case (vector-ref act-36 0) ((0) (let ((e-4 (vector-ref act-36 1))) (vector 0 e-4))) (else (let ((e-17 (vector-ref act-36 1))) (vector 1 (vector e-0 e-5 e-17 u--fullty))))))))))))))))))))))))))))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 38 e-0 e-5) ext-0)))))))))))))))))))))))))) +(define TTImpC-45ProcessData-calcRecord (lambda (arg-0 arg-1 arg-2 ext-0) (if (null? arg-2) (vector 1 0) (let ((e-1 (car arg-2))) (let ((e-2 (cdr arg-2))) (if (null? e-2) (let ((act-24 (CoreC-45Context-setFlag arg-0 arg-1 (let ((e-5 (vector-ref e-1 1))) e-5) (vector 9 7) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (vector 1 1)))) (vector 1 0))))))) +(define TTImpC-45ProcessData-calcMaybe (lambda (arg-0 arg-1 arg-2) (if (null? arg-2) (lambda (eta-0) (vector 1 0)) (let ((e-1 (car arg-2))) (let ((e-2 (cdr arg-2))) (lambda (clam-0) (if (null? e-2) (vector 1 0) (let ((e-4 (car e-2))) (let ((e-5 (cdr e-2))) (if (null? e-5) (let ((act-24 (TTImpC-45ProcessData-shaped arg-0 (lambda (vs-8000) (lambda (eta-0) (TTImpC-45ProcessData-hasArgs 0 eta-0))) arg-2 clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref act-24 1))) (let ((u--cs (cons e-1 (cons e-4 '())))) (if (null? e-6) (vector 1 0) (let ((e-3 (unbox e-6))) (let ((act-25 (TTImpC-45ProcessData-shaped arg-0 (lambda (vs-8028) (lambda (eta-0) (TTImpC-45ProcessData-hasArgs (+ 1 0) eta-0))) u--cs clam-0))) (case (vector-ref act-25 0) ((0) (let ((e-7 (vector-ref act-25 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-25 1))) (if (null? e-7) (vector 1 0) (let ((e-8 (unbox e-7))) (let ((act-26 (CoreC-45Context-setFlag arg-0 arg-1 e-3 (vector 9 5) clam-0))) (case (vector-ref act-26 0) ((0) (let ((e-9 (vector-ref act-26 1))) (vector 0 e-9))) (else (let ((act-27 (CoreC-45Context-setFlag arg-0 arg-1 e-8 (vector 9 6) clam-0))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (vector 1 1)))))))))))))))))))) (vector 1 0))))))))))) +(define TTImpC-45ProcessData-calcListy (lambda (arg-0 arg-1 arg-2) (if (null? arg-2) (lambda (eta-0) (vector 1 0)) (let ((e-1 (car arg-2))) (let ((e-2 (cdr arg-2))) (lambda (clam-0) (if (null? e-2) (let ((act-24 (TTImpC-45ProcessData-shaped arg-0 (lambda (vs-7823) (lambda (eta-0) (TTImpC-45ProcessData-hasArgs (+ 1 (+ 1 0)) eta-0))) arg-2 clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref act-24 1))) (if (null? e-5) (vector 1 0) (let ((e-3 (unbox e-5))) (let ((act-25 (CoreC-45Context-setFlag arg-0 arg-1 e-3 (vector 9 3) clam-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (vector 1 1)))))))))) (let ((e-5 (car e-2))) (let ((e-6 (cdr e-2))) (if (null? e-6) (let ((act-24 (TTImpC-45ProcessData-shaped arg-0 (lambda (vs-7878) (lambda (eta-0) (TTImpC-45ProcessData-hasArgs 0 eta-0))) arg-2 clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref act-24 1))) (let ((u--cs (cons e-1 (cons e-5 '())))) (if (null? e-7) (vector 1 0) (let ((e-3 (unbox e-7))) (let ((act-25 (TTImpC-45ProcessData-shaped arg-0 (lambda (vs-7906) (lambda (eta-0) (TTImpC-45ProcessData-hasArgs (+ 1 (+ 1 0)) eta-0))) u--cs clam-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref act-25 1))) (if (null? e-8) (vector 1 0) (let ((e-4 (unbox e-8))) (let ((act-26 (CoreC-45Context-setFlag arg-0 arg-1 e-3 (vector 9 2) clam-0))) (case (vector-ref act-26 0) ((0) (let ((e-9 (vector-ref act-26 1))) (vector 0 e-9))) (else (let ((act-27 (CoreC-45Context-setFlag arg-0 arg-1 e-4 (vector 9 3) clam-0))) (case (vector-ref act-27 0) ((0) (let ((e-10 (vector-ref act-27 1))) (vector 0 e-10))) (else (vector 1 1)))))))))))))))))))) (vector 1 0))))))))))) +(define TTImpC-45ProcessData-calcEnum (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (CoreC-45Core-allM (lambda (eta-0) (lambda (eta-1) (TTImpC-45ProcessData-n--10170-8107-u--isNullary arg-2 arg-1 arg-0 eta-0 eta-1))) arg-2 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (cond ((equal? e-5 1) (let ((act-25 (CoreC-45Core-traverse_ (lambda (u--c) (lambda (eta-0) (CoreC-45Context-setFlag arg-0 arg-1 u--c (vector 9 4) eta-0))) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (let ((e-1 (vector-ref eta-0 1))) e-1)) arg-2) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (vector 1 1))))) (else (vector 1 0))))))))) +(define TTImpC-45ProcessData-calcConInfo (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 ((TTImpC-45ProcessData-calcListy arg-0 arg-1 arg-2) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (cond ((equal? e-5 0) (let ((act-25 ((TTImpC-45ProcessData-calcMaybe arg-0 arg-1 arg-2) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (cond ((equal? e-6 0) (let ((act-26 (TTImpC-45ProcessData-calcEnum arg-0 arg-1 arg-2 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (cond ((equal? e-7 0) (let ((act-27 (TTImpC-45ProcessData-calcRecord arg-0 arg-1 arg-2 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (cond ((equal? e-8 0) (vector 1 0)) (else (vector 1 0)))))))) (else (vector 1 0)))))))) (else (vector 1 0)))))))) (else (vector 1 0))))))))) +(define CoreC-45ContextC-45Data-case--getPs-14961 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (if (null? arg-5) (lambda (eta-0) (vector 1 arg-4)) (let ((e-2 (car arg-5))) (let ((e-3 (cdr arg-5))) (lambda (clam-0) (case (vector-ref e-2 0) ((1) (let ((e-7 (vector-ref e-2 3))) (let ((sc2 (CoreC-45Name-u--C-61C-61_Eq_Name e-7 arg-3))) (cond ((equal? sc2 1) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-4 (vector-ref eta-0 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref eta-0 1))) (vector 1 (box e-8)))))) (lambda (eta-0) (CoreC-45ContextC-45Data-updateParams arg-0 arg-1 arg-4 e-3 eta-0)) clam-0)) (else (vector 1 arg-4))))))(else (vector 1 arg-4))))))))) +(define CoreC-45ContextC-45Data-n--5210-14595-u--toNothing (lambda (arg-1 arg-4 arg-5 arg-6 arg-7) (if (null? arg-7) arg-7 (let ((e-1 (unbox arg-7))) (case (vector-ref e-1 0) ((0) (let ((e-4 (vector-ref e-1 1))) (let ((e-5 (vector-ref e-1 2))) (let ((e-6 (vector-ref e-1 3))) (let ((u--tm (box (vector 0 e-4 e-5 e-6)))) (let ((sc2 (PreludeC-45Types-u--C-61C-61_Eq_Nat arg-1 e-6))) (cond ((equal? sc2 1) '()) (else u--tm))))))))(else arg-7)))))) +(define CoreC-45ContextC-45Data-n--5533-14889-u--shrink (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (if (null? arg-11) '() (let ((e-2 (unbox arg-11))) (CoreC-45TT-shrinkTerm e-2 (vector 1 (vector 0 ))))))) +(define CoreC-45ContextC-45Data-n--5340-14761-u--mergeArg (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (if (null? arg-4) '() (let ((e-1 (unbox arg-4))) (case (vector-ref e-1 0) ((0) (let ((e-4 (vector-ref e-1 1))) (let ((e-5 (vector-ref e-1 2))) (let ((e-6 (vector-ref e-1 3))) (case (vector-ref arg-5 0) ((0) (let ((e-12 (vector-ref arg-5 3))) (let ((sc3 (PreludeC-45Types-u--C-61C-61_Eq_Nat e-6 e-12))) (cond ((equal? sc3 1) (box (vector 0 e-4 e-5 e-6))) (else '())))))(else '()))))))(else '())))))) +(define CoreC-45ContextC-45Data-n--5729-15060-u--justPos (lambda (arg-1 arg-2 arg-3) (if (null? arg-3) '() (let ((e-2 (car arg-3))) (let ((e-3 (cdr arg-3))) (if (null? e-2) (CoreC-45ContextC-45Data-n--5729-15060-u--justPos arg-1 (PreludeC-45Types-u--C-43_Num_Nat (PreludeC-45Types-u--fromInteger_Num_Nat 1) arg-2) e-3) (cons arg-2 (CoreC-45ContextC-45Data-n--5729-15060-u--justPos arg-1 (PreludeC-45Types-u--C-43_Num_Nat (PreludeC-45Types-u--fromInteger_Num_Nat 1) arg-2) e-3)))))))) +(define CoreC-45ContextC-45Data-n--5340-14705-u--couldBeParam (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (CoreC-45Normalise-etaContract arg-0 arg-1 arg-3 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (case (vector-ref e-5 0) ((0) (let ((e-2 (vector-ref e-5 1))) (let ((e-3 (vector-ref e-5 2))) (let ((e-4 (vector-ref e-5 3))) (box (vector 0 e-2 e-3 e-4))))))(else '()))))))))) +(define CoreC-45ContextC-45Data-n--5892-15217-u--conVisibility (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (cond ((equal? arg-9 1) 0)(else arg-9)))) +(define CoreC-45ContextC-45Data-n--5892-15216-u--allDet (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (cond ((equal? arg-9 0) '())(else (let ((e-0 (- arg-9 1))) (PreludeC-45Types-u--rangeFromTo_Range_Nat 0 e-0)))))) +(define CoreC-45ContextC-45Data-n--5892-15218-u--addDataConstructors (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (if (null? arg-10) (lambda (eta-0) (vector 1 arg-11)) (let ((e-2 (car arg-10))) (let ((e-3 (cdr arg-10))) (let ((e-4 (vector-ref e-2 0))) (let ((e-5 (vector-ref e-2 1))) (let ((e-6 (vector-ref e-2 2))) (let ((e-7 (vector-ref e-2 3))) (let ((u--condef (CoreC-45Context-newDef e-4 e-5 (AlgebraC-45ZeroOneOmega-u--top_Top_ZeroOneOmega) arg-7 e-7 (CoreC-45ContextC-45Data-n--5892-15217-u--conVisibility arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-6) (vector 5 arg-9 e-6 '())))) (lambda (eta-0) (let ((act-24 ((CoreC-45Context-lookupCtxtExact e-5 arg-11) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-8 (vector-ref act-24 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref act-24 1))) (if (null? e-8) (let ((act-25 (CoreC-45Context-addCtxt e-5 u--condef arg-11 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-9 (vector-ref act-25 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref act-25 1))) (let ((e-10 (cdr e-9))) ((CoreC-45ContextC-45Data-n--5892-15218-u--addDataConstructors arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (bs+ arg-9 1 63) e-3 e-10) eta-0)))))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 38 e-4 e-5) eta-0))))))))))))))))) +(define CoreC-45ContextC-45Data-updateParams (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (if (null? arg-2) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-2 (vector-ref eta-0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-0 1))) (vector 1 (CoreC-45ContextC-45Data-dropReps e-5)))))) (lambda (eta-0) (CoreC-45Core-traverseC-39 (lambda (eta-1) (lambda (eta-2) (CoreC-45ContextC-45Data-n--5340-14705-u--couldBeParam arg-0 arg-1 arg-3 eta-1 eta-2))) arg-3 '() eta-0)) ext-0) (let ((e-2 (unbox arg-2))) (vector 1 (CoreC-45ContextC-45Data-dropReps (DataC-45List-u--zipWith_Zippable_List (lambda (eta-0) (lambda (eta-1) (CoreC-45ContextC-45Data-n--5340-14761-u--mergeArg arg-0 arg-1 e-2 arg-3 eta-0 eta-1))) e-2 arg-3))))))) +(define CoreC-45ContextC-45Data-toPos (lambda (arg-1) (if (null? arg-1) '() (let ((e-2 (unbox arg-1))) (CoreC-45ContextC-45Data-n--5729-15060-u--justPos e-2 0 e-2))))) +(define CoreC-45ContextC-45Data-paramPos (lambda (arg-0 arg-1 arg-2 ext-0) (if (null? arg-2) (vector 1 '()) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45ContextC-45Data-getConPs arg-0 '() '() arg-1 eta-0)) arg-2 '() ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (box (DataC-45List-intersectAll (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45Types-u--C-61C-61_Eq_Nat arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45Types-u--C-47C-61_Eq_Nat arg-4 arg-5)))) e-5)))))))))) +(define CoreC-45ContextC-45Data-getPs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (case (vector-ref arg-4 0) ((3) (let ((e-1 (vector-ref arg-4 1))) (let ((e-2 (vector-ref arg-4 2))) (let ((e-3 (vector-ref arg-4 3))) (let ((e-4 (vector-ref arg-4 4))) (case (vector-ref e-3 0) ((2) (let ((e-6 (vector-ref e-3 1))) (let ((e-7 (vector-ref e-3 2))) (let ((e-8 (vector-ref e-3 3))) (let ((e-9 (vector-ref e-3 4))) (lambda (eta-0) (let ((act-24 ((CoreC-45ContextC-45Data-getPs arg-0 (cons e-2 arg-1) (PreludeC-45Types-u--map_Functor_Maybe (lambda (eta-1) (PreludeC-45Types-u--map_Functor_List (lambda (eta-2) (PreludeC-45Types-u--map_Functor_Maybe (lambda (eta-3) (CoreC-45TT-u--weaken_Weaken_Term eta-3)) eta-2)) eta-1)) arg-2) arg-3 e-4) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (PreludeC-45Types-u--map_Functor_Maybe (lambda (eta-1) (PreludeC-45Types-u--map_Functor_List (lambda (eta-2) (CoreC-45ContextC-45Data-n--5533-14889-u--shrink arg-0 arg-1 e-1 e-6 e-7 e-8 e-9 e-2 e-4 arg-3 arg-2 eta-2)) eta-1)) e-5))))))))))))(else (CoreC-45ContextC-45Data-case--getPs-14961 arg-0 arg-1 arg-4 arg-3 arg-2 (CoreC-45TT-getFnArgs arg-4)))))))))(else (CoreC-45ContextC-45Data-case--getPs-14961 arg-0 arg-1 arg-4 arg-3 arg-2 (CoreC-45TT-getFnArgs arg-4)))))) +(define CoreC-45ContextC-45Data-getConPs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (case (vector-ref arg-4 0) ((3) (let ((e-2 (vector-ref arg-4 2))) (let ((e-3 (vector-ref arg-4 3))) (let ((e-4 (vector-ref arg-4 4))) (case (vector-ref e-3 0) ((2) (let ((e-9 (vector-ref e-3 4))) (lambda (eta-0) (let ((act-24 ((CoreC-45ContextC-45Data-getPs arg-0 arg-1 arg-2 arg-3 e-9) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) ((CoreC-45ContextC-45Data-getConPs arg-0 (cons e-2 arg-1) (PreludeC-45Types-u--map_Functor_Maybe (lambda (eta-1) (PreludeC-45Types-u--map_Functor_List (lambda (eta-2) (PreludeC-45Types-u--map_Functor_Maybe (lambda (eta-3) (CoreC-45TT-u--weaken_Weaken_Term eta-3)) eta-2)) eta-1)) e-5) arg-3 e-4) eta-0)))))))) ((1) (let ((e-13 (vector-ref e-3 3))) (CoreC-45ContextC-45Data-getConPs arg-0 arg-1 arg-2 arg-3 (CoreC-45TTC-45SubstEnv-subst e-13 e-4))))(else (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (case (vector-ref eta-1 0) ((0) (let ((e-5 (vector-ref eta-1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref eta-1 1))) (vector 1 (CoreC-45ContextC-45Data-toPos e-5)))))) (CoreC-45ContextC-45Data-getPs arg-0 arg-1 arg-2 arg-3 arg-4) eta-0))))))))(else (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (case (vector-ref eta-1 0) ((0) (let ((e-2 (vector-ref eta-1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-1 1))) (vector 1 (CoreC-45ContextC-45Data-toPos e-5)))))) (CoreC-45ContextC-45Data-getPs arg-0 arg-1 arg-2 arg-3 arg-4) eta-0)))))) +(define CoreC-45ContextC-45Data-dropReps (lambda (arg-1) (if (null? arg-1) '() (let ((e-2 (car arg-1))) (let ((e-3 (cdr arg-1))) (if (null? e-2) (cons e-2 (CoreC-45ContextC-45Data-dropReps e-3)) (let ((e-5 (unbox e-2))) (case (vector-ref e-5 0) ((0) (let ((e-8 (vector-ref e-5 1))) (let ((e-9 (vector-ref e-5 2))) (let ((e-10 (vector-ref e-5 3))) (cons (box (vector 0 e-8 e-9 e-10)) (CoreC-45ContextC-45Data-dropReps (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45ContextC-45Data-n--5210-14595-u--toNothing e-10 e-9 e-8 e-3 eta-0)) e-3)))))))(else (cons e-2 (CoreC-45ContextC-45Data-dropReps e-3))))))))))) +(define CoreC-45ContextC-45Data-addData (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((e-0 (car arg-4))) (let ((e-1 (cdr arg-4))) (let ((e-2 (vector-ref e-0 0))) (let ((e-3 (vector-ref e-0 1))) (let ((e-4 (vector-ref e-0 2))) (let ((e-5 (vector-ref e-0 3))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-getNextTypeTag arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-7 (vector-ref act-25 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-25 1))) (let ((u--allPos (CoreC-45ContextC-45Data-n--5892-15216-u--allDet e-5 e-4 e-3 e-2 e-1 arg-3 arg-2 arg-1 arg-0 e-4))) (let ((act-26 (CoreC-45ContextC-45Data-paramPos arg-0 (vector 9 arg-3) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (let ((e-8 (vector-ref eta-0 3))) e-8)) e-1) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-8 (vector-ref act-26 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref act-26 1))) (let ((u--paramPositions (DataC-45Maybe-fromMaybe (lambda () u--allPos) e-8))) (let ((act-27 (CoreC-45ContextC-45Log-log arg-0 "declare.data.parameters" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))))))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Positions of parameters for datatype" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-3) (PreludeC-45TypesC-45String-C-43C-43 ": [" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-showSep ", " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (PreludeC-45Show-u--show_Show_Nat eta-0)) u--paramPositions)) "]"))))) ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-9 (vector-ref act-27 1))) (vector 0 e-9))) (else (let ((u--tydef (CoreC-45Context-newDef e-2 e-3 (AlgebraC-45ZeroOneOmega-u--top_Top_ZeroOneOmega) arg-1 e-5 arg-2 (vector 6 e-7 e-4 u--paramPositions u--allPos (CoreC-45Context-defaultFlags) '() (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (let ((e-12 (vector-ref eta-0 1))) e-12)) e-1) '())))) (let ((act-28 (CoreC-45Context-addCtxt e-3 u--tydef (let ((e-38 (vector-ref e-6 0))) e-38) ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-10 (vector-ref act-28 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-28 1))) (let ((e-12 (car e-10))) (let ((e-11 (cdr e-10))) (let ((act-29 ((CoreC-45ContextC-45Data-n--5892-15218-u--addDataConstructors e-5 e-4 e-3 e-2 e-1 arg-3 arg-2 arg-1 arg-0 0 e-1 e-11) ext-0))) (case (vector-ref act-29 0) ((0) (let ((e-13 (vector-ref act-29 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref act-29 1))) (let ((act-30 (let ((act-30 (set-box! arg-0 (let ((e-41 (vector-ref e-6 1))) (let ((e-40 (vector-ref e-6 2))) (let ((e-39 (vector-ref e-6 3))) (let ((e-38 (vector-ref e-6 4))) (let ((e-37 (vector-ref e-6 5))) (let ((e-36 (vector-ref e-6 6))) (let ((e-35 (vector-ref e-6 7))) (let ((e-34 (vector-ref e-6 8))) (let ((e-33 (vector-ref e-6 9))) (let ((e-32 (vector-ref e-6 10))) (let ((e-31 (vector-ref e-6 11))) (let ((e-30 (vector-ref e-6 12))) (let ((e-29 (vector-ref e-6 13))) (let ((e-14 (vector-ref e-6 14))) (let ((e-15 (vector-ref e-6 15))) (let ((e-16 (vector-ref e-6 16))) (let ((e-17 (vector-ref e-6 17))) (let ((e-18 (vector-ref e-6 18))) (let ((e-19 (vector-ref e-6 19))) (let ((e-20 (vector-ref e-6 20))) (let ((e-21 (vector-ref e-6 21))) (let ((e-22 (vector-ref e-6 22))) (let ((e-23 (vector-ref e-6 23))) (let ((e-24 (vector-ref e-6 24))) (let ((e-25 (vector-ref e-6 25))) (let ((e-26 (vector-ref e-6 26))) (let ((e-27 (vector-ref e-6 27))) (let ((e-28 (vector-ref e-6 28))) (vector e-13 e-41 e-40 e-39 e-38 e-37 e-36 e-35 e-34 e-33 e-32 e-31 e-30 e-29 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27 e-28)))))))))))))))))))))))))))))))) (vector 1 act-30)))) (case (vector-ref act-30 0) ((0) (let ((e-14 (vector-ref act-30 1))) (vector 0 e-14))) (else (vector 1 e-12)))))))))))))))))))))))))))))))))))))))) +(define TTImpC-45ProcessBuiltin-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32processIntegerToNat-16835 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 ext-0) (if (null? arg-18) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-2 (PreludeC-45TypesC-45String-C-43C-43 "No type constructor found for return type of " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name arg-5) "."))) ext-0) (let ((e-1 (unbox arg-18))) (let ((act-24 (TTImpC-45ProcessBuiltin-getNatBuiltin arg-0 e-1 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (if (null? e-5) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-2 "Return type is not a 'Nat'-like type") ext-0) (TTImpC-45ProcessBuiltin-addIntegerToNat arg-0 arg-5 (cons arg-14 arg-15) ext-0)))))))))) +(define TTImpC-45ProcessBuiltin-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32processIntegerToNat-16789 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (if (null? arg-16) (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 (PreludeC-45TypesC-45String-C-43C-43 "Unexpected type " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() arg-8))) eta-0)) (let ((e-1 (unbox arg-16))) (let ((e-5 (car e-1))) (let ((e-6 (cdr e-1))) (lambda (eta-0) (TTImpC-45ProcessBuiltin-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32processIntegerToNat-16835 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-5 e-6 (TTImpC-45ProcessBuiltin-getTypeCons e-5 e-6) eta-0)))))))) +(define TTImpC-45ProcessBuiltin-case--caseC-32blockC-32inC-32processIntegerToNat-16692 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (case (vector-ref arg-9 0) ((1) (let ((e-0 (vector-ref arg-9 1))) (let ((e-1 (vector-ref arg-9 2))) (let ((e-2 (vector-ref arg-9 3))) (let ((e-3 (vector-ref arg-9 4))) (let ((e-4 (vector-ref arg-9 5))) (let ((u--arity (PreludeC-45TypesC-45List-length (TTImpC-45ProcessBuiltin-getTypeArgs '() arg-8)))) (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-logTerm '() arg-0 "builtin.IntegerToNatural" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))))))))))))))))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Type of " (CoreC-45Name-u--show_Show_Name arg-1))) arg-8 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((sc2 (TTImpC-45ProcessBuiltin-getNEIntegerIndex u--arity arg-8))) (if (null? sc2) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 (PreludeC-45TypesC-45String-C-43C-43 "Unexpected arity while processing %builtin IntegerToNatural " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name arg-5) " (getNEIntegerIndex returned Nothing)"))) eta-0) (let ((e-6 (unbox sc2))) (if (null? e-6) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-2 (PreludeC-45TypesC-45String-C-43C-43 "No unrestricted arguments of type `Integer` found for " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name arg-5) "."))) eta-0) (let ((e-8 (car e-6))) (let ((e-7 (cdr e-6))) (if (null? e-7) ((TTImpC-45ProcessBuiltin-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32processIntegerToNat-16789 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-0 e-1 e-2 e-4 e-3 u--arity e-8 (TTImpC-45ProcessBuiltin-getReturnType '() arg-8)) eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-2 (PreludeC-45TypesC-45String-C-43C-43 "More than one unrestricted arguments of type `Integer` found for " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name arg-5) "."))) eta-0)))))))))))))))))))(else (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-2 (PreludeC-45TypesC-45String-C-43C-43 "Expected function definition, found " (PreludeC-45TypesC-45String-C-43C-43 (TTImpC-45ProcessBuiltin-showDefType arg-9) "."))) eta-0)))))) +(define TTImpC-45ProcessBuiltin-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32processNatToInteger-16092 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 ext-0) (if (null? arg-16) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-2 (PreludeC-45TypesC-45String-C-43C-43 "No type constructor found for non-erased arguement of " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name arg-5) "."))) ext-0) (let ((e-1 (unbox arg-16))) (let ((act-24 (TTImpC-45ProcessBuiltin-getNatBuiltin arg-0 e-1 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (if (null? e-5) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-2 "Non-erased argument is not a 'Nat'-like type.") ext-0) (let ((u--arity (PreludeC-45TypesC-45List-length (TTImpC-45ProcessBuiltin-getTypeArgs '() arg-13)))) (let ((sc3 (TTImpC-45ProcessBuiltin-getNEIndex u--arity arg-13))) (if (null? sc3) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 "Couldn't find non-erased argument.") ext-0) (let ((e-3 (unbox sc3))) (TTImpC-45ProcessBuiltin-addNatToInteger arg-0 arg-5 (cons u--arity e-3) ext-0)))))))))))))) +(define TTImpC-45ProcessBuiltin-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32processNatToInteger-16048 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (if (null? arg-14) (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-2 (PreludeC-45TypesC-45String-C-43C-43 "No arguments found for " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name arg-5) "."))) eta-0)) (let ((e-1 (car arg-14))) (let ((e-2 (cdr arg-14))) (if (null? e-1) (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-2 (PreludeC-45TypesC-45String-C-43C-43 "More than 1 non-erased arguments found for " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name arg-5) "."))) eta-0)) (let ((e-6 (car e-1))) (let ((e-7 (cdr e-1))) (if (null? e-2) (lambda (eta-0) (TTImpC-45ProcessBuiltin-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32processNatToInteger-16092 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-6 e-7 (TTImpC-45ProcessBuiltin-getTypeCons e-6 e-7) eta-0)) (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-2 (PreludeC-45TypesC-45String-C-43C-43 "More than 1 non-erased arguments found for " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name arg-5) "."))) eta-0))))))))))) +(define TTImpC-45ProcessBuiltin-case--caseC-32blockC-32inC-32processNatToInteger-15991 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 ext-0) (case (vector-ref arg-8 0) ((1) (let ((e-0 (vector-ref arg-8 1))) (let ((e-1 (vector-ref arg-8 2))) (let ((e-2 (vector-ref arg-8 3))) (let ((e-3 (vector-ref arg-8 4))) (let ((e-4 (vector-ref arg-8 5))) (let ((act-24 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-0))))) (let ((e-23 (vector-ref arg-6 2))) e-23) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45ContextC-45Log-logTerm '() arg-0 "builtin.NaturalToInteger" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))))))))))))))))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Type of " (CoreC-45Name-u--show_Show_Name arg-1))) e-5 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-6 (vector-ref act-25 1))) (vector 0 e-6))) (else ((TTImpC-45ProcessBuiltin-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32processNatToInteger-16048 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-0 e-1 e-2 e-4 e-3 e-5 (TTImpC-45ProcessBuiltin-getNEArgs '() e-5)) ext-0))))))))))))))(else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-2 (PreludeC-45TypesC-45String-C-43C-43 "Expected function definition, found " (PreludeC-45TypesC-45String-C-43C-43 (TTImpC-45ProcessBuiltin-showDefType arg-8) "."))) ext-0))))) +(define TTImpC-45ProcessBuiltin-case--caseC-32blockC-32inC-32processBuiltinNatural-15791 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 ext-0) (case (vector-ref arg-8 0) ((6) (let ((e-6 (vector-ref arg-8 7))) (let ((act-24 (TTImpC-45ProcessBuiltin-getConsGDef (let ((e-36 (vector-ref arg-3 0))) e-36) arg-2 e-6 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-8 (vector-ref act-24 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref act-24 1))) (let ((act-25 (TTImpC-45ProcessBuiltin-checkNatCons (let ((e-37 (vector-ref arg-3 0))) e-37) e-8 arg-5 arg-2 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-9 (vector-ref act-25 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Context-getFullName arg-0 (let ((e-11 (car e-9))) e-11) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-10 (vector-ref act-26 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-26 1))) (let ((act-27 (CoreC-45Context-getFullName arg-0 (let ((e-11 (cdr e-9))) e-11) ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-11 (vector-ref act-27 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-27 1))) (TTImpC-45ProcessBuiltin-addBuiltinNat arg-0 arg-5 (cons e-10 e-11) ext-0)))))))))))))))))))(else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-2 (PreludeC-45TypesC-45String-C-43C-43 "Expected a type constructor, found " (PreludeC-45TypesC-45String-C-43C-43 (TTImpC-45ProcessBuiltin-showDefType arg-8) "."))) ext-0))))) +(define TTImpC-45ProcessBuiltin-case--caseC-32blockC-32inC-32checkNatConsC-44checkCon-15137 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (case (vector-ref arg-10 0) ((5) (let ((e-1 (vector-ref arg-10 2))) (let ((sc1 (PreludeC-45Types-prim__integerToNat (- e-1 (PreludeC-45TypesC-45List-length (let ((e-3 (vector-ref arg-5 3))) e-3)))))) (cond ((equal? sc1 0) (lambda (clam-0) (if (null? arg-7) (vector 1 (cons (box arg-4) arg-8)) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-0 (PreludeC-45TypesC-45String-C-43C-43 "Multiple 'Z'-like constructors for " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name arg-1) "."))) clam-0))))(else (let ((e-3 (- (PreludeC-45Types-prim__integerToNat (- e-1 (PreludeC-45TypesC-45List-length (let ((e-3 (vector-ref arg-5 3))) e-3)))) 1))) (lambda (clam-0) (cond ((equal? e-3 0) (if (null? arg-8) (let ((act-24 ((TTImpC-45ProcessBuiltin-n--7750-14865-u--checkTyS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (vector 1 (cons arg-7 (box arg-4)))))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-0 (PreludeC-45TypesC-45String-C-43C-43 "Multiple 'S'-like constructors for " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name arg-1) "."))) clam-0)))(else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-0 (PreludeC-45TypesC-45String-C-43C-43 "Constructor " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name arg-4) " doesn't match any pattern for Natural."))) clam-0))))))))))(else (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-0 (PreludeC-45TypesC-45String-C-43C-43 "Expected data constructor, found:" (TTImpC-45ProcessBuiltin-showDefType arg-10))) eta-0)))))) +(define TTImpC-45ProcessBuiltin-n--6937-14117-u--isInteger (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-7) (case (vector-ref arg-7 0) ((9) (let ((e-2 (vector-ref arg-7 2))) (case (vector-ref e-2 0) ((19) 1)(else 0))))(else 0)))) +(define TTImpC-45ProcessBuiltin-n--6937-14118-u--go (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-8) (cond ((equal? arg-7 0) (box '()))(else (let ((e-0 (- arg-7 1))) (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (PreludeC-45Types-u--map_Functor_Maybe eta-2 eta-3))))) (lambda (eta-0) (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (box eta-1)) eta-0)) (TTImpC-45ProcessBuiltin-getNEIntegerIndex e-0 arg-8))))))) +(define TTImpC-45ProcessBuiltin-n--7750-14865-u--checkTyS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((u--type (let ((e-2 (vector-ref arg-5 2))) e-2))) (let ((sc0 (TTImpC-45ProcessBuiltin-getFirstNEType '() u--type))) (if (null? sc0) (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 "Expected a non-erased argument, found none.") eta-0)) (let ((e-1 (unbox sc0))) (let ((e-6 (cdr e-1))) (lambda (clam-0) (let ((sc2 (TTImpC-45ProcessBuiltin-getReturnType '() u--type))) (if (null? sc2) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 (PreludeC-45TypesC-45String-C-43C-43 "Unexpected type " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() u--type))) clam-0) (let ((e-2 (unbox sc2))) (let ((e-7 (cdr e-2))) (let ((act-24 (let ((sc4 (TTImpC-45ProcessBuiltin-termConMatch e-6 e-7))) (cond ((equal? sc4 1) (vector 1 0)) (else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-0 (PreludeC-45TypesC-45String-C-43C-43 "Incorrect type for 'S'-like constructor for " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name arg-1) "."))) clam-0)))))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (let ((act-25 (let ((sc5 (TTImpC-45ProcessBuiltin-isStrict e-6))) (cond ((equal? sc5 1) (vector 1 0)) (else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-0 "Natural builtin does not support lazy types.") clam-0)))))) (case (vector-ref act-25 0) ((0) (let ((e-3 (vector-ref act-25 1))) (vector 0 e-3))) (else (vector 1 0))))))))))))))))))) +(define TTImpC-45ProcessBuiltin-n--7750-14866-u--checkCon (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((e-2 (car arg-4))) (let ((e-3 (cdr arg-4))) (let ((act-24 (arg-5 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((e-6 (car e-5))) (let ((e-4 (cdr e-5))) (let ((_-0 (cons e-6 e-4))) ((TTImpC-45ProcessBuiltin-case--caseC-32blockC-32inC-32checkNatConsC-44checkCon-15137 arg-0 arg-1 arg-2 arg-3 e-2 e-3 arg-5 e-6 e-4 _-0 (let ((e-17 (vector-ref e-3 17))) e-17)) ext-0)))))))))))) +(define TTImpC-45ProcessBuiltin-termConMatch (lambda (arg-2 arg-3) (case (vector-ref arg-2 0) ((0) (let ((e-42 (vector-ref arg-2 3))) (case (vector-ref arg-3 0) ((0) (let ((e-75 (vector-ref arg-3 3))) (PreludeC-45Types-u--C-61C-61_Eq_Nat e-42 e-75)))(else (case (vector-ref arg-3 0) ((6) (let ((e-37 (vector-ref arg-3 3))) (TTImpC-45ProcessBuiltin-termConMatch arg-2 e-37)))(else (case (vector-ref arg-2 0) ((7) (let ((e-23 (vector-ref arg-2 3))) (let ((e-24 (vector-ref arg-2 4))) (case (vector-ref arg-3 0) ((7) (let ((e-32 (vector-ref arg-3 3))) (let ((e-33 (vector-ref arg-3 4))) (let ((sc3 (TTImpC-45ProcessBuiltin-termConMatch e-23 e-32))) (cond ((equal? sc3 1) (TTImpC-45ProcessBuiltin-termConMatch e-24 e-33)) (else 0))))))(else (case (vector-ref arg-3 0) ((8) (let ((e-19 (vector-ref arg-3 3))) (TTImpC-45ProcessBuiltin-termConMatch arg-2 e-19)))(else (case (vector-ref arg-2 0) ((9) (case (vector-ref arg-3 0) ((9) 1)(else 0))) ((10) (case (vector-ref arg-3 0) ((10) 1)(else 0))) ((11) (case (vector-ref arg-3 0) ((11) 1)(else 0)))(else 0))))))))) ((8) (let ((e-28 (vector-ref arg-2 3))) (TTImpC-45ProcessBuiltin-termConMatch e-28 arg-3)))(else (case (vector-ref arg-3 0) ((8) (let ((e-19 (vector-ref arg-3 3))) (TTImpC-45ProcessBuiltin-termConMatch arg-2 e-19)))(else (case (vector-ref arg-2 0) ((9) (case (vector-ref arg-3 0) ((9) 1)(else 0))) ((10) (case (vector-ref arg-3 0) ((10) 1)(else 0))) ((11) (case (vector-ref arg-3 0) ((11) 1)(else 0)))(else 0)))))))))))) ((1) (let ((e-47 (vector-ref arg-2 3))) (case (vector-ref arg-3 0) ((1) (let ((e-80 (vector-ref arg-3 3))) (CoreC-45Name-u--C-61C-61_Eq_Name e-47 e-80)))(else (case (vector-ref arg-3 0) ((6) (let ((e-37 (vector-ref arg-3 3))) (TTImpC-45ProcessBuiltin-termConMatch arg-2 e-37)))(else (case (vector-ref arg-2 0) ((7) (let ((e-23 (vector-ref arg-2 3))) (let ((e-24 (vector-ref arg-2 4))) (case (vector-ref arg-3 0) ((7) (let ((e-32 (vector-ref arg-3 3))) (let ((e-33 (vector-ref arg-3 4))) (let ((sc3 (TTImpC-45ProcessBuiltin-termConMatch e-23 e-32))) (cond ((equal? sc3 1) (TTImpC-45ProcessBuiltin-termConMatch e-24 e-33)) (else 0))))))(else (case (vector-ref arg-3 0) ((8) (let ((e-19 (vector-ref arg-3 3))) (TTImpC-45ProcessBuiltin-termConMatch arg-2 e-19)))(else (case (vector-ref arg-2 0) ((9) (case (vector-ref arg-3 0) ((9) 1)(else 0))) ((10) (case (vector-ref arg-3 0) ((10) 1)(else 0))) ((11) (case (vector-ref arg-3 0) ((11) 1)(else 0)))(else 0))))))))) ((8) (let ((e-28 (vector-ref arg-2 3))) (TTImpC-45ProcessBuiltin-termConMatch e-28 arg-3)))(else (case (vector-ref arg-3 0) ((8) (let ((e-19 (vector-ref arg-3 3))) (TTImpC-45ProcessBuiltin-termConMatch arg-2 e-19)))(else (case (vector-ref arg-2 0) ((9) (case (vector-ref arg-3 0) ((9) 1)(else 0))) ((10) (case (vector-ref arg-3 0) ((10) 1)(else 0))) ((11) (case (vector-ref arg-3 0) ((11) 1)(else 0)))(else 0)))))))))))) ((2) (let ((e-51 (vector-ref arg-2 3))) (let ((e-52 (vector-ref arg-2 4))) (case (vector-ref arg-3 0) ((2) (let ((e-84 (vector-ref arg-3 3))) (let ((e-85 (vector-ref arg-3 4))) (let ((sc2 (PreludeC-45EqOrd-u--C-61C-61_Eq_Int e-51 e-84))) (cond ((equal? sc2 1) (PreludeC-45Interfaces-all (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (lambda (eta-0) (PreludeC-45Basics-uncurry (lambda (eta-1) (lambda (eta-2) (TTImpC-45ProcessBuiltin-termConMatch eta-1 eta-2))) eta-0)) (DataC-45List-u--zip_Zippable_List e-52 e-85))) (else 0))))))(else (case (vector-ref arg-3 0) ((6) (let ((e-37 (vector-ref arg-3 3))) (TTImpC-45ProcessBuiltin-termConMatch arg-2 e-37)))(else (case (vector-ref arg-2 0) ((7) (let ((e-23 (vector-ref arg-2 3))) (let ((e-24 (vector-ref arg-2 4))) (case (vector-ref arg-3 0) ((7) (let ((e-32 (vector-ref arg-3 3))) (let ((e-33 (vector-ref arg-3 4))) (let ((sc3 (TTImpC-45ProcessBuiltin-termConMatch e-23 e-32))) (cond ((equal? sc3 1) (TTImpC-45ProcessBuiltin-termConMatch e-24 e-33)) (else 0))))))(else (case (vector-ref arg-3 0) ((8) (let ((e-19 (vector-ref arg-3 3))) (TTImpC-45ProcessBuiltin-termConMatch arg-2 e-19)))(else (case (vector-ref arg-2 0) ((9) (case (vector-ref arg-3 0) ((9) 1)(else 0))) ((10) (case (vector-ref arg-3 0) ((10) 1)(else 0))) ((11) (case (vector-ref arg-3 0) ((11) 1)(else 0)))(else 0))))))))) ((8) (let ((e-28 (vector-ref arg-2 3))) (TTImpC-45ProcessBuiltin-termConMatch e-28 arg-3)))(else (case (vector-ref arg-3 0) ((8) (let ((e-19 (vector-ref arg-3 3))) (TTImpC-45ProcessBuiltin-termConMatch arg-2 e-19)))(else (case (vector-ref arg-2 0) ((9) (case (vector-ref arg-3 0) ((9) 1)(else 0))) ((10) (case (vector-ref arg-3 0) ((10) 1)(else 0))) ((11) (case (vector-ref arg-3 0) ((11) 1)(else 0)))(else 0))))))))))))) ((3) (let ((e-56 (vector-ref arg-2 3))) (let ((e-57 (vector-ref arg-2 4))) (case (vector-ref arg-3 0) ((3) (let ((e-89 (vector-ref arg-3 3))) (let ((e-90 (vector-ref arg-3 4))) (let ((sc2 (CoreC-45TT-eqBinderBy (lambda (eta-0) (lambda (eta-1) (TTImpC-45ProcessBuiltin-termConMatch eta-0 eta-1))) e-56 e-89))) (cond ((equal? sc2 1) (TTImpC-45ProcessBuiltin-termConMatch e-57 e-90)) (else 0))))))(else (case (vector-ref arg-3 0) ((6) (let ((e-37 (vector-ref arg-3 3))) (TTImpC-45ProcessBuiltin-termConMatch arg-2 e-37)))(else (case (vector-ref arg-2 0) ((7) (let ((e-23 (vector-ref arg-2 3))) (let ((e-24 (vector-ref arg-2 4))) (case (vector-ref arg-3 0) ((7) (let ((e-32 (vector-ref arg-3 3))) (let ((e-33 (vector-ref arg-3 4))) (let ((sc3 (TTImpC-45ProcessBuiltin-termConMatch e-23 e-32))) (cond ((equal? sc3 1) (TTImpC-45ProcessBuiltin-termConMatch e-24 e-33)) (else 0))))))(else (case (vector-ref arg-3 0) ((8) (let ((e-19 (vector-ref arg-3 3))) (TTImpC-45ProcessBuiltin-termConMatch arg-2 e-19)))(else (case (vector-ref arg-2 0) ((9) (case (vector-ref arg-3 0) ((9) 1)(else 0))) ((10) (case (vector-ref arg-3 0) ((10) 1)(else 0))) ((11) (case (vector-ref arg-3 0) ((11) 1)(else 0)))(else 0))))))))) ((8) (let ((e-28 (vector-ref arg-2 3))) (TTImpC-45ProcessBuiltin-termConMatch e-28 arg-3)))(else (case (vector-ref arg-3 0) ((8) (let ((e-19 (vector-ref arg-3 3))) (TTImpC-45ProcessBuiltin-termConMatch arg-2 e-19)))(else (case (vector-ref arg-2 0) ((9) (case (vector-ref arg-3 0) ((9) 1)(else 0))) ((10) (case (vector-ref arg-3 0) ((10) 1)(else 0))) ((11) (case (vector-ref arg-3 0) ((11) 1)(else 0)))(else 0))))))))))))) ((4) (let ((e-60 (vector-ref arg-2 2))) (case (vector-ref arg-3 0) ((4) (let ((e-93 (vector-ref arg-3 2))) (TTImpC-45ProcessBuiltin-termConMatch e-60 e-93)))(else (case (vector-ref arg-3 0) ((6) (let ((e-37 (vector-ref arg-3 3))) (TTImpC-45ProcessBuiltin-termConMatch arg-2 e-37)))(else (case (vector-ref arg-2 0) ((7) (let ((e-23 (vector-ref arg-2 3))) (let ((e-24 (vector-ref arg-2 4))) (case (vector-ref arg-3 0) ((7) (let ((e-32 (vector-ref arg-3 3))) (let ((e-33 (vector-ref arg-3 4))) (let ((sc3 (TTImpC-45ProcessBuiltin-termConMatch e-23 e-32))) (cond ((equal? sc3 1) (TTImpC-45ProcessBuiltin-termConMatch e-24 e-33)) (else 0))))))(else (case (vector-ref arg-3 0) ((8) (let ((e-19 (vector-ref arg-3 3))) (TTImpC-45ProcessBuiltin-termConMatch arg-2 e-19)))(else (case (vector-ref arg-2 0) ((9) (case (vector-ref arg-3 0) ((9) 1)(else 0))) ((10) (case (vector-ref arg-3 0) ((10) 1)(else 0))) ((11) (case (vector-ref arg-3 0) ((11) 1)(else 0)))(else 0))))))))) ((8) (let ((e-28 (vector-ref arg-2 3))) (TTImpC-45ProcessBuiltin-termConMatch e-28 arg-3)))(else (case (vector-ref arg-3 0) ((8) (let ((e-19 (vector-ref arg-3 3))) (TTImpC-45ProcessBuiltin-termConMatch arg-2 e-19)))(else (case (vector-ref arg-2 0) ((9) (case (vector-ref arg-3 0) ((9) 1)(else 0))) ((10) (case (vector-ref arg-3 0) ((10) 1)(else 0))) ((11) (case (vector-ref arg-3 0) ((11) 1)(else 0)))(else 0)))))))))))) ((5) (let ((e-65 (vector-ref arg-2 3))) (let ((e-66 (vector-ref arg-2 4))) (case (vector-ref arg-3 0) ((5) (let ((e-98 (vector-ref arg-3 3))) (let ((e-99 (vector-ref arg-3 4))) (let ((sc2 (TTImpC-45ProcessBuiltin-termConMatch e-65 e-98))) (cond ((equal? sc2 1) (TTImpC-45ProcessBuiltin-termConMatch e-66 e-99)) (else 0))))))(else (case (vector-ref arg-3 0) ((6) (let ((e-37 (vector-ref arg-3 3))) (TTImpC-45ProcessBuiltin-termConMatch arg-2 e-37)))(else (case (vector-ref arg-2 0) ((7) (let ((e-23 (vector-ref arg-2 3))) (let ((e-24 (vector-ref arg-2 4))) (case (vector-ref arg-3 0) ((7) (let ((e-32 (vector-ref arg-3 3))) (let ((e-33 (vector-ref arg-3 4))) (let ((sc3 (TTImpC-45ProcessBuiltin-termConMatch e-23 e-32))) (cond ((equal? sc3 1) (TTImpC-45ProcessBuiltin-termConMatch e-24 e-33)) (else 0))))))(else (case (vector-ref arg-3 0) ((8) (let ((e-19 (vector-ref arg-3 3))) (TTImpC-45ProcessBuiltin-termConMatch arg-2 e-19)))(else (case (vector-ref arg-2 0) ((9) (case (vector-ref arg-3 0) ((9) 1)(else 0))) ((10) (case (vector-ref arg-3 0) ((10) 1)(else 0))) ((11) (case (vector-ref arg-3 0) ((11) 1)(else 0)))(else 0))))))))) ((8) (let ((e-28 (vector-ref arg-2 3))) (TTImpC-45ProcessBuiltin-termConMatch e-28 arg-3)))(else (case (vector-ref arg-3 0) ((8) (let ((e-19 (vector-ref arg-3 3))) (TTImpC-45ProcessBuiltin-termConMatch arg-2 e-19)))(else (case (vector-ref arg-2 0) ((9) (case (vector-ref arg-3 0) ((9) 1)(else 0))) ((10) (case (vector-ref arg-3 0) ((10) 1)(else 0))) ((11) (case (vector-ref arg-3 0) ((11) 1)(else 0)))(else 0))))))))))))) ((6) (let ((e-70 (vector-ref arg-2 3))) (TTImpC-45ProcessBuiltin-termConMatch e-70 arg-3)))(else (case (vector-ref arg-3 0) ((6) (let ((e-37 (vector-ref arg-3 3))) (TTImpC-45ProcessBuiltin-termConMatch arg-2 e-37)))(else (case (vector-ref arg-2 0) ((7) (let ((e-23 (vector-ref arg-2 3))) (let ((e-24 (vector-ref arg-2 4))) (case (vector-ref arg-3 0) ((7) (let ((e-32 (vector-ref arg-3 3))) (let ((e-33 (vector-ref arg-3 4))) (let ((sc2 (TTImpC-45ProcessBuiltin-termConMatch e-23 e-32))) (cond ((equal? sc2 1) (TTImpC-45ProcessBuiltin-termConMatch e-24 e-33)) (else 0))))))(else (case (vector-ref arg-3 0) ((8) (let ((e-19 (vector-ref arg-3 3))) (TTImpC-45ProcessBuiltin-termConMatch arg-2 e-19)))(else (case (vector-ref arg-2 0) ((9) (case (vector-ref arg-3 0) ((9) 1)(else 0))) ((10) (case (vector-ref arg-3 0) ((10) 1)(else 0))) ((11) (case (vector-ref arg-3 0) ((11) 1)(else 0)))(else 0))))))))) ((8) (let ((e-28 (vector-ref arg-2 3))) (TTImpC-45ProcessBuiltin-termConMatch e-28 arg-3)))(else (case (vector-ref arg-3 0) ((8) (let ((e-19 (vector-ref arg-3 3))) (TTImpC-45ProcessBuiltin-termConMatch arg-2 e-19)))(else (case (vector-ref arg-2 0) ((9) (case (vector-ref arg-3 0) ((9) 1)(else 0))) ((10) (case (vector-ref arg-3 0) ((10) 1)(else 0))) ((11) (case (vector-ref arg-3 0) ((11) 1)(else 0)))(else 0)))))))))))) +(define TTImpC-45ProcessBuiltin-showDefType (lambda (arg-0) (case (vector-ref arg-0 0) ((0) "undefined") ((1) "function") ((2) "external function") ((3) "foreign function") ((4) "builtin function") ((5) "data constructor") ((6) "type constructor") ((7) "hole") ((8) "search") ((9) "guess") ((10) "bound name") (else "delayed")))) +(define TTImpC-45ProcessBuiltin-processNatToInteger (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (CoreC-45ContextC-45Log-log arg-0 "builtin.NaturalToInteger" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Processing %builtin NaturalToInteger " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name arg-3) "."))) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 ((CoreC-45Context-lookupCtxtName arg-3 (let ((e-0 (vector-ref arg-1 0))) e-0)) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (if (null? e-6) (CoreC-45Context-undefinedName arg-0 arg-2 arg-3 ext-0) (let ((e-1 (car e-6))) (let ((e-2 (cdr e-6))) (if (null? e-1) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 17 arg-2 (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (PreludeC-45Types-u--map_Functor_List eta-2 eta-3))))) (lambda (lamc-0) (let ((e-4 (car lamc-0))) (let ((e-3 (cdr lamc-0))) e-4))) e-6)) ext-0) (let ((e-8 (car e-1))) (let ((e-7 (cdr e-1))) (if (null? e-7) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 17 arg-2 (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (PreludeC-45Types-u--map_Functor_List eta-2 eta-3))))) (lambda (lamc-0) (let ((e-4 (car lamc-0))) (let ((e-3 (cdr lamc-0))) e-4))) e-6)) ext-0) (let ((e-10 (car e-7))) (let ((e-11 (cdr e-7))) (if (null? e-2) (let ((_-0 (cons (cons e-8 (cons e-10 e-11)) '()))) (TTImpC-45ProcessBuiltin-case--caseC-32blockC-32inC-32processNatToInteger-15991 arg-0 arg-3 arg-2 arg-1 e-10 e-8 e-11 _-0 (let ((e-17 (vector-ref e-11 17))) e-17) ext-0)) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 17 arg-2 (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (PreludeC-45Types-u--map_Functor_List eta-2 eta-3))))) (lambda (lamc-0) (let ((e-4 (car lamc-0))) (let ((e-3 (cdr lamc-0))) e-4))) e-6)) ext-0)))))))))))))))))))) +(define TTImpC-45ProcessBuiltin-processIntegerToNat (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (CoreC-45ContextC-45Log-log arg-0 "builtin.IntegerToNatural" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Processing %builtin IntegerToNatural " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name arg-3) "."))) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 ((CoreC-45Context-lookupCtxtName arg-3 (let ((e-0 (vector-ref arg-1 0))) e-0)) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (if (null? e-6) (CoreC-45Context-undefinedName arg-0 arg-2 arg-3 ext-0) (let ((e-1 (car e-6))) (let ((e-2 (cdr e-6))) (if (null? e-1) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 17 arg-2 (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (PreludeC-45Types-u--map_Functor_List eta-2 eta-3))))) (lambda (lamc-0) (let ((e-4 (car lamc-0))) (let ((e-3 (cdr lamc-0))) e-4))) e-6)) ext-0) (let ((e-8 (car e-1))) (let ((e-7 (cdr e-1))) (if (null? e-7) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 17 arg-2 (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (PreludeC-45Types-u--map_Functor_List eta-2 eta-3))))) (lambda (lamc-0) (let ((e-4 (car lamc-0))) (let ((e-3 (cdr lamc-0))) e-4))) e-6)) ext-0) (let ((e-10 (car e-7))) (let ((e-11 (cdr e-7))) (if (null? e-2) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-0))))) (let ((e-27 (vector-ref e-11 2))) e-27) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-3 (vector-ref act-26 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref act-26 1))) (let ((_-0 (cons (cons e-8 (cons e-10 e-11)) '()))) ((TTImpC-45ProcessBuiltin-case--caseC-32blockC-32inC-32processIntegerToNat-16692 arg-0 arg-3 arg-2 arg-1 e-10 e-8 e-11 _-0 e-9 (let ((e-17 (vector-ref e-11 17))) e-17)) ext-0)))))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 17 arg-2 (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (PreludeC-45Types-u--map_Functor_List eta-2 eta-3))))) (lambda (lamc-0) (let ((e-4 (car lamc-0))) (let ((e-3 (cdr lamc-0))) e-4))) e-6)) ext-0)))))))))))))))))))) +(define TTImpC-45ProcessBuiltin-processBuiltinNatural (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (CoreC-45ContextC-45Log-log arg-0 "builtin.Natural" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Processing %builtin Natural " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name arg-3) "."))) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 ((CoreC-45Context-lookupCtxtName arg-3 (let ((e-0 (vector-ref arg-1 0))) e-0)) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (if (null? e-6) (CoreC-45Context-undefinedName arg-0 arg-2 arg-3 ext-0) (let ((e-1 (car e-6))) (let ((e-2 (cdr e-6))) (if (null? e-1) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 17 arg-2 (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (PreludeC-45Types-u--map_Functor_List eta-2 eta-3))))) (lambda (lamc-0) (let ((e-4 (car lamc-0))) (let ((e-3 (cdr lamc-0))) e-4))) e-6)) ext-0) (let ((e-8 (car e-1))) (let ((e-7 (cdr e-1))) (if (null? e-7) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 17 arg-2 (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (PreludeC-45Types-u--map_Functor_List eta-2 eta-3))))) (lambda (lamc-0) (let ((e-4 (car lamc-0))) (let ((e-3 (cdr lamc-0))) e-4))) e-6)) ext-0) (let ((e-10 (car e-7))) (let ((e-11 (cdr e-7))) (if (null? e-2) (let ((_-0 (cons (cons e-8 (cons e-10 e-11)) '()))) (TTImpC-45ProcessBuiltin-case--caseC-32blockC-32inC-32processBuiltinNatural-15791 arg-0 arg-3 arg-2 arg-1 e-10 e-8 e-11 _-0 (let ((e-17 (vector-ref e-11 17))) e-17) ext-0)) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 17 arg-2 (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (PreludeC-45Types-u--map_Functor_List eta-2 eta-3))))) (lambda (lamc-0) (let ((e-4 (car lamc-0))) (let ((e-3 (cdr lamc-0))) e-4))) e-6)) ext-0)))))))))))))))))))) +(define TTImpC-45ProcessBuiltin-processBuiltin (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (cond ((equal? arg-5 0) (TTImpC-45ProcessBuiltin-processBuiltinNatural arg-1 e-5 arg-4 arg-6 ext-0)) ((equal? arg-5 1) (TTImpC-45ProcessBuiltin-processNatToInteger arg-1 e-5 arg-4 arg-6 ext-0)) (else (TTImpC-45ProcessBuiltin-processIntegerToNat arg-1 e-5 arg-4 arg-6 ext-0))))))))) +(define TTImpC-45ProcessBuiltin-isStrict (lambda (arg-1) (case (vector-ref arg-1 0) ((0) 1) ((1) 1) ((2) (let ((e-14 (vector-ref arg-1 4))) (PreludeC-45Interfaces-all (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (lambda (eta-0) (TTImpC-45ProcessBuiltin-isStrict eta-0)) e-14))) ((3) (let ((e-18 (vector-ref arg-1 3))) (let ((e-19 (vector-ref arg-1 4))) (let ((sc1 (TTImpC-45ProcessBuiltin-isStrict (CoreC-45TT-binderType e-18)))) (cond ((equal? sc1 1) (TTImpC-45ProcessBuiltin-isStrict e-19)) (else 0)))))) ((4) (let ((e-22 (vector-ref arg-1 2))) (let ((e-23 (vector-ref arg-1 3))) (let ((sc1 (TTImpC-45ProcessBuiltin-isStrict e-22))) (cond ((equal? sc1 1) (TTImpC-45ProcessBuiltin-isStrict e-23)) (else 0)))))) ((5) (let ((e-27 (vector-ref arg-1 3))) (let ((e-28 (vector-ref arg-1 4))) (let ((sc1 (TTImpC-45ProcessBuiltin-isStrict e-27))) (cond ((equal? sc1 1) (TTImpC-45ProcessBuiltin-isStrict e-28)) (else 0)))))) ((6) 0) ((7) (let ((e-36 (vector-ref arg-1 3))) (let ((e-37 (vector-ref arg-1 4))) (let ((sc1 (TTImpC-45ProcessBuiltin-isStrict e-36))) (cond ((equal? sc1 1) (TTImpC-45ProcessBuiltin-isStrict e-37)) (else 0)))))) ((8) (let ((e-41 (vector-ref arg-1 3))) (TTImpC-45ProcessBuiltin-isStrict e-41))) ((9) 1) ((10) 1) (else 1)))) +(define TTImpC-45ProcessBuiltin-getTypeCons (lambda (arg-0 arg-1) (case (vector-ref arg-1 0) ((0) (let ((e-4 (vector-ref arg-1 3))) (box (CoreC-45TT-nameAt arg-0 e-4)))) ((1) (let ((e-9 (vector-ref arg-1 3))) (box e-9))) ((2) '()) ((3) (let ((e-18 (vector-ref arg-1 3))) (let ((e-19 (vector-ref arg-1 4))) (case (vector-ref e-18 0) ((1) (let ((e-3 (vector-ref e-18 3))) (TTImpC-45ProcessBuiltin-getTypeCons arg-0 (CoreC-45TTC-45SubstEnv-subst e-3 e-19))))(else '()))))) ((4) (let ((e-22 (vector-ref arg-1 2))) (TTImpC-45ProcessBuiltin-getTypeCons arg-0 e-22)))(else '())))) +(define TTImpC-45ProcessBuiltin-getTypeArgs (lambda (arg-0 arg-1) (case (vector-ref arg-1 0) ((3) (let ((e-2 (vector-ref arg-1 2))) (let ((e-3 (vector-ref arg-1 3))) (let ((e-4 (vector-ref arg-1 4))) (case (vector-ref e-3 0) ((1) (let ((e-6 (vector-ref e-3 3))) (TTImpC-45ProcessBuiltin-getTypeArgs arg-0 (CoreC-45TTC-45SubstEnv-subst e-6 e-4)))) ((2) (let ((e-9 (vector-ref e-3 4))) (cons (cons arg-0 e-9) (TTImpC-45ProcessBuiltin-getTypeArgs (cons e-2 arg-0) e-4))))(else '()))))))(else '())))) +(define TTImpC-45ProcessBuiltin-getReturnType (lambda (arg-0 arg-1) (case (vector-ref arg-1 0) ((3) (let ((e-2 (vector-ref arg-1 2))) (let ((e-3 (vector-ref arg-1 3))) (let ((e-4 (vector-ref arg-1 4))) (case (vector-ref e-3 0) ((1) (let ((e-6 (vector-ref e-3 3))) (TTImpC-45ProcessBuiltin-getReturnType arg-0 (CoreC-45TTC-45SubstEnv-subst e-6 e-4)))) ((2) (TTImpC-45ProcessBuiltin-getReturnType (cons e-2 arg-0) e-4))(else '()))))))(else (box (cons arg-0 arg-1)))))) +(define TTImpC-45ProcessBuiltin-getNatBuiltin (lambda (arg-0 arg-1 ext-0) (let ((act-24 (CoreC-45Context-getFullName arg-0 arg-1 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-2 (vector-ref eta-0 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref eta-0 1))) (vector 1 (LibrariesC-45DataC-45NameMap-lookup e-5 (let ((e-15 (vector-ref e-6 15))) (let ((e-35 (vector-ref e-15 0))) e-35)))))))) (lambda (eta-0) (let ((act-25 (unbox arg-0))) (vector 1 act-25))) ext-0))))))) +(define TTImpC-45ProcessBuiltin-getNEIntegerIndex (lambda (arg-1 arg-2) (case (vector-ref arg-2 0) ((3) (let ((e-1 (vector-ref arg-2 1))) (let ((e-2 (vector-ref arg-2 2))) (let ((e-3 (vector-ref arg-2 3))) (let ((e-4 (vector-ref arg-2 4))) (case (vector-ref e-3 0) ((1) (let ((e-6 (vector-ref e-3 3))) (TTImpC-45ProcessBuiltin-getNEIntegerIndex arg-1 (CoreC-45TTC-45SubstEnv-subst e-6 e-4)))) ((2) (let ((e-6 (vector-ref e-3 1))) (let ((e-7 (vector-ref e-3 2))) (let ((e-8 (vector-ref e-3 3))) (let ((e-9 (vector-ref e-3 4))) (let ((u--b (vector 2 e-6 e-7 e-8 e-9))) (let ((sc2 (let ((sc3 (AlgebraC-45Semiring-isRigOther (cons (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-3) (lambda (arg-4) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-4 arg-5))))) e-7))) (cond ((equal? sc3 1) (TTImpC-45ProcessBuiltin-n--6937-14117-u--isInteger e-1 e-2 e-4 u--b arg-1 e-9)) (else 0))))) (cond ((equal? sc2 1) (let ((sc3 (DataC-45Fin-natToFin 0 arg-1))) (if (null? sc3) '() (let ((e-5 (unbox sc3))) (PreludeC-45Types-u--map_Functor_Maybe (lambda (eta-0) (cons e-5 eta-0)) (TTImpC-45ProcessBuiltin-n--6937-14118-u--go e-1 e-2 e-4 u--b arg-1 arg-1 e-4)))))) (else (TTImpC-45ProcessBuiltin-n--6937-14118-u--go e-1 e-2 e-4 u--b arg-1 arg-1 e-4))))))))))(else '())))))))(else (box '()))))) +(define TTImpC-45ProcessBuiltin-getNEIndex (lambda (arg-1 arg-2) (case (vector-ref arg-2 0) ((3) (let ((e-3 (vector-ref arg-2 3))) (let ((e-4 (vector-ref arg-2 4))) (case (vector-ref e-3 0) ((1) (let ((e-6 (vector-ref e-3 3))) (TTImpC-45ProcessBuiltin-getNEIndex arg-1 (CoreC-45TTC-45SubstEnv-subst e-6 e-4)))) ((2) (let ((e-7 (vector-ref e-3 2))) (let ((sc2 (AlgebraC-45Semiring-isErased (cons (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-3) (lambda (arg-4) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-4 arg-5))))) e-7))) (cond ((equal? sc2 1) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (TTImpC-45ProcessBuiltin-getNEIndex arg-1 e-4) (lambda (eta-0) (LibrariesC-45DataC-45Fin-strengthen arg-1 (box eta-0))))) (else (DataC-45Fin-natToFin 0 arg-1))))))(else '())))))(else '())))) +(define TTImpC-45ProcessBuiltin-getNEArgs (lambda (arg-0 arg-1) (case (vector-ref arg-1 0) ((3) (let ((e-2 (vector-ref arg-1 2))) (let ((e-3 (vector-ref arg-1 3))) (let ((e-4 (vector-ref arg-1 4))) (case (vector-ref e-3 0) ((1) (let ((e-6 (vector-ref e-3 3))) (TTImpC-45ProcessBuiltin-getNEArgs arg-0 (CoreC-45TTC-45SubstEnv-subst e-6 e-4)))) ((2) (let ((e-7 (vector-ref e-3 2))) (let ((e-9 (vector-ref e-3 4))) (let ((sc2 (AlgebraC-45Semiring-isErased (cons (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-2) (lambda (arg-3) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-4 arg-5))))) e-7))) (cond ((equal? sc2 1) (TTImpC-45ProcessBuiltin-getNEArgs (cons e-2 arg-0) e-4)) (else (cons (cons arg-0 e-9) (TTImpC-45ProcessBuiltin-getNEArgs (cons e-2 arg-0) e-4))))))))(else '()))))))(else '())))) +(define TTImpC-45ProcessBuiltin-getFirstNEType (lambda (arg-0 arg-1) (let ((sc0 (TTImpC-45ProcessBuiltin-getNEArgs arg-0 arg-1))) (if (null? sc0) '() (let ((e-2 (car sc0))) (box e-2)))))) +(define TTImpC-45ProcessBuiltin-getConsGDef (lambda (arg-0 arg-1 ext-1 ext-0) (CoreC-45Core-traverseC-39 (lambda (u--n) (lambda (eta-0) (let ((act-24 ((CoreC-45Context-lookupCtxtName u--n arg-0) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (if (null? e-5) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 7 arg-1 u--n) eta-0) (let ((e-1 (car e-5))) (let ((e-2 (cdr e-5))) (if (null? e-1) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 17 arg-1 (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (PreludeC-45Types-u--map_Functor_List eta-3 eta-4))))) (lambda (lamc-0) (let ((e-4 (car lamc-0))) (let ((e-3 (cdr lamc-0))) e-4))) e-5)) eta-0) (let ((e-6 (car e-1))) (let ((e-7 (cdr e-1))) (if (null? e-7) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 17 arg-1 (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (PreludeC-45Types-u--map_Functor_List eta-3 eta-4))))) (lambda (lamc-0) (let ((e-4 (car lamc-0))) (let ((e-3 (cdr lamc-0))) e-4))) e-5)) eta-0) (let ((e-11 (cdr e-7))) (if (null? e-2) (vector 1 (cons e-6 e-11)) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 17 arg-1 (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (PreludeC-45Types-u--map_Functor_List eta-3 eta-4))))) (lambda (lamc-0) (let ((e-4 (car lamc-0))) (let ((e-3 (cdr lamc-0))) e-4))) e-5)) eta-0)))))))))))))))) ext-1 '() ext-0))) +(define TTImpC-45ProcessBuiltin-checkNatCons (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 ((PreludeC-45Types-u--foldr_Foldable_List (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (TTImpC-45ProcessBuiltin-n--7750-14866-u--checkCon arg-3 arg-2 arg-1 arg-0 eta-0 eta-1 eta-2)))) (lambda (eta-0) (vector 1 (cons '() '()))) arg-1) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((e-2 (car e-5))) (let ((e-3 (cdr e-5))) (if (null? e-2) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-3 (PreludeC-45TypesC-45String-C-43C-43 "No 'Z'-like constructors for " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name arg-2) "."))) ext-0) (let ((e-6 (unbox e-2))) (if (null? e-3) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-3 (PreludeC-45TypesC-45String-C-43C-43 "No 'S'-like constructors for " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name arg-2) "."))) ext-0) (let ((e-9 (unbox e-3))) (vector 1 (cons e-6 e-9)))))))))))))) +(define TTImpC-45ProcessBuiltin-addNatToInteger (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (CoreC-45ContextC-45Log-log arg-0 "builtin.NaturalToInteger.addTransforms" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Add %builtin NaturalToInteger transform for " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name arg-1) "."))) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 (let ((act-25 (unbox arg-0))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (set-box! arg-0 (let ((e-0 (vector-ref e-6 0))) (let ((e-1 (vector-ref e-6 1))) (let ((e-2 (vector-ref e-6 2))) (let ((e-3 (vector-ref e-6 3))) (let ((e-4 (vector-ref e-6 4))) (let ((e-30 (vector-ref e-6 5))) (let ((e-29 (vector-ref e-6 6))) (let ((e-7 (vector-ref e-6 7))) (let ((e-8 (vector-ref e-6 8))) (let ((e-9 (vector-ref e-6 9))) (let ((e-10 (vector-ref e-6 10))) (let ((e-11 (vector-ref e-6 11))) (let ((e-12 (vector-ref e-6 12))) (let ((e-13 (vector-ref e-6 13))) (let ((e-14 (vector-ref e-6 14))) (let ((e-15 (vector-ref e-6 15))) (let ((e-16 (vector-ref e-6 16))) (let ((e-17 (vector-ref e-6 17))) (let ((e-18 (vector-ref e-6 18))) (let ((e-19 (vector-ref e-6 19))) (let ((e-20 (vector-ref e-6 20))) (let ((e-21 (vector-ref e-6 21))) (let ((e-22 (vector-ref e-6 22))) (let ((e-23 (vector-ref e-6 23))) (let ((e-24 (vector-ref e-6 24))) (let ((e-25 (vector-ref e-6 25))) (let ((e-26 (vector-ref e-6 26))) (let ((e-27 (vector-ref e-6 27))) (let ((e-28 (vector-ref e-6 28))) (let ((e-35 (vector-ref e-15 0))) (let ((e-34 (vector-ref e-15 1))) (let ((e-31 (vector-ref e-15 2))) (let ((e-32 (vector-ref e-15 3))) (let ((e-33 (vector-ref e-15 4))) (vector e-0 e-1 e-2 e-3 e-4 e-30 e-29 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 (vector e-35 e-34 e-31 (LibrariesC-45DataC-45NameMap-insert arg-1 arg-2 e-32) e-33) e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27 e-28)))))))))))))))))))))))))))))))))))))) (vector 1 act-26))))))))))) +(define TTImpC-45ProcessBuiltin-addIntegerToNat (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (CoreC-45ContextC-45Log-log arg-0 "builtin.IntegerToNatural.addTransforms" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Add %builtin IntegerToNatural transform for " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name arg-1) "."))) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 (let ((act-25 (unbox arg-0))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (set-box! arg-0 (let ((e-0 (vector-ref e-6 0))) (let ((e-1 (vector-ref e-6 1))) (let ((e-2 (vector-ref e-6 2))) (let ((e-3 (vector-ref e-6 3))) (let ((e-4 (vector-ref e-6 4))) (let ((e-30 (vector-ref e-6 5))) (let ((e-29 (vector-ref e-6 6))) (let ((e-7 (vector-ref e-6 7))) (let ((e-8 (vector-ref e-6 8))) (let ((e-9 (vector-ref e-6 9))) (let ((e-10 (vector-ref e-6 10))) (let ((e-11 (vector-ref e-6 11))) (let ((e-12 (vector-ref e-6 12))) (let ((e-13 (vector-ref e-6 13))) (let ((e-14 (vector-ref e-6 14))) (let ((e-15 (vector-ref e-6 15))) (let ((e-16 (vector-ref e-6 16))) (let ((e-17 (vector-ref e-6 17))) (let ((e-18 (vector-ref e-6 18))) (let ((e-19 (vector-ref e-6 19))) (let ((e-20 (vector-ref e-6 20))) (let ((e-21 (vector-ref e-6 21))) (let ((e-22 (vector-ref e-6 22))) (let ((e-23 (vector-ref e-6 23))) (let ((e-24 (vector-ref e-6 24))) (let ((e-25 (vector-ref e-6 25))) (let ((e-26 (vector-ref e-6 26))) (let ((e-27 (vector-ref e-6 27))) (let ((e-28 (vector-ref e-6 28))) (let ((e-35 (vector-ref e-15 0))) (let ((e-34 (vector-ref e-15 1))) (let ((e-31 (vector-ref e-15 2))) (let ((e-32 (vector-ref e-15 3))) (let ((e-33 (vector-ref e-15 4))) (vector e-0 e-1 e-2 e-3 e-4 e-30 e-29 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 (vector e-35 e-34 e-31 e-32 (LibrariesC-45DataC-45NameMap-insert arg-1 arg-2 e-33)) e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27 e-28)))))))))))))))))))))))))))))))))))))) (vector 1 act-26))))))))))) +(define TTImpC-45ProcessBuiltin-addBuiltinNat (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (CoreC-45ContextC-45Log-log arg-0 "builtin.Natural.addTransform" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Add %builtin Natural transform for " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name arg-1) "."))) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 (let ((act-25 (unbox arg-0))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (set-box! arg-0 (let ((e-0 (vector-ref e-6 0))) (let ((e-1 (vector-ref e-6 1))) (let ((e-2 (vector-ref e-6 2))) (let ((e-3 (vector-ref e-6 3))) (let ((e-4 (vector-ref e-6 4))) (let ((e-30 (vector-ref e-6 5))) (let ((e-29 (vector-ref e-6 6))) (let ((e-7 (vector-ref e-6 7))) (let ((e-8 (vector-ref e-6 8))) (let ((e-9 (vector-ref e-6 9))) (let ((e-10 (vector-ref e-6 10))) (let ((e-11 (vector-ref e-6 11))) (let ((e-12 (vector-ref e-6 12))) (let ((e-13 (vector-ref e-6 13))) (let ((e-14 (vector-ref e-6 14))) (let ((e-15 (vector-ref e-6 15))) (let ((e-16 (vector-ref e-6 16))) (let ((e-17 (vector-ref e-6 17))) (let ((e-18 (vector-ref e-6 18))) (let ((e-19 (vector-ref e-6 19))) (let ((e-20 (vector-ref e-6 20))) (let ((e-21 (vector-ref e-6 21))) (let ((e-22 (vector-ref e-6 22))) (let ((e-23 (vector-ref e-6 23))) (let ((e-24 (vector-ref e-6 24))) (let ((e-25 (vector-ref e-6 25))) (let ((e-26 (vector-ref e-6 26))) (let ((e-27 (vector-ref e-6 27))) (let ((e-28 (vector-ref e-6 28))) (let ((e-35 (vector-ref e-15 0))) (let ((e-34 (vector-ref e-15 1))) (let ((e-31 (vector-ref e-15 2))) (let ((e-32 (vector-ref e-15 3))) (let ((e-33 (vector-ref e-15 4))) (vector e-0 e-1 e-2 e-3 e-4 e-30 e-29 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 (vector (LibrariesC-45DataC-45NameMap-insert arg-1 arg-2 e-35) (LibrariesC-45DataC-45NameMap-insert (let ((e-37 (car arg-2))) e-37) 0 e-34) (LibrariesC-45DataC-45NameMap-insert (let ((e-36 (cdr arg-2))) e-36) 0 e-31) e-32 e-33) e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27 e-28)))))))))))))))))))))))))))))))))))))) (vector 1 act-26))))))))))) +(define LibrariesC-45DataC-45Fin-with--strengthen-543 (lambda (arg-0 arg-1 arg-2) (if (null? arg-2) '() (let ((e-2 (unbox arg-2))) (box (box e-2)))))) +(define LibrariesC-45DataC-45Fin-strengthen (lambda (arg-0 arg-1) (cond ((equal? arg-0 0) '())(else (let ((e-0 (- arg-0 1))) (if (null? arg-1) (box '()) (let ((e-3 (unbox arg-1))) (LibrariesC-45DataC-45Fin-with--strengthen-543 e-0 e-3 (LibrariesC-45DataC-45Fin-strengthen e-0 e-3))))))))) +(define TTImpC-45Parser-n--6895-8820-u--spanMap (lambda (arg-0 arg-1 arg-2 arg-3 arg-6 arg-7) (if (null? arg-7) (cons '() '()) (let ((e-2 (car arg-7))) (let ((e-3 (cdr arg-7))) (let ((sc1 (arg-6 e-2))) (if (null? sc1) (cons '() (cons e-2 e-3)) (let ((e-4 (unbox sc1))) (let ((sc2 (TTImpC-45Parser-n--6895-8820-u--spanMap arg-0 arg-1 arg-2 arg-3 arg-6 e-3))) (let ((e-6 (car sc2))) (let ((e-5 (cdr sc2))) (cons (PreludeC-45TypesC-45List-C-43C-43 e-4 e-6) e-5)))))))))))) +(define TTImpC-45Parser-n--10125-7303-u--parseWithArg (lambda (arg-0 arg-1 arg-2) (vector 10 1 (ParserC-45RuleC-45Source-symbol "|") (lambda () (vector 9 0 1 (LibrariesC-45TextC-45Parser-location) (lambda (u--start) (vector 8 0 (TTImpC-45Parser-expr arg-1 arg-0) (lambda () (lambda (u--tm) (vector 9 0 0 (LibrariesC-45TextC-45Parser-location) (lambda (u--end) (vector 0 (cons (vector 0 arg-1 u--start u--end) u--tm))))))))))))) +(define TTImpC-45Parser-n--7743-6807-u--mkPi (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (if (null? arg-5) arg-4 (let ((e-2 (car arg-5))) (let ((e-3 (cdr arg-5))) (let ((e-6 (car e-2))) (let ((e-7 (cdr e-2))) (vector 1 (vector 0 arg-1 arg-2 arg-3) (AlgebraC-45ZeroOneOmega-u--top_Top_ZeroOneOmega) e-6 '() arg-4 (TTImpC-45Parser-n--7743-6807-u--mkPi arg-0 arg-1 arg-2 arg-3 e-7 e-3))))))))) +(define TTImpC-45Parser-n--6895-8821-u--isClause (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (case (vector-ref arg-5 0) ((2) (let ((e-1 (vector-ref arg-5 2))) (let ((e-2 (vector-ref arg-5 3))) (let ((sc1 (CoreC-45Name-u--C-61C-61_Eq_Name arg-4 e-1))) (cond ((equal? sc1 1) (box e-2)) (else '()))))))(else '())))) +(define TTImpC-45Parser-n--10123-7016-u--getFn (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (case (vector-ref arg-5 0) ((0) (let ((e-1 (vector-ref arg-5 2))) (vector 0 e-1))) ((8) (let ((e-3 (vector-ref arg-5 2))) (TTImpC-45Parser-n--10123-7016-u--getFn arg-0 arg-1 arg-2 arg-3 arg-4 e-3))) ((9) (let ((e-6 (vector-ref arg-5 2))) (TTImpC-45Parser-n--10123-7016-u--getFn arg-0 arg-1 arg-2 arg-3 arg-4 e-6))) ((10) (let ((e-9 (vector-ref arg-5 2))) (TTImpC-45Parser-n--10123-7016-u--getFn arg-0 arg-1 arg-2 arg-3 arg-4 e-9)))(else (vector 4 '() 0 "Not a function application"))))) +(define TTImpC-45Parser-n--11129-8027-u--fieldBody (lambda (arg-0 arg-1 arg-2) (vector 9 0 1 (LibrariesC-45TextC-45Parser-location) (lambda (u--start) (vector 8 1 (LibrariesC-45TextC-45Parser-sepBy1 1 (ParserC-45RuleC-45Source-symbol ",") (ParserC-45RuleC-45Source-unqualifiedName)) (lambda () (lambda (u--ns) (vector 10 1 (ParserC-45RuleC-45Source-symbol ":") (lambda () (vector 8 0 (TTImpC-45Parser-expr arg-1 arg-0) (lambda () (lambda (u--ty) (vector 9 0 0 (LibrariesC-45TextC-45Parser-location) (lambda (u--end) (vector 0 (PreludeC-45Types-u--map_Functor_List (lambda (u--n) (vector (vector 0 arg-1 u--start u--end) (AlgebraC-45Semiring-linear (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))) arg-2 (vector 1 u--n) u--ty)) (DataC-45List1-forget u--ns))))))))))))))))) +(define TTImpC-45Parser-n--7733-5840-u--bindAll (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (if (null? arg-3) arg-4 (let ((e-2 (car arg-3))) (let ((e-3 (cdr arg-3))) (let ((e-6 (car e-2))) (let ((e-7 (cdr e-2))) (let ((e-10 (car e-7))) (let ((e-11 (cdr e-7))) (vector 2 arg-2 e-6 (vector 1 ) (box e-10) e-11 (TTImpC-45Parser-n--7733-5840-u--bindAll arg-0 arg-1 arg-2 e-3 arg-4))))))))))) +(define TTImpC-45Parser-n--7708-4591-u--applyExpImp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (if (null? arg-5) arg-4 (let ((e-2 (car arg-5))) (let ((e-3 (cdr arg-5))) (case (vector-ref e-2 0) ((0) (let ((e-6 (vector-ref e-2 1))) (TTImpC-45Parser-n--7708-4591-u--applyExpImp arg-0 arg-1 arg-2 arg-3 (vector 8 (vector 0 arg-1 arg-2 arg-3) arg-4 e-6) e-3))) (else (let ((e-9 (vector-ref e-2 1))) (let ((e-12 (car e-9))) (let ((e-13 (cdr e-9))) (if (null? e-12) (TTImpC-45Parser-n--7708-4591-u--applyExpImp arg-0 arg-1 arg-2 arg-3 (vector 9 (vector 0 arg-1 arg-2 arg-3) arg-4 e-13) e-3) (let ((e-15 (unbox e-12))) (TTImpC-45Parser-n--7708-4591-u--applyExpImp arg-0 arg-1 arg-2 arg-3 (vector 10 (vector 0 arg-1 arg-2 arg-3) arg-4 e-15 e-13) e-3))))))))))))) +(define TTImpC-45Parser-n--10125-7302-u--applyArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (if (null? arg-4) arg-3 (let ((e-2 (car arg-4))) (let ((e-3 (cdr arg-4))) (let ((e-6 (car e-2))) (let ((e-7 (cdr e-2))) (TTImpC-45Parser-n--10125-7302-u--applyArgs arg-0 arg-1 arg-2 (vector 8 e-6 arg-3 e-7) e-3)))))))) +(define TTImpC-45Parser-visibility (lambda () (vector 12 1 0 (TTImpC-45Parser-visOption) (lambda () (vector 0 0))))) +(define TTImpC-45Parser-visOption (lambda () (vector 12 1 1 (vector 10 1 (ParserC-45RuleC-45Source-keyword "public") (lambda () (vector 10 0 (ParserC-45RuleC-45Source-keyword "export") (lambda () (vector 0 2))))) (lambda () (vector 12 1 1 (vector 10 0 (ParserC-45RuleC-45Source-keyword "export") (lambda () (vector 0 1))) (lambda () (vector 10 0 (ParserC-45RuleC-45Source-keyword "private") (lambda () (vector 0 0))))))))) +(define TTImpC-45Parser-visOpt (lambda () (vector 12 1 1 (vector 8 0 (TTImpC-45Parser-visOption) (lambda () (lambda (u--vis) (vector 0 (vector 0 u--vis))))) (lambda () (vector 12 1 1 (vector 8 0 (TTImpC-45Parser-fnOpt) (lambda () (lambda (u--tot) (vector 0 (vector 1 u--tot))))) (lambda () (vector 8 0 (TTImpC-45Parser-fnDirectOpt) (lambda () (lambda (u--opt) (vector 0 (vector 1 u--opt))))))))))) +(define TTImpC-45Parser-typeExpr (lambda (arg-0 arg-1) (vector 9 0 1 (LibrariesC-45TextC-45Parser-location) (lambda (u--start) (vector 8 0 (TTImpC-45Parser-appExpr arg-0 arg-1) (lambda () (lambda (u--arg) (vector 12 1 0 (vector 11 0 1 (ParserC-45RuleC-45Source-continue arg-1) (vector 8 0 (LibrariesC-45TextC-45Parser-some (vector 8 1 (TTImpC-45Parser-bindSymbol) (lambda () (lambda (u--exp) (vector 8 0 (TTImpC-45Parser-appExpr arg-0 arg-1) (lambda () (lambda (u--op) (vector 0 (cons u--exp u--op))))))))) (lambda () (lambda (u--rest) (vector 9 0 0 (LibrariesC-45TextC-45Parser-location) (lambda (u--end) (vector 0 (TTImpC-45Parser-n--7743-6807-u--mkPi arg-1 arg-0 u--start u--end u--arg (DataC-45List1-forget u--rest))))))))) (lambda () (vector 0 u--arg)))))))))) +(define TTImpC-45Parser-tyDecl (lambda (arg-0 arg-1) (vector 9 0 1 (LibrariesC-45TextC-45Parser-location) (lambda (u--start) (vector 8 1 (ParserC-45RuleC-45Source-name) (lambda () (lambda (u--n) (vector 9 0 1 (LibrariesC-45TextC-45Parser-location) (lambda (u--nameEnd) (vector 10 1 (ParserC-45RuleC-45Source-symbol ":") (lambda () (vector 8 0 (TTImpC-45Parser-expr arg-0 arg-1) (lambda () (lambda (u--ty) (vector 9 0 0 (LibrariesC-45TextC-45Parser-location) (lambda (u--end) (vector 11 0 0 (ParserC-45RuleC-45Source-atEnd arg-1) (vector 0 (vector (vector 0 arg-0 u--start u--end) (vector 0 arg-0 u--start u--nameEnd) u--n u--ty))))))))))))))))))) +(define TTImpC-45Parser-totalityOpt (lambda () (vector 12 1 1 (vector 10 0 (ParserC-45RuleC-45Source-keyword "partial") (lambda () (vector 0 2))) (lambda () (vector 12 1 1 (vector 10 0 (ParserC-45RuleC-45Source-keyword "total") (lambda () (vector 0 0))) (lambda () (vector 10 0 (ParserC-45RuleC-45Source-keyword "covering") (lambda () (vector 0 1))))))))) +(define TTImpC-45Parser-topDecl (lambda (arg-0 arg-1) (vector 12 1 1 (vector 9 0 1 (LibrariesC-45TextC-45Parser-location) (lambda (u--start) (vector 9 0 1 (TTImpC-45Parser-visibility) (lambda (u--vis) (vector 8 0 (TTImpC-45Parser-dataDecl arg-0 arg-1) (lambda () (lambda (u--dat) (vector 9 0 0 (LibrariesC-45TextC-45Parser-location) (lambda (u--end) (vector 0 (vector 1 (vector 0 arg-0 u--start u--end) u--vis u--dat))))))))))) (lambda () (vector 12 1 1 (vector 9 0 1 (LibrariesC-45TextC-45Parser-location) (lambda (u--start) (vector 8 1 (TTImpC-45Parser-namespaceDecl) (lambda () (lambda (u--ns) (vector 8 0 (ParserC-45RuleC-45Source-nonEmptyBlock (lambda (eta-0) (TTImpC-45Parser-topDecl arg-0 eta-0))) (lambda () (lambda (u--ds) (vector 9 0 0 (LibrariesC-45TextC-45Parser-location) (lambda (u--end) (vector 0 (vector 5 (vector 0 arg-0 u--start u--end) u--ns (DataC-45List1-forget u--ds))))))))))))) (lambda () (vector 12 1 1 (vector 9 0 1 (LibrariesC-45TextC-45Parser-location) (lambda (u--start) (vector 9 0 1 (LibrariesC-45TextC-45Parser-many (TTImpC-45Parser-visOpt)) (lambda (u--visOpts) (vector 9 0 1 (TTImpC-45Parser-getVisibility '() u--visOpts) (lambda (u--vis) (let ((u--opts (DataC-45List-mapMaybe (lambda (eta-0) (TTImpC-45Parser-getRight eta-0)) u--visOpts))) (vector 9 0 1 (TTImpC-45Parser-multiplicity) (lambda (u--m) (vector 9 0 1 (TTImpC-45Parser-getMult u--m) (lambda (u--rig) (vector 8 0 (TTImpC-45Parser-tyDecl arg-0 arg-1) (lambda () (lambda (u--claim) (vector 9 0 0 (LibrariesC-45TextC-45Parser-location) (lambda (u--end) (vector 0 (vector 0 (vector 0 arg-0 u--start u--end) u--rig u--vis u--opts u--claim)))))))))))))))))) (lambda () (vector 12 1 1 (TTImpC-45Parser-recordDecl arg-0 arg-1) (lambda () (vector 12 1 1 (TTImpC-45Parser-directive arg-0 arg-1) (lambda () (TTImpC-45Parser-definition arg-0 arg-1))))))))))))) +(define TTImpC-45Parser-simpleExpr (lambda (arg-0 arg-1) (vector 12 1 1 (TTImpC-45Parser-as arg-0 arg-1) (lambda () (vector 12 1 1 (TTImpC-45Parser-atom arg-0) (lambda () (vector 12 1 1 (TTImpC-45Parser-binder arg-0 arg-1) (lambda () (vector 12 1 1 (TTImpC-45Parser-rewrite_ arg-0 arg-1) (lambda () (vector 12 1 1 (TTImpC-45Parser-record_ arg-0 arg-1) (lambda () (vector 10 1 (ParserC-45RuleC-45Source-symbol "(") (lambda () (vector 8 1 (TTImpC-45Parser-expr arg-0 arg-1) (lambda () (lambda (u--e) (vector 10 0 (ParserC-45RuleC-45Source-symbol ")") (lambda () (vector 0 u--e)))))))))))))))))))) +(define TTImpC-45Parser-rewrite_ (lambda (arg-0 arg-1) (vector 9 0 1 (LibrariesC-45TextC-45Parser-location) (lambda (u--start) (vector 10 1 (ParserC-45RuleC-45Source-keyword "rewrite") (lambda () (vector 8 1 (TTImpC-45Parser-expr arg-0 arg-1) (lambda () (lambda (u--rule) (vector 10 1 (ParserC-45RuleC-45Source-keyword "in") (lambda () (vector 8 0 (TTImpC-45Parser-expr arg-0 arg-1) (lambda () (lambda (u--tm) (vector 9 0 0 (LibrariesC-45TextC-45Parser-location) (lambda (u--end) (vector 0 (vector 14 (vector 0 arg-0 u--start u--end) u--rule u--tm)))))))))))))))))) +(define TTImpC-45Parser-record_ (lambda (arg-0 arg-1) (vector 9 0 1 (LibrariesC-45TextC-45Parser-location) (lambda (u--start) (vector 10 1 (ParserC-45RuleC-45Source-keyword "record") (lambda () (vector 10 1 (ParserC-45RuleC-45Source-symbol "{") (lambda () (vector 11 0 1 (vector 6 ) (vector 8 1 (LibrariesC-45TextC-45Parser-sepBy1 1 (ParserC-45RuleC-45Source-symbol ",") (TTImpC-45Parser-field arg-0 arg-1)) (lambda () (lambda (u--fs) (vector 10 1 (ParserC-45RuleC-45Source-symbol "}") (lambda () (vector 8 0 (TTImpC-45Parser-expr arg-0 arg-1) (lambda () (lambda (u--sc) (vector 9 0 0 (LibrariesC-45TextC-45Parser-location) (lambda (u--end) (vector 0 (vector 7 (vector 0 arg-0 u--start u--end) (DataC-45List1-forget u--fs) u--sc))))))))))))))))))))) +(define TTImpC-45Parser-recordParam (lambda (arg-0 arg-1) (vector 12 1 1 (vector 10 1 (ParserC-45RuleC-45Source-symbol "(") (lambda () (vector 9 0 1 (LibrariesC-45TextC-45Parser-location) (lambda (u--start) (vector 8 1 (TTImpC-45Parser-pibindListName arg-0 u--start arg-1) (lambda () (lambda (u--params) (vector 10 0 (ParserC-45RuleC-45Source-symbol ")") (lambda () (vector 0 (PreludeC-45Types-u--map_Functor_List (lambda (lamc-0) (let ((e-2 (car lamc-0))) (let ((e-3 (cdr lamc-0))) (let ((e-6 (car e-3))) (let ((e-7 (cdr e-3))) (cons e-6 (cons e-2 (cons (vector 1 ) e-7)))))))) u--params))))))))))) (lambda () (vector 12 1 1 (vector 10 1 (ParserC-45RuleC-45Source-symbol "{") (lambda () (vector 11 0 1 (vector 6 ) (vector 9 0 1 (LibrariesC-45TextC-45Parser-location) (lambda (u--start) (vector 9 0 1 (vector 12 1 0 (vector 9 0 1 (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40C-40GrammarC-32C-36stateC-41C-32C-36tokC-41C-32C-36cC-41 0 (lambda (eta-0) (lambda (eta-1) eta-0)) (vector 0 (vector 2 ))) (lambda (u--f) (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40C-40GrammarC-32C-36stateC-41C-32C-36tokC-41C-32C-36cC-41 1 u--f (ParserC-45RuleC-45Source-keyword "auto")))) (lambda () (vector 12 1 0 (vector 10 1 (ParserC-45RuleC-45Source-keyword "default") (lambda () (vector 8 0 (TTImpC-45Parser-simpleExpr arg-0 arg-1) (lambda () (lambda (u--t) (vector 0 (vector 3 u--t))))))) (lambda () (vector 0 (vector 0 )))))) (lambda (u--info) (vector 8 1 (TTImpC-45Parser-pibindListName arg-0 u--start arg-1) (lambda () (lambda (u--params) (vector 10 0 (ParserC-45RuleC-45Source-symbol "}") (lambda () (vector 0 (PreludeC-45Types-u--map_Functor_List (lambda (lamc-0) (let ((e-2 (car lamc-0))) (let ((e-3 (cdr lamc-0))) (let ((e-6 (car e-3))) (let ((e-7 (cdr e-3))) (cons e-6 (cons e-2 (cons u--info e-7)))))))) u--params)))))))))))))) (lambda () (vector 9 0 1 (LibrariesC-45TextC-45Parser-location) (lambda (u--start) (vector 8 0 (ParserC-45RuleC-45Source-name) (lambda () (lambda (u--n) (vector 9 0 0 (LibrariesC-45TextC-45Parser-location) (lambda (u--end) (vector 0 (cons (cons u--n (cons (AlgebraC-45ZeroOneOmega-u--top_Top_ZeroOneOmega) (cons (vector 1 ) (vector 32 (vector 0 arg-0 u--start u--end) 0)))) '()))))))))))))))) +(define TTImpC-45Parser-recordDecl (lambda (arg-0 arg-1) (vector 9 0 1 (LibrariesC-45TextC-45Parser-location) (lambda (u--start) (vector 9 0 1 (TTImpC-45Parser-visibility) (lambda (u--vis) (vector 9 0 1 (LibrariesC-45TextC-45Parser-column) (lambda (u--col) (vector 10 1 (ParserC-45RuleC-45Source-keyword "record") (lambda () (vector 11 0 1 (vector 6 ) (vector 8 1 (ParserC-45RuleC-45Source-name) (lambda () (lambda (u--n) (vector 9 0 1 (LibrariesC-45TextC-45Parser-many (TTImpC-45Parser-recordParam arg-0 arg-1)) (lambda (u--paramss) (let ((u--params (PreludeC-45Interfaces-concat (cons (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-2 arg-3))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) u--paramss))) (vector 10 1 (ParserC-45RuleC-45Source-keyword "where") (lambda () (vector 10 1 (ParserC-45RuleC-45Source-exactIdent "constructor") (lambda () (vector 8 0 (ParserC-45RuleC-45Source-name) (lambda () (lambda (u--dc) (vector 9 0 0 (ParserC-45RuleC-45Source-blockAfter u--col (lambda (eta-0) (TTImpC-45Parser-fieldDecl arg-0 eta-0))) (lambda (u--flds) (vector 9 0 0 (LibrariesC-45TextC-45Parser-location) (lambda (u--end) (vector 0 (let ((u--fc (vector 0 arg-0 u--start u--end))) (vector 4 u--fc '() u--vis (vector u--fc u--n u--params u--dc (PreludeC-45Interfaces-concat (cons (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-2 arg-3))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) u--flds))))))))))))))))))))))))))))))))) +(define TTImpC-45Parser-prog (lambda (arg-0) (vector 8 0 (ParserC-45RuleC-45Source-nonEmptyBlock (lambda (eta-0) (TTImpC-45Parser-topDecl arg-0 eta-0))) (lambda () (lambda (u--ds) (vector 0 (TTImpC-45Parser-collectDefs (DataC-45List1-forget u--ds)))))))) +(define TTImpC-45Parser-pibindListName (lambda (arg-0 arg-1 arg-2) (vector 12 1 1 (vector 9 0 1 (TTImpC-45Parser-multiplicity) (lambda (u--rigc) (vector 8 1 (LibrariesC-45TextC-45Parser-sepBy1 1 (ParserC-45RuleC-45Source-symbol ",") (ParserC-45RuleC-45Source-unqualifiedName)) (lambda () (lambda (u--ns) (vector 10 1 (ParserC-45RuleC-45Source-symbol ":") (lambda () (vector 8 0 (TTImpC-45Parser-expr arg-0 arg-2) (lambda () (lambda (u--ty) (vector 11 0 0 (ParserC-45RuleC-45Source-atEnd arg-2) (vector 9 0 0 (TTImpC-45Parser-getMult u--rigc) (lambda (u--rig) (vector 0 (PreludeC-45Types-u--map_Functor_List (lambda (u--n) (cons u--rig (cons (vector 1 u--n) u--ty))) (DataC-45List1-forget u--ns)))))))))))))))) (lambda () (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40C-40GrammarC-32C-36stateC-41C-32C-36tokC-41C-32C-36cC-41 1 eta-2 eta-3))))) (lambda (eta-0) (DataC-45List1-forget eta-0)) (LibrariesC-45TextC-45Parser-sepBy1 1 (ParserC-45RuleC-45Source-symbol ",") (vector 9 0 1 (TTImpC-45Parser-multiplicity) (lambda (u--rigc) (vector 8 1 (ParserC-45RuleC-45Source-name) (lambda () (lambda (u--n) (vector 10 1 (ParserC-45RuleC-45Source-symbol ":") (lambda () (vector 8 0 (TTImpC-45Parser-expr arg-0 arg-2) (lambda () (lambda (u--ty) (vector 9 0 0 (TTImpC-45Parser-getMult u--rigc) (lambda (u--rig) (vector 0 (cons u--rig (cons u--n u--ty))))))))))))))))))))) +(define TTImpC-45Parser-pibindList (lambda (arg-0 arg-1 arg-2) (vector 8 0 (TTImpC-45Parser-pibindListName arg-0 arg-1 arg-2) (lambda () (lambda (u--params) (vector 0 (PreludeC-45Types-u--map_Functor_List (lambda (lamc-0) (let ((e-2 (car lamc-0))) (let ((e-3 (cdr lamc-0))) (let ((e-6 (car e-3))) (let ((e-7 (cdr e-3))) (cons e-2 (cons (box e-6) e-7))))))) u--params))))))) +(define TTImpC-45Parser-pibindAll (lambda (arg-0 arg-1 arg-2 arg-3) (if (null? arg-2) arg-3 (let ((e-2 (car arg-2))) (let ((e-3 (cdr arg-2))) (let ((e-6 (car e-2))) (let ((e-7 (cdr e-2))) (let ((e-10 (car e-7))) (let ((e-11 (cdr e-7))) (vector 1 arg-0 e-6 arg-1 e-10 e-11 (TTImpC-45Parser-pibindAll arg-0 arg-1 e-3 arg-3))))))))))) +(define TTImpC-45Parser-parseRHS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (vector 12 1 1 (vector 10 1 (ParserC-45RuleC-45Source-symbol "=") (lambda () (vector 11 0 1 (vector 6 ) (vector 8 0 (TTImpC-45Parser-expr arg-1 arg-2) (lambda () (lambda (u--rhs) (vector 11 0 0 (ParserC-45RuleC-45Source-atEnd arg-2) (vector 9 0 0 (LibrariesC-45TextC-45Parser-location) (lambda (u--end) (let ((u--fc (vector 0 arg-1 arg-3 u--end))) (vector 9 0 0 (TTImpC-45Parser-n--10123-7016-u--getFn arg-4 arg-3 arg-2 arg-1 arg-0 arg-4) (lambda (bind-0) (vector 0 (cons bind-0 (vector 0 u--fc arg-4 u--rhs))))))))))))))) (lambda () (vector 12 1 1 (vector 10 1 (ParserC-45RuleC-45Source-keyword "with") (lambda () (vector 9 0 1 (LibrariesC-45TextC-45Parser-location) (lambda (u--wstart) (vector 10 1 (ParserC-45RuleC-45Source-symbol "(") (lambda () (vector 8 1 (TTImpC-45Parser-expr arg-1 arg-2) (lambda () (lambda (u--wval) (vector 10 1 (ParserC-45RuleC-45Source-symbol ")") (lambda () (vector 9 0 1 (LibrariesC-45TextC-45Parser-optional 1 (vector 9 1 1 (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40C-40GrammarC-32C-36stateC-41C-32C-36tokC-41C-32C-36cC-41 1 (lambda (eta-0) (lambda (eta-1) eta-1)) (ParserC-45RuleC-45Source-keyword "proof")) (lambda (u--f) (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40C-40GrammarC-32C-36stateC-41C-32C-36tokC-41C-32C-36cC-41 1 u--f (ParserC-45RuleC-45Source-name))))) (lambda (u--prf) (vector 8 0 (ParserC-45RuleC-45Source-nonEmptyBlock (lambda (eta-0) (TTImpC-45Parser-clause (+ 1 arg-0) arg-1 eta-0))) (lambda () (lambda (u--ws) (vector 9 0 0 (LibrariesC-45TextC-45Parser-location) (lambda (u--end) (let ((u--fc (vector 0 arg-1 arg-3 u--end))) (vector 9 0 0 (TTImpC-45Parser-n--10123-7016-u--getFn arg-4 arg-3 arg-2 arg-1 arg-0 arg-4) (lambda (bind-0) (vector 0 (cons bind-0 (vector 1 u--fc arg-4 u--wval u--prf '() (DataC-45List1-forget (DataC-45List1-u--map_Functor_List1 (lambda (eta-0) (Builtin-snd eta-0)) u--ws)))))))))))))))))))))))))) (lambda () (vector 10 0 (ParserC-45RuleC-45Source-keyword "impossible") (lambda () (vector 11 0 0 (ParserC-45RuleC-45Source-atEnd arg-2) (vector 9 0 0 (LibrariesC-45TextC-45Parser-location) (lambda (u--end) (let ((u--fc (vector 0 arg-1 arg-3 u--end))) (vector 9 0 0 (TTImpC-45Parser-n--10123-7016-u--getFn arg-4 arg-3 arg-2 arg-1 arg-0 arg-4) (lambda (bind-0) (vector 0 (cons bind-0 (vector 2 u--fc arg-4))))))))))))))))) +(define TTImpC-45Parser-namespaceDecl (lambda () (vector 10 1 (ParserC-45RuleC-45Source-keyword "namespace") (lambda () (vector 11 0 1 (vector 6 ) (ParserC-45RuleC-45Source-namespaceId)))))) +(define TTImpC-45Parser-multiplicity (lambda () (vector 12 1 0 (vector 8 0 (ParserC-45RuleC-45Source-intLit) (lambda () (lambda (u--c) (vector 0 (box u--c))))) (lambda () (vector 0 '()))))) +(define TTImpC-45Parser-logLevel (lambda () (vector 12 1 1 (PreludeC-45Interfaces-C-60C-36 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40C-40GrammarC-32C-36stateC-41C-32C-36tokC-41C-32C-36cC-41 1 eta-2 eta-3))))) '() (ParserC-45RuleC-45Source-exactIdent "off")) (lambda () (vector 9 0 1 (LibrariesC-45TextC-45Parser-option 1 '() (vector 9 1 0 (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40C-40GrammarC-32C-36stateC-41C-32C-36tokC-41C-32C-36cC-41 1 eta-2 eta-3))))) (lambda (eta-0) (lambda (eta-1) (cons eta-0 eta-1))) (ParserC-45RuleC-45Source-unqualifiedName)) (lambda (u--f) (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40C-40GrammarC-32C-36stateC-41C-32C-36tokC-41C-32C-36cC-41 0 u--f (LibrariesC-45TextC-45Parser-many (ParserC-45RuleC-45Source-aDotIdent)))))) (lambda (u--topic) (vector 8 0 (ParserC-45RuleC-45Source-intLit) (lambda () (lambda (u--lvl) (vector 0 (box (cons u--topic (PreludeC-45Types-u--fromInteger_Num_Nat u--lvl))))))))))))) +(define TTImpC-45Parser-let_ (lambda (arg-0 arg-1) (vector 12 1 1 (vector 9 0 1 (LibrariesC-45TextC-45Parser-location) (lambda (u--start) (vector 10 1 (ParserC-45RuleC-45Source-keyword "let") (lambda () (vector 9 0 1 (TTImpC-45Parser-multiplicity) (lambda (u--rigc) (vector 9 0 1 (TTImpC-45Parser-getMult u--rigc) (lambda (u--rig) (vector 8 1 (vector 13 (ParserC-45RuleC-45Source-name)) (lambda () (lambda (u--n) (vector 10 1 (ParserC-45RuleC-45Source-symbol "=") (lambda () (vector 11 0 1 (vector 6 ) (vector 8 1 (TTImpC-45Parser-expr arg-0 arg-1) (lambda () (lambda (u--val) (vector 11 0 1 (ParserC-45RuleC-45Source-continue arg-1) (vector 10 1 (ParserC-45RuleC-45Source-keyword "in") (lambda () (vector 8 0 (TTImpC-45Parser-typeExpr arg-0 arg-1) (lambda () (lambda (u--scope) (vector 9 0 0 (LibrariesC-45TextC-45Parser-location) (lambda (u--end) (vector 0 (let ((u--fc (vector 0 arg-0 u--start u--end))) (vector 3 u--fc (CoreC-45FC-boundToFC arg-0 u--n) u--rig (let ((e-1 (vector-ref u--n 0))) e-1) (vector 32 u--fc 0) u--val u--scope)))))))))))))))))))))))))))) (lambda () (vector 9 0 1 (LibrariesC-45TextC-45Parser-location) (lambda (u--start) (vector 10 1 (ParserC-45RuleC-45Source-keyword "let") (lambda () (vector 9 0 1 (ParserC-45RuleC-45Source-block (lambda (eta-0) (TTImpC-45Parser-topDecl arg-0 eta-0))) (lambda (u--ds) (vector 11 0 1 (ParserC-45RuleC-45Source-continue arg-1) (vector 10 1 (ParserC-45RuleC-45Source-keyword "in") (lambda () (vector 8 0 (TTImpC-45Parser-typeExpr arg-0 arg-1) (lambda () (lambda (u--scope) (vector 9 0 0 (LibrariesC-45TextC-45Parser-location) (lambda (u--end) (vector 0 (vector 5 (vector 0 arg-0 u--start u--end) (TTImpC-45Parser-collectDefs u--ds) u--scope)))))))))))))))))))) +(define TTImpC-45Parser-lazy (lambda (arg-0 arg-1) (vector 12 1 1 (vector 9 0 1 (LibrariesC-45TextC-45Parser-location) (lambda (u--start) (vector 10 1 (ParserC-45RuleC-45Source-exactIdent "Lazy") (lambda () (vector 8 0 (TTImpC-45Parser-simpleExpr arg-0 arg-1) (lambda () (lambda (u--tm) (vector 9 0 0 (LibrariesC-45TextC-45Parser-location) (lambda (u--end) (vector 0 (vector 20 (vector 0 arg-0 u--start u--end) 1 u--tm))))))))))) (lambda () (vector 12 1 1 (vector 9 0 1 (LibrariesC-45TextC-45Parser-location) (lambda (u--start) (vector 10 1 (ParserC-45RuleC-45Source-exactIdent "Inf") (lambda () (vector 8 0 (TTImpC-45Parser-simpleExpr arg-0 arg-1) (lambda () (lambda (u--tm) (vector 9 0 0 (LibrariesC-45TextC-45Parser-location) (lambda (u--end) (vector 0 (vector 20 (vector 0 arg-0 u--start u--end) 0 u--tm))))))))))) (lambda () (vector 12 1 1 (vector 9 0 1 (LibrariesC-45TextC-45Parser-location) (lambda (u--start) (vector 10 1 (ParserC-45RuleC-45Source-exactIdent "Delay") (lambda () (vector 8 0 (TTImpC-45Parser-simpleExpr arg-0 arg-1) (lambda () (lambda (u--tm) (vector 9 0 0 (LibrariesC-45TextC-45Parser-location) (lambda (u--end) (vector 0 (vector 21 (vector 0 arg-0 u--start u--end) u--tm))))))))))) (lambda () (vector 9 0 1 (LibrariesC-45TextC-45Parser-location) (lambda (u--start) (vector 10 1 (ParserC-45RuleC-45Source-exactIdent "Force") (lambda () (vector 8 0 (TTImpC-45Parser-simpleExpr arg-0 arg-1) (lambda () (lambda (u--tm) (vector 9 0 0 (LibrariesC-45TextC-45Parser-location) (lambda (u--end) (vector 0 (vector 22 (vector 0 arg-0 u--start u--end) u--tm))))))))))))))))))) +(define TTImpC-45Parser-lam (lambda (arg-0 arg-1) (vector 9 0 1 (LibrariesC-45TextC-45Parser-location) (lambda (u--start) (vector 10 1 (ParserC-45RuleC-45Source-symbol "\\") (lambda () (vector 8 1 (TTImpC-45Parser-bindList arg-0 u--start arg-1) (lambda () (lambda (u--binders) (vector 10 1 (ParserC-45RuleC-45Source-symbol "=>") (lambda () (vector 11 0 1 (ParserC-45RuleC-45Source-mustContinue arg-1 '()) (vector 8 0 (TTImpC-45Parser-expr arg-0 arg-1) (lambda () (lambda (u--scope) (vector 9 0 0 (LibrariesC-45TextC-45Parser-location) (lambda (u--end) (vector 0 (TTImpC-45Parser-n--7733-5840-u--bindAll arg-1 arg-0 (vector 0 arg-0 u--start u--end) u--binders u--scope))))))))))))))))))) +(define TTImpC-45Parser-implicitPi (lambda (arg-0 arg-1) (vector 9 0 1 (LibrariesC-45TextC-45Parser-location) (lambda (u--start) (vector 10 1 (ParserC-45RuleC-45Source-symbol "{") (lambda () (vector 8 1 (TTImpC-45Parser-pibindList arg-0 u--start arg-1) (lambda () (lambda (u--binders) (vector 10 1 (ParserC-45RuleC-45Source-symbol "}") (lambda () (vector 10 1 (ParserC-45RuleC-45Source-symbol "->") (lambda () (vector 8 0 (TTImpC-45Parser-typeExpr arg-0 arg-1) (lambda () (lambda (u--scope) (vector 9 0 0 (LibrariesC-45TextC-45Parser-location) (lambda (u--end) (vector 0 (TTImpC-45Parser-pibindAll (vector 0 arg-0 u--start u--end) (vector 0 ) u--binders u--scope)))))))))))))))))))) +(define TTImpC-45Parser-implicitArg (lambda (arg-0 arg-1) (vector 12 1 1 (vector 9 0 1 (LibrariesC-45TextC-45Parser-location) (lambda (u--start) (vector 10 1 (ParserC-45RuleC-45Source-symbol "{") (lambda () (vector 8 1 (ParserC-45RuleC-45Source-unqualifiedName) (lambda () (lambda (u--x) (vector 12 1 1 (vector 10 1 (ParserC-45RuleC-45Source-symbol "=") (lambda () (vector 11 0 1 (vector 6 ) (vector 8 1 (TTImpC-45Parser-expr arg-0 arg-1) (lambda () (lambda (u--tm) (vector 10 0 (ParserC-45RuleC-45Source-symbol "}") (lambda () (vector 0 (cons (box (vector 1 u--x)) u--tm)))))))))) (lambda () (vector 10 0 (ParserC-45RuleC-45Source-symbol "}") (lambda () (vector 9 0 0 (LibrariesC-45TextC-45Parser-location) (lambda (u--end) (vector 0 (cons (box (vector 1 u--x)) (vector 0 (vector 0 arg-0 u--start u--end) (vector 1 u--x))))))))))))))))) (lambda () (vector 10 1 (ParserC-45RuleC-45Source-symbol "@{") (lambda () (vector 11 0 1 (vector 6 ) (vector 8 1 (TTImpC-45Parser-expr arg-0 arg-1) (lambda () (lambda (u--tm) (vector 10 0 (ParserC-45RuleC-45Source-symbol "}") (lambda () (vector 0 (cons '() u--tm)))))))))))))) +(define TTImpC-45Parser-getVisibility (lambda (arg-0 arg-1) (if (null? arg-0) (if (null? arg-1) (vector 0 0) (let ((e-8 (car arg-1))) (let ((e-9 (cdr arg-1))) (case (vector-ref e-8 0) ((0) (let ((e-12 (vector-ref e-8 1))) (TTImpC-45Parser-getVisibility (box e-12) e-9)))(else (let ((e-2 (cdr arg-1))) (TTImpC-45Parser-getVisibility arg-0 e-2))))))) (let ((e-5 (unbox arg-0))) (if (null? arg-1) (vector 0 e-5) (let ((e-15 (car arg-1))) (case (vector-ref e-15 0) ((0) (vector 4 '() 1 "Multiple visibility modifiers"))(else (let ((e-2 (cdr arg-1))) (TTImpC-45Parser-getVisibility arg-0 e-2)))))))))) +(define TTImpC-45Parser-getRight (lambda (arg-2) (case (vector-ref arg-2 0) ((0) '()) (else (let ((e-5 (vector-ref arg-2 1))) (box e-5)))))) +(define TTImpC-45Parser-getMult (lambda (arg-0) (if (null? arg-0) (vector 0 (AlgebraC-45ZeroOneOmega-u--top_Top_ZeroOneOmega)) (let ((e-1 (unbox arg-0))) (cond ((equal? e-1 0) (vector 0 (AlgebraC-45Semiring-erased (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))))) ((equal? e-1 1) (vector 0 (AlgebraC-45Semiring-linear (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)))))(else (vector 4 '() 1 "Invalid multiplicity (must be 0 or 1)"))))))) +(define TTImpC-45Parser-forall_ (lambda (arg-0 arg-1) (vector 9 0 1 (LibrariesC-45TextC-45Parser-location) (lambda (u--start) (vector 10 1 (ParserC-45RuleC-45Source-keyword "forall") (lambda () (vector 11 0 1 (vector 6 ) (vector 9 0 1 (LibrariesC-45TextC-45Parser-location) (lambda (u--nstart) (vector 8 1 (LibrariesC-45TextC-45Parser-sepBy1 1 (ParserC-45RuleC-45Source-symbol ",") (ParserC-45RuleC-45Source-unqualifiedName)) (lambda () (lambda (u--ns) (vector 9 0 1 (LibrariesC-45TextC-45Parser-location) (lambda (u--nend) (let ((u--nfc (vector 0 arg-0 u--nstart u--nend))) (let ((u--binders (PreludeC-45Types-u--map_Functor_List (lambda (u--n) (cons (AlgebraC-45Semiring-erased (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))) (cons (box (vector 1 u--n)) (vector 32 u--nfc 0)))) (DataC-45List1-forget u--ns)))) (vector 10 1 (ParserC-45RuleC-45Source-symbol ".") (lambda () (vector 8 0 (TTImpC-45Parser-typeExpr arg-0 arg-1) (lambda () (lambda (u--scope) (vector 9 0 0 (LibrariesC-45TextC-45Parser-location) (lambda (u--end) (vector 0 (TTImpC-45Parser-pibindAll (vector 0 arg-0 u--start u--end) (vector 0 ) u--binders u--scope))))))))))))))))))))))))) +(define TTImpC-45Parser-fnOpt (lambda () (vector 8 0 (TTImpC-45Parser-totalityOpt) (lambda () (lambda (u--x) (vector 0 (vector 7 u--x))))))) +(define TTImpC-45Parser-fnDirectOpt (lambda () (vector 12 1 1 (vector 10 0 (ParserC-45RuleC-45Source-pragma "hint") (lambda () (vector 0 (vector 2 1)))) (lambda () (vector 12 1 1 (vector 10 0 (ParserC-45RuleC-45Source-pragma "chaser") (lambda () (vector 0 (vector 2 0)))) (lambda () (vector 12 1 1 (vector 10 0 (ParserC-45RuleC-45Source-pragma "globalhint") (lambda () (vector 0 (vector 3 1)))) (lambda () (vector 12 1 1 (vector 10 0 (ParserC-45RuleC-45Source-pragma "defaulthint") (lambda () (vector 0 (vector 3 0)))) (lambda () (vector 12 1 1 (vector 10 0 (ParserC-45RuleC-45Source-pragma "inline") (lambda () (vector 0 (vector 0 )))) (lambda () (vector 10 0 (ParserC-45RuleC-45Source-pragma "extern") (lambda () (vector 0 (vector 4 )))))))))))))))) +(define TTImpC-45Parser-fieldDecl (lambda (arg-0 arg-1) (vector 12 1 1 (vector 10 1 (ParserC-45RuleC-45Source-symbol "{") (lambda () (vector 11 0 1 (vector 6 ) (vector 8 1 (TTImpC-45Parser-n--11129-8027-u--fieldBody arg-1 arg-0 (vector 0 )) (lambda () (lambda (u--fs) (vector 10 0 (ParserC-45RuleC-45Source-symbol "}") (lambda () (vector 11 0 0 (ParserC-45RuleC-45Source-atEnd arg-1) (vector 0 u--fs)))))))))) (lambda () (vector 8 0 (TTImpC-45Parser-n--11129-8027-u--fieldBody arg-1 arg-0 (vector 1 )) (lambda () (lambda (u--fs) (vector 11 0 0 (ParserC-45RuleC-45Source-atEnd arg-1) (vector 0 u--fs))))))))) +(define TTImpC-45Parser-field (lambda (arg-0 arg-1) (vector 8 1 (LibrariesC-45TextC-45Parser-sepBy1 1 (ParserC-45RuleC-45Source-symbol "->") (ParserC-45RuleC-45Source-unqualifiedName)) (lambda () (lambda (u--path) (vector 8 1 (vector 12 1 1 (vector 10 0 (ParserC-45RuleC-45Source-symbol "=") (lambda () (vector 0 (lambda (eta-0) (lambda (eta-1) (vector 0 eta-0 eta-1)))))) (lambda () (vector 10 0 (ParserC-45RuleC-45Source-symbol "$=") (lambda () (vector 0 (lambda (eta-0) (lambda (eta-1) (vector 1 eta-0 eta-1)))))))) (lambda () (lambda (u--upd) (vector 8 0 (TTImpC-45Parser-appExpr arg-0 arg-1) (lambda () (lambda (u--val) (vector 0 ((u--upd (DataC-45List1-forget u--path)) u--val))))))))))))) (define TTImpC-45Parser-expr (lambda (ext-0 ext-1) (TTImpC-45Parser-typeExpr ext-0 ext-1))) -(define TTImpC-45Parser-explicitPi (lambda (arg-0 arg-1) (vector 9 1 0 (ParserC-45RuleC-45Common-location (vector "Parser.Lexer.Source.Token" )) (lambda (u--start) (vector 10 0 (ParserC-45RuleC-45Source-symbol "(") (lambda () (vector 8 0 (TTImpC-45Parser-pibindList arg-0 u--start arg-1) (lambda () (lambda (u--binders) (vector 10 0 (ParserC-45RuleC-45Source-symbol ")") (lambda () (vector 8 0 (TTImpC-45Parser-bindSymbol) (lambda () (lambda (u--exp) (vector 8 1 (TTImpC-45Parser-typeExpr arg-0 arg-1) (lambda () (lambda (u--scope) (vector 9 1 1 (ParserC-45RuleC-45Common-location (vector "Parser.Lexer.Source.Token" )) (lambda (u--end) (vector 0 (TTImpC-45Parser-pibindAll (vector 0 arg-0 u--start u--end) u--exp u--binders u--scope))))))))))))))))))))) -(define TTImpC-45Parser-directive (lambda (arg-0 arg-1) (vector 12 (PreludeC-45Basics-C-124C-124 0 (lambda () 0)) (PreludeC-45Basics-C-124C-124 (PreludeC-45Basics-C-124C-124 0 (lambda () 0)) (lambda () 1)) (vector 10 0 (ParserC-45RuleC-45Source-pragma "logging") (lambda () (vector 11 1 0 (vector 6 ) (vector 8 1 (TTImpC-45Parser-logLevel) (lambda () (lambda (u--lvl) (vector 11 1 1 (ParserC-45RuleC-45Source-atEnd arg-1) (vector 0 (vector 9 u--lvl))))))))) (lambda () (let ((sc0 (PreludeC-45Basics-C-124C-124 0 (lambda () 0)))) (cond ((equal? sc0 1) (vector 9 1 1 (vector 13 (vector 10 0 (ParserC-45RuleC-45Source-pragma "builtin") (lambda () (vector 11 1 0 (vector 6 ) (vector 8 0 (TTImpC-45Parser-builtinType) (lambda () (lambda (u--t) (vector 8 1 (ParserC-45RuleC-45Source-name) (lambda () (lambda (u--n) (vector 0 (cons u--t u--n)))))))))))) (lambda () (lambda (u--b) (vector 9 1 1 (vector 0 (let ((sc1 u--b)) (let ((e-1 (vector-ref sc1 1))) e-1))) (lambda (_-0) (let ((sc1 _-0)) (let ((e-2 (car sc1))) (let ((e-3 (cdr sc1))) (vector 0 (vector 10 (CoreC-45FC-boundToFC arg-0 u--b) e-2 e-3))))))))))) (else (vector 8 1 (vector 13 (vector 10 0 (ParserC-45RuleC-45Source-pragma "builtin") (lambda () (vector 11 1 0 (vector 6 ) (vector 8 0 (TTImpC-45Parser-builtinType) (lambda () (lambda (u--t) (vector 8 1 (ParserC-45RuleC-45Source-name) (lambda () (lambda (u--n) (vector 0 (cons u--t u--n)))))))))))) (lambda () (lambda (u--b) (vector 9 1 1 (vector 0 (let ((sc1 u--b)) (let ((e-1 (vector-ref sc1 1))) e-1))) (lambda (_-0) (let ((sc1 _-0)) (let ((e-2 (car sc1))) (let ((e-3 (cdr sc1))) (vector 0 (vector 10 (CoreC-45FC-boundToFC arg-0 u--b) e-2 e-3))))))))))))))))) -(define TTImpC-45Parser-definition (lambda (arg-0 arg-1) (vector 9 1 0 (ParserC-45RuleC-45Common-location (vector "Parser.Lexer.Source.Token" )) (lambda (u--start) (vector 8 1 (TTImpC-45Parser-clause 0 arg-0 arg-1) (lambda () (lambda (u--nd) (vector 9 1 1 (ParserC-45RuleC-45Common-location (vector "Parser.Lexer.Source.Token" )) (lambda (u--end) (vector 0 (vector 2 (vector 0 arg-0 u--start u--end) (Builtin-fst u--nd) (cons (Builtin-snd u--nd) '())))))))))))) -(define TTImpC-45Parser-dataOpt (lambda () (vector 12 0 (PreludeC-45Basics-C-38C-38 0 (lambda () 0)) (vector 10 1 (ParserC-45RuleC-45Source-exactIdent "noHints") (lambda () (vector 0 (vector 1 )))) (lambda () (vector 12 0 0 (vector 10 1 (ParserC-45RuleC-45Source-exactIdent "uniqueSearch") (lambda () (vector 0 (vector 2 )))) (lambda () (vector 10 (PreludeC-45Basics-C-124C-124 0 (lambda () 1)) (ParserC-45RuleC-45Source-exactIdent "search") (lambda () (vector 8 1 (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 0 eta-2 eta-3))))) (lambda (eta-0) (DataC-45List1-forget eta-0)) (LibrariesC-45TextC-45Parser-some (ParserC-45RuleC-45Source-name))) (lambda () (lambda (u--ns) (vector 0 (vector 0 u--ns))))))))))))) -(define TTImpC-45Parser-dataDecl (lambda (arg-0 arg-1) (vector 9 1 0 (ParserC-45RuleC-45Common-location (vector "Parser.Lexer.Source.Token" )) (lambda (u--start) (vector 10 (PreludeC-45Basics-C-124C-124 0 (lambda () 0)) (ParserC-45RuleC-45Source-keyword "data") (lambda () (vector 8 0 (ParserC-45RuleC-45Source-name) (lambda () (lambda (u--n) (vector 10 0 (ParserC-45RuleC-45Source-symbol ":") (lambda () (vector 8 0 (TTImpC-45Parser-expr arg-0 arg-1) (lambda () (lambda (u--ty) (vector 10 1 (ParserC-45RuleC-45Source-keyword "where") (lambda () (vector 9 1 1 (LibrariesC-45TextC-45Parser-option (PreludeC-45Basics-C-124C-124 0 (lambda () 0)) '() (vector 10 0 (ParserC-45RuleC-45Source-symbol "[") (lambda () (vector 8 0 (LibrariesC-45TextC-45Parser-sepBy1 0 (ParserC-45RuleC-45Source-symbol ",") (TTImpC-45Parser-dataOpt)) (lambda () (lambda (u--dopts) (vector 10 1 (ParserC-45RuleC-45Source-symbol "]") (lambda () (vector 0 (DataC-45List1-forget u--dopts)))))))))) (lambda (u--opts) (vector 9 1 1 (ParserC-45RuleC-45Source-block (lambda (eta-0) (TTImpC-45Parser-tyDecl arg-0 eta-0))) (lambda (u--cs) (vector 9 1 1 (ParserC-45RuleC-45Common-location (vector "Parser.Lexer.Source.Token" )) (lambda (u--end) (vector 0 (vector 0 (vector 0 arg-0 u--start u--end) u--n u--ty u--opts u--cs)))))))))))))))))))))))) -(define TTImpC-45Parser-command (lambda () (vector 12 (PreludeC-45Basics-C-124C-124 0 (lambda () 0)) (PreludeC-45Basics-C-38C-38 (PreludeC-45Basics-C-124C-124 0 (lambda () 0)) (lambda () (PreludeC-45Basics-C-38C-38 (PreludeC-45Basics-C-124C-124 0 (lambda () 0)) (lambda () (PreludeC-45Basics-C-38C-38 (PreludeC-45Basics-C-124C-124 0 (lambda () 0)) (lambda () (PreludeC-45Basics-C-38C-38 (PreludeC-45Basics-C-124C-124 0 (lambda () 0)) (lambda () (PreludeC-45Basics-C-38C-38 (PreludeC-45Basics-C-124C-124 0 (lambda () 0)) (lambda () (PreludeC-45Basics-C-38C-38 (PreludeC-45Basics-C-124C-124 0 (lambda () 0)) (lambda () (PreludeC-45Basics-C-38C-38 (PreludeC-45Basics-C-124C-124 0 (lambda () 0)) (lambda () 0)))))))))))))) (vector 10 0 (ParserC-45RuleC-45Source-symbol ":") (lambda () (vector 10 0 (ParserC-45RuleC-45Source-exactIdent "t") (lambda () (vector 8 1 (TTImpC-45Parser-expr "(repl)" (ParserC-45RuleC-45Source-init)) (lambda () (lambda (u--tm) (vector 0 (vector 1 u--tm))))))))) (lambda () (vector 12 (PreludeC-45Basics-C-124C-124 0 (lambda () 0)) (PreludeC-45Basics-C-38C-38 (PreludeC-45Basics-C-124C-124 0 (lambda () 0)) (lambda () (PreludeC-45Basics-C-38C-38 (PreludeC-45Basics-C-124C-124 0 (lambda () 0)) (lambda () (PreludeC-45Basics-C-38C-38 (PreludeC-45Basics-C-124C-124 0 (lambda () 0)) (lambda () (PreludeC-45Basics-C-38C-38 (PreludeC-45Basics-C-124C-124 0 (lambda () 0)) (lambda () (PreludeC-45Basics-C-38C-38 (PreludeC-45Basics-C-124C-124 0 (lambda () 0)) (lambda () (PreludeC-45Basics-C-38C-38 (PreludeC-45Basics-C-124C-124 0 (lambda () 0)) (lambda () 0)))))))))))) (vector 10 0 (ParserC-45RuleC-45Source-symbol ":") (lambda () (vector 10 (PreludeC-45Basics-C-124C-124 0 (lambda () 1)) (ParserC-45RuleC-45Source-exactIdent "s") (lambda () (vector 8 1 (ParserC-45RuleC-45Source-name) (lambda () (lambda (u--n) (vector 0 (vector 2 u--n))))))))) (lambda () (vector 12 (PreludeC-45Basics-C-124C-124 0 (lambda () 0)) (PreludeC-45Basics-C-38C-38 (PreludeC-45Basics-C-124C-124 0 (lambda () 0)) (lambda () (PreludeC-45Basics-C-38C-38 (PreludeC-45Basics-C-124C-124 0 (lambda () 0)) (lambda () (PreludeC-45Basics-C-38C-38 (PreludeC-45Basics-C-124C-124 0 (lambda () 0)) (lambda () (PreludeC-45Basics-C-38C-38 (PreludeC-45Basics-C-124C-124 0 (lambda () 0)) (lambda () (PreludeC-45Basics-C-38C-38 (PreludeC-45Basics-C-124C-124 0 (lambda () 0)) (lambda () 0)))))))))) (vector 10 0 (ParserC-45RuleC-45Source-symbol ":") (lambda () (vector 10 (PreludeC-45Basics-C-124C-124 0 (lambda () 1)) (ParserC-45RuleC-45Source-exactIdent "es") (lambda () (vector 8 1 (ParserC-45RuleC-45Source-name) (lambda () (lambda (u--n) (vector 0 (vector 3 u--n))))))))) (lambda () (vector 12 (PreludeC-45Basics-C-124C-124 0 (lambda () 0)) (PreludeC-45Basics-C-38C-38 (PreludeC-45Basics-C-124C-124 0 (lambda () 0)) (lambda () (PreludeC-45Basics-C-38C-38 (PreludeC-45Basics-C-124C-124 0 (lambda () 0)) (lambda () (PreludeC-45Basics-C-38C-38 (PreludeC-45Basics-C-124C-124 0 (lambda () 0)) (lambda () (PreludeC-45Basics-C-38C-38 (PreludeC-45Basics-C-124C-124 0 (lambda () 0)) (lambda () 0)))))))) (vector 10 0 (ParserC-45RuleC-45Source-symbol ":") (lambda () (vector 10 (PreludeC-45Basics-C-124C-124 0 (lambda () 0)) (ParserC-45RuleC-45Source-exactIdent "gd") (lambda () (vector 8 0 (ParserC-45RuleC-45Source-intLit) (lambda () (lambda (u--l) (vector 8 1 (ParserC-45RuleC-45Source-name) (lambda () (lambda (u--n) (vector 0 (vector 4 (blodwen-toSignedInt u--l 63) u--n)))))))))))) (lambda () (vector 12 (PreludeC-45Basics-C-124C-124 0 (lambda () 0)) (PreludeC-45Basics-C-38C-38 (PreludeC-45Basics-C-124C-124 0 (lambda () 0)) (lambda () (PreludeC-45Basics-C-38C-38 (PreludeC-45Basics-C-124C-124 0 (lambda () 0)) (lambda () (PreludeC-45Basics-C-38C-38 (PreludeC-45Basics-C-124C-124 0 (lambda () 0)) (lambda () 0)))))) (vector 10 0 (ParserC-45RuleC-45Source-symbol ":") (lambda () (vector 10 (PreludeC-45Basics-C-124C-124 0 (lambda () 1)) (ParserC-45RuleC-45Source-exactIdent "missing") (lambda () (vector 8 1 (ParserC-45RuleC-45Source-name) (lambda () (lambda (u--n) (vector 0 (vector 5 u--n))))))))) (lambda () (vector 12 (PreludeC-45Basics-C-124C-124 0 (lambda () 0)) (PreludeC-45Basics-C-38C-38 (PreludeC-45Basics-C-124C-124 0 (lambda () 0)) (lambda () (PreludeC-45Basics-C-38C-38 (PreludeC-45Basics-C-124C-124 0 (lambda () 0)) (lambda () 0)))) (vector 10 0 (ParserC-45RuleC-45Source-symbol ":") (lambda () (vector 10 (PreludeC-45Basics-C-124C-124 0 (lambda () 1)) (ParserC-45RuleC-45Source-keyword "total") (lambda () (vector 8 1 (ParserC-45RuleC-45Source-name) (lambda () (lambda (u--n) (vector 0 (vector 6 u--n))))))))) (lambda () (vector 12 (PreludeC-45Basics-C-124C-124 0 (lambda () 0)) (PreludeC-45Basics-C-38C-38 (PreludeC-45Basics-C-124C-124 0 (lambda () 0)) (lambda () 0)) (vector 10 0 (ParserC-45RuleC-45Source-symbol ":") (lambda () (vector 10 (PreludeC-45Basics-C-124C-124 0 (lambda () 1)) (ParserC-45RuleC-45Source-exactIdent "di") (lambda () (vector 8 1 (ParserC-45RuleC-45Source-name) (lambda () (lambda (u--n) (vector 0 (vector 7 u--n))))))))) (lambda () (vector 12 (PreludeC-45Basics-C-124C-124 0 (lambda () 0)) 0 (vector 10 0 (ParserC-45RuleC-45Source-symbol ":") (lambda () (vector 10 1 (ParserC-45RuleC-45Source-exactIdent "q") (lambda () (vector 0 (vector 8 )))))) (lambda () (vector 8 1 (TTImpC-45Parser-expr "(repl)" (ParserC-45RuleC-45Source-init)) (lambda () (lambda (u--tm) (vector 0 (vector 0 u--tm))))))))))))))))))))))) -(define TTImpC-45Parser-collectDefs (lambda (arg-0) (let ((sc0 arg-0)) (if (null? sc0) '() (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((2) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((e-6 (vector-ref sc1 3))) (TTImpC-45Parser-case--collectDefs-8690 e-6 e-5 e-4 e-3 (TTImpC-45Parser-n--9218-8497-u--spanMap e-6 e-5 e-4 e-3 (lambda (eta-0) (TTImpC-45Parser-n--9218-8498-u--isClause e-6 e-5 e-4 e-3 e-5 eta-0)) e-3)))))) ((5) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((e-9 (vector-ref sc1 3))) (cons (vector 5 e-7 e-8 (TTImpC-45Parser-collectDefs e-9)) (TTImpC-45Parser-collectDefs e-3))))))(else (cons e-2 (TTImpC-45Parser-collectDefs e-3))))))))))) -(define TTImpC-45Parser-clause (lambda (arg-0 arg-1 arg-2) (vector 9 1 0 (ParserC-45RuleC-45Common-location (vector "Parser.Lexer.Source.Token" )) (lambda (u--start) (vector 8 0 (TTImpC-45Parser-expr arg-1 arg-2) (lambda () (lambda (u--lhs) (vector 9 1 0 (LibrariesC-45TextC-45Parser-many (TTImpC-45Parser-n--12017-7153-u--parseWithArg arg-2 arg-1 arg-0)) (lambda (u--extra) (PreludeC-45Basics-ifThenElse (PreludeC-45Types-u--C-47C-61_Eq_Nat arg-0 (PreludeC-45TypesC-45List-length u--extra)) (lambda () (vector 4 (vector 0 ) 0 "Wrong number of 'with' arguments")) (lambda () (TTImpC-45Parser-parseRHS arg-0 arg-1 arg-2 u--start (TTImpC-45Parser-n--12017-7152-u--applyArgs arg-2 arg-1 arg-0 u--lhs u--extra))))))))))))) -(define TTImpC-45Parser-case_ (lambda (arg-0 arg-1) (vector 9 1 0 (ParserC-45RuleC-45Common-location (vector "Parser.Lexer.Source.Token" )) (lambda (u--start) (vector 10 0 (ParserC-45RuleC-45Source-keyword "case") (lambda () (vector 8 0 (TTImpC-45Parser-expr arg-0 arg-1) (lambda () (lambda (u--scr) (vector 10 (PreludeC-45Basics-C-124C-124 1 (lambda () 1)) (ParserC-45RuleC-45Source-keyword "of") (lambda () (vector 9 1 1 (ParserC-45RuleC-45Source-block (lambda (eta-0) (TTImpC-45Parser-caseAlt arg-0 eta-0))) (lambda (u--alts) (vector 9 1 1 (ParserC-45RuleC-45Common-location (vector "Parser.Lexer.Source.Token" )) (lambda (u--end) (vector 0 (let ((u--fc (vector 0 arg-0 u--start u--end))) (vector 4 u--fc u--scr (vector 32 u--fc 1) u--alts)))))))))))))))))) -(define TTImpC-45Parser-caseRHS (lambda (arg-0 arg-1 arg-2 arg-3) (vector 12 (PreludeC-45Basics-C-124C-124 0 (lambda () 0)) 0 (vector 10 0 (ParserC-45RuleC-45Source-symbol "=>") (lambda () (vector 11 1 0 (ParserC-45RuleC-45Source-continue arg-1) (vector 8 1 (TTImpC-45Parser-expr arg-0 arg-1) (lambda () (lambda (u--rhs) (vector 11 1 (PreludeC-45Basics-C-124C-124 1 (lambda () 1)) (ParserC-45RuleC-45Source-atEnd arg-1) (vector 9 1 1 (ParserC-45RuleC-45Common-location (vector "Parser.Lexer.Source.Token" )) (lambda (u--end) (vector 0 (vector 0 (vector 0 arg-0 arg-2 u--end) arg-3 u--rhs))))))))))) (lambda () (vector 10 1 (ParserC-45RuleC-45Source-keyword "impossible") (lambda () (vector 11 1 (PreludeC-45Basics-C-124C-124 1 (lambda () 1)) (ParserC-45RuleC-45Source-atEnd arg-1) (vector 9 1 1 (ParserC-45RuleC-45Common-location (vector "Parser.Lexer.Source.Token" )) (lambda (u--end) (vector 0 (vector 2 (vector 0 arg-0 arg-2 u--end) arg-3))))))))))) -(define TTImpC-45Parser-caseAlt (lambda (arg-0 arg-1) (vector 9 1 0 (ParserC-45RuleC-45Common-location (vector "Parser.Lexer.Source.Token" )) (lambda (u--start) (vector 8 0 (TTImpC-45Parser-appExpr arg-0 arg-1) (lambda () (lambda (u--lhs) (TTImpC-45Parser-caseRHS arg-0 arg-1 u--start u--lhs)))))))) -(define TTImpC-45Parser-builtinType (lambda () (PreludeC-45Interfaces-C-60C-36 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 0 eta-2 eta-3))))) (vector 0 ) (ParserC-45RuleC-45Source-exactIdent "Natural")))) -(define TTImpC-45Parser-binder (lambda (arg-0 arg-1) (vector 12 0 0 (TTImpC-45Parser-autoImplicitPi arg-0 arg-1) (lambda () (vector 12 0 0 (TTImpC-45Parser-forall_ arg-0 arg-1) (lambda () (vector 12 0 0 (TTImpC-45Parser-implicitPi arg-0 arg-1) (lambda () (vector 12 0 0 (TTImpC-45Parser-explicitPi arg-0 arg-1) (lambda () (vector 12 0 0 (TTImpC-45Parser-lam arg-0 arg-1) (lambda () (TTImpC-45Parser-let_ arg-0 arg-1))))))))))))) -(define TTImpC-45Parser-bindSymbol (lambda () (vector 12 (PreludeC-45Basics-C-124C-124 0 (lambda () 1)) (PreludeC-45Basics-C-124C-124 0 (lambda () 1)) (vector 10 1 (ParserC-45RuleC-45Source-symbol "->") (lambda () (vector 0 (vector 1 )))) (lambda () (vector 10 1 (ParserC-45RuleC-45Source-symbol "=>") (lambda () (vector 0 (vector 2 )))))))) -(define TTImpC-45Parser-bindList (lambda (arg-0 arg-1 arg-2) (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 0 eta-2 eta-3))))) (lambda (eta-0) (DataC-45List1-forget eta-0)) (LibrariesC-45TextC-45Parser-sepBy1 (PreludeC-45Basics-C-124C-124 1 (lambda () 0)) (ParserC-45RuleC-45Source-symbol ",") (vector 9 1 0 (TTImpC-45Parser-multiplicity) (lambda (u--rigc) (vector 8 1 (ParserC-45RuleC-45Source-unqualifiedName) (lambda () (lambda (u--n) (vector 9 1 1 (ParserC-45RuleC-45Common-location (vector "Parser.Lexer.Source.Token" )) (lambda (u--end) (vector 9 1 1 (LibrariesC-45TextC-45Parser-option (PreludeC-45Basics-C-124C-124 0 (lambda () 0)) (vector 32 (vector 0 arg-0 arg-1 u--end) 1) (vector 10 0 (ParserC-45RuleC-45Source-symbol ":") (lambda () (TTImpC-45Parser-appExpr arg-0 arg-2)))) (lambda (u--ty) (vector 9 1 1 (TTImpC-45Parser-getMult u--rigc) (lambda (u--rig) (vector 0 (cons u--rig (cons (vector 1 u--n) u--ty)))))))))))))))))) -(define TTImpC-45Parser-autoImplicitPi (lambda (arg-0 arg-1) (vector 9 1 0 (ParserC-45RuleC-45Common-location (vector "Parser.Lexer.Source.Token" )) (lambda (u--start) (vector 10 0 (ParserC-45RuleC-45Source-symbol "{") (lambda () (vector 10 (PreludeC-45Basics-C-124C-124 1 (lambda () 0)) (ParserC-45RuleC-45Source-keyword "auto") (lambda () (vector 11 1 0 (vector 6 ) (vector 8 0 (TTImpC-45Parser-pibindList arg-0 u--start arg-1) (lambda () (lambda (u--binders) (vector 10 (PreludeC-45Basics-C-124C-124 0 (lambda () 0)) (ParserC-45RuleC-45Source-symbol "}") (lambda () (vector 10 0 (ParserC-45RuleC-45Source-symbol "->") (lambda () (vector 8 1 (TTImpC-45Parser-typeExpr arg-0 arg-1) (lambda () (lambda (u--scope) (vector 9 1 1 (ParserC-45RuleC-45Common-location (vector "Parser.Lexer.Source.Token" )) (lambda (u--end) (vector 0 (TTImpC-45Parser-pibindAll (vector 0 arg-0 u--start u--end) (vector 2 ) u--binders u--scope))))))))))))))))))))))) -(define TTImpC-45Parser-atom (lambda (arg-0) (vector 12 (PreludeC-45Basics-C-124C-124 1 (lambda () 0)) 0 (vector 9 1 0 (ParserC-45RuleC-45Common-location (vector "Parser.Lexer.Source.Token" )) (lambda (u--start) (vector 8 1 (ParserC-45RuleC-45Source-constant) (lambda () (lambda (u--x) (vector 9 1 1 (ParserC-45RuleC-45Common-location (vector "Parser.Lexer.Source.Token" )) (lambda (u--end) (vector 0 (vector 28 (vector 0 arg-0 u--start u--end) u--x))))))))) (lambda () (vector 12 (PreludeC-45Basics-C-124C-124 1 (lambda () 0)) 0 (vector 9 1 0 (ParserC-45RuleC-45Common-location (vector "Parser.Lexer.Source.Token" )) (lambda (u--start) (vector 8 1 (ParserC-45RuleC-45Source-simpleStr) (lambda () (lambda (u--str) (vector 9 1 1 (ParserC-45RuleC-45Common-location (vector "Parser.Lexer.Source.Token" )) (lambda (u--end) (vector 0 (vector 28 (vector 0 arg-0 u--start u--end) (vector 10 u--str)))))))))) (lambda () (vector 12 (PreludeC-45Basics-C-124C-124 1 (lambda () 0)) 0 (vector 9 1 0 (ParserC-45RuleC-45Common-location (vector "Parser.Lexer.Source.Token" )) (lambda (u--start) (vector 10 (PreludeC-45Basics-C-124C-124 1 (lambda () 1)) (ParserC-45RuleC-45Source-exactIdent "Type") (lambda () (vector 9 1 1 (ParserC-45RuleC-45Common-location (vector "Parser.Lexer.Source.Token" )) (lambda (u--end) (vector 0 (vector 29 (vector 0 arg-0 u--start u--end))))))))) (lambda () (vector 12 (PreludeC-45Basics-C-124C-124 1 (lambda () 0)) 0 (vector 9 1 0 (ParserC-45RuleC-45Common-location (vector "Parser.Lexer.Source.Token" )) (lambda (u--start) (vector 10 1 (ParserC-45RuleC-45Source-symbol "_") (lambda () (vector 9 1 1 (ParserC-45RuleC-45Common-location (vector "Parser.Lexer.Source.Token" )) (lambda (u--end) (vector 0 (vector 32 (vector 0 arg-0 u--start u--end) 0)))))))) (lambda () (vector 12 (PreludeC-45Basics-C-124C-124 1 (lambda () 0)) 0 (vector 9 1 0 (ParserC-45RuleC-45Common-location (vector "Parser.Lexer.Source.Token" )) (lambda (u--start) (vector 10 1 (ParserC-45RuleC-45Source-symbol "?") (lambda () (vector 9 1 1 (ParserC-45RuleC-45Common-location (vector "Parser.Lexer.Source.Token" )) (lambda (u--end) (vector 0 (vector 32 (vector 0 arg-0 u--start u--end) 1)))))))) (lambda () (vector 12 (PreludeC-45Basics-C-124C-124 1 (lambda () 0)) 0 (vector 9 1 0 (ParserC-45RuleC-45Common-location (vector "Parser.Lexer.Source.Token" )) (lambda (u--start) (vector 10 1 (ParserC-45RuleC-45Source-pragma "search") (lambda () (vector 9 1 1 (ParserC-45RuleC-45Common-location (vector "Parser.Lexer.Source.Token" )) (lambda (u--end) (vector 0 (vector 12 (vector 0 arg-0 u--start u--end) (PreludeC-45Types-u--fromInteger_Num_Nat 1000))))))))) (lambda () (vector 12 (PreludeC-45Basics-C-124C-124 1 (lambda () 0)) 0 (vector 9 1 0 (ParserC-45RuleC-45Common-location (vector "Parser.Lexer.Source.Token" )) (lambda (u--start) (vector 8 1 (ParserC-45RuleC-45Source-name) (lambda () (lambda (u--x) (vector 9 1 1 (ParserC-45RuleC-45Common-location (vector "Parser.Lexer.Source.Token" )) (lambda (u--end) (vector 0 (vector 0 (vector 0 arg-0 u--start u--end) u--x))))))))) (lambda () (vector 12 (PreludeC-45Basics-C-124C-124 1 (lambda () 0)) (PreludeC-45Basics-C-124C-124 1 (lambda () 0)) (vector 9 1 0 (ParserC-45RuleC-45Common-location (vector "Parser.Lexer.Source.Token" )) (lambda (u--start) (vector 10 0 (ParserC-45RuleC-45Source-symbol "$") (lambda () (vector 8 1 (ParserC-45RuleC-45Source-unqualifiedName) (lambda () (lambda (u--x) (vector 9 1 1 (ParserC-45RuleC-45Common-location (vector "Parser.Lexer.Source.Token" )) (lambda (u--end) (vector 0 (vector 17 (vector 0 arg-0 u--start u--end) u--x))))))))))) (lambda () (vector 9 1 0 (ParserC-45RuleC-45Common-location (vector "Parser.Lexer.Source.Token" )) (lambda (u--start) (vector 8 1 (ParserC-45RuleC-45Source-holeName) (lambda () (lambda (u--x) (vector 9 1 1 (ParserC-45RuleC-45Common-location (vector "Parser.Lexer.Source.Token" )) (lambda (u--end) (vector 0 (vector 30 (vector 0 arg-0 u--start u--end) u--x))))))))))))))))))))))))))) -(define TTImpC-45Parser-as (lambda (arg-0 arg-1) (vector 9 1 0 (ParserC-45RuleC-45Common-location (vector "Parser.Lexer.Source.Token" )) (lambda (u--start) (vector 8 0 (ParserC-45RuleC-45Source-unqualifiedName) (lambda () (lambda (u--x) (vector 9 1 0 (ParserC-45RuleC-45Common-location (vector "Parser.Lexer.Source.Token" )) (lambda (u--nameEnd) (vector 10 0 (ParserC-45RuleC-45Source-symbol "@") (lambda () (vector 8 1 (TTImpC-45Parser-simpleExpr arg-0 arg-1) (lambda () (lambda (u--pat) (vector 9 1 1 (ParserC-45RuleC-45Common-location (vector "Parser.Lexer.Source.Token" )) (lambda (u--end) (vector 0 (vector 18 (vector 0 arg-0 u--start u--end) (vector 0 arg-0 u--start u--nameEnd) (vector 1 ) (vector 1 u--x) u--pat)))))))))))))))))) -(define TTImpC-45Parser-argExpr (lambda (arg-0 arg-1) (vector 12 0 0 (vector 11 1 0 (ParserC-45RuleC-45Source-continue arg-1) (vector 8 1 (TTImpC-45Parser-simpleExpr arg-0 arg-1) (lambda () (lambda (u--arg) (vector 0 (vector 0 u--arg)))))) (lambda () (vector 11 1 0 (ParserC-45RuleC-45Source-continue arg-1) (vector 8 1 (TTImpC-45Parser-implicitArg arg-0 arg-1) (lambda () (lambda (u--arg) (vector 0 (vector 1 u--arg)))))))))) -(define TTImpC-45Parser-appExpr (lambda (arg-0 arg-1) (vector 12 0 0 (TTImpC-45Parser-case_ arg-0 arg-1) (lambda () (vector 12 0 (PreludeC-45Basics-C-124C-124 1 (lambda () 0)) (TTImpC-45Parser-lazy arg-0 arg-1) (lambda () (vector 9 1 0 (ParserC-45RuleC-45Common-location (vector "Parser.Lexer.Source.Token" )) (lambda (u--start) (vector 8 1 (TTImpC-45Parser-simpleExpr arg-0 arg-1) (lambda () (lambda (u--f) (vector 9 1 1 (LibrariesC-45TextC-45Parser-many (TTImpC-45Parser-argExpr arg-0 arg-1)) (lambda (u--args) (vector 9 1 1 (ParserC-45RuleC-45Common-location (vector "Parser.Lexer.Source.Token" )) (lambda (u--end) (vector 0 (TTImpC-45Parser-n--9915-4776-u--applyExpImp arg-1 arg-0 u--start u--end u--f u--args))))))))))))))))) -(define TTImpC-45InteractiveC-45GenerateDef-case--caseC-32blockC-32inC-32propBindableUsed-2205 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) 1.0) (else (PreludeC-45Num-u--C-47_Fractional_Double (PreludeC-45Cast-u--cast_Cast_Nat_Double arg-2) (PreludeC-45Cast-u--cast_Cast_Nat_Double arg-1))))))) -(define TTImpC-45InteractiveC-45GenerateDef-case--propBindableUsed-2190 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (TTImpC-45InteractiveC-45GenerateDef-case--caseC-32blockC-32inC-32propBindableUsed-2205 arg-0 e-2 e-3 (PreludeC-45Types-u--C-61C-61_Eq_Nat e-2 0))))))) -(define TTImpC-45InteractiveC-45GenerateDef-case--caseC-32blockC-32inC-32propBindableUsedC-44getProp-2137 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (cons arg-3 arg-4)) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-5 (car sc1))) (let ((e-6 (cdr sc1))) (cons (PreludeC-45Types-u--C-43_Num_Nat arg-3 (PreludeC-45TypesC-45List-length (DataC-45List-nub (cons (lambda (arg-6) (lambda (arg-7) (CoreC-45Name-u--C-61C-61_Eq_Name arg-6 arg-7))) (lambda (arg-6) (lambda (arg-7) (CoreC-45Name-u--C-47C-61_Eq_Name arg-6 arg-7)))) e-5))) (PreludeC-45Types-u--C-43_Num_Nat arg-4 (PreludeC-45TypesC-45List-length (DataC-45List-nub (cons (lambda (arg-6) (lambda (arg-7) (CoreC-45Name-u--C-61C-61_Eq_Name arg-6 arg-7))) (lambda (arg-6) (lambda (arg-7) (CoreC-45Name-u--C-47C-61_Eq_Name arg-6 arg-7)))) e-6))))))))))))) -(define TTImpC-45InteractiveC-45GenerateDef-case--propBindableUsedC-44getProp-2122 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (TTImpC-45InteractiveC-45GenerateDef-case--caseC-32blockC-32inC-32propBindableUsedC-44getProp-2137 arg-0 arg-1 arg-2 e-2 e-3 (TTImpC-45InteractiveC-45GenerateDef-bindableUsed arg-1))))))) -(define TTImpC-45InteractiveC-45GenerateDef-case--caseC-32blockC-32inC-32makeDef-2038 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 (vector 1 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (TTImpC-45InteractiveC-45GenerateDef-makeDefFromType arg-4 arg-3 arg-2 (CoreC-45FC-justFC arg-5) eta-0 eta-1 eta-2 eta-3 eta-4)))))))))))))))))))) -(define TTImpC-45InteractiveC-45GenerateDef-case--makeDefFromType-1843 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 ext-0) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((act-24 ((TTImpC-45InteractiveC-45GenerateDef-mkSplits arg-7 arg-6 arg-5 arg-4 arg-3 e-1 arg-14) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (set-box! arg-7 arg-8))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (let ((act-26 (set-box! arg-6 arg-9))) (vector 1 act-26)))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 (let ((act-27 (set-box! arg-5 arg-10))) (vector 1 act-27)))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (vector 1 (TTImpC-45InteractiveC-45ExprSearch-u--map_Functor_Search (lambda (u--c) (cons arg-4 u--c)) e-5))))))))))))))))))))) (else (CoreC-45Context-undefinedName arg-7 arg-4 arg-2 ext-0)))))) -(define TTImpC-45InteractiveC-45GenerateDef-case--mkSplits-1713 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (TTImpC-45InteractiveC-45ExprSearch-noResult ext-0)) (else (TTImpC-45InteractiveC-45GenerateDef-expandClause arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 ext-0)))))) -(define TTImpC-45InteractiveC-45GenerateDef-case--caseC-32blockC-32inC-32generateSplits-1502 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (TTImpC-45InteractiveC-45GenerateDef-splittableNames arg-1)) (else (DataC-45List-reverse (TTImpC-45InteractiveC-45GenerateDef-splittableNames arg-1))))))) -(define TTImpC-45InteractiveC-45GenerateDef-case--trySplitC-44updateLHS-1311 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((0) (vector 17 arg-9 arg-8)) (else (let ((e-2 (vector-ref sc0 1))) (TTImpC-45InteractiveC-45GenerateDef-n--14496-1222-u--fixNames arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-2))))))) -(define TTImpC-45InteractiveC-45GenerateDef-case--trySplitC-44updateLHS-1253 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((0) (vector 0 arg-9 arg-8)) (else (let ((e-2 (vector-ref sc0 1))) (TTImpC-45InteractiveC-45GenerateDef-n--14496-1222-u--fixNames arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-2))))))) -(define TTImpC-45InteractiveC-45GenerateDef-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32expandClause-910 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 ext-0) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((2) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Context-lookupDefExact (vector 9 e-3) (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((7) (let ((e-9 (vector-ref sc4 1))) (let ((act-26 (CoreC-45ContextC-45Log-log arg-0 "interaction.generate" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Expression search for " (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (u--x) (CoreC-45Name-u--show_Show_Name u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Name-u--showPrec_Show_Name u--d u--x)))) (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_Int u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_Int u--d u--x))))) (cons e-2 e-3)))) ext-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 1))) (vector 0 e-10))) (else (let ((act-27 (TTImpC-45InteractiveC-45ExprSearch-exprSearchOpts arg-0 arg-6 arg-5 arg-3 arg-4 (vector 9 e-3) '() ext-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-11 (vector-ref sc6 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc6 1))) (TTImpC-45InteractiveC-45ExprSearch-traverse (lambda (u--rhsC-39) (let ((u--rhsraw (TTImpC-45InteractiveC-45GenerateDef-n--14020-810-u--dropLams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-9 u--rhsC-39))) (lambda (eta-0) (let ((act-28 (CoreC-45Normalise-logTermNF arg-9 arg-0 "interaction.generate" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Got clause") arg-12 arg-11 eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-12 (vector-ref sc7 1))) (vector 0 e-12))) (else (let ((act-29 (CoreC-45ContextC-45Log-log arg-0 "interaction.generate" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 " = " (TTImpC-45TTImp-u--show_Show_RawImp u--rhsraw))) eta-0))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (vector 1 (cons (TTImpC-45InteractiveC-45GenerateDef-n--14020-809-u--updateRHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 u--rhsraw) '()))))))))))))) e-11 ext-0))))))))))))(else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-4 "No searchable hole on RHS") ext-0))))))(else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-4 "No searchable hole on RHS") ext-0)))))))))))))))))(else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-4 "No searchable hole on RHS") ext-0)))))) -(define TTImpC-45InteractiveC-45GenerateDef-case--fnName-735 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-0) (else (let ((sc1 arg-1)) (cond ((equal? sc1 0) (PreludeC-45TypesC-45String-C-43C-43 "(" (PreludeC-45TypesC-45String-C-43C-43 arg-0 ")"))) (else "op")))))))) -(define TTImpC-45InteractiveC-45GenerateDef-n--14496-1221-u--valid (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (vector 1 e-1)))(else (vector 0 )))))) -(define TTImpC-45InteractiveC-45GenerateDef-n--14020-809-u--updateRHS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (vector 0 e-0 e-1 arg-8)))) ((1) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((e-6 (vector-ref sc0 4))) (let ((e-7 (vector-ref sc0 5))) (let ((e-8 (vector-ref sc0 6))) (vector 1 e-3 e-4 e-5 e-6 e-7 e-8)))))))) (else (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (vector 2 e-9 e-10)))))))) -(define TTImpC-45InteractiveC-45GenerateDef-n--14496-1223-u--updateLHS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (TTImpC-45InteractiveC-45GenerateDef-case--trySplitC-44updateLHS-1253 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-1 e-0 arg-8 (DataC-45List-lookup (cons (lambda (arg-10) (lambda (arg-11) (CoreC-45Name-u--C-61C-61_Eq_Name arg-10 arg-11))) (lambda (arg-10) (lambda (arg-11) (CoreC-45Name-u--C-47C-61_Eq_Name arg-10 arg-11)))) e-1 arg-8))))) ((17) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (TTImpC-45InteractiveC-45GenerateDef-case--trySplitC-44updateLHS-1311 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-3 e-2 arg-8 (DataC-45List-lookup (cons (lambda (arg-10) (lambda (arg-11) (CoreC-45Name-u--C-61C-61_Eq_Name arg-10 arg-11))) (lambda (arg-10) (lambda (arg-11) (CoreC-45Name-u--C-47C-61_Eq_Name arg-10 arg-11)))) (vector 1 e-3) arg-8))))) ((8) (let ((e-4 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 2))) (let ((e-6 (vector-ref sc0 3))) (vector 8 e-4 (TTImpC-45InteractiveC-45GenerateDef-n--14496-1223-u--updateLHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-5) (TTImpC-45InteractiveC-45GenerateDef-n--14496-1223-u--updateLHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-6)))))) ((9) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (vector 9 e-7 (TTImpC-45InteractiveC-45GenerateDef-n--14496-1223-u--updateLHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-8) (TTImpC-45InteractiveC-45GenerateDef-n--14496-1223-u--updateLHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-9)))))) ((10) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (let ((e-13 (vector-ref sc0 4))) (vector 10 e-10 (TTImpC-45InteractiveC-45GenerateDef-n--14496-1223-u--updateLHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-11) e-12 (TTImpC-45InteractiveC-45GenerateDef-n--14496-1223-u--updateLHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-13)))))))(else arg-9))))) -(define TTImpC-45InteractiveC-45GenerateDef-n--13980-769-u--mkUniqueName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((30) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((act-24 (let ((act-24 (unbox arg-3))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTImpC-45Utils-uniqueName e-5 '() e-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 30 e-0 e-6)))))))))))))))(else (vector 1 arg-4)))))) -(define TTImpC-45InteractiveC-45GenerateDef-n--15504-2104-u--getProp (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (if (null? sc0) (cons 0 0) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (TTImpC-45InteractiveC-45GenerateDef-case--propBindableUsedC-44getProp-2122 arg-0 e-2 e-3 (TTImpC-45InteractiveC-45GenerateDef-n--15504-2104-u--getProp arg-0 e-3)))))))) -(define TTImpC-45InteractiveC-45GenerateDef-n--14496-1222-u--fixNames (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-12 (vector-ref sc1 1))) (vector 17 e-0 e-12))) ((2) (vector 32 e-0 0))(else arg-8)))))) ((8) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (vector 8 e-2 (TTImpC-45InteractiveC-45GenerateDef-n--14496-1222-u--fixNames arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-3) (TTImpC-45InteractiveC-45GenerateDef-n--14496-1222-u--fixNames arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-4)))))) ((9) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (vector 9 e-5 (TTImpC-45InteractiveC-45GenerateDef-n--14496-1222-u--fixNames arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-6) (TTImpC-45InteractiveC-45GenerateDef-n--14496-1222-u--fixNames arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-7)))))) ((10) (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 3))) (let ((e-11 (vector-ref sc0 4))) (vector 10 e-8 (TTImpC-45InteractiveC-45GenerateDef-n--14496-1222-u--fixNames arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-9) e-10 (TTImpC-45InteractiveC-45GenerateDef-n--14496-1222-u--fixNames arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-11)))))))(else arg-8))))) -(define TTImpC-45InteractiveC-45GenerateDef-n--14020-810-u--dropLams (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-7)) (cond ((equal? sc0 0) arg-8)(else (let ((e-0 (- arg-7 1))) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((2) (let ((e-6 (vector-ref sc0 6))) (TTImpC-45InteractiveC-45GenerateDef-n--14020-810-u--dropLams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-0 e-6)))(else arg-8))))))))) -(define TTImpC-45InteractiveC-45GenerateDef-uniqueRHS (lambda (arg-0 arg-1 ext-0) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((act-24 (TTImpC-45InteractiveC-45GenerateDef-n--13980-769-u--mkUniqueName e-2 e-1 e-0 arg-0 e-2 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-0 e-1 e-5)))))))))))(else (vector 1 arg-1)))))) -(define TTImpC-45InteractiveC-45GenerateDef-trySplit (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 ((TTImpC-45InteractiveC-45CaseSplit-getSplitsLHS arg-0 arg-1 arg-2 arg-3 0 arg-5 arg-7) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (vector 1 (cons arg-7 (PreludeC-45Types-u--map_Functor_List (lambda (u--ups) (vector 0 arg-3 (TTImpC-45InteractiveC-45GenerateDef-n--14496-1223-u--updateLHS arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 u--ups arg-4) arg-6)) (DataC-45List-mapMaybe (lambda (eta-0) (TTImpC-45InteractiveC-45GenerateDef-n--14496-1221-u--valid arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 eta-0)) e-1))))))(else (vector 1 (cons arg-7 '())))))))))))) -(define TTImpC-45InteractiveC-45GenerateDef-tryAllSplits (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (if (null? sc0) (lambda (eta-0) (TTImpC-45InteractiveC-45ExprSearch-noResult eta-0)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (let ((sc2 e-7)) (if (null? sc2) (TTImpC-45InteractiveC-45GenerateDef-tryAllSplits arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3) (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-log arg-0 "interaction.generate" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Splitting on " (CoreC-45Name-u--show_Show_Name e-6))) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else ((TTImpC-45InteractiveC-45ExprSearch-trySearch arg-0 arg-2 (lambda (eta-1) (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (eta-2) (TTImpC-45InteractiveC-45GenerateDef-mkSplits arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 eta-2)) e-7 '() eta-1))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (TTImpC-45InteractiveC-45GenerateDef-collectClauses arg-0 arg-2 e-8 eta-1))))))) (TTImpC-45InteractiveC-45GenerateDef-tryAllSplits arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3)) eta-0))))))))))))))))) -(define TTImpC-45InteractiveC-45GenerateDef-splittableNames (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((8) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((17) (let ((e-11 (vector-ref sc1 2))) (PreludeC-45TypesC-45List-C-43C-43 (TTImpC-45InteractiveC-45GenerateDef-splittableNames e-1) (cons (vector 1 e-11) '()))))(else (TTImpC-45InteractiveC-45GenerateDef-splittableNames e-1))))))) ((9) (let ((e-4 (vector-ref sc0 2))) (TTImpC-45InteractiveC-45GenerateDef-splittableNames e-4))) ((10) (let ((e-7 (vector-ref sc0 2))) (TTImpC-45InteractiveC-45GenerateDef-splittableNames e-7)))(else '()))))) -(define TTImpC-45InteractiveC-45GenerateDef-propBindableUsed (lambda (arg-0) (TTImpC-45InteractiveC-45GenerateDef-case--propBindableUsed-2190 arg-0 (TTImpC-45InteractiveC-45GenerateDef-n--15504-2104-u--getProp arg-0 arg-0)))) +(define TTImpC-45Parser-explicitPi (lambda (arg-0 arg-1) (vector 9 0 1 (LibrariesC-45TextC-45Parser-location) (lambda (u--start) (vector 10 1 (ParserC-45RuleC-45Source-symbol "(") (lambda () (vector 8 1 (TTImpC-45Parser-pibindList arg-0 u--start arg-1) (lambda () (lambda (u--binders) (vector 10 1 (ParserC-45RuleC-45Source-symbol ")") (lambda () (vector 8 1 (TTImpC-45Parser-bindSymbol) (lambda () (lambda (u--exp) (vector 8 0 (TTImpC-45Parser-typeExpr arg-0 arg-1) (lambda () (lambda (u--scope) (vector 9 0 0 (LibrariesC-45TextC-45Parser-location) (lambda (u--end) (vector 0 (TTImpC-45Parser-pibindAll (vector 0 arg-0 u--start u--end) u--exp u--binders u--scope))))))))))))))))))))) +(define TTImpC-45Parser-directive (lambda (arg-0 arg-1) (vector 12 1 1 (vector 10 1 (ParserC-45RuleC-45Source-pragma "logging") (lambda () (vector 11 0 1 (vector 6 ) (vector 8 0 (TTImpC-45Parser-logLevel) (lambda () (lambda (u--lvl) (vector 11 0 0 (ParserC-45RuleC-45Source-atEnd arg-1) (vector 0 (vector 9 u--lvl))))))))) (lambda () (vector 8 0 (vector 13 (vector 10 1 (ParserC-45RuleC-45Source-pragma "builtin") (lambda () (vector 11 0 1 (vector 6 ) (vector 8 1 (ParserC-45RuleC-45Source-builtinType) (lambda () (lambda (u--t) (vector 8 0 (ParserC-45RuleC-45Source-name) (lambda () (lambda (u--n) (vector 0 (cons u--t u--n)))))))))))) (lambda () (lambda (u--b) (vector 9 0 0 (vector 0 (let ((e-1 (vector-ref u--b 0))) e-1)) (lambda (_-0) (let ((e-2 (car _-0))) (let ((e-3 (cdr _-0))) (vector 0 (vector 10 (CoreC-45FC-boundToFC arg-0 u--b) e-2 e-3))))))))))))) +(define TTImpC-45Parser-definition (lambda (arg-0 arg-1) (vector 9 0 1 (LibrariesC-45TextC-45Parser-location) (lambda (u--start) (vector 8 0 (TTImpC-45Parser-clause 0 arg-0 arg-1) (lambda () (lambda (u--nd) (vector 9 0 0 (LibrariesC-45TextC-45Parser-location) (lambda (u--end) (vector 0 (vector 2 (vector 0 arg-0 u--start u--end) (Builtin-fst u--nd) (cons (Builtin-snd u--nd) '())))))))))))) +(define TTImpC-45Parser-dataOpt (lambda () (vector 12 1 1 (vector 10 0 (ParserC-45RuleC-45Source-exactIdent "noHints") (lambda () (vector 0 (vector 1 )))) (lambda () (vector 12 1 1 (vector 10 0 (ParserC-45RuleC-45Source-exactIdent "uniqueSearch") (lambda () (vector 0 (vector 2 )))) (lambda () (vector 10 1 (ParserC-45RuleC-45Source-exactIdent "search") (lambda () (vector 8 0 (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40C-40GrammarC-32C-36stateC-41C-32C-36tokC-41C-32C-36cC-41 1 eta-2 eta-3))))) (lambda (eta-0) (DataC-45List1-forget eta-0)) (LibrariesC-45TextC-45Parser-some (ParserC-45RuleC-45Source-name))) (lambda () (lambda (u--ns) (vector 0 (vector 0 u--ns))))))))))))) +(define TTImpC-45Parser-dataDecl (lambda (arg-0 arg-1) (vector 9 0 1 (LibrariesC-45TextC-45Parser-location) (lambda (u--start) (vector 10 1 (ParserC-45RuleC-45Source-keyword "data") (lambda () (vector 8 1 (ParserC-45RuleC-45Source-name) (lambda () (lambda (u--n) (vector 10 1 (ParserC-45RuleC-45Source-symbol ":") (lambda () (vector 8 1 (TTImpC-45Parser-expr arg-0 arg-1) (lambda () (lambda (u--ty) (vector 10 0 (ParserC-45RuleC-45Source-keyword "where") (lambda () (vector 9 0 0 (LibrariesC-45TextC-45Parser-option 1 '() (vector 10 1 (ParserC-45RuleC-45Source-symbol "[") (lambda () (vector 8 1 (LibrariesC-45TextC-45Parser-sepBy1 1 (ParserC-45RuleC-45Source-symbol ",") (TTImpC-45Parser-dataOpt)) (lambda () (lambda (u--dopts) (vector 10 0 (ParserC-45RuleC-45Source-symbol "]") (lambda () (vector 0 (DataC-45List1-forget u--dopts)))))))))) (lambda (u--opts) (vector 9 0 0 (ParserC-45RuleC-45Source-block (lambda (eta-0) (TTImpC-45Parser-tyDecl arg-0 eta-0))) (lambda (u--cs) (vector 9 0 0 (LibrariesC-45TextC-45Parser-location) (lambda (u--end) (vector 0 (vector 0 (vector 0 arg-0 u--start u--end) u--n u--ty u--opts u--cs)))))))))))))))))))))))) +(define TTImpC-45Parser-command (lambda () (vector 12 1 1 (vector 10 1 (ParserC-45RuleC-45Source-symbol ":") (lambda () (vector 10 1 (ParserC-45RuleC-45Source-exactIdent "t") (lambda () (vector 8 0 (TTImpC-45Parser-expr (vector 2 0) (ParserC-45RuleC-45Source-init)) (lambda () (lambda (u--tm) (vector 0 (vector 1 u--tm))))))))) (lambda () (vector 12 1 1 (vector 10 1 (ParserC-45RuleC-45Source-symbol ":") (lambda () (vector 10 1 (ParserC-45RuleC-45Source-exactIdent "s") (lambda () (vector 8 0 (ParserC-45RuleC-45Source-name) (lambda () (lambda (u--n) (vector 0 (vector 2 u--n))))))))) (lambda () (vector 12 1 1 (vector 10 1 (ParserC-45RuleC-45Source-symbol ":") (lambda () (vector 10 1 (ParserC-45RuleC-45Source-exactIdent "es") (lambda () (vector 8 0 (ParserC-45RuleC-45Source-name) (lambda () (lambda (u--n) (vector 0 (vector 3 u--n))))))))) (lambda () (vector 12 1 1 (vector 10 1 (ParserC-45RuleC-45Source-symbol ":") (lambda () (vector 10 1 (ParserC-45RuleC-45Source-exactIdent "gd") (lambda () (vector 8 1 (ParserC-45RuleC-45Source-intLit) (lambda () (lambda (u--l) (vector 8 0 (ParserC-45RuleC-45Source-name) (lambda () (lambda (u--n) (vector 0 (vector 4 (blodwen-toSignedInt u--l 63) u--n)))))))))))) (lambda () (vector 12 1 1 (vector 10 1 (ParserC-45RuleC-45Source-symbol ":") (lambda () (vector 10 1 (ParserC-45RuleC-45Source-exactIdent "missing") (lambda () (vector 8 0 (ParserC-45RuleC-45Source-name) (lambda () (lambda (u--n) (vector 0 (vector 5 u--n))))))))) (lambda () (vector 12 1 1 (vector 10 1 (ParserC-45RuleC-45Source-symbol ":") (lambda () (vector 10 1 (ParserC-45RuleC-45Source-keyword "total") (lambda () (vector 8 0 (ParserC-45RuleC-45Source-name) (lambda () (lambda (u--n) (vector 0 (vector 6 u--n))))))))) (lambda () (vector 12 1 1 (vector 10 1 (ParserC-45RuleC-45Source-symbol ":") (lambda () (vector 10 1 (ParserC-45RuleC-45Source-exactIdent "di") (lambda () (vector 8 0 (ParserC-45RuleC-45Source-name) (lambda () (lambda (u--n) (vector 0 (vector 7 u--n))))))))) (lambda () (vector 12 1 1 (vector 10 1 (ParserC-45RuleC-45Source-symbol ":") (lambda () (vector 10 0 (ParserC-45RuleC-45Source-exactIdent "q") (lambda () (vector 0 (vector 8 )))))) (lambda () (vector 8 0 (TTImpC-45Parser-expr (vector 2 0) (ParserC-45RuleC-45Source-init)) (lambda () (lambda (u--tm) (vector 0 (vector 0 u--tm))))))))))))))))))))))) +(define TTImpC-45Parser-collectDefs (lambda (arg-0) (if (null? arg-0) '() (let ((e-2 (car arg-0))) (let ((e-3 (cdr arg-0))) (case (vector-ref e-2 0) ((2) (let ((e-4 (vector-ref e-2 1))) (let ((e-5 (vector-ref e-2 2))) (let ((e-6 (vector-ref e-2 3))) (let ((sc2 (TTImpC-45Parser-n--6895-8820-u--spanMap e-6 e-5 e-4 e-3 (lambda (eta-0) (TTImpC-45Parser-n--6895-8821-u--isClause e-6 e-5 e-4 e-3 e-5 eta-0)) e-3))) (let ((e-8 (car sc2))) (let ((e-7 (cdr sc2))) (cons (vector 2 e-4 e-5 (PreludeC-45TypesC-45List-C-43C-43 e-6 e-8)) (TTImpC-45Parser-collectDefs e-7))))))))) ((5) (let ((e-7 (vector-ref e-2 1))) (let ((e-8 (vector-ref e-2 2))) (let ((e-9 (vector-ref e-2 3))) (cons (vector 5 e-7 e-8 (TTImpC-45Parser-collectDefs e-9)) (TTImpC-45Parser-collectDefs e-3))))))(else (cons e-2 (TTImpC-45Parser-collectDefs e-3))))))))) +(define TTImpC-45Parser-clause (lambda (arg-0 arg-1 arg-2) (vector 9 0 1 (LibrariesC-45TextC-45Parser-location) (lambda (u--start) (vector 8 1 (TTImpC-45Parser-expr arg-1 arg-2) (lambda () (lambda (u--lhs) (vector 9 0 1 (LibrariesC-45TextC-45Parser-many (TTImpC-45Parser-n--10125-7303-u--parseWithArg arg-2 arg-1 arg-0)) (lambda (u--extra) (let ((sc0 (PreludeC-45Types-u--C-47C-61_Eq_Nat arg-0 (PreludeC-45TypesC-45List-length u--extra)))) (cond ((equal? sc0 1) (vector 4 '() 1 "Wrong number of 'with' arguments")) (else (TTImpC-45Parser-parseRHS arg-0 arg-1 arg-2 u--start (TTImpC-45Parser-n--10125-7302-u--applyArgs arg-2 arg-1 arg-0 u--lhs u--extra)))))))))))))) +(define TTImpC-45Parser-case_ (lambda (arg-0 arg-1) (vector 9 0 1 (LibrariesC-45TextC-45Parser-location) (lambda (u--start) (vector 10 1 (ParserC-45RuleC-45Source-keyword "case") (lambda () (vector 8 1 (TTImpC-45Parser-expr arg-0 arg-1) (lambda () (lambda (u--scr) (vector 10 0 (ParserC-45RuleC-45Source-keyword "of") (lambda () (vector 9 0 0 (ParserC-45RuleC-45Source-block (lambda (eta-0) (TTImpC-45Parser-caseAlt arg-0 eta-0))) (lambda (u--alts) (vector 9 0 0 (LibrariesC-45TextC-45Parser-location) (lambda (u--end) (vector 0 (let ((u--fc (vector 0 arg-0 u--start u--end))) (vector 4 u--fc u--scr (vector 32 u--fc 0) u--alts)))))))))))))))))) +(define TTImpC-45Parser-caseRHS (lambda (arg-0 arg-1 arg-2 arg-3) (vector 12 1 1 (vector 10 1 (ParserC-45RuleC-45Source-symbol "=>") (lambda () (vector 11 0 1 (ParserC-45RuleC-45Source-continue arg-1) (vector 8 0 (TTImpC-45Parser-expr arg-0 arg-1) (lambda () (lambda (u--rhs) (vector 11 0 0 (ParserC-45RuleC-45Source-atEnd arg-1) (vector 9 0 0 (LibrariesC-45TextC-45Parser-location) (lambda (u--end) (vector 0 (vector 0 (vector 0 arg-0 arg-2 u--end) arg-3 u--rhs))))))))))) (lambda () (vector 10 0 (ParserC-45RuleC-45Source-keyword "impossible") (lambda () (vector 11 0 0 (ParserC-45RuleC-45Source-atEnd arg-1) (vector 9 0 0 (LibrariesC-45TextC-45Parser-location) (lambda (u--end) (vector 0 (vector 2 (vector 0 arg-0 arg-2 u--end) arg-3))))))))))) +(define TTImpC-45Parser-caseAlt (lambda (arg-0 arg-1) (vector 9 0 1 (LibrariesC-45TextC-45Parser-location) (lambda (u--start) (vector 8 1 (TTImpC-45Parser-appExpr arg-0 arg-1) (lambda () (lambda (u--lhs) (TTImpC-45Parser-caseRHS arg-0 arg-1 u--start u--lhs)))))))) +(define TTImpC-45Parser-binder (lambda (arg-0 arg-1) (vector 12 1 1 (TTImpC-45Parser-autoImplicitPi arg-0 arg-1) (lambda () (vector 12 1 1 (TTImpC-45Parser-forall_ arg-0 arg-1) (lambda () (vector 12 1 1 (TTImpC-45Parser-implicitPi arg-0 arg-1) (lambda () (vector 12 1 1 (TTImpC-45Parser-explicitPi arg-0 arg-1) (lambda () (vector 12 1 1 (TTImpC-45Parser-lam arg-0 arg-1) (lambda () (TTImpC-45Parser-let_ arg-0 arg-1))))))))))))) +(define TTImpC-45Parser-bindSymbol (lambda () (vector 12 1 1 (vector 10 0 (ParserC-45RuleC-45Source-symbol "->") (lambda () (vector 0 (vector 1 )))) (lambda () (vector 10 0 (ParserC-45RuleC-45Source-symbol "=>") (lambda () (vector 0 (vector 2 )))))))) +(define TTImpC-45Parser-bindList (lambda (arg-0 arg-1 arg-2) (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40C-40GrammarC-32C-36stateC-41C-32C-36tokC-41C-32C-36cC-41 1 eta-2 eta-3))))) (lambda (eta-0) (DataC-45List1-forget eta-0)) (LibrariesC-45TextC-45Parser-sepBy1 1 (ParserC-45RuleC-45Source-symbol ",") (vector 9 0 1 (TTImpC-45Parser-multiplicity) (lambda (u--rigc) (vector 8 0 (ParserC-45RuleC-45Source-unqualifiedName) (lambda () (lambda (u--n) (vector 9 0 0 (LibrariesC-45TextC-45Parser-location) (lambda (u--end) (vector 9 0 0 (LibrariesC-45TextC-45Parser-option 1 (vector 32 (vector 0 arg-0 arg-1 u--end) 0) (vector 10 1 (ParserC-45RuleC-45Source-symbol ":") (lambda () (TTImpC-45Parser-appExpr arg-0 arg-2)))) (lambda (u--ty) (vector 9 0 0 (TTImpC-45Parser-getMult u--rigc) (lambda (u--rig) (vector 0 (cons u--rig (cons (vector 1 u--n) u--ty)))))))))))))))))) +(define TTImpC-45Parser-autoImplicitPi (lambda (arg-0 arg-1) (vector 9 0 1 (LibrariesC-45TextC-45Parser-location) (lambda (u--start) (vector 10 1 (ParserC-45RuleC-45Source-symbol "{") (lambda () (vector 10 1 (ParserC-45RuleC-45Source-keyword "auto") (lambda () (vector 11 0 1 (vector 6 ) (vector 8 1 (TTImpC-45Parser-pibindList arg-0 u--start arg-1) (lambda () (lambda (u--binders) (vector 10 1 (ParserC-45RuleC-45Source-symbol "}") (lambda () (vector 10 1 (ParserC-45RuleC-45Source-symbol "->") (lambda () (vector 8 0 (TTImpC-45Parser-typeExpr arg-0 arg-1) (lambda () (lambda (u--scope) (vector 9 0 0 (LibrariesC-45TextC-45Parser-location) (lambda (u--end) (vector 0 (TTImpC-45Parser-pibindAll (vector 0 arg-0 u--start u--end) (vector 2 ) u--binders u--scope))))))))))))))))))))))) +(define TTImpC-45Parser-atom (lambda (arg-0) (vector 12 1 1 (vector 9 0 1 (LibrariesC-45TextC-45Parser-location) (lambda (u--start) (vector 8 0 (ParserC-45RuleC-45Source-constant) (lambda () (lambda (u--x) (vector 9 0 0 (LibrariesC-45TextC-45Parser-location) (lambda (u--end) (vector 0 (vector 28 (vector 0 arg-0 u--start u--end) u--x))))))))) (lambda () (vector 12 1 1 (vector 9 0 1 (LibrariesC-45TextC-45Parser-location) (lambda (u--start) (vector 8 0 (ParserC-45RuleC-45Source-simpleStr) (lambda () (lambda (u--str) (vector 9 0 0 (LibrariesC-45TextC-45Parser-location) (lambda (u--end) (vector 0 (vector 28 (vector 0 arg-0 u--start u--end) (vector 10 u--str)))))))))) (lambda () (vector 12 1 1 (vector 9 0 1 (LibrariesC-45TextC-45Parser-location) (lambda (u--start) (vector 10 0 (ParserC-45RuleC-45Source-exactIdent "Type") (lambda () (vector 9 0 0 (LibrariesC-45TextC-45Parser-location) (lambda (u--end) (vector 0 (vector 29 (vector 0 arg-0 u--start u--end))))))))) (lambda () (vector 12 1 1 (vector 9 0 1 (LibrariesC-45TextC-45Parser-location) (lambda (u--start) (vector 10 0 (ParserC-45RuleC-45Source-symbol "_") (lambda () (vector 9 0 0 (LibrariesC-45TextC-45Parser-location) (lambda (u--end) (vector 0 (vector 32 (vector 0 arg-0 u--start u--end) 1)))))))) (lambda () (vector 12 1 1 (vector 9 0 1 (LibrariesC-45TextC-45Parser-location) (lambda (u--start) (vector 10 0 (ParserC-45RuleC-45Source-symbol "?") (lambda () (vector 9 0 0 (LibrariesC-45TextC-45Parser-location) (lambda (u--end) (vector 0 (vector 32 (vector 0 arg-0 u--start u--end) 0)))))))) (lambda () (vector 12 1 1 (vector 9 0 1 (LibrariesC-45TextC-45Parser-location) (lambda (u--start) (vector 10 0 (ParserC-45RuleC-45Source-pragma "search") (lambda () (vector 9 0 0 (LibrariesC-45TextC-45Parser-location) (lambda (u--end) (vector 0 (vector 12 (vector 0 arg-0 u--start u--end) (PreludeC-45Types-u--fromInteger_Num_Nat 1000))))))))) (lambda () (vector 12 1 1 (vector 9 0 1 (LibrariesC-45TextC-45Parser-location) (lambda (u--start) (vector 8 0 (ParserC-45RuleC-45Source-name) (lambda () (lambda (u--x) (vector 9 0 0 (LibrariesC-45TextC-45Parser-location) (lambda (u--end) (vector 0 (vector 0 (vector 0 arg-0 u--start u--end) u--x))))))))) (lambda () (vector 12 1 1 (vector 9 0 1 (LibrariesC-45TextC-45Parser-location) (lambda (u--start) (vector 10 1 (ParserC-45RuleC-45Source-symbol "$") (lambda () (vector 8 0 (ParserC-45RuleC-45Source-unqualifiedName) (lambda () (lambda (u--x) (vector 9 0 0 (LibrariesC-45TextC-45Parser-location) (lambda (u--end) (vector 0 (vector 17 (vector 0 arg-0 u--start u--end) u--x))))))))))) (lambda () (vector 9 0 1 (LibrariesC-45TextC-45Parser-location) (lambda (u--start) (vector 8 0 (ParserC-45RuleC-45Source-holeName) (lambda () (lambda (u--x) (vector 9 0 0 (LibrariesC-45TextC-45Parser-location) (lambda (u--end) (vector 0 (vector 30 (vector 0 arg-0 u--start u--end) u--x))))))))))))))))))))))))))) +(define TTImpC-45Parser-as (lambda (arg-0 arg-1) (vector 9 0 1 (LibrariesC-45TextC-45Parser-location) (lambda (u--start) (vector 8 1 (ParserC-45RuleC-45Source-unqualifiedName) (lambda () (lambda (u--x) (vector 9 0 1 (LibrariesC-45TextC-45Parser-location) (lambda (u--nameEnd) (vector 10 1 (ParserC-45RuleC-45Source-symbol "@") (lambda () (vector 8 0 (TTImpC-45Parser-simpleExpr arg-0 arg-1) (lambda () (lambda (u--pat) (vector 9 0 0 (LibrariesC-45TextC-45Parser-location) (lambda (u--end) (vector 0 (vector 18 (vector 0 arg-0 u--start u--end) (vector 0 arg-0 u--start u--nameEnd) 1 (vector 1 u--x) u--pat)))))))))))))))))) +(define TTImpC-45Parser-argExpr (lambda (arg-0 arg-1) (vector 12 1 1 (vector 11 0 1 (ParserC-45RuleC-45Source-continue arg-1) (vector 8 0 (TTImpC-45Parser-simpleExpr arg-0 arg-1) (lambda () (lambda (u--arg) (vector 0 (vector 0 u--arg)))))) (lambda () (vector 11 0 1 (ParserC-45RuleC-45Source-continue arg-1) (vector 8 0 (TTImpC-45Parser-implicitArg arg-0 arg-1) (lambda () (lambda (u--arg) (vector 0 (vector 1 u--arg)))))))))) +(define TTImpC-45Parser-appExpr (lambda (arg-0 arg-1) (vector 12 1 1 (TTImpC-45Parser-case_ arg-0 arg-1) (lambda () (vector 12 1 1 (TTImpC-45Parser-lazy arg-0 arg-1) (lambda () (vector 9 0 1 (LibrariesC-45TextC-45Parser-location) (lambda (u--start) (vector 8 0 (TTImpC-45Parser-simpleExpr arg-0 arg-1) (lambda () (lambda (u--f) (vector 9 0 0 (LibrariesC-45TextC-45Parser-many (TTImpC-45Parser-argExpr arg-0 arg-1)) (lambda (u--args) (vector 9 0 0 (LibrariesC-45TextC-45Parser-location) (lambda (u--end) (vector 0 (TTImpC-45Parser-n--7708-4591-u--applyExpImp arg-1 arg-0 u--start u--end u--f u--args))))))))))))))))) +(define TTImpC-45InteractiveC-45GenerateDef-case--propBindableUsed-3082 (lambda (arg-0 arg-1) (let ((e-2 (car arg-1))) (let ((e-3 (cdr arg-1))) (let ((sc1 (PreludeC-45Types-u--C-61C-61_Eq_Nat e-2 0))) (cond ((equal? sc1 1) 1.0) (else (PreludeC-45Num-u--C-47_Fractional_Double (PreludeC-45Cast-u--cast_Cast_Nat_Double e-3) (PreludeC-45Cast-u--cast_Cast_Nat_Double e-2))))))))) +(define TTImpC-45InteractiveC-45GenerateDef-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32expandClause-1768 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 ext-0) (case (vector-ref arg-14 0) ((2) (let ((e-2 (vector-ref arg-14 2))) (let ((e-3 (vector-ref arg-14 3))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-lookupDefExact (vector 9 e-3) (let ((e-0 (vector-ref e-5 0))) e-0) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-6 (vector-ref act-25 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-25 1))) (if (null? e-6) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-4 "No searchable hole on RHS") ext-0) (let ((e-7 (unbox e-6))) (case (vector-ref e-7 0) ((7) (let ((e-9 (vector-ref e-7 1))) (let ((act-26 (CoreC-45ContextC-45Log-log arg-0 "interaction.generate" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Expression search for " (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (u--x) (CoreC-45Name-u--show_Show_Name u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Name-u--showPrec_Show_Name u--d u--x)))) (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_Int u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_Int u--d u--x))))) (cons e-2 e-3)))) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-10 (vector-ref act-26 1))) (vector 0 e-10))) (else (let ((act-27 (TTImpC-45InteractiveC-45ExprSearch-exprSearchOpts arg-0 arg-6 arg-5 arg-3 arg-4 (vector 9 e-3) '() ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-11 (vector-ref act-27 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-27 1))) (TTImpC-45InteractiveC-45ExprSearch-traverse (lambda (u--rhsC-39) (let ((u--rhsraw (TTImpC-45InteractiveC-45GenerateDef-n--9282-1668-u--dropLams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-9 u--rhsC-39))) (lambda (eta-0) (let ((act-28 (CoreC-45Normalise-logTermNF arg-9 arg-0 "interaction.generate" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Got clause") arg-12 arg-11 eta-0))) (case (vector-ref act-28 0) ((0) (let ((e-12 (vector-ref act-28 1))) (vector 0 e-12))) (else (let ((act-29 (CoreC-45ContextC-45Log-log arg-0 "interaction.generate" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 " = " (TTImpC-45TTImp-u--show_Show_RawImp u--rhsraw))) eta-0))) (case (vector-ref act-29 0) ((0) (let ((e-13 (vector-ref act-29 1))) (vector 0 e-13))) (else (vector 1 (cons (TTImpC-45InteractiveC-45GenerateDef-n--9282-1667-u--updateRHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 u--rhsraw) '()))))))))))) e-11 ext-0))))))))))(else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-4 "No searchable hole on RHS") ext-0))))))))))))))))(else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-4 "No searchable hole on RHS") ext-0))))) +(define TTImpC-45InteractiveC-45GenerateDef-n--9774-2090-u--valid (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (case (vector-ref arg-8 0) ((0) (let ((e-1 (vector-ref arg-8 2))) (box e-1)))(else '())))) +(define TTImpC-45InteractiveC-45GenerateDef-n--9282-1667-u--updateRHS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (case (vector-ref arg-7 0) ((0) (let ((e-0 (vector-ref arg-7 1))) (let ((e-1 (vector-ref arg-7 2))) (vector 0 e-0 e-1 arg-8)))) ((1) (let ((e-3 (vector-ref arg-7 1))) (let ((e-4 (vector-ref arg-7 2))) (let ((e-5 (vector-ref arg-7 3))) (let ((e-6 (vector-ref arg-7 4))) (let ((e-7 (vector-ref arg-7 5))) (let ((e-8 (vector-ref arg-7 6))) (vector 1 e-3 e-4 e-5 e-6 e-7 e-8)))))))) (else (let ((e-9 (vector-ref arg-7 1))) (let ((e-10 (vector-ref arg-7 2))) (vector 2 e-9 e-10))))))) +(define TTImpC-45InteractiveC-45GenerateDef-n--9774-2092-u--updateLHS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (case (vector-ref arg-9 0) ((0) (let ((e-0 (vector-ref arg-9 1))) (let ((e-1 (vector-ref arg-9 2))) (let ((sc1 (DataC-45List-lookup (cons (lambda (arg-10) (lambda (arg-11) (CoreC-45Name-u--C-61C-61_Eq_Name arg-10 arg-11))) (lambda (arg-10) (lambda (arg-11) (CoreC-45Name-u--C-47C-61_Eq_Name arg-10 arg-11)))) e-1 arg-8))) (if (null? sc1) (vector 0 e-0 e-1) (let ((e-2 (unbox sc1))) (TTImpC-45InteractiveC-45GenerateDef-n--9774-2091-u--fixNames arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-2))))))) ((17) (let ((e-2 (vector-ref arg-9 1))) (let ((e-3 (vector-ref arg-9 2))) (let ((sc1 (DataC-45List-lookup (cons (lambda (arg-10) (lambda (arg-11) (CoreC-45Name-u--C-61C-61_Eq_Name arg-10 arg-11))) (lambda (arg-10) (lambda (arg-11) (CoreC-45Name-u--C-47C-61_Eq_Name arg-10 arg-11)))) (vector 1 e-3) arg-8))) (if (null? sc1) (vector 17 e-2 e-3) (let ((e-4 (unbox sc1))) (TTImpC-45InteractiveC-45GenerateDef-n--9774-2091-u--fixNames arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-4))))))) ((8) (let ((e-4 (vector-ref arg-9 1))) (let ((e-5 (vector-ref arg-9 2))) (let ((e-6 (vector-ref arg-9 3))) (vector 8 e-4 (TTImpC-45InteractiveC-45GenerateDef-n--9774-2092-u--updateLHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-5) (TTImpC-45InteractiveC-45GenerateDef-n--9774-2092-u--updateLHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-6)))))) ((9) (let ((e-7 (vector-ref arg-9 1))) (let ((e-8 (vector-ref arg-9 2))) (let ((e-9 (vector-ref arg-9 3))) (vector 9 e-7 (TTImpC-45InteractiveC-45GenerateDef-n--9774-2092-u--updateLHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-8) (TTImpC-45InteractiveC-45GenerateDef-n--9774-2092-u--updateLHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-9)))))) ((10) (let ((e-10 (vector-ref arg-9 1))) (let ((e-11 (vector-ref arg-9 2))) (let ((e-12 (vector-ref arg-9 3))) (let ((e-13 (vector-ref arg-9 4))) (vector 10 e-10 (TTImpC-45InteractiveC-45GenerateDef-n--9774-2092-u--updateLHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-11) e-12 (TTImpC-45InteractiveC-45GenerateDef-n--9774-2092-u--updateLHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-13)))))))(else arg-9)))) +(define TTImpC-45InteractiveC-45GenerateDef-n--9241-1624-u--mkUniqueName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (case (vector-ref arg-4 0) ((30) (let ((e-0 (vector-ref arg-4 1))) (let ((e-1 (vector-ref arg-4 2))) (let ((act-24 (let ((act-24 (unbox arg-3))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (TTImpC-45Utils-uniqueName e-5 '() e-1 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (vector 30 e-0 e-6)))))))))))))(else (vector 1 arg-4))))) +(define TTImpC-45InteractiveC-45GenerateDef-n--10823-2996-u--getProp (lambda (arg-0 arg-1) (if (null? arg-1) (cons 0 0) (let ((e-2 (car arg-1))) (let ((e-3 (cdr arg-1))) (let ((sc1 (TTImpC-45InteractiveC-45GenerateDef-n--10823-2996-u--getProp arg-0 e-3))) (let ((e-5 (car sc1))) (let ((e-4 (cdr sc1))) (let ((sc2 (TTImpC-45InteractiveC-45GenerateDef-bindableUsed e-2))) (if (null? sc2) (cons e-5 e-4) (let ((e-6 (unbox sc2))) (let ((e-8 (car e-6))) (let ((e-7 (cdr e-6))) (cons (PreludeC-45Types-u--C-43_Num_Nat e-5 (PreludeC-45TypesC-45List-length (DataC-45List-nub (cons (lambda (arg-2) (lambda (arg-3) (CoreC-45Name-u--C-61C-61_Eq_Name arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (CoreC-45Name-u--C-47C-61_Eq_Name arg-4 arg-5)))) e-8))) (PreludeC-45Types-u--C-43_Num_Nat e-4 (PreludeC-45TypesC-45List-length (DataC-45List-nub (cons (lambda (arg-2) (lambda (arg-3) (CoreC-45Name-u--C-61C-61_Eq_Name arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (CoreC-45Name-u--C-47C-61_Eq_Name arg-4 arg-5)))) e-7))))))))))))))))) +(define TTImpC-45InteractiveC-45GenerateDef-n--9774-2091-u--fixNames (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (case (vector-ref arg-8 0) ((0) (let ((e-0 (vector-ref arg-8 1))) (let ((e-1 (vector-ref arg-8 2))) (case (vector-ref e-1 0) ((1) (let ((e-12 (vector-ref e-1 1))) (vector 17 e-0 e-12))) ((2) (vector 32 e-0 1))(else arg-8))))) ((8) (let ((e-2 (vector-ref arg-8 1))) (let ((e-3 (vector-ref arg-8 2))) (let ((e-4 (vector-ref arg-8 3))) (vector 8 e-2 (TTImpC-45InteractiveC-45GenerateDef-n--9774-2091-u--fixNames arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-3) (TTImpC-45InteractiveC-45GenerateDef-n--9774-2091-u--fixNames arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-4)))))) ((9) (let ((e-5 (vector-ref arg-8 1))) (let ((e-6 (vector-ref arg-8 2))) (let ((e-7 (vector-ref arg-8 3))) (vector 9 e-5 (TTImpC-45InteractiveC-45GenerateDef-n--9774-2091-u--fixNames arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-6) (TTImpC-45InteractiveC-45GenerateDef-n--9774-2091-u--fixNames arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-7)))))) ((10) (let ((e-8 (vector-ref arg-8 1))) (let ((e-9 (vector-ref arg-8 2))) (let ((e-10 (vector-ref arg-8 3))) (let ((e-11 (vector-ref arg-8 4))) (vector 10 e-8 (TTImpC-45InteractiveC-45GenerateDef-n--9774-2091-u--fixNames arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-9) e-10 (TTImpC-45InteractiveC-45GenerateDef-n--9774-2091-u--fixNames arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-11)))))))(else arg-8)))) +(define TTImpC-45InteractiveC-45GenerateDef-n--9282-1668-u--dropLams (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (cond ((equal? arg-7 0) arg-8)(else (let ((e-0 (- arg-7 1))) (case (vector-ref arg-8 0) ((2) (let ((e-6 (vector-ref arg-8 6))) (TTImpC-45InteractiveC-45GenerateDef-n--9282-1668-u--dropLams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-0 e-6)))(else arg-8))))))) +(define TTImpC-45InteractiveC-45GenerateDef-uniqueRHS (lambda (arg-0 arg-1 ext-0) (case (vector-ref arg-1 0) ((0) (let ((e-0 (vector-ref arg-1 1))) (let ((e-1 (vector-ref arg-1 2))) (let ((e-2 (vector-ref arg-1 3))) (let ((act-24 (TTImpC-45InteractiveC-45GenerateDef-n--9241-1624-u--mkUniqueName e-2 e-1 e-0 arg-0 e-2 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 0 e-0 e-1 e-5))))))))))(else (vector 1 arg-1))))) +(define TTImpC-45InteractiveC-45GenerateDef-trySplit (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 ((TTImpC-45InteractiveC-45CaseSplit-getSplitsLHS arg-0 arg-1 arg-2 arg-3 0 arg-5 arg-7) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (case (vector-ref e-5 0) ((1) (let ((e-1 (vector-ref e-5 1))) (vector 1 (cons arg-7 (PreludeC-45Types-u--map_Functor_List (lambda (u--ups) (vector 0 arg-3 (TTImpC-45InteractiveC-45GenerateDef-n--9774-2092-u--updateLHS arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 u--ups arg-4) arg-6)) (DataC-45List-mapMaybe (lambda (eta-0) (TTImpC-45InteractiveC-45GenerateDef-n--9774-2090-u--valid arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 eta-0)) e-1))))))(else (vector 1 (cons arg-7 '())))))))))) +(define TTImpC-45InteractiveC-45GenerateDef-tryAllSplits (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (if (null? arg-6) (lambda (eta-0) (TTImpC-45InteractiveC-45ExprSearch-noResult eta-0)) (let ((e-2 (car arg-6))) (let ((e-3 (cdr arg-6))) (let ((e-6 (car e-2))) (let ((e-7 (cdr e-2))) (if (null? e-7) (TTImpC-45InteractiveC-45GenerateDef-tryAllSplits arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3) (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-log arg-0 "interaction.generate" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Splitting on " (CoreC-45Name-u--show_Show_Name e-6))) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else ((TTImpC-45InteractiveC-45ExprSearch-trySearch arg-0 arg-2 (lambda (eta-1) (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (eta-2) (TTImpC-45InteractiveC-45GenerateDef-mkSplits arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 eta-2)) e-7 '() eta-1))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref act-25 1))) (TTImpC-45InteractiveC-45GenerateDef-collectClauses arg-0 arg-2 e-8 eta-1)))))) (TTImpC-45InteractiveC-45GenerateDef-tryAllSplits arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3)) eta-0))))))))))))) +(define TTImpC-45InteractiveC-45GenerateDef-splittableNames (lambda (arg-0) (case (vector-ref arg-0 0) ((8) (let ((e-1 (vector-ref arg-0 2))) (let ((e-2 (vector-ref arg-0 3))) (case (vector-ref e-2 0) ((17) (let ((e-11 (vector-ref e-2 2))) (PreludeC-45TypesC-45List-C-43C-43 (TTImpC-45InteractiveC-45GenerateDef-splittableNames e-1) (cons (vector 1 e-11) '()))))(else (TTImpC-45InteractiveC-45GenerateDef-splittableNames e-1)))))) ((9) (let ((e-4 (vector-ref arg-0 2))) (TTImpC-45InteractiveC-45GenerateDef-splittableNames e-4))) ((10) (let ((e-7 (vector-ref arg-0 2))) (TTImpC-45InteractiveC-45GenerateDef-splittableNames e-7)))(else '())))) +(define TTImpC-45InteractiveC-45GenerateDef-propBindableUsed (lambda (arg-0) (TTImpC-45InteractiveC-45GenerateDef-case--propBindableUsed-3082 arg-0 (TTImpC-45InteractiveC-45GenerateDef-n--10823-2996-u--getProp arg-0 arg-0)))) (define TTImpC-45InteractiveC-45GenerateDef-mostUsed (lambda (arg-0 arg-1) (PreludeC-45EqOrd-u--compare_Ord_Double (TTImpC-45InteractiveC-45GenerateDef-propBindableUsed arg-1) (TTImpC-45InteractiveC-45GenerateDef-propBindableUsed arg-0)))) -(define TTImpC-45InteractiveC-45GenerateDef-mkSplits (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (TTImpC-45InteractiveC-45ExprSearch-trySearch arg-0 arg-2 (lambda (eta-0) (TTImpC-45InteractiveC-45GenerateDef-case--mkSplits-1713 arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (let ((sc0 arg-4)) (let ((e-7 (vector-ref sc0 8))) e-7)) eta-0)) (lambda (eta-0) (let ((act-24 (TTImpC-45InteractiveC-45GenerateDef-generateSplits arg-1 arg-0 arg-2 arg-3 arg-4 arg-5 arg-6 eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (CoreC-45ContextC-45Log-log arg-0 "interaction.generate" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Splits: " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (CoreC-45Name-u--show_Show_Name x-0)) (lambda (u--d) (lambda (x-0) (CoreC-45Name-u--showPrec_Show_Name u--d x-0)))) (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (x-1) (TTImpC-45TTImp-u--show_Show_ImpClause x-1)) (lambda (u--d) (lambda (x-1) (TTImpC-45TTImp-u--showPrec_Show_ImpClause u--d x-1)))) x-0)) (lambda (u--d) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40ListC-32C-36aC-41 (cons (lambda (x-1) (TTImpC-45TTImp-u--show_Show_ImpClause x-1)) (lambda (d-0) (lambda (x-1) (TTImpC-45TTImp-u--showPrec_Show_ImpClause d-0 x-1)))) u--d x-0))))) u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (CoreC-45Name-u--show_Show_Name x-0)) (lambda (d-0) (lambda (x-0) (CoreC-45Name-u--showPrec_Show_Name d-0 x-0)))) (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (x-1) (TTImpC-45TTImp-u--show_Show_ImpClause x-1)) (lambda (d-0) (lambda (x-1) (TTImpC-45TTImp-u--showPrec_Show_ImpClause d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40ListC-32C-36aC-41 (cons (lambda (x-1) (TTImpC-45TTImp-u--show_Show_ImpClause x-1)) (lambda (d-1) (lambda (x-1) (TTImpC-45TTImp-u--showPrec_Show_ImpClause d-1 x-1)))) d-0 x-0))))) u--d u--x)))) e-5))) eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else ((TTImpC-45InteractiveC-45GenerateDef-tryAllSplits arg-0 arg-1 arg-2 arg-3 (let ((sc2 arg-4)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (let ((e-3 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-11 (vector-ref sc2 6))) (let ((e-10 (vector-ref sc2 7))) (let ((e-9 (vector-ref sc2 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-11 e-10 1 0 e-9)))))))))) arg-5 e-5) eta-0)))))))))))))) +(define TTImpC-45InteractiveC-45GenerateDef-mkSplits (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (TTImpC-45InteractiveC-45ExprSearch-trySearch arg-0 arg-2 (lambda (clam-0) (let ((sc0 (let ((e-7 (vector-ref arg-4 7))) e-7))) (cond ((equal? sc0 1) (TTImpC-45InteractiveC-45ExprSearch-noResult clam-0)) (else (TTImpC-45InteractiveC-45GenerateDef-expandClause arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 clam-0))))) (lambda (eta-0) (let ((act-24 (TTImpC-45InteractiveC-45GenerateDef-generateSplits arg-1 arg-0 arg-2 arg-3 arg-4 arg-5 arg-6 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45ContextC-45Log-log arg-0 "interaction.generate" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Splits: " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (CoreC-45Name-u--show_Show_Name x-0)) (lambda (u--d) (lambda (x-0) (CoreC-45Name-u--showPrec_Show_Name u--d x-0)))) (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (x-1) (TTImpC-45TTImp-u--show_Show_ImpClause x-1)) (lambda (u--d) (lambda (x-1) (TTImpC-45TTImp-u--showPrec_Show_ImpClause u--d x-1)))) x-0)) (lambda (u--d) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40ListC-32C-36aC-41 (cons (lambda (x-1) (TTImpC-45TTImp-u--show_Show_ImpClause x-1)) (lambda (d-0) (lambda (x-1) (TTImpC-45TTImp-u--showPrec_Show_ImpClause d-0 x-1)))) u--d x-0))))) u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (CoreC-45Name-u--show_Show_Name x-0)) (lambda (d-0) (lambda (x-0) (CoreC-45Name-u--showPrec_Show_Name d-0 x-0)))) (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (x-1) (TTImpC-45TTImp-u--show_Show_ImpClause x-1)) (lambda (d-0) (lambda (x-1) (TTImpC-45TTImp-u--showPrec_Show_ImpClause d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40ListC-32C-36aC-41 (cons (lambda (x-1) (TTImpC-45TTImp-u--show_Show_ImpClause x-1)) (lambda (d-1) (lambda (x-1) (TTImpC-45TTImp-u--showPrec_Show_ImpClause d-1 x-1)))) d-0 x-0))))) u--d u--x)))) e-5))) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else ((TTImpC-45InteractiveC-45GenerateDef-tryAllSplits arg-0 arg-1 arg-2 arg-3 (let ((e-0 (vector-ref arg-4 0))) (let ((e-1 (vector-ref arg-4 1))) (let ((e-2 (vector-ref arg-4 2))) (let ((e-3 (vector-ref arg-4 3))) (let ((e-4 (vector-ref arg-4 4))) (let ((e-11 (vector-ref arg-4 5))) (let ((e-10 (vector-ref arg-4 6))) (let ((e-9 (vector-ref arg-4 9))) (vector e-0 e-1 e-2 e-3 e-4 e-11 e-10 0 1 e-9))))))))) arg-5 e-5) eta-0)))))))))))) (define TTImpC-45InteractiveC-45GenerateDef-makeDefSort (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (TTImpC-45InteractiveC-45ExprSearch-searchSort arg-0 arg-2 arg-4 (lambda (eta-0) (TTImpC-45InteractiveC-45GenerateDef-makeDef arg-0 arg-1 arg-2 arg-3 arg-6 eta-0)) (lambda (u--x) (lambda (u--y) ((arg-5 (Builtin-snd u--x)) (Builtin-snd u--y)))) ext-0))) -(define TTImpC-45InteractiveC-45GenerateDef-makeDefN (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (TTImpC-45InteractiveC-45ExprSearch-searchN arg-0 arg-2 arg-4 (lambda (eta-0) (TTImpC-45InteractiveC-45GenerateDef-makeDef arg-0 arg-1 arg-2 arg-3 arg-5 eta-0)) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-2 (car sc1))) (vector 1 e-2)))))))))) -(define TTImpC-45InteractiveC-45GenerateDef-makeDefFromType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (CoreC-45UnifyState-tryUnify arg-0 arg-2 (lambda (eta-0) (let ((act-24 (CoreC-45Context-branch arg-0 eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (let ((act-26 (unbox arg-2))) (vector 1 act-26)))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (let ((act-27 ((CoreC-45Normalise-nf arg-0 '() e-5 '() arg-7) eta-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) ((TTImpC-45InteractiveC-45CaseSplit-getEnvArgNames arg-0 e-5 arg-6 e-8) eta-0)))))))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((u--pre_env (DataC-45List-replicate arg-6 (vector 32 arg-3 0)))) (let ((act-28 (TTImpC-45Utils-uniqueName e-5 '() (PreludeC-45TypesC-45String-C-43C-43 (TTImpC-45InteractiveC-45GenerateDef-fnName 1 arg-5) "_rhs") eta-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((u--initcs (vector 0 arg-3 (TTImpC-45TTImp-apply (vector 0 arg-3 arg-5) (PreludeC-45TypesC-45List-C-43C-43 u--pre_env (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (vector 17 arg-3 eta-1)) e-8))) (vector 30 arg-3 e-9)))) (TTImpC-45InteractiveC-45GenerateDef-case--makeDefFromType-1843 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 e-7 e-8 u--pre_env e-9 u--initcs (CoreC-45Context-getNameID arg-5 (let ((sc5 e-5)) (let ((e-0 (vector-ref sc5 1))) e-0))) eta-0))))))))))))))))))))))))))))) (lambda (eta-0) (TTImpC-45InteractiveC-45ExprSearch-noResult eta-0)) ext-0))) -(define TTImpC-45InteractiveC-45GenerateDef-makeDef (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (CoreC-45Metadata-findTyDeclAt arg-1 arg-3 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((sc2 e-1)) (let ((e-7 (car sc2))) (let ((e-6 (cdr sc2))) (let ((sc3 e-6)) (let ((e-9 (car sc3))) (let ((e-10 (cdr sc3))) (let ((sc4 e-10)) (let ((e-13 (car sc4))) (let ((e-14 (cdr sc4))) (let ((act-25 (CoreC-45Context-getFullName arg-0 e-9 ext-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-26 (CoreC-45ContextC-45Log-logTerm '() arg-0 "interaction.generate" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Searching for " (CoreC-45Name-u--show_Show_Name e-8))) e-14 ext-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((u--opts (let ((_-0 (vector 1 (cons e-7 (cons e-9 (cons e-13 e-14)))))) (TTImpC-45InteractiveC-45GenerateDef-case--caseC-32blockC-32inC-32makeDef-2038 arg-4 arg-3 arg-2 arg-1 arg-0 e-7 e-9 e-13 e-14 _-0 e-8 (TTImpC-45InteractiveC-45ExprSearch-initSearchOpts 0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (TTImpC-45InteractiveC-45GenerateDef-makeDefFromType arg-0 arg-1 arg-2 (CoreC-45FC-justFC e-7) u--opts e-8 e-13 e-14 ext-0)))))))))))))))))))))) (else (TTImpC-45InteractiveC-45ExprSearch-noResult ext-0))))))))))) -(define TTImpC-45InteractiveC-45GenerateDef-generateSplits (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((2) (vector 1 '())) ((1) (vector 1 '())) (else (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 3))) (let ((act-24 ((TTImpC-45Elab-elabTerm '() arg-1 arg-0 arg-2 arg-5 (vector 1 (AlgebraC-45Semiring-linear (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)))) '() '() '() (vector 16 arg-3 (vector 1 ) e-9) (vector 0 )) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (car sc2))) (let ((e-3 (cdr sc2))) (let ((u--splitnames (let ((_-0 (cons e-2 e-3))) (TTImpC-45InteractiveC-45GenerateDef-case--caseC-32blockC-32inC-32generateSplits-1502 e-10 e-9 e-8 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 e-3 e-2 _-0 (let ((sc3 arg-4)) (let ((e-6 (vector-ref sc3 7))) e-6)))))) (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (TTImpC-45InteractiveC-45GenerateDef-trySplit arg-0 arg-1 arg-2 e-8 e-9 e-2 e-10 eta-0 eta-1))) u--splitnames '() ext-0)))))))))))))))))) -(define TTImpC-45InteractiveC-45GenerateDef-fnName (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (TTImpC-45InteractiveC-45GenerateDef-case--fnName-735 e-0 arg-0 (ParserC-45LexerC-45Common-isIdentNormal e-0)))) ((0) (let ((e-2 (vector-ref sc0 2))) (TTImpC-45InteractiveC-45GenerateDef-fnName arg-0 e-2))) ((4) (let ((e-3 (vector-ref sc0 1))) e-3))(else (CoreC-45Name-nameRoot arg-1)))))) -(define TTImpC-45InteractiveC-45GenerateDef-expandClause (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 (TTImpC-45InteractiveC-45GenerateDef-uniqueRHS arg-0 arg-6 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (TTImpC-45ProcessDef-checkClause '() arg-0 arg-1 arg-2 (AlgebraC-45Semiring-linear (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))) (vector 0 ) (vector 2 ) 1 arg-5 '() '() '() e-5 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (let ((_-0 (vector 1 e-2))) (let ((sc3 e-2)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-4 (vector-ref sc3 3))) (let ((e-3 (vector-ref sc3 4))) (let ((u--clause (vector 0 e-0 e-1 e-4 e-3))) (TTImpC-45InteractiveC-45GenerateDef-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32expandClause-910 arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 _-0 e-0 e-3 e-4 e-1 u--clause (CoreC-45TT-getFn e-3) ext-0)))))))))) (else (TTImpC-45InteractiveC-45ExprSearch-noResult ext-0)))))))))))))))) -(define TTImpC-45InteractiveC-45GenerateDef-collectClauses (lambda (arg-0 arg-1 arg-2 ext-0) (let ((sc0 arg-2)) (if (null? sc0) (TTImpC-45InteractiveC-45ExprSearch-one '() ext-0) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((act-24 (TTImpC-45InteractiveC-45GenerateDef-collectClauses arg-0 arg-1 e-3 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (TTImpC-45InteractiveC-45ExprSearch-combine arg-0 arg-1 (lambda (eta-0) (lambda (eta-1) (PreludeC-45TypesC-45List-C-43C-43 eta-0 eta-1))) e-2 e-5 ext-0)))))))))))) -(define TTImpC-45InteractiveC-45GenerateDef-bindableUsed (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((u--lhsns (TTImpC-45Utils-findIBindVars e-1))) (let ((u--rhsns (TTImpC-45Utils-findAllNames '() e-2))) (vector 1 (cons u--lhsns (DataC-45List-filter (lambda (u--x) (PreludeC-45Types-elem (cons (lambda (arg-2) (lambda (arg-3) (CoreC-45Name-u--C-61C-61_Eq_Name arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (CoreC-45Name-u--C-47C-61_Eq_Name arg-4 arg-5)))) u--x u--lhsns)) u--rhsns))))))))(else (vector 0 )))))) -(define TTImpC-45InteractiveC-45ExprSearch-case--caseC-32blockC-32inC-32exprSearchOpts-8447 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 ext-0) (let ((sc0 arg-13)) (cond ((equal? sc0 0) (let ((act-24 (TTImpC-45InteractiveC-45ExprSearch-getLHSData arg-6 arg-7 arg-12 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (let ((sc2 arg-3)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-3 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-10 (vector-ref sc2 6))) (let ((e-6 (vector-ref sc2 7))) (let ((e-7 (vector-ref sc2 8))) (let ((e-8 (vector-ref sc2 9))) (let ((e-9 (vector-ref sc2 10))) (vector 0 e-0 e-1 e-5 e-3 e-4 e-10 e-6 e-7 e-8 e-9)))))))))))))))))) (else (vector 1 arg-3)))))) -(define TTImpC-45InteractiveC-45ExprSearch-case--getLHSDataC-44getLHS-8034 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-3 (vector-ref sc0 3))) (vector 1 (vector 0 arg-3 e-3 arg-4))))(else (vector 0 )))))) -(define TTImpC-45InteractiveC-45ExprSearch-case--caseC-32blockC-32inC-32search-7794 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 ext-0) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((7) (let ((e-0 (vector-ref sc0 1))) (TTImpC-45InteractiveC-45ExprSearch-searchHole arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-9 e-0 arg-1 arg-8 arg-11 ext-0))) ((8) (let ((act-24 (CoreC-45Normalise-getArity arg-7 '() arg-8 '() (let ((sc1 arg-11)) (let ((e-23 (vector-ref sc1 3))) e-23)) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (TTImpC-45InteractiveC-45ExprSearch-searchHole arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-9 e-5 arg-1 arg-8 arg-11 ext-0)))))))(else (let ((act-24 (CoreC-45ContextC-45Log-log arg-7 "interaction.search" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name arg-0) " not a hole")) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 (PreludeC-45TypesC-45String-C-43C-43 "Not a hole: " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name arg-9) (PreludeC-45TypesC-45String-C-43C-43 " in " (PreludeC-45Show-u--show_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45Name-u--show_Show_Name u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Name-u--showPrec_Show_Name u--d u--x)))) (PreludeC-45Types-u--map_Functor_Maybe (lambda (eta-0) (let ((sc1 eta-0)) (let ((e-1 (vector-ref sc1 2))) e-1))) (let ((sc1 arg-2)) (let ((e-2 (vector-ref sc1 3))) e-2)))))))) ext-0)))))))))) -(define TTImpC-45InteractiveC-45ExprSearch-case--caseC-32blockC-32inC-32searchType-7512 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (cons (TTImpC-45InteractiveC-45ExprSearch-tryIntermediate arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-2 arg-3) '())) (else '()))))) -(define TTImpC-45InteractiveC-45ExprSearch-case--caseC-32blockC-32inC-32searchType-7447 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (cond ((equal? sc0 0) '()) (else (cons (lambda (eta-0) (TTImpC-45InteractiveC-45ExprSearch-tryIntermediateRec arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-2 arg-3 (let ((sc1 arg-5)) (let ((e-2 (vector-ref sc1 3))) e-2)) eta-0)) '())))))) -(define TTImpC-45InteractiveC-45ExprSearch-case--caseC-32blockC-32inC-32searchType-7375 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((0) '()) (else (let ((e-2 (vector-ref sc0 1))) (cons (lambda (eta-0) (TTImpC-45InteractiveC-45ExprSearch-tryRecursive arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-2 arg-3 e-2 eta-0)) '()))))))) -(define TTImpC-45InteractiveC-45ExprSearch-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32searchType-7155 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (case (vector-ref sc0 0) ((0) '()) (else (let ((e-2 (vector-ref sc0 1))) (cons (lambda (eta-0) (TTImpC-45InteractiveC-45ExprSearch-tryRecursive arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-2 arg-3 e-2 eta-0)) '()))))))) -(define TTImpC-45InteractiveC-45ExprSearch-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32searchType-7055 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21) (let ((sc0 arg-21)) (cond ((equal? sc0 0) (cons (lambda (eta-0) (TTImpC-45InteractiveC-45ExprSearch-tryIntermediateRec arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-2 arg-3 (let ((sc1 arg-5)) (let ((e-2 (vector-ref sc1 3))) e-2)) eta-0)) '())) (else '()))))) -(define TTImpC-45InteractiveC-45ExprSearch-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32searchType-6952 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (cond ((equal? sc0 0) (cons (TTImpC-45InteractiveC-45ExprSearch-tryIntermediate arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-2 arg-3) '())) (else '()))))) -(define TTImpC-45InteractiveC-45ExprSearch-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32searchType-6808 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (let ((sc0 arg-23)) (cond ((equal? sc0 0) (PreludeC-45TypesC-45List-C-43C-43 arg-20 (PreludeC-45TypesC-45List-C-43C-43 arg-22 arg-19))) (else (PreludeC-45TypesC-45List-C-43C-43 arg-22 (PreludeC-45TypesC-45List-C-43C-43 arg-19 (PreludeC-45TypesC-45List-C-43C-43 arg-20 arg-21)))))))) -(define TTImpC-45InteractiveC-45ExprSearch-case--caseC-32blockC-32inC-32searchType-6743 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 ext-0) (let ((sc0 arg-17)) (cond ((equal? sc0 0) (let ((act-24 (CoreC-45Context-getSearchData arg-10 arg-7 1 arg-13 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((u--allHints (PreludeC-45Interfaces-concat (cons (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (cons (lambda (arg-18) (lambda (arg-19) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-18 arg-19))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) (let ((sc2 e-5)) (let ((e-1 (cdr sc2))) e-1)))))) (let ((act-25 (CoreC-45ContextC-45Log-log arg-10 "interaction.search" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Hints found for " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name arg-13) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45Name-u--show_Show_Name u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Name-u--showPrec_Show_Name u--d u--x)))) u--allHints))))) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((u--tries (cons (TTImpC-45InteractiveC-45ExprSearch-searchLocal arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-2 arg-3) (cons (lambda (eta-0) (TTImpC-45InteractiveC-45ExprSearch-searchNames arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-2 arg-3 u--allHints eta-0)) '())))) (let ((u--tryRec (TTImpC-45InteractiveC-45ExprSearch-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32searchType-7155 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 e-5 u--allHints u--tries (let ((sc3 arg-5)) (let ((e-2 (vector-ref sc3 3))) e-2))))) (let ((u--tryIntRec (TTImpC-45InteractiveC-45ExprSearch-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32searchType-7055 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 e-5 u--allHints u--tries u--tryRec (let ((sc3 arg-5)) (let ((e-8 (vector-ref sc3 9))) e-8))))) (let ((u--tryInt (TTImpC-45InteractiveC-45ExprSearch-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32searchType-6952 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 e-5 u--allHints u--tries u--tryRec u--tryIntRec (let ((sc3 (let ((sc4 arg-5)) (let ((e-11 (vector-ref sc4 6))) e-11)))) (cond ((equal? sc3 0) 1) (else 0)))))) (let ((u--allns (TTImpC-45InteractiveC-45ExprSearch-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32searchType-6808 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 e-5 u--allHints u--tries u--tryRec u--tryIntRec u--tryInt (let ((sc3 arg-5)) (let ((e-4 (vector-ref sc3 5))) e-4))))) (TTImpC-45InteractiveC-45ExprSearch-getSuccessful arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 0 arg-4 arg-2 arg-3 u--allns ext-0))))))))))))))))) (else (TTImpC-45InteractiveC-45ExprSearch-noResult ext-0)))))) -(define TTImpC-45InteractiveC-45ExprSearch-case--searchType-6698 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (if (null? sc0) (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-logTerm arg-0 arg-10 "interaction.search" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Searching locals only at") arg-2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((u--tryInt (TTImpC-45InteractiveC-45ExprSearch-case--caseC-32blockC-32inC-32searchType-7512 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 (let ((sc2 (let ((sc3 arg-5)) (let ((e-10 (vector-ref sc3 6))) e-10)))) (cond ((equal? sc2 0) 1) (else 0)))))) (let ((u--tryIntRec (TTImpC-45InteractiveC-45ExprSearch-case--caseC-32blockC-32inC-32searchType-7447 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 u--tryInt (PreludeC-45Basics-C-124C-124 (let ((sc2 arg-5)) (let ((e-4 (vector-ref sc2 5))) e-4)) (lambda () (let ((sc2 (let ((sc3 arg-5)) (let ((e-8 (vector-ref sc3 9))) e-8)))) (cond ((equal? sc2 0) 1) (else 0)))))))) (TTImpC-45InteractiveC-45ExprSearch-getSuccessful arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 0 arg-4 arg-2 arg-3 (PreludeC-45TypesC-45List-C-43C-43 u--tryInt (PreludeC-45TypesC-45List-C-43C-43 (cons (TTImpC-45InteractiveC-45ExprSearch-searchLocal arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-2 arg-3) '()) (PreludeC-45TypesC-45List-C-43C-43 (TTImpC-45InteractiveC-45ExprSearch-case--caseC-32blockC-32inC-32searchType-7375 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 u--tryInt u--tryIntRec (let ((sc2 arg-5)) (let ((e-2 (vector-ref sc2 3))) e-2))) u--tryIntRec))) eta-0)))))))) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (lambda (clam-0) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((e-7 (vector-ref sc1 3))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((3) (let ((e-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (let ((act-24 (let ((act-24 (unbox arg-10))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc3 1))) (TTImpC-45InteractiveC-45ExprSearch-case--caseC-32blockC-32inC-32searchType-6743 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-9 e-8 e-7 e-5 e-3 e-10 (PreludeC-45Types-u--C-61C-61_Eq_Nat (PreludeC-45TypesC-45List-length e-3) e-9) clam-0)))))))))(else (let ((act-24 (CoreC-45ContextC-45Log-logTerm arg-0 arg-10 "interaction.search" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Searching locals only at") arg-2 clam-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((u--tryInt (TTImpC-45InteractiveC-45ExprSearch-case--caseC-32blockC-32inC-32searchType-7512 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 (let ((sc3 (let ((sc4 arg-5)) (let ((e-13 (vector-ref sc4 6))) e-13)))) (cond ((equal? sc3 0) 1) (else 0)))))) (let ((u--tryIntRec (TTImpC-45InteractiveC-45ExprSearch-case--caseC-32blockC-32inC-32searchType-7447 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 u--tryInt (PreludeC-45Basics-C-124C-124 (let ((sc3 arg-5)) (let ((e-4 (vector-ref sc3 5))) e-4)) (lambda () (let ((sc3 (let ((sc4 arg-5)) (let ((e-10 (vector-ref sc4 9))) e-10)))) (cond ((equal? sc3 0) 1) (else 0)))))))) (TTImpC-45InteractiveC-45ExprSearch-getSuccessful arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 0 arg-4 arg-2 arg-3 (PreludeC-45TypesC-45List-C-43C-43 u--tryInt (PreludeC-45TypesC-45List-C-43C-43 (cons (TTImpC-45InteractiveC-45ExprSearch-searchLocal arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-2 arg-3) '()) (PreludeC-45TypesC-45List-C-43C-43 (TTImpC-45InteractiveC-45ExprSearch-case--caseC-32blockC-32inC-32searchType-7375 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 u--tryInt u--tryIntRec (let ((sc3 arg-5)) (let ((e-15 (vector-ref sc3 3))) e-15))) u--tryIntRec))) clam-0))))))))))))))(else (let ((act-24 (CoreC-45ContextC-45Log-logTerm arg-0 arg-10 "interaction.search" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Searching locals only at") arg-2 clam-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((u--tryInt (TTImpC-45InteractiveC-45ExprSearch-case--caseC-32blockC-32inC-32searchType-7512 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 (let ((sc2 (let ((sc3 arg-5)) (let ((e-10 (vector-ref sc3 6))) e-10)))) (cond ((equal? sc2 0) 1) (else 0)))))) (let ((u--tryIntRec (TTImpC-45InteractiveC-45ExprSearch-case--caseC-32blockC-32inC-32searchType-7447 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 u--tryInt (PreludeC-45Basics-C-124C-124 (let ((sc2 arg-5)) (let ((e-4 (vector-ref sc2 5))) e-4)) (lambda () (let ((sc2 (let ((sc3 arg-5)) (let ((e-8 (vector-ref sc3 9))) e-8)))) (cond ((equal? sc2 0) 1) (else 0)))))))) (TTImpC-45InteractiveC-45ExprSearch-getSuccessful arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 0 arg-4 arg-2 arg-3 (PreludeC-45TypesC-45List-C-43C-43 u--tryInt (PreludeC-45TypesC-45List-C-43C-43 (cons (TTImpC-45InteractiveC-45ExprSearch-searchLocal arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-2 arg-3) '()) (PreludeC-45TypesC-45List-C-43C-43 (TTImpC-45InteractiveC-45ExprSearch-case--caseC-32blockC-32inC-32searchType-7375 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 u--tryInt u--tryIntRec (let ((sc2 arg-5)) (let ((e-12 (vector-ref sc2 3))) e-12))) u--tryIntRec))) clam-0))))))))))))))))) -(define TTImpC-45InteractiveC-45ExprSearch-case--caseC-32blockC-32inC-32makeHelper-5029 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 ext-0) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((act-24 (let ((act-24 (unbox arg-12))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45UnifyState-genVarName arg-12 arg-10 "cval" ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (CoreC-45UnifyState-genCaseName arg-12 arg-10 "search" ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (CoreC-45Context-inCurrentNS arg-12 e-7 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((u--envC-39 (cons (vector 0 arg-9 (AlgebraC-45ZeroOneOmega-u--top_Top_ZeroOneOmega) (vector 1 ) arg-5) arg-6))) (let ((act-28 (TTImpC-45ElabC-45Check-metaVar (cons e-6 arg-0) arg-12 arg-10 arg-9 (AlgebraC-45ZeroOneOmega-u--top_Top_ZeroOneOmega) u--envC-39 e-8 (CoreC-45TT-u--weaken_Weaken_Term arg-4) ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((u--scope (TTImpC-45InteractiveC-45ExprSearch-n--17878-4972-u--toApp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-9))) (let ((act-29 (CoreC-45Context-updateDef arg-12 e-8 (lambda (eta-0) (vector 1 (vector 0 ))) ext-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((u--def (vector 4 arg-9 (vector 3 arg-9 e-6 (vector 0 arg-9 (AlgebraC-45ZeroOneOmega-u--top_Top_ZeroOneOmega) (vector 1 ) arg-5) u--scope) arg-1))) (let ((act-30 (CoreC-45Normalise-logTermNF arg-0 arg-12 "interaction.search" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Binding def") arg-6 u--def ext-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((act-31 (let ((act-31 (unbox arg-12))) (vector 1 act-31)))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-32 (CoreC-45Context-lookupTyExact e-8 (let ((sc9 e-12)) (let ((e-0 (vector-ref sc9 1))) e-0)) ext-0))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref sc9 1))) (let ((sc10 e-13)) (case (vector-ref sc10 0) ((1) (let ((e-2 (vector-ref sc10 1))) (let ((act-33 (CoreC-45Normalise-logTermNF '() arg-12 "interaction.search" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Type of scope name") '() e-2 ext-0))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-3 (vector-ref sc11 1))) (vector 0 e-3))) (else (let ((act-34 (TTImpC-45InteractiveC-45ExprSearch-searchN arg-12 arg-10 (+ 1 0) ((((e-1 (let ((sc12 arg-7)) (let ((e-0 (vector-ref sc12 1))) (let ((e-20 (vector-ref sc12 3))) (let ((e-4 (vector-ref sc12 5))) (let ((e-16 (vector-ref sc12 9))) (let ((e-15 (vector-ref sc12 10))) (vector 0 e-0 1 e-20 arg-13 e-4 0 1 0 e-16 e-15)))))))) e-8) 0) e-2) ext-0))) (let ((sc12 act-34)) (case (vector-ref sc12 0) ((0) (let ((e-3 (vector-ref sc12 1))) (vector 0 e-3))) (else (let ((e-15 (vector-ref sc12 1))) (let ((sc13 e-15)) (if (null? sc13) (let ((act-35 (CoreC-45ContextC-45Log-log arg-12 "interaction.search" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "No results") ext-0))) (let ((sc14 act-35)) (case (vector-ref sc14 0) ((0) (let ((e-3 (vector-ref sc14 1))) (vector 0 e-3))) (else (TTImpC-45InteractiveC-45ExprSearch-noResult ext-0))))) (let ((e-4 (car sc13))) (let ((sc14 e-4)) (if (null? sc14) (let ((act-35 (CoreC-45ContextC-45Log-log arg-12 "interaction.search" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "No results") ext-0))) (let ((sc15 act-35)) (case (vector-ref sc15 0) ((0) (let ((e-16 (vector-ref sc15 1))) (vector 0 e-16))) (else (TTImpC-45InteractiveC-45ExprSearch-noResult ext-0))))) (let ((e-17 (car sc14))) (let ((u--helperdef (vector 2 arg-9 e-8 (Builtin-snd e-17)))) (let ((act-35 (CoreC-45ContextC-45Log-log arg-12 "interaction.search" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Def: " (TTImpC-45TTImp-u--show_Show_ImpDecl u--helperdef))) ext-0))) (let ((sc15 act-35)) (case (vector-ref sc15 0) ((0) (let ((e-18 (vector-ref sc15 1))) (vector 0 e-18))) (else (vector 1 (cons (cons u--def (cons u--helperdef arg-2)) (lambda (eta-0) (let ((act-36 (arg-3 eta-0))) (let ((sc16 act-36)) (case (vector-ref sc16 0) ((0) (let ((e-19 (vector-ref sc16 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref sc16 1))) ((TTImpC-45InteractiveC-45ExprSearch-makeHelper arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 e-19) eta-0))))))))))))))))))))))))))))))) (else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 "Can't happen") ext-0))))))))))))))))))))))))))))))))))))))))))))))))))) (else (TTImpC-45InteractiveC-45ExprSearch-noResult ext-0)))))) -(define TTImpC-45InteractiveC-45ExprSearch-case--makeHelper-4988 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (cond ((equal? sc0 0) (lambda (eta-0) (TTImpC-45InteractiveC-45ExprSearch-noResult eta-0)))(else (let ((e-0 (- arg-13 1))) (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-logTerm arg-0 arg-12 "interaction.search" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Local app") arg-1 eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (TTImpC-45InteractiveC-45ExprSearch-case--caseC-32blockC-32inC-32makeHelper-5029 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-0 (let ((sc1 arg-7)) (let ((e-9 (vector-ref sc1 10))) e-9)) eta-0)))))))))))) -(define TTImpC-45InteractiveC-45ExprSearch-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32searchLocalWithC-44findDirect-4383 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 ext-0) (let ((sc0 arg-23)) (if (null? sc0) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (TTImpC-45InteractiveC-45ExprSearch-searchIfHole arg-0 arg-13 arg-12 arg-11 arg-10 arg-7 arg-4 arg-6 eta-0)) arg-19 '() ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((TTImpC-45InteractiveC-45ExprSearch-mkCandidates arg-0 arg-13 arg-11 arg-10 (arg-16 arg-17) '() e-5) ext-0)))))) (TTImpC-45InteractiveC-45ExprSearch-noResult ext-0))))) -(define TTImpC-45InteractiveC-45ExprSearch-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32searchLocalWithC-44findDirect-4269 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (let ((sc0 arg-23)) (if (null? sc0) (TTImpC-45InteractiveC-45ExprSearch-mkCandidates arg-0 arg-13 arg-11 arg-10 (arg-16 arg-17) '() '()) (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 "Can't use directly") eta-0)))))) -(define TTImpC-45InteractiveC-45ExprSearch-case--caseC-32blockC-32inC-32searchLocalWithC-44findDirect-4181 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 ext-0) (let ((sc0 arg-22)) (cond ((equal? sc0 0) (CoreC-45UnifyState-tryUnify arg-13 arg-11 (lambda (eta-0) (let ((act-24 (let ((sc1 (PreludeC-45Basics-C-38C-38 (let ((sc2 (DataC-45List-isNil arg-19))) (cond ((equal? sc2 0) 1) (else 0))) (lambda () arg-9)))) (cond ((equal? sc1 0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 "Must apply function") eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((((CoreC-45Unify-unify (cons (lambda (u--vars) (lambda (arg-4911) (lambda (arg-4913) (lambda (arg-4915) (lambda (arg-4916) (lambda (arg-4917) (lambda (arg-4919) (lambda (arg-4922) (CoreC-45Unify-u--unifyD_Unify_NF u--vars arg-4911 arg-4913 arg-4915 arg-4916 arg-4917 arg-4919 arg-4922))))))))) (lambda (u--vars) (lambda (arg-4924) (lambda (arg-4926) (lambda (arg-4928) (lambda (arg-4929) (lambda (arg-4930) (lambda (arg-4932) (lambda (arg-4933) (CoreC-45Unify-u--unifyWithLazyD_Unify_NF u--vars arg-4924 arg-4926 arg-4928 arg-4929 arg-4930 arg-4932 arg-4933)))))))))) arg-0 arg-13 arg-11 (CoreC-45Unify-inTerm) arg-10 arg-6) arg-14) arg-15) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((TTImpC-45InteractiveC-45ExprSearch-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32searchLocalWithC-44findDirect-4269 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 e-6 (let ((sc3 e-6)) (let ((e-0 (vector-ref sc3 1))) e-0))) eta-0))))))))))) (lambda (eta-0) (let ((act-24 ((((CoreC-45Unify-unify (cons (lambda (u--vars) (lambda (arg-4911) (lambda (arg-4913) (lambda (arg-4915) (lambda (arg-4916) (lambda (arg-4917) (lambda (arg-4919) (lambda (arg-4922) (CoreC-45Unify-u--unifyD_Unify_NF u--vars arg-4911 arg-4913 arg-4915 arg-4916 arg-4917 arg-4919 arg-4922))))))))) (lambda (u--vars) (lambda (arg-4924) (lambda (arg-4926) (lambda (arg-4928) (lambda (arg-4929) (lambda (arg-4930) (lambda (arg-4932) (lambda (arg-4933) (CoreC-45Unify-u--unifyWithLazyD_Unify_NF u--vars arg-4924 arg-4926 arg-4928 arg-4929 arg-4930 arg-4932 arg-4933)))))))))) arg-0 arg-13 arg-11 (CoreC-45Unify-inTerm) arg-10 arg-6) arg-14) arg-20) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (TTImpC-45InteractiveC-45ExprSearch-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32searchLocalWithC-44findDirect-4383 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 e-5 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) eta-0))))))) ext-0)) (else (TTImpC-45InteractiveC-45ExprSearch-noResult ext-0)))))) -(define TTImpC-45InteractiveC-45ExprSearch-case--caseC-32blockC-32inC-32tryRecursiveC-44structDiff-3791 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (TTImpC-45InteractiveC-45ExprSearch-n--16109-3371-u--appsDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-15 e-2 arg-16 e-3)))))) -(define TTImpC-45InteractiveC-45ExprSearch-case--tryRecursiveC-44structDiff-3751 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (TTImpC-45InteractiveC-45ExprSearch-case--caseC-32blockC-32inC-32tryRecursiveC-44structDiff-3791 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-13 arg-14 e-2 e-3 (CoreC-45TT-getFnArgs arg-13))))))) -(define TTImpC-45InteractiveC-45ExprSearch-case--caseC-32blockC-32inC-32searchNamesC-44visible-3162 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 ext-0) (let ((sc0 arg-17)) (cond ((equal? sc0 0) (vector 1 (vector 1 (cons arg-12 arg-15)))) (else (vector 1 (vector 0 ))))))) -(define TTImpC-45InteractiveC-45ExprSearch-case--caseC-32blockC-32inC-32getSuccessful-2923 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 ext-0) (let ((sc0 arg-13)) (cond ((equal? sc0 0) (let ((act-24 (let ((act-24 (unbox arg-11))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((u--base (PreludeC-45Types-maybe (lambda () "arg") (lambda () (lambda (u--r) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-nameRoot (let ((sc2 u--r)) (let ((e-1 (vector-ref sc2 2))) e-1))) "_rhs"))) (let ((sc2 arg-6)) (let ((e-2 (vector-ref sc2 3))) e-2))))) (let ((act-25 (TTImpC-45Utils-uniqueName e-5 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45Name-nameRoot eta-0)) arg-0) u--base ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((CoreC-45UnifyState-newMeta arg-0 arg-11 arg-9 arg-8 arg-7 arg-4 (vector 1 e-6) arg-3 (vector 7 (CoreC-45Env-length arg-4) (CoreC-45Context-holeInit 1)) 1) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (let ((e-3 (cdr sc4))) (TTImpC-45InteractiveC-45ExprSearch-one (cons e-3 '()) ext-0)))))))))))))))))))) (else (TTImpC-45InteractiveC-45ExprSearch-noResult ext-0)))))) -(define TTImpC-45InteractiveC-45ExprSearch-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32searchName-2673 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 ext-0) (let ((sc0 arg-22)) (if (null? sc0) (let ((act-24 (CoreC-45Core-traverse_ (lambda (eta-0) (TTImpC-45InteractiveC-45ExprSearch-searchIfHole arg-0 arg-11 arg-10 arg-9 arg-8 arg-6 arg-3 arg-5 eta-0)) (DataC-45List-filter (lambda (eta-0) (TTImpC-45InteractiveC-45ExprSearch-explicit eta-0)) arg-18) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (eta-0) (TTImpC-45InteractiveC-45ExprSearch-searchIfHole arg-0 arg-11 arg-10 arg-9 arg-8 arg-6 arg-3 arg-5 eta-0)) arg-18 '() ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((TTImpC-45InteractiveC-45ExprSearch-mkCandidates arg-0 arg-11 arg-9 arg-8 (vector 1 arg-8 arg-16 arg-1) '() e-6) ext-0)))))))))) (TTImpC-45InteractiveC-45ExprSearch-noResult ext-0))))) -(define TTImpC-45InteractiveC-45ExprSearch-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32searchName-2449 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((5) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (vector 2 e-0 e-1)))) ((6) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (vector 3 e-3 e-4))))(else (vector 1 )))))) -(define TTImpC-45InteractiveC-45ExprSearch-case--caseC-32blockC-32inC-32searchName-2413 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (cond ((equal? sc0 0) (let ((u--namety (TTImpC-45InteractiveC-45ExprSearch-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32searchName-2449 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 (let ((sc1 arg-2)) (let ((e-17 (vector-ref sc1 18))) e-17))))) (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-log arg-11 "interaction.search" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Trying " (CoreC-45Name-u--show_Show_Name (let ((sc1 arg-2)) (let ((e-1 (vector-ref sc1 2))) e-1))))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((CoreC-45Normalise-nf arg-11 arg-0 arg-12 arg-5 (CoreC-45TT-embed arg-15)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (CoreC-45AutoSearch-mkArgs arg-0 arg-11 arg-9 arg-8 arg-7 arg-5 e-6 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (let ((e-2 (car sc4))) (let ((e-3 (cdr sc4))) (let ((act-27 (CoreC-45Normalise-logNF arg-0 arg-11 "interaction.search" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Target") arg-5 arg-4 eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((act-28 (CoreC-45Normalise-logNF arg-0 arg-11 "interaction.search" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "App type") arg-5 e-3 eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((act-29 ((((CoreC-45Unify-unify (cons (lambda (u--vars) (lambda (arg-4911) (lambda (arg-4913) (lambda (arg-4915) (lambda (arg-4916) (lambda (arg-4917) (lambda (arg-4919) (lambda (arg-4922) (CoreC-45Unify-u--unifyD_Unify_NF u--vars arg-4911 arg-4913 arg-4915 arg-4916 arg-4917 arg-4919 arg-4922))))))))) (lambda (u--vars) (lambda (arg-4924) (lambda (arg-4926) (lambda (arg-4928) (lambda (arg-4929) (lambda (arg-4930) (lambda (arg-4932) (lambda (arg-4933) (CoreC-45Unify-u--unifyWithLazyD_Unify_NF u--vars arg-4924 arg-4926 arg-4928 arg-4929 arg-4930 arg-4932 arg-4933)))))))))) arg-0 arg-11 arg-9 (CoreC-45Unify-inSearch) arg-8 arg-5) arg-4) e-3) eta-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc7 1))) (let ((_-0 (cons e-2 e-3))) (TTImpC-45InteractiveC-45ExprSearch-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32searchName-2673 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 u--namety e-6 e-2 e-3 _-0 e-10 (let ((sc8 e-10)) (let ((e-0 (vector-ref sc8 1))) e-0)) eta-0)))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (TTImpC-45InteractiveC-45ExprSearch-noResult eta-0))))))) -(define TTImpC-45InteractiveC-45ExprSearch-case--searchName-2378 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (cond ((equal? sc0 0) (let ((u--ty (let ((sc1 arg-2)) (let ((e-2 (vector-ref sc1 3))) e-2)))) (TTImpC-45InteractiveC-45ExprSearch-case--caseC-32blockC-32inC-32searchName-2413 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 u--ty (TTImpC-45InteractiveC-45ExprSearch-n--14920-2339-u--usableName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 (let ((sc1 arg-2)) (let ((e-1 (vector-ref sc1 2))) e-1))))))(else (lambda (eta-0) (TTImpC-45InteractiveC-45ExprSearch-noResult eta-0))))))) -(define TTImpC-45InteractiveC-45ExprSearch-case--explicit-1996 (lambda (arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) 0)(else 1))))) -(define TTImpC-45InteractiveC-45ExprSearch-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32searchIfHole-1754 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 ext-0) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((7) (let ((act-24 (TTImpC-45InteractiveC-45ExprSearch-search arg-8 arg-7 arg-6 arg-5 arg-11 (let ((sc1 arg-4)) (let ((e-11 (vector-ref sc1 1))) (let ((e-10 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (vector 0 e-11 e-10 e-2 arg-9 0 e-5 e-6 e-7 e-8 e-9)))))))))) arg-3 (vector 9 arg-10) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (TTImpC-45InteractiveC-45ExprSearch-traverse (lambda (lamc-0) (lambda (clam-1) (let ((sc2 lamc-0)) (let ((e-2 (car sc2))) (let ((e-3 (cdr sc2))) (let ((act-25 (CoreC-45Normalise-normaliseHoles arg-8 arg-0 arg-12 arg-2 (CoreC-45UnifyState-applyTo arg-0 arg-5 (CoreC-45TT-embed e-2) arg-2) clam-1))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 (cons e-6 e-3)))))))))))) e-5 ext-0)))))))(else (let ((act-24 (CoreC-45Normalise-normaliseHoles arg-8 arg-0 arg-12 arg-2 (let ((sc0 arg-1)) (let ((e-4 (vector-ref sc0 4))) e-4)) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (TTImpC-45InteractiveC-45ExprSearch-one (cons e-5 '()) ext-0))))))))))) -(define TTImpC-45InteractiveC-45ExprSearch-case--searchIfHole-1661 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (lambda (eta-0) (TTImpC-45InteractiveC-45ExprSearch-noResult eta-0)))(else (let ((e-0 (- arg-9 1))) (let ((u--hole (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) e-1)))) (let ((u--rig (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) e-2)))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-8))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact (vector 9 u--hole) (let ((sc1 e-5)) (let ((e-29 (vector-ref sc1 1))) e-29))) eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((_-0 (vector 1 e-1))) (TTImpC-45InteractiveC-45ExprSearch-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32searchIfHole-1754 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-0 u--hole u--rig e-5 e-1 _-0 (let ((sc3 e-1)) (let ((e-17 (vector-ref sc3 18))) e-17)) eta-0)))) (else (TTImpC-45InteractiveC-45ExprSearch-noResult eta-0))))))))))))))))))))))) -(define TTImpC-45InteractiveC-45ExprSearch-case--getAllEnv-1514 (lambda (arg-0 arg-1 arg-2 arg-3 arg-5 arg-6 arg-7 arg-8) (let ((u--usable (TTImpC-45InteractiveC-45ExprSearch-n--13967-1490-u--usableName arg-0 arg-1 arg-2 arg-3 arg-5 arg-6 arg-0))) (let ((sc0 u--usable)) (cond ((equal? sc0 0) (cons (cons (vector 0 arg-6 (vector 0 ) arg-8) (CoreC-45TT-u--weakenNs_Weaken_Term (CoreC-45TTC-45SizeOf-sucR arg-5) (CoreC-45TT-binderType arg-3))) arg-7)) (else arg-7)))))) -(define TTImpC-45InteractiveC-45ExprSearch-case--caseC-32blockC-32inC-32searchSort-1138 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 '()))) (else (lambda (eta-0) (TTImpC-45InteractiveC-45ExprSearch-n--13549-1088-u--returnBatch arg-1 arg-2 arg-3 arg-4 arg-5 (DataC-45List-sortBy arg-1 arg-6) arg-7 eta-0))))))) -(define TTImpC-45InteractiveC-45ExprSearch-case--filterS-910 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (cons arg-1 arg-5)))) (else arg-5))))) -(define TTImpC-45InteractiveC-45ExprSearch-n--15817-3115-u--visible (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 ext-0) (let ((act-24 ((CoreC-45Context-lookupCtxtExact arg-14 arg-12) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((_-0 (vector 1 e-1))) (TTImpC-45InteractiveC-45ExprSearch-case--caseC-32blockC-32inC-32searchNamesC-44visible-3162 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-14 arg-13 arg-12 e-1 _-0 (CoreC-45Context-visibleInAny arg-13 arg-14 (let ((sc2 e-1)) (let ((e-9 (vector-ref sc2 10))) e-9))) ext-0)))) (else (vector 1 (vector 0 )))))))))))) -(define TTImpC-45InteractiveC-45ExprSearch-n--14920-2339-u--usableName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((1) 0) ((0) (let ((e-2 (vector-ref sc0 2))) (TTImpC-45InteractiveC-45ExprSearch-n--14920-2339-u--usableName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-2))) ((6) (let ((e-4 (vector-ref sc0 2))) (TTImpC-45InteractiveC-45ExprSearch-n--14920-2339-u--usableName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-4)))(else 1))))) -(define TTImpC-45InteractiveC-45ExprSearch-n--13967-1490-u--usableName (lambda (arg-0 arg-1 arg-2 arg-3 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) 0)(else 1))))) -(define TTImpC-45InteractiveC-45ExprSearch-n--17878-4972-u--toApp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (CoreC-45TT-apply e-1 (vector 1 e-1 (vector 1 ) (vector 9 e-3)) e-4)))))(else arg-14))))) -(define TTImpC-45InteractiveC-45ExprSearch-n--16109-3373-u--structDiffTm (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-13 arg-14) (let ((sc0 arg-14)) (let ((e-2 (car sc0))) (TTImpC-45InteractiveC-45ExprSearch-n--16109-3372-u--structDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-13 e-2))))) -(define TTImpC-45InteractiveC-45ExprSearch-n--16109-3372-u--structDiff (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-13 arg-14) (TTImpC-45InteractiveC-45ExprSearch-case--tryRecursiveC-44structDiff-3751 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-14 arg-13 (CoreC-45TT-getFnArgs arg-13)))) -(define TTImpC-45InteractiveC-45ExprSearch-n--13549-1088-u--returnBatch (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((sc0 arg-6)) (if (null? sc0) (TTImpC-45InteractiveC-45ExprSearch-searchSort arg-5 arg-4 arg-3 arg-7 arg-1 ext-0) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (vector 1 (cons e-2 (lambda (eta-0) (TTImpC-45InteractiveC-45ExprSearch-n--13549-1088-u--returnBatch arg-1 arg-2 arg-3 arg-4 arg-5 e-3 arg-7 eta-0)))))))))) -(define TTImpC-45InteractiveC-45ExprSearch-n--18624-5617-u--matchable (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 ext-0) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((act-24 (((e-4 arg-13) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) arg-6 (vector 10 e-1 1))) ext-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (TTImpC-45InteractiveC-45ExprSearch-n--18624-5617-u--matchable arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-5 ext-0)))))))(else (vector 1 1)))))))) ((3) (vector 1 0))(else (vector 1 1)))))) -(define TTImpC-45InteractiveC-45ExprSearch-n--21601-8208-u--lookupHoleName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 ext-0) (let ((act-24 ((CoreC-45Context-lookupCtxtExactI arg-7 (let ((sc0 arg-8)) (let ((e-0 (vector-ref sc0 1))) e-0))) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((sc2 e-1)) (let ((e-7 (car sc2))) (let ((e-6 (cdr sc2))) (vector 1 (vector 1 (cons arg-7 (cons e-7 e-6))))))))) (else (let ((act-25 ((CoreC-45Context-lookupCtxtName arg-7 (let ((sc2 arg-8)) (let ((e-0 (vector-ref sc2 1))) e-0))) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (if (null? sc3) (vector 1 (vector 0 )) (let ((e-1 (car sc3))) (let ((e-2 (cdr sc3))) (let ((sc4 e-2)) (if (null? sc4) (vector 1 (vector 1 e-1)) (vector 1 (vector 0 ))))))))))))))))))))))) -(define TTImpC-45InteractiveC-45ExprSearch-n--13963-7609-u--lookupHoleName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 ext-0) (let ((act-24 ((CoreC-45Context-lookupCtxtExactI arg-8 arg-9) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((sc2 e-1)) (let ((e-7 (car sc2))) (let ((e-6 (cdr sc2))) (vector 1 (vector 1 (cons arg-8 (cons e-7 e-6))))))))) (else (let ((act-25 ((CoreC-45Context-lookupCtxtName arg-8 arg-9) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (if (null? sc3) (vector 1 (vector 0 )) (let ((e-1 (car sc3))) (let ((e-2 (cdr sc3))) (let ((sc4 e-2)) (if (null? sc4) (vector 1 (vector 1 e-1)) (vector 1 (vector 0 ))))))))))))))))))))))) -(define TTImpC-45InteractiveC-45ExprSearch-n--19050-5987-u--isSingleCon (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 ext-0) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((act-24 (((e-4 arg-11) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 e-1 1))) ext-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (TTImpC-45InteractiveC-45ExprSearch-n--19050-5987-u--isSingleCon arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-5 ext-0)))))))(else (vector 1 1)))))))) ((3) (let ((e-7 (vector-ref sc0 2))) (let ((act-24 (CoreC-45Context-lookupDefExact e-7 (let ((sc1 arg-11)) (let ((e-0 (vector-ref sc1 1))) e-0)) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((sc3 e-1)) (case (vector-ref sc3 0) ((6) (let ((e-12 (vector-ref sc3 7))) (let ((sc4 e-12)) (if (null? sc4) (vector 1 1) (let ((e-16 (cdr sc4))) (let ((sc5 e-16)) (if (null? sc5) (vector 1 0) (vector 1 1))))))))(else (vector 1 1))))))(else (vector 1 1)))))))))))(else (vector 1 1)))))) -(define TTImpC-45InteractiveC-45ExprSearch-n--21369-7984-u--getLHS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((3) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((3) (TTImpC-45InteractiveC-45ExprSearch-n--21369-7984-u--getLHS arg-0 arg-1 arg-2 (cons e-2 arg-3) e-4)) ((4) (TTImpC-45InteractiveC-45ExprSearch-n--21369-7984-u--getLHS arg-0 arg-1 arg-2 (cons e-2 arg-3) e-4))(else (TTImpC-45InteractiveC-45ExprSearch-case--getLHSDataC-44getLHS-8034 arg-0 arg-1 arg-2 arg-3 arg-4 (CoreC-45TT-getFn arg-4)))))))))(else (TTImpC-45InteractiveC-45ExprSearch-case--getLHSDataC-44getLHS-8034 arg-0 arg-1 arg-2 arg-3 arg-4 (CoreC-45TT-getFn arg-4))))))) -(define TTImpC-45InteractiveC-45ExprSearch-n--16927-4115-u--findPos (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((3) (let ((e-2 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 5))) (let ((sc1 e-5)) (if (null? sc1) (lambda (eta-0) (TTImpC-45InteractiveC-45ExprSearch-n--16927-4114-u--findDirect arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 eta-0)) (let ((e-7 (car sc1))) (let ((e-8 (cdr sc1))) (let ((sc2 e-7)) (if (null? sc2) (lambda (eta-0) (TTImpC-45InteractiveC-45ExprSearch-n--16927-4114-u--findDirect arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 eta-0)) (let ((e-11 (car sc2))) (let ((e-12 (cdr sc2))) (let ((sc3 e-8)) (if (null? sc3) (lambda (eta-0) (TTImpC-45InteractiveC-45ExprSearch-n--16927-4114-u--findDirect arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 eta-0)) (let ((e-14 (car sc3))) (let ((e-15 (cdr sc3))) (let ((sc4 e-14)) (if (null? sc4) (lambda (eta-0) (TTImpC-45InteractiveC-45ExprSearch-n--16927-4114-u--findDirect arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 eta-0)) (let ((e-18 (car sc4))) (let ((e-19 (cdr sc4))) (lambda (clam-0) (let ((sc5 e-15)) (if (null? sc5) (TTImpC-45InteractiveC-45ExprSearch-getSuccessful arg-0 arg-13 arg-12 arg-11 arg-10 arg-8 arg-7 1 arg-6 arg-5 arg-4 (cons (lambda (eta-0) (TTImpC-45InteractiveC-45ExprSearch-n--16927-4114-u--findDirect arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 eta-0)) (cons (lambda (eta-0) (let ((act-24 (let ((act-24 (CoreC-45Context-fstName arg-13 eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-6 (vector-ref sc6 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc6 1))) ((PreludeC-45Types-maybe (lambda () (lambda (eta-1) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 "No fst") eta-1))) (lambda () (lambda (eta-1) (lambda (eta-2) (vector 1 eta-1)))) e-6) eta-0)))))))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-6 (vector-ref sc6 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-25 (let ((act-25 (CoreC-45Context-sndName arg-13 eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc7 1))) ((PreludeC-45Types-maybe (lambda () (lambda (eta-1) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 "No snd") eta-1))) (lambda () (lambda (eta-1) (lambda (eta-2) (vector 1 eta-1)))) e-9) eta-0)))))))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-26 (CoreC-45Context-isPairType arg-13 e-2 eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((sc9 e-10)) (cond ((equal? sc9 0) (let ((act-27 (CoreC-45Context-clearDefs arg-14 eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-13 (vector-ref sc10 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc10 1))) (let ((act-28 (CoreC-45Normalise-u--quote_Quote_Closure arg-13 arg-0 e-13 arg-6 e-12 eta-0))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-16 (vector-ref sc11 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc11 1))) (let ((act-29 (CoreC-45Normalise-u--quote_Quote_Closure arg-13 arg-0 e-13 arg-6 e-19 eta-0))) (let ((sc12 act-29)) (case (vector-ref sc12 0) ((0) (let ((e-17 (vector-ref sc12 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc12 1))) (TTImpC-45InteractiveC-45ExprSearch-getSuccessful arg-0 arg-13 arg-12 arg-11 arg-10 arg-8 arg-7 1 arg-6 arg-5 arg-4 (cons (lambda (eta-1) (let ((act-30 ((CoreC-45Normalise-evalClosure arg-13 arg-0 arg-14 e-12) eta-1))) (let ((sc13 act-30)) (case (vector-ref sc13 0) ((0) (let ((e-20 (vector-ref sc13 1))) (vector 0 e-20))) (else (let ((e-20 (vector-ref sc13 1))) ((TTImpC-45InteractiveC-45ExprSearch-n--16927-4115-u--findPos arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 (lambda (u--arg) (CoreC-45TT-applyWithFC (vector 1 arg-10 (vector 1 ) e-6) (cons (cons e-11 e-16) (cons (cons e-18 e-17) (cons (cons arg-10 (arg-16 u--arg)) '()))))) e-20 arg-18) eta-1))))))) (cons (lambda (eta-1) (let ((act-30 ((CoreC-45Normalise-evalClosure arg-13 arg-0 arg-14 e-19) eta-1))) (let ((sc13 act-30)) (case (vector-ref sc13 0) ((0) (let ((e-20 (vector-ref sc13 1))) (vector 0 e-20))) (else (let ((e-20 (vector-ref sc13 1))) ((TTImpC-45InteractiveC-45ExprSearch-n--16927-4115-u--findPos arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 (lambda (u--arg) (CoreC-45TT-applyWithFC (vector 1 arg-10 (vector 1 ) e-9) (cons (cons e-11 e-16) (cons (cons e-18 e-17) (cons (cons arg-10 (arg-16 u--arg)) '()))))) e-20 arg-18) eta-1))))))) '())) eta-0))))))))))))))))) (else (TTImpC-45InteractiveC-45ExprSearch-noResult eta-0)))))))))))))))))))) '())) clam-0) (TTImpC-45InteractiveC-45ExprSearch-n--16927-4114-u--findDirect arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 clam-0)))))))))))))))))))))))(else (lambda (eta-0) (TTImpC-45InteractiveC-45ExprSearch-n--16927-4114-u--findDirect arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 eta-0))))))) -(define TTImpC-45InteractiveC-45ExprSearch-n--16927-4114-u--findDirect (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 ext-0) (let ((act-24 (CoreC-45AutoSearch-mkArgs arg-0 arg-13 arg-11 arg-10 arg-8 arg-6 arg-17 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-2 (car sc1))) (let ((e-3 (cdr sc1))) (let ((_-0 (cons e-2 e-3))) (TTImpC-45InteractiveC-45ExprSearch-case--caseC-32blockC-32inC-32searchLocalWithC-44findDirect-4181 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-18 arg-17 arg-16 arg-15 arg-14 e-2 e-3 _-0 (TTImpC-45InteractiveC-45ExprSearch-usableLocal arg-10 arg-6 arg-17) ext-0)))))))))))) -(define TTImpC-45InteractiveC-45ExprSearch-n--13412-957-u--count (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (if (null? sc0) (lambda (eta-0) (vector 1 (cons '() (lambda (eta-1) (vector 1 '()))))) (let ((sc1 arg-5)) (cond ((equal? sc1 0) (lambda (eta-0) (vector 1 (cons '() (lambda (eta-1) (vector 1 '()))))))(else (let ((e-0 (- arg-5 1))) (let ((sc1 e-0)) (cond ((equal? sc1 0) (lambda (clam-0) (let ((sc2 arg-6)) (if (null? sc2) (let ((sc3 arg-6)) (let ((e-2 (car sc3))) (let ((e-3 (cdr sc3))) (let ((act-24 (let ((act-24 (e-3 clam-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc4 1))) ((TTImpC-45InteractiveC-45ExprSearch-n--13412-957-u--count arg-1 arg-2 arg-3 arg-4 e-0 e-5) clam-0)))))))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc4 1))) (let ((sc5 e-5)) (let ((e-6 (car sc5))) (let ((e-4 (cdr sc5))) (vector 1 (cons (cons e-2 e-6) e-4))))))))))))) (let ((e-5 (car sc2))) (let ((e-6 (cdr sc2))) (vector 1 (cons (cons e-5 '()) e-6))))))))(else (lambda (clam-1) (let ((sc1 arg-6)) (let ((e-2 (car sc1))) (let ((e-3 (cdr sc1))) (let ((act-24 (let ((act-24 (e-3 clam-1))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) ((TTImpC-45InteractiveC-45ExprSearch-n--13412-957-u--count arg-1 arg-2 arg-3 arg-4 e-0 e-5) clam-1)))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (let ((e-6 (car sc3))) (let ((e-4 (cdr sc3))) (vector 1 (cons (cons e-2 e-6) e-4))))))))))))))))))))))))) -(define TTImpC-45InteractiveC-45ExprSearch-n--14597-2022-u--continue (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 (let ((act-24 (set-box! arg-3 arg-5))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((act-25 (let ((act-25 (set-box! arg-4 arg-6))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (TTImpC-45InteractiveC-45ExprSearch-firstSuccess arg-4 arg-3 arg-7 ext-0))))))))))) -(define TTImpC-45InteractiveC-45ExprSearch-n--16109-3370-u--argDiff (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-13 arg-14) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((0) 1) ((1) (let ((e-48 (vector-ref sc0 3))) (let ((sc1 arg-14)) (case (vector-ref sc1 0) ((1) (let ((e-57 (vector-ref sc1 3))) (CoreC-45Name-u--C-47C-61_Eq_Name e-48 e-57)))(else (let ((sc1 arg-14)) (case (vector-ref sc1 0) ((3) 1)(else (let ((sc1 arg-13)) (case (vector-ref sc1 0) ((4) (let ((e-19 (vector-ref sc1 2))) (let ((e-20 (vector-ref sc1 3))) (let ((sc2 arg-14)) (case (vector-ref sc2 0) ((4) (let ((e-29 (vector-ref sc2 2))) (let ((e-30 (vector-ref sc2 3))) (PreludeC-45Basics-C-124C-124 (TTImpC-45InteractiveC-45ExprSearch-n--16109-3372-u--structDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-19 e-29) (lambda () (TTImpC-45InteractiveC-45ExprSearch-n--16109-3372-u--structDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-20 e-30))))))(else (let ((sc2 arg-14)) (case (vector-ref sc2 0) ((10) 1)(else (let ((sc2 arg-13)) (case (vector-ref sc2 0) ((11) (let ((sc3 arg-14)) (case (vector-ref sc3 0) ((11) 1)(else (let ((sc3 arg-14)) (case (vector-ref sc3 0) ((5) (let ((e-4 (vector-ref sc3 4))) (TTImpC-45InteractiveC-45ExprSearch-n--16109-3370-u--argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-13 e-4)))(else 0))))))) ((5) (let ((e-11 (vector-ref sc2 4))) (TTImpC-45InteractiveC-45ExprSearch-n--16109-3370-u--argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-11 arg-14)))(else (let ((sc2 arg-14)) (case (vector-ref sc2 0) ((5) (let ((e-4 (vector-ref sc2 4))) (TTImpC-45InteractiveC-45ExprSearch-n--16109-3370-u--argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-13 e-4)))(else 0))))))))))))))) ((9) (let ((e-23 (vector-ref sc1 2))) (let ((sc2 arg-14)) (case (vector-ref sc2 0) ((9) (let ((e-33 (vector-ref sc2 2))) (CoreC-45TT-u--C-47C-61_Eq_Constant e-23 e-33)))(else (let ((sc2 arg-14)) (case (vector-ref sc2 0) ((10) 1)(else (let ((sc2 arg-13)) (case (vector-ref sc2 0) ((11) (let ((sc3 arg-14)) (case (vector-ref sc3 0) ((11) 1)(else (let ((sc3 arg-14)) (case (vector-ref sc3 0) ((5) (let ((e-4 (vector-ref sc3 4))) (TTImpC-45InteractiveC-45ExprSearch-n--16109-3370-u--argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-13 e-4)))(else 0))))))) ((5) (let ((e-11 (vector-ref sc2 4))) (TTImpC-45InteractiveC-45ExprSearch-n--16109-3370-u--argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-11 arg-14)))(else (let ((sc2 arg-14)) (case (vector-ref sc2 0) ((5) (let ((e-4 (vector-ref sc2 4))) (TTImpC-45InteractiveC-45ExprSearch-n--16109-3370-u--argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-13 e-4)))(else 0)))))))))))))) ((10) 1)(else (let ((sc1 arg-14)) (case (vector-ref sc1 0) ((10) 1)(else (let ((sc1 arg-13)) (case (vector-ref sc1 0) ((11) (let ((sc2 arg-14)) (case (vector-ref sc2 0) ((11) 1)(else (let ((sc2 arg-14)) (case (vector-ref sc2 0) ((5) (let ((e-4 (vector-ref sc2 4))) (TTImpC-45InteractiveC-45ExprSearch-n--16109-3370-u--argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-13 e-4)))(else 0))))))) ((5) (let ((e-11 (vector-ref sc1 4))) (TTImpC-45InteractiveC-45ExprSearch-n--16109-3370-u--argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-11 arg-14)))(else (let ((sc1 arg-14)) (case (vector-ref sc1 0) ((5) (let ((e-4 (vector-ref sc1 4))) (TTImpC-45InteractiveC-45ExprSearch-n--16109-3370-u--argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-13 e-4)))(else 0)))))))))))))))))))) ((3) 1)(else (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((3) 1)(else (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((4) (let ((e-19 (vector-ref sc0 2))) (let ((e-20 (vector-ref sc0 3))) (let ((sc1 arg-14)) (case (vector-ref sc1 0) ((4) (let ((e-29 (vector-ref sc1 2))) (let ((e-30 (vector-ref sc1 3))) (PreludeC-45Basics-C-124C-124 (TTImpC-45InteractiveC-45ExprSearch-n--16109-3372-u--structDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-19 e-29) (lambda () (TTImpC-45InteractiveC-45ExprSearch-n--16109-3372-u--structDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-20 e-30))))))(else (let ((sc1 arg-14)) (case (vector-ref sc1 0) ((10) 1)(else (let ((sc1 arg-13)) (case (vector-ref sc1 0) ((11) (let ((sc2 arg-14)) (case (vector-ref sc2 0) ((11) 1)(else (let ((sc2 arg-14)) (case (vector-ref sc2 0) ((5) (let ((e-4 (vector-ref sc2 4))) (TTImpC-45InteractiveC-45ExprSearch-n--16109-3370-u--argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-13 e-4)))(else 0))))))) ((5) (let ((e-11 (vector-ref sc1 4))) (TTImpC-45InteractiveC-45ExprSearch-n--16109-3370-u--argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-11 arg-14)))(else (let ((sc1 arg-14)) (case (vector-ref sc1 0) ((5) (let ((e-4 (vector-ref sc1 4))) (TTImpC-45InteractiveC-45ExprSearch-n--16109-3370-u--argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-13 e-4)))(else 0))))))))))))))) ((9) (let ((e-23 (vector-ref sc0 2))) (let ((sc1 arg-14)) (case (vector-ref sc1 0) ((9) (let ((e-33 (vector-ref sc1 2))) (CoreC-45TT-u--C-47C-61_Eq_Constant e-23 e-33)))(else (let ((sc1 arg-14)) (case (vector-ref sc1 0) ((10) 1)(else (let ((sc1 arg-13)) (case (vector-ref sc1 0) ((11) (let ((sc2 arg-14)) (case (vector-ref sc2 0) ((11) 1)(else (let ((sc2 arg-14)) (case (vector-ref sc2 0) ((5) (let ((e-4 (vector-ref sc2 4))) (TTImpC-45InteractiveC-45ExprSearch-n--16109-3370-u--argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-13 e-4)))(else 0))))))) ((5) (let ((e-11 (vector-ref sc1 4))) (TTImpC-45InteractiveC-45ExprSearch-n--16109-3370-u--argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-11 arg-14)))(else (let ((sc1 arg-14)) (case (vector-ref sc1 0) ((5) (let ((e-4 (vector-ref sc1 4))) (TTImpC-45InteractiveC-45ExprSearch-n--16109-3370-u--argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-13 e-4)))(else 0)))))))))))))) ((10) 1)(else (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((10) 1)(else (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((11) (let ((sc1 arg-14)) (case (vector-ref sc1 0) ((11) 1)(else (let ((sc1 arg-14)) (case (vector-ref sc1 0) ((5) (let ((e-4 (vector-ref sc1 4))) (TTImpC-45InteractiveC-45ExprSearch-n--16109-3370-u--argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-13 e-4)))(else 0))))))) ((5) (let ((e-11 (vector-ref sc0 4))) (TTImpC-45InteractiveC-45ExprSearch-n--16109-3370-u--argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-11 arg-14)))(else (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((5) (let ((e-4 (vector-ref sc0 4))) (TTImpC-45InteractiveC-45ExprSearch-n--16109-3370-u--argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-13 e-4)))(else 0)))))))))))))))))))) -(define TTImpC-45InteractiveC-45ExprSearch-n--16109-3371-u--appsDiff (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((1) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((sc1 e-4)) (case (vector-ref sc1 0) ((2) (let ((sc2 arg-14)) (case (vector-ref sc2 0) ((1) (let ((e-30 (vector-ref sc2 2))) (let ((e-31 (vector-ref sc2 3))) (let ((sc3 e-30)) (case (vector-ref sc3 0) ((2) (PreludeC-45Basics-C-124C-124 (CoreC-45Name-u--C-47C-61_Eq_Name e-5 e-31) (lambda () (LibrariesC-45DataC-45BoolC-45Extra-anyTrue (DataC-45List-u--zipWith_Zippable_List (lambda (eta-0) (lambda (eta-1) (TTImpC-45InteractiveC-45ExprSearch-n--16109-3370-u--argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 eta-0 eta-1))) arg-15 arg-16)))))(else (let ((sc3 arg-14)) (case (vector-ref sc3 0) ((1) (let ((e-23 (vector-ref sc3 3))) (PreludeC-45Basics-C-38C-38 (CoreC-45Name-u--C-61C-61_Eq_Name e-5 e-23) (lambda () (PreludeC-45Basics-C-38C-38 (PreludeC-45Types-u--C-61C-61_Eq_Nat (PreludeC-45TypesC-45List-length arg-15) (PreludeC-45TypesC-45List-length arg-16)) (lambda () (LibrariesC-45DataC-45BoolC-45Extra-anyTrue (DataC-45List-u--zipWith_Zippable_List (lambda (eta-0) (lambda (eta-1) (TTImpC-45InteractiveC-45ExprSearch-n--16109-3370-u--argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 eta-0 eta-1))) arg-15 arg-16))))))))(else (let ((sc3 e-4)) (case (vector-ref sc3 0) ((2) (let ((sc4 arg-14)) (case (vector-ref sc4 0) ((0) 0)(else (let ((sc4 arg-15)) (if (null? sc4) (let ((sc5 arg-16)) (if (null? sc5) (TTImpC-45InteractiveC-45ExprSearch-n--16109-3370-u--argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-13 arg-14) 1)) 1))))))(else (let ((sc3 arg-15)) (if (null? sc3) (let ((sc4 arg-16)) (if (null? sc4) (TTImpC-45InteractiveC-45ExprSearch-n--16109-3370-u--argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-13 arg-14) 1)) 1))))))))))))))(else (let ((sc2 arg-14)) (case (vector-ref sc2 0) ((1) (let ((e-23 (vector-ref sc2 3))) (PreludeC-45Basics-C-38C-38 (CoreC-45Name-u--C-61C-61_Eq_Name e-5 e-23) (lambda () (PreludeC-45Basics-C-38C-38 (PreludeC-45Types-u--C-61C-61_Eq_Nat (PreludeC-45TypesC-45List-length arg-15) (PreludeC-45TypesC-45List-length arg-16)) (lambda () (LibrariesC-45DataC-45BoolC-45Extra-anyTrue (DataC-45List-u--zipWith_Zippable_List (lambda (eta-0) (lambda (eta-1) (TTImpC-45InteractiveC-45ExprSearch-n--16109-3370-u--argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 eta-0 eta-1))) arg-15 arg-16))))))))(else (let ((sc2 e-4)) (case (vector-ref sc2 0) ((2) (let ((sc3 arg-14)) (case (vector-ref sc3 0) ((0) 0)(else (let ((sc3 arg-15)) (if (null? sc3) (let ((sc4 arg-16)) (if (null? sc4) (TTImpC-45InteractiveC-45ExprSearch-n--16109-3370-u--argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-13 arg-14) 1)) 1))))))(else (let ((sc2 arg-15)) (if (null? sc2) (let ((sc3 arg-16)) (if (null? sc3) (TTImpC-45InteractiveC-45ExprSearch-n--16109-3370-u--argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-13 arg-14) 1)) 1)))))))))))) ((3) (let ((sc2 arg-14)) (case (vector-ref sc2 0) ((1) (let ((e-36 (vector-ref sc2 2))) (let ((e-37 (vector-ref sc2 3))) (let ((sc3 e-36)) (case (vector-ref sc3 0) ((3) (PreludeC-45Basics-C-124C-124 (CoreC-45Name-u--C-47C-61_Eq_Name e-5 e-37) (lambda () (LibrariesC-45DataC-45BoolC-45Extra-anyTrue (DataC-45List-u--zipWith_Zippable_List (lambda (eta-0) (lambda (eta-1) (TTImpC-45InteractiveC-45ExprSearch-n--16109-3370-u--argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 eta-0 eta-1))) arg-15 arg-16)))))(else (let ((sc3 arg-14)) (case (vector-ref sc3 0) ((1) (let ((e-23 (vector-ref sc3 3))) (PreludeC-45Basics-C-38C-38 (CoreC-45Name-u--C-61C-61_Eq_Name e-5 e-23) (lambda () (PreludeC-45Basics-C-38C-38 (PreludeC-45Types-u--C-61C-61_Eq_Nat (PreludeC-45TypesC-45List-length arg-15) (PreludeC-45TypesC-45List-length arg-16)) (lambda () (LibrariesC-45DataC-45BoolC-45Extra-anyTrue (DataC-45List-u--zipWith_Zippable_List (lambda (eta-0) (lambda (eta-1) (TTImpC-45InteractiveC-45ExprSearch-n--16109-3370-u--argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 eta-0 eta-1))) arg-15 arg-16))))))))(else (let ((sc3 e-4)) (case (vector-ref sc3 0) ((2) (let ((sc4 arg-14)) (case (vector-ref sc4 0) ((0) 0)(else (let ((sc4 arg-15)) (if (null? sc4) (let ((sc5 arg-16)) (if (null? sc5) (TTImpC-45InteractiveC-45ExprSearch-n--16109-3370-u--argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-13 arg-14) 1)) 1))))))(else (let ((sc3 arg-15)) (if (null? sc3) (let ((sc4 arg-16)) (if (null? sc4) (TTImpC-45InteractiveC-45ExprSearch-n--16109-3370-u--argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-13 arg-14) 1)) 1))))))))))))))(else (let ((sc2 arg-14)) (case (vector-ref sc2 0) ((1) (let ((e-23 (vector-ref sc2 3))) (PreludeC-45Basics-C-38C-38 (CoreC-45Name-u--C-61C-61_Eq_Name e-5 e-23) (lambda () (PreludeC-45Basics-C-38C-38 (PreludeC-45Types-u--C-61C-61_Eq_Nat (PreludeC-45TypesC-45List-length arg-15) (PreludeC-45TypesC-45List-length arg-16)) (lambda () (LibrariesC-45DataC-45BoolC-45Extra-anyTrue (DataC-45List-u--zipWith_Zippable_List (lambda (eta-0) (lambda (eta-1) (TTImpC-45InteractiveC-45ExprSearch-n--16109-3370-u--argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 eta-0 eta-1))) arg-15 arg-16))))))))(else (let ((sc2 e-4)) (case (vector-ref sc2 0) ((2) (let ((sc3 arg-14)) (case (vector-ref sc3 0) ((0) 0)(else (let ((sc3 arg-15)) (if (null? sc3) (let ((sc4 arg-16)) (if (null? sc4) (TTImpC-45InteractiveC-45ExprSearch-n--16109-3370-u--argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-13 arg-14) 1)) 1))))))(else (let ((sc2 arg-15)) (if (null? sc2) (let ((sc3 arg-16)) (if (null? sc3) (TTImpC-45InteractiveC-45ExprSearch-n--16109-3370-u--argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-13 arg-14) 1)) 1))))))))))))(else (let ((sc1 arg-14)) (case (vector-ref sc1 0) ((1) (let ((e-23 (vector-ref sc1 3))) (PreludeC-45Basics-C-38C-38 (CoreC-45Name-u--C-61C-61_Eq_Name e-5 e-23) (lambda () (PreludeC-45Basics-C-38C-38 (PreludeC-45Types-u--C-61C-61_Eq_Nat (PreludeC-45TypesC-45List-length arg-15) (PreludeC-45TypesC-45List-length arg-16)) (lambda () (LibrariesC-45DataC-45BoolC-45Extra-anyTrue (DataC-45List-u--zipWith_Zippable_List (lambda (eta-0) (lambda (eta-1) (TTImpC-45InteractiveC-45ExprSearch-n--16109-3370-u--argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 eta-0 eta-1))) arg-15 arg-16))))))))(else (let ((sc1 e-4)) (case (vector-ref sc1 0) ((2) (let ((sc2 arg-14)) (case (vector-ref sc2 0) ((0) 0)(else (let ((sc2 arg-15)) (if (null? sc2) (let ((sc3 arg-16)) (if (null? sc3) (TTImpC-45InteractiveC-45ExprSearch-n--16109-3370-u--argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-13 arg-14) 1)) 1))))))(else (let ((sc1 arg-15)) (if (null? sc1) (let ((sc2 arg-16)) (if (null? sc2) (TTImpC-45InteractiveC-45ExprSearch-n--16109-3370-u--argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-13 arg-14) 1)) 1)))))))))))))) ((0) (let ((sc1 arg-14)) (case (vector-ref sc1 0) ((1) (let ((e-42 (vector-ref sc1 2))) (let ((sc2 e-42)) (case (vector-ref sc2 0) ((2) 0)(else (let ((sc2 arg-15)) (if (null? sc2) (let ((sc3 arg-16)) (if (null? sc3) (TTImpC-45InteractiveC-45ExprSearch-n--16109-3370-u--argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-13 arg-14) 1)) 1)))))))(else (let ((sc1 arg-15)) (if (null? sc1) (let ((sc2 arg-16)) (if (null? sc2) (TTImpC-45InteractiveC-45ExprSearch-n--16109-3370-u--argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-13 arg-14) 1)) 1))))))(else (let ((sc0 arg-15)) (if (null? sc0) (let ((sc1 arg-16)) (if (null? sc1) (TTImpC-45InteractiveC-45ExprSearch-n--16109-3370-u--argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-13 arg-14) 1)) 1))))))) -(define TTImpC-45InteractiveC-45ExprSearch-n--18624-5618-u--applyLocal (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((0) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (lambda (clam-0) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-6 (vector-ref sc1 1))) (let ((act-24 (let ((act-24 (((e-4 arg-13) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) arg-6 (vector 10 arg-9 1))) clam-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (TTImpC-45InteractiveC-45ExprSearch-n--18624-5617-u--matchable arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-5 clam-0)))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (cond ((equal? sc3 0) (let ((act-25 (CoreC-45UnifyState-genVarName arg-12 arg-10 "cty" clam-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc4 1))) (let ((act-26 (TTImpC-45ElabC-45Check-metaVar arg-0 arg-12 arg-10 e-6 (AlgebraC-45Semiring-erased (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))) arg-6 e-10 (vector 11 arg-9) clam-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-11 (vector-ref sc5 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc5 1))) (let ((u--optsC-39 (let ((sc6 arg-7)) (let ((e-0 (vector-ref sc6 1))) (let ((e-20 (vector-ref sc6 2))) (let ((e-19 (vector-ref sc6 3))) (let ((e-18 (vector-ref sc6 4))) (let ((e-17 (vector-ref sc6 5))) (let ((e-15 (vector-ref sc6 7))) (let ((e-14 (vector-ref sc6 8))) (let ((e-13 (vector-ref sc6 9))) (let ((e-12 (vector-ref sc6 10))) (vector 0 e-0 e-20 e-19 e-18 e-17 0 e-15 e-14 e-13 e-12))))))))))))) (let ((act-27 (TTImpC-45InteractiveC-45ExprSearch-searchLocalWith arg-0 arg-12 arg-11 arg-10 arg-9 0 arg-8 u--optsC-39 arg-6 (cons (cons arg-1 arg-2) '()) e-11 arg-4 clam-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-12 (vector-ref sc6 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc6 1))) ((TTImpC-45InteractiveC-45ExprSearch-makeHelper arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 e-11 arg-16 e-12) clam-0)))))))))))))))))) (else (TTImpC-45InteractiveC-45ExprSearch-noResult clam-0)))))))))))(else (TTImpC-45InteractiveC-45ExprSearch-noResult clam-0))))))))(else (lambda (eta-0) (TTImpC-45InteractiveC-45ExprSearch-noResult eta-0))))))) -(define TTImpC-45InteractiveC-45ExprSearch-u--map_Functor_Search (lambda (arg-2 arg-3) (let ((sc0 arg-3)) (if (null? sc0) '() (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (cons (arg-2 e-2) (lambda (eta-0) (let ((act-24 (e-3 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (TTImpC-45InteractiveC-45ExprSearch-u--map_Functor_Search arg-2 e-5))))))))))))))) -(define TTImpC-45InteractiveC-45ExprSearch-usableLocal (lambda (arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((2) 1)(else 0)))))(else 0))))) +(define TTImpC-45InteractiveC-45GenerateDef-makeDefN (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (TTImpC-45InteractiveC-45ExprSearch-searchN arg-0 arg-2 arg-4 (lambda (eta-0) (TTImpC-45InteractiveC-45GenerateDef-makeDef arg-0 arg-1 arg-2 arg-3 arg-5 eta-0)) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((e-2 (car e-5))) (vector 1 e-2)))))))) +(define TTImpC-45InteractiveC-45GenerateDef-makeDefFromType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (CoreC-45UnifyState-tryUnify arg-0 arg-2 (lambda (eta-0) (let ((act-24 (CoreC-45Context-branch arg-0 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (let ((act-26 (unbox arg-2))) (vector 1 act-26)))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (let ((act-27 ((CoreC-45Normalise-nf arg-0 '() e-5 '() arg-7) eta-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) ((TTImpC-45InteractiveC-45CaseSplit-getEnvArgNames arg-0 e-5 arg-6 e-8) eta-0))))))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (let ((u--pre_env (DataC-45List-replicate arg-6 (vector 32 arg-3 1)))) (let ((act-28 (TTImpC-45Utils-uniqueName e-5 '() (PreludeC-45TypesC-45String-C-43C-43 (TTImpC-45InteractiveC-45GenerateDef-fnName 0 arg-5) "_rhs") eta-0))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-28 1))) (let ((u--initcs (vector 0 arg-3 (TTImpC-45TTImp-apply (vector 0 arg-3 arg-5) (PreludeC-45TypesC-45List-C-43C-43 u--pre_env (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (vector 17 arg-3 eta-1)) e-8))) (vector 30 arg-3 e-9)))) (let ((sc5 (CoreC-45Context-getNameID arg-5 (let ((e-0 (vector-ref e-5 0))) e-0)))) (if (null? sc5) (CoreC-45Context-undefinedName arg-0 arg-3 arg-5 eta-0) (let ((e-1 (unbox sc5))) (let ((act-29 ((TTImpC-45InteractiveC-45GenerateDef-mkSplits arg-0 arg-1 arg-2 arg-3 arg-4 e-1 u--initcs) eta-0))) (case (vector-ref act-29 0) ((0) (let ((e-2 (vector-ref act-29 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref act-29 1))) (let ((act-30 (let ((act-30 (set-box! arg-0 e-5))) (vector 1 act-30)))) (case (vector-ref act-30 0) ((0) (let ((e-2 (vector-ref act-30 1))) (vector 0 e-2))) (else (let ((act-31 (let ((act-31 (set-box! arg-1 e-6))) (vector 1 act-31)))) (case (vector-ref act-31 0) ((0) (let ((e-2 (vector-ref act-31 1))) (vector 0 e-2))) (else (let ((act-32 (let ((act-32 (set-box! arg-2 e-7))) (vector 1 act-32)))) (case (vector-ref act-32 0) ((0) (let ((e-2 (vector-ref act-32 1))) (vector 0 e-2))) (else (vector 1 (TTImpC-45InteractiveC-45ExprSearch-u--map_Functor_Search (lambda (u--c) (cons arg-3 u--c)) e-10))))))))))))))))))))))))))))))))))))))))) (lambda (eta-0) (TTImpC-45InteractiveC-45ExprSearch-noResult eta-0)) ext-0))) +(define TTImpC-45InteractiveC-45GenerateDef-makeDef (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (CoreC-45Metadata-findTyDeclAt arg-1 arg-3 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (if (null? e-5) (TTImpC-45InteractiveC-45ExprSearch-noResult ext-0) (let ((e-1 (unbox e-5))) (let ((e-7 (car e-1))) (let ((e-6 (cdr e-1))) (let ((e-9 (car e-6))) (let ((e-10 (cdr e-6))) (let ((e-13 (car e-10))) (let ((e-14 (cdr e-10))) (let ((act-25 (CoreC-45Context-getFullName arg-0 e-9 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-25 1))) (let ((act-26 (CoreC-45ContextC-45Log-logTerm '() arg-0 "interaction.generate" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Searching for " (CoreC-45Name-u--show_Show_Name e-8))) e-14 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((u--opts (let ((sc7 (TTImpC-45InteractiveC-45ExprSearch-initSearchOpts 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))) (let ((e-0 (vector-ref sc7 0))) (let ((e-19 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((e-3 (vector-ref sc7 3))) (let ((e-4 (vector-ref sc7 4))) (let ((e-18 (vector-ref sc7 5))) (let ((e-17 (vector-ref sc7 6))) (let ((e-16 (vector-ref sc7 7))) (let ((e-15 (vector-ref sc7 8))) (vector e-0 e-19 e-2 e-3 e-4 e-18 e-17 e-16 e-15 (box (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (TTImpC-45InteractiveC-45GenerateDef-makeDefFromType arg-0 arg-1 arg-2 (CoreC-45FC-justFC e-7) eta-0 eta-1 eta-2 eta-3 eta-4)))))))))))))))))))) (TTImpC-45InteractiveC-45GenerateDef-makeDefFromType arg-0 arg-1 arg-2 (CoreC-45FC-justFC e-7) u--opts e-8 e-13 e-14 ext-0))))))))))))))))))))))) +(define TTImpC-45InteractiveC-45GenerateDef-generateSplits (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (case (vector-ref arg-6 0) ((2) (vector 1 '())) ((1) (vector 1 '())) (else (let ((e-8 (vector-ref arg-6 1))) (let ((e-9 (vector-ref arg-6 2))) (let ((e-10 (vector-ref arg-6 3))) (let ((act-24 ((TTImpC-45Elab-elabTerm '() arg-1 arg-0 arg-2 arg-5 (vector 1 (AlgebraC-45Semiring-linear (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)))) '() '() '() (vector 16 arg-3 (vector 1 ) e-9) '()) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((e-2 (car e-5))) (let ((u--splitnames (let ((sc3 (let ((e-6 (vector-ref arg-4 6))) e-6))) (cond ((equal? sc3 1) (TTImpC-45InteractiveC-45GenerateDef-splittableNames e-9)) (else (DataC-45List-reverse (TTImpC-45InteractiveC-45GenerateDef-splittableNames e-9))))))) (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (TTImpC-45InteractiveC-45GenerateDef-trySplit arg-0 arg-1 arg-2 e-8 e-9 e-2 e-10 eta-0 eta-1))) u--splitnames '() ext-0)))))))))))))) +(define TTImpC-45InteractiveC-45GenerateDef-fnName (lambda (arg-0 arg-1) (case (vector-ref arg-1 0) ((1) (let ((e-0 (vector-ref arg-1 1))) (let ((sc1 (ParserC-45LexerC-45Common-isIdentNormal e-0))) (cond ((equal? sc1 1) e-0) (else (cond ((equal? arg-0 1) (PreludeC-45TypesC-45String-C-43C-43 "(" (PreludeC-45TypesC-45String-C-43C-43 e-0 ")"))) (else "op"))))))) ((0) (let ((e-2 (vector-ref arg-1 2))) (TTImpC-45InteractiveC-45GenerateDef-fnName arg-0 e-2))) ((4) (let ((e-3 (vector-ref arg-1 1))) e-3))(else (CoreC-45Name-nameRoot arg-1))))) +(define TTImpC-45InteractiveC-45GenerateDef-expandClause (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 (TTImpC-45InteractiveC-45GenerateDef-uniqueRHS arg-0 arg-6 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (TTImpC-45ProcessDef-checkClause '() arg-0 arg-1 arg-2 (AlgebraC-45Semiring-linear (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))) 0 2 0 arg-5 '() '() '() e-5 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (case (vector-ref e-6 0) ((1) (let ((e-2 (vector-ref e-6 1))) (let ((_-0 (vector 1 e-2))) (let ((e-0 (vector-ref e-2 0))) (let ((e-1 (vector-ref e-2 1))) (let ((e-4 (vector-ref e-2 2))) (let ((e-3 (vector-ref e-2 3))) (let ((u--clause (vector e-0 e-1 e-4 e-3))) (TTImpC-45InteractiveC-45GenerateDef-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32expandClause-1768 arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 _-0 e-0 e-3 e-4 e-1 u--clause (CoreC-45TT-getFn e-3) ext-0))))))))) (else (TTImpC-45InteractiveC-45ExprSearch-noResult ext-0))))))))))))) +(define TTImpC-45InteractiveC-45GenerateDef-collectClauses (lambda (arg-0 arg-1 arg-2 ext-0) (if (null? arg-2) (TTImpC-45InteractiveC-45ExprSearch-one '() ext-0) (let ((e-2 (car arg-2))) (let ((e-3 (cdr arg-2))) (let ((act-24 (TTImpC-45InteractiveC-45GenerateDef-collectClauses arg-0 arg-1 e-3 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (TTImpC-45InteractiveC-45ExprSearch-combine arg-0 arg-1 (lambda (eta-0) (lambda (eta-1) (PreludeC-45TypesC-45List-C-43C-43 eta-0 eta-1))) e-2 e-5 ext-0)))))))))) +(define TTImpC-45InteractiveC-45GenerateDef-bindableUsed (lambda (arg-0) (case (vector-ref arg-0 0) ((0) (let ((e-1 (vector-ref arg-0 2))) (let ((e-2 (vector-ref arg-0 3))) (let ((u--lhsns (TTImpC-45Utils-findIBindVars e-1))) (let ((u--rhsns (TTImpC-45Utils-findAllNames '() e-2))) (box (cons u--lhsns (DataC-45List-filter (lambda (u--x) (PreludeC-45Types-elem (cons (lambda (arg-2) (lambda (arg-3) (CoreC-45Name-u--C-61C-61_Eq_Name arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (CoreC-45Name-u--C-47C-61_Eq_Name arg-4 arg-5)))) u--x u--lhsns)) u--rhsns))))))))(else '())))) +(define TTImpC-45InteractiveC-45ExprSearch-case--searchType-7262 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (if (null? arg-11) (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-logTerm arg-0 arg-10 "interaction.search" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Searching locals only at") arg-2 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((u--tryInt (let ((sc2 (let ((e-10 (vector-ref arg-5 5))) e-10))) (cond ((equal? sc2 1) '()) (else (cons (TTImpC-45InteractiveC-45ExprSearch-tryIntermediate arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-2 arg-3) '())))))) (let ((u--tryIntRec (let ((sc2 (let ((sc3 (let ((e-4 (vector-ref arg-5 4))) e-4))) (cond ((equal? sc3 1) 1) (else (let ((sc4 (let ((e-8 (vector-ref arg-5 8))) e-8))) (cond ((equal? sc4 1) 0) (else 1)))))))) (cond ((equal? sc2 1) '()) (else (cons (lambda (eta-1) (TTImpC-45InteractiveC-45ExprSearch-tryIntermediateRec arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-2 arg-3 (let ((e-2 (vector-ref arg-5 2))) e-2) eta-1)) '())))))) (TTImpC-45InteractiveC-45ExprSearch-getSuccessful arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 1 arg-4 arg-2 arg-3 (PreludeC-45TypesC-45List-C-43C-43 u--tryInt (PreludeC-45TypesC-45List-C-43C-43 (cons (TTImpC-45InteractiveC-45ExprSearch-searchLocal arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-2 arg-3) '()) (PreludeC-45TypesC-45List-C-43C-43 (let ((e-2 (vector-ref arg-5 2))) (if (null? e-2) '() (let ((e-11 (unbox e-2))) (cons (lambda (eta-1) (TTImpC-45InteractiveC-45ExprSearch-tryRecursive arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-2 arg-3 e-11 eta-1)) '())))) u--tryIntRec))) eta-0))))))) (let ((e-2 (car arg-11))) (let ((e-3 (cdr arg-11))) (lambda (clam-0) (case (vector-ref e-2 0) ((1) (let ((e-6 (vector-ref e-2 2))) (let ((e-7 (vector-ref e-2 3))) (case (vector-ref e-6 0) ((3) (let ((e-9 (vector-ref e-6 2))) (let ((act-24 (let ((act-24 (unbox arg-10))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((sc4 (PreludeC-45Types-u--C-61C-61_Eq_Nat (PreludeC-45TypesC-45List-length e-3) e-9))) (cond ((equal? sc4 1) (let ((act-25 (CoreC-45Context-getSearchData arg-10 arg-7 0 e-7 clam-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref act-25 1))) (let ((u--allHints (PreludeC-45Interfaces-concat (cons (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (cons (lambda (arg-12) (lambda (arg-13) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-12 arg-13))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) (let ((e-1 (cdr e-11))) e-1))))) (let ((act-26 (CoreC-45ContextC-45Log-log arg-10 "interaction.search" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Hints found for " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-7) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45Name-u--show_Show_Name u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Name-u--showPrec_Show_Name u--d u--x)))) u--allHints))))) clam-0))) (case (vector-ref act-26 0) ((0) (let ((e-4 (vector-ref act-26 1))) (vector 0 e-4))) (else (let ((u--tries (cons (TTImpC-45InteractiveC-45ExprSearch-searchLocal arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-2 arg-3) (cons (lambda (eta-0) (TTImpC-45InteractiveC-45ExprSearch-searchNames arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-2 arg-3 u--allHints eta-0)) '())))) (let ((u--tryRec (let ((e-19 (vector-ref arg-5 2))) (if (null? e-19) '() (let ((e-20 (unbox e-19))) (cons (lambda (eta-0) (TTImpC-45InteractiveC-45ExprSearch-tryRecursive arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-2 arg-3 e-20 eta-0)) '())))))) (let ((u--tryIntRec (let ((sc7 (let ((e-14 (vector-ref arg-5 8))) e-14))) (cond ((equal? sc7 1) (cons (lambda (eta-0) (TTImpC-45InteractiveC-45ExprSearch-tryIntermediateRec arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-2 arg-3 (let ((e-19 (vector-ref arg-5 2))) e-19) eta-0)) '())) (else '()))))) (let ((u--tryInt (let ((sc7 (let ((e-17 (vector-ref arg-5 5))) e-17))) (cond ((equal? sc7 1) '()) (else (cons (TTImpC-45InteractiveC-45ExprSearch-tryIntermediate arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-2 arg-3) '())))))) (let ((u--allns (let ((sc7 (let ((e-4 (vector-ref arg-5 4))) e-4))) (cond ((equal? sc7 1) (PreludeC-45TypesC-45List-C-43C-43 u--tryRec (PreludeC-45TypesC-45List-C-43C-43 u--tryInt u--tries))) (else (PreludeC-45TypesC-45List-C-43C-43 u--tryInt (PreludeC-45TypesC-45List-C-43C-43 u--tries (PreludeC-45TypesC-45List-C-43C-43 u--tryRec u--tryIntRec)))))))) (TTImpC-45InteractiveC-45ExprSearch-getSuccessful arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 1 arg-4 arg-2 arg-3 u--allns clam-0))))))))))))))) (else (TTImpC-45InteractiveC-45ExprSearch-noResult clam-0)))))))))(else (let ((act-24 (CoreC-45ContextC-45Log-logTerm arg-0 arg-10 "interaction.search" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Searching locals only at") arg-2 clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((u--tryInt (let ((sc3 (let ((e-13 (vector-ref arg-5 5))) e-13))) (cond ((equal? sc3 1) '()) (else (cons (TTImpC-45InteractiveC-45ExprSearch-tryIntermediate arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-2 arg-3) '())))))) (let ((u--tryIntRec (let ((sc3 (let ((sc4 (let ((e-4 (vector-ref arg-5 4))) e-4))) (cond ((equal? sc4 1) 1) (else (let ((sc5 (let ((e-10 (vector-ref arg-5 8))) e-10))) (cond ((equal? sc5 1) 0) (else 1)))))))) (cond ((equal? sc3 1) '()) (else (cons (lambda (eta-0) (TTImpC-45InteractiveC-45ExprSearch-tryIntermediateRec arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-2 arg-3 (let ((e-15 (vector-ref arg-5 2))) e-15) eta-0)) '())))))) (TTImpC-45InteractiveC-45ExprSearch-getSuccessful arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 1 arg-4 arg-2 arg-3 (PreludeC-45TypesC-45List-C-43C-43 u--tryInt (PreludeC-45TypesC-45List-C-43C-43 (cons (TTImpC-45InteractiveC-45ExprSearch-searchLocal arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-2 arg-3) '()) (PreludeC-45TypesC-45List-C-43C-43 (let ((e-15 (vector-ref arg-5 2))) (if (null? e-15) '() (let ((e-16 (unbox e-15))) (cons (lambda (eta-0) (TTImpC-45InteractiveC-45ExprSearch-tryRecursive arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-2 arg-3 e-16 eta-0)) '())))) u--tryIntRec))) clam-0)))))))))))(else (let ((act-24 (CoreC-45ContextC-45Log-logTerm arg-0 arg-10 "interaction.search" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Searching locals only at") arg-2 clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((u--tryInt (let ((sc2 (let ((e-10 (vector-ref arg-5 5))) e-10))) (cond ((equal? sc2 1) '()) (else (cons (TTImpC-45InteractiveC-45ExprSearch-tryIntermediate arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-2 arg-3) '())))))) (let ((u--tryIntRec (let ((sc2 (let ((sc3 (let ((e-4 (vector-ref arg-5 4))) e-4))) (cond ((equal? sc3 1) 1) (else (let ((sc4 (let ((e-8 (vector-ref arg-5 8))) e-8))) (cond ((equal? sc4 1) 0) (else 1)))))))) (cond ((equal? sc2 1) '()) (else (cons (lambda (eta-0) (TTImpC-45InteractiveC-45ExprSearch-tryIntermediateRec arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-2 arg-3 (let ((e-12 (vector-ref arg-5 2))) e-12) eta-0)) '())))))) (TTImpC-45InteractiveC-45ExprSearch-getSuccessful arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 1 arg-4 arg-2 arg-3 (PreludeC-45TypesC-45List-C-43C-43 u--tryInt (PreludeC-45TypesC-45List-C-43C-43 (cons (TTImpC-45InteractiveC-45ExprSearch-searchLocal arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-2 arg-3) '()) (PreludeC-45TypesC-45List-C-43C-43 (let ((e-12 (vector-ref arg-5 2))) (if (null? e-12) '() (let ((e-13 (unbox e-12))) (cons (lambda (eta-0) (TTImpC-45InteractiveC-45ExprSearch-tryRecursive arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-2 arg-3 e-13 eta-0)) '())))) u--tryIntRec))) clam-0)))))))))))))) +(define TTImpC-45InteractiveC-45ExprSearch-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32searchIfHole-2198 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 ext-0) (case (vector-ref arg-15 0) ((7) (let ((act-24 (TTImpC-45InteractiveC-45ExprSearch-search arg-8 arg-7 arg-6 arg-5 arg-11 (let ((e-11 (vector-ref arg-4 0))) (let ((e-10 (vector-ref arg-4 1))) (let ((e-2 (vector-ref arg-4 2))) (let ((e-5 (vector-ref arg-4 5))) (let ((e-6 (vector-ref arg-4 6))) (let ((e-7 (vector-ref arg-4 7))) (let ((e-8 (vector-ref arg-4 8))) (let ((e-9 (vector-ref arg-4 9))) (vector e-11 e-10 e-2 arg-9 1 e-5 e-6 e-7 e-8 e-9))))))))) arg-3 (vector 9 arg-10) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (TTImpC-45InteractiveC-45ExprSearch-traverse (lambda (lamc-0) (lambda (clam-1) (let ((e-2 (car lamc-0))) (let ((e-3 (cdr lamc-0))) (let ((act-25 (CoreC-45Normalise-normaliseHoles arg-8 arg-0 arg-12 arg-2 (CoreC-45UnifyState-applyTo arg-0 arg-5 (CoreC-45TT-embed e-2) arg-2) clam-1))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (cons e-6 e-3)))))))))) e-5 ext-0))))))(else (let ((act-24 (CoreC-45Normalise-normaliseHoles arg-8 arg-0 arg-12 arg-2 (let ((e-4 (vector-ref arg-1 3))) e-4) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (TTImpC-45InteractiveC-45ExprSearch-one (cons e-5 '()) ext-0))))))))) +(define TTImpC-45InteractiveC-45ExprSearch-n--11422-3604-u--visible (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 ext-0) (let ((act-24 ((CoreC-45Context-lookupCtxtExact arg-14 arg-12) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (if (null? e-5) (vector 1 '()) (let ((e-1 (unbox e-5))) (let ((sc2 (CoreC-45Context-visibleInAny arg-13 arg-14 (let ((e-9 (vector-ref e-1 9))) e-9)))) (cond ((equal? sc2 1) (vector 1 (box (cons arg-14 e-1)))) (else (vector 1 '())))))))))))) +(define TTImpC-45InteractiveC-45ExprSearch-n--10500-2813-u--usableName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (case (vector-ref arg-12 0) ((1) 1) ((0) (let ((e-2 (vector-ref arg-12 2))) (TTImpC-45InteractiveC-45ExprSearch-n--10500-2813-u--usableName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-2))) ((6) (let ((e-4 (vector-ref arg-12 2))) (TTImpC-45InteractiveC-45ExprSearch-n--10500-2813-u--usableName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-4)))(else 0)))) +(define TTImpC-45InteractiveC-45ExprSearch-n--9492-1929-u--usableName (lambda (arg-0 arg-1 arg-2 arg-3 arg-5 arg-6 arg-7) (case (vector-ref arg-7 0) ((1) 1)(else 0)))) +(define TTImpC-45InteractiveC-45ExprSearch-n--13547-5502-u--toApp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-14) (case (vector-ref arg-14 0) ((2) (let ((e-1 (vector-ref arg-14 1))) (let ((e-3 (vector-ref arg-14 3))) (let ((e-4 (vector-ref arg-14 4))) (CoreC-45TT-apply e-1 (vector 1 e-1 (vector 1 ) (vector 9 e-3)) e-4)))))(else arg-14)))) +(define TTImpC-45InteractiveC-45ExprSearch-n--11727-3871-u--structDiffTm (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-13 arg-14) (let ((e-2 (car arg-14))) (TTImpC-45InteractiveC-45ExprSearch-n--11727-3870-u--structDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-13 e-2)))) +(define TTImpC-45InteractiveC-45ExprSearch-n--11727-3870-u--structDiff (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-13 arg-14) (let ((sc0 (CoreC-45TT-getFnArgs arg-13))) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 (CoreC-45TT-getFnArgs arg-14))) (let ((e-5 (car sc1))) (let ((e-4 (cdr sc1))) (TTImpC-45InteractiveC-45ExprSearch-n--11727-3869-u--appsDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-2 e-5 e-3 e-4))))))))) +(define TTImpC-45InteractiveC-45ExprSearch-n--9070-1523-u--returnBatch (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (if (null? arg-6) (TTImpC-45InteractiveC-45ExprSearch-searchSort arg-5 arg-4 arg-3 arg-7 arg-1 ext-0) (let ((e-2 (car arg-6))) (let ((e-3 (cdr arg-6))) (vector 1 (cons e-2 (lambda (eta-0) (TTImpC-45InteractiveC-45ExprSearch-n--9070-1523-u--returnBatch arg-1 arg-2 arg-3 arg-4 arg-5 e-3 arg-7 eta-0))))))))) +(define TTImpC-45InteractiveC-45ExprSearch-n--14317-6163-u--matchable (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 ext-0) (case (vector-ref arg-14 0) ((0) (let ((e-1 (vector-ref arg-14 1))) (let ((e-3 (vector-ref arg-14 3))) (let ((e-4 (vector-ref arg-14 4))) (case (vector-ref e-3 0) ((2) (let ((act-24 (((e-4 arg-13) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) arg-6 (vector 10 e-1 0))) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (TTImpC-45InteractiveC-45ExprSearch-n--14317-6163-u--matchable arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-5 ext-0))))))(else (vector 1 0))))))) ((3) (vector 1 1))(else (vector 1 0))))) +(define TTImpC-45InteractiveC-45ExprSearch-n--17372-8793-u--lookupHoleName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 ext-0) (let ((act-24 ((CoreC-45Context-lookupCtxtExactI arg-7 (let ((e-0 (vector-ref arg-8 0))) e-0)) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (if (null? e-5) (let ((act-25 ((CoreC-45Context-lookupCtxtName arg-7 (let ((e-0 (vector-ref arg-8 0))) e-0)) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (if (null? e-6) (vector 1 '()) (let ((e-1 (car e-6))) (let ((e-2 (cdr e-6))) (if (null? e-2) (vector 1 (box e-1)) (vector 1 '()))))))))) (let ((e-1 (unbox e-5))) (let ((e-7 (car e-1))) (let ((e-6 (cdr e-1))) (vector 1 (box (cons arg-7 (cons e-7 e-6)))))))))))))) +(define TTImpC-45InteractiveC-45ExprSearch-n--9484-8187-u--lookupHoleName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 ext-0) (let ((act-24 ((CoreC-45Context-lookupCtxtExactI arg-8 arg-9) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (if (null? e-5) (let ((act-25 ((CoreC-45Context-lookupCtxtName arg-8 arg-9) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (if (null? e-6) (vector 1 '()) (let ((e-1 (car e-6))) (let ((e-2 (cdr e-6))) (if (null? e-2) (vector 1 (box e-1)) (vector 1 '()))))))))) (let ((e-1 (unbox e-5))) (let ((e-7 (car e-1))) (let ((e-6 (cdr e-1))) (vector 1 (box (cons arg-8 (cons e-7 e-6)))))))))))))) +(define TTImpC-45InteractiveC-45ExprSearch-n--14757-6539-u--isSingleCon (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 ext-0) (case (vector-ref arg-12 0) ((0) (let ((e-1 (vector-ref arg-12 1))) (let ((e-3 (vector-ref arg-12 3))) (let ((e-4 (vector-ref arg-12 4))) (case (vector-ref e-3 0) ((2) (let ((act-24 (((e-4 arg-11) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 e-1 0))) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (TTImpC-45InteractiveC-45ExprSearch-n--14757-6539-u--isSingleCon arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-5 ext-0))))))(else (vector 1 0))))))) ((3) (let ((e-7 (vector-ref arg-12 2))) (let ((act-24 (CoreC-45Context-lookupDefExact e-7 (let ((e-0 (vector-ref arg-11 0))) e-0) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (if (null? e-5) (vector 1 0) (let ((e-1 (unbox e-5))) (case (vector-ref e-1 0) ((6) (let ((e-12 (vector-ref e-1 7))) (if (null? e-12) (vector 1 0) (let ((e-16 (cdr e-12))) (if (null? e-16) (vector 1 1) (vector 1 0))))))(else (vector 1 0)))))))))))(else (vector 1 0))))) +(define TTImpC-45InteractiveC-45ExprSearch-n--17134-8570-u--getLHS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (case (vector-ref arg-4 0) ((3) (let ((e-2 (vector-ref arg-4 2))) (let ((e-3 (vector-ref arg-4 3))) (let ((e-4 (vector-ref arg-4 4))) (case (vector-ref e-3 0) ((3) (TTImpC-45InteractiveC-45ExprSearch-n--17134-8570-u--getLHS arg-0 arg-1 arg-2 (cons e-2 arg-3) e-4)) ((4) (TTImpC-45InteractiveC-45ExprSearch-n--17134-8570-u--getLHS arg-0 arg-1 arg-2 (cons e-2 arg-3) e-4))(else (let ((sc1 (CoreC-45TT-getFn arg-4))) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 3))) (box (vector arg-3 e-5 arg-4))))(else '())))))))))(else (let ((sc0 (CoreC-45TT-getFn arg-4))) (case (vector-ref sc0 0) ((1) (let ((e-3 (vector-ref sc0 3))) (box (vector arg-3 e-3 arg-4))))(else '()))))))) +(define TTImpC-45InteractiveC-45ExprSearch-n--12578-4643-u--findPos (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (case (vector-ref arg-17 0) ((3) (let ((e-2 (vector-ref arg-17 2))) (let ((e-5 (vector-ref arg-17 5))) (if (null? e-5) (lambda (eta-0) (TTImpC-45InteractiveC-45ExprSearch-n--12578-4642-u--findDirect arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 eta-0)) (let ((e-7 (car e-5))) (let ((e-8 (cdr e-5))) (if (null? e-7) (lambda (eta-0) (TTImpC-45InteractiveC-45ExprSearch-n--12578-4642-u--findDirect arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 eta-0)) (let ((e-11 (car e-7))) (let ((e-12 (cdr e-7))) (if (null? e-8) (lambda (eta-0) (TTImpC-45InteractiveC-45ExprSearch-n--12578-4642-u--findDirect arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 eta-0)) (let ((e-14 (car e-8))) (let ((e-15 (cdr e-8))) (if (null? e-14) (lambda (eta-0) (TTImpC-45InteractiveC-45ExprSearch-n--12578-4642-u--findDirect arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 eta-0)) (let ((e-18 (car e-14))) (let ((e-19 (cdr e-14))) (lambda (clam-0) (if (null? e-15) (TTImpC-45InteractiveC-45ExprSearch-getSuccessful arg-0 arg-13 arg-12 arg-11 arg-10 arg-8 arg-7 0 arg-6 arg-5 arg-4 (cons (lambda (eta-0) (TTImpC-45InteractiveC-45ExprSearch-n--12578-4642-u--findDirect arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 eta-0)) (cons (lambda (eta-0) (let ((act-24 (let ((act-24 (CoreC-45Context-fstName arg-13 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) ((PreludeC-45Types-maybe (lambda () (lambda (eta-1) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 "No fst") eta-1))) (lambda () (lambda (eta-1) (lambda (eta-2) (vector 1 eta-1)))) e-6) eta-0))))))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((act-25 (let ((act-25 (CoreC-45Context-sndName arg-13 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-9 (vector-ref act-25 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref act-25 1))) ((PreludeC-45Types-maybe (lambda () (lambda (eta-1) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 "No snd") eta-1))) (lambda () (lambda (eta-1) (lambda (eta-2) (vector 1 eta-1)))) e-9) eta-0))))))) (case (vector-ref act-25 0) ((0) (let ((e-9 (vector-ref act-25 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Context-isPairType arg-13 e-2 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-10 (vector-ref act-26 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-26 1))) (cond ((equal? e-10 1) (let ((act-27 (CoreC-45Context-clearDefs arg-14 eta-0))) (case (vector-ref act-27 0) ((0) (let ((e-13 (vector-ref act-27 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref act-27 1))) (let ((act-28 (CoreC-45Normalise-u--quote_Quote_Closure arg-13 arg-0 e-13 arg-6 e-12 eta-0))) (case (vector-ref act-28 0) ((0) (let ((e-16 (vector-ref act-28 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref act-28 1))) (let ((act-29 (CoreC-45Normalise-u--quote_Quote_Closure arg-13 arg-0 e-13 arg-6 e-19 eta-0))) (case (vector-ref act-29 0) ((0) (let ((e-17 (vector-ref act-29 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref act-29 1))) (TTImpC-45InteractiveC-45ExprSearch-getSuccessful arg-0 arg-13 arg-12 arg-11 arg-10 arg-8 arg-7 0 arg-6 arg-5 arg-4 (cons (lambda (eta-1) (let ((act-30 ((CoreC-45Normalise-evalClosure arg-13 arg-0 arg-14 e-12) eta-1))) (case (vector-ref act-30 0) ((0) (let ((e-20 (vector-ref act-30 1))) (vector 0 e-20))) (else (let ((e-20 (vector-ref act-30 1))) ((TTImpC-45InteractiveC-45ExprSearch-n--12578-4643-u--findPos arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 (lambda (u--arg) (CoreC-45TT-applyWithFC (vector 1 arg-10 (vector 1 ) e-6) (cons (cons e-11 e-16) (cons (cons e-18 e-17) (cons (cons arg-10 (arg-16 u--arg)) '()))))) e-20 arg-18) eta-1)))))) (cons (lambda (eta-1) (let ((act-30 ((CoreC-45Normalise-evalClosure arg-13 arg-0 arg-14 e-19) eta-1))) (case (vector-ref act-30 0) ((0) (let ((e-20 (vector-ref act-30 1))) (vector 0 e-20))) (else (let ((e-20 (vector-ref act-30 1))) ((TTImpC-45InteractiveC-45ExprSearch-n--12578-4643-u--findPos arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 (lambda (u--arg) (CoreC-45TT-applyWithFC (vector 1 arg-10 (vector 1 ) e-9) (cons (cons e-11 e-16) (cons (cons e-18 e-17) (cons (cons arg-10 (arg-16 u--arg)) '()))))) e-20 arg-18) eta-1)))))) '())) eta-0)))))))))))))) (else (TTImpC-45InteractiveC-45ExprSearch-noResult eta-0)))))))))))))))) '())) clam-0) (TTImpC-45InteractiveC-45ExprSearch-n--12578-4642-u--findDirect arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 clam-0))))))))))))))))))(else (lambda (eta-0) (TTImpC-45InteractiveC-45ExprSearch-n--12578-4642-u--findDirect arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 eta-0)))))) +(define TTImpC-45InteractiveC-45ExprSearch-n--12578-4642-u--findDirect (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 ext-0) (let ((act-24 (CoreC-45AutoSearch-mkArgs arg-0 arg-13 arg-11 arg-10 arg-8 arg-6 arg-17 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((e-2 (car e-5))) (let ((e-3 (cdr e-5))) (let ((sc2 (TTImpC-45InteractiveC-45ExprSearch-usableLocal arg-10 arg-6 arg-17))) (cond ((equal? sc2 1) (CoreC-45UnifyState-tryUnify arg-13 arg-11 (lambda (eta-0) (let ((act-25 (let ((sc3 (let ((sc4 (DataC-45List-isNil e-2))) (cond ((equal? sc4 1) 0) (else arg-9))))) (cond ((equal? sc3 1) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 "Must apply function") eta-0)) (else (vector 1 0)))))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((act-26 ((((CoreC-45Unify-unify (cons (lambda (u--vars) (lambda (arg-6180) (lambda (arg-6183) (lambda (arg-6186) (lambda (arg-6187) (lambda (arg-6188) (lambda (arg-6190) (lambda (arg-6193) (CoreC-45Unify-u--unifyD_Unify_NF u--vars arg-6180 arg-6183 arg-6186 arg-6187 arg-6188 arg-6190 arg-6193))))))))) (lambda (u--vars) (lambda (arg-6195) (lambda (arg-6198) (lambda (arg-6201) (lambda (arg-6202) (lambda (arg-6203) (lambda (arg-6205) (lambda (arg-6206) (CoreC-45Unify-u--unifyWithLazyD_Unify_NF u--vars arg-6195 arg-6198 arg-6201 arg-6202 arg-6203 arg-6205 arg-6206)))))))))) arg-0 arg-13 arg-11 (CoreC-45Unify-inTerm) arg-10 arg-6) arg-18) arg-17) eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-4 (vector-ref act-26 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref act-26 1))) (let ((e-0 (vector-ref e-7 0))) (if (null? e-0) ((TTImpC-45InteractiveC-45ExprSearch-mkCandidates arg-0 arg-13 arg-11 arg-10 (arg-16 arg-15) '() '()) eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 "Can't use directly") eta-0))))))))))) (lambda (eta-0) (let ((act-25 ((((CoreC-45Unify-unify (cons (lambda (u--vars) (lambda (arg-6180) (lambda (arg-6183) (lambda (arg-6186) (lambda (arg-6187) (lambda (arg-6188) (lambda (arg-6190) (lambda (arg-6193) (CoreC-45Unify-u--unifyD_Unify_NF u--vars arg-6180 arg-6183 arg-6186 arg-6187 arg-6188 arg-6190 arg-6193))))))))) (lambda (u--vars) (lambda (arg-6195) (lambda (arg-6198) (lambda (arg-6201) (lambda (arg-6202) (lambda (arg-6203) (lambda (arg-6205) (lambda (arg-6206) (CoreC-45Unify-u--unifyWithLazyD_Unify_NF u--vars arg-6195 arg-6198 arg-6201 arg-6202 arg-6203 arg-6205 arg-6206)))))))))) arg-0 arg-13 arg-11 (CoreC-45Unify-inTerm) arg-10 arg-6) arg-18) e-3) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref act-25 1))) (let ((e-0 (vector-ref e-6 0))) (if (null? e-0) (let ((act-26 (CoreC-45Core-traverseC-39 (lambda (eta-1) (TTImpC-45InteractiveC-45ExprSearch-searchIfHole arg-0 arg-13 arg-12 arg-11 arg-10 arg-7 arg-4 arg-6 eta-1)) e-2 '() eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-8 (vector-ref act-26 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref act-26 1))) ((TTImpC-45InteractiveC-45ExprSearch-mkCandidates arg-0 arg-13 arg-11 arg-10 (arg-16 arg-15) '() e-8) eta-0))))) (TTImpC-45InteractiveC-45ExprSearch-noResult eta-0)))))))) ext-0)) (else (TTImpC-45InteractiveC-45ExprSearch-noResult ext-0)))))))))))) +(define TTImpC-45InteractiveC-45ExprSearch-n--8911-1376-u--count (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (if (null? arg-6) (lambda (eta-0) (vector 1 (cons '() (lambda (eta-1) (vector 1 '()))))) (cond ((equal? arg-5 0) (lambda (eta-0) (vector 1 (cons '() (lambda (eta-1) (vector 1 '()))))))(else (let ((e-0 (- arg-5 1))) (cond ((equal? e-0 0) (lambda (clam-0) (if (null? arg-6) (let ((e-2 (car arg-6))) (let ((e-3 (cdr arg-6))) (let ((act-24 (let ((act-24 (e-3 clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) ((TTImpC-45InteractiveC-45ExprSearch-n--8911-1376-u--count arg-1 arg-2 arg-3 arg-4 e-0 e-5) clam-0))))))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((e-6 (car e-5))) (let ((e-4 (cdr e-5))) (vector 1 (cons (cons e-2 e-6) e-4)))))))))) (let ((e-5 (car arg-6))) (let ((e-6 (cdr arg-6))) (vector 1 (cons (cons e-5 '()) e-6)))))))(else (lambda (clam-1) (let ((e-2 (car arg-6))) (let ((e-3 (cdr arg-6))) (let ((act-24 (let ((act-24 (e-3 clam-1))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) ((TTImpC-45InteractiveC-45ExprSearch-n--8911-1376-u--count arg-1 arg-2 arg-3 arg-4 e-0 e-5) clam-1))))))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((e-6 (car e-5))) (let ((e-4 (cdr e-5))) (vector 1 (cons (cons e-2 e-6) e-4))))))))))))))))))) +(define TTImpC-45InteractiveC-45ExprSearch-n--10131-2466-u--continue (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 (let ((act-24 (set-box! arg-3 arg-5))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 (let ((act-25 (set-box! arg-4 arg-6))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (TTImpC-45InteractiveC-45ExprSearch-firstSuccess arg-4 arg-3 arg-7 ext-0))))))))) +(define TTImpC-45InteractiveC-45ExprSearch-n--11727-3868-u--argDiff (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-13 arg-14) (case (vector-ref arg-13 0) ((0) 0) ((1) (let ((e-48 (vector-ref arg-13 3))) (case (vector-ref arg-14 0) ((1) (let ((e-57 (vector-ref arg-14 3))) (CoreC-45Name-u--C-47C-61_Eq_Name e-48 e-57)))(else (case (vector-ref arg-14 0) ((3) 0)(else (case (vector-ref arg-13 0) ((4) (let ((e-19 (vector-ref arg-13 2))) (let ((e-20 (vector-ref arg-13 3))) (case (vector-ref arg-14 0) ((4) (let ((e-29 (vector-ref arg-14 2))) (let ((e-30 (vector-ref arg-14 3))) (let ((sc3 (TTImpC-45InteractiveC-45ExprSearch-n--11727-3870-u--structDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-19 e-29))) (cond ((equal? sc3 1) 1) (else (TTImpC-45InteractiveC-45ExprSearch-n--11727-3870-u--structDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-20 e-30)))))))(else (case (vector-ref arg-14 0) ((10) 0)(else (case (vector-ref arg-13 0) ((11) (case (vector-ref arg-14 0) ((11) 0)(else (case (vector-ref arg-14 0) ((5) (let ((e-4 (vector-ref arg-14 4))) (TTImpC-45InteractiveC-45ExprSearch-n--11727-3868-u--argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-13 e-4)))(else 1))))) ((5) (let ((e-11 (vector-ref arg-13 4))) (TTImpC-45InteractiveC-45ExprSearch-n--11727-3868-u--argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-11 arg-14)))(else (case (vector-ref arg-14 0) ((5) (let ((e-4 (vector-ref arg-14 4))) (TTImpC-45InteractiveC-45ExprSearch-n--11727-3868-u--argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-13 e-4)))(else 1))))))))))) ((9) (let ((e-23 (vector-ref arg-13 2))) (case (vector-ref arg-14 0) ((9) (let ((e-33 (vector-ref arg-14 2))) (CoreC-45TT-u--C-47C-61_Eq_Constant e-23 e-33)))(else (case (vector-ref arg-14 0) ((10) 0)(else (case (vector-ref arg-13 0) ((11) (case (vector-ref arg-14 0) ((11) 0)(else (case (vector-ref arg-14 0) ((5) (let ((e-4 (vector-ref arg-14 4))) (TTImpC-45InteractiveC-45ExprSearch-n--11727-3868-u--argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-13 e-4)))(else 1))))) ((5) (let ((e-11 (vector-ref arg-13 4))) (TTImpC-45InteractiveC-45ExprSearch-n--11727-3868-u--argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-11 arg-14)))(else (case (vector-ref arg-14 0) ((5) (let ((e-4 (vector-ref arg-14 4))) (TTImpC-45InteractiveC-45ExprSearch-n--11727-3868-u--argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-13 e-4)))(else 1)))))))))) ((10) 0)(else (case (vector-ref arg-14 0) ((10) 0)(else (case (vector-ref arg-13 0) ((11) (case (vector-ref arg-14 0) ((11) 0)(else (case (vector-ref arg-14 0) ((5) (let ((e-4 (vector-ref arg-14 4))) (TTImpC-45InteractiveC-45ExprSearch-n--11727-3868-u--argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-13 e-4)))(else 1))))) ((5) (let ((e-11 (vector-ref arg-13 4))) (TTImpC-45InteractiveC-45ExprSearch-n--11727-3868-u--argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-11 arg-14)))(else (case (vector-ref arg-14 0) ((5) (let ((e-4 (vector-ref arg-14 4))) (TTImpC-45InteractiveC-45ExprSearch-n--11727-3868-u--argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-13 e-4)))(else 1)))))))))))))) ((3) 0)(else (case (vector-ref arg-14 0) ((3) 0)(else (case (vector-ref arg-13 0) ((4) (let ((e-19 (vector-ref arg-13 2))) (let ((e-20 (vector-ref arg-13 3))) (case (vector-ref arg-14 0) ((4) (let ((e-29 (vector-ref arg-14 2))) (let ((e-30 (vector-ref arg-14 3))) (let ((sc2 (TTImpC-45InteractiveC-45ExprSearch-n--11727-3870-u--structDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-19 e-29))) (cond ((equal? sc2 1) 1) (else (TTImpC-45InteractiveC-45ExprSearch-n--11727-3870-u--structDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-20 e-30)))))))(else (case (vector-ref arg-14 0) ((10) 0)(else (case (vector-ref arg-13 0) ((11) (case (vector-ref arg-14 0) ((11) 0)(else (case (vector-ref arg-14 0) ((5) (let ((e-4 (vector-ref arg-14 4))) (TTImpC-45InteractiveC-45ExprSearch-n--11727-3868-u--argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-13 e-4)))(else 1))))) ((5) (let ((e-11 (vector-ref arg-13 4))) (TTImpC-45InteractiveC-45ExprSearch-n--11727-3868-u--argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-11 arg-14)))(else (case (vector-ref arg-14 0) ((5) (let ((e-4 (vector-ref arg-14 4))) (TTImpC-45InteractiveC-45ExprSearch-n--11727-3868-u--argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-13 e-4)))(else 1))))))))))) ((9) (let ((e-23 (vector-ref arg-13 2))) (case (vector-ref arg-14 0) ((9) (let ((e-33 (vector-ref arg-14 2))) (CoreC-45TT-u--C-47C-61_Eq_Constant e-23 e-33)))(else (case (vector-ref arg-14 0) ((10) 0)(else (case (vector-ref arg-13 0) ((11) (case (vector-ref arg-14 0) ((11) 0)(else (case (vector-ref arg-14 0) ((5) (let ((e-4 (vector-ref arg-14 4))) (TTImpC-45InteractiveC-45ExprSearch-n--11727-3868-u--argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-13 e-4)))(else 1))))) ((5) (let ((e-11 (vector-ref arg-13 4))) (TTImpC-45InteractiveC-45ExprSearch-n--11727-3868-u--argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-11 arg-14)))(else (case (vector-ref arg-14 0) ((5) (let ((e-4 (vector-ref arg-14 4))) (TTImpC-45InteractiveC-45ExprSearch-n--11727-3868-u--argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-13 e-4)))(else 1)))))))))) ((10) 0)(else (case (vector-ref arg-14 0) ((10) 0)(else (case (vector-ref arg-13 0) ((11) (case (vector-ref arg-14 0) ((11) 0)(else (case (vector-ref arg-14 0) ((5) (let ((e-4 (vector-ref arg-14 4))) (TTImpC-45InteractiveC-45ExprSearch-n--11727-3868-u--argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-13 e-4)))(else 1))))) ((5) (let ((e-11 (vector-ref arg-13 4))) (TTImpC-45InteractiveC-45ExprSearch-n--11727-3868-u--argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-11 arg-14)))(else (case (vector-ref arg-14 0) ((5) (let ((e-4 (vector-ref arg-14 4))) (TTImpC-45InteractiveC-45ExprSearch-n--11727-3868-u--argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-13 e-4)))(else 1)))))))))))))) +(define TTImpC-45InteractiveC-45ExprSearch-n--11727-3869-u--appsDiff (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-13 arg-14 arg-15 arg-16) (case (vector-ref arg-13 0) ((1) (let ((e-4 (vector-ref arg-13 2))) (let ((e-5 (vector-ref arg-13 3))) (case (vector-ref e-4 0) ((2) (case (vector-ref arg-14 0) ((1) (let ((e-30 (vector-ref arg-14 2))) (let ((e-31 (vector-ref arg-14 3))) (case (vector-ref e-30 0) ((2) (let ((sc4 (CoreC-45Name-u--C-47C-61_Eq_Name e-5 e-31))) (cond ((equal? sc4 1) 1) (else (PreludeC-45Interfaces-any (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (lambda (eta-0) (PreludeC-45Basics-uncurry (lambda (eta-1) (lambda (eta-2) (TTImpC-45InteractiveC-45ExprSearch-n--11727-3868-u--argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 eta-1 eta-2))) eta-0)) (DataC-45List-u--zip_Zippable_List arg-15 arg-16))))))(else (case (vector-ref arg-14 0) ((1) (let ((e-23 (vector-ref arg-14 3))) (let ((sc4 (CoreC-45Name-u--C-61C-61_Eq_Name e-5 e-23))) (cond ((equal? sc4 1) (let ((sc5 (PreludeC-45Types-u--C-61C-61_Eq_Nat (PreludeC-45TypesC-45List-length arg-15) (PreludeC-45TypesC-45List-length arg-16)))) (cond ((equal? sc5 1) (PreludeC-45Interfaces-any (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (lambda (eta-0) (PreludeC-45Basics-uncurry (lambda (eta-1) (lambda (eta-2) (TTImpC-45InteractiveC-45ExprSearch-n--11727-3868-u--argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 eta-1 eta-2))) eta-0)) (DataC-45List-u--zip_Zippable_List arg-15 arg-16))) (else 0)))) (else 0)))))(else (case (vector-ref e-4 0) ((2) (case (vector-ref arg-14 0) ((0) 1)(else (if (null? arg-15) (if (null? arg-16) (TTImpC-45InteractiveC-45ExprSearch-n--11727-3868-u--argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-13 arg-14) 0) 0))))(else (if (null? arg-15) (if (null? arg-16) (TTImpC-45InteractiveC-45ExprSearch-n--11727-3868-u--argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-13 arg-14) 0) 0))))))))))(else (case (vector-ref arg-14 0) ((1) (let ((e-23 (vector-ref arg-14 3))) (let ((sc3 (CoreC-45Name-u--C-61C-61_Eq_Name e-5 e-23))) (cond ((equal? sc3 1) (let ((sc4 (PreludeC-45Types-u--C-61C-61_Eq_Nat (PreludeC-45TypesC-45List-length arg-15) (PreludeC-45TypesC-45List-length arg-16)))) (cond ((equal? sc4 1) (PreludeC-45Interfaces-any (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (lambda (eta-0) (PreludeC-45Basics-uncurry (lambda (eta-1) (lambda (eta-2) (TTImpC-45InteractiveC-45ExprSearch-n--11727-3868-u--argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 eta-1 eta-2))) eta-0)) (DataC-45List-u--zip_Zippable_List arg-15 arg-16))) (else 0)))) (else 0)))))(else (case (vector-ref e-4 0) ((2) (case (vector-ref arg-14 0) ((0) 1)(else (if (null? arg-15) (if (null? arg-16) (TTImpC-45InteractiveC-45ExprSearch-n--11727-3868-u--argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-13 arg-14) 0) 0))))(else (if (null? arg-15) (if (null? arg-16) (TTImpC-45InteractiveC-45ExprSearch-n--11727-3868-u--argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-13 arg-14) 0) 0)))))))) ((3) (case (vector-ref arg-14 0) ((1) (let ((e-36 (vector-ref arg-14 2))) (let ((e-37 (vector-ref arg-14 3))) (case (vector-ref e-36 0) ((3) (let ((sc4 (CoreC-45Name-u--C-47C-61_Eq_Name e-5 e-37))) (cond ((equal? sc4 1) 1) (else (PreludeC-45Interfaces-any (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (lambda (eta-0) (PreludeC-45Basics-uncurry (lambda (eta-1) (lambda (eta-2) (TTImpC-45InteractiveC-45ExprSearch-n--11727-3868-u--argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 eta-1 eta-2))) eta-0)) (DataC-45List-u--zip_Zippable_List arg-15 arg-16))))))(else (case (vector-ref arg-14 0) ((1) (let ((e-23 (vector-ref arg-14 3))) (let ((sc4 (CoreC-45Name-u--C-61C-61_Eq_Name e-5 e-23))) (cond ((equal? sc4 1) (let ((sc5 (PreludeC-45Types-u--C-61C-61_Eq_Nat (PreludeC-45TypesC-45List-length arg-15) (PreludeC-45TypesC-45List-length arg-16)))) (cond ((equal? sc5 1) (PreludeC-45Interfaces-any (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (lambda (eta-0) (PreludeC-45Basics-uncurry (lambda (eta-1) (lambda (eta-2) (TTImpC-45InteractiveC-45ExprSearch-n--11727-3868-u--argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 eta-1 eta-2))) eta-0)) (DataC-45List-u--zip_Zippable_List arg-15 arg-16))) (else 0)))) (else 0)))))(else (case (vector-ref e-4 0) ((2) (case (vector-ref arg-14 0) ((0) 1)(else (if (null? arg-15) (if (null? arg-16) (TTImpC-45InteractiveC-45ExprSearch-n--11727-3868-u--argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-13 arg-14) 0) 0))))(else (if (null? arg-15) (if (null? arg-16) (TTImpC-45InteractiveC-45ExprSearch-n--11727-3868-u--argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-13 arg-14) 0) 0))))))))))(else (case (vector-ref arg-14 0) ((1) (let ((e-23 (vector-ref arg-14 3))) (let ((sc3 (CoreC-45Name-u--C-61C-61_Eq_Name e-5 e-23))) (cond ((equal? sc3 1) (let ((sc4 (PreludeC-45Types-u--C-61C-61_Eq_Nat (PreludeC-45TypesC-45List-length arg-15) (PreludeC-45TypesC-45List-length arg-16)))) (cond ((equal? sc4 1) (PreludeC-45Interfaces-any (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (lambda (eta-0) (PreludeC-45Basics-uncurry (lambda (eta-1) (lambda (eta-2) (TTImpC-45InteractiveC-45ExprSearch-n--11727-3868-u--argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 eta-1 eta-2))) eta-0)) (DataC-45List-u--zip_Zippable_List arg-15 arg-16))) (else 0)))) (else 0)))))(else (case (vector-ref e-4 0) ((2) (case (vector-ref arg-14 0) ((0) 1)(else (if (null? arg-15) (if (null? arg-16) (TTImpC-45InteractiveC-45ExprSearch-n--11727-3868-u--argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-13 arg-14) 0) 0))))(else (if (null? arg-15) (if (null? arg-16) (TTImpC-45InteractiveC-45ExprSearch-n--11727-3868-u--argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-13 arg-14) 0) 0))))))))(else (case (vector-ref arg-14 0) ((1) (let ((e-23 (vector-ref arg-14 3))) (let ((sc2 (CoreC-45Name-u--C-61C-61_Eq_Name e-5 e-23))) (cond ((equal? sc2 1) (let ((sc3 (PreludeC-45Types-u--C-61C-61_Eq_Nat (PreludeC-45TypesC-45List-length arg-15) (PreludeC-45TypesC-45List-length arg-16)))) (cond ((equal? sc3 1) (PreludeC-45Interfaces-any (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (lambda (eta-0) (PreludeC-45Basics-uncurry (lambda (eta-1) (lambda (eta-2) (TTImpC-45InteractiveC-45ExprSearch-n--11727-3868-u--argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 eta-1 eta-2))) eta-0)) (DataC-45List-u--zip_Zippable_List arg-15 arg-16))) (else 0)))) (else 0)))))(else (case (vector-ref e-4 0) ((2) (case (vector-ref arg-14 0) ((0) 1)(else (if (null? arg-15) (if (null? arg-16) (TTImpC-45InteractiveC-45ExprSearch-n--11727-3868-u--argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-13 arg-14) 0) 0))))(else (if (null? arg-15) (if (null? arg-16) (TTImpC-45InteractiveC-45ExprSearch-n--11727-3868-u--argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-13 arg-14) 0) 0)))))))))) ((0) (case (vector-ref arg-14 0) ((1) (let ((e-42 (vector-ref arg-14 2))) (case (vector-ref e-42 0) ((2) 1)(else (if (null? arg-15) (if (null? arg-16) (TTImpC-45InteractiveC-45ExprSearch-n--11727-3868-u--argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-13 arg-14) 0) 0)))))(else (if (null? arg-15) (if (null? arg-16) (TTImpC-45InteractiveC-45ExprSearch-n--11727-3868-u--argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-13 arg-14) 0) 0))))(else (if (null? arg-15) (if (null? arg-16) (TTImpC-45InteractiveC-45ExprSearch-n--11727-3868-u--argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-13 arg-14) 0) 0))))) +(define TTImpC-45InteractiveC-45ExprSearch-n--14317-6164-u--applyLocal (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (case (vector-ref arg-15 0) ((0) (let ((e-3 (vector-ref arg-15 3))) (let ((e-4 (vector-ref arg-15 4))) (lambda (clam-0) (case (vector-ref e-3 0) ((2) (let ((e-6 (vector-ref e-3 1))) (let ((act-24 (let ((act-24 (((e-4 arg-13) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) arg-6 (vector 10 arg-9 0))) clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (TTImpC-45InteractiveC-45ExprSearch-n--14317-6163-u--matchable arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-5 clam-0))))))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (cond ((equal? e-5 1) (let ((act-25 (CoreC-45UnifyState-genVarName arg-12 arg-10 "cty" clam-0))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45ElabC-45Check-metaVar arg-0 arg-12 arg-10 e-6 (AlgebraC-45Semiring-erased (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))) arg-6 e-10 (vector 11 arg-9) clam-0))) (case (vector-ref act-26 0) ((0) (let ((e-11 (vector-ref act-26 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-26 1))) (let ((u--optsC-39 (let ((e-0 (vector-ref arg-7 0))) (let ((e-20 (vector-ref arg-7 1))) (let ((e-19 (vector-ref arg-7 2))) (let ((e-18 (vector-ref arg-7 3))) (let ((e-17 (vector-ref arg-7 4))) (let ((e-15 (vector-ref arg-7 6))) (let ((e-14 (vector-ref arg-7 7))) (let ((e-13 (vector-ref arg-7 8))) (let ((e-12 (vector-ref arg-7 9))) (vector e-0 e-20 e-19 e-18 e-17 1 e-15 e-14 e-13 e-12)))))))))))) (let ((act-27 (TTImpC-45InteractiveC-45ExprSearch-searchLocalWith arg-0 arg-12 arg-11 arg-10 arg-9 1 arg-8 u--optsC-39 arg-6 (cons (cons arg-1 arg-2) '()) e-11 arg-4 clam-0))) (case (vector-ref act-27 0) ((0) (let ((e-12 (vector-ref act-27 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref act-27 1))) ((TTImpC-45InteractiveC-45ExprSearch-makeHelper arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 e-11 arg-16 e-12) clam-0))))))))))))))) (else (TTImpC-45InteractiveC-45ExprSearch-noResult clam-0)))))))))(else (TTImpC-45InteractiveC-45ExprSearch-noResult clam-0)))))))(else (lambda (eta-0) (TTImpC-45InteractiveC-45ExprSearch-noResult eta-0)))))) +(define TTImpC-45InteractiveC-45ExprSearch-u--map_Functor_Search (lambda (arg-2 arg-3) (if (null? arg-3) '() (let ((e-2 (car arg-3))) (let ((e-3 (cdr arg-3))) (cons (arg-2 e-2) (lambda (eta-0) (let ((act-24 (e-3 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (TTImpC-45InteractiveC-45ExprSearch-u--map_Functor_Search arg-2 e-5))))))))))))) +(define TTImpC-45InteractiveC-45ExprSearch-usableLocal (lambda (arg-1 arg-2 arg-3) (case (vector-ref arg-3 0) ((1) (let ((e-2 (vector-ref arg-3 2))) (case (vector-ref e-2 0) ((2) 0)(else 1))))(else 1)))) (define TTImpC-45InteractiveC-45ExprSearch-trySearch (lambda (arg-1 arg-2 arg-3 arg-4) (lambda (eta-0) (TTImpC-45InteractiveC-45ExprSearch-firstSuccess arg-1 arg-2 (cons arg-3 (cons arg-4 '())) eta-0)))) -(define TTImpC-45InteractiveC-45ExprSearch-tryRecursive (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact (let ((sc1 arg-10)) (let ((e-1 (vector-ref sc1 2))) e-1)) (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((0) (TTImpC-45InteractiveC-45ExprSearch-noResult ext-0)) (else (let ((e-2 (vector-ref sc2 1))) (let ((act-26 (let ((act-26 ((CoreC-45Normalise-nf arg-1 arg-0 e-5 arg-7 arg-8) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (TTImpC-45InteractiveC-45ExprSearch-searchName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (let ((sc4 arg-6)) (let ((e-0 (vector-ref sc4 1))) (let ((e-1 (vector-ref sc4 2))) (let ((e-3 (vector-ref sc4 4))) (let ((e-4 (vector-ref sc4 5))) (let ((e-12 (vector-ref sc4 6))) (let ((e-11 (vector-ref sc4 7))) (let ((e-10 (vector-ref sc4 8))) (let ((e-8 (vector-ref sc4 9))) (let ((e-9 (vector-ref sc4 10))) (vector 0 e-0 e-1 (vector 0 ) e-3 e-4 e-12 e-11 e-10 e-8 e-9))))))))))) arg-7 e-7 arg-9 (cons (let ((sc4 arg-10)) (let ((e-1 (vector-ref sc4 2))) e-1)) e-2) ext-0)))))))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (let ((act-27 (unbox arg-1))) (vector 1 act-27)))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((act-28 (TTImpC-45InteractiveC-45ExprSearch-traverse (lambda (lamc-0) (lambda (clam-0) (let ((sc5 lamc-0)) (let ((e-4 (car sc5))) (let ((e-3 (cdr sc5))) (let ((act-28 (CoreC-45Context-toFullNames arg-1 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) e-4 clam-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc6 1))) (vector 1 (cons e-9 e-3)))))))))))) e-7 ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc5 1))) (TTImpC-45InteractiveC-45ExprSearch-filterS (lambda (eta-0) (TTImpC-45InteractiveC-45ExprSearch-n--16109-3373-u--structDiffTm arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (let ((sc6 arg-10)) (let ((e-3 (vector-ref sc6 3))) e-3)) eta-0)) e-9 ext-0))))))))))))))))))))))))))))))) -(define TTImpC-45InteractiveC-45ExprSearch-tryIntermediateWith (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 ext-0) (let ((sc0 arg-8)) (if (null? sc0) (TTImpC-45InteractiveC-45ExprSearch-noResult ext-0) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((CoreC-45Normalise-nf arg-1 arg-0 e-5 arg-7 e-7) ext-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (TTImpC-45InteractiveC-45ExprSearch-getSuccessful arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 1 arg-7 arg-9 arg-10 (cons (TTImpC-45InteractiveC-45ExprSearch-n--18624-5618-u--applyLocal arg-0 e-6 e-7 e-3 arg-10 arg-9 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-6 e-8 arg-9) (cons (lambda (eta-0) (TTImpC-45InteractiveC-45ExprSearch-tryIntermediateWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-3 arg-9 arg-10 eta-0)) '())) ext-0)))))))))))))))))))) -(define TTImpC-45InteractiveC-45ExprSearch-tryIntermediateRec (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 ext-0) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((0) (TTImpC-45InteractiveC-45ExprSearch-noResult ext-0)) (else (let ((e-2 (vector-ref sc0 1))) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Context-lookupTyExact (let ((sc2 e-2)) (let ((e-1 (vector-ref sc2 2))) e-1)) (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((act-26 (let ((act-26 ((CoreC-45Normalise-nf arg-1 '() e-5 '() e-1) ext-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc4 1))) (TTImpC-45InteractiveC-45ExprSearch-n--19050-5987-u--isSingleCon arg-0 e-2 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-7 ext-0)))))))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc4 1))) (let ((sc5 e-7)) (cond ((equal? sc5 0) (let ((act-27 (CoreC-45UnifyState-genVarName arg-1 arg-3 "cty" ext-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc6 1))) (let ((act-28 (TTImpC-45ElabC-45Check-metaVar arg-0 arg-1 arg-3 arg-4 (AlgebraC-45Semiring-erased (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))) arg-7 e-8 (vector 11 arg-4) ext-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc7 1))) (let ((u--optsC-39 (let ((sc8 arg-6)) (let ((e-0 (vector-ref sc8 1))) (let ((e-16 (vector-ref sc8 2))) (let ((e-3 (vector-ref sc8 4))) (let ((e-4 (vector-ref sc8 5))) (let ((e-13 (vector-ref sc8 7))) (let ((e-12 (vector-ref sc8 8))) (let ((e-11 (vector-ref sc8 9))) (let ((e-10 (vector-ref sc8 10))) (vector 0 e-0 e-16 (vector 0 ) e-3 e-4 0 e-13 e-12 e-11 e-10)))))))))))) (let ((act-29 (CoreC-45ContextC-45Log-logTerm arg-0 arg-1 "interaction.search" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Trying recursive search for") arg-8 ext-0))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (vector 0 e-3))) (else (let ((act-30 (let ((act-30 (CoreC-45Context-toFullNames arg-1 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) (let ((sc9 e-2)) (let ((e-4 (vector-ref sc9 2))) e-4)) ext-0))) (let ((sc9 act-30)) (case (vector-ref sc9 0) ((0) (let ((e-3 (vector-ref sc9 1))) (vector 0 e-3))) (else (let ((e-11 (vector-ref sc9 1))) (CoreC-45ContextC-45Log-log arg-1 "interaction.search" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (CoreC-45Name-u--show_Show_Name e-11)) ext-0)))))))) (let ((sc9 act-30)) (case (vector-ref sc9 0) ((0) (let ((e-3 (vector-ref sc9 1))) (vector 0 e-3))) (else (let ((act-31 (let ((act-31 (CoreC-45Context-toFullNames arg-1 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) (let ((sc10 e-2)) (let ((e-3 (vector-ref sc10 3))) e-3)) ext-0))) (let ((sc10 act-31)) (case (vector-ref sc10 0) ((0) (let ((e-3 (vector-ref sc10 1))) (vector 0 e-3))) (else (let ((e-12 (vector-ref sc10 1))) (CoreC-45ContextC-45Log-logTerm (let ((sc11 e-2)) (let ((e-0 (vector-ref sc11 1))) e-0)) arg-1 "interaction.search" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "LHS") e-12 ext-0)))))))) (let ((sc10 act-31)) (case (vector-ref sc10 0) ((0) (let ((e-3 (vector-ref sc10 1))) (vector 0 e-3))) (else (let ((act-32 (TTImpC-45InteractiveC-45ExprSearch-tryRecursive arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 u--optsC-39 arg-7 e-9 arg-9 e-2 ext-0))) (let ((sc11 act-32)) (case (vector-ref sc11 0) ((0) (let ((e-3 (vector-ref sc11 1))) (vector 0 e-3))) (else (let ((e-13 (vector-ref sc11 1))) ((TTImpC-45InteractiveC-45ExprSearch-makeHelper arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 u--optsC-39 arg-7 e-9 arg-8 e-13) ext-0))))))))))))))))))))))))))))))(else (TTImpC-45InteractiveC-45ExprSearch-noResult ext-0))))))))))) (else (TTImpC-45InteractiveC-45ExprSearch-noResult ext-0)))))))))))))))))))) +(define TTImpC-45InteractiveC-45ExprSearch-tryRecursive (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact (let ((e-1 (vector-ref arg-10 1))) e-1) (let ((e-0 (vector-ref e-5 0))) e-0)) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (if (null? e-6) (TTImpC-45InteractiveC-45ExprSearch-noResult ext-0) (let ((e-2 (unbox e-6))) (let ((act-26 (let ((act-26 ((CoreC-45Normalise-nf arg-1 arg-0 e-5 arg-7 arg-8) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-3 (vector-ref act-26 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref act-26 1))) (TTImpC-45InteractiveC-45ExprSearch-searchName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (let ((e-0 (vector-ref arg-6 0))) (let ((e-1 (vector-ref arg-6 1))) (let ((e-3 (vector-ref arg-6 3))) (let ((e-4 (vector-ref arg-6 4))) (let ((e-12 (vector-ref arg-6 5))) (let ((e-11 (vector-ref arg-6 6))) (let ((e-10 (vector-ref arg-6 7))) (let ((e-8 (vector-ref arg-6 8))) (let ((e-9 (vector-ref arg-6 9))) (vector e-0 e-1 '() e-3 e-4 e-12 e-11 e-10 e-8 e-9)))))))))) arg-7 e-7 arg-9 (cons (let ((e-1 (vector-ref arg-10 1))) e-1) e-2) ext-0))))))) (case (vector-ref act-26 0) ((0) (let ((e-3 (vector-ref act-26 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (let ((act-27 (unbox arg-1))) (vector 1 act-27)))) (case (vector-ref act-27 0) ((0) (let ((e-3 (vector-ref act-27 1))) (vector 0 e-3))) (else (let ((act-28 (TTImpC-45InteractiveC-45ExprSearch-traverse (lambda (lamc-0) (lambda (clam-0) (let ((e-4 (car lamc-0))) (let ((e-3 (cdr lamc-0))) (let ((act-28 (CoreC-45Context-toFullNames arg-1 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-0))))) e-4 clam-0))) (case (vector-ref act-28 0) ((0) (let ((e-9 (vector-ref act-28 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref act-28 1))) (vector 1 (cons e-9 e-3)))))))))) e-7 ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-3 (vector-ref act-28 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref act-28 1))) (TTImpC-45InteractiveC-45ExprSearch-filterS (lambda (eta-0) (TTImpC-45InteractiveC-45ExprSearch-n--11727-3871-u--structDiffTm arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (let ((e-3 (vector-ref arg-10 2))) e-3) eta-0)) e-9 ext-0)))))))))))))))))))))))) +(define TTImpC-45InteractiveC-45ExprSearch-tryIntermediateWith (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 ext-0) (if (null? arg-8) (TTImpC-45InteractiveC-45ExprSearch-noResult ext-0) (let ((e-2 (car arg-8))) (let ((e-3 (cdr arg-8))) (let ((e-6 (car e-2))) (let ((e-7 (cdr e-2))) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Normalise-nf arg-1 arg-0 e-5 arg-7 e-7) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref act-25 1))) (TTImpC-45InteractiveC-45ExprSearch-getSuccessful arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 0 arg-7 arg-9 arg-10 (cons (TTImpC-45InteractiveC-45ExprSearch-n--14317-6164-u--applyLocal arg-0 e-6 e-7 e-3 arg-10 arg-9 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-6 e-8 arg-9) (cons (lambda (eta-0) (TTImpC-45InteractiveC-45ExprSearch-tryIntermediateWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-3 arg-9 arg-10 eta-0)) '())) ext-0)))))))))))))))) +(define TTImpC-45InteractiveC-45ExprSearch-tryIntermediateRec (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 ext-0) (if (null? arg-10) (TTImpC-45InteractiveC-45ExprSearch-noResult ext-0) (let ((e-2 (unbox arg-10))) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-lookupTyExact (let ((e-1 (vector-ref e-2 1))) e-1) (let ((e-0 (vector-ref e-5 0))) e-0) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-3 (vector-ref act-25 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref act-25 1))) (if (null? e-6) (TTImpC-45InteractiveC-45ExprSearch-noResult ext-0) (let ((e-1 (unbox e-6))) (let ((act-26 (let ((act-26 ((CoreC-45Normalise-nf arg-1 '() e-5 '() e-1) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-3 (vector-ref act-26 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref act-26 1))) (TTImpC-45InteractiveC-45ExprSearch-n--14757-6539-u--isSingleCon arg-0 e-2 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-7 ext-0))))))) (case (vector-ref act-26 0) ((0) (let ((e-3 (vector-ref act-26 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref act-26 1))) (cond ((equal? e-7 1) (let ((act-27 (CoreC-45UnifyState-genVarName arg-1 arg-3 "cty" ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-3 (vector-ref act-27 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref act-27 1))) (let ((act-28 (TTImpC-45ElabC-45Check-metaVar arg-0 arg-1 arg-3 arg-4 (AlgebraC-45Semiring-erased (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))) arg-7 e-8 (vector 11 arg-4) ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-3 (vector-ref act-28 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref act-28 1))) (let ((u--optsC-39 (let ((e-0 (vector-ref arg-6 0))) (let ((e-16 (vector-ref arg-6 1))) (let ((e-3 (vector-ref arg-6 3))) (let ((e-4 (vector-ref arg-6 4))) (let ((e-13 (vector-ref arg-6 6))) (let ((e-12 (vector-ref arg-6 7))) (let ((e-11 (vector-ref arg-6 8))) (let ((e-10 (vector-ref arg-6 9))) (vector e-0 e-16 '() e-3 e-4 1 e-13 e-12 e-11 e-10))))))))))) (let ((act-29 (CoreC-45ContextC-45Log-logTerm arg-0 arg-1 "interaction.search" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Trying recursive search for") arg-8 ext-0))) (case (vector-ref act-29 0) ((0) (let ((e-3 (vector-ref act-29 1))) (vector 0 e-3))) (else (let ((act-30 (let ((act-30 (CoreC-45Context-toFullNames arg-1 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-0))))) (let ((e-4 (vector-ref e-2 1))) e-4) ext-0))) (case (vector-ref act-30 0) ((0) (let ((e-3 (vector-ref act-30 1))) (vector 0 e-3))) (else (let ((e-11 (vector-ref act-30 1))) (CoreC-45ContextC-45Log-log arg-1 "interaction.search" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (CoreC-45Name-u--show_Show_Name e-11)) ext-0))))))) (case (vector-ref act-30 0) ((0) (let ((e-3 (vector-ref act-30 1))) (vector 0 e-3))) (else (let ((act-31 (let ((act-31 (CoreC-45Context-toFullNames arg-1 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-0))))) (let ((e-3 (vector-ref e-2 2))) e-3) ext-0))) (case (vector-ref act-31 0) ((0) (let ((e-3 (vector-ref act-31 1))) (vector 0 e-3))) (else (let ((e-12 (vector-ref act-31 1))) (CoreC-45ContextC-45Log-logTerm (let ((e-0 (vector-ref e-2 0))) e-0) arg-1 "interaction.search" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "LHS") e-12 ext-0))))))) (case (vector-ref act-31 0) ((0) (let ((e-3 (vector-ref act-31 1))) (vector 0 e-3))) (else (let ((act-32 (TTImpC-45InteractiveC-45ExprSearch-tryRecursive arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 u--optsC-39 arg-7 e-9 arg-9 e-2 ext-0))) (case (vector-ref act-32 0) ((0) (let ((e-3 (vector-ref act-32 1))) (vector 0 e-3))) (else (let ((e-13 (vector-ref act-32 1))) ((TTImpC-45InteractiveC-45ExprSearch-makeHelper arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 u--optsC-39 arg-7 e-9 arg-8 e-13) ext-0))))))))))))))))))))))))(else (TTImpC-45InteractiveC-45ExprSearch-noResult ext-0))))))))))))))))))))) (define TTImpC-45InteractiveC-45ExprSearch-tryIntermediate (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (lambda (eta-0) (TTImpC-45InteractiveC-45ExprSearch-tryIntermediateWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (DataC-45List-reverse (TTImpC-45InteractiveC-45ExprSearch-getAllEnv arg-0 arg-4 (CoreC-45TTC-45SizeOf-zero) arg-7)) arg-8 arg-9 eta-0)))) -(define TTImpC-45InteractiveC-45ExprSearch-traverse (lambda (arg-2 arg-3 ext-0) (let ((sc0 arg-3)) (if (null? sc0) (vector 1 '()) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((act-24 ((arg-2 e-2) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (cons e-5 (lambda (eta-0) (let ((act-25 (e-3 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (TTImpC-45InteractiveC-45ExprSearch-traverse arg-2 e-6 eta-0)))))))))))))))))))) -(define TTImpC-45InteractiveC-45ExprSearch-searchType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((3) (let ((e-12 (vector-ref sc1 1))) (let ((e-13 (vector-ref sc1 2))) (let ((e-14 (vector-ref sc1 3))) (let ((e-15 (vector-ref sc1 4))) (let ((sc2 e-14)) (case (vector-ref sc2 0) ((2) (let ((e-17 (vector-ref sc2 1))) (let ((e-18 (vector-ref sc2 2))) (let ((e-19 (vector-ref sc2 3))) (let ((e-20 (vector-ref sc2 4))) (lambda (eta-0) (TTImpC-45InteractiveC-45ExprSearch-getSuccessful arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 1 arg-7 e-20 arg-8 (cons (TTImpC-45InteractiveC-45ExprSearch-searchLocal arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (vector 3 e-12 e-13 e-14 e-15) arg-8) (cons (lambda (eta-1) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((CoreC-45Normalise-nf arg-1 arg-0 e-5 arg-7 e-20) eta-1))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (TTImpC-45InteractiveC-45CaseSplit-getArgName arg-1 e-5 e-13 '() arg-0 e-6 eta-1))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (let ((u--nC-39 (vector 1 e-7))) (let ((u--envC-39 (cons e-14 arg-7))) (let ((u--scC-39 (CoreC-45TT-renameTop u--nC-39 e-15))) (let ((act-27 (CoreC-45ContextC-45Log-log arg-1 "interaction.search" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Introduced lambda, search for " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 (cons u--nC-39 arg-0) u--scC-39))) eta-1))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((act-28 ((TTImpC-45InteractiveC-45ExprSearch-searchType (cons u--nC-39 arg-0) arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 u--envC-39 arg-8 0 u--scC-39) eta-1))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc7 1))) (vector 1 (TTImpC-45InteractiveC-45ExprSearch-u--map_Functor_Search (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-2 (car sc8))) (let ((e-3 (cdr sc8))) (cons (vector 3 e-12 u--nC-39 (vector 0 e-17 e-18 e-19 e-20) e-2) e-3))))) e-9)))))))))))))))))))))))))))))) '())) eta-0)))))))(else (TTImpC-45InteractiveC-45ExprSearch-case--searchType-6698 arg-0 arg-9 arg-10 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (CoreC-45TT-getFnArgs arg-10))))))))))(else (TTImpC-45InteractiveC-45ExprSearch-case--searchType-6698 arg-0 arg-9 arg-10 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (CoreC-45TT-getFnArgs arg-10))))))(else (let ((e-0 (- arg-9 1))) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((3) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (let ((sc1 e-4)) (case (vector-ref sc1 0) ((2) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((e-9 (vector-ref sc1 3))) (let ((e-10 (vector-ref sc1 4))) (let ((u--envC-39 (cons e-4 arg-7))) (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-log arg-1 "interaction.search" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Introduced lambda, search for " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 (cons e-3 arg-0) e-5))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((act-25 ((TTImpC-45InteractiveC-45ExprSearch-searchType (cons e-3 arg-0) arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 u--envC-39 arg-8 e-0 e-5) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-11 (vector-ref sc3 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc3 1))) (vector 1 (TTImpC-45InteractiveC-45ExprSearch-u--map_Functor_Search (lambda (lamc-0) (let ((sc4 lamc-0)) (let ((e-13 (car sc4))) (let ((e-12 (cdr sc4))) (cons (vector 3 e-2 e-3 (vector 0 e-7 e-8 e-9 e-10) e-13) e-12))))) e-11))))))))))))))))))(else (TTImpC-45InteractiveC-45ExprSearch-case--searchType-6698 arg-0 arg-9 arg-10 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (CoreC-45TT-getFnArgs arg-10))))))))))(else (TTImpC-45InteractiveC-45ExprSearch-case--searchType-6698 arg-0 arg-9 arg-10 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (CoreC-45TT-getFnArgs arg-10))))))))))) -(define TTImpC-45InteractiveC-45ExprSearch-searchSort (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (TTImpC-45InteractiveC-45ExprSearch-searchN arg-1 arg-2 arg-3 arg-4 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-2 (car sc1))) (let ((e-3 (cdr sc1))) (let ((_-0 (cons e-2 e-3))) ((TTImpC-45InteractiveC-45ExprSearch-case--caseC-32blockC-32inC-32searchSort-1138 arg-5 arg-4 arg-3 arg-2 arg-1 e-2 e-3 _-0 (DataC-45List-isNil e-2)) ext-0)))))))))))) -(define TTImpC-45InteractiveC-45ExprSearch-searchNames (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 ext-0) (let ((sc0 arg-10)) (if (null? sc0) (TTImpC-45InteractiveC-45ExprSearch-noResult ext-0) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (TTImpC-45InteractiveC-45ExprSearch-n--15817-3115-u--visible arg-0 e-2 e-3 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) (cons (let ((sc2 e-5)) (let ((e-30 (vector-ref sc2 3))) e-30)) (let ((sc2 e-5)) (let ((e-29 (vector-ref sc2 4))) e-29))) eta-0 eta-1))) (cons e-2 e-3) '() ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((u--visns (DataC-45List-mapMaybe (lambda (eta-0) eta-0) e-6))) (let ((act-26 ((CoreC-45Normalise-nf arg-1 arg-0 e-5 arg-7 arg-8) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (CoreC-45ContextC-45Log-logTerm arg-0 arg-1 "interaction.search" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Searching " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45Name-u--show_Show_Name u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Name-u--showPrec_Show_Name u--d u--x)))) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-fst eta-0)) u--visns)) " for "))) arg-8 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (TTImpC-45InteractiveC-45ExprSearch-getSuccessful arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 1 arg-7 arg-8 arg-9 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (lambda (eta-1) (TTImpC-45InteractiveC-45ExprSearch-searchName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-7 arg-9 eta-0 eta-1))) u--visns) ext-0))))))))))))))))))))))))))) -(define TTImpC-45InteractiveC-45ExprSearch-searchName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 ext-0) (let ((sc0 arg-10)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Context-getNS arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (CoreC-45Context-getNestedNS arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) ((TTImpC-45InteractiveC-45ExprSearch-case--searchName-2378 arg-0 e-2 e-3 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-6 e-7 (CoreC-45Context-visibleInAny (cons e-6 e-7) (let ((sc4 e-3)) (let ((e-1 (vector-ref sc4 2))) e-1)) (let ((sc4 e-3)) (let ((e-9 (vector-ref sc4 10))) e-9)))) ext-0))))))))))))))))))))) -(define TTImpC-45InteractiveC-45ExprSearch-searchN (lambda (arg-1 arg-2 arg-3 arg-4 ext-0) (CoreC-45UnifyState-tryUnify arg-1 arg-2 (lambda (eta-0) (let ((act-24 (arg-4 eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((TTImpC-45InteractiveC-45ExprSearch-n--13412-957-u--count arg-4 arg-3 arg-2 arg-1 arg-3 e-5) eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 e-6)))))))))))) (lambda (eta-0) (vector 1 (cons '() (lambda (eta-1) (vector 1 '()))))) ext-0))) -(define TTImpC-45InteractiveC-45ExprSearch-searchLocalWith (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 ext-0) (let ((sc0 arg-9)) (if (null? sc0) (TTImpC-45InteractiveC-45ExprSearch-noResult ext-0) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((CoreC-45Normalise-nf arg-1 arg-0 e-5 arg-8 arg-10) ext-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-26 ((CoreC-45Normalise-nf arg-1 arg-0 e-5 arg-8 e-7) ext-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc4 1))) (TTImpC-45InteractiveC-45ExprSearch-getSuccessful arg-0 arg-1 arg-2 arg-3 arg-4 arg-6 arg-7 1 arg-8 arg-10 arg-11 (cons (TTImpC-45InteractiveC-45ExprSearch-n--16927-4115-u--findPos arg-0 e-6 e-7 e-3 arg-11 arg-10 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-6 (lambda (eta-0) eta-0) e-9 e-8) (cons (lambda (eta-0) (TTImpC-45InteractiveC-45ExprSearch-searchLocalWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-3 arg-10 arg-11 eta-0)) '())) ext-0))))))))))))))))))))))))) -(define TTImpC-45InteractiveC-45ExprSearch-searchLocal (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (lambda (eta-0) (TTImpC-45InteractiveC-45ExprSearch-searchLocalWith arg-0 arg-1 arg-2 arg-3 arg-4 1 arg-5 arg-6 arg-7 (DataC-45List-reverse (TTImpC-45InteractiveC-45ExprSearch-getAllEnv arg-0 arg-4 (CoreC-45TTC-45SizeOf-zero) arg-7)) arg-8 arg-9 eta-0)))) -(define TTImpC-45InteractiveC-45ExprSearch-searchIfHole (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (TTImpC-45InteractiveC-45ExprSearch-case--searchIfHole-1661 arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (let ((sc0 arg-5)) (let ((e-3 (vector-ref sc0 4))) e-3))))) -(define TTImpC-45InteractiveC-45ExprSearch-searchHole (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 ext-0) (let ((act-24 (CoreC-45Normalise-normalise arg-0 '() arg-9 '() (let ((sc0 arg-10)) (let ((e-2 (vector-ref sc0 3))) e-2)) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (CoreC-45ContextC-45Log-logTerm '() arg-0 "interaction.search" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Normalised type") e-5 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else ((TTImpC-45InteractiveC-45ExprSearch-searchType '() arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 '() arg-8 arg-7 e-5) ext-0)))))))))))) -(define TTImpC-45InteractiveC-45ExprSearch-search (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (TTImpC-45InteractiveC-45ExprSearch-n--13963-7609-u--lookupHoleName arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 arg-7 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0)) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((sc3 e-1)) (if (null? sc3) (let ((act-26 (CoreC-45ContextC-45Log-log arg-0 "interaction.search" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name arg-7) " not found")) ext-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (CoreC-45Context-undefinedName arg-0 arg-3 arg-7 ext-0))))) (let ((e-4 (car sc3))) (let ((e-7 (cdr sc3))) (let ((sc4 e-7)) (if (null? sc4) (let ((act-26 (CoreC-45ContextC-45Log-log arg-0 "interaction.search" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name arg-7) " not found")) ext-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (CoreC-45Context-undefinedName arg-0 arg-3 arg-7 ext-0))))) (let ((e-8 (car sc4))) (let ((e-9 (cdr sc4))) (let ((bind-0 (vector 1 (cons e-4 (cons e-8 e-9))))) (TTImpC-45InteractiveC-45ExprSearch-case--caseC-32blockC-32inC-32search-7794 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-4 e-8 e-9 bind-0 (let ((sc5 e-9)) (let ((e-17 (vector-ref sc5 18))) e-17)) ext-0))))))))))))(else (let ((act-26 (CoreC-45ContextC-45Log-log arg-0 "interaction.search" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name arg-7) " not found")) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (CoreC-45Context-undefinedName arg-0 arg-3 arg-7 ext-0)))))))))))))))))))) +(define TTImpC-45InteractiveC-45ExprSearch-traverse (lambda (arg-2 arg-3 ext-0) (if (null? arg-3) (vector 1 '()) (let ((e-2 (car arg-3))) (let ((e-3 (cdr arg-3))) (let ((act-24 ((arg-2 e-2) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (cons e-5 (lambda (eta-0) (let ((act-25 (e-3 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref act-25 1))) (TTImpC-45InteractiveC-45ExprSearch-traverse arg-2 e-6 eta-0))))))))))))))))) +(define TTImpC-45InteractiveC-45ExprSearch-searchType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (cond ((equal? arg-9 0) (case (vector-ref arg-10 0) ((3) (let ((e-12 (vector-ref arg-10 1))) (let ((e-13 (vector-ref arg-10 2))) (let ((e-14 (vector-ref arg-10 3))) (let ((e-15 (vector-ref arg-10 4))) (case (vector-ref e-14 0) ((2) (let ((e-17 (vector-ref e-14 1))) (let ((e-18 (vector-ref e-14 2))) (let ((e-19 (vector-ref e-14 3))) (let ((e-20 (vector-ref e-14 4))) (lambda (eta-0) (TTImpC-45InteractiveC-45ExprSearch-getSuccessful arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 0 arg-7 e-20 arg-8 (cons (TTImpC-45InteractiveC-45ExprSearch-searchLocal arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (vector 3 e-12 e-13 e-14 e-15) arg-8) (cons (lambda (eta-1) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Normalise-nf arg-1 arg-0 e-5 arg-7 e-20) eta-1))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45InteractiveC-45CaseSplit-getArgName arg-1 e-5 e-13 '() arg-0 e-6 eta-1))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((u--nC-39 (vector 1 e-7))) (let ((u--envC-39 (cons e-14 arg-7))) (let ((u--scC-39 (CoreC-45TT-renameTop u--nC-39 e-15))) (let ((act-27 (CoreC-45ContextC-45Log-log arg-1 "interaction.search" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Introduced lambda, search for " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 (cons u--nC-39 arg-0) u--scC-39))) eta-1))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((act-28 ((TTImpC-45InteractiveC-45ExprSearch-searchType (cons u--nC-39 arg-0) arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 u--envC-39 arg-8 0 u--scC-39) eta-1))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-28 1))) (vector 1 (TTImpC-45InteractiveC-45ExprSearch-u--map_Functor_Search (lambda (lamc-0) (let ((e-2 (car lamc-0))) (let ((e-3 (cdr lamc-0))) (cons (vector 3 e-12 u--nC-39 (vector 0 e-17 e-18 e-19 e-20) e-2) e-3)))) e-9))))))))))))))))))))))))) '())) eta-0)))))))(else (TTImpC-45InteractiveC-45ExprSearch-case--searchType-7262 arg-0 arg-9 arg-10 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (CoreC-45TT-getFnArgs arg-10)))))))))(else (TTImpC-45InteractiveC-45ExprSearch-case--searchType-7262 arg-0 arg-9 arg-10 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (CoreC-45TT-getFnArgs arg-10)))))(else (let ((e-0 (- arg-9 1))) (case (vector-ref arg-10 0) ((3) (let ((e-2 (vector-ref arg-10 1))) (let ((e-3 (vector-ref arg-10 2))) (let ((e-4 (vector-ref arg-10 3))) (let ((e-5 (vector-ref arg-10 4))) (case (vector-ref e-4 0) ((2) (let ((e-7 (vector-ref e-4 1))) (let ((e-8 (vector-ref e-4 2))) (let ((e-9 (vector-ref e-4 3))) (let ((e-10 (vector-ref e-4 4))) (let ((u--envC-39 (cons e-4 arg-7))) (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-log arg-1 "interaction.search" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Introduced lambda, search for " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 (cons e-3 arg-0) e-5))) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((act-25 ((TTImpC-45InteractiveC-45ExprSearch-searchType (cons e-3 arg-0) arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 u--envC-39 arg-8 e-0 e-5) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-11 (vector-ref act-25 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-25 1))) (vector 1 (TTImpC-45InteractiveC-45ExprSearch-u--map_Functor_Search (lambda (lamc-0) (let ((e-13 (car lamc-0))) (let ((e-12 (cdr lamc-0))) (cons (vector 3 e-2 e-3 (vector 0 e-7 e-8 e-9 e-10) e-13) e-12)))) e-11))))))))))))))))(else (TTImpC-45InteractiveC-45ExprSearch-case--searchType-7262 arg-0 arg-9 arg-10 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (CoreC-45TT-getFnArgs arg-10)))))))))(else (TTImpC-45InteractiveC-45ExprSearch-case--searchType-7262 arg-0 arg-9 arg-10 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (CoreC-45TT-getFnArgs arg-10))))))))) +(define TTImpC-45InteractiveC-45ExprSearch-searchSort (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (TTImpC-45InteractiveC-45ExprSearch-searchN arg-1 arg-2 arg-3 arg-4 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((e-2 (car e-5))) (let ((e-3 (cdr e-5))) (let ((sc2 (DataC-45List-isNil e-2))) (cond ((equal? sc2 1) (vector 1 '())) (else (TTImpC-45InteractiveC-45ExprSearch-n--9070-1523-u--returnBatch arg-5 arg-4 arg-3 arg-2 arg-1 (DataC-45List-sortBy arg-5 e-2) e-3 ext-0)))))))))))) +(define TTImpC-45InteractiveC-45ExprSearch-searchNames (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 ext-0) (if (null? arg-10) (TTImpC-45InteractiveC-45ExprSearch-noResult ext-0) (let ((e-2 (car arg-10))) (let ((e-3 (cdr arg-10))) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-checkTimer arg-1 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((act-26 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (TTImpC-45InteractiveC-45ExprSearch-n--11422-3604-u--visible arg-0 e-2 e-3 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (let ((e-0 (vector-ref e-5 0))) e-0) (cons (let ((e-32 (vector-ref e-5 2))) e-32) (let ((e-31 (vector-ref e-5 3))) e-31)) eta-0 eta-1))) (cons e-2 e-3) '() ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-4 (vector-ref act-26 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref act-26 1))) (let ((u--visns (DataC-45List-mapMaybe (lambda (eta-0) eta-0) e-7))) (let ((act-27 ((CoreC-45Normalise-nf arg-1 arg-0 e-5 arg-7 arg-8) ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-4 (vector-ref act-27 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref act-27 1))) (let ((act-28 (CoreC-45ContextC-45Log-logTerm arg-0 arg-1 "interaction.search" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Searching " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45Name-u--show_Show_Name u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Name-u--showPrec_Show_Name u--d u--x)))) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-fst eta-0)) u--visns)) " for "))) arg-8 ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-4 (vector-ref act-28 1))) (vector 0 e-4))) (else (TTImpC-45InteractiveC-45ExprSearch-getSuccessful arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 0 arg-7 arg-8 arg-9 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (lambda (eta-1) (TTImpC-45InteractiveC-45ExprSearch-searchName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-8 arg-9 eta-0 eta-1))) u--visns) ext-0))))))))))))))))))))))))) +(define TTImpC-45InteractiveC-45ExprSearch-searchName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 ext-0) (let ((e-2 (car arg-10))) (let ((e-3 (cdr arg-10))) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-checkTimer arg-1 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((act-26 (CoreC-45Context-getNS arg-1 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-4 (vector-ref act-26 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (CoreC-45Context-getNestedNS arg-1 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-4 (vector-ref act-27 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref act-27 1))) (let ((sc5 (CoreC-45Context-visibleInAny (cons e-7 e-8) (let ((e-1 (vector-ref e-3 1))) e-1) (let ((e-9 (vector-ref e-3 9))) e-9)))) (cond ((equal? sc5 1) (let ((u--ty (let ((e-26 (vector-ref e-3 2))) e-26))) (let ((sc6 (TTImpC-45InteractiveC-45ExprSearch-n--10500-2813-u--usableName arg-0 e-2 e-3 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (let ((e-1 (vector-ref e-3 1))) e-1)))) (cond ((equal? sc6 1) (let ((u--namety (let ((e-17 (vector-ref e-3 17))) (case (vector-ref e-17 0) ((5) (let ((e-29 (vector-ref e-17 1))) (let ((e-28 (vector-ref e-17 2))) (vector 2 e-29 e-28)))) ((6) (let ((e-34 (vector-ref e-17 1))) (let ((e-33 (vector-ref e-17 2))) (vector 3 e-34 e-33))))(else (vector 1 )))))) (let ((act-28 (CoreC-45ContextC-45Log-log arg-1 "interaction.search" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Trying " (CoreC-45Name-u--show_Show_Name (let ((e-1 (vector-ref e-3 1))) e-1)))) ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-4 (vector-ref act-28 1))) (vector 0 e-4))) (else (let ((act-29 ((CoreC-45Normalise-nf arg-1 arg-0 e-5 arg-7 (CoreC-45TT-embed u--ty)) ext-0))) (case (vector-ref act-29 0) ((0) (let ((e-4 (vector-ref act-29 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref act-29 1))) (let ((act-30 (CoreC-45AutoSearch-mkArgs arg-0 arg-1 arg-3 arg-4 arg-5 arg-7 e-10 ext-0))) (case (vector-ref act-30 0) ((0) (let ((e-4 (vector-ref act-30 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref act-30 1))) (let ((e-12 (car e-11))) (let ((e-4 (cdr e-11))) (let ((act-31 (CoreC-45Normalise-logNF arg-0 arg-1 "interaction.search" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Target") arg-7 arg-8 ext-0))) (case (vector-ref act-31 0) ((0) (let ((e-13 (vector-ref act-31 1))) (vector 0 e-13))) (else (let ((act-32 (CoreC-45Normalise-logNF arg-0 arg-1 "interaction.search" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "App type") arg-7 e-4 ext-0))) (case (vector-ref act-32 0) ((0) (let ((e-14 (vector-ref act-32 1))) (vector 0 e-14))) (else (let ((act-33 ((((CoreC-45Unify-unify (cons (lambda (u--vars) (lambda (arg-6180) (lambda (arg-6183) (lambda (arg-6186) (lambda (arg-6187) (lambda (arg-6188) (lambda (arg-6190) (lambda (arg-6193) (CoreC-45Unify-u--unifyD_Unify_NF u--vars arg-6180 arg-6183 arg-6186 arg-6187 arg-6188 arg-6190 arg-6193))))))))) (lambda (u--vars) (lambda (arg-6195) (lambda (arg-6198) (lambda (arg-6201) (lambda (arg-6202) (lambda (arg-6203) (lambda (arg-6205) (lambda (arg-6206) (CoreC-45Unify-u--unifyWithLazyD_Unify_NF u--vars arg-6195 arg-6198 arg-6201 arg-6202 arg-6203 arg-6205 arg-6206)))))))))) arg-0 arg-1 arg-3 (CoreC-45Unify-inSearch) arg-4 arg-7) arg-8) e-4) ext-0))) (case (vector-ref act-33 0) ((0) (let ((e-15 (vector-ref act-33 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref act-33 1))) (let ((e-0 (vector-ref e-15 0))) (if (null? e-0) (let ((act-34 (CoreC-45Core-traverse_ (lambda (eta-0) (TTImpC-45InteractiveC-45ExprSearch-searchIfHole arg-0 arg-1 arg-2 arg-3 arg-4 arg-6 arg-9 arg-7 eta-0)) (DataC-45List-filter (lambda (eta-0) (TTImpC-45InteractiveC-45ExprSearch-explicit eta-0)) e-12) ext-0))) (case (vector-ref act-34 0) ((0) (let ((e-18 (vector-ref act-34 1))) (vector 0 e-18))) (else (let ((act-35 (CoreC-45Core-traverseC-39 (lambda (eta-0) (TTImpC-45InteractiveC-45ExprSearch-searchIfHole arg-0 arg-1 arg-2 arg-3 arg-4 arg-6 arg-9 arg-7 eta-0)) e-12 '() ext-0))) (case (vector-ref act-35 0) ((0) (let ((e-19 (vector-ref act-35 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref act-35 1))) ((TTImpC-45InteractiveC-45ExprSearch-mkCandidates arg-0 arg-1 arg-3 arg-4 (vector 1 arg-4 u--namety e-2) '() e-19) ext-0)))))))) (TTImpC-45InteractiveC-45ExprSearch-noResult ext-0))))))))))))))))))))))))))))(else (TTImpC-45InteractiveC-45ExprSearch-noResult ext-0))))))(else (TTImpC-45InteractiveC-45ExprSearch-noResult ext-0))))))))))))))))))))))) +(define TTImpC-45InteractiveC-45ExprSearch-searchN (lambda (arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (let ((act-24 (CoreC-45Context-getSession arg-1 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (CoreC-45Context-startTimer arg-1 (let ((e-15 (vector-ref e-5 15))) e-15) "expression search" ext-0))))))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (CoreC-45UnifyState-tryUnify arg-1 arg-2 (lambda (eta-0) (let ((act-25 (arg-4 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 ((TTImpC-45InteractiveC-45ExprSearch-n--8911-1376-u--count arg-4 arg-3 arg-2 arg-1 arg-3 e-6) eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (CoreC-45Context-clearTimer arg-1 eta-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (vector 1 e-7))))))))))))) (lambda (eta-0) (let ((act-25 (CoreC-45Context-clearTimer arg-1 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (vector 1 (cons '() (lambda (eta-1) (vector 1 '())))))))) ext-0)))))) +(define TTImpC-45InteractiveC-45ExprSearch-searchLocalWith (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 ext-0) (if (null? arg-9) (TTImpC-45InteractiveC-45ExprSearch-noResult ext-0) (let ((e-2 (car arg-9))) (let ((e-3 (cdr arg-9))) (let ((e-6 (car e-2))) (let ((e-7 (cdr e-2))) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-checkTimer arg-1 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((act-26 ((CoreC-45Normalise-nf arg-1 arg-0 e-5 arg-8 arg-10) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-4 (vector-ref act-26 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref act-26 1))) (let ((act-27 ((CoreC-45Normalise-nf arg-1 arg-0 e-5 arg-8 e-7) ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-4 (vector-ref act-27 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref act-27 1))) (TTImpC-45InteractiveC-45ExprSearch-getSuccessful arg-0 arg-1 arg-2 arg-3 arg-4 arg-6 arg-7 0 arg-8 arg-10 arg-11 (cons (TTImpC-45InteractiveC-45ExprSearch-n--12578-4643-u--findPos arg-0 e-6 e-7 e-3 arg-11 arg-10 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-6 (lambda (eta-0) eta-0) e-10 e-9) (cons (lambda (eta-0) (TTImpC-45InteractiveC-45ExprSearch-searchLocalWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-3 arg-10 arg-11 eta-0)) '())) ext-0))))))))))))))))))))))) +(define TTImpC-45InteractiveC-45ExprSearch-searchLocal (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (lambda (eta-0) (TTImpC-45InteractiveC-45ExprSearch-searchLocalWith arg-0 arg-1 arg-2 arg-3 arg-4 0 arg-5 arg-6 arg-7 (DataC-45List-reverse (TTImpC-45InteractiveC-45ExprSearch-getAllEnv arg-0 arg-4 (CoreC-45TTC-45SizeOf-zero) arg-7)) arg-8 arg-9 eta-0)))) +(define TTImpC-45InteractiveC-45ExprSearch-searchIfHole (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 (let ((e-3 (vector-ref arg-5 3))) e-3))) (cond ((equal? sc0 0) (lambda (eta-0) (TTImpC-45InteractiveC-45ExprSearch-noResult eta-0)))(else (let ((e-0 (- (let ((e-3 (vector-ref arg-5 3))) e-3) 1))) (let ((u--hole (let ((e-1 (vector-ref arg-8 0))) e-1))) (let ((u--rig (let ((e-2 (vector-ref arg-8 1))) e-2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact (vector 9 u--hole) (let ((e-30 (vector-ref e-5 0))) e-30)) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (if (null? e-6) (TTImpC-45InteractiveC-45ExprSearch-noResult eta-0) (let ((e-1 (unbox e-6))) (let ((_-0 (box e-1))) (TTImpC-45InteractiveC-45ExprSearch-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32searchIfHole-2198 arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-0 u--hole u--rig e-5 e-1 _-0 (let ((e-17 (vector-ref e-1 17))) e-17) eta-0))))))))))))))))))))) +(define TTImpC-45InteractiveC-45ExprSearch-searchHole (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 ext-0) (let ((act-24 (CoreC-45Normalise-normalise arg-0 '() arg-9 '() (let ((e-2 (vector-ref arg-10 2))) e-2) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45ContextC-45Log-logTerm '() arg-0 "interaction.search" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Normalised type") e-5 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45Context-checkTimer arg-0 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else ((TTImpC-45InteractiveC-45ExprSearch-searchType '() arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 '() arg-8 arg-7 e-5) ext-0))))))))))))) +(define TTImpC-45InteractiveC-45ExprSearch-search (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (TTImpC-45InteractiveC-45ExprSearch-n--9484-8187-u--lookupHoleName arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 arg-7 (let ((e-0 (vector-ref e-5 0))) e-0) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (if (null? e-6) (let ((act-26 (CoreC-45ContextC-45Log-log arg-0 "interaction.search" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name arg-7) " not found")) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (CoreC-45Context-undefinedName arg-0 arg-3 arg-7 ext-0)))) (let ((e-1 (unbox e-6))) (if (null? e-1) (let ((act-26 (CoreC-45ContextC-45Log-log arg-0 "interaction.search" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name arg-7) " not found")) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (CoreC-45Context-undefinedName arg-0 arg-3 arg-7 ext-0)))) (let ((e-4 (car e-1))) (let ((e-7 (cdr e-1))) (if (null? e-7) (let ((act-26 (CoreC-45ContextC-45Log-log arg-0 "interaction.search" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name arg-7) " not found")) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (CoreC-45Context-undefinedName arg-0 arg-3 arg-7 ext-0)))) (let ((e-9 (cdr e-7))) (let ((e-17 (vector-ref e-9 17))) (case (vector-ref e-17 0) ((7) (let ((e-29 (vector-ref e-17 1))) (TTImpC-45InteractiveC-45ExprSearch-searchHole arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-4 e-29 arg-6 e-5 e-9 ext-0))) ((8) (let ((act-26 (CoreC-45Normalise-getArity arg-0 '() e-5 '() (let ((e-49 (vector-ref e-9 2))) e-49) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-31 (vector-ref act-26 1))) (vector 0 e-31))) (else (let ((e-31 (vector-ref act-26 1))) (TTImpC-45InteractiveC-45ExprSearch-searchHole arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-4 e-31 arg-6 e-5 e-9 ext-0))))))(else (let ((act-26 (CoreC-45ContextC-45Log-log arg-0 "interaction.search" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name arg-7) " not a hole")) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-28 (vector-ref act-26 1))) (vector 0 e-28))) (else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 (PreludeC-45TypesC-45String-C-43C-43 "Not a hole: " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-4) (PreludeC-45TypesC-45String-C-43C-43 " in " (PreludeC-45Show-u--show_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45Name-u--show_Show_Name u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Name-u--showPrec_Show_Name u--d u--x)))) (PreludeC-45Types-u--map_Functor_Maybe (lambda (eta-0) (let ((e-30 (vector-ref eta-0 1))) e-30)) (let ((e-36 (vector-ref arg-5 2))) e-36))))))) ext-0)))))))))))))))))))))))) (define TTImpC-45InteractiveC-45ExprSearch-one (lambda (arg-1 ext-0) (vector 1 (cons arg-1 (lambda (eta-0) (vector 1 '())))))) (define TTImpC-45InteractiveC-45ExprSearch-noResult (lambda (ext-0) (vector 1 '()))) -(define TTImpC-45InteractiveC-45ExprSearch-nextResult (lambda (arg-1 arg-2 arg-3 ext-0) (CoreC-45UnifyState-tryUnify arg-1 arg-2 (lambda (eta-0) (let ((act-24 (arg-3 eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (if (null? sc1) (vector 1 (vector 0 )) (let ((e-2 (car sc1))) (let ((e-3 (cdr sc1))) (vector 1 (vector 1 (cons e-2 e-3))))))))))))) (lambda (eta-0) (vector 1 (vector 0 ))) ext-0))) -(define TTImpC-45InteractiveC-45ExprSearch-mkCandidates (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (if (null? sc0) (lambda (eta-0) (TTImpC-45InteractiveC-45ExprSearch-one (cons arg-4 arg-5) eta-0)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (if (null? sc1) (lambda (eta-0) (TTImpC-45InteractiveC-45ExprSearch-noResult eta-0)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (let ((sc2 e-6)) (let ((e-10 (car sc2))) (let ((e-11 (cdr sc2))) (lambda (eta-0) (TTImpC-45InteractiveC-45ExprSearch-firstSuccess arg-1 arg-2 (cons (TTImpC-45InteractiveC-45ExprSearch-mkCandidates arg-0 arg-1 arg-2 arg-3 (vector 4 arg-3 arg-4 e-10) (PreludeC-45TypesC-45List-C-43C-43 arg-5 e-11) e-3) (cons (lambda (eta-1) (let ((act-24 (e-7 eta-1))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) ((TTImpC-45InteractiveC-45ExprSearch-mkCandidates arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (cons e-5 e-3)) eta-1))))))) '())) eta-0))))))))))))))) -(define TTImpC-45InteractiveC-45ExprSearch-makeHelper (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (if (null? sc0) (lambda (eta-0) (vector 1 '())) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (TTImpC-45InteractiveC-45ExprSearch-case--makeHelper-4988 arg-0 e-6 e-7 e-3 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (let ((sc2 arg-6)) (let ((e-12 (vector-ref sc2 4))) e-12)))))))))))) -(define TTImpC-45InteractiveC-45ExprSearch-initSearchOpts (lambda (arg-0 arg-1) (vector 0 1 arg-0 (vector 0 ) arg-1 1 1 0 1 1 (vector 0 )))) -(define TTImpC-45InteractiveC-45ExprSearch-getSuccessful (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 ext-0) (let ((act-24 (TTImpC-45InteractiveC-45ExprSearch-firstSuccess arg-1 arg-3 arg-11 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (if (null? sc1) (let ((u--res '())) (TTImpC-45InteractiveC-45ExprSearch-case--caseC-32blockC-32inC-32getSuccessful-2923 arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 u--res (PreludeC-45Basics-C-38C-38 arg-7 (lambda () (let ((sc2 arg-6)) (let ((e-0 (vector-ref sc2 1))) e-0)))) ext-0)) (vector 1 e-5)))))))))) -(define TTImpC-45InteractiveC-45ExprSearch-getLHSData (lambda (arg-0 arg-1 arg-2 ext-0) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 1 (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((act-24 (CoreC-45Normalise-normaliseHoles arg-0 '() arg-1 '() e-2 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) e-5 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (TTImpC-45InteractiveC-45ExprSearch-n--21369-7984-u--getLHS e-2 arg-1 arg-0 '() e-6)))))))))))))))))) -(define TTImpC-45InteractiveC-45ExprSearch-getAllEnv (lambda (arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-1)) (if (null? sc0) (let ((sc1 arg-4)) '()) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 arg-4)) (let ((e-8 (car sc1))) (let ((e-9 (cdr sc1))) (let ((u--rest (TTImpC-45InteractiveC-45ExprSearch-getAllEnv e-3 arg-2 (CoreC-45TTC-45SizeOf-sucR arg-3) e-9))) (TTImpC-45InteractiveC-45ExprSearch-case--getAllEnv-1514 e-2 e-3 e-9 e-8 arg-3 arg-2 u--rest (CoreC-45TT-weakenVar arg-3 0)))))))))))) -(define TTImpC-45InteractiveC-45ExprSearch-firstSuccess (lambda (arg-1 arg-2 arg-3 ext-0) (let ((sc0 arg-3)) (if (null? sc0) (TTImpC-45InteractiveC-45ExprSearch-noResult ext-0) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (CoreC-45Core-u--catch_Catchable_Core_Error (lambda (eta-0) (let ((act-26 (e-2 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (if (null? sc4) (TTImpC-45InteractiveC-45ExprSearch-n--14597-2022-u--continue e-2 e-3 arg-2 arg-1 e-5 e-6 e-3 eta-0) (let ((e-1 (car sc4))) (let ((e-4 (cdr sc4))) (vector 1 (cons e-1 (lambda (eta-1) (TTImpC-45InteractiveC-45ExprSearch-n--14597-2022-u--continue e-2 e-3 arg-2 arg-1 e-5 e-6 (cons e-4 e-3) eta-1)))))))))))))) (lambda (u--err) (lambda (eta-0) (TTImpC-45InteractiveC-45ExprSearch-n--14597-2022-u--continue e-2 e-3 arg-2 arg-1 e-5 e-6 e-3 eta-0))) ext-0))))))))))))))))) -(define TTImpC-45InteractiveC-45ExprSearch-firstLinearOK (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((sc0 arg-4)) (if (null? sc0) (TTImpC-45InteractiveC-45ExprSearch-noResult ext-0) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (CoreC-45UnifyState-handleUnify arg-0 arg-2 (lambda (eta-0) (let ((act-24 (let ((sc2 (DataC-45List-isNil e-7))) (cond ((equal? sc2 0) (vector 1 (vector 0 ))) (else (CoreC-45Core-traverse_ (lambda (eta-1) (TTImpC-45ElabC-45Check-processDecl '() arg-0 arg-1 arg-2 (cons (vector 1 ) '()) '() '() eta-1)) e-7 eta-0)))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((act-25 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (let ((sc3 eta-1)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (vector 1 (vector 0 )))))) (lambda (eta-1) (CoreC-45LinearCheck-linearCheck '() arg-0 arg-2 arg-3 (AlgebraC-45Semiring-linear (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))) 1 '() e-6 eta-1)) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((act-26 (let ((act-26 (unbox arg-0))) (vector 1 act-26)))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-27 (CoreC-45Normalise-normaliseHoles arg-0 '() e-9 '() e-6 eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-28 (let ((act-28 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-1) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-1)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) e-10 eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc6 1))) ((TTImpC-45Unelab-unelab '() arg-0 '() e-11) eta-0)))))))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-29 (e-3 eta-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc7 1))) (vector 1 (cons e-11 (lambda (eta-1) (TTImpC-45InteractiveC-45ExprSearch-firstLinearOK arg-0 arg-1 arg-2 arg-3 e-12 eta-1))))))))))))))))))))))))))))))))) (lambda (u--err) (lambda (eta-0) (let ((act-24 (e-3 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (TTImpC-45InteractiveC-45ExprSearch-firstLinearOK arg-0 arg-1 arg-2 arg-3 e-5 eta-0)))))))) ext-0)))))))))) -(define TTImpC-45InteractiveC-45ExprSearch-filterS (lambda (arg-1 arg-2 ext-0) (let ((sc0 arg-2)) (if (null? sc0) (vector 1 '()) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((act-24 (e-3 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((u--fnext (lambda (eta-0) (TTImpC-45InteractiveC-45ExprSearch-filterS arg-1 e-5 eta-0)))) ((TTImpC-45InteractiveC-45ExprSearch-case--filterS-910 e-2 e-3 arg-1 e-5 u--fnext (arg-1 e-2)) ext-0))))))))))))) -(define TTImpC-45InteractiveC-45ExprSearch-exprSearchOpts (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (TTImpC-45InteractiveC-45ExprSearch-n--21601-8208-u--lookupHoleName arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 arg-5 e-5 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((sc3 e-1)) (let ((e-8 (car sc3))) (let ((e-7 (cdr sc3))) (let ((sc4 e-7)) (let ((e-9 (car sc4))) (let ((e-10 (cdr sc4))) (let ((act-26 (let ((act-26 (CoreC-45Context-getFullName arg-0 (vector 9 e-9) ext-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc5 1))) (CoreC-45Metadata-findHoleLHS arg-1 e-11 ext-0)))))))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc5 1))) (let ((act-27 (CoreC-45ContextC-45Log-log arg-0 "interaction.search" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "LHS hole data " (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (u--x) (CoreC-45Name-u--show_Show_Name u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Name-u--showPrec_Show_Name u--d u--x)))) (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (x-0) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() x-0)) (lambda (u--d) (lambda (x-0) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 '() u--d x-0)))) u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (x-0) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() x-0)) (lambda (d-0) (lambda (x-0) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 '() d-0 x-0)))) u--d u--x))))) (cons e-8 e-11)))) ext-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((act-28 (let ((_-0 (vector 1 (cons e-8 (cons e-9 e-10))))) (TTImpC-45InteractiveC-45ExprSearch-case--caseC-32blockC-32inC-32exprSearchOpts-8447 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-8 e-9 e-10 _-0 e-11 (let ((sc7 arg-3)) (let ((e-18 (vector-ref sc7 2))) e-18)) ext-0)))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref sc7 1))) (let ((act-29 (TTImpC-45InteractiveC-45ExprSearch-search arg-0 arg-1 arg-2 arg-4 (let ((sc8 e-10)) (let ((e-27 (vector-ref sc8 8))) e-27)) e-13 (let ((sc8 e-10)) (let ((e-2 (vector-ref sc8 3))) e-2)) e-8 ext-0))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref sc8 1))) (TTImpC-45InteractiveC-45ExprSearch-firstLinearOK arg-0 arg-1 arg-2 arg-4 e-14 ext-0)))))))))))))))))))))))))))) (else (CoreC-45Context-undefinedName arg-0 arg-4 arg-5 ext-0)))))))))))))))) -(define TTImpC-45InteractiveC-45ExprSearch-exprSearchN (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 (TTImpC-45InteractiveC-45ExprSearch-searchN arg-0 arg-2 arg-4 (lambda (eta-0) (TTImpC-45InteractiveC-45ExprSearch-exprSearch arg-0 arg-1 arg-2 arg-3 arg-5 arg-6 eta-0)) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-2 (car sc1))) (vector 1 e-2)))))))))) -(define TTImpC-45InteractiveC-45ExprSearch-exprSearch (lambda (arg-0 arg-1 arg-2 ext-3 ext-1 ext-2 ext-0) (TTImpC-45InteractiveC-45ExprSearch-exprSearchOpts arg-0 arg-1 arg-2 (TTImpC-45InteractiveC-45ExprSearch-initSearchOpts 0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))) ext-3 ext-1 ext-2 ext-0))) -(define TTImpC-45InteractiveC-45ExprSearch-explicit (lambda (arg-1) (TTImpC-45InteractiveC-45ExprSearch-case--explicit-1996 arg-1 (let ((sc0 arg-1)) (let ((e-3 (vector-ref sc0 3))) e-3))))) -(define TTImpC-45InteractiveC-45ExprSearch-combine (lambda (arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((sc0 arg-6)) (if (null? sc0) (vector 1 '()) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 arg-7)) (if (null? sc1) (vector 1 '()) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (vector 1 (cons ((arg-5 e-2) e-6) (TTImpC-45InteractiveC-45ExprSearch-trySearch arg-3 arg-4 (lambda (eta-0) (let ((act-24 (e-7 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (TTImpC-45InteractiveC-45ExprSearch-one e-2 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (TTImpC-45InteractiveC-45ExprSearch-combine arg-3 arg-4 arg-5 e-8 e-5 eta-0)))))))))))) (TTImpC-45InteractiveC-45ExprSearch-trySearch arg-3 arg-4 (lambda (eta-0) (let ((act-24 (e-3 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (TTImpC-45InteractiveC-45ExprSearch-one e-6 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (TTImpC-45InteractiveC-45ExprSearch-combine arg-3 arg-4 arg-5 e-5 e-8 eta-0)))))))))))) (lambda (eta-0) (let ((act-24 (e-3 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (e-7 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (TTImpC-45InteractiveC-45ExprSearch-combine arg-3 arg-4 arg-5 e-5 e-8 eta-0)))))))))))))))))))))))))) -(define TTImpC-45InteractiveC-45CaseSplit-case--caseC-32blockC-32inC-32getSplitsLHS-7024 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 ext-0) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (TTImpC-45InteractiveC-45CaseSplit-mkCase arg-5 arg-4 e-1 arg-14 eta-0 eta-1))) arg-15 '() ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (TTImpC-45InteractiveC-45CaseSplit-combine e-5 '()))))))))) (else (CoreC-45Context-undefinedName arg-5 arg-3 arg-10 ext-0)))))) -(define TTImpC-45InteractiveC-45CaseSplit-case--caseC-32blockC-32inC-32findUpdates-6353 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 ext-0) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (let ((act-24 (set-box! arg-5 (let ((sc1 arg-7)) (let ((e-0 (car sc1))) (let ((e-1 (cdr sc1))) (cons (cons (cons arg-3 arg-1) e-0) e-1))))))) (vector 1 act-24))) (else (let ((e-2 (vector-ref sc0 1))) (let ((act-24 (set-box! arg-5 (let ((sc1 arg-7)) (let ((e-0 (car sc1))) (let ((e-1 (cdr sc1))) (cons e-0 (cons (cons arg-1 (vector 0 arg-2 e-2)) e-1)))))))) (vector 1 act-24)))))))) -(define TTImpC-45InteractiveC-45CaseSplit-case--newLHS-6168 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((u--keep (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (vector 0 arg-5 (vector 32 arg-5 0))) (DataC-45List-take arg-4 e-3)))) (let ((u--ups (DataC-45List-drop arg-4 e-3))) (lambda (eta-0) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-1) (lambda (eta-2) (TTImpC-45InteractiveC-45CaseSplit-update arg-6 arg-3 arg-2 arg-1 eta-1 eta-2))) u--ups '() eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (TTImpC-45InteractiveC-45CaseSplit-apply e-2 (PreludeC-45TypesC-45List-C-43C-43 u--keep e-5)))))))))))))))) -(define TTImpC-45InteractiveC-45CaseSplit-case--caseC-32blockC-32inC-32updateArg-5998 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (TTImpC-45InteractiveC-45CaseSplit-expandCon arg-5 arg-1 (DataC-45List-filter (lambda (arg-7) (CoreC-45Name-u--C-47C-61_Eq_Name arg-7 arg-0)) arg-4) arg-2 ext-0)) (else (vector 1 (vector 32 arg-1 0))))))) -(define TTImpC-45InteractiveC-45CaseSplit-case--updateArg-5978 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (lambda (eta-0) (TTImpC-45InteractiveC-45CaseSplit-case--caseC-32blockC-32inC-32updateArg-5998 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (CoreC-45Name-u--C-61C-61_Eq_Name arg-0 arg-3) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 arg-1 arg-0)))))))) -(define TTImpC-45InteractiveC-45CaseSplit-case--getArgNameC-44lookupName-5477 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 1 arg-9)))) (else (lambda (eta-0) (TTImpC-45InteractiveC-45CaseSplit-n--12645-5437-u--lookupName arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-11 arg-10 eta-0))))))) -(define TTImpC-45InteractiveC-45CaseSplit-case--unique-5361 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (TTImpC-45InteractiveC-45CaseSplit-unique arg-1 arg-4 arg-3 arg-2)) (else arg-5))))) -(define TTImpC-45InteractiveC-45CaseSplit-case--findCons-5087 (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 1 (vector 0 (vector 1 arg-1 "Can't find function name on LHS")))) (else (let ((e-2 (vector-ref sc0 1))) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((TTImpC-45InteractiveC-45CaseSplit-findTyName '() arg-2 e-5 '() arg-1 arg-0) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 0 (vector 1 arg-1 (PreludeC-45TypesC-45String-C-43C-43 "Can't find type of " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name arg-1) " in LHS")))))) (else (let ((e-3 (vector-ref sc3 1))) (let ((act-26 (CoreC-45Context-lookupDefExact e-3 (let ((sc4 e-5)) (let ((e-0 (vector-ref sc4 1))) e-0)) ext-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc4 1))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((sc6 e-1)) (case (vector-ref sc6 0) ((6) (let ((e-8 (vector-ref sc6 7))) (let ((act-27 (CoreC-45Context-toFullNames arg-2 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) e-3 ext-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-15 (vector-ref sc7 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc7 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (CoreC-45Context-toFullNames arg-2 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-2) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-2)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) eta-0 eta-1))) e-8 '() ext-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-16 (vector-ref sc8 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc8 1))) (vector 1 (vector 1 (cons e-2 (cons e-15 e-16))))))))))))))))(else (vector 1 (vector 0 (vector 1 arg-1 (PreludeC-45TypesC-45String-C-43C-43 "Not a type constructor " (PreludeC-45Show-u--show_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45Context-u--show_Show_Def u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Context-u--showPrec_Show_Def u--d u--x)))) e-7))))))))))(else (vector 1 (vector 0 (vector 1 arg-1 (PreludeC-45TypesC-45String-C-43C-43 "Not a type constructor " (PreludeC-45Show-u--show_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45Context-u--show_Show_Def u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Context-u--showPrec_Show_Def u--d u--x)))) e-7))))))))))))))))))))))))))))))))) -(define TTImpC-45InteractiveC-45CaseSplit-case--getDefining-5059 (lambda (arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-3 (vector-ref sc0 3))) (vector 1 e-3)))(else (vector 0 )))))) -(define TTImpC-45InteractiveC-45CaseSplit-case--findTyName-4872 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((CoreC-45Normalise-nf arg-1 arg-0 arg-12 arg-11 arg-6) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((3) (let ((e-2 (vector-ref sc2 2))) (vector 1 (vector 1 e-2))))(else (vector 1 (vector 0 )))))))))))) (else (TTImpC-45InteractiveC-45CaseSplit-findTyName (cons arg-4 arg-0) arg-1 arg-12 (cons arg-9 arg-11) arg-10 arg-5)))))) -(define TTImpC-45InteractiveC-45CaseSplit-n--12645-5438-u--notBound (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 (PreludeC-45Types-elem (cons (lambda (arg-8) (lambda (arg-9) (CoreC-45Name-u--C-61C-61_Eq_Name arg-8 arg-9))) (lambda (arg-8) (lambda (arg-9) (CoreC-45Name-u--C-47C-61_Eq_Name arg-8 arg-9)))) (vector 1 arg-7) arg-3))) (cond ((equal? sc0 0) 1) (else 0))))) -(define TTImpC-45InteractiveC-45CaseSplit-n--12540-5346-u--mkVarN (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) arg-5)(else (PreludeC-45TypesC-45String-C-43C-43 arg-5 (PreludeC-45Show-u--show_Show_Int arg-6))))))) -(define TTImpC-45InteractiveC-45CaseSplit-n--12645-5437-u--lookupName (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 ext-0) (let ((sc0 arg-9)) (if (null? sc0) (vector 1 (vector 0 )) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (let ((act-24 (CoreC-45Context-getFullName arg-6 arg-8 ext-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (CoreC-45Context-getFullName arg-6 e-6 ext-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) ((TTImpC-45InteractiveC-45CaseSplit-case--getArgNameC-44lookupName-5477 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-6 e-7 e-3 arg-8 e-5 e-8 (CoreC-45Name-u--C-61C-61_Eq_Name e-5 e-8)) ext-0)))))))))))))))))))) -(define TTImpC-45InteractiveC-45CaseSplit-n--12645-5440-u--getName (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (TTImpC-45InteractiveC-45CaseSplit-unique (cons e-0 arg-8) (cons e-0 arg-8) 0 arg-9)))(else (TTImpC-45InteractiveC-45CaseSplit-unique arg-8 arg-8 0 arg-9)))))) -(define TTImpC-45InteractiveC-45CaseSplit-n--12645-5439-u--findNames (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-3 (vector-ref sc0 3))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (vector 1 (DataC-45List-filter (lambda (eta-0) (TTImpC-45InteractiveC-45CaseSplit-n--12645-5438-u--notBound arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-0)) (cons "f" (cons "g" '())))))(else (vector 1 (DataC-45List-filter (lambda (eta-0) (TTImpC-45InteractiveC-45CaseSplit-n--12645-5438-u--notBound arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-0)) (TTImpC-45InteractiveC-45CaseSplit-defaultNames)))))))) ((3) (let ((e-7 (vector-ref sc0 2))) (let ((act-24 (TTImpC-45InteractiveC-45CaseSplit-n--12645-5437-u--lookupName arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-7 (LibrariesC-45DataC-45NameMap-toList (let ((sc1 arg-5)) (let ((e-16 (vector-ref sc1 17))) e-16))) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (vector 1 (DataC-45List-filter (lambda (eta-0) (TTImpC-45InteractiveC-45CaseSplit-n--12645-5438-u--notBound arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-0)) (TTImpC-45InteractiveC-45CaseSplit-defaultNames)))) (else (let ((e-2 (vector-ref sc2 1))) (vector 1 (DataC-45List-filter (lambda (eta-0) (TTImpC-45InteractiveC-45CaseSplit-n--12645-5438-u--notBound arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-0)) e-2)))))))))))))(else (vector 1 (DataC-45List-filter (lambda (eta-0) (TTImpC-45InteractiveC-45CaseSplit-n--12645-5438-u--notBound arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-0)) (TTImpC-45InteractiveC-45CaseSplit-defaultNames)))))))) -(define TTImpC-45InteractiveC-45CaseSplit-u--show_Show_SplitError (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) "No valid case splits") ((1) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (PreludeC-45TypesC-45String-C-43C-43 "Can't split on " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-0) (PreludeC-45TypesC-45String-C-43C-43 " (" (PreludeC-45TypesC-45String-C-43C-43 e-1 ")"))))))) (else "No clause to split here"))))) -(define TTImpC-45InteractiveC-45CaseSplit-updateArg (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (TTImpC-45InteractiveC-45CaseSplit-case--updateArg-5978 e-1 e-0 arg-3 arg-2 arg-1 arg-0 (PreludeC-45Types-elem (cons (lambda (arg-5) (lambda (arg-6) (CoreC-45Name-u--C-61C-61_Eq_Name arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (CoreC-45Name-u--C-47C-61_Eq_Name arg-5 arg-6)))) e-1 arg-1))))) ((8) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((TTImpC-45InteractiveC-45CaseSplit-updateArg arg-0 arg-1 arg-2 arg-3 e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((TTImpC-45InteractiveC-45CaseSplit-updateArg arg-0 arg-1 arg-2 arg-3 e-4) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 8 e-2 e-5 e-6))))))))))))))))) ((9) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((TTImpC-45InteractiveC-45CaseSplit-updateArg arg-0 arg-1 arg-2 arg-3 e-6) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc1 1))) (let ((act-25 ((TTImpC-45InteractiveC-45CaseSplit-updateArg arg-0 arg-1 arg-2 arg-3 e-7) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc2 1))) (vector 1 (vector 9 e-5 e-8 e-9))))))))))))))))) ((10) (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 3))) (let ((e-11 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((TTImpC-45InteractiveC-45CaseSplit-updateArg arg-0 arg-1 arg-2 arg-3 e-9) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((TTImpC-45InteractiveC-45CaseSplit-updateArg arg-0 arg-1 arg-2 arg-3 e-11) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 10 e-8 e-5 e-10 e-6)))))))))))))))))) ((18) (let ((e-16 (vector-ref sc0 5))) (TTImpC-45InteractiveC-45CaseSplit-updateArg arg-0 arg-1 arg-2 arg-3 e-16)))(else (lambda (eta-0) (vector 1 (vector 32 (TTImpC-45TTImp-getFC arg-4) 0)))))))) -(define TTImpC-45InteractiveC-45CaseSplit-update (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((act-24 ((TTImpC-45InteractiveC-45CaseSplit-updateArg arg-0 arg-1 arg-2 arg-3 e-1) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-0 e-5)))))))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((act-24 ((TTImpC-45InteractiveC-45CaseSplit-updateArg arg-0 arg-1 arg-2 arg-3 e-3) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-2 e-5)))))))))) (else (let ((e-4 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 2))) (let ((e-6 (vector-ref sc0 3))) (let ((act-24 ((TTImpC-45InteractiveC-45CaseSplit-updateArg arg-0 arg-1 arg-2 arg-3 e-6) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc1 1))) (vector 1 (vector 2 e-4 e-5 e-7))))))))))))))) -(define TTImpC-45InteractiveC-45CaseSplit-unique (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-0)) (if (null? sc0) (TTImpC-45InteractiveC-45CaseSplit-unique arg-1 arg-1 (bs+ arg-2 1 63) arg-3) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((u--var (TTImpC-45InteractiveC-45CaseSplit-n--12540-5346-u--mkVarN e-2 e-3 arg-3 arg-2 arg-1 e-2 arg-2))) (TTImpC-45InteractiveC-45CaseSplit-case--unique-5361 e-2 e-3 arg-3 arg-2 arg-1 u--var (PreludeC-45Types-elem (cons (lambda (arg-4) (lambda (arg-5) (CoreC-45Name-u--C-61C-61_Eq_Name arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (CoreC-45Name-u--C-47C-61_Eq_Name arg-4 arg-5)))) (vector 1 u--var) arg-3))))))))) -(define TTImpC-45InteractiveC-45CaseSplit-substLets (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((1) (let ((e-8 (vector-ref sc1 3))) (TTImpC-45InteractiveC-45CaseSplit-substLets arg-0 (CoreC-45TTC-45SubstEnv-subst e-8 e-4)))) ((4) (let ((e-13 (vector-ref sc1 3))) (TTImpC-45InteractiveC-45CaseSplit-substLets arg-0 (CoreC-45TTC-45SubstEnv-subst e-13 e-4))))(else (vector 3 e-1 e-2 e-3 (TTImpC-45InteractiveC-45CaseSplit-substLets (cons e-2 arg-0) e-4))))))))))(else arg-1))))) -(define TTImpC-45InteractiveC-45CaseSplit-recordUpdate (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((u--nupdates (PreludeC-45Types-u--map_Functor_List (lambda (u--x) (cons (Builtin-fst u--x) (vector 0 arg-1 (Builtin-snd u--x)))) (let ((sc1 e-5)) (let ((e-0 (car sc1))) e-0))))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (car sc1))) (let ((e-1 (cdr sc1))) (cons e-0 (cons (cons arg-2 (TTImpC-45Utils-substNames '() u--nupdates arg-3)) e-1)))))))) (vector 1 act-25)))))))))) -(define TTImpC-45InteractiveC-45CaseSplit-newLHS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (TTImpC-45InteractiveC-45CaseSplit-case--newLHS-6168 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 (TTImpC-45InteractiveC-45CaseSplit-getFnArgs arg-6 '())))) -(define TTImpC-45InteractiveC-45CaseSplit-mkCase (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (CoreC-45Core-newRef (vector "Core.Metadata.MD" ) (CoreC-45Metadata-initMetadata) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (unbox arg-0))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (let ((act-26 (unbox arg-1))) (vector 1 act-26)))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (CoreC-45Core-u--catch_Catchable_Core_Error (lambda (eta-0) (let ((act-27 (CoreC-45Context-setAllPublic arg-0 0 eta-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-28 ((TTImpC-45Elab-elabTerm '() arg-0 e-5 arg-1 arg-2 (vector 1 (AlgebraC-45Semiring-erased (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)))) '() '() '() (vector 16 (TTImpC-45TTImp-getFC arg-4) (vector 1 ) arg-4) (vector 0 )) eta-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((sc5 e-9)) (let ((e-2 (car sc5))) (let ((act-29 (CoreC-45Context-setAllPublic arg-0 1 eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((act-30 (let ((act-30 (set-box! arg-0 e-6))) (vector 1 act-30)))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((act-31 (let ((act-31 (set-box! arg-1 e-7))) (vector 1 act-31)))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((act-32 (TTImpC-45Unelab-unelabNoSugar '() arg-0 '() e-2 eta-0))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-33 (CoreC-45ContextC-45Log-log arg-0 "interaction.casesplit" (+ 1 (+ 1 (+ 1 0))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Original LHS: " (TTImpC-45TTImp-u--show_Show_RawImp arg-3))) eta-0))) (let ((sc10 act-33)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((act-34 (CoreC-45ContextC-45Log-log arg-0 "interaction.casesplit" (+ 1 (+ 1 (+ 1 0))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "New LHS: " (TTImpC-45TTImp-u--show_Show_RawImp e-13))) eta-0))) (let ((sc11 act-34)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((act-35 (TTImpC-45InteractiveC-45CaseSplit-getUpdates e-6 arg-3 e-13 eta-0))) (let ((sc12 act-35)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (let ((e-16 (vector-ref sc12 1))) (vector 1 (vector 0 e-13 e-16)))))))))))))))))))))))))))))))))))))))))))) (lambda (u--err) (lambda (eta-0) (let ((act-27 (let ((act-27 (set-box! arg-0 e-6))) (vector 1 act-27)))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-28 (let ((act-28 (set-box! arg-1 e-7))) (vector 1 act-28)))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((sc5 u--err)) (case (vector-ref sc5 0) ((5) (let ((e-0 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 3))) (let ((e-3 (vector-ref sc5 4))) (let ((e-4 (vector-ref sc5 5))) (let ((act-29 ((CoreC-45Normalise-nf arg-0 e-0 e-6 e-2 e-3) eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-11 (vector-ref sc6 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-30 ((CoreC-45Normalise-nf arg-0 e-0 e-6 e-2 e-4) eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-12 (vector-ref sc7 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc7 1))) (let ((act-31 ((TTImpC-45ProcessDef-impossibleOK arg-0 e-0 e-6 e-11 e-12) eta-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc8 1))) (let ((sc9 e-13)) (cond ((equal? sc9 0) (vector 1 (vector 1 arg-4))) (else (vector 1 (vector 2 )))))))))))))))))))))))))(else (vector 1 (vector 2 ))))))))))))))) ext-0)))))))))))))))))) -(define TTImpC-45InteractiveC-45CaseSplit-getUpdates (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (CoreC-45Core-newRef (vector "TTImp.Interactive.CaseSplit.UPD" ) (cons '() '()) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((TTImpC-45InteractiveC-45CaseSplit-findUpdates e-5 arg-0 arg-1 arg-2) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 (let ((act-26 (unbox e-5))) (vector 1 act-26)))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (vector 1 (let ((sc3 e-7)) (let ((e-1 (cdr sc3))) e-1))))))))))))))))))) -(define TTImpC-45InteractiveC-45CaseSplit-getSplitsLHS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((u--lhs (TTImpC-45InteractiveC-45CaseSplit-substLets '() arg-5))) (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-logTerm '() arg-1 "interaction.casesplit" (+ 1 (+ 1 (+ 1 0))) (lambda () "Splitting") arg-5 eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((u--usedns (TTImpC-45InteractiveC-45CaseSplit-findAllVars arg-5))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (TTImpC-45InteractiveC-45CaseSplit-findCons arg-1 arg-6 u--lhs eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((sc4 e-1)) (let ((e-9 (car sc4))) (let ((e-8 (cdr sc4))) (let ((sc5 e-8)) (let ((e-10 (car sc5))) (let ((e-11 (cdr sc5))) (let ((act-27 (TTImpC-45Unelab-unelabNoSugar '() arg-1 '() u--lhs eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc6 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (u--c) (TTImpC-45InteractiveC-45CaseSplit-newLHS arg-1 arg-3 arg-4 u--usedns arg-6 u--c e-12)) e-11 '() eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref sc7 1))) (let ((_-0 (vector 1 (cons e-9 (cons e-10 e-11))))) (TTImpC-45InteractiveC-45CaseSplit-case--caseC-32blockC-32inC-32getSplitsLHS-7024 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 u--lhs u--usedns e-6 e-9 e-10 e-11 _-0 e-12 e-13 (CoreC-45Context-getNameID e-9 (let ((sc8 e-6)) (let ((e-0 (vector-ref sc8 1))) e-0))) eta-0)))))))))))))))))))) (else (let ((e-3 (vector-ref sc3 1))) (vector 1 (vector 0 e-3))))))))))))))))))))))))) -(define TTImpC-45InteractiveC-45CaseSplit-getSplits (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (CoreC-45Metadata-findLHSAt arg-1 arg-3 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((sc2 e-1)) (let ((e-7 (car sc2))) (let ((e-6 (cdr sc2))) (let ((sc3 e-6)) (let ((e-9 (car sc3))) (let ((e-10 (cdr sc3))) ((TTImpC-45InteractiveC-45CaseSplit-getSplitsLHS arg-1 arg-0 arg-2 (CoreC-45FC-justFC e-7) e-9 e-10 arg-4) ext-0))))))))) (else (vector 1 (vector 0 (vector 2 ))))))))))))) -(define TTImpC-45InteractiveC-45CaseSplit-getFnArgs (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((8) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (TTImpC-45InteractiveC-45CaseSplit-getFnArgs e-1 (cons (vector 0 e-0 e-2) arg-1)))))) ((9) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (TTImpC-45InteractiveC-45CaseSplit-getFnArgs e-4 (cons (vector 1 e-3 e-5) arg-1)))))) ((10) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (let ((e-9 (vector-ref sc0 4))) (TTImpC-45InteractiveC-45CaseSplit-getFnArgs e-7 (cons (vector 2 e-6 e-8 e-9) arg-1)))))))(else (cons arg-0 arg-1)))))) -(define TTImpC-45InteractiveC-45CaseSplit-getEnvArgNames (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (TTImpC-45InteractiveC-45CaseSplit-explicitlyBound arg-1 arg-3 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (TTImpC-45InteractiveC-45CaseSplit-getArgNames arg-0 arg-1 e-5 '() '() arg-3 eta-0))))))))(else (let ((e-0 (- arg-2 1))) (lambda (clam-0) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 4))) (let ((act-24 (((e-5 arg-1) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 e-2 1))) clam-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) ((TTImpC-45InteractiveC-45CaseSplit-getEnvArgNames arg-0 arg-1 e-0 e-6) clam-0)))))))))(else (vector 1 '()))))))))))) -(define TTImpC-45InteractiveC-45CaseSplit-getDefining (lambda (arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((3) (let ((e-4 (vector-ref sc0 4))) (TTImpC-45InteractiveC-45CaseSplit-getDefining e-4)))(else (TTImpC-45InteractiveC-45CaseSplit-case--getDefining-5059 arg-1 (CoreC-45TT-getFn arg-1))))))) -(define TTImpC-45InteractiveC-45CaseSplit-getArgNames (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-8 (vector-ref sc1 3))) (let ((e-9 (vector-ref sc1 4))) (let ((act-24 (let ((sc2 e-8)) (case (vector-ref sc2 0) ((1) (let ((act-24 (TTImpC-45InteractiveC-45CaseSplit-getArgName arg-1 arg-2 e-2 arg-3 arg-4 e-9 ext-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-5 (vector-ref sc3 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc3 1))) (vector 1 (cons e-5 '()))))))))(else (vector 1 '())))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (((e-4 arg-2) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) arg-5 (vector 10 e-1 1))) ext-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc3 1))) (let ((act-26 (TTImpC-45InteractiveC-45CaseSplit-getArgNames arg-1 arg-2 arg-3 (PreludeC-45TypesC-45List-C-43C-43 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (vector 1 eta-0)) e-5) arg-4) arg-5 e-10 ext-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-11 (vector-ref sc4 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc4 1))) (vector 1 (PreludeC-45TypesC-45List-C-43C-43 e-5 e-11))))))))))))))))))))(else (vector 1 '())))))))))(else (vector 1 '())))))) -(define TTImpC-45InteractiveC-45CaseSplit-getArgName (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 (TTImpC-45InteractiveC-45CaseSplit-n--12645-5439-u--findNames arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-6 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (TTImpC-45InteractiveC-45CaseSplit-n--12645-5440-u--getName arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-3 e-5 arg-5))))))))) -(define TTImpC-45InteractiveC-45CaseSplit-findUpdates (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-25 (vector-ref sc0 1))) (let ((e-26 (vector-ref sc0 2))) (lambda (clam-0) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (let ((e-33 (vector-ref sc1 1))) (let ((e-34 (vector-ref sc1 2))) (let ((act-24 (CoreC-45Context-lookupTyExact e-34 (let ((sc2 arg-1)) (let ((e-0 (vector-ref sc2 1))) e-0)) clam-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((1) (TTImpC-45InteractiveC-45CaseSplit-recordUpdate arg-0 e-25 e-26 (vector 0 e-25 e-34) clam-0)) (else (let ((act-25 (let ((act-25 (unbox arg-0))) (vector 1 act-25)))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((bind-0 (vector 0 ))) (TTImpC-45InteractiveC-45CaseSplit-case--caseC-32blockC-32inC-32findUpdates-6353 e-33 e-26 e-25 e-34 arg-1 arg-0 bind-0 e-6 (DataC-45List-lookup (cons (lambda (arg-4) (lambda (arg-5) (CoreC-45Name-u--C-61C-61_Eq_Name arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (CoreC-45Name-u--C-47C-61_Eq_Name arg-4 arg-5)))) e-34 (let ((sc5 e-6)) (let ((e-0 (car sc5))) e-0))) clam-0))))))))))))))))))(else (TTImpC-45InteractiveC-45CaseSplit-recordUpdate arg-0 e-25 e-26 arg-3 clam-0)))))))) ((8) (let ((e-28 (vector-ref sc0 2))) (let ((e-29 (vector-ref sc0 3))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((8) (let ((e-36 (vector-ref sc1 2))) (let ((e-37 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((TTImpC-45InteractiveC-45CaseSplit-findUpdates arg-0 arg-1 e-28 e-36) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTImpC-45InteractiveC-45CaseSplit-findUpdates arg-0 arg-1 e-29 e-37) eta-0)))))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((9) (let ((e-23 (vector-ref sc1 2))) (TTImpC-45InteractiveC-45CaseSplit-findUpdates arg-0 arg-1 arg-2 e-23)))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((10) (let ((e-15 (vector-ref sc1 2))) (let ((e-17 (vector-ref sc1 4))) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((10) (let ((e-19 (vector-ref sc2 2))) (let ((e-21 (vector-ref sc2 4))) (lambda (eta-0) (let ((act-24 ((TTImpC-45InteractiveC-45CaseSplit-findUpdates arg-0 arg-1 e-15 e-19) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((TTImpC-45InteractiveC-45CaseSplit-findUpdates arg-0 arg-1 e-17 e-21) eta-0)))))))))(else (TTImpC-45InteractiveC-45CaseSplit-findUpdates arg-0 arg-1 e-15 arg-3)))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((10) (let ((e-11 (vector-ref sc1 2))) (TTImpC-45InteractiveC-45CaseSplit-findUpdates arg-0 arg-1 arg-2 e-11)))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((18) (let ((e-9 (vector-ref sc1 5))) (TTImpC-45InteractiveC-45CaseSplit-findUpdates arg-0 arg-1 e-9 arg-3)))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((18) (let ((e-4 (vector-ref sc1 5))) (TTImpC-45InteractiveC-45CaseSplit-findUpdates arg-0 arg-1 arg-2 e-4)))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))))))))))))))))) ((9) (let ((e-31 (vector-ref sc0 2))) (let ((e-32 (vector-ref sc0 3))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((9) (let ((e-39 (vector-ref sc1 2))) (let ((e-40 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((TTImpC-45InteractiveC-45CaseSplit-findUpdates arg-0 arg-1 e-31 e-39) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTImpC-45InteractiveC-45CaseSplit-findUpdates arg-0 arg-1 e-32 e-40) eta-0)))))))))(else (TTImpC-45InteractiveC-45CaseSplit-findUpdates arg-0 arg-1 e-31 arg-3)))))))(else (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((9) (let ((e-23 (vector-ref sc0 2))) (TTImpC-45InteractiveC-45CaseSplit-findUpdates arg-0 arg-1 arg-2 e-23)))(else (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((10) (let ((e-15 (vector-ref sc0 2))) (let ((e-17 (vector-ref sc0 4))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((10) (let ((e-19 (vector-ref sc1 2))) (let ((e-21 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 ((TTImpC-45InteractiveC-45CaseSplit-findUpdates arg-0 arg-1 e-15 e-19) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTImpC-45InteractiveC-45CaseSplit-findUpdates arg-0 arg-1 e-17 e-21) eta-0)))))))))(else (TTImpC-45InteractiveC-45CaseSplit-findUpdates arg-0 arg-1 e-15 arg-3)))))))(else (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((10) (let ((e-11 (vector-ref sc0 2))) (TTImpC-45InteractiveC-45CaseSplit-findUpdates arg-0 arg-1 arg-2 e-11)))(else (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((18) (let ((e-9 (vector-ref sc0 5))) (TTImpC-45InteractiveC-45CaseSplit-findUpdates arg-0 arg-1 e-9 arg-3)))(else (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((18) (let ((e-4 (vector-ref sc0 5))) (TTImpC-45InteractiveC-45CaseSplit-findUpdates arg-0 arg-1 arg-2 e-4)))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))))))))))))))))) -(define TTImpC-45InteractiveC-45CaseSplit-findTyName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((3) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (let ((e-9 (vector-ref sc1 4))) (let ((u--b (vector 3 e-6 e-7 e-8 e-9))) (TTImpC-45InteractiveC-45CaseSplit-case--findTyName-4872 arg-0 arg-1 e-1 e-6 e-2 e-4 e-9 e-8 e-7 u--b arg-4 arg-3 arg-2 (CoreC-45Name-u--C-61C-61_Eq_Name arg-4 e-2))))))))(else (TTImpC-45InteractiveC-45CaseSplit-findTyName (cons e-2 arg-0) arg-1 arg-2 (cons e-3 arg-3) arg-4 e-4)))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define TTImpC-45InteractiveC-45CaseSplit-findCons (lambda (arg-0 arg-1 arg-2 ext-0) (TTImpC-45InteractiveC-45CaseSplit-case--findCons-5087 arg-2 arg-1 arg-0 (TTImpC-45InteractiveC-45CaseSplit-getDefining arg-2) ext-0))) -(define TTImpC-45InteractiveC-45CaseSplit-findAllVars (lambda (arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((3) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((3) (cons e-2 (TTImpC-45InteractiveC-45CaseSplit-findAllVars e-4))) ((1) (cons e-2 (TTImpC-45InteractiveC-45CaseSplit-findAllVars e-4))) ((4) (cons e-2 (TTImpC-45InteractiveC-45CaseSplit-findAllVars e-4)))(else '())))))))(else '()))))) -(define TTImpC-45InteractiveC-45CaseSplit-explicitlyBound (lambda (arg-0 arg-1 ext-0) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((act-24 (((e-4 arg-0) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 e-1 1))) ext-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (TTImpC-45InteractiveC-45CaseSplit-explicitlyBound arg-0 e-5 ext-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc3 1))) (vector 1 (cons e-2 e-10)))))))))))))(else (vector 1 '())))))))))(else (vector 1 '())))))) -(define TTImpC-45InteractiveC-45CaseSplit-expandCon (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (CoreC-45Context-lookupTyExact arg-3 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0)) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((act-26 ((CoreC-45Normalise-nf arg-0 '() e-5 '() e-1) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTImpC-45InteractiveC-45CaseSplit-getArgNames arg-0 e-5 '() arg-2 '() e-7 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (TTImpC-45TTImp-apply (vector 0 arg-1 arg-3) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (vector 17 arg-1 eta-0)) e-8))))))))))))))) (else (CoreC-45Context-undefinedName arg-0 arg-1 arg-3 ext-0)))))))))))))))) +(define TTImpC-45InteractiveC-45ExprSearch-nextResult (lambda (arg-1 arg-2 arg-3 ext-0) (CoreC-45UnifyState-tryUnify arg-1 arg-2 (lambda (eta-0) (let ((act-24 (arg-3 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (if (null? e-5) (vector 1 '()) (let ((e-2 (car e-5))) (let ((e-3 (cdr e-5))) (vector 1 (box (cons e-2 e-3))))))))))) (lambda (eta-0) (vector 1 '())) ext-0))) +(define TTImpC-45InteractiveC-45ExprSearch-mkCandidates (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (if (null? arg-6) (lambda (eta-0) (TTImpC-45InteractiveC-45ExprSearch-one (cons arg-4 arg-5) eta-0)) (let ((e-2 (car arg-6))) (let ((e-3 (cdr arg-6))) (if (null? e-2) (lambda (eta-0) (TTImpC-45InteractiveC-45ExprSearch-noResult eta-0)) (let ((e-6 (car e-2))) (let ((e-7 (cdr e-2))) (let ((e-10 (car e-6))) (let ((e-11 (cdr e-6))) (lambda (eta-0) (TTImpC-45InteractiveC-45ExprSearch-firstSuccess arg-1 arg-2 (cons (TTImpC-45InteractiveC-45ExprSearch-mkCandidates arg-0 arg-1 arg-2 arg-3 (vector 4 arg-3 arg-4 e-10) (PreludeC-45TypesC-45List-C-43C-43 arg-5 e-11) e-3) (cons (lambda (eta-1) (let ((act-24 (e-7 eta-1))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) ((TTImpC-45InteractiveC-45ExprSearch-mkCandidates arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (cons e-5 e-3)) eta-1)))))) '())) eta-0)))))))))))) +(define TTImpC-45InteractiveC-45ExprSearch-makeHelper (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (if (null? arg-10) (lambda (eta-0) (vector 1 '())) (let ((e-2 (car arg-10))) (let ((e-3 (cdr arg-10))) (let ((e-6 (car e-2))) (let ((e-7 (cdr e-2))) (let ((sc2 (let ((e-12 (vector-ref arg-6 3))) e-12))) (cond ((equal? sc2 0) (lambda (eta-0) (TTImpC-45InteractiveC-45ExprSearch-noResult eta-0)))(else (let ((e-0 (- (let ((e-12 (vector-ref arg-6 3))) e-12) 1))) (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-logTerm arg-0 arg-1 "interaction.search" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Local app") e-6 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref arg-6 9))) (if (null? e-9) (TTImpC-45InteractiveC-45ExprSearch-noResult eta-0) (let ((e-16 (unbox e-9))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-17 (vector-ref act-25 1))) (vector 0 e-17))) (else (let ((act-26 (CoreC-45UnifyState-genVarName arg-1 arg-3 "cval" eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-18 (vector-ref act-26 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref act-26 1))) (let ((act-27 (CoreC-45UnifyState-genCaseName arg-1 arg-3 "search" eta-0))) (case (vector-ref act-27 0) ((0) (let ((e-19 (vector-ref act-27 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref act-27 1))) (let ((act-28 (CoreC-45Context-inCurrentNS arg-1 e-19 eta-0))) (case (vector-ref act-28 0) ((0) (let ((e-20 (vector-ref act-28 1))) (vector 0 e-20))) (else (let ((e-20 (vector-ref act-28 1))) (let ((u--envC-39 (cons (vector 0 arg-4 (AlgebraC-45ZeroOneOmega-u--top_Top_ZeroOneOmega) (vector 1 ) arg-8) arg-7))) (let ((act-29 (TTImpC-45ElabC-45Check-metaVar (cons e-18 arg-0) arg-1 arg-3 arg-4 (AlgebraC-45ZeroOneOmega-u--top_Top_ZeroOneOmega) u--envC-39 e-20 (CoreC-45TT-u--weaken_Weaken_Term arg-9) eta-0))) (case (vector-ref act-29 0) ((0) (let ((e-21 (vector-ref act-29 1))) (vector 0 e-21))) (else (let ((e-21 (vector-ref act-29 1))) (let ((u--scope (TTImpC-45InteractiveC-45ExprSearch-n--13547-5502-u--toApp arg-0 e-6 e-7 e-3 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-21))) (let ((act-30 (CoreC-45Context-updateDef arg-1 e-20 (lambda (eta-1) (box (vector 0 ))) eta-0))) (case (vector-ref act-30 0) ((0) (let ((e-22 (vector-ref act-30 1))) (vector 0 e-22))) (else (let ((u--def (vector 4 arg-4 (vector 3 arg-4 e-18 (vector 0 arg-4 (AlgebraC-45ZeroOneOmega-u--top_Top_ZeroOneOmega) (vector 1 ) arg-8) u--scope) e-6))) (let ((act-31 (CoreC-45Normalise-logTermNF arg-0 arg-1 "interaction.search" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Binding def") arg-7 u--def eta-0))) (case (vector-ref act-31 0) ((0) (let ((e-23 (vector-ref act-31 1))) (vector 0 e-23))) (else (let ((act-32 (let ((act-32 (unbox arg-1))) (vector 1 act-32)))) (case (vector-ref act-32 0) ((0) (let ((e-24 (vector-ref act-32 1))) (vector 0 e-24))) (else (let ((e-24 (vector-ref act-32 1))) (let ((act-33 (CoreC-45Context-lookupTyExact e-20 (let ((e-53 (vector-ref e-24 0))) e-53) eta-0))) (case (vector-ref act-33 0) ((0) (let ((e-25 (vector-ref act-33 1))) (vector 0 e-25))) (else (let ((e-25 (vector-ref act-33 1))) (if (null? e-25) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 "Can't happen") eta-0) (let ((e-26 (unbox e-25))) (let ((act-34 (CoreC-45Normalise-logTermNF '() arg-1 "interaction.search" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Type of scope name") '() e-26 eta-0))) (case (vector-ref act-34 0) ((0) (let ((e-27 (vector-ref act-34 1))) (vector 0 e-27))) (else (let ((act-35 (TTImpC-45InteractiveC-45ExprSearch-searchN arg-1 arg-3 (+ 1 0) ((((e-16 (let ((e-37 (vector-ref arg-6 0))) (let ((e-35 (vector-ref arg-6 2))) (let ((e-33 (vector-ref arg-6 4))) (let ((e-29 (vector-ref arg-6 8))) (let ((e-28 (vector-ref arg-6 9))) (vector e-37 0 e-35 e-0 e-33 1 0 1 e-29 e-28))))))) e-20) 0) e-26) eta-0))) (case (vector-ref act-35 0) ((0) (let ((e-28 (vector-ref act-35 1))) (vector 0 e-28))) (else (let ((e-28 (vector-ref act-35 1))) (if (null? e-28) (let ((act-36 (CoreC-45ContextC-45Log-log arg-1 "interaction.search" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "No results") eta-0))) (case (vector-ref act-36 0) ((0) (let ((e-29 (vector-ref act-36 1))) (vector 0 e-29))) (else (TTImpC-45InteractiveC-45ExprSearch-noResult eta-0)))) (let ((e-30 (car e-28))) (if (null? e-30) (let ((act-36 (CoreC-45ContextC-45Log-log arg-1 "interaction.search" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "No results") eta-0))) (case (vector-ref act-36 0) ((0) (let ((e-31 (vector-ref act-36 1))) (vector 0 e-31))) (else (TTImpC-45InteractiveC-45ExprSearch-noResult eta-0)))) (let ((e-32 (car e-30))) (let ((u--helperdef (vector 2 arg-4 e-20 (Builtin-snd e-32)))) (let ((act-36 (CoreC-45ContextC-45Log-log arg-1 "interaction.search" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Def: " (TTImpC-45TTImp-u--show_Show_ImpDecl u--helperdef))) eta-0))) (case (vector-ref act-36 0) ((0) (let ((e-33 (vector-ref act-36 1))) (vector 0 e-33))) (else (vector 1 (cons (cons u--def (cons u--helperdef e-7)) (lambda (eta-1) (let ((act-37 (e-3 eta-1))) (case (vector-ref act-37 0) ((0) (let ((e-34 (vector-ref act-37 1))) (vector 0 e-34))) (else (let ((e-34 (vector-ref act-37 1))) ((TTImpC-45InteractiveC-45ExprSearch-makeHelper arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-34) eta-1))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) +(define TTImpC-45InteractiveC-45ExprSearch-initSearchOpts (lambda (arg-0 arg-1) (vector 0 arg-0 '() arg-1 0 0 1 0 0 '()))) +(define TTImpC-45InteractiveC-45ExprSearch-getSuccessful (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 ext-0) (let ((act-24 (TTImpC-45InteractiveC-45ExprSearch-firstSuccess arg-1 arg-3 arg-11 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (if (null? e-5) (let ((sc2 (cond ((equal? arg-7 1) (let ((e-0 (vector-ref arg-6 0))) e-0)) (else 0)))) (cond ((equal? sc2 1) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((u--base (PreludeC-45Types-maybe (lambda () "arg") (lambda () (lambda (u--r) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-nameRoot (let ((e-1 (vector-ref u--r 1))) e-1)) "_rhs"))) (let ((e-2 (vector-ref arg-6 2))) e-2)))) (let ((act-26 (TTImpC-45Utils-uniqueName e-6 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45Name-nameRoot eta-0)) arg-0) u--base ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 ((CoreC-45UnifyState-newMeta arg-0 arg-1 arg-3 arg-4 arg-5 arg-8 (vector 1 e-7) arg-9 (vector 7 (CoreC-45Env-length arg-8) (CoreC-45Context-holeInit 0)) 0) ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (let ((e-3 (cdr e-8))) (TTImpC-45InteractiveC-45ExprSearch-one (cons e-3 '()) ext-0)))))))))))))))) (else (TTImpC-45InteractiveC-45ExprSearch-noResult ext-0)))) (vector 1 e-5)))))))) +(define TTImpC-45InteractiveC-45ExprSearch-getLHSData (lambda (arg-0 arg-1 arg-2 ext-0) (if (null? arg-2) (vector 1 '()) (let ((e-2 (unbox arg-2))) (let ((act-24 (CoreC-45Normalise-normaliseHoles arg-0 '() arg-1 '() e-2 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-0))))) e-5 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-3 (vector-ref act-25 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (TTImpC-45InteractiveC-45ExprSearch-n--17134-8570-u--getLHS e-2 arg-1 arg-0 '() e-6)))))))))))))) +(define TTImpC-45InteractiveC-45ExprSearch-getAllEnv (lambda (arg-1 arg-2 arg-3 arg-4) (if (null? arg-1) '() (let ((e-2 (car arg-1))) (let ((e-3 (cdr arg-1))) (let ((e-8 (car arg-4))) (let ((e-9 (cdr arg-4))) (let ((u--rest (TTImpC-45InteractiveC-45ExprSearch-getAllEnv e-3 arg-2 (CoreC-45TTC-45SizeOf-sucR arg-3) e-9))) (let ((u--usable (TTImpC-45InteractiveC-45ExprSearch-n--9492-1929-u--usableName e-2 e-3 e-9 e-8 arg-3 arg-2 e-2))) (cond ((equal? u--usable 1) (cons (cons (vector 0 arg-2 '() (CoreC-45TT-weakenVar arg-3 0)) (CoreC-45TT-u--weakenNs_Weaken_Term (CoreC-45TTC-45SizeOf-sucR arg-3) (CoreC-45TT-binderType e-8))) u--rest)) (else u--rest))))))))))) +(define TTImpC-45InteractiveC-45ExprSearch-firstSuccess (lambda (arg-1 arg-2 arg-3 ext-0) (if (null? arg-3) (TTImpC-45InteractiveC-45ExprSearch-noResult ext-0) (let ((e-2 (car arg-3))) (let ((e-3 (cdr arg-3))) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref act-25 1))) (CoreC-45Core-u--catch_Catchable_Core_Error (lambda (eta-0) (let ((act-26 (e-2 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-4 (vector-ref act-26 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref act-26 1))) (if (null? e-7) (TTImpC-45InteractiveC-45ExprSearch-n--10131-2466-u--continue e-2 e-3 arg-2 arg-1 e-5 e-6 e-3 eta-0) (let ((e-1 (car e-7))) (let ((e-4 (cdr e-7))) (vector 1 (cons e-1 (lambda (eta-1) (TTImpC-45InteractiveC-45ExprSearch-n--10131-2466-u--continue e-2 e-3 arg-2 arg-1 e-5 e-6 (cons e-4 e-3) eta-1)))))))))))) (lambda (u--err) (lambda (clam-1) (case (vector-ref u--err 0) ((61) (TTImpC-45InteractiveC-45ExprSearch-noResult clam-1))(else (TTImpC-45InteractiveC-45ExprSearch-n--10131-2466-u--continue e-2 e-3 arg-2 arg-1 e-5 e-6 e-3 clam-1))))) ext-0)))))))))))))) +(define TTImpC-45InteractiveC-45ExprSearch-firstLinearOK (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (if (null? arg-4) (TTImpC-45InteractiveC-45ExprSearch-noResult ext-0) (let ((e-2 (car arg-4))) (let ((e-3 (cdr arg-4))) (let ((e-6 (car e-2))) (let ((e-7 (cdr e-2))) (CoreC-45UnifyState-handleUnify arg-0 arg-2 (lambda (eta-0) (let ((act-24 (let ((sc2 (DataC-45List-isNil e-7))) (cond ((equal? sc2 1) (vector 1 0)) (else (CoreC-45Core-traverse_ (lambda (eta-1) (TTImpC-45ElabC-45Check-processDecl '() arg-0 arg-1 arg-2 (cons 1 '()) '() '() eta-1)) e-7 eta-0)))))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((act-25 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (case (vector-ref eta-1 0) ((0) (let ((e-4 (vector-ref eta-1 1))) (vector 0 e-4))) (else (vector 1 0)))) (lambda (eta-1) (CoreC-45LinearCheck-linearCheck '() arg-0 arg-2 arg-3 (AlgebraC-45Semiring-linear (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))) 0 '() e-6 eta-1)) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((act-26 (let ((act-26 (unbox arg-0))) (vector 1 act-26)))) (case (vector-ref act-26 0) ((0) (let ((e-4 (vector-ref act-26 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref act-26 1))) (let ((act-27 (CoreC-45Normalise-normaliseHoles arg-0 '() e-9 '() e-6 eta-0))) (case (vector-ref act-27 0) ((0) (let ((e-4 (vector-ref act-27 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref act-27 1))) (let ((act-28 (let ((act-28 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-1) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-1)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-1) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-1))))) e-10 eta-0))) (case (vector-ref act-28 0) ((0) (let ((e-4 (vector-ref act-28 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref act-28 1))) ((TTImpC-45Unelab-unelab '() arg-0 '() e-11) eta-0))))))) (case (vector-ref act-28 0) ((0) (let ((e-4 (vector-ref act-28 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref act-28 1))) (let ((act-29 (e-3 eta-0))) (case (vector-ref act-29 0) ((0) (let ((e-4 (vector-ref act-29 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref act-29 1))) (vector 1 (cons e-11 (lambda (eta-1) (TTImpC-45InteractiveC-45ExprSearch-firstLinearOK arg-0 arg-1 arg-2 arg-3 e-12 eta-1))))))))))))))))))))))))))) (lambda (u--err) (lambda (eta-0) (let ((act-24 (e-3 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (TTImpC-45InteractiveC-45ExprSearch-firstLinearOK arg-0 arg-1 arg-2 arg-3 e-5 eta-0))))))) ext-0)))))))) +(define TTImpC-45InteractiveC-45ExprSearch-filterS (lambda (arg-1 arg-2 ext-0) (if (null? arg-2) (vector 1 '()) (let ((e-2 (car arg-2))) (let ((e-3 (cdr arg-2))) (let ((act-24 (e-3 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((u--fnext (lambda (eta-0) (TTImpC-45InteractiveC-45ExprSearch-filterS arg-1 e-5 eta-0)))) (let ((sc2 (arg-1 e-2))) (cond ((equal? sc2 1) (vector 1 (cons e-2 u--fnext))) (else (u--fnext ext-0)))))))))))))) +(define TTImpC-45InteractiveC-45ExprSearch-exprSearchOpts (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (TTImpC-45InteractiveC-45ExprSearch-n--17372-8793-u--lookupHoleName arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 arg-5 e-5 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (if (null? e-6) (CoreC-45Context-undefinedName arg-0 arg-4 arg-5 ext-0) (let ((e-1 (unbox e-6))) (let ((e-8 (car e-1))) (let ((e-7 (cdr e-1))) (let ((e-9 (car e-7))) (let ((e-10 (cdr e-7))) (let ((e-17 (vector-ref e-10 17))) (case (vector-ref e-17 0) ((7) (let ((act-26 (let ((act-26 (CoreC-45Context-getFullName arg-0 (vector 9 e-9) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-30 (vector-ref act-26 1))) (vector 0 e-30))) (else (let ((e-30 (vector-ref act-26 1))) (CoreC-45Metadata-findHoleLHS arg-1 e-30 ext-0))))))) (case (vector-ref act-26 0) ((0) (let ((e-30 (vector-ref act-26 1))) (vector 0 e-30))) (else (let ((e-30 (vector-ref act-26 1))) (let ((act-27 (CoreC-45ContextC-45Log-log arg-0 "interaction.search" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "LHS hole data " (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (u--x) (CoreC-45Name-u--show_Show_Name u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Name-u--showPrec_Show_Name u--d u--x)))) (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (x-0) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() x-0)) (lambda (u--d) (lambda (x-0) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 '() u--d x-0)))) u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (x-0) (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() x-0)) (lambda (d-0) (lambda (x-0) (CoreC-45TT-u--showPrec_Show_C-40TermC-32C-36varsC-41 '() d-0 x-0)))) u--d u--x))))) (cons e-8 e-30)))) ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-31 (vector-ref act-27 1))) (vector 0 e-31))) (else (let ((act-28 (let ((sc8 (let ((e-40 (vector-ref arg-3 1))) e-40))) (cond ((equal? sc8 1) (let ((act-28 (TTImpC-45InteractiveC-45ExprSearch-getLHSData arg-0 e-5 e-30 ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-32 (vector-ref act-28 1))) (vector 0 e-32))) (else (let ((e-32 (vector-ref act-28 1))) (vector 1 (let ((e-42 (vector-ref arg-3 0))) (let ((e-41 (vector-ref arg-3 1))) (let ((e-39 (vector-ref arg-3 3))) (let ((e-38 (vector-ref arg-3 4))) (let ((e-37 (vector-ref arg-3 5))) (let ((e-36 (vector-ref arg-3 6))) (let ((e-35 (vector-ref arg-3 7))) (let ((e-34 (vector-ref arg-3 8))) (let ((e-33 (vector-ref arg-3 9))) (vector e-42 e-41 e-32 e-39 e-38 e-37 e-36 e-35 e-34 e-33)))))))))))))))) (else (vector 1 arg-3)))))) (case (vector-ref act-28 0) ((0) (let ((e-32 (vector-ref act-28 1))) (vector 0 e-32))) (else (let ((e-32 (vector-ref act-28 1))) (let ((act-29 (TTImpC-45InteractiveC-45ExprSearch-search arg-0 arg-1 arg-2 arg-4 (let ((e-46 (vector-ref e-10 7))) e-46) e-32 (let ((e-51 (vector-ref e-10 2))) e-51) e-8 ext-0))) (case (vector-ref act-29 0) ((0) (let ((e-33 (vector-ref act-29 1))) (vector 0 e-33))) (else (let ((e-33 (vector-ref act-29 1))) (TTImpC-45InteractiveC-45ExprSearch-firstLinearOK arg-0 arg-1 arg-2 arg-4 e-33 ext-0))))))))))))))))) ((1) (let ((e-31 (vector-ref e-17 2))) (let ((e-30 (vector-ref e-17 3))) (if (null? e-31) (case (vector-ref e-30 0) ((1) (let ((e-33 (vector-ref e-30 2))) (let ((act-26 (let ((act-26 (CoreC-45Normalise-normaliseHoles arg-0 '() e-5 '() e-33 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-35 (vector-ref act-26 1))) (vector 0 e-35))) (else (let ((e-35 (vector-ref act-26 1))) (let ((act-27 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-0))))) e-35 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-36 (vector-ref act-27 1))) (vector 0 e-36))) (else (let ((e-36 (vector-ref act-27 1))) ((TTImpC-45Unelab-unelab '() arg-0 '() e-36) ext-0))))))))))) (case (vector-ref act-26 0) ((0) (let ((e-35 (vector-ref act-26 1))) (vector 0 e-35))) (else (let ((e-35 (vector-ref act-26 1))) (TTImpC-45InteractiveC-45ExprSearch-one e-35 ext-0)))))))(else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-4 "Name is already defined") ext-0))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-4 "Name is already defined") ext-0)))))(else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-4 "Name is already defined") ext-0)))))))))))))))))))) +(define TTImpC-45InteractiveC-45ExprSearch-exprSearchN (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 (TTImpC-45InteractiveC-45ExprSearch-searchN arg-0 arg-2 arg-4 (lambda (eta-0) (TTImpC-45InteractiveC-45ExprSearch-exprSearch arg-0 arg-1 arg-2 arg-3 arg-5 arg-6 eta-0)) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((e-2 (car e-5))) (vector 1 e-2)))))))) +(define TTImpC-45InteractiveC-45ExprSearch-exprSearchC-39 (lambda (arg-0 arg-1 arg-2 ext-3 ext-1 ext-2 ext-0) (TTImpC-45InteractiveC-45ExprSearch-exprSearchOpts arg-0 arg-1 arg-2 (TTImpC-45InteractiveC-45ExprSearch-initSearchOpts 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))) ext-3 ext-1 ext-2 ext-0))) +(define TTImpC-45InteractiveC-45ExprSearch-exprSearch (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (let ((act-24 (CoreC-45Context-getSession arg-0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (CoreC-45Context-startTimer arg-0 (let ((e-15 (vector-ref e-5 15))) e-15) "expression search" ext-0))))))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 (TTImpC-45InteractiveC-45ExprSearch-exprSearchC-39 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Context-clearTimer arg-0 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (vector 1 e-6))))))))))))) +(define TTImpC-45InteractiveC-45ExprSearch-explicit (lambda (arg-1) (let ((e-3 (vector-ref arg-1 2))) (case (vector-ref e-3 0) ((1) 1)(else 0))))) +(define TTImpC-45InteractiveC-45ExprSearch-combine (lambda (arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (if (null? arg-6) (vector 1 '()) (let ((e-2 (car arg-6))) (let ((e-3 (cdr arg-6))) (if (null? arg-7) (vector 1 '()) (let ((e-6 (car arg-7))) (let ((e-7 (cdr arg-7))) (vector 1 (cons ((arg-5 e-2) e-6) (TTImpC-45InteractiveC-45ExprSearch-trySearch arg-3 arg-4 (lambda (eta-0) (let ((act-24 (e-7 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (TTImpC-45InteractiveC-45ExprSearch-one e-2 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref act-25 1))) (TTImpC-45InteractiveC-45ExprSearch-combine arg-3 arg-4 arg-5 e-8 e-5 eta-0)))))))))) (TTImpC-45InteractiveC-45ExprSearch-trySearch arg-3 arg-4 (lambda (eta-0) (let ((act-24 (e-3 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (TTImpC-45InteractiveC-45ExprSearch-one e-6 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref act-25 1))) (TTImpC-45InteractiveC-45ExprSearch-combine arg-3 arg-4 arg-5 e-5 e-8 eta-0)))))))))) (lambda (eta-0) (let ((act-24 (e-3 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (e-7 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref act-25 1))) (TTImpC-45InteractiveC-45ExprSearch-combine arg-3 arg-4 arg-5 e-5 e-8 eta-0)))))))))))))))))))))) +(define TTImpC-45InteractiveC-45CaseSplit-case--newLHS-7437 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((e-2 (car arg-7))) (let ((e-3 (cdr arg-7))) (let ((u--keep (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (vector 0 arg-5 (vector 32 arg-5 1))) (DataC-45List-take arg-4 e-3)))) (let ((u--ups (DataC-45List-drop arg-4 e-3))) (lambda (eta-0) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-1) (lambda (eta-2) (TTImpC-45InteractiveC-45CaseSplit-update arg-6 arg-3 arg-2 arg-1 eta-1 eta-2))) u--ups '() eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (TTImpC-45InteractiveC-45CaseSplit-apply e-2 (PreludeC-45TypesC-45List-C-43C-43 u--keep e-5)))))))))))))) +(define TTImpC-45InteractiveC-45CaseSplit-n--8761-6708-u--notBound (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 (PreludeC-45Types-elem (cons (lambda (arg-8) (lambda (arg-9) (CoreC-45Name-u--C-61C-61_Eq_Name arg-8 arg-9))) (lambda (arg-8) (lambda (arg-9) (CoreC-45Name-u--C-47C-61_Eq_Name arg-8 arg-9)))) (vector 1 arg-7) arg-3))) (cond ((equal? sc0 1) 0) (else 1))))) +(define TTImpC-45InteractiveC-45CaseSplit-n--8656-6615-u--mkVarN (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (cond ((equal? arg-6 0) arg-5)(else (PreludeC-45TypesC-45String-C-43C-43 arg-5 (PreludeC-45Show-u--show_Show_Int arg-6)))))) +(define TTImpC-45InteractiveC-45CaseSplit-n--8761-6707-u--lookupName (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 ext-0) (if (null? arg-9) (vector 1 '()) (let ((e-2 (car arg-9))) (let ((e-3 (cdr arg-9))) (let ((e-6 (car e-2))) (let ((e-7 (cdr e-2))) (let ((act-24 (CoreC-45Context-getFullName arg-6 arg-8 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-getFullName arg-6 e-6 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref act-25 1))) (let ((sc4 (CoreC-45Name-u--C-61C-61_Eq_Name e-5 e-8))) (cond ((equal? sc4 1) (vector 1 (box e-7))) (else (TTImpC-45InteractiveC-45CaseSplit-n--8761-6707-u--lookupName arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-8 e-3 ext-0))))))))))))))))))) +(define TTImpC-45InteractiveC-45CaseSplit-n--8761-6710-u--getName (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (case (vector-ref arg-7 0) ((1) (let ((e-0 (vector-ref arg-7 1))) (TTImpC-45InteractiveC-45CaseSplit-unique (cons e-0 arg-8) (cons e-0 arg-8) 0 arg-9)))(else (TTImpC-45InteractiveC-45CaseSplit-unique arg-8 arg-8 0 arg-9))))) +(define TTImpC-45InteractiveC-45CaseSplit-n--8761-6709-u--findNames (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (case (vector-ref arg-7 0) ((0) (let ((e-3 (vector-ref arg-7 3))) (case (vector-ref e-3 0) ((2) (vector 1 (DataC-45List-filter (lambda (eta-0) (TTImpC-45InteractiveC-45CaseSplit-n--8761-6708-u--notBound arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-0)) (cons "f" (cons "g" '())))))(else (vector 1 (DataC-45List-filter (lambda (eta-0) (TTImpC-45InteractiveC-45CaseSplit-n--8761-6708-u--notBound arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-0)) (TTImpC-45InteractiveC-45CaseSplit-defaultNames))))))) ((3) (let ((e-7 (vector-ref arg-7 2))) (let ((act-24 (TTImpC-45InteractiveC-45CaseSplit-n--8761-6707-u--lookupName arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-7 (LibrariesC-45DataC-45NameMap-toList (let ((e-16 (vector-ref arg-5 16))) e-16)) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (if (null? e-5) (vector 1 (DataC-45List-filter (lambda (eta-0) (TTImpC-45InteractiveC-45CaseSplit-n--8761-6708-u--notBound arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-0)) (TTImpC-45InteractiveC-45CaseSplit-defaultNames))) (let ((e-2 (unbox e-5))) (vector 1 (DataC-45List-filter (lambda (eta-0) (TTImpC-45InteractiveC-45CaseSplit-n--8761-6708-u--notBound arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-0)) e-2))))))))))(else (vector 1 (DataC-45List-filter (lambda (eta-0) (TTImpC-45InteractiveC-45CaseSplit-n--8761-6708-u--notBound arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-0)) (TTImpC-45InteractiveC-45CaseSplit-defaultNames))))))) +(define TTImpC-45InteractiveC-45CaseSplit-u--show_Show_SplitError (lambda (arg-0) (case (vector-ref arg-0 0) ((0) "No valid case splits") ((1) (let ((e-0 (vector-ref arg-0 1))) (let ((e-1 (vector-ref arg-0 2))) (PreludeC-45TypesC-45String-C-43C-43 "Can't split on " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-0) (PreludeC-45TypesC-45String-C-43C-43 " (" (PreludeC-45TypesC-45String-C-43C-43 e-1 ")"))))))) (else "No clause to split here")))) +(define TTImpC-45InteractiveC-45CaseSplit-u--show_Show_ClauseUpdate (lambda (arg-0) (case (vector-ref arg-0 0) ((0) (let ((e-0 (vector-ref arg-0 1))) (let ((e-1 (vector-ref arg-0 2))) (PreludeC-45TypesC-45String-C-43C-43 "Valid: " (PreludeC-45TypesC-45String-C-43C-43 (TTImpC-45TTImp-u--show_Show_RawImp e-0) (PreludeC-45TypesC-45String-C-43C-43 "\u000a" (PreludeC-45TypesC-45String-C-43C-43 "Updates: " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (CoreC-45Name-u--show_Show_Name x-0)) (lambda (u--d) (lambda (x-0) (CoreC-45Name-u--showPrec_Show_Name u--d x-0)))) (cons (lambda (x-0) (TTImpC-45TTImp-u--show_Show_RawImp x-0)) (lambda (u--d) (lambda (x-0) (TTImpC-45TTImp-u--showPrec_Show_RawImp u--d x-0))))) u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (CoreC-45Name-u--show_Show_Name x-0)) (lambda (d-0) (lambda (x-0) (CoreC-45Name-u--showPrec_Show_Name d-0 x-0)))) (cons (lambda (x-0) (TTImpC-45TTImp-u--show_Show_RawImp x-0)) (lambda (d-0) (lambda (x-0) (TTImpC-45TTImp-u--showPrec_Show_RawImp d-0 x-0))))) u--d u--x)))) e-1)))))))) ((1) (let ((e-2 (vector-ref arg-0 1))) (PreludeC-45TypesC-45String-C-43C-43 "Impossible: " (TTImpC-45TTImp-u--show_Show_RawImp e-2)))) (else "Invalid")))) +(define TTImpC-45InteractiveC-45CaseSplit-u--showPrec_Show_ClauseUpdate (lambda (arg-0 arg-1) (TTImpC-45InteractiveC-45CaseSplit-u--show_Show_ClauseUpdate arg-1))) +(define TTImpC-45InteractiveC-45CaseSplit-updateArg (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (case (vector-ref arg-4 0) ((0) (let ((e-0 (vector-ref arg-4 1))) (let ((e-1 (vector-ref arg-4 2))) (let ((sc1 (PreludeC-45Types-elem (cons (lambda (arg-5) (lambda (arg-6) (CoreC-45Name-u--C-61C-61_Eq_Name arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (CoreC-45Name-u--C-47C-61_Eq_Name arg-5 arg-6)))) e-1 arg-1))) (cond ((equal? sc1 1) (lambda (clam-0) (let ((sc2 (CoreC-45Name-u--C-61C-61_Eq_Name e-1 arg-2))) (cond ((equal? sc2 1) (TTImpC-45InteractiveC-45CaseSplit-expandCon arg-0 e-0 (DataC-45List-filter (lambda (arg-5) (CoreC-45Name-u--C-47C-61_Eq_Name arg-5 e-1)) arg-1) arg-3 clam-0)) (else (vector 1 (vector 32 e-0 1))))))) (else (lambda (eta-0) (vector 1 (vector 0 e-0 e-1))))))))) ((8) (let ((e-2 (vector-ref arg-4 1))) (let ((e-3 (vector-ref arg-4 2))) (let ((e-4 (vector-ref arg-4 3))) (lambda (eta-0) (let ((act-24 ((TTImpC-45InteractiveC-45CaseSplit-updateArg arg-0 arg-1 arg-2 arg-3 e-3) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((TTImpC-45InteractiveC-45CaseSplit-updateArg arg-0 arg-1 arg-2 arg-3 e-4) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-6 (vector-ref act-25 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (vector 8 e-2 e-5 e-6))))))))))))))) ((9) (let ((e-5 (vector-ref arg-4 1))) (let ((e-6 (vector-ref arg-4 2))) (let ((e-7 (vector-ref arg-4 3))) (lambda (eta-0) (let ((act-24 ((TTImpC-45InteractiveC-45CaseSplit-updateArg arg-0 arg-1 arg-2 arg-3 e-6) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-24 1))) (let ((act-25 ((TTImpC-45InteractiveC-45CaseSplit-updateArg arg-0 arg-1 arg-2 arg-3 e-7) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-25 1))) (vector 1 (vector 9 e-5 e-8 e-9))))))))))))))) ((10) (let ((e-8 (vector-ref arg-4 1))) (let ((e-9 (vector-ref arg-4 2))) (let ((e-10 (vector-ref arg-4 3))) (let ((e-11 (vector-ref arg-4 4))) (lambda (eta-0) (let ((act-24 ((TTImpC-45InteractiveC-45CaseSplit-updateArg arg-0 arg-1 arg-2 arg-3 e-9) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((TTImpC-45InteractiveC-45CaseSplit-updateArg arg-0 arg-1 arg-2 arg-3 e-11) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (vector 10 e-8 e-5 e-10 e-6)))))))))))))))) ((18) (let ((e-16 (vector-ref arg-4 5))) (TTImpC-45InteractiveC-45CaseSplit-updateArg arg-0 arg-1 arg-2 arg-3 e-16)))(else (lambda (eta-0) (vector 1 (vector 32 (TTImpC-45TTImp-getFC arg-4) 1))))))) +(define TTImpC-45InteractiveC-45CaseSplit-update (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (case (vector-ref arg-4 0) ((0) (let ((e-0 (vector-ref arg-4 1))) (let ((e-1 (vector-ref arg-4 2))) (let ((act-24 ((TTImpC-45InteractiveC-45CaseSplit-updateArg arg-0 arg-1 arg-2 arg-3 e-1) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 0 e-0 e-5))))))))) ((1) (let ((e-2 (vector-ref arg-4 1))) (let ((e-3 (vector-ref arg-4 2))) (let ((act-24 ((TTImpC-45InteractiveC-45CaseSplit-updateArg arg-0 arg-1 arg-2 arg-3 e-3) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 1 e-2 e-5))))))))) (else (let ((e-4 (vector-ref arg-4 1))) (let ((e-5 (vector-ref arg-4 2))) (let ((e-6 (vector-ref arg-4 3))) (let ((act-24 ((TTImpC-45InteractiveC-45CaseSplit-updateArg arg-0 arg-1 arg-2 arg-3 e-6) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-24 1))) (vector 1 (vector 2 e-4 e-5 e-7))))))))))))) +(define TTImpC-45InteractiveC-45CaseSplit-unique (lambda (arg-0 arg-1 arg-2 arg-3) (if (null? arg-0) (TTImpC-45InteractiveC-45CaseSplit-unique arg-1 arg-1 (bs+ arg-2 1 63) arg-3) (let ((e-2 (car arg-0))) (let ((e-3 (cdr arg-0))) (let ((u--var (TTImpC-45InteractiveC-45CaseSplit-n--8656-6615-u--mkVarN e-2 e-3 arg-3 arg-2 arg-1 e-2 arg-2))) (let ((sc1 (PreludeC-45Types-elem (cons (lambda (arg-4) (lambda (arg-5) (CoreC-45Name-u--C-61C-61_Eq_Name arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (CoreC-45Name-u--C-47C-61_Eq_Name arg-4 arg-5)))) (vector 1 u--var) arg-3))) (cond ((equal? sc1 1) (TTImpC-45InteractiveC-45CaseSplit-unique e-3 arg-1 arg-2 arg-3)) (else u--var))))))))) +(define TTImpC-45InteractiveC-45CaseSplit-substLets (lambda (arg-0 arg-1) (case (vector-ref arg-1 0) ((3) (let ((e-1 (vector-ref arg-1 1))) (let ((e-2 (vector-ref arg-1 2))) (let ((e-3 (vector-ref arg-1 3))) (let ((e-4 (vector-ref arg-1 4))) (case (vector-ref e-3 0) ((1) (let ((e-8 (vector-ref e-3 3))) (TTImpC-45InteractiveC-45CaseSplit-substLets arg-0 (CoreC-45TTC-45SubstEnv-subst e-8 e-4)))) ((4) (let ((e-13 (vector-ref e-3 3))) (TTImpC-45InteractiveC-45CaseSplit-substLets arg-0 (CoreC-45TTC-45SubstEnv-subst e-13 e-4))))(else (vector 3 e-1 e-2 e-3 (TTImpC-45InteractiveC-45CaseSplit-substLets (cons e-2 arg-0) e-4)))))))))(else arg-1)))) +(define TTImpC-45InteractiveC-45CaseSplit-recordUpdate (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((u--nupdates (PreludeC-45Types-u--map_Functor_List (lambda (u--x) (cons (Builtin-fst u--x) (vector 0 arg-1 (Builtin-snd u--x)))) (let ((e-0 (car e-5))) e-0)))) (let ((act-25 (set-box! arg-0 (let ((e-0 (car e-5))) (let ((e-1 (cdr e-5))) (cons e-0 (cons (cons arg-2 (TTImpC-45Utils-substNames '() u--nupdates arg-3)) e-1))))))) (vector 1 act-25))))))))) +(define TTImpC-45InteractiveC-45CaseSplit-newLHS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (TTImpC-45InteractiveC-45CaseSplit-case--newLHS-7437 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 (TTImpC-45InteractiveC-45CaseSplit-getFnArgs arg-6 '())))) +(define TTImpC-45InteractiveC-45CaseSplit-mkCase (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (CoreC-45Core-newRef (vector "Core.Metadata.MD" ) (CoreC-45Metadata-initMetadata (vector 2 0)) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (let ((act-25 (unbox arg-0))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (let ((act-26 (unbox arg-1))) (vector 1 act-26)))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (CoreC-45Core-u--catch_Catchable_Core_Error (lambda (eta-0) (let ((act-27 (CoreC-45Context-setAllPublic arg-0 1 eta-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((act-28 ((TTImpC-45Elab-elabTerm '() arg-0 e-5 arg-1 arg-2 (vector 1 (AlgebraC-45Semiring-erased (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)))) '() '() '() (vector 16 (TTImpC-45TTImp-getFC arg-4) (vector 1 ) arg-4) '()) eta-0))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-28 1))) (let ((e-2 (car e-9))) (let ((act-29 (CoreC-45Context-setAllPublic arg-0 0 eta-0))) (case (vector-ref act-29 0) ((0) (let ((e-4 (vector-ref act-29 1))) (vector 0 e-4))) (else (let ((act-30 (let ((act-30 (set-box! arg-0 e-6))) (vector 1 act-30)))) (case (vector-ref act-30 0) ((0) (let ((e-4 (vector-ref act-30 1))) (vector 0 e-4))) (else (let ((act-31 (let ((act-31 (set-box! arg-1 e-7))) (vector 1 act-31)))) (case (vector-ref act-31 0) ((0) (let ((e-4 (vector-ref act-31 1))) (vector 0 e-4))) (else (let ((act-32 (TTImpC-45Unelab-unelabNoSugar '() arg-0 '() e-2 eta-0))) (case (vector-ref act-32 0) ((0) (let ((e-4 (vector-ref act-32 1))) (vector 0 e-4))) (else (let ((e-13 (vector-ref act-32 1))) (let ((act-33 (CoreC-45ContextC-45Log-log arg-0 "interaction.casesplit" (+ 1 (+ 1 (+ 1 0))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Original LHS: " (TTImpC-45TTImp-u--show_Show_RawImp arg-3))) eta-0))) (case (vector-ref act-33 0) ((0) (let ((e-4 (vector-ref act-33 1))) (vector 0 e-4))) (else (let ((act-34 (CoreC-45ContextC-45Log-log arg-0 "interaction.casesplit" (+ 1 (+ 1 (+ 1 0))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "New LHS: " (TTImpC-45TTImp-u--show_Show_RawImp e-13))) eta-0))) (case (vector-ref act-34 0) ((0) (let ((e-4 (vector-ref act-34 1))) (vector 0 e-4))) (else (let ((act-35 (TTImpC-45InteractiveC-45CaseSplit-getUpdates e-6 arg-3 e-13 eta-0))) (case (vector-ref act-35 0) ((0) (let ((e-4 (vector-ref act-35 1))) (vector 0 e-4))) (else (let ((e-16 (vector-ref act-35 1))) (vector 1 (vector 0 e-13 e-16)))))))))))))))))))))))))))))))))) (lambda (u--err) (lambda (eta-0) (let ((act-27 (let ((act-27 (set-box! arg-0 e-6))) (vector 1 act-27)))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((act-28 (let ((act-28 (set-box! arg-1 e-7))) (vector 1 act-28)))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (case (vector-ref u--err 0) ((5) (let ((e-0 (vector-ref u--err 1))) (let ((e-2 (vector-ref u--err 3))) (let ((e-3 (vector-ref u--err 4))) (let ((e-4 (vector-ref u--err 5))) (let ((act-29 ((CoreC-45Normalise-nf arg-0 e-0 e-6 e-2 e-3) eta-0))) (case (vector-ref act-29 0) ((0) (let ((e-11 (vector-ref act-29 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-29 1))) (let ((act-30 ((CoreC-45Normalise-nf arg-0 e-0 e-6 e-2 e-4) eta-0))) (case (vector-ref act-30 0) ((0) (let ((e-12 (vector-ref act-30 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref act-30 1))) (let ((act-31 ((TTImpC-45ProcessDef-impossibleOK arg-0 e-0 e-6 e-11 e-12) eta-0))) (case (vector-ref act-31 0) ((0) (let ((e-13 (vector-ref act-31 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref act-31 1))) (cond ((equal? e-13 1) (vector 1 (vector 1 arg-4))) (else (vector 1 (vector 2 )))))))))))))))))))))(else (vector 1 (vector 2 )))))))))))) ext-0))))))))))))))) +(define TTImpC-45InteractiveC-45CaseSplit-getUpdates (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (CoreC-45Core-newRef (vector "TTImp.Interactive.CaseSplit.UPD" ) (cons '() '()) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((TTImpC-45InteractiveC-45CaseSplit-findUpdates e-5 arg-0 arg-1 arg-2) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 (let ((act-26 (unbox e-5))) (vector 1 act-26)))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (let ((e-1 (cdr e-7))) e-1))))))))))))))) +(define TTImpC-45InteractiveC-45CaseSplit-getSplitsLHS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((u--lhs (TTImpC-45InteractiveC-45CaseSplit-substLets '() arg-5))) (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-logTerm '() arg-1 "interaction.casesplit" (+ 1 (+ 1 (+ 1 0))) (lambda () "Splitting") arg-5 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((u--usedns (TTImpC-45InteractiveC-45CaseSplit-findAllVars arg-5))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45InteractiveC-45CaseSplit-findCons arg-1 arg-6 u--lhs eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (case (vector-ref e-7 0) ((1) (let ((e-1 (vector-ref e-7 1))) (let ((e-9 (car e-1))) (let ((e-8 (cdr e-1))) (let ((e-11 (cdr e-8))) (let ((act-27 (TTImpC-45Unelab-unelabNoSugar '() arg-1 '() u--lhs eta-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref act-27 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (u--c) (TTImpC-45InteractiveC-45CaseSplit-newLHS arg-1 arg-3 arg-4 u--usedns arg-6 u--c e-12)) e-11 '() eta-0))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref act-28 1))) (let ((sc8 (CoreC-45Context-getNameID e-9 (let ((e-0 (vector-ref e-6 0))) e-0)))) (if (null? sc8) (CoreC-45Context-undefinedName arg-1 arg-3 e-9 eta-0) (let ((e-2 (unbox sc8))) (let ((act-29 (CoreC-45Core-traverseC-39 (lambda (eta-1) (lambda (eta-2) (TTImpC-45InteractiveC-45CaseSplit-mkCase arg-1 arg-2 e-2 e-12 eta-1 eta-2))) e-13 '() eta-0))) (case (vector-ref act-29 0) ((0) (let ((e-3 (vector-ref act-29 1))) (vector 0 e-3))) (else (let ((e-14 (vector-ref act-29 1))) (let ((act-30 (CoreC-45ContextC-45Log-log arg-1 "interaction.casesplit" (+ 1 (+ 1 (+ 1 0))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Found cases: " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (TTImpC-45InteractiveC-45CaseSplit-u--show_Show_ClauseUpdate u--x)) (lambda (u--d) (lambda (u--x) (TTImpC-45InteractiveC-45CaseSplit-u--showPrec_Show_ClauseUpdate u--d u--x)))) e-14))) eta-0))) (case (vector-ref act-30 0) ((0) (let ((e-3 (vector-ref act-30 1))) (vector 0 e-3))) (else (vector 1 (TTImpC-45InteractiveC-45CaseSplit-combine e-14 '()))))))))))))))))))))))))) (else (let ((e-3 (vector-ref e-7 1))) (vector 1 (vector 0 e-3))))))))))))))))))))) +(define TTImpC-45InteractiveC-45CaseSplit-getSplits (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (CoreC-45Metadata-findLHSAt arg-1 arg-3 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (if (null? e-5) (vector 1 (vector 0 (vector 2 ))) (let ((e-1 (unbox e-5))) (let ((e-7 (car e-1))) (let ((e-6 (cdr e-1))) (let ((e-9 (car e-6))) (let ((e-10 (cdr e-6))) ((TTImpC-45InteractiveC-45CaseSplit-getSplitsLHS arg-1 arg-0 arg-2 (CoreC-45FC-justFC e-7) e-9 e-10 arg-4) ext-0))))))))))))) +(define TTImpC-45InteractiveC-45CaseSplit-getFnArgs (lambda (arg-0 arg-1) (case (vector-ref arg-0 0) ((8) (let ((e-0 (vector-ref arg-0 1))) (let ((e-1 (vector-ref arg-0 2))) (let ((e-2 (vector-ref arg-0 3))) (TTImpC-45InteractiveC-45CaseSplit-getFnArgs e-1 (cons (vector 0 e-0 e-2) arg-1)))))) ((9) (let ((e-3 (vector-ref arg-0 1))) (let ((e-4 (vector-ref arg-0 2))) (let ((e-5 (vector-ref arg-0 3))) (TTImpC-45InteractiveC-45CaseSplit-getFnArgs e-4 (cons (vector 1 e-3 e-5) arg-1)))))) ((10) (let ((e-6 (vector-ref arg-0 1))) (let ((e-7 (vector-ref arg-0 2))) (let ((e-8 (vector-ref arg-0 3))) (let ((e-9 (vector-ref arg-0 4))) (TTImpC-45InteractiveC-45CaseSplit-getFnArgs e-7 (cons (vector 2 e-6 e-8 e-9) arg-1)))))))(else (cons arg-0 arg-1))))) +(define TTImpC-45InteractiveC-45CaseSplit-getEnvArgNames (lambda (arg-0 arg-1 arg-2 arg-3) (cond ((equal? arg-2 0) (lambda (eta-0) (let ((act-24 (TTImpC-45InteractiveC-45CaseSplit-explicitlyBound arg-1 arg-3 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (TTImpC-45InteractiveC-45CaseSplit-getArgNames arg-0 arg-1 e-5 '() '() arg-3 eta-0)))))))(else (let ((e-0 (- arg-2 1))) (lambda (clam-0) (case (vector-ref arg-3 0) ((0) (let ((e-2 (vector-ref arg-3 1))) (let ((e-5 (vector-ref arg-3 4))) (let ((act-24 (((e-5 arg-1) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 e-2 0))) clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) ((TTImpC-45InteractiveC-45CaseSplit-getEnvArgNames arg-0 arg-1 e-0 e-6) clam-0))))))))(else (vector 1 '()))))))))) +(define TTImpC-45InteractiveC-45CaseSplit-getDefining (lambda (arg-1) (case (vector-ref arg-1 0) ((3) (let ((e-4 (vector-ref arg-1 4))) (TTImpC-45InteractiveC-45CaseSplit-getDefining e-4)))(else (let ((sc0 (CoreC-45TT-getFn arg-1))) (case (vector-ref sc0 0) ((1) (let ((e-3 (vector-ref sc0 3))) (box e-3)))(else '()))))))) +(define TTImpC-45InteractiveC-45CaseSplit-getArgNames (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (case (vector-ref arg-6 0) ((0) (let ((e-1 (vector-ref arg-6 1))) (let ((e-2 (vector-ref arg-6 2))) (let ((e-3 (vector-ref arg-6 3))) (let ((e-4 (vector-ref arg-6 4))) (case (vector-ref e-3 0) ((2) (let ((e-8 (vector-ref e-3 3))) (let ((e-9 (vector-ref e-3 4))) (let ((act-24 (case (vector-ref e-8 0) ((1) (let ((act-24 (TTImpC-45InteractiveC-45CaseSplit-getArgName arg-1 arg-2 e-2 arg-3 arg-4 e-9 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (cons e-5 '())))))))(else (vector 1 '()))))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (((e-4 arg-2) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) arg-5 (vector 10 e-1 0))) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45InteractiveC-45CaseSplit-getArgNames arg-1 arg-2 arg-3 (PreludeC-45TypesC-45List-C-43C-43 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (vector 1 eta-0)) e-5) arg-4) arg-5 e-10 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-11 (vector-ref act-26 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-26 1))) (vector 1 (PreludeC-45TypesC-45List-C-43C-43 e-5 e-11)))))))))))))))))(else (vector 1 '()))))))))(else (vector 1 '()))))) +(define TTImpC-45InteractiveC-45CaseSplit-getArgName (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 (TTImpC-45InteractiveC-45CaseSplit-n--8761-6709-u--findNames arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-6 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (TTImpC-45InteractiveC-45CaseSplit-n--8761-6710-u--getName arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-3 e-5 arg-5)))))))) +(define TTImpC-45InteractiveC-45CaseSplit-findUpdates (lambda (arg-0 arg-1 arg-2 arg-3) (case (vector-ref arg-2 0) ((0) (let ((e-25 (vector-ref arg-2 1))) (let ((e-26 (vector-ref arg-2 2))) (lambda (clam-0) (case (vector-ref arg-3 0) ((0) (let ((e-34 (vector-ref arg-3 2))) (let ((act-24 (CoreC-45Context-lookupTyExact e-34 (let ((e-0 (vector-ref arg-1 0))) e-0) clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (if (null? e-5) (let ((act-25 (let ((act-25 (unbox arg-0))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((sc5 (DataC-45List-lookup (cons (lambda (arg-4) (lambda (arg-5) (CoreC-45Name-u--C-61C-61_Eq_Name arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (CoreC-45Name-u--C-47C-61_Eq_Name arg-4 arg-5)))) e-34 (let ((e-0 (car e-6))) e-0)))) (if (null? sc5) (let ((act-26 (set-box! arg-0 (let ((e-0 (car e-6))) (let ((e-1 (cdr e-6))) (cons (cons (cons e-34 e-26) e-0) e-1)))))) (vector 1 act-26)) (let ((e-2 (unbox sc5))) (let ((act-26 (set-box! arg-0 (let ((e-0 (car e-6))) (let ((e-1 (cdr e-6))) (cons e-0 (cons (cons e-26 (vector 0 e-25 e-2)) e-1))))))) (vector 1 act-26))))))))) (TTImpC-45InteractiveC-45CaseSplit-recordUpdate arg-0 e-25 e-26 (vector 0 e-25 e-34) clam-0))))))))(else (TTImpC-45InteractiveC-45CaseSplit-recordUpdate arg-0 e-25 e-26 arg-3 clam-0))))))) ((8) (let ((e-28 (vector-ref arg-2 2))) (let ((e-29 (vector-ref arg-2 3))) (case (vector-ref arg-3 0) ((8) (let ((e-36 (vector-ref arg-3 2))) (let ((e-37 (vector-ref arg-3 3))) (lambda (eta-0) (let ((act-24 ((TTImpC-45InteractiveC-45CaseSplit-findUpdates arg-0 arg-1 e-28 e-36) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else ((TTImpC-45InteractiveC-45CaseSplit-findUpdates arg-0 arg-1 e-29 e-37) eta-0))))))))(else (case (vector-ref arg-3 0) ((9) (let ((e-23 (vector-ref arg-3 2))) (TTImpC-45InteractiveC-45CaseSplit-findUpdates arg-0 arg-1 arg-2 e-23)))(else (case (vector-ref arg-2 0) ((10) (let ((e-15 (vector-ref arg-2 2))) (let ((e-17 (vector-ref arg-2 4))) (case (vector-ref arg-3 0) ((10) (let ((e-19 (vector-ref arg-3 2))) (let ((e-21 (vector-ref arg-3 4))) (lambda (eta-0) (let ((act-24 ((TTImpC-45InteractiveC-45CaseSplit-findUpdates arg-0 arg-1 e-15 e-19) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else ((TTImpC-45InteractiveC-45CaseSplit-findUpdates arg-0 arg-1 e-17 e-21) eta-0))))))))(else (TTImpC-45InteractiveC-45CaseSplit-findUpdates arg-0 arg-1 e-15 arg-3))))))(else (case (vector-ref arg-3 0) ((10) (let ((e-11 (vector-ref arg-3 2))) (TTImpC-45InteractiveC-45CaseSplit-findUpdates arg-0 arg-1 arg-2 e-11)))(else (case (vector-ref arg-2 0) ((18) (let ((e-9 (vector-ref arg-2 5))) (TTImpC-45InteractiveC-45CaseSplit-findUpdates arg-0 arg-1 e-9 arg-3)))(else (case (vector-ref arg-3 0) ((18) (let ((e-4 (vector-ref arg-3 5))) (TTImpC-45InteractiveC-45CaseSplit-findUpdates arg-0 arg-1 arg-2 e-4)))(else (lambda (eta-0) (vector 1 0))))))))))))))))) ((9) (let ((e-31 (vector-ref arg-2 2))) (let ((e-32 (vector-ref arg-2 3))) (case (vector-ref arg-3 0) ((9) (let ((e-39 (vector-ref arg-3 2))) (let ((e-40 (vector-ref arg-3 3))) (lambda (eta-0) (let ((act-24 ((TTImpC-45InteractiveC-45CaseSplit-findUpdates arg-0 arg-1 e-31 e-39) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else ((TTImpC-45InteractiveC-45CaseSplit-findUpdates arg-0 arg-1 e-32 e-40) eta-0))))))))(else (TTImpC-45InteractiveC-45CaseSplit-findUpdates arg-0 arg-1 e-31 arg-3))))))(else (case (vector-ref arg-3 0) ((9) (let ((e-23 (vector-ref arg-3 2))) (TTImpC-45InteractiveC-45CaseSplit-findUpdates arg-0 arg-1 arg-2 e-23)))(else (case (vector-ref arg-2 0) ((10) (let ((e-15 (vector-ref arg-2 2))) (let ((e-17 (vector-ref arg-2 4))) (case (vector-ref arg-3 0) ((10) (let ((e-19 (vector-ref arg-3 2))) (let ((e-21 (vector-ref arg-3 4))) (lambda (eta-0) (let ((act-24 ((TTImpC-45InteractiveC-45CaseSplit-findUpdates arg-0 arg-1 e-15 e-19) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else ((TTImpC-45InteractiveC-45CaseSplit-findUpdates arg-0 arg-1 e-17 e-21) eta-0))))))))(else (TTImpC-45InteractiveC-45CaseSplit-findUpdates arg-0 arg-1 e-15 arg-3))))))(else (case (vector-ref arg-3 0) ((10) (let ((e-11 (vector-ref arg-3 2))) (TTImpC-45InteractiveC-45CaseSplit-findUpdates arg-0 arg-1 arg-2 e-11)))(else (case (vector-ref arg-2 0) ((18) (let ((e-9 (vector-ref arg-2 5))) (TTImpC-45InteractiveC-45CaseSplit-findUpdates arg-0 arg-1 e-9 arg-3)))(else (case (vector-ref arg-3 0) ((18) (let ((e-4 (vector-ref arg-3 5))) (TTImpC-45InteractiveC-45CaseSplit-findUpdates arg-0 arg-1 arg-2 e-4)))(else (lambda (eta-0) (vector 1 0)))))))))))))))) +(define TTImpC-45InteractiveC-45CaseSplit-findTyName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (case (vector-ref arg-5 0) ((3) (let ((e-2 (vector-ref arg-5 2))) (let ((e-3 (vector-ref arg-5 3))) (let ((e-4 (vector-ref arg-5 4))) (case (vector-ref e-3 0) ((3) (let ((e-6 (vector-ref e-3 1))) (let ((e-7 (vector-ref e-3 2))) (let ((e-8 (vector-ref e-3 3))) (let ((e-9 (vector-ref e-3 4))) (let ((u--b (vector 3 e-6 e-7 e-8 e-9))) (let ((sc2 (CoreC-45Name-u--C-61C-61_Eq_Name arg-4 e-2))) (cond ((equal? sc2 1) (lambda (eta-0) (let ((act-24 ((CoreC-45Normalise-nf arg-1 arg-0 arg-2 arg-3 e-9) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (case (vector-ref e-5 0) ((3) (let ((e-13 (vector-ref e-5 2))) (vector 1 (box e-13))))(else (vector 1 '()))))))))) (else (TTImpC-45InteractiveC-45CaseSplit-findTyName (cons e-2 arg-0) arg-1 arg-2 (cons u--b arg-3) arg-4 e-4))))))))))(else (TTImpC-45InteractiveC-45CaseSplit-findTyName (cons e-2 arg-0) arg-1 arg-2 (cons e-3 arg-3) arg-4 e-4)))))))(else (lambda (eta-0) (vector 1 '())))))) +(define TTImpC-45InteractiveC-45CaseSplit-findCons (lambda (arg-0 arg-1 arg-2 ext-0) (let ((sc0 (TTImpC-45InteractiveC-45CaseSplit-getDefining arg-2))) (if (null? sc0) (vector 1 (vector 0 (vector 1 arg-1 "Can't find function name on LHS"))) (let ((e-2 (unbox sc0))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((TTImpC-45InteractiveC-45CaseSplit-findTyName '() arg-0 e-5 '() arg-1 arg-2) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-3 (vector-ref act-25 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref act-25 1))) (if (null? e-6) (vector 1 (vector 0 (vector 1 arg-1 (PreludeC-45TypesC-45String-C-43C-43 "Can't find type of " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name arg-1) " in LHS"))))) (let ((e-3 (unbox e-6))) (let ((act-26 (CoreC-45Context-lookupDefExact e-3 (let ((e-0 (vector-ref e-5 0))) e-0) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-4 (vector-ref act-26 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref act-26 1))) (if (null? e-7) (vector 1 (vector 0 (vector 1 arg-1 (PreludeC-45TypesC-45String-C-43C-43 "Not a type constructor " (PreludeC-45Show-u--show_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45Context-u--show_Show_Def u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Context-u--showPrec_Show_Def u--d u--x)))) e-7))))) (let ((e-1 (unbox e-7))) (case (vector-ref e-1 0) ((6) (let ((e-8 (vector-ref e-1 7))) (let ((act-27 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-0))))) e-3 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-15 (vector-ref act-27 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref act-27 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-2) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-2)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-2) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-2))))) eta-0 eta-1))) e-8 '() ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-16 (vector-ref act-28 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref act-28 1))) (vector 1 (vector 1 (cons e-2 (cons e-15 e-16))))))))))))))(else (vector 1 (vector 0 (vector 1 arg-1 (PreludeC-45TypesC-45String-C-43C-43 "Not a type constructor " (PreludeC-45Show-u--show_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45Context-u--show_Show_Def u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Context-u--showPrec_Show_Def u--d u--x)))) e-7)))))))))))))))))))))))))))) +(define TTImpC-45InteractiveC-45CaseSplit-findAllVars (lambda (arg-1) (case (vector-ref arg-1 0) ((3) (let ((e-2 (vector-ref arg-1 2))) (let ((e-3 (vector-ref arg-1 3))) (let ((e-4 (vector-ref arg-1 4))) (case (vector-ref e-3 0) ((3) (cons e-2 (TTImpC-45InteractiveC-45CaseSplit-findAllVars e-4))) ((1) (cons e-2 (TTImpC-45InteractiveC-45CaseSplit-findAllVars e-4))) ((4) (cons e-2 (TTImpC-45InteractiveC-45CaseSplit-findAllVars e-4)))(else '()))))))(else '())))) +(define TTImpC-45InteractiveC-45CaseSplit-explicitlyBound (lambda (arg-0 arg-1 ext-0) (case (vector-ref arg-1 0) ((0) (let ((e-1 (vector-ref arg-1 1))) (let ((e-2 (vector-ref arg-1 2))) (let ((e-3 (vector-ref arg-1 3))) (let ((e-4 (vector-ref arg-1 4))) (case (vector-ref e-3 0) ((2) (let ((act-24 (((e-4 arg-0) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 e-1 0))) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (TTImpC-45InteractiveC-45CaseSplit-explicitlyBound arg-0 e-5 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (vector 1 (cons e-2 e-10)))))))))))(else (vector 1 '()))))))))(else (vector 1 '()))))) +(define TTImpC-45InteractiveC-45CaseSplit-expandCon (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-lookupTyExact arg-3 (let ((e-0 (vector-ref e-5 0))) e-0) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (if (null? e-6) (CoreC-45Context-undefinedName arg-0 arg-1 arg-3 ext-0) (let ((e-1 (unbox e-6))) (let ((act-26 ((CoreC-45Normalise-nf arg-0 '() e-5 '() e-1) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (TTImpC-45InteractiveC-45CaseSplit-getArgNames arg-0 e-5 '() arg-2 '() e-7 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (vector 1 (TTImpC-45TTImp-apply (vector 0 arg-1 arg-3) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (vector 17 arg-1 eta-0)) e-8))))))))))))))))))))))) (define TTImpC-45InteractiveC-45CaseSplit-defaultNames (lambda () (cons "x" (cons "y" (cons "z" (cons "w" (cons "v" (cons "s" (cons "t" (cons "u" '())))))))))) -(define TTImpC-45InteractiveC-45CaseSplit-combine (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (if (null? sc0) (let ((sc1 arg-1)) (if (null? sc1) (vector 0 (vector 0 )) (vector 1 (DataC-45List-reverse arg-1)))) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((2) (TTImpC-45InteractiveC-45CaseSplit-combine e-3 arg-1))(else (TTImpC-45InteractiveC-45CaseSplit-combine e-3 (cons e-2 arg-1))))))))))) -(define TTImpC-45InteractiveC-45CaseSplit-apply (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (if (null? sc0) arg-0 (let ((e-1 (car sc0))) (let ((e-2 (cdr sc0))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (TTImpC-45InteractiveC-45CaseSplit-apply (vector 8 e-4 arg-0 e-5) e-2)))) ((1) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (TTImpC-45InteractiveC-45CaseSplit-apply (vector 9 e-6 arg-0 e-7) e-2)))) (else (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((e-10 (vector-ref sc1 3))) (TTImpC-45InteractiveC-45CaseSplit-apply (vector 10 e-8 arg-0 e-9 e-10) e-2))))))))))))) -(define CoreC-45AutoSearch-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32searchType-5538 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (let ((sc0 arg-23)) (cond ((equal? sc0 0) (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error arg-22 eta-0))) (else (CoreC-45AutoSearch-n--9533-5114-u--tryGroups arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 (vector 0 ) arg-20 (let ((sc1 arg-21)) (let ((e-1 (cdr sc1))) e-1)))))))) -(define CoreC-45AutoSearch-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32searchType-5436 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (cond ((equal? sc0 0) (CoreC-45AutoSearch-n--9533-5114-u--tryGroups arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 (vector 0 ) arg-20 (let ((sc1 arg-21)) (let ((e-1 (cdr sc1))) e-1)))) (else (lambda (eta-0) (CoreC-45UnifyState-handleUnify arg-12 arg-11 (CoreC-45AutoSearch-searchLocalVars arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-14 arg-6 arg-5 arg-3 arg-2 arg-20) (lambda (u--e) (CoreC-45AutoSearch-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32searchType-5538 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 u--e (CoreC-45AutoSearch-n--9533-5113-u--ambig arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 u--e))) eta-0))))))) -(define CoreC-45AutoSearch-case--caseC-32blockC-32inC-32searchType-5367 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 ext-0) (let ((sc0 arg-21)) (cond ((equal? sc0 0) (let ((act-24 (CoreC-45Normalise-logNF arg-0 arg-12 "auto" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Next target") arg-2 arg-20 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45Context-getSearchData arg-12 arg-10 arg-8 arg-18 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (let ((sc3 arg-4)) (cond ((equal? sc3 0) (CoreC-45AutoSearch-checkConcreteDets arg-0 arg-12 arg-11 arg-10 arg-8 arg-2 arg-3 (vector 3 arg-19 arg-18 arg-17 arg-16 arg-15) ext-0)) (else (vector 1 (vector 0 ))))))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((CoreC-45AutoSearch-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32searchType-5436 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 e-6 (PreludeC-45Basics-C-38C-38 arg-8 (lambda () arg-4))) ext-0))))))))))))))) (else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 29 '() arg-10 '() arg-3) ext-0)))))) -(define CoreC-45AutoSearch-case--searchTypeC-44tryGroups-5216 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-19)) (cond ((equal? sc0 0) (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error arg-18 eta-0))) (else (CoreC-45AutoSearch-n--9533-5114-u--tryGroups arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 (vector 1 (DataC-45Maybe-fromMaybe (lambda () arg-18) arg-17)) arg-16 arg-15)))))) -(define CoreC-45AutoSearch-case--concreteDets-4650 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (cond ((equal? sc0 0) (CoreC-45AutoSearch-concreteDets arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 (PreludeC-45Types-u--C-43_Num_Nat (PreludeC-45Types-u--fromInteger_Num_Nat 1) arg-4) arg-3 arg-2)) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-10))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((CoreC-45Normalise-evalClosure arg-10 arg-0 e-5 arg-1) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((CoreC-45AutoSearch-n--13632-4253-u--concrete arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-5 e-6 0) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((CoreC-45AutoSearch-concreteDets arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 (PreludeC-45Types-u--C-43_Num_Nat (PreludeC-45Types-u--fromInteger_Num_Nat 1) arg-4) arg-3 arg-2) eta-0))))))))))))))))))))) -(define CoreC-45AutoSearch-case--concreteDetsC-44drop-4273 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (cond ((equal? sc0 0) (cons arg-12 (CoreC-45AutoSearch-n--13632-4252-u--drop arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (PreludeC-45Types-u--C-43_Num_Nat (PreludeC-45Types-u--fromInteger_Num_Nat 1) arg-15) arg-14 arg-13))) (else (CoreC-45AutoSearch-n--13632-4252-u--drop arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (PreludeC-45Types-u--C-43_Num_Nat (PreludeC-45Types-u--fromInteger_Num_Nat 1) arg-15) arg-14 arg-13)))))) -(define CoreC-45AutoSearch-case--caseC-32blockC-32inC-32searchNamesC-44visible-3983 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 ext-0) (let ((sc0 arg-20)) (cond ((equal? sc0 0) (vector 1 (vector 1 (cons arg-15 arg-18)))) (else (vector 1 (vector 0 ))))))) -(define CoreC-45AutoSearch-case--caseC-32blockC-32inC-32searchName-3764 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 ext-0) (let ((sc0 arg-22)) (if (null? sc0) (let ((act-24 (CoreC-45AutoSearch-isPairNF arg-13 arg-4 arg-17 arg-14 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((u--candidate (CoreC-45TT-apply arg-11 (vector 1 arg-11 arg-16 arg-1) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (let ((sc2 eta-0)) (let ((e-4 (vector-ref sc2 4))) e-4))) arg-18)))) (let ((act-25 (CoreC-45Normalise-logTermNF arg-0 arg-13 "auto" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Candidate ") arg-4 u--candidate ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45Core-traverse_ (lambda (eta-0) (CoreC-45AutoSearch-searchIfHole arg-0 arg-13 arg-12 arg-11 arg-9 arg-8 e-5 arg-7 arg-6 arg-5 arg-4 eta-0)) (CoreC-45AutoSearch-impLast arg-18) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (vector 1 u--candidate))))))))))))))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 29 '() arg-11 '() arg-5) ext-0))))) -(define CoreC-45AutoSearch-case--searchName-3528 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((5) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (vector 2 e-0 e-1)))) ((6) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (vector 3 e-3 e-4))))(else (vector 1 )))))) -(define CoreC-45AutoSearch-case--searchLocalWithC-44findPos-2999 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 ext-0) (let ((sc0 arg-28)) (cond ((equal? sc0 0) (CoreC-45Core-u--throw_Catchable_Core_Error arg-27 ext-0)) (else (let ((act-24 (let ((act-24 (CoreC-45Context-fstName arg-13 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((PreludeC-45Types-maybe (lambda () (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 29 '() arg-11 '() arg-5) eta-0))) (lambda () (lambda (eta-0) (lambda (eta-1) (vector 1 eta-0)))) e-5) ext-0)))))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (CoreC-45Context-sndName arg-13 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((PreludeC-45Types-maybe (lambda () (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 29 '() arg-11 '() arg-5) eta-0))) (lambda () (lambda (eta-0) (lambda (eta-1) (vector 1 eta-0)))) e-6) ext-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (CoreC-45Context-isPairType arg-13 arg-21 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (cond ((equal? sc4 0) (let ((act-27 (CoreC-45Context-clearDefs arg-26 ext-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-28 (CoreC-45Normalise-u--quote_Quote_Closure arg-13 arg-0 e-8 arg-4 arg-19 ext-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-29 (CoreC-45Normalise-u--quote_Quote_Closure arg-13 arg-0 e-8 arg-4 arg-20 ext-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc7 1))) (CoreC-45AutoSearch-exactlyOne arg-0 arg-13 arg-12 arg-11 arg-4 arg-5 arg-18 (cons (lambda (eta-0) (let ((act-30 ((CoreC-45Normalise-evalClosure arg-13 arg-0 arg-26 arg-19) eta-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc8 1))) ((CoreC-45AutoSearch-n--11662-2481-u--findPos arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-26 arg-25 (lambda (u--arg) (CoreC-45TT-apply arg-11 (vector 1 arg-11 (vector 1 ) e-5) (cons e-9 (cons e-10 (cons (arg-24 u--arg) '()))))) e-11 arg-18) eta-0))))))) (cons (lambda (eta-0) (let ((act-30 ((CoreC-45Normalise-evalClosure arg-13 arg-0 arg-26 arg-20) eta-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc8 1))) ((CoreC-45AutoSearch-n--11662-2481-u--findPos arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-26 arg-25 (lambda (u--arg) (CoreC-45TT-apply arg-11 (vector 1 arg-11 (vector 1 ) e-6) (cons e-9 (cons e-10 (cons (arg-24 u--arg) '()))))) e-11 arg-18) eta-0))))))) '())) ext-0))))))))))))))))) (else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 29 '() arg-11 '() arg-5) ext-0)))))))))))))))))))))))) -(define CoreC-45AutoSearch-case--caseC-32blockC-32inC-32searchLocalWithC-44findDirect-2704 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 ext-0) (let ((sc0 arg-23)) (if (null? sc0) (let ((act-24 ((CoreC-45AutoSearch-usableLocal arg-0 arg-13 arg-11 arg-9 arg-4 arg-15) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (cond ((equal? sc2 0) (let ((u--candidate (CoreC-45TT-apply arg-11 (arg-16 arg-1) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (let ((sc3 eta-0)) (let ((e-4 (vector-ref sc3 4))) e-4))) arg-19)))) (let ((act-25 (CoreC-45Normalise-logTermNF arg-0 arg-13 "auto" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Local var candidate ") arg-4 u--candidate ext-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((u--envC-39 (CoreC-45AutoSearch-n--11662-2479-u--clearEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-1 arg-4))) (let ((act-26 (CoreC-45Core-traverse_ (lambda (eta-0) (CoreC-45AutoSearch-searchIfHole arg-0 arg-13 arg-12 arg-11 arg-9 arg-8 1 arg-7 arg-6 arg-5 u--envC-39 eta-0)) (CoreC-45AutoSearch-impLast arg-19) ext-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (vector 1 u--candidate)))))))))))) (else (let ((act-25 (CoreC-45Normalise-logNF arg-0 arg-13 "auto" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Can't use ") arg-4 arg-15 ext-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 29 '() arg-11 '() arg-5) ext-0))))))))))))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 29 '() arg-11 '() arg-5) ext-0))))) -(define CoreC-45AutoSearch-case--usableLocalC-44usableLocalArg-2126 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-9 arg-3 e-5 arg-10) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((CoreC-45AutoSearch-usableLocal arg-3 arg-9 arg-8 arg-7 arg-6 e-6) eta-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 0) ((CoreC-45AutoSearch-n--11240-2110-u--usableLocalArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (PreludeC-45Types-u--C-43_Num_Nat (PreludeC-45Types-u--fromInteger_Num_Nat 1) arg-13) arg-12 arg-11) eta-0)) (else (vector 1 1)))))))))))))))) (else (CoreC-45AutoSearch-n--11240-2110-u--usableLocalArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (PreludeC-45Types-u--C-43_Num_Nat (PreludeC-45Types-u--fromInteger_Num_Nat 1) arg-13) arg-12 arg-11)))))) -(define CoreC-45AutoSearch-case--caseC-32blockC-32inC-32getUsableEnv-1960 (lambda (arg-0 arg-1 arg-2 arg-3 arg-5 arg-6 arg-7 arg-8 arg-9) (cons (cons (vector 0 (CoreC-45TT-binderLoc arg-3) (vector 0 ) arg-9) (CoreC-45TT-u--weakenNs_Weaken_Term (CoreC-45TTC-45SizeOf-sucR arg-5) (CoreC-45TT-binderType arg-3))) arg-8))) -(define CoreC-45AutoSearch-case--getUsableEnv-1930 (lambda (arg-0 arg-1 arg-2 arg-3 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (CoreC-45AutoSearch-case--caseC-32blockC-32inC-32getUsableEnv-1960 arg-0 arg-1 arg-2 arg-3 arg-5 arg-6 arg-7 arg-8 (CoreC-45TT-weakenVar arg-5 0))) (else arg-8))))) -(define CoreC-45AutoSearch-case--exactlyOne-1752 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (if (null? sc0) (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 29 '() arg-5 '() arg-3) eta-0)) (let ((e-1 (car sc0))) (let ((e-2 (cdr sc0))) (let ((sc1 e-1)) (if (null? sc1) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-7))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-7 arg-0 e-5 arg-4 arg-2 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (CoreC-45Core-traverseC-39 (lambda (eta-1) (lambda (eta-2) (CoreC-45AutoSearch-n--10790-1724-u--normRes arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 eta-1 eta-2))) arg-9 '() eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc4 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 19 arg-0 arg-5 arg-4 e-6 e-7) eta-0))))))))))))))))) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (lambda (clam-0) (let ((sc2 e-7)) (if (null? sc2) (let ((act-24 (let ((act-24 (unbox arg-7))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-7 arg-0 e-5 arg-4 arg-2 clam-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-26 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (CoreC-45AutoSearch-n--10790-1724-u--normRes arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 eta-0 eta-1))) arg-9 '() clam-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc5 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 19 arg-0 arg-5 arg-4 e-8 e-9) clam-0)))))))))))))))) (let ((e-10 (car sc2))) (let ((e-11 (cdr sc2))) (let ((sc3 e-2)) (if (null? sc3) (let ((act-24 (let ((act-24 (set-box! arg-6 e-11))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((act-25 (let ((act-25 (set-box! arg-7 e-10))) (vector 1 act-25)))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((act-26 (CoreC-45Context-commit arg-7 clam-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (vector 1 e-6))))))))))))) (let ((act-24 (let ((act-24 (unbox arg-7))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-7 arg-0 e-5 arg-4 arg-2 clam-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-26 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (CoreC-45AutoSearch-n--10790-1724-u--normRes arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 eta-0 eta-1))) arg-9 '() clam-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc6 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 19 arg-0 arg-5 arg-4 e-8 e-9) clam-0))))))))))))))))))))))))))))))))) -(define CoreC-45AutoSearch-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32searchIfHole-1245 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 ext-0) (let ((sc0 arg-23)) (if (null? sc0) (vector 1 (vector 0 )) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 29 '() arg-9 '() arg-4) ext-0))))) -(define CoreC-45AutoSearch-case--caseC-32blockC-32inC-32searchIfHole-969 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 ext-0) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((7) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((act-24 (let ((sc1 arg-6)) (cond ((equal? sc1 0) (CoreC-45Normalise-normaliseScope arg-11 '() arg-14 '() (let ((sc2 arg-15)) (let ((e-2 (vector-ref sc2 3))) e-2)) ext-0)) (else (vector 1 arg-4)))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (CoreC-45Normalise-normaliseScope arg-11 arg-0 arg-14 arg-3 (let ((sc2 arg-2)) (let ((e-6 (vector-ref sc2 5))) e-6)) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (CoreC-45AutoSearch-searchType arg-0 arg-11 arg-10 arg-9 arg-13 arg-8 arg-7 arg-1 arg-5 1 e-5 arg-3 e-6 ext-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (CoreC-45Normalise-logTermNF arg-0 arg-11 "auto" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Solved arg") arg-3 e-6 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 (CoreC-45Normalise-logTermNF arg-0 arg-11 "auto" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Arg meta") arg-3 (let ((sc4 arg-2)) (let ((e-4 (vector-ref sc4 4))) e-4)) ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-28 (CoreC-45Unify-solveIfUndefined arg-0 arg-11 arg-10 arg-3 (let ((sc5 arg-2)) (let ((e-4 (vector-ref sc5 4))) e-4)) e-6 ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((sc6 e-9)) (cond ((equal? sc6 0) (vector 1 (vector 0 ))) (else (let ((act-29 ((((CoreC-45Unify-unify (cons (lambda (u--vars) (lambda (arg-4911) (lambda (arg-4913) (lambda (arg-4915) (lambda (arg-4916) (lambda (arg-4917) (lambda (arg-4919) (lambda (arg-4922) (lambda (eta-0) (CoreC-45Unify-u--unifyD_Unify_Term u--vars arg-4911 arg-4913 arg-4915 arg-4916 arg-4917 arg-4919 arg-4922 eta-0)))))))))) (lambda (u--vars) (lambda (arg-4924) (lambda (arg-4926) (lambda (arg-4928) (lambda (arg-4929) (lambda (arg-4930) (lambda (arg-4932) (lambda (arg-4933) (lambda (eta-0) (CoreC-45Unify-u--unifyWithLazyD_Unify_Term u--vars arg-4924 arg-4926 arg-4928 arg-4929 arg-4930 arg-4932 arg-4933 eta-0))))))))))) arg-0 arg-11 arg-10 (CoreC-45Unify-inTerm) arg-9 arg-3) (let ((sc7 arg-2)) (let ((e-4 (vector-ref sc7 4))) e-4))) e-6) ext-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc7 1))) (let ((u--ok 1)) (CoreC-45AutoSearch-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32searchIfHole-1245 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 e-0 e-1 e-5 e-6 u--ok e-10 (let ((sc8 e-10)) (let ((e-11 (vector-ref sc8 1))) e-11)) ext-0))))))))))))))))))))))))))))))))))))(else (vector 1 (vector 0 ))))))) -(define CoreC-45AutoSearch-case--impLastC-44impl-858 (lambda (arg-1 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) 1)(else 0))))) -(define CoreC-45AutoSearch-n--13240-3930-u--visible (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 ext-0) (let ((act-24 ((CoreC-45Context-lookupCtxtExact arg-17 arg-15) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((_-0 (vector 1 e-1))) (CoreC-45AutoSearch-case--caseC-32blockC-32inC-32searchNamesC-44visible-3983 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-17 arg-16 arg-15 e-1 _-0 (CoreC-45Context-visibleInAny arg-16 arg-17 (let ((sc2 e-1)) (let ((e-9 (vector-ref sc2 10))) e-9))) ext-0)))) (else (vector 1 (vector 0 )))))))))))) -(define CoreC-45AutoSearch-n--11240-2110-u--usableLocalArg (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (if (null? sc0) (lambda (eta-0) (vector 1 0)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (CoreC-45AutoSearch-case--usableLocalC-44usableLocalArg-2126 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-2 e-3 arg-11 arg-10 (PreludeC-45Types-elem (cons (lambda (arg-13) (lambda (arg-14) (PreludeC-45Types-u--C-61C-61_Eq_Nat arg-13 arg-14))) (lambda (arg-13) (lambda (arg-14) (PreludeC-45Types-u--C-47C-61_Eq_Nat arg-13 arg-14)))) arg-10 arg-11)))))))) -(define CoreC-45AutoSearch-n--9533-5114-u--tryGroups (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((1) (let ((e-8 (vector-ref sc0 1))) (let ((sc1 arg-15)) (if (null? sc1) (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error e-8 eta-0)) (lambda (clam-0) (let ((sc2 arg-15)) (let ((e-1 (car sc2))) (let ((e-2 (cdr sc2))) (let ((sc3 e-1)) (let ((e-5 (car sc3))) (let ((e-6 (cdr sc3))) (CoreC-45UnifyState-handleUnify arg-12 arg-11 (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-logC arg-12 "auto" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-1) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-2) (lambda (eta-3) (CoreC-45Context-getFullName arg-12 eta-2 eta-3))) e-6 '() eta-1))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc4 1))) (vector 1 (PreludeC-45TypesC-45String-C-43C-43 "Search: Trying " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Nat (PreludeC-45TypesC-45List-length e-7)) (PreludeC-45TypesC-45String-C-43C-43 " names " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45Name-u--show_Show_Name u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Name-u--showPrec_Show_Name u--d u--x)))) e-7))))))))))) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((act-25 (CoreC-45Normalise-logNF arg-0 arg-12 "auto" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "For target") arg-2 arg-14 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (CoreC-45AutoSearch-searchNames arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 (cons arg-1 arg-7) arg-6 arg-5 arg-3 arg-2 e-5 e-6 arg-14 eta-0)))))))))) (lambda (u--err) (CoreC-45AutoSearch-case--searchTypeC-44tryGroups-5216 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-5 e-6 e-2 arg-14 arg-13 u--err (CoreC-45AutoSearch-n--9533-5113-u--ambig arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 u--err))) clam-0)))))))))))) ((0) (let ((sc1 arg-15)) (if (null? sc1) (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 29 '() arg-10 '() arg-3) eta-0)) (lambda (clam-1) (let ((sc2 arg-15)) (let ((e-1 (car sc2))) (let ((e-2 (cdr sc2))) (let ((sc3 e-1)) (let ((e-5 (car sc3))) (let ((e-6 (cdr sc3))) (CoreC-45UnifyState-handleUnify arg-12 arg-11 (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-logC arg-12 "auto" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-1) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-2) (lambda (eta-3) (CoreC-45Context-getFullName arg-12 eta-2 eta-3))) e-6 '() eta-1))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc4 1))) (vector 1 (PreludeC-45TypesC-45String-C-43C-43 "Search: Trying " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Nat (PreludeC-45TypesC-45List-length e-7)) (PreludeC-45TypesC-45String-C-43C-43 " names " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45Name-u--show_Show_Name u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Name-u--showPrec_Show_Name u--d u--x)))) e-7))))))))))) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((act-25 (CoreC-45Normalise-logNF arg-0 arg-12 "auto" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "For target") arg-2 arg-14 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (CoreC-45AutoSearch-searchNames arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 (cons arg-1 arg-7) arg-6 arg-5 arg-3 arg-2 e-5 e-6 arg-14 eta-0)))))))))) (lambda (u--err) (CoreC-45AutoSearch-case--searchTypeC-44tryGroups-5216 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-5 e-6 e-2 arg-14 arg-13 u--err (CoreC-45AutoSearch-n--9533-5113-u--ambig arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 u--err))) clam-1)))))))))))(else (lambda (clam-2) (let ((sc0 arg-15)) (let ((e-1 (car sc0))) (let ((e-2 (cdr sc0))) (let ((sc1 e-1)) (let ((e-5 (car sc1))) (let ((e-6 (cdr sc1))) (CoreC-45UnifyState-handleUnify arg-12 arg-11 (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-logC arg-12 "auto" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-1) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-2) (lambda (eta-3) (CoreC-45Context-getFullName arg-12 eta-2 eta-3))) e-6 '() eta-1))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc2 1))) (vector 1 (PreludeC-45TypesC-45String-C-43C-43 "Search: Trying " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Nat (PreludeC-45TypesC-45List-length e-7)) (PreludeC-45TypesC-45String-C-43C-43 " names " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45Name-u--show_Show_Name u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Name-u--showPrec_Show_Name u--d u--x)))) e-7))))))))))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((act-25 (CoreC-45Normalise-logNF arg-0 arg-12 "auto" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "For target") arg-2 arg-14 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (CoreC-45AutoSearch-searchNames arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 (cons arg-1 arg-7) arg-6 arg-5 arg-3 arg-2 e-5 e-6 arg-14 eta-0)))))))))) (lambda (u--err) (CoreC-45AutoSearch-case--searchTypeC-44tryGroups-5216 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-5 e-6 e-2 arg-14 arg-13 u--err (CoreC-45AutoSearch-n--9533-5113-u--ambig arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 u--err))) clam-2))))))))))))) -(define CoreC-45AutoSearch-n--10790-1724-u--normRes (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 ext-0) (let ((sc0 arg-8)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-3)) (let ((e-6 (car sc1))) (CoreC-45Normalise-normaliseHoles arg-7 arg-0 e-6 arg-4 e-2 ext-0)))))))) -(define CoreC-45AutoSearch-n--9877-850-u--impl (lambda (arg-1 arg-3) (CoreC-45AutoSearch-case--impLastC-44impl-858 arg-1 arg-3 (let ((sc0 arg-3)) (let ((e-3 (vector-ref sc0 3))) e-3))))) -(define CoreC-45AutoSearch-n--11662-2481-u--findPos (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((sc1 e-5)) (if (null? sc1) (lambda (eta-0) (CoreC-45AutoSearch-n--11662-2480-u--findDirect arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 eta-0)) (let ((e-7 (car sc1))) (let ((e-8 (cdr sc1))) (let ((sc2 e-7)) (if (null? sc2) (lambda (eta-0) (CoreC-45AutoSearch-n--11662-2480-u--findDirect arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 eta-0)) (let ((e-11 (car sc2))) (let ((e-12 (cdr sc2))) (let ((sc3 e-8)) (if (null? sc3) (lambda (eta-0) (CoreC-45AutoSearch-n--11662-2480-u--findDirect arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 eta-0)) (let ((e-14 (car sc3))) (let ((e-15 (cdr sc3))) (let ((sc4 e-14)) (if (null? sc4) (lambda (eta-0) (CoreC-45AutoSearch-n--11662-2480-u--findDirect arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 eta-0)) (let ((e-18 (car sc4))) (let ((e-19 (cdr sc4))) (lambda (clam-0) (let ((sc5 e-15)) (if (null? sc5) (CoreC-45UnifyState-handleUnify arg-13 arg-12 (lambda (eta-0) (CoreC-45AutoSearch-n--11662-2480-u--findDirect arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-1 arg-16 arg-17 arg-18 eta-0)) (lambda (u--e) (let ((u--nty (vector 3 e-1 e-2 e-3 e-4 (cons (cons e-11 e-12) (cons (cons e-18 e-19) '()))))) (lambda (eta-0) (CoreC-45AutoSearch-case--searchLocalWithC-44findPos-2999 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-3 e-4 e-18 e-11 arg-18 e-12 e-19 e-2 e-1 u--nty arg-16 arg-15 arg-14 u--e (CoreC-45AutoSearch-n--11662-2477-u--ambig arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 u--e) eta-0)))) clam-0) (CoreC-45AutoSearch-n--11662-2480-u--findDirect arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 clam-0))))))))))))))))))))))))))(else (lambda (eta-0) (CoreC-45AutoSearch-n--11662-2480-u--findDirect arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 eta-0))))))) -(define CoreC-45AutoSearch-n--11662-2480-u--findDirect (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 ext-0) (let ((act-24 (CoreC-45AutoSearch-mkArgs arg-0 arg-13 arg-12 arg-11 arg-10 arg-4 arg-17 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-2 (car sc1))) (let ((e-3 (cdr sc1))) (let ((act-25 (CoreC-45Normalise-logTermNF arg-0 arg-13 "auto" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Trying") arg-4 (arg-16 arg-1) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((act-26 (CoreC-45Normalise-logNF arg-0 arg-13 "auto" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Type") arg-4 arg-17 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((act-27 (CoreC-45Normalise-logNF arg-0 arg-13 "auto" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "For target") arg-4 arg-18 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((act-28 ((((CoreC-45Unify-unify (cons (lambda (u--vars) (lambda (arg-4911) (lambda (arg-4913) (lambda (arg-4915) (lambda (arg-4916) (lambda (arg-4917) (lambda (arg-4919) (lambda (arg-4922) (CoreC-45Unify-u--unifyD_Unify_NF u--vars arg-4911 arg-4913 arg-4915 arg-4916 arg-4917 arg-4919 arg-4922))))))))) (lambda (u--vars) (lambda (arg-4924) (lambda (arg-4926) (lambda (arg-4928) (lambda (arg-4929) (lambda (arg-4930) (lambda (arg-4932) (lambda (arg-4933) (CoreC-45Unify-u--unifyWithLazyD_Unify_NF u--vars arg-4924 arg-4926 arg-4928 arg-4929 arg-4930 arg-4932 arg-4933)))))))))) arg-0 arg-13 arg-12 (CoreC-45Unify-inTerm) arg-11 arg-4) arg-18) e-3) ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (let ((_-0 (cons e-2 e-3))) (CoreC-45AutoSearch-case--caseC-32blockC-32inC-32searchLocalWithC-44findDirect-2704 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-18 arg-17 arg-16 arg-15 arg-14 e-2 e-3 _-0 e-9 (let ((sc6 e-9)) (let ((e-0 (vector-ref sc6 1))) e-0)) ext-0))))))))))))))))))))))))))))) -(define CoreC-45AutoSearch-n--13632-4252-u--drop (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (if (null? sc0) '() (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (CoreC-45AutoSearch-case--concreteDetsC-44drop-4273 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-2 e-3 arg-13 arg-12 (PreludeC-45Types-elem (cons (lambda (arg-11) (lambda (arg-15) (PreludeC-45Types-u--C-61C-61_Eq_Nat arg-11 arg-15))) (lambda (arg-11) (lambda (arg-15) (PreludeC-45Types-u--C-47C-61_Eq_Nat arg-11 arg-15)))) arg-12 arg-13)))))))) -(define CoreC-45AutoSearch-n--13632-4253-u--concrete (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (((e-4 arg-11) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) arg-6 (vector 10 e-1 1))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) ((CoreC-45AutoSearch-n--13632-4253-u--concrete arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-5 1) eta-0)))))))))) ((3) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (CoreC-45Context-getSearchData arg-10 e-6 1 e-7 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((u--argsC-39 (CoreC-45AutoSearch-n--13632-4252-u--drop arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 0 (let ((sc2 e-5)) (let ((e-0 (car sc2))) e-0)) e-10))) (CoreC-45Core-traverse_ (lambda (u--parg) (lambda (eta-1) (let ((act-25 ((CoreC-45Normalise-evalClosure arg-10 arg-0 arg-11 u--parg) eta-1))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc2 1))) ((CoreC-45AutoSearch-n--13632-4253-u--concrete arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-11 1) eta-1)))))))) (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) u--argsC-39) eta-0)))))))))))) ((2) (let ((e-16 (vector-ref sc0 5))) (lambda (eta-0) (CoreC-45Core-traverse_ (lambda (u--parg) (lambda (eta-1) (let ((act-24 ((CoreC-45Normalise-evalClosure arg-10 arg-0 arg-11 u--parg) eta-1))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((CoreC-45AutoSearch-n--13632-4253-u--concrete arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-5 1) eta-1)))))))) (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) e-16) eta-0)))) ((1) (let ((e-19 (vector-ref sc0 2))) (lambda (clam-0) (let ((sc1 e-19)) (case (vector-ref sc1 0) ((2) (let ((e-22 (vector-ref sc1 1))) (let ((e-23 (vector-ref sc1 2))) (let ((sc2 arg-13)) (cond ((equal? sc2 0) (let ((act-24 (CoreC-45Context-lookupDefExact e-22 (let ((sc3 arg-11)) (let ((e-0 (vector-ref sc3 1))) e-0)) clam-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((sc4 e-5)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((sc5 e-1)) (case (vector-ref sc5 0) ((7) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 (let ((sc7 e-3)) (let ((e-0 (car sc7))) e-0)))) (cond ((equal? sc6 0) (vector 1 (vector 0 ))) (else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 30 '() arg-8 e-22 e-23 '() arg-5) clam-0))))))(else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 30 '() arg-8 e-22 e-23 '() arg-5) clam-0))))))(else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 30 '() arg-8 e-22 e-23 '() arg-5) clam-0)))))))))) ((equal? sc2 1) (let ((act-24 (CoreC-45Context-lookupDefExact e-22 (let ((sc3 arg-11)) (let ((e-0 (vector-ref sc3 1))) e-0)) clam-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((sc4 e-5)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((sc5 e-1)) (case (vector-ref sc5 0) ((7) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 (let ((sc7 e-3)) (let ((e-0 (car sc7))) e-0)))) (cond ((equal? sc6 0) (vector 1 (vector 0 ))) (else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 29 '() arg-8 '() arg-5) clam-0))))))(else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 29 '() arg-8 '() arg-5) clam-0))))))(else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 29 '() arg-8 '() arg-5) clam-0))))))))))(else (vector 1 (vector 0 ))))))))(else (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define CoreC-45AutoSearch-n--11662-2478-u--clearEnvType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-16 arg-18 arg-19) (let ((sc0 arg-16)) (cond ((equal? sc0 0) (let ((sc1 arg-19)) (let ((e-4 (car sc1))) (let ((e-5 (cdr sc1))) (cons (vector 0 (CoreC-45TT-binderLoc e-4) (CoreC-45TT-multiplicity e-4) (vector 1 ) (vector 10 arg-18 1)) e-5)))))(else (let ((e-0 (- arg-16 1))) (let ((sc0 arg-19)) (let ((e-9 (car sc0))) (let ((e-10 (cdr sc0))) (cons e-9 (CoreC-45AutoSearch-n--11662-2478-u--clearEnvType arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-0 arg-18 e-10))))))))))) -(define CoreC-45AutoSearch-n--11662-2479-u--clearEnv (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 3))) (CoreC-45AutoSearch-n--11662-2478-u--clearEnvType arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-4 e-2 arg-15))))(else arg-15))))) -(define CoreC-45AutoSearch-n--11662-2477-u--ambig (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((19) 0)(else 1))))) -(define CoreC-45AutoSearch-n--9533-5113-u--ambig (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((19) 0)(else 1))))) -(define CoreC-45AutoSearch-usableLocal (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (lambda (clam-0) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((2) (let ((e-25 (vector-ref sc1 1))) (let ((sc2 e-25)) (case (vector-ref sc2 0) ((3) (vector 1 0))(else (vector 1 1)))))) ((0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-1 arg-0 e-5 eta-0)) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-3) '() clam-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45AutoSearch-usableLocal arg-0 arg-1 arg-2 arg-3 arg-4 eta-0)) e-6 '() clam-0)))))))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 (LibrariesC-45DataC-45BoolC-45Extra-allTrue e-6)))))))))))))(else (vector 1 0)))))))) ((3) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (let ((e-9 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (CoreC-45Context-getSearchData arg-1 arg-2 (let ((sc1 arg-3)) (cond ((equal? sc1 0) 1) (else 0))) e-6 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc1 1))) ((CoreC-45AutoSearch-n--11240-2110-u--usableLocalArg e-5 e-7 e-8 arg-0 e-9 e-6 arg-4 arg-3 arg-2 arg-1 0 (let ((sc2 e-10)) (let ((e-0 (car sc2))) e-0)) (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) e-9)) eta-0))))))))))))) ((2) (let ((e-15 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (eta-1) (CoreC-45Normalise-evalClosure arg-1 arg-0 e-5 eta-1)) (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) e-15) '() eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (CoreC-45Core-traverseC-39 (lambda (eta-1) (CoreC-45AutoSearch-usableLocal arg-0 arg-1 arg-2 arg-3 arg-4 eta-1)) e-6 '() eta-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (LibrariesC-45DataC-45BoolC-45Extra-allTrue e-6))))))))))))))) ((0) (let ((e-17 (vector-ref sc0 1))) (let ((e-19 (vector-ref sc0 3))) (let ((e-20 (vector-ref sc0 4))) (lambda (clam-1) (let ((sc1 e-19)) (case (vector-ref sc1 0) ((2) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (((e-20 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) arg-4 (vector 10 e-17 1))) clam-1))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) ((CoreC-45AutoSearch-usableLocal arg-0 arg-1 arg-2 arg-3 arg-4 e-6) clam-1))))))))))))(else (vector 1 0))))))))) ((9) (lambda (eta-0) (vector 1 1)))(else (lambda (eta-0) (vector 1 0))))))) -(define CoreC-45AutoSearch-successful (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((sc0 arg-3)) (if (null? sc0) (vector 1 '()) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Context-branch arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (CoreC-45Core-u--catch_Catchable_Core_Error (lambda (eta-0) (let ((act-26 (e-2 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (let ((act-27 (unbox arg-2))) (vector 1 act-27)))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (let ((act-28 (unbox arg-1))) (vector 1 act-28)))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 (let ((act-29 (set-box! arg-2 e-5))) (vector 1 act-29)))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((act-30 (let ((act-30 (set-box! arg-1 e-6))) (vector 1 act-30)))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((act-31 (CoreC-45AutoSearch-successful arg-0 arg-1 arg-2 e-3 eta-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc8 1))) (vector 1 (cons (vector 1 (cons e-7 (cons e-9 e-8))) e-12))))))))))))))))))))))))))))))) (lambda (u--err) (lambda (eta-0) (let ((act-26 (let ((act-26 (set-box! arg-2 e-5))) (vector 1 act-26)))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((act-27 (let ((act-27 (set-box! arg-1 e-6))) (vector 1 act-27)))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((act-28 (CoreC-45AutoSearch-successful arg-0 arg-1 arg-2 e-3 eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (vector 1 (cons (vector 0 u--err) e-9))))))))))))))))) ext-0))))))))))))))))) -(define CoreC-45AutoSearch-searchType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 ext-0) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (let ((e-9 (vector-ref sc1 4))) (let ((act-24 (CoreC-45AutoSearch-searchType (cons e-2 arg-0) arg-1 arg-2 arg-3 arg-4 arg-5 '() arg-7 arg-8 arg-9 arg-10 (cons e-3 arg-11) e-4 ext-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (vector 3 e-1 e-2 (vector 0 e-6 e-7 e-8 e-9) e-5)))))))))))) ((1) (let ((act-24 (CoreC-45AutoSearch-searchType (cons e-2 arg-0) arg-1 arg-2 arg-3 arg-4 arg-5 '() arg-7 arg-8 arg-9 arg-10 (cons e-3 arg-11) e-4 ext-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (vector 3 e-1 e-2 e-3 e-5))))))))(else (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45AutoSearch-abandonIfCycle arg-0 arg-1 arg-11 arg-12 arg-6 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((u--tryingC-39 (cons arg-12 arg-6))) (let ((act-26 ((CoreC-45Normalise-nf arg-1 arg-0 e-5 arg-11 arg-12) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((3) (let ((e-12 (vector-ref sc4 1))) (let ((e-11 (vector-ref sc4 2))) (let ((e-10 (vector-ref sc4 3))) (let ((e-9 (vector-ref sc4 4))) (let ((e-8 (vector-ref sc4 5))) (let ((u--nty (vector 3 e-12 e-11 e-10 e-9 e-8))) (CoreC-45AutoSearch-case--caseC-32blockC-32inC-32searchType-5367 arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 u--tryingC-39 e-8 e-9 e-10 e-11 e-12 u--nty (PreludeC-45Types-u--C-61C-61_Eq_Nat e-9 (PreludeC-45TypesC-45List-length e-8)) ext-0))))))))(else (let ((act-27 (CoreC-45Normalise-logNF arg-0 arg-1 "auto" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Next target: ") arg-11 e-7 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else ((CoreC-45AutoSearch-searchLocalVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 u--tryingC-39 arg-7 arg-8 arg-10 arg-11 e-7) ext-0)))))))))))))))))))))))))))))))(else (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (CoreC-45AutoSearch-abandonIfCycle arg-0 arg-1 arg-11 arg-12 arg-6 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((u--tryingC-39 (cons arg-12 arg-6))) (let ((act-26 ((CoreC-45Normalise-nf arg-1 arg-0 e-5 arg-11 arg-12) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-3 (vector-ref sc3 3))) (let ((e-4 (vector-ref sc3 4))) (let ((e-8 (vector-ref sc3 5))) (let ((u--nty (vector 3 e-1 e-2 e-3 e-4 e-8))) (CoreC-45AutoSearch-case--caseC-32blockC-32inC-32searchType-5367 arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 u--tryingC-39 e-8 e-4 e-3 e-2 e-1 u--nty (PreludeC-45Types-u--C-61C-61_Eq_Nat e-4 (PreludeC-45TypesC-45List-length e-8)) ext-0))))))))(else (let ((act-27 (CoreC-45Normalise-logNF arg-0 arg-1 "auto" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Next target: ") arg-11 e-7 ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((CoreC-45AutoSearch-searchLocalVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 u--tryingC-39 arg-7 arg-8 arg-10 arg-11 e-7) ext-0)))))))))))))))))))))))))))) -(define CoreC-45AutoSearch-searchNames (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 ext-0) (let ((sc0 arg-12)) (if (null? sc0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 29 '() arg-3 '() arg-9) ext-0) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (CoreC-45AutoSearch-n--13240-3930-u--visible arg-0 e-2 e-3 arg-13 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) (cons (let ((sc2 e-5)) (let ((e-30 (vector-ref sc2 3))) e-30)) (let ((sc2 e-5)) (let ((e-29 (vector-ref sc2 4))) e-29))) eta-0 eta-1))) (cons e-2 e-3) '() ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((u--visns (DataC-45List-mapMaybe (lambda (eta-0) eta-0) e-6))) (let ((u--elabs (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (lambda (eta-1) (CoreC-45AutoSearch-searchName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-13 eta-0 eta-1))) u--visns))) (let ((sc3 arg-11)) (cond ((equal? sc3 0) (CoreC-45AutoSearch-anyOne arg-0 arg-1 arg-2 arg-3 arg-10 arg-9 u--elabs ext-0)) (else (CoreC-45AutoSearch-exactlyOne arg-0 arg-1 arg-2 arg-3 arg-10 arg-9 arg-13 u--elabs ext-0)))))))))))))))))))))) -(define CoreC-45AutoSearch-searchName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 ext-0) (let ((sc0 arg-12)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (CoreC-45Context-getNS arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (CoreC-45Context-getNestedNS arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 (CoreC-45Context-visibleInAny (cons e-6 e-7) (let ((sc5 e-3)) (let ((e-1 (vector-ref sc5 2))) e-1)) (let ((sc5 e-3)) (let ((e-9 (vector-ref sc5 10))) e-9))))) (cond ((equal? sc4 0) (vector 1 (vector 0 ))) (else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 29 '() arg-3 '() arg-9) ext-0)))))))))))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((act-26 (let ((sc3 (PreludeC-45Types-elem (cons (lambda (arg-13) (lambda (arg-14) (CoreC-45Context-u--C-61C-61_Eq_DefFlag arg-13 arg-14))) (lambda (arg-13) (lambda (arg-14) (CoreC-45Context-u--C-47C-61_Eq_DefFlag arg-13 arg-14)))) (vector 5 ) (let ((sc4 e-3)) (let ((e-11 (vector-ref sc4 12))) e-11))))) (cond ((equal? sc3 0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 29 '() arg-3 '() arg-9) ext-0)) (else (vector 1 (vector 0 ))))))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((u--ty (let ((sc4 e-3)) (let ((e-25 (vector-ref sc4 3))) e-25)))) (let ((u--namety (CoreC-45AutoSearch-case--searchName-3528 arg-0 e-2 e-3 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 u--ty (let ((sc4 e-3)) (let ((e-17 (vector-ref sc4 18))) e-17))))) (let ((act-27 ((CoreC-45Normalise-nf arg-1 arg-0 e-5 arg-10 (CoreC-45TT-embed u--ty)) ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (CoreC-45Normalise-logNF arg-0 arg-1 "auto" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Searching Name " (CoreC-45Name-u--show_Show_Name e-2))) arg-10 e-8 ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((act-29 (CoreC-45AutoSearch-mkArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-10 e-8 ext-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc6 1))) (let ((sc7 e-10)) (let ((e-11 (car sc7))) (let ((e-4 (cdr sc7))) (let ((act-30 ((((CoreC-45Unify-unify (cons (lambda (u--vars) (lambda (arg-4911) (lambda (arg-4913) (lambda (arg-4915) (lambda (arg-4916) (lambda (arg-4917) (lambda (arg-4919) (lambda (arg-4922) (CoreC-45Unify-u--unifyD_Unify_NF u--vars arg-4911 arg-4913 arg-4915 arg-4916 arg-4917 arg-4919 arg-4922))))))))) (lambda (u--vars) (lambda (arg-4924) (lambda (arg-4926) (lambda (arg-4928) (lambda (arg-4929) (lambda (arg-4930) (lambda (arg-4932) (lambda (arg-4933) (CoreC-45Unify-u--unifyWithLazyD_Unify_NF u--vars arg-4924 arg-4926 arg-4928 arg-4929 arg-4930 arg-4932 arg-4933)))))))))) arg-0 arg-1 arg-2 (CoreC-45Unify-inTerm) arg-3 arg-10) arg-11) e-4) ext-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-12 (vector-ref sc8 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc8 1))) (let ((_-0 (cons e-11 e-4))) (CoreC-45AutoSearch-case--caseC-32blockC-32inC-32searchName-3764 arg-0 e-2 e-3 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 u--ty u--namety e-8 e-11 e-4 _-0 e-12 (let ((sc9 e-12)) (let ((e-0 (vector-ref sc9 1))) e-0)) ext-0)))))))))))))))))))))))))))))))))))))))))))) -(define CoreC-45AutoSearch-searchLocalWith (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 ext-0) (let ((sc0 arg-11)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((CoreC-45Normalise-nf arg-1 arg-0 e-5 arg-10 e-3) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) ((CoreC-45AutoSearch-n--11662-2481-u--findPos arg-0 e-2 e-3 arg-12 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-2 (lambda (eta-0) eta-0) e-6 arg-12) ext-0)))))))))))))))) +(define TTImpC-45InteractiveC-45CaseSplit-combine (lambda (arg-0 arg-1) (if (null? arg-0) (if (null? arg-1) (vector 0 (vector 0 )) (vector 1 (DataC-45List-reverse arg-1))) (let ((e-2 (car arg-0))) (let ((e-3 (cdr arg-0))) (case (vector-ref e-2 0) ((2) (TTImpC-45InteractiveC-45CaseSplit-combine e-3 arg-1))(else (TTImpC-45InteractiveC-45CaseSplit-combine e-3 (cons e-2 arg-1))))))))) +(define TTImpC-45InteractiveC-45CaseSplit-apply (lambda (arg-0 arg-1) (if (null? arg-1) arg-0 (let ((e-1 (car arg-1))) (let ((e-2 (cdr arg-1))) (case (vector-ref e-1 0) ((0) (let ((e-4 (vector-ref e-1 1))) (let ((e-5 (vector-ref e-1 2))) (TTImpC-45InteractiveC-45CaseSplit-apply (vector 8 e-4 arg-0 e-5) e-2)))) ((1) (let ((e-6 (vector-ref e-1 1))) (let ((e-7 (vector-ref e-1 2))) (TTImpC-45InteractiveC-45CaseSplit-apply (vector 9 e-6 arg-0 e-7) e-2)))) (else (let ((e-8 (vector-ref e-1 1))) (let ((e-9 (vector-ref e-1 2))) (let ((e-10 (vector-ref e-1 3))) (TTImpC-45InteractiveC-45CaseSplit-apply (vector 10 e-8 arg-0 e-9 e-10) e-2))))))))))) +(define CoreC-45AutoSearch-case--caseC-32blockC-32inC-32getUsableEnv-2596 (lambda (arg-0 arg-1 arg-2 arg-3 arg-5 arg-6 arg-7 arg-8 arg-9) (cons (cons (vector 0 (CoreC-45TT-binderLoc arg-3) '() arg-9) (CoreC-45TT-u--weakenNs_Weaken_Term (CoreC-45TTC-45SizeOf-sucR arg-5) (CoreC-45TT-binderType arg-3))) arg-8))) +(define CoreC-45AutoSearch-case--exactlyOne-2388 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (if (null? arg-9) (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 29 '() arg-5 '() arg-3) eta-0)) (let ((e-1 (car arg-9))) (let ((e-2 (cdr arg-9))) (if (null? e-1) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-7))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-7 arg-0 e-5 arg-4 arg-2 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-3 (vector-ref act-25 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Core-traverseC-39 (lambda (eta-1) (lambda (eta-2) (CoreC-45AutoSearch-n--7856-2360-u--normRes arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 eta-1 eta-2))) arg-9 '() eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-3 (vector-ref act-26 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref act-26 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 19 arg-0 arg-5 arg-4 e-6 e-7) eta-0)))))))))))))) (let ((e-6 (car e-1))) (let ((e-7 (cdr e-1))) (lambda (clam-0) (if (null? e-7) (let ((act-24 (let ((act-24 (unbox arg-7))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-7 arg-0 e-5 arg-4 arg-2 clam-0))) (case (vector-ref act-25 0) ((0) (let ((e-3 (vector-ref act-25 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (CoreC-45AutoSearch-n--7856-2360-u--normRes arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 eta-0 eta-1))) arg-9 '() clam-0))) (case (vector-ref act-26 0) ((0) (let ((e-3 (vector-ref act-26 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref act-26 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 19 arg-0 arg-5 arg-4 e-8 e-9) clam-0))))))))))))) (let ((e-10 (car e-7))) (let ((e-11 (cdr e-7))) (if (null? e-2) (let ((act-24 (let ((act-24 (set-box! arg-6 e-11))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (let ((act-25 (let ((act-25 (set-box! arg-7 e-10))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-3 (vector-ref act-25 1))) (vector 0 e-3))) (else (let ((act-26 (CoreC-45Context-commit arg-7 clam-0))) (case (vector-ref act-26 0) ((0) (let ((e-3 (vector-ref act-26 1))) (vector 0 e-3))) (else (vector 1 e-6)))))))))) (let ((act-24 (let ((act-24 (unbox arg-7))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-7 arg-0 e-5 arg-4 arg-2 clam-0))) (case (vector-ref act-25 0) ((0) (let ((e-3 (vector-ref act-25 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (CoreC-45AutoSearch-n--7856-2360-u--normRes arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 eta-0 eta-1))) arg-9 '() clam-0))) (case (vector-ref act-26 0) ((0) (let ((e-3 (vector-ref act-26 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref act-26 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 19 arg-0 arg-5 arg-4 e-8 e-9) clam-0)))))))))))))))))))))))))) +(define CoreC-45AutoSearch-case--caseC-32blockC-32inC-32searchIfHole-1592 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 ext-0) (case (vector-ref arg-17 0) ((7) (let ((act-24 (cond ((equal? arg-6 1) (CoreC-45Normalise-normaliseScope arg-11 '() arg-14 '() (let ((e-2 (vector-ref arg-15 2))) e-2) ext-0)) (else (vector 1 arg-4))))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (let ((act-25 (CoreC-45Normalise-normaliseScope arg-11 arg-0 arg-14 arg-3 (let ((e-6 (vector-ref arg-2 4))) e-6) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (CoreC-45AutoSearch-searchType arg-0 arg-11 arg-10 arg-9 arg-13 arg-8 arg-7 arg-1 arg-5 0 e-5 arg-3 e-6 ext-0))))))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Normalise-logTermNF arg-0 arg-11 "auto" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Solved arg") arg-3 e-6 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((act-27 (CoreC-45Normalise-logTermNF arg-0 arg-11 "auto" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Arg meta") arg-3 (let ((e-4 (vector-ref arg-2 3))) e-4) ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((act-28 (CoreC-45Unify-solveIfUndefined arg-0 arg-11 arg-10 arg-3 (let ((e-4 (vector-ref arg-2 3))) e-4) e-6 ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-28 1))) (cond ((equal? e-9 1) (vector 1 0)) (else (let ((act-29 ((((CoreC-45Unify-unify (cons (lambda (u--vars) (lambda (arg-6180) (lambda (arg-6183) (lambda (arg-6186) (lambda (arg-6187) (lambda (arg-6188) (lambda (arg-6190) (lambda (arg-6193) (lambda (eta-0) (CoreC-45Unify-u--unifyD_Unify_Term u--vars arg-6180 arg-6183 arg-6186 arg-6187 arg-6188 arg-6190 arg-6193 eta-0)))))))))) (lambda (u--vars) (lambda (arg-6195) (lambda (arg-6198) (lambda (arg-6201) (lambda (arg-6202) (lambda (arg-6203) (lambda (arg-6205) (lambda (arg-6206) (lambda (eta-0) (CoreC-45Unify-u--unifyWithLazyD_Unify_Term u--vars arg-6195 arg-6198 arg-6201 arg-6202 arg-6203 arg-6205 arg-6206 eta-0))))))))))) arg-0 arg-11 arg-10 (CoreC-45Unify-inTerm) arg-9 arg-3) (let ((e-4 (vector-ref arg-2 3))) e-4)) e-6) ext-0))) (case (vector-ref act-29 0) ((0) (let ((e-2 (vector-ref act-29 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref act-29 1))) (let ((e-11 (vector-ref e-10 0))) (if (null? e-11) (vector 1 0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 29 '() arg-9 '() arg-4) ext-0))))))))))))))))))))))))))))(else (vector 1 0))))) +(define CoreC-45AutoSearch-n--10362-4593-u--visible (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 ext-0) (let ((act-24 ((CoreC-45Context-lookupCtxtExact arg-17 arg-15) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (if (null? e-5) (vector 1 '()) (let ((e-1 (unbox e-5))) (let ((sc2 (CoreC-45Context-visibleInAny arg-16 arg-17 (let ((e-9 (vector-ref e-1 9))) e-9)))) (cond ((equal? sc2 1) (vector 1 (box (cons arg-17 e-1)))) (else (vector 1 '())))))))))))) +(define CoreC-45AutoSearch-n--8314-2747-u--usableLocalArg (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (if (null? arg-12) (lambda (eta-0) (vector 1 1)) (let ((e-2 (car arg-12))) (let ((e-3 (cdr arg-12))) (let ((sc1 (PreludeC-45Types-elem (cons (lambda (arg-13) (lambda (arg-14) (PreludeC-45Types-u--C-61C-61_Eq_Nat arg-13 arg-14))) (lambda (arg-13) (lambda (arg-14) (PreludeC-45Types-u--C-47C-61_Eq_Nat arg-13 arg-14)))) arg-10 arg-11))) (cond ((equal? sc1 1) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-evalClosure arg-9 arg-3 e-5 e-2) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref act-25 1))) ((CoreC-45AutoSearch-usableLocal arg-3 arg-9 arg-8 arg-7 arg-6 e-6) eta-0))))))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref act-25 1))) (cond ((equal? e-6 1) ((CoreC-45AutoSearch-n--8314-2747-u--usableLocalArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (PreludeC-45Types-u--C-43_Num_Nat (PreludeC-45Types-u--fromInteger_Num_Nat 1) arg-10) arg-11 e-3) eta-0)) (else (vector 1 0))))))))))))) (else (CoreC-45AutoSearch-n--8314-2747-u--usableLocalArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (PreludeC-45Types-u--C-43_Num_Nat (PreludeC-45Types-u--fromInteger_Num_Nat 1) arg-10) arg-11 e-3))))))))) +(define CoreC-45AutoSearch-n--6569-5788-u--tryGroups (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (if (null? arg-13) (if (null? arg-15) (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 29 '() arg-10 '() arg-3) eta-0)) (lambda (clam-1) (let ((e-1 (car arg-15))) (let ((e-2 (cdr arg-15))) (let ((e-5 (car e-1))) (let ((e-6 (cdr e-1))) (CoreC-45UnifyState-handleUnify arg-12 arg-11 (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-unverifiedLogC arg-12 "auto" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-1) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-2) (lambda (eta-3) (CoreC-45Context-getFullName arg-12 eta-2 eta-3))) e-6 '() eta-1))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref act-24 1))) (vector 1 (PreludeC-45TypesC-45String-C-43C-43 "Search: Trying " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Nat (PreludeC-45TypesC-45List-length e-7)) (PreludeC-45TypesC-45String-C-43C-43 " names " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45Name-u--show_Show_Name u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Name-u--showPrec_Show_Name u--d u--x)))) e-7)))))))))) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (let ((act-25 (CoreC-45Normalise-logNF arg-0 arg-12 "auto" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "For target") arg-2 arg-14 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-3 (vector-ref act-25 1))) (vector 0 e-3))) (else (CoreC-45AutoSearch-searchNames arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 (cons arg-1 arg-7) arg-6 arg-5 arg-3 arg-2 e-5 e-6 arg-14 eta-0)))))))) (lambda (u--err) (let ((sc4 (CoreC-45AutoSearch-n--6569-5787-u--ambig arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 u--err))) (cond ((equal? sc4 1) (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error u--err eta-0))) (else (CoreC-45AutoSearch-n--6569-5788-u--tryGroups arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 (box (DataC-45Maybe-fromMaybe (lambda () u--err) arg-13)) arg-14 e-2))))) clam-1))))))) (let ((e-8 (unbox arg-13))) (if (null? arg-15) (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error e-8 eta-0)) (lambda (clam-0) (let ((e-1 (car arg-15))) (let ((e-2 (cdr arg-15))) (let ((e-5 (car e-1))) (let ((e-6 (cdr e-1))) (CoreC-45UnifyState-handleUnify arg-12 arg-11 (lambda (eta-0) (let ((act-24 (CoreC-45ContextC-45Log-unverifiedLogC arg-12 "auto" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-1) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-2) (lambda (eta-3) (CoreC-45Context-getFullName arg-12 eta-2 eta-3))) e-6 '() eta-1))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref act-24 1))) (vector 1 (PreludeC-45TypesC-45String-C-43C-43 "Search: Trying " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Nat (PreludeC-45TypesC-45List-length e-7)) (PreludeC-45TypesC-45String-C-43C-43 " names " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45Name-u--show_Show_Name u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Name-u--showPrec_Show_Name u--d u--x)))) e-7)))))))))) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (let ((act-25 (CoreC-45Normalise-logNF arg-0 arg-12 "auto" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "For target") arg-2 arg-14 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-3 (vector-ref act-25 1))) (vector 0 e-3))) (else (CoreC-45AutoSearch-searchNames arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 (cons arg-1 arg-7) arg-6 arg-5 arg-3 arg-2 e-5 e-6 arg-14 eta-0)))))))) (lambda (u--err) (let ((sc4 (CoreC-45AutoSearch-n--6569-5787-u--ambig arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 u--err))) (cond ((equal? sc4 1) (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error u--err eta-0))) (else (CoreC-45AutoSearch-n--6569-5788-u--tryGroups arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 (box (DataC-45Maybe-fromMaybe (lambda () u--err) arg-13)) arg-14 e-2))))) clam-0))))))))))) +(define CoreC-45AutoSearch-n--7856-2360-u--normRes (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 ext-0) (let ((e-2 (car arg-8))) (let ((e-3 (cdr arg-8))) (let ((e-6 (car e-3))) (CoreC-45Normalise-normaliseHoles arg-7 arg-0 e-6 arg-4 e-2 ext-0)))))) +(define CoreC-45AutoSearch-n--6920-1470-u--impl (lambda (arg-1 arg-3) (let ((e-3 (vector-ref arg-3 2))) (case (vector-ref e-3 0) ((1) 0)(else 1))))) +(define CoreC-45AutoSearch-n--8753-3134-u--findPos (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (case (vector-ref arg-17 0) ((3) (let ((e-2 (vector-ref arg-17 2))) (let ((e-5 (vector-ref arg-17 5))) (if (null? e-5) (lambda (eta-0) (CoreC-45AutoSearch-n--8753-3133-u--findDirect arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 eta-0)) (let ((e-7 (car e-5))) (let ((e-8 (cdr e-5))) (if (null? e-7) (lambda (eta-0) (CoreC-45AutoSearch-n--8753-3133-u--findDirect arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 eta-0)) (let ((e-12 (cdr e-7))) (if (null? e-8) (lambda (eta-0) (CoreC-45AutoSearch-n--8753-3133-u--findDirect arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 eta-0)) (let ((e-14 (car e-8))) (let ((e-15 (cdr e-8))) (if (null? e-14) (lambda (eta-0) (CoreC-45AutoSearch-n--8753-3133-u--findDirect arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 eta-0)) (let ((e-19 (cdr e-14))) (lambda (clam-0) (if (null? e-15) (CoreC-45UnifyState-handleUnify arg-13 arg-12 (lambda (eta-0) (CoreC-45AutoSearch-n--8753-3133-u--findDirect arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-1 arg-16 arg-17 arg-18 eta-0)) (lambda (u--e) (lambda (clam-1) (let ((sc6 (CoreC-45AutoSearch-n--8753-3130-u--ambig arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 u--e))) (cond ((equal? sc6 1) (CoreC-45Core-u--throw_Catchable_Core_Error u--e clam-1)) (else (let ((act-24 (let ((act-24 (CoreC-45Context-fstName arg-13 clam-1))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) ((PreludeC-45Types-maybe (lambda () (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 29 '() arg-11 '() arg-5) eta-0))) (lambda () (lambda (eta-0) (lambda (eta-1) (vector 1 eta-0)))) e-6) clam-1))))))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((act-25 (let ((act-25 (CoreC-45Context-sndName arg-13 clam-1))) (case (vector-ref act-25 0) ((0) (let ((e-9 (vector-ref act-25 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref act-25 1))) ((PreludeC-45Types-maybe (lambda () (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 29 '() arg-11 '() arg-5) eta-0))) (lambda () (lambda (eta-0) (lambda (eta-1) (vector 1 eta-0)))) e-9) clam-1))))))) (case (vector-ref act-25 0) ((0) (let ((e-9 (vector-ref act-25 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Context-isPairType arg-13 e-2 clam-1))) (case (vector-ref act-26 0) ((0) (let ((e-10 (vector-ref act-26 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-26 1))) (cond ((equal? e-10 1) (let ((act-27 (CoreC-45Context-clearDefs arg-14 clam-1))) (case (vector-ref act-27 0) ((0) (let ((e-13 (vector-ref act-27 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref act-27 1))) (let ((act-28 (CoreC-45Normalise-u--quote_Quote_Closure arg-13 arg-0 e-13 arg-4 e-12 clam-1))) (case (vector-ref act-28 0) ((0) (let ((e-16 (vector-ref act-28 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref act-28 1))) (let ((act-29 (CoreC-45Normalise-u--quote_Quote_Closure arg-13 arg-0 e-13 arg-4 e-19 clam-1))) (case (vector-ref act-29 0) ((0) (let ((e-17 (vector-ref act-29 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref act-29 1))) (CoreC-45AutoSearch-exactlyOne arg-0 arg-13 arg-12 arg-11 arg-4 arg-5 arg-18 (cons (lambda (eta-0) (let ((act-30 ((CoreC-45Normalise-evalClosure arg-13 arg-0 arg-14 e-12) eta-0))) (case (vector-ref act-30 0) ((0) (let ((e-20 (vector-ref act-30 1))) (vector 0 e-20))) (else (let ((e-20 (vector-ref act-30 1))) ((CoreC-45AutoSearch-n--8753-3134-u--findPos arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 (lambda (u--arg) (CoreC-45TT-apply arg-11 (vector 1 arg-11 (vector 1 ) e-6) (cons e-16 (cons e-17 (cons (arg-16 u--arg) '()))))) e-20 arg-18) eta-0)))))) (cons (lambda (eta-0) (let ((act-30 ((CoreC-45Normalise-evalClosure arg-13 arg-0 arg-14 e-19) eta-0))) (case (vector-ref act-30 0) ((0) (let ((e-20 (vector-ref act-30 1))) (vector 0 e-20))) (else (let ((e-20 (vector-ref act-30 1))) ((CoreC-45AutoSearch-n--8753-3134-u--findPos arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 (lambda (u--arg) (CoreC-45TT-apply arg-11 (vector 1 arg-11 (vector 1 ) e-9) (cons e-16 (cons e-17 (cons (arg-16 u--arg) '()))))) e-20 arg-18) eta-0)))))) '())) clam-1)))))))))))))) (else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 29 '() arg-11 '() arg-5) clam-1)))))))))))))))))))) clam-0) (CoreC-45AutoSearch-n--8753-3133-u--findDirect arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 clam-0))))))))))))))))(else (lambda (eta-0) (CoreC-45AutoSearch-n--8753-3133-u--findDirect arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 eta-0)))))) +(define CoreC-45AutoSearch-n--8753-3133-u--findDirect (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 ext-0) (let ((act-24 (CoreC-45AutoSearch-mkArgs arg-0 arg-13 arg-12 arg-11 arg-10 arg-4 arg-17 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((e-2 (car e-5))) (let ((e-3 (cdr e-5))) (let ((act-25 (CoreC-45Normalise-logTermNF arg-0 arg-13 "auto" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Trying") arg-4 (arg-16 arg-1) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((act-26 (CoreC-45Normalise-logNF arg-0 arg-13 "auto" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Type") arg-4 arg-17 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-4 (vector-ref act-26 1))) (vector 0 e-4))) (else (let ((act-27 (CoreC-45Normalise-logNF arg-0 arg-13 "auto" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "For target") arg-4 arg-18 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-4 (vector-ref act-27 1))) (vector 0 e-4))) (else (let ((act-28 ((((CoreC-45Unify-unify (cons (lambda (u--vars) (lambda (arg-6180) (lambda (arg-6183) (lambda (arg-6186) (lambda (arg-6187) (lambda (arg-6188) (lambda (arg-6190) (lambda (arg-6193) (CoreC-45Unify-u--unifyD_Unify_NF u--vars arg-6180 arg-6183 arg-6186 arg-6187 arg-6188 arg-6190 arg-6193))))))))) (lambda (u--vars) (lambda (arg-6195) (lambda (arg-6198) (lambda (arg-6201) (lambda (arg-6202) (lambda (arg-6203) (lambda (arg-6205) (lambda (arg-6206) (CoreC-45Unify-u--unifyWithLazyD_Unify_NF u--vars arg-6195 arg-6198 arg-6201 arg-6202 arg-6203 arg-6205 arg-6206)))))))))) arg-0 arg-13 arg-12 (CoreC-45Unify-inTerm) arg-11 arg-4) arg-18) e-3) ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-4 (vector-ref act-28 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref act-28 1))) (let ((e-0 (vector-ref e-9 0))) (if (null? e-0) (let ((act-29 ((CoreC-45AutoSearch-usableLocal arg-0 arg-13 arg-11 arg-9 arg-4 arg-17) ext-0))) (case (vector-ref act-29 0) ((0) (let ((e-11 (vector-ref act-29 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-29 1))) (cond ((equal? e-11 1) (let ((u--candidate (CoreC-45TT-apply arg-11 (arg-16 arg-1) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (let ((e-13 (vector-ref eta-0 3))) e-13)) e-2)))) (let ((act-30 (CoreC-45Normalise-logTermNF arg-0 arg-13 "auto" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Local var candidate ") arg-4 u--candidate ext-0))) (case (vector-ref act-30 0) ((0) (let ((e-12 (vector-ref act-30 1))) (vector 0 e-12))) (else (let ((u--envC-39 (CoreC-45AutoSearch-n--8753-3132-u--clearEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-1 arg-4))) (let ((act-31 (CoreC-45Core-traverse_ (lambda (eta-0) (CoreC-45AutoSearch-searchIfHole arg-0 arg-13 arg-12 arg-11 arg-9 arg-8 0 arg-7 arg-6 arg-5 u--envC-39 eta-0)) (CoreC-45AutoSearch-impLast e-2) ext-0))) (case (vector-ref act-31 0) ((0) (let ((e-13 (vector-ref act-31 1))) (vector 0 e-13))) (else (vector 1 u--candidate)))))))))) (else (let ((act-30 (CoreC-45Normalise-logNF arg-0 arg-13 "auto" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Can't use ") arg-4 arg-17 ext-0))) (case (vector-ref act-30 0) ((0) (let ((e-12 (vector-ref act-30 1))) (vector 0 e-12))) (else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 29 '() arg-11 '() arg-5) ext-0)))))))))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 29 '() arg-11 '() arg-5) ext-0)))))))))))))))))))))))) +(define CoreC-45AutoSearch-n--10761-4921-u--drop (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-12 arg-13 arg-14) (if (null? arg-14) '() (let ((e-2 (car arg-14))) (let ((e-3 (cdr arg-14))) (let ((sc1 (PreludeC-45Types-elem (cons (lambda (arg-11) (lambda (arg-15) (PreludeC-45Types-u--C-61C-61_Eq_Nat arg-11 arg-15))) (lambda (arg-11) (lambda (arg-15) (PreludeC-45Types-u--C-47C-61_Eq_Nat arg-11 arg-15)))) arg-12 arg-13))) (cond ((equal? sc1 1) (cons e-2 (CoreC-45AutoSearch-n--10761-4921-u--drop arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (PreludeC-45Types-u--C-43_Num_Nat (PreludeC-45Types-u--fromInteger_Num_Nat 1) arg-12) arg-13 e-3))) (else (CoreC-45AutoSearch-n--10761-4921-u--drop arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (PreludeC-45Types-u--C-43_Num_Nat (PreludeC-45Types-u--fromInteger_Num_Nat 1) arg-12) arg-13 e-3))))))))) +(define CoreC-45AutoSearch-n--10761-4922-u--concrete (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (case (vector-ref arg-12 0) ((0) (let ((e-1 (vector-ref arg-12 1))) (let ((e-4 (vector-ref arg-12 4))) (lambda (eta-0) (let ((act-24 (((e-4 arg-11) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) arg-6 (vector 10 e-1 0))) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) ((CoreC-45AutoSearch-n--10761-4922-u--concrete arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-5 0) eta-0))))))))) ((3) (let ((e-6 (vector-ref arg-12 1))) (let ((e-7 (vector-ref arg-12 2))) (let ((e-10 (vector-ref arg-12 5))) (lambda (eta-0) (let ((act-24 (CoreC-45Context-getSearchData arg-10 e-6 0 e-7 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((u--argsC-39 (CoreC-45AutoSearch-n--10761-4921-u--drop arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 0 (let ((e-0 (car e-5))) e-0) e-10))) (CoreC-45Core-traverse_ (lambda (u--parg) (lambda (eta-1) (let ((act-25 ((CoreC-45Normalise-evalClosure arg-10 arg-0 arg-11 u--parg) eta-1))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref act-25 1))) ((CoreC-45AutoSearch-n--10761-4922-u--concrete arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-11 0) eta-1))))))) (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) u--argsC-39) eta-0))))))))))) ((2) (let ((e-16 (vector-ref arg-12 5))) (lambda (eta-0) (CoreC-45Core-traverse_ (lambda (u--parg) (lambda (eta-1) (let ((act-24 ((CoreC-45Normalise-evalClosure arg-10 arg-0 arg-11 u--parg) eta-1))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) ((CoreC-45AutoSearch-n--10761-4922-u--concrete arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-5 0) eta-1))))))) (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) e-16) eta-0)))) ((1) (let ((e-19 (vector-ref arg-12 2))) (lambda (clam-0) (case (vector-ref e-19 0) ((2) (let ((e-22 (vector-ref e-19 1))) (let ((e-23 (vector-ref e-19 2))) (cond ((equal? arg-13 1) (let ((act-24 (CoreC-45Context-lookupDefExact e-22 (let ((e-0 (vector-ref arg-11 0))) e-0) clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (if (null? e-5) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 30 '() arg-8 e-22 e-23 '() arg-5) clam-0) (let ((e-1 (unbox e-5))) (case (vector-ref e-1 0) ((7) (let ((e-3 (vector-ref e-1 2))) (let ((sc6 (let ((e-0 (car e-3))) e-0))) (cond ((equal? sc6 1) (vector 1 0)) (else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 30 '() arg-8 e-22 e-23 '() arg-5) clam-0))))))(else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 30 '() arg-8 e-22 e-23 '() arg-5) clam-0)))))))))) ((equal? arg-13 0) (let ((act-24 (CoreC-45Context-lookupDefExact e-22 (let ((e-0 (vector-ref arg-11 0))) e-0) clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (if (null? e-5) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 29 '() arg-8 '() arg-5) clam-0) (let ((e-1 (unbox e-5))) (case (vector-ref e-1 0) ((7) (let ((e-3 (vector-ref e-1 2))) (let ((sc6 (let ((e-0 (car e-3))) e-0))) (cond ((equal? sc6 1) (vector 1 0)) (else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 29 '() arg-8 '() arg-5) clam-0))))))(else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 29 '() arg-8 '() arg-5) clam-0))))))))))(else (vector 1 0))))))(else (vector 1 0))))))(else (lambda (eta-0) (vector 1 0)))))) +(define CoreC-45AutoSearch-n--8753-3131-u--clearEnvType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-16 arg-18 arg-19) (cond ((equal? arg-16 0) (let ((e-4 (car arg-19))) (let ((e-5 (cdr arg-19))) (cons (vector 0 (CoreC-45TT-binderLoc e-4) (CoreC-45TT-multiplicity e-4) (vector 1 ) (vector 10 arg-18 0)) e-5))))(else (let ((e-0 (- arg-16 1))) (let ((e-9 (car arg-19))) (let ((e-10 (cdr arg-19))) (cons e-9 (CoreC-45AutoSearch-n--8753-3131-u--clearEnvType arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-0 arg-18 e-10))))))))) +(define CoreC-45AutoSearch-n--8753-3132-u--clearEnv (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (case (vector-ref arg-14 0) ((0) (let ((e-2 (vector-ref arg-14 1))) (let ((e-4 (vector-ref arg-14 3))) (CoreC-45AutoSearch-n--8753-3131-u--clearEnvType arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-4 e-2 arg-15))))(else arg-15)))) +(define CoreC-45AutoSearch-n--8753-3130-u--ambig (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (case (vector-ref arg-14 0) ((19) 1)(else 0)))) +(define CoreC-45AutoSearch-n--6569-5787-u--ambig (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (case (vector-ref arg-13 0) ((19) 1)(else 0)))) +(define CoreC-45AutoSearch-usableLocal (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (case (vector-ref arg-5 0) ((1) (let ((e-2 (vector-ref arg-5 2))) (let ((e-3 (vector-ref arg-5 3))) (lambda (clam-0) (case (vector-ref e-2 0) ((2) (let ((e-25 (vector-ref e-2 1))) (case (vector-ref e-25 0) ((3) (vector 1 1))(else (vector 1 0))))) ((0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-1 arg-0 e-5 eta-0)) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-3) '() clam-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref act-25 1))) (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45AutoSearch-usableLocal arg-0 arg-1 arg-2 arg-3 arg-4 eta-0)) e-6 '() clam-0))))))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (PreludeC-45Interfaces-all (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (lambda (eta-0) eta-0) e-6)))))))))))(else (vector 1 1))))))) ((3) (let ((e-5 (vector-ref arg-5 1))) (let ((e-6 (vector-ref arg-5 2))) (let ((e-7 (vector-ref arg-5 3))) (let ((e-8 (vector-ref arg-5 4))) (let ((e-9 (vector-ref arg-5 5))) (lambda (eta-0) (let ((act-24 (CoreC-45Context-getSearchData arg-1 arg-2 (cond ((equal? arg-3 1) 0) (else 1)) e-6 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref act-24 1))) ((CoreC-45AutoSearch-n--8314-2747-u--usableLocalArg e-5 e-7 e-8 arg-0 e-9 e-6 arg-4 arg-3 arg-2 arg-1 0 (let ((e-0 (car e-10))) e-0) (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) e-9)) eta-0)))))))))))) ((2) (let ((e-15 (vector-ref arg-5 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (eta-1) (CoreC-45Normalise-evalClosure arg-1 arg-0 e-5 eta-1)) (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) e-15) '() eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (CoreC-45Core-traverseC-39 (lambda (eta-1) (CoreC-45AutoSearch-usableLocal arg-0 arg-1 arg-2 arg-3 arg-4 eta-1)) e-6 '() eta-0))))))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (PreludeC-45Interfaces-all (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (lambda (eta-1) eta-1) e-6))))))))))))) ((0) (let ((e-17 (vector-ref arg-5 1))) (let ((e-19 (vector-ref arg-5 3))) (let ((e-20 (vector-ref arg-5 4))) (lambda (clam-1) (case (vector-ref e-19 0) ((2) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (((e-20 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) arg-4 (vector 10 e-17 0))) clam-1))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) ((CoreC-45AutoSearch-usableLocal arg-0 arg-1 arg-2 arg-3 arg-4 e-6) clam-1))))))))))(else (vector 1 1)))))))) ((9) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1)))))) +(define CoreC-45AutoSearch-successful (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (if (null? arg-3) (vector 1 '()) (let ((e-2 (car arg-3))) (let ((e-3 (cdr arg-3))) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-branch arg-1 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref act-25 1))) (CoreC-45Core-u--catch_Catchable_Core_Error (lambda (eta-0) (let ((act-26 (e-2 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-4 (vector-ref act-26 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (let ((act-27 (unbox arg-2))) (vector 1 act-27)))) (case (vector-ref act-27 0) ((0) (let ((e-4 (vector-ref act-27 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref act-27 1))) (let ((act-28 (let ((act-28 (unbox arg-1))) (vector 1 act-28)))) (case (vector-ref act-28 0) ((0) (let ((e-4 (vector-ref act-28 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref act-28 1))) (let ((act-29 (let ((act-29 (set-box! arg-2 e-5))) (vector 1 act-29)))) (case (vector-ref act-29 0) ((0) (let ((e-4 (vector-ref act-29 1))) (vector 0 e-4))) (else (let ((act-30 (let ((act-30 (set-box! arg-1 e-6))) (vector 1 act-30)))) (case (vector-ref act-30 0) ((0) (let ((e-4 (vector-ref act-30 1))) (vector 0 e-4))) (else (let ((act-31 (CoreC-45AutoSearch-successful arg-0 arg-1 arg-2 e-3 eta-0))) (case (vector-ref act-31 0) ((0) (let ((e-4 (vector-ref act-31 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref act-31 1))) (vector 1 (cons (vector 1 (cons e-7 (cons e-9 e-8))) e-12))))))))))))))))))))))))) (lambda (u--err) (lambda (eta-0) (let ((act-26 (let ((act-26 (set-box! arg-2 e-5))) (vector 1 act-26)))) (case (vector-ref act-26 0) ((0) (let ((e-4 (vector-ref act-26 1))) (vector 0 e-4))) (else (let ((act-27 (let ((act-27 (set-box! arg-1 e-6))) (vector 1 act-27)))) (case (vector-ref act-27 0) ((0) (let ((e-4 (vector-ref act-27 1))) (vector 0 e-4))) (else (let ((act-28 (CoreC-45AutoSearch-successful arg-0 arg-1 arg-2 e-3 eta-0))) (case (vector-ref act-28 0) ((0) (let ((e-4 (vector-ref act-28 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref act-28 1))) (vector 1 (cons (vector 0 u--err) e-9)))))))))))))) ext-0)))))))))))))) +(define CoreC-45AutoSearch-searchType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 ext-0) (case (vector-ref arg-12 0) ((3) (let ((e-1 (vector-ref arg-12 1))) (let ((e-2 (vector-ref arg-12 2))) (let ((e-3 (vector-ref arg-12 3))) (let ((e-4 (vector-ref arg-12 4))) (case (vector-ref e-3 0) ((2) (let ((e-6 (vector-ref e-3 1))) (let ((e-7 (vector-ref e-3 2))) (let ((e-8 (vector-ref e-3 3))) (let ((e-9 (vector-ref e-3 4))) (let ((act-24 (CoreC-45AutoSearch-searchType (cons e-2 arg-0) arg-1 arg-2 arg-3 arg-4 arg-5 '() arg-7 arg-8 arg-9 arg-10 (cons e-3 arg-11) e-4 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 3 e-1 e-2 (vector 0 e-6 e-7 e-8 e-9) e-5))))))))))) ((1) (let ((act-24 (CoreC-45AutoSearch-searchType (cons e-2 arg-0) arg-1 arg-2 arg-3 arg-4 arg-5 '() arg-7 arg-8 arg-9 arg-10 (cons e-3 arg-11) e-4 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 3 e-1 e-2 e-3 e-5)))))))(else (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45AutoSearch-abandonIfCycle arg-0 arg-1 arg-11 arg-12 arg-6 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-6 (vector-ref act-25 1))) (vector 0 e-6))) (else (let ((u--tryingC-39 (cons arg-12 arg-6))) (let ((act-26 ((CoreC-45Normalise-nf arg-1 arg-0 e-5 arg-11 arg-12) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-7 (vector-ref act-26 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-26 1))) (case (vector-ref e-7 0) ((3) (let ((e-12 (vector-ref e-7 1))) (let ((e-11 (vector-ref e-7 2))) (let ((e-10 (vector-ref e-7 3))) (let ((e-9 (vector-ref e-7 4))) (let ((e-8 (vector-ref e-7 5))) (let ((u--nty (vector 3 e-12 e-11 e-10 e-9 e-8))) (let ((sc5 (PreludeC-45Types-u--C-61C-61_Eq_Nat e-9 (PreludeC-45TypesC-45List-length e-8)))) (cond ((equal? sc5 1) (let ((act-27 (CoreC-45Normalise-logNF arg-0 arg-1 "auto" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Next target") arg-11 u--nty ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-13 (vector-ref act-27 1))) (vector 0 e-13))) (else (let ((act-28 (CoreC-45Context-getSearchData arg-1 arg-3 arg-5 e-11 ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-14 (vector-ref act-28 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref act-28 1))) (let ((act-29 (cond ((equal? arg-9 1) (CoreC-45AutoSearch-checkConcreteDets arg-0 arg-1 arg-2 arg-3 arg-5 arg-11 arg-10 (vector 3 e-12 e-11 e-10 e-9 e-8) ext-0)) (else (vector 1 0))))) (case (vector-ref act-29 0) ((0) (let ((e-15 (vector-ref act-29 1))) (vector 0 e-15))) (else (let ((sc9 (cond ((equal? arg-5 1) arg-9) (else 0)))) (cond ((equal? sc9 1) ((CoreC-45AutoSearch-n--6569-5788-u--tryGroups arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 '() u--nty (let ((e-16 (cdr e-14))) e-16)) ext-0)) (else (CoreC-45UnifyState-handleUnify arg-1 arg-2 (CoreC-45AutoSearch-searchLocalVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 u--tryingC-39 arg-7 arg-8 arg-10 arg-11 u--nty) (lambda (u--e) (let ((sc10 (CoreC-45AutoSearch-n--6569-5787-u--ambig arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 u--e))) (cond ((equal? sc10 1) (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error u--e eta-0))) (else (CoreC-45AutoSearch-n--6569-5788-u--tryGroups arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 '() u--nty (let ((e-16 (cdr e-14))) e-16)))))) ext-0))))))))))))))) (else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 29 '() arg-3 '() arg-10) ext-0)))))))))))(else (let ((act-27 (CoreC-45Normalise-logNF arg-0 arg-1 "auto" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Next target: ") arg-11 e-7 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-8 (vector-ref act-27 1))) (vector 0 e-8))) (else ((CoreC-45AutoSearch-searchLocalVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 u--tryingC-39 arg-7 arg-8 arg-10 arg-11 e-7) ext-0)))))))))))))))))))))))))(else (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45AutoSearch-abandonIfCycle arg-0 arg-1 arg-11 arg-12 arg-6 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((u--tryingC-39 (cons arg-12 arg-6))) (let ((act-26 ((CoreC-45Normalise-nf arg-1 arg-0 e-5 arg-11 arg-12) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (case (vector-ref e-7 0) ((3) (let ((e-1 (vector-ref e-7 1))) (let ((e-2 (vector-ref e-7 2))) (let ((e-3 (vector-ref e-7 3))) (let ((e-4 (vector-ref e-7 4))) (let ((e-8 (vector-ref e-7 5))) (let ((u--nty (vector 3 e-1 e-2 e-3 e-4 e-8))) (let ((sc4 (PreludeC-45Types-u--C-61C-61_Eq_Nat e-4 (PreludeC-45TypesC-45List-length e-8)))) (cond ((equal? sc4 1) (let ((act-27 (CoreC-45Normalise-logNF arg-0 arg-1 "auto" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Next target") arg-11 u--nty ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-9 (vector-ref act-27 1))) (vector 0 e-9))) (else (let ((act-28 (CoreC-45Context-getSearchData arg-1 arg-3 arg-5 e-2 ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-10 (vector-ref act-28 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-28 1))) (let ((act-29 (cond ((equal? arg-9 1) (CoreC-45AutoSearch-checkConcreteDets arg-0 arg-1 arg-2 arg-3 arg-5 arg-11 arg-10 (vector 3 e-1 e-2 e-3 e-4 e-8) ext-0)) (else (vector 1 0))))) (case (vector-ref act-29 0) ((0) (let ((e-11 (vector-ref act-29 1))) (vector 0 e-11))) (else (let ((sc8 (cond ((equal? arg-5 1) arg-9) (else 0)))) (cond ((equal? sc8 1) ((CoreC-45AutoSearch-n--6569-5788-u--tryGroups arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 '() u--nty (let ((e-12 (cdr e-10))) e-12)) ext-0)) (else (CoreC-45UnifyState-handleUnify arg-1 arg-2 (CoreC-45AutoSearch-searchLocalVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 u--tryingC-39 arg-7 arg-8 arg-10 arg-11 u--nty) (lambda (u--e) (let ((sc9 (CoreC-45AutoSearch-n--6569-5787-u--ambig arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 u--e))) (cond ((equal? sc9 1) (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error u--e eta-0))) (else (CoreC-45AutoSearch-n--6569-5788-u--tryGroups arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 '() u--nty (let ((e-12 (cdr e-10))) e-12)))))) ext-0))))))))))))))) (else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 29 '() arg-3 '() arg-10) ext-0)))))))))))(else (let ((act-27 (CoreC-45Normalise-logNF arg-0 arg-1 "auto" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Next target: ") arg-11 e-7 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else ((CoreC-45AutoSearch-searchLocalVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 u--tryingC-39 arg-7 arg-8 arg-10 arg-11 e-7) ext-0)))))))))))))))))))))) +(define CoreC-45AutoSearch-searchNames (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 ext-0) (if (null? arg-12) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 29 '() arg-3 '() arg-9) ext-0) (let ((e-2 (car arg-12))) (let ((e-3 (cdr arg-12))) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (CoreC-45AutoSearch-n--10362-4593-u--visible arg-0 e-2 e-3 arg-13 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (let ((e-0 (vector-ref e-5 0))) e-0) (cons (let ((e-31 (vector-ref e-5 2))) e-31) (let ((e-30 (vector-ref e-5 3))) e-30)) eta-0 eta-1))) (cons e-2 e-3) '() ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref act-25 1))) (let ((u--visns (DataC-45List-mapMaybe (lambda (eta-0) eta-0) e-6))) (let ((u--elabs (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (lambda (eta-1) (CoreC-45AutoSearch-searchName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-13 eta-0 eta-1))) u--visns))) (cond ((equal? arg-11 1) (CoreC-45AutoSearch-anyOne arg-0 arg-1 arg-2 arg-3 arg-10 arg-9 u--elabs ext-0)) (else (CoreC-45AutoSearch-exactlyOne arg-0 arg-1 arg-2 arg-3 arg-10 arg-9 arg-13 u--elabs ext-0)))))))))))))))))) +(define CoreC-45AutoSearch-searchName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 ext-0) (let ((e-2 (car arg-12))) (let ((e-3 (cdr arg-12))) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (let ((act-25 (CoreC-45Context-getNS arg-1 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Context-getNestedNS arg-1 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-4 (vector-ref act-26 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref act-26 1))) (let ((sc4 (CoreC-45Context-visibleInAny (cons e-6 e-7) (let ((e-1 (vector-ref e-3 1))) e-1) (let ((e-9 (vector-ref e-3 9))) e-9)))) (cond ((equal? sc4 1) (vector 1 0)) (else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 29 '() arg-3 '() arg-9) ext-0)))))))))))))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((act-26 (let ((sc3 (PreludeC-45Types-elem (cons (lambda (arg-13) (lambda (arg-14) (CoreC-45Context-u--C-61C-61_Eq_DefFlag arg-13 arg-14))) (lambda (arg-13) (lambda (arg-14) (CoreC-45Context-u--C-47C-61_Eq_DefFlag arg-13 arg-14)))) (vector 5 ) (let ((e-11 (vector-ref e-3 11))) e-11)))) (cond ((equal? sc3 1) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 29 '() arg-3 '() arg-9) ext-0)) (else (vector 1 0)))))) (case (vector-ref act-26 0) ((0) (let ((e-4 (vector-ref act-26 1))) (vector 0 e-4))) (else (let ((u--ty (let ((e-25 (vector-ref e-3 2))) e-25))) (let ((u--namety (let ((e-17 (vector-ref e-3 17))) (case (vector-ref e-17 0) ((5) (let ((e-28 (vector-ref e-17 1))) (let ((e-27 (vector-ref e-17 2))) (vector 2 e-28 e-27)))) ((6) (let ((e-33 (vector-ref e-17 1))) (let ((e-32 (vector-ref e-17 2))) (vector 3 e-33 e-32))))(else (vector 1 )))))) (let ((act-27 ((CoreC-45Normalise-nf arg-1 arg-0 e-5 arg-10 (CoreC-45TT-embed u--ty)) ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-4 (vector-ref act-27 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref act-27 1))) (let ((act-28 (CoreC-45Normalise-logNF arg-0 arg-1 "auto" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Searching Name " (CoreC-45Name-u--show_Show_Name e-2))) arg-10 e-8 ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-4 (vector-ref act-28 1))) (vector 0 e-4))) (else (let ((act-29 (CoreC-45AutoSearch-mkArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-10 e-8 ext-0))) (case (vector-ref act-29 0) ((0) (let ((e-4 (vector-ref act-29 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref act-29 1))) (let ((e-11 (car e-10))) (let ((e-4 (cdr e-10))) (let ((act-30 ((((CoreC-45Unify-unify (cons (lambda (u--vars) (lambda (arg-6180) (lambda (arg-6183) (lambda (arg-6186) (lambda (arg-6187) (lambda (arg-6188) (lambda (arg-6190) (lambda (arg-6193) (CoreC-45Unify-u--unifyD_Unify_NF u--vars arg-6180 arg-6183 arg-6186 arg-6187 arg-6188 arg-6190 arg-6193))))))))) (lambda (u--vars) (lambda (arg-6195) (lambda (arg-6198) (lambda (arg-6201) (lambda (arg-6202) (lambda (arg-6203) (lambda (arg-6205) (lambda (arg-6206) (CoreC-45Unify-u--unifyWithLazyD_Unify_NF u--vars arg-6195 arg-6198 arg-6201 arg-6202 arg-6203 arg-6205 arg-6206)))))))))) arg-0 arg-1 arg-2 (CoreC-45Unify-inTerm) arg-3 arg-10) arg-11) e-4) ext-0))) (case (vector-ref act-30 0) ((0) (let ((e-12 (vector-ref act-30 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref act-30 1))) (let ((e-0 (vector-ref e-12 0))) (if (null? e-0) (let ((act-31 (CoreC-45AutoSearch-isPairNF arg-1 arg-10 e-8 e-5 ext-0))) (case (vector-ref act-31 0) ((0) (let ((e-15 (vector-ref act-31 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref act-31 1))) (let ((u--candidate (CoreC-45TT-apply arg-3 (vector 1 arg-3 u--namety e-2) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (let ((e-17 (vector-ref eta-0 3))) e-17)) e-11)))) (let ((act-32 (CoreC-45Normalise-logTermNF arg-0 arg-1 "auto" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Candidate ") arg-10 u--candidate ext-0))) (case (vector-ref act-32 0) ((0) (let ((e-16 (vector-ref act-32 1))) (vector 0 e-16))) (else (let ((act-33 (CoreC-45Core-traverse_ (lambda (eta-0) (CoreC-45AutoSearch-searchIfHole arg-0 arg-1 arg-2 arg-3 arg-5 arg-6 e-15 arg-7 arg-8 arg-9 arg-10 eta-0)) (CoreC-45AutoSearch-impLast e-11) ext-0))) (case (vector-ref act-33 0) ((0) (let ((e-17 (vector-ref act-33 1))) (vector 0 e-17))) (else (vector 1 u--candidate)))))))))))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 29 '() arg-3 '() arg-9) ext-0)))))))))))))))))))))))))))))))))))) +(define CoreC-45AutoSearch-searchLocalWith (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 ext-0) (let ((e-2 (car arg-11))) (let ((e-3 (cdr arg-11))) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Normalise-nf arg-1 arg-0 e-5 arg-10 e-3) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref act-25 1))) ((CoreC-45AutoSearch-n--8753-3134-u--findPos arg-0 e-2 e-3 arg-12 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-2 (lambda (eta-0) eta-0) e-6 arg-12) ext-0))))))))))))) (define CoreC-45AutoSearch-searchLocalVars (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((u--elabs (PreludeC-45Types-u--map_Functor_List (lambda (u--t) (lambda (eta-0) (CoreC-45AutoSearch-searchLocalWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 u--t arg-11 eta-0))) (CoreC-45AutoSearch-getUsableEnv arg-0 arg-3 arg-4 (CoreC-45TTC-45SizeOf-zero) arg-10)))) (lambda (eta-0) (CoreC-45AutoSearch-exactlyOne arg-0 arg-1 arg-2 arg-3 arg-10 arg-9 arg-11 u--elabs eta-0))))) -(define CoreC-45AutoSearch-searchIfHole (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 29 '() arg-3 '() arg-9) eta-0)))(else (let ((e-0 (- arg-7 1))) (let ((u--hole (let ((sc0 arg-11)) (let ((e-1 (vector-ref sc0 1))) e-1)))) (let ((u--rig (let ((sc0 arg-11)) (let ((e-2 (vector-ref sc0 2))) e-2)))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact (vector 9 u--hole) (let ((sc1 e-5)) (let ((e-29 (vector-ref sc1 1))) e-29))) eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((_-0 (vector 1 e-1))) (CoreC-45AutoSearch-case--caseC-32blockC-32inC-32searchIfHole-969 arg-0 e-0 arg-11 arg-10 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 u--hole u--rig e-5 e-1 _-0 (let ((sc3 e-1)) (let ((e-17 (vector-ref sc3 18))) e-17)) eta-0)))) (else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 29 '() arg-3 '() arg-9) eta-0))))))))))))))))))))))) -(define CoreC-45AutoSearch-mkArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (let ((e-9 (vector-ref sc1 4))) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (CoreC-45Context-clearDefs e-5 ext-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc3 1))) (let ((act-26 (CoreC-45UnifyState-genName arg-1 arg-2 "sa" ext-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-11 (vector-ref sc4 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc4 1))) (let ((act-27 (CoreC-45Normalise-u--quote_Quote_NF arg-1 arg-0 e-10 arg-5 e-9 ext-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-12 (vector-ref sc5 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc5 1))) (let ((u--argRig (AlgebraC-45ZeroOneOmega-rigMult arg-4 e-7))) (let ((act-28 ((CoreC-45UnifyState-newMeta arg-0 arg-1 arg-2 e-6 u--argRig arg-5 e-11 e-12 (vector 7 (CoreC-45Env-length arg-5) (CoreC-45Context-holeInit 1)) 1) ext-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-13 (vector-ref sc6 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc6 1))) (let ((sc7 e-13)) (let ((e-15 (car sc7))) (let ((e-14 (cdr sc7))) (let ((act-29 (CoreC-45Unify-setInvertible arg-1 arg-3 (vector 9 e-15) ext-0))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-16 (vector-ref sc8 1))) (vector 0 e-16))) (else (let ((act-30 (let ((act-30 (((e-4 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) arg-5 e-14)) ext-0))) (let ((sc9 act-30)) (case (vector-ref sc9 0) ((0) (let ((e-17 (vector-ref sc9 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc9 1))) (CoreC-45AutoSearch-mkArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-17 ext-0)))))))) (let ((sc9 act-30)) (case (vector-ref sc9 0) ((0) (let ((e-17 (vector-ref sc9 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc9 1))) (let ((sc10 e-17)) (let ((e-19 (car sc10))) (let ((e-18 (cdr sc10))) (vector 1 (cons (cons (vector 0 e-15 u--argRig e-8 e-14 e-12) e-19) e-18))))))))))))))))))))))))))))))))))))))))))))))))(else (vector 1 (cons '() arg-6))))))))(else (vector 1 (cons '() arg-6))))))) -(define CoreC-45AutoSearch-isPairNF (lambda (arg-1 arg-2 arg-3 arg-4 ext-0) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((3) (let ((e-2 (vector-ref sc0 2))) (CoreC-45Context-isPairType arg-1 e-2 ext-0))) ((0) (let ((e-7 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 3))) (let ((e-10 (vector-ref sc0 4))) (let ((sc1 e-9)) (case (vector-ref sc1 0) ((2) (let ((act-24 (((e-10 arg-4) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) arg-2 (vector 10 e-7 1))) ext-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (CoreC-45AutoSearch-isPairNF arg-1 arg-2 e-5 arg-4 ext-0)))))))(else (vector 1 1))))))))(else (vector 1 1)))))) -(define CoreC-45AutoSearch-impLast (lambda (arg-1) (PreludeC-45TypesC-45List-C-43C-43 (DataC-45List-filter (lambda (eta-0) (let ((sc0 (CoreC-45AutoSearch-n--9877-850-u--impl arg-1 eta-0))) (cond ((equal? sc0 0) 1) (else 0)))) arg-1) (DataC-45List-filter (lambda (eta-0) (CoreC-45AutoSearch-n--9877-850-u--impl arg-1 eta-0)) arg-1)))) -(define CoreC-45AutoSearch-getUsableEnv (lambda (arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-1)) (if (null? sc0) (let ((sc1 arg-5)) '()) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 arg-5)) (let ((e-8 (car sc1))) (let ((e-9 (cdr sc1))) (let ((u--rest (CoreC-45AutoSearch-getUsableEnv e-3 arg-2 arg-3 (CoreC-45TTC-45SizeOf-sucR arg-4) e-9))) (CoreC-45AutoSearch-case--getUsableEnv-1930 e-2 e-3 e-9 e-8 arg-4 arg-3 arg-2 u--rest (PreludeC-45Basics-C-124C-124 (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega (CoreC-45TT-multiplicity e-8) (AlgebraC-45ZeroOneOmega-u--top_Top_ZeroOneOmega)) (lambda () (AlgebraC-45Semiring-isErased (cons (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-6) (lambda (arg-7) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-6 arg-7))) (lambda (arg-6) (lambda (arg-7) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-6 arg-7))))) arg-3)))))))))))))) -(define CoreC-45AutoSearch-exactlyOne (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((sc0 arg-7)) (if (null? sc0) (let ((act-24 (CoreC-45AutoSearch-successful arg-0 arg-1 arg-2 arg-7 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((CoreC-45AutoSearch-case--exactlyOne-1752 arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 (DataC-45Either-rights e-5)) ext-0)))))) (let ((e-1 (car sc0))) (let ((e-2 (cdr sc0))) (let ((sc1 e-2)) (if (null? sc1) (CoreC-45Core-u--catch_Catchable_Core_Error e-1 (lambda (u--err) (lambda (clam-1) (let ((sc2 u--err)) (case (vector-ref sc2 0) ((29) (CoreC-45Core-u--throw_Catchable_Core_Error u--err clam-1))(else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 29 '() arg-3 '() arg-5) clam-1)))))) ext-0) (let ((act-24 (CoreC-45AutoSearch-successful arg-0 arg-1 arg-2 arg-7 ext-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc2 1))) ((CoreC-45AutoSearch-case--exactlyOne-1752 arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 (DataC-45Either-rights e-5)) ext-0)))))))))))))) -(define CoreC-45AutoSearch-concreteDets (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (if (null? sc0) (lambda (eta-0) (vector 1 (vector 0 ))) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (CoreC-45AutoSearch-case--concreteDets-4650 arg-0 e-2 e-3 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (let ((sc1 (PreludeC-45Types-elem (cons (lambda (arg-10) (lambda (arg-11) (PreludeC-45Types-u--C-61C-61_Eq_Nat arg-10 arg-11))) (lambda (arg-10) (lambda (arg-11) (PreludeC-45Types-u--C-47C-61_Eq_Nat arg-10 arg-11)))) arg-7 arg-8))) (cond ((equal? sc1 0) 1) (else 0)))))))))) -(define CoreC-45AutoSearch-checkConcreteDets (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((3) (let ((e-2 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 5))) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Context-isPairType arg-1 e-2 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (cond ((equal? sc3 0) (let ((sc4 e-5)) (if (null? sc4) (let ((act-26 (CoreC-45Context-getSearchData arg-1 arg-3 arg-4 e-2 ext-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc5 1))) ((CoreC-45AutoSearch-concreteDets arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 0 (let ((sc6 e-8)) (let ((e-0 (car sc6))) e-0)) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) ext-0)))))) (let ((e-9 (car sc4))) (let ((e-8 (cdr sc4))) (let ((sc5 e-9)) (if (null? sc5) (let ((act-26 (CoreC-45Context-getSearchData arg-1 arg-3 arg-4 e-2 ext-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) ((CoreC-45AutoSearch-concreteDets arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 0 (let ((sc7 e-10)) (let ((e-0 (car sc7))) e-0)) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) ext-0)))))) (let ((e-10 (cdr sc5))) (let ((sc6 e-8)) (if (null? sc6) (let ((act-26 (CoreC-45Context-getSearchData arg-1 arg-3 arg-4 e-2 ext-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-12 (vector-ref sc7 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc7 1))) ((CoreC-45AutoSearch-concreteDets arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 0 (let ((sc8 e-12)) (let ((e-0 (car sc8))) e-0)) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) ext-0)))))) (let ((e-13 (car sc6))) (let ((e-12 (cdr sc6))) (let ((sc7 e-13)) (if (null? sc7) (let ((act-26 (CoreC-45Context-getSearchData arg-1 arg-3 arg-4 e-2 ext-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-14 (vector-ref sc8 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc8 1))) ((CoreC-45AutoSearch-concreteDets arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 0 (let ((sc9 e-14)) (let ((e-0 (car sc9))) e-0)) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) ext-0)))))) (let ((e-14 (cdr sc7))) (let ((sc8 e-12)) (if (null? sc8) (let ((act-26 ((CoreC-45Normalise-evalClosure arg-1 arg-0 e-6 e-10) ext-0))) (let ((sc9 act-26)) (case (vector-ref sc9 0) ((0) (let ((e-16 (vector-ref sc9 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc9 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-1 arg-0 e-6 e-14) ext-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-17 (vector-ref sc10 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc10 1))) (let ((act-28 (CoreC-45AutoSearch-checkConcreteDets arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-16 ext-0))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-18 (vector-ref sc11 1))) (vector 0 e-18))) (else (CoreC-45AutoSearch-checkConcreteDets arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-17 ext-0))))))))))))))) (let ((act-26 (CoreC-45Context-getSearchData arg-1 arg-3 arg-4 e-2 ext-0))) (let ((sc9 act-26)) (case (vector-ref sc9 0) ((0) (let ((e-16 (vector-ref sc9 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc9 1))) ((CoreC-45AutoSearch-concreteDets arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 0 (let ((sc10 e-16)) (let ((e-0 (car sc10))) e-0)) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) ext-0))))))))))))))))))))))) (else (let ((act-26 (CoreC-45Context-getSearchData arg-1 arg-3 arg-4 e-2 ext-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-27 (let ((act-27 (CoreC-45Context-toFullNames arg-1 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) e-2 ext-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc5 1))) (CoreC-45ContextC-45Log-log arg-1 "auto" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Determining arguments for " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-9) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_Nat u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_Nat u--d u--x)))) (let ((sc6 e-8)) (let ((e-0 (car sc6))) e-0))))))) ext-0)))))))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (vector 0 e-9))) (else ((CoreC-45AutoSearch-concreteDets arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 0 (let ((sc6 e-8)) (let ((e-0 (car sc6))) e-0)) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) ext-0))))))))))))))))))))))))))(else (vector 1 (vector 0 ))))))) -(define CoreC-45AutoSearch-anyOne (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((sc0 arg-6)) (if (null? sc0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 29 '() arg-3 '() arg-5) ext-0) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-3)) (if (null? sc1) (CoreC-45Core-u--catch_Catchable_Core_Error e-2 (lambda (u--err) (lambda (clam-1) (let ((sc2 u--err)) (case (vector-ref sc2 0) ((29) (CoreC-45Core-u--throw_Catchable_Core_Error u--err clam-1))(else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 29 '() arg-3 '() arg-5) clam-1)))))) ext-0) (CoreC-45UnifyState-tryUnify arg-1 arg-2 e-2 (lambda (eta-0) (CoreC-45AutoSearch-anyOne arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3 eta-0)) ext-0))))))))) -(define CoreC-45AutoSearch-abandonIfCycle (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((sc0 arg-4)) (if (null? sc0) (vector 1 (vector 0 )) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Normalise-u--convert_Convert_Term arg-1 arg-0 e-5 arg-2 arg-3 e-2 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 "Cycle in search") ext-0)) (else (CoreC-45AutoSearch-abandonIfCycle arg-0 arg-1 arg-2 arg-3 e-3 ext-0)))))))))))))))))))) +(define CoreC-45AutoSearch-searchIfHole (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (cond ((equal? arg-7 0) (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 29 '() arg-3 '() arg-9) eta-0)))(else (let ((e-0 (- arg-7 1))) (let ((u--hole (let ((e-1 (vector-ref arg-11 0))) e-1))) (let ((u--rig (let ((e-2 (vector-ref arg-11 1))) e-2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact (vector 9 u--hole) (let ((e-30 (vector-ref e-5 0))) e-30)) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (if (null? e-6) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 29 '() arg-3 '() arg-9) eta-0) (let ((e-1 (unbox e-6))) (let ((_-0 (box e-1))) (CoreC-45AutoSearch-case--caseC-32blockC-32inC-32searchIfHole-1592 arg-0 e-0 arg-11 arg-10 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 u--hole u--rig e-5 e-1 _-0 (let ((e-17 (vector-ref e-1 17))) e-17) eta-0)))))))))))))))))))) +(define CoreC-45AutoSearch-mkArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (case (vector-ref arg-6 0) ((0) (let ((e-3 (vector-ref arg-6 3))) (let ((e-4 (vector-ref arg-6 4))) (case (vector-ref e-3 0) ((2) (let ((e-6 (vector-ref e-3 1))) (let ((e-7 (vector-ref e-3 2))) (let ((e-8 (vector-ref e-3 3))) (let ((e-9 (vector-ref e-3 4))) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-clearDefs e-5 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-10 (vector-ref act-25 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-25 1))) (let ((act-26 (CoreC-45UnifyState-genName arg-1 arg-2 "sa" ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-11 (vector-ref act-26 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-26 1))) (let ((act-27 (CoreC-45Normalise-u--quote_Quote_NF arg-1 arg-0 e-10 arg-5 e-9 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-12 (vector-ref act-27 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref act-27 1))) (let ((u--argRig (AlgebraC-45ZeroOneOmega-rigMult arg-4 e-7))) (let ((act-28 ((CoreC-45UnifyState-newMeta arg-0 arg-1 arg-2 e-6 u--argRig arg-5 e-11 e-12 (vector 7 (CoreC-45Env-length arg-5) (CoreC-45Context-holeInit 0)) 0) ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-13 (vector-ref act-28 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref act-28 1))) (let ((e-15 (car e-13))) (let ((e-14 (cdr e-13))) (let ((act-29 (CoreC-45Unify-setInvertible arg-1 arg-3 (vector 9 e-15) ext-0))) (case (vector-ref act-29 0) ((0) (let ((e-16 (vector-ref act-29 1))) (vector 0 e-16))) (else (let ((act-30 (let ((act-30 (((e-4 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) arg-5 e-14)) ext-0))) (case (vector-ref act-30 0) ((0) (let ((e-17 (vector-ref act-30 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref act-30 1))) (CoreC-45AutoSearch-mkArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-17 ext-0))))))) (case (vector-ref act-30 0) ((0) (let ((e-17 (vector-ref act-30 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref act-30 1))) (let ((e-19 (car e-17))) (let ((e-18 (cdr e-17))) (vector 1 (cons (cons (vector e-15 u--argRig e-8 e-14 e-12) e-19) e-18)))))))))))))))))))))))))))))))))))))))(else (vector 1 (cons '() arg-6)))))))(else (vector 1 (cons '() arg-6)))))) +(define CoreC-45AutoSearch-isPairNF (lambda (arg-1 arg-2 arg-3 arg-4 ext-0) (case (vector-ref arg-3 0) ((3) (let ((e-2 (vector-ref arg-3 2))) (CoreC-45Context-isPairType arg-1 e-2 ext-0))) ((0) (let ((e-7 (vector-ref arg-3 1))) (let ((e-9 (vector-ref arg-3 3))) (let ((e-10 (vector-ref arg-3 4))) (case (vector-ref e-9 0) ((2) (let ((act-24 (((e-10 arg-4) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) arg-2 (vector 10 e-7 0))) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (CoreC-45AutoSearch-isPairNF arg-1 arg-2 e-5 arg-4 ext-0))))))(else (vector 1 0)))))))(else (vector 1 0))))) +(define CoreC-45AutoSearch-impLast (lambda (arg-1) (PreludeC-45TypesC-45List-C-43C-43 (DataC-45List-filter (lambda (eta-0) (let ((sc0 (CoreC-45AutoSearch-n--6920-1470-u--impl arg-1 eta-0))) (cond ((equal? sc0 1) 0) (else 1)))) arg-1) (DataC-45List-filter (lambda (eta-0) (CoreC-45AutoSearch-n--6920-1470-u--impl arg-1 eta-0)) arg-1)))) +(define CoreC-45AutoSearch-getUsableEnv (lambda (arg-1 arg-2 arg-3 arg-4 arg-5) (if (null? arg-1) '() (let ((e-2 (car arg-1))) (let ((e-3 (cdr arg-1))) (let ((e-8 (car arg-5))) (let ((e-9 (cdr arg-5))) (let ((u--rest (CoreC-45AutoSearch-getUsableEnv e-3 arg-2 arg-3 (CoreC-45TTC-45SizeOf-sucR arg-4) e-9))) (let ((sc2 (let ((sc3 (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega (CoreC-45TT-multiplicity e-8) (AlgebraC-45ZeroOneOmega-u--top_Top_ZeroOneOmega)))) (cond ((equal? sc3 1) 1) (else (AlgebraC-45Semiring-isErased (cons (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-6) (lambda (arg-7) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-6 arg-7))) (lambda (arg-6) (lambda (arg-7) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-6 arg-7))))) arg-3)))))) (cond ((equal? sc2 1) (CoreC-45AutoSearch-case--caseC-32blockC-32inC-32getUsableEnv-2596 e-2 e-3 e-9 e-8 arg-4 arg-3 arg-2 u--rest (CoreC-45TT-weakenVar arg-4 0))) (else u--rest))))))))))) +(define CoreC-45AutoSearch-exactlyOne (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (if (null? arg-7) (let ((act-24 (CoreC-45AutoSearch-successful arg-0 arg-1 arg-2 arg-7 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) ((CoreC-45AutoSearch-case--exactlyOne-2388 arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 (DataC-45Either-rights e-5)) ext-0))))) (let ((e-1 (car arg-7))) (let ((e-2 (cdr arg-7))) (if (null? e-2) (CoreC-45Core-u--catch_Catchable_Core_Error e-1 (lambda (lcase-0) (lambda (clam-1) (case (vector-ref lcase-0 0) ((29) (CoreC-45Core-u--throw_Catchable_Core_Error lcase-0 clam-1))(else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 29 '() arg-3 '() arg-5) clam-1))))) ext-0) (let ((act-24 (CoreC-45AutoSearch-successful arg-0 arg-1 arg-2 arg-7 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref act-24 1))) ((CoreC-45AutoSearch-case--exactlyOne-2388 arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 (DataC-45Either-rights e-5)) ext-0))))))))))) +(define CoreC-45AutoSearch-concreteDets (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (if (null? arg-9) (lambda (eta-0) (vector 1 0)) (let ((e-2 (car arg-9))) (let ((e-3 (cdr arg-9))) (let ((sc1 (PreludeC-45Types-elem (cons (lambda (arg-10) (lambda (arg-11) (PreludeC-45Types-u--C-61C-61_Eq_Nat arg-10 arg-11))) (lambda (arg-10) (lambda (arg-11) (PreludeC-45Types-u--C-47C-61_Eq_Nat arg-10 arg-11)))) arg-7 arg-8))) (cond ((equal? sc1 1) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Normalise-evalClosure arg-1 arg-0 e-5 e-2) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 ((CoreC-45AutoSearch-n--10761-4922-u--concrete arg-0 e-2 e-3 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-6 1) eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-4 (vector-ref act-26 1))) (vector 0 e-4))) (else ((CoreC-45AutoSearch-concreteDets arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (PreludeC-45Types-u--C-43_Num_Nat (PreludeC-45Types-u--fromInteger_Num_Nat 1) arg-7) arg-8 e-3) eta-0)))))))))))))) (else (CoreC-45AutoSearch-concreteDets arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (PreludeC-45Types-u--C-43_Num_Nat (PreludeC-45Types-u--fromInteger_Num_Nat 1) arg-7) arg-8 e-3))))))))) +(define CoreC-45AutoSearch-checkConcreteDets (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (case (vector-ref arg-7 0) ((3) (let ((e-2 (vector-ref arg-7 2))) (let ((e-5 (vector-ref arg-7 5))) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-isPairType arg-1 e-2 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-7 (vector-ref act-25 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-25 1))) (cond ((equal? e-7 1) (if (null? e-5) (let ((act-26 (CoreC-45Context-getSearchData arg-1 arg-3 arg-4 e-2 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-8 (vector-ref act-26 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref act-26 1))) ((CoreC-45AutoSearch-concreteDets arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 0 (let ((e-0 (car e-8))) e-0) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) ext-0))))) (let ((e-9 (car e-5))) (let ((e-8 (cdr e-5))) (if (null? e-9) (let ((act-26 (CoreC-45Context-getSearchData arg-1 arg-3 arg-4 e-2 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-10 (vector-ref act-26 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-26 1))) ((CoreC-45AutoSearch-concreteDets arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 0 (let ((e-0 (car e-10))) e-0) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) ext-0))))) (let ((e-10 (cdr e-9))) (if (null? e-8) (let ((act-26 (CoreC-45Context-getSearchData arg-1 arg-3 arg-4 e-2 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-12 (vector-ref act-26 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref act-26 1))) ((CoreC-45AutoSearch-concreteDets arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 0 (let ((e-0 (car e-12))) e-0) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) ext-0))))) (let ((e-13 (car e-8))) (let ((e-12 (cdr e-8))) (if (null? e-13) (let ((act-26 (CoreC-45Context-getSearchData arg-1 arg-3 arg-4 e-2 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-14 (vector-ref act-26 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref act-26 1))) ((CoreC-45AutoSearch-concreteDets arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 0 (let ((e-0 (car e-14))) e-0) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) ext-0))))) (let ((e-14 (cdr e-13))) (if (null? e-12) (let ((act-26 ((CoreC-45Normalise-evalClosure arg-1 arg-0 e-6 e-10) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-16 (vector-ref act-26 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref act-26 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-1 arg-0 e-6 e-14) ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-17 (vector-ref act-27 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref act-27 1))) (let ((act-28 (CoreC-45AutoSearch-checkConcreteDets arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-16 ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-18 (vector-ref act-28 1))) (vector 0 e-18))) (else (CoreC-45AutoSearch-checkConcreteDets arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-17 ext-0)))))))))))) (let ((act-26 (CoreC-45Context-getSearchData arg-1 arg-3 arg-4 e-2 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-16 (vector-ref act-26 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref act-26 1))) ((CoreC-45AutoSearch-concreteDets arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 0 (let ((e-0 (car e-16))) e-0) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) ext-0))))))))))))))))) (else (let ((act-26 (CoreC-45Context-getSearchData arg-1 arg-3 arg-4 e-2 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-8 (vector-ref act-26 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref act-26 1))) (let ((act-27 (let ((act-27 (CoreC-45Context-toFullNames arg-1 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-0))))) e-2 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-9 (vector-ref act-27 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref act-27 1))) (CoreC-45ContextC-45Log-log arg-1 "auto" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Determining arguments for " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-9) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_Nat u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_Nat u--d u--x)))) (let ((e-0 (car e-8))) e-0)))))) ext-0))))))) (case (vector-ref act-27 0) ((0) (let ((e-9 (vector-ref act-27 1))) (vector 0 e-9))) (else ((CoreC-45AutoSearch-concreteDets arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 0 (let ((e-0 (car e-8))) e-0) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) ext-0)))))))))))))))))))))(else (vector 1 0))))) +(define CoreC-45AutoSearch-anyOne (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (if (null? arg-6) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 29 '() arg-3 '() arg-5) ext-0) (let ((e-2 (car arg-6))) (let ((e-3 (cdr arg-6))) (if (null? e-3) (CoreC-45Core-u--catch_Catchable_Core_Error e-2 (lambda (lcase-0) (lambda (clam-1) (case (vector-ref lcase-0 0) ((29) (CoreC-45Core-u--throw_Catchable_Core_Error lcase-0 clam-1))(else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 29 '() arg-3 '() arg-5) clam-1))))) ext-0) (CoreC-45UnifyState-tryUnify arg-1 arg-2 e-2 (lambda (eta-0) (CoreC-45AutoSearch-anyOne arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3 eta-0)) ext-0))))))) +(define CoreC-45AutoSearch-abandonIfCycle (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (if (null? arg-4) (vector 1 0) (let ((e-2 (car arg-4))) (let ((e-3 (cdr arg-4))) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-u--convert_Convert_Term arg-1 arg-0 e-5 arg-2 arg-3 e-2 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref act-25 1))) (cond ((equal? e-6 1) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 "Cycle in search") ext-0)) (else (CoreC-45AutoSearch-abandonIfCycle arg-0 arg-1 arg-2 arg-3 e-3 ext-0)))))))))))))))) (define CoreC-45InitPrimitives-addPrimitives (lambda (arg-0 ext-0) (CoreC-45Core-traverse_ (lambda (eta-0) (lambda (eta-1) (CoreC-45InitPrimitives-addPrim arg-0 eta-0 eta-1))) (CoreC-45Primitives-allPrimitives) ext-0))) -(define CoreC-45InitPrimitives-addPrim (lambda (arg-0 arg-1 ext-0) (let ((act-24 (CoreC-45Context-addBuiltin (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) e-0)) arg-0 (CoreC-45Primitives-opName (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 2))) e-1))) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 3))) e-2)) (let ((sc0 arg-1)) (let ((e-3 (vector-ref sc0 4))) e-3)) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 2))) e-1)) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (CompilerC-45CompileExpr-compileDef arg-0 (CoreC-45Primitives-opName (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 2))) e-1))) ext-0))))))) -(define CompilerC-45CompileExpr-case--caseC-32blockC-32inC-32mkForgetDef-7210 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((u--ncdef (CoreC-45CompileExpr-forgetDef e-2))) (lambda (eta-0) (CoreC-45Context-setNamedCompiled arg-1 arg-0 u--ncdef eta-0))))))))) -(define CompilerC-45CompileExpr-case--toCDef-6846 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((sc0 arg-6)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (vector 1 (vector 0 e-2 (vector 6 arg-1 (CoreC-45FC-emptyFC) arg-2 (DataC-45Vect-u--map_Functor_C-40VectC-32C-36nC-41 (lambda (eta-0) (CompilerC-45CompileExpr-n--14563-6794-u--toArgExp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 eta-0)) (CompilerC-45CompileExpr-n--14563-6795-u--getVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3)))))))))) -(define CompilerC-45CompileExpr-case--toCDef-6705 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((sc0 arg-5)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((act-24 (CoreC-45Context-getFullName arg-4 arg-3 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-2 (vector 7 (CoreC-45FC-emptyFC) e-5 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CompilerC-45CompileExpr-n--14563-6655-u--toArgExp arg-0 arg-1 arg-2 arg-3 arg-4 eta-0)) (CompilerC-45CompileExpr-n--14563-6656-u--getVars arg-0 arg-1 arg-2 arg-3 arg-4 e-3))))))))))))))) -(define CompilerC-45CompileExpr-case--caseC-32blockC-32inC-32toCDef-6595 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 ext-0) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (vector 1 (vector 0 arg-1 arg-11))) (else (vector 1 (vector 0 arg-9 (CoreC-45CompileExpr-shrinkCExp arg-10 arg-11)))))))) -(define CompilerC-45CompileExpr-case--toCDef-6561 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 ext-0) (let ((sc0 arg-9)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((act-24 ((CompilerC-45CompileExpr-toCExpTree arg-1 arg-8 arg-7 arg-4) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (CompilerC-45CompileExpr-case--caseC-32blockC-32inC-32toCDef-6595 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2 e-3 e-5 (DataC-45List-isNil arg-5) ext-0))))))))))) -(define CompilerC-45CompileExpr-case--caseC-32blockC-32inC-32getFieldArgs-5646 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (if (null? sc0) (lambda (eta-0) (vector 1 '())) (let ((e-2 (cdr sc0))) (let ((sc1 e-2)) (if (null? sc1) (lambda (eta-0) (vector 1 '())) (let ((e-4 (car sc1))) (let ((e-5 (cdr sc1))) (lambda (clam-0) (let ((sc2 e-5)) (if (null? sc2) (vector 1 '()) (let ((e-7 (car sc2))) (let ((e-8 (cdr sc2))) (let ((sc3 e-8)) (if (null? sc3) (let ((act-24 (CompilerC-45CompileExpr-getFieldArgs arg-2 arg-1 e-7 clam-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (CompilerC-45CompileExpr-getPArgs arg-2 arg-1 e-4 clam-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc5 1))) (let ((sc6 e-9)) (let ((e-10 (car sc6))) (let ((e-3 (cdr sc6))) (vector 1 (cons (cons e-10 e-3) e-6))))))))))))))) (vector 1 '()))))))))))))))))) -(define CompilerC-45CompileExpr-case--caseC-32blockC-32inC-32getPArgs-5461 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 ext-0) (let ((sc0 arg-9)) (if (null? sc0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-7 "Badly formed struct type") ext-0) (let ((e-1 (car sc0))) (let ((e-2 (cdr sc0))) (let ((sc1 e-2)) (if (null? sc1) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-7 "Badly formed struct type") ext-0) (let ((e-4 (car sc1))) (let ((act-24 ((CoreC-45Normalise-evalClosure arg-2 '() arg-1 e-4) ext-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((8) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((10) (let ((e-8 (vector-ref sc4 1))) (vector 1 (cons e-8 e-1))))(else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc e-6) "Unknown field name") ext-0))))))(else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc e-6) "Unknown field name") ext-0)))))))))))))))))) -(define CompilerC-45CompileExpr-case--mkArgList-5388 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (cons (cons (vector 2 "arg" arg-1) e-2) (cons (vector 2 "arg" arg-1) e-3))))))) -(define CompilerC-45CompileExpr-case--toCExpTreeC-39-5217 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 ext-0) (let ((sc0 arg-14)) (cond ((equal? sc0 0) (vector 1 (DataC-45Maybe-fromMaybe (lambda () (vector 13 arg-11)) arg-13))) (else (vector 1 (vector 11 arg-11 (vector 0 arg-7 arg-11) arg-12 arg-13))))))) -(define CompilerC-45CompileExpr-case--caseC-32blockC-32inC-32toCExpTreeC-39-5032 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 ext-0) (let ((sc0 arg-18)) (cond ((equal? sc0 0) (vector 1 (DataC-45Maybe-fromMaybe (lambda () (vector 13 arg-13)) arg-17))) (else (let ((act-24 (CompilerC-45CompileExpr-builtinNatTree arg-12 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (CompilerC-45CompileExpr-boolHackTree (e-5 (vector 10 arg-13 (vector 0 arg-2 arg-13) arg-16 arg-17)))))))))))))) -(define CompilerC-45CompileExpr-case--getNewTypeC-44mkSubst-4662 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (cond ((equal? sc0 0) (cons arg-14 (CompilerC-45CompileExpr-n--12010-4636-u--mkSubst arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (PreludeC-45Types-u--C-43_Num_Nat (+ 1 0) arg-15) arg-14 arg-13 arg-12))) (else (cons (vector 13 arg-8) (CompilerC-45CompileExpr-n--12010-4636-u--mkSubst arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (PreludeC-45Types-u--C-43_Num_Nat (+ 1 0) arg-15) arg-14 arg-13 arg-12))))))) -(define CompilerC-45CompileExpr-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32conCases-4409 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 ext-0) (let ((sc0 arg-17)) (cond ((equal? sc0 0) (let ((act-24 (CompilerC-45CompileExpr-dconFlag arg-7 arg-12 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (cons (vector 0 arg-12 e-5 (vector 1 arg-3) arg-13 (CoreC-45CompileExpr-shrinkCExp arg-14 arg-15)) arg-16)))))))) (else (let ((act-24 (CompilerC-45CompileExpr-dconFlag arg-7 arg-12 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (cons (vector 0 arg-12 e-5 (vector 0 ) arg-13 (CoreC-45CompileExpr-shrinkCExp arg-14 arg-15)) arg-16)))))))))))) -(define CompilerC-45CompileExpr-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32conCases-4361 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 ext-0) (let ((sc0 arg-13)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((act-24 ((CompilerC-45CompileExpr-toCExpTree (PreludeC-45TypesC-45List-C-43C-43 arg-0 arg-1) arg-7 arg-6 arg-2) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((CompilerC-45CompileExpr-conCases arg-1 arg-7 arg-6 arg-5) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (CompilerC-45CompileExpr-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32conCases-4409 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-2 e-3 e-5 e-6 (CompilerC-45CompileExpr-n--12004-4244-u--dcon arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (let ((sc3 arg-9)) (let ((e-17 (vector-ref sc3 18))) e-17))) ext-0)))))))))))))))) -(define CompilerC-45CompileExpr-case--caseC-32blockC-32inC-32conCases-4295 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((5) (let ((e-2 (vector-ref sc0 3))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (CompilerC-45CompileExpr-conCases arg-1 arg-7 arg-6 arg-5))(else (lambda (eta-0) (let ((act-24 (CoreC-45Context-getFullName arg-7 arg-4 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (CompilerC-45CompileExpr-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32conCases-4361 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-5 (CompilerC-45CompileExpr-mkDropSubst 0 (let ((sc2 arg-9)) (let ((e-3 (vector-ref sc2 4))) e-3)) arg-1 arg-0) eta-0))))))))))))(else (lambda (eta-0) (let ((act-24 (CoreC-45Context-getFullName arg-7 arg-4 eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (CompilerC-45CompileExpr-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32conCases-4361 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-5 (CompilerC-45CompileExpr-mkDropSubst 0 (let ((sc1 arg-9)) (let ((e-3 (vector-ref sc1 4))) e-3)) arg-1 arg-0) eta-0)))))))))))) -(define CompilerC-45CompileExpr-case--toCExp-4065 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((sc0 arg-5)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (CompilerC-45CompileExpr-toCExp arg-0 arg-4 (lambda (vars-4121) (arg-3 'erased)) arg-2 eta-0 eta-1))) e-3 '() ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (unbox arg-4))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((CompilerC-45CompileExpr-toCExpTm arg-0 arg-4 (lambda (vars-4099) (arg-3 'erased)) arg-2 e-2) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (CompilerC-45CompileExpr-numArgs e-6 e-2 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((2) (let ((e-0 (vector-ref sc5 1))) (let ((u--res (CompilerC-45CompileExpr-expandToArity arg-0 e-0 e-7 e-5))) (vector 1 ((arg-3 'erased) u--res))))) ((0) (let ((e-1 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((u--res (CompilerC-45CompileExpr-applyNewType arg-0 e-1 e-4 e-7 e-5))) (vector 1 ((arg-3 'erased) u--res)))))) (else (let ((e-9 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((u--res (CompilerC-45CompileExpr-eraseConArgs arg-0 e-9 e-4 e-7 e-5))) (vector 1 ((arg-3 'erased) u--res))))))))))))))))))))))))))))))))) -(define CompilerC-45CompileExpr-case--toCExpTm-3990 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (vector 1 (vector 12 arg-3 arg-2))) (else (vector 1 (vector 5 arg-3 (vector 1 (CoreC-45TT-u--show_Show_Constant arg-2)) (vector 1 ) (vector 0 ) '()))))))) -(define CompilerC-45CompileExpr-case--toCExpTm-3604 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 ext-0) (let ((sc0 arg-8)) (cond ((equal? sc0 0) (vector 1 (vector 12 arg-4 (vector 0 arg-2)))) (else (let ((act-24 (CoreC-45Context-getFullName arg-7 arg-3 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CompilerC-45CompileExpr-dconFlag arg-7 e-5 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 5 arg-4 e-5 e-6 (vector 1 arg-2) '()))))))))))))))))) -(define CompilerC-45CompileExpr-case--builtinNatTreeC-39-3304 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (let ((u--defb (PreludeC-45Types-maybe (lambda () (vector 14 arg-4 "Nat case not covered")) (lambda () (lambda (eta-0) eta-0)) arg-1))) (let ((u--scase (PreludeC-45Types-maybe (lambda () u--defb) (lambda () (lambda (eta-0) eta-0)) (CompilerC-45CompileExpr-getSBranch arg-5 arg-3 arg-2)))) (let ((u--zcase (PreludeC-45Types-maybe (lambda () u--defb) (lambda () (lambda (eta-0) eta-0)) (CompilerC-45CompileExpr-getZBranch arg-6 arg-2)))) (vector 11 arg-4 arg-3 (cons (cons (vector 5 0) u--zcase) '()) (vector 1 u--scase)))))) (else (vector 10 arg-4 arg-3 arg-2 arg-1)))))) -(define CompilerC-45CompileExpr-case--magicC-44go-2771 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (CompilerC-45CompileExpr-n--10477-2707-u--go arg-1 arg-2 arg-4 arg-5)) (else (let ((e-2 (vector-ref sc0 1))) e-2)))))) -(define CompilerC-45CompileExpr-case--caseC-32blockC-32inC-32mkDropSubst-2636 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (cons arg-5 (vector 1 arg-6))) (else (cons (cons arg-0 arg-5) (vector 2 arg-6))))))) -(define CompilerC-45CompileExpr-case--mkDropSubst-2615 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (CompilerC-45CompileExpr-case--caseC-32blockC-32inC-32mkDropSubst-2636 arg-0 arg-1 arg-2 arg-3 arg-4 e-2 e-3 (PreludeC-45Types-elem (cons (lambda (arg-6) (lambda (arg-7) (PreludeC-45Types-u--C-61C-61_Eq_Nat arg-6 arg-7))) (lambda (arg-6) (lambda (arg-7) (PreludeC-45Types-u--C-47C-61_Eq_Nat arg-6 arg-7)))) arg-4 arg-3))))))) -(define CompilerC-45CompileExpr-case--eraseConArgs-2559 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (CompilerC-45CompileExpr-dropPos arg-3 arg-5)) (else arg-5))))) -(define CompilerC-45CompileExpr-case--dropFrom-2467 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (CompilerC-45CompileExpr-dropFrom arg-4 (PreludeC-45Types-u--C-43_Num_Nat (+ 1 0) arg-3) arg-2)) (else (cons arg-1 (CompilerC-45CompileExpr-dropFrom arg-4 (PreludeC-45Types-u--C-43_Num_Nat (+ 1 0) arg-3) arg-2))))))) -(define CompilerC-45CompileExpr-case--applyNewTypeC-44keep-2374 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (cond ((equal? sc0 0) arg-6) (else (CompilerC-45CompileExpr-n--10074-2352-u--keep arg-0 arg-1 arg-2 arg-3 arg-4 (PreludeC-45Types-u--C-43_Num_Nat (+ 1 0) arg-8) arg-7)))))) -(define CompilerC-45CompileExpr-case--caseC-32blockC-32inC-32mkSub-2099 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (cons arg-4 (vector 1 arg-5))) (else (cons (cons arg-0 arg-4) (vector 2 arg-5))))))) -(define CompilerC-45CompileExpr-case--mkSub-2080 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (CompilerC-45CompileExpr-case--caseC-32blockC-32inC-32mkSub-2099 arg-0 arg-1 arg-2 arg-3 e-2 e-3 (PreludeC-45Types-elem (cons (lambda (arg-5) (lambda (arg-6) (PreludeC-45Types-u--C-61C-61_Eq_Nat arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (PreludeC-45Types-u--C-47C-61_Eq_Nat arg-5 arg-6)))) arg-3 arg-2))))))) -(define CompilerC-45CompileExpr-case--caseC-32blockC-32inC-32numArgs-1875 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((5) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (lambda (clam-0) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (vector 1 (vector 1 e-1 (let ((sc2 arg-5)) (let ((e-3 (vector-ref sc2 4))) e-3))))) ((1) (let ((e-15 (vector-ref sc1 1))) (let ((sc2 e-15)) (if (null? sc2) (vector 1 (vector 2 0)) (let ((e-19 (cdr sc2))) (vector 1 (vector 0 e-1 e-19)))))))(else (vector 1 (vector 2 0))))))))) ((1) (let ((e-4 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 1 (PreludeC-45TypesC-45List-length e-4) (let ((sc1 arg-5)) (let ((e-25 (vector-ref sc1 4))) e-25))))))) ((2) (let ((e-8 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 2 e-8))))) ((3) (let ((e-9 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 2 e-9))))) ((4) (let ((e-11 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 2 e-11)))))(else (lambda (eta-0) (vector 1 (vector 2 0)))))))) -(define CompilerC-45CompileExpr-n--11238-3440-u--toBool (lambda (arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((1) (let ((e-7 (vector-ref sc1 1))) (let ((sc2 e-4)) (if (null? sc2) (PreludeC-45Interfaces-C-62C-62 (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (PreludeC-45Types-u--map_Functor_Maybe u--func arg-143))))) (lambda (u--a) (lambda (arg-577) (PreludeC-45Types-u--pure_Applicative_Maybe arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (PreludeC-45Types-u--C-60C-42C-62_Applicative_Maybe arg-578 arg-580)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe arg-876 arg-877))))) (lambda (u--a) (lambda (arg-879) (PreludeC-45Types-u--join_Monad_Maybe arg-879)))) (PreludeC-45Interfaces-guard (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (PreludeC-45Types-u--map_Functor_Maybe u--func arg-143))))) (lambda (u--a) (lambda (arg-577) (PreludeC-45Types-u--pure_Applicative_Maybe arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (PreludeC-45Types-u--C-60C-42C-62_Applicative_Maybe arg-578 arg-580)))))) (lambda (u--a) (PreludeC-45Types-u--empty_Alternative_Maybe)) (lambda (u--a) (lambda (arg-827) (lambda (arg-828) (PreludeC-45Types-u--C-60C-124C-62_Alternative_Maybe arg-827 arg-828))))) (CompilerC-45CompileExpr-isFiniteEnum e-1)) (lambda () (PreludeC-45Types-u--pure_Applicative_Maybe (cons (vector 0 e-7) e-5)))) (vector 0 )))))(else (vector 0 )))))))))(else (vector 0 )))))) -(define CompilerC-45CompileExpr-n--14563-6794-u--toArgExp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7) (vector 0 arg-7 (CoreC-45FC-emptyFC)))) -(define CompilerC-45CompileExpr-n--14563-6655-u--toArgExp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-6) (vector 0 arg-6 (CoreC-45FC-emptyFC)))) -(define CompilerC-45CompileExpr-n--12010-4636-u--mkSubst (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (if (null? sc0) '() (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (CompilerC-45CompileExpr-case--getNewTypeC-44mkSubst-4662 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-2 e-3 arg-13 arg-12 arg-11 (PreludeC-45Types-u--C-61C-61_Eq_Nat arg-11 arg-13)))))))) -(define CompilerC-45CompileExpr-n--9870-2170-u--mkLocal (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (vector 0 arg-5 arg-4))) -(define CompilerC-45CompileExpr-n--9870-2171-u--mkApp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (if (null? sc0) arg-4 (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((4) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((e-3 (vector-ref sc1 3))) (vector 4 e-1 e-2 (PreludeC-45TypesC-45List-C-43C-43 e-3 arg-5)))))) ((5) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((e-7 (vector-ref sc1 3))) (let ((e-8 (vector-ref sc1 4))) (let ((e-9 (vector-ref sc1 5))) (vector 5 e-5 e-6 e-7 e-8 (PreludeC-45TypesC-45List-C-43C-43 e-9 arg-5)))))))) ((7) (let ((e-11 (vector-ref sc1 1))) (let ((e-12 (vector-ref sc1 2))) (let ((e-13 (vector-ref sc1 3))) (vector 7 e-11 e-12 (PreludeC-45TypesC-45List-C-43C-43 e-13 arg-5))))))(else (vector 4 (CoreC-45CompileExpr-getFC arg-4) arg-4 arg-5)))))))) -(define CompilerC-45CompileExpr-n--10074-2353-u--keepArg (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (vector 2 e-1 e-2 (CompilerC-45CompileExpr-n--10074-2353-u--keepArg arg-0 arg-1 arg-2 arg-3 arg-4 e-3)))))) ((5) (let ((e-9 (vector-ref sc0 5))) (CompilerC-45CompileExpr-n--10074-2352-u--keep arg-0 arg-1 arg-2 arg-3 arg-4 0 e-9)))(else (vector 13 (CoreC-45CompileExpr-getFC arg-2))))))) -(define CompilerC-45CompileExpr-n--10074-2352-u--keep (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-6 arg-7) (let ((sc0 arg-7)) (if (null? sc0) (vector 13 (CoreC-45CompileExpr-getFC arg-2)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (CompilerC-45CompileExpr-case--applyNewTypeC-44keep-2374 arg-0 arg-1 arg-2 arg-3 arg-4 e-2 e-3 arg-6 (PreludeC-45Types-u--C-61C-61_Eq_Nat arg-6 arg-3)))))))) -(define CompilerC-45CompileExpr-n--10477-2707-u--go (lambda (arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (if (null? sc0) arg-4 (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (CompilerC-45CompileExpr-case--magicC-44go-2771 arg-1 arg-2 e-2 e-3 arg-4 (CompilerC-45CompileExpr-n--10477-2706-u--fire arg-1 arg-2 e-2 arg-4)))))))) -(define CompilerC-45CompileExpr-n--14563-6795-u--getVars (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-8) (let ((sc0 arg-8)) (if (null? sc0) '() (let ((e-3 (cdr sc0))) (cons 0 (DataC-45Vect-u--map_Functor_C-40VectC-32C-36nC-41 (lambda (eta-0) (CompilerC-45CompileExpr-weakenVar eta-0)) (CompilerC-45CompileExpr-n--14563-6795-u--getVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3)))))))) -(define CompilerC-45CompileExpr-n--14563-6656-u--getVars (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-7) (let ((sc0 arg-7)) (if (null? sc0) '() (let ((e-3 (cdr sc0))) (cons 0 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CompilerC-45CompileExpr-weakenVar eta-0)) (CompilerC-45CompileExpr-n--14563-6656-u--getVars arg-0 arg-1 arg-2 arg-3 arg-4 e-3)))))))) -(define CompilerC-45CompileExpr-n--10477-2706-u--fire (lambda (arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((5) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((e-11 (vector-ref sc1 5))) (PreludeC-45Interfaces-C-62C-62 (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (PreludeC-45Types-u--map_Functor_Maybe u--func arg-143))))) (lambda (u--a) (lambda (arg-577) (PreludeC-45Types-u--pure_Applicative_Maybe arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (PreludeC-45Types-u--C-60C-42C-62_Applicative_Maybe arg-578 arg-580)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe arg-876 arg-877))))) (lambda (u--a) (lambda (arg-879) (PreludeC-45Types-u--join_Monad_Maybe arg-879)))) (PreludeC-45Interfaces-guard (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (PreludeC-45Types-u--map_Functor_Maybe u--func arg-143))))) (lambda (u--a) (lambda (arg-577) (PreludeC-45Types-u--pure_Applicative_Maybe arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (PreludeC-45Types-u--C-60C-42C-62_Applicative_Maybe arg-578 arg-580)))))) (lambda (u--a) (PreludeC-45Types-u--empty_Alternative_Maybe)) (lambda (u--a) (lambda (arg-827) (lambda (arg-828) (PreludeC-45Types-u--C-60C-124C-62_Alternative_Maybe arg-827 arg-828))))) (CoreC-45Name-u--C-61C-61_Eq_Name e-0 e-8)) (lambda () (PreludeC-45Types-u--map_Functor_Maybe ((e-2 e-7) 'erased) (DataC-45Vect-toVect e-1 e-11))))))))(else (vector 0 )))))))) ((1) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((4) (let ((e-13 (vector-ref sc1 1))) (let ((e-14 (vector-ref sc1 2))) (let ((e-15 (vector-ref sc1 3))) (let ((sc2 e-14)) (case (vector-ref sc2 0) ((1) (let ((e-17 (vector-ref sc2 1))) (let ((e-18 (vector-ref sc2 2))) (PreludeC-45Interfaces-C-62C-62 (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (PreludeC-45Types-u--map_Functor_Maybe u--func arg-143))))) (lambda (u--a) (lambda (arg-577) (PreludeC-45Types-u--pure_Applicative_Maybe arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (PreludeC-45Types-u--C-60C-42C-62_Applicative_Maybe arg-578 arg-580)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe arg-876 arg-877))))) (lambda (u--a) (lambda (arg-879) (PreludeC-45Types-u--join_Monad_Maybe arg-879)))) (PreludeC-45Interfaces-guard (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (PreludeC-45Types-u--map_Functor_Maybe u--func arg-143))))) (lambda (u--a) (lambda (arg-577) (PreludeC-45Types-u--pure_Applicative_Maybe arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (PreludeC-45Types-u--C-60C-42C-62_Applicative_Maybe arg-578 arg-580)))))) (lambda (u--a) (PreludeC-45Types-u--empty_Alternative_Maybe)) (lambda (u--a) (lambda (arg-827) (lambda (arg-828) (PreludeC-45Types-u--C-60C-124C-62_Alternative_Maybe arg-827 arg-828))))) (CoreC-45Name-u--C-61C-61_Eq_Name e-3 e-18)) (lambda () (PreludeC-45Types-u--map_Functor_Maybe (((e-5 e-13) e-17) 'erased) (DataC-45Vect-toVect e-4 e-15)))))))(else (vector 0 ))))))))(else (vector 0 ))))))))(else (vector 0 )))))) -(define CompilerC-45CompileExpr-n--12004-4244-u--dcon (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((5) 0)(else 1))))) -(define CompilerC-45CompileExpr-n--11323-3509-u--ciFlags (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (if (null? sc0) (vector 0 ) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((9) (let ((e-4 (vector-ref sc1 1))) e-4))(else (CompilerC-45CompileExpr-n--11323-3509-u--ciFlags arg-0 arg-1 e-3)))))))))) -(define CompilerC-45CompileExpr-n--10809-3037-u--builtinMagicNat (lambda (arg-0 arg-1) (cons (vector 0 (let ((sc0 arg-1)) (let ((e-0 (car sc0))) e-0)) 0 (lambda (u--fc) (lambda (vars-3062) (lambda (lamc-0) (let ((sc0 lamc-0)) (vector 12 u--fc (vector 5 0))))))) (cons (vector 0 (let ((sc0 arg-1)) (let ((e-1 (cdr sc0))) e-1)) (+ 1 0) (lambda (u--fc) (lambda (vars-3049) (lambda (lamc-0) (let ((sc0 lamc-0)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-3)) (vector 4 u--fc (vector 1 u--fc (vector 1 "prim__add_Integer")) (cons (vector 12 u--fc (vector 5 1)) (cons e-2 '()))))))))))) '())))) -(define CompilerC-45CompileExpr-n--9970-2271-u--applyAll (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (if (null? sc0) arg-3 (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (CompilerC-45CompileExpr-n--9970-2271-u--applyAll arg-0 arg-1 arg-2 (vector 4 (CoreC-45CompileExpr-getFC arg-3) arg-3 (cons e-2 '())) e-3))))))) -(define CompilerC-45CompileExpr-n--9970-2293-u--addArg (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((4) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (vector 4 e-1 e-2 (PreludeC-45TypesC-45List-C-43C-43 e-3 (cons arg-6 '()))))))) ((5) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (let ((e-9 (vector-ref sc0 5))) (vector 5 e-5 e-6 e-7 e-8 (PreludeC-45TypesC-45List-C-43C-43 e-9 (cons arg-6 '()))))))))) ((7) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (vector 7 e-11 e-12 (PreludeC-45TypesC-45List-C-43C-43 e-13 (cons arg-6 '())))))))(else (vector 4 (CoreC-45CompileExpr-getFC arg-5) arg-5 (cons arg-6 '()))))))) -(define CompilerC-45CompileExpr-weakenVar (lambda (arg-2) (+ 1 arg-2))) -(define CompilerC-45CompileExpr-tryZBranch (lambda (arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((sc1 e-4)) (if (null? sc1) (PreludeC-45Interfaces-C-62C-62 (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (PreludeC-45Types-u--map_Functor_Maybe u--func arg-143))))) (lambda (u--a) (lambda (arg-577) (PreludeC-45Types-u--pure_Applicative_Maybe arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (PreludeC-45Types-u--C-60C-42C-62_Applicative_Maybe arg-578 arg-580)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe arg-876 arg-877))))) (lambda (u--a) (lambda (arg-879) (PreludeC-45Types-u--join_Monad_Maybe arg-879)))) (PreludeC-45Interfaces-guard (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (PreludeC-45Types-u--map_Functor_Maybe u--func arg-143))))) (lambda (u--a) (lambda (arg-577) (PreludeC-45Types-u--pure_Applicative_Maybe arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (PreludeC-45Types-u--C-60C-42C-62_Applicative_Maybe arg-578 arg-580)))))) (lambda (u--a) (PreludeC-45Types-u--empty_Alternative_Maybe)) (lambda (u--a) (lambda (arg-827) (lambda (arg-828) (PreludeC-45Types-u--C-60C-124C-62_Alternative_Maybe arg-827 arg-828))))) (DataC-45Maybe-isJust (LibrariesC-45DataC-45NameMap-lookup e-1 arg-1))) (lambda () (PreludeC-45Types-u--pure_Applicative_Maybe e-5))) (vector 0 )))))))(else (vector 0 )))))) -(define CompilerC-45CompileExpr-trySBranch (lambda (arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((sc1 e-4)) (if (null? sc1) (vector 0 ) (let ((e-7 (car sc1))) (let ((e-8 (cdr sc1))) (let ((sc2 e-8)) (if (null? sc2) (PreludeC-45Interfaces-C-62C-62 (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (PreludeC-45Types-u--map_Functor_Maybe u--func arg-143))))) (lambda (u--a) (lambda (arg-577) (PreludeC-45Types-u--pure_Applicative_Maybe arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (PreludeC-45Types-u--C-60C-42C-62_Applicative_Maybe arg-578 arg-580)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe arg-876 arg-877))))) (lambda (u--a) (lambda (arg-879) (PreludeC-45Types-u--join_Monad_Maybe arg-879)))) (PreludeC-45Interfaces-guard (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (PreludeC-45Types-u--map_Functor_Maybe u--func arg-143))))) (lambda (u--a) (lambda (arg-577) (PreludeC-45Types-u--pure_Applicative_Maybe arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (PreludeC-45Types-u--C-60C-42C-62_Applicative_Maybe arg-578 arg-580)))))) (lambda (u--a) (PreludeC-45Types-u--empty_Alternative_Maybe)) (lambda (u--a) (lambda (arg-827) (lambda (arg-828) (PreludeC-45Types-u--C-60C-124C-62_Alternative_Maybe arg-827 arg-828))))) (DataC-45Maybe-isJust (LibrariesC-45DataC-45NameMap-lookup e-1 arg-1))) (let ((u--fc (CoreC-45CompileExpr-getFC arg-2))) (lambda () (PreludeC-45Types-u--pure_Applicative_Maybe (vector 3 u--fc e-7 0 (CompilerC-45CompileExpr-natMinus u--fc u--fc (cons arg-2 (cons (vector 12 u--fc (vector 5 1)) '()))) e-5))))) (vector 0 )))))))))))(else (vector 0 )))))) -(define CompilerC-45CompileExpr-toCExpTreeC-39 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (let ((sc1 e-5)) (if (null? sc1) (lambda (eta-0) (vector 1 (vector 14 (CoreC-45TT-getLoc e-4) (PreludeC-45TypesC-45String-C-43C-43 "Missing case tree in " (CoreC-45Name-u--show_Show_Name arg-2))))) (let ((e-13 (car sc1))) (let ((e-14 (cdr sc1))) (let ((sc2 e-13)) (case (vector-ref sc2 0) ((0) (let ((e-17 (vector-ref sc2 1))) (let ((e-18 (vector-ref sc2 2))) (let ((e-19 (vector-ref sc2 3))) (let ((e-20 (vector-ref sc2 4))) (let ((u--fc (CoreC-45TT-getLoc e-4))) (lambda (eta-0) (let ((act-24 ((CompilerC-45CompileExpr-getNewType arg-0 arg-1 u--fc (vector 0 e-2 u--fc) arg-2 e-5) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc3 1))) (let ((u--alts (cons (vector 0 e-17 e-18 e-19 e-20) e-14))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((0) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((CompilerC-45CompileExpr-conCases arg-0 arg-1 arg-2 u--alts) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc6 1))) (let ((act-27 ((CompilerC-45CompileExpr-getDef arg-0 arg-1 arg-2 u--alts) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc7 1))) (let ((_-0 (vector 0 ))) (CompilerC-45CompileExpr-case--caseC-32blockC-32inC-32toCExpTreeC-39-5032 arg-0 e-1 e-2 e-14 e-17 e-18 e-19 e-20 u--alts e-4 arg-2 arg-1 u--fc _-0 e-7 e-8 e-9 (DataC-45List-isNil e-8) eta-0)))))))))))))))))) (else (let ((e-3 (vector-ref sc4 1))) (vector 1 e-3)))))))))))))))))) ((1) (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 "Unexpected DelayCase") eta-0))) ((2) (let ((e-26 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((u--fc (CoreC-45TT-getLoc e-4))) (lambda (eta-0) (let ((act-24 ((CompilerC-45CompileExpr-constCases arg-0 arg-1 arg-2 e-5) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 ((CompilerC-45CompileExpr-getDef arg-0 arg-1 arg-2 e-5) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc4 1))) (let ((u--alts (cons (vector 2 e-26 e-27) e-14))) (CompilerC-45CompileExpr-case--toCExpTreeC-39-5217 arg-0 e-1 e-14 e-26 e-27 u--alts e-4 e-2 arg-2 arg-1 u--fc e-6 e-7 (DataC-45List-isNil e-6) eta-0))))))))))))))))) (else (let ((e-29 (vector-ref sc2 1))) (CompilerC-45CompileExpr-toCExpTree arg-0 arg-1 arg-2 e-29)))))))))))))) ((1) (let ((e-8 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (CompilerC-45CompileExpr-builtinMagic arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (CompilerC-45CompileExpr-toCExp arg-0 arg-1 (lambda (vars-5335) (e-5 'erased)) arg-2 e-8 eta-0))))))))) ((2) (let ((e-10 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 14 (CoreC-45FC-emptyFC) e-10))))) (else (lambda (eta-0) (vector 1 (vector 14 (CoreC-45FC-emptyFC) (PreludeC-45TypesC-45String-C-43C-43 "Impossible case encountered in " (CoreC-45Name-u--show_Show_Name arg-2)))))))))) -(define CompilerC-45CompileExpr-toCExpTree (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (let ((sc1 e-5)) (if (null? sc1) (CompilerC-45CompileExpr-toCExpTreeC-39 arg-0 arg-1 arg-2 arg-3) (let ((e-7 (car sc1))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((1) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((e-12 (vector-ref sc2 3))) (let ((u--fc (CoreC-45TT-getLoc e-4))) (lambda (eta-0) (let ((act-24 ((CompilerC-45CompileExpr-toCExpTree (cons e-10 (cons e-11 arg-0)) arg-1 arg-2 e-12) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 (vector 3 u--fc e-11 0 (vector 8 u--fc (vector 0 ) (vector 0 e-2 (CoreC-45TT-getLoc e-4))) (vector 3 u--fc e-10 0 (vector 13 u--fc) e-6))))))))))))))(else (CompilerC-45CompileExpr-toCExpTreeC-39 arg-0 arg-1 arg-2 arg-3)))))))))))(else (CompilerC-45CompileExpr-toCExpTreeC-39 arg-0 arg-1 arg-2 arg-3)))))) -(define CompilerC-45CompileExpr-toCExpTm (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 3))) (lambda (eta-0) (vector 1 (vector 0 e-4 e-2)))))) ((1) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (let ((sc1 e-8)) (case (vector-ref sc1 0) ((2) (let ((e-50 (vector-ref sc1 1))) (let ((e-51 (vector-ref sc1 2))) (lambda (eta-0) (CompilerC-45CompileExpr-case--toCExpTm-3604 arg-0 e-51 e-50 e-9 e-7 arg-3 arg-2 arg-1 (PreludeC-45Basics-C-38C-38 (PreludeC-45Types-u--C-61C-61_Eq_Nat e-51 0) (lambda () (CompilerC-45CompileExpr-isFiniteEnum e-9))) eta-0))))) ((3) (lambda (eta-0) (vector 1 (vector 5 e-7 e-9 (vector 1 ) (vector 0 ) '()))))(else (lambda (eta-0) (let ((act-24 (CoreC-45Context-getFullName arg-1 e-9 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 4 e-7 (vector 1 e-7 e-5) '()))))))))))))))) ((2) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-14 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-1) (lambda (eta-2) (CompilerC-45CompileExpr-toCExp arg-0 arg-1 (lambda (vars-3714) (arg-2 'erased)) arg-3 eta-1 eta-2))) e-14 '() eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 4 e-11 (vector 1 e-11 e-12) e-5)))))))))))) ((3) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (lambda (clam-0) (let ((sc1 e-18)) (case (vector-ref sc1 0) ((0) (let ((act-24 (CompilerC-45CompileExpr-toCExp (cons e-17 arg-0) arg-1 (lambda (vars-3740) (arg-2 'erased)) arg-3 e-19 clam-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (vector 2 e-16 e-17 e-5)))))))) ((1) (let ((e-61 (vector-ref sc1 2))) (let ((e-62 (vector-ref sc1 3))) (let ((act-24 (CompilerC-45CompileExpr-toCExp (cons e-17 arg-0) arg-1 (lambda (vars-3768) (arg-2 'erased)) arg-3 e-19 clam-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (CompilerC-45CompileExpr-toCExp arg-0 arg-1 (lambda (vars-3779) (arg-2 'erased)) arg-3 e-62 clam-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 (AlgebraC-45Semiring-branchZero (cons (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-5) (lambda (arg-6) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-5 arg-6))))) (lambda () (CoreC-45CompileExpr-shrinkCExp (vector 1 (vector 0 )) e-5)) (lambda () (vector 3 e-16 e-17 0 e-6 e-5)) e-61))))))))))))))) ((2) (let ((e-68 (vector-ref sc1 4))) (let ((act-24 (CompilerC-45CompileExpr-toCExp arg-0 arg-1 (lambda (vars-3821) (arg-2 'erased)) arg-3 e-68 clam-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (CompilerC-45CompileExpr-toCExp (cons e-17 arg-0) arg-1 (lambda (vars-3832) (arg-2 'erased)) arg-3 e-19 clam-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 (vector 5 e-16 (vector 1 "->") (vector 1 ) (vector 0 ) (cons e-5 (cons (vector 2 e-16 e-17 e-6) '()))))))))))))))))(else (vector 1 (vector 13 e-16))))))))))) ((4) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (CompilerC-45CompileExpr-toCExp arg-0 arg-1 (lambda (vars-3873) (arg-2 'erased)) arg-3 e-22 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CompilerC-45CompileExpr-toCExp arg-0 arg-1 (lambda (vars-3884) (arg-2 'erased)) arg-3 e-23 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 4 e-21 e-5 (cons e-6 '())))))))))))))))))) ((5) (let ((e-28 (vector-ref sc0 4))) (CompilerC-45CompileExpr-toCExpTm arg-0 arg-1 (lambda (vars-3914) (arg-2 'erased)) arg-3 e-28))) ((6) (let ((e-30 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 13 e-30))))) ((7) (let ((e-34 (vector-ref sc0 1))) (let ((e-35 (vector-ref sc0 2))) (let ((e-37 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (CompilerC-45CompileExpr-toCExp arg-0 arg-1 (lambda (vars-3942) (arg-2 'erased)) arg-3 e-37 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 9 e-34 e-35 e-5)))))))))))) ((8) (let ((e-39 (vector-ref sc0 1))) (let ((e-40 (vector-ref sc0 2))) (let ((e-41 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (CompilerC-45CompileExpr-toCExp arg-0 arg-1 (lambda (vars-3962) (arg-2 'erased)) arg-3 e-41 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 8 e-39 e-40 e-5)))))))))))) ((9) (let ((e-43 (vector-ref sc0 1))) (let ((e-44 (vector-ref sc0 2))) (let ((u--t (CoreC-45TT-constTag e-44))) (lambda (eta-0) (CompilerC-45CompileExpr-case--toCExpTm-3990 arg-0 arg-1 e-44 e-43 arg-3 arg-2 u--t (PreludeC-45EqOrd-u--C-61C-61_Eq_Int u--t 0) eta-0)))))) ((10) (let ((e-46 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 13 e-46))))) (else (let ((e-49 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 5 e-49 (vector 1 "Type") (vector 1 ) (vector 0 ) '()))))))))) -(define CompilerC-45CompileExpr-toCExp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (CompilerC-45CompileExpr-case--toCExp-4065 arg-0 arg-4 arg-3 arg-2 arg-1 (CoreC-45TT-getFnArgs arg-4) ext-0))) -(define CompilerC-45CompileExpr-toCDef (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 (CoreC-45Context-getFullName arg-0 arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 3 (vector 14 (CoreC-45FC-emptyFC) (PreludeC-45TypesC-45String-C-43C-43 "Encountered undefined name " (CoreC-45Name-u--show_Show_Name e-5)))))))))))) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (CompilerC-45CompileExpr-case--toCDef-6561 e-0 e-1 e-2 e-4 e-3 arg-3 arg-2 arg-1 arg-0 (CompilerC-45CompileExpr-mkSub 0 e-1 arg-3) eta-0)))))))) ((2) (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (CompilerC-45CompileExpr-case--toCDef-6705 arg-3 e-5 arg-2 arg-1 arg-0 (CompilerC-45CompileExpr-mkArgList 0 e-5) eta-0)))) ((3) (let ((e-7 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 ((CoreC-45Normalise-nf arg-0 '() e-5 '() arg-2) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc2 1))) (CompilerC-45CompileExpr-getCFTypes arg-0 '() e-8 eta-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc2 1))) (let ((sc3 e-8)) (let ((e-2 (car sc3))) (let ((e-3 (cdr sc3))) (vector 1 (vector 2 e-7 e-2 e-3)))))))))))))))))) ((4) (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (lambda (eta-0) (CompilerC-45CompileExpr-case--toCDef-6846 arg-3 e-8 e-9 arg-2 arg-1 arg-0 (CompilerC-45CompileExpr-mkArgList 0 e-8) eta-0))))) ((5) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (let ((u--nt (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (PreludeC-45Types-u--map_Functor_Maybe eta-2 eta-3))))) (lambda (eta-0) (Builtin-snd eta-0)) e-12))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CompilerC-45CompileExpr-numArgs e-5 (vector 1 (vector 1 ) (vector 2 e-10 e-11) arg-1) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((u--arityC-39 (let ((sc3 e-6)) (case (vector-ref sc3 0) ((0) (let ((e-0 (vector-ref sc3 1))) e-0)) ((1) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (PreludeC-45Types-minus e-2 (PreludeC-45TypesC-45List-length e-3))))) (else (let ((e-4 (vector-ref sc3 1))) e-4)))))) (vector 1 (vector 1 (vector 1 e-10) u--arityC-39 u--nt))))))))))))))))))) ((6) (let ((e-14 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 1 (vector 0 ) e-14 (vector 0 )))))) ((7) (lambda (eta-0) (let ((act-24 (CoreC-45Context-getFullName arg-0 arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 3 (vector 14 (CoreC-45FC-emptyFC) (PreludeC-45TypesC-45String-C-43C-43 "Encountered unimplemented hole " (CoreC-45Name-u--show_Show_Name e-5)))))))))))) ((9) (lambda (eta-0) (let ((act-24 (CoreC-45Context-getFullName arg-0 arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 3 (vector 14 (CoreC-45FC-emptyFC) (PreludeC-45TypesC-45String-C-43C-43 "Encountered constrained hole " (CoreC-45Name-u--show_Show_Name e-5)))))))))))) ((8) (lambda (eta-0) (let ((act-24 (CoreC-45Context-getFullName arg-0 arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 3 (vector 14 (CoreC-45FC-emptyFC) (PreludeC-45TypesC-45String-C-43C-43 "Encountered incomplete proof search " (CoreC-45Name-u--show_Show_Name e-5))))))))))))(else (lambda (eta-0) (let ((act-24 (CoreC-45Context-getFullName arg-0 arg-1 eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (vector 3 (vector 14 (CoreC-45FC-emptyFC) (PreludeC-45TypesC-45String-C-43C-43 "Encountered uncompilable name " (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (u--x) (CoreC-45Name-u--show_Show_Name u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Name-u--showPrec_Show_Name u--d u--x)))) (cons (lambda (u--x) (CoreC-45Context-u--show_Show_Def u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Context-u--showPrec_Show_Def u--d u--x))))) (cons e-5 arg-4))))))))))))))))) -(define CompilerC-45CompileExpr-numArgs (lambda (arg-1 arg-2 ext-0) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((3) (let ((e-5 (vector-ref sc1 2))) (vector 1 (vector 2 e-5))))(else (let ((act-24 ((CoreC-45Context-lookupCtxtExact e-3 (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-4 (vector-ref sc2 1))) (let ((_-0 (vector 1 e-4))) ((CompilerC-45CompileExpr-case--caseC-32blockC-32inC-32numArgs-1875 e-1 e-2 e-3 arg-1 e-4 _-0 (let ((sc3 e-4)) (let ((e-17 (vector-ref sc3 18))) e-17))) ext-0)))) (else (vector 1 (vector 2 0)))))))))))))))))(else (vector 1 (vector 2 0))))))) -(define CompilerC-45CompileExpr-nfToCFType (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((8) (let ((e-37 (vector-ref sc0 2))) (let ((sc1 e-37)) (case (vector-ref sc1 0) ((14) (lambda (eta-0) (vector 1 (vector 1 )))) ((20) (lambda (eta-0) (vector 1 (vector 2 )))) ((21) (lambda (eta-0) (vector 1 (vector 3 )))) ((22) (lambda (eta-0) (vector 1 (vector 4 )))) ((23) (lambda (eta-0) (vector 1 (vector 5 ))))(else (let ((sc1 arg-2)) (cond ((equal? sc1 1) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((8) (let ((e-31 (vector-ref sc2 2))) (let ((sc3 e-31)) (case (vector-ref sc3 0) ((24) (lambda (eta-0) (vector 1 (vector 6 ))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((8) (let ((e-28 (vector-ref sc3 2))) (let ((sc4 e-28)) (case (vector-ref sc4 0) ((26) (lambda (eta-0) (vector 1 (vector 7 )))) ((25) (lambda (eta-0) (vector 1 (vector 8 )))) ((27) (lambda (eta-0) (vector 1 (vector 12 ))))(else (let ((sc4 arg-2)) (cond ((equal? sc4 1) (let ((sc5 arg-3)) (case (vector-ref sc5 0) ((0) (let ((e-12 (vector-ref sc5 1))) (let ((e-14 (vector-ref sc5 3))) (let ((e-15 (vector-ref sc5 4))) (lambda (clam-0) (let ((sc6 e-14)) (case (vector-ref sc6 0) ((2) (let ((e-20 (vector-ref sc6 4))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-12 1 e-20) clam-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc8 1))) (let ((act-26 (((e-15 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 e-12 1))) clam-0))) (let ((sc9 act-26)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc9 1))) (let ((act-27 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-12 1 e-7) clam-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc10 1))) (vector 1 (vector 13 e-6 e-8))))))))))))))))))))))))(else (let ((sc6 arg-3)) (case (vector-ref sc6 0) ((3) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((e-5 (vector-ref sc6 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-6 (vector-ref sc7 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc7 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) e-2 clam-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-0))) (let ((sc9 act-26)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) (let ((sc10 e-8)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-0))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-10 (vector-ref sc11 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc11 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-0))) (let ((sc12 act-28)) (case (vector-ref sc12 0) ((0) (let ((e-11 (vector-ref sc12 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc12 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc10 1))) (let ((e-9 (vector-ref sc10 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-1) (let ((sc11 lamc-0)) (let ((e-16 (car sc11))) (let ((e-11 (cdr sc11))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-1))) (let ((sc12 act-27)) (case (vector-ref sc12 0) ((0) (let ((e-17 (vector-ref sc12 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc12 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 0 e-17) clam-1))) (let ((sc13 act-28)) (case (vector-ref sc13 0) ((0) (let ((e-18 (vector-ref sc13 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc13 1))) (vector 1 (cons e-16 e-18))))))))))))))))) e-9 '() clam-0))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc11 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc10 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-0))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-10 (vector-ref sc11 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc11 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-0))) (let ((sc12 act-28)) (case (vector-ref sc12 0) ((0) (let ((e-11 (vector-ref sc12 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc12 1))) (vector 1 (vector 14 e-11))))))))))))))))))))))))))))))))))) ((10) (vector 1 (vector 16 (vector 1 "Type") '()))) ((9) (vector 1 (vector 16 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc7 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) e-6 clam-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc8 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-0)))))))))))))))))))))))))))(else (lambda (clam-2) (let ((sc5 arg-3)) (case (vector-ref sc5 0) ((3) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((e-5 (vector-ref sc5 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-6 (vector-ref sc6 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) e-2 clam-2))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-2))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (let ((sc9 e-8)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-2))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-10 (vector-ref sc10 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc10 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-2))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc11 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc9 1))) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-3) (let ((sc10 lamc-0)) (let ((e-12 (car sc10))) (let ((e-11 (cdr sc10))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-3))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-13 (vector-ref sc11 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc11 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 0 e-13) clam-3))) (let ((sc12 act-28)) (case (vector-ref sc12 0) ((0) (let ((e-14 (vector-ref sc12 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc12 1))) (vector 1 (cons e-12 e-14))))))))))))))))) e-9 '() clam-2))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc9 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-2))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-10 (vector-ref sc10 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc10 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-2))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc11 1))) (vector 1 (vector 14 e-11))))))))))))))))))))))))))))))))))) ((10) (vector 1 (vector 16 (vector 1 "Type") '()))) ((9) (vector 1 (vector 16 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-2))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) e-6 clam-2))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc7 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-2)))))))))))))))))))))))) ((equal? sc4 0) (lambda (clam-1) (let ((sc5 arg-3)) (case (vector-ref sc5 0) ((0) (let ((e-22 (vector-ref sc5 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 e-22 "Function types not allowed in a foreign struct") clam-1)))(else (let ((sc5 arg-3)) (case (vector-ref sc5 0) ((3) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((e-5 (vector-ref sc5 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-6 (vector-ref sc6 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) e-2 clam-1))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-1))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (let ((sc9 e-8)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-1))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-10 (vector-ref sc10 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc10 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-1))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc11 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc9 1))) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-5) (let ((sc10 lamc-0)) (let ((e-12 (car sc10))) (let ((e-11 (cdr sc10))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-5))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-13 (vector-ref sc11 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc11 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 0 e-13) clam-5))) (let ((sc12 act-28)) (case (vector-ref sc12 0) ((0) (let ((e-14 (vector-ref sc12 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc12 1))) (vector 1 (cons e-12 e-14))))))))))))))))) e-9 '() clam-1))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc9 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-1))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-10 (vector-ref sc10 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc10 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-1))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc11 1))) (vector 1 (vector 14 e-11))))))))))))))))))))))))))))))))))) ((10) (vector 1 (vector 16 (vector 1 "Type") '()))) ((9) (vector 1 (vector 16 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-1))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) e-6 clam-1))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc7 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-1))))))))))))))))))))))))(else (lambda (clam-6) (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-5 (vector-ref sc4 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) e-2 clam-6))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-6))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-6))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-6))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-7) (let ((sc9 lamc-0)) (let ((e-12 (car sc9))) (let ((e-11 (cdr sc9))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-7))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-13 (vector-ref sc10 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc10 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 0 e-13) clam-7))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-14 (vector-ref sc11 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc11 1))) (vector 1 (cons e-12 e-14))))))))))))))))) e-9 '() clam-6))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-6))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-6))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 14 e-11))))))))))))))))))))))))))))))))))) ((10) (vector 1 (vector 16 (vector 1 "Type") '()))) ((9) (vector 1 (vector 16 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-6))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) e-6 clam-6))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-6))))))))))))))))))))))))))))(else (let ((sc3 arg-2)) (cond ((equal? sc3 1) (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((0) (let ((e-12 (vector-ref sc4 1))) (let ((e-14 (vector-ref sc4 3))) (let ((e-15 (vector-ref sc4 4))) (lambda (clam-2) (let ((sc5 e-14)) (case (vector-ref sc5 0) ((2) (let ((e-20 (vector-ref sc5 4))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-12 1 e-20) clam-2))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc7 1))) (let ((act-26 (((e-15 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 e-12 1))) clam-2))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-27 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-12 1 e-7) clam-2))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc9 1))) (vector 1 (vector 13 e-6 e-8))))))))))))))))))))))))(else (let ((sc5 arg-3)) (case (vector-ref sc5 0) ((3) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((e-5 (vector-ref sc5 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-6 (vector-ref sc6 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) e-2 clam-2))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-2))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (let ((sc9 e-8)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-2))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-10 (vector-ref sc10 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc10 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-2))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc11 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc9 1))) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-9) (let ((sc10 lamc-0)) (let ((e-16 (car sc10))) (let ((e-11 (cdr sc10))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-9))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-17 (vector-ref sc11 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc11 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 0 e-17) clam-9))) (let ((sc12 act-28)) (case (vector-ref sc12 0) ((0) (let ((e-18 (vector-ref sc12 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc12 1))) (vector 1 (cons e-16 e-18))))))))))))))))) e-9 '() clam-2))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc9 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-2))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-10 (vector-ref sc10 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc10 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-2))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc11 1))) (vector 1 (vector 14 e-11))))))))))))))))))))))))))))))))))) ((10) (vector 1 (vector 16 (vector 1 "Type") '()))) ((9) (vector 1 (vector 16 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-2))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) e-6 clam-2))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc7 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-2)))))))))))))))))))))))))))(else (lambda (clam-10) (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-5 (vector-ref sc4 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) e-2 clam-10))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-10))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-10))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-10))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-11) (let ((sc9 lamc-0)) (let ((e-12 (car sc9))) (let ((e-11 (cdr sc9))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-11))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-13 (vector-ref sc10 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc10 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 0 e-13) clam-11))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-14 (vector-ref sc11 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc11 1))) (vector 1 (cons e-12 e-14))))))))))))))))) e-9 '() clam-10))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-10))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-10))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 14 e-11))))))))))))))))))))))))))))))))))) ((10) (vector 1 (vector 16 (vector 1 "Type") '()))) ((9) (vector 1 (vector 16 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-10))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) e-6 clam-10))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-10)))))))))))))))))))))))) ((equal? sc3 0) (lambda (clam-3) (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((0) (let ((e-22 (vector-ref sc4 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 e-22 "Function types not allowed in a foreign struct") clam-3)))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-5 (vector-ref sc4 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) e-2 clam-3))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-3))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-3))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-3))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-13) (let ((sc9 lamc-0)) (let ((e-12 (car sc9))) (let ((e-11 (cdr sc9))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-13))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-13 (vector-ref sc10 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc10 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 0 e-13) clam-13))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-14 (vector-ref sc11 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc11 1))) (vector 1 (cons e-12 e-14))))))))))))))))) e-9 '() clam-3))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-3))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-3))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 14 e-11))))))))))))))))))))))))))))))))))) ((10) (vector 1 (vector 16 (vector 1 "Type") '()))) ((9) (vector 1 (vector 16 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-3))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) e-6 clam-3))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-3))))))))))))))))))))))))(else (lambda (clam-14) (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-5 (vector-ref sc3 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) e-2 clam-14))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-14))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-14))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-14))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-15) (let ((sc8 lamc-0)) (let ((e-12 (car sc8))) (let ((e-11 (cdr sc8))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-15))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 0 e-13) clam-15))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc10 1))) (vector 1 (cons e-12 e-14))))))))))))))))) e-9 '() clam-14))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-14))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-14))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 14 e-11))))))))))))))))))))))))))))))))))) ((10) (vector 1 (vector 16 (vector 1 "Type") '()))) ((9) (vector 1 (vector 16 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-14))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) e-6 clam-14))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-14)))))))))))))))))))))))))))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((8) (let ((e-28 (vector-ref sc2 2))) (let ((sc3 e-28)) (case (vector-ref sc3 0) ((26) (lambda (eta-0) (vector 1 (vector 7 )))) ((25) (lambda (eta-0) (vector 1 (vector 8 )))) ((27) (lambda (eta-0) (vector 1 (vector 12 ))))(else (let ((sc3 arg-2)) (cond ((equal? sc3 1) (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((0) (let ((e-12 (vector-ref sc4 1))) (let ((e-14 (vector-ref sc4 3))) (let ((e-15 (vector-ref sc4 4))) (lambda (clam-4) (let ((sc5 e-14)) (case (vector-ref sc5 0) ((2) (let ((e-20 (vector-ref sc5 4))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-12 1 e-20) clam-4))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc7 1))) (let ((act-26 (((e-15 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 e-12 1))) clam-4))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-27 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-12 1 e-7) clam-4))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc9 1))) (vector 1 (vector 13 e-6 e-8))))))))))))))))))))))))(else (let ((sc5 arg-3)) (case (vector-ref sc5 0) ((3) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((e-5 (vector-ref sc5 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-6 (vector-ref sc6 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) e-2 clam-4))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-4))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (let ((sc9 e-8)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-4))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-10 (vector-ref sc10 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc10 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-4))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc11 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc9 1))) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-17) (let ((sc10 lamc-0)) (let ((e-16 (car sc10))) (let ((e-11 (cdr sc10))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-17))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-17 (vector-ref sc11 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc11 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 0 e-17) clam-17))) (let ((sc12 act-28)) (case (vector-ref sc12 0) ((0) (let ((e-18 (vector-ref sc12 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc12 1))) (vector 1 (cons e-16 e-18))))))))))))))))) e-9 '() clam-4))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc9 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-4))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-10 (vector-ref sc10 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc10 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-4))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc11 1))) (vector 1 (vector 14 e-11))))))))))))))))))))))))))))))))))) ((10) (vector 1 (vector 16 (vector 1 "Type") '()))) ((9) (vector 1 (vector 16 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-4))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) e-6 clam-4))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc7 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-4)))))))))))))))))))))))))))(else (lambda (clam-18) (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-5 (vector-ref sc4 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) e-2 clam-18))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-18))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-18))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-18))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-19) (let ((sc9 lamc-0)) (let ((e-12 (car sc9))) (let ((e-11 (cdr sc9))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-19))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-13 (vector-ref sc10 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc10 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 0 e-13) clam-19))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-14 (vector-ref sc11 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc11 1))) (vector 1 (cons e-12 e-14))))))))))))))))) e-9 '() clam-18))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-18))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-18))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 14 e-11))))))))))))))))))))))))))))))))))) ((10) (vector 1 (vector 16 (vector 1 "Type") '()))) ((9) (vector 1 (vector 16 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-18))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) e-6 clam-18))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-18)))))))))))))))))))))))) ((equal? sc3 0) (lambda (clam-5) (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((0) (let ((e-22 (vector-ref sc4 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 e-22 "Function types not allowed in a foreign struct") clam-5)))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-5 (vector-ref sc4 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) e-2 clam-5))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-5))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-5))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-5))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-21) (let ((sc9 lamc-0)) (let ((e-12 (car sc9))) (let ((e-11 (cdr sc9))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-21))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-13 (vector-ref sc10 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc10 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 0 e-13) clam-21))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-14 (vector-ref sc11 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc11 1))) (vector 1 (cons e-12 e-14))))))))))))))))) e-9 '() clam-5))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-5))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-5))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 14 e-11))))))))))))))))))))))))))))))))))) ((10) (vector 1 (vector 16 (vector 1 "Type") '()))) ((9) (vector 1 (vector 16 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-5))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) e-6 clam-5))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-5))))))))))))))))))))))))(else (lambda (clam-22) (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-5 (vector-ref sc3 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) e-2 clam-22))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-22))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-22))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-22))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-23) (let ((sc8 lamc-0)) (let ((e-12 (car sc8))) (let ((e-11 (cdr sc8))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-23))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 0 e-13) clam-23))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc10 1))) (vector 1 (cons e-12 e-14))))))))))))))))) e-9 '() clam-22))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-22))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-22))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 14 e-11))))))))))))))))))))))))))))))))))) ((10) (vector 1 (vector 16 (vector 1 "Type") '()))) ((9) (vector 1 (vector 16 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-22))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) e-6 clam-22))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-22))))))))))))))))))))))))))))(else (let ((sc2 arg-2)) (cond ((equal? sc2 1) (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-12 (vector-ref sc3 1))) (let ((e-14 (vector-ref sc3 3))) (let ((e-15 (vector-ref sc3 4))) (lambda (clam-6) (let ((sc4 e-14)) (case (vector-ref sc4 0) ((2) (let ((e-20 (vector-ref sc4 4))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-12 1 e-20) clam-6))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-26 (((e-15 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 e-12 1))) clam-6))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-27 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-12 1 e-7) clam-6))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (vector 13 e-6 e-8))))))))))))))))))))))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-5 (vector-ref sc4 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) e-2 clam-6))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-6))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-6))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-6))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-25) (let ((sc9 lamc-0)) (let ((e-16 (car sc9))) (let ((e-11 (cdr sc9))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-25))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-17 (vector-ref sc10 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc10 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 0 e-17) clam-25))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-18 (vector-ref sc11 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc11 1))) (vector 1 (cons e-16 e-18))))))))))))))))) e-9 '() clam-6))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-6))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-6))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 14 e-11))))))))))))))))))))))))))))))))))) ((10) (vector 1 (vector 16 (vector 1 "Type") '()))) ((9) (vector 1 (vector 16 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-6))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) e-6 clam-6))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-6)))))))))))))))))))))))))))(else (lambda (clam-26) (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-5 (vector-ref sc3 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) e-2 clam-26))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-26))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-26))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-26))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-27) (let ((sc8 lamc-0)) (let ((e-12 (car sc8))) (let ((e-11 (cdr sc8))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-27))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 0 e-13) clam-27))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc10 1))) (vector 1 (cons e-12 e-14))))))))))))))))) e-9 '() clam-26))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-26))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-26))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 14 e-11))))))))))))))))))))))))))))))))))) ((10) (vector 1 (vector 16 (vector 1 "Type") '()))) ((9) (vector 1 (vector 16 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-26))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) e-6 clam-26))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-26)))))))))))))))))))))))) ((equal? sc2 0) (lambda (clam-7) (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-22 (vector-ref sc3 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 e-22 "Function types not allowed in a foreign struct") clam-7)))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-5 (vector-ref sc3 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) e-2 clam-7))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-7))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-7))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-7))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-29) (let ((sc8 lamc-0)) (let ((e-12 (car sc8))) (let ((e-11 (cdr sc8))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-29))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 0 e-13) clam-29))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc10 1))) (vector 1 (cons e-12 e-14))))))))))))))))) e-9 '() clam-7))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-7))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-7))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 14 e-11))))))))))))))))))))))))))))))))))) ((10) (vector 1 (vector 16 (vector 1 "Type") '()))) ((9) (vector 1 (vector 16 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-7))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) e-6 clam-7))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-7))))))))))))))))))))))))(else (lambda (clam-30) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-5 (vector-ref sc2 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) e-2 clam-30))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-30))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc5 1))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-30))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-30))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-31) (let ((sc7 lamc-0)) (let ((e-12 (car sc7))) (let ((e-11 (cdr sc7))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-31))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 0 e-13) clam-31))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc9 1))) (vector 1 (cons e-12 e-14))))))))))))))))) e-9 '() clam-30))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-30))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-30))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 14 e-11))))))))))))))))))))))))))))))))))) ((10) (vector 1 (vector 16 (vector 1 "Type") '()))) ((9) (vector 1 (vector 16 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-30))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) e-6 clam-30))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-30)))))))))))))))))))))))))))))) ((equal? sc1 0) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((8) (let ((e-34 (vector-ref sc2 2))) (let ((sc3 e-34)) (case (vector-ref sc3 0) ((24) (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-1 "String not allowed in a foreign struct") eta-0)))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((8) (let ((e-28 (vector-ref sc3 2))) (let ((sc4 e-28)) (case (vector-ref sc4 0) ((26) (lambda (eta-0) (vector 1 (vector 7 )))) ((25) (lambda (eta-0) (vector 1 (vector 8 )))) ((27) (lambda (eta-0) (vector 1 (vector 12 ))))(else (let ((sc4 arg-2)) (cond ((equal? sc4 1) (let ((sc5 arg-3)) (case (vector-ref sc5 0) ((0) (let ((e-12 (vector-ref sc5 1))) (let ((e-14 (vector-ref sc5 3))) (let ((e-15 (vector-ref sc5 4))) (lambda (clam-8) (let ((sc6 e-14)) (case (vector-ref sc6 0) ((2) (let ((e-20 (vector-ref sc6 4))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-12 1 e-20) clam-8))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc8 1))) (let ((act-26 (((e-15 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 e-12 1))) clam-8))) (let ((sc9 act-26)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc9 1))) (let ((act-27 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-12 1 e-7) clam-8))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc10 1))) (vector 1 (vector 13 e-6 e-8))))))))))))))))))))))))(else (let ((sc6 arg-3)) (case (vector-ref sc6 0) ((3) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((e-5 (vector-ref sc6 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-6 (vector-ref sc7 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc7 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) e-2 clam-8))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-8))) (let ((sc9 act-26)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) (let ((sc10 e-8)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-8))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-10 (vector-ref sc11 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc11 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-8))) (let ((sc12 act-28)) (case (vector-ref sc12 0) ((0) (let ((e-11 (vector-ref sc12 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc12 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc10 1))) (let ((e-9 (vector-ref sc10 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-33) (let ((sc11 lamc-0)) (let ((e-16 (car sc11))) (let ((e-11 (cdr sc11))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-33))) (let ((sc12 act-27)) (case (vector-ref sc12 0) ((0) (let ((e-17 (vector-ref sc12 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc12 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 0 e-17) clam-33))) (let ((sc13 act-28)) (case (vector-ref sc13 0) ((0) (let ((e-18 (vector-ref sc13 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc13 1))) (vector 1 (cons e-16 e-18))))))))))))))))) e-9 '() clam-8))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc11 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc10 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-8))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-10 (vector-ref sc11 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc11 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-8))) (let ((sc12 act-28)) (case (vector-ref sc12 0) ((0) (let ((e-11 (vector-ref sc12 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc12 1))) (vector 1 (vector 14 e-11))))))))))))))))))))))))))))))))))) ((10) (vector 1 (vector 16 (vector 1 "Type") '()))) ((9) (vector 1 (vector 16 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-8))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc7 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) e-6 clam-8))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc8 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-8)))))))))))))))))))))))))))(else (lambda (clam-34) (let ((sc5 arg-3)) (case (vector-ref sc5 0) ((3) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((e-5 (vector-ref sc5 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-6 (vector-ref sc6 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) e-2 clam-34))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-34))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (let ((sc9 e-8)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-34))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-10 (vector-ref sc10 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc10 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-34))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc11 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc9 1))) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-35) (let ((sc10 lamc-0)) (let ((e-12 (car sc10))) (let ((e-11 (cdr sc10))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-35))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-13 (vector-ref sc11 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc11 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 0 e-13) clam-35))) (let ((sc12 act-28)) (case (vector-ref sc12 0) ((0) (let ((e-14 (vector-ref sc12 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc12 1))) (vector 1 (cons e-12 e-14))))))))))))))))) e-9 '() clam-34))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc9 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-34))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-10 (vector-ref sc10 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc10 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-34))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc11 1))) (vector 1 (vector 14 e-11))))))))))))))))))))))))))))))))))) ((10) (vector 1 (vector 16 (vector 1 "Type") '()))) ((9) (vector 1 (vector 16 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-34))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) e-6 clam-34))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc7 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-34)))))))))))))))))))))))) ((equal? sc4 0) (lambda (clam-9) (let ((sc5 arg-3)) (case (vector-ref sc5 0) ((0) (let ((e-22 (vector-ref sc5 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 e-22 "Function types not allowed in a foreign struct") clam-9)))(else (let ((sc5 arg-3)) (case (vector-ref sc5 0) ((3) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((e-5 (vector-ref sc5 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-6 (vector-ref sc6 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) e-2 clam-9))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-9))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (let ((sc9 e-8)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-9))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-10 (vector-ref sc10 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc10 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-9))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc11 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc9 1))) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-37) (let ((sc10 lamc-0)) (let ((e-12 (car sc10))) (let ((e-11 (cdr sc10))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-37))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-13 (vector-ref sc11 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc11 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 0 e-13) clam-37))) (let ((sc12 act-28)) (case (vector-ref sc12 0) ((0) (let ((e-14 (vector-ref sc12 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc12 1))) (vector 1 (cons e-12 e-14))))))))))))))))) e-9 '() clam-9))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc9 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-9))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-10 (vector-ref sc10 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc10 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-9))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc11 1))) (vector 1 (vector 14 e-11))))))))))))))))))))))))))))))))))) ((10) (vector 1 (vector 16 (vector 1 "Type") '()))) ((9) (vector 1 (vector 16 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-9))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) e-6 clam-9))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc7 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-9))))))))))))))))))))))))(else (lambda (clam-38) (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-5 (vector-ref sc4 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) e-2 clam-38))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-38))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-38))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-38))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-39) (let ((sc9 lamc-0)) (let ((e-12 (car sc9))) (let ((e-11 (cdr sc9))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-39))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-13 (vector-ref sc10 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc10 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 0 e-13) clam-39))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-14 (vector-ref sc11 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc11 1))) (vector 1 (cons e-12 e-14))))))))))))))))) e-9 '() clam-38))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-38))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-38))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 14 e-11))))))))))))))))))))))))))))))))))) ((10) (vector 1 (vector 16 (vector 1 "Type") '()))) ((9) (vector 1 (vector 16 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-38))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) e-6 clam-38))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-38))))))))))))))))))))))))))))(else (let ((sc3 arg-2)) (cond ((equal? sc3 1) (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((0) (let ((e-12 (vector-ref sc4 1))) (let ((e-14 (vector-ref sc4 3))) (let ((e-15 (vector-ref sc4 4))) (lambda (clam-10) (let ((sc5 e-14)) (case (vector-ref sc5 0) ((2) (let ((e-20 (vector-ref sc5 4))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-12 1 e-20) clam-10))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc7 1))) (let ((act-26 (((e-15 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 e-12 1))) clam-10))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-27 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-12 1 e-7) clam-10))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc9 1))) (vector 1 (vector 13 e-6 e-8))))))))))))))))))))))))(else (let ((sc5 arg-3)) (case (vector-ref sc5 0) ((3) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((e-5 (vector-ref sc5 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-6 (vector-ref sc6 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) e-2 clam-10))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-10))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (let ((sc9 e-8)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-10))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-10 (vector-ref sc10 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc10 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-10))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc11 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc9 1))) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-41) (let ((sc10 lamc-0)) (let ((e-16 (car sc10))) (let ((e-11 (cdr sc10))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-41))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-17 (vector-ref sc11 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc11 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 0 e-17) clam-41))) (let ((sc12 act-28)) (case (vector-ref sc12 0) ((0) (let ((e-18 (vector-ref sc12 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc12 1))) (vector 1 (cons e-16 e-18))))))))))))))))) e-9 '() clam-10))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc9 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-10))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-10 (vector-ref sc10 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc10 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-10))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc11 1))) (vector 1 (vector 14 e-11))))))))))))))))))))))))))))))))))) ((10) (vector 1 (vector 16 (vector 1 "Type") '()))) ((9) (vector 1 (vector 16 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-10))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) e-6 clam-10))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc7 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-10)))))))))))))))))))))))))))(else (lambda (clam-42) (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-5 (vector-ref sc4 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) e-2 clam-42))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-42))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-42))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-42))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-43) (let ((sc9 lamc-0)) (let ((e-12 (car sc9))) (let ((e-11 (cdr sc9))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-43))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-13 (vector-ref sc10 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc10 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 0 e-13) clam-43))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-14 (vector-ref sc11 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc11 1))) (vector 1 (cons e-12 e-14))))))))))))))))) e-9 '() clam-42))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-42))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-42))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 14 e-11))))))))))))))))))))))))))))))))))) ((10) (vector 1 (vector 16 (vector 1 "Type") '()))) ((9) (vector 1 (vector 16 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-42))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) e-6 clam-42))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-42)))))))))))))))))))))))) ((equal? sc3 0) (lambda (clam-11) (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((0) (let ((e-22 (vector-ref sc4 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 e-22 "Function types not allowed in a foreign struct") clam-11)))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-5 (vector-ref sc4 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) e-2 clam-11))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-11))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-11))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-11))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-45) (let ((sc9 lamc-0)) (let ((e-12 (car sc9))) (let ((e-11 (cdr sc9))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-45))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-13 (vector-ref sc10 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc10 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 0 e-13) clam-45))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-14 (vector-ref sc11 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc11 1))) (vector 1 (cons e-12 e-14))))))))))))))))) e-9 '() clam-11))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-11))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-11))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 14 e-11))))))))))))))))))))))))))))))))))) ((10) (vector 1 (vector 16 (vector 1 "Type") '()))) ((9) (vector 1 (vector 16 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-11))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) e-6 clam-11))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-11))))))))))))))))))))))))(else (lambda (clam-46) (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-5 (vector-ref sc3 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) e-2 clam-46))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-46))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-46))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-46))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-47) (let ((sc8 lamc-0)) (let ((e-12 (car sc8))) (let ((e-11 (cdr sc8))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-47))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 0 e-13) clam-47))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc10 1))) (vector 1 (cons e-12 e-14))))))))))))))))) e-9 '() clam-46))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-46))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-46))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 14 e-11))))))))))))))))))))))))))))))))))) ((10) (vector 1 (vector 16 (vector 1 "Type") '()))) ((9) (vector 1 (vector 16 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-46))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) e-6 clam-46))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-46)))))))))))))))))))))))))))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((8) (let ((e-28 (vector-ref sc2 2))) (let ((sc3 e-28)) (case (vector-ref sc3 0) ((26) (lambda (eta-0) (vector 1 (vector 7 )))) ((25) (lambda (eta-0) (vector 1 (vector 8 )))) ((27) (lambda (eta-0) (vector 1 (vector 12 ))))(else (let ((sc3 arg-2)) (cond ((equal? sc3 1) (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((0) (let ((e-12 (vector-ref sc4 1))) (let ((e-14 (vector-ref sc4 3))) (let ((e-15 (vector-ref sc4 4))) (lambda (clam-12) (let ((sc5 e-14)) (case (vector-ref sc5 0) ((2) (let ((e-20 (vector-ref sc5 4))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-12 1 e-20) clam-12))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc7 1))) (let ((act-26 (((e-15 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 e-12 1))) clam-12))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-27 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-12 1 e-7) clam-12))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc9 1))) (vector 1 (vector 13 e-6 e-8))))))))))))))))))))))))(else (let ((sc5 arg-3)) (case (vector-ref sc5 0) ((3) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((e-5 (vector-ref sc5 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-6 (vector-ref sc6 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) e-2 clam-12))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-12))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (let ((sc9 e-8)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-12))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-10 (vector-ref sc10 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc10 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-12))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc11 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc9 1))) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-49) (let ((sc10 lamc-0)) (let ((e-16 (car sc10))) (let ((e-11 (cdr sc10))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-49))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-17 (vector-ref sc11 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc11 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 0 e-17) clam-49))) (let ((sc12 act-28)) (case (vector-ref sc12 0) ((0) (let ((e-18 (vector-ref sc12 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc12 1))) (vector 1 (cons e-16 e-18))))))))))))))))) e-9 '() clam-12))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc9 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-12))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-10 (vector-ref sc10 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc10 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-12))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc11 1))) (vector 1 (vector 14 e-11))))))))))))))))))))))))))))))))))) ((10) (vector 1 (vector 16 (vector 1 "Type") '()))) ((9) (vector 1 (vector 16 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-12))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) e-6 clam-12))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc7 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-12)))))))))))))))))))))))))))(else (lambda (clam-50) (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-5 (vector-ref sc4 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) e-2 clam-50))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-50))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-50))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-50))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-51) (let ((sc9 lamc-0)) (let ((e-12 (car sc9))) (let ((e-11 (cdr sc9))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-51))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-13 (vector-ref sc10 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc10 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 0 e-13) clam-51))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-14 (vector-ref sc11 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc11 1))) (vector 1 (cons e-12 e-14))))))))))))))))) e-9 '() clam-50))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-50))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-50))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 14 e-11))))))))))))))))))))))))))))))))))) ((10) (vector 1 (vector 16 (vector 1 "Type") '()))) ((9) (vector 1 (vector 16 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-50))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) e-6 clam-50))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-50)))))))))))))))))))))))) ((equal? sc3 0) (lambda (clam-13) (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((0) (let ((e-22 (vector-ref sc4 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 e-22 "Function types not allowed in a foreign struct") clam-13)))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-5 (vector-ref sc4 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) e-2 clam-13))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-13))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-13))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-13))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-53) (let ((sc9 lamc-0)) (let ((e-12 (car sc9))) (let ((e-11 (cdr sc9))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-53))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-13 (vector-ref sc10 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc10 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 0 e-13) clam-53))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-14 (vector-ref sc11 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc11 1))) (vector 1 (cons e-12 e-14))))))))))))))))) e-9 '() clam-13))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-13))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-13))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 14 e-11))))))))))))))))))))))))))))))))))) ((10) (vector 1 (vector 16 (vector 1 "Type") '()))) ((9) (vector 1 (vector 16 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-13))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) e-6 clam-13))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-13))))))))))))))))))))))))(else (lambda (clam-54) (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-5 (vector-ref sc3 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) e-2 clam-54))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-54))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-54))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-54))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-55) (let ((sc8 lamc-0)) (let ((e-12 (car sc8))) (let ((e-11 (cdr sc8))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-55))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 0 e-13) clam-55))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc10 1))) (vector 1 (cons e-12 e-14))))))))))))))))) e-9 '() clam-54))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-54))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-54))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 14 e-11))))))))))))))))))))))))))))))))))) ((10) (vector 1 (vector 16 (vector 1 "Type") '()))) ((9) (vector 1 (vector 16 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-54))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) e-6 clam-54))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-54))))))))))))))))))))))))))))(else (let ((sc2 arg-2)) (cond ((equal? sc2 1) (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-12 (vector-ref sc3 1))) (let ((e-14 (vector-ref sc3 3))) (let ((e-15 (vector-ref sc3 4))) (lambda (clam-14) (let ((sc4 e-14)) (case (vector-ref sc4 0) ((2) (let ((e-20 (vector-ref sc4 4))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-12 1 e-20) clam-14))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-26 (((e-15 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 e-12 1))) clam-14))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-27 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-12 1 e-7) clam-14))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (vector 13 e-6 e-8))))))))))))))))))))))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-5 (vector-ref sc4 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) e-2 clam-14))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-14))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-14))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-14))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-57) (let ((sc9 lamc-0)) (let ((e-16 (car sc9))) (let ((e-11 (cdr sc9))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-57))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-17 (vector-ref sc10 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc10 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 0 e-17) clam-57))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-18 (vector-ref sc11 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc11 1))) (vector 1 (cons e-16 e-18))))))))))))))))) e-9 '() clam-14))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-14))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-14))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 14 e-11))))))))))))))))))))))))))))))))))) ((10) (vector 1 (vector 16 (vector 1 "Type") '()))) ((9) (vector 1 (vector 16 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-14))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) e-6 clam-14))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-14)))))))))))))))))))))))))))(else (lambda (clam-58) (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-5 (vector-ref sc3 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) e-2 clam-58))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-58))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-58))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-58))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-59) (let ((sc8 lamc-0)) (let ((e-12 (car sc8))) (let ((e-11 (cdr sc8))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-59))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 0 e-13) clam-59))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc10 1))) (vector 1 (cons e-12 e-14))))))))))))))))) e-9 '() clam-58))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-58))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-58))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 14 e-11))))))))))))))))))))))))))))))))))) ((10) (vector 1 (vector 16 (vector 1 "Type") '()))) ((9) (vector 1 (vector 16 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-58))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) e-6 clam-58))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-58)))))))))))))))))))))))) ((equal? sc2 0) (lambda (clam-15) (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-22 (vector-ref sc3 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 e-22 "Function types not allowed in a foreign struct") clam-15)))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-5 (vector-ref sc3 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) e-2 clam-15))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-15))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-15))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-15))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-61) (let ((sc8 lamc-0)) (let ((e-12 (car sc8))) (let ((e-11 (cdr sc8))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-61))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 0 e-13) clam-61))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc10 1))) (vector 1 (cons e-12 e-14))))))))))))))))) e-9 '() clam-15))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-15))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-15))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 14 e-11))))))))))))))))))))))))))))))))))) ((10) (vector 1 (vector 16 (vector 1 "Type") '()))) ((9) (vector 1 (vector 16 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-15))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) e-6 clam-15))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-15))))))))))))))))))))))))(else (lambda (clam-62) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-5 (vector-ref sc2 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) e-2 clam-62))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-62))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc5 1))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-62))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-62))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-63) (let ((sc7 lamc-0)) (let ((e-12 (car sc7))) (let ((e-11 (cdr sc7))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-63))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 0 e-13) clam-63))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc9 1))) (vector 1 (cons e-12 e-14))))))))))))))))) e-9 '() clam-62))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-62))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-62))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 14 e-11))))))))))))))))))))))))))))))))))) ((10) (vector 1 (vector 16 (vector 1 "Type") '()))) ((9) (vector 1 (vector 16 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-62))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) e-6 clam-62))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-62))))))))))))))))))))))))))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((8) (let ((e-28 (vector-ref sc1 2))) (let ((sc2 e-28)) (case (vector-ref sc2 0) ((26) (lambda (eta-0) (vector 1 (vector 7 )))) ((25) (lambda (eta-0) (vector 1 (vector 8 )))) ((27) (lambda (eta-0) (vector 1 (vector 12 ))))(else (let ((sc2 arg-2)) (cond ((equal? sc2 1) (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-12 (vector-ref sc3 1))) (let ((e-14 (vector-ref sc3 3))) (let ((e-15 (vector-ref sc3 4))) (lambda (clam-16) (let ((sc4 e-14)) (case (vector-ref sc4 0) ((2) (let ((e-20 (vector-ref sc4 4))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-12 1 e-20) clam-16))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-26 (((e-15 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 e-12 1))) clam-16))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-27 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-12 1 e-7) clam-16))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (vector 13 e-6 e-8))))))))))))))))))))))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-5 (vector-ref sc4 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) e-2 clam-16))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-16))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-16))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-16))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-65) (let ((sc9 lamc-0)) (let ((e-16 (car sc9))) (let ((e-11 (cdr sc9))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-65))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-17 (vector-ref sc10 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc10 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 0 e-17) clam-65))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-18 (vector-ref sc11 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc11 1))) (vector 1 (cons e-16 e-18))))))))))))))))) e-9 '() clam-16))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-16))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-16))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 14 e-11))))))))))))))))))))))))))))))))))) ((10) (vector 1 (vector 16 (vector 1 "Type") '()))) ((9) (vector 1 (vector 16 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-16))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) e-6 clam-16))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-16)))))))))))))))))))))))))))(else (lambda (clam-66) (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-5 (vector-ref sc3 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) e-2 clam-66))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-66))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-66))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-66))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-67) (let ((sc8 lamc-0)) (let ((e-12 (car sc8))) (let ((e-11 (cdr sc8))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-67))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 0 e-13) clam-67))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc10 1))) (vector 1 (cons e-12 e-14))))))))))))))))) e-9 '() clam-66))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-66))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-66))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 14 e-11))))))))))))))))))))))))))))))))))) ((10) (vector 1 (vector 16 (vector 1 "Type") '()))) ((9) (vector 1 (vector 16 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-66))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) e-6 clam-66))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-66)))))))))))))))))))))))) ((equal? sc2 0) (lambda (clam-17) (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-22 (vector-ref sc3 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 e-22 "Function types not allowed in a foreign struct") clam-17)))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-5 (vector-ref sc3 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) e-2 clam-17))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-17))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-17))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-17))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-69) (let ((sc8 lamc-0)) (let ((e-12 (car sc8))) (let ((e-11 (cdr sc8))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-69))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 0 e-13) clam-69))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc10 1))) (vector 1 (cons e-12 e-14))))))))))))))))) e-9 '() clam-17))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-17))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-17))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 14 e-11))))))))))))))))))))))))))))))))))) ((10) (vector 1 (vector 16 (vector 1 "Type") '()))) ((9) (vector 1 (vector 16 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-17))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) e-6 clam-17))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-17))))))))))))))))))))))))(else (lambda (clam-70) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-5 (vector-ref sc2 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) e-2 clam-70))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-70))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc5 1))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-70))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-70))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-71) (let ((sc7 lamc-0)) (let ((e-12 (car sc7))) (let ((e-11 (cdr sc7))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-71))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 0 e-13) clam-71))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc9 1))) (vector 1 (cons e-12 e-14))))))))))))))))) e-9 '() clam-70))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-70))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-70))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 14 e-11))))))))))))))))))))))))))))))))))) ((10) (vector 1 (vector 16 (vector 1 "Type") '()))) ((9) (vector 1 (vector 16 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-70))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) e-6 clam-70))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-70))))))))))))))))))))))))))))(else (let ((sc1 arg-2)) (cond ((equal? sc1 1) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((0) (let ((e-12 (vector-ref sc2 1))) (let ((e-14 (vector-ref sc2 3))) (let ((e-15 (vector-ref sc2 4))) (lambda (clam-18) (let ((sc3 e-14)) (case (vector-ref sc3 0) ((2) (let ((e-20 (vector-ref sc3 4))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-12 1 e-20) clam-18))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (((e-15 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 e-12 1))) clam-18))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-27 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-12 1 e-7) clam-18))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc7 1))) (vector 1 (vector 13 e-6 e-8))))))))))))))))))))))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-5 (vector-ref sc3 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) e-2 clam-18))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-18))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-18))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-18))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-73) (let ((sc8 lamc-0)) (let ((e-16 (car sc8))) (let ((e-11 (cdr sc8))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-73))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-17 (vector-ref sc9 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc9 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 0 e-17) clam-73))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-18 (vector-ref sc10 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc10 1))) (vector 1 (cons e-16 e-18))))))))))))))))) e-9 '() clam-18))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-18))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-18))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 14 e-11))))))))))))))))))))))))))))))))))) ((10) (vector 1 (vector 16 (vector 1 "Type") '()))) ((9) (vector 1 (vector 16 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-18))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) e-6 clam-18))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-18)))))))))))))))))))))))))))(else (lambda (clam-74) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-5 (vector-ref sc2 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) e-2 clam-74))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-74))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc5 1))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-74))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-74))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-75) (let ((sc7 lamc-0)) (let ((e-12 (car sc7))) (let ((e-11 (cdr sc7))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-75))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 0 e-13) clam-75))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc9 1))) (vector 1 (cons e-12 e-14))))))))))))))))) e-9 '() clam-74))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-74))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-74))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 14 e-11))))))))))))))))))))))))))))))))))) ((10) (vector 1 (vector 16 (vector 1 "Type") '()))) ((9) (vector 1 (vector 16 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-74))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) e-6 clam-74))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-74)))))))))))))))))))))))) ((equal? sc1 0) (lambda (clam-19) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((0) (let ((e-22 (vector-ref sc2 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 e-22 "Function types not allowed in a foreign struct") clam-19)))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-5 (vector-ref sc2 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) e-2 clam-19))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-19))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc5 1))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-19))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-19))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-77) (let ((sc7 lamc-0)) (let ((e-12 (car sc7))) (let ((e-11 (cdr sc7))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-77))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 0 e-13) clam-77))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc9 1))) (vector 1 (cons e-12 e-14))))))))))))))))) e-9 '() clam-19))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-19))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-19))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 14 e-11))))))))))))))))))))))))))))))))))) ((10) (vector 1 (vector 16 (vector 1 "Type") '()))) ((9) (vector 1 (vector 16 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-19))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) e-6 clam-19))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-19))))))))))))))))))))))))(else (lambda (clam-78) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((3) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((e-5 (vector-ref sc1 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) e-2 clam-78))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-78))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-78))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-78))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc5 1))) (let ((e-9 (vector-ref sc5 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-79) (let ((sc6 lamc-0)) (let ((e-12 (car sc6))) (let ((e-11 (cdr sc6))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-79))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-13 (vector-ref sc7 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc7 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 0 e-13) clam-79))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-14 (vector-ref sc8 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc8 1))) (vector 1 (cons e-12 e-14))))))))))))))))) e-9 '() clam-78))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-11 (vector-ref sc6 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc6 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-78))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-78))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 14 e-11))))))))))))))))))))))))))))))))))) ((10) (vector 1 (vector 16 (vector 1 "Type") '()))) ((9) (vector 1 (vector 16 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-78))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) e-6 clam-78))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-78))))))))))))))))))))))))))))))))))(else (let ((sc0 arg-2)) (cond ((equal? sc0 1) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((8) (let ((e-31 (vector-ref sc1 2))) (let ((sc2 e-31)) (case (vector-ref sc2 0) ((24) (lambda (eta-0) (vector 1 (vector 6 ))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((8) (let ((e-28 (vector-ref sc2 2))) (let ((sc3 e-28)) (case (vector-ref sc3 0) ((26) (lambda (eta-0) (vector 1 (vector 7 )))) ((25) (lambda (eta-0) (vector 1 (vector 8 )))) ((27) (lambda (eta-0) (vector 1 (vector 12 ))))(else (let ((sc3 arg-2)) (cond ((equal? sc3 1) (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((0) (let ((e-12 (vector-ref sc4 1))) (let ((e-14 (vector-ref sc4 3))) (let ((e-15 (vector-ref sc4 4))) (lambda (clam-20) (let ((sc5 e-14)) (case (vector-ref sc5 0) ((2) (let ((e-20 (vector-ref sc5 4))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-12 1 e-20) clam-20))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc7 1))) (let ((act-26 (((e-15 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 e-12 1))) clam-20))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-27 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-12 1 e-7) clam-20))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc9 1))) (vector 1 (vector 13 e-6 e-8))))))))))))))))))))))))(else (let ((sc5 arg-3)) (case (vector-ref sc5 0) ((3) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((e-5 (vector-ref sc5 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-6 (vector-ref sc6 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) e-2 clam-20))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-20))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (let ((sc9 e-8)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-20))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-10 (vector-ref sc10 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc10 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-20))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc11 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc9 1))) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-81) (let ((sc10 lamc-0)) (let ((e-16 (car sc10))) (let ((e-11 (cdr sc10))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-81))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-17 (vector-ref sc11 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc11 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 0 e-17) clam-81))) (let ((sc12 act-28)) (case (vector-ref sc12 0) ((0) (let ((e-18 (vector-ref sc12 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc12 1))) (vector 1 (cons e-16 e-18))))))))))))))))) e-9 '() clam-20))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc9 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-20))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-10 (vector-ref sc10 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc10 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-20))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc11 1))) (vector 1 (vector 14 e-11))))))))))))))))))))))))))))))))))) ((10) (vector 1 (vector 16 (vector 1 "Type") '()))) ((9) (vector 1 (vector 16 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-20))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) e-6 clam-20))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc7 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-20)))))))))))))))))))))))))))(else (lambda (clam-82) (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-5 (vector-ref sc4 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) e-2 clam-82))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-82))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-82))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-82))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-83) (let ((sc9 lamc-0)) (let ((e-12 (car sc9))) (let ((e-11 (cdr sc9))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-83))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-13 (vector-ref sc10 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc10 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 0 e-13) clam-83))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-14 (vector-ref sc11 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc11 1))) (vector 1 (cons e-12 e-14))))))))))))))))) e-9 '() clam-82))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-82))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-82))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 14 e-11))))))))))))))))))))))))))))))))))) ((10) (vector 1 (vector 16 (vector 1 "Type") '()))) ((9) (vector 1 (vector 16 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-82))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) e-6 clam-82))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-82)))))))))))))))))))))))) ((equal? sc3 0) (lambda (clam-21) (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((0) (let ((e-22 (vector-ref sc4 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 e-22 "Function types not allowed in a foreign struct") clam-21)))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-5 (vector-ref sc4 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) e-2 clam-21))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-21))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-21))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-21))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-85) (let ((sc9 lamc-0)) (let ((e-12 (car sc9))) (let ((e-11 (cdr sc9))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-85))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-13 (vector-ref sc10 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc10 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 0 e-13) clam-85))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-14 (vector-ref sc11 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc11 1))) (vector 1 (cons e-12 e-14))))))))))))))))) e-9 '() clam-21))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-21))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-21))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 14 e-11))))))))))))))))))))))))))))))))))) ((10) (vector 1 (vector 16 (vector 1 "Type") '()))) ((9) (vector 1 (vector 16 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-21))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) e-6 clam-21))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-21))))))))))))))))))))))))(else (lambda (clam-86) (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-5 (vector-ref sc3 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) e-2 clam-86))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-86))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-86))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-86))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-87) (let ((sc8 lamc-0)) (let ((e-12 (car sc8))) (let ((e-11 (cdr sc8))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-87))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 0 e-13) clam-87))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc10 1))) (vector 1 (cons e-12 e-14))))))))))))))))) e-9 '() clam-86))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-86))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-86))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 14 e-11))))))))))))))))))))))))))))))))))) ((10) (vector 1 (vector 16 (vector 1 "Type") '()))) ((9) (vector 1 (vector 16 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-86))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) e-6 clam-86))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-86))))))))))))))))))))))))))))(else (let ((sc2 arg-2)) (cond ((equal? sc2 1) (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-12 (vector-ref sc3 1))) (let ((e-14 (vector-ref sc3 3))) (let ((e-15 (vector-ref sc3 4))) (lambda (clam-22) (let ((sc4 e-14)) (case (vector-ref sc4 0) ((2) (let ((e-20 (vector-ref sc4 4))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-12 1 e-20) clam-22))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-26 (((e-15 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 e-12 1))) clam-22))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-27 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-12 1 e-7) clam-22))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (vector 13 e-6 e-8))))))))))))))))))))))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-5 (vector-ref sc4 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) e-2 clam-22))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-22))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-22))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-22))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-89) (let ((sc9 lamc-0)) (let ((e-16 (car sc9))) (let ((e-11 (cdr sc9))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-89))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-17 (vector-ref sc10 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc10 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 0 e-17) clam-89))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-18 (vector-ref sc11 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc11 1))) (vector 1 (cons e-16 e-18))))))))))))))))) e-9 '() clam-22))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-22))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-22))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 14 e-11))))))))))))))))))))))))))))))))))) ((10) (vector 1 (vector 16 (vector 1 "Type") '()))) ((9) (vector 1 (vector 16 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-22))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) e-6 clam-22))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-22)))))))))))))))))))))))))))(else (lambda (clam-90) (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-5 (vector-ref sc3 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) e-2 clam-90))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-90))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-90))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-90))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-91) (let ((sc8 lamc-0)) (let ((e-12 (car sc8))) (let ((e-11 (cdr sc8))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-91))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 0 e-13) clam-91))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc10 1))) (vector 1 (cons e-12 e-14))))))))))))))))) e-9 '() clam-90))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-90))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-90))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 14 e-11))))))))))))))))))))))))))))))))))) ((10) (vector 1 (vector 16 (vector 1 "Type") '()))) ((9) (vector 1 (vector 16 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-90))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) e-6 clam-90))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-90)))))))))))))))))))))))) ((equal? sc2 0) (lambda (clam-23) (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-22 (vector-ref sc3 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 e-22 "Function types not allowed in a foreign struct") clam-23)))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-5 (vector-ref sc3 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) e-2 clam-23))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-23))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-23))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-23))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-93) (let ((sc8 lamc-0)) (let ((e-12 (car sc8))) (let ((e-11 (cdr sc8))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-93))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 0 e-13) clam-93))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc10 1))) (vector 1 (cons e-12 e-14))))))))))))))))) e-9 '() clam-23))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-23))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-23))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 14 e-11))))))))))))))))))))))))))))))))))) ((10) (vector 1 (vector 16 (vector 1 "Type") '()))) ((9) (vector 1 (vector 16 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-23))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) e-6 clam-23))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-23))))))))))))))))))))))))(else (lambda (clam-94) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-5 (vector-ref sc2 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) e-2 clam-94))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-94))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc5 1))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-94))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-94))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-95) (let ((sc7 lamc-0)) (let ((e-12 (car sc7))) (let ((e-11 (cdr sc7))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-95))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 0 e-13) clam-95))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc9 1))) (vector 1 (cons e-12 e-14))))))))))))))))) e-9 '() clam-94))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-94))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-94))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 14 e-11))))))))))))))))))))))))))))))))))) ((10) (vector 1 (vector 16 (vector 1 "Type") '()))) ((9) (vector 1 (vector 16 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-94))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) e-6 clam-94))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-94)))))))))))))))))))))))))))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((8) (let ((e-28 (vector-ref sc1 2))) (let ((sc2 e-28)) (case (vector-ref sc2 0) ((26) (lambda (eta-0) (vector 1 (vector 7 )))) ((25) (lambda (eta-0) (vector 1 (vector 8 )))) ((27) (lambda (eta-0) (vector 1 (vector 12 ))))(else (let ((sc2 arg-2)) (cond ((equal? sc2 1) (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-12 (vector-ref sc3 1))) (let ((e-14 (vector-ref sc3 3))) (let ((e-15 (vector-ref sc3 4))) (lambda (clam-24) (let ((sc4 e-14)) (case (vector-ref sc4 0) ((2) (let ((e-20 (vector-ref sc4 4))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-12 1 e-20) clam-24))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-26 (((e-15 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 e-12 1))) clam-24))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-27 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-12 1 e-7) clam-24))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (vector 13 e-6 e-8))))))))))))))))))))))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-5 (vector-ref sc4 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) e-2 clam-24))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-24))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-24))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-24))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-97) (let ((sc9 lamc-0)) (let ((e-16 (car sc9))) (let ((e-11 (cdr sc9))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-97))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-17 (vector-ref sc10 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc10 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 0 e-17) clam-97))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-18 (vector-ref sc11 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc11 1))) (vector 1 (cons e-16 e-18))))))))))))))))) e-9 '() clam-24))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-24))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-24))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 14 e-11))))))))))))))))))))))))))))))))))) ((10) (vector 1 (vector 16 (vector 1 "Type") '()))) ((9) (vector 1 (vector 16 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-24))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) e-6 clam-24))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-24)))))))))))))))))))))))))))(else (lambda (clam-98) (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-5 (vector-ref sc3 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) e-2 clam-98))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-98))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-98))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-98))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-99) (let ((sc8 lamc-0)) (let ((e-12 (car sc8))) (let ((e-11 (cdr sc8))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-99))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 0 e-13) clam-99))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc10 1))) (vector 1 (cons e-12 e-14))))))))))))))))) e-9 '() clam-98))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-98))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-98))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 14 e-11))))))))))))))))))))))))))))))))))) ((10) (vector 1 (vector 16 (vector 1 "Type") '()))) ((9) (vector 1 (vector 16 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-98))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) e-6 clam-98))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-98)))))))))))))))))))))))) ((equal? sc2 0) (lambda (clam-25) (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-22 (vector-ref sc3 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 e-22 "Function types not allowed in a foreign struct") clam-25)))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-5 (vector-ref sc3 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) e-2 clam-25))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-25))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-25))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-25))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-101) (let ((sc8 lamc-0)) (let ((e-12 (car sc8))) (let ((e-11 (cdr sc8))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-101))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 0 e-13) clam-101))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc10 1))) (vector 1 (cons e-12 e-14))))))))))))))))) e-9 '() clam-25))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-25))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-25))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 14 e-11))))))))))))))))))))))))))))))))))) ((10) (vector 1 (vector 16 (vector 1 "Type") '()))) ((9) (vector 1 (vector 16 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-25))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) e-6 clam-25))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-25))))))))))))))))))))))))(else (lambda (clam-102) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-5 (vector-ref sc2 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) e-2 clam-102))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-102))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc5 1))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-102))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-102))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-103) (let ((sc7 lamc-0)) (let ((e-12 (car sc7))) (let ((e-11 (cdr sc7))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-103))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 0 e-13) clam-103))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc9 1))) (vector 1 (cons e-12 e-14))))))))))))))))) e-9 '() clam-102))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-102))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-102))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 14 e-11))))))))))))))))))))))))))))))))))) ((10) (vector 1 (vector 16 (vector 1 "Type") '()))) ((9) (vector 1 (vector 16 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-102))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) e-6 clam-102))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-102))))))))))))))))))))))))))))(else (let ((sc1 arg-2)) (cond ((equal? sc1 1) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((0) (let ((e-12 (vector-ref sc2 1))) (let ((e-14 (vector-ref sc2 3))) (let ((e-15 (vector-ref sc2 4))) (lambda (clam-26) (let ((sc3 e-14)) (case (vector-ref sc3 0) ((2) (let ((e-20 (vector-ref sc3 4))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-12 1 e-20) clam-26))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (((e-15 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 e-12 1))) clam-26))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-27 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-12 1 e-7) clam-26))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc7 1))) (vector 1 (vector 13 e-6 e-8))))))))))))))))))))))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-5 (vector-ref sc3 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) e-2 clam-26))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-26))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-26))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-26))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-105) (let ((sc8 lamc-0)) (let ((e-16 (car sc8))) (let ((e-11 (cdr sc8))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-105))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-17 (vector-ref sc9 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc9 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 0 e-17) clam-105))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-18 (vector-ref sc10 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc10 1))) (vector 1 (cons e-16 e-18))))))))))))))))) e-9 '() clam-26))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-26))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-26))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 14 e-11))))))))))))))))))))))))))))))))))) ((10) (vector 1 (vector 16 (vector 1 "Type") '()))) ((9) (vector 1 (vector 16 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-26))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) e-6 clam-26))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-26)))))))))))))))))))))))))))(else (lambda (clam-106) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-5 (vector-ref sc2 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) e-2 clam-106))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-106))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc5 1))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-106))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-106))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-107) (let ((sc7 lamc-0)) (let ((e-12 (car sc7))) (let ((e-11 (cdr sc7))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-107))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 0 e-13) clam-107))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc9 1))) (vector 1 (cons e-12 e-14))))))))))))))))) e-9 '() clam-106))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-106))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-106))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 14 e-11))))))))))))))))))))))))))))))))))) ((10) (vector 1 (vector 16 (vector 1 "Type") '()))) ((9) (vector 1 (vector 16 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-106))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) e-6 clam-106))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-106)))))))))))))))))))))))) ((equal? sc1 0) (lambda (clam-27) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((0) (let ((e-22 (vector-ref sc2 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 e-22 "Function types not allowed in a foreign struct") clam-27)))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-5 (vector-ref sc2 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) e-2 clam-27))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-27))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc5 1))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-27))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-27))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-109) (let ((sc7 lamc-0)) (let ((e-12 (car sc7))) (let ((e-11 (cdr sc7))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-109))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 0 e-13) clam-109))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc9 1))) (vector 1 (cons e-12 e-14))))))))))))))))) e-9 '() clam-27))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-27))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-27))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 14 e-11))))))))))))))))))))))))))))))))))) ((10) (vector 1 (vector 16 (vector 1 "Type") '()))) ((9) (vector 1 (vector 16 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-27))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) e-6 clam-27))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-27))))))))))))))))))))))))(else (lambda (clam-110) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((3) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((e-5 (vector-ref sc1 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) e-2 clam-110))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-110))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-110))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-110))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc5 1))) (let ((e-9 (vector-ref sc5 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-111) (let ((sc6 lamc-0)) (let ((e-12 (car sc6))) (let ((e-11 (cdr sc6))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-111))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-13 (vector-ref sc7 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc7 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 0 e-13) clam-111))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-14 (vector-ref sc8 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc8 1))) (vector 1 (cons e-12 e-14))))))))))))))))) e-9 '() clam-110))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-11 (vector-ref sc6 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc6 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-110))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-110))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 14 e-11))))))))))))))))))))))))))))))))))) ((10) (vector 1 (vector 16 (vector 1 "Type") '()))) ((9) (vector 1 (vector 16 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-110))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) e-6 clam-110))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-110)))))))))))))))))))))))))))))) ((equal? sc0 0) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((8) (let ((e-34 (vector-ref sc1 2))) (let ((sc2 e-34)) (case (vector-ref sc2 0) ((24) (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 arg-1 "String not allowed in a foreign struct") eta-0)))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((8) (let ((e-28 (vector-ref sc2 2))) (let ((sc3 e-28)) (case (vector-ref sc3 0) ((26) (lambda (eta-0) (vector 1 (vector 7 )))) ((25) (lambda (eta-0) (vector 1 (vector 8 )))) ((27) (lambda (eta-0) (vector 1 (vector 12 ))))(else (let ((sc3 arg-2)) (cond ((equal? sc3 1) (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((0) (let ((e-12 (vector-ref sc4 1))) (let ((e-14 (vector-ref sc4 3))) (let ((e-15 (vector-ref sc4 4))) (lambda (clam-28) (let ((sc5 e-14)) (case (vector-ref sc5 0) ((2) (let ((e-20 (vector-ref sc5 4))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-12 1 e-20) clam-28))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc7 1))) (let ((act-26 (((e-15 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 e-12 1))) clam-28))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-27 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-12 1 e-7) clam-28))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc9 1))) (vector 1 (vector 13 e-6 e-8))))))))))))))))))))))))(else (let ((sc5 arg-3)) (case (vector-ref sc5 0) ((3) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((e-5 (vector-ref sc5 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-6 (vector-ref sc6 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) e-2 clam-28))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-28))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (let ((sc9 e-8)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-28))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-10 (vector-ref sc10 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc10 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-28))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc11 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc9 1))) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-113) (let ((sc10 lamc-0)) (let ((e-16 (car sc10))) (let ((e-11 (cdr sc10))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-113))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-17 (vector-ref sc11 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc11 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 0 e-17) clam-113))) (let ((sc12 act-28)) (case (vector-ref sc12 0) ((0) (let ((e-18 (vector-ref sc12 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc12 1))) (vector 1 (cons e-16 e-18))))))))))))))))) e-9 '() clam-28))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc9 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-28))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-10 (vector-ref sc10 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc10 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-28))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc11 1))) (vector 1 (vector 14 e-11))))))))))))))))))))))))))))))))))) ((10) (vector 1 (vector 16 (vector 1 "Type") '()))) ((9) (vector 1 (vector 16 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-28))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) e-6 clam-28))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc7 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-28)))))))))))))))))))))))))))(else (lambda (clam-114) (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-5 (vector-ref sc4 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) e-2 clam-114))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-114))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-114))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-114))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-115) (let ((sc9 lamc-0)) (let ((e-12 (car sc9))) (let ((e-11 (cdr sc9))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-115))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-13 (vector-ref sc10 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc10 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 0 e-13) clam-115))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-14 (vector-ref sc11 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc11 1))) (vector 1 (cons e-12 e-14))))))))))))))))) e-9 '() clam-114))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-114))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-114))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 14 e-11))))))))))))))))))))))))))))))))))) ((10) (vector 1 (vector 16 (vector 1 "Type") '()))) ((9) (vector 1 (vector 16 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-114))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) e-6 clam-114))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-114)))))))))))))))))))))))) ((equal? sc3 0) (lambda (clam-29) (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((0) (let ((e-22 (vector-ref sc4 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 e-22 "Function types not allowed in a foreign struct") clam-29)))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-5 (vector-ref sc4 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) e-2 clam-29))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-29))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-29))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-29))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-117) (let ((sc9 lamc-0)) (let ((e-12 (car sc9))) (let ((e-11 (cdr sc9))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-117))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-13 (vector-ref sc10 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc10 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 0 e-13) clam-117))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-14 (vector-ref sc11 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc11 1))) (vector 1 (cons e-12 e-14))))))))))))))))) e-9 '() clam-29))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-29))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-29))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 14 e-11))))))))))))))))))))))))))))))))))) ((10) (vector 1 (vector 16 (vector 1 "Type") '()))) ((9) (vector 1 (vector 16 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-29))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) e-6 clam-29))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-29))))))))))))))))))))))))(else (lambda (clam-118) (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-5 (vector-ref sc3 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) e-2 clam-118))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-118))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-118))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-118))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-119) (let ((sc8 lamc-0)) (let ((e-12 (car sc8))) (let ((e-11 (cdr sc8))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-119))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 0 e-13) clam-119))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc10 1))) (vector 1 (cons e-12 e-14))))))))))))))))) e-9 '() clam-118))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-118))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-118))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 14 e-11))))))))))))))))))))))))))))))))))) ((10) (vector 1 (vector 16 (vector 1 "Type") '()))) ((9) (vector 1 (vector 16 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-118))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) e-6 clam-118))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-118))))))))))))))))))))))))))))(else (let ((sc2 arg-2)) (cond ((equal? sc2 1) (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-12 (vector-ref sc3 1))) (let ((e-14 (vector-ref sc3 3))) (let ((e-15 (vector-ref sc3 4))) (lambda (clam-30) (let ((sc4 e-14)) (case (vector-ref sc4 0) ((2) (let ((e-20 (vector-ref sc4 4))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-12 1 e-20) clam-30))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-26 (((e-15 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 e-12 1))) clam-30))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-27 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-12 1 e-7) clam-30))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (vector 13 e-6 e-8))))))))))))))))))))))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-5 (vector-ref sc4 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) e-2 clam-30))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-30))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-30))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-30))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-121) (let ((sc9 lamc-0)) (let ((e-16 (car sc9))) (let ((e-11 (cdr sc9))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-121))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-17 (vector-ref sc10 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc10 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 0 e-17) clam-121))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-18 (vector-ref sc11 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc11 1))) (vector 1 (cons e-16 e-18))))))))))))))))) e-9 '() clam-30))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-30))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-30))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 14 e-11))))))))))))))))))))))))))))))))))) ((10) (vector 1 (vector 16 (vector 1 "Type") '()))) ((9) (vector 1 (vector 16 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-30))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) e-6 clam-30))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-30)))))))))))))))))))))))))))(else (lambda (clam-122) (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-5 (vector-ref sc3 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) e-2 clam-122))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-122))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-122))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-122))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-123) (let ((sc8 lamc-0)) (let ((e-12 (car sc8))) (let ((e-11 (cdr sc8))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-123))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 0 e-13) clam-123))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc10 1))) (vector 1 (cons e-12 e-14))))))))))))))))) e-9 '() clam-122))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-122))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-122))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 14 e-11))))))))))))))))))))))))))))))))))) ((10) (vector 1 (vector 16 (vector 1 "Type") '()))) ((9) (vector 1 (vector 16 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-122))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) e-6 clam-122))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-122)))))))))))))))))))))))) ((equal? sc2 0) (lambda (clam-31) (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-22 (vector-ref sc3 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 e-22 "Function types not allowed in a foreign struct") clam-31)))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-5 (vector-ref sc3 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) e-2 clam-31))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-31))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-31))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-31))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-125) (let ((sc8 lamc-0)) (let ((e-12 (car sc8))) (let ((e-11 (cdr sc8))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-125))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 0 e-13) clam-125))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc10 1))) (vector 1 (cons e-12 e-14))))))))))))))))) e-9 '() clam-31))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-31))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-31))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 14 e-11))))))))))))))))))))))))))))))))))) ((10) (vector 1 (vector 16 (vector 1 "Type") '()))) ((9) (vector 1 (vector 16 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-31))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) e-6 clam-31))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-31))))))))))))))))))))))))(else (lambda (clam-126) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-5 (vector-ref sc2 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) e-2 clam-126))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-126))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc5 1))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-126))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-126))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-127) (let ((sc7 lamc-0)) (let ((e-12 (car sc7))) (let ((e-11 (cdr sc7))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-127))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 0 e-13) clam-127))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc9 1))) (vector 1 (cons e-12 e-14))))))))))))))))) e-9 '() clam-126))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-126))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-126))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 14 e-11))))))))))))))))))))))))))))))))))) ((10) (vector 1 (vector 16 (vector 1 "Type") '()))) ((9) (vector 1 (vector 16 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-126))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) e-6 clam-126))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-126)))))))))))))))))))))))))))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((8) (let ((e-28 (vector-ref sc1 2))) (let ((sc2 e-28)) (case (vector-ref sc2 0) ((26) (lambda (eta-0) (vector 1 (vector 7 )))) ((25) (lambda (eta-0) (vector 1 (vector 8 )))) ((27) (lambda (eta-0) (vector 1 (vector 12 ))))(else (let ((sc2 arg-2)) (cond ((equal? sc2 1) (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-12 (vector-ref sc3 1))) (let ((e-14 (vector-ref sc3 3))) (let ((e-15 (vector-ref sc3 4))) (lambda (clam-32) (let ((sc4 e-14)) (case (vector-ref sc4 0) ((2) (let ((e-20 (vector-ref sc4 4))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-12 1 e-20) clam-32))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-26 (((e-15 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 e-12 1))) clam-32))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-27 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-12 1 e-7) clam-32))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (vector 13 e-6 e-8))))))))))))))))))))))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-5 (vector-ref sc4 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) e-2 clam-32))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-32))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-32))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-32))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-129) (let ((sc9 lamc-0)) (let ((e-16 (car sc9))) (let ((e-11 (cdr sc9))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-129))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-17 (vector-ref sc10 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc10 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 0 e-17) clam-129))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-18 (vector-ref sc11 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc11 1))) (vector 1 (cons e-16 e-18))))))))))))))))) e-9 '() clam-32))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-32))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-32))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 14 e-11))))))))))))))))))))))))))))))))))) ((10) (vector 1 (vector 16 (vector 1 "Type") '()))) ((9) (vector 1 (vector 16 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-32))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) e-6 clam-32))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-32)))))))))))))))))))))))))))(else (lambda (clam-130) (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-5 (vector-ref sc3 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) e-2 clam-130))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-130))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-130))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-130))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-131) (let ((sc8 lamc-0)) (let ((e-12 (car sc8))) (let ((e-11 (cdr sc8))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-131))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 0 e-13) clam-131))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc10 1))) (vector 1 (cons e-12 e-14))))))))))))))))) e-9 '() clam-130))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-130))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-130))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 14 e-11))))))))))))))))))))))))))))))))))) ((10) (vector 1 (vector 16 (vector 1 "Type") '()))) ((9) (vector 1 (vector 16 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-130))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) e-6 clam-130))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-130)))))))))))))))))))))))) ((equal? sc2 0) (lambda (clam-33) (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-22 (vector-ref sc3 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 e-22 "Function types not allowed in a foreign struct") clam-33)))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-5 (vector-ref sc3 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) e-2 clam-33))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-33))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-33))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-33))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-133) (let ((sc8 lamc-0)) (let ((e-12 (car sc8))) (let ((e-11 (cdr sc8))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-133))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 0 e-13) clam-133))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc10 1))) (vector 1 (cons e-12 e-14))))))))))))))))) e-9 '() clam-33))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-33))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-33))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 14 e-11))))))))))))))))))))))))))))))))))) ((10) (vector 1 (vector 16 (vector 1 "Type") '()))) ((9) (vector 1 (vector 16 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-33))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) e-6 clam-33))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-33))))))))))))))))))))))))(else (lambda (clam-134) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-5 (vector-ref sc2 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) e-2 clam-134))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-134))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc5 1))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-134))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-134))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-135) (let ((sc7 lamc-0)) (let ((e-12 (car sc7))) (let ((e-11 (cdr sc7))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-135))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 0 e-13) clam-135))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc9 1))) (vector 1 (cons e-12 e-14))))))))))))))))) e-9 '() clam-134))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-134))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-134))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 14 e-11))))))))))))))))))))))))))))))))))) ((10) (vector 1 (vector 16 (vector 1 "Type") '()))) ((9) (vector 1 (vector 16 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-134))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) e-6 clam-134))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-134))))))))))))))))))))))))))))(else (let ((sc1 arg-2)) (cond ((equal? sc1 1) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((0) (let ((e-12 (vector-ref sc2 1))) (let ((e-14 (vector-ref sc2 3))) (let ((e-15 (vector-ref sc2 4))) (lambda (clam-34) (let ((sc3 e-14)) (case (vector-ref sc3 0) ((2) (let ((e-20 (vector-ref sc3 4))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-12 1 e-20) clam-34))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (((e-15 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 e-12 1))) clam-34))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-27 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-12 1 e-7) clam-34))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc7 1))) (vector 1 (vector 13 e-6 e-8))))))))))))))))))))))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-5 (vector-ref sc3 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) e-2 clam-34))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-34))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-34))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-34))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-137) (let ((sc8 lamc-0)) (let ((e-16 (car sc8))) (let ((e-11 (cdr sc8))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-137))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-17 (vector-ref sc9 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc9 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 0 e-17) clam-137))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-18 (vector-ref sc10 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc10 1))) (vector 1 (cons e-16 e-18))))))))))))))))) e-9 '() clam-34))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-34))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-34))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 14 e-11))))))))))))))))))))))))))))))))))) ((10) (vector 1 (vector 16 (vector 1 "Type") '()))) ((9) (vector 1 (vector 16 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-34))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) e-6 clam-34))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-34)))))))))))))))))))))))))))(else (lambda (clam-138) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-5 (vector-ref sc2 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) e-2 clam-138))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-138))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc5 1))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-138))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-138))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-139) (let ((sc7 lamc-0)) (let ((e-12 (car sc7))) (let ((e-11 (cdr sc7))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-139))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 0 e-13) clam-139))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc9 1))) (vector 1 (cons e-12 e-14))))))))))))))))) e-9 '() clam-138))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-138))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-138))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 14 e-11))))))))))))))))))))))))))))))))))) ((10) (vector 1 (vector 16 (vector 1 "Type") '()))) ((9) (vector 1 (vector 16 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-138))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) e-6 clam-138))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-138)))))))))))))))))))))))) ((equal? sc1 0) (lambda (clam-35) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((0) (let ((e-22 (vector-ref sc2 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 e-22 "Function types not allowed in a foreign struct") clam-35)))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-5 (vector-ref sc2 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) e-2 clam-35))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-35))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc5 1))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-35))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-35))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-141) (let ((sc7 lamc-0)) (let ((e-12 (car sc7))) (let ((e-11 (cdr sc7))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-141))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 0 e-13) clam-141))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc9 1))) (vector 1 (cons e-12 e-14))))))))))))))))) e-9 '() clam-35))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-35))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-35))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 14 e-11))))))))))))))))))))))))))))))))))) ((10) (vector 1 (vector 16 (vector 1 "Type") '()))) ((9) (vector 1 (vector 16 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-35))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) e-6 clam-35))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-35))))))))))))))))))))))))(else (lambda (clam-142) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((3) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((e-5 (vector-ref sc1 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) e-2 clam-142))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-142))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-142))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-142))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc5 1))) (let ((e-9 (vector-ref sc5 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-143) (let ((sc6 lamc-0)) (let ((e-12 (car sc6))) (let ((e-11 (cdr sc6))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-143))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-13 (vector-ref sc7 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc7 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 0 e-13) clam-143))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-14 (vector-ref sc8 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc8 1))) (vector 1 (cons e-12 e-14))))))))))))))))) e-9 '() clam-142))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-11 (vector-ref sc6 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc6 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-142))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-142))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 14 e-11))))))))))))))))))))))))))))))))))) ((10) (vector 1 (vector 16 (vector 1 "Type") '()))) ((9) (vector 1 (vector 16 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-142))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) e-6 clam-142))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-142))))))))))))))))))))))))))))))(else (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((8) (let ((e-28 (vector-ref sc0 2))) (let ((sc1 e-28)) (case (vector-ref sc1 0) ((26) (lambda (eta-0) (vector 1 (vector 7 )))) ((25) (lambda (eta-0) (vector 1 (vector 8 )))) ((27) (lambda (eta-0) (vector 1 (vector 12 ))))(else (let ((sc1 arg-2)) (cond ((equal? sc1 1) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((0) (let ((e-12 (vector-ref sc2 1))) (let ((e-14 (vector-ref sc2 3))) (let ((e-15 (vector-ref sc2 4))) (lambda (clam-36) (let ((sc3 e-14)) (case (vector-ref sc3 0) ((2) (let ((e-20 (vector-ref sc3 4))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-12 1 e-20) clam-36))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (((e-15 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 e-12 1))) clam-36))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-27 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-12 1 e-7) clam-36))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc7 1))) (vector 1 (vector 13 e-6 e-8))))))))))))))))))))))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-5 (vector-ref sc3 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) e-2 clam-36))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-36))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-36))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-36))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-145) (let ((sc8 lamc-0)) (let ((e-16 (car sc8))) (let ((e-11 (cdr sc8))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-145))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-17 (vector-ref sc9 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc9 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 0 e-17) clam-145))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-18 (vector-ref sc10 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc10 1))) (vector 1 (cons e-16 e-18))))))))))))))))) e-9 '() clam-36))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-36))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-36))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 14 e-11))))))))))))))))))))))))))))))))))) ((10) (vector 1 (vector 16 (vector 1 "Type") '()))) ((9) (vector 1 (vector 16 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-36))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) e-6 clam-36))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-36)))))))))))))))))))))))))))(else (lambda (clam-146) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-5 (vector-ref sc2 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) e-2 clam-146))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-146))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc5 1))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-146))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-146))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-147) (let ((sc7 lamc-0)) (let ((e-12 (car sc7))) (let ((e-11 (cdr sc7))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-147))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 0 e-13) clam-147))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc9 1))) (vector 1 (cons e-12 e-14))))))))))))))))) e-9 '() clam-146))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-146))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-146))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 14 e-11))))))))))))))))))))))))))))))))))) ((10) (vector 1 (vector 16 (vector 1 "Type") '()))) ((9) (vector 1 (vector 16 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-146))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) e-6 clam-146))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-146)))))))))))))))))))))))) ((equal? sc1 0) (lambda (clam-37) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((0) (let ((e-22 (vector-ref sc2 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 e-22 "Function types not allowed in a foreign struct") clam-37)))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-5 (vector-ref sc2 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) e-2 clam-37))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-37))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc5 1))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-37))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-37))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-149) (let ((sc7 lamc-0)) (let ((e-12 (car sc7))) (let ((e-11 (cdr sc7))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-149))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 0 e-13) clam-149))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc9 1))) (vector 1 (cons e-12 e-14))))))))))))))))) e-9 '() clam-37))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-37))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-37))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 14 e-11))))))))))))))))))))))))))))))))))) ((10) (vector 1 (vector 16 (vector 1 "Type") '()))) ((9) (vector 1 (vector 16 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-37))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) e-6 clam-37))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-37))))))))))))))))))))))))(else (lambda (clam-150) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((3) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((e-5 (vector-ref sc1 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) e-2 clam-150))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-150))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-150))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-150))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc5 1))) (let ((e-9 (vector-ref sc5 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-151) (let ((sc6 lamc-0)) (let ((e-12 (car sc6))) (let ((e-11 (cdr sc6))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-151))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-13 (vector-ref sc7 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc7 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 0 e-13) clam-151))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-14 (vector-ref sc8 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc8 1))) (vector 1 (cons e-12 e-14))))))))))))))))) e-9 '() clam-150))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-11 (vector-ref sc6 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc6 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-150))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-150))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 14 e-11))))))))))))))))))))))))))))))))))) ((10) (vector 1 (vector 16 (vector 1 "Type") '()))) ((9) (vector 1 (vector 16 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-150))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) e-6 clam-150))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-150))))))))))))))))))))))))))))(else (let ((sc0 arg-2)) (cond ((equal? sc0 1) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (let ((e-12 (vector-ref sc1 1))) (let ((e-14 (vector-ref sc1 3))) (let ((e-15 (vector-ref sc1 4))) (lambda (clam-38) (let ((sc2 e-14)) (case (vector-ref sc2 0) ((2) (let ((e-20 (vector-ref sc2 4))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-12 1 e-20) clam-38))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (((e-15 e-5) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 e-12 1))) clam-38))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-27 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-12 1 e-7) clam-38))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc6 1))) (vector 1 (vector 13 e-6 e-8))))))))))))))))))))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-5 (vector-ref sc2 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) e-2 clam-38))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-38))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc5 1))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-38))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-38))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-153) (let ((sc7 lamc-0)) (let ((e-16 (car sc7))) (let ((e-11 (cdr sc7))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-153))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-17 (vector-ref sc8 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc8 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 0 e-17) clam-153))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-18 (vector-ref sc9 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc9 1))) (vector 1 (cons e-16 e-18))))))))))))))))) e-9 '() clam-38))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-38))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-38))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 14 e-11))))))))))))))))))))))))))))))))))) ((10) (vector 1 (vector 16 (vector 1 "Type") '()))) ((9) (vector 1 (vector 16 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-38))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) e-6 clam-38))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-38)))))))))))))))))))))))))))(else (lambda (clam-154) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((3) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((e-5 (vector-ref sc1 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) e-2 clam-154))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-154))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-154))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-154))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc5 1))) (let ((e-9 (vector-ref sc5 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-155) (let ((sc6 lamc-0)) (let ((e-12 (car sc6))) (let ((e-11 (cdr sc6))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-155))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-13 (vector-ref sc7 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc7 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 0 e-13) clam-155))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-14 (vector-ref sc8 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc8 1))) (vector 1 (cons e-12 e-14))))))))))))))))) e-9 '() clam-154))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-11 (vector-ref sc6 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc6 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-154))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-154))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 14 e-11))))))))))))))))))))))))))))))))))) ((10) (vector 1 (vector 16 (vector 1 "Type") '()))) ((9) (vector 1 (vector 16 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-154))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) e-6 clam-154))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-154)))))))))))))))))))))))) ((equal? sc0 0) (lambda (clam-39) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (let ((e-22 (vector-ref sc1 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 e-22 "Function types not allowed in a foreign struct") clam-39)))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((3) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((e-5 (vector-ref sc1 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) e-2 clam-39))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-39))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-39))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-39))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc5 1))) (let ((e-9 (vector-ref sc5 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-157) (let ((sc6 lamc-0)) (let ((e-12 (car sc6))) (let ((e-11 (cdr sc6))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-157))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-13 (vector-ref sc7 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc7 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 0 e-13) clam-157))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-14 (vector-ref sc8 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc8 1))) (vector 1 (cons e-12 e-14))))))))))))))))) e-9 '() clam-39))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-11 (vector-ref sc6 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc6 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-39))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-39))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 14 e-11))))))))))))))))))))))))))))))))))) ((10) (vector 1 (vector 16 (vector 1 "Type") '()))) ((9) (vector 1 (vector 16 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-39))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) e-6 clam-39))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-39))))))))))))))))))))))))(else (lambda (clam-158) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 5))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) e-2 clam-158))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-26 ((CompilerC-45CompileExpr-getNArgs arg-0 e-6 e-7 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-5)) clam-158))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-8 (vector-ref sc3 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Normalise-evalClosure arg-0 '() e-6 eta-0)) e-9 '() clam-158))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-28 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 eta-0)) e-10 '() clam-158))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-11 (vector-ref sc6 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc6 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-159) (let ((sc5 lamc-0)) (let ((e-12 (car sc5))) (let ((e-11 (cdr sc5))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-11) clam-159))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-13 (vector-ref sc6 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc6 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 0 e-13) clam-159))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-14 (vector-ref sc7 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc7 1))) (vector 1 (cons e-12 e-14))))))))))))))))) e-9 '() clam-158))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-11 (vector-ref sc5 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc5 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-27 ((CoreC-45Normalise-evalClosure arg-0 '() e-6 e-9) clam-158))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-28 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 arg-2 e-10) clam-158))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-11 (vector-ref sc6 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc6 1))) (vector 1 (vector 14 e-11))))))))))))))))))))))))))))))))))) ((10) (vector 1 (vector 16 (vector 1 "Type") '()))) ((9) (vector 1 (vector 16 (vector 1 "__") '())))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (CoreC-45Normalise-u--quote_Quote_NF arg-0 '() e-5 '() arg-3 clam-158))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) e-6 clam-158))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc arg-3) (PreludeC-45TypesC-45String-C-43C-43 "Can't marshal type for foreign call " (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 '() e-7))) clam-158)))))))))))))))))))))))))))))))))) -(define CompilerC-45CompileExpr-natMinus (lambda (arg-0 arg-1 arg-3) (let ((sc0 arg-3)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-3)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (let ((sc2 e-7)) (vector 4 arg-0 (vector 1 arg-1 (vector 1 "prim__sub_Integer")) (cons e-2 (cons e-6 '())))))))))))) -(define CompilerC-45CompileExpr-natHack (lambda () (cons (vector 1 (vector 0 (CoreC-45NameC-45Namespace-typesNS) (vector 1 "natToInteger")) (+ 1 0) (lambda (_-2917) (lambda (_-2919) (lambda (vars-2921) (lambda (lamc-0) (let ((sc0 lamc-0)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-3)) e-2))))))))) (cons (vector 1 (vector 0 (CoreC-45NameC-45Namespace-typesNS) (vector 1 "integerToNat")) (+ 1 0) (lambda (u--fc) (lambda (u--fcC-39) (lambda (vars-2900) (lambda (lamc-0) (let ((sc0 lamc-0)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-3)) (vector 4 u--fc (vector 1 u--fcC-39 (vector 0 (CoreC-45NameC-45Namespace-typesNS) (vector 1 "prim__integerToNat"))) (cons e-2 '()))))))))))) (cons (vector 1 (vector 0 (CoreC-45NameC-45Namespace-typesNS) (vector 1 "plus")) (+ 1 (+ 1 0)) (lambda (u--fc) (lambda (u--fcC-39) (lambda (vars-2881) (lambda (lamc-0) (let ((sc0 lamc-0)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-3)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (let ((sc2 e-7)) (vector 4 u--fc (vector 1 u--fcC-39 (vector 1 "prim__add_Integer")) (cons e-2 (cons e-6 '()))))))))))))))) (cons (vector 1 (vector 0 (CoreC-45NameC-45Namespace-typesNS) (vector 1 "mult")) (+ 1 (+ 1 0)) (lambda (u--fc) (lambda (u--fcC-39) (lambda (vars-2862) (lambda (lamc-0) (let ((sc0 lamc-0)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-3)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (let ((sc2 e-7)) (vector 4 u--fc (vector 1 u--fcC-39 (vector 1 "prim__mul_Integer")) (cons e-2 (cons e-6 '()))))))))))))))) (cons (vector 1 (vector 0 (CoreC-45NameC-45Namespace-natNS) (vector 1 "minus")) (+ 1 (+ 1 0)) (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (CompilerC-45CompileExpr-natMinus eta-0 eta-1 eta-3)))))) '()))))))) -(define CompilerC-45CompileExpr-natBranch (lambda (arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-1 (vector-ref sc0 1))) (CompilerC-45CompileExpr-isNatCon arg-1 arg-2 e-1))))) -(define CompilerC-45CompileExpr-mkSub (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (if (null? sc0) (cons arg-1 (vector 0 )) (let ((sc1 arg-1)) (if (null? sc1) (cons '() (vector 0 )) (let ((e-2 (car sc1))) (let ((e-3 (cdr sc1))) (CompilerC-45CompileExpr-case--mkSub-2080 e-2 e-3 arg-2 arg-0 (CompilerC-45CompileExpr-mkSub (+ 1 arg-0) e-3 arg-2)))))))))) -(define CompilerC-45CompileExpr-mkForgetDef (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact arg-1 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((_-0 (vector 1 e-1))) ((CompilerC-45CompileExpr-case--caseC-32blockC-32inC-32mkForgetDef-7210 arg-1 arg-0 e-5 e-1 _-0 (let ((sc3 e-1)) (let ((e-18 (vector-ref sc3 19))) e-18))) ext-0)))) (else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 (PreludeC-45TypesC-45String-C-43C-43 "Trying to compile unknown name " (CoreC-45Name-u--show_Show_Name arg-1))) ext-0)))))))))))))))) -(define CompilerC-45CompileExpr-mkDropSubst (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (if (null? sc0) (cons '() (vector 0 )) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (CompilerC-45CompileExpr-case--mkDropSubst-2615 e-2 e-3 arg-2 arg-1 arg-0 (CompilerC-45CompileExpr-mkDropSubst (PreludeC-45Types-u--C-43_Num_Nat (+ 1 0) arg-0) arg-1 arg-2 e-3)))))))) -(define CompilerC-45CompileExpr-mkArgList (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (cons '() '()))(else (let ((e-0 (- arg-1 1))) (CompilerC-45CompileExpr-case--mkArgList-5388 e-0 arg-0 (CompilerC-45CompileExpr-mkArgList (bs+ arg-0 1 63) e-0)))))))) -(define CompilerC-45CompileExpr-magic (lambda (arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (vector 2 e-1 e-2 (CompilerC-45CompileExpr-magic arg-1 e-3))))))(else (CompilerC-45CompileExpr-n--10477-2707-u--go arg-2 arg-1 arg-1 arg-2)))))) -(define CompilerC-45CompileExpr-isNatCon (lambda (arg-0 arg-1 arg-2) (PreludeC-45Basics-C-124C-124 (DataC-45Maybe-isJust (LibrariesC-45DataC-45NameMap-lookup arg-2 arg-0)) (lambda () (DataC-45Maybe-isJust (LibrariesC-45DataC-45NameMap-lookup arg-2 arg-1)))))) -(define CompilerC-45CompileExpr-isFiniteEnum (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (PreludeC-45Basics-C-124C-124 (PreludeC-45Basics-C-38C-38 (PreludeC-45Basics-C-124C-124 (PreludeC-45EqOrd-u--C-61C-61_Eq_String e-2 "True") (lambda () (PreludeC-45EqOrd-u--C-61C-61_Eq_String e-2 "False"))) (lambda () (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace e-0 (CoreC-45NameC-45Namespace-basicsNS)))) (lambda () (PreludeC-45Basics-C-38C-38 (PreludeC-45Basics-C-124C-124 (PreludeC-45EqOrd-u--C-61C-61_Eq_String e-2 "LT") (lambda () (PreludeC-45Basics-C-124C-124 (PreludeC-45EqOrd-u--C-61C-61_Eq_String e-2 "EQ") (lambda () (PreludeC-45EqOrd-u--C-61C-61_Eq_String e-2 "GT"))))) (lambda () (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace e-0 (CoreC-45NameC-45Namespace-eqOrdNS))))))))(else 1))))))(else 1))))) -(define CompilerC-45CompileExpr-getZBranch (lambda (arg-1 arg-2) (let ((sc0 arg-2)) (if (null? sc0) (vector 0 ) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40MaybeC-32C-36aC-41 (CompilerC-45CompileExpr-tryZBranch arg-1 e-2) (CompilerC-45CompileExpr-getZBranch arg-1 e-3)))))))) -(define CompilerC-45CompileExpr-getSBranch (lambda (arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (if (null? sc0) (vector 0 ) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40MaybeC-32C-36aC-41 (CompilerC-45CompileExpr-trySBranch arg-1 arg-2 e-2) (CompilerC-45CompileExpr-getSBranch arg-1 arg-2 e-3)))))))) -(define CompilerC-45CompileExpr-getPArgs (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 ((CoreC-45Normalise-evalClosure arg-0 '() arg-1 arg-2) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((2) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((e-3 (vector-ref sc1 3))) (let ((e-4 (vector-ref sc1 4))) (let ((e-6 (vector-ref sc1 5))) (let ((_-0 (vector 2 e-1 e-2 e-3 e-4 e-6))) (CompilerC-45CompileExpr-case--caseC-32blockC-32inC-32getPArgs-5461 arg-2 arg-1 arg-0 e-2 e-3 e-4 e-6 e-1 _-0 (DataC-45List-reverse (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-6)) ext-0))))))))(else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc e-5) "Badly formed struct type") ext-0))))))))))) -(define CompilerC-45CompileExpr-getNewType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (if (null? sc0) (lambda (eta-0) (vector 1 (vector 0 ))) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((3) (lambda (eta-0) (vector 1 (vector 0 )))) ((0) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((e-9 (vector-ref sc1 3))) (let ((e-10 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (CoreC-45Context-lookupDefExact e-7 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) e-0)) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((sc5 e-1)) (case (vector-ref sc5 0) ((5) (let ((e-4 (vector-ref sc5 3))) (let ((sc6 e-4)) (case (vector-ref sc6 0) ((1) (let ((e-13 (vector-ref sc6 1))) (let ((sc7 e-13)) (if (null? sc7) (vector 1 (vector 0 )) (let ((e-14 (cdr sc7))) (let ((u--env (CompilerC-45CompileExpr-n--12010-4636-u--mkSubst e-9 arg-0 e-10 e-8 e-7 e-3 arg-4 arg-3 arg-2 arg-1 0 arg-3 e-14 e-9))) (let ((act-26 ((CompilerC-45CompileExpr-toCExpTree (PreludeC-45TypesC-45List-C-43C-43 e-9 arg-0) arg-1 arg-4 e-10) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-16 (vector-ref sc8 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc8 1))) (vector 1 (vector 1 (CoreC-45CompileExpr-substs e-9 arg-0 u--env e-16))))))))))))))(else (vector 1 (vector 0 )))))))(else (vector 1 (vector 0 )))))))(else (vector 1 (vector 0 )))))))))))))))))))))(else (CompilerC-45CompileExpr-getNewType arg-0 arg-1 arg-2 arg-3 arg-4 e-3)))))))))) -(define CompilerC-45CompileExpr-getNArgs (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((sc2 e-2)) (cond ((equal? sc2 "IORes") (lambda (clam-0) (let ((sc3 arg-3)) (if (null? sc3) (vector 1 (vector 0 arg-2 arg-3)) (let ((e-4 (car sc3))) (let ((e-5 (cdr sc3))) (let ((sc4 e-5)) (if (null? sc4) (vector 1 (vector 6 e-4)) (vector 1 (vector 0 arg-2 arg-3)))))))))) ((equal? sc2 "Ptr") (lambda (clam-1) (let ((sc3 arg-3)) (if (null? sc3) (vector 1 (vector 0 arg-2 arg-3)) (let ((e-9 (cdr sc3))) (let ((sc4 e-9)) (if (null? sc4) (vector 1 (vector 3 )) (vector 1 (vector 0 arg-2 arg-3))))))))) ((equal? sc2 "AnyPtr") (lambda (clam-2) (let ((sc3 arg-3)) (if (null? sc3) (vector 1 (vector 3 )) (vector 1 (vector 0 arg-2 arg-3)))))) ((equal? sc2 "GCPtr") (lambda (clam-2) (let ((sc3 arg-3)) (if (null? sc3) (vector 1 (vector 0 arg-2 arg-3)) (let ((e-14 (cdr sc3))) (let ((sc4 e-14)) (if (null? sc4) (vector 1 (vector 4 )) (vector 1 (vector 0 arg-2 arg-3))))))))) ((equal? sc2 "GCAnyPtr") (lambda (clam-4) (let ((sc3 arg-3)) (if (null? sc3) (vector 1 (vector 4 )) (vector 1 (vector 0 arg-2 arg-3)))))) ((equal? sc2 "Buffer") (lambda (clam-5) (let ((sc3 arg-3)) (if (null? sc3) (vector 1 (vector 5 )) (vector 1 (vector 0 arg-2 arg-3)))))) ((equal? sc2 "Unit") (lambda (clam-6) (let ((sc3 arg-3)) (if (null? sc3) (vector 1 (vector 2 )) (vector 1 (vector 0 arg-2 arg-3)))))) ((equal? sc2 "Struct") (let ((sc3 arg-3)) (if (null? sc3) (lambda (eta-0) (vector 1 (vector 0 arg-2 arg-3))) (let ((e-20 (car sc3))) (let ((e-21 (cdr sc3))) (lambda (clam-3) (let ((sc4 e-21)) (if (null? sc4) (vector 1 (vector 0 arg-2 arg-3)) (let ((e-23 (car sc4))) (let ((e-24 (cdr sc4))) (let ((sc5 e-24)) (if (null? sc5) (let ((act-24 ((CoreC-45Normalise-evalClosure arg-0 '() arg-1 e-20) clam-3))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc6 1))) (let ((sc7 e-5)) (case (vector-ref sc7 0) ((8) (let ((e-3 (vector-ref sc7 2))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((10) (let ((e-6 (vector-ref sc8 1))) (let ((act-25 (CompilerC-45CompileExpr-getFieldArgs arg-0 arg-1 e-23 clam-3))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-7 (vector-ref sc9 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc9 1))) (vector 1 (vector 1 e-6 e-7)))))))))(else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc e-5) "Unknown name for struct") clam-3))))))(else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc e-5) "Unknown name for struct") clam-3))))))))) (vector 1 (vector 0 arg-2 arg-3))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-2 arg-3))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-2 arg-3))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-2 arg-3)))))))) -(define CompilerC-45CompileExpr-getFieldArgs (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 ((CoreC-45Normalise-evalClosure arg-0 '() arg-1 arg-2) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((2) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((e-3 (vector-ref sc1 3))) (let ((e-4 (vector-ref sc1 4))) (let ((e-6 (vector-ref sc1 5))) (let ((_-0 (vector 2 e-1 e-2 e-3 e-4 e-6))) ((CompilerC-45CompileExpr-case--caseC-32blockC-32inC-32getFieldArgs-5646 arg-2 arg-1 arg-0 e-2 e-3 e-4 e-6 e-1 _-0 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-6)) ext-0))))))))(else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (CoreC-45Value-getLoc e-5) "Badly formed struct type") ext-0))))))))))) -(define CompilerC-45CompileExpr-getDef (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (if (null? sc0) (lambda (eta-0) (vector 1 (vector 0 ))) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((3) (let ((e-5 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 ((CompilerC-45CompileExpr-toCExpTree arg-0 arg-1 arg-2 e-5) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 1 e-6)))))))))) ((2) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((13) (lambda (eta-0) (let ((act-24 ((CompilerC-45CompileExpr-toCExpTree arg-0 arg-1 arg-2 e-8) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (vector 1 (vector 1 e-5)))))))))(else (CompilerC-45CompileExpr-getDef arg-0 arg-1 arg-2 e-3)))))))(else (CompilerC-45CompileExpr-getDef arg-0 arg-1 arg-2 e-3)))))))))) -(define CompilerC-45CompileExpr-getCFTypes (lambda (arg-0 arg-1 arg-2 ext-0) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-9 (vector-ref sc1 4))) (let ((act-24 ((CompilerC-45CompileExpr-nfToCFType arg-0 e-1 1 e-9) ext-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (let ((act-25 (unbox arg-0))) (vector 1 act-25)))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc3 1))) (let ((act-26 (((e-4 e-10) (CoreC-45Normalise-toClosure (CoreC-45Value-defaultOpts) '() (vector 10 e-1 1))) ext-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-11 (vector-ref sc4 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc4 1))) (CompilerC-45CompileExpr-getCFTypes arg-0 (cons e-5 arg-1) e-11 ext-0))))))))))))))))))(else (let ((act-24 ((CompilerC-45CompileExpr-nfToCFType arg-0 (CoreC-45Value-getLoc arg-2) 1 arg-2) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (cons (DataC-45List-reverse arg-1) e-5))))))))))))))(else (let ((act-24 ((CompilerC-45CompileExpr-nfToCFType arg-0 (CoreC-45Value-getLoc arg-2) 1 arg-2) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (cons (DataC-45List-reverse arg-1) e-5)))))))))))) -(define CompilerC-45CompileExpr-expandToArity (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((13) (let ((e-6 (vector-ref sc0 1))) (vector 13 e-6)))(else (let ((sc0 arg-1)) (cond ((equal? sc0 0) (CompilerC-45CompileExpr-n--9970-2271-u--applyAll arg-0 arg-3 arg-2 arg-2 arg-3))(else (let ((e-1 (- arg-1 1))) (let ((sc0 arg-3)) (if (null? sc0) (let ((sc1 arg-3)) (CompilerC-45CompileExpr-etaExpand arg-0 0 arg-1 arg-2 '())) (let ((e-3 (car sc0))) (let ((e-4 (cdr sc0))) (CompilerC-45CompileExpr-expandToArity arg-0 e-1 (CompilerC-45CompileExpr-n--9970-2293-u--addArg arg-0 e-1 e-3 e-4 arg-2 arg-2 e-3) e-4)))))))))))))) -(define CompilerC-45CompileExpr-etaExpand (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (CompilerC-45CompileExpr-n--9870-2171-u--mkApp arg-0 arg-4 arg-3 arg-1 arg-3 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CompilerC-45CompileExpr-n--9870-2170-u--mkLocal arg-0 arg-4 arg-3 arg-1 (CoreC-45CompileExpr-getFC arg-3) eta-0)) (DataC-45List-reverse arg-4))))(else (let ((e-0 (- arg-2 1))) (vector 2 (CoreC-45CompileExpr-getFC arg-3) (vector 2 "eta" arg-1) (CompilerC-45CompileExpr-etaExpand (cons (vector 2 "eta" arg-1) arg-0) (bs+ arg-1 1 63) e-0 (CoreC-45CompileExpr-u--weaken_Weaken_CExp arg-3) (cons 0 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CompilerC-45CompileExpr-weakenVar eta-0)) arg-4)))))))))) -(define CompilerC-45CompileExpr-eraseConArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((u--fnC-39 (CompilerC-45CompileExpr-expandToArity arg-0 arg-1 arg-3 arg-4))) (CompilerC-45CompileExpr-case--eraseConArgs-2559 arg-0 arg-4 arg-3 arg-2 arg-1 u--fnC-39 (let ((sc0 (DataC-45List-isNil arg-2))) (cond ((equal? sc0 0) 1) (else 0))))))) -(define CompilerC-45CompileExpr-dropPos (lambda (arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (vector 2 e-1 e-2 (CompilerC-45CompileExpr-dropPos arg-1 e-3)))))) ((4) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((sc1 e-6)) (case (vector-ref sc1 0) ((4) (vector 4 e-5 (CompilerC-45CompileExpr-dropPos arg-1 e-6) e-7))(else (vector 4 e-5 e-6 (CompilerC-45CompileExpr-dropFrom arg-1 0 e-7))))))))) ((5) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (let ((e-12 (vector-ref sc0 4))) (let ((e-13 (vector-ref sc0 5))) (vector 5 e-9 e-10 e-11 e-12 (CompilerC-45CompileExpr-dropFrom arg-1 0 e-13))))))))(else arg-2))))) -(define CompilerC-45CompileExpr-dropFrom (lambda (arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (if (null? sc0) '() (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (CompilerC-45CompileExpr-case--dropFrom-2467 e-2 e-3 arg-2 arg-1 (PreludeC-45Types-elem (cons (lambda (arg-4) (lambda (arg-5) (PreludeC-45Types-u--C-61C-61_Eq_Nat arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45Types-u--C-47C-61_Eq_Nat arg-4 arg-5)))) arg-2 arg-1)))))))) -(define CompilerC-45CompileExpr-dconFlag (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact arg-1 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (vector 1 (CompilerC-45CompileExpr-n--11323-3509-u--ciFlags arg-1 arg-0 (let ((sc3 e-1)) (let ((e-11 (vector-ref sc3 12))) e-11)))))) (else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 (PreludeC-45TypesC-45String-C-43C-43 "Can't find " (CoreC-45Name-u--show_Show_Name arg-1))) ext-0)))))))))))))))) -(define CompilerC-45CompileExpr-constCases (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (if (null? sc0) (lambda (eta-0) (vector 1 '())) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((2) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((13) (CompilerC-45CompileExpr-constCases arg-0 arg-1 arg-2 e-3))(else (lambda (eta-0) (let ((act-24 ((CompilerC-45CompileExpr-toCExpTree arg-0 arg-1 arg-2 e-6) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-25 ((CompilerC-45CompileExpr-constCases arg-0 arg-1 arg-2 e-3) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (vector 1 (cons (cons e-5 e-7) e-8)))))))))))))))))))(else (CompilerC-45CompileExpr-constCases arg-0 arg-1 arg-2 e-3)))))))))) -(define CompilerC-45CompileExpr-conCases (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (if (null? sc0) (lambda (eta-0) (vector 1 '())) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((e-7 (vector-ref sc1 3))) (let ((e-8 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc2 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact e-5 (let ((sc3 e-9)) (let ((e-0 (vector-ref sc3 1))) e-0))) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc3 1))) (let ((sc4 e-10)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((_-0 (vector 1 e-1))) ((CompilerC-45CompileExpr-case--caseC-32blockC-32inC-32conCases-4295 e-7 arg-0 e-8 e-6 e-5 e-3 arg-2 arg-1 e-9 e-1 _-0 (let ((sc5 e-1)) (let ((e-17 (vector-ref sc5 18))) e-17))) eta-0)))) (else (let ((act-26 (CoreC-45Context-getFullName arg-1 e-5 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc5 1))) (let ((act-27 ((CompilerC-45CompileExpr-toCExpTree (PreludeC-45TypesC-45List-C-43C-43 e-7 arg-0) arg-1 arg-2 e-8) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc6 1))) (let ((act-28 ((CompilerC-45CompileExpr-conCases arg-0 arg-1 arg-2 e-3) eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-13 (vector-ref sc7 1))) (vector 1 (cons (vector 0 e-11 (vector 1 ) (vector 0 ) e-7 e-12) e-13))))))))))))))))))))))))))))))))))))(else (CompilerC-45CompileExpr-conCases arg-0 arg-1 arg-2 e-3)))))))))) -(define CompilerC-45CompileExpr-compileExp (lambda (arg-0 arg-1 ext-0) (let ((act-24 (CompilerC-45CompileExpr-builtinMagic arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (CompilerC-45CompileExpr-toCExp '() arg-0 (lambda (vars-7106) (e-5 'erased)) (vector 1 "main") arg-1 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 e-6))))))))))))) -(define CompilerC-45CompileExpr-compileDef (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact arg-1 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((act-26 (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Def arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Def arg-3812 arg-3813 eta-0))))) (let ((sc3 e-1)) (let ((e-17 (vector-ref sc3 18))) e-17)) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) ((CompilerC-45CompileExpr-toCDef arg-0 arg-1 (let ((sc4 e-1)) (let ((e-2 (vector-ref sc4 3))) e-2)) (let ((sc4 e-1)) (let ((e-3 (vector-ref sc4 4))) e-3)) e-7) ext-0)))))))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (CoreC-45Context-setCompiled arg-0 arg-1 e-7 ext-0)))))))) (else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 (PreludeC-45TypesC-45String-C-43C-43 "Trying to compile unknown name " (CoreC-45Name-u--show_Show_Name arg-1))) ext-0)))))))))))))))) -(define CompilerC-45CompileExpr-builtinNatTreeC-39 (lambda (arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((10) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (CompilerC-45CompileExpr-case--builtinNatTreeC-39-3304 e-4 e-3 e-2 e-1 arg-2 arg-1 (PreludeC-45Interfaces-any (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (lambda (eta-0) (CompilerC-45CompileExpr-natBranch arg-1 arg-2 eta-0)) e-3)))))))(else arg-3))))) -(define CompilerC-45CompileExpr-builtinNatTree (lambda (arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((u--b (let ((sc1 e-5)) (let ((e-15 (vector-ref sc1 16))) e-15)))) (vector 1 (lambda (eta-0) (CompilerC-45CompileExpr-builtinNatTreeC-39 (let ((sc1 u--b)) (let ((e-1 (vector-ref sc1 2))) e-1)) (let ((sc1 u--b)) (let ((e-2 (vector-ref sc1 3))) e-2)) eta-0))))))))))) -(define CompilerC-45CompileExpr-builtinMagic (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((u--b (let ((sc1 e-5)) (let ((e-15 (vector-ref sc1 16))) e-15)))) (let ((u--nats (PreludeC-45Interfaces-concatMap (cons (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-2 arg-3))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) (lambda (eta-0) (CompilerC-45CompileExpr-n--10809-3037-u--builtinMagicNat arg-0 eta-0)) (LibrariesC-45DataC-45NameMap-values (let ((sc1 u--b)) (let ((e-0 (vector-ref sc1 1))) e-0)))))) (vector 1 (lambda (vars-3144) (lambda (eta-0) (CompilerC-45CompileExpr-magic (PreludeC-45TypesC-45List-C-43C-43 (CompilerC-45CompileExpr-natHack) u--nats) eta-0))))))))))))) -(define CompilerC-45CompileExpr-boolHackTree (lambda (arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((10) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((u--x (PreludeC-45Types-u--traverse_Traversable_List (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (PreludeC-45Types-u--map_Functor_Maybe u--func arg-143))))) (lambda (u--a) (lambda (arg-577) (PreludeC-45Types-u--pure_Applicative_Maybe arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (PreludeC-45Types-u--C-60C-42C-62_Applicative_Maybe arg-578 arg-580)))))) (lambda (eta-0) (CompilerC-45CompileExpr-n--11238-3440-u--toBool e-4 e-3 e-2 e-1 eta-0)) e-3))) (let ((sc1 u--x)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (vector 11 e-1 e-2 e-5 e-4))) (else (vector 10 e-1 e-2 e-3 e-4))))))))))(else arg-1))))) -(define CompilerC-45CompileExpr-applyNewType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((u--fnC-39 (CompilerC-45CompileExpr-expandToArity arg-0 arg-1 arg-3 arg-4))) (CompilerC-45CompileExpr-n--10074-2353-u--keepArg arg-0 arg-4 arg-3 arg-2 arg-1 u--fnC-39)))) -(define CoreC-45Directory-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32findIpkgFileC-44findIpkgFileC-39-1340 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-5 (car sc1))) (let ((e-6 (cdr sc1))) (CoreC-45Directory-n--8054-1264-u--findIpkgFileC-39 e-5 (LibrariesC-45UtilsC-45Path-C-60C-47C-62 e-6 arg-0) ext-0)))))) (else (vector 0 )))))) -(define CoreC-45Directory-case--caseC-32blockC-32inC-32findIpkgFileC-44findIpkgFileC-39-1302 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (cons arg-1 (cons e-1 arg-0)))))) (else (lambda (eta-0) (CoreC-45Directory-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32findIpkgFileC-44findIpkgFileC-39-1340 arg-0 arg-1 arg-2 arg-3 (LibrariesC-45UtilsC-45Path-splitParent arg-1) eta-0))))))) -(define CoreC-45Directory-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32mkdirAll-987 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (CoreC-45Directory-mkdirAll e-1 eta-0)))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define CoreC-45Directory-case--mkdirAll-944 (lambda (arg-0 arg-1 ext-0) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (vector 1 (vector 0 ))) (else (let ((act-24 (CoreC-45Directory-dirExists arg-0 ext-0))) (let ((sc1 act-24)) (cond ((equal? sc1 0) (vector 1 (vector 0 ))) (else (let ((act-25 (let ((u--exist 1)) ((CoreC-45Directory-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32mkdirAll-987 arg-0 u--exist (LibrariesC-45UtilsC-45Path-parent arg-0)) ext-0)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((0) ((SystemC-45Directory-createDir (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-0)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-0) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (let ((act-17 (arg-578 eta-0))) (let ((act-16 (arg-580 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (let ((act-26 (arg-876 eta-0))) ((arg-877 act-26) eta-0))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-0) (let ((act-51 (arg-879 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) arg-0) ext-0))(else act-25)))))(else act-25))))))))))))) -(define CoreC-45Directory-case--pathToNS-845 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 58 (PreludeC-45TypesC-45String-C-43C-43 "Source file " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_String arg-0) (PreludeC-45TypesC-45String-C-43C-43 " is not in the source directory " (PreludeC-45Show-u--show_Show_String (LibrariesC-45UtilsC-45Path-C-60C-47C-62 arg-2 arg-3)))))) ext-0)) (else (let ((e-2 (vector-ref sc0 1))) (vector 1 (CoreC-45NameC-45Namespace-unsafeFoldModuleIdent (DataC-45List-reverse (LibrariesC-45UtilsC-45Path-splitPath (LibrariesC-45UtilsC-45Path-dropExtension e-2))))))))))) -(define CoreC-45Directory-case--pathToNS-823 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (LibrariesC-45UtilsC-45Path-C-60C-47C-62 arg-2 arg-3)) (else arg-3))))) -(define CoreC-45Directory-n--8054-1264-u--findIpkgFileC-39 (lambda (arg-0 arg-1 ext-0) (let ((act-24 (CoreC-45Directory-dirEntries arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-2))) ((CoreC-45Directory-case--caseC-32blockC-32inC-32findIpkgFileC-44findIpkgFileC-39-1302 arg-1 arg-0 e-2 _-0 (DataC-45List-find (lambda (u--f) (PreludeC-45Types-u--C-61C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_String arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_String arg-4 arg-5)))) (LibrariesC-45UtilsC-45Path-extension u--f) (vector 1 "ipkg"))) e-2)) ext-0)))) (else (vector 0 ))))))) -(define CoreC-45Directory-readDataFile (lambda (arg-0 arg-1 ext-0) (let ((act-24 (CoreC-45Directory-findDataFile arg-0 arg-1 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 ((SystemC-45File-readFile (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-0)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-0) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (let ((act-17 (arg-578 eta-0))) (let ((act-16 (arg-580 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (let ((act-25 (arg-876 eta-0))) ((arg-877 act-25) eta-0))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-0) (let ((act-51 (arg-879 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) e-5) ext-0))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (vector 1 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 49 e-5 e-7) ext-0))))))))))))))))) -(define CoreC-45Directory-pathToNS (lambda (arg-0 arg-1 arg-2) (let ((u--sdir (DataC-45Maybe-fromMaybe (lambda () "") arg-1))) (let ((u--base (CoreC-45Directory-case--pathToNS-823 arg-2 arg-1 arg-0 u--sdir (LibrariesC-45UtilsC-45Path-isAbsolute arg-2)))) (lambda (eta-0) (CoreC-45Directory-case--pathToNS-845 arg-2 arg-1 arg-0 u--sdir u--base (LibrariesC-45UtilsC-45Path-dropBase u--base arg-2) eta-0)))))) -(define CoreC-45Directory-nsToSource (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (CoreC-45Context-getDirs arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((u--fnameOrig (LibrariesC-45UtilsC-45Path-joinPath (DataC-45List-reverse (CoreC-45NameC-45Namespace-unsafeUnfoldModuleIdent arg-2))))) (let ((u--fnameBase (PreludeC-45Types-maybe (lambda () u--fnameOrig) (lambda () (lambda (u--srcdir) (LibrariesC-45UtilsC-45Path-C-60C-47C-62 u--srcdir u--fnameOrig))) (let ((sc1 e-5)) (let ((e-1 (vector-ref sc1 2))) e-1))))) (let ((u--fs (PreludeC-45Types-u--map_Functor_List (lambda (u--ext) (LibrariesC-45UtilsC-45Path-C-60C-46C-62 u--fnameBase u--ext)) (cons ".idr" (cons ".lidr" (cons ".yaff" (cons ".org" (cons ".md" '())))))))) (let ((act-25 (CoreC-45Directory-firstAvailable arg-0 u--fs ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (vector 1 e-1))) (else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 54 arg-1 arg-2) ext-0))))))))))))))))))) -(define CoreC-45Directory-nsToPath (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (CoreC-45Context-getDirs arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((u--fnameBase (LibrariesC-45UtilsC-45Path-joinPath (DataC-45List-reverse (CoreC-45NameC-45Namespace-unsafeUnfoldModuleIdent arg-2))))) (let ((u--fs (PreludeC-45Types-u--map_Functor_List (lambda (u--p) (LibrariesC-45UtilsC-45Path-C-60C-47C-62 u--p (LibrariesC-45UtilsC-45Path-C-60C-46C-62 u--fnameBase "ttc"))) (cons (LibrariesC-45UtilsC-45Path-C-60C-47C-62 (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 3))) e-2)) "ttc") (let ((sc1 e-5)) (let ((e-6 (vector-ref sc1 7))) e-6)))))) (let ((act-25 (CoreC-45Directory-firstAvailable arg-0 u--fs ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (vector 1 (vector 1 e-1)))) (else (vector 1 (vector 0 (vector 54 arg-1 arg-2)))))))))))))))))))) -(define CoreC-45Directory-mkdirAll (lambda (arg-0 ext-0) (CoreC-45Directory-case--mkdirAll-944 arg-0 (LibrariesC-45UtilsC-45Path-u--C-61C-61_Eq_Path (LibrariesC-45UtilsC-45Path-parse arg-0) (LibrariesC-45UtilsC-45Path-emptyPath)) ext-0))) -(define CoreC-45Directory-makeBuildDirectory (lambda (arg-0 arg-1 ext-0) (let ((act-24 (CoreC-45Context-getDirs arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((u--bdir (LibrariesC-45UtilsC-45Path-C-60C-47C-62 (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 3))) e-2)) "ttc"))) (let ((u--ns (DataC-45List-reverse (DataC-45Maybe-fromMaybe (lambda () '()) (DataC-45List-tailC-39 (CoreC-45NameC-45Namespace-unsafeUnfoldModuleIdent arg-1)))))) (let ((u--ndir (LibrariesC-45UtilsC-45Path-joinPath u--ns))) (let ((act-25 (let ((act-25 (CoreC-45Directory-mkdirAll (LibrariesC-45UtilsC-45Path-C-60C-47C-62 u--bdir u--ndir) ext-0))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (vector 1 (vector 0 ))) (else (let ((e-7 (vector-ref sc2 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 49 (LibrariesC-45UtilsC-45Path-C-60C-47C-62 (let ((sc3 e-5)) (let ((e-2 (vector-ref sc3 3))) e-2)) u--ndir) e-7) ext-0)))))))))))))))))))) -(define CoreC-45Directory-getTTCFileName (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (CoreC-45Context-getNS arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45Context-getDirs arg-0 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((CoreC-45Directory-pathToNS (let ((sc2 e-6)) (let ((e-0 (vector-ref sc2 1))) e-0)) (let ((sc2 e-6)) (let ((e-1 (vector-ref sc2 2))) e-1)) arg-1) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((u--fname (LibrariesC-45UtilsC-45Path-C-60C-46C-62 (LibrariesC-45UtilsC-45Path-joinPath (DataC-45List-reverse (CoreC-45NameC-45Namespace-unsafeUnfoldModuleIdent e-7))) arg-2))) (let ((u--bdir (let ((sc3 e-6)) (let ((e-2 (vector-ref sc3 3))) e-2)))) (vector 1 (LibrariesC-45UtilsC-45Path-C-60C-47C-62 u--bdir (LibrariesC-45UtilsC-45Path-C-60C-47C-62 "ttc" u--fname))))))))))))))))))))) -(define CoreC-45Directory-getEntries (lambda (arg-0 ext-0) (let ((act-24 ((SystemC-45Directory-dirEntry (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-0)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-0) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (let ((act-17 (arg-578 eta-0))) (let ((act-16 (arg-580 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (let ((act-24 (arg-876 eta-0))) ((arg-877 act-24) eta-0))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-0) (let ((act-51 (arg-879 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) arg-0) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((act-25 (CoreC-45Directory-getEntries arg-0 ext-0))) (cons e-2 act-25)))) (else '())))))) -(define CoreC-45Directory-firstAvailable (lambda (arg-0 arg-1 ext-0) (let ((sc0 arg-1)) (if (null? sc0) (vector 1 (vector 0 )) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((act-24 (CoreC-45ContextC-45Log-log arg-0 "import.file" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))))))))))))))))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Attempting to read " e-2)) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((act-25 (let ((act-25 ((SystemC-45File-openFile (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-0)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-0) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (let ((act-17 (arg-578 eta-0))) (let ((act-16 (arg-580 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (let ((act-25 (arg-876 eta-0))) ((arg-877 act-25) eta-0))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-0) (let ((act-51 (arg-879 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) e-2 (vector 0 )) ext-0))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-4 (vector-ref sc3 1))) (let ((act-26 (let ((act-26 ((SystemC-45File-closeFile (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-0)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-0) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (let ((act-17 (arg-578 eta-0))) (let ((act-16 (arg-580 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (let ((act-26 (arg-876 eta-0))) ((arg-877 act-26) eta-0))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-0) (let ((act-51 (arg-879 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) e-4) ext-0))) (vector 1 act-26)))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (vector 1 (vector 1 e-2)))))))) (else (CoreC-45Directory-firstAvailable arg-0 e-3 ext-0))))))))))))))))))) -(define CoreC-45Directory-findLibraryFile (lambda (arg-0 arg-1 ext-0) (let ((act-24 (CoreC-45Context-getDirs arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((u--fs (PreludeC-45Types-u--map_Functor_List (lambda (u--p) (LibrariesC-45UtilsC-45Path-C-60C-47C-62 u--p arg-1)) (PreludeC-45TypesC-45List-C-43C-43 (let ((sc1 e-5)) (let ((e-8 (vector-ref sc1 9))) e-8)) (PreludeC-45Types-u--map_Functor_List (lambda (u--x) (LibrariesC-45UtilsC-45Path-C-60C-47C-62 u--x "lib")) (let ((sc1 e-5)) (let ((e-6 (vector-ref sc1 7))) e-6))))))) (let ((act-25 (CoreC-45Directory-firstAvailable arg-0 u--fs ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (vector 1 e-1))) (else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 (PreludeC-45TypesC-45String-C-43C-43 "Can't find library " arg-1)) ext-0))))))))))))))))) -(define CoreC-45Directory-findIpkgFile (lambda (ext-0) (let ((act-24 ((SystemC-45Directory-currentDir (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-0)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-0) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (let ((act-17 (arg-578 eta-0))) (let ((act-16 (arg-580 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (let ((act-24 (arg-876 eta-0))) ((arg-877 act-24) eta-0))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-0) (let ((act-51 (arg-879 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-7803) arg-7803)))) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((act-25 (CoreC-45Directory-n--8054-1264-u--findIpkgFileC-39 e-1 "" ext-0))) act-25))) (else (vector 0 ))))))) -(define CoreC-45Directory-findDataFile (lambda (arg-0 arg-1 ext-0) (let ((act-24 (CoreC-45Context-getDirs arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((u--fs (PreludeC-45Types-u--map_Functor_List (lambda (u--p) (LibrariesC-45UtilsC-45Path-C-60C-47C-62 u--p arg-1)) (let ((sc1 e-5)) (let ((e-9 (vector-ref sc1 10))) e-9))))) (let ((act-25 (CoreC-45Directory-firstAvailable arg-0 u--fs ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (vector 1 e-1))) (else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 (PreludeC-45TypesC-45String-C-43C-43 "Can't find data file " (PreludeC-45TypesC-45String-C-43C-43 arg-1 (PreludeC-45TypesC-45String-C-43C-43 " in any of " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_String u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_String u--d u--x)))) u--fs))))) ext-0))))))))))))))))) -(define CoreC-45Directory-ensureDirectoryExists (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (CoreC-45Directory-mkdirAll arg-0 ext-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (vector 1 (vector 0 ))) (else (let ((e-6 (vector-ref sc1 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 49 arg-0 e-6) ext-0)))))))))))) -(define CoreC-45Directory-dirExists (lambda (arg-0 ext-0) (let ((act-24 ((SystemC-45Directory-openDir (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-0)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-0) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (let ((act-17 (arg-578 eta-0))) (let ((act-16 (arg-580 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (let ((act-24 (arg-876 eta-0))) ((arg-877 act-24) eta-0))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-0) (let ((act-51 (arg-879 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) arg-0) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) ((PreludeC-45Interfaces-C-62C-62 (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-0)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-0) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (let ((act-17 (arg-578 eta-0))) (let ((act-16 (arg-580 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (let ((act-25 (arg-876 eta-0))) ((arg-877 act-25) eta-0))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-0) (let ((act-29 (arg-879 eta-0))) (act-29 eta-0)))))) (SystemC-45Directory-closeDir (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-0)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-0) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (let ((act-17 (arg-578 eta-0))) (let ((act-16 (arg-580 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (let ((act-25 (arg-876 eta-0))) ((arg-877 act-25) eta-0))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-0) (let ((act-51 (arg-879 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) e-2) (lambda () (lambda (eta-0) 0))) ext-0))) (else 1)))))) -(define CoreC-45Directory-dirEntries (lambda (arg-0 ext-0) (let ((act-24 ((SystemC-45Directory-openDir (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-0)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-0) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (let ((act-17 (arg-578 eta-0))) (let ((act-16 (arg-580 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (let ((act-24 (arg-876 eta-0))) ((arg-877 act-24) eta-0))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-0) (let ((act-51 (arg-879 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) arg-0) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((act-25 (CoreC-45Directory-getEntries e-2 ext-0))) ((PreludeC-45Interfaces-C-62C-62 (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-0)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-0) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (let ((act-17 (arg-578 eta-0))) (let ((act-16 (arg-580 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (let ((act-26 (arg-876 eta-0))) ((arg-877 act-26) eta-0))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-0) (let ((act-29 (arg-879 eta-0))) (act-29 eta-0)))))) (SystemC-45Directory-closeDir (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-0)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-0) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (let ((act-17 (arg-578 eta-0))) (let ((act-16 (arg-580 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (let ((act-26 (arg-876 eta-0))) ((arg-877 act-26) eta-0))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-0) (let ((act-51 (arg-879 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) e-2) (lambda () (lambda (eta-0) (vector 1 act-25)))) ext-0)))) (else (let ((e-5 (vector-ref sc0 1))) (vector 0 e-5)))))))) +(define CoreC-45InitPrimitives-addPrim (lambda (arg-0 arg-1 ext-0) (let ((act-24 (CoreC-45Context-addBuiltin (let ((e-0 (vector-ref arg-1 0))) e-0) arg-0 (CoreC-45Primitives-opName (let ((e-1 (vector-ref arg-1 1))) e-1)) (let ((e-2 (vector-ref arg-1 2))) e-2) (let ((e-3 (vector-ref arg-1 3))) e-3) (let ((e-1 (vector-ref arg-1 1))) e-1) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (CompilerC-45CompileExpr-compileDef arg-0 (CoreC-45Primitives-opName (let ((e-1 (vector-ref arg-1 1))) e-1)) ext-0)))))) (define LibrariesC-45UtilsC-45Term-setupTerm (lambda (ext-0) (LibrariesC-45UtilsC-45Term-prim__setupTerm ext-0))) (define LibrariesC-45UtilsC-45Term-getTermCols (lambda (ext-0) (LibrariesC-45UtilsC-45Term-prim__getTermCols ext-0))) (define IdrisPaths-yprefix (lambda () "__PREFIX__")) -(define IdrisPaths-idrisVersion (lambda () (cons (cons 0 (cons (+ 1 (+ 1 (+ 1 0))) 0)) "438922469"))) -(define IdrisC-45Error-case--caseC-32blockC-32inC-32perror-6267 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Did you mean any of:") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-concatWith (lambda (eta-0) (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-surround (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-comma) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-space)) eta-0 eta-1))) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String eta-0)) e-2)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-comma)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "or") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String e-3) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "?")))))))))) -(define IdrisC-45Error-case--perror-4731 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((sc0 arg-7)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-3)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (let ((act-24 (IdrisC-45Error-pshow e-2 arg-6 arg-5 e-6 e-7 ext-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((IdrisC-45Error-ploc arg-4 arg-3) ext-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Can't find an implementation for") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-code e-5) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-dot)))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) e-8)))))))))))))))))))) -(define IdrisC-45Error-case--perror-4183 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (IdrisC-45Error-perror arg-3 arg-2 arg-1 e-1)))(else (lambda (eta-0) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-1) (lambda (eta-2) (IdrisC-45Error-n--15966-4062-u--pAlterror arg-0 arg-1 arg-2 arg-3 eta-1 eta-2))) arg-0 '() eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Sorry, I can't find any elaboration which works. All errors") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep e-5)))))))))))))) -(define IdrisC-45Error-case--perror-3609 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (let ((act-24 ((IdrisC-45Error-ploc arg-4 arg-3) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-code (CoreC-45Name-u--pretty_Pretty_Name arg-2)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "is not accessible in this context."))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) e-5)))))))) (else (let ((act-24 ((IdrisC-45Error-ploc arg-4 arg-3) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Trying to use") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Error-n--15966-3552-u--prettyRig arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "name") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-code (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String (IdrisC-45Resugar-sugarName arg-2))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "in") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Error-n--15966-3553-u--prettyRel arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "context.")))))))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) e-5)))))))))))) -(define IdrisC-45Error-case--perror-2713 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 ext-0) (let ((sc0 arg-8)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((act-24 (IdrisC-45Error-pshow arg-0 arg-7 arg-6 arg-3 arg-1 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((IdrisC-45Error-ploc2 arg-5 e-2 e-3) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-hsep (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Pattern variable") (cons (IdrisC-45Pretty-code (IdrisC-45Error-n--15966-2505-u--prettyVar arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-2)) (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "unifies with") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon)) (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-code e-5) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-dot)) '())))))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) e-6) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Suggestion: Use the same name for both pattern variables, since they unify.")))))))))))))))))) -(define IdrisC-45Error-case--caseC-32blockC-32inC-32perrorC-44order-2633 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (cond ((equal? sc0 0) (cons arg-15 arg-12)) (else (cons arg-12 arg-15)))))) -(define IdrisC-45Error-case--perrorC-44order-2542 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (cond ((equal? sc0 0) (cons arg-15 arg-12)) (else (IdrisC-45Error-case--caseC-32blockC-32inC-32perrorC-44order-2633 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 (PreludeC-45Basics-C-38C-38 (PreludeC-45EqOrd-u--C-61C-61_Eq_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (arg-17) (lambda (arg-18) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-17 arg-18))) (lambda (arg-17) (lambda (arg-18) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-17 arg-18)))) (cons (lambda (arg-17) (lambda (arg-18) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-17 arg-18))) (lambda (arg-17) (lambda (arg-18) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-17 arg-18)))) arg-14 arg-11) (lambda () (PreludeC-45EqOrd-u--C-60_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector 0 (cons (lambda (arg-17) (lambda (arg-18) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-17 arg-18))) (lambda (arg-17) (lambda (arg-18) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-17 arg-18)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Int arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Int arg-383 arg-384)))) (vector 0 (cons (lambda (arg-17) (lambda (arg-18) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-17 arg-18))) (lambda (arg-17) (lambda (arg-18) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-17 arg-18)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Int arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Int arg-383 arg-384)))) arg-13 arg-10))))))))) -(define IdrisC-45Error-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32ploc2-1727 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (let ((sc0 arg-23)) (cond ((equal? sc0 0) '()) (else (IdrisC-45Error-n--14446-945-u--addLineNumbers arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-15 (PreludeC-45Types-u--C-43_Num_Nat arg-11 (+ 1 0)) (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (PreludeC-45Types-u--map_Functor_List eta-2 eta-3))))) (lambda (eta-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String eta-0)) (IdrisC-45Error-n--14446-943-u--extractRange arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (PreludeC-45Types-u--C-43_Num_Nat arg-11 (+ 1 0)) arg-8 arg-18)))))))) -(define IdrisC-45Error-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32ploc2-1399 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-19)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (cond ((equal? sc1 0) (let ((sc2 e-3)) (if (null? sc2) (lambda (clam-2) (let ((sc3 e-3)) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-emptyDoc) (cons arg-16 (IdrisC-45Error-n--14446-945-u--addLineNumbers arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-15 arg-11 (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (PreludeC-45Types-u--map_Functor_List eta-2 eta-3))))) (lambda (eta-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String eta-0)) (IdrisC-45Error-n--14446-943-u--extractRange arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-11 arg-9 arg-18)))))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line))))) (let ((e-10 (car sc2))) (let ((e-11 (cdr sc2))) (let ((sc3 e-10)) (cond ((equal? sc3 0) (let ((sc4 e-11)) (cond ((equal? sc4 0) (let ((u--line (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-fileCtxt (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-pipe)) (PreludeC-45Types-maybe (lambda () (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-emptyDoc)) (lambda () (lambda (eta-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String eta-0))) (LibrariesC-45DataC-45ListC-45Extra-elemAt arg-18 arg-11))))) (let ((u--emph (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-fileCtxt (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-pipe)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-spaces (PreludeC-45Cast-u--cast_Cast_Nat_Int arg-12)) (IdrisC-45Pretty-error (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String (LibrariesC-45DataC-45StringC-45Extra-replicate (PreludeC-45Types-minus arg-7 arg-12) #\^)))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-spaces (PreludeC-45Cast-u--cast_Cast_Nat_Int (PreludeC-45Types-minus arg-13 arg-7)))) (IdrisC-45Pretty-error (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String (LibrariesC-45DataC-45StringC-45Extra-replicate (PreludeC-45Types-minus arg-10 arg-13) #\^))))))) (lambda (eta-0) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-emptyDoc) (cons arg-16 (cons arg-17 (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-fileCtxt (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-space) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Nat (PreludeC-45Types-u--C-43_Num_Nat arg-11 (+ 1 0))))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-align (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (cons u--line (cons u--emph '()))))) (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-emptyDoc) '()))))))))))) ((equal? sc4 1) (let ((u--line1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-fileCtxt (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-pipe)) (PreludeC-45Types-maybe (lambda () (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-emptyDoc)) (lambda () (lambda (eta-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String eta-0))) (LibrariesC-45DataC-45ListC-45Extra-elemAt arg-18 arg-11))))) (let ((u--emph1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-fileCtxt (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-pipe)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-spaces (PreludeC-45Cast-u--cast_Cast_Nat_Int arg-12)) (IdrisC-45Pretty-error (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String (LibrariesC-45DataC-45StringC-45Extra-replicate (PreludeC-45Types-minus arg-7 arg-12) #\^))))))) (let ((u--line2 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-fileCtxt (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-pipe)) (PreludeC-45Types-maybe (lambda () (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-emptyDoc)) (lambda () (lambda (eta-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String eta-0))) (LibrariesC-45DataC-45ListC-45Extra-elemAt arg-18 arg-14))))) (let ((u--emph2 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-fileCtxt (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-pipe)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-spaces (PreludeC-45Cast-u--cast_Cast_Nat_Int arg-13)) (IdrisC-45Pretty-error (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String (LibrariesC-45DataC-45StringC-45Extra-replicate (PreludeC-45Types-minus arg-10 arg-13) #\^))))))) (let ((u--numbered (IdrisC-45Error-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32ploc2-1727 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 u--line1 u--emph1 u--line2 u--emph2 (PreludeC-45Types-u--C-61C-61_Eq_Nat (PreludeC-45Types-minus arg-14 arg-8) (PreludeC-45Types-u--fromInteger_Num_Nat 1))))) (lambda (eta-0) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45TypesC-45List-C-43C-43 (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-emptyDoc) (cons arg-16 (cons arg-17 (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-fileCtxt (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-space) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Nat (PreludeC-45Types-u--C-43_Num_Nat arg-11 (+ 1 0))))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-align (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (cons u--line1 (cons u--emph1 '()))))) '())))) (PreludeC-45TypesC-45List-C-43C-43 u--numbered (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-fileCtxt (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-space) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Nat (PreludeC-45Types-u--C-43_Num_Nat arg-14 (+ 1 0))))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-align (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (cons u--line2 (cons u--emph2 '()))))) (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-emptyDoc) '())))))))))))))(else (lambda (clam-0) (let ((sc4 e-3)) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-emptyDoc) (cons arg-16 (IdrisC-45Error-n--14446-945-u--addLineNumbers arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-15 arg-11 (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (PreludeC-45Types-u--map_Functor_List eta-2 eta-3))))) (lambda (eta-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String eta-0)) (IdrisC-45Error-n--14446-943-u--extractRange arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-11 arg-9 arg-18)))))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line))))))))) ((equal? sc3 1) (let ((u--line (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-fileCtxt (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-pipe)) (PreludeC-45Types-maybe (lambda () (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-emptyDoc)) (lambda () (lambda (eta-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String eta-0))) (LibrariesC-45DataC-45ListC-45Extra-elemAt arg-18 arg-11))))) (let ((u--emph (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-fileCtxt (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-pipe)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-spaces (PreludeC-45Cast-u--cast_Cast_Nat_Int arg-12)) (IdrisC-45Pretty-error (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String (LibrariesC-45DataC-45StringC-45Extra-replicate (PreludeC-45Types-minus arg-7 arg-12) #\^))))))) (lambda (eta-0) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45TypesC-45List-C-43C-43 (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-emptyDoc) (cons arg-16 (cons arg-17 (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-fileCtxt (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-space) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Nat (PreludeC-45Types-u--C-43_Num_Nat arg-11 (+ 1 0))))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-align (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (cons u--line (cons u--emph '()))))) '())))) (PreludeC-45TypesC-45List-C-43C-43 (IdrisC-45Error-n--14446-945-u--addLineNumbers arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-15 (PreludeC-45Types-u--C-43_Num_Nat arg-11 (+ 1 0)) (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (PreludeC-45Types-u--map_Functor_List eta-3 eta-4))))) (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String eta-1)) (IdrisC-45Error-n--14446-943-u--extractRange arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (PreludeC-45Types-u--C-43_Num_Nat arg-11 (+ 1 0)) (PreludeC-45Types-u--max_Ord_Nat arg-8 arg-9) arg-18))) (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-emptyDoc) '())))))))))(else (lambda (clam-1) (let ((sc3 e-3)) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-emptyDoc) (cons arg-16 (IdrisC-45Error-n--14446-945-u--addLineNumbers arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-15 arg-11 (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (PreludeC-45Types-u--map_Functor_List eta-2 eta-3))))) (lambda (eta-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String eta-0)) (IdrisC-45Error-n--14446-943-u--extractRange arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-11 arg-9 arg-18)))))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line))))))))))))) ((equal? sc1 1) (let ((sc2 e-3)) (if (null? sc2) (lambda (clam-5) (let ((sc3 e-3)) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-emptyDoc) (cons arg-16 (IdrisC-45Error-n--14446-945-u--addLineNumbers arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-15 arg-11 (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (PreludeC-45Types-u--map_Functor_List eta-2 eta-3))))) (lambda (eta-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String eta-0)) (IdrisC-45Error-n--14446-943-u--extractRange arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-11 arg-9 arg-18)))))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line))))) (let ((e-14 (car sc2))) (let ((e-15 (cdr sc2))) (let ((sc3 e-14)) (cond ((equal? sc3 0) (let ((sc4 e-15)) (cond ((equal? sc4 0) (let ((u--line (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-fileCtxt (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-pipe)) (PreludeC-45Types-maybe (lambda () (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-emptyDoc)) (lambda () (lambda (eta-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String eta-0))) (LibrariesC-45DataC-45ListC-45Extra-elemAt arg-18 arg-11))))) (let ((u--emph (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-fileCtxt (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-pipe)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-spaces (PreludeC-45Cast-u--cast_Cast_Nat_Int arg-12)) (IdrisC-45Pretty-error (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String (LibrariesC-45DataC-45StringC-45Extra-replicate (PreludeC-45Types-minus arg-7 arg-12) #\^))))))) (lambda (eta-0) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45TypesC-45List-C-43C-43 (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-emptyDoc) (cons arg-16 (cons arg-17 (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-fileCtxt (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-space) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Nat (PreludeC-45Types-u--C-43_Num_Nat arg-11 (+ 1 0))))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-align (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (cons u--line (cons u--emph '()))))) '())))) (PreludeC-45TypesC-45List-C-43C-43 (IdrisC-45Error-n--14446-945-u--addLineNumbers arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-15 (PreludeC-45Types-u--C-43_Num_Nat arg-11 (+ 1 0)) (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (PreludeC-45Types-u--map_Functor_List eta-3 eta-4))))) (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String eta-1)) (IdrisC-45Error-n--14446-943-u--extractRange arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (PreludeC-45Types-u--C-43_Num_Nat arg-11 (+ 1 0)) (PreludeC-45Types-u--max_Ord_Nat arg-8 arg-9) arg-18))) (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-emptyDoc) '()))))))))) ((equal? sc4 1) (let ((u--top (IdrisC-45Error-n--14446-945-u--addLineNumbers arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-15 (PreludeC-45Types-u--C-43_Num_Nat arg-11 (+ 1 0)) (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (PreludeC-45Types-u--map_Functor_List eta-2 eta-3))))) (lambda (eta-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String eta-0)) (IdrisC-45Error-n--14446-943-u--extractRange arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (PreludeC-45Types-u--C-43_Num_Nat arg-11 (+ 1 0)) arg-8 arg-18))))) (let ((u--line (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-fileCtxt (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-pipe)) (PreludeC-45Types-maybe (lambda () (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-emptyDoc)) (lambda () (lambda (eta-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String eta-0))) (LibrariesC-45DataC-45ListC-45Extra-elemAt arg-18 arg-11))))) (let ((u--emph (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-fileCtxt (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-pipe)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-spaces (PreludeC-45Cast-u--cast_Cast_Nat_Int arg-13)) (IdrisC-45Pretty-error (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String (LibrariesC-45DataC-45StringC-45Extra-replicate (PreludeC-45Types-minus arg-10 arg-13) #\^))))))) (lambda (eta-0) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45TypesC-45List-C-43C-43 (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-emptyDoc) (cons arg-16 (cons arg-17 '()))) (PreludeC-45TypesC-45List-C-43C-43 u--top (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-fileCtxt (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-space) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Nat (PreludeC-45Types-u--C-43_Num_Nat arg-14 (+ 1 0))))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-align (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (cons u--line (cons u--emph '()))))) (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-emptyDoc) '())))))))))))(else (lambda (clam-3) (let ((sc4 e-3)) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-emptyDoc) (cons arg-16 (IdrisC-45Error-n--14446-945-u--addLineNumbers arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-15 arg-11 (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (PreludeC-45Types-u--map_Functor_List eta-2 eta-3))))) (lambda (eta-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String eta-0)) (IdrisC-45Error-n--14446-943-u--extractRange arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-11 arg-9 arg-18)))))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)))))))))(else (lambda (clam-4) (let ((sc3 e-3)) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-emptyDoc) (cons arg-16 (IdrisC-45Error-n--14446-945-u--addLineNumbers arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-15 arg-11 (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (PreludeC-45Types-u--map_Functor_List eta-2 eta-3))))) (lambda (eta-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String eta-0)) (IdrisC-45Error-n--14446-943-u--extractRange arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-11 arg-9 arg-18)))))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)))))))))))))(else (lambda (clam-6) (let ((sc1 e-3)) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-emptyDoc) (cons arg-16 (IdrisC-45Error-n--14446-945-u--addLineNumbers arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-15 arg-11 (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (PreludeC-45Types-u--map_Functor_List eta-2 eta-3))))) (lambda (eta-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String eta-0)) (IdrisC-45Error-n--14446-943-u--extractRange arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-11 arg-9 arg-18)))))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line))))))))))))) -(define IdrisC-45Error-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32ploc2-1236 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((IdrisC-45Error-ploc arg-6 (vector 0 arg-2 arg-1 arg-0)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((IdrisC-45Error-ploc arg-6 (vector 0 arg-5 arg-4 arg-3)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 e-5 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) e-6)))))))))))))) (else (let ((u--nsize (PreludeC-45TypesC-45String-length (PreludeC-45Show-u--show_Show_Nat (PreludeC-45Types-u--C-43_Num_Nat arg-13 (+ 1 0)))))) (let ((u--head (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-annotate (vector 3 ) (CoreC-45FC-u--pretty_Pretty_FC (vector 0 arg-2 arg-1 arg-3))))) (let ((u--firstRow (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-annotate (vector 3 ) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-spaces (PreludeC-45Cast-u--cast_Cast_Nat_Int (PreludeC-45Types-u--C-43_Num_Nat u--nsize (+ 1 (+ 1 0))))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-pipe))))) (lambda (eta-0) (let ((act-24 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (DataC-45List1-forget (LibrariesC-45DataC-45StringC-45Extra-lines e-5)))))))) (lambda (eta-1) (IdrisC-45REPLC-45Opts-getCurrentElabSource arg-6 eta-1)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((IdrisC-45Error-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32ploc2-1399 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-11 arg-12 arg-13 arg-14 arg-8 arg-7 arg-10 arg-9 u--nsize u--head u--firstRow e-5 (cons (PreludeC-45Types-u--C-61C-61_Eq_Nat arg-8 arg-12) (cons (PreludeC-45Types-u--C-61C-61_Eq_Nat arg-9 arg-13) (PreludeC-45Types-u--C-61C-61_Eq_Nat arg-8 arg-9)))) eta-0))))))))))))))) -(define IdrisC-45Error-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32ploc2-1187 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (IdrisC-45Error-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32ploc2-1236 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-8 arg-7 arg-10 arg-9 arg-12 arg-11 e-2 e-3 (PreludeC-45Types-u--C-62_Ord_Nat e-2 (PreludeC-45Types-u--C-43_Num_Nat arg-11 (PreludeC-45Types-u--fromInteger_Num_Nat 5))))))))) -(define IdrisC-45Error-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32ploc2-1137 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (IdrisC-45Error-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32ploc2-1187 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-8 arg-7 arg-10 arg-9 e-2 e-3 (PreludeC-45Interfaces-mapHom (vector 0 (lambda (u--d) (lambda (u--b) (lambda (u--c) (lambda (u--a) (lambda (arg-353) (lambda (arg-355) (lambda (arg-357) (let ((sc1 arg-357)) (let ((e-5 (car sc1))) (let ((e-4 (cdr sc1))) (cons (arg-353 e-5) (arg-355 e-4)))))))))))) (lambda (u--b) (lambda (u--c) (lambda (u--a) (lambda (arg-362) (lambda (arg-364) (let ((sc1 arg-364)) (let ((e-5 (car sc1))) (let ((e-4 (cdr sc1))) (cons (arg-362 e-5) e-4))))))))) (lambda (u--a) (lambda (u--d) (lambda (u--b) (lambda (arg-365) (lambda (arg-367) (let ((sc1 arg-367)) (let ((e-5 (car sc1))) (let ((e-4 (cdr sc1))) (cons e-5 (arg-365 e-4))))))))))) (lambda (eta-0) (PreludeC-45Types-u--fromInteger_Num_Nat (PreludeC-45Cast-u--cast_Cast_Int_Integer eta-0))) arg-3))))))) -(define IdrisC-45Error-case--caseC-32blockC-32inC-32ploc2-1093 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (IdrisC-45Error-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32ploc2-1137 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-8 arg-7 e-2 e-3 (PreludeC-45Interfaces-mapHom (vector 0 (lambda (u--d) (lambda (u--b) (lambda (u--c) (lambda (u--a) (lambda (arg-353) (lambda (arg-355) (lambda (arg-357) (let ((sc1 arg-357)) (let ((e-5 (car sc1))) (let ((e-4 (cdr sc1))) (cons (arg-353 e-5) (arg-355 e-4)))))))))))) (lambda (u--b) (lambda (u--c) (lambda (u--a) (lambda (arg-362) (lambda (arg-364) (let ((sc1 arg-364)) (let ((e-5 (car sc1))) (let ((e-4 (cdr sc1))) (cons (arg-362 e-5) e-4))))))))) (lambda (u--a) (lambda (u--d) (lambda (u--b) (lambda (arg-365) (lambda (arg-367) (let ((sc1 arg-367)) (let ((e-5 (car sc1))) (let ((e-4 (cdr sc1))) (cons e-5 (arg-365 e-4))))))))))) (lambda (eta-0) (PreludeC-45Types-u--fromInteger_Num_Nat (PreludeC-45Cast-u--cast_Cast_Int_Integer eta-0))) arg-0))))))) -(define IdrisC-45Error-case--ploc2-1055 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (IdrisC-45Error-case--caseC-32blockC-32inC-32ploc2-1093 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-2 e-3 (PreludeC-45Interfaces-mapHom (vector 0 (lambda (u--d) (lambda (u--b) (lambda (u--c) (lambda (u--a) (lambda (arg-353) (lambda (arg-355) (lambda (arg-357) (let ((sc1 arg-357)) (let ((e-5 (car sc1))) (let ((e-4 (cdr sc1))) (cons (arg-353 e-5) (arg-355 e-4)))))))))))) (lambda (u--b) (lambda (u--c) (lambda (u--a) (lambda (arg-362) (lambda (arg-364) (let ((sc1 arg-364)) (let ((e-5 (car sc1))) (let ((e-4 (cdr sc1))) (cons (arg-362 e-5) e-4))))))))) (lambda (u--a) (lambda (u--d) (lambda (u--b) (lambda (arg-365) (lambda (arg-367) (let ((sc1 arg-367)) (let ((e-5 (car sc1))) (let ((e-4 (cdr sc1))) (cons e-5 (arg-365 e-4))))))))))) (lambda (eta-0) (PreludeC-45Types-u--fromInteger_Num_Nat (PreludeC-45Cast-u--cast_Cast_Int_Integer eta-0))) arg-4))))))) -(define IdrisC-45Error-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32ploc-784 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (let ((u--emph (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-spaces (PreludeC-45Cast-u--cast_Cast_Nat_Int (PreludeC-45Types-u--C-43_Num_Nat (PreludeC-45Types-u--C-43_Num_Nat arg-9 arg-5) (+ 1 (+ 1 (+ 1 (+ 1 0))))))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-annotate (vector 1 ) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String (LibrariesC-45DataC-45StringC-45Extra-replicate (PreludeC-45Types-minus arg-8 arg-5) #\^)))))) (let ((u--firstr (PreludeC-45Types-minus arg-7 (+ 1 (+ 1 (+ 1 (+ 1 0))))))) (lambda (eta-0) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45TypesC-45List-C-43C-43 (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-emptyDoc) (cons arg-10 '())) (PreludeC-45TypesC-45List-C-43C-43 (IdrisC-45Error-n--14065-589-u--addLineNumbers arg-0 arg-1 arg-2 arg-3 arg-4 arg-9 u--firstr (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (PreludeC-45Types-u--map_Functor_List eta-3 eta-4))))) (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String eta-1)) (IdrisC-45Error-n--14065-587-u--extractRange arg-0 arg-1 arg-2 arg-3 arg-4 u--firstr arg-7 arg-11))) (cons u--emph '())))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line))))))) (else (lambda (eta-0) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-emptyDoc) (cons arg-10 (IdrisC-45Error-n--14065-589-u--addLineNumbers arg-0 arg-1 arg-2 arg-3 arg-4 arg-9 arg-6 (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (PreludeC-45Types-u--map_Functor_List eta-3 eta-4))))) (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String eta-1)) (IdrisC-45Error-n--14065-587-u--extractRange arg-0 arg-1 arg-2 arg-3 arg-4 arg-6 (PreludeC-45Types-u--min_Ord_Nat arg-7 (PreludeC-45Types-u--C-43_Num_Nat arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))))) arg-11)))))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line))))))))) -(define IdrisC-45Error-case--caseC-32blockC-32inC-32ploc-729 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((u--nsize (PreludeC-45TypesC-45String-length (PreludeC-45Show-u--show_Show_Nat (PreludeC-45Types-u--C-43_Num_Nat e-2 (+ 1 0)))))) (let ((u--head (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-annotate (vector 3 ) (CoreC-45FC-u--pretty_Pretty_FC arg-3)))) (lambda (eta-0) (let ((act-24 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (DataC-45List1-forget (LibrariesC-45DataC-45StringC-45Extra-lines e-5)))))))) (lambda (eta-1) (IdrisC-45REPLC-45Opts-getCurrentElabSource arg-4 eta-1)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) ((IdrisC-45Error-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32ploc-784 arg-0 arg-1 arg-2 arg-3 arg-4 arg-6 arg-5 e-2 e-3 u--nsize u--head e-5 (PreludeC-45Types-u--C-61C-61_Eq_Nat arg-5 e-2)) eta-0)))))))))))))) -(define IdrisC-45Error-case--ploc-695 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (IdrisC-45Error-case--caseC-32blockC-32inC-32ploc-729 arg-0 arg-1 arg-2 arg-3 arg-4 e-2 e-3 (PreludeC-45Interfaces-mapHom (vector 0 (lambda (u--d) (lambda (u--b) (lambda (u--c) (lambda (u--a) (lambda (arg-353) (lambda (arg-355) (lambda (arg-357) (let ((sc1 arg-357)) (let ((e-5 (car sc1))) (let ((e-4 (cdr sc1))) (cons (arg-353 e-5) (arg-355 e-4)))))))))))) (lambda (u--b) (lambda (u--c) (lambda (u--a) (lambda (arg-362) (lambda (arg-364) (let ((sc1 arg-364)) (let ((e-5 (car sc1))) (let ((e-4 (cdr sc1))) (cons (arg-362 e-5) e-4))))))))) (lambda (u--a) (lambda (u--d) (lambda (u--b) (lambda (arg-365) (lambda (arg-367) (let ((sc1 arg-367)) (let ((e-5 (car sc1))) (let ((e-4 (cdr sc1))) (cons e-5 (arg-365 e-4))))))))))) (lambda (eta-0) (PreludeC-45Types-u--fromInteger_Num_Nat (PreludeC-45Cast-u--cast_Cast_Int_Integer eta-0))) arg-0))))))) -(define IdrisC-45Error-case--caseC-32blockC-32inC-32pShowMN-435 (lambda (arg-1 arg-2 arg-3 arg-5 arg-6 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((2) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 arg-2 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-parens (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "implicitly bound at") (CoreC-45FC-u--pretty_Pretty_FC (CoreC-45Env-getBinderLoc arg-1 arg-6 arg-3))))))(else arg-2))))) -(define IdrisC-45Error-n--15966-4527-u--tshow (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 ext-0) (let ((sc0 arg-9)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((act-24 (IdrisC-45Error-pshow arg-7 arg-6 arg-5 arg-8 e-3 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (CoreC-45Name-u--pretty_Pretty_Name e-2) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon) (IdrisC-45Pretty-code e-5)))))))))))))) -(define IdrisC-45Error-n--15966-2505-u--prettyVar (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((3) (let ((e-0 (vector-ref sc0 1))) (IdrisC-45Error-n--15966-2505-u--prettyVar arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-0)))(else (CoreC-45Name-u--pretty_Pretty_Name arg-8)))))) -(define IdrisC-45Error-n--15966-3552-u--prettyRig (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (AlgebraC-45Semiring-elimSemi (cons (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-7) (lambda (arg-8) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-7 arg-8))) (lambda (arg-7) (lambda (arg-8) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-7 arg-8))))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "irrelevant") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "linear") (lambda (eta-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "unrestricted")) ext-0))) -(define IdrisC-45Error-n--15966-3553-u--prettyRel (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (AlgebraC-45Semiring-elimSemi (cons (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-7) (lambda (arg-8) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-7 arg-8))) (lambda (arg-7) (lambda (arg-8) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-7 arg-8))))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "irrelevant") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "relevant") (lambda (eta-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "non-linear")) ext-0))) -(define IdrisC-45Error-n--15966-4844-u--prettyHoles (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((sc0 arg-4)) (if (null? sc0) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-emptyDoc)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (let ((act-24 ((IdrisC-45Error-ploc arg-1 e-6) ext-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (IdrisC-45Error-n--15966-4844-u--prettyHoles arg-0 arg-1 arg-2 arg-3 e-3 ext-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-meta (CoreC-45Name-u--pretty_Pretty_Name e-7)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "introduced at:") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 e-5 e-8))))))))))))))))))))))) -(define IdrisC-45Error-n--14446-944-u--pad (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (PreludeC-45TypesC-45String-C-43C-43 (LibrariesC-45DataC-45StringC-45Extra-replicate (PreludeC-45Types-minus arg-7 (PreludeC-45TypesC-45String-length arg-8)) #\0) arg-8))) -(define IdrisC-45Error-n--14065-588-u--pad (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (PreludeC-45TypesC-45String-C-43C-43 (LibrariesC-45DataC-45StringC-45Extra-replicate (PreludeC-45Types-minus arg-5 (PreludeC-45TypesC-45String-length arg-6)) #\0) arg-6))) -(define IdrisC-45Error-n--15966-4062-u--pAlterror (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((sc0 arg-4)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (let ((act-24 (CoreC-45Context-getFullName arg-3 e-5 ext-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-25 (CoreC-45Context-aliasName arg-3 e-6 ext-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-26 ((IdrisC-45Error-perror arg-3 arg-2 arg-1 e-3) ext-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "If") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-code (CoreC-45Name-u--pretty_Pretty_Name e-7)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon)) e-8)))))))))))))))))))) (else (let ((act-24 ((IdrisC-45Error-perror arg-3 arg-2 arg-1 e-3) ext-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Possible error") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-indent 4 e-5)))))))))))))))) -(define IdrisC-45Error-n--15966-2506-u--order (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (cons (vector 1 ) arg-9))(else (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (cons arg-8 (vector 1 )))(else (let ((sc0 arg-8)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((sc1 arg-9)) (let ((e-3 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (let ((e-5 (vector-ref sc1 3))) (let ((u--fc2 (vector 0 e-3 e-4 e-5))) (let ((u--fc1 (vector 0 e-0 e-1 e-2))) (IdrisC-45Error-case--perrorC-44order-2542 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-0 e-3 e-5 e-4 u--fc2 e-2 e-1 u--fc1 (PreludeC-45EqOrd-u--C-60_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector 0 (cons (lambda (arg-10) (lambda (arg-11) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-10 arg-11))) (lambda (arg-10) (lambda (arg-11) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-10 arg-11)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Int arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Int arg-383 arg-384)))) (vector 0 (cons (lambda (arg-10) (lambda (arg-11) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-10 arg-11))) (lambda (arg-10) (lambda (arg-11) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-10 arg-11)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Int arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Int arg-383 arg-384)))) e-1 e-4)))))))))))))))))))) -(define IdrisC-45Error-n--14446-943-u--extractRange (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (DataC-45List-take (PreludeC-45Types-u--C-43_Num_Nat (PreludeC-45Types-minus arg-8 arg-7) (+ 1 0)) (DataC-45List-drop arg-7 arg-9)))) -(define IdrisC-45Error-n--14065-587-u--extractRange (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (DataC-45List-take (PreludeC-45Types-u--C-43_Num_Nat (PreludeC-45Types-minus arg-6 arg-5) (+ 1 0)) (DataC-45List-drop arg-5 arg-7)))) -(define IdrisC-45Error-n--15966-4662-u--dropEnv (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((3) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (IdrisC-45Error-n--15966-4662-u--dropEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (cons e-2 arg-7) (cons e-3 arg-8) e-4)) ((1) (IdrisC-45Error-n--15966-4662-u--dropEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (cons e-2 arg-7) (cons e-3 arg-8) e-4))(else (cons arg-7 (cons arg-8 arg-9)))))))))(else (cons arg-7 (cons arg-8 arg-9))))))) -(define IdrisC-45Error-n--15966-4063-u--allUndefined (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (if (null? sc0) (vector 0 ) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (if (null? sc1) (vector 0 ) (let ((e-7 (cdr sc1))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((7) (let ((sc3 e-3)) (if (null? sc3) (vector 1 e-7) (IdrisC-45Error-n--15966-4063-u--allUndefined arg-0 arg-1 arg-2 arg-3 e-3))))(else (vector 0 ))))))))))))) -(define IdrisC-45Error-n--14446-945-u--addLineNumbers (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (Builtin-snd (PreludeC-45Types-u--foldl_Foldable_List (lambda (lamc-0) (lambda (clam-0) (let ((sc0 lamc-0)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (cons (+ 1 e-2) (DataC-45List-snoc e-3 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-space) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-annotate (vector 3 ) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String (IdrisC-45Error-n--14446-944-u--pad arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (PreludeC-45Show-u--show_Show_Nat (PreludeC-45Types-u--C-43_Num_Nat e-2 (+ 1 0))))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-pipe)))) clam-0)))))))) (cons arg-8 '()) arg-9)))) -(define IdrisC-45Error-n--14065-589-u--addLineNumbers (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (Builtin-snd (PreludeC-45Types-u--foldl_Foldable_List (lambda (lamc-0) (let ((u--fc (vector 0 arg-2 arg-1 arg-0))) (lambda (clam-0) (let ((sc0 lamc-0)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (cons (+ 1 e-2) (DataC-45List-snoc e-3 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-space) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-annotate (vector 3 ) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String (IdrisC-45Error-n--14065-588-u--pad arg-0 arg-1 arg-2 u--fc arg-4 arg-5 (PreludeC-45Show-u--show_Show_Nat (PreludeC-45Types-u--C-43_Num_Nat e-2 (+ 1 0))))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-pipe)))) clam-0))))))))) (cons arg-6 '()) arg-7)))) -(define IdrisC-45Error-pwarning (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((act-24 (IdrisC-45Error-pshow e-0 arg-0 arg-1 e-2 e-3 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((IdrisC-45Error-ploc arg-2 e-1) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Unreachable clause:") (IdrisC-45Pretty-code e-5))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) e-6))))))))))))))))) (else (let ((e-4 (vector-ref sc0 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "Deprecation warning:") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String e-4))))))))) -(define IdrisC-45Error-pshowNoNorm (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((act-25 (IdrisC-45Resugar-resugar arg-0 arg-1 arg-2 arg-3 arg-4 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 (IdrisC-45Error-pShowMN arg-0 arg-4 arg-3 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-reAnnotate (lambda (eta-0) (vector 6 eta-0)) (IdrisC-45Pretty-prettyTerm e-6))))))))))))))) -(define IdrisC-45Error-pshow (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (CoreC-45Normalise-normaliseHoles arg-1 arg-0 e-5 arg-3 arg-4 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (IdrisC-45Resugar-resugar arg-0 arg-1 arg-2 arg-3 e-6 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (vector 1 (IdrisC-45Error-pShowMN arg-0 e-6 arg-3 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-reAnnotate (lambda (eta-0) (vector 6 eta-0)) (IdrisC-45Pretty-prettyTerm e-7))))))))))))))))))))) -(define IdrisC-45Error-ploc2 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (IdrisC-45Error-ploc arg-0 arg-1))(else (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (IdrisC-45Error-ploc arg-0 arg-2)) (else (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((sc1 arg-2)) (let ((e-3 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (let ((e-5 (vector-ref sc1 3))) (IdrisC-45Error-case--ploc2-1055 e-2 e-1 e-0 e-5 e-4 e-3 arg-0 (PreludeC-45Interfaces-mapHom (vector 0 (lambda (u--d) (lambda (u--b) (lambda (u--c) (lambda (u--a) (lambda (arg-353) (lambda (arg-355) (lambda (arg-357) (let ((sc2 arg-357)) (let ((e-7 (car sc2))) (let ((e-6 (cdr sc2))) (cons (arg-353 e-7) (arg-355 e-6)))))))))))) (lambda (u--b) (lambda (u--c) (lambda (u--a) (lambda (arg-362) (lambda (arg-364) (let ((sc2 arg-364)) (let ((e-7 (car sc2))) (let ((e-6 (cdr sc2))) (cons (arg-362 e-7) e-6))))))))) (lambda (u--a) (lambda (u--d) (lambda (u--b) (lambda (arg-365) (lambda (arg-367) (let ((sc2 arg-367)) (let ((e-7 (car sc2))) (let ((e-6 (cdr sc2))) (cons e-7 (arg-365 e-6))))))))))) (lambda (eta-0) (PreludeC-45Types-u--fromInteger_Num_Nat (PreludeC-45Cast-u--cast_Cast_Int_Integer eta-0))) e-1))))))))))))))))) -(define IdrisC-45Error-ploc (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-emptyDoc)))) (else (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((u--fc (vector 0 e-0 e-1 e-2))) (IdrisC-45Error-case--ploc-695 e-2 e-1 e-0 u--fc arg-0 (PreludeC-45Interfaces-mapHom (vector 0 (lambda (u--d) (lambda (u--b) (lambda (u--c) (lambda (u--a) (lambda (arg-353) (lambda (arg-355) (lambda (arg-357) (let ((sc1 arg-357)) (let ((e-4 (car sc1))) (let ((e-3 (cdr sc1))) (cons (arg-353 e-4) (arg-355 e-3)))))))))))) (lambda (u--b) (lambda (u--c) (lambda (u--a) (lambda (arg-362) (lambda (arg-364) (let ((sc1 arg-364)) (let ((e-4 (car sc1))) (let ((e-3 (cdr sc1))) (cons (arg-362 e-4) e-3))))))))) (lambda (u--a) (lambda (u--d) (lambda (u--b) (lambda (arg-365) (lambda (arg-367) (let ((sc1 arg-367)) (let ((e-4 (car sc1))) (let ((e-3 (cdr sc1))) (cons e-4 (arg-365 e-3))))))))))) (lambda (eta-0) (PreludeC-45Types-u--fromInteger_Num_Nat (PreludeC-45Cast-u--cast_Cast_Int_Integer eta-0))) e-1))))))))))) -(define IdrisC-45Error-perror (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (IdrisC-45Error-perror arg-0 arg-1 arg-2 e-0))) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (IdrisC-45Error-pshow e-1 arg-0 arg-1 e-3 e-4 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-25 (IdrisC-45Error-pshow e-1 arg-0 arg-1 e-3 e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-26 ((IdrisC-45Error-ploc arg-2 e-2) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-8 (vector-ref sc3 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc3 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-hsep (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Mismatch between") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon)) (cons (IdrisC-45Pretty-code e-6) (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unsafeTextWithoutNewLines eta-1)) (DataC-45List1-forget (LibrariesC-45DataC-45StringC-45Extra-lines (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-case--pretty-5531 "and" (DataC-45String-isSuffixOf "\u000a" "and")))))) (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-code e-7) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-dot)) '())))))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) e-8)))))))))))))))))))))))) ((2) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (let ((e-9 (vector-ref sc0 4))) (let ((e-10 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (IdrisC-45Error-pshow e-6 arg-0 arg-1 e-8 e-9 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (IdrisC-45Error-pshow e-6 arg-0 arg-1 e-8 e-10 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc2 1))) (let ((act-26 ((IdrisC-45Error-ploc arg-2 e-7) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc3 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-hsep (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Can't solve constraint between") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon)) (cons (IdrisC-45Pretty-code e-5) (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unsafeTextWithoutNewLines eta-1)) (DataC-45List1-forget (LibrariesC-45DataC-45StringC-45Extra-lines (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-case--pretty-5531 "and" (DataC-45String-isSuffixOf "\u000a" "and")))))) (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-code e-11) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-dot)) '())))))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) e-12)))))))))))))))))))))))) ((3) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 4))) (let ((e-15 (vector-ref sc0 5))) (lambda (eta-0) (IdrisC-45Error-case--perror-2713 e-11 e-15 e-14 e-13 e-12 arg-2 arg-1 arg-0 (IdrisC-45Error-n--15966-2506-u--order e-11 e-15 e-14 e-13 e-12 arg-2 arg-1 arg-0 e-12 (CoreC-45TT-getLoc e-15)) eta-0)))))))) ((4) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (let ((e-20 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((CoreC-45Context-prettyName arg-0 e-19) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (IdrisC-45Error-pshow e-16 arg-0 arg-1 e-18 e-20 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((IdrisC-45Error-ploc arg-2 e-17) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Cycle detected in solution of metavariable") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-meta (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String e-5)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-equals) (IdrisC-45Pretty-code e-6))))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) e-7)))))))))))))))))))))))) ((5) (let ((e-21 (vector-ref sc0 1))) (let ((e-23 (vector-ref sc0 3))) (let ((e-24 (vector-ref sc0 4))) (let ((e-25 (vector-ref sc0 5))) (let ((e-26 (vector-ref sc0 6))) (lambda (eta-0) (let ((act-24 (IdrisC-45Error-pshow e-21 arg-0 arg-1 e-23 e-24 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (IdrisC-45Error-pshow e-21 arg-0 arg-1 e-23 e-25 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((IdrisC-45Error-perror arg-0 arg-1 arg-2 e-26) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "When unifying") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-code e-5) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "and") (IdrisC-45Pretty-code e-6))))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-dot)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) e-7)))))))))))))))))))))))) ((6) (let ((e-27 (vector-ref sc0 1))) (let ((e-28 (vector-ref sc0 2))) (let ((e-29 (vector-ref sc0 3))) (let ((e-30 (vector-ref sc0 4))) (lambda (clam-0) (let ((sc1 e-30)) (case (vector-ref sc1 0) ((0) (let ((e-204 (vector-ref sc1 1))) (let ((act-24 (IdrisC-45Error-pshow e-27 arg-0 arg-1 e-29 e-204 clam-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((IdrisC-45Error-ploc arg-2 e-28) clam-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-code e-5) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "is not a valid impossible case."))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) e-6)))))))))))))) (else (let ((e-207 (vector-ref sc1 1))) (let ((act-24 ((IdrisC-45Error-perror arg-0 arg-1 arg-2 e-207) clam-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Impossible pattern gives an error") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) e-5))))))))))))))))) ((7) (let ((e-31 (vector-ref sc0 1))) (let ((e-32 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((IdrisC-45Error-ploc arg-2 e-31) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Undefined name") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-code (CoreC-45Name-u--pretty_Pretty_Name e-32)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-dot)))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line) e-5)))))))))))) ((8) (let ((e-33 (vector-ref sc0 1))) (let ((e-34 (vector-ref sc0 2))) (let ((e-35 (vector-ref sc0 3))) (lambda (clam-1) (let ((sc1 e-35)) (case (vector-ref sc1 0) ((1) (let ((e-209 (vector-ref sc1 1))) (let ((act-24 ((IdrisC-45Error-ploc arg-2 e-33) clam-1))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "Name") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-code (CoreC-45Name-u--pretty_Pretty_Name e-34)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "is inaccessible since") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-code (CoreC-45NameC-45Namespace-u--pretty_Pretty_Namespace e-209)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "is not explicitly imported.")))))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) e-5) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Suggestion: add an explicit")) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Error-keyword (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unsafeTextWithoutNewLines eta-0)) (DataC-45List1-forget (LibrariesC-45DataC-45StringC-45Extra-lines (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-case--pretty-5531 "export" (DataC-45String-isSuffixOf "\u000a" "export"))))))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "or") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Error-keyword (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "public") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "export"))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "modifier. By default, all names are") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Error-keyword (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unsafeTextWithoutNewLines eta-0)) (DataC-45List1-forget (LibrariesC-45DataC-45StringC-45Extra-lines (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-case--pretty-5531 "private" (DataC-45String-isSuffixOf "\u000a" "private"))))))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "in namespace blocks."))))))))))))))) (else (let ((act-24 ((IdrisC-45Error-ploc arg-2 e-33) clam-1))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "Name") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-code (CoreC-45Name-u--pretty_Pretty_Name e-34)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "is private.")))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) e-5) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Suggestion: add an explicit")) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Error-keyword (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unsafeTextWithoutNewLines eta-0)) (DataC-45List1-forget (LibrariesC-45DataC-45StringC-45Extra-lines (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-case--pretty-5531 "export" (DataC-45String-isSuffixOf "\u000a" "export"))))))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "or") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Error-keyword (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "public") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "export"))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "modifier. By default, all names are") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Error-keyword (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unsafeTextWithoutNewLines eta-0)) (DataC-45List1-forget (LibrariesC-45DataC-45StringC-45Extra-lines (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-case--pretty-5531 "private" (DataC-45String-isSuffixOf "\u000a" "private"))))))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "in namespace blocks."))))))))))))))))))))) ((9) (let ((e-36 (vector-ref sc0 1))) (let ((e-37 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((IdrisC-45Error-ploc arg-2 e-36) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Return type of") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-code (CoreC-45Name-u--pretty_Pretty_Name e-37)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "must be") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-code (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unsafeTextWithoutNewLines eta-1)) (DataC-45List1-forget (LibrariesC-45DataC-45StringC-45Extra-lines (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-case--pretty-5531 "Type" (DataC-45String-isSuffixOf "\u000a" "Type"))))))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-dot)))))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) e-5))))))))))) ((10) (let ((e-38 (vector-ref sc0 1))) (let ((e-39 (vector-ref sc0 2))) (let ((e-40 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-1) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-1)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) e-40 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((IdrisC-45Error-ploc arg-2 e-38) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Return type of") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-code (CoreC-45Name-u--pretty_Pretty_Name e-39)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "must be in") (IdrisC-45Pretty-code (CoreC-45Name-u--pretty_Pretty_Name e-5)))))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line) e-6)))))))))))))))))) ((11) (let ((e-41 (vector-ref sc0 1))) (let ((e-42 (vector-ref sc0 2))) (let ((e-43 (vector-ref sc0 3))) (lambda (clam-2) (let ((sc1 e-43)) (case (vector-ref sc1 0) ((0) (vector 1 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Internal error") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-parens (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Coverage of") (IdrisC-45Pretty-code (CoreC-45Name-u--pretty_Pretty_Name e-42)))))))) ((1) (let ((e-211 (vector-ref sc1 1))) (let ((act-24 ((CoreC-45Context-prettyName arg-0 e-42) clam-2))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((IdrisC-45Error-ploc arg-2 e-41) clam-2))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (IdrisC-45Error-pshow '() arg-0 arg-1 '() eta-0 eta-1))) e-211 '() clam-2))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-code (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String e-5)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "is not covering."))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) e-6) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Missing cases")) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-indent 4 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep e-7))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)))))))))))))))))))) (else (let ((e-212 (vector-ref sc1 1))) (let ((act-24 ((CoreC-45Context-prettyName arg-0 e-42) clam-2))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((IdrisC-45Error-ploc arg-2 e-41) clam-2))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String e-5) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "is not covering."))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) e-6) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Calls non covering function")) (let ((sc4 e-212)) (if (null? sc4) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Char #\s) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-concatWith (lambda (eta-0) (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-surround (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-comma) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-space)) eta-0 eta-1))) (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (PreludeC-45Types-u--map_Functor_List eta-2 eta-3))))) (lambda (eta-0) (CoreC-45Name-u--pretty_Pretty_Name eta-0)) e-212))) (let ((e-1 (car sc4))) (let ((e-2 (cdr sc4))) (let ((sc5 e-2)) (if (null? sc5) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-space) (CoreC-45Name-u--pretty_Pretty_Name e-1)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Char #\s) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-concatWith (lambda (eta-0) (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-surround (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-comma) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-space)) eta-0 eta-1))) (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (PreludeC-45Types-u--map_Functor_List eta-2 eta-3))))) (lambda (eta-0) (CoreC-45Name-u--pretty_Pretty_Name eta-0)) e-212)))))))))))))))))))))))))))))) ((12) (let ((e-44 (vector-ref sc0 1))) (let ((e-45 (vector-ref sc0 2))) (let ((e-46 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((CoreC-45Context-prettyName arg-0 e-45) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((IdrisC-45Error-ploc arg-2 e-44) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-code (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String e-5)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "is not total,") (CoreC-45TT-u--pretty_Pretty_PartialReason e-46)))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) e-6))))))))))))))))) ((13) (let ((e-47 (vector-ref sc0 1))) (let ((e-48 (vector-ref sc0 2))) (let ((e-49 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((IdrisC-45Error-ploc arg-2 e-47) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "There are") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Nat e-48) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "uses of linear name") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-code (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String (IdrisC-45Resugar-sugarName e-49))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-dot)))))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line) e-5) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Suggestion: linearly bounded variables must be used exactly once.")))))))))))))) ((14) (let ((e-50 (vector-ref sc0 1))) (let ((e-51 (vector-ref sc0 2))) (let ((e-52 (vector-ref sc0 3))) (let ((e-53 (vector-ref sc0 4))) (lambda (eta-0) (IdrisC-45Error-case--perror-3609 e-53 e-52 e-51 e-50 arg-2 arg-1 arg-0 (AlgebraC-45Semiring-isErased (cons (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-4) (lambda (arg-5) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-4 arg-5))))) e-52) eta-0))))))) ((15) (let ((e-54 (vector-ref sc0 1))) (let ((e-55 (vector-ref sc0 2))) (let ((e-56 (vector-ref sc0 3))) (let ((e-57 (vector-ref sc0 4))) (let ((e-58 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (IdrisC-45Error-pshow e-54 arg-0 arg-1 e-56 e-57 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (IdrisC-45Error-pshow e-54 arg-0 arg-1 e-56 e-58 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((IdrisC-45Error-ploc arg-2 e-55) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-code e-5) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "borrows argument") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-code e-6) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "so must be fully applied."))))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) e-7)))))))))))))))))))))))) ((16) (let ((e-59 (vector-ref sc0 1))) (let ((e-60 (vector-ref sc0 2))) (let ((e-61 (vector-ref sc0 3))) (let ((e-62 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (IdrisC-45Error-pshow e-59 arg-0 arg-1 e-61 e-62 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((IdrisC-45Error-ploc arg-2 e-60) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-code e-5) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "borrows, so must return a concrete type."))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) e-6)))))))))))))))))) ((17) (let ((e-63 (vector-ref sc0 1))) (let ((e-64 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((IdrisC-45Error-ploc arg-2 e-63) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Ambiguous name") (IdrisC-45Pretty-code (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_C-40ListC-32C-36aC-41 (cons (lambda (u--ann) (lambda (arg-5451) (CoreC-45Name-u--pretty_Pretty_Name arg-5451))) (lambda (u--ann) (lambda (arg-5452) (lambda (arg-5453) (CoreC-45Name-u--prettyPrec_Pretty_Name arg-5452 arg-5453))))) e-64)))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) e-5))))))))))) ((18) (let ((e-65 (vector-ref sc0 1))) (let ((e-66 (vector-ref sc0 2))) (let ((e-67 (vector-ref sc0 3))) (let ((e-68 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (CoreC-45Context-getPPrint arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Context-setPPrint arg-0 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (vector 0 e-0 e-1 0)))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45Core-traverseC-39 (lambda (eta-1) (lambda (eta-2) (IdrisC-45Error-pshow e-65 arg-0 arg-1 e-67 eta-1 eta-2))) e-68 '() eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((IdrisC-45Error-ploc arg-2 e-66) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((u--res (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (cons (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Ambiguous elaboration. Possible results") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon))) (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-indent 4 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep e-7)) '()))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) e-8))) (let ((act-28 (CoreC-45Context-setPPrint arg-0 e-5 eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (vector 1 u--res))))))))))))))))))))))))))))))) ((19) (let ((e-69 (vector-ref sc0 1))) (let ((e-70 (vector-ref sc0 2))) (let ((e-71 (vector-ref sc0 3))) (let ((e-72 (vector-ref sc0 4))) (let ((e-73 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (IdrisC-45Error-pshowNoNorm e-69 arg-0 arg-1 e-71 e-72 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((IdrisC-45Error-ploc arg-2 e-70) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (CoreC-45Core-traverseC-39 (lambda (eta-1) (lambda (eta-2) (IdrisC-45Error-pshowNoNorm e-69 arg-0 arg-1 e-71 eta-1 eta-2))) e-73 '() eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (cons (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Multiple solutions found in search of") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon))) (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-indent 4 e-5) (cons e-6 (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Possible correct results") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon)) (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-indent 4 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep e-7)) '()))))))))))))))))))))))))))))) ((20) (let ((e-74 (vector-ref sc0 1))) (let ((e-75 (vector-ref sc0 2))) (let ((e-76 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (CoreC-45Context-getFullName arg-0 e-75 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (eta-1) (lambda (eta-2) (CoreC-45Context-getFullName arg-0 eta-1 eta-2))) e-76 '() eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((IdrisC-45Error-ploc arg-2 e-74) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Maximum ambiguity depth exceeded in") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-code (CoreC-45Name-u--pretty_Pretty_Name e-5)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon)))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-concatWith (lambda (eta-1) (lambda (eta-2) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-surround (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String " --> ") eta-1 eta-2))) (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (PreludeC-45Types-u--map_Functor_List eta-3 eta-4))))) (lambda (eta-1) (CoreC-45Name-u--pretty_Pretty_Name eta-1)) e-6))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line) e-7) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Suggestion: the default ambiguity depth limit is 3, the")) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-code (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unsafeTextWithoutNewLines eta-1)) (DataC-45List1-forget (LibrariesC-45DataC-45StringC-45Extra-lines (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-case--pretty-5531 "%ambiguity_depth" (DataC-45String-isSuffixOf "\u000a" "%ambiguity_depth"))))))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "pragma can be used to extend this limit, but beware compilation times can be severely impacted."))))))))))))))))))))))))) ((21) (let ((e-77 (vector-ref sc0 1))) (IdrisC-45Error-case--perror-4183 e-77 arg-2 arg-1 arg-0 (IdrisC-45Error-n--15966-4063-u--allUndefined e-77 arg-2 arg-1 arg-0 e-77)))) ((22) (let ((e-79 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((IdrisC-45Error-ploc arg-2 e-79) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Can't infer type for this record update.")) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) e-5)))))))))) ((23) (let ((e-81 (vector-ref sc0 1))) (let ((e-82 (vector-ref sc0 2))) (let ((e-83 (vector-ref sc0 3))) (lambda (clam-3) (let ((sc1 e-83)) (case (vector-ref sc1 0) ((0) (let ((act-24 ((IdrisC-45Error-ploc arg-2 e-81) clam-3))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-code (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String e-82)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "is not part of a record type."))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) e-5)))))))) (else (let ((e-215 (vector-ref sc1 1))) (let ((act-24 (CoreC-45Context-getFullName arg-0 e-215 clam-3))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((IdrisC-45Error-ploc arg-2 e-81) clam-3))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Record type") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-code (CoreC-45Name-u--pretty_Pretty_Name e-5)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "has no field") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-code (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String e-82)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-dot)))))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) e-6))))))))))))))))))))) ((24) (let ((e-84 (vector-ref sc0 1))) (let ((e-85 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (CoreC-45Context-getFullName arg-0 e-85 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((IdrisC-45Error-ploc arg-2 e-84) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-code (CoreC-45Name-u--pretty_Pretty_Name e-5)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "is not a record type."))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) e-6)))))))))))))))) ((25) (let ((e-86 (vector-ref sc0 1))) (let ((e-87 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((IdrisC-45Error-ploc arg-2 e-86) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Field update") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-concatWith (lambda (eta-1) (lambda (eta-2) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-surround (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "->") eta-1 eta-2))) (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (PreludeC-45Types-u--map_Functor_List eta-3 eta-4))))) (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String eta-1)) e-87)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "not compatible with other updates at") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) e-5))))))))))))) ((26) (let ((e-88 (vector-ref sc0 1))) (let ((e-89 (vector-ref sc0 2))) (let ((e-90 (vector-ref sc0 3))) (let ((e-91 (vector-ref sc0 4))) (let ((e-92 (vector-ref sc0 5))) (lambda (clam-0) (let ((sc1 e-91)) (if (null? sc1) (let ((act-24 (IdrisC-45Error-pshow e-88 arg-0 arg-1 e-90 e-92 clam-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((IdrisC-45Error-ploc arg-2 e-89) clam-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-concatWith (lambda (eta-0) (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-surround (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-comma) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-space)) eta-0 eta-1))) (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (PreludeC-45Types-u--map_Functor_List eta-2 eta-3))))) (lambda (eta-0) (IdrisC-45Pretty-code (CoreC-45Name-u--pretty_Pretty_Name eta-0))) e-91)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "are not valid arguments in") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 e-5 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-dot))))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) e-6)))))))))))) (let ((e-217 (car sc1))) (let ((e-218 (cdr sc1))) (let ((sc2 e-218)) (if (null? sc2) (let ((act-24 (IdrisC-45Error-pshow e-88 arg-0 arg-1 e-90 e-92 clam-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((IdrisC-45Error-ploc arg-2 e-89) clam-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-code (CoreC-45Name-u--pretty_Pretty_Name e-217)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "is not a valid argument in") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 e-5 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-dot))))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) e-6)))))))))))) (let ((act-24 (IdrisC-45Error-pshow e-88 arg-0 arg-1 e-90 e-92 clam-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((IdrisC-45Error-ploc arg-2 e-89) clam-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-concatWith (lambda (eta-0) (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-surround (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-comma) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-space)) eta-0 eta-1))) (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (PreludeC-45Types-u--map_Functor_List eta-2 eta-3))))) (lambda (eta-0) (IdrisC-45Pretty-code (CoreC-45Name-u--pretty_Pretty_Name eta-0))) e-91)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "are not valid arguments in") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 e-5 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-dot))))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) e-6))))))))))))))))))))))))) ((27) (let ((e-93 (vector-ref sc0 1))) (let ((e-94 (vector-ref sc0 2))) (let ((e-95 (vector-ref sc0 3))) (let ((e-96 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-1) (lambda (eta-2) (IdrisC-45Error-n--15966-4527-u--tshow e-93 e-96 e-95 e-94 arg-2 arg-1 arg-0 e-93 e-95 eta-1 eta-2))) e-96 '() eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((IdrisC-45Error-ploc arg-2 e-94) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Need to bind implicits") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-concatWith (lambda (eta-1) (lambda (eta-2) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-surround (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-comma) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-space)) eta-1 eta-2))) e-5) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-dot)))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) e-6)))))))))))))))))) ((28) (let ((e-97 (vector-ref sc0 1))) (let ((e-98 (vector-ref sc0 2))) (let ((e-99 (vector-ref sc0 3))) (let ((e-100 (vector-ref sc0 4))) (let ((e-101 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (IdrisC-45Error-pshow e-97 arg-0 arg-1 e-99 e-101 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((IdrisC-45Error-ploc arg-2 e-98) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Can't bind name") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-code (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String (CoreC-45Name-nameRoot e-100))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "with type") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-code e-5) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon)))))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) e-6) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Suggestion: try an explicit bind.")))))))))))))))))))) ((29) (let ((e-102 (vector-ref sc0 1))) (let ((e-103 (vector-ref sc0 2))) (let ((e-104 (vector-ref sc0 3))) (let ((e-105 (vector-ref sc0 4))) (lambda (eta-0) (IdrisC-45Error-case--perror-4731 e-102 e-105 e-104 e-103 arg-2 arg-1 arg-0 (IdrisC-45Error-n--15966-4662-u--dropEnv e-102 e-105 e-104 e-103 arg-2 arg-1 arg-0 e-102 e-104 e-105) eta-0))))))) ((30) (let ((e-106 (vector-ref sc0 1))) (let ((e-107 (vector-ref sc0 2))) (let ((e-108 (vector-ref sc0 3))) (let ((e-110 (vector-ref sc0 5))) (let ((e-111 (vector-ref sc0 6))) (lambda (eta-0) (let ((act-24 (IdrisC-45Error-pshow e-106 arg-0 arg-1 e-110 e-111 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((IdrisC-45Error-ploc arg-2 e-107) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Can't find an implementation for") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-code e-5) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "since I can't infer a value for argument")) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-code (CoreC-45Name-u--pretty_Pretty_Name e-108)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-dot))))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) e-6))))))))))))))))))) ((31) (let ((e-112 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (IdrisC-45Error-n--15966-4844-u--prettyHoles e-112 arg-2 arg-1 arg-0 e-112 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Unsolved holes") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) e-5)))))))))) ((32) (let ((e-113 (vector-ref sc0 1))) (let ((e-114 (vector-ref sc0 2))) (let ((e-115 (vector-ref sc0 3))) (let ((e-116 (vector-ref sc0 4))) (let ((e-117 (vector-ref sc0 5))) (let ((e-118 (vector-ref sc0 6))) (lambda (eta-0) (let ((act-24 (IdrisC-45Error-pshow e-113 arg-0 arg-1 e-115 e-118 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((IdrisC-45Error-ploc arg-2 e-114) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Can't infer type for argument") (IdrisC-45Pretty-code (CoreC-45Name-u--pretty_Pretty_Name e-116)))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unsafeTextWithoutNewLines eta-1)) (DataC-45List1-forget (LibrariesC-45DataC-45StringC-45Extra-lines (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-case--pretty-5531 "Got" (DataC-45String-isSuffixOf "\u000a" "Got"))))))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-code e-5) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "with hole") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-meta (CoreC-45Name-u--pretty_Pretty_Name e-117)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-dot)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) e-6))))))))))))))))))))))) ((33) (let ((e-119 (vector-ref sc0 1))) (let ((e-120 (vector-ref sc0 2))) (let ((e-121 (vector-ref sc0 3))) (let ((e-122 (vector-ref sc0 4))) (let ((e-123 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (IdrisC-45Error-pshow e-119 arg-0 arg-1 e-121 e-123 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((IdrisC-45Error-ploc arg-2 e-120) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Named hole") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-meta (CoreC-45Name-u--pretty_Pretty_Name e-122)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "has been solved by unification.")))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unsafeTextWithoutNewLines eta-1)) (DataC-45List1-forget (LibrariesC-45DataC-45StringC-45Extra-lines (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-case--pretty-5531 "Result" (DataC-45String-isSuffixOf "\u000a" "Result"))))))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-code e-5) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) e-6)))))))))))))))))))) ((34) (let ((e-124 (vector-ref sc0 1))) (let ((e-125 (vector-ref sc0 2))) (let ((e-126 (vector-ref sc0 3))) (let ((e-127 (vector-ref sc0 4))) (let ((e-128 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-1) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-1)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) e-126 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-1) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-1)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) e-128 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((IdrisC-45Error-ploc arg-2 e-124) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Error-keyword (CoreC-45TT-u--pretty_Pretty_Visibility e-125)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-code (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String (IdrisC-45Resugar-sugarName e-5))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "cannot refer to") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Error-keyword (CoreC-45TT-u--pretty_Pretty_Visibility e-127)) (IdrisC-45Pretty-code (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String (IdrisC-45Resugar-sugarName e-6)))))))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) e-7)))))))))))))))))))))))) ((35) (let ((e-129 (vector-ref sc0 1))) (let ((e-130 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((IdrisC-45Error-ploc arg-2 e-129) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Non linear pattern") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-code (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String (IdrisC-45Resugar-sugarName e-130))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-dot)))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) e-5))))))))))) ((36) (let ((e-131 (vector-ref sc0 1))) (let ((e-132 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((IdrisC-45Error-ploc arg-2 e-131) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Pattern not allowed here") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-code (CoreC-45Name-u--pretty_Pretty_Name e-132)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-dot)))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) e-5))))))))))) ((37) (let ((e-133 (vector-ref sc0 1))) (let ((e-134 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((IdrisC-45Error-ploc arg-2 e-133) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "No type declaration for") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-code (CoreC-45Name-u--pretty_Pretty_Name e-134)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-dot)))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) e-5))))))))))) ((38) (let ((e-135 (vector-ref sc0 1))) (let ((e-136 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((IdrisC-45Error-ploc arg-2 e-135) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-code (CoreC-45Name-u--pretty_Pretty_Name e-136)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "is already defined."))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) e-5))))))))))) ((39) (let ((e-137 (vector-ref sc0 1))) (let ((e-138 (vector-ref sc0 2))) (let ((e-139 (vector-ref sc0 3))) (let ((e-140 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (IdrisC-45Error-pshow e-137 arg-0 arg-1 e-139 e-140 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((IdrisC-45Error-ploc arg-2 e-138) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-code e-5) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "is not a function type."))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) e-6)))))))))))))))))) ((40) (let ((e-141 (vector-ref sc0 1))) (let ((e-142 (vector-ref sc0 2))) (let ((e-143 (vector-ref sc0 3))) (let ((e-144 (vector-ref sc0 4))) (let ((e-145 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (IdrisC-45Error-pshow e-141 arg-0 arg-1 e-143 e-144 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (IdrisC-45Error-pshow e-141 arg-0 arg-1 e-143 e-145 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((IdrisC-45Error-ploc arg-2 e-142) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Rewriting by") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-code e-5) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "did not change type") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-code e-6) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-dot)))))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) e-7)))))))))))))))))))))))) ((41) (let ((e-146 (vector-ref sc0 1))) (let ((e-147 (vector-ref sc0 2))) (let ((e-148 (vector-ref sc0 3))) (let ((e-149 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (IdrisC-45Error-pshow e-146 arg-0 arg-1 e-148 e-149 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((IdrisC-45Error-ploc arg-2 e-147) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-code e-5) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "is not a rewrite rule type."))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) e-6)))))))))))))))))) ((42) (let ((e-150 (vector-ref sc0 1))) (let ((e-151 (vector-ref sc0 2))) (let ((e-152 (vector-ref sc0 3))) (let ((sc1 e-152)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (let ((act-24 ((CoreC-45Context-prettyName arg-0 e-151) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((IdrisC-45Error-ploc arg-2 e-150) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Patterns for") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-code (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String e-5)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "have differing numbers of arguments.")))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) e-6)))))))))))))) ((1) (lambda (eta-0) (let ((act-24 ((CoreC-45Context-prettyName arg-0 e-151) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((IdrisC-45Error-ploc arg-2 e-150) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Patterns for") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-code (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String e-5)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "require matching on different types.")))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) e-6)))))))))))))) ((4) (lambda (eta-0) (let ((act-24 ((CoreC-45Context-prettyName arg-0 e-151) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((IdrisC-45Error-ploc arg-2 e-150) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Can't infer type to match in") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-code (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String e-5)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-dot)))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) e-6)))))))))))))) ((3) (let ((e-220 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-1) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-1)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) e-220 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((IdrisC-45Error-ploc arg-2 e-150) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "Constructor") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-code (CoreC-45Name-u--pretty_Pretty_Name e-5)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "is not fully applied.")))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) e-6))))))))))))))) (else (let ((e-221 (vector-ref sc1 1))) (lambda (clam-1) (let ((sc2 e-221)) (let ((e-224 (car sc2))) (let ((e-225 (cdr sc2))) (let ((sc3 e-225)) (let ((e-228 (car sc3))) (let ((e-229 (cdr sc3))) (let ((act-24 (IdrisC-45Error-pshow e-224 arg-0 arg-1 e-228 e-229 clam-1))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 ((CoreC-45Context-prettyName arg-0 e-151) clam-1))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 ((IdrisC-45Error-ploc arg-2 e-150) clam-1))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Attempt to match on erased argument") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-code e-5) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "in") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-code (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String e-6)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-dot)))))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) e-7)))))))))))))))))))))))))))))))) ((44) (let ((e-153 (vector-ref sc0 1))) (let ((e-154 (vector-ref sc0 2))) (let ((e-155 (vector-ref sc0 3))) (let ((e-156 (vector-ref sc0 4))) (let ((e-157 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (IdrisC-45Error-pshow e-153 arg-0 arg-1 e-155 e-157 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((IdrisC-45Error-ploc arg-2 e-154) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Can't match on") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-code e-5) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-parens (CoreC-45Core-u--pretty_Pretty_DotReason e-156)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-dot))))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) e-6))))))))))))))))))) ((43) (let ((e-159 (vector-ref sc0 1))) (let ((e-160 (vector-ref sc0 2))) (let ((e-161 (vector-ref sc0 3))) (let ((e-162 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (IdrisC-45Error-pshow e-159 arg-0 arg-1 e-161 e-162 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((IdrisC-45Error-ploc arg-2 e-160) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Can't match on") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-code e-5) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "as it has a polymorphic type.")))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) e-6)))))))))))))))))) ((45) (let ((e-163 (vector-ref sc0 1))) (let ((e-164 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((IdrisC-45Error-ploc arg-2 e-163) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Can't infer type for unbound implicit name") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-code (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String e-164)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-dot)))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) e-5) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Suggestion: try making it a bound implicit.")))))))))))) ((46) (let ((e-165 (vector-ref sc0 1))) (let ((e-166 (vector-ref sc0 2))) (let ((e-167 (vector-ref sc0 3))) (let ((e-168 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (IdrisC-45Error-pshow e-165 arg-0 arg-1 e-167 e-168 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((IdrisC-45Error-ploc arg-2 e-166) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Bad elaborator script") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-code e-5) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-dot)))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) e-6)))))))))))))))))) ((47) (let ((e-169 (vector-ref sc0 1))) (let ((e-170 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((IdrisC-45Error-ploc arg-2 e-169) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String e-170) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) e-5))))))))))) ((48) (let ((e-171 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Error in TTC file") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String (CoreC-45Core-u--show_Show_TTCErrorMsg e-171)))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-parens (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "the most likely case is that the ./build directory in your current project contains files from a previous build of idris2 or the idris2 executable is from a different build than the installed .ttc files"))))))) ((49) (let ((e-172 (vector-ref sc0 1))) (let ((e-173 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "File error in") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String e-172) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon)))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String (SystemC-45File-u--show_Show_FileError e-173)))))))) ((50) (let ((e-174 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Can't find package ") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String e-174))))))) ((51) (let ((e-175 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((IdrisC-45Error-ploc arg-2 e-175) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Can't parse literate.")) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) e-5)))))))))) ((52) (let ((e-176 (vector-ref sc0 1))) (let ((e-177 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((IdrisC-45Error-ploc arg-2 e-176) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String e-177)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) e-5))))))))))) ((53) (let ((e-178 (vector-ref sc0 1))) (let ((e-179 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((IdrisC-45Error-ploc arg-2 e-178) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String e-179)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) e-5))))))))))) ((54) (let ((e-180 (vector-ref sc0 1))) (let ((e-181 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((IdrisC-45Error-ploc arg-2 e-180) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "Module") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-annotate (vector 3 ) (CoreC-45NameC-45Namespace-u--pretty_Pretty_ModuleIdent e-181)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "not found")))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) e-5))))))))))) ((55) (let ((e-182 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Module imports form a cycle") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-concatWith (lambda (eta-1) (lambda (eta-2) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-surround (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String " -> ") eta-1 eta-2))) (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (PreludeC-45Types-u--map_Functor_List eta-3 eta-4))))) (lambda (eta-1) (CoreC-45NameC-45Namespace-u--pretty_Pretty_ModuleIdent eta-1)) e-182))))))) ((56) (lambda (eta-0) (vector 1 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Internal error when resolving implicit laziness"))))) ((57) (let ((e-183 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "INTERNAL ERROR") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String e-183)))))) ((58) (let ((e-184 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "Error") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String e-184)))))) ((59) (let ((e-185 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((u--cgs (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (PreludeC-45Types-u--map_Functor_List eta-3 eta-4))))) (lambda (eta-1) (Builtin-fst eta-1)) (CoreC-45Options-availableCGs (let ((sc2 e-5)) (let ((e-4 (vector-ref sc2 5))) e-4)))))) (let ((act-25 ((IdrisC-45Error-ploc arg-2 e-185) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((u--res (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (cons (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "The given specifier was not accepted by any backend. Available backends") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon))) (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-indent 2 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-concatWith (lambda (u--x) (lambda (u--y) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 u--x (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 ", ")) u--y))) (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow eta-1)) u--cgs))) (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Some backends have additional specifier rules, refer to their documentation.") '())))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) e-6))) (vector 1 u--res)))))))))))))))) ((60) (let ((e-186 (vector-ref sc0 1))) (let ((e-187 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((IdrisC-45Error-ploc arg-2 e-186) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "While processing multi-line string") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-dot)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String e-187) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-dot)))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) e-5))))))))))) ((61) (let ((e-189 (vector-ref sc0 2))) (let ((e-190 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((CoreC-45Context-prettyName arg-0 e-189) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((IdrisC-45Error-perror arg-0 arg-1 arg-2 e-190) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-hsep (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "While processing type of") (IdrisC-45Pretty-code (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String e-5)))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-dot)) (cons e-6 '())))))))))))))))))) ((62) (let ((e-192 (vector-ref sc0 2))) (let ((e-193 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((CoreC-45Context-prettyName arg-0 e-192) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((IdrisC-45Error-perror arg-0 arg-1 arg-2 e-193) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-hsep (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "While processing constructor") (IdrisC-45Pretty-code (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String e-5)))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-dot)) (cons e-6 '())))))))))))))))))) ((63) (let ((e-195 (vector-ref sc0 2))) (let ((e-196 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((CoreC-45Context-prettyName arg-0 e-195) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((IdrisC-45Error-perror arg-0 arg-1 arg-2 e-196) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-hsep (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "While processing left hand side of") (IdrisC-45Pretty-code (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String e-5)))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-dot)) (cons e-6 '())))))))))))))))))) ((64) (let ((e-198 (vector-ref sc0 2))) (let ((e-199 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((CoreC-45Context-prettyName arg-0 e-198) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((IdrisC-45Error-perror arg-0 arg-1 arg-2 e-199) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-hsep (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "While processing right hand side of") (IdrisC-45Pretty-code (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String e-5)))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-dot)) (cons e-6 '())))))))))))))))))) (else (let ((e-200 (vector-ref sc0 1))) (let ((e-201 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((IdrisC-45Error-perror arg-0 arg-1 arg-2 e-200) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 e-5 (let ((sc2 e-201)) (if (null? sc2) (IdrisC-45Error-case--caseC-32blockC-32inC-32perror-6267 e-201 e-200 arg-2 arg-1 arg-0 e-5 (LibrariesC-45DataC-45List1-unsnoc e-201)) (let ((e-1 (car sc2))) (let ((e-2 (cdr sc2))) (let ((sc3 e-2)) (if (null? sc3) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Did you mean:") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String e-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "?"))) (IdrisC-45Error-case--caseC-32blockC-32inC-32perror-6267 e-201 e-200 arg-2 arg-1 arg-0 e-5 (LibrariesC-45DataC-45List1-unsnoc e-201))))))))))))))))))))))) -(define IdrisC-45Error-pShowMN (lambda (arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((u--t (vector 0 e-2 e-3 e-4))) (IdrisC-45Error-case--caseC-32blockC-32inC-32pShowMN-435 arg-1 arg-4 arg-3 e-3 e-4 e-2 u--t (CoreC-45Name-dropAllNS (CoreC-45TT-nameAt arg-1 e-4))))))))(else arg-4))))) +(define IdrisPaths-idrisVersion (lambda () (cons (cons 0 (cons (+ 1 (+ 1 (+ 1 (+ 1 0)))) 0)) "7d3e3e071"))) +(define IdrisC-45Error-case--caseC-32blockC-32inC-32perrorC-44order-2755 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (if (null? arg-13) (cons arg-9 (vector 2 )) (let ((e-1 (unbox arg-13))) (let ((e-6 (cdr e-1))) (let ((e-9 (car e-6))) (let ((e-10 (cdr e-6))) (let ((sc3 (PreludeC-45EqOrd-u--C-60_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector (cons (lambda (arg-14) (lambda (arg-15) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-14 arg-15))) (lambda (arg-14) (lambda (arg-15) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-14 arg-15)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) (vector (cons (lambda (arg-14) (lambda (arg-15) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-14 arg-15))) (lambda (arg-14) (lambda (arg-15) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-14 arg-15)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-11 e-9))) (cond ((equal? sc3 1) (cons arg-9 arg-8)) (else (let ((sc4 (let ((sc5 (PreludeC-45EqOrd-u--C-61C-61_Eq_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (arg-14) (lambda (arg-15) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-14 arg-15))) (lambda (arg-14) (lambda (arg-15) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-14 arg-15)))) (cons (lambda (arg-14) (lambda (arg-15) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-14 arg-15))) (lambda (arg-14) (lambda (arg-15) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-14 arg-15)))) arg-11 e-9))) (cond ((equal? sc5 1) (PreludeC-45EqOrd-u--C-60_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector (cons (lambda (arg-14) (lambda (arg-15) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-14 arg-15))) (lambda (arg-14) (lambda (arg-15) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-14 arg-15)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) (vector (cons (lambda (arg-14) (lambda (arg-15) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-14 arg-15))) (lambda (arg-14) (lambda (arg-15) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-14 arg-15)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) arg-12 e-10)) (else 0))))) (cond ((equal? sc4 1) (cons arg-9 arg-8)) (else (cons arg-8 arg-9)))))))))))))) +(define IdrisC-45Error-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32ploc2-1417 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21) (let ((e-2 (car arg-21))) (let ((e-3 (cdr arg-21))) (cond ((equal? e-2 1) (if (null? e-3) (lambda (clam-2) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-emptyDoc) (cons arg-18 (IdrisC-45Error-n--9710-900-u--addLineNumbers arg-0 arg-1 arg-2 arg-17 arg-13 (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (PreludeC-45Types-u--map_Functor_List eta-2 eta-3))))) (lambda (eta-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String eta-0)) (IdrisC-45Error-n--9710-898-u--extractRange arg-0 arg-1 arg-2 arg-13 arg-11 arg-20)))))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)))) (let ((e-10 (car e-3))) (let ((e-11 (cdr e-3))) (cond ((equal? e-10 1) (cond ((equal? e-11 1) (let ((u--line (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-fileCtxt (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-pipe)) (PreludeC-45Types-maybe (lambda () (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-emptyDoc)) (lambda () (lambda (eta-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String eta-0))) (LibrariesC-45DataC-45ListC-45Extra-elemAt arg-20 arg-13))))) (let ((u--emph (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-fileCtxt (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-pipe)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-spaces (PreludeC-45Cast-u--cast_Cast_Nat_Int arg-14)) (IdrisC-45Pretty-error (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String (LibrariesC-45DataC-45StringC-45Extra-replicate (PreludeC-45Types-prim__integerToNat (- arg-9 arg-14)) #\^)))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-spaces (PreludeC-45Cast-u--cast_Cast_Nat_Int (PreludeC-45Types-prim__integerToNat (- arg-15 arg-9))))) (IdrisC-45Pretty-error (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String (LibrariesC-45DataC-45StringC-45Extra-replicate (PreludeC-45Types-prim__integerToNat (- arg-12 arg-15)) #\^))))))) (lambda (eta-0) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-emptyDoc) (cons arg-18 (cons arg-19 (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-fileCtxt (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-space) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Nat (PreludeC-45Types-u--C-43_Num_Nat arg-13 (+ 1 0))))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-align (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (cons u--line (cons u--emph '()))))) (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-emptyDoc) '()))))))))))) ((equal? e-11 0) (let ((u--line1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-fileCtxt (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-pipe)) (PreludeC-45Types-maybe (lambda () (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-emptyDoc)) (lambda () (lambda (eta-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String eta-0))) (LibrariesC-45DataC-45ListC-45Extra-elemAt arg-20 arg-13))))) (let ((u--emph1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-fileCtxt (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-pipe)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-spaces (PreludeC-45Cast-u--cast_Cast_Nat_Int arg-14)) (IdrisC-45Pretty-error (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String (LibrariesC-45DataC-45StringC-45Extra-replicate (PreludeC-45Types-prim__integerToNat (- arg-9 arg-14)) #\^))))))) (let ((u--line2 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-fileCtxt (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-pipe)) (PreludeC-45Types-maybe (lambda () (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-emptyDoc)) (lambda () (lambda (eta-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String eta-0))) (LibrariesC-45DataC-45ListC-45Extra-elemAt arg-20 arg-16))))) (let ((u--emph2 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-fileCtxt (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-pipe)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-spaces (PreludeC-45Cast-u--cast_Cast_Nat_Int arg-15)) (IdrisC-45Pretty-error (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String (LibrariesC-45DataC-45StringC-45Extra-replicate (PreludeC-45Types-prim__integerToNat (- arg-12 arg-15)) #\^))))))) (let ((u--numbered (let ((sc5 (PreludeC-45Types-u--C-61C-61_Eq_Nat (PreludeC-45Types-prim__integerToNat (- arg-16 arg-10)) (PreludeC-45Types-u--fromInteger_Num_Nat 1)))) (cond ((equal? sc5 1) '()) (else (IdrisC-45Error-n--9710-900-u--addLineNumbers arg-0 arg-1 arg-2 arg-17 (PreludeC-45Types-u--C-43_Num_Nat arg-13 (+ 1 0)) (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (PreludeC-45Types-u--map_Functor_List eta-2 eta-3))))) (lambda (eta-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String eta-0)) (IdrisC-45Error-n--9710-898-u--extractRange arg-0 arg-1 arg-2 (PreludeC-45Types-u--C-43_Num_Nat arg-13 (+ 1 0)) arg-10 arg-20)))))))) (lambda (eta-0) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45TypesC-45List-C-43C-43 (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-emptyDoc) (cons arg-18 (cons arg-19 (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-fileCtxt (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-space) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Nat (PreludeC-45Types-u--C-43_Num_Nat arg-13 (+ 1 0))))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-align (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (cons u--line1 (cons u--emph1 '()))))) '())))) (PreludeC-45TypesC-45List-C-43C-43 u--numbered (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-fileCtxt (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-space) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Nat (PreludeC-45Types-u--C-43_Num_Nat arg-16 (+ 1 0))))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-align (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (cons u--line2 (cons u--emph2 '()))))) (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-emptyDoc) '())))))))))))))(else (lambda (clam-0) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-emptyDoc) (cons arg-18 (IdrisC-45Error-n--9710-900-u--addLineNumbers arg-0 arg-1 arg-2 arg-17 arg-13 (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (PreludeC-45Types-u--map_Functor_List eta-2 eta-3))))) (lambda (eta-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String eta-0)) (IdrisC-45Error-n--9710-898-u--extractRange arg-0 arg-1 arg-2 arg-13 arg-11 arg-20)))))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line))))))) ((equal? e-10 0) (let ((u--line (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-fileCtxt (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-pipe)) (PreludeC-45Types-maybe (lambda () (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-emptyDoc)) (lambda () (lambda (eta-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String eta-0))) (LibrariesC-45DataC-45ListC-45Extra-elemAt arg-20 arg-13))))) (let ((u--emph (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-fileCtxt (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-pipe)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-spaces (PreludeC-45Cast-u--cast_Cast_Nat_Int arg-14)) (IdrisC-45Pretty-error (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String (LibrariesC-45DataC-45StringC-45Extra-replicate (PreludeC-45Types-prim__integerToNat (- arg-9 arg-14)) #\^))))))) (lambda (eta-0) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45TypesC-45List-C-43C-43 (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-emptyDoc) (cons arg-18 (cons arg-19 (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-fileCtxt (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-space) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Nat (PreludeC-45Types-u--C-43_Num_Nat arg-13 (+ 1 0))))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-align (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (cons u--line (cons u--emph '()))))) '())))) (PreludeC-45TypesC-45List-C-43C-43 (IdrisC-45Error-n--9710-900-u--addLineNumbers arg-0 arg-1 arg-2 arg-17 (PreludeC-45Types-u--C-43_Num_Nat arg-13 (+ 1 0)) (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (PreludeC-45Types-u--map_Functor_List eta-3 eta-4))))) (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String eta-1)) (IdrisC-45Error-n--9710-898-u--extractRange arg-0 arg-1 arg-2 (PreludeC-45Types-u--C-43_Num_Nat arg-13 (+ 1 0)) (PreludeC-45Types-u--max_Ord_Nat arg-10 arg-11) arg-20))) (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-emptyDoc) '())))))))))(else (lambda (clam-1) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-emptyDoc) (cons arg-18 (IdrisC-45Error-n--9710-900-u--addLineNumbers arg-0 arg-1 arg-2 arg-17 arg-13 (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (PreludeC-45Types-u--map_Functor_List eta-2 eta-3))))) (lambda (eta-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String eta-0)) (IdrisC-45Error-n--9710-898-u--extractRange arg-0 arg-1 arg-2 arg-13 arg-11 arg-20)))))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)))))))))) ((equal? e-2 0) (if (null? e-3) (lambda (clam-5) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-emptyDoc) (cons arg-18 (IdrisC-45Error-n--9710-900-u--addLineNumbers arg-0 arg-1 arg-2 arg-17 arg-13 (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (PreludeC-45Types-u--map_Functor_List eta-2 eta-3))))) (lambda (eta-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String eta-0)) (IdrisC-45Error-n--9710-898-u--extractRange arg-0 arg-1 arg-2 arg-13 arg-11 arg-20)))))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)))) (let ((e-14 (car e-3))) (let ((e-15 (cdr e-3))) (cond ((equal? e-14 1) (cond ((equal? e-15 1) (let ((u--line (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-fileCtxt (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-pipe)) (PreludeC-45Types-maybe (lambda () (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-emptyDoc)) (lambda () (lambda (eta-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String eta-0))) (LibrariesC-45DataC-45ListC-45Extra-elemAt arg-20 arg-13))))) (let ((u--emph (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-fileCtxt (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-pipe)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-spaces (PreludeC-45Cast-u--cast_Cast_Nat_Int arg-14)) (IdrisC-45Pretty-error (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String (LibrariesC-45DataC-45StringC-45Extra-replicate (PreludeC-45Types-prim__integerToNat (- arg-9 arg-14)) #\^))))))) (lambda (eta-0) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45TypesC-45List-C-43C-43 (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-emptyDoc) (cons arg-18 (cons arg-19 (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-fileCtxt (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-space) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Nat (PreludeC-45Types-u--C-43_Num_Nat arg-13 (+ 1 0))))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-align (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (cons u--line (cons u--emph '()))))) '())))) (PreludeC-45TypesC-45List-C-43C-43 (IdrisC-45Error-n--9710-900-u--addLineNumbers arg-0 arg-1 arg-2 arg-17 (PreludeC-45Types-u--C-43_Num_Nat arg-13 (+ 1 0)) (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (PreludeC-45Types-u--map_Functor_List eta-3 eta-4))))) (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String eta-1)) (IdrisC-45Error-n--9710-898-u--extractRange arg-0 arg-1 arg-2 (PreludeC-45Types-u--C-43_Num_Nat arg-13 (+ 1 0)) (PreludeC-45Types-u--max_Ord_Nat arg-10 arg-11) arg-20))) (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-emptyDoc) '()))))))))) ((equal? e-15 0) (let ((u--top (IdrisC-45Error-n--9710-900-u--addLineNumbers arg-0 arg-1 arg-2 arg-17 (PreludeC-45Types-u--C-43_Num_Nat arg-13 (+ 1 0)) (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (PreludeC-45Types-u--map_Functor_List eta-2 eta-3))))) (lambda (eta-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String eta-0)) (IdrisC-45Error-n--9710-898-u--extractRange arg-0 arg-1 arg-2 (PreludeC-45Types-u--C-43_Num_Nat arg-13 (+ 1 0)) arg-10 arg-20))))) (let ((u--line (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-fileCtxt (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-pipe)) (PreludeC-45Types-maybe (lambda () (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-emptyDoc)) (lambda () (lambda (eta-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String eta-0))) (LibrariesC-45DataC-45ListC-45Extra-elemAt arg-20 arg-13))))) (let ((u--emph (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-fileCtxt (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-pipe)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-spaces (PreludeC-45Cast-u--cast_Cast_Nat_Int arg-15)) (IdrisC-45Pretty-error (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String (LibrariesC-45DataC-45StringC-45Extra-replicate (PreludeC-45Types-prim__integerToNat (- arg-12 arg-15)) #\^))))))) (lambda (eta-0) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45TypesC-45List-C-43C-43 (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-emptyDoc) (cons arg-18 (cons arg-19 '()))) (PreludeC-45TypesC-45List-C-43C-43 u--top (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-fileCtxt (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-space) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Nat (PreludeC-45Types-u--C-43_Num_Nat arg-16 (+ 1 0))))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-align (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (cons u--line (cons u--emph '()))))) (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-emptyDoc) '())))))))))))(else (lambda (clam-3) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-emptyDoc) (cons arg-18 (IdrisC-45Error-n--9710-900-u--addLineNumbers arg-0 arg-1 arg-2 arg-17 arg-13 (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (PreludeC-45Types-u--map_Functor_List eta-2 eta-3))))) (lambda (eta-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String eta-0)) (IdrisC-45Error-n--9710-898-u--extractRange arg-0 arg-1 arg-2 arg-13 arg-11 arg-20)))))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)))))))(else (lambda (clam-4) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-emptyDoc) (cons arg-18 (IdrisC-45Error-n--9710-900-u--addLineNumbers arg-0 arg-1 arg-2 arg-17 arg-13 (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (PreludeC-45Types-u--map_Functor_List eta-2 eta-3))))) (lambda (eta-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String eta-0)) (IdrisC-45Error-n--9710-898-u--extractRange arg-0 arg-1 arg-2 arg-13 arg-11 arg-20)))))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line))))))))))(else (lambda (clam-6) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-emptyDoc) (cons arg-18 (IdrisC-45Error-n--9710-900-u--addLineNumbers arg-0 arg-1 arg-2 arg-17 arg-13 (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (PreludeC-45Types-u--map_Functor_List eta-2 eta-3))))) (lambda (eta-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String eta-0)) (IdrisC-45Error-n--9710-898-u--extractRange arg-0 arg-1 arg-2 arg-13 arg-11 arg-20)))))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)))))))))) +(define IdrisC-45Error-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32ploc2-1195 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((e-2 (car arg-15))) (let ((e-3 (cdr arg-15))) (let ((sc1 (PreludeC-45Types-u--C-62_Ord_Nat e-2 (PreludeC-45Types-u--C-43_Num_Nat arg-13 (PreludeC-45Types-u--fromInteger_Num_Nat 5))))) (cond ((equal? sc1 1) (lambda (eta-0) (let ((act-24 ((IdrisC-45Error-ploc arg-2 (vector 0 arg-3 arg-4 arg-5)) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((IdrisC-45Error-ploc arg-2 (vector 0 arg-6 arg-7 arg-8)) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 e-5 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) e-6)))))))))))) (else (let ((u--nsize (PreludeC-45TypesC-45String-length (PreludeC-45Show-u--show_Show_Nat (PreludeC-45Types-u--C-43_Num_Nat e-2 (+ 1 0)))))) (let ((u--head (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-annotate (vector 3 ) (CoreC-45FC-u--pretty_Pretty_FC (vector 0 arg-3 arg-4 arg-8))))) (let ((u--firstRow (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-annotate (vector 3 ) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-spaces (PreludeC-45Cast-u--cast_Cast_Nat_Int (PreludeC-45Types-u--C-43_Num_Nat u--nsize (+ 1 (+ 1 0))))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-pipe))))) (lambda (eta-0) (let ((act-24 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (case (vector-ref eta-1 0) ((0) (let ((e-4 (vector-ref eta-1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref eta-1 1))) (vector 1 (DataC-45List1-forget (LibrariesC-45DataC-45StringC-45Extra-lines e-5))))))) (lambda (eta-1) (IdrisC-45REPLC-45Opts-getCurrentElabSource arg-2 eta-1)) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) ((IdrisC-45Error-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32ploc2-1417 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-14 arg-13 e-2 e-3 arg-9 arg-10 arg-11 arg-12 u--nsize u--head u--firstRow e-5 (cons (PreludeC-45Types-u--C-61C-61_Eq_Nat arg-9 arg-13) (cons (PreludeC-45Types-u--C-61C-61_Eq_Nat arg-12 e-2) (PreludeC-45Types-u--C-61C-61_Eq_Nat arg-9 arg-12)))) eta-0)))))))))))))))) +(define IdrisC-45Error-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32ploc-679 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((e-2 (car arg-7))) (let ((e-3 (cdr arg-7))) (let ((u--nsize (PreludeC-45TypesC-45String-length (PreludeC-45Show-u--show_Show_Nat (PreludeC-45Types-u--C-43_Num_Nat e-2 (+ 1 0)))))) (let ((u--head (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-annotate (vector 3 ) (CoreC-45FC-u--pretty_Pretty_FC arg-0)))) (lambda (eta-0) (let ((act-24 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (case (vector-ref eta-1 0) ((0) (let ((e-4 (vector-ref eta-1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref eta-1 1))) (vector 1 (DataC-45List1-forget (LibrariesC-45DataC-45StringC-45Extra-lines e-5))))))) (lambda (eta-1) (IdrisC-45REPLC-45Opts-getCurrentElabSource arg-1 eta-1)) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((sc2 (PreludeC-45Types-u--C-61C-61_Eq_Nat arg-5 e-2))) (cond ((equal? sc2 1) (let ((u--emph (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-spaces (PreludeC-45Cast-u--cast_Cast_Nat_Int (PreludeC-45Types-u--C-43_Num_Nat (PreludeC-45Types-u--C-43_Num_Nat u--nsize arg-6) (+ 1 (+ 1 (+ 1 (+ 1 0))))))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-annotate (vector 1 ) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String (LibrariesC-45DataC-45StringC-45Extra-replicate (PreludeC-45Types-prim__integerToNat (- e-3 arg-6)) #\^)))))) (let ((u--firstr (PreludeC-45Types-prim__integerToNat (- e-2 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45TypesC-45List-C-43C-43 (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-emptyDoc) (cons u--head '())) (PreludeC-45TypesC-45List-C-43C-43 (IdrisC-45Error-n--9309-525-u--addLineNumbers arg-0 arg-1 u--nsize u--firstr (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (PreludeC-45Types-u--map_Functor_List eta-3 eta-4))))) (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String eta-1)) (IdrisC-45Error-n--9309-523-u--extractRange arg-0 arg-1 u--firstr e-2 e-5))) (cons u--emph '())))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)))))) (else (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-emptyDoc) (cons u--head (IdrisC-45Error-n--9309-525-u--addLineNumbers arg-0 arg-1 u--nsize arg-5 (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (PreludeC-45Types-u--map_Functor_List eta-3 eta-4))))) (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String eta-1)) (IdrisC-45Error-n--9309-523-u--extractRange arg-0 arg-1 arg-5 (PreludeC-45Types-u--min_Ord_Nat e-2 (PreludeC-45Types-u--C-43_Num_Nat arg-5 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))))) e-5)))))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line))))))))))))))))) +(define IdrisC-45Error-case--ploc-611 (lambda (arg-0 arg-1 arg-2) (if (null? arg-2) (lambda (eta-0) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-emptyDoc))) (let ((e-1 (unbox arg-2))) (let ((e-5 (car e-1))) (let ((e-6 (cdr e-1))) (let ((e-9 (car e-6))) (let ((e-10 (cdr e-6))) (let ((sc3 (PreludeC-45Interfaces-mapHom (vector (lambda (u--d) (lambda (u--b) (lambda (u--c) (lambda (u--a) (lambda (arg-323) (lambda (arg-325) (lambda (arg-327) (let ((e-2 (car arg-327))) (let ((e-3 (cdr arg-327))) (cons (arg-323 e-2) (arg-325 e-3))))))))))) (lambda (u--b) (lambda (u--c) (lambda (u--a) (lambda (arg-332) (lambda (arg-334) (let ((e-2 (car arg-334))) (let ((e-3 (cdr arg-334))) (cons (arg-332 e-2) e-3)))))))) (lambda (u--a) (lambda (u--d) (lambda (u--b) (lambda (arg-335) (lambda (arg-337) (let ((e-2 (car arg-337))) (let ((e-3 (cdr arg-337))) (cons e-2 (arg-335 e-3)))))))))) (lambda (eta-0) (PreludeC-45Types-u--fromInteger_Num_Nat (PreludeC-45Cast-u--cast_Cast_Int_Integer eta-0))) e-9))) (let ((e-2 (car sc3))) (let ((e-3 (cdr sc3))) (IdrisC-45Error-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32ploc-679 arg-0 arg-1 e-5 e-9 e-10 e-2 e-3 (PreludeC-45Interfaces-mapHom (vector (lambda (u--d) (lambda (u--b) (lambda (u--c) (lambda (u--a) (lambda (arg-323) (lambda (arg-325) (lambda (arg-327) (let ((e-7 (car arg-327))) (let ((e-4 (cdr arg-327))) (cons (arg-323 e-7) (arg-325 e-4))))))))))) (lambda (u--b) (lambda (u--c) (lambda (u--a) (lambda (arg-332) (lambda (arg-334) (let ((e-7 (car arg-334))) (let ((e-4 (cdr arg-334))) (cons (arg-332 e-7) e-4)))))))) (lambda (u--a) (lambda (u--d) (lambda (u--b) (lambda (arg-335) (lambda (arg-337) (let ((e-7 (car arg-337))) (let ((e-4 (cdr arg-337))) (cons e-7 (arg-335 e-4)))))))))) (lambda (eta-0) (PreludeC-45Types-u--fromInteger_Num_Nat (PreludeC-45Cast-u--cast_Cast_Int_Integer eta-0))) e-10))))))))))))) +(define IdrisC-45Error-n--11505-4800-u--tshow (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 ext-0) (let ((e-2 (car arg-9))) (let ((e-3 (cdr arg-9))) (let ((act-24 (IdrisC-45Error-pshow arg-7 arg-6 arg-5 arg-8 e-3 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (CoreC-45Name-u--pretty_Pretty_Name e-2) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon) (IdrisC-45Pretty-code e-5)))))))))))) +(define IdrisC-45Error-n--11505-2703-u--prettyVar (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (case (vector-ref arg-8 0) ((3) (let ((e-0 (vector-ref arg-8 1))) (IdrisC-45Error-n--11505-2703-u--prettyVar arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-0)))(else (CoreC-45Name-u--pretty_Pretty_Name arg-8))))) +(define IdrisC-45Error-n--11505-3851-u--prettyRig (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (AlgebraC-45Semiring-elimSemi (cons (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-7) (lambda (arg-8) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-7 arg-8))) (lambda (arg-7) (lambda (arg-8) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-7 arg-8))))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "irrelevant") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "linear") (lambda (eta-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "unrestricted")) ext-0))) +(define IdrisC-45Error-n--11505-3852-u--prettyRel (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (AlgebraC-45Semiring-elimSemi (cons (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-7) (lambda (arg-8) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-7 arg-8))) (lambda (arg-7) (lambda (arg-8) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-7 arg-8))))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "irrelevant") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "relevant") (lambda (eta-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "non-linear")) ext-0))) +(define IdrisC-45Error-n--11505-5113-u--prettyHoles (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (if (null? arg-4) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-emptyDoc)) (let ((e-2 (car arg-4))) (let ((e-3 (cdr arg-4))) (let ((e-6 (car e-2))) (let ((e-7 (cdr e-2))) (let ((act-24 ((IdrisC-45Error-ploc arg-1 e-6) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (IdrisC-45Error-n--11505-5113-u--prettyHoles arg-0 arg-1 arg-2 arg-3 e-3 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref act-25 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-meta (CoreC-45Name-u--pretty_Pretty_Name e-7)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "introduced at:") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 e-5 e-8))))))))))))))))))) +(define IdrisC-45Error-n--9710-899-u--pad (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (PreludeC-45TypesC-45String-C-43C-43 (LibrariesC-45DataC-45StringC-45Extra-replicate (PreludeC-45Types-prim__integerToNat (- arg-3 (PreludeC-45TypesC-45String-length arg-4))) #\0) arg-4))) +(define IdrisC-45Error-n--9309-524-u--pad (lambda (arg-0 arg-1 arg-2 arg-3) (PreludeC-45TypesC-45String-C-43C-43 (LibrariesC-45DataC-45StringC-45Extra-replicate (PreludeC-45Types-prim__integerToNat (- arg-2 (PreludeC-45TypesC-45String-length arg-3))) #\0) arg-3))) +(define IdrisC-45Error-n--11505-4344-u--pAlterror (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((e-2 (car arg-4))) (let ((e-3 (cdr arg-4))) (if (null? e-2) (let ((act-24 ((IdrisC-45Error-perror arg-3 arg-2 arg-1 e-3) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Possible error") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-indent 4 e-5))))))) (let ((e-5 (unbox e-2))) (let ((act-24 (CoreC-45Context-getFullName arg-3 e-5 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-aliasName arg-3 e-6 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref act-25 1))) (let ((act-26 ((IdrisC-45Error-perror arg-3 arg-2 arg-1 e-3) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-4 (vector-ref act-26 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref act-26 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "If") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-code (CoreC-45Name-u--pretty_Pretty_Name e-7)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon)) e-8))))))))))))))))))))) +(define IdrisC-45Error-n--11505-2704-u--order (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 (CoreC-45FC-isNonEmptyFC arg-8))) (if (null? sc0) (cons (vector 2 ) arg-9) (let ((e-1 (unbox sc0))) (let ((e-5 (car e-1))) (let ((e-6 (cdr e-1))) (let ((e-9 (car e-6))) (let ((e-10 (cdr e-6))) (IdrisC-45Error-case--caseC-32blockC-32inC-32perrorC-44order-2755 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-9 arg-8 e-5 e-9 e-10 (CoreC-45FC-isNonEmptyFC arg-9))))))))))) +(define IdrisC-45Error-n--9710-898-u--extractRange (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (DataC-45List-take (PreludeC-45Types-u--C-43_Num_Nat (PreludeC-45Types-prim__integerToNat (- arg-4 arg-3)) (+ 1 0)) (DataC-45List-drop arg-3 arg-5)))) +(define IdrisC-45Error-n--9309-523-u--extractRange (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (DataC-45List-take (PreludeC-45Types-u--C-43_Num_Nat (PreludeC-45Types-prim__integerToNat (- arg-3 arg-2)) (+ 1 0)) (DataC-45List-drop arg-2 arg-4)))) +(define IdrisC-45Error-n--11505-4932-u--dropEnv (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (case (vector-ref arg-9 0) ((3) (let ((e-2 (vector-ref arg-9 2))) (let ((e-3 (vector-ref arg-9 3))) (let ((e-4 (vector-ref arg-9 4))) (case (vector-ref e-3 0) ((2) (IdrisC-45Error-n--11505-4932-u--dropEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (cons e-2 arg-7) (cons e-3 arg-8) e-4)) ((1) (IdrisC-45Error-n--11505-4932-u--dropEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (cons e-2 arg-7) (cons e-3 arg-8) e-4))(else (cons arg-7 (cons arg-8 arg-9))))))))(else (cons arg-7 (cons arg-8 arg-9)))))) +(define IdrisC-45Error-n--11505-4345-u--allUndefined (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (if (null? arg-4) '() (let ((e-2 (car arg-4))) (let ((e-3 (cdr arg-4))) (if (null? e-2) '() (let ((e-7 (cdr e-2))) (case (vector-ref e-7 0) ((7) (if (null? e-3) (box e-7) (IdrisC-45Error-n--11505-4345-u--allUndefined arg-0 arg-1 arg-2 arg-3 e-3)))(else '()))))))))) +(define IdrisC-45Error-n--9710-900-u--addLineNumbers (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (Builtin-snd (PreludeC-45Types-u--foldl_Foldable_List (lambda (lamc-0) (lambda (clam-0) (let ((e-2 (car lamc-0))) (let ((e-3 (cdr lamc-0))) (cons (+ 1 e-2) (DataC-45List-snoc e-3 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-space) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-annotate (vector 3 ) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String (IdrisC-45Error-n--9710-899-u--pad arg-0 arg-1 arg-2 arg-3 (PreludeC-45Show-u--show_Show_Nat (PreludeC-45Types-u--C-43_Num_Nat e-2 (+ 1 0))))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-pipe)))) clam-0))))))) (cons arg-4 '()) arg-5)))) +(define IdrisC-45Error-n--9309-525-u--addLineNumbers (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Builtin-snd (PreludeC-45Types-u--foldl_Foldable_List (lambda (lamc-0) (lambda (clam-0) (let ((e-2 (car lamc-0))) (let ((e-3 (cdr lamc-0))) (cons (+ 1 e-2) (DataC-45List-snoc e-3 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-space) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-annotate (vector 3 ) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String (IdrisC-45Error-n--9309-524-u--pad arg-0 arg-1 arg-2 (PreludeC-45Show-u--show_Show_Nat (PreludeC-45Types-u--C-43_Num_Nat e-2 (+ 1 0))))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-pipe)))) clam-0))))))) (cons arg-3 '()) arg-4)))) +(define IdrisC-45Error-pwarning (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (case (vector-ref arg-3 0) ((0) (let ((e-0 (vector-ref arg-3 1))) (let ((e-1 (vector-ref arg-3 2))) (let ((e-2 (vector-ref arg-3 3))) (let ((e-3 (vector-ref arg-3 4))) (let ((act-24 (IdrisC-45Error-pshow e-0 arg-0 arg-1 e-2 e-3 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((IdrisC-45Error-ploc arg-2 e-1) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Unreachable clause:") (IdrisC-45Pretty-code e-5))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) e-6))))))))))))))) ((1) (let ((e-5 (vector-ref arg-3 2))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vcat (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "We are about to implicitly bind the following lowercase names.") (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "You may be unintentionally shadowing the associated global definitions:") (PreludeC-45Types-u--map_Functor_List (lambda (lamc-0) (let ((e-2 (car lamc-0))) (let ((e-3 (cdr lamc-0))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-indent 2 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-hsep (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String e-2) (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "is shadowing") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-punctuate (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-comma) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45Name-u--pretty_Pretty_Name eta-0)) (DataC-45List1-forget e-3)))))))))) (DataC-45List1-forget e-5)))))))) (else (let ((e-6 (vector-ref arg-3 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "Deprecation warning:") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String e-6)))))))) +(define IdrisC-45Error-pshowNoNorm (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 (IdrisC-45Resugar-resugar arg-0 arg-1 arg-2 arg-3 arg-4 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (IdrisC-45Error-pShowMN arg-0 arg-4 arg-3 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-reAnnotate (lambda (eta-0) (vector 6 eta-0)) (IdrisC-45Pretty-prettyTerm e-6))))))))))))) +(define IdrisC-45Error-pshow (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Normalise-normaliseHoles arg-1 arg-0 e-5 arg-3 arg-4 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (IdrisC-45Resugar-resugar arg-0 arg-1 arg-2 arg-3 e-6 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (IdrisC-45Error-pShowMN arg-0 e-6 arg-3 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-reAnnotate (lambda (eta-0) (vector 6 eta-0)) (IdrisC-45Pretty-prettyTerm e-7)))))))))))))))))) +(define IdrisC-45Error-ploc2 (lambda (arg-0 arg-1 arg-2) (let ((sc0 (CoreC-45FC-isNonEmptyFC arg-1))) (if (null? sc0) (IdrisC-45Error-ploc arg-0 arg-2) (let ((e-1 (unbox sc0))) (let ((e-5 (car e-1))) (let ((e-6 (cdr e-1))) (let ((e-9 (car e-6))) (let ((e-10 (cdr e-6))) (let ((sc3 (CoreC-45FC-isNonEmptyFC arg-2))) (if (null? sc3) (IdrisC-45Error-ploc arg-0 arg-1) (let ((e-2 (unbox sc3))) (let ((e-8 (car e-2))) (let ((e-7 (cdr e-2))) (let ((e-12 (car e-7))) (let ((e-11 (cdr e-7))) (let ((sc6 (PreludeC-45Interfaces-mapHom (vector (lambda (u--d) (lambda (u--b) (lambda (u--c) (lambda (u--a) (lambda (arg-323) (lambda (arg-325) (lambda (arg-327) (let ((e-4 (car arg-327))) (let ((e-3 (cdr arg-327))) (cons (arg-323 e-4) (arg-325 e-3))))))))))) (lambda (u--b) (lambda (u--c) (lambda (u--a) (lambda (arg-332) (lambda (arg-334) (let ((e-4 (car arg-334))) (let ((e-3 (cdr arg-334))) (cons (arg-332 e-4) e-3)))))))) (lambda (u--a) (lambda (u--d) (lambda (u--b) (lambda (arg-335) (lambda (arg-337) (let ((e-4 (car arg-337))) (let ((e-3 (cdr arg-337))) (cons e-4 (arg-335 e-3)))))))))) (lambda (eta-0) (PreludeC-45Types-u--fromInteger_Num_Nat (PreludeC-45Cast-u--cast_Cast_Int_Integer eta-0))) e-9))) (let ((e-4 (car sc6))) (let ((e-3 (cdr sc6))) (let ((sc7 (PreludeC-45Interfaces-mapHom (vector (lambda (u--d) (lambda (u--b) (lambda (u--c) (lambda (u--a) (lambda (arg-323) (lambda (arg-325) (lambda (arg-327) (let ((e-14 (car arg-327))) (let ((e-13 (cdr arg-327))) (cons (arg-323 e-14) (arg-325 e-13))))))))))) (lambda (u--b) (lambda (u--c) (lambda (u--a) (lambda (arg-332) (lambda (arg-334) (let ((e-14 (car arg-334))) (let ((e-13 (cdr arg-334))) (cons (arg-332 e-14) e-13)))))))) (lambda (u--a) (lambda (u--d) (lambda (u--b) (lambda (arg-335) (lambda (arg-337) (let ((e-14 (car arg-337))) (let ((e-13 (cdr arg-337))) (cons e-14 (arg-335 e-13)))))))))) (lambda (eta-0) (PreludeC-45Types-u--fromInteger_Num_Nat (PreludeC-45Cast-u--cast_Cast_Int_Integer eta-0))) e-12))) (let ((e-14 (car sc7))) (let ((e-13 (cdr sc7))) (let ((sc8 (PreludeC-45Interfaces-mapHom (vector (lambda (u--d) (lambda (u--b) (lambda (u--c) (lambda (u--a) (lambda (arg-323) (lambda (arg-325) (lambda (arg-327) (let ((e-16 (car arg-327))) (let ((e-15 (cdr arg-327))) (cons (arg-323 e-16) (arg-325 e-15))))))))))) (lambda (u--b) (lambda (u--c) (lambda (u--a) (lambda (arg-332) (lambda (arg-334) (let ((e-16 (car arg-334))) (let ((e-15 (cdr arg-334))) (cons (arg-332 e-16) e-15)))))))) (lambda (u--a) (lambda (u--d) (lambda (u--b) (lambda (arg-335) (lambda (arg-337) (let ((e-16 (car arg-337))) (let ((e-15 (cdr arg-337))) (cons e-16 (arg-335 e-15)))))))))) (lambda (eta-0) (PreludeC-45Types-u--fromInteger_Num_Nat (PreludeC-45Cast-u--cast_Cast_Int_Integer eta-0))) e-10))) (let ((e-16 (car sc8))) (let ((e-15 (cdr sc8))) (IdrisC-45Error-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32ploc2-1195 arg-2 arg-1 arg-0 e-5 e-9 e-10 e-8 e-12 e-11 e-4 e-3 e-13 e-14 e-16 e-15 (PreludeC-45Interfaces-mapHom (vector (lambda (u--d) (lambda (u--b) (lambda (u--c) (lambda (u--a) (lambda (arg-323) (lambda (arg-325) (lambda (arg-327) (let ((e-18 (car arg-327))) (let ((e-17 (cdr arg-327))) (cons (arg-323 e-18) (arg-325 e-17))))))))))) (lambda (u--b) (lambda (u--c) (lambda (u--a) (lambda (arg-332) (lambda (arg-334) (let ((e-18 (car arg-334))) (let ((e-17 (cdr arg-334))) (cons (arg-332 e-18) e-17)))))))) (lambda (u--a) (lambda (u--d) (lambda (u--b) (lambda (arg-335) (lambda (arg-337) (let ((e-18 (car arg-337))) (let ((e-17 (cdr arg-337))) (cons e-18 (arg-335 e-17)))))))))) (lambda (eta-0) (PreludeC-45Types-u--fromInteger_Num_Nat (PreludeC-45Cast-u--cast_Cast_Int_Integer eta-0))) e-11))))))))))))))))))))))))))) +(define IdrisC-45Error-ploc (lambda (arg-0 arg-1) (IdrisC-45Error-case--ploc-611 arg-1 arg-0 (CoreC-45FC-isNonEmptyFC arg-1)))) +(define IdrisC-45Error-perror (lambda (arg-0 arg-1 arg-2 arg-3) (case (vector-ref arg-3 0) ((0) (let ((e-0 (vector-ref arg-3 1))) (IdrisC-45Error-perror arg-0 arg-1 arg-2 e-0))) ((1) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-3 (vector-ref arg-3 3))) (let ((e-4 (vector-ref arg-3 4))) (let ((e-5 (vector-ref arg-3 5))) (lambda (eta-0) (let ((act-24 (IdrisC-45Error-pshow e-1 arg-0 arg-1 e-3 e-4 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((act-25 (IdrisC-45Error-pshow e-1 arg-0 arg-1 e-3 e-5 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-7 (vector-ref act-25 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-25 1))) (let ((act-26 ((IdrisC-45Error-ploc arg-2 e-2) eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-8 (vector-ref act-26 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref act-26 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-hsep (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Mismatch between") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon)) (cons (IdrisC-45Pretty-code e-6) (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unsafeTextWithoutNewLines eta-1)) (DataC-45List1-forget (LibrariesC-45DataC-45StringC-45Extra-lines (let ((sc4 (DataC-45String-isSuffixOf "\u000a" "and"))) (cond ((equal? sc4 1) (LibrariesC-45DataC-45StringC-45Extra-dropLast (+ 1 0) "and")) (else "and"))))))) (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-code e-7) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-dot)) '())))))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) e-8))))))))))))))))))))) ((2) (let ((e-6 (vector-ref arg-3 1))) (let ((e-7 (vector-ref arg-3 2))) (let ((e-8 (vector-ref arg-3 3))) (let ((e-9 (vector-ref arg-3 4))) (let ((e-10 (vector-ref arg-3 5))) (lambda (eta-0) (let ((act-24 (IdrisC-45Error-pshow e-6 arg-0 arg-1 e-8 e-9 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (IdrisC-45Error-pshow e-6 arg-0 arg-1 e-8 e-10 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref act-25 1))) (let ((act-26 ((IdrisC-45Error-ploc arg-2 e-7) eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref act-26 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-hsep (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Can't solve constraint between") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon)) (cons (IdrisC-45Pretty-code e-5) (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unsafeTextWithoutNewLines eta-1)) (DataC-45List1-forget (LibrariesC-45DataC-45StringC-45Extra-lines (let ((sc4 (DataC-45String-isSuffixOf "\u000a" "and"))) (cond ((equal? sc4 1) (LibrariesC-45DataC-45StringC-45Extra-dropLast (+ 1 0) "and")) (else "and"))))))) (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-code e-11) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-dot)) '())))))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) e-12))))))))))))))))))))) ((3) (let ((e-11 (vector-ref arg-3 1))) (let ((e-12 (vector-ref arg-3 2))) (let ((e-13 (vector-ref arg-3 3))) (let ((e-14 (vector-ref arg-3 4))) (let ((e-15 (vector-ref arg-3 5))) (lambda (clam-0) (let ((sc1 (IdrisC-45Error-n--11505-2704-u--order e-11 e-15 e-14 e-13 e-12 arg-2 arg-1 arg-0 e-12 (CoreC-45TT-getLoc e-15)))) (let ((e-2 (car sc1))) (let ((e-3 (cdr sc1))) (let ((act-24 (IdrisC-45Error-pshow e-11 arg-0 arg-1 e-13 e-15 clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((IdrisC-45Error-ploc2 arg-2 e-2 e-3) clam-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-hsep (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Pattern variable") (cons (IdrisC-45Pretty-code (IdrisC-45Error-n--11505-2703-u--prettyVar e-11 e-15 e-14 e-13 e-12 arg-2 arg-1 arg-0 e-14)) (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "unifies with") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon)) (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-code e-5) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-dot)) '())))))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) e-6) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Suggestion: Use the same name for both pattern variables, since they unify."))))))))))))))))))))) ((4) (let ((e-16 (vector-ref arg-3 1))) (let ((e-17 (vector-ref arg-3 2))) (let ((e-18 (vector-ref arg-3 3))) (let ((e-19 (vector-ref arg-3 4))) (let ((e-20 (vector-ref arg-3 5))) (lambda (eta-0) (let ((act-24 ((CoreC-45Context-prettyName arg-0 e-19) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (IdrisC-45Error-pshow e-16 arg-0 arg-1 e-18 e-20 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 ((IdrisC-45Error-ploc arg-2 e-17) eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Cycle detected in solution of metavariable") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-meta (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String e-5)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-equals) (IdrisC-45Pretty-code e-6))))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) e-7))))))))))))))))))))) ((5) (let ((e-21 (vector-ref arg-3 1))) (let ((e-23 (vector-ref arg-3 3))) (let ((e-24 (vector-ref arg-3 4))) (let ((e-25 (vector-ref arg-3 5))) (let ((e-26 (vector-ref arg-3 6))) (lambda (eta-0) (let ((act-24 (IdrisC-45Error-pshow e-21 arg-0 arg-1 e-23 e-24 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (IdrisC-45Error-pshow e-21 arg-0 arg-1 e-23 e-25 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 ((IdrisC-45Error-perror arg-0 arg-1 arg-2 e-26) eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "When unifying") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-code e-5) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "and") (IdrisC-45Pretty-code e-6))))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-dot)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) e-7))))))))))))))))))))) ((6) (let ((e-27 (vector-ref arg-3 1))) (let ((e-28 (vector-ref arg-3 2))) (let ((e-29 (vector-ref arg-3 3))) (let ((e-30 (vector-ref arg-3 4))) (lambda (clam-1) (case (vector-ref e-30 0) ((0) (let ((e-208 (vector-ref e-30 1))) (let ((act-24 (IdrisC-45Error-pshow e-27 arg-0 arg-1 e-29 e-208 clam-1))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((IdrisC-45Error-ploc arg-2 e-28) clam-1))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-code e-5) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "is not a valid impossible case."))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) e-6)))))))))))) (else (let ((e-211 (vector-ref e-30 1))) (let ((act-24 ((IdrisC-45Error-perror arg-0 arg-1 arg-2 e-211) clam-1))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Impossible pattern gives an error") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) e-5))))))))))))))) ((7) (let ((e-31 (vector-ref arg-3 1))) (let ((e-32 (vector-ref arg-3 2))) (lambda (eta-0) (let ((act-24 ((IdrisC-45Error-ploc arg-2 e-31) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Undefined name") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-code (CoreC-45Name-u--pretty_Pretty_Name e-32)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-dot)))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line) e-5))))))))))) ((8) (let ((e-33 (vector-ref arg-3 1))) (let ((e-34 (vector-ref arg-3 2))) (let ((e-35 (vector-ref arg-3 3))) (lambda (clam-2) (if (null? e-35) (let ((act-24 ((IdrisC-45Error-ploc arg-2 e-33) clam-2))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "Name") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-code (CoreC-45Name-u--pretty_Pretty_Name e-34)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "is private.")))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) e-5) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Suggestion: add an explicit")) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Error-keyword (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unsafeTextWithoutNewLines eta-0)) (DataC-45List1-forget (LibrariesC-45DataC-45StringC-45Extra-lines (let ((sc3 (DataC-45String-isSuffixOf "\u000a" "export"))) (cond ((equal? sc3 1) (LibrariesC-45DataC-45StringC-45Extra-dropLast (+ 1 0) "export")) (else "export")))))))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "or") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Error-keyword (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "public") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "export"))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "modifier. By default, all names are") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Error-keyword (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unsafeTextWithoutNewLines eta-0)) (DataC-45List1-forget (LibrariesC-45DataC-45StringC-45Extra-lines (let ((sc3 (DataC-45String-isSuffixOf "\u000a" "private"))) (cond ((equal? sc3 1) (LibrariesC-45DataC-45StringC-45Extra-dropLast (+ 1 0) "private")) (else "private")))))))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "in namespace blocks.")))))))))))) (let ((e-213 (unbox e-35))) (let ((act-24 ((IdrisC-45Error-ploc arg-2 e-33) clam-2))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "Name") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-code (CoreC-45Name-u--pretty_Pretty_Name e-34)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "is inaccessible since") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-code (CoreC-45NameC-45Namespace-u--pretty_Pretty_Namespace e-213)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "is not explicitly imported.")))))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) e-5) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Suggestion: add an explicit")) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Error-keyword (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unsafeTextWithoutNewLines eta-0)) (DataC-45List1-forget (LibrariesC-45DataC-45StringC-45Extra-lines (let ((sc3 (DataC-45String-isSuffixOf "\u000a" "export"))) (cond ((equal? sc3 1) (LibrariesC-45DataC-45StringC-45Extra-dropLast (+ 1 0) "export")) (else "export")))))))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "or") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Error-keyword (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "public") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "export"))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "modifier. By default, all names are") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Error-keyword (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unsafeTextWithoutNewLines eta-0)) (DataC-45List1-forget (LibrariesC-45DataC-45StringC-45Extra-lines (let ((sc3 (DataC-45String-isSuffixOf "\u000a" "private"))) (cond ((equal? sc3 1) (LibrariesC-45DataC-45StringC-45Extra-dropLast (+ 1 0) "private")) (else "private")))))))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "in namespace blocks."))))))))))))))))))) ((9) (let ((e-36 (vector-ref arg-3 1))) (let ((e-37 (vector-ref arg-3 2))) (lambda (eta-0) (let ((act-24 ((IdrisC-45Error-ploc arg-2 e-36) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Return type of") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-code (CoreC-45Name-u--pretty_Pretty_Name e-37)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "must be") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-code (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unsafeTextWithoutNewLines eta-1)) (DataC-45List1-forget (LibrariesC-45DataC-45StringC-45Extra-lines (let ((sc2 (DataC-45String-isSuffixOf "\u000a" "Type"))) (cond ((equal? sc2 1) (LibrariesC-45DataC-45StringC-45Extra-dropLast (+ 1 0) "Type")) (else "Type")))))))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-dot)))))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) e-5)))))))))) ((10) (let ((e-38 (vector-ref arg-3 1))) (let ((e-39 (vector-ref arg-3 2))) (let ((e-40 (vector-ref arg-3 3))) (lambda (eta-0) (let ((act-24 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-1) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-1)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-1) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-1))))) e-40 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((IdrisC-45Error-ploc arg-2 e-38) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Return type of") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-code (CoreC-45Name-u--pretty_Pretty_Name e-39)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "must be in") (IdrisC-45Pretty-code (CoreC-45Name-u--pretty_Pretty_Name e-5)))))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line) e-6)))))))))))))))) ((11) (let ((e-41 (vector-ref arg-3 1))) (let ((e-42 (vector-ref arg-3 2))) (let ((e-43 (vector-ref arg-3 3))) (lambda (clam-3) (case (vector-ref e-43 0) ((0) (vector 1 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Internal error") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-parens (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Coverage of") (IdrisC-45Pretty-code (CoreC-45Name-u--pretty_Pretty_Name e-42)))))))) ((1) (let ((e-215 (vector-ref e-43 1))) (let ((act-24 ((CoreC-45Context-prettyName arg-0 e-42) clam-3))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((IdrisC-45Error-ploc arg-2 e-41) clam-3))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (IdrisC-45Error-pshow '() arg-0 arg-1 '() eta-0 eta-1))) e-215 '() clam-3))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-code (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String e-5)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "is not covering."))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) e-6) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Missing cases")) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-indent 4 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep e-7))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line))))))))))))))))) (else (let ((e-216 (vector-ref e-43 1))) (let ((act-24 ((CoreC-45Context-prettyName arg-0 e-42) clam-3))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((IdrisC-45Error-ploc arg-2 e-41) clam-3))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String e-5) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "is not covering."))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) e-6) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Calls non covering function")) (if (null? e-216) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Char #\s) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-concatWith (lambda (eta-0) (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-surround (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-comma) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-space)) eta-0 eta-1))) (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (PreludeC-45Types-u--map_Functor_List eta-2 eta-3))))) (lambda (eta-0) (CoreC-45Name-u--pretty_Pretty_Name eta-0)) e-216))) (let ((e-1 (car e-216))) (let ((e-2 (cdr e-216))) (if (null? e-2) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-space) (CoreC-45Name-u--pretty_Pretty_Name e-1)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Char #\s) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-concatWith (lambda (eta-0) (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-surround (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-comma) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-space)) eta-0 eta-1))) (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (PreludeC-45Types-u--map_Functor_List eta-2 eta-3))))) (lambda (eta-0) (CoreC-45Name-u--pretty_Pretty_Name eta-0)) e-216))))))))))))))))))))))))) ((12) (let ((e-44 (vector-ref arg-3 1))) (let ((e-45 (vector-ref arg-3 2))) (let ((e-46 (vector-ref arg-3 3))) (lambda (eta-0) (let ((act-24 ((CoreC-45Context-prettyName arg-0 e-45) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((IdrisC-45Error-ploc arg-2 e-44) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-code (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String e-5)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "is not total,") (CoreC-45TT-u--pretty_Pretty_PartialReason e-46)))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) e-6))))))))))))))) ((13) (let ((e-47 (vector-ref arg-3 1))) (let ((e-48 (vector-ref arg-3 2))) (let ((e-49 (vector-ref arg-3 3))) (lambda (eta-0) (let ((act-24 ((IdrisC-45Error-ploc arg-2 e-47) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "There are") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Nat e-48) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "uses of linear name") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-code (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String (IdrisC-45Resugar-sugarName e-49))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-dot)))))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line) e-5) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Suggestion: linearly bounded variables must be used exactly once."))))))))))))) ((14) (let ((e-50 (vector-ref arg-3 1))) (let ((e-51 (vector-ref arg-3 2))) (let ((e-52 (vector-ref arg-3 3))) (let ((e-53 (vector-ref arg-3 4))) (lambda (clam-4) (let ((sc1 (AlgebraC-45Semiring-isErased (cons (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-4) (lambda (arg-5) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-4 arg-5))))) e-52))) (cond ((equal? sc1 1) (let ((act-24 ((IdrisC-45Error-ploc arg-2 e-50) clam-4))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-code (CoreC-45Name-u--pretty_Pretty_Name e-51)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "is not accessible in this context."))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) e-5))))))) (else (let ((act-24 ((IdrisC-45Error-ploc arg-2 e-50) clam-4))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Trying to use") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Error-n--11505-3851-u--prettyRig e-53 e-52 e-51 e-50 arg-2 arg-1 arg-0 e-52) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "name") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-code (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String (IdrisC-45Resugar-sugarName e-51))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "in") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Error-n--11505-3852-u--prettyRel e-53 e-52 e-51 e-50 arg-2 arg-1 arg-0 e-53) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "context.")))))))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) e-5))))))))))))))) ((15) (let ((e-54 (vector-ref arg-3 1))) (let ((e-55 (vector-ref arg-3 2))) (let ((e-56 (vector-ref arg-3 3))) (let ((e-57 (vector-ref arg-3 4))) (let ((e-58 (vector-ref arg-3 5))) (lambda (eta-0) (let ((act-24 (IdrisC-45Error-pshow e-54 arg-0 arg-1 e-56 e-57 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (IdrisC-45Error-pshow e-54 arg-0 arg-1 e-56 e-58 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 ((IdrisC-45Error-ploc arg-2 e-55) eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-code e-5) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "borrows argument") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-code e-6) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "so must be fully applied."))))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) e-7))))))))))))))))))))) ((16) (let ((e-59 (vector-ref arg-3 1))) (let ((e-60 (vector-ref arg-3 2))) (let ((e-61 (vector-ref arg-3 3))) (let ((e-62 (vector-ref arg-3 4))) (lambda (eta-0) (let ((act-24 (IdrisC-45Error-pshow e-59 arg-0 arg-1 e-61 e-62 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((IdrisC-45Error-ploc arg-2 e-60) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-code e-5) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "borrows, so must return a concrete type."))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) e-6)))))))))))))))) ((17) (let ((e-63 (vector-ref arg-3 1))) (let ((e-64 (vector-ref arg-3 2))) (lambda (eta-0) (let ((act-24 ((IdrisC-45Error-ploc arg-2 e-63) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Ambiguous name") (IdrisC-45Pretty-code (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_C-40ListC-32C-36aC-41 (cons (lambda (u--ann) (lambda (arg-5072) (CoreC-45Name-u--pretty_Pretty_Name arg-5072))) (lambda (u--ann) (lambda (arg-5073) (lambda (arg-5074) (CoreC-45Name-u--prettyPrec_Pretty_Name arg-5073 arg-5074))))) e-64)))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) e-5)))))))))) ((18) (let ((e-65 (vector-ref arg-3 1))) (let ((e-66 (vector-ref arg-3 2))) (let ((e-67 (vector-ref arg-3 3))) (let ((e-68 (vector-ref arg-3 4))) (lambda (eta-0) (let ((act-24 (CoreC-45Context-getPPrint arg-0 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-setPPrint arg-0 (let ((e-0 (vector-ref e-5 0))) (let ((e-1 (vector-ref e-5 1))) (vector e-0 e-1 1))) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45Core-traverseC-39 (lambda (eta-1) (lambda (eta-2) (IdrisC-45Error-pshow e-65 arg-0 arg-1 e-67 eta-1 eta-2))) e-68 '() eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 ((IdrisC-45Error-ploc arg-2 e-66) eta-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (let ((u--res (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (cons (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Ambiguous elaboration. Possible results") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon))) (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-indent 4 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep e-7)) '()))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) e-8))) (let ((act-28 (CoreC-45Context-setPPrint arg-0 e-5 eta-0))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (vector 1 u--res)))))))))))))))))))))))))) ((19) (let ((e-69 (vector-ref arg-3 1))) (let ((e-70 (vector-ref arg-3 2))) (let ((e-71 (vector-ref arg-3 3))) (let ((e-72 (vector-ref arg-3 4))) (let ((e-73 (vector-ref arg-3 5))) (lambda (eta-0) (let ((act-24 (IdrisC-45Error-pshowNoNorm e-69 arg-0 arg-1 e-71 e-72 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((IdrisC-45Error-ploc arg-2 e-70) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Core-traverseC-39 (lambda (eta-1) (lambda (eta-2) (IdrisC-45Error-pshowNoNorm e-69 arg-0 arg-1 e-71 eta-1 eta-2))) e-73 '() eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (cons (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Multiple solutions found in search of") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon))) (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-indent 4 e-5) (cons e-6 (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Possible correct results") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon)) (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-indent 4 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep e-7)) '())))))))))))))))))))))))))) ((20) (let ((e-74 (vector-ref arg-3 1))) (let ((e-75 (vector-ref arg-3 2))) (let ((e-76 (vector-ref arg-3 3))) (lambda (eta-0) (let ((act-24 (CoreC-45Context-getFullName arg-0 e-75 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (eta-1) (lambda (eta-2) (CoreC-45Context-getFullName arg-0 eta-1 eta-2))) e-76 '() eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 ((IdrisC-45Error-ploc arg-2 e-74) eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Maximum ambiguity depth exceeded in") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-code (CoreC-45Name-u--pretty_Pretty_Name e-5)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon)))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-concatWith (lambda (eta-1) (lambda (eta-2) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-surround (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String " --> ") eta-1 eta-2))) (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (PreludeC-45Types-u--map_Functor_List eta-3 eta-4))))) (lambda (eta-1) (CoreC-45Name-u--pretty_Pretty_Name eta-1)) e-6))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line) e-7) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Suggestion: the default ambiguity depth limit is 3, the")) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-code (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unsafeTextWithoutNewLines eta-1)) (DataC-45List1-forget (LibrariesC-45DataC-45StringC-45Extra-lines (let ((sc4 (DataC-45String-isSuffixOf "\u000a" "%ambiguity_depth"))) (cond ((equal? sc4 1) (LibrariesC-45DataC-45StringC-45Extra-dropLast (+ 1 0) "%ambiguity_depth")) (else "%ambiguity_depth")))))))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "pragma can be used to extend this limit, but beware compilation times can be severely impacted.")))))))))))))))))))))) ((21) (let ((e-77 (vector-ref arg-3 1))) (let ((sc1 (IdrisC-45Error-n--11505-4345-u--allUndefined e-77 arg-2 arg-1 arg-0 e-77))) (if (null? sc1) (lambda (eta-0) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-1) (lambda (eta-2) (IdrisC-45Error-n--11505-4344-u--pAlterror e-77 arg-2 arg-1 arg-0 eta-1 eta-2))) e-77 '() eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Sorry, I can't find any elaboration which works. All errors") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep e-5)))))))) (let ((e-1 (unbox sc1))) (IdrisC-45Error-perror arg-0 arg-1 arg-2 e-1)))))) ((22) (let ((e-79 (vector-ref arg-3 2))) (lambda (eta-0) (let ((act-24 ((IdrisC-45Error-ploc arg-2 e-79) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Can't infer type for this record update.")) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) e-5))))))))) ((23) (let ((e-81 (vector-ref arg-3 1))) (let ((e-82 (vector-ref arg-3 2))) (let ((e-83 (vector-ref arg-3 3))) (lambda (clam-5) (if (null? e-83) (let ((act-24 ((IdrisC-45Error-ploc arg-2 e-81) clam-5))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-code (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String e-82)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "is not part of a record type."))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) e-5)))))) (let ((e-219 (unbox e-83))) (let ((act-24 (CoreC-45Context-getFullName arg-0 e-219 clam-5))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((IdrisC-45Error-ploc arg-2 e-81) clam-5))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Record type") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-code (CoreC-45Name-u--pretty_Pretty_Name e-5)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "has no field") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-code (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String e-82)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-dot)))))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) e-6))))))))))))))))) ((24) (let ((e-84 (vector-ref arg-3 1))) (let ((e-85 (vector-ref arg-3 2))) (lambda (eta-0) (let ((act-24 (CoreC-45Context-getFullName arg-0 e-85 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((IdrisC-45Error-ploc arg-2 e-84) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-code (CoreC-45Name-u--pretty_Pretty_Name e-5)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "is not a record type."))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) e-6)))))))))))))) ((25) (let ((e-86 (vector-ref arg-3 1))) (let ((e-87 (vector-ref arg-3 2))) (lambda (eta-0) (let ((act-24 ((IdrisC-45Error-ploc arg-2 e-86) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Field update") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-concatWith (lambda (eta-1) (lambda (eta-2) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-surround (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "->") eta-1 eta-2))) (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (PreludeC-45Types-u--map_Functor_List eta-3 eta-4))))) (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String eta-1)) e-87)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "not compatible with other updates at") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) e-5)))))))))))) ((26) (let ((e-88 (vector-ref arg-3 1))) (let ((e-89 (vector-ref arg-3 2))) (let ((e-90 (vector-ref arg-3 3))) (let ((e-91 (vector-ref arg-3 4))) (let ((e-92 (vector-ref arg-3 5))) (lambda (clam-0) (if (null? e-91) (let ((act-24 (IdrisC-45Error-pshow e-88 arg-0 arg-1 e-90 e-92 clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((IdrisC-45Error-ploc arg-2 e-89) clam-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-concatWith (lambda (eta-0) (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-surround (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-comma) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-space)) eta-0 eta-1))) (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (PreludeC-45Types-u--map_Functor_List eta-2 eta-3))))) (lambda (eta-0) (IdrisC-45Pretty-code (CoreC-45Name-u--pretty_Pretty_Name eta-0))) e-91)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "are not valid arguments in") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 e-5 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-dot))))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) e-6)))))))))) (let ((e-221 (car e-91))) (let ((e-222 (cdr e-91))) (if (null? e-222) (let ((act-24 (IdrisC-45Error-pshow e-88 arg-0 arg-1 e-90 e-92 clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((IdrisC-45Error-ploc arg-2 e-89) clam-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-code (CoreC-45Name-u--pretty_Pretty_Name e-221)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "is not a valid argument in") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 e-5 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-dot))))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) e-6)))))))))) (let ((act-24 (IdrisC-45Error-pshow e-88 arg-0 arg-1 e-90 e-92 clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((IdrisC-45Error-ploc arg-2 e-89) clam-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-concatWith (lambda (eta-0) (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-surround (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-comma) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-space)) eta-0 eta-1))) (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (PreludeC-45Types-u--map_Functor_List eta-2 eta-3))))) (lambda (eta-0) (IdrisC-45Pretty-code (CoreC-45Name-u--pretty_Pretty_Name eta-0))) e-91)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "are not valid arguments in") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 e-5 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-dot))))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) e-6))))))))))))))))))))) ((27) (let ((e-93 (vector-ref arg-3 1))) (let ((e-94 (vector-ref arg-3 2))) (let ((e-95 (vector-ref arg-3 3))) (let ((e-96 (vector-ref arg-3 4))) (lambda (eta-0) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-1) (lambda (eta-2) (IdrisC-45Error-n--11505-4800-u--tshow e-93 e-96 e-95 e-94 arg-2 arg-1 arg-0 e-93 e-95 eta-1 eta-2))) e-96 '() eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((IdrisC-45Error-ploc arg-2 e-94) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Need to bind implicits") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-concatWith (lambda (eta-1) (lambda (eta-2) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-surround (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-comma) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-space)) eta-1 eta-2))) e-5) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-dot)))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) e-6)))))))))))))))) ((28) (let ((e-97 (vector-ref arg-3 1))) (let ((e-98 (vector-ref arg-3 2))) (let ((e-99 (vector-ref arg-3 3))) (let ((e-100 (vector-ref arg-3 4))) (let ((e-101 (vector-ref arg-3 5))) (lambda (eta-0) (let ((act-24 (IdrisC-45Error-pshow e-97 arg-0 arg-1 e-99 e-101 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((IdrisC-45Error-ploc arg-2 e-98) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Can't bind name") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-code (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String (CoreC-45Name-nameRoot e-100))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "with type") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-code e-5) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon)))))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) e-6) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Suggestion: try an explicit bind.")))))))))))))))))) ((29) (let ((e-102 (vector-ref arg-3 1))) (let ((e-103 (vector-ref arg-3 2))) (let ((e-104 (vector-ref arg-3 3))) (let ((e-105 (vector-ref arg-3 4))) (lambda (clam-1) (let ((sc1 (IdrisC-45Error-n--11505-4932-u--dropEnv e-102 e-105 e-104 e-103 arg-2 arg-1 arg-0 e-102 e-104 e-105))) (let ((e-2 (car sc1))) (let ((e-3 (cdr sc1))) (let ((e-6 (car e-3))) (let ((e-7 (cdr e-3))) (let ((act-24 (IdrisC-45Error-pshow e-2 arg-0 arg-1 e-6 e-7 clam-1))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((IdrisC-45Error-ploc arg-2 e-103) clam-1))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref act-25 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Can't find an implementation for") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-code e-5) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-dot)))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) e-8))))))))))))))))))))) ((30) (let ((e-106 (vector-ref arg-3 1))) (let ((e-107 (vector-ref arg-3 2))) (let ((e-108 (vector-ref arg-3 3))) (let ((e-110 (vector-ref arg-3 5))) (let ((e-111 (vector-ref arg-3 6))) (lambda (eta-0) (let ((act-24 (IdrisC-45Error-pshow e-106 arg-0 arg-1 e-110 e-111 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((IdrisC-45Error-ploc arg-2 e-107) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Can't find an implementation for") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-code e-5) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "since I can't infer a value for argument")) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-code (CoreC-45Name-u--pretty_Pretty_Name e-108)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-dot))))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) e-6))))))))))))))))) ((31) (let ((e-112 (vector-ref arg-3 1))) (lambda (eta-0) (let ((act-24 (IdrisC-45Error-n--11505-5113-u--prettyHoles e-112 arg-2 arg-1 arg-0 e-112 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Unsolved holes") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) e-5))))))))) ((32) (let ((e-113 (vector-ref arg-3 1))) (let ((e-114 (vector-ref arg-3 2))) (let ((e-115 (vector-ref arg-3 3))) (let ((e-116 (vector-ref arg-3 4))) (let ((e-117 (vector-ref arg-3 5))) (let ((e-118 (vector-ref arg-3 6))) (lambda (eta-0) (let ((act-24 (IdrisC-45Error-pshow e-113 arg-0 arg-1 e-115 e-118 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((IdrisC-45Error-ploc arg-2 e-114) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Can't infer type for argument") (IdrisC-45Pretty-code (CoreC-45Name-u--pretty_Pretty_Name e-116)))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unsafeTextWithoutNewLines eta-1)) (DataC-45List1-forget (LibrariesC-45DataC-45StringC-45Extra-lines (let ((sc3 (DataC-45String-isSuffixOf "\u000a" "Got"))) (cond ((equal? sc3 1) (LibrariesC-45DataC-45StringC-45Extra-dropLast (+ 1 0) "Got")) (else "Got")))))))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-code e-5) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "with hole") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-meta (CoreC-45Name-u--pretty_Pretty_Name e-117)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-dot)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) e-6))))))))))))))))))))) ((33) (let ((e-119 (vector-ref arg-3 1))) (let ((e-120 (vector-ref arg-3 2))) (let ((e-121 (vector-ref arg-3 3))) (let ((e-122 (vector-ref arg-3 4))) (let ((e-123 (vector-ref arg-3 5))) (lambda (eta-0) (let ((act-24 (IdrisC-45Error-pshow e-119 arg-0 arg-1 e-121 e-123 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((IdrisC-45Error-ploc arg-2 e-120) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Named hole") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-meta (CoreC-45Name-u--pretty_Pretty_Name e-122)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "has been solved by unification.")))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unsafeTextWithoutNewLines eta-1)) (DataC-45List1-forget (LibrariesC-45DataC-45StringC-45Extra-lines (let ((sc3 (DataC-45String-isSuffixOf "\u000a" "Result"))) (cond ((equal? sc3 1) (LibrariesC-45DataC-45StringC-45Extra-dropLast (+ 1 0) "Result")) (else "Result")))))))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-code e-5) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) e-6)))))))))))))))))) ((34) (let ((e-124 (vector-ref arg-3 1))) (let ((e-125 (vector-ref arg-3 2))) (let ((e-126 (vector-ref arg-3 3))) (let ((e-127 (vector-ref arg-3 4))) (let ((e-128 (vector-ref arg-3 5))) (lambda (eta-0) (let ((act-24 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-1) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-1)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-1) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-1))))) e-126 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-1) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-1)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-1) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-1))))) e-128 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 ((IdrisC-45Error-ploc arg-2 e-124) eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Error-keyword (CoreC-45TT-u--pretty_Pretty_Visibility e-125)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-code (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String (IdrisC-45Resugar-sugarName e-5))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "cannot refer to") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Error-keyword (CoreC-45TT-u--pretty_Pretty_Visibility e-127)) (IdrisC-45Pretty-code (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String (IdrisC-45Resugar-sugarName e-6)))))))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) e-7))))))))))))))))))))) ((35) (let ((e-129 (vector-ref arg-3 1))) (let ((e-130 (vector-ref arg-3 2))) (lambda (eta-0) (let ((act-24 ((IdrisC-45Error-ploc arg-2 e-129) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Non linear pattern") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-code (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String (IdrisC-45Resugar-sugarName e-130))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-dot)))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) e-5)))))))))) ((36) (let ((e-131 (vector-ref arg-3 1))) (let ((e-132 (vector-ref arg-3 2))) (lambda (eta-0) (let ((act-24 ((IdrisC-45Error-ploc arg-2 e-131) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Pattern not allowed here") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-code (CoreC-45Name-u--pretty_Pretty_Name e-132)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-dot)))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) e-5)))))))))) ((37) (let ((e-133 (vector-ref arg-3 1))) (let ((e-134 (vector-ref arg-3 2))) (lambda (eta-0) (let ((act-24 ((IdrisC-45Error-ploc arg-2 e-133) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "No type declaration for") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-code (CoreC-45Name-u--pretty_Pretty_Name e-134)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-dot)))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) e-5)))))))))) ((38) (let ((e-135 (vector-ref arg-3 1))) (let ((e-136 (vector-ref arg-3 2))) (lambda (eta-0) (let ((act-24 ((IdrisC-45Error-ploc arg-2 e-135) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-code (CoreC-45Name-u--pretty_Pretty_Name e-136)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "is already defined."))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) e-5)))))))))) ((39) (let ((e-137 (vector-ref arg-3 1))) (let ((e-138 (vector-ref arg-3 2))) (let ((e-139 (vector-ref arg-3 3))) (let ((e-140 (vector-ref arg-3 4))) (lambda (eta-0) (let ((act-24 (IdrisC-45Error-pshow e-137 arg-0 arg-1 e-139 e-140 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((IdrisC-45Error-ploc arg-2 e-138) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-code e-5) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "is not a function type."))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) e-6)))))))))))))))) ((40) (let ((e-141 (vector-ref arg-3 1))) (let ((e-142 (vector-ref arg-3 2))) (let ((e-143 (vector-ref arg-3 3))) (let ((e-144 (vector-ref arg-3 4))) (let ((e-145 (vector-ref arg-3 5))) (lambda (eta-0) (let ((act-24 (IdrisC-45Error-pshow e-141 arg-0 arg-1 e-143 e-144 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (IdrisC-45Error-pshow e-141 arg-0 arg-1 e-143 e-145 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 ((IdrisC-45Error-ploc arg-2 e-142) eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Rewriting by") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-code e-5) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "did not change type") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-code e-6) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-dot)))))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) e-7))))))))))))))))))))) ((41) (let ((e-146 (vector-ref arg-3 1))) (let ((e-147 (vector-ref arg-3 2))) (let ((e-148 (vector-ref arg-3 3))) (let ((e-149 (vector-ref arg-3 4))) (lambda (eta-0) (let ((act-24 (IdrisC-45Error-pshow e-146 arg-0 arg-1 e-148 e-149 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((IdrisC-45Error-ploc arg-2 e-147) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-code e-5) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "is not a rewrite rule type."))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) e-6)))))))))))))))) ((42) (let ((e-150 (vector-ref arg-3 1))) (let ((e-151 (vector-ref arg-3 2))) (let ((e-152 (vector-ref arg-3 3))) (case (vector-ref e-152 0) ((0) (lambda (eta-0) (let ((act-24 ((CoreC-45Context-prettyName arg-0 e-151) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((IdrisC-45Error-ploc arg-2 e-150) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Patterns for") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-code (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String e-5)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "have differing numbers of arguments.")))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) e-6)))))))))))) ((1) (lambda (eta-0) (let ((act-24 ((CoreC-45Context-prettyName arg-0 e-151) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((IdrisC-45Error-ploc arg-2 e-150) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Patterns for") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-code (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String e-5)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "require matching on different types.")))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) e-6)))))))))))) ((4) (lambda (eta-0) (let ((act-24 ((CoreC-45Context-prettyName arg-0 e-151) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((IdrisC-45Error-ploc arg-2 e-150) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Can't infer type to match in") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-code (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String e-5)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-dot)))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) e-6)))))))))))) ((3) (let ((e-224 (vector-ref e-152 1))) (lambda (eta-0) (let ((act-24 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-1) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-1)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-1) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-1))))) e-224 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((IdrisC-45Error-ploc arg-2 e-150) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "Constructor") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-code (CoreC-45Name-u--pretty_Pretty_Name e-5)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "is not fully applied.")))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) e-6))))))))))))) (else (let ((e-225 (vector-ref e-152 1))) (lambda (clam-2) (let ((e-228 (car e-225))) (let ((e-229 (cdr e-225))) (let ((e-232 (car e-229))) (let ((e-233 (cdr e-229))) (let ((act-24 (IdrisC-45Error-pshow e-228 arg-0 arg-1 e-232 e-233 clam-2))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Context-prettyName arg-0 e-151) clam-2))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 ((IdrisC-45Error-ploc arg-2 e-150) clam-2))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Attempt to match on erased argument") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-code e-5) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "in") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-code (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String e-6)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-dot)))))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) e-7)))))))))))))))))))))))))) ((44) (let ((e-153 (vector-ref arg-3 1))) (let ((e-154 (vector-ref arg-3 2))) (let ((e-155 (vector-ref arg-3 3))) (let ((e-156 (vector-ref arg-3 4))) (let ((e-157 (vector-ref arg-3 5))) (lambda (eta-0) (let ((act-24 (IdrisC-45Error-pshow e-153 arg-0 arg-1 e-155 e-157 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((IdrisC-45Error-ploc arg-2 e-154) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Can't match on") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-code e-5) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-parens (CoreC-45Core-u--pretty_Pretty_DotReason e-156)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-dot))))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) e-6))))))))))))))))) ((43) (let ((e-159 (vector-ref arg-3 1))) (let ((e-160 (vector-ref arg-3 2))) (let ((e-161 (vector-ref arg-3 3))) (let ((e-162 (vector-ref arg-3 4))) (lambda (eta-0) (let ((act-24 (IdrisC-45Error-pshow e-159 arg-0 arg-1 e-161 e-162 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((IdrisC-45Error-ploc arg-2 e-160) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Can't match on") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-code e-5) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "as it must have a polymorphic type.")))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) e-6)))))))))))))))) ((45) (let ((e-163 (vector-ref arg-3 1))) (let ((e-164 (vector-ref arg-3 2))) (lambda (eta-0) (let ((act-24 ((IdrisC-45Error-ploc arg-2 e-163) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Can't infer type for unbound implicit name") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-code (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String e-164)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-dot)))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) e-5) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Suggestion: try making it a bound implicit."))))))))))) ((46) (let ((e-165 (vector-ref arg-3 1))) (let ((e-166 (vector-ref arg-3 2))) (let ((e-167 (vector-ref arg-3 3))) (let ((e-168 (vector-ref arg-3 4))) (let ((e-169 (vector-ref arg-3 5))) (lambda (eta-0) (let ((act-24 (IdrisC-45Error-pshow e-165 arg-0 arg-1 e-167 e-168 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((IdrisC-45Error-ploc arg-2 e-166) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Bad elaborator script") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-code e-5) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-parens (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String e-169)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-dot))))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) e-6))))))))))))))))) ((47) (let ((e-170 (vector-ref arg-3 1))) (let ((e-171 (vector-ref arg-3 2))) (lambda (eta-0) (let ((act-24 ((IdrisC-45Error-ploc arg-2 e-170) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String e-171) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) e-5)))))))))) ((48) (let ((e-172 (vector-ref arg-3 1))) (lambda (eta-0) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Error in TTC file") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String (CoreC-45Core-u--show_Show_TTCErrorMsg e-172)))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-parens (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "the most likely case is that the ./build directory in your current project contains files from a previous build of idris2 or the idris2 executable is from a different build than the installed .ttc files"))))))) ((49) (let ((e-173 (vector-ref arg-3 1))) (let ((e-174 (vector-ref arg-3 2))) (lambda (eta-0) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "File error in") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String e-173) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon)))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String (SystemC-45File-u--show_Show_FileError e-174)))))))) ((50) (let ((e-175 (vector-ref arg-3 1))) (lambda (eta-0) (vector 1 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Can't find package ") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String e-175))))))) ((51) (let ((e-176 (vector-ref arg-3 1))) (lambda (eta-0) (let ((act-24 ((IdrisC-45Error-ploc arg-2 e-176) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Can't parse literate.")) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) e-5))))))))) ((52) (let ((e-177 (vector-ref arg-3 1))) (let ((e-178 (vector-ref arg-3 2))) (lambda (eta-0) (let ((act-24 ((IdrisC-45Error-ploc arg-2 e-177) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String e-178)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) e-5)))))))))) ((53) (let ((e-179 (vector-ref arg-3 1))) (let ((e-180 (vector-ref arg-3 2))) (lambda (eta-0) (let ((act-24 ((IdrisC-45Error-ploc arg-2 e-179) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String e-180)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) e-5)))))))))) ((54) (let ((e-181 (vector-ref arg-3 1))) (let ((e-182 (vector-ref arg-3 2))) (lambda (eta-0) (let ((act-24 ((IdrisC-45Error-ploc arg-2 e-181) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "Module") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-annotate (vector 3 ) (CoreC-45NameC-45Namespace-u--pretty_Pretty_ModuleIdent e-182)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "not found")))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) e-5)))))))))) ((55) (let ((e-183 (vector-ref arg-3 1))) (lambda (eta-0) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Module imports form a cycle") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-concatWith (lambda (eta-1) (lambda (eta-2) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-surround (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String " -> ") eta-1 eta-2))) (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (PreludeC-45Types-u--map_Functor_List eta-3 eta-4))))) (lambda (eta-1) (CoreC-45NameC-45Namespace-u--pretty_Pretty_ModuleIdent eta-1)) e-183))))))) ((56) (lambda (eta-0) (vector 1 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Internal error when resolving implicit laziness"))))) ((57) (let ((e-184 (vector-ref arg-3 1))) (lambda (eta-0) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "INTERNAL ERROR") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String e-184)))))) ((58) (let ((e-185 (vector-ref arg-3 1))) (lambda (eta-0) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "Error") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String e-185)))))) ((59) (let ((e-186 (vector-ref arg-3 1))) (let ((e-187 (vector-ref arg-3 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((u--cgs (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (PreludeC-45Types-u--map_Functor_List eta-3 eta-4))))) (lambda (eta-1) (Builtin-fst eta-1)) (CoreC-45Options-availableCGs (let ((e-4 (vector-ref e-5 4))) e-4))))) (let ((act-25 ((IdrisC-45Error-ploc arg-2 e-186) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((u--res (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (cons (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow (PreludeC-45TypesC-45String-C-43C-43 "The given specifier '" (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_String u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_String u--d u--x)))) e-187) "' was not accepted by any backend. Available backends"))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon))) (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-indent 2 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-concatWith (lambda (u--x) (lambda (u--y) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 u--x (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 ", ")) u--y))) (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow eta-1)) u--cgs))) (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Some backends have additional specifier rules, refer to their documentation.") '())))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) e-6))) (vector 1 u--res))))))))))))))) ((60) (let ((e-188 (vector-ref arg-3 1))) (let ((e-189 (vector-ref arg-3 2))) (lambda (eta-0) (let ((act-24 ((IdrisC-45Error-ploc arg-2 e-188) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "While processing multi-line string") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-dot)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String e-189) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-dot)))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) e-5)))))))))) ((61) (let ((e-190 (vector-ref arg-3 1))) (lambda (eta-0) (vector 1 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Timeout in") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String e-190))))))) ((62) (let ((e-192 (vector-ref arg-3 2))) (let ((e-193 (vector-ref arg-3 3))) (lambda (eta-0) (let ((act-24 ((CoreC-45Context-prettyName arg-0 e-192) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((IdrisC-45Error-perror arg-0 arg-1 arg-2 e-193) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-hsep (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "While processing type of") (IdrisC-45Pretty-code (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String e-5)))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-dot)) (cons e-6 '())))))))))))))))) ((63) (let ((e-195 (vector-ref arg-3 2))) (let ((e-196 (vector-ref arg-3 3))) (lambda (eta-0) (let ((act-24 ((CoreC-45Context-prettyName arg-0 e-195) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((IdrisC-45Error-perror arg-0 arg-1 arg-2 e-196) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-hsep (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "While processing constructor") (IdrisC-45Pretty-code (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String e-5)))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-dot)) (cons e-6 '())))))))))))))))) ((64) (let ((e-198 (vector-ref arg-3 2))) (let ((e-199 (vector-ref arg-3 3))) (lambda (eta-0) (let ((act-24 ((CoreC-45Context-prettyName arg-0 e-198) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((IdrisC-45Error-perror arg-0 arg-1 arg-2 e-199) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-hsep (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "While processing left hand side of") (IdrisC-45Pretty-code (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String e-5)))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-dot)) (cons e-6 '())))))))))))))))) ((65) (let ((e-201 (vector-ref arg-3 2))) (let ((e-202 (vector-ref arg-3 3))) (lambda (eta-0) (let ((act-24 ((CoreC-45Context-prettyName arg-0 e-201) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((IdrisC-45Error-perror arg-0 arg-1 arg-2 e-202) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-hsep (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-errorDesc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "While processing right hand side of") (IdrisC-45Pretty-code (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String e-5)))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-dot)) (cons e-6 '())))))))))))))))) ((66) (let ((e-203 (vector-ref arg-3 1))) (let ((e-204 (vector-ref arg-3 2))) (lambda (eta-0) (let ((act-24 ((IdrisC-45Error-perror arg-0 arg-1 arg-2 e-203) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 e-5 (if (null? e-204) (let ((sc3 (LibrariesC-45DataC-45List1-unsnoc e-204))) (let ((e-2 (car sc3))) (let ((e-3 (cdr sc3))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Did you mean any of:") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-concatWith (lambda (eta-1) (lambda (eta-2) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-surround (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-comma) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-space)) eta-1 eta-2))) (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String eta-1)) e-2)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-comma)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "or") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String e-3) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "?")))))))) (let ((e-1 (car e-204))) (let ((e-2 (cdr e-204))) (if (null? e-2) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Did you mean:") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String e-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "?"))) (let ((sc4 (LibrariesC-45DataC-45List1-unsnoc e-204))) (let ((e-4 (car sc4))) (let ((e-3 (cdr sc4))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Did you mean any of:") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-concatWith (lambda (eta-1) (lambda (eta-2) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-surround (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-comma) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-space)) eta-1 eta-2))) (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String eta-1)) e-4)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-comma)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "or") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String e-3) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "?")))))))))))))))))))))) (else (let ((e-205 (vector-ref arg-3 1))) (lambda (eta-0) (IdrisC-45Error-pwarning arg-0 arg-1 arg-2 e-205 eta-0))))))) +(define IdrisC-45Error-pShowMN (lambda (arg-1 arg-2 arg-3 arg-4) (case (vector-ref arg-2 0) ((0) (let ((e-4 (vector-ref arg-2 3))) (let ((sc1 (CoreC-45Name-dropAllNS (CoreC-45TT-nameAt arg-1 e-4)))) (case (vector-ref sc1 0) ((2) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 arg-4 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-parens (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "implicitly bound at") (CoreC-45FC-u--pretty_Pretty_FC (CoreC-45Env-getBinderLoc arg-1 e-4 arg-3))))))(else arg-4)))))(else arg-4)))) (define IdrisC-45Error-keyword (lambda (ext-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-annotate (vector 6 (vector 1 )) ext-0))) -(define IdrisC-45Error-displayWarning (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (IdrisC-45Error-pwarning arg-0 arg-1 arg-2 arg-3 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-annotate (vector 0 ) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "Warning:")) e-5))))))))) -(define IdrisC-45Error-display (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 ((IdrisC-45Error-perror arg-0 arg-1 arg-2 arg-3) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-annotate (vector 1 ) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "Error:")) e-5))))))))) +(define IdrisC-45Error-displayWarning (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (IdrisC-45Error-pwarning arg-0 arg-1 arg-2 arg-3 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-annotate (vector 0 ) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "Warning:")) e-5)))))))) +(define IdrisC-45Error-display (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 ((IdrisC-45Error-perror arg-0 arg-1 arg-2 arg-3) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-annotate (vector 1 ) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "Error:")) e-5)))))))) +(define LibrariesC-45DataC-45List1-unsnoc (lambda (arg-1) (let ((e-1 (car arg-1))) (let ((e-2 (cdr arg-1))) (if (null? e-2) (cons '() e-1) (let ((e-5 (car e-2))) (let ((e-6 (cdr e-2))) (let ((sc2 (LibrariesC-45DataC-45List1-unsnoc (cons e-5 e-6)))) (let ((e-4 (car sc2))) (let ((e-3 (cdr sc2))) (cons (cons e-1 e-4) e-3))))))))))) (define DataC-45Stream-repeat (lambda (arg-1) (cons arg-1 (lambda () (DataC-45Stream-repeat arg-1))))) -(define LibrariesC-45DataC-45List1-case--unsnoc-759 (lambda (arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (cons (cons arg-1 e-2) e-3)))))) -(define LibrariesC-45DataC-45List1-unsnoc (lambda (arg-1) (let ((sc0 arg-1)) (let ((e-1 (car sc0))) (let ((e-2 (cdr sc0))) (let ((sc1 e-2)) (if (null? sc1) (cons '() e-1) (let ((e-5 (car sc1))) (let ((e-6 (cdr sc1))) (LibrariesC-45DataC-45List1-case--unsnoc-759 e-1 e-5 e-6 (LibrariesC-45DataC-45List1-unsnoc (cons e-5 e-6)))))))))))) -(define IdrisC-45Pretty-case--prettyTermC-44goC-44deGuard-3223 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (vector 0 arg-8 arg-7)) (else arg-9))))) -(define IdrisC-45Pretty-case--prettyTermC-44goC-44dePure-3169 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (cond ((equal? sc0 0) arg-7) (else arg-8))))) -(define IdrisC-45Pretty-case--prettyTermC-44go-2656 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-n--11888-1694-u--go (IdrisC-45Pretty-n--11888-1692-u--leftAppPrec) arg-4) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-braces (CoreC-45Name-u--pretty_Pretty_Name arg-3)))) (else (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-n--11888-1694-u--go (IdrisC-45Pretty-n--11888-1692-u--leftAppPrec) arg-4) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-braces (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (CoreC-45Name-u--pretty_Pretty_Name arg-3) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-equals) (CoreC-45Name-u--pretty_Pretty_Name arg-2)))))))))) -(define IdrisC-45Pretty-case--prettyTermC-44go-2248 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-parenthesise (PreludeC-45Show-u--C-62_Ord_Prec arg-6 (IdrisC-45Pretty-n--11888-1690-u--startPrec)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-group (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-align (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-hang 2 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-backslash) (IdrisC-45Pretty-n--12168-2103-u--prettyBindings arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-2)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "=>") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) (IdrisC-45Pretty-n--11888-1694-u--go (IdrisC-45Pretty-n--11888-1690-u--startPrec) e-3)))))))))))) -(define IdrisC-45Pretty-case--prettyTermC-44prettyOp-1704 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-annotate (vector 3 arg-0) (CoreC-45Name-u--pretty_Pretty_Name arg-0))) (else (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (vector 1 #\`) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-annotate (vector 3 arg-0) (CoreC-45Name-u--pretty_Pretty_Name arg-0))) (vector 1 #\`))))))) -(define IdrisC-45Pretty-n--11888-1690-u--startPrec (lambda () (vector 4 0))) -(define IdrisC-45Pretty-n--11888-1693-u--prettyOp (lambda (arg-0) (IdrisC-45Pretty-case--prettyTermC-44prettyOp-1704 arg-0 (ParserC-45LexerC-45Source-isOpName arg-0)))) -(define IdrisC-45Pretty-n--12168-2103-u--prettyBindings (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (if (null? sc0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--neutral_Monoid_C-40DocC-32C-36annC-41) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (let ((sc2 e-7)) (let ((e-10 (car sc2))) (let ((e-11 (cdr sc2))) (let ((sc3 e-11)) (case (vector-ref sc3 0) ((25) (let ((sc4 e-3)) (if (null? sc4) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-prettyRig e-6) (IdrisC-45Pretty-n--11888-1694-u--go (IdrisC-45Pretty-n--11888-1690-u--startPrec) e-10)) (let ((sc5 e-3)) (if (null? sc5) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-prettyRig e-6) (IdrisC-45Pretty-n--11888-1694-u--go (IdrisC-45Pretty-n--11888-1690-u--startPrec) e-10)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon) (IdrisC-45Pretty-n--11888-1694-u--go (IdrisC-45Pretty-n--11888-1690-u--startPrec) e-11))) (let ((sc6 e-11)) (case (vector-ref sc6 0) ((25) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-prettyRig e-6) (IdrisC-45Pretty-n--11888-1694-u--go (IdrisC-45Pretty-n--11888-1690-u--startPrec) e-10)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-comma)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) (IdrisC-45Pretty-n--12168-2103-u--prettyBindings arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3)))(else (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-prettyRig e-6) (IdrisC-45Pretty-n--11888-1694-u--go (IdrisC-45Pretty-n--11888-1690-u--startPrec) e-10)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-n--11888-1694-u--go (IdrisC-45Pretty-n--11888-1690-u--startPrec) e-11) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-comma)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) (IdrisC-45Pretty-n--12168-2103-u--prettyBindings arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3))))))))))))(else (let ((sc3 e-3)) (if (null? sc3) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-prettyRig e-6) (IdrisC-45Pretty-n--11888-1694-u--go (IdrisC-45Pretty-n--11888-1690-u--startPrec) e-10)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon) (IdrisC-45Pretty-n--11888-1694-u--go (IdrisC-45Pretty-n--11888-1690-u--startPrec) e-11))) (let ((sc4 e-11)) (case (vector-ref sc4 0) ((25) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-prettyRig e-6) (IdrisC-45Pretty-n--11888-1694-u--go (IdrisC-45Pretty-n--11888-1690-u--startPrec) e-10)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-comma)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) (IdrisC-45Pretty-n--12168-2103-u--prettyBindings arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3)))(else (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-prettyRig e-6) (IdrisC-45Pretty-n--11888-1694-u--go (IdrisC-45Pretty-n--11888-1690-u--startPrec) e-10)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-n--11888-1694-u--go (IdrisC-45Pretty-n--11888-1690-u--startPrec) e-11) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-comma)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) (IdrisC-45Pretty-n--12168-2103-u--prettyBindings arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3)))))))))))))))))))))))) -(define IdrisC-45Pretty-n--11888-1692-u--leftAppPrec (lambda () (vector 4 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))))) -(define IdrisC-45Pretty-n--11888-1694-u--go (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-annotate (vector 3 e-1) (CoreC-45Name-u--pretty_Pretty_Name e-1)))) ((1) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (let ((e-6 (vector-ref sc0 5))) (let ((e-7 (vector-ref sc0 6))) (let ((sc1 e-4)) (case (vector-ref sc1 0) ((1) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-parenthesise (PreludeC-45Show-u--C-62_Ord_Prec arg-0 (IdrisC-45Pretty-n--11888-1690-u--startPrec)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-group (AlgebraC-45Semiring-branchVal (cons (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-2) (lambda (arg-3) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-4 arg-5))))) (lambda () (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-n--11888-1694-u--go (IdrisC-45Pretty-n--11888-1690-u--startPrec) e-6) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "->") (IdrisC-45Pretty-n--11888-1694-u--go (IdrisC-45Pretty-n--11888-1690-u--startPrec) e-7)))) (lambda () (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-parens (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-prettyRig e-3) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "_")) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon) (IdrisC-45Pretty-n--11888-1694-u--go (IdrisC-45Pretty-n--11888-1690-u--startPrec) e-6)))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "->") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) (IdrisC-45Pretty-n--11888-1694-u--go (IdrisC-45Pretty-n--11888-1690-u--startPrec) e-7)))) e-3)))) (else (let ((e-150 (vector-ref sc2 1))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-parenthesise (PreludeC-45Show-u--C-62_Ord_Prec arg-0 (IdrisC-45Pretty-n--11888-1690-u--startPrec)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-group (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-parens (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-prettyRig e-3) (CoreC-45Name-u--pretty_Pretty_Name e-150)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon) (IdrisC-45Pretty-n--11888-1694-u--go (IdrisC-45Pretty-n--11888-1690-u--startPrec) e-6)))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "->") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) (IdrisC-45Pretty-n--11888-1694-u--go (IdrisC-45Pretty-n--11888-1690-u--startPrec) e-7)))))))))) ((0) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-parenthesise (PreludeC-45Show-u--C-62_Ord_Prec arg-0 (IdrisC-45Pretty-n--11888-1690-u--startPrec)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-group (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-braces (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-prettyRig e-3) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Char #\_)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon) (IdrisC-45Pretty-n--11888-1694-u--go (IdrisC-45Pretty-n--11888-1690-u--startPrec) e-6)))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "->") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) (IdrisC-45Pretty-n--11888-1694-u--go (IdrisC-45Pretty-n--11888-1690-u--startPrec) e-7)))))) (else (let ((e-153 (vector-ref sc2 1))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-parenthesise (PreludeC-45Show-u--C-62_Ord_Prec arg-0 (IdrisC-45Pretty-n--11888-1690-u--startPrec)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-group (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-braces (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-prettyRig e-3) (CoreC-45Name-u--pretty_Pretty_Name e-153)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon) (IdrisC-45Pretty-n--11888-1694-u--go (IdrisC-45Pretty-n--11888-1690-u--startPrec) e-6)))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "->") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) (IdrisC-45Pretty-n--11888-1694-u--go (IdrisC-45Pretty-n--11888-1690-u--startPrec) e-7)))))))))) ((2) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-parenthesise (PreludeC-45Show-u--C-62_Ord_Prec arg-0 (IdrisC-45Pretty-n--11888-1690-u--startPrec)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-group (AlgebraC-45Semiring-branchVal (cons (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-2) (lambda (arg-3) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-4 arg-5))))) (lambda () (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-n--11888-1694-u--go (IdrisC-45Pretty-n--11888-1690-u--startPrec) e-6) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "=>") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) (IdrisC-45Pretty-n--11888-1694-u--go (IdrisC-45Pretty-n--11888-1690-u--startPrec) e-7)))) (lambda () (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-braces (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-auto_) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-prettyRig e-3) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "_")) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon) (IdrisC-45Pretty-n--11888-1694-u--go (IdrisC-45Pretty-n--11888-1690-u--startPrec) e-6))))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "->") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) (IdrisC-45Pretty-n--11888-1694-u--go (IdrisC-45Pretty-n--11888-1690-u--startPrec) e-7)))) e-3)))) (else (let ((e-156 (vector-ref sc2 1))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-parenthesise (PreludeC-45Show-u--C-62_Ord_Prec arg-0 (IdrisC-45Pretty-n--11888-1690-u--startPrec)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-group (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-braces (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-auto_) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-prettyRig e-3) (CoreC-45Name-u--pretty_Pretty_Name e-156)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon) (IdrisC-45Pretty-n--11888-1694-u--go (IdrisC-45Pretty-n--11888-1690-u--startPrec) e-6))))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "->") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) (IdrisC-45Pretty-n--11888-1694-u--go (IdrisC-45Pretty-n--11888-1690-u--startPrec) e-7)))))))))) (else (let ((e-147 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-parenthesise (PreludeC-45Show-u--C-62_Ord_Prec arg-0 (IdrisC-45Pretty-n--11888-1690-u--startPrec)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-group (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-braces (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-default_) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-n--11888-1694-u--go (IdrisC-45Pretty-n--11888-1691-u--appPrec) e-147) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-prettyRig e-3) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "_")) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon) (IdrisC-45Pretty-n--11888-1694-u--go (IdrisC-45Pretty-n--11888-1690-u--startPrec) e-6)))))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "->") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) (IdrisC-45Pretty-n--11888-1694-u--go (IdrisC-45Pretty-n--11888-1690-u--startPrec) e-7)))))) (else (let ((e-159 (vector-ref sc2 1))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-parenthesise (PreludeC-45Show-u--C-62_Ord_Prec arg-0 (IdrisC-45Pretty-n--11888-1690-u--startPrec)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-group (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-braces (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-default_) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-n--11888-1694-u--go (IdrisC-45Pretty-n--11888-1691-u--appPrec) e-147) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-prettyRig e-3) (CoreC-45Name-u--pretty_Pretty_Name e-159)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon) (IdrisC-45Pretty-n--11888-1694-u--go (IdrisC-45Pretty-n--11888-1690-u--startPrec) e-6)))))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "->") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) (IdrisC-45Pretty-n--11888-1694-u--go (IdrisC-45Pretty-n--11888-1690-u--startPrec) e-7))))))))))))))))))) ((2) (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 3))) (let ((e-11 (vector-ref sc0 4))) (let ((e-12 (vector-ref sc0 5))) (let ((e-13 (vector-ref sc0 6))) (IdrisC-45Pretty-case--prettyTermC-44go-2248 e-8 e-10 e-13 e-12 e-11 e-9 arg-0 (IdrisC-45Pretty-n--12168-2102-u--getLamNames e-8 e-10 e-13 e-12 e-11 e-9 arg-0 (cons (cons e-9 (cons e-11 e-12)) '()) e-13))))))))) ((3) (let ((e-14 (vector-ref sc0 1))) (let ((e-15 (vector-ref sc0 2))) (let ((e-16 (vector-ref sc0 3))) (let ((e-17 (vector-ref sc0 4))) (let ((e-18 (vector-ref sc0 5))) (let ((e-19 (vector-ref sc0 6))) (let ((e-20 (vector-ref sc0 7))) (let ((sc1 e-17)) (case (vector-ref sc1 0) ((25) (let ((e-160 (vector-ref sc1 1))) (DataC-45Maybe-fromMaybe (lambda () (IdrisC-45Pretty-n--12168-2303-u--fullLet e-14 e-160 e-20 e-19 e-18 e-16 e-15 arg-0)) (PreludeC-45Types-u--C-60C-124C-62_Alternative_Maybe (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (IdrisC-45Pretty-n--12168-2304-u--getPRefName e-14 e-160 e-20 e-19 e-18 e-16 e-15 arg-0 e-16) (lambda (u--nName) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (IdrisC-45Pretty-n--12168-2304-u--getPRefName e-14 e-160 e-20 e-19 e-18 e-16 e-15 arg-0 e-18) (lambda (u--valName) (PreludeC-45Interfaces-C-62C-62 (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (PreludeC-45Types-u--map_Functor_Maybe u--func arg-143))))) (lambda (u--a) (lambda (arg-577) (PreludeC-45Types-u--pure_Applicative_Maybe arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (PreludeC-45Types-u--C-60C-42C-62_Applicative_Maybe arg-578 arg-580)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe arg-876 arg-877))))) (lambda (u--a) (lambda (arg-879) (PreludeC-45Types-u--join_Monad_Maybe arg-879)))) (PreludeC-45Interfaces-guard (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (PreludeC-45Types-u--map_Functor_Maybe u--func arg-143))))) (lambda (u--a) (lambda (arg-577) (PreludeC-45Types-u--pure_Applicative_Maybe arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (PreludeC-45Types-u--C-60C-42C-62_Applicative_Maybe arg-578 arg-580)))))) (lambda (u--a) (PreludeC-45Types-u--empty_Alternative_Maybe)) (lambda (u--a) (lambda (arg-827) (lambda (arg-828) (PreludeC-45Types-u--C-60C-124C-62_Alternative_Maybe arg-827 arg-828))))) (PreludeC-45EqOrd-u--C-61C-61_Eq_String (CoreC-45Name-u--show_Show_Name u--nName) (CoreC-45Name-u--show_Show_Name u--valName))) (lambda () (PreludeC-45Types-u--pure_Applicative_Maybe (IdrisC-45Pretty-n--12168-2302-u--continuation e-14 e-160 e-20 e-19 e-18 e-16 e-15 arg-0)))))))) (lambda () (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (IdrisC-45Pretty-n--12168-2304-u--getPRefName e-14 e-160 e-20 e-19 e-18 e-16 e-15 arg-0 e-16) (lambda (u--nName) (PreludeC-45Interfaces-C-62C-62 (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (PreludeC-45Types-u--map_Functor_Maybe u--func arg-143))))) (lambda (u--a) (lambda (arg-577) (PreludeC-45Types-u--pure_Applicative_Maybe arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (PreludeC-45Types-u--C-60C-42C-62_Applicative_Maybe arg-578 arg-580)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe arg-876 arg-877))))) (lambda (u--a) (lambda (arg-879) (PreludeC-45Types-u--join_Monad_Maybe arg-879)))) (PreludeC-45Interfaces-guard (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (PreludeC-45Types-u--map_Functor_Maybe u--func arg-143))))) (lambda (u--a) (lambda (arg-577) (PreludeC-45Types-u--pure_Applicative_Maybe arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (PreludeC-45Types-u--C-60C-42C-62_Applicative_Maybe arg-578 arg-580)))))) (lambda (u--a) (PreludeC-45Types-u--empty_Alternative_Maybe)) (lambda (u--a) (lambda (arg-827) (lambda (arg-828) (PreludeC-45Types-u--C-60C-124C-62_Alternative_Maybe arg-827 arg-828))))) (CoreC-45Name-isUnderscoreName u--nName)) (lambda () (PreludeC-45Types-u--pure_Applicative_Maybe (IdrisC-45Pretty-n--12168-2302-u--continuation e-14 e-160 e-20 e-19 e-18 e-16 e-15 arg-0)))))))))))(else (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-parenthesise (PreludeC-45Show-u--C-62_Ord_Prec arg-0 (IdrisC-45Pretty-n--11888-1690-u--startPrec)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-group (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-align (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-let_) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-group (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-align (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-hang 2 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-prettyRig e-15) (IdrisC-45Pretty-n--11888-1694-u--go (IdrisC-45Pretty-n--11888-1690-u--startPrec) e-16)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-n--11888-1694-u--go (IdrisC-45Pretty-n--11888-1690-u--startPrec) e-17) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-equals) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) (IdrisC-45Pretty-n--11888-1694-u--go (IdrisC-45Pretty-n--11888-1690-u--startPrec) e-18)))))))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-hardline)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-hang 4 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-fillSep (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (PreludeC-45Types-u--map_Functor_List eta-2 eta-3))))) (lambda (eta-0) (IdrisC-45Pretty-prettyAlt eta-0)) e-20)))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) (IdrisC-45Pretty-in_)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-group (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-align (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-hang 2 (IdrisC-45Pretty-n--11888-1694-u--go (IdrisC-45Pretty-n--11888-1690-u--startPrec) e-19)))))))))))))))))))) ((4) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-parenthesise (PreludeC-45Show-u--C-62_Ord_Prec arg-0 (IdrisC-45Pretty-n--11888-1691-u--appPrec)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-align (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-case_) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-n--11888-1694-u--go (IdrisC-45Pretty-n--11888-1690-u--startPrec) e-22) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-of_) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-braces (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-punctuate (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-semi) (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (PreludeC-45Types-u--map_Functor_List eta-2 eta-3))))) (lambda (eta-0) (IdrisC-45Pretty-prettyCase eta-0)) e-23)))))))))))) ((5) (let ((e-26 (vector-ref sc0 3))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-parenthesise (PreludeC-45Show-u--C-62_Ord_Prec arg-0 (IdrisC-45Pretty-n--11888-1690-u--startPrec)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-group (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-align (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-let_) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-braces (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-angles (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-angles (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "definitions")))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) (IdrisC-45Pretty-in_)) (IdrisC-45Pretty-n--11888-1694-u--go (IdrisC-45Pretty-n--11888-1690-u--startPrec) e-26)))))))) ((6) (let ((e-28 (vector-ref sc0 2))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-parenthesise (PreludeC-45Show-u--C-62_Ord_Prec arg-0 (IdrisC-45Pretty-n--11888-1691-u--appPrec)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-group (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-record_) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-braces (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-punctuate (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-comma) (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (PreludeC-45Types-u--map_Functor_List eta-2 eta-3))))) (lambda (eta-0) (IdrisC-45Pretty-prettyUpdate eta-0)) e-28))))))))) ((7) (let ((e-30 (vector-ref sc0 2))) (let ((e-31 (vector-ref sc0 3))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-parenthesise (PreludeC-45Show-u--C-62_Ord_Prec arg-0 (IdrisC-45Pretty-n--11888-1691-u--appPrec)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-group (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-n--11888-1694-u--go (IdrisC-45Pretty-n--11888-1692-u--leftAppPrec) e-30) (IdrisC-45Pretty-n--11888-1694-u--go (IdrisC-45Pretty-n--11888-1691-u--appPrec) e-31))))))) ((8) (let ((e-33 (vector-ref sc0 2))) (let ((e-34 (vector-ref sc0 3))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-n--11888-1694-u--go arg-0 e-33) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-pipe) (IdrisC-45Pretty-n--11888-1694-u--go arg-0 e-34)))))) ((11) (let ((e-36 (vector-ref sc0 2))) (let ((e-37 (vector-ref sc0 3))) (let ((sc1 e-36)) (case (vector-ref sc1 0) ((0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-parenthesise (PreludeC-45Show-u--C-62_Ord_Prec arg-0 (IdrisC-45Pretty-n--11888-1691-u--appPrec)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "Inf") (IdrisC-45Pretty-n--11888-1694-u--go (IdrisC-45Pretty-n--11888-1691-u--appPrec) e-37))))(else (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-parenthesise (PreludeC-45Show-u--C-62_Ord_Prec arg-0 (IdrisC-45Pretty-n--11888-1691-u--appPrec)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "Lazy") (IdrisC-45Pretty-n--11888-1694-u--go (IdrisC-45Pretty-n--11888-1691-u--appPrec) e-37))))))))) ((12) (let ((e-39 (vector-ref sc0 2))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-parenthesise (PreludeC-45Show-u--C-62_Ord_Prec arg-0 (IdrisC-45Pretty-n--11888-1691-u--appPrec)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "Delay") (IdrisC-45Pretty-n--11888-1694-u--go (IdrisC-45Pretty-n--11888-1691-u--appPrec) e-39))))) ((13) (let ((e-41 (vector-ref sc0 2))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-parenthesise (PreludeC-45Show-u--C-62_Ord_Prec arg-0 (IdrisC-45Pretty-n--11888-1691-u--appPrec)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "Force") (IdrisC-45Pretty-n--11888-1694-u--go (IdrisC-45Pretty-n--11888-1691-u--appPrec) e-41))))) ((10) (let ((e-43 (vector-ref sc0 2))) (let ((e-44 (vector-ref sc0 3))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-parenthesise (PreludeC-45Show-u--C-62_Ord_Prec arg-0 (IdrisC-45Pretty-n--11888-1691-u--appPrec)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-group (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-n--11888-1694-u--go (IdrisC-45Pretty-n--11888-1692-u--leftAppPrec) e-43) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "@") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-braces (IdrisC-45Pretty-n--11888-1694-u--go (IdrisC-45Pretty-n--11888-1690-u--startPrec) e-44))))))))) ((9) (let ((e-45 (vector-ref sc0 1))) (let ((e-46 (vector-ref sc0 2))) (let ((e-47 (vector-ref sc0 3))) (let ((e-48 (vector-ref sc0 4))) (let ((sc1 e-48)) (case (vector-ref sc1 0) ((0) (let ((e-161 (vector-ref sc1 1))) (let ((e-162 (vector-ref sc1 2))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-parenthesise (PreludeC-45Show-u--C-62_Ord_Prec arg-0 (IdrisC-45Pretty-n--11888-1691-u--appPrec)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-group (IdrisC-45Pretty-case--prettyTermC-44go-2656 e-45 e-161 e-162 e-47 e-46 arg-0 (CoreC-45Name-u--C-61C-61_Eq_Name e-47 e-162)))))))(else (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-parenthesise (PreludeC-45Show-u--C-62_Ord_Prec arg-0 (IdrisC-45Pretty-n--11888-1691-u--appPrec)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-group (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-n--11888-1694-u--go (IdrisC-45Pretty-n--11888-1692-u--leftAppPrec) e-46) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-braces (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (CoreC-45Name-u--pretty_Pretty_Name e-47) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-equals) (IdrisC-45Pretty-n--11888-1694-u--go arg-0 e-48))))))))))))))) ((14) (IdrisC-45Pretty-pragma (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unsafeTextWithoutNewLines eta-0)) (DataC-45List1-forget (LibrariesC-45DataC-45StringC-45Extra-lines (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-case--pretty-5531 "%search" (DataC-45String-isSuffixOf "\u000a" "%search")))))))) ((16) (let ((e-52 (vector-ref sc0 2))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-parenthesise (PreludeC-45Show-u--C-62_Ord_Prec arg-0 (IdrisC-45Pretty-n--11888-1691-u--appPrec)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "`") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-parens (IdrisC-45Pretty-n--11888-1694-u--go (IdrisC-45Pretty-n--11888-1690-u--startPrec) e-52)))))) ((17) (let ((e-54 (vector-ref sc0 2))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-parenthesise (PreludeC-45Show-u--C-62_Ord_Prec arg-0 (IdrisC-45Pretty-n--11888-1691-u--appPrec)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "`") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-braces (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-braces (CoreC-45Name-u--pretty_Pretty_Name e-54))))))) ((18) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-parenthesise (PreludeC-45Show-u--C-62_Ord_Prec arg-0 (IdrisC-45Pretty-n--11888-1691-u--appPrec)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "`") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-brackets (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-angles (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-angles (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "declaration"))))))) ((19) (let ((e-58 (vector-ref sc0 2))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-parenthesise (PreludeC-45Show-u--C-62_Ord_Prec arg-0 (IdrisC-45Pretty-n--11888-1691-u--appPrec)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "~") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-parens (IdrisC-45Pretty-n--11888-1694-u--go (IdrisC-45Pretty-n--11888-1690-u--startPrec) e-58)))))) ((20) (let ((e-60 (vector-ref sc0 2))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-parenthesise (PreludeC-45Show-u--C-62_Ord_Prec arg-0 (IdrisC-45Pretty-n--11888-1691-u--appPrec)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-pragma (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unsafeTextWithoutNewLines eta-0)) (DataC-45List1-forget (LibrariesC-45DataC-45StringC-45Extra-lines (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-case--pretty-5531 "%runElab" (DataC-45String-isSuffixOf "\u000a" "%runElab"))))))) (IdrisC-45Pretty-n--11888-1694-u--go (IdrisC-45Pretty-n--11888-1690-u--startPrec) e-60))))) ((15) (let ((e-62 (vector-ref sc0 2))) (CoreC-45TT-u--pretty_Pretty_Constant e-62))) ((21) (let ((e-65 (vector-ref sc0 3))) (IdrisC-45Pretty-hole (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String (PreludeC-45Types-strCons #\? e-65))))) ((22) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "Type")) ((23) (let ((e-69 (vector-ref sc0 3))) (let ((e-70 (vector-ref sc0 4))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (CoreC-45Name-u--pretty_Pretty_Name e-69) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "@")) (IdrisC-45Pretty-n--11888-1694-u--go arg-0 e-70))))) ((24) (let ((e-72 (vector-ref sc0 2))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-dot) (IdrisC-45Pretty-n--11888-1694-u--go arg-0 e-72)))) ((25) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unsafeTextWithoutNewLines eta-0)) (DataC-45List1-forget (LibrariesC-45DataC-45StringC-45Extra-lines (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-case--pretty-5531 "_" (DataC-45String-isSuffixOf "\u000a" "_"))))))) ((26) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unsafeTextWithoutNewLines eta-0)) (DataC-45List1-forget (LibrariesC-45DataC-45StringC-45Extra-lines (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-case--pretty-5531 "?" (DataC-45String-isSuffixOf "\u000a" "?"))))))) ((27) (let ((e-76 (vector-ref sc0 2))) (let ((e-77 (vector-ref sc0 3))) (let ((e-78 (vector-ref sc0 4))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-parenthesise (PreludeC-45Show-u--C-62_Ord_Prec arg-0 (IdrisC-45Pretty-n--11888-1691-u--appPrec)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-group (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-n--11888-1694-u--go (IdrisC-45Pretty-n--11888-1690-u--startPrec) e-77) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-n--11888-1693-u--prettyOp e-76) (IdrisC-45Pretty-n--11888-1694-u--go (IdrisC-45Pretty-n--11888-1690-u--startPrec) e-78))))))))) ((28) (let ((e-80 (vector-ref sc0 2))) (let ((e-81 (vector-ref sc0 3))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-parenthesise (PreludeC-45Show-u--C-62_Ord_Prec arg-0 (IdrisC-45Pretty-n--11888-1691-u--appPrec)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (CoreC-45Name-u--pretty_Pretty_Name e-80) (IdrisC-45Pretty-n--11888-1694-u--go (IdrisC-45Pretty-n--11888-1690-u--startPrec) e-81)))))) ((29) (let ((e-83 (vector-ref sc0 2))) (let ((e-84 (vector-ref sc0 3))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-parens (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-n--11888-1693-u--prettyOp e-83) (IdrisC-45Pretty-n--11888-1694-u--go (IdrisC-45Pretty-n--11888-1690-u--startPrec) e-84)))))) ((30) (let ((e-86 (vector-ref sc0 2))) (let ((e-87 (vector-ref sc0 3))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-parens (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-n--11888-1694-u--go (IdrisC-45Pretty-n--11888-1690-u--startPrec) e-86) (IdrisC-45Pretty-n--11888-1693-u--prettyOp e-87)))))) ((31) (let ((e-89 (vector-ref sc0 2))) (let ((e-90 (vector-ref sc0 3))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-parenthesise (PreludeC-45Show-u--C-62_Ord_Prec arg-0 (IdrisC-45Pretty-n--11888-1691-u--appPrec)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-n--11888-1694-u--go (IdrisC-45Pretty-n--11888-1690-u--startPrec) e-89) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-equals) (IdrisC-45Pretty-n--11888-1694-u--go (IdrisC-45Pretty-n--11888-1690-u--startPrec) e-90))))))) ((32) (let ((e-92 (vector-ref sc0 2))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-parens (IdrisC-45Pretty-n--11888-1694-u--go (IdrisC-45Pretty-n--11888-1690-u--startPrec) e-92)))) ((33) (let ((e-94 (vector-ref sc0 2))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-parenthesise (PreludeC-45Show-u--C-62_Ord_Prec arg-0 (IdrisC-45Pretty-n--11888-1691-u--appPrec)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-hsep (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-punctuate (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "++") (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (PreludeC-45Types-u--map_Functor_List eta-2 eta-3))))) (lambda (eta-0) (IdrisC-45Pretty-prettyString eta-0)) e-94)))))) ((34) (let ((e-97 (vector-ref sc0 3))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "multiline") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-parenthesise (PreludeC-45Show-u--C-62_Ord_Prec arg-0 (IdrisC-45Pretty-n--11888-1691-u--appPrec)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-hsep (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-punctuate (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "++") (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (PreludeC-45Types-u--map_Functor_List eta-2 eta-3))))) (lambda (eta-0) (IdrisC-45Pretty-prettyString eta-0)) (PreludeC-45Interfaces-concat (cons (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-2 arg-3))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) e-97)))))))) ((35) (let ((e-100 (vector-ref sc0 3))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-parenthesise (PreludeC-45Show-u--C-62_Ord_Prec arg-0 (IdrisC-45Pretty-n--11888-1691-u--appPrec)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-group (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-align (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-hang 2 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-do_) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-punctuate (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-semi) (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (PreludeC-45Types-u--map_Functor_List eta-2 eta-3))))) (lambda (eta-0) (IdrisC-45Pretty-prettyDo eta-0)) e-100)))))))))) ((36) (let ((e-102 (vector-ref sc0 2))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "!") (IdrisC-45Pretty-n--11888-1694-u--go arg-0 e-102)))) ((37) (let ((e-104 (vector-ref sc0 2))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-enclose (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "[|") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "|]") (IdrisC-45Pretty-n--11888-1694-u--go (IdrisC-45Pretty-n--11888-1690-u--startPrec) e-104)))) ((38) (let ((e-106 (vector-ref sc0 2))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-brackets (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-group (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-align (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-punctuate (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-comma) (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (PreludeC-45Types-u--map_Functor_List eta-2 eta-3))))) (lambda (eta-0) (IdrisC-45Pretty-n--11888-1694-u--go (IdrisC-45Pretty-n--11888-1690-u--startPrec) eta-0)) e-106)))))))) ((39) (let ((e-108 (vector-ref sc0 2))) (let ((e-109 (vector-ref sc0 3))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-group (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-parens (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-n--11888-1694-u--go (IdrisC-45Pretty-n--11888-1690-u--startPrec) e-108) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-comma)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) (IdrisC-45Pretty-n--11888-1694-u--go (IdrisC-45Pretty-n--11888-1690-u--startPrec) e-109))))))) ((40) (let ((e-111 (vector-ref sc0 2))) (let ((e-112 (vector-ref sc0 3))) (let ((e-113 (vector-ref sc0 4))) (let ((sc1 e-112)) (case (vector-ref sc1 0) ((25) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-group (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-parens (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-n--11888-1694-u--go (IdrisC-45Pretty-n--11888-1690-u--startPrec) e-111) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "**") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) (IdrisC-45Pretty-n--11888-1694-u--go (IdrisC-45Pretty-n--11888-1690-u--startPrec) e-113))))))(else (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-group (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-parens (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-n--11888-1694-u--go (IdrisC-45Pretty-n--11888-1690-u--startPrec) e-111) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-n--11888-1694-u--go (IdrisC-45Pretty-n--11888-1690-u--startPrec) e-112) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "**") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) (IdrisC-45Pretty-n--11888-1694-u--go (IdrisC-45Pretty-n--11888-1690-u--startPrec) e-113)))))))))))))) ((41) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unsafeTextWithoutNewLines eta-0)) (DataC-45List1-forget (LibrariesC-45DataC-45StringC-45Extra-lines (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-case--pretty-5531 "()" (DataC-45String-isSuffixOf "\u000a" "()"))))))) ((42) (let ((e-116 (vector-ref sc0 2))) (let ((e-117 (vector-ref sc0 3))) (let ((e-118 (vector-ref sc0 4))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-parenthesise (PreludeC-45Show-u--C-62_Ord_Prec arg-0 (IdrisC-45Pretty-n--11888-1691-u--appPrec)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-group (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-align (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-hang 2 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-keyword (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unsafeTextWithoutNewLines eta-0)) (DataC-45List1-forget (LibrariesC-45DataC-45StringC-45Extra-lines (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-case--pretty-5531 "if" (DataC-45String-isSuffixOf "\u000a" "if"))))))) (IdrisC-45Pretty-n--11888-1694-u--go (IdrisC-45Pretty-n--11888-1690-u--startPrec) e-116)) (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-keyword (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unsafeTextWithoutNewLines eta-0)) (DataC-45List1-forget (LibrariesC-45DataC-45StringC-45Extra-lines (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-case--pretty-5531 "then" (DataC-45String-isSuffixOf "\u000a" "then"))))))) (IdrisC-45Pretty-n--11888-1694-u--go (IdrisC-45Pretty-n--11888-1690-u--startPrec) e-117)) (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-keyword (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unsafeTextWithoutNewLines eta-0)) (DataC-45List1-forget (LibrariesC-45DataC-45StringC-45Extra-lines (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-case--pretty-5531 "else" (DataC-45String-isSuffixOf "\u000a" "else"))))))) (IdrisC-45Pretty-n--11888-1694-u--go (IdrisC-45Pretty-n--11888-1690-u--startPrec) e-118)) '())))))))))))) ((43) (let ((e-119 (vector-ref sc0 1))) (let ((e-120 (vector-ref sc0 2))) (let ((e-121 (vector-ref sc0 3))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-group (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-brackets (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-n--11888-1694-u--go (IdrisC-45Pretty-n--11888-1690-u--startPrec) (IdrisC-45Pretty-n--12168-3153-u--dePure e-119 e-121 e-120 arg-0 e-120)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-pipe) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-punctuate (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-comma) (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (PreludeC-45Types-u--map_Functor_List eta-2 eta-3))))) (lambda (eta-0) (IdrisC-45Pretty-prettyDo (IdrisC-45Pretty-n--12168-3154-u--deGuard e-119 e-121 e-120 arg-0 eta-0))) e-121))))))))))) ((44) (let ((e-123 (vector-ref sc0 2))) (let ((e-124 (vector-ref sc0 3))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-parenthesise (PreludeC-45Show-u--C-62_Ord_Prec arg-0 (IdrisC-45Pretty-n--11888-1691-u--appPrec)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-group (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-rewrite_) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-n--11888-1694-u--go (IdrisC-45Pretty-n--11888-1690-u--startPrec) e-123) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) (IdrisC-45Pretty-in_)) (IdrisC-45Pretty-n--11888-1694-u--go (IdrisC-45Pretty-n--11888-1690-u--startPrec) e-124)))))))) ((45) (let ((e-126 (vector-ref sc0 2))) (let ((e-127 (vector-ref sc0 3))) (let ((e-128 (vector-ref sc0 4))) (let ((sc1 e-127)) (case (vector-ref sc1 0) ((0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-brackets (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-n--11888-1694-u--go (IdrisC-45Pretty-n--11888-1690-u--startPrec) e-126) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "..") (IdrisC-45Pretty-n--11888-1694-u--go (IdrisC-45Pretty-n--11888-1690-u--startPrec) e-128))))) (else (let ((e-166 (vector-ref sc1 1))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-brackets (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-n--11888-1694-u--go (IdrisC-45Pretty-n--11888-1690-u--startPrec) e-126) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-comma)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-n--11888-1694-u--go (IdrisC-45Pretty-n--11888-1690-u--startPrec) e-166) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "..") (IdrisC-45Pretty-n--11888-1694-u--go (IdrisC-45Pretty-n--11888-1690-u--startPrec) e-128))))))))))))) ((46) (let ((e-130 (vector-ref sc0 2))) (let ((e-131 (vector-ref sc0 3))) (let ((sc1 e-131)) (case (vector-ref sc1 0) ((0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-brackets (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-n--11888-1694-u--go (IdrisC-45Pretty-n--11888-1690-u--startPrec) e-130) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "..")))) (else (let ((e-169 (vector-ref sc1 1))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-brackets (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-n--11888-1694-u--go (IdrisC-45Pretty-n--11888-1690-u--startPrec) e-130) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-comma)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-n--11888-1694-u--go (IdrisC-45Pretty-n--11888-1690-u--startPrec) e-169) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String ".."))))))))))) ((49) (let ((e-134 (vector-ref sc0 3))) (IdrisC-45Pretty-n--11888-1694-u--go arg-0 e-134))) ((47) (let ((e-136 (vector-ref sc0 2))) (let ((e-137 (vector-ref sc0 3))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-parenthesise (PreludeC-45Show-u--C-62_Ord_Prec arg-0 (IdrisC-45Pretty-n--11888-1691-u--appPrec)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-n--11888-1694-u--go (IdrisC-45Pretty-n--11888-1690-u--startPrec) e-136) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-dot) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-concatWith (lambda (eta-0) (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-surround (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-dot) eta-0 eta-1))) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45Name-u--pretty_Pretty_Name eta-0)) e-137)))))))) ((48) (let ((e-139 (vector-ref sc0 2))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-parens (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-dot) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-concatWith (lambda (eta-0) (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-surround (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-dot) eta-0 eta-1))) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45Name-u--pretty_Pretty_Name eta-0)) e-139)))))) (else (let ((e-141 (vector-ref sc0 2))) (let ((e-142 (vector-ref sc0 3))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-parenthesise (PreludeC-45Show-u--C-62_Ord_Prec arg-0 (IdrisC-45Pretty-n--11888-1691-u--appPrec)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-group (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-with_) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_C-40ListC-32C-36aC-41 (cons (lambda (u--ann) (lambda (arg-5451) (CoreC-45Name-u--pretty_Pretty_Name arg-5451))) (lambda (u--ann) (lambda (arg-5452) (lambda (arg-5453) (CoreC-45Name-u--prettyPrec_Pretty_Name arg-5452 arg-5453))))) e-141) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) (IdrisC-45Pretty-n--11888-1694-u--go (IdrisC-45Pretty-n--11888-1690-u--startPrec) e-142)))))))))))) -(define IdrisC-45Pretty-n--12168-2304-u--getPRefName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (vector 1 e-1)))(else (vector 0 )))))) -(define IdrisC-45Pretty-n--12168-2102-u--getLamNames (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (IdrisC-45Pretty-n--12168-2102-u--getLamNames arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (cons (cons e-1 (cons e-3 e-4)) arg-7) e-5))))))(else (cons (DataC-45List-reverse arg-7) arg-8)))))) -(define IdrisC-45Pretty-n--12168-2303-u--fullLet (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-parenthesise (PreludeC-45Show-u--C-62_Ord_Prec arg-7 (IdrisC-45Pretty-n--11888-1690-u--startPrec)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-group (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-align (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-let_) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-group (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-align (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-hang 2 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-prettyRig arg-6) (IdrisC-45Pretty-n--11888-1694-u--go (IdrisC-45Pretty-n--11888-1690-u--startPrec) arg-5)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-equals) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) (IdrisC-45Pretty-n--11888-1694-u--go (IdrisC-45Pretty-n--11888-1690-u--startPrec) arg-4)))))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) (IdrisC-45Pretty-in_)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-group (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-align (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-hang 2 (IdrisC-45Pretty-n--12168-2302-u--continuation arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7))))))))))) -(define IdrisC-45Pretty-n--12168-3153-u--dePure (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((7) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (let ((u--tm (vector 7 e-0 (vector 0 e-3 e-4) e-2))) (IdrisC-45Pretty-case--prettyTermC-44goC-44dePure-3169 arg-0 arg-1 arg-2 arg-3 e-0 e-3 e-4 e-2 u--tm (CoreC-45Name-u--C-61C-61_Eq_Name (CoreC-45Name-dropNS e-4) (vector 1 "pure")))))))(else arg-4)))))))(else arg-4))))) -(define IdrisC-45Pretty-n--12168-3154-u--deGuard (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((7) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((e-4 (vector-ref sc1 3))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (let ((u--tm (vector 0 e-0 (vector 7 e-2 (vector 0 e-5 e-6) e-4)))) (IdrisC-45Pretty-case--prettyTermC-44goC-44deGuard-3223 arg-0 arg-1 arg-2 arg-3 e-2 e-5 e-6 e-4 e-0 u--tm (CoreC-45Name-u--C-61C-61_Eq_Name (CoreC-45Name-dropNS e-6) (vector 1 "guard")))))))(else arg-4)))))))(else arg-4))))))(else arg-4))))) -(define IdrisC-45Pretty-n--12168-2302-u--continuation (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (IdrisC-45Pretty-n--11888-1694-u--go (IdrisC-45Pretty-n--11888-1690-u--startPrec) arg-3))) -(define IdrisC-45Pretty-n--11888-1691-u--appPrec (lambda () (vector 4 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))))))))))) +(define IdrisC-45Pretty-n--7866-1665-u--startPrec (lambda () (vector 4 0))) +(define IdrisC-45Pretty-n--7866-1668-u--prettyOp (lambda (arg-0) (let ((sc0 (ParserC-45LexerC-45Source-isOpName arg-0))) (cond ((equal? sc0 1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-annotate (vector 3 arg-0) (CoreC-45Name-u--pretty_Pretty_Name arg-0))) (else (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (vector 1 #\`) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-annotate (vector 3 arg-0) (CoreC-45Name-u--pretty_Pretty_Name arg-0))) (vector 1 #\`))))))) +(define IdrisC-45Pretty-n--8146-2086-u--prettyBindings (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (if (null? arg-7) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--neutral_Monoid_C-40DocC-32C-36annC-41) (let ((e-2 (car arg-7))) (let ((e-3 (cdr arg-7))) (let ((e-6 (car e-2))) (let ((e-7 (cdr e-2))) (let ((e-10 (car e-7))) (let ((e-11 (cdr e-7))) (case (vector-ref e-11 0) ((25) (if (null? e-3) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-prettyRig e-6) (IdrisC-45Pretty-n--7866-1669-u--go (IdrisC-45Pretty-n--7866-1665-u--startPrec) e-10)) (if (null? e-3) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-prettyRig e-6) (IdrisC-45Pretty-n--7866-1669-u--go (IdrisC-45Pretty-n--7866-1665-u--startPrec) e-10)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon) (IdrisC-45Pretty-n--7866-1669-u--go (IdrisC-45Pretty-n--7866-1665-u--startPrec) e-11))) (case (vector-ref e-11 0) ((25) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-prettyRig e-6) (IdrisC-45Pretty-n--7866-1669-u--go (IdrisC-45Pretty-n--7866-1665-u--startPrec) e-10)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-comma)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) (IdrisC-45Pretty-n--8146-2086-u--prettyBindings arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3)))(else (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-prettyRig e-6) (IdrisC-45Pretty-n--7866-1669-u--go (IdrisC-45Pretty-n--7866-1665-u--startPrec) e-10)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-n--7866-1669-u--go (IdrisC-45Pretty-n--7866-1665-u--startPrec) e-11) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-comma)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) (IdrisC-45Pretty-n--8146-2086-u--prettyBindings arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3)))))))))(else (if (null? e-3) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-prettyRig e-6) (IdrisC-45Pretty-n--7866-1669-u--go (IdrisC-45Pretty-n--7866-1665-u--startPrec) e-10)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon) (IdrisC-45Pretty-n--7866-1669-u--go (IdrisC-45Pretty-n--7866-1665-u--startPrec) e-11))) (case (vector-ref e-11 0) ((25) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-prettyRig e-6) (IdrisC-45Pretty-n--7866-1669-u--go (IdrisC-45Pretty-n--7866-1665-u--startPrec) e-10)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-comma)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) (IdrisC-45Pretty-n--8146-2086-u--prettyBindings arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3)))(else (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-prettyRig e-6) (IdrisC-45Pretty-n--7866-1669-u--go (IdrisC-45Pretty-n--7866-1665-u--startPrec) e-10)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-n--7866-1669-u--go (IdrisC-45Pretty-n--7866-1665-u--startPrec) e-11) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-comma)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) (IdrisC-45Pretty-n--8146-2086-u--prettyBindings arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3)))))))))))))))))) +(define IdrisC-45Pretty-n--7866-1667-u--leftAppPrec (lambda () (vector 4 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))))) +(define IdrisC-45Pretty-n--7866-1669-u--go (lambda (arg-0 arg-1) (case (vector-ref arg-1 0) ((0) (let ((e-1 (vector-ref arg-1 2))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-annotate (vector 3 e-1) (CoreC-45Name-u--pretty_Pretty_Name e-1)))) ((1) (let ((e-3 (vector-ref arg-1 2))) (let ((e-4 (vector-ref arg-1 3))) (let ((e-5 (vector-ref arg-1 4))) (let ((e-6 (vector-ref arg-1 5))) (let ((e-7 (vector-ref arg-1 6))) (case (vector-ref e-4 0) ((1) (if (null? e-5) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-parenthesise (PreludeC-45Show-u--C-62_Ord_Prec arg-0 (IdrisC-45Pretty-n--7866-1665-u--startPrec)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-group (AlgebraC-45Semiring-branchVal (cons (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-2) (lambda (arg-3) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-4 arg-5))))) (lambda () (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-n--7866-1669-u--go (IdrisC-45Pretty-n--7866-1665-u--startPrec) e-6) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "->") (IdrisC-45Pretty-n--7866-1669-u--go (IdrisC-45Pretty-n--7866-1665-u--startPrec) e-7)))) (lambda () (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-parens (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-prettyRig e-3) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "_")) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon) (IdrisC-45Pretty-n--7866-1669-u--go (IdrisC-45Pretty-n--7866-1665-u--startPrec) e-6)))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "->") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) (IdrisC-45Pretty-n--7866-1669-u--go (IdrisC-45Pretty-n--7866-1665-u--startPrec) e-7)))) e-3))) (let ((e-159 (unbox e-5))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-parenthesise (PreludeC-45Show-u--C-62_Ord_Prec arg-0 (IdrisC-45Pretty-n--7866-1665-u--startPrec)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-group (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-parens (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-prettyRig e-3) (CoreC-45Name-u--pretty_Pretty_Name e-159)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon) (IdrisC-45Pretty-n--7866-1669-u--go (IdrisC-45Pretty-n--7866-1665-u--startPrec) e-6)))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "->") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) (IdrisC-45Pretty-n--7866-1669-u--go (IdrisC-45Pretty-n--7866-1665-u--startPrec) e-7)))))))) ((0) (if (null? e-5) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-parenthesise (PreludeC-45Show-u--C-62_Ord_Prec arg-0 (IdrisC-45Pretty-n--7866-1665-u--startPrec)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-group (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-braces (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-prettyRig e-3) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Char #\_)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon) (IdrisC-45Pretty-n--7866-1669-u--go (IdrisC-45Pretty-n--7866-1665-u--startPrec) e-6)))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "->") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) (IdrisC-45Pretty-n--7866-1669-u--go (IdrisC-45Pretty-n--7866-1665-u--startPrec) e-7))))) (let ((e-162 (unbox e-5))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-parenthesise (PreludeC-45Show-u--C-62_Ord_Prec arg-0 (IdrisC-45Pretty-n--7866-1665-u--startPrec)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-group (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-braces (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-prettyRig e-3) (CoreC-45Name-u--pretty_Pretty_Name e-162)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon) (IdrisC-45Pretty-n--7866-1669-u--go (IdrisC-45Pretty-n--7866-1665-u--startPrec) e-6)))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "->") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) (IdrisC-45Pretty-n--7866-1669-u--go (IdrisC-45Pretty-n--7866-1665-u--startPrec) e-7)))))))) ((2) (if (null? e-5) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-parenthesise (PreludeC-45Show-u--C-62_Ord_Prec arg-0 (IdrisC-45Pretty-n--7866-1665-u--startPrec)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-group (AlgebraC-45Semiring-branchVal (cons (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-2) (lambda (arg-3) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-4 arg-5))))) (lambda () (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-n--7866-1669-u--go (IdrisC-45Pretty-n--7866-1665-u--startPrec) e-6) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "=>") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) (IdrisC-45Pretty-n--7866-1669-u--go (IdrisC-45Pretty-n--7866-1665-u--startPrec) e-7)))) (lambda () (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-braces (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-auto_) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-prettyRig e-3) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "_")) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon) (IdrisC-45Pretty-n--7866-1669-u--go (IdrisC-45Pretty-n--7866-1665-u--startPrec) e-6))))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "->") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) (IdrisC-45Pretty-n--7866-1669-u--go (IdrisC-45Pretty-n--7866-1665-u--startPrec) e-7)))) e-3))) (let ((e-165 (unbox e-5))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-parenthesise (PreludeC-45Show-u--C-62_Ord_Prec arg-0 (IdrisC-45Pretty-n--7866-1665-u--startPrec)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-group (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-braces (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-auto_) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-prettyRig e-3) (CoreC-45Name-u--pretty_Pretty_Name e-165)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon) (IdrisC-45Pretty-n--7866-1669-u--go (IdrisC-45Pretty-n--7866-1665-u--startPrec) e-6))))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "->") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) (IdrisC-45Pretty-n--7866-1669-u--go (IdrisC-45Pretty-n--7866-1665-u--startPrec) e-7)))))))) (else (let ((e-156 (vector-ref e-4 1))) (if (null? e-5) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-parenthesise (PreludeC-45Show-u--C-62_Ord_Prec arg-0 (IdrisC-45Pretty-n--7866-1665-u--startPrec)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-group (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-braces (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-default_) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-n--7866-1669-u--go (IdrisC-45Pretty-n--7866-1666-u--appPrec) e-156) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-prettyRig e-3) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "_")) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon) (IdrisC-45Pretty-n--7866-1669-u--go (IdrisC-45Pretty-n--7866-1665-u--startPrec) e-6)))))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "->") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) (IdrisC-45Pretty-n--7866-1669-u--go (IdrisC-45Pretty-n--7866-1665-u--startPrec) e-7))))) (let ((e-168 (unbox e-5))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-parenthesise (PreludeC-45Show-u--C-62_Ord_Prec arg-0 (IdrisC-45Pretty-n--7866-1665-u--startPrec)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-group (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-braces (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-default_) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-n--7866-1669-u--go (IdrisC-45Pretty-n--7866-1666-u--appPrec) e-156) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-prettyRig e-3) (CoreC-45Name-u--pretty_Pretty_Name e-168)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon) (IdrisC-45Pretty-n--7866-1669-u--go (IdrisC-45Pretty-n--7866-1665-u--startPrec) e-6)))))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "->") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) (IdrisC-45Pretty-n--7866-1669-u--go (IdrisC-45Pretty-n--7866-1665-u--startPrec) e-7)))))))))))))))) ((2) (let ((e-8 (vector-ref arg-1 1))) (let ((e-9 (vector-ref arg-1 2))) (let ((e-10 (vector-ref arg-1 3))) (let ((e-11 (vector-ref arg-1 4))) (let ((e-12 (vector-ref arg-1 5))) (let ((e-13 (vector-ref arg-1 6))) (let ((sc1 (IdrisC-45Pretty-n--8146-2085-u--getLamNames e-8 e-10 e-13 e-12 e-11 e-9 arg-0 (cons (cons e-9 (cons e-11 e-12)) '()) e-13))) (let ((e-2 (car sc1))) (let ((e-3 (cdr sc1))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-parenthesise (PreludeC-45Show-u--C-62_Ord_Prec arg-0 (IdrisC-45Pretty-n--7866-1665-u--startPrec)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-group (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-align (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-hang 2 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-backslash) (IdrisC-45Pretty-n--8146-2086-u--prettyBindings e-8 e-10 e-13 e-12 e-11 e-9 arg-0 e-2)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "=>") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) (IdrisC-45Pretty-n--7866-1669-u--go (IdrisC-45Pretty-n--7866-1665-u--startPrec) e-3))))))))))))))))) ((3) (let ((e-14 (vector-ref arg-1 1))) (let ((e-15 (vector-ref arg-1 2))) (let ((e-16 (vector-ref arg-1 3))) (let ((e-17 (vector-ref arg-1 4))) (let ((e-18 (vector-ref arg-1 5))) (let ((e-19 (vector-ref arg-1 6))) (let ((e-20 (vector-ref arg-1 7))) (case (vector-ref e-17 0) ((25) (let ((e-169 (vector-ref e-17 1))) (DataC-45Maybe-fromMaybe (lambda () (IdrisC-45Pretty-n--8146-2293-u--fullLet e-14 e-169 e-20 e-19 e-18 e-16 e-15 arg-0)) (PreludeC-45Types-u--C-60C-124C-62_Alternative_Maybe (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (IdrisC-45Pretty-n--8146-2294-u--getPRefName e-14 e-169 e-20 e-19 e-18 e-16 e-15 arg-0 e-16) (lambda (u--nName) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (IdrisC-45Pretty-n--8146-2294-u--getPRefName e-14 e-169 e-20 e-19 e-18 e-16 e-15 arg-0 e-18) (lambda (u--valName) (PreludeC-45Interfaces-C-62C-62 (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (PreludeC-45Types-u--map_Functor_Maybe u--func arg-133))))) (lambda (u--a) (lambda (arg-527) (PreludeC-45Types-u--pure_Applicative_Maybe arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (PreludeC-45Types-u--C-60C-42C-62_Applicative_Maybe arg-528 arg-530)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe arg-811 arg-812))))) (lambda (u--a) (lambda (arg-814) (PreludeC-45Types-u--join_Monad_Maybe arg-814)))) (PreludeC-45Interfaces-guard (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (PreludeC-45Types-u--map_Functor_Maybe u--func arg-133))))) (lambda (u--a) (lambda (arg-527) (PreludeC-45Types-u--pure_Applicative_Maybe arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (PreludeC-45Types-u--C-60C-42C-62_Applicative_Maybe arg-528 arg-530)))))) (lambda (u--a) (PreludeC-45Types-u--empty_Alternative_Maybe)) (lambda (u--a) (lambda (arg-763) (lambda (arg-764) (PreludeC-45Types-u--C-60C-124C-62_Alternative_Maybe arg-763 arg-764))))) (PreludeC-45EqOrd-u--C-61C-61_Eq_String (CoreC-45Name-u--show_Show_Name u--nName) (CoreC-45Name-u--show_Show_Name u--valName))) (lambda () (PreludeC-45Types-u--pure_Applicative_Maybe (IdrisC-45Pretty-n--8146-2292-u--continuation e-14 e-169 e-20 e-19 e-18 e-16 e-15 arg-0)))))))) (lambda () (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (IdrisC-45Pretty-n--8146-2294-u--getPRefName e-14 e-169 e-20 e-19 e-18 e-16 e-15 arg-0 e-16) (lambda (u--nName) (PreludeC-45Interfaces-C-62C-62 (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (PreludeC-45Types-u--map_Functor_Maybe u--func arg-133))))) (lambda (u--a) (lambda (arg-527) (PreludeC-45Types-u--pure_Applicative_Maybe arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (PreludeC-45Types-u--C-60C-42C-62_Applicative_Maybe arg-528 arg-530)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe arg-811 arg-812))))) (lambda (u--a) (lambda (arg-814) (PreludeC-45Types-u--join_Monad_Maybe arg-814)))) (PreludeC-45Interfaces-guard (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (PreludeC-45Types-u--map_Functor_Maybe u--func arg-133))))) (lambda (u--a) (lambda (arg-527) (PreludeC-45Types-u--pure_Applicative_Maybe arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (PreludeC-45Types-u--C-60C-42C-62_Applicative_Maybe arg-528 arg-530)))))) (lambda (u--a) (PreludeC-45Types-u--empty_Alternative_Maybe)) (lambda (u--a) (lambda (arg-763) (lambda (arg-764) (PreludeC-45Types-u--C-60C-124C-62_Alternative_Maybe arg-763 arg-764))))) (CoreC-45Name-isUnderscoreName u--nName)) (lambda () (PreludeC-45Types-u--pure_Applicative_Maybe (IdrisC-45Pretty-n--8146-2292-u--continuation e-14 e-169 e-20 e-19 e-18 e-16 e-15 arg-0)))))))))))(else (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-parenthesise (PreludeC-45Show-u--C-62_Ord_Prec arg-0 (IdrisC-45Pretty-n--7866-1665-u--startPrec)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-group (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-align (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-let_) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-group (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-align (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-hang 2 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-prettyRig e-15) (IdrisC-45Pretty-n--7866-1669-u--go (IdrisC-45Pretty-n--7866-1665-u--startPrec) e-16)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-n--7866-1669-u--go (IdrisC-45Pretty-n--7866-1665-u--startPrec) e-17) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-equals) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) (IdrisC-45Pretty-n--7866-1669-u--go (IdrisC-45Pretty-n--7866-1665-u--startPrec) e-18)))))))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-hardline)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-hang 4 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-fillSep (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (PreludeC-45Types-u--map_Functor_List eta-2 eta-3))))) (lambda (eta-0) (IdrisC-45Pretty-prettyAlt eta-0)) e-20)))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) (IdrisC-45Pretty-in_)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-group (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-align (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-hang 2 (IdrisC-45Pretty-n--7866-1669-u--go (IdrisC-45Pretty-n--7866-1665-u--startPrec) e-19))))))))))))))))))) ((4) (let ((e-22 (vector-ref arg-1 2))) (let ((e-23 (vector-ref arg-1 3))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-parenthesise (PreludeC-45Show-u--C-62_Ord_Prec arg-0 (IdrisC-45Pretty-n--7866-1666-u--appPrec)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-align (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-case_) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-n--7866-1669-u--go (IdrisC-45Pretty-n--7866-1665-u--startPrec) e-22) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-of_) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-braces (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-punctuate (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-semi) (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (PreludeC-45Types-u--map_Functor_List eta-2 eta-3))))) (lambda (eta-0) (IdrisC-45Pretty-prettyCase eta-0)) e-23)))))))))))) ((5) (let ((e-26 (vector-ref arg-1 3))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-parenthesise (PreludeC-45Show-u--C-62_Ord_Prec arg-0 (IdrisC-45Pretty-n--7866-1665-u--startPrec)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-group (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-align (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-let_) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-braces (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-angles (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-angles (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "definitions")))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) (IdrisC-45Pretty-in_)) (IdrisC-45Pretty-n--7866-1669-u--go (IdrisC-45Pretty-n--7866-1665-u--startPrec) e-26)))))))) ((6) (let ((e-28 (vector-ref arg-1 2))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-parenthesise (PreludeC-45Show-u--C-62_Ord_Prec arg-0 (IdrisC-45Pretty-n--7866-1666-u--appPrec)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-group (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-record_) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-braces (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-punctuate (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-comma) (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (PreludeC-45Types-u--map_Functor_List eta-2 eta-3))))) (lambda (eta-0) (IdrisC-45Pretty-prettyUpdate eta-0)) e-28))))))))) ((7) (let ((e-30 (vector-ref arg-1 2))) (let ((e-31 (vector-ref arg-1 3))) (let ((u--catchall (lambda () (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-n--7866-1669-u--go (IdrisC-45Pretty-n--7866-1667-u--leftAppPrec) e-30) (IdrisC-45Pretty-n--7866-1669-u--go (IdrisC-45Pretty-n--7866-1666-u--appPrec) e-31))))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-parenthesise (PreludeC-45Show-u--C-62_Ord_Prec arg-0 (IdrisC-45Pretty-n--7866-1666-u--appPrec)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-group (case (vector-ref e-30 0) ((0) (let ((e-0 (vector-ref e-30 1))) (let ((e-1 (vector-ref e-30 2))) (let ((u--f (vector 0 e-0 e-1))) (let ((sc2 (DataC-45Maybe-isJust (CoreC-45Name-isRF e-1)))) (cond ((equal? sc2 1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-n--7866-1669-u--go (IdrisC-45Pretty-n--7866-1667-u--leftAppPrec) e-31) (IdrisC-45Pretty-n--7866-1669-u--go (IdrisC-45Pretty-n--7866-1666-u--appPrec) u--f))) (else (u--catchall))))))))(else (u--catchall))))))))) ((8) (let ((e-33 (vector-ref arg-1 2))) (let ((e-34 (vector-ref arg-1 3))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-n--7866-1669-u--go arg-0 e-33) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-pipe) (IdrisC-45Pretty-n--7866-1669-u--go arg-0 e-34)))))) ((11) (let ((e-36 (vector-ref arg-1 2))) (let ((e-37 (vector-ref arg-1 3))) (cond ((equal? e-36 0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-parenthesise (PreludeC-45Show-u--C-62_Ord_Prec arg-0 (IdrisC-45Pretty-n--7866-1666-u--appPrec)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "Inf") (IdrisC-45Pretty-n--7866-1669-u--go (IdrisC-45Pretty-n--7866-1666-u--appPrec) e-37))))(else (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-parenthesise (PreludeC-45Show-u--C-62_Ord_Prec arg-0 (IdrisC-45Pretty-n--7866-1666-u--appPrec)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "Lazy") (IdrisC-45Pretty-n--7866-1669-u--go (IdrisC-45Pretty-n--7866-1666-u--appPrec) e-37)))))))) ((12) (let ((e-39 (vector-ref arg-1 2))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-parenthesise (PreludeC-45Show-u--C-62_Ord_Prec arg-0 (IdrisC-45Pretty-n--7866-1666-u--appPrec)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "Delay") (IdrisC-45Pretty-n--7866-1669-u--go (IdrisC-45Pretty-n--7866-1666-u--appPrec) e-39))))) ((13) (let ((e-41 (vector-ref arg-1 2))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-parenthesise (PreludeC-45Show-u--C-62_Ord_Prec arg-0 (IdrisC-45Pretty-n--7866-1666-u--appPrec)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "Force") (IdrisC-45Pretty-n--7866-1669-u--go (IdrisC-45Pretty-n--7866-1666-u--appPrec) e-41))))) ((10) (let ((e-43 (vector-ref arg-1 2))) (let ((e-44 (vector-ref arg-1 3))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-parenthesise (PreludeC-45Show-u--C-62_Ord_Prec arg-0 (IdrisC-45Pretty-n--7866-1666-u--appPrec)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-group (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-n--7866-1669-u--go (IdrisC-45Pretty-n--7866-1667-u--leftAppPrec) e-43) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "@") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-braces (IdrisC-45Pretty-n--7866-1669-u--go (IdrisC-45Pretty-n--7866-1665-u--startPrec) e-44))))))))) ((9) (let ((e-46 (vector-ref arg-1 2))) (let ((e-47 (vector-ref arg-1 3))) (let ((e-48 (vector-ref arg-1 4))) (case (vector-ref e-48 0) ((0) (let ((e-171 (vector-ref e-48 2))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-parenthesise (PreludeC-45Show-u--C-62_Ord_Prec arg-0 (IdrisC-45Pretty-n--7866-1666-u--appPrec)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-group (let ((sc2 (CoreC-45Name-u--C-61C-61_Eq_Name e-47 e-171))) (cond ((equal? sc2 1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-n--7866-1669-u--go (IdrisC-45Pretty-n--7866-1667-u--leftAppPrec) e-46) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-braces (CoreC-45Name-u--pretty_Pretty_Name e-47)))) (else (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-n--7866-1669-u--go (IdrisC-45Pretty-n--7866-1667-u--leftAppPrec) e-46) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-braces (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (CoreC-45Name-u--pretty_Pretty_Name e-47) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-equals) (CoreC-45Name-u--pretty_Pretty_Name e-171))))))))))))(else (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-parenthesise (PreludeC-45Show-u--C-62_Ord_Prec arg-0 (IdrisC-45Pretty-n--7866-1666-u--appPrec)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-group (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-n--7866-1669-u--go (IdrisC-45Pretty-n--7866-1667-u--leftAppPrec) e-46) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-braces (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (CoreC-45Name-u--pretty_Pretty_Name e-47) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-equals) (IdrisC-45Pretty-n--7866-1669-u--go arg-0 e-48))))))))))))) ((14) (IdrisC-45Pretty-pragma (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unsafeTextWithoutNewLines eta-0)) (DataC-45List1-forget (LibrariesC-45DataC-45StringC-45Extra-lines (let ((sc1 (DataC-45String-isSuffixOf "\u000a" "%search"))) (cond ((equal? sc1 1) (LibrariesC-45DataC-45StringC-45Extra-dropLast (+ 1 0) "%search")) (else "%search"))))))))) ((16) (let ((e-52 (vector-ref arg-1 2))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-parenthesise (PreludeC-45Show-u--C-62_Ord_Prec arg-0 (IdrisC-45Pretty-n--7866-1666-u--appPrec)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "`") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-parens (IdrisC-45Pretty-n--7866-1669-u--go (IdrisC-45Pretty-n--7866-1665-u--startPrec) e-52)))))) ((17) (let ((e-54 (vector-ref arg-1 2))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-parenthesise (PreludeC-45Show-u--C-62_Ord_Prec arg-0 (IdrisC-45Pretty-n--7866-1666-u--appPrec)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "`") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-braces (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-braces (CoreC-45Name-u--pretty_Pretty_Name e-54))))))) ((18) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-parenthesise (PreludeC-45Show-u--C-62_Ord_Prec arg-0 (IdrisC-45Pretty-n--7866-1666-u--appPrec)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "`") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-brackets (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-lbracket) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-rbracket) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-angles (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-angles (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "declaration"))))))) ((19) (let ((e-58 (vector-ref arg-1 2))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-parenthesise (PreludeC-45Show-u--C-62_Ord_Prec arg-0 (IdrisC-45Pretty-n--7866-1666-u--appPrec)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "~") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-parens (IdrisC-45Pretty-n--7866-1669-u--go (IdrisC-45Pretty-n--7866-1665-u--startPrec) e-58)))))) ((20) (let ((e-60 (vector-ref arg-1 2))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-parenthesise (PreludeC-45Show-u--C-62_Ord_Prec arg-0 (IdrisC-45Pretty-n--7866-1666-u--appPrec)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-pragma (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unsafeTextWithoutNewLines eta-0)) (DataC-45List1-forget (LibrariesC-45DataC-45StringC-45Extra-lines (let ((sc1 (DataC-45String-isSuffixOf "\u000a" "%runElab"))) (cond ((equal? sc1 1) (LibrariesC-45DataC-45StringC-45Extra-dropLast (+ 1 0) "%runElab")) (else "%runElab")))))))) (IdrisC-45Pretty-n--7866-1669-u--go (IdrisC-45Pretty-n--7866-1665-u--startPrec) e-60))))) ((15) (let ((e-62 (vector-ref arg-1 2))) (CoreC-45TT-u--pretty_Pretty_Constant e-62))) ((21) (let ((e-65 (vector-ref arg-1 3))) (IdrisC-45Pretty-hole (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String (PreludeC-45Types-strCons #\? e-65))))) ((22) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "Type")) ((23) (let ((e-69 (vector-ref arg-1 3))) (let ((e-70 (vector-ref arg-1 4))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (CoreC-45Name-u--pretty_Pretty_Name e-69) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "@")) (IdrisC-45Pretty-n--7866-1669-u--go arg-0 e-70))))) ((24) (let ((e-72 (vector-ref arg-1 2))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-dot) (IdrisC-45Pretty-n--7866-1669-u--go arg-0 e-72)))) ((25) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unsafeTextWithoutNewLines eta-0)) (DataC-45List1-forget (LibrariesC-45DataC-45StringC-45Extra-lines (let ((sc1 (DataC-45String-isSuffixOf "\u000a" "_"))) (cond ((equal? sc1 1) (LibrariesC-45DataC-45StringC-45Extra-dropLast (+ 1 0) "_")) (else "_")))))))) ((26) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unsafeTextWithoutNewLines eta-0)) (DataC-45List1-forget (LibrariesC-45DataC-45StringC-45Extra-lines (let ((sc1 (DataC-45String-isSuffixOf "\u000a" "?"))) (cond ((equal? sc1 1) (LibrariesC-45DataC-45StringC-45Extra-dropLast (+ 1 0) "?")) (else "?")))))))) ((27) (let ((e-77 (vector-ref arg-1 3))) (let ((e-78 (vector-ref arg-1 4))) (let ((e-79 (vector-ref arg-1 5))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-parenthesise (PreludeC-45Show-u--C-62_Ord_Prec arg-0 (IdrisC-45Pretty-n--7866-1666-u--appPrec)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-group (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-n--7866-1669-u--go (IdrisC-45Pretty-n--7866-1665-u--startPrec) e-78) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-n--7866-1668-u--prettyOp e-77) (IdrisC-45Pretty-n--7866-1669-u--go (IdrisC-45Pretty-n--7866-1665-u--startPrec) e-79))))))))) ((28) (let ((e-82 (vector-ref arg-1 3))) (let ((e-83 (vector-ref arg-1 4))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-parenthesise (PreludeC-45Show-u--C-62_Ord_Prec arg-0 (IdrisC-45Pretty-n--7866-1666-u--appPrec)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (CoreC-45Name-u--pretty_Pretty_Name e-82) (IdrisC-45Pretty-n--7866-1669-u--go (IdrisC-45Pretty-n--7866-1665-u--startPrec) e-83)))))) ((29) (let ((e-86 (vector-ref arg-1 3))) (let ((e-87 (vector-ref arg-1 4))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-parens (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-n--7866-1668-u--prettyOp e-86) (IdrisC-45Pretty-n--7866-1669-u--go (IdrisC-45Pretty-n--7866-1665-u--startPrec) e-87)))))) ((30) (let ((e-90 (vector-ref arg-1 3))) (let ((e-91 (vector-ref arg-1 4))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-parens (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-n--7866-1669-u--go (IdrisC-45Pretty-n--7866-1665-u--startPrec) e-90) (IdrisC-45Pretty-n--7866-1668-u--prettyOp e-91)))))) ((31) (let ((e-93 (vector-ref arg-1 2))) (let ((e-94 (vector-ref arg-1 3))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-parenthesise (PreludeC-45Show-u--C-62_Ord_Prec arg-0 (IdrisC-45Pretty-n--7866-1666-u--appPrec)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-n--7866-1669-u--go (IdrisC-45Pretty-n--7866-1665-u--startPrec) e-93) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-equals) (IdrisC-45Pretty-n--7866-1669-u--go (IdrisC-45Pretty-n--7866-1665-u--startPrec) e-94))))))) ((32) (let ((e-96 (vector-ref arg-1 2))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-parens (IdrisC-45Pretty-n--7866-1669-u--go (IdrisC-45Pretty-n--7866-1665-u--startPrec) e-96)))) ((33) (let ((e-98 (vector-ref arg-1 2))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-parenthesise (PreludeC-45Show-u--C-62_Ord_Prec arg-0 (IdrisC-45Pretty-n--7866-1666-u--appPrec)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-hsep (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-punctuate (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "++") (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (PreludeC-45Types-u--map_Functor_List eta-2 eta-3))))) (lambda (eta-0) (IdrisC-45Pretty-prettyString eta-0)) e-98)))))) ((34) (let ((e-101 (vector-ref arg-1 3))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "multiline") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-parenthesise (PreludeC-45Show-u--C-62_Ord_Prec arg-0 (IdrisC-45Pretty-n--7866-1666-u--appPrec)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-hsep (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-punctuate (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "++") (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (PreludeC-45Types-u--map_Functor_List eta-2 eta-3))))) (lambda (eta-0) (IdrisC-45Pretty-prettyString eta-0)) (PreludeC-45Interfaces-concat (cons (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-2 arg-3))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) e-101)))))))) ((35) (let ((e-104 (vector-ref arg-1 3))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-parenthesise (PreludeC-45Show-u--C-62_Ord_Prec arg-0 (IdrisC-45Pretty-n--7866-1666-u--appPrec)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-group (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-align (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-hang 2 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-do_) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-punctuate (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-semi) (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (PreludeC-45Types-u--map_Functor_List eta-2 eta-3))))) (lambda (eta-0) (IdrisC-45Pretty-prettyDo eta-0)) e-104)))))))))) ((36) (let ((e-106 (vector-ref arg-1 2))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "!") (IdrisC-45Pretty-n--7866-1669-u--go arg-0 e-106)))) ((37) (let ((e-108 (vector-ref arg-1 2))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-enclose (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "[|") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "|]") (IdrisC-45Pretty-n--7866-1669-u--go (IdrisC-45Pretty-n--7866-1665-u--startPrec) e-108)))) ((38) (let ((e-111 (vector-ref arg-1 3))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-brackets (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-lbracket) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-rbracket) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-group (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-align (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-punctuate (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-comma) (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (PreludeC-45Types-u--map_Functor_List eta-2 eta-3))))) (lambda (eta-0) (IdrisC-45Pretty-n--7866-1669-u--go (IdrisC-45Pretty-n--7866-1665-u--startPrec) (Builtin-snd eta-0))) e-111)))))))) ((39) (let ((e-114 (vector-ref arg-1 3))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-brackets (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "[<") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-rbracket) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-group (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-align (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-punctuate (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-comma) (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (PreludeC-45Types-u--map_Functor_List eta-2 eta-3))))) (lambda (eta-0) (IdrisC-45Pretty-n--7866-1669-u--go (IdrisC-45Pretty-n--7866-1665-u--startPrec) (Builtin-snd eta-0))) e-114)))))))) ((40) (let ((e-116 (vector-ref arg-1 2))) (let ((e-117 (vector-ref arg-1 3))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-group (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-parens (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-n--7866-1669-u--go (IdrisC-45Pretty-n--7866-1665-u--startPrec) e-116) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-comma)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) (IdrisC-45Pretty-n--7866-1669-u--go (IdrisC-45Pretty-n--7866-1665-u--startPrec) e-117))))))) ((41) (let ((e-120 (vector-ref arg-1 3))) (let ((e-121 (vector-ref arg-1 4))) (let ((e-122 (vector-ref arg-1 5))) (case (vector-ref e-121 0) ((25) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-group (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-parens (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-n--7866-1669-u--go (IdrisC-45Pretty-n--7866-1665-u--startPrec) e-120) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "**") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) (IdrisC-45Pretty-n--7866-1669-u--go (IdrisC-45Pretty-n--7866-1665-u--startPrec) e-122))))))(else (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-group (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-parens (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-n--7866-1669-u--go (IdrisC-45Pretty-n--7866-1665-u--startPrec) e-120) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-n--7866-1669-u--go (IdrisC-45Pretty-n--7866-1665-u--startPrec) e-121) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "**") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) (IdrisC-45Pretty-n--7866-1669-u--go (IdrisC-45Pretty-n--7866-1665-u--startPrec) e-122))))))))))))) ((42) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unsafeTextWithoutNewLines eta-0)) (DataC-45List1-forget (LibrariesC-45DataC-45StringC-45Extra-lines (let ((sc1 (DataC-45String-isSuffixOf "\u000a" "()"))) (cond ((equal? sc1 1) (LibrariesC-45DataC-45StringC-45Extra-dropLast (+ 1 0) "()")) (else "()")))))))) ((43) (let ((e-125 (vector-ref arg-1 2))) (let ((e-126 (vector-ref arg-1 3))) (let ((e-127 (vector-ref arg-1 4))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-parenthesise (PreludeC-45Show-u--C-62_Ord_Prec arg-0 (IdrisC-45Pretty-n--7866-1666-u--appPrec)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-group (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-align (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-hang 2 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-keyword (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unsafeTextWithoutNewLines eta-0)) (DataC-45List1-forget (LibrariesC-45DataC-45StringC-45Extra-lines (let ((sc1 (DataC-45String-isSuffixOf "\u000a" "if"))) (cond ((equal? sc1 1) (LibrariesC-45DataC-45StringC-45Extra-dropLast (+ 1 0) "if")) (else "if")))))))) (IdrisC-45Pretty-n--7866-1669-u--go (IdrisC-45Pretty-n--7866-1665-u--startPrec) e-125)) (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-keyword (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unsafeTextWithoutNewLines eta-0)) (DataC-45List1-forget (LibrariesC-45DataC-45StringC-45Extra-lines (let ((sc1 (DataC-45String-isSuffixOf "\u000a" "then"))) (cond ((equal? sc1 1) (LibrariesC-45DataC-45StringC-45Extra-dropLast (+ 1 0) "then")) (else "then")))))))) (IdrisC-45Pretty-n--7866-1669-u--go (IdrisC-45Pretty-n--7866-1665-u--startPrec) e-126)) (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-keyword (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unsafeTextWithoutNewLines eta-0)) (DataC-45List1-forget (LibrariesC-45DataC-45StringC-45Extra-lines (let ((sc1 (DataC-45String-isSuffixOf "\u000a" "else"))) (cond ((equal? sc1 1) (LibrariesC-45DataC-45StringC-45Extra-dropLast (+ 1 0) "else")) (else "else")))))))) (IdrisC-45Pretty-n--7866-1669-u--go (IdrisC-45Pretty-n--7866-1665-u--startPrec) e-127)) '())))))))))))) ((44) (let ((e-128 (vector-ref arg-1 1))) (let ((e-129 (vector-ref arg-1 2))) (let ((e-130 (vector-ref arg-1 3))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-group (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-brackets (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-lbracket) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-rbracket) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-n--7866-1669-u--go (IdrisC-45Pretty-n--7866-1665-u--startPrec) (IdrisC-45Pretty-n--8146-3269-u--dePure e-128 e-130 e-129 arg-0 e-129)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-pipe) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-punctuate (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-comma) (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (PreludeC-45Types-u--map_Functor_List eta-2 eta-3))))) (lambda (eta-0) (IdrisC-45Pretty-prettyDo (IdrisC-45Pretty-n--8146-3270-u--deGuard e-128 e-130 e-129 arg-0 eta-0))) e-130))))))))))) ((45) (let ((e-132 (vector-ref arg-1 2))) (let ((e-133 (vector-ref arg-1 3))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-parenthesise (PreludeC-45Show-u--C-62_Ord_Prec arg-0 (IdrisC-45Pretty-n--7866-1666-u--appPrec)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-group (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-rewrite_) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-n--7866-1669-u--go (IdrisC-45Pretty-n--7866-1665-u--startPrec) e-132) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) (IdrisC-45Pretty-in_)) (IdrisC-45Pretty-n--7866-1669-u--go (IdrisC-45Pretty-n--7866-1665-u--startPrec) e-133)))))))) ((46) (let ((e-135 (vector-ref arg-1 2))) (let ((e-136 (vector-ref arg-1 3))) (let ((e-137 (vector-ref arg-1 4))) (if (null? e-136) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-brackets (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-lbracket) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-rbracket) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-n--7866-1669-u--go (IdrisC-45Pretty-n--7866-1665-u--startPrec) e-135) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "..") (IdrisC-45Pretty-n--7866-1669-u--go (IdrisC-45Pretty-n--7866-1665-u--startPrec) e-137)))) (let ((e-175 (unbox e-136))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-brackets (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-lbracket) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-rbracket) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-n--7866-1669-u--go (IdrisC-45Pretty-n--7866-1665-u--startPrec) e-135) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-comma)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-n--7866-1669-u--go (IdrisC-45Pretty-n--7866-1665-u--startPrec) e-175) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "..") (IdrisC-45Pretty-n--7866-1669-u--go (IdrisC-45Pretty-n--7866-1665-u--startPrec) e-137))))))))))) ((47) (let ((e-139 (vector-ref arg-1 2))) (let ((e-140 (vector-ref arg-1 3))) (if (null? e-140) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-brackets (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-lbracket) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-rbracket) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-n--7866-1669-u--go (IdrisC-45Pretty-n--7866-1665-u--startPrec) e-139) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String ".."))) (let ((e-178 (unbox e-140))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-brackets (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-lbracket) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-rbracket) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-n--7866-1669-u--go (IdrisC-45Pretty-n--7866-1665-u--startPrec) e-139) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-comma)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-n--7866-1669-u--go (IdrisC-45Pretty-n--7866-1665-u--startPrec) e-178) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String ".."))))))))) ((50) (let ((e-143 (vector-ref arg-1 3))) (IdrisC-45Pretty-n--7866-1669-u--go arg-0 e-143))) ((48) (let ((e-145 (vector-ref arg-1 2))) (let ((e-146 (vector-ref arg-1 3))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-parenthesise (PreludeC-45Show-u--C-62_Ord_Prec arg-0 (IdrisC-45Pretty-n--7866-1666-u--appPrec)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-n--7866-1669-u--go (IdrisC-45Pretty-n--7866-1665-u--startPrec) e-145) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-dot) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-concatWith (lambda (eta-0) (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-surround (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-dot) eta-0 eta-1))) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (u--ann) (lambda (arg-5072) (CoreC-45FC-u--pretty_Pretty_FC arg-5072))) (lambda (u--ann) (lambda (arg-5073) (lambda (arg-5074) (CoreC-45FC-u--prettyPrec_Pretty_FC arg-5073 arg-5074))))) (cons (lambda (u--ann) (lambda (arg-5072) (CoreC-45Name-u--pretty_Pretty_Name arg-5072))) (lambda (u--ann) (lambda (arg-5073) (lambda (arg-5074) (CoreC-45Name-u--prettyPrec_Pretty_Name arg-5073 arg-5074)))))) eta-0)) e-146)))))))) ((49) (let ((e-148 (vector-ref arg-1 2))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-parens (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-dot) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-concatWith (lambda (eta-0) (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-surround (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-dot) eta-0 eta-1))) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (u--ann) (lambda (arg-5072) (CoreC-45FC-u--pretty_Pretty_FC arg-5072))) (lambda (u--ann) (lambda (arg-5073) (lambda (arg-5074) (CoreC-45FC-u--prettyPrec_Pretty_FC arg-5073 arg-5074))))) (cons (lambda (u--ann) (lambda (arg-5072) (CoreC-45Name-u--pretty_Pretty_Name arg-5072))) (lambda (u--ann) (lambda (arg-5073) (lambda (arg-5074) (CoreC-45Name-u--prettyPrec_Pretty_Name arg-5073 arg-5074)))))) eta-0)) e-148)))))) (else (let ((e-150 (vector-ref arg-1 2))) (let ((e-151 (vector-ref arg-1 3))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-parenthesise (PreludeC-45Show-u--C-62_Ord_Prec arg-0 (IdrisC-45Pretty-n--7866-1666-u--appPrec)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-group (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-with_) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_C-40ListC-32C-36aC-41 (cons (lambda (u--ann) (lambda (arg-5072) (CoreC-45Name-u--pretty_Pretty_Name arg-5072))) (lambda (u--ann) (lambda (arg-5073) (lambda (arg-5074) (CoreC-45Name-u--prettyPrec_Pretty_Name arg-5073 arg-5074))))) e-150) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) (IdrisC-45Pretty-n--7866-1669-u--go (IdrisC-45Pretty-n--7866-1665-u--startPrec) e-151))))))))))) +(define IdrisC-45Pretty-n--8146-2294-u--getPRefName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (case (vector-ref arg-8 0) ((0) (let ((e-1 (vector-ref arg-8 2))) (box e-1)))(else '())))) +(define IdrisC-45Pretty-n--8146-2085-u--getLamNames (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (case (vector-ref arg-8 0) ((2) (let ((e-1 (vector-ref arg-8 2))) (let ((e-3 (vector-ref arg-8 4))) (let ((e-4 (vector-ref arg-8 5))) (let ((e-5 (vector-ref arg-8 6))) (IdrisC-45Pretty-n--8146-2085-u--getLamNames arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (cons (cons e-1 (cons e-3 e-4)) arg-7) e-5))))))(else (cons (DataC-45List-reverse arg-7) arg-8))))) +(define IdrisC-45Pretty-n--8146-2293-u--fullLet (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-parenthesise (PreludeC-45Show-u--C-62_Ord_Prec arg-7 (IdrisC-45Pretty-n--7866-1665-u--startPrec)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-group (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-align (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-let_) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-group (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-align (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-hang 2 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-prettyRig arg-6) (IdrisC-45Pretty-n--7866-1669-u--go (IdrisC-45Pretty-n--7866-1665-u--startPrec) arg-5)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-equals) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) (IdrisC-45Pretty-n--7866-1669-u--go (IdrisC-45Pretty-n--7866-1665-u--startPrec) arg-4)))))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-line)) (IdrisC-45Pretty-in_)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-group (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-align (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-hang 2 (IdrisC-45Pretty-n--8146-2292-u--continuation arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7))))))))))) +(define IdrisC-45Pretty-n--8146-3269-u--dePure (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (case (vector-ref arg-4 0) ((7) (let ((e-0 (vector-ref arg-4 1))) (let ((e-1 (vector-ref arg-4 2))) (let ((e-2 (vector-ref arg-4 3))) (case (vector-ref e-1 0) ((0) (let ((e-3 (vector-ref e-1 1))) (let ((e-4 (vector-ref e-1 2))) (let ((u--tm (vector 7 e-0 (vector 0 e-3 e-4) e-2))) (let ((sc2 (CoreC-45Name-u--C-61C-61_Eq_Name (CoreC-45Name-dropNS e-4) (vector 1 "pure")))) (cond ((equal? sc2 1) e-2) (else u--tm)))))))(else arg-4))))))(else arg-4)))) +(define IdrisC-45Pretty-n--8146-3270-u--deGuard (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (case (vector-ref arg-4 0) ((0) (let ((e-0 (vector-ref arg-4 1))) (let ((e-1 (vector-ref arg-4 2))) (case (vector-ref e-1 0) ((7) (let ((e-2 (vector-ref e-1 1))) (let ((e-3 (vector-ref e-1 2))) (let ((e-4 (vector-ref e-1 3))) (case (vector-ref e-3 0) ((0) (let ((e-5 (vector-ref e-3 1))) (let ((e-6 (vector-ref e-3 2))) (let ((u--tm (vector 0 e-0 (vector 7 e-2 (vector 0 e-5 e-6) e-4)))) (let ((sc3 (CoreC-45Name-u--C-61C-61_Eq_Name (CoreC-45Name-dropNS e-6) (vector 1 "guard")))) (cond ((equal? sc3 1) (vector 0 e-0 e-4)) (else u--tm)))))))(else arg-4))))))(else arg-4)))))(else arg-4)))) +(define IdrisC-45Pretty-n--8146-2292-u--continuation (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (IdrisC-45Pretty-n--7866-1669-u--go (IdrisC-45Pretty-n--7866-1665-u--startPrec) arg-3))) +(define IdrisC-45Pretty-n--7866-1666-u--appPrec (lambda () (vector 4 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))))))))))) (define IdrisC-45Pretty-with_ (lambda () (IdrisC-45Pretty-keyword (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "with")))) (define IdrisC-45Pretty-rewrite_ (lambda () (IdrisC-45Pretty-keyword (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "rewrite")))) (define IdrisC-45Pretty-render (lambda (arg-0 ext-1 ext-0) (IdrisC-45PrettyC-45Render-render arg-0 (lambda (eta-0) (IdrisC-45Pretty-colorAnn eta-0)) ext-1 ext-0))) (define IdrisC-45Pretty-record_ (lambda () (IdrisC-45Pretty-keyword (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "record")))) -(define IdrisC-45Pretty-prettyUpdate (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-concatWith (lambda (eta-0) (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-surround (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-dot) eta-0 eta-1))) (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (PreludeC-45Types-u--map_Functor_List eta-2 eta-3))))) (lambda (eta-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String eta-0)) e-0)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-equals) (IdrisC-45Pretty-prettyTerm e-1)))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-concatWith (lambda (eta-0) (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-surround (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-dot) eta-0 eta-1))) (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (PreludeC-45Types-u--map_Functor_List eta-2 eta-3))))) (lambda (eta-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String eta-0)) e-2)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Char #\$) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-equals)) (IdrisC-45Pretty-prettyTerm e-3)))))))))) -(define IdrisC-45Pretty-prettyTerm (lambda (ext-0) (IdrisC-45Pretty-n--11888-1694-u--go (vector 0 ) ext-0))) -(define IdrisC-45Pretty-prettyString (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String e-1))) (else (let ((e-3 (vector-ref sc0 2))) (IdrisC-45Pretty-prettyTerm e-3))))))) -(define IdrisC-45Pretty-prettyRig (lambda (ext-0) (AlgebraC-45Semiring-elimSemi (cons (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-2) (lambda (arg-3) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-4 arg-5))))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Char #\0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-space)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Char #\1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-space)) (lambda (eta-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-emptyDoc)) ext-0))) -(define IdrisC-45Pretty-prettyDo (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (IdrisC-45Pretty-prettyTerm e-1))) ((1) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (CoreC-45Name-u--pretty_Pretty_Name e-4) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "<-") (IdrisC-45Pretty-prettyTerm e-5)))))) ((2) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (let ((e-9 (vector-ref sc0 4))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-prettyTerm e-7) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "<-") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-prettyTerm e-8) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-hang 4 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-fillSep (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (PreludeC-45Types-u--map_Functor_List eta-2 eta-3))))) (lambda (eta-0) (IdrisC-45Pretty-prettyAlt eta-0)) e-9)))))))))) ((3) (let ((e-12 (vector-ref sc0 3))) (let ((e-13 (vector-ref sc0 4))) (let ((e-15 (vector-ref sc0 6))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-let_) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-prettyRig e-13) (CoreC-45Name-u--pretty_Pretty_Name e-12)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-equals) (IdrisC-45Pretty-prettyTerm e-15)))))))) ((4) (let ((e-17 (vector-ref sc0 2))) (let ((e-19 (vector-ref sc0 4))) (let ((e-20 (vector-ref sc0 5))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-let_) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-prettyTerm e-17) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-equals) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-prettyTerm e-19) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-hang 4 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-fillSep (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (PreludeC-45Types-u--map_Functor_List eta-2 eta-3))))) (lambda (eta-0) (IdrisC-45Pretty-prettyAlt eta-0)) e-20))))))))))) ((5) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-let_) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-braces (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-angles (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-angles (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "definitions")))))) (else (let ((e-24 (vector-ref sc0 2))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-rewrite_) (IdrisC-45Pretty-prettyTerm e-24)))))))) -(define IdrisC-45Pretty-prettyCase (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-prettyTerm e-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "=>") (IdrisC-45Pretty-prettyTerm e-2)))))) ((1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-space) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-pipe)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-angles (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-angles (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "with alts not possible"))))) (else (let ((e-11 (vector-ref sc0 2))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-prettyTerm e-11) (IdrisC-45Pretty-impossible_)))))))) -(define IdrisC-45Pretty-prettyAlt (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-space) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-pipe)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-prettyTerm e-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "=>") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-prettyTerm e-2) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-semi)))))))) ((1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-space) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-pipe)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-angles (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-angles (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "with alts not possible"))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-semi)))) (else (let ((e-11 (vector-ref sc0 2))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-space) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-pipe)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-prettyTerm e-11) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-impossible_) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-semi)))))))))) +(define IdrisC-45Pretty-prettyUpdate (lambda (arg-0) (case (vector-ref arg-0 0) ((0) (let ((e-0 (vector-ref arg-0 1))) (let ((e-1 (vector-ref arg-0 2))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-concatWith (lambda (eta-0) (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-surround (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-dot) eta-0 eta-1))) (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (PreludeC-45Types-u--map_Functor_List eta-2 eta-3))))) (lambda (eta-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String eta-0)) e-0)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-equals) (IdrisC-45Pretty-prettyTerm e-1)))))) (else (let ((e-2 (vector-ref arg-0 1))) (let ((e-3 (vector-ref arg-0 2))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-concatWith (lambda (eta-0) (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-surround (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-dot) eta-0 eta-1))) (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (PreludeC-45Types-u--map_Functor_List eta-2 eta-3))))) (lambda (eta-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String eta-0)) e-2)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Char #\$) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-equals)) (IdrisC-45Pretty-prettyTerm e-3))))))))) +(define IdrisC-45Pretty-prettyTerm (lambda (ext-0) (IdrisC-45Pretty-n--7866-1669-u--go (vector 0 ) ext-0))) +(define IdrisC-45Pretty-prettyString (lambda (arg-0) (case (vector-ref arg-0 0) ((0) (let ((e-1 (vector-ref arg-0 2))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String e-1))) (else (let ((e-3 (vector-ref arg-0 2))) (IdrisC-45Pretty-prettyTerm e-3)))))) +(define IdrisC-45Pretty-prettyRig (lambda (ext-0) (AlgebraC-45Semiring-elimSemi (cons (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-2) (lambda (arg-3) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-4 arg-5))))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Char #\0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-space)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Char #\1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-space)) (lambda (eta-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-emptyDoc)) ext-0))) +(define IdrisC-45Pretty-prettyDo (lambda (arg-0) (case (vector-ref arg-0 0) ((0) (let ((e-1 (vector-ref arg-0 2))) (IdrisC-45Pretty-prettyTerm e-1))) ((1) (let ((e-4 (vector-ref arg-0 3))) (let ((e-5 (vector-ref arg-0 4))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (CoreC-45Name-u--pretty_Pretty_Name e-4) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "<-") (IdrisC-45Pretty-prettyTerm e-5)))))) ((2) (let ((e-7 (vector-ref arg-0 2))) (let ((e-8 (vector-ref arg-0 3))) (let ((e-9 (vector-ref arg-0 4))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-prettyTerm e-7) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "<-") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-prettyTerm e-8) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-hang 4 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-fillSep (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (PreludeC-45Types-u--map_Functor_List eta-2 eta-3))))) (lambda (eta-0) (IdrisC-45Pretty-prettyAlt eta-0)) e-9)))))))))) ((3) (let ((e-12 (vector-ref arg-0 3))) (let ((e-13 (vector-ref arg-0 4))) (let ((e-15 (vector-ref arg-0 6))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-let_) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-prettyRig e-13) (CoreC-45Name-u--pretty_Pretty_Name e-12)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-equals) (IdrisC-45Pretty-prettyTerm e-15)))))))) ((4) (let ((e-17 (vector-ref arg-0 2))) (let ((e-19 (vector-ref arg-0 4))) (let ((e-20 (vector-ref arg-0 5))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-let_) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-prettyTerm e-17) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-equals) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-prettyTerm e-19) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-hang 4 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-fillSep (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (PreludeC-45Types-u--map_Functor_List eta-2 eta-3))))) (lambda (eta-0) (IdrisC-45Pretty-prettyAlt eta-0)) e-20))))))))))) ((5) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-let_) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-braces (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-angles (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-angles (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "definitions")))))) (else (let ((e-24 (vector-ref arg-0 2))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-rewrite_) (IdrisC-45Pretty-prettyTerm e-24))))))) +(define IdrisC-45Pretty-prettyCase (lambda (arg-0) (case (vector-ref arg-0 0) ((0) (let ((e-1 (vector-ref arg-0 2))) (let ((e-2 (vector-ref arg-0 3))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-prettyTerm e-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "=>") (IdrisC-45Pretty-prettyTerm e-2)))))) ((1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-space) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-pipe)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-angles (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-angles (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "with alts not possible"))))) (else (let ((e-11 (vector-ref arg-0 2))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-prettyTerm e-11) (IdrisC-45Pretty-impossible_))))))) +(define IdrisC-45Pretty-prettyAlt (lambda (arg-0) (case (vector-ref arg-0 0) ((0) (let ((e-1 (vector-ref arg-0 2))) (let ((e-2 (vector-ref arg-0 3))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-space) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-pipe)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-prettyTerm e-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "=>") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-prettyTerm e-2) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-semi)))))))) ((1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-space) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-pipe)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-angles (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-angles (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "with alts not possible"))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-semi)))) (else (let ((e-11 (vector-ref arg-0 2))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-space) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-pipe)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-prettyTerm e-11) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-impossible_) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-semi))))))))) (define IdrisC-45Pretty-pragma (lambda (ext-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-annotate (vector 2 ) ext-0))) (define IdrisC-45Pretty-of_ (lambda () (IdrisC-45Pretty-keyword (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "of")))) (define IdrisC-45Pretty-meta (lambda (ext-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-annotate (vector 5 ) ext-0))) @@ -5519,641 +4907,362 @@ (define IdrisC-45Pretty-error (lambda (ext-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-annotate (vector 1 ) ext-0))) (define IdrisC-45Pretty-do_ (lambda () (IdrisC-45Pretty-keyword (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "do")))) (define IdrisC-45Pretty-default_ (lambda () (IdrisC-45Pretty-keyword (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "default")))) -(define IdrisC-45Pretty-colorAnn (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45RenderC-45Terminal-color (vector 3 )) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45RenderC-45Terminal-bold))) ((1) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45RenderC-45Terminal-color (vector 9 )) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45RenderC-45Terminal-bold))) ((2) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45RenderC-45Terminal-bold)) ((3) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45RenderC-45Terminal-color (vector 12 ))) ((4) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45RenderC-45Terminal-color (vector 5 ))) ((5) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45RenderC-45Terminal-color (vector 2 ))) (else (let ((e-0 (vector-ref sc0 1))) (let ((sc1 e-0)) (case (vector-ref sc1 0) ((0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45RenderC-45Terminal-color (vector 2 ))) ((1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45RenderC-45Terminal-color (vector 1 ))) ((2) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45RenderC-45Terminal-color (vector 13 ))) (else '()))))))))) +(define IdrisC-45Pretty-colorAnn (lambda (arg-0) (case (vector-ref arg-0 0) ((0) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45RenderC-45Terminal-color 3) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45RenderC-45Terminal-bold))) ((1) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45RenderC-45Terminal-color 9) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45RenderC-45Terminal-bold))) ((2) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45RenderC-45Terminal-bold)) ((3) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45RenderC-45Terminal-color 12)) ((4) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45RenderC-45Terminal-color 5)) ((5) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45RenderC-45Terminal-color 2)) (else (let ((e-0 (vector-ref arg-0 1))) (case (vector-ref e-0 0) ((0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45RenderC-45Terminal-color 2)) ((1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45RenderC-45Terminal-color 1)) ((2) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45RenderC-45Terminal-color 13)) (else '()))))))) (define IdrisC-45Pretty-code (lambda (ext-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-annotate (vector 4 ) ext-0))) (define IdrisC-45Pretty-case_ (lambda () (IdrisC-45Pretty-keyword (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "case")))) (define IdrisC-45Pretty-auto_ (lambda () (IdrisC-45Pretty-keyword (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "auto")))) -(define IdrisC-45Syntax-case--toBuf-3849 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) 1)(else 0))))) -(define IdrisC-45Syntax-case--showPrecOp-3147 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (CoreC-45Name-u--showPrec_Show_Name arg-1 arg-0)) (else (PreludeC-45TypesC-45String-C-43C-43 "`" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--showPrec_Show_Name arg-1 arg-0) "`"))))))) -(define IdrisC-45Syntax-case--showPrecC-44deGuard-2917 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (vector 0 arg-8 arg-7)) (else arg-9))))) -(define IdrisC-45Syntax-case--showPrecC-44dePure-2863 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (cond ((equal? sc0 0) arg-7) (else arg-8))))) -(define IdrisC-45Syntax-case--showPrec-2386 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-5 arg-4) (PreludeC-45TypesC-45String-C-43C-43 " {" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--showPrec_Show_Name arg-5 arg-3) "}")))) (else (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-5 arg-4) (PreludeC-45TypesC-45String-C-43C-43 " {" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--showPrec_Show_Name arg-5 arg-3) (PreludeC-45TypesC-45String-C-43C-43 " = " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--showPrec_Show_Name arg-5 arg-2) "}")))))))))) -(define IdrisC-45Syntax-n--13131-2221-u--showCase (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--show_Show_PTerm e-1) (PreludeC-45TypesC-45String-C-43C-43 " => " (IdrisC-45Syntax-u--show_Show_PTerm e-2)))))) ((1) " | <>") (else (let ((e-11 (vector-ref sc0 2))) (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--show_Show_PTerm e-11) " impossible"))))))) -(define IdrisC-45Syntax-n--13131-2137-u--showAlt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (PreludeC-45TypesC-45String-C-43C-43 " | " (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--show_Show_PTerm e-1) (PreludeC-45TypesC-45String-C-43C-43 " => " (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--show_Show_PTerm e-2) ";"))))))) ((1) " | <>") (else (let ((e-11 (vector-ref sc0 2))) (PreludeC-45TypesC-45String-C-43C-43 " | " (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--show_Show_PTerm e-11) " impossible;")))))))) -(define IdrisC-45Syntax-n--15414-4060-u--insertAll (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((sc0 arg-5)) (if (null? sc0) (vector 1 arg-4) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (let ((act-24 ((CoreC-45Context-u--resolved_HasNames_Name arg-3 e-6) ext-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (let ((sc3 arg-1)) (let ((e-4 (cdr sc3))) (((e-4 arg-3) e-7) ext-0))))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (IdrisC-45Syntax-n--15414-4060-u--insertAll arg-1 arg-2 arg-3 (LibrariesC-45DataC-45ANameMap-addName e-5 e-8 arg-4) e-3 ext-0)))))))))))))))))))) -(define IdrisC-45Syntax-n--15413-4018-u--insertAll (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((sc0 arg-5)) (if (null? sc0) (vector 1 arg-4) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (let ((act-24 (CoreC-45Context-u--full_HasNames_Name arg-3 e-6 ext-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (let ((sc3 arg-1)) (let ((e-1 (car sc3))) (((e-1 arg-3) e-7) ext-0))))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (IdrisC-45Syntax-n--15413-4018-u--insertAll arg-1 arg-2 arg-3 (LibrariesC-45DataC-45ANameMap-addName e-5 e-8 arg-4) e-3 ext-0)))))))))))))))))))) -(define IdrisC-45Syntax-n--15616-4198-u--initSaveDocStrings (lambda () (LibrariesC-45DataC-45NameMap-empty))) -(define IdrisC-45Syntax-n--15616-4196-u--initPrefix (lambda () (LibrariesC-45DataC-45StringMap-fromList (cons (cons "-" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))))))))) (cons (cons "negate" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))))))))) '()))))) -(define IdrisC-45Syntax-n--15616-4195-u--initInfix (lambda () (LibrariesC-45DataC-45StringMap-insert "=" (cons (vector 2 ) 0) (LibrariesC-45DataC-45StringMap-empty)))) -(define IdrisC-45Syntax-n--15616-4197-u--initDocStrings (lambda () (LibrariesC-45DataC-45ANameMap-empty))) -(define IdrisC-45Syntax-n--15706-4296-u--goPiInfo (lambda (arg-0 arg-1 ext-0) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc1 eta-0)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 3 e-5))))))) (IdrisC-45Syntax-n--15706-4287-u--goPTerm arg-0 e-1) ext-0)))(else (vector 1 arg-1)))))) -(define IdrisC-45Syntax-n--15706-4300-u--goPairedPTerms (lambda (arg-0 arg-2 ext-0) (let ((sc0 arg-2)) (if (null? sc0) (vector 1 '()) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (CoreC-45Core-C-60C-42C-62 (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (let ((sc2 eta-1)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (lambda (eta-2) (cons (cons e-6 e-5) eta-2)))))))) (IdrisC-45Syntax-n--15706-4287-u--goPTerm arg-0 e-7) eta-0)) (lambda (eta-0) (IdrisC-45Syntax-n--15706-4300-u--goPairedPTerms arg-0 e-3 eta-0)) ext-0)))))))))) -(define IdrisC-45Syntax-n--15706-4312-u--goPTypeDecls (lambda (arg-0 arg-1 ext-0) (let ((sc0 arg-1)) (if (null? sc0) (vector 1 '()) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (CoreC-45Core-C-60C-42C-62 (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-2) (cons e-5 eta-2)))))))) (lambda (eta-1) (IdrisC-45Syntax-n--15706-4293-u--goPTypeDecl arg-0 e-2 eta-1)) eta-0)) (lambda (eta-0) (IdrisC-45Syntax-n--15706-4312-u--goPTypeDecls arg-0 e-3 eta-0)) ext-0))))))) -(define IdrisC-45Syntax-n--15706-4293-u--goPTypeDecl (lambda (arg-0 arg-1 ext-0) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc1 eta-0)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-0 e-1 e-2 e-3 e-5))))))) (IdrisC-45Syntax-n--15706-4287-u--goPTerm arg-0 e-4) ext-0))))))))) -(define IdrisC-45Syntax-n--15706-4299-u--goPTerms (lambda (arg-0 arg-1 ext-0) (let ((sc0 arg-1)) (if (null? sc0) (vector 1 '()) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (CoreC-45Core-C-60C-42C-62 (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-2) (cons e-5 eta-2)))))))) (IdrisC-45Syntax-n--15706-4287-u--goPTerm arg-0 e-2) eta-0)) (lambda (eta-0) (IdrisC-45Syntax-n--15706-4299-u--goPTerms arg-0 e-3 eta-0)) ext-0))))))) -(define IdrisC-45Syntax-n--15706-4287-u--goPTerm (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (arg-0 arg-1)) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (let ((e-6 (vector-ref sc0 5))) (let ((e-7 (vector-ref sc0 6))) (lambda (eta-0) (let ((act-24 (CoreC-45Core-C-60C-42C-62 (lambda (eta-1) (CoreC-45Core-C-60C-42C-62 (lambda (eta-2) (CoreC-45Core-C-60C-42C-62 (lambda (eta-3) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-4) (let ((sc1 eta-4)) (case (vector-ref sc1 0) ((0) (let ((e-8 (vector-ref sc1 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc1 1))) (vector 1 (lambda (eta-5) (lambda (eta-6) (lambda (eta-7) (vector 1 e-2 e-3 e-8 eta-5 eta-6 eta-7)))))))))) (lambda (eta-4) (IdrisC-45Syntax-n--15706-4296-u--goPiInfo arg-0 e-4 eta-4)) eta-3)) (lambda (eta-3) (vector 1 e-5)) eta-2)) (IdrisC-45Syntax-n--15706-4287-u--goPTerm arg-0 e-6) eta-1)) (IdrisC-45Syntax-n--15706-4287-u--goPTerm arg-0 e-7) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-8 (vector-ref sc1 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc1 1))) ((arg-0 e-8) eta-0)))))))))))))) ((2) (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 3))) (let ((e-11 (vector-ref sc0 4))) (let ((e-12 (vector-ref sc0 5))) (let ((e-13 (vector-ref sc0 6))) (lambda (eta-0) (let ((act-24 (CoreC-45Core-C-60C-42C-62 (lambda (eta-1) (CoreC-45Core-C-60C-42C-62 (lambda (eta-2) (CoreC-45Core-C-60C-42C-62 (lambda (eta-3) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-4) (let ((sc1 eta-4)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-5) (lambda (eta-6) (lambda (eta-7) (vector 2 e-8 e-9 e-5 eta-5 eta-6 eta-7)))))))))) (lambda (eta-4) (IdrisC-45Syntax-n--15706-4296-u--goPiInfo arg-0 e-10 eta-4)) eta-3)) (lambda (eta-3) (vector 1 e-11)) eta-2)) (IdrisC-45Syntax-n--15706-4287-u--goPTerm arg-0 e-12) eta-1)) (IdrisC-45Syntax-n--15706-4287-u--goPTerm arg-0 e-13) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0)))))))))))))) ((3) (let ((e-14 (vector-ref sc0 1))) (let ((e-15 (vector-ref sc0 2))) (let ((e-16 (vector-ref sc0 3))) (let ((e-17 (vector-ref sc0 4))) (let ((e-18 (vector-ref sc0 5))) (let ((e-19 (vector-ref sc0 6))) (let ((e-20 (vector-ref sc0 7))) (lambda (eta-0) (let ((act-24 (CoreC-45Core-C-60C-42C-62 (lambda (eta-1) (CoreC-45Core-C-60C-42C-62 (lambda (eta-2) (CoreC-45Core-C-60C-42C-62 (lambda (eta-3) (CoreC-45Core-C-60C-42C-62 (lambda (eta-4) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-5) (let ((sc1 eta-5)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-6) (lambda (eta-7) (lambda (eta-8) (lambda (eta-9) (vector 3 e-14 e-15 e-5 eta-6 eta-7 eta-8 eta-9))))))))))) (IdrisC-45Syntax-n--15706-4287-u--goPTerm arg-0 e-16) eta-4)) (IdrisC-45Syntax-n--15706-4287-u--goPTerm arg-0 e-17) eta-3)) (IdrisC-45Syntax-n--15706-4287-u--goPTerm arg-0 e-18) eta-2)) (IdrisC-45Syntax-n--15706-4287-u--goPTerm arg-0 e-19) eta-1)) (lambda (eta-1) (IdrisC-45Syntax-n--15706-4306-u--goPClauses arg-0 e-20 eta-1)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0))))))))))))))) ((4) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (CoreC-45Core-C-60C-42C-62 (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-2) (let ((sc1 eta-2)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-3) (vector 4 e-21 e-5 eta-3)))))))) (IdrisC-45Syntax-n--15706-4287-u--goPTerm arg-0 e-22) eta-1)) (lambda (eta-1) (IdrisC-45Syntax-n--15706-4306-u--goPClauses arg-0 e-23 eta-1)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0))))))))))) ((5) (let ((e-24 (vector-ref sc0 1))) (let ((e-25 (vector-ref sc0 2))) (let ((e-26 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (CoreC-45Core-C-60C-42C-62 (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-2) (let ((sc1 eta-2)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-3) (vector 5 e-24 e-5 eta-3)))))))) (lambda (eta-2) (IdrisC-45Syntax-n--15706-4308-u--goPDecls arg-0 e-25 eta-2)) eta-1)) (IdrisC-45Syntax-n--15706-4287-u--goPTerm arg-0 e-26) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0))))))))))) ((6) (let ((e-27 (vector-ref sc0 1))) (let ((e-28 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 6 e-27 e-5))))))) (lambda (eta-1) (IdrisC-45Syntax-n--15706-4309-u--goPFieldUpdates arg-0 e-28 eta-1)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0)))))))))) ((7) (let ((e-29 (vector-ref sc0 1))) (let ((e-30 (vector-ref sc0 2))) (let ((e-31 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (CoreC-45Core-C-60C-42C-62 (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-2) (let ((sc1 eta-2)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-3) (vector 7 e-29 e-5 eta-3)))))))) (IdrisC-45Syntax-n--15706-4287-u--goPTerm arg-0 e-30) eta-1)) (IdrisC-45Syntax-n--15706-4287-u--goPTerm arg-0 e-31) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0))))))))))) ((8) (let ((e-32 (vector-ref sc0 1))) (let ((e-33 (vector-ref sc0 2))) (let ((e-34 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (CoreC-45Core-C-60C-42C-62 (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-2) (let ((sc1 eta-2)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-3) (vector 8 e-32 e-5 eta-3)))))))) (IdrisC-45Syntax-n--15706-4287-u--goPTerm arg-0 e-33) eta-1)) (IdrisC-45Syntax-n--15706-4287-u--goPTerm arg-0 e-34) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0))))))))))) ((10) (let ((e-35 (vector-ref sc0 1))) (let ((e-36 (vector-ref sc0 2))) (let ((e-37 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (CoreC-45Core-C-60C-42C-62 (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-2) (let ((sc1 eta-2)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-3) (vector 10 e-35 e-5 eta-3)))))))) (IdrisC-45Syntax-n--15706-4287-u--goPTerm arg-0 e-36) eta-1)) (IdrisC-45Syntax-n--15706-4287-u--goPTerm arg-0 e-37) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0))))))))))) ((9) (let ((e-38 (vector-ref sc0 1))) (let ((e-39 (vector-ref sc0 2))) (let ((e-40 (vector-ref sc0 3))) (let ((e-41 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (CoreC-45Core-C-60C-42C-62 (lambda (eta-1) (CoreC-45Core-C-60C-42C-62 (lambda (eta-2) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-3) (let ((sc1 eta-3)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-4) (lambda (eta-5) (vector 9 e-38 e-5 eta-4 eta-5))))))))) (IdrisC-45Syntax-n--15706-4287-u--goPTerm arg-0 e-39) eta-2)) (lambda (eta-2) (vector 1 e-40)) eta-1)) (IdrisC-45Syntax-n--15706-4287-u--goPTerm arg-0 e-41) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0)))))))))))) ((11) (let ((e-42 (vector-ref sc0 1))) (let ((e-43 (vector-ref sc0 2))) (let ((e-44 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 11 e-42 e-43 e-5))))))) (IdrisC-45Syntax-n--15706-4287-u--goPTerm arg-0 e-44) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0))))))))))) ((12) (let ((e-45 (vector-ref sc0 1))) (let ((e-46 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 12 e-45 e-5))))))) (IdrisC-45Syntax-n--15706-4287-u--goPTerm arg-0 e-46) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0)))))))))) ((13) (let ((e-47 (vector-ref sc0 1))) (let ((e-48 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 13 e-47 e-5))))))) (IdrisC-45Syntax-n--15706-4287-u--goPTerm arg-0 e-48) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0)))))))))) ((14) (arg-0 arg-1)) ((15) (arg-0 arg-1)) ((16) (let ((e-53 (vector-ref sc0 1))) (let ((e-54 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 16 e-53 e-5))))))) (IdrisC-45Syntax-n--15706-4287-u--goPTerm arg-0 e-54) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0)))))))))) ((17) (arg-0 arg-1)) ((18) (let ((e-57 (vector-ref sc0 1))) (let ((e-58 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 18 e-57 e-5))))))) (lambda (eta-1) (CoreC-45Core-traverseC-39 (lambda (eta-2) (lambda (eta-3) (IdrisC-45Syntax-n--15706-4292-u--goPDecl arg-0 eta-2 eta-3))) e-58 '() eta-1)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0)))))))))) ((19) (let ((e-59 (vector-ref sc0 1))) (let ((e-60 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 19 e-59 e-5))))))) (IdrisC-45Syntax-n--15706-4287-u--goPTerm arg-0 e-60) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0)))))))))) ((20) (let ((e-61 (vector-ref sc0 1))) (let ((e-62 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 20 e-61 e-5))))))) (IdrisC-45Syntax-n--15706-4287-u--goPTerm arg-0 e-62) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0)))))))))) ((21) (arg-0 arg-1)) ((22) (arg-0 arg-1)) ((23) (let ((e-67 (vector-ref sc0 1))) (let ((e-68 (vector-ref sc0 2))) (let ((e-69 (vector-ref sc0 3))) (let ((e-70 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 23 e-67 e-68 e-69 e-5))))))) (IdrisC-45Syntax-n--15706-4287-u--goPTerm arg-0 e-70) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0)))))))))))) ((24) (let ((e-71 (vector-ref sc0 1))) (let ((e-72 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 24 e-71 e-5))))))) (IdrisC-45Syntax-n--15706-4287-u--goPTerm arg-0 e-72) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0)))))))))) ((25) (arg-0 arg-1)) ((26) (arg-0 arg-1)) ((27) (let ((e-75 (vector-ref sc0 1))) (let ((e-76 (vector-ref sc0 2))) (let ((e-77 (vector-ref sc0 3))) (let ((e-78 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (CoreC-45Core-C-60C-42C-62 (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-2) (let ((sc1 eta-2)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-3) (vector 27 e-75 e-76 e-5 eta-3)))))))) (IdrisC-45Syntax-n--15706-4287-u--goPTerm arg-0 e-77) eta-1)) (IdrisC-45Syntax-n--15706-4287-u--goPTerm arg-0 e-78) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0)))))))))))) ((28) (let ((e-79 (vector-ref sc0 1))) (let ((e-80 (vector-ref sc0 2))) (let ((e-81 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 28 e-79 e-80 e-5))))))) (IdrisC-45Syntax-n--15706-4287-u--goPTerm arg-0 e-81) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0))))))))))) ((29) (let ((e-82 (vector-ref sc0 1))) (let ((e-83 (vector-ref sc0 2))) (let ((e-84 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 29 e-82 e-83 e-5))))))) (IdrisC-45Syntax-n--15706-4287-u--goPTerm arg-0 e-84) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0))))))))))) ((30) (let ((e-85 (vector-ref sc0 1))) (let ((e-86 (vector-ref sc0 2))) (let ((e-87 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (CoreC-45Core-C-60C-42C-62 (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-2) (let ((sc1 eta-2)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-3) (vector 30 e-85 e-5 eta-3)))))))) (IdrisC-45Syntax-n--15706-4287-u--goPTerm arg-0 e-86) eta-1)) (lambda (eta-1) (vector 1 e-87)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0))))))))))) ((31) (let ((e-88 (vector-ref sc0 1))) (let ((e-89 (vector-ref sc0 2))) (let ((e-90 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (CoreC-45Core-C-60C-42C-62 (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-2) (let ((sc1 eta-2)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-3) (vector 31 e-88 e-5 eta-3)))))))) (IdrisC-45Syntax-n--15706-4287-u--goPTerm arg-0 e-89) eta-1)) (IdrisC-45Syntax-n--15706-4287-u--goPTerm arg-0 e-90) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0))))))))))) ((32) (let ((e-91 (vector-ref sc0 1))) (let ((e-92 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 32 e-91 e-5))))))) (IdrisC-45Syntax-n--15706-4287-u--goPTerm arg-0 e-92) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0)))))))))) ((33) (let ((e-93 (vector-ref sc0 1))) (let ((e-94 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 33 e-93 e-5))))))) (lambda (eta-1) (IdrisC-45Syntax-n--15706-4304-u--goPStrings arg-0 e-94 eta-1)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0)))))))))) ((34) (let ((e-95 (vector-ref sc0 1))) (let ((e-96 (vector-ref sc0 2))) (let ((e-97 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 34 e-95 e-96 e-5))))))) (lambda (eta-1) (IdrisC-45Syntax-n--15706-4303-u--goPStringLines arg-0 e-97 eta-1)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0))))))))))) ((35) (let ((e-98 (vector-ref sc0 1))) (let ((e-99 (vector-ref sc0 2))) (let ((e-100 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 35 e-98 e-99 e-5))))))) (lambda (eta-1) (IdrisC-45Syntax-n--15706-4305-u--goPDos arg-0 e-100 eta-1)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0))))))))))) ((36) (let ((e-101 (vector-ref sc0 1))) (let ((e-102 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 36 e-101 e-5))))))) (IdrisC-45Syntax-n--15706-4287-u--goPTerm arg-0 e-102) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0)))))))))) ((37) (let ((e-103 (vector-ref sc0 1))) (let ((e-104 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 37 e-103 e-5))))))) (IdrisC-45Syntax-n--15706-4287-u--goPTerm arg-0 e-104) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0)))))))))) ((38) (let ((e-105 (vector-ref sc0 1))) (let ((e-106 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 38 e-105 e-5))))))) (lambda (eta-1) (IdrisC-45Syntax-n--15706-4299-u--goPTerms arg-0 e-106 eta-1)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0)))))))))) ((39) (let ((e-107 (vector-ref sc0 1))) (let ((e-108 (vector-ref sc0 2))) (let ((e-109 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (CoreC-45Core-C-60C-42C-62 (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-2) (let ((sc1 eta-2)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-3) (vector 39 e-107 e-5 eta-3)))))))) (IdrisC-45Syntax-n--15706-4287-u--goPTerm arg-0 e-108) eta-1)) (IdrisC-45Syntax-n--15706-4287-u--goPTerm arg-0 e-109) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0))))))))))) ((40) (let ((e-110 (vector-ref sc0 1))) (let ((e-111 (vector-ref sc0 2))) (let ((e-112 (vector-ref sc0 3))) (let ((e-113 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (CoreC-45Core-C-60C-42C-62 (lambda (eta-1) (CoreC-45Core-C-60C-42C-62 (lambda (eta-2) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-3) (let ((sc1 eta-3)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-4) (lambda (eta-5) (vector 40 e-110 e-5 eta-4 eta-5))))))))) (IdrisC-45Syntax-n--15706-4287-u--goPTerm arg-0 e-111) eta-2)) (IdrisC-45Syntax-n--15706-4287-u--goPTerm arg-0 e-112) eta-1)) (IdrisC-45Syntax-n--15706-4287-u--goPTerm arg-0 e-113) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0)))))))))))) ((41) (arg-0 arg-1)) ((42) (let ((e-115 (vector-ref sc0 1))) (let ((e-116 (vector-ref sc0 2))) (let ((e-117 (vector-ref sc0 3))) (let ((e-118 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (CoreC-45Core-C-60C-42C-62 (lambda (eta-1) (CoreC-45Core-C-60C-42C-62 (lambda (eta-2) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-3) (let ((sc1 eta-3)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-4) (lambda (eta-5) (vector 42 e-115 e-5 eta-4 eta-5))))))))) (IdrisC-45Syntax-n--15706-4287-u--goPTerm arg-0 e-116) eta-2)) (IdrisC-45Syntax-n--15706-4287-u--goPTerm arg-0 e-117) eta-1)) (IdrisC-45Syntax-n--15706-4287-u--goPTerm arg-0 e-118) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0)))))))))))) ((43) (let ((e-119 (vector-ref sc0 1))) (let ((e-120 (vector-ref sc0 2))) (let ((e-121 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (CoreC-45Core-C-60C-42C-62 (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-2) (let ((sc1 eta-2)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-3) (vector 43 e-119 e-5 eta-3)))))))) (IdrisC-45Syntax-n--15706-4287-u--goPTerm arg-0 e-120) eta-1)) (lambda (eta-1) (IdrisC-45Syntax-n--15706-4305-u--goPDos arg-0 e-121 eta-1)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0))))))))))) ((44) (let ((e-122 (vector-ref sc0 1))) (let ((e-123 (vector-ref sc0 2))) (let ((e-124 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (CoreC-45Core-C-60C-42C-62 (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-2) (let ((sc1 eta-2)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-3) (vector 44 e-122 e-5 eta-3)))))))) (IdrisC-45Syntax-n--15706-4287-u--goPTerm arg-0 e-123) eta-1)) (IdrisC-45Syntax-n--15706-4287-u--goPTerm arg-0 e-124) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0))))))))))) ((45) (let ((e-125 (vector-ref sc0 1))) (let ((e-126 (vector-ref sc0 2))) (let ((e-127 (vector-ref sc0 3))) (let ((e-128 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (CoreC-45Core-C-60C-42C-62 (lambda (eta-1) (CoreC-45Core-C-60C-42C-62 (lambda (eta-2) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-3) (let ((sc1 eta-3)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-4) (lambda (eta-5) (vector 45 e-125 e-5 eta-4 eta-5))))))))) (IdrisC-45Syntax-n--15706-4287-u--goPTerm arg-0 e-126) eta-2)) (lambda (eta-2) (IdrisC-45Syntax-n--15706-4298-u--goMPTerm arg-0 e-127 eta-2)) eta-1)) (IdrisC-45Syntax-n--15706-4287-u--goPTerm arg-0 e-128) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0)))))))))))) ((46) (let ((e-129 (vector-ref sc0 1))) (let ((e-130 (vector-ref sc0 2))) (let ((e-131 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (CoreC-45Core-C-60C-42C-62 (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-2) (let ((sc1 eta-2)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-3) (vector 46 e-129 e-5 eta-3)))))))) (IdrisC-45Syntax-n--15706-4287-u--goPTerm arg-0 e-130) eta-1)) (lambda (eta-1) (IdrisC-45Syntax-n--15706-4298-u--goMPTerm arg-0 e-131 eta-1)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0))))))))))) ((49) (let ((e-132 (vector-ref sc0 1))) (let ((e-133 (vector-ref sc0 2))) (let ((e-134 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 49 e-132 e-133 e-5))))))) (IdrisC-45Syntax-n--15706-4287-u--goPTerm arg-0 e-134) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0))))))))))) ((47) (let ((e-135 (vector-ref sc0 1))) (let ((e-136 (vector-ref sc0 2))) (let ((e-137 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (CoreC-45Core-C-60C-42C-62 (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-2) (let ((sc1 eta-2)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-3) (vector 47 e-135 e-5 eta-3)))))))) (IdrisC-45Syntax-n--15706-4287-u--goPTerm arg-0 e-136) eta-1)) (lambda (eta-1) (vector 1 e-137)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0))))))))))) ((48) (let ((e-138 (vector-ref sc0 1))) (let ((e-139 (vector-ref sc0 2))) (arg-0 (vector 48 e-138 e-139))))) (else (let ((e-140 (vector-ref sc0 1))) (let ((e-141 (vector-ref sc0 2))) (let ((e-142 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 50 e-140 e-141 e-5))))))) (IdrisC-45Syntax-n--15706-4287-u--goPTerm arg-0 e-142) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0))))))))))))))) -(define IdrisC-45Syntax-n--15706-4304-u--goPStrings (lambda (arg-0 arg-1 ext-0) (let ((sc0 arg-1)) (if (null? sc0) (vector 1 '()) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (CoreC-45Core-C-60C-42C-62 (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-2) (cons e-5 eta-2)))))))) (lambda (eta-1) (IdrisC-45Syntax-n--15706-4289-u--goPStr arg-0 e-2 eta-1)) eta-0)) (lambda (eta-0) (IdrisC-45Syntax-n--15706-4304-u--goPStrings arg-0 e-3 eta-0)) ext-0))))))) -(define IdrisC-45Syntax-n--15706-4303-u--goPStringLines (lambda (arg-0 arg-1 ext-0) (let ((sc0 arg-1)) (if (null? sc0) (vector 1 '()) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (CoreC-45Core-C-60C-42C-62 (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-2) (cons e-5 eta-2)))))))) (lambda (eta-1) (IdrisC-45Syntax-n--15706-4304-u--goPStrings arg-0 e-2 eta-1)) eta-0)) (lambda (eta-0) (IdrisC-45Syntax-n--15706-4303-u--goPStringLines arg-0 e-3 eta-0)) ext-0))))))) -(define IdrisC-45Syntax-n--15706-4289-u--goPStr (lambda (arg-0 arg-1 ext-0) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc1 eta-0)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-0 e-5))))))) (IdrisC-45Syntax-n--15706-4287-u--goPTerm arg-0 e-1) ext-0))))(else (vector 1 arg-1)))))) -(define IdrisC-45Syntax-n--15706-4311-u--goPFnOpts (lambda (arg-0 arg-1 ext-0) (let ((sc0 arg-1)) (if (null? sc0) (vector 1 '()) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (CoreC-45Core-C-60C-42C-62 (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-2) (cons e-5 eta-2)))))))) (lambda (eta-1) (IdrisC-45Syntax-n--15706-4297-u--goPFnOpt arg-0 e-2 eta-1)) eta-0)) (lambda (eta-0) (IdrisC-45Syntax-n--15706-4311-u--goPFnOpts arg-0 e-3 eta-0)) ext-0))))))) -(define IdrisC-45Syntax-n--15706-4297-u--goPFnOpt (lambda (arg-0 arg-1 ext-0) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 1 arg-1)) (else (let ((e-1 (vector-ref sc0 1))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc1 eta-0)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-5))))))) (lambda (eta-0) (IdrisC-45Syntax-n--15706-4299-u--goPTerms arg-0 e-1 eta-0)) ext-0))))))) -(define IdrisC-45Syntax-n--15706-4310-u--goPFields (lambda (arg-0 arg-1 ext-0) (let ((sc0 arg-1)) (if (null? sc0) (vector 1 '()) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (CoreC-45Core-C-60C-42C-62 (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-2) (cons e-5 eta-2)))))))) (lambda (eta-1) (IdrisC-45Syntax-n--15706-4295-u--goPField arg-0 e-2 eta-1)) eta-0)) (lambda (eta-0) (IdrisC-45Syntax-n--15706-4310-u--goPFields arg-0 e-3 eta-0)) ext-0))))))) -(define IdrisC-45Syntax-n--15706-4309-u--goPFieldUpdates (lambda (arg-0 arg-1 ext-0) (let ((sc0 arg-1)) (if (null? sc0) (vector 1 '()) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (CoreC-45Core-C-60C-42C-62 (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-2) (cons e-5 eta-2)))))))) (lambda (eta-1) (IdrisC-45Syntax-n--15706-4288-u--goPFieldUpdate arg-0 e-2 eta-1)) eta-0)) (lambda (eta-0) (IdrisC-45Syntax-n--15706-4309-u--goPFieldUpdates arg-0 e-3 eta-0)) ext-0))))))) -(define IdrisC-45Syntax-n--15706-4288-u--goPFieldUpdate (lambda (arg-0 arg-1 ext-0) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc1 eta-0)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-0 e-5))))))) (IdrisC-45Syntax-n--15706-4287-u--goPTerm arg-0 e-1) ext-0)))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc1 eta-0)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-2 e-5))))))) (IdrisC-45Syntax-n--15706-4287-u--goPTerm arg-0 e-3) ext-0)))))))) -(define IdrisC-45Syntax-n--15706-4295-u--goPField (lambda (arg-0 arg-1 ext-0) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (CoreC-45Core-C-60C-42C-62 (lambda (eta-0) (CoreC-45Core-C-60C-42C-62 (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-2) (let ((sc1 eta-2)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 (lambda (eta-3) (lambda (eta-4) (vector 0 e-0 e-1 e-2 e-6 eta-3 eta-4))))))))) (lambda (eta-2) (IdrisC-45Syntax-n--15706-4296-u--goPiInfo arg-0 e-3 eta-2)) eta-1)) (lambda (eta-1) (vector 1 e-4)) eta-0)) (IdrisC-45Syntax-n--15706-4287-u--goPTerm arg-0 e-5) ext-0)))))))))) -(define IdrisC-45Syntax-n--15706-4305-u--goPDos (lambda (arg-0 arg-1 ext-0) (let ((sc0 arg-1)) (if (null? sc0) (vector 1 '()) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (CoreC-45Core-C-60C-42C-62 (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-2) (cons e-5 eta-2)))))))) (lambda (eta-1) (IdrisC-45Syntax-n--15706-4290-u--goPDo arg-0 e-2 eta-1)) eta-0)) (lambda (eta-0) (IdrisC-45Syntax-n--15706-4305-u--goPDos arg-0 e-3 eta-0)) ext-0))))))) -(define IdrisC-45Syntax-n--15706-4290-u--goPDo (lambda (arg-0 arg-1 ext-0) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc1 eta-0)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-0 e-5))))))) (IdrisC-45Syntax-n--15706-4287-u--goPTerm arg-0 e-1) ext-0)))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc1 eta-0)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 (vector 1 e-2 e-3 e-4 e-6))))))) (IdrisC-45Syntax-n--15706-4287-u--goPTerm arg-0 e-5) ext-0)))))) ((2) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (let ((e-9 (vector-ref sc0 4))) (CoreC-45Core-C-60C-42C-62 (lambda (eta-0) (CoreC-45Core-C-60C-42C-62 (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-2) (let ((sc1 eta-2)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-3) (lambda (eta-4) (vector 2 e-6 e-5 eta-3 eta-4))))))))) (IdrisC-45Syntax-n--15706-4287-u--goPTerm arg-0 e-7) eta-1)) (IdrisC-45Syntax-n--15706-4287-u--goPTerm arg-0 e-8) eta-0)) (lambda (eta-0) (IdrisC-45Syntax-n--15706-4306-u--goPClauses arg-0 e-9 eta-0)) ext-0)))))) ((3) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (let ((e-13 (vector-ref sc0 4))) (let ((e-14 (vector-ref sc0 5))) (let ((e-15 (vector-ref sc0 6))) (CoreC-45Core-C-60C-42C-62 (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-2) (vector 3 e-10 e-11 e-12 e-13 e-5 eta-2)))))))) (IdrisC-45Syntax-n--15706-4287-u--goPTerm arg-0 e-14) eta-0)) (IdrisC-45Syntax-n--15706-4287-u--goPTerm arg-0 e-15) ext-0)))))))) ((4) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (let ((e-20 (vector-ref sc0 5))) (CoreC-45Core-C-60C-42C-62 (lambda (eta-0) (CoreC-45Core-C-60C-42C-62 (lambda (eta-1) (CoreC-45Core-C-60C-42C-62 (lambda (eta-2) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-3) (let ((sc1 eta-3)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (vector 4 e-16 e-5 eta-4 eta-5 eta-6)))))))))) (IdrisC-45Syntax-n--15706-4287-u--goPTerm arg-0 e-17) eta-2)) (IdrisC-45Syntax-n--15706-4287-u--goPTerm arg-0 e-18) eta-1)) (IdrisC-45Syntax-n--15706-4287-u--goPTerm arg-0 e-19) eta-0)) (lambda (eta-0) (IdrisC-45Syntax-n--15706-4306-u--goPClauses arg-0 e-20 eta-0)) ext-0))))))) ((5) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc1 eta-0)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 5 e-21 e-5))))))) (lambda (eta-0) (IdrisC-45Syntax-n--15706-4308-u--goPDecls arg-0 e-22 eta-0)) ext-0)))) (else (let ((e-23 (vector-ref sc0 1))) (let ((e-24 (vector-ref sc0 2))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc1 eta-0)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 6 e-23 e-5))))))) (IdrisC-45Syntax-n--15706-4287-u--goPTerm arg-0 e-24) ext-0)))))))) -(define IdrisC-45Syntax-n--15706-4308-u--goPDecls (lambda (arg-0 arg-1 ext-0) (let ((sc0 arg-1)) (if (null? sc0) (vector 1 '()) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (CoreC-45Core-C-60C-42C-62 (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-2) (cons e-5 eta-2)))))))) (lambda (eta-1) (IdrisC-45Syntax-n--15706-4292-u--goPDecl arg-0 e-2 eta-1)) eta-0)) (lambda (eta-0) (IdrisC-45Syntax-n--15706-4308-u--goPDecls arg-0 e-3 eta-0)) ext-0))))))) -(define IdrisC-45Syntax-n--15706-4292-u--goPDecl (lambda (arg-0 arg-1 ext-0) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (CoreC-45Core-C-60C-42C-62 (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-2) (vector 0 e-0 e-1 e-2 e-5 eta-2)))))))) (lambda (eta-1) (IdrisC-45Syntax-n--15706-4311-u--goPFnOpts arg-0 e-3 eta-1)) eta-0)) (lambda (eta-0) (IdrisC-45Syntax-n--15706-4293-u--goPTypeDecl arg-0 e-4 eta-0)) ext-0))))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc1 eta-0)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc1 1))) (vector 1 (vector 1 e-5 e-7))))))) (lambda (eta-0) (IdrisC-45Syntax-n--15706-4306-u--goPClauses arg-0 e-6 eta-0)) ext-0)))) ((2) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (let ((e-10 (vector-ref sc0 4))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc1 eta-0)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 2 e-7 e-8 e-9 e-5))))))) (lambda (eta-0) (IdrisC-45Syntax-n--15706-4294-u--goPDataDecl arg-0 e-10 eta-0)) ext-0)))))) ((3) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (CoreC-45Core-C-60C-42C-62 (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-2) (vector 3 e-11 e-5 eta-2)))))))) (IdrisC-45Syntax-n--15706-4302-u--go4TupledPTerms arg-0 e-12) eta-0)) (lambda (eta-0) (IdrisC-45Syntax-n--15706-4308-u--goPDecls arg-0 e-13 eta-0)) ext-0))))) ((4) (let ((e-14 (vector-ref sc0 1))) (let ((e-15 (vector-ref sc0 2))) (let ((e-16 (vector-ref sc0 3))) (CoreC-45Core-C-60C-42C-62 (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-2) (vector 4 e-14 e-5 eta-2)))))))) (lambda (eta-1) (IdrisC-45Syntax-n--15706-4300-u--goPairedPTerms arg-0 e-15 eta-1)) eta-0)) (lambda (eta-0) (IdrisC-45Syntax-n--15706-4308-u--goPDecls arg-0 e-16 eta-0)) ext-0))))) ((5) (let ((e-17 (vector-ref sc0 1))) (let ((e-18 (vector-ref sc0 2))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc1 eta-0)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 5 e-17 e-5))))))) (IdrisC-45Syntax-n--15706-4287-u--goPTerm arg-0 e-18) ext-0)))) ((6) (let ((e-19 (vector-ref sc0 1))) (let ((e-20 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 3))) (let ((e-22 (vector-ref sc0 4))) (let ((e-23 (vector-ref sc0 5))) (let ((e-24 (vector-ref sc0 6))) (let ((e-25 (vector-ref sc0 7))) (let ((e-26 (vector-ref sc0 8))) (let ((e-27 (vector-ref sc0 9))) (CoreC-45Core-C-60C-42C-62 (lambda (eta-0) (CoreC-45Core-C-60C-42C-62 (lambda (eta-1) (CoreC-45Core-C-60C-42C-62 (lambda (eta-2) (CoreC-45Core-C-60C-42C-62 (lambda (eta-3) (CoreC-45Core-C-60C-42C-62 (lambda (eta-4) (CoreC-45Core-C-60C-42C-62 (lambda (eta-5) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-6) (let ((sc1 eta-6)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-7) (lambda (eta-8) (lambda (eta-9) (lambda (eta-10) (lambda (eta-11) (lambda (eta-12) (vector 6 e-19 e-20 e-5 eta-7 eta-8 eta-9 eta-10 eta-11 eta-12))))))))))))) (lambda (eta-6) (IdrisC-45Syntax-n--15706-4300-u--goPairedPTerms arg-0 e-21 eta-6)) eta-5)) (lambda (eta-5) (vector 1 e-22)) eta-4)) (lambda (eta-4) (vector 1 e-23)) eta-3)) (IdrisC-45Syntax-n--15706-4301-u--go3TupledPTerms arg-0 e-24) eta-2)) (lambda (eta-2) (vector 1 e-25)) eta-1)) (lambda (eta-1) (vector 1 e-26)) eta-0)) (lambda (eta-0) (IdrisC-45Syntax-n--15706-4308-u--goPDecls arg-0 e-27 eta-0)) ext-0))))))))))) ((7) (let ((e-28 (vector-ref sc0 1))) (let ((e-29 (vector-ref sc0 2))) (let ((e-30 (vector-ref sc0 3))) (let ((e-31 (vector-ref sc0 4))) (let ((e-32 (vector-ref sc0 5))) (let ((e-33 (vector-ref sc0 6))) (let ((e-34 (vector-ref sc0 7))) (let ((e-35 (vector-ref sc0 8))) (let ((e-36 (vector-ref sc0 9))) (let ((e-37 (vector-ref sc0 10))) (let ((e-38 (vector-ref sc0 11))) (CoreC-45Core-C-60C-42C-62 (lambda (eta-0) (CoreC-45Core-C-60C-42C-62 (lambda (eta-1) (CoreC-45Core-C-60C-42C-62 (lambda (eta-2) (CoreC-45Core-C-60C-42C-62 (lambda (eta-3) (CoreC-45Core-C-60C-42C-62 (lambda (eta-4) (CoreC-45Core-C-60C-42C-62 (lambda (eta-5) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-6) (let ((sc1 eta-6)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-7) (lambda (eta-8) (lambda (eta-9) (lambda (eta-10) (lambda (eta-11) (lambda (eta-12) (vector 7 e-28 e-29 e-30 e-31 e-5 eta-7 eta-8 eta-9 eta-10 eta-11 eta-12))))))))))))) (IdrisC-45Syntax-n--15706-4301-u--go3TupledPTerms arg-0 e-32) eta-5)) (lambda (eta-5) (IdrisC-45Syntax-n--15706-4300-u--goPairedPTerms arg-0 e-33 eta-5)) eta-4)) (lambda (eta-4) (vector 1 e-34)) eta-3)) (lambda (eta-3) (IdrisC-45Syntax-n--15706-4299-u--goPTerms arg-0 e-35 eta-3)) eta-2)) (lambda (eta-2) (vector 1 e-36)) eta-1)) (lambda (eta-1) (vector 1 e-37)) eta-0)) (lambda (eta-0) (IdrisC-45Syntax-n--15706-4307-u--goMPDecls arg-0 e-38 eta-0)) ext-0))))))))))))) ((8) (let ((e-39 (vector-ref sc0 1))) (let ((e-40 (vector-ref sc0 2))) (let ((e-41 (vector-ref sc0 3))) (let ((e-42 (vector-ref sc0 4))) (let ((e-43 (vector-ref sc0 5))) (let ((e-44 (vector-ref sc0 6))) (let ((e-45 (vector-ref sc0 7))) (CoreC-45Core-C-60C-42C-62 (lambda (eta-0) (CoreC-45Core-C-60C-42C-62 (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-2) (let ((sc1 eta-2)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-3) (lambda (eta-4) (vector 8 e-39 e-40 e-41 e-42 e-5 eta-3 eta-4))))))))) (IdrisC-45Syntax-n--15706-4302-u--go4TupledPTerms arg-0 e-43) eta-1)) (lambda (eta-1) (vector 1 e-44)) eta-0)) (lambda (eta-0) (IdrisC-45Syntax-n--15706-4310-u--goPFields arg-0 e-45 eta-0)) ext-0))))))))) ((9) (let ((e-46 (vector-ref sc0 1))) (let ((e-47 (vector-ref sc0 2))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc1 eta-0)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 9 e-46 e-5))))))) (lambda (eta-0) (IdrisC-45Syntax-n--15706-4308-u--goPDecls arg-0 e-47 eta-0)) ext-0)))) ((10) (vector 1 arg-1)) ((11) (let ((e-52 (vector-ref sc0 1))) (let ((e-53 (vector-ref sc0 2))) (let ((e-54 (vector-ref sc0 3))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc1 eta-0)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 11 e-52 e-53 e-5))))))) (lambda (eta-0) (IdrisC-45Syntax-n--15706-4308-u--goPDecls arg-0 e-54 eta-0)) ext-0))))) ((12) (let ((e-55 (vector-ref sc0 1))) (let ((e-56 (vector-ref sc0 2))) (let ((e-57 (vector-ref sc0 3))) (let ((e-58 (vector-ref sc0 4))) (CoreC-45Core-C-60C-42C-62 (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-2) (vector 12 e-55 e-56 e-5 eta-2)))))))) (IdrisC-45Syntax-n--15706-4287-u--goPTerm arg-0 e-57) eta-0)) (IdrisC-45Syntax-n--15706-4287-u--goPTerm arg-0 e-58) ext-0)))))) ((13) (let ((e-59 (vector-ref sc0 1))) (let ((e-60 (vector-ref sc0 2))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc1 eta-0)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 13 e-59 e-5))))))) (IdrisC-45Syntax-n--15706-4287-u--goPTerm arg-0 e-60) ext-0)))) ((14) (vector 1 arg-1)) (else (vector 1 arg-1)))))) -(define IdrisC-45Syntax-n--15706-4294-u--goPDataDecl (lambda (arg-0 arg-1 ext-0) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (CoreC-45Core-C-60C-42C-62 (lambda (eta-0) (CoreC-45Core-C-60C-42C-62 (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-2) (let ((sc1 eta-2)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-3) (lambda (eta-4) (vector 0 e-0 e-1 e-5 eta-3 eta-4))))))))) (IdrisC-45Syntax-n--15706-4287-u--goPTerm arg-0 e-2) eta-1)) (lambda (eta-1) (vector 1 e-3)) eta-0)) (lambda (eta-0) (IdrisC-45Syntax-n--15706-4312-u--goPTypeDecls arg-0 e-4 eta-0)) ext-0))))))) (else (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc1 eta-0)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc1 1))) (vector 1 (vector 1 e-5 e-6 e-8))))))) (IdrisC-45Syntax-n--15706-4287-u--goPTerm arg-0 e-7) ext-0))))))))) -(define IdrisC-45Syntax-n--15706-4306-u--goPClauses (lambda (arg-0 arg-1 ext-0) (let ((sc0 arg-1)) (if (null? sc0) (vector 1 '()) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (CoreC-45Core-C-60C-42C-62 (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-2) (cons e-5 eta-2)))))))) (lambda (eta-1) (IdrisC-45Syntax-n--15706-4291-u--goPClause arg-0 e-2 eta-1)) eta-0)) (lambda (eta-0) (IdrisC-45Syntax-n--15706-4306-u--goPClauses arg-0 e-3 eta-0)) ext-0))))))) -(define IdrisC-45Syntax-n--15706-4291-u--goPClause (lambda (arg-0 arg-1 ext-0) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (CoreC-45Core-C-60C-42C-62 (lambda (eta-0) (CoreC-45Core-C-60C-42C-62 (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-2) (let ((sc1 eta-2)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-3) (lambda (eta-4) (vector 0 e-0 e-5 eta-3 eta-4))))))))) (IdrisC-45Syntax-n--15706-4287-u--goPTerm arg-0 e-1) eta-1)) (IdrisC-45Syntax-n--15706-4287-u--goPTerm arg-0 e-2) eta-0)) (lambda (eta-0) (IdrisC-45Syntax-n--15706-4308-u--goPDecls arg-0 e-3 eta-0)) ext-0)))))) ((1) (let ((e-4 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 2))) (let ((e-6 (vector-ref sc0 3))) (let ((e-7 (vector-ref sc0 4))) (let ((e-8 (vector-ref sc0 5))) (let ((e-9 (vector-ref sc0 6))) (CoreC-45Core-C-60C-42C-62 (lambda (eta-0) (CoreC-45Core-C-60C-42C-62 (lambda (eta-1) (CoreC-45Core-C-60C-42C-62 (lambda (eta-2) (CoreC-45Core-C-60C-42C-62 (lambda (eta-3) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-4) (let ((sc1 eta-4)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc1 1))) (vector 1 (lambda (eta-5) (lambda (eta-6) (lambda (eta-7) (lambda (eta-8) (vector 1 e-4 e-10 eta-5 eta-6 eta-7 eta-8))))))))))) (IdrisC-45Syntax-n--15706-4287-u--goPTerm arg-0 e-5) eta-3)) (IdrisC-45Syntax-n--15706-4287-u--goPTerm arg-0 e-6) eta-2)) (lambda (eta-2) (vector 1 e-7)) eta-1)) (lambda (eta-1) (vector 1 e-8)) eta-0)) (lambda (eta-0) (IdrisC-45Syntax-n--15706-4306-u--goPClauses arg-0 e-9 eta-0)) ext-0)))))))) (else (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc1 eta-0)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 2 e-10 e-5))))))) (IdrisC-45Syntax-n--15706-4287-u--goPTerm arg-0 e-11) ext-0)))))))) -(define IdrisC-45Syntax-n--15706-4298-u--goMPTerm (lambda (arg-0 arg-1 ext-0) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 1 (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc1 eta-0)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-5))))))) (IdrisC-45Syntax-n--15706-4287-u--goPTerm arg-0 e-2) ext-0))))))) -(define IdrisC-45Syntax-n--15706-4307-u--goMPDecls (lambda (arg-0 arg-1 ext-0) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 1 (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc1 eta-0)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-5))))))) (lambda (eta-0) (IdrisC-45Syntax-n--15706-4308-u--goPDecls arg-0 e-2 eta-0)) ext-0))))))) -(define IdrisC-45Syntax-n--15706-4302-u--go4TupledPTerms (lambda (arg-0 arg-3) (let ((sc0 arg-3)) (if (null? sc0) (lambda (eta-0) (vector 1 '())) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (lambda (clam-0) (let ((sc2 e-7)) (let ((e-10 (car sc2))) (let ((e-11 (cdr sc2))) (let ((sc3 e-11)) (let ((e-14 (car sc3))) (let ((e-15 (cdr sc3))) (CoreC-45Core-C-60C-42C-62 (lambda (eta-0) (CoreC-45Core-C-60C-42C-62 (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-2) (let ((sc4 eta-2)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc4 1))) (vector 1 (lambda (u--d) (lambda (u--ts) (cons (cons e-6 (cons e-10 (cons e-5 u--d))) u--ts))))))))) (lambda (eta-2) (IdrisC-45Syntax-n--15706-4296-u--goPiInfo arg-0 e-14 eta-2)) eta-1)) (IdrisC-45Syntax-n--15706-4287-u--goPTerm arg-0 e-15) eta-0)) (IdrisC-45Syntax-n--15706-4302-u--go4TupledPTerms arg-0 e-3) clam-0))))))))))))))))) -(define IdrisC-45Syntax-n--15706-4301-u--go3TupledPTerms (lambda (arg-0 arg-3) (let ((sc0 arg-3)) (if (null? sc0) (lambda (eta-0) (vector 1 '())) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (lambda (clam-0) (let ((sc1 e-2)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (let ((sc2 e-7)) (let ((e-10 (car sc2))) (let ((e-11 (cdr sc2))) (CoreC-45Core-C-60C-42C-62 (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (let ((sc3 eta-1)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (vector 1 (lambda (eta-2) (cons (cons e-6 (cons e-10 e-5)) eta-2)))))))) (IdrisC-45Syntax-n--15706-4287-u--goPTerm arg-0 e-11) eta-0)) (IdrisC-45Syntax-n--15706-4301-u--go3TupledPTerms arg-0 e-3) clam-0)))))))))))))) -(define IdrisC-45Syntax-n--12358-1148-u--getName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (let ((e-2 (vector-ref sc0 3))) e-2)))) -(define IdrisC-45Syntax-n--13131-2847-u--dePure (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((7) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (let ((u--tm (vector 7 e-0 (vector 0 e-3 e-4) e-2))) (IdrisC-45Syntax-case--showPrecC-44dePure-2863 arg-0 arg-1 arg-2 arg-3 e-0 e-3 e-4 e-2 u--tm (CoreC-45Name-u--C-61C-61_Eq_Name (CoreC-45Name-dropNS e-4) (vector 1 "pure")))))))(else arg-4)))))))(else arg-4))))) -(define IdrisC-45Syntax-n--13131-2848-u--deGuard (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((7) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((e-4 (vector-ref sc1 3))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (let ((u--tm (vector 0 e-0 (vector 7 e-2 (vector 0 e-5 e-6) e-4)))) (IdrisC-45Syntax-case--showPrecC-44deGuard-2917 arg-0 arg-1 arg-2 arg-3 e-2 e-5 e-6 e-4 e-0 u--tm (CoreC-45Name-u--C-61C-61_Eq_Name (CoreC-45Name-dropNS e-6) (vector 1 "guard")))))))(else arg-4)))))))(else arg-4))))))(else arg-4))))) -(define IdrisC-45Syntax-u--toBuf_TTC_SyntaxInfo (lambda (arg-0 arg-1 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10258) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-10256 arg-10258))) (lambda (arg-10258) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-10258 eta-1)))) (cons (lambda (arg-10256) (lambda (arg-10258) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10259) (lambda (arg-10260) (lambda (eta-2) (IdrisC-45Syntax-u--toBuf_TTC_Fixity arg-10259 arg-10260 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (IdrisC-45Syntax-u--fromBuf_TTC_Fixity arg-10259 eta-2)))) (cons (lambda (arg-10259) (lambda (arg-10260) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-10259 arg-10260))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-10259 eta-2))))) arg-10256 arg-10258 eta-1)))) (lambda (arg-10258) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10259) (lambda (eta-2) (IdrisC-45Syntax-u--toBuf_TTC_Fixity arg-10256 arg-10259 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (IdrisC-45Syntax-u--fromBuf_TTC_Fixity arg-10259 eta-2)))) (cons (lambda (arg-10256) (lambda (arg-10259) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-10256 arg-10259))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-10259 eta-2))))) arg-10258 eta-1))))) arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10255) (lambda (arg-10257) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-10255 arg-10257))) (lambda (arg-10259) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-10259 eta-1)))) (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10259) (lambda (eta-2) (IdrisC-45Syntax-u--toBuf_TTC_Fixity arg-10256 arg-10259 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (IdrisC-45Syntax-u--fromBuf_TTC_Fixity arg-10259 eta-2)))) (cons (lambda (arg-10256) (lambda (arg-10259) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-10256 arg-10259))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-10259 eta-2))))) arg-10255 arg-10257 eta-1)))) (lambda (arg-10259) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-2) (IdrisC-45Syntax-u--toBuf_TTC_Fixity arg-10255 arg-10257 eta-2)))) (lambda (arg-10260) (lambda (eta-2) (IdrisC-45Syntax-u--fromBuf_TTC_Fixity arg-10260 eta-2)))) (cons (lambda (arg-10255) (lambda (arg-10257) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-10255 arg-10257))) (lambda (arg-10260) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-10260 eta-2))))) arg-10259 eta-1))))) arg-10258 eta-0)))) arg-0 (LibrariesC-45DataC-45StringMap-toList (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) e-0))) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10258) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-10256 arg-10258))) (lambda (arg-10258) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-10258 eta-1)))) (cons (lambda (arg-10256) (lambda (arg-10258) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-10256 arg-10258))) (lambda (arg-10258) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-10258 eta-1))))) arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10255) (lambda (arg-10257) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-10255 arg-10257))) (lambda (arg-10259) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-10259 eta-1)))) (cons (lambda (arg-10255) (lambda (arg-10257) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-10255 arg-10257))) (lambda (arg-10259) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-10259 eta-1))))) arg-10258 eta-0)))) arg-0 (LibrariesC-45DataC-45StringMap-toList (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 2))) e-1))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10258) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_Name arg-10256 arg-10258 eta-1)))) (lambda (arg-10258) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10258 eta-1)))) (cons (lambda (arg-10256) (lambda (arg-10258) (lambda (eta-1) (IdrisC-45Syntax-u--toBuf_TTC_IFaceInfo arg-10256 arg-10258 eta-1)))) (lambda (arg-10258) (lambda (eta-1) (IdrisC-45Syntax-u--fromBuf_TTC_IFaceInfo arg-10258 eta-1))))) arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_Name arg-10255 arg-10257 eta-1)))) (lambda (arg-10259) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10259 eta-1)))) (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-1) (IdrisC-45Syntax-u--toBuf_TTC_IFaceInfo arg-10255 arg-10257 eta-1)))) (lambda (arg-10259) (lambda (eta-1) (IdrisC-45Syntax-u--fromBuf_TTC_IFaceInfo arg-10259 eta-1))))) arg-10258 eta-0)))) arg-0 (DataC-45List-filter (lambda (u--n) (PreludeC-45Types-elem (cons (lambda (arg-2) (lambda (arg-3) (CoreC-45Name-u--C-61C-61_Eq_Name arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (CoreC-45Name-u--C-47C-61_Eq_Name arg-4 arg-5)))) (Builtin-fst u--n) (let ((sc2 arg-1)) (let ((e-3 (vector-ref sc2 4))) e-3)))) (LibrariesC-45DataC-45ANameMap-toList (let ((sc2 arg-1)) (let ((e-2 (vector-ref sc2 3))) e-2)))) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-27 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10258) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_Name arg-10256 arg-10258 eta-1)))) (lambda (arg-10258) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10258 eta-1)))) (cons (lambda (arg-10256) (lambda (arg-10258) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-10256 arg-10258))) (lambda (arg-10258) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-10258 eta-1))))) arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_Name arg-10255 arg-10257 eta-1)))) (lambda (arg-10259) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10259 eta-1)))) (cons (lambda (arg-10255) (lambda (arg-10257) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-10255 arg-10257))) (lambda (arg-10259) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-10259 eta-1))))) arg-10258 eta-0)))) arg-0 (DataC-45List-filter (lambda (u--n) (IdrisC-45Syntax-case--toBuf-3849 arg-1 arg-0 u--n (LibrariesC-45DataC-45NameMap-lookup (Builtin-fst u--n) (let ((sc3 arg-1)) (let ((e-11 (vector-ref sc3 6))) e-11))))) (LibrariesC-45DataC-45ANameMap-toList (let ((sc3 arg-1)) (let ((e-4 (vector-ref sc3 5))) e-4)))) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-28 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_Name arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10258 eta-0)))) arg-0 (let ((sc4 arg-1)) (let ((e-11 (vector-ref sc4 7))) e-11)) ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else ((TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-0 (let ((sc5 arg-1)) (let ((e-10 (vector-ref sc5 9))) e-10))) ext-0))))))))))))))))))))))) -(define IdrisC-45Syntax-u--toBuf_TTC_Method (lambda (arg-0 arg-1 ext-0) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((act-24 (CoreC-45TTC-u--toBuf_TTC_Name arg-0 e-0 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((act-25 ((CoreC-45TTC-u--toBuf_TTC_RigCount arg-0 e-1) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_TotalReq arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_TotalReq arg-10258 eta-0)))) arg-0 e-2 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else ((TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-0 e-3) ext-0)))))))))))))))))))) -(define IdrisC-45Syntax-u--toBuf_TTC_IFaceInfo (lambda (arg-0 arg-1 ext-0) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((act-24 (CoreC-45TTC-u--toBuf_TTC_Name arg-0 e-0 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_Name arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10258 eta-0)))) arg-0 e-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (vector 0 e-7))) (else (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_Name arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10258 eta-0)))) arg-0 e-2 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-8 (vector-ref sc3 1))) (vector 0 e-8))) (else (let ((act-27 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-10255 arg-10257))) (lambda (arg-10258) (lambda (eta-0) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-10258 eta-0)))) arg-0 e-3 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (vector 0 e-9))) (else (let ((act-28 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (IdrisC-45Syntax-u--toBuf_TTC_Method arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (IdrisC-45Syntax-u--fromBuf_TTC_Method arg-10258 eta-0)))) arg-0 e-4 ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 1))) (vector 0 e-10))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10258) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_Name arg-10256 arg-10258 eta-1)))) (lambda (arg-10258) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10258 eta-1)))) (cons (lambda (arg-10256) (lambda (arg-10258) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10259) (lambda (arg-10260) (lambda (eta-2) (TTImpC-45TTImp-u--toBuf_TTC_ImpClause arg-10259 arg-10260 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (TTImpC-45TTImp-u--fromBuf_TTC_ImpClause arg-10259 eta-2)))) arg-10256 arg-10258 eta-1)))) (lambda (arg-10258) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10256) (lambda (arg-10259) (lambda (eta-2) (TTImpC-45TTImp-u--toBuf_TTC_ImpClause arg-10256 arg-10259 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (TTImpC-45TTImp-u--fromBuf_TTC_ImpClause arg-10259 eta-2)))) arg-10258 eta-1))))) arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_Name arg-10255 arg-10257 eta-1)))) (lambda (arg-10259) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10259 eta-1)))) (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10256) (lambda (arg-10259) (lambda (eta-2) (TTImpC-45TTImp-u--toBuf_TTC_ImpClause arg-10256 arg-10259 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (TTImpC-45TTImp-u--fromBuf_TTC_ImpClause arg-10259 eta-2)))) arg-10255 arg-10257 eta-1)))) (lambda (arg-10259) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-2) (TTImpC-45TTImp-u--toBuf_TTC_ImpClause arg-10255 arg-10257 eta-2)))) (lambda (arg-10260) (lambda (eta-2) (TTImpC-45TTImp-u--fromBuf_TTC_ImpClause arg-10260 eta-2)))) arg-10259 eta-1))))) arg-10258 eta-0)))) arg-0 e-5 ext-0)))))))))))))))))))))))))))))) -(define IdrisC-45Syntax-u--toBuf_TTC_Fixity (lambda (arg-0 arg-1 ext-0) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (LibrariesC-45UtilsC-45Binary-tag arg-0 0 ext-0)) ((1) (LibrariesC-45UtilsC-45Binary-tag arg-0 1 ext-0)) ((2) (LibrariesC-45UtilsC-45Binary-tag arg-0 2 ext-0)) (else (LibrariesC-45UtilsC-45Binary-tag arg-0 3 ext-0)))))) +(define IdrisC-45Syntax-n--9101-2242-u--showCase (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (case (vector-ref arg-4 0) ((0) (let ((e-1 (vector-ref arg-4 2))) (let ((e-2 (vector-ref arg-4 3))) (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--show_Show_PTerm e-1) (PreludeC-45TypesC-45String-C-43C-43 " => " (IdrisC-45Syntax-u--show_Show_PTerm e-2)))))) ((1) " | <>") (else (let ((e-11 (vector-ref arg-4 2))) (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--show_Show_PTerm e-11) " impossible")))))) +(define IdrisC-45Syntax-n--9101-2158-u--showAlt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (case (vector-ref arg-8 0) ((0) (let ((e-1 (vector-ref arg-8 2))) (let ((e-2 (vector-ref arg-8 3))) (PreludeC-45TypesC-45String-C-43C-43 " | " (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--show_Show_PTerm e-1) (PreludeC-45TypesC-45String-C-43C-43 " => " (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--show_Show_PTerm e-2) ";"))))))) ((1) " | <>") (else (let ((e-11 (vector-ref arg-8 2))) (PreludeC-45TypesC-45String-C-43C-43 " | " (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--show_Show_PTerm e-11) " impossible;"))))))) +(define IdrisC-45Syntax-n--11547-4221-u--insertAll (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (if (null? arg-5) (vector 1 arg-4) (let ((e-2 (car arg-5))) (let ((e-3 (cdr arg-5))) (let ((e-6 (car e-2))) (let ((e-7 (cdr e-2))) (let ((act-24 (CoreC-45Context-u--resolved_HasNames_Name arg-3 e-6 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (let ((e-4 (cdr arg-1))) (((e-4 arg-3) e-7) ext-0)))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref act-25 1))) (IdrisC-45Syntax-n--11547-4221-u--insertAll arg-1 arg-2 arg-3 (LibrariesC-45DataC-45ANameMap-addName e-5 e-8 arg-4) e-3 ext-0)))))))))))))))) +(define IdrisC-45Syntax-n--11546-4180-u--insertAll (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (if (null? arg-5) (vector 1 arg-4) (let ((e-2 (car arg-5))) (let ((e-3 (cdr arg-5))) (let ((e-6 (car e-2))) (let ((e-7 (cdr e-2))) (let ((act-24 (CoreC-45Context-u--full_HasNames_Name arg-3 e-6 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (let ((e-1 (car arg-1))) (((e-1 arg-3) e-7) ext-0)))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref act-25 1))) (IdrisC-45Syntax-n--11546-4180-u--insertAll arg-1 arg-2 arg-3 (LibrariesC-45DataC-45ANameMap-addName e-5 e-8 arg-4) e-3 ext-0)))))))))))))))) +(define IdrisC-45Syntax-n--11753-4358-u--initSaveDocStrings (lambda () (LibrariesC-45DataC-45NameMap-empty))) +(define IdrisC-45Syntax-n--11753-4356-u--initPrefix (lambda () (LibrariesC-45DataC-45StringMap-fromList (cons (cons "-" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))))))))) (cons (cons "negate" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))))))))) '()))))) +(define IdrisC-45Syntax-n--11753-4355-u--initInfix (lambda () (LibrariesC-45DataC-45StringMap-insert "=" (cons 2 0) (LibrariesC-45DataC-45StringMap-empty)))) +(define IdrisC-45Syntax-n--11753-4357-u--initDocStrings (lambda () (LibrariesC-45DataC-45ANameMap-empty))) +(define IdrisC-45Syntax-n--11826-4439-u--goPiInfo (lambda (arg-0 arg-1 ext-0) (case (vector-ref arg-1 0) ((3) (let ((e-1 (vector-ref arg-1 1))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-2 (vector-ref eta-0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-0 1))) (vector 1 (vector 3 e-5)))))) (IdrisC-45Syntax-n--11826-4430-u--goPTerm arg-0 e-1) ext-0)))(else (vector 1 arg-1))))) +(define IdrisC-45Syntax-n--11826-4443-u--goPairedPTerms (lambda (arg-0 arg-2 ext-0) (if (null? arg-2) (vector 1 '()) (let ((e-2 (car arg-2))) (let ((e-3 (cdr arg-2))) (let ((e-6 (car e-2))) (let ((e-7 (cdr e-2))) (CoreC-45Core-C-60C-42C-62 (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (case (vector-ref eta-1 0) ((0) (let ((e-4 (vector-ref eta-1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref eta-1 1))) (vector 1 (lambda (eta-2) (cons (cons e-6 e-5) eta-2))))))) (IdrisC-45Syntax-n--11826-4430-u--goPTerm arg-0 e-7) eta-0)) (lambda (eta-0) (IdrisC-45Syntax-n--11826-4443-u--goPairedPTerms arg-0 e-3 eta-0)) ext-0)))))))) +(define IdrisC-45Syntax-n--11826-4455-u--goPTypeDecls (lambda (arg-0 arg-1 ext-0) (if (null? arg-1) (vector 1 '()) (let ((e-2 (car arg-1))) (let ((e-3 (cdr arg-1))) (CoreC-45Core-C-60C-42C-62 (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (case (vector-ref eta-1 0) ((0) (let ((e-4 (vector-ref eta-1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref eta-1 1))) (vector 1 (lambda (eta-2) (cons e-5 eta-2))))))) (lambda (eta-1) (IdrisC-45Syntax-n--11826-4436-u--goPTypeDecl arg-0 e-2 eta-1)) eta-0)) (lambda (eta-0) (IdrisC-45Syntax-n--11826-4455-u--goPTypeDecls arg-0 e-3 eta-0)) ext-0)))))) +(define IdrisC-45Syntax-n--11826-4436-u--goPTypeDecl (lambda (arg-0 arg-1 ext-0) (let ((e-0 (vector-ref arg-1 0))) (let ((e-1 (vector-ref arg-1 1))) (let ((e-2 (vector-ref arg-1 2))) (let ((e-3 (vector-ref arg-1 3))) (let ((e-4 (vector-ref arg-1 4))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-5 (vector-ref eta-0 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref eta-0 1))) (vector 1 (vector e-0 e-1 e-2 e-3 e-5)))))) (IdrisC-45Syntax-n--11826-4430-u--goPTerm arg-0 e-4) ext-0)))))))) +(define IdrisC-45Syntax-n--11826-4442-u--goPTerms (lambda (arg-0 arg-1 ext-0) (if (null? arg-1) (vector 1 '()) (let ((e-2 (car arg-1))) (let ((e-3 (cdr arg-1))) (CoreC-45Core-C-60C-42C-62 (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (case (vector-ref eta-1 0) ((0) (let ((e-4 (vector-ref eta-1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref eta-1 1))) (vector 1 (lambda (eta-2) (cons e-5 eta-2))))))) (IdrisC-45Syntax-n--11826-4430-u--goPTerm arg-0 e-2) eta-0)) (lambda (eta-0) (IdrisC-45Syntax-n--11826-4442-u--goPTerms arg-0 e-3 eta-0)) ext-0)))))) +(define IdrisC-45Syntax-n--11826-4430-u--goPTerm (lambda (arg-0 arg-1) (case (vector-ref arg-1 0) ((0) (arg-0 arg-1)) ((1) (let ((e-2 (vector-ref arg-1 1))) (let ((e-3 (vector-ref arg-1 2))) (let ((e-4 (vector-ref arg-1 3))) (let ((e-5 (vector-ref arg-1 4))) (let ((e-6 (vector-ref arg-1 5))) (let ((e-7 (vector-ref arg-1 6))) (lambda (eta-0) (let ((act-24 (CoreC-45Core-C-60C-42C-62 (lambda (eta-1) (CoreC-45Core-C-60C-42C-62 (lambda (eta-2) (CoreC-45Core-C-60C-42C-62 (lambda (eta-3) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-4) (case (vector-ref eta-4 0) ((0) (let ((e-8 (vector-ref eta-4 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref eta-4 1))) (vector 1 (lambda (eta-5) (lambda (eta-6) (lambda (eta-7) (vector 1 e-2 e-3 e-8 eta-5 eta-6 eta-7))))))))) (lambda (eta-4) (IdrisC-45Syntax-n--11826-4439-u--goPiInfo arg-0 e-4 eta-4)) eta-3)) (lambda (eta-3) (vector 1 e-5)) eta-2)) (IdrisC-45Syntax-n--11826-4430-u--goPTerm arg-0 e-6) eta-1)) (IdrisC-45Syntax-n--11826-4430-u--goPTerm arg-0 e-7) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-8 (vector-ref act-24 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref act-24 1))) ((arg-0 e-8) eta-0))))))))))))) ((2) (let ((e-8 (vector-ref arg-1 1))) (let ((e-9 (vector-ref arg-1 2))) (let ((e-10 (vector-ref arg-1 3))) (let ((e-11 (vector-ref arg-1 4))) (let ((e-12 (vector-ref arg-1 5))) (let ((e-13 (vector-ref arg-1 6))) (lambda (eta-0) (let ((act-24 (CoreC-45Core-C-60C-42C-62 (lambda (eta-1) (CoreC-45Core-C-60C-42C-62 (lambda (eta-2) (CoreC-45Core-C-60C-42C-62 (lambda (eta-3) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-4) (case (vector-ref eta-4 0) ((0) (let ((e-2 (vector-ref eta-4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-4 1))) (vector 1 (lambda (eta-5) (lambda (eta-6) (lambda (eta-7) (vector 2 e-8 e-9 e-5 eta-5 eta-6 eta-7))))))))) (lambda (eta-4) (IdrisC-45Syntax-n--11826-4439-u--goPiInfo arg-0 e-10 eta-4)) eta-3)) (lambda (eta-3) (vector 1 e-11)) eta-2)) (IdrisC-45Syntax-n--11826-4430-u--goPTerm arg-0 e-12) eta-1)) (IdrisC-45Syntax-n--11826-4430-u--goPTerm arg-0 e-13) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) ((arg-0 e-5) eta-0))))))))))))) ((3) (let ((e-14 (vector-ref arg-1 1))) (let ((e-15 (vector-ref arg-1 2))) (let ((e-16 (vector-ref arg-1 3))) (let ((e-17 (vector-ref arg-1 4))) (let ((e-18 (vector-ref arg-1 5))) (let ((e-19 (vector-ref arg-1 6))) (let ((e-20 (vector-ref arg-1 7))) (lambda (eta-0) (let ((act-24 (CoreC-45Core-C-60C-42C-62 (lambda (eta-1) (CoreC-45Core-C-60C-42C-62 (lambda (eta-2) (CoreC-45Core-C-60C-42C-62 (lambda (eta-3) (CoreC-45Core-C-60C-42C-62 (lambda (eta-4) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-5) (case (vector-ref eta-5 0) ((0) (let ((e-2 (vector-ref eta-5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-5 1))) (vector 1 (lambda (eta-6) (lambda (eta-7) (lambda (eta-8) (lambda (eta-9) (vector 3 e-14 e-15 e-5 eta-6 eta-7 eta-8 eta-9)))))))))) (IdrisC-45Syntax-n--11826-4430-u--goPTerm arg-0 e-16) eta-4)) (IdrisC-45Syntax-n--11826-4430-u--goPTerm arg-0 e-17) eta-3)) (IdrisC-45Syntax-n--11826-4430-u--goPTerm arg-0 e-18) eta-2)) (IdrisC-45Syntax-n--11826-4430-u--goPTerm arg-0 e-19) eta-1)) (lambda (eta-1) (IdrisC-45Syntax-n--11826-4449-u--goPClauses arg-0 e-20 eta-1)) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) ((arg-0 e-5) eta-0)))))))))))))) ((4) (let ((e-21 (vector-ref arg-1 1))) (let ((e-22 (vector-ref arg-1 2))) (let ((e-23 (vector-ref arg-1 3))) (lambda (eta-0) (let ((act-24 (CoreC-45Core-C-60C-42C-62 (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-2) (case (vector-ref eta-2 0) ((0) (let ((e-2 (vector-ref eta-2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-2 1))) (vector 1 (lambda (eta-3) (vector 4 e-21 e-5 eta-3))))))) (IdrisC-45Syntax-n--11826-4430-u--goPTerm arg-0 e-22) eta-1)) (lambda (eta-1) (IdrisC-45Syntax-n--11826-4449-u--goPClauses arg-0 e-23 eta-1)) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) ((arg-0 e-5) eta-0)))))))))) ((5) (let ((e-24 (vector-ref arg-1 1))) (let ((e-25 (vector-ref arg-1 2))) (let ((e-26 (vector-ref arg-1 3))) (lambda (eta-0) (let ((act-24 (CoreC-45Core-C-60C-42C-62 (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-2) (case (vector-ref eta-2 0) ((0) (let ((e-2 (vector-ref eta-2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-2 1))) (vector 1 (lambda (eta-3) (vector 5 e-24 e-5 eta-3))))))) (lambda (eta-2) (IdrisC-45Syntax-n--11826-4451-u--goPDecls arg-0 e-25 eta-2)) eta-1)) (IdrisC-45Syntax-n--11826-4430-u--goPTerm arg-0 e-26) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) ((arg-0 e-5) eta-0)))))))))) ((6) (let ((e-27 (vector-ref arg-1 1))) (let ((e-28 (vector-ref arg-1 2))) (lambda (eta-0) (let ((act-24 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (case (vector-ref eta-1 0) ((0) (let ((e-2 (vector-ref eta-1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-1 1))) (vector 1 (vector 6 e-27 e-5)))))) (lambda (eta-1) (IdrisC-45Syntax-n--11826-4452-u--goPFieldUpdates arg-0 e-28 eta-1)) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) ((arg-0 e-5) eta-0))))))))) ((7) (let ((e-29 (vector-ref arg-1 1))) (let ((e-30 (vector-ref arg-1 2))) (let ((e-31 (vector-ref arg-1 3))) (lambda (eta-0) (let ((act-24 (CoreC-45Core-C-60C-42C-62 (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-2) (case (vector-ref eta-2 0) ((0) (let ((e-2 (vector-ref eta-2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-2 1))) (vector 1 (lambda (eta-3) (vector 7 e-29 e-5 eta-3))))))) (IdrisC-45Syntax-n--11826-4430-u--goPTerm arg-0 e-30) eta-1)) (IdrisC-45Syntax-n--11826-4430-u--goPTerm arg-0 e-31) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) ((arg-0 e-5) eta-0)))))))))) ((8) (let ((e-32 (vector-ref arg-1 1))) (let ((e-33 (vector-ref arg-1 2))) (let ((e-34 (vector-ref arg-1 3))) (lambda (eta-0) (let ((act-24 (CoreC-45Core-C-60C-42C-62 (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-2) (case (vector-ref eta-2 0) ((0) (let ((e-2 (vector-ref eta-2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-2 1))) (vector 1 (lambda (eta-3) (vector 8 e-32 e-5 eta-3))))))) (IdrisC-45Syntax-n--11826-4430-u--goPTerm arg-0 e-33) eta-1)) (IdrisC-45Syntax-n--11826-4430-u--goPTerm arg-0 e-34) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) ((arg-0 e-5) eta-0)))))))))) ((10) (let ((e-35 (vector-ref arg-1 1))) (let ((e-36 (vector-ref arg-1 2))) (let ((e-37 (vector-ref arg-1 3))) (lambda (eta-0) (let ((act-24 (CoreC-45Core-C-60C-42C-62 (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-2) (case (vector-ref eta-2 0) ((0) (let ((e-2 (vector-ref eta-2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-2 1))) (vector 1 (lambda (eta-3) (vector 10 e-35 e-5 eta-3))))))) (IdrisC-45Syntax-n--11826-4430-u--goPTerm arg-0 e-36) eta-1)) (IdrisC-45Syntax-n--11826-4430-u--goPTerm arg-0 e-37) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) ((arg-0 e-5) eta-0)))))))))) ((9) (let ((e-38 (vector-ref arg-1 1))) (let ((e-39 (vector-ref arg-1 2))) (let ((e-40 (vector-ref arg-1 3))) (let ((e-41 (vector-ref arg-1 4))) (lambda (eta-0) (let ((act-24 (CoreC-45Core-C-60C-42C-62 (lambda (eta-1) (CoreC-45Core-C-60C-42C-62 (lambda (eta-2) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-3) (case (vector-ref eta-3 0) ((0) (let ((e-2 (vector-ref eta-3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-3 1))) (vector 1 (lambda (eta-4) (lambda (eta-5) (vector 9 e-38 e-5 eta-4 eta-5)))))))) (IdrisC-45Syntax-n--11826-4430-u--goPTerm arg-0 e-39) eta-2)) (lambda (eta-2) (vector 1 e-40)) eta-1)) (IdrisC-45Syntax-n--11826-4430-u--goPTerm arg-0 e-41) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) ((arg-0 e-5) eta-0))))))))))) ((11) (let ((e-42 (vector-ref arg-1 1))) (let ((e-43 (vector-ref arg-1 2))) (let ((e-44 (vector-ref arg-1 3))) (lambda (eta-0) (let ((act-24 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (case (vector-ref eta-1 0) ((0) (let ((e-2 (vector-ref eta-1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-1 1))) (vector 1 (vector 11 e-42 e-43 e-5)))))) (IdrisC-45Syntax-n--11826-4430-u--goPTerm arg-0 e-44) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) ((arg-0 e-5) eta-0)))))))))) ((12) (let ((e-45 (vector-ref arg-1 1))) (let ((e-46 (vector-ref arg-1 2))) (lambda (eta-0) (let ((act-24 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (case (vector-ref eta-1 0) ((0) (let ((e-2 (vector-ref eta-1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-1 1))) (vector 1 (vector 12 e-45 e-5)))))) (IdrisC-45Syntax-n--11826-4430-u--goPTerm arg-0 e-46) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) ((arg-0 e-5) eta-0))))))))) ((13) (let ((e-47 (vector-ref arg-1 1))) (let ((e-48 (vector-ref arg-1 2))) (lambda (eta-0) (let ((act-24 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (case (vector-ref eta-1 0) ((0) (let ((e-2 (vector-ref eta-1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-1 1))) (vector 1 (vector 13 e-47 e-5)))))) (IdrisC-45Syntax-n--11826-4430-u--goPTerm arg-0 e-48) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) ((arg-0 e-5) eta-0))))))))) ((14) (arg-0 arg-1)) ((15) (arg-0 arg-1)) ((16) (let ((e-53 (vector-ref arg-1 1))) (let ((e-54 (vector-ref arg-1 2))) (lambda (eta-0) (let ((act-24 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (case (vector-ref eta-1 0) ((0) (let ((e-2 (vector-ref eta-1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-1 1))) (vector 1 (vector 16 e-53 e-5)))))) (IdrisC-45Syntax-n--11826-4430-u--goPTerm arg-0 e-54) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) ((arg-0 e-5) eta-0))))))))) ((17) (arg-0 arg-1)) ((18) (let ((e-57 (vector-ref arg-1 1))) (let ((e-58 (vector-ref arg-1 2))) (lambda (eta-0) (let ((act-24 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (case (vector-ref eta-1 0) ((0) (let ((e-2 (vector-ref eta-1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-1 1))) (vector 1 (vector 18 e-57 e-5)))))) (lambda (eta-1) (CoreC-45Core-traverseC-39 (lambda (eta-2) (lambda (eta-3) (IdrisC-45Syntax-n--11826-4435-u--goPDecl arg-0 eta-2 eta-3))) e-58 '() eta-1)) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) ((arg-0 e-5) eta-0))))))))) ((19) (let ((e-59 (vector-ref arg-1 1))) (let ((e-60 (vector-ref arg-1 2))) (lambda (eta-0) (let ((act-24 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (case (vector-ref eta-1 0) ((0) (let ((e-2 (vector-ref eta-1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-1 1))) (vector 1 (vector 19 e-59 e-5)))))) (IdrisC-45Syntax-n--11826-4430-u--goPTerm arg-0 e-60) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) ((arg-0 e-5) eta-0))))))))) ((20) (let ((e-61 (vector-ref arg-1 1))) (let ((e-62 (vector-ref arg-1 2))) (lambda (eta-0) (let ((act-24 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (case (vector-ref eta-1 0) ((0) (let ((e-2 (vector-ref eta-1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-1 1))) (vector 1 (vector 20 e-61 e-5)))))) (IdrisC-45Syntax-n--11826-4430-u--goPTerm arg-0 e-62) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) ((arg-0 e-5) eta-0))))))))) ((21) (arg-0 arg-1)) ((22) (arg-0 arg-1)) ((23) (let ((e-67 (vector-ref arg-1 1))) (let ((e-68 (vector-ref arg-1 2))) (let ((e-69 (vector-ref arg-1 3))) (let ((e-70 (vector-ref arg-1 4))) (lambda (eta-0) (let ((act-24 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (case (vector-ref eta-1 0) ((0) (let ((e-2 (vector-ref eta-1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-1 1))) (vector 1 (vector 23 e-67 e-68 e-69 e-5)))))) (IdrisC-45Syntax-n--11826-4430-u--goPTerm arg-0 e-70) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) ((arg-0 e-5) eta-0))))))))))) ((24) (let ((e-71 (vector-ref arg-1 1))) (let ((e-72 (vector-ref arg-1 2))) (lambda (eta-0) (let ((act-24 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (case (vector-ref eta-1 0) ((0) (let ((e-2 (vector-ref eta-1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-1 1))) (vector 1 (vector 24 e-71 e-5)))))) (IdrisC-45Syntax-n--11826-4430-u--goPTerm arg-0 e-72) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) ((arg-0 e-5) eta-0))))))))) ((25) (arg-0 arg-1)) ((26) (arg-0 arg-1)) ((27) (let ((e-75 (vector-ref arg-1 1))) (let ((e-76 (vector-ref arg-1 2))) (let ((e-77 (vector-ref arg-1 3))) (let ((e-78 (vector-ref arg-1 4))) (let ((e-79 (vector-ref arg-1 5))) (lambda (eta-0) (let ((act-24 (CoreC-45Core-C-60C-42C-62 (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-2) (case (vector-ref eta-2 0) ((0) (let ((e-2 (vector-ref eta-2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-2 1))) (vector 1 (lambda (eta-3) (vector 27 e-75 e-76 e-77 e-5 eta-3))))))) (IdrisC-45Syntax-n--11826-4430-u--goPTerm arg-0 e-78) eta-1)) (IdrisC-45Syntax-n--11826-4430-u--goPTerm arg-0 e-79) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) ((arg-0 e-5) eta-0)))))))))))) ((28) (let ((e-80 (vector-ref arg-1 1))) (let ((e-81 (vector-ref arg-1 2))) (let ((e-82 (vector-ref arg-1 3))) (let ((e-83 (vector-ref arg-1 4))) (lambda (eta-0) (let ((act-24 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (case (vector-ref eta-1 0) ((0) (let ((e-2 (vector-ref eta-1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-1 1))) (vector 1 (vector 28 e-80 e-81 e-82 e-5)))))) (IdrisC-45Syntax-n--11826-4430-u--goPTerm arg-0 e-83) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) ((arg-0 e-5) eta-0))))))))))) ((29) (let ((e-84 (vector-ref arg-1 1))) (let ((e-85 (vector-ref arg-1 2))) (let ((e-86 (vector-ref arg-1 3))) (let ((e-87 (vector-ref arg-1 4))) (lambda (eta-0) (let ((act-24 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (case (vector-ref eta-1 0) ((0) (let ((e-2 (vector-ref eta-1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-1 1))) (vector 1 (vector 29 e-84 e-85 e-86 e-5)))))) (IdrisC-45Syntax-n--11826-4430-u--goPTerm arg-0 e-87) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) ((arg-0 e-5) eta-0))))))))))) ((30) (let ((e-88 (vector-ref arg-1 1))) (let ((e-89 (vector-ref arg-1 2))) (let ((e-90 (vector-ref arg-1 3))) (let ((e-91 (vector-ref arg-1 4))) (lambda (eta-0) (let ((act-24 (CoreC-45Core-C-60C-42C-62 (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-2) (case (vector-ref eta-2 0) ((0) (let ((e-2 (vector-ref eta-2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-2 1))) (vector 1 (lambda (eta-3) (vector 30 e-88 e-89 e-5 eta-3))))))) (IdrisC-45Syntax-n--11826-4430-u--goPTerm arg-0 e-90) eta-1)) (lambda (eta-1) (vector 1 e-91)) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) ((arg-0 e-5) eta-0))))))))))) ((31) (let ((e-92 (vector-ref arg-1 1))) (let ((e-93 (vector-ref arg-1 2))) (let ((e-94 (vector-ref arg-1 3))) (lambda (eta-0) (let ((act-24 (CoreC-45Core-C-60C-42C-62 (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-2) (case (vector-ref eta-2 0) ((0) (let ((e-2 (vector-ref eta-2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-2 1))) (vector 1 (lambda (eta-3) (vector 31 e-92 e-5 eta-3))))))) (IdrisC-45Syntax-n--11826-4430-u--goPTerm arg-0 e-93) eta-1)) (IdrisC-45Syntax-n--11826-4430-u--goPTerm arg-0 e-94) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) ((arg-0 e-5) eta-0)))))))))) ((32) (let ((e-95 (vector-ref arg-1 1))) (let ((e-96 (vector-ref arg-1 2))) (lambda (eta-0) (let ((act-24 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (case (vector-ref eta-1 0) ((0) (let ((e-2 (vector-ref eta-1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-1 1))) (vector 1 (vector 32 e-95 e-5)))))) (IdrisC-45Syntax-n--11826-4430-u--goPTerm arg-0 e-96) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) ((arg-0 e-5) eta-0))))))))) ((33) (let ((e-97 (vector-ref arg-1 1))) (let ((e-98 (vector-ref arg-1 2))) (lambda (eta-0) (let ((act-24 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (case (vector-ref eta-1 0) ((0) (let ((e-2 (vector-ref eta-1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-1 1))) (vector 1 (vector 33 e-97 e-5)))))) (lambda (eta-1) (IdrisC-45Syntax-n--11826-4447-u--goPStrings arg-0 e-98 eta-1)) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) ((arg-0 e-5) eta-0))))))))) ((34) (let ((e-99 (vector-ref arg-1 1))) (let ((e-100 (vector-ref arg-1 2))) (let ((e-101 (vector-ref arg-1 3))) (lambda (eta-0) (let ((act-24 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (case (vector-ref eta-1 0) ((0) (let ((e-2 (vector-ref eta-1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-1 1))) (vector 1 (vector 34 e-99 e-100 e-5)))))) (lambda (eta-1) (IdrisC-45Syntax-n--11826-4446-u--goPStringLines arg-0 e-101 eta-1)) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) ((arg-0 e-5) eta-0)))))))))) ((35) (let ((e-102 (vector-ref arg-1 1))) (let ((e-103 (vector-ref arg-1 2))) (let ((e-104 (vector-ref arg-1 3))) (lambda (eta-0) (let ((act-24 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (case (vector-ref eta-1 0) ((0) (let ((e-2 (vector-ref eta-1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-1 1))) (vector 1 (vector 35 e-102 e-103 e-5)))))) (lambda (eta-1) (IdrisC-45Syntax-n--11826-4448-u--goPDos arg-0 e-104 eta-1)) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) ((arg-0 e-5) eta-0)))))))))) ((36) (let ((e-105 (vector-ref arg-1 1))) (let ((e-106 (vector-ref arg-1 2))) (lambda (eta-0) (let ((act-24 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (case (vector-ref eta-1 0) ((0) (let ((e-2 (vector-ref eta-1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-1 1))) (vector 1 (vector 36 e-105 e-5)))))) (IdrisC-45Syntax-n--11826-4430-u--goPTerm arg-0 e-106) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) ((arg-0 e-5) eta-0))))))))) ((37) (let ((e-107 (vector-ref arg-1 1))) (let ((e-108 (vector-ref arg-1 2))) (lambda (eta-0) (let ((act-24 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (case (vector-ref eta-1 0) ((0) (let ((e-2 (vector-ref eta-1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-1 1))) (vector 1 (vector 37 e-107 e-5)))))) (IdrisC-45Syntax-n--11826-4430-u--goPTerm arg-0 e-108) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) ((arg-0 e-5) eta-0))))))))) ((38) (let ((e-109 (vector-ref arg-1 1))) (let ((e-110 (vector-ref arg-1 2))) (let ((e-111 (vector-ref arg-1 3))) (lambda (eta-0) (let ((act-24 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (case (vector-ref eta-1 0) ((0) (let ((e-2 (vector-ref eta-1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-1 1))) (vector 1 (vector 38 e-109 e-110 e-5)))))) (lambda (eta-1) (IdrisC-45Syntax-n--11826-4443-u--goPairedPTerms arg-0 e-111 eta-1)) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) ((arg-0 e-5) eta-0)))))))))) ((39) (let ((e-112 (vector-ref arg-1 1))) (let ((e-113 (vector-ref arg-1 2))) (let ((e-114 (vector-ref arg-1 3))) (lambda (eta-0) (let ((act-24 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (case (vector-ref eta-1 0) ((0) (let ((e-2 (vector-ref eta-1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-1 1))) (vector 1 (vector 39 e-112 e-113 e-5)))))) (lambda (eta-1) (IdrisC-45Syntax-n--11826-4443-u--goPairedPTerms arg-0 e-114 eta-1)) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) ((arg-0 e-5) eta-0)))))))))) ((40) (let ((e-115 (vector-ref arg-1 1))) (let ((e-116 (vector-ref arg-1 2))) (let ((e-117 (vector-ref arg-1 3))) (lambda (eta-0) (let ((act-24 (CoreC-45Core-C-60C-42C-62 (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-2) (case (vector-ref eta-2 0) ((0) (let ((e-2 (vector-ref eta-2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-2 1))) (vector 1 (lambda (eta-3) (vector 40 e-115 e-5 eta-3))))))) (IdrisC-45Syntax-n--11826-4430-u--goPTerm arg-0 e-116) eta-1)) (IdrisC-45Syntax-n--11826-4430-u--goPTerm arg-0 e-117) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) ((arg-0 e-5) eta-0)))))))))) ((41) (let ((e-118 (vector-ref arg-1 1))) (let ((e-119 (vector-ref arg-1 2))) (let ((e-120 (vector-ref arg-1 3))) (let ((e-121 (vector-ref arg-1 4))) (let ((e-122 (vector-ref arg-1 5))) (lambda (eta-0) (let ((act-24 (CoreC-45Core-C-60C-42C-62 (lambda (eta-1) (CoreC-45Core-C-60C-42C-62 (lambda (eta-2) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-3) (case (vector-ref eta-3 0) ((0) (let ((e-2 (vector-ref eta-3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-3 1))) (vector 1 (lambda (eta-4) (lambda (eta-5) (vector 41 e-118 e-119 e-5 eta-4 eta-5)))))))) (IdrisC-45Syntax-n--11826-4430-u--goPTerm arg-0 e-120) eta-2)) (IdrisC-45Syntax-n--11826-4430-u--goPTerm arg-0 e-121) eta-1)) (IdrisC-45Syntax-n--11826-4430-u--goPTerm arg-0 e-122) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) ((arg-0 e-5) eta-0)))))))))))) ((42) (arg-0 arg-1)) ((43) (let ((e-124 (vector-ref arg-1 1))) (let ((e-125 (vector-ref arg-1 2))) (let ((e-126 (vector-ref arg-1 3))) (let ((e-127 (vector-ref arg-1 4))) (lambda (eta-0) (let ((act-24 (CoreC-45Core-C-60C-42C-62 (lambda (eta-1) (CoreC-45Core-C-60C-42C-62 (lambda (eta-2) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-3) (case (vector-ref eta-3 0) ((0) (let ((e-2 (vector-ref eta-3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-3 1))) (vector 1 (lambda (eta-4) (lambda (eta-5) (vector 43 e-124 e-5 eta-4 eta-5)))))))) (IdrisC-45Syntax-n--11826-4430-u--goPTerm arg-0 e-125) eta-2)) (IdrisC-45Syntax-n--11826-4430-u--goPTerm arg-0 e-126) eta-1)) (IdrisC-45Syntax-n--11826-4430-u--goPTerm arg-0 e-127) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) ((arg-0 e-5) eta-0))))))))))) ((44) (let ((e-128 (vector-ref arg-1 1))) (let ((e-129 (vector-ref arg-1 2))) (let ((e-130 (vector-ref arg-1 3))) (lambda (eta-0) (let ((act-24 (CoreC-45Core-C-60C-42C-62 (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-2) (case (vector-ref eta-2 0) ((0) (let ((e-2 (vector-ref eta-2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-2 1))) (vector 1 (lambda (eta-3) (vector 44 e-128 e-5 eta-3))))))) (IdrisC-45Syntax-n--11826-4430-u--goPTerm arg-0 e-129) eta-1)) (lambda (eta-1) (IdrisC-45Syntax-n--11826-4448-u--goPDos arg-0 e-130 eta-1)) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) ((arg-0 e-5) eta-0)))))))))) ((45) (let ((e-131 (vector-ref arg-1 1))) (let ((e-132 (vector-ref arg-1 2))) (let ((e-133 (vector-ref arg-1 3))) (lambda (eta-0) (let ((act-24 (CoreC-45Core-C-60C-42C-62 (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-2) (case (vector-ref eta-2 0) ((0) (let ((e-2 (vector-ref eta-2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-2 1))) (vector 1 (lambda (eta-3) (vector 45 e-131 e-5 eta-3))))))) (IdrisC-45Syntax-n--11826-4430-u--goPTerm arg-0 e-132) eta-1)) (IdrisC-45Syntax-n--11826-4430-u--goPTerm arg-0 e-133) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) ((arg-0 e-5) eta-0)))))))))) ((46) (let ((e-134 (vector-ref arg-1 1))) (let ((e-135 (vector-ref arg-1 2))) (let ((e-136 (vector-ref arg-1 3))) (let ((e-137 (vector-ref arg-1 4))) (lambda (eta-0) (let ((act-24 (CoreC-45Core-C-60C-42C-62 (lambda (eta-1) (CoreC-45Core-C-60C-42C-62 (lambda (eta-2) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-3) (case (vector-ref eta-3 0) ((0) (let ((e-2 (vector-ref eta-3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-3 1))) (vector 1 (lambda (eta-4) (lambda (eta-5) (vector 46 e-134 e-5 eta-4 eta-5)))))))) (IdrisC-45Syntax-n--11826-4430-u--goPTerm arg-0 e-135) eta-2)) (lambda (eta-2) (IdrisC-45Syntax-n--11826-4441-u--goMPTerm arg-0 e-136 eta-2)) eta-1)) (IdrisC-45Syntax-n--11826-4430-u--goPTerm arg-0 e-137) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) ((arg-0 e-5) eta-0))))))))))) ((47) (let ((e-138 (vector-ref arg-1 1))) (let ((e-139 (vector-ref arg-1 2))) (let ((e-140 (vector-ref arg-1 3))) (lambda (eta-0) (let ((act-24 (CoreC-45Core-C-60C-42C-62 (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-2) (case (vector-ref eta-2 0) ((0) (let ((e-2 (vector-ref eta-2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-2 1))) (vector 1 (lambda (eta-3) (vector 47 e-138 e-5 eta-3))))))) (IdrisC-45Syntax-n--11826-4430-u--goPTerm arg-0 e-139) eta-1)) (lambda (eta-1) (IdrisC-45Syntax-n--11826-4441-u--goMPTerm arg-0 e-140 eta-1)) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) ((arg-0 e-5) eta-0)))))))))) ((50) (let ((e-141 (vector-ref arg-1 1))) (let ((e-142 (vector-ref arg-1 2))) (let ((e-143 (vector-ref arg-1 3))) (lambda (eta-0) (let ((act-24 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (case (vector-ref eta-1 0) ((0) (let ((e-2 (vector-ref eta-1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-1 1))) (vector 1 (vector 50 e-141 e-142 e-5)))))) (IdrisC-45Syntax-n--11826-4430-u--goPTerm arg-0 e-143) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) ((arg-0 e-5) eta-0)))))))))) ((48) (let ((e-144 (vector-ref arg-1 1))) (let ((e-145 (vector-ref arg-1 2))) (let ((e-146 (vector-ref arg-1 3))) (lambda (eta-0) (let ((act-24 (CoreC-45Core-C-60C-42C-62 (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-2) (case (vector-ref eta-2 0) ((0) (let ((e-2 (vector-ref eta-2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-2 1))) (vector 1 (lambda (eta-3) (vector 48 e-144 e-5 eta-3))))))) (IdrisC-45Syntax-n--11826-4430-u--goPTerm arg-0 e-145) eta-1)) (lambda (eta-1) (vector 1 e-146)) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) ((arg-0 e-5) eta-0)))))))))) ((49) (let ((e-147 (vector-ref arg-1 1))) (let ((e-148 (vector-ref arg-1 2))) (arg-0 (vector 49 e-147 e-148))))) (else (let ((e-149 (vector-ref arg-1 1))) (let ((e-150 (vector-ref arg-1 2))) (let ((e-151 (vector-ref arg-1 3))) (lambda (eta-0) (let ((act-24 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (case (vector-ref eta-1 0) ((0) (let ((e-2 (vector-ref eta-1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-1 1))) (vector 1 (vector 51 e-149 e-150 e-5)))))) (IdrisC-45Syntax-n--11826-4430-u--goPTerm arg-0 e-151) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) ((arg-0 e-5) eta-0))))))))))))) +(define IdrisC-45Syntax-n--11826-4447-u--goPStrings (lambda (arg-0 arg-1 ext-0) (if (null? arg-1) (vector 1 '()) (let ((e-2 (car arg-1))) (let ((e-3 (cdr arg-1))) (CoreC-45Core-C-60C-42C-62 (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (case (vector-ref eta-1 0) ((0) (let ((e-4 (vector-ref eta-1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref eta-1 1))) (vector 1 (lambda (eta-2) (cons e-5 eta-2))))))) (lambda (eta-1) (IdrisC-45Syntax-n--11826-4432-u--goPStr arg-0 e-2 eta-1)) eta-0)) (lambda (eta-0) (IdrisC-45Syntax-n--11826-4447-u--goPStrings arg-0 e-3 eta-0)) ext-0)))))) +(define IdrisC-45Syntax-n--11826-4446-u--goPStringLines (lambda (arg-0 arg-1 ext-0) (if (null? arg-1) (vector 1 '()) (let ((e-2 (car arg-1))) (let ((e-3 (cdr arg-1))) (CoreC-45Core-C-60C-42C-62 (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (case (vector-ref eta-1 0) ((0) (let ((e-4 (vector-ref eta-1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref eta-1 1))) (vector 1 (lambda (eta-2) (cons e-5 eta-2))))))) (lambda (eta-1) (IdrisC-45Syntax-n--11826-4447-u--goPStrings arg-0 e-2 eta-1)) eta-0)) (lambda (eta-0) (IdrisC-45Syntax-n--11826-4446-u--goPStringLines arg-0 e-3 eta-0)) ext-0)))))) +(define IdrisC-45Syntax-n--11826-4432-u--goPStr (lambda (arg-0 arg-1 ext-0) (case (vector-ref arg-1 0) ((1) (let ((e-0 (vector-ref arg-1 1))) (let ((e-1 (vector-ref arg-1 2))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-2 (vector-ref eta-0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-0 1))) (vector 1 (vector 1 e-0 e-5)))))) (IdrisC-45Syntax-n--11826-4430-u--goPTerm arg-0 e-1) ext-0))))(else (vector 1 arg-1))))) +(define IdrisC-45Syntax-n--11826-4454-u--goPFnOpts (lambda (arg-0 arg-1 ext-0) (if (null? arg-1) (vector 1 '()) (let ((e-2 (car arg-1))) (let ((e-3 (cdr arg-1))) (CoreC-45Core-C-60C-42C-62 (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (case (vector-ref eta-1 0) ((0) (let ((e-4 (vector-ref eta-1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref eta-1 1))) (vector 1 (lambda (eta-2) (cons e-5 eta-2))))))) (lambda (eta-1) (IdrisC-45Syntax-n--11826-4440-u--goPFnOpt arg-0 e-2 eta-1)) eta-0)) (lambda (eta-0) (IdrisC-45Syntax-n--11826-4454-u--goPFnOpts arg-0 e-3 eta-0)) ext-0)))))) +(define IdrisC-45Syntax-n--11826-4440-u--goPFnOpt (lambda (arg-0 arg-1 ext-0) (case (vector-ref arg-1 0) ((0) (vector 1 arg-1)) (else (let ((e-1 (vector-ref arg-1 1))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-2 (vector-ref eta-0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-0 1))) (vector 1 (vector 1 e-5)))))) (lambda (eta-0) (IdrisC-45Syntax-n--11826-4442-u--goPTerms arg-0 e-1 eta-0)) ext-0)))))) +(define IdrisC-45Syntax-n--11826-4453-u--goPFields (lambda (arg-0 arg-1 ext-0) (if (null? arg-1) (vector 1 '()) (let ((e-2 (car arg-1))) (let ((e-3 (cdr arg-1))) (CoreC-45Core-C-60C-42C-62 (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (case (vector-ref eta-1 0) ((0) (let ((e-4 (vector-ref eta-1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref eta-1 1))) (vector 1 (lambda (eta-2) (cons e-5 eta-2))))))) (lambda (eta-1) (IdrisC-45Syntax-n--11826-4438-u--goPField arg-0 e-2 eta-1)) eta-0)) (lambda (eta-0) (IdrisC-45Syntax-n--11826-4453-u--goPFields arg-0 e-3 eta-0)) ext-0)))))) +(define IdrisC-45Syntax-n--11826-4452-u--goPFieldUpdates (lambda (arg-0 arg-1 ext-0) (if (null? arg-1) (vector 1 '()) (let ((e-2 (car arg-1))) (let ((e-3 (cdr arg-1))) (CoreC-45Core-C-60C-42C-62 (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (case (vector-ref eta-1 0) ((0) (let ((e-4 (vector-ref eta-1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref eta-1 1))) (vector 1 (lambda (eta-2) (cons e-5 eta-2))))))) (lambda (eta-1) (IdrisC-45Syntax-n--11826-4431-u--goPFieldUpdate arg-0 e-2 eta-1)) eta-0)) (lambda (eta-0) (IdrisC-45Syntax-n--11826-4452-u--goPFieldUpdates arg-0 e-3 eta-0)) ext-0)))))) +(define IdrisC-45Syntax-n--11826-4431-u--goPFieldUpdate (lambda (arg-0 arg-1 ext-0) (case (vector-ref arg-1 0) ((0) (let ((e-0 (vector-ref arg-1 1))) (let ((e-1 (vector-ref arg-1 2))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-2 (vector-ref eta-0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-0 1))) (vector 1 (vector 0 e-0 e-5)))))) (IdrisC-45Syntax-n--11826-4430-u--goPTerm arg-0 e-1) ext-0)))) (else (let ((e-2 (vector-ref arg-1 1))) (let ((e-3 (vector-ref arg-1 2))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-4 (vector-ref eta-0 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref eta-0 1))) (vector 1 (vector 1 e-2 e-5)))))) (IdrisC-45Syntax-n--11826-4430-u--goPTerm arg-0 e-3) ext-0))))))) +(define IdrisC-45Syntax-n--11826-4438-u--goPField (lambda (arg-0 arg-1 ext-0) (let ((e-0 (vector-ref arg-1 0))) (let ((e-1 (vector-ref arg-1 1))) (let ((e-2 (vector-ref arg-1 2))) (let ((e-3 (vector-ref arg-1 3))) (let ((e-4 (vector-ref arg-1 4))) (let ((e-5 (vector-ref arg-1 5))) (CoreC-45Core-C-60C-42C-62 (lambda (eta-0) (CoreC-45Core-C-60C-42C-62 (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-2) (case (vector-ref eta-2 0) ((0) (let ((e-6 (vector-ref eta-2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref eta-2 1))) (vector 1 (lambda (eta-3) (lambda (eta-4) (vector e-0 e-1 e-2 e-6 eta-3 eta-4)))))))) (lambda (eta-2) (IdrisC-45Syntax-n--11826-4439-u--goPiInfo arg-0 e-3 eta-2)) eta-1)) (lambda (eta-1) (vector 1 e-4)) eta-0)) (IdrisC-45Syntax-n--11826-4430-u--goPTerm arg-0 e-5) ext-0))))))))) +(define IdrisC-45Syntax-n--11826-4448-u--goPDos (lambda (arg-0 arg-1 ext-0) (if (null? arg-1) (vector 1 '()) (let ((e-2 (car arg-1))) (let ((e-3 (cdr arg-1))) (CoreC-45Core-C-60C-42C-62 (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (case (vector-ref eta-1 0) ((0) (let ((e-4 (vector-ref eta-1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref eta-1 1))) (vector 1 (lambda (eta-2) (cons e-5 eta-2))))))) (lambda (eta-1) (IdrisC-45Syntax-n--11826-4433-u--goPDo arg-0 e-2 eta-1)) eta-0)) (lambda (eta-0) (IdrisC-45Syntax-n--11826-4448-u--goPDos arg-0 e-3 eta-0)) ext-0)))))) +(define IdrisC-45Syntax-n--11826-4433-u--goPDo (lambda (arg-0 arg-1 ext-0) (case (vector-ref arg-1 0) ((0) (let ((e-0 (vector-ref arg-1 1))) (let ((e-1 (vector-ref arg-1 2))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-2 (vector-ref eta-0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-0 1))) (vector 1 (vector 0 e-0 e-5)))))) (IdrisC-45Syntax-n--11826-4430-u--goPTerm arg-0 e-1) ext-0)))) ((1) (let ((e-2 (vector-ref arg-1 1))) (let ((e-3 (vector-ref arg-1 2))) (let ((e-4 (vector-ref arg-1 3))) (let ((e-5 (vector-ref arg-1 4))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-6 (vector-ref eta-0 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref eta-0 1))) (vector 1 (vector 1 e-2 e-3 e-4 e-6)))))) (IdrisC-45Syntax-n--11826-4430-u--goPTerm arg-0 e-5) ext-0)))))) ((2) (let ((e-6 (vector-ref arg-1 1))) (let ((e-7 (vector-ref arg-1 2))) (let ((e-8 (vector-ref arg-1 3))) (let ((e-9 (vector-ref arg-1 4))) (CoreC-45Core-C-60C-42C-62 (lambda (eta-0) (CoreC-45Core-C-60C-42C-62 (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-2) (case (vector-ref eta-2 0) ((0) (let ((e-2 (vector-ref eta-2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-2 1))) (vector 1 (lambda (eta-3) (lambda (eta-4) (vector 2 e-6 e-5 eta-3 eta-4)))))))) (IdrisC-45Syntax-n--11826-4430-u--goPTerm arg-0 e-7) eta-1)) (IdrisC-45Syntax-n--11826-4430-u--goPTerm arg-0 e-8) eta-0)) (lambda (eta-0) (IdrisC-45Syntax-n--11826-4449-u--goPClauses arg-0 e-9 eta-0)) ext-0)))))) ((3) (let ((e-10 (vector-ref arg-1 1))) (let ((e-11 (vector-ref arg-1 2))) (let ((e-12 (vector-ref arg-1 3))) (let ((e-13 (vector-ref arg-1 4))) (let ((e-14 (vector-ref arg-1 5))) (let ((e-15 (vector-ref arg-1 6))) (CoreC-45Core-C-60C-42C-62 (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (case (vector-ref eta-1 0) ((0) (let ((e-2 (vector-ref eta-1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-1 1))) (vector 1 (lambda (eta-2) (vector 3 e-10 e-11 e-12 e-13 e-5 eta-2))))))) (IdrisC-45Syntax-n--11826-4430-u--goPTerm arg-0 e-14) eta-0)) (IdrisC-45Syntax-n--11826-4430-u--goPTerm arg-0 e-15) ext-0)))))))) ((4) (let ((e-16 (vector-ref arg-1 1))) (let ((e-17 (vector-ref arg-1 2))) (let ((e-18 (vector-ref arg-1 3))) (let ((e-19 (vector-ref arg-1 4))) (let ((e-20 (vector-ref arg-1 5))) (CoreC-45Core-C-60C-42C-62 (lambda (eta-0) (CoreC-45Core-C-60C-42C-62 (lambda (eta-1) (CoreC-45Core-C-60C-42C-62 (lambda (eta-2) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-3) (case (vector-ref eta-3 0) ((0) (let ((e-2 (vector-ref eta-3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-3 1))) (vector 1 (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (vector 4 e-16 e-5 eta-4 eta-5 eta-6))))))))) (IdrisC-45Syntax-n--11826-4430-u--goPTerm arg-0 e-17) eta-2)) (IdrisC-45Syntax-n--11826-4430-u--goPTerm arg-0 e-18) eta-1)) (IdrisC-45Syntax-n--11826-4430-u--goPTerm arg-0 e-19) eta-0)) (lambda (eta-0) (IdrisC-45Syntax-n--11826-4449-u--goPClauses arg-0 e-20 eta-0)) ext-0))))))) ((5) (let ((e-21 (vector-ref arg-1 1))) (let ((e-22 (vector-ref arg-1 2))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-2 (vector-ref eta-0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-0 1))) (vector 1 (vector 5 e-21 e-5)))))) (lambda (eta-0) (IdrisC-45Syntax-n--11826-4451-u--goPDecls arg-0 e-22 eta-0)) ext-0)))) (else (let ((e-23 (vector-ref arg-1 1))) (let ((e-24 (vector-ref arg-1 2))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-2 (vector-ref eta-0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-0 1))) (vector 1 (vector 6 e-23 e-5)))))) (IdrisC-45Syntax-n--11826-4430-u--goPTerm arg-0 e-24) ext-0))))))) +(define IdrisC-45Syntax-n--11826-4451-u--goPDecls (lambda (arg-0 arg-1 ext-0) (if (null? arg-1) (vector 1 '()) (let ((e-2 (car arg-1))) (let ((e-3 (cdr arg-1))) (CoreC-45Core-C-60C-42C-62 (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (case (vector-ref eta-1 0) ((0) (let ((e-4 (vector-ref eta-1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref eta-1 1))) (vector 1 (lambda (eta-2) (cons e-5 eta-2))))))) (lambda (eta-1) (IdrisC-45Syntax-n--11826-4435-u--goPDecl arg-0 e-2 eta-1)) eta-0)) (lambda (eta-0) (IdrisC-45Syntax-n--11826-4451-u--goPDecls arg-0 e-3 eta-0)) ext-0)))))) +(define IdrisC-45Syntax-n--11826-4435-u--goPDecl (lambda (arg-0 arg-1 ext-0) (case (vector-ref arg-1 0) ((0) (let ((e-0 (vector-ref arg-1 1))) (let ((e-1 (vector-ref arg-1 2))) (let ((e-2 (vector-ref arg-1 3))) (let ((e-3 (vector-ref arg-1 4))) (let ((e-4 (vector-ref arg-1 5))) (CoreC-45Core-C-60C-42C-62 (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (case (vector-ref eta-1 0) ((0) (let ((e-5 (vector-ref eta-1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref eta-1 1))) (vector 1 (lambda (eta-2) (vector 0 e-0 e-1 e-2 e-5 eta-2))))))) (lambda (eta-1) (IdrisC-45Syntax-n--11826-4454-u--goPFnOpts arg-0 e-3 eta-1)) eta-0)) (lambda (eta-0) (IdrisC-45Syntax-n--11826-4436-u--goPTypeDecl arg-0 e-4 eta-0)) ext-0))))))) ((1) (let ((e-5 (vector-ref arg-1 1))) (let ((e-6 (vector-ref arg-1 2))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-2 (vector-ref eta-0 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref eta-0 1))) (vector 1 (vector 1 e-5 e-7)))))) (lambda (eta-0) (IdrisC-45Syntax-n--11826-4449-u--goPClauses arg-0 e-6 eta-0)) ext-0)))) ((2) (let ((e-7 (vector-ref arg-1 1))) (let ((e-8 (vector-ref arg-1 2))) (let ((e-9 (vector-ref arg-1 3))) (let ((e-10 (vector-ref arg-1 4))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-2 (vector-ref eta-0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-0 1))) (vector 1 (vector 2 e-7 e-8 e-9 e-5)))))) (lambda (eta-0) (IdrisC-45Syntax-n--11826-4437-u--goPDataDecl arg-0 e-10 eta-0)) ext-0)))))) ((3) (let ((e-11 (vector-ref arg-1 1))) (let ((e-12 (vector-ref arg-1 2))) (let ((e-13 (vector-ref arg-1 3))) (CoreC-45Core-C-60C-42C-62 (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (case (vector-ref eta-1 0) ((0) (let ((e-2 (vector-ref eta-1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-1 1))) (vector 1 (lambda (eta-2) (vector 3 e-11 e-5 eta-2))))))) (IdrisC-45Syntax-n--11826-4445-u--go4TupledPTerms arg-0 e-12) eta-0)) (lambda (eta-0) (IdrisC-45Syntax-n--11826-4451-u--goPDecls arg-0 e-13 eta-0)) ext-0))))) ((4) (let ((e-14 (vector-ref arg-1 1))) (let ((e-15 (vector-ref arg-1 2))) (let ((e-16 (vector-ref arg-1 3))) (CoreC-45Core-C-60C-42C-62 (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (case (vector-ref eta-1 0) ((0) (let ((e-2 (vector-ref eta-1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-1 1))) (vector 1 (lambda (eta-2) (vector 4 e-14 e-5 eta-2))))))) (lambda (eta-1) (IdrisC-45Syntax-n--11826-4443-u--goPairedPTerms arg-0 e-15 eta-1)) eta-0)) (lambda (eta-0) (IdrisC-45Syntax-n--11826-4451-u--goPDecls arg-0 e-16 eta-0)) ext-0))))) ((5) (let ((e-17 (vector-ref arg-1 1))) (let ((e-18 (vector-ref arg-1 2))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-2 (vector-ref eta-0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-0 1))) (vector 1 (vector 5 e-17 e-5)))))) (IdrisC-45Syntax-n--11826-4430-u--goPTerm arg-0 e-18) ext-0)))) ((6) (let ((e-19 (vector-ref arg-1 1))) (let ((e-20 (vector-ref arg-1 2))) (let ((e-21 (vector-ref arg-1 3))) (let ((e-22 (vector-ref arg-1 4))) (let ((e-23 (vector-ref arg-1 5))) (let ((e-24 (vector-ref arg-1 6))) (let ((e-25 (vector-ref arg-1 7))) (let ((e-26 (vector-ref arg-1 8))) (let ((e-27 (vector-ref arg-1 9))) (CoreC-45Core-C-60C-42C-62 (lambda (eta-0) (CoreC-45Core-C-60C-42C-62 (lambda (eta-1) (CoreC-45Core-C-60C-42C-62 (lambda (eta-2) (CoreC-45Core-C-60C-42C-62 (lambda (eta-3) (CoreC-45Core-C-60C-42C-62 (lambda (eta-4) (CoreC-45Core-C-60C-42C-62 (lambda (eta-5) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-6) (case (vector-ref eta-6 0) ((0) (let ((e-2 (vector-ref eta-6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-6 1))) (vector 1 (lambda (eta-7) (lambda (eta-8) (lambda (eta-9) (lambda (eta-10) (lambda (eta-11) (lambda (eta-12) (vector 6 e-19 e-20 e-5 eta-7 eta-8 eta-9 eta-10 eta-11 eta-12)))))))))))) (lambda (eta-6) (IdrisC-45Syntax-n--11826-4443-u--goPairedPTerms arg-0 e-21 eta-6)) eta-5)) (lambda (eta-5) (vector 1 e-22)) eta-4)) (lambda (eta-4) (vector 1 e-23)) eta-3)) (IdrisC-45Syntax-n--11826-4444-u--go3TupledPTerms arg-0 e-24) eta-2)) (lambda (eta-2) (vector 1 e-25)) eta-1)) (lambda (eta-1) (vector 1 e-26)) eta-0)) (lambda (eta-0) (IdrisC-45Syntax-n--11826-4451-u--goPDecls arg-0 e-27 eta-0)) ext-0))))))))))) ((7) (let ((e-28 (vector-ref arg-1 1))) (let ((e-29 (vector-ref arg-1 2))) (let ((e-30 (vector-ref arg-1 3))) (let ((e-31 (vector-ref arg-1 4))) (let ((e-32 (vector-ref arg-1 5))) (let ((e-33 (vector-ref arg-1 6))) (let ((e-34 (vector-ref arg-1 7))) (let ((e-35 (vector-ref arg-1 8))) (let ((e-36 (vector-ref arg-1 9))) (let ((e-37 (vector-ref arg-1 10))) (let ((e-38 (vector-ref arg-1 11))) (CoreC-45Core-C-60C-42C-62 (lambda (eta-0) (CoreC-45Core-C-60C-42C-62 (lambda (eta-1) (CoreC-45Core-C-60C-42C-62 (lambda (eta-2) (CoreC-45Core-C-60C-42C-62 (lambda (eta-3) (CoreC-45Core-C-60C-42C-62 (lambda (eta-4) (CoreC-45Core-C-60C-42C-62 (lambda (eta-5) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-6) (case (vector-ref eta-6 0) ((0) (let ((e-2 (vector-ref eta-6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-6 1))) (vector 1 (lambda (eta-7) (lambda (eta-8) (lambda (eta-9) (lambda (eta-10) (lambda (eta-11) (lambda (eta-12) (vector 7 e-28 e-29 e-30 e-31 e-5 eta-7 eta-8 eta-9 eta-10 eta-11 eta-12)))))))))))) (IdrisC-45Syntax-n--11826-4444-u--go3TupledPTerms arg-0 e-32) eta-5)) (lambda (eta-5) (IdrisC-45Syntax-n--11826-4443-u--goPairedPTerms arg-0 e-33 eta-5)) eta-4)) (lambda (eta-4) (vector 1 e-34)) eta-3)) (lambda (eta-3) (IdrisC-45Syntax-n--11826-4442-u--goPTerms arg-0 e-35 eta-3)) eta-2)) (lambda (eta-2) (vector 1 e-36)) eta-1)) (lambda (eta-1) (vector 1 e-37)) eta-0)) (lambda (eta-0) (IdrisC-45Syntax-n--11826-4450-u--goMPDecls arg-0 e-38 eta-0)) ext-0))))))))))))) ((8) (let ((e-39 (vector-ref arg-1 1))) (let ((e-40 (vector-ref arg-1 2))) (let ((e-41 (vector-ref arg-1 3))) (let ((e-42 (vector-ref arg-1 4))) (let ((e-43 (vector-ref arg-1 5))) (let ((e-44 (vector-ref arg-1 6))) (let ((e-45 (vector-ref arg-1 7))) (CoreC-45Core-C-60C-42C-62 (lambda (eta-0) (CoreC-45Core-C-60C-42C-62 (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-2) (case (vector-ref eta-2 0) ((0) (let ((e-2 (vector-ref eta-2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-2 1))) (vector 1 (lambda (eta-3) (lambda (eta-4) (vector 8 e-39 e-40 e-41 e-42 e-5 eta-3 eta-4)))))))) (IdrisC-45Syntax-n--11826-4445-u--go4TupledPTerms arg-0 e-43) eta-1)) (lambda (eta-1) (vector 1 e-44)) eta-0)) (lambda (eta-0) (IdrisC-45Syntax-n--11826-4453-u--goPFields arg-0 e-45 eta-0)) ext-0))))))))) ((9) (let ((e-46 (vector-ref arg-1 1))) (let ((e-47 (vector-ref arg-1 2))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-2 (vector-ref eta-0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-0 1))) (vector 1 (vector 9 e-46 e-5)))))) (lambda (eta-0) (IdrisC-45Syntax-n--11826-4451-u--goPDecls arg-0 e-47 eta-0)) ext-0)))) ((10) (vector 1 arg-1)) ((11) (let ((e-52 (vector-ref arg-1 1))) (let ((e-53 (vector-ref arg-1 2))) (let ((e-54 (vector-ref arg-1 3))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-2 (vector-ref eta-0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-0 1))) (vector 1 (vector 11 e-52 e-53 e-5)))))) (lambda (eta-0) (IdrisC-45Syntax-n--11826-4451-u--goPDecls arg-0 e-54 eta-0)) ext-0))))) ((12) (let ((e-55 (vector-ref arg-1 1))) (let ((e-56 (vector-ref arg-1 2))) (let ((e-57 (vector-ref arg-1 3))) (let ((e-58 (vector-ref arg-1 4))) (CoreC-45Core-C-60C-42C-62 (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (case (vector-ref eta-1 0) ((0) (let ((e-2 (vector-ref eta-1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-1 1))) (vector 1 (lambda (eta-2) (vector 12 e-55 e-56 e-5 eta-2))))))) (IdrisC-45Syntax-n--11826-4430-u--goPTerm arg-0 e-57) eta-0)) (IdrisC-45Syntax-n--11826-4430-u--goPTerm arg-0 e-58) ext-0)))))) ((13) (let ((e-59 (vector-ref arg-1 1))) (let ((e-60 (vector-ref arg-1 2))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-2 (vector-ref eta-0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-0 1))) (vector 1 (vector 13 e-59 e-5)))))) (IdrisC-45Syntax-n--11826-4430-u--goPTerm arg-0 e-60) ext-0)))) ((14) (vector 1 arg-1)) (else (vector 1 arg-1))))) +(define IdrisC-45Syntax-n--11826-4437-u--goPDataDecl (lambda (arg-0 arg-1 ext-0) (case (vector-ref arg-1 0) ((0) (let ((e-0 (vector-ref arg-1 1))) (let ((e-1 (vector-ref arg-1 2))) (let ((e-2 (vector-ref arg-1 3))) (let ((e-3 (vector-ref arg-1 4))) (let ((e-4 (vector-ref arg-1 5))) (CoreC-45Core-C-60C-42C-62 (lambda (eta-0) (CoreC-45Core-C-60C-42C-62 (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-2) (case (vector-ref eta-2 0) ((0) (let ((e-5 (vector-ref eta-2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref eta-2 1))) (vector 1 (lambda (eta-3) (lambda (eta-4) (vector 0 e-0 e-1 e-5 eta-3 eta-4)))))))) (IdrisC-45Syntax-n--11826-4430-u--goPTerm arg-0 e-2) eta-1)) (lambda (eta-1) (vector 1 e-3)) eta-0)) (lambda (eta-0) (IdrisC-45Syntax-n--11826-4455-u--goPTypeDecls arg-0 e-4 eta-0)) ext-0))))))) (else (let ((e-5 (vector-ref arg-1 1))) (let ((e-6 (vector-ref arg-1 2))) (let ((e-7 (vector-ref arg-1 3))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-2 (vector-ref eta-0 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref eta-0 1))) (vector 1 (vector 1 e-5 e-6 e-8)))))) (IdrisC-45Syntax-n--11826-4430-u--goPTerm arg-0 e-7) ext-0)))))))) +(define IdrisC-45Syntax-n--11826-4449-u--goPClauses (lambda (arg-0 arg-1 ext-0) (if (null? arg-1) (vector 1 '()) (let ((e-2 (car arg-1))) (let ((e-3 (cdr arg-1))) (CoreC-45Core-C-60C-42C-62 (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (case (vector-ref eta-1 0) ((0) (let ((e-4 (vector-ref eta-1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref eta-1 1))) (vector 1 (lambda (eta-2) (cons e-5 eta-2))))))) (lambda (eta-1) (IdrisC-45Syntax-n--11826-4434-u--goPClause arg-0 e-2 eta-1)) eta-0)) (lambda (eta-0) (IdrisC-45Syntax-n--11826-4449-u--goPClauses arg-0 e-3 eta-0)) ext-0)))))) +(define IdrisC-45Syntax-n--11826-4434-u--goPClause (lambda (arg-0 arg-1 ext-0) (case (vector-ref arg-1 0) ((0) (let ((e-0 (vector-ref arg-1 1))) (let ((e-1 (vector-ref arg-1 2))) (let ((e-2 (vector-ref arg-1 3))) (let ((e-3 (vector-ref arg-1 4))) (CoreC-45Core-C-60C-42C-62 (lambda (eta-0) (CoreC-45Core-C-60C-42C-62 (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-2) (case (vector-ref eta-2 0) ((0) (let ((e-4 (vector-ref eta-2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref eta-2 1))) (vector 1 (lambda (eta-3) (lambda (eta-4) (vector 0 e-0 e-5 eta-3 eta-4)))))))) (IdrisC-45Syntax-n--11826-4430-u--goPTerm arg-0 e-1) eta-1)) (IdrisC-45Syntax-n--11826-4430-u--goPTerm arg-0 e-2) eta-0)) (lambda (eta-0) (IdrisC-45Syntax-n--11826-4451-u--goPDecls arg-0 e-3 eta-0)) ext-0)))))) ((1) (let ((e-4 (vector-ref arg-1 1))) (let ((e-5 (vector-ref arg-1 2))) (let ((e-6 (vector-ref arg-1 3))) (let ((e-7 (vector-ref arg-1 4))) (let ((e-8 (vector-ref arg-1 5))) (let ((e-9 (vector-ref arg-1 6))) (CoreC-45Core-C-60C-42C-62 (lambda (eta-0) (CoreC-45Core-C-60C-42C-62 (lambda (eta-1) (CoreC-45Core-C-60C-42C-62 (lambda (eta-2) (CoreC-45Core-C-60C-42C-62 (lambda (eta-3) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-4) (case (vector-ref eta-4 0) ((0) (let ((e-2 (vector-ref eta-4 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref eta-4 1))) (vector 1 (lambda (eta-5) (lambda (eta-6) (lambda (eta-7) (lambda (eta-8) (vector 1 e-4 e-10 eta-5 eta-6 eta-7 eta-8)))))))))) (IdrisC-45Syntax-n--11826-4430-u--goPTerm arg-0 e-5) eta-3)) (IdrisC-45Syntax-n--11826-4430-u--goPTerm arg-0 e-6) eta-2)) (lambda (eta-2) (vector 1 e-7)) eta-1)) (lambda (eta-1) (vector 1 e-8)) eta-0)) (lambda (eta-0) (IdrisC-45Syntax-n--11826-4449-u--goPClauses arg-0 e-9 eta-0)) ext-0)))))))) (else (let ((e-10 (vector-ref arg-1 1))) (let ((e-11 (vector-ref arg-1 2))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-2 (vector-ref eta-0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-0 1))) (vector 1 (vector 2 e-10 e-5)))))) (IdrisC-45Syntax-n--11826-4430-u--goPTerm arg-0 e-11) ext-0))))))) +(define IdrisC-45Syntax-n--11826-4441-u--goMPTerm (lambda (arg-0 arg-1 ext-0) (if (null? arg-1) (vector 1 '()) (let ((e-2 (unbox arg-1))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-3 (vector-ref eta-0 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref eta-0 1))) (vector 1 (box e-5)))))) (IdrisC-45Syntax-n--11826-4430-u--goPTerm arg-0 e-2) ext-0))))) +(define IdrisC-45Syntax-n--11826-4450-u--goMPDecls (lambda (arg-0 arg-1 ext-0) (if (null? arg-1) (vector 1 '()) (let ((e-2 (unbox arg-1))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-3 (vector-ref eta-0 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref eta-0 1))) (vector 1 (box e-5)))))) (lambda (eta-0) (IdrisC-45Syntax-n--11826-4451-u--goPDecls arg-0 e-2 eta-0)) ext-0))))) +(define IdrisC-45Syntax-n--11826-4445-u--go4TupledPTerms (lambda (arg-0 arg-3) (if (null? arg-3) (lambda (eta-0) (vector 1 '())) (let ((e-2 (car arg-3))) (let ((e-3 (cdr arg-3))) (let ((e-6 (car e-2))) (let ((e-7 (cdr e-2))) (lambda (clam-0) (let ((e-10 (car e-7))) (let ((e-11 (cdr e-7))) (let ((e-14 (car e-11))) (let ((e-15 (cdr e-11))) (CoreC-45Core-C-60C-42C-62 (lambda (eta-0) (CoreC-45Core-C-60C-42C-62 (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-2) (case (vector-ref eta-2 0) ((0) (let ((e-4 (vector-ref eta-2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref eta-2 1))) (vector 1 (lambda (u--d) (lambda (u--ts) (cons (cons e-6 (cons e-10 (cons e-5 u--d))) u--ts)))))))) (lambda (eta-2) (IdrisC-45Syntax-n--11826-4439-u--goPiInfo arg-0 e-14 eta-2)) eta-1)) (IdrisC-45Syntax-n--11826-4430-u--goPTerm arg-0 e-15) eta-0)) (IdrisC-45Syntax-n--11826-4445-u--go4TupledPTerms arg-0 e-3) clam-0))))))))))))) +(define IdrisC-45Syntax-n--11826-4444-u--go3TupledPTerms (lambda (arg-0 arg-3) (if (null? arg-3) (lambda (eta-0) (vector 1 '())) (let ((e-2 (car arg-3))) (let ((e-3 (cdr arg-3))) (lambda (clam-0) (let ((e-6 (car e-2))) (let ((e-7 (cdr e-2))) (let ((e-10 (car e-7))) (let ((e-11 (cdr e-7))) (CoreC-45Core-C-60C-42C-62 (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (case (vector-ref eta-1 0) ((0) (let ((e-4 (vector-ref eta-1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref eta-1 1))) (vector 1 (lambda (eta-2) (cons (cons e-6 (cons e-10 e-5)) eta-2))))))) (IdrisC-45Syntax-n--11826-4430-u--goPTerm arg-0 e-11) eta-0)) (IdrisC-45Syntax-n--11826-4444-u--go3TupledPTerms arg-0 e-3) clam-0))))))))))) +(define IdrisC-45Syntax-n--8328-1169-u--getName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((e-2 (vector-ref arg-5 2))) e-2))) +(define IdrisC-45Syntax-n--9101-2989-u--dePure (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (case (vector-ref arg-4 0) ((7) (let ((e-0 (vector-ref arg-4 1))) (let ((e-1 (vector-ref arg-4 2))) (let ((e-2 (vector-ref arg-4 3))) (case (vector-ref e-1 0) ((0) (let ((e-3 (vector-ref e-1 1))) (let ((e-4 (vector-ref e-1 2))) (let ((u--tm (vector 7 e-0 (vector 0 e-3 e-4) e-2))) (let ((sc2 (CoreC-45Name-u--C-61C-61_Eq_Name (CoreC-45Name-dropNS e-4) (vector 1 "pure")))) (cond ((equal? sc2 1) e-2) (else u--tm)))))))(else arg-4))))))(else arg-4)))) +(define IdrisC-45Syntax-n--9101-2990-u--deGuard (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (case (vector-ref arg-4 0) ((0) (let ((e-0 (vector-ref arg-4 1))) (let ((e-1 (vector-ref arg-4 2))) (case (vector-ref e-1 0) ((7) (let ((e-2 (vector-ref e-1 1))) (let ((e-3 (vector-ref e-1 2))) (let ((e-4 (vector-ref e-1 3))) (case (vector-ref e-3 0) ((0) (let ((e-5 (vector-ref e-3 1))) (let ((e-6 (vector-ref e-3 2))) (let ((u--tm (vector 0 e-0 (vector 7 e-2 (vector 0 e-5 e-6) e-4)))) (let ((sc3 (CoreC-45Name-u--C-61C-61_Eq_Name (CoreC-45Name-dropNS e-6) (vector 1 "guard")))) (cond ((equal? sc3 1) (vector 0 e-0 e-4)) (else u--tm)))))))(else arg-4))))))(else arg-4)))))(else arg-4)))) +(define IdrisC-45Syntax-u--toBuf_TTC_SyntaxInfo (lambda (arg-0 arg-1 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-1457 arg-1460))) (lambda (arg-1461) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-1461 eta-1)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1461) (lambda (eta-2) (IdrisC-45Syntax-u--toBuf_TTC_Fixity arg-1458 arg-1461 eta-2)))) (lambda (arg-1461) (lambda (eta-2) (IdrisC-45Syntax-u--fromBuf_TTC_Fixity arg-1461 eta-2)))) (cons (lambda (arg-1458) (lambda (arg-1461) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-1458 arg-1461 eta-2)))) (lambda (arg-1461) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-1461 eta-2))))) arg-1457 arg-1460 eta-1)))) (lambda (arg-1461) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (IdrisC-45Syntax-u--toBuf_TTC_Fixity arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (IdrisC-45Syntax-u--fromBuf_TTC_Fixity arg-1462 eta-2)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-1462 eta-2))))) arg-1461 eta-1))))) arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-1456 arg-1459))) (lambda (arg-1462) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-1462 eta-1)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (IdrisC-45Syntax-u--toBuf_TTC_Fixity arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (IdrisC-45Syntax-u--fromBuf_TTC_Fixity arg-1462 eta-2)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-1462 eta-2))))) arg-1456 arg-1459 eta-1)))) (lambda (arg-1462) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-2) (IdrisC-45Syntax-u--toBuf_TTC_Fixity arg-1456 arg-1459 eta-2)))) (lambda (arg-1463) (lambda (eta-2) (IdrisC-45Syntax-u--fromBuf_TTC_Fixity arg-1463 eta-2)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-1456 arg-1459 eta-2)))) (lambda (arg-1463) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-1463 eta-2))))) arg-1462 eta-1))))) arg-1461 eta-0)))) arg-0 (LibrariesC-45DataC-45StringMap-toList (let ((e-0 (vector-ref arg-1 0))) e-0)) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-1457 arg-1460))) (lambda (arg-1461) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-1461 eta-1)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-1457 arg-1460 eta-1)))) (lambda (arg-1461) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-1461 eta-1))))) arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-1456 arg-1459))) (lambda (arg-1462) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-1462 eta-1)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-1456 arg-1459 eta-1)))) (lambda (arg-1462) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-1462 eta-1))))) arg-1461 eta-0)))) arg-0 (LibrariesC-45DataC-45StringMap-toList (let ((e-1 (vector-ref arg-1 1))) e-1)) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_Name arg-1457 arg-1460 eta-1)))) (lambda (arg-1461) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1461 eta-1)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-1) (IdrisC-45Syntax-u--toBuf_TTC_IFaceInfo arg-1457 arg-1460 eta-1)))) (lambda (arg-1461) (lambda (eta-1) (IdrisC-45Syntax-u--fromBuf_TTC_IFaceInfo arg-1461 eta-1))))) arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_Name arg-1456 arg-1459 eta-1)))) (lambda (arg-1462) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1462 eta-1)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-1) (IdrisC-45Syntax-u--toBuf_TTC_IFaceInfo arg-1456 arg-1459 eta-1)))) (lambda (arg-1462) (lambda (eta-1) (IdrisC-45Syntax-u--fromBuf_TTC_IFaceInfo arg-1462 eta-1))))) arg-1461 eta-0)))) arg-0 (DataC-45List-filter (lambda (u--n) (PreludeC-45Types-elem (cons (lambda (arg-2) (lambda (arg-3) (CoreC-45Name-u--C-61C-61_Eq_Name arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (CoreC-45Name-u--C-47C-61_Eq_Name arg-4 arg-5)))) (Builtin-fst u--n) (let ((e-3 (vector-ref arg-1 3))) e-3))) (LibrariesC-45DataC-45ANameMap-toList (let ((e-2 (vector-ref arg-1 2))) e-2))) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((act-27 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_Name arg-1457 arg-1460 eta-1)))) (lambda (arg-1461) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1461 eta-1)))) (cons (lambda (arg-1457) (lambda (arg-1460) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-1457 arg-1460))) (lambda (arg-1461) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-1461 eta-1))))) arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_Name arg-1456 arg-1459 eta-1)))) (lambda (arg-1462) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1462 eta-1)))) (cons (lambda (arg-1456) (lambda (arg-1459) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-1456 arg-1459))) (lambda (arg-1462) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-1462 eta-1))))) arg-1461 eta-0)))) arg-0 (DataC-45List-filter (lambda (u--n) (let ((sc3 (LibrariesC-45DataC-45NameMap-lookup (Builtin-fst u--n) (let ((e-11 (vector-ref arg-1 5))) e-11)))) (if (null? sc3) 0 1))) (LibrariesC-45DataC-45ANameMap-toList (let ((e-4 (vector-ref arg-1 4))) e-4))) ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((act-28 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_Name arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1461 eta-0)))) arg-0 (let ((e-11 (vector-ref arg-1 6))) e-11) ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else ((TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-0 (let ((e-10 (vector-ref arg-1 8))) e-10)) ext-0)))))))))))))))))) +(define IdrisC-45Syntax-u--toBuf_TTC_Method (lambda (arg-0 arg-1 ext-0) (let ((e-0 (vector-ref arg-1 0))) (let ((e-1 (vector-ref arg-1 1))) (let ((e-2 (vector-ref arg-1 2))) (let ((e-3 (vector-ref arg-1 3))) (let ((act-24 (CoreC-45TTC-u--toBuf_TTC_Name arg-0 e-0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((act-25 ((CoreC-45TTC-u--toBuf_TTC_RigCount arg-0 e-1) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_TotalReq arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_TotalReq arg-1461 eta-0)))) arg-0 e-2 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-4 (vector-ref act-26 1))) (vector 0 e-4))) (else ((TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-0 e-3) ext-0)))))))))))))))) +(define IdrisC-45Syntax-u--toBuf_TTC_IFaceInfo (lambda (arg-0 arg-1 ext-0) (let ((e-0 (vector-ref arg-1 0))) (let ((e-1 (vector-ref arg-1 1))) (let ((e-2 (vector-ref arg-1 2))) (let ((e-3 (vector-ref arg-1 3))) (let ((e-4 (vector-ref arg-1 4))) (let ((e-5 (vector-ref arg-1 5))) (let ((act-24 (CoreC-45TTC-u--toBuf_TTC_Name arg-0 e-0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_Name arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1461 eta-0)))) arg-0 e-1 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-7 (vector-ref act-25 1))) (vector 0 e-7))) (else (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_Name arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1461 eta-0)))) arg-0 e-2 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-8 (vector-ref act-26 1))) (vector 0 e-8))) (else (let ((act-27 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-1456 arg-1459))) (lambda (arg-1461) (lambda (eta-0) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-1461 eta-0)))) arg-0 e-3 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-9 (vector-ref act-27 1))) (vector 0 e-9))) (else (let ((act-28 (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (IdrisC-45Syntax-u--toBuf_TTC_Method arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (IdrisC-45Syntax-u--fromBuf_TTC_Method arg-1461 eta-0)))) arg-0 e-4 ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-10 (vector-ref act-28 1))) (vector 0 e-10))) (else (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_Name arg-1457 arg-1460 eta-1)))) (lambda (arg-1461) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1461 eta-1)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1458) (lambda (arg-1461) (lambda (eta-2) (TTImpC-45TTImp-u--toBuf_TTC_ImpClause arg-1458 arg-1461 eta-2)))) (lambda (arg-1461) (lambda (eta-2) (TTImpC-45TTImp-u--fromBuf_TTC_ImpClause arg-1461 eta-2)))) arg-1457 arg-1460 eta-1)))) (lambda (arg-1461) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (TTImpC-45TTImp-u--toBuf_TTC_ImpClause arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (TTImpC-45TTImp-u--fromBuf_TTC_ImpClause arg-1462 eta-2)))) arg-1461 eta-1))))) arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_Name arg-1456 arg-1459 eta-1)))) (lambda (arg-1462) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1462 eta-1)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (TTImpC-45TTImp-u--toBuf_TTC_ImpClause arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (TTImpC-45TTImp-u--fromBuf_TTC_ImpClause arg-1462 eta-2)))) arg-1456 arg-1459 eta-1)))) (lambda (arg-1462) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-2) (TTImpC-45TTImp-u--toBuf_TTC_ImpClause arg-1456 arg-1459 eta-2)))) (lambda (arg-1463) (lambda (eta-2) (TTImpC-45TTImp-u--fromBuf_TTC_ImpClause arg-1463 eta-2)))) arg-1462 eta-1))))) arg-1461 eta-0)))) arg-0 e-5 ext-0)))))))))))))))))))))))) +(define IdrisC-45Syntax-u--toBuf_TTC_Fixity (lambda (arg-0 arg-1 ext-0) (cond ((equal? arg-1 0) (LibrariesC-45UtilsC-45Binary-tag arg-0 0 ext-0)) ((equal? arg-1 1) (LibrariesC-45UtilsC-45Binary-tag arg-0 1 ext-0)) ((equal? arg-1 2) (LibrariesC-45UtilsC-45Binary-tag arg-0 2 ext-0)) (else (LibrariesC-45UtilsC-45Binary-tag arg-0 3 ext-0))))) (define IdrisC-45Syntax-u--show_Show_PTerm (lambda (arg-0) (IdrisC-45Syntax-u--showPrec_Show_PTerm (vector 0 ) arg-0))) -(define IdrisC-45Syntax-u--show_Show_PStr (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (PreludeC-45Show-u--show_Show_String e-1))) (else (let ((e-3 (vector-ref sc0 2))) (IdrisC-45Syntax-u--show_Show_PTerm e-3))))))) -(define IdrisC-45Syntax-u--show_Show_Method (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (PreludeC-45TypesC-45String-C-43C-43 "[" (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45TT-u--show_Show_TotalReq u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45TT-u--showPrec_Show_TotalReq u--d u--x)))) e-2) (PreludeC-45TypesC-45String-C-43C-43 "] " (PreludeC-45TypesC-45String-C-43C-43 (AlgebraC-45ZeroOneOmega-u--show_Show_ZeroOneOmega e-1) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-0) (PreludeC-45TypesC-45String-C-43C-43 " : " (TTImpC-45TTImp-u--show_Show_RawImp e-3))))))))))))))) -(define IdrisC-45Syntax-u--show_Show_Fixity (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) "infixl") ((1) "infixr") ((2) "infix") (else "prefix"))))) -(define IdrisC-45Syntax-u--showPrec_Show_PTerm (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (CoreC-45Name-u--showPrec_Show_Name arg-0 e-1))) ((1) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (let ((e-6 (vector-ref sc0 5))) (let ((e-7 (vector-ref sc0 6))) (let ((sc1 e-4)) (case (vector-ref sc1 0) ((1) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-6) (PreludeC-45TypesC-45String-C-43C-43 " -> " (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-7)))) (else (let ((e-150 (vector-ref sc2 1))) (PreludeC-45TypesC-45String-C-43C-43 "(" (PreludeC-45TypesC-45String-C-43C-43 (Algebra-showCount e-3) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--showPrec_Show_Name arg-0 e-150) (PreludeC-45TypesC-45String-C-43C-43 " : " (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-6) (PreludeC-45TypesC-45String-C-43C-43 ") -> " (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-7)))))))))))) ((0) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (PreludeC-45TypesC-45String-C-43C-43 "{" (PreludeC-45TypesC-45String-C-43C-43 (Algebra-showCount e-3) (PreludeC-45TypesC-45String-C-43C-43 "_ : " (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-6) (PreludeC-45TypesC-45String-C-43C-43 "} -> " (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-7))))))) (else (let ((e-153 (vector-ref sc2 1))) (PreludeC-45TypesC-45String-C-43C-43 "{" (PreludeC-45TypesC-45String-C-43C-43 (Algebra-showCount e-3) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--showPrec_Show_Name arg-0 e-153) (PreludeC-45TypesC-45String-C-43C-43 " : " (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-6) (PreludeC-45TypesC-45String-C-43C-43 "} -> " (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-7)))))))))))) ((2) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-6) (PreludeC-45TypesC-45String-C-43C-43 " => " (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-7)))) (else (let ((e-156 (vector-ref sc2 1))) (PreludeC-45TypesC-45String-C-43C-43 "{auto " (PreludeC-45TypesC-45String-C-43C-43 (Algebra-showCount e-3) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--showPrec_Show_Name arg-0 e-156) (PreludeC-45TypesC-45String-C-43C-43 " : " (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-6) (PreludeC-45TypesC-45String-C-43C-43 "} -> " (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-7)))))))))))) (else (let ((e-147 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (PreludeC-45TypesC-45String-C-43C-43 "{default " (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--showPrec_Show_PTerm (vector 6 ) e-147) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (Algebra-showCount e-3) (PreludeC-45TypesC-45String-C-43C-43 "_ : " (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-6) (PreludeC-45TypesC-45String-C-43C-43 "} -> " (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-7))))))))) (else (let ((e-159 (vector-ref sc2 1))) (PreludeC-45TypesC-45String-C-43C-43 "{default " (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--showPrec_Show_PTerm (vector 6 ) e-147) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (Algebra-showCount e-3) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--showPrec_Show_Name arg-0 e-159) (PreludeC-45TypesC-45String-C-43C-43 " : " (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-6) (PreludeC-45TypesC-45String-C-43C-43 "} -> " (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-7))))))))))))))))))))))) ((2) (let ((e-9 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 4))) (let ((e-12 (vector-ref sc0 5))) (let ((e-13 (vector-ref sc0 6))) (let ((sc1 e-12)) (case (vector-ref sc1 0) ((25) (PreludeC-45TypesC-45String-C-43C-43 "\\" (PreludeC-45TypesC-45String-C-43C-43 (Algebra-showCount e-9) (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-11) (PreludeC-45TypesC-45String-C-43C-43 " => " (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-13))))))(else (PreludeC-45TypesC-45String-C-43C-43 "\\" (PreludeC-45TypesC-45String-C-43C-43 (Algebra-showCount e-9) (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-11) (PreludeC-45TypesC-45String-C-43C-43 " : " (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-12) (PreludeC-45TypesC-45String-C-43C-43 " => " (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-13))))))))))))))) ((3) (let ((e-14 (vector-ref sc0 1))) (let ((e-15 (vector-ref sc0 2))) (let ((e-16 (vector-ref sc0 3))) (let ((e-17 (vector-ref sc0 4))) (let ((e-18 (vector-ref sc0 5))) (let ((e-19 (vector-ref sc0 6))) (let ((e-20 (vector-ref sc0 7))) (let ((sc1 e-17)) (case (vector-ref sc1 0) ((25) (PreludeC-45TypesC-45String-C-43C-43 "let " (PreludeC-45TypesC-45String-C-43C-43 (Algebra-showCount e-15) (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-16) (PreludeC-45TypesC-45String-C-43C-43 " = " (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-18) (PreludeC-45TypesC-45String-C-43C-43 " in " (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-19))))))))(else (PreludeC-45TypesC-45String-C-43C-43 "let " (PreludeC-45TypesC-45String-C-43C-43 (Algebra-showCount e-15) (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-16) (PreludeC-45TypesC-45String-C-43C-43 " : " (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-17) (PreludeC-45TypesC-45String-C-43C-43 " = " (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-18) (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Interfaces-concatMap (cons (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_String arg-2 arg-3))) (PreludeC-45Types-u--neutral_Monoid_String))) (lambda (eta-0) (IdrisC-45Syntax-n--13131-2137-u--showAlt e-14 e-20 e-19 e-18 e-17 e-16 e-15 arg-0 eta-0)) e-20) (PreludeC-45TypesC-45String-C-43C-43 " in " (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-19))))))))))))))))))))) ((4) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (PreludeC-45TypesC-45String-C-43C-43 "case " (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--show_Show_PTerm e-22) (PreludeC-45TypesC-45String-C-43C-43 " of { " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-showSep " ; " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (IdrisC-45Syntax-n--13131-2221-u--showCase arg-0 e-21 e-23 e-22 eta-0)) e-23)) " }")))))))) ((5) (let ((e-26 (vector-ref sc0 3))) (PreludeC-45TypesC-45String-C-43C-43 "let { << definitions >> } in " (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-26)))) ((6) (let ((e-28 (vector-ref sc0 2))) (PreludeC-45TypesC-45String-C-43C-43 "record { " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-showSep ", " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (IdrisC-45Syntax-showUpdate eta-0)) e-28)) " }")))) ((7) (let ((e-30 (vector-ref sc0 2))) (let ((e-31 (vector-ref sc0 3))) (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--showPrec_Show_PTerm (vector 6 ) e-30) (PreludeC-45TypesC-45String-C-43C-43 " " (IdrisC-45Syntax-u--showPrec_Show_PTerm (vector 6 ) e-31)))))) ((8) (let ((e-33 (vector-ref sc0 2))) (let ((e-34 (vector-ref sc0 3))) (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-33) (PreludeC-45TypesC-45String-C-43C-43 " | " (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-34)))))) ((10) (let ((e-36 (vector-ref sc0 2))) (let ((e-37 (vector-ref sc0 3))) (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-36) (PreludeC-45TypesC-45String-C-43C-43 " @{" (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-37) "}")))))) ((11) (let ((e-39 (vector-ref sc0 2))) (let ((e-40 (vector-ref sc0 3))) (let ((sc1 e-39)) (case (vector-ref sc1 0) ((0) (PreludeC-45Show-showCon arg-0 "Inf" (PreludeC-45Show-showArg (cons (lambda (u--x) (IdrisC-45Syntax-u--show_Show_PTerm u--x)) (lambda (u--d) (lambda (u--x) (IdrisC-45Syntax-u--showPrec_Show_PTerm u--d u--x)))) e-40)))(else (PreludeC-45Show-showCon arg-0 "Lazy" (PreludeC-45Show-showArg (cons (lambda (u--x) (IdrisC-45Syntax-u--show_Show_PTerm u--x)) (lambda (u--d) (lambda (u--x) (IdrisC-45Syntax-u--showPrec_Show_PTerm u--d u--x)))) e-40)))))))) ((12) (let ((e-42 (vector-ref sc0 2))) (PreludeC-45Show-showCon arg-0 "Delay" (PreludeC-45Show-showArg (cons (lambda (u--x) (IdrisC-45Syntax-u--show_Show_PTerm u--x)) (lambda (u--d) (lambda (u--x) (IdrisC-45Syntax-u--showPrec_Show_PTerm u--d u--x)))) e-42)))) ((13) (let ((e-44 (vector-ref sc0 2))) (PreludeC-45Show-showCon arg-0 "Force" (PreludeC-45Show-showArg (cons (lambda (u--x) (IdrisC-45Syntax-u--show_Show_PTerm u--x)) (lambda (u--d) (lambda (u--x) (IdrisC-45Syntax-u--showPrec_Show_PTerm u--d u--x)))) e-44)))) ((9) (let ((e-45 (vector-ref sc0 1))) (let ((e-46 (vector-ref sc0 2))) (let ((e-47 (vector-ref sc0 3))) (let ((e-48 (vector-ref sc0 4))) (let ((sc1 e-48)) (case (vector-ref sc1 0) ((0) (let ((e-162 (vector-ref sc1 1))) (let ((e-163 (vector-ref sc1 2))) (IdrisC-45Syntax-case--showPrec-2386 e-45 e-162 e-163 e-47 e-46 arg-0 (CoreC-45Name-u--C-61C-61_Eq_Name e-47 e-163)))))(else (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-46) (PreludeC-45TypesC-45String-C-43C-43 " {" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--showPrec_Show_Name arg-0 e-47) (PreludeC-45TypesC-45String-C-43C-43 " = " (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-48) "}"))))))))))))) ((14) "%search") ((16) (let ((e-52 (vector-ref sc0 2))) (PreludeC-45TypesC-45String-C-43C-43 "`(" (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-52) ")")))) ((17) (let ((e-54 (vector-ref sc0 2))) (PreludeC-45TypesC-45String-C-43C-43 "`{{" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--showPrec_Show_Name arg-0 e-54) "}}")))) ((18) "`[ <> ]") ((19) (let ((e-58 (vector-ref sc0 2))) (PreludeC-45TypesC-45String-C-43C-43 "~(" (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-58) ")")))) ((20) (let ((e-60 (vector-ref sc0 2))) (PreludeC-45TypesC-45String-C-43C-43 "%runElab " (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-60)))) ((15) (let ((e-62 (vector-ref sc0 2))) (CoreC-45TT-u--showPrec_Show_Constant arg-0 e-62))) ((21) (let ((e-65 (vector-ref sc0 3))) (PreludeC-45TypesC-45String-C-43C-43 "?" e-65))) ((22) "Type") ((23) (let ((e-69 (vector-ref sc0 3))) (let ((e-70 (vector-ref sc0 4))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--showPrec_Show_Name arg-0 e-69) (PreludeC-45TypesC-45String-C-43C-43 "@" (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-70)))))) ((24) (let ((e-72 (vector-ref sc0 2))) (PreludeC-45TypesC-45String-C-43C-43 "." (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-72)))) ((25) "_") ((26) "?") ((27) (let ((e-76 (vector-ref sc0 2))) (let ((e-77 (vector-ref sc0 3))) (let ((e-78 (vector-ref sc0 4))) (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-77) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-showPrecOp arg-0 e-76) (PreludeC-45TypesC-45String-C-43C-43 " " (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-78))))))))) ((28) (let ((e-80 (vector-ref sc0 2))) (let ((e-81 (vector-ref sc0 3))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--showPrec_Show_Name arg-0 e-80) (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-81))))) ((29) (let ((e-83 (vector-ref sc0 2))) (let ((e-84 (vector-ref sc0 3))) (PreludeC-45TypesC-45String-C-43C-43 "(" (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-showPrecOp arg-0 e-83) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-84) ")"))))))) ((30) (let ((e-86 (vector-ref sc0 2))) (let ((e-87 (vector-ref sc0 3))) (PreludeC-45TypesC-45String-C-43C-43 "(" (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-86) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-showPrecOp arg-0 e-87) ")"))))))) ((31) (let ((e-89 (vector-ref sc0 2))) (let ((e-90 (vector-ref sc0 3))) (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-89) (PreludeC-45TypesC-45String-C-43C-43 " = " (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-90)))))) ((32) (let ((e-92 (vector-ref sc0 2))) (PreludeC-45TypesC-45String-C-43C-43 "(" (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-92) ")")))) ((33) (let ((e-94 (vector-ref sc0 2))) (LibrariesC-45DataC-45StringC-45Extra-join " ++ " (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (PreludeC-45Types-u--map_Functor_List eta-2 eta-3))))) (lambda (eta-0) (IdrisC-45Syntax-u--show_Show_PStr eta-0)) e-94)))) ((34) (let ((e-97 (vector-ref sc0 3))) (PreludeC-45TypesC-45String-C-43C-43 "multiline (" (PreludeC-45TypesC-45String-C-43C-43 (LibrariesC-45DataC-45StringC-45Extra-join " ++ " (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (PreludeC-45Types-u--map_Functor_List eta-2 eta-3))))) (lambda (eta-0) (IdrisC-45Syntax-u--show_Show_PStr eta-0)) (PreludeC-45Interfaces-concat (cons (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-2 arg-3))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) e-97))) ")")))) ((35) (let ((e-100 (vector-ref sc0 3))) (PreludeC-45TypesC-45String-C-43C-43 "do " (CoreC-45NameC-45Namespace-showSep " ; " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (IdrisC-45Syntax-showDo eta-0)) e-100))))) ((36) (let ((e-102 (vector-ref sc0 2))) (PreludeC-45TypesC-45String-C-43C-43 "!" (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-102)))) ((37) (let ((e-104 (vector-ref sc0 2))) (PreludeC-45TypesC-45String-C-43C-43 "[|" (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-104) "|]")))) ((38) (let ((e-106 (vector-ref sc0 2))) (PreludeC-45TypesC-45String-C-43C-43 "[" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-showSep ", " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 eta-0)) e-106)) "]")))) ((39) (let ((e-108 (vector-ref sc0 2))) (let ((e-109 (vector-ref sc0 3))) (PreludeC-45TypesC-45String-C-43C-43 "(" (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-108) (PreludeC-45TypesC-45String-C-43C-43 ", " (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-109) ")"))))))) ((40) (let ((e-111 (vector-ref sc0 2))) (let ((e-112 (vector-ref sc0 3))) (let ((e-113 (vector-ref sc0 4))) (let ((sc1 e-112)) (case (vector-ref sc1 0) ((25) (PreludeC-45TypesC-45String-C-43C-43 "(" (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-111) (PreludeC-45TypesC-45String-C-43C-43 " ** " (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-113) ")")))))(else (PreludeC-45TypesC-45String-C-43C-43 "(" (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-111) (PreludeC-45TypesC-45String-C-43C-43 " : " (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-112) (PreludeC-45TypesC-45String-C-43C-43 " ** " (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-113) ")"))))))))))))) ((41) "()") ((42) (let ((e-116 (vector-ref sc0 2))) (let ((e-117 (vector-ref sc0 3))) (let ((e-118 (vector-ref sc0 4))) (PreludeC-45TypesC-45String-C-43C-43 "if " (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-116) (PreludeC-45TypesC-45String-C-43C-43 " then " (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-117) (PreludeC-45TypesC-45String-C-43C-43 " else " (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-118)))))))))) ((43) (let ((e-119 (vector-ref sc0 1))) (let ((e-120 (vector-ref sc0 2))) (let ((e-121 (vector-ref sc0 3))) (PreludeC-45TypesC-45String-C-43C-43 "[" (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 (IdrisC-45Syntax-n--13131-2847-u--dePure e-119 e-121 e-120 arg-0 e-120)) (PreludeC-45TypesC-45String-C-43C-43 " | " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-showSep ", " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (IdrisC-45Syntax-showDo (IdrisC-45Syntax-n--13131-2848-u--deGuard e-119 e-121 e-120 arg-0 eta-0))) e-121)) "]")))))))) ((44) (let ((e-123 (vector-ref sc0 2))) (let ((e-124 (vector-ref sc0 3))) (PreludeC-45TypesC-45String-C-43C-43 "rewrite " (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-123) (PreludeC-45TypesC-45String-C-43C-43 " in " (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-124))))))) ((45) (let ((e-126 (vector-ref sc0 2))) (let ((e-127 (vector-ref sc0 3))) (let ((e-128 (vector-ref sc0 4))) (let ((sc1 e-127)) (case (vector-ref sc1 0) ((0) (PreludeC-45TypesC-45String-C-43C-43 "[" (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-126) (PreludeC-45TypesC-45String-C-43C-43 " .. " (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-128) "]"))))) (else (let ((e-167 (vector-ref sc1 1))) (PreludeC-45TypesC-45String-C-43C-43 "[" (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-126) (PreludeC-45TypesC-45String-C-43C-43 ", " (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-167) (PreludeC-45TypesC-45String-C-43C-43 " .. " (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-128) "]")))))))))))))) ((46) (let ((e-130 (vector-ref sc0 2))) (let ((e-131 (vector-ref sc0 3))) (let ((sc1 e-131)) (case (vector-ref sc1 0) ((0) (PreludeC-45TypesC-45String-C-43C-43 "[" (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-130) " .. ]"))) (else (let ((e-170 (vector-ref sc1 1))) (PreludeC-45TypesC-45String-C-43C-43 "[" (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-130) (PreludeC-45TypesC-45String-C-43C-43 ", " (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-170) " .. ]"))))))))))) ((49) (let ((e-134 (vector-ref sc0 3))) (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-134))) ((47) (let ((e-136 (vector-ref sc0 2))) (let ((e-137 (vector-ref sc0 3))) (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-136) (PreludeC-45Interfaces-concatMap (cons (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_String arg-2 arg-3))) (PreludeC-45Types-u--neutral_Monoid_String))) (lambda (u--n) (PreludeC-45TypesC-45String-C-43C-43 "." (CoreC-45Name-u--show_Show_Name u--n))) e-137))))) ((48) (let ((e-139 (vector-ref sc0 2))) (PreludeC-45Interfaces-concatMap (cons (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_String arg-2 arg-3))) (PreludeC-45Types-u--neutral_Monoid_String))) (lambda (u--n) (PreludeC-45TypesC-45String-C-43C-43 "." (CoreC-45Name-u--show_Show_Name u--n))) e-139))) (else (let ((e-141 (vector-ref sc0 2))) (let ((e-142 (vector-ref sc0 3))) (PreludeC-45TypesC-45String-C-43C-43 "with " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45Name-u--show_Show_Name u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Name-u--showPrec_Show_Name u--d u--x)))) e-141) (PreludeC-45TypesC-45String-C-43C-43 " " (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-142))))))))))) +(define IdrisC-45Syntax-u--show_Show_PStr (lambda (arg-0) (case (vector-ref arg-0 0) ((0) (let ((e-1 (vector-ref arg-0 2))) (PreludeC-45Show-u--show_Show_String e-1))) (else (let ((e-3 (vector-ref arg-0 2))) (IdrisC-45Syntax-u--show_Show_PTerm e-3)))))) +(define IdrisC-45Syntax-u--show_Show_Method (lambda (arg-0) (let ((e-0 (vector-ref arg-0 0))) (let ((e-1 (vector-ref arg-0 1))) (let ((e-2 (vector-ref arg-0 2))) (let ((e-3 (vector-ref arg-0 3))) (PreludeC-45TypesC-45String-C-43C-43 "[" (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45TT-u--show_Show_TotalReq u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45TT-u--showPrec_Show_TotalReq u--d u--x)))) e-2) (PreludeC-45TypesC-45String-C-43C-43 "] " (PreludeC-45TypesC-45String-C-43C-43 (AlgebraC-45ZeroOneOmega-u--show_Show_ZeroOneOmega e-1) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-0) (PreludeC-45TypesC-45String-C-43C-43 " : " (TTImpC-45TTImp-u--show_Show_RawImp e-3)))))))))))))) +(define IdrisC-45Syntax-u--show_Show_Fixity (lambda (arg-0) (cond ((equal? arg-0 0) "infixl") ((equal? arg-0 1) "infixr") ((equal? arg-0 2) "infix") (else "prefix")))) +(define IdrisC-45Syntax-u--showPrec_Show_PTerm (lambda (arg-0 arg-1) (case (vector-ref arg-1 0) ((0) (let ((e-1 (vector-ref arg-1 2))) (CoreC-45Name-u--showPrec_Show_Name arg-0 e-1))) ((1) (let ((e-3 (vector-ref arg-1 2))) (let ((e-4 (vector-ref arg-1 3))) (let ((e-5 (vector-ref arg-1 4))) (let ((e-6 (vector-ref arg-1 5))) (let ((e-7 (vector-ref arg-1 6))) (case (vector-ref e-4 0) ((1) (if (null? e-5) (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-6) (PreludeC-45TypesC-45String-C-43C-43 " -> " (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-7))) (let ((e-159 (unbox e-5))) (PreludeC-45TypesC-45String-C-43C-43 "(" (PreludeC-45TypesC-45String-C-43C-43 (Algebra-showCount e-3) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--showPrec_Show_Name arg-0 e-159) (PreludeC-45TypesC-45String-C-43C-43 " : " (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-6) (PreludeC-45TypesC-45String-C-43C-43 ") -> " (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-7)))))))))) ((0) (if (null? e-5) (PreludeC-45TypesC-45String-C-43C-43 "{" (PreludeC-45TypesC-45String-C-43C-43 (Algebra-showCount e-3) (PreludeC-45TypesC-45String-C-43C-43 "_ : " (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-6) (PreludeC-45TypesC-45String-C-43C-43 "} -> " (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-7)))))) (let ((e-162 (unbox e-5))) (PreludeC-45TypesC-45String-C-43C-43 "{" (PreludeC-45TypesC-45String-C-43C-43 (Algebra-showCount e-3) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--showPrec_Show_Name arg-0 e-162) (PreludeC-45TypesC-45String-C-43C-43 " : " (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-6) (PreludeC-45TypesC-45String-C-43C-43 "} -> " (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-7)))))))))) ((2) (if (null? e-5) (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-6) (PreludeC-45TypesC-45String-C-43C-43 " => " (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-7))) (let ((e-165 (unbox e-5))) (PreludeC-45TypesC-45String-C-43C-43 "{auto " (PreludeC-45TypesC-45String-C-43C-43 (Algebra-showCount e-3) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--showPrec_Show_Name arg-0 e-165) (PreludeC-45TypesC-45String-C-43C-43 " : " (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-6) (PreludeC-45TypesC-45String-C-43C-43 "} -> " (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-7)))))))))) (else (let ((e-156 (vector-ref e-4 1))) (if (null? e-5) (PreludeC-45TypesC-45String-C-43C-43 "{default " (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--showPrec_Show_PTerm (vector 6 ) e-156) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (Algebra-showCount e-3) (PreludeC-45TypesC-45String-C-43C-43 "_ : " (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-6) (PreludeC-45TypesC-45String-C-43C-43 "} -> " (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-7)))))))) (let ((e-168 (unbox e-5))) (PreludeC-45TypesC-45String-C-43C-43 "{default " (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--showPrec_Show_PTerm (vector 6 ) e-156) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (Algebra-showCount e-3) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--showPrec_Show_Name arg-0 e-168) (PreludeC-45TypesC-45String-C-43C-43 " : " (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-6) (PreludeC-45TypesC-45String-C-43C-43 "} -> " (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-7)))))))))))))))))))) ((2) (let ((e-9 (vector-ref arg-1 2))) (let ((e-11 (vector-ref arg-1 4))) (let ((e-12 (vector-ref arg-1 5))) (let ((e-13 (vector-ref arg-1 6))) (case (vector-ref e-12 0) ((25) (PreludeC-45TypesC-45String-C-43C-43 "\\" (PreludeC-45TypesC-45String-C-43C-43 (Algebra-showCount e-9) (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-11) (PreludeC-45TypesC-45String-C-43C-43 " => " (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-13))))))(else (PreludeC-45TypesC-45String-C-43C-43 "\\" (PreludeC-45TypesC-45String-C-43C-43 (Algebra-showCount e-9) (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-11) (PreludeC-45TypesC-45String-C-43C-43 " : " (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-12) (PreludeC-45TypesC-45String-C-43C-43 " => " (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-13)))))))))))))) ((3) (let ((e-14 (vector-ref arg-1 1))) (let ((e-15 (vector-ref arg-1 2))) (let ((e-16 (vector-ref arg-1 3))) (let ((e-17 (vector-ref arg-1 4))) (let ((e-18 (vector-ref arg-1 5))) (let ((e-19 (vector-ref arg-1 6))) (let ((e-20 (vector-ref arg-1 7))) (case (vector-ref e-17 0) ((25) (PreludeC-45TypesC-45String-C-43C-43 "let " (PreludeC-45TypesC-45String-C-43C-43 (Algebra-showCount e-15) (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-16) (PreludeC-45TypesC-45String-C-43C-43 " = " (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-18) (PreludeC-45TypesC-45String-C-43C-43 " in " (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-19))))))))(else (PreludeC-45TypesC-45String-C-43C-43 "let " (PreludeC-45TypesC-45String-C-43C-43 (Algebra-showCount e-15) (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-16) (PreludeC-45TypesC-45String-C-43C-43 " : " (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-17) (PreludeC-45TypesC-45String-C-43C-43 " = " (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-18) (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Interfaces-concatMap (cons (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_String arg-2 arg-3))) (PreludeC-45Types-u--neutral_Monoid_String))) (lambda (eta-0) (IdrisC-45Syntax-n--9101-2158-u--showAlt e-14 e-20 e-19 e-18 e-17 e-16 e-15 arg-0 eta-0)) e-20) (PreludeC-45TypesC-45String-C-43C-43 " in " (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-19)))))))))))))))))))) ((4) (let ((e-21 (vector-ref arg-1 1))) (let ((e-22 (vector-ref arg-1 2))) (let ((e-23 (vector-ref arg-1 3))) (PreludeC-45TypesC-45String-C-43C-43 "case " (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--show_Show_PTerm e-22) (PreludeC-45TypesC-45String-C-43C-43 " of { " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-showSep " ; " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (IdrisC-45Syntax-n--9101-2242-u--showCase arg-0 e-21 e-23 e-22 eta-0)) e-23)) " }")))))))) ((5) (let ((e-26 (vector-ref arg-1 3))) (PreludeC-45TypesC-45String-C-43C-43 "let { << definitions >> } in " (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-26)))) ((6) (let ((e-28 (vector-ref arg-1 2))) (PreludeC-45TypesC-45String-C-43C-43 "record { " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-showSep ", " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (IdrisC-45Syntax-showUpdate eta-0)) e-28)) " }")))) ((7) (let ((e-30 (vector-ref arg-1 2))) (let ((e-31 (vector-ref arg-1 3))) (let ((u--catchall (lambda () (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--showPrec_Show_PTerm (vector 6 ) e-30) (PreludeC-45TypesC-45String-C-43C-43 " " (IdrisC-45Syntax-u--showPrec_Show_PTerm (vector 6 ) e-31)))))) (case (vector-ref e-30 0) ((0) (let ((e-0 (vector-ref e-30 1))) (let ((e-1 (vector-ref e-30 2))) (let ((u--f (vector 0 e-0 e-1))) (let ((sc2 (DataC-45Maybe-isJust (CoreC-45Name-isRF e-1)))) (cond ((equal? sc2 1) (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--showPrec_Show_PTerm (vector 6 ) e-31) (PreludeC-45TypesC-45String-C-43C-43 " " (IdrisC-45Syntax-u--showPrec_Show_PTerm (vector 6 ) u--f)))) (else (u--catchall))))))))(else (u--catchall))))))) ((8) (let ((e-33 (vector-ref arg-1 2))) (let ((e-34 (vector-ref arg-1 3))) (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-33) (PreludeC-45TypesC-45String-C-43C-43 " | " (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-34)))))) ((10) (let ((e-36 (vector-ref arg-1 2))) (let ((e-37 (vector-ref arg-1 3))) (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-36) (PreludeC-45TypesC-45String-C-43C-43 " @{" (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-37) "}")))))) ((11) (let ((e-39 (vector-ref arg-1 2))) (let ((e-40 (vector-ref arg-1 3))) (cond ((equal? e-39 0) (PreludeC-45Show-showCon arg-0 "Inf" (PreludeC-45Show-showArg (cons (lambda (u--x) (IdrisC-45Syntax-u--show_Show_PTerm u--x)) (lambda (u--d) (lambda (u--x) (IdrisC-45Syntax-u--showPrec_Show_PTerm u--d u--x)))) e-40)))(else (PreludeC-45Show-showCon arg-0 "Lazy" (PreludeC-45Show-showArg (cons (lambda (u--x) (IdrisC-45Syntax-u--show_Show_PTerm u--x)) (lambda (u--d) (lambda (u--x) (IdrisC-45Syntax-u--showPrec_Show_PTerm u--d u--x)))) e-40))))))) ((12) (let ((e-42 (vector-ref arg-1 2))) (PreludeC-45Show-showCon arg-0 "Delay" (PreludeC-45Show-showArg (cons (lambda (u--x) (IdrisC-45Syntax-u--show_Show_PTerm u--x)) (lambda (u--d) (lambda (u--x) (IdrisC-45Syntax-u--showPrec_Show_PTerm u--d u--x)))) e-42)))) ((13) (let ((e-44 (vector-ref arg-1 2))) (PreludeC-45Show-showCon arg-0 "Force" (PreludeC-45Show-showArg (cons (lambda (u--x) (IdrisC-45Syntax-u--show_Show_PTerm u--x)) (lambda (u--d) (lambda (u--x) (IdrisC-45Syntax-u--showPrec_Show_PTerm u--d u--x)))) e-44)))) ((9) (let ((e-46 (vector-ref arg-1 2))) (let ((e-47 (vector-ref arg-1 3))) (let ((e-48 (vector-ref arg-1 4))) (case (vector-ref e-48 0) ((0) (let ((e-172 (vector-ref e-48 2))) (let ((sc2 (CoreC-45Name-u--C-61C-61_Eq_Name e-47 e-172))) (cond ((equal? sc2 1) (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-46) (PreludeC-45TypesC-45String-C-43C-43 " {" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--showPrec_Show_Name arg-0 e-47) "}")))) (else (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-46) (PreludeC-45TypesC-45String-C-43C-43 " {" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--showPrec_Show_Name arg-0 e-47) (PreludeC-45TypesC-45String-C-43C-43 " = " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--showPrec_Show_Name arg-0 e-172) "}"))))))))))(else (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-46) (PreludeC-45TypesC-45String-C-43C-43 " {" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--showPrec_Show_Name arg-0 e-47) (PreludeC-45TypesC-45String-C-43C-43 " = " (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-48) "}"))))))))))) ((14) "%search") ((16) (let ((e-52 (vector-ref arg-1 2))) (PreludeC-45TypesC-45String-C-43C-43 "`(" (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-52) ")")))) ((17) (let ((e-54 (vector-ref arg-1 2))) (PreludeC-45TypesC-45String-C-43C-43 "`{{" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--showPrec_Show_Name arg-0 e-54) "}}")))) ((18) "`[ <> ]") ((19) (let ((e-58 (vector-ref arg-1 2))) (PreludeC-45TypesC-45String-C-43C-43 "~(" (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-58) ")")))) ((20) (let ((e-60 (vector-ref arg-1 2))) (PreludeC-45TypesC-45String-C-43C-43 "%runElab " (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-60)))) ((15) (let ((e-62 (vector-ref arg-1 2))) (CoreC-45TT-u--showPrec_Show_Constant arg-0 e-62))) ((21) (let ((e-65 (vector-ref arg-1 3))) (PreludeC-45TypesC-45String-C-43C-43 "?" e-65))) ((22) "Type") ((23) (let ((e-69 (vector-ref arg-1 3))) (let ((e-70 (vector-ref arg-1 4))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--showPrec_Show_Name arg-0 e-69) (PreludeC-45TypesC-45String-C-43C-43 "@" (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-70)))))) ((24) (let ((e-72 (vector-ref arg-1 2))) (PreludeC-45TypesC-45String-C-43C-43 "." (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-72)))) ((25) "_") ((26) "?") ((27) (let ((e-77 (vector-ref arg-1 3))) (let ((e-78 (vector-ref arg-1 4))) (let ((e-79 (vector-ref arg-1 5))) (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-78) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-showPrecOp arg-0 e-77) (PreludeC-45TypesC-45String-C-43C-43 " " (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-79))))))))) ((28) (let ((e-82 (vector-ref arg-1 3))) (let ((e-83 (vector-ref arg-1 4))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--showPrec_Show_Name arg-0 e-82) (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-83))))) ((29) (let ((e-86 (vector-ref arg-1 3))) (let ((e-87 (vector-ref arg-1 4))) (PreludeC-45TypesC-45String-C-43C-43 "(" (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-showPrecOp arg-0 e-86) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-87) ")"))))))) ((30) (let ((e-90 (vector-ref arg-1 3))) (let ((e-91 (vector-ref arg-1 4))) (PreludeC-45TypesC-45String-C-43C-43 "(" (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-90) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-showPrecOp arg-0 e-91) ")"))))))) ((31) (let ((e-93 (vector-ref arg-1 2))) (let ((e-94 (vector-ref arg-1 3))) (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-93) (PreludeC-45TypesC-45String-C-43C-43 " = " (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-94)))))) ((32) (let ((e-96 (vector-ref arg-1 2))) (PreludeC-45TypesC-45String-C-43C-43 "(" (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-96) ")")))) ((33) (let ((e-98 (vector-ref arg-1 2))) (LibrariesC-45DataC-45StringC-45Extra-join " ++ " (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (PreludeC-45Types-u--map_Functor_List eta-2 eta-3))))) (lambda (eta-0) (IdrisC-45Syntax-u--show_Show_PStr eta-0)) e-98)))) ((34) (let ((e-101 (vector-ref arg-1 3))) (PreludeC-45TypesC-45String-C-43C-43 "multiline (" (PreludeC-45TypesC-45String-C-43C-43 (LibrariesC-45DataC-45StringC-45Extra-join " ++ " (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (PreludeC-45Types-u--map_Functor_List eta-2 eta-3))))) (lambda (eta-0) (IdrisC-45Syntax-u--show_Show_PStr eta-0)) (PreludeC-45Interfaces-concat (cons (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-2 arg-3))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) e-101))) ")")))) ((35) (let ((e-104 (vector-ref arg-1 3))) (PreludeC-45TypesC-45String-C-43C-43 "do " (CoreC-45NameC-45Namespace-showSep " ; " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (IdrisC-45Syntax-showDo eta-0)) e-104))))) ((36) (let ((e-106 (vector-ref arg-1 2))) (PreludeC-45TypesC-45String-C-43C-43 "!" (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-106)))) ((37) (let ((e-108 (vector-ref arg-1 2))) (PreludeC-45TypesC-45String-C-43C-43 "[|" (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-108) "|]")))) ((38) (let ((e-111 (vector-ref arg-1 3))) (PreludeC-45TypesC-45String-C-43C-43 "[" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-showSep ", " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 (Builtin-snd eta-0))) e-111)) "]")))) ((39) (let ((e-114 (vector-ref arg-1 3))) (PreludeC-45TypesC-45String-C-43C-43 "[<" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-showSep ", " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 (Builtin-snd eta-0))) e-114)) "]")))) ((40) (let ((e-116 (vector-ref arg-1 2))) (let ((e-117 (vector-ref arg-1 3))) (PreludeC-45TypesC-45String-C-43C-43 "(" (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-116) (PreludeC-45TypesC-45String-C-43C-43 ", " (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-117) ")"))))))) ((41) (let ((e-120 (vector-ref arg-1 3))) (let ((e-121 (vector-ref arg-1 4))) (let ((e-122 (vector-ref arg-1 5))) (case (vector-ref e-121 0) ((25) (PreludeC-45TypesC-45String-C-43C-43 "(" (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-120) (PreludeC-45TypesC-45String-C-43C-43 " ** " (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-122) ")")))))(else (PreludeC-45TypesC-45String-C-43C-43 "(" (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-120) (PreludeC-45TypesC-45String-C-43C-43 " : " (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-121) (PreludeC-45TypesC-45String-C-43C-43 " ** " (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-122) ")")))))))))))) ((42) "()") ((43) (let ((e-125 (vector-ref arg-1 2))) (let ((e-126 (vector-ref arg-1 3))) (let ((e-127 (vector-ref arg-1 4))) (PreludeC-45TypesC-45String-C-43C-43 "if " (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-125) (PreludeC-45TypesC-45String-C-43C-43 " then " (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-126) (PreludeC-45TypesC-45String-C-43C-43 " else " (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-127)))))))))) ((44) (let ((e-128 (vector-ref arg-1 1))) (let ((e-129 (vector-ref arg-1 2))) (let ((e-130 (vector-ref arg-1 3))) (PreludeC-45TypesC-45String-C-43C-43 "[" (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 (IdrisC-45Syntax-n--9101-2989-u--dePure e-128 e-130 e-129 arg-0 e-129)) (PreludeC-45TypesC-45String-C-43C-43 " | " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-showSep ", " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (IdrisC-45Syntax-showDo (IdrisC-45Syntax-n--9101-2990-u--deGuard e-128 e-130 e-129 arg-0 eta-0))) e-130)) "]")))))))) ((45) (let ((e-132 (vector-ref arg-1 2))) (let ((e-133 (vector-ref arg-1 3))) (PreludeC-45TypesC-45String-C-43C-43 "rewrite " (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-132) (PreludeC-45TypesC-45String-C-43C-43 " in " (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-133))))))) ((46) (let ((e-135 (vector-ref arg-1 2))) (let ((e-136 (vector-ref arg-1 3))) (let ((e-137 (vector-ref arg-1 4))) (if (null? e-136) (PreludeC-45TypesC-45String-C-43C-43 "[" (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-135) (PreludeC-45TypesC-45String-C-43C-43 " .. " (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-137) "]")))) (let ((e-176 (unbox e-136))) (PreludeC-45TypesC-45String-C-43C-43 "[" (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-135) (PreludeC-45TypesC-45String-C-43C-43 ", " (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-176) (PreludeC-45TypesC-45String-C-43C-43 " .. " (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-137) "]")))))))))))) ((47) (let ((e-139 (vector-ref arg-1 2))) (let ((e-140 (vector-ref arg-1 3))) (if (null? e-140) (PreludeC-45TypesC-45String-C-43C-43 "[" (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-139) " .. ]")) (let ((e-179 (unbox e-140))) (PreludeC-45TypesC-45String-C-43C-43 "[" (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-139) (PreludeC-45TypesC-45String-C-43C-43 ", " (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-179) " .. ]"))))))))) ((50) (let ((e-143 (vector-ref arg-1 3))) (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-143))) ((48) (let ((e-145 (vector-ref arg-1 2))) (let ((e-146 (vector-ref arg-1 3))) (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-145) (PreludeC-45Interfaces-concatMap (cons (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_String arg-2 arg-3))) (PreludeC-45Types-u--neutral_Monoid_String))) (lambda (u--n) (PreludeC-45TypesC-45String-C-43C-43 "." (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (u--x) (CoreC-45FC-u--show_Show_FC u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45FC-u--showPrec_Show_FC u--d u--x)))) (cons (lambda (u--x) (CoreC-45Name-u--show_Show_Name u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Name-u--showPrec_Show_Name u--d u--x))))) u--n))) e-146))))) ((49) (let ((e-148 (vector-ref arg-1 2))) (PreludeC-45Interfaces-concatMap (cons (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_String arg-2 arg-3))) (PreludeC-45Types-u--neutral_Monoid_String))) (lambda (u--n) (PreludeC-45TypesC-45String-C-43C-43 "." (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (u--x) (CoreC-45FC-u--show_Show_FC u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45FC-u--showPrec_Show_FC u--d u--x)))) (cons (lambda (u--x) (CoreC-45Name-u--show_Show_Name u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Name-u--showPrec_Show_Name u--d u--x))))) u--n))) e-148))) (else (let ((e-150 (vector-ref arg-1 2))) (let ((e-151 (vector-ref arg-1 3))) (PreludeC-45TypesC-45String-C-43C-43 "with " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45Name-u--show_Show_Name u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Name-u--showPrec_Show_Name u--d u--x)))) e-150) (PreludeC-45TypesC-45String-C-43C-43 " " (IdrisC-45Syntax-u--showPrec_Show_PTerm arg-0 e-151)))))))))) (define IdrisC-45Syntax-u--showPrec_Show_Method (lambda (arg-0 arg-1) (IdrisC-45Syntax-u--show_Show_Method arg-1))) -(define IdrisC-45Syntax-u--resolved_HasNames_SyntaxInfo (lambda (arg-0 arg-1 ext-0) (let ((act-24 ((IdrisC-45Syntax-u--resolved_HasNames_C-40ANameMapC-32C-36aC-41 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (IdrisC-45Syntax-u--full_HasNames_IFaceInfo arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (lambda (eta-0) (IdrisC-45Syntax-u--resolved_HasNames_IFaceInfo arg-3812 arg-3813 eta-0))))) arg-0 (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 3))) e-2))) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Name arg-0 eta-0)) (let ((sc1 arg-1)) (let ((e-6 (vector-ref sc1 7))) e-6)) '() ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 (let ((sc2 arg-1)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-3 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-10 (vector-ref sc2 6))) (let ((e-7 (vector-ref sc2 8))) (let ((e-8 (vector-ref sc2 9))) (vector 0 e-0 e-1 e-5 e-3 e-4 e-10 e-6 e-7 e-8)))))))))))))))))))))) +(define IdrisC-45Syntax-u--resolved_HasNames_SyntaxInfo (lambda (arg-0 arg-1 ext-0) (let ((act-24 ((IdrisC-45Syntax-u--resolved_HasNames_C-40ANameMapC-32C-36aC-41 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (IdrisC-45Syntax-u--full_HasNames_IFaceInfo arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (IdrisC-45Syntax-u--resolved_HasNames_IFaceInfo arg-3843 arg-3844 eta-0))))) arg-0 (let ((e-2 (vector-ref arg-1 2))) e-2)) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (CoreC-45Context-u--resolved_HasNames_Name arg-0 eta-0 eta-1))) (let ((e-6 (vector-ref arg-1 6))) e-6) '() ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (let ((e-0 (vector-ref arg-1 0))) (let ((e-1 (vector-ref arg-1 1))) (let ((e-3 (vector-ref arg-1 3))) (let ((e-4 (vector-ref arg-1 4))) (let ((e-10 (vector-ref arg-1 5))) (let ((e-7 (vector-ref arg-1 7))) (let ((e-8 (vector-ref arg-1 8))) (vector e-0 e-1 e-5 e-3 e-4 e-10 e-6 e-7 e-8))))))))))))))))))) (define IdrisC-45Syntax-u--resolved_HasNames_IFaceInfo (lambda (arg-0 arg-1 ext-0) (vector 1 arg-1))) -(define IdrisC-45Syntax-u--resolved_HasNames_C-40ANameMapC-32C-36aC-41 (lambda (arg-1 arg-2 arg-3) (lambda (eta-0) (IdrisC-45Syntax-n--15414-4060-u--insertAll arg-1 arg-3 arg-2 (LibrariesC-45DataC-45ANameMap-empty) (LibrariesC-45DataC-45ANameMap-toList arg-3) eta-0)))) -(define IdrisC-45Syntax-u--pretty_Pretty_REPLOpt (lambda (arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "showimplicits") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-equals) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Bool e-0))))) ((1) (let ((e-1 (vector-ref sc0 1))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "shownamespace") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-equals) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Bool e-1))))) ((2) (let ((e-2 (vector-ref sc0 1))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "showtypes") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-equals) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Bool e-2))))) ((3) (let ((e-3 (vector-ref sc0 1))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "eval") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-equals) (IdrisC-45Syntax-u--pretty_Pretty_REPLEval e-3))))) ((4) (let ((e-4 (vector-ref sc0 1))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "editor") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-equals) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String e-4))))) ((5) (let ((e-5 (vector-ref sc0 1))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "cg") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-equals) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String e-5))))) (else (let ((e-6 (vector-ref sc0 1))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "profile") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-equals) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Bool e-6))))))))) -(define IdrisC-45Syntax-u--pretty_Pretty_REPLEval (lambda (arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "typecheck")) ((1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "normalise")) (else (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "execute")))))) -(define IdrisC-45Syntax-u--full_HasNames_SyntaxInfo (lambda (arg-0 arg-1 ext-0) (let ((act-24 ((IdrisC-45Syntax-u--full_HasNames_C-40ANameMapC-32C-36aC-41 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (IdrisC-45Syntax-u--full_HasNames_IFaceInfo arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (lambda (eta-0) (IdrisC-45Syntax-u--resolved_HasNames_IFaceInfo arg-3812 arg-3813 eta-0))))) arg-0 (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 3))) e-2))) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (CoreC-45Context-u--full_HasNames_Name arg-0 eta-0 eta-1))) (let ((sc1 arg-1)) (let ((e-6 (vector-ref sc1 7))) e-6)) '() ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 (let ((sc2 arg-1)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-3 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-10 (vector-ref sc2 6))) (let ((e-7 (vector-ref sc2 8))) (let ((e-8 (vector-ref sc2 9))) (vector 0 e-0 e-1 e-5 e-3 e-4 e-10 e-6 e-7 e-8)))))))))))))))))))))) +(define IdrisC-45Syntax-u--resolved_HasNames_C-40ANameMapC-32C-36aC-41 (lambda (arg-1 arg-2 arg-3) (lambda (eta-0) (IdrisC-45Syntax-n--11547-4221-u--insertAll arg-1 arg-3 arg-2 (LibrariesC-45DataC-45ANameMap-empty) (LibrariesC-45DataC-45ANameMap-toList arg-3) eta-0)))) +(define IdrisC-45Syntax-u--pretty_Pretty_REPLOpt (lambda (arg-1) (case (vector-ref arg-1 0) ((0) (let ((e-0 (vector-ref arg-1 1))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "showimplicits") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-equals) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Bool e-0))))) ((1) (let ((e-1 (vector-ref arg-1 1))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "shownamespace") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-equals) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Bool e-1))))) ((2) (let ((e-2 (vector-ref arg-1 1))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "showtypes") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-equals) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Bool e-2))))) ((3) (let ((e-3 (vector-ref arg-1 1))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "eval") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-equals) (IdrisC-45Syntax-u--pretty_Pretty_REPLEval e-3))))) ((4) (let ((e-4 (vector-ref arg-1 1))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "editor") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-equals) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String e-4))))) ((5) (let ((e-5 (vector-ref arg-1 1))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "cg") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-equals) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String e-5))))) (else (let ((e-6 (vector-ref arg-1 1))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "profile") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-equals) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Bool e-6)))))))) +(define IdrisC-45Syntax-u--pretty_Pretty_REPLEval (lambda (arg-1) (cond ((equal? arg-1 0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "typecheck")) ((equal? arg-1 1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "normalise")) (else (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "execute"))))) +(define IdrisC-45Syntax-u--full_HasNames_SyntaxInfo (lambda (arg-0 arg-1 ext-0) (let ((act-24 ((IdrisC-45Syntax-u--full_HasNames_C-40ANameMapC-32C-36aC-41 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (IdrisC-45Syntax-u--full_HasNames_IFaceInfo arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (IdrisC-45Syntax-u--resolved_HasNames_IFaceInfo arg-3843 arg-3844 eta-0))))) arg-0 (let ((e-2 (vector-ref arg-1 2))) e-2)) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (CoreC-45Context-u--full_HasNames_Name arg-0 eta-0 eta-1))) (let ((e-6 (vector-ref arg-1 6))) e-6) '() ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (let ((e-0 (vector-ref arg-1 0))) (let ((e-1 (vector-ref arg-1 1))) (let ((e-3 (vector-ref arg-1 3))) (let ((e-4 (vector-ref arg-1 4))) (let ((e-10 (vector-ref arg-1 5))) (let ((e-7 (vector-ref arg-1 7))) (let ((e-8 (vector-ref arg-1 8))) (vector e-0 e-1 e-5 e-3 e-4 e-10 e-6 e-7 e-8))))))))))))))))))) (define IdrisC-45Syntax-u--full_HasNames_IFaceInfo (lambda (arg-0 arg-1 ext-0) (vector 1 arg-1))) -(define IdrisC-45Syntax-u--full_HasNames_C-40ANameMapC-32C-36aC-41 (lambda (arg-1 arg-2 arg-3) (lambda (eta-0) (IdrisC-45Syntax-n--15413-4018-u--insertAll arg-1 arg-3 arg-2 (LibrariesC-45DataC-45ANameMap-empty) (LibrariesC-45DataC-45ANameMap-toList arg-3) eta-0)))) -(define IdrisC-45Syntax-u--fromBuf_TTC_SyntaxInfo (lambda (arg-0 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10258) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-10256 arg-10258))) (lambda (arg-10258) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-10258 eta-1)))) (cons (lambda (arg-10256) (lambda (arg-10258) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10259) (lambda (arg-10260) (lambda (eta-2) (IdrisC-45Syntax-u--toBuf_TTC_Fixity arg-10259 arg-10260 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (IdrisC-45Syntax-u--fromBuf_TTC_Fixity arg-10259 eta-2)))) (cons (lambda (arg-10259) (lambda (arg-10260) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-10259 arg-10260))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-10259 eta-2))))) arg-10256 arg-10258 eta-1)))) (lambda (arg-10258) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10259) (lambda (eta-2) (IdrisC-45Syntax-u--toBuf_TTC_Fixity arg-10256 arg-10259 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (IdrisC-45Syntax-u--fromBuf_TTC_Fixity arg-10259 eta-2)))) (cons (lambda (arg-10256) (lambda (arg-10259) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-10256 arg-10259))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-10259 eta-2))))) arg-10258 eta-1))))) arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10255) (lambda (arg-10257) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-10255 arg-10257))) (lambda (arg-10259) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-10259 eta-1)))) (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10259) (lambda (eta-2) (IdrisC-45Syntax-u--toBuf_TTC_Fixity arg-10256 arg-10259 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (IdrisC-45Syntax-u--fromBuf_TTC_Fixity arg-10259 eta-2)))) (cons (lambda (arg-10256) (lambda (arg-10259) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-10256 arg-10259))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-10259 eta-2))))) arg-10255 arg-10257 eta-1)))) (lambda (arg-10259) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-2) (IdrisC-45Syntax-u--toBuf_TTC_Fixity arg-10255 arg-10257 eta-2)))) (lambda (arg-10260) (lambda (eta-2) (IdrisC-45Syntax-u--fromBuf_TTC_Fixity arg-10260 eta-2)))) (cons (lambda (arg-10255) (lambda (arg-10257) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-10255 arg-10257))) (lambda (arg-10260) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-10260 eta-2))))) arg-10259 eta-1))))) arg-10258 eta-0)))) arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10258) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-10256 arg-10258))) (lambda (arg-10258) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-10258 eta-1)))) (cons (lambda (arg-10256) (lambda (arg-10258) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-10256 arg-10258))) (lambda (arg-10258) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-10258 eta-1))))) arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10255) (lambda (arg-10257) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-10255 arg-10257))) (lambda (arg-10259) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-10259 eta-1)))) (cons (lambda (arg-10255) (lambda (arg-10257) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-10255 arg-10257))) (lambda (arg-10259) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-10259 eta-1))))) arg-10258 eta-0)))) arg-0 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10258) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_Name arg-10256 arg-10258 eta-1)))) (lambda (arg-10258) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10258 eta-1)))) (cons (lambda (arg-10256) (lambda (arg-10258) (lambda (eta-1) (IdrisC-45Syntax-u--toBuf_TTC_IFaceInfo arg-10256 arg-10258 eta-1)))) (lambda (arg-10258) (lambda (eta-1) (IdrisC-45Syntax-u--fromBuf_TTC_IFaceInfo arg-10258 eta-1))))) arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_Name arg-10255 arg-10257 eta-1)))) (lambda (arg-10259) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10259 eta-1)))) (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-1) (IdrisC-45Syntax-u--toBuf_TTC_IFaceInfo arg-10255 arg-10257 eta-1)))) (lambda (arg-10259) (lambda (eta-1) (IdrisC-45Syntax-u--fromBuf_TTC_IFaceInfo arg-10259 eta-1))))) arg-10258 eta-0)))) arg-0 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10258) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_Name arg-10256 arg-10258 eta-1)))) (lambda (arg-10258) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10258 eta-1)))) (cons (lambda (arg-10256) (lambda (arg-10258) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-10256 arg-10258))) (lambda (arg-10258) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-10258 eta-1))))) arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_Name arg-10255 arg-10257 eta-1)))) (lambda (arg-10259) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10259 eta-1)))) (cons (lambda (arg-10255) (lambda (arg-10257) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-10255 arg-10257))) (lambda (arg-10259) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-10259 eta-1))))) arg-10258 eta-0)))) arg-0 ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_Name arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10258 eta-0)))) arg-0 ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-29 (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-0 ext-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc5 1))) (vector 1 (vector 0 (LibrariesC-45DataC-45StringMap-fromList e-5) (LibrariesC-45DataC-45StringMap-fromList e-6) (LibrariesC-45DataC-45ANameMap-fromList e-7) '() (LibrariesC-45DataC-45ANameMap-fromList e-8) (LibrariesC-45DataC-45NameMap-empty) e-9 '() e-10)))))))))))))))))))))))))))))))))) -(define IdrisC-45Syntax-u--fromBuf_TTC_Method (lambda (arg-0 ext-0) (let ((act-24 (CoreC-45TTC-u--fromBuf_TTC_Name arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_RigCount arg-0 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_TotalReq arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_TotalReq arg-10258 eta-0)))) arg-0 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-0 ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (vector 1 (vector 0 e-5 e-6 e-7 e-8)))))))))))))))))))))))) -(define IdrisC-45Syntax-u--fromBuf_TTC_IFaceInfo (lambda (arg-0 ext-0) (let ((act-24 (CoreC-45TTC-u--fromBuf_TTC_Name arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_Name arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10258 eta-0)))) arg-0 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_Name arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10258 eta-0)))) arg-0 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-10255 arg-10257))) (lambda (arg-10258) (lambda (eta-0) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-10258 eta-0)))) arg-0 ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (IdrisC-45Syntax-u--toBuf_TTC_Method arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (IdrisC-45Syntax-u--fromBuf_TTC_Method arg-10258 eta-0)))) arg-0 ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-29 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10258) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_Name arg-10256 arg-10258 eta-1)))) (lambda (arg-10258) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10258 eta-1)))) (cons (lambda (arg-10256) (lambda (arg-10258) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10259) (lambda (arg-10260) (lambda (eta-2) (TTImpC-45TTImp-u--toBuf_TTC_ImpClause arg-10259 arg-10260 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (TTImpC-45TTImp-u--fromBuf_TTC_ImpClause arg-10259 eta-2)))) arg-10256 arg-10258 eta-1)))) (lambda (arg-10258) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10256) (lambda (arg-10259) (lambda (eta-2) (TTImpC-45TTImp-u--toBuf_TTC_ImpClause arg-10256 arg-10259 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (TTImpC-45TTImp-u--fromBuf_TTC_ImpClause arg-10259 eta-2)))) arg-10258 eta-1))))) arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_Name arg-10255 arg-10257 eta-1)))) (lambda (arg-10259) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10259 eta-1)))) (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10256) (lambda (arg-10259) (lambda (eta-2) (TTImpC-45TTImp-u--toBuf_TTC_ImpClause arg-10256 arg-10259 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (TTImpC-45TTImp-u--fromBuf_TTC_ImpClause arg-10259 eta-2)))) arg-10255 arg-10257 eta-1)))) (lambda (arg-10259) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-2) (TTImpC-45TTImp-u--toBuf_TTC_ImpClause arg-10255 arg-10257 eta-2)))) (lambda (arg-10260) (lambda (eta-2) (TTImpC-45TTImp-u--fromBuf_TTC_ImpClause arg-10260 eta-2)))) arg-10259 eta-1))))) arg-10258 eta-0)))) arg-0 ext-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc5 1))) (vector 1 (vector 0 e-5 e-6 e-7 e-8 e-9 e-10)))))))))))))))))))))))))))))))))) -(define IdrisC-45Syntax-u--fromBuf_TTC_Fixity (lambda (arg-0 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-getTag arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (vector 1 (vector 0 ))) ((equal? sc1 1) (vector 1 (vector 1 ))) ((equal? sc1 2) (vector 1 (vector 2 ))) ((equal? sc1 3) (vector 1 (vector 3 )))(else (LibrariesC-45UtilsC-45Binary-corrupt "Fixity" ext-0))))))))))) -(define IdrisC-45Syntax-u--C-61C-61_Eq_Pass (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) 0)(else 1)))) ((1) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) 0)(else 1)))) ((2) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((2) 0)(else 1))))(else 1))))) -(define IdrisC-45Syntax-withSyn (lambda (arg-1 ext-1 ext-0) (CoreC-45Core-wrapRef (vector "Idris.Syntax.Syn" ) arg-1 (lambda (_-4279) (lambda (eta-0) (vector 1 (vector 0 )))) ext-1 ext-0))) -(define IdrisC-45Syntax-typePass (lambda (arg-0) (PreludeC-45Basics-C-124C-124 (IdrisC-45Syntax-u--C-61C-61_Eq_Pass arg-0 (vector 0 )) (lambda () (IdrisC-45Syntax-u--C-61C-61_Eq_Pass arg-0 (vector 1 )))))) -(define IdrisC-45Syntax-showUpdate (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-showSep "." e-0) (PreludeC-45TypesC-45String-C-43C-43 " = " (IdrisC-45Syntax-u--show_Show_PTerm e-1)))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-showSep "." e-2) (PreludeC-45TypesC-45String-C-43C-43 " $= " (IdrisC-45Syntax-u--show_Show_PTerm e-3)))))))))) -(define IdrisC-45Syntax-showPrecOp (lambda (arg-0 arg-1) (IdrisC-45Syntax-case--showPrecOp-3147 arg-1 arg-0 (ParserC-45LexerC-45Source-isOpName arg-1)))) -(define IdrisC-45Syntax-showDo (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (IdrisC-45Syntax-u--show_Show_PTerm e-1))) ((1) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-4) (PreludeC-45TypesC-45String-C-43C-43 " <- " (IdrisC-45Syntax-u--show_Show_PTerm e-5)))))) ((2) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (let ((e-9 (vector-ref sc0 4))) (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--show_Show_PTerm e-7) (PreludeC-45TypesC-45String-C-43C-43 " <- " (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--show_Show_PTerm e-8) (PreludeC-45Interfaces-concatMap (cons (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_String arg-2 arg-3))) (PreludeC-45Types-u--neutral_Monoid_String))) (lambda (eta-0) (IdrisC-45Syntax-showAlt eta-0)) e-9)))))))) ((3) (let ((e-12 (vector-ref sc0 3))) (let ((e-15 (vector-ref sc0 6))) (PreludeC-45TypesC-45String-C-43C-43 "let " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-12) (PreludeC-45TypesC-45String-C-43C-43 " = " (IdrisC-45Syntax-u--show_Show_PTerm e-15))))))) ((4) (let ((e-17 (vector-ref sc0 2))) (let ((e-19 (vector-ref sc0 4))) (let ((e-20 (vector-ref sc0 5))) (PreludeC-45TypesC-45String-C-43C-43 "let " (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--show_Show_PTerm e-17) (PreludeC-45TypesC-45String-C-43C-43 " = " (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--show_Show_PTerm e-19) (PreludeC-45Interfaces-concatMap (cons (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_String arg-2 arg-3))) (PreludeC-45Types-u--neutral_Monoid_String))) (lambda (eta-0) (IdrisC-45Syntax-showAlt eta-0)) e-20))))))))) ((5) "let { << definitions >> }") (else (let ((e-24 (vector-ref sc0 2))) (PreludeC-45TypesC-45String-C-43C-43 "rewrite " (IdrisC-45Syntax-u--show_Show_PTerm e-24)))))))) -(define IdrisC-45Syntax-showAlt (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (PreludeC-45TypesC-45String-C-43C-43 " | " (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--show_Show_PTerm e-1) (PreludeC-45TypesC-45String-C-43C-43 " => " (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--show_Show_PTerm e-2) ";"))))))) ((1) " | <>;") (else (let ((e-11 (vector-ref sc0 2))) (PreludeC-45TypesC-45String-C-43C-43 " | " (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--show_Show_PTerm e-11) " impossible;")))))))) -(define IdrisC-45Syntax-papply (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (if (null? sc0) arg-1 (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (IdrisC-45Syntax-papply arg-0 (vector 7 arg-0 arg-1 e-2) e-3))))))) -(define IdrisC-45Syntax-mapPTermM (lambda (arg-0 ext-0) (IdrisC-45Syntax-n--15706-4287-u--goPTerm arg-0 ext-0))) -(define IdrisC-45Syntax-isPDef (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (vector 1 (cons e-0 e-1)))))(else (vector 0 )))))) -(define IdrisC-45Syntax-initSyntax (lambda () (vector 0 (IdrisC-45Syntax-n--15616-4195-u--initInfix) (IdrisC-45Syntax-n--15616-4196-u--initPrefix) (LibrariesC-45DataC-45ANameMap-empty) '() (IdrisC-45Syntax-n--15616-4197-u--initDocStrings) (IdrisC-45Syntax-n--15616-4198-u--initSaveDocStrings) '() '() (vector 0 (vector 0 "(default)" (cons 0 0) (cons 0 0)) (vector 1 "main"))))) -(define IdrisC-45Syntax-getPTermLoc (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) e-0)) ((1) (let ((e-2 (vector-ref sc0 1))) e-2)) ((2) (let ((e-8 (vector-ref sc0 1))) e-8)) ((3) (let ((e-14 (vector-ref sc0 1))) e-14)) ((4) (let ((e-21 (vector-ref sc0 1))) e-21)) ((5) (let ((e-24 (vector-ref sc0 1))) e-24)) ((6) (let ((e-27 (vector-ref sc0 1))) e-27)) ((7) (let ((e-29 (vector-ref sc0 1))) e-29)) ((8) (let ((e-32 (vector-ref sc0 1))) e-32)) ((10) (let ((e-35 (vector-ref sc0 1))) e-35)) ((9) (let ((e-38 (vector-ref sc0 1))) e-38)) ((11) (let ((e-42 (vector-ref sc0 1))) e-42)) ((12) (let ((e-45 (vector-ref sc0 1))) e-45)) ((13) (let ((e-47 (vector-ref sc0 1))) e-47)) ((14) (let ((e-49 (vector-ref sc0 1))) e-49)) ((15) (let ((e-51 (vector-ref sc0 1))) e-51)) ((16) (let ((e-53 (vector-ref sc0 1))) e-53)) ((17) (let ((e-55 (vector-ref sc0 1))) e-55)) ((18) (let ((e-57 (vector-ref sc0 1))) e-57)) ((19) (let ((e-59 (vector-ref sc0 1))) e-59)) ((20) (let ((e-61 (vector-ref sc0 1))) e-61)) ((21) (let ((e-63 (vector-ref sc0 1))) e-63)) ((22) (let ((e-66 (vector-ref sc0 1))) e-66)) ((23) (let ((e-67 (vector-ref sc0 1))) e-67)) ((24) (let ((e-71 (vector-ref sc0 1))) e-71)) ((25) (let ((e-73 (vector-ref sc0 1))) e-73)) ((26) (let ((e-74 (vector-ref sc0 1))) e-74)) ((27) (let ((e-75 (vector-ref sc0 1))) e-75)) ((28) (let ((e-79 (vector-ref sc0 1))) e-79)) ((29) (let ((e-82 (vector-ref sc0 1))) e-82)) ((30) (let ((e-85 (vector-ref sc0 1))) e-85)) ((31) (let ((e-88 (vector-ref sc0 1))) e-88)) ((32) (let ((e-91 (vector-ref sc0 1))) e-91)) ((33) (let ((e-93 (vector-ref sc0 1))) e-93)) ((34) (let ((e-95 (vector-ref sc0 1))) e-95)) ((35) (let ((e-98 (vector-ref sc0 1))) e-98)) ((36) (let ((e-101 (vector-ref sc0 1))) e-101)) ((37) (let ((e-103 (vector-ref sc0 1))) e-103)) ((38) (let ((e-105 (vector-ref sc0 1))) e-105)) ((39) (let ((e-107 (vector-ref sc0 1))) e-107)) ((40) (let ((e-110 (vector-ref sc0 1))) e-110)) ((41) (let ((e-114 (vector-ref sc0 1))) e-114)) ((42) (let ((e-115 (vector-ref sc0 1))) e-115)) ((43) (let ((e-119 (vector-ref sc0 1))) e-119)) ((44) (let ((e-122 (vector-ref sc0 1))) e-122)) ((45) (let ((e-125 (vector-ref sc0 1))) e-125)) ((46) (let ((e-129 (vector-ref sc0 1))) e-129)) ((47) (let ((e-132 (vector-ref sc0 1))) e-132)) ((48) (let ((e-135 (vector-ref sc0 1))) e-135)) ((49) (let ((e-137 (vector-ref sc0 1))) e-137)) (else (let ((e-140 (vector-ref sc0 1))) e-140)))))) -(define IdrisC-45Syntax-getLoc (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) e-0)) ((1) (let ((e-2 (vector-ref sc0 1))) e-2)) ((2) (let ((e-6 (vector-ref sc0 1))) e-6)) ((3) (let ((e-10 (vector-ref sc0 1))) e-10)) ((4) (let ((e-16 (vector-ref sc0 1))) e-16)) ((5) (let ((e-21 (vector-ref sc0 1))) e-21)) (else (let ((e-23 (vector-ref sc0 1))) e-23)))))) -(define IdrisC-45Syntax-definedInData (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (cons e-1 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (IdrisC-45Syntax-n--12358-1148-u--getName e-0 e-2 e-3 e-4 e-1 eta-0)) e-4)))))))) (else (let ((e-6 (vector-ref sc0 2))) (cons e-6 '()))))))) -(define IdrisC-45Syntax-definedIn (lambda (arg-0) (let ((sc0 arg-0)) (if (null? sc0) '() (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-8 (vector-ref sc1 5))) (let ((sc2 e-8)) (case (vector-ref sc2 0) ((0) (let ((e-24 (vector-ref sc2 3))) (cons e-24 (IdrisC-45Syntax-definedIn e-3))))(else (IdrisC-45Syntax-definedIn e-3)))))) ((2) (let ((e-12 (vector-ref sc1 4))) (PreludeC-45TypesC-45List-C-43C-43 (IdrisC-45Syntax-definedInData e-12) (IdrisC-45Syntax-definedIn e-3)))) ((3) (let ((e-15 (vector-ref sc1 3))) (PreludeC-45TypesC-45List-C-43C-43 (IdrisC-45Syntax-definedIn e-15) (IdrisC-45Syntax-definedIn e-3)))) ((4) (let ((e-18 (vector-ref sc1 3))) (PreludeC-45TypesC-45List-C-43C-43 (IdrisC-45Syntax-definedIn e-18) (IdrisC-45Syntax-definedIn e-3)))) ((11) (let ((e-21 (vector-ref sc1 3))) (PreludeC-45TypesC-45List-C-43C-43 (IdrisC-45Syntax-definedIn e-21) (IdrisC-45Syntax-definedIn e-3))))(else (IdrisC-45Syntax-definedIn e-3)))))))))) -(define IdrisC-45Syntax-defPass (lambda (arg-0) (PreludeC-45Basics-C-124C-124 (IdrisC-45Syntax-u--C-61C-61_Eq_Pass arg-0 (vector 0 )) (lambda () (IdrisC-45Syntax-u--C-61C-61_Eq_Pass arg-0 (vector 2 )))))) -(define LibrariesC-45DataC-45ANameMap-case--caseC-32blockC-32inC-32addToHier-4553 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (LibrariesC-45DataC-45StringMap-insert arg-4 (cons (cons arg-2 arg-3) '()) arg-1)) (else (let ((e-2 (vector-ref sc0 1))) (LibrariesC-45DataC-45StringMap-insert arg-4 (LibrariesC-45DataC-45ANameMap-n--3546-4450-u--update arg-3 arg-1 arg-2 arg-3 e-2) arg-1))))))) -(define LibrariesC-45DataC-45ANameMap-case--addToHier-4523 (lambda (arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) arg-2) (else (let ((e-2 (vector-ref sc0 1))) (LibrariesC-45DataC-45ANameMap-case--caseC-32blockC-32inC-32addToHier-4553 arg-2 arg-3 arg-1 e-2 (LibrariesC-45DataC-45StringMap-lookup e-2 arg-2)))))))) -(define LibrariesC-45DataC-45ANameMap-case--addToHierC-44update-4473 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (cons (cons arg-3 arg-6) arg-5)) (else (cons arg-4 (LibrariesC-45DataC-45ANameMap-n--3546-4450-u--update arg-1 arg-2 arg-3 arg-6 arg-5))))))) -(define LibrariesC-45DataC-45ANameMap-case--caseC-32blockC-32inC-32lookupName-4409 (lambda (arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) '()) (else (let ((e-2 (vector-ref sc0 1))) (DataC-45List-filter (lambda (eta-0) (CoreC-45Name-matches arg-2 (Builtin-fst eta-0))) e-2))))))) -(define LibrariesC-45DataC-45ANameMap-case--caseC-32blockC-32inC-32lookupName-4368 (lambda (arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) '()) (else (let ((e-2 (vector-ref sc0 1))) (cons (cons arg-2 e-2) '()))))))) -(define LibrariesC-45DataC-45ANameMap-case--lookupName-4355 (lambda (arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (LibrariesC-45DataC-45ANameMap-case--caseC-32blockC-32inC-32lookupName-4368 arg-1 arg-2 (LibrariesC-45DataC-45ANameMap-lookupExact arg-2 arg-1))) (else (let ((e-2 (vector-ref sc0 1))) (LibrariesC-45DataC-45ANameMap-case--caseC-32blockC-32inC-32lookupName-4409 arg-1 arg-2 e-2 (LibrariesC-45DataC-45StringMap-lookup e-2 (let ((sc1 arg-1)) (let ((e-3 (cdr sc1))) e-3)))))))))) -(define LibrariesC-45DataC-45ANameMap-n--3546-4450-u--update (lambda (arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (if (null? sc0) (cons (cons arg-3 arg-4) '()) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (LibrariesC-45DataC-45ANameMap-case--addToHierC-44update-4473 arg-1 arg-2 arg-3 e-2 e-3 arg-4 (CoreC-45Name-u--C-61C-61_Eq_Name arg-3 (Builtin-fst e-2))))))))) -(define LibrariesC-45DataC-45ANameMap-n--3764-4642-u--insertFrom (lambda (arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (if (null? sc0) arg-5 (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (LibrariesC-45DataC-45ANameMap-n--3764-4642-u--insertFrom arg-1 arg-2 arg-3 e-3 (LibrariesC-45DataC-45ANameMap-addName e-6 e-7 arg-5))))))))))) -(define LibrariesC-45DataC-45ANameMap-n--3742-4619-u--fromListC-39 (lambda (arg-1 arg-2) (let ((sc0 arg-2)) (if (null? sc0) arg-1 (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (LibrariesC-45DataC-45ANameMap-n--3742-4619-u--fromListC-39 (LibrariesC-45DataC-45ANameMap-addName e-6 e-7 arg-1) e-3)))))))))) -(define LibrariesC-45DataC-45ANameMap-toList (lambda (arg-1) (LibrariesC-45DataC-45NameMap-toList (let ((sc0 arg-1)) (let ((e-1 (car sc0))) e-1))))) -(define LibrariesC-45DataC-45ANameMap-merge (lambda (arg-1 arg-2) (let ((sc0 arg-1)) (let ((e-1 (car sc0))) (let ((e-2 (cdr sc0))) (LibrariesC-45DataC-45ANameMap-n--3764-4642-u--insertFrom e-2 e-1 arg-2 (LibrariesC-45DataC-45NameMap-toList e-1) arg-2)))))) -(define LibrariesC-45DataC-45ANameMap-lookupName (lambda (arg-1 arg-2) (LibrariesC-45DataC-45ANameMap-case--lookupName-4355 arg-2 arg-1 (CoreC-45Name-userNameRoot arg-1)))) -(define LibrariesC-45DataC-45ANameMap-lookupExact (lambda (arg-1 arg-2) (LibrariesC-45DataC-45NameMap-lookup arg-1 (let ((sc0 arg-2)) (let ((e-1 (car sc0))) e-1))))) -(define LibrariesC-45DataC-45ANameMap-fromList (lambda (ext-0) (LibrariesC-45DataC-45ANameMap-n--3742-4619-u--fromListC-39 (LibrariesC-45DataC-45ANameMap-empty) ext-0))) +(define IdrisC-45Syntax-u--full_HasNames_C-40ANameMapC-32C-36aC-41 (lambda (arg-1 arg-2 arg-3) (lambda (eta-0) (IdrisC-45Syntax-n--11546-4180-u--insertAll arg-1 arg-3 arg-2 (LibrariesC-45DataC-45ANameMap-empty) (LibrariesC-45DataC-45ANameMap-toList arg-3) eta-0)))) +(define IdrisC-45Syntax-u--fromBuf_TTC_SyntaxInfo (lambda (arg-0 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-1457 arg-1460))) (lambda (arg-1461) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-1461 eta-1)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1458) (lambda (arg-1461) (lambda (eta-2) (IdrisC-45Syntax-u--toBuf_TTC_Fixity arg-1458 arg-1461 eta-2)))) (lambda (arg-1461) (lambda (eta-2) (IdrisC-45Syntax-u--fromBuf_TTC_Fixity arg-1461 eta-2)))) (cons (lambda (arg-1458) (lambda (arg-1461) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-1458 arg-1461 eta-2)))) (lambda (arg-1461) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-1461 eta-2))))) arg-1457 arg-1460 eta-1)))) (lambda (arg-1461) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (IdrisC-45Syntax-u--toBuf_TTC_Fixity arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (IdrisC-45Syntax-u--fromBuf_TTC_Fixity arg-1462 eta-2)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-1462 eta-2))))) arg-1461 eta-1))))) arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-1456 arg-1459))) (lambda (arg-1462) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-1462 eta-1)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (IdrisC-45Syntax-u--toBuf_TTC_Fixity arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (IdrisC-45Syntax-u--fromBuf_TTC_Fixity arg-1462 eta-2)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-1462 eta-2))))) arg-1456 arg-1459 eta-1)))) (lambda (arg-1462) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-2) (IdrisC-45Syntax-u--toBuf_TTC_Fixity arg-1456 arg-1459 eta-2)))) (lambda (arg-1463) (lambda (eta-2) (IdrisC-45Syntax-u--fromBuf_TTC_Fixity arg-1463 eta-2)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-1456 arg-1459 eta-2)))) (lambda (arg-1463) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-1463 eta-2))))) arg-1462 eta-1))))) arg-1461 eta-0)))) arg-0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-1457 arg-1460))) (lambda (arg-1461) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-1461 eta-1)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-1457 arg-1460 eta-1)))) (lambda (arg-1461) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-1461 eta-1))))) arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-1456 arg-1459))) (lambda (arg-1462) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-1462 eta-1)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Nat arg-1456 arg-1459 eta-1)))) (lambda (arg-1462) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Nat arg-1462 eta-1))))) arg-1461 eta-0)))) arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_Name arg-1457 arg-1460 eta-1)))) (lambda (arg-1461) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1461 eta-1)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-1) (IdrisC-45Syntax-u--toBuf_TTC_IFaceInfo arg-1457 arg-1460 eta-1)))) (lambda (arg-1461) (lambda (eta-1) (IdrisC-45Syntax-u--fromBuf_TTC_IFaceInfo arg-1461 eta-1))))) arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_Name arg-1456 arg-1459 eta-1)))) (lambda (arg-1462) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1462 eta-1)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-1) (IdrisC-45Syntax-u--toBuf_TTC_IFaceInfo arg-1456 arg-1459 eta-1)))) (lambda (arg-1462) (lambda (eta-1) (IdrisC-45Syntax-u--fromBuf_TTC_IFaceInfo arg-1462 eta-1))))) arg-1461 eta-0)))) arg-0 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_Name arg-1457 arg-1460 eta-1)))) (lambda (arg-1461) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1461 eta-1)))) (cons (lambda (arg-1457) (lambda (arg-1460) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-1457 arg-1460))) (lambda (arg-1461) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-1461 eta-1))))) arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_Name arg-1456 arg-1459 eta-1)))) (lambda (arg-1462) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1462 eta-1)))) (cons (lambda (arg-1456) (lambda (arg-1459) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_String arg-1456 arg-1459))) (lambda (arg-1462) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_String arg-1462 eta-1))))) arg-1461 eta-0)))) arg-0 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (let ((act-28 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_Name arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1461 eta-0)))) arg-0 ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-28 1))) (let ((act-29 (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-0 ext-0))) (case (vector-ref act-29 0) ((0) (let ((e-2 (vector-ref act-29 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref act-29 1))) (vector 1 (vector (LibrariesC-45DataC-45StringMap-fromList e-5) (LibrariesC-45DataC-45StringMap-fromList e-6) (LibrariesC-45DataC-45ANameMap-fromList e-7) '() (LibrariesC-45DataC-45ANameMap-fromList e-8) (LibrariesC-45DataC-45NameMap-empty) e-9 '() e-10)))))))))))))))))))))))))))) +(define IdrisC-45Syntax-u--fromBuf_TTC_Method (lambda (arg-0 ext-0) (let ((act-24 (CoreC-45TTC-u--fromBuf_TTC_Name arg-0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45TTC-u--fromBuf_TTC_RigCount arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_TotalReq arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_TotalReq arg-1461 eta-0)))) arg-0 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-0 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (vector 1 (vector e-5 e-6 e-7 e-8)))))))))))))))))))) +(define IdrisC-45Syntax-u--fromBuf_TTC_IFaceInfo (lambda (arg-0 ext-0) (let ((act-24 (CoreC-45TTC-u--fromBuf_TTC_Name arg-0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_Name arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1461 eta-0)))) arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_Name arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1461 eta-0)))) arg-0 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (TTImpC-45TTImp-u--toBuf_TTC_RawImp arg-1456 arg-1459))) (lambda (arg-1461) (lambda (eta-0) (TTImpC-45TTImp-u--fromBuf_TTC_RawImp arg-1461 eta-0)))) arg-0 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (let ((act-28 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (IdrisC-45Syntax-u--toBuf_TTC_Method arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (IdrisC-45Syntax-u--fromBuf_TTC_Method arg-1461 eta-0)))) arg-0 ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-28 1))) (let ((act-29 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_Name arg-1457 arg-1460 eta-1)))) (lambda (arg-1461) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1461 eta-1)))) (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1458) (lambda (arg-1461) (lambda (eta-2) (TTImpC-45TTImp-u--toBuf_TTC_ImpClause arg-1458 arg-1461 eta-2)))) (lambda (arg-1461) (lambda (eta-2) (TTImpC-45TTImp-u--fromBuf_TTC_ImpClause arg-1461 eta-2)))) arg-1457 arg-1460 eta-1)))) (lambda (arg-1461) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (TTImpC-45TTImp-u--toBuf_TTC_ImpClause arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (TTImpC-45TTImp-u--fromBuf_TTC_ImpClause arg-1462 eta-2)))) arg-1461 eta-1))))) arg-1456 arg-1459 eta-0)))) (lambda (arg-1461) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-1) (CoreC-45TTC-u--toBuf_TTC_Name arg-1456 arg-1459 eta-1)))) (lambda (arg-1462) (lambda (eta-1) (CoreC-45TTC-u--fromBuf_TTC_Name arg-1462 eta-1)))) (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1457) (lambda (arg-1460) (lambda (eta-2) (TTImpC-45TTImp-u--toBuf_TTC_ImpClause arg-1457 arg-1460 eta-2)))) (lambda (arg-1462) (lambda (eta-2) (TTImpC-45TTImp-u--fromBuf_TTC_ImpClause arg-1462 eta-2)))) arg-1456 arg-1459 eta-1)))) (lambda (arg-1462) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-1456) (lambda (arg-1459) (lambda (eta-2) (TTImpC-45TTImp-u--toBuf_TTC_ImpClause arg-1456 arg-1459 eta-2)))) (lambda (arg-1463) (lambda (eta-2) (TTImpC-45TTImp-u--fromBuf_TTC_ImpClause arg-1463 eta-2)))) arg-1462 eta-1))))) arg-1461 eta-0)))) arg-0 ext-0))) (case (vector-ref act-29 0) ((0) (let ((e-2 (vector-ref act-29 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref act-29 1))) (vector 1 (vector e-5 e-6 e-7 e-8 e-9 e-10)))))))))))))))))))))))))))) +(define IdrisC-45Syntax-u--fromBuf_TTC_Fixity (lambda (arg-0 ext-0) (let ((act-24 (LibrariesC-45UtilsC-45Binary-getTag arg-0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (cond ((equal? e-5 0) (vector 1 0)) ((equal? e-5 1) (vector 1 1)) ((equal? e-5 2) (vector 1 2)) ((equal? e-5 3) (vector 1 3))(else (LibrariesC-45UtilsC-45Binary-corrupt "Fixity" ext-0))))))))) +(define IdrisC-45Syntax-u--C-61C-61_Eq_Pass (lambda (arg-0 arg-1) (cond ((equal? arg-0 0) (cond ((equal? arg-1 0) 1)(else 0))) ((equal? arg-0 1) (cond ((equal? arg-1 1) 1)(else 0))) ((equal? arg-0 2) (cond ((equal? arg-1 2) 1)(else 0)))(else 0)))) +(define IdrisC-45Syntax-withSyn (lambda (arg-1 ext-1 ext-0) (CoreC-45Core-wrapRef (vector "Idris.Syntax.Syn" ) arg-1 (lambda (_-4422) (lambda (eta-0) (vector 1 0))) ext-1 ext-0))) +(define IdrisC-45Syntax-typePass (lambda (arg-0) (let ((sc0 (IdrisC-45Syntax-u--C-61C-61_Eq_Pass arg-0 0))) (cond ((equal? sc0 1) 1) (else (IdrisC-45Syntax-u--C-61C-61_Eq_Pass arg-0 1)))))) +(define IdrisC-45Syntax-showUpdate (lambda (arg-0) (case (vector-ref arg-0 0) ((0) (let ((e-0 (vector-ref arg-0 1))) (let ((e-1 (vector-ref arg-0 2))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-showSep "." e-0) (PreludeC-45TypesC-45String-C-43C-43 " = " (IdrisC-45Syntax-u--show_Show_PTerm e-1)))))) (else (let ((e-2 (vector-ref arg-0 1))) (let ((e-3 (vector-ref arg-0 2))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-showSep "." e-2) (PreludeC-45TypesC-45String-C-43C-43 " $= " (IdrisC-45Syntax-u--show_Show_PTerm e-3))))))))) +(define IdrisC-45Syntax-showPrecOp (lambda (arg-0 arg-1) (let ((sc0 (ParserC-45LexerC-45Source-isOpName arg-1))) (cond ((equal? sc0 1) (CoreC-45Name-u--showPrec_Show_Name arg-0 arg-1)) (else (PreludeC-45TypesC-45String-C-43C-43 "`" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--showPrec_Show_Name arg-0 arg-1) "`"))))))) +(define IdrisC-45Syntax-showDo (lambda (arg-0) (case (vector-ref arg-0 0) ((0) (let ((e-1 (vector-ref arg-0 2))) (IdrisC-45Syntax-u--show_Show_PTerm e-1))) ((1) (let ((e-4 (vector-ref arg-0 3))) (let ((e-5 (vector-ref arg-0 4))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-4) (PreludeC-45TypesC-45String-C-43C-43 " <- " (IdrisC-45Syntax-u--show_Show_PTerm e-5)))))) ((2) (let ((e-7 (vector-ref arg-0 2))) (let ((e-8 (vector-ref arg-0 3))) (let ((e-9 (vector-ref arg-0 4))) (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--show_Show_PTerm e-7) (PreludeC-45TypesC-45String-C-43C-43 " <- " (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--show_Show_PTerm e-8) (PreludeC-45Interfaces-concatMap (cons (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_String arg-2 arg-3))) (PreludeC-45Types-u--neutral_Monoid_String))) (lambda (eta-0) (IdrisC-45Syntax-showAlt eta-0)) e-9)))))))) ((3) (let ((e-12 (vector-ref arg-0 3))) (let ((e-15 (vector-ref arg-0 6))) (PreludeC-45TypesC-45String-C-43C-43 "let " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-12) (PreludeC-45TypesC-45String-C-43C-43 " = " (IdrisC-45Syntax-u--show_Show_PTerm e-15))))))) ((4) (let ((e-17 (vector-ref arg-0 2))) (let ((e-19 (vector-ref arg-0 4))) (let ((e-20 (vector-ref arg-0 5))) (PreludeC-45TypesC-45String-C-43C-43 "let " (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--show_Show_PTerm e-17) (PreludeC-45TypesC-45String-C-43C-43 " = " (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--show_Show_PTerm e-19) (PreludeC-45Interfaces-concatMap (cons (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_String arg-2 arg-3))) (PreludeC-45Types-u--neutral_Monoid_String))) (lambda (eta-0) (IdrisC-45Syntax-showAlt eta-0)) e-20))))))))) ((5) "let { << definitions >> }") (else (let ((e-24 (vector-ref arg-0 2))) (PreludeC-45TypesC-45String-C-43C-43 "rewrite " (IdrisC-45Syntax-u--show_Show_PTerm e-24))))))) +(define IdrisC-45Syntax-showAlt (lambda (arg-0) (case (vector-ref arg-0 0) ((0) (let ((e-1 (vector-ref arg-0 2))) (let ((e-2 (vector-ref arg-0 3))) (PreludeC-45TypesC-45String-C-43C-43 " | " (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--show_Show_PTerm e-1) (PreludeC-45TypesC-45String-C-43C-43 " => " (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--show_Show_PTerm e-2) ";"))))))) ((1) " | <>;") (else (let ((e-11 (vector-ref arg-0 2))) (PreludeC-45TypesC-45String-C-43C-43 " | " (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--show_Show_PTerm e-11) " impossible;"))))))) +(define IdrisC-45Syntax-papply (lambda (arg-0 arg-1 arg-2) (if (null? arg-2) arg-1 (let ((e-2 (car arg-2))) (let ((e-3 (cdr arg-2))) (IdrisC-45Syntax-papply arg-0 (vector 7 arg-0 arg-1 e-2) e-3)))))) +(define IdrisC-45Syntax-mapPTermM (lambda (arg-0 ext-0) (IdrisC-45Syntax-n--11826-4430-u--goPTerm arg-0 ext-0))) +(define IdrisC-45Syntax-isStrInterp (lambda (arg-0) (case (vector-ref arg-0 0) ((1) (let ((e-0 (vector-ref arg-0 1))) (box e-0))) (else '())))) +(define IdrisC-45Syntax-isPDef (lambda (arg-0) (case (vector-ref arg-0 0) ((1) (let ((e-0 (vector-ref arg-0 1))) (let ((e-1 (vector-ref arg-0 2))) (box (cons e-0 e-1)))))(else '())))) +(define IdrisC-45Syntax-initSyntax (lambda () (vector (IdrisC-45Syntax-n--11753-4355-u--initInfix) (IdrisC-45Syntax-n--11753-4356-u--initPrefix) (LibrariesC-45DataC-45ANameMap-empty) '() (IdrisC-45Syntax-n--11753-4357-u--initDocStrings) (IdrisC-45Syntax-n--11753-4358-u--initSaveDocStrings) '() '() (vector 0 (vector 2 ) (vector 1 "main"))))) +(define IdrisC-45Syntax-getPTermLoc (lambda (arg-0) (case (vector-ref arg-0 0) ((0) (let ((e-0 (vector-ref arg-0 1))) e-0)) ((1) (let ((e-2 (vector-ref arg-0 1))) e-2)) ((2) (let ((e-8 (vector-ref arg-0 1))) e-8)) ((3) (let ((e-14 (vector-ref arg-0 1))) e-14)) ((4) (let ((e-21 (vector-ref arg-0 1))) e-21)) ((5) (let ((e-24 (vector-ref arg-0 1))) e-24)) ((6) (let ((e-27 (vector-ref arg-0 1))) e-27)) ((7) (let ((e-29 (vector-ref arg-0 1))) e-29)) ((8) (let ((e-32 (vector-ref arg-0 1))) e-32)) ((10) (let ((e-35 (vector-ref arg-0 1))) e-35)) ((9) (let ((e-38 (vector-ref arg-0 1))) e-38)) ((11) (let ((e-42 (vector-ref arg-0 1))) e-42)) ((12) (let ((e-45 (vector-ref arg-0 1))) e-45)) ((13) (let ((e-47 (vector-ref arg-0 1))) e-47)) ((14) (let ((e-49 (vector-ref arg-0 1))) e-49)) ((15) (let ((e-51 (vector-ref arg-0 1))) e-51)) ((16) (let ((e-53 (vector-ref arg-0 1))) e-53)) ((17) (let ((e-55 (vector-ref arg-0 1))) e-55)) ((18) (let ((e-57 (vector-ref arg-0 1))) e-57)) ((19) (let ((e-59 (vector-ref arg-0 1))) e-59)) ((20) (let ((e-61 (vector-ref arg-0 1))) e-61)) ((21) (let ((e-63 (vector-ref arg-0 1))) e-63)) ((22) (let ((e-66 (vector-ref arg-0 1))) e-66)) ((23) (let ((e-67 (vector-ref arg-0 1))) e-67)) ((24) (let ((e-71 (vector-ref arg-0 1))) e-71)) ((25) (let ((e-73 (vector-ref arg-0 1))) e-73)) ((26) (let ((e-74 (vector-ref arg-0 1))) e-74)) ((27) (let ((e-75 (vector-ref arg-0 1))) e-75)) ((28) (let ((e-80 (vector-ref arg-0 1))) e-80)) ((29) (let ((e-84 (vector-ref arg-0 1))) e-84)) ((30) (let ((e-88 (vector-ref arg-0 1))) e-88)) ((31) (let ((e-92 (vector-ref arg-0 1))) e-92)) ((32) (let ((e-95 (vector-ref arg-0 1))) e-95)) ((33) (let ((e-97 (vector-ref arg-0 1))) e-97)) ((34) (let ((e-99 (vector-ref arg-0 1))) e-99)) ((35) (let ((e-102 (vector-ref arg-0 1))) e-102)) ((36) (let ((e-105 (vector-ref arg-0 1))) e-105)) ((37) (let ((e-107 (vector-ref arg-0 1))) e-107)) ((38) (let ((e-109 (vector-ref arg-0 1))) e-109)) ((39) (let ((e-112 (vector-ref arg-0 1))) e-112)) ((40) (let ((e-115 (vector-ref arg-0 1))) e-115)) ((41) (let ((e-118 (vector-ref arg-0 1))) e-118)) ((42) (let ((e-123 (vector-ref arg-0 1))) e-123)) ((43) (let ((e-124 (vector-ref arg-0 1))) e-124)) ((44) (let ((e-128 (vector-ref arg-0 1))) e-128)) ((45) (let ((e-131 (vector-ref arg-0 1))) e-131)) ((46) (let ((e-134 (vector-ref arg-0 1))) e-134)) ((47) (let ((e-138 (vector-ref arg-0 1))) e-138)) ((48) (let ((e-141 (vector-ref arg-0 1))) e-141)) ((49) (let ((e-144 (vector-ref arg-0 1))) e-144)) ((50) (let ((e-146 (vector-ref arg-0 1))) e-146)) (else (let ((e-149 (vector-ref arg-0 1))) e-149))))) +(define IdrisC-45Syntax-getLoc (lambda (arg-0) (case (vector-ref arg-0 0) ((0) (let ((e-0 (vector-ref arg-0 1))) e-0)) ((1) (let ((e-2 (vector-ref arg-0 1))) e-2)) ((2) (let ((e-6 (vector-ref arg-0 1))) e-6)) ((3) (let ((e-10 (vector-ref arg-0 1))) e-10)) ((4) (let ((e-16 (vector-ref arg-0 1))) e-16)) ((5) (let ((e-21 (vector-ref arg-0 1))) e-21)) (else (let ((e-23 (vector-ref arg-0 1))) e-23))))) +(define IdrisC-45Syntax-definedInData (lambda (arg-0) (case (vector-ref arg-0 0) ((0) (let ((e-0 (vector-ref arg-0 1))) (let ((e-1 (vector-ref arg-0 2))) (let ((e-2 (vector-ref arg-0 3))) (let ((e-3 (vector-ref arg-0 4))) (let ((e-4 (vector-ref arg-0 5))) (cons e-1 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (IdrisC-45Syntax-n--8328-1169-u--getName e-0 e-2 e-3 e-4 e-1 eta-0)) e-4)))))))) (else (let ((e-6 (vector-ref arg-0 2))) (cons e-6 '())))))) +(define IdrisC-45Syntax-definedIn (lambda (arg-0) (if (null? arg-0) '() (let ((e-2 (car arg-0))) (let ((e-3 (cdr arg-0))) (case (vector-ref e-2 0) ((0) (let ((e-8 (vector-ref e-2 5))) (let ((e-24 (vector-ref e-8 2))) (cons e-24 (IdrisC-45Syntax-definedIn e-3))))) ((2) (let ((e-12 (vector-ref e-2 4))) (PreludeC-45TypesC-45List-C-43C-43 (IdrisC-45Syntax-definedInData e-12) (IdrisC-45Syntax-definedIn e-3)))) ((3) (let ((e-15 (vector-ref e-2 3))) (PreludeC-45TypesC-45List-C-43C-43 (IdrisC-45Syntax-definedIn e-15) (IdrisC-45Syntax-definedIn e-3)))) ((4) (let ((e-18 (vector-ref e-2 3))) (PreludeC-45TypesC-45List-C-43C-43 (IdrisC-45Syntax-definedIn e-18) (IdrisC-45Syntax-definedIn e-3)))) ((11) (let ((e-21 (vector-ref e-2 3))) (PreludeC-45TypesC-45List-C-43C-43 (IdrisC-45Syntax-definedIn e-21) (IdrisC-45Syntax-definedIn e-3))))(else (IdrisC-45Syntax-definedIn e-3)))))))) +(define IdrisC-45Syntax-defPass (lambda (arg-0) (let ((sc0 (IdrisC-45Syntax-u--C-61C-61_Eq_Pass arg-0 0))) (cond ((equal? sc0 1) 1) (else (IdrisC-45Syntax-u--C-61C-61_Eq_Pass arg-0 2)))))) +(define LibrariesC-45DataC-45ANameMap-case--addToHier-5683 (lambda (arg-1 arg-2 arg-3 arg-4) (if (null? arg-4) arg-2 (let ((e-2 (unbox arg-4))) (let ((sc1 (LibrariesC-45DataC-45StringMap-lookup e-2 arg-2))) (if (null? sc1) (LibrariesC-45DataC-45StringMap-insert e-2 (cons (cons arg-3 arg-1) '()) arg-2) (let ((e-3 (unbox sc1))) (LibrariesC-45DataC-45StringMap-insert e-2 (LibrariesC-45DataC-45ANameMap-n--2899-5612-u--update arg-1 arg-2 arg-3 arg-1 e-3) arg-2)))))))) +(define LibrariesC-45DataC-45ANameMap-case--lookupName-5517 (lambda (arg-1 arg-2 arg-3) (if (null? arg-3) (let ((sc1 (LibrariesC-45DataC-45ANameMap-lookupExact arg-2 arg-1))) (if (null? sc1) '() (let ((e-2 (unbox sc1))) (cons (cons arg-2 e-2) '())))) (let ((e-2 (unbox arg-3))) (let ((sc1 (LibrariesC-45DataC-45StringMap-lookup e-2 (let ((e-3 (cdr arg-1))) e-3)))) (if (null? sc1) '() (let ((e-3 (unbox sc1))) (DataC-45List-filter (lambda (eta-0) (CoreC-45Name-matches arg-2 (Builtin-fst eta-0))) e-3)))))))) +(define LibrariesC-45DataC-45ANameMap-n--2899-5612-u--update (lambda (arg-1 arg-2 arg-3 arg-4 arg-5) (if (null? arg-5) (cons (cons arg-3 arg-4) '()) (let ((e-2 (car arg-5))) (let ((e-3 (cdr arg-5))) (let ((sc1 (CoreC-45Name-u--C-61C-61_Eq_Name arg-3 (Builtin-fst e-2)))) (cond ((equal? sc1 1) (cons (cons arg-3 arg-4) e-3)) (else (cons e-2 (LibrariesC-45DataC-45ANameMap-n--2899-5612-u--update arg-1 arg-2 arg-3 arg-4 e-3)))))))))) +(define LibrariesC-45DataC-45ANameMap-n--3114-5800-u--insertFrom (lambda (arg-1 arg-2 arg-3 arg-4 arg-5) (if (null? arg-4) arg-5 (let ((e-2 (car arg-4))) (let ((e-3 (cdr arg-4))) (let ((e-6 (car e-2))) (let ((e-7 (cdr e-2))) (LibrariesC-45DataC-45ANameMap-n--3114-5800-u--insertFrom arg-1 arg-2 arg-3 e-3 (LibrariesC-45DataC-45ANameMap-addName e-6 e-7 arg-5))))))))) +(define LibrariesC-45DataC-45ANameMap-n--3090-5776-u--fromListC-39 (lambda (arg-1 arg-2) (if (null? arg-2) arg-1 (let ((e-2 (car arg-2))) (let ((e-3 (cdr arg-2))) (let ((e-6 (car e-2))) (let ((e-7 (cdr e-2))) (LibrariesC-45DataC-45ANameMap-n--3090-5776-u--fromListC-39 (LibrariesC-45DataC-45ANameMap-addName e-6 e-7 arg-1) e-3)))))))) +(define LibrariesC-45DataC-45ANameMap-toList (lambda (arg-1) (LibrariesC-45DataC-45NameMap-toList (let ((e-1 (car arg-1))) e-1)))) +(define LibrariesC-45DataC-45ANameMap-merge (lambda (arg-1 arg-2) (let ((e-1 (car arg-1))) (let ((e-2 (cdr arg-1))) (LibrariesC-45DataC-45ANameMap-n--3114-5800-u--insertFrom e-2 e-1 arg-2 (LibrariesC-45DataC-45NameMap-toList e-1) arg-2))))) +(define LibrariesC-45DataC-45ANameMap-lookupName (lambda (arg-1 arg-2) (LibrariesC-45DataC-45ANameMap-case--lookupName-5517 arg-2 arg-1 (CoreC-45Name-userNameRoot arg-1)))) +(define LibrariesC-45DataC-45ANameMap-lookupExact (lambda (arg-1 arg-2) (LibrariesC-45DataC-45NameMap-lookup arg-1 (let ((e-1 (car arg-2))) e-1)))) +(define LibrariesC-45DataC-45ANameMap-fromList (lambda (ext-0) (LibrariesC-45DataC-45ANameMap-n--3090-5776-u--fromListC-39 (LibrariesC-45DataC-45ANameMap-empty) ext-0))) (define LibrariesC-45DataC-45ANameMap-empty (lambda () (cons (LibrariesC-45DataC-45NameMap-empty) (LibrariesC-45DataC-45StringMap-empty)))) -(define LibrariesC-45DataC-45ANameMap-addToHier (lambda (arg-1 arg-2 arg-3) (LibrariesC-45DataC-45ANameMap-case--addToHier-4523 arg-2 arg-3 arg-1 (CoreC-45Name-userNameRoot arg-1)))) -(define LibrariesC-45DataC-45ANameMap-addName (lambda (arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-1 (car sc0))) (let ((e-2 (cdr sc0))) (let ((u--dictC-39 (LibrariesC-45DataC-45NameMap-insert arg-1 arg-2 e-1))) (let ((u--hierC-39 (LibrariesC-45DataC-45ANameMap-addToHier arg-1 arg-2 e-2))) (cons u--dictC-39 u--hierC-39)))))))) -(define IdrisC-45REPLC-45Opts-n--12841-4696-u--litStyle (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (ParserC-45Unlit-isLitFile e-2))))))) -(define IdrisC-45REPLC-45Opts-withROpts (lambda (arg-1 ext-1 ext-0) (CoreC-45Core-wrapRef (vector "Idris.REPL.Opts.ROpts" ) arg-1 (lambda (_-4726) (lambda (eta-0) (vector 1 (vector 0 )))) ext-1 ext-0))) -(define IdrisC-45REPLC-45Opts-setSynHighlightOn (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-16 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-16 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 arg-1)))))))))))))))))))) (vector 1 act-25))))))))) -(define IdrisC-45REPLC-45Opts-setSource (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-16 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (vector 0 e-0 e-1 e-2 e-3 arg-1 e-16 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15)))))))))))))))))))) (vector 1 act-25))))))))) -(define IdrisC-45REPLC-45Opts-setOutput (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-16 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-16 e-6 arg-1 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15)))))))))))))))))))) (vector 1 act-25))))))))) -(define IdrisC-45REPLC-45Opts-setMainFile (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-4 (vector-ref sc1 5))) (let ((e-16 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (vector 0 e-0 e-1 arg-1 (IdrisC-45REPLC-45Opts-litStyle arg-1) e-4 e-16 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15))))))))))))))))))) (vector 1 act-25))))))))) -(define IdrisC-45REPLC-45Opts-setCurrentElabSource (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-16 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-16 e-6 e-7 arg-1 e-9 e-10 e-11 e-12 e-13 e-14 e-15)))))))))))))))))))) (vector 1 act-25))))))))) -(define IdrisC-45REPLC-45Opts-setConsoleWidth (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-16 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-16 e-6 e-7 e-8 e-9 e-10 e-11 e-12 arg-1 e-14 e-15)))))))))))))))))))) (vector 1 act-25))))))))) -(define IdrisC-45REPLC-45Opts-setColor (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-16 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-15 (vector-ref sc1 16))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-16 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 arg-1 e-15)))))))))))))))))))) (vector 1 act-25))))))))) -(define IdrisC-45REPLC-45Opts-resetProofState (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-16 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-16 e-6 e-7 e-8 (vector 0 ) (vector 0 ) e-11 e-12 e-13 e-14 e-15))))))))))))))))))) (vector 1 act-25))))))))) -(define IdrisC-45REPLC-45Opts-replFC (lambda () (vector 0 "(interactive)" (cons 0 0) (cons 0 0)))) +(define LibrariesC-45DataC-45ANameMap-addToHier (lambda (arg-1 arg-2 arg-3) (LibrariesC-45DataC-45ANameMap-case--addToHier-5683 arg-2 arg-3 arg-1 (CoreC-45Name-userNameRoot arg-1)))) +(define LibrariesC-45DataC-45ANameMap-addName (lambda (arg-1 arg-2 arg-3) (let ((e-1 (car arg-3))) (let ((e-2 (cdr arg-3))) (let ((u--dictC-39 (LibrariesC-45DataC-45NameMap-insert arg-1 arg-2 e-1))) (let ((u--hierC-39 (LibrariesC-45DataC-45ANameMap-addToHier arg-1 arg-2 e-2))) (cons u--dictC-39 u--hierC-39))))))) +(define IdrisC-45REPLC-45Opts-n--8375-4389-u--litStyle (lambda (arg-0 arg-1 arg-2 arg-3) (if (null? arg-3) '() (let ((e-2 (unbox arg-3))) (ParserC-45Unlit-isLitFile e-2))))) +(define IdrisC-45REPLC-45Opts-withROpts (lambda (arg-1 ext-1 ext-0) (CoreC-45Core-wrapRef (vector "Idris.REPL.Opts.ROpts" ) arg-1 (lambda (_-4420) (lambda (eta-0) (vector 1 0))) ext-1 ext-0))) +(define IdrisC-45REPLC-45Opts-setSynHighlightOn (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (set-box! arg-0 (let ((e-0 (vector-ref e-5 0))) (let ((e-1 (vector-ref e-5 1))) (let ((e-2 (vector-ref e-5 2))) (let ((e-3 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-16 (vector-ref e-5 5))) (let ((e-6 (vector-ref e-5 6))) (let ((e-7 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (let ((e-10 (vector-ref e-5 10))) (let ((e-11 (vector-ref e-5 11))) (let ((e-12 (vector-ref e-5 12))) (let ((e-13 (vector-ref e-5 13))) (let ((e-14 (vector-ref e-5 14))) (vector e-0 e-1 e-2 e-3 e-4 e-16 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 arg-1))))))))))))))))))) (vector 1 act-25)))))))) +(define IdrisC-45REPLC-45Opts-setSource (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (set-box! arg-0 (let ((e-0 (vector-ref e-5 0))) (let ((e-1 (vector-ref e-5 1))) (let ((e-2 (vector-ref e-5 2))) (let ((e-3 (vector-ref e-5 3))) (let ((e-16 (vector-ref e-5 5))) (let ((e-6 (vector-ref e-5 6))) (let ((e-7 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (let ((e-10 (vector-ref e-5 10))) (let ((e-11 (vector-ref e-5 11))) (let ((e-12 (vector-ref e-5 12))) (let ((e-13 (vector-ref e-5 13))) (let ((e-14 (vector-ref e-5 14))) (let ((e-15 (vector-ref e-5 15))) (vector e-0 e-1 e-2 e-3 arg-1 e-16 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15))))))))))))))))))) (vector 1 act-25)))))))) +(define IdrisC-45REPLC-45Opts-setOutput (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (set-box! arg-0 (let ((e-0 (vector-ref e-5 0))) (let ((e-1 (vector-ref e-5 1))) (let ((e-2 (vector-ref e-5 2))) (let ((e-3 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-16 (vector-ref e-5 5))) (let ((e-6 (vector-ref e-5 6))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (let ((e-10 (vector-ref e-5 10))) (let ((e-11 (vector-ref e-5 11))) (let ((e-12 (vector-ref e-5 12))) (let ((e-13 (vector-ref e-5 13))) (let ((e-14 (vector-ref e-5 14))) (let ((e-15 (vector-ref e-5 15))) (vector e-0 e-1 e-2 e-3 e-4 e-16 e-6 arg-1 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15))))))))))))))))))) (vector 1 act-25)))))))) +(define IdrisC-45REPLC-45Opts-setMainFile (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (set-box! arg-0 (let ((e-0 (vector-ref e-5 0))) (let ((e-1 (vector-ref e-5 1))) (let ((e-4 (vector-ref e-5 4))) (let ((e-16 (vector-ref e-5 5))) (let ((e-6 (vector-ref e-5 6))) (let ((e-7 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (let ((e-10 (vector-ref e-5 10))) (let ((e-11 (vector-ref e-5 11))) (let ((e-12 (vector-ref e-5 12))) (let ((e-13 (vector-ref e-5 13))) (let ((e-14 (vector-ref e-5 14))) (let ((e-15 (vector-ref e-5 15))) (vector e-0 e-1 arg-1 (IdrisC-45REPLC-45Opts-litStyle arg-1) e-4 e-16 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15)))))))))))))))))) (vector 1 act-25)))))))) +(define IdrisC-45REPLC-45Opts-setCurrentElabSource (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (set-box! arg-0 (let ((e-0 (vector-ref e-5 0))) (let ((e-1 (vector-ref e-5 1))) (let ((e-2 (vector-ref e-5 2))) (let ((e-3 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-16 (vector-ref e-5 5))) (let ((e-6 (vector-ref e-5 6))) (let ((e-7 (vector-ref e-5 7))) (let ((e-9 (vector-ref e-5 9))) (let ((e-10 (vector-ref e-5 10))) (let ((e-11 (vector-ref e-5 11))) (let ((e-12 (vector-ref e-5 12))) (let ((e-13 (vector-ref e-5 13))) (let ((e-14 (vector-ref e-5 14))) (let ((e-15 (vector-ref e-5 15))) (vector e-0 e-1 e-2 e-3 e-4 e-16 e-6 e-7 arg-1 e-9 e-10 e-11 e-12 e-13 e-14 e-15))))))))))))))))))) (vector 1 act-25)))))))) +(define IdrisC-45REPLC-45Opts-setConsoleWidth (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (set-box! arg-0 (let ((e-0 (vector-ref e-5 0))) (let ((e-1 (vector-ref e-5 1))) (let ((e-2 (vector-ref e-5 2))) (let ((e-3 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-16 (vector-ref e-5 5))) (let ((e-6 (vector-ref e-5 6))) (let ((e-7 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (let ((e-10 (vector-ref e-5 10))) (let ((e-11 (vector-ref e-5 11))) (let ((e-12 (vector-ref e-5 12))) (let ((e-14 (vector-ref e-5 14))) (let ((e-15 (vector-ref e-5 15))) (vector e-0 e-1 e-2 e-3 e-4 e-16 e-6 e-7 e-8 e-9 e-10 e-11 e-12 arg-1 e-14 e-15))))))))))))))))))) (vector 1 act-25)))))))) +(define IdrisC-45REPLC-45Opts-setColor (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (set-box! arg-0 (let ((e-0 (vector-ref e-5 0))) (let ((e-1 (vector-ref e-5 1))) (let ((e-2 (vector-ref e-5 2))) (let ((e-3 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-16 (vector-ref e-5 5))) (let ((e-6 (vector-ref e-5 6))) (let ((e-7 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (let ((e-10 (vector-ref e-5 10))) (let ((e-11 (vector-ref e-5 11))) (let ((e-12 (vector-ref e-5 12))) (let ((e-13 (vector-ref e-5 13))) (let ((e-15 (vector-ref e-5 15))) (vector e-0 e-1 e-2 e-3 e-4 e-16 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 arg-1 e-15))))))))))))))))))) (vector 1 act-25)))))))) +(define IdrisC-45REPLC-45Opts-resetProofState (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (set-box! arg-0 (let ((e-0 (vector-ref e-5 0))) (let ((e-1 (vector-ref e-5 1))) (let ((e-2 (vector-ref e-5 2))) (let ((e-3 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-16 (vector-ref e-5 5))) (let ((e-6 (vector-ref e-5 6))) (let ((e-7 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-11 (vector-ref e-5 11))) (let ((e-12 (vector-ref e-5 12))) (let ((e-13 (vector-ref e-5 13))) (let ((e-14 (vector-ref e-5 14))) (let ((e-15 (vector-ref e-5 15))) (vector e-0 e-1 e-2 e-3 e-4 e-16 e-6 e-7 e-8 '() '() e-11 e-12 e-13 e-14 e-15)))))))))))))))))) (vector 1 act-25)))))))) (define IdrisC-45REPLC-45Opts-litStyle (lambda (ext-0) (PreludeC-45Types-u--join_Monad_Maybe (PreludeC-45Types-u--map_Functor_Maybe (lambda (eta-0) (ParserC-45Unlit-isLitFile eta-0)) ext-0)))) -(define IdrisC-45REPLC-45Opts-getSourceLine (lambda (arg-0 arg-1 ext-0) (let ((act-24 (IdrisC-45REPLC-45Opts-getSource arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (LibrariesC-45DataC-45ListC-45Extra-elemAt (DataC-45List1-forget (LibrariesC-45DataC-45StringC-45Extra-lines e-5)) (PreludeC-45Types-prim__integerToNat (PreludeC-45Cast-u--cast_Cast_Int_Integer (PreludeC-45Num-u--C-45_Neg_Int arg-1 1)))))))))))) -(define IdrisC-45REPLC-45Opts-getSource (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (let ((sc1 e-5)) (let ((e-4 (vector-ref sc1 5))) e-4)))))))))) -(define IdrisC-45REPLC-45Opts-getOutput (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (let ((sc1 e-5)) (let ((e-7 (vector-ref sc1 8))) e-7)))))))))) -(define IdrisC-45REPLC-45Opts-getLitStyle (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (let ((sc1 e-5)) (let ((e-3 (vector-ref sc1 4))) e-3)))))))))) -(define IdrisC-45REPLC-45Opts-getCurrentElabSource (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (let ((sc1 e-5)) (let ((e-8 (vector-ref sc1 9))) e-8)))))))))) -(define IdrisC-45REPLC-45Opts-getConsoleWidth (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (let ((sc1 e-5)) (let ((e-13 (vector-ref sc1 14))) e-13)))))))))) -(define IdrisC-45REPLC-45Opts-getColor (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (let ((sc1 e-5)) (let ((e-14 (vector-ref sc1 15))) e-14)))))))))) -(define IdrisC-45REPLC-45Opts-getCodegen (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (DataC-45List-lookup (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_String arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_String arg-4 arg-5)))) arg-1 (let ((sc1 e-5)) (let ((e-12 (vector-ref sc1 13))) e-12))))))))))) -(define IdrisC-45REPLC-45Opts-defaultOpts (lambda (arg-0 arg-1 arg-2) (vector 0 1 (vector 1 ) arg-0 (IdrisC-45REPLC-45Opts-n--12841-4696-u--litStyle arg-2 arg-1 arg-0 arg-0) "" "vim" (vector 0 ) arg-1 "" (vector 0 ) (vector 0 ) (vector 0 ) arg-2 (vector 0 ) 0 0))) -(define CompilerC-45Common-case--castInt-3182 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (if (null? sc0) (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 (PreludeC-45TypesC-45String-C-43C-43 "invalid cast: + " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_Constant arg-2) (PreludeC-45TypesC-45String-C-43C-43 " + ' -> ' + " (CoreC-45TT-u--show_Show_Constant arg-1))))) eta-0)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (if (null? sc1) (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 (PreludeC-45TypesC-45String-C-43C-43 "invalid cast: + " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_Constant arg-2) (PreludeC-45TypesC-45String-C-43C-43 " + ' -> ' + " (CoreC-45TT-u--show_Show_Constant arg-1))))) eta-0)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((25) (let ((sc3 e-3)) (if (null? sc3) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((1) (let ((e-9 (vector-ref sc4 1))) (let ((sc5 e-3)) (if (null? sc5) (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 (PreludeC-45TypesC-45String-C-43C-43 "invalid cast: + " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_Constant arg-2) (PreludeC-45TypesC-45String-C-43C-43 " + ' -> ' + " (CoreC-45TT-u--show_Show_Constant arg-1))))) eta-0)) (let ((e-12 (car sc5))) (let ((e-13 (cdr sc5))) (let ((sc6 e-12)) (case (vector-ref sc6 0) ((25) (let ((sc7 arg-3)) (let ((e-1 (vector-ref sc7 2))) ((e-1 e-9) arg-0)))) ((24) (let ((sc7 arg-3)) (let ((e-10 (vector-ref sc7 4))) ((e-10 e-9) arg-0)))) ((26) (let ((sc7 arg-3)) (let ((e-5 (vector-ref sc7 6))) ((e-5 e-9) arg-0))))(else (let ((sc6 e-13)) (case (vector-ref sc6 0) ((1) (let ((e-15 (vector-ref sc6 1))) (let ((sc7 arg-3)) (let ((e-8 (vector-ref sc7 7))) (((e-8 e-9) e-15) arg-0)))))(else (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 (PreludeC-45TypesC-45String-C-43C-43 "invalid cast: + " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_Constant arg-2) (PreludeC-45TypesC-45String-C-43C-43 " + ' -> ' + " (CoreC-45TT-u--show_Show_Constant arg-1))))) eta-0))))))))))))))(else (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 (PreludeC-45TypesC-45String-C-43C-43 "invalid cast: + " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_Constant arg-2) (PreludeC-45TypesC-45String-C-43C-43 " + ' -> ' + " (CoreC-45TT-u--show_Show_Constant arg-1))))) eta-0))))) (let ((e-19 (cdr sc3))) (let ((sc4 e-19)) (case (vector-ref sc4 0) ((1) (let ((e-21 (vector-ref sc4 1))) (let ((sc5 arg-3)) (let ((e-0 (vector-ref sc5 1))) ((e-0 e-21) arg-0)))))(else (let ((sc4 e-7)) (case (vector-ref sc4 0) ((1) (let ((e-9 (vector-ref sc4 1))) (let ((sc5 e-3)) (if (null? sc5) (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 (PreludeC-45TypesC-45String-C-43C-43 "invalid cast: + " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_Constant arg-2) (PreludeC-45TypesC-45String-C-43C-43 " + ' -> ' + " (CoreC-45TT-u--show_Show_Constant arg-1))))) eta-0)) (let ((e-12 (car sc5))) (let ((e-13 (cdr sc5))) (let ((sc6 e-12)) (case (vector-ref sc6 0) ((25) (let ((sc7 arg-3)) (let ((e-1 (vector-ref sc7 2))) ((e-1 e-9) arg-0)))) ((24) (let ((sc7 arg-3)) (let ((e-10 (vector-ref sc7 4))) ((e-10 e-9) arg-0)))) ((26) (let ((sc7 arg-3)) (let ((e-5 (vector-ref sc7 6))) ((e-5 e-9) arg-0))))(else (let ((sc6 e-13)) (case (vector-ref sc6 0) ((1) (let ((e-15 (vector-ref sc6 1))) (let ((sc7 arg-3)) (let ((e-8 (vector-ref sc7 7))) (((e-8 e-9) e-15) arg-0)))))(else (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 (PreludeC-45TypesC-45String-C-43C-43 "invalid cast: + " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_Constant arg-2) (PreludeC-45TypesC-45String-C-43C-43 " + ' -> ' + " (CoreC-45TT-u--show_Show_Constant arg-1))))) eta-0))))))))))))))(else (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 (PreludeC-45TypesC-45String-C-43C-43 "invalid cast: + " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_Constant arg-2) (PreludeC-45TypesC-45String-C-43C-43 " + ' -> ' + " (CoreC-45TT-u--show_Show_Constant arg-1))))) eta-0)))))))))))) ((24) (let ((sc3 e-3)) (if (null? sc3) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((1) (let ((e-9 (vector-ref sc4 1))) (let ((sc5 e-3)) (if (null? sc5) (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 (PreludeC-45TypesC-45String-C-43C-43 "invalid cast: + " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_Constant arg-2) (PreludeC-45TypesC-45String-C-43C-43 " + ' -> ' + " (CoreC-45TT-u--show_Show_Constant arg-1))))) eta-0)) (let ((e-12 (car sc5))) (let ((e-13 (cdr sc5))) (let ((sc6 e-12)) (case (vector-ref sc6 0) ((25) (let ((sc7 arg-3)) (let ((e-1 (vector-ref sc7 2))) ((e-1 e-9) arg-0)))) ((24) (let ((sc7 arg-3)) (let ((e-10 (vector-ref sc7 4))) ((e-10 e-9) arg-0)))) ((26) (let ((sc7 arg-3)) (let ((e-5 (vector-ref sc7 6))) ((e-5 e-9) arg-0))))(else (let ((sc6 e-13)) (case (vector-ref sc6 0) ((1) (let ((e-15 (vector-ref sc6 1))) (let ((sc7 arg-3)) (let ((e-8 (vector-ref sc7 7))) (((e-8 e-9) e-15) arg-0)))))(else (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 (PreludeC-45TypesC-45String-C-43C-43 "invalid cast: + " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_Constant arg-2) (PreludeC-45TypesC-45String-C-43C-43 " + ' -> ' + " (CoreC-45TT-u--show_Show_Constant arg-1))))) eta-0))))))))))))))(else (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 (PreludeC-45TypesC-45String-C-43C-43 "invalid cast: + " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_Constant arg-2) (PreludeC-45TypesC-45String-C-43C-43 " + ' -> ' + " (CoreC-45TT-u--show_Show_Constant arg-1))))) eta-0))))) (let ((e-25 (cdr sc3))) (let ((sc4 e-25)) (case (vector-ref sc4 0) ((1) (let ((e-27 (vector-ref sc4 1))) (let ((sc5 arg-3)) (let ((e-10 (vector-ref sc5 3))) ((e-10 e-27) arg-0)))))(else (let ((sc4 e-7)) (case (vector-ref sc4 0) ((1) (let ((e-9 (vector-ref sc4 1))) (let ((sc5 e-3)) (if (null? sc5) (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 (PreludeC-45TypesC-45String-C-43C-43 "invalid cast: + " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_Constant arg-2) (PreludeC-45TypesC-45String-C-43C-43 " + ' -> ' + " (CoreC-45TT-u--show_Show_Constant arg-1))))) eta-0)) (let ((e-12 (car sc5))) (let ((e-13 (cdr sc5))) (let ((sc6 e-12)) (case (vector-ref sc6 0) ((25) (let ((sc7 arg-3)) (let ((e-1 (vector-ref sc7 2))) ((e-1 e-9) arg-0)))) ((24) (let ((sc7 arg-3)) (let ((e-10 (vector-ref sc7 4))) ((e-10 e-9) arg-0)))) ((26) (let ((sc7 arg-3)) (let ((e-5 (vector-ref sc7 6))) ((e-5 e-9) arg-0))))(else (let ((sc6 e-13)) (case (vector-ref sc6 0) ((1) (let ((e-15 (vector-ref sc6 1))) (let ((sc7 arg-3)) (let ((e-8 (vector-ref sc7 7))) (((e-8 e-9) e-15) arg-0)))))(else (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 (PreludeC-45TypesC-45String-C-43C-43 "invalid cast: + " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_Constant arg-2) (PreludeC-45TypesC-45String-C-43C-43 " + ' -> ' + " (CoreC-45TT-u--show_Show_Constant arg-1))))) eta-0))))))))))))))(else (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 (PreludeC-45TypesC-45String-C-43C-43 "invalid cast: + " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_Constant arg-2) (PreludeC-45TypesC-45String-C-43C-43 " + ' -> ' + " (CoreC-45TT-u--show_Show_Constant arg-1))))) eta-0)))))))))))) ((26) (let ((sc3 e-3)) (if (null? sc3) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((1) (let ((e-9 (vector-ref sc4 1))) (let ((sc5 e-3)) (if (null? sc5) (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 (PreludeC-45TypesC-45String-C-43C-43 "invalid cast: + " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_Constant arg-2) (PreludeC-45TypesC-45String-C-43C-43 " + ' -> ' + " (CoreC-45TT-u--show_Show_Constant arg-1))))) eta-0)) (let ((e-12 (car sc5))) (let ((e-13 (cdr sc5))) (let ((sc6 e-12)) (case (vector-ref sc6 0) ((25) (let ((sc7 arg-3)) (let ((e-1 (vector-ref sc7 2))) ((e-1 e-9) arg-0)))) ((24) (let ((sc7 arg-3)) (let ((e-10 (vector-ref sc7 4))) ((e-10 e-9) arg-0)))) ((26) (let ((sc7 arg-3)) (let ((e-5 (vector-ref sc7 6))) ((e-5 e-9) arg-0))))(else (let ((sc6 e-13)) (case (vector-ref sc6 0) ((1) (let ((e-15 (vector-ref sc6 1))) (let ((sc7 arg-3)) (let ((e-8 (vector-ref sc7 7))) (((e-8 e-9) e-15) arg-0)))))(else (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 (PreludeC-45TypesC-45String-C-43C-43 "invalid cast: + " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_Constant arg-2) (PreludeC-45TypesC-45String-C-43C-43 " + ' -> ' + " (CoreC-45TT-u--show_Show_Constant arg-1))))) eta-0))))))))))))))(else (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 (PreludeC-45TypesC-45String-C-43C-43 "invalid cast: + " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_Constant arg-2) (PreludeC-45TypesC-45String-C-43C-43 " + ' -> ' + " (CoreC-45TT-u--show_Show_Constant arg-1))))) eta-0))))) (let ((e-31 (cdr sc3))) (let ((sc4 e-31)) (case (vector-ref sc4 0) ((1) (let ((e-33 (vector-ref sc4 1))) (let ((sc5 arg-3)) (let ((e-4 (vector-ref sc5 5))) ((e-4 e-33) arg-0)))))(else (let ((sc4 e-7)) (case (vector-ref sc4 0) ((1) (let ((e-9 (vector-ref sc4 1))) (let ((sc5 e-3)) (if (null? sc5) (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 (PreludeC-45TypesC-45String-C-43C-43 "invalid cast: + " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_Constant arg-2) (PreludeC-45TypesC-45String-C-43C-43 " + ' -> ' + " (CoreC-45TT-u--show_Show_Constant arg-1))))) eta-0)) (let ((e-12 (car sc5))) (let ((e-13 (cdr sc5))) (let ((sc6 e-12)) (case (vector-ref sc6 0) ((25) (let ((sc7 arg-3)) (let ((e-1 (vector-ref sc7 2))) ((e-1 e-9) arg-0)))) ((24) (let ((sc7 arg-3)) (let ((e-10 (vector-ref sc7 4))) ((e-10 e-9) arg-0)))) ((26) (let ((sc7 arg-3)) (let ((e-5 (vector-ref sc7 6))) ((e-5 e-9) arg-0))))(else (let ((sc6 e-13)) (case (vector-ref sc6 0) ((1) (let ((e-15 (vector-ref sc6 1))) (let ((sc7 arg-3)) (let ((e-8 (vector-ref sc7 7))) (((e-8 e-9) e-15) arg-0)))))(else (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 (PreludeC-45TypesC-45String-C-43C-43 "invalid cast: + " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_Constant arg-2) (PreludeC-45TypesC-45String-C-43C-43 " + ' -> ' + " (CoreC-45TT-u--show_Show_Constant arg-1))))) eta-0))))))))))))))(else (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 (PreludeC-45TypesC-45String-C-43C-43 "invalid cast: + " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_Constant arg-2) (PreludeC-45TypesC-45String-C-43C-43 " + ' -> ' + " (CoreC-45TT-u--show_Show_Constant arg-1))))) eta-0))))))))))))(else (let ((sc2 e-7)) (case (vector-ref sc2 0) ((1) (let ((e-9 (vector-ref sc2 1))) (let ((sc3 e-3)) (if (null? sc3) (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 (PreludeC-45TypesC-45String-C-43C-43 "invalid cast: + " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_Constant arg-2) (PreludeC-45TypesC-45String-C-43C-43 " + ' -> ' + " (CoreC-45TT-u--show_Show_Constant arg-1))))) eta-0)) (let ((e-12 (car sc3))) (let ((e-13 (cdr sc3))) (let ((sc4 e-12)) (case (vector-ref sc4 0) ((25) (let ((sc5 arg-3)) (let ((e-1 (vector-ref sc5 2))) ((e-1 e-9) arg-0)))) ((24) (let ((sc5 arg-3)) (let ((e-10 (vector-ref sc5 4))) ((e-10 e-9) arg-0)))) ((26) (let ((sc5 arg-3)) (let ((e-5 (vector-ref sc5 6))) ((e-5 e-9) arg-0))))(else (let ((sc4 e-13)) (case (vector-ref sc4 0) ((1) (let ((e-15 (vector-ref sc4 1))) (let ((sc5 arg-3)) (let ((e-8 (vector-ref sc5 7))) (((e-8 e-9) e-15) arg-0)))))(else (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 (PreludeC-45TypesC-45String-C-43C-43 "invalid cast: + " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_Constant arg-2) (PreludeC-45TypesC-45String-C-43C-43 " + ' -> ' + " (CoreC-45TT-u--show_Show_Constant arg-1))))) eta-0))))))))))))))(else (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 (PreludeC-45TypesC-45String-C-43C-43 "invalid cast: + " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_Constant arg-2) (PreludeC-45TypesC-45String-C-43C-43 " + ' -> ' + " (CoreC-45TT-u--show_Show_Constant arg-1))))) eta-0)))))))))))))))))) -(define CompilerC-45Common-case--pathLookup-2961 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (cons ".exe" (cons ".cmd" (cons ".bat" (cons "" '()))))) (else (cons "" '())))))) -(define CompilerC-45Common-case--caseC-32blockC-32inC-32getExtraRuntimeC-44getArg-2815 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (vector 1 (DataC-45String-trim (PreludeC-45Types-substr (+ 1 0) (PreludeC-45TypesC-45String-length arg-3) arg-3)))) (else (vector 0 )))))) -(define CompilerC-45Common-case--getExtraRuntimeC-44getArg-2797 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (CompilerC-45Common-case--caseC-32blockC-32inC-32getExtraRuntimeC-44getArg-2815 arg-0 arg-1 e-2 e-3 (PreludeC-45EqOrd-u--C-61C-61_Eq_String (DataC-45String-trim e-2) "extraRuntime"))))))) -(define CompilerC-45Common-case--copyLib-2702 (lambda (arg-0 arg-1 arg-2 ext-0) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 1 (vector 0 ))) (else (let ((act-24 (let ((act-24 (LibrariesC-45UtilsC-45Binary-readFromFile arg-1 ext-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (let ((act-25 (let ((act-25 ((LibrariesC-45UtilsC-45Binary-writeToFile arg-0 e-2) ext-0))) (vector 1 act-25)))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((1) (vector 1 (vector 0 ))) (else (let ((e-7 (vector-ref sc4 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 49 arg-0 e-7) ext-0)))))))))))) (else (vector 1 (vector 0 ))))))))))))))) -(define CompilerC-45Common-case--caseC-32blockC-32inC-32locate-2592 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) arg-2) (else (PreludeC-45TypesC-45String-C-43C-43 arg-2 (PreludeC-45TypesC-45String-C-43C-43 "." (CompilerC-45Common-dylib_suffix)))))))) -(define CompilerC-45Common-case--locate-2569 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (if (null? sc0) "" (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-3)) (if (null? sc1) (CompilerC-45Common-case--caseC-32blockC-32inC-32locate-2592 arg-0 arg-1 e-2 (PreludeC-45Types-elem (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Char arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Char arg-4 arg-5)))) #\. (PreludeC-45Types-fastUnpack e-2))) (let ((e-6 (car sc1))) (CoreC-45Core-cond (cons (cons (lambda () (PreludeC-45EqOrd-u--C-61C-61_Eq_String (CompilerC-45Common-dylib_suffix) "dll")) (lambda () (PreludeC-45TypesC-45String-C-43C-43 e-2 (PreludeC-45TypesC-45String-C-43C-43 "-" (PreludeC-45TypesC-45String-C-43C-43 e-6 ".dll"))))) (cons (cons (lambda () (PreludeC-45EqOrd-u--C-61C-61_Eq_String (CompilerC-45Common-dylib_suffix) "dylib")) (lambda () (PreludeC-45TypesC-45String-C-43C-43 e-2 (PreludeC-45TypesC-45String-C-43C-43 "." (PreludeC-45TypesC-45String-C-43C-43 e-6 ".dylib"))))) '())) (PreludeC-45TypesC-45String-C-43C-43 e-2 (PreludeC-45TypesC-45String-C-43C-43 "." (PreludeC-45TypesC-45String-C-43C-43 (CompilerC-45Common-dylib_suffix) (PreludeC-45TypesC-45String-C-43C-43 "." e-6)))))))))))))) -(define CompilerC-45Common-case--parseCC-2479 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-3)) (cond ((equal? sc1 "") (vector 1 (cons (DataC-45String-trim e-2) '())))(else (vector 1 (cons (DataC-45String-trim e-2) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (DataC-45String-trim eta-0)) (CompilerC-45Common-n--13594-2427-u--getOpts arg-0 (DataC-45String-strTail e-3))))))))))))) -(define CompilerC-45Common-case--parseCCC-44getOpts-2442 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-3)) (cond ((equal? sc1 "") (cons e-2 '()))(else (cons e-2 (CompilerC-45Common-n--13594-2427-u--getOpts arg-0 (DataC-45String-strTail e-3))))))))))) -(define CompilerC-45Common-case--caseC-32blockC-32inC-32getCompileData-2221 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 ext-0) (let ((sc0 arg-25)) (cond ((equal? sc0 0) (CoreC-45ContextC-45Log-logTime arg-3 (lambda () "++ Get VM Code") (lambda (eta-0) (vector 1 (CompilerC-45VMCode-allDefs arg-24))) ext-0)) (else (vector 1 '())))))) -(define CompilerC-45Common-case--caseC-32blockC-32inC-32getCompileData-2037 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 ext-0) (let ((sc0 arg-24)) (cond ((equal? sc0 0) (CoreC-45ContextC-45Log-logTime arg-3 (lambda () "++ Get ANF") (lambda (eta-0) (CoreC-45Core-traverseC-39 (lambda (lamc-0) (lambda (clam-1) (let ((sc1 lamc-0)) (let ((e-2 (car sc1))) (let ((e-3 (cdr sc1))) (let ((act-24 (CompilerC-45ANF-toANF e-3 clam-1))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (cons e-2 e-5)))))))))))) arg-23 '() eta-0)) ext-0)) (else (vector 1 '())))))) -(define CompilerC-45Common-case--caseC-32blockC-32inC-32getCompileData-1923 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 ext-0) (let ((sc0 arg-22)) (cond ((equal? sc0 0) (CoreC-45ContextC-45Log-logTime arg-3 (lambda () "++ Lambda lift") (lambda (eta-0) (CoreC-45Core-traverseC-39 (lambda (eta-1) (lambda (eta-2) (CompilerC-45LambdaLift-lambdaLift arg-3 arg-2 eta-1 eta-2))) arg-15 '() eta-0)) ext-0)) (else (vector 1 '())))))) -(define CompilerC-45Common-case--caseC-32blockC-32inC-32dumpCasesC-44dumpCase-1218 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (vector 1 "")) (else (let ((e-2 (vector-ref sc0 1))) (vector 1 (PreludeC-45TypesC-45String-C-43C-43 (CompilerC-45Common-n--12213-1170-u--fullShow arg-0 arg-1 arg-2 arg-3) (PreludeC-45TypesC-45String-C-43C-43 " = " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45CompileExpr-u--show_Show_NamedDef e-2) "\u000a")))))))))) -(define CompilerC-45Common-case--caseC-32blockC-32inC-32getNamedDef-1084 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (vector 1 (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((act-24 (CompilerC-45Common-warnIfHole arg-0 e-2 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (vector 1 (vector 1 (cons arg-0 (cons (let ((sc2 arg-3)) (let ((e-0 (vector-ref sc2 1))) e-0)) e-2)))))))))))))) -(define CompilerC-45Common-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32getAllDesc-915 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((DataC-45IOArray-writeArray (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-1)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-1) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-1) (let ((act-17 (arg-578 eta-1))) (let ((act-16 (arg-580 eta-1))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-1) (let ((act-24 (arg-876 eta-1))) ((arg-877 act-24) eta-1))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-1) (let ((act-51 (arg-879 eta-1))) (act-51 eta-1)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) arg-4 arg-0 (cons arg-0 arg-11)) eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((u--refs (CoreC-45Context-refersToRuntime arg-10))) (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (eta-1) (lambda (eta-2) (CoreC-45Context-toResolvedNames arg-5 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-3) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-3)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) eta-1 eta-2))) (LibrariesC-45DataC-45NameMap-keys u--refs) '() eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((CompilerC-45Common-getAllDesc arg-5 (PreludeC-45TypesC-45List-C-43C-43 e-6 arg-2) arg-4 arg-3) eta-0))))))))))))) (else (CompilerC-45Common-getAllDesc arg-5 arg-2 arg-4 arg-3)))))) -(define CompilerC-45Common-n--11446-561-u--tag (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) 0) ((1) 1) ((2) 2) (else 3))))) -(define CompilerC-45Common-n--13977-2786-u--readPath (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 ((SystemC-45File-readFile (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-0)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-0) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (let ((act-17 (arg-578 eta-0))) (let ((act-16 (arg-580 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (let ((act-24 (arg-876 eta-0))) ((arg-877 act-24) eta-0))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-0) (let ((act-51 (arg-879 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) arg-1) ext-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (vector 1 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 49 arg-1 e-6) ext-0)))))))))))) -(define CompilerC-45Common-n--13977-2785-u--paths (lambda (arg-0) (DataC-45List-nub (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_String arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_String arg-4 arg-5)))) (DataC-45List-mapMaybe (lambda (eta-0) (CompilerC-45Common-n--13977-2784-u--getArg arg-0 eta-0)) (DataC-45List-reverse arg-0))))) -(define CompilerC-45Common-n--12611-1542-u--nonErased (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (let ((act-24 (unbox arg-3))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact arg-4 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (vector 1 (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega (let ((sc3 e-1)) (let ((e-7 (vector-ref sc3 8))) e-7)) (AlgebraC-45Semiring-erased (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))))))) (else (vector 1 0)))))))))))))))) -(define CompilerC-45Common-n--13594-2427-u--getOpts (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 "") '())(else (CompilerC-45Common-case--parseCCC-44getOpts-2442 arg-0 arg-1 (DataC-45String-span (lambda (arg-2) (PreludeC-45EqOrd-u--C-47C-61_Eq_Char arg-2 #\,)) arg-1))))))) -(define CompilerC-45Common-n--13977-2784-u--getArg (lambda (arg-0 arg-1) (CompilerC-45Common-case--getExtraRuntimeC-44getArg-2797 arg-0 arg-1 (DataC-45String-break (lambda (arg-2) (PreludeC-45EqOrd-u--C-61C-61_Eq_Char arg-2 #\=)) arg-1)))) -(define CompilerC-45Common-n--12532-1466-u--fullShow (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((4) (let ((e-1 (vector-ref sc0 2))) (CoreC-45Name-u--show_Show_Name e-1)))(else (CoreC-45Name-u--show_Show_Name arg-2)))))) -(define CompilerC-45Common-n--12453-1391-u--fullShow (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((4) (let ((e-1 (vector-ref sc0 2))) (CoreC-45Name-u--show_Show_Name e-1)))(else (CoreC-45Name-u--show_Show_Name arg-2)))))) -(define CompilerC-45Common-n--12374-1316-u--fullShow (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((4) (let ((e-1 (vector-ref sc0 2))) (CoreC-45Name-u--show_Show_Name e-1)))(else (CoreC-45Name-u--show_Show_Name arg-2)))))) -(define CompilerC-45Common-n--12213-1170-u--fullShow (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((4) (let ((e-1 (vector-ref sc0 2))) (CoreC-45Name-u--show_Show_Name e-1)))(else (CoreC-45Name-u--show_Show_Name arg-3)))))) -(define CompilerC-45Common-n--12532-1467-u--dumpDef (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (PreludeC-45TypesC-45String-C-43C-43 (CompilerC-45Common-n--12532-1466-u--fullShow arg-0 arg-1 e-2) (PreludeC-45TypesC-45String-C-43C-43 " = " (PreludeC-45TypesC-45String-C-43C-43 (CompilerC-45VMCode-u--show_Show_VMDef e-3) "\u000a")))))))) -(define CompilerC-45Common-n--12453-1392-u--dumpDef (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (PreludeC-45TypesC-45String-C-43C-43 (CompilerC-45Common-n--12453-1391-u--fullShow arg-0 arg-1 e-2) (PreludeC-45TypesC-45String-C-43C-43 " = " (PreludeC-45TypesC-45String-C-43C-43 (CompilerC-45ANF-u--show_Show_ANFDef e-3) "\u000a")))))))) -(define CompilerC-45Common-n--12374-1317-u--dumpDef (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (PreludeC-45TypesC-45String-C-43C-43 (CompilerC-45Common-n--12374-1316-u--fullShow arg-0 arg-1 e-2) (PreludeC-45TypesC-45String-C-43C-43 " = " (PreludeC-45TypesC-45String-C-43C-43 (CompilerC-45LambdaLift-u--show_Show_LiftedDef e-3) "\u000a")))))))) -(define CompilerC-45Common-n--12213-1171-u--dumpCase (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 ((CoreC-45Context-lookupCtxtExact arg-3 (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) e-0))) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((0) (vector 1 "")) (else (let ((e-2 (vector-ref sc1 1))) (let ((bind-0 (vector 1 e-2))) (CompilerC-45Common-case--caseC-32blockC-32inC-32dumpCasesC-44dumpCase-1218 arg-0 arg-1 arg-2 arg-3 e-2 bind-0 (let ((sc2 e-2)) (let ((e-19 (vector-ref sc2 20))) e-19)) ext-0))))))))))))) -(define CompilerC-45Common-u--compare_Ord_UsePhase (lambda (arg-0 arg-1) (PreludeC-45EqOrd-u--compare_Ord_Int (CompilerC-45Common-n--11446-561-u--tag arg-1 arg-0 arg-0) (CompilerC-45Common-n--11446-561-u--tag arg-1 arg-0 arg-1)))) -(define CompilerC-45Common-u--C-62C-61_Ord_UsePhase (lambda (arg-0 arg-1) (PreludeC-45EqOrd-u--C-47C-61_Eq_Ordering (CompilerC-45Common-u--compare_Ord_UsePhase arg-0 arg-1) 0))) -(define CompilerC-45Common-warnIfHole (lambda (arg-0 arg-1 ext-0) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((3) (let ((act-24 ((PreludeC-45IO-putStrLn (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-0)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-0) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (let ((act-17 (arg-578 eta-0))) (let ((act-16 (arg-580 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (let ((act-24 (arg-876 eta-0))) ((arg-877 act-24) eta-0))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-0) (let ((act-51 (arg-879 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) (PreludeC-45TypesC-45String-C-43C-43 "Warning: compiling hole " (CoreC-45Name-u--show_Show_Name arg-0))) ext-0))) (vector 1 act-24)))(else (vector 1 (vector 0 ))))))) -(define CompilerC-45Common-replaceEntry (lambda (arg-0 arg-1 ext-0) (let ((sc0 arg-1)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (vector 1 (vector 0 ))) (else (let ((e-6 (vector-ref sc1 1))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc2 eta-0)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (vector 1 (vector 0 )))))) (lambda (eta-0) (CoreC-45Context-addContextEntry arg-0 (vector 9 e-2) e-6 eta-0)) ext-0)))))))))) -(define CompilerC-45Common-pathLookup (lambda (arg-0 ext-0) (let ((act-24 ((IdrisC-45Env-idrisGetEnv (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-0)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-0) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (let ((act-17 (arg-578 eta-0))) (let ((act-16 (arg-580 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (let ((act-24 (arg-876 eta-0))) ((arg-877 act-24) eta-0))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-0) (let ((act-51 (arg-879 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) "PATH" (vector 0 )) ext-0))) (let ((u--extensions (CompilerC-45Common-case--pathLookup-2961 arg-0 act-24 (SystemC-45Info-isWindows)))) (let ((u--pathList (DataC-45List1-forget (DataC-45String-split (lambda (arg-1) (PreludeC-45EqOrd-u--C-61C-61_Eq_Char arg-1 (LibrariesC-45UtilsC-45Path-pathSeparator))) (DataC-45Maybe-fromMaybe (lambda () "/usr/bin:/usr/local/bin") act-24))))) (let ((u--candidates (PreludeC-45Types-u--C-62C-62C-61_Monad_List u--pathList (lambda (u--p) (PreludeC-45Types-u--C-62C-62C-61_Monad_List arg-0 (lambda (u--x) (PreludeC-45Types-u--C-62C-62C-61_Monad_List u--extensions (lambda (u--y) (PreludeC-45Types-u--pure_Applicative_List (PreludeC-45TypesC-45String-C-43C-43 u--p (PreludeC-45TypesC-45String-C-43C-43 "/" (PreludeC-45TypesC-45String-C-43C-43 u--x u--y)))))))))))) ((SystemC-45File-firstExists (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-0)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-0) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (let ((act-17 (arg-578 eta-0))) (let ((act-16 (arg-580 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (let ((act-25 (arg-876 eta-0))) ((arg-877 act-25) eta-0))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-0) (let ((act-51 (arg-879 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) u--candidates) ext-0))))))) -(define CompilerC-45Common-parseCC (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 "") (vector 0 ))(else (CompilerC-45Common-case--parseCC-2479 arg-0 (DataC-45String-span (lambda (arg-1) (PreludeC-45EqOrd-u--C-47C-61_Eq_Char arg-1 #\:)) arg-0))))))) -(define CompilerC-45Common-natHackNames (lambda () (cons (vector 1 "prim__add_Integer") (cons (vector 1 "prim__sub_Integer") (cons (vector 1 "prim__mul_Integer") (cons (vector 0 (CoreC-45NameC-45Namespace-typesNS) (vector 1 "prim__integerToNat")) '())))))) -(define CompilerC-45Common-locate (lambda (arg-0 arg-1) (let ((u--fname (CompilerC-45Common-case--locate-2569 arg-1 arg-0 (DataC-45String-words arg-1)))) (lambda (eta-0) (let ((act-24 (CoreC-45Core-u--catch_Catchable_Core_Error (lambda (eta-1) (CoreC-45Directory-findLibraryFile arg-0 u--fname eta-1)) (lambda (u--err) (lambda (eta-1) (vector 1 u--fname))) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (cons u--fname e-5))))))))))) -(define CompilerC-45Common-getNamedDef (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact arg-1 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((0) (vector 1 (vector 0 ))) (else (let ((e-2 (vector-ref sc2 1))) (let ((bind-0 (vector 1 e-2))) (CompilerC-45Common-case--caseC-32blockC-32inC-32getNamedDef-1084 arg-1 arg-0 e-5 e-2 bind-0 (let ((sc3 e-2)) (let ((e-19 (vector-ref sc3 20))) e-19)) ext-0)))))))))))))))))) -(define CompilerC-45Common-getMinimalDef (lambda (arg-0 ext-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (vector 1 (cons e-0 (vector 0 ))))) (else (let ((e-1 (vector-ref sc0 1))) (let ((act-24 (CoreC-45Core-newRef (vector "Libraries.Utils.Binary.Bin" ) e-1 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (CoreC-45TTC-u--toBuf_TTC_CDef arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (CoreC-45TTC-u--fromBuf_TTC_CDef arg-10258 eta-0)))) e-5 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10256) (lambda (arg-10258) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10259) (lambda (arg-10260) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_Name arg-10259 arg-10260 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10259 eta-2)))) (cons (lambda (arg-10259) (lambda (arg-10260) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Bool arg-10259 arg-10260 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Bool arg-10259 eta-2))))) arg-10256 arg-10258 eta-1)))) (lambda (arg-10258) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10259) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_Name arg-10256 arg-10259 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10259 eta-2)))) (cons (lambda (arg-10256) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Bool arg-10256 arg-10259 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Bool arg-10259 eta-2))))) arg-10258 eta-1)))) arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40ListC-32C-36aC-41 (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10256) (lambda (arg-10259) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_Name arg-10256 arg-10259 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10259 eta-2)))) (cons (lambda (arg-10256) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Bool arg-10256 arg-10259 eta-2)))) (lambda (arg-10259) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Bool arg-10259 eta-2))))) arg-10255 arg-10257 eta-1)))) (lambda (arg-10259) (lambda (eta-1) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-2) (CoreC-45TTC-u--toBuf_TTC_Name arg-10255 arg-10257 eta-2)))) (lambda (arg-10260) (lambda (eta-2) (CoreC-45TTC-u--fromBuf_TTC_Name arg-10260 eta-2)))) (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--toBuf_TTC_Bool arg-10255 arg-10257 eta-2)))) (lambda (arg-10260) (lambda (eta-2) (LibrariesC-45UtilsC-45Binary-u--fromBuf_TTC_Bool arg-10260 eta-2))))) arg-10259 eta-1)))) arg-10258 eta-0)))) e-5 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((u--refsR (PreludeC-45Types-u--map_Functor_Maybe (lambda (eta-0) (LibrariesC-45DataC-45NameMap-fromList eta-0)) e-7))) (let ((act-27 (CoreC-45TTC-u--fromBuf_TTC_FC e-5 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (CoreC-45TTC-u--fromBuf_TTC_RigCount e-5 ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 (CoreC-45TTC-u--fromBuf_TTC_Name e-5 ext-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc6 1))) (let ((u--def (vector 0 e-8 e-10 (vector 10 e-8 1) '() '() '() '() e-9 '() (vector 2 ) (cons (vector 0 ) (vector 0 )) '() (vector 0 ) u--refsR 1 1 0 (vector 0 ) e-6 (vector 0 ) '()))) (vector 1 (cons u--def (vector 1 e-1))))))))))))))))))))))))))))))))))))))))) -(define CompilerC-45Common-getExtraRuntime (lambda (arg-0 ext-0) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (CompilerC-45Common-n--13977-2786-u--readPath arg-0 eta-0 eta-1))) (CompilerC-45Common-n--13977-2785-u--paths arg-0) '() ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (PreludeC-45Interfaces-concat (cons (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_String arg-2 arg-3))) (PreludeC-45Types-u--neutral_Monoid_String))) (DataC-45List-intersperse "\u000a" e-5)))))))))) -(define CompilerC-45Common-getCompileData (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (CoreC-45Context-getSession arg-0 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((u--ns (CoreC-45TT-getRefs (vector 9 -1) arg-3))) (let ((act-26 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) arg-3 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (CoreC-45Context-toResolvedNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-2) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-2)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) eta-0 eta-1))) (CompilerC-45Common-natHackNames) '() ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (CoreC-45Context-getNextEntry arg-0 ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-29 (let ((act-29 ((DataC-45IOArray-newArray (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-0)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-0) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (let ((act-17 (arg-578 eta-0))) (let ((act-16 (arg-580 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (let ((act-29 (arg-876 eta-0))) ((arg-877 act-29) eta-0))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-0) (let ((act-51 (arg-879 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) e-9) ext-0))) (vector 1 act-29)))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-30 (CoreC-45ContextC-45Log-logTime arg-0 (lambda () "++ Get names") (CompilerC-45Common-getAllDesc arg-0 (PreludeC-45TypesC-45List-C-43C-43 e-8 (LibrariesC-45DataC-45NameMap-keys u--ns)) e-10 e-5) ext-0))) (let ((sc6 act-30)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((act-31 (let ((act-31 ((DataC-45IOArray-toList (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-0)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-0) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (let ((act-17 (arg-578 eta-0))) (let ((act-16 (arg-580 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (let ((act-31 (arg-876 eta-0))) ((arg-877 act-31) eta-0))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-0) (let ((act-51 (arg-879 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) e-10) ext-0))) (vector 1 act-31)))) (let ((sc7 act-31)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc7 1))) (let ((u--entries (DataC-45List-mapMaybe (lambda (eta-0) eta-0) e-12))) (let ((u--allNs (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (vector 9 (Builtin-fst eta-0))) u--entries))) (let ((act-32 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-2) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-2)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) eta-0 eta-1))) u--allNs '() ext-0))) (let ((sc8 act-32)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-33 (CoreC-45Core-filterM (lambda (eta-0) (lambda (eta-1) (CompilerC-45Common-n--12611-1542-u--nonErased arg-3 arg-2 arg-1 arg-0 eta-0 eta-1))) e-13 ext-0))) (let ((sc9 act-33)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref sc9 1))) (let ((act-34 (CoreC-45ContextC-45Log-logTime arg-0 (lambda () "++ Merge lambda") (lambda (eta-0) (CoreC-45Core-traverse_ (lambda (eta-1) (lambda (eta-2) (CompilerC-45Inline-mergeLamDef arg-0 eta-1 eta-2))) e-14 eta-0)) ext-0))) (let ((sc10 act-34)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((act-35 (CoreC-45ContextC-45Log-logTime arg-0 (lambda () "++ Fix arity") (lambda (eta-0) (CoreC-45Core-traverse_ (lambda (eta-1) (lambda (eta-2) (CompilerC-45Inline-fixArityDef arg-0 eta-1 eta-2))) e-14 eta-0)) ext-0))) (let ((sc11 act-35)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((act-36 (CoreC-45ContextC-45Log-logTime arg-0 (lambda () "++ Forget names") (lambda (eta-0) (CoreC-45Core-traverse_ (lambda (eta-1) (lambda (eta-2) (CompilerC-45CompileExpr-mkForgetDef arg-0 eta-1 eta-2))) e-14 eta-0)) ext-0))) (let ((sc12 act-36)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((act-37 (let ((act-37 (CompilerC-45CompileExpr-compileExp arg-0 e-7 ext-0))) (let ((sc13 act-37)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-18 (vector-ref sc13 1))) ((CompilerC-45Inline-fixArityExp '() arg-0 e-18) ext-0)))))))) (let ((sc13 act-37)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-18 (vector-ref sc13 1))) (let ((u--mainname (vector 2 "__mainExpression" 0))) (let ((act-38 (CompilerC-45LambdaLift-liftBody '() arg-1 u--mainname e-18 ext-0))) (let ((sc14 act-38)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-19 (vector-ref sc14 1))) (let ((sc15 e-19)) (let ((e-2 (car sc15))) (let ((e-3 (cdr sc15))) (let ((act-39 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (CompilerC-45Common-getNamedDef arg-0 eta-0 eta-1))) e-14 '() ext-0))) (let ((sc16 act-39)) (case (vector-ref sc16 0) ((0) (let ((e-4 (vector-ref sc16 1))) (vector 0 e-4))) (else (let ((e-20 (vector-ref sc16 1))) (let ((act-40 (let ((_-0 (cons e-2 e-3))) (CompilerC-45Common-case--caseC-32blockC-32inC-32getCompileData-1923 arg-3 arg-2 arg-1 arg-0 e-5 e-6 u--ns e-7 e-8 e-9 e-10 e-12 u--entries u--allNs e-13 e-14 e-18 u--mainname e-2 e-3 _-0 e-20 (CompilerC-45Common-u--C-62C-61_Ord_UsePhase arg-2 (vector 1 )) ext-0)))) (let ((sc17 act-40)) (case (vector-ref sc17 0) ((0) (let ((e-4 (vector-ref sc17 1))) (vector 0 e-4))) (else (let ((e-21 (vector-ref sc17 1))) (let ((u--lifted (cons (cons u--mainname (vector 0 '() '() e-2)) (PreludeC-45TypesC-45List-C-43C-43 e-3 (PreludeC-45Interfaces-concat (cons (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (cons (lambda (arg-4) (lambda (arg-5) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-4 arg-5))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) e-21))))) (let ((act-41 (let ((_-0 (cons e-2 e-3))) (CompilerC-45Common-case--caseC-32blockC-32inC-32getCompileData-2037 arg-3 arg-2 arg-1 arg-0 e-5 e-6 u--ns e-7 e-8 e-9 e-10 e-12 u--entries u--allNs e-13 e-14 e-18 u--mainname e-2 e-3 _-0 e-20 e-21 u--lifted (CompilerC-45Common-u--C-62C-61_Ord_UsePhase arg-2 (vector 2 )) ext-0)))) (let ((sc18 act-41)) (case (vector-ref sc18 0) ((0) (let ((e-4 (vector-ref sc18 1))) (vector 0 e-4))) (else (let ((e-22 (vector-ref sc18 1))) (let ((act-42 (let ((_-0 (cons e-2 e-3))) (CompilerC-45Common-case--caseC-32blockC-32inC-32getCompileData-2221 arg-3 arg-2 arg-1 arg-0 e-5 e-6 u--ns e-7 e-8 e-9 e-10 e-12 u--entries u--allNs e-13 e-14 e-18 u--mainname e-2 e-3 _-0 e-20 e-21 u--lifted e-22 (CompilerC-45Common-u--C-62C-61_Ord_UsePhase arg-2 (vector 3 )) ext-0)))) (let ((sc19 act-42)) (case (vector-ref sc19 0) ((0) (let ((e-4 (vector-ref sc19 1))) (vector 0 e-4))) (else (let ((e-23 (vector-ref sc19 1))) (let ((act-43 (let ((act-43 (unbox arg-0))) (vector 1 act-43)))) (let ((sc20 act-43)) (case (vector-ref sc20 0) ((0) (let ((e-4 (vector-ref sc20 1))) (vector 0 e-4))) (else (let ((e-24 (vector-ref sc20 1))) (let ((act-44 ((PreludeC-45Types-maybe (lambda () (lambda (eta-0) (vector 1 (vector 0 )))) (lambda () (lambda (u--f) (lambda (eta-0) (let ((act-44 (let ((act-44 ((PreludeC-45IO-putStrLn (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-1)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-1) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-1) (let ((act-17 (arg-578 eta-1))) (let ((act-16 (arg-580 eta-1))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-1) (let ((act-44 (arg-876 eta-1))) ((arg-877 act-44) eta-1))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-1) (let ((act-51 (arg-879 eta-1))) (act-51 eta-1)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) (PreludeC-45TypesC-45String-C-43C-43 "Dumping case trees to " u--f)) eta-0))) (vector 1 act-44)))) (let ((sc21 act-44)) (case (vector-ref sc21 0) ((0) (let ((e-4 (vector-ref sc21 1))) (vector 0 e-4))) (else (CompilerC-45Common-dumpCases e-24 u--f e-14 eta-0)))))))) (let ((sc21 e-6)) (let ((e-29 (vector-ref sc21 11))) e-29))) ext-0))) (let ((sc21 act-44)) (case (vector-ref sc21 0) ((0) (let ((e-4 (vector-ref sc21 1))) (vector 0 e-4))) (else (let ((act-45 ((PreludeC-45Types-maybe (lambda () (lambda (eta-0) (vector 1 (vector 0 )))) (lambda () (lambda (u--f) (lambda (eta-0) (let ((act-45 (let ((act-45 ((PreludeC-45IO-putStrLn (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-1)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-1) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-1) (let ((act-17 (arg-578 eta-1))) (let ((act-16 (arg-580 eta-1))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-1) (let ((act-45 (arg-876 eta-1))) ((arg-877 act-45) eta-1))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-1) (let ((act-51 (arg-879 eta-1))) (act-51 eta-1)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) (PreludeC-45TypesC-45String-C-43C-43 "Dumping lambda lifted defs to " u--f)) eta-0))) (vector 1 act-45)))) (let ((sc22 act-45)) (case (vector-ref sc22 0) ((0) (let ((e-4 (vector-ref sc22 1))) (vector 0 e-4))) (else ((CompilerC-45Common-dumpLifted u--f u--lifted) eta-0)))))))) (let ((sc22 e-6)) (let ((e-29 (vector-ref sc22 12))) e-29))) ext-0))) (let ((sc22 act-45)) (case (vector-ref sc22 0) ((0) (let ((e-4 (vector-ref sc22 1))) (vector 0 e-4))) (else (let ((act-46 ((PreludeC-45Types-maybe (lambda () (lambda (eta-0) (vector 1 (vector 0 )))) (lambda () (lambda (u--f) (lambda (eta-0) (let ((act-46 (let ((act-46 ((PreludeC-45IO-putStrLn (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-1)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-1) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-1) (let ((act-17 (arg-578 eta-1))) (let ((act-16 (arg-580 eta-1))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-1) (let ((act-46 (arg-876 eta-1))) ((arg-877 act-46) eta-1))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-1) (let ((act-51 (arg-879 eta-1))) (act-51 eta-1)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) (PreludeC-45TypesC-45String-C-43C-43 "Dumping ANF defs to " u--f)) eta-0))) (vector 1 act-46)))) (let ((sc23 act-46)) (case (vector-ref sc23 0) ((0) (let ((e-4 (vector-ref sc23 1))) (vector 0 e-4))) (else ((CompilerC-45Common-dumpANF u--f e-22) eta-0)))))))) (let ((sc23 e-6)) (let ((e-29 (vector-ref sc23 13))) e-29))) ext-0))) (let ((sc23 act-46)) (case (vector-ref sc23 0) ((0) (let ((e-4 (vector-ref sc23 1))) (vector 0 e-4))) (else (let ((act-47 ((PreludeC-45Types-maybe (lambda () (lambda (eta-0) (vector 1 (vector 0 )))) (lambda () (lambda (u--f) (lambda (eta-0) (let ((act-47 (let ((act-47 ((PreludeC-45IO-putStrLn (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-1)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-1) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-1) (let ((act-17 (arg-578 eta-1))) (let ((act-16 (arg-580 eta-1))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-1) (let ((act-47 (arg-876 eta-1))) ((arg-877 act-47) eta-1))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-1) (let ((act-51 (arg-879 eta-1))) (act-51 eta-1)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) (PreludeC-45TypesC-45String-C-43C-43 "Dumping VM defs to " u--f)) eta-0))) (vector 1 act-47)))) (let ((sc24 act-47)) (case (vector-ref sc24 0) ((0) (let ((e-4 (vector-ref sc24 1))) (vector 0 e-4))) (else ((CompilerC-45Common-dumpVMCode u--f e-23) eta-0)))))))) (let ((sc24 e-6)) (let ((e-29 (vector-ref sc24 14))) e-29))) ext-0))) (let ((sc24 act-47)) (case (vector-ref sc24 0) ((0) (let ((e-4 (vector-ref sc24 1))) (vector 0 e-4))) (else (let ((act-48 (CoreC-45Core-traverse_ (lambda (eta-0) (lambda (eta-1) (CompilerC-45Common-replaceEntry arg-0 eta-0 eta-1))) u--entries ext-0))) (let ((sc25 act-48)) (case (vector-ref sc25 0) ((0) (let ((e-4 (vector-ref sc25 1))) (vector 0 e-4))) (else (vector 1 (vector 0 e-18 (DataC-45List-mapMaybe (lambda (eta-0) eta-0) e-20) u--lifted e-22 e-23)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) -(define CompilerC-45Common-getAllDesc (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-1)) (if (null? sc0) (lambda (eta-0) (vector 1 (vector 0 ))) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((9) (let ((e-4 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((DataC-45IOArray-readArray (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-1)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-1) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-1) (let ((act-17 (arg-578 eta-1))) (let ((act-16 (arg-580 eta-1))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-1) (let ((act-24 (arg-876 eta-1))) ((arg-877 act-24) eta-1))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-1) (let ((act-51 (arg-879 eta-1))) (act-51 eta-1)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) arg-2 e-4) eta-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((u--n (vector 9 e-4))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((0) (let ((act-25 ((CoreC-45Context-lookupContextEntry u--n (let ((sc4 arg-3)) (let ((e-0 (vector-ref sc4 1))) e-0))) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((_-0 (vector 0 ))) (let ((sc5 e-6)) (case (vector-ref sc5 0) ((0) ((CompilerC-45Common-getAllDesc arg-0 e-3 arg-2 arg-3) eta-0)) (else (let ((e-7 (vector-ref sc5 1))) (let ((sc6 e-7)) (let ((e-9 (car sc6))) (let ((e-8 (cdr sc6))) (let ((act-26 (CompilerC-45Common-getMinimalDef e-8 eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((bind-0 (vector 1 (cons e-9 e-8)))) (let ((sc8 e-10)) (let ((e-12 (car sc8))) (let ((e-11 (cdr sc8))) (let ((act-27 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (let ((sc9 eta-1)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (vector 0 e-13))) (else (vector 1 (vector 0 )))))) (lambda (eta-1) (CoreC-45Context-addDef arg-0 u--n e-12 eta-1)) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (vector 0 e-13))) (else (let ((u--refs (CoreC-45Context-refersToRuntime e-12))) (let ((_-1 (cons e-12 e-11))) ((CompilerC-45Common-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32getAllDesc-915 e-4 u--n e-3 arg-3 arg-2 arg-0 _-0 e-9 e-8 bind-0 e-12 e-11 _-1 u--refs (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega (let ((sc10 e-12)) (let ((e-27 (vector-ref sc10 8))) e-27)) (AlgebraC-45Semiring-erased (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))))) eta-0)))))))))))))))))))))))))))))) (else ((CompilerC-45Common-getAllDesc arg-0 e-3 arg-2 arg-3) eta-0)))))))))))))(else (CompilerC-45Common-getAllDesc arg-0 e-3 arg-2 arg-3)))))))))) -(define CompilerC-45Common-exists (lambda (arg-0 ext-0) (let ((act-24 ((SystemC-45File-openFile (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-0)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-0) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (let ((act-17 (arg-578 eta-0))) (let ((act-16 (arg-580 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (let ((act-24 (arg-876 eta-0))) ((arg-877 act-24) eta-0))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-0) (let ((act-51 (arg-879 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) arg-0 (vector 0 )) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) ((PreludeC-45Interfaces-C-62C-62 (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-0)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-0) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (let ((act-17 (arg-578 eta-0))) (let ((act-16 (arg-580 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (let ((act-25 (arg-876 eta-0))) ((arg-877 act-25) eta-0))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-0) (let ((act-29 (arg-879 eta-0))) (act-29 eta-0)))))) (SystemC-45File-closeFile (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-0)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-0) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (let ((act-17 (arg-578 eta-0))) (let ((act-16 (arg-580 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (let ((act-25 (arg-876 eta-0))) ((arg-877 act-25) eta-0))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-0) (let ((act-51 (arg-879 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) e-2) (lambda () (lambda (eta-0) 0))) ext-0))) (else 1)))))) -(define CompilerC-45Common-execute (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (CoreC-45Context-getDirs arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((u--tmpDir (CoreC-45Options-execBuildDir e-5))) (let ((act-25 (CoreC-45Directory-ensureDirectoryExists u--tmpDir ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 (let ((sc2 arg-1)) (let ((e-1 (cdr sc2))) ((((e-1 arg-0) u--tmpDir) arg-2) ext-0))))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))))))))))))))) -(define CompilerC-45Common-dylib_suffix (lambda () (CoreC-45Core-cond (cons (cons (lambda () (PreludeC-45Types-elem (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_String arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_String arg-4 arg-5)))) (SystemC-45Info-os) (cons "windows" (cons "mingw32" (cons "cygwin32" '()))))) (lambda () "dll")) (cons (cons (lambda () (PreludeC-45EqOrd-u--C-61C-61_Eq_String (SystemC-45Info-os) "darwin")) (lambda () "dylib")) '())) "so"))) -(define CompilerC-45Common-dumpVMCode (lambda (arg-0 arg-1) (let ((u--cstrs (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CompilerC-45Common-n--12532-1467-u--dumpDef arg-1 arg-0 eta-0)) arg-1))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((SystemC-45File-writeFile (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-1)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-1) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-1) (let ((act-17 (arg-578 eta-1))) (let ((act-16 (arg-580 eta-1))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-1) (let ((act-24 (arg-876 eta-1))) ((arg-877 act-24) eta-1))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-1) (let ((act-51 (arg-879 eta-1))) (act-51 eta-1)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) arg-0 (DataC-45String-fastAppend u--cstrs)) eta-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((sc2 e-2)) (vector 1 (vector 0 ))))) (else (let ((e-6 (vector-ref sc1 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 49 arg-0 e-6) eta-0)))))))))))))) -(define CompilerC-45Common-dumpLifted (lambda (arg-0 arg-1) (let ((u--cstrs (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CompilerC-45Common-n--12374-1317-u--dumpDef arg-1 arg-0 eta-0)) arg-1))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((SystemC-45File-writeFile (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-1)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-1) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-1) (let ((act-17 (arg-578 eta-1))) (let ((act-16 (arg-580 eta-1))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-1) (let ((act-24 (arg-876 eta-1))) ((arg-877 act-24) eta-1))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-1) (let ((act-51 (arg-879 eta-1))) (act-51 eta-1)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) arg-0 (DataC-45String-fastAppend u--cstrs)) eta-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((sc2 e-2)) (vector 1 (vector 0 ))))) (else (let ((e-6 (vector-ref sc1 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 49 arg-0 e-6) eta-0)))))))))))))) -(define CompilerC-45Common-dumpCases (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (CompilerC-45Common-n--12213-1171-u--dumpCase arg-2 arg-1 arg-0 eta-0 eta-1))) arg-2 '() ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 ((SystemC-45File-writeFile (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-0)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-0) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (let ((act-17 (arg-578 eta-0))) (let ((act-16 (arg-580 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (let ((act-25 (arg-876 eta-0))) ((arg-877 act-25) eta-0))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-0) (let ((act-51 (arg-879 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) arg-1 (DataC-45String-fastAppend e-5)) ext-0))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (let ((sc3 e-2)) (vector 1 (vector 0 ))))) (else (let ((e-7 (vector-ref sc2 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 49 arg-1 e-7) ext-0))))))))))))))))) -(define CompilerC-45Common-dumpANF (lambda (arg-0 arg-1) (let ((u--cstrs (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CompilerC-45Common-n--12453-1392-u--dumpDef arg-1 arg-0 eta-0)) arg-1))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((SystemC-45File-writeFile (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-1)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-1) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-1) (let ((act-17 (arg-578 eta-1))) (let ((act-16 (arg-580 eta-1))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-1) (let ((act-24 (arg-876 eta-1))) ((arg-877 act-24) eta-1))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-1) (let ((act-51 (arg-879 eta-1))) (act-51 eta-1)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) arg-0 (DataC-45String-fastAppend u--cstrs)) eta-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((sc2 e-2)) (vector 1 (vector 0 ))))) (else (let ((e-6 (vector-ref sc1 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 49 arg-0 e-6) eta-0)))))))))))))) -(define CompilerC-45Common-copyLib (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (lambda (eta-0) (CompilerC-45Common-case--copyLib-2702 e-2 e-3 (PreludeC-45EqOrd-u--C-61C-61_Eq_String e-2 e-3) eta-0))))))) -(define CompilerC-45Common-compile (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (CoreC-45Context-getDirs arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((u--tmpDir (CoreC-45Options-execBuildDir e-5))) (let ((u--outputDir (CoreC-45Options-outputDirWithDefault e-5))) (let ((act-25 (CoreC-45Directory-ensureDirectoryExists u--tmpDir ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45Directory-ensureDirectoryExists u--outputDir ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (CoreC-45ContextC-45Log-logTime arg-0 (lambda () "+ Code generation overall") (let ((sc3 arg-1)) (let ((e-0 (car sc3))) (((((e-0 arg-0) u--tmpDir) u--outputDir) arg-2) arg-3))) ext-0)))))))))))))))))) -(define CompilerC-45Common-castInt (lambda (arg-0 arg-1 arg-2 arg-3) (CompilerC-45Common-case--castInt-3182 arg-3 arg-2 arg-1 arg-0 (cons (cons arg-1 (CoreC-45TT-intKind arg-1)) (cons arg-2 (CoreC-45TT-intKind arg-2)))))) -(define IdrisC-45Env-idrisGetEnv (lambda (arg-1 arg-2 arg-3) (System-getEnv arg-1 arg-2))) -(define IdrisC-45Env-envs (lambda () (cons (cons "EDITOR" "Editor used in REPL :e command") (cons (cons "IDRIS2_PREFIX" "Idris2 installation prefix") (cons (cons "IDRIS2_PATH" "Places Idris2 looks for import files") (cons (cons "IDRIS2_PACKAGE_PATH" "Places Idris2 looks for packages") (cons (cons "IDRIS2_DATA" "Places Idris2 looks for data files") (cons (cons "IDRIS2_LIBS" "Places Idris2 looks for libraries (for code generation)") (cons (cons "IDRIS2_CG" "Codegen backend") (cons (cons "CHEZ" "chez executable used in Chez codegen") (cons (cons "RACKET" "racket executable used in Racket codegen") (cons (cons "RACKET_RACO" "raco executable used in Racket codegen") (cons (cons "GAMBIT_GSI" "gsi executable used in Gambit codegen") (cons (cons "GAMBIT_GSC" "gsc executable used in Gambit codegen") (cons (cons "GAMBIT_GSC_BACKEND" "gsc executable backend argument") (cons (cons "IDRIS2_CC" "C compiler executable used in RefC codegen") (cons (cons "CC" "C compiler executable used in RefC codegen") (cons (cons "NODE" "node executable used in Node codegen") (cons (cons "PATH" "PATH variable is used to search for executables in certain codegens") '()))))))))))))))))))) -(define CompilerC-45VMCode-case--declareVarsC-44declareAll-2708 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (CompilerC-45VMCode-n--8501-2693-u--declareAll arg-0 arg-1 arg-4 arg-3)) (else (cons (vector 0 (vector 1 arg-2)) (CompilerC-45VMCode-n--8501-2693-u--declareAll arg-0 arg-1 (cons arg-2 arg-4) arg-3))))))) -(define CompilerC-45VMCode-n--8070-2449-u--toVMConstAlt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-0 (car sc0))) (let ((e-1 (cdr sc0))) (cons e-0 (CompilerC-45VMCode-toVM arg-5 arg-4 e-1))))))) -(define CompilerC-45VMCode-n--8070-2384-u--toVMConAlt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 1))) (cons (vector 0 e-6) (PreludeC-45TypesC-45List-C-43C-43 (CompilerC-45VMCode-n--8070-2383-u--projectArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 0 e-3) (CompilerC-45VMCode-toVM arg-5 arg-4 e-4))))) (else (cons (vector 1 e-0) (PreludeC-45TypesC-45List-C-43C-43 (CompilerC-45VMCode-n--8070-2383-u--projectArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 0 e-3) (CompilerC-45VMCode-toVM arg-5 arg-4 e-4))))))))))))) -(define CompilerC-45VMCode-n--8070-2383-u--projectArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (if (null? sc0) '() (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (cons (vector 12 (vector 1 e-2) (vector 1 arg-0) arg-6) (CompilerC-45VMCode-n--8070-2383-u--projectArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (bs+ arg-6 1 63) e-3)))))))) -(define CompilerC-45VMCode-n--8306-2579-u--findVarAlt (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-3 (cdr sc0))) (PreludeC-45Interfaces-concatMap (cons (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (cons (lambda (arg-4) (lambda (arg-5) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-4 arg-5))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) (lambda (eta-0) (CompilerC-45VMCode-findVars eta-0)) e-3))))) -(define CompilerC-45VMCode-n--8306-2630-u--findConstVarAlt (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-3 (cdr sc0))) (PreludeC-45Interfaces-concatMap (cons (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (cons (lambda (arg-4) (lambda (arg-5) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-4 arg-5))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) (lambda (eta-0) (CompilerC-45VMCode-findVars eta-0)) e-3))))) -(define CompilerC-45VMCode-n--8501-2693-u--declareAll (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (if (null? sc0) (cons (vector 1 ) arg-0) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (CompilerC-45VMCode-case--declareVarsC-44declareAll-2708 arg-0 arg-1 e-2 e-3 arg-2 (PreludeC-45Types-elem (cons (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-4 arg-5)))) e-2 arg-2)))))))) -(define CompilerC-45VMCode-u--show_Show_VMInst (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (PreludeC-45TypesC-45String-C-43C-43 "DECLARE " (CompilerC-45VMCode-u--show_Show_Reg e-0)))) ((1) "START") ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (PreludeC-45TypesC-45String-C-43C-43 (CompilerC-45VMCode-u--show_Show_Reg e-1) (PreludeC-45TypesC-45String-C-43C-43 " := " (CompilerC-45VMCode-u--show_Show_Reg e-2)))))) ((3) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (PreludeC-45TypesC-45String-C-43C-43 (CompilerC-45VMCode-u--show_Show_Reg e-3) (PreludeC-45TypesC-45String-C-43C-43 " := MKCON " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40C-40EitherC-32C-36aC-41C-32C-36bC-41 (cons (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_Int u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_Int u--d u--x)))) (cons (lambda (u--x) (CoreC-45Name-u--show_Show_Name u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Name-u--showPrec_Show_Name u--d u--x))))) e-4) (PreludeC-45TypesC-45String-C-43C-43 " (" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-showSep ", " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CompilerC-45VMCode-u--show_Show_Reg eta-0)) e-5)) ")"))))))))) ((4) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (let ((e-9 (vector-ref sc0 4))) (PreludeC-45TypesC-45String-C-43C-43 (CompilerC-45VMCode-u--show_Show_Reg e-6) (PreludeC-45TypesC-45String-C-43C-43 " := MKCLOSURE " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-7) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Nat e-8) (PreludeC-45TypesC-45String-C-43C-43 " (" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-showSep ", " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CompilerC-45VMCode-u--show_Show_Reg eta-0)) e-9)) ")")))))))))))) ((5) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (PreludeC-45TypesC-45String-C-43C-43 (CompilerC-45VMCode-u--show_Show_Reg e-10) (PreludeC-45TypesC-45String-C-43C-43 " := MKCONSTANT " (CoreC-45TT-u--show_Show_Constant e-11)))))) ((6) (let ((e-12 (vector-ref sc0 1))) (let ((e-13 (vector-ref sc0 2))) (let ((e-14 (vector-ref sc0 3))) (PreludeC-45TypesC-45String-C-43C-43 (CompilerC-45VMCode-u--show_Show_Reg e-12) (PreludeC-45TypesC-45String-C-43C-43 " := " (PreludeC-45TypesC-45String-C-43C-43 (CompilerC-45VMCode-u--show_Show_Reg e-13) (PreludeC-45TypesC-45String-C-43C-43 " @ " (CompilerC-45VMCode-u--show_Show_Reg e-14))))))))) ((7) (let ((e-15 (vector-ref sc0 1))) (let ((e-16 (vector-ref sc0 2))) (let ((e-17 (vector-ref sc0 3))) (let ((e-18 (vector-ref sc0 4))) (PreludeC-45TypesC-45String-C-43C-43 (CompilerC-45VMCode-u--show_Show_Reg e-15) (PreludeC-45TypesC-45String-C-43C-43 " := " (PreludeC-45TypesC-45String-C-43C-43 (let ((sc1 e-16)) (cond ((equal? sc1 0) "TAILCALL ") (else "CALL "))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-17) (PreludeC-45TypesC-45String-C-43C-43 "(" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-showSep ", " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CompilerC-45VMCode-u--show_Show_Reg eta-0)) e-18)) ")"))))))))))) ((8) (let ((e-20 (vector-ref sc0 1))) (let ((e-21 (vector-ref sc0 2))) (let ((e-22 (vector-ref sc0 3))) (PreludeC-45TypesC-45String-C-43C-43 (CompilerC-45VMCode-u--show_Show_Reg e-20) (PreludeC-45TypesC-45String-C-43C-43 " := " (PreludeC-45TypesC-45String-C-43C-43 "OP " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40PrimFnC-32C-36arityC-41 e-21) (PreludeC-45TypesC-45String-C-43C-43 "(" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-showSep ", " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CompilerC-45VMCode-u--show_Show_Reg eta-0)) (DataC-45List-toList (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (DataC-45Vect-u--foldr_Foldable_C-40VectC-32C-36nC-41 u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (DataC-45Vect-u--foldl_Foldable_C-40VectC-32C-36nC-41 u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (DataC-45Vect-u--null_Foldable_C-40VectC-32C-36nC-41 arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (DataC-45Vect-u--foldlM_Foldable_C-40VectC-32C-36nC-41 i_con-0 u--funcM u--init u--input))))))))) e-22))) ")")))))))))) ((9) (let ((e-23 (vector-ref sc0 1))) (let ((e-24 (vector-ref sc0 2))) (let ((e-25 (vector-ref sc0 3))) (PreludeC-45TypesC-45String-C-43C-43 (CompilerC-45VMCode-u--show_Show_Reg e-23) (PreludeC-45TypesC-45String-C-43C-43 " := " (PreludeC-45TypesC-45String-C-43C-43 "EXTPRIM " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-24) (PreludeC-45TypesC-45String-C-43C-43 "(" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-showSep ", " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CompilerC-45VMCode-u--show_Show_Reg eta-0)) e-25)) ")")))))))))) ((10) (let ((e-26 (vector-ref sc0 1))) (let ((e-27 (vector-ref sc0 2))) (let ((e-28 (vector-ref sc0 3))) (PreludeC-45TypesC-45String-C-43C-43 "CASE " (PreludeC-45TypesC-45String-C-43C-43 (CompilerC-45VMCode-u--show_Show_Reg e-26) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40C-40EitherC-32C-36aC-41C-32C-36bC-41 (cons (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_Int x-1)) (lambda (u--d) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_Int u--d x-1)))) (cons (lambda (x-1) (CoreC-45Name-u--show_Show_Name x-1)) (lambda (u--d) (lambda (x-1) (CoreC-45Name-u--showPrec_Show_Name u--d x-1))))) x-0)) (lambda (u--d) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40C-40EitherC-32C-36aC-41C-32C-36bC-41 (cons (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_Int x-1)) (lambda (d-0) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-1)))) (cons (lambda (x-1) (CoreC-45Name-u--show_Show_Name x-1)) (lambda (d-0) (lambda (x-1) (CoreC-45Name-u--showPrec_Show_Name d-0 x-1))))) u--d x-0)))) (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (x-1) (CompilerC-45VMCode-u--show_Show_VMInst x-1)) (lambda (u--d) (lambda (x-1) (CompilerC-45VMCode-u--showPrec_Show_VMInst u--d x-1)))) x-0)) (lambda (u--d) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40ListC-32C-36aC-41 (cons (lambda (x-1) (CompilerC-45VMCode-u--show_Show_VMInst x-1)) (lambda (d-0) (lambda (x-1) (CompilerC-45VMCode-u--showPrec_Show_VMInst d-0 x-1)))) u--d x-0))))) u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40C-40EitherC-32C-36aC-41C-32C-36bC-41 (cons (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_Int x-1)) (lambda (d-0) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-1)))) (cons (lambda (x-1) (CoreC-45Name-u--show_Show_Name x-1)) (lambda (d-0) (lambda (x-1) (CoreC-45Name-u--showPrec_Show_Name d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40C-40EitherC-32C-36aC-41C-32C-36bC-41 (cons (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_Int x-1)) (lambda (d-1) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_Int d-1 x-1)))) (cons (lambda (x-1) (CoreC-45Name-u--show_Show_Name x-1)) (lambda (d-1) (lambda (x-1) (CoreC-45Name-u--showPrec_Show_Name d-1 x-1))))) d-0 x-0)))) (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (x-1) (CompilerC-45VMCode-u--show_Show_VMInst x-1)) (lambda (d-0) (lambda (x-1) (CompilerC-45VMCode-u--showPrec_Show_VMInst d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40ListC-32C-36aC-41 (cons (lambda (x-1) (CompilerC-45VMCode-u--show_Show_VMInst x-1)) (lambda (d-1) (lambda (x-1) (CompilerC-45VMCode-u--showPrec_Show_VMInst d-1 x-1)))) d-0 x-0))))) u--d u--x)))) e-27) (PreludeC-45TypesC-45String-C-43C-43 " {default: " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (x-0) (CompilerC-45VMCode-u--show_Show_VMInst x-0)) (lambda (u--d) (lambda (x-0) (CompilerC-45VMCode-u--showPrec_Show_VMInst u--d x-0)))) u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_C-40ListC-32C-36aC-41 (cons (lambda (x-0) (CompilerC-45VMCode-u--show_Show_VMInst x-0)) (lambda (d-0) (lambda (x-0) (CompilerC-45VMCode-u--showPrec_Show_VMInst d-0 x-0)))) u--d u--x)))) e-28) "}")))))))))) ((11) (let ((e-29 (vector-ref sc0 1))) (let ((e-30 (vector-ref sc0 2))) (let ((e-31 (vector-ref sc0 3))) (PreludeC-45TypesC-45String-C-43C-43 "CASE " (PreludeC-45TypesC-45String-C-43C-43 (CompilerC-45VMCode-u--show_Show_Reg e-29) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (CoreC-45TT-u--show_Show_Constant x-0)) (lambda (u--d) (lambda (x-0) (CoreC-45TT-u--showPrec_Show_Constant u--d x-0)))) (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (x-1) (CompilerC-45VMCode-u--show_Show_VMInst x-1)) (lambda (u--d) (lambda (x-1) (CompilerC-45VMCode-u--showPrec_Show_VMInst u--d x-1)))) x-0)) (lambda (u--d) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40ListC-32C-36aC-41 (cons (lambda (x-1) (CompilerC-45VMCode-u--show_Show_VMInst x-1)) (lambda (d-0) (lambda (x-1) (CompilerC-45VMCode-u--showPrec_Show_VMInst d-0 x-1)))) u--d x-0))))) u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (CoreC-45TT-u--show_Show_Constant x-0)) (lambda (d-0) (lambda (x-0) (CoreC-45TT-u--showPrec_Show_Constant d-0 x-0)))) (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (x-1) (CompilerC-45VMCode-u--show_Show_VMInst x-1)) (lambda (d-0) (lambda (x-1) (CompilerC-45VMCode-u--showPrec_Show_VMInst d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40ListC-32C-36aC-41 (cons (lambda (x-1) (CompilerC-45VMCode-u--show_Show_VMInst x-1)) (lambda (d-1) (lambda (x-1) (CompilerC-45VMCode-u--showPrec_Show_VMInst d-1 x-1)))) d-0 x-0))))) u--d u--x)))) e-30) (PreludeC-45TypesC-45String-C-43C-43 " {default: " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (x-0) (CompilerC-45VMCode-u--show_Show_VMInst x-0)) (lambda (u--d) (lambda (x-0) (CompilerC-45VMCode-u--showPrec_Show_VMInst u--d x-0)))) u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_C-40ListC-32C-36aC-41 (cons (lambda (x-0) (CompilerC-45VMCode-u--show_Show_VMInst x-0)) (lambda (d-0) (lambda (x-0) (CompilerC-45VMCode-u--showPrec_Show_VMInst d-0 x-0)))) u--d u--x)))) e-31) "}")))))))))) ((12) (let ((e-32 (vector-ref sc0 1))) (let ((e-33 (vector-ref sc0 2))) (let ((e-34 (vector-ref sc0 3))) (PreludeC-45TypesC-45String-C-43C-43 (CompilerC-45VMCode-u--show_Show_Reg e-32) (PreludeC-45TypesC-45String-C-43C-43 " := PROJECT(" (PreludeC-45TypesC-45String-C-43C-43 (CompilerC-45VMCode-u--show_Show_Reg e-33) (PreludeC-45TypesC-45String-C-43C-43 ", " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Int e-34) ")"))))))))) ((13) (let ((e-35 (vector-ref sc0 1))) (PreludeC-45TypesC-45String-C-43C-43 (CompilerC-45VMCode-u--show_Show_Reg e-35) " := NULL"))) (else (let ((e-36 (vector-ref sc0 1))) (PreludeC-45TypesC-45String-C-43C-43 "ERROR " (PreludeC-45Show-u--show_Show_String e-36)))))))) -(define CompilerC-45VMCode-u--show_Show_VMDef (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_Int u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_Int u--d u--x)))) e-0) (PreludeC-45TypesC-45String-C-43C-43 ": " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CompilerC-45VMCode-u--show_Show_VMInst u--x)) (lambda (u--d) (lambda (u--x) (CompilerC-45VMCode-u--showPrec_Show_VMInst u--d u--x)))) e-1)))))) (else (let ((e-2 (vector-ref sc0 1))) (PreludeC-45TypesC-45String-C-43C-43 "Error: " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CompilerC-45VMCode-u--show_Show_VMInst u--x)) (lambda (u--d) (lambda (u--x) (CompilerC-45VMCode-u--showPrec_Show_VMInst u--d u--x)))) e-2)))))))) -(define CompilerC-45VMCode-u--show_Show_Reg (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) "RVAL") ((1) (let ((e-0 (vector-ref sc0 1))) (PreludeC-45TypesC-45String-C-43C-43 "v" (PreludeC-45Show-u--show_Show_Int e-0)))) (else "DISCARD"))))) -(define CompilerC-45VMCode-u--showPrec_Show_VMInst (lambda (arg-0 arg-1) (CompilerC-45VMCode-u--show_Show_VMInst arg-1))) -(define CompilerC-45VMCode-toVMDef (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (vector 1 (vector 0 e-0 (CompilerC-45VMCode-declareVars e-0 (CompilerC-45VMCode-toVM 0 (vector 0 ) e-1))))))) ((3) (let ((e-2 (vector-ref sc0 1))) (vector 1 (vector 1 (CompilerC-45VMCode-declareVars '() (CompilerC-45VMCode-toVM 0 (vector 0 ) e-2))))))(else (vector 0 )))))) -(define CompilerC-45VMCode-toVM (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((2) '())(else (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-45 (vector-ref sc1 1))) (cons (vector 2 arg-1 (vector 1 e-45)) '())))(else (cons (vector 13 arg-1) '())))))) ((1) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (cons (vector 7 arg-1 arg-0 e-4 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CompilerC-45VMCode-toReg eta-0)) e-5)) '())))) ((2) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (let ((e-9 (vector-ref sc0 4))) (cons (vector 4 arg-1 e-7 e-8 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CompilerC-45VMCode-toReg eta-0)) e-9)) '()))))) ((3) (let ((e-12 (vector-ref sc0 3))) (let ((e-13 (vector-ref sc0 4))) (cons (vector 6 arg-1 (CompilerC-45VMCode-toReg e-12) (CompilerC-45VMCode-toReg e-13)) '())))) ((4) (let ((e-15 (vector-ref sc0 2))) (let ((e-16 (vector-ref sc0 3))) (let ((e-17 (vector-ref sc0 4))) (PreludeC-45TypesC-45List-C-43C-43 (CompilerC-45VMCode-toVM 1 (vector 1 e-15) e-16) (CompilerC-45VMCode-toVM arg-0 arg-1 e-17)))))) ((5) (let ((e-19 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 4))) (let ((e-22 (vector-ref sc0 5))) (let ((sc1 e-21)) (case (vector-ref sc1 0) ((1) (let ((e-47 (vector-ref sc1 1))) (cons (vector 3 arg-1 (vector 0 e-47) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CompilerC-45VMCode-toReg eta-0)) e-22)) '()))) ((0) (cons (vector 3 arg-1 (vector 1 e-19) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CompilerC-45VMCode-toReg eta-0)) e-22)) '()))(else (cons (vector 13 arg-1) '())))))))) ((6) (let ((e-26 (vector-ref sc0 3))) (let ((e-27 (vector-ref sc0 4))) (cons (vector 8 arg-1 e-26 (DataC-45Vect-u--map_Functor_C-40VectC-32C-36nC-41 (lambda (eta-0) (CompilerC-45VMCode-toReg eta-0)) e-27)) '())))) ((7) (let ((e-30 (vector-ref sc0 3))) (let ((e-31 (vector-ref sc0 4))) (cons (vector 9 arg-1 e-30 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CompilerC-45VMCode-toReg eta-0)) e-31)) '())))) ((8) (let ((e-32 (vector-ref sc0 1))) (let ((e-33 (vector-ref sc0 2))) (let ((e-34 (vector-ref sc0 3))) (let ((e-35 (vector-ref sc0 4))) (let ((sc1 e-33)) (case (vector-ref sc1 0) ((0) (let ((e-49 (vector-ref sc1 1))) (cons (vector 10 (vector 1 e-49) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CompilerC-45VMCode-n--8070-2384-u--toVMConAlt e-49 e-35 e-34 e-32 arg-1 arg-0 eta-0)) e-34) (PreludeC-45Types-u--map_Functor_Maybe (lambda (eta-0) (CompilerC-45VMCode-toVM arg-0 arg-1 eta-0)) e-35)) '())))(else (cons (vector 13 arg-1) '()))))))))) ((9) (let ((e-36 (vector-ref sc0 1))) (let ((e-37 (vector-ref sc0 2))) (let ((e-38 (vector-ref sc0 3))) (let ((e-39 (vector-ref sc0 4))) (let ((sc1 e-37)) (case (vector-ref sc1 0) ((0) (let ((e-50 (vector-ref sc1 1))) (cons (vector 11 (vector 1 e-50) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CompilerC-45VMCode-n--8070-2449-u--toVMConstAlt e-50 e-39 e-38 e-36 arg-1 arg-0 eta-0)) e-38) (PreludeC-45Types-u--map_Functor_Maybe (lambda (eta-0) (CompilerC-45VMCode-toVM arg-0 arg-1 eta-0)) e-39)) '())))(else (cons (vector 13 arg-1) '()))))))))) ((10) (let ((e-41 (vector-ref sc0 2))) (cons (vector 5 arg-1 e-41) '()))) ((11) (cons (vector 13 arg-1) '())) ((12) (let ((e-44 (vector-ref sc0 2))) (cons (vector 14 e-44) '())))(else (cons (vector 13 arg-1) '()))))))))) -(define CompilerC-45VMCode-toReg (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (vector 1 e-0))) (else (vector 2 )))))) -(define CompilerC-45VMCode-findVars (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 e-0)) (case (vector-ref sc1 0) ((1) (let ((e-34 (vector-ref sc1 1))) (cons e-34 '())))(else '()))))) ((3) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-35 (vector-ref sc1 1))) (cons e-35 '())))(else '()))))) ((4) (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-36 (vector-ref sc1 1))) (cons e-36 '())))(else '()))))) ((5) (let ((e-9 (vector-ref sc0 1))) (let ((sc1 e-9)) (case (vector-ref sc1 0) ((1) (let ((e-37 (vector-ref sc1 1))) (cons e-37 '())))(else '()))))) ((6) (let ((e-11 (vector-ref sc0 1))) (let ((sc1 e-11)) (case (vector-ref sc1 0) ((1) (let ((e-38 (vector-ref sc1 1))) (cons e-38 '())))(else '()))))) ((7) (let ((e-14 (vector-ref sc0 1))) (let ((sc1 e-14)) (case (vector-ref sc1 0) ((1) (let ((e-39 (vector-ref sc1 1))) (cons e-39 '())))(else '()))))) ((8) (let ((e-19 (vector-ref sc0 1))) (let ((sc1 e-19)) (case (vector-ref sc1 0) ((1) (let ((e-40 (vector-ref sc1 1))) (cons e-40 '())))(else '()))))) ((9) (let ((e-22 (vector-ref sc0 1))) (let ((sc1 e-22)) (case (vector-ref sc1 0) ((1) (let ((e-41 (vector-ref sc1 1))) (cons e-41 '())))(else '()))))) ((10) (let ((e-25 (vector-ref sc0 1))) (let ((e-26 (vector-ref sc0 2))) (let ((e-27 (vector-ref sc0 3))) (PreludeC-45TypesC-45List-C-43C-43 (PreludeC-45Interfaces-concatMap (cons (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-2 arg-3))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) (lambda (eta-0) (CompilerC-45VMCode-n--8306-2579-u--findVarAlt e-25 e-27 e-26 eta-0)) e-26) (DataC-45Maybe-fromMaybe (lambda () '()) (PreludeC-45Types-u--map_Functor_Maybe (lambda (eta-0) (PreludeC-45Interfaces-concatMap (cons (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-2 arg-3))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) (lambda (eta-1) (CompilerC-45VMCode-findVars eta-1)) eta-0)) e-27))))))) ((11) (let ((e-28 (vector-ref sc0 1))) (let ((e-29 (vector-ref sc0 2))) (let ((e-30 (vector-ref sc0 3))) (PreludeC-45TypesC-45List-C-43C-43 (PreludeC-45Interfaces-concatMap (cons (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-2 arg-3))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) (lambda (eta-0) (CompilerC-45VMCode-n--8306-2630-u--findConstVarAlt e-28 e-30 e-29 eta-0)) e-29) (DataC-45Maybe-fromMaybe (lambda () '()) (PreludeC-45Types-u--map_Functor_Maybe (lambda (eta-0) (PreludeC-45Interfaces-concatMap (cons (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-2 arg-3))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) (lambda (eta-1) (CompilerC-45VMCode-findVars eta-1)) eta-0)) e-30))))))) ((12) (let ((e-31 (vector-ref sc0 1))) (let ((sc1 e-31)) (case (vector-ref sc1 0) ((1) (let ((e-42 (vector-ref sc1 1))) (cons e-42 '())))(else '())))))(else '()))))) -(define CompilerC-45VMCode-declareVars (lambda (arg-0 arg-1) (let ((u--vs (PreludeC-45Interfaces-concatMap (cons (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-2 arg-3))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) (lambda (eta-0) (CompilerC-45VMCode-findVars eta-0)) arg-1))) (CompilerC-45VMCode-n--8501-2693-u--declareAll arg-1 arg-0 arg-0 u--vs)))) -(define CompilerC-45VMCode-allDefs (lambda (ext-0) (DataC-45List-mapMaybe (lambda (lamc-0) (let ((sc0 lamc-0)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CompilerC-45VMCode-toVMDef e-3) (lambda (u--dC-39) (PreludeC-45Types-u--pure_Applicative_Maybe (cons e-2 u--dC-39)))))))) ext-0))) -(define CompilerC-45ANF-case--anf-1458 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((0) (vector 12 arg-5 "Can't happen (AOp)")) (else (let ((e-2 (vector-ref sc0 1))) (vector 6 arg-5 arg-4 arg-3 e-2))))))) -(define CompilerC-45ANF-n--8250-935-u--showArg (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (PreludeC-45TypesC-45String-C-43C-43 "v" (PreludeC-45Show-u--show_Show_Int arg-5)))) -(define CompilerC-45ANF-n--8563-1216-u--doBind (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (if (null? sc0) (arg-0 (DataC-45List-reverse arg-4)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((0) (let ((e-8 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((1) (let ((e-10 (vector-ref sc3 1))) (vector 4 arg-2 e-8 e-10 (CompilerC-45ANF-n--8563-1216-u--doBind arg-0 arg-1 arg-2 arg-3 (cons (vector 0 e-8) arg-4) e-3))))(else (CompilerC-45ANF-n--8563-1216-u--doBind arg-0 arg-1 arg-2 arg-3 (cons e-6 arg-4) e-3))))))(else (CompilerC-45ANF-n--8563-1216-u--doBind arg-0 arg-1 arg-2 arg-3 (cons e-6 arg-4) e-3))))))))))))) -(define CompilerC-45ANF-n--9145-1729-u--bindArgs (lambda (arg-0 arg-1 arg-2 arg-4 arg-5 arg-6 ext-0) (let ((sc0 arg-5)) (if (null? sc0) (vector 1 (cons '() arg-6)) (let ((e-3 (cdr sc0))) (let ((act-24 (CompilerC-45ANF-nextVar arg-4 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CompilerC-45ANF-n--9145-1729-u--bindArgs arg-0 arg-1 arg-2 arg-4 e-3 arg-6 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (let ((e-7 (car sc3))) (let ((e-4 (cdr sc3))) (vector 1 (cons (cons e-5 e-7) (cons e-5 e-4))))))))))))))))))))) -(define CompilerC-45ANF-n--8637-1602-u--bindArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-9 arg-10 ext-0) (let ((sc0 arg-9)) (if (null? sc0) (vector 1 (cons '() arg-10)) (let ((e-3 (cdr sc0))) (let ((act-24 (CompilerC-45ANF-nextVar arg-7 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CompilerC-45ANF-n--8637-1602-u--bindArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-3 arg-10 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (let ((e-7 (car sc3))) (let ((e-4 (cdr sc3))) (vector 1 (cons (cons e-5 e-7) (cons e-5 e-4))))))))))))))))))))) -(define CompilerC-45ANF-u--show_Show_AVar (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (PreludeC-45TypesC-45String-C-43C-43 "v" (PreludeC-45Show-u--show_Show_Int e-0)))) (else "[__]"))))) -(define CompilerC-45ANF-u--show_Show_ANFDef (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_Int u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_Int u--d u--x)))) e-0) (PreludeC-45TypesC-45String-C-43C-43 ": " (CompilerC-45ANF-u--show_Show_ANF e-1)))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (PreludeC-45TypesC-45String-C-43C-43 "Constructor tag " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_Int u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_Int u--d u--x)))) e-2) (PreludeC-45TypesC-45String-C-43C-43 " arity " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Nat e-3) (PreludeC-45TypesC-45String-C-43C-43 " newtype by " (PreludeC-45Show-u--show_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_Nat u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_Nat u--d u--x)))) e-4)))))))))) ((2) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (PreludeC-45TypesC-45String-C-43C-43 "Foreign call " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_String u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_String u--d u--x)))) e-5) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45CompileExpr-u--show_Show_CFType u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45CompileExpr-u--showPrec_Show_CFType u--d u--x)))) e-6) (PreludeC-45TypesC-45String-C-43C-43 " -> " (CoreC-45CompileExpr-u--show_Show_CFType e-7)))))))))) (else (let ((e-8 (vector-ref sc0 1))) (PreludeC-45TypesC-45String-C-43C-43 "Error: " (CompilerC-45ANF-u--show_Show_ANF e-8)))))))) -(define CompilerC-45ANF-u--show_Show_ANF (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (CompilerC-45ANF-u--show_Show_AVar e-1))) ((1) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-4) (PreludeC-45TypesC-45String-C-43C-43 (CompilerC-45ANF-showLazy e-3) (PreludeC-45TypesC-45String-C-43C-43 "(" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-showSep ", " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CompilerC-45ANF-u--show_Show_AVar eta-0)) e-5)) ")")))))))) ((2) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (let ((e-9 (vector-ref sc0 4))) (PreludeC-45TypesC-45String-C-43C-43 "<" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-7) (PreludeC-45TypesC-45String-C-43C-43 " underapp " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Nat e-8) (PreludeC-45TypesC-45String-C-43C-43 ">(" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-showSep ", " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CompilerC-45ANF-u--show_Show_AVar eta-0)) e-9)) ")")))))))))) ((3) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (let ((e-13 (vector-ref sc0 4))) (PreludeC-45TypesC-45String-C-43C-43 (CompilerC-45ANF-u--show_Show_AVar e-12) (PreludeC-45TypesC-45String-C-43C-43 (CompilerC-45ANF-showLazy e-11) (PreludeC-45TypesC-45String-C-43C-43 " @ (" (PreludeC-45TypesC-45String-C-43C-43 (CompilerC-45ANF-u--show_Show_AVar e-13) ")")))))))) ((4) (let ((e-15 (vector-ref sc0 2))) (let ((e-16 (vector-ref sc0 3))) (let ((e-17 (vector-ref sc0 4))) (PreludeC-45TypesC-45String-C-43C-43 "%let v" (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Int e-15) (PreludeC-45TypesC-45String-C-43C-43 " = (" (PreludeC-45TypesC-45String-C-43C-43 (CompilerC-45ANF-u--show_Show_ANF e-16) (PreludeC-45TypesC-45String-C-43C-43 ") in (" (PreludeC-45TypesC-45String-C-43C-43 (CompilerC-45ANF-u--show_Show_ANF e-17) ")")))))))))) ((5) (let ((e-19 (vector-ref sc0 2))) (let ((e-22 (vector-ref sc0 5))) (PreludeC-45TypesC-45String-C-43C-43 "%con " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-19) (PreludeC-45TypesC-45String-C-43C-43 "(" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-showSep ", " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CompilerC-45ANF-u--show_Show_AVar eta-0)) e-22)) ")"))))))) ((6) (let ((e-25 (vector-ref sc0 2))) (let ((e-26 (vector-ref sc0 3))) (let ((e-27 (vector-ref sc0 4))) (PreludeC-45TypesC-45String-C-43C-43 "%op " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40PrimFnC-32C-36arityC-41 e-26) (PreludeC-45TypesC-45String-C-43C-43 (CompilerC-45ANF-showLazy e-25) (PreludeC-45TypesC-45String-C-43C-43 "(" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-showSep ", " (DataC-45List-toList (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (DataC-45Vect-u--foldr_Foldable_C-40VectC-32C-36nC-41 u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (DataC-45Vect-u--foldl_Foldable_C-40VectC-32C-36nC-41 u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (DataC-45Vect-u--null_Foldable_C-40VectC-32C-36nC-41 arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (DataC-45Vect-u--foldlM_Foldable_C-40VectC-32C-36nC-41 i_con-0 u--funcM u--init u--input))))))))) (DataC-45Vect-u--map_Functor_C-40VectC-32C-36nC-41 (lambda (eta-0) (CompilerC-45ANF-u--show_Show_AVar eta-0)) e-27))) ")"))))))))) ((7) (let ((e-29 (vector-ref sc0 2))) (let ((e-30 (vector-ref sc0 3))) (let ((e-31 (vector-ref sc0 4))) (PreludeC-45TypesC-45String-C-43C-43 "%extprim " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-30) (PreludeC-45TypesC-45String-C-43C-43 (CompilerC-45ANF-showLazy e-29) (PreludeC-45TypesC-45String-C-43C-43 "(" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-showSep ", " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CompilerC-45ANF-u--show_Show_AVar eta-0)) e-31)) ")"))))))))) ((8) (let ((e-33 (vector-ref sc0 2))) (let ((e-34 (vector-ref sc0 3))) (let ((e-35 (vector-ref sc0 4))) (PreludeC-45TypesC-45String-C-43C-43 "%case " (PreludeC-45TypesC-45String-C-43C-43 (CompilerC-45ANF-u--show_Show_AVar e-33) (PreludeC-45TypesC-45String-C-43C-43 " of { " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-showSep "| " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CompilerC-45ANF-u--show_Show_AConAlt eta-0)) e-34)) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (u--x) (CompilerC-45ANF-u--show_Show_ANF u--x)) (lambda (u--d) (lambda (u--x) (CompilerC-45ANF-u--showPrec_Show_ANF u--d u--x)))) e-35) " }")))))))))) ((9) (let ((e-37 (vector-ref sc0 2))) (let ((e-38 (vector-ref sc0 3))) (let ((e-39 (vector-ref sc0 4))) (PreludeC-45TypesC-45String-C-43C-43 "%case " (PreludeC-45TypesC-45String-C-43C-43 (CompilerC-45ANF-u--show_Show_AVar e-37) (PreludeC-45TypesC-45String-C-43C-43 " of { " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-showSep "| " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CompilerC-45ANF-u--show_Show_AConstAlt eta-0)) e-38)) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (u--x) (CompilerC-45ANF-u--show_Show_ANF u--x)) (lambda (u--d) (lambda (u--x) (CompilerC-45ANF-u--showPrec_Show_ANF u--d u--x)))) e-39) " }")))))))))) ((10) (let ((e-41 (vector-ref sc0 2))) (CoreC-45TT-u--show_Show_Constant e-41))) ((11) "___") (else (let ((e-44 (vector-ref sc0 2))) (PreludeC-45TypesC-45String-C-43C-43 "%CRASH(" (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_String e-44) ")")))))))) -(define CompilerC-45ANF-u--show_Show_AConstAlt (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (car sc0))) (let ((e-1 (cdr sc0))) (PreludeC-45TypesC-45String-C-43C-43 "%constalt(" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_Constant e-0) (PreludeC-45TypesC-45String-C-43C-43 ") => " (CompilerC-45ANF-u--show_Show_ANF e-1))))))))) -(define CompilerC-45ANF-u--show_Show_AConAlt (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (PreludeC-45TypesC-45String-C-43C-43 "%conalt " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-0) (PreludeC-45TypesC-45String-C-43C-43 "(" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-showSep ", " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CompilerC-45ANF-n--8250-935-u--showArg e-1 e-4 e-3 e-2 e-0 eta-0)) e-3)) (PreludeC-45TypesC-45String-C-43C-43 ") => " (CompilerC-45ANF-u--show_Show_ANF e-4)))))))))))))) -(define CompilerC-45ANF-u--showPrec_Show_ANF (lambda (arg-0 arg-1) (CompilerC-45ANF-u--show_Show_ANF arg-1))) -(define CompilerC-45ANF-toANF (lambda (arg-0 ext-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((act-24 (CoreC-45Core-newRef (vector "Compiler.ANF.Next" ) 0 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CompilerC-45ANF-n--9145-1729-u--bindArgs e-1 e-0 e-2 e-5 e-0 '() ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (let ((e-4 (car sc3))) (let ((e-3 (cdr sc3))) (let ((u--vs e-3)) (let ((act-26 (CompilerC-45ANF-n--9145-1729-u--bindArgs e-1 e-0 e-2 e-5 e-1 u--vs ext-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (let ((sc5 e-7)) (let ((e-9 (car sc5))) (let ((e-8 (cdr sc5))) (let ((act-27 (CompilerC-45ANF-anf (PreludeC-45TypesC-45List-C-43C-43 e-1 e-0) e-5 e-8 e-2 ext-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (vector 1 (vector 0 (PreludeC-45TypesC-45List-C-43C-43 e-4 (DataC-45List-reverse e-9)) e-10))))))))))))))))))))))))))))))))) ((1) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (vector 1 (vector 1 e-3 e-4 e-5)))))) ((2) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (vector 1 (vector 2 e-6 e-7 e-8)))))) (else (let ((e-9 (vector-ref sc0 1))) (let ((act-24 (CoreC-45Core-newRef (vector "Compiler.ANF.Next" ) 0 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CompilerC-45ANF-anf '() e-5 '() e-9 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 3 e-6)))))))))))))))))) -(define CompilerC-45ANF-showLazy (lambda (ext-0) (PreludeC-45Types-maybe (lambda () "") (lambda () (lambda (eta-0) (PreludeC-45TypesC-45String-C-43C-43 " " (CoreC-45TT-u--show_Show_LazyReason eta-0)))) ext-0))) -(define CompilerC-45ANF-nextVar (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (set-box! arg-0 (bs+ e-5 1 63)))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 e-5)))))))))))) -(define CompilerC-45ANF-mlet (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (vector 1 (arg-3 e-1))))(else (let ((act-24 (CompilerC-45ANF-nextVar arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (vector 4 arg-1 e-5 arg-2 (arg-3 (vector 0 e-5)))))))))))))) -(define CompilerC-45ANF-lookup (lambda (arg-2 arg-4) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (let ((sc1 arg-4)) (let ((e-3 (car sc1))) e-3)))(else (let ((e-0 (- arg-2 1))) (let ((sc0 arg-4)) (let ((e-8 (cdr sc0))) (CompilerC-45ANF-lookup e-0 e-8))))))))) -(define CompilerC-45ANF-letBind (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (CompilerC-45ANF-bindArgs arg-0 arg-2 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (CompilerC-45ANF-n--8563-1216-u--doBind arg-3 arg-2 arg-1 arg-0 '() e-5))))))))) -(define CompilerC-45ANF-bindArgs (lambda (arg-0 arg-1 ext-0) (let ((sc0 arg-1)) (if (null? sc0) (vector 1 '()) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 2))) (let ((act-24 (CompilerC-45ANF-bindArgs arg-0 e-3 ext-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (cons (cons e-5 (vector 0 )) e-6))))))))) ((11) (let ((act-24 (CompilerC-45ANF-bindArgs arg-0 e-3 ext-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (cons (cons (vector 1 ) (vector 0 )) e-5))))))))(else (let ((act-24 (CompilerC-45ANF-nextVar arg-0 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CompilerC-45ANF-bindArgs arg-0 e-3 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (cons (cons (vector 0 e-5) (vector 1 e-2)) e-6))))))))))))))))))))) -(define CompilerC-45ANF-anfConstAlt (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((sc0 arg-3)) (let ((e-1 (car sc0))) (let ((e-2 (cdr sc0))) (let ((act-24 (CompilerC-45ANF-anf arg-0 arg-1 arg-2 e-2 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (cons e-1 e-5)))))))))))) -(define CompilerC-45ANF-anfConAlt (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((sc0 arg-3)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((act-24 (CompilerC-45ANF-n--8637-1602-u--bindArgs arg-0 e-4 e-5 e-3 e-2 e-1 arg-2 arg-1 e-4 arg-2 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (let ((e-8 (car sc2))) (let ((e-7 (cdr sc2))) (let ((act-25 (CompilerC-45ANF-anf (PreludeC-45TypesC-45List-C-43C-43 e-4 arg-0) arg-1 e-7 e-5 ext-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-9 (vector-ref sc3 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc3 1))) (vector 1 (vector 0 e-1 e-2 e-3 e-8 e-9))))))))))))))))))))))) -(define CompilerC-45ANF-anfArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (CompilerC-45ANF-anf arg-0 arg-1 arg-3 eta-0 eta-1))) arg-4 '() ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (CompilerC-45ANF-letBind arg-1 arg-2 e-5 arg-5 ext-0)))))))) -(define CompilerC-45ANF-anf (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 (vector 0 e-3 (vector 0 (CompilerC-45ANF-lookup e-2 arg-2))))))) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (let ((e-9 (vector-ref sc0 4))) (CompilerC-45ANF-anfArgs arg-0 arg-1 e-6 arg-2 e-9 (lambda (eta-0) (vector 1 e-6 e-7 e-8 eta-0)) ext-0)))))) ((2) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 4))) (CompilerC-45ANF-anfArgs arg-0 arg-1 e-11 arg-2 e-14 (lambda (eta-0) (vector 2 e-11 e-12 e-13 eta-0)) ext-0)))))) ((3) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (CompilerC-45ANF-anfArgs arg-0 arg-1 e-16 arg-2 (cons e-18 (cons e-19 '())) (lambda (u--args) (let ((sc1 u--args)) (if (null? sc1) (vector 12 e-16 "Can't happen (AApp)") (let ((e-1 (car sc1))) (let ((e-2 (cdr sc1))) (let ((sc2 e-2)) (if (null? sc2) (vector 12 e-16 "Can't happen (AApp)") (let ((e-4 (car sc2))) (let ((e-5 (cdr sc2))) (let ((sc3 e-5)) (if (null? sc3) (vector 3 e-16 e-17 e-1 e-4) (vector 12 e-16 "Can't happen (AApp)")))))))))))) ext-0)))))) ((4) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (let ((e-24 (vector-ref sc0 4))) (let ((act-24 (CompilerC-45ANF-nextVar arg-1 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((u--vsC-39 (cons e-5 arg-2))) (let ((act-25 (CompilerC-45ANF-anf arg-0 arg-1 arg-2 e-23 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (CompilerC-45ANF-anf (cons e-22 arg-0) arg-1 u--vsC-39 e-24 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 4 e-21 e-5 e-6 e-7))))))))))))))))))))))) ((5) (let ((e-26 (vector-ref sc0 1))) (let ((e-27 (vector-ref sc0 2))) (let ((e-28 (vector-ref sc0 3))) (let ((e-29 (vector-ref sc0 4))) (let ((e-30 (vector-ref sc0 5))) (CompilerC-45ANF-anfArgs arg-0 arg-1 e-26 arg-2 e-30 (lambda (eta-0) (vector 5 e-26 e-27 e-28 e-29 eta-0)) ext-0))))))) ((6) (let ((e-32 (vector-ref sc0 1))) (let ((e-33 (vector-ref sc0 2))) (let ((e-34 (vector-ref sc0 3))) (let ((e-35 (vector-ref sc0 4))) (let ((e-36 (vector-ref sc0 5))) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (CompilerC-45ANF-anf arg-0 arg-1 arg-2 eta-0 eta-1))) (DataC-45List-toList (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (DataC-45Vect-u--foldr_Foldable_C-40VectC-32C-36nC-41 u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (DataC-45Vect-u--foldl_Foldable_C-40VectC-32C-36nC-41 u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (DataC-45Vect-u--null_Foldable_C-40VectC-32C-36nC-41 arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (DataC-45Vect-u--foldlM_Foldable_C-40VectC-32C-36nC-41 i_con-0 u--funcM u--init u--input))))))))) e-36) '() ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (CompilerC-45ANF-letBind arg-1 e-33 e-5 (lambda (u--args) (CompilerC-45ANF-case--anf-1458 arg-0 e-32 e-36 e-35 e-34 e-33 arg-2 arg-1 e-5 u--args (DataC-45Vect-toVect e-32 u--args))) ext-0)))))))))))) ((7) (let ((e-38 (vector-ref sc0 1))) (let ((e-39 (vector-ref sc0 2))) (let ((e-40 (vector-ref sc0 3))) (let ((e-41 (vector-ref sc0 4))) (CompilerC-45ANF-anfArgs arg-0 arg-1 e-38 arg-2 e-41 (lambda (eta-0) (vector 7 e-38 e-39 e-40 eta-0)) ext-0)))))) ((8) (let ((e-43 (vector-ref sc0 1))) (let ((e-44 (vector-ref sc0 2))) (let ((e-45 (vector-ref sc0 3))) (let ((e-46 (vector-ref sc0 4))) (let ((act-24 (CompilerC-45ANF-anf arg-0 arg-1 arg-2 e-44 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (CompilerC-45ANF-anfConAlt arg-0 arg-1 arg-2 eta-0 eta-1))) e-45 '() ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (let ((sc3 e-46)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 0 ))) (else (let ((e-2 (vector-ref sc3 1))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc4 eta-0)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc4 1))) (vector 1 (vector 1 e-7))))))) (lambda (eta-0) (CompilerC-45ANF-anf arg-0 arg-1 arg-2 e-2 eta-0)) ext-0))))))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (CompilerC-45ANF-mlet arg-1 e-43 e-5 (lambda (u--x) (vector 8 e-43 u--x e-6 e-7)) ext-0))))))))))))))))))))) ((9) (let ((e-48 (vector-ref sc0 1))) (let ((e-49 (vector-ref sc0 2))) (let ((e-50 (vector-ref sc0 3))) (let ((e-51 (vector-ref sc0 4))) (let ((act-24 (CompilerC-45ANF-anf arg-0 arg-1 arg-2 e-49 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (CompilerC-45ANF-anfConstAlt arg-0 arg-1 arg-2 eta-0 eta-1))) e-50 '() ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (let ((sc3 e-51)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 0 ))) (else (let ((e-2 (vector-ref sc3 1))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc4 eta-0)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc4 1))) (vector 1 (vector 1 e-7))))))) (lambda (eta-0) (CompilerC-45ANF-anf arg-0 arg-1 arg-2 e-2 eta-0)) ext-0))))))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (CompilerC-45ANF-mlet arg-1 e-48 e-5 (lambda (u--x) (vector 9 e-48 u--x e-6 e-7)) ext-0))))))))))))))))))))) ((10) (let ((e-53 (vector-ref sc0 1))) (let ((e-54 (vector-ref sc0 2))) (vector 1 (vector 10 e-53 e-54))))) ((11) (let ((e-56 (vector-ref sc0 1))) (vector 1 (vector 11 e-56)))) (else (let ((e-58 (vector-ref sc0 1))) (let ((e-59 (vector-ref sc0 2))) (vector 1 (vector 12 e-58 e-59))))))))) -(define CompilerC-45LambdaLift-case--caseC-32blockC-32inC-32lambdaLift-2995 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (CompilerC-45LambdaLift-lambdaLiftDef arg-1 arg-0 e-1 eta-0)))) (else (lambda (eta-0) (vector 1 '()))))))) -(define CompilerC-45LambdaLift-case--dropUnused-2558 (lambda (arg-0 arg-2 arg-3 arg-5 arg-6 arg-7 arg-8) (vector 0 arg-8 arg-5))) -(define CompilerC-45LambdaLift-n--8381-2297-u--usedConstAlt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (let ((e-2 (cdr sc0))) (CompilerC-45LambdaLift-usedVars arg-0 arg-6 arg-8 e-2))))) -(define CompilerC-45LambdaLift-n--8381-2262-u--usedConAlt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (CompilerC-45LambdaLift-contractUsedMany e-4 (CompilerC-45LambdaLift-usedVars (PreludeC-45TypesC-45List-C-43C-43 e-4 arg-0) arg-6 (CompilerC-45LambdaLift-weakenUsed e-4 arg-8) e-5))))))) -(define CompilerC-45LambdaLift-n--8377-1849-u--traverseArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-9 ext-0) (let ((sc0 arg-9)) (if (null? sc0) (vector 1 '()) (let ((e-3 (car sc0))) (let ((e-4 (cdr sc0))) (let ((act-24 ((CompilerC-45LambdaLift-liftExp arg-0 arg-7 arg-1 (vector 0 ) e-3) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CompilerC-45LambdaLift-n--8377-1849-u--traverseArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-4 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (cons e-5 e-6)))))))))))))))))) -(define CompilerC-45LambdaLift-n--8057-1157-u--mkName (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (vector 0 e-0 (CompilerC-45LambdaLift-n--8057-1157-u--mkName arg-0 e-1 arg-2))))) ((1) (let ((e-2 (vector-ref sc0 1))) (vector 2 e-2 arg-2))) ((4) (let ((e-4 (vector-ref sc0 2))) (CompilerC-45LambdaLift-n--8057-1157-u--mkName arg-0 e-4 arg-2))) ((7) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (vector 2 (PreludeC-45TypesC-45String-C-43C-43 "case block in " (PreludeC-45TypesC-45String-C-43C-43 e-5 (PreludeC-45TypesC-45String-C-43C-43 " (" (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Int e-6) ")")))) arg-2)))) ((8) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (vector 2 (PreludeC-45TypesC-45String-C-43C-43 "with block in " (PreludeC-45TypesC-45String-C-43C-43 e-7 (PreludeC-45TypesC-45String-C-43C-43 " (" (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Int e-8) ")")))) arg-2))))(else (vector 2 (CoreC-45Name-u--show_Show_Name arg-1) arg-2)))))) -(define CompilerC-45LambdaLift-n--8377-2078-u--liftConstAlt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 ext-0) (let ((sc0 arg-9)) (let ((e-1 (car sc0))) (let ((e-2 (cdr sc0))) (let ((act-24 ((CompilerC-45LambdaLift-liftExp arg-0 arg-7 arg-1 arg-2 e-2) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (cons e-1 e-5)))))))))))) -(define CompilerC-45LambdaLift-n--8377-2023-u--liftConAlt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 ext-0) (let ((sc0 arg-9)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((act-24 ((CompilerC-45LambdaLift-liftExp (PreludeC-45TypesC-45List-C-43C-43 e-4 arg-0) arg-7 arg-1 arg-2 e-5) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 (vector 0 e-1 e-2 e-3 e-4 e-6))))))))))))))) -(define CompilerC-45LambdaLift-n--8287-1363-u--finIdx (lambda (arg-1 arg-2 arg-3 arg-5 arg-6) (let ((sc0 arg-5)) (let ((e-2 (cdr sc0))) (let ((sc1 arg-6)) (cond ((equal? sc1 0) (vector 0 ))(else (let ((e-3 (- arg-6 1))) (vector 1 (CompilerC-45LambdaLift-n--8287-1363-u--finIdx arg-1 arg-2 arg-3 e-2 e-3)))))))))) -(define CompilerC-45LambdaLift-n--8393-2790-u--dropConstCase (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (let ((e-1 (car sc0))) (let ((e-2 (cdr sc0))) (cons e-1 (CompilerC-45LambdaLift-dropUnused arg-1 arg-7 arg-0 arg-6 e-2))))))) -(define CompilerC-45LambdaLift-n--8393-2728-u--dropConCase (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((u--scC-39 e-5)) (let ((u--droppedSc (CompilerC-45LambdaLift-dropUnused arg-1 arg-7 (PreludeC-45TypesC-45List-C-43C-43 e-4 arg-0) arg-6 u--scC-39))) (vector 0 e-1 e-2 e-3 e-4 u--droppedSc))))))))))) -(define CompilerC-45LambdaLift-n--8372-1495-u--allVars (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (PreludeC-45Types-u--map_Functor_List (lambda (lamc-0) (vector 0 lamc-0 arg-7)) (CompilerC-45LambdaLift-n--8372-1494-u--allPrfs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9)))) -(define CompilerC-45LambdaLift-n--8372-1494-u--allPrfs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-7)) (if (null? sc0) '() (let ((e-3 (cdr sc0))) (let ((sc1 arg-8)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (let ((sc2 e-6)) (cond ((equal? sc2 1) (cons 0 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45TT-u--weaken_Weaken_Var eta-0)) (CompilerC-45LambdaLift-n--8372-1494-u--allPrfs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3 e-7)))) (else (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45TT-u--weaken_Weaken_Var eta-0)) (CompilerC-45LambdaLift-n--8372-1494-u--allPrfs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3 e-7))))))))))))) -(define CompilerC-45LambdaLift-u--show_Show_LiftedDef (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45Name-u--show_Show_Name u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Name-u--showPrec_Show_Name u--d u--x)))) e-0) (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45Name-u--show_Show_Name u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Name-u--showPrec_Show_Name u--d u--x)))) (DataC-45List-reverse e-1)) (PreludeC-45TypesC-45String-C-43C-43 ": " (CompilerC-45LambdaLift-u--show_Show_C-40LiftedC-32C-36vsC-41 (PreludeC-45TypesC-45List-C-43C-43 e-1 e-0) e-2)))))))) ((1) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (PreludeC-45TypesC-45String-C-43C-43 "Constructor tag " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_Int u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_Int u--d u--x)))) e-3) (PreludeC-45TypesC-45String-C-43C-43 " arity " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Nat e-4) (PreludeC-45Types-maybe (lambda () "") (lambda () (lambda (u--n) (PreludeC-45TypesC-45String-C-43C-43 " (newtype by " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Nat u--n) ")")))) e-5))))))))) ((2) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (PreludeC-45TypesC-45String-C-43C-43 "Foreign call " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_String u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_String u--d u--x)))) e-6) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45CompileExpr-u--show_Show_CFType u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45CompileExpr-u--showPrec_Show_CFType u--d u--x)))) e-7) (PreludeC-45TypesC-45String-C-43C-43 " -> " (CoreC-45CompileExpr-u--show_Show_CFType e-8)))))))))) (else (let ((e-9 (vector-ref sc0 1))) (PreludeC-45TypesC-45String-C-43C-43 "Error: " (CompilerC-45LambdaLift-u--show_Show_C-40LiftedC-32C-36vsC-41 '() e-9)))))))) -(define CompilerC-45LambdaLift-u--show_Show_C-40LiftedConstAltC-32C-36vsC-41 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-1 (car sc0))) (let ((e-2 (cdr sc0))) (PreludeC-45TypesC-45String-C-43C-43 "%constalt(" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_Constant e-1) (PreludeC-45TypesC-45String-C-43C-43 ") => " (CompilerC-45LambdaLift-u--show_Show_C-40LiftedC-32C-36vsC-41 arg-0 e-2))))))))) -(define CompilerC-45LambdaLift-u--show_Show_C-40LiftedConAltC-32C-36vsC-41 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (PreludeC-45TypesC-45String-C-43C-43 "%conalt " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-1) (PreludeC-45TypesC-45String-C-43C-43 "(" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-showSep ", " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45Name-u--show_Show_Name eta-0)) e-4)) (PreludeC-45TypesC-45String-C-43C-43 ") => " (CompilerC-45LambdaLift-u--show_Show_C-40LiftedC-32C-36vsC-41 (PreludeC-45TypesC-45List-C-43C-43 e-4 arg-0) e-5)))))))))))) -(define CompilerC-45LambdaLift-u--show_Show_C-40LiftedC-32C-36vsC-41 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (PreludeC-45TypesC-45String-C-43C-43 "!" (CoreC-45Name-u--show_Show_Name (CoreC-45TT-nameAt arg-0 e-2))))) ((1) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (let ((e-9 (vector-ref sc0 4))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-8) (PreludeC-45TypesC-45String-C-43C-43 (CompilerC-45LambdaLift-showLazy e-7) (PreludeC-45TypesC-45String-C-43C-43 "(" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-showSep ", " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CompilerC-45LambdaLift-u--show_Show_C-40LiftedC-32C-36vsC-41 arg-0 eta-0)) e-9)) ")")))))))) ((2) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 4))) (PreludeC-45TypesC-45String-C-43C-43 "<" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-12) (PreludeC-45TypesC-45String-C-43C-43 " underapp " (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_Nat e-13) (PreludeC-45TypesC-45String-C-43C-43 ">(" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-showSep ", " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CompilerC-45LambdaLift-u--show_Show_C-40LiftedC-32C-36vsC-41 arg-0 eta-0)) e-14)) ")")))))))))) ((3) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (PreludeC-45TypesC-45String-C-43C-43 (CompilerC-45LambdaLift-u--show_Show_C-40LiftedC-32C-36vsC-41 arg-0 e-18) (PreludeC-45TypesC-45String-C-43C-43 (CompilerC-45LambdaLift-showLazy e-17) (PreludeC-45TypesC-45String-C-43C-43 " @ (" (PreludeC-45TypesC-45String-C-43C-43 (CompilerC-45LambdaLift-u--show_Show_C-40LiftedC-32C-36vsC-41 arg-0 e-19) ")")))))))) ((4) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (let ((e-24 (vector-ref sc0 4))) (PreludeC-45TypesC-45String-C-43C-43 "%let " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-22) (PreludeC-45TypesC-45String-C-43C-43 " = " (PreludeC-45TypesC-45String-C-43C-43 (CompilerC-45LambdaLift-u--show_Show_C-40LiftedC-32C-36vsC-41 arg-0 e-23) (PreludeC-45TypesC-45String-C-43C-43 " in " (CompilerC-45LambdaLift-u--show_Show_C-40LiftedC-32C-36vsC-41 (cons e-22 arg-0) e-24)))))))))) ((5) (let ((e-27 (vector-ref sc0 2))) (let ((e-30 (vector-ref sc0 5))) (PreludeC-45TypesC-45String-C-43C-43 "%con " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-27) (PreludeC-45TypesC-45String-C-43C-43 "(" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-showSep ", " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CompilerC-45LambdaLift-u--show_Show_C-40LiftedC-32C-36vsC-41 arg-0 eta-0)) e-30)) ")"))))))) ((6) (let ((e-34 (vector-ref sc0 3))) (let ((e-35 (vector-ref sc0 4))) (let ((e-36 (vector-ref sc0 5))) (PreludeC-45TypesC-45String-C-43C-43 "%op " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40PrimFnC-32C-36arityC-41 e-35) (PreludeC-45TypesC-45String-C-43C-43 (CompilerC-45LambdaLift-showLazy e-34) (PreludeC-45TypesC-45String-C-43C-43 "(" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-showSep ", " (DataC-45List-toList (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (DataC-45Vect-u--foldr_Foldable_C-40VectC-32C-36nC-41 u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (DataC-45Vect-u--foldl_Foldable_C-40VectC-32C-36nC-41 u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (DataC-45Vect-u--null_Foldable_C-40VectC-32C-36nC-41 arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (DataC-45Vect-u--foldlM_Foldable_C-40VectC-32C-36nC-41 i_con-0 u--funcM u--init u--input))))))))) (DataC-45Vect-u--map_Functor_C-40VectC-32C-36nC-41 (lambda (eta-0) (CompilerC-45LambdaLift-u--show_Show_C-40LiftedC-32C-36vsC-41 arg-0 eta-0)) e-36))) ")"))))))))) ((7) (let ((e-39 (vector-ref sc0 2))) (let ((e-40 (vector-ref sc0 3))) (let ((e-41 (vector-ref sc0 4))) (PreludeC-45TypesC-45String-C-43C-43 "%extprim " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-40) (PreludeC-45TypesC-45String-C-43C-43 (CompilerC-45LambdaLift-showLazy e-39) (PreludeC-45TypesC-45String-C-43C-43 "(" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-showSep ", " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CompilerC-45LambdaLift-u--show_Show_C-40LiftedC-32C-36vsC-41 arg-0 eta-0)) e-41)) ")"))))))))) ((8) (let ((e-44 (vector-ref sc0 2))) (let ((e-45 (vector-ref sc0 3))) (let ((e-46 (vector-ref sc0 4))) (PreludeC-45TypesC-45String-C-43C-43 "%case " (PreludeC-45TypesC-45String-C-43C-43 (CompilerC-45LambdaLift-u--show_Show_C-40LiftedC-32C-36vsC-41 arg-0 e-44) (PreludeC-45TypesC-45String-C-43C-43 " of { " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-showSep "| " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CompilerC-45LambdaLift-u--show_Show_C-40LiftedConAltC-32C-36vsC-41 arg-0 eta-0)) e-45)) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45Show-u--show_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (u--x) (CompilerC-45LambdaLift-u--show_Show_C-40LiftedC-32C-36vsC-41 arg-0 u--x)) (lambda (u--d) (lambda (u--x) (CompilerC-45LambdaLift-u--showPrec_Show_C-40LiftedC-32C-36vsC-41 arg-0 u--d u--x)))) e-46)))))))))) ((9) (let ((e-49 (vector-ref sc0 2))) (let ((e-50 (vector-ref sc0 3))) (let ((e-51 (vector-ref sc0 4))) (PreludeC-45TypesC-45String-C-43C-43 "%case " (PreludeC-45TypesC-45String-C-43C-43 (CompilerC-45LambdaLift-u--show_Show_C-40LiftedC-32C-36vsC-41 arg-0 e-49) (PreludeC-45TypesC-45String-C-43C-43 " of { " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-showSep "| " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CompilerC-45LambdaLift-u--show_Show_C-40LiftedConstAltC-32C-36vsC-41 arg-0 eta-0)) e-50)) (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45Show-u--show_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (u--x) (CompilerC-45LambdaLift-u--show_Show_C-40LiftedC-32C-36vsC-41 arg-0 u--x)) (lambda (u--d) (lambda (u--x) (CompilerC-45LambdaLift-u--showPrec_Show_C-40LiftedC-32C-36vsC-41 arg-0 u--d u--x)))) e-51)))))))))) ((10) (let ((e-54 (vector-ref sc0 2))) (CoreC-45TT-u--show_Show_Constant e-54))) ((11) "___") (else (let ((e-59 (vector-ref sc0 2))) (PreludeC-45TypesC-45String-C-43C-43 "%CRASH(" (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Show-u--show_Show_String e-59) ")")))))))) -(define CompilerC-45LambdaLift-u--showPrec_Show_C-40LiftedC-32C-36vsC-41 (lambda (arg-0 arg-1 arg-2) (CompilerC-45LambdaLift-u--show_Show_C-40LiftedC-32C-36vsC-41 arg-0 arg-2))) -(define CompilerC-45LambdaLift-weakenUsed (lambda (arg-1 arg-2) (DataC-45Vect-C-43C-43 (DataC-45Vect-replicate (PreludeC-45TypesC-45List-length arg-1) 1) arg-2))) -(define CompilerC-45LambdaLift-usedVars (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (CompilerC-45LambdaLift-markUsed arg-0 e-2 arg-2))) ((1) (let ((e-9 (vector-ref sc0 4))) (PreludeC-45Types-u--foldl_Foldable_List (lambda (eta-0) (lambda (eta-1) (CompilerC-45LambdaLift-usedVars arg-0 arg-1 eta-0 eta-1))) arg-2 e-9))) ((2) (let ((e-14 (vector-ref sc0 4))) (PreludeC-45Types-u--foldl_Foldable_List (lambda (eta-0) (lambda (eta-1) (CompilerC-45LambdaLift-usedVars arg-0 arg-1 eta-0 eta-1))) arg-2 e-14))) ((3) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (CompilerC-45LambdaLift-usedVars arg-0 arg-1 (CompilerC-45LambdaLift-usedVars arg-0 arg-1 arg-2 e-19) e-18)))) ((4) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (let ((e-24 (vector-ref sc0 4))) (let ((u--innerUsed (CompilerC-45LambdaLift-contractUsed (CompilerC-45LambdaLift-usedVars (PreludeC-45TypesC-45List-C-43C-43 (cons e-22 '()) arg-0) arg-1 (CompilerC-45LambdaLift-weakenUsed (cons e-22 '()) arg-2) e-24)))) (CompilerC-45LambdaLift-usedVars arg-0 arg-1 u--innerUsed e-23)))))) ((5) (let ((e-30 (vector-ref sc0 5))) (PreludeC-45Types-u--foldl_Foldable_List (lambda (eta-0) (lambda (eta-1) (CompilerC-45LambdaLift-usedVars arg-0 arg-1 eta-0 eta-1))) arg-2 e-30))) ((6) (let ((e-36 (vector-ref sc0 5))) (DataC-45Vect-u--foldl_Foldable_C-40VectC-32C-36nC-41 (lambda (eta-0) (lambda (eta-1) (CompilerC-45LambdaLift-usedVars arg-0 arg-1 eta-0 eta-1))) arg-2 e-36))) ((7) (let ((e-41 (vector-ref sc0 4))) (PreludeC-45Types-u--foldl_Foldable_List (lambda (eta-0) (lambda (eta-1) (CompilerC-45LambdaLift-usedVars arg-0 arg-1 eta-0 eta-1))) arg-2 e-41))) ((8) (let ((e-43 (vector-ref sc0 1))) (let ((e-44 (vector-ref sc0 2))) (let ((e-45 (vector-ref sc0 3))) (let ((e-46 (vector-ref sc0 4))) (let ((u--defUsed (PreludeC-45Types-maybe (lambda () arg-2) (lambda () (lambda (eta-0) (CompilerC-45LambdaLift-usedVars arg-0 arg-1 arg-2 eta-0))) e-46))) (let ((u--scDefUsed (CompilerC-45LambdaLift-usedVars arg-0 arg-1 u--defUsed e-44))) (PreludeC-45Types-u--foldl_Foldable_List (lambda (eta-0) (lambda (eta-1) (CompilerC-45LambdaLift-n--8381-2262-u--usedConAlt arg-0 e-46 e-45 e-44 e-43 arg-2 arg-1 (vector 0 ) eta-0 eta-1))) u--scDefUsed e-45)))))))) ((9) (let ((e-48 (vector-ref sc0 1))) (let ((e-49 (vector-ref sc0 2))) (let ((e-50 (vector-ref sc0 3))) (let ((e-51 (vector-ref sc0 4))) (let ((u--defUsed (PreludeC-45Types-maybe (lambda () arg-2) (lambda () (lambda (eta-0) (CompilerC-45LambdaLift-usedVars arg-0 arg-1 arg-2 eta-0))) e-51))) (let ((u--scDefUsed (CompilerC-45LambdaLift-usedVars arg-0 arg-1 u--defUsed e-49))) (PreludeC-45Types-u--foldl_Foldable_List (lambda (eta-0) (lambda (eta-1) (CompilerC-45LambdaLift-n--8381-2297-u--usedConstAlt arg-0 e-51 e-50 e-49 e-48 arg-2 arg-1 (vector 0 ) eta-0 eta-1))) u--scDefUsed e-50)))))))) ((10) arg-2) ((11) arg-2) (else arg-2))))) -(define CompilerC-45LambdaLift-unload (lambda (arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (if (null? sc0) (lambda (eta-0) (vector 1 arg-3)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (CompilerC-45LambdaLift-unload arg-1 (vector 0 ) (vector 3 arg-1 arg-2 arg-3 e-2) e-3))))))) -(define CompilerC-45LambdaLift-showLazy (lambda (ext-0) (PreludeC-45Types-maybe (lambda () "") (lambda () (lambda (eta-0) (PreludeC-45TypesC-45String-C-43C-43 " " (CoreC-45TT-u--show_Show_LazyReason eta-0)))) ext-0))) -(define CompilerC-45LambdaLift-markUsed (lambda (arg-1 arg-2 arg-4) (let ((u--newUsed (DataC-45Vect-replaceAt (CompilerC-45LambdaLift-n--8287-1363-u--finIdx arg-1 arg-4 arg-2 arg-1 arg-2) 0 arg-4))) u--newUsed))) -(define CompilerC-45LambdaLift-makeLam (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((2) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (CompilerC-45LambdaLift-makeLam arg-0 arg-1 arg-2 arg-3 arg-4 (cons e-2 arg-5) e-3))))(else (lambda (eta-0) (let ((act-24 ((CompilerC-45LambdaLift-liftExp (PreludeC-45TypesC-45List-C-43C-43 arg-5 arg-1) arg-0 arg-2 arg-3 arg-6) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((u--scUsedL (CompilerC-45LambdaLift-usedVars (PreludeC-45TypesC-45List-C-43C-43 arg-5 arg-1) arg-0 (CompilerC-45LambdaLift-initUsed (PreludeC-45TypesC-45List-C-43C-43 arg-5 arg-1)) e-5))) (let ((u--unusedContracted (CompilerC-45LambdaLift-contractUsedMany arg-5 u--scUsedL))) (let ((u--unused (CompilerC-45LambdaLift-getUnused u--unusedContracted))) (let ((u--sclC-39 (CompilerC-45LambdaLift-dropUnused arg-1 arg-0 arg-5 u--unused e-5))) (let ((act-25 (CompilerC-45LambdaLift-genName arg-0 eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (let ((act-26 (unbox arg-0))) (vector 1 act-26)))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (let ((act-27 (set-box! arg-0 (let ((sc3 e-7)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-2 (vector-ref sc3 3))) (vector 0 e-0 (cons (cons e-6 (vector 0 (CompilerC-45LambdaLift-dropped arg-1 u--unused) arg-5 u--sclC-39)) e-1) e-2)))))))) (vector 1 act-27)))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (vector 1 (vector 2 arg-4 e-6 (PreludeC-45TypesC-45List-length arg-5) (CompilerC-45LambdaLift-n--8372-1495-u--allVars arg-2 arg-3 arg-5 arg-1 arg-6 arg-4 arg-0 arg-4 arg-1 u--unused)))))))))))))))))))))))))))))))) -(define CompilerC-45LambdaLift-liftExp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 e-2 e-3)))))) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 1 e-6 arg-3 e-7 '())))))) ((2) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (CompilerC-45LambdaLift-makeLam arg-1 arg-0 arg-2 arg-3 e-9 (cons e-10 '()) e-11))))) ((3) (let ((e-13 (vector-ref sc0 1))) (let ((e-14 (vector-ref sc0 2))) (let ((e-16 (vector-ref sc0 4))) (let ((e-17 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((CompilerC-45LambdaLift-liftExp arg-0 arg-1 arg-2 (vector 0 ) e-16) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((CompilerC-45LambdaLift-liftExp (cons e-14 arg-0) arg-1 arg-2 (vector 0 ) e-17) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 4 e-13 e-14 e-5 e-6)))))))))))))))))) ((4) (let ((e-19 (vector-ref sc0 1))) (let ((e-20 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 3))) (lambda (clam-0) (let ((sc1 e-20)) (case (vector-ref sc1 0) ((1) (let ((e-65 (vector-ref sc1 2))) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45LambdaLift-liftExp arg-0 arg-1 arg-2 (vector 0 ) eta-0)) e-21 '() clam-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (vector 1 e-19 arg-3 e-65 e-5)))))))))(else (let ((act-24 ((CompilerC-45LambdaLift-liftExp arg-0 arg-1 arg-2 (vector 0 ) e-20) clam-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (eta-0) (CompilerC-45LambdaLift-liftExp arg-0 arg-1 arg-2 (vector 0 ) eta-0)) e-21 '() clam-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((CompilerC-45LambdaLift-unload e-19 arg-3 e-5 e-6) clam-0))))))))))))))))))) ((5) (let ((e-23 (vector-ref sc0 1))) (let ((e-24 (vector-ref sc0 2))) (let ((e-25 (vector-ref sc0 3))) (let ((e-26 (vector-ref sc0 4))) (let ((e-27 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-1) (CompilerC-45LambdaLift-liftExp arg-0 arg-1 arg-2 (vector 0 ) eta-1)) e-27 '() eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 5 e-23 e-24 e-25 e-26 e-5)))))))))))))) ((6) (let ((e-29 (vector-ref sc0 1))) (let ((e-30 (vector-ref sc0 2))) (let ((e-31 (vector-ref sc0 3))) (let ((e-32 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (CompilerC-45LambdaLift-n--8377-1849-u--traverseArgs arg-0 arg-2 arg-3 e-29 e-32 e-31 e-30 arg-1 e-32 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 6 e-29 e-30 arg-3 e-31 e-5))))))))))))) ((7) (let ((e-34 (vector-ref sc0 1))) (let ((e-35 (vector-ref sc0 2))) (let ((e-36 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-1) (CompilerC-45LambdaLift-liftExp arg-0 arg-1 arg-2 (vector 0 ) eta-1)) e-36 '() eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 7 e-34 arg-3 e-35 e-5)))))))))))) ((8) (let ((e-38 (vector-ref sc0 1))) (let ((e-40 (vector-ref sc0 3))) (let ((sc1 arg-2)) (cond ((equal? sc1 0) (CompilerC-45LambdaLift-liftExp arg-0 arg-1 arg-2 (vector 0 ) e-40)) (else (CompilerC-45LambdaLift-liftExp arg-0 arg-1 arg-2 (vector 0 ) (vector 4 e-38 e-40 (cons (vector 13 e-38) '()))))))))) ((9) (let ((e-42 (vector-ref sc0 1))) (let ((e-43 (vector-ref sc0 2))) (let ((e-44 (vector-ref sc0 3))) (let ((sc1 arg-2)) (cond ((equal? sc1 0) (CompilerC-45LambdaLift-liftExp arg-0 arg-1 arg-2 (vector 1 e-43) e-44)) (else (CompilerC-45LambdaLift-liftExp arg-0 arg-1 arg-2 (vector 0 ) (vector 2 e-42 (vector 2 "act" 0) (CoreC-45CompileExpr-u--weaken_Weaken_CExp e-44)))))))))) ((10) (let ((e-46 (vector-ref sc0 1))) (let ((e-47 (vector-ref sc0 2))) (let ((e-48 (vector-ref sc0 3))) (let ((e-49 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((CompilerC-45LambdaLift-liftExp arg-0 arg-1 arg-2 (vector 0 ) e-47) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (eta-1) (lambda (eta-2) (CompilerC-45LambdaLift-n--8377-2023-u--liftConAlt arg-0 arg-2 arg-3 e-49 e-48 e-47 e-46 arg-1 arg-3 eta-1 eta-2))) e-48 '() eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (let ((sc3 e-49)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 0 ))) (else (let ((e-2 (vector-ref sc3 1))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (let ((sc4 eta-1)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc4 1))) (vector 1 (vector 1 e-7))))))) (CompilerC-45LambdaLift-liftExp arg-0 arg-1 arg-2 (vector 0 ) e-2) eta-0))))))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 8 e-46 e-5 e-6 e-7))))))))))))))))))))))) ((11) (let ((e-51 (vector-ref sc0 1))) (let ((e-52 (vector-ref sc0 2))) (let ((e-53 (vector-ref sc0 3))) (let ((e-54 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((CompilerC-45LambdaLift-liftExp arg-0 arg-1 arg-2 (vector 0 ) e-52) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (eta-1) (lambda (eta-2) (CompilerC-45LambdaLift-n--8377-2078-u--liftConstAlt arg-0 arg-2 arg-3 e-54 e-53 e-52 e-51 arg-1 (vector 0 ) eta-1 eta-2))) e-53 '() eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (let ((sc3 e-54)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 0 ))) (else (let ((e-2 (vector-ref sc3 1))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (let ((sc4 eta-1)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc4 1))) (vector 1 (vector 1 e-7))))))) (CompilerC-45LambdaLift-liftExp arg-0 arg-1 arg-2 (vector 0 ) e-2) eta-0))))))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 9 e-51 e-5 e-6 e-7))))))))))))))))))))))) ((12) (let ((e-56 (vector-ref sc0 1))) (let ((e-57 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 10 e-56 e-57)))))) ((13) (let ((e-59 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 11 e-59))))) (else (let ((e-61 (vector-ref sc0 1))) (let ((e-62 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 12 e-61 e-62)))))))))) -(define CompilerC-45LambdaLift-liftBody (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (CoreC-45Core-newRef (vector "Compiler.LambdaLift.Lifts" ) (vector 0 arg-2 '() 0) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((CompilerC-45LambdaLift-liftExp arg-0 e-5 arg-1 (vector 0 ) arg-3) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (let ((act-26 (unbox e-5))) (vector 1 act-26)))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (vector 1 (cons e-6 (let ((sc3 e-7)) (let ((e-1 (vector-ref sc3 2))) e-1))))))))))))))))))))) -(define CompilerC-45LambdaLift-lambdaLiftDef (lambda (arg-0 arg-1 arg-2 ext-0) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((act-24 (CompilerC-45LambdaLift-liftBody e-0 arg-0 arg-1 e-1 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (car sc2))) (let ((e-3 (cdr sc2))) (vector 1 (cons (cons arg-1 (vector 0 e-0 '() e-2)) e-3))))))))))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (vector 1 (cons (cons arg-1 (vector 1 e-2 e-3 e-4)) '())))))) ((2) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (vector 1 (cons (cons arg-1 (vector 2 e-5 e-6 e-7)) '())))))) (else (let ((e-8 (vector-ref sc0 1))) (let ((act-24 (CompilerC-45LambdaLift-liftBody '() arg-0 arg-1 e-8 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (car sc2))) (let ((e-3 (cdr sc2))) (vector 1 (cons (cons arg-1 (vector 3 e-2)) e-3)))))))))))))))) -(define CompilerC-45LambdaLift-lambdaLift (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact arg-2 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((_-0 (vector 1 e-1))) ((CompilerC-45LambdaLift-case--caseC-32blockC-32inC-32lambdaLift-2995 arg-2 arg-1 arg-0 e-5 e-1 _-0 (let ((sc3 e-1)) (let ((e-18 (vector-ref sc3 19))) e-18))) ext-0)))) (else (vector 1 '())))))))))))))))) -(define CompilerC-45LambdaLift-initUsed (lambda (arg-0) (DataC-45Vect-replicate (PreludeC-45TypesC-45List-length arg-0) 1))) -(define CompilerC-45LambdaLift-getUnused (lambda (arg-1) (DataC-45Vect-u--map_Functor_C-40VectC-32C-36nC-41 (lambda (eta-0) (let ((sc0 eta-0)) (cond ((equal? sc0 0) 1) (else 0)))) arg-1))) -(define CompilerC-45LambdaLift-genName (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((u--i (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 3))) e-2)))) (let ((act-25 (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (vector 0 e-0 e-1 (bs+ u--i 1 63)))))))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (CompilerC-45LambdaLift-n--8057-1157-u--mkName arg-0 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) u--i)))))))))))))) -(define CompilerC-45LambdaLift-dropped (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (if (null? sc0) '() (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 arg-1)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (let ((sc2 e-6)) (cond ((equal? sc2 1) (cons e-2 (CompilerC-45LambdaLift-dropped e-3 e-7))) (else (CompilerC-45LambdaLift-dropped e-3 e-7))))))))))))) -(define CompilerC-45LambdaLift-dropUnused (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((10) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (vector 10 e-1 e-2)))) ((11) (let ((e-4 (vector-ref sc0 1))) (vector 11 e-4))) ((12) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (vector 12 e-6 e-7)))) ((0) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (CompilerC-45LambdaLift-case--dropUnused-2558 arg-0 e-10 arg-2 e-11 arg-3 arg-1 (CompilerC-45LambdaLift-dropIdx arg-0 e-10 arg-2 arg-3))))) ((5) (let ((e-14 (vector-ref sc0 1))) (let ((e-15 (vector-ref sc0 2))) (let ((e-16 (vector-ref sc0 3))) (let ((e-17 (vector-ref sc0 4))) (let ((e-18 (vector-ref sc0 5))) (let ((u--argsC-39 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CompilerC-45LambdaLift-dropUnused arg-0 arg-1 arg-2 arg-3 eta-0)) e-18))) (vector 5 e-14 e-15 e-16 e-17 u--argsC-39)))))))) ((4) (let ((e-20 (vector-ref sc0 1))) (let ((e-21 (vector-ref sc0 2))) (let ((e-22 (vector-ref sc0 3))) (let ((e-23 (vector-ref sc0 4))) (let ((u--valC-39 (CompilerC-45LambdaLift-dropUnused arg-0 arg-1 arg-2 arg-3 e-22))) (let ((u--scC-39 (CompilerC-45LambdaLift-dropUnused arg-0 arg-1 (cons e-21 arg-2) arg-3 e-23))) (vector 4 e-20 e-21 u--valC-39 u--scC-39)))))))) ((3) (let ((e-25 (vector-ref sc0 1))) (let ((e-26 (vector-ref sc0 2))) (let ((e-27 (vector-ref sc0 3))) (let ((e-28 (vector-ref sc0 4))) (let ((u--cC-39 (CompilerC-45LambdaLift-dropUnused arg-0 arg-1 arg-2 arg-3 e-27))) (let ((u--argC-39 (CompilerC-45LambdaLift-dropUnused arg-0 arg-1 arg-2 arg-3 e-28))) (vector 3 e-25 e-26 u--cC-39 u--argC-39)))))))) ((6) (let ((e-30 (vector-ref sc0 1))) (let ((e-31 (vector-ref sc0 2))) (let ((e-32 (vector-ref sc0 3))) (let ((e-33 (vector-ref sc0 4))) (let ((e-34 (vector-ref sc0 5))) (let ((u--argsC-39 (DataC-45Vect-u--map_Functor_C-40VectC-32C-36nC-41 (lambda (eta-0) (CompilerC-45LambdaLift-dropUnused arg-0 arg-1 arg-2 arg-3 eta-0)) e-34))) (vector 6 e-30 e-31 e-32 e-33 u--argsC-39)))))))) ((7) (let ((e-36 (vector-ref sc0 1))) (let ((e-37 (vector-ref sc0 2))) (let ((e-38 (vector-ref sc0 3))) (let ((e-39 (vector-ref sc0 4))) (let ((u--argsC-39 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CompilerC-45LambdaLift-dropUnused arg-0 arg-1 arg-2 arg-3 eta-0)) e-39))) (vector 7 e-36 e-37 e-38 u--argsC-39))))))) ((1) (let ((e-41 (vector-ref sc0 1))) (let ((e-42 (vector-ref sc0 2))) (let ((e-43 (vector-ref sc0 3))) (let ((e-44 (vector-ref sc0 4))) (let ((u--argsC-39 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CompilerC-45LambdaLift-dropUnused arg-0 arg-1 arg-2 arg-3 eta-0)) e-44))) (vector 1 e-41 e-42 e-43 u--argsC-39))))))) ((2) (let ((e-46 (vector-ref sc0 1))) (let ((e-47 (vector-ref sc0 2))) (let ((e-48 (vector-ref sc0 3))) (let ((e-49 (vector-ref sc0 4))) (let ((u--argsC-39 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CompilerC-45LambdaLift-dropUnused arg-0 arg-1 arg-2 arg-3 eta-0)) e-49))) (vector 2 e-46 e-47 e-48 u--argsC-39))))))) ((8) (let ((e-51 (vector-ref sc0 1))) (let ((e-52 (vector-ref sc0 2))) (let ((e-53 (vector-ref sc0 3))) (let ((e-54 (vector-ref sc0 4))) (let ((u--altsC-39 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CompilerC-45LambdaLift-n--8393-2728-u--dropConCase arg-2 arg-0 e-54 e-53 e-52 e-51 arg-3 arg-1 eta-0)) e-53))) (vector 8 e-51 (CompilerC-45LambdaLift-dropUnused arg-0 arg-1 arg-2 arg-3 e-52) u--altsC-39 (PreludeC-45Types-u--map_Functor_Maybe (lambda (eta-0) (CompilerC-45LambdaLift-dropUnused arg-0 arg-1 arg-2 arg-3 eta-0)) e-54)))))))) (else (let ((e-56 (vector-ref sc0 1))) (let ((e-57 (vector-ref sc0 2))) (let ((e-58 (vector-ref sc0 3))) (let ((e-59 (vector-ref sc0 4))) (let ((u--altsC-39 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CompilerC-45LambdaLift-n--8393-2790-u--dropConstCase arg-2 arg-0 e-59 e-58 e-57 e-56 arg-3 arg-1 eta-0)) e-58))) (vector 9 e-56 (CompilerC-45LambdaLift-dropUnused arg-0 arg-1 arg-2 arg-3 e-57) u--altsC-39 (PreludeC-45Types-u--map_Functor_Maybe (lambda (eta-0) (CompilerC-45LambdaLift-dropUnused arg-0 arg-1 arg-2 arg-3 eta-0)) e-59)))))))))))) -(define CompilerC-45LambdaLift-dropIdx (lambda (arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-1)) (if (null? sc0) (let ((sc1 arg-2)) (cond ((equal? sc1 0) (let ((sc2 arg-3)) 0))(else (let ((e-0 (- arg-2 1))) (let ((sc1 arg-3)) (let ((e-6 (cdr sc1))) (CoreC-45TTC-45Var-later (CompilerC-45LambdaLift-dropIdx arg-1 e-0 e-6 arg-4)))))))) (let ((e-9 (cdr sc0))) (let ((sc1 arg-2)) (cond ((equal? sc1 0) (let ((sc2 arg-3)) (if (null? sc2) (let ((sc3 arg-4)) (if (null? sc3) (let ((sc4 arg-2)) (cond ((equal? sc4 0) (let ((sc5 arg-3)) 0))(else (let ((e-0 (- arg-2 1))) (let ((sc4 arg-3)) (let ((e-6 (cdr sc4))) (CoreC-45TTC-45Var-later (CompilerC-45LambdaLift-dropIdx arg-1 e-0 e-6 arg-4)))))))) (let ((e-14 (car sc3))) (let ((sc4 e-14)) (cond ((equal? sc4 1) 0) ((equal? sc4 0) (Builtin-idris_crash "INTERNAL ERROR: Referenced variable marked as unused"))(else (let ((sc4 arg-2)) (cond ((equal? sc4 0) (let ((sc5 arg-3)) 0))(else (let ((e-0 (- arg-2 1))) (let ((sc4 arg-3)) (let ((e-6 (cdr sc4))) (CoreC-45TTC-45Var-later (CompilerC-45LambdaLift-dropIdx arg-1 e-0 e-6 arg-4)))))))))))))) (let ((sc3 arg-2)) (cond ((equal? sc3 0) (let ((sc4 arg-3)) 0))(else (let ((e-0 (- arg-2 1))) (let ((sc3 arg-3)) (let ((e-6 (cdr sc3))) (CoreC-45TTC-45Var-later (CompilerC-45LambdaLift-dropIdx arg-1 e-0 e-6 arg-4)))))))))))(else (let ((e-10 (- arg-2 1))) (let ((sc1 arg-3)) (if (null? sc1) (let ((sc2 arg-4)) (if (null? sc2) (let ((sc3 arg-2)) (cond ((equal? sc3 0) (let ((sc4 arg-3)) 0))(else (let ((e-0 (- arg-2 1))) (let ((sc3 arg-3)) (let ((e-6 (cdr sc3))) (CoreC-45TTC-45Var-later (CompilerC-45LambdaLift-dropIdx arg-1 e-0 e-6 arg-4)))))))) (let ((e-19 (car sc2))) (let ((e-20 (cdr sc2))) (let ((sc3 e-19)) (cond ((equal? sc3 1) (CoreC-45TTC-45Var-later (CompilerC-45LambdaLift-dropIdx e-9 e-10 '() e-20))) ((equal? sc3 0) (CompilerC-45LambdaLift-dropIdx e-9 e-10 '() e-20))(else (let ((sc3 arg-2)) (cond ((equal? sc3 0) (let ((sc4 arg-3)) 0))(else (let ((e-0 (- arg-2 1))) (let ((sc3 arg-3)) (let ((e-6 (cdr sc3))) (CoreC-45TTC-45Var-later (CompilerC-45LambdaLift-dropIdx arg-1 e-0 e-6 arg-4))))))))))))))) (let ((sc2 arg-2)) (cond ((equal? sc2 0) (let ((sc3 arg-3)) 0))(else (let ((e-0 (- arg-2 1))) (let ((sc2 arg-3)) (let ((e-6 (cdr sc2))) (CoreC-45TTC-45Var-later (CompilerC-45LambdaLift-dropIdx arg-1 e-0 e-6 arg-4))))))))))))))))))) -(define CompilerC-45LambdaLift-contractUsedMany (lambda (arg-1 arg-2) (let ((sc0 arg-1)) (if (null? sc0) arg-2 (let ((e-3 (cdr sc0))) (CompilerC-45LambdaLift-contractUsedMany e-3 (CompilerC-45LambdaLift-contractUsed arg-2))))))) -(define CompilerC-45LambdaLift-contractUsed (lambda (arg-2) (DataC-45Vect-tail arg-2))) -(define CompilerC-45Inline-case--caseC-32blockC-32inC-32mergeLamDef-5826 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((act-24 ((CompilerC-45Inline-mergeLam arg-1 e-1) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (CoreC-45Context-setCompiled arg-1 arg-0 e-5 ext-0)))))))) (else (vector 1 (vector 0 ))))))) -(define CompilerC-45Inline-case--caseC-32blockC-32inC-32fixArityDef-5753 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((act-24 (CompilerC-45Inline-fixArity arg-1 e-1 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (CoreC-45Context-setCompiled arg-1 arg-0 e-5 ext-0)))))))) (else (vector 1 (vector 0 ))))))) -(define CompilerC-45Inline-case--caseC-32blockC-32inC-32updateCallGraph-5643 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((u--refs (CompilerC-45Inline-getRefs e-1))) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))) (lambda (eta-1) (CoreC-45Context-addDef arg-1 arg-0 (let ((sc1 arg-3)) (let ((e-0 (vector-ref sc1 1))) (let ((e-21 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (vector 0 e-0 e-21 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 (vector 1 u--refs) e-14 e-15 e-16 e-17 e-18 e-19 e-20)))))))))))))))))))))) eta-1)) eta-0))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define CompilerC-45Inline-case--caseC-32blockC-32inC-32inlineDef-5570 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((act-24 (CompilerC-45Inline-inline arg-1 arg-0 e-1 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (CoreC-45Context-setCompiled arg-1 arg-0 e-5 ext-0)))))))) (else (vector 1 (vector 0 ))))))) -(define CompilerC-45Inline-case--mergeLam-5332 (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((sc0 arg-3)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (vector 1 (vector 0 e-2 e-3))))))) -(define CompilerC-45Inline-case--mergeLambdas-5189 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-3)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (let ((u--expNs (CoreC-45CompileExpr-substs e-2 arg-1 e-6 e-7))) (let ((u--newArgs (DataC-45List-reverse (CompilerC-45Inline-getNewArgs e-2 e-6)))) (let ((u--expLocs (CoreC-45CompileExpr-mkLocals (CoreC-45TTC-45SizeOf-mkSizeOf arg-1) (CompilerC-45Inline-mkBounds u--newArgs) u--expNs))) (cons (PreludeC-45TypesC-45List-C-43C-43 arg-1 (PreludeC-45TypesC-45List-C-43C-43 u--newArgs '())) u--expLocs)))))))))))) -(define CompilerC-45Inline-case--caseC-32blockC-32inC-32fixArityTm-4637 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((u--arity (CompilerC-45Inline-getArity e-1))) (lambda (eta-0) (vector 1 (CompilerC-45CompileExpr-expandToArity arg-0 u--arity (vector 4 arg-2 (vector 1 arg-2 arg-1) '()) arg-3)))))) (else (lambda (eta-0) (vector 1 (CompilerC-45Inline-unload arg-3 (vector 1 arg-2 arg-1))))))))) -(define CompilerC-45Inline-case--pickConstAlt-4513 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (cond ((equal? sc0 0) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-5))))))) (CompilerC-45Inline-eval arg-4 arg-3 arg-0 arg-12 arg-11 arg-10 arg-9 arg-5) eta-0))) (else (CompilerC-45Inline-pickConstAlt arg-4 arg-3 arg-0 arg-12 arg-11 arg-10 arg-9 (vector 12 arg-2 arg-1) arg-7 arg-8)))))) -(define CompilerC-45Inline-case--caseC-32blockC-32inC-32pickAlt-4307 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((u--envC-39 (CompilerC-45Inline-extend arg-16 arg-9 arg-1 e-2))) (lambda (eta-0) (let ((act-24 ((CompilerC-45Inline-eval (PreludeC-45TypesC-45List-C-43C-43 arg-1 arg-3) arg-2 arg-19 arg-18 arg-17 u--envC-39 arg-15 arg-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-5))))))))))))))) -(define CompilerC-45Inline-case--pickAlt-4260 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (cond ((equal? sc0 0) (CompilerC-45Inline-case--caseC-32blockC-32inC-32pickAlt-4307 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 (LibrariesC-45DataC-45LengthMatch-checkLengthMatch arg-9 arg-1))) (else (CompilerC-45Inline-pickAlt arg-3 arg-2 arg-19 arg-18 arg-17 arg-16 arg-15 arg-14 arg-7 arg-8)))))) -(define CompilerC-45Inline-case--eval-3387 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 ext-0) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (let ((act-24 ((CompilerC-45Inline-eval arg-2 arg-1 arg-10 arg-9 arg-8 arg-7 '() arg-4) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((CompilerC-45Inline-eval (cons arg-0 arg-2) arg-1 arg-10 arg-9 arg-8 (cons e-5 arg-7) arg-6 arg-3) ext-0))))))) (else (let ((act-24 (CompilerC-45Inline-genName arg-9 "letv" ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((CompilerC-45Inline-eval (cons arg-0 arg-2) arg-1 arg-10 arg-9 arg-8 (cons (vector 1 arg-5 e-5) arg-7) arg-6 arg-3) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((CompilerC-45Inline-eval arg-2 arg-1 arg-10 arg-9 arg-8 arg-7 '() arg-4) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 3 arg-5 arg-0 0 e-7 (CompilerC-45Inline-refToLocal e-5 arg-0 e-6))))))))))))))))))))))) -(define CompilerC-45Inline-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32eval-3120 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 ext-0) (let ((sc0 arg-16)) (cond ((equal? sc0 0) (let ((act-24 ((CompilerC-45Inline-tryApply arg-0 arg-1 arg-8 arg-7 (cons arg-2 arg-6) arg-4 arg-5 arg-14) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (DataC-45Maybe-fromMaybe (lambda () (CompilerC-45Inline-unloadApp arg-15 arg-4 (vector 1 arg-3 arg-2))) e-5)))))))) (else (vector 1 (CompilerC-45Inline-unloadApp arg-15 arg-4 (vector 1 arg-3 arg-2)))))))) -(define CompilerC-45Inline-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32eval-3077 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((u--arity (CompilerC-45Inline-getArity e-1))) (lambda (eta-0) (CompilerC-45Inline-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32eval-3120 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-1 u--arity (PreludeC-45Basics-C-38C-38 (PreludeC-45Types-elem (cons (lambda (arg-15) (lambda (arg-16) (CoreC-45Context-u--C-61C-61_Eq_DefFlag arg-15 arg-16))) (lambda (arg-15) (lambda (arg-16) (CoreC-45Context-u--C-47C-61_Eq_DefFlag arg-15 arg-16)))) (vector 0 ) (let ((sc1 arg-12)) (let ((e-11 (vector-ref sc1 12))) e-11))) (lambda () (let ((sc1 (PreludeC-45Types-elem (cons (lambda (arg-15) (lambda (arg-16) (CoreC-45Name-u--C-61C-61_Eq_Name arg-15 arg-16))) (lambda (arg-15) (lambda (arg-16) (CoreC-45Name-u--C-47C-61_Eq_Name arg-15 arg-16)))) arg-2 arg-6))) (cond ((equal? sc1 0) 1) (else 0))))) eta-0))))) (else (lambda (eta-0) (vector 1 (CompilerC-45Inline-unload arg-4 (vector 1 arg-3 arg-2))))))))) -(define CompilerC-45Inline-case--eval-2927 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (cond ((equal? sc1 0) (let ((sc2 e-3)) (if (null? sc2) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-8))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact arg-2 (let ((sc4 e-5)) (let ((e-0 (vector-ref sc4 1))) e-0))) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc4 1))) (let ((sc5 e-6)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((_-0 (vector 1 e-1))) ((CompilerC-45Inline-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32eval-3077 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-3 e-2 e-5 e-1 _-0 (let ((sc6 e-1)) (let ((e-18 (vector-ref sc6 19))) e-18))) eta-0)))) (else (vector 1 (CompilerC-45Inline-unload arg-4 (vector 1 arg-3 arg-2))))))))))))))))) (let ((e-5 (car sc2))) (let ((e-6 (cdr sc2))) (lambda (clam-0) (let ((sc3 e-6)) (if (null? sc3) (let ((act-24 (let ((act-24 (unbox arg-8))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact arg-2 (let ((sc5 e-7)) (let ((e-0 (vector-ref sc5 1))) e-0))) clam-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc5 1))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((_-0 (vector 1 e-1))) ((CompilerC-45Inline-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32eval-3077 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-3 e-2 e-7 e-1 _-0 (let ((sc7 e-1)) (let ((e-18 (vector-ref sc7 19))) e-18))) clam-0)))) (else (vector 1 (CompilerC-45Inline-unload arg-4 (vector 1 arg-3 arg-2)))))))))))))))) (let ((e-8 (car sc3))) (let ((e-9 (cdr sc3))) (let ((sc4 e-9)) (if (null? sc4) (let ((act-24 (let ((act-24 (unbox arg-8))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact arg-2 (let ((sc6 e-7)) (let ((e-0 (vector-ref sc6 1))) e-0))) clam-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc6 1))) (let ((sc7 e-10)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((_-0 (vector 1 e-1))) ((CompilerC-45Inline-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32eval-3077 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-3 e-2 e-7 e-1 _-0 (let ((sc8 e-1)) (let ((e-18 (vector-ref sc8 19))) e-18))) clam-0)))) (else (vector 1 (CompilerC-45Inline-unload arg-4 (vector 1 arg-3 arg-2)))))))))))))))) (let ((e-11 (car sc4))) (let ((e-12 (cdr sc4))) (let ((act-24 (CompilerC-45Inline-genName arg-7 "act" clam-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-25 ((CompilerC-45Inline-eval '() arg-1 arg-8 arg-7 arg-6 '() '() (vector 4 arg-3 e-8 (cons (vector 1 arg-3 e-7) (cons e-11 '())))) clam-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc6 1))) (vector 1 (CompilerC-45Inline-unload e-12 (vector 3 arg-3 e-7 1 (vector 4 arg-3 e-5 (cons e-11 '())) (CompilerC-45Inline-refToLocal e-7 e-7 e-10))))))))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-8))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact arg-2 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((_-0 (vector 1 e-1))) ((CompilerC-45Inline-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32eval-3077 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-3 e-2 e-5 e-1 _-0 (let ((sc4 e-1)) (let ((e-18 (vector-ref sc4 19))) e-18))) eta-0)))) (else (vector 1 (CompilerC-45Inline-unload arg-4 (vector 1 arg-3 arg-2))))))))))))))))))))))))) -(define CompilerC-45Inline-case--tryApply-2804 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 ext-0) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-5 (car sc1))) (let ((e-6 (cdr sc1))) (let ((act-24 ((CompilerC-45Inline-eval (PreludeC-45TypesC-45List-C-43C-43 arg-0 arg-3) arg-2 arg-8 arg-7 arg-6 e-5 e-6 (CoreC-45CompileExpr-embed arg-1)) ext-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (vector 1 (vector 1 e-7)))))))))))) (else (vector 1 (vector 0 ))))))) -(define CompilerC-45Inline-case--usedCon-2570 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-9) (CompilerC-45Inline-used (PreludeC-45TypesC-45List-C-43C-43 arg-6 arg-1) arg-9 arg-7))) -(define CompilerC-45Inline-case--used-2242 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (blodwen-toSignedInt 1000 63)) (else arg-8))))) -(define CompilerC-45Inline-case--used-2149 (lambda (arg-1 arg-3 arg-4 arg-6 arg-8) (let ((sc0 arg-8)) (cond ((equal? sc0 0) 1) (else 0))))) -(define CompilerC-45Inline-case--largest-2096 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (CompilerC-45Inline-largest arg-1 arg-2 arg-3)) (else (CompilerC-45Inline-largest arg-1 arg-4 arg-3)))))) -(define CompilerC-45Inline-n--9618-3709-u--updateLoc (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-12 arg-13 arg-15 arg-16) (let ((sc0 arg-13)) (if (null? sc0) arg-15 (let ((sc1 arg-12)) (cond ((equal? sc1 0) (let ((sc2 arg-13)) (let ((sc3 arg-15)) (let ((e-8 (cdr sc3))) (cons arg-16 e-8)))))(else (let ((e-0 (- arg-12 1))) (let ((sc1 arg-13)) (let ((e-11 (cdr sc1))) (let ((sc2 arg-15)) (let ((e-15 (car sc2))) (let ((e-16 (cdr sc2))) (cons e-15 (CompilerC-45Inline-n--9618-3709-u--updateLoc arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-0 e-11 e-16 arg-16))))))))))))))) -(define CompilerC-45Inline-n--9618-3710-u--update (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (CompilerC-45Inline-n--9618-3709-u--updateLoc arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-2 arg-11 arg-13 arg-14)))(else arg-13))))) -(define CompilerC-45Inline-n--11813-4806-u--traverseArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-8 ext-0) (let ((sc0 arg-8)) (if (null? sc0) (vector 1 '()) (let ((e-3 (car sc0))) (let ((e-4 (cdr sc0))) (let ((act-24 ((CompilerC-45Inline-fixArityTm arg-7 arg-5 e-3 '()) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CompilerC-45Inline-n--11813-4806-u--traverseArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 e-4 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (cons e-5 e-6)))))))))))))))))) -(define CompilerC-45Inline-n--13202-5870-u--transform (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (let ((e-0 (- arg-1 1))) (lambda (eta-0) (let ((act-24 (CoreC-45Core-traverse_ (lambda (eta-1) (lambda (eta-2) (CompilerC-45Inline-inlineDef arg-0 eta-1 eta-2))) arg-2 eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45Core-traverse_ (lambda (eta-1) (lambda (eta-2) (CompilerC-45Inline-mergeLamDef arg-0 eta-1 eta-2))) arg-2 eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45Core-traverse_ (lambda (eta-1) (lambda (eta-2) (CompilerC-45CaseOpts-caseLamDef arg-0 eta-1 eta-2))) arg-2 eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-27 (CoreC-45Core-traverse_ (lambda (eta-1) (lambda (eta-2) (CompilerC-45Inline-fixArityDef arg-0 eta-1 eta-2))) arg-2 eta-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((CompilerC-45Inline-n--13202-5870-u--transform arg-0 e-0 arg-2) eta-0)))))))))))))))))))))))) -(define CompilerC-45Inline-n--13202-5871-u--nonErased (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact arg-1 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (vector 1 (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega (let ((sc3 e-1)) (let ((e-7 (vector-ref sc3 8))) e-7)) (AlgebraC-45Semiring-erased (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))))))) (else (vector 1 1)))))))))))))))) -(define CompilerC-45Inline-n--9641-4223-u--matches (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (let ((sc0 arg-21)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 arg-23)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 1))) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int e-1 e-4)))(else 1))))) ((0) (let ((sc1 arg-23)) (case (vector-ref sc1 0) ((0) (CoreC-45Name-u--C-61C-61_Eq_Name arg-20 arg-22))(else 1))))(else 1))))) -(define CompilerC-45Inline-n--11813-4980-u--fixArityConstAlt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((sc0 arg-7)) (let ((e-1 (car sc0))) (let ((e-2 (cdr sc0))) (let ((act-24 ((CompilerC-45Inline-fixArityTm arg-0 arg-6 e-2 '()) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (cons e-1 e-5)))))))))))) -(define CompilerC-45Inline-n--11813-4922-u--fixArityAlt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((sc0 arg-7)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((act-24 ((CompilerC-45Inline-fixArityTm (PreludeC-45TypesC-45List-C-43C-43 e-4 arg-0) arg-6 e-5 '()) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 (vector 0 e-1 e-2 e-3 e-4 e-6))))))))))))))) -(define CompilerC-45Inline-usedConst (lambda (arg-1 arg-2 arg-4) (let ((sc0 arg-4)) (let ((e-2 (cdr sc0))) (CompilerC-45Inline-used arg-1 arg-2 e-2))))) -(define CompilerC-45Inline-usedCon (lambda (arg-1 arg-2 arg-4) (let ((sc0 arg-4)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (CompilerC-45Inline-case--usedCon-2570 arg-1 arg-2 e-1 e-2 e-3 e-4 e-5 (CoreC-45TT-u--weakenNs_Weaken_Var (CoreC-45TTC-45SizeOf-mkSizeOf e-4) arg-2)))))))))) -(define CompilerC-45Inline-used (lambda (arg-1 arg-2 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (CompilerC-45Inline-case--used-2149 arg-1 e-3 e-2 arg-2 (PreludeC-45Types-u--C-61C-61_Eq_Nat arg-2 e-2))))) ((2) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (CompilerC-45Inline-used (cons e-7 arg-1) (+ 1 arg-2) e-8)))) ((3) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (let ((e-13 (vector-ref sc0 4))) (let ((e-14 (vector-ref sc0 5))) (let ((sc1 e-12)) (cond ((equal? sc1 1) (let ((u--usedl (bs+ (CompilerC-45Inline-used arg-1 arg-2 e-13) (CompilerC-45Inline-used (cons e-11 arg-1) (+ 1 arg-2) e-14) 63))) (CompilerC-45Inline-case--used-2242 arg-1 arg-2 e-10 e-11 e-14 e-13 u--usedl (PreludeC-45EqOrd-u--C-62_Ord_Int u--usedl 0)))) ((equal? sc1 0) (bs+ (CompilerC-45Inline-used arg-1 arg-2 e-13) (CompilerC-45Inline-used (cons e-11 arg-1) (+ 1 arg-2) e-14) 63))(else 0))))))))) ((4) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (PreludeC-45Types-u--foldr_Foldable_List (lambda (eta-0) (lambda (eta-1) (bs+ eta-0 eta-1 63))) (CompilerC-45Inline-used arg-1 arg-2 e-17) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CompilerC-45Inline-used arg-1 arg-2 eta-0)) e-18))))) ((5) (let ((e-24 (vector-ref sc0 5))) (PreludeC-45Types-u--foldr_Foldable_List (lambda (eta-0) (lambda (eta-1) (bs+ eta-0 eta-1 63))) 0 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CompilerC-45Inline-used arg-1 arg-2 eta-0)) e-24)))) ((6) (let ((e-29 (vector-ref sc0 4))) (DataC-45Vect-u--foldr_Foldable_C-40VectC-32C-36nC-41 (lambda (eta-0) (lambda (eta-1) (bs+ eta-0 eta-1 63))) 0 (DataC-45Vect-u--map_Functor_C-40VectC-32C-36nC-41 (lambda (eta-0) (CompilerC-45Inline-used arg-1 arg-2 eta-0)) e-29)))) ((7) (let ((e-33 (vector-ref sc0 3))) (PreludeC-45Types-u--foldr_Foldable_List (lambda (eta-0) (lambda (eta-1) (bs+ eta-0 eta-1 63))) 0 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CompilerC-45Inline-used arg-1 arg-2 eta-0)) e-33)))) ((8) (let ((e-37 (vector-ref sc0 3))) (CompilerC-45Inline-used arg-1 arg-2 e-37))) ((9) (let ((e-41 (vector-ref sc0 3))) (CompilerC-45Inline-used arg-1 arg-2 e-41))) ((10) (let ((e-44 (vector-ref sc0 2))) (let ((e-45 (vector-ref sc0 3))) (let ((e-46 (vector-ref sc0 4))) (bs+ (CompilerC-45Inline-used arg-1 arg-2 e-44) (CompilerC-45Inline-largest (vector 0 (cons (lambda (arg-3) (lambda (arg-5) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-5))) (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-5 arg-6)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Int arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Int arg-383 arg-384)))) (PreludeC-45Types-maybe (lambda () (blodwen-toSignedInt 0 63)) (lambda () (lambda (eta-0) (CompilerC-45Inline-used arg-1 arg-2 eta-0))) e-46) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CompilerC-45Inline-usedCon arg-1 arg-2 eta-0)) e-45)) 63))))) ((11) (let ((e-49 (vector-ref sc0 2))) (let ((e-50 (vector-ref sc0 3))) (let ((e-51 (vector-ref sc0 4))) (bs+ (CompilerC-45Inline-used arg-1 arg-2 e-49) (CompilerC-45Inline-largest (vector 0 (cons (lambda (arg-3) (lambda (arg-5) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-3 arg-5))) (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-5 arg-6)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Int arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Int arg-383 arg-384)))) (PreludeC-45Types-maybe (lambda () (blodwen-toSignedInt 0 63)) (lambda () (lambda (eta-0) (CompilerC-45Inline-used arg-1 arg-2 eta-0))) e-51) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CompilerC-45Inline-usedConst arg-1 arg-2 eta-0)) e-50)) 63)))))(else 0))))) -(define CompilerC-45Inline-updateCallGraph (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact arg-1 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((_-0 (vector 1 e-1))) ((CompilerC-45Inline-case--caseC-32blockC-32inC-32updateCallGraph-5643 arg-1 arg-0 e-5 e-1 _-0 (let ((sc3 e-1)) (let ((e-18 (vector-ref sc3 19))) e-18))) ext-0)))) (else (vector 1 (vector 0 ))))))))))))))))) -(define CompilerC-45Inline-unloadApp (lambda (arg-1 arg-2 arg-3) (CompilerC-45Inline-unload (DataC-45List-drop arg-1 arg-2) (vector 4 (CoreC-45CompileExpr-getFC arg-3) arg-3 (DataC-45List-take arg-1 arg-2))))) -(define CompilerC-45Inline-unload (lambda (arg-1 arg-2) (let ((sc0 arg-1)) (if (null? sc0) arg-2 (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (CompilerC-45Inline-unload e-3 (vector 4 (CoreC-45CompileExpr-getFC arg-2) arg-2 (cons e-2 '()))))))))) -(define CompilerC-45Inline-tryApply (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (CompilerC-45Inline-case--tryApply-2804 e-0 e-1 arg-1 arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 (CompilerC-45Inline-takeFromStack arg-6 arg-5 e-0) eta-0)))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define CompilerC-45Inline-takeFromStack (lambda (arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (if (null? sc0) (let ((sc1 arg-4)) (if (null? sc1) (PreludeC-45Types-u--pure_Applicative_Maybe (cons arg-2 arg-3)) (let ((sc2 arg-3)) (vector 0 )))) (let ((e-3 (car sc0))) (let ((e-4 (cdr sc0))) (let ((sc1 arg-4)) (if (null? sc1) (let ((sc2 arg-4)) (if (null? sc2) (PreludeC-45Types-u--pure_Applicative_Maybe (cons arg-2 arg-3)) (let ((sc3 arg-3)) (vector 0 )))) (let ((e-7 (cdr sc1))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CompilerC-45Inline-takeFromStack arg-2 e-4 e-7) (lambda (_-0) (let ((sc2 _-0)) (let ((e-2 (car sc2))) (let ((e-5 (cdr sc2))) (PreludeC-45Types-u--pure_Applicative_Maybe (cons (cons e-3 e-2) e-5)))))))))))))))) -(define CompilerC-45Inline-refToLocal (lambda (arg-1 arg-2 arg-3) (CoreC-45CompileExpr-refsToLocals (vector 1 arg-2 arg-1 (vector 0 )) arg-3))) -(define CompilerC-45Inline-pickConstAlt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((12) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 arg-8)) (if (null? sc1) (lambda (eta-0) (let ((sc2 arg-9)) (case (vector-ref sc2 0) ((0) (vector 1 (vector 0 ))) (else (let ((e-3 (vector-ref sc2 1))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (let ((sc3 eta-1)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (vector 1 (vector 1 e-5))))))) (CompilerC-45Inline-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3) eta-0)))))) (let ((e-5 (car sc1))) (let ((e-6 (cdr sc1))) (let ((sc2 e-5)) (if (null? sc2) (lambda (eta-0) (vector 1 (vector 0 ))) (let ((e-8 (car sc2))) (let ((e-9 (cdr sc2))) (CompilerC-45Inline-case--pickConstAlt-4513 arg-2 e-2 e-1 arg-1 arg-0 e-9 e-8 e-6 arg-9 arg-6 arg-5 arg-4 arg-3 (CoreC-45TT-u--C-61C-61_Eq_Constant e-2 e-8)))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define CompilerC-45Inline-pickAlt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((5) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((sc1 arg-8)) (if (null? sc1) (lambda (eta-0) (let ((sc2 arg-9)) (case (vector-ref sc2 0) ((0) (vector 1 (vector 0 ))) (else (let ((e-6 (vector-ref sc2 1))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (let ((sc3 eta-1)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 1 e-7))))))) (CompilerC-45Inline-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-6) eta-0)))))) (let ((e-8 (car sc1))) (let ((e-9 (cdr sc1))) (let ((sc2 e-8)) (case (vector-ref sc2 0) ((0) (let ((e-11 (vector-ref sc2 1))) (let ((e-12 (vector-ref sc2 2))) (let ((e-13 (vector-ref sc2 3))) (let ((e-14 (vector-ref sc2 4))) (let ((e-15 (vector-ref sc2 5))) (let ((u--con (vector 5 e-1 e-2 e-3 e-4 e-5))) (CompilerC-45Inline-case--pickAlt-4260 e-12 e-14 arg-1 arg-0 e-15 e-13 e-11 e-9 arg-9 e-5 e-4 e-3 e-2 e-1 u--con arg-6 arg-5 arg-4 arg-3 arg-2 (CompilerC-45Inline-n--9641-4223-u--matches e-12 e-14 arg-1 arg-0 e-15 e-13 e-11 e-9 arg-9 e-5 e-4 e-3 e-2 e-1 u--con arg-6 arg-5 arg-4 arg-3 arg-2 e-2 e-4 e-11 e-13)))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define CompilerC-45Inline-mkBounds (lambda (arg-0) (let ((sc0 arg-0)) (if (null? sc0) (vector 0 ) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (vector 1 e-2 e-2 (CompilerC-45Inline-mkBounds e-3)))))))) -(define CompilerC-45Inline-mergeLambdas (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (CompilerC-45Inline-case--mergeLambdas-5189 e-2 arg-0 e-3 e-1 (CompilerC-45Inline-getLams '() 0 '() (vector 2 e-1 e-2 e-3)))))))(else (cons arg-0 arg-1)))))) -(define CompilerC-45Inline-mergeLamDef (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact arg-1 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((_-0 (vector 1 e-1))) (CompilerC-45Inline-case--caseC-32blockC-32inC-32mergeLamDef-5826 arg-1 arg-0 e-5 e-1 _-0 (let ((sc3 e-1)) (let ((e-18 (vector-ref sc3 19))) e-18)) ext-0)))) (else (vector 1 (vector 0 ))))))))))))))))) -(define CompilerC-45Inline-mergeLam (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (CompilerC-45Inline-case--mergeLam-5332 e-0 e-1 arg-0 (CompilerC-45Inline-mergeLambdas e-0 e-1) eta-0)))))(else (lambda (eta-0) (vector 1 arg-1))))))) -(define CompilerC-45Inline-largest (lambda (arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (if (null? sc0) arg-2 (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (CompilerC-45Inline-case--largest-2096 arg-1 e-2 e-3 arg-2 (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 4))) ((e-4 e-2) arg-2)))))))))) -(define CompilerC-45Inline-inlineDef (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact arg-1 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((_-0 (vector 1 e-1))) (CompilerC-45Inline-case--caseC-32blockC-32inC-32inlineDef-5570 arg-1 arg-0 e-5 e-1 _-0 (let ((sc3 e-1)) (let ((e-18 (vector-ref sc3 19))) e-18)) ext-0)))) (else (vector 1 (vector 0 ))))))))))))))))) -(define CompilerC-45Inline-inline (lambda (arg-0 arg-1 arg-2 ext-0) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((act-24 (CompilerC-45Inline-doEval e-0 arg-0 arg-1 e-1 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-0 e-5))))))))))(else (vector 1 arg-2)))))) -(define CompilerC-45Inline-getRefs (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (CompilerC-45Inline-addRefs (LibrariesC-45DataC-45NameMap-empty) e-1)))(else (LibrariesC-45DataC-45NameMap-empty)))))) -(define CompilerC-45Inline-getNewArgs (lambda (arg-1 arg-2) (let ((sc0 arg-1)) (if (null? sc0) (let ((sc1 arg-2)) '()) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 arg-2)) (let ((e-8 (car sc1))) (let ((e-9 (cdr sc1))) (let ((sc2 e-8)) (case (vector-ref sc2 0) ((1) (let ((e-12 (vector-ref sc2 2))) (cons e-12 (CompilerC-45Inline-getNewArgs e-3 e-9))))(else (cons e-2 (CompilerC-45Inline-getNewArgs e-3 e-9)))))))))))))) -(define CompilerC-45Inline-getLams (lambda (arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (CompilerC-45Inline-getLams (cons e-2 arg-1) (bs+ arg-2 1 63) (cons (vector 1 e-1 (vector 2 "ext" arg-2)) arg-3) e-3)))))(else (cons arg-1 (cons arg-3 arg-4))))))) -(define CompilerC-45Inline-getArity (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (PreludeC-45TypesC-45List-length e-0))) ((1) (let ((e-3 (vector-ref sc0 2))) e-3)) ((2) (let ((e-6 (vector-ref sc0 2))) (PreludeC-45TypesC-45List-length e-6))) (else 0))))) -(define CompilerC-45Inline-genName (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (set-box! arg-0 (bs+ e-5 1 63)))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 2 arg-1 e-5))))))))))))) -(define CompilerC-45Inline-fixArityTm (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact e-3 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((_-0 (vector 1 e-1))) ((CompilerC-45Inline-case--caseC-32blockC-32inC-32fixArityTm-4637 arg-0 e-3 e-2 arg-3 arg-1 e-5 e-1 _-0 (let ((sc4 e-1)) (let ((e-18 (vector-ref sc4 19))) e-18))) eta-0)))) (else (vector 1 (CompilerC-45Inline-unload arg-3 (vector 1 e-2 e-3)))))))))))))))))))) ((2) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((CompilerC-45Inline-fixArityTm (cons e-6 arg-0) arg-1 e-7 '()) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc1 1))) (vector 1 (CompilerC-45CompileExpr-expandToArity arg-0 0 (vector 2 e-5 e-6 e-8) arg-3)))))))))))) ((3) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (let ((e-12 (vector-ref sc0 4))) (let ((e-13 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((CompilerC-45Inline-fixArityTm arg-0 arg-1 e-12 '()) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((CompilerC-45Inline-fixArityTm (cons e-10 arg-0) arg-1 e-13 '()) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (CompilerC-45CompileExpr-expandToArity arg-0 0 (vector 3 e-9 e-10 e-11 e-5 e-6) arg-3))))))))))))))))))) ((4) (let ((e-16 (vector-ref sc0 2))) (let ((e-17 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (u--tm) (CompilerC-45Inline-fixArityTm arg-0 arg-1 u--tm '())) e-17 '() eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((CompilerC-45Inline-fixArityTm arg-0 arg-1 e-16 (PreludeC-45TypesC-45List-C-43C-43 e-5 arg-3)) eta-0)))))))))) ((5) (let ((e-19 (vector-ref sc0 1))) (let ((e-20 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 3))) (let ((e-22 (vector-ref sc0 4))) (let ((e-23 (vector-ref sc0 5))) (lambda (clam-0) (let ((sc1 arg-3)) (if (null? sc1) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (u--tm) (CompilerC-45Inline-fixArityTm arg-0 arg-1 u--tm '())) e-23 '() clam-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (vector 5 e-19 e-20 e-21 e-22 e-5))))))) (let ((sc2 arg-3)) (if (null? sc2) (vector 1 arg-2) (vector 1 (CompilerC-45CompileExpr-expandToArity arg-0 0 arg-2 arg-3))))))))))))) ((6) (let ((e-25 (vector-ref sc0 1))) (let ((e-26 (vector-ref sc0 2))) (let ((e-27 (vector-ref sc0 3))) (let ((e-28 (vector-ref sc0 4))) (lambda (clam-1) (let ((sc1 arg-3)) (if (null? sc1) (let ((act-24 (CompilerC-45Inline-n--11813-4806-u--traverseArgs arg-0 e-25 e-28 e-27 e-26 arg-1 arg-0 e-28 clam-1))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (vector 6 e-25 e-26 e-27 e-5))))))) (let ((sc2 arg-3)) (if (null? sc2) (vector 1 arg-2) (vector 1 (CompilerC-45CompileExpr-expandToArity arg-0 0 arg-2 arg-3)))))))))))) ((7) (let ((e-30 (vector-ref sc0 1))) (let ((e-31 (vector-ref sc0 2))) (let ((e-32 (vector-ref sc0 3))) (lambda (clam-2) (let ((sc1 arg-3)) (if (null? sc1) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (u--tm) (CompilerC-45Inline-fixArityTm arg-0 arg-1 u--tm '())) e-32 '() clam-2))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (vector 7 e-30 e-31 e-5))))))) (let ((sc2 arg-3)) (if (null? sc2) (vector 1 arg-2) (vector 1 (CompilerC-45CompileExpr-expandToArity arg-0 0 arg-2 arg-3))))))))))) ((8) (let ((e-34 (vector-ref sc0 1))) (let ((e-35 (vector-ref sc0 2))) (let ((e-36 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((CompilerC-45Inline-fixArityTm arg-0 arg-1 e-36 '()) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (CompilerC-45CompileExpr-expandToArity arg-0 0 (vector 8 e-34 e-35 e-5) arg-3)))))))))))) ((9) (let ((e-38 (vector-ref sc0 1))) (let ((e-39 (vector-ref sc0 2))) (let ((e-40 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((CompilerC-45Inline-fixArityTm arg-0 arg-1 e-40 '()) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (CompilerC-45CompileExpr-expandToArity arg-0 0 (vector 9 e-38 e-39 e-5) arg-3)))))))))))) ((10) (let ((e-42 (vector-ref sc0 1))) (let ((e-43 (vector-ref sc0 2))) (let ((e-44 (vector-ref sc0 3))) (let ((e-45 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((CompilerC-45Inline-fixArityTm arg-0 arg-1 e-43 '()) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (eta-1) (lambda (eta-2) (CompilerC-45Inline-n--11813-4922-u--fixArityAlt arg-0 e-45 e-44 e-43 e-42 arg-3 arg-1 eta-1 eta-2))) e-44 '() eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (let ((sc3 e-45)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 0 ))) (else (let ((e-2 (vector-ref sc3 1))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (let ((sc4 eta-1)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc4 1))) (vector 1 (vector 1 e-7))))))) (CompilerC-45Inline-fixArityTm arg-0 arg-1 e-2 '()) eta-0))))))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (CompilerC-45CompileExpr-expandToArity arg-0 0 (vector 10 e-42 e-5 e-6 e-7) arg-3))))))))))))))))))))))) ((11) (let ((e-47 (vector-ref sc0 1))) (let ((e-48 (vector-ref sc0 2))) (let ((e-49 (vector-ref sc0 3))) (let ((e-50 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((CompilerC-45Inline-fixArityTm arg-0 arg-1 e-48 '()) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (eta-1) (lambda (eta-2) (CompilerC-45Inline-n--11813-4980-u--fixArityConstAlt arg-0 e-50 e-49 e-48 e-47 arg-3 arg-1 eta-1 eta-2))) e-49 '() eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (let ((sc3 e-50)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 0 ))) (else (let ((e-2 (vector-ref sc3 1))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (let ((sc4 eta-1)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc4 1))) (vector 1 (vector 1 e-7))))))) (CompilerC-45Inline-fixArityTm arg-0 arg-1 e-2 '()) eta-0))))))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (CompilerC-45CompileExpr-expandToArity arg-0 0 (vector 11 e-47 e-5 e-6 e-7) arg-3)))))))))))))))))))))))(else (lambda (clam-3) (let ((sc0 arg-3)) (if (null? sc0) (vector 1 arg-2) (vector 1 (CompilerC-45CompileExpr-expandToArity arg-0 0 arg-2 arg-3)))))))))) -(define CompilerC-45Inline-fixArityExp (lambda (arg-0 arg-1 arg-2) (CompilerC-45Inline-fixArityTm arg-0 arg-1 arg-2 '()))) -(define CompilerC-45Inline-fixArityDef (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact arg-1 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((_-0 (vector 1 e-1))) (CompilerC-45Inline-case--caseC-32blockC-32inC-32fixArityDef-5753 arg-1 arg-0 e-5 e-1 _-0 (let ((sc3 e-1)) (let ((e-18 (vector-ref sc3 19))) e-18)) ext-0)))) (else (vector 1 (vector 0 ))))))))))))))))) -(define CompilerC-45Inline-fixArity (lambda (arg-0 arg-1 ext-0) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((act-24 ((CompilerC-45Inline-fixArityTm e-0 arg-0 e-1 '()) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-0 e-5)))))))))) ((3) (let ((e-2 (vector-ref sc0 1))) (let ((act-24 ((CompilerC-45Inline-fixArityTm '() arg-0 e-2 '()) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 3 e-5)))))))))(else (vector 1 arg-1)))))) -(define CompilerC-45Inline-extendLoc (lambda (arg-2 arg-3 arg-4 arg-5 ext-0) (let ((sc0 arg-5)) (if (null? sc0) (vector 1 (cons (vector 0 ) arg-4)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((act-24 (CompilerC-45Inline-genName arg-2 "cv" ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CompilerC-45Inline-extendLoc arg-2 arg-3 arg-4 e-3 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (let ((e-7 (car sc3))) (let ((e-4 (cdr sc3))) (vector 1 (cons (vector 1 e-2 e-5 e-7) (cons (vector 1 arg-3 e-5) e-4)))))))))))))))))))))) -(define CompilerC-45Inline-extend (lambda (arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-3)) (if (null? sc0) (let ((sc1 arg-4)) (let ((sc2 arg-5)) arg-2)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 arg-4)) (let ((e-9 (cdr sc1))) (let ((sc2 arg-5)) (let ((e-16 (vector-ref sc2 1))) (cons e-2 (CompilerC-45Inline-extend arg-2 e-3 e-9 e-16)))))))))))) -(define CompilerC-45Inline-evalLocal (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-1)) (if (null? sc0) (lambda (eta-0) (vector 1 (CompilerC-45Inline-unload arg-7 (vector 0 arg-9 arg-5)))) (let ((e-3 (cdr sc0))) (let ((sc1 arg-8)) (let ((e-7 (car sc1))) (let ((e-8 (cdr sc1))) (let ((sc2 arg-9)) (cond ((equal? sc2 0) (let ((sc3 arg-7)) (if (null? sc3) (lambda (eta-0) (vector 1 e-7)) (CompilerC-45Inline-eval e-3 arg-2 arg-3 arg-4 arg-6 e-8 arg-7 (CoreC-45CompileExpr-u--weakenNs_Weaken_CExp (CoreC-45TTC-45SizeOf-mkSizeOf e-3) e-7)))))(else (let ((e-9 (- arg-9 1))) (CompilerC-45Inline-evalLocal e-3 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-8 e-9))))))))))))) -(define CompilerC-45Inline-evalConstAlt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((sc0 arg-7)) (let ((e-1 (car sc0))) (let ((e-2 (cdr sc0))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc1 eta-0)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (cons e-1 e-5))))))) (CompilerC-45Inline-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-2) ext-0)))))) -(define CompilerC-45Inline-evalAlt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 ext-0) (let ((sc0 arg-8)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((act-24 (CompilerC-45Inline-extendLoc arg-3 arg-4 arg-6 e-4 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (let ((e-8 (car sc2))) (let ((e-7 (cdr sc2))) (let ((act-25 ((CompilerC-45Inline-eval (PreludeC-45TypesC-45List-C-43C-43 e-4 arg-0) arg-1 arg-2 arg-3 arg-5 e-7 arg-7 e-5) ext-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-9 (vector-ref sc3 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc3 1))) (vector 1 (vector 0 e-1 e-2 e-3 e-4 (CoreC-45CompileExpr-refsToLocals e-8 e-9)))))))))))))))))))))))) -(define CompilerC-45Inline-eval (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-65 (vector-ref sc0 1))) (let ((e-66 (vector-ref sc0 2))) (CompilerC-45Inline-evalLocal arg-0 arg-1 arg-2 arg-3 e-66 arg-4 arg-6 arg-5 e-65)))) ((1) (let ((e-69 (vector-ref sc0 1))) (let ((e-70 (vector-ref sc0 2))) (CompilerC-45Inline-case--eval-2927 arg-0 arg-1 e-70 e-69 arg-6 arg-5 arg-4 arg-3 arg-2 (cons (CoreC-45Name-u--C-61C-61_Eq_Name e-70 (vector 0 (CoreC-45NameC-45Namespace-primIONS) (vector 1 "io_bind"))) arg-6)))))(else (let ((sc0 arg-6)) (if (null? sc0) (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((2) (let ((e-56 (vector-ref sc1 1))) (let ((e-57 (vector-ref sc1 2))) (let ((e-58 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 (CompilerC-45Inline-genName arg-3 "lamv" eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((CompilerC-45Inline-eval (cons e-57 arg-0) arg-1 arg-2 arg-3 arg-4 (cons (vector 1 e-56 e-5) arg-5) '() e-58) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 (vector 2 e-56 e-57 (CompilerC-45Inline-refToLocal e-5 e-57 e-6))))))))))))))))))(else (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((3) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((e-3 (vector-ref sc1 3))) (let ((e-4 (vector-ref sc1 4))) (let ((e-5 (vector-ref sc1 5))) (let ((sc2 e-3)) (cond ((equal? sc2 1) (lambda (eta-0) (let ((act-24 (CompilerC-45Inline-genName arg-3 "letv" eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 ((CompilerC-45Inline-eval (cons e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (cons (vector 1 e-1 e-6) arg-5) '() e-5) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-26 ((CompilerC-45Inline-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 '() e-4) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc5 1))) (vector 1 (CompilerC-45Inline-unload arg-6 (vector 3 e-1 e-2 1 e-8 (CompilerC-45Inline-refToLocal e-6 e-2 e-7))))))))))))))))))))) (else (let ((u--u (CompilerC-45Inline-used (cons e-2 (PreludeC-45TypesC-45List-C-43C-43 arg-0 arg-1)) 0 e-5))) (lambda (eta-0) (CompilerC-45Inline-case--eval-3387 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u--u (PreludeC-45EqOrd-u--C-60_Ord_Int u--u 1) eta-0)))))))))))) ((4) (let ((e-8 (vector-ref sc1 2))) (let ((e-9 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-1) (CompilerC-45Inline-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 '() eta-1)) e-9 '() eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) ((CompilerC-45Inline-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (PreludeC-45TypesC-45List-C-43C-43 e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc1 1))) (let ((e-12 (vector-ref sc1 2))) (let ((e-13 (vector-ref sc1 3))) (let ((e-14 (vector-ref sc1 4))) (let ((e-15 (vector-ref sc1 5))) (lambda (eta-0) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-1) (CompilerC-45Inline-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 '() eta-1)) e-15 '() eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (CompilerC-45Inline-unload arg-6 (vector 5 e-11 e-12 e-13 e-14 e-5))))))))))))))) ((6) (let ((e-17 (vector-ref sc1 1))) (let ((e-18 (vector-ref sc1 2))) (let ((e-19 (vector-ref sc1 3))) (let ((e-20 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 (CoreC-45Core-traverseVect (lambda (eta-1) (CompilerC-45Inline-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 '() eta-1)) e-20 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (CompilerC-45Inline-unload arg-6 (vector 6 e-17 e-18 e-19 e-5)))))))))))))) ((7) (let ((e-22 (vector-ref sc1 1))) (let ((e-23 (vector-ref sc1 2))) (let ((e-24 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-1) (CompilerC-45Inline-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 '() eta-1)) e-24 '() eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (CompilerC-45Inline-unload arg-6 (vector 7 e-22 e-23 e-5))))))))))))) ((8) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((CompilerC-45Inline-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 '() e-28) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((9) (let ((e-3 (vector-ref sc3 3))) ((CompilerC-45Inline-eval '() arg-1 arg-2 arg-3 arg-4 '() arg-6 e-3) eta-0)))(else (vector 1 (CompilerC-45Inline-unload arg-6 (vector 8 e-26 e-27 e-5)))))))))))))))) ((9) (let ((e-30 (vector-ref sc1 1))) (let ((e-31 (vector-ref sc1 2))) (let ((e-32 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((CompilerC-45Inline-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 '() e-32) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (CompilerC-45Inline-unload arg-6 (vector 9 e-30 e-31 e-5))))))))))))) ((10) (let ((e-34 (vector-ref sc1 1))) (let ((e-35 (vector-ref sc1 2))) (let ((e-36 (vector-ref sc1 3))) (let ((e-37 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 ((CompilerC-45Inline-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 '() e-35) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((u--envC-39 (CompilerC-45Inline-n--9618-3710-u--update arg-0 arg-1 e-37 e-36 e-35 e-34 arg-6 arg-5 arg-4 arg-3 arg-2 arg-0 e-35 arg-5 e-5))) (let ((act-25 ((CompilerC-45Inline-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 u--envC-39 arg-6 e-5 e-36 e-37) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((0) (let ((act-26 (let ((sc5 e-37)) (case (vector-ref sc5 0) ((0) (vector 1 (vector 0 ))) (else (let ((e-2 (vector-ref sc5 1))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (let ((sc6 eta-1)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc6 1))) (vector 1 (vector 1 e-7))))))) (CompilerC-45Inline-eval arg-0 arg-1 arg-2 arg-3 arg-4 u--envC-39 arg-6 e-2) eta-0))))))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-1) (lambda (eta-2) (CompilerC-45Inline-evalAlt arg-0 arg-1 arg-2 arg-3 e-34 arg-4 u--envC-39 arg-6 eta-1 eta-2))) e-36 '() eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc6 1))) (vector 1 (CompilerC-45CaseOpts-caseOfCase (vector 10 e-34 e-5 e-8 e-7)))))))))))))) (else (let ((e-2 (vector-ref sc4 1))) (vector 1 e-2)))))))))))))))))))))) ((11) (let ((e-39 (vector-ref sc1 1))) (let ((e-40 (vector-ref sc1 2))) (let ((e-41 (vector-ref sc1 3))) (let ((e-42 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 ((CompilerC-45Inline-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 '() e-40) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((CompilerC-45Inline-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-41 e-42) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((0) (let ((act-26 (let ((sc5 e-42)) (case (vector-ref sc5 0) ((0) (vector 1 (vector 0 ))) (else (let ((e-2 (vector-ref sc5 1))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (let ((sc6 eta-1)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc6 1))) (vector 1 (vector 1 e-7))))))) (CompilerC-45Inline-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-2) eta-0))))))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-1) (lambda (eta-2) (CompilerC-45Inline-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1 eta-2))) e-41 '() eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc6 1))) (vector 1 (CompilerC-45CaseOpts-caseOfCase (vector 11 e-39 e-5 e-8 e-7)))))))))))))) (else (let ((e-2 (vector-ref sc4 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-44 (vector-ref sc1 1))) (let ((e-45 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (CompilerC-45Inline-unload arg-6 (vector 12 e-44 e-45))))))) ((13) (let ((e-47 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 (CompilerC-45Inline-unload arg-6 (vector 13 e-47)))))) (else (let ((e-49 (vector-ref sc1 1))) (let ((e-50 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (CompilerC-45Inline-unload arg-6 (vector 14 e-49 e-50)))))))))))) (let ((e-53 (car sc0))) (let ((e-54 (cdr sc0))) (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((2) (let ((e-61 (vector-ref sc1 2))) (let ((e-62 (vector-ref sc1 3))) (CompilerC-45Inline-eval (cons e-61 arg-0) arg-1 arg-2 arg-3 arg-4 (cons e-53 arg-5) e-54 e-62))))(else (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((3) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((e-3 (vector-ref sc1 3))) (let ((e-4 (vector-ref sc1 4))) (let ((e-5 (vector-ref sc1 5))) (let ((sc2 e-3)) (cond ((equal? sc2 1) (lambda (eta-0) (let ((act-24 (CompilerC-45Inline-genName arg-3 "letv" eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 ((CompilerC-45Inline-eval (cons e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (cons (vector 1 e-1 e-6) arg-5) '() e-5) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-26 ((CompilerC-45Inline-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 '() e-4) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc5 1))) (vector 1 (CompilerC-45Inline-unload arg-6 (vector 3 e-1 e-2 1 e-8 (CompilerC-45Inline-refToLocal e-6 e-2 e-7))))))))))))))))))))) (else (let ((u--u (CompilerC-45Inline-used (cons e-2 (PreludeC-45TypesC-45List-C-43C-43 arg-0 arg-1)) 0 e-5))) (lambda (eta-0) (CompilerC-45Inline-case--eval-3387 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u--u (PreludeC-45EqOrd-u--C-60_Ord_Int u--u 1) eta-0)))))))))))) ((4) (let ((e-8 (vector-ref sc1 2))) (let ((e-9 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-1) (CompilerC-45Inline-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 '() eta-1)) e-9 '() eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) ((CompilerC-45Inline-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (PreludeC-45TypesC-45List-C-43C-43 e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc1 1))) (let ((e-12 (vector-ref sc1 2))) (let ((e-13 (vector-ref sc1 3))) (let ((e-14 (vector-ref sc1 4))) (let ((e-15 (vector-ref sc1 5))) (lambda (eta-0) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-1) (CompilerC-45Inline-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 '() eta-1)) e-15 '() eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (CompilerC-45Inline-unload arg-6 (vector 5 e-11 e-12 e-13 e-14 e-5))))))))))))))) ((6) (let ((e-17 (vector-ref sc1 1))) (let ((e-18 (vector-ref sc1 2))) (let ((e-19 (vector-ref sc1 3))) (let ((e-20 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 (CoreC-45Core-traverseVect (lambda (eta-1) (CompilerC-45Inline-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 '() eta-1)) e-20 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (CompilerC-45Inline-unload arg-6 (vector 6 e-17 e-18 e-19 e-5)))))))))))))) ((7) (let ((e-22 (vector-ref sc1 1))) (let ((e-23 (vector-ref sc1 2))) (let ((e-24 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-1) (CompilerC-45Inline-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 '() eta-1)) e-24 '() eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (CompilerC-45Inline-unload arg-6 (vector 7 e-22 e-23 e-5))))))))))))) ((8) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((CompilerC-45Inline-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 '() e-28) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((9) (let ((e-3 (vector-ref sc3 3))) ((CompilerC-45Inline-eval '() arg-1 arg-2 arg-3 arg-4 '() arg-6 e-3) eta-0)))(else (vector 1 (CompilerC-45Inline-unload arg-6 (vector 8 e-26 e-27 e-5)))))))))))))))) ((9) (let ((e-30 (vector-ref sc1 1))) (let ((e-31 (vector-ref sc1 2))) (let ((e-32 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((CompilerC-45Inline-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 '() e-32) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (CompilerC-45Inline-unload arg-6 (vector 9 e-30 e-31 e-5))))))))))))) ((10) (let ((e-34 (vector-ref sc1 1))) (let ((e-35 (vector-ref sc1 2))) (let ((e-36 (vector-ref sc1 3))) (let ((e-37 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 ((CompilerC-45Inline-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 '() e-35) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((u--envC-39 (CompilerC-45Inline-n--9618-3710-u--update arg-0 arg-1 e-37 e-36 e-35 e-34 arg-6 arg-5 arg-4 arg-3 arg-2 arg-0 e-35 arg-5 e-5))) (let ((act-25 ((CompilerC-45Inline-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 u--envC-39 arg-6 e-5 e-36 e-37) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((0) (let ((act-26 (let ((sc5 e-37)) (case (vector-ref sc5 0) ((0) (vector 1 (vector 0 ))) (else (let ((e-2 (vector-ref sc5 1))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (let ((sc6 eta-1)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc6 1))) (vector 1 (vector 1 e-7))))))) (CompilerC-45Inline-eval arg-0 arg-1 arg-2 arg-3 arg-4 u--envC-39 arg-6 e-2) eta-0))))))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-1) (lambda (eta-2) (CompilerC-45Inline-evalAlt arg-0 arg-1 arg-2 arg-3 e-34 arg-4 u--envC-39 arg-6 eta-1 eta-2))) e-36 '() eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc6 1))) (vector 1 (CompilerC-45CaseOpts-caseOfCase (vector 10 e-34 e-5 e-8 e-7)))))))))))))) (else (let ((e-2 (vector-ref sc4 1))) (vector 1 e-2)))))))))))))))))))))) ((11) (let ((e-39 (vector-ref sc1 1))) (let ((e-40 (vector-ref sc1 2))) (let ((e-41 (vector-ref sc1 3))) (let ((e-42 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 ((CompilerC-45Inline-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 '() e-40) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((CompilerC-45Inline-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-41 e-42) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((0) (let ((act-26 (let ((sc5 e-42)) (case (vector-ref sc5 0) ((0) (vector 1 (vector 0 ))) (else (let ((e-2 (vector-ref sc5 1))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (let ((sc6 eta-1)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc6 1))) (vector 1 (vector 1 e-7))))))) (CompilerC-45Inline-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-2) eta-0))))))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-1) (lambda (eta-2) (CompilerC-45Inline-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1 eta-2))) e-41 '() eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc6 1))) (vector 1 (CompilerC-45CaseOpts-caseOfCase (vector 11 e-39 e-5 e-8 e-7)))))))))))))) (else (let ((e-2 (vector-ref sc4 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-44 (vector-ref sc1 1))) (let ((e-45 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (CompilerC-45Inline-unload arg-6 (vector 12 e-44 e-45))))))) ((13) (let ((e-47 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 (CompilerC-45Inline-unload arg-6 (vector 13 e-47)))))) (else (let ((e-49 (vector-ref sc1 1))) (let ((e-50 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (CompilerC-45Inline-unload arg-6 (vector 14 e-49 e-50))))))))))))))))))))) -(define CompilerC-45Inline-doEval (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (CoreC-45Core-newRef (vector "Compiler.Inline.LVar" ) 0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (CoreC-45ContextC-45Log-log arg-1 "compiler.inline.eval" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name arg-2) (PreludeC-45TypesC-45String-C-43C-43 ": " (CoreC-45CompileExpr-u--show_Show_C-40CExpC-32C-36varsC-41 arg-0 arg-3)))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 ((CompilerC-45Inline-eval '() arg-0 arg-1 e-5 '() '() '() arg-3) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (CoreC-45ContextC-45Log-log arg-1 "compiler.inline.eval" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Inlined: " (CoreC-45CompileExpr-u--show_Show_C-40CExpC-32C-36varsC-41 arg-0 e-7))) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (vector 1 e-7))))))))))))))))))))) -(define CompilerC-45Inline-compileAndInlineAll (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((u--ns (LibrariesC-45DataC-45NameMap-keys (let ((sc1 e-5)) (let ((e-23 (vector-ref sc1 24))) e-23))))) (let ((act-25 (CoreC-45Core-filterM (lambda (eta-0) (lambda (eta-1) (CompilerC-45Inline-n--13202-5871-u--nonErased arg-0 eta-0 eta-1))) u--ns ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (CoreC-45Core-traverse_ (lambda (eta-0) (lambda (eta-1) (CompilerC-45CompileExpr-compileDef arg-0 eta-0 eta-1))) e-6 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-27 ((CompilerC-45Inline-n--13202-5870-u--transform arg-0 (+ 1 (+ 1 (+ 1 0))) e-6) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (CoreC-45Core-traverse_ (lambda (eta-0) (lambda (eta-1) (CompilerC-45Inline-updateCallGraph arg-0 eta-0 eta-1))) e-6 ext-0)))))))))))))))))))))) -(define CompilerC-45Inline-addRefsConstAlts (lambda (arg-1 arg-2) (let ((sc0 arg-2)) (if (null? sc0) arg-1 (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (let ((e-6 (cdr sc1))) (CompilerC-45Inline-addRefsConstAlts (CompilerC-45Inline-addRefs arg-1 e-6) e-3))))))))) -(define CompilerC-45Inline-addRefsConAlts (lambda (arg-1 arg-2) (let ((sc0 arg-2)) (if (null? sc0) arg-1 (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (let ((e-9 (vector-ref sc1 5))) (CompilerC-45Inline-addRefsConAlts (CompilerC-45Inline-addRefs arg-1 e-9) e-3))))))))) -(define CompilerC-45Inline-addRefsArgs (lambda (arg-1 arg-2) (let ((sc0 arg-2)) (if (null? sc0) arg-1 (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (CompilerC-45Inline-addRefsArgs (CompilerC-45Inline-addRefs arg-1 e-2) e-3))))))) -(define CompilerC-45Inline-addRefs (lambda (arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 2))) (LibrariesC-45DataC-45NameMap-insert e-2 1 arg-1))) ((2) (let ((e-6 (vector-ref sc0 3))) (CompilerC-45Inline-addRefs arg-1 e-6))) ((3) (let ((e-11 (vector-ref sc0 4))) (let ((e-12 (vector-ref sc0 5))) (CompilerC-45Inline-addRefs (CompilerC-45Inline-addRefs arg-1 e-11) e-12)))) ((4) (let ((e-15 (vector-ref sc0 2))) (let ((e-16 (vector-ref sc0 3))) (CompilerC-45Inline-addRefsArgs (CompilerC-45Inline-addRefs arg-1 e-15) e-16)))) ((5) (let ((e-22 (vector-ref sc0 5))) (CompilerC-45Inline-addRefsArgs arg-1 e-22))) ((6) (let ((e-27 (vector-ref sc0 4))) (CompilerC-45Inline-addRefsArgs arg-1 (DataC-45List-toList (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (DataC-45Vect-u--foldr_Foldable_C-40VectC-32C-36nC-41 u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (DataC-45Vect-u--foldl_Foldable_C-40VectC-32C-36nC-41 u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (DataC-45Vect-u--null_Foldable_C-40VectC-32C-36nC-41 arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (DataC-45Vect-u--foldlM_Foldable_C-40VectC-32C-36nC-41 i_con-0 u--funcM u--init u--input))))))))) e-27)))) ((7) (let ((e-31 (vector-ref sc0 3))) (CompilerC-45Inline-addRefsArgs arg-1 e-31))) ((8) (let ((e-35 (vector-ref sc0 3))) (CompilerC-45Inline-addRefs arg-1 e-35))) ((9) (let ((e-39 (vector-ref sc0 3))) (CompilerC-45Inline-addRefs arg-1 e-39))) ((10) (let ((e-42 (vector-ref sc0 2))) (let ((e-43 (vector-ref sc0 3))) (let ((e-44 (vector-ref sc0 4))) (let ((u--dsC-39 (PreludeC-45Types-maybe (lambda () arg-1) (lambda () (lambda (eta-0) (CompilerC-45Inline-addRefs arg-1 eta-0))) e-44))) (CompilerC-45Inline-addRefsConAlts (CompilerC-45Inline-addRefs u--dsC-39 e-42) e-43)))))) ((11) (let ((e-47 (vector-ref sc0 2))) (let ((e-48 (vector-ref sc0 3))) (let ((e-49 (vector-ref sc0 4))) (let ((u--dsC-39 (PreludeC-45Types-maybe (lambda () arg-1) (lambda () (lambda (eta-0) (CompilerC-45Inline-addRefs arg-1 eta-0))) e-49))) (CompilerC-45Inline-addRefsConstAlts (CompilerC-45Inline-addRefs u--dsC-39 e-47) e-48))))))(else arg-1))))) -(define CompilerC-45CaseOpts-case--tryCaseOfCase-2330 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (vector 1 (CompilerC-45CaseOpts-doCaseOfConstCase arg-3 arg-2 arg-1 arg-5 arg-4))) (else (vector 0 )))))) -(define CompilerC-45CaseOpts-case--tryCaseOfCase-2256 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (vector 1 (CompilerC-45CaseOpts-doCaseOfCase arg-3 arg-2 arg-1 arg-5 arg-4))) (else (vector 0 )))))) -(define CompilerC-45CaseOpts-case--caseC-32blockC-32inC-32caseLamDef-2105 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((act-24 (CompilerC-45CaseOpts-n--9725-2051-u--doCaseLam arg-0 arg-1 e-1 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (CoreC-45Context-setCompiled arg-1 arg-0 e-5 ext-0)))))))) (else (vector 1 (vector 0 ))))))) -(define CompilerC-45CaseOpts-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseLam-1766 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 ext-0) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (CompilerC-45CaseOpts-caseLamConstAlt arg-5 eta-0 eta-1))) arg-7 '() ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((sc2 e-1)) (case (vector-ref sc2 0) ((0) (vector 1 (vector 0 ))) (else (let ((e-2 (vector-ref sc2 1))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc3 eta-0)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 (vector 1 e-6))))))) (CompilerC-45CaseOpts-caseLam arg-5 e-2) ext-0))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 2 arg-4 arg-6 (vector 11 arg-4 (CoreC-45CompileExpr-u--weaken_Weaken_CExp arg-3) e-5 e-6))))))))))))))) (else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 "Can't happen caseLam 2") ext-0)))))) -(define CompilerC-45CaseOpts-case--caseC-32blockC-32inC-32caseLam-1744 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (CompilerC-45CaseOpts-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseLam-1766 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-1 (CompilerC-45CaseOpts-tryLiftDef arg-6 arg-1) eta-0)))) (else (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 "Can't happen caseLam 1") eta-0))))))) -(define CompilerC-45CaseOpts-case--caseLam-1721 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (let ((act-24 (CompilerC-45CaseOpts-getName arg-5 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((CompilerC-45CaseOpts-case--caseC-32blockC-32inC-32caseLam-1744 arg-1 arg-2 arg-3 arg-4 arg-5 e-5 (CompilerC-45CaseOpts-tryLiftOutConst e-5 arg-2)) ext-0))))))) (else (let ((act-24 ((CompilerC-45CaseOpts-caseLam arg-5 arg-3) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (CompilerC-45CaseOpts-caseLamConstAlt arg-5 eta-0 eta-1))) arg-2 '() ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 0 ))) (else (let ((e-2 (vector-ref sc3 1))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc4 eta-0)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc4 1))) (vector 1 (vector 1 e-7))))))) (CompilerC-45CaseOpts-caseLam arg-5 e-2) ext-0))))))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 11 arg-4 e-5 e-6 e-7)))))))))))))))))))))) -(define CompilerC-45CaseOpts-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseLam-1555 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 ext-0) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (CompilerC-45CaseOpts-caseLamConAlt arg-5 eta-0 eta-1))) arg-7 '() ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((sc2 e-1)) (case (vector-ref sc2 0) ((0) (vector 1 (vector 0 ))) (else (let ((e-2 (vector-ref sc2 1))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc3 eta-0)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 (vector 1 e-6))))))) (CompilerC-45CaseOpts-caseLam arg-5 e-2) ext-0))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 2 arg-4 arg-6 (vector 10 arg-4 (CoreC-45CompileExpr-u--weaken_Weaken_CExp arg-3) e-5 e-6))))))))))))))) (else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 "Can't happen caseLam 2") ext-0)))))) -(define CompilerC-45CaseOpts-case--caseC-32blockC-32inC-32caseLam-1533 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (CompilerC-45CaseOpts-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseLam-1555 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-1 (CompilerC-45CaseOpts-tryLiftDef arg-6 arg-1) eta-0)))) (else (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 "Can't happen caseLam 1") eta-0))))))) -(define CompilerC-45CaseOpts-case--caseLam-1510 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (let ((act-24 (CompilerC-45CaseOpts-getName arg-5 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((CompilerC-45CaseOpts-case--caseC-32blockC-32inC-32caseLam-1533 arg-1 arg-2 arg-3 arg-4 arg-5 e-5 (CompilerC-45CaseOpts-tryLiftOut e-5 arg-2)) ext-0))))))) (else (let ((act-24 ((CompilerC-45CaseOpts-caseLam arg-5 arg-3) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (CompilerC-45CaseOpts-caseLamConAlt arg-5 eta-0 eta-1))) arg-2 '() ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 0 ))) (else (let ((e-2 (vector-ref sc3 1))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc4 eta-0)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc4 1))) (vector 1 (vector 1 e-7))))))) (CompilerC-45CaseOpts-caseLam arg-5 e-2) ext-0))))))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 10 arg-4 e-5 e-6 e-7)))))))))))))))))))))) -(define CompilerC-45CaseOpts-case--shiftBinder-847 (lambda (arg-2 arg-3 arg-5 arg-7 arg-8 arg-9) (vector 0 arg-9 arg-7))) -(define CompilerC-45CaseOpts-case--shiftVar-710 (lambda (arg-3 arg-4 arg-5 arg-6 arg-8 arg-9) (+ 1 arg-9))) -(define CompilerC-45CaseOpts-n--9880-2190-u--updateAlt (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-1 (car sc0))) (let ((e-2 (cdr sc0))) (cons e-1 (vector 11 arg-5 e-2 arg-2 arg-1))))))) -(define CompilerC-45CaseOpts-n--9833-2150-u--updateAlt (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (vector 0 e-1 e-2 e-3 e-4 (vector 10 arg-5 e-5 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45CompileExpr-u--weakenNs_Weaken_CConAlt (CoreC-45TTC-45SizeOf-mkSizeOf e-4) eta-0)) arg-2) (PreludeC-45Types-u--map_Functor_Maybe (lambda (eta-0) (CoreC-45CompileExpr-u--weakenNs_Weaken_CExp (CoreC-45TTC-45SizeOf-mkSizeOf e-4) eta-0)) arg-1))))))))))) -(define CompilerC-45CaseOpts-n--10086-2373-u--go (lambda (arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-3)(else (let ((e-0 (- arg-2 1))) (PreludeC-45Types-maybe (lambda () arg-3) (lambda () (lambda (eta-0) (CompilerC-45CaseOpts-n--10086-2373-u--go arg-1 e-0 eta-0))) (CompilerC-45CaseOpts-tryCaseOfCase arg-3)))))))) -(define CompilerC-45CaseOpts-n--9725-2051-u--doCaseLam (lambda (arg-0 arg-1 arg-2 ext-0) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((act-24 (CoreC-45Core-newRef (vector "Compiler.CaseOpts.NextName" ) 0 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((CompilerC-45CaseOpts-caseLam e-5 e-1) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 0 e-0 e-6)))))))))))))))(else (vector 1 arg-2)))))) -(define CompilerC-45CaseOpts-n--9127-1702-u--defLam (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((2) 0)(else 1)))))(else 1))))) -(define CompilerC-45CaseOpts-n--9127-1491-u--defLam (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((2) 0)(else 1)))))(else 1))))) -(define CompilerC-45CaseOpts-n--9903-2299-u--constCase (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (if (null? sc0) 1 (let ((e-2 (cdr sc0))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((12) 0)(else 1)))))))) -(define CompilerC-45CaseOpts-n--9903-2213-u--conCase (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-5 (vector-ref sc0 5))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((5) 0)(else 1)))))(else 1))))) -(define CompilerC-45CaseOpts-n--9903-2300-u--canCaseOfCase (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (if (null? sc0) 0 (let ((e-3 (cdr sc0))) (let ((sc1 e-3)) (if (null? sc1) 0 (PreludeC-45Interfaces-all (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (lambda (eta-0) (CompilerC-45CaseOpts-n--9903-2299-u--constCase arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-0)) arg-7)))))))) -(define CompilerC-45CaseOpts-n--9903-2214-u--canCaseOfCase (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (if (null? sc0) 0 (let ((e-3 (cdr sc0))) (let ((sc1 e-3)) (if (null? sc1) 0 (PreludeC-45Interfaces-all (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (lambda (eta-0) (CompilerC-45CaseOpts-n--9903-2213-u--conCase arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-0)) arg-7)))))))) -(define CompilerC-45CaseOpts-tryLiftOutConst (lambda (arg-1 arg-2) (let ((sc0 arg-2)) (if (null? sc0) (vector 1 '()) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (if (null? sc1) (vector 0 ) (let ((e-5 (car sc1))) (let ((e-6 (cdr sc1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((2) (let ((e-10 (vector-ref sc2 3))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CompilerC-45CaseOpts-tryLiftOutConst arg-1 e-3) (lambda (u--asC-39) (let ((u--scC-39 (CompilerC-45CaseOpts-liftOutLambda '() arg-1 e-10))) (PreludeC-45Types-u--pure_Applicative_Maybe (cons (cons e-5 u--scC-39) u--asC-39)))))))(else (vector 0 )))))))))))))) -(define CompilerC-45CaseOpts-tryLiftOut (lambda (arg-1 arg-2) (let ((sc0 arg-2)) (if (null? sc0) (vector 1 '()) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((e-7 (vector-ref sc1 3))) (let ((e-8 (vector-ref sc1 4))) (let ((e-9 (vector-ref sc1 5))) (let ((sc2 e-9)) (case (vector-ref sc2 0) ((2) (let ((e-13 (vector-ref sc2 3))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CompilerC-45CaseOpts-tryLiftOut arg-1 e-3) (lambda (u--asC-39) (let ((u--scC-39 (CompilerC-45CaseOpts-liftOutLambda e-8 arg-1 e-13))) (PreludeC-45Types-u--pure_Applicative_Maybe (cons (vector 0 e-5 e-6 e-7 e-8 u--scC-39) u--asC-39)))))))(else (vector 0 ))))))))))(else (vector 0 )))))))))) -(define CompilerC-45CaseOpts-tryLiftDef (lambda (arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 1 (vector 0 ))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((2) (let ((e-6 (vector-ref sc1 3))) (let ((u--scC-39 (CompilerC-45CaseOpts-liftOutLambda '() arg-1 e-6))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 1 u--scC-39)))))(else (vector 0 ))))))(else (vector 0 )))))) -(define CompilerC-45CaseOpts-tryCaseOfCase (lambda (arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((10) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((10) (let ((e-11 (vector-ref sc1 1))) (let ((e-12 (vector-ref sc1 2))) (let ((e-13 (vector-ref sc1 3))) (let ((e-14 (vector-ref sc1 4))) (let ((sc2 e-14)) (case (vector-ref sc2 0) ((0) (CompilerC-45CaseOpts-case--tryCaseOfCase-2256 e-13 e-12 e-11 e-4 e-3 e-1 (CompilerC-45CaseOpts-n--9903-2214-u--canCaseOfCase e-13 e-12 e-11 e-4 e-3 e-1 e-13)))(else (vector 0 )))))))))(else (vector 0 ))))))))) ((11) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (let ((e-9 (vector-ref sc0 4))) (let ((sc1 e-7)) (case (vector-ref sc1 0) ((11) (let ((e-17 (vector-ref sc1 1))) (let ((e-18 (vector-ref sc1 2))) (let ((e-19 (vector-ref sc1 3))) (let ((e-20 (vector-ref sc1 4))) (let ((sc2 e-20)) (case (vector-ref sc2 0) ((0) (CompilerC-45CaseOpts-case--tryCaseOfCase-2330 e-19 e-18 e-17 e-9 e-8 e-6 (CompilerC-45CaseOpts-n--9903-2300-u--canCaseOfCase e-19 e-18 e-17 e-9 e-8 e-6 e-19)))(else (vector 0 )))))))))(else (vector 0 )))))))))(else (vector 0 )))))) -(define CompilerC-45CaseOpts-shiftVar (lambda (arg-3 arg-4 arg-5) (let ((sc0 arg-3)) (if (null? sc0) (CompilerC-45CaseOpts-shiftUnder arg-4 arg-5) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 arg-5)) (cond ((equal? sc1 0) 0)(else (let ((e-4 (- arg-5 1))) (let ((u--idx (+ 1 e-4))) (CompilerC-45CaseOpts-case--shiftVar-710 arg-4 e-4 e-2 e-3 u--idx (CompilerC-45CaseOpts-shiftVar e-3 arg-4 e-4))))))))))))) -(define CompilerC-45CaseOpts-shiftUnder (lambda (arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (CoreC-45TT-weakenNVar (CoreC-45TTC-45SizeOf-mkSizeOf arg-3) 0))(else (let ((e-0 (- arg-4 1))) (CoreC-45TT-insertNVar (CoreC-45TTC-45SizeOf-mkSizeOf arg-3) e-0))))))) -(define CompilerC-45CaseOpts-shiftBinderConstAlt (lambda (arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (let ((e-1 (car sc0))) (let ((e-2 (cdr sc0))) (cons e-1 (CompilerC-45CaseOpts-shiftBinder arg-2 arg-3 arg-4 e-2))))))) -(define CompilerC-45CaseOpts-shiftBinderConAlt (lambda (arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((u--scC-39 e-5)) (vector 0 e-1 e-2 e-3 e-4 (CompilerC-45CaseOpts-shiftBinder (PreludeC-45TypesC-45List-C-43C-43 e-4 arg-2) arg-3 arg-4 u--scC-39))))))))))) -(define CompilerC-45CaseOpts-shiftBinder (lambda (arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (CompilerC-45CaseOpts-case--shiftBinder-847 arg-2 arg-3 e-2 e-3 arg-4 (CompilerC-45CaseOpts-shiftVar arg-2 arg-3 e-2))))) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (vector 1 e-6 e-7)))) ((2) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (vector 2 e-9 e-10 (CompilerC-45CaseOpts-shiftBinder (cons e-10 arg-2) arg-3 arg-4 e-11)))))) ((3) (let ((e-13 (vector-ref sc0 1))) (let ((e-14 (vector-ref sc0 2))) (let ((e-15 (vector-ref sc0 3))) (let ((e-16 (vector-ref sc0 4))) (let ((e-17 (vector-ref sc0 5))) (vector 3 e-13 e-14 e-15 (CompilerC-45CaseOpts-shiftBinder arg-2 arg-3 arg-4 e-16) (CompilerC-45CaseOpts-shiftBinder (cons e-14 arg-2) arg-3 arg-4 e-17)))))))) ((4) (let ((e-19 (vector-ref sc0 1))) (let ((e-20 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 3))) (vector 4 e-19 (CompilerC-45CaseOpts-shiftBinder arg-2 arg-3 arg-4 e-20) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CompilerC-45CaseOpts-shiftBinder arg-2 arg-3 arg-4 eta-0)) e-21)))))) ((5) (let ((e-23 (vector-ref sc0 1))) (let ((e-24 (vector-ref sc0 2))) (let ((e-25 (vector-ref sc0 3))) (let ((e-26 (vector-ref sc0 4))) (let ((e-27 (vector-ref sc0 5))) (vector 5 e-23 e-24 e-25 e-26 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CompilerC-45CaseOpts-shiftBinder arg-2 arg-3 arg-4 eta-0)) e-27)))))))) ((6) (let ((e-29 (vector-ref sc0 1))) (let ((e-30 (vector-ref sc0 2))) (let ((e-31 (vector-ref sc0 3))) (let ((e-32 (vector-ref sc0 4))) (vector 6 e-29 e-30 e-31 (DataC-45Vect-u--map_Functor_C-40VectC-32C-36nC-41 (lambda (eta-0) (CompilerC-45CaseOpts-shiftBinder arg-2 arg-3 arg-4 eta-0)) e-32))))))) ((7) (let ((e-34 (vector-ref sc0 1))) (let ((e-35 (vector-ref sc0 2))) (let ((e-36 (vector-ref sc0 3))) (vector 7 e-34 e-35 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CompilerC-45CaseOpts-shiftBinder arg-2 arg-3 arg-4 eta-0)) e-36)))))) ((8) (let ((e-38 (vector-ref sc0 1))) (let ((e-39 (vector-ref sc0 2))) (let ((e-40 (vector-ref sc0 3))) (vector 8 e-38 e-39 (CompilerC-45CaseOpts-shiftBinder arg-2 arg-3 arg-4 e-40)))))) ((9) (let ((e-42 (vector-ref sc0 1))) (let ((e-43 (vector-ref sc0 2))) (let ((e-44 (vector-ref sc0 3))) (vector 9 e-42 e-43 (CompilerC-45CaseOpts-shiftBinder arg-2 arg-3 arg-4 e-44)))))) ((10) (let ((e-46 (vector-ref sc0 1))) (let ((e-47 (vector-ref sc0 2))) (let ((e-48 (vector-ref sc0 3))) (let ((e-49 (vector-ref sc0 4))) (vector 10 e-46 (CompilerC-45CaseOpts-shiftBinder arg-2 arg-3 arg-4 e-47) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CompilerC-45CaseOpts-shiftBinderConAlt arg-2 arg-3 arg-4 eta-0)) e-48) (PreludeC-45Types-u--map_Functor_Maybe (lambda (eta-0) (CompilerC-45CaseOpts-shiftBinder arg-2 arg-3 arg-4 eta-0)) e-49))))))) ((11) (let ((e-51 (vector-ref sc0 1))) (let ((e-52 (vector-ref sc0 2))) (let ((e-53 (vector-ref sc0 3))) (let ((e-54 (vector-ref sc0 4))) (vector 11 e-51 (CompilerC-45CaseOpts-shiftBinder arg-2 arg-3 arg-4 e-52) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CompilerC-45CaseOpts-shiftBinderConstAlt arg-2 arg-3 arg-4 eta-0)) e-53) (PreludeC-45Types-u--map_Functor_Maybe (lambda (eta-0) (CompilerC-45CaseOpts-shiftBinder arg-2 arg-3 arg-4 eta-0)) e-54))))))) ((12) (let ((e-56 (vector-ref sc0 1))) (let ((e-57 (vector-ref sc0 2))) (vector 12 e-56 e-57)))) ((13) (let ((e-59 (vector-ref sc0 1))) (vector 13 e-59))) (else (let ((e-61 (vector-ref sc0 1))) (let ((e-62 (vector-ref sc0 2))) (vector 14 e-61 e-62)))))))) -(define CompilerC-45CaseOpts-liftOutLambda (lambda (arg-2 ext-0 ext-1) (CompilerC-45CaseOpts-shiftBinder '() arg-2 ext-0 ext-1))) -(define CompilerC-45CaseOpts-getName (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (set-box! arg-0 (bs+ e-5 1 63)))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 2 "clam" e-5))))))))))))) -(define CompilerC-45CaseOpts-doCaseOfConstCase (lambda (arg-1 arg-2 arg-3 arg-4 arg-5) (vector 11 arg-1 arg-2 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CompilerC-45CaseOpts-n--9880-2190-u--updateAlt arg-5 arg-4 arg-3 arg-2 arg-1 eta-0)) arg-3) (vector 0 )))) -(define CompilerC-45CaseOpts-doCaseOfCase (lambda (arg-1 arg-2 arg-3 arg-4 arg-5) (vector 10 arg-1 arg-2 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CompilerC-45CaseOpts-n--9833-2150-u--updateAlt arg-5 arg-4 arg-3 arg-2 arg-1 eta-0)) arg-3) (vector 0 )))) -(define CompilerC-45CaseOpts-caseOfCase (lambda (arg-1) (CompilerC-45CaseOpts-n--10086-2373-u--go arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) arg-1))) -(define CompilerC-45CaseOpts-caseLamDef (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact arg-1 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((_-0 (vector 1 e-1))) (CompilerC-45CaseOpts-case--caseC-32blockC-32inC-32caseLamDef-2105 arg-1 arg-0 e-5 e-1 _-0 (let ((sc3 e-1)) (let ((e-18 (vector-ref sc3 19))) e-18)) ext-0)))) (else (vector 1 (vector 0 ))))))))))))))))) -(define CompilerC-45CaseOpts-caseLamConstAlt (lambda (arg-1 arg-2 ext-0) (let ((sc0 arg-2)) (let ((e-1 (car sc0))) (let ((e-2 (cdr sc0))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc1 eta-0)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (cons e-1 e-5))))))) (CompilerC-45CaseOpts-caseLam arg-1 e-2) ext-0)))))) -(define CompilerC-45CaseOpts-caseLamConAlt (lambda (arg-1 arg-2 ext-0) (let ((sc0 arg-2)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc1 eta-0)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 (vector 0 e-1 e-2 e-3 e-4 e-6))))))) (CompilerC-45CaseOpts-caseLam arg-1 e-5) ext-0))))))))) -(define CompilerC-45CaseOpts-caseLam (lambda (arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((10) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (lambda (eta-0) (CompilerC-45CaseOpts-case--caseLam-1510 e-4 e-3 e-2 e-1 arg-1 (PreludeC-45Basics-C-38C-38 (CompilerC-45CaseOpts-allLams e-3) (lambda () (CompilerC-45CaseOpts-n--9127-1491-u--defLam e-4 e-3 e-2 e-1 arg-1 e-4))) eta-0))))))) ((11) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (let ((e-9 (vector-ref sc0 4))) (lambda (eta-0) (CompilerC-45CaseOpts-case--caseLam-1721 e-9 e-8 e-7 e-6 arg-1 (PreludeC-45Basics-C-38C-38 (CompilerC-45CaseOpts-allLamsConst e-8) (lambda () (CompilerC-45CaseOpts-n--9127-1702-u--defLam e-9 e-8 e-7 e-6 arg-1 e-9))) eta-0))))))) ((2) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 2 e-11 e-12 e-5))))))) (CompilerC-45CaseOpts-caseLam arg-1 e-13) eta-0)))))) ((3) (let ((e-15 (vector-ref sc0 1))) (let ((e-16 (vector-ref sc0 2))) (let ((e-17 (vector-ref sc0 3))) (let ((e-18 (vector-ref sc0 4))) (let ((e-19 (vector-ref sc0 5))) (lambda (eta-0) (CoreC-45Core-C-60C-42C-62 (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-2) (let ((sc1 eta-2)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-3) (vector 3 e-15 e-16 e-17 e-5 eta-3)))))))) (CompilerC-45CaseOpts-caseLam arg-1 e-18) eta-1)) (CompilerC-45CaseOpts-caseLam arg-1 e-19) eta-0)))))))) ((4) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (lambda (eta-0) (CoreC-45Core-C-60C-42C-62 (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-2) (let ((sc1 eta-2)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-3) (vector 4 e-21 e-5 eta-3)))))))) (CompilerC-45CaseOpts-caseLam arg-1 e-22) eta-1)) (lambda (eta-1) (CoreC-45Core-traverseC-39 (lambda (eta-2) (CompilerC-45CaseOpts-caseLam arg-1 eta-2)) e-23 '() eta-1)) eta-0)))))) ((5) (let ((e-25 (vector-ref sc0 1))) (let ((e-26 (vector-ref sc0 2))) (let ((e-27 (vector-ref sc0 3))) (let ((e-28 (vector-ref sc0 4))) (let ((e-29 (vector-ref sc0 5))) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 5 e-25 e-26 e-27 e-28 e-5))))))) (lambda (eta-1) (CoreC-45Core-traverseC-39 (lambda (eta-2) (CompilerC-45CaseOpts-caseLam arg-1 eta-2)) e-29 '() eta-1)) eta-0)))))))) ((6) (let ((e-31 (vector-ref sc0 1))) (let ((e-32 (vector-ref sc0 2))) (let ((e-33 (vector-ref sc0 3))) (let ((e-34 (vector-ref sc0 4))) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 6 e-31 e-32 e-33 e-5))))))) (lambda (eta-1) (CoreC-45Core-traverseVect (lambda (eta-2) (CompilerC-45CaseOpts-caseLam arg-1 eta-2)) e-34 eta-1)) eta-0))))))) ((7) (let ((e-36 (vector-ref sc0 1))) (let ((e-37 (vector-ref sc0 2))) (let ((e-38 (vector-ref sc0 3))) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 7 e-36 e-37 e-5))))))) (lambda (eta-1) (CoreC-45Core-traverseC-39 (lambda (eta-2) (CompilerC-45CaseOpts-caseLam arg-1 eta-2)) e-38 '() eta-1)) eta-0)))))) ((8) (let ((e-40 (vector-ref sc0 1))) (let ((e-41 (vector-ref sc0 2))) (let ((e-42 (vector-ref sc0 3))) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 8 e-40 e-41 e-5))))))) (CompilerC-45CaseOpts-caseLam arg-1 e-42) eta-0)))))) ((9) (let ((e-44 (vector-ref sc0 1))) (let ((e-45 (vector-ref sc0 2))) (let ((e-46 (vector-ref sc0 3))) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 9 e-44 e-45 e-5))))))) (CompilerC-45CaseOpts-caseLam arg-1 e-46) eta-0))))))(else (lambda (eta-0) (vector 1 arg-2))))))) -(define CompilerC-45CaseOpts-allLamsConst (lambda (arg-1) (let ((sc0 arg-1)) (if (null? sc0) 0 (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (if (null? sc1) 1 (let ((e-6 (cdr sc1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((2) (CompilerC-45CaseOpts-allLamsConst e-3))(else 1)))))))))))) -(define CompilerC-45CaseOpts-allLams (lambda (arg-1) (let ((sc0 arg-1)) (if (null? sc0) 0 (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-9 (vector-ref sc1 5))) (let ((sc2 e-9)) (case (vector-ref sc2 0) ((2) (CompilerC-45CaseOpts-allLams e-3))(else 1)))))(else 1))))))))) -(define IdrisC-45PrettyC-45Render-case--render-862 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-reAnnotateS arg-2 arg-8)) (else (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unAnnotateS arg-8)))))) -(define IdrisC-45PrettyC-45Render-case--caseC-32blockC-32inC-32getPageWidth-771 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) '()) (else (cons arg-2 1.0)))))) -(define IdrisC-45PrettyC-45Render-renderWithoutColor (lambda (arg-1 arg-2 ext-0) (let ((act-24 (IdrisC-45PrettyC-45Render-getPageWidth arg-1 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((u--opts e-5)) (let ((u--layout (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-layoutPretty u--opts arg-2))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45RenderC-45Terminal-renderString (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unAnnotateS u--layout)))))))))))) -(define IdrisC-45PrettyC-45Render-render (lambda (arg-1 arg-2 arg-3 ext-0) (let ((act-24 (IdrisC-45REPLC-45Opts-getColor arg-1 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc1 eta-0)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 (PreludeC-45Types-u--C-61C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-61C-61_Eq_String arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_String arg-4 arg-5)))) (vector 1 "dumb") e-6))))))) (lambda (eta-0) (let ((act-25 ((System-getEnv (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-1)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-1) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-1) (let ((act-17 (arg-578 eta-1))) (let ((act-16 (arg-580 eta-1))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-1) (let ((act-25 (arg-876 eta-1))) ((arg-877 act-25) eta-1))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-1) (let ((act-51 (arg-879 eta-1))) (act-51 eta-1)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) "TERM") eta-0))) (vector 1 act-25))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (IdrisC-45PrettyC-45Render-getPageWidth arg-1 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((u--opts e-7)) (let ((u--layout (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-layoutPretty u--opts arg-3))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45RenderC-45Terminal-renderString (IdrisC-45PrettyC-45Render-case--render-862 arg-3 arg-2 arg-1 e-5 e-6 e-7 u--opts u--layout (PreludeC-45Basics-C-38C-38 e-5 (lambda () (let ((sc3 e-6)) (cond ((equal? sc3 0) 1) (else 0))))))))))))))))))))))))))) -(define IdrisC-45PrettyC-45Render-getPageWidth (lambda (arg-0 ext-0) (let ((act-24 (IdrisC-45REPLC-45Opts-getConsoleWidth arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((0) (let ((act-25 (let ((act-25 (LibrariesC-45UtilsC-45Term-getTermCols ext-0))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (let ((u--consoleWidth (vector 0 ))) (IdrisC-45PrettyC-45Render-case--caseC-32blockC-32inC-32getPageWidth-771 arg-0 u--consoleWidth e-6 (PreludeC-45EqOrd-u--C-61C-61_Eq_Int e-6 (blodwen-toSignedInt 0 63))))))))))) (else (let ((e-2 (vector-ref sc1 1))) (let ((sc2 e-2)) (cond ((equal? sc2 0) (vector 1 '()))(else (vector 1 (cons (PreludeC-45Cast-u--cast_Cast_Nat_Int e-2) 1.0)))))))))))))))) -(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45RenderC-45Terminal-n--3356-754-u--writeOutput (lambda (arg-0 arg-2 arg-3 ext-0) (ControlC-45MonadC-45ST-modifySTRef arg-2 (lambda (arg-1) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_String arg-1 arg-3)) ext-0))) -(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45RenderC-45Terminal-n--3356-751-u--push (lambda (arg-0 arg-2 arg-3 ext-0) (ControlC-45MonadC-45ST-modifySTRef arg-2 (lambda (arg-1) (cons arg-3 arg-1)) ext-0))) -(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45RenderC-45Terminal-n--3356-753-u--pop (lambda (arg-0 arg-2 ext-0) (ControlC-45MonadC-45ST-u--C-62C-62C-61_Monad_C-40STC-32C-36sC-41 (lambda (eta-0) (unbox arg-2)) (lambda (_-0) (let ((sc0 _-0)) (if (null? sc0) (lambda (eta-0) (ControlC-45MonadC-45ST-u--pure_Applicative_C-40STC-32C-36sC-41 (vector 0 ) eta-0)) (let ((e-1 (car sc0))) (let ((e-2 (cdr sc0))) (PreludeC-45Interfaces-C-62C-62 (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (ControlC-45MonadC-45ST-u--map_Functor_C-40STC-32C-36sC-41 u--func arg-143 eta-0)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-0) (ControlC-45MonadC-45ST-u--pure_Applicative_C-40STC-32C-36sC-41 arg-577 eta-0)))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (ControlC-45MonadC-45ST-u--C-60C-42C-62_Applicative_C-40STC-32C-36sC-41 arg-578 arg-580 eta-0))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (ControlC-45MonadC-45ST-u--C-62C-62C-61_Monad_C-40STC-32C-36sC-41 arg-876 arg-877 eta-0)))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-0) (ControlC-45MonadC-45ST-u--join_Monad_C-40STC-32C-36sC-41 arg-879 eta-0))))) (lambda (eta-0) (set-box! arg-2 e-2)) (lambda () (lambda (eta-0) (ControlC-45MonadC-45ST-u--pure_Applicative_C-40STC-32C-36sC-41 (vector 1 e-1) eta-0))))))))) ext-0))) -(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45RenderC-45Terminal-n--3356-752-u--peek (lambda (arg-0 arg-2 ext-0) (ControlC-45MonadC-45ST-u--C-62C-62C-61_Monad_C-40STC-32C-36sC-41 (lambda (eta-0) (unbox arg-2)) (lambda (_-0) (lambda (clam-0) (let ((sc0 _-0)) (if (null? sc0) (ControlC-45MonadC-45ST-u--pure_Applicative_C-40STC-32C-36sC-41 (vector 0 ) clam-0) (let ((e-1 (car sc0))) (ControlC-45MonadC-45ST-u--pure_Applicative_C-40STC-32C-36sC-41 (vector 1 e-1) clam-0)))))) ext-0))) -(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45RenderC-45Terminal-n--3356-755-u--go (lambda (arg-0 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (ControlC-45MonadC-45ST-u--pure_Applicative_C-40STC-32C-36sC-41 (vector 0 ) eta-0))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (PreludeC-45Interfaces-C-62C-62 (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (ControlC-45MonadC-45ST-u--map_Functor_C-40STC-32C-36sC-41 u--func arg-143 eta-0)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-0) (ControlC-45MonadC-45ST-u--pure_Applicative_C-40STC-32C-36sC-41 arg-577 eta-0)))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (ControlC-45MonadC-45ST-u--C-60C-42C-62_Applicative_C-40STC-32C-36sC-41 arg-578 arg-580 eta-0))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (ControlC-45MonadC-45ST-u--C-62C-62C-61_Monad_C-40STC-32C-36sC-41 arg-876 arg-877 eta-0)))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-0) (ControlC-45MonadC-45ST-u--join_Monad_C-40STC-32C-36sC-41 arg-879 eta-0))))) (lambda (eta-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45RenderC-45Terminal-n--3356-754-u--writeOutput arg-0 arg-3 (DataC-45String-singleton e-2) eta-0)) (lambda () (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45RenderC-45Terminal-n--3356-755-u--go arg-0 arg-2 arg-3 (e-3))))))) ((2) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (PreludeC-45Interfaces-C-62C-62 (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (ControlC-45MonadC-45ST-u--map_Functor_C-40STC-32C-36sC-41 u--func arg-143 eta-0)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-0) (ControlC-45MonadC-45ST-u--pure_Applicative_C-40STC-32C-36sC-41 arg-577 eta-0)))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (ControlC-45MonadC-45ST-u--C-60C-42C-62_Applicative_C-40STC-32C-36sC-41 arg-578 arg-580 eta-0))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (ControlC-45MonadC-45ST-u--C-62C-62C-61_Monad_C-40STC-32C-36sC-41 arg-876 arg-877 eta-0)))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-0) (ControlC-45MonadC-45ST-u--join_Monad_C-40STC-32C-36sC-41 arg-879 eta-0))))) (lambda (eta-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45RenderC-45Terminal-n--3356-754-u--writeOutput arg-0 arg-3 e-6 eta-0)) (lambda () (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45RenderC-45Terminal-n--3356-755-u--go arg-0 arg-2 arg-3 (e-7))))))) ((3) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (PreludeC-45Interfaces-C-62C-62 (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (ControlC-45MonadC-45ST-u--map_Functor_C-40STC-32C-36sC-41 u--func arg-143 eta-0)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-0) (ControlC-45MonadC-45ST-u--pure_Applicative_C-40STC-32C-36sC-41 arg-577 eta-0)))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (ControlC-45MonadC-45ST-u--C-60C-42C-62_Applicative_C-40STC-32C-36sC-41 arg-578 arg-580 eta-0))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (ControlC-45MonadC-45ST-u--C-62C-62C-61_Monad_C-40STC-32C-36sC-41 arg-876 arg-877 eta-0)))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-0) (ControlC-45MonadC-45ST-u--join_Monad_C-40STC-32C-36sC-41 arg-879 eta-0))))) (lambda (eta-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45RenderC-45Terminal-n--3356-754-u--writeOutput arg-0 arg-3 (PreludeC-45Types-u--C-60C-43C-62_Semigroup_String (DataC-45String-singleton (integer->char 10)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-textSpaces e-9)) eta-0)) (lambda () (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45RenderC-45Terminal-n--3356-755-u--go arg-0 arg-2 arg-3 e-10)))))) ((4) (let ((e-12 (vector-ref sc0 1))) (let ((e-13 (vector-ref sc0 2))) (lambda (eta-0) (ControlC-45MonadC-45ST-u--C-62C-62C-61_Monad_C-40STC-32C-36sC-41 (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45RenderC-45Terminal-n--3356-752-u--peek arg-0 arg-2 eta-1)) (lambda (_-0) (let ((sc1 _-0)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((u--newStyle (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 e-12 e-1))) (PreludeC-45Interfaces-C-62C-62 (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-1) (ControlC-45MonadC-45ST-u--map_Functor_C-40STC-32C-36sC-41 u--func arg-143 eta-1)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-1) (ControlC-45MonadC-45ST-u--pure_Applicative_C-40STC-32C-36sC-41 arg-577 eta-1)))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-1) (ControlC-45MonadC-45ST-u--C-60C-42C-62_Applicative_C-40STC-32C-36sC-41 arg-578 arg-580 eta-1))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-1) (ControlC-45MonadC-45ST-u--C-62C-62C-61_Monad_C-40STC-32C-36sC-41 arg-876 arg-877 eta-1)))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-1) (ControlC-45MonadC-45ST-u--join_Monad_C-40STC-32C-36sC-41 arg-879 eta-1))))) (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45RenderC-45Terminal-n--3356-751-u--push arg-0 arg-2 u--newStyle eta-1)) (lambda () (PreludeC-45Interfaces-C-62C-62 (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-1) (ControlC-45MonadC-45ST-u--map_Functor_C-40STC-32C-36sC-41 u--func arg-143 eta-1)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-1) (ControlC-45MonadC-45ST-u--pure_Applicative_C-40STC-32C-36sC-41 arg-577 eta-1)))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-1) (ControlC-45MonadC-45ST-u--C-60C-42C-62_Applicative_C-40STC-32C-36sC-41 arg-578 arg-580 eta-1))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-1) (ControlC-45MonadC-45ST-u--C-62C-62C-61_Monad_C-40STC-32C-36sC-41 arg-876 arg-877 eta-1)))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-1) (ControlC-45MonadC-45ST-u--join_Monad_C-40STC-32C-36sC-41 arg-879 eta-1))))) (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45RenderC-45Terminal-n--3356-754-u--writeOutput arg-0 arg-3 (LibrariesC-45ControlC-45ANSIC-45SGR-escapeSGR u--newStyle) eta-1)) (lambda () (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45RenderC-45Terminal-n--3356-755-u--go arg-0 arg-2 arg-3 e-13)))))))) (else (lambda (eta-1) (set-box! arg-2 '())))))) eta-0))))) (else (let ((e-15 (vector-ref sc0 1))) (lambda (eta-0) (ControlC-45MonadC-45ST-u--C-62C-62C-61_Monad_C-40STC-32C-36sC-41 (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45RenderC-45Terminal-n--3356-753-u--pop arg-0 arg-2 eta-1)) (lambda (_-0) (lambda (eta-1) (ControlC-45MonadC-45ST-u--C-62C-62C-61_Monad_C-40STC-32C-36sC-41 (lambda (eta-2) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45RenderC-45Terminal-n--3356-752-u--peek arg-0 arg-2 eta-2)) (lambda (_-1) (let ((sc1 _-1)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (PreludeC-45Interfaces-C-62C-62 (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-2) (ControlC-45MonadC-45ST-u--map_Functor_C-40STC-32C-36sC-41 u--func arg-143 eta-2)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-2) (ControlC-45MonadC-45ST-u--pure_Applicative_C-40STC-32C-36sC-41 arg-577 eta-2)))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-2) (ControlC-45MonadC-45ST-u--C-60C-42C-62_Applicative_C-40STC-32C-36sC-41 arg-578 arg-580 eta-2))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-2) (ControlC-45MonadC-45ST-u--C-62C-62C-61_Monad_C-40STC-32C-36sC-41 arg-876 arg-877 eta-2)))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-2) (ControlC-45MonadC-45ST-u--join_Monad_C-40STC-32C-36sC-41 arg-879 eta-2))))) (lambda (eta-2) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45RenderC-45Terminal-n--3356-754-u--writeOutput arg-0 arg-3 (LibrariesC-45ControlC-45ANSIC-45SGR-escapeSGR (cons (vector 0 ) e-1)) eta-2)) (lambda () (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45RenderC-45Terminal-n--3356-755-u--go arg-0 arg-2 arg-3 e-15))))) (else (lambda (eta-2) (set-box! arg-2 '())))))) eta-1))) eta-0)))))))) -(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45RenderC-45Terminal-underline (lambda () (PreludeC-45Types-u--pure_Applicative_List (vector 3 (vector 4 ))))) -(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45RenderC-45Terminal-renderString (lambda (arg-0) (DataC-45Maybe-fromMaybe (lambda () "") (ControlC-45MonadC-45ST-runST (lambda (s-1068) (lambda (eta-0) (ControlC-45MonadC-45ST-u--C-62C-62C-61_Monad_C-40STC-32C-36sC-41 (lambda (eta-1) (ControlC-45MonadC-45ST-newSTRef (cons (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41) '()) eta-1)) (lambda (u--styleStackRef) (lambda (eta-1) (ControlC-45MonadC-45ST-u--C-62C-62C-61_Monad_C-40STC-32C-36sC-41 (lambda (eta-2) (ControlC-45MonadC-45ST-newSTRef (PreludeC-45Types-u--neutral_Monoid_String) eta-2)) (lambda (u--outputRef) (PreludeC-45Interfaces-C-62C-62 (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-2) (ControlC-45MonadC-45ST-u--map_Functor_C-40STC-32C-36sC-41 u--func arg-143 eta-2)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-2) (ControlC-45MonadC-45ST-u--pure_Applicative_C-40STC-32C-36sC-41 arg-577 eta-2)))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-2) (ControlC-45MonadC-45ST-u--C-60C-42C-62_Applicative_C-40STC-32C-36sC-41 arg-578 arg-580 eta-2))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-2) (ControlC-45MonadC-45ST-u--C-62C-62C-61_Monad_C-40STC-32C-36sC-41 arg-876 arg-877 eta-2)))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-2) (ControlC-45MonadC-45ST-u--join_Monad_C-40STC-32C-36sC-41 arg-879 eta-2))))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45RenderC-45Terminal-n--3356-755-u--go arg-0 u--styleStackRef u--outputRef arg-0) (lambda () (lambda (eta-2) (ControlC-45MonadC-45ST-u--C-62C-62C-61_Monad_C-40STC-32C-36sC-41 (lambda (eta-3) (unbox u--styleStackRef)) (lambda (lcase-0) (let ((sc0 lcase-0)) (if (null? sc0) (lambda (eta-3) (ControlC-45MonadC-45ST-u--pure_Applicative_C-40STC-32C-36sC-41 (vector 0 ) eta-3)) (let ((e-3 (cdr sc0))) (let ((sc1 e-3)) (if (null? sc1) (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (lambda (eta-7) (ControlC-45MonadC-45ST-u--map_Functor_C-40STC-32C-36sC-41 eta-5 eta-6 eta-7)))))) (lambda (eta-3) (vector 1 eta-3)) (lambda (eta-3) (unbox u--outputRef))) (lambda (eta-3) (ControlC-45MonadC-45ST-u--pure_Applicative_C-40STC-32C-36sC-41 (vector 0 ) eta-3)))))))) eta-2))))) eta-1))) eta-0))))))) +(define IdrisC-45REPLC-45Opts-getSourceLine (lambda (arg-0 arg-1 ext-0) (let ((act-24 (IdrisC-45REPLC-45Opts-getSource arg-0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (LibrariesC-45DataC-45ListC-45Extra-elemAt (DataC-45List1-forget (LibrariesC-45DataC-45StringC-45Extra-lines e-5)) (PreludeC-45Types-prim__integerToNat (PreludeC-45Cast-u--cast_Cast_Int_Integer (PreludeC-45Num-u--C-45_Neg_Int arg-1 1))))))))))) +(define IdrisC-45REPLC-45Opts-getSource (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (let ((e-4 (vector-ref e-5 4))) e-4)))))))) +(define IdrisC-45REPLC-45Opts-getOutput (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (let ((e-7 (vector-ref e-5 7))) e-7)))))))) +(define IdrisC-45REPLC-45Opts-getLitStyle (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (let ((e-3 (vector-ref e-5 3))) e-3)))))))) +(define IdrisC-45REPLC-45Opts-getCurrentElabSource (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (let ((e-8 (vector-ref e-5 8))) e-8)))))))) +(define IdrisC-45REPLC-45Opts-getConsoleWidth (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (let ((e-13 (vector-ref e-5 13))) e-13)))))))) +(define IdrisC-45REPLC-45Opts-getColor (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (let ((e-14 (vector-ref e-5 14))) e-14)))))))) +(define IdrisC-45REPLC-45Opts-getCodegen (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (DataC-45List-lookup (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_String arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_String arg-4 arg-5)))) arg-1 (let ((e-12 (vector-ref e-5 12))) e-12))))))))) +(define IdrisC-45REPLC-45Opts-defaultOpts (lambda (arg-0 arg-1 arg-2) (vector 0 1 arg-0 (IdrisC-45REPLC-45Opts-n--8375-4389-u--litStyle arg-2 arg-1 arg-0 arg-0) "" "vim" '() arg-1 "" '() '() '() arg-2 '() 1 1))) +(define IdrisC-45PrettyC-45Render-renderWithoutColor (lambda (arg-1 arg-2 ext-0) (let ((act-24 (IdrisC-45PrettyC-45Render-getPageWidth arg-1 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((u--opts e-5)) (let ((u--layout (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-layoutPretty u--opts arg-2))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45RenderC-45Terminal-renderString (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unAnnotateS u--layout))))))))))) +(define IdrisC-45PrettyC-45Render-render (lambda (arg-1 arg-2 arg-3 ext-0) (let ((act-24 (IdrisC-45REPLC-45Opts-getColor arg-1 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-2 (vector-ref eta-0 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref eta-0 1))) (vector 1 (PreludeC-45Types-u--C-61C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-61C-61_Eq_String arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_String arg-4 arg-5)))) (box "dumb") e-6)))))) (lambda (eta-0) (let ((act-25 ((System-getEnv (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-1)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-1) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-1) (let ((act-17 (arg-528 eta-1))) (let ((act-16 (arg-530 eta-1))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-1) (let ((act-25 (arg-811 eta-1))) ((arg-812 act-25) eta-1))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-1) (let ((act-51 (arg-814 eta-1))) (act-51 eta-1)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) "TERM") eta-0))) (vector 1 act-25))) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (IdrisC-45PrettyC-45Render-getPageWidth arg-1 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((u--opts e-7)) (let ((u--layout (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-layoutPretty u--opts arg-3))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45RenderC-45Terminal-renderString (let ((sc3 (cond ((equal? e-5 1) (cond ((equal? e-6 1) 0) (else 1))) (else 0)))) (cond ((equal? sc3 1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-reAnnotateS arg-2 u--layout)) (else (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unAnnotateS u--layout)))))))))))))))))))))) +(define IdrisC-45PrettyC-45Render-getPageWidth (lambda (arg-0 ext-0) (let ((act-24 (IdrisC-45REPLC-45Opts-getConsoleWidth arg-0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (if (null? e-5) (let ((act-25 (let ((act-25 (LibrariesC-45UtilsC-45Term-getTermCols ext-0))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (let ((sc3 (PreludeC-45EqOrd-u--C-61C-61_Eq_Int e-6 (blodwen-toSignedInt 0 63)))) (cond ((equal? sc3 1) '()) (else (cons e-6 1.0))))))))) (let ((e-2 (unbox e-5))) (cond ((equal? e-2 0) (vector 1 '()))(else (vector 1 (cons (PreludeC-45Cast-u--cast_Cast_Nat_Int e-2) 1.0)))))))))))) +(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45RenderC-45Terminal-n--2798-731-u--writeOutput (lambda (arg-0 arg-2 arg-3 ext-0) (ControlC-45MonadC-45ST-modifySTRef arg-2 (lambda (arg-1) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_String arg-1 arg-3)) ext-0))) +(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45RenderC-45Terminal-n--2798-728-u--push (lambda (arg-0 arg-2 arg-3 ext-0) (ControlC-45MonadC-45ST-modifySTRef arg-2 (lambda (arg-1) (cons arg-3 arg-1)) ext-0))) +(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45RenderC-45Terminal-n--2798-730-u--pop (lambda (arg-0 arg-2 ext-0) (ControlC-45MonadC-45ST-u--C-62C-62C-61_Monad_C-40STC-32C-36sC-41 (lambda (eta-0) (unbox arg-2)) (lambda (_-0) (if (null? _-0) (lambda (eta-0) (ControlC-45MonadC-45ST-u--pure_Applicative_C-40STC-32C-36sC-41 '() eta-0)) (let ((e-1 (car _-0))) (let ((e-2 (cdr _-0))) (PreludeC-45Interfaces-C-62C-62 (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (ControlC-45MonadC-45ST-u--map_Functor_C-40STC-32C-36sC-41 u--func arg-133))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) (ControlC-45MonadC-45ST-u--pure_Applicative_C-40STC-32C-36sC-41 arg-527 eta-0)))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (ControlC-45MonadC-45ST-u--C-60C-42C-62_Applicative_C-40STC-32C-36sC-41 arg-528 arg-530 eta-0))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (ControlC-45MonadC-45ST-u--C-62C-62C-61_Monad_C-40STC-32C-36sC-41 arg-811 arg-812 eta-0)))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (ControlC-45MonadC-45ST-u--join_Monad_C-40STC-32C-36sC-41 arg-814 eta-0))))) (lambda (eta-0) (set-box! arg-2 e-2)) (lambda () (lambda (eta-0) (ControlC-45MonadC-45ST-u--pure_Applicative_C-40STC-32C-36sC-41 (box e-1) eta-0)))))))) ext-0))) +(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45RenderC-45Terminal-n--2798-729-u--peek (lambda (arg-0 arg-2 ext-0) (ControlC-45MonadC-45ST-u--C-62C-62C-61_Monad_C-40STC-32C-36sC-41 (lambda (eta-0) (unbox arg-2)) (lambda (_-0) (lambda (clam-0) (if (null? _-0) (ControlC-45MonadC-45ST-u--pure_Applicative_C-40STC-32C-36sC-41 '() clam-0) (let ((e-1 (car _-0))) (ControlC-45MonadC-45ST-u--pure_Applicative_C-40STC-32C-36sC-41 (box e-1) clam-0))))) ext-0))) +(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45RenderC-45Terminal-n--2798-732-u--go (lambda (arg-0 arg-2 arg-3 arg-4) (case (vector-ref arg-4 0) ((0) (lambda (eta-0) (ControlC-45MonadC-45ST-u--pure_Applicative_C-40STC-32C-36sC-41 0 eta-0))) ((1) (let ((e-2 (vector-ref arg-4 1))) (let ((e-3 (vector-ref arg-4 2))) (PreludeC-45Interfaces-C-62C-62 (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (ControlC-45MonadC-45ST-u--map_Functor_C-40STC-32C-36sC-41 u--func arg-133))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) (ControlC-45MonadC-45ST-u--pure_Applicative_C-40STC-32C-36sC-41 arg-527 eta-0)))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (ControlC-45MonadC-45ST-u--C-60C-42C-62_Applicative_C-40STC-32C-36sC-41 arg-528 arg-530 eta-0))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (ControlC-45MonadC-45ST-u--C-62C-62C-61_Monad_C-40STC-32C-36sC-41 arg-811 arg-812 eta-0)))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (ControlC-45MonadC-45ST-u--join_Monad_C-40STC-32C-36sC-41 arg-814 eta-0))))) (lambda (eta-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45RenderC-45Terminal-n--2798-731-u--writeOutput arg-0 arg-3 (DataC-45String-singleton e-2) eta-0)) (lambda () (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45RenderC-45Terminal-n--2798-732-u--go arg-0 arg-2 arg-3 (e-3))))))) ((2) (let ((e-6 (vector-ref arg-4 2))) (let ((e-7 (vector-ref arg-4 3))) (PreludeC-45Interfaces-C-62C-62 (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (ControlC-45MonadC-45ST-u--map_Functor_C-40STC-32C-36sC-41 u--func arg-133))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) (ControlC-45MonadC-45ST-u--pure_Applicative_C-40STC-32C-36sC-41 arg-527 eta-0)))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (ControlC-45MonadC-45ST-u--C-60C-42C-62_Applicative_C-40STC-32C-36sC-41 arg-528 arg-530 eta-0))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (ControlC-45MonadC-45ST-u--C-62C-62C-61_Monad_C-40STC-32C-36sC-41 arg-811 arg-812 eta-0)))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (ControlC-45MonadC-45ST-u--join_Monad_C-40STC-32C-36sC-41 arg-814 eta-0))))) (lambda (eta-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45RenderC-45Terminal-n--2798-731-u--writeOutput arg-0 arg-3 e-6 eta-0)) (lambda () (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45RenderC-45Terminal-n--2798-732-u--go arg-0 arg-2 arg-3 (e-7))))))) ((3) (let ((e-9 (vector-ref arg-4 1))) (let ((e-10 (vector-ref arg-4 2))) (PreludeC-45Interfaces-C-62C-62 (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (ControlC-45MonadC-45ST-u--map_Functor_C-40STC-32C-36sC-41 u--func arg-133))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) (ControlC-45MonadC-45ST-u--pure_Applicative_C-40STC-32C-36sC-41 arg-527 eta-0)))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (ControlC-45MonadC-45ST-u--C-60C-42C-62_Applicative_C-40STC-32C-36sC-41 arg-528 arg-530 eta-0))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (ControlC-45MonadC-45ST-u--C-62C-62C-61_Monad_C-40STC-32C-36sC-41 arg-811 arg-812 eta-0)))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (ControlC-45MonadC-45ST-u--join_Monad_C-40STC-32C-36sC-41 arg-814 eta-0))))) (lambda (eta-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45RenderC-45Terminal-n--2798-731-u--writeOutput arg-0 arg-3 (PreludeC-45Types-u--C-60C-43C-62_Semigroup_String (DataC-45String-singleton (integer->char 10)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-textSpaces e-9)) eta-0)) (lambda () (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45RenderC-45Terminal-n--2798-732-u--go arg-0 arg-2 arg-3 e-10)))))) ((4) (let ((e-12 (vector-ref arg-4 1))) (let ((e-13 (vector-ref arg-4 2))) (lambda (eta-0) (ControlC-45MonadC-45ST-u--C-62C-62C-61_Monad_C-40STC-32C-36sC-41 (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45RenderC-45Terminal-n--2798-729-u--peek arg-0 arg-2 eta-1)) (lambda (_-0) (if (null? _-0) (lambda (eta-1) (set-box! arg-2 '())) (let ((e-1 (unbox _-0))) (let ((u--newStyle (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 e-12 e-1))) (PreludeC-45Interfaces-C-62C-62 (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (ControlC-45MonadC-45ST-u--map_Functor_C-40STC-32C-36sC-41 u--func arg-133))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-1) (ControlC-45MonadC-45ST-u--pure_Applicative_C-40STC-32C-36sC-41 arg-527 eta-1)))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-1) (ControlC-45MonadC-45ST-u--C-60C-42C-62_Applicative_C-40STC-32C-36sC-41 arg-528 arg-530 eta-1))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-1) (ControlC-45MonadC-45ST-u--C-62C-62C-61_Monad_C-40STC-32C-36sC-41 arg-811 arg-812 eta-1)))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-1) (ControlC-45MonadC-45ST-u--join_Monad_C-40STC-32C-36sC-41 arg-814 eta-1))))) (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45RenderC-45Terminal-n--2798-728-u--push arg-0 arg-2 u--newStyle eta-1)) (lambda () (PreludeC-45Interfaces-C-62C-62 (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (ControlC-45MonadC-45ST-u--map_Functor_C-40STC-32C-36sC-41 u--func arg-133))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-1) (ControlC-45MonadC-45ST-u--pure_Applicative_C-40STC-32C-36sC-41 arg-527 eta-1)))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-1) (ControlC-45MonadC-45ST-u--C-60C-42C-62_Applicative_C-40STC-32C-36sC-41 arg-528 arg-530 eta-1))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-1) (ControlC-45MonadC-45ST-u--C-62C-62C-61_Monad_C-40STC-32C-36sC-41 arg-811 arg-812 eta-1)))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-1) (ControlC-45MonadC-45ST-u--join_Monad_C-40STC-32C-36sC-41 arg-814 eta-1))))) (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45RenderC-45Terminal-n--2798-731-u--writeOutput arg-0 arg-3 (LibrariesC-45ControlC-45ANSIC-45SGR-escapeSGR u--newStyle) eta-1)) (lambda () (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45RenderC-45Terminal-n--2798-732-u--go arg-0 arg-2 arg-3 e-13))))))))) eta-0))))) (else (let ((e-15 (vector-ref arg-4 1))) (lambda (eta-0) (ControlC-45MonadC-45ST-u--C-62C-62C-61_Monad_C-40STC-32C-36sC-41 (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45RenderC-45Terminal-n--2798-730-u--pop arg-0 arg-2 eta-1)) (lambda (_-0) (lambda (eta-1) (ControlC-45MonadC-45ST-u--C-62C-62C-61_Monad_C-40STC-32C-36sC-41 (lambda (eta-2) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45RenderC-45Terminal-n--2798-729-u--peek arg-0 arg-2 eta-2)) (lambda (_-1) (if (null? _-1) (lambda (eta-2) (set-box! arg-2 '())) (let ((e-1 (unbox _-1))) (PreludeC-45Interfaces-C-62C-62 (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (ControlC-45MonadC-45ST-u--map_Functor_C-40STC-32C-36sC-41 u--func arg-133))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-2) (ControlC-45MonadC-45ST-u--pure_Applicative_C-40STC-32C-36sC-41 arg-527 eta-2)))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-2) (ControlC-45MonadC-45ST-u--C-60C-42C-62_Applicative_C-40STC-32C-36sC-41 arg-528 arg-530 eta-2))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-2) (ControlC-45MonadC-45ST-u--C-62C-62C-61_Monad_C-40STC-32C-36sC-41 arg-811 arg-812 eta-2)))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-2) (ControlC-45MonadC-45ST-u--join_Monad_C-40STC-32C-36sC-41 arg-814 eta-2))))) (lambda (eta-2) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45RenderC-45Terminal-n--2798-731-u--writeOutput arg-0 arg-3 (LibrariesC-45ControlC-45ANSIC-45SGR-escapeSGR (cons (vector 0 ) e-1)) eta-2)) (lambda () (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45RenderC-45Terminal-n--2798-732-u--go arg-0 arg-2 arg-3 e-15)))))) eta-1))) eta-0))))))) +(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45RenderC-45Terminal-underline (lambda () (PreludeC-45Types-u--pure_Applicative_List (vector 3 4)))) +(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45RenderC-45Terminal-renderString (lambda (arg-0) (DataC-45Maybe-fromMaybe (lambda () "") (ControlC-45MonadC-45ST-runST (lambda (s-1050) (lambda (eta-0) (ControlC-45MonadC-45ST-u--C-62C-62C-61_Monad_C-40STC-32C-36sC-41 (lambda (eta-1) (ControlC-45MonadC-45ST-newSTRef (cons (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41) '()) eta-1)) (lambda (u--styleStackRef) (lambda (eta-1) (ControlC-45MonadC-45ST-u--C-62C-62C-61_Monad_C-40STC-32C-36sC-41 (lambda (eta-2) (ControlC-45MonadC-45ST-newSTRef (PreludeC-45Types-u--neutral_Monoid_String) eta-2)) (lambda (u--outputRef) (PreludeC-45Interfaces-C-62C-62 (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (ControlC-45MonadC-45ST-u--map_Functor_C-40STC-32C-36sC-41 u--func arg-133))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-2) (ControlC-45MonadC-45ST-u--pure_Applicative_C-40STC-32C-36sC-41 arg-527 eta-2)))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-2) (ControlC-45MonadC-45ST-u--C-60C-42C-62_Applicative_C-40STC-32C-36sC-41 arg-528 arg-530 eta-2))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-2) (ControlC-45MonadC-45ST-u--C-62C-62C-61_Monad_C-40STC-32C-36sC-41 arg-811 arg-812 eta-2)))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-2) (ControlC-45MonadC-45ST-u--join_Monad_C-40STC-32C-36sC-41 arg-814 eta-2))))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45RenderC-45Terminal-n--2798-732-u--go arg-0 u--styleStackRef u--outputRef arg-0) (lambda () (lambda (eta-2) (ControlC-45MonadC-45ST-u--C-62C-62C-61_Monad_C-40STC-32C-36sC-41 (lambda (eta-3) (unbox u--styleStackRef)) (lambda (lcase-0) (if (null? lcase-0) (lambda (eta-3) (ControlC-45MonadC-45ST-u--pure_Applicative_C-40STC-32C-36sC-41 '() eta-3)) (let ((e-3 (cdr lcase-0))) (if (null? e-3) (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (ControlC-45MonadC-45ST-u--map_Functor_C-40STC-32C-36sC-41 eta-5 eta-6))))) (lambda (eta-3) (box eta-3)) (lambda (eta-3) (unbox u--outputRef))) (lambda (eta-3) (ControlC-45MonadC-45ST-u--pure_Applicative_C-40STC-32C-36sC-41 '() eta-3)))))) eta-2))))) eta-1))) eta-0))))))) (define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45RenderC-45Terminal-color (lambda (arg-0) (PreludeC-45Types-u--pure_Applicative_List (vector 1 arg-0)))) -(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45RenderC-45Terminal-bold (lambda () (PreludeC-45Types-u--pure_Applicative_List (vector 3 (vector 0 ))))) -(define ControlC-45MonadC-45ST-case--C-62C-62C-61-716 (lambda (arg-3 arg-4 arg-5 arg-6) arg-6)) -(define ControlC-45MonadC-45ST-case--runST-492 (lambda (arg-1 arg-2) (PrimIO-unsafePerformIO arg-2))) -(define ControlC-45MonadC-45ST-u--pure_Applicative_C-40STC-32C-36sC-41 (lambda (arg-2 ext-0) arg-2)) -(define ControlC-45MonadC-45ST-u--map_Functor_C-40STC-32C-36sC-41 (lambda (arg-3 arg-4 ext-0) (ControlC-45MonadC-45ST-u--C-62C-62C-61_Monad_C-40STC-32C-36sC-41 arg-4 (lambda (bind-0) (lambda (eta-0) (ControlC-45MonadC-45ST-u--pure_Applicative_C-40STC-32C-36sC-41 (arg-3 bind-0) eta-0))) ext-0))) +(define LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45RenderC-45Terminal-bold (lambda () (PreludeC-45Types-u--pure_Applicative_List (vector 3 0)))) +(define ControlC-45MonadC-45ST-u--pure_Applicative_C-40STC-32C-36sC-41 (lambda (ext-0 ext-1) ext-0)) +(define ControlC-45MonadC-45ST-u--map_Functor_C-40STC-32C-36sC-41 (lambda (arg-3 arg-4) (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (PreludeC-45IO-u--map_Functor_IO eta-2 eta-3 eta-4)))))) arg-3 arg-4))) (define ControlC-45MonadC-45ST-u--join_Monad_C-40STC-32C-36sC-41 (lambda (arg-2 ext-0) (ControlC-45MonadC-45ST-u--C-62C-62C-61_Monad_C-40STC-32C-36sC-41 arg-2 (lambda (eta-0) eta-0) ext-0))) -(define ControlC-45MonadC-45ST-u--C-62C-62C-61_Monad_C-40STC-32C-36sC-41 (lambda (arg-3 arg-4 ext-0) (let ((act-24 (arg-3 ext-0))) ((ControlC-45MonadC-45ST-case--C-62C-62C-61-716 arg-3 arg-4 act-24 (arg-4 act-24)) ext-0)))) -(define ControlC-45MonadC-45ST-u--C-60C-42C-62_Applicative_C-40STC-32C-36sC-41 (lambda (arg-3 arg-4 ext-0) (ControlC-45MonadC-45ST-u--C-62C-62C-61_Monad_C-40STC-32C-36sC-41 arg-3 (lambda (bind-0) (lambda (eta-0) (ControlC-45MonadC-45ST-u--C-62C-62C-61_Monad_C-40STC-32C-36sC-41 arg-4 (lambda (bind-1) (lambda (eta-1) (ControlC-45MonadC-45ST-u--pure_Applicative_C-40STC-32C-36sC-41 (bind-0 bind-1) eta-1))) eta-0))) ext-0))) -(define ControlC-45MonadC-45ST-runST (lambda (arg-1) (ControlC-45MonadC-45ST-case--runST-492 arg-1 (arg-1 'erased)))) -(define ControlC-45MonadC-45ST-newSTRef (lambda (arg-2 ext-0) (let ((act-24 ((DataC-45IORef-newIORef (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-0)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-0) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (let ((act-17 (arg-578 eta-0))) (let ((act-16 (arg-580 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (let ((act-24 (arg-876 eta-0))) ((arg-877 act-24) eta-0))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-0) (let ((act-51 (arg-879 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) arg-2) ext-0))) act-24))) +(define ControlC-45MonadC-45ST-u--C-62C-62C-61_Monad_C-40STC-32C-36sC-41 (lambda (arg-3 arg-4 ext-0) (let ((act-24 (arg-3 ext-0))) ((arg-4 act-24) ext-0)))) +(define ControlC-45MonadC-45ST-u--C-60C-42C-62_Applicative_C-40STC-32C-36sC-41 (lambda (arg-3 arg-4 ext-0) (let ((act-17 (arg-3 ext-0))) (let ((act-16 (arg-4 ext-0))) (act-17 act-16))))) +(define ControlC-45MonadC-45ST-runST (lambda (arg-1) (PrimIO-unsafePerformIO (arg-1 'erased)))) +(define ControlC-45MonadC-45ST-newSTRef (lambda (arg-2 ext-0) (let ((act-24 ((DataC-45IORef-newIORef (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-24 (arg-811 eta-0))) ((arg-812 act-24) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-51 (arg-814 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) arg-2) ext-0))) act-24))) (define ControlC-45MonadC-45ST-modifySTRef (lambda (arg-2 arg-3 ext-0) (ControlC-45MonadC-45ST-u--C-62C-62C-61_Monad_C-40STC-32C-36sC-41 (lambda (eta-0) (unbox arg-2)) (lambda (u--val) (lambda (eta-0) (set-box! arg-2 (arg-3 u--val)))) ext-0))) -(define LibrariesC-45ControlC-45ANSIC-45SGR-n--2754-840-u--toCode (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) "0") ((1) (let ((e-0 (vector-ref sc0 1))) (PreludeC-45TypesC-45String-C-43C-43 "38;5;" (LibrariesC-45ControlC-45ANSIC-45SGR-u--cast_Cast_Color_String e-0)))) ((2) (let ((e-1 (vector-ref sc0 1))) (PreludeC-45TypesC-45String-C-43C-43 "48;5;" (LibrariesC-45ControlC-45ANSIC-45SGR-u--cast_Cast_Color_String e-1)))) ((3) (let ((e-2 (vector-ref sc0 1))) (LibrariesC-45ControlC-45ANSIC-45SGR-u--cast_Cast_Style_String e-2))) (else (let ((e-3 (vector-ref sc0 1))) (LibrariesC-45ControlC-45ANSIC-45SGR-u--cast_Cast_Blink_String e-3))))))) -(define LibrariesC-45ControlC-45ANSIC-45SGR-u--cast_Cast_Style_String (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) "1") ((1) "2") ((2) "22") ((3) "3") ((4) "4") ((5) "21") ((6) "24") ((7) "9") (else "29"))))) -(define LibrariesC-45ControlC-45ANSIC-45SGR-u--cast_Cast_Color_String (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) "0") ((1) "1") ((2) "2") ((3) "3") ((4) "4") ((5) "5") ((6) "6") ((7) "7") ((8) "8") ((9) "9") ((10) "10") ((11) "11") ((12) "12") ((13) "13") ((14) "14") (else "15"))))) -(define LibrariesC-45ControlC-45ANSIC-45SGR-u--cast_Cast_Blink_String (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) "5") ((1) "6") (else "25"))))) -(define LibrariesC-45ControlC-45ANSIC-45SGR-escapeSGR (lambda (arg-0) (PreludeC-45TypesC-45String-C-43C-43 "\u001b[" (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Interfaces-concat (cons (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_String arg-2 arg-3))) (PreludeC-45Types-u--neutral_Monoid_String))) (DataC-45List-intersperse ";" (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (PreludeC-45Types-u--map_Functor_List eta-2 eta-3))))) (lambda (eta-0) (LibrariesC-45ControlC-45ANSIC-45SGR-n--2754-840-u--toCode arg-0 eta-0)) arg-0))) "m")))) -(define IdrisC-45Resugar-case--toPTermC-44mkIf-5624 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (cond ((equal? sc0 0) (vector 42 arg-16 arg-15 arg-12 arg-14)) (else arg-17))))) -(define IdrisC-45Resugar-case--caseC-32blockC-32inC-32toPTerm-5278 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((IdrisC-45Resugar-toPTerm arg-7 arg-6 (IdrisC-45Resugar-tyPrec) arg-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((IdrisC-45Resugar-toPTerm arg-7 arg-6 (IdrisC-45Resugar-tyPrec) arg-0) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (IdrisC-45Resugar-bracket arg-6 arg-5 (IdrisC-45Resugar-tyPrec) (vector 1 arg-4 arg-3 (vector 0 ) arg-2 e-5 e-6) eta-0))))))))))))) (else (IdrisC-45Resugar-toPTerm arg-7 arg-6 arg-5 arg-0)))))) -(define IdrisC-45Resugar-case--toPTerm-5159 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 arg-1 arg-0)))) (else (IdrisC-45Resugar-toPRef arg-1 arg-0)))))) -(define IdrisC-45Resugar-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32sugarAppM-5039 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 38 arg-2 '()))) (else (vector 0 )))))) -(define IdrisC-45Resugar-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32sugarAppM-4982 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 "Unit") (PreludeC-45Types-u--pure_Applicative_Maybe (vector 41 arg-2))) ((equal? sc0 "MkUnit") (PreludeC-45Types-u--pure_Applicative_Maybe (vector 41 arg-2)))(else (vector 0 )))))) -(define IdrisC-45Resugar-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32sugarAppM-4969 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (IdrisC-45Resugar-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32sugarAppM-4982 arg-0 arg-1 arg-2 arg-3 (CoreC-45Name-nameRoot arg-0))) (else (IdrisC-45Resugar-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32sugarAppM-5039 arg-0 arg-1 arg-2 arg-3 (PreludeC-45EqOrd-u--C-61C-61_Eq_String (CoreC-45Name-nameRoot arg-0) "Nil"))))))) -(define IdrisC-45Resugar-case--sugarAppM-4942 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 15 (IdrisC-45Syntax-getPTermLoc arg-0) (vector 5 (PreludeC-45Cast-u--cast_Cast_Nat_Integer e-1)))))) (else (let ((sc1 arg-0)) (case (vector-ref sc1 0) ((0) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((sc2 e-1)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((u--tm (vector 0 e-0 (vector 0 e-2 e-3)))) (IdrisC-45Resugar-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32sugarAppM-4969 e-3 e-2 e-0 u--tm (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace (CoreC-45NameC-45Namespace-builtinNS) e-2))))))(else (vector 0 )))))))(else (vector 0 ))))))))) -(define IdrisC-45Resugar-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32sugarAppM-4882 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((38) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 38 e-0 (cons (IdrisC-45Resugar-unbracketApp arg-4) e-1))))))(else (vector 0 )))))) -(define IdrisC-45Resugar-case--caseC-32blockC-32inC-32sugarAppM-4864 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (IdrisC-45Resugar-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32sugarAppM-4882 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (IdrisC-45Resugar-sugarApp (IdrisC-45Resugar-unbracket arg-5)))) (else (vector 0 )))))) -(define IdrisC-45Resugar-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32sugarAppM-4720 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((2) (let ((e-3 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 6))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 40 arg-6 e-3 (IdrisC-45Resugar-unbracket arg-4) (IdrisC-45Resugar-unbracket e-5))))))(else (vector 0 )))))) -(define IdrisC-45Resugar-case--caseC-32blockC-32inC-32sugarAppM-4660 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 "Pair") (PreludeC-45Types-u--pure_Applicative_Maybe (vector 39 arg-6 (IdrisC-45Resugar-unbracket arg-4) (IdrisC-45Resugar-unbracket arg-5)))) ((equal? sc0 "MkPair") (PreludeC-45Types-u--pure_Applicative_Maybe (vector 39 arg-6 (IdrisC-45Resugar-unbracket arg-4) (IdrisC-45Resugar-unbracket arg-5)))) ((equal? sc0 "DPair") (IdrisC-45Resugar-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32sugarAppM-4720 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (IdrisC-45Resugar-unbracket arg-5))) ((equal? sc0 "Equal") (PreludeC-45Types-u--pure_Applicative_Maybe (vector 31 arg-6 (IdrisC-45Resugar-unbracket arg-4) (IdrisC-45Resugar-unbracket arg-5)))) ((equal? sc0 "===") (PreludeC-45Types-u--pure_Applicative_Maybe (vector 31 arg-6 (IdrisC-45Resugar-unbracket arg-4) (IdrisC-45Resugar-unbracket arg-5)))) ((equal? sc0 "~=~") (PreludeC-45Types-u--pure_Applicative_Maybe (vector 31 arg-6 (IdrisC-45Resugar-unbracket arg-4) (IdrisC-45Resugar-unbracket arg-5))))(else (vector 0 )))))) -(define IdrisC-45Resugar-case--sugarAppM-4641 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (IdrisC-45Resugar-case--caseC-32blockC-32inC-32sugarAppM-4660 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (CoreC-45Name-nameRoot arg-2))) (else (IdrisC-45Resugar-case--caseC-32blockC-32inC-32sugarAppM-4864 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (PreludeC-45EqOrd-u--C-61C-61_Eq_String (CoreC-45Name-nameRoot arg-2) "::"))))))) -(define IdrisC-45Resugar-case--bracket-4465 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (vector 1 (IdrisC-45Resugar-addBracket (CoreC-45FC-emptyFC) arg-4))) (else (vector 1 arg-4)))))) -(define IdrisC-45Resugar-case--addBracket-4441 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 32 arg-1 arg-0)) (else arg-0))))) -(define IdrisC-45Resugar-case--mkOp-4339 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 ext-0) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (vector 1 arg-6)) (else (vector 1 (vector 27 arg-5 arg-2 (IdrisC-45Resugar-unbracketApp arg-3) (IdrisC-45Resugar-unbracketApp arg-4)))))))) -(define IdrisC-45Resugar-n--12467-5191-u--needsBind (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((u--ns (TTImpC-45Utils-findBindableNames 1 '() '() arg-0))) (let ((u--allNs (TTImpC-45Utils-findAllNames '() arg-0))) (PreludeC-45Basics-C-38C-38 (PreludeC-45Types-elem (cons (lambda (arg-9) (lambda (arg-10) (CoreC-45Name-u--C-61C-61_Eq_Name arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (CoreC-45Name-u--C-47C-61_Eq_Name arg-9 arg-10)))) (vector 1 e-2) u--allNs) (lambda () (let ((sc2 (PreludeC-45Types-elem (cons (lambda (arg-9) (lambda (arg-10) (PreludeC-45EqOrd-u--C-61C-61_Eq_String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (PreludeC-45EqOrd-u--C-47C-61_Eq_String arg-9 arg-10)))) e-2 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-fst eta-0)) u--ns)))) (cond ((equal? sc2 0) 1) (else 0)))))))))(else 1)))))(else 1))))) -(define IdrisC-45Resugar-n--11655-4391-u--needed (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((32) 1) ((0) 1) ((39) 1) ((40) 1) ((41) 1) ((43) 1) ((38) 1) ((15) 1)(else 0))))) -(define IdrisC-45Resugar-n--12467-5586-u--mkIf (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((4) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((sc1 e-2)) (if (null? sc1) arg-7 (let ((e-4 (car sc1))) (let ((e-5 (cdr sc1))) (let ((sc2 e-4)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (let ((e-8 (vector-ref sc2 3))) (let ((e-9 (vector-ref sc2 4))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 1))) (let ((e-11 (vector-ref sc3 2))) (let ((sc4 e-9)) (if (null? sc4) (let ((sc5 e-5)) (if (null? sc5) arg-7 (let ((e-14 (car sc5))) (let ((e-15 (cdr sc5))) (let ((sc6 e-14)) (case (vector-ref sc6 0) ((0) (let ((e-16 (vector-ref sc6 1))) (let ((e-17 (vector-ref sc6 2))) (let ((e-18 (vector-ref sc6 3))) (let ((e-19 (vector-ref sc6 4))) (let ((sc7 e-17)) (case (vector-ref sc7 0) ((0) (let ((e-20 (vector-ref sc7 1))) (let ((e-21 (vector-ref sc7 2))) (let ((sc8 e-19)) (if (null? sc8) (let ((sc9 e-15)) (if (null? sc9) (let ((u--tm (vector 4 e-0 e-1 (cons (vector 0 e-6 (vector 0 e-10 e-11) e-8 '()) (cons (vector 0 e-16 (vector 0 e-20 e-21) e-18 '()) '()))))) (IdrisC-45Resugar-case--toPTermC-44mkIf-5624 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-16 e-20 e-6 e-10 e-11 e-8 e-21 e-18 e-1 e-0 u--tm (PreludeC-45Basics-C-38C-38 (CoreC-45Name-u--C-61C-61_Eq_Name (CoreC-45Name-dropNS e-11) (vector 1 "True")) (lambda () (CoreC-45Name-u--C-61C-61_Eq_Name (CoreC-45Name-dropNS e-21) (vector 1 "False")))))) arg-7)) arg-7)))))(else arg-7))))))))(else arg-7))))))) arg-7)))))(else arg-7))))))))(else arg-7)))))))))))(else arg-7))))) -(define IdrisC-45Resugar-n--12491-6474-u--mapPiInfo (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (vector 1 (vector 1 ))) ((0) (vector 1 (vector 0 ))) ((2) (vector 1 (vector 2 ))) (else (let ((e-4 (vector-ref sc0 1))) (let ((act-24 ((IdrisC-45Resugar-toPTerm arg-6 arg-5 (IdrisC-45Resugar-startPrec) e-4) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 3 e-5))))))))))))) -(define IdrisC-45Resugar-n--14430-6882-u--cleanNode (lambda (arg-0 arg-1 arg-2 ext-0) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc1 eta-0)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-0 e-5))))))) (IdrisC-45Resugar-n--14430-6881-u--cleanName arg-0 arg-1 e-1) ext-0)))) ((27) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc1 eta-0)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 (vector 27 e-2 e-6 e-4 e-5))))))) (IdrisC-45Resugar-n--14430-6881-u--cleanName arg-0 arg-1 e-3) ext-0)))))) ((28) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc1 eta-0)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 28 e-6 e-5 e-8))))))) (IdrisC-45Resugar-n--14430-6881-u--cleanName arg-0 arg-1 e-7) ext-0))))) ((29) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc1 eta-0)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 29 e-9 e-5 e-11))))))) (IdrisC-45Resugar-n--14430-6881-u--cleanName arg-0 arg-1 e-10) ext-0))))) ((30) (let ((e-12 (vector-ref sc0 1))) (let ((e-13 (vector-ref sc0 2))) (let ((e-14 (vector-ref sc0 3))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc1 eta-0)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 30 e-12 e-13 e-5))))))) (IdrisC-45Resugar-n--14430-6881-u--cleanName arg-0 arg-1 e-14) ext-0)))))(else (vector 1 arg-2)))))) -(define IdrisC-45Resugar-n--14430-6881-u--cleanName (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 e-0))))) ((3) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-2)))) ((4) (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 e-4))))) ((0) (let ((e-7 (vector-ref sc0 2))) (let ((sc1 e-7)) (case (vector-ref sc1 0) ((6) (let ((e-9 (vector-ref sc1 2))) (IdrisC-45Resugar-n--14430-6881-u--cleanName arg-0 arg-1 e-9)))(else (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-5))))))) (CoreC-45Context-prettyName arg-1 arg-2) eta-0)))))))(else (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (let ((sc0 eta-1)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (vector 1 e-5))))))) (CoreC-45Context-prettyName arg-1 arg-2) eta-0))))))) -(define IdrisC-45Resugar-unbracketApp (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((32) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((7) e-1)(else arg-0)))))(else arg-0))))) -(define IdrisC-45Resugar-unbracket (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((32) (let ((e-1 (vector-ref sc0 2))) e-1))(else arg-0))))) +(define LibrariesC-45ControlC-45ANSIC-45SGR-n--2408-817-u--toCode (lambda (arg-0 arg-1) (case (vector-ref arg-1 0) ((0) "0") ((1) (let ((e-0 (vector-ref arg-1 1))) (PreludeC-45TypesC-45String-C-43C-43 "38;5;" (LibrariesC-45ControlC-45ANSIC-45SGR-u--cast_Cast_Color_String e-0)))) ((2) (let ((e-1 (vector-ref arg-1 1))) (PreludeC-45TypesC-45String-C-43C-43 "48;5;" (LibrariesC-45ControlC-45ANSIC-45SGR-u--cast_Cast_Color_String e-1)))) ((3) (let ((e-2 (vector-ref arg-1 1))) (LibrariesC-45ControlC-45ANSIC-45SGR-u--cast_Cast_Style_String e-2))) (else (let ((e-3 (vector-ref arg-1 1))) (LibrariesC-45ControlC-45ANSIC-45SGR-u--cast_Cast_Blink_String e-3)))))) +(define LibrariesC-45ControlC-45ANSIC-45SGR-u--cast_Cast_Style_String (lambda (arg-0) (cond ((equal? arg-0 0) "1") ((equal? arg-0 1) "2") ((equal? arg-0 2) "22") ((equal? arg-0 3) "3") ((equal? arg-0 4) "4") ((equal? arg-0 5) "21") ((equal? arg-0 6) "24") ((equal? arg-0 7) "9") (else "29")))) +(define LibrariesC-45ControlC-45ANSIC-45SGR-u--cast_Cast_Color_String (lambda (arg-0) (cond ((equal? arg-0 0) "0") ((equal? arg-0 1) "1") ((equal? arg-0 2) "2") ((equal? arg-0 3) "3") ((equal? arg-0 4) "4") ((equal? arg-0 5) "5") ((equal? arg-0 6) "6") ((equal? arg-0 7) "7") ((equal? arg-0 8) "8") ((equal? arg-0 9) "9") ((equal? arg-0 10) "10") ((equal? arg-0 11) "11") ((equal? arg-0 12) "12") ((equal? arg-0 13) "13") ((equal? arg-0 14) "14") (else "15")))) +(define LibrariesC-45ControlC-45ANSIC-45SGR-u--cast_Cast_Blink_String (lambda (arg-0) (cond ((equal? arg-0 0) "5") ((equal? arg-0 1) "6") (else "25")))) +(define LibrariesC-45ControlC-45ANSIC-45SGR-escapeSGR (lambda (arg-0) (PreludeC-45TypesC-45String-C-43C-43 "\u001b[" (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Interfaces-concat (cons (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_String arg-2 arg-3))) (PreludeC-45Types-u--neutral_Monoid_String))) (DataC-45List-intersperse ";" (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (PreludeC-45Types-u--map_Functor_List eta-2 eta-3))))) (lambda (eta-0) (LibrariesC-45ControlC-45ANSIC-45SGR-n--2408-817-u--toCode arg-0 eta-0)) arg-0))) "m")))) +(define IdrisC-45Resugar-n--8498-6527-u--needsBind (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (if (null? arg-8) 0 (let ((e-1 (unbox arg-8))) (case (vector-ref e-1 0) ((1) (let ((e-2 (vector-ref e-1 1))) (let ((u--ns (TTImpC-45Utils-findBindableNames 0 '() '() arg-0))) (let ((u--allNs (TTImpC-45Utils-findAllNames '() arg-0))) (let ((sc2 (PreludeC-45Types-elem (cons (lambda (arg-9) (lambda (arg-10) (CoreC-45Name-u--C-61C-61_Eq_Name arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (CoreC-45Name-u--C-47C-61_Eq_Name arg-9 arg-10)))) (vector 1 e-2) u--allNs))) (cond ((equal? sc2 1) (let ((sc3 (PreludeC-45Types-elem (cons (lambda (arg-9) (lambda (arg-10) (PreludeC-45EqOrd-u--C-61C-61_Eq_String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (PreludeC-45EqOrd-u--C-47C-61_Eq_String arg-9 arg-10)))) e-2 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-fst eta-0)) u--ns)))) (cond ((equal? sc3 1) 0) (else 1)))) (else 0)))))))(else 0)))))) +(define IdrisC-45Resugar-n--7571-5551-u--needed (lambda (arg-0 arg-1 arg-2) (case (vector-ref arg-2 0) ((32) 0) ((0) 0) ((40) 0) ((41) 0) ((42) 0) ((44) 0) ((38) 0) ((39) 0) ((15) 0)(else 1)))) +(define IdrisC-45Resugar-n--8498-6930-u--mkIf (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (case (vector-ref arg-7 0) ((4) (let ((e-0 (vector-ref arg-7 1))) (let ((e-1 (vector-ref arg-7 2))) (let ((e-2 (vector-ref arg-7 3))) (if (null? e-2) arg-7 (let ((e-4 (car e-2))) (let ((e-5 (cdr e-2))) (case (vector-ref e-4 0) ((0) (let ((e-6 (vector-ref e-4 1))) (let ((e-7 (vector-ref e-4 2))) (let ((e-8 (vector-ref e-4 3))) (let ((e-9 (vector-ref e-4 4))) (case (vector-ref e-7 0) ((0) (let ((e-10 (vector-ref e-7 1))) (let ((e-11 (vector-ref e-7 2))) (if (null? e-9) (if (null? e-5) arg-7 (let ((e-14 (car e-5))) (let ((e-15 (cdr e-5))) (case (vector-ref e-14 0) ((0) (let ((e-16 (vector-ref e-14 1))) (let ((e-17 (vector-ref e-14 2))) (let ((e-18 (vector-ref e-14 3))) (let ((e-19 (vector-ref e-14 4))) (case (vector-ref e-17 0) ((0) (let ((e-20 (vector-ref e-17 1))) (let ((e-21 (vector-ref e-17 2))) (if (null? e-19) (if (null? e-15) (let ((u--tm (vector 4 e-0 e-1 (cons (vector 0 e-6 (vector 0 e-10 e-11) e-8 '()) (cons (vector 0 e-16 (vector 0 e-20 e-21) e-18 '()) '()))))) (let ((sc10 (let ((sc11 (CoreC-45Name-u--C-61C-61_Eq_Name (CoreC-45Name-dropNS e-11) (vector 1 "True")))) (cond ((equal? sc11 1) (CoreC-45Name-u--C-61C-61_Eq_Name (CoreC-45Name-dropNS e-21) (vector 1 "False"))) (else 0))))) (cond ((equal? sc10 1) (vector 43 e-0 e-1 e-8 e-18)) (else u--tm)))) arg-7) arg-7))))(else arg-7)))))))(else arg-7))))) arg-7))))(else arg-7)))))))(else arg-7)))))))))(else arg-7)))) +(define IdrisC-45Resugar-n--8542-7827-u--mapPiInfo (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (case (vector-ref arg-7 0) ((1) (vector 1 (vector 1 ))) ((0) (vector 1 (vector 0 ))) ((2) (vector 1 (vector 2 ))) (else (let ((e-4 (vector-ref arg-7 1))) (let ((act-24 ((IdrisC-45Resugar-toPTerm arg-6 arg-5 (IdrisC-45Resugar-startPrec) e-4) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 3 e-5))))))))))) +(define IdrisC-45Resugar-n--10554-8219-u--cleanNode (lambda (arg-0 arg-1 arg-2 ext-0) (case (vector-ref arg-2 0) ((0) (let ((e-0 (vector-ref arg-2 1))) (let ((e-1 (vector-ref arg-2 2))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-2 (vector-ref eta-0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-0 1))) (vector 1 (vector 0 e-0 e-5)))))) (IdrisC-45Resugar-n--10554-8218-u--cleanName arg-0 arg-1 e-1) ext-0)))) ((27) (let ((e-2 (vector-ref arg-2 1))) (let ((e-3 (vector-ref arg-2 2))) (let ((e-4 (vector-ref arg-2 3))) (let ((e-5 (vector-ref arg-2 4))) (let ((e-6 (vector-ref arg-2 5))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-7 (vector-ref eta-0 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref eta-0 1))) (vector 1 (vector 27 e-2 e-3 e-7 e-5 e-6)))))) (IdrisC-45Resugar-n--10554-8218-u--cleanName arg-0 arg-1 e-4) ext-0))))))) ((28) (let ((e-7 (vector-ref arg-2 1))) (let ((e-8 (vector-ref arg-2 2))) (let ((e-9 (vector-ref arg-2 3))) (let ((e-10 (vector-ref arg-2 4))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-2 (vector-ref eta-0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-0 1))) (vector 1 (vector 28 e-7 e-8 e-5 e-10)))))) (IdrisC-45Resugar-n--10554-8218-u--cleanName arg-0 arg-1 e-9) ext-0)))))) ((29) (let ((e-11 (vector-ref arg-2 1))) (let ((e-12 (vector-ref arg-2 2))) (let ((e-13 (vector-ref arg-2 3))) (let ((e-14 (vector-ref arg-2 4))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-2 (vector-ref eta-0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-0 1))) (vector 1 (vector 29 e-11 e-12 e-5 e-14)))))) (IdrisC-45Resugar-n--10554-8218-u--cleanName arg-0 arg-1 e-13) ext-0)))))) ((30) (let ((e-15 (vector-ref arg-2 1))) (let ((e-16 (vector-ref arg-2 2))) (let ((e-17 (vector-ref arg-2 3))) (let ((e-18 (vector-ref arg-2 4))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-2 (vector-ref eta-0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-0 1))) (vector 1 (vector 30 e-15 e-16 e-17 e-5)))))) (IdrisC-45Resugar-n--10554-8218-u--cleanName arg-0 arg-1 e-18) ext-0))))))(else (vector 1 arg-2))))) +(define IdrisC-45Resugar-n--10554-8218-u--cleanName (lambda (arg-0 arg-1 arg-2) (case (vector-ref arg-2 0) ((2) (let ((e-0 (vector-ref arg-2 1))) (lambda (eta-0) (vector 1 (vector 1 e-0))))) ((3) (let ((e-2 (vector-ref arg-2 1))) (lambda (eta-0) (vector 1 e-2)))) ((4) (let ((e-4 (vector-ref arg-2 1))) (lambda (eta-0) (vector 1 (vector 1 e-4))))) ((0) (let ((e-7 (vector-ref arg-2 2))) (IdrisC-45Resugar-n--10554-8218-u--cleanName arg-0 arg-1 e-7))) ((6) (let ((e-9 (vector-ref arg-2 2))) (IdrisC-45Resugar-n--10554-8218-u--cleanName arg-0 arg-1 e-9))) ((5) (let ((e-10 (vector-ref arg-2 1))) (lambda (eta-0) (vector 1 (vector 5 e-10)))))(else (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (case (vector-ref eta-1 0) ((0) (let ((e-2 (vector-ref eta-1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-1 1))) (vector 1 (vector 1 e-5)))))) (CoreC-45Context-prettyName arg-1 arg-2) eta-0)))))) +(define IdrisC-45Resugar-unbracketApp (lambda (arg-0) (case (vector-ref arg-0 0) ((32) (let ((e-1 (vector-ref arg-0 2))) (case (vector-ref e-1 0) ((7) e-1)(else arg-0))))(else arg-0)))) +(define IdrisC-45Resugar-unbracket (lambda (arg-0) (case (vector-ref arg-0 0) ((32) (let ((e-1 (vector-ref arg-0 2))) e-1))(else arg-0)))) (define IdrisC-45Resugar-tyPrec (lambda () (+ 1 0))) -(define IdrisC-45Resugar-toPTypeDecl (lambda (arg-0 arg-1 arg-2 ext-0) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((act-24 ((IdrisC-45Resugar-toPTerm arg-0 arg-1 (IdrisC-45Resugar-startPrec) e-3) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-0 e-1 e-2 "" e-5)))))))))))))) -(define IdrisC-45Resugar-toPTermApp (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((8) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((act-24 ((IdrisC-45Resugar-toPTerm arg-0 arg-1 (IdrisC-45Resugar-argPrec) e-2) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (IdrisC-45Resugar-toPTermApp arg-0 arg-1 e-1 (cons (cons e-0 (cons (vector 0 ) e-5)) arg-3) ext-0)))))))))) ((10) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((e-6 (vector-ref sc0 4))) (let ((act-24 ((IdrisC-45Resugar-toPTerm arg-0 arg-1 (IdrisC-45Resugar-startPrec) e-6) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc1 1))) (IdrisC-45Resugar-toPTermApp arg-0 arg-1 e-4 (cons (cons e-3 (cons (vector 1 (vector 1 e-5)) e-7)) arg-3) ext-0))))))))))) ((0) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact e-8 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((u--fn (vector 0 e-7 e-8))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((0) (let ((act-26 ((IdrisC-45Resugar-toPTerm arg-0 arg-1 (IdrisC-45Resugar-appPrec) u--fn) ext-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) ((IdrisC-45Resugar-mkApp arg-0 arg-1 e-9 arg-3) ext-0))))))) (else (let ((e-2 (vector-ref sc3 1))) (let ((act-26 ((IdrisC-45Resugar-toPTerm arg-0 arg-1 (IdrisC-45Resugar-appPrec) u--fn) ext-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-27 (IdrisC-45Resugar-showFullEnv arg-0 ext-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((e-10 (vector-ref sc5 1))) (let ((u--argsC-39 (let ((sc6 e-10)) (cond ((equal? sc6 0) arg-3) (else (DataC-45List-drop (PreludeC-45TypesC-45List-length (let ((sc7 e-2)) (let ((e-23 (vector-ref sc7 9))) e-23))) arg-3)))))) ((IdrisC-45Resugar-mkApp arg-0 arg-1 e-9 u--argsC-39) ext-0))))))))))))))))))))))))))))))(else (let ((act-24 ((IdrisC-45Resugar-toPTerm arg-0 arg-1 (IdrisC-45Resugar-appPrec) arg-2) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((IdrisC-45Resugar-mkApp arg-0 arg-1 e-5 arg-3) ext-0))))))))))) -(define IdrisC-45Resugar-toPTerm (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (CoreC-45Context-getPPrint arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((IdrisC-45Resugar-case--toPTerm-5159 e-1 e-0 arg-2 arg-1 arg-0 e-5 (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 3))) e-2))) eta-0)))))))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (let ((e-6 (vector-ref sc0 5))) (let ((e-7 (vector-ref sc0 6))) (lambda (clam-0) (let ((sc1 e-4)) (case (vector-ref sc1 0) ((0) (let ((act-24 (IdrisC-45Resugar-showImplicits arg-0 clam-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-8 (vector-ref sc2 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc2 1))) (let ((sc3 e-8)) (cond ((equal? sc3 0) (let ((act-25 ((IdrisC-45Resugar-toPTerm arg-0 arg-1 (IdrisC-45Resugar-tyPrec) e-6) clam-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-26 ((IdrisC-45Resugar-toPTerm arg-0 arg-1 (IdrisC-45Resugar-tyPrec) e-7) clam-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc5 1))) (IdrisC-45Resugar-bracket arg-1 arg-2 (IdrisC-45Resugar-tyPrec) (vector 1 e-2 e-3 (vector 0 ) e-5 e-9 e-10) clam-0)))))))))))) (else (let ((u--imp 1)) ((IdrisC-45Resugar-case--caseC-32blockC-32inC-32toPTerm-5278 e-7 e-6 e-5 e-3 e-2 arg-2 arg-1 arg-0 u--imp (IdrisC-45Resugar-n--12467-5191-u--needsBind e-7 e-6 e-5 e-3 e-2 arg-2 arg-1 arg-0 e-5)) clam-0)))))))))))(else (let ((act-24 ((IdrisC-45Resugar-toPTerm arg-0 arg-1 (IdrisC-45Resugar-appPrec) e-6) clam-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-8 (vector-ref sc1 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc1 1))) (let ((act-25 ((IdrisC-45Resugar-toPTerm arg-0 arg-1 (IdrisC-45Resugar-tyPrec) e-7) clam-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-9 (vector-ref sc2 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc2 1))) (let ((act-26 (CoreC-45CoreC-45PiInfo-traverse (lambda (eta-0) (IdrisC-45Resugar-toPTerm arg-0 arg-1 (IdrisC-45Resugar-argPrec) eta-0)) e-4 clam-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc3 1))) (IdrisC-45Resugar-bracket arg-1 arg-2 (IdrisC-45Resugar-tyPrec) (vector 1 e-2 e-3 e-10 e-5 e-8 e-9) clam-0))))))))))))))))))))))))))) ((2) (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 3))) (let ((e-11 (vector-ref sc0 4))) (let ((e-12 (vector-ref sc0 5))) (let ((e-13 (vector-ref sc0 6))) (let ((u--n (let ((sc1 e-11)) (case (vector-ref sc1 0) ((0) (vector 1 "_")) (else (let ((e-2 (vector-ref sc1 1))) e-2)))))) (lambda (eta-0) (let ((act-24 (IdrisC-45Resugar-showImplicits arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((sc2 e-5)) (cond ((equal? sc2 0) ((IdrisC-45Resugar-toPTerm arg-0 arg-1 (IdrisC-45Resugar-tyPrec) e-12) eta-0)) (else (vector 1 (vector 25 e-8))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((IdrisC-45Resugar-toPTerm arg-0 arg-1 (IdrisC-45Resugar-startPrec) e-13) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (CoreC-45CoreC-45PiInfo-traverse (lambda (eta-1) (IdrisC-45Resugar-toPTerm arg-0 arg-1 (IdrisC-45Resugar-argPrec) eta-1)) e-10 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref sc4 1))) (IdrisC-45Resugar-bracket arg-1 arg-2 (IdrisC-45Resugar-startPrec) (vector 2 e-8 e-9 e-14 (vector 0 e-8 u--n) e-6 e-7) eta-0)))))))))))))))))))))))))))))) ((3) (let ((e-14 (vector-ref sc0 1))) (let ((e-15 (vector-ref sc0 2))) (let ((e-16 (vector-ref sc0 3))) (let ((e-17 (vector-ref sc0 4))) (let ((e-18 (vector-ref sc0 5))) (let ((e-19 (vector-ref sc0 6))) (let ((e-20 (vector-ref sc0 7))) (lambda (eta-0) (let ((act-24 (IdrisC-45Resugar-showImplicits arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((sc2 e-5)) (cond ((equal? sc2 0) ((IdrisC-45Resugar-toPTerm arg-0 arg-1 (IdrisC-45Resugar-startPrec) e-18) eta-0)) (else (vector 1 (vector 25 e-14))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((IdrisC-45Resugar-toPTerm arg-0 arg-1 (IdrisC-45Resugar-startPrec) e-19) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((IdrisC-45Resugar-toPTerm arg-0 arg-1 (IdrisC-45Resugar-startPrec) e-20) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (IdrisC-45Resugar-bracket arg-1 arg-2 (IdrisC-45Resugar-startPrec) (vector 3 e-14 e-16 (vector 0 e-15 e-17) e-6 e-7 e-8 '()) eta-0)))))))))))))))))))))))))))))) ((4) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (let ((e-24 (vector-ref sc0 4))) (let ((sc1 e-24)) (if (null? sc1) (lambda (eta-0) (let ((act-24 ((IdrisC-45Resugar-toPTerm arg-0 arg-1 (IdrisC-45Resugar-startPrec) e-22) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (eta-1) (lambda (eta-2) (IdrisC-45Resugar-toPClause arg-0 arg-1 eta-1 eta-2))) e-24 '() eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (IdrisC-45Resugar-bracket arg-1 arg-2 (IdrisC-45Resugar-startPrec) (IdrisC-45Resugar-n--12467-5586-u--mkIf e-24 e-23 e-22 e-21 arg-2 arg-1 arg-0 (vector 4 e-21 e-5 e-6)) eta-0)))))))))))) (let ((e-104 (car sc1))) (let ((e-105 (cdr sc1))) (lambda (clam-0) (let ((sc2 e-104)) (case (vector-ref sc2 0) ((0) (let ((e-107 (vector-ref sc2 2))) (let ((e-108 (vector-ref sc2 3))) (let ((sc3 e-105)) (if (null? sc3) (let ((act-24 ((IdrisC-45Resugar-toPTerm arg-0 arg-1 (IdrisC-45Resugar-startPrec) e-22) clam-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 ((IdrisC-45Resugar-toPTerm arg-0 arg-1 (IdrisC-45Resugar-startPrec) e-107) clam-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 ((IdrisC-45Resugar-toPTerm arg-0 arg-1 (IdrisC-45Resugar-startPrec) e-108) clam-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (IdrisC-45Resugar-bracket arg-1 arg-2 (IdrisC-45Resugar-startPrec) (vector 3 e-21 (AlgebraC-45ZeroOneOmega-u--top_Top_ZeroOneOmega) e-6 (vector 25 e-21) e-5 e-7 '()) clam-0)))))))))))))))) (let ((act-24 ((IdrisC-45Resugar-toPTerm arg-0 arg-1 (IdrisC-45Resugar-startPrec) e-22) clam-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (IdrisC-45Resugar-toPClause arg-0 arg-1 eta-0 eta-1))) e-24 '() clam-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (IdrisC-45Resugar-bracket arg-1 arg-2 (IdrisC-45Resugar-startPrec) (IdrisC-45Resugar-n--12467-5586-u--mkIf e-24 e-23 e-22 e-21 arg-2 arg-1 arg-0 (vector 4 e-21 e-5 e-6)) clam-0))))))))))))))))(else (let ((act-24 ((IdrisC-45Resugar-toPTerm arg-0 arg-1 (IdrisC-45Resugar-startPrec) e-22) clam-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (IdrisC-45Resugar-toPClause arg-0 arg-1 eta-0 eta-1))) e-24 '() clam-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (IdrisC-45Resugar-bracket arg-1 arg-2 (IdrisC-45Resugar-startPrec) (IdrisC-45Resugar-n--12467-5586-u--mkIf e-24 e-23 e-22 e-21 arg-2 arg-1 arg-0 (vector 4 e-21 e-5 e-6)) clam-0)))))))))))))))))))))))) ((5) (let ((e-25 (vector-ref sc0 1))) (let ((e-26 (vector-ref sc0 2))) (let ((e-27 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-1) (lambda (eta-2) (IdrisC-45Resugar-toPDecl arg-0 arg-1 eta-1 eta-2))) e-26 '() eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((IdrisC-45Resugar-toPTerm arg-0 arg-1 (IdrisC-45Resugar-startPrec) e-27) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (IdrisC-45Resugar-bracket arg-1 arg-2 (IdrisC-45Resugar-startPrec) (vector 5 e-25 (DataC-45List-mapMaybe (lambda (eta-1) eta-1) e-5) e-6) eta-0)))))))))))))))) ((6) (let ((e-32 (vector-ref sc0 5))) (IdrisC-45Resugar-toPTerm arg-0 arg-1 arg-2 e-32))) ((7) (let ((e-33 (vector-ref sc0 1))) (let ((e-34 (vector-ref sc0 2))) (let ((e-35 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-1) (lambda (eta-2) (IdrisC-45Resugar-toPFieldUpdate arg-0 arg-1 eta-1 eta-2))) e-34 '() eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((IdrisC-45Resugar-toPTerm arg-0 arg-1 (IdrisC-45Resugar-argPrec) e-35) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (IdrisC-45Resugar-bracket arg-1 arg-2 (IdrisC-45Resugar-startPrec) (vector 7 e-33 (vector 6 e-33 e-5) e-6) eta-0)))))))))))))))) ((8) (let ((e-36 (vector-ref sc0 1))) (let ((e-37 (vector-ref sc0 2))) (let ((e-38 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((IdrisC-45Resugar-toPTerm arg-0 arg-1 (IdrisC-45Resugar-argPrec) e-38) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (IdrisC-45Resugar-toPTermApp arg-0 arg-1 e-37 (cons (cons e-36 (cons (vector 0 ) e-5)) '()) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (IdrisC-45Resugar-bracket arg-1 arg-2 (IdrisC-45Resugar-appPrec) e-6 eta-0)))))))))))))))) ((9) (let ((e-39 (vector-ref sc0 1))) (let ((e-40 (vector-ref sc0 2))) (let ((e-41 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((IdrisC-45Resugar-toPTerm arg-0 arg-1 (IdrisC-45Resugar-argPrec) e-41) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (IdrisC-45Resugar-toPTermApp arg-0 arg-1 e-40 (cons (cons e-39 (cons (vector 1 (vector 0 )) e-5)) '()) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (IdrisC-45Resugar-bracket arg-1 arg-2 (IdrisC-45Resugar-appPrec) e-6 eta-0)))))))))))))))) ((11) (let ((e-42 (vector-ref sc0 1))) (let ((e-43 (vector-ref sc0 2))) (let ((e-44 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((IdrisC-45Resugar-toPTerm arg-0 arg-1 (IdrisC-45Resugar-startPrec) e-44) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((IdrisC-45Resugar-toPTerm arg-0 arg-1 (IdrisC-45Resugar-startPrec) e-43) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (IdrisC-45Resugar-bracket arg-1 arg-2 (IdrisC-45Resugar-appPrec) (vector 8 e-42 e-6 e-5) eta-0)))))))))))))))) ((10) (let ((e-45 (vector-ref sc0 1))) (let ((e-46 (vector-ref sc0 2))) (let ((e-47 (vector-ref sc0 3))) (let ((e-48 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((IdrisC-45Resugar-toPTerm arg-0 arg-1 (IdrisC-45Resugar-startPrec) e-48) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (IdrisC-45Resugar-toPTermApp arg-0 arg-1 e-46 (cons (cons e-45 (cons (vector 1 (vector 1 e-47)) e-5)) '()) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (IdrisC-45Resugar-showImplicits arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (cond ((equal? sc4 0) (IdrisC-45Resugar-bracket arg-1 arg-2 (IdrisC-45Resugar-startPrec) e-6 eta-0)) (else ((IdrisC-45Resugar-mkOp arg-1 e-6) eta-0))))))))))))))))))))))))) ((12) (let ((e-49 (vector-ref sc0 1))) (let ((e-50 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 14 e-49 e-50)))))) ((13) (let ((e-51 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 25 e-51))))) ((14) (let ((e-54 (vector-ref sc0 1))) (let ((e-55 (vector-ref sc0 2))) (let ((e-56 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((IdrisC-45Resugar-toPTerm arg-0 arg-1 (IdrisC-45Resugar-startPrec) e-55) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((IdrisC-45Resugar-toPTerm arg-0 arg-1 (IdrisC-45Resugar-startPrec) e-56) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 44 e-54 e-5 e-6))))))))))))))))) ((15) (let ((e-58 (vector-ref sc0 2))) (IdrisC-45Resugar-toPTerm arg-0 arg-1 arg-2 e-58))) ((28) (let ((e-59 (vector-ref sc0 1))) (let ((e-60 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 15 e-59 e-60)))))) ((30) (let ((e-61 (vector-ref sc0 1))) (let ((e-62 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 21 e-61 1 e-62)))))) ((29) (let ((e-63 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 22 e-63))))) ((17) (let ((e-64 (vector-ref sc0 1))) (let ((e-65 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 e-64 (vector 1 e-65))))))) ((16) (let ((e-68 (vector-ref sc0 3))) (IdrisC-45Resugar-toPTerm arg-0 arg-1 arg-2 e-68))) ((18) (let ((e-69 (vector-ref sc0 1))) (let ((e-70 (vector-ref sc0 2))) (let ((e-72 (vector-ref sc0 4))) (let ((e-73 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((IdrisC-45Resugar-toPTerm arg-0 arg-1 (IdrisC-45Resugar-argPrec) e-73) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 23 e-69 e-70 e-72 e-5))))))))))))) ((19) (let ((e-74 (vector-ref sc0 1))) (let ((e-76 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((IdrisC-45Resugar-toPTerm arg-0 arg-1 (IdrisC-45Resugar-argPrec) e-76) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 24 e-74 e-5))))))))))) ((20) (let ((e-77 (vector-ref sc0 1))) (let ((e-78 (vector-ref sc0 2))) (let ((e-79 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((IdrisC-45Resugar-toPTerm arg-0 arg-1 (IdrisC-45Resugar-argPrec) e-79) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 11 e-77 e-78 e-5)))))))))))) ((21) (let ((e-80 (vector-ref sc0 1))) (let ((e-81 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((IdrisC-45Resugar-toPTerm arg-0 arg-1 (IdrisC-45Resugar-argPrec) e-81) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 12 e-80 e-5))))))))))) ((22) (let ((e-82 (vector-ref sc0 1))) (let ((e-83 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((IdrisC-45Resugar-toPTerm arg-0 arg-1 (IdrisC-45Resugar-argPrec) e-83) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 13 e-82 e-5))))))))))) ((23) (let ((e-84 (vector-ref sc0 1))) (let ((e-85 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((IdrisC-45Resugar-toPTerm arg-0 arg-1 (IdrisC-45Resugar-argPrec) e-85) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 16 e-84 e-5))))))))))) ((24) (let ((e-86 (vector-ref sc0 1))) (let ((e-87 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 17 e-86 e-87)))))) ((25) (let ((e-88 (vector-ref sc0 1))) (let ((e-89 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-1) (lambda (eta-2) (IdrisC-45Resugar-toPDecl arg-0 arg-1 eta-1 eta-2))) e-89 '() eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 18 e-88 (DataC-45List-mapMaybe (lambda (eta-1) eta-1) e-5)))))))))))) ((26) (let ((e-90 (vector-ref sc0 1))) (let ((e-91 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((IdrisC-45Resugar-toPTerm arg-0 arg-1 (IdrisC-45Resugar-argPrec) e-91) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 19 e-90 e-5))))))))))) ((27) (let ((e-92 (vector-ref sc0 1))) (let ((e-93 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((IdrisC-45Resugar-toPTerm arg-0 arg-1 (IdrisC-45Resugar-argPrec) e-93) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 20 e-92 e-5))))))))))) ((31) (let ((e-96 (vector-ref sc0 3))) (IdrisC-45Resugar-toPTerm arg-0 arg-1 arg-2 e-96))) ((32) (let ((e-97 (vector-ref sc0 1))) (let ((e-98 (vector-ref sc0 2))) (lambda (clam-2) (let ((sc1 e-98)) (cond ((equal? sc1 0) (vector 1 (vector 25 e-97))) (else (vector 1 (vector 26 e-97))))))))) (else (let ((e-99 (vector-ref sc0 1))) (let ((e-100 (vector-ref sc0 2))) (let ((e-101 (vector-ref sc0 3))) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 50 e-99 e-100 e-5))))))) (IdrisC-45Resugar-toPTerm arg-0 arg-1 (IdrisC-45Resugar-startPrec) e-101) eta-0)))))))))) -(define IdrisC-45Resugar-toPRef (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (IdrisC-45Resugar-sugarApp (vector 0 arg-0 (vector 1 e-0))))))) ((3) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (IdrisC-45Resugar-sugarApp (vector 0 arg-0 e-2)))))) ((4) (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (IdrisC-45Resugar-sugarApp (vector 0 arg-0 (vector 1 e-4))))))) ((6) (let ((e-7 (vector-ref sc0 2))) (IdrisC-45Resugar-toPRef arg-0 e-7)))(else (lambda (eta-0) (vector 1 (IdrisC-45Resugar-sugarApp (vector 0 arg-0 arg-1))))))))) -(define IdrisC-45Resugar-toPRecord (lambda (arg-0 arg-1 arg-2 ext-0) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (let ((sc1 lamc-0)) (let ((e-6 (car sc1))) (let ((e-5 (cdr sc1))) (lambda (clam-0) (let ((sc2 e-5)) (let ((e-8 (car sc2))) (let ((e-7 (cdr sc2))) (let ((sc3 e-7)) (let ((e-10 (car sc3))) (let ((e-11 (cdr sc3))) (let ((act-24 ((IdrisC-45Resugar-toPTerm arg-0 arg-1 (IdrisC-45Resugar-startPrec) e-11) clam-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-25 (IdrisC-45Resugar-n--12491-6474-u--mapPiInfo e-4 e-3 e-2 e-1 e-0 arg-1 arg-0 e-10 clam-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-12 (vector-ref sc5 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc5 1))) (vector 1 (cons e-6 (cons e-8 (cons e-12 e-9))))))))))))))))))))))))) e-2 '() ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (IdrisC-45Resugar-toPField arg-0 arg-1 eta-0 eta-1))) e-4 '() ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (cons e-1 (cons e-5 (cons (vector 1 e-3) e-6)))))))))))))))))))))) -(define IdrisC-45Resugar-toPFnOpt (lambda (arg-0 arg-1 arg-2 ext-0) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((5) (let ((e-0 (vector-ref sc0 1))) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (IdrisC-45Resugar-toPTerm arg-0 arg-1 (IdrisC-45Resugar-startPrec) eta-0)) e-0 '() ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-5)))))))))(else (vector 1 (vector 0 arg-2))))))) -(define IdrisC-45Resugar-toPFieldUpdate (lambda (arg-0 arg-1 arg-2 ext-0) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((act-24 ((IdrisC-45Resugar-toPTerm arg-0 arg-1 (IdrisC-45Resugar-startPrec) e-1) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-0 e-5)))))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((act-24 ((IdrisC-45Resugar-toPTerm arg-0 arg-1 (IdrisC-45Resugar-startPrec) e-3) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-2 e-5)))))))))))))) -(define IdrisC-45Resugar-toPField (lambda (arg-0 arg-1 arg-2 ext-0) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((act-24 ((IdrisC-45Resugar-toPTerm arg-0 arg-1 (IdrisC-45Resugar-startPrec) e-4) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45CoreC-45PiInfo-traverse (lambda (eta-0) (IdrisC-45Resugar-toPTerm arg-0 arg-1 (IdrisC-45Resugar-startPrec) eta-0)) e-2 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 0 e-0 "" e-1 e-6 e-3 e-5)))))))))))))))))))) -(define IdrisC-45Resugar-toPDecl (lambda (arg-0 arg-1 arg-2 ext-0) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (IdrisC-45Resugar-toPFnOpt arg-0 arg-1 eta-0 eta-1))) e-3 '() ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (IdrisC-45Resugar-toPTypeDecl arg-0 arg-1 e-4 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 1 (vector 0 e-0 e-1 e-2 e-5 e-6))))))))))))))))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((act-24 (IdrisC-45Resugar-toPData arg-0 arg-1 e-7 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc1 1))) (vector 1 (vector 1 (vector 2 e-5 "" e-6 e-8)))))))))))) ((2) (let ((e-8 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 3))) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (IdrisC-45Resugar-toPClause arg-0 arg-1 eta-0 eta-1))) e-10 '() ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 (vector 1 e-8 e-5))))))))))) ((3) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (IdrisC-45Resugar-toPDecl arg-0 arg-1 eta-0 eta-1))) e-13 '() ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (let ((sc2 lamc-0)) (let ((e-2 (car sc2))) (let ((e-3 (cdr sc2))) (lambda (clam-0) (let ((sc3 e-3)) (let ((e-6 (car sc3))) (let ((e-7 (cdr sc3))) (let ((sc4 e-7)) (let ((e-10 (car sc4))) (let ((e-14 (cdr sc4))) (let ((act-25 (CoreC-45CoreC-45PiInfo-traverse (lambda (eta-0) (IdrisC-45Resugar-toPTerm arg-0 arg-1 (IdrisC-45Resugar-startPrec) eta-0)) e-10 clam-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-26 ((IdrisC-45Resugar-toPTerm arg-0 arg-1 (IdrisC-45Resugar-startPrec) e-14) clam-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc6 1))) (vector 1 (cons e-2 (cons e-6 (cons e-8 e-9))))))))))))))))))))))))) e-12 '() ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 1 (vector 3 e-11 e-6 (DataC-45List-mapMaybe (lambda (eta-0) eta-0) e-5)))))))))))))))))) ((4) (let ((e-14 (vector-ref sc0 1))) (let ((e-16 (vector-ref sc0 3))) (let ((e-17 (vector-ref sc0 4))) (let ((act-24 (IdrisC-45Resugar-toPRecord arg-0 arg-1 e-17 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (car sc2))) (let ((e-3 (cdr sc2))) (let ((sc3 e-3)) (let ((e-6 (car sc3))) (let ((e-7 (cdr sc3))) (let ((sc4 e-7)) (let ((e-10 (car sc4))) (let ((e-11 (cdr sc4))) (vector 1 (vector 1 (vector 8 e-14 "" e-16 e-2 e-6 e-10 e-11))))))))))))))))))))) ((5) (let ((e-18 (vector-ref sc0 1))) (let ((e-19 (vector-ref sc0 2))) (let ((e-20 (vector-ref sc0 3))) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (IdrisC-45Resugar-toPDecl arg-0 arg-1 eta-0 eta-1))) e-20 '() ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 (vector 11 e-18 e-19 (DataC-45List-mapMaybe (lambda (eta-0) eta-0) e-5))))))))))))) ((6) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (let ((e-24 (vector-ref sc0 4))) (let ((act-24 ((IdrisC-45Resugar-toPTerm arg-0 arg-1 (IdrisC-45Resugar-startPrec) e-23) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((IdrisC-45Resugar-toPTerm arg-0 arg-1 (IdrisC-45Resugar-startPrec) e-24) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 1 (vector 12 e-21 (CoreC-45Name-u--show_Show_Name e-22) e-5 e-6)))))))))))))))))) ((7) (let ((e-25 (vector-ref sc0 1))) (let ((e-26 (vector-ref sc0 2))) (let ((act-24 ((IdrisC-45Resugar-toPTerm arg-0 arg-1 (IdrisC-45Resugar-startPrec) e-26) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 (vector 13 e-25 e-5))))))))))) ((8) (vector 1 (vector 0 ))) ((9) (vector 1 (vector 0 ))) (else (let ((e-30 (vector-ref sc0 1))) (let ((e-31 (vector-ref sc0 2))) (let ((e-32 (vector-ref sc0 3))) (vector 1 (vector 1 (vector 15 e-30 e-31 e-32))))))))))) -(define IdrisC-45Resugar-toPData (lambda (arg-0 arg-1 arg-2 ext-0) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((act-24 ((IdrisC-45Resugar-toPTerm arg-0 arg-1 (IdrisC-45Resugar-startPrec) e-2) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (IdrisC-45Resugar-toPTypeDecl arg-0 arg-1 eta-0 eta-1))) e-4 '() ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 0 e-0 e-1 e-5 e-3 e-6)))))))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((act-24 ((IdrisC-45Resugar-toPTerm arg-0 arg-1 (IdrisC-45Resugar-startPrec) e-7) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc1 1))) (vector 1 (vector 1 e-5 e-6 e-8))))))))))))))) -(define IdrisC-45Resugar-toPClause (lambda (arg-0 arg-1 arg-2 ext-0) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((act-24 ((IdrisC-45Resugar-toPTerm arg-0 arg-1 (IdrisC-45Resugar-startPrec) e-1) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((IdrisC-45Resugar-toPTerm arg-0 arg-1 (IdrisC-45Resugar-startPrec) e-2) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 0 e-0 e-5 e-6 '())))))))))))))))) ((1) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((e-6 (vector-ref sc0 4))) (let ((e-7 (vector-ref sc0 5))) (let ((e-8 (vector-ref sc0 6))) (let ((act-24 ((IdrisC-45Resugar-toPTerm arg-0 arg-1 (IdrisC-45Resugar-startPrec) e-4) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc1 1))) (let ((act-25 ((IdrisC-45Resugar-toPTerm arg-0 arg-1 (IdrisC-45Resugar-startPrec) e-5) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc2 1))) (let ((act-26 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (IdrisC-45Resugar-toPClause arg-0 arg-1 eta-0 eta-1))) e-8 '() ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc3 1))) (vector 1 (vector 1 e-3 e-9 e-10 e-6 e-7 e-11)))))))))))))))))))))))) (else (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (let ((act-24 ((IdrisC-45Resugar-toPTerm arg-0 arg-1 (IdrisC-45Resugar-startPrec) e-10) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 2 e-9 e-5)))))))))))))) -(define IdrisC-45Resugar-toCleanPTerm (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 ((IdrisC-45Resugar-toPTerm arg-0 arg-1 arg-2 arg-3) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (IdrisC-45Resugar-cleanPTerm arg-0 e-5 ext-0)))))))) -(define IdrisC-45Resugar-sugarName (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (PreludeC-45TypesC-45String-C-43C-43 "(implicit) " e-0))) ((3) (let ((e-2 (vector-ref sc0 1))) (IdrisC-45Resugar-sugarName e-2))) ((4) (let ((e-4 (vector-ref sc0 1))) e-4))(else (CoreC-45Name-u--show_Show_Name arg-0)))))) -(define IdrisC-45Resugar-sugarAppM (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((7) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((7) (let ((e-3 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (let ((e-5 (vector-ref sc1 3))) (let ((sc2 e-4)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((0) (let ((e-8 (vector-ref sc3 1))) (let ((e-9 (vector-ref sc3 2))) (IdrisC-45Resugar-case--sugarAppM-4641 e-3 e-6 e-9 e-8 e-5 e-2 e-0 (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace (CoreC-45NameC-45Namespace-builtinNS) e-8)))))(else (IdrisC-45Resugar-case--sugarAppM-4942 arg-0 (IdrisC-45Resugar-extractNat 0 arg-0))))))))(else (IdrisC-45Resugar-case--sugarAppM-4942 arg-0 (IdrisC-45Resugar-extractNat 0 arg-0)))))))))(else (IdrisC-45Resugar-case--sugarAppM-4942 arg-0 (IdrisC-45Resugar-extractNat 0 arg-0)))))))))(else (IdrisC-45Resugar-case--sugarAppM-4942 arg-0 (IdrisC-45Resugar-extractNat 0 arg-0))))))) +(define IdrisC-45Resugar-toPTypeDecl (lambda (arg-0 arg-1 arg-2 ext-0) (let ((e-0 (vector-ref arg-2 0))) (let ((e-1 (vector-ref arg-2 1))) (let ((e-2 (vector-ref arg-2 2))) (let ((e-3 (vector-ref arg-2 3))) (let ((act-24 ((IdrisC-45Resugar-toPTerm arg-0 arg-1 (IdrisC-45Resugar-startPrec) e-3) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector e-0 e-1 e-2 "" e-5)))))))))))) +(define IdrisC-45Resugar-toPTermApp (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (case (vector-ref arg-2 0) ((8) (let ((e-0 (vector-ref arg-2 1))) (let ((e-1 (vector-ref arg-2 2))) (let ((e-2 (vector-ref arg-2 3))) (let ((act-24 ((IdrisC-45Resugar-toPTerm arg-0 arg-1 (IdrisC-45Resugar-argPrec) e-2) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref act-24 1))) (IdrisC-45Resugar-toPTermApp arg-0 arg-1 e-1 (cons (cons e-0 (cons '() e-5)) arg-3) ext-0))))))))) ((10) (let ((e-3 (vector-ref arg-2 1))) (let ((e-4 (vector-ref arg-2 2))) (let ((e-5 (vector-ref arg-2 3))) (let ((e-6 (vector-ref arg-2 4))) (let ((act-24 ((IdrisC-45Resugar-toPTerm arg-0 arg-1 (IdrisC-45Resugar-startPrec) e-6) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-24 1))) (IdrisC-45Resugar-toPTermApp arg-0 arg-1 e-4 (cons (cons e-3 (cons (box (box e-5)) e-7)) arg-3) ext-0)))))))))) ((0) (let ((e-7 (vector-ref arg-2 1))) (let ((e-8 (vector-ref arg-2 2))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact e-8 (let ((e-0 (vector-ref e-5 0))) e-0)) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((u--fn (vector 0 e-7 e-8))) (if (null? e-6) (let ((act-26 ((IdrisC-45Resugar-toPTerm arg-0 arg-1 (IdrisC-45Resugar-appPrec) u--fn) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-26 1))) ((IdrisC-45Resugar-mkApp arg-0 arg-1 e-9 arg-3) ext-0))))) (let ((e-2 (unbox e-6))) (let ((act-26 ((IdrisC-45Resugar-toPTerm arg-0 arg-1 (IdrisC-45Resugar-appPrec) u--fn) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-3 (vector-ref act-26 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref act-26 1))) (let ((act-27 (IdrisC-45Resugar-showFullEnv arg-0 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-3 (vector-ref act-27 1))) (vector 0 e-3))) (else (let ((e-10 (vector-ref act-27 1))) (let ((u--argsC-39 (cond ((equal? e-10 1) arg-3) (else (DataC-45List-drop (PreludeC-45TypesC-45List-length (let ((e-23 (vector-ref e-2 8))) e-23)) arg-3))))) ((IdrisC-45Resugar-mkApp arg-0 arg-1 e-9 u--argsC-39) ext-0))))))))))))))))))))))))(else (let ((act-24 ((IdrisC-45Resugar-toPTerm arg-0 arg-1 (IdrisC-45Resugar-appPrec) arg-2) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) ((IdrisC-45Resugar-mkApp arg-0 arg-1 e-5 arg-3) ext-0))))))))) +(define IdrisC-45Resugar-toPTerm (lambda (arg-0 arg-1 arg-2 arg-3) (case (vector-ref arg-3 0) ((0) (let ((e-0 (vector-ref arg-3 1))) (let ((e-1 (vector-ref arg-3 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (CoreC-45Context-getPPrint arg-0 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((sc2 (let ((e-2 (vector-ref e-5 2))) e-2))) (cond ((equal? sc2 1) (vector 1 (vector 0 e-0 e-1))) (else ((IdrisC-45Resugar-toPRef e-0 e-1) eta-0)))))))))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45ContextC-45Log-log arg-0 "resugar.var" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (lambda () (DataC-45String-unwords (cons "Resugaring" (cons (CoreC-45Name-u--show_Show_RawName e-1) (cons "to" (cons (IdrisC-45Syntax-u--show_Show_PTerm e-5) '())))))) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (vector 1 e-5)))))))))))) ((1) (let ((e-2 (vector-ref arg-3 1))) (let ((e-3 (vector-ref arg-3 2))) (let ((e-4 (vector-ref arg-3 3))) (let ((e-5 (vector-ref arg-3 4))) (let ((e-6 (vector-ref arg-3 5))) (let ((e-7 (vector-ref arg-3 6))) (lambda (clam-0) (case (vector-ref e-4 0) ((0) (let ((act-24 (IdrisC-45Resugar-showImplicits arg-0 clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-8 (vector-ref act-24 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref act-24 1))) (cond ((equal? e-8 1) (let ((act-25 ((IdrisC-45Resugar-toPTerm arg-0 arg-1 (IdrisC-45Resugar-tyPrec) e-6) clam-0))) (case (vector-ref act-25 0) ((0) (let ((e-9 (vector-ref act-25 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref act-25 1))) (let ((act-26 ((IdrisC-45Resugar-toPTerm arg-0 arg-1 (IdrisC-45Resugar-tyPrec) e-7) clam-0))) (case (vector-ref act-26 0) ((0) (let ((e-10 (vector-ref act-26 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-26 1))) (IdrisC-45Resugar-bracket arg-1 arg-2 (IdrisC-45Resugar-tyPrec) (vector 1 e-2 e-3 (vector 0 ) e-5 e-9 e-10) clam-0)))))))))) (else (let ((sc4 (IdrisC-45Resugar-n--8498-6527-u--needsBind e-7 e-6 e-5 e-3 e-2 arg-2 arg-1 arg-0 e-5))) (cond ((equal? sc4 1) (let ((act-25 ((IdrisC-45Resugar-toPTerm arg-0 arg-1 (IdrisC-45Resugar-tyPrec) e-6) clam-0))) (case (vector-ref act-25 0) ((0) (let ((e-9 (vector-ref act-25 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref act-25 1))) (let ((act-26 ((IdrisC-45Resugar-toPTerm arg-0 arg-1 (IdrisC-45Resugar-tyPrec) e-7) clam-0))) (case (vector-ref act-26 0) ((0) (let ((e-10 (vector-ref act-26 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-26 1))) (IdrisC-45Resugar-bracket arg-1 arg-2 (IdrisC-45Resugar-tyPrec) (vector 1 e-2 e-3 (vector 0 ) e-5 e-9 e-10) clam-0)))))))))) (else ((IdrisC-45Resugar-toPTerm arg-0 arg-1 arg-2 e-7) clam-0)))))))))))(else (let ((act-24 ((IdrisC-45Resugar-toPTerm arg-0 arg-1 (IdrisC-45Resugar-appPrec) e-6) clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-8 (vector-ref act-24 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref act-24 1))) (let ((act-25 ((IdrisC-45Resugar-toPTerm arg-0 arg-1 (IdrisC-45Resugar-tyPrec) e-7) clam-0))) (case (vector-ref act-25 0) ((0) (let ((e-9 (vector-ref act-25 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref act-25 1))) (let ((act-26 (CoreC-45CoreC-45PiInfo-traverse (lambda (eta-0) (IdrisC-45Resugar-toPTerm arg-0 arg-1 (IdrisC-45Resugar-argPrec) eta-0)) e-4 clam-0))) (case (vector-ref act-26 0) ((0) (let ((e-10 (vector-ref act-26 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref act-26 1))) (IdrisC-45Resugar-bracket arg-1 arg-2 (IdrisC-45Resugar-tyPrec) (vector 1 e-2 e-3 e-10 e-5 e-8 e-9) clam-0))))))))))))))))))))))) ((2) (let ((e-8 (vector-ref arg-3 1))) (let ((e-9 (vector-ref arg-3 2))) (let ((e-10 (vector-ref arg-3 3))) (let ((e-11 (vector-ref arg-3 4))) (let ((e-12 (vector-ref arg-3 5))) (let ((e-13 (vector-ref arg-3 6))) (let ((u--n (if (null? e-11) (vector 1 "_") (let ((e-2 (unbox e-11))) e-2)))) (lambda (eta-0) (let ((act-24 (IdrisC-45Resugar-showImplicits arg-0 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (cond ((equal? e-5 1) ((IdrisC-45Resugar-toPTerm arg-0 arg-1 (IdrisC-45Resugar-tyPrec) e-12) eta-0)) (else (vector 1 (vector 25 e-8)))))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 ((IdrisC-45Resugar-toPTerm arg-0 arg-1 (IdrisC-45Resugar-startPrec) e-13) eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (CoreC-45CoreC-45PiInfo-traverse (lambda (eta-1) (IdrisC-45Resugar-toPTerm arg-0 arg-1 (IdrisC-45Resugar-argPrec) eta-1)) e-10 eta-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref act-27 1))) (IdrisC-45Resugar-bracket arg-1 arg-2 (IdrisC-45Resugar-startPrec) (vector 2 e-8 e-9 e-14 (vector 0 e-8 u--n) e-6 e-7) eta-0)))))))))))))))))))))))))) ((3) (let ((e-14 (vector-ref arg-3 1))) (let ((e-15 (vector-ref arg-3 2))) (let ((e-16 (vector-ref arg-3 3))) (let ((e-17 (vector-ref arg-3 4))) (let ((e-18 (vector-ref arg-3 5))) (let ((e-19 (vector-ref arg-3 6))) (let ((e-20 (vector-ref arg-3 7))) (lambda (eta-0) (let ((act-24 (IdrisC-45Resugar-showImplicits arg-0 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (cond ((equal? e-5 1) ((IdrisC-45Resugar-toPTerm arg-0 arg-1 (IdrisC-45Resugar-startPrec) e-18) eta-0)) (else (vector 1 (vector 25 e-14)))))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 ((IdrisC-45Resugar-toPTerm arg-0 arg-1 (IdrisC-45Resugar-startPrec) e-19) eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 ((IdrisC-45Resugar-toPTerm arg-0 arg-1 (IdrisC-45Resugar-startPrec) e-20) eta-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (IdrisC-45Resugar-bracket arg-1 arg-2 (IdrisC-45Resugar-startPrec) (vector 3 e-14 e-16 (vector 0 e-15 e-17) e-6 e-7 e-8 '()) eta-0)))))))))))))))))))))))))) ((4) (let ((e-21 (vector-ref arg-3 1))) (let ((e-22 (vector-ref arg-3 2))) (let ((e-23 (vector-ref arg-3 3))) (let ((e-24 (vector-ref arg-3 4))) (if (null? e-24) (lambda (eta-0) (let ((act-24 ((IdrisC-45Resugar-toPTerm arg-0 arg-1 (IdrisC-45Resugar-startPrec) e-22) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (eta-1) (lambda (eta-2) (IdrisC-45Resugar-toPClause arg-0 arg-1 eta-1 eta-2))) e-24 '() eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (IdrisC-45Resugar-bracket arg-1 arg-2 (IdrisC-45Resugar-startPrec) (IdrisC-45Resugar-n--8498-6930-u--mkIf e-24 e-23 e-22 e-21 arg-2 arg-1 arg-0 (vector 4 e-21 e-5 e-6)) eta-0)))))))))) (let ((e-104 (car e-24))) (let ((e-105 (cdr e-24))) (lambda (clam-0) (case (vector-ref e-104 0) ((0) (let ((e-107 (vector-ref e-104 2))) (let ((e-108 (vector-ref e-104 3))) (if (null? e-105) (let ((act-24 ((IdrisC-45Resugar-toPTerm arg-0 arg-1 (IdrisC-45Resugar-startPrec) e-22) clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((IdrisC-45Resugar-toPTerm arg-0 arg-1 (IdrisC-45Resugar-startPrec) e-107) clam-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 ((IdrisC-45Resugar-toPTerm arg-0 arg-1 (IdrisC-45Resugar-startPrec) e-108) clam-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (IdrisC-45Resugar-bracket arg-1 arg-2 (IdrisC-45Resugar-startPrec) (vector 3 e-21 (AlgebraC-45ZeroOneOmega-u--top_Top_ZeroOneOmega) e-6 (vector 25 e-21) e-5 e-7 '()) clam-0))))))))))))) (let ((act-24 ((IdrisC-45Resugar-toPTerm arg-0 arg-1 (IdrisC-45Resugar-startPrec) e-22) clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (IdrisC-45Resugar-toPClause arg-0 arg-1 eta-0 eta-1))) e-24 '() clam-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (IdrisC-45Resugar-bracket arg-1 arg-2 (IdrisC-45Resugar-startPrec) (IdrisC-45Resugar-n--8498-6930-u--mkIf e-24 e-23 e-22 e-21 arg-2 arg-1 arg-0 (vector 4 e-21 e-5 e-6)) clam-0)))))))))))))(else (let ((act-24 ((IdrisC-45Resugar-toPTerm arg-0 arg-1 (IdrisC-45Resugar-startPrec) e-22) clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (IdrisC-45Resugar-toPClause arg-0 arg-1 eta-0 eta-1))) e-24 '() clam-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (IdrisC-45Resugar-bracket arg-1 arg-2 (IdrisC-45Resugar-startPrec) (IdrisC-45Resugar-n--8498-6930-u--mkIf e-24 e-23 e-22 e-21 arg-2 arg-1 arg-0 (vector 4 e-21 e-5 e-6)) clam-0)))))))))))))))))))) ((5) (let ((e-25 (vector-ref arg-3 1))) (let ((e-26 (vector-ref arg-3 2))) (let ((e-27 (vector-ref arg-3 3))) (lambda (eta-0) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-1) (lambda (eta-2) (IdrisC-45Resugar-toPDecl arg-0 arg-1 eta-1 eta-2))) e-26 '() eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((IdrisC-45Resugar-toPTerm arg-0 arg-1 (IdrisC-45Resugar-startPrec) e-27) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (IdrisC-45Resugar-bracket arg-1 arg-2 (IdrisC-45Resugar-startPrec) (vector 5 e-25 (DataC-45List-mapMaybe (lambda (eta-1) eta-1) e-5) e-6) eta-0)))))))))))))) ((6) (let ((e-32 (vector-ref arg-3 5))) (IdrisC-45Resugar-toPTerm arg-0 arg-1 arg-2 e-32))) ((7) (let ((e-33 (vector-ref arg-3 1))) (let ((e-34 (vector-ref arg-3 2))) (let ((e-35 (vector-ref arg-3 3))) (lambda (eta-0) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-1) (lambda (eta-2) (IdrisC-45Resugar-toPFieldUpdate arg-0 arg-1 eta-1 eta-2))) e-34 '() eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((IdrisC-45Resugar-toPTerm arg-0 arg-1 (IdrisC-45Resugar-argPrec) e-35) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (IdrisC-45Resugar-bracket arg-1 arg-2 (IdrisC-45Resugar-startPrec) (vector 7 e-33 (vector 6 e-33 e-5) e-6) eta-0)))))))))))))) ((8) (let ((e-36 (vector-ref arg-3 1))) (let ((e-37 (vector-ref arg-3 2))) (let ((e-38 (vector-ref arg-3 3))) (lambda (eta-0) (let ((act-24 ((IdrisC-45Resugar-toPTerm arg-0 arg-1 (IdrisC-45Resugar-argPrec) e-38) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (IdrisC-45Resugar-toPTermApp arg-0 arg-1 e-37 (cons (cons e-36 (cons '() e-5)) '()) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (IdrisC-45Resugar-bracket arg-1 arg-2 (IdrisC-45Resugar-appPrec) e-6 eta-0)))))))))))))) ((9) (let ((e-39 (vector-ref arg-3 1))) (let ((e-40 (vector-ref arg-3 2))) (let ((e-41 (vector-ref arg-3 3))) (lambda (eta-0) (let ((act-24 ((IdrisC-45Resugar-toPTerm arg-0 arg-1 (IdrisC-45Resugar-argPrec) e-41) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (IdrisC-45Resugar-toPTermApp arg-0 arg-1 e-40 (cons (cons e-39 (cons (box '()) e-5)) '()) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (IdrisC-45Resugar-bracket arg-1 arg-2 (IdrisC-45Resugar-appPrec) e-6 eta-0)))))))))))))) ((11) (let ((e-42 (vector-ref arg-3 1))) (let ((e-43 (vector-ref arg-3 2))) (let ((e-44 (vector-ref arg-3 3))) (lambda (eta-0) (let ((act-24 ((IdrisC-45Resugar-toPTerm arg-0 arg-1 (IdrisC-45Resugar-startPrec) e-44) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((IdrisC-45Resugar-toPTerm arg-0 arg-1 (IdrisC-45Resugar-startPrec) e-43) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (IdrisC-45Resugar-bracket arg-1 arg-2 (IdrisC-45Resugar-appPrec) (vector 8 e-42 e-6 e-5) eta-0)))))))))))))) ((10) (let ((e-45 (vector-ref arg-3 1))) (let ((e-46 (vector-ref arg-3 2))) (let ((e-47 (vector-ref arg-3 3))) (let ((e-48 (vector-ref arg-3 4))) (lambda (eta-0) (let ((act-24 ((IdrisC-45Resugar-toPTerm arg-0 arg-1 (IdrisC-45Resugar-startPrec) e-48) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (IdrisC-45Resugar-toPTermApp arg-0 arg-1 e-46 (cons (cons e-45 (cons (box (box e-47)) e-5)) '()) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (IdrisC-45Resugar-showImplicits arg-0 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (cond ((equal? e-7 1) (IdrisC-45Resugar-bracket arg-1 arg-2 (IdrisC-45Resugar-startPrec) e-6 eta-0)) (else ((IdrisC-45Resugar-mkOp arg-1 e-6) eta-0))))))))))))))))))))) ((12) (let ((e-49 (vector-ref arg-3 1))) (let ((e-50 (vector-ref arg-3 2))) (lambda (eta-0) (vector 1 (vector 14 e-49 e-50)))))) ((13) (let ((e-51 (vector-ref arg-3 1))) (lambda (eta-0) (vector 1 (vector 25 e-51))))) ((14) (let ((e-54 (vector-ref arg-3 1))) (let ((e-55 (vector-ref arg-3 2))) (let ((e-56 (vector-ref arg-3 3))) (lambda (eta-0) (let ((act-24 ((IdrisC-45Resugar-toPTerm arg-0 arg-1 (IdrisC-45Resugar-startPrec) e-55) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((IdrisC-45Resugar-toPTerm arg-0 arg-1 (IdrisC-45Resugar-startPrec) e-56) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (vector 45 e-54 e-5 e-6))))))))))))))) ((15) (let ((e-58 (vector-ref arg-3 2))) (IdrisC-45Resugar-toPTerm arg-0 arg-1 arg-2 e-58))) ((28) (let ((e-59 (vector-ref arg-3 1))) (let ((e-60 (vector-ref arg-3 2))) (lambda (eta-0) (vector 1 (vector 15 e-59 e-60)))))) ((30) (let ((e-61 (vector-ref arg-3 1))) (let ((e-62 (vector-ref arg-3 2))) (lambda (eta-0) (vector 1 (vector 21 e-61 0 e-62)))))) ((29) (let ((e-63 (vector-ref arg-3 1))) (lambda (eta-0) (vector 1 (vector 22 e-63))))) ((17) (let ((e-64 (vector-ref arg-3 1))) (let ((e-65 (vector-ref arg-3 2))) (lambda (eta-0) (vector 1 (vector 0 e-64 (vector 1 e-65))))))) ((16) (let ((e-68 (vector-ref arg-3 3))) (IdrisC-45Resugar-toPTerm arg-0 arg-1 arg-2 e-68))) ((18) (let ((e-69 (vector-ref arg-3 1))) (let ((e-70 (vector-ref arg-3 2))) (let ((e-72 (vector-ref arg-3 4))) (let ((e-73 (vector-ref arg-3 5))) (lambda (eta-0) (let ((act-24 ((IdrisC-45Resugar-toPTerm arg-0 arg-1 (IdrisC-45Resugar-argPrec) e-73) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 23 e-69 e-70 e-72 e-5)))))))))))) ((19) (let ((e-74 (vector-ref arg-3 1))) (let ((e-76 (vector-ref arg-3 3))) (lambda (eta-0) (let ((act-24 ((IdrisC-45Resugar-toPTerm arg-0 arg-1 (IdrisC-45Resugar-argPrec) e-76) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 24 e-74 e-5)))))))))) ((20) (let ((e-77 (vector-ref arg-3 1))) (let ((e-78 (vector-ref arg-3 2))) (let ((e-79 (vector-ref arg-3 3))) (lambda (eta-0) (let ((act-24 ((IdrisC-45Resugar-toPTerm arg-0 arg-1 (IdrisC-45Resugar-argPrec) e-79) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 11 e-77 e-78 e-5))))))))))) ((21) (let ((e-80 (vector-ref arg-3 1))) (let ((e-81 (vector-ref arg-3 2))) (lambda (eta-0) (let ((act-24 ((IdrisC-45Resugar-toPTerm arg-0 arg-1 (IdrisC-45Resugar-argPrec) e-81) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 12 e-80 e-5)))))))))) ((22) (let ((e-82 (vector-ref arg-3 1))) (let ((e-83 (vector-ref arg-3 2))) (lambda (eta-0) (let ((act-24 ((IdrisC-45Resugar-toPTerm arg-0 arg-1 (IdrisC-45Resugar-argPrec) e-83) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 13 e-82 e-5)))))))))) ((23) (let ((e-84 (vector-ref arg-3 1))) (let ((e-85 (vector-ref arg-3 2))) (lambda (eta-0) (let ((act-24 ((IdrisC-45Resugar-toPTerm arg-0 arg-1 (IdrisC-45Resugar-argPrec) e-85) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 16 e-84 e-5)))))))))) ((24) (let ((e-86 (vector-ref arg-3 1))) (let ((e-87 (vector-ref arg-3 2))) (lambda (eta-0) (vector 1 (vector 17 e-86 e-87)))))) ((25) (let ((e-88 (vector-ref arg-3 1))) (let ((e-89 (vector-ref arg-3 2))) (lambda (eta-0) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-1) (lambda (eta-2) (IdrisC-45Resugar-toPDecl arg-0 arg-1 eta-1 eta-2))) e-89 '() eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 18 e-88 (DataC-45List-mapMaybe (lambda (eta-1) eta-1) e-5))))))))))) ((26) (let ((e-90 (vector-ref arg-3 1))) (let ((e-91 (vector-ref arg-3 2))) (lambda (eta-0) (let ((act-24 ((IdrisC-45Resugar-toPTerm arg-0 arg-1 (IdrisC-45Resugar-argPrec) e-91) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 19 e-90 e-5)))))))))) ((27) (let ((e-92 (vector-ref arg-3 1))) (let ((e-93 (vector-ref arg-3 2))) (lambda (eta-0) (let ((act-24 ((IdrisC-45Resugar-toPTerm arg-0 arg-1 (IdrisC-45Resugar-argPrec) e-93) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 20 e-92 e-5)))))))))) ((31) (let ((e-96 (vector-ref arg-3 3))) (IdrisC-45Resugar-toPTerm arg-0 arg-1 arg-2 e-96))) ((32) (let ((e-97 (vector-ref arg-3 1))) (let ((e-98 (vector-ref arg-3 2))) (lambda (clam-2) (cond ((equal? e-98 1) (vector 1 (vector 25 e-97))) (else (vector 1 (vector 26 e-97)))))))) (else (let ((e-99 (vector-ref arg-3 1))) (let ((e-100 (vector-ref arg-3 2))) (let ((e-101 (vector-ref arg-3 3))) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (case (vector-ref eta-1 0) ((0) (let ((e-2 (vector-ref eta-1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-1 1))) (vector 1 (vector 51 e-99 e-100 e-5)))))) (IdrisC-45Resugar-toPTerm arg-0 arg-1 (IdrisC-45Resugar-startPrec) e-101) eta-0))))))))) +(define IdrisC-45Resugar-toPRef (lambda (arg-0 arg-1) (case (vector-ref arg-1 0) ((2) (let ((e-0 (vector-ref arg-1 1))) (lambda (eta-0) (vector 1 (IdrisC-45Resugar-sugarApp (vector 0 arg-0 (vector 1 e-0))))))) ((3) (let ((e-2 (vector-ref arg-1 1))) (lambda (eta-0) (vector 1 (IdrisC-45Resugar-sugarApp (vector 0 arg-0 e-2)))))) ((4) (let ((e-4 (vector-ref arg-1 1))) (lambda (eta-0) (vector 1 (IdrisC-45Resugar-sugarApp (vector 0 arg-0 (vector 1 e-4))))))) ((6) (let ((e-7 (vector-ref arg-1 2))) (IdrisC-45Resugar-toPRef arg-0 e-7)))(else (lambda (eta-0) (vector 1 (IdrisC-45Resugar-sugarApp (vector 0 arg-0 arg-1)))))))) +(define IdrisC-45Resugar-toPRecord (lambda (arg-0 arg-1 arg-2 ext-0) (let ((e-0 (vector-ref arg-2 0))) (let ((e-1 (vector-ref arg-2 1))) (let ((e-2 (vector-ref arg-2 2))) (let ((e-3 (vector-ref arg-2 3))) (let ((e-4 (vector-ref arg-2 4))) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (let ((e-6 (car lamc-0))) (let ((e-5 (cdr lamc-0))) (lambda (clam-0) (let ((e-8 (car e-5))) (let ((e-7 (cdr e-5))) (let ((e-10 (car e-7))) (let ((e-11 (cdr e-7))) (let ((act-24 ((IdrisC-45Resugar-toPTerm arg-0 arg-1 (IdrisC-45Resugar-startPrec) e-11) clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-9 (vector-ref act-24 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref act-24 1))) (let ((act-25 (IdrisC-45Resugar-n--8542-7827-u--mapPiInfo e-4 e-3 e-2 e-1 e-0 arg-1 arg-0 e-10 clam-0))) (case (vector-ref act-25 0) ((0) (let ((e-12 (vector-ref act-25 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref act-25 1))) (vector 1 (cons e-6 (cons e-8 (cons e-12 e-9)))))))))))))))))))) e-2 '() ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (IdrisC-45Resugar-toPField arg-0 arg-1 eta-0 eta-1))) e-4 '() ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-6 (vector-ref act-25 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (cons e-1 (cons e-5 (cons (box e-3) e-6))))))))))))))))))) +(define IdrisC-45Resugar-toPFnOpt (lambda (arg-0 arg-1 arg-2 ext-0) (case (vector-ref arg-2 0) ((5) (let ((e-0 (vector-ref arg-2 1))) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (IdrisC-45Resugar-toPTerm arg-0 arg-1 (IdrisC-45Resugar-startPrec) eta-0)) e-0 '() ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 1 e-5))))))))(else (vector 1 (vector 0 arg-2)))))) +(define IdrisC-45Resugar-toPFieldUpdate (lambda (arg-0 arg-1 arg-2 ext-0) (case (vector-ref arg-2 0) ((0) (let ((e-0 (vector-ref arg-2 1))) (let ((e-1 (vector-ref arg-2 2))) (let ((act-24 ((IdrisC-45Resugar-toPTerm arg-0 arg-1 (IdrisC-45Resugar-startPrec) e-1) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 0 e-0 e-5))))))))) (else (let ((e-2 (vector-ref arg-2 1))) (let ((e-3 (vector-ref arg-2 2))) (let ((act-24 ((IdrisC-45Resugar-toPTerm arg-0 arg-1 (IdrisC-45Resugar-startPrec) e-3) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 1 e-2 e-5)))))))))))) +(define IdrisC-45Resugar-toPField (lambda (arg-0 arg-1 arg-2 ext-0) (let ((e-0 (vector-ref arg-2 0))) (let ((e-1 (vector-ref arg-2 1))) (let ((e-2 (vector-ref arg-2 2))) (let ((e-3 (vector-ref arg-2 3))) (let ((e-4 (vector-ref arg-2 4))) (let ((act-24 ((IdrisC-45Resugar-toPTerm arg-0 arg-1 (IdrisC-45Resugar-startPrec) e-4) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45CoreC-45PiInfo-traverse (lambda (eta-0) (IdrisC-45Resugar-toPTerm arg-0 arg-1 (IdrisC-45Resugar-startPrec) eta-0)) e-2 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-6 (vector-ref act-25 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (vector e-0 "" e-1 e-6 e-3 e-5))))))))))))))))) +(define IdrisC-45Resugar-toPDecl (lambda (arg-0 arg-1 arg-2 ext-0) (case (vector-ref arg-2 0) ((0) (let ((e-0 (vector-ref arg-2 1))) (let ((e-1 (vector-ref arg-2 2))) (let ((e-2 (vector-ref arg-2 3))) (let ((e-3 (vector-ref arg-2 4))) (let ((e-4 (vector-ref arg-2 5))) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (IdrisC-45Resugar-toPFnOpt arg-0 arg-1 eta-0 eta-1))) e-3 '() ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (IdrisC-45Resugar-toPTypeDecl arg-0 arg-1 e-4 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-6 (vector-ref act-25 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (box (vector 0 e-0 e-1 e-2 e-5 e-6))))))))))))))))) ((1) (let ((e-5 (vector-ref arg-2 1))) (let ((e-6 (vector-ref arg-2 2))) (let ((e-7 (vector-ref arg-2 3))) (let ((act-24 (IdrisC-45Resugar-toPData arg-0 arg-1 e-7 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-24 1))) (vector 1 (box (vector 2 e-5 "" e-6 e-8))))))))))) ((2) (let ((e-8 (vector-ref arg-2 1))) (let ((e-10 (vector-ref arg-2 3))) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (IdrisC-45Resugar-toPClause arg-0 arg-1 eta-0 eta-1))) e-10 '() ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (box (vector 1 e-8 e-5)))))))))) ((3) (let ((e-11 (vector-ref arg-2 1))) (let ((e-12 (vector-ref arg-2 2))) (let ((e-13 (vector-ref arg-2 3))) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (IdrisC-45Resugar-toPDecl arg-0 arg-1 eta-0 eta-1))) e-13 '() ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (lamc-0) (let ((e-2 (car lamc-0))) (let ((e-3 (cdr lamc-0))) (lambda (clam-0) (let ((e-6 (car e-3))) (let ((e-7 (cdr e-3))) (let ((e-10 (car e-7))) (let ((e-14 (cdr e-7))) (let ((act-25 (CoreC-45CoreC-45PiInfo-traverse (lambda (eta-0) (IdrisC-45Resugar-toPTerm arg-0 arg-1 (IdrisC-45Resugar-startPrec) eta-0)) e-10 clam-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref act-25 1))) (let ((act-26 ((IdrisC-45Resugar-toPTerm arg-0 arg-1 (IdrisC-45Resugar-startPrec) e-14) clam-0))) (case (vector-ref act-26 0) ((0) (let ((e-4 (vector-ref act-26 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref act-26 1))) (vector 1 (cons e-2 (cons e-6 (cons e-8 e-9)))))))))))))))))))) e-12 '() ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (box (vector 3 e-11 e-6 (DataC-45List-mapMaybe (lambda (eta-0) eta-0) e-5)))))))))))))))) ((4) (let ((e-14 (vector-ref arg-2 1))) (let ((e-16 (vector-ref arg-2 3))) (let ((e-17 (vector-ref arg-2 4))) (let ((act-24 (IdrisC-45Resugar-toPRecord arg-0 arg-1 e-17 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((e-2 (car e-5))) (let ((e-3 (cdr e-5))) (let ((e-6 (car e-3))) (let ((e-7 (cdr e-3))) (let ((e-10 (car e-7))) (let ((e-11 (cdr e-7))) (vector 1 (box (vector 8 e-14 "" e-16 e-2 e-6 e-10 e-11))))))))))))))))) ((5) (let ((e-18 (vector-ref arg-2 1))) (let ((e-19 (vector-ref arg-2 2))) (let ((e-20 (vector-ref arg-2 3))) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (IdrisC-45Resugar-toPDecl arg-0 arg-1 eta-0 eta-1))) e-20 '() ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (box (vector 11 e-18 e-19 (DataC-45List-mapMaybe (lambda (eta-0) eta-0) e-5)))))))))))) ((6) (let ((e-21 (vector-ref arg-2 1))) (let ((e-22 (vector-ref arg-2 2))) (let ((e-23 (vector-ref arg-2 3))) (let ((e-24 (vector-ref arg-2 4))) (let ((act-24 ((IdrisC-45Resugar-toPTerm arg-0 arg-1 (IdrisC-45Resugar-startPrec) e-23) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((IdrisC-45Resugar-toPTerm arg-0 arg-1 (IdrisC-45Resugar-startPrec) e-24) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (box (vector 12 e-21 (CoreC-45Name-u--show_Show_Name e-22) e-5 e-6)))))))))))))))) ((7) (let ((e-25 (vector-ref arg-2 1))) (let ((e-26 (vector-ref arg-2 2))) (let ((act-24 ((IdrisC-45Resugar-toPTerm arg-0 arg-1 (IdrisC-45Resugar-startPrec) e-26) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (box (vector 13 e-25 e-5)))))))))) ((8) (vector 1 '())) ((9) (vector 1 '())) (else (let ((e-30 (vector-ref arg-2 1))) (let ((e-31 (vector-ref arg-2 2))) (let ((e-32 (vector-ref arg-2 3))) (vector 1 (box (vector 15 e-30 e-31 e-32)))))))))) +(define IdrisC-45Resugar-toPData (lambda (arg-0 arg-1 arg-2 ext-0) (case (vector-ref arg-2 0) ((0) (let ((e-0 (vector-ref arg-2 1))) (let ((e-1 (vector-ref arg-2 2))) (let ((e-2 (vector-ref arg-2 3))) (let ((e-3 (vector-ref arg-2 4))) (let ((e-4 (vector-ref arg-2 5))) (let ((act-24 ((IdrisC-45Resugar-toPTerm arg-0 arg-1 (IdrisC-45Resugar-startPrec) e-2) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (IdrisC-45Resugar-toPTypeDecl arg-0 arg-1 eta-0 eta-1))) e-4 '() ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-6 (vector-ref act-25 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (vector 0 e-0 e-1 e-5 e-3 e-6)))))))))))))))) (else (let ((e-5 (vector-ref arg-2 1))) (let ((e-6 (vector-ref arg-2 2))) (let ((e-7 (vector-ref arg-2 3))) (let ((act-24 ((IdrisC-45Resugar-toPTerm arg-0 arg-1 (IdrisC-45Resugar-startPrec) e-7) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-24 1))) (vector 1 (vector 1 e-5 e-6 e-8))))))))))))) +(define IdrisC-45Resugar-toPClause (lambda (arg-0 arg-1 arg-2 ext-0) (case (vector-ref arg-2 0) ((0) (let ((e-0 (vector-ref arg-2 1))) (let ((e-1 (vector-ref arg-2 2))) (let ((e-2 (vector-ref arg-2 3))) (let ((act-24 ((IdrisC-45Resugar-toPTerm arg-0 arg-1 (IdrisC-45Resugar-startPrec) e-1) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((IdrisC-45Resugar-toPTerm arg-0 arg-1 (IdrisC-45Resugar-startPrec) e-2) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-3 (vector-ref act-25 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (vector 0 e-0 e-5 e-6 '())))))))))))))) ((1) (let ((e-3 (vector-ref arg-2 1))) (let ((e-4 (vector-ref arg-2 2))) (let ((e-5 (vector-ref arg-2 3))) (let ((e-6 (vector-ref arg-2 4))) (let ((e-7 (vector-ref arg-2 5))) (let ((e-8 (vector-ref arg-2 6))) (let ((act-24 ((IdrisC-45Resugar-toPTerm arg-0 arg-1 (IdrisC-45Resugar-startPrec) e-4) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-24 1))) (let ((act-25 ((IdrisC-45Resugar-toPTerm arg-0 arg-1 (IdrisC-45Resugar-startPrec) e-5) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (IdrisC-45Resugar-toPClause arg-0 arg-1 eta-0 eta-1))) e-8 '() ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref act-26 1))) (vector 1 (vector 1 e-3 e-9 e-10 e-6 e-7 e-11))))))))))))))))))))) (else (let ((e-9 (vector-ref arg-2 1))) (let ((e-10 (vector-ref arg-2 2))) (let ((act-24 ((IdrisC-45Resugar-toPTerm arg-0 arg-1 (IdrisC-45Resugar-startPrec) e-10) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 2 e-9 e-5)))))))))))) +(define IdrisC-45Resugar-toCleanPTerm (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 ((IdrisC-45Resugar-toPTerm arg-0 arg-1 arg-2 arg-3) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (IdrisC-45Resugar-cleanPTerm arg-0 e-5 ext-0))))))) +(define IdrisC-45Resugar-sugarName (lambda (arg-0) (case (vector-ref arg-0 0) ((2) (let ((e-0 (vector-ref arg-0 1))) (PreludeC-45TypesC-45String-C-43C-43 "(implicit) " e-0))) ((3) (let ((e-2 (vector-ref arg-0 1))) (IdrisC-45Resugar-sugarName e-2))) ((4) (let ((e-4 (vector-ref arg-0 1))) e-4))(else (CoreC-45Name-u--show_Show_Name arg-0))))) +(define IdrisC-45Resugar-sugarAppM (lambda (arg-0) (case (vector-ref arg-0 0) ((7) (let ((e-0 (vector-ref arg-0 1))) (let ((e-1 (vector-ref arg-0 2))) (let ((e-2 (vector-ref arg-0 3))) (case (vector-ref e-1 0) ((7) (let ((e-4 (vector-ref e-1 2))) (let ((e-5 (vector-ref e-1 3))) (case (vector-ref e-4 0) ((0) (let ((e-6 (vector-ref e-4 1))) (let ((e-7 (vector-ref e-4 2))) (case (vector-ref e-7 0) ((0) (let ((e-8 (vector-ref e-7 1))) (let ((e-9 (vector-ref e-7 2))) (let ((sc4 (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace (CoreC-45NameC-45Namespace-builtinNS) e-8))) (cond ((equal? sc4 1) (let ((sc5 (CoreC-45Name-nameRoot e-9))) (cond ((equal? sc5 "Pair") (PreludeC-45Types-u--pure_Applicative_Maybe (vector 40 e-0 (IdrisC-45Resugar-unbracket e-5) (IdrisC-45Resugar-unbracket e-2)))) ((equal? sc5 "MkPair") (PreludeC-45Types-u--pure_Applicative_Maybe (vector 40 e-0 (IdrisC-45Resugar-unbracket e-5) (IdrisC-45Resugar-unbracket e-2)))) ((equal? sc5 "DPair") (let ((sc6 (IdrisC-45Resugar-unbracket e-2))) (case (vector-ref sc6 0) ((2) (let ((e-12 (vector-ref sc6 4))) (let ((e-10 (vector-ref sc6 6))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 41 e-0 e-6 e-12 (IdrisC-45Resugar-unbracket e-5) (IdrisC-45Resugar-unbracket e-10))))))(else '())))) ((equal? sc5 "Equal") (PreludeC-45Types-u--pure_Applicative_Maybe (vector 31 e-0 (IdrisC-45Resugar-unbracket e-5) (IdrisC-45Resugar-unbracket e-2)))) ((equal? sc5 "===") (PreludeC-45Types-u--pure_Applicative_Maybe (vector 31 e-0 (IdrisC-45Resugar-unbracket e-5) (IdrisC-45Resugar-unbracket e-2)))) ((equal? sc5 "~=~") (PreludeC-45Types-u--pure_Applicative_Maybe (vector 31 e-0 (IdrisC-45Resugar-unbracket e-5) (IdrisC-45Resugar-unbracket e-2))))(else '())))) (else (let ((sc5 (CoreC-45Name-nameRoot e-9))) (cond ((equal? sc5 "::") (let ((sc6 (IdrisC-45Resugar-sugarApp (IdrisC-45Resugar-unbracket e-2)))) (case (vector-ref sc6 0) ((38) (let ((e-12 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (let ((e-10 (vector-ref sc6 3))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 38 e-12 e-11 (cons (cons e-6 (IdrisC-45Resugar-unbracketApp e-5)) e-10)))))))(else '())))) ((equal? sc5 ":<") (let ((sc6 (IdrisC-45Resugar-sugarApp (IdrisC-45Resugar-unbracket e-2)))) (case (vector-ref sc6 0) ((39) (let ((e-12 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (let ((e-10 (vector-ref sc6 3))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 39 e-12 e-11 (PreludeC-45TypesC-45List-C-43C-43 e-10 (cons (cons e-6 (IdrisC-45Resugar-unbracketApp e-5)) '()))))))))(else '()))))(else '())))))))))(else (let ((sc3 (IdrisC-45Resugar-extractNat 0 arg-0))) (if (null? sc3) (case (vector-ref arg-0 0) ((0) (let ((e-9 (vector-ref arg-0 1))) (let ((e-8 (vector-ref arg-0 2))) (case (vector-ref e-8 0) ((0) (let ((e-11 (vector-ref e-8 1))) (let ((e-10 (vector-ref e-8 2))) (let ((sc6 (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace (CoreC-45NameC-45Namespace-builtinNS) e-11))) (cond ((equal? sc6 1) (let ((sc7 (CoreC-45Name-nameRoot e-10))) (cond ((equal? sc7 "Unit") (PreludeC-45Types-u--pure_Applicative_Maybe (vector 42 e-9))) ((equal? sc7 "MkUnit") (PreludeC-45Types-u--pure_Applicative_Maybe (vector 42 e-9)))(else '())))) (else (let ((sc7 (CoreC-45Name-nameRoot e-10))) (cond ((equal? sc7 "Nil") (PreludeC-45Types-u--pure_Applicative_Maybe (vector 38 e-9 e-9 '()))) ((equal? sc7 "Lin") (PreludeC-45Types-u--pure_Applicative_Maybe (vector 39 e-9 e-9 '())))(else '())))))))))(else '())))))(else '())) (let ((e-8 (unbox sc3))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 15 (IdrisC-45Syntax-getPTermLoc arg-0) (vector 5 (PreludeC-45Cast-u--cast_Cast_Nat_Integer e-8))))))))))))(else (let ((sc2 (IdrisC-45Resugar-extractNat 0 arg-0))) (if (null? sc2) (case (vector-ref arg-0 0) ((0) (let ((e-7 (vector-ref arg-0 1))) (let ((e-6 (vector-ref arg-0 2))) (case (vector-ref e-6 0) ((0) (let ((e-9 (vector-ref e-6 1))) (let ((e-8 (vector-ref e-6 2))) (let ((sc5 (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace (CoreC-45NameC-45Namespace-builtinNS) e-9))) (cond ((equal? sc5 1) (let ((sc6 (CoreC-45Name-nameRoot e-8))) (cond ((equal? sc6 "Unit") (PreludeC-45Types-u--pure_Applicative_Maybe (vector 42 e-7))) ((equal? sc6 "MkUnit") (PreludeC-45Types-u--pure_Applicative_Maybe (vector 42 e-7)))(else '())))) (else (let ((sc6 (CoreC-45Name-nameRoot e-8))) (cond ((equal? sc6 "Nil") (PreludeC-45Types-u--pure_Applicative_Maybe (vector 38 e-7 e-7 '()))) ((equal? sc6 "Lin") (PreludeC-45Types-u--pure_Applicative_Maybe (vector 39 e-7 e-7 '())))(else '())))))))))(else '())))))(else '())) (let ((e-6 (unbox sc2))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 15 (IdrisC-45Syntax-getPTermLoc arg-0) (vector 5 (PreludeC-45Cast-u--cast_Cast_Nat_Integer e-6))))))))))))(else (let ((sc1 (IdrisC-45Resugar-extractNat 0 arg-0))) (if (null? sc1) (case (vector-ref arg-0 0) ((0) (let ((e-4 (vector-ref arg-0 1))) (let ((e-3 (vector-ref arg-0 2))) (case (vector-ref e-3 0) ((0) (let ((e-6 (vector-ref e-3 1))) (let ((e-5 (vector-ref e-3 2))) (let ((sc4 (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace (CoreC-45NameC-45Namespace-builtinNS) e-6))) (cond ((equal? sc4 1) (let ((sc5 (CoreC-45Name-nameRoot e-5))) (cond ((equal? sc5 "Unit") (PreludeC-45Types-u--pure_Applicative_Maybe (vector 42 e-4))) ((equal? sc5 "MkUnit") (PreludeC-45Types-u--pure_Applicative_Maybe (vector 42 e-4)))(else '())))) (else (let ((sc5 (CoreC-45Name-nameRoot e-5))) (cond ((equal? sc5 "Nil") (PreludeC-45Types-u--pure_Applicative_Maybe (vector 38 e-4 e-4 '()))) ((equal? sc5 "Lin") (PreludeC-45Types-u--pure_Applicative_Maybe (vector 39 e-4 e-4 '())))(else '())))))))))(else '())))))(else '())) (let ((e-3 (unbox sc1))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 15 (IdrisC-45Syntax-getPTermLoc arg-0) (vector 5 (PreludeC-45Cast-u--cast_Cast_Nat_Integer e-3)))))))))))))(else (let ((sc0 (IdrisC-45Resugar-extractNat 0 arg-0))) (if (null? sc0) (case (vector-ref arg-0 0) ((0) (let ((e-0 (vector-ref arg-0 1))) (let ((e-1 (vector-ref arg-0 2))) (case (vector-ref e-1 0) ((0) (let ((e-2 (vector-ref e-1 1))) (let ((e-3 (vector-ref e-1 2))) (let ((sc3 (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace (CoreC-45NameC-45Namespace-builtinNS) e-2))) (cond ((equal? sc3 1) (let ((sc4 (CoreC-45Name-nameRoot e-3))) (cond ((equal? sc4 "Unit") (PreludeC-45Types-u--pure_Applicative_Maybe (vector 42 e-0))) ((equal? sc4 "MkUnit") (PreludeC-45Types-u--pure_Applicative_Maybe (vector 42 e-0)))(else '())))) (else (let ((sc4 (CoreC-45Name-nameRoot e-3))) (cond ((equal? sc4 "Nil") (PreludeC-45Types-u--pure_Applicative_Maybe (vector 38 e-0 e-0 '()))) ((equal? sc4 "Lin") (PreludeC-45Types-u--pure_Applicative_Maybe (vector 39 e-0 e-0 '())))(else '())))))))))(else '())))))(else '())) (let ((e-1 (unbox sc0))) (PreludeC-45Types-u--pure_Applicative_Maybe (vector 15 (IdrisC-45Syntax-getPTermLoc arg-0) (vector 5 (PreludeC-45Cast-u--cast_Cast_Nat_Integer e-1))))))))))) (define IdrisC-45Resugar-sugarApp (lambda (arg-0) (DataC-45Maybe-fromMaybe (lambda () arg-0) (IdrisC-45Resugar-sugarAppM arg-0)))) (define IdrisC-45Resugar-startPrec (lambda () 0)) -(define IdrisC-45Resugar-showImplicits (lambda (arg-0 ext-0) (let ((act-24 (CoreC-45Context-getPPrint arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0)))))))))) -(define IdrisC-45Resugar-showFullEnv (lambda (arg-0 ext-0) (let ((act-24 (CoreC-45Context-getPPrint arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (let ((sc1 e-5)) (let ((e-1 (vector-ref sc1 2))) e-1)))))))))) -(define IdrisC-45Resugar-resugarNoPatvars (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (TTImpC-45Unelab-unelabNoPatvars arg-0 arg-1 arg-3 arg-4 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (IdrisC-45Resugar-toCleanPTerm arg-1 arg-2 (IdrisC-45Resugar-startPrec) e-5 ext-0)))))))) -(define IdrisC-45Resugar-resugar (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 ((TTImpC-45Unelab-unelab arg-0 arg-1 arg-3 arg-4) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (IdrisC-45Resugar-toCleanPTerm arg-1 arg-2 (IdrisC-45Resugar-startPrec) e-5 ext-0)))))))) +(define IdrisC-45Resugar-showImplicits (lambda (arg-0 ext-0) (let ((act-24 (CoreC-45Context-getPPrint arg-0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (let ((e-0 (vector-ref e-5 0))) e-0)))))))) +(define IdrisC-45Resugar-showFullEnv (lambda (arg-0 ext-0) (let ((act-24 (CoreC-45Context-getPPrint arg-0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (let ((e-1 (vector-ref e-5 1))) e-1)))))))) +(define IdrisC-45Resugar-resugarNoPatvars (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (TTImpC-45Unelab-unelabNoPatvars arg-0 arg-1 arg-3 arg-4 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (IdrisC-45Resugar-toCleanPTerm arg-1 arg-2 (IdrisC-45Resugar-startPrec) e-5 ext-0))))))) +(define IdrisC-45Resugar-resugar (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 ((TTImpC-45Unelab-unelab arg-0 arg-1 arg-3 arg-4) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (IdrisC-45Resugar-toCleanPTerm arg-1 arg-2 (IdrisC-45Resugar-startPrec) e-5 ext-0))))))) (define IdrisC-45Resugar-pterm (lambda (arg-0 arg-1 arg-2 ext-0) (IdrisC-45Resugar-toCleanPTerm arg-0 arg-1 (IdrisC-45Resugar-startPrec) arg-2 ext-0))) -(define IdrisC-45Resugar-mkOp (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((7) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (lambda (clam-0) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((7) (let ((e-3 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (let ((e-5 (vector-ref sc1 3))) (let ((sc2 e-4)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-8 (vector-ref sc3 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc3 1))) (let ((u--tm (vector 7 e-0 (vector 7 e-3 (vector 0 e-6 e-7) e-5) e-2))) (IdrisC-45Resugar-case--mkOp-4339 e-3 e-6 e-7 e-5 e-2 e-0 u--tm arg-0 e-8 (LibrariesC-45DataC-45StringMap-lookup (CoreC-45Name-nameRoot e-7) (let ((sc4 e-8)) (let ((e-17 (vector-ref sc4 1))) e-17))) clam-0))))))))))(else (vector 1 arg-1))))))))(else (vector 1 arg-1)))))))))(else (lambda (eta-0) (vector 1 arg-1))))))) -(define IdrisC-45Resugar-mkApp (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (if (null? sc0) (lambda (eta-0) (vector 1 arg-2)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (let ((sc2 e-7)) (let ((e-10 (car sc2))) (let ((e-11 (cdr sc2))) (let ((sc3 e-10)) (case (vector-ref sc3 0) ((0) (let ((u--ap (IdrisC-45Resugar-sugarApp (vector 7 e-6 arg-2 e-11)))) (IdrisC-45Resugar-mkApp arg-0 arg-1 u--ap e-3))) (else (let ((e-14 (vector-ref sc3 1))) (let ((sc4 e-14)) (case (vector-ref sc4 0) ((0) (let ((u--ap (IdrisC-45Resugar-sugarApp (vector 10 e-6 arg-2 e-11)))) (IdrisC-45Resugar-mkApp arg-0 arg-1 u--ap e-3))) (else (let ((e-17 (vector-ref sc4 1))) (lambda (eta-0) (let ((act-24 (IdrisC-45Resugar-showImplicits arg-0 eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc5 1))) (let ((sc6 e-5)) (cond ((equal? sc6 0) (let ((u--ap (vector 9 e-6 arg-2 e-17 e-11))) ((IdrisC-45Resugar-mkApp arg-0 arg-1 u--ap e-3) eta-0))) (else ((IdrisC-45Resugar-mkApp arg-0 arg-1 arg-2 e-3) eta-0)))))))))))))))))))))))))))))) -(define IdrisC-45Resugar-fullNamespace (lambda (arg-0 ext-0) (let ((act-24 (CoreC-45Context-getPPrint arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 3))) e-2)))))))))) -(define IdrisC-45Resugar-extractNat (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-9 (vector-ref sc1 1))) (let ((e-10 (vector-ref sc1 2))) (let ((sc2 e-10)) (case (vector-ref sc2 0) ((1) (let ((e-11 (vector-ref sc2 1))) (PreludeC-45Interfaces-C-62C-62 (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (PreludeC-45Types-u--map_Functor_Maybe u--func arg-143))))) (lambda (u--a) (lambda (arg-577) (PreludeC-45Types-u--pure_Applicative_Maybe arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (PreludeC-45Types-u--C-60C-42C-62_Applicative_Maybe arg-578 arg-580)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe arg-876 arg-877))))) (lambda (u--a) (lambda (arg-879) (PreludeC-45Types-u--join_Monad_Maybe arg-879)))) (PreludeC-45Interfaces-guard (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (PreludeC-45Types-u--map_Functor_Maybe u--func arg-143))))) (lambda (u--a) (lambda (arg-577) (PreludeC-45Types-u--pure_Applicative_Maybe arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (PreludeC-45Types-u--C-60C-42C-62_Applicative_Maybe arg-578 arg-580)))))) (lambda (u--a) (PreludeC-45Types-u--empty_Alternative_Maybe)) (lambda (u--a) (lambda (arg-827) (lambda (arg-828) (PreludeC-45Types-u--C-60C-124C-62_Alternative_Maybe arg-827 arg-828))))) (PreludeC-45EqOrd-u--C-61C-61_Eq_String e-11 "Z")) (lambda () (PreludeC-45Interfaces-C-62C-62 (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (PreludeC-45Types-u--map_Functor_Maybe u--func arg-143))))) (lambda (u--a) (lambda (arg-577) (PreludeC-45Types-u--pure_Applicative_Maybe arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (PreludeC-45Types-u--C-60C-42C-62_Applicative_Maybe arg-578 arg-580)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe arg-876 arg-877))))) (lambda (u--a) (lambda (arg-879) (PreludeC-45Types-u--join_Monad_Maybe arg-879)))) (PreludeC-45Interfaces-guard (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (PreludeC-45Types-u--map_Functor_Maybe u--func arg-143))))) (lambda (u--a) (lambda (arg-577) (PreludeC-45Types-u--pure_Applicative_Maybe arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (PreludeC-45Types-u--C-60C-42C-62_Applicative_Maybe arg-578 arg-580)))))) (lambda (u--a) (PreludeC-45Types-u--empty_Alternative_Maybe)) (lambda (u--a) (lambda (arg-827) (lambda (arg-828) (PreludeC-45Types-u--C-60C-124C-62_Alternative_Maybe arg-827 arg-828))))) (PreludeC-45Basics-C-124C-124 (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace e-9 (CoreC-45NameC-45Namespace-typesNS)) (lambda () (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace e-9 (CoreC-45NameC-45Namespace-preludeNS))))) (lambda () (PreludeC-45Types-u--pure_Applicative_Maybe arg-0)))))))(else (vector 0 )))))))(else (vector 0 )))))) ((7) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (let ((e-13 (vector-ref sc1 2))) (let ((sc2 e-13)) (case (vector-ref sc2 0) ((0) (let ((e-14 (vector-ref sc2 1))) (let ((e-15 (vector-ref sc2 2))) (let ((sc3 e-15)) (case (vector-ref sc3 0) ((1) (let ((e-16 (vector-ref sc3 1))) (PreludeC-45Interfaces-C-62C-62 (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (PreludeC-45Types-u--map_Functor_Maybe u--func arg-143))))) (lambda (u--a) (lambda (arg-577) (PreludeC-45Types-u--pure_Applicative_Maybe arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (PreludeC-45Types-u--C-60C-42C-62_Applicative_Maybe arg-578 arg-580)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe arg-876 arg-877))))) (lambda (u--a) (lambda (arg-879) (PreludeC-45Types-u--join_Monad_Maybe arg-879)))) (PreludeC-45Interfaces-guard (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (PreludeC-45Types-u--map_Functor_Maybe u--func arg-143))))) (lambda (u--a) (lambda (arg-577) (PreludeC-45Types-u--pure_Applicative_Maybe arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (PreludeC-45Types-u--C-60C-42C-62_Applicative_Maybe arg-578 arg-580)))))) (lambda (u--a) (PreludeC-45Types-u--empty_Alternative_Maybe)) (lambda (u--a) (lambda (arg-827) (lambda (arg-828) (PreludeC-45Types-u--C-60C-124C-62_Alternative_Maybe arg-827 arg-828))))) (PreludeC-45EqOrd-u--C-61C-61_Eq_String e-16 "S")) (lambda () (PreludeC-45Interfaces-C-62C-62 (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (PreludeC-45Types-u--map_Functor_Maybe u--func arg-143))))) (lambda (u--a) (lambda (arg-577) (PreludeC-45Types-u--pure_Applicative_Maybe arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (PreludeC-45Types-u--C-60C-42C-62_Applicative_Maybe arg-578 arg-580)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe arg-876 arg-877))))) (lambda (u--a) (lambda (arg-879) (PreludeC-45Types-u--join_Monad_Maybe arg-879)))) (PreludeC-45Interfaces-guard (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (PreludeC-45Types-u--map_Functor_Maybe u--func arg-143))))) (lambda (u--a) (lambda (arg-577) (PreludeC-45Types-u--pure_Applicative_Maybe arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (PreludeC-45Types-u--C-60C-42C-62_Applicative_Maybe arg-578 arg-580)))))) (lambda (u--a) (PreludeC-45Types-u--empty_Alternative_Maybe)) (lambda (u--a) (lambda (arg-827) (lambda (arg-828) (PreludeC-45Types-u--C-60C-124C-62_Alternative_Maybe arg-827 arg-828))))) (PreludeC-45Basics-C-124C-124 (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace e-14 (CoreC-45NameC-45Namespace-typesNS)) (lambda () (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace e-14 (CoreC-45NameC-45Namespace-preludeNS))))) (lambda () (IdrisC-45Resugar-extractNat (PreludeC-45Types-u--C-43_Num_Nat (PreludeC-45Types-u--fromInteger_Num_Nat 1) arg-0) e-4)))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 ))))))) ((15) (let ((e-6 (vector-ref sc0 2))) (let ((sc1 e-6)) (case (vector-ref sc1 0) ((5) (let ((e-17 (vector-ref sc1 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (PreludeC-45Types-u--C-43_Num_Nat arg-0 (PreludeC-45Types-prim__integerToNat e-17)))))(else (vector 0 )))))) ((32) (let ((e-8 (vector-ref sc0 2))) (IdrisC-45Resugar-extractNat arg-0 e-8)))(else (vector 0 )))))) -(define IdrisC-45Resugar-cleanPTerm (lambda (arg-0 arg-1 ext-0) (let ((act-24 (IdrisC-45Resugar-fullNamespace arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (vector 1 arg-1)) (else ((IdrisC-45Syntax-mapPTermM (lambda (eta-0) (lambda (eta-1) (IdrisC-45Resugar-n--14430-6882-u--cleanNode arg-1 arg-0 eta-0 eta-1))) arg-1) ext-0))))))))))) -(define IdrisC-45Resugar-bracket (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 ((IdrisC-45Resugar-mkOp arg-0 arg-3) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (IdrisC-45Resugar-case--bracket-4465 arg-3 arg-2 arg-1 arg-0 e-5 (PreludeC-45Types-u--C-62_Ord_Nat arg-1 arg-2) ext-0)))))))) +(define IdrisC-45Resugar-mkOp (lambda (arg-0 arg-1) (case (vector-ref arg-1 0) ((7) (let ((e-0 (vector-ref arg-1 1))) (let ((e-1 (vector-ref arg-1 2))) (let ((e-2 (vector-ref arg-1 3))) (lambda (clam-0) (case (vector-ref e-1 0) ((7) (let ((e-3 (vector-ref e-1 1))) (let ((e-4 (vector-ref e-1 2))) (let ((e-5 (vector-ref e-1 3))) (case (vector-ref e-4 0) ((0) (let ((e-6 (vector-ref e-4 1))) (let ((e-7 (vector-ref e-4 2))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-8 (vector-ref act-24 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref act-24 1))) (let ((u--tm (vector 7 e-0 (vector 7 e-3 (vector 0 e-6 e-7) e-5) e-2))) (let ((sc4 (LibrariesC-45DataC-45StringMap-lookup (CoreC-45Name-nameRoot e-7) (let ((e-17 (vector-ref e-8 0))) e-17)))) (if (null? sc4) (vector 1 u--tm) (vector 1 (vector 27 e-0 e-6 e-7 (IdrisC-45Resugar-unbracketApp e-5) (IdrisC-45Resugar-unbracketApp e-2)))))))))))))(else (vector 1 arg-1)))))))(else (vector 1 arg-1))))))))(else (lambda (eta-0) (vector 1 arg-1)))))) +(define IdrisC-45Resugar-mkApp (lambda (arg-0 arg-1 arg-2 arg-3) (if (null? arg-3) (lambda (eta-0) (vector 1 arg-2)) (let ((e-2 (car arg-3))) (let ((e-3 (cdr arg-3))) (let ((e-6 (car e-2))) (let ((e-7 (cdr e-2))) (let ((e-10 (car e-7))) (let ((e-11 (cdr e-7))) (if (null? e-10) (let ((u--ap (IdrisC-45Resugar-sugarApp (vector 7 e-6 arg-2 e-11)))) (IdrisC-45Resugar-mkApp arg-0 arg-1 u--ap e-3)) (let ((e-14 (unbox e-10))) (if (null? e-14) (let ((u--ap (IdrisC-45Resugar-sugarApp (vector 10 e-6 arg-2 e-11)))) (IdrisC-45Resugar-mkApp arg-0 arg-1 u--ap e-3)) (let ((e-17 (unbox e-14))) (lambda (eta-0) (let ((act-24 (IdrisC-45Resugar-showImplicits arg-0 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (cond ((equal? e-5 1) (let ((u--ap (vector 9 e-6 arg-2 e-17 e-11))) ((IdrisC-45Resugar-mkApp arg-0 arg-1 u--ap e-3) eta-0))) (else ((IdrisC-45Resugar-mkApp arg-0 arg-1 arg-2 e-3) eta-0))))))))))))))))))))) +(define IdrisC-45Resugar-fullNamespace (lambda (arg-0 ext-0) (let ((act-24 (CoreC-45Context-getPPrint arg-0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (let ((e-2 (vector-ref e-5 2))) e-2)))))))) +(define IdrisC-45Resugar-extractNat (lambda (arg-0 arg-1) (case (vector-ref arg-1 0) ((0) (let ((e-1 (vector-ref arg-1 2))) (case (vector-ref e-1 0) ((0) (let ((e-9 (vector-ref e-1 1))) (let ((e-10 (vector-ref e-1 2))) (case (vector-ref e-10 0) ((1) (let ((e-11 (vector-ref e-10 1))) (PreludeC-45Interfaces-C-62C-62 (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (PreludeC-45Types-u--map_Functor_Maybe u--func arg-133))))) (lambda (u--a) (lambda (arg-527) (PreludeC-45Types-u--pure_Applicative_Maybe arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (PreludeC-45Types-u--C-60C-42C-62_Applicative_Maybe arg-528 arg-530)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe arg-811 arg-812))))) (lambda (u--a) (lambda (arg-814) (PreludeC-45Types-u--join_Monad_Maybe arg-814)))) (PreludeC-45Interfaces-guard (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (PreludeC-45Types-u--map_Functor_Maybe u--func arg-133))))) (lambda (u--a) (lambda (arg-527) (PreludeC-45Types-u--pure_Applicative_Maybe arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (PreludeC-45Types-u--C-60C-42C-62_Applicative_Maybe arg-528 arg-530)))))) (lambda (u--a) (PreludeC-45Types-u--empty_Alternative_Maybe)) (lambda (u--a) (lambda (arg-763) (lambda (arg-764) (PreludeC-45Types-u--C-60C-124C-62_Alternative_Maybe arg-763 arg-764))))) (PreludeC-45EqOrd-u--C-61C-61_Eq_String e-11 "Z")) (lambda () (PreludeC-45Interfaces-C-62C-62 (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (PreludeC-45Types-u--map_Functor_Maybe u--func arg-133))))) (lambda (u--a) (lambda (arg-527) (PreludeC-45Types-u--pure_Applicative_Maybe arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (PreludeC-45Types-u--C-60C-42C-62_Applicative_Maybe arg-528 arg-530)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe arg-811 arg-812))))) (lambda (u--a) (lambda (arg-814) (PreludeC-45Types-u--join_Monad_Maybe arg-814)))) (PreludeC-45Interfaces-guard (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (PreludeC-45Types-u--map_Functor_Maybe u--func arg-133))))) (lambda (u--a) (lambda (arg-527) (PreludeC-45Types-u--pure_Applicative_Maybe arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (PreludeC-45Types-u--C-60C-42C-62_Applicative_Maybe arg-528 arg-530)))))) (lambda (u--a) (PreludeC-45Types-u--empty_Alternative_Maybe)) (lambda (u--a) (lambda (arg-763) (lambda (arg-764) (PreludeC-45Types-u--C-60C-124C-62_Alternative_Maybe arg-763 arg-764))))) (let ((sc3 (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace e-9 (CoreC-45NameC-45Namespace-typesNS)))) (cond ((equal? sc3 1) 1) (else (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace e-9 (CoreC-45NameC-45Namespace-preludeNS)))))) (lambda () (PreludeC-45Types-u--pure_Applicative_Maybe arg-0)))))))(else '())))))(else '())))) ((7) (let ((e-3 (vector-ref arg-1 2))) (let ((e-4 (vector-ref arg-1 3))) (case (vector-ref e-3 0) ((0) (let ((e-13 (vector-ref e-3 2))) (case (vector-ref e-13 0) ((0) (let ((e-14 (vector-ref e-13 1))) (let ((e-15 (vector-ref e-13 2))) (case (vector-ref e-15 0) ((1) (let ((e-16 (vector-ref e-15 1))) (PreludeC-45Interfaces-C-62C-62 (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (PreludeC-45Types-u--map_Functor_Maybe u--func arg-133))))) (lambda (u--a) (lambda (arg-527) (PreludeC-45Types-u--pure_Applicative_Maybe arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (PreludeC-45Types-u--C-60C-42C-62_Applicative_Maybe arg-528 arg-530)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe arg-811 arg-812))))) (lambda (u--a) (lambda (arg-814) (PreludeC-45Types-u--join_Monad_Maybe arg-814)))) (PreludeC-45Interfaces-guard (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (PreludeC-45Types-u--map_Functor_Maybe u--func arg-133))))) (lambda (u--a) (lambda (arg-527) (PreludeC-45Types-u--pure_Applicative_Maybe arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (PreludeC-45Types-u--C-60C-42C-62_Applicative_Maybe arg-528 arg-530)))))) (lambda (u--a) (PreludeC-45Types-u--empty_Alternative_Maybe)) (lambda (u--a) (lambda (arg-763) (lambda (arg-764) (PreludeC-45Types-u--C-60C-124C-62_Alternative_Maybe arg-763 arg-764))))) (PreludeC-45EqOrd-u--C-61C-61_Eq_String e-16 "S")) (lambda () (PreludeC-45Interfaces-C-62C-62 (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (PreludeC-45Types-u--map_Functor_Maybe u--func arg-133))))) (lambda (u--a) (lambda (arg-527) (PreludeC-45Types-u--pure_Applicative_Maybe arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (PreludeC-45Types-u--C-60C-42C-62_Applicative_Maybe arg-528 arg-530)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe arg-811 arg-812))))) (lambda (u--a) (lambda (arg-814) (PreludeC-45Types-u--join_Monad_Maybe arg-814)))) (PreludeC-45Interfaces-guard (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (PreludeC-45Types-u--map_Functor_Maybe u--func arg-133))))) (lambda (u--a) (lambda (arg-527) (PreludeC-45Types-u--pure_Applicative_Maybe arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (PreludeC-45Types-u--C-60C-42C-62_Applicative_Maybe arg-528 arg-530)))))) (lambda (u--a) (PreludeC-45Types-u--empty_Alternative_Maybe)) (lambda (u--a) (lambda (arg-763) (lambda (arg-764) (PreludeC-45Types-u--C-60C-124C-62_Alternative_Maybe arg-763 arg-764))))) (let ((sc4 (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace e-14 (CoreC-45NameC-45Namespace-typesNS)))) (cond ((equal? sc4 1) 1) (else (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace e-14 (CoreC-45NameC-45Namespace-preludeNS)))))) (lambda () (IdrisC-45Resugar-extractNat (PreludeC-45Types-u--C-43_Num_Nat (PreludeC-45Types-u--fromInteger_Num_Nat 1) arg-0) e-4)))))))(else '())))))(else '()))))(else '()))))) ((15) (let ((e-6 (vector-ref arg-1 2))) (case (vector-ref e-6 0) ((5) (let ((e-17 (vector-ref e-6 1))) (PreludeC-45Types-u--pure_Applicative_Maybe (PreludeC-45Types-u--C-43_Num_Nat arg-0 (PreludeC-45Types-prim__integerToNat e-17)))))(else '())))) ((32) (let ((e-8 (vector-ref arg-1 2))) (IdrisC-45Resugar-extractNat arg-0 e-8)))(else '())))) +(define IdrisC-45Resugar-cleanPTerm (lambda (arg-0 arg-1 ext-0) (let ((act-24 (IdrisC-45Resugar-fullNamespace arg-0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (cond ((equal? e-5 1) (vector 1 arg-1)) (else ((IdrisC-45Syntax-mapPTermM (lambda (eta-0) (lambda (eta-1) (IdrisC-45Resugar-n--10554-8219-u--cleanNode arg-1 arg-0 eta-0 eta-1))) arg-1) ext-0))))))))) +(define IdrisC-45Resugar-bracket (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 ((IdrisC-45Resugar-mkOp arg-0 arg-3) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((sc1 (PreludeC-45Types-u--C-62_Ord_Nat arg-1 arg-2))) (cond ((equal? sc1 1) (vector 1 (IdrisC-45Resugar-addBracket (CoreC-45FC-emptyFC) e-5))) (else (vector 1 e-5)))))))))) (define IdrisC-45Resugar-argPrec (lambda () (PreludeC-45Types-u--fromInteger_Num_Nat 1000))) (define IdrisC-45Resugar-appPrec (lambda () (PreludeC-45Types-u--fromInteger_Num_Nat 999))) -(define IdrisC-45Resugar-addBracket (lambda (arg-0 arg-1) (IdrisC-45Resugar-case--addBracket-4441 arg-1 arg-0 (IdrisC-45Resugar-n--11655-4391-u--needed arg-1 arg-0 arg-1)))) -(define IdrisC-45Version-with--version-738 (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-3)) (cond ((equal? sc1 "") (cons e-2 (vector 0 )))(else (cons e-2 (vector 1 e-3)))))))))) -(define IdrisC-45Version-n--2643-766-u--showTag (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) "") (else (let ((e-2 (vector-ref sc0 1))) (PreludeC-45TypesC-45String-C-43C-43 "-" e-2))))))) -(define IdrisC-45Version-version (lambda () (IdrisC-45Version-with--version-738 (IdrisPaths-idrisVersion)))) -(define IdrisC-45Version-showVersion (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-0 (car sc0))) (let ((e-1 (cdr sc0))) (let ((sc1 e-0)) (let ((e-4 (car sc1))) (let ((e-5 (cdr sc1))) (let ((sc2 e-5)) (let ((e-8 (car sc2))) (let ((e-9 (cdr sc2))) (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Interfaces-concat (cons (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_String arg-2 arg-3))) (PreludeC-45Types-u--neutral_Monoid_String))) (DataC-45List-intersperse "." (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (PreludeC-45Show-u--show_Show_Nat eta-0)) (cons e-4 (cons e-8 (cons e-9 '())))))) (let ((sc3 arg-0)) (cond ((equal? sc3 0) (IdrisC-45Version-n--2643-766-u--showTag e-4 e-8 e-9 e-1 arg-0)) (else ""))))))))))))))) -(define IdrisC-45SetOptions-case--preOptions-1370 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((act-24 (CoreC-45Context-setCG arg-3 e-1 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else ((IdrisC-45SetOptions-preOptions arg-3 arg-2 arg-1) ext-0))))))) (else (let ((act-24 (let ((act-24 ((PreludeC-45IO-putStrLn (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-0)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-0) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (let ((act-17 (arg-578 eta-0))) (let ((act-16 (arg-580 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (let ((act-24 (arg-876 eta-0))) ((arg-877 act-24) eta-0))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-0) (let ((act-51 (arg-879 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) "No such code generator") ext-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (let ((act-25 ((PreludeC-45IO-putStrLn (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-0)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-0) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (let ((act-17 (arg-578 eta-0))) (let ((act-16 (arg-580 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (let ((act-25 (arg-876 eta-0))) ((arg-877 act-25) eta-0))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-0) (let ((act-51 (arg-879 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) (PreludeC-45TypesC-45String-C-43C-43 "Code generators available: " (CoreC-45NameC-45Namespace-showSep ", " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-fst eta-0)) (CoreC-45Options-availableCGs (let ((sc2 arg-4)) (let ((e-4 (vector-ref sc2 5))) e-4))))))) ext-0))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((System-exitWith (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-0)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-0) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (let ((act-17 (arg-578 eta-0))) (let ((act-16 (arg-580 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (let ((act-26 (arg-876 eta-0))) ((arg-877 act-26) eta-0))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-0) (let ((act-51 (arg-879 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) (cons 1 (vector 0 ))) ext-0))) (vector 1 act-26))))))))))))))) -(define IdrisC-45SetOptions-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32addPkgDir-869 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 ext-0) (let ((sc0 arg-15)) (cond ((equal? sc0 0) (vector 1 (vector 0 ))) (else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 50 (PreludeC-45TypesC-45String-C-43C-43 arg-1 (PreludeC-45TypesC-45String-C-43C-43 " (" (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45PackageC-45Types-u--show_Show_PkgVersionBounds arg-0) ")")))) ext-0)))))) -(define IdrisC-45SetOptions-case--caseC-32blockC-32inC-32addPkgDir-748 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (cond ((equal? sc0 0) (PreludeC-45TypesC-45List-C-43C-43 arg-10 (PreludeC-45Interfaces-concat (cons (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (cons (lambda (arg-14) (lambda (arg-15) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-14 arg-15))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) arg-12))) (else arg-9))))) -(define IdrisC-45SetOptions-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32candidateDirsC-44getFiles-563 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 ext-0) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (IdrisC-45SetOptions-n--14564-362-u--getFiles arg-0 arg-1 arg-2 arg-4 (cons (cons (LibrariesC-45UtilsC-45Path-C-60C-47C-62 arg-2 arg-5) arg-8) arg-3) ext-0)) (else (IdrisC-45SetOptions-n--14564-362-u--getFiles arg-0 arg-1 arg-2 arg-4 arg-3 ext-0)))))) -(define IdrisC-45SetOptions-case--caseC-32blockC-32inC-32candidateDirsC-44getFiles-536 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (lambda (eta-0) (IdrisC-45SetOptions-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32candidateDirsC-44getFiles-563 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-2 e-3 (PreludeC-45Basics-C-38C-38 (PreludeC-45EqOrd-u--C-61C-61_Eq_String e-2 arg-1) (lambda () (IdrisC-45PackageC-45Types-inBounds e-3 arg-0))) eta-0))))))) -(define IdrisC-45SetOptions-case--caseC-32blockC-32inC-32candidateDirsC-44getVersion-448 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (cons (PreludeC-45Interfaces-concat (cons (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (cons (lambda (arg-7) (lambda (arg-8) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_String arg-7 arg-8))) (PreludeC-45Types-u--neutral_Monoid_String))) (DataC-45List-intersperse "-" arg-4)) (vector 1 e-1)))) (else (cons arg-3 (vector 0 ))))))) -(define IdrisC-45SetOptions-case--candidateDirsC-44getVersion-411 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (if (null? sc1) (cons e-3 (vector 0 )) (IdrisC-45SetOptions-case--caseC-32blockC-32inC-32candidateDirsC-44getVersion-448 arg-0 arg-1 arg-2 arg-3 e-2 e-3 (IdrisC-45SetOptions-n--14564-360-u--toVersion arg-0 arg-1 arg-2 e-3))))))))) -(define IdrisC-45SetOptions-n--14564-360-u--toVersion (lambda (arg-0 arg-1 arg-2 ext-0) (PreludeC-45Types-u--map_Functor_Maybe (lambda (eta-0) eta-0) (DataC-45List1-u--traverse_Traversable_List1 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (PreludeC-45Types-u--map_Functor_Maybe u--func arg-143))))) (lambda (u--a) (lambda (arg-577) (PreludeC-45Types-u--pure_Applicative_Maybe arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (PreludeC-45Types-u--C-60C-42C-62_Applicative_Maybe arg-578 arg-580)))))) (lambda (eta-0) (DataC-45String-parsePositive (vector 0 (lambda (arg-3) (lambda (arg-4) (PreludeC-45Types-u--C-43_Num_Nat arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45Types-u--C-42_Num_Nat arg-4 arg-5))) (lambda (arg-6) (PreludeC-45Types-u--fromInteger_Num_Nat arg-6))) eta-0)) (DataC-45String-split (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_Char arg-3 #\.)) ext-0))))) -(define IdrisC-45SetOptions-n--14564-361-u--getVersion (lambda (arg-0 arg-1 arg-2 arg-3) (IdrisC-45SetOptions-case--candidateDirsC-44getVersion-411 arg-0 arg-1 arg-2 arg-3 (LibrariesC-45DataC-45List1-unsnoc (DataC-45String-split (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_Char arg-4 #\-)) arg-3))))) -(define IdrisC-45SetOptions-n--14564-362-u--getFiles (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 ((SystemC-45Directory-dirEntry (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-0)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-0) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (let ((act-17 (arg-578 eta-0))) (let ((act-16 (arg-580 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (let ((act-24 (arg-876 eta-0))) ((arg-877 act-24) eta-0))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-0) (let ((act-51 (arg-879 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) arg-3) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-2))) ((IdrisC-45SetOptions-case--caseC-32blockC-32inC-32candidateDirsC-44getFiles-536 arg-0 arg-1 arg-2 arg-4 arg-3 e-2 _-0 (IdrisC-45SetOptions-n--14564-361-u--getVersion arg-0 arg-1 arg-2 e-2)) ext-0)))) (else (DataC-45List-reverse arg-4))))))) -(define IdrisC-45SetOptions-preOptions (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (if (null? sc0) (lambda (eta-0) (vector 1 0)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((13) (lambda (eta-0) (let ((act-24 (let ((act-24 (CoreC-45Context-getSession arg-0 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (CoreC-45Context-setSession arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-17 (vector-ref sc3 3))) (let ((e-16 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-15 (vector-ref sc3 6))) (let ((e-6 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (let ((e-11 (vector-ref sc3 12))) (let ((e-12 (vector-ref sc3 13))) (let ((e-13 (vector-ref sc3 14))) (let ((e-14 (vector-ref sc3 15))) (vector 0 e-0 0 e-17 e-16 e-4 e-15 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14)))))))))))))))) eta-0)))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((IdrisC-45SetOptions-preOptions arg-0 arg-1 e-3) eta-0))))))) ((1) (lambda (eta-0) (let ((act-24 (let ((act-24 (CoreC-45Context-getSession arg-0 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (CoreC-45Context-setSession arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-18 (vector-ref sc3 3))) (let ((e-17 (vector-ref sc3 4))) (let ((e-16 (vector-ref sc3 5))) (let ((e-15 (vector-ref sc3 6))) (let ((e-6 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (let ((e-11 (vector-ref sc3 12))) (let ((e-12 (vector-ref sc3 13))) (let ((e-13 (vector-ref sc3 14))) (let ((e-14 (vector-ref sc3 15))) (vector 0 e-0 0 e-18 e-17 e-16 e-15 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14)))))))))))))))) eta-0)))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else ((IdrisC-45SetOptions-preOptions arg-0 arg-1 e-3) eta-0))))))) ((2) (lambda (eta-0) (let ((act-24 (let ((act-24 (CoreC-45Context-getSession arg-0 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (CoreC-45Context-setSession arg-0 (let ((sc3 e-6)) (let ((e-0 (vector-ref sc3 1))) (let ((e-18 (vector-ref sc3 3))) (let ((e-17 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-16 (vector-ref sc3 6))) (let ((e-15 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (let ((e-11 (vector-ref sc3 12))) (let ((e-12 (vector-ref sc3 13))) (let ((e-13 (vector-ref sc3 14))) (let ((e-14 (vector-ref sc3 15))) (vector 0 e-0 0 e-18 e-17 e-4 e-16 e-15 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14)))))))))))))))) eta-0)))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((IdrisC-45SetOptions-preOptions arg-0 arg-1 e-3) eta-0))))))) ((23) (lambda (eta-0) (let ((act-24 (let ((act-24 (CoreC-45Context-getSession arg-0 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (CoreC-45Context-setSession arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-17 (vector-ref sc3 3))) (let ((e-16 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-15 (vector-ref sc3 6))) (let ((e-6 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (let ((e-11 (vector-ref sc3 12))) (let ((e-12 (vector-ref sc3 13))) (let ((e-13 (vector-ref sc3 14))) (let ((e-14 (vector-ref sc3 15))) (vector 0 e-0 0 e-17 e-16 e-4 e-15 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14)))))))))))))))) eta-0)))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((IdrisC-45SetOptions-preOptions arg-0 arg-1 e-3) eta-0))))))) ((24) (lambda (eta-0) (let ((act-24 (let ((act-24 (CoreC-45Context-getSession arg-0 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (CoreC-45Context-setSession arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-18 (vector-ref sc3 3))) (let ((e-17 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-16 (vector-ref sc3 6))) (let ((e-15 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (let ((e-11 (vector-ref sc3 12))) (let ((e-12 (vector-ref sc3 13))) (let ((e-13 (vector-ref sc3 14))) (let ((e-14 (vector-ref sc3 15))) (vector 0 e-0 0 e-18 e-17 e-4 e-16 e-15 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14)))))))))))))))) eta-0)))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((IdrisC-45SetOptions-preOptions arg-0 arg-1 e-3) eta-0))))))) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 (CoreC-45Context-getSession arg-0 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (CoreC-45Context-setSession arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-17 (vector-ref sc3 3))) (let ((e-16 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-15 (vector-ref sc3 6))) (let ((e-6 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (let ((e-11 (vector-ref sc3 12))) (let ((e-12 (vector-ref sc3 13))) (let ((e-13 (vector-ref sc3 14))) (let ((e-14 (vector-ref sc3 15))) (vector 0 e-0 0 e-17 e-16 e-4 e-15 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14)))))))))))))))) eta-0)))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((IdrisC-45SetOptions-preOptions arg-0 arg-1 e-3) eta-0))))))) ((9) (lambda (eta-0) (let ((act-24 (let ((act-24 (CoreC-45Context-getSession arg-0 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (CoreC-45Context-setSession arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-17 (vector-ref sc3 3))) (let ((e-16 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-15 (vector-ref sc3 6))) (let ((e-6 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (let ((e-11 (vector-ref sc3 12))) (let ((e-12 (vector-ref sc3 13))) (let ((e-13 (vector-ref sc3 14))) (vector 0 e-0 e-1 e-17 e-16 e-4 e-15 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 0)))))))))))))))) eta-0)))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((IdrisC-45SetOptions-preOptions arg-0 arg-1 e-3) eta-0))))))) ((14) (lambda (eta-0) (let ((act-24 (IdrisC-45REPLC-45Opts-setOutput arg-1 (vector 1 0) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((IdrisC-45SetOptions-preOptions arg-0 arg-1 e-3) eta-0))))))) ((5) (lambda (eta-0) (let ((act-24 (let ((act-24 (CoreC-45Context-getSession arg-0 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (CoreC-45Context-setSession arg-0 (let ((sc3 e-5)) (let ((e-1 (vector-ref sc3 2))) (let ((e-17 (vector-ref sc3 3))) (let ((e-16 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-15 (vector-ref sc3 6))) (let ((e-6 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (let ((e-11 (vector-ref sc3 12))) (let ((e-12 (vector-ref sc3 13))) (let ((e-13 (vector-ref sc3 14))) (let ((e-14 (vector-ref sc3 15))) (vector 0 0 e-1 e-17 e-16 e-4 e-15 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14)))))))))))))))) eta-0)))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((IdrisC-45SetOptions-preOptions arg-0 arg-1 e-3) eta-0))))))) ((3) (let ((e-7 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (IdrisC-45SetOptions-case--preOptions-1370 e-7 e-3 arg-1 arg-0 e-5 (CoreC-45Options-getCG (let ((sc3 e-5)) (let ((e-4 (vector-ref sc3 5))) e-4)) e-7) eta-0))))))))) ((4) (let ((e-8 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (CoreC-45Context-getSession arg-0 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (CoreC-45Context-setSession arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-18 (vector-ref sc3 3))) (let ((e-17 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-16 (vector-ref sc3 6))) (let ((e-6 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-15 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (let ((e-11 (vector-ref sc3 12))) (let ((e-12 (vector-ref sc3 13))) (let ((e-13 (vector-ref sc3 14))) (let ((e-14 (vector-ref sc3 15))) (vector 0 e-0 e-1 e-18 e-17 (cons e-8 e-4) e-16 e-6 e-7 e-15 e-9 e-10 e-11 e-12 e-13 e-14))))))))))))))))) eta-0)))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((IdrisC-45SetOptions-preOptions arg-0 arg-1 e-3) eta-0)))))))) ((19) (let ((e-9 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (IdrisC-45SetOptions-addPkgDir arg-0 e-9 (IdrisC-45PackageC-45Types-anyBounds) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((IdrisC-45SetOptions-preOptions arg-0 arg-1 e-3) eta-0)))))))) ((6) (let ((e-10 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (CoreC-45Context-setSourceDir arg-0 (vector 1 e-10) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((IdrisC-45SetOptions-preOptions arg-0 arg-1 e-3) eta-0)))))))) ((7) (let ((e-11 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (CoreC-45Context-setBuildDir arg-0 e-11 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((IdrisC-45SetOptions-preOptions arg-0 arg-1 e-3) eta-0)))))))) ((8) (let ((e-12 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (CoreC-45Context-setOutputDir arg-0 (vector 1 e-12) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((IdrisC-45SetOptions-preOptions arg-0 arg-1 e-3) eta-0)))))))) ((21) (let ((e-13 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (IdrisC-45SetOptions-dirOption (let ((sc3 e-5)) (let ((e-4 (vector-ref sc3 5))) (let ((sc4 e-4)) (let ((e-40 (vector-ref sc4 1))) e-40)))) e-13 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (vector 1 1))))))))))))) ((34) (lambda (eta-0) (let ((act-24 (CoreC-45Context-setLogTimings arg-0 0 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((IdrisC-45SetOptions-preOptions arg-0 arg-1 e-3) eta-0))))))) ((35) (lambda (eta-0) (let ((act-24 (CoreC-45Context-setDebugElabCheck arg-0 0 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((IdrisC-45SetOptions-preOptions arg-0 arg-1 e-3) eta-0))))))) ((31) (lambda (eta-0) (let ((act-24 (IdrisC-45REPLC-45Opts-setOutput arg-1 (vector 1 0) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((act-25 (let ((act-25 (CoreC-45Context-getSession arg-0 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) (CoreC-45Context-setSession arg-0 (let ((sc4 e-6)) (let ((e-0 (vector-ref sc4 1))) (let ((e-19 (vector-ref sc4 3))) (let ((e-18 (vector-ref sc4 4))) (let ((e-4 (vector-ref sc4 5))) (let ((e-17 (vector-ref sc4 6))) (let ((e-16 (vector-ref sc4 7))) (let ((e-7 (vector-ref sc4 8))) (let ((e-8 (vector-ref sc4 9))) (let ((e-9 (vector-ref sc4 10))) (let ((e-10 (vector-ref sc4 11))) (let ((e-11 (vector-ref sc4 12))) (let ((e-12 (vector-ref sc4 13))) (let ((e-13 (vector-ref sc4 14))) (let ((e-15 (vector-ref sc4 15))) (vector 0 e-0 0 e-19 e-18 e-4 e-17 e-16 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-15)))))))))))))))) eta-0)))))))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else ((IdrisC-45SetOptions-preOptions arg-0 arg-1 e-3) eta-0))))))))))) ((33) (lambda (eta-0) (let ((act-24 (let ((act-24 (CoreC-45Context-getSession arg-0 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (CoreC-45Context-setSession arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-16 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-15 (vector-ref sc3 6))) (let ((e-6 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (let ((e-11 (vector-ref sc3 12))) (let ((e-12 (vector-ref sc3 13))) (let ((e-13 (vector-ref sc3 14))) (let ((e-14 (vector-ref sc3 15))) (vector 0 e-0 e-1 0 e-16 e-4 e-15 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14)))))))))))))))) eta-0)))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((IdrisC-45SetOptions-preOptions arg-0 arg-1 e-3) eta-0))))))) ((32) (lambda (eta-0) (let ((act-24 (let ((act-24 (CoreC-45Context-getSession arg-0 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (CoreC-45Context-setSession arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-17 (vector-ref sc3 3))) (let ((e-16 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-15 (vector-ref sc3 6))) (let ((e-6 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (let ((e-11 (vector-ref sc3 12))) (let ((e-12 (vector-ref sc3 13))) (let ((e-13 (vector-ref sc3 14))) (let ((e-14 (vector-ref sc3 15))) (vector 0 e-0 e-1 e-17 e-16 e-4 e-15 e-6 e-7 0 e-9 e-10 e-11 e-12 e-13 e-14)))))))))))))))) eta-0)))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((IdrisC-45SetOptions-preOptions arg-0 arg-1 e-3) eta-0))))))) ((27) (let ((e-15 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (CoreC-45Context-getSession arg-0 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (CoreC-45Context-setSession arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-18 (vector-ref sc3 3))) (let ((e-17 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-16 (vector-ref sc3 6))) (let ((e-6 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-11 (vector-ref sc3 12))) (let ((e-12 (vector-ref sc3 13))) (let ((e-13 (vector-ref sc3 14))) (let ((e-14 (vector-ref sc3 15))) (vector 0 e-0 e-1 e-18 e-17 e-4 e-16 e-6 e-7 e-8 e-9 (vector 1 e-15) e-11 e-12 e-13 e-14)))))))))))))))) eta-0)))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((IdrisC-45SetOptions-preOptions arg-0 arg-1 e-3) eta-0)))))))) ((28) (let ((e-16 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (CoreC-45Context-getSession arg-0 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (CoreC-45Context-setSession arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-18 (vector-ref sc3 3))) (let ((e-17 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-15 (vector-ref sc3 6))) (let ((e-6 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (let ((e-12 (vector-ref sc3 13))) (let ((e-13 (vector-ref sc3 14))) (let ((e-14 (vector-ref sc3 15))) (vector 0 e-0 e-1 e-18 e-17 e-4 e-15 e-6 e-7 e-8 e-9 e-10 (vector 1 e-16) e-12 e-13 e-14)))))))))))))))) eta-0)))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((IdrisC-45SetOptions-preOptions arg-0 arg-1 e-3) eta-0)))))))) ((29) (let ((e-17 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (CoreC-45Context-getSession arg-0 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (CoreC-45Context-setSession arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-18 (vector-ref sc3 3))) (let ((e-16 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-15 (vector-ref sc3 6))) (let ((e-6 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (let ((e-11 (vector-ref sc3 12))) (let ((e-13 (vector-ref sc3 14))) (let ((e-14 (vector-ref sc3 15))) (vector 0 e-0 e-1 e-18 e-16 e-4 e-15 e-6 e-7 e-8 e-9 e-10 e-11 (vector 1 e-17) e-13 e-14)))))))))))))))) eta-0)))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((IdrisC-45SetOptions-preOptions arg-0 arg-1 e-3) eta-0)))))))) ((30) (let ((e-18 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (CoreC-45Context-getSession arg-0 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (CoreC-45Context-setSession arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-17 (vector-ref sc3 3))) (let ((e-16 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-15 (vector-ref sc3 6))) (let ((e-6 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (let ((e-11 (vector-ref sc3 12))) (let ((e-12 (vector-ref sc3 13))) (let ((e-14 (vector-ref sc3 15))) (vector 0 e-0 e-1 e-17 e-16 e-4 e-15 e-6 e-7 e-8 e-9 e-10 e-11 e-12 (vector 1 e-18) e-14)))))))))))))))) eta-0)))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((IdrisC-45SetOptions-preOptions arg-0 arg-1 e-3) eta-0)))))))) ((18) (let ((e-19 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (CoreC-45Context-getSession arg-0 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (CoreC-45Context-setSession arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-17 (vector-ref sc3 3))) (let ((e-16 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-6 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (let ((e-11 (vector-ref sc3 12))) (let ((e-12 (vector-ref sc3 13))) (let ((e-13 (vector-ref sc3 14))) (let ((e-14 (vector-ref sc3 15))) (vector 0 e-0 e-1 e-17 e-16 e-4 0 (CoreC-45OptionsC-45Log-insertLogLevel e-19 e-6) e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14)))))))))))))))) eta-0)))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((IdrisC-45SetOptions-preOptions arg-0 arg-1 e-3) eta-0)))))))) ((16) (let ((e-20 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (IdrisC-45REPLC-45Opts-setConsoleWidth arg-1 e-20 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((IdrisC-45SetOptions-preOptions arg-0 arg-1 e-3) eta-0)))))))) ((17) (let ((e-21 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (IdrisC-45REPLC-45Opts-setColor arg-1 e-21 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((IdrisC-45SetOptions-preOptions arg-0 arg-1 e-3) eta-0))))))))(else (IdrisC-45SetOptions-preOptions arg-0 arg-1 e-3)))))))))) -(define IdrisC-45SetOptions-postOptions (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (if (null? sc0) (lambda (eta-0) (vector 1 0)) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((10) (let ((sc2 arg-6)) (if (null? sc2) (let ((sc3 arg-6)) (let ((e-1 (car sc3))) (let ((e-2 (cdr sc3))) (let ((sc4 e-1)) (case (vector-ref sc4 0) ((1) (let ((e-3 (vector-ref sc4 1))) (lambda (eta-0) (let ((act-24 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (let ((sc5 eta-1)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (vector 1 (vector 0 )))))) (lambda (eta-1) (IdrisC-45REPL-compileExp arg-0 arg-1 arg-2 arg-3 arg-4 (vector 0 (vector 0 "(script)" (cons 0 0) (cons 0 0)) (vector 1 "main")) e-3 eta-1)) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((act-25 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (let ((sc6 eta-1)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (vector 1 (vector 0 )))))) (IdrisC-45SetOptions-postOptions arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (vector 1 1)))))))))))) ((2) (let ((e-4 (vector-ref sc4 1))) (lambda (eta-0) (let ((act-24 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (let ((sc5 eta-1)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (vector 1 (vector 0 )))))) (lambda (eta-1) (IdrisC-45REPL-execExp arg-0 arg-1 arg-2 arg-3 arg-4 (vector 0 (vector 0 "(script)" (cons 0 0) (cons 0 0)) (vector 1 e-4)) eta-1)) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((act-25 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (let ((sc6 eta-1)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (vector 1 (vector 0 )))))) (IdrisC-45SetOptions-postOptions arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (vector 1 1)))))))))))) ((0) (lambda (eta-0) (let ((act-24 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (let ((sc5 eta-1)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (vector 1 (vector 0 )))))) (IdrisC-45SetOptions-postOptions arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (vector 1 1))))))) ((31) (let ((e-5 (vector-ref sc4 1))) (lambda (eta-0) (let ((act-24 (IdrisC-45REPL-replCmd arg-0 arg-1 arg-2 arg-3 arg-4 e-5 eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (vector 1 1))))))))(else (IdrisC-45SetOptions-postOptions arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2))))))) (let ((e-9 (car sc2))) (let ((e-10 (cdr sc2))) (let ((sc3 e-9)) (case (vector-ref sc3 0) ((1) (lambda (eta-0) (let ((act-24 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (let ((sc4 eta-1)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))) (IdrisC-45SetOptions-postOptions arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-10) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (vector 1 1)))))))(else (let ((sc3 arg-6)) (let ((e-1 (car sc3))) (let ((e-2 (cdr sc3))) (let ((sc4 e-1)) (case (vector-ref sc4 0) ((1) (let ((e-3 (vector-ref sc4 1))) (lambda (eta-0) (let ((act-24 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (let ((sc5 eta-1)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (vector 1 (vector 0 )))))) (lambda (eta-1) (IdrisC-45REPL-compileExp arg-0 arg-1 arg-2 arg-3 arg-4 (vector 0 (vector 0 "(script)" (cons 0 0) (cons 0 0)) (vector 1 "main")) e-3 eta-1)) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((act-25 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (let ((sc6 eta-1)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (vector 1 (vector 0 )))))) (IdrisC-45SetOptions-postOptions arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (vector 1 1)))))))))))) ((2) (let ((e-4 (vector-ref sc4 1))) (lambda (eta-0) (let ((act-24 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (let ((sc5 eta-1)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (vector 1 (vector 0 )))))) (lambda (eta-1) (IdrisC-45REPL-execExp arg-0 arg-1 arg-2 arg-3 arg-4 (vector 0 (vector 0 "(script)" (cons 0 0) (cons 0 0)) (vector 1 e-4)) eta-1)) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((act-25 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (let ((sc6 eta-1)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (vector 1 (vector 0 )))))) (IdrisC-45SetOptions-postOptions arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (vector 1 1)))))))))))) ((0) (lambda (eta-0) (let ((act-24 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (let ((sc5 eta-1)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (vector 1 (vector 0 )))))) (IdrisC-45SetOptions-postOptions arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (vector 1 1))))))) ((31) (let ((e-5 (vector-ref sc4 1))) (lambda (eta-0) (let ((act-24 (IdrisC-45REPL-replCmd arg-0 arg-1 arg-2 arg-3 arg-4 e-5 eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (vector 1 1))))))))(else (IdrisC-45SetOptions-postOptions arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2)))))))))))))))(else (let ((sc1 arg-6)) (let ((e-1 (car sc1))) (let ((e-2 (cdr sc1))) (let ((sc2 e-1)) (case (vector-ref sc2 0) ((1) (let ((e-3 (vector-ref sc2 1))) (lambda (eta-0) (let ((act-24 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (let ((sc3 eta-1)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (vector 1 (vector 0 )))))) (lambda (eta-1) (IdrisC-45REPL-compileExp arg-0 arg-1 arg-2 arg-3 arg-4 (vector 0 (vector 0 "(script)" (cons 0 0) (cons 0 0)) (vector 1 "main")) e-3 eta-1)) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((act-25 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (let ((sc4 eta-1)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (vector 1 (vector 0 )))))) (IdrisC-45SetOptions-postOptions arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (vector 1 1)))))))))))) ((2) (let ((e-4 (vector-ref sc2 1))) (lambda (eta-0) (let ((act-24 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (let ((sc3 eta-1)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (vector 1 (vector 0 )))))) (lambda (eta-1) (IdrisC-45REPL-execExp arg-0 arg-1 arg-2 arg-3 arg-4 (vector 0 (vector 0 "(script)" (cons 0 0) (cons 0 0)) (vector 1 e-4)) eta-1)) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((act-25 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (let ((sc4 eta-1)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (vector 1 (vector 0 )))))) (IdrisC-45SetOptions-postOptions arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (vector 1 1)))))))))))) ((0) (lambda (eta-0) (let ((act-24 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (let ((sc3 eta-1)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (vector 1 (vector 0 )))))) (IdrisC-45SetOptions-postOptions arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (vector 1 1))))))) ((31) (let ((e-5 (vector-ref sc2 1))) (lambda (eta-0) (let ((act-24 (IdrisC-45REPL-replCmd arg-0 arg-1 arg-2 arg-3 arg-4 e-5 eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (vector 1 1))))))))(else (IdrisC-45SetOptions-postOptions arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2)))))))))))))) -(define IdrisC-45SetOptions-ideModeSocket (lambda (arg-0) (let ((sc0 arg-0)) (if (null? sc0) 1 (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((24) 0)(else (IdrisC-45SetOptions-ideModeSocket e-3)))))))))) -(define IdrisC-45SetOptions-ideMode (lambda (arg-0) (let ((sc0 arg-0)) (if (null? sc0) 1 (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((23) 0)(else (IdrisC-45SetOptions-ideMode e-3)))))))))) -(define IdrisC-45SetOptions-dirOption (lambda (arg-0 arg-1 ext-0) (let ((sc0 arg-1)) (let ((act-24 ((PreludeC-45IO-putStrLn (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-0)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-0) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (let ((act-17 (arg-578 eta-0))) (let ((act-16 (arg-580 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (let ((act-24 (arg-876 eta-0))) ((arg-877 act-24) eta-0))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-0) (let ((act-51 (arg-879 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) (LibrariesC-45UtilsC-45Path-C-60C-47C-62 (let ((sc1 arg-0)) (let ((e-5 (vector-ref sc1 6))) e-5)) (PreludeC-45TypesC-45String-C-43C-43 "idris2-" (IdrisC-45Version-showVersion 1 (IdrisC-45Version-version))))) ext-0))) (vector 1 act-24))))) -(define IdrisC-45SetOptions-candidateDirs (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 ((SystemC-45Directory-openDir (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-0)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-0) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (let ((act-17 (arg-578 eta-0))) (let ((act-16 (arg-580 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (let ((act-24 (arg-876 eta-0))) ((arg-877 act-24) eta-0))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-0) (let ((act-51 (arg-879 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) arg-0) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (IdrisC-45SetOptions-n--14564-362-u--getFiles arg-2 arg-1 arg-0 e-2 '() ext-0))) (else '())))))) -(define IdrisC-45SetOptions-addPkgDir (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((u--globaldir (LibrariesC-45UtilsC-45Path-C-60C-47C-62 (let ((sc1 e-5)) (let ((e-4 (vector-ref sc1 5))) (let ((sc2 e-4)) (let ((e-37 (vector-ref sc2 1))) (let ((sc3 e-37)) (let ((e-42 (vector-ref sc3 6))) e-42)))))) (PreludeC-45TypesC-45String-C-43C-43 "idris2-" (IdrisC-45Version-showVersion 1 (IdrisC-45Version-version)))))) (let ((u--depends (let ((sc1 e-5)) (let ((e-4 (vector-ref sc1 5))) (let ((sc2 e-4)) (let ((e-37 (vector-ref sc2 1))) (let ((sc3 e-37)) (let ((e-44 (vector-ref sc3 4))) e-44)))))))) (let ((act-25 (let ((act-25 ((SystemC-45Directory-currentDir (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-0)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-0) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (let ((act-17 (arg-578 eta-0))) (let ((act-16 (arg-580 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (let ((act-25 (arg-876 eta-0))) ((arg-877 act-25) eta-0))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-0) (let ((act-51 (arg-879 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-7803) arg-7803)))) ext-0))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((u--localdir (LibrariesC-45UtilsC-45Path-C-60C-47C-62 e-1 u--depends))) (let ((act-26 (let ((act-26 (IdrisC-45SetOptions-candidateDirs u--localdir arg-1 arg-2 ext-0))) (vector 1 act-26)))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (let ((act-27 (IdrisC-45SetOptions-candidateDirs u--globaldir arg-1 arg-2 ext-0))) (vector 1 act-27)))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((u--pkgdirs (let ((sc5 e-5)) (let ((e-4 (vector-ref sc5 5))) (let ((sc6 e-4)) (let ((e-41 (vector-ref sc6 1))) (let ((sc7 e-41)) (let ((e-44 (vector-ref sc7 8))) e-44)))))))) (let ((act-28 (let ((act-28 ((PreludeC-45Types-u--traverse_Traversable_List (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-0)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-0) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (let ((act-17 (arg-578 eta-0))) (let ((act-16 (arg-580 eta-0))) (act-17 act-16))))))))) (lambda (u--d) (lambda (eta-0) (IdrisC-45SetOptions-candidateDirs u--d arg-1 arg-2 eta-0))) u--pkgdirs) ext-0))) (vector 1 act-28)))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((u--allFiles (let ((_-0 (vector 1 e-1))) (IdrisC-45SetOptions-case--caseC-32blockC-32inC-32addPkgDir-748 arg-2 arg-1 arg-0 e-5 u--globaldir u--depends e-1 _-0 u--localdir e-7 e-8 u--pkgdirs e-9 (DataC-45List-isNil e-7))))) (let ((u--sorted (DataC-45List-sortBy (lambda (u--x) (lambda (u--y) (PreludeC-45Types-u--compare_Ord_C-40MaybeC-32C-36aC-41 (vector 0 (cons (lambda (arg-3) (lambda (arg-4) (IdrisC-45PackageC-45Types-u--C-61C-61_Eq_PkgVersion arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (IdrisC-45PackageC-45Types-u--C-47C-61_Eq_PkgVersion arg-4 arg-5)))) (lambda (arg-371) (lambda (arg-372) (IdrisC-45PackageC-45Types-u--compare_Ord_PkgVersion arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (IdrisC-45PackageC-45Types-u--C-60_Ord_PkgVersion arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (IdrisC-45PackageC-45Types-u--C-62_Ord_PkgVersion arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (IdrisC-45PackageC-45Types-u--C-60C-61_Ord_PkgVersion arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (IdrisC-45PackageC-45Types-u--C-62C-61_Ord_PkgVersion arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (IdrisC-45PackageC-45Types-u--max_Ord_PkgVersion arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (IdrisC-45PackageC-45Types-u--min_Ord_PkgVersion arg-383 arg-384)))) (Builtin-snd u--y) (Builtin-snd u--x)))) u--allFiles))) (let ((_-0 (vector 1 e-1))) (let ((sc6 u--sorted)) (if (null? sc6) (let ((sorted-0 '())) (IdrisC-45SetOptions-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32addPkgDir-869 arg-2 arg-1 arg-0 e-5 u--globaldir u--depends e-1 _-0 u--localdir e-7 e-8 u--pkgdirs e-9 u--allFiles sorted-0 (let ((sc7 e-5)) (let ((e-4 (vector-ref sc7 5))) (let ((sc8 e-4)) (let ((e-40 (vector-ref sc8 3))) (let ((sc9 e-40)) (let ((e-49 (vector-ref sc9 9))) e-49)))))) ext-0)) (let ((e-2 (car sc6))) (let ((sc7 e-2)) (let ((e-11 (car sc7))) (CoreC-45Context-addExtraDir arg-0 e-11 ext-0)))))))))))))))))))))))))))) (else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 "Can't get current directory") ext-0)))))))))))))))))) -(define IdrisC-45REPL-case--interpret-9764 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((IdrisC-45Error-perror arg-5 arg-3 arg-1 e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-5)))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (clam-0) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((0) (vector 1 (vector 0 ))) (else (let ((e-8 (vector-ref sc1 1))) (IdrisC-45REPL-processCatch arg-5 arg-4 arg-3 arg-2 arg-1 e-8 clam-0)))))))))))) -(define IdrisC-45REPL-case--process-9406 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((u--packageDirPath (LibrariesC-45UtilsC-45Path-parse e-1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (LibrariesC-45SystemC-45DirectoryC-45Tree-explore u--packageDirPath eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 ((IdrisC-45REPL-n--36310-9349-u--toPaths arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (LibrariesC-45UtilsC-45Path-parse "") (LibrariesC-45SystemC-45DirectoryC-45TreeC-45Tree-toRelative e-5)) eta-0))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((PreludeC-45Basics-flip (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (CoreC-45Core-traverseC-39 eta-1 eta-2 '() eta-3)))) e-6 (lambda (u--entry) (let ((u--entryC-39 (LibrariesC-45UtilsC-45Path-dropExtension u--entry))) (let ((u--sp (DataC-45List1-forget (DataC-45String-split (lambda (arg-9) (PreludeC-45EqOrd-u--C-61C-61_Eq_Char arg-9 (LibrariesC-45UtilsC-45Path-dirSeparator))) u--entryC-39)))) (let ((u--ns (PreludeC-45Interfaces-concat (cons (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (cons (lambda (arg-9) (lambda (arg-10) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_String arg-9 arg-10))) (PreludeC-45Types-u--neutral_Monoid_String))) (DataC-45List-intersperse "." u--sp)))) (let ((u--nsC-39 (CoreC-45NameC-45Namespace-mkNamespace u--ns))) (lambda (eta-1) (CoreC-45Core-u--catch_Catchable_Core_Error (lambda (eta-2) (let ((act-26 (IdrisC-45ProcessIdr-addImport arg-5 arg-4 arg-3 (vector 0 (CoreC-45FC-emptyFC) 1 (CoreC-45NameC-45Namespace-nsAsModuleIdent u--nsC-39) u--nsC-39) eta-2))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (vector 1 (vector 0 ))))))) (lambda (u--err) (lambda (eta-2) (vector 1 (vector 1 u--err)))) eta-1)))))))) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((u--errsC-39 (DataC-45List-catMaybes e-7))) (let ((act-27 (let ((sc4 u--errsC-39)) (if (null? sc4) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "Done")) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-1) (lambda (eta-2) (IdrisC-45Error-display arg-5 arg-3 arg-1 eta-1 eta-2))) u--errsC-39 '() eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc5 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep e-8))))))))))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 5 e-8)))))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "Package not found in the known search directories"))))))))) -(define IdrisC-45REPL-case--process-9133 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 ext-0) (let ((sc0 arg-12)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-3)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (IdrisC-45IDEModeC-45Holes-holeData '() arg-4 arg-2 arg-5 '() e-2 e-7 (let ((sc2 e-6)) (let ((e-24 (vector-ref sc2 3))) e-24)) ext-0))))))))) -(define IdrisC-45REPL-case--caseC-32blockC-32inC-32process-8792 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 ext-0) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (IdrisC-45REPL-displayPatTerm arg-5 arg-3 arg-6 eta-0 eta-1))) e-0 '() ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 arg-9 e-5))))))))) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (CoreC-45Context-getFullName arg-5 eta-0 eta-1))) e-1 '() ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 arg-9 e-5)))))))))(else (vector 1 (vector 2 arg-9))))))) -(define IdrisC-45REPL-case--process-8424 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 12 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((u--line (PreludeC-45Types-maybe (lambda () "") (lambda () (lambda (u--i) (PreludeC-45TypesC-45String-C-43C-43 " +" (PreludeC-45Show-u--show_Show_Int (bs+ u--i 1 63))))) (let ((sc1 arg-5)) (let ((e-6 (vector-ref sc1 7))) e-6))))) (lambda (eta-0) (let ((act-24 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (vector 1 (vector 0 )))))) (lambda (eta-1) (let ((act-24 ((System-system (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-2) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-2)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-2) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-2) (let ((act-17 (arg-578 eta-2))) (let ((act-16 (arg-580 eta-2))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-2) (let ((act-24 (arg-876 eta-2))) ((arg-877 act-24) eta-2))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-2) (let ((act-51 (arg-879 eta-2))) (act-51 eta-2)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) (PreludeC-45TypesC-45String-C-43C-43 (let ((sc1 arg-5)) (let ((e-5 (vector-ref sc1 6))) e-5)) (PreludeC-45TypesC-45String-C-43C-43 " \"" (PreludeC-45TypesC-45String-C-43C-43 e-2 (PreludeC-45TypesC-45String-C-43C-43 "\"" u--line))))) eta-1))) (vector 1 act-24))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (IdrisC-45REPL-loadMainFile arg-4 arg-3 arg-2 arg-1 arg-0 e-2 eta-0))))))))))))) -(define IdrisC-45REPL-case--process-8278 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (vector 1 (vector 12 ))) (else (let ((e-2 (vector-ref sc0 1))) (IdrisC-45REPL-loadMainFile arg-4 arg-3 arg-2 arg-1 arg-0 e-2 ext-0))))))) -(define IdrisC-45REPL-case--process-7983 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 7 arg-0 (vector 1 "it")) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (IdrisC-45REPL-process arg-5 arg-4 arg-3 arg-2 arg-1 (vector 2 (vector 0 arg-0 e-2))))))))) -(define IdrisC-45REPL-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32process-7820 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 ext-0) (let ((sc0 arg-16)) (cond ((equal? sc0 0) (let ((act-24 (let ((act-24 ((((arg-14 arg-12) '()) arg-8) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (IdrisC-45Resugar-resugar '() arg-5 arg-3 '() e-5 ext-0)))))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 4 arg-11 (vector 1 e-5))))))))) (else (vector 1 (vector 4 arg-11 (vector 0 )))))))) -(define IdrisC-45REPL-case--getItDecls-6917 (lambda (arg-0 arg-1 arg-2 ext-0) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 1 '())) (else (let ((e-2 (vector-ref sc0 1))) (vector 1 (cons (vector 0 (IdrisC-45REPLC-45Opts-replFC) (AlgebraC-45ZeroOneOmega-u--top_Top_ZeroOneOmega) (vector 0 ) '() (vector 0 (IdrisC-45REPLC-45Opts-replFC) (vector 1 ) (vector 1 "it") (vector 32 (IdrisC-45REPLC-45Opts-replFC) 1))) (cons (vector 2 (IdrisC-45REPLC-45Opts-replFC) (vector 1 "it") (cons (vector 0 (IdrisC-45REPLC-45Opts-replFC) (vector 0 (IdrisC-45REPLC-45Opts-replFC) (vector 1 "it")) (vector 0 (IdrisC-45REPLC-45Opts-replFC) e-2)) '())) '()))))))))) -(define IdrisC-45REPL-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32processEdit-6739 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (let ((e-2 (car sc0))) (let ((u--w (DataC-45List1-forget (LibrariesC-45DataC-45StringC-45Extra-lines (IdrisC-45IDEModeC-45MakeClause-makeWith arg-0 arg-11))))) (lambda (clam-0) (let ((sc1 arg-2)) (cond ((equal? sc1 0) (IdrisC-45REPL-updateFile arg-3 (lambda (eta-0) (IdrisC-45REPL-addMadeCase e-2 u--w (PreludeC-45Types-u--max_Ord_Nat (PreludeC-45Types-u--fromInteger_Num_Nat 0) (PreludeC-45Types-prim__integerToNat (PreludeC-45Cast-u--cast_Cast_Int_Integer (PreludeC-45Num-u--C-45_Neg_Int arg-1 1)))) eta-0)) clam-0)) (else (vector 1 (vector 3 e-2 u--w))))))))))) -(define IdrisC-45REPL-case--caseC-32blockC-32inC-32processEdit-6709 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (IdrisC-45REPL-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32processEdit-6739 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-2 (ParserC-45Unlit-isLitLine arg-9)))) (else (lambda (eta-0) (vector 1 (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unsafeTextWithoutNewLines eta-1)) (DataC-45List1-forget (LibrariesC-45DataC-45StringC-45Extra-lines (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-case--pretty-5531 "Invalid literate Idris" (DataC-45String-isSuffixOf "\u000a" "Invalid literate Idris")))))))))))))) -(define IdrisC-45REPL-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32processEdit-6481 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (let ((e-2 (car sc0))) (let ((u--c (DataC-45List1-forget (LibrariesC-45DataC-45StringC-45Extra-lines (IdrisC-45IDEModeC-45MakeClause-makeCase arg-10 arg-0 arg-13))))) (lambda (clam-0) (let ((sc1 arg-2)) (cond ((equal? sc1 0) (IdrisC-45REPL-updateFile arg-3 (lambda (eta-0) (IdrisC-45REPL-addMadeCase e-2 u--c (PreludeC-45Types-u--max_Ord_Nat (PreludeC-45Types-u--fromInteger_Num_Nat 0) (PreludeC-45Types-prim__integerToNat (PreludeC-45Cast-u--cast_Cast_Int_Integer (PreludeC-45Num-u--C-45_Neg_Int arg-1 1)))) eta-0)) clam-0)) (else (vector 1 (vector 4 e-2 u--c))))))))))) -(define IdrisC-45REPL-case--caseC-32blockC-32inC-32processEdit-6447 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (IdrisC-45REPL-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32processEdit-6481 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-2 (ParserC-45Unlit-isLitLine arg-11)))) (else (lambda (eta-0) (vector 1 (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unsafeTextWithoutNewLines eta-1)) (DataC-45List1-forget (LibrariesC-45DataC-45StringC-45Extra-lines (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-case--pretty-5531 "Invalid literate Idris" (DataC-45String-isSuffixOf "\u000a" "Invalid literate Idris")))))))))))))) -(define IdrisC-45REPL-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32processEdit-6107 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26) (let ((sc0 arg-26)) (let ((e-2 (car sc0))) (lambda (clam-0) (let ((sc1 arg-2)) (cond ((equal? sc1 0) (IdrisC-45REPL-updateFile arg-3 (lambda (eta-0) (IdrisC-45REPL-addMadeLemma e-2 arg-0 (IdrisC-45Syntax-u--show_Show_PTerm arg-20) arg-23 (PreludeC-45Types-u--max_Ord_Nat (PreludeC-45Types-u--fromInteger_Num_Nat 0) (PreludeC-45Types-prim__integerToNat (PreludeC-45Cast-u--cast_Cast_Int_Integer (PreludeC-45Num-u--C-45_Neg_Int arg-1 1)))) eta-0)) clam-0)) (else (vector 1 (vector 2 e-2 arg-0 arg-20 arg-23)))))))))) -(define IdrisC-45REPL-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32processEdit-5705 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 ext-0) (let ((sc0 arg-12)) (let ((e-2 (car sc0))) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (IdrisC-45REPL-printClause arg-4 arg-2 e-2 arg-9 eta-0 eta-1))) arg-7 '() ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (PreludeC-45Types-u--map_Functor_List eta-2 eta-3))))) (lambda (eta-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String eta-0)) e-5))))))))))))) -(define IdrisC-45REPL-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32processEdit-5161 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 ext-0) (let ((sc0 arg-25)) (let ((e-2 (car sc0))) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (IdrisC-45REPL-printClause arg-8 arg-6 e-2 arg-22 eta-0 eta-1))) arg-20 '() ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 arg-3)) (cond ((equal? sc2 0) (IdrisC-45REPL-updateFile arg-4 (lambda (eta-0) (IdrisC-45REPL-addClause (LibrariesC-45DataC-45StringC-45Extra-unlines e-5) (PreludeC-45Types-prim__integerToNat (PreludeC-45Cast-u--cast_Cast_Int_Integer arg-2)) eta-0)) ext-0)) (else (vector 1 (vector 0 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (PreludeC-45Types-u--map_Functor_List eta-2 eta-3))))) (lambda (eta-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String eta-0)) e-5)))))))))))))))) -(define IdrisC-45REPL-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32processEdit-4317 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 ext-0) (let ((sc0 arg-21)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-3)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (let ((act-24 (IdrisC-45Resugar-resugar e-2 arg-8 arg-6 e-6 e-7 ext-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((u--itmC-39 (let ((sc3 arg-11)) (cond ((equal? sc3 0) (IdrisC-45Resugar-addBracket (IdrisC-45REPLC-45Opts-replFC) e-5)) (else e-5))))) (let ((sc3 arg-3)) (cond ((equal? sc3 0) (IdrisC-45REPL-updateFile arg-4 (lambda (eta-0) (IdrisC-45REPL-proofSearch arg-1 (IdrisC-45Syntax-u--show_Show_PTerm u--itmC-39) (PreludeC-45Types-prim__integerToNat (PreludeC-45Cast-u--cast_Cast_Int_Integer (PreludeC-45Num-u--C-45_Neg_Int arg-2 1))) eta-0)) ext-0)) (else (vector 1 (vector 0 (IdrisC-45REPL-prettyTerm u--itmC-39)))))))))))))))))))) -(define IdrisC-45REPL-case--caseC-32blockC-32inC-32processEdit-4222 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unsafeTextWithoutNewLines eta-1)) (DataC-45List1-forget (LibrariesC-45DataC-45StringC-45Extra-lines (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-case--pretty-5531 "Not a searchable hole" (DataC-45String-isSuffixOf "\u000a" "Not a searchable hole")))))))))) (else (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (IdrisC-45REPL-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32processEdit-4317 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 e-0 (IdrisC-45REPL-dropLamsTm '() e-0 '() arg-17) eta-0)))))))) -(define IdrisC-45REPL-case--processEdit-3342 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 ext-0) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (CoreC-45FC-within (cons (PreludeC-45Num-u--C-45_Neg_Int arg-2 1) (PreludeC-45Num-u--C-45_Neg_Int arg-1 1)) ext-0)) (else (CoreC-45FC-onLine (PreludeC-45Num-u--C-45_Neg_Int arg-2 1) ext-0)))))) -(define IdrisC-45REPL-case--processEdit-3123 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((1) (let ((e-10 (vector-ref sc1 1))) (let ((sc2 e-10)) (if (null? sc2) (lambda (clam-1) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((1) (let ((e-5 (vector-ref sc3 1))) (let ((sc4 e-3)) (vector 1 (vector 0 e-5))))) (else (let ((sc4 e-3)) (CoreC-45Context-undefinedName arg-7 (IdrisC-45REPLC-45Opts-replFC) arg-10 clam-1)))))) (let ((e-13 (car sc2))) (let ((e-14 (cdr sc2))) (let ((sc3 e-14)) (if (null? sc3) (lambda (clam-0) (let ((sc4 e-2)) (case (vector-ref sc4 0) ((1) (let ((e-5 (vector-ref sc4 1))) (let ((sc5 e-3)) (vector 1 (vector 0 e-5))))) (else (let ((sc5 e-3)) (CoreC-45Context-undefinedName arg-7 (IdrisC-45REPLC-45Opts-replFC) arg-10 clam-0)))))) (let ((e-18 (cdr sc3))) (lambda (eta-0) (let ((act-24 (IdrisC-45REPL-displayTerm arg-7 arg-5 arg-8 e-18 eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc4 1))) (vector 1 (vector 0 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String (CoreC-45Name-nameRoot e-13)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon) e-5)))))))))))))))))))(else (lambda (clam-2) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-3)) (vector 1 (vector 0 e-5))))) (else (let ((sc2 e-3)) (CoreC-45Context-undefinedName arg-7 (IdrisC-45REPLC-45Opts-replFC) arg-10 clam-2)))))))))))))) -(define IdrisC-45REPL-case--nextGenDef-2641 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-5 (car sc1))) (let ((e-6 (cdr sc1))) (let ((act-24 (TTImpC-45InteractiveC-45ExprSearch-nextResult arg-3 arg-2 e-6 ext-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((1) (let ((e-2 (vector-ref sc3 1))) (let ((sc4 e-2)) (let ((e-9 (car sc4))) (let ((e-8 (cdr sc4))) (let ((act-25 (let ((act-25 (set-box! arg-1 (let ((sc5 arg-4)) (let ((e-0 (vector-ref sc5 1))) (let ((e-22 (vector-ref sc5 2))) (let ((e-21 (vector-ref sc5 3))) (let ((e-3 (vector-ref sc5 4))) (let ((e-4 (vector-ref sc5 5))) (let ((e-20 (vector-ref sc5 6))) (let ((e-19 (vector-ref sc5 7))) (let ((e-18 (vector-ref sc5 8))) (let ((e-17 (vector-ref sc5 9))) (let ((e-16 (vector-ref sc5 10))) (let ((e-11 (vector-ref sc5 12))) (let ((e-12 (vector-ref sc5 13))) (let ((e-13 (vector-ref sc5 14))) (let ((e-14 (vector-ref sc5 15))) (let ((e-15 (vector-ref sc5 16))) (vector 0 e-0 e-22 e-21 e-3 e-4 e-20 e-19 e-18 e-17 e-16 (vector 1 (cons e-5 e-8)) e-11 e-12 e-13 e-14 e-15)))))))))))))))))))) (vector 1 act-25)))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((sc6 arg-0)) (cond ((equal? sc6 0) (vector 1 (vector 1 (cons e-5 e-9))))(else (let ((e-0 (- arg-0 1))) (IdrisC-45REPL-nextGenDef arg-3 arg-2 arg-1 e-0 ext-0)))))))))))))) (else (let ((act-25 (let ((act-25 (set-box! arg-1 (let ((sc4 arg-4)) (let ((e-0 (vector-ref sc4 1))) (let ((e-19 (vector-ref sc4 2))) (let ((e-2 (vector-ref sc4 3))) (let ((e-3 (vector-ref sc4 4))) (let ((e-4 (vector-ref sc4 5))) (let ((e-18 (vector-ref sc4 6))) (let ((e-17 (vector-ref sc4 7))) (let ((e-16 (vector-ref sc4 8))) (let ((e-8 (vector-ref sc4 9))) (let ((e-9 (vector-ref sc4 10))) (let ((e-11 (vector-ref sc4 12))) (let ((e-12 (vector-ref sc4 13))) (let ((e-13 (vector-ref sc4 14))) (let ((e-14 (vector-ref sc4 15))) (let ((e-15 (vector-ref sc4 16))) (vector 0 e-0 e-19 e-2 e-3 e-4 e-18 e-17 e-16 e-8 e-9 (vector 0 ) e-11 e-12 e-13 e-14 e-15)))))))))))))))))))) (vector 1 act-25)))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (vector 1 (vector 0 ))))))))))))))))))) (else (vector 1 (vector 0 ))))))) -(define IdrisC-45REPL-case--nextProofSearch-2453 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-5 (car sc1))) (let ((e-6 (cdr sc1))) (let ((act-24 (TTImpC-45InteractiveC-45ExprSearch-nextResult arg-2 arg-1 e-6 ext-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((1) (let ((e-2 (vector-ref sc3 1))) (let ((sc4 e-2)) (let ((e-9 (car sc4))) (let ((e-8 (cdr sc4))) (let ((act-25 (let ((act-25 (set-box! arg-0 (let ((sc5 arg-3)) (let ((e-0 (vector-ref sc5 1))) (let ((e-22 (vector-ref sc5 2))) (let ((e-21 (vector-ref sc5 3))) (let ((e-3 (vector-ref sc5 4))) (let ((e-4 (vector-ref sc5 5))) (let ((e-20 (vector-ref sc5 6))) (let ((e-19 (vector-ref sc5 7))) (let ((e-18 (vector-ref sc5 8))) (let ((e-17 (vector-ref sc5 9))) (let ((e-10 (vector-ref sc5 11))) (let ((e-11 (vector-ref sc5 12))) (let ((e-12 (vector-ref sc5 13))) (let ((e-13 (vector-ref sc5 14))) (let ((e-14 (vector-ref sc5 15))) (let ((e-15 (vector-ref sc5 16))) (vector 0 e-0 e-22 e-21 e-3 e-4 e-20 e-19 e-18 e-17 (vector 1 (cons e-5 e-8)) e-10 e-11 e-12 e-13 e-14 e-15)))))))))))))))))))) (vector 1 act-25)))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (vector 1 (vector 1 (cons e-5 e-9)))))))))))) (else (let ((act-25 (let ((act-25 (set-box! arg-0 (let ((sc4 arg-3)) (let ((e-0 (vector-ref sc4 1))) (let ((e-19 (vector-ref sc4 2))) (let ((e-2 (vector-ref sc4 3))) (let ((e-3 (vector-ref sc4 4))) (let ((e-4 (vector-ref sc4 5))) (let ((e-18 (vector-ref sc4 6))) (let ((e-17 (vector-ref sc4 7))) (let ((e-16 (vector-ref sc4 8))) (let ((e-8 (vector-ref sc4 9))) (let ((e-10 (vector-ref sc4 11))) (let ((e-11 (vector-ref sc4 12))) (let ((e-12 (vector-ref sc4 13))) (let ((e-13 (vector-ref sc4 14))) (let ((e-14 (vector-ref sc4 15))) (let ((e-15 (vector-ref sc4 16))) (vector 0 e-0 e-19 e-2 e-3 e-4 e-18 e-17 e-16 e-8 (vector 0 ) e-10 e-11 e-12 e-13 e-14 e-15)))))))))))))))))))) (vector 1 act-25)))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (vector 1 (vector 0 ))))))))))))))))))) (else (vector 1 (vector 0 ))))))) -(define IdrisC-45REPL-case--addMadeLemmaC-44insertInBlank-2313 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (cons (PreludeC-45TypesC-45String-C-43C-43 "\u000a" (ParserC-45Unlit-relit arg-8 (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name arg-4) (PreludeC-45TypesC-45String-C-43C-43 " : " (PreludeC-45TypesC-45String-C-43C-43 arg-3 "\u000a"))))) arg-7)) (else (cons arg-6 (IdrisC-45REPL-n--30076-2282-u--insertInBlank arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-8 arg-7))))))) -(define IdrisC-45REPL-case--proofSearchC-44replaceStr-2222 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (PreludeC-45TypesC-45String-C-43C-43 arg-5 (PreludeC-45Types-fastPack (DataC-45List-drop (PreludeC-45TypesC-45String-length arg-6) (PreludeC-45Types-fastUnpack arg-4))))) (else (PreludeC-45Types-strCons (string-ref arg-4 0) (IdrisC-45REPL-n--29995-2211-u--replaceStr arg-0 arg-1 arg-2 arg-3 arg-6 arg-5 (substring arg-4 1 (string-length arg-4))))))))) -(define IdrisC-45REPL-case--addClause-2144 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (cons (IdrisC-45REPL-rtrim arg-2) (cons arg-0 arg-1))) (else (cons arg-0 (IdrisC-45REPL-addClause arg-2 0 arg-1))))))) -(define IdrisC-45REPL-case--updateFile-2030 (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((act-24 (let ((act-24 ((SystemC-45File-readFile (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-0)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-0) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (let ((act-17 (arg-578 eta-0))) (let ((act-16 (arg-580 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (let ((act-24 (arg-876 eta-0))) ((arg-877 act-24) eta-0))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-0) (let ((act-51 (arg-879 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) e-1) ext-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (let ((act-25 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc3 eta-0)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (vector 1 (vector 0 )))))) (lambda (eta-0) (let ((act-25 ((SystemC-45File-writeFile (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-1)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-1) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-1) (let ((act-17 (arg-578 eta-1))) (let ((act-16 (arg-580 eta-1))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-1) (let ((act-25 (arg-876 eta-1))) ((arg-877 act-25) eta-1))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-1) (let ((act-51 (arg-879 eta-1))) (act-51 eta-1)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) (PreludeC-45TypesC-45String-C-43C-43 e-1 "~") e-2) eta-0))) (vector 1 act-25))) ext-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((act-26 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc4 eta-0)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (vector 1 (vector 0 )))))) (lambda (eta-0) (let ((act-26 ((SystemC-45File-writeFile (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-1)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-1) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-1) (let ((act-17 (arg-578 eta-1))) (let ((act-16 (arg-580 eta-1))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-1) (let ((act-26 (arg-876 eta-1))) ((arg-877 act-26) eta-1))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-1) (let ((act-51 (arg-879 eta-1))) (act-51 eta-1)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) e-1 (LibrariesC-45DataC-45StringC-45Extra-unlines (arg-0 (DataC-45List1-forget (LibrariesC-45DataC-45StringC-45Extra-lines e-2))))) eta-0))) (vector 1 act-26))) ext-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (vector 1 (vector 0 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-emptyDoc))))))))))))) (else (let ((e-6 (vector-ref sc2 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 49 e-1 e-6) ext-0)))))))))))) (else (vector 1 (vector 0 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-emptyDoc)))))))) -(define IdrisC-45REPL-case--findCG-1751 (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 1 (CompilerC-45SchemeC-45Chez-codegenChez))) ((1) (vector 1 (CompilerC-45SchemeC-45Racket-codegenRacket))) ((2) (vector 1 (CompilerC-45SchemeC-45Gambit-codegenGambit))) ((3) (vector 1 (CompilerC-45ESC-45Node-codegenNode))) ((4) (vector 1 (CompilerC-45ESC-45Javascript-codegenJavascript))) ((5) (vector 1 (CompilerC-45RefCC-45RefC-codegenRefC))) (else (let ((e-0 (vector-ref sc0 1))) (let ((act-24 (IdrisC-45REPLC-45Opts-getCodegen arg-1 e-0 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (vector 1 e-1))) (else (let ((act-25 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc3 eta-0)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))) (lambda (eta-0) (let ((act-25 ((PreludeC-45IO-putStrLn (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-1)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-1) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-1) (let ((act-17 (arg-578 eta-1))) (let ((act-16 (arg-580 eta-1))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-1) (let ((act-25 (arg-876 eta-1))) ((arg-877 act-25) eta-1))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-1) (let ((act-51 (arg-879 eta-1))) (act-51 eta-1)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) (PreludeC-45TypesC-45String-C-43C-43 "No such code generator: " e-0)) eta-0))) (vector 1 act-25))) ext-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-26 ((System-exitWith (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-0)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-0) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (let ((act-17 (arg-578 eta-0))) (let ((act-16 (arg-580 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (let ((act-26 (arg-876 eta-0))) ((arg-877 act-26) eta-0))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-0) (let ((act-51 (arg-879 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) (cons 1 (vector 0 ))) ext-0))) (vector 1 act-26)))))))))))))))))))) -(define IdrisC-45REPL-case--setOpt-1642 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (CoreC-45Context-setCG arg-2 e-1 ext-0))) (else (IdrisC-45REPLC-45Common-iputStrLn arg-1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "No such code generator available") ext-0)))))) -(define IdrisC-45REPL-case--displayPats-1382 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (let ((e-4 (vector-ref sc0 5))) (let ((act-24 ((IdrisC-45REPL-displayType arg-5 arg-4 arg-3 (cons arg-0 (cons arg-1 arg-2))) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (eta-0) (IdrisC-45REPL-displayClause arg-5 arg-4 arg-3 eta-0)) e-4 '() ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (cons e-5 e-6)))))))))))))))(else (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (CoreC-45Name-u--pretty_Pretty_Name arg-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "is not a pattern matching definition")))))))) -(define IdrisC-45REPL-n--36310-9349-u--toPaths (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (LibrariesC-45SystemC-45DirectoryC-45Tree-depthFirst (lambda (root-9363) (lambda (u--x) (lambda (eta-0) (lambda (eta-4) (PreludeC-45IO-u--map_Functor_IO (lambda (arg-8) (cons (LibrariesC-45SystemC-45DirectoryC-45Tree-toFilePath root-9363 u--x) arg-8)) (eta-0) eta-4))))) arg-6 arg-7 (lambda (eta-0) '())))) -(define IdrisC-45REPL-n--29995-2211-u--replaceStr (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 "") "")(else (IdrisC-45REPL-case--proofSearchC-44replaceStr-2222 arg-0 arg-1 arg-2 arg-3 arg-6 arg-5 arg-4 (DataC-45String-isPrefixOf arg-4 arg-6))))))) -(define IdrisC-45REPL-n--38676-9883-u--prompt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) "[tc] ") ((1) "") (else "[exec] "))))) -(define IdrisC-45REPL-n--30824-2939-u--match (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-3 (cdr sc0))) (PreludeC-45Basics-C-38C-38 (CoreC-45Name-matches arg-1 e-3) (lambda () (PreludeC-45Types-u--C-61C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-61C-61_Eq_String arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_String arg-4 arg-5)))) (CoreC-45Name-userNameRoot e-3) (CoreC-45Name-userNameRoot arg-1)))))))) -(define IdrisC-45REPL-n--38696-10626-u--makeSpace (lambda (arg-0) (PreludeC-45Types-fastPack (PreludeC-45Types-take arg-0 (DataC-45Stream-repeat #\ ))))) -(define IdrisC-45REPL-n--30076-2282-u--insertInBlank (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (if (null? sc0) (cons (ParserC-45Unlit-relit arg-6 (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name arg-4) (PreludeC-45TypesC-45String-C-43C-43 " : " (PreludeC-45TypesC-45String-C-43C-43 arg-3 "\u000a")))) '()) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (IdrisC-45REPL-case--addMadeLemmaC-44insertInBlank-2313 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2 e-3 arg-6 (PreludeC-45EqOrd-u--C-61C-61_Eq_String (DataC-45String-trim e-2) "")))))))) -(define IdrisC-45REPL-n--35705-7116-u--execDecl (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 ((IdrisC-45Desugar-desugarDecl arg-3 arg-5 arg-4 arg-2 '() arg-6) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (CoreC-45Context-resolveName arg-5 (vector 1 "[defs]") ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (CoreC-45Core-newRef (vector "TTImp.Elab.Check.EST" ) (TTImpC-45ElabC-45Check-initEStateSub '() e-6 '() (vector 0 )) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (IdrisC-45REPL-getItDecls arg-1 ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (IdrisC-45REPL-processLocal '() arg-5 arg-2 arg-4 e-7 '() '() '() e-8 e-5 ext-0))))))))))))))))))))))) -(define IdrisC-45REPL-n--36217-7575-u--elabMode (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (vector 0 ))(else (vector 2 )))))) -(define IdrisC-45REPL-n--38696-10627-u--col (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (PreludeC-45TypesC-45String-C-43C-43 arg-2 (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45REPL-n--38696-10626-u--makeSpace (PreludeC-45Types-minus arg-0 (PreludeC-45TypesC-45String-length arg-2))) (PreludeC-45TypesC-45String-C-43C-43 arg-3 (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45REPL-n--38696-10626-u--makeSpace (PreludeC-45Types-minus arg-1 (PreludeC-45TypesC-45String-length arg-3))) arg-4)))))) -(define IdrisC-45REPL-n--30824-2938-u--cmp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (let ((sc2 e-3)) (let ((e-10 (car sc2))) (let ((e-11 (cdr sc2))) (let ((sc3 arg-4)) (let ((e-14 (car sc3))) (let ((e-15 (cdr sc3))) (let ((sc4 e-14)) (let ((e-18 (car sc4))) (let ((e-19 (cdr sc4))) (let ((sc5 e-15)) (let ((e-22 (car sc5))) (let ((e-23 (cdr sc5))) (PreludeC-45EqOrd-u--compare_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector 0 (cons (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-5 arg-6)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Int arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Int arg-383 arg-384)))) (vector 0 (cons (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-5 arg-6)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Int arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Int arg-383 arg-384)))) (cons (PreludeC-45Num-u--C-45_Neg_Int e-10 e-6) (PreludeC-45Num-u--C-45_Neg_Int e-11 e-7)) (cons (PreludeC-45Num-u--C-45_Neg_Int e-22 e-18) (PreludeC-45Num-u--C-45_Neg_Int e-23 e-19))))))))))))))))))))))) -(define IdrisC-45REPL-n--38696-10628-u--cmdInfo (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-3)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (PreludeC-45TypesC-45String-C-43C-43 " " (IdrisC-45REPL-n--38696-10627-u--col (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))))))))))) (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))))))))))))) (CoreC-45NameC-45Namespace-showSep " " e-2) (IdrisC-45Parser-u--show_Show_CmdArg e-6) e-7)))))))))) -(define IdrisC-45REPL-n--30207-2399-u--addW (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (let ((sc1 arg-6)) (if (null? sc1) '() (let ((e-3 (cdr sc1))) (PreludeC-45TypesC-45List-C-43C-43 (DataC-45List-reverse arg-5) (PreludeC-45TypesC-45List-C-43C-43 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (ParserC-45Unlit-relit arg-3 eta-0)) arg-2) e-3))))))(else (let ((e-0 (- arg-4 1))) (let ((sc0 arg-6)) (if (null? sc0) (DataC-45List-reverse arg-5) (let ((e-6 (car sc0))) (let ((e-7 (cdr sc0))) (IdrisC-45REPL-n--30207-2399-u--addW arg-0 arg-1 arg-2 arg-3 e-0 (cons e-6 arg-5) e-7))))))))))) -(define IdrisC-45REPL-n--30076-2283-u--addApp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (PreludeC-45TypesC-45List-C-43C-43 (DataC-45List-reverse (IdrisC-45REPL-n--30076-2282-u--insertInBlank arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-8)) arg-9))(else (let ((e-0 (- arg-7 1))) (let ((sc0 arg-9)) (if (null? sc0) (DataC-45List-reverse arg-8) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (IdrisC-45REPL-n--30076-2283-u--addApp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-0 (cons e-2 arg-8) e-3))))))))))) -(define IdrisC-45REPL-updateFile (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (IdrisC-45REPL-case--updateFile-2030 arg-1 arg-0 e-5 (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 3))) e-2)) ext-0)))))))) -(define IdrisC-45REPL-showInfo (lambda (arg-0 arg-1 ext-0) (let ((sc0 arg-1)) (let ((e-3 (cdr sc0))) (let ((sc1 e-3)) (let ((e-7 (cdr sc1))) (let ((act-24 (let ((act-24 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Def arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Def arg-3812 arg-3813 eta-0))))) (let ((sc2 e-7)) (let ((e-17 (vector-ref sc2 18))) e-17)) ext-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc3 eta-0)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (vector 1 (vector 0 )))))) (lambda (eta-0) (let ((act-25 ((PreludeC-45IO-putStrLn (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-1)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-1) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-1) (let ((act-17 (arg-578 eta-1))) (let ((act-16 (arg-580 eta-1))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-1) (let ((act-25 (arg-876 eta-1))) ((arg-877 act-25) eta-1))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-1) (let ((act-51 (arg-879 eta-1))) (act-51 eta-1)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name (let ((sc3 e-7)) (let ((e-1 (vector-ref sc3 2))) e-1))) (PreludeC-45TypesC-45String-C-43C-43 " ==> " (CoreC-45Context-u--show_Show_Def e-5)))) eta-0))) (vector 1 act-25))) ext-0)))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((act-25 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc3 eta-0)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (vector 1 (vector 0 )))))) (lambda (eta-0) (let ((act-25 ((PreludeC-45IO-putStrLn (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-1)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-1) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-1) (let ((act-17 (arg-578 eta-1))) (let ((act-16 (arg-580 eta-1))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-1) (let ((act-25 (arg-876 eta-1))) ((arg-877 act-25) eta-1))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-1) (let ((act-51 (arg-879 eta-1))) (act-51 eta-1)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) (AlgebraC-45ZeroOneOmega-u--show_Show_ZeroOneOmega (let ((sc3 e-7)) (let ((e-21 (vector-ref sc3 8))) e-21)))) eta-0))) (vector 1 act-25))) ext-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((act-26 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc4 eta-0)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (vector 1 (vector 0 )))))) (lambda (eta-0) (let ((act-26 ((PreludeC-45IO-putStrLn (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-1)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-1) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-1) (let ((act-17 (arg-578 eta-1))) (let ((act-16 (arg-580 eta-1))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-1) (let ((act-26 (arg-876 eta-1))) ((arg-877 act-26) eta-1))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-1) (let ((act-51 (arg-879 eta-1))) (act-51 eta-1)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) (PreludeC-45TypesC-45String-C-43C-43 "Erasable args: " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_Nat u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_Nat u--d u--x)))) (let ((sc4 e-7)) (let ((e-25 (vector-ref sc4 4))) e-25))))) eta-0))) (vector 1 act-26))) ext-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((act-27 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc5 eta-0)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (vector 1 (vector 0 )))))) (lambda (eta-0) (let ((act-27 ((PreludeC-45IO-putStrLn (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-1)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-1) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-1) (let ((act-17 (arg-578 eta-1))) (let ((act-16 (arg-580 eta-1))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-1) (let ((act-27 (arg-876 eta-1))) ((arg-877 act-27) eta-1))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-1) (let ((act-51 (arg-879 eta-1))) (act-51 eta-1)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) (PreludeC-45TypesC-45String-C-43C-43 "Detaggable arg types: " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_Nat u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_Nat u--d u--x)))) (let ((sc5 e-7)) (let ((e-4 (vector-ref sc5 5))) e-4))))) eta-0))) (vector 1 act-27))) ext-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((act-28 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc6 eta-0)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (vector 1 (vector 0 )))))) (lambda (eta-0) (let ((act-28 ((PreludeC-45IO-putStrLn (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-1)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-1) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-1) (let ((act-17 (arg-578 eta-1))) (let ((act-16 (arg-580 eta-1))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-1) (let ((act-28 (arg-876 eta-1))) ((arg-877 act-28) eta-1))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-1) (let ((act-51 (arg-879 eta-1))) (act-51 eta-1)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) (PreludeC-45TypesC-45String-C-43C-43 "Specialise args: " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_Nat u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_Nat u--d u--x)))) (let ((sc6 e-7)) (let ((e-26 (vector-ref sc6 6))) e-26))))) eta-0))) (vector 1 act-28))) ext-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((act-29 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc7 eta-0)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (vector 1 (vector 0 )))))) (lambda (eta-0) (let ((act-29 ((PreludeC-45IO-putStrLn (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-1)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-1) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-1) (let ((act-17 (arg-578 eta-1))) (let ((act-16 (arg-580 eta-1))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-1) (let ((act-29 (arg-876 eta-1))) ((arg-877 act-29) eta-1))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-1) (let ((act-51 (arg-879 eta-1))) (act-51 eta-1)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) (PreludeC-45TypesC-45String-C-43C-43 "Inferrable args: " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_Nat u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_Nat u--d u--x)))) (let ((sc7 e-7)) (let ((e-26 (vector-ref sc7 7))) e-26))))) eta-0))) (vector 1 act-29))) ext-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((act-30 (let ((sc8 e-7)) (let ((e-18 (vector-ref sc8 19))) (let ((sc9 e-18)) (case (vector-ref sc9 0) ((1) (let ((e-31 (vector-ref sc9 1))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc10 eta-0)) (case (vector-ref sc10 0) ((0) (let ((e-32 (vector-ref sc10 1))) (vector 0 e-32))) (else (vector 1 (vector 0 )))))) (lambda (eta-0) (let ((act-30 ((PreludeC-45IO-putStrLn (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-1)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-1) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-1) (let ((act-17 (arg-578 eta-1))) (let ((act-16 (arg-580 eta-1))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-1) (let ((act-30 (arg-876 eta-1))) ((arg-877 act-30) eta-1))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-1) (let ((act-51 (arg-879 eta-1))) (act-51 eta-1)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) (PreludeC-45TypesC-45String-C-43C-43 "Compiled: " (CoreC-45CompileExpr-u--show_Show_CDef e-31))) eta-0))) (vector 1 act-30))) ext-0))) (else (vector 1 (vector 0 ))))))))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((act-31 (let ((act-31 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (CoreC-45Context-getFullName arg-0 eta-0 eta-1))) (LibrariesC-45DataC-45NameMap-keys (CoreC-45Context-refersTo e-7)) '() ext-0))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-14 (vector-ref sc9 1))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc10 eta-0)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (vector 1 (vector 0 )))))) (lambda (eta-0) (let ((act-32 ((PreludeC-45IO-putStrLn (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-1)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-1) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-1) (let ((act-17 (arg-578 eta-1))) (let ((act-16 (arg-580 eta-1))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-1) (let ((act-32 (arg-876 eta-1))) ((arg-877 act-32) eta-1))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-1) (let ((act-51 (arg-879 eta-1))) (act-51 eta-1)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) (PreludeC-45TypesC-45String-C-43C-43 "Refers to: " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45Name-u--show_Show_Name u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Name-u--showPrec_Show_Name u--d u--x)))) e-14))) eta-0))) (vector 1 act-32))) ext-0)))))))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((act-32 (let ((act-32 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (CoreC-45Context-getFullName arg-0 eta-0 eta-1))) (LibrariesC-45DataC-45NameMap-keys (CoreC-45Context-refersToRuntime e-7)) '() ext-0))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-15 (vector-ref sc10 1))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc11 eta-0)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (vector 1 (vector 0 )))))) (lambda (eta-0) (let ((act-33 ((PreludeC-45IO-putStrLn (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-1)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-1) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-1) (let ((act-17 (arg-578 eta-1))) (let ((act-16 (arg-580 eta-1))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-1) (let ((act-33 (arg-876 eta-1))) ((arg-877 act-33) eta-1))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-1) (let ((act-51 (arg-879 eta-1))) (act-51 eta-1)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) (PreludeC-45TypesC-45String-C-43C-43 "Refers to (runtime): " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45Name-u--show_Show_Name u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Name-u--showPrec_Show_Name u--d u--x)))) e-15))) eta-0))) (vector 1 act-33))) ext-0)))))))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((act-33 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc11 eta-0)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (vector 1 (vector 0 )))))) (lambda (eta-0) (let ((act-33 ((PreludeC-45IO-putStrLn (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-1)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-1) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-1) (let ((act-17 (arg-578 eta-1))) (let ((act-16 (arg-580 eta-1))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-1) (let ((act-33 (arg-876 eta-1))) ((arg-877 act-33) eta-1))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-1) (let ((act-51 (arg-879 eta-1))) (act-51 eta-1)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) (PreludeC-45TypesC-45String-C-43C-43 "Flags: " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45Context-u--show_Show_DefFlag u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Context-u--showPrec_Show_DefFlag u--d u--x)))) (let ((sc11 e-7)) (let ((e-25 (vector-ref sc11 12))) e-25))))) eta-0))) (vector 1 act-33))) ext-0))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((act-34 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-2) (CoreC-45Context-u--full_HasNames_SCCall arg-3810 arg-3811 eta-2)))) (lambda (arg-3812) (lambda (arg-3813) (lambda (eta-2) (CoreC-45Context-u--resolved_HasNames_SCCall arg-3812 arg-3813 eta-2))))) eta-0 eta-1))) (let ((sc12 e-7)) (let ((e-20 (vector-ref sc12 21))) e-20)) '() ext-0))) (let ((sc12 act-34)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (let ((e-17 (vector-ref sc12 1))) (let ((sc13 (DataC-45List-isNil (let ((sc14 e-7)) (let ((e-20 (vector-ref sc14 21))) e-20))))) (cond ((equal? sc13 0) (vector 1 (vector 0 ))) (else (((let ((u--scinfo (PreludeC-45Types-u--map_Functor_List (lambda (u--s) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name (let ((sc14 u--s)) (let ((e-0 (car sc14))) e-0))) (PreludeC-45TypesC-45String-C-43C-43 ": " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_Nat x-1)) (lambda (u--d) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_Nat u--d x-1)))) (cons (lambda (x-1) (CoreC-45Context-u--show_Show_SizeChange x-1)) (lambda (u--d) (lambda (x-1) (CoreC-45Context-u--showPrec_Show_SizeChange u--d x-1))))) x-0)) (lambda (u--d) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_Nat x-1)) (lambda (d-0) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_Nat d-0 x-1)))) (cons (lambda (x-1) (CoreC-45Context-u--show_Show_SizeChange x-1)) (lambda (d-0) (lambda (x-1) (CoreC-45Context-u--showPrec_Show_SizeChange d-0 x-1))))) u--d x-0)))) u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_Nat x-1)) (lambda (d-0) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_Nat d-0 x-1)))) (cons (lambda (x-1) (CoreC-45Context-u--show_Show_SizeChange x-1)) (lambda (d-0) (lambda (x-1) (CoreC-45Context-u--showPrec_Show_SizeChange d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_Nat x-1)) (lambda (d-1) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_Nat d-1 x-1)))) (cons (lambda (x-1) (CoreC-45Context-u--show_Show_SizeChange x-1)) (lambda (d-1) (lambda (x-1) (CoreC-45Context-u--showPrec_Show_SizeChange d-1 x-1))))) d-0 x-0)))) u--d u--x)))) (let ((sc14 u--s)) (let ((e-1 (cdr sc14))) e-1)))))) e-17))) (lambda () (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (let ((sc14 eta-1)) (case (vector-ref sc14 0) ((0) (let ((e-4 (vector-ref sc14 1))) (vector 0 e-4))) (else (vector 1 (vector 0 )))))) (lambda (eta-1) (let ((act-35 ((PreludeC-45IO-putStrLn (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-2) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-2)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-2) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-2) (let ((act-17 (arg-578 eta-2))) (let ((act-16 (arg-580 eta-2))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-2) (let ((act-35 (arg-876 eta-2))) ((arg-877 act-35) eta-2))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-2) (let ((act-51 (arg-879 eta-2))) (act-51 eta-2)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) (PreludeC-45TypesC-45String-C-43C-43 "Size change: " (CoreC-45NameC-45Namespace-showSep ", " u--scinfo))) eta-1))) (vector 1 act-35))) eta-0))))) ext-0))))))))))))))))))))))))))))))))))))))))))))))))))))))) -(define IdrisC-45REPL-setOpt (lambda (arg-0 arg-1 arg-2 ext-0) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((act-24 (CoreC-45Context-getPPrint arg-0 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (CoreC-45Context-setPPrint arg-0 (let ((sc2 e-5)) (let ((e-1 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (vector 0 e-0 e-1 e-2)))) ext-0)))))))) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((act-24 (CoreC-45Context-getPPrint arg-0 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (CoreC-45Context-setPPrint arg-0 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (vector 0 e-0 e-3 e-1)))) ext-0)))))))) ((2) (let ((e-2 (vector-ref sc0 1))) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (set-box! arg-1 (let ((sc2 e-5)) (let ((e-1 (vector-ref sc2 2))) (let ((e-17 (vector-ref sc2 3))) (let ((e-3 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-16 (vector-ref sc2 6))) (let ((e-6 (vector-ref sc2 7))) (let ((e-7 (vector-ref sc2 8))) (let ((e-8 (vector-ref sc2 9))) (let ((e-9 (vector-ref sc2 10))) (let ((e-10 (vector-ref sc2 11))) (let ((e-11 (vector-ref sc2 12))) (let ((e-12 (vector-ref sc2 13))) (let ((e-13 (vector-ref sc2 14))) (let ((e-14 (vector-ref sc2 15))) (let ((e-15 (vector-ref sc2 16))) (vector 0 e-2 e-1 e-17 e-3 e-4 e-16 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15)))))))))))))))))))) (vector 1 act-25))))))))) ((3) (let ((e-3 (vector-ref sc0 1))) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (set-box! arg-1 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 3))) (let ((e-17 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-16 (vector-ref sc2 6))) (let ((e-6 (vector-ref sc2 7))) (let ((e-7 (vector-ref sc2 8))) (let ((e-8 (vector-ref sc2 9))) (let ((e-9 (vector-ref sc2 10))) (let ((e-10 (vector-ref sc2 11))) (let ((e-11 (vector-ref sc2 12))) (let ((e-12 (vector-ref sc2 13))) (let ((e-13 (vector-ref sc2 14))) (let ((e-14 (vector-ref sc2 15))) (let ((e-15 (vector-ref sc2 16))) (vector 0 e-0 e-3 e-2 e-17 e-4 e-16 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15)))))))))))))))))))) (vector 1 act-25))))))))) ((4) (let ((e-4 (vector-ref sc0 1))) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (set-box! arg-1 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (let ((e-3 (vector-ref sc2 4))) (let ((e-17 (vector-ref sc2 5))) (let ((e-6 (vector-ref sc2 7))) (let ((e-7 (vector-ref sc2 8))) (let ((e-8 (vector-ref sc2 9))) (let ((e-9 (vector-ref sc2 10))) (let ((e-10 (vector-ref sc2 11))) (let ((e-11 (vector-ref sc2 12))) (let ((e-12 (vector-ref sc2 13))) (let ((e-13 (vector-ref sc2 14))) (let ((e-14 (vector-ref sc2 15))) (let ((e-15 (vector-ref sc2 16))) (vector 0 e-0 e-1 e-2 e-3 e-17 e-4 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15)))))))))))))))))))) (vector 1 act-25))))))))) ((5) (let ((e-5 (vector-ref sc0 1))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (IdrisC-45REPL-case--setOpt-1642 e-5 arg-1 arg-0 e-6 (CoreC-45Options-getCG (let ((sc2 e-6)) (let ((e-4 (vector-ref sc2 5))) e-4)) e-5) ext-0)))))))) (else (let ((e-6 (vector-ref sc0 1))) (let ((act-24 (CoreC-45Context-getSession arg-0 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (CoreC-45Context-setSession arg-0 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (let ((e-3 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-16 (vector-ref sc2 6))) (let ((e-15 (vector-ref sc2 7))) (let ((e-7 (vector-ref sc2 8))) (let ((e-8 (vector-ref sc2 9))) (let ((e-9 (vector-ref sc2 10))) (let ((e-10 (vector-ref sc2 11))) (let ((e-11 (vector-ref sc2 12))) (let ((e-12 (vector-ref sc2 13))) (let ((e-13 (vector-ref sc2 14))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-16 e-15 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-6)))))))))))))))) ext-0)))))))))))) +(define IdrisC-45Resugar-addBracket (lambda (arg-0 arg-1) (let ((sc0 (IdrisC-45Resugar-n--7571-5551-u--needed arg-1 arg-0 arg-1))) (cond ((equal? sc0 1) (vector 32 arg-0 arg-1)) (else arg-1))))) +(define IdrisC-45Version-with--version-2467 (lambda (arg-0) (let ((e-2 (car arg-0))) (let ((e-3 (cdr arg-0))) (cond ((equal? e-3 "") (cons e-2 '()))(else (cons e-2 (box e-3)))))))) +(define IdrisC-45Version-version (lambda () (IdrisC-45Version-with--version-2467 (IdrisPaths-idrisVersion)))) +(define LibrariesC-45DataC-45Version-case--compare-2152 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (cond ((equal? arg-4 1) (PreludeC-45Types-u--compare_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-61C-61_Eq_String arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-47C-61_Eq_String arg-5 arg-6)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_String arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_String arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_String arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_String arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_String arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_String arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_String arg-366 arg-367)))) arg-0 arg-2))(else arg-4)))) +(define LibrariesC-45DataC-45Version-n--2770-1917-u--showTag (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (if (null? arg-3) "" (let ((e-2 (unbox arg-3))) (PreludeC-45TypesC-45String-C-43C-43 "-" e-2))))) +(define LibrariesC-45DataC-45Version-u--tokValue_TokenKind_VersionTokenKind (lambda (arg-0 arg-1) (cond ((equal? arg-0 0) arg-1) ((equal? arg-0 2) 0) ((equal? arg-0 3) 0) (else (DataC-45String-stringToNatOrZ arg-1))))) +(define LibrariesC-45DataC-45Version-u--show_Show_Version (lambda (ext-0) (LibrariesC-45DataC-45Version-showVersion 1 ext-0))) +(define LibrariesC-45DataC-45Version-u--compare_Ord_Version (lambda (arg-0 arg-1) (let ((e-0 (car arg-0))) (let ((e-1 (cdr arg-0))) (let ((e-2 (car arg-1))) (let ((e-3 (cdr arg-1))) (LibrariesC-45DataC-45Version-case--compare-2152 e-1 e-0 e-3 e-2 (PreludeC-45EqOrd-u--compare_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45Types-u--C-61C-61_Eq_Nat arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45Types-u--C-47C-61_Eq_Nat arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45Types-u--compare_Ord_Nat arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45Types-u--C-60_Ord_Nat arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45Types-u--C-62_Ord_Nat arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45Types-u--C-60C-61_Ord_Nat arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45Types-u--C-62C-61_Ord_Nat arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45Types-u--max_Ord_Nat arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45Types-u--min_Ord_Nat arg-366 arg-367)))) (vector (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (arg-4) (lambda (arg-5) (PreludeC-45Types-u--C-61C-61_Eq_Nat arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45Types-u--C-47C-61_Eq_Nat arg-4 arg-5)))) (cons (lambda (arg-4) (lambda (arg-5) (PreludeC-45Types-u--C-61C-61_Eq_Nat arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45Types-u--C-47C-61_Eq_Nat arg-4 arg-5)))) arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45Types-u--C-61C-61_Eq_Nat arg-2 arg-3))) (lambda (arg-6) (lambda (arg-7) (PreludeC-45Types-u--C-47C-61_Eq_Nat arg-6 arg-7)))) (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45Types-u--C-61C-61_Eq_Nat arg-2 arg-3))) (lambda (arg-6) (lambda (arg-7) (PreludeC-45Types-u--C-47C-61_Eq_Nat arg-6 arg-7)))) arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45Types-u--C-61C-61_Eq_Nat arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45Types-u--C-47C-61_Eq_Nat arg-4 arg-5)))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45Types-u--compare_Ord_Nat arg-356 arg-357))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45Types-u--C-60_Ord_Nat arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45Types-u--C-62_Ord_Nat arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45Types-u--C-60C-61_Ord_Nat arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45Types-u--C-62C-61_Ord_Nat arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45Types-u--max_Ord_Nat arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45Types-u--min_Ord_Nat arg-366 arg-367)))) (vector (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45Types-u--C-61C-61_Eq_Nat arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45Types-u--C-47C-61_Eq_Nat arg-4 arg-5)))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45Types-u--compare_Ord_Nat arg-356 arg-357))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45Types-u--C-60_Ord_Nat arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45Types-u--C-62_Ord_Nat arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45Types-u--C-60C-61_Ord_Nat arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45Types-u--C-62C-61_Ord_Nat arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45Types-u--max_Ord_Nat arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45Types-u--min_Ord_Nat arg-366 arg-367)))) arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45Types-u--C-61C-61_Eq_Nat arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45Types-u--C-47C-61_Eq_Nat arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45Types-u--compare_Ord_Nat arg-354 arg-355))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45Types-u--C-60_Ord_Nat arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45Types-u--C-62_Ord_Nat arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45Types-u--C-60C-61_Ord_Nat arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45Types-u--C-62C-61_Ord_Nat arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45Types-u--max_Ord_Nat arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45Types-u--min_Ord_Nat arg-366 arg-367)))) (vector (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45Types-u--C-61C-61_Eq_Nat arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45Types-u--C-47C-61_Eq_Nat arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45Types-u--compare_Ord_Nat arg-354 arg-355))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45Types-u--C-60_Ord_Nat arg-358 arg-359))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45Types-u--C-62_Ord_Nat arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45Types-u--C-60C-61_Ord_Nat arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45Types-u--C-62C-61_Ord_Nat arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45Types-u--max_Ord_Nat arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45Types-u--min_Ord_Nat arg-366 arg-367)))) arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45Types-u--C-61C-61_Eq_Nat arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45Types-u--C-47C-61_Eq_Nat arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45Types-u--compare_Ord_Nat arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45Types-u--C-60_Ord_Nat arg-356 arg-357))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45Types-u--C-62_Ord_Nat arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45Types-u--C-60C-61_Ord_Nat arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45Types-u--C-62C-61_Ord_Nat arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45Types-u--max_Ord_Nat arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45Types-u--min_Ord_Nat arg-366 arg-367)))) (vector (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45Types-u--C-61C-61_Eq_Nat arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45Types-u--C-47C-61_Eq_Nat arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45Types-u--compare_Ord_Nat arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45Types-u--C-60_Ord_Nat arg-356 arg-357))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45Types-u--C-62_Ord_Nat arg-360 arg-361))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45Types-u--C-60C-61_Ord_Nat arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45Types-u--C-62C-61_Ord_Nat arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45Types-u--max_Ord_Nat arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45Types-u--min_Ord_Nat arg-366 arg-367)))) arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45Types-u--C-61C-61_Eq_Nat arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45Types-u--C-47C-61_Eq_Nat arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45Types-u--compare_Ord_Nat arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45Types-u--C-60_Ord_Nat arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45Types-u--C-62_Ord_Nat arg-358 arg-359))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45Types-u--C-60C-61_Ord_Nat arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45Types-u--C-62C-61_Ord_Nat arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45Types-u--max_Ord_Nat arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45Types-u--min_Ord_Nat arg-366 arg-367)))) (vector (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45Types-u--C-61C-61_Eq_Nat arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45Types-u--C-47C-61_Eq_Nat arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45Types-u--compare_Ord_Nat arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45Types-u--C-60_Ord_Nat arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45Types-u--C-62_Ord_Nat arg-358 arg-359))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45Types-u--C-60C-61_Ord_Nat arg-362 arg-363))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45Types-u--C-62C-61_Ord_Nat arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45Types-u--max_Ord_Nat arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45Types-u--min_Ord_Nat arg-366 arg-367)))) arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45Types-u--C-61C-61_Eq_Nat arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45Types-u--C-47C-61_Eq_Nat arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45Types-u--compare_Ord_Nat arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45Types-u--C-60_Ord_Nat arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45Types-u--C-62_Ord_Nat arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45Types-u--C-60C-61_Ord_Nat arg-360 arg-361))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45Types-u--C-62C-61_Ord_Nat arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45Types-u--max_Ord_Nat arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45Types-u--min_Ord_Nat arg-366 arg-367)))) (vector (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45Types-u--C-61C-61_Eq_Nat arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45Types-u--C-47C-61_Eq_Nat arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45Types-u--compare_Ord_Nat arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45Types-u--C-60_Ord_Nat arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45Types-u--C-62_Ord_Nat arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45Types-u--C-60C-61_Ord_Nat arg-360 arg-361))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45Types-u--C-62C-61_Ord_Nat arg-364 arg-365))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45Types-u--max_Ord_Nat arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45Types-u--min_Ord_Nat arg-366 arg-367)))) arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45Types-u--C-61C-61_Eq_Nat arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45Types-u--C-47C-61_Eq_Nat arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45Types-u--compare_Ord_Nat arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45Types-u--C-60_Ord_Nat arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45Types-u--C-62_Ord_Nat arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45Types-u--C-60C-61_Ord_Nat arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45Types-u--C-62C-61_Ord_Nat arg-362 arg-363))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45Types-u--max_Ord_Nat arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45Types-u--min_Ord_Nat arg-366 arg-367)))) (vector (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45Types-u--C-61C-61_Eq_Nat arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45Types-u--C-47C-61_Eq_Nat arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45Types-u--compare_Ord_Nat arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45Types-u--C-60_Ord_Nat arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45Types-u--C-62_Ord_Nat arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45Types-u--C-60C-61_Ord_Nat arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45Types-u--C-62C-61_Ord_Nat arg-362 arg-363))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45Types-u--max_Ord_Nat arg-366 arg-367))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45Types-u--min_Ord_Nat arg-366 arg-367)))) arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45Types-u--C-61C-61_Eq_Nat arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45Types-u--C-47C-61_Eq_Nat arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45Types-u--compare_Ord_Nat arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45Types-u--C-60_Ord_Nat arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45Types-u--C-62_Ord_Nat arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45Types-u--C-60C-61_Ord_Nat arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45Types-u--C-62C-61_Ord_Nat arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45Types-u--max_Ord_Nat arg-364 arg-365))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45Types-u--min_Ord_Nat arg-368 arg-369)))) (vector (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45Types-u--C-61C-61_Eq_Nat arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45Types-u--C-47C-61_Eq_Nat arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45Types-u--compare_Ord_Nat arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45Types-u--C-60_Ord_Nat arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45Types-u--C-62_Ord_Nat arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45Types-u--C-60C-61_Ord_Nat arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45Types-u--C-62C-61_Ord_Nat arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45Types-u--max_Ord_Nat arg-364 arg-365))) (lambda (arg-368) (lambda (arg-369) (PreludeC-45Types-u--min_Ord_Nat arg-368 arg-369)))) arg-366 arg-367)))) e-0 e-2)))))))) +(define LibrariesC-45DataC-45Version-u--TokType_TokenKind_VersionTokenKind (lambda (arg-0) (cond ((equal? arg-0 0) (vector "String" )) ((equal? arg-0 2) (vector "Builtin.Unit" )) ((equal? arg-0 3) (vector "Builtin.Unit" )) (else (vector "Prelude.Types.Nat" ))))) +(define LibrariesC-45DataC-45Version-u--C-61C-61_Eq_VersionTokenKind (lambda (arg-0 arg-1) (cond ((equal? arg-0 0) (cond ((equal? arg-1 0) 1)(else 0))) ((equal? arg-0 1) (cond ((equal? arg-1 1) 1)(else 0))) ((equal? arg-0 2) (cond ((equal? arg-1 2) 1)(else 0))) ((equal? arg-0 3) (cond ((equal? arg-1 3) 1)(else 0)))(else 0)))) +(define LibrariesC-45DataC-45Version-u--C-60_Ord_Version (lambda (arg-0 arg-1) (PreludeC-45EqOrd-u--C-61C-61_Eq_Ordering (LibrariesC-45DataC-45Version-u--compare_Ord_Version arg-0 arg-1) 0))) +(define LibrariesC-45DataC-45Version-u--C-47C-61_Eq_VersionTokenKind (lambda (arg-0 arg-1) (let ((sc0 (LibrariesC-45DataC-45Version-u--C-61C-61_Eq_VersionTokenKind arg-0 arg-1))) (cond ((equal? sc0 1) 0) (else 1))))) +(define LibrariesC-45DataC-45Version-versionTokenMap (lambda () (LibrariesC-45TextC-45Lexer-toTokenMap (cons (cons (LibrariesC-45TextC-45Lexer-is #\.) 2) (cons (cons (LibrariesC-45TextC-45Lexer-is #\-) 3) (cons (cons (LibrariesC-45TextC-45Lexer-digits) 1) (cons (cons (LibrariesC-45TextC-45Lexer-some (LibrariesC-45TextC-45Lexer-alphaNum)) 0) '()))))))) +(define LibrariesC-45DataC-45Version-versionParser (lambda () (vector 8 1 (LibrariesC-45TextC-45Parser-match (cons (cons (lambda (arg-2) (lambda (arg-3) (LibrariesC-45DataC-45Version-u--C-61C-61_Eq_VersionTokenKind arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (LibrariesC-45DataC-45Version-u--C-47C-61_Eq_VersionTokenKind arg-4 arg-5)))) (cons (lambda (arg-333) (LibrariesC-45DataC-45Version-u--TokType_TokenKind_VersionTokenKind arg-333)) (lambda (u--kind) (lambda (arg-334) (LibrariesC-45DataC-45Version-u--tokValue_TokenKind_VersionTokenKind u--kind arg-334))))) 1) (lambda () (lambda (u--maj) (vector 10 1 (LibrariesC-45TextC-45Parser-match (cons (cons (lambda (arg-2) (lambda (arg-3) (LibrariesC-45DataC-45Version-u--C-61C-61_Eq_VersionTokenKind arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (LibrariesC-45DataC-45Version-u--C-47C-61_Eq_VersionTokenKind arg-4 arg-5)))) (cons (lambda (arg-333) (LibrariesC-45DataC-45Version-u--TokType_TokenKind_VersionTokenKind arg-333)) (lambda (u--kind) (lambda (arg-334) (LibrariesC-45DataC-45Version-u--tokValue_TokenKind_VersionTokenKind u--kind arg-334))))) 2) (lambda () (vector 8 1 (LibrariesC-45TextC-45Parser-match (cons (cons (lambda (arg-2) (lambda (arg-3) (LibrariesC-45DataC-45Version-u--C-61C-61_Eq_VersionTokenKind arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (LibrariesC-45DataC-45Version-u--C-47C-61_Eq_VersionTokenKind arg-4 arg-5)))) (cons (lambda (arg-333) (LibrariesC-45DataC-45Version-u--TokType_TokenKind_VersionTokenKind arg-333)) (lambda (u--kind) (lambda (arg-334) (LibrariesC-45DataC-45Version-u--tokValue_TokenKind_VersionTokenKind u--kind arg-334))))) 1) (lambda () (lambda (u--min) (vector 10 1 (LibrariesC-45TextC-45Parser-match (cons (cons (lambda (arg-2) (lambda (arg-3) (LibrariesC-45DataC-45Version-u--C-61C-61_Eq_VersionTokenKind arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (LibrariesC-45DataC-45Version-u--C-47C-61_Eq_VersionTokenKind arg-4 arg-5)))) (cons (lambda (arg-333) (LibrariesC-45DataC-45Version-u--TokType_TokenKind_VersionTokenKind arg-333)) (lambda (u--kind) (lambda (arg-334) (LibrariesC-45DataC-45Version-u--tokValue_TokenKind_VersionTokenKind u--kind arg-334))))) 2) (lambda () (vector 8 0 (LibrariesC-45TextC-45Parser-match (cons (cons (lambda (arg-2) (lambda (arg-3) (LibrariesC-45DataC-45Version-u--C-61C-61_Eq_VersionTokenKind arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (LibrariesC-45DataC-45Version-u--C-47C-61_Eq_VersionTokenKind arg-4 arg-5)))) (cons (lambda (arg-333) (LibrariesC-45DataC-45Version-u--TokType_TokenKind_VersionTokenKind arg-333)) (lambda (u--kind) (lambda (arg-334) (LibrariesC-45DataC-45Version-u--tokValue_TokenKind_VersionTokenKind u--kind arg-334))))) 1) (lambda () (lambda (u--patch) (vector 9 0 0 (LibrariesC-45TextC-45Parser-optional 1 (vector 9 1 1 (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40C-40GrammarC-32C-36stateC-41C-32C-36tokC-41C-32C-36cC-41 1 (lambda (eta-0) (lambda (eta-1) eta-1)) (LibrariesC-45TextC-45Parser-match (cons (cons (lambda (arg-2) (lambda (arg-3) (LibrariesC-45DataC-45Version-u--C-61C-61_Eq_VersionTokenKind arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (LibrariesC-45DataC-45Version-u--C-47C-61_Eq_VersionTokenKind arg-4 arg-5)))) (cons (lambda (arg-333) (LibrariesC-45DataC-45Version-u--TokType_TokenKind_VersionTokenKind arg-333)) (lambda (u--kind) (lambda (arg-334) (LibrariesC-45DataC-45Version-u--tokValue_TokenKind_VersionTokenKind u--kind arg-334))))) 3)) (lambda (u--f) (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40C-40GrammarC-32C-36stateC-41C-32C-36tokC-41C-32C-36cC-41 1 u--f (LibrariesC-45TextC-45Parser-match (cons (cons (lambda (arg-2) (lambda (arg-3) (LibrariesC-45DataC-45Version-u--C-61C-61_Eq_VersionTokenKind arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (LibrariesC-45DataC-45Version-u--C-47C-61_Eq_VersionTokenKind arg-4 arg-5)))) (cons (lambda (arg-333) (LibrariesC-45DataC-45Version-u--TokType_TokenKind_VersionTokenKind arg-333)) (lambda (u--kind) (lambda (arg-334) (LibrariesC-45DataC-45Version-u--tokValue_TokenKind_VersionTokenKind u--kind arg-334))))) 0))))) (lambda (u--optTag) (vector 0 (cons (cons u--maj (cons u--min u--patch)) u--optTag))))))))))))))))))) +(define LibrariesC-45DataC-45Version-showVersion (lambda (arg-0 arg-1) (let ((e-0 (car arg-1))) (let ((e-1 (cdr arg-1))) (let ((e-4 (car e-0))) (let ((e-5 (cdr e-0))) (let ((e-8 (car e-5))) (let ((e-9 (cdr e-5))) (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Interfaces-concat (cons (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_String arg-2 arg-3))) (PreludeC-45Types-u--neutral_Monoid_String))) (DataC-45List-intersperse "." (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (PreludeC-45Show-u--show_Show_Nat eta-0)) (cons e-4 (cons e-8 (cons e-9 '())))))) (cond ((equal? arg-0 1) (LibrariesC-45DataC-45Version-n--2770-1917-u--showTag e-4 e-8 e-9 e-1 arg-0)) (else ""))))))))))) +(define LibrariesC-45DataC-45Version-parseVersion (lambda (arg-0) (let ((sc0 (LibrariesC-45TextC-45ParserC-45Core-parse 1 (LibrariesC-45DataC-45Version-versionParser) (LibrariesC-45DataC-45Version-lexVersion arg-0)))) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (if (null? e-2) '() (let ((e-5 (car e-2))) (let ((e-6 (cdr e-2))) (if (null? e-6) (box e-5) '()))))))(else '()))))) +(define LibrariesC-45DataC-45Version-lexVersion (lambda (arg-0) (let ((sc0 (LibrariesC-45TextC-45LexerC-45Core-lex (LibrariesC-45DataC-45Version-versionTokenMap) arg-0))) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((e-7 (cdr e-3))) e-2)))))) +(define IdrisC-45SetOptions-case--pkgDir-402 (lambda (arg-0 arg-1) (let ((e-2 (car arg-1))) (let ((e-3 (cdr arg-1))) (if (null? e-2) (vector arg-0 e-3 '()) (let ((sc2 (IdrisC-45SetOptions-n--9427-354-u--toVersion arg-0 e-3))) (if (null? sc2) (vector arg-0 arg-0 '()) (let ((e-1 (unbox sc2))) (vector arg-0 (PreludeC-45Interfaces-concat (cons (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_String arg-2 arg-3))) (PreludeC-45Types-u--neutral_Monoid_String))) (DataC-45List-intersperse "-" e-2)) (box e-1)))))))))) +(define IdrisC-45SetOptions-n--9427-354-u--toVersion (lambda (arg-0 ext-0) (PreludeC-45Types-u--map_Functor_Maybe (lambda (eta-0) eta-0) (DataC-45List1-u--traverse_Traversable_List1 (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (PreludeC-45Types-u--map_Functor_Maybe u--func arg-133))))) (lambda (u--a) (lambda (arg-527) (PreludeC-45Types-u--pure_Applicative_Maybe arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (PreludeC-45Types-u--C-60C-42C-62_Applicative_Maybe arg-528 arg-530)))))) (lambda (eta-0) (DataC-45String-parsePositive (vector (lambda (arg-2) (lambda (arg-3) (PreludeC-45Types-u--C-43_Num_Nat arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45Types-u--C-42_Num_Nat arg-4 arg-5))) (lambda (arg-6) (PreludeC-45Types-u--fromInteger_Num_Nat arg-6))) eta-0)) (DataC-45String-split (lambda (arg-1) (PreludeC-45EqOrd-u--C-61C-61_Eq_Char arg-1 #\.)) ext-0))))) +(define IdrisC-45SetOptions-n--10267-1141-u--prefixes (lambda (arg-0) (if (null? arg-0) '() (let ((e-2 (car arg-0))) (let ((e-3 (cdr arg-0))) (cons e-2 (PreludeC-45Types-u--map_Functor_List (lambda (arg-1) (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45TypesC-45String-C-43C-43 e-2 ".") arg-1)) (IdrisC-45SetOptions-n--10267-1141-u--prefixes e-3)))))))) +(define IdrisC-45SetOptions-n--10115-980-u--notHidden (lambda (arg-0 ext-0) (let ((sc0 (DataC-45String-isPrefixOf "." ext-0))) (cond ((equal? sc0 1) 0) (else 1))))) +(define IdrisC-45SetOptions-n--9530-459-u--getFiles (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 ((SystemC-45Directory-dirEntry (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-24 (arg-811 eta-0))) ((arg-812 act-24) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-51 (arg-814 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) arg-1) ext-0))) (case (vector-ref act-24 0) ((1) (let ((e-2 (vector-ref act-24 1))) (IdrisC-45SetOptions-n--9530-459-u--getFiles arg-0 arg-1 (cons e-2 arg-2) ext-0))) (else (DataC-45List-reverse arg-2)))))) +(define IdrisC-45SetOptions-n--9633-557-u--checkBounds (lambda (arg-0 arg-1 arg-2 arg-3) (let ((e-0 (vector-ref arg-3 0))) (let ((e-1 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (PreludeC-45Interfaces-C-62C-62 (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (PreludeC-45Types-u--map_Functor_Maybe u--func arg-133))))) (lambda (u--a) (lambda (arg-527) (PreludeC-45Types-u--pure_Applicative_Maybe arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (PreludeC-45Types-u--C-60C-42C-62_Applicative_Maybe arg-528 arg-530)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe arg-811 arg-812))))) (lambda (u--a) (lambda (arg-814) (PreludeC-45Types-u--join_Monad_Maybe arg-814)))) (PreludeC-45Interfaces-guard (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (PreludeC-45Types-u--map_Functor_Maybe u--func arg-133))))) (lambda (u--a) (lambda (arg-527) (PreludeC-45Types-u--pure_Applicative_Maybe arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (PreludeC-45Types-u--C-60C-42C-62_Applicative_Maybe arg-528 arg-530)))))) (lambda (u--a) (PreludeC-45Types-u--empty_Alternative_Maybe)) (lambda (u--a) (lambda (arg-763) (lambda (arg-764) (PreludeC-45Types-u--C-60C-124C-62_Alternative_Maybe arg-763 arg-764))))) (let ((sc0 (PreludeC-45EqOrd-u--C-61C-61_Eq_String e-1 arg-1))) (cond ((equal? sc0 1) (IdrisC-45PackageC-45Types-inBounds e-2 arg-0)) (else 0)))) (lambda () (PreludeC-45Types-u--pure_Applicative_Maybe (cons (LibrariesC-45UtilsC-45Path-C-60C-47C-62 arg-2 e-0) e-2))))))))) +(define IdrisC-45SetOptions-prefixOnlyIfNonEmpty (lambda (arg-0 ext-0) (cond ((equal? arg-0 "--") ext-0)(else (IdrisC-45SetOptions-prefixOnly arg-0 ext-0))))) +(define IdrisC-45SetOptions-prefixOnly (lambda (arg-0 ext-0) (LibrariesC-45DataC-45ListC-45Extra-sortedNub (vector (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45EqOrd-u--C-61C-61_Eq_String arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_String arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_String arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_String arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_String arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_String arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_String arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_String arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_String arg-366 arg-367)))) (DataC-45List-filter (lambda (u--s) (let ((sc0 (PreludeC-45EqOrd-u--C-47C-61_Eq_String arg-0 u--s))) (cond ((equal? sc0 1) (DataC-45String-isPrefixOf arg-0 u--s)) (else 0)))) ext-0)))) +(define IdrisC-45SetOptions-preOptions (lambda (arg-0 arg-1 arg-2) (if (null? arg-2) (lambda (eta-0) (vector 1 1)) (let ((e-2 (car arg-2))) (let ((e-3 (cdr arg-2))) (case (vector-ref e-2 0) ((13) (lambda (eta-0) (let ((act-24 (let ((act-24 (CoreC-45Context-getSession arg-0 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (CoreC-45Context-setSession arg-0 (let ((e-0 (vector-ref e-5 0))) (let ((e-21 (vector-ref e-5 2))) (let ((e-20 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-19 (vector-ref e-5 5))) (let ((e-6 (vector-ref e-5 6))) (let ((e-7 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (let ((e-10 (vector-ref e-5 10))) (let ((e-11 (vector-ref e-5 11))) (let ((e-12 (vector-ref e-5 12))) (let ((e-13 (vector-ref e-5 13))) (let ((e-14 (vector-ref e-5 14))) (let ((e-15 (vector-ref e-5 15))) (let ((e-16 (vector-ref e-5 16))) (let ((e-17 (vector-ref e-5 17))) (let ((e-18 (vector-ref e-5 18))) (vector e-0 1 e-21 e-20 e-4 e-19 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18))))))))))))))))))) eta-0))))))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else ((IdrisC-45SetOptions-preOptions arg-0 arg-1 e-3) eta-0)))))) ((1) (lambda (eta-0) (let ((act-24 (let ((act-24 (CoreC-45Context-getSession arg-0 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref act-24 1))) (CoreC-45Context-setSession arg-0 (let ((e-0 (vector-ref e-5 0))) (let ((e-22 (vector-ref e-5 2))) (let ((e-21 (vector-ref e-5 3))) (let ((e-20 (vector-ref e-5 4))) (let ((e-19 (vector-ref e-5 5))) (let ((e-6 (vector-ref e-5 6))) (let ((e-7 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (let ((e-10 (vector-ref e-5 10))) (let ((e-11 (vector-ref e-5 11))) (let ((e-12 (vector-ref e-5 12))) (let ((e-13 (vector-ref e-5 13))) (let ((e-14 (vector-ref e-5 14))) (let ((e-15 (vector-ref e-5 15))) (let ((e-16 (vector-ref e-5 16))) (let ((e-17 (vector-ref e-5 17))) (let ((e-18 (vector-ref e-5 18))) (vector e-0 1 e-22 e-21 e-20 e-19 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18))))))))))))))))))) eta-0))))))) (case (vector-ref act-24 0) ((0) (let ((e-5 (vector-ref act-24 1))) (vector 0 e-5))) (else ((IdrisC-45SetOptions-preOptions arg-0 arg-1 e-3) eta-0)))))) ((2) (lambda (eta-0) (let ((act-24 (let ((act-24 (CoreC-45Context-getSession arg-0 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref act-24 1))) (CoreC-45Context-setSession arg-0 (let ((e-0 (vector-ref e-6 0))) (let ((e-22 (vector-ref e-6 2))) (let ((e-21 (vector-ref e-6 3))) (let ((e-4 (vector-ref e-6 4))) (let ((e-20 (vector-ref e-6 5))) (let ((e-19 (vector-ref e-6 6))) (let ((e-7 (vector-ref e-6 7))) (let ((e-8 (vector-ref e-6 8))) (let ((e-9 (vector-ref e-6 9))) (let ((e-10 (vector-ref e-6 10))) (let ((e-11 (vector-ref e-6 11))) (let ((e-12 (vector-ref e-6 12))) (let ((e-13 (vector-ref e-6 13))) (let ((e-14 (vector-ref e-6 14))) (let ((e-15 (vector-ref e-6 15))) (let ((e-16 (vector-ref e-6 16))) (let ((e-17 (vector-ref e-6 17))) (let ((e-18 (vector-ref e-6 18))) (vector e-0 1 e-22 e-21 e-4 e-20 e-19 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18))))))))))))))))))) eta-0))))))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else ((IdrisC-45SetOptions-preOptions arg-0 arg-1 e-3) eta-0)))))) ((23) (lambda (eta-0) (let ((act-24 (let ((act-24 (CoreC-45Context-getSession arg-0 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (CoreC-45Context-setSession arg-0 (let ((e-0 (vector-ref e-5 0))) (let ((e-21 (vector-ref e-5 2))) (let ((e-20 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-19 (vector-ref e-5 5))) (let ((e-6 (vector-ref e-5 6))) (let ((e-7 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (let ((e-10 (vector-ref e-5 10))) (let ((e-11 (vector-ref e-5 11))) (let ((e-12 (vector-ref e-5 12))) (let ((e-13 (vector-ref e-5 13))) (let ((e-14 (vector-ref e-5 14))) (let ((e-15 (vector-ref e-5 15))) (let ((e-16 (vector-ref e-5 16))) (let ((e-17 (vector-ref e-5 17))) (let ((e-18 (vector-ref e-5 18))) (vector e-0 1 e-21 e-20 e-4 e-19 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18))))))))))))))))))) eta-0))))))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else ((IdrisC-45SetOptions-preOptions arg-0 arg-1 e-3) eta-0)))))) ((24) (lambda (eta-0) (let ((act-24 (let ((act-24 (CoreC-45Context-getSession arg-0 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (CoreC-45Context-setSession arg-0 (let ((e-0 (vector-ref e-5 0))) (let ((e-22 (vector-ref e-5 2))) (let ((e-21 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-20 (vector-ref e-5 5))) (let ((e-19 (vector-ref e-5 6))) (let ((e-7 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (let ((e-10 (vector-ref e-5 10))) (let ((e-11 (vector-ref e-5 11))) (let ((e-12 (vector-ref e-5 12))) (let ((e-13 (vector-ref e-5 13))) (let ((e-14 (vector-ref e-5 14))) (let ((e-15 (vector-ref e-5 15))) (let ((e-16 (vector-ref e-5 16))) (let ((e-17 (vector-ref e-5 17))) (let ((e-18 (vector-ref e-5 18))) (vector e-0 1 e-22 e-21 e-4 e-20 e-19 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18))))))))))))))))))) eta-0))))))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else ((IdrisC-45SetOptions-preOptions arg-0 arg-1 e-3) eta-0)))))) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 (CoreC-45Context-getSession arg-0 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (CoreC-45Context-setSession arg-0 (let ((e-0 (vector-ref e-5 0))) (let ((e-21 (vector-ref e-5 2))) (let ((e-20 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-19 (vector-ref e-5 5))) (let ((e-6 (vector-ref e-5 6))) (let ((e-7 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (let ((e-10 (vector-ref e-5 10))) (let ((e-11 (vector-ref e-5 11))) (let ((e-12 (vector-ref e-5 12))) (let ((e-13 (vector-ref e-5 13))) (let ((e-14 (vector-ref e-5 14))) (let ((e-15 (vector-ref e-5 15))) (let ((e-16 (vector-ref e-5 16))) (let ((e-17 (vector-ref e-5 17))) (let ((e-18 (vector-ref e-5 18))) (vector e-0 1 e-21 e-20 e-4 e-19 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18))))))))))))))))))) eta-0))))))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else ((IdrisC-45SetOptions-preOptions arg-0 arg-1 e-3) eta-0)))))) ((9) (lambda (eta-0) (let ((act-24 (let ((act-24 (CoreC-45Context-getSession arg-0 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (CoreC-45Context-setSession arg-0 (let ((e-0 (vector-ref e-5 0))) (let ((e-1 (vector-ref e-5 1))) (let ((e-21 (vector-ref e-5 2))) (let ((e-20 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-19 (vector-ref e-5 5))) (let ((e-6 (vector-ref e-5 6))) (let ((e-7 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (let ((e-10 (vector-ref e-5 10))) (let ((e-11 (vector-ref e-5 11))) (let ((e-12 (vector-ref e-5 12))) (let ((e-13 (vector-ref e-5 13))) (let ((e-15 (vector-ref e-5 15))) (let ((e-16 (vector-ref e-5 16))) (let ((e-17 (vector-ref e-5 17))) (let ((e-18 (vector-ref e-5 18))) (vector e-0 e-1 e-21 e-20 e-4 e-19 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 1 e-15 e-16 e-17 e-18))))))))))))))))))) eta-0))))))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else ((IdrisC-45SetOptions-preOptions arg-0 arg-1 e-3) eta-0)))))) ((14) (lambda (eta-0) (let ((act-24 (IdrisC-45REPLC-45Opts-setOutput arg-1 (vector 1 1) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else ((IdrisC-45SetOptions-preOptions arg-0 arg-1 e-3) eta-0)))))) ((5) (lambda (eta-0) (let ((act-24 (let ((act-24 (CoreC-45Context-getSession arg-0 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (CoreC-45Context-setSession arg-0 (let ((e-1 (vector-ref e-5 1))) (let ((e-21 (vector-ref e-5 2))) (let ((e-20 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-19 (vector-ref e-5 5))) (let ((e-6 (vector-ref e-5 6))) (let ((e-7 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (let ((e-10 (vector-ref e-5 10))) (let ((e-11 (vector-ref e-5 11))) (let ((e-12 (vector-ref e-5 12))) (let ((e-13 (vector-ref e-5 13))) (let ((e-14 (vector-ref e-5 14))) (let ((e-15 (vector-ref e-5 15))) (let ((e-16 (vector-ref e-5 16))) (let ((e-17 (vector-ref e-5 17))) (let ((e-18 (vector-ref e-5 18))) (vector 1 e-1 e-21 e-20 e-4 e-19 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18))))))))))))))))))) eta-0))))))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else ((IdrisC-45SetOptions-preOptions arg-0 arg-1 e-3) eta-0)))))) ((3) (let ((e-7 (vector-ref e-2 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((sc3 (CoreC-45Options-getCG (let ((e-4 (vector-ref e-5 4))) e-4) e-7))) (if (null? sc3) (let ((act-25 (let ((act-25 ((PreludeC-45IO-putStrLn (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-1)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-1) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-1) (let ((act-17 (arg-528 eta-1))) (let ((act-16 (arg-530 eta-1))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-1) (let ((act-25 (arg-811 eta-1))) ((arg-812 act-25) eta-1))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-1) (let ((act-51 (arg-814 eta-1))) (act-51 eta-1)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) "No such code generator") eta-0))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((act-26 (let ((act-26 ((PreludeC-45IO-putStrLn (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-1)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-1) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-1) (let ((act-17 (arg-528 eta-1))) (let ((act-16 (arg-530 eta-1))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-1) (let ((act-26 (arg-811 eta-1))) ((arg-812 act-26) eta-1))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-1) (let ((act-51 (arg-814 eta-1))) (act-51 eta-1)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) (PreludeC-45TypesC-45String-C-43C-43 "Code generators available: " (CoreC-45NameC-45Namespace-showSep ", " (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-fst eta-1)) (CoreC-45Options-availableCGs (let ((e-4 (vector-ref e-5 4))) e-4)))))) eta-0))) (vector 1 act-26)))) (case (vector-ref act-26 0) ((0) (let ((e-4 (vector-ref act-26 1))) (vector 0 e-4))) (else (let ((act-27 ((System-exitWith (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-1)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-1) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-1) (let ((act-17 (arg-528 eta-1))) (let ((act-16 (arg-530 eta-1))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-1) (let ((act-27 (arg-811 eta-1))) ((arg-812 act-27) eta-1))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-1) (let ((act-51 (arg-814 eta-1))) (act-51 eta-1)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) (cons 1 0)) eta-0))) (vector 1 act-27)))))))) (let ((e-1 (unbox sc3))) (let ((act-25 (CoreC-45Context-setCG arg-0 e-1 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else ((IdrisC-45SetOptions-preOptions arg-0 arg-1 e-3) eta-0)))))))))))))) ((4) (let ((e-8 (vector-ref e-2 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (CoreC-45Context-getSession arg-0 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (CoreC-45Context-setSession arg-0 (let ((e-0 (vector-ref e-5 0))) (let ((e-1 (vector-ref e-5 1))) (let ((e-22 (vector-ref e-5 2))) (let ((e-21 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-20 (vector-ref e-5 5))) (let ((e-6 (vector-ref e-5 6))) (let ((e-7 (vector-ref e-5 7))) (let ((e-19 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (let ((e-10 (vector-ref e-5 10))) (let ((e-11 (vector-ref e-5 11))) (let ((e-12 (vector-ref e-5 12))) (let ((e-13 (vector-ref e-5 13))) (let ((e-14 (vector-ref e-5 14))) (let ((e-15 (vector-ref e-5 15))) (let ((e-16 (vector-ref e-5 16))) (let ((e-17 (vector-ref e-5 17))) (let ((e-18 (vector-ref e-5 18))) (vector e-0 e-1 e-22 e-21 (cons e-8 e-4) e-20 e-6 e-7 e-19 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18)))))))))))))))))))) eta-0))))))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else ((IdrisC-45SetOptions-preOptions arg-0 arg-1 e-3) eta-0))))))) ((19) (let ((e-9 (vector-ref e-2 1))) (lambda (eta-0) (let ((act-24 (IdrisC-45SetOptions-addPkgDir arg-0 e-9 (IdrisC-45PackageC-45Types-anyBounds) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else ((IdrisC-45SetOptions-preOptions arg-0 arg-1 e-3) eta-0))))))) ((6) (let ((e-10 (vector-ref e-2 1))) (lambda (eta-0) (let ((act-24 (CoreC-45Context-setSourceDir arg-0 (box e-10) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else ((IdrisC-45SetOptions-preOptions arg-0 arg-1 e-3) eta-0))))))) ((7) (let ((e-11 (vector-ref e-2 1))) (lambda (eta-0) (let ((act-24 (CoreC-45Context-setBuildDir arg-0 e-11 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else ((IdrisC-45SetOptions-preOptions arg-0 arg-1 e-3) eta-0))))))) ((8) (let ((e-12 (vector-ref e-2 1))) (lambda (eta-0) (let ((act-24 (CoreC-45Context-setOutputDir arg-0 (box e-12) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else ((IdrisC-45SetOptions-preOptions arg-0 arg-1 e-3) eta-0))))))) ((21) (let ((e-13 (vector-ref e-2 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (IdrisC-45SetOptions-dirOption (let ((e-4 (vector-ref e-5 4))) (let ((e-41 (vector-ref e-4 0))) e-41)) e-13 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (vector 1 0))))))))))) ((34) (lambda (eta-0) (let ((act-24 (CoreC-45Context-setLogTimings arg-0 1 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else ((IdrisC-45SetOptions-preOptions arg-0 arg-1 e-3) eta-0)))))) ((35) (lambda (eta-0) (let ((act-24 (CoreC-45Context-setDebugElabCheck arg-0 1 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else ((IdrisC-45SetOptions-preOptions arg-0 arg-1 e-3) eta-0)))))) ((31) (lambda (eta-0) (let ((act-24 (IdrisC-45REPLC-45Opts-setOutput arg-1 (vector 1 1) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((act-25 (let ((act-25 (CoreC-45Context-getSession arg-0 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref act-25 1))) (CoreC-45Context-setSession arg-0 (let ((e-0 (vector-ref e-6 0))) (let ((e-23 (vector-ref e-6 2))) (let ((e-22 (vector-ref e-6 3))) (let ((e-4 (vector-ref e-6 4))) (let ((e-21 (vector-ref e-6 5))) (let ((e-20 (vector-ref e-6 6))) (let ((e-7 (vector-ref e-6 7))) (let ((e-8 (vector-ref e-6 8))) (let ((e-9 (vector-ref e-6 9))) (let ((e-10 (vector-ref e-6 10))) (let ((e-11 (vector-ref e-6 11))) (let ((e-12 (vector-ref e-6 12))) (let ((e-13 (vector-ref e-6 13))) (let ((e-19 (vector-ref e-6 14))) (let ((e-15 (vector-ref e-6 15))) (let ((e-16 (vector-ref e-6 16))) (let ((e-17 (vector-ref e-6 17))) (let ((e-18 (vector-ref e-6 18))) (vector e-0 1 e-23 e-22 e-4 e-21 e-20 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-19 e-15 e-16 e-17 e-18))))))))))))))))))) eta-0))))))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else ((IdrisC-45SetOptions-preOptions arg-0 arg-1 e-3) eta-0))))))))) ((33) (lambda (eta-0) (let ((act-24 (let ((act-24 (CoreC-45Context-getSession arg-0 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (CoreC-45Context-setSession arg-0 (let ((e-0 (vector-ref e-5 0))) (let ((e-1 (vector-ref e-5 1))) (let ((e-20 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-19 (vector-ref e-5 5))) (let ((e-6 (vector-ref e-5 6))) (let ((e-7 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (let ((e-10 (vector-ref e-5 10))) (let ((e-11 (vector-ref e-5 11))) (let ((e-12 (vector-ref e-5 12))) (let ((e-13 (vector-ref e-5 13))) (let ((e-14 (vector-ref e-5 14))) (let ((e-15 (vector-ref e-5 15))) (let ((e-16 (vector-ref e-5 16))) (let ((e-17 (vector-ref e-5 17))) (let ((e-18 (vector-ref e-5 18))) (vector e-0 e-1 1 e-20 e-4 e-19 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18))))))))))))))))))) eta-0))))))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else ((IdrisC-45SetOptions-preOptions arg-0 arg-1 e-3) eta-0)))))) ((32) (lambda (eta-0) (let ((act-24 (let ((act-24 (CoreC-45Context-getSession arg-0 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (CoreC-45Context-setSession arg-0 (let ((e-0 (vector-ref e-5 0))) (let ((e-1 (vector-ref e-5 1))) (let ((e-21 (vector-ref e-5 2))) (let ((e-20 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-19 (vector-ref e-5 5))) (let ((e-6 (vector-ref e-5 6))) (let ((e-7 (vector-ref e-5 7))) (let ((e-9 (vector-ref e-5 9))) (let ((e-10 (vector-ref e-5 10))) (let ((e-11 (vector-ref e-5 11))) (let ((e-12 (vector-ref e-5 12))) (let ((e-13 (vector-ref e-5 13))) (let ((e-14 (vector-ref e-5 14))) (let ((e-15 (vector-ref e-5 15))) (let ((e-16 (vector-ref e-5 16))) (let ((e-17 (vector-ref e-5 17))) (let ((e-18 (vector-ref e-5 18))) (vector e-0 e-1 e-21 e-20 e-4 e-19 e-6 e-7 1 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18))))))))))))))))))) eta-0))))))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else ((IdrisC-45SetOptions-preOptions arg-0 arg-1 e-3) eta-0)))))) ((27) (let ((e-15 (vector-ref e-2 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (CoreC-45Context-getSession arg-0 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (CoreC-45Context-setSession arg-0 (let ((e-0 (vector-ref e-5 0))) (let ((e-1 (vector-ref e-5 1))) (let ((e-22 (vector-ref e-5 2))) (let ((e-21 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-20 (vector-ref e-5 5))) (let ((e-6 (vector-ref e-5 6))) (let ((e-7 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (let ((e-11 (vector-ref e-5 11))) (let ((e-12 (vector-ref e-5 12))) (let ((e-13 (vector-ref e-5 13))) (let ((e-14 (vector-ref e-5 14))) (let ((e-19 (vector-ref e-5 15))) (let ((e-16 (vector-ref e-5 16))) (let ((e-17 (vector-ref e-5 17))) (let ((e-18 (vector-ref e-5 18))) (vector e-0 e-1 e-22 e-21 e-4 e-20 e-6 e-7 e-8 e-9 (box e-15) e-11 e-12 e-13 e-14 e-19 e-16 e-17 e-18))))))))))))))))))) eta-0))))))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else ((IdrisC-45SetOptions-preOptions arg-0 arg-1 e-3) eta-0))))))) ((28) (let ((e-16 (vector-ref e-2 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (CoreC-45Context-getSession arg-0 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (CoreC-45Context-setSession arg-0 (let ((e-0 (vector-ref e-5 0))) (let ((e-1 (vector-ref e-5 1))) (let ((e-22 (vector-ref e-5 2))) (let ((e-21 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-20 (vector-ref e-5 5))) (let ((e-6 (vector-ref e-5 6))) (let ((e-7 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (let ((e-10 (vector-ref e-5 10))) (let ((e-12 (vector-ref e-5 12))) (let ((e-13 (vector-ref e-5 13))) (let ((e-14 (vector-ref e-5 14))) (let ((e-15 (vector-ref e-5 15))) (let ((e-19 (vector-ref e-5 16))) (let ((e-17 (vector-ref e-5 17))) (let ((e-18 (vector-ref e-5 18))) (vector e-0 e-1 e-22 e-21 e-4 e-20 e-6 e-7 e-8 e-9 e-10 (box e-16) e-12 e-13 e-14 e-15 e-19 e-17 e-18))))))))))))))))))) eta-0))))))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else ((IdrisC-45SetOptions-preOptions arg-0 arg-1 e-3) eta-0))))))) ((29) (let ((e-17 (vector-ref e-2 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (CoreC-45Context-getSession arg-0 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (CoreC-45Context-setSession arg-0 (let ((e-0 (vector-ref e-5 0))) (let ((e-1 (vector-ref e-5 1))) (let ((e-22 (vector-ref e-5 2))) (let ((e-21 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-20 (vector-ref e-5 5))) (let ((e-6 (vector-ref e-5 6))) (let ((e-7 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (let ((e-10 (vector-ref e-5 10))) (let ((e-11 (vector-ref e-5 11))) (let ((e-13 (vector-ref e-5 13))) (let ((e-14 (vector-ref e-5 14))) (let ((e-15 (vector-ref e-5 15))) (let ((e-16 (vector-ref e-5 16))) (let ((e-19 (vector-ref e-5 17))) (let ((e-18 (vector-ref e-5 18))) (vector e-0 e-1 e-22 e-21 e-4 e-20 e-6 e-7 e-8 e-9 e-10 e-11 (box e-17) e-13 e-14 e-15 e-16 e-19 e-18))))))))))))))))))) eta-0))))))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else ((IdrisC-45SetOptions-preOptions arg-0 arg-1 e-3) eta-0))))))) ((30) (let ((e-18 (vector-ref e-2 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (CoreC-45Context-getSession arg-0 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (CoreC-45Context-setSession arg-0 (let ((e-0 (vector-ref e-5 0))) (let ((e-1 (vector-ref e-5 1))) (let ((e-22 (vector-ref e-5 2))) (let ((e-21 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-20 (vector-ref e-5 5))) (let ((e-6 (vector-ref e-5 6))) (let ((e-7 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (let ((e-10 (vector-ref e-5 10))) (let ((e-11 (vector-ref e-5 11))) (let ((e-12 (vector-ref e-5 12))) (let ((e-14 (vector-ref e-5 14))) (let ((e-15 (vector-ref e-5 15))) (let ((e-16 (vector-ref e-5 16))) (let ((e-17 (vector-ref e-5 17))) (let ((e-19 (vector-ref e-5 18))) (vector e-0 e-1 e-22 e-21 e-4 e-20 e-6 e-7 e-8 e-9 e-10 e-11 e-12 (box e-18) e-14 e-15 e-16 e-17 e-19))))))))))))))))))) eta-0))))))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else ((IdrisC-45SetOptions-preOptions arg-0 arg-1 e-3) eta-0))))))) ((18) (let ((e-19 (vector-ref e-2 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (CoreC-45Context-getSession arg-0 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (CoreC-45Context-setSession arg-0 (let ((e-0 (vector-ref e-5 0))) (let ((e-1 (vector-ref e-5 1))) (let ((e-22 (vector-ref e-5 2))) (let ((e-21 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-6 (vector-ref e-5 6))) (let ((e-7 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (let ((e-10 (vector-ref e-5 10))) (let ((e-11 (vector-ref e-5 11))) (let ((e-12 (vector-ref e-5 12))) (let ((e-13 (vector-ref e-5 13))) (let ((e-14 (vector-ref e-5 14))) (let ((e-15 (vector-ref e-5 15))) (let ((e-16 (vector-ref e-5 16))) (let ((e-17 (vector-ref e-5 17))) (let ((e-18 (vector-ref e-5 18))) (vector e-0 e-1 e-22 e-21 e-4 1 (CoreC-45OptionsC-45Log-insertLogLevel e-19 e-6) e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18))))))))))))))))))) eta-0))))))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else ((IdrisC-45SetOptions-preOptions arg-0 arg-1 e-3) eta-0))))))) ((16) (let ((e-20 (vector-ref e-2 1))) (lambda (eta-0) (let ((act-24 (IdrisC-45REPLC-45Opts-setConsoleWidth arg-1 e-20 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else ((IdrisC-45SetOptions-preOptions arg-0 arg-1 e-3) eta-0))))))) ((17) (let ((e-21 (vector-ref e-2 1))) (lambda (eta-0) (let ((act-24 (IdrisC-45REPLC-45Opts-setColor arg-1 e-21 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else ((IdrisC-45SetOptions-preOptions arg-0 arg-1 e-3) eta-0))))))) ((37) (lambda (eta-0) (let ((act-24 (let ((act-24 (CoreC-45Context-getSession arg-0 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (CoreC-45Context-setSession arg-0 (let ((e-0 (vector-ref e-5 0))) (let ((e-1 (vector-ref e-5 1))) (let ((e-21 (vector-ref e-5 2))) (let ((e-20 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-19 (vector-ref e-5 5))) (let ((e-6 (vector-ref e-5 6))) (let ((e-7 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (let ((e-10 (vector-ref e-5 10))) (let ((e-11 (vector-ref e-5 11))) (let ((e-12 (vector-ref e-5 12))) (let ((e-13 (vector-ref e-5 13))) (let ((e-14 (vector-ref e-5 14))) (let ((e-15 (vector-ref e-5 15))) (let ((e-17 (vector-ref e-5 17))) (let ((e-18 (vector-ref e-5 18))) (vector e-0 e-1 e-21 e-20 e-4 e-19 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 1 e-17 e-18))))))))))))))))))) eta-0))))))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else ((IdrisC-45SetOptions-preOptions arg-0 arg-1 e-3) eta-0)))))) ((38) (lambda (eta-0) (let ((act-24 (let ((act-24 (CoreC-45Context-getSession arg-0 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (CoreC-45Context-setSession arg-0 (let ((e-0 (vector-ref e-5 0))) (let ((e-1 (vector-ref e-5 1))) (let ((e-21 (vector-ref e-5 2))) (let ((e-20 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-19 (vector-ref e-5 5))) (let ((e-6 (vector-ref e-5 6))) (let ((e-7 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (let ((e-10 (vector-ref e-5 10))) (let ((e-11 (vector-ref e-5 11))) (let ((e-12 (vector-ref e-5 12))) (let ((e-13 (vector-ref e-5 13))) (let ((e-14 (vector-ref e-5 14))) (let ((e-15 (vector-ref e-5 15))) (let ((e-16 (vector-ref e-5 16))) (let ((e-18 (vector-ref e-5 18))) (vector e-0 e-1 e-21 e-20 e-4 e-19 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 0 e-18))))))))))))))))))) eta-0))))))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else ((IdrisC-45SetOptions-preOptions arg-0 arg-1 e-3) eta-0)))))) ((39) (lambda (eta-0) (let ((act-24 (let ((act-24 (CoreC-45Context-getSession arg-0 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (CoreC-45Context-setSession arg-0 (let ((e-0 (vector-ref e-5 0))) (let ((e-1 (vector-ref e-5 1))) (let ((e-21 (vector-ref e-5 2))) (let ((e-20 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-19 (vector-ref e-5 5))) (let ((e-6 (vector-ref e-5 6))) (let ((e-7 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (let ((e-10 (vector-ref e-5 10))) (let ((e-11 (vector-ref e-5 11))) (let ((e-12 (vector-ref e-5 12))) (let ((e-13 (vector-ref e-5 13))) (let ((e-14 (vector-ref e-5 14))) (let ((e-15 (vector-ref e-5 15))) (let ((e-16 (vector-ref e-5 16))) (let ((e-17 (vector-ref e-5 17))) (vector e-0 e-1 e-21 e-20 e-4 e-19 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 1))))))))))))))))))) eta-0))))))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else ((IdrisC-45SetOptions-preOptions arg-0 arg-1 e-3) eta-0)))))) ((40) (let ((e-22 (vector-ref e-2 1))) (let ((e-23 (vector-ref e-2 2))) (lambda (eta-0) (let ((act-24 ((IdrisC-45SetOptions-opts arg-0 e-22 e-23) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (let ((act-25 ((PreludeC-45IO-putStr (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-1)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-1) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-1) (let ((act-17 (arg-528 eta-1))) (let ((act-16 (arg-530 eta-1))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-1) (let ((act-25 (arg-811 eta-1))) ((arg-812 act-25) eta-1))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-1) (let ((act-51 (arg-814 eta-1))) (act-51 eta-1)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) (DataC-45String-fastUnlines e-5)) eta-0))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (vector 1 0)))))))))))) ((41) (let ((e-24 (vector-ref e-2 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((PreludeC-45IO-putStrLn (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-1)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-1) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-1) (let ((act-17 (arg-528 eta-1))) (let ((act-16 (arg-530 eta-1))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-1) (let ((act-24 (arg-811 eta-1))) ((arg-812 act-24) eta-1))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-1) (let ((act-51 (arg-814 eta-1))) (act-51 eta-1)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) (IdrisC-45SetOptions-completionScript e-24)) eta-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (vector 1 0)))))))(else (IdrisC-45SetOptions-preOptions arg-0 arg-1 e-3)))))))) +(define IdrisC-45SetOptions-postOptions (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (if (null? arg-6) (lambda (eta-0) (vector 1 1)) (case (vector-ref arg-5 0) ((10) (if (null? arg-6) (let ((e-1 (car arg-6))) (let ((e-2 (cdr arg-6))) (case (vector-ref e-1 0) ((1) (let ((e-3 (vector-ref e-1 1))) (lambda (eta-0) (let ((act-24 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (case (vector-ref eta-1 0) ((0) (let ((e-4 (vector-ref eta-1 1))) (vector 0 e-4))) (else (vector 1 0)))) (lambda (eta-1) (IdrisC-45REPL-compileExp arg-0 arg-1 arg-2 arg-3 arg-4 (vector 0 (vector 2 ) (vector 1 "main")) e-3 eta-1)) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((act-25 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (case (vector-ref eta-1 0) ((0) (let ((e-4 (vector-ref eta-1 1))) (vector 0 e-4))) (else (vector 1 0)))) (IdrisC-45SetOptions-postOptions arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (vector 1 0)))))))))) ((2) (let ((e-4 (vector-ref e-1 1))) (lambda (eta-0) (let ((act-24 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (case (vector-ref eta-1 0) ((0) (let ((e-3 (vector-ref eta-1 1))) (vector 0 e-3))) (else (vector 1 0)))) (lambda (eta-1) (IdrisC-45REPL-execExp arg-0 arg-1 arg-2 arg-3 arg-4 (vector 0 (vector 2 ) (vector 1 e-4)) eta-1)) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (let ((act-25 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (case (vector-ref eta-1 0) ((0) (let ((e-3 (vector-ref eta-1 1))) (vector 0 e-3))) (else (vector 1 0)))) (IdrisC-45SetOptions-postOptions arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-3 (vector-ref act-25 1))) (vector 0 e-3))) (else (vector 1 0)))))))))) ((0) (lambda (eta-0) (let ((act-24 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (case (vector-ref eta-1 0) ((0) (let ((e-3 (vector-ref eta-1 1))) (vector 0 e-3))) (else (vector 1 0)))) (IdrisC-45SetOptions-postOptions arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (vector 1 0)))))) ((31) (let ((e-5 (vector-ref e-1 1))) (lambda (eta-0) (let ((act-24 (IdrisC-45REPL-replCmd arg-0 arg-1 arg-2 arg-3 arg-4 e-5 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (vector 1 0)))))))(else (IdrisC-45SetOptions-postOptions arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2))))) (let ((e-9 (car arg-6))) (let ((e-10 (cdr arg-6))) (case (vector-ref e-9 0) ((1) (lambda (eta-0) (let ((act-24 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (case (vector-ref eta-1 0) ((0) (let ((e-2 (vector-ref eta-1 1))) (vector 0 e-2))) (else (vector 1 0)))) (IdrisC-45SetOptions-postOptions arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-10) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (vector 1 0))))))(else (let ((e-1 (car arg-6))) (let ((e-2 (cdr arg-6))) (case (vector-ref e-1 0) ((1) (let ((e-3 (vector-ref e-1 1))) (lambda (eta-0) (let ((act-24 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (case (vector-ref eta-1 0) ((0) (let ((e-4 (vector-ref eta-1 1))) (vector 0 e-4))) (else (vector 1 0)))) (lambda (eta-1) (IdrisC-45REPL-compileExp arg-0 arg-1 arg-2 arg-3 arg-4 (vector 0 (vector 2 ) (vector 1 "main")) e-3 eta-1)) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((act-25 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (case (vector-ref eta-1 0) ((0) (let ((e-4 (vector-ref eta-1 1))) (vector 0 e-4))) (else (vector 1 0)))) (IdrisC-45SetOptions-postOptions arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (vector 1 0)))))))))) ((2) (let ((e-4 (vector-ref e-1 1))) (lambda (eta-0) (let ((act-24 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (case (vector-ref eta-1 0) ((0) (let ((e-3 (vector-ref eta-1 1))) (vector 0 e-3))) (else (vector 1 0)))) (lambda (eta-1) (IdrisC-45REPL-execExp arg-0 arg-1 arg-2 arg-3 arg-4 (vector 0 (vector 2 ) (vector 1 e-4)) eta-1)) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (let ((act-25 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (case (vector-ref eta-1 0) ((0) (let ((e-3 (vector-ref eta-1 1))) (vector 0 e-3))) (else (vector 1 0)))) (IdrisC-45SetOptions-postOptions arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-3 (vector-ref act-25 1))) (vector 0 e-3))) (else (vector 1 0)))))))))) ((0) (lambda (eta-0) (let ((act-24 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (case (vector-ref eta-1 0) ((0) (let ((e-3 (vector-ref eta-1 1))) (vector 0 e-3))) (else (vector 1 0)))) (IdrisC-45SetOptions-postOptions arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (vector 1 0)))))) ((31) (let ((e-5 (vector-ref e-1 1))) (lambda (eta-0) (let ((act-24 (IdrisC-45REPL-replCmd arg-0 arg-1 arg-2 arg-3 arg-4 e-5 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (vector 1 0)))))))(else (IdrisC-45SetOptions-postOptions arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2)))))))))))(else (let ((e-1 (car arg-6))) (let ((e-2 (cdr arg-6))) (case (vector-ref e-1 0) ((1) (let ((e-3 (vector-ref e-1 1))) (lambda (eta-0) (let ((act-24 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (case (vector-ref eta-1 0) ((0) (let ((e-4 (vector-ref eta-1 1))) (vector 0 e-4))) (else (vector 1 0)))) (lambda (eta-1) (IdrisC-45REPL-compileExp arg-0 arg-1 arg-2 arg-3 arg-4 (vector 0 (vector 2 ) (vector 1 "main")) e-3 eta-1)) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((act-25 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (case (vector-ref eta-1 0) ((0) (let ((e-4 (vector-ref eta-1 1))) (vector 0 e-4))) (else (vector 1 0)))) (IdrisC-45SetOptions-postOptions arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (vector 1 0)))))))))) ((2) (let ((e-4 (vector-ref e-1 1))) (lambda (eta-0) (let ((act-24 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (case (vector-ref eta-1 0) ((0) (let ((e-3 (vector-ref eta-1 1))) (vector 0 e-3))) (else (vector 1 0)))) (lambda (eta-1) (IdrisC-45REPL-execExp arg-0 arg-1 arg-2 arg-3 arg-4 (vector 0 (vector 2 ) (vector 1 e-4)) eta-1)) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (let ((act-25 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (case (vector-ref eta-1 0) ((0) (let ((e-3 (vector-ref eta-1 1))) (vector 0 e-3))) (else (vector 1 0)))) (IdrisC-45SetOptions-postOptions arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-3 (vector-ref act-25 1))) (vector 0 e-3))) (else (vector 1 0)))))))))) ((0) (lambda (eta-0) (let ((act-24 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (case (vector-ref eta-1 0) ((0) (let ((e-3 (vector-ref eta-1 1))) (vector 0 e-3))) (else (vector 1 0)))) (IdrisC-45SetOptions-postOptions arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (vector 1 0)))))) ((31) (let ((e-5 (vector-ref e-1 1))) (lambda (eta-0) (let ((act-24 (IdrisC-45REPL-replCmd arg-0 arg-1 arg-2 arg-3 arg-4 e-5 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (vector 1 0)))))))(else (IdrisC-45SetOptions-postOptions arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2)))))))))) +(define IdrisC-45SetOptions-pkgDir (lambda (arg-0) (IdrisC-45SetOptions-case--pkgDir-402 arg-0 (LibrariesC-45DataC-45List1-unsnoc (DataC-45String-split (lambda (arg-1) (PreludeC-45EqOrd-u--C-61C-61_Eq_Char arg-1 #\-)) arg-0))))) +(define IdrisC-45SetOptions-packageNames (lambda (arg-0) (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (PreludeC-45IO-u--map_Functor_IO eta-2 eta-3 eta-4)))))) (lambda (eta-0) (DataC-45List-filter (lambda (eta-1) (IdrisC-45SetOptions-n--10115-980-u--notHidden arg-0 eta-1)) (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (let ((e-1 (vector-ref eta-1 1))) e-1)) eta-0))) (IdrisC-45SetOptions-getPackageDirs arg-0)))) +(define IdrisC-45SetOptions-opts (lambda (arg-0 arg-1 arg-2) (cond ((equal? arg-1 "--") (cond ((equal? arg-2 "idris2") (lambda (eta-0) (vector 1 (IdrisC-45CommandLine-optionFlags))))(else (cond ((equal? arg-2 "--cg") (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (case (vector-ref eta-1 0) ((0) (let ((e-2 (vector-ref eta-1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-1 1))) (vector 1 (IdrisC-45SetOptions-prefixOnlyIfNonEmpty arg-1 e-5)))))) (lambda (eta-1) (IdrisC-45SetOptions-codegens arg-0 eta-1)) eta-0))) ((equal? arg-2 "--codegen") (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (case (vector-ref eta-1 0) ((0) (let ((e-2 (vector-ref eta-1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-1 1))) (vector 1 (IdrisC-45SetOptions-prefixOnlyIfNonEmpty arg-1 e-5)))))) (lambda (eta-1) (IdrisC-45SetOptions-codegens arg-0 eta-1)) eta-0))) ((equal? arg-2 "-p") (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (case (vector-ref eta-1 0) ((0) (let ((e-2 (vector-ref eta-1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-1 1))) (vector 1 (IdrisC-45SetOptions-prefixOnlyIfNonEmpty arg-1 e-5)))))) (lambda (eta-1) (IdrisC-45SetOptions-findPackages arg-0 eta-1)) eta-0))) ((equal? arg-2 "--package") (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (case (vector-ref eta-1 0) ((0) (let ((e-2 (vector-ref eta-1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-1 1))) (vector 1 (IdrisC-45SetOptions-prefixOnlyIfNonEmpty arg-1 e-5)))))) (lambda (eta-1) (IdrisC-45SetOptions-findPackages arg-0 eta-1)) eta-0))) ((equal? arg-2 "--log") (lambda (eta-0) (vector 1 (IdrisC-45SetOptions-prefixOnlyIfNonEmpty arg-1 (IdrisC-45SetOptions-logLevels)))))(else (cond ((equal? arg-1 "--") (lambda (clam-0) (cond ((equal? arg-2 "-o") (vector 1 '())) ((equal? arg-2 "--output") (vector 1 '())) ((equal? arg-2 "--source-dir") (vector 1 '())) ((equal? arg-2 "--build-dir") (vector 1 '())) ((equal? arg-2 "--output-dir") (vector 1 '()))(else (cond ((equal? arg-2 "--build") (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-2 (vector-ref eta-0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-0 1))) (vector 1 (IdrisC-45SetOptions-prefixOnlyIfNonEmpty arg-1 e-5)))))) (lambda (eta-0) (IdrisC-45SetOptions-findIpkg arg-0 eta-0)) clam-0)) ((equal? arg-2 "--install") (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-2 (vector-ref eta-0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-0 1))) (vector 1 (IdrisC-45SetOptions-prefixOnlyIfNonEmpty arg-1 e-5)))))) (lambda (eta-0) (IdrisC-45SetOptions-findIpkg arg-0 eta-0)) clam-0)) ((equal? arg-2 "--mkdoc") (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-2 (vector-ref eta-0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-0 1))) (vector 1 (IdrisC-45SetOptions-prefixOnlyIfNonEmpty arg-1 e-5)))))) (lambda (eta-0) (IdrisC-45SetOptions-findIpkg arg-0 eta-0)) clam-0)) ((equal? arg-2 "--typecheck") (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-2 (vector-ref eta-0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-0 1))) (vector 1 (IdrisC-45SetOptions-prefixOnlyIfNonEmpty arg-1 e-5)))))) (lambda (eta-0) (IdrisC-45SetOptions-findIpkg arg-0 eta-0)) clam-0)) ((equal? arg-2 "--clean") (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-2 (vector-ref eta-0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-0 1))) (vector 1 (IdrisC-45SetOptions-prefixOnlyIfNonEmpty arg-1 e-5)))))) (lambda (eta-0) (IdrisC-45SetOptions-findIpkg arg-0 eta-0)) clam-0)) ((equal? arg-2 "--repl") (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-2 (vector-ref eta-0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-0 1))) (vector 1 (IdrisC-45SetOptions-prefixOnlyIfNonEmpty arg-1 e-5)))))) (lambda (eta-0) (IdrisC-45SetOptions-findIpkg arg-0 eta-0)) clam-0))(else (vector 1 (let ((sc2 (PreludeC-45Types-elem (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_String arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_String arg-4 arg-5)))) arg-1 (IdrisC-45CommandLine-optionFlags)))) (cond ((equal? sc2 1) '()) (else (IdrisC-45SetOptions-prefixOnly arg-1 (IdrisC-45CommandLine-optionFlags))))))))))))(else (lambda (clam-1) (cond ((equal? arg-2 "--build") (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-2 (vector-ref eta-0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-0 1))) (vector 1 (IdrisC-45SetOptions-prefixOnlyIfNonEmpty arg-1 e-5)))))) (lambda (eta-0) (IdrisC-45SetOptions-findIpkg arg-0 eta-0)) clam-1)) ((equal? arg-2 "--install") (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-2 (vector-ref eta-0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-0 1))) (vector 1 (IdrisC-45SetOptions-prefixOnlyIfNonEmpty arg-1 e-5)))))) (lambda (eta-0) (IdrisC-45SetOptions-findIpkg arg-0 eta-0)) clam-1)) ((equal? arg-2 "--mkdoc") (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-2 (vector-ref eta-0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-0 1))) (vector 1 (IdrisC-45SetOptions-prefixOnlyIfNonEmpty arg-1 e-5)))))) (lambda (eta-0) (IdrisC-45SetOptions-findIpkg arg-0 eta-0)) clam-1)) ((equal? arg-2 "--typecheck") (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-2 (vector-ref eta-0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-0 1))) (vector 1 (IdrisC-45SetOptions-prefixOnlyIfNonEmpty arg-1 e-5)))))) (lambda (eta-0) (IdrisC-45SetOptions-findIpkg arg-0 eta-0)) clam-1)) ((equal? arg-2 "--clean") (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-2 (vector-ref eta-0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-0 1))) (vector 1 (IdrisC-45SetOptions-prefixOnlyIfNonEmpty arg-1 e-5)))))) (lambda (eta-0) (IdrisC-45SetOptions-findIpkg arg-0 eta-0)) clam-1)) ((equal? arg-2 "--repl") (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-2 (vector-ref eta-0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-0 1))) (vector 1 (IdrisC-45SetOptions-prefixOnlyIfNonEmpty arg-1 e-5)))))) (lambda (eta-0) (IdrisC-45SetOptions-findIpkg arg-0 eta-0)) clam-1))(else (vector 1 (let ((sc1 (PreludeC-45Types-elem (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_String arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_String arg-4 arg-5)))) arg-1 (IdrisC-45CommandLine-optionFlags)))) (cond ((equal? sc1 1) '()) (else (IdrisC-45SetOptions-prefixOnly arg-1 (IdrisC-45CommandLine-optionFlags))))))))))))))))(else (cond ((equal? arg-2 "--cg") (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (case (vector-ref eta-1 0) ((0) (let ((e-2 (vector-ref eta-1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-1 1))) (vector 1 (IdrisC-45SetOptions-prefixOnlyIfNonEmpty arg-1 e-5)))))) (lambda (eta-1) (IdrisC-45SetOptions-codegens arg-0 eta-1)) eta-0))) ((equal? arg-2 "--codegen") (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (case (vector-ref eta-1 0) ((0) (let ((e-2 (vector-ref eta-1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-1 1))) (vector 1 (IdrisC-45SetOptions-prefixOnlyIfNonEmpty arg-1 e-5)))))) (lambda (eta-1) (IdrisC-45SetOptions-codegens arg-0 eta-1)) eta-0))) ((equal? arg-2 "-p") (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (case (vector-ref eta-1 0) ((0) (let ((e-2 (vector-ref eta-1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-1 1))) (vector 1 (IdrisC-45SetOptions-prefixOnlyIfNonEmpty arg-1 e-5)))))) (lambda (eta-1) (IdrisC-45SetOptions-findPackages arg-0 eta-1)) eta-0))) ((equal? arg-2 "--package") (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (case (vector-ref eta-1 0) ((0) (let ((e-2 (vector-ref eta-1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-1 1))) (vector 1 (IdrisC-45SetOptions-prefixOnlyIfNonEmpty arg-1 e-5)))))) (lambda (eta-1) (IdrisC-45SetOptions-findPackages arg-0 eta-1)) eta-0))) ((equal? arg-2 "--log") (lambda (eta-0) (vector 1 (IdrisC-45SetOptions-prefixOnlyIfNonEmpty arg-1 (IdrisC-45SetOptions-logLevels)))))(else (cond ((equal? arg-1 "--") (lambda (clam-1) (cond ((equal? arg-2 "-o") (vector 1 '())) ((equal? arg-2 "--output") (vector 1 '())) ((equal? arg-2 "--source-dir") (vector 1 '())) ((equal? arg-2 "--build-dir") (vector 1 '())) ((equal? arg-2 "--output-dir") (vector 1 '()))(else (cond ((equal? arg-2 "--build") (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-2 (vector-ref eta-0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-0 1))) (vector 1 (IdrisC-45SetOptions-prefixOnlyIfNonEmpty arg-1 e-5)))))) (lambda (eta-0) (IdrisC-45SetOptions-findIpkg arg-0 eta-0)) clam-1)) ((equal? arg-2 "--install") (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-2 (vector-ref eta-0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-0 1))) (vector 1 (IdrisC-45SetOptions-prefixOnlyIfNonEmpty arg-1 e-5)))))) (lambda (eta-0) (IdrisC-45SetOptions-findIpkg arg-0 eta-0)) clam-1)) ((equal? arg-2 "--mkdoc") (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-2 (vector-ref eta-0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-0 1))) (vector 1 (IdrisC-45SetOptions-prefixOnlyIfNonEmpty arg-1 e-5)))))) (lambda (eta-0) (IdrisC-45SetOptions-findIpkg arg-0 eta-0)) clam-1)) ((equal? arg-2 "--typecheck") (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-2 (vector-ref eta-0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-0 1))) (vector 1 (IdrisC-45SetOptions-prefixOnlyIfNonEmpty arg-1 e-5)))))) (lambda (eta-0) (IdrisC-45SetOptions-findIpkg arg-0 eta-0)) clam-1)) ((equal? arg-2 "--clean") (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-2 (vector-ref eta-0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-0 1))) (vector 1 (IdrisC-45SetOptions-prefixOnlyIfNonEmpty arg-1 e-5)))))) (lambda (eta-0) (IdrisC-45SetOptions-findIpkg arg-0 eta-0)) clam-1)) ((equal? arg-2 "--repl") (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-2 (vector-ref eta-0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-0 1))) (vector 1 (IdrisC-45SetOptions-prefixOnlyIfNonEmpty arg-1 e-5)))))) (lambda (eta-0) (IdrisC-45SetOptions-findIpkg arg-0 eta-0)) clam-1))(else (vector 1 (let ((sc1 (PreludeC-45Types-elem (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_String arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_String arg-4 arg-5)))) arg-1 (IdrisC-45CommandLine-optionFlags)))) (cond ((equal? sc1 1) '()) (else (IdrisC-45SetOptions-prefixOnly arg-1 (IdrisC-45CommandLine-optionFlags))))))))))))(else (lambda (clam-3) (cond ((equal? arg-2 "--build") (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-2 (vector-ref eta-0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-0 1))) (vector 1 (IdrisC-45SetOptions-prefixOnlyIfNonEmpty arg-1 e-5)))))) (lambda (eta-0) (IdrisC-45SetOptions-findIpkg arg-0 eta-0)) clam-3)) ((equal? arg-2 "--install") (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-2 (vector-ref eta-0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-0 1))) (vector 1 (IdrisC-45SetOptions-prefixOnlyIfNonEmpty arg-1 e-5)))))) (lambda (eta-0) (IdrisC-45SetOptions-findIpkg arg-0 eta-0)) clam-3)) ((equal? arg-2 "--mkdoc") (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-2 (vector-ref eta-0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-0 1))) (vector 1 (IdrisC-45SetOptions-prefixOnlyIfNonEmpty arg-1 e-5)))))) (lambda (eta-0) (IdrisC-45SetOptions-findIpkg arg-0 eta-0)) clam-3)) ((equal? arg-2 "--typecheck") (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-2 (vector-ref eta-0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-0 1))) (vector 1 (IdrisC-45SetOptions-prefixOnlyIfNonEmpty arg-1 e-5)))))) (lambda (eta-0) (IdrisC-45SetOptions-findIpkg arg-0 eta-0)) clam-3)) ((equal? arg-2 "--clean") (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-2 (vector-ref eta-0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-0 1))) (vector 1 (IdrisC-45SetOptions-prefixOnlyIfNonEmpty arg-1 e-5)))))) (lambda (eta-0) (IdrisC-45SetOptions-findIpkg arg-0 eta-0)) clam-3)) ((equal? arg-2 "--repl") (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-2 (vector-ref eta-0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-0 1))) (vector 1 (IdrisC-45SetOptions-prefixOnlyIfNonEmpty arg-1 e-5)))))) (lambda (eta-0) (IdrisC-45SetOptions-findIpkg arg-0 eta-0)) clam-3))(else (vector 1 (let ((sc0 (PreludeC-45Types-elem (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_String arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_String arg-4 arg-5)))) arg-1 (IdrisC-45CommandLine-optionFlags)))) (cond ((equal? sc0 1) '()) (else (IdrisC-45SetOptions-prefixOnly arg-1 (IdrisC-45CommandLine-optionFlags))))))))))))))))) +(define IdrisC-45SetOptions-logLevels (lambda () (PreludeC-45Types-u--C-62C-62C-61_Monad_List (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-fst eta-0)) (CoreC-45OptionsC-45Log-knownTopics)) (lambda (eta-0) (IdrisC-45SetOptions-n--10267-1141-u--prefixes (DataC-45List1-forget (DataC-45String-split (lambda (arg-0) (PreludeC-45EqOrd-u--C-61C-61_Eq_Char arg-0 #\.)) eta-0))))))) +(define IdrisC-45SetOptions-ideModeSocket (lambda (arg-0) (if (null? arg-0) 0 (let ((e-2 (car arg-0))) (let ((e-3 (cdr arg-0))) (case (vector-ref e-2 0) ((24) 1)(else (IdrisC-45SetOptions-ideModeSocket e-3)))))))) +(define IdrisC-45SetOptions-ideMode (lambda (arg-0) (if (null? arg-0) 0 (let ((e-2 (car arg-0))) (let ((e-3 (cdr arg-0))) (case (vector-ref e-2 0) ((23) 1)(else (IdrisC-45SetOptions-ideMode e-3)))))))) +(define IdrisC-45SetOptions-getPackageDirs (lambda (arg-0) (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (PreludeC-45IO-u--map_Functor_IO eta-2 eta-3 eta-4)))))) (lambda (eta-0) (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (IdrisC-45SetOptions-pkgDir eta-1)) eta-0)) (lambda (eta-0) (IdrisC-45SetOptions-dirEntries arg-0 eta-0))))) +(define IdrisC-45SetOptions-findPackages (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((u--globaldir (LibrariesC-45UtilsC-45Path-C-60C-47C-62 (let ((e-4 (vector-ref e-5 4))) (let ((e-38 (vector-ref e-4 0))) (let ((e-43 (vector-ref e-38 5))) e-43))) (PreludeC-45TypesC-45String-C-43C-43 "idris2-" (LibrariesC-45DataC-45Version-showVersion 0 (IdrisC-45Version-version)))))) (let ((u--depends (let ((e-4 (vector-ref e-5 4))) (let ((e-38 (vector-ref e-4 0))) (let ((e-45 (vector-ref e-38 3))) e-45))))) (let ((act-25 (let ((act-25 ((SystemC-45Directory-currentDir (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-25 (arg-811 eta-0))) ((arg-812 act-25) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-51 (arg-814 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-6881) arg-6881)))) ext-0))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (if (null? e-6) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 "Can't get current directory") ext-0) (let ((e-1 (unbox e-6))) (let ((u--localdir (LibrariesC-45UtilsC-45Path-C-60C-47C-62 e-1 u--depends))) (let ((act-26 (let ((act-26 ((IdrisC-45SetOptions-packageNames u--localdir) ext-0))) (vector 1 act-26)))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (let ((act-27 ((IdrisC-45SetOptions-packageNames u--globaldir) ext-0))) (vector 1 act-27)))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (vector 1 (PreludeC-45TypesC-45List-C-43C-43 e-7 e-8))))))))))))))))))))))))) +(define IdrisC-45SetOptions-findIpkg (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 ((SystemC-45Directory-currentDir (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-24 (arg-811 eta-0))) ((arg-812 act-24) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-51 (arg-814 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-6881) arg-6881)))) ext-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (if (null? e-5) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 "Can't get current directory") ext-0) (let ((e-1 (unbox e-5))) (let ((act-25 (let ((act-25 (IdrisC-45SetOptions-dirEntries e-1 ext-0))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (DataC-45List-filter (lambda (arg-1) (DataC-45String-isSuffixOf ".ipkg" arg-1)) e-6)))))))))))))) +(define IdrisC-45SetOptions-dirOption (lambda (arg-0 arg-1 ext-0) (cond (else (let ((act-24 ((PreludeC-45IO-putStrLn (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-24 (arg-811 eta-0))) ((arg-812 act-24) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-51 (arg-814 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) (LibrariesC-45UtilsC-45Path-C-60C-47C-62 (let ((e-5 (vector-ref arg-0 5))) e-5) (PreludeC-45TypesC-45String-C-43C-43 "idris2-" (LibrariesC-45DataC-45Version-showVersion 0 (IdrisC-45Version-version))))) ext-0))) (vector 1 act-24)))))) +(define IdrisC-45SetOptions-dirEntries (lambda (arg-0 ext-0) (let ((act-24 ((SystemC-45Directory-openDir (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-24 (arg-811 eta-0))) ((arg-812 act-24) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-51 (arg-814 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) arg-0) ext-0))) (case (vector-ref act-24 0) ((1) (let ((e-2 (vector-ref act-24 1))) (IdrisC-45SetOptions-n--9530-459-u--getFiles arg-0 e-2 '() ext-0))) (else '()))))) +(define IdrisC-45SetOptions-completionScript (lambda (arg-0) (let ((u--funC-39 (PreludeC-45TypesC-45String-C-43C-43 "_" arg-0))) (DataC-45String-fastUnlines (cons (PreludeC-45TypesC-45String-C-43C-43 u--funC-39 "()") (cons "{" (cons " ED=$([ -z $2 ] && echo \"--\" || echo $2)" (cons " COMPREPLY=($(idris2 --bash-completion $ED $3))" (cons "}" (cons "" (cons (PreludeC-45TypesC-45String-C-43C-43 "complete -F " (PreludeC-45TypesC-45String-C-43C-43 u--funC-39 " -o dirnames idris2")) '()))))))))))) +(define IdrisC-45SetOptions-codegens (lambda (arg-0 ext-0) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-2 (vector-ref eta-0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-0 1))) (vector 1 (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-fst eta-1)) (CoreC-45Options-availableCGs (let ((e-4 (vector-ref e-5 4))) e-4)))))))) (lambda (eta-0) (let ((act-24 (unbox arg-0))) (vector 1 act-24))) ext-0))) +(define IdrisC-45SetOptions-candidateDirs (lambda (arg-0 arg-1 arg-2) (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (PreludeC-45IO-u--map_Functor_IO eta-2 eta-3 eta-4)))))) (lambda (eta-0) (DataC-45List-mapMaybe (lambda (eta-1) (IdrisC-45SetOptions-n--9633-557-u--checkBounds arg-2 arg-1 arg-0 eta-1)) eta-0)) (IdrisC-45SetOptions-getPackageDirs arg-0)))) +(define IdrisC-45SetOptions-addPkgDir (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((u--globaldir (LibrariesC-45UtilsC-45Path-C-60C-47C-62 (let ((e-4 (vector-ref e-5 4))) (let ((e-38 (vector-ref e-4 0))) (let ((e-43 (vector-ref e-38 5))) e-43))) (PreludeC-45TypesC-45String-C-43C-43 "idris2-" (LibrariesC-45DataC-45Version-showVersion 0 (IdrisC-45Version-version)))))) (let ((u--depends (let ((e-4 (vector-ref e-5 4))) (let ((e-38 (vector-ref e-4 0))) (let ((e-45 (vector-ref e-38 3))) e-45))))) (let ((act-25 (let ((act-25 ((SystemC-45Directory-currentDir (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-25 (arg-811 eta-0))) ((arg-812 act-25) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-51 (arg-814 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-6881) arg-6881)))) ext-0))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (if (null? e-6) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 "Can't get current directory") ext-0) (let ((e-1 (unbox e-6))) (let ((u--localdir (LibrariesC-45UtilsC-45Path-C-60C-47C-62 e-1 u--depends))) (let ((act-26 (let ((act-26 ((IdrisC-45SetOptions-candidateDirs u--localdir arg-1 arg-2) ext-0))) (vector 1 act-26)))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (let ((act-27 ((IdrisC-45SetOptions-candidateDirs u--globaldir arg-1 arg-2) ext-0))) (vector 1 act-27)))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (let ((u--pkgdirs (let ((e-4 (vector-ref e-5 4))) (let ((e-42 (vector-ref e-4 0))) (let ((e-45 (vector-ref e-42 7))) e-45))))) (let ((act-28 (let ((act-28 ((PreludeC-45Types-u--traverse_Traversable_List (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--d) (IdrisC-45SetOptions-candidateDirs u--d arg-1 arg-2)) u--pkgdirs) ext-0))) (vector 1 act-28)))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-28 1))) (let ((u--allFiles (let ((sc6 (DataC-45List-isNil e-7))) (cond ((equal? sc6 1) (PreludeC-45TypesC-45List-C-43C-43 e-8 (PreludeC-45Interfaces-concat (cons (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-3 arg-4))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) e-9))) (else e-7))))) (let ((u--sorted (DataC-45List-sortBy (lambda (u--x) (lambda (u--y) (PreludeC-45Types-u--compare_Ord_C-40MaybeC-32C-36aC-41 (vector (cons (lambda (arg-3) (lambda (arg-4) (IdrisC-45PackageC-45Types-u--C-61C-61_Eq_PkgVersion arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (IdrisC-45PackageC-45Types-u--C-47C-61_Eq_PkgVersion arg-4 arg-5)))) (lambda (arg-354) (lambda (arg-355) (IdrisC-45PackageC-45Types-u--compare_Ord_PkgVersion arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (IdrisC-45PackageC-45Types-u--C-60_Ord_PkgVersion arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (IdrisC-45PackageC-45Types-u--C-62_Ord_PkgVersion arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (IdrisC-45PackageC-45Types-u--C-60C-61_Ord_PkgVersion arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (IdrisC-45PackageC-45Types-u--C-62C-61_Ord_PkgVersion arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (IdrisC-45PackageC-45Types-u--max_Ord_PkgVersion arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (IdrisC-45PackageC-45Types-u--min_Ord_PkgVersion arg-366 arg-367)))) (Builtin-snd u--y) (Builtin-snd u--x)))) u--allFiles))) (if (null? u--sorted) (let ((sc7 (let ((e-4 (vector-ref e-5 4))) (let ((e-41 (vector-ref e-4 2))) (let ((e-54 (vector-ref e-41 8))) e-54))))) (cond ((equal? sc7 1) (vector 1 0)) (else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 50 (PreludeC-45TypesC-45String-C-43C-43 arg-1 (PreludeC-45TypesC-45String-C-43C-43 " (" (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45PackageC-45Types-u--show_Show_PkgVersionBounds arg-2) ")")))) ext-0)))) (let ((e-2 (car u--sorted))) (let ((e-11 (car e-2))) (CoreC-45Context-addExtraDir arg-0 e-11 ext-0)))))))))))))))))))))))))))))))))) +(define IdrisC-45REPL-case--process-9522 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (if (null? arg-8) (lambda (eta-0) (vector 1 (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "Package not found in the known search directories")))) (let ((e-1 (unbox arg-8))) (let ((u--packageDirPath (LibrariesC-45UtilsC-45Path-parse e-1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (LibrariesC-45SystemC-45DirectoryC-45Tree-explore u--packageDirPath eta-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (let ((act-25 ((IdrisC-45REPL-n--25140-9470-u--toPaths arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (LibrariesC-45UtilsC-45Path-parse "") (LibrariesC-45SystemC-45DirectoryC-45TreeC-45Tree-toRelative e-5)) eta-0))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 ((PreludeC-45Basics-flip (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (CoreC-45Core-traverseC-39 eta-1 eta-2 '() eta-3)))) e-6 (lambda (u--entry) (let ((u--entryC-39 (LibrariesC-45UtilsC-45Path-dropExtension u--entry))) (let ((u--sp (DataC-45List1-forget (DataC-45String-split (lambda (arg-9) (PreludeC-45EqOrd-u--C-61C-61_Eq_Char arg-9 (LibrariesC-45UtilsC-45Path-dirSeparator))) u--entryC-39)))) (let ((u--ns (PreludeC-45Interfaces-concat (cons (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (cons (lambda (arg-9) (lambda (arg-10) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_String arg-9 arg-10))) (PreludeC-45Types-u--neutral_Monoid_String))) (DataC-45List-intersperse "." u--sp)))) (let ((u--nsC-39 (CoreC-45NameC-45Namespace-mkNamespace u--ns))) (lambda (eta-1) (CoreC-45Core-u--catch_Catchable_Core_Error (lambda (eta-2) (let ((act-26 (IdrisC-45ProcessIdr-addImport arg-5 arg-4 arg-3 (vector (CoreC-45FC-emptyFC) 0 (CoreC-45NameC-45Namespace-nsAsModuleIdent u--nsC-39) u--nsC-39) eta-2))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (vector 1 '()))))) (lambda (u--err) (lambda (eta-2) (vector 1 (box u--err)))) eta-1)))))))) eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((u--errsC-39 (DataC-45List-catMaybes e-7))) (let ((act-27 (if (null? u--errsC-39) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "Done")) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-1) (lambda (eta-2) (IdrisC-45Error-display arg-5 arg-3 arg-1 eta-1 eta-2))) u--errsC-39 '() eta-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep e-8))))))))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (vector 1 (vector 5 e-8))))))))))))))))))))))))) +(define IdrisC-45REPL-case--process-8549 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (if (null? arg-6) (lambda (eta-0) (vector 1 (vector 12 ))) (let ((e-2 (unbox arg-6))) (let ((u--line (PreludeC-45Types-maybe (lambda () "") (lambda () (lambda (u--i) (PreludeC-45TypesC-45String-C-43C-43 " +" (PreludeC-45Show-u--show_Show_Int (bs+ u--i 1 63))))) (let ((e-6 (vector-ref arg-5 6))) e-6)))) (lambda (eta-0) (let ((act-24 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (case (vector-ref eta-1 0) ((0) (let ((e-3 (vector-ref eta-1 1))) (vector 0 e-3))) (else (vector 1 0)))) (lambda (eta-1) (let ((act-24 ((System-system (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-2) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-2)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-2) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-2) (let ((act-17 (arg-528 eta-2))) (let ((act-16 (arg-530 eta-2))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-2) (let ((act-24 (arg-811 eta-2))) ((arg-812 act-24) eta-2))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-2) (let ((act-51 (arg-814 eta-2))) (act-51 eta-2)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) (PreludeC-45TypesC-45String-C-43C-43 (let ((e-5 (vector-ref arg-5 5))) e-5) (PreludeC-45TypesC-45String-C-43C-43 " \"" (PreludeC-45TypesC-45String-C-43C-43 e-2 (PreludeC-45TypesC-45String-C-43C-43 "\"" u--line))))) eta-1))) (vector 1 act-24))) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (IdrisC-45REPL-loadMainFile arg-4 arg-3 arg-2 arg-1 arg-0 e-2 eta-0)))))))))) +(define IdrisC-45REPL-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32processEdit-5189 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 ext-0) (let ((e-2 (car arg-25))) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (IdrisC-45REPL-printClause arg-8 arg-6 e-2 arg-22 eta-0 eta-1))) arg-20 '() ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (cond ((equal? arg-3 1) (IdrisC-45REPL-updateFile arg-4 (lambda (eta-0) (IdrisC-45REPL-addClause (LibrariesC-45DataC-45StringC-45Extra-unlines e-5) (PreludeC-45Types-prim__integerToNat (PreludeC-45Cast-u--cast_Cast_Int_Integer arg-2)) eta-0)) ext-0)) (else (vector 1 (vector 0 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (PreludeC-45Types-u--map_Functor_List eta-2 eta-3))))) (lambda (eta-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String eta-0)) e-5))))))))))))) +(define IdrisC-45REPL-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32processEdit-4331 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 ext-0) (let ((e-2 (car arg-22))) (let ((e-3 (cdr arg-22))) (let ((e-6 (car e-3))) (let ((e-7 (cdr e-3))) (let ((act-24 (IdrisC-45Resugar-resugar e-2 arg-8 arg-6 e-6 e-7 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((u--itmC-39 (cond ((equal? arg-11 1) (IdrisC-45Resugar-addBracket (CoreC-45FC-replFC) e-5)) (else e-5)))) (cond ((equal? arg-3 1) (IdrisC-45REPL-updateFile arg-4 (lambda (eta-0) (IdrisC-45REPL-proofSearch arg-1 (IdrisC-45Syntax-u--show_Show_PTerm u--itmC-39) (PreludeC-45Types-prim__integerToNat (PreludeC-45Cast-u--cast_Cast_Int_Integer (PreludeC-45Num-u--C-45_Neg_Int arg-2 1))) eta-0)) ext-0)) (else (vector 1 (vector 0 (IdrisC-45REPL-prettyTerm u--itmC-39)))))))))))))))) +(define IdrisC-45REPL-case--caseC-32blockC-32inC-32processEdit-4228 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 ext-0) (if (null? arg-20) (vector 1 (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unsafeTextWithoutNewLines eta-0)) (DataC-45List1-forget (LibrariesC-45DataC-45StringC-45Extra-lines (let ((sc1 (DataC-45String-isSuffixOf "\u000a" "Not a searchable hole"))) (cond ((equal? sc1 1) (LibrariesC-45DataC-45StringC-45Extra-dropLast (+ 1 0) "Not a searchable hole")) (else "Not a searchable hole"))))))))) (let ((e-0 (unbox arg-20))) (let ((act-24 (CoreC-45Normalise-normaliseHoles arg-8 '() arg-9 '() arg-17 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (IdrisC-45REPL-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32processEdit-4331 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 e-0 e-5 (IdrisC-45REPL-dropLamsTm '() e-0 '() e-5) ext-0))))))))) +(define IdrisC-45REPL-case--processEdit-3118 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((e-2 (car arg-14))) (let ((e-3 (cdr arg-14))) (if (null? e-3) (lambda (clam-2) (if (null? e-2) (CoreC-45Context-undefinedName arg-7 (CoreC-45FC-replFC) arg-10 clam-2) (let ((e-5 (unbox e-2))) (vector 1 (vector 0 e-5))))) (let ((e-10 (unbox e-3))) (if (null? e-10) (lambda (clam-1) (if (null? e-2) (CoreC-45Context-undefinedName arg-7 (CoreC-45FC-replFC) arg-10 clam-1) (let ((e-5 (unbox e-2))) (vector 1 (vector 0 e-5))))) (let ((e-13 (car e-10))) (let ((e-14 (cdr e-10))) (if (null? e-14) (lambda (clam-0) (if (null? e-2) (CoreC-45Context-undefinedName arg-7 (CoreC-45FC-replFC) arg-10 clam-0) (let ((e-5 (unbox e-2))) (vector 1 (vector 0 e-5))))) (let ((e-18 (cdr e-14))) (lambda (eta-0) (let ((act-24 (IdrisC-45REPL-displayTerm arg-7 arg-5 arg-8 e-18 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 0 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String (CoreC-45Name-nameRoot e-13)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon) e-5)))))))))))))))))))) +(define IdrisC-45REPL-case--nextGenDef-2628 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (if (null? arg-5) (vector 1 '()) (let ((e-1 (unbox arg-5))) (let ((e-5 (car e-1))) (let ((e-6 (cdr e-1))) (let ((act-24 (TTImpC-45InteractiveC-45ExprSearch-nextResult arg-3 arg-2 e-6 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-24 1))) (if (null? e-7) (let ((act-25 (let ((act-25 (set-box! arg-1 (let ((e-0 (vector-ref arg-4 0))) (let ((e-19 (vector-ref arg-4 1))) (let ((e-2 (vector-ref arg-4 2))) (let ((e-3 (vector-ref arg-4 3))) (let ((e-4 (vector-ref arg-4 4))) (let ((e-18 (vector-ref arg-4 5))) (let ((e-17 (vector-ref arg-4 6))) (let ((e-16 (vector-ref arg-4 7))) (let ((e-8 (vector-ref arg-4 8))) (let ((e-9 (vector-ref arg-4 9))) (let ((e-11 (vector-ref arg-4 11))) (let ((e-12 (vector-ref arg-4 12))) (let ((e-13 (vector-ref arg-4 13))) (let ((e-14 (vector-ref arg-4 14))) (let ((e-15 (vector-ref arg-4 15))) (vector e-0 e-19 e-2 e-3 e-4 e-18 e-17 e-16 e-8 e-9 '() e-11 e-12 e-13 e-14 e-15))))))))))))))))))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (vector 1 '())))) (let ((e-2 (unbox e-7))) (let ((e-9 (car e-2))) (let ((e-8 (cdr e-2))) (let ((act-25 (let ((act-25 (set-box! arg-1 (let ((e-0 (vector-ref arg-4 0))) (let ((e-22 (vector-ref arg-4 1))) (let ((e-21 (vector-ref arg-4 2))) (let ((e-3 (vector-ref arg-4 3))) (let ((e-4 (vector-ref arg-4 4))) (let ((e-20 (vector-ref arg-4 5))) (let ((e-19 (vector-ref arg-4 6))) (let ((e-18 (vector-ref arg-4 7))) (let ((e-17 (vector-ref arg-4 8))) (let ((e-16 (vector-ref arg-4 9))) (let ((e-11 (vector-ref arg-4 11))) (let ((e-12 (vector-ref arg-4 12))) (let ((e-13 (vector-ref arg-4 13))) (let ((e-14 (vector-ref arg-4 14))) (let ((e-15 (vector-ref arg-4 15))) (vector e-0 e-22 e-21 e-3 e-4 e-20 e-19 e-18 e-17 e-16 (box (cons e-5 e-8)) e-11 e-12 e-13 e-14 e-15))))))))))))))))))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-3 (vector-ref act-25 1))) (vector 0 e-3))) (else (cond ((equal? arg-0 0) (vector 1 (box (cons e-5 e-9))))(else (let ((e-0 (- arg-0 1))) (IdrisC-45REPL-nextGenDef arg-3 arg-2 arg-1 e-0 ext-0))))))))))))))))))))) +(define IdrisC-45REPL-case--nextProofSearch-2432 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (if (null? arg-4) (vector 1 '()) (let ((e-1 (unbox arg-4))) (let ((e-5 (car e-1))) (let ((e-6 (cdr e-1))) (let ((act-24 (TTImpC-45InteractiveC-45ExprSearch-nextResult arg-2 arg-1 e-6 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-24 1))) (if (null? e-7) (let ((act-25 (let ((act-25 (set-box! arg-0 (let ((e-0 (vector-ref arg-3 0))) (let ((e-19 (vector-ref arg-3 1))) (let ((e-2 (vector-ref arg-3 2))) (let ((e-3 (vector-ref arg-3 3))) (let ((e-4 (vector-ref arg-3 4))) (let ((e-18 (vector-ref arg-3 5))) (let ((e-17 (vector-ref arg-3 6))) (let ((e-16 (vector-ref arg-3 7))) (let ((e-8 (vector-ref arg-3 8))) (let ((e-10 (vector-ref arg-3 10))) (let ((e-11 (vector-ref arg-3 11))) (let ((e-12 (vector-ref arg-3 12))) (let ((e-13 (vector-ref arg-3 13))) (let ((e-14 (vector-ref arg-3 14))) (let ((e-15 (vector-ref arg-3 15))) (vector e-0 e-19 e-2 e-3 e-4 e-18 e-17 e-16 e-8 '() e-10 e-11 e-12 e-13 e-14 e-15))))))))))))))))))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (vector 1 '())))) (let ((e-2 (unbox e-7))) (let ((e-9 (car e-2))) (let ((e-8 (cdr e-2))) (let ((act-25 (let ((act-25 (set-box! arg-0 (let ((e-0 (vector-ref arg-3 0))) (let ((e-22 (vector-ref arg-3 1))) (let ((e-21 (vector-ref arg-3 2))) (let ((e-3 (vector-ref arg-3 3))) (let ((e-4 (vector-ref arg-3 4))) (let ((e-20 (vector-ref arg-3 5))) (let ((e-19 (vector-ref arg-3 6))) (let ((e-18 (vector-ref arg-3 7))) (let ((e-17 (vector-ref arg-3 8))) (let ((e-10 (vector-ref arg-3 10))) (let ((e-11 (vector-ref arg-3 11))) (let ((e-12 (vector-ref arg-3 12))) (let ((e-13 (vector-ref arg-3 13))) (let ((e-14 (vector-ref arg-3 14))) (let ((e-15 (vector-ref arg-3 15))) (vector e-0 e-22 e-21 e-3 e-4 e-20 e-19 e-18 e-17 (box (cons e-5 e-8)) e-10 e-11 e-12 e-13 e-14 e-15))))))))))))))))))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-3 (vector-ref act-25 1))) (vector 0 e-3))) (else (vector 1 (box (cons e-5 e-9)))))))))))))))))))) +(define IdrisC-45REPL-case--updateFile-2001 (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (if (null? arg-3) (vector 1 (vector 0 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-emptyDoc))) (let ((e-1 (unbox arg-3))) (let ((act-24 (let ((act-24 ((SystemC-45File-readFile (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-24 (arg-811 eta-0))) ((arg-812 act-24) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-51 (arg-814 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) e-1) ext-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (case (vector-ref e-5 0) ((1) (let ((e-2 (vector-ref e-5 1))) (let ((act-25 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-3 (vector-ref eta-0 1))) (vector 0 e-3))) (else (vector 1 0)))) (lambda (eta-0) (let ((act-25 ((SystemC-45File-writeFile (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-1)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-1) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-1) (let ((act-17 (arg-528 eta-1))) (let ((act-16 (arg-530 eta-1))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-1) (let ((act-25 (arg-811 eta-1))) ((arg-812 act-25) eta-1))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-1) (let ((act-51 (arg-814 eta-1))) (act-51 eta-1)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) (PreludeC-45TypesC-45String-C-43C-43 e-1 "~") e-2) eta-0))) (vector 1 act-25))) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-3 (vector-ref act-25 1))) (vector 0 e-3))) (else (let ((act-26 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-3 (vector-ref eta-0 1))) (vector 0 e-3))) (else (vector 1 0)))) (lambda (eta-0) (let ((act-26 ((SystemC-45File-writeFile (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-1)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-1) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-1) (let ((act-17 (arg-528 eta-1))) (let ((act-16 (arg-530 eta-1))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-1) (let ((act-26 (arg-811 eta-1))) ((arg-812 act-26) eta-1))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-1) (let ((act-51 (arg-814 eta-1))) (act-51 eta-1)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) e-1 (LibrariesC-45DataC-45StringC-45Extra-unlines (arg-0 (DataC-45List1-forget (LibrariesC-45DataC-45StringC-45Extra-lines e-2))))) eta-0))) (vector 1 act-26))) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-3 (vector-ref act-26 1))) (vector 0 e-3))) (else (vector 1 (vector 0 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-emptyDoc))))))))))) (else (let ((e-6 (vector-ref e-5 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 49 e-1 e-6) ext-0)))))))))))) +(define IdrisC-45REPL-case--findCG-1710 (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (case (vector-ref arg-3 0) ((0) (vector 1 (CompilerC-45SchemeC-45Chez-codegenChez))) ((1) (vector 1 (CompilerC-45SchemeC-45ChezSep-codegenChezSep))) ((2) (vector 1 (CompilerC-45SchemeC-45Racket-codegenRacket))) ((3) (vector 1 (CompilerC-45SchemeC-45Gambit-codegenGambit))) ((4) (vector 1 (CompilerC-45ESC-45Node-codegenNode))) ((5) (vector 1 (CompilerC-45ESC-45Javascript-codegenJavascript))) ((6) (vector 1 (CompilerC-45RefCC-45RefC-codegenRefC))) (else (let ((e-0 (vector-ref arg-3 1))) (let ((act-24 (IdrisC-45REPLC-45Opts-getCodegen arg-1 e-0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (if (null? e-5) (let ((act-25 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-2 (vector-ref eta-0 1))) (vector 0 e-2))) (else (vector 1 0)))) (lambda (eta-0) (let ((act-25 ((PreludeC-45IO-putStrLn (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-1)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-1) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-1) (let ((act-17 (arg-528 eta-1))) (let ((act-16 (arg-530 eta-1))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-1) (let ((act-25 (arg-811 eta-1))) ((arg-812 act-25) eta-1))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-1) (let ((act-51 (arg-814 eta-1))) (act-51 eta-1)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) (PreludeC-45TypesC-45String-C-43C-43 "No such code generator: " e-0)) eta-0))) (vector 1 act-25))) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 ((System-exitWith (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-26 (arg-811 eta-0))) ((arg-812 act-26) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-51 (arg-814 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) (cons 1 0)) ext-0))) (vector 1 act-26))))) (let ((e-1 (unbox e-5))) (vector 1 e-1)))))))))))) +(define IdrisC-45REPL-n--25140-9470-u--toPaths (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (LibrariesC-45SystemC-45DirectoryC-45Tree-depthFirst (lambda (root-9484) (lambda (u--x) (lambda (eta-0) (lambda (eta-4) (PreludeC-45IO-u--map_Functor_IO (lambda (arg-8) (cons (LibrariesC-45SystemC-45DirectoryC-45Tree-toFilePath root-9484 u--x) arg-8)) (eta-0) eta-4))))) arg-6 arg-7 (lambda (eta-0) '())))) +(define IdrisC-45REPL-n--18625-2186-u--replaceStr (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (cond ((equal? arg-6 "") "")(else (let ((sc0 (DataC-45String-isPrefixOf arg-4 arg-6))) (cond ((equal? sc0 1) (PreludeC-45TypesC-45String-C-43C-43 arg-5 (PreludeC-45Types-fastPack (DataC-45List-drop (PreludeC-45TypesC-45String-length arg-4) (PreludeC-45Types-fastUnpack arg-6))))) (else (PreludeC-45Types-strCons (string-ref arg-6 0) (IdrisC-45REPL-n--18625-2186-u--replaceStr arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (substring arg-6 1 (string-length arg-6))))))))))) +(define IdrisC-45REPL-n--27583-10066-u--prompt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (cond ((equal? arg-5 0) "[tc] ") ((equal? arg-5 1) "") (else "[exec] ")))) +(define IdrisC-45REPL-n--19474-2933-u--match (lambda (arg-0 arg-1 arg-2 arg-3) (let ((e-3 (cdr arg-3))) (let ((sc1 (CoreC-45Name-matches arg-1 e-3))) (cond ((equal? sc1 1) (PreludeC-45Types-u--C-61C-61_Eq_C-40MaybeC-32C-36aC-41 (cons (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-61C-61_Eq_String arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_String arg-4 arg-5)))) (CoreC-45Name-userNameRoot e-3) (CoreC-45Name-userNameRoot arg-1))) (else 0)))))) +(define IdrisC-45REPL-n--27621-10819-u--makeSpace (lambda (arg-0) (PreludeC-45Types-fastPack (PreludeC-45Types-take arg-0 (DataC-45Stream-repeat #\ ))))) +(define IdrisC-45REPL-n--18706-2257-u--insertInBlank (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (if (null? arg-7) (cons (ParserC-45Unlit-relit arg-6 (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name arg-4) (PreludeC-45TypesC-45String-C-43C-43 " : " (PreludeC-45TypesC-45String-C-43C-43 arg-3 "\u000a")))) '()) (let ((e-2 (car arg-7))) (let ((e-3 (cdr arg-7))) (let ((sc1 (PreludeC-45EqOrd-u--C-61C-61_Eq_String (DataC-45String-trim e-2) ""))) (cond ((equal? sc1 1) (cons (PreludeC-45TypesC-45String-C-43C-43 "\u000a" (ParserC-45Unlit-relit arg-6 (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name arg-4) (PreludeC-45TypesC-45String-C-43C-43 " : " (PreludeC-45TypesC-45String-C-43C-43 arg-3 "\u000a"))))) e-3)) (else (cons e-2 (IdrisC-45REPL-n--18706-2257-u--insertInBlank arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3)))))))))) +(define IdrisC-45REPL-n--24460-7178-u--execDecl (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 ((IdrisC-45Desugar-desugarDecl arg-3 arg-5 arg-4 arg-2 '() arg-6) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-resolveName arg-5 (vector 1 "[defs]") ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Core-newRef (vector "TTImp.Elab.Check.EST" ) (TTImpC-45ElabC-45Check-initEStateSub '() e-6 '() (vector 0 )) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (IdrisC-45REPL-getItDecls arg-1 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (IdrisC-45REPL-processLocal '() arg-5 arg-2 arg-4 e-7 '() '() '() e-8 e-5 ext-0))))))))))))))))))) +(define IdrisC-45REPL-n--25035-7687-u--elabMode (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (cond ((equal? arg-7 0) (vector 0 ))(else (vector 2 ))))) +(define IdrisC-45REPL-n--27621-10820-u--col (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (PreludeC-45TypesC-45String-C-43C-43 arg-2 (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45REPL-n--27621-10819-u--makeSpace (PreludeC-45Types-prim__integerToNat (- arg-0 (PreludeC-45TypesC-45String-length arg-2)))) (PreludeC-45TypesC-45String-C-43C-43 arg-3 (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45REPL-n--27621-10819-u--makeSpace (PreludeC-45Types-prim__integerToNat (- arg-1 (PreludeC-45TypesC-45String-length arg-3)))) arg-4)))))) +(define IdrisC-45REPL-n--19474-2932-u--cmp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((e-2 (car arg-3))) (let ((e-3 (cdr arg-3))) (let ((e-6 (car e-2))) (let ((e-7 (cdr e-2))) (let ((e-10 (car e-3))) (let ((e-11 (cdr e-3))) (let ((e-14 (car arg-4))) (let ((e-15 (cdr arg-4))) (let ((e-18 (car e-14))) (let ((e-19 (cdr e-14))) (let ((e-22 (car e-15))) (let ((e-23 (cdr e-15))) (PreludeC-45EqOrd-u--compare_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector (cons (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-5 arg-6)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) (vector (cons (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-5 arg-6)))) (lambda (arg-354) (lambda (arg-355) (PreludeC-45EqOrd-u--compare_Ord_Int arg-354 arg-355))) (lambda (arg-356) (lambda (arg-357) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-356 arg-357))) (lambda (arg-358) (lambda (arg-359) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-358 arg-359))) (lambda (arg-360) (lambda (arg-361) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-360 arg-361))) (lambda (arg-362) (lambda (arg-363) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-362 arg-363))) (lambda (arg-364) (lambda (arg-365) (PreludeC-45EqOrd-u--max_Ord_Int arg-364 arg-365))) (lambda (arg-366) (lambda (arg-367) (PreludeC-45EqOrd-u--min_Ord_Int arg-366 arg-367)))) (cons (PreludeC-45Num-u--C-45_Neg_Int e-10 e-6) (PreludeC-45Num-u--C-45_Neg_Int e-11 e-7)) (cons (PreludeC-45Num-u--C-45_Neg_Int e-22 e-18) (PreludeC-45Num-u--C-45_Neg_Int e-23 e-19))))))))))))))))) +(define IdrisC-45REPL-n--27621-10821-u--cmdInfo (lambda (arg-0) (let ((e-2 (car arg-0))) (let ((e-3 (cdr arg-0))) (let ((e-6 (car e-3))) (let ((e-7 (cdr e-3))) (PreludeC-45TypesC-45String-C-43C-43 " " (IdrisC-45REPL-n--27621-10820-u--col (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))))))))))) (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))))))))))))) (CoreC-45NameC-45Namespace-showSep " " e-2) (IdrisC-45Parser-u--show_Show_CmdArg e-6) e-7)))))))) +(define IdrisC-45REPL-n--18837-2374-u--addW (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (cond ((equal? arg-4 0) (if (null? arg-6) '() (let ((e-3 (cdr arg-6))) (PreludeC-45TypesC-45List-C-43C-43 (DataC-45List-reverse arg-5) (PreludeC-45TypesC-45List-C-43C-43 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (ParserC-45Unlit-relit arg-3 eta-0)) arg-2) e-3)))))(else (let ((e-0 (- arg-4 1))) (if (null? arg-6) (DataC-45List-reverse arg-5) (let ((e-6 (car arg-6))) (let ((e-7 (cdr arg-6))) (IdrisC-45REPL-n--18837-2374-u--addW arg-0 arg-1 arg-2 arg-3 e-0 (cons e-6 arg-5) e-7))))))))) +(define IdrisC-45REPL-n--18706-2258-u--addApp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (cond ((equal? arg-7 0) (PreludeC-45TypesC-45List-C-43C-43 (DataC-45List-reverse (IdrisC-45REPL-n--18706-2257-u--insertInBlank arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-8)) arg-9))(else (let ((e-0 (- arg-7 1))) (if (null? arg-9) (DataC-45List-reverse arg-8) (let ((e-2 (car arg-9))) (let ((e-3 (cdr arg-9))) (IdrisC-45REPL-n--18706-2258-u--addApp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-0 (cons e-2 arg-8) e-3))))))))) +(define IdrisC-45REPL-updateFile (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (IdrisC-45REPL-case--updateFile-2001 arg-1 arg-0 e-5 (let ((e-2 (vector-ref e-5 2))) e-2) ext-0))))))) +(define IdrisC-45REPL-showInfo (lambda (arg-0 arg-1 ext-0) (let ((e-3 (cdr arg-1))) (let ((e-7 (cdr e-3))) (let ((act-24 (let ((act-24 (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-0) (CoreC-45Context-u--full_HasNames_Def arg-3841 arg-3842 eta-0)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-0) (CoreC-45Context-u--resolved_HasNames_Def arg-3843 arg-3844 eta-0))))) (let ((e-17 (vector-ref e-7 17))) e-17) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-4 (vector-ref eta-0 1))) (vector 0 e-4))) (else (vector 1 0)))) (lambda (eta-0) (let ((act-25 ((PreludeC-45IO-putStrLn (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-1)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-1) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-1) (let ((act-17 (arg-528 eta-1))) (let ((act-16 (arg-530 eta-1))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-1) (let ((act-25 (arg-811 eta-1))) ((arg-812 act-25) eta-1))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-1) (let ((act-51 (arg-814 eta-1))) (act-51 eta-1)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name (let ((e-1 (vector-ref e-7 1))) e-1)) (PreludeC-45TypesC-45String-C-43C-43 " ==> " (CoreC-45Context-u--show_Show_Def e-5)))) eta-0))) (vector 1 act-25))) ext-0))))))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((act-25 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-4 (vector-ref eta-0 1))) (vector 0 e-4))) (else (vector 1 0)))) (lambda (eta-0) (let ((act-25 ((PreludeC-45IO-putStrLn (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-1)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-1) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-1) (let ((act-17 (arg-528 eta-1))) (let ((act-16 (arg-530 eta-1))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-1) (let ((act-25 (arg-811 eta-1))) ((arg-812 act-25) eta-1))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-1) (let ((act-51 (arg-814 eta-1))) (act-51 eta-1)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) (AlgebraC-45ZeroOneOmega-u--show_Show_ZeroOneOmega (let ((e-21 (vector-ref e-7 7))) e-21))) eta-0))) (vector 1 act-25))) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((act-26 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-4 (vector-ref eta-0 1))) (vector 0 e-4))) (else (vector 1 0)))) (lambda (eta-0) (let ((act-26 ((PreludeC-45IO-putStrLn (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-1)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-1) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-1) (let ((act-17 (arg-528 eta-1))) (let ((act-16 (arg-530 eta-1))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-1) (let ((act-26 (arg-811 eta-1))) ((arg-812 act-26) eta-1))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-1) (let ((act-51 (arg-814 eta-1))) (act-51 eta-1)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) (PreludeC-45TypesC-45String-C-43C-43 "Erasable args: " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_Nat u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_Nat u--d u--x)))) (let ((e-25 (vector-ref e-7 3))) e-25)))) eta-0))) (vector 1 act-26))) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-4 (vector-ref act-26 1))) (vector 0 e-4))) (else (let ((act-27 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-4 (vector-ref eta-0 1))) (vector 0 e-4))) (else (vector 1 0)))) (lambda (eta-0) (let ((act-27 ((PreludeC-45IO-putStrLn (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-1)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-1) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-1) (let ((act-17 (arg-528 eta-1))) (let ((act-16 (arg-530 eta-1))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-1) (let ((act-27 (arg-811 eta-1))) ((arg-812 act-27) eta-1))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-1) (let ((act-51 (arg-814 eta-1))) (act-51 eta-1)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) (PreludeC-45TypesC-45String-C-43C-43 "Detaggable arg types: " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_Nat u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_Nat u--d u--x)))) (let ((e-4 (vector-ref e-7 4))) e-4)))) eta-0))) (vector 1 act-27))) ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-4 (vector-ref act-27 1))) (vector 0 e-4))) (else (let ((act-28 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-4 (vector-ref eta-0 1))) (vector 0 e-4))) (else (vector 1 0)))) (lambda (eta-0) (let ((act-28 ((PreludeC-45IO-putStrLn (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-1)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-1) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-1) (let ((act-17 (arg-528 eta-1))) (let ((act-16 (arg-530 eta-1))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-1) (let ((act-28 (arg-811 eta-1))) ((arg-812 act-28) eta-1))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-1) (let ((act-51 (arg-814 eta-1))) (act-51 eta-1)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) (PreludeC-45TypesC-45String-C-43C-43 "Specialise args: " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_Nat u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_Nat u--d u--x)))) (let ((e-26 (vector-ref e-7 5))) e-26)))) eta-0))) (vector 1 act-28))) ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-4 (vector-ref act-28 1))) (vector 0 e-4))) (else (let ((act-29 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-4 (vector-ref eta-0 1))) (vector 0 e-4))) (else (vector 1 0)))) (lambda (eta-0) (let ((act-29 ((PreludeC-45IO-putStrLn (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-1)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-1) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-1) (let ((act-17 (arg-528 eta-1))) (let ((act-16 (arg-530 eta-1))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-1) (let ((act-29 (arg-811 eta-1))) ((arg-812 act-29) eta-1))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-1) (let ((act-51 (arg-814 eta-1))) (act-51 eta-1)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) (PreludeC-45TypesC-45String-C-43C-43 "Inferrable args: " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_Nat u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_Nat u--d u--x)))) (let ((e-26 (vector-ref e-7 6))) e-26)))) eta-0))) (vector 1 act-29))) ext-0))) (case (vector-ref act-29 0) ((0) (let ((e-4 (vector-ref act-29 1))) (vector 0 e-4))) (else (let ((act-30 (let ((e-18 (vector-ref e-7 18))) (if (null? e-18) (vector 1 0) (let ((e-31 (unbox e-18))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-32 (vector-ref eta-0 1))) (vector 0 e-32))) (else (vector 1 0)))) (lambda (eta-0) (let ((act-30 ((PreludeC-45IO-putStrLn (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-1)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-1) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-1) (let ((act-17 (arg-528 eta-1))) (let ((act-16 (arg-530 eta-1))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-1) (let ((act-30 (arg-811 eta-1))) ((arg-812 act-30) eta-1))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-1) (let ((act-51 (arg-814 eta-1))) (act-51 eta-1)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) (PreludeC-45TypesC-45String-C-43C-43 "Compiled: " (CoreC-45CompileExpr-u--show_Show_CDef e-31))) eta-0))) (vector 1 act-30))) ext-0)))))) (case (vector-ref act-30 0) ((0) (let ((e-4 (vector-ref act-30 1))) (vector 0 e-4))) (else (let ((act-31 (let ((act-31 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (CoreC-45Context-getFullName arg-0 eta-0 eta-1))) (LibrariesC-45DataC-45NameMap-keys (CoreC-45Context-refersTo e-7)) '() ext-0))) (case (vector-ref act-31 0) ((0) (let ((e-4 (vector-ref act-31 1))) (vector 0 e-4))) (else (let ((e-14 (vector-ref act-31 1))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-4 (vector-ref eta-0 1))) (vector 0 e-4))) (else (vector 1 0)))) (lambda (eta-0) (let ((act-32 ((PreludeC-45IO-putStrLn (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-1)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-1) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-1) (let ((act-17 (arg-528 eta-1))) (let ((act-16 (arg-530 eta-1))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-1) (let ((act-32 (arg-811 eta-1))) ((arg-812 act-32) eta-1))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-1) (let ((act-51 (arg-814 eta-1))) (act-51 eta-1)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) (PreludeC-45TypesC-45String-C-43C-43 "Refers to: " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45Name-u--show_Show_Name u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Name-u--showPrec_Show_Name u--d u--x)))) e-14))) eta-0))) (vector 1 act-32))) ext-0))))))) (case (vector-ref act-31 0) ((0) (let ((e-4 (vector-ref act-31 1))) (vector 0 e-4))) (else (let ((act-32 (let ((act-32 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (CoreC-45Context-getFullName arg-0 eta-0 eta-1))) (LibrariesC-45DataC-45NameMap-keys (CoreC-45Context-refersToRuntime e-7)) '() ext-0))) (case (vector-ref act-32 0) ((0) (let ((e-4 (vector-ref act-32 1))) (vector 0 e-4))) (else (let ((e-15 (vector-ref act-32 1))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-4 (vector-ref eta-0 1))) (vector 0 e-4))) (else (vector 1 0)))) (lambda (eta-0) (let ((act-33 ((PreludeC-45IO-putStrLn (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-1)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-1) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-1) (let ((act-17 (arg-528 eta-1))) (let ((act-16 (arg-530 eta-1))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-1) (let ((act-33 (arg-811 eta-1))) ((arg-812 act-33) eta-1))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-1) (let ((act-51 (arg-814 eta-1))) (act-51 eta-1)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) (PreludeC-45TypesC-45String-C-43C-43 "Refers to (runtime): " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45Name-u--show_Show_Name u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Name-u--showPrec_Show_Name u--d u--x)))) e-15))) eta-0))) (vector 1 act-33))) ext-0))))))) (case (vector-ref act-32 0) ((0) (let ((e-4 (vector-ref act-32 1))) (vector 0 e-4))) (else (let ((act-33 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-4 (vector-ref eta-0 1))) (vector 0 e-4))) (else (vector 1 0)))) (lambda (eta-0) (let ((act-33 ((PreludeC-45IO-putStrLn (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-1)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-1) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-1) (let ((act-17 (arg-528 eta-1))) (let ((act-16 (arg-530 eta-1))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-1) (let ((act-33 (arg-811 eta-1))) ((arg-812 act-33) eta-1))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-1) (let ((act-51 (arg-814 eta-1))) (act-51 eta-1)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) (PreludeC-45TypesC-45String-C-43C-43 "Flags: " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (CoreC-45Context-u--show_Show_DefFlag u--x)) (lambda (u--d) (lambda (u--x) (CoreC-45Context-u--showPrec_Show_DefFlag u--d u--x)))) (let ((e-25 (vector-ref e-7 11))) e-25)))) eta-0))) (vector 1 act-33))) ext-0))) (case (vector-ref act-33 0) ((0) (let ((e-4 (vector-ref act-33 1))) (vector 0 e-4))) (else (let ((act-34 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-2) (CoreC-45Context-u--full_HasNames_SCCall arg-3841 arg-3842 eta-2)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-2) (CoreC-45Context-u--resolved_HasNames_SCCall arg-3843 arg-3844 eta-2))))) eta-0 eta-1))) (let ((e-20 (vector-ref e-7 20))) e-20) '() ext-0))) (case (vector-ref act-34 0) ((0) (let ((e-4 (vector-ref act-34 1))) (vector 0 e-4))) (else (let ((e-17 (vector-ref act-34 1))) (let ((sc13 (DataC-45List-isNil (let ((e-20 (vector-ref e-7 20))) e-20)))) (cond ((equal? sc13 1) (vector 1 0)) (else (((let ((u--scinfo (PreludeC-45Types-u--map_Functor_List (lambda (u--s) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name (let ((e-0 (car u--s))) e-0)) (PreludeC-45TypesC-45String-C-43C-43 ": " (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_Nat x-1)) (lambda (u--d) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_Nat u--d x-1)))) (cons (lambda (x-1) (CoreC-45Context-u--show_Show_SizeChange x-1)) (lambda (u--d) (lambda (x-1) (CoreC-45Context-u--showPrec_Show_SizeChange u--d x-1))))) x-0)) (lambda (u--d) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_Nat x-1)) (lambda (d-0) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_Nat d-0 x-1)))) (cons (lambda (x-1) (CoreC-45Context-u--show_Show_SizeChange x-1)) (lambda (d-0) (lambda (x-1) (CoreC-45Context-u--showPrec_Show_SizeChange d-0 x-1))))) u--d x-0)))) u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_C-40MaybeC-32C-36aC-41 (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_Nat x-1)) (lambda (d-0) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_Nat d-0 x-1)))) (cons (lambda (x-1) (CoreC-45Context-u--show_Show_SizeChange x-1)) (lambda (d-0) (lambda (x-1) (CoreC-45Context-u--showPrec_Show_SizeChange d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-1) (PreludeC-45Show-u--show_Show_Nat x-1)) (lambda (d-1) (lambda (x-1) (PreludeC-45Show-u--showPrec_Show_Nat d-1 x-1)))) (cons (lambda (x-1) (CoreC-45Context-u--show_Show_SizeChange x-1)) (lambda (d-1) (lambda (x-1) (CoreC-45Context-u--showPrec_Show_SizeChange d-1 x-1))))) d-0 x-0)))) u--d u--x)))) (let ((e-1 (cdr u--s))) e-1))))) e-17))) (lambda () (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (case (vector-ref eta-1 0) ((0) (let ((e-4 (vector-ref eta-1 1))) (vector 0 e-4))) (else (vector 1 0)))) (lambda (eta-1) (let ((act-35 ((PreludeC-45IO-putStrLn (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-2) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-2)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-2) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-2) (let ((act-17 (arg-528 eta-2))) (let ((act-16 (arg-530 eta-2))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-2) (let ((act-35 (arg-811 eta-2))) ((arg-812 act-35) eta-2))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-2) (let ((act-51 (arg-814 eta-2))) (act-51 eta-2)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) (PreludeC-45TypesC-45String-C-43C-43 "Size change: " (CoreC-45NameC-45Namespace-showSep ", " u--scinfo))) eta-1))) (vector 1 act-35))) eta-0))))) ext-0)))))))))))))))))))))))))))))))))))))))))) +(define IdrisC-45REPL-setOpt (lambda (arg-0 arg-1 arg-2 ext-0) (case (vector-ref arg-2 0) ((0) (let ((e-0 (vector-ref arg-2 1))) (let ((act-24 (CoreC-45Context-getPPrint arg-0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (CoreC-45Context-setPPrint arg-0 (let ((e-1 (vector-ref e-5 1))) (let ((e-2 (vector-ref e-5 2))) (vector e-0 e-1 e-2))) ext-0))))))) ((1) (let ((e-1 (vector-ref arg-2 1))) (let ((act-24 (CoreC-45Context-getPPrint arg-0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (CoreC-45Context-setPPrint arg-0 (let ((e-0 (vector-ref e-5 0))) (let ((e-3 (vector-ref e-5 1))) (vector e-0 e-3 e-1))) ext-0))))))) ((2) (let ((e-2 (vector-ref arg-2 1))) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (set-box! arg-1 (let ((e-1 (vector-ref e-5 1))) (let ((e-17 (vector-ref e-5 2))) (let ((e-3 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-16 (vector-ref e-5 5))) (let ((e-6 (vector-ref e-5 6))) (let ((e-7 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (let ((e-10 (vector-ref e-5 10))) (let ((e-11 (vector-ref e-5 11))) (let ((e-12 (vector-ref e-5 12))) (let ((e-13 (vector-ref e-5 13))) (let ((e-14 (vector-ref e-5 14))) (let ((e-15 (vector-ref e-5 15))) (vector e-2 e-1 e-17 e-3 e-4 e-16 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15))))))))))))))))))) (vector 1 act-25)))))))) ((3) (let ((e-3 (vector-ref arg-2 1))) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (set-box! arg-1 (let ((e-0 (vector-ref e-5 0))) (let ((e-2 (vector-ref e-5 2))) (let ((e-17 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-16 (vector-ref e-5 5))) (let ((e-6 (vector-ref e-5 6))) (let ((e-7 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (let ((e-10 (vector-ref e-5 10))) (let ((e-11 (vector-ref e-5 11))) (let ((e-12 (vector-ref e-5 12))) (let ((e-13 (vector-ref e-5 13))) (let ((e-14 (vector-ref e-5 14))) (let ((e-15 (vector-ref e-5 15))) (vector e-0 e-3 e-2 e-17 e-4 e-16 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15))))))))))))))))))) (vector 1 act-25)))))))) ((4) (let ((e-4 (vector-ref arg-2 1))) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (set-box! arg-1 (let ((e-0 (vector-ref e-5 0))) (let ((e-1 (vector-ref e-5 1))) (let ((e-2 (vector-ref e-5 2))) (let ((e-3 (vector-ref e-5 3))) (let ((e-17 (vector-ref e-5 4))) (let ((e-6 (vector-ref e-5 6))) (let ((e-7 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (let ((e-10 (vector-ref e-5 10))) (let ((e-11 (vector-ref e-5 11))) (let ((e-12 (vector-ref e-5 12))) (let ((e-13 (vector-ref e-5 13))) (let ((e-14 (vector-ref e-5 14))) (let ((e-15 (vector-ref e-5 15))) (vector e-0 e-1 e-2 e-3 e-17 e-4 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15))))))))))))))))))) (vector 1 act-25)))))))) ((5) (let ((e-5 (vector-ref arg-2 1))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-24 1))) (let ((sc2 (CoreC-45Options-getCG (let ((e-4 (vector-ref e-6 4))) e-4) e-5))) (if (null? sc2) (IdrisC-45REPLC-45Common-iputStrLn arg-0 arg-1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "No such code generator available") ext-0) (let ((e-1 (unbox sc2))) (CoreC-45Context-setCG arg-0 e-1 ext-0)))))))))) (else (let ((e-6 (vector-ref arg-2 1))) (let ((act-24 (CoreC-45Context-getSession arg-0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (CoreC-45Context-setSession arg-0 (let ((e-0 (vector-ref e-5 0))) (let ((e-1 (vector-ref e-5 1))) (let ((e-2 (vector-ref e-5 2))) (let ((e-3 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-20 (vector-ref e-5 5))) (let ((e-19 (vector-ref e-5 6))) (let ((e-7 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (let ((e-10 (vector-ref e-5 10))) (let ((e-11 (vector-ref e-5 11))) (let ((e-12 (vector-ref e-5 12))) (let ((e-13 (vector-ref e-5 13))) (let ((e-15 (vector-ref e-5 15))) (let ((e-16 (vector-ref e-5 16))) (let ((e-17 (vector-ref e-5 17))) (let ((e-18 (vector-ref e-5 18))) (vector e-0 e-1 e-2 e-3 e-4 e-20 e-19 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-6 e-15 e-16 e-17 e-18))))))))))))))))))) ext-0)))))))))) (define IdrisC-45REPL-rtrim (lambda (arg-0) (PreludeC-45Types-reverse (DataC-45String-ltrim (PreludeC-45Types-reverse arg-0))))) -(define IdrisC-45REPL-replEval (lambda (arg-0 arg-1 arg-2 ext-2 ext-1 ext-0) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (CoreC-45Normalise-normaliseAll arg-0 arg-1 ext-2 ext-1 ext-0 eta-0)))(else (lambda (eta-0) (CoreC-45Normalise-normalise arg-0 arg-1 ext-2 ext-1 ext-0 eta-0))))))) -(define IdrisC-45REPL-replCmd (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((sc0 arg-5)) (cond ((equal? sc0 "") (vector 1 (vector 0 )))(else (let ((act-24 (IdrisC-45REPL-interpret arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((IdrisC-45REPL-displayResult arg-0 arg-1 arg-2 arg-3 arg-4 e-5) ext-0))))))))))) -(define IdrisC-45REPL-repl (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (CoreC-45Context-getNS arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (unbox arg-4))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc2 eta-0)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))) (lambda (eta-0) (let ((act-26 ((PreludeC-45IO-putStr (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-1)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-1) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-1) (let ((act-17 (arg-578 eta-1))) (let ((act-16 (arg-580 eta-1))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-1) (let ((act-26 (arg-876 eta-1))) ((arg-877 act-26) eta-1))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-1) (let ((act-51 (arg-879 eta-1))) (act-51 eta-1)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45REPL-n--38676-9883-u--prompt arg-4 arg-3 arg-2 arg-1 arg-0 (let ((sc2 e-6)) (let ((e-1 (vector-ref sc2 2))) e-1))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-u--show_Show_Namespace e-5) "> "))) eta-0))) (vector 1 act-26))) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-27 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc3 eta-0)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))) (lambda (eta-0) (let ((act-27 ((SystemC-45File-fflush (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-1)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-1) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-1) (let ((act-17 (arg-578 eta-1))) (let ((act-16 (arg-580 eta-1))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-1) (let ((act-27 (arg-876 eta-1))) ((arg-877 act-27) eta-1))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-1) (let ((act-51 (arg-879 eta-1))) (act-51 eta-1)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) (SystemC-45File-stdout)) eta-0))) (vector 1 act-27))) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-28 (let ((act-28 ((PreludeC-45IO-getLine (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-0)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-0) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (let ((act-17 (arg-578 eta-0))) (let ((act-16 (arg-580 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (let ((act-28 (arg-876 eta-0))) ((arg-877 act-28) eta-0))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-0) (let ((act-51 (arg-879 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-7803) arg-7803)))) ext-0))) (vector 1 act-28)))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-29 (let ((act-29 ((SystemC-45File-fEOF (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-0)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-0) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (let ((act-17 (arg-578 eta-0))) (let ((act-16 (arg-580 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (let ((act-29 (arg-876 eta-0))) ((arg-877 act-29) eta-0))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-0) (let ((act-51 (arg-879 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) (SystemC-45File-stdin)) ext-0))) (vector 1 act-29)))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc5 1))) (let ((sc6 e-10)) (cond ((equal? sc6 0) (let ((act-30 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc7 eta-0)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))) (lambda (eta-0) (let ((act-30 ((PreludeC-45IO-putStrLn (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-1)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-1) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-1) (let ((act-17 (arg-578 eta-1))) (let ((act-16 (arg-580 eta-1))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-1) (let ((act-30 (arg-876 eta-1))) ((arg-877 act-30) eta-1))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-1) (let ((act-51 (arg-879 eta-1))) (act-51 eta-1)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) "") eta-0))) (vector 1 act-30))) ext-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (IdrisC-45REPLC-45Common-iputStrLn arg-4 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "Bye for now!") ext-0)))))) (else (let ((act-30 (IdrisC-45REPL-interpret arg-0 arg-1 arg-2 arg-3 arg-4 e-9 ext-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc7 1))) (IdrisC-45REPL-handleResult arg-0 arg-1 arg-2 arg-3 arg-4 e-11 ext-0))))))))))))))))))))))))))))))))))))))) -(define IdrisC-45REPL-proofSearch (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (let ((sc1 arg-3)) (if (null? sc1) (let ((sc2 arg-3)) '()) (let ((e-3 (car sc1))) (let ((e-4 (cdr sc1))) (cons (IdrisC-45REPL-n--29995-2211-u--replaceStr e-3 e-4 arg-1 arg-0 (PreludeC-45TypesC-45String-C-43C-43 "?" (CoreC-45Name-u--show_Show_Name arg-0)) arg-1 e-3) e-4))))))(else (let ((e-1 (- arg-2 1))) (let ((sc0 arg-3)) (if (null? sc0) (let ((sc1 arg-3)) '()) (let ((e-6 (car sc0))) (let ((e-7 (cdr sc0))) (cons e-6 (IdrisC-45REPL-proofSearch arg-0 arg-1 e-1 e-7)))))))))))) +(define IdrisC-45REPL-replEval (lambda (arg-0 arg-1 arg-2 ext-2 ext-1 ext-0) (cond ((equal? arg-2 1) (lambda (eta-0) (CoreC-45Normalise-normaliseOpts arg-0 arg-1 (let ((sc1 (CoreC-45Value-withAll))) (let ((e-0 (vector-ref sc1 0))) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((e-3 (vector-ref sc1 3))) (let ((e-4 (vector-ref sc1 4))) (let ((e-5 (vector-ref sc1 5))) (let ((e-6 (vector-ref sc1 6))) (vector e-0 e-1 e-2 e-3 e-4 e-5 e-6 0))))))))) ext-2 ext-1 ext-0 eta-0)))(else (lambda (eta-0) (CoreC-45Normalise-normalise arg-0 arg-1 ext-2 ext-1 ext-0 eta-0)))))) +(define IdrisC-45REPL-replCmd (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (cond ((equal? arg-5 "") (vector 1 0))(else (let ((act-24 (IdrisC-45REPL-interpret arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) ((IdrisC-45REPL-displayResult arg-0 arg-1 arg-2 arg-3 arg-4 e-5) ext-0))))))))) +(define IdrisC-45REPL-repl (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (CoreC-45Context-getNS arg-0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (let ((act-25 (unbox arg-4))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-2 (vector-ref eta-0 1))) (vector 0 e-2))) (else (vector 1 0)))) (lambda (eta-0) (let ((act-26 ((PreludeC-45IO-putStr (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-1)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-1) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-1) (let ((act-17 (arg-528 eta-1))) (let ((act-16 (arg-530 eta-1))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-1) (let ((act-26 (arg-811 eta-1))) ((arg-812 act-26) eta-1))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-1) (let ((act-51 (arg-814 eta-1))) (act-51 eta-1)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45REPL-n--27583-10066-u--prompt arg-4 arg-3 arg-2 arg-1 arg-0 (let ((e-1 (vector-ref e-6 1))) e-1)) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-u--show_Show_Namespace e-5) "> "))) eta-0))) (vector 1 act-26))) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((act-27 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-2 (vector-ref eta-0 1))) (vector 0 e-2))) (else (vector 1 0)))) (lambda (eta-0) (let ((act-27 ((SystemC-45File-fflush (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-1)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-1) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-1) (let ((act-17 (arg-528 eta-1))) (let ((act-16 (arg-530 eta-1))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-1) (let ((act-27 (arg-811 eta-1))) ((arg-812 act-27) eta-1))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-1) (let ((act-51 (arg-814 eta-1))) (act-51 eta-1)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) (SystemC-45File-stdout)) eta-0))) (vector 1 act-27))) ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((act-28 (let ((act-28 ((PreludeC-45IO-getLine (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-28 (arg-811 eta-0))) ((arg-812 act-28) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-51 (arg-814 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-6881) arg-6881)))) ext-0))) (vector 1 act-28)))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-28 1))) (let ((act-29 (let ((act-29 ((SystemC-45File-fEOF (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-29 (arg-811 eta-0))) ((arg-812 act-29) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-51 (arg-814 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) (SystemC-45File-stdin)) ext-0))) (vector 1 act-29)))) (case (vector-ref act-29 0) ((0) (let ((e-2 (vector-ref act-29 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref act-29 1))) (cond ((equal? e-10 1) (let ((act-30 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-2 (vector-ref eta-0 1))) (vector 0 e-2))) (else (vector 1 0)))) (lambda (eta-0) (let ((act-30 ((PreludeC-45IO-putStrLn (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-1)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-1) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-1) (let ((act-17 (arg-528 eta-1))) (let ((act-16 (arg-530 eta-1))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-1) (let ((act-30 (arg-811 eta-1))) ((arg-812 act-30) eta-1))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-1) (let ((act-51 (arg-814 eta-1))) (act-51 eta-1)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) "") eta-0))) (vector 1 act-30))) ext-0))) (case (vector-ref act-30 0) ((0) (let ((e-2 (vector-ref act-30 1))) (vector 0 e-2))) (else (IdrisC-45REPLC-45Common-iputStrLn arg-0 arg-4 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "Bye for now!") ext-0))))) (else (let ((act-30 (IdrisC-45REPL-interpret arg-0 arg-1 arg-2 arg-3 arg-4 e-9 ext-0))) (case (vector-ref act-30 0) ((0) (let ((e-2 (vector-ref act-30 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref act-30 1))) (IdrisC-45REPL-handleResult arg-0 arg-1 arg-2 arg-3 arg-4 e-11 ext-0))))))))))))))))))))))))))))))) +(define IdrisC-45REPL-proofSearch (lambda (arg-0 arg-1 arg-2 arg-3) (cond ((equal? arg-2 0) (if (null? arg-3) '() (let ((e-3 (car arg-3))) (let ((e-4 (cdr arg-3))) (cons (IdrisC-45REPL-n--18625-2186-u--replaceStr e-3 e-4 arg-1 arg-0 (PreludeC-45TypesC-45String-C-43C-43 "?" (CoreC-45Name-u--show_Show_Name arg-0)) arg-1 e-3) e-4)))))(else (let ((e-1 (- arg-2 1))) (if (null? arg-3) '() (let ((e-6 (car arg-3))) (let ((e-7 (cdr arg-3))) (cons e-6 (IdrisC-45REPL-proofSearch arg-0 arg-1 e-1 e-7)))))))))) (define IdrisC-45REPL-processLocal (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 ext-0) (TTImpC-45ElabC-45Local-localHelper arg-0 arg-1 arg-2 arg-3 arg-4 arg-6 arg-7 arg-8 (lambda (u--nestC-39) (lambda (eta-0) (CoreC-45Core-traverse_ (lambda (eta-1) (TTImpC-45ElabC-45Check-processDecl arg-0 arg-1 arg-2 arg-3 arg-5 u--nestC-39 arg-7 eta-1)) arg-9 eta-0))) ext-0))) -(define IdrisC-45REPL-processEdit (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (unbox arg-3))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((u--name (DataC-45Maybe-fromMaybe (lambda () e-2) (IdrisC-45REPL-findInTree (cons (PreludeC-45Num-u--C-45_Neg_Int e-0 1) (PreludeC-45Num-u--C-45_Neg_Int e-1 1)) e-2 (let ((sc3 e-6)) (let ((e-7 (vector-ref sc3 6))) e-7)))))) (let ((act-26 ((CoreC-45Context-lookupCtxtName u--name (let ((sc3 e-5)) (let ((e-32 (vector-ref sc3 1))) e-32))) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (let ((sc4 e-7)) (if (null? sc4) (vector 1 (vector 0 )) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-1) (IdrisC-45REPL-displayType arg-0 arg-2 e-5 eta-1)) e-7 '() eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc5 1))) (vector 1 (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep e-8)))))))))))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (CoreC-45Metadata-findTypeAt arg-3 (lambda (eta-1) (lambda (eta-2) (IdrisC-45REPL-anyAt (lambda (eta-3) (CoreC-45FC-within (cons (PreludeC-45Num-u--C-45_Neg_Int e-0 1) (PreludeC-45Num-u--C-45_Neg_Int e-1 1)) eta-3)) eta-1 eta-2))) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc5 1))) ((IdrisC-45REPL-case--processEdit-3123 e-2 e-1 e-0 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 u--name e-7 e-8 e-9 (cons e-8 e-9)) eta-0)))))))))))))))))))))))))))))))) ((1) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((e-6 (vector-ref sc0 4))) (let ((u--find (lambda (eta-0) (IdrisC-45REPL-case--processEdit-3342 e-6 e-5 e-4 e-3 arg-4 arg-3 arg-2 arg-1 arg-0 (PreludeC-45EqOrd-u--C-62_Ord_Int e-5 (blodwen-toSignedInt 0 63)) eta-0)))) (lambda (eta-0) (let ((act-24 (TTImpC-45InteractiveC-45CaseSplit-getSplits arg-0 arg-3 arg-1 (lambda (eta-1) (lambda (eta-2) (IdrisC-45REPL-anyAt u--find eta-1 eta-2))) e-6 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc1 1))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((act-25 (IdrisC-45IDEModeC-45CaseSplit-updateCase arg-0 arg-2 arg-4 e-1 (PreludeC-45Num-u--C-45_Neg_Int e-4 1) (PreludeC-45Num-u--C-45_Neg_Int e-5 1) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-3)) (cond ((equal? sc4 0) (IdrisC-45REPL-updateFile arg-4 (lambda (eta-1) (IdrisC-45REPL-caseSplit (LibrariesC-45DataC-45StringC-45Extra-unlines e-8) (PreludeC-45Types-prim__integerToNat (PreludeC-45Cast-u--cast_Cast_Int_Integer (PreludeC-45Num-u--C-45_Neg_Int e-4 1))) eta-1)) eta-0)) (else (vector 1 (vector 0 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (PreludeC-45Types-u--map_Functor_List eta-3 eta-4))))) (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String eta-1)) e-8)))))))))))))) (else (let ((e-8 (vector-ref sc2 1))) (vector 1 (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String (TTImpC-45InteractiveC-45CaseSplit-u--show_Show_SplitError e-8)))))))))))))))))))) ((2) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (IdrisC-45IDEModeC-45CaseSplit-getClause arg-0 arg-3 arg-4 e-8 e-9 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((sc3 e-7)) (cond ((equal? sc3 0) (IdrisC-45REPL-updateFile arg-4 (lambda (eta-1) (IdrisC-45REPL-addClause e-1 (PreludeC-45Types-prim__integerToNat (PreludeC-45Cast-u--cast_Cast_Int_Integer e-8)) eta-1)) eta-0)) (else (vector 1 (vector 0 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String e-1)))))))) (else (vector 1 (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (CoreC-45Name-u--pretty_Pretty_Name e-9) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "not defined here"))))))))))))))))) ((3) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (let ((e-13 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (unbox arg-2))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((u--brack (DataC-45List-elemBy (lambda (u--x) (lambda (u--y) (CoreC-45Name-u--C-61C-61_Eq_Name (CoreC-45Name-dropNS u--x) (CoreC-45Name-dropNS u--y)))) e-12 (let ((sc3 e-6)) (let ((e-9 (vector-ref sc3 7))) e-9))))) (let ((act-26 (CoreC-45Context-lookupDefName e-12 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) e-0)) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (if (null? sc4) (vector 1 (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "Unknown name") (CoreC-45Name-u--pretty_Pretty_Name e-12)))) (let ((e-1 (car sc4))) (let ((e-2 (cdr sc4))) (let ((sc5 e-1)) (if (null? sc5) (vector 1 (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unsafeTextWithoutNewLines eta-1)) (DataC-45List1-forget (LibrariesC-45DataC-45StringC-45Extra-lines (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-case--pretty-5531 "Not a searchable hole" (DataC-45String-isSuffixOf "\u000a" "Not a searchable hole")))))))) (let ((e-9 (car sc5))) (let ((e-8 (cdr sc5))) (let ((sc6 e-8)) (if (null? sc6) (vector 1 (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unsafeTextWithoutNewLines eta-1)) (DataC-45List1-forget (LibrariesC-45DataC-45StringC-45Extra-lines (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-case--pretty-5531 "Not a searchable hole" (DataC-45String-isSuffixOf "\u000a" "Not a searchable hole")))))))) (let ((e-15 (car sc6))) (let ((e-14 (cdr sc6))) (let ((sc7 e-14)) (case (vector-ref sc7 0) ((7) (let ((e-17 (vector-ref sc7 1))) (let ((sc8 e-2)) (if (null? sc8) (let ((u--searchtm (lambda (eta-1) (TTImpC-45InteractiveC-45ExprSearch-exprSearch arg-0 arg-3 arg-1 (IdrisC-45REPLC-45Opts-replFC) e-12 '() eta-1)))) (let ((act-27 (let ((act-27 (unbox arg-4))) (vector 1 act-27)))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-3 (vector-ref sc9 1))) (vector 0 e-3))) (else (let ((e-18 (vector-ref sc9 1))) (let ((act-28 (let ((act-28 (set-box! arg-4 (let ((sc10 e-18)) (let ((e-0 (vector-ref sc10 1))) (let ((e-31 (vector-ref sc10 2))) (let ((e-30 (vector-ref sc10 3))) (let ((e-3 (vector-ref sc10 4))) (let ((e-4 (vector-ref sc10 5))) (let ((e-29 (vector-ref sc10 6))) (let ((e-28 (vector-ref sc10 7))) (let ((e-27 (vector-ref sc10 8))) (let ((e-26 (vector-ref sc10 9))) (let ((e-24 (vector-ref sc10 11))) (let ((e-23 (vector-ref sc10 12))) (let ((e-22 (vector-ref sc10 13))) (let ((e-21 (vector-ref sc10 14))) (let ((e-20 (vector-ref sc10 15))) (let ((e-19 (vector-ref sc10 16))) (vector 0 e-0 e-31 e-30 e-3 e-4 e-29 e-28 e-27 e-26 (vector 1 (cons e-12 u--searchtm)) e-24 e-23 e-22 e-21 e-20 e-19)))))))))))))))))))) (vector 1 act-28)))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-3 (vector-ref sc10 1))) (vector 0 e-3))) (else (let ((act-29 (let ((act-29 (unbox arg-0))) (vector 1 act-29)))) (let ((sc11 act-29)) (case (vector-ref sc11 0) ((0) (let ((e-3 (vector-ref sc11 1))) (vector 0 e-3))) (else (let ((act-30 (IdrisC-45REPL-nextProofSearch arg-0 arg-1 arg-4 eta-0))) (let ((sc12 act-30)) (case (vector-ref sc12 0) ((0) (let ((e-3 (vector-ref sc12 1))) (vector 0 e-3))) (else (let ((e-21 (vector-ref sc12 1))) (let ((sc13 e-21)) (case (vector-ref sc13 0) ((1) (let ((e-3 (vector-ref sc13 1))) (let ((sc14 e-3)) (let ((e-22 (cdr sc14))) (let ((u--tmC-39 (IdrisC-45REPL-dropLams e-17 e-22))) (let ((act-31 (IdrisC-45Resugar-pterm arg-0 arg-2 u--tmC-39 eta-0))) (let ((sc15 act-31)) (case (vector-ref sc15 0) ((0) (let ((e-4 (vector-ref sc15 1))) (vector 0 e-4))) (else (let ((e-24 (vector-ref sc15 1))) (let ((u--itmC-39 (let ((sc16 u--brack)) (cond ((equal? sc16 0) (IdrisC-45Resugar-addBracket (IdrisC-45REPLC-45Opts-replFC) e-24)) (else e-24))))) (let ((sc16 e-10)) (cond ((equal? sc16 0) (IdrisC-45REPL-updateFile arg-4 (lambda (eta-1) (IdrisC-45REPL-proofSearch e-12 (IdrisC-45Syntax-u--show_Show_PTerm u--itmC-39) (PreludeC-45Types-prim__integerToNat (PreludeC-45Cast-u--cast_Cast_Int_Integer (PreludeC-45Num-u--C-45_Neg_Int e-11 1))) eta-1)) eta-0)) (else (vector 1 (vector 0 (IdrisC-45REPL-prettyTerm u--itmC-39))))))))))))))))) (else (vector 1 (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unsafeTextWithoutNewLines eta-1)) (DataC-45List1-forget (LibrariesC-45DataC-45StringC-45Extra-lines (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-case--pretty-5531 "No search results" (DataC-45String-isSuffixOf "\u000a" "No search results")))))))))))))))))))))))))))))) (vector 1 (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unsafeTextWithoutNewLines eta-1)) (DataC-45List1-forget (LibrariesC-45DataC-45StringC-45Extra-lines (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-case--pretty-5531 "Not a searchable hole" (DataC-45String-isSuffixOf "\u000a" "Not a searchable hole")))))))))))) ((1) (let ((e-20 (vector-ref sc7 1))) (let ((e-19 (vector-ref sc7 2))) (let ((e-16 (vector-ref sc7 3))) (let ((e-17 (vector-ref sc7 4))) (let ((e-18 (vector-ref sc7 5))) (let ((sc8 e-19)) (if (null? sc8) (let ((sc9 e-16)) (case (vector-ref sc9 0) ((1) (let ((e-22 (vector-ref sc9 1))) (let ((e-23 (vector-ref sc9 2))) (let ((sc10 e-2)) (if (null? sc10) (let ((bind-0 (cons (cons e-9 (cons e-15 (vector 1 e-20 '() (vector 1 e-22 e-23) e-17 e-18))) '()))) ((IdrisC-45REPL-case--caseC-32blockC-32inC-32processEdit-4222 e-13 e-12 e-11 e-10 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 u--brack e-17 e-18 e-22 e-9 e-15 e-23 e-20 bind-0 (let ((sc11 e-20)) (let ((e-0 (car sc11))) e-0))) eta-0)) (vector 1 (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unsafeTextWithoutNewLines eta-1)) (DataC-45List1-forget (LibrariesC-45DataC-45StringC-45Extra-lines (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-case--pretty-5531 "Not a searchable hole" (DataC-45String-isSuffixOf "\u000a" "Not a searchable hole")))))))))))))(else (vector 1 (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unsafeTextWithoutNewLines eta-1)) (DataC-45List1-forget (LibrariesC-45DataC-45StringC-45Extra-lines (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-case--pretty-5531 "Not a searchable hole" (DataC-45String-isSuffixOf "\u000a" "Not a searchable hole"))))))))))) (vector 1 (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unsafeTextWithoutNewLines eta-1)) (DataC-45List1-forget (LibrariesC-45DataC-45StringC-45Extra-lines (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-case--pretty-5531 "Not a searchable hole" (DataC-45String-isSuffixOf "\u000a" "Not a searchable hole"))))))))))))))))(else (vector 1 (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unsafeTextWithoutNewLines eta-1)) (DataC-45List1-forget (LibrariesC-45DataC-45StringC-45Extra-lines (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-case--pretty-5531 "Not a searchable hole" (DataC-45String-isSuffixOf "\u000a" "Not a searchable hole"))))))))))))))))))))))))))))))))))))))))))))) ((4) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (unbox arg-2))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (IdrisC-45REPL-nextProofSearch arg-0 arg-1 arg-4 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((sc5 e-1)) (let ((e-9 (car sc5))) (let ((e-8 (cdr sc5))) (let ((act-27 (CoreC-45Context-lookupDefName e-9 (let ((sc6 e-5)) (let ((e-0 (vector-ref sc6 1))) e-0)) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc6 1))) (let ((sc7 e-10)) (if (null? sc7) (vector 1 (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unsafeTextWithoutNewLines eta-1)) (DataC-45List1-forget (LibrariesC-45DataC-45StringC-45Extra-lines (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-case--pretty-5531 "Not a searchable hole" (DataC-45String-isSuffixOf "\u000a" "Not a searchable hole")))))))) (let ((e-3 (car sc7))) (let ((e-2 (cdr sc7))) (let ((sc8 e-3)) (if (null? sc8) (vector 1 (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unsafeTextWithoutNewLines eta-1)) (DataC-45List1-forget (LibrariesC-45DataC-45StringC-45Extra-lines (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-case--pretty-5531 "Not a searchable hole" (DataC-45String-isSuffixOf "\u000a" "Not a searchable hole")))))))) (let ((e-11 (cdr sc8))) (let ((sc9 e-11)) (if (null? sc9) (vector 1 (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unsafeTextWithoutNewLines eta-1)) (DataC-45List1-forget (LibrariesC-45DataC-45StringC-45Extra-lines (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-case--pretty-5531 "Not a searchable hole" (DataC-45String-isSuffixOf "\u000a" "Not a searchable hole")))))))) (let ((e-13 (cdr sc9))) (let ((sc10 e-13)) (case (vector-ref sc10 0) ((7) (let ((e-16 (vector-ref sc10 1))) (let ((sc11 e-2)) (if (null? sc11) (let ((u--brack (DataC-45List-elemBy (lambda (u--x) (lambda (u--y) (CoreC-45Name-u--C-61C-61_Eq_Name (CoreC-45Name-dropNS u--x) (CoreC-45Name-dropNS u--y)))) e-9 (let ((sc12 e-6)) (let ((e-19 (vector-ref sc12 7))) e-19))))) (let ((u--tmC-39 (IdrisC-45REPL-dropLams e-16 e-8))) (let ((act-28 (IdrisC-45Resugar-pterm arg-0 arg-2 u--tmC-39 eta-0))) (let ((sc12 act-28)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (let ((e-17 (vector-ref sc12 1))) (let ((u--itmC-39 (let ((sc13 u--brack)) (cond ((equal? sc13 0) (IdrisC-45Resugar-addBracket (IdrisC-45REPLC-45Opts-replFC) e-17)) (else e-17))))) (vector 1 (vector 0 (IdrisC-45REPL-prettyTerm u--itmC-39))))))))))) (vector 1 (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unsafeTextWithoutNewLines eta-1)) (DataC-45List1-forget (LibrariesC-45DataC-45StringC-45Extra-lines (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-case--pretty-5531 "Not a searchable hole" (DataC-45String-isSuffixOf "\u000a" "Not a searchable hole"))))))))))))(else (vector 1 (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unsafeTextWithoutNewLines eta-1)) (DataC-45List1-forget (LibrariesC-45DataC-45StringC-45Extra-lines (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-case--pretty-5531 "Not a searchable hole" (DataC-45String-isSuffixOf "\u000a" "Not a searchable hole"))))))))))))))))))))))))))))))) (else (vector 1 (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unsafeTextWithoutNewLines eta-1)) (DataC-45List1-forget (LibrariesC-45DataC-45StringC-45Extra-lines (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-case--pretty-5531 "No more results" (DataC-45String-isSuffixOf "\u000a" "No more results")))))))))))))))))))))))))))) ((5) (let ((e-14 (vector-ref sc0 1))) (let ((e-15 (vector-ref sc0 2))) (let ((e-16 (vector-ref sc0 3))) (let ((e-17 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Metadata-findTyDeclAt arg-3 (lambda (u--p) (lambda (u--n) (CoreC-45FC-onLine (PreludeC-45Num-u--C-45_Neg_Int e-15 1) u--p))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((sc4 e-1)) (let ((e-8 (car sc4))) (let ((e-7 (cdr sc4))) (let ((sc5 e-7)) (let ((e-9 (car sc5))) (let ((e-10 (cdr sc5))) (let ((sc6 e-10)) (let ((e-13 (car sc6))) (let ((e-18 (cdr sc6))) (let ((act-26 (CoreC-45Context-lookupDefExact e-9 (let ((sc7 e-5)) (let ((e-0 (vector-ref sc7 1))) e-0)) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc7 1))) (let ((_-0 (vector 1 (cons e-8 (cons e-9 (cons e-13 e-18)))))) (let ((sc8 e-11)) (case (vector-ref sc8 0) ((1) (let ((e-2 (vector-ref sc8 1))) (let ((sc9 e-2)) (case (vector-ref sc9 0) ((0) (let ((u--searchdef (lambda (eta-1) (TTImpC-45InteractiveC-45GenerateDef-makeDefSort arg-0 arg-3 arg-1 (lambda (u--p) (lambda (u--n) (CoreC-45FC-onLine (PreludeC-45Num-u--C-45_Neg_Int e-15 1) u--p))) (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))))))))) (lambda (eta-2) (lambda (eta-3) (TTImpC-45InteractiveC-45GenerateDef-mostUsed eta-2 eta-3))) e-9 eta-1)))) (let ((act-27 (let ((act-27 (unbox arg-4))) (vector 1 act-27)))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-3 (vector-ref sc10 1))) (vector 0 e-3))) (else (let ((e-12 (vector-ref sc10 1))) (let ((act-28 (let ((act-28 (set-box! arg-4 (let ((sc11 e-12)) (let ((e-0 (vector-ref sc11 1))) (let ((e-31 (vector-ref sc11 2))) (let ((e-30 (vector-ref sc11 3))) (let ((e-3 (vector-ref sc11 4))) (let ((e-4 (vector-ref sc11 5))) (let ((e-29 (vector-ref sc11 6))) (let ((e-28 (vector-ref sc11 7))) (let ((e-27 (vector-ref sc11 8))) (let ((e-26 (vector-ref sc11 9))) (let ((e-25 (vector-ref sc11 10))) (let ((e-23 (vector-ref sc11 12))) (let ((e-22 (vector-ref sc11 13))) (let ((e-21 (vector-ref sc11 14))) (let ((e-20 (vector-ref sc11 15))) (let ((e-19 (vector-ref sc11 16))) (vector 0 e-0 e-31 e-30 e-3 e-4 e-29 e-28 e-27 e-26 e-25 (vector 1 (cons e-15 u--searchdef)) e-23 e-22 e-21 e-20 e-19)))))))))))))))))))) (vector 1 act-28)))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-3 (vector-ref sc11 1))) (vector 0 e-3))) (else (let ((act-29 (IdrisC-45REPL-nextGenDef arg-0 arg-1 arg-4 e-17 eta-0))) (let ((sc12 act-29)) (case (vector-ref sc12 0) ((0) (let ((e-3 (vector-ref sc12 1))) (vector 0 e-3))) (else (let ((e-20 (vector-ref sc12 1))) (let ((bind-0 (vector 1 (vector 0 )))) (let ((sc13 e-20)) (case (vector-ref sc13 0) ((1) (let ((e-3 (vector-ref sc13 1))) (let ((sc14 e-3)) (let ((e-22 (car sc14))) (let ((e-21 (cdr sc14))) (let ((sc15 e-21)) (let ((e-24 (car sc15))) (let ((e-23 (cdr sc15))) (let ((u--l (PreludeC-45Types-prim__integerToNat (PreludeC-45Cast-u--cast_Cast_Int_Integer (CoreC-45FC-startCol (CoreC-45FC-toNonEmptyFC e-24)))))) (let ((act-30 (IdrisC-45REPLC-45Opts-getSourceLine arg-4 e-15 eta-0))) (let ((sc16 act-30)) (case (vector-ref sc16 0) ((0) (let ((e-4 (vector-ref sc16 1))) (vector 0 e-4))) (else (let ((e-25 (vector-ref sc16 1))) (let ((_-1 (vector 1 (cons e-22 (cons e-24 e-23))))) (let ((sc17 e-25)) (case (vector-ref sc17 0) ((1) (let ((e-4 (vector-ref sc17 1))) (let ((_-2 (vector 1 e-4))) (IdrisC-45REPL-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32processEdit-5161 e-17 e-16 e-15 e-14 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-18 e-13 e-8 e-9 _-0 bind-0 u--searchdef e-12 e-22 e-24 e-23 _-1 u--l e-4 _-2 (ParserC-45Unlit-isLitLine e-4) eta-0)))) (else (vector 1 (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unsafeTextWithoutNewLines eta-1)) (DataC-45List1-forget (LibrariesC-45DataC-45StringC-45Extra-lines (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-case--pretty-5531 "Source line not found" (DataC-45String-isSuffixOf "\u000a" "Source line not found")))))))))))))))))))))))))) (else (vector 1 (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unsafeTextWithoutNewLines eta-1)) (DataC-45List1-forget (LibrariesC-45DataC-45StringC-45Extra-lines (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-case--pretty-5531 "No search results" (DataC-45String-isSuffixOf "\u000a" "No search results"))))))))))))))))))))))))))))(else (vector 1 (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unsafeTextWithoutNewLines eta-1)) (DataC-45List1-forget (LibrariesC-45DataC-45StringC-45Extra-lines (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-case--pretty-5531 "Already defined" (DataC-45String-isSuffixOf "\u000a" "Already defined"))))))))))))) (else (vector 1 (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "Can't find declaration for") (CoreC-45Name-u--pretty_Pretty_Name e-16)))))))))))))))))))))))) (else (vector 1 (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "Can't find declaration for") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (CoreC-45Name-u--pretty_Pretty_Name e-16) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "on line") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Int e-15))))))))))))))))))))))))) ((6) (lambda (eta-0) (let ((act-24 (IdrisC-45REPL-nextGenDef arg-0 arg-1 arg-4 0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((sc3 e-1)) (let ((e-7 (car sc3))) (let ((e-6 (cdr sc3))) (let ((sc4 e-6)) (let ((e-9 (car sc4))) (let ((e-10 (cdr sc4))) (let ((u--l (PreludeC-45Types-prim__integerToNat (PreludeC-45Cast-u--cast_Cast_Int_Integer (CoreC-45FC-startCol (CoreC-45FC-toNonEmptyFC e-9)))))) (let ((act-25 (IdrisC-45REPLC-45Opts-getSourceLine arg-4 e-7 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc5 1))) (let ((_-0 (vector 1 (cons e-7 (cons e-9 e-10))))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((1) (let ((e-2 (vector-ref sc6 1))) (let ((_-1 (vector 1 e-2))) (IdrisC-45REPL-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32processEdit-5705 arg-4 arg-3 arg-2 arg-1 arg-0 e-7 e-9 e-10 _-0 u--l e-2 _-1 (ParserC-45Unlit-isLitLine e-2) eta-0)))) (else (vector 1 (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unsafeTextWithoutNewLines eta-1)) (DataC-45List1-forget (LibrariesC-45DataC-45StringC-45Extra-lines (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-case--pretty-5531 "Source line not found" (DataC-45String-isSuffixOf "\u000a" "Source line not found")))))))))))))))))))))))))) (else (vector 1 (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unsafeTextWithoutNewLines eta-1)) (DataC-45List1-forget (LibrariesC-45DataC-45StringC-45Extra-lines (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-case--pretty-5531 "No more results" (DataC-45String-isSuffixOf "\u000a" "No more results")))))))))))))))))) ((7) (let ((e-18 (vector-ref sc0 1))) (let ((e-19 (vector-ref sc0 2))) (let ((e-20 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (unbox arg-2))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((u--brack (DataC-45List-elemBy (lambda (u--x) (lambda (u--y) (CoreC-45Name-u--C-61C-61_Eq_Name (CoreC-45Name-dropNS u--x) (CoreC-45Name-dropNS u--y)))) e-20 (let ((sc3 e-6)) (let ((e-9 (vector-ref sc3 7))) e-9))))) (let ((act-26 (IdrisC-45REPL-lookupDefTyName e-20 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) e-0)) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (if (null? sc4) (vector 1 (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unsafeTextWithoutNewLines eta-1)) (DataC-45List1-forget (LibrariesC-45DataC-45StringC-45Extra-lines (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-case--pretty-5531 "Can't make lifted definition" (DataC-45String-isSuffixOf "\u000a" "Can't make lifted definition")))))))) (let ((e-1 (car sc4))) (let ((e-2 (cdr sc4))) (let ((sc5 e-1)) (if (null? sc5) (vector 1 (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unsafeTextWithoutNewLines eta-1)) (DataC-45List1-forget (LibrariesC-45DataC-45StringC-45Extra-lines (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-case--pretty-5531 "Can't make lifted definition" (DataC-45String-isSuffixOf "\u000a" "Can't make lifted definition")))))))) (let ((e-9 (car sc5))) (let ((e-8 (cdr sc5))) (let ((sc6 e-8)) (if (null? sc6) (vector 1 (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unsafeTextWithoutNewLines eta-1)) (DataC-45List1-forget (LibrariesC-45DataC-45StringC-45Extra-lines (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-case--pretty-5531 "Can't make lifted definition" (DataC-45String-isSuffixOf "\u000a" "Can't make lifted definition")))))))) (let ((e-11 (car sc6))) (let ((e-10 (cdr sc6))) (let ((sc7 e-10)) (if (null? sc7) (vector 1 (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unsafeTextWithoutNewLines eta-1)) (DataC-45List1-forget (LibrariesC-45DataC-45StringC-45Extra-lines (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-case--pretty-5531 "Can't make lifted definition" (DataC-45String-isSuffixOf "\u000a" "Can't make lifted definition")))))))) (let ((e-13 (car sc7))) (let ((e-14 (cdr sc7))) (let ((sc8 e-13)) (case (vector-ref sc8 0) ((7) (let ((e-15 (vector-ref sc8 1))) (let ((e-16 (vector-ref sc8 2))) (let ((sc9 e-2)) (if (null? sc9) (let ((act-27 (TTImpC-45InteractiveC-45MakeLemma-makeLemma arg-3 arg-0 (IdrisC-45REPLC-45Opts-replFC) e-20 e-15 e-14 eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-3 (vector-ref sc10 1))) (vector 0 e-3))) (else (let ((e-12 (vector-ref sc10 1))) (let ((bind-0 (cons (cons e-9 (cons e-11 (cons (vector 7 e-15 e-16) e-14))) '()))) (let ((sc11 e-12)) (let ((e-4 (car sc11))) (let ((e-3 (cdr sc11))) (let ((act-28 (IdrisC-45Resugar-pterm arg-0 arg-2 e-4 eta-0))) (let ((sc12 act-28)) (case (vector-ref sc12 0) ((0) (let ((e-17 (vector-ref sc12 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc12 1))) (let ((act-29 (IdrisC-45Resugar-pterm arg-0 arg-2 e-3 eta-0))) (let ((sc13 act-29)) (case (vector-ref sc13 0) ((0) (let ((e-21 (vector-ref sc13 1))) (vector 0 e-21))) (else (let ((e-21 (vector-ref sc13 1))) (let ((act-30 (let ((act-30 (unbox arg-4))) (vector 1 act-30)))) (let ((sc14 act-30)) (case (vector-ref sc14 0) ((0) (let ((e-22 (vector-ref sc14 1))) (vector 0 e-22))) (else (let ((e-22 (vector-ref sc14 1))) (let ((u--pappstr (IdrisC-45Syntax-u--show_Show_PTerm (let ((sc15 u--brack)) (cond ((equal? sc15 0) (IdrisC-45Resugar-addBracket (IdrisC-45REPLC-45Opts-replFC) e-21)) (else e-21)))))) (let ((act-31 (IdrisC-45REPLC-45Opts-getSourceLine arg-4 e-19 eta-0))) (let ((sc15 act-31)) (case (vector-ref sc15 0) ((0) (let ((e-23 (vector-ref sc15 1))) (vector 0 e-23))) (else (let ((e-23 (vector-ref sc15 1))) (let ((_-0 (cons e-4 e-3))) (let ((sc16 e-23)) (case (vector-ref sc16 0) ((1) (let ((e-24 (vector-ref sc16 1))) (let ((_-1 (vector 1 e-24))) ((IdrisC-45REPL-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32processEdit-6107 e-20 e-19 e-18 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 u--brack e-16 e-9 e-11 e-15 e-14 bind-0 e-4 e-3 _-0 e-17 e-21 e-22 u--pappstr e-24 _-1 (ParserC-45Unlit-isLitLine e-24)) eta-0)))) (else (vector 1 (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unsafeTextWithoutNewLines eta-1)) (DataC-45List1-forget (LibrariesC-45DataC-45StringC-45Extra-lines (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-case--pretty-5531 "Source line not found" (DataC-45String-isSuffixOf "\u000a" "Source line not found")))))))))))))))))))))))))))))))))))))))))) (vector 1 (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unsafeTextWithoutNewLines eta-1)) (DataC-45List1-forget (LibrariesC-45DataC-45StringC-45Extra-lines (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-case--pretty-5531 "Can't make lifted definition" (DataC-45String-isSuffixOf "\u000a" "Can't make lifted definition")))))))))))))(else (vector 1 (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unsafeTextWithoutNewLines eta-1)) (DataC-45List1-forget (LibrariesC-45DataC-45StringC-45Extra-lines (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-case--pretty-5531 "Can't make lifted definition" (DataC-45String-isSuffixOf "\u000a" "Can't make lifted definition")))))))))))))))))))))))))))))))))))))))))))))))) ((8) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (IdrisC-45REPLC-45Opts-getLitStyle arg-4 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (unbox arg-2))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((u--brack (DataC-45List-elemBy (lambda (u--x) (lambda (u--y) (CoreC-45Name-u--C-61C-61_Eq_Name (CoreC-45Name-dropNS u--x) (CoreC-45Name-dropNS u--y)))) e-23 (let ((sc3 e-6)) (let ((e-9 (vector-ref sc3 7))) e-9))))) (let ((act-26 (IdrisC-45REPLC-45Opts-getSourceLine arg-4 e-22 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((_-0 (vector 1 e-1))) ((IdrisC-45REPL-case--caseC-32blockC-32inC-32processEdit-6447 e-23 e-22 e-21 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 u--brack e-1 _-0 (ParserC-45Unlit-unlit e-5 e-1)) eta-0)))) (else (vector 1 (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unsafeTextWithoutNewLines eta-1)) (DataC-45List1-forget (LibrariesC-45DataC-45StringC-45Extra-lines (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-case--pretty-5531 "Source line not available" (DataC-45String-isSuffixOf "\u000a" "Source line not available")))))))))))))))))))))))))))))))) (else (let ((e-24 (vector-ref sc0 1))) (let ((e-25 (vector-ref sc0 2))) (let ((e-26 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (IdrisC-45REPLC-45Opts-getLitStyle arg-4 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (IdrisC-45REPLC-45Opts-getSourceLine arg-4 e-25 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((_-0 (vector 1 e-1))) ((IdrisC-45REPL-case--caseC-32blockC-32inC-32processEdit-6709 e-26 e-25 e-24 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-1 _-0 (ParserC-45Unlit-unlit e-5 e-1)) eta-0)))) (else (vector 1 (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unsafeTextWithoutNewLines eta-1)) (DataC-45List1-forget (LibrariesC-45DataC-45StringC-45Extra-lines (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-case--pretty-5531 "Source line not available" (DataC-45String-isSuffixOf "\u000a" "Source line not available")))))))))))))))))))))))))))))) -(define IdrisC-45REPL-processCatch (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (CoreC-45Context-branch arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (let ((act-26 (unbox arg-2))) (vector 1 act-26)))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (let ((act-27 (unbox arg-4))) (vector 1 act-27)))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (CoreC-45Core-u--catch_Catchable_Core_Error (lambda (eta-0) (let ((act-28 ((IdrisC-45REPL-process arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) eta-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-29 (CoreC-45Context-commit arg-0 eta-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (vector 1 e-9))))))))))) (lambda (u--err) (lambda (eta-0) (let ((act-28 (let ((act-28 (set-box! arg-0 e-5))) (vector 1 act-28)))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-29 (let ((act-29 (set-box! arg-1 e-6))) (vector 1 act-29)))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((act-30 (let ((act-30 (set-box! arg-2 e-7))) (vector 1 act-30)))) (let ((sc6 act-30)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((act-31 (let ((act-31 (set-box! arg-4 e-8))) (vector 1 act-31)))) (let ((sc7 act-31)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((act-32 (IdrisC-45Error-display arg-0 arg-2 arg-4 u--err eta-0))) (let ((sc8 act-32)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref sc8 1))) (vector 1 (vector 1 e-13))))))))))))))))))))))))) ext-0))))))))))))))))))))))) -(define IdrisC-45REPL-process (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (IdrisC-45REPL-execDecls arg-0 arg-1 arg-2 arg-3 arg-4 e-0 eta-0)))) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((u--emode (let ((sc2 e-5)) (let ((e-17 (vector-ref sc2 2))) e-17)))) (let ((sc2 u--emode)) (case (vector-ref sc2 0) ((2) (let ((act-25 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (let ((sc3 eta-1)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))) (lambda (eta-1) (IdrisC-45REPL-execExp arg-0 arg-1 arg-2 arg-3 arg-4 e-1 eta-1)) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (vector 1 (vector 2 e-1)))))))(else (let ((act-25 (IdrisC-45REPL-inferAndNormalize arg-0 arg-1 arg-2 arg-3 arg-4 u--emode e-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (let ((e-0 (car sc3))) (let ((e-2 (cdr sc3))) (let ((act-26 (IdrisC-45Resugar-resugar '() arg-0 arg-2 '() e-0 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-27 (let ((act-27 (unbox arg-0))) (vector 1 act-27)))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-28 (let ((act-28 (unbox arg-4))) (vector 1 act-28)))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc6 1))) (let ((u--norm (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (IdrisC-45REPL-replEval arg-0 '() u--emode eta-1 eta-2 eta-3)))))) (let ((act-29 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (let ((sc7 eta-1)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (vector 0 e-3))) (else (let ((e-10 (vector-ref sc7 1))) (vector 1 (vector 4 "it" e-10))))))) (lambda (eta-1) (CoreC-45UnifyState-genName arg-0 arg-1 "evalResult" eta-1)) eta-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (vector 0 e-3))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-30 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (let ((sc8 eta-1)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (vector 0 e-3))) (else (vector 1 (vector 0 )))))) (lambda (eta-1) (CoreC-45Context-addDef arg-0 e-10 (CoreC-45Context-newDef (IdrisC-45REPLC-45Opts-replFC) e-10 (AlgebraC-45ZeroOneOmega-u--top_Top_ZeroOneOmega) '() e-2 (vector 0 ) (vector 1 (CoreC-45Context-defaultPI) '() (vector 1 0 e-0) (vector 1 0 e-0) '())) eta-1)) eta-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (vector 0 e-3))) (else (let ((act-31 (CoreC-45Context-addToSave arg-0 e-10 eta-0))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-3 (vector-ref sc9 1))) (vector 0 e-3))) (else (let ((act-32 (let ((act-32 (set-box! arg-4 (let ((sc10 e-9)) (let ((e-26 (vector-ref sc10 1))) (let ((e-25 (vector-ref sc10 2))) (let ((e-24 (vector-ref sc10 3))) (let ((e-3 (vector-ref sc10 4))) (let ((e-4 (vector-ref sc10 5))) (let ((e-23 (vector-ref sc10 6))) (let ((e-22 (vector-ref sc10 7))) (let ((e-21 (vector-ref sc10 8))) (let ((e-20 (vector-ref sc10 9))) (let ((e-19 (vector-ref sc10 10))) (let ((e-18 (vector-ref sc10 11))) (let ((e-16 (vector-ref sc10 13))) (let ((e-13 (vector-ref sc10 14))) (let ((e-14 (vector-ref sc10 15))) (let ((e-15 (vector-ref sc10 16))) (vector 0 e-26 e-25 e-24 e-3 e-4 e-23 e-22 e-21 e-20 e-19 e-18 (vector 1 e-10) e-16 e-13 e-14 e-15)))))))))))))))))))) (vector 1 act-32)))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-3 (vector-ref sc10 1))) (vector 0 e-3))) (else (let ((_-0 (cons e-0 e-2))) (IdrisC-45REPL-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32process-7820 e-1 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 u--emode e-2 e-0 _-0 e-7 e-8 e-9 u--norm e-10 (let ((sc11 e-9)) (let ((e-27 (vector-ref sc11 1))) e-27)) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))) ((2) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (lambda (clam-0) (let ((sc2 e-27)) (case (vector-ref sc2 0) ((1) (let ((e-28 (vector-ref sc2 1))) (let ((sc3 e-28)) (cond ((equal? sc3 "it") (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc4 1))) ((IdrisC-45REPL-case--process-7983 e-26 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 (let ((sc5 e-5)) (let ((e-11 (vector-ref sc5 12))) e-11))) clam-0)))))))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtName e-27 (let ((sc4 e-5)) (let ((e-0 (vector-ref sc4 1))) e-0))) clam-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc4 1))) (let ((sc5 e-6)) (if (null? sc5) (CoreC-45Context-undefinedName arg-0 e-26 e-27 clam-0) (let ((act-26 (CoreC-45Core-traverseC-39 (lambda (eta-0) (IdrisC-45REPL-displayType arg-0 arg-2 e-5 eta-0)) e-6 '() clam-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc6 1))) (vector 1 (vector 5 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep e-7)))))))))))))))))))))))))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtName e-27 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) e-0))) clam-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (if (null? sc4) (CoreC-45Context-undefinedName arg-0 e-26 e-27 clam-0) (let ((act-26 (CoreC-45Core-traverseC-39 (lambda (eta-0) (IdrisC-45REPL-displayType arg-0 arg-2 e-5 eta-0)) e-6 '() clam-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc5 1))) (vector 1 (vector 5 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep e-7)))))))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (IdrisC-45REPL-inferAndElab arg-0 arg-1 arg-2 arg-3 arg-4 (vector 2 ) e-2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-0 (car sc2))) (let ((e-1 (cdr sc2))) (let ((act-25 (let ((act-25 (unbox arg-0))) (vector 1 act-25)))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (let ((act-26 (CoreC-45Normalise-normaliseHoles arg-0 '() e-6 '() e-0 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc4 1))) (IdrisC-45Resugar-resugar '() arg-0 arg-2 '() e-7 eta-0)))))))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-27 (let ((act-27 (CoreC-45Normalise-normaliseScope arg-0 '() e-6 '() e-1 eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc5 1))) (IdrisC-45Resugar-resugar '() arg-0 arg-2 '() e-8 eta-0)))))))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc5 1))) (vector 1 (vector 6 e-7 e-8))))))))))))))))))))))))))))))) ((3) (let ((e-3 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)))))))) (lambda (eta-1) (CoreC-45Context-getPPrint arg-0 eta-1)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (IdrisC-45REPL-setOpt arg-0 arg-4 (vector 0 0) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((IdrisC-45REPL-process arg-0 arg-1 arg-2 arg-3 arg-4 (vector 2 e-3)) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (IdrisC-45REPL-setOpt arg-0 arg-4 (vector 0 e-5) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (vector 1 e-7)))))))))))))))))))))) ((4) (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtName e-4 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (if (null? sc3) (CoreC-45Context-undefinedName arg-0 (IdrisC-45REPLC-45Opts-replFC) e-4 eta-0) (let ((act-26 (CoreC-45Core-traverseC-39 (lambda (eta-1) (IdrisC-45REPL-displayPats arg-0 arg-2 e-5 eta-1)) e-6 '() eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (vector 1 (vector 5 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep e-7))))))))))))))))))))))) ((5) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (IdrisC-45REPL-case--process-8278 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 3))) e-2)) eta-0)))))))) ((6) (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (set-box! arg-4 (let ((sc2 e-6)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-3 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-17 (vector-ref sc2 6))) (let ((e-16 (vector-ref sc2 7))) (let ((e-7 (vector-ref sc2 8))) (let ((e-8 (vector-ref sc2 9))) (let ((e-9 (vector-ref sc2 10))) (let ((e-10 (vector-ref sc2 11))) (let ((e-11 (vector-ref sc2 12))) (let ((e-12 (vector-ref sc2 13))) (let ((e-13 (vector-ref sc2 14))) (let ((e-14 (vector-ref sc2 15))) (let ((e-15 (vector-ref sc2 16))) (vector 0 e-0 e-1 (vector 1 e-5) e-3 e-4 e-17 e-16 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15)))))))))))))))))))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (IdrisC-45REPL-loadMainFile arg-0 arg-1 arg-2 arg-3 arg-4 e-5 eta-0))))))))))))) ((7) (let ((e-6 (vector-ref sc0 1))) (lambda (eta-0) (CoreC-45Core-u--catch_Catchable_Core_Error (lambda (eta-1) (let ((act-24 (IdrisC-45ProcessIdr-addImport arg-0 arg-1 arg-2 (vector 0 (CoreC-45FC-emptyFC) 1 e-6 (CoreC-45NameC-45Namespace-miAsNamespace e-6)) eta-1))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 8 (CoreC-45NameC-45Namespace-u--show_Show_ModuleIdent e-6)))))))) (lambda (u--err) (lambda (eta-1) (vector 1 (vector 9 (CoreC-45NameC-45Namespace-u--show_Show_ModuleIdent e-6) u--err)))) eta-0)))) ((18) (let ((e-7 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (CoreC-45Context-setWorkingDir arg-0 e-7 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45Context-getWorkingDir eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 13 e-6)))))))))))))) ((19) (lambda (eta-0) (let ((act-24 (CoreC-45Context-getWorkingDir eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 13 e-5))))))))) ((8) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((IdrisC-45REPL-case--process-8424 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 3))) e-2))) eta-0)))))))) ((9) (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (lambda (eta-0) (IdrisC-45REPL-compileExp arg-0 arg-1 arg-2 arg-3 arg-4 e-8 e-9 eta-0))))) ((10) (let ((e-10 (vector-ref sc0 1))) (lambda (eta-0) (IdrisC-45REPL-execExp arg-0 arg-1 arg-2 arg-3 arg-4 e-10 eta-0)))) ((11) (lambda (eta-0) (vector 1 (vector 3 )))) ((12) (let ((e-11 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (CoreC-45Context-branch arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((u--curr (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 3))) e-2)))) (let ((u--ctxt (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)))) (let ((act-25 (IdrisC-45Desugar-desugar arg-2 arg-0 arg-3 arg-1 (vector 1 ) '() e-11 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((u--bound (TTImpC-45BindImplicits-piBindNames (IdrisC-45REPLC-45Opts-replFC) '() e-6))) (let ((act-26 ((TTImpC-45Elab-elabTerm '() arg-0 arg-3 arg-1 0 (vector 0 ) '() '() '() u--bound (vector 0 )) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (let ((e-2 (car sc4))) (let ((act-27 (CoreC-45Context-toResolvedNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-1) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3810 arg-3811 eta-1)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3812 arg-3813)))) e-2 eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-28 (let ((act-28 (CoreC-45Context-allNames u--ctxt eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-29 (CoreC-45Core-traverseC-39 (lambda (eta-1) (PreludeC-45Basics-flip (lambda (eta-2) (lambda (eta-3) (CoreC-45Context-lookupCtxtExact eta-2 eta-3))) u--ctxt eta-1)) e-9 '() eta-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc7 1))) (let ((u--defs (PreludeC-45Basics-flip (lambda (eta-1) (lambda (eta-2) (DataC-45List-mapMaybe eta-1 eta-2))) e-10 (lambda (u--md) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe u--md (lambda (u--d) (PreludeC-45Interfaces-C-62C-62 (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (PreludeC-45Types-u--map_Functor_Maybe u--func arg-143))))) (lambda (u--a) (lambda (arg-577) (PreludeC-45Types-u--pure_Applicative_Maybe arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (PreludeC-45Types-u--C-60C-42C-62_Applicative_Maybe arg-578 arg-580)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe arg-876 arg-877))))) (lambda (u--a) (lambda (arg-879) (PreludeC-45Types-u--join_Monad_Maybe arg-879)))) (PreludeC-45Interfaces-guard (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (PreludeC-45Types-u--map_Functor_Maybe u--func arg-143))))) (lambda (u--a) (lambda (arg-577) (PreludeC-45Types-u--pure_Applicative_Maybe arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (PreludeC-45Types-u--C-60C-42C-62_Applicative_Maybe arg-578 arg-580)))))) (lambda (u--a) (PreludeC-45Types-u--empty_Alternative_Maybe)) (lambda (u--a) (lambda (arg-827) (lambda (arg-828) (PreludeC-45Types-u--C-60C-124C-62_Alternative_Maybe arg-827 arg-828))))) (CoreC-45Context-visibleIn u--curr (let ((sc8 u--d)) (let ((e-1 (vector-ref sc8 2))) e-1)) (let ((sc8 u--d)) (let ((e-23 (vector-ref sc8 10))) e-23)))) (lambda () (PreludeC-45Interfaces-C-62C-62 (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (PreludeC-45Types-u--map_Functor_Maybe u--func arg-143))))) (lambda (u--a) (lambda (arg-577) (PreludeC-45Types-u--pure_Applicative_Maybe arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (PreludeC-45Types-u--C-60C-42C-62_Applicative_Maybe arg-578 arg-580)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe arg-876 arg-877))))) (lambda (u--a) (lambda (arg-879) (PreludeC-45Types-u--join_Monad_Maybe arg-879)))) (PreludeC-45Interfaces-guard (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (PreludeC-45Types-u--map_Functor_Maybe u--func arg-143))))) (lambda (u--a) (lambda (arg-577) (PreludeC-45Types-u--pure_Applicative_Maybe arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (PreludeC-45Types-u--C-60C-42C-62_Applicative_Maybe arg-578 arg-580)))))) (lambda (u--a) (PreludeC-45Types-u--empty_Alternative_Maybe)) (lambda (u--a) (lambda (arg-827) (lambda (arg-828) (PreludeC-45Types-u--C-60C-124C-62_Alternative_Maybe arg-827 arg-828))))) (DataC-45Maybe-isJust (CoreC-45Name-userNameRoot (let ((sc8 u--d)) (let ((e-1 (vector-ref sc8 2))) e-1))))) (lambda () (PreludeC-45Types-u--pure_Applicative_Maybe u--d))))))))))) (let ((act-30 (CoreC-45Core-traverseC-39 (lambda (eta-1) (lambda (eta-2) (CoreC-45Context-u--resolved_HasNames_GlobalDef u--ctxt eta-1 eta-2))) u--defs '() eta-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc8 1))) (CoreC-45Core-filterM (lambda (u--def) (lambda (eta-1) (IdrisC-45REPLC-45Common-equivTypes arg-0 (let ((sc9 u--def)) (let ((e-30 (vector-ref sc9 3))) e-30)) e-8 eta-1))) e-12 eta-0))))))))))))))))))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-29 (let ((act-29 (set-box! arg-0 e-5))) (vector 1 act-29)))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((act-30 (CoreC-45Core-traverseC-39 (lambda (eta-1) (lambda (eta-2) (IdrisC-45REPLC-45Common-docsOrSignature arg-4 arg-0 arg-2 (IdrisC-45REPLC-45Opts-replFC) eta-1 eta-2))) (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (PreludeC-45Types-u--map_Functor_List eta-3 eta-4))))) (lambda (eta-1) (let ((sc8 eta-1)) (let ((e-1 (vector-ref sc8 2))) e-1))) e-9) '() eta-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc8 1))) (vector 1 (vector 5 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (PreludeC-45Types-u--map_Functor_List eta-3 eta-4))))) (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String eta-1)) (DataC-45List-intersperse "\u000a" (PreludeC-45Types-u--join_Monad_List e-12)))))))))))))))))))))))))))))))))))))))))))))))) ((20) (let ((e-12 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtName e-12 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (if (null? sc3) (CoreC-45Context-undefinedName arg-0 (IdrisC-45REPLC-45Opts-replFC) e-12 eta-0) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (let ((sc4 eta-1)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (vector 1 (vector 17 e-7))))))) (lambda (eta-1) (CoreC-45Core-traverseC-39 (lambda (u--fn) (lambda (eta-2) (let ((act-26 (CoreC-45Context-getTotality arg-0 (IdrisC-45REPLC-45Opts-replFC) u--fn eta-2))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (let ((bind-0 e-6)) (IdrisC-45REPL-case--caseC-32blockC-32inC-32process-8792 e-12 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 bind-0 u--fn e-7 (let ((sc5 e-7)) (let ((e-1 (cdr sc5))) e-1)) eta-2))))))))) (PreludeC-45Types-u--map_Functor_List (lambda (eta-2) (Builtin-fst eta-2)) e-6) '() eta-1)) eta-0)))))))))))))))) ((21) (let ((e-13 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtName e-13 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (if (null? sc3) (CoreC-45Context-undefinedName arg-0 (IdrisC-45REPLC-45Opts-replFC) e-13 eta-0) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (let ((sc4 eta-1)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (vector 1 (vector 18 e-7))))))) (lambda (eta-1) (CoreC-45Core-traverseC-39 (lambda (u--fn) (lambda (eta-2) (let ((act-26 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-3) (let ((sc4 eta-3)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))) (lambda (eta-3) (CoreC-45Termination-checkTotal arg-0 (IdrisC-45REPLC-45Opts-replFC) u--fn eta-3)) eta-2))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-27 (let ((act-27 (CoreC-45Context-getTotality arg-0 (IdrisC-45REPLC-45Opts-replFC) u--fn eta-2))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc5 1))) (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-3) (CoreC-45Context-u--full_HasNames_Totality arg-3810 arg-3811 eta-3)))) (lambda (arg-3812) (lambda (arg-3813) (lambda (eta-3) (CoreC-45Context-u--resolved_HasNames_Totality arg-3812 arg-3813 eta-3))))) e-8 eta-2)))))))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc5 1))) (vector 1 (cons u--fn e-8))))))))))))) (PreludeC-45Types-u--map_Functor_List (lambda (eta-2) (Builtin-fst eta-2)) e-6) '() eta-1)) eta-0)))))))))))))))) ((22) (let ((e-14 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((IdrisC-45DocString-getDocsForPTerm arg-4 arg-0 arg-2 e-14) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 5 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (PreludeC-45Types-u--map_Functor_List eta-3 eta-4))))) (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String eta-1)) e-5)))))))))))) ((23) (let ((e-15 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (IdrisC-45DocString-getContents arg-0 arg-2 e-15 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 5 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (PreludeC-45Types-u--map_Functor_List eta-3 eta-4))))) (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String eta-1)) e-5)))))))))))) ((14) (let ((e-16 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 ((CoreC-45Context-lookupCtxtName e-16 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (CoreC-45Core-traverse_ (lambda (eta-1) (lambda (eta-2) (IdrisC-45REPL-showInfo arg-0 eta-1 eta-2))) e-6 eta-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))))))))))) ((15) (let ((e-17 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (IdrisC-45REPL-setOpt arg-0 arg-4 e-17 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 0 ))))))))) ((16) (lambda (eta-0) (let ((act-24 (IdrisC-45REPL-getOptions arg-0 arg-4 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 20 e-5))))))))) ((24) (let ((e-18 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (CoreC-45Context-addLogLevel arg-0 e-18 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 21 e-18))))))))) ((25) (let ((e-19 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (IdrisC-45REPLC-45Opts-setConsoleWidth arg-4 e-19 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 22 e-19))))))))) ((26) (let ((e-20 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (IdrisC-45REPLC-45Opts-setColor arg-4 e-20 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 23 e-20))))))))) ((27) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((u--ctxt (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)))) (let ((act-25 (CoreC-45Context-getUserHoles arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (CoreC-45Core-traverseC-39 (lambda (u--n) (CoreC-45Context-lookupCtxtName u--n u--ctxt)) e-6 '() eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((u--globs (PreludeC-45Interfaces-concat (cons (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (cons (lambda (arg-6) (lambda (arg-7) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-6 arg-7))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) e-7))) (let ((u--holesWithArgs (DataC-45List-mapMaybe (lambda (lamc-0) (let ((sc4 lamc-0)) (let ((e-2 (car sc4))) (let ((e-3 (cdr sc4))) (let ((sc5 e-3)) (let ((e-8 (cdr sc5))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (IdrisC-45IDEModeC-45Holes-isHole e-8) (lambda (u--args) (PreludeC-45Types-u--pure_Applicative_Maybe (cons e-2 (cons e-8 u--args))))))))))) u--globs))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (u--n_gdef_args) (lambda (eta-1) (IdrisC-45REPL-case--process-9133 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 u--ctxt e-6 e-7 u--globs u--holesWithArgs u--n_gdef_args u--n_gdef_args eta-1))) u--holesWithArgs '() eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 19 e-8))))))))))))))))))))))))))) ((28) (let ((e-21 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (CoreC-45Context-getPPrint arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Context-setPPrint arg-0 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 3))) (vector 0 e-0 1 e-2)))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((IdrisC-45REPL-processEdit arg-0 arg-1 arg-2 arg-3 arg-4 e-21) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (CoreC-45Context-setPPrint arg-0 e-5 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (vector 1 (vector 27 e-7))))))))))))))))))))))) ((17) (let ((e-22 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (CoreC-45Context-getSession arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (CoreC-45Context-setSession arg-0 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (let ((e-3 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-15 (vector-ref sc2 6))) (let ((e-6 (vector-ref sc2 7))) (let ((e-7 (vector-ref sc2 8))) (let ((e-8 (vector-ref sc2 9))) (let ((e-9 (vector-ref sc2 10))) (let ((e-10 (vector-ref sc2 11))) (let ((e-11 (vector-ref sc2 12))) (let ((e-12 (vector-ref sc2 13))) (let ((e-13 (vector-ref sc2 14))) (let ((e-14 (vector-ref sc2 15))) (vector 0 e-0 e-1 e-2 e-3 (cons e-22 e-4) e-15 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14))))))))))))))))) eta-0)))))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 0 ))))))))) ((29) (let ((e-23 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))) (lambda (eta-1) (let ((act-24 ((System-system (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-2) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-2)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-2) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-2) (let ((act-17 (arg-578 eta-2))) (let ((act-16 (arg-580 eta-2))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-2) (let ((act-24 (arg-876 eta-2))) ((arg-877 act-24) eta-2))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-2) (let ((act-51 (arg-879 eta-2))) (act-51 eta-2)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) e-23) eta-1))) (vector 1 act-24))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 0 ))))))))) ((31) (lambda (eta-0) (vector 1 (vector 26 )))) ((32) (lambda (eta-0) (vector 1 (vector 0 )))) ((30) (lambda (eta-0) (vector 1 (vector 24 (IdrisC-45Version-version))))) ((33) (let ((e-24 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((u--searchDirs (let ((sc2 e-5)) (let ((e-4 (vector-ref sc2 5))) (let ((sc3 e-4)) (let ((e-38 (vector-ref sc3 1))) (let ((sc4 e-38)) (let ((e-42 (vector-ref sc4 7))) e-42)))))))) ((IdrisC-45REPL-case--process-9406 e-24 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 u--searchDirs (DataC-45List-find (lambda (u--d) (DataC-45String-isInfixOf e-24 (DataC-45Maybe-fromMaybe (lambda () u--d) (LibrariesC-45UtilsC-45Path-fileName u--d)))) u--searchDirs)) eta-0)))))))))) (else (let ((e-25 (vector-ref sc0 1))) (IdrisC-45REPLC-45FuzzySearch-fuzzySearch arg-0 arg-1 arg-2 arg-3 arg-4 e-25))))))) -(define IdrisC-45REPL-printClause (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((act-24 (IdrisC-45Resugar-pterm arg-0 arg-1 e-1 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (IdrisC-45Resugar-pterm arg-0 arg-1 e-2 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (ParserC-45Unlit-relit arg-2 (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Types-fastPack (DataC-45List-replicate arg-3 #\ )) (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--show_Show_PTerm e-5) (PreludeC-45TypesC-45String-C-43C-43 " = " (IdrisC-45Syntax-u--show_Show_PTerm e-6))))))))))))))))))) ((1) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((e-6 (vector-ref sc0 4))) (let ((e-8 (vector-ref sc0 6))) (let ((act-24 (IdrisC-45Resugar-pterm arg-0 arg-1 e-4 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc1 1))) (let ((act-25 (IdrisC-45Resugar-pterm arg-0 arg-1 e-5 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc2 1))) (let ((act-26 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (IdrisC-45REPL-printClause arg-0 arg-1 arg-2 (PreludeC-45Types-u--C-43_Num_Nat arg-3 (+ 1 (+ 1 0))) eta-0 eta-1))) e-8 '() ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc3 1))) (vector 1 (PreludeC-45TypesC-45String-C-43C-43 (ParserC-45Unlit-relit arg-2 (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Types-fastPack (DataC-45List-replicate arg-3 #\ )) (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--show_Show_PTerm e-9) (PreludeC-45TypesC-45String-C-43C-43 " with (" (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--show_Show_PTerm e-10) (PreludeC-45TypesC-45String-C-43C-43 ")" (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Types-maybe (lambda () "") (lambda () (lambda (u--nm) (PreludeC-45TypesC-45String-C-43C-43 " proof " (CoreC-45Name-u--show_Show_Name u--nm)))) e-6) "\u000a"))))))) (CoreC-45NameC-45Namespace-showSep "\u000a" e-11))))))))))))))))))))))) (else (let ((e-10 (vector-ref sc0 2))) (let ((act-24 (IdrisC-45Resugar-pterm arg-0 arg-1 e-10 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (ParserC-45Unlit-relit arg-2 (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Types-fastPack (DataC-45List-replicate arg-3 #\ )) (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--show_Show_PTerm e-5) " impossible"))))))))))))))) +(define IdrisC-45REPL-processEdit (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (case (vector-ref arg-5 0) ((0) (let ((e-0 (vector-ref arg-5 1))) (let ((e-1 (vector-ref arg-5 2))) (let ((e-2 (vector-ref arg-5 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (let ((act-25 (unbox arg-3))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-3 (vector-ref act-25 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref act-25 1))) (let ((u--name (DataC-45Maybe-fromMaybe (lambda () e-2) (IdrisC-45REPL-findInTree (cons (PreludeC-45Num-u--C-45_Neg_Int e-0 1) (PreludeC-45Num-u--C-45_Neg_Int e-1 1)) e-2 (let ((e-11 (vector-ref e-6 5))) e-11))))) (let ((act-26 ((CoreC-45Context-lookupCtxtName u--name (let ((e-33 (vector-ref e-5 0))) e-33)) eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-3 (vector-ref act-26 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (if (null? e-7) (vector 1 '()) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-1) (IdrisC-45REPL-displayType arg-0 arg-2 e-5 eta-1)) e-7 '() eta-0))) (case (vector-ref act-27 0) ((0) (let ((e-3 (vector-ref act-27 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref act-27 1))) (vector 1 (box (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep e-8)))))))))) (case (vector-ref act-27 0) ((0) (let ((e-3 (vector-ref act-27 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref act-27 1))) (let ((act-28 (CoreC-45Metadata-findTypeAt arg-3 (lambda (eta-1) (lambda (eta-2) (IdrisC-45REPL-anyAt (lambda (eta-3) (CoreC-45FC-within (cons (PreludeC-45Num-u--C-45_Neg_Int e-0 1) (PreludeC-45Num-u--C-45_Neg_Int e-1 1)) eta-3)) eta-1 eta-2))) eta-0))) (case (vector-ref act-28 0) ((0) (let ((e-3 (vector-ref act-28 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref act-28 1))) ((IdrisC-45REPL-case--processEdit-3118 e-2 e-1 e-0 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 u--name e-7 e-8 e-9 (cons e-8 e-9)) eta-0))))))))))))))))))))))))))) ((1) (let ((e-3 (vector-ref arg-5 1))) (let ((e-4 (vector-ref arg-5 2))) (let ((e-5 (vector-ref arg-5 3))) (let ((e-6 (vector-ref arg-5 4))) (let ((u--find (lambda (clam-0) (let ((sc1 (PreludeC-45EqOrd-u--C-62_Ord_Int e-5 (blodwen-toSignedInt 0 63)))) (cond ((equal? sc1 1) (CoreC-45FC-within (cons (PreludeC-45Num-u--C-45_Neg_Int e-4 1) (PreludeC-45Num-u--C-45_Neg_Int e-5 1)) clam-0)) (else (CoreC-45FC-onLine (PreludeC-45Num-u--C-45_Neg_Int e-4 1) clam-0))))))) (lambda (eta-0) (let ((act-24 (TTImpC-45InteractiveC-45CaseSplit-getSplits arg-0 arg-3 arg-1 (lambda (eta-1) (lambda (eta-2) (IdrisC-45REPL-anyAt u--find eta-1 eta-2))) e-6 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-24 1))) (case (vector-ref e-7 0) ((1) (let ((e-1 (vector-ref e-7 1))) (let ((act-25 (IdrisC-45IDEModeC-45CaseSplit-updateCase arg-0 arg-2 arg-4 e-1 (PreludeC-45Num-u--C-45_Neg_Int e-4 1) (PreludeC-45Num-u--C-45_Neg_Int e-5 1) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-25 1))) (cond ((equal? e-3 1) (IdrisC-45REPL-updateFile arg-4 (lambda (eta-1) (IdrisC-45REPL-caseSplit (LibrariesC-45DataC-45StringC-45Extra-unlines e-8) (PreludeC-45Types-prim__integerToNat (PreludeC-45Cast-u--cast_Cast_Int_Integer (PreludeC-45Num-u--C-45_Neg_Int e-4 1))) eta-1)) eta-0)) (else (vector 1 (vector 0 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (PreludeC-45Types-u--map_Functor_List eta-3 eta-4))))) (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String eta-1)) e-8)))))))))))) (else (let ((e-8 (vector-ref e-7 1))) (vector 1 (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String (TTImpC-45InteractiveC-45CaseSplit-u--show_Show_SplitError e-8)))))))))))))))))) ((2) (let ((e-7 (vector-ref arg-5 1))) (let ((e-8 (vector-ref arg-5 2))) (let ((e-9 (vector-ref arg-5 3))) (lambda (eta-0) (let ((act-24 (IdrisC-45IDEModeC-45CaseSplit-getClause arg-0 arg-3 arg-4 e-8 e-9 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (if (null? e-5) (vector 1 (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (CoreC-45Name-u--pretty_Pretty_Name e-9) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "not defined here")))) (let ((e-1 (unbox e-5))) (cond ((equal? e-7 1) (IdrisC-45REPL-updateFile arg-4 (lambda (eta-1) (IdrisC-45REPL-addClause e-1 (PreludeC-45Types-prim__integerToNat (PreludeC-45Cast-u--cast_Cast_Int_Integer e-8)) eta-1)) eta-0)) (else (vector 1 (vector 0 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String e-1)))))))))))))))) ((3) (let ((e-10 (vector-ref arg-5 1))) (let ((e-11 (vector-ref arg-5 2))) (let ((e-12 (vector-ref arg-5 3))) (let ((e-13 (vector-ref arg-5 4))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (let ((act-25 (unbox arg-2))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((u--brack (DataC-45List-elemBy (lambda (u--x) (lambda (u--y) (CoreC-45Name-u--C-61C-61_Eq_Name (CoreC-45Name-dropNS u--x) (CoreC-45Name-dropNS u--y)))) e-12 (let ((e-9 (vector-ref e-6 6))) e-9)))) (let ((act-26 (CoreC-45Context-lookupDefName e-12 (let ((e-0 (vector-ref e-5 0))) e-0) eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (if (null? e-7) (vector 1 (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "Unknown name") (CoreC-45Name-u--pretty_Pretty_Name e-12)))) (let ((e-1 (car e-7))) (let ((e-2 (cdr e-7))) (if (null? e-1) (vector 1 (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unsafeTextWithoutNewLines eta-1)) (DataC-45List1-forget (LibrariesC-45DataC-45StringC-45Extra-lines (let ((sc6 (DataC-45String-isSuffixOf "\u000a" "Not a searchable hole"))) (cond ((equal? sc6 1) (LibrariesC-45DataC-45StringC-45Extra-dropLast (+ 1 0) "Not a searchable hole")) (else "Not a searchable hole"))))))))) (let ((e-9 (car e-1))) (let ((e-8 (cdr e-1))) (if (null? e-8) (vector 1 (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unsafeTextWithoutNewLines eta-1)) (DataC-45List1-forget (LibrariesC-45DataC-45StringC-45Extra-lines (let ((sc7 (DataC-45String-isSuffixOf "\u000a" "Not a searchable hole"))) (cond ((equal? sc7 1) (LibrariesC-45DataC-45StringC-45Extra-dropLast (+ 1 0) "Not a searchable hole")) (else "Not a searchable hole"))))))))) (let ((e-15 (car e-8))) (let ((e-14 (cdr e-8))) (case (vector-ref e-14 0) ((7) (let ((e-17 (vector-ref e-14 1))) (if (null? e-2) (let ((u--searchtm (lambda (eta-1) (TTImpC-45InteractiveC-45ExprSearch-exprSearch arg-0 arg-3 arg-1 (CoreC-45FC-replFC) e-12 '() eta-1)))) (let ((act-27 (let ((act-27 (unbox arg-4))) (vector 1 act-27)))) (case (vector-ref act-27 0) ((0) (let ((e-3 (vector-ref act-27 1))) (vector 0 e-3))) (else (let ((e-18 (vector-ref act-27 1))) (let ((act-28 (let ((act-28 (set-box! arg-4 (let ((e-0 (vector-ref e-18 0))) (let ((e-31 (vector-ref e-18 1))) (let ((e-30 (vector-ref e-18 2))) (let ((e-3 (vector-ref e-18 3))) (let ((e-4 (vector-ref e-18 4))) (let ((e-29 (vector-ref e-18 5))) (let ((e-28 (vector-ref e-18 6))) (let ((e-27 (vector-ref e-18 7))) (let ((e-26 (vector-ref e-18 8))) (let ((e-24 (vector-ref e-18 10))) (let ((e-23 (vector-ref e-18 11))) (let ((e-22 (vector-ref e-18 12))) (let ((e-21 (vector-ref e-18 13))) (let ((e-20 (vector-ref e-18 14))) (let ((e-19 (vector-ref e-18 15))) (vector e-0 e-31 e-30 e-3 e-4 e-29 e-28 e-27 e-26 (box (cons e-12 u--searchtm)) e-24 e-23 e-22 e-21 e-20 e-19))))))))))))))))))) (vector 1 act-28)))) (case (vector-ref act-28 0) ((0) (let ((e-3 (vector-ref act-28 1))) (vector 0 e-3))) (else (let ((act-29 (let ((act-29 (unbox arg-0))) (vector 1 act-29)))) (case (vector-ref act-29 0) ((0) (let ((e-3 (vector-ref act-29 1))) (vector 0 e-3))) (else (let ((act-30 (IdrisC-45REPL-nextProofSearch arg-0 arg-1 arg-4 eta-0))) (case (vector-ref act-30 0) ((0) (let ((e-3 (vector-ref act-30 1))) (vector 0 e-3))) (else (let ((e-21 (vector-ref act-30 1))) (if (null? e-21) (vector 1 (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unsafeTextWithoutNewLines eta-1)) (DataC-45List1-forget (LibrariesC-45DataC-45StringC-45Extra-lines (let ((sc14 (DataC-45String-isSuffixOf "\u000a" "No search results"))) (cond ((equal? sc14 1) (LibrariesC-45DataC-45StringC-45Extra-dropLast (+ 1 0) "No search results")) (else "No search results"))))))))) (let ((e-3 (unbox e-21))) (let ((e-22 (cdr e-3))) (let ((u--tmC-39 (IdrisC-45REPL-dropLams e-17 e-22))) (let ((act-31 (IdrisC-45Resugar-pterm arg-0 arg-2 u--tmC-39 eta-0))) (case (vector-ref act-31 0) ((0) (let ((e-4 (vector-ref act-31 1))) (vector 0 e-4))) (else (let ((e-24 (vector-ref act-31 1))) (let ((u--itmC-39 (cond ((equal? u--brack 1) (IdrisC-45Resugar-addBracket (CoreC-45FC-replFC) e-24)) (else e-24)))) (cond ((equal? e-10 1) (IdrisC-45REPL-updateFile arg-4 (lambda (eta-1) (IdrisC-45REPL-proofSearch e-12 (IdrisC-45Syntax-u--show_Show_PTerm u--itmC-39) (PreludeC-45Types-prim__integerToNat (PreludeC-45Cast-u--cast_Cast_Int_Integer (PreludeC-45Num-u--C-45_Neg_Int e-11 1))) eta-1)) eta-0)) (else (vector 1 (vector 0 (IdrisC-45REPL-prettyTerm u--itmC-39))))))))))))))))))))))))))))) (vector 1 (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unsafeTextWithoutNewLines eta-1)) (DataC-45List1-forget (LibrariesC-45DataC-45StringC-45Extra-lines (let ((sc9 (DataC-45String-isSuffixOf "\u000a" "Not a searchable hole"))) (cond ((equal? sc9 1) (LibrariesC-45DataC-45StringC-45Extra-dropLast (+ 1 0) "Not a searchable hole")) (else "Not a searchable hole")))))))))))) ((1) (let ((e-20 (vector-ref e-14 1))) (let ((e-19 (vector-ref e-14 2))) (let ((e-16 (vector-ref e-14 3))) (let ((e-17 (vector-ref e-14 4))) (let ((e-18 (vector-ref e-14 5))) (if (null? e-19) (case (vector-ref e-16 0) ((1) (let ((e-22 (vector-ref e-16 1))) (let ((e-23 (vector-ref e-16 2))) (if (null? e-2) (let ((bind-0 (cons (cons e-9 (cons e-15 (vector 1 e-20 '() (vector 1 e-22 e-23) e-17 e-18))) '()))) (IdrisC-45REPL-case--caseC-32blockC-32inC-32processEdit-4228 e-13 e-12 e-11 e-10 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 u--brack e-17 e-18 e-22 e-9 e-15 e-23 e-20 bind-0 (let ((e-0 (car e-20))) e-0) eta-0)) (vector 1 (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unsafeTextWithoutNewLines eta-1)) (DataC-45List1-forget (LibrariesC-45DataC-45StringC-45Extra-lines (let ((sc11 (DataC-45String-isSuffixOf "\u000a" "Not a searchable hole"))) (cond ((equal? sc11 1) (LibrariesC-45DataC-45StringC-45Extra-dropLast (+ 1 0) "Not a searchable hole")) (else "Not a searchable hole")))))))))))))(else (vector 1 (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unsafeTextWithoutNewLines eta-1)) (DataC-45List1-forget (LibrariesC-45DataC-45StringC-45Extra-lines (let ((sc9 (DataC-45String-isSuffixOf "\u000a" "Not a searchable hole"))) (cond ((equal? sc9 1) (LibrariesC-45DataC-45StringC-45Extra-dropLast (+ 1 0) "Not a searchable hole")) (else "Not a searchable hole"))))))))))) (vector 1 (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unsafeTextWithoutNewLines eta-1)) (DataC-45List1-forget (LibrariesC-45DataC-45StringC-45Extra-lines (let ((sc9 (DataC-45String-isSuffixOf "\u000a" "Not a searchable hole"))) (cond ((equal? sc9 1) (LibrariesC-45DataC-45StringC-45Extra-dropLast (+ 1 0) "Not a searchable hole")) (else "Not a searchable hole"))))))))))))))))(else (vector 1 (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unsafeTextWithoutNewLines eta-1)) (DataC-45List1-forget (LibrariesC-45DataC-45StringC-45Extra-lines (let ((sc7 (DataC-45String-isSuffixOf "\u000a" "Not a searchable hole"))) (cond ((equal? sc7 1) (LibrariesC-45DataC-45StringC-45Extra-dropLast (+ 1 0) "Not a searchable hole")) (else "Not a searchable hole"))))))))))))))))))))))))))))))))))))))) ((4) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (let ((act-25 (unbox arg-2))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (IdrisC-45REPL-nextProofSearch arg-0 arg-1 arg-4 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (if (null? e-7) (vector 1 (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unsafeTextWithoutNewLines eta-1)) (DataC-45List1-forget (LibrariesC-45DataC-45StringC-45Extra-lines (let ((sc5 (DataC-45String-isSuffixOf "\u000a" "No more results"))) (cond ((equal? sc5 1) (LibrariesC-45DataC-45StringC-45Extra-dropLast (+ 1 0) "No more results")) (else "No more results"))))))))) (let ((e-1 (unbox e-7))) (let ((e-9 (car e-1))) (let ((e-8 (cdr e-1))) (let ((act-27 (CoreC-45Context-lookupDefName e-9 (let ((e-0 (vector-ref e-5 0))) e-0) eta-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref act-27 1))) (if (null? e-10) (vector 1 (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unsafeTextWithoutNewLines eta-1)) (DataC-45List1-forget (LibrariesC-45DataC-45StringC-45Extra-lines (let ((sc8 (DataC-45String-isSuffixOf "\u000a" "Not a searchable hole"))) (cond ((equal? sc8 1) (LibrariesC-45DataC-45StringC-45Extra-dropLast (+ 1 0) "Not a searchable hole")) (else "Not a searchable hole"))))))))) (let ((e-3 (car e-10))) (let ((e-2 (cdr e-10))) (if (null? e-3) (vector 1 (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unsafeTextWithoutNewLines eta-1)) (DataC-45List1-forget (LibrariesC-45DataC-45StringC-45Extra-lines (let ((sc9 (DataC-45String-isSuffixOf "\u000a" "Not a searchable hole"))) (cond ((equal? sc9 1) (LibrariesC-45DataC-45StringC-45Extra-dropLast (+ 1 0) "Not a searchable hole")) (else "Not a searchable hole"))))))))) (let ((e-11 (cdr e-3))) (if (null? e-11) (vector 1 (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unsafeTextWithoutNewLines eta-1)) (DataC-45List1-forget (LibrariesC-45DataC-45StringC-45Extra-lines (let ((sc10 (DataC-45String-isSuffixOf "\u000a" "Not a searchable hole"))) (cond ((equal? sc10 1) (LibrariesC-45DataC-45StringC-45Extra-dropLast (+ 1 0) "Not a searchable hole")) (else "Not a searchable hole"))))))))) (let ((e-13 (cdr e-11))) (case (vector-ref e-13 0) ((7) (let ((e-16 (vector-ref e-13 1))) (if (null? e-2) (let ((u--brack (DataC-45List-elemBy (lambda (u--x) (lambda (u--y) (CoreC-45Name-u--C-61C-61_Eq_Name (CoreC-45Name-dropNS u--x) (CoreC-45Name-dropNS u--y)))) e-9 (let ((e-19 (vector-ref e-6 6))) e-19)))) (let ((u--tmC-39 (IdrisC-45REPL-dropLams e-16 e-8))) (let ((act-28 (IdrisC-45Resugar-pterm arg-0 arg-2 u--tmC-39 eta-0))) (case (vector-ref act-28 0) ((0) (let ((e-4 (vector-ref act-28 1))) (vector 0 e-4))) (else (let ((e-17 (vector-ref act-28 1))) (let ((u--itmC-39 (cond ((equal? u--brack 1) (IdrisC-45Resugar-addBracket (CoreC-45FC-replFC) e-17)) (else e-17)))) (vector 1 (vector 0 (IdrisC-45REPL-prettyTerm u--itmC-39)))))))))) (vector 1 (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unsafeTextWithoutNewLines eta-1)) (DataC-45List1-forget (LibrariesC-45DataC-45StringC-45Extra-lines (let ((sc12 (DataC-45String-isSuffixOf "\u000a" "Not a searchable hole"))) (cond ((equal? sc12 1) (LibrariesC-45DataC-45StringC-45Extra-dropLast (+ 1 0) "Not a searchable hole")) (else "Not a searchable hole"))))))))))))(else (vector 1 (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unsafeTextWithoutNewLines eta-1)) (DataC-45List1-forget (LibrariesC-45DataC-45StringC-45Extra-lines (let ((sc10 (DataC-45String-isSuffixOf "\u000a" "Not a searchable hole"))) (cond ((equal? sc10 1) (LibrariesC-45DataC-45StringC-45Extra-dropLast (+ 1 0) "Not a searchable hole")) (else "Not a searchable hole")))))))))))))))))))))))))))))))))))))))) ((5) (let ((e-14 (vector-ref arg-5 1))) (let ((e-15 (vector-ref arg-5 2))) (let ((e-16 (vector-ref arg-5 3))) (let ((e-17 (vector-ref arg-5 4))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Metadata-findTyDeclAt arg-3 (lambda (u--p) (lambda (u--n) (CoreC-45FC-onLine (PreludeC-45Num-u--C-45_Neg_Int e-15 1) u--p))) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (if (null? e-6) (vector 1 (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "Can't find declaration for") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (CoreC-45Name-u--pretty_Pretty_Name e-16) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "on line") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Int e-15)))))) (let ((e-1 (unbox e-6))) (let ((e-8 (car e-1))) (let ((e-7 (cdr e-1))) (let ((e-9 (car e-7))) (let ((e-10 (cdr e-7))) (let ((e-13 (car e-10))) (let ((e-18 (cdr e-10))) (let ((act-26 (CoreC-45Context-lookupDefExact e-9 (let ((e-0 (vector-ref e-5 0))) e-0) eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref act-26 1))) (let ((_-0 (box (cons e-8 (cons e-9 (cons e-13 e-18)))))) (if (null? e-11) (vector 1 (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "Can't find declaration for") (CoreC-45Name-u--pretty_Pretty_Name e-16)))) (let ((e-2 (unbox e-11))) (case (vector-ref e-2 0) ((0) (let ((u--searchdef (lambda (eta-1) (TTImpC-45InteractiveC-45GenerateDef-makeDefSort arg-0 arg-3 arg-1 (lambda (u--p) (lambda (u--n) (CoreC-45FC-onLine (PreludeC-45Num-u--C-45_Neg_Int e-15 1) u--p))) (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))))))))) (lambda (eta-2) (lambda (eta-3) (TTImpC-45InteractiveC-45GenerateDef-mostUsed eta-2 eta-3))) e-9 eta-1)))) (let ((act-27 (let ((act-27 (unbox arg-4))) (vector 1 act-27)))) (case (vector-ref act-27 0) ((0) (let ((e-3 (vector-ref act-27 1))) (vector 0 e-3))) (else (let ((e-12 (vector-ref act-27 1))) (let ((act-28 (let ((act-28 (set-box! arg-4 (let ((e-0 (vector-ref e-12 0))) (let ((e-31 (vector-ref e-12 1))) (let ((e-30 (vector-ref e-12 2))) (let ((e-3 (vector-ref e-12 3))) (let ((e-4 (vector-ref e-12 4))) (let ((e-29 (vector-ref e-12 5))) (let ((e-28 (vector-ref e-12 6))) (let ((e-27 (vector-ref e-12 7))) (let ((e-26 (vector-ref e-12 8))) (let ((e-25 (vector-ref e-12 9))) (let ((e-23 (vector-ref e-12 11))) (let ((e-22 (vector-ref e-12 12))) (let ((e-21 (vector-ref e-12 13))) (let ((e-20 (vector-ref e-12 14))) (let ((e-19 (vector-ref e-12 15))) (vector e-0 e-31 e-30 e-3 e-4 e-29 e-28 e-27 e-26 e-25 (box (cons e-15 u--searchdef)) e-23 e-22 e-21 e-20 e-19))))))))))))))))))) (vector 1 act-28)))) (case (vector-ref act-28 0) ((0) (let ((e-3 (vector-ref act-28 1))) (vector 0 e-3))) (else (let ((act-29 (IdrisC-45REPL-nextGenDef arg-0 arg-1 arg-4 e-17 eta-0))) (case (vector-ref act-29 0) ((0) (let ((e-3 (vector-ref act-29 1))) (vector 0 e-3))) (else (let ((e-20 (vector-ref act-29 1))) (let ((bind-0 (box (vector 0 )))) (if (null? e-20) (vector 1 (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unsafeTextWithoutNewLines eta-1)) (DataC-45List1-forget (LibrariesC-45DataC-45StringC-45Extra-lines (let ((sc14 (DataC-45String-isSuffixOf "\u000a" "No search results"))) (cond ((equal? sc14 1) (LibrariesC-45DataC-45StringC-45Extra-dropLast (+ 1 0) "No search results")) (else "No search results"))))))))) (let ((e-3 (unbox e-20))) (let ((e-22 (car e-3))) (let ((e-21 (cdr e-3))) (let ((e-24 (car e-21))) (let ((e-23 (cdr e-21))) (let ((u--l (PreludeC-45Types-prim__integerToNat (PreludeC-45Cast-u--cast_Cast_Int_Integer (CoreC-45FC-startCol (CoreC-45FC-toNonEmptyFC e-24)))))) (let ((act-30 (IdrisC-45REPLC-45Opts-getSourceLine arg-4 e-15 eta-0))) (case (vector-ref act-30 0) ((0) (let ((e-4 (vector-ref act-30 1))) (vector 0 e-4))) (else (let ((e-25 (vector-ref act-30 1))) (let ((_-1 (box (cons e-22 (cons e-24 e-23))))) (if (null? e-25) (vector 1 (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unsafeTextWithoutNewLines eta-1)) (DataC-45List1-forget (LibrariesC-45DataC-45StringC-45Extra-lines (let ((sc18 (DataC-45String-isSuffixOf "\u000a" "Source line not found"))) (cond ((equal? sc18 1) (LibrariesC-45DataC-45StringC-45Extra-dropLast (+ 1 0) "Source line not found")) (else "Source line not found"))))))))) (let ((e-4 (unbox e-25))) (let ((_-2 (box e-4))) (IdrisC-45REPL-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32processEdit-5189 e-17 e-16 e-15 e-14 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-18 e-13 e-8 e-9 _-0 bind-0 u--searchdef e-12 e-22 e-24 e-23 _-1 u--l e-4 _-2 (ParserC-45Unlit-isLitLine e-4) eta-0))))))))))))))))))))))))))))))(else (vector 1 (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unsafeTextWithoutNewLines eta-1)) (DataC-45List1-forget (LibrariesC-45DataC-45StringC-45Extra-lines (let ((sc9 (DataC-45String-isSuffixOf "\u000a" "Already defined"))) (cond ((equal? sc9 1) (LibrariesC-45DataC-45StringC-45Extra-dropLast (+ 1 0) "Already defined")) (else "Already defined")))))))))))))))))))))))))))))))))))))))) ((6) (lambda (eta-0) (let ((act-24 (IdrisC-45REPL-nextGenDef arg-0 arg-1 arg-4 0 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (if (null? e-5) (vector 1 (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unsafeTextWithoutNewLines eta-1)) (DataC-45List1-forget (LibrariesC-45DataC-45StringC-45Extra-lines (let ((sc3 (DataC-45String-isSuffixOf "\u000a" "No more results"))) (cond ((equal? sc3 1) (LibrariesC-45DataC-45StringC-45Extra-dropLast (+ 1 0) "No more results")) (else "No more results"))))))))) (let ((e-1 (unbox e-5))) (let ((e-7 (car e-1))) (let ((e-6 (cdr e-1))) (let ((e-9 (car e-6))) (let ((e-10 (cdr e-6))) (let ((u--l (PreludeC-45Types-prim__integerToNat (PreludeC-45Cast-u--cast_Cast_Int_Integer (CoreC-45FC-startCol (CoreC-45FC-toNonEmptyFC e-9)))))) (let ((act-25 (IdrisC-45REPLC-45Opts-getSourceLine arg-4 e-7 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-25 1))) (if (null? e-8) (vector 1 (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unsafeTextWithoutNewLines eta-1)) (DataC-45List1-forget (LibrariesC-45DataC-45StringC-45Extra-lines (let ((sc7 (DataC-45String-isSuffixOf "\u000a" "Source line not found"))) (cond ((equal? sc7 1) (LibrariesC-45DataC-45StringC-45Extra-dropLast (+ 1 0) "Source line not found")) (else "Source line not found"))))))))) (let ((e-2 (unbox e-8))) (let ((sc7 (ParserC-45Unlit-isLitLine e-2))) (let ((e-4 (car sc7))) (let ((act-26 (CoreC-45Core-traverseC-39 (lambda (eta-1) (lambda (eta-2) (IdrisC-45REPL-printClause arg-0 arg-2 e-4 u--l eta-1 eta-2))) e-10 '() eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-11 (vector-ref act-26 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-26 1))) (vector 1 (vector 0 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (PreludeC-45Types-u--map_Functor_List eta-3 eta-4))))) (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String eta-1)) e-11))))))))))))))))))))))))))))) ((7) (let ((e-18 (vector-ref arg-5 1))) (let ((e-19 (vector-ref arg-5 2))) (let ((e-20 (vector-ref arg-5 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (let ((act-25 (unbox arg-2))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((u--brack (DataC-45List-elemBy (lambda (u--x) (lambda (u--y) (CoreC-45Name-u--C-61C-61_Eq_Name (CoreC-45Name-dropNS u--x) (CoreC-45Name-dropNS u--y)))) e-20 (let ((e-9 (vector-ref e-6 6))) e-9)))) (let ((act-26 (IdrisC-45REPL-lookupDefTyName e-20 (let ((e-0 (vector-ref e-5 0))) e-0) eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (if (null? e-7) (vector 1 (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unsafeTextWithoutNewLines eta-1)) (DataC-45List1-forget (LibrariesC-45DataC-45StringC-45Extra-lines (let ((sc5 (DataC-45String-isSuffixOf "\u000a" "Can't make lifted definition"))) (cond ((equal? sc5 1) (LibrariesC-45DataC-45StringC-45Extra-dropLast (+ 1 0) "Can't make lifted definition")) (else "Can't make lifted definition"))))))))) (let ((e-1 (car e-7))) (let ((e-2 (cdr e-7))) (if (null? e-1) (vector 1 (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unsafeTextWithoutNewLines eta-1)) (DataC-45List1-forget (LibrariesC-45DataC-45StringC-45Extra-lines (let ((sc6 (DataC-45String-isSuffixOf "\u000a" "Can't make lifted definition"))) (cond ((equal? sc6 1) (LibrariesC-45DataC-45StringC-45Extra-dropLast (+ 1 0) "Can't make lifted definition")) (else "Can't make lifted definition"))))))))) (let ((e-8 (cdr e-1))) (if (null? e-8) (vector 1 (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unsafeTextWithoutNewLines eta-1)) (DataC-45List1-forget (LibrariesC-45DataC-45StringC-45Extra-lines (let ((sc7 (DataC-45String-isSuffixOf "\u000a" "Can't make lifted definition"))) (cond ((equal? sc7 1) (LibrariesC-45DataC-45StringC-45Extra-dropLast (+ 1 0) "Can't make lifted definition")) (else "Can't make lifted definition"))))))))) (let ((e-10 (cdr e-8))) (if (null? e-10) (vector 1 (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unsafeTextWithoutNewLines eta-1)) (DataC-45List1-forget (LibrariesC-45DataC-45StringC-45Extra-lines (let ((sc8 (DataC-45String-isSuffixOf "\u000a" "Can't make lifted definition"))) (cond ((equal? sc8 1) (LibrariesC-45DataC-45StringC-45Extra-dropLast (+ 1 0) "Can't make lifted definition")) (else "Can't make lifted definition"))))))))) (let ((e-13 (car e-10))) (let ((e-14 (cdr e-10))) (case (vector-ref e-13 0) ((7) (let ((e-15 (vector-ref e-13 1))) (if (null? e-2) (let ((act-27 (TTImpC-45InteractiveC-45MakeLemma-makeLemma arg-3 arg-0 (CoreC-45FC-replFC) e-20 e-15 e-14 eta-0))) (case (vector-ref act-27 0) ((0) (let ((e-3 (vector-ref act-27 1))) (vector 0 e-3))) (else (let ((e-12 (vector-ref act-27 1))) (let ((e-4 (car e-12))) (let ((e-3 (cdr e-12))) (let ((act-28 (IdrisC-45Resugar-pterm arg-0 arg-2 e-4 eta-0))) (case (vector-ref act-28 0) ((0) (let ((e-17 (vector-ref act-28 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref act-28 1))) (let ((act-29 (IdrisC-45Resugar-pterm arg-0 arg-2 e-3 eta-0))) (case (vector-ref act-29 0) ((0) (let ((e-21 (vector-ref act-29 1))) (vector 0 e-21))) (else (let ((e-21 (vector-ref act-29 1))) (let ((act-30 (let ((act-30 (unbox arg-4))) (vector 1 act-30)))) (case (vector-ref act-30 0) ((0) (let ((e-22 (vector-ref act-30 1))) (vector 0 e-22))) (else (let ((u--pappstr (IdrisC-45Syntax-u--show_Show_PTerm (cond ((equal? u--brack 1) (IdrisC-45Resugar-addBracket (CoreC-45FC-replFC) e-21)) (else e-21))))) (let ((act-31 (IdrisC-45REPLC-45Opts-getSourceLine arg-4 e-19 eta-0))) (case (vector-ref act-31 0) ((0) (let ((e-23 (vector-ref act-31 1))) (vector 0 e-23))) (else (let ((e-23 (vector-ref act-31 1))) (if (null? e-23) (vector 1 (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unsafeTextWithoutNewLines eta-1)) (DataC-45List1-forget (LibrariesC-45DataC-45StringC-45Extra-lines (let ((sc17 (DataC-45String-isSuffixOf "\u000a" "Source line not found"))) (cond ((equal? sc17 1) (LibrariesC-45DataC-45StringC-45Extra-dropLast (+ 1 0) "Source line not found")) (else "Source line not found"))))))))) (let ((e-24 (unbox e-23))) (let ((sc17 (ParserC-45Unlit-isLitLine e-24))) (let ((e-26 (car sc17))) (cond ((equal? e-18 1) (IdrisC-45REPL-updateFile arg-4 (lambda (eta-1) (IdrisC-45REPL-addMadeLemma e-26 e-20 (IdrisC-45Syntax-u--show_Show_PTerm e-17) u--pappstr (PreludeC-45Types-u--max_Ord_Nat (PreludeC-45Types-u--fromInteger_Num_Nat 0) (PreludeC-45Types-prim__integerToNat (PreludeC-45Cast-u--cast_Cast_Int_Integer (PreludeC-45Num-u--C-45_Neg_Int e-19 1)))) eta-1)) eta-0)) (else (vector 1 (vector 2 e-26 e-20 e-17 u--pappstr)))))))))))))))))))))))))))))) (vector 1 (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unsafeTextWithoutNewLines eta-1)) (DataC-45List1-forget (LibrariesC-45DataC-45StringC-45Extra-lines (let ((sc10 (DataC-45String-isSuffixOf "\u000a" "Can't make lifted definition"))) (cond ((equal? sc10 1) (LibrariesC-45DataC-45StringC-45Extra-dropLast (+ 1 0) "Can't make lifted definition")) (else "Can't make lifted definition"))))))))))))(else (vector 1 (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unsafeTextWithoutNewLines eta-1)) (DataC-45List1-forget (LibrariesC-45DataC-45StringC-45Extra-lines (let ((sc8 (DataC-45String-isSuffixOf "\u000a" "Can't make lifted definition"))) (cond ((equal? sc8 1) (LibrariesC-45DataC-45StringC-45Extra-dropLast (+ 1 0) "Can't make lifted definition")) (else "Can't make lifted definition"))))))))))))))))))))))))))))))))))))))) ((8) (let ((e-21 (vector-ref arg-5 1))) (let ((e-22 (vector-ref arg-5 2))) (let ((e-23 (vector-ref arg-5 3))) (lambda (eta-0) (let ((act-24 (IdrisC-45REPLC-45Opts-getLitStyle arg-4 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (let ((act-25 (unbox arg-2))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((u--brack (DataC-45List-elemBy (lambda (u--x) (lambda (u--y) (CoreC-45Name-u--C-61C-61_Eq_Name (CoreC-45Name-dropNS u--x) (CoreC-45Name-dropNS u--y)))) e-23 (let ((e-9 (vector-ref e-6 6))) e-9)))) (let ((act-26 (IdrisC-45REPLC-45Opts-getSourceLine arg-4 e-22 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (if (null? e-7) (vector 1 (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unsafeTextWithoutNewLines eta-1)) (DataC-45List1-forget (LibrariesC-45DataC-45StringC-45Extra-lines (let ((sc5 (DataC-45String-isSuffixOf "\u000a" "Source line not available"))) (cond ((equal? sc5 1) (LibrariesC-45DataC-45StringC-45Extra-dropLast (+ 1 0) "Source line not available")) (else "Source line not available"))))))))) (let ((e-1 (unbox e-7))) (let ((sc5 (ParserC-45Unlit-unlit e-5 e-1))) (case (vector-ref sc5 0) ((1) (let ((e-2 (vector-ref sc5 1))) (let ((sc6 (ParserC-45Unlit-isLitLine e-1))) (let ((e-4 (car sc6))) (let ((u--c (DataC-45List1-forget (LibrariesC-45DataC-45StringC-45Extra-lines (IdrisC-45IDEModeC-45MakeClause-makeCase u--brack e-23 e-2))))) (cond ((equal? e-21 1) (IdrisC-45REPL-updateFile arg-4 (lambda (eta-1) (IdrisC-45REPL-addMadeCase e-4 u--c (PreludeC-45Types-u--max_Ord_Nat (PreludeC-45Types-u--fromInteger_Num_Nat 0) (PreludeC-45Types-prim__integerToNat (PreludeC-45Cast-u--cast_Cast_Int_Integer (PreludeC-45Num-u--C-45_Neg_Int e-22 1)))) eta-1)) eta-0)) (else (vector 1 (vector 4 e-4 u--c))))))))) (else (vector 1 (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unsafeTextWithoutNewLines eta-1)) (DataC-45List1-forget (LibrariesC-45DataC-45StringC-45Extra-lines (let ((sc6 (DataC-45String-isSuffixOf "\u000a" "Invalid literate Idris"))) (cond ((equal? sc6 1) (LibrariesC-45DataC-45StringC-45Extra-dropLast (+ 1 0) "Invalid literate Idris")) (else "Invalid literate Idris")))))))))))))))))))))))))))))))) (else (let ((e-24 (vector-ref arg-5 1))) (let ((e-25 (vector-ref arg-5 2))) (let ((e-26 (vector-ref arg-5 3))) (lambda (eta-0) (let ((act-24 (IdrisC-45REPLC-45Opts-getLitStyle arg-4 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (IdrisC-45REPLC-45Opts-getSourceLine arg-4 e-25 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (if (null? e-6) (vector 1 (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unsafeTextWithoutNewLines eta-1)) (DataC-45List1-forget (LibrariesC-45DataC-45StringC-45Extra-lines (let ((sc4 (DataC-45String-isSuffixOf "\u000a" "Source line not available"))) (cond ((equal? sc4 1) (LibrariesC-45DataC-45StringC-45Extra-dropLast (+ 1 0) "Source line not available")) (else "Source line not available"))))))))) (let ((e-1 (unbox e-6))) (let ((sc4 (ParserC-45Unlit-unlit e-5 e-1))) (case (vector-ref sc4 0) ((1) (let ((e-2 (vector-ref sc4 1))) (let ((sc5 (ParserC-45Unlit-isLitLine e-1))) (let ((e-4 (car sc5))) (let ((u--w (DataC-45List1-forget (LibrariesC-45DataC-45StringC-45Extra-lines (IdrisC-45IDEModeC-45MakeClause-makeWith e-26 e-2))))) (cond ((equal? e-24 1) (IdrisC-45REPL-updateFile arg-4 (lambda (eta-1) (IdrisC-45REPL-addMadeCase e-4 u--w (PreludeC-45Types-u--max_Ord_Nat (PreludeC-45Types-u--fromInteger_Num_Nat 0) (PreludeC-45Types-prim__integerToNat (PreludeC-45Cast-u--cast_Cast_Int_Integer (PreludeC-45Num-u--C-45_Neg_Int e-25 1)))) eta-1)) eta-0)) (else (vector 1 (vector 3 e-4 u--w))))))))) (else (vector 1 (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unsafeTextWithoutNewLines eta-1)) (DataC-45List1-forget (LibrariesC-45DataC-45StringC-45Extra-lines (let ((sc5 (DataC-45String-isSuffixOf "\u000a" "Invalid literate Idris"))) (cond ((equal? sc5 1) (LibrariesC-45DataC-45StringC-45Extra-dropLast (+ 1 0) "Invalid literate Idris")) (else "Invalid literate Idris")))))))))))))))))))))))))))))) +(define IdrisC-45REPL-processCatch (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (CoreC-45Context-branch arg-0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (let ((act-26 (unbox arg-2))) (vector 1 act-26)))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (let ((act-27 (unbox arg-4))) (vector 1 act-27)))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (CoreC-45Core-u--catch_Catchable_Core_Error (lambda (eta-0) (let ((act-28 ((IdrisC-45REPL-process arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) eta-0))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-28 1))) (let ((act-29 (CoreC-45Context-commit arg-0 eta-0))) (case (vector-ref act-29 0) ((0) (let ((e-2 (vector-ref act-29 1))) (vector 0 e-2))) (else (vector 1 e-9))))))))) (lambda (u--err) (lambda (eta-0) (let ((act-28 (let ((act-28 (set-box! arg-0 e-5))) (vector 1 act-28)))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((act-29 (let ((act-29 (set-box! arg-1 e-6))) (vector 1 act-29)))) (case (vector-ref act-29 0) ((0) (let ((e-2 (vector-ref act-29 1))) (vector 0 e-2))) (else (let ((act-30 (let ((act-30 (set-box! arg-2 e-7))) (vector 1 act-30)))) (case (vector-ref act-30 0) ((0) (let ((e-2 (vector-ref act-30 1))) (vector 0 e-2))) (else (let ((act-31 (let ((act-31 (set-box! arg-4 e-8))) (vector 1 act-31)))) (case (vector-ref act-31 0) ((0) (let ((e-2 (vector-ref act-31 1))) (vector 0 e-2))) (else (let ((act-32 (IdrisC-45Error-display arg-0 arg-2 arg-4 u--err eta-0))) (case (vector-ref act-32 0) ((0) (let ((e-2 (vector-ref act-32 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref act-32 1))) (vector 1 (vector 1 e-13)))))))))))))))))))) ext-0))))))))))))))))))) +(define IdrisC-45REPL-process (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (case (vector-ref arg-5 0) ((0) (let ((e-0 (vector-ref arg-5 1))) (lambda (eta-0) (IdrisC-45REPL-execDecls arg-0 arg-1 arg-2 arg-3 arg-4 e-0 eta-0)))) ((1) (let ((e-1 (vector-ref arg-5 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((u--emode (let ((e-17 (vector-ref e-5 1))) e-17))) (cond ((equal? u--emode 2) (let ((act-25 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (case (vector-ref eta-1 0) ((0) (let ((e-2 (vector-ref eta-1 1))) (vector 0 e-2))) (else (vector 1 0)))) (lambda (eta-1) (IdrisC-45REPL-execExp arg-0 arg-1 arg-2 arg-3 arg-4 e-1 eta-1)) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (vector 1 (vector 2 e-1))))))(else (let ((act-25 (IdrisC-45REPL-inferAndNormalize arg-0 arg-1 arg-2 arg-3 arg-4 u--emode e-1 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((e-0 (car e-6))) (let ((e-2 (cdr e-6))) (let ((act-26 (IdrisC-45Resugar-resugar '() arg-0 arg-2 '() e-0 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-3 (vector-ref act-26 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (let ((act-27 (unbox arg-0))) (vector 1 act-27)))) (case (vector-ref act-27 0) ((0) (let ((e-3 (vector-ref act-27 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref act-27 1))) (let ((act-28 (let ((act-28 (unbox arg-4))) (vector 1 act-28)))) (case (vector-ref act-28 0) ((0) (let ((e-3 (vector-ref act-28 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref act-28 1))) (let ((u--norm (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (IdrisC-45REPL-replEval arg-0 '() u--emode eta-1 eta-2 eta-3)))))) (let ((act-29 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (case (vector-ref eta-1 0) ((0) (let ((e-3 (vector-ref eta-1 1))) (vector 0 e-3))) (else (let ((e-10 (vector-ref eta-1 1))) (vector 1 (vector 4 "it" e-10)))))) (lambda (eta-1) (CoreC-45UnifyState-genName arg-0 arg-1 "evalResult" eta-1)) eta-0))) (case (vector-ref act-29 0) ((0) (let ((e-3 (vector-ref act-29 1))) (vector 0 e-3))) (else (let ((e-10 (vector-ref act-29 1))) (let ((act-30 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (case (vector-ref eta-1 0) ((0) (let ((e-3 (vector-ref eta-1 1))) (vector 0 e-3))) (else (vector 1 0)))) (lambda (eta-1) (CoreC-45Context-addDef arg-0 e-10 (CoreC-45Context-newDef (CoreC-45FC-replFC) e-10 (AlgebraC-45ZeroOneOmega-u--top_Top_ZeroOneOmega) '() e-2 0 (vector 1 (CoreC-45Context-defaultPI) '() (vector 1 0 e-0) (vector 1 0 e-0) '())) eta-1)) eta-0))) (case (vector-ref act-30 0) ((0) (let ((e-3 (vector-ref act-30 1))) (vector 0 e-3))) (else (let ((act-31 (CoreC-45Context-addToSave arg-0 e-10 eta-0))) (case (vector-ref act-31 0) ((0) (let ((e-3 (vector-ref act-31 1))) (vector 0 e-3))) (else (let ((act-32 (let ((act-32 (set-box! arg-4 (let ((e-26 (vector-ref e-9 0))) (let ((e-25 (vector-ref e-9 1))) (let ((e-24 (vector-ref e-9 2))) (let ((e-3 (vector-ref e-9 3))) (let ((e-4 (vector-ref e-9 4))) (let ((e-23 (vector-ref e-9 5))) (let ((e-22 (vector-ref e-9 6))) (let ((e-21 (vector-ref e-9 7))) (let ((e-20 (vector-ref e-9 8))) (let ((e-19 (vector-ref e-9 9))) (let ((e-18 (vector-ref e-9 10))) (let ((e-16 (vector-ref e-9 12))) (let ((e-13 (vector-ref e-9 13))) (let ((e-14 (vector-ref e-9 14))) (let ((e-15 (vector-ref e-9 15))) (vector e-26 e-25 e-24 e-3 e-4 e-23 e-22 e-21 e-20 e-19 e-18 (box e-10) e-16 e-13 e-14 e-15))))))))))))))))))) (vector 1 act-32)))) (case (vector-ref act-32 0) ((0) (let ((e-3 (vector-ref act-32 1))) (vector 0 e-3))) (else (let ((sc11 (let ((e-27 (vector-ref e-9 0))) e-27))) (cond ((equal? sc11 1) (let ((act-33 (let ((act-33 ((((u--norm e-8) '()) e-2) eta-0))) (case (vector-ref act-33 0) ((0) (let ((e-3 (vector-ref act-33 1))) (vector 0 e-3))) (else (let ((e-14 (vector-ref act-33 1))) (IdrisC-45Resugar-resugar '() arg-0 arg-2 '() e-14 eta-0))))))) (case (vector-ref act-33 0) ((0) (let ((e-3 (vector-ref act-33 1))) (vector 0 e-3))) (else (let ((e-14 (vector-ref act-33 1))) (vector 1 (vector 4 e-7 (box e-14)))))))) (else (vector 1 (vector 4 e-7 '()))))))))))))))))))))))))))))))))))))))))))))))) ((2) (let ((e-2 (vector-ref arg-5 1))) (case (vector-ref e-2 0) ((0) (let ((e-26 (vector-ref e-2 1))) (let ((e-27 (vector-ref e-2 2))) (lambda (clam-0) (case (vector-ref e-27 0) ((1) (let ((e-28 (vector-ref e-27 1))) (cond ((equal? e-28 "it") (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref act-24 1))) (let ((e-11 (vector-ref e-5 11))) (if (null? e-11) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 7 e-26 (vector 1 "it")) clam-0) (let ((e-18 (unbox e-11))) ((IdrisC-45REPL-process arg-0 arg-1 arg-2 arg-3 arg-4 (vector 2 (vector 0 e-26 e-18))) clam-0)))))))))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtName e-27 (let ((e-0 (vector-ref e-5 0))) e-0)) clam-0))) (case (vector-ref act-25 0) ((0) (let ((e-3 (vector-ref act-25 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref act-25 1))) (if (null? e-6) (CoreC-45Context-undefinedName arg-0 e-26 e-27 clam-0) (let ((act-26 (CoreC-45Core-traverseC-39 (lambda (eta-0) (IdrisC-45REPL-displayType arg-0 arg-2 e-5 eta-0)) e-6 '() clam-0))) (case (vector-ref act-26 0) ((0) (let ((e-3 (vector-ref act-26 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (vector 5 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep e-7))))))))))))))))))))(else (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtName e-27 (let ((e-0 (vector-ref e-5 0))) e-0)) clam-0))) (case (vector-ref act-25 0) ((0) (let ((e-3 (vector-ref act-25 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref act-25 1))) (if (null? e-6) (CoreC-45Context-undefinedName arg-0 e-26 e-27 clam-0) (let ((act-26 (CoreC-45Core-traverseC-39 (lambda (eta-0) (IdrisC-45REPL-displayType arg-0 arg-2 e-5 eta-0)) e-6 '() clam-0))) (case (vector-ref act-26 0) ((0) (let ((e-3 (vector-ref act-26 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (vector 5 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep e-7))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (IdrisC-45REPL-inferAndElab arg-0 arg-1 arg-2 arg-3 arg-4 (vector 2 ) e-2 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref act-24 1))) (let ((e-0 (car e-5))) (let ((e-1 (cdr e-5))) (let ((act-25 (let ((act-25 (unbox arg-0))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-3 (vector-ref act-25 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (let ((act-26 (CoreC-45Normalise-normaliseHoles arg-0 '() e-6 '() e-0 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-3 (vector-ref act-26 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref act-26 1))) (IdrisC-45Resugar-resugar '() arg-0 arg-2 '() e-7 eta-0))))))) (case (vector-ref act-26 0) ((0) (let ((e-3 (vector-ref act-26 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (let ((act-27 (CoreC-45Normalise-normaliseScope arg-0 '() e-6 '() e-1 eta-0))) (case (vector-ref act-27 0) ((0) (let ((e-3 (vector-ref act-27 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref act-27 1))) (IdrisC-45Resugar-resugar '() arg-0 arg-2 '() e-8 eta-0))))))) (case (vector-ref act-27 0) ((0) (let ((e-3 (vector-ref act-27 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref act-27 1))) (vector 1 (vector 6 e-7 e-8))))))))))))))))))))))))) ((3) (let ((e-3 (vector-ref arg-5 1))) (lambda (eta-0) (let ((act-24 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (case (vector-ref eta-1 0) ((0) (let ((e-2 (vector-ref eta-1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref eta-1 1))) (vector 1 (let ((e-0 (vector-ref e-5 0))) e-0)))))) (lambda (eta-1) (CoreC-45Context-getPPrint arg-0 eta-1)) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (IdrisC-45REPL-setOpt arg-0 arg-4 (vector 0 1) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 ((IdrisC-45REPL-process arg-0 arg-1 arg-2 arg-3 arg-4 (vector 2 e-3)) eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (IdrisC-45REPL-setOpt arg-0 arg-4 (vector 0 e-5) eta-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (vector 1 e-7)))))))))))))))))) ((4) (let ((e-4 (vector-ref arg-5 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtName e-4 (let ((e-0 (vector-ref e-5 0))) e-0)) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (if (null? e-6) (CoreC-45Context-undefinedName arg-0 (CoreC-45FC-replFC) e-4 eta-0) (let ((act-26 (CoreC-45Core-traverseC-39 (lambda (eta-1) (IdrisC-45REPL-displayPats arg-0 arg-2 e-5 eta-1)) e-6 '() eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (vector 5 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep e-7))))))))))))))))))) ((5) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((e-2 (vector-ref e-5 2))) (if (null? e-2) (vector 1 (vector 12 )) (let ((e-17 (unbox e-2))) (IdrisC-45REPL-loadMainFile arg-0 arg-1 arg-2 arg-3 arg-4 e-17 eta-0)))))))))) ((6) (let ((e-5 (vector-ref arg-5 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-24 1))) (let ((act-25 (let ((act-25 (set-box! arg-4 (let ((e-0 (vector-ref e-6 0))) (let ((e-1 (vector-ref e-6 1))) (let ((e-3 (vector-ref e-6 3))) (let ((e-4 (vector-ref e-6 4))) (let ((e-17 (vector-ref e-6 5))) (let ((e-16 (vector-ref e-6 6))) (let ((e-7 (vector-ref e-6 7))) (let ((e-8 (vector-ref e-6 8))) (let ((e-9 (vector-ref e-6 9))) (let ((e-10 (vector-ref e-6 10))) (let ((e-11 (vector-ref e-6 11))) (let ((e-12 (vector-ref e-6 12))) (let ((e-13 (vector-ref e-6 13))) (let ((e-14 (vector-ref e-6 14))) (let ((e-15 (vector-ref e-6 15))) (vector e-0 e-1 (box e-5) e-3 e-4 e-17 e-16 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15))))))))))))))))))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (IdrisC-45REPL-loadMainFile arg-0 arg-1 arg-2 arg-3 arg-4 e-5 eta-0))))))))))) ((7) (let ((e-6 (vector-ref arg-5 1))) (lambda (eta-0) (CoreC-45Core-u--catch_Catchable_Core_Error (lambda (eta-1) (let ((act-24 (IdrisC-45ProcessIdr-addImport arg-0 arg-1 arg-2 (vector (CoreC-45FC-emptyFC) 0 e-6 (CoreC-45NameC-45Namespace-miAsNamespace e-6)) eta-1))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (vector 1 (vector 8 (CoreC-45NameC-45Namespace-u--show_Show_ModuleIdent e-6))))))) (lambda (u--err) (lambda (eta-1) (vector 1 (vector 9 (CoreC-45NameC-45Namespace-u--show_Show_ModuleIdent e-6) u--err)))) eta-0)))) ((18) (let ((e-7 (vector-ref arg-5 1))) (lambda (eta-0) (let ((act-24 (CoreC-45Context-setWorkingDir arg-0 e-7 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45Context-getWorkingDir eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (vector 13 e-6)))))))))))) ((19) (lambda (eta-0) (let ((act-24 (CoreC-45Context-getWorkingDir eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 13 e-5)))))))) ((8) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) ((IdrisC-45REPL-case--process-8549 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 (let ((e-2 (vector-ref e-5 2))) e-2)) eta-0))))))) ((9) (let ((e-8 (vector-ref arg-5 1))) (let ((e-9 (vector-ref arg-5 2))) (lambda (eta-0) (IdrisC-45REPL-compileExp arg-0 arg-1 arg-2 arg-3 arg-4 e-8 e-9 eta-0))))) ((10) (let ((e-10 (vector-ref arg-5 1))) (lambda (eta-0) (IdrisC-45REPL-execExp arg-0 arg-1 arg-2 arg-3 arg-4 e-10 eta-0)))) ((11) (lambda (eta-0) (vector 1 (vector 3 )))) ((12) (let ((e-11 (vector-ref arg-5 1))) (lambda (eta-0) (let ((act-24 (CoreC-45Context-branch arg-0 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((u--curr (let ((e-2 (vector-ref e-5 2))) e-2))) (let ((u--ctxt (let ((e-0 (vector-ref e-5 0))) e-0))) (let ((act-25 (IdrisC-45Desugar-desugar arg-2 arg-0 arg-3 arg-1 1 '() e-11 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45BindImplicits-piBindNames arg-0 (CoreC-45FC-replFC) '() e-6 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 ((TTImpC-45Elab-elabTerm '() arg-0 arg-3 arg-1 0 (vector 0 ) '() '() '() e-7 '()) eta-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (let ((e-2 (car e-8))) (let ((act-28 (CoreC-45Context-toResolvedNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-1) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-1)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-1) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-1))))) e-2 eta-0))) (case (vector-ref act-28 0) ((0) (let ((e-4 (vector-ref act-28 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref act-28 1))) (let ((act-29 (let ((act-29 (CoreC-45Context-allNames u--ctxt eta-0))) (case (vector-ref act-29 0) ((0) (let ((e-4 (vector-ref act-29 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref act-29 1))) (let ((act-30 (CoreC-45Core-traverseC-39 (lambda (eta-1) (PreludeC-45Basics-flip (lambda (eta-2) (lambda (eta-3) (CoreC-45Context-lookupCtxtExact eta-2 eta-3))) u--ctxt eta-1)) e-10 '() eta-0))) (case (vector-ref act-30 0) ((0) (let ((e-4 (vector-ref act-30 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref act-30 1))) (let ((u--defs (PreludeC-45Basics-flip (lambda (eta-1) (lambda (eta-2) (DataC-45List-mapMaybe eta-1 eta-2))) e-12 (lambda (u--md) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe u--md (lambda (u--d) (PreludeC-45Interfaces-C-62C-62 (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (PreludeC-45Types-u--map_Functor_Maybe u--func arg-133))))) (lambda (u--a) (lambda (arg-527) (PreludeC-45Types-u--pure_Applicative_Maybe arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (PreludeC-45Types-u--C-60C-42C-62_Applicative_Maybe arg-528 arg-530)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe arg-811 arg-812))))) (lambda (u--a) (lambda (arg-814) (PreludeC-45Types-u--join_Monad_Maybe arg-814)))) (PreludeC-45Interfaces-guard (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (PreludeC-45Types-u--map_Functor_Maybe u--func arg-133))))) (lambda (u--a) (lambda (arg-527) (PreludeC-45Types-u--pure_Applicative_Maybe arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (PreludeC-45Types-u--C-60C-42C-62_Applicative_Maybe arg-528 arg-530)))))) (lambda (u--a) (PreludeC-45Types-u--empty_Alternative_Maybe)) (lambda (u--a) (lambda (arg-763) (lambda (arg-764) (PreludeC-45Types-u--C-60C-124C-62_Alternative_Maybe arg-763 arg-764))))) (CoreC-45Context-visibleIn u--curr (let ((e-1 (vector-ref u--d 1))) e-1) (let ((e-24 (vector-ref u--d 9))) e-24))) (lambda () (PreludeC-45Interfaces-C-62C-62 (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (PreludeC-45Types-u--map_Functor_Maybe u--func arg-133))))) (lambda (u--a) (lambda (arg-527) (PreludeC-45Types-u--pure_Applicative_Maybe arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (PreludeC-45Types-u--C-60C-42C-62_Applicative_Maybe arg-528 arg-530)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe arg-811 arg-812))))) (lambda (u--a) (lambda (arg-814) (PreludeC-45Types-u--join_Monad_Maybe arg-814)))) (PreludeC-45Interfaces-guard (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (PreludeC-45Types-u--map_Functor_Maybe u--func arg-133))))) (lambda (u--a) (lambda (arg-527) (PreludeC-45Types-u--pure_Applicative_Maybe arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (PreludeC-45Types-u--C-60C-42C-62_Applicative_Maybe arg-528 arg-530)))))) (lambda (u--a) (PreludeC-45Types-u--empty_Alternative_Maybe)) (lambda (u--a) (lambda (arg-763) (lambda (arg-764) (PreludeC-45Types-u--C-60C-124C-62_Alternative_Maybe arg-763 arg-764))))) (DataC-45Maybe-isJust (CoreC-45Name-userNameRoot (let ((e-1 (vector-ref u--d 1))) e-1)))) (lambda () (PreludeC-45Types-u--pure_Applicative_Maybe u--d))))))))))) (let ((act-31 (CoreC-45Core-traverseC-39 (lambda (eta-1) (lambda (eta-2) (CoreC-45Context-u--resolved_HasNames_GlobalDef u--ctxt eta-1 eta-2))) u--defs '() eta-0))) (case (vector-ref act-31 0) ((0) (let ((e-4 (vector-ref act-31 1))) (vector 0 e-4))) (else (let ((e-13 (vector-ref act-31 1))) (CoreC-45Core-filterM (lambda (u--def) (lambda (eta-1) (IdrisC-45REPLC-45Common-equivTypes arg-0 (let ((e-31 (vector-ref u--def 2))) e-31) e-9 eta-1))) e-13 eta-0)))))))))))))))) (case (vector-ref act-29 0) ((0) (let ((e-4 (vector-ref act-29 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref act-29 1))) (let ((act-30 (let ((act-30 (set-box! arg-0 e-5))) (vector 1 act-30)))) (case (vector-ref act-30 0) ((0) (let ((e-4 (vector-ref act-30 1))) (vector 0 e-4))) (else (let ((act-31 (CoreC-45Core-traverseC-39 (lambda (eta-1) (lambda (eta-2) (IdrisC-45REPLC-45Common-docsOrSignature arg-4 arg-0 arg-2 (CoreC-45FC-replFC) eta-1 eta-2))) (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (PreludeC-45Types-u--map_Functor_List eta-3 eta-4))))) (lambda (eta-1) (let ((e-1 (vector-ref eta-1 1))) e-1)) e-10) '() eta-0))) (case (vector-ref act-31 0) ((0) (let ((e-4 (vector-ref act-31 1))) (vector 0 e-4))) (else (let ((e-13 (vector-ref act-31 1))) (vector 1 (vector 5 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (PreludeC-45Types-u--map_Functor_List eta-3 eta-4))))) (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String eta-1)) (DataC-45List-intersperse "\u000a" (PreludeC-45Types-u--join_Monad_List e-13))))))))))))))))))))))))))))))))))))))))))) ((20) (let ((e-12 (vector-ref arg-5 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtName e-12 (let ((e-0 (vector-ref e-5 0))) e-0)) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (if (null? e-6) (CoreC-45Context-undefinedName arg-0 (CoreC-45FC-replFC) e-12 eta-0) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (case (vector-ref eta-1 0) ((0) (let ((e-2 (vector-ref eta-1 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref eta-1 1))) (vector 1 (vector 17 e-7)))))) (lambda (eta-1) (CoreC-45Core-traverseC-39 (lambda (u--fn) (lambda (eta-2) (let ((act-26 (CoreC-45Context-getTotality arg-0 (CoreC-45FC-replFC) u--fn eta-2))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((e-1 (cdr e-7))) (case (vector-ref e-1 0) ((1) (let ((e-2 (vector-ref e-1 1))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-3) (lambda (eta-4) (IdrisC-45REPL-displayPatTerm arg-0 arg-2 e-5 eta-3 eta-4))) e-2 '() eta-2))) (case (vector-ref act-27 0) ((0) (let ((e-3 (vector-ref act-27 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref act-27 1))) (vector 1 (vector 0 u--fn e-8)))))))) ((2) (let ((e-2 (vector-ref e-1 1))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-3) (lambda (eta-4) (CoreC-45Context-getFullName arg-0 eta-3 eta-4))) e-2 '() eta-2))) (case (vector-ref act-27 0) ((0) (let ((e-3 (vector-ref act-27 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref act-27 1))) (vector 1 (vector 1 u--fn e-8))))))))(else (vector 1 (vector 2 u--fn))))))))))) (PreludeC-45Types-u--map_Functor_List (lambda (eta-2) (Builtin-fst eta-2)) e-6) '() eta-1)) eta-0))))))))))))) ((21) (let ((e-13 (vector-ref arg-5 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtName e-13 (let ((e-0 (vector-ref e-5 0))) e-0)) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (if (null? e-6) (CoreC-45Context-undefinedName arg-0 (CoreC-45FC-replFC) e-13 eta-0) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (case (vector-ref eta-1 0) ((0) (let ((e-2 (vector-ref eta-1 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref eta-1 1))) (vector 1 (vector 18 e-7)))))) (lambda (eta-1) (CoreC-45Core-traverseC-39 (lambda (u--fn) (lambda (eta-2) (let ((act-26 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-3) (case (vector-ref eta-3 0) ((0) (let ((e-2 (vector-ref eta-3 1))) (vector 0 e-2))) (else (vector 1 0)))) (lambda (eta-3) (CoreC-45Termination-checkTotal arg-0 (CoreC-45FC-replFC) u--fn eta-3)) eta-2))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((act-27 (let ((act-27 (CoreC-45Context-getTotality arg-0 (CoreC-45FC-replFC) u--fn eta-2))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (CoreC-45Context-toFullNames arg-0 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-3) (CoreC-45Context-u--full_HasNames_Totality arg-3841 arg-3842 eta-3)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-3) (CoreC-45Context-u--resolved_HasNames_Totality arg-3843 arg-3844 eta-3))))) e-8 eta-2))))))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (vector 1 (cons u--fn e-8))))))))))) (PreludeC-45Types-u--map_Functor_List (lambda (eta-2) (Builtin-fst eta-2)) e-6) '() eta-1)) eta-0))))))))))))) ((22) (let ((e-14 (vector-ref arg-5 1))) (lambda (eta-0) (let ((act-24 ((IdrisC-45DocC-45String-getDocsForPTerm arg-4 arg-0 arg-2 e-14) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 5 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (PreludeC-45Types-u--map_Functor_List eta-3 eta-4))))) (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String eta-1)) e-5))))))))))) ((23) (let ((e-15 (vector-ref arg-5 1))) (lambda (eta-0) (let ((act-24 (IdrisC-45DocC-45String-getContents arg-0 arg-2 e-15 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 5 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (PreludeC-45Types-u--map_Functor_List eta-3 eta-4))))) (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String eta-1)) e-5))))))))))) ((14) (let ((e-16 (vector-ref arg-5 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (let ((act-25 ((CoreC-45Context-lookupCtxtName e-16 (let ((e-0 (vector-ref e-5 0))) e-0)) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (CoreC-45Core-traverse_ (lambda (eta-1) (lambda (eta-2) (IdrisC-45REPL-showInfo arg-0 eta-1 eta-2))) e-6 eta-0))))))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))))))))) ((15) (let ((e-17 (vector-ref arg-5 1))) (lambda (eta-0) (let ((act-24 (IdrisC-45REPL-setOpt arg-0 arg-4 e-17 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))))) ((16) (lambda (eta-0) (let ((act-24 (IdrisC-45REPL-getOptions arg-0 arg-4 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (vector 20 e-5)))))))) ((24) (let ((e-18 (vector-ref arg-5 1))) (lambda (eta-0) (let ((act-24 (CoreC-45Context-addLogLevel arg-0 e-18 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (vector 1 (vector 21 e-18)))))))) ((25) (let ((e-19 (vector-ref arg-5 1))) (lambda (eta-0) (let ((act-24 (IdrisC-45REPLC-45Opts-setConsoleWidth arg-4 e-19 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (vector 1 (vector 22 e-19)))))))) ((26) (let ((e-20 (vector-ref arg-5 1))) (lambda (eta-0) (let ((act-24 (IdrisC-45REPLC-45Opts-setColor arg-4 e-20 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (vector 1 (vector 23 e-20)))))))) ((27) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((u--ctxt (let ((e-0 (vector-ref e-5 0))) e-0))) (let ((act-25 (CoreC-45Context-getUserHoles arg-0 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Core-traverseC-39 (lambda (u--n) (CoreC-45Context-lookupCtxtName u--n u--ctxt)) e-6 '() eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((u--globs (PreludeC-45Interfaces-concat (cons (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (cons (lambda (arg-6) (lambda (arg-7) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-6 arg-7))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) e-7))) (let ((u--holesWithArgs (DataC-45List-mapMaybe (lambda (lamc-0) (let ((e-2 (car lamc-0))) (let ((e-3 (cdr lamc-0))) (let ((e-8 (cdr e-3))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (IdrisC-45IDEModeC-45Holes-isHole e-8) (lambda (u--args) (PreludeC-45Types-u--pure_Applicative_Maybe (cons e-2 (cons e-8 u--args))))))))) u--globs))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (u--n_gdef_args) (lambda (clam-1) (let ((e-2 (car u--n_gdef_args))) (let ((e-3 (cdr u--n_gdef_args))) (let ((e-9 (car e-3))) (let ((e-8 (cdr e-3))) (IdrisC-45IDEModeC-45Holes-holeData '() arg-0 arg-2 e-5 '() e-2 e-8 (let ((e-27 (vector-ref e-9 2))) e-27) clam-1))))))) u--holesWithArgs '() eta-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (vector 1 (vector 19 e-8))))))))))))))))))))))) ((28) (let ((e-21 (vector-ref arg-5 1))) (lambda (eta-0) (let ((act-24 (CoreC-45Context-getPPrint arg-0 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-setPPrint arg-0 (let ((e-0 (vector-ref e-5 0))) (let ((e-2 (vector-ref e-5 2))) (vector e-0 0 e-2))) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 ((IdrisC-45REPL-processEdit arg-0 arg-1 arg-2 arg-3 arg-4 e-21) eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (CoreC-45Context-setPPrint arg-0 e-5 eta-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (vector 1 (vector 27 e-7))))))))))))))))))) ((17) (let ((e-22 (vector-ref arg-5 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (CoreC-45Context-getSession arg-0 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (CoreC-45Context-setSession arg-0 (let ((e-0 (vector-ref e-5 0))) (let ((e-1 (vector-ref e-5 1))) (let ((e-2 (vector-ref e-5 2))) (let ((e-3 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-19 (vector-ref e-5 5))) (let ((e-6 (vector-ref e-5 6))) (let ((e-7 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (let ((e-10 (vector-ref e-5 10))) (let ((e-11 (vector-ref e-5 11))) (let ((e-12 (vector-ref e-5 12))) (let ((e-13 (vector-ref e-5 13))) (let ((e-14 (vector-ref e-5 14))) (let ((e-15 (vector-ref e-5 15))) (let ((e-16 (vector-ref e-5 16))) (let ((e-17 (vector-ref e-5 17))) (let ((e-18 (vector-ref e-5 18))) (vector e-0 e-1 e-2 e-3 (cons e-22 e-4) e-19 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18)))))))))))))))))))) eta-0))))))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))))) ((29) (let ((e-23 (vector-ref arg-5 1))) (lambda (eta-0) (let ((act-24 (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (case (vector-ref eta-1 0) ((0) (let ((e-2 (vector-ref eta-1 1))) (vector 0 e-2))) (else (vector 1 0)))) (lambda (eta-1) (let ((act-24 ((System-system (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-2) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-2)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-2) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-2) (let ((act-17 (arg-528 eta-2))) (let ((act-16 (arg-530 eta-2))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-2) (let ((act-24 (arg-811 eta-2))) ((arg-812 act-24) eta-2))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-2) (let ((act-51 (arg-814 eta-2))) (act-51 eta-2)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) e-23) eta-1))) (vector 1 act-24))) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))))) ((31) (lambda (eta-0) (vector 1 (vector 26 )))) ((32) (lambda (eta-0) (vector 1 (vector 0 )))) ((30) (lambda (eta-0) (vector 1 (vector 24 (IdrisC-45Version-version))))) ((33) (let ((e-24 (vector-ref arg-5 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((u--searchDirs (let ((e-4 (vector-ref e-5 4))) (let ((e-39 (vector-ref e-4 0))) (let ((e-43 (vector-ref e-39 6))) e-43))))) ((IdrisC-45REPL-case--process-9522 e-24 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 u--searchDirs (DataC-45List-find (lambda (u--d) (DataC-45String-isInfixOf e-24 (DataC-45Maybe-fromMaybe (lambda () u--d) (LibrariesC-45UtilsC-45Path-fileName u--d)))) u--searchDirs)) eta-0))))))))) (else (let ((e-25 (vector-ref arg-5 1))) (lambda (eta-0) (IdrisC-45REPLC-45FuzzySearch-fuzzySearch arg-0 arg-1 arg-2 arg-3 arg-4 e-25 eta-0))))))) +(define IdrisC-45REPL-printClause (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (case (vector-ref arg-4 0) ((0) (let ((e-1 (vector-ref arg-4 2))) (let ((e-2 (vector-ref arg-4 3))) (let ((act-24 (IdrisC-45Resugar-pterm arg-0 arg-1 e-1 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (IdrisC-45Resugar-pterm arg-0 arg-1 e-2 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-3 (vector-ref act-25 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (ParserC-45Unlit-relit arg-2 (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Types-fastPack (DataC-45List-replicate arg-3 #\ )) (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--show_Show_PTerm e-5) (PreludeC-45TypesC-45String-C-43C-43 " = " (IdrisC-45Syntax-u--show_Show_PTerm e-6))))))))))))))))) ((1) (let ((e-4 (vector-ref arg-4 2))) (let ((e-5 (vector-ref arg-4 3))) (let ((e-6 (vector-ref arg-4 4))) (let ((e-8 (vector-ref arg-4 6))) (let ((act-24 (IdrisC-45Resugar-pterm arg-0 arg-1 e-4 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-24 1))) (let ((act-25 (IdrisC-45Resugar-pterm arg-0 arg-1 e-5 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (IdrisC-45REPL-printClause arg-0 arg-1 arg-2 (PreludeC-45Types-u--C-43_Num_Nat arg-3 (+ 1 (+ 1 0))) eta-0 eta-1))) e-8 '() ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref act-26 1))) (vector 1 (PreludeC-45TypesC-45String-C-43C-43 (ParserC-45Unlit-relit arg-2 (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Types-fastPack (DataC-45List-replicate arg-3 #\ )) (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--show_Show_PTerm e-9) (PreludeC-45TypesC-45String-C-43C-43 " with (" (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--show_Show_PTerm e-10) (PreludeC-45TypesC-45String-C-43C-43 ")" (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Types-maybe (lambda () "") (lambda () (lambda (u--nm) (PreludeC-45TypesC-45String-C-43C-43 " proof " (CoreC-45Name-u--show_Show_Name u--nm)))) e-6) "\u000a"))))))) (CoreC-45NameC-45Namespace-showSep "\u000a" e-11)))))))))))))))))))) (else (let ((e-10 (vector-ref arg-4 2))) (let ((act-24 (IdrisC-45Resugar-pterm arg-0 arg-1 e-10 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (ParserC-45Unlit-relit arg-2 (PreludeC-45TypesC-45String-C-43C-43 (PreludeC-45Types-fastPack (DataC-45List-replicate arg-3 #\ )) (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--show_Show_PTerm e-5) " impossible"))))))))))))) (define IdrisC-45REPL-prettyTerm (lambda (ext-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-reAnnotate (lambda (eta-0) (vector 6 eta-0)) (IdrisC-45Pretty-prettyTerm ext-0)))) -(define IdrisC-45REPL-prepareExp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (IdrisC-45Desugar-desugar arg-2 arg-0 arg-3 arg-1 (vector 1 ) '() (vector 7 (IdrisC-45REPLC-45Opts-replFC) (vector 0 (IdrisC-45REPLC-45Opts-replFC) (vector 1 "unsafePerformIO")) arg-5) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (IdrisC-45REPL-getItDecls arg-4 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((u--ttimpWithIt (vector 5 (IdrisC-45REPLC-45Opts-replFC) e-6 e-5))) (let ((act-26 (CoreC-45Context-resolveName arg-0 (vector 1 "[input]") ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 ((TTImpC-45Elab-elabTerm '() arg-0 arg-3 arg-1 e-7 (vector 2 ) '() '() '() u--ttimpWithIt (vector 0 )) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (let ((e-2 (car sc4))) (let ((act-28 (CoreC-45LinearCheck-linearCheck '() arg-0 arg-1 (IdrisC-45REPLC-45Opts-replFC) (AlgebraC-45Semiring-linear (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))) 0 '() e-2 ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 (CompilerC-45Inline-compileAndInlineAll arg-0 ext-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (vector 1 e-9))))))))))))))))))))))))))))))))))) -(define IdrisC-45REPL-parseRepl (lambda (arg-0) (ParserC-45Source-runParser 1 "(interactive)" (vector 0 ) arg-0 (vector 12 1 1 (IdrisC-45REPL-parseEmptyCmd) (lambda () (IdrisC-45REPL-parseCmd)))))) -(define IdrisC-45REPL-parseEmptyCmd (lambda () (vector 9 1 1 (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 1 (lambda (eta-0) (lambda (eta-1) eta-1)) (ParserC-45RuleC-45Source-eoi)) (lambda (u--f) (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 1 u--f (vector 0 (vector 0 ))))))) -(define IdrisC-45REPL-parseCmd (lambda () (vector 9 1 1 (IdrisC-45Parser-command) (lambda (u--c) (vector 11 1 1 (ParserC-45RuleC-45Source-eoi) (vector 0 (vector 1 u--c))))))) -(define IdrisC-45REPL-nextProofSearch (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (IdrisC-45REPL-case--nextProofSearch-2453 arg-2 arg-1 arg-0 e-5 (let ((sc1 e-5)) (let ((e-9 (vector-ref sc1 10))) e-9)) ext-0)))))))) -(define IdrisC-45REPL-nextGenDef (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (IdrisC-45REPL-case--nextGenDef-2641 arg-3 arg-2 arg-1 arg-0 e-5 (let ((sc1 e-5)) (let ((e-10 (vector-ref sc1 11))) e-10)) ext-0)))))))) -(define IdrisC-45REPL-lookupDefTyName (lambda (ext-2 ext-1 ext-0) (CoreC-45Context-lookupNameBy (lambda (u--g) (cons (let ((sc0 u--g)) (let ((e-17 (vector-ref sc0 18))) e-17)) (let ((sc0 u--g)) (let ((e-2 (vector-ref sc0 3))) e-2)))) ext-2 ext-1 ext-0))) -(define IdrisC-45REPL-loadMainFile (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (set-box! arg-4 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-16 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-16 e-6 e-7 e-8 e-9 e-10 (vector 0 ) e-12 e-13 e-14 e-15)))))))))))))))))))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 (IdrisC-45REPLC-45Common-resetContext arg-0 arg-1 arg-2 arg-3 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-27 (let ((act-27 ((SystemC-45File-readFile (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-0)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-0) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (let ((act-17 (arg-578 eta-0))) (let ((act-16 (arg-580 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (let ((act-27 (arg-876 eta-0))) ((arg-877 act-27) eta-0))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-0) (let ((act-51 (arg-879 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) arg-5) ext-0))) (vector 1 act-27)))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (case (vector-ref sc4 0) ((1) (let ((e-2 (vector-ref sc4 1))) (let ((act-28 (CoreC-45ContextC-45Log-logTime arg-0 (lambda () "+ Build deps") (lambda (eta-0) (IdrisC-45ModTree-buildDeps arg-0 arg-2 arg-3 arg-1 arg-4 arg-5 eta-0)) ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 (IdrisC-45REPLC-45Common-updateErrorLine arg-4 e-9 ext-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (let ((act-30 (IdrisC-45REPLC-45Opts-setSource arg-4 e-2 ext-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (vector 0 e-3))) (else (let ((act-31 (IdrisC-45REPLC-45Opts-resetProofState arg-4 ext-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (vector 0 e-3))) (else (let ((sc9 e-9)) (if (null? sc9) (vector 1 (vector 7 arg-5)) (vector 1 (vector 11 arg-5 e-9))))))))))))))))))))))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-28 (IdrisC-45REPLC-45Opts-setSource arg-4 "" ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (vector 1 (vector 10 arg-5 e-9)))))))))))))))))))))))))))))) -(define IdrisC-45REPL-interpret (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (IdrisC-45REPLC-45Opts-setCurrentElabSource arg-4 arg-5 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else ((IdrisC-45REPL-case--interpret-9764 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 (IdrisC-45REPL-parseRepl arg-5)) ext-0))))))) -(define IdrisC-45REPL-inferAndNormalize (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 (IdrisC-45REPL-inferAndElab arg-0 arg-1 arg-2 arg-3 arg-4 (IdrisC-45REPL-n--36217-7575-u--elabMode arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 arg-5) arg-6 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-0 (car sc1))) (let ((e-1 (cdr sc1))) (let ((act-25 (CoreC-45ContextC-45Log-logTerm '() arg-0 "repl.eval" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Elaborated input") e-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (let ((act-26 (unbox arg-0))) (vector 1 act-26)))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((u--norm (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (IdrisC-45REPL-replEval arg-0 '() arg-5 eta-0 eta-1 eta-2)))))) (let ((act-27 ((((u--norm e-7) '()) e-0) ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (CoreC-45Normalise-logTermNF '() arg-0 "repl.eval" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Normalised") '() e-8 ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (vector 1 (cons e-8 e-1))))))))))))))))))))))))))))))) -(define IdrisC-45REPL-inferAndElab (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 (IdrisC-45Desugar-desugar arg-2 arg-0 arg-3 arg-1 (vector 1 ) '() arg-6 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (IdrisC-45REPL-getItDecls arg-4 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((u--ttimpWithIt (vector 5 (IdrisC-45REPLC-45Opts-replFC) e-6 e-5))) (let ((act-26 (CoreC-45Context-resolveName arg-0 (vector 1 "[input]") ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (CoreC-45Core-u--catch_Catchable_Core_Error (lambda (eta-0) (let ((act-27 (CoreC-45Context-hide arg-0 (IdrisC-45REPLC-45Opts-replFC) (vector 0 (CoreC-45NameC-45Namespace-primIONS) (vector 1 "::")) eta-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (CoreC-45Context-hide arg-0 (IdrisC-45REPLC-45Opts-replFC) (vector 0 (CoreC-45NameC-45Namespace-primIONS) (vector 1 "Nil")) eta-0)))))) (lambda (u--err) (lambda (eta-0) (vector 1 (vector 0 )))) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-28 ((TTImpC-45Elab-elabTerm '() arg-0 arg-3 arg-1 e-7 arg-5 '() '() '() u--ttimpWithIt (vector 0 )) ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((sc5 e-9)) (let ((e-2 (car sc5))) (let ((e-3 (cdr sc5))) (let ((act-29 ((CoreC-45Normalise-getTerm e-3) ext-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc6 1))) (vector 1 (cons e-2 e-10))))))))))))))))))))))))))))))))))))) -(define IdrisC-45REPL-handleResult (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((26) (IdrisC-45REPLC-45Common-iputStrLn arg-4 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Bye for now!") ext-0))(else (let ((act-24 ((IdrisC-45REPL-displayResult arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (IdrisC-45REPL-repl arg-0 arg-1 arg-2 arg-3 arg-4 ext-0)))))))))) -(define IdrisC-45REPL-handleMissingC-39 (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-0) (PreludeC-45TypesC-45String-C-43C-43 ":\u000a" (CoreC-45NameC-45Namespace-showSep "\u000a" e-1)))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-2) (PreludeC-45TypesC-45String-C-43C-43 ": Calls non covering function" (let ((sc1 e-3)) (if (null? sc1) (PreludeC-45TypesC-45String-C-43C-43 "s: " (CoreC-45NameC-45Namespace-showSep ", " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45Name-u--show_Show_Name eta-0)) e-3))) (let ((e-1 (car sc1))) (let ((e-4 (cdr sc1))) (let ((sc2 e-4)) (if (null? sc2) (PreludeC-45TypesC-45String-C-43C-43 " " (CoreC-45Name-u--show_Show_Name e-1)) (PreludeC-45TypesC-45String-C-43C-43 "s: " (CoreC-45NameC-45Namespace-showSep ", " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45Name-u--show_Show_Name eta-0)) e-3)))))))))))))) (else (let ((e-4 (vector-ref sc0 1))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-4) ": All cases covered"))))))) -(define IdrisC-45REPL-handleMissing (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (CoreC-45Name-u--pretty_Pretty_Name e-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (PreludeC-45Types-u--map_Functor_List eta-2 eta-3))))) (lambda (eta-0) (IdrisC-45Pretty-code (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String eta-0))) e-1)))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (CoreC-45Name-u--pretty_Pretty_Name e-2) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Calls non covering") (let ((sc1 e-3)) (if (null? sc1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "functions:") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-concatWith (lambda (eta-0) (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-surround (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-comma) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-space)) eta-0 eta-1))) (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (PreludeC-45Types-u--map_Functor_List eta-2 eta-3))))) (lambda (eta-0) (IdrisC-45Pretty-code (CoreC-45Name-u--pretty_Pretty_Name eta-0))) e-3))) (let ((e-1 (car sc1))) (let ((e-4 (cdr sc1))) (let ((sc2 e-4)) (if (null? sc2) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "function") (IdrisC-45Pretty-code (CoreC-45Name-u--pretty_Pretty_Name e-1))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "functions:") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-concatWith (lambda (eta-0) (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-surround (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-comma) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-space)) eta-0 eta-1))) (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (PreludeC-45Types-u--map_Functor_List eta-2 eta-3))))) (lambda (eta-0) (IdrisC-45Pretty-code (CoreC-45Name-u--pretty_Pretty_Name eta-0))) e-3)))))))))))))) (else (let ((e-4 (vector-ref sc0 1))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (CoreC-45Name-u--pretty_Pretty_Name e-4) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "All cases covered")))))))) -(define IdrisC-45REPL-getOptions (lambda (arg-0 arg-1 ext-0) (let ((act-24 (CoreC-45Context-getPPrint arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 (cons (vector 0 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) (cons (vector 1 (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 3))) e-2))) (cons (vector 2 (let ((sc2 e-6)) (let ((e-0 (vector-ref sc2 1))) e-0))) (cons (vector 3 (let ((sc2 e-6)) (let ((e-1 (vector-ref sc2 2))) e-1))) (cons (vector 4 (let ((sc2 e-6)) (let ((e-17 (vector-ref sc2 6))) e-17))) '())))))))))))))))))) -(define IdrisC-45REPL-getItDecls (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (IdrisC-45REPL-case--getItDecls-6917 arg-0 e-5 (let ((sc1 e-5)) (let ((e-11 (vector-ref sc1 12))) e-11)) ext-0)))))))) -(define IdrisC-45REPL-findInTree (lambda (arg-0 arg-1 arg-2) (PreludeC-45Types-u--map_Functor_Maybe (lambda (eta-0) (Builtin-snd eta-0)) (DataC-45List-headC-39 (DataC-45List-filter (lambda (eta-0) (IdrisC-45REPL-n--30824-2939-u--match arg-2 arg-1 arg-0 eta-0)) (DataC-45List-sortBy (lambda (u--x) (lambda (u--y) (IdrisC-45REPL-n--30824-2938-u--cmp arg-2 arg-1 arg-0 (LibrariesC-45DataC-45PosMap-u--measure_Measure_C-40C-124C-40C-40BuiltinC-46PairC-32NonEmptyFCC-41C-32C-36aC-41C-44C-40C-40BuiltinC-46MkPairC-32NonEmptyFCC-41C-32C-36aC-41C-124C-41 u--x) (LibrariesC-45DataC-45PosMap-u--measure_Measure_C-40C-124C-40C-40BuiltinC-46PairC-32NonEmptyFCC-41C-32C-36aC-41C-44C-40C-40BuiltinC-46MkPairC-32NonEmptyFCC-41C-32C-36aC-41C-124C-41 u--y)))) (LibrariesC-45DataC-45PosMap-searchPos (lambda (eta-0) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-36a (lambda (eta-1) (LibrariesC-45DataC-45PosMap-u--measure_Measure_C-40C-124C-40C-40BuiltinC-46PairC-32NonEmptyFCC-41C-32C-36aC-41C-44C-40C-40BuiltinC-46MkPairC-32NonEmptyFCC-41C-32C-36aC-41C-124C-41 eta-1)) eta-0)) arg-0 arg-2))))))) -(define IdrisC-45REPL-findCG (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (IdrisC-45REPL-case--findCG-1751 arg-1 arg-0 e-5 (let ((sc1 e-5)) (let ((e-4 (vector-ref sc1 5))) (let ((sc2 e-4)) (let ((e-35 (vector-ref sc2 3))) (let ((sc3 e-35)) (let ((e-49 (vector-ref sc3 4))) e-49)))))) ext-0)))))))) -(define IdrisC-45REPL-execExp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (IdrisC-45REPL-prepareExp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (IdrisC-45REPL-findCG arg-4 arg-0 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (CompilerC-45Common-execute arg-0 e-6 e-5 ext-0)))))))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 2 arg-5))))))))))))) -(define IdrisC-45REPL-execDecls (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (CoreC-45Core-traverse_ (lambda (eta-0) (lambda (eta-1) (IdrisC-45REPL-n--35705-7116-u--execDecl arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 eta-0 eta-1))) arg-5 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (vector 1 (vector 25 )))))))) -(define IdrisC-45REPL-dropLamsTm (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (cons arg-0 (cons arg-2 arg-3)))(else (let ((e-0 (- arg-1 1))) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((3) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (IdrisC-45REPL-dropLamsTm (cons e-3 arg-0) e-0 (cons e-4 arg-2) e-5)))))(else (cons arg-0 (cons arg-2 arg-3))))))))))) -(define IdrisC-45REPL-dropLams (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (cond ((equal? sc0 0) arg-1)(else (let ((e-0 (- arg-0 1))) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((2) (let ((e-6 (vector-ref sc0 6))) (IdrisC-45REPL-dropLams e-0 e-6)))(else arg-1))))))))) -(define IdrisC-45REPL-displayType (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-3)) (let ((e-7 (cdr sc1))) (PreludeC-45Types-maybe (lambda () (lambda (eta-0) (let ((act-24 (let ((act-24 (CoreC-45Normalise-normaliseHoles arg-0 '() arg-2 '() (let ((sc2 e-7)) (let ((e-24 (vector-ref sc2 3))) e-24)) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (IdrisC-45Resugar-resugar '() arg-0 arg-1 '() e-5 eta-0)))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (CoreC-45Context-aliasName arg-0 (let ((sc3 e-7)) (let ((e-1 (vector-ref sc3 2))) e-1)) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (CoreC-45Name-u--pretty_Pretty_Name e-8) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon) (IdrisC-45REPL-prettyTerm e-5)))))))))))))))) (lambda () (lambda (u--num) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (let ((sc2 eta-1)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-reAnnotate (lambda (eta-2) (vector 6 eta-2)) e-5))))))) (lambda (eta-1) (IdrisC-45IDEModeC-45Holes-prettyHole '() arg-0 arg-1 arg-2 '() e-2 u--num (let ((sc2 e-7)) (let ((e-24 (vector-ref sc2 3))) e-24)) eta-1)) eta-0)))) (IdrisC-45IDEModeC-45Holes-isHole e-7))))))))) -(define IdrisC-45REPL-displayTerm (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (CoreC-45Normalise-normaliseHoles arg-0 '() arg-2 '() arg-3 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (IdrisC-45Resugar-resugar '() arg-0 arg-1 '() e-5 ext-0)))))))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (IdrisC-45REPL-prettyTerm e-5))))))))) -(define IdrisC-45REPL-displayResult (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (IdrisC-45REPLC-45Common-printError arg-4 e-0 eta-0)))) ((4) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (lambda (clam-0) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (IdrisC-45REPLC-45Common-printResult arg-4 (IdrisC-45REPL-prettyTerm e-1) clam-0)) ((1) (let ((e-28 (vector-ref sc1 1))) (IdrisC-45REPLC-45Common-printResult arg-4 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45REPL-prettyTerm e-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon) (IdrisC-45Pretty-code (IdrisC-45REPL-prettyTerm e-28)))) clam-0)))(else (vector 1 (vector 0 ))))))))) ((5) (let ((e-3 (vector-ref sc0 1))) (lambda (eta-0) (IdrisC-45REPLC-45Common-printResult arg-4 e-3 eta-0)))) ((6) (let ((e-4 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 2))) (lambda (eta-0) (IdrisC-45REPLC-45Common-printResult arg-4 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45REPL-prettyTerm e-4) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon) (IdrisC-45Pretty-code (IdrisC-45REPL-prettyTerm e-5)))) eta-0))))) ((7) (let ((e-6 (vector-ref sc0 1))) (lambda (eta-0) (IdrisC-45REPLC-45Common-printResult arg-4 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Loaded file") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String e-6)) eta-0)))) ((8) (let ((e-7 (vector-ref sc0 1))) (lambda (eta-0) (IdrisC-45REPLC-45Common-printResult arg-4 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Imported module") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String e-7)) eta-0)))) ((9) (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((IdrisC-45Error-perror arg-0 arg-2 arg-4 e-9) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (IdrisC-45REPLC-45Common-printResult arg-4 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Error loading module") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String e-8) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon)) e-5)) eta-0)))))))))) ((10) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (lambda (eta-0) (IdrisC-45REPLC-45Common-printResult arg-4 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Error loading file") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String e-10) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String (SystemC-45File-u--show_Show_FileError e-11)))) eta-0))))) ((11) (let ((e-12 (vector-ref sc0 1))) (lambda (eta-0) (IdrisC-45REPLC-45Common-printResult arg-4 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Error(s) building file") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String e-12)) eta-0)))) ((12) (lambda (eta-0) (IdrisC-45REPLC-45Common-printError arg-4 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "No file can be reloaded") eta-0))) ((13) (let ((e-14 (vector-ref sc0 1))) (lambda (eta-0) (IdrisC-45REPLC-45Common-printResult arg-4 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Current working directory is") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-dquotes (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String e-14))) eta-0)))) ((14) (lambda (eta-0) (IdrisC-45REPLC-45Common-printError arg-4 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Compilation failed") eta-0))) ((15) (let ((e-15 (vector-ref sc0 1))) (lambda (eta-0) (IdrisC-45REPLC-45Common-printResult arg-4 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "File") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String e-15) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "written"))) eta-0)))) ((16) (let ((e-16 (vector-ref sc0 1))) (lambda (eta-0) (IdrisC-45REPLC-45Common-printResult arg-4 (IdrisC-45REPL-prettyTerm e-16) eta-0)))) ((17) (let ((e-17 (vector-ref sc0 1))) (lambda (eta-0) (IdrisC-45REPLC-45Common-printResult arg-4 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (PreludeC-45Types-u--map_Functor_List eta-3 eta-4))))) (lambda (eta-1) (IdrisC-45REPL-handleMissing eta-1)) e-17)) eta-0)))) ((18) (let ((e-18 (vector-ref sc0 1))) (lambda (eta-0) (IdrisC-45REPLC-45Common-printResult arg-4 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Types-u--map_Functor_List (lambda (lamc-0) (let ((sc1 lamc-0)) (let ((e-2 (car sc1))) (let ((e-3 (cdr sc1))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (CoreC-45Name-u--pretty_Pretty_Name e-2) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "is") (CoreC-45TT-u--pretty_Pretty_Totality e-3))))))) e-18)) eta-0)))) ((19) (let ((e-19 (vector-ref sc0 1))) (let ((sc1 e-19)) (if (null? sc1) (lambda (eta-0) (IdrisC-45REPLC-45Common-printResult arg-4 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "No holes") eta-0)) (let ((e-31 (car sc1))) (let ((e-32 (cdr sc1))) (let ((sc2 e-32)) (if (null? sc2) (lambda (eta-0) (IdrisC-45REPLC-45Common-printResult arg-4 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "1 hole") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon)) (CoreC-45Name-u--pretty_Pretty_Name (let ((sc3 e-31)) (let ((e-0 (vector-ref sc3 1))) e-0)))) eta-0)) (let ((u--holes (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-concatWith (lambda (eta-0) (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-surround (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String ", ") eta-0 eta-1))) (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (PreludeC-45Types-u--map_Functor_List eta-2 eta-3))))) (lambda (eta-0) (CoreC-45Name-u--pretty_Pretty_Name (let ((sc3 eta-0)) (let ((e-0 (vector-ref sc3 1))) e-0)))) e-19)))) (lambda (eta-0) (IdrisC-45REPLC-45Common-printResult arg-4 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Nat (PreludeC-45TypesC-45List-length e-19)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "holes") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon)) u--holes)) eta-0))))))))))) ((21) (let ((e-20 (vector-ref sc0 1))) (lambda (clam-1) (let ((sc1 e-20)) (case (vector-ref sc1 0) ((0) (IdrisC-45REPLC-45Common-printResult arg-4 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Logging turned off") clam-1)) ((1) (let ((e-36 (vector-ref sc1 1))) (IdrisC-45REPLC-45Common-printResult arg-4 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Set log level to") (CoreC-45OptionsC-45Log-u--pretty_Pretty_LogLevel e-36)) clam-1)))(else (vector 1 (vector 0 )))))))) ((22) (let ((e-21 (vector-ref sc0 1))) (lambda (clam-2) (let ((sc1 e-21)) (case (vector-ref sc1 0) ((1) (let ((e-38 (vector-ref sc1 1))) (IdrisC-45REPLC-45Common-printResult arg-4 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Set consolewidth to") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Nat e-38)) clam-2))) ((0) (IdrisC-45REPLC-45Common-printResult arg-4 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Set consolewidth to auto") clam-2))(else (vector 1 (vector 0 )))))))) ((23) (let ((e-22 (vector-ref sc0 1))) (lambda (eta-0) (IdrisC-45REPLC-45Common-printResult arg-4 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow (let ((sc1 e-22)) (cond ((equal? sc1 0) "Set color on") (else "Set color off")))) eta-0)))) ((24) (let ((e-23 (vector-ref sc0 1))) (lambda (eta-0) (IdrisC-45REPLC-45Common-printResult arg-4 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String (IdrisC-45Version-showVersion 0 e-23)) eta-0)))) ((3) (lambda (eta-0) (IdrisC-45REPLC-45Common-printResult arg-4 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String (IdrisC-45REPL-displayHelp)) eta-0))) ((27) (let ((e-24 (vector-ref sc0 1))) (lambda (clam-0) (let ((sc1 e-24)) (case (vector-ref sc1 0) ((0) (let ((e-40 (vector-ref sc1 1))) (let ((sc2 e-40)) (case (vector-ref sc2 0) ((0) (vector 1 (vector 0 )))(else (IdrisC-45REPLC-45Common-printResult arg-4 e-40 clam-0)))))) ((1) (let ((e-41 (vector-ref sc1 1))) (IdrisC-45REPLC-45Common-printError arg-4 e-41 clam-0))) ((2) (let ((e-42 (vector-ref sc1 1))) (let ((e-43 (vector-ref sc1 2))) (let ((e-44 (vector-ref sc1 3))) (let ((e-45 (vector-ref sc1 4))) (IdrisC-45REPLC-45Common-printResult arg-4 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String (PreludeC-45TypesC-45String-C-43C-43 (ParserC-45Unlit-relit e-42 (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-43) (PreludeC-45TypesC-45String-C-43C-43 " : " (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--show_Show_PTerm e-44) "\u000a")))) e-45)) clam-0)))))) ((3) (let ((e-46 (vector-ref sc1 1))) (let ((e-47 (vector-ref sc1 2))) (IdrisC-45REPLC-45Common-printResult arg-4 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String (CoreC-45NameC-45Namespace-showSep "\u000a" (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (ParserC-45Unlit-relit e-46 eta-0)) e-47))) clam-0)))) ((4) (let ((e-48 (vector-ref sc1 1))) (let ((e-49 (vector-ref sc1 2))) (IdrisC-45REPLC-45Common-printResult arg-4 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String (CoreC-45NameC-45Namespace-showSep "\u000a" (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (ParserC-45Unlit-relit e-48 eta-0)) e-49))) clam-0))))(else (vector 1 (vector 0 )))))))) ((20) (let ((e-25 (vector-ref sc0 1))) (lambda (eta-0) (IdrisC-45REPLC-45Common-printResult arg-4 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (PreludeC-45Types-u--map_Functor_List eta-3 eta-4))))) (lambda (eta-1) (IdrisC-45Syntax-u--pretty_Pretty_REPLOpt eta-1)) e-25)) eta-0))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define IdrisC-45REPL-displayPats (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-3)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (lambda (eta-0) (IdrisC-45REPL-case--displayPats-1382 e-2 e-6 e-7 arg-2 arg-1 arg-0 (let ((sc2 e-7)) (let ((e-17 (vector-ref sc2 18))) e-17)) eta-0)))))))))) -(define IdrisC-45REPL-displayPatTerm (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (CoreC-45Normalise-normaliseHoles arg-0 '() arg-2 '() arg-3 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (IdrisC-45Resugar-resugarNoPatvars '() arg-0 arg-1 '() e-5 ext-0)))))))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (IdrisC-45Syntax-u--show_Show_PTerm e-5))))))))) -(define IdrisC-45REPL-displayHelp (lambda () (CoreC-45NameC-45Namespace-showSep "\u000a" (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (IdrisC-45REPL-n--38696-10628-u--cmdInfo eta-0)) (IdrisC-45Parser-help))))) -(define IdrisC-45REPL-displayErrors (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((10) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (IdrisC-45REPLC-45Common-printError arg-4 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "File error in") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String e-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String (SystemC-45File-u--show_Show_FileError e-1)))) ext-0))))(else (vector 1 (vector 0 ))))))) -(define IdrisC-45REPL-displayClause (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (lambda (clam-0) (let ((sc1 e-3)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (let ((sc2 e-7)) (let ((e-10 (car sc2))) (let ((e-11 (cdr sc2))) (let ((act-24 (let ((act-24 (CoreC-45Normalise-normaliseHoles arg-0 e-2 arg-2 e-6 e-10 clam-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (IdrisC-45Resugar-resugar e-2 arg-0 arg-1 e-6 e-5 clam-0)))))))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (let ((act-25 (CoreC-45Normalise-normaliseHoles arg-0 e-2 arg-2 e-6 e-11 clam-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (IdrisC-45Resugar-resugar e-2 arg-0 arg-1 e-6 e-8 clam-0)))))))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45REPL-prettyTerm e-5) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-equals) (IdrisC-45REPL-prettyTerm e-8)))))))))))))))))))))))))) -(define IdrisC-45REPL-compileExp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 (IdrisC-45REPL-prepareExp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (IdrisC-45REPL-findCG arg-4 arg-0 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (CompilerC-45Common-compile arg-0 e-6 e-5 arg-6 ext-0)))))))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) ((PreludeC-45Types-maybe (lambda () (lambda (eta-0) (vector 1 (vector 14 )))) (lambda () (lambda (eta-0) (lambda (eta-1) (vector 1 (vector 15 eta-0))))) e-6) ext-0))))))))))))) -(define IdrisC-45REPL-caseSplit (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (let ((sc1 arg-2)) (if (null? sc1) (let ((sc2 arg-2)) (cons arg-0 '())) (let ((e-4 (cdr sc1))) (cons (IdrisC-45REPL-rtrim arg-0) e-4)))))(else (let ((e-1 (- arg-1 1))) (let ((sc0 arg-2)) (if (null? sc0) (let ((sc1 arg-2)) (cons arg-0 '())) (let ((e-6 (car sc0))) (let ((e-7 (cdr sc0))) (cons e-6 (IdrisC-45REPL-caseSplit arg-0 e-1 e-7)))))))))))) +(define IdrisC-45REPL-prepareExp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (IdrisC-45Desugar-desugar arg-2 arg-0 arg-3 arg-1 1 '() (vector 7 (CoreC-45FC-replFC) (vector 0 (CoreC-45FC-replFC) (vector 1 "unsafePerformIO")) arg-5) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (IdrisC-45REPL-getItDecls arg-4 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((u--ttimpWithIt (vector 5 (CoreC-45FC-replFC) e-6 e-5))) (let ((act-26 (CoreC-45Context-resolveName arg-0 (vector 1 "[input]") ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 ((TTImpC-45Elab-elabTerm '() arg-0 arg-3 arg-1 e-7 (vector 2 ) '() '() '() u--ttimpWithIt '()) ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (let ((e-2 (car e-8))) (let ((act-28 (CoreC-45LinearCheck-linearCheck '() arg-0 arg-1 (CoreC-45FC-replFC) (AlgebraC-45Semiring-linear (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega))) 1 '() e-2 ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-4 (vector-ref act-28 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref act-28 1))) (let ((act-29 (CompilerC-45Inline-compileAndInlineAll arg-0 ext-0))) (case (vector-ref act-29 0) ((0) (let ((e-4 (vector-ref act-29 1))) (vector 0 e-4))) (else (vector 1 e-9)))))))))))))))))))))))))))) +(define IdrisC-45REPL-parseRepl (lambda (arg-0) (let ((sc0 (ParserC-45Source-runParser 0 (vector 2 0) '() arg-0 (vector 12 0 0 (IdrisC-45REPL-parseEmptyCmd) (lambda () (IdrisC-45REPL-parseCmd)))))) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((e-9 (cdr e-5))) (vector 1 e-9)))))))) +(define IdrisC-45REPL-parseEmptyCmd (lambda () (vector 9 0 0 (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40C-40GrammarC-32C-36stateC-41C-32C-36tokC-41C-32C-36cC-41 0 (lambda (eta-0) (lambda (eta-1) eta-1)) (ParserC-45RuleC-45Source-eoi)) (lambda (u--f) (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40C-40GrammarC-32C-36stateC-41C-32C-36tokC-41C-32C-36cC-41 0 u--f (vector 0 '())))))) +(define IdrisC-45REPL-parseCmd (lambda () (vector 9 0 0 (IdrisC-45Parser-command) (lambda (u--c) (vector 11 0 0 (ParserC-45RuleC-45Source-eoi) (vector 0 (box u--c))))))) +(define IdrisC-45REPL-nextProofSearch (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (IdrisC-45REPL-case--nextProofSearch-2432 arg-2 arg-1 arg-0 e-5 (let ((e-9 (vector-ref e-5 9))) e-9) ext-0))))))) +(define IdrisC-45REPL-nextGenDef (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (IdrisC-45REPL-case--nextGenDef-2628 arg-3 arg-2 arg-1 arg-0 e-5 (let ((e-10 (vector-ref e-5 10))) e-10) ext-0))))))) +(define IdrisC-45REPL-lookupDefTyName (lambda (ext-2 ext-1 ext-0) (CoreC-45Context-lookupNameBy (lambda (u--g) (cons (let ((e-17 (vector-ref u--g 17))) e-17) (let ((e-2 (vector-ref u--g 2))) e-2))) ext-2 ext-1 ext-0))) +(define IdrisC-45REPL-loadMainFile (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (let ((act-25 (set-box! arg-4 (let ((e-0 (vector-ref e-5 0))) (let ((e-1 (vector-ref e-5 1))) (let ((e-2 (vector-ref e-5 2))) (let ((e-3 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-16 (vector-ref e-5 5))) (let ((e-6 (vector-ref e-5 6))) (let ((e-7 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (let ((e-10 (vector-ref e-5 10))) (let ((e-12 (vector-ref e-5 12))) (let ((e-13 (vector-ref e-5 13))) (let ((e-14 (vector-ref e-5 14))) (let ((e-15 (vector-ref e-5 15))) (vector e-0 e-1 e-2 e-3 e-4 e-16 e-6 e-7 e-8 e-9 e-10 '() e-12 e-13 e-14 e-15))))))))))))))))))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45Directory-ctxtPathToNS arg-0 arg-5 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (IdrisC-45REPLC-45Common-resetContext arg-0 arg-1 arg-2 arg-3 (vector 0 e-7) ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((act-28 (let ((act-28 ((SystemC-45File-readFile (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-28 (arg-811 eta-0))) ((arg-812 act-28) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-51 (arg-814 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) arg-5) ext-0))) (vector 1 act-28)))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-28 1))) (case (vector-ref e-9 0) ((1) (let ((e-2 (vector-ref e-9 1))) (let ((act-29 (CoreC-45ContextC-45Log-logTime arg-0 (lambda () "+ Build deps") (lambda (eta-0) (IdrisC-45ModTree-buildDeps arg-0 arg-2 arg-3 arg-1 arg-4 arg-5 eta-0)) ext-0))) (case (vector-ref act-29 0) ((0) (let ((e-3 (vector-ref act-29 1))) (vector 0 e-3))) (else (let ((e-10 (vector-ref act-29 1))) (let ((act-30 (IdrisC-45REPLC-45Common-updateErrorLine arg-4 e-10 ext-0))) (case (vector-ref act-30 0) ((0) (let ((e-3 (vector-ref act-30 1))) (vector 0 e-3))) (else (let ((act-31 (IdrisC-45REPLC-45Opts-setSource arg-4 e-2 ext-0))) (case (vector-ref act-31 0) ((0) (let ((e-3 (vector-ref act-31 1))) (vector 0 e-3))) (else (let ((act-32 (IdrisC-45REPLC-45Opts-resetProofState arg-4 ext-0))) (case (vector-ref act-32 0) ((0) (let ((e-3 (vector-ref act-32 1))) (vector 0 e-3))) (else (if (null? e-10) (vector 1 (vector 7 arg-5)) (vector 1 (vector 11 arg-5 e-10)))))))))))))))))) (else (let ((e-10 (vector-ref e-9 1))) (let ((act-29 (IdrisC-45REPLC-45Opts-setSource arg-4 "" ext-0))) (case (vector-ref act-29 0) ((0) (let ((e-2 (vector-ref act-29 1))) (vector 0 e-2))) (else (vector 1 (vector 10 arg-5 e-10)))))))))))))))))))))))))))) +(define IdrisC-45REPL-interpret (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (IdrisC-45REPLC-45Opts-setCurrentElabSource arg-4 arg-5 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((sc1 (IdrisC-45REPL-parseRepl arg-5))) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (let ((act-25 ((IdrisC-45Error-perror arg-0 arg-2 arg-4 e-2) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-3 (vector-ref act-25 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (vector 1 e-6)))))))) (else (let ((e-6 (vector-ref sc1 1))) (if (null? e-6) (vector 1 (vector 0 )) (let ((e-8 (unbox e-6))) (IdrisC-45REPL-processCatch arg-0 arg-1 arg-2 arg-3 arg-4 e-8 ext-0)))))))))))) +(define IdrisC-45REPL-inferAndNormalize (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 (IdrisC-45REPL-inferAndElab arg-0 arg-1 arg-2 arg-3 arg-4 (IdrisC-45REPL-n--25035-7687-u--elabMode arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 arg-5) arg-6 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((e-0 (car e-5))) (let ((e-1 (cdr e-5))) (let ((act-25 (CoreC-45ContextC-45Log-logTerm '() arg-0 "repl.eval" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Elaborated input") e-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 (let ((act-26 (unbox arg-0))) (vector 1 act-26)))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((u--norm (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (IdrisC-45REPL-replEval arg-0 '() arg-5 eta-0 eta-1 eta-2)))))) (let ((act-27 ((((u--norm e-7) '()) e-0) ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (let ((act-28 (CoreC-45Normalise-logTermNF '() arg-0 "repl.eval" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Normalised") '() e-8 ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (vector 1 (cons e-8 e-1))))))))))))))))))))))))) +(define IdrisC-45REPL-inferAndElab (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 (IdrisC-45Desugar-desugar arg-2 arg-0 arg-3 arg-1 1 '() arg-6 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (IdrisC-45REPL-getItDecls arg-4 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((u--ttimpWithIt (vector 5 (CoreC-45FC-replFC) e-6 e-5))) (let ((act-26 (CoreC-45Context-resolveName arg-0 (vector 1 "[input]") ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (CoreC-45Core-u--catch_Catchable_Core_Error (lambda (eta-0) (let ((act-27 (CoreC-45Context-hide arg-0 (CoreC-45FC-replFC) (vector 0 (CoreC-45NameC-45Namespace-primIONS) (vector 1 "::")) eta-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (CoreC-45Context-hide arg-0 (CoreC-45FC-replFC) (vector 0 (CoreC-45NameC-45Namespace-primIONS) (vector 1 "Nil")) eta-0))))) (lambda (u--err) (lambda (eta-0) (vector 1 0))) ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((act-28 ((TTImpC-45Elab-elabTerm '() arg-0 arg-3 arg-1 e-7 arg-5 '() '() '() u--ttimpWithIt '()) ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-28 1))) (let ((e-2 (car e-9))) (let ((e-3 (cdr e-9))) (let ((act-29 ((CoreC-45Normalise-getTerm e-3) ext-0))) (case (vector-ref act-29 0) ((0) (let ((e-4 (vector-ref act-29 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref act-29 1))) (vector 1 (cons e-2 e-10)))))))))))))))))))))))))))))) +(define IdrisC-45REPL-handleResult (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (case (vector-ref arg-5 0) ((26) (IdrisC-45REPLC-45Common-iputStrLn arg-0 arg-4 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Bye for now!") ext-0))(else (let ((act-24 ((IdrisC-45REPL-displayResult arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (IdrisC-45REPL-repl arg-0 arg-1 arg-2 arg-3 arg-4 ext-0)))))))) +(define IdrisC-45REPL-handleMissingC-39 (lambda (arg-0) (case (vector-ref arg-0 0) ((0) (let ((e-0 (vector-ref arg-0 1))) (let ((e-1 (vector-ref arg-0 2))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-0) (PreludeC-45TypesC-45String-C-43C-43 ":\u000a" (CoreC-45NameC-45Namespace-showSep "\u000a" e-1)))))) ((1) (let ((e-2 (vector-ref arg-0 1))) (let ((e-3 (vector-ref arg-0 2))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-2) (PreludeC-45TypesC-45String-C-43C-43 ": Calls non covering function" (if (null? e-3) (PreludeC-45TypesC-45String-C-43C-43 "s: " (CoreC-45NameC-45Namespace-showSep ", " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45Name-u--show_Show_Name eta-0)) e-3))) (let ((e-1 (car e-3))) (let ((e-4 (cdr e-3))) (if (null? e-4) (PreludeC-45TypesC-45String-C-43C-43 " " (CoreC-45Name-u--show_Show_Name e-1)) (PreludeC-45TypesC-45String-C-43C-43 "s: " (CoreC-45NameC-45Namespace-showSep ", " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45Name-u--show_Show_Name eta-0)) e-3)))))))))))) (else (let ((e-4 (vector-ref arg-0 1))) (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-4) ": All cases covered")))))) +(define IdrisC-45REPL-handleMissing (lambda (arg-0) (case (vector-ref arg-0 0) ((0) (let ((e-0 (vector-ref arg-0 1))) (let ((e-1 (vector-ref arg-0 2))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (CoreC-45Name-u--pretty_Pretty_Name e-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (PreludeC-45Types-u--map_Functor_List eta-2 eta-3))))) (lambda (eta-0) (IdrisC-45Pretty-code (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String eta-0))) e-1)))))) ((1) (let ((e-2 (vector-ref arg-0 1))) (let ((e-3 (vector-ref arg-0 2))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (CoreC-45Name-u--pretty_Pretty_Name e-2) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Calls non covering") (if (null? e-3) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "functions:") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-concatWith (lambda (eta-0) (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-surround (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-comma) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-space)) eta-0 eta-1))) (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (PreludeC-45Types-u--map_Functor_List eta-2 eta-3))))) (lambda (eta-0) (IdrisC-45Pretty-code (CoreC-45Name-u--pretty_Pretty_Name eta-0))) e-3))) (let ((e-1 (car e-3))) (let ((e-4 (cdr e-3))) (if (null? e-4) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "function") (IdrisC-45Pretty-code (CoreC-45Name-u--pretty_Pretty_Name e-1))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "functions:") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-concatWith (lambda (eta-0) (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-surround (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-comma) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-space)) eta-0 eta-1))) (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (PreludeC-45Types-u--map_Functor_List eta-2 eta-3))))) (lambda (eta-0) (IdrisC-45Pretty-code (CoreC-45Name-u--pretty_Pretty_Name eta-0))) e-3)))))))))))) (else (let ((e-4 (vector-ref arg-0 1))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (CoreC-45Name-u--pretty_Pretty_Name e-4) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "All cases covered"))))))) +(define IdrisC-45REPL-getOptions (lambda (arg-0 arg-1 ext-0) (let ((act-24 (CoreC-45Context-getPPrint arg-0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (cons (vector 0 (let ((e-0 (vector-ref e-5 0))) e-0)) (cons (vector 1 (let ((e-2 (vector-ref e-5 2))) e-2)) (cons (vector 2 (let ((e-0 (vector-ref e-6 0))) e-0)) (cons (vector 3 (let ((e-1 (vector-ref e-6 1))) e-1)) (cons (vector 4 (let ((e-17 (vector-ref e-6 5))) e-17)) '())))))))))))))))) +(define IdrisC-45REPL-getItDecls (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((e-11 (vector-ref e-5 11))) (if (null? e-11) (vector 1 '()) (let ((e-17 (unbox e-11))) (vector 1 (cons (vector 0 (CoreC-45FC-replFC) (AlgebraC-45ZeroOneOmega-u--top_Top_ZeroOneOmega) 0 '() (vector (CoreC-45FC-replFC) (vector 2 ) (vector 1 "it") (vector 32 (CoreC-45FC-replFC) 0))) (cons (vector 2 (CoreC-45FC-replFC) (vector 1 "it") (cons (vector 0 (CoreC-45FC-replFC) (vector 0 (CoreC-45FC-replFC) (vector 1 "it")) (vector 0 (CoreC-45FC-replFC) e-17)) '())) '())))))))))))) +(define IdrisC-45REPL-findInTree (lambda (arg-0 arg-1 arg-2) (PreludeC-45Types-u--map_Functor_Maybe (lambda (eta-0) (Builtin-snd eta-0)) (DataC-45List-headC-39 (DataC-45List-filter (lambda (eta-0) (IdrisC-45REPL-n--19474-2933-u--match arg-2 arg-1 arg-0 eta-0)) (DataC-45List-sortBy (lambda (u--x) (lambda (u--y) (IdrisC-45REPL-n--19474-2932-u--cmp arg-2 arg-1 arg-0 (LibrariesC-45DataC-45PosMap-u--measure_Measure_C-40C-124C-40C-40BuiltinC-46PairC-32NonEmptyFCC-41C-32C-36aC-41C-44C-40C-40BuiltinC-46MkPairC-32NonEmptyFCC-41C-32C-36aC-41C-124C-41 u--x) (LibrariesC-45DataC-45PosMap-u--measure_Measure_C-40C-124C-40C-40BuiltinC-46PairC-32NonEmptyFCC-41C-32C-36aC-41C-44C-40C-40BuiltinC-46MkPairC-32NonEmptyFCC-41C-32C-36aC-41C-124C-41 u--y)))) (LibrariesC-45DataC-45PosMap-searchPos (lambda (eta-0) (LibrariesC-45DataC-45PosMap-u--measureRM_MeasureRM_C-36a (lambda (eta-1) (LibrariesC-45DataC-45PosMap-u--measure_Measure_C-40C-124C-40C-40BuiltinC-46PairC-32NonEmptyFCC-41C-32C-36aC-41C-44C-40C-40BuiltinC-46MkPairC-32NonEmptyFCC-41C-32C-36aC-41C-124C-41 eta-1)) eta-0)) arg-0 arg-2))))))) +(define IdrisC-45REPL-findCG (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (IdrisC-45REPL-case--findCG-1710 arg-1 arg-0 e-5 (let ((e-4 (vector-ref e-5 4))) (let ((e-36 (vector-ref e-4 2))) (let ((e-54 (vector-ref e-36 3))) e-54))) ext-0))))))) +(define IdrisC-45REPL-execExp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (IdrisC-45REPL-prepareExp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (let ((act-25 (IdrisC-45REPL-findCG arg-4 arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (CompilerC-45Common-execute arg-0 e-6 e-5 ext-0))))))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (vector 1 (vector 2 arg-5))))))))))) +(define IdrisC-45REPL-execDecls (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (CoreC-45Core-traverse_ (lambda (eta-0) (lambda (eta-1) (IdrisC-45REPL-n--24460-7178-u--execDecl arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 eta-0 eta-1))) arg-5 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (vector 1 (vector 25 ))))))) +(define IdrisC-45REPL-dropLamsTm (lambda (arg-0 arg-1 arg-2 arg-3) (cond ((equal? arg-1 0) (cons arg-0 (cons arg-2 arg-3)))(else (let ((e-0 (- arg-1 1))) (case (vector-ref arg-3 0) ((3) (let ((e-3 (vector-ref arg-3 2))) (let ((e-4 (vector-ref arg-3 3))) (let ((e-5 (vector-ref arg-3 4))) (IdrisC-45REPL-dropLamsTm (cons e-3 arg-0) e-0 (cons e-4 arg-2) e-5)))))(else (cons arg-0 (cons arg-2 arg-3))))))))) +(define IdrisC-45REPL-dropLams (lambda (arg-0 arg-1) (cond ((equal? arg-0 0) arg-1)(else (let ((e-0 (- arg-0 1))) (case (vector-ref arg-1 0) ((2) (let ((e-6 (vector-ref arg-1 6))) (IdrisC-45REPL-dropLams e-0 e-6)))(else arg-1))))))) +(define IdrisC-45REPL-displayType (lambda (arg-0 arg-1 arg-2 arg-3) (let ((e-2 (car arg-3))) (let ((e-3 (cdr arg-3))) (let ((e-7 (cdr e-3))) (PreludeC-45Types-maybe (lambda () (lambda (eta-0) (let ((act-24 (let ((act-24 (CoreC-45Normalise-normaliseHoles arg-0 '() arg-2 '() (let ((e-24 (vector-ref e-7 2))) e-24) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (IdrisC-45Resugar-resugar '() arg-0 arg-1 '() e-5 eta-0))))))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-aliasName arg-0 (let ((e-1 (vector-ref e-7 1))) e-1) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref act-25 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (CoreC-45Name-u--pretty_Pretty_Name e-8) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon) (IdrisC-45REPL-prettyTerm e-5)))))))))))))) (lambda () (lambda (u--num) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (case (vector-ref eta-1 0) ((0) (let ((e-4 (vector-ref eta-1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref eta-1 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-reAnnotate (lambda (eta-2) (vector 6 eta-2)) e-5)))))) (lambda (eta-1) (IdrisC-45IDEModeC-45Holes-prettyHole '() arg-0 arg-1 arg-2 '() e-2 u--num (let ((e-24 (vector-ref e-7 2))) e-24) eta-1)) eta-0)))) (IdrisC-45IDEModeC-45Holes-isHole e-7))))))) +(define IdrisC-45REPL-displayTerm (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (CoreC-45Normalise-normaliseHoles arg-0 '() arg-2 '() arg-3 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (IdrisC-45Resugar-resugar '() arg-0 arg-1 '() e-5 ext-0))))))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (IdrisC-45REPL-prettyTerm e-5)))))))) +(define IdrisC-45REPL-displayResult (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (case (vector-ref arg-5 0) ((1) (let ((e-0 (vector-ref arg-5 1))) (lambda (eta-0) (IdrisC-45REPLC-45Common-printError arg-4 e-0 eta-0)))) ((4) (let ((e-1 (vector-ref arg-5 1))) (let ((e-2 (vector-ref arg-5 2))) (lambda (clam-0) (if (null? e-2) (IdrisC-45REPLC-45Common-printResult arg-4 (IdrisC-45REPL-prettyTerm e-1) clam-0) (let ((e-28 (unbox e-2))) (IdrisC-45REPLC-45Common-printResult arg-4 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45REPL-prettyTerm e-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon) (IdrisC-45Pretty-code (IdrisC-45REPL-prettyTerm e-28)))) clam-0))))))) ((5) (let ((e-3 (vector-ref arg-5 1))) (lambda (eta-0) (IdrisC-45REPLC-45Common-printResult arg-4 e-3 eta-0)))) ((6) (let ((e-4 (vector-ref arg-5 1))) (let ((e-5 (vector-ref arg-5 2))) (lambda (eta-0) (IdrisC-45REPLC-45Common-printResult arg-4 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45REPL-prettyTerm e-4) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon) (IdrisC-45Pretty-code (IdrisC-45REPL-prettyTerm e-5)))) eta-0))))) ((7) (let ((e-6 (vector-ref arg-5 1))) (lambda (eta-0) (IdrisC-45REPLC-45Common-printResult arg-4 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Loaded file") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String e-6)) eta-0)))) ((8) (let ((e-7 (vector-ref arg-5 1))) (lambda (eta-0) (IdrisC-45REPLC-45Common-printResult arg-4 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Imported module") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String e-7)) eta-0)))) ((9) (let ((e-8 (vector-ref arg-5 1))) (let ((e-9 (vector-ref arg-5 2))) (lambda (eta-0) (let ((act-24 ((IdrisC-45Error-perror arg-0 arg-2 arg-4 e-9) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (IdrisC-45REPLC-45Common-printResult arg-4 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Error loading module") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String e-8) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon)) e-5)) eta-0))))))))) ((10) (let ((e-10 (vector-ref arg-5 1))) (let ((e-11 (vector-ref arg-5 2))) (lambda (eta-0) (IdrisC-45REPLC-45Common-printResult arg-4 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Error loading file") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String e-10) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String (SystemC-45File-u--show_Show_FileError e-11)))) eta-0))))) ((11) (let ((e-12 (vector-ref arg-5 1))) (lambda (eta-0) (IdrisC-45REPLC-45Common-printResult arg-4 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Error(s) building file") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String e-12)) eta-0)))) ((12) (lambda (eta-0) (IdrisC-45REPLC-45Common-printError arg-4 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "No file can be reloaded") eta-0))) ((13) (let ((e-14 (vector-ref arg-5 1))) (lambda (eta-0) (IdrisC-45REPLC-45Common-printResult arg-4 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Current working directory is") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-dquotes (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String e-14))) eta-0)))) ((14) (lambda (eta-0) (IdrisC-45REPLC-45Common-printError arg-4 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Compilation failed") eta-0))) ((15) (let ((e-15 (vector-ref arg-5 1))) (lambda (eta-0) (IdrisC-45REPLC-45Common-printResult arg-4 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "File") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String e-15) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "written"))) eta-0)))) ((16) (let ((e-16 (vector-ref arg-5 1))) (lambda (eta-0) (IdrisC-45REPLC-45Common-printResult arg-4 (IdrisC-45REPL-prettyTerm e-16) eta-0)))) ((17) (let ((e-17 (vector-ref arg-5 1))) (lambda (eta-0) (IdrisC-45REPLC-45Common-printResult arg-4 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (PreludeC-45Types-u--map_Functor_List eta-3 eta-4))))) (lambda (eta-1) (IdrisC-45REPL-handleMissing eta-1)) e-17)) eta-0)))) ((18) (let ((e-18 (vector-ref arg-5 1))) (lambda (eta-0) (IdrisC-45REPLC-45Common-printResult arg-4 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Types-u--map_Functor_List (lambda (lamc-0) (let ((e-2 (car lamc-0))) (let ((e-3 (cdr lamc-0))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (CoreC-45Name-u--pretty_Pretty_Name e-2) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "is") (CoreC-45TT-u--pretty_Pretty_Totality e-3)))))) e-18)) eta-0)))) ((19) (let ((e-19 (vector-ref arg-5 1))) (if (null? e-19) (lambda (eta-0) (IdrisC-45REPLC-45Common-printResult arg-4 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "No holes") eta-0)) (let ((e-31 (car e-19))) (let ((e-32 (cdr e-19))) (if (null? e-32) (lambda (eta-0) (IdrisC-45REPLC-45Common-printResult arg-4 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "1 hole") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon)) (CoreC-45Name-u--pretty_Pretty_Name (let ((e-0 (vector-ref e-31 0))) e-0))) eta-0)) (let ((u--holes (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-concatWith (lambda (eta-0) (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-surround (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String ", ") eta-0 eta-1))) (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (PreludeC-45Types-u--map_Functor_List eta-2 eta-3))))) (lambda (eta-0) (CoreC-45Name-u--pretty_Pretty_Name (let ((e-0 (vector-ref eta-0 0))) e-0))) e-19)))) (lambda (eta-0) (IdrisC-45REPLC-45Common-printResult arg-4 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Nat (PreludeC-45TypesC-45List-length e-19)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "holes") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon)) u--holes)) eta-0))))))))) ((21) (let ((e-20 (vector-ref arg-5 1))) (lambda (clam-1) (if (null? e-20) (IdrisC-45REPLC-45Common-printResult arg-4 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Logging turned off") clam-1) (let ((e-36 (unbox e-20))) (IdrisC-45REPLC-45Common-printResult arg-4 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Set log level to") (CoreC-45OptionsC-45Log-u--pretty_Pretty_LogLevel e-36)) clam-1)))))) ((22) (let ((e-21 (vector-ref arg-5 1))) (lambda (clam-2) (if (null? e-21) (IdrisC-45REPLC-45Common-printResult arg-4 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Set consolewidth to auto") clam-2) (let ((e-38 (unbox e-21))) (IdrisC-45REPLC-45Common-printResult arg-4 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "Set consolewidth to") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Nat e-38)) clam-2)))))) ((23) (let ((e-22 (vector-ref arg-5 1))) (lambda (eta-0) (IdrisC-45REPLC-45Common-printResult arg-4 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow (cond ((equal? e-22 1) "Set color on") (else "Set color off"))) eta-0)))) ((24) (let ((e-23 (vector-ref arg-5 1))) (lambda (eta-0) (IdrisC-45REPLC-45Common-printResult arg-4 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String (LibrariesC-45DataC-45Version-showVersion 1 e-23)) eta-0)))) ((3) (lambda (eta-0) (IdrisC-45REPLC-45Common-printResult arg-4 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String (IdrisC-45REPL-displayHelp)) eta-0))) ((27) (let ((e-24 (vector-ref arg-5 1))) (lambda (clam-0) (case (vector-ref e-24 0) ((0) (let ((e-40 (vector-ref e-24 1))) (case (vector-ref e-40 0) ((0) (vector 1 0))(else (IdrisC-45REPLC-45Common-printResult arg-4 e-40 clam-0))))) ((1) (let ((e-41 (vector-ref e-24 1))) (IdrisC-45REPLC-45Common-printError arg-4 e-41 clam-0))) ((2) (let ((e-42 (vector-ref e-24 1))) (let ((e-43 (vector-ref e-24 2))) (let ((e-44 (vector-ref e-24 3))) (let ((e-45 (vector-ref e-24 4))) (IdrisC-45REPLC-45Common-printResult arg-4 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String (PreludeC-45TypesC-45String-C-43C-43 (ParserC-45Unlit-relit e-42 (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-43) (PreludeC-45TypesC-45String-C-43C-43 " : " (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--show_Show_PTerm e-44) "\u000a")))) e-45)) clam-0)))))) ((3) (let ((e-46 (vector-ref e-24 1))) (let ((e-47 (vector-ref e-24 2))) (IdrisC-45REPLC-45Common-printResult arg-4 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String (CoreC-45NameC-45Namespace-showSep "\u000a" (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (ParserC-45Unlit-relit e-46 eta-0)) e-47))) clam-0)))) ((4) (let ((e-48 (vector-ref e-24 1))) (let ((e-49 (vector-ref e-24 2))) (IdrisC-45REPLC-45Common-printResult arg-4 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String (CoreC-45NameC-45Namespace-showSep "\u000a" (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (ParserC-45Unlit-relit e-48 eta-0)) e-49))) clam-0))))(else (vector 1 0)))))) ((20) (let ((e-25 (vector-ref arg-5 1))) (lambda (eta-0) (IdrisC-45REPLC-45Common-printResult arg-4 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (PreludeC-45Types-u--map_Functor_List eta-3 eta-4))))) (lambda (eta-1) (IdrisC-45Syntax-u--pretty_Pretty_REPLOpt eta-1)) e-25)) eta-0))))(else (lambda (eta-0) (vector 1 0)))))) +(define IdrisC-45REPL-displayPats (lambda (arg-0 arg-1 arg-2 arg-3) (let ((e-2 (car arg-3))) (let ((e-3 (cdr arg-3))) (let ((e-6 (car e-3))) (let ((e-7 (cdr e-3))) (lambda (clam-0) (let ((e-17 (vector-ref e-7 17))) (case (vector-ref e-17 0) ((1) (let ((e-25 (vector-ref e-17 5))) (let ((act-24 ((IdrisC-45REPL-displayType arg-0 arg-1 arg-2 (cons e-2 (cons e-6 e-7))) clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-30 (vector-ref act-24 1))) (vector 0 e-30))) (else (let ((e-30 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (eta-0) (IdrisC-45REPL-displayClause arg-0 arg-1 arg-2 eta-0)) e-25 '() clam-0))) (case (vector-ref act-25 0) ((0) (let ((e-31 (vector-ref act-25 1))) (vector 0 e-31))) (else (let ((e-31 (vector-ref act-25 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (cons e-30 e-31)))))))))))))(else (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (CoreC-45Name-u--pretty_Pretty_Name e-2) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "is not a pattern matching definition"))))))))))))) +(define IdrisC-45REPL-displayPatTerm (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (CoreC-45Normalise-normaliseHoles arg-0 '() arg-2 '() arg-3 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (IdrisC-45Resugar-resugarNoPatvars '() arg-0 arg-1 '() e-5 ext-0))))))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (IdrisC-45Syntax-u--show_Show_PTerm e-5)))))))) +(define IdrisC-45REPL-displayHelp (lambda () (CoreC-45NameC-45Namespace-showSep "\u000a" (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (IdrisC-45REPL-n--27621-10821-u--cmdInfo eta-0)) (IdrisC-45Parser-help))))) +(define IdrisC-45REPL-displayErrors (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (case (vector-ref arg-5 0) ((10) (let ((e-0 (vector-ref arg-5 1))) (let ((e-1 (vector-ref arg-5 2))) (IdrisC-45REPLC-45Common-printError arg-4 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow "File error in") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String e-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String (SystemC-45File-u--show_Show_FileError e-1)))) ext-0))))(else (vector 1 0))))) +(define IdrisC-45REPL-displayClause (lambda (arg-0 arg-1 arg-2 arg-3) (let ((e-2 (car arg-3))) (let ((e-3 (cdr arg-3))) (lambda (clam-0) (let ((e-6 (car e-3))) (let ((e-7 (cdr e-3))) (let ((e-10 (car e-7))) (let ((e-11 (cdr e-7))) (let ((act-24 (let ((act-24 (CoreC-45Normalise-normaliseHoles arg-0 e-2 arg-2 e-6 e-10 clam-0))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (IdrisC-45Resugar-resugar e-2 arg-0 arg-1 e-6 e-5 clam-0))))))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (let ((act-25 (CoreC-45Normalise-normaliseHoles arg-0 e-2 arg-2 e-6 e-11 clam-0))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref act-25 1))) (IdrisC-45Resugar-resugar e-2 arg-0 arg-1 e-6 e-8 clam-0))))))) (case (vector-ref act-25 0) ((0) (let ((e-4 (vector-ref act-25 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref act-25 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45REPL-prettyTerm e-5) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-equals) (IdrisC-45REPL-prettyTerm e-8))))))))))))))))))))) +(define IdrisC-45REPL-compileExp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 (IdrisC-45REPL-prepareExp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (let ((act-25 (IdrisC-45REPL-findCG arg-4 arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (CompilerC-45Common-compile arg-0 e-6 e-5 arg-6 ext-0))))))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) ((PreludeC-45Types-maybe (lambda () (lambda (eta-0) (vector 1 (vector 14 )))) (lambda () (lambda (eta-0) (lambda (eta-1) (vector 1 (vector 15 eta-0))))) e-6) ext-0))))))))))) +(define IdrisC-45REPL-caseSplit (lambda (arg-0 arg-1 arg-2) (cond ((equal? arg-1 0) (if (null? arg-2) (cons arg-0 '()) (let ((e-4 (cdr arg-2))) (cons (IdrisC-45REPL-rtrim arg-0) e-4))))(else (let ((e-1 (- arg-1 1))) (if (null? arg-2) (cons arg-0 '()) (let ((e-6 (car arg-2))) (let ((e-7 (cdr arg-2))) (cons e-6 (IdrisC-45REPL-caseSplit arg-0 e-1 e-7)))))))))) (define IdrisC-45REPL-anyAt (lambda (arg-2 arg-3 arg-4) (arg-2 arg-3))) -(define IdrisC-45REPL-addMadeLemma (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (IdrisC-45REPL-n--30076-2283-u--addApp arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 arg-0 arg-4 '() (IdrisC-45REPL-proofSearch arg-1 arg-3 arg-4 arg-5)))) -(define IdrisC-45REPL-addMadeCase (lambda (arg-0 arg-1 arg-2 arg-3) (IdrisC-45REPL-n--30207-2399-u--addW arg-3 arg-2 arg-1 arg-0 arg-2 '() arg-3))) -(define IdrisC-45REPL-addClause (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (let ((sc1 arg-2)) (if (null? sc1) (cons (IdrisC-45REPL-rtrim arg-0) '()) (let ((e-3 (car sc1))) (let ((e-4 (cdr sc1))) (IdrisC-45REPL-case--addClause-2144 e-3 e-4 arg-0 (PreludeC-45Interfaces-all (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (lambda (eta-0) (PreludeC-45Types-isSpace eta-0)) (PreludeC-45Types-fastUnpack e-3))))))))(else (let ((e-0 (- arg-1 1))) (let ((sc0 arg-2)) (if (null? sc0) (cons arg-0 '()) (let ((e-6 (car sc0))) (let ((e-7 (cdr sc0))) (cons e-6 (IdrisC-45REPL-addClause arg-0 e-0 e-7)))))))))))) -(define LibrariesC-45SystemC-45DirectoryC-45Tree-case--caseC-32blockC-32inC-32go-2521 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 1) (let ((u--entry arg-3)) (lambda (eta-0) (let ((act-24 (LibrariesC-45SystemC-45DirectoryC-45Tree-directoryExists arg-0 u--entry eta-0))) (let ((u--acc (let ((sc1 act-24)) (cond ((equal? sc1 0) (let ((sc2 arg-1)) (let ((e-1 (car sc2))) (let ((e-2 (cdr sc2))) (cons e-1 (cons (cons u--entry (lambda (eta-1) (LibrariesC-45SystemC-45DirectoryC-45Tree-explore (LibrariesC-45UtilsC-45Path-C-47C-62 arg-0 (LibrariesC-45SystemC-45DirectoryC-45Tree-fileName u--entry)) eta-1))) e-2)))))) (else (let ((sc2 arg-1)) (let ((e-1 (car sc2))) (let ((e-2 (cdr sc2))) (cons (cons u--entry e-1) e-2))))))))) (LibrariesC-45SystemC-45DirectoryC-45Tree-go arg-0 arg-2 u--acc eta-0))))))(else (lambda (eta-0) (LibrariesC-45SystemC-45DirectoryC-45Tree-go arg-0 arg-2 arg-1 eta-0))))))) -(define LibrariesC-45SystemC-45DirectoryC-45Tree-n--3929-2243-u--filesC-39 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (DataC-45List-filter (arg-4 arg-0) arg-2))) -(define LibrariesC-45SystemC-45DirectoryC-45Tree-n--3929-2244-u--dirsC-39 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (PreludeC-45Basics-flip (lambda (eta-0) (lambda (eta-1) (DataC-45List-mapMaybe eta-0 eta-1))) arg-1 (lambda (lamc-0) (let ((sc0 lamc-0)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (PreludeC-45Interfaces-C-62C-62 (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (PreludeC-45Types-u--map_Functor_Maybe u--func arg-143))))) (lambda (u--a) (lambda (arg-577) (PreludeC-45Types-u--pure_Applicative_Maybe arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (PreludeC-45Types-u--C-60C-42C-62_Applicative_Maybe arg-578 arg-580)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe arg-876 arg-877))))) (lambda (u--a) (lambda (arg-879) (PreludeC-45Types-u--join_Monad_Maybe arg-879)))) (PreludeC-45Interfaces-guard (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (PreludeC-45Types-u--map_Functor_Maybe u--func arg-143))))) (lambda (u--a) (lambda (arg-577) (PreludeC-45Types-u--pure_Applicative_Maybe arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (PreludeC-45Types-u--C-60C-42C-62_Applicative_Maybe arg-578 arg-580)))))) (lambda (u--a) (PreludeC-45Types-u--empty_Alternative_Maybe)) (lambda (u--a) (lambda (arg-827) (lambda (arg-828) (PreludeC-45Types-u--C-60C-124C-62_Alternative_Maybe arg-827 arg-828))))) ((arg-3 arg-0) e-2)) (lambda () (PreludeC-45Types-u--pure_Applicative_Maybe (cons e-2 (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (LibrariesC-45SystemC-45DirectoryC-45Tree-filter (lambda (root-2297) (arg-4 root-2297)) (lambda (root-2301) (arg-3 root-2301)) (LibrariesC-45UtilsC-45Path-C-47C-62 arg-0 (LibrariesC-45SystemC-45DirectoryC-45Tree-fileName e-2)) eta-1)) e-3 eta-0))))))))))))) +(define IdrisC-45REPL-addMadeLemma (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (IdrisC-45REPL-n--18706-2258-u--addApp arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 arg-0 arg-4 '() (IdrisC-45REPL-proofSearch arg-1 arg-3 arg-4 arg-5)))) +(define IdrisC-45REPL-addMadeCase (lambda (arg-0 arg-1 arg-2 arg-3) (IdrisC-45REPL-n--18837-2374-u--addW arg-3 arg-2 arg-1 arg-0 arg-2 '() arg-3))) +(define IdrisC-45REPL-addClause (lambda (arg-0 arg-1 arg-2) (cond ((equal? arg-1 0) (if (null? arg-2) (cons (IdrisC-45REPL-rtrim arg-0) '()) (let ((e-3 (car arg-2))) (let ((e-4 (cdr arg-2))) (let ((sc2 (PreludeC-45Interfaces-all (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (lambda (eta-0) (PreludeC-45Types-isSpace eta-0)) (PreludeC-45Types-fastUnpack e-3)))) (cond ((equal? sc2 1) (cons (IdrisC-45REPL-rtrim arg-0) (cons e-3 e-4))) (else (cons e-3 (IdrisC-45REPL-addClause arg-0 0 e-4)))))))))(else (let ((e-0 (- arg-1 1))) (if (null? arg-2) (cons arg-0 '()) (let ((e-6 (car arg-2))) (let ((e-7 (cdr arg-2))) (cons e-6 (IdrisC-45REPL-addClause arg-0 e-0 e-7)))))))))) +(define LibrariesC-45SystemC-45DirectoryC-45Tree-n--3193-2285-u--filesC-39 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (DataC-45List-filter (arg-4 arg-0) arg-2))) +(define LibrariesC-45SystemC-45DirectoryC-45Tree-n--3193-2286-u--dirsC-39 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (PreludeC-45Basics-flip (lambda (eta-0) (lambda (eta-1) (DataC-45List-mapMaybe eta-0 eta-1))) arg-1 (lambda (lamc-0) (let ((e-2 (car lamc-0))) (let ((e-3 (cdr lamc-0))) (PreludeC-45Interfaces-C-62C-62 (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (PreludeC-45Types-u--map_Functor_Maybe u--func arg-133))))) (lambda (u--a) (lambda (arg-527) (PreludeC-45Types-u--pure_Applicative_Maybe arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (PreludeC-45Types-u--C-60C-42C-62_Applicative_Maybe arg-528 arg-530)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe arg-811 arg-812))))) (lambda (u--a) (lambda (arg-814) (PreludeC-45Types-u--join_Monad_Maybe arg-814)))) (PreludeC-45Interfaces-guard (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (PreludeC-45Types-u--map_Functor_Maybe u--func arg-133))))) (lambda (u--a) (lambda (arg-527) (PreludeC-45Types-u--pure_Applicative_Maybe arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (PreludeC-45Types-u--C-60C-42C-62_Applicative_Maybe arg-528 arg-530)))))) (lambda (u--a) (PreludeC-45Types-u--empty_Alternative_Maybe)) (lambda (u--a) (lambda (arg-763) (lambda (arg-764) (PreludeC-45Types-u--C-60C-124C-62_Alternative_Maybe arg-763 arg-764))))) ((arg-3 arg-0) e-2)) (lambda () (PreludeC-45Types-u--pure_Applicative_Maybe (cons e-2 (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-1) (LibrariesC-45SystemC-45DirectoryC-45Tree-filter (lambda (root-2339) (arg-4 root-2339)) (lambda (root-2343) (arg-3 root-2343)) (LibrariesC-45UtilsC-45Path-C-47C-62 arg-0 (LibrariesC-45SystemC-45DirectoryC-45Tree-fileName e-2)) eta-1)) e-3 eta-0)))))))))))) (define LibrariesC-45SystemC-45DirectoryC-45TreeC-45Tree-toRelative (lambda (arg-1) (Builtin-believe_me arg-1))) (define LibrariesC-45SystemC-45DirectoryC-45Tree-toFilePath (lambda (arg-0 arg-1) (LibrariesC-45UtilsC-45Path-u--show_Show_Path (LibrariesC-45UtilsC-45Path-C-47C-62 arg-0 (LibrariesC-45SystemC-45DirectoryC-45Tree-fileName arg-1))))) -(define LibrariesC-45SystemC-45DirectoryC-45Tree-go (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 ((SystemC-45Directory-dirEntry (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-0)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-0) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (let ((act-17 (arg-578 eta-0))) (let ((act-16 (arg-580 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (let ((act-24 (arg-876 eta-0))) ((arg-877 act-24) eta-0))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-0) (let ((act-51 (arg-879 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) arg-1) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) ((PreludeC-45Interfaces-C-60C-36 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (PreludeC-45IO-u--map_Functor_IO eta-2 eta-3 eta-4)))))) arg-2 (SystemC-45Directory-closeDir (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-0)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-0) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (let ((act-17 (arg-578 eta-0))) (let ((act-16 (arg-580 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (let ((act-25 (arg-876 eta-0))) ((arg-877 act-25) eta-0))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-0) (let ((act-51 (arg-879 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) arg-1)) ext-0)) (else (let ((e-5 (vector-ref sc0 1))) (let ((bind-0 (vector 1 e-5))) ((LibrariesC-45SystemC-45DirectoryC-45Tree-case--caseC-32blockC-32inC-32go-2521 arg-0 arg-2 arg-1 e-5 bind-0 (PreludeC-45Types-elem (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_String arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_String arg-4 arg-5)))) e-5 (cons "." (cons ".." '())))) ext-0))))))))) -(define LibrariesC-45SystemC-45DirectoryC-45Tree-filter (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-1 (car sc0))) (let ((e-2 (cdr sc0))) (cons (LibrariesC-45SystemC-45DirectoryC-45Tree-n--3929-2243-u--filesC-39 arg-2 e-2 e-1 arg-1 arg-0) (LibrariesC-45SystemC-45DirectoryC-45Tree-n--3929-2244-u--dirsC-39 arg-2 e-2 e-1 arg-1 arg-0))))))) +(define LibrariesC-45SystemC-45DirectoryC-45Tree-go (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 ((SystemC-45Directory-dirEntry (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-24 (arg-811 eta-0))) ((arg-812 act-24) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-51 (arg-814 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) arg-1) ext-0))) (case (vector-ref act-24 0) ((0) ((PreludeC-45Interfaces-C-60C-36 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (PreludeC-45IO-u--map_Functor_IO eta-2 eta-3 eta-4)))))) arg-2 (SystemC-45Directory-closeDir (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-25 (arg-811 eta-0))) ((arg-812 act-25) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-51 (arg-814 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) arg-1)) ext-0)) (else (let ((e-5 (vector-ref act-24 1))) (let ((sc1 (PreludeC-45Types-elem (cons (lambda (arg-3) (lambda (arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_String arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (PreludeC-45EqOrd-u--C-47C-61_Eq_String arg-4 arg-5)))) e-5 (cons "." (cons ".." '()))))) (cond ((equal? sc1 0) (let ((u--entry e-5)) (let ((act-25 (LibrariesC-45SystemC-45DirectoryC-45Tree-directoryExists arg-0 u--entry ext-0))) (let ((u--acc (cond ((equal? act-25 1) (let ((e-1 (car arg-2))) (let ((e-2 (cdr arg-2))) (cons e-1 (cons (cons u--entry (lambda (eta-0) (LibrariesC-45SystemC-45DirectoryC-45Tree-explore (LibrariesC-45UtilsC-45Path-C-47C-62 arg-0 (LibrariesC-45SystemC-45DirectoryC-45Tree-fileName u--entry)) eta-0))) e-2))))) (else (let ((e-1 (car arg-2))) (let ((e-2 (cdr arg-2))) (cons (cons u--entry e-1) e-2))))))) (LibrariesC-45SystemC-45DirectoryC-45Tree-go arg-0 arg-1 u--acc ext-0)))))(else (LibrariesC-45SystemC-45DirectoryC-45Tree-go arg-0 arg-1 arg-2 ext-0)))))))))) +(define LibrariesC-45SystemC-45DirectoryC-45Tree-filter (lambda (arg-0 arg-1 arg-2 arg-3) (let ((e-1 (car arg-3))) (let ((e-2 (cdr arg-3))) (cons (LibrariesC-45SystemC-45DirectoryC-45Tree-n--3193-2285-u--filesC-39 arg-2 e-2 e-1 arg-1 arg-0) (LibrariesC-45SystemC-45DirectoryC-45Tree-n--3193-2286-u--dirsC-39 arg-2 e-2 e-1 arg-1 arg-0)))))) (define LibrariesC-45SystemC-45DirectoryC-45Tree-fileName (lambda (arg-1) arg-1)) -(define LibrariesC-45SystemC-45DirectoryC-45Tree-explore (lambda (arg-0 ext-0) (let ((act-24 ((SystemC-45Directory-openDir (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-0)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-0) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (let ((act-17 (arg-578 eta-0))) (let ((act-16 (arg-580 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (let ((act-24 (arg-876 eta-0))) ((arg-877 act-24) eta-0))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-0) (let ((act-51 (arg-879 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) (LibrariesC-45UtilsC-45Path-u--show_Show_Path arg-0)) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (LibrariesC-45SystemC-45DirectoryC-45Tree-go arg-0 e-2 (LibrariesC-45SystemC-45DirectoryC-45Tree-emptyTree) ext-0))) (else (LibrariesC-45SystemC-45DirectoryC-45Tree-emptyTree))))))) +(define LibrariesC-45SystemC-45DirectoryC-45Tree-explore (lambda (arg-0 ext-0) (let ((act-24 ((SystemC-45Directory-openDir (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-24 (arg-811 eta-0))) ((arg-812 act-24) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-51 (arg-814 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) (LibrariesC-45UtilsC-45Path-u--show_Show_Path arg-0)) ext-0))) (case (vector-ref act-24 0) ((1) (let ((e-2 (vector-ref act-24 1))) (LibrariesC-45SystemC-45DirectoryC-45Tree-go arg-0 e-2 (LibrariesC-45SystemC-45DirectoryC-45Tree-emptyTree) ext-0))) (else (LibrariesC-45SystemC-45DirectoryC-45Tree-emptyTree)))))) (define LibrariesC-45SystemC-45DirectoryC-45Tree-emptyTree (lambda () (cons '() '()))) -(define LibrariesC-45SystemC-45DirectoryC-45Tree-directoryExists (lambda (arg-0 arg-1 ext-0) (let ((act-24 ((SystemC-45Directory-openDir (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-0)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-0) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (let ((act-17 (arg-578 eta-0))) (let ((act-16 (arg-580 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (let ((act-24 (arg-876 eta-0))) ((arg-877 act-24) eta-0))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-0) (let ((act-51 (arg-879 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) (LibrariesC-45SystemC-45DirectoryC-45Tree-toFilePath arg-0 arg-1)) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) ((PreludeC-45Interfaces-C-62C-62 (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-0)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-0) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (let ((act-17 (arg-578 eta-0))) (let ((act-16 (arg-580 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (let ((act-25 (arg-876 eta-0))) ((arg-877 act-25) eta-0))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-0) (let ((act-29 (arg-879 eta-0))) (act-29 eta-0)))))) (SystemC-45Directory-closeDir (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-0)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-0) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (let ((act-17 (arg-578 eta-0))) (let ((act-16 (arg-580 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (let ((act-25 (arg-876 eta-0))) ((arg-877 act-25) eta-0))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-0) (let ((act-51 (arg-879 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) e-2) (lambda () (lambda (eta-0) 0))) ext-0))) (else 1)))))) -(define LibrariesC-45SystemC-45DirectoryC-45Tree-depthFirst (lambda (arg-1 arg-2 arg-3 arg-4) (let ((u--next (PreludeC-45Types-u--foldr_Foldable_List (lambda (lamc-0) (lambda (clam-0) (lambda (clam-1) (let ((sc0 lamc-0)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((act-24 (e-3 clam-1))) ((LibrariesC-45SystemC-45DirectoryC-45Tree-depthFirst (lambda (root-2697) (arg-1 root-2697)) (LibrariesC-45UtilsC-45Path-C-47C-62 arg-2 (LibrariesC-45SystemC-45DirectoryC-45Tree-fileName e-2)) act-24 clam-0) clam-1)))))))) arg-4 (let ((sc0 arg-3)) (let ((e-2 (cdr sc0))) e-2))))) (PreludeC-45Types-u--foldr_Foldable_List (lambda (u--fn) (lambda (u--def) (((arg-1 arg-2) u--fn) (lambda () u--def)))) u--next (let ((sc0 arg-3)) (let ((e-1 (car sc0))) e-1)))))) -(define TTImpC-45InteractiveC-45MakeLemma-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32getArgs-1240 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-19)) (case (vector-ref sc0 0) ((0) (vector 1 arg-15))(else (vector 0 )))))) -(define TTImpC-45InteractiveC-45MakeLemma-case--caseC-32blockC-32inC-32getArgs-1191 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-19)) (cond ((equal? sc0 0) (TTImpC-45InteractiveC-45MakeLemma-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32getArgs-1240 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 (CoreC-45TT-shrinkTerm arg-7 (vector 1 (vector 0 ))))) (else (vector 1 arg-15)))))) -(define TTImpC-45InteractiveC-45MakeLemma-case--caseC-32blockC-32inC-32getArgs-1073 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (cond ((equal? sc0 0) (vector 1 )) (else (vector 0 )))))) -(define TTImpC-45InteractiveC-45MakeLemma-case--bindable-761 (lambda (arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (if (null? sc0) 1 (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((3) (PreludeC-45Interfaces-any (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (lambda (eta-0) (TTImpC-45InteractiveC-45MakeLemma-bindable arg-2 eta-0)) e-3)) ((2) (PreludeC-45Interfaces-any (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (lambda (eta-0) (TTImpC-45InteractiveC-45MakeLemma-bindable arg-2 eta-0)) e-3))(else 1))))) ((6) (let ((e-11 (vector-ref sc1 3))) (PreludeC-45Interfaces-any (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (lambda (eta-0) (TTImpC-45InteractiveC-45MakeLemma-bindable arg-2 eta-0)) (cons e-11 e-3)))) ((7) (let ((e-16 (vector-ref sc1 4))) (PreludeC-45Interfaces-any (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (lambda (eta-0) (TTImpC-45InteractiveC-45MakeLemma-bindable arg-2 eta-0)) (cons e-16 e-3)))) ((8) (let ((e-20 (vector-ref sc1 3))) (PreludeC-45Interfaces-any (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (lambda (eta-0) (TTImpC-45InteractiveC-45MakeLemma-bindable arg-2 eta-0)) (cons e-20 e-3)))) ((0) (let ((e-25 (vector-ref sc1 3))) (let ((sc2 e-3)) (if (null? sc2) (PreludeC-45Types-u--C-61C-61_Eq_Nat arg-2 e-25) 1))))(else 1))))))))) -(define TTImpC-45InteractiveC-45MakeLemma-n--9830-1427-u--getArg (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (if (null? sc0) (vector 0 ) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-3)) (if (null? sc1) (vector 0 ) (let ((e-7 (cdr sc1))) (let ((sc2 e-7)) (if (null? sc2) (vector 0 ) (let ((e-10 (car sc2))) (let ((e-11 (cdr sc2))) (let ((sc3 e-10)) (case (vector-ref sc3 0) ((1) (let ((sc4 e-11)) (if (null? sc4) (vector 0 ) (vector 1 (vector 0 arg-2 e-2)))))(else (vector 0 ))))))))))))))))) -(define TTImpC-45InteractiveC-45MakeLemma-used (lambda (ext-0) (let ((sc0 (AlgebraC-45Semiring-isErased (cons (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-2) (lambda (arg-3) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-4 arg-5))))) ext-0))) (cond ((equal? sc0 0) 1) (else 0))))) -(define TTImpC-45InteractiveC-45MakeLemma-mkType (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (if (null? sc0) arg-2 (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (let ((e-7 (cdr sc1))) (let ((sc2 e-7)) (let ((e-10 (car sc2))) (let ((e-11 (cdr sc2))) (let ((sc3 e-11)) (let ((e-14 (car sc3))) (let ((e-15 (cdr sc3))) (let ((sc4 e-15)) (let ((e-18 (car sc4))) (let ((e-19 (cdr sc4))) (vector 1 arg-0 e-18 e-14 e-10 e-19 (TTImpC-45InteractiveC-45MakeLemma-mkType arg-0 e-3 arg-2))))))))))))))))))) -(define TTImpC-45InteractiveC-45MakeLemma-mkApp (lambda (arg-0 arg-1 arg-2) (TTImpC-45TTImp-apply (vector 0 arg-0 arg-1) (DataC-45List-mapMaybe (lambda (eta-0) (TTImpC-45InteractiveC-45MakeLemma-n--9830-1427-u--getArg arg-2 arg-1 arg-0 eta-0)) arg-2)))) -(define TTImpC-45InteractiveC-45MakeLemma-makeLemma (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 ((TTImpC-45InteractiveC-45MakeLemma-getArgs '() arg-1 '() arg-4 arg-5) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-2 (car sc1))) (let ((e-3 (cdr sc1))) (vector 1 (cons (TTImpC-45InteractiveC-45MakeLemma-mkType arg-2 e-2 e-3) (TTImpC-45InteractiveC-45MakeLemma-mkApp arg-2 arg-3 e-2))))))))))))) -(define TTImpC-45InteractiveC-45MakeLemma-hiddenName (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 e-0)) (cond ((equal? sc1 "_") 0)(else 1)))))(else 1))))) -(define TTImpC-45InteractiveC-45MakeLemma-getArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (CoreC-45Normalise-normalise arg-1 arg-0 e-5 arg-2 arg-4 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((TTImpC-45Unelab-unelab arg-0 arg-1 arg-2 e-6) eta-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (cons '() e-6))))))))))))))(else (let ((e-0 (- arg-3 1))) (lambda (clam-0) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((3) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (let ((sc1 e-4)) (case (vector-ref sc1 0) ((2) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((e-9 (vector-ref sc1 3))) (let ((e-10 (vector-ref sc1 4))) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-25 (let ((act-25 (CoreC-45Normalise-normalise arg-1 arg-0 e-6 arg-2 e-10 clam-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-11 (vector-ref sc3 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc3 1))) ((TTImpC-45Unelab-unelab arg-0 arg-1 arg-2 e-11) clam-0)))))))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-11 (vector-ref sc3 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc3 1))) (let ((act-26 (TTImpC-45Utils-uniqueName e-6 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45Name-nameRoot eta-0)) arg-0) (CoreC-45Name-nameRoot e-3) clam-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-12 (vector-ref sc4 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc4 1))) (let ((u--xC-39 (vector 1 e-12))) (let ((act-27 ((TTImpC-45InteractiveC-45MakeLemma-getArgs (cons u--xC-39 arg-0) arg-1 (cons e-4 arg-2) e-0 (CoreC-45TT-renameTop u--xC-39 e-5)) clam-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-13 (vector-ref sc5 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc5 1))) (let ((u--b (vector 2 e-7 e-8 e-9 e-10))) (let ((sc6 e-13)) (let ((e-15 (car sc6))) (let ((e-14 (cdr sc6))) (let ((u--mn (let ((_-0 (cons e-15 e-14))) (TTImpC-45InteractiveC-45MakeLemma-case--caseC-32blockC-32inC-32getArgs-1191 arg-1 e-2 e-7 arg-0 e-9 e-0 e-3 e-5 e-10 e-8 u--b arg-2 e-6 e-11 e-12 u--xC-39 e-15 e-14 _-0 (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega e-8 (AlgebraC-45ZeroOneOmega-u--top_Top_ZeroOneOmega)))))) (let ((u--pC-39 (let ((_-0 (cons e-15 e-14))) (TTImpC-45InteractiveC-45MakeLemma-case--caseC-32blockC-32inC-32getArgs-1073 arg-1 e-2 e-7 arg-0 e-9 e-0 e-3 e-5 e-10 e-8 u--b arg-2 e-6 e-11 e-12 u--xC-39 e-15 e-14 _-0 u--mn (PreludeC-45Basics-C-38C-38 (TTImpC-45InteractiveC-45MakeLemma-used e-8) (lambda () (PreludeC-45Basics-C-38C-38 (let ((sc7 (TTImpC-45InteractiveC-45MakeLemma-bindableArg 0 e-5))) (cond ((equal? sc7 0) 1) (else 0))) (lambda () (let ((sc7 (TTImpC-45InteractiveC-45MakeLemma-hiddenName e-3))) (cond ((equal? sc7 0) 1) (else 0))))))))))) (vector 1 (cons (cons (cons e-3 (cons u--mn (cons u--pC-39 (cons e-8 e-11)))) e-15) e-14))))))))))))))))))))))))))))))))))(else (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (CoreC-45Normalise-normalise arg-1 arg-0 e-6 arg-2 arg-4 clam-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc2 1))) ((TTImpC-45Unelab-unelab arg-0 arg-1 arg-2 e-7) clam-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc2 1))) (vector 1 (cons '() e-7))))))))))))))))))))(else (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (CoreC-45Normalise-normalise arg-1 arg-0 e-5 arg-2 arg-4 clam-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) ((TTImpC-45Unelab-unelab arg-0 arg-1 arg-2 e-6) clam-0)))))))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 (cons '() e-6)))))))))))))))))))))) -(define TTImpC-45InteractiveC-45MakeLemma-bindableArg (lambda (arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((3) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-9 (vector-ref sc1 4))) (PreludeC-45Basics-C-124C-124 (TTImpC-45InteractiveC-45MakeLemma-bindable arg-1 e-9) (lambda () (TTImpC-45InteractiveC-45MakeLemma-bindableArg (PreludeC-45Types-u--C-43_Num_Nat (PreludeC-45Types-u--fromInteger_Num_Nat 1) arg-1) e-4)))))(else 1))))))(else 1))))) -(define TTImpC-45InteractiveC-45MakeLemma-bindable (lambda (arg-1 arg-2) (TTImpC-45InteractiveC-45MakeLemma-case--bindable-761 arg-2 arg-1 (CoreC-45TT-getFnArgs arg-2)))) -(define IdrisC-45REPLC-45FuzzySearch-case--fuzzySearch-1297 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (if (null? sc1) (vector 1 (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "Bad expression, expected") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-code (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "B")) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "or") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-code (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "_ -> B")) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "or") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-code (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "A -> B")) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String ", where")) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-code (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "A")) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "and") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-code (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "B")) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "are spines of global names")))))))))))) (let ((e-4 (car sc1))) (let ((e-5 (cdr sc1))) (let ((act-24 (CoreC-45Context-branch arg-5 ext-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((u--curr (let ((sc3 e-6)) (let ((e-2 (vector-ref sc3 3))) e-2)))) (let ((u--ctxt (let ((sc3 e-6)) (let ((e-0 (vector-ref sc3 1))) e-0)))) (let ((act-25 (let ((act-25 (CoreC-45Context-allNames u--ctxt ext-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-26 (CoreC-45Core-traverseC-39 (lambda (eta-0) (PreludeC-45Basics-flip (lambda (eta-1) (lambda (eta-2) (CoreC-45Context-lookupCtxtExact eta-1 eta-2))) u--ctxt eta-0)) e-7 '() ext-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((u--defs (PreludeC-45Basics-flip (lambda (eta-0) (lambda (eta-1) (DataC-45List-mapMaybe eta-0 eta-1))) e-8 (lambda (u--md) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe u--md (lambda (u--d) (PreludeC-45Interfaces-C-62C-62 (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (PreludeC-45Types-u--map_Functor_Maybe u--func arg-143))))) (lambda (u--a) (lambda (arg-577) (PreludeC-45Types-u--pure_Applicative_Maybe arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (PreludeC-45Types-u--C-60C-42C-62_Applicative_Maybe arg-578 arg-580)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe arg-876 arg-877))))) (lambda (u--a) (lambda (arg-879) (PreludeC-45Types-u--join_Monad_Maybe arg-879)))) (PreludeC-45Interfaces-guard (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (PreludeC-45Types-u--map_Functor_Maybe u--func arg-143))))) (lambda (u--a) (lambda (arg-577) (PreludeC-45Types-u--pure_Applicative_Maybe arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (PreludeC-45Types-u--C-60C-42C-62_Applicative_Maybe arg-578 arg-580)))))) (lambda (u--a) (PreludeC-45Types-u--empty_Alternative_Maybe)) (lambda (u--a) (lambda (arg-827) (lambda (arg-828) (PreludeC-45Types-u--C-60C-124C-62_Alternative_Maybe arg-827 arg-828))))) (CoreC-45Context-visibleIn u--curr (let ((sc5 u--d)) (let ((e-26 (vector-ref sc5 2))) e-26)) (let ((sc5 u--d)) (let ((e-9 (vector-ref sc5 10))) e-9)))) (lambda () (PreludeC-45Interfaces-C-62C-62 (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (PreludeC-45Types-u--map_Functor_Maybe u--func arg-143))))) (lambda (u--a) (lambda (arg-577) (PreludeC-45Types-u--pure_Applicative_Maybe arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (PreludeC-45Types-u--C-60C-42C-62_Applicative_Maybe arg-578 arg-580)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe arg-876 arg-877))))) (lambda (u--a) (lambda (arg-879) (PreludeC-45Types-u--join_Monad_Maybe arg-879)))) (PreludeC-45Interfaces-guard (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (PreludeC-45Types-u--map_Functor_Maybe u--func arg-143))))) (lambda (u--a) (lambda (arg-577) (PreludeC-45Types-u--pure_Applicative_Maybe arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (PreludeC-45Types-u--C-60C-42C-62_Applicative_Maybe arg-578 arg-580)))))) (lambda (u--a) (PreludeC-45Types-u--empty_Alternative_Maybe)) (lambda (u--a) (lambda (arg-827) (lambda (arg-828) (PreludeC-45Types-u--C-60C-124C-62_Alternative_Maybe arg-827 arg-828))))) (DataC-45Maybe-isJust (CoreC-45Name-userNameRoot (let ((sc5 u--d)) (let ((e-26 (vector-ref sc5 2))) e-26))))) (lambda () (PreludeC-45Types-u--pure_Applicative_Maybe u--d))))))))))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (CoreC-45Context-u--resolved_HasNames_GlobalDef u--ctxt eta-0 eta-1))) u--defs '() ext-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (CoreC-45Core-filterM (lambda (u--def) (IdrisC-45REPLC-45FuzzySearch-n--23697-878-u--fuzzyMatch arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-4 e-5 (let ((sc6 u--def)) (let ((e-2 (vector-ref sc6 3))) e-2)))) e-9 ext-0))))))))))))))))))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-26 (let ((act-26 (set-box! arg-5 e-6))) (vector 1 act-26)))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (IdrisC-45REPLC-45Common-docsOrSignature arg-1 arg-5 arg-3 (IdrisC-45REPLC-45Opts-replFC) eta-0 eta-1))) (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (PreludeC-45Types-u--map_Functor_List eta-2 eta-3))))) (lambda (eta-0) (let ((sc5 eta-0)) (let ((e-26 (vector-ref sc5 2))) e-26))) e-7) '() ext-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (vector 1 (vector 5 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (PreludeC-45Types-u--map_Functor_List eta-2 eta-3))))) (lambda (eta-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String eta-0)) (DataC-45List-intersperse "\u000a" (PreludeC-45Types-u--join_Monad_List e-9)))))))))))))))))))))))))))))))))(else (vector 1 (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "Bad expression, expected") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-code (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "B")) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "or") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-code (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "_ -> B")) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "or") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-code (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "A -> B")) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String ", where")) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-code (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "A")) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "and") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-code (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "B")) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "are spines of global names"))))))))))))))))) -(define IdrisC-45REPLC-45FuzzySearch-n--23697-877-u--toFullNamesC-39 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-6 (vector-ref sc0 7))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc1 eta-0)) (case (vector-ref sc1 0) ((0) (let ((e-7 (vector-ref sc1 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc1 1))) (vector 1 (vector 0 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-7))))))) (lambda (eta-0) (CoreC-45Context-toFullNames arg-5 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-1) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-1)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) e-6 eta-0)) ext-0)))(else (vector 1 arg-6)))))) -(define IdrisC-45REPLC-45FuzzySearch-n--23697-871-u--parseNameOrConst (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (vector 1 (vector 0 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-1)))) ((15) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((14) (vector 1 (vector 1 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5))) ((19) (vector 1 (vector 2 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5))) ((20) (vector 1 (vector 3 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5))) ((21) (vector 1 (vector 4 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5))) ((22) (vector 1 (vector 5 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5))) ((23) (vector 1 (vector 6 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5))) ((24) (vector 1 (vector 7 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5))) ((25) (vector 1 (vector 8 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5))) ((26) (vector 1 (vector 9 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5))) ((27) (vector 1 (vector 10 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5)))(else (vector 0 )))))) ((22) (vector 1 (vector 11 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5)))(else (vector 0 )))))) -(define IdrisC-45REPLC-45FuzzySearch-n--23697-872-u--parseExprC-39 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((7) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (PreludeC-45Types-u--C-60C-42C-62_Applicative_Maybe (PreludeC-45Types-u--C-60C-42C-62_Applicative_Maybe (PreludeC-45Types-u--pure_Applicative_Maybe (lambda (eta-0) (lambda (eta-1) (cons eta-0 eta-1)))) (IdrisC-45REPLC-45FuzzySearch-n--23697-871-u--parseNameOrConst arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2)) (IdrisC-45REPLC-45FuzzySearch-n--23697-872-u--parseExprC-39 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-1)))))(else (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (PreludeC-45Types-u--map_Functor_Maybe eta-2 eta-3))))) (lambda (arg-7) (cons arg-7 '())) (IdrisC-45REPLC-45FuzzySearch-n--23697-871-u--parseNameOrConst arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6))))))) -(define IdrisC-45REPLC-45FuzzySearch-n--23697-873-u--parseExpr (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((25) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (IdrisC-45REPLC-45FuzzySearch-n--23697-872-u--parseExprC-39 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-4) (lambda (u--aC-39) (PreludeC-45Types-u--pure_Applicative_Maybe (cons u--aC-39 '())))))(else (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (IdrisC-45REPLC-45FuzzySearch-n--23697-872-u--parseExprC-39 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-4) (lambda (u--aC-39) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (IdrisC-45REPLC-45FuzzySearch-n--23697-872-u--parseExprC-39 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-5) (lambda (u--bC-39) (PreludeC-45Types-u--pure_Applicative_Maybe (cons u--aC-39 u--bC-39))))))))))))(else (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (IdrisC-45REPLC-45FuzzySearch-n--23697-872-u--parseExprC-39 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (lambda (u--bC-39) (PreludeC-45Types-u--pure_Applicative_Maybe (cons '() u--bC-39))))))))) -(define IdrisC-45REPLC-45FuzzySearch-n--23697-875-u--isApproximationOfC-39 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-6 (vector-ref sc0 7))) (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((0) (let ((e-13 (vector-ref sc1 7))) (IdrisC-45REPLC-45FuzzySearch-n--23697-874-u--isApproximationOf arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-6 e-13)))(else (IdrisC-45REPLC-45FuzzySearch-n--23697-870-u--eqConst arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7))))))(else (IdrisC-45REPLC-45FuzzySearch-n--23697-870-u--eqConst arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7)))))) -(define IdrisC-45REPLC-45FuzzySearch-n--23697-874-u--isApproximationOf (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (PreludeC-45Basics-C-38C-38 (CoreC-45Name-u--C-61C-61_Eq_Name e-1 e-4) (lambda () (CoreC-45NameC-45Namespace-isApproximationOf e-0 e-3))))))(else 1)))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-8 (vector-ref sc2 1))) (PreludeC-45EqOrd-u--C-61C-61_Eq_String e-2 e-8)))(else 1))))) ((1) (let ((e-7 (vector-ref sc1 1))) (PreludeC-45EqOrd-u--C-61C-61_Eq_String e-2 e-7)))(else 1)))))(else 1))))) -(define IdrisC-45REPLC-45FuzzySearch-n--23697-878-u--fuzzyMatch (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((3) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (let ((u--refsB (IdrisC-45REPLC-45FuzzySearch-n--23697-876-u--doFind arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 '() (CoreC-45TT-binderType e-7)))) (lambda (eta-0) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-1) (lambda (eta-2) (IdrisC-45REPLC-45FuzzySearch-n--23697-877-u--toFullNamesC-39 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 eta-1 eta-2))) u--refsB '() eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc1 1))) (let ((u--negC-39 (LibrariesC-45DataC-45ListC-45Extra-diffBy (lambda (eta-1) (lambda (eta-2) (IdrisC-45REPLC-45FuzzySearch-n--23697-875-u--isApproximationOfC-39 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 eta-1 eta-2))) arg-7 e-9))) ((IdrisC-45REPLC-45FuzzySearch-n--23697-878-u--fuzzyMatch arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 u--negC-39 arg-8 e-8) eta-0))))))))))))(else (let ((sc0 arg-7)) (if (null? sc0) (let ((u--refsB (IdrisC-45REPLC-45FuzzySearch-n--23697-876-u--doFind arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 '() arg-9))) (lambda (eta-0) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-1) (lambda (eta-2) (IdrisC-45REPLC-45FuzzySearch-n--23697-877-u--toFullNamesC-39 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 eta-1 eta-2))) u--refsB '() eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (DataC-45List-isNil (LibrariesC-45DataC-45ListC-45Extra-diffBy (lambda (eta-1) (lambda (eta-2) (IdrisC-45REPLC-45FuzzySearch-n--23697-875-u--isApproximationOfC-39 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 eta-1 eta-2))) arg-8 e-5)))))))))) (lambda (eta-0) (vector 1 1))))))))) -(define IdrisC-45REPLC-45FuzzySearch-n--23697-870-u--eqConst (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((1) 0)(else 1)))) ((2) (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((2) 0)(else 1)))) ((3) (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((3) 0)(else 1)))) ((4) (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((4) 0)(else 1)))) ((5) (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((5) 0)(else 1)))) ((6) (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((6) 0)(else 1)))) ((7) (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((7) 0)(else 1)))) ((8) (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((8) 0)(else 1)))) ((9) (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((9) 0)(else 1)))) ((10) (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((10) 0)(else 1)))) ((11) (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((11) 0)(else 1))))(else 1))))) -(define IdrisC-45REPLC-45FuzzySearch-n--23697-876-u--doFind (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) arg-7) ((1) (let ((e-9 (vector-ref sc0 3))) (cons (vector 0 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-9) arg-7))) ((2) (let ((e-14 (vector-ref sc0 4))) (PreludeC-45Types-u--foldl_Foldable_List (lambda (eta-0) (lambda (eta-1) (IdrisC-45REPLC-45FuzzySearch-n--23697-876-u--doFind arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 eta-0 eta-1))) arg-7 e-14))) ((3) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (let ((sc1 e-18)) (case (vector-ref sc1 0) ((1) (let ((e-53 (vector-ref sc1 3))) (let ((e-54 (vector-ref sc1 4))) (IdrisC-45REPLC-45FuzzySearch-n--23697-876-u--doFind arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (IdrisC-45REPLC-45FuzzySearch-n--23697-876-u--doFind arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (IdrisC-45REPLC-45FuzzySearch-n--23697-876-u--doFind arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 e-53) e-54) e-19))))(else (IdrisC-45REPLC-45FuzzySearch-n--23697-876-u--doFind arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (IdrisC-45REPLC-45FuzzySearch-n--23697-876-u--doFind arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 (CoreC-45TT-binderType e-18)) e-19))))))) ((4) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (IdrisC-45REPLC-45FuzzySearch-n--23697-876-u--doFind arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (IdrisC-45REPLC-45FuzzySearch-n--23697-876-u--doFind arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 e-22) e-23)))) ((5) (let ((e-28 (vector-ref sc0 4))) (IdrisC-45REPLC-45FuzzySearch-n--23697-876-u--doFind arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 e-28))) ((6) (let ((e-32 (vector-ref sc0 3))) (IdrisC-45REPLC-45FuzzySearch-n--23697-876-u--doFind arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 e-32))) ((7) (let ((e-36 (vector-ref sc0 3))) (let ((e-37 (vector-ref sc0 4))) (IdrisC-45REPLC-45FuzzySearch-n--23697-876-u--doFind arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (IdrisC-45REPLC-45FuzzySearch-n--23697-876-u--doFind arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 e-36) e-37)))) ((8) (let ((e-41 (vector-ref sc0 3))) (IdrisC-45REPLC-45FuzzySearch-n--23697-876-u--doFind arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 e-41))) ((9) (let ((e-43 (vector-ref sc0 1))) (let ((e-44 (vector-ref sc0 2))) (PreludeC-45TypesC-45List-C-43C-43 (DataC-45Maybe-fromMaybe (lambda () '()) (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (PreludeC-45Types-u--map_Functor_Maybe eta-2 eta-3))))) (lambda (arg-6) (cons arg-6 '())) (IdrisC-45REPLC-45FuzzySearch-n--23697-871-u--parseNameOrConst arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 15 e-43 e-44)))) arg-7)))) ((10) arg-7) (else (cons (vector 11 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) arg-7)))))) -(define IdrisC-45REPLC-45FuzzySearch-fuzzySearch (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (lambda (eta-0) (IdrisC-45REPLC-45FuzzySearch-case--fuzzySearch-1297 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 (IdrisC-45REPLC-45FuzzySearch-n--23697-873-u--parseExpr arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 arg-5) eta-0)))) -(define IdrisC-45REPLC-45Common-case--equivTypes-1405 (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((sc0 arg-3)) (cond ((equal? sc0 1) (let ((act-24 (CoreC-45ContextC-45Log-logTerm '() arg-2 "typesearch.equiv" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Candidate: ") arg-1 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (let ((act-25 (unbox arg-2))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (let ((act-26 (CoreC-45Normalise-getArity arg-2 '() e-6 '() arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (CoreC-45Normalise-getArity arg-2 '() e-6 '() arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (PreludeC-45Types-u--C-61C-61_Eq_Nat e-7 e-8)))))))))))))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (cond ((equal? sc4 0) (let ((act-27 (CoreC-45Core-newRef (vector "Core.UnifyState.UST" ) (CoreC-45UnifyState-initUState) ext-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-28 (CoreC-45Core-u--catch_Catchable_Core_Error (lambda (eta-0) (let ((act-28 ((((CoreC-45Unify-unify (cons (lambda (u--vars) (lambda (arg-4911) (lambda (arg-4913) (lambda (arg-4915) (lambda (arg-4916) (lambda (arg-4917) (lambda (arg-4919) (lambda (arg-4922) (lambda (eta-1) (CoreC-45Unify-u--unifyD_Unify_Term u--vars arg-4911 arg-4913 arg-4915 arg-4916 arg-4917 arg-4919 arg-4922 eta-1)))))))))) (lambda (u--vars) (lambda (arg-4924) (lambda (arg-4926) (lambda (arg-4928) (lambda (arg-4929) (lambda (arg-4930) (lambda (arg-4932) (lambda (arg-4933) (lambda (eta-1) (CoreC-45Unify-u--unifyWithLazyD_Unify_Term u--vars arg-4924 arg-4926 arg-4928 arg-4929 arg-4930 arg-4932 arg-4933 eta-1))))))))))) '() arg-2 e-8 (CoreC-45Unify-inTerm) (IdrisC-45REPLC-45Opts-replFC) '()) arg-1) arg-0) eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc6 1))) (let ((sc7 e-9)) (case (vector-ref sc7 0) ((0) (let ((e-0 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 3))) (let ((e-3 (vector-ref sc7 4))) (let ((sc8 e-0)) (if (null? sc8) (let ((sc9 e-2)) (if (null? sc9) (let ((sc10 e-3)) (case (vector-ref sc10 0) ((0) (vector 1 0))(else (vector 1 1)))) (vector 1 1))) (vector 1 1)))))))(else (vector 1 1)))))))))) (lambda (u--err) (lambda (eta-0) (vector 1 1))) ext-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-29 (let ((sc7 e-9)) (cond ((equal? sc7 0) (CoreC-45ContextC-45Log-logTerm '() arg-2 "typesearch.equiv" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))))))))))))) (lambda () "Accepted: ") arg-1 ext-0)) (else (vector 1 (vector 0 ))))))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (vector 1 e-9)))))))))))))))) (else (vector 1 1)))))))))))))))))))(else (vector 1 1)))))) -(define IdrisC-45REPLC-45Common-case--caseC-32blockC-32inC-32docsOrSignature-1306 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 ext-0) (let ((sc0 arg-11)) (if (null? sc0) (IdrisC-45REPLC-45Common-n--17076-1157-u--typeSummary arg-0 arg-1 arg-2 arg-3 arg-4 arg-6 ext-0) (let ((act-24 (IdrisC-45DocString-getDocsForName arg-4 arg-3 arg-2 arg-1 arg-0 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (IdrisC-45PrettyC-45Render-render arg-4 (lambda (eta-0) (IdrisC-45DocString-styleAnn eta-0)) e-5 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (cons e-6 '())))))))))))))))) -(define IdrisC-45REPLC-45Common-case--caseC-32blockC-32inC-32emitProblem-648 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (IdrisC-45REPLC-45Common-iputStrLn arg-5 arg-12 eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (clam-0) (let ((sc1 e-2)) (let ((e-5 (car sc1))) (let ((e-6 (cdr sc1))) (let ((sc2 e-6)) (let ((e-9 (car sc2))) (let ((e-10 (cdr sc2))) (let ((act-24 (IdrisC-45PrettyC-45Render-renderWithoutColor arg-5 arg-12 clam-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) ((IdrisC-45IDEModeC-45Commands-send (lambda (eta-0) (IdrisC-45IDEModeC-45Commands-u--toSExp_SExpable_SExp eta-0)) arg-10 (vector 0 (cons (vector 4 "warning") (cons (vector 0 (cons (IdrisC-45IDEModeC-45Commands-u--toSExp_SExpable_String e-5) (cons (IdrisC-45IDEModeC-45Commands-u--toSExp_SExpable_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (eta-0) (IdrisC-45IDEModeC-45Commands-u--toSExp_SExpable_Int eta-0)) (lambda (eta-0) (IdrisC-45IDEModeC-45Commands-u--toSExp_SExpable_Int eta-0))) (IdrisC-45REPLC-45Common-n--16401-526-u--addOne arg-9 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-9)) (cons (IdrisC-45IDEModeC-45Commands-u--toSExp_SExpable_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (eta-0) (IdrisC-45IDEModeC-45Commands-u--toSExp_SExpable_Int eta-0)) (lambda (eta-0) (IdrisC-45IDEModeC-45Commands-u--toSExp_SExpable_Int eta-0))) (IdrisC-45REPLC-45Common-n--16401-526-u--addOne arg-9 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10)) (cons (IdrisC-45IDEModeC-45Commands-u--toSExp_SExpable_String e-7) (cons (vector 0 '()) '())))))) (cons (IdrisC-45IDEModeC-45Commands-u--toSExp_SExpable_Integer arg-11) '()))))) clam-0))))))))))))))))))) -(define IdrisC-45REPLC-45Common-case--emitProblem-555 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 ext-0) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (let ((act-24 (let ((act-24 ((arg-4 arg-1) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (IdrisC-45Pretty-render arg-6 e-5 ext-0)))))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((PreludeC-45IO-putStrLn (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-0)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-0) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (let ((act-17 (arg-578 eta-0))) (let ((act-16 (arg-580 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (let ((act-25 (arg-876 eta-0))) ((arg-877 act-25) eta-0))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-0) (let ((act-51 (arg-879 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) e-5) ext-0))) (vector 1 act-25)))))))) (else (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((act-24 ((arg-3 arg-1) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) ((IdrisC-45REPLC-45Common-case--caseC-32blockC-32inC-32emitProblem-648 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2 arg-1 e-3 e-1 e-5 (PreludeC-45Types-u--map_Functor_Maybe (lambda (eta-0) (CoreC-45FC-toNonEmptyFC eta-0)) (arg-2 arg-1))) ext-0)))))))))))))) -(define IdrisC-45REPLC-45Common-case--printWithStatus-450 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((act-24 (IdrisC-45Pretty-render arg-2 arg-0 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((PreludeC-45IO-putStrLn (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-0)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-0) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (let ((act-17 (arg-578 eta-0))) (let ((act-16 (arg-580 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (let ((act-25 (arg-876 eta-0))) ((arg-877 act-25) eta-0))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-0) (let ((act-51 (arg-879 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) e-5) ext-0))) (vector 1 act-25))))))))(else (vector 1 (vector 0 ))))))) -(define IdrisC-45REPLC-45Common-case--iputStrLn-369 (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 e-0)) (cond ((equal? sc1 1) (let ((act-24 (IdrisC-45Pretty-render arg-1 arg-0 ext-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((PreludeC-45IO-putStrLn (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-0)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-0) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (let ((act-17 (arg-578 eta-0))) (let ((act-16 (arg-580 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (let ((act-25 (arg-876 eta-0))) ((arg-877 act-25) eta-0))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-0) (let ((act-51 (arg-879 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) e-5) ext-0))) (vector 1 act-25))))))))(else (vector 1 (vector 0 ))))))) (else (let ((e-1 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 3))) (let ((act-24 (IdrisC-45PrettyC-45Render-renderWithoutColor arg-1 arg-0 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) ((IdrisC-45IDEModeC-45Commands-send (lambda (eta-0) (IdrisC-45IDEModeC-45Commands-u--toSExp_SExpable_SExp eta-0)) e-3 (vector 0 (cons (vector 4 "write-string") (cons (IdrisC-45IDEModeC-45Commands-u--toSExp_SExpable_String e-5) (cons (IdrisC-45IDEModeC-45Commands-u--toSExp_SExpable_Integer e-1) '()))))) ext-0))))))))))))) -(define IdrisC-45REPLC-45Common-n--17076-1157-u--typeSummary (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 ((CoreC-45Context-lookupCtxtExact arg-0 (let ((sc0 arg-5)) (let ((e-0 (vector-ref sc0 1))) e-0))) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Normalise-normaliseHoles arg-3 '() arg-5 '() (let ((sc2 e-1)) (let ((e-2 (vector-ref sc2 3))) e-2)) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (IdrisC-45Resugar-resugar '() arg-3 arg-2 '() e-6 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (cons (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name arg-0) (PreludeC-45TypesC-45String-C-43C-43 " : " (IdrisC-45Syntax-u--show_Show_PTerm e-7))) '())))))))))))))) (else (vector 1 '()))))))))))) -(define IdrisC-45REPLC-45Common-n--16401-526-u--addOne (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (cons (bs+ e-2 1 63) (bs+ e-3 1 63))))))) -(define IdrisC-45REPLC-45Common-updateErrorLine (lambda (arg-0 arg-1 ext-0) (let ((sc0 arg-1)) (if (null? sc0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (set-box! arg-0 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (let ((e-3 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-16 (vector-ref sc2 6))) (let ((e-7 (vector-ref sc2 8))) (let ((e-8 (vector-ref sc2 9))) (let ((e-9 (vector-ref sc2 10))) (let ((e-10 (vector-ref sc2 11))) (let ((e-11 (vector-ref sc2 12))) (let ((e-12 (vector-ref sc2 13))) (let ((e-13 (vector-ref sc2 14))) (let ((e-14 (vector-ref sc2 15))) (let ((e-15 (vector-ref sc2 16))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-16 (vector 0 ) e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15)))))))))))))))))))) (vector 1 act-25))))))) (let ((e-2 (car sc0))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (set-box! arg-0 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-18 (vector-ref sc2 3))) (let ((e-17 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-16 (vector-ref sc2 6))) (let ((e-7 (vector-ref sc2 8))) (let ((e-8 (vector-ref sc2 9))) (let ((e-9 (vector-ref sc2 10))) (let ((e-10 (vector-ref sc2 11))) (let ((e-11 (vector-ref sc2 12))) (let ((e-12 (vector-ref sc2 13))) (let ((e-13 (vector-ref sc2 14))) (let ((e-14 (vector-ref sc2 15))) (let ((e-15 (vector-ref sc2 16))) (vector 0 e-0 e-1 e-18 e-17 e-4 e-16 (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Core-getErrorLoc e-2) (lambda (eta-0) (IdrisC-45REPLC-45Common-getFCLine eta-0))) e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15)))))))))))))))))))) (vector 1 act-25)))))))))))) -(define IdrisC-45REPLC-45Common-resetContext (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (CoreC-45Context-initDefs ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (set-box! arg-0 (let ((sc2 e-6)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (let ((e-3 (vector-ref sc2 4))) (let ((e-29 (vector-ref sc2 6))) (let ((e-28 (vector-ref sc2 7))) (let ((e-7 (vector-ref sc2 8))) (let ((e-8 (vector-ref sc2 9))) (let ((e-9 (vector-ref sc2 10))) (let ((e-10 (vector-ref sc2 11))) (let ((e-11 (vector-ref sc2 12))) (let ((e-12 (vector-ref sc2 13))) (let ((e-13 (vector-ref sc2 14))) (let ((e-14 (vector-ref sc2 15))) (let ((e-15 (vector-ref sc2 16))) (let ((e-16 (vector-ref sc2 17))) (let ((e-17 (vector-ref sc2 18))) (let ((e-18 (vector-ref sc2 19))) (let ((e-19 (vector-ref sc2 20))) (let ((e-20 (vector-ref sc2 21))) (let ((e-21 (vector-ref sc2 22))) (let ((e-22 (vector-ref sc2 23))) (let ((e-23 (vector-ref sc2 24))) (let ((e-24 (vector-ref sc2 25))) (let ((e-25 (vector-ref sc2 26))) (let ((e-26 (vector-ref sc2 27))) (let ((e-27 (vector-ref sc2 28))) (vector 0 e-0 e-1 e-2 e-3 (CoreC-45Options-clearNames (let ((sc3 e-5)) (let ((e-53 (vector-ref sc3 5))) e-53))) e-29 e-28 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27)))))))))))))))))))))))))))))))) (vector 1 act-26))))))))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45InitPrimitives-addPrimitives arg-0 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-27 (let ((act-27 (set-box! arg-1 (CoreC-45UnifyState-initUState)))) (vector 1 act-27)))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-28 (let ((act-28 (set-box! arg-2 (IdrisC-45Syntax-initSyntax)))) (vector 1 act-28)))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-29 (set-box! arg-3 (CoreC-45Metadata-initMetadata)))) (vector 1 act-29))))))))))))))))))))))))) -(define IdrisC-45REPLC-45Common-printWithStatus (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (IdrisC-45REPLC-45Common-case--printWithStatus-450 arg-2 arg-1 arg-0 e-5 (let ((sc1 e-5)) (let ((e-7 (vector-ref sc1 8))) e-7)) ext-0)))))))) +(define LibrariesC-45SystemC-45DirectoryC-45Tree-directoryExists (lambda (arg-0 arg-1 ext-0) (let ((act-24 ((SystemC-45Directory-openDir (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-24 (arg-811 eta-0))) ((arg-812 act-24) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-51 (arg-814 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) (LibrariesC-45SystemC-45DirectoryC-45Tree-toFilePath arg-0 arg-1)) ext-0))) (case (vector-ref act-24 0) ((1) (let ((e-2 (vector-ref act-24 1))) ((PreludeC-45Interfaces-C-62C-62 (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-25 (arg-811 eta-0))) ((arg-812 act-25) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-29 (arg-814 eta-0))) (act-29 eta-0)))))) (SystemC-45Directory-closeDir (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-25 (arg-811 eta-0))) ((arg-812 act-25) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-51 (arg-814 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) e-2) (lambda () (lambda (eta-0) 1))) ext-0))) (else 0))))) +(define LibrariesC-45SystemC-45DirectoryC-45Tree-depthFirst (lambda (arg-1 arg-2 arg-3 arg-4) (let ((u--next (PreludeC-45Types-u--foldr_Foldable_List (lambda (lamc-0) (lambda (clam-0) (lambda (clam-1) (let ((e-2 (car lamc-0))) (let ((e-3 (cdr lamc-0))) (let ((act-24 (e-3 clam-1))) ((LibrariesC-45SystemC-45DirectoryC-45Tree-depthFirst (lambda (root-2746) (arg-1 root-2746)) (LibrariesC-45UtilsC-45Path-C-47C-62 arg-2 (LibrariesC-45SystemC-45DirectoryC-45Tree-fileName e-2)) act-24 clam-0) clam-1))))))) arg-4 (let ((e-2 (cdr arg-3))) e-2)))) (PreludeC-45Types-u--foldr_Foldable_List (lambda (u--fn) (lambda (u--def) (((arg-1 arg-2) u--fn) (lambda () u--def)))) u--next (let ((e-1 (car arg-3))) e-1))))) +(define TTImpC-45InteractiveC-45MakeLemma-n--6869-2286-u--getArg (lambda (arg-0 arg-1 arg-2 arg-3) (if (null? arg-3) '() (let ((e-2 (car arg-3))) (let ((e-3 (cdr arg-3))) (if (null? e-3) '() (let ((e-7 (cdr e-3))) (if (null? e-7) '() (let ((e-10 (car e-7))) (let ((e-11 (cdr e-7))) (case (vector-ref e-10 0) ((1) (if (null? e-11) '() (box (vector 0 arg-2 e-2))))(else '())))))))))))) +(define TTImpC-45InteractiveC-45MakeLemma-used (lambda (ext-0) (let ((sc0 (AlgebraC-45Semiring-isErased (cons (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-2) (lambda (arg-3) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-4 arg-5))))) ext-0))) (cond ((equal? sc0 1) 0) (else 1))))) +(define TTImpC-45InteractiveC-45MakeLemma-mkType (lambda (arg-0 arg-1 arg-2) (if (null? arg-1) arg-2 (let ((e-2 (car arg-1))) (let ((e-3 (cdr arg-1))) (let ((e-7 (cdr e-2))) (let ((e-10 (car e-7))) (let ((e-11 (cdr e-7))) (let ((e-14 (car e-11))) (let ((e-15 (cdr e-11))) (let ((e-18 (car e-15))) (let ((e-19 (cdr e-15))) (vector 1 arg-0 e-18 e-14 e-10 e-19 (TTImpC-45InteractiveC-45MakeLemma-mkType arg-0 e-3 arg-2)))))))))))))) +(define TTImpC-45InteractiveC-45MakeLemma-mkApp (lambda (arg-0 arg-1 arg-2) (TTImpC-45TTImp-apply (vector 0 arg-0 arg-1) (DataC-45List-mapMaybe (lambda (eta-0) (TTImpC-45InteractiveC-45MakeLemma-n--6869-2286-u--getArg arg-2 arg-1 arg-0 eta-0)) arg-2)))) +(define TTImpC-45InteractiveC-45MakeLemma-makeLemma (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 ((TTImpC-45InteractiveC-45MakeLemma-getArgs '() arg-1 '() arg-4 arg-5) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((e-2 (car e-5))) (let ((e-3 (cdr e-5))) (vector 1 (cons (TTImpC-45InteractiveC-45MakeLemma-mkType arg-2 e-2 e-3) (TTImpC-45InteractiveC-45MakeLemma-mkApp arg-2 arg-3 e-2))))))))))) +(define TTImpC-45InteractiveC-45MakeLemma-hiddenName (lambda (arg-0) (case (vector-ref arg-0 0) ((2) (let ((e-0 (vector-ref arg-0 1))) (cond ((equal? e-0 "_") 1)(else 0))))(else 0)))) +(define TTImpC-45InteractiveC-45MakeLemma-getArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (cond ((equal? arg-3 0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (let ((act-25 (CoreC-45Normalise-normalise arg-1 arg-0 e-5 arg-2 arg-4 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) ((TTImpC-45Unelab-unelab arg-0 arg-1 arg-2 e-6) eta-0))))))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (cons '() e-6))))))))))))(else (let ((e-0 (- arg-3 1))) (lambda (clam-0) (case (vector-ref arg-4 0) ((3) (let ((e-3 (vector-ref arg-4 2))) (let ((e-4 (vector-ref arg-4 3))) (let ((e-5 (vector-ref arg-4 4))) (case (vector-ref e-4 0) ((2) (let ((e-8 (vector-ref e-4 2))) (let ((e-10 (vector-ref e-4 4))) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((act-25 (let ((act-25 (CoreC-45Normalise-normalise arg-1 arg-0 e-6 arg-2 e-10 clam-0))) (case (vector-ref act-25 0) ((0) (let ((e-11 (vector-ref act-25 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-25 1))) ((TTImpC-45Unelab-unelab arg-0 arg-1 arg-2 e-11) clam-0))))))) (case (vector-ref act-25 0) ((0) (let ((e-11 (vector-ref act-25 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref act-25 1))) (let ((act-26 (TTImpC-45Utils-uniqueName e-6 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (CoreC-45Name-nameRoot eta-0)) arg-0) (CoreC-45Name-nameRoot e-3) clam-0))) (case (vector-ref act-26 0) ((0) (let ((e-12 (vector-ref act-26 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref act-26 1))) (let ((u--xC-39 (vector 1 e-12))) (let ((act-27 ((TTImpC-45InteractiveC-45MakeLemma-getArgs (cons u--xC-39 arg-0) arg-1 (cons e-4 arg-2) e-0 (CoreC-45TT-renameTop u--xC-39 e-5)) clam-0))) (case (vector-ref act-27 0) ((0) (let ((e-13 (vector-ref act-27 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref act-27 1))) (let ((e-15 (car e-13))) (let ((e-14 (cdr e-13))) (let ((u--mn (let ((sc7 (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega e-8 (AlgebraC-45ZeroOneOmega-u--top_Top_ZeroOneOmega)))) (cond ((equal? sc7 1) (let ((sc8 (CoreC-45TT-shrinkTerm e-5 (vector 1 (vector 0 ))))) (if (null? sc8) (box u--xC-39) '()))) (else (box u--xC-39)))))) (let ((u--pC-39 (let ((sc7 (let ((sc8 (TTImpC-45InteractiveC-45MakeLemma-used e-8))) (cond ((equal? sc8 1) (let ((sc9 (TTImpC-45InteractiveC-45MakeLemma-bindableArg 0 e-5))) (cond ((equal? sc9 1) 0) (else (let ((sc10 (TTImpC-45InteractiveC-45MakeLemma-hiddenName e-3))) (cond ((equal? sc10 1) 0) (else 1))))))) (else 0))))) (cond ((equal? sc7 1) (vector 1 )) (else (vector 0 )))))) (vector 1 (cons (cons (cons e-3 (cons u--mn (cons u--pC-39 (cons e-8 e-11)))) e-15) e-14))))))))))))))))))))))))))(else (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((act-25 (let ((act-25 (CoreC-45Normalise-normalise arg-1 arg-0 e-6 arg-2 arg-4 clam-0))) (case (vector-ref act-25 0) ((0) (let ((e-7 (vector-ref act-25 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-25 1))) ((TTImpC-45Unelab-unelab arg-0 arg-1 arg-2 e-7) clam-0))))))) (case (vector-ref act-25 0) ((0) (let ((e-7 (vector-ref act-25 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref act-25 1))) (vector 1 (cons '() e-7))))))))))))))))(else (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (let ((act-25 (CoreC-45Normalise-normalise arg-1 arg-0 e-5 arg-2 arg-4 clam-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) ((TTImpC-45Unelab-unelab arg-0 arg-1 arg-2 e-6) clam-0))))))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (cons '() e-6)))))))))))))))))) +(define TTImpC-45InteractiveC-45MakeLemma-bindableArg (lambda (arg-1 arg-2) (case (vector-ref arg-2 0) ((3) (let ((e-3 (vector-ref arg-2 3))) (let ((e-4 (vector-ref arg-2 4))) (case (vector-ref e-3 0) ((2) (let ((e-9 (vector-ref e-3 4))) (let ((sc2 (TTImpC-45InteractiveC-45MakeLemma-bindable arg-1 e-9))) (cond ((equal? sc2 1) 1) (else (TTImpC-45InteractiveC-45MakeLemma-bindableArg (PreludeC-45Types-u--C-43_Num_Nat (PreludeC-45Types-u--fromInteger_Num_Nat 1) arg-1) e-4))))))(else 0)))))(else 0)))) +(define TTImpC-45InteractiveC-45MakeLemma-bindable (lambda (arg-1 arg-2) (let ((sc0 (CoreC-45TT-getFnArgs arg-2))) (if (null? sc0) 0 (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (case (vector-ref e-2 0) ((1) (let ((e-6 (vector-ref e-2 2))) (case (vector-ref e-6 0) ((3) (PreludeC-45Interfaces-any (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (lambda (eta-0) (TTImpC-45InteractiveC-45MakeLemma-bindable arg-1 eta-0)) e-3)) ((2) (PreludeC-45Interfaces-any (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (lambda (eta-0) (TTImpC-45InteractiveC-45MakeLemma-bindable arg-1 eta-0)) e-3))(else 0)))) ((6) (let ((e-11 (vector-ref e-2 3))) (PreludeC-45Interfaces-any (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (lambda (eta-0) (TTImpC-45InteractiveC-45MakeLemma-bindable arg-1 eta-0)) (cons e-11 e-3)))) ((7) (let ((e-16 (vector-ref e-2 4))) (PreludeC-45Interfaces-any (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (lambda (eta-0) (TTImpC-45InteractiveC-45MakeLemma-bindable arg-1 eta-0)) (cons e-16 e-3)))) ((8) (let ((e-20 (vector-ref e-2 3))) (PreludeC-45Interfaces-any (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (lambda (eta-0) (TTImpC-45InteractiveC-45MakeLemma-bindable arg-1 eta-0)) (cons e-20 e-3)))) ((0) (let ((e-25 (vector-ref e-2 3))) (if (null? e-3) (PreludeC-45Types-u--C-61C-61_Eq_Nat arg-1 e-25) 0)))(else 0)))))))) +(define IdrisC-45REPLC-45FuzzySearch-n--14439-818-u--toFullNamesC-39 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (case (vector-ref arg-6 0) ((0) (let ((e-6 (vector-ref arg-6 7))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-7 (vector-ref eta-0 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref eta-0 1))) (vector 1 (vector 0 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-7)))))) (lambda (eta-0) (CoreC-45Context-toFullNames arg-5 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-1) (CoreC-45Context-u--full_HasNames_Name arg-3841 arg-3842 eta-1)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-1) (CoreC-45Context-u--resolved_HasNames_Name arg-3843 arg-3844 eta-1))))) e-6 eta-0)) ext-0)))(else (vector 1 arg-6))))) +(define IdrisC-45REPLC-45FuzzySearch-n--14439-812-u--parseNameOrConst (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (case (vector-ref arg-6 0) ((0) (let ((e-1 (vector-ref arg-6 2))) (box (vector 0 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-1)))) ((15) (let ((e-3 (vector-ref arg-6 2))) (case (vector-ref e-3 0) ((14) (box (vector 1 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5))) ((19) (box (vector 2 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5))) ((20) (box (vector 3 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5))) ((21) (box (vector 4 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5))) ((22) (box (vector 5 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5))) ((23) (box (vector 6 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5))) ((24) (box (vector 7 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5))) ((25) (box (vector 8 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5))) ((26) (box (vector 9 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5))) ((27) (box (vector 10 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5)))(else '())))) ((22) (box (vector 11 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5)))(else '())))) +(define IdrisC-45REPLC-45FuzzySearch-n--14439-813-u--parseExprC-39 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (case (vector-ref arg-6 0) ((7) (let ((e-1 (vector-ref arg-6 2))) (let ((e-2 (vector-ref arg-6 3))) (PreludeC-45Types-u--C-60C-42C-62_Applicative_Maybe (PreludeC-45Types-u--C-60C-42C-62_Applicative_Maybe (PreludeC-45Types-u--pure_Applicative_Maybe (lambda (eta-0) (lambda (eta-1) (cons eta-0 eta-1)))) (IdrisC-45REPLC-45FuzzySearch-n--14439-812-u--parseNameOrConst arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2)) (IdrisC-45REPLC-45FuzzySearch-n--14439-813-u--parseExprC-39 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-1)))))(else (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (PreludeC-45Types-u--map_Functor_Maybe eta-2 eta-3))))) (lambda (arg-7) (cons arg-7 '())) (IdrisC-45REPLC-45FuzzySearch-n--14439-812-u--parseNameOrConst arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6)))))) +(define IdrisC-45REPLC-45FuzzySearch-n--14439-814-u--parseExpr (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (case (vector-ref arg-6 0) ((1) (let ((e-4 (vector-ref arg-6 5))) (let ((e-5 (vector-ref arg-6 6))) (case (vector-ref e-5 0) ((25) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (IdrisC-45REPLC-45FuzzySearch-n--14439-813-u--parseExprC-39 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-4) (lambda (u--aC-39) (PreludeC-45Types-u--pure_Applicative_Maybe (cons u--aC-39 '())))))(else (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (IdrisC-45REPLC-45FuzzySearch-n--14439-813-u--parseExprC-39 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-4) (lambda (u--aC-39) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (IdrisC-45REPLC-45FuzzySearch-n--14439-813-u--parseExprC-39 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-5) (lambda (u--bC-39) (PreludeC-45Types-u--pure_Applicative_Maybe (cons u--aC-39 u--bC-39)))))))))))(else (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (IdrisC-45REPLC-45FuzzySearch-n--14439-813-u--parseExprC-39 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (lambda (u--bC-39) (PreludeC-45Types-u--pure_Applicative_Maybe (cons '() u--bC-39)))))))) +(define IdrisC-45REPLC-45FuzzySearch-n--14439-816-u--isApproximationOfC-39 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (case (vector-ref arg-6 0) ((0) (let ((e-6 (vector-ref arg-6 7))) (case (vector-ref arg-7 0) ((0) (let ((e-13 (vector-ref arg-7 7))) (IdrisC-45REPLC-45FuzzySearch-n--14439-815-u--isApproximationOf arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-6 e-13)))(else (IdrisC-45REPLC-45FuzzySearch-n--14439-811-u--eqConst arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7)))))(else (IdrisC-45REPLC-45FuzzySearch-n--14439-811-u--eqConst arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7))))) +(define IdrisC-45REPLC-45FuzzySearch-n--14439-815-u--isApproximationOf (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (case (vector-ref arg-6 0) ((0) (let ((e-0 (vector-ref arg-6 1))) (let ((e-1 (vector-ref arg-6 2))) (case (vector-ref arg-7 0) ((0) (let ((e-3 (vector-ref arg-7 1))) (let ((e-4 (vector-ref arg-7 2))) (let ((sc2 (CoreC-45Name-u--C-61C-61_Eq_Name e-1 e-4))) (cond ((equal? sc2 1) (CoreC-45NameC-45Namespace-isApproximationOf e-0 e-3)) (else 0))))))(else 0))))) ((1) (let ((e-2 (vector-ref arg-6 1))) (case (vector-ref arg-7 0) ((0) (let ((e-6 (vector-ref arg-7 2))) (case (vector-ref e-6 0) ((1) (let ((e-8 (vector-ref e-6 1))) (PreludeC-45EqOrd-u--C-61C-61_Eq_String e-2 e-8)))(else 0)))) ((1) (let ((e-7 (vector-ref arg-7 1))) (PreludeC-45EqOrd-u--C-61C-61_Eq_String e-2 e-7)))(else 0))))(else 0)))) +(define IdrisC-45REPLC-45FuzzySearch-n--14439-819-u--fuzzyMatch (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-8 arg-9) (case (vector-ref arg-9 0) ((3) (let ((e-7 (vector-ref arg-9 3))) (let ((e-8 (vector-ref arg-9 4))) (let ((u--refsB (IdrisC-45REPLC-45FuzzySearch-n--14439-817-u--doFind arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 '() (CoreC-45TT-binderType e-7)))) (lambda (eta-0) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-1) (lambda (eta-2) (IdrisC-45REPLC-45FuzzySearch-n--14439-818-u--toFullNamesC-39 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 eta-1 eta-2))) u--refsB '() eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-24 1))) (let ((u--negC-39 (LibrariesC-45DataC-45ListC-45Extra-diffBy (lambda (eta-1) (lambda (eta-2) (IdrisC-45REPLC-45FuzzySearch-n--14439-816-u--isApproximationOfC-39 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 eta-1 eta-2))) arg-7 e-9))) ((IdrisC-45REPLC-45FuzzySearch-n--14439-819-u--fuzzyMatch arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 u--negC-39 arg-8 e-8) eta-0)))))))))))(else (if (null? arg-7) (let ((u--refsB (IdrisC-45REPLC-45FuzzySearch-n--14439-817-u--doFind arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 '() arg-9))) (lambda (eta-0) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-1) (lambda (eta-2) (IdrisC-45REPLC-45FuzzySearch-n--14439-818-u--toFullNamesC-39 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 eta-1 eta-2))) u--refsB '() eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (vector 1 (DataC-45List-isNil (LibrariesC-45DataC-45ListC-45Extra-diffBy (lambda (eta-1) (lambda (eta-2) (IdrisC-45REPLC-45FuzzySearch-n--14439-816-u--isApproximationOfC-39 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 eta-1 eta-2))) arg-8 e-5))))))))) (lambda (eta-0) (vector 1 0))))))) +(define IdrisC-45REPLC-45FuzzySearch-n--14439-811-u--eqConst (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (case (vector-ref arg-6 0) ((1) (case (vector-ref arg-7 0) ((1) 1)(else 0))) ((2) (case (vector-ref arg-7 0) ((2) 1)(else 0))) ((3) (case (vector-ref arg-7 0) ((3) 1)(else 0))) ((4) (case (vector-ref arg-7 0) ((4) 1)(else 0))) ((5) (case (vector-ref arg-7 0) ((5) 1)(else 0))) ((6) (case (vector-ref arg-7 0) ((6) 1)(else 0))) ((7) (case (vector-ref arg-7 0) ((7) 1)(else 0))) ((8) (case (vector-ref arg-7 0) ((8) 1)(else 0))) ((9) (case (vector-ref arg-7 0) ((9) 1)(else 0))) ((10) (case (vector-ref arg-7 0) ((10) 1)(else 0))) ((11) (case (vector-ref arg-7 0) ((11) 1)(else 0)))(else 0)))) +(define IdrisC-45REPLC-45FuzzySearch-n--14439-817-u--doFind (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-8) (case (vector-ref arg-8 0) ((0) arg-7) ((1) (let ((e-9 (vector-ref arg-8 3))) (cons (vector 0 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-9) arg-7))) ((2) (let ((e-14 (vector-ref arg-8 4))) (PreludeC-45Types-u--foldl_Foldable_List (lambda (eta-0) (lambda (eta-1) (IdrisC-45REPLC-45FuzzySearch-n--14439-817-u--doFind arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 eta-0 eta-1))) arg-7 e-14))) ((3) (let ((e-18 (vector-ref arg-8 3))) (let ((e-19 (vector-ref arg-8 4))) (case (vector-ref e-18 0) ((1) (let ((e-53 (vector-ref e-18 3))) (let ((e-54 (vector-ref e-18 4))) (IdrisC-45REPLC-45FuzzySearch-n--14439-817-u--doFind arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (IdrisC-45REPLC-45FuzzySearch-n--14439-817-u--doFind arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (IdrisC-45REPLC-45FuzzySearch-n--14439-817-u--doFind arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 e-53) e-54) e-19))))(else (IdrisC-45REPLC-45FuzzySearch-n--14439-817-u--doFind arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (IdrisC-45REPLC-45FuzzySearch-n--14439-817-u--doFind arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 (CoreC-45TT-binderType e-18)) e-19)))))) ((4) (let ((e-22 (vector-ref arg-8 2))) (let ((e-23 (vector-ref arg-8 3))) (IdrisC-45REPLC-45FuzzySearch-n--14439-817-u--doFind arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (IdrisC-45REPLC-45FuzzySearch-n--14439-817-u--doFind arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 e-22) e-23)))) ((5) (let ((e-28 (vector-ref arg-8 4))) (IdrisC-45REPLC-45FuzzySearch-n--14439-817-u--doFind arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 e-28))) ((6) (let ((e-32 (vector-ref arg-8 3))) (IdrisC-45REPLC-45FuzzySearch-n--14439-817-u--doFind arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 e-32))) ((7) (let ((e-36 (vector-ref arg-8 3))) (let ((e-37 (vector-ref arg-8 4))) (IdrisC-45REPLC-45FuzzySearch-n--14439-817-u--doFind arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (IdrisC-45REPLC-45FuzzySearch-n--14439-817-u--doFind arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 e-36) e-37)))) ((8) (let ((e-41 (vector-ref arg-8 3))) (IdrisC-45REPLC-45FuzzySearch-n--14439-817-u--doFind arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 e-41))) ((9) (let ((e-43 (vector-ref arg-8 1))) (let ((e-44 (vector-ref arg-8 2))) (PreludeC-45TypesC-45List-C-43C-43 (DataC-45Maybe-fromMaybe (lambda () '()) (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (PreludeC-45Types-u--map_Functor_Maybe eta-2 eta-3))))) (lambda (arg-6) (cons arg-6 '())) (IdrisC-45REPLC-45FuzzySearch-n--14439-812-u--parseNameOrConst arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 15 e-43 e-44)))) arg-7)))) ((10) arg-7) (else (cons (vector 11 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) arg-7))))) +(define IdrisC-45REPLC-45FuzzySearch-fuzzySearch (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((sc0 (IdrisC-45REPLC-45FuzzySearch-n--14439-814-u--parseExpr arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 arg-5))) (if (null? sc0) (vector 1 (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "Bad expression, expected") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-code (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "B")) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "or") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-code (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "_ -> B")) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "or") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-code (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "A -> B")) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String ", where")) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-code (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "A")) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "and") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-code (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "B")) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "are spines of global names")))))))))))) (let ((e-1 (unbox sc0))) (if (null? e-1) (vector 1 (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "Bad expression, expected") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-code (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "B")) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "or") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-code (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "_ -> B")) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "or") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45Pretty-code (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "A -> B")) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String ", where")) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-code (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "A")) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "and") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45Pretty-code (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "B")) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "are spines of global names")))))))))))) (let ((e-4 (car e-1))) (let ((e-5 (cdr e-1))) (let ((act-24 (CoreC-45Context-branch arg-0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-24 1))) (let ((u--curr (let ((e-2 (vector-ref e-6 2))) e-2))) (let ((u--ctxt (let ((e-0 (vector-ref e-6 0))) e-0))) (let ((act-25 (let ((act-25 (CoreC-45Context-allNames u--ctxt ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-25 1))) (let ((act-26 (CoreC-45Core-traverseC-39 (lambda (eta-0) (PreludeC-45Basics-flip (lambda (eta-1) (lambda (eta-2) (CoreC-45Context-lookupCtxtExact eta-1 eta-2))) u--ctxt eta-0)) e-7 '() ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-26 1))) (let ((u--defs (PreludeC-45Basics-flip (lambda (eta-0) (lambda (eta-1) (DataC-45List-mapMaybe eta-0 eta-1))) e-8 (lambda (u--md) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe u--md (lambda (u--d) (PreludeC-45Interfaces-C-62C-62 (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (PreludeC-45Types-u--map_Functor_Maybe u--func arg-133))))) (lambda (u--a) (lambda (arg-527) (PreludeC-45Types-u--pure_Applicative_Maybe arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (PreludeC-45Types-u--C-60C-42C-62_Applicative_Maybe arg-528 arg-530)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe arg-811 arg-812))))) (lambda (u--a) (lambda (arg-814) (PreludeC-45Types-u--join_Monad_Maybe arg-814)))) (PreludeC-45Interfaces-guard (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (PreludeC-45Types-u--map_Functor_Maybe u--func arg-133))))) (lambda (u--a) (lambda (arg-527) (PreludeC-45Types-u--pure_Applicative_Maybe arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (PreludeC-45Types-u--C-60C-42C-62_Applicative_Maybe arg-528 arg-530)))))) (lambda (u--a) (PreludeC-45Types-u--empty_Alternative_Maybe)) (lambda (u--a) (lambda (arg-763) (lambda (arg-764) (PreludeC-45Types-u--C-60C-124C-62_Alternative_Maybe arg-763 arg-764))))) (CoreC-45Context-visibleIn u--curr (let ((e-26 (vector-ref u--d 1))) e-26) (let ((e-9 (vector-ref u--d 9))) e-9))) (lambda () (PreludeC-45Interfaces-C-62C-62 (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (PreludeC-45Types-u--map_Functor_Maybe u--func arg-133))))) (lambda (u--a) (lambda (arg-527) (PreludeC-45Types-u--pure_Applicative_Maybe arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (PreludeC-45Types-u--C-60C-42C-62_Applicative_Maybe arg-528 arg-530)))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe arg-811 arg-812))))) (lambda (u--a) (lambda (arg-814) (PreludeC-45Types-u--join_Monad_Maybe arg-814)))) (PreludeC-45Interfaces-guard (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (PreludeC-45Types-u--map_Functor_Maybe u--func arg-133))))) (lambda (u--a) (lambda (arg-527) (PreludeC-45Types-u--pure_Applicative_Maybe arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (PreludeC-45Types-u--C-60C-42C-62_Applicative_Maybe arg-528 arg-530)))))) (lambda (u--a) (PreludeC-45Types-u--empty_Alternative_Maybe)) (lambda (u--a) (lambda (arg-763) (lambda (arg-764) (PreludeC-45Types-u--C-60C-124C-62_Alternative_Maybe arg-763 arg-764))))) (DataC-45Maybe-isJust (CoreC-45Name-userNameRoot (let ((e-26 (vector-ref u--d 1))) e-26)))) (lambda () (PreludeC-45Types-u--pure_Applicative_Maybe u--d))))))))))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (CoreC-45Context-u--resolved_HasNames_GlobalDef u--ctxt eta-0 eta-1))) u--defs '() ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-27 1))) (CoreC-45Core-filterM (lambda (u--def) (IdrisC-45REPLC-45FuzzySearch-n--14439-819-u--fuzzyMatch arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 e-4 e-5 (let ((e-2 (vector-ref u--def 2))) e-2))) e-9 ext-0)))))))))))))))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-25 1))) (let ((act-26 (let ((act-26 (set-box! arg-0 e-6))) (vector 1 act-26)))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (IdrisC-45REPLC-45Common-docsOrSignature arg-4 arg-0 arg-2 (vector 2 ) eta-0 eta-1))) (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (PreludeC-45Types-u--map_Functor_List eta-2 eta-3))))) (lambda (eta-0) (let ((e-26 (vector-ref eta-0 1))) e-26)) e-7) '() ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-27 1))) (vector 1 (vector 5 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (PreludeC-45Types-u--map_Functor_List eta-2 eta-3))))) (lambda (eta-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String eta-0)) (DataC-45List-intersperse "\u000a" (PreludeC-45Types-u--join_Monad_List e-9))))))))))))))))))))))))))))))) +(define IdrisC-45REPLC-45Common-case--caseC-32blockC-32inC-32docsOrSignature-1462 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 ext-0) (if (null? arg-11) (IdrisC-45REPLC-45Common-n--11219-1317-u--typeSummary arg-0 arg-1 arg-2 arg-3 arg-4 arg-6 ext-0) (let ((act-24 (IdrisC-45DocC-45String-getDocsForName arg-4 arg-3 arg-2 arg-1 arg-0 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (IdrisC-45PrettyC-45Render-render arg-4 (lambda (eta-0) (IdrisC-45DocC-45String-styleAnn eta-0)) e-5 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-3 (vector-ref act-25 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (cons e-6 '()))))))))))))) +(define IdrisC-45REPLC-45Common-case--caseC-32blockC-32inC-32emitProblem-626 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (if (null? arg-13) (lambda (eta-0) (IdrisC-45REPLC-45Common-iputStrLn arg-6 arg-5 arg-12 eta-0)) (let ((e-2 (unbox arg-13))) (lambda (clam-0) (let ((e-5 (car e-2))) (let ((e-6 (cdr e-2))) (let ((e-9 (car e-6))) (let ((e-10 (cdr e-6))) (let ((act-24 (case (vector-ref e-5 0) ((0) (let ((e-0 (vector-ref e-5 1))) (let ((u--fc (vector 0 (vector 0 e-0) e-9 e-10))) (CoreC-45Core-u--catch_Catchable_Core_Error (lambda (eta-0) (CoreC-45Directory-nsToSource arg-6 u--fc e-0 eta-0)) (lambda (eta-0) (lambda (eta-1) (vector 1 "(File-Not-Found)"))) clam-0)))) ((1) (let ((e-1 (vector-ref e-5 1))) (vector 1 e-1))) (else (let ((e-3 (vector-ref e-5 1))) (cond (else (vector 1 "(Interactive)")))))))) (case (vector-ref act-24 0) ((0) (let ((e-3 (vector-ref act-24 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref act-24 1))) (let ((act-25 (IdrisC-45PrettyC-45Render-renderWithoutColor arg-5 arg-12 clam-0))) (case (vector-ref act-25 0) ((0) (let ((e-3 (vector-ref act-25 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref act-25 1))) ((IdrisC-45IDEModeC-45Commands-send arg-6 (lambda (eta-0) (IdrisC-45IDEModeC-45Commands-u--toSExp_SExpable_SExp eta-0)) arg-10 (vector 0 (cons (vector 4 "warning") (cons (vector 0 (cons (IdrisC-45IDEModeC-45Commands-u--toSExp_SExpable_String e-7) (cons (IdrisC-45IDEModeC-45Commands-u--toSExp_SExpable_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (eta-0) (IdrisC-45IDEModeC-45Commands-u--toSExp_SExpable_Int eta-0)) (lambda (eta-0) (IdrisC-45IDEModeC-45Commands-u--toSExp_SExpable_Int eta-0))) (IdrisC-45REPLC-45Common-n--10374-519-u--addOne arg-9 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-9)) (cons (IdrisC-45IDEModeC-45Commands-u--toSExp_SExpable_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (eta-0) (IdrisC-45IDEModeC-45Commands-u--toSExp_SExpable_Int eta-0)) (lambda (eta-0) (IdrisC-45IDEModeC-45Commands-u--toSExp_SExpable_Int eta-0))) (IdrisC-45REPLC-45Common-n--10374-519-u--addOne arg-9 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10)) (cons (IdrisC-45IDEModeC-45Commands-u--toSExp_SExpable_String e-8) (cons (vector 0 '()) '())))))) (cons (IdrisC-45IDEModeC-45Commands-u--toSExp_SExpable_Integer arg-11) '()))))) clam-0)))))))))))))))))) +(define IdrisC-45REPLC-45Common-n--11219-1317-u--typeSummary (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 ((CoreC-45Context-lookupCtxtExact arg-0 (let ((e-0 (vector-ref arg-5 0))) e-0)) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (if (null? e-5) (vector 1 '()) (let ((e-1 (unbox e-5))) (let ((act-25 (CoreC-45Normalise-normaliseHoles arg-3 '() arg-5 '() (let ((e-2 (vector-ref e-1 2))) e-2) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (IdrisC-45Resugar-resugar '() arg-3 arg-2 '() e-6 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (vector 1 (cons (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name arg-0) (PreludeC-45TypesC-45String-C-43C-43 " : " (IdrisC-45Syntax-u--show_Show_PTerm e-7))) '())))))))))))))))))) +(define IdrisC-45REPLC-45Common-n--10374-519-u--addOne (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((e-2 (car arg-8))) (let ((e-3 (cdr arg-8))) (cons (bs+ e-2 1 63) (bs+ e-3 1 63)))))) +(define IdrisC-45REPLC-45Common-updateErrorLine (lambda (arg-0 arg-1 ext-0) (if (null? arg-1) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (set-box! arg-0 (let ((e-0 (vector-ref e-5 0))) (let ((e-1 (vector-ref e-5 1))) (let ((e-2 (vector-ref e-5 2))) (let ((e-3 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-16 (vector-ref e-5 5))) (let ((e-7 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (let ((e-10 (vector-ref e-5 10))) (let ((e-11 (vector-ref e-5 11))) (let ((e-12 (vector-ref e-5 12))) (let ((e-13 (vector-ref e-5 13))) (let ((e-14 (vector-ref e-5 14))) (let ((e-15 (vector-ref e-5 15))) (vector e-0 e-1 e-2 e-3 e-4 e-16 '() e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15))))))))))))))))))) (vector 1 act-25)))))) (let ((e-2 (car arg-1))) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-4 (vector-ref act-24 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (set-box! arg-0 (let ((e-0 (vector-ref e-5 0))) (let ((e-1 (vector-ref e-5 1))) (let ((e-18 (vector-ref e-5 2))) (let ((e-17 (vector-ref e-5 3))) (let ((e-4 (vector-ref e-5 4))) (let ((e-16 (vector-ref e-5 5))) (let ((e-7 (vector-ref e-5 7))) (let ((e-8 (vector-ref e-5 8))) (let ((e-9 (vector-ref e-5 9))) (let ((e-10 (vector-ref e-5 10))) (let ((e-11 (vector-ref e-5 11))) (let ((e-12 (vector-ref e-5 12))) (let ((e-13 (vector-ref e-5 13))) (let ((e-14 (vector-ref e-5 14))) (let ((e-15 (vector-ref e-5 15))) (vector e-0 e-1 e-18 e-17 e-4 e-16 (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (CoreC-45Core-getErrorLoc e-2) (lambda (eta-0) (IdrisC-45REPLC-45Common-getFCLine eta-0))) e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15))))))))))))))))))) (vector 1 act-25)))))))))) +(define IdrisC-45REPLC-45Common-resetContext (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (let ((act-25 (CoreC-45Context-initDefs ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (set-box! arg-0 (let ((e-0 (vector-ref e-6 0))) (let ((e-1 (vector-ref e-6 1))) (let ((e-2 (vector-ref e-6 2))) (let ((e-3 (vector-ref e-6 3))) (let ((e-30 (vector-ref e-6 5))) (let ((e-29 (vector-ref e-6 6))) (let ((e-7 (vector-ref e-6 7))) (let ((e-8 (vector-ref e-6 8))) (let ((e-9 (vector-ref e-6 9))) (let ((e-10 (vector-ref e-6 10))) (let ((e-11 (vector-ref e-6 11))) (let ((e-12 (vector-ref e-6 12))) (let ((e-13 (vector-ref e-6 13))) (let ((e-14 (vector-ref e-6 14))) (let ((e-15 (vector-ref e-6 15))) (let ((e-16 (vector-ref e-6 16))) (let ((e-17 (vector-ref e-6 17))) (let ((e-18 (vector-ref e-6 18))) (let ((e-19 (vector-ref e-6 19))) (let ((e-20 (vector-ref e-6 20))) (let ((e-21 (vector-ref e-6 21))) (let ((e-22 (vector-ref e-6 22))) (let ((e-23 (vector-ref e-6 23))) (let ((e-24 (vector-ref e-6 24))) (let ((e-25 (vector-ref e-6 25))) (let ((e-26 (vector-ref e-6 26))) (let ((e-27 (vector-ref e-6 27))) (let ((e-28 (vector-ref e-6 28))) (vector e-0 e-1 e-2 e-3 (CoreC-45Options-clearNames (let ((e-55 (vector-ref e-5 4))) e-55)) e-30 e-29 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27 e-28)))))))))))))))))))))))))))))))) (vector 1 act-26)))))))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((act-26 (CoreC-45InitPrimitives-addPrimitives arg-0 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((act-27 (let ((act-27 (set-box! arg-1 (CoreC-45UnifyState-initUState)))) (vector 1 act-27)))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((act-28 (let ((act-28 (set-box! arg-2 (IdrisC-45Syntax-initSyntax)))) (vector 1 act-28)))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((act-29 (set-box! arg-3 (CoreC-45Metadata-initMetadata arg-4)))) (vector 1 act-29)))))))))))))))))))) +(define IdrisC-45REPLC-45Common-printWithStatus (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((e-7 (vector-ref e-5 7))) (case (vector-ref e-7 0) ((1) (let ((act-25 (IdrisC-45Pretty-render arg-0 arg-2 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-18 (vector-ref act-25 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref act-25 1))) (let ((act-26 ((PreludeC-45IO-putStrLn (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-26 (arg-811 eta-0))) ((arg-812 act-26) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-51 (arg-814 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) e-18) ext-0))) (vector 1 act-26)))))))(else (vector 1 0)))))))))) (define IdrisC-45REPLC-45Common-printResult (lambda (arg-0 arg-1 ext-0) (IdrisC-45REPLC-45Common-printWithStatus arg-0 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "ok") arg-1 ext-0))) (define IdrisC-45REPLC-45Common-printError (lambda (arg-0 arg-1 ext-0) (IdrisC-45REPLC-45Common-printWithStatus arg-0 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String "error") arg-1 ext-0))) -(define IdrisC-45REPLC-45Common-iputStrLn (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (IdrisC-45REPLC-45Common-case--iputStrLn-369 arg-1 arg-0 e-5 (let ((sc1 e-5)) (let ((e-7 (vector-ref sc1 8))) e-7)) ext-0)))))))) -(define IdrisC-45REPLC-45Common-getFCLine (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 e-1)) (let ((e-5 (car sc1))) (vector 1 e-5))))) (else (vector 0 )))))) -(define IdrisC-45REPLC-45Common-equivTypes (lambda (arg-0 arg-1 arg-2 ext-0) (IdrisC-45REPLC-45Common-case--equivTypes-1405 arg-2 arg-1 arg-0 (CoreC-45TT-isErased arg-1) ext-0))) -(define IdrisC-45REPLC-45Common-emitWarnings (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (CoreC-45Core-traverse_ (lambda (eta-0) (lambda (eta-1) (IdrisC-45REPLC-45Common-emitWarning arg-0 arg-1 arg-2 eta-0 eta-1))) (DataC-45List-reverse (let ((sc1 e-5)) (let ((e-27 (vector-ref sc1 28))) e-27))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 (set-box! arg-0 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (let ((e-3 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-29 (vector-ref sc2 6))) (let ((e-28 (vector-ref sc2 7))) (let ((e-7 (vector-ref sc2 8))) (let ((e-8 (vector-ref sc2 9))) (let ((e-9 (vector-ref sc2 10))) (let ((e-10 (vector-ref sc2 11))) (let ((e-11 (vector-ref sc2 12))) (let ((e-12 (vector-ref sc2 13))) (let ((e-13 (vector-ref sc2 14))) (let ((e-14 (vector-ref sc2 15))) (let ((e-15 (vector-ref sc2 16))) (let ((e-16 (vector-ref sc2 17))) (let ((e-17 (vector-ref sc2 18))) (let ((e-18 (vector-ref sc2 19))) (let ((e-19 (vector-ref sc2 20))) (let ((e-20 (vector-ref sc2 21))) (let ((e-21 (vector-ref sc2 22))) (let ((e-22 (vector-ref sc2 23))) (let ((e-23 (vector-ref sc2 24))) (let ((e-24 (vector-ref sc2 25))) (let ((e-25 (vector-ref sc2 26))) (let ((e-26 (vector-ref sc2 27))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-29 e-28 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 '())))))))))))))))))))))))))))))))) (vector 1 act-26))))))))))))) +(define IdrisC-45REPLC-45Common-iputStrLn (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((e-7 (vector-ref e-5 7))) (case (vector-ref e-7 0) ((1) (let ((e-17 (vector-ref e-7 1))) (cond ((equal? e-17 0) (let ((act-25 (IdrisC-45Pretty-render arg-1 arg-2 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-18 (vector-ref act-25 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref act-25 1))) (let ((act-26 ((PreludeC-45IO-putStrLn (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-26 (arg-811 eta-0))) ((arg-812 act-26) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-51 (arg-814 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) e-18) ext-0))) (vector 1 act-26)))))))(else (vector 1 0))))) (else (let ((e-19 (vector-ref e-7 1))) (let ((e-17 (vector-ref e-7 3))) (let ((act-25 (IdrisC-45PrettyC-45Render-renderWithoutColor arg-1 arg-2 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-20 (vector-ref act-25 1))) (vector 0 e-20))) (else (let ((e-20 (vector-ref act-25 1))) ((IdrisC-45IDEModeC-45Commands-send arg-0 (lambda (eta-0) (IdrisC-45IDEModeC-45Commands-u--toSExp_SExpable_SExp eta-0)) e-17 (vector 0 (cons (vector 4 "write-string") (cons (IdrisC-45IDEModeC-45Commands-u--toSExp_SExpable_String e-20) (cons (IdrisC-45IDEModeC-45Commands-u--toSExp_SExpable_Integer e-19) '()))))) ext-0)))))))))))))))) +(define IdrisC-45REPLC-45Common-getFCLine (lambda (ext-0) (PreludeC-45Types-u--map_Functor_Maybe (lambda (eta-0) (CoreC-45FC-startLine eta-0)) (CoreC-45FC-isNonEmptyFC ext-0)))) +(define IdrisC-45REPLC-45Common-equivTypes (lambda (arg-0 arg-1 arg-2 ext-0) (let ((sc0 (CoreC-45TT-isErased arg-1))) (cond ((equal? sc0 0) (let ((act-24 (CoreC-45ContextC-45Log-logTerm '() arg-0 "typesearch.equiv" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Candidate: ") arg-1 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((act-25 (let ((act-25 (unbox arg-0))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (let ((act-26 (CoreC-45Normalise-getArity arg-0 '() e-6 '() arg-1 ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (CoreC-45Normalise-getArity arg-0 '() e-6 '() arg-2 ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (vector 1 (PreludeC-45Types-u--C-61C-61_Eq_Nat e-7 e-8)))))))))))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (cond ((equal? e-7 1) (let ((act-27 (CoreC-45Core-newRef (vector "Core.UnifyState.UST" ) (CoreC-45UnifyState-initUState) ext-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (let ((act-28 (CoreC-45Core-u--catch_Catchable_Core_Error (lambda (eta-0) (let ((act-28 ((((CoreC-45Unify-unify (cons (lambda (u--vars) (lambda (arg-6180) (lambda (arg-6183) (lambda (arg-6186) (lambda (arg-6187) (lambda (arg-6188) (lambda (arg-6190) (lambda (arg-6193) (lambda (eta-1) (CoreC-45Unify-u--unifyD_Unify_Term u--vars arg-6180 arg-6183 arg-6186 arg-6187 arg-6188 arg-6190 arg-6193 eta-1)))))))))) (lambda (u--vars) (lambda (arg-6195) (lambda (arg-6198) (lambda (arg-6201) (lambda (arg-6202) (lambda (arg-6203) (lambda (arg-6205) (lambda (arg-6206) (lambda (eta-1) (CoreC-45Unify-u--unifyWithLazyD_Unify_Term u--vars arg-6195 arg-6198 arg-6201 arg-6202 arg-6203 arg-6205 arg-6206 eta-1))))))))))) '() arg-0 e-8 (CoreC-45Unify-inTerm) (vector 2 ) '()) arg-1) arg-2) eta-0))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-28 1))) (let ((e-0 (vector-ref e-9 0))) (let ((e-2 (vector-ref e-9 2))) (let ((e-3 (vector-ref e-9 3))) (if (null? e-0) (if (null? e-2) (case (vector-ref e-3 0) ((0) (vector 1 1))(else (vector 1 0))) (vector 1 0)) (vector 1 0)))))))))) (lambda (u--err) (lambda (eta-0) (vector 1 0))) ext-0))) (case (vector-ref act-28 0) ((0) (let ((e-2 (vector-ref act-28 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref act-28 1))) (let ((act-29 (cond ((equal? e-9 1) (CoreC-45ContextC-45Log-logTerm '() arg-0 "typesearch.equiv" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))))))))))))) (lambda () "Accepted: ") arg-1 ext-0)) (else (vector 1 0))))) (case (vector-ref act-29 0) ((0) (let ((e-2 (vector-ref act-29 1))) (vector 0 e-2))) (else (vector 1 e-9))))))))))))) (else (vector 1 0)))))))))))))))(else (vector 1 0)))))) +(define IdrisC-45REPLC-45Common-emitWarningsAndErrors (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (IdrisC-45REPLC-45Common-emitWarnings arg-0 arg-1 arg-2 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Core-traverse_ (lambda (eta-0) (lambda (eta-1) (IdrisC-45REPLC-45Common-emitError arg-0 arg-1 arg-2 eta-0 eta-1))) arg-3 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (vector 1 e-5)))))))))) +(define IdrisC-45REPLC-45Common-emitWarnings (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((u--ws (DataC-45List-reverse (let ((e-28 (vector-ref e-5 28))) e-28)))) (let ((act-25 (CoreC-45Context-getSession arg-0 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((sc2 (let ((e-16 (vector-ref e-6 16))) e-16))) (cond ((equal? sc2 1) (let ((u--errs (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (PreludeC-45Types-u--map_Functor_List eta-2 eta-3))))) (lambda (eta-0) (vector 67 eta-0)) u--ws))) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-2 (vector-ref eta-0 1))) (vector 0 e-2))) (else (vector 1 u--errs)))) (lambda (eta-0) (CoreC-45Core-traverse_ (lambda (eta-1) (lambda (eta-2) (IdrisC-45REPLC-45Common-emitError arg-0 arg-1 arg-2 eta-1 eta-2))) u--errs eta-0)) ext-0))) (else (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (case (vector-ref eta-0 0) ((0) (let ((e-2 (vector-ref eta-0 1))) (vector 0 e-2))) (else (vector 1 '())))) (lambda (eta-0) (CoreC-45Core-traverse_ (lambda (eta-1) (lambda (eta-2) (IdrisC-45REPLC-45Common-emitWarning arg-0 arg-1 arg-2 eta-1 eta-2))) u--ws eta-0)) ext-0))))))))))))))) (define IdrisC-45REPLC-45Common-emitWarning (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (IdrisC-45REPLC-45Common-emitProblem arg-0 arg-1 arg-2 arg-3 (lambda (eta-0) (lambda (eta-1) (IdrisC-45Error-displayWarning arg-0 arg-2 arg-1 eta-0 eta-1))) (lambda (eta-0) (lambda (eta-1) (IdrisC-45Error-pwarning arg-0 arg-2 arg-1 eta-0 eta-1))) (lambda (eta-0) (CoreC-45Core-getWarningLoc eta-0)) ext-0))) -(define IdrisC-45REPLC-45Common-emitProblem (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (IdrisC-45REPLC-45Common-case--emitProblem-555 arg-4 arg-7 arg-6 arg-5 arg-3 arg-2 arg-1 e-5 (let ((sc1 e-5)) (let ((e-7 (vector-ref sc1 8))) e-7)) ext-0)))))))) +(define IdrisC-45REPLC-45Common-emitProblem (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((e-7 (vector-ref e-5 7))) (case (vector-ref e-7 0) ((1) (let ((act-25 (let ((act-25 ((arg-5 arg-4) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-18 (vector-ref act-25 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref act-25 1))) (IdrisC-45Pretty-render arg-2 e-18 ext-0))))))) (case (vector-ref act-25 0) ((0) (let ((e-18 (vector-ref act-25 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref act-25 1))) (let ((act-26 ((PreludeC-45IO-putStrLn (cons (vector (vector (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-133) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-133 eta-0)))))) (lambda (u--a) (lambda (arg-527) (lambda (eta-0) arg-527))) (lambda (u--b) (lambda (u--a) (lambda (arg-528) (lambda (arg-530) (lambda (eta-0) (let ((act-17 (arg-528 eta-0))) (let ((act-16 (arg-530 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-811) (lambda (arg-812) (lambda (eta-0) (let ((act-26 (arg-811 eta-0))) ((arg-812 act-26) eta-0))))))) (lambda (u--a) (lambda (arg-814) (lambda (eta-0) (let ((act-51 (arg-814 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-6881) arg-6881))) e-18) ext-0))) (vector 1 act-26))))))) (else (let ((e-19 (vector-ref e-7 1))) (let ((e-18 (vector-ref e-7 2))) (let ((e-17 (vector-ref e-7 3))) (let ((act-25 ((arg-6 arg-4) ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-20 (vector-ref act-25 1))) (vector 0 e-20))) (else (let ((e-20 (vector-ref act-25 1))) ((IdrisC-45REPLC-45Common-case--caseC-32blockC-32inC-32emitProblem-626 arg-7 arg-6 arg-5 arg-3 arg-2 arg-1 e-5 e-18 arg-4 e-17 e-19 e-20 (PreludeC-45Types-u--map_Functor_Maybe (lambda (eta-0) (CoreC-45FC-toNonEmptyFC eta-0)) (arg-7 arg-4))) ext-0))))))))))))))))) (define IdrisC-45REPLC-45Common-emitError (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (IdrisC-45REPLC-45Common-emitProblem arg-0 arg-1 arg-2 arg-3 (lambda (eta-0) (lambda (eta-1) (IdrisC-45Error-display arg-0 arg-2 arg-1 eta-0 eta-1))) (lambda (eta-0) (IdrisC-45Error-perror arg-0 arg-2 arg-1 eta-0)) (lambda (eta-0) (CoreC-45Core-getErrorLoc eta-0)) ext-0))) -(define IdrisC-45REPLC-45Common-docsOrSignature (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((CoreC-45Context-lookupCtxtName arg-4 (let ((sc2 e-6)) (let ((e-0 (vector-ref sc2 1))) e-0))) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (if (null? sc3) (CoreC-45Context-undefinedName arg-1 arg-3 arg-4 ext-0) (let ((e-1 (car sc3))) (let ((e-2 (cdr sc3))) (let ((_-0 (cons e-1 e-2))) (let ((u--all (cons e-1 e-2))) (IdrisC-45REPLC-45Common-case--caseC-32blockC-32inC-32docsOrSignature-1306 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 e-2 e-1 _-0 u--all (PreludeC-45Interfaces-concatMap (cons (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (cons (lambda (arg-5) (lambda (arg-6) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-5 arg-6))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) (lambda (u--n) (LibrariesC-45DataC-45ANameMap-lookupName u--n (let ((sc4 e-5)) (let ((e-4 (vector-ref sc4 5))) e-4)))) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-fst eta-0)) u--all)) ext-0)))))))))))))))))))))))) -(define IdrisC-45IDEModeC-45Holes-case--prettyHole-1157 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 ext-0) (let ((sc0 arg-9)) (if (null? sc0) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (CoreC-45Name-u--pretty_Pretty_Name (let ((sc1 arg-8)) (let ((e-0 (vector-ref sc1 1))) e-0))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon) (IdrisC-45Pretty-prettyTerm (let ((sc1 arg-8)) (let ((e-1 (vector-ref sc1 2))) e-1)))))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-indent 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Types-u--map_Functor_List (lambda (u--premise) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45IDEModeC-45Holes-prettyRigHole (let ((sc1 u--premise)) (let ((e-2 (vector-ref sc1 3))) e-2))) (IdrisC-45IDEModeC-45Holes-prettyImpBracket (let ((sc1 u--premise)) (let ((e-3 (vector-ref sc1 4))) e-3)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45IDEModeC-45Holes-prettyName (let ((sc1 u--premise)) (let ((e-0 (vector-ref sc1 1))) e-0))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon) (IdrisC-45Pretty-prettyTerm (let ((sc1 u--premise)) (let ((e-1 (vector-ref sc1 2))) e-1)))))))) (let ((sc1 arg-8)) (let ((e-2 (vector-ref sc1 3))) e-2))))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-hardline)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String (LibrariesC-45DataC-45StringC-45Extra-replicate (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))))))))))))))))))))))) #\-))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-hardline)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String (CoreC-45Name-nameRoot (let ((sc1 arg-8)) (let ((e-0 (vector-ref sc1 1))) e-0))))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon) (IdrisC-45Pretty-prettyTerm (let ((sc1 arg-8)) (let ((e-1 (vector-ref sc1 2))) e-1)))))))))) -(define IdrisC-45IDEModeC-45Holes-case--holeData-916 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) arg-8) (else (let ((sc1 arg-8)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (vector 0 e-0 e-1 (IdrisC-45IDEModeC-45Holes-n--12039-833-u--dropShadows arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-2))))))))))) -(define IdrisC-45IDEModeC-45Holes-case--holeDataC-44dropShadows-855 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (IdrisC-45IDEModeC-45Holes-n--12039-833-u--dropShadows arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-9)) (else (cons arg-8 (IdrisC-45IDEModeC-45Holes-n--12039-833-u--dropShadows arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-9))))))) -(define IdrisC-45IDEModeC-45Holes-case--extractHoleData-657 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 ext-0) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (let ((act-24 (CoreC-45ContextC-45Log-log arg-10 "idemode.hole" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Showing name: " (CoreC-45Name-u--show_Show_Name arg-2))) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (let ((act-25 (CoreC-45Normalise-normalise arg-10 arg-0 arg-8 arg-7 (CoreC-45TT-binderType arg-4) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (IdrisC-45Resugar-resugar arg-0 arg-10 arg-9 arg-7 e-6 ext-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((u--premise (vector 0 arg-2 e-6 (CoreC-45TT-multiplicity arg-4) (CoreC-45TT-isImplicit arg-4)))) (vector 1 (let ((sc3 arg-11)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-2 (vector-ref sc3 3))) (vector 0 e-0 e-1 (cons u--premise e-2)))))))))))))))))) (else (let ((act-24 (CoreC-45ContextC-45Log-log arg-10 "idemode.hole" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Not showing name: " (CoreC-45Name-u--show_Show_Name arg-2))) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 arg-11)))))))))) -(define IdrisC-45IDEModeC-45Holes-case--caseC-32blockC-32inC-32isHole-513 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-0 (vector-ref sc0 1))) (vector 1 e-0))))))) -(define IdrisC-45IDEModeC-45Holes-case--isHole-492 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((7) (let ((e-0 (vector-ref sc0 1))) (vector 1 e-0))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (let ((e-6 (vector-ref sc0 5))) (IdrisC-45IDEModeC-45Holes-case--caseC-32blockC-32inC-32isHole-513 arg-0 e-3 e-4 e-5 e-6 e-2 (let ((sc1 e-2)) (let ((e-0 (car sc1))) e-0))))))))) ((0) (vector 1 0))(else (vector 0 )))))) -(define IdrisC-45IDEModeC-45Holes-n--12039-833-u--dropShadows (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (if (null? sc0) '() (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (IdrisC-45IDEModeC-45Holes-case--holeDataC-44dropShadows-855 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-2 e-3 (PreludeC-45Types-elem (cons (lambda (arg-9) (lambda (arg-10) (CoreC-45Name-u--C-61C-61_Eq_Name arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (CoreC-45Name-u--C-47C-61_Eq_Name arg-9 arg-10)))) (let ((sc1 e-2)) (let ((e-0 (vector-ref sc1 1))) e-0)) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (let ((sc1 eta-0)) (let ((e-0 (vector-ref sc1 1))) e-0))) e-3))))))))) -(define IdrisC-45IDEModeC-45Holes-tidy (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) e-0))(else (CoreC-45Name-u--show_Show_Name arg-0)))))) -(define IdrisC-45IDEModeC-45Holes-showName (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 e-0)) (cond ((equal? sc1 "_") 1)(else 0))))) ((2) 1)(else 0))))) -(define IdrisC-45IDEModeC-45Holes-sexpPremise (lambda (arg-0) (vector 0 (cons (vector 1 (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (Algebra-showCount (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2))) (PreludeC-45TypesC-45String-C-43C-43 " " (IdrisC-45IDEModeC-45Holes-impBracket (let ((sc0 arg-0)) (let ((e-3 (vector-ref sc0 4))) e-3)) (IdrisC-45IDEModeC-45Holes-tidy (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0)))))))) (cons (vector 1 (IdrisC-45Syntax-u--show_Show_PTerm (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1)))) (cons (vector 0 '()) '())))))) -(define IdrisC-45IDEModeC-45Holes-sexpHole (lambda (arg-0) (vector 0 (cons (vector 1 (CoreC-45Name-u--show_Show_Name (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0)))) (cons (vector 0 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (IdrisC-45IDEModeC-45Holes-sexpPremise eta-0)) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2)))) (cons (vector 0 (cons (vector 1 (IdrisC-45Syntax-u--show_Show_PTerm (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1)))) (cons (vector 0 '()) '()))) '())))))) -(define IdrisC-45IDEModeC-45Holes-prettyRigHole (lambda (ext-0) (AlgebraC-45Semiring-elimSemi (cons (vector 0 (lambda (arg-355) (lambda (arg-356) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-355 arg-356))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-357) (lambda (arg-358) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-357 arg-358))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-2) (lambda (arg-3) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-4 arg-5))))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Char #\0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-space)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Char #\1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-space)) (lambda (eta-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-space) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-space))) ext-0))) -(define IdrisC-45IDEModeC-45Holes-prettyName (lambda (arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String e-0)))(else (CoreC-45Name-u--pretty_Pretty_Name arg-1)))))) -(define IdrisC-45IDEModeC-45Holes-prettyImpBracket (lambda (arg-1 ext-0) (let ((sc0 arg-1)) (cond ((equal? sc0 1) ext-0) (else (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-braces ext-0)))))) -(define IdrisC-45IDEModeC-45Holes-prettyHole (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 (IdrisC-45IDEModeC-45Holes-holeData arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (IdrisC-45IDEModeC-45Holes-case--prettyHole-1157 arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 3))) e-2)) ext-0)))))))) -(define IdrisC-45IDEModeC-45Holes-isHole (lambda (arg-0) (IdrisC-45IDEModeC-45Holes-case--isHole-492 arg-0 (let ((sc0 arg-0)) (let ((e-17 (vector-ref sc0 18))) e-17))))) -(define IdrisC-45IDEModeC-45Holes-impBracket (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (cond ((equal? sc0 1) arg-1) (else (PreludeC-45TypesC-45String-C-43C-43 "{" (PreludeC-45TypesC-45String-C-43C-43 arg-1 "}"))))))) -(define IdrisC-45IDEModeC-45Holes-holeData (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 ((IdrisC-45IDEModeC-45Holes-extractHoleData arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (CoreC-45Context-getPPrint arg-1 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 (IdrisC-45IDEModeC-45Holes-case--holeData-916 arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-6 (let ((sc2 e-6)) (let ((e-0 (vector-ref sc2 1))) e-0)))))))))))))))) -(define IdrisC-45IDEModeC-45Holes-extractHoleData (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 (CoreC-45Normalise-normalise arg-1 arg-0 arg-3 arg-4 arg-7 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (IdrisC-45Resugar-resugar arg-0 arg-1 arg-2 arg-4 e-5 eta-0)))))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 arg-5 e-5 '())))))))))(else (let ((e-0 (- arg-6 1))) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((3) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (let ((sc1 e-4)) (case (vector-ref sc1 0) ((1) (let ((e-9 (vector-ref sc1 3))) (IdrisC-45IDEModeC-45Holes-extractHoleData arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-0 (CoreC-45TTC-45SubstEnv-subst e-9 e-5))))(else (lambda (eta-0) (let ((act-24 ((IdrisC-45IDEModeC-45Holes-extractHoleData (cons e-3 arg-0) arg-1 arg-2 arg-3 (cons e-4 arg-4) arg-5 e-0 e-5) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (IdrisC-45IDEModeC-45Holes-case--extractHoleData-657 arg-0 e-0 e-3 e-5 e-4 e-2 arg-5 arg-4 arg-3 arg-2 arg-1 e-6 (IdrisC-45IDEModeC-45Holes-showName e-3) eta-0)))))))))))))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (CoreC-45Normalise-normalise arg-1 arg-0 arg-3 arg-4 arg-7 eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (IdrisC-45Resugar-resugar arg-0 arg-1 arg-2 arg-4 e-5 eta-0)))))))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (vector 0 arg-5 e-5 '()))))))))))))))))) -(define IdrisC-45IDEModeC-45Commands-case--toSExp-1748 (lambda (arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (vector 0 (cons ((Builtin-fst arg-2) arg-3) e-0))))(else (vector 0 (cons ((Builtin-fst arg-2) arg-3) (cons arg-5 '())))))))) -(define IdrisC-45IDEModeC-45Commands-case--getIDECommand-723 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (vector 1 (vector 7 arg-0 arg-1 e-1 (IdrisC-45IDEModeC-45Commands-n--3238-712-u--getMode arg-0 arg-1 arg-2 arg-3 arg-3)))))(else (vector 0 )))))) -(define IdrisC-45IDEModeC-45Commands-case--getIDECommand-670 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (vector 1 (vector 7 arg-0 arg-1 e-1 1))))(else (vector 0 )))))) -(define IdrisC-45IDEModeC-45Commands-n--3238-712-u--getMode (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_String arg-4 "all"))) -(define IdrisC-45IDEModeC-45Commands-n--4379-1538-u--escapeChar (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 #\\) (cons #\\ (cons #\\ '()))) ((equal? sc0 #\") (cons #\\ (cons #\" '())))(else (cons arg-0 '())))))) +(define IdrisC-45REPLC-45Common-docsOrSignature (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 ((CoreC-45Context-lookupCtxtName arg-4 (let ((e-0 (vector-ref e-6 0))) e-0)) ext-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (if (null? e-7) (CoreC-45Context-undefinedName arg-1 arg-3 arg-4 ext-0) (let ((e-1 (car e-7))) (let ((e-2 (cdr e-7))) (let ((_-0 (cons e-1 e-2))) (let ((u--all (cons e-1 e-2))) (IdrisC-45REPLC-45Common-case--caseC-32blockC-32inC-32docsOrSignature-1462 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 e-2 e-1 _-0 u--all (PreludeC-45Interfaces-concatMap (cons (vector (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1094) (PreludeC-45Types-u--null_Foldable_List arg-1094))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input)))))))) (lambda (u--elem) (lambda (arg-1098) (PreludeC-45Types-u--toList_Foldable_List arg-1098))) (lambda (u--a) (lambda (u--m) (lambda (i_con-0) (lambda (u--f) (lambda (arg-1100) (PreludeC-45Types-u--foldMap_Foldable_List i_con-0 u--f arg-1100))))))) (cons (lambda (arg-5) (lambda (arg-6) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-5 arg-6))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) (lambda (u--n) (LibrariesC-45DataC-45ANameMap-lookupName u--n (let ((e-4 (vector-ref e-5 4))) e-4))) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-fst eta-0)) u--all)) ext-0)))))))))))))))))))) +(define IdrisC-45IDEModeC-45Holes-case--isHole-477 (lambda (arg-0 arg-1) (case (vector-ref arg-1 0) ((7) (let ((e-0 (vector-ref arg-1 1))) (box e-0))) ((1) (let ((e-2 (vector-ref arg-1 1))) (let ((e-0 (car e-2))) (if (null? e-0) '() (let ((e-7 (unbox e-0))) (box e-7)))))) ((0) (box 0))(else '())))) +(define IdrisC-45IDEModeC-45Holes-n--8361-877-u--dropShadows (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (if (null? arg-8) '() (let ((e-2 (car arg-8))) (let ((e-3 (cdr arg-8))) (let ((sc1 (PreludeC-45Types-elem (cons (lambda (arg-9) (lambda (arg-10) (CoreC-45Name-u--C-61C-61_Eq_Name arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (CoreC-45Name-u--C-47C-61_Eq_Name arg-9 arg-10)))) (let ((e-0 (vector-ref e-2 0))) e-0) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (let ((e-0 (vector-ref eta-0 0))) e-0)) e-3)))) (cond ((equal? sc1 1) (IdrisC-45IDEModeC-45Holes-n--8361-877-u--dropShadows arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-3)) (else (cons e-2 (IdrisC-45IDEModeC-45Holes-n--8361-877-u--dropShadows arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-3)))))))))) +(define IdrisC-45IDEModeC-45Holes-tidy (lambda (arg-0) (case (vector-ref arg-0 0) ((2) (let ((e-0 (vector-ref arg-0 1))) e-0))(else (CoreC-45Name-u--show_Show_Name arg-0))))) +(define IdrisC-45IDEModeC-45Holes-showName (lambda (arg-0) (case (vector-ref arg-0 0) ((1) (let ((e-0 (vector-ref arg-0 1))) (cond ((equal? e-0 "_") 0)(else 1)))) ((2) 0)(else 1)))) +(define IdrisC-45IDEModeC-45Holes-sexpPremise (lambda (arg-0) (vector 0 (cons (vector 1 (PreludeC-45TypesC-45String-C-43C-43 " " (PreludeC-45TypesC-45String-C-43C-43 (Algebra-showCount (let ((e-2 (vector-ref arg-0 2))) e-2)) (PreludeC-45TypesC-45String-C-43C-43 " " (IdrisC-45IDEModeC-45Holes-impBracket (let ((e-3 (vector-ref arg-0 3))) e-3) (IdrisC-45IDEModeC-45Holes-tidy (let ((e-0 (vector-ref arg-0 0))) e-0))))))) (cons (vector 1 (IdrisC-45Syntax-u--show_Show_PTerm (let ((e-1 (vector-ref arg-0 1))) e-1))) (cons (vector 0 '()) '())))))) +(define IdrisC-45IDEModeC-45Holes-sexpHole (lambda (arg-0) (vector 0 (cons (vector 1 (CoreC-45Name-u--show_Show_Name (let ((e-0 (vector-ref arg-0 0))) e-0))) (cons (vector 0 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (IdrisC-45IDEModeC-45Holes-sexpPremise eta-0)) (let ((e-2 (vector-ref arg-0 2))) e-2))) (cons (vector 0 (cons (vector 1 (IdrisC-45Syntax-u--show_Show_PTerm (let ((e-1 (vector-ref arg-0 1))) e-1))) (cons (vector 0 '()) '()))) '())))))) +(define IdrisC-45IDEModeC-45Holes-prettyRigHole (lambda (ext-0) (AlgebraC-45Semiring-elimSemi (cons (vector (lambda (arg-333) (lambda (arg-334) (AlgebraC-45ZeroOneOmega-u--C-124C-43C-124_Semiring_ZeroOneOmega arg-333 arg-334))) (AlgebraC-45ZeroOneOmega-u--plusNeutral_Semiring_ZeroOneOmega) (lambda (arg-335) (lambda (arg-336) (AlgebraC-45ZeroOneOmega-u--C-124C-42C-124_Semiring_ZeroOneOmega arg-335 arg-336))) (AlgebraC-45ZeroOneOmega-u--timesNeutral_Semiring_ZeroOneOmega)) (cons (lambda (arg-2) (lambda (arg-3) (AlgebraC-45ZeroOneOmega-u--C-61C-61_Eq_ZeroOneOmega arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (AlgebraC-45ZeroOneOmega-u--C-47C-61_Eq_ZeroOneOmega arg-4 arg-5))))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Char #\0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-space)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_Char #\1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-space)) (lambda (eta-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-space) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-space))) ext-0))) +(define IdrisC-45IDEModeC-45Holes-prettyName (lambda (arg-1) (case (vector-ref arg-1 0) ((2) (let ((e-0 (vector-ref arg-1 1))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String e-0)))(else (CoreC-45Name-u--pretty_Pretty_Name arg-1))))) +(define IdrisC-45IDEModeC-45Holes-prettyImpBracket (lambda (arg-1 ext-0) (cond ((equal? arg-1 0) ext-0) (else (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-braces ext-0))))) +(define IdrisC-45IDEModeC-45Holes-prettyHole (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 (IdrisC-45IDEModeC-45Holes-holeData arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((e-2 (vector-ref e-5 2))) (if (null? e-2) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (CoreC-45Name-u--pretty_Pretty_Name (let ((e-6 (vector-ref e-5 0))) e-6)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon) (IdrisC-45Pretty-prettyTerm (let ((e-4 (vector-ref e-5 1))) e-4))))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-indent 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Types-u--map_Functor_List (lambda (u--premise) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45IDEModeC-45Holes-prettyRigHole (let ((e-4 (vector-ref u--premise 2))) e-4)) (IdrisC-45IDEModeC-45Holes-prettyImpBracket (let ((e-3 (vector-ref u--premise 3))) e-3) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45IDEModeC-45Holes-prettyName (let ((e-7 (vector-ref u--premise 0))) e-7)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon) (IdrisC-45Pretty-prettyTerm (let ((e-6 (vector-ref u--premise 1))) e-6))))))) (let ((e-3 (vector-ref e-5 2))) e-3)))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-hardline)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String (LibrariesC-45DataC-45StringC-45Extra-replicate (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))))))))))))))))))))))) #\-))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-hardline)) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String (CoreC-45Name-nameRoot (let ((e-6 (vector-ref e-5 0))) e-6)))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon) (IdrisC-45Pretty-prettyTerm (let ((e-4 (vector-ref e-5 1))) e-4))))))))))))) +(define IdrisC-45IDEModeC-45Holes-isHole (lambda (arg-0) (IdrisC-45IDEModeC-45Holes-case--isHole-477 arg-0 (let ((e-17 (vector-ref arg-0 17))) e-17)))) +(define IdrisC-45IDEModeC-45Holes-impBracket (lambda (arg-0 arg-1) (cond ((equal? arg-0 0) arg-1) (else (PreludeC-45TypesC-45String-C-43C-43 "{" (PreludeC-45TypesC-45String-C-43C-43 arg-1 "}")))))) +(define IdrisC-45IDEModeC-45Holes-holeData (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 ((IdrisC-45IDEModeC-45Holes-extractHoleData arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) ext-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (CoreC-45Context-getPPrint arg-1 ext-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (vector 1 (let ((sc2 (let ((e-0 (vector-ref e-6 0))) e-0))) (cond ((equal? sc2 1) e-5) (else (let ((e-0 (vector-ref e-5 0))) (let ((e-1 (vector-ref e-5 1))) (let ((e-2 (vector-ref e-5 2))) (vector e-0 e-1 (IdrisC-45IDEModeC-45Holes-n--8361-877-u--dropShadows arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-2))))))))))))))))))) +(define IdrisC-45IDEModeC-45Holes-extractHoleData (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (cond ((equal? arg-6 0) (lambda (eta-0) (let ((act-24 (CoreC-45Normalise-normalise arg-1 arg-0 arg-3 arg-4 arg-7 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (IdrisC-45Resugar-resugar arg-0 arg-1 arg-2 arg-4 e-5 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (let ((act-26 (CoreC-45Context-toFullNames arg-1 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-1) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-1)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-1) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-1))))) arg-7 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (CoreC-45Context-toFullNames arg-1 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-1) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-1)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-1) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-1))))) e-5 eta-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (CoreC-45ContextC-45Log-log arg-1 "idemode.hole" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))))))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Return type: " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 e-7) (PreludeC-45TypesC-45String-C-43C-43 "\u000a Evaluated to: " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 e-8) (PreludeC-45TypesC-45String-C-43C-43 "\u000a Resugared to: " (IdrisC-45Syntax-u--show_Show_PTerm e-6))))))) eta-0))))))))))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (vector 1 (vector arg-5 e-6 '())))))))))))))))(else (let ((e-0 (- arg-6 1))) (case (vector-ref arg-7 0) ((3) (let ((e-3 (vector-ref arg-7 2))) (let ((e-4 (vector-ref arg-7 3))) (let ((e-5 (vector-ref arg-7 4))) (case (vector-ref e-4 0) ((1) (let ((e-9 (vector-ref e-4 3))) (IdrisC-45IDEModeC-45Holes-extractHoleData arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-0 (CoreC-45TTC-45SubstEnv-subst e-9 e-5))))(else (lambda (eta-0) (let ((act-24 ((IdrisC-45IDEModeC-45Holes-extractHoleData (cons e-3 arg-0) arg-1 arg-2 arg-3 (cons e-4 arg-4) arg-5 e-0 e-5) eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-6 (vector-ref act-24 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref act-24 1))) (let ((sc2 (IdrisC-45IDEModeC-45Holes-showName e-3))) (cond ((equal? sc2 1) (let ((act-25 (CoreC-45ContextC-45Log-log arg-1 "idemode.hole" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Showing name: " (CoreC-45Name-u--show_Show_Name e-3))) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-7 (vector-ref act-25 1))) (vector 0 e-7))) (else (let ((act-26 (let ((act-26 (CoreC-45Normalise-normalise arg-1 arg-0 arg-3 arg-4 (CoreC-45TT-binderType e-4) eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-8 (vector-ref act-26 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref act-26 1))) (IdrisC-45Resugar-resugar arg-0 arg-1 arg-2 arg-4 e-8 eta-0))))))) (case (vector-ref act-26 0) ((0) (let ((e-8 (vector-ref act-26 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref act-26 1))) (let ((u--premise (vector e-3 e-8 (CoreC-45TT-multiplicity e-4) (CoreC-45TT-isImplicit e-4)))) (vector 1 (let ((e-10 (vector-ref e-6 0))) (let ((e-1 (vector-ref e-6 1))) (let ((e-9 (vector-ref e-6 2))) (vector e-10 e-1 (cons u--premise e-9))))))))))))))) (else (let ((act-25 (CoreC-45ContextC-45Log-log arg-1 "idemode.hole" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Not showing name: " (CoreC-45Name-u--show_Show_Name e-3))) eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-7 (vector-ref act-25 1))) (vector 0 e-7))) (else (vector 1 e-6))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (CoreC-45Normalise-normalise arg-1 arg-0 arg-3 arg-4 arg-7 eta-0))) (case (vector-ref act-24 0) ((0) (let ((e-2 (vector-ref act-24 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref act-24 1))) (let ((act-25 (IdrisC-45Resugar-resugar arg-0 arg-1 arg-2 arg-4 e-5 eta-0))) (case (vector-ref act-25 0) ((0) (let ((e-2 (vector-ref act-25 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref act-25 1))) (let ((act-26 (let ((act-26 (CoreC-45Context-toFullNames arg-1 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-1) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-1)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-1) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-1))))) arg-7 eta-0))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref act-26 1))) (let ((act-27 (CoreC-45Context-toFullNames arg-1 (cons (lambda (arg-3841) (lambda (arg-3842) (lambda (eta-1) (CoreC-45Context-u--full_HasNames_C-40TermC-32C-36varsC-41 arg-3841 arg-3842 eta-1)))) (lambda (arg-3843) (lambda (arg-3844) (lambda (eta-1) (CoreC-45Context-u--resolved_HasNames_C-40TermC-32C-36varsC-41 arg-3843 arg-3844 eta-1))))) e-5 eta-0))) (case (vector-ref act-27 0) ((0) (let ((e-2 (vector-ref act-27 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref act-27 1))) (CoreC-45ContextC-45Log-log arg-1 "idemode.hole" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))))))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Return type: " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 e-7) (PreludeC-45TypesC-45String-C-43C-43 "\u000a Evaluated to: " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_C-40TermC-32C-36varsC-41 arg-0 e-8) (PreludeC-45TypesC-45String-C-43C-43 "\u000a Resugared to: " (IdrisC-45Syntax-u--show_Show_PTerm e-6))))))) eta-0))))))))))) (case (vector-ref act-26 0) ((0) (let ((e-2 (vector-ref act-26 1))) (vector 0 e-2))) (else (vector 1 (vector arg-5 e-6 '()))))))))))))))))))))) +(define IdrisC-45IDEModeC-45Commands-case--toSExp-1722 (lambda (arg-2 arg-3 arg-4 arg-5) (case (vector-ref arg-5 0) ((0) (let ((e-0 (vector-ref arg-5 1))) (vector 0 (cons ((Builtin-fst arg-2) arg-3) e-0))))(else (vector 0 (cons ((Builtin-fst arg-2) arg-3) (cons arg-5 '()))))))) +(define IdrisC-45IDEModeC-45Commands-n--5008-673-u--getMode (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (PreludeC-45EqOrd-u--C-61C-61_Eq_String arg-4 "all"))) +(define IdrisC-45IDEModeC-45Commands-n--6136-1510-u--escapeChar (lambda (arg-0) (cond ((equal? arg-0 #\\) (cons #\\ (cons #\\ '()))) ((equal? arg-0 #\") (cons #\\ (cons #\" '())))(else (cons arg-0 '()))))) (define IdrisC-45IDEModeC-45Commands-u--toSExp_SExpable_String (lambda (ext-0) (vector 1 ext-0))) (define IdrisC-45IDEModeC-45Commands-u--toSExp_SExpable_SExp (lambda (ext-0) ext-0)) (define IdrisC-45IDEModeC-45Commands-u--toSExp_SExpable_Nat (lambda (ext-0) (vector 3 (PreludeC-45Cast-u--cast_Cast_Nat_Integer ext-0)))) @@ -6161,1293 +5270,1137 @@ (define IdrisC-45IDEModeC-45Commands-u--toSExp_SExpable_Integer (lambda (ext-0) (vector 3 ext-0))) (define IdrisC-45IDEModeC-45Commands-u--toSExp_SExpable_Int (lambda (ext-0) (vector 3 (PreludeC-45Cast-u--cast_Cast_Int_Integer ext-0)))) (define IdrisC-45IDEModeC-45Commands-u--toSExp_SExpable_Bool (lambda (ext-0) (vector 2 ext-0))) -(define IdrisC-45IDEModeC-45Commands-u--toSExp_SExpable_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (lambda (arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (IdrisC-45IDEModeC-45Commands-case--toSExp-1748 arg-2 e-2 e-3 ((Builtin-snd arg-2) e-3))))))) +(define IdrisC-45IDEModeC-45Commands-u--toSExp_SExpable_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (lambda (arg-2 arg-3) (let ((e-2 (car arg-3))) (let ((e-3 (cdr arg-3))) (IdrisC-45IDEModeC-45Commands-case--toSExp-1722 arg-2 e-2 e-3 ((Builtin-snd arg-2) e-3)))))) (define IdrisC-45IDEModeC-45Commands-u--toSExp_SExpable_C-40ListC-32C-36aC-41 (lambda (arg-1 arg-2) (vector 0 (PreludeC-45Types-u--map_Functor_List (lambda (arg-0) (arg-1 arg-0)) arg-2)))) -(define IdrisC-45IDEModeC-45Commands-u--show_Show_SExp (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (PreludeC-45TypesC-45String-C-43C-43 "(" (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-showSep " " (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (IdrisC-45IDEModeC-45Commands-u--show_Show_SExp eta-0)) e-0)) ")")))) ((1) (let ((e-1 (vector-ref sc0 1))) (PreludeC-45TypesC-45String-C-43C-43 "\"" (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45IDEModeC-45Commands-escape e-1) "\"")))) ((2) (let ((e-2 (vector-ref sc0 1))) (PreludeC-45TypesC-45String-C-43C-43 ":" (PreludeC-45Show-u--show_Show_Bool e-2)))) ((3) (let ((e-3 (vector-ref sc0 1))) (PreludeC-45Show-u--show_Show_Integer e-3))) (else (let ((e-4 (vector-ref sc0 1))) (PreludeC-45TypesC-45String-C-43C-43 ":" e-4))))))) -(define IdrisC-45IDEModeC-45Commands-version (lambda (arg-0 arg-1) (IdrisC-45IDEModeC-45Commands-u--toSExp_SExpable_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (arg-1629) (IdrisC-45IDEModeC-45Commands-u--toSExp_SExpable_SExp arg-1629)) (lambda (arg-1629) (IdrisC-45IDEModeC-45Commands-u--toSExp_SExpable_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (arg-1630) (IdrisC-45IDEModeC-45Commands-u--toSExp_SExpable_Int arg-1630)) (lambda (arg-1630) (IdrisC-45IDEModeC-45Commands-u--toSExp_SExpable_Int arg-1630))) arg-1629))) (cons (vector 4 "protocol-version") (cons arg-0 arg-1))))) -(define IdrisC-45IDEModeC-45Commands-sendStr (lambda (arg-0 arg-1 ext-0) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (vector 0 )) (SystemC-45File-fPutStr (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-0)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-0) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (let ((act-17 (arg-578 eta-0))) (let ((act-16 (arg-580 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (let ((act-24 (arg-876 eta-0))) ((arg-877 act-24) eta-0))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-0) (let ((act-51 (arg-879 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) arg-0 arg-1) ext-0))) -(define IdrisC-45IDEModeC-45Commands-send (lambda (arg-1 arg-2 arg-3) (let ((u--r (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45IDEModeC-45Commands-u--show_Show_SExp (arg-1 arg-3)) "\u000a"))) (lambda (eta-0) (let ((act-24 (let ((act-24 (IdrisC-45IDEModeC-45Commands-sendStr arg-2 (LibrariesC-45UtilsC-45Hex-leftPad #\0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))) (LibrariesC-45UtilsC-45Hex-asHex (PreludeC-45Cast-u--cast_Cast_Nat_Int (PreludeC-45TypesC-45String-length u--r)))) eta-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((act-25 (let ((act-25 (IdrisC-45IDEModeC-45Commands-sendStr arg-2 u--r eta-0))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 ((SystemC-45File-fflush (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-1) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-1)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-1) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-1) (let ((act-17 (arg-578 eta-1))) (let ((act-16 (arg-580 eta-1))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-1) (let ((act-26 (arg-876 eta-1))) ((arg-877 act-26) eta-1))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-1) (let ((act-51 (arg-879 eta-1))) (act-51 eta-1)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) arg-2) eta-0))) (vector 1 act-26)))))))))))))) -(define IdrisC-45IDEModeC-45Commands-readHints (lambda (arg-0) (let ((sc0 arg-0)) (if (null? sc0) (vector 1 '()) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 1))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (IdrisC-45IDEModeC-45Commands-readHints e-3) (lambda (u--restC-39) (PreludeC-45Types-u--pure_Applicative_Maybe (cons e-4 u--restC-39))))))(else (vector 0 )))))))))) -(define IdrisC-45IDEModeC-45Commands-getMsg (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 e-0)) (if (null? sc1) (vector 0 ) (let ((e-2 (car sc1))) (let ((e-3 (cdr sc1))) (let ((sc2 e-3)) (if (null? sc2) (vector 0 ) (let ((e-5 (car sc2))) (let ((e-6 (cdr sc2))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((3) (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-6)) (if (null? sc4) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (IdrisC-45IDEModeC-45Commands-getIDECommand e-2) (lambda (u--cmd) (PreludeC-45Types-u--pure_Applicative_Maybe (cons u--cmd e-7)))) (vector 0 )))))(else (vector 0 ))))))))))))))(else (vector 0 )))))) -(define IdrisC-45IDEModeC-45Commands-getIDECommand (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 e-0)) (if (null? sc1) (vector 0 ) (let ((e-3 (car sc1))) (let ((e-4 (cdr sc1))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((4) (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (cond ((equal? sc3 "interpret") (let ((sc4 e-4)) (if (null? sc4) (vector 0 ) (let ((e-7 (car sc4))) (let ((e-8 (cdr sc4))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((1) (let ((e-9 (vector-ref sc5 1))) (let ((sc6 e-8)) (if (null? sc6) (vector 1 (vector 0 e-9)) (vector 0 )))))(else (vector 0 ))))))))) ((equal? sc3 "load-file") (let ((sc4 e-4)) (if (null? sc4) (vector 0 ) (let ((e-12 (car sc4))) (let ((e-13 (cdr sc4))) (let ((sc5 e-12)) (case (vector-ref sc5 0) ((1) (let ((e-14 (vector-ref sc5 1))) (let ((sc6 e-13)) (if (null? sc6) (vector 1 (vector 1 e-14 (vector 0 ))) (let ((e-17 (car sc6))) (let ((e-18 (cdr sc6))) (let ((sc7 e-17)) (case (vector-ref sc7 0) ((3) (let ((e-19 (vector-ref sc7 1))) (let ((sc8 e-18)) (if (null? sc8) (vector 1 (vector 1 e-14 (vector 1 e-19))) (vector 0 )))))(else (vector 0 ))))))))))(else (vector 0 ))))))))) ((equal? sc3 "type-of") (let ((sc4 e-4)) (if (null? sc4) (vector 0 ) (let ((e-22 (car sc4))) (let ((e-23 (cdr sc4))) (let ((sc5 e-22)) (case (vector-ref sc5 0) ((1) (let ((e-24 (vector-ref sc5 1))) (let ((sc6 e-23)) (if (null? sc6) (vector 1 (vector 2 e-24 (vector 0 ))) (let ((e-27 (car sc6))) (let ((e-28 (cdr sc6))) (let ((sc7 e-27)) (case (vector-ref sc7 0) ((3) (let ((e-29 (vector-ref sc7 1))) (let ((sc8 e-28)) (if (null? sc8) (vector 0 ) (let ((e-31 (car sc8))) (let ((e-32 (cdr sc8))) (let ((sc9 e-31)) (case (vector-ref sc9 0) ((3) (let ((e-33 (vector-ref sc9 1))) (let ((sc10 e-32)) (if (null? sc10) (vector 1 (vector 2 e-24 (vector 1 (cons e-29 e-33)))) (vector 0 )))))(else (vector 0 ))))))))))(else (vector 0 ))))))))))(else (vector 0 ))))))))) ((equal? sc3 "name-at") (let ((sc4 e-4)) (if (null? sc4) (vector 0 ) (let ((e-36 (car sc4))) (let ((e-37 (cdr sc4))) (let ((sc5 e-36)) (case (vector-ref sc5 0) ((1) (let ((e-38 (vector-ref sc5 1))) (let ((sc6 e-37)) (if (null? sc6) (vector 1 (vector 3 e-38 (vector 0 ))) (let ((e-41 (car sc6))) (let ((e-42 (cdr sc6))) (let ((sc7 e-41)) (case (vector-ref sc7 0) ((3) (let ((e-43 (vector-ref sc7 1))) (let ((sc8 e-42)) (if (null? sc8) (vector 0 ) (let ((e-45 (car sc8))) (let ((e-46 (cdr sc8))) (let ((sc9 e-45)) (case (vector-ref sc9 0) ((3) (let ((e-47 (vector-ref sc9 1))) (let ((sc10 e-46)) (if (null? sc10) (vector 1 (vector 3 e-38 (vector 1 (cons e-43 e-47)))) (vector 0 )))))(else (vector 0 ))))))))))(else (vector 0 ))))))))))(else (vector 0 ))))))))) ((equal? sc3 "case-split") (let ((sc4 e-4)) (if (null? sc4) (vector 0 ) (let ((e-50 (car sc4))) (let ((e-51 (cdr sc4))) (let ((sc5 e-50)) (case (vector-ref sc5 0) ((3) (let ((e-52 (vector-ref sc5 1))) (let ((sc6 e-51)) (if (null? sc6) (vector 0 ) (let ((e-54 (car sc6))) (let ((e-55 (cdr sc6))) (let ((sc7 e-54)) (case (vector-ref sc7 0) ((3) (let ((e-56 (vector-ref sc7 1))) (let ((sc8 e-55)) (if (null? sc8) (vector 0 ) (let ((e-59 (car sc8))) (let ((e-60 (cdr sc8))) (let ((sc9 e-59)) (case (vector-ref sc9 0) ((1) (let ((e-61 (vector-ref sc9 1))) (let ((sc10 e-60)) (if (null? sc10) (vector 1 (vector 4 e-52 e-56 e-61)) (vector 0 )))))(else (vector 0 )))))))))) ((1) (let ((e-57 (vector-ref sc7 1))) (let ((sc8 e-55)) (if (null? sc8) (vector 1 (vector 4 e-52 0 e-57)) (vector 0 )))))(else (vector 0 ))))))))))(else (vector 0 ))))))))) ((equal? sc3 "add-clause") (let ((sc4 e-4)) (if (null? sc4) (vector 0 ) (let ((e-65 (car sc4))) (let ((e-66 (cdr sc4))) (let ((sc5 e-65)) (case (vector-ref sc5 0) ((3) (let ((e-67 (vector-ref sc5 1))) (let ((sc6 e-66)) (if (null? sc6) (vector 0 ) (let ((e-69 (car sc6))) (let ((e-70 (cdr sc6))) (let ((sc7 e-69)) (case (vector-ref sc7 0) ((1) (let ((e-71 (vector-ref sc7 1))) (let ((sc8 e-70)) (if (null? sc8) (vector 1 (vector 5 e-67 e-71)) (vector 0 )))))(else (vector 0 ))))))))))(else (vector 0 ))))))))) ((equal? sc3 "add-missing") (let ((sc4 e-4)) (if (null? sc4) (vector 0 ) (let ((e-74 (car sc4))) (let ((e-75 (cdr sc4))) (let ((sc5 e-74)) (case (vector-ref sc5 0) ((3) (let ((e-76 (vector-ref sc5 1))) (let ((sc6 e-75)) (if (null? sc6) (vector 0 ) (let ((e-78 (car sc6))) (let ((e-79 (cdr sc6))) (let ((sc7 e-78)) (case (vector-ref sc7 0) ((1) (let ((e-80 (vector-ref sc7 1))) (let ((sc8 e-79)) (if (null? sc8) (vector 1 (vector 6 e-76 e-80)) (vector 0 )))))(else (vector 0 ))))))))))(else (vector 0 ))))))))) ((equal? sc3 "proof-search") (let ((sc4 e-4)) (if (null? sc4) (vector 0 ) (let ((e-83 (car sc4))) (let ((e-84 (cdr sc4))) (let ((sc5 e-83)) (case (vector-ref sc5 0) ((3) (let ((e-85 (vector-ref sc5 1))) (let ((sc6 e-84)) (if (null? sc6) (vector 0 ) (let ((e-87 (car sc6))) (let ((e-88 (cdr sc6))) (let ((sc7 e-87)) (case (vector-ref sc7 0) ((1) (let ((e-89 (vector-ref sc7 1))) (let ((sc8 e-88)) (if (null? sc8) (vector 1 (vector 7 e-85 e-89 '() 1)) (let ((e-92 (car sc8))) (let ((e-93 (cdr sc8))) (let ((sc9 e-92)) (case (vector-ref sc9 0) ((0) (let ((e-94 (vector-ref sc9 1))) (let ((sc10 e-93)) (if (null? sc10) (IdrisC-45IDEModeC-45Commands-case--getIDECommand-670 e-85 e-89 e-94 (IdrisC-45IDEModeC-45Commands-readHints e-94)) (let ((e-97 (car sc10))) (let ((e-98 (cdr sc10))) (let ((sc11 e-97)) (case (vector-ref sc11 0) ((4) (let ((e-99 (vector-ref sc11 1))) (let ((sc12 e-98)) (if (null? sc12) (IdrisC-45IDEModeC-45Commands-case--getIDECommand-723 e-85 e-89 e-94 e-99 (IdrisC-45IDEModeC-45Commands-readHints e-94)) (vector 0 )))))(else (vector 0 ))))))))))(else (vector 0 ))))))))))(else (vector 0 ))))))))))(else (vector 0 ))))))))) ((equal? sc3 "generate-def") (let ((sc4 e-4)) (if (null? sc4) (vector 0 ) (let ((e-102 (car sc4))) (let ((e-103 (cdr sc4))) (let ((sc5 e-102)) (case (vector-ref sc5 0) ((3) (let ((e-104 (vector-ref sc5 1))) (let ((sc6 e-103)) (if (null? sc6) (vector 0 ) (let ((e-106 (car sc6))) (let ((e-107 (cdr sc6))) (let ((sc7 e-106)) (case (vector-ref sc7 0) ((1) (let ((e-108 (vector-ref sc7 1))) (let ((sc8 e-107)) (if (null? sc8) (vector 1 (vector 9 e-104 e-108)) (vector 0 )))))(else (vector 0 ))))))))))(else (vector 0 ))))))))) ((equal? sc3 "make-lemma") (let ((sc4 e-4)) (if (null? sc4) (vector 0 ) (let ((e-111 (car sc4))) (let ((e-112 (cdr sc4))) (let ((sc5 e-111)) (case (vector-ref sc5 0) ((3) (let ((e-113 (vector-ref sc5 1))) (let ((sc6 e-112)) (if (null? sc6) (vector 0 ) (let ((e-115 (car sc6))) (let ((e-116 (cdr sc6))) (let ((sc7 e-115)) (case (vector-ref sc7 0) ((1) (let ((e-117 (vector-ref sc7 1))) (let ((sc8 e-116)) (if (null? sc8) (vector 1 (vector 11 e-113 e-117)) (vector 0 )))))(else (vector 0 ))))))))))(else (vector 0 ))))))))) ((equal? sc3 "make-case") (let ((sc4 e-4)) (if (null? sc4) (vector 0 ) (let ((e-120 (car sc4))) (let ((e-121 (cdr sc4))) (let ((sc5 e-120)) (case (vector-ref sc5 0) ((3) (let ((e-122 (vector-ref sc5 1))) (let ((sc6 e-121)) (if (null? sc6) (vector 0 ) (let ((e-124 (car sc6))) (let ((e-125 (cdr sc6))) (let ((sc7 e-124)) (case (vector-ref sc7 0) ((1) (let ((e-126 (vector-ref sc7 1))) (let ((sc8 e-125)) (if (null? sc8) (vector 1 (vector 12 e-122 e-126)) (vector 0 )))))(else (vector 0 ))))))))))(else (vector 0 ))))))))) ((equal? sc3 "make-with") (let ((sc4 e-4)) (if (null? sc4) (vector 0 ) (let ((e-129 (car sc4))) (let ((e-130 (cdr sc4))) (let ((sc5 e-129)) (case (vector-ref sc5 0) ((3) (let ((e-131 (vector-ref sc5 1))) (let ((sc6 e-130)) (if (null? sc6) (vector 0 ) (let ((e-133 (car sc6))) (let ((e-134 (cdr sc6))) (let ((sc7 e-133)) (case (vector-ref sc7 0) ((1) (let ((e-135 (vector-ref sc7 1))) (let ((sc8 e-134)) (if (null? sc8) (vector 1 (vector 13 e-131 e-135)) (vector 0 )))))(else (vector 0 ))))))))))(else (vector 0 ))))))))) ((equal? sc3 "docs-for") (let ((sc4 e-4)) (if (null? sc4) (vector 0 ) (let ((e-138 (car sc4))) (let ((e-139 (cdr sc4))) (let ((sc5 e-138)) (case (vector-ref sc5 0) ((1) (let ((e-140 (vector-ref sc5 1))) (PreludeC-45Types-u--C-62C-62C-61_Monad_Maybe (let ((sc6 e-139)) (if (null? sc6) (vector 1 (vector 0 )) (let ((e-2 (car sc6))) (let ((e-6 (cdr sc6))) (let ((sc7 e-2)) (case (vector-ref sc7 0) ((4) (let ((e-7 (vector-ref sc7 1))) (let ((sc8 e-7)) (cond ((equal? sc8 "overview") (let ((sc9 e-6)) (if (null? sc9) (vector 1 (vector 1 (vector 0 ))) (vector 0 )))) ((equal? sc8 "full") (let ((sc9 e-6)) (if (null? sc9) (vector 1 (vector 1 (vector 1 ))) (vector 0 ))))(else (vector 0 ))))))(else (vector 0 )))))))) (lambda (u--modeOpt) (vector 1 (vector 14 e-140 u--modeOpt))))))(else (vector 0 ))))))))) ((equal? sc3 "apropos") (let ((sc4 e-4)) (if (null? sc4) (vector 0 ) (let ((e-142 (car sc4))) (let ((e-143 (cdr sc4))) (let ((sc5 e-142)) (case (vector-ref sc5 0) ((1) (let ((e-144 (vector-ref sc5 1))) (let ((sc6 e-143)) (if (null? sc6) (vector 1 (vector 16 e-144)) (vector 0 )))))(else (vector 0 ))))))))) ((equal? sc3 "directive") (let ((sc4 e-4)) (if (null? sc4) (vector 0 ) (let ((e-147 (car sc4))) (let ((e-148 (cdr sc4))) (let ((sc5 e-147)) (case (vector-ref sc5 0) ((1) (let ((e-149 (vector-ref sc5 1))) (let ((sc6 e-148)) (if (null? sc6) (vector 1 (vector 15 e-149)) (vector 0 )))))(else (vector 0 ))))))))) ((equal? sc3 "metavariables") (let ((sc4 e-4)) (if (null? sc4) (vector 0 ) (let ((e-152 (car sc4))) (let ((e-153 (cdr sc4))) (let ((sc5 e-152)) (case (vector-ref sc5 0) ((3) (let ((e-154 (vector-ref sc5 1))) (let ((sc6 e-153)) (if (null? sc6) (vector 1 (vector 17 e-154)) (vector 0 )))))(else (vector 0 ))))))))) ((equal? sc3 "who-calls") (let ((sc4 e-4)) (if (null? sc4) (vector 0 ) (let ((e-157 (car sc4))) (let ((e-158 (cdr sc4))) (let ((sc5 e-157)) (case (vector-ref sc5 0) ((1) (let ((e-159 (vector-ref sc5 1))) (let ((sc6 e-158)) (if (null? sc6) (vector 1 (vector 18 e-159)) (vector 0 )))))(else (vector 0 ))))))))) ((equal? sc3 "calls-who") (let ((sc4 e-4)) (if (null? sc4) (vector 0 ) (let ((e-162 (car sc4))) (let ((e-163 (cdr sc4))) (let ((sc5 e-162)) (case (vector-ref sc5 0) ((1) (let ((e-164 (vector-ref sc5 1))) (let ((sc6 e-163)) (if (null? sc6) (vector 1 (vector 19 e-164)) (vector 0 )))))(else (vector 0 ))))))))) ((equal? sc3 "browse-namespace") (let ((sc4 e-4)) (if (null? sc4) (vector 0 ) (let ((e-167 (car sc4))) (let ((e-168 (cdr sc4))) (let ((sc5 e-167)) (case (vector-ref sc5 0) ((1) (let ((e-169 (vector-ref sc5 1))) (let ((sc6 e-168)) (if (null? sc6) (vector 1 (vector 20 e-169)) (vector 0 )))))(else (vector 0 ))))))))) ((equal? sc3 "normalise-term") (let ((sc4 e-4)) (if (null? sc4) (vector 0 ) (let ((e-172 (car sc4))) (let ((e-173 (cdr sc4))) (let ((sc5 e-172)) (case (vector-ref sc5 0) ((1) (let ((e-174 (vector-ref sc5 1))) (let ((sc6 e-173)) (if (null? sc6) (vector 1 (vector 21 e-174)) (vector 0 )))))(else (vector 0 ))))))))) ((equal? sc3 "show-term-implicits") (let ((sc4 e-4)) (if (null? sc4) (vector 0 ) (let ((e-177 (car sc4))) (let ((e-178 (cdr sc4))) (let ((sc5 e-177)) (case (vector-ref sc5 0) ((1) (let ((e-179 (vector-ref sc5 1))) (let ((sc6 e-178)) (if (null? sc6) (vector 1 (vector 22 e-179)) (vector 0 )))))(else (vector 0 ))))))))) ((equal? sc3 "hide-term-implicits") (let ((sc4 e-4)) (if (null? sc4) (vector 0 ) (let ((e-182 (car sc4))) (let ((e-183 (cdr sc4))) (let ((sc5 e-182)) (case (vector-ref sc5 0) ((1) (let ((e-184 (vector-ref sc5 1))) (let ((sc6 e-183)) (if (null? sc6) (vector 1 (vector 23 e-184)) (vector 0 )))))(else (vector 0 ))))))))) ((equal? sc3 "elaborate-term") (let ((sc4 e-4)) (if (null? sc4) (vector 0 ) (let ((e-187 (car sc4))) (let ((e-188 (cdr sc4))) (let ((sc5 e-187)) (case (vector-ref sc5 0) ((1) (let ((e-189 (vector-ref sc5 1))) (let ((sc6 e-188)) (if (null? sc6) (vector 1 (vector 24 e-189)) (vector 0 )))))(else (vector 0 ))))))))) ((equal? sc3 "print-definition") (let ((sc4 e-4)) (if (null? sc4) (vector 0 ) (let ((e-192 (car sc4))) (let ((e-193 (cdr sc4))) (let ((sc5 e-192)) (case (vector-ref sc5 0) ((1) (let ((e-194 (vector-ref sc5 1))) (let ((sc6 e-193)) (if (null? sc6) (vector 1 (vector 25 e-194)) (vector 0 )))))(else (vector 0 ))))))))) ((equal? sc3 "repl-completions") (let ((sc4 e-4)) (if (null? sc4) (vector 0 ) (let ((e-197 (car sc4))) (let ((e-198 (cdr sc4))) (let ((sc5 e-197)) (case (vector-ref sc5 0) ((1) (let ((e-199 (vector-ref sc5 1))) (let ((sc6 e-198)) (if (null? sc6) (vector 1 (vector 26 e-199)) (vector 0 )))))(else (vector 0 ))))))))) ((equal? sc3 "enable-syntax") (let ((sc4 e-4)) (if (null? sc4) (vector 0 ) (let ((e-202 (car sc4))) (let ((e-203 (cdr sc4))) (let ((sc5 e-202)) (case (vector-ref sc5 0) ((2) (let ((e-204 (vector-ref sc5 1))) (let ((sc6 e-203)) (if (null? sc6) (vector 1 (vector 27 e-204)) (vector 0 )))))(else (vector 0 ))))))))) ((equal? sc3 "get-options") (let ((sc4 e-4)) (if (null? sc4) (vector 1 (vector 29 )) (vector 0 ))))(else (vector 0 ))))))(else (vector 0 )))))))))) ((4) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (cond ((equal? sc1 "proof-search-next") (vector 1 (vector 8 ))) ((equal? sc1 "generate-def-next") (vector 1 (vector 10 ))) ((equal? sc1 "version") (vector 1 (vector 28 )))(else (vector 0 ))))))(else (vector 0 )))))) -(define IdrisC-45IDEModeC-45Commands-escape (lambda (ext-0) (PreludeC-45Types-fastPack (PreludeC-45Interfaces-concatMap (cons (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-2 arg-3))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) (lambda (eta-0) (IdrisC-45IDEModeC-45Commands-n--4379-1538-u--escapeChar eta-0)) (PreludeC-45Types-fastUnpack ext-0))))) -(define IdrisC-45DocString-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32summarise-2991 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (let ((e-1 (car sc0))) (let ((sc1 e-1)) (cond ((equal? sc1 "") (vector 0 ))(else (vector 1 e-1)))))))) -(define IdrisC-45DocString-case--caseC-32blockC-32inC-32summarise-2962 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (if (null? sc0) (vector 0 ) (let ((e-1 (car sc0))) (let ((e-2 (cdr sc0))) (let ((sc1 e-1)) (if (null? sc1) (vector 0 ) (let ((e-5 (car sc1))) (let ((e-6 (cdr sc1))) (let ((sc2 e-2)) (if (null? sc2) (IdrisC-45DocString-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32summarise-2991 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-6 (LibrariesC-45DataC-45StringC-45Extra-lines e-6)) (vector 0 ))))))))))))) -(define IdrisC-45DocString-case--getDocsForName-2748 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 "-") (cons (vector 0 (CoreC-45NameC-45Namespace-numNS) (vector 1 "negate")) '()))(else '()))))) -(define IdrisC-45DocString-case--caseC-32blockC-32inC-32getDocsForName-2641 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 ext-0) (let ((sc0 arg-12)) (if (null? sc0) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String (PreludeC-45TypesC-45String-C-43C-43 "No documentation for " (CoreC-45Name-u--show_Show_Name arg-0)))) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (IdrisC-45DocString-n--13892-635-u--showDoc arg-0 arg-1 arg-2 arg-3 arg-4 eta-0 eta-1))) arg-12 '() ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vcat (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-punctuate (vector 3 ) e-5)))))))))))) -(define IdrisC-45DocString-case--getDocsForName-2600 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (if (null? sc0) (lambda (eta-0) (CoreC-45Context-undefinedName arg-3 arg-1 arg-0 eta-0)) (let ((e-1 (car sc0))) (let ((e-2 (cdr sc0))) (let ((u--all (cons e-1 e-2))) (lambda (eta-0) (IdrisC-45DocString-case--caseC-32blockC-32inC-32getDocsForName-2641 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2 e-1 u--all (PreludeC-45Interfaces-concatMap (cons (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (cons (lambda (arg-10) (lambda (arg-11) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-10 arg-11))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) (lambda (u--n) (LibrariesC-45DataC-45ANameMap-lookupName u--n (let ((sc1 arg-5)) (let ((e-4 (vector-ref sc1 5))) e-4)))) u--all) eta-0))))))))) -(define IdrisC-45DocString-case--getDocsForNameC-44showCategory-2280 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((6) (IdrisC-45DocString-tCon (let ((sc1 arg-5)) (let ((e-27 (vector-ref sc1 2))) e-27)) ext-0)) ((5) (IdrisC-45DocString-dCon ext-0)) ((1) (IdrisC-45DocString-fun (let ((sc1 arg-5)) (let ((e-1 (vector-ref sc1 2))) e-1)) ext-0)) ((3) (IdrisC-45DocString-fun (let ((sc1 arg-5)) (let ((e-1 (vector-ref sc1 2))) e-1)) ext-0)) ((4) (IdrisC-45DocString-fun (let ((sc1 arg-5)) (let ((e-1 (vector-ref sc1 2))) e-1)) ext-0))(else ext-0))))) -(define IdrisC-45DocString-case--caseC-32blockC-32inC-32getDocsForNameC-44getExtra-1951 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 (cons (IdrisC-45DocString-n--13892-624-u--showTotal arg-0 arg-1 arg-2 arg-3 arg-4 arg-6 (let ((sc1 arg-5)) (let ((e-10 (vector-ref sc1 11))) e-10))) '())))) ((6) (let ((e-11 (vector-ref sc0 7))) (let ((u--tot (cons (IdrisC-45DocString-n--13892-624-u--showTotal arg-0 arg-1 arg-2 arg-3 arg-4 arg-6 (let ((sc1 arg-5)) (let ((e-23 (vector-ref sc1 11))) e-23))) '()))) (lambda (eta-0) (let ((act-24 (CoreC-45Core-traverseC-39 (PreludeC-45Basics-flip (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (PreludeC-45Basics-flip (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (let ((act-24 (eta-4 eta-6))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref sc1 1))) ((eta-5 e-13) eta-6))))))))) eta-2 (eta-1 eta-3))))) (lambda (eta-1) (lambda (eta-2) (IdrisC-45DocString-n--13892-626-u--getDConDoc arg-0 arg-1 arg-2 arg-3 arg-4 eta-1 eta-2))) (lambda (eta-1) (lambda (eta-2) (CoreC-45Context-toFullNames arg-3 (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-3) (CoreC-45Context-u--full_HasNames_Name arg-3810 arg-3811 eta-3)))) (lambda (arg-3812) (lambda (arg-3813) (CoreC-45Context-u--resolved_HasNames_Name arg-3812 arg-3813)))) eta-1 eta-2)))) e-11 '() eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref sc1 1))) (let ((u--cdoc (let ((sc2 e-13)) (if (null? sc2) '() (let ((e-2 (car sc2))) (let ((e-3 (cdr sc2))) (let ((sc3 e-3)) (if (null? sc3) (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45DocString-header (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unsafeTextWithoutNewLines eta-1)) (DataC-45List1-forget (LibrariesC-45DataC-45StringC-45Extra-lines (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-case--pretty-5531 "Constructor" (DataC-45String-isSuffixOf "\u000a" "Constructor"))))))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-annotate (vector 4 ) e-2)) '()) (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vcat (cons (IdrisC-45DocString-header (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unsafeTextWithoutNewLines eta-1)) (DataC-45List1-forget (LibrariesC-45DataC-45StringC-45Extra-lines (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-case--pretty-5531 "Constructors" (DataC-45String-isSuffixOf "\u000a" "Constructors"))))))) (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-annotate (vector 4 ) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vcat (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-indent 2 eta-1)) e-13))) '()))) '()))))))))) (vector 1 (PreludeC-45TypesC-45List-C-43C-43 u--tot u--cdoc))))))))))))(else (lambda (eta-0) (vector 1 '()))))))) -(define IdrisC-45DocString-case--getDocsForNameC-44getExtra-1930 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (if (null? sc0) (IdrisC-45DocString-case--caseC-32blockC-32inC-32getDocsForNameC-44getExtra-1951 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (let ((sc1 arg-5)) (let ((e-17 (vector-ref sc1 18))) e-17))) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (lambda (clam-0) (let ((sc1 e-3)) (if (null? sc1) (PreludeC-45IO-u--map_Functor_IO (lambda (eta-0) (let ((sc2 eta-0)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (PreludeC-45Types-u--pure_Applicative_List e-5))))))) (IdrisC-45DocString-n--13892-632-u--getIFaceDoc arg-0 arg-1 arg-2 arg-3 arg-4 e-2) clam-0) (vector 1 '())))))))))) -(define IdrisC-45DocString-case--getDocsForNameC-44getIFaceDoc-1855 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (if (null? sc0) '() (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-hsep (cons (IdrisC-45DocString-header (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unsafeTextWithoutNewLines eta-0)) (DataC-45List1-forget (LibrariesC-45DataC-45StringC-45Extra-lines (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-case--pretty-5531 "Parameters" (DataC-45String-isSuffixOf "\u000a" "Parameters"))))))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-punctuate (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-comma) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String (CoreC-45Name-u--show_Show_Name eta-0))) arg-7)))) '()))))) -(define IdrisC-45DocString-case--getDocsForNameC-44getIFaceDoc-1708 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (if (null? sc0) '() (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vcat (cons (IdrisC-45DocString-header (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unsafeTextWithoutNewLines eta-0)) (DataC-45List1-forget (LibrariesC-45DataC-45StringC-45Extra-lines (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-case--pretty-5531 "Methods" (DataC-45String-isSuffixOf "\u000a" "Methods"))))))) (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-annotate (vector 4 ) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vcat (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-indent 2 eta-0)) arg-11))) '()))) '()))))) -(define IdrisC-45DocString-case--getDocsForNameC-44getIFaceDoc-1563 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (if (null? sc0) '() (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-3)) (if (null? sc1) (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45DocString-header (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unsafeTextWithoutNewLines eta-0)) (DataC-45List1-forget (LibrariesC-45DataC-45StringC-45Extra-lines (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-case--pretty-5531 "Implementation" (DataC-45String-isSuffixOf "\u000a" "Implementation"))))))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-annotate (vector 4 ) e-2)) '()) (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vcat (cons (IdrisC-45DocString-header (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unsafeTextWithoutNewLines eta-0)) (DataC-45List1-forget (LibrariesC-45DataC-45StringC-45Extra-lines (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-case--pretty-5531 "Implementations" (DataC-45String-isSuffixOf "\u000a" "Implementations"))))))) (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-annotate (vector 4 ) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vcat (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-indent 2 eta-0)) arg-14))) '()))) '()))))))))) -(define IdrisC-45DocString-case--getDocsForNameC-44getIFaceDoc-1479 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 ext-0) (let ((sc0 arg-13)) (if (null? sc0) (vector 1 '()) (let ((e-2 (car sc0))) (let ((sc1 e-2)) (let ((e-7 (cdr sc1))) (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (IdrisC-45DocString-n--13892-627-u--getImplDoc arg-0 arg-1 arg-2 arg-3 arg-4 eta-0 eta-1))) e-7 '() ext-0)))))))) -(define IdrisC-45DocString-case--getDocsForNameC-44getFixityDoc-1327 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (if (null? sc0) '() (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-3)) (if (null? sc1) (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45DocString-header (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unsafeTextWithoutNewLines eta-0)) (DataC-45List1-forget (LibrariesC-45DataC-45StringC-45Extra-lines (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-case--pretty-5531 "Fixity Declaration" (DataC-45String-isSuffixOf "\u000a" "Fixity Declaration"))))))) e-2) '()) (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (IdrisC-45DocString-header (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unsafeTextWithoutNewLines eta-0)) (DataC-45List1-forget (LibrariesC-45DataC-45StringC-45Extra-lines (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-case--pretty-5531 "Fixity Declarations" (DataC-45String-isSuffixOf "\u000a" "Fixity Declarations"))))))) (vector 3 )) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-indent 2 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vcat arg-8))) '()))))))))) -(define IdrisC-45DocString-case--getDocsForNameC-44getPrefixDoc-1246 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (vector 1 (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "prefix operator, level") (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String (PreludeC-45Show-u--show_Show_Nat e-1))) '())))) (else (vector 1 '())))))) -(define IdrisC-45DocString-case--getDocsForNameC-44getInfixDoc-1152 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-5 (car sc1))) (let ((e-6 (cdr sc1))) (vector 1 (PreludeC-45Types-u--pure_Applicative_List (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-hsep (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String (IdrisC-45Syntax-u--show_Show_Fixity e-5)) (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "operator,") (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--fromString_FromString_C-40DocC-32C-36annC-41 "level") (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String (PreludeC-45Show-u--show_Show_Nat e-6)) '())))))))))))) (else (vector 1 '())))))) -(define IdrisC-45DocString-case--getDocsForNameC-44getMethDoc-1020 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (if (null? sc0) (lambda (eta-0) (vector 1 '())) (let ((e-1 (car sc0))) (let ((e-2 (cdr sc0))) (lambda (clam-0) (let ((sc1 e-1)) (if (null? sc1) (vector 1 '()) (let ((e-6 (cdr sc1))) (let ((sc2 e-2)) (if (null? sc2) (let ((act-24 (IdrisC-45Resugar-pterm arg-3 arg-2 (let ((sc3 arg-5)) (let ((e-3 (vector-ref sc3 4))) e-3)) clam-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (let ((u--nm (IdrisC-45DocString-n--13892-625-u--prettyName arg-0 arg-1 arg-2 arg-3 arg-4 (let ((sc4 arg-5)) (let ((e-0 (vector-ref sc4 1))) e-0))))) (vector 1 (PreludeC-45Types-u--pure_Applicative_List (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vcat (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-annotate (vector 5 (let ((sc4 arg-5)) (let ((e-0 (vector-ref sc4 1))) e-0))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-hsep (cons (IdrisC-45DocString-fun (let ((sc4 arg-5)) (let ((e-0 (vector-ref sc4 1))) e-0)) u--nm) (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon) (cons (IdrisC-45DocString-prettyTerm e-7) '()))))) (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-annotate (vector 6 ) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vcat (PreludeC-45TypesC-45List-C-43C-43 (DataC-45List-toList (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_Maybe u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_Maybe u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_Maybe arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_Maybe i_con-0 u--funcM u--init u--input))))))))) (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (PreludeC-45Types-u--map_Functor_Maybe eta-2 eta-3))))) (lambda (eta-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-indent 2 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String (CoreC-45TT-u--show_Show_TotalReq eta-0)))) (let ((sc4 arg-5)) (let ((e-4 (vector-ref sc4 3))) e-4)))) (IdrisC-45DocString-n--13892-623-u--reflowDoc arg-0 arg-1 arg-2 arg-3 arg-4 e-6)))) '()))))))))))) (vector 1 '()))))))))))))) -(define IdrisC-45DocString-case--caseC-32blockC-32inC-32getDocsForNameC-44getDConDoc-831 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (if (null? sc0) (lambda (eta-0) (vector 1 arg-11)) (let ((e-1 (car sc0))) (let ((e-2 (cdr sc0))) (lambda (clam-0) (let ((sc1 e-1)) (if (null? sc1) (vector 1 arg-11) (let ((e-6 (cdr sc1))) (let ((sc2 e-2)) (if (null? sc2) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vcat (cons arg-11 (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-annotate (vector 6 ) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vcat (IdrisC-45DocString-n--13892-623-u--reflowDoc arg-0 arg-1 arg-2 arg-3 arg-4 e-6))) '())))) (vector 1 arg-11))))))))))))) -(define IdrisC-45DocString-case--getDocsForNameC-44prettyName-708 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-parens (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String arg-6))) (else (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String arg-6)))))) -(define IdrisC-45DocString-case--getDocsForNameC-44showTotal-661 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unsafeTextWithoutNewLines eta-0)) (DataC-45List1-forget (LibrariesC-45DataC-45StringC-45Extra-lines (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-case--pretty-5531 "" (DataC-45String-isSuffixOf "\u000a" "")))))))(else (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-C-60C-43C-43C-62 (IdrisC-45DocString-header (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unsafeTextWithoutNewLines eta-0)) (DataC-45List1-forget (LibrariesC-45DataC-45StringC-45Extra-lines (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-case--pretty-5531 "Totality" (DataC-45String-isSuffixOf "\u000a" "Totality"))))))) (CoreC-45TT-u--pretty_Pretty_Totality arg-5))))))) -(define IdrisC-45DocString-case--getDocsForPrimitive-563 (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((sc0 arg-3)) (let ((e-3 (cdr sc0))) (let ((act-24 (IdrisC-45Resugar-resugar '() arg-2 arg-1 '() e-3 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((u--typeString (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45TT-u--show_Show_Constant arg-0) (PreludeC-45TypesC-45String-C-43C-43 " : " (IdrisC-45Syntax-u--show_Show_PTerm e-5))))) (vector 1 (cons (PreludeC-45TypesC-45String-C-43C-43 u--typeString "\u000a\u0009Primitive") '())))))))))))) -(define IdrisC-45DocString-n--16564-3119-u--visible (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 ((CoreC-45Context-lookupCtxtExact arg-4 (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) e-0))) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (vector 1 (CoreC-45TT-u--C-47C-61_Eq_Visibility (let ((sc2 e-1)) (let ((e-9 (vector-ref sc2 10))) e-9)) (vector 0 ))))) (else (vector 1 1))))))))))) -(define IdrisC-45DocString-n--13892-624-u--showTotal (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (IdrisC-45DocString-case--getDocsForNameC-44showTotal-661 arg-0 arg-1 arg-2 arg-3 arg-4 arg-6 arg-5 (let ((sc0 arg-6)) (let ((e-0 (car sc0))) e-0))))) -(define IdrisC-45DocString-n--13892-635-u--showDoc (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((sc0 arg-5)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((act-24 (let ((act-24 (unbox arg-3))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact e-2 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((act-26 ((PreludeC-45Basics-flip (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (let ((act-26 (eta-0 eta-2))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc4 1))) ((eta-1 e-7) eta-2))))))))) (lambda (eta-0) (lambda (eta-1) (IdrisC-45Resugar-resugar '() arg-3 arg-2 '() eta-0 eta-1))) (lambda (eta-0) (CoreC-45Normalise-normaliseHoles arg-3 '() e-5 '() (let ((sc4 e-1)) (let ((e-24 (vector-ref sc4 3))) e-24)) eta-0))) ext-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc4 1))) (let ((u--cat (IdrisC-45DocString-n--13892-634-u--showCategory arg-0 arg-1 arg-2 arg-3 arg-4 e-1))) (let ((act-27 (CoreC-45Context-aliasName arg-3 e-2 ext-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc5 1))) (let ((u--docDecl (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-annotate (vector 5 e-2) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-hsep (cons (u--cat (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String (CoreC-45Name-u--show_Show_Name e-8))) (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon) (cons (IdrisC-45DocString-prettyTerm e-7) '()))))))) (let ((u--docText (IdrisC-45DocString-n--13892-623-u--reflowDoc arg-0 arg-1 arg-2 arg-3 arg-4 e-3))) (let ((act-28 (IdrisC-45DocString-n--13892-633-u--getExtra arg-0 arg-1 arg-2 arg-3 arg-4 e-2 e-1 ext-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-29 (IdrisC-45DocString-n--13892-631-u--getFixityDoc arg-0 arg-1 arg-2 arg-3 arg-4 e-2 ext-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc7 1))) (let ((u--docBody (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-annotate (vector 6 ) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vcat (PreludeC-45TypesC-45List-C-43C-43 u--docText (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-indent 2 eta-0)) (PreludeC-45TypesC-45List-C-43C-43 e-9 e-10))))))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vcat (cons u--docDecl (cons u--docBody '())))))))))))))))))))))))))))))) (else (CoreC-45Context-undefinedName arg-3 arg-1 e-2 ext-0))))))))))))))))))) -(define IdrisC-45DocString-n--13892-634-u--showCategory (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (lambda (eta-0) (IdrisC-45DocString-case--getDocsForNameC-44showCategory-2280 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (let ((sc0 arg-5)) (let ((e-17 (vector-ref sc0 18))) e-17)) eta-0)))) -(define IdrisC-45DocString-n--13892-623-u--reflowDoc (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 "") '())(else (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-indent 2 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Util-reflow eta-0))) (DataC-45List1-forget (LibrariesC-45DataC-45StringC-45Extra-lines arg-5)))))))) -(define IdrisC-45DocString-n--13892-625-u--prettyName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((u--root (CoreC-45Name-nameRoot arg-5))) (IdrisC-45DocString-case--getDocsForNameC-44prettyName-708 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 u--root (ParserC-45LexerC-45Source-isOpName arg-5))))) -(define IdrisC-45DocString-n--16564-3120-u--inNS (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (CoreC-45NameC-45Namespace-isParentOf arg-0 e-0))(else 1))))))(else 1))))) -(define IdrisC-45DocString-n--13892-630-u--getPrefixDoc (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (IdrisC-45DocString-case--getDocsForNameC-44getPrefixDoc-1246 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-5 (LibrariesC-45DataC-45StringMap-lookupName arg-5 (let ((sc1 e-5)) (let ((e-1 (vector-ref sc1 2))) e-1))) ext-0)))))))) -(define IdrisC-45DocString-n--13892-628-u--getMethDoc (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((IdrisC-45DocString-case--getDocsForNameC-44getMethDoc-1020 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-5 (LibrariesC-45DataC-45ANameMap-lookupName (let ((sc1 arg-5)) (let ((e-0 (vector-ref sc1 1))) e-0)) (let ((sc1 e-5)) (let ((e-4 (vector-ref sc1 5))) e-4)))) ext-0)))))))) -(define IdrisC-45DocString-n--13892-629-u--getInfixDoc (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (IdrisC-45DocString-case--getDocsForNameC-44getInfixDoc-1152 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-5 (LibrariesC-45DataC-45StringMap-lookupName arg-5 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0)))))))) -(define IdrisC-45DocString-n--13892-627-u--getImplDoc (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (let ((act-24 (unbox arg-3))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact arg-5 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((act-26 ((PreludeC-45Basics-flip (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (let ((act-26 (eta-0 eta-2))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) ((eta-1 e-7) eta-2))))))))) (lambda (eta-0) (lambda (eta-1) (IdrisC-45Resugar-resugar '() arg-3 arg-2 '() eta-0 eta-1))) (lambda (eta-0) (CoreC-45Normalise-normaliseHoles arg-3 '() e-5 '() (let ((sc3 e-1)) (let ((e-2 (vector-ref sc3 3))) e-2)) eta-0))) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-annotate (vector 5 arg-5) (IdrisC-45DocString-prettyTerm e-7)) '()))))))))) (else (vector 1 '())))))))))))))))) -(define IdrisC-45DocString-n--13892-632-u--getIFaceDoc (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((u--params (IdrisC-45DocString-case--getDocsForNameC-44getIFaceDoc-1855 arg-0 arg-1 arg-2 arg-3 arg-4 e-2 e-3 (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 3))) e-7))))) (lambda (eta-0) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-1) (lambda (eta-2) (IdrisC-45Resugar-pterm arg-3 arg-2 eta-1 eta-2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 4))) e-6)) '() eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((u--constraints (let ((sc2 e-5)) (if (null? sc2) '() (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-hsep (cons (IdrisC-45DocString-header (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vsep (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-unsafeTextWithoutNewLines eta-1)) (DataC-45List1-forget (LibrariesC-45DataC-45StringC-45Extra-lines (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-case--pretty-5531 "Constraints" (DataC-45String-isSuffixOf "\u000a" "Constraints"))))))) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-punctuate (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-comma) (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--pretty_Pretty_String (IdrisC-45Syntax-u--show_Show_PTerm eta-1))) e-5)))) '()))))) (let ((act-25 (CoreC-45Core-traverseC-39 (lambda (eta-1) (lambda (eta-2) (IdrisC-45DocString-n--13892-628-u--getMethDoc arg-0 arg-1 arg-2 arg-3 arg-4 eta-1 eta-2))) (let ((sc2 e-3)) (let ((e-4 (vector-ref sc2 5))) e-4)) '() eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((u--meths (IdrisC-45DocString-case--getDocsForNameC-44getIFaceDoc-1708 arg-0 arg-1 arg-2 arg-3 arg-4 e-2 e-3 u--params e-5 u--constraints e-6 (PreludeC-45Interfaces-concat (cons (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (cons (lambda (arg-6) (lambda (arg-7) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-6 arg-7))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) e-6)))) (let ((act-26 (CoreC-45Context-getSearchData arg-3 arg-1 1 e-2 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (IdrisC-45DocString-case--getDocsForNameC-44getIFaceDoc-1479 arg-0 arg-1 arg-2 arg-3 arg-4 e-2 e-3 u--params e-5 u--constraints e-6 u--meths e-7 (let ((sc4 e-7)) (let ((e-1 (cdr sc4))) e-1)) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((u--insts (IdrisC-45DocString-case--getDocsForNameC-44getIFaceDoc-1563 arg-0 arg-1 arg-2 arg-3 arg-4 e-2 e-3 u--params e-5 u--constraints e-6 u--meths e-7 e-8 (PreludeC-45Interfaces-concat (cons (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (cons (lambda (arg-6) (lambda (arg-7) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-6 arg-7))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) e-8)))) (vector 1 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-vcat (PreludeC-45TypesC-45List-C-43C-43 u--params (PreludeC-45TypesC-45List-C-43C-43 u--constraints (PreludeC-45TypesC-45List-C-43C-43 u--meths u--insts))))))))))))))))))))))))))))))))))) -(define IdrisC-45DocString-n--13892-631-u--getFixityDoc (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (IdrisC-45DocString-n--13892-629-u--getInfixDoc arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (IdrisC-45DocString-n--13892-630-u--getPrefixDoc arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 (IdrisC-45DocString-case--getDocsForNameC-44getFixityDoc-1327 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-5 e-6 (PreludeC-45TypesC-45List-C-43C-43 (DataC-45List-toList (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) e-5) (DataC-45List-toList (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) e-6)))))))))))))))) -(define IdrisC-45DocString-n--13892-633-u--getExtra (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((IdrisC-45DocString-case--getDocsForNameC-44getExtra-1930 arg-0 arg-1 arg-2 arg-3 arg-4 arg-6 arg-5 e-5 (LibrariesC-45DataC-45ANameMap-lookupName arg-5 (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 3))) e-2)))) ext-0)))))))) -(define IdrisC-45DocString-n--13892-626-u--getDConDoc (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (let ((act-24 (unbox arg-3))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((CoreC-45Context-lookupCtxtExact arg-5 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((act-26 (let ((act-26 (unbox arg-2))) (vector 1 act-26)))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((PreludeC-45Basics-flip (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (let ((act-27 (eta-0 eta-2))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) ((eta-1 e-8) eta-2))))))))) (lambda (eta-0) (lambda (eta-1) (IdrisC-45Resugar-resugar '() arg-3 arg-2 '() eta-0 eta-1))) (lambda (eta-0) (CoreC-45Normalise-normaliseHoles arg-3 '() e-5 '() (let ((sc4 e-1)) (let ((e-2 (vector-ref sc4 3))) e-2)) eta-0))) ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((u--conWithTypeDoc (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-annotate (vector 5 arg-5) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-hsep (cons (IdrisC-45DocString-dCon (IdrisC-45DocString-n--13892-625-u--prettyName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5)) (cons (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon) (cons (IdrisC-45DocString-prettyTerm e-8) '()))))))) (let ((_-0 (vector 1 e-1))) ((IdrisC-45DocString-case--caseC-32blockC-32inC-32getDocsForNameC-44getDConDoc-831 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-5 e-1 _-0 e-7 e-8 u--conWithTypeDoc (LibrariesC-45DataC-45ANameMap-lookupName arg-5 (let ((sc5 e-7)) (let ((e-4 (vector-ref sc5 5))) e-4)))) ext-0))))))))))))))) (else (vector 1 (vector 0 ))))))))))))))))) -(define IdrisC-45DocString-tCon (lambda (arg-0 ext-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-annotate (vector 0 arg-0) ext-0))) -(define IdrisC-45DocString-summarise (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (unbox arg-0))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((CoreC-45Context-lookupCtxtExact arg-2 (let ((sc2 e-6)) (let ((e-0 (vector-ref sc2 1))) e-0))) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((u--doc (let ((_-0 (vector 1 e-1))) (IdrisC-45DocString-case--caseC-32blockC-32inC-32summarise-2962 arg-2 arg-1 arg-0 e-5 e-6 e-1 _-0 (LibrariesC-45DataC-45ANameMap-lookupName arg-2 (let ((sc4 e-5)) (let ((e-4 (vector-ref sc4 5))) e-4))))))) (let ((act-27 (CoreC-45Normalise-normaliseHoles arg-0 '() e-6 '() (let ((sc4 e-1)) (let ((e-2 (vector-ref sc4 3))) e-2)) ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (IdrisC-45Resugar-resugar '() arg-0 arg-1 '() e-8 ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (vector 1 (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-nameRoot arg-2) (PreludeC-45TypesC-45String-C-43C-43 " : " (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--show_Show_PTerm e-9) (PreludeC-45Types-maybe (lambda () "") (lambda () (lambda (u--d) (PreludeC-45TypesC-45String-C-43C-43 "\u000a\u0009" u--d))) u--doc))))))))))))))))))(else (vector 1 ""))))))))))))))))))))) -(define IdrisC-45DocString-styleAnn (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45RenderC-45Terminal-color (vector 12 ))) ((1) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45RenderC-45Terminal-color (vector 9 ))) ((2) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45RenderC-45Terminal-color (vector 10 ))) ((3) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45RenderC-45Terminal-underline))(else '()))))) -(define IdrisC-45DocString-prettyTerm (lambda (ext-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-reAnnotate (lambda (eta-0) (vector 7 eta-0)) (IdrisC-45Pretty-prettyTerm ext-0)))) -(define IdrisC-45DocString-header (lambda (arg-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-u--C-60C-43C-62_Semigroup_C-40DocC-32C-36annC-41 (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-annotate (vector 3 ) arg-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Symbols-colon)))) -(define IdrisC-45DocString-getDocsForPrimitive (lambda (arg-0 arg-1 arg-2 ext-0) (IdrisC-45DocString-case--getDocsForPrimitive-563 arg-2 arg-1 arg-0 (TTImpC-45ElabC-45Prim-checkPrim (vector 1 ) arg-2) ext-0))) -(define IdrisC-45DocString-getDocsForPTerm (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (IdrisC-45DocString-getDocsForName arg-0 arg-1 arg-2 e-0 e-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (IdrisC-45PrettyC-45Render-render arg-0 (lambda (eta-1) (IdrisC-45DocString-styleAnn eta-1)) e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (cons e-6 '())))))))))))))))) ((15) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (IdrisC-45DocString-getDocsForPrimitive arg-1 arg-2 e-3 eta-0)))) ((22) (lambda (eta-0) (vector 1 (cons "Type : Type\u000a\u0009The type of all types is Type. The type of Type is Type." '())))) ((33) (lambda (eta-0) (vector 1 (cons "String Literal\u000a\u0009Desugars to a fromString call" '())))) ((38) (lambda (eta-0) (vector 1 (cons "List Literal\u000a\u0009Desugars to (::) and Nil" '())))) ((39) (lambda (eta-0) (vector 1 (cons "Pair Literal\u000a\u0009Desugars to MkPair or Pair" '())))) ((40) (lambda (eta-0) (vector 1 (cons "Dependant Pair Literal\u000a\u0009Desugars to MkDPair or DPair" '())))) ((41) (lambda (eta-0) (vector 1 (cons "Unit Literal\u000a\u0009Desugars to MkUnit or Unit" '()))))(else (lambda (eta-0) (vector 1 (cons (PreludeC-45TypesC-45String-C-43C-43 "Docs not implemented for " (PreludeC-45TypesC-45String-C-43C-43 (IdrisC-45Syntax-u--show_Show_PTerm arg-3) " yet")) '())))))))) -(define IdrisC-45DocString-getDocsForName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((u--extra (IdrisC-45DocString-case--getDocsForName-2748 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 (CoreC-45Name-nameRoot arg-4)))) (let ((act-26 ((CoreC-45Context-lookupCtxtName arg-4 (let ((sc2 e-6)) (let ((e-0 (vector-ref sc2 1))) e-0))) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) ((IdrisC-45DocString-case--getDocsForName-2600 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 u--extra e-7 (PreludeC-45TypesC-45List-C-43C-43 u--extra (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-fst eta-0)) e-7))) ext-0))))))))))))))))))) -(define IdrisC-45DocString-getContents (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (CoreC-45Context-allNames (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0)) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((u--allNs (DataC-45List-filter (lambda (eta-0) (IdrisC-45DocString-n--16564-3120-u--inNS arg-2 arg-1 arg-0 eta-0)) e-6))) (let ((act-26 (CoreC-45Core-filterM (lambda (eta-0) (lambda (eta-1) (IdrisC-45DocString-n--16564-3119-u--visible arg-2 arg-1 arg-0 e-5 eta-0 eta-1))) u--allNs ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (IdrisC-45DocString-summarise arg-0 arg-1 eta-0 eta-1))) (DataC-45List-sort (vector 0 (cons (lambda (arg-3) (lambda (arg-4) (CoreC-45Name-u--C-61C-61_Eq_Name arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (CoreC-45Name-u--C-47C-61_Eq_Name arg-4 arg-5)))) (lambda (arg-371) (lambda (arg-372) (CoreC-45Name-u--compare_Ord_Name arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (CoreC-45Name-u--C-60_Ord_Name arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (CoreC-45Name-u--C-62_Ord_Name arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (CoreC-45Name-u--C-60C-61_Ord_Name arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (CoreC-45Name-u--C-62C-61_Ord_Name arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (CoreC-45Name-u--max_Ord_Name arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (CoreC-45Name-u--min_Ord_Name arg-383 arg-384)))) e-7) '() ext-0))))))))))))))))))) -(define IdrisC-45DocString-fun (lambda (arg-0 ext-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-annotate (vector 2 arg-0) ext-0))) -(define IdrisC-45DocString-dCon (lambda (ext-0) (LibrariesC-45TextC-45PrettyPrintC-45PrettyprinterC-45Doc-annotate (vector 1 ) ext-0))) -(define IdrisC-45DocString-addDocStringNS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (CoreC-45Context-inCurrentNS arg-0 arg-3 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((u--nC-39 (let ((sc1 e-5)) (case (vector-ref sc1 0) ((0) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (vector 0 (CoreC-45NameC-45Namespace-C-60C-46C-62 e-0 arg-2) e-1))))(else (vector 0 arg-2 e-5)))))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (set-box! arg-1 (let ((sc2 e-6)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (let ((e-3 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-10 (vector-ref sc2 6))) (let ((e-9 (vector-ref sc2 7))) (let ((e-7 (vector-ref sc2 8))) (let ((e-8 (vector-ref sc2 9))) (vector 0 e-0 e-1 e-2 e-3 (LibrariesC-45DataC-45ANameMap-addName u--nC-39 arg-4 e-4) (LibrariesC-45DataC-45NameMap-insert u--nC-39 (vector 0 ) e-10) e-9 e-7 e-8)))))))))))))) (vector 1 act-26))))))))))))))) -(define IdrisC-45DocString-addDocString (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (CoreC-45Context-inCurrentNS arg-0 arg-2 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (CoreC-45ContextC-45Log-log arg-0 "doc.record" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))))))))))))))))))))))))))))))))))))))))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Adding doc for " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name arg-2) (PreludeC-45TypesC-45String-C-43C-43 " (aka " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45Name-u--show_Show_Name e-5) " in current NS)"))))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 (let ((act-26 (unbox arg-1))) (vector 1 act-26)))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (set-box! arg-1 (let ((sc3 e-7)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-2 (vector-ref sc3 3))) (let ((e-3 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-11 (vector-ref sc3 6))) (let ((e-10 (vector-ref sc3 7))) (let ((e-9 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (vector 0 e-0 e-1 e-2 e-3 (LibrariesC-45DataC-45ANameMap-addName e-5 arg-3 e-4) (LibrariesC-45DataC-45NameMap-insert e-5 (vector 0 ) e-11) e-10 e-9 e-8)))))))))))))) (vector 1 act-27)))))))))))))))))) -(define IdrisC-45ProcessIdr-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32process-2165 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 ext-0) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (let ((act-24 (let ((act-24 (unbox arg-6))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45Context-getDirs arg-6 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((CoreC-45Directory-pathToNS (let ((sc3 e-6)) (let ((e-0 (vector-ref sc3 1))) e-0)) (let ((sc3 e-6)) (let ((e-1 (vector-ref sc3 2))) e-1)) arg-0) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (CoreC-45Directory-makeBuildDirectory arg-6 e-7 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-28 (let ((act-28 (let ((act-28 (unbox arg-3))) (vector 1 act-28)))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (CoreC-45Binary-writeToTTC (cons (cons (lambda (arg-3810) (lambda (arg-3811) (lambda (eta-0) (IdrisC-45Syntax-u--full_HasNames_SyntaxInfo arg-3810 arg-3811 eta-0)))) (lambda (arg-3812) (lambda (arg-3813) (lambda (eta-0) (IdrisC-45Syntax-u--resolved_HasNames_SyntaxInfo arg-3812 arg-3813 eta-0))))) (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (IdrisC-45Syntax-u--toBuf_TTC_SyntaxInfo arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (IdrisC-45Syntax-u--fromBuf_TTC_SyntaxInfo arg-10258 eta-0))))) arg-6 arg-4 e-9 arg-9 ext-0)))))))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((act-29 (CoreC-45Directory-getTTCFileName arg-6 arg-0 "ttm" ext-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-30 (CoreC-45Metadata-writeToTTM arg-6 arg-5 e-10 ext-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (vector 1 '()))))))))))))))))))))))))))))))))) (else (vector 1 arg-10)))))) -(define IdrisC-45ProcessIdr-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32processMod-1792 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (lambda () (lambda (eta-0) (let ((act-24 (CoreC-45Context-getDirs arg-8 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((CoreC-45Directory-pathToNS (let ((sc2 e-5)) (let ((e-13 (vector-ref sc2 1))) e-13)) (let ((sc2 e-5)) (let ((e-12 (vector-ref sc2 2))) e-12)) e-0) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 (CoreC-45NameC-45Namespace-u--C-47C-61_Eq_ModuleIdent arg-17 e-6))) (cond ((equal? sc3 0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 47 (let ((sc4 arg-18)) (let ((e-9 (vector-ref sc4 1))) e-9)) (PreludeC-45TypesC-45String-C-43C-43 "Module name " (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-u--show_Show_ModuleIdent arg-17) (PreludeC-45TypesC-45String-C-43C-43 " does not match file name " e-0)))) eta-0)) (else (vector 1 (vector 0 ))))))))))))))))))) (else (lambda () (lambda (eta-0) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 "No file name") eta-0)))))))) -(define IdrisC-45ProcessIdr-case--processMod-1541 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 ext-0) (let ((sc0 arg-18)) (cond ((equal? sc0 0) (let ((act-24 (CoreC-45Context-setNS arg-8 (CoreC-45NameC-45Namespace-miAsNamespace arg-17) ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 0 ))))))) (else (let ((act-24 (IdrisC-45REPLC-45Common-iputStrLn arg-4 arg-1 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (CoreC-45ContextC-45Log-logTime arg-8 (lambda () (PreludeC-45TypesC-45String-C-43C-43 "++ Parsing " arg-3)) (lambda (eta-0) (vector 1 (ParserC-45Source-runParser 1 arg-3 (ParserC-45Unlit-isLitFile arg-3) arg-0 (vector 9 1 1 (IdrisC-45Parser-prog arg-3) (lambda (u--p) (vector 11 1 1 (ParserC-45RuleC-45Source-eoi) (vector 0 u--p))))))) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-2 (vector-ref sc3 1))) (let ((act-26 (CoreC-45Context-initHash arg-8 ext-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((act-27 (CoreC-45Core-traverse_ (lambda (eta-0) (IdrisC-45ProcessIdr-addPublicHash arg-8 eta-0)) (DataC-45List-sort (vector 0 (cons (lambda (arg-19) (lambda (arg-20) (PreludeC-45EqOrd-u--C-61C-61_Eq_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (arg-21) (lambda (arg-22) (PreludeC-45EqOrd-u--C-61C-61_Eq_Bool arg-21 arg-22))) (lambda (arg-21) (lambda (arg-22) (PreludeC-45EqOrd-u--C-47C-61_Eq_Bool arg-21 arg-22)))) (cons (lambda (arg-21) (lambda (arg-22) (PreludeC-45EqOrd-u--C-61C-61_Eq_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (arg-23) (lambda (arg-24) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (CoreC-45NameC-45Namespace-u--C-47C-61_Eq_Namespace arg-23 arg-24)))) (cons (lambda (arg-23) (lambda (arg-24) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-23 arg-24)))) arg-21 arg-22))) (lambda (arg-21) (lambda (arg-22) (PreludeC-45EqOrd-u--C-47C-61_Eq_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (arg-23) (lambda (arg-24) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (CoreC-45NameC-45Namespace-u--C-47C-61_Eq_Namespace arg-23 arg-24)))) (cons (lambda (arg-23) (lambda (arg-24) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-23 arg-24)))) arg-21 arg-22)))) arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (PreludeC-45EqOrd-u--C-47C-61_Eq_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (arg-21) (lambda (arg-22) (PreludeC-45EqOrd-u--C-61C-61_Eq_Bool arg-21 arg-22))) (lambda (arg-21) (lambda (arg-22) (PreludeC-45EqOrd-u--C-47C-61_Eq_Bool arg-21 arg-22)))) (cons (lambda (arg-21) (lambda (arg-22) (PreludeC-45EqOrd-u--C-61C-61_Eq_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (arg-23) (lambda (arg-24) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (CoreC-45NameC-45Namespace-u--C-47C-61_Eq_Namespace arg-23 arg-24)))) (cons (lambda (arg-23) (lambda (arg-24) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-23 arg-24)))) arg-21 arg-22))) (lambda (arg-21) (lambda (arg-22) (PreludeC-45EqOrd-u--C-47C-61_Eq_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (arg-23) (lambda (arg-24) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (CoreC-45NameC-45Namespace-u--C-47C-61_Eq_Namespace arg-23 arg-24)))) (cons (lambda (arg-23) (lambda (arg-24) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-23 arg-24)))) arg-21 arg-22)))) arg-19 arg-20)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector 0 (cons (lambda (arg-19) (lambda (arg-20) (PreludeC-45EqOrd-u--C-61C-61_Eq_Bool arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (PreludeC-45EqOrd-u--C-47C-61_Eq_Bool arg-19 arg-20)))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--compare_Ord_Bool arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Bool arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Bool arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Bool arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Bool arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Bool arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Bool arg-383 arg-384)))) (vector 0 (cons (lambda (arg-19) (lambda (arg-20) (PreludeC-45EqOrd-u--C-61C-61_Eq_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (arg-21) (lambda (arg-22) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace arg-21 arg-22))) (lambda (arg-21) (lambda (arg-22) (CoreC-45NameC-45Namespace-u--C-47C-61_Eq_Namespace arg-21 arg-22)))) (cons (lambda (arg-21) (lambda (arg-22) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-21 arg-22))) (lambda (arg-21) (lambda (arg-22) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-21 arg-22)))) arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (PreludeC-45EqOrd-u--C-47C-61_Eq_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (arg-21) (lambda (arg-22) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace arg-21 arg-22))) (lambda (arg-21) (lambda (arg-22) (CoreC-45NameC-45Namespace-u--C-47C-61_Eq_Namespace arg-21 arg-22)))) (cons (lambda (arg-21) (lambda (arg-22) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-21 arg-22))) (lambda (arg-21) (lambda (arg-22) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-21 arg-22)))) arg-19 arg-20)))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--compare_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector 0 (cons (lambda (arg-19) (lambda (arg-20) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (CoreC-45NameC-45Namespace-u--C-47C-61_Eq_Namespace arg-19 arg-20)))) (lambda (arg-375) (lambda (arg-376) (CoreC-45NameC-45Namespace-u--compare_Ord_Namespace arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (CoreC-45NameC-45Namespace-u--C-60_Ord_Namespace arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (CoreC-45NameC-45Namespace-u--C-62_Ord_Namespace arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (CoreC-45NameC-45Namespace-u--C-60C-61_Ord_Namespace arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (CoreC-45NameC-45Namespace-u--C-62C-61_Ord_Namespace arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (CoreC-45NameC-45Namespace-u--max_Ord_Namespace arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (CoreC-45NameC-45Namespace-u--min_Ord_Namespace arg-383 arg-384)))) (vector 0 (cons (lambda (arg-19) (lambda (arg-20) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-19 arg-20)))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--compare_Ord_Int arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Int arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Int arg-383 arg-384)))) arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector 0 (cons (lambda (arg-19) (lambda (arg-20) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (CoreC-45NameC-45Namespace-u--C-47C-61_Eq_Namespace arg-19 arg-20)))) (lambda (arg-375) (lambda (arg-376) (CoreC-45NameC-45Namespace-u--compare_Ord_Namespace arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (CoreC-45NameC-45Namespace-u--C-60_Ord_Namespace arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (CoreC-45NameC-45Namespace-u--C-62_Ord_Namespace arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (CoreC-45NameC-45Namespace-u--C-60C-61_Ord_Namespace arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (CoreC-45NameC-45Namespace-u--C-62C-61_Ord_Namespace arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (CoreC-45NameC-45Namespace-u--max_Ord_Namespace arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (CoreC-45NameC-45Namespace-u--min_Ord_Namespace arg-383 arg-384)))) (vector 0 (cons (lambda (arg-19) (lambda (arg-20) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-19 arg-20)))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--compare_Ord_Int arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Int arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Int arg-383 arg-384)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector 0 (cons (lambda (arg-19) (lambda (arg-20) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (CoreC-45NameC-45Namespace-u--C-47C-61_Eq_Namespace arg-19 arg-20)))) (lambda (arg-373) (lambda (arg-374) (CoreC-45NameC-45Namespace-u--compare_Ord_Namespace arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (CoreC-45NameC-45Namespace-u--C-60_Ord_Namespace arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (CoreC-45NameC-45Namespace-u--C-62_Ord_Namespace arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (CoreC-45NameC-45Namespace-u--C-60C-61_Ord_Namespace arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (CoreC-45NameC-45Namespace-u--C-62C-61_Ord_Namespace arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (CoreC-45NameC-45Namespace-u--max_Ord_Namespace arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (CoreC-45NameC-45Namespace-u--min_Ord_Namespace arg-383 arg-384)))) (vector 0 (cons (lambda (arg-19) (lambda (arg-20) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-19 arg-20)))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--compare_Ord_Int arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Int arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Int arg-383 arg-384)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector 0 (cons (lambda (arg-19) (lambda (arg-20) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (CoreC-45NameC-45Namespace-u--C-47C-61_Eq_Namespace arg-19 arg-20)))) (lambda (arg-373) (lambda (arg-374) (CoreC-45NameC-45Namespace-u--compare_Ord_Namespace arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (CoreC-45NameC-45Namespace-u--C-60_Ord_Namespace arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (CoreC-45NameC-45Namespace-u--C-62_Ord_Namespace arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (CoreC-45NameC-45Namespace-u--C-60C-61_Ord_Namespace arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (CoreC-45NameC-45Namespace-u--C-62C-61_Ord_Namespace arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (CoreC-45NameC-45Namespace-u--max_Ord_Namespace arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (CoreC-45NameC-45Namespace-u--min_Ord_Namespace arg-383 arg-384)))) (vector 0 (cons (lambda (arg-19) (lambda (arg-20) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-19 arg-20)))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--compare_Ord_Int arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Int arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Int arg-383 arg-384)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector 0 (cons (lambda (arg-19) (lambda (arg-20) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (CoreC-45NameC-45Namespace-u--C-47C-61_Eq_Namespace arg-19 arg-20)))) (lambda (arg-373) (lambda (arg-374) (CoreC-45NameC-45Namespace-u--compare_Ord_Namespace arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (CoreC-45NameC-45Namespace-u--C-60_Ord_Namespace arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (CoreC-45NameC-45Namespace-u--C-62_Ord_Namespace arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (CoreC-45NameC-45Namespace-u--C-60C-61_Ord_Namespace arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (CoreC-45NameC-45Namespace-u--C-62C-61_Ord_Namespace arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (CoreC-45NameC-45Namespace-u--max_Ord_Namespace arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (CoreC-45NameC-45Namespace-u--min_Ord_Namespace arg-383 arg-384)))) (vector 0 (cons (lambda (arg-19) (lambda (arg-20) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-19 arg-20)))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--compare_Ord_Int arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Int arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Int arg-383 arg-384)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector 0 (cons (lambda (arg-19) (lambda (arg-20) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (CoreC-45NameC-45Namespace-u--C-47C-61_Eq_Namespace arg-19 arg-20)))) (lambda (arg-373) (lambda (arg-374) (CoreC-45NameC-45Namespace-u--compare_Ord_Namespace arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (CoreC-45NameC-45Namespace-u--C-60_Ord_Namespace arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (CoreC-45NameC-45Namespace-u--C-62_Ord_Namespace arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (CoreC-45NameC-45Namespace-u--C-60C-61_Ord_Namespace arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (CoreC-45NameC-45Namespace-u--C-62C-61_Ord_Namespace arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (CoreC-45NameC-45Namespace-u--max_Ord_Namespace arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (CoreC-45NameC-45Namespace-u--min_Ord_Namespace arg-383 arg-384)))) (vector 0 (cons (lambda (arg-19) (lambda (arg-20) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-19 arg-20)))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--compare_Ord_Int arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--max_Ord_Int arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Int arg-383 arg-384)))) arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector 0 (cons (lambda (arg-19) (lambda (arg-20) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (CoreC-45NameC-45Namespace-u--C-47C-61_Eq_Namespace arg-19 arg-20)))) (lambda (arg-373) (lambda (arg-374) (CoreC-45NameC-45Namespace-u--compare_Ord_Namespace arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (CoreC-45NameC-45Namespace-u--C-60_Ord_Namespace arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (CoreC-45NameC-45Namespace-u--C-62_Ord_Namespace arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (CoreC-45NameC-45Namespace-u--C-60C-61_Ord_Namespace arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (CoreC-45NameC-45Namespace-u--C-62C-61_Ord_Namespace arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (CoreC-45NameC-45Namespace-u--max_Ord_Namespace arg-381 arg-382))) (lambda (arg-385) (lambda (arg-386) (CoreC-45NameC-45Namespace-u--min_Ord_Namespace arg-385 arg-386)))) (vector 0 (cons (lambda (arg-19) (lambda (arg-20) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-19 arg-20)))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--compare_Ord_Int arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Int arg-381 arg-382))) (lambda (arg-385) (lambda (arg-386) (PreludeC-45EqOrd-u--min_Ord_Int arg-385 arg-386)))) arg-383 arg-384)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector 0 (cons (lambda (arg-19) (lambda (arg-20) (PreludeC-45EqOrd-u--C-61C-61_Eq_Bool arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (PreludeC-45EqOrd-u--C-47C-61_Eq_Bool arg-19 arg-20)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Bool arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-60_Ord_Bool arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Bool arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Bool arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Bool arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Bool arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Bool arg-383 arg-384)))) (vector 0 (cons (lambda (arg-19) (lambda (arg-20) (PreludeC-45EqOrd-u--C-61C-61_Eq_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (arg-21) (lambda (arg-22) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace arg-21 arg-22))) (lambda (arg-21) (lambda (arg-22) (CoreC-45NameC-45Namespace-u--C-47C-61_Eq_Namespace arg-21 arg-22)))) (cons (lambda (arg-21) (lambda (arg-22) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-21 arg-22))) (lambda (arg-21) (lambda (arg-22) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-21 arg-22)))) arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (PreludeC-45EqOrd-u--C-47C-61_Eq_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (arg-21) (lambda (arg-22) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace arg-21 arg-22))) (lambda (arg-21) (lambda (arg-22) (CoreC-45NameC-45Namespace-u--C-47C-61_Eq_Namespace arg-21 arg-22)))) (cons (lambda (arg-21) (lambda (arg-22) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-21 arg-22))) (lambda (arg-21) (lambda (arg-22) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-21 arg-22)))) arg-19 arg-20)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector 0 (cons (lambda (arg-19) (lambda (arg-20) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (CoreC-45NameC-45Namespace-u--C-47C-61_Eq_Namespace arg-19 arg-20)))) (lambda (arg-375) (lambda (arg-376) (CoreC-45NameC-45Namespace-u--compare_Ord_Namespace arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (CoreC-45NameC-45Namespace-u--C-60_Ord_Namespace arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (CoreC-45NameC-45Namespace-u--C-62_Ord_Namespace arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (CoreC-45NameC-45Namespace-u--C-60C-61_Ord_Namespace arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (CoreC-45NameC-45Namespace-u--C-62C-61_Ord_Namespace arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (CoreC-45NameC-45Namespace-u--max_Ord_Namespace arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (CoreC-45NameC-45Namespace-u--min_Ord_Namespace arg-383 arg-384)))) (vector 0 (cons (lambda (arg-19) (lambda (arg-20) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-19 arg-20)))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--compare_Ord_Int arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Int arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Int arg-383 arg-384)))) arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-60_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector 0 (cons (lambda (arg-19) (lambda (arg-20) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (CoreC-45NameC-45Namespace-u--C-47C-61_Eq_Namespace arg-19 arg-20)))) (lambda (arg-371) (lambda (arg-372) (CoreC-45NameC-45Namespace-u--compare_Ord_Namespace arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (CoreC-45NameC-45Namespace-u--C-60_Ord_Namespace arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (CoreC-45NameC-45Namespace-u--C-62_Ord_Namespace arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (CoreC-45NameC-45Namespace-u--C-60C-61_Ord_Namespace arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (CoreC-45NameC-45Namespace-u--C-62C-61_Ord_Namespace arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (CoreC-45NameC-45Namespace-u--max_Ord_Namespace arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (CoreC-45NameC-45Namespace-u--min_Ord_Namespace arg-383 arg-384)))) (vector 0 (cons (lambda (arg-19) (lambda (arg-20) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-19 arg-20)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Int arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Int arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Int arg-383 arg-384)))) arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector 0 (cons (lambda (arg-19) (lambda (arg-20) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (CoreC-45NameC-45Namespace-u--C-47C-61_Eq_Namespace arg-19 arg-20)))) (lambda (arg-371) (lambda (arg-372) (CoreC-45NameC-45Namespace-u--compare_Ord_Namespace arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (CoreC-45NameC-45Namespace-u--C-60_Ord_Namespace arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (CoreC-45NameC-45Namespace-u--C-62_Ord_Namespace arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (CoreC-45NameC-45Namespace-u--C-60C-61_Ord_Namespace arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (CoreC-45NameC-45Namespace-u--C-62C-61_Ord_Namespace arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (CoreC-45NameC-45Namespace-u--max_Ord_Namespace arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (CoreC-45NameC-45Namespace-u--min_Ord_Namespace arg-383 arg-384)))) (vector 0 (cons (lambda (arg-19) (lambda (arg-20) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-19 arg-20)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Int arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Int arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Int arg-383 arg-384)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector 0 (cons (lambda (arg-19) (lambda (arg-20) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (CoreC-45NameC-45Namespace-u--C-47C-61_Eq_Namespace arg-19 arg-20)))) (lambda (arg-371) (lambda (arg-372) (CoreC-45NameC-45Namespace-u--compare_Ord_Namespace arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (CoreC-45NameC-45Namespace-u--C-60_Ord_Namespace arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (CoreC-45NameC-45Namespace-u--C-62_Ord_Namespace arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (CoreC-45NameC-45Namespace-u--C-60C-61_Ord_Namespace arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (CoreC-45NameC-45Namespace-u--C-62C-61_Ord_Namespace arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (CoreC-45NameC-45Namespace-u--max_Ord_Namespace arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (CoreC-45NameC-45Namespace-u--min_Ord_Namespace arg-383 arg-384)))) (vector 0 (cons (lambda (arg-19) (lambda (arg-20) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-19 arg-20)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Int arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Int arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Int arg-383 arg-384)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector 0 (cons (lambda (arg-19) (lambda (arg-20) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (CoreC-45NameC-45Namespace-u--C-47C-61_Eq_Namespace arg-19 arg-20)))) (lambda (arg-371) (lambda (arg-372) (CoreC-45NameC-45Namespace-u--compare_Ord_Namespace arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (CoreC-45NameC-45Namespace-u--C-60_Ord_Namespace arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (CoreC-45NameC-45Namespace-u--C-62_Ord_Namespace arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (CoreC-45NameC-45Namespace-u--C-60C-61_Ord_Namespace arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (CoreC-45NameC-45Namespace-u--C-62C-61_Ord_Namespace arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (CoreC-45NameC-45Namespace-u--max_Ord_Namespace arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (CoreC-45NameC-45Namespace-u--min_Ord_Namespace arg-383 arg-384)))) (vector 0 (cons (lambda (arg-19) (lambda (arg-20) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-19 arg-20)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Int arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Int arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Int arg-383 arg-384)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector 0 (cons (lambda (arg-19) (lambda (arg-20) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (CoreC-45NameC-45Namespace-u--C-47C-61_Eq_Namespace arg-19 arg-20)))) (lambda (arg-371) (lambda (arg-372) (CoreC-45NameC-45Namespace-u--compare_Ord_Namespace arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (CoreC-45NameC-45Namespace-u--C-60_Ord_Namespace arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (CoreC-45NameC-45Namespace-u--C-62_Ord_Namespace arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (CoreC-45NameC-45Namespace-u--C-60C-61_Ord_Namespace arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (CoreC-45NameC-45Namespace-u--C-62C-61_Ord_Namespace arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (CoreC-45NameC-45Namespace-u--max_Ord_Namespace arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (CoreC-45NameC-45Namespace-u--min_Ord_Namespace arg-383 arg-384)))) (vector 0 (cons (lambda (arg-19) (lambda (arg-20) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-19 arg-20)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Int arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--max_Ord_Int arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Int arg-383 arg-384)))) arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector 0 (cons (lambda (arg-19) (lambda (arg-20) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (CoreC-45NameC-45Namespace-u--C-47C-61_Eq_Namespace arg-19 arg-20)))) (lambda (arg-371) (lambda (arg-372) (CoreC-45NameC-45Namespace-u--compare_Ord_Namespace arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (CoreC-45NameC-45Namespace-u--C-60_Ord_Namespace arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (CoreC-45NameC-45Namespace-u--C-62_Ord_Namespace arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (CoreC-45NameC-45Namespace-u--C-60C-61_Ord_Namespace arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (CoreC-45NameC-45Namespace-u--C-62C-61_Ord_Namespace arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (CoreC-45NameC-45Namespace-u--max_Ord_Namespace arg-381 arg-382))) (lambda (arg-385) (lambda (arg-386) (CoreC-45NameC-45Namespace-u--min_Ord_Namespace arg-385 arg-386)))) (vector 0 (cons (lambda (arg-19) (lambda (arg-20) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-19 arg-20)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Int arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Int arg-381 arg-382))) (lambda (arg-385) (lambda (arg-386) (PreludeC-45EqOrd-u--min_Ord_Int arg-385 arg-386)))) arg-383 arg-384)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector 0 (cons (lambda (arg-19) (lambda (arg-20) (PreludeC-45EqOrd-u--C-61C-61_Eq_Bool arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (PreludeC-45EqOrd-u--C-47C-61_Eq_Bool arg-19 arg-20)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Bool arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Bool arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-62_Ord_Bool arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Bool arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Bool arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Bool arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Bool arg-383 arg-384)))) (vector 0 (cons (lambda (arg-19) (lambda (arg-20) (PreludeC-45EqOrd-u--C-61C-61_Eq_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (arg-21) (lambda (arg-22) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace arg-21 arg-22))) (lambda (arg-21) (lambda (arg-22) (CoreC-45NameC-45Namespace-u--C-47C-61_Eq_Namespace arg-21 arg-22)))) (cons (lambda (arg-21) (lambda (arg-22) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-21 arg-22))) (lambda (arg-21) (lambda (arg-22) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-21 arg-22)))) arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (PreludeC-45EqOrd-u--C-47C-61_Eq_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (arg-21) (lambda (arg-22) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace arg-21 arg-22))) (lambda (arg-21) (lambda (arg-22) (CoreC-45NameC-45Namespace-u--C-47C-61_Eq_Namespace arg-21 arg-22)))) (cons (lambda (arg-21) (lambda (arg-22) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-21 arg-22))) (lambda (arg-21) (lambda (arg-22) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-21 arg-22)))) arg-19 arg-20)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector 0 (cons (lambda (arg-19) (lambda (arg-20) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (CoreC-45NameC-45Namespace-u--C-47C-61_Eq_Namespace arg-19 arg-20)))) (lambda (arg-373) (lambda (arg-374) (CoreC-45NameC-45Namespace-u--compare_Ord_Namespace arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (CoreC-45NameC-45Namespace-u--C-60_Ord_Namespace arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (CoreC-45NameC-45Namespace-u--C-62_Ord_Namespace arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (CoreC-45NameC-45Namespace-u--C-60C-61_Ord_Namespace arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (CoreC-45NameC-45Namespace-u--C-62C-61_Ord_Namespace arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (CoreC-45NameC-45Namespace-u--max_Ord_Namespace arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (CoreC-45NameC-45Namespace-u--min_Ord_Namespace arg-383 arg-384)))) (vector 0 (cons (lambda (arg-19) (lambda (arg-20) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-19 arg-20)))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--compare_Ord_Int arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Int arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Int arg-383 arg-384)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector 0 (cons (lambda (arg-19) (lambda (arg-20) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (CoreC-45NameC-45Namespace-u--C-47C-61_Eq_Namespace arg-19 arg-20)))) (lambda (arg-371) (lambda (arg-372) (CoreC-45NameC-45Namespace-u--compare_Ord_Namespace arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (CoreC-45NameC-45Namespace-u--C-60_Ord_Namespace arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (CoreC-45NameC-45Namespace-u--C-62_Ord_Namespace arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (CoreC-45NameC-45Namespace-u--C-60C-61_Ord_Namespace arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (CoreC-45NameC-45Namespace-u--C-62C-61_Ord_Namespace arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (CoreC-45NameC-45Namespace-u--max_Ord_Namespace arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (CoreC-45NameC-45Namespace-u--min_Ord_Namespace arg-383 arg-384)))) (vector 0 (cons (lambda (arg-19) (lambda (arg-20) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-19 arg-20)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Int arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Int arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Int arg-383 arg-384)))) arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-62_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector 0 (cons (lambda (arg-19) (lambda (arg-20) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (CoreC-45NameC-45Namespace-u--C-47C-61_Eq_Namespace arg-19 arg-20)))) (lambda (arg-371) (lambda (arg-372) (CoreC-45NameC-45Namespace-u--compare_Ord_Namespace arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (CoreC-45NameC-45Namespace-u--C-60_Ord_Namespace arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (CoreC-45NameC-45Namespace-u--C-62_Ord_Namespace arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (CoreC-45NameC-45Namespace-u--C-60C-61_Ord_Namespace arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (CoreC-45NameC-45Namespace-u--C-62C-61_Ord_Namespace arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (CoreC-45NameC-45Namespace-u--max_Ord_Namespace arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (CoreC-45NameC-45Namespace-u--min_Ord_Namespace arg-383 arg-384)))) (vector 0 (cons (lambda (arg-19) (lambda (arg-20) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-19 arg-20)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Int arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Int arg-383 arg-384)))) arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector 0 (cons (lambda (arg-19) (lambda (arg-20) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (CoreC-45NameC-45Namespace-u--C-47C-61_Eq_Namespace arg-19 arg-20)))) (lambda (arg-371) (lambda (arg-372) (CoreC-45NameC-45Namespace-u--compare_Ord_Namespace arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (CoreC-45NameC-45Namespace-u--C-60_Ord_Namespace arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (CoreC-45NameC-45Namespace-u--C-62_Ord_Namespace arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (CoreC-45NameC-45Namespace-u--C-60C-61_Ord_Namespace arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (CoreC-45NameC-45Namespace-u--C-62C-61_Ord_Namespace arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (CoreC-45NameC-45Namespace-u--max_Ord_Namespace arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (CoreC-45NameC-45Namespace-u--min_Ord_Namespace arg-383 arg-384)))) (vector 0 (cons (lambda (arg-19) (lambda (arg-20) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-19 arg-20)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Int arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Int arg-383 arg-384)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector 0 (cons (lambda (arg-19) (lambda (arg-20) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (CoreC-45NameC-45Namespace-u--C-47C-61_Eq_Namespace arg-19 arg-20)))) (lambda (arg-371) (lambda (arg-372) (CoreC-45NameC-45Namespace-u--compare_Ord_Namespace arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (CoreC-45NameC-45Namespace-u--C-60_Ord_Namespace arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (CoreC-45NameC-45Namespace-u--C-62_Ord_Namespace arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (CoreC-45NameC-45Namespace-u--C-60C-61_Ord_Namespace arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (CoreC-45NameC-45Namespace-u--C-62C-61_Ord_Namespace arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (CoreC-45NameC-45Namespace-u--max_Ord_Namespace arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (CoreC-45NameC-45Namespace-u--min_Ord_Namespace arg-383 arg-384)))) (vector 0 (cons (lambda (arg-19) (lambda (arg-20) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-19 arg-20)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Int arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Int arg-383 arg-384)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector 0 (cons (lambda (arg-19) (lambda (arg-20) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (CoreC-45NameC-45Namespace-u--C-47C-61_Eq_Namespace arg-19 arg-20)))) (lambda (arg-371) (lambda (arg-372) (CoreC-45NameC-45Namespace-u--compare_Ord_Namespace arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (CoreC-45NameC-45Namespace-u--C-60_Ord_Namespace arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (CoreC-45NameC-45Namespace-u--C-62_Ord_Namespace arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (CoreC-45NameC-45Namespace-u--C-60C-61_Ord_Namespace arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (CoreC-45NameC-45Namespace-u--C-62C-61_Ord_Namespace arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (CoreC-45NameC-45Namespace-u--max_Ord_Namespace arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (CoreC-45NameC-45Namespace-u--min_Ord_Namespace arg-383 arg-384)))) (vector 0 (cons (lambda (arg-19) (lambda (arg-20) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-19 arg-20)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--max_Ord_Int arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Int arg-383 arg-384)))) arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector 0 (cons (lambda (arg-19) (lambda (arg-20) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (CoreC-45NameC-45Namespace-u--C-47C-61_Eq_Namespace arg-19 arg-20)))) (lambda (arg-371) (lambda (arg-372) (CoreC-45NameC-45Namespace-u--compare_Ord_Namespace arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (CoreC-45NameC-45Namespace-u--C-60_Ord_Namespace arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (CoreC-45NameC-45Namespace-u--C-62_Ord_Namespace arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (CoreC-45NameC-45Namespace-u--C-60C-61_Ord_Namespace arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (CoreC-45NameC-45Namespace-u--C-62C-61_Ord_Namespace arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (CoreC-45NameC-45Namespace-u--max_Ord_Namespace arg-381 arg-382))) (lambda (arg-385) (lambda (arg-386) (CoreC-45NameC-45Namespace-u--min_Ord_Namespace arg-385 arg-386)))) (vector 0 (cons (lambda (arg-19) (lambda (arg-20) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-19 arg-20)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Int arg-381 arg-382))) (lambda (arg-385) (lambda (arg-386) (PreludeC-45EqOrd-u--min_Ord_Int arg-385 arg-386)))) arg-383 arg-384)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector 0 (cons (lambda (arg-19) (lambda (arg-20) (PreludeC-45EqOrd-u--C-61C-61_Eq_Bool arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (PreludeC-45EqOrd-u--C-47C-61_Eq_Bool arg-19 arg-20)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Bool arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Bool arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Bool arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-60C-61_Ord_Bool arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Bool arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Bool arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Bool arg-383 arg-384)))) (vector 0 (cons (lambda (arg-19) (lambda (arg-20) (PreludeC-45EqOrd-u--C-61C-61_Eq_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (arg-21) (lambda (arg-22) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace arg-21 arg-22))) (lambda (arg-21) (lambda (arg-22) (CoreC-45NameC-45Namespace-u--C-47C-61_Eq_Namespace arg-21 arg-22)))) (cons (lambda (arg-21) (lambda (arg-22) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-21 arg-22))) (lambda (arg-21) (lambda (arg-22) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-21 arg-22)))) arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (PreludeC-45EqOrd-u--C-47C-61_Eq_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (arg-21) (lambda (arg-22) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace arg-21 arg-22))) (lambda (arg-21) (lambda (arg-22) (CoreC-45NameC-45Namespace-u--C-47C-61_Eq_Namespace arg-21 arg-22)))) (cons (lambda (arg-21) (lambda (arg-22) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-21 arg-22))) (lambda (arg-21) (lambda (arg-22) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-21 arg-22)))) arg-19 arg-20)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector 0 (cons (lambda (arg-19) (lambda (arg-20) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (CoreC-45NameC-45Namespace-u--C-47C-61_Eq_Namespace arg-19 arg-20)))) (lambda (arg-373) (lambda (arg-374) (CoreC-45NameC-45Namespace-u--compare_Ord_Namespace arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (CoreC-45NameC-45Namespace-u--C-60_Ord_Namespace arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (CoreC-45NameC-45Namespace-u--C-62_Ord_Namespace arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (CoreC-45NameC-45Namespace-u--C-60C-61_Ord_Namespace arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (CoreC-45NameC-45Namespace-u--C-62C-61_Ord_Namespace arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (CoreC-45NameC-45Namespace-u--max_Ord_Namespace arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (CoreC-45NameC-45Namespace-u--min_Ord_Namespace arg-383 arg-384)))) (vector 0 (cons (lambda (arg-19) (lambda (arg-20) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-19 arg-20)))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--compare_Ord_Int arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Int arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Int arg-383 arg-384)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector 0 (cons (lambda (arg-19) (lambda (arg-20) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (CoreC-45NameC-45Namespace-u--C-47C-61_Eq_Namespace arg-19 arg-20)))) (lambda (arg-371) (lambda (arg-372) (CoreC-45NameC-45Namespace-u--compare_Ord_Namespace arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (CoreC-45NameC-45Namespace-u--C-60_Ord_Namespace arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (CoreC-45NameC-45Namespace-u--C-62_Ord_Namespace arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (CoreC-45NameC-45Namespace-u--C-60C-61_Ord_Namespace arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (CoreC-45NameC-45Namespace-u--C-62C-61_Ord_Namespace arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (CoreC-45NameC-45Namespace-u--max_Ord_Namespace arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (CoreC-45NameC-45Namespace-u--min_Ord_Namespace arg-383 arg-384)))) (vector 0 (cons (lambda (arg-19) (lambda (arg-20) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-19 arg-20)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Int arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Int arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Int arg-383 arg-384)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector 0 (cons (lambda (arg-19) (lambda (arg-20) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (CoreC-45NameC-45Namespace-u--C-47C-61_Eq_Namespace arg-19 arg-20)))) (lambda (arg-371) (lambda (arg-372) (CoreC-45NameC-45Namespace-u--compare_Ord_Namespace arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (CoreC-45NameC-45Namespace-u--C-60_Ord_Namespace arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (CoreC-45NameC-45Namespace-u--C-62_Ord_Namespace arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (CoreC-45NameC-45Namespace-u--C-60C-61_Ord_Namespace arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (CoreC-45NameC-45Namespace-u--C-62C-61_Ord_Namespace arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (CoreC-45NameC-45Namespace-u--max_Ord_Namespace arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (CoreC-45NameC-45Namespace-u--min_Ord_Namespace arg-383 arg-384)))) (vector 0 (cons (lambda (arg-19) (lambda (arg-20) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-19 arg-20)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Int arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Int arg-383 arg-384)))) arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-60C-61_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector 0 (cons (lambda (arg-19) (lambda (arg-20) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (CoreC-45NameC-45Namespace-u--C-47C-61_Eq_Namespace arg-19 arg-20)))) (lambda (arg-371) (lambda (arg-372) (CoreC-45NameC-45Namespace-u--compare_Ord_Namespace arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (CoreC-45NameC-45Namespace-u--C-60_Ord_Namespace arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (CoreC-45NameC-45Namespace-u--C-62_Ord_Namespace arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (CoreC-45NameC-45Namespace-u--C-60C-61_Ord_Namespace arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (CoreC-45NameC-45Namespace-u--C-62C-61_Ord_Namespace arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (CoreC-45NameC-45Namespace-u--max_Ord_Namespace arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (CoreC-45NameC-45Namespace-u--min_Ord_Namespace arg-383 arg-384)))) (vector 0 (cons (lambda (arg-19) (lambda (arg-20) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-19 arg-20)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Int arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Int arg-383 arg-384)))) arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector 0 (cons (lambda (arg-19) (lambda (arg-20) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (CoreC-45NameC-45Namespace-u--C-47C-61_Eq_Namespace arg-19 arg-20)))) (lambda (arg-371) (lambda (arg-372) (CoreC-45NameC-45Namespace-u--compare_Ord_Namespace arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (CoreC-45NameC-45Namespace-u--C-60_Ord_Namespace arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (CoreC-45NameC-45Namespace-u--C-62_Ord_Namespace arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (CoreC-45NameC-45Namespace-u--C-60C-61_Ord_Namespace arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (CoreC-45NameC-45Namespace-u--C-62C-61_Ord_Namespace arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (CoreC-45NameC-45Namespace-u--max_Ord_Namespace arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (CoreC-45NameC-45Namespace-u--min_Ord_Namespace arg-383 arg-384)))) (vector 0 (cons (lambda (arg-19) (lambda (arg-20) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-19 arg-20)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Int arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Int arg-383 arg-384)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector 0 (cons (lambda (arg-19) (lambda (arg-20) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (CoreC-45NameC-45Namespace-u--C-47C-61_Eq_Namespace arg-19 arg-20)))) (lambda (arg-371) (lambda (arg-372) (CoreC-45NameC-45Namespace-u--compare_Ord_Namespace arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (CoreC-45NameC-45Namespace-u--C-60_Ord_Namespace arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (CoreC-45NameC-45Namespace-u--C-62_Ord_Namespace arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (CoreC-45NameC-45Namespace-u--C-60C-61_Ord_Namespace arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (CoreC-45NameC-45Namespace-u--C-62C-61_Ord_Namespace arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (CoreC-45NameC-45Namespace-u--max_Ord_Namespace arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (CoreC-45NameC-45Namespace-u--min_Ord_Namespace arg-383 arg-384)))) (vector 0 (cons (lambda (arg-19) (lambda (arg-20) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-19 arg-20)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--max_Ord_Int arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Int arg-383 arg-384)))) arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector 0 (cons (lambda (arg-19) (lambda (arg-20) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (CoreC-45NameC-45Namespace-u--C-47C-61_Eq_Namespace arg-19 arg-20)))) (lambda (arg-371) (lambda (arg-372) (CoreC-45NameC-45Namespace-u--compare_Ord_Namespace arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (CoreC-45NameC-45Namespace-u--C-60_Ord_Namespace arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (CoreC-45NameC-45Namespace-u--C-62_Ord_Namespace arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (CoreC-45NameC-45Namespace-u--C-60C-61_Ord_Namespace arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (CoreC-45NameC-45Namespace-u--C-62C-61_Ord_Namespace arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (CoreC-45NameC-45Namespace-u--max_Ord_Namespace arg-381 arg-382))) (lambda (arg-385) (lambda (arg-386) (CoreC-45NameC-45Namespace-u--min_Ord_Namespace arg-385 arg-386)))) (vector 0 (cons (lambda (arg-19) (lambda (arg-20) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-19 arg-20)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Int arg-381 arg-382))) (lambda (arg-385) (lambda (arg-386) (PreludeC-45EqOrd-u--min_Ord_Int arg-385 arg-386)))) arg-383 arg-384)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector 0 (cons (lambda (arg-19) (lambda (arg-20) (PreludeC-45EqOrd-u--C-61C-61_Eq_Bool arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (PreludeC-45EqOrd-u--C-47C-61_Eq_Bool arg-19 arg-20)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Bool arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Bool arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Bool arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Bool arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--C-62C-61_Ord_Bool arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Bool arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Bool arg-383 arg-384)))) (vector 0 (cons (lambda (arg-19) (lambda (arg-20) (PreludeC-45EqOrd-u--C-61C-61_Eq_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (arg-21) (lambda (arg-22) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace arg-21 arg-22))) (lambda (arg-21) (lambda (arg-22) (CoreC-45NameC-45Namespace-u--C-47C-61_Eq_Namespace arg-21 arg-22)))) (cons (lambda (arg-21) (lambda (arg-22) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-21 arg-22))) (lambda (arg-21) (lambda (arg-22) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-21 arg-22)))) arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (PreludeC-45EqOrd-u--C-47C-61_Eq_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (arg-21) (lambda (arg-22) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace arg-21 arg-22))) (lambda (arg-21) (lambda (arg-22) (CoreC-45NameC-45Namespace-u--C-47C-61_Eq_Namespace arg-21 arg-22)))) (cons (lambda (arg-21) (lambda (arg-22) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-21 arg-22))) (lambda (arg-21) (lambda (arg-22) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-21 arg-22)))) arg-19 arg-20)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector 0 (cons (lambda (arg-19) (lambda (arg-20) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (CoreC-45NameC-45Namespace-u--C-47C-61_Eq_Namespace arg-19 arg-20)))) (lambda (arg-373) (lambda (arg-374) (CoreC-45NameC-45Namespace-u--compare_Ord_Namespace arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (CoreC-45NameC-45Namespace-u--C-60_Ord_Namespace arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (CoreC-45NameC-45Namespace-u--C-62_Ord_Namespace arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (CoreC-45NameC-45Namespace-u--C-60C-61_Ord_Namespace arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (CoreC-45NameC-45Namespace-u--C-62C-61_Ord_Namespace arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (CoreC-45NameC-45Namespace-u--max_Ord_Namespace arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (CoreC-45NameC-45Namespace-u--min_Ord_Namespace arg-383 arg-384)))) (vector 0 (cons (lambda (arg-19) (lambda (arg-20) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-19 arg-20)))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--compare_Ord_Int arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Int arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Int arg-383 arg-384)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector 0 (cons (lambda (arg-19) (lambda (arg-20) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (CoreC-45NameC-45Namespace-u--C-47C-61_Eq_Namespace arg-19 arg-20)))) (lambda (arg-371) (lambda (arg-372) (CoreC-45NameC-45Namespace-u--compare_Ord_Namespace arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (CoreC-45NameC-45Namespace-u--C-60_Ord_Namespace arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (CoreC-45NameC-45Namespace-u--C-62_Ord_Namespace arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (CoreC-45NameC-45Namespace-u--C-60C-61_Ord_Namespace arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (CoreC-45NameC-45Namespace-u--C-62C-61_Ord_Namespace arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (CoreC-45NameC-45Namespace-u--max_Ord_Namespace arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (CoreC-45NameC-45Namespace-u--min_Ord_Namespace arg-383 arg-384)))) (vector 0 (cons (lambda (arg-19) (lambda (arg-20) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-19 arg-20)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Int arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Int arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Int arg-383 arg-384)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector 0 (cons (lambda (arg-19) (lambda (arg-20) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (CoreC-45NameC-45Namespace-u--C-47C-61_Eq_Namespace arg-19 arg-20)))) (lambda (arg-371) (lambda (arg-372) (CoreC-45NameC-45Namespace-u--compare_Ord_Namespace arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (CoreC-45NameC-45Namespace-u--C-60_Ord_Namespace arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (CoreC-45NameC-45Namespace-u--C-62_Ord_Namespace arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (CoreC-45NameC-45Namespace-u--C-60C-61_Ord_Namespace arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (CoreC-45NameC-45Namespace-u--C-62C-61_Ord_Namespace arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (CoreC-45NameC-45Namespace-u--max_Ord_Namespace arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (CoreC-45NameC-45Namespace-u--min_Ord_Namespace arg-383 arg-384)))) (vector 0 (cons (lambda (arg-19) (lambda (arg-20) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-19 arg-20)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Int arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Int arg-383 arg-384)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector 0 (cons (lambda (arg-19) (lambda (arg-20) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (CoreC-45NameC-45Namespace-u--C-47C-61_Eq_Namespace arg-19 arg-20)))) (lambda (arg-371) (lambda (arg-372) (CoreC-45NameC-45Namespace-u--compare_Ord_Namespace arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (CoreC-45NameC-45Namespace-u--C-60_Ord_Namespace arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (CoreC-45NameC-45Namespace-u--C-62_Ord_Namespace arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (CoreC-45NameC-45Namespace-u--C-60C-61_Ord_Namespace arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (CoreC-45NameC-45Namespace-u--C-62C-61_Ord_Namespace arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (CoreC-45NameC-45Namespace-u--max_Ord_Namespace arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (CoreC-45NameC-45Namespace-u--min_Ord_Namespace arg-383 arg-384)))) (vector 0 (cons (lambda (arg-19) (lambda (arg-20) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-19 arg-20)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Int arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Int arg-383 arg-384)))) arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--C-62C-61_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector 0 (cons (lambda (arg-19) (lambda (arg-20) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (CoreC-45NameC-45Namespace-u--C-47C-61_Eq_Namespace arg-19 arg-20)))) (lambda (arg-371) (lambda (arg-372) (CoreC-45NameC-45Namespace-u--compare_Ord_Namespace arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (CoreC-45NameC-45Namespace-u--C-60_Ord_Namespace arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (CoreC-45NameC-45Namespace-u--C-62_Ord_Namespace arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (CoreC-45NameC-45Namespace-u--C-60C-61_Ord_Namespace arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (CoreC-45NameC-45Namespace-u--C-62C-61_Ord_Namespace arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (CoreC-45NameC-45Namespace-u--max_Ord_Namespace arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (CoreC-45NameC-45Namespace-u--min_Ord_Namespace arg-383 arg-384)))) (vector 0 (cons (lambda (arg-19) (lambda (arg-20) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-19 arg-20)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--max_Ord_Int arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Int arg-383 arg-384)))) arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector 0 (cons (lambda (arg-19) (lambda (arg-20) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (CoreC-45NameC-45Namespace-u--C-47C-61_Eq_Namespace arg-19 arg-20)))) (lambda (arg-371) (lambda (arg-372) (CoreC-45NameC-45Namespace-u--compare_Ord_Namespace arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (CoreC-45NameC-45Namespace-u--C-60_Ord_Namespace arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (CoreC-45NameC-45Namespace-u--C-62_Ord_Namespace arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (CoreC-45NameC-45Namespace-u--C-60C-61_Ord_Namespace arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (CoreC-45NameC-45Namespace-u--C-62C-61_Ord_Namespace arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (CoreC-45NameC-45Namespace-u--max_Ord_Namespace arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (CoreC-45NameC-45Namespace-u--min_Ord_Namespace arg-383 arg-384)))) (vector 0 (cons (lambda (arg-19) (lambda (arg-20) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-19 arg-20)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--max_Ord_Int arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Int arg-383 arg-384)))) arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector 0 (cons (lambda (arg-19) (lambda (arg-20) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (CoreC-45NameC-45Namespace-u--C-47C-61_Eq_Namespace arg-19 arg-20)))) (lambda (arg-371) (lambda (arg-372) (CoreC-45NameC-45Namespace-u--compare_Ord_Namespace arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (CoreC-45NameC-45Namespace-u--C-60_Ord_Namespace arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (CoreC-45NameC-45Namespace-u--C-62_Ord_Namespace arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (CoreC-45NameC-45Namespace-u--C-60C-61_Ord_Namespace arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (CoreC-45NameC-45Namespace-u--C-62C-61_Ord_Namespace arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (CoreC-45NameC-45Namespace-u--max_Ord_Namespace arg-381 arg-382))) (lambda (arg-385) (lambda (arg-386) (CoreC-45NameC-45Namespace-u--min_Ord_Namespace arg-385 arg-386)))) (vector 0 (cons (lambda (arg-19) (lambda (arg-20) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-19 arg-20)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Int arg-381 arg-382))) (lambda (arg-385) (lambda (arg-386) (PreludeC-45EqOrd-u--min_Ord_Int arg-385 arg-386)))) arg-383 arg-384)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector 0 (cons (lambda (arg-19) (lambda (arg-20) (PreludeC-45EqOrd-u--C-61C-61_Eq_Bool arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (PreludeC-45EqOrd-u--C-47C-61_Eq_Bool arg-19 arg-20)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Bool arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Bool arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Bool arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Bool arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Bool arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--max_Ord_Bool arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Bool arg-383 arg-384)))) (vector 0 (cons (lambda (arg-19) (lambda (arg-20) (PreludeC-45EqOrd-u--C-61C-61_Eq_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (arg-21) (lambda (arg-22) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace arg-21 arg-22))) (lambda (arg-21) (lambda (arg-22) (CoreC-45NameC-45Namespace-u--C-47C-61_Eq_Namespace arg-21 arg-22)))) (cons (lambda (arg-21) (lambda (arg-22) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-21 arg-22))) (lambda (arg-21) (lambda (arg-22) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-21 arg-22)))) arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (PreludeC-45EqOrd-u--C-47C-61_Eq_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (arg-21) (lambda (arg-22) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace arg-21 arg-22))) (lambda (arg-21) (lambda (arg-22) (CoreC-45NameC-45Namespace-u--C-47C-61_Eq_Namespace arg-21 arg-22)))) (cons (lambda (arg-21) (lambda (arg-22) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-21 arg-22))) (lambda (arg-21) (lambda (arg-22) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-21 arg-22)))) arg-19 arg-20)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector 0 (cons (lambda (arg-19) (lambda (arg-20) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (CoreC-45NameC-45Namespace-u--C-47C-61_Eq_Namespace arg-19 arg-20)))) (lambda (arg-373) (lambda (arg-374) (CoreC-45NameC-45Namespace-u--compare_Ord_Namespace arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (CoreC-45NameC-45Namespace-u--C-60_Ord_Namespace arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (CoreC-45NameC-45Namespace-u--C-62_Ord_Namespace arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (CoreC-45NameC-45Namespace-u--C-60C-61_Ord_Namespace arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (CoreC-45NameC-45Namespace-u--C-62C-61_Ord_Namespace arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (CoreC-45NameC-45Namespace-u--max_Ord_Namespace arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (CoreC-45NameC-45Namespace-u--min_Ord_Namespace arg-383 arg-384)))) (vector 0 (cons (lambda (arg-19) (lambda (arg-20) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-19 arg-20)))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--compare_Ord_Int arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--max_Ord_Int arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Int arg-383 arg-384)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector 0 (cons (lambda (arg-19) (lambda (arg-20) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (CoreC-45NameC-45Namespace-u--C-47C-61_Eq_Namespace arg-19 arg-20)))) (lambda (arg-371) (lambda (arg-372) (CoreC-45NameC-45Namespace-u--compare_Ord_Namespace arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (CoreC-45NameC-45Namespace-u--C-60_Ord_Namespace arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (CoreC-45NameC-45Namespace-u--C-62_Ord_Namespace arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (CoreC-45NameC-45Namespace-u--C-60C-61_Ord_Namespace arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (CoreC-45NameC-45Namespace-u--C-62C-61_Ord_Namespace arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (CoreC-45NameC-45Namespace-u--max_Ord_Namespace arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (CoreC-45NameC-45Namespace-u--min_Ord_Namespace arg-383 arg-384)))) (vector 0 (cons (lambda (arg-19) (lambda (arg-20) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-19 arg-20)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Int arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--max_Ord_Int arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Int arg-383 arg-384)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector 0 (cons (lambda (arg-19) (lambda (arg-20) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (CoreC-45NameC-45Namespace-u--C-47C-61_Eq_Namespace arg-19 arg-20)))) (lambda (arg-371) (lambda (arg-372) (CoreC-45NameC-45Namespace-u--compare_Ord_Namespace arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (CoreC-45NameC-45Namespace-u--C-60_Ord_Namespace arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (CoreC-45NameC-45Namespace-u--C-62_Ord_Namespace arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (CoreC-45NameC-45Namespace-u--C-60C-61_Ord_Namespace arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (CoreC-45NameC-45Namespace-u--C-62C-61_Ord_Namespace arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (CoreC-45NameC-45Namespace-u--max_Ord_Namespace arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (CoreC-45NameC-45Namespace-u--min_Ord_Namespace arg-383 arg-384)))) (vector 0 (cons (lambda (arg-19) (lambda (arg-20) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-19 arg-20)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--max_Ord_Int arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Int arg-383 arg-384)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector 0 (cons (lambda (arg-19) (lambda (arg-20) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (CoreC-45NameC-45Namespace-u--C-47C-61_Eq_Namespace arg-19 arg-20)))) (lambda (arg-371) (lambda (arg-372) (CoreC-45NameC-45Namespace-u--compare_Ord_Namespace arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (CoreC-45NameC-45Namespace-u--C-60_Ord_Namespace arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (CoreC-45NameC-45Namespace-u--C-62_Ord_Namespace arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (CoreC-45NameC-45Namespace-u--C-60C-61_Ord_Namespace arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (CoreC-45NameC-45Namespace-u--C-62C-61_Ord_Namespace arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (CoreC-45NameC-45Namespace-u--max_Ord_Namespace arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (CoreC-45NameC-45Namespace-u--min_Ord_Namespace arg-383 arg-384)))) (vector 0 (cons (lambda (arg-19) (lambda (arg-20) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-19 arg-20)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--max_Ord_Int arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Int arg-383 arg-384)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector 0 (cons (lambda (arg-19) (lambda (arg-20) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (CoreC-45NameC-45Namespace-u--C-47C-61_Eq_Namespace arg-19 arg-20)))) (lambda (arg-371) (lambda (arg-372) (CoreC-45NameC-45Namespace-u--compare_Ord_Namespace arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (CoreC-45NameC-45Namespace-u--C-60_Ord_Namespace arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (CoreC-45NameC-45Namespace-u--C-62_Ord_Namespace arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (CoreC-45NameC-45Namespace-u--C-60C-61_Ord_Namespace arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (CoreC-45NameC-45Namespace-u--C-62C-61_Ord_Namespace arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (CoreC-45NameC-45Namespace-u--max_Ord_Namespace arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (CoreC-45NameC-45Namespace-u--min_Ord_Namespace arg-383 arg-384)))) (vector 0 (cons (lambda (arg-19) (lambda (arg-20) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-19 arg-20)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--max_Ord_Int arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Int arg-383 arg-384)))) arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--max_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector 0 (cons (lambda (arg-19) (lambda (arg-20) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (CoreC-45NameC-45Namespace-u--C-47C-61_Eq_Namespace arg-19 arg-20)))) (lambda (arg-371) (lambda (arg-372) (CoreC-45NameC-45Namespace-u--compare_Ord_Namespace arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (CoreC-45NameC-45Namespace-u--C-60_Ord_Namespace arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (CoreC-45NameC-45Namespace-u--C-62_Ord_Namespace arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (CoreC-45NameC-45Namespace-u--C-60C-61_Ord_Namespace arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (CoreC-45NameC-45Namespace-u--C-62C-61_Ord_Namespace arg-379 arg-380))) (lambda (arg-385) (lambda (arg-386) (CoreC-45NameC-45Namespace-u--max_Ord_Namespace arg-385 arg-386))) (lambda (arg-385) (lambda (arg-386) (CoreC-45NameC-45Namespace-u--min_Ord_Namespace arg-385 arg-386)))) (vector 0 (cons (lambda (arg-19) (lambda (arg-20) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-19 arg-20)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-379 arg-380))) (lambda (arg-385) (lambda (arg-386) (PreludeC-45EqOrd-u--max_Ord_Int arg-385 arg-386))) (lambda (arg-385) (lambda (arg-386) (PreludeC-45EqOrd-u--min_Ord_Int arg-385 arg-386)))) arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector 0 (cons (lambda (arg-19) (lambda (arg-20) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (CoreC-45NameC-45Namespace-u--C-47C-61_Eq_Namespace arg-19 arg-20)))) (lambda (arg-371) (lambda (arg-372) (CoreC-45NameC-45Namespace-u--compare_Ord_Namespace arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (CoreC-45NameC-45Namespace-u--C-60_Ord_Namespace arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (CoreC-45NameC-45Namespace-u--C-62_Ord_Namespace arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (CoreC-45NameC-45Namespace-u--C-60C-61_Ord_Namespace arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (CoreC-45NameC-45Namespace-u--C-62C-61_Ord_Namespace arg-379 arg-380))) (lambda (arg-385) (lambda (arg-386) (CoreC-45NameC-45Namespace-u--max_Ord_Namespace arg-385 arg-386))) (lambda (arg-385) (lambda (arg-386) (CoreC-45NameC-45Namespace-u--min_Ord_Namespace arg-385 arg-386)))) (vector 0 (cons (lambda (arg-19) (lambda (arg-20) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-19 arg-20)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-379 arg-380))) (lambda (arg-385) (lambda (arg-386) (PreludeC-45EqOrd-u--max_Ord_Int arg-385 arg-386))) (lambda (arg-385) (lambda (arg-386) (PreludeC-45EqOrd-u--min_Ord_Int arg-385 arg-386)))) arg-383 arg-384)))) arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector 0 (cons (lambda (arg-19) (lambda (arg-20) (PreludeC-45EqOrd-u--C-61C-61_Eq_Bool arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (PreludeC-45EqOrd-u--C-47C-61_Eq_Bool arg-19 arg-20)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Bool arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Bool arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Bool arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Bool arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Bool arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Bool arg-381 arg-382))) (lambda (arg-385) (lambda (arg-386) (PreludeC-45EqOrd-u--min_Ord_Bool arg-385 arg-386)))) (vector 0 (cons (lambda (arg-19) (lambda (arg-20) (PreludeC-45EqOrd-u--C-61C-61_Eq_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (arg-21) (lambda (arg-22) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace arg-21 arg-22))) (lambda (arg-21) (lambda (arg-22) (CoreC-45NameC-45Namespace-u--C-47C-61_Eq_Namespace arg-21 arg-22)))) (cons (lambda (arg-21) (lambda (arg-22) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-21 arg-22))) (lambda (arg-21) (lambda (arg-22) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-21 arg-22)))) arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (PreludeC-45EqOrd-u--C-47C-61_Eq_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (arg-21) (lambda (arg-22) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace arg-21 arg-22))) (lambda (arg-21) (lambda (arg-22) (CoreC-45NameC-45Namespace-u--C-47C-61_Eq_Namespace arg-21 arg-22)))) (cons (lambda (arg-21) (lambda (arg-22) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-21 arg-22))) (lambda (arg-21) (lambda (arg-22) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-21 arg-22)))) arg-19 arg-20)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector 0 (cons (lambda (arg-19) (lambda (arg-20) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (CoreC-45NameC-45Namespace-u--C-47C-61_Eq_Namespace arg-19 arg-20)))) (lambda (arg-373) (lambda (arg-374) (CoreC-45NameC-45Namespace-u--compare_Ord_Namespace arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (CoreC-45NameC-45Namespace-u--C-60_Ord_Namespace arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (CoreC-45NameC-45Namespace-u--C-62_Ord_Namespace arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (CoreC-45NameC-45Namespace-u--C-60C-61_Ord_Namespace arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (CoreC-45NameC-45Namespace-u--C-62C-61_Ord_Namespace arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (CoreC-45NameC-45Namespace-u--max_Ord_Namespace arg-381 arg-382))) (lambda (arg-385) (lambda (arg-386) (CoreC-45NameC-45Namespace-u--min_Ord_Namespace arg-385 arg-386)))) (vector 0 (cons (lambda (arg-19) (lambda (arg-20) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-19 arg-20)))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--compare_Ord_Int arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Int arg-381 arg-382))) (lambda (arg-385) (lambda (arg-386) (PreludeC-45EqOrd-u--min_Ord_Int arg-385 arg-386)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector 0 (cons (lambda (arg-19) (lambda (arg-20) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (CoreC-45NameC-45Namespace-u--C-47C-61_Eq_Namespace arg-19 arg-20)))) (lambda (arg-371) (lambda (arg-372) (CoreC-45NameC-45Namespace-u--compare_Ord_Namespace arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (CoreC-45NameC-45Namespace-u--C-60_Ord_Namespace arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (CoreC-45NameC-45Namespace-u--C-62_Ord_Namespace arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (CoreC-45NameC-45Namespace-u--C-60C-61_Ord_Namespace arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (CoreC-45NameC-45Namespace-u--C-62C-61_Ord_Namespace arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (CoreC-45NameC-45Namespace-u--max_Ord_Namespace arg-381 arg-382))) (lambda (arg-385) (lambda (arg-386) (CoreC-45NameC-45Namespace-u--min_Ord_Namespace arg-385 arg-386)))) (vector 0 (cons (lambda (arg-19) (lambda (arg-20) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-19 arg-20)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Int arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Int arg-381 arg-382))) (lambda (arg-385) (lambda (arg-386) (PreludeC-45EqOrd-u--min_Ord_Int arg-385 arg-386)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector 0 (cons (lambda (arg-19) (lambda (arg-20) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (CoreC-45NameC-45Namespace-u--C-47C-61_Eq_Namespace arg-19 arg-20)))) (lambda (arg-371) (lambda (arg-372) (CoreC-45NameC-45Namespace-u--compare_Ord_Namespace arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (CoreC-45NameC-45Namespace-u--C-60_Ord_Namespace arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (CoreC-45NameC-45Namespace-u--C-62_Ord_Namespace arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (CoreC-45NameC-45Namespace-u--C-60C-61_Ord_Namespace arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (CoreC-45NameC-45Namespace-u--C-62C-61_Ord_Namespace arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (CoreC-45NameC-45Namespace-u--max_Ord_Namespace arg-381 arg-382))) (lambda (arg-385) (lambda (arg-386) (CoreC-45NameC-45Namespace-u--min_Ord_Namespace arg-385 arg-386)))) (vector 0 (cons (lambda (arg-19) (lambda (arg-20) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-19 arg-20)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Int arg-381 arg-382))) (lambda (arg-385) (lambda (arg-386) (PreludeC-45EqOrd-u--min_Ord_Int arg-385 arg-386)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector 0 (cons (lambda (arg-19) (lambda (arg-20) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (CoreC-45NameC-45Namespace-u--C-47C-61_Eq_Namespace arg-19 arg-20)))) (lambda (arg-371) (lambda (arg-372) (CoreC-45NameC-45Namespace-u--compare_Ord_Namespace arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (CoreC-45NameC-45Namespace-u--C-60_Ord_Namespace arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (CoreC-45NameC-45Namespace-u--C-62_Ord_Namespace arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (CoreC-45NameC-45Namespace-u--C-60C-61_Ord_Namespace arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (CoreC-45NameC-45Namespace-u--C-62C-61_Ord_Namespace arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (CoreC-45NameC-45Namespace-u--max_Ord_Namespace arg-381 arg-382))) (lambda (arg-385) (lambda (arg-386) (CoreC-45NameC-45Namespace-u--min_Ord_Namespace arg-385 arg-386)))) (vector 0 (cons (lambda (arg-19) (lambda (arg-20) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-19 arg-20)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Int arg-381 arg-382))) (lambda (arg-385) (lambda (arg-386) (PreludeC-45EqOrd-u--min_Ord_Int arg-385 arg-386)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector 0 (cons (lambda (arg-19) (lambda (arg-20) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (CoreC-45NameC-45Namespace-u--C-47C-61_Eq_Namespace arg-19 arg-20)))) (lambda (arg-371) (lambda (arg-372) (CoreC-45NameC-45Namespace-u--compare_Ord_Namespace arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (CoreC-45NameC-45Namespace-u--C-60_Ord_Namespace arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (CoreC-45NameC-45Namespace-u--C-62_Ord_Namespace arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (CoreC-45NameC-45Namespace-u--C-60C-61_Ord_Namespace arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (CoreC-45NameC-45Namespace-u--C-62C-61_Ord_Namespace arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (CoreC-45NameC-45Namespace-u--max_Ord_Namespace arg-381 arg-382))) (lambda (arg-385) (lambda (arg-386) (CoreC-45NameC-45Namespace-u--min_Ord_Namespace arg-385 arg-386)))) (vector 0 (cons (lambda (arg-19) (lambda (arg-20) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-19 arg-20)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Int arg-381 arg-382))) (lambda (arg-385) (lambda (arg-386) (PreludeC-45EqOrd-u--min_Ord_Int arg-385 arg-386)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector 0 (cons (lambda (arg-19) (lambda (arg-20) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (CoreC-45NameC-45Namespace-u--C-47C-61_Eq_Namespace arg-19 arg-20)))) (lambda (arg-371) (lambda (arg-372) (CoreC-45NameC-45Namespace-u--compare_Ord_Namespace arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (CoreC-45NameC-45Namespace-u--C-60_Ord_Namespace arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (CoreC-45NameC-45Namespace-u--C-62_Ord_Namespace arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (CoreC-45NameC-45Namespace-u--C-60C-61_Ord_Namespace arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (CoreC-45NameC-45Namespace-u--C-62C-61_Ord_Namespace arg-379 arg-380))) (lambda (arg-385) (lambda (arg-386) (CoreC-45NameC-45Namespace-u--max_Ord_Namespace arg-385 arg-386))) (lambda (arg-385) (lambda (arg-386) (CoreC-45NameC-45Namespace-u--min_Ord_Namespace arg-385 arg-386)))) (vector 0 (cons (lambda (arg-19) (lambda (arg-20) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-19 arg-20)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-379 arg-380))) (lambda (arg-385) (lambda (arg-386) (PreludeC-45EqOrd-u--max_Ord_Int arg-385 arg-386))) (lambda (arg-385) (lambda (arg-386) (PreludeC-45EqOrd-u--min_Ord_Int arg-385 arg-386)))) arg-381 arg-382))) (lambda (arg-385) (lambda (arg-386) (PreludeC-45EqOrd-u--min_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector 0 (cons (lambda (arg-19) (lambda (arg-20) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (CoreC-45NameC-45Namespace-u--C-47C-61_Eq_Namespace arg-19 arg-20)))) (lambda (arg-371) (lambda (arg-372) (CoreC-45NameC-45Namespace-u--compare_Ord_Namespace arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (CoreC-45NameC-45Namespace-u--C-60_Ord_Namespace arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (CoreC-45NameC-45Namespace-u--C-62_Ord_Namespace arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (CoreC-45NameC-45Namespace-u--C-60C-61_Ord_Namespace arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (CoreC-45NameC-45Namespace-u--C-62C-61_Ord_Namespace arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (CoreC-45NameC-45Namespace-u--max_Ord_Namespace arg-381 arg-382))) (lambda (arg-387) (lambda (arg-388) (CoreC-45NameC-45Namespace-u--min_Ord_Namespace arg-387 arg-388)))) (vector 0 (cons (lambda (arg-19) (lambda (arg-20) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-19 arg-20)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Int arg-381 arg-382))) (lambda (arg-387) (lambda (arg-388) (PreludeC-45EqOrd-u--min_Ord_Int arg-387 arg-388)))) arg-385 arg-386)))) arg-383 arg-384)))) arg-12) ext-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((act-28 (CoreC-45UnifyState-resetNextVar arg-7 ext-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (let ((act-29 (let ((sc7 (CoreC-45NameC-45Namespace-u--C-47C-61_Eq_ModuleIdent arg-17 (CoreC-45NameC-45Namespace-nsAsModuleIdent (CoreC-45NameC-45Namespace-mainNS))))) (cond ((equal? sc7 0) (((let ((_-0 (vector 1 e-2))) (IdrisC-45ProcessIdr-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32processMod-1792 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 e-2 _-0 (let ((sc8 e-2)) (let ((e-0 (vector-ref sc8 1))) e-0))))) ext-0)) (else (vector 1 (vector 0 ))))))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (vector 0 e-3))) (else (let ((act-30 (CoreC-45ContextC-45Log-logTime arg-8 (lambda () "++ Reading imports") (lambda (eta-0) (CoreC-45Core-traverse_ (lambda (eta-1) (lambda (eta-2) (IdrisC-45ProcessIdr-readImport arg-8 arg-7 arg-6 1 eta-1 eta-2))) arg-11 eta-0)) ext-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (vector 0 e-3))) (else (let ((act-31 (CoreC-45Context-setNS arg-8 (CoreC-45NameC-45Namespace-miAsNamespace arg-17) ext-0))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-3 (vector-ref sc9 1))) (vector 0 e-3))) (else (let ((act-32 (CoreC-45ContextC-45Log-logTime arg-8 (lambda () "++ Processing decls") (lambda (eta-0) (IdrisC-45ProcessIdr-processDecls arg-8 arg-7 arg-6 arg-5 (let ((sc10 e-2)) (let ((e-4 (vector-ref sc10 5))) e-4)) eta-0)) ext-0))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-3 (vector-ref sc10 1))) (vector 0 e-3))) (else (let ((e-13 (vector-ref sc10 1))) (let ((act-33 (CoreC-45ContextC-45Log-logTime arg-8 (lambda () "++ Compile defs") (lambda (eta-0) (CompilerC-45Inline-compileAndInlineAll arg-8 eta-0)) ext-0))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-3 (vector-ref sc11 1))) (vector 0 e-3))) (else (let ((act-34 (let ((act-34 (unbox arg-8))) (vector 1 act-34)))) (let ((sc12 act-34)) (case (vector-ref sc12 0) ((0) (let ((e-3 (vector-ref sc12 1))) (vector 0 e-3))) (else (let ((e-15 (vector-ref sc12 1))) (let ((act-35 (let ((act-35 (set-box! arg-8 (let ((sc13 e-15)) (let ((e-0 (vector-ref sc13 1))) (let ((e-1 (vector-ref sc13 2))) (let ((e-39 (vector-ref sc13 3))) (let ((e-3 (vector-ref sc13 4))) (let ((e-4 (vector-ref sc13 5))) (let ((e-38 (vector-ref sc13 6))) (let ((e-37 (vector-ref sc13 7))) (let ((e-36 (vector-ref sc13 8))) (let ((e-35 (vector-ref sc13 9))) (let ((e-34 (vector-ref sc13 10))) (let ((e-33 (vector-ref sc13 11))) (let ((e-32 (vector-ref sc13 12))) (let ((e-31 (vector-ref sc13 13))) (let ((e-30 (vector-ref sc13 14))) (let ((e-29 (vector-ref sc13 15))) (let ((e-28 (vector-ref sc13 16))) (let ((e-16 (vector-ref sc13 17))) (let ((e-17 (vector-ref sc13 18))) (let ((e-19 (vector-ref sc13 20))) (let ((e-20 (vector-ref sc13 21))) (let ((e-21 (vector-ref sc13 22))) (let ((e-22 (vector-ref sc13 23))) (let ((e-23 (vector-ref sc13 24))) (let ((e-24 (vector-ref sc13 25))) (let ((e-25 (vector-ref sc13 26))) (let ((e-26 (vector-ref sc13 27))) (let ((e-27 (vector-ref sc13 28))) (vector 0 e-0 e-1 e-39 e-3 e-4 e-38 e-37 e-36 e-35 e-34 e-33 e-32 e-31 e-30 e-29 e-28 e-16 e-17 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) arg-12) e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 e-27)))))))))))))))))))))))))))))))) (vector 1 act-35)))) (let ((sc13 act-35)) (case (vector-ref sc13 0) ((0) (let ((e-3 (vector-ref sc13 1))) (vector 0 e-3))) (else (vector 1 (vector 1 e-13)))))))))))))))))))))))))))))))))))))))))))))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 1 (cons e-7 '()))))))))))))))))))))) -(define IdrisC-45ProcessIdr-case--processMod-1339 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (cond ((equal? sc0 0) (let ((sc1 arg-9)) (let ((e-2 (vector-ref sc1 3))) e-2))) (else (IdrisC-45ProcessIdr-addPrelude (let ((sc1 arg-9)) (let ((e-2 (vector-ref sc1 3))) e-2)))))))) -(define IdrisC-45ProcessIdr-case--caseC-32blockC-32inC-32readHeader-1215 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (vector 1 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (CoreC-45Core-u--throw_Catchable_Core_Error e-5 ext-0))))))) -(define IdrisC-45ProcessIdr-case--addPrelude-1080 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (cons (IdrisC-45ProcessIdr-prelude) arg-0)) (else arg-0))))) -(define IdrisC-45ProcessIdr-case--readModule-572 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 ext-0) (let ((sc0 arg-9)) (cond ((equal? sc0 1) (let ((act-24 (CoreC-45Directory-nsToPath arg-7 arg-3 arg-1 ext-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (let ((act-25 (CoreC-45Binary-readFromTTC (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (IdrisC-45Syntax-u--toBuf_TTC_SyntaxInfo arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (IdrisC-45Syntax-u--fromBuf_TTC_SyntaxInfo arg-10258 eta-0)))) arg-7 arg-6 1 arg-3 arg-2 e-2 arg-1 arg-0 ext-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((sc5 e-1)) (let ((e-8 (car sc5))) (let ((e-7 (cdr sc5))) (let ((sc6 e-7)) (let ((e-10 (cdr sc6))) (let ((act-26 (IdrisC-45Desugar-extendSyn arg-5 e-8 ext-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (vector 0 e-3))) (else (let ((act-27 (let ((act-27 (unbox arg-7))) (vector 1 act-27)))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (vector 0 e-3))) (else (let ((act-28 (CoreC-45Context-getNS arg-7 ext-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-3 (vector-ref sc9 1))) (vector 0 e-3))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-29 (let ((sc10 arg-2)) (cond ((equal? sc10 0) (CoreC-45Context-setVisible arg-7 (CoreC-45NameC-45Namespace-miAsNamespace arg-1) ext-0)) (else (vector 1 (vector 0 ))))))) (let ((sc10 act-29)) (case (vector-ref sc10 0) ((0) (let ((e-3 (vector-ref sc10 1))) (vector 0 e-3))) (else (let ((act-30 (CoreC-45Core-traverse_ (lambda (u--mimp) (let ((u--m (Builtin-fst u--mimp))) (let ((u--reexp (Builtin-fst (Builtin-snd u--mimp)))) (let ((u--as (Builtin-snd (Builtin-snd u--mimp)))) (lambda (clam-1) (let ((sc11 (PreludeC-45Basics-C-124C-124 u--reexp (lambda () arg-4)))) (cond ((equal? sc11 0) (IdrisC-45ProcessIdr-readModule arg-7 arg-6 arg-5 arg-4 arg-3 u--reexp u--m u--as clam-1)) (else (vector 1 (vector 0 )))))))))) e-10 ext-0))) (let ((sc11 act-30)) (case (vector-ref sc11 0) ((0) (let ((e-3 (vector-ref sc11 1))) (vector 0 e-3))) (else (CoreC-45Context-setNS arg-7 e-13 ext-0))))))))))))))))))))))))))))) (else (let ((sc5 arg-2)) (cond ((equal? sc5 0) (CoreC-45Context-setVisible arg-7 (CoreC-45NameC-45Namespace-miAsNamespace arg-1) ext-0)) (else (vector 1 (vector 0 ))))))))))))))) (else (let ((e-6 (vector-ref sc2 1))) (CoreC-45Core-u--throw_Catchable_Core_Error e-6 ext-0))))))))))) (else (let ((sc1 arg-2)) (cond ((equal? sc1 0) (CoreC-45Context-setVisible arg-7 (CoreC-45NameC-45Namespace-miAsNamespace arg-1) ext-0)) (else (vector 1 (vector 0 )))))))))) -(define IdrisC-45ProcessIdr-case--caseC-32blockC-32inC-32processDecls-489 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (if (null? sc0) (cons arg-6 '()) arg-8)))) -(define IdrisC-45ProcessIdr-readPrelude (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (IdrisC-45ProcessIdr-readImport arg-0 arg-1 arg-2 arg-3 (IdrisC-45ProcessIdr-prelude) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (CoreC-45Context-setNS arg-0 (CoreC-45NameC-45Namespace-mainNS) ext-0))))))) -(define IdrisC-45ProcessIdr-readModule (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (IdrisC-45ProcessIdr-case--readModule-572 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 (PreludeC-45Types-elem (cons (lambda (arg-8) (lambda (arg-9) (PreludeC-45EqOrd-u--C-61C-61_Eq_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (arg-10) (lambda (arg-11) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_ModuleIdent arg-10 arg-11))) (lambda (arg-10) (lambda (arg-11) (CoreC-45NameC-45Namespace-u--C-47C-61_Eq_ModuleIdent arg-10 arg-11)))) (cons (lambda (arg-10) (lambda (arg-11) (PreludeC-45EqOrd-u--C-61C-61_Eq_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (arg-12) (lambda (arg-13) (PreludeC-45EqOrd-u--C-61C-61_Eq_Bool arg-12 arg-13))) (lambda (arg-12) (lambda (arg-13) (PreludeC-45EqOrd-u--C-47C-61_Eq_Bool arg-12 arg-13)))) (cons (lambda (arg-12) (lambda (arg-13) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace arg-12 arg-13))) (lambda (arg-12) (lambda (arg-13) (CoreC-45NameC-45Namespace-u--C-47C-61_Eq_Namespace arg-12 arg-13)))) arg-10 arg-11))) (lambda (arg-10) (lambda (arg-11) (PreludeC-45EqOrd-u--C-47C-61_Eq_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (arg-12) (lambda (arg-13) (PreludeC-45EqOrd-u--C-61C-61_Eq_Bool arg-12 arg-13))) (lambda (arg-12) (lambda (arg-13) (PreludeC-45EqOrd-u--C-47C-61_Eq_Bool arg-12 arg-13)))) (cons (lambda (arg-12) (lambda (arg-13) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace arg-12 arg-13))) (lambda (arg-12) (lambda (arg-13) (CoreC-45NameC-45Namespace-u--C-47C-61_Eq_Namespace arg-12 arg-13)))) arg-10 arg-11)))) arg-8 arg-9))) (lambda (arg-8) (lambda (arg-9) (PreludeC-45EqOrd-u--C-47C-61_Eq_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (arg-10) (lambda (arg-11) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_ModuleIdent arg-10 arg-11))) (lambda (arg-10) (lambda (arg-11) (CoreC-45NameC-45Namespace-u--C-47C-61_Eq_ModuleIdent arg-10 arg-11)))) (cons (lambda (arg-10) (lambda (arg-11) (PreludeC-45EqOrd-u--C-61C-61_Eq_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (arg-12) (lambda (arg-13) (PreludeC-45EqOrd-u--C-61C-61_Eq_Bool arg-12 arg-13))) (lambda (arg-12) (lambda (arg-13) (PreludeC-45EqOrd-u--C-47C-61_Eq_Bool arg-12 arg-13)))) (cons (lambda (arg-12) (lambda (arg-13) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace arg-12 arg-13))) (lambda (arg-12) (lambda (arg-13) (CoreC-45NameC-45Namespace-u--C-47C-61_Eq_Namespace arg-12 arg-13)))) arg-10 arg-11))) (lambda (arg-10) (lambda (arg-11) (PreludeC-45EqOrd-u--C-47C-61_Eq_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (arg-12) (lambda (arg-13) (PreludeC-45EqOrd-u--C-61C-61_Eq_Bool arg-12 arg-13))) (lambda (arg-12) (lambda (arg-13) (PreludeC-45EqOrd-u--C-47C-61_Eq_Bool arg-12 arg-13)))) (cons (lambda (arg-12) (lambda (arg-13) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace arg-12 arg-13))) (lambda (arg-12) (lambda (arg-13) (CoreC-45NameC-45Namespace-u--C-47C-61_Eq_Namespace arg-12 arg-13)))) arg-10 arg-11)))) arg-8 arg-9)))) (cons arg-6 (cons arg-5 arg-7)) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) (let ((sc1 e-5)) (let ((e-20 (vector-ref sc1 21))) e-20)))) ext-0)))))))) -(define IdrisC-45ProcessIdr-readImport (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (IdrisC-45ProcessIdr-readModule arg-0 arg-1 arg-2 arg-3 (let ((sc0 arg-4)) (let ((e-0 (vector-ref sc0 1))) e-0)) 0 (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 3))) e-2)) (let ((sc0 arg-4)) (let ((e-3 (vector-ref sc0 4))) e-3)) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (CoreC-45Context-addImported arg-0 (cons (let ((sc1 arg-4)) (let ((e-2 (vector-ref sc1 3))) e-2)) (cons (let ((sc1 arg-4)) (let ((e-1 (vector-ref sc1 2))) e-1)) (let ((sc1 arg-4)) (let ((e-3 (vector-ref sc1 4))) e-3)))) ext-0))))))) -(define IdrisC-45ProcessIdr-readHeader (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 ((SystemC-45File-readFile (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-0)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-0) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (let ((act-17 (arg-578 eta-0))) (let ((act-16 (arg-580 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (let ((act-24 (arg-876 eta-0))) ((arg-877 act-24) eta-0))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-0) (let ((act-51 (arg-879 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) arg-2) ext-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((act-25 (IdrisC-45REPLC-45Opts-setCurrentElabSource arg-1 e-2 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((_-0 (vector 1 e-2))) (IdrisC-45ProcessIdr-case--caseC-32blockC-32inC-32readHeader-1215 arg-2 arg-1 arg-0 e-2 _-0 (ParserC-45Source-runParserTo 1 arg-2 (ParserC-45Unlit-isLitFile arg-2) (LibrariesC-45TextC-45Lexer-is #\:) e-2 (IdrisC-45Parser-progHdr arg-2)) ext-0)))))))) (else (let ((e-6 (vector-ref sc1 1))) (CoreC-45Core-u--throw_Catchable_Core_Error (vector 49 arg-2 e-6) ext-0)))))))))))) -(define IdrisC-45ProcessIdr-readHash (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (CoreC-45Directory-nsToPath arg-0 (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) e-0)) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 3))) e-2)) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((act-25 (CoreC-45Binary-readIFaceHash e-2 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (cons (let ((sc3 arg-2)) (let ((e-1 (vector-ref sc3 2))) e-1)) (cons (let ((sc3 arg-2)) (let ((e-3 (vector-ref sc3 4))) e-3)) e-6)))))))))) (else (let ((e-6 (vector-ref sc1 1))) (CoreC-45Core-u--throw_Catchable_Core_Error e-6 ext-0)))))))))))) -(define IdrisC-45ProcessIdr-readAsMain (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (CoreC-45Binary-readFromTTC (cons (lambda (arg-10255) (lambda (arg-10257) (lambda (eta-0) (IdrisC-45Syntax-u--toBuf_TTC_SyntaxInfo arg-10255 arg-10257 eta-0)))) (lambda (arg-10258) (lambda (eta-0) (IdrisC-45Syntax-u--fromBuf_TTC_SyntaxInfo arg-10258 eta-0)))) arg-0 arg-1 0 (CoreC-45FC-toplevelFC) 0 arg-3 (CoreC-45NameC-45Namespace-nsAsModuleIdent (CoreC-45NameC-45Namespace-emptyNS)) (CoreC-45NameC-45Namespace-emptyNS) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((sc2 e-1)) (let ((e-7 (car sc2))) (let ((e-6 (cdr sc2))) (let ((sc3 e-6)) (let ((e-10 (cdr sc3))) (let ((act-25 (CoreC-45Context-getNS arg-0 ext-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-26 (CoreC-45Context-getNestedNS arg-0 ext-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc5 1))) (let ((act-27 (IdrisC-45Desugar-extendSyn arg-2 e-7 ext-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((act-28 (let ((act-28 (unbox arg-1))) (vector 1 act-28)))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref sc7 1))) (let ((act-29 (CoreC-45Core-traverse_ (lambda (u--mimp) (let ((u--m (Builtin-fst u--mimp))) (let ((u--as (Builtin-snd (Builtin-snd u--mimp)))) (lambda (eta-0) (let ((act-29 (IdrisC-45ProcessIdr-readModule arg-0 arg-1 arg-2 0 (CoreC-45FC-emptyFC) 0 u--m u--as eta-0))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (CoreC-45Context-addImported arg-0 (cons u--m (cons 0 u--as)) eta-0))))))))) e-10 ext-0))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((act-30 (let ((act-30 (CoreC-45Context-getSession arg-0 ext-0))) (let ((sc9 act-30)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-15 (vector-ref sc9 1))) (let ((sc10 (let ((sc11 e-15)) (let ((e-0 (vector-ref sc11 1))) e-0)))) (cond ((equal? sc10 0) (vector 1 (vector 0 ))) (else (IdrisC-45ProcessIdr-readModule arg-0 arg-1 arg-2 0 (CoreC-45FC-emptyFC) 0 (CoreC-45NameC-45Namespace-nsAsModuleIdent (CoreC-45NameC-45Namespace-preludeNS)) (CoreC-45NameC-45Namespace-preludeNS) ext-0))))))))))) (let ((sc9 act-30)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((act-31 (let ((act-31 (unbox arg-1))) (vector 1 act-31)))) (let ((sc10 act-31)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-16 (vector-ref sc10 1))) (let ((act-32 (let ((act-32 (set-box! arg-1 (let ((sc11 e-16)) (let ((e-0 (vector-ref sc11 1))) (let ((e-22 (vector-ref sc11 2))) (let ((e-2 (vector-ref sc11 3))) (let ((e-3 (vector-ref sc11 4))) (let ((e-4 (vector-ref sc11 5))) (let ((e-21 (vector-ref sc11 6))) (let ((e-19 (vector-ref sc11 8))) (let ((e-18 (vector-ref sc11 9))) (let ((e-17 (vector-ref sc11 10))) (vector 0 e-0 e-22 e-2 e-3 e-4 e-21 (let ((sc12 e-13)) (let ((e-26 (vector-ref sc12 7))) e-26)) e-19 e-18 e-17)))))))))))))) (vector 1 act-32)))) (let ((sc11 act-32)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((act-33 (CoreC-45Context-setNS arg-0 e-8 ext-0))) (let ((sc12 act-33)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (CoreC-45Context-setNestedNS arg-0 e-11 ext-0)))))))))))))))))))))))))))))))))))))))))))))))) (else (CoreC-45Core-u--throw_Catchable_Core_Error (vector 57 "Already loaded") ext-0))))))))))) -(define IdrisC-45ProcessIdr-processMod (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 ext-0) (CoreC-45Core-u--catch_Catchable_Core_Error (lambda (eta-0) (let ((act-24 (IdrisC-45REPLC-45Opts-setCurrentElabSource arg-4 arg-8 eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((act-25 (IdrisC-45ProcessIdr-readHeader arg-0 arg-4 arg-5 eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (CoreC-45Context-getSession arg-0 eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((u--imps (IdrisC-45ProcessIdr-case--processMod-1339 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 e-6 e-7 (PreludeC-45Basics-C-124C-124 (let ((sc3 e-7)) (let ((e-0 (vector-ref sc3 1))) e-0)) (lambda () (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_ModuleIdent (let ((sc3 e-6)) (let ((e-1 (vector-ref sc3 2))) e-1)) (CoreC-45NameC-45Namespace-nsAsModuleIdent (CoreC-45NameC-45Namespace-preludeNS)))))))) (let ((act-27 (CoreC-45Core-traverseC-39 (lambda (eta-1) (lambda (eta-2) (IdrisC-45ProcessIdr-readHash arg-0 arg-1 eta-1 eta-2))) u--imps '() eta-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (let ((act-28 (unbox arg-0))) (vector 1 act-28)))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-29 (CoreC-45ContextC-45Log-log arg-0 "" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Current hash " (PreludeC-45Show-u--show_Show_Int (let ((sc5 e-9)) (let ((e-17 (vector-ref sc5 18))) e-17))))) eta-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((act-30 (CoreC-45ContextC-45Log-log arg-0 "" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 (CoreC-45NameC-45Namespace-u--show_Show_ModuleIdent (let ((sc6 e-6)) (let ((e-1 (vector-ref sc6 2))) e-1))) (PreludeC-45TypesC-45String-C-43C-43 " hashes:\u000a" (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (CoreC-45NameC-45Namespace-u--show_Show_Namespace x-0)) (lambda (u--d) (lambda (x-0) (CoreC-45NameC-45Namespace-u--showPrec_Show_Namespace u--d x-0)))) (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_Int x-0)) (lambda (u--d) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_Int u--d x-0))))) u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (CoreC-45NameC-45Namespace-u--show_Show_Namespace x-0)) (lambda (d-0) (lambda (x-0) (CoreC-45NameC-45Namespace-u--showPrec_Show_Namespace d-0 x-0)))) (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_Int x-0)) (lambda (d-0) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-0))))) u--d u--x)))) (DataC-45List-sort (vector 0 (cons (lambda (arg-9) (lambda (arg-10) (PreludeC-45EqOrd-u--C-61C-61_Eq_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (arg-11) (lambda (arg-12) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (CoreC-45NameC-45Namespace-u--C-47C-61_Eq_Namespace arg-11 arg-12)))) (cons (lambda (arg-11) (lambda (arg-12) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-11 arg-12)))) arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (PreludeC-45EqOrd-u--C-47C-61_Eq_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (arg-11) (lambda (arg-12) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (CoreC-45NameC-45Namespace-u--C-47C-61_Eq_Namespace arg-11 arg-12)))) (cons (lambda (arg-11) (lambda (arg-12) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-11 arg-12)))) arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector 0 (cons (lambda (arg-9) (lambda (arg-10) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (CoreC-45NameC-45Namespace-u--C-47C-61_Eq_Namespace arg-9 arg-10)))) (lambda (arg-373) (lambda (arg-374) (CoreC-45NameC-45Namespace-u--compare_Ord_Namespace arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (CoreC-45NameC-45Namespace-u--C-60_Ord_Namespace arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (CoreC-45NameC-45Namespace-u--C-62_Ord_Namespace arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (CoreC-45NameC-45Namespace-u--C-60C-61_Ord_Namespace arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (CoreC-45NameC-45Namespace-u--C-62C-61_Ord_Namespace arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (CoreC-45NameC-45Namespace-u--max_Ord_Namespace arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (CoreC-45NameC-45Namespace-u--min_Ord_Namespace arg-383 arg-384)))) (vector 0 (cons (lambda (arg-9) (lambda (arg-10) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-9 arg-10)))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--compare_Ord_Int arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Int arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Int arg-383 arg-384)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector 0 (cons (lambda (arg-9) (lambda (arg-10) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (CoreC-45NameC-45Namespace-u--C-47C-61_Eq_Namespace arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (CoreC-45NameC-45Namespace-u--compare_Ord_Namespace arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (CoreC-45NameC-45Namespace-u--C-60_Ord_Namespace arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (CoreC-45NameC-45Namespace-u--C-62_Ord_Namespace arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (CoreC-45NameC-45Namespace-u--C-60C-61_Ord_Namespace arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (CoreC-45NameC-45Namespace-u--C-62C-61_Ord_Namespace arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (CoreC-45NameC-45Namespace-u--max_Ord_Namespace arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (CoreC-45NameC-45Namespace-u--min_Ord_Namespace arg-383 arg-384)))) (vector 0 (cons (lambda (arg-9) (lambda (arg-10) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Int arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Int arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Int arg-383 arg-384)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector 0 (cons (lambda (arg-9) (lambda (arg-10) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (CoreC-45NameC-45Namespace-u--C-47C-61_Eq_Namespace arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (CoreC-45NameC-45Namespace-u--compare_Ord_Namespace arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (CoreC-45NameC-45Namespace-u--C-60_Ord_Namespace arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (CoreC-45NameC-45Namespace-u--C-62_Ord_Namespace arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (CoreC-45NameC-45Namespace-u--C-60C-61_Ord_Namespace arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (CoreC-45NameC-45Namespace-u--C-62C-61_Ord_Namespace arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (CoreC-45NameC-45Namespace-u--max_Ord_Namespace arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (CoreC-45NameC-45Namespace-u--min_Ord_Namespace arg-383 arg-384)))) (vector 0 (cons (lambda (arg-9) (lambda (arg-10) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Int arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Int arg-383 arg-384)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector 0 (cons (lambda (arg-9) (lambda (arg-10) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (CoreC-45NameC-45Namespace-u--C-47C-61_Eq_Namespace arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (CoreC-45NameC-45Namespace-u--compare_Ord_Namespace arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (CoreC-45NameC-45Namespace-u--C-60_Ord_Namespace arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (CoreC-45NameC-45Namespace-u--C-62_Ord_Namespace arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (CoreC-45NameC-45Namespace-u--C-60C-61_Ord_Namespace arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (CoreC-45NameC-45Namespace-u--C-62C-61_Ord_Namespace arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (CoreC-45NameC-45Namespace-u--max_Ord_Namespace arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (CoreC-45NameC-45Namespace-u--min_Ord_Namespace arg-383 arg-384)))) (vector 0 (cons (lambda (arg-9) (lambda (arg-10) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Int arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Int arg-383 arg-384)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector 0 (cons (lambda (arg-9) (lambda (arg-10) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (CoreC-45NameC-45Namespace-u--C-47C-61_Eq_Namespace arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (CoreC-45NameC-45Namespace-u--compare_Ord_Namespace arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (CoreC-45NameC-45Namespace-u--C-60_Ord_Namespace arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (CoreC-45NameC-45Namespace-u--C-62_Ord_Namespace arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (CoreC-45NameC-45Namespace-u--C-60C-61_Ord_Namespace arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (CoreC-45NameC-45Namespace-u--C-62C-61_Ord_Namespace arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (CoreC-45NameC-45Namespace-u--max_Ord_Namespace arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (CoreC-45NameC-45Namespace-u--min_Ord_Namespace arg-383 arg-384)))) (vector 0 (cons (lambda (arg-9) (lambda (arg-10) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Int arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Int arg-383 arg-384)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector 0 (cons (lambda (arg-9) (lambda (arg-10) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (CoreC-45NameC-45Namespace-u--C-47C-61_Eq_Namespace arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (CoreC-45NameC-45Namespace-u--compare_Ord_Namespace arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (CoreC-45NameC-45Namespace-u--C-60_Ord_Namespace arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (CoreC-45NameC-45Namespace-u--C-62_Ord_Namespace arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (CoreC-45NameC-45Namespace-u--C-60C-61_Ord_Namespace arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (CoreC-45NameC-45Namespace-u--C-62C-61_Ord_Namespace arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (CoreC-45NameC-45Namespace-u--max_Ord_Namespace arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (CoreC-45NameC-45Namespace-u--min_Ord_Namespace arg-383 arg-384)))) (vector 0 (cons (lambda (arg-9) (lambda (arg-10) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--max_Ord_Int arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Int arg-383 arg-384)))) arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector 0 (cons (lambda (arg-9) (lambda (arg-10) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (CoreC-45NameC-45Namespace-u--C-47C-61_Eq_Namespace arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (CoreC-45NameC-45Namespace-u--compare_Ord_Namespace arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (CoreC-45NameC-45Namespace-u--C-60_Ord_Namespace arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (CoreC-45NameC-45Namespace-u--C-62_Ord_Namespace arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (CoreC-45NameC-45Namespace-u--C-60C-61_Ord_Namespace arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (CoreC-45NameC-45Namespace-u--C-62C-61_Ord_Namespace arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (CoreC-45NameC-45Namespace-u--max_Ord_Namespace arg-381 arg-382))) (lambda (arg-385) (lambda (arg-386) (CoreC-45NameC-45Namespace-u--min_Ord_Namespace arg-385 arg-386)))) (vector 0 (cons (lambda (arg-9) (lambda (arg-10) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Int arg-381 arg-382))) (lambda (arg-385) (lambda (arg-386) (PreludeC-45EqOrd-u--min_Ord_Int arg-385 arg-386)))) arg-383 arg-384)))) (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) e-8)))))) eta-0))) (let ((sc6 act-30)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((act-31 (CoreC-45Binary-readImportHashes arg-6 eta-0))) (let ((sc7 act-31)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc7 1))) (let ((act-32 (CoreC-45ContextC-45Log-log arg-0 "" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (PreludeC-45TypesC-45String-C-43C-43 "Old hashes from " (PreludeC-45TypesC-45String-C-43C-43 arg-6 (PreludeC-45TypesC-45String-C-43C-43 ":\u000a" (PreludeC-45Show-u--show_Show_C-40ListC-32C-36aC-41 (cons (lambda (u--x) (PreludeC-45Show-u--show_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (CoreC-45NameC-45Namespace-u--show_Show_Namespace x-0)) (lambda (u--d) (lambda (x-0) (CoreC-45NameC-45Namespace-u--showPrec_Show_Namespace u--d x-0)))) (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_Int x-0)) (lambda (u--d) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_Int u--d x-0))))) u--x)) (lambda (u--d) (lambda (u--x) (PreludeC-45Show-u--showPrec_Show_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (cons (lambda (x-0) (CoreC-45NameC-45Namespace-u--show_Show_Namespace x-0)) (lambda (d-0) (lambda (x-0) (CoreC-45NameC-45Namespace-u--showPrec_Show_Namespace d-0 x-0)))) (cons (lambda (x-0) (PreludeC-45Show-u--show_Show_Int x-0)) (lambda (d-0) (lambda (x-0) (PreludeC-45Show-u--showPrec_Show_Int d-0 x-0))))) u--d u--x)))) (DataC-45List-sort (vector 0 (cons (lambda (arg-9) (lambda (arg-10) (PreludeC-45EqOrd-u--C-61C-61_Eq_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (arg-11) (lambda (arg-12) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (CoreC-45NameC-45Namespace-u--C-47C-61_Eq_Namespace arg-11 arg-12)))) (cons (lambda (arg-11) (lambda (arg-12) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-11 arg-12)))) arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (PreludeC-45EqOrd-u--C-47C-61_Eq_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (arg-11) (lambda (arg-12) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (CoreC-45NameC-45Namespace-u--C-47C-61_Eq_Namespace arg-11 arg-12)))) (cons (lambda (arg-11) (lambda (arg-12) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-11 arg-12)))) arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector 0 (cons (lambda (arg-9) (lambda (arg-10) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (CoreC-45NameC-45Namespace-u--C-47C-61_Eq_Namespace arg-9 arg-10)))) (lambda (arg-373) (lambda (arg-374) (CoreC-45NameC-45Namespace-u--compare_Ord_Namespace arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (CoreC-45NameC-45Namespace-u--C-60_Ord_Namespace arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (CoreC-45NameC-45Namespace-u--C-62_Ord_Namespace arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (CoreC-45NameC-45Namespace-u--C-60C-61_Ord_Namespace arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (CoreC-45NameC-45Namespace-u--C-62C-61_Ord_Namespace arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (CoreC-45NameC-45Namespace-u--max_Ord_Namespace arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (CoreC-45NameC-45Namespace-u--min_Ord_Namespace arg-383 arg-384)))) (vector 0 (cons (lambda (arg-9) (lambda (arg-10) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-9 arg-10)))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--compare_Ord_Int arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Int arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Int arg-383 arg-384)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector 0 (cons (lambda (arg-9) (lambda (arg-10) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (CoreC-45NameC-45Namespace-u--C-47C-61_Eq_Namespace arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (CoreC-45NameC-45Namespace-u--compare_Ord_Namespace arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (CoreC-45NameC-45Namespace-u--C-60_Ord_Namespace arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (CoreC-45NameC-45Namespace-u--C-62_Ord_Namespace arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (CoreC-45NameC-45Namespace-u--C-60C-61_Ord_Namespace arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (CoreC-45NameC-45Namespace-u--C-62C-61_Ord_Namespace arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (CoreC-45NameC-45Namespace-u--max_Ord_Namespace arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (CoreC-45NameC-45Namespace-u--min_Ord_Namespace arg-383 arg-384)))) (vector 0 (cons (lambda (arg-9) (lambda (arg-10) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Int arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Int arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Int arg-383 arg-384)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector 0 (cons (lambda (arg-9) (lambda (arg-10) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (CoreC-45NameC-45Namespace-u--C-47C-61_Eq_Namespace arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (CoreC-45NameC-45Namespace-u--compare_Ord_Namespace arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (CoreC-45NameC-45Namespace-u--C-60_Ord_Namespace arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (CoreC-45NameC-45Namespace-u--C-62_Ord_Namespace arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (CoreC-45NameC-45Namespace-u--C-60C-61_Ord_Namespace arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (CoreC-45NameC-45Namespace-u--C-62C-61_Ord_Namespace arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (CoreC-45NameC-45Namespace-u--max_Ord_Namespace arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (CoreC-45NameC-45Namespace-u--min_Ord_Namespace arg-383 arg-384)))) (vector 0 (cons (lambda (arg-9) (lambda (arg-10) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Int arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Int arg-383 arg-384)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector 0 (cons (lambda (arg-9) (lambda (arg-10) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (CoreC-45NameC-45Namespace-u--C-47C-61_Eq_Namespace arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (CoreC-45NameC-45Namespace-u--compare_Ord_Namespace arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (CoreC-45NameC-45Namespace-u--C-60_Ord_Namespace arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (CoreC-45NameC-45Namespace-u--C-62_Ord_Namespace arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (CoreC-45NameC-45Namespace-u--C-60C-61_Ord_Namespace arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (CoreC-45NameC-45Namespace-u--C-62C-61_Ord_Namespace arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (CoreC-45NameC-45Namespace-u--max_Ord_Namespace arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (CoreC-45NameC-45Namespace-u--min_Ord_Namespace arg-383 arg-384)))) (vector 0 (cons (lambda (arg-9) (lambda (arg-10) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Int arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Int arg-383 arg-384)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector 0 (cons (lambda (arg-9) (lambda (arg-10) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (CoreC-45NameC-45Namespace-u--C-47C-61_Eq_Namespace arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (CoreC-45NameC-45Namespace-u--compare_Ord_Namespace arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (CoreC-45NameC-45Namespace-u--C-60_Ord_Namespace arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (CoreC-45NameC-45Namespace-u--C-62_Ord_Namespace arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (CoreC-45NameC-45Namespace-u--C-60C-61_Ord_Namespace arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (CoreC-45NameC-45Namespace-u--C-62C-61_Ord_Namespace arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (CoreC-45NameC-45Namespace-u--max_Ord_Namespace arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (CoreC-45NameC-45Namespace-u--min_Ord_Namespace arg-383 arg-384)))) (vector 0 (cons (lambda (arg-9) (lambda (arg-10) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Int arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Int arg-383 arg-384)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector 0 (cons (lambda (arg-9) (lambda (arg-10) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (CoreC-45NameC-45Namespace-u--C-47C-61_Eq_Namespace arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (CoreC-45NameC-45Namespace-u--compare_Ord_Namespace arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (CoreC-45NameC-45Namespace-u--C-60_Ord_Namespace arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (CoreC-45NameC-45Namespace-u--C-62_Ord_Namespace arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (CoreC-45NameC-45Namespace-u--C-60C-61_Ord_Namespace arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (CoreC-45NameC-45Namespace-u--C-62C-61_Ord_Namespace arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (CoreC-45NameC-45Namespace-u--max_Ord_Namespace arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (CoreC-45NameC-45Namespace-u--min_Ord_Namespace arg-383 arg-384)))) (vector 0 (cons (lambda (arg-9) (lambda (arg-10) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--max_Ord_Int arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Int arg-383 arg-384)))) arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector 0 (cons (lambda (arg-9) (lambda (arg-10) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (CoreC-45NameC-45Namespace-u--C-47C-61_Eq_Namespace arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (CoreC-45NameC-45Namespace-u--compare_Ord_Namespace arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (CoreC-45NameC-45Namespace-u--C-60_Ord_Namespace arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (CoreC-45NameC-45Namespace-u--C-62_Ord_Namespace arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (CoreC-45NameC-45Namespace-u--C-60C-61_Ord_Namespace arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (CoreC-45NameC-45Namespace-u--C-62C-61_Ord_Namespace arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (CoreC-45NameC-45Namespace-u--max_Ord_Namespace arg-381 arg-382))) (lambda (arg-385) (lambda (arg-386) (CoreC-45NameC-45Namespace-u--min_Ord_Namespace arg-385 arg-386)))) (vector 0 (cons (lambda (arg-9) (lambda (arg-10) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Int arg-381 arg-382))) (lambda (arg-385) (lambda (arg-386) (PreludeC-45EqOrd-u--min_Ord_Int arg-385 arg-386)))) arg-383 arg-384)))) e-12)))))) eta-0))) (let ((sc8 act-32)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((act-33 (IdrisC-45ProcessIdr-modTime arg-5 eta-0))) (let ((sc9 act-33)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref sc9 1))) (let ((act-34 (IdrisC-45ProcessIdr-modTime arg-6 eta-0))) (let ((sc10 act-34)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-15 (vector-ref sc10 1))) (let ((u--ns (let ((sc11 e-6)) (let ((e-1 (vector-ref sc11 2))) e-1)))) (IdrisC-45ProcessIdr-case--processMod-1541 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 e-6 e-7 u--imps e-8 e-9 e-12 e-14 e-15 u--ns (PreludeC-45Basics-C-38C-38 (PreludeC-45Types-u--C-61C-61_Eq_C-40ListC-32C-36aC-41 (cons (lambda (arg-9) (lambda (arg-10) (PreludeC-45EqOrd-u--C-61C-61_Eq_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (arg-11) (lambda (arg-12) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (CoreC-45NameC-45Namespace-u--C-47C-61_Eq_Namespace arg-11 arg-12)))) (cons (lambda (arg-11) (lambda (arg-12) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-11 arg-12)))) arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (PreludeC-45EqOrd-u--C-47C-61_Eq_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (arg-11) (lambda (arg-12) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (CoreC-45NameC-45Namespace-u--C-47C-61_Eq_Namespace arg-11 arg-12)))) (cons (lambda (arg-11) (lambda (arg-12) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-11 arg-12)))) arg-9 arg-10)))) (DataC-45List-sort (vector 0 (cons (lambda (arg-9) (lambda (arg-10) (PreludeC-45EqOrd-u--C-61C-61_Eq_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (arg-11) (lambda (arg-12) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (CoreC-45NameC-45Namespace-u--C-47C-61_Eq_Namespace arg-11 arg-12)))) (cons (lambda (arg-11) (lambda (arg-12) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-11 arg-12)))) arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (PreludeC-45EqOrd-u--C-47C-61_Eq_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (arg-11) (lambda (arg-12) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (CoreC-45NameC-45Namespace-u--C-47C-61_Eq_Namespace arg-11 arg-12)))) (cons (lambda (arg-11) (lambda (arg-12) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-11 arg-12)))) arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector 0 (cons (lambda (arg-9) (lambda (arg-10) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (CoreC-45NameC-45Namespace-u--C-47C-61_Eq_Namespace arg-9 arg-10)))) (lambda (arg-373) (lambda (arg-374) (CoreC-45NameC-45Namespace-u--compare_Ord_Namespace arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (CoreC-45NameC-45Namespace-u--C-60_Ord_Namespace arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (CoreC-45NameC-45Namespace-u--C-62_Ord_Namespace arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (CoreC-45NameC-45Namespace-u--C-60C-61_Ord_Namespace arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (CoreC-45NameC-45Namespace-u--C-62C-61_Ord_Namespace arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (CoreC-45NameC-45Namespace-u--max_Ord_Namespace arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (CoreC-45NameC-45Namespace-u--min_Ord_Namespace arg-383 arg-384)))) (vector 0 (cons (lambda (arg-9) (lambda (arg-10) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-9 arg-10)))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--compare_Ord_Int arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Int arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Int arg-383 arg-384)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector 0 (cons (lambda (arg-9) (lambda (arg-10) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (CoreC-45NameC-45Namespace-u--C-47C-61_Eq_Namespace arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (CoreC-45NameC-45Namespace-u--compare_Ord_Namespace arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (CoreC-45NameC-45Namespace-u--C-60_Ord_Namespace arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (CoreC-45NameC-45Namespace-u--C-62_Ord_Namespace arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (CoreC-45NameC-45Namespace-u--C-60C-61_Ord_Namespace arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (CoreC-45NameC-45Namespace-u--C-62C-61_Ord_Namespace arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (CoreC-45NameC-45Namespace-u--max_Ord_Namespace arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (CoreC-45NameC-45Namespace-u--min_Ord_Namespace arg-383 arg-384)))) (vector 0 (cons (lambda (arg-9) (lambda (arg-10) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Int arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Int arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Int arg-383 arg-384)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector 0 (cons (lambda (arg-9) (lambda (arg-10) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (CoreC-45NameC-45Namespace-u--C-47C-61_Eq_Namespace arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (CoreC-45NameC-45Namespace-u--compare_Ord_Namespace arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (CoreC-45NameC-45Namespace-u--C-60_Ord_Namespace arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (CoreC-45NameC-45Namespace-u--C-62_Ord_Namespace arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (CoreC-45NameC-45Namespace-u--C-60C-61_Ord_Namespace arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (CoreC-45NameC-45Namespace-u--C-62C-61_Ord_Namespace arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (CoreC-45NameC-45Namespace-u--max_Ord_Namespace arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (CoreC-45NameC-45Namespace-u--min_Ord_Namespace arg-383 arg-384)))) (vector 0 (cons (lambda (arg-9) (lambda (arg-10) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Int arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Int arg-383 arg-384)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector 0 (cons (lambda (arg-9) (lambda (arg-10) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (CoreC-45NameC-45Namespace-u--C-47C-61_Eq_Namespace arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (CoreC-45NameC-45Namespace-u--compare_Ord_Namespace arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (CoreC-45NameC-45Namespace-u--C-60_Ord_Namespace arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (CoreC-45NameC-45Namespace-u--C-62_Ord_Namespace arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (CoreC-45NameC-45Namespace-u--C-60C-61_Ord_Namespace arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (CoreC-45NameC-45Namespace-u--C-62C-61_Ord_Namespace arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (CoreC-45NameC-45Namespace-u--max_Ord_Namespace arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (CoreC-45NameC-45Namespace-u--min_Ord_Namespace arg-383 arg-384)))) (vector 0 (cons (lambda (arg-9) (lambda (arg-10) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Int arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Int arg-383 arg-384)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector 0 (cons (lambda (arg-9) (lambda (arg-10) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (CoreC-45NameC-45Namespace-u--C-47C-61_Eq_Namespace arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (CoreC-45NameC-45Namespace-u--compare_Ord_Namespace arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (CoreC-45NameC-45Namespace-u--C-60_Ord_Namespace arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (CoreC-45NameC-45Namespace-u--C-62_Ord_Namespace arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (CoreC-45NameC-45Namespace-u--C-60C-61_Ord_Namespace arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (CoreC-45NameC-45Namespace-u--C-62C-61_Ord_Namespace arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (CoreC-45NameC-45Namespace-u--max_Ord_Namespace arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (CoreC-45NameC-45Namespace-u--min_Ord_Namespace arg-383 arg-384)))) (vector 0 (cons (lambda (arg-9) (lambda (arg-10) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Int arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Int arg-383 arg-384)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector 0 (cons (lambda (arg-9) (lambda (arg-10) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (CoreC-45NameC-45Namespace-u--C-47C-61_Eq_Namespace arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (CoreC-45NameC-45Namespace-u--compare_Ord_Namespace arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (CoreC-45NameC-45Namespace-u--C-60_Ord_Namespace arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (CoreC-45NameC-45Namespace-u--C-62_Ord_Namespace arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (CoreC-45NameC-45Namespace-u--C-60C-61_Ord_Namespace arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (CoreC-45NameC-45Namespace-u--C-62C-61_Ord_Namespace arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (CoreC-45NameC-45Namespace-u--max_Ord_Namespace arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (CoreC-45NameC-45Namespace-u--min_Ord_Namespace arg-383 arg-384)))) (vector 0 (cons (lambda (arg-9) (lambda (arg-10) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--max_Ord_Int arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Int arg-383 arg-384)))) arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector 0 (cons (lambda (arg-9) (lambda (arg-10) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (CoreC-45NameC-45Namespace-u--C-47C-61_Eq_Namespace arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (CoreC-45NameC-45Namespace-u--compare_Ord_Namespace arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (CoreC-45NameC-45Namespace-u--C-60_Ord_Namespace arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (CoreC-45NameC-45Namespace-u--C-62_Ord_Namespace arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (CoreC-45NameC-45Namespace-u--C-60C-61_Ord_Namespace arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (CoreC-45NameC-45Namespace-u--C-62C-61_Ord_Namespace arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (CoreC-45NameC-45Namespace-u--max_Ord_Namespace arg-381 arg-382))) (lambda (arg-385) (lambda (arg-386) (CoreC-45NameC-45Namespace-u--min_Ord_Namespace arg-385 arg-386)))) (vector 0 (cons (lambda (arg-9) (lambda (arg-10) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Int arg-381 arg-382))) (lambda (arg-385) (lambda (arg-386) (PreludeC-45EqOrd-u--min_Ord_Int arg-385 arg-386)))) arg-383 arg-384)))) (PreludeC-45Types-u--map_Functor_List (lambda (eta-1) (Builtin-snd eta-1)) e-8)) (DataC-45List-sort (vector 0 (cons (lambda (arg-9) (lambda (arg-10) (PreludeC-45EqOrd-u--C-61C-61_Eq_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (arg-11) (lambda (arg-12) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (CoreC-45NameC-45Namespace-u--C-47C-61_Eq_Namespace arg-11 arg-12)))) (cons (lambda (arg-11) (lambda (arg-12) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-11 arg-12)))) arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (PreludeC-45EqOrd-u--C-47C-61_Eq_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (cons (lambda (arg-11) (lambda (arg-12) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (CoreC-45NameC-45Namespace-u--C-47C-61_Eq_Namespace arg-11 arg-12)))) (cons (lambda (arg-11) (lambda (arg-12) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-11 arg-12)))) arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector 0 (cons (lambda (arg-9) (lambda (arg-10) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (CoreC-45NameC-45Namespace-u--C-47C-61_Eq_Namespace arg-9 arg-10)))) (lambda (arg-373) (lambda (arg-374) (CoreC-45NameC-45Namespace-u--compare_Ord_Namespace arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (CoreC-45NameC-45Namespace-u--C-60_Ord_Namespace arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (CoreC-45NameC-45Namespace-u--C-62_Ord_Namespace arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (CoreC-45NameC-45Namespace-u--C-60C-61_Ord_Namespace arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (CoreC-45NameC-45Namespace-u--C-62C-61_Ord_Namespace arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (CoreC-45NameC-45Namespace-u--max_Ord_Namespace arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (CoreC-45NameC-45Namespace-u--min_Ord_Namespace arg-383 arg-384)))) (vector 0 (cons (lambda (arg-9) (lambda (arg-10) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-9 arg-10)))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--compare_Ord_Int arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Int arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Int arg-383 arg-384)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector 0 (cons (lambda (arg-9) (lambda (arg-10) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (CoreC-45NameC-45Namespace-u--C-47C-61_Eq_Namespace arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (CoreC-45NameC-45Namespace-u--compare_Ord_Namespace arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (CoreC-45NameC-45Namespace-u--C-60_Ord_Namespace arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (CoreC-45NameC-45Namespace-u--C-62_Ord_Namespace arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (CoreC-45NameC-45Namespace-u--C-60C-61_Ord_Namespace arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (CoreC-45NameC-45Namespace-u--C-62C-61_Ord_Namespace arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (CoreC-45NameC-45Namespace-u--max_Ord_Namespace arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (CoreC-45NameC-45Namespace-u--min_Ord_Namespace arg-383 arg-384)))) (vector 0 (cons (lambda (arg-9) (lambda (arg-10) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Int arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Int arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Int arg-383 arg-384)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector 0 (cons (lambda (arg-9) (lambda (arg-10) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (CoreC-45NameC-45Namespace-u--C-47C-61_Eq_Namespace arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (CoreC-45NameC-45Namespace-u--compare_Ord_Namespace arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (CoreC-45NameC-45Namespace-u--C-60_Ord_Namespace arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (CoreC-45NameC-45Namespace-u--C-62_Ord_Namespace arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (CoreC-45NameC-45Namespace-u--C-60C-61_Ord_Namespace arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (CoreC-45NameC-45Namespace-u--C-62C-61_Ord_Namespace arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (CoreC-45NameC-45Namespace-u--max_Ord_Namespace arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (CoreC-45NameC-45Namespace-u--min_Ord_Namespace arg-383 arg-384)))) (vector 0 (cons (lambda (arg-9) (lambda (arg-10) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Int arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Int arg-383 arg-384)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector 0 (cons (lambda (arg-9) (lambda (arg-10) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (CoreC-45NameC-45Namespace-u--C-47C-61_Eq_Namespace arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (CoreC-45NameC-45Namespace-u--compare_Ord_Namespace arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (CoreC-45NameC-45Namespace-u--C-60_Ord_Namespace arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (CoreC-45NameC-45Namespace-u--C-62_Ord_Namespace arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (CoreC-45NameC-45Namespace-u--C-60C-61_Ord_Namespace arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (CoreC-45NameC-45Namespace-u--C-62C-61_Ord_Namespace arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (CoreC-45NameC-45Namespace-u--max_Ord_Namespace arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (CoreC-45NameC-45Namespace-u--min_Ord_Namespace arg-383 arg-384)))) (vector 0 (cons (lambda (arg-9) (lambda (arg-10) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Int arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Int arg-383 arg-384)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector 0 (cons (lambda (arg-9) (lambda (arg-10) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (CoreC-45NameC-45Namespace-u--C-47C-61_Eq_Namespace arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (CoreC-45NameC-45Namespace-u--compare_Ord_Namespace arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (CoreC-45NameC-45Namespace-u--C-60_Ord_Namespace arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (CoreC-45NameC-45Namespace-u--C-62_Ord_Namespace arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (CoreC-45NameC-45Namespace-u--C-60C-61_Ord_Namespace arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (CoreC-45NameC-45Namespace-u--C-62C-61_Ord_Namespace arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (CoreC-45NameC-45Namespace-u--max_Ord_Namespace arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (CoreC-45NameC-45Namespace-u--min_Ord_Namespace arg-383 arg-384)))) (vector 0 (cons (lambda (arg-9) (lambda (arg-10) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Int arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Int arg-383 arg-384)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector 0 (cons (lambda (arg-9) (lambda (arg-10) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (CoreC-45NameC-45Namespace-u--C-47C-61_Eq_Namespace arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (CoreC-45NameC-45Namespace-u--compare_Ord_Namespace arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (CoreC-45NameC-45Namespace-u--C-60_Ord_Namespace arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (CoreC-45NameC-45Namespace-u--C-62_Ord_Namespace arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (CoreC-45NameC-45Namespace-u--C-60C-61_Ord_Namespace arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (CoreC-45NameC-45Namespace-u--C-62C-61_Ord_Namespace arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (CoreC-45NameC-45Namespace-u--max_Ord_Namespace arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (CoreC-45NameC-45Namespace-u--min_Ord_Namespace arg-383 arg-384)))) (vector 0 (cons (lambda (arg-9) (lambda (arg-10) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--max_Ord_Int arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_Int arg-383 arg-384)))) arg-381 arg-382))) (lambda (arg-383) (lambda (arg-384) (PreludeC-45EqOrd-u--min_Ord_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (vector 0 (cons (lambda (arg-9) (lambda (arg-10) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_Namespace arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (CoreC-45NameC-45Namespace-u--C-47C-61_Eq_Namespace arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (CoreC-45NameC-45Namespace-u--compare_Ord_Namespace arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (CoreC-45NameC-45Namespace-u--C-60_Ord_Namespace arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (CoreC-45NameC-45Namespace-u--C-62_Ord_Namespace arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (CoreC-45NameC-45Namespace-u--C-60C-61_Ord_Namespace arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (CoreC-45NameC-45Namespace-u--C-62C-61_Ord_Namespace arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (CoreC-45NameC-45Namespace-u--max_Ord_Namespace arg-381 arg-382))) (lambda (arg-385) (lambda (arg-386) (CoreC-45NameC-45Namespace-u--min_Ord_Namespace arg-385 arg-386)))) (vector 0 (cons (lambda (arg-9) (lambda (arg-10) (PreludeC-45EqOrd-u--C-61C-61_Eq_Int arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (PreludeC-45EqOrd-u--C-47C-61_Eq_Int arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (PreludeC-45EqOrd-u--compare_Ord_Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (PreludeC-45EqOrd-u--C-60_Ord_Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (PreludeC-45EqOrd-u--C-62_Ord_Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (PreludeC-45EqOrd-u--C-60C-61_Ord_Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (PreludeC-45EqOrd-u--C-62C-61_Ord_Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (PreludeC-45EqOrd-u--max_Ord_Int arg-381 arg-382))) (lambda (arg-385) (lambda (arg-386) (PreludeC-45EqOrd-u--min_Ord_Int arg-385 arg-386)))) arg-383 arg-384)))) e-12)) (lambda () (PreludeC-45EqOrd-u--C-60C-61_Ord_Integer e-14 e-15))) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))) (lambda (u--err) (lambda (eta-0) (vector 1 (vector 1 (cons u--err '()))))) ext-0))) -(define IdrisC-45ProcessIdr-processDecls (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (CoreC-45Core-traverseC-39 (lambda (eta-0) (lambda (eta-1) (IdrisC-45ProcessIdr-processDecl arg-0 arg-1 arg-2 arg-3 eta-0 eta-1))) arg-4 '() ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (CoreC-45UnifyState-checkDelayedHoles arg-1 arg-0 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((0) (let ((act-26 (TTImpC-45ProcessDecls-getTotalityErrors arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (PreludeC-45TypesC-45List-C-43C-43 (DataC-45List-mapMaybe (lambda (eta-0) eta-0) e-5) e-7)))))))) (else (let ((e-2 (vector-ref sc2 1))) (vector 1 (let ((_-0 (vector 1 e-2))) (IdrisC-45ProcessIdr-case--caseC-32blockC-32inC-32processDecls-489 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-2 _-0 (DataC-45List-mapMaybe (lambda (eta-0) eta-0) e-5)))))))))))))))))))) -(define IdrisC-45ProcessIdr-processDecl (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (CoreC-45Core-u--catch_Catchable_Core_Error (lambda (eta-0) (let ((act-24 ((IdrisC-45Desugar-desugarDecl arg-2 arg-0 arg-1 arg-3 '() arg-4) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (CoreC-45Core-traverse_ (lambda (eta-1) (TTImpC-45ElabC-45Check-processDecl '() arg-0 arg-3 arg-1 '() '() '() eta-1)) e-5 eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))))))))) (lambda (u--err) (lambda (eta-0) (let ((act-24 (CoreC-45Unify-giveUpConstraints arg-0 arg-1 eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (vector 1 (vector 1 u--err)))))))) ext-0))) -(define IdrisC-45ProcessIdr-process (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 (let ((act-24 ((SystemC-45File-readFile (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-0)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-0) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (let ((act-17 (arg-578 eta-0))) (let ((act-16 (arg-580 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (let ((act-24 (arg-876 eta-0))) ((arg-877 act-24) eta-0))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-0) (let ((act-51 (arg-879 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) arg-6) ext-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (CoreC-45Core-u--catch_Catchable_Core_Error (lambda (eta-0) (let ((act-25 (CoreC-45Directory-getTTCFileName arg-0 arg-6 "ttc" eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (CoreC-45ContextC-45Log-logTime arg-0 (lambda () (PreludeC-45TypesC-45String-C-43C-43 "+ Elaborating " arg-6)) (lambda (eta-1) (IdrisC-45ProcessIdr-processMod arg-0 arg-2 arg-3 arg-1 arg-4 arg-6 e-6 arg-5 e-2 eta-1)) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (let ((_-0 (vector 1 e-2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((_-1 (vector 1 e-1))) (IdrisC-45ProcessIdr-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32process-2165 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 e-2 _-0 e-6 e-1 _-1 (DataC-45List-isNil e-1) eta-0)))) (else (vector 1 '())))))))))))))))) (lambda (u--err) (lambda (eta-0) (vector 1 (cons u--err '())))) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 (cons (vector 49 arg-6 e-6) '()))))))))))))) -(define IdrisC-45ProcessIdr-prelude (lambda () (vector 0 (vector 0 "(implicit)" (cons 0 0) (cons 0 0)) 1 (CoreC-45NameC-45Namespace-nsAsModuleIdent (CoreC-45NameC-45Namespace-preludeNS)) (CoreC-45NameC-45Namespace-preludeNS)))) -(define IdrisC-45ProcessIdr-modTime (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 ((SystemC-45File-openFile (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-0)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-0) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (let ((act-17 (arg-578 eta-0))) (let ((act-16 (arg-580 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (let ((act-24 (arg-876 eta-0))) ((arg-877 act-24) eta-0))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-0) (let ((act-51 (arg-879 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) arg-0 (vector 0 )) ext-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 ((SystemC-45File-fileModifiedTime (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-0)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-0) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (let ((act-17 (arg-578 eta-0))) (let ((act-16 (arg-580 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (let ((act-25 (arg-876 eta-0))) ((arg-877 act-25) eta-0))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-0) (let ((act-51 (arg-879 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) e-2) ext-0))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-3 (vector-ref sc3 1))) (let ((act-26 (let ((act-26 ((SystemC-45File-closeFile (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-0)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-0) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (let ((act-17 (arg-578 eta-0))) (let ((act-16 (arg-580 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (let ((act-26 (arg-876 eta-0))) ((arg-877 act-26) eta-0))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-0) (let ((act-51 (arg-879 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) e-2) ext-0))) (vector 1 act-26)))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (vector 1 (PreludeC-45Cast-u--cast_Cast_Int_Integer e-3)))))))) (else (let ((act-26 (let ((act-26 ((SystemC-45File-closeFile (cons (vector 0 (vector 0 (lambda (u--b) (lambda (u--a) (lambda (u--func) (lambda (arg-143) (lambda (eta-0) (PreludeC-45IO-u--map_Functor_IO u--func arg-143 eta-0)))))) (lambda (u--a) (lambda (arg-577) (lambda (eta-0) arg-577))) (lambda (u--b) (lambda (u--a) (lambda (arg-578) (lambda (arg-580) (lambda (eta-0) (let ((act-17 (arg-578 eta-0))) (let ((act-16 (arg-580 eta-0))) (act-17 act-16))))))))) (lambda (u--b) (lambda (u--a) (lambda (arg-876) (lambda (arg-877) (lambda (eta-0) (let ((act-26 (arg-876 eta-0))) ((arg-877 act-26) eta-0))))))) (lambda (u--a) (lambda (arg-879) (lambda (eta-0) (let ((act-51 (arg-879 eta-0))) (act-51 eta-0)))))) (lambda (u--a) (lambda (arg-7803) arg-7803))) e-2) ext-0))) (vector 1 act-26)))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (vector 1 0))))))))))))))) (else (vector 1 0))))))))))) -(define IdrisC-45ProcessIdr-addPublicHash (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (if (null? sc0) (lambda (eta-0) (vector 1 (vector 0 ))) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (lambda (clam-0) (let ((sc1 e-2)) (cond ((equal? sc1 0) (let ((sc2 e-3)) (if (null? sc2) (vector 1 (vector 0 )) (let ((e-6 (car sc2))) (let ((e-7 (cdr sc2))) (let ((act-24 (CoreC-45Context-addHash arg-0 (cons (lambda (arg-1546) (CoreC-45Hash-u--hash_Hashable_Namespace arg-1546)) (lambda (arg-1547) (lambda (arg-1548) (CoreC-45Hash-u--hashWithSalt_Hashable_Namespace arg-1547 arg-1548)))) e-6 clam-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (CoreC-45Context-addHash arg-0 (cons (lambda (arg-1546) (CoreC-45Hash-u--hash_Hashable_Int arg-1546)) (lambda (arg-1547) (lambda (arg-1548) (CoreC-45Hash-u--hashWithSalt_Hashable_Int arg-1547 arg-1548)))) e-7 clam-0))))))))))(else (vector 1 (vector 0 )))))))))))) -(define IdrisC-45ProcessIdr-addPrelude (lambda (arg-0) (IdrisC-45ProcessIdr-case--addPrelude-1080 arg-0 (let ((sc0 (PreludeC-45Types-elem (cons (lambda (arg-2) (lambda (arg-3) (CoreC-45NameC-45Namespace-u--C-61C-61_Eq_ModuleIdent arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (CoreC-45NameC-45Namespace-u--C-47C-61_Eq_ModuleIdent arg-4 arg-5)))) (CoreC-45NameC-45Namespace-nsAsModuleIdent (CoreC-45NameC-45Namespace-preludeNS)) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (let ((sc1 eta-0)) (let ((e-2 (vector-ref sc1 3))) e-2))) arg-0)))) (cond ((equal? sc0 0) 1) (else 0)))))) -(define IdrisC-45ProcessIdr-addImport (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (CoreC-45Context-getNS arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (IdrisC-45ProcessIdr-readImport arg-0 arg-1 arg-2 0 arg-3 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (CoreC-45Context-setNS arg-0 e-5 ext-0)))))))))))) -(define IdrisC-45Parser-case--collectDefs-12323 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((u--csC-39 (PreludeC-45TypesC-45List-C-43C-43 arg-0 (PreludeC-45Interfaces-concat (cons (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (cons (lambda (arg-4) (lambda (arg-5) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-4 arg-5))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-snd eta-0)) e-2))))) (let ((u--annotC-39 (PreludeC-45Types-u--foldr_Foldable_List (lambda (u--fc1) (lambda (u--fc2) (DataC-45Maybe-fromMaybe (lambda () (vector 1 )) (CoreC-45FC-mergeFC u--fc1 u--fc2)))) arg-1 (PreludeC-45Types-u--map_Functor_List (lambda (eta-0) (Builtin-fst eta-0)) e-2)))) (cons (vector 1 u--annotC-39 u--csC-39) (IdrisC-45Parser-collectDefs e-3))))))))) -(define IdrisC-45Parser-case--stripBracesC-44drop-8287 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (IdrisC-45Parser-n--20539-8272-u--drop arg-0 arg-3 arg-2)) (else (cons arg-1 arg-2)))))) -(define IdrisC-45Parser-case--multilineStr-6747 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (let ((e-7 (cdr sc1))) (vector 34 (CoreC-45FC-boundToFC arg-1 arg-3) (PreludeC-45Types-u--fromInteger_Num_Nat (PreludeC-45Cast-u--cast_Cast_Int_Integer e-7)) e-3)))))))) -(define IdrisC-45Parser-case--multilineStrC-44toLines-6550 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (IdrisC-45Parser-n--13251-6534-u--toLines arg-0 arg-1 arg-2 arg-4 (DataC-45List-snoc arg-6 (vector 1 (CoreC-45FC-boundToFC arg-1 arg-3) e-2)) arg-5))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-7 (car sc1))) (let ((e-8 (cdr sc1))) (let ((sc2 e-8)) (if (null? sc2) (IdrisC-45Parser-n--13251-6534-u--toLines arg-0 arg-1 arg-2 arg-4 (DataC-45List-snoc arg-6 (vector 0 (CoreC-45FC-boundToFC arg-1 arg-3) e-7)) arg-5) (let ((e-11 (car sc2))) (let ((e-12 (cdr sc2))) (IdrisC-45Parser-n--13251-6534-u--toLines arg-0 arg-1 arg-2 arg-4 (cons (vector 0 (CoreC-45FC-boundToFC arg-1 arg-3) (DataC-45List-last e-8)) '()) (PreludeC-45TypesC-45List-C-43C-43 (DataC-45List-snoc arg-5 (DataC-45List-snoc arg-6 (vector 0 (CoreC-45FC-boundToFC arg-1 arg-3) e-7))) (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (PreludeC-45Types-u--map_Functor_List eta-2 eta-3))))) (lambda (u--str) (cons (vector 0 (CoreC-45FC-boundToFC arg-1 arg-3) u--str) '())) (let ((u--strs (cons e-11 e-12))) (DataC-45List-init u--strs)))))))))))))))))) -(define IdrisC-45Parser-case--singlelineStr-6497 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 4 (vector 1 (let ((sc1 arg-3)) (let ((e-3 (vector-ref sc1 3))) e-3))) 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 0 e-5))))))) -(define IdrisC-45Parser-case--singlelineStrC-44toPStr-6346 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-7 (car sc1))) (let ((e-8 (cdr sc1))) (let ((sc2 e-8)) (if (null? sc2) (vector 1 (vector 0 (CoreC-45FC-boundToFC arg-1 arg-3) e-7)) (vector 0 "Multi-line string is expected to begin with \"\"\"")))))))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (vector 1 (CoreC-45FC-boundToFC arg-1 arg-3) e-5)))))))) -(define IdrisC-45Parser-case--doAct-6041 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (vector 0 (cons (vector 1 (CoreC-45FC-boundToFC arg-1 arg-2) (CoreC-45FC-boundToFC arg-1 e-2) (let ((sc1 e-2)) (let ((e-1 (vector-ref sc1 1))) e-1)) e-3) '()))))))) -(define IdrisC-45Parser-case--doAct-6012 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((u--fc (CoreC-45FC-boundToFC arg-1 (LibrariesC-45TextC-45Bounded-mergeBounds arg-2 arg-3)))) (vector 0 (cons (vector 2 u--fc (let ((sc1 arg-2)) (let ((e-1 (vector-ref sc1 1))) e-1)) e-2 e-3) '())))))))) -(define IdrisC-45Parser-case--validPatternVar-5776 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (vector 0 (vector 0 ))) (else (vector 4 (vector 0 ) 1 "Not a pattern variable")))))) -(define IdrisC-45Parser-case--doBlock-5707 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (if (null? sc0) (vector 4 (vector 0 ) 1 "Not a namespaced 'do'") (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-3)) (cond ((equal? sc1 "do") (vector 11 1 1 (vector 6 ) (vector 9 1 1 (vector 13 (ParserC-45RuleC-45Source-block (lambda (eta-0) (IdrisC-45Parser-doAct arg-1 eta-0)))) (lambda (u--actions) (let ((u--fc (CoreC-45FC-boundToFC arg-1 (LibrariesC-45TextC-45Bounded-mergeBounds arg-2 u--actions)))) (vector 0 (vector 35 u--fc e-2 (PreludeC-45Interfaces-concat (cons (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldr_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldl_Foldable_List u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (PreludeC-45Types-u--null_Foldable_List arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (PreludeC-45Types-u--foldlM_Foldable_List i_con-0 u--funcM u--init u--input))))))))) (cons (lambda (arg-4) (lambda (arg-5) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-4 arg-5))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) (let ((sc2 u--actions)) (let ((e-1 (vector-ref sc2 1))) e-1))))))))))(else (vector 4 (vector 0 ) 1 "Not a namespaced 'do'")))))))))) -(define IdrisC-45Parser-case--caseC-32blockC-32inC-32nonEmptyTupleC-44mergePairs-3117 (lambda (arg-1 arg-2 arg-3 arg-4 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (cons (PreludeC-45TypesC-45List-C-43C-43 arg-11 e-2) (vector 39 (CoreC-45FC-boundToFC arg-4 (LibrariesC-45TextC-45Bounded-mergeBounds arg-6 arg-8)) arg-12 e-3))))))) -(define IdrisC-45Parser-case--nonEmptyTupleC-44mergePairs-3083 (lambda (arg-1 arg-2 arg-3 arg-4 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-3)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (IdrisC-45Parser-case--caseC-32blockC-32inC-32nonEmptyTupleC-44mergePairs-3117 arg-1 arg-2 arg-3 arg-4 arg-6 arg-7 arg-8 arg-9 e-2 e-6 e-7 (IdrisC-45Parser-n--13212-2947-u--mergePairs arg-1 arg-2 arg-3 arg-4 e-2 arg-8 arg-7)))))))))) -(define IdrisC-45Parser-case--nonEmptyTupleC-44optionalPair-2980 (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (cons arg-6 (cons '() (let ((sc1 e-1)) (let ((e-4 (vector-ref sc1 1))) e-4)))))) (else (let ((u--fc (CoreC-45FC-boundToFC arg-4 arg-5))) (let ((u--var (vector 0 u--fc (vector 2 "__infixTupleSection" arg-6)))) (cons (bs+ arg-6 1 63) (cons (cons (cons u--fc u--var) '()) u--var))))))))) -(define IdrisC-45Parser-case--opExpr-2068 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (let ((sc1 (PreludeC-45Basics-C-124C-124 0 (lambda () 0)))) (cond ((equal? sc1 1) (vector 9 1 1 (vector 13 (vector 9 0 0 (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 0 (lambda (eta-0) (lambda (eta-1) eta-1)) (vector 9 1 0 (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 1 (lambda (eta-0) (lambda (eta-1) eta-1)) (ParserC-45RuleC-45Source-continue arg-0)) (lambda (u--f) (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 0 u--f (ParserC-45RuleC-45Source-symbol "="))))) (lambda (u--f) (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 0 u--f (IdrisC-45Parser-opExpr arg-2 arg-1 arg-0))))) (lambda () (lambda (u--r) (vector 0 (vector 27 (CoreC-45FC-boundToFC arg-1 (LibrariesC-45TextC-45Bounded-mergeBounds arg-3 u--r)) (vector 1 "=") (let ((sc2 arg-3)) (let ((e-1 (vector-ref sc2 1))) e-1)) (let ((sc2 u--r)) (let ((e-1 (vector-ref sc2 1))) e-1)))))))) (else (vector 8 1 (vector 13 (vector 9 0 0 (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 0 (lambda (eta-0) (lambda (eta-1) eta-1)) (vector 9 1 0 (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 1 (lambda (eta-0) (lambda (eta-1) eta-1)) (ParserC-45RuleC-45Source-continue arg-0)) (lambda (u--f) (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 0 u--f (ParserC-45RuleC-45Source-symbol "="))))) (lambda (u--f) (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 0 u--f (IdrisC-45Parser-opExpr arg-2 arg-1 arg-0))))) (lambda () (lambda (u--r) (vector 0 (vector 27 (CoreC-45FC-boundToFC arg-1 (LibrariesC-45TextC-45Bounded-mergeBounds arg-3 u--r)) (vector 1 "=") (let ((sc2 arg-3)) (let ((e-1 (vector-ref sc2 1))) e-1)) (let ((sc2 u--r)) (let ((e-1 (vector-ref sc2 1))) e-1))))))))))) (else (vector 4 (vector 0 ) 1 "= not allowed")))))) -(define IdrisC-45Parser-case--argExpr-1706 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda () (vector 11 1 (PreludeC-45Basics-C-124C-124 0 (lambda () 0)) (ParserC-45RuleC-45Source-continue arg-0) (vector 10 0 (ParserC-45RuleC-45Source-symbol "|") (lambda () (vector 8 1 (IdrisC-45Parser-expr (let ((sc1 arg-2)) (let ((e-0 (car sc1))) (cons e-0 1))) arg-1 arg-0) (lambda () (lambda (u--arg) (vector 0 (cons (vector 3 u--arg) '())))))))))) (else (lambda () (vector 4 (vector 0 ) 1 "| not allowed here"))))))) -(define IdrisC-45Parser-case--argExprC-44braceArgs-1601 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (vector 10 0 (ParserC-45RuleC-45Source-symbol ",") (lambda () (vector 8 1 (vector 13 (ParserC-45RuleC-45Source-symbol "_")) (lambda () (lambda (u--x) (vector 0 (cons (IdrisC-45Parser-n--13198-1370-u--underscore arg-0 arg-1 arg-2 (CoreC-45FC-boundToFC arg-4 u--x)) '())))))))) (else (vector 4 (vector 0 ) 1 "non-empty list required")))))) -(define IdrisC-45Parser-case--argExprC-44braceArgs-1550 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (cons (IdrisC-45Parser-n--13198-1370-u--underscore arg-0 arg-1 arg-2 arg-9) '())) (else arg-7))))) -(define IdrisC-45Parser-n--13198-1370-u--underscore (lambda (arg-0 arg-1 arg-2 arg-3) (vector 2 (vector 1 "_") (vector 25 arg-3)))) -(define IdrisC-45Parser-n--13250-6339-u--toPStr (lambda (arg-0 arg-1 arg-2 arg-3) (IdrisC-45Parser-case--singlelineStrC-44toPStr-6346 arg-0 arg-1 arg-2 arg-3 (let ((sc0 arg-3)) (let ((e-1 (vector-ref sc0 1))) e-1))))) -(define IdrisC-45Parser-n--13251-6534-u--toLines (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-3)) (if (null? sc0) (DataC-45List-snoc arg-5 arg-4) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (IdrisC-45Parser-case--multilineStrC-44toLines-6550 arg-0 arg-1 arg-2 e-2 e-3 arg-5 arg-4 (let ((sc1 e-2)) (let ((e-1 (vector-ref sc1 1))) e-1))))))))) -(define IdrisC-45Parser-n--13199-1796-u--singleName (lambda (arg-0 arg-1) (vector 8 1 (ParserC-45RuleC-45Source-name) (lambda () (lambda (u--n) (vector 0 (cons u--n '()))))))) -(define IdrisC-45Parser-n--13239-5432-u--recFieldCompat (lambda (arg-0 arg-1 arg-2) (vector 12 0 0 (ParserC-45RuleC-45Source-postfixProj) (lambda () (vector 9 0 0 (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 0 (lambda (eta-0) (lambda (eta-1) eta-1)) (ParserC-45RuleC-45Source-symbol "->")) (lambda (u--f) (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 0 u--f (ParserC-45RuleC-45Source-name)))))))) -(define IdrisC-45Parser-n--19243-7317-u--parseWithArg (lambda (arg-0 arg-1 arg-2) (vector 10 0 (ParserC-45RuleC-45Source-symbol "|") (lambda () (vector 8 1 (vector 13 (IdrisC-45Parser-expr (IdrisC-45Parser-plhs) arg-1 arg-0)) (lambda () (lambda (u--tm) (vector 0 (cons (CoreC-45FC-boundToFC arg-1 u--tm) (let ((sc0 u--tm)) (let ((e-1 (vector-ref sc0 1))) e-1))))))))))) -(define IdrisC-45Parser-n--26395-14211-u--parse (lambda (arg-0 arg-1 arg-2) (vector 10 0 (ParserC-45RuleC-45Source-symbol ":") (lambda () (vector 10 0 (IdrisC-45Parser-runParseCmd arg-2) (lambda () (vector 8 1 (vector 7 (IdrisC-45Parser-logLevel)) (lambda () (lambda (u--lvl) (vector 0 (arg-1 u--lvl))))))))))) -(define IdrisC-45Parser-n--26329-14142-u--parse (lambda (arg-0 arg-1 arg-2) (vector 10 0 (ParserC-45RuleC-45Source-symbol ":") (lambda () (vector 10 0 (IdrisC-45Parser-runParseCmd arg-2) (lambda () (vector 8 0 (vector 7 (ParserC-45RuleC-45Source-unqualifiedName)) (lambda () (lambda (u--n) (vector 8 1 (vector 7 (IdrisC-45Parser-expr (IdrisC-45Parser-pdef) "(interactive)" (ParserC-45RuleC-45Source-init))) (lambda () (lambda (u--tm) (vector 0 ((arg-1 u--tm) u--n)))))))))))))) -(define IdrisC-45Parser-n--26285-14095-u--parse (lambda (arg-0 arg-1 arg-2) (vector 10 0 (ParserC-45RuleC-45Source-symbol ":") (lambda () (vector 10 0 (IdrisC-45Parser-runParseCmd arg-2) (lambda () (vector 8 1 (vector 7 (ParserC-45RuleC-45Source-onOffLit)) (lambda () (lambda (u--i) (vector 0 (arg-1 u--i))))))))))) -(define IdrisC-45Parser-n--26214-14020-u--parse (lambda (arg-0 arg-1 arg-2) (vector 10 0 (ParserC-45RuleC-45Source-symbol ":") (lambda () (vector 10 0 (IdrisC-45Parser-runParseCmd arg-2) (lambda () (vector 8 1 (vector 7 (IdrisC-45Parser-n--26214-14019-u--autoNumber arg-0 arg-1 arg-2)) (lambda () (lambda (u--mi) (vector 0 (arg-1 u--mi))))))))))) -(define IdrisC-45Parser-n--26122-13924-u--parse (lambda (arg-0 arg-1 arg-2 arg-3) (vector 10 0 (ParserC-45RuleC-45Source-symbol ":") (lambda () (vector 10 0 (IdrisC-45Parser-runParseCmd arg-3) (lambda () (vector 8 1 (vector 7 (IdrisC-45Parser-setOption arg-1)) (lambda () (lambda (u--opt) (vector 0 (arg-2 u--opt))))))))))) -(define IdrisC-45Parser-n--26074-13873-u--parse (lambda (arg-0 arg-1 arg-2) (vector 10 0 (ParserC-45RuleC-45Source-symbol ":") (lambda () (vector 10 0 (IdrisC-45Parser-runParseCmd arg-2) (lambda () (vector 8 1 (vector 7 (IdrisC-45Parser-topDecl "(interactive)" (ParserC-45RuleC-45Source-init))) (lambda () (lambda (u--tm) (vector 0 (arg-1 u--tm))))))))))) -(define IdrisC-45Parser-n--26026-13823-u--parse (lambda (arg-0 arg-1 arg-2) (vector 10 0 (ParserC-45RuleC-45Source-symbol ":") (lambda () (vector 10 0 (IdrisC-45Parser-runParseCmd arg-2) (lambda () (vector 8 1 (vector 7 (IdrisC-45Parser-expr (IdrisC-45Parser-pdef) "(interactive)" (ParserC-45RuleC-45Source-init))) (lambda () (lambda (u--tm) (vector 0 (arg-1 u--tm))))))))))) -(define IdrisC-45Parser-n--25982-13777-u--parse (lambda (arg-0 arg-1 arg-2) (vector 10 0 (ParserC-45RuleC-45Source-symbol ":") (lambda () (vector 10 0 (IdrisC-45Parser-runParseCmd arg-2) (lambda () (vector 8 1 (vector 7 (ParserC-45RuleC-45Source-moduleIdent)) (lambda () (lambda (u--n) (vector 0 (arg-1 u--n))))))))))) -(define IdrisC-45Parser-n--25938-13731-u--parse (lambda (arg-0 arg-1 arg-2) (vector 10 0 (ParserC-45RuleC-45Source-symbol ":") (lambda () (vector 10 0 (IdrisC-45Parser-runParseCmd arg-2) (lambda () (vector 8 1 (vector 7 (ParserC-45RuleC-45Source-simpleStr)) (lambda () (lambda (u--s) (vector 0 (arg-1 u--s))))))))))) -(define IdrisC-45Parser-n--25893-13684-u--parse (lambda (arg-0 arg-1 arg-2) (vector 10 0 (ParserC-45RuleC-45Source-symbol ":") (lambda () (vector 10 0 (IdrisC-45Parser-runParseCmd arg-2) (lambda () (vector 8 1 (vector 7 (ParserC-45RuleC-45Source-name)) (lambda () (lambda (u--n) (vector 0 (arg-1 u--n))))))))))) -(define IdrisC-45Parser-n--25859-13649-u--parse (lambda (arg-0 arg-1 arg-2) (vector 10 0 (ParserC-45RuleC-45Source-symbol ":") (lambda () (vector 10 1 (IdrisC-45Parser-runParseCmd arg-2) (lambda () (vector 0 arg-1))))))) -(define IdrisC-45Parser-n--13212-2946-u--optionalPair (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (IdrisC-45Parser-case--nonEmptyTupleC-44optionalPair-2980 arg-1 arg-2 arg-3 arg-4 arg-6 arg-5 (let ((sc0 arg-6)) (let ((e-1 (vector-ref sc0 1))) e-1))))) -(define IdrisC-45Parser-n--23606-11388-u--oldParamDecls (lambda (arg-0 arg-1 arg-2 arg-3) (vector 10 0 (ParserC-45RuleC-45Source-symbol "(") (lambda () (vector 9 1 0 (LibrariesC-45TextC-45Parser-sepBy 0 (ParserC-45RuleC-45Source-symbol ",") (vector 8 0 (ParserC-45RuleC-45Source-unqualifiedName) (lambda () (lambda (u--x) (vector 10 0 (ParserC-45RuleC-45Source-symbol ":") (lambda () (vector 8 1 (IdrisC-45Parser-typeExpr (IdrisC-45Parser-pdef) arg-2 arg-3) (lambda () (lambda (u--ty) (vector 0 (cons (vector 1 u--x) (cons (AlgebraC-45ZeroOneOmega-u--top_Top_ZeroOneOmega) (cons (vector 1 ) u--ty))))))))))))) (lambda (u--ps) (vector 10 1 (ParserC-45RuleC-45Source-symbol ")") (lambda () (vector 0 u--ps))))))))) -(define IdrisC-45Parser-n--23606-11389-u--newParamDecls (lambda (arg-0 arg-1 arg-2 arg-3) (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 0 (lambda (eta-0) (PreludeC-45Interfaces-concat (cons (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (DataC-45List1-u--foldr_Foldable_List1 u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (DataC-45List1-u--foldl_Foldable_List1 u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (DataC-45List1-u--null_Foldable_List1 arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (DataC-45List1-u--foldlM_Foldable_List1 i_con-0 u--funcM u--init u--input))))))))) (cons (lambda (arg-4) (lambda (arg-5) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-4 arg-5))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) eta-0)) (LibrariesC-45TextC-45Parser-some (IdrisC-45Parser-typedArg arg-2 arg-3))))) -(define IdrisC-45Parser-n--26395-14210-u--names (lambda (arg-0 arg-1 arg-2) (IdrisC-45Parser-extractNames arg-2))) -(define IdrisC-45Parser-n--26329-14141-u--names (lambda (arg-0 arg-1 arg-2) (IdrisC-45Parser-extractNames arg-2))) -(define IdrisC-45Parser-n--26285-14094-u--names (lambda (arg-0 arg-1 arg-2) (IdrisC-45Parser-extractNames arg-2))) -(define IdrisC-45Parser-n--26214-14018-u--names (lambda (arg-0 arg-1 arg-2) (IdrisC-45Parser-extractNames arg-2))) -(define IdrisC-45Parser-n--26122-13923-u--names (lambda (arg-0 arg-1 arg-2 arg-3) (IdrisC-45Parser-extractNames arg-3))) -(define IdrisC-45Parser-n--26074-13872-u--names (lambda (arg-0 arg-1 arg-2) (IdrisC-45Parser-extractNames arg-2))) -(define IdrisC-45Parser-n--26026-13822-u--names (lambda (arg-0 arg-1 arg-2) (IdrisC-45Parser-extractNames arg-2))) -(define IdrisC-45Parser-n--25982-13776-u--names (lambda (arg-0 arg-1 arg-2) (IdrisC-45Parser-extractNames arg-2))) -(define IdrisC-45Parser-n--25938-13730-u--names (lambda (arg-0 arg-1 arg-2) (IdrisC-45Parser-extractNames arg-2))) -(define IdrisC-45Parser-n--25893-13683-u--names (lambda (arg-0 arg-1 arg-2) (IdrisC-45Parser-extractNames arg-2))) -(define IdrisC-45Parser-n--25859-13648-u--names (lambda (arg-0 arg-1 arg-2) (IdrisC-45Parser-extractNames arg-2))) -(define IdrisC-45Parser-n--13199-1797-u--nameList (lambda (arg-0 arg-1) (vector 10 0 (ParserC-45RuleC-45Source-symbol "[") (lambda () (vector 11 1 0 (vector 6 ) (vector 8 0 (LibrariesC-45TextC-45Parser-sepBy1 0 (ParserC-45RuleC-45Source-symbol ",") (ParserC-45RuleC-45Source-name)) (lambda () (lambda (u--ns) (vector 10 1 (ParserC-45RuleC-45Source-symbol "]") (lambda () (vector 0 (DataC-45List1-forget u--ns)))))))))))) -(define IdrisC-45Parser-n--13247-6239-u--mkPi (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (if (null? sc0) (let ((sc1 arg-3)) (let ((e-1 (vector-ref sc1 1))) e-1)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (vector 1 (CoreC-45FC-boundToFC arg-1 arg-3) (AlgebraC-45ZeroOneOmega-u--top_Top_ZeroOneOmega) e-6 (vector 0 ) (let ((sc2 arg-3)) (let ((e-1 (vector-ref sc2 1))) e-1)) (IdrisC-45Parser-n--13247-6239-u--mkPi arg-0 arg-1 arg-2 e-7 e-3))))))))))) -(define IdrisC-45Parser-n--13212-2947-u--mergePairs (lambda (arg-1 arg-2 arg-3 arg-4 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (if (null? sc0) (cons '() (vector 41 (CoreC-45FC-boundToFC arg-4 (LibrariesC-45TextC-45Bounded-mergeBounds arg-3 arg-7)))) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-3)) (if (null? sc1) (Builtin-snd (IdrisC-45Parser-n--13212-2946-u--optionalPair arg-1 arg-2 arg-3 arg-4 arg-6 e-2)) (IdrisC-45Parser-case--nonEmptyTupleC-44mergePairs-3083 arg-1 arg-2 arg-3 arg-4 e-2 e-3 arg-7 arg-6 (IdrisC-45Parser-n--13212-2946-u--optionalPair arg-1 arg-2 arg-3 arg-4 arg-6 e-2)))))))))) -(define IdrisC-45Parser-n--13231-4855-u--letDecl (lambda (arg-0 arg-1) (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 0 eta-2 eta-3))))) (lambda (eta-0) (IdrisC-45Parser-collectDefs (PreludeC-45Interfaces-concat (cons (vector 0 (lambda (u--acc) (lambda (u--elem) (lambda (u--func) (lambda (u--init) (lambda (u--input) (DataC-45List1-u--foldr_Foldable_List1 u--func u--init u--input)))))) (lambda (u--elem) (lambda (u--acc) (lambda (u--func) (lambda (u--init) (lambda (u--input) (DataC-45List1-u--foldl_Foldable_List1 u--func u--init u--input)))))) (lambda (u--elem) (lambda (arg-1144) (DataC-45List1-u--null_Foldable_List1 arg-1144))) (lambda (u--elem) (lambda (u--acc) (lambda (u--m) (lambda (i_con-0) (lambda (u--funcM) (lambda (u--init) (lambda (u--input) (DataC-45List1-u--foldlM_Foldable_List1 i_con-0 u--funcM u--init u--input))))))))) (cons (lambda (arg-2) (lambda (arg-3) (PreludeC-45Types-u--C-60C-43C-62_Semigroup_C-40ListC-32C-36aC-41 arg-2 arg-3))) (PreludeC-45Types-u--neutral_Monoid_C-40ListC-32C-36aC-41))) eta-0))) (ParserC-45RuleC-45Source-nonEmptyBlock (lambda (eta-0) (vector 5 (IdrisC-45Parser-topDecl arg-1 eta-0))))))) -(define IdrisC-45Parser-n--13231-4854-u--letBinder (lambda (arg-0 arg-1) (let ((sc0 (PreludeC-45Basics-C-124C-124 1 (lambda () 0)))) (cond ((equal? sc0 1) (vector 9 1 0 (vector 13 (vector 9 1 0 (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 1 eta-2 eta-3))))) (lambda (eta-0) (lambda (eta-1) (cons eta-0 eta-1))) (IdrisC-45Parser-multiplicity)) (lambda (u--f) (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 0 u--f (IdrisC-45Parser-expr (IdrisC-45Parser-plhs) arg-1 arg-0))))) (lambda () (lambda (u--s) (vector 9 1 0 (vector 0 (let ((sc1 u--s)) (let ((e-1 (vector-ref sc1 1))) e-1))) (lambda (_-0) (let ((sc1 _-0)) (let ((e-2 (car sc1))) (let ((e-3 (cdr sc1))) (vector 9 1 0 (LibrariesC-45TextC-45Parser-option (PreludeC-45Basics-C-124C-124 0 (lambda () 0)) (vector 25 (CoreC-45FC-boundToFC arg-1 u--s)) (vector 9 0 0 (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 0 (lambda (eta-0) (lambda (eta-1) eta-1)) (ParserC-45RuleC-45Source-symbol ":")) (lambda (u--f) (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 0 u--f (IdrisC-45Parser-typeExpr (IdrisC-45Parser-pnoeq (IdrisC-45Parser-pdef)) arg-1 arg-0))))) (lambda (u--ty) (let ((sc2 (PreludeC-45Basics-C-38C-38 0 (lambda () 0)))) (cond ((equal? sc2 1) (vector 11 1 0 (vector 12 0 0 (ParserC-45RuleC-45Source-symbol "=") (lambda () (ParserC-45RuleC-45Source-symbol ":="))) (lambda () (vector 8 1 (IdrisC-45Parser-expr (IdrisC-45Parser-pnowith) arg-1 arg-0) (lambda () (lambda (u--val) (vector 9 1 1 (ParserC-45RuleC-45Source-block (lambda (eta-0) (IdrisC-45Parser-patAlt arg-1 eta-0))) (lambda (u--alts) (vector 0 (vector 0 e-2 e-3 u--ty u--val u--alts)))))))))) (else (vector 10 0 (vector 12 0 0 (ParserC-45RuleC-45Source-symbol "=") (lambda () (ParserC-45RuleC-45Source-symbol ":="))) (lambda () (vector 8 1 (IdrisC-45Parser-expr (IdrisC-45Parser-pnowith) arg-1 arg-0) (lambda () (lambda (u--val) (vector 9 1 1 (ParserC-45RuleC-45Source-block (lambda (eta-0) (IdrisC-45Parser-patAlt arg-1 eta-0))) (lambda (u--alts) (vector 0 (vector 0 e-2 e-3 u--ty u--val u--alts))))))))))))))))))))))) (else (vector 8 0 (vector 13 (vector 9 1 0 (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 1 eta-2 eta-3))))) (lambda (eta-0) (lambda (eta-1) (cons eta-0 eta-1))) (IdrisC-45Parser-multiplicity)) (lambda (u--f) (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 0 u--f (IdrisC-45Parser-expr (IdrisC-45Parser-plhs) arg-1 arg-0))))) (lambda () (lambda (u--s) (vector 9 1 0 (vector 0 (let ((sc1 u--s)) (let ((e-1 (vector-ref sc1 1))) e-1))) (lambda (_-0) (let ((sc1 _-0)) (let ((e-2 (car sc1))) (let ((e-3 (cdr sc1))) (vector 9 1 0 (LibrariesC-45TextC-45Parser-option (PreludeC-45Basics-C-124C-124 0 (lambda () 0)) (vector 25 (CoreC-45FC-boundToFC arg-1 u--s)) (vector 9 0 0 (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 0 (lambda (eta-0) (lambda (eta-1) eta-1)) (ParserC-45RuleC-45Source-symbol ":")) (lambda (u--f) (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 0 u--f (IdrisC-45Parser-typeExpr (IdrisC-45Parser-pnoeq (IdrisC-45Parser-pdef)) arg-1 arg-0))))) (lambda (u--ty) (let ((sc2 (PreludeC-45Basics-C-38C-38 0 (lambda () 0)))) (cond ((equal? sc2 1) (vector 11 1 0 (vector 12 0 0 (ParserC-45RuleC-45Source-symbol "=") (lambda () (ParserC-45RuleC-45Source-symbol ":="))) (lambda () (vector 8 1 (IdrisC-45Parser-expr (IdrisC-45Parser-pnowith) arg-1 arg-0) (lambda () (lambda (u--val) (vector 9 1 1 (ParserC-45RuleC-45Source-block (lambda (eta-0) (IdrisC-45Parser-patAlt arg-1 eta-0))) (lambda (u--alts) (vector 0 (vector 0 e-2 e-3 u--ty u--val u--alts)))))))))) (else (vector 10 0 (vector 12 0 0 (ParserC-45RuleC-45Source-symbol "=") (lambda () (ParserC-45RuleC-45Source-symbol ":="))) (lambda () (vector 8 1 (IdrisC-45Parser-expr (IdrisC-45Parser-pnowith) arg-1 arg-0) (lambda () (lambda (u--val) (vector 9 1 1 (ParserC-45RuleC-45Source-block (lambda (eta-0) (IdrisC-45Parser-patAlt arg-1 eta-0))) (lambda (u--alts) (vector 0 (vector 0 e-2 e-3 u--ty u--val u--alts))))))))))))))))))))))))))) -(define IdrisC-45Parser-n--13212-2944-u--lams (lambda (arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-5)) (if (null? sc0) arg-6 (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (vector 2 e-6 (AlgebraC-45ZeroOneOmega-u--top_Top_ZeroOneOmega) (vector 1 ) e-7 (vector 26 e-6) (IdrisC-45Parser-n--13212-2944-u--lams arg-1 arg-2 arg-3 arg-4 e-3 arg-6))))))))))) -(define IdrisC-45Parser-n--13239-5431-u--fieldName (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) e-0)) ((5) (let ((e-1 (vector-ref sc0 1))) e-1))(else "_impossible"))))) -(define IdrisC-45Parser-n--23034-10808-u--fieldBody (lambda (arg-0 arg-1 arg-2 arg-3) (vector 8 1 (vector 13 (vector 9 1 0 (IdrisC-45Parser-multiplicity) (lambda (u--rig) (vector 8 0 (LibrariesC-45TextC-45Parser-sepBy1 0 (ParserC-45RuleC-45Source-symbol ",") (ParserC-45RuleC-45Source-name)) (lambda () (lambda (u--ns) (vector 10 0 (ParserC-45RuleC-45Source-symbol ":") (lambda () (vector 8 1 (IdrisC-45Parser-expr (IdrisC-45Parser-pdef) arg-1 arg-0) (lambda () (lambda (u--ty) (vector 0 (lambda (u--fc) (PreludeC-45Types-u--map_Functor_List (lambda (u--n) (vector 0 u--fc arg-2 u--rig arg-3 u--n u--ty)) (DataC-45List1-forget u--ns))))))))))))))) (lambda () (lambda (u--b) (vector 0 (let ((sc0 u--b)) (let ((e-1 (vector-ref sc0 1))) (e-1 (CoreC-45FC-boundToFC arg-1 u--b)))))))))) -(define IdrisC-45Parser-n--20539-8272-u--drop (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (if (null? sc0) '() (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (IdrisC-45Parser-case--stripBracesC-44drop-8287 arg-0 e-2 e-3 arg-1 (PreludeC-45EqOrd-u--C-61C-61_Eq_Char arg-1 e-2)))))))) -(define IdrisC-45Parser-n--13230-4711-u--continueLamCase (lambda (arg-0 arg-1 arg-2) (vector 8 1 (vector 13 (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 0 eta-2 eta-3))))) (lambda (eta-0) (DataC-45List1-forget eta-0)) (ParserC-45RuleC-45Source-nonEmptyBlock (lambda (eta-0) (IdrisC-45Parser-caseAlt arg-1 eta-0))))) (lambda () (lambda (u--b) (vector 0 (let ((u--fc (CoreC-45FC-boundToFC arg-1 u--b))) (let ((u--fcCase (CoreC-45FC-boundToFC arg-1 arg-2))) (let ((u--n (vector 2 "lcase" 0))) (vector 2 u--fcCase (AlgebraC-45ZeroOneOmega-u--top_Top_ZeroOneOmega) (vector 1 ) (vector 0 u--fcCase u--n) (vector 26 u--fcCase) (vector 4 u--fc (vector 0 u--fcCase u--n) (let ((sc0 u--b)) (let ((e-1 (vector-ref sc0 1))) e-1))))))))))))) -(define IdrisC-45Parser-n--13230-4710-u--continueLam (lambda (arg-0 arg-1) (vector 8 0 (IdrisC-45Parser-bindList arg-1 arg-0) (lambda () (lambda (u--binders) (vector 10 0 (ParserC-45RuleC-45Source-symbol "=>") (lambda () (vector 11 1 0 (ParserC-45RuleC-45Source-mustContinue arg-0 (vector 0 )) (vector 8 1 (IdrisC-45Parser-expr (IdrisC-45Parser-pdef) arg-1 arg-0) (lambda () (lambda (u--scope) (vector 0 (IdrisC-45Parser-n--13230-4709-u--bindAll arg-0 arg-1 u--binders u--scope))))))))))))) -(define IdrisC-45Parser-n--13212-2945-u--buildOutput (lambda (arg-1 arg-2 arg-3 arg-4 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (IdrisC-45Parser-n--13212-2944-u--lams arg-1 arg-2 arg-3 arg-4 e-2 (vector 39 (CoreC-45FC-boundToFC arg-4 (LibrariesC-45TextC-45Bounded-mergeBounds arg-3 arg-6)) arg-1 e-3))))))) -(define IdrisC-45Parser-n--13198-1371-u--braceArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (vector 12 (PreludeC-45Basics-C-124C-124 0 (lambda () 0)) (PreludeC-45Basics-C-124C-124 0 (lambda () 0)) (vector 8 0 (vector 13 (ParserC-45RuleC-45Source-symbol "{")) (lambda () (lambda (u--start) (vector 9 1 0 (LibrariesC-45TextC-45Parser-sepBy (PreludeC-45Basics-C-124C-124 0 (lambda () 1)) (ParserC-45RuleC-45Source-symbol ",") (vector 8 1 (vector 13 (ParserC-45RuleC-45Source-unqualifiedName)) (lambda () (lambda (u--x) (let ((u--fc (CoreC-45FC-boundToFC arg-3 u--x))) (LibrariesC-45TextC-45Parser-option (PreludeC-45Basics-C-124C-124 (PreludeC-45Basics-C-124C-124 0 (lambda () 0)) (lambda () 1)) (vector 2 (vector 1 (let ((sc0 u--x)) (let ((e-1 (vector-ref sc0 1))) e-1))) (vector 0 u--fc (vector 1 (let ((sc0 u--x)) (let ((e-1 (vector-ref sc0 1))) e-1))))) (let ((sc0 (PreludeC-45Basics-C-124C-124 0 (lambda () 0)))) (cond ((equal? sc0 1) (vector 9 1 1 (vector 9 0 0 (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 0 (lambda (eta-0) (lambda (eta-1) eta-1)) (ParserC-45RuleC-45Source-symbol "=")) (lambda (u--f) (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 0 u--f (IdrisC-45Parser-expr (IdrisC-45Parser-pdef) arg-3 arg-4)))) (lambda () (lambda (u--tm) (vector 0 (vector 2 (vector 1 (let ((sc1 u--x)) (let ((e-1 (vector-ref sc1 1))) e-1))) u--tm)))))) (else (vector 8 1 (vector 9 0 0 (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 0 (lambda (eta-0) (lambda (eta-1) eta-1)) (ParserC-45RuleC-45Source-symbol "=")) (lambda (u--f) (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 0 u--f (IdrisC-45Parser-expr (IdrisC-45Parser-pdef) arg-3 arg-4)))) (lambda () (lambda (u--tm) (vector 0 (vector 2 (vector 1 (let ((sc1 u--x)) (let ((e-1 (vector-ref sc1 1))) e-1))) u--tm)))))))))))))) (lambda (u--list) (vector 9 1 0 (LibrariesC-45TextC-45Parser-option (PreludeC-45Basics-C-124C-124 0 (lambda () 0)) '() (IdrisC-45Parser-case--argExprC-44braceArgs-1601 arg-0 arg-1 arg-2 arg-4 arg-3 u--start u--list (DataC-45List-isCons u--list))) (lambda (u--matchAny) (vector 8 1 (vector 13 (ParserC-45RuleC-45Source-symbol "}")) (lambda () (lambda (u--end) (vector 9 1 1 (let ((u--fc (CoreC-45FC-boundToFC arg-3 (LibrariesC-45TextC-45Bounded-mergeBounds u--start u--end)))) (vector 0 (IdrisC-45Parser-case--argExprC-44braceArgs-1550 arg-0 arg-1 arg-2 arg-4 arg-3 u--start u--list u--matchAny u--end u--fc (DataC-45List-isNil u--list)))) (lambda (matchAny-0) (vector 0 (PreludeC-45TypesC-45List-C-43C-43 matchAny-0 u--list)))))))))))))) (lambda () (vector 10 0 (ParserC-45RuleC-45Source-symbol "@{") (lambda () (vector 11 1 0 (vector 6 ) (vector 8 0 (IdrisC-45Parser-expr (IdrisC-45Parser-pdef) arg-3 arg-4) (lambda () (lambda (u--tm) (vector 10 1 (ParserC-45RuleC-45Source-symbol "}") (lambda () (vector 0 (cons (vector 1 u--tm) '())))))))))))))) -(define IdrisC-45Parser-n--13222-4152-u--binderName (lambda (arg-0 arg-1) (vector 12 0 0 (ParserC-45RuleC-45Source-unqualifiedName) (lambda () (PreludeC-45Interfaces-C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 0 eta-2 eta-3))))) (ParserC-45RuleC-45Source-symbol "_") "_"))))) -(define IdrisC-45Parser-n--13230-4709-u--bindAll (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (if (null? sc0) arg-3 (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (let ((sc2 e-7)) (let ((e-10 (car sc2))) (let ((e-11 (cdr sc2))) (vector 2 (CoreC-45FC-boundToFC arg-1 e-10) e-6 (vector 1 ) (let ((sc3 e-10)) (let ((e-1 (vector-ref sc3 1))) e-1)) e-11 (IdrisC-45Parser-n--13230-4709-u--bindAll arg-0 arg-1 e-3 arg-3)))))))))))))) -(define IdrisC-45Parser-n--26214-14019-u--autoNumber (lambda (arg-0 arg-1 arg-2) (vector 12 0 0 (PreludeC-45Interfaces-C-60C-36 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 0 eta-2 eta-3))))) (vector 0 ) (ParserC-45RuleC-45Source-keyword "auto")) (lambda () (PreludeC-45Interfaces-C-60C-36C-62 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (LibrariesC-45TextC-45ParserC-45Core-u--map_Functor_C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 0 eta-2 eta-3))))) (lambda (eta-0) (vector 1 (PreludeC-45Types-u--fromInteger_Num_Nat eta-0))) (ParserC-45RuleC-45Source-intLit)))))) -(define IdrisC-45Parser-n--13197-1167-u--applyExpImp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (if (null? sc0) arg-5 (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (IdrisC-45Parser-n--13197-1167-u--applyExpImp arg-0 arg-1 arg-2 arg-3 arg-4 (vector 7 (vector 0 arg-1 arg-3 arg-4) arg-5 e-4) e-3))) ((1) (let ((e-5 (vector-ref sc1 1))) (IdrisC-45Parser-n--13197-1167-u--applyExpImp arg-0 arg-1 arg-2 arg-3 arg-4 (vector 10 (vector 0 arg-1 arg-3 arg-4) arg-5 e-5) e-3))) ((2) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((u--fc (vector 0 arg-1 arg-3 arg-4))) (IdrisC-45Parser-n--13197-1167-u--applyExpImp arg-0 arg-1 arg-2 arg-3 arg-4 (vector 9 u--fc arg-5 e-6 e-7) e-3))))) (else (let ((e-8 (vector-ref sc1 1))) (IdrisC-45Parser-n--13197-1167-u--applyExpImp arg-0 arg-1 arg-2 arg-3 arg-4 (vector 8 (vector 0 arg-1 arg-3 arg-4) arg-5 e-8) e-3))))))))))) -(define IdrisC-45Parser-n--19243-7316-u--applyArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (if (null? sc0) arg-3 (let ((e-2 (car sc0))) (let ((e-3 (cdr sc0))) (let ((sc1 e-2)) (let ((e-6 (car sc1))) (let ((e-7 (cdr sc1))) (IdrisC-45Parser-n--19243-7316-u--applyArgs arg-0 arg-1 arg-2 (vector 7 e-6 arg-3 e-7) e-3)))))))))) -(define IdrisC-45Parser-u--show_Show_CmdArg (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) "") ((1) "") ((2) "") ((3) "") ((4) "") ((5) "") ((6) "